7READ BCD 09/20/68 0218.4 6531 00000
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 1
7/20/66 - NOEL I. MORRIS
UNLIST
M CALL MACRO SUBR,LIST
TRANSFER VECTOR
00000 222646472545 BFOPEN
00001 246242255160 DSKER
00002 222651252124 BFREAD
00003 222666513163 BFWRIT
00004 222623434662 BFCLOS
00005 462321222360 OCABC
00034 CRDLTH EQU 28
00030 CLTH EQU CRDLTH-4
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 2
PICK UP AND INTERPRET PARAMETERS.
00006 CALL SETBRK(CHN) SET A BREAK LEVEL
00006 0074 00 4 00422 TSX SETBRK,4 .002
00007 3 00000 0 00324 PAR CHN .004
00010 CALL GETCLS((CARD,,0)) PICK UP COMMAND BUFFER
00010 0074 00 4 00423 TSX GETCLS,4 .002
00011 3 00000 0 00366 PAR CARD,,0 .004
00012 -0500 00 0 00366 CAL CARD PICK UP NAME OF COMMAND
00013 -0340 00 0 00505 LAS =H 7READ CHECK FOR 7PUNCH READ
00014 0020 00 0 00016 TRA *+2 ..
00015 0020 00 0 00023 TRA NAM.OK NAME IS OK
00016 -0340 00 0 00476 LAS =H7PUNCH CHECK FOR 7PUNCH WRITE
00017 0020 00 0 00350 TRA NAMERR NEITHER, NAME IS IN ERROR
00020 0020 00 0 00022 TRA *+2 ..
00021 0020 00 0 00350 TRA NAMERR ..
00022 -0625 00 0 00362 STL PUNSW. SET PUNCH INDIC.
00023 NAM.OK SYN *
00023 -0500 00 0 00367 CAL CARD+1 GET FIRST PARAMETER
00024 0602 00 0 00353 SLW I1 ..
00025 0602 00 0 00355 SLW O1 ..
00026 0322 00 0 00037 ERA FENCE CHECK FOR NONE
00027 0100 00 0 00326 TZE NOPAR ERROR IF NO PARAMETER
00030 -0500 00 0 00370 CAL CARD+2 GET SECOND PARAMETER
00031 0602 00 0 00354 SLW I2 ..
00032 0602 00 0 00356 SLW O2 ..
00033 0322 00 0 00037 ERA FENCE ..
00034 0100 00 0 00326 TZE NOPAR ..
00035 -0500 00 0 00371 CAL CARD+3 GET THIRD PARAMETER
00036 -0340 00 0 00037 LAS FENCE CHECK FOR NONE
00037 777777777777 FENCE VFD O36// ..
00040 0020 00 0 00326 TRA NOPAR FENCE NOT PERMITTED HERE, EITHER
00041 -0340 00 0 00047 LAS STAR CHECK FOR ASTERISK
00042 0020 00 0 00044 TRA *+2 ..
00043 0020 00 0 00045 TRA *+2 ..
00044 0602 00 0 00355 SLW O1 IF STAR, FIRST NAMES ARE THE SAME
00045 -0500 00 0 00372 CAL CARD+4 GET LAST PARAMETER
00046 -0340 00 0 00037 LAS FENCE ..
00047 606060606054 STAR BCI 1, * ..
00050 0020 00 0 00052 TRA *+2 ..
00051 0602 00 0 00356 SLW O2 IF NO 4TH, SECOND NAMES ARE THE SAME
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 3
ASSIGN BUFFERS AND OPEN FILES.
00052 CALL GETMEM GET CURRENT MEMBND
00052 0074 00 4 00424 TSX GETMEM,4 .002
00053 EXTEND (OPR+4,OPR+5,OPW+4,OPW+5,OPW+6) ASSIGN BUFFERS
00053 0621 00 0 00072 STA OPR+4 .003
00054 0361 00 0 00474 ACL =432 .002
00055 0621 00 0 00073 STA OPR+5 .003
00056 0361 00 0 00474 ACL =432 .002
00057 0621 00 0 00102 STA OPW+4 .003
00060 0361 00 0 00474 ACL =432 .002
00061 0621 00 0 00103 STA OPW+5 .003
00062 0361 00 0 00474 ACL =432 .002
00063 0621 00 0 00104 STA OPW+6 .003
00064 0361 00 0 00474 ACL =432 .002
00065 0074 00 4 00425 TSX SETMEM,4 .003
00066 OPR BFOPEN R,I1,I2,$DSKER OPEN INPUT FILE
00066 0074 00 4 00000 TSX $BFOPEN,4 .003
00067 3 00000 0 00504 PAR =HR .005
00070 3 00000 0 00353 PAR I1 .005
00071 3 00000 0 00354 PAR I2 .005
00072 3 00000 0 00503 PAR =-0 .005
00073 3 00000 0 00503 PAR =-0 .005
00074 3 00000 0 00503 PAR =-0 .005
00075 3 00000 0 00001 PAR $DSKER .005
00076 OPW BFOPEN W,O1,O2,$DSKER AND OUTPUT FILE
00076 0074 00 4 00000 TSX $BFOPEN,4 .003
00077 3 00000 0 00512 PAR =HW .005
00100 3 00000 0 00355 PAR O1 .005
00101 3 00000 0 00356 PAR O2 .005
00102 3 00000 0 00503 PAR =-0 .005
00103 3 00000 0 00503 PAR =-0 .005
00104 3 00000 0 00503 PAR =-0 .005
00105 3 00000 0 00001 PAR $DSKER .005
00106 CALL TRFILE(O1,O2,=0,$DSKER) TRUNCATE OUTPUT
00106 0074 00 4 00426 TSX TRFILE,4 .002
00107 3 00000 0 00355 PAR O1 .004
00110 3 00000 0 00356 PAR O2 .004
00111 3 00000 0 00471 PAR =0 .004
00112 3 00000 0 00001 PAR $DSKER .004
00113 -0520 00 0 00362 NZT PUNSW. CHECK FOR 7PUNCH WRITE
00114 0020 00 0 00240 TRA 7READ OTHERWISE, READ 7PUNCH
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 4
7PUNCH - CREATE 7PUNCH CARD IMAGES.
00115 CALL $BFREAD(I1,I2(WORD,,1)U.EOF,EOFCT,$DSKER) READ FIRST WORD
00115 0074 00 4 00002 TSX $BFREAD,4 .002
00116 3 00000 0 00353 PAR I1 .004
00117 3 00000 0 00354 PAR I2 .004
00120 3 00001 0 00365 PAR WORD,,1 .004
00121 3 00000 0 00331 PAR U.EOF .004
00122 3 00000 0 00363 PAR EOFCT .004
00123 3 00000 0 00001 PAR $DSKER .004
00124 0774 00 4 00030 NEXT AXT CLTH,4 ZERO OUT THE CARD
00125 0600 00 4 00416 STZ CARD+CLTH,4 ..
00126 2 00001 4 00125 TIX *-1,4,1 ..
00127 CALL $BFREAD(I1,I2(CARD+3,,CLTH-2)EOF1,EOFCT,$DSKER)
00127 0074 00 4 00002 TSX $BFREAD,4 .002
00130 3 00000 0 00353 PAR I1 .004
00131 3 00000 0 00354 PAR I2 .004
00132 3 00026 0 00371 PAR CARD+3,,CLTH-2 .004
00133 3 00000 0 00200 PAR EOF1 .004
00134 3 00000 0 00363 PAR EOFCT .004
00135 3 00000 0 00001 PAR $DSKER .004
00136 -0500 00 0 00365 CAL WORD INSERT FIRST WORD FROM PREVIOUS READ
00137 0602 00 0 00370 SLW CARD+2 ..
00140 -0500 00 0 00416 CAL CARD+CLTH SAVE EXTRA WORD
00141 0602 00 0 00365 SLW WORD ..
00142 0600 00 0 00416 STZ CARD+CLTH AND CLEAR IT
00143 0774 00 4 00026 AXT CLTH-2,4 COMPARE ALL WORDS
00144 -0340 00 4 00416 LAS LAS CARD+CLTH,4 ..
00145 0020 00 0 00147 TRA *+2 ..
00146 0020 00 0 00152 TRA SAME ..
00147 CALL WRITE(COUNT) WORDS ARE DIFFERENT, WRITE OUT CARD
00147 0074 00 4 00207 TSX WRITE,4 .002
00150 3 00000 0 00364 PAR COUNT .004
00151 0020 00 0 00124 TRA NEXT AND CONTINUE
00152 2 00001 4 00144 SAME TIX LAS,4,1 IF WORDS ARE ALL THE SAME,
00153 0774 00 4 00025 AXT CLTH-3,4 CLEAR ALL BUT FIRST WORD
00154 0600 00 4 00416 STZ CARD+CLTH,4 ..
00155 2 00001 4 00154 TIX *-1,4,1 ..
00156 0774 00 1 00027 AXT CLTH-1,1 KEEP COUNT OF IDENTICAL WORDS IN XR1
00157 RDLP CALL $BFREAD(I1,I2(WORD,,1)EOF2,EOFCT,$DSKER) READ NEXT WORD
00157 0074 00 4 00002 TSX $BFREAD,4 .002
00160 3 00000 0 00353 PAR I1 .004
00161 3 00000 0 00354 PAR I2 .004
00162 3 00001 0 00365 PAR WORD,,1 .004
00163 3 00000 0 00176 PAR EOF2 .004
00164 3 00000 0 00363 PAR EOFCT .004
00165 3 00000 0 00001 PAR $DSKER .004
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 5
7PUNCH - CREATE 7PUNCH CARD IMAGES.
00166 -0500 00 0 00365 CAL WORD PICK UP THE WORD
00167 0322 00 0 00370 ERA CARD+2 AND COMPARE
00170 -0100 00 0 00172 TNZ DIFF ..
00171 1 00001 1 00157 TXI RDLP,1,1 IF WORD IS THE SAME, KEEP READING
00172 0634 00 1 00363 DIFF SXA EOFCT,1 SAVE REPETITION COUNT
00173 CALL WRITE(EOFCT) WRITE OUT THE CARD
00173 0074 00 4 00207 TSX WRITE,4 .002
00174 3 00000 0 00363 PAR EOFCT .004
00175 0020 00 0 00124 TRA NEXT AND CONTINUE
00176 0634 00 1 00363 EOF2 SXA EOFCT,1 SAVE REPETITION COUNT
00177 0020 00 0 00203 TRA CMEOF AND GO TO COMMON EOF SECTION
00200 -0500 00 0 00363 EOF1 CAL EOFCT ADD ONE TO EOF COUNT
00201 0361 00 0 00472 ACL =1 TO INCLUDE WORD PREVIOUSLY READ
00202 0602 00 0 00363 SLW EOFCT ..
00203 -0625 00 0 00361 CMEOF STL LAST. SET LAST CARD INDIC.
00204 CALL WRITE(EOFCT) AND WRITE OUT LAST CARD
00204 0074 00 4 00207 TSX WRITE,4 .002
00205 3 00000 0 00363 PAR EOFCT .004
00206 0020 00 0 00320 TRA CMEXIT GO CLOSE FILES AND EXIT
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 6
WRITE - WRITE OUT A 7PUNCH CARD.
00207 0634 00 4 00236 WRITE SXA WRX4,4 SAVE XR4
00210 -0500 60 4 00001 CAL* 1,4 PICK UP WORD COUNT
00211 -0765 00 0 00006 LGR 6 LOW ORDER 6 BITS INTO MQ
00212 0767 00 0 00003 ALS 3 LEAVE GAP FOR 7-9 PUNCH
00213 -0501 00 0 00473 ORA =O5 AND INSERT IT
00214 -0763 00 0 00006 LGL 6 SHIFT FIRST 6 BITS BACK IN
00215 0767 00 0 00022 ALS 18 AND SHIFT TO DECREMENT
00216 0534 00 4 00360 LXA SEQNO.,4 PICK UP SEQUENCE NO.
00217 1 00001 4 00220 TXI *+1,4,1 AND CALCULATE NEXT NUMBER
00220 0634 00 4 00360 SXA SEQNO.,4 ..
00221 -0501 00 0 00360 ORA SEQNO. 'OR' IN THE SEQ. NO. AND PREFIX
00222 0520 00 0 00361 ZET LAST. CHECK FOR LAST CARD
00223 -0501 00 0 00357 ORA 1TAG IF LAST CARD, MAKE TAG NON-ZERO
00224 0602 00 0 00366 SLW CARD AND STORE INTO FIRST WORD OF CARD
00225 0774 00 4 00026 AXT CLTH-2,4 NOW COMPUTE THE CHECKSUM
00226 0361 00 4 00416 ACL CARD+CLTH,4 ..
00227 2 00001 4 00226 TIX *-1,4,1 ..
00230 0602 00 0 00367 SLW CARD+1 AND STORE IN CARD
00231 CALL $BFWRIT(O1,O2(CARD,,CRDLTH)$DSKER) WRITE OUT CARD
00231 0074 00 4 00003 TSX $BFWRIT,4 .002
00232 3 00000 0 00355 PAR O1 .004
00233 3 00000 0 00356 PAR O2 .004
00234 3 00034 0 00366 PAR CARD,,CRDLTH .004
00235 3 00000 0 00001 PAR $DSKER .004
00236 0774 00 4 00000 WRX4 AXT **,4 RESTORE XR4
00237 0020 00 4 00002 TRA 2,4 AND RETURN
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 7
7READ - READ AND INTERPRET 7PUNCH CARD IMAGES.
00240 7READ CALL $BFREAD(I1,I2(CARD,,28)U.EOF,EOFCT,$DSKER) READ A CARD
00240 0074 00 4 00002 TSX $BFREAD,4 .002
00241 3 00000 0 00353 PAR I1 .004
00242 3 00000 0 00354 PAR I2 .004
00243 3 00034 0 00366 PAR CARD,,28 .004
00244 3 00000 0 00331 PAR U.EOF .004
00245 3 00000 0 00363 PAR EOFCT .004
00246 3 00000 0 00001 PAR $DSKER .004
00247 -0500 00 0 00366 CAL CARD GET FIRST WORD
00250 -0765 00 0 00030 LGR 24 ASSEMBLE WORD-COUNT
00251 0771 00 0 00003 ARS 3 ..
00252 -0763 00 0 00006 LGL 6 ..
00253 -0320 00 0 00475 ANA =O7777 ..
00254 0734 00 1 00000 PAX ,1 WORDCT IN XR1
00255 -3 00000 1 00240 TXL 7READ,1,0 IGNORE ZERO WDCT
00256 0534 00 4 00360 LXA SEQNO.,4 PICK UP SEQUENCE NUMBER
00257 1 00001 4 00260 TXI *+1,4,1 AND CALCULATE NEXT NUMBER
00260 0634 00 4 00360 SXA SEQNO.,4 ..
00261 -0500 00 0 00366 CAL CARD GET FIRST WORD AGAIN
00262 0322 00 0 00360 ERA SEQNO. COMPARE AGAINST SEQUENCE NUMBER
00263 -0320 00 0 00513 ANA =O700000077777 ..
00264 -0100 00 0 00334 TNZ SEQERR SEQUENCE/VALIDITY ERROR IF NON-ZERO
00265 -0500 00 0 00366 SAVSEQ CAL CARD GET FIRST WORD AGAIN
00266 0621 00 0 00360 STA SEQNO. SAVE SEQUENCE NO. FOR NEXT TEST
00267 0625 00 0 00357 STT 1TAG AND TAG FOR LAST CARD CHECK
00270 0774 00 4 00026 AXT CLTH-2,4 ADD UP CKSM
00271 -0500 00 0 00366 CAL CARD ..
00272 0361 00 4 00416 ACL CARD+CLTH,4 ..
00273 2 00001 4 00272 TIX *-1,4,1 ..
00274 -0340 00 0 00367 LAS CARD+1 COMPARE WITH CHECKSUM
00275 -0520 00 0 00367 NZT CARD+1 IGNORE ZERO CHECKSUM
00276 0020 00 0 00300 TRA *+2 ..
00277 0020 00 0 00342 TRA CHKERR OOPS
00300 3 00026 1 00310 CKRPT TXH RPEAT,1,CLTH-2 IF WDCT LARGER THAN 1 CARD
00301 -0634 00 1 00305 SXD WR+3,1 STORE FOR WRITE
00302 WR CALL $BFWRIT(O1,O2(CARD+2,,**)$DSKER) WRITE IT OUT
00302 0074 00 4 00003 TSX $BFWRIT,4 .002
00303 3 00000 0 00355 PAR O1 .004
00304 3 00000 0 00356 PAR O2 .004
00305 3 00000 0 00370 PAR CARD+2,,** .004
00306 3 00000 0 00001 PAR $DSKER .004
00307 0020 00 0 00316 TRA CHKEOF CHECK FOR EOF
00310 RPEAT CALL $BFWRIT(O1,O2(CARD+2,,1)$DSKER) REPEAT SAME WORD
00310 0074 00 4 00003 TSX $BFWRIT,4 .002
00311 3 00000 0 00355 PAR O1 .004
00312 3 00000 0 00356 PAR O2 .004
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 8
7READ - READ AND INTERPRET 7PUNCH CARD IMAGES.
00313 3 00001 0 00370 PAR CARD+2,,1 .004
00314 3 00000 0 00001 PAR $DSKER .004
00315 2 00001 1 00310 TIX RPEAT,1,1 ..
00316 -0520 00 0 00357 CHKEOF NZT 1TAG IF TAG NON-ZERO
00317 0020 00 0 00240 TRA 7READ ..
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 9
COMMON EXIT SECTION.
00320 CMEXIT CALL $BFCLOS(=HALL,=-0,$DSKER) CLOSE ALL FILES
00320 0074 00 4 00004 TSX $BFCLOS,4 .002
00321 3 00000 0 00477 PAR =HALL .004
00322 3 00000 0 00503 PAR =-0 .004
00323 3 00000 0 00001 PAR $DSKER .004
00324 CHN CALL CHNCOM(0) EXIT TO CHNCOM
00324 0074 00 4 00427 TSX CHNCOM,4 .002
00325 3 00000 0 00000 PAR 0 .004
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 10
ERROR SECTION.
00326 NOPAR COMENT C1,5( INCOMPLETE SET OF PARAMETERS.)
00326 0074 00 4 00430 TSX WRFLX,4 .003
00327 3 00005 0 00431 PAR C1,,5 .005
00330 0021 00 0 00324 XIT CHN ..
00331 U.EOF COMENT C2,9(UNEXPECTED END-OF-FILE ENCOUNTERED READING INPUT.)
00331 0074 00 4 00430 TSX WRFLX,4 .003
00332 3 00011 0 00436 PAR C2,,9 .005
00333 0021 00 0 00324 XIT CHN ..
00334 SEQERR CALL $OCABC(SEQNO.) CONVERT SEQ. NO. TO BCD
00334 0074 00 4 00005 TSX $OCABC,4 .002
00335 3 00000 0 00360 PAR SEQNO. .004
00336 0601 00 0 00457 STO C3+8 AND STORE IN MESSAGE
00337 COMENT C3,9( 7PUNCH SEQUENCE/VALIDITY ERROR AFTER CARD NO.)
00337 0074 00 4 00430 TSX WRFLX,4 .003
00340 3 00011 0 00447 PAR C3,,9 .005
00341 0021 00 0 00265 XIT SAVSEQ CONTINUE PROCESSING CARDS
00342 CHKERR CALL $OCABC(SEQNO.) CONVERT SEQ. NO. TO BCD
00342 0074 00 4 00005 TSX $OCABC,4 .002
00343 3 00000 0 00360 PAR SEQNO. .004
00344 0601 00 0 00464 STO C4+4 ..
00345 COMENT C4,5( CHECKSUM ERROR ON CARD)
00345 0074 00 4 00430 TSX WRFLX,4 .003
00346 3 00005 0 00460 PAR C4,,5 .005
00347 0021 00 0 00300 XIT CKRPT KEEP GOING
00350 NAMERR COMENT C5,4( ILLEGAL COMMAND NAME.)
00350 0074 00 4 00430 TSX WRFLX,4 .003
00351 3 00004 0 00465 PAR C5,,4 .005
00352 0021 00 0 00324 XIT CHN ..
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 11
STORAGE AND CONSTANTS.
00353 0 00000 0 00000 I1 PZE
00354 0 00000 0 00000 I2 PZE
00355 0 00000 0 00000 O1 PZE
00356 0 00000 0 00000 O2 PZE
00357 0 00000 1 00000 1TAG PZE ,1
00360 -3 00000 0 77777 SEQNO. SVN -1
00361 0 00000 0 00000 LAST. PZE 0
00362 0 00000 0 00000 PUNSW. PZE 0
00363 0 00000 0 00000 EOFCT PZE
00364 0 00000 0 00026 COUNT PZE CLTH-2
00365 0 00000 0 00000 WORD PZE
00366 CARD BSS CRDLTH
00422 RMT * REMOTE SEQUENCES
00422 0101 00 0 00506 SETBRK TIA =HSETBRK .002
00423 0101 00 0 00501 GETCLS TIA =HGETCLS .002
00424 0101 00 0 00502 GETMEM TIA =HGETMEM .002
00425 0101 00 0 00507 SETMEM TIA =HSETMEM .002
00426 0101 00 0 00510 TRFILE TIA =HTRFILE .002
00427 0101 00 0 00500 CHNCOM TIA =HCHNCOM .002
00430 0101 00 0 00511 WRFLX TIA =HWRFLX .002
00431 603145234644 C1 BCI 5, INCOMPLETE SET OF PARAMETERS. .002
00432 474325632560
00433 622563604626
00434 604721512144
00435 256325516233
00436 644525674725 C2 BCI 9,UNEXPECTED END-OF-FILE ENCOUNTERED READING INPUT. .002
00437 236325246025
00440 452440462640
00441 263143256025
00442 452346644563
00443 255125246051
00444 252124314527
00445 603145476463
00446 336060606060
00447 600747644523 C3 BCI 9, 7PUNCH SEQUENCE/VALIDITY ERROR AFTER CARD NO. .002
00450 306062255064
00451 254523256165
00452 214331243163
00453 706025515146
00454 516021266325
00455 516023215124
00456 604546336060
00457 606060606060
00460 602330252342 C4 BCI 5, CHECKSUM ERROR ON CARD .002
00461 626444602551
00462 514651604645
00463 602321512460
00464 606060606060
00465 603143432527 C5 BCI 4, ILLEGAL COMMAND NAME. .002
00466 214360234644
00467 442145246045
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 12
STORAGE AND CONSTANTS.
00470 214425336060
END
LITERALS
00471 000000000000
00472 000000000001
00473 000000000005
00474 000000000660
00475 000000007777
00476 074764452330
00477 214343606060
00500 233045234644
00501 272563234362
00502 272563442544
00503 400000000000
00504 516060606060
00505 600751252124
00506 622563225142
00507 622563442544
00510 635126314325
00511 665126436760
00512 666060606060
00513 700000077777
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 1
POST PROCESSOR ASSEMBLY DATA
514 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
431 C1 327
436 C2 332
447 C3 336, 340
460 C4 344, 346
465 C5 351
353 I1 24, 70, 116, 130, 160, 241
354 I2 31, 71, 117, 131, 161, 242
355 O1 25, 44, 100, 107, 232, 303, 311
356 O2 32, 51, 101, 110, 233, 304, 312
302 WR 301
324 CHN 7, 330, 333, 352
144 LAS 152
66 OPR 53, 55
76 OPW 57, 61, 63
357 1TAG 223, 267, 316
366 CARD 11, 12, 23, 30, 35, 45, 125, 132, 137, 140, 142, 144, 154, 167, 224, 226, 230
234, 243, 247, 261, 265, 271, 272, 274, 275, 305, 313
30 CLTH 6, 124, 125, 132, 140, 142, 143, 144, 153, 154, 156, 225, 226, 270, 272, 300, 364
172 DIFF 170
200 EOF1 133
176 EOF2 163
124 NEXT 151, 175
157 RDLP 171
152 SAME 146
47 STAR 41
365 WORD 120, 136, 141, 162, 166
236 WRX4 207
240 7READ 114, 255, 317
300 CKRPT 347
203 CMEOF 177
364 COUNT 150
1 DSKER 75, 105, 112, 123, 135, 165, 235, 246, 306, 314, 323
363 EOFCT 122, 134, 164, 172, 174, 176, 200, 202, 205, 245
37 FENCE 26, 33, 36, 46
361 LAST. 203, 222
326 NOPAR 27, 34, 40
5 OCABC 334, 342
310 RPEAT 300, 315
331 U.EOF 121, 244
430 WRFLX 326, 331, 337, 345, 350
207 WRITE 147, 173, 204
4 BFCLOS 320
0 BFOPEN 66, 76
2 BFREAD 115, 127, 157, 240
3 BFWRIT 231, 302, 310
316 CHKEOF 307
342 CHKERR 277
427 CHNCOM 324
320 CMEXIT 206
34 CRDLTH 6, 234, 366
423 GETCLS 10
1 7PUNCH/7READ - CREATE AND INTERPRET 7PUNCH CARD IMAGES. PAGE 2
POST PROCESSOR ASSEMBLY DATA
424 GETMEM 52
350 NAMERR 17, 21
23 NAM.OK 15, 23
362 PUNSW. 22, 113
265 SAVSEQ 341
334 SEQERR 264
360 SEQNO. 216, 220, 221, 256, 260, 262, 266, 335, 343
422 SETBRK 6
425 SETMEM 65
426 TRFILE 106
0 NO ERROR IN ABOVE ASSEMBLY.
1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1
REVISED 9/14/65 - NOEL I. MORRIS
UNLIST
M CALL MACRO SUBR,LIST
00000 ENTRY DSKER
00000 -0500 00 0 00006 DSKER CAL =HPRNTER
00001 0560 00 0 00004 LDQ =O-71
00002 CALL NEXCOM
00002 0074 00 4 00003 TSX NEXCOM,4 .002
00003 RMT * REMOTE SEQUENCES
00003 0101 00 0 00005 NEXCOM TIA =HNEXCOM .002
END
LITERALS
00004 400000000071
00005 452567234644
00006 475145632551
1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
0 DSKER 0
3 NEXCOM 2
0 NO ERROR IN ABOVE ASSEMBLY.
A.DBG BCD 09/20/68 0218.4 40438 00000
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 1
DEFINITIONS.
PCC ON PRINT LBL CARD.
LBL FDBG BINARY CARD LABEL.
PCC OFF DON'T PRINT PMC CARDS.
*
00001 ENTRY A.DBG
*
* USEFUL DEFINITIONS.
00000 212346512560 ACORE
00000 .. EQU ** MODIFICATION SYMBOL.
-0625 71 1 20000 SETF OPSYN STL SET FLAG.
0600 71 1 60000 CLEAR OPSYN STZ CLEAR FLAG.
3 00011 1 60000 PAR OPSYN BRN PARAMETER POINTER.
2 00017 1 60000 BLK OPSYN TIX BLOCK POINTER.
-1 00011 1 20000 FMT OPD 500011120000 FORMAT POINTER.
-1 00011 1 20000 IOP OPD 500011120000 I/O PARAMETER POINTER.
-1 00001 1 20000 ENDIO OPSYN STR END OF I/O LIST.
-0 17560 0 05336 SHOW OPSYN PMC SAVE PRESENT DEFINITION OF PMC.
*
TSS MACRO A CALL SUPERVISOR SUBROUTINE.
GEN ,TSX(A,4) GENERATE CALL INSTRUCTION.
RMT
IFF A,X IF ARGUMENT IS UNDEFINED,
GEN (A),TIA(=H'A) INSERT THE TRAP INSTRUCTION.
RMT
END TSS
*
TYPE MACRO N,COM,LOC TYPE COMMENT.
GEN ,TSX(TYPE,4) CALL SUBPROGRAM.
GEN ,PAR(LOC) POINTER TO BCI STRING.
RMT
IFF LOC,X IF LOCATION SYMBOL UNDEFINED, GENERATE BCI.
GEN LOC,BCI(N,COM) GENERATE THE BCI STRING.
RMT
END TYPE
*
TYPA MACRO N,COM,LOC
GEN ,TSX(TYPA,4) CALL SUBPROGRAM.
GEN ,PAR(LOC) POINTER TO BCI STRING.
RMT
IFF LOC,X IF LOCATION SYMBOL UNDEFINED, GENERATE BCI.
GEN LOC,BCI(N,COM) GENERATE THE BCI STRING.
RMT
END TYPA
*
GEN MACRO LOC,OP,AD SURROUND GENERATED WORD WITH PMC ON, OFF.
PMC ON PRINT THE WORD.
LOC OP AD ..
PMC OFF RETURN TO NORMAL MODE.
END GEN
*
OUTSUB MACRO NAME DEFINE SUBROUTINE CALL.
IRP NAME CONSIDER EACH NAME IN LIST.
NAME MACRO ARG DEFINE IT.
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 2
DEFINITIONS.
GEN ,CLA(ARG) GENERATE A CLA.
GEN ,TSX(NAME,4) CALL THE SUBROUTINE.
END NAME THAT'S IT FOR THIS DEFINITION.
IRP ANY MORE.Q
END OUTSUB NO.
*
00001 OUTSUB (TYO,BCDOUT,NAMOUT,INTOUT,OCTOUT,FLDPRT)
*
TEQ MACRO LOC,SAMPLE TRANSFER IF EQUAL.
GEN ,LAS(SAMPLE) COMPARE C(AC) WITH C(SAMPLE).
GEN ,TRA(*+2) C(AC) .NE. C(SAMPLE), SKIP.
GEN ,TRA(LOC) C(AC) .E. C(SAMPLE), TRANSFER.
END TEQ
*
TNE MACRO LOC,SAMPLE TRANSFER IF NOT EQUAL.
TEQ *+2,(SAMPLE) IF C(AC) .E. C(SAMPLE), SKIP.
GEN ,TRA(LOC) C(AC) .NE. C(SAMPLE), TRANSFER.
END TNE
*
TBL MACRO LOC TRANSFER IF BLANK.
TEQ (LOC),=H00000 ..
END TBL
*
TNB MACRO LOC TRANSFER IF NOT BLANK.
TNE (LOC),=H00000 ..
END TNB
*
TCR MACRO LOC TRANSFER IF CARRIAGE RETURN.
TEQ (LOC),=O55 ..
END TCR
*
TNCR MACRO LOC TRANSFER IF NOT CARRIAGE RETURN.
TNE (LOC),=O55 ..
END TNCR
*
MCALL MACRO NAME,ARG GENERATE MAD FUNCTION CALL.
TSS NAME CALL THE FUNCTION.
IRP ARG EXPAND THE ARGUMENT LIST.
PTR ARG ..
IRP
END MCALL
*
PTR MACRO A,B,C GENERATE ARGUMENT POINTER.
... SET * REMEMBER CURRENT LOCATION.
IFF 1,...,B IS B '...'.Q
GEN ,BLK(A,,C) YES, USE MAD BLOCK NOTATION.
IFF 1,,B IS B VOID.Q
GEN ,PAR(A,,C) YES, USE FAP BLOCK NOTATION.
IFF *-...,X DID EITHER OF THE ABOVE TURN OUT TRUE.Q
GEN ,PAR(A) NO, USE SINGLE ARGUMENT POINTER.
END PTR
*
FNC MACRO NAME DEFINE FUNCTION NAME.
IRP NAME CONSIDER EACH NAME IN LIST.
NAME MACRO ARG DEFINE IT..
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 3
DEFINITIONS.
MCALL NAME(ARG)
END NAME
IRP
END FNC
*
00001 FNC (OPEN,BUFFER,RDWAIT,CLOSE,IODIAG)
*
-0 17735 0 05336 PMC OPSYN NULL TURN OFF MACRO EXPANSION
*
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 4
MAIN CONTROL SECTION, READS AND INTERPRETS REQUESTS.
00001 A.DBG SYN *
00001 QBACK SYN *
00001 TYPA 2,(BON JOUR.*)
00003 -0625 00 0 01426 SETF CRFLG MAKE TYI READ A FRESH LINE.
00004 0074 00 4 02175 SAME1 TSX CR,4 THEN CARRIAGE RETURN.
00005 0074 00 4 01705 TSX CHFIL,4 CHECK AND SET UP FOR FILE INPUT.
00006 0074 00 4 01377 MAIN TSX SKIPCR,4 MOVE TO BEGINNING OF NEXT REQUEST.
00007 0074 00 4 02427 IGNORE TSX BCSCH,4 GET THE FIRST SUBFIELD.
00010 0600 00 0 02133 CLEAR INRUPT RESET THE INTERRUPT FLAG.
00011 0601 00 0 00730 STO BC SAVE BREAK CHARACTER AND INDICATOR.
00012 -0600 00 0 00065 STQ SUBF SAVE CHARACTERS IN SUBFIELD.
00013 TBL RQST CHECK FOR REQUEST IF BLANK,
00016 TNCR LOCF OR CR. OTHERWISE, LOC FIELD.
00022 -0130 00 0 00000 RQST XCL
00023 TEQ BLANK,=H IS FIELD ALL BLANK.Q
00026 -0320 00 0 11400 ANA =O777777777700
00027 TEQ ONECH,(=H 0) IS IT ONLY ONE CHARACTER.Q
00032 0500 00 0 00730 LOCF CLA BC RESTORE THE DATA.
00033 0560 00 0 00065 LDQ SUBF
00034 0020 00 0 00053 TRA LOCNXT GO CONTINUE SCANNING THE LINE.
*
00035 0500 00 0 00730 BLANK CLA BC GET BREAK CHARACTER.
00036 TCR NEXT IF CARRIAGE RETURN, LOOK AT NEXT LOCATION.
00041 TBL IGNORE IF BLANK, TRY AGAIN.
00044 0020 00 0 00032 TRA LOCF OTHERWISE WE HAVE A LOCATION FIELD.
*
00045 -0500 00 0 00065 ONECH CAL SUBF ONLY ONE CHARACTER.
00046 -0320 00 0 11326 ANA =O77 GET RID OF BLANKS.
00047 -0340 00 0 11304 LAS =7 IS CHARACTER A 'LETTER.Q'.
00050 0020 00 0 00230 TRA CMND YES, ASSUME IT A REQUEST.
00051 0761 00 0 00000 NOP NO,
00052 0020 00 0 00032 TRA LOCF ASSUME IT A LOCATION.
*
00053 0074 00 4 02466 LOCNXT TSX EVAL,4 EVALUATE THE FIRST FIELD (LOCATION).
00054 TBL PUT OK, NOW CHECK THE LOC., GET WORD.
00057 TNCR ILF IT MUST BE THE END OF HTE LINE.
00063 -0600 00 0 00202 STQ LOC SAVE THE LOCATION.
00064 0020 00 0 00421 TRA RLOOK GO PRINT ITS CONTENTS.
*
00065 0 00000 0 00000 SUBF
00066 0 00000 0 00000 MEMBND CURRENT MEMORY BOUND.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 5
SYMIN. GET SYMBOLIC 'FAP WORD' FROM INPUT LINE.
00067 0634 00 4 00154 SYMIN SXA SYMX,4 SAVE RETURN.
00070 0634 00 1 00155 SXA SYMY,1 SAVE XR 1.
00071 0600 00 0 00733 STZ OP CLEAR THE WORD PARTS.
00072 0600 00 0 00734 STZ ADD
00073 0600 00 0 00735 STZ TAG
00074 0600 00 0 00736 STZ DEC
00075 0074 00 4 02427 TSX BCSCH,4 GET THE OP. CODE, NEXT DELIMITER.
00076 0602 00 0 00730 SLW BC SAVE BREAK CHARACTER.
00077 -0600 00 0 00733 STQ OP SAVE THE RIGHT-ADJUSTED OP CODE.
00100 -0130 00 0 00000 XCL
00101 0074 00 4 02546 TSX LADJ,4 ADJUST CODE TO LEFT.
00102 0774 00 1 00014 AXT POPEND-POPORG,1 SET UP COUNT OF PSEUDO-OPS.
00103 POPRET TEQ LOK,(POPEND,1) GO DISPATCH IF THIS IS IT.
00106 2 00002 1 00103 TIX POPRET,1,2 NOT THIS ONE, TRY AGAIN.
00107 -0500 00 0 00733 CAL OP NOT A PSEUDO-OP, GET RIGHT-ADJUSTED CODE.
00110 0074 00 4 10221 TSX OPBIN,4 LOOK UP THE CODE.
00111 0602 00 0 00733 SLW OP
00112 -0500 00 0 00730 CAL BC GET BREAK CHARACTER, CHECK IT.
00113 TNB SINP END OF 'LINE', EXIT.
00117 0074 00 4 02472 ADNXT TSX FLDEVL,4 EVALUATE THE ADDRESS FIELD.
00120 -0600 00 0 00734 STQ ADD
00121 TNE SINP,(=H00000,) END OF LINE IF NOT COMMA.
00125 0074 00 4 02472 TSX FLDEVL,4 EVALUATE THE TAG FIELD.
00126 -0600 00 0 00735 STQ TAG
00127 TNE SINP,(=H00000,) END OF LINE IF NOT COMMA.
00133 0074 00 4 02472 TSX FLDEVL,4 EVALUATE THE DECREMENT FIELD.
00134 -0600 00 0 00736 STQ DEC
00135 0601 00 0 00730 SINP STO BC SAVE THE BREAK CHARACTER.
00136 -0500 00 0 00733 CAL OP GET THE OP CODE.
00137 0602 00 0 00731 SLW WORD SAVE IT.
00140 -0501 00 0 00734 ORA ADD INSERT THE ADDRESS.
00141 0621 00 0 00731 STA WORD AND SAVE THE ADDRESS PART.
00142 -0500 00 0 00735 CAL TAG GET THE TAG.
00143 0767 00 0 00017 ALS 15 SHIFT IT INTO POSITION.
00144 -0501 00 0 00731 ORA WORD PUT IT INTO THE WORD.
00145 0625 00 0 00731 STT WORD AND SAVE ONLY THE TAG PART.
00146 -0500 00 0 00736 CAL DEC GET THE DECREMENT.
00147 0767 00 0 00022 ALS 18 SHIFT IT INTO POSITION.
00150 -0501 00 0 00731 ORA WORD COMBINE IT W/ PREVIOUS.
00151 0622 00 0 00731 STD WORD AND SAVE ONLY THE DECREMENT PART.
00152 0560 00 0 00731 LDQ WORD GET THE ENTIRE WORD.
00153 0500 00 0 00730 CLA BC GET THE BREAK CHARACTER.
00154 0774 00 4 00000 SYMX AXT ..,4 RESTORE RETURN (HERE FROM POP).
00155 0774 00 1 00000 SYMY AXT ..,1 RESTORE XR 1.
00156 0020 00 4 00001 TRA 1,4 AND EXIT.
*
00157 0500 00 0 00730 LOK CLA BC GET THE BREAK CHARACTER.
00160 TNB ILF MAKE SURE WE HAVE A WORD OF DATA.
00164 -0774 00 4 00153 AXC SYMX-1,4 SET UP RETURN INDEX.
00165 0020 60 1 00203 TRA* POPEND+1,1 DISPATCH ON THE PSEUDO-OP.
*
00166 222324606060 POPORG BCI 1,BCD HOLLERITH INPUT.
00167 0 00000 0 02273 BCDIN ..
00170 304643606060 BCI 1,HOL ..
00171 0 00000 0 02273 BCDIN ..
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 6
SYMIN. GET SYMBOLIC 'FAP WORD' FROM INPUT LINE.
00172 264346606060 BCI 1,FLO FLOATING POINT INPUT.
00173 0 00000 0 01104 FLOIN ..
00174 314563606060 BCI 1,INT DECIMAL INTEGER INPUT.
00175 0 00000 0 01007 INTIN ..
00176 414563606060 BCI 1,JNT FORTRAN INTEGER INPUT.
00177 0 00000 0 01012 JNTIN ..
00200 462363606060 BCI 1,OCT OCTAL INPUT.
00201 0 00000 0 01004 OCTIN ..
00202 POPEND EQU *
*
00202 0 00000 0 00000 LOC CURRENT LOCATION.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 7
ILF. COMMENT ON UNDECIPHERABLE REQUEST.
00203 ILF TCR ILFCR IF CARRIAGE RETURN, GIVE SPECIAL COMMENT.
00206 TBL ILFBL SAME WITH BLANK.
00211 0601 00 0 00227 STO ILFCH SAVE THE CHARACTER.
00212 0074 00 4 02201 TSX QUOTE,4 TYPE LEFT QUOTE.
00213 TYO ILFCH TYPE THE CHARACTER.
00215 0074 00 4 02201 TSX QUOTE,4 TYPE THE RIGHT QUOTE.
00216 ILFJN TYPE 5,( ENCOUNTERED UNEXPECTEDLY.*)
00220 0020 00 0 00006 TRA MAIN GO GET THE NEXT REQUEST.
*
00221 ILFCR TYPA 3,(END OF REQUEST*)
00223 0020 00 0 00216 TRA ILFJN GO TYPE THE REST OF THE MESSAGE.
*
00224 ILFBL NAMOUT =HBLANK TYPE THE FIRST PART OF COMMENT.
00226 0020 00 0 00216 TRA ILFJN GO GET THE REST.
*
00227 0 00000 0 00000 ILFCH STORAGE FOR THE CHARACTER.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 8
DISPATCH ON AND SERVICE REQUEST.
00230 0774 00 1 00036 CMND AXT CEND-CORG,1 SET UP,
00231 TEQ CDISP,(CEND,1) FOUND, GO DISPATCH.
00234 2 00002 1 00231 TIX *-3,1,2 TRY AGAIN.
00235 0020 00 0 00032 TRA LOCF NOT A REQUEST, ASSUME A LOCATION.
*
00236 -0500 00 1 00300 CDISP CAL CEND+1,1 GET LOCATION W/ POINTERS.
00237 -0737 00 2 00000 PDC ,2 PUT FIRST POINTER IN XR 2.
00240 0020 00 2 00000 TRA ,2 DISPATCH ON IT.
*
00241 CORG EQU * REQUEST DISPATCH TABLE.
00241 000000000021 BCI 1,00000A
00242 0 02703 0 00000 ,,SETABS SET MODE TO ABSOLUTE
00243 000000000023 BCI 1,00000C
00244 0 00345 0 00000 ,,VERIFY OR COMPARE.
00245 000000000024 BCI 1,00000D
00246 0 00277 0 00000 ,,DPOSIT PATCH IN SYMBOLIC.
00247 000000000025 BCI 1,00000E
00250 0 00671 0 00000 ,,DEF DEFINE.
00251 000000000026 BCI 1,00000F
00252 0 00424 0 06142 FLOOUT,,LOOK 'LOOK' IN FLOATING-POINT.
00253 000000000030 BCI 1,00000H
00254 0 00424 0 02251 BCDOUT,,LOOK LOOK AT A BCD WORD.
00255 000000000031 BCI 1,00000I
00256 0 00424 0 06252 INTOUT,,LOOK LOOK AT A FULL-WORD INTEGER.
00257 000000000041 BCI 1,00000J
00260 0 00424 0 06251 DECOUT,,LOOK LOOK AT A FORTRAN INTEGER.
00261 000000000043 BCI 1,00000L
00262 0 00561 0 00000 ,,YANK FIND LOAD ADDRESS OF PROGRAM.
00263 000000000046 BCI 1,00000O OCTAL LOOK.
00264 0 00424 0 06247 OCTOUT,,LOOK LOOK IN OCTAL.
00265 000000000051 BCI 1,00000R
00266 0 02712 0 00000 ,,SETREL SET MODE TO RELATIVE
00267 000000000050 BCI 1,00000Q
00270 0 00403 0 00000 ,,DISMIS OR QUIT.
00271 000000000062 BCI 1,00000S
00272 0 00424 0 02343 SYMPRT,,LOOK LOOK AT A WORD SYMBOLICALLY.
00273 000000000063 BCI 1,00000T SYMBOL TABLE.
00274 0 00601 0 00000 ,,TABLE READ SYMBOLS (OR KILL TABLE).
00275 000000000066 BCI 1,00000W
00276 0 00625 0 00000 ,,AUTO WORK = FIND ORIGIN, LOAD SYMBOLS.
00277 CEND EQU *
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 9
D REPLACE CONTENTS OF SPECIFIED LOCATION.
00277 0500 00 0 00730 DPOSIT CLA BC GET BREAK CHARACTER.
00300 TNB ILF IF NOT A BLANK, COMPLAIN.
00304 0074 00 4 02472 TSX FLDEVL,4 EVALUATE LOCATION FIELD.
00305 TNB ILF GRIPE IF NOT ANOTHER ARGUMENT.
00311 -0600 00 0 00202 PUT STQ LOC SAVE THE VALUE OF THE FIELD.
00312 -0500 00 0 00202 CAL LOC
00313 0621 00 0 00342 STA PUT1 SETUP ADDRESS FOR CALL TO SETLOC.
00314 0600 00 0 00344 CLEAR KEYTST RESET KEY TEST SWITCH
00315 0760 00 0 00004 TSTKEY ENK READ IN THE CONSOLE KEYS
00316 -0130 00 0 00000 XCL PLACE IN LAC
00317 -0320 00 0 11331 ANA =O20000 CHECK FOR KEY 22 DOWN
00320 -0100 00 0 00333 TNZ PATCH IF DOWN, OK TO PATCH
00321 TYPA 4,(KEY 22 IS NOT DOWN.*)
00323 -0520 00 0 00344 NZT KEYTST ADDITIONAL MESSAGE FIRST TIME
00324 TYPA 6,( I WILL RETRY EVERY 10 SECONDS.*)
00326 -0625 00 0 00344 SETF KEYTST SET KEY TEST SWITCH
00327 0074 00 4 02175 TSX CR,4 TYPE A CARRIAGE RETURN
00330 -0500 00 0 11307 CAL =10 SLEEP FOR 10 SECONDS
00331 TSS SLEEP ..
00332 0020 00 0 00315 TRA TSTKEY NOW TRY AGAIN
*
00333 PATCH SYN *
00333 0074 00 4 00067 TSX SYMIN,4 GET THE SYMBOLIC WORD.
00334 TNCR ILF IF NOT END OF REQUEST, GRIPE.
00340 -0130 00 0 00000 XCL
00341 TSS SETLOC DEPOSIT WORD INTO A-CORE.
00342 0 00000 0 00000 PUT1 PZE **
00343 0020 00 0 00006 TRA MAIN
*
00344 0 00000 0 00000 KEYTST
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 10
C COMPARE SUBPROGRAM WITH VIRGIN VERSION.
00345 0500 00 0 00730 VERIFY CLA BC GET THE BREAK CHARACTER.
00346 TNB ILF IF NO ARGUMENTS, GRIPE.
00352 0074 00 4 02427 TSX BCSCH,4 ASSEMBLE THE ENTRY NAME.
00353 -0600 00 0 00665 STQ NAME SAVE IT.
00354 0602 00 0 00730 SLW BC AND SAVE THE BREAK CHARACTER.
00355 -0130 00 0 00000 XCL MOVE THE NAME TO THE AC.
00356 0074 00 4 02546 TSX LADJ,4 LEFT ADJUST IT.
00357 0074 00 4 00737 TSX ORGFND,4 FIND ITS ORIGIN.
00360 0602 00 0 00732 SLW PGMORG SAVE THE ORIGIN.
00361 0500 00 0 00730 CLA BC GET THE BREAK CHARACTER.
00362 TCR VERGO IF CARR. RET., DON'T TRY ANOTHER ARG.
00365 TNB ILF ANOTHER ARGUMENT MUST BE SET OFF BY BLANK.
00371 0074 00 4 02427 TSX BCSCH,4 IF NOT, GET THE FILE NAME.
00372 TNCR ILF GRIPE IF MORE ARGUMENTS.
00376 -0600 00 0 00665 STQ NAME SAVE IT.
00377 -0500 00 0 00665 VERGO CAL NAME ALL SET, GET THE FILE NAME.
00400 0560 00 0 00732 LDQ PGMORG AND THE ORIGIN.
00401 0074 00 4 01447 TSX DIFDMP,4 GO TO VERIFY.
00402 0020 00 0 00006 TRA MAIN WHEN DONE, RETURN.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 11
Q END DEBUGGING SESSION.
00403 0500 00 0 00730 DISMIS CLA BC GET THE BREAK CHARACTER.
00404 TNCR ILF IF NOT A CARRIAGE RETURN, COMPLAIN.
00410 TYPE 2,(AU REVOIR.*)
00412 TSS CHNCOM RETURN TO CTSS.
00413 +000000000001 DEC 1 LEAVE THIS CORE IMAGE.
00414 0020 00 0 00001 TRA QBACK GO ANNOUNCE RESTART.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 12
INT. RETURN FROM USER'S INTERRUPT.
00415 0020 00 0 02106 INT TRA NOINT INTERRUPT NEVER FROM USER
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 13
LOOK. PRINT CONTENTS OF SPECIFIED LOCATIONS.
00416 -0500 00 0 00202 NEXT CAL LOC
00417 0361 00 0 11302 ACL =1
00420 0602 00 0 00202 SLW LOC
00421 -0500 00 0 00202 RLOOK CAL LOC PRINT LOCATION.
00422 0074 00 4 00544 TSX DUMP,4 PRINT IT IN THE CURRENT MODE.
00423 0020 00 0 00006 TRA MAIN AND GO BACK.
*
00424 -0500 00 1 00300 LOOK CAL CEND+1,1 GET DISPATCH TABLE ENTRY.
00425 0621 00 0 00461 STA CTSX SAVE IT IN THE SUBROUTINE CALL.
00426 0500 00 0 00730 CLA BC GET THE BREAK CHARACTER.
00427 TCR MAIN IF CARR. RET., EXIT.
00432 TNB ILF IF NOT, IT MUST BE A BLANK.
00436 0074 00 4 02472 TSX FLDEVL,4 EVALUATE THE FIRST FIELD.
00437 -0600 00 0 00457 STQ LOC1 SAVE VALUE OF FIRST FIELD.
00440 TCR GLOOK IF NOT THERE, SKIP EVALUATING SECOND FIELD.
00443 TNB ILF COMPLAIN IF IMPROPER FORMAT.
00447 0074 00 4 02472 TSX FLDEVL,4 IF NOT, EVALUATE IT.
00450 TNCR ILF COMPLAIN IF TOO MANY ARGUMENTS.
00454 -0600 00 0 00460 GLOOK STQ LOC2 SAVE VALUE OF THE SECOND FIELD.
00455 0074 00 4 00462 TSX BLKLK,4 GO LOOK AT THE BLOCK.
00456 0020 00 0 00006 TRA MAIN GO GET THE NEXT REQUEST.
*
00457 0 00000 0 00000 LOC1 BEGINNING OF THE BLOCK.
00460 0 00000 0 00000 LOC2 END OF THE BLOCK.
00461 0074 00 4 02343 CTSX TSX ..+SYMPRT,4 OUTPUT MODE SWITCH.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 14
BLKLK. PRINT CONTENTS OF BLOCK OF STORAGE.
00462 0634 00 1 00537 BLKLK SXA BLKXA,1 SAVE THE XR'S.
00463 0634 00 2 00540 SXA BLKXB,2
00464 0634 00 4 00541 SXA BLKXC,4
00465 0500 00 0 00460 CLA LOC2 LOC 1 PASSES, CHECK THE OTHER LIMIT.
00466 -0340 00 0 00457 LAS LOC1 COMPARE IT W/ THE BEGINNING.
00467 0761 00 0 00000 NOP END .G. BEGINNING,
00470 0020 00 0 00473 TRA FWDLK END .E. BEGINNING, DIRECTION IS FORWARDS.
00471 0774 00 4 00001 AXT 1,4 END .L. BEGINNING, DIRECTION IS BACKWARDS.
00472 0020 00 0 00474 TRA GOLK GO TO IT.
*
00473 0774 00 4 77777 FWDLK AXT -1,4 GET INCREMENT FOR FORWARDS.
00474 -0634 00 4 00514 GOLK SXD BMLK,4 SET UP THE TXI.
00475 -0636 00 4 00527 SCD BNLK,4
00476 0535 00 1 00457 LAC LOC1,1 GET INITIAL LOCATION.
00477 0774 00 2 00000 NORPT AXT 0,2 RESET REPEAT COUNT.
00500 0636 00 1 00502 SCA *+2,1 SAVE FOR CALL TO GETLOC
00501 TSS GETLOC PICK UP THE LOC'N
00502 0 00000 0 00000 PZE ** ..
00503 0602 00 0 00543 SLW PREV IT IS THE NEXT PREVIOUS WORD.
00504 0756 00 1 00000 PCA ,1 PUT THIS LOCATION IN THE AC.
00505 0074 00 4 00544 TSX DUMP,4 GO PRINT THIS LOCATION, ITS CONTENTS.
00506 0756 00 1 00000 LKCMP PCA ,1 GET THIS LOCATION.
00507 TEQ XIT,LOC2 IF WE'VE REACHED THE END, WE ARE DONE.
00512 0520 00 0 02133 ZET INRUPT WAS THERE AN INTERRUPT.Q
00513 0020 00 0 00530 TRA XIT YES, EXIT.
00514 1 00000 1 00515 BMLK TXI *+1,1,.. BUMP POINTER TO THE NEXT LOCATION.
00515 0636 00 1 00517 SCA *+2,1 SAVE FOR CALL TO GETLOC
00516 TSS GETLOC PICK UP THE LOC'N
00517 0 00000 0 00000 PZE ** ..
00520 -0340 00 0 00543 LAS PREV IS IT THE SAME AS THE LAST WORD.Q
00521 0020 00 0 00523 TRA *+2 NO, PROCEED.
00522 1 00001 2 00506 TXI LKCMP,2,1 YES, COUNT REPEAT AND GET NEXT WORD.
00523 -3 00000 2 00477 TXL NORPT,2,0 DIFFERENT, WERE THERE REPEATS.Q
00524 -3 00001 2 00527 TXL BNLK,2,1 YES, BUT DON'T COMMENT IF TWO.
00525 TYPE 2,(REPEAT.*),RPTC YES, SAY SO.
00527 1 00000 1 00477 BNLK TXI NORPT,1,.. GO PRINT THE LAST WORD OF THE GROUP.
*
00530 0636 00 1 00202 XIT SCA LOC,1 UPDATE CURRENT LOCATION.
00531 -3 00000 2 00537 TXL BLKXA,2,0 END OF BLOCK, ARE WE IN A REPEAT.Q
00532 -3 00001 2 00535 TXL XPCA,2,1 YES, BUT DON'T TYPE REPEAT IF ONLY 1.
00533 TYPE 2,(REPEAT.*),RPTC YES, SAY SO.
00535 0756 00 1 00000 XPCA PCA ,1 TYPE THE LAST WORD.
00536 0074 00 4 00544 TSX DUMP,4
00537 0774 00 1 00000 BLKXA AXT ..,1 RESTORE THE XR'S.
00540 0774 00 2 00000 BLKXB AXT ..,2
00541 0774 00 4 00000 BLKXC AXT ..,4
00542 0020 00 4 00001 TRA 1,4 EXIT.
*
00543 0 00000 0 00000 PREV THE 'PREVIOUS' WORD.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 15
DUMP. TYPE CONTENTS OF SINGLE LOCATION.
00544 0634 00 4 00557 DUMP SXA DMPX,4 SAVE RETURN.
00545 -0320 00 0 11332 ANA =O77777 GET RID OF GARBAGE.
00546 0621 00 0 00554 STA DMPL SAVE POINTER TO LOCATION.
00547 0074 00 4 02313 TSX FLDPRT,4 PRINT THE LOCATION FIELD.
00550 TYO =H00000/ TYPE THE DELIMITERS.
00552 0074 00 4 02177 TSX TAB,4 TABULATE.
00553 TSS GETLOC GET WORD TO BE DUMPED FROM A-CORE.
00554 0 00000 0 00000 DMPL PZE **
00555 0522 00 0 00461 XEC CTSX CONVERT IT AND TYPE IT.
00556 0074 00 4 02175 TSX CR,4 CARRIAGE RETURN.
00557 0774 00 4 00000 DMPX AXT ..,4 RESTORE RETURN.
00560 0020 00 4 00001 TRA 1,4 EXIT.
*
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 16
L FIND LOAD ADDRESS OF SUBPROGRAM.
00561 0500 00 0 00730 YANK CLA BC GET BREAK CHARACTER.
00562 TNB ILF
00566 0074 00 4 02427 TSX BCSCH,4 ASSEMBLE THE SYMBOL.
00567 TNCR ILF CHECK THAT THAT IS ALL.
00573 -0130 00 0 00000 XCL MOVE IT TO AC.
00574 0074 00 4 02546 TSX LADJ,4 LEFT ADJUST IT.
00575 0074 00 4 00737 TSX ORGFND,4 FIND THE ORIGIN OF THE SUBPROGRAM.
00576 0602 00 0 00732 SLW PGMORG
00577 0602 00 0 00202 SLW LOC SET CURRENT LOC. TO ORIGIN.
00600 0020 00 0 00006 TRA MAIN
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 17
T READ OR KILL SYMBOL TABLE.
00601 0500 00 0 00730 TABLE CLA BC
00602 TCR KILL NO ARG., KILL THE TABLE.
00605 TNB ILF MAKE SURE WE HAVE THE PROPER FORMAT.
00611 0074 00 4 02427 TSX BCSCH,4 ASSEMBLE THE SYMBOL.
00612 TNCR ILF THIS MUST BE THE END OF THE LINE.
00616 -0130 00 0 00000 XCL MOVE TO AC.
00617 0602 00 0 00665 SLW NAME
00620 0560 00 0 00732 LDQ PGMORG PICK UP RELOCATION CONSTANT.
00621 0074 00 4 02570 TSX TABRD,4 GO READ AND RELOCATE THE SYMBOLS.
00622 0020 00 0 00006 TRA MAIN
*
00623 0074 00 4 02676 KILL TSX KILTAB,4 CLEAR THE SYMBOL TABLE.
00624 0020 00 0 00006 TRA MAIN GET THE NEXT REQUEST.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 18
W FIND ORIGIN AND RELOCATE SYMBOL TABLE.
00625 0500 00 0 00730 AUTO CLA BC GET BREAK CHARACTER.
00626 TNB ILF IF NOT BLANK, COMPLAIN.
00632 0074 00 4 02427 TSX BCSCH,4 GET THE SYMBOL.
00633 0602 00 0 00730 SLW BC
00634 -0130 00 0 00000 XCL
00635 0602 00 0 00665 SLW NAME
00636 0074 00 4 02546 TSX LADJ,4 ADJUST IT TO THE LEFT.
00637 0074 00 4 00737 TSX ORGFND,4 FIND THE ORIGIN OF THE PROGRAM.
00640 0602 00 0 00732 SLW PGMORG SAVE RELOCATION CONSTANT FOR LATER.
00641 0602 00 0 00202 SLW LOC SET CURRENT LOC. TO ORIGIN.
00642 0560 00 0 00665 LDQ NAME GET NAME OF THE FILE.
00643 0500 00 0 00730 CLA BC
00644 TCR WORK
00647 TNB ILF NEXT ARGUMENT MUST BE SEPARATED BY BLANK.
00653 0074 00 4 02427 TSX BCSCH,4 ASSEMBLE THE NAME.
00654 TNCR ILF CHECK FOR END OF REQUEST.
00660 -0600 00 0 00665 WORK STQ NAME
00661 -0130 00 0 00000 XCL MOVE FILE NAME TO AC.
00662 0560 00 0 00732 LDQ PGMORG NOW IS THE TIME.. GET RELOCATION CON.
00663 0074 00 4 02570 TSX TABRD,4 READ AND RELOCATE THE SYMBOL TABLE.
00664 0020 00 0 00006 TRA MAIN
*
00665 0 00000 0 00000 NAME FILE OR ENTRY NAME.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 19
E DEFINE SYMBOL.
00666 FULL TYPE 6,(TABLE FULL, DEFINITION IGNORED.*)
00670 0020 00 0 00726 TRA OOPS GO PROCESS NEXT REQUEST.
*
00671 0500 00 0 00730 DEF CLA BC
00672 TNB ILF
00676 0074 00 4 02472 TSX FLDEVL,4 EVALUATE THE FIRST ARGUMENT.
00677 TNB ILF CHECK FOR SYMBOL FOLLOWING.
00703 -0600 00 0 00202 STQ LOC SAVE SYMBOL VALUE.
00704 0074 00 4 02427 TSX BCSCH,4 GET THE SYMBOL.
00705 TNCR ILF GRIPE IF NOT END OF LINE.
00711 -0130 00 0 00000 XCL
00712 0074 00 4 02546 TSX LADJ,4 ADJUST IT TO THE LEFT.
00713 0560 00 0 00202 LDQ LOC PICK UP VALUE.
00714 0074 00 4 03002 TSX DEFINE,4 ENTER IT IN THE SYMBOL TABLE.
00715 0020 00 0 00666 TRA FULL THE TABLE IS FULL.
00716 0020 00 0 00006 TRA MAIN EXIT.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 20
UNDEF. COMMENT ON UNDEFINED SYMBOL.
00717 0602 00 0 00727 UNDEF SLW USYM SAVE THE UNDEFINED SYMBOL.
00720 0074 00 4 02201 TSX QUOTE,4 TYPE THE LEFT QUOTES.
00721 NAMOUT USYM TYPE THE SYMBOL.
00723 0074 00 4 02201 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
00724 TYPE 3,( IS NOT DEFINED.*)
00726 0020 00 0 00006 OOPS TRA MAIN
*
00727 0 00000 0 00000 USYM STORAGE FOR UNDEFINED SYMBOL.
00730 0 00000 0 00000 BC
00731 0 00000 0 00000 WORD WORD BEING ASSEMBLED.
00732 0 00000 0 00000 PGMORG ORIGIN OF CURRENT SUBPROGRAM.
00733 0 00000 0 00000 OP OP. CODE OF WORD.
00734 0 00000 0 00000 ADD ADDRESS OF WORD.
00735 0 00000 0 00000 TAG TAG OF WORD.
00736 0 00000 0 00000 DEC DECREMENT OF WORD.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 21
ORGFND. ORIGIN FINDING ROUTINE.
* ENTER WITH NAME OF PROGRAM ENTRY LEFT ADJUSTED IN AC (LOGICAL).
* SEARCHES LOADING TABLE FOR ORIGIN. WHEN FOUND, PRINTS IT AND
* RETURNS WITH ORIGIN IN AC ADDRESS. IF IT CANNOT BE FOUND IT
* TYPES COMMENT AND TRANSFERS TO OOPS.
00737 0634 00 4 00766 ORGFND SXA OFXC,4
00740 -0340 00 0 11375 LAS =H(MAIN)
00741 0020 00 0 00743 TRA *+2
00742 -0754 00 0 00000 ZAC WAS (MAIN), SET TO 0.
00743 0602 00 0 01002 SLW ONAME SAVE ORIGIN NAME
00744 0074 00 4 00000 TSX $ACORE,4 GO FIND ORIGIN
00745 0 00000 0 01002 PZE ONAME ..
00746 -0320 00 0 11332 ANA =O77777 MASK ADDRESS
00747 0621 00 0 01003 STA PORG SAVE ORIGIN
00750 0100 00 0 00771 TZE NOTFND ZERO, IF NOT FOUND
00751 0074 00 4 02201 TSX QUOTE,4 TYPE THE LEFT QUOTES.
00752 0500 00 0 01002 CLA ONAME GET THE ENTRY NAME.
00753 -0100 00 0 00755 TNZ *+2 UNLESS IT IS ZERO.
00754 0500 00 0 11375 CLA =H(MAIN) THEN REPLACE IT WITH TRADITIONAL NAME.
00755 0074 00 4 02253 TSX NAMOUT,4 TYPE IT.
00756 0074 00 4 02201 TSX QUOTE,4 FOLLOWED BY THE RIGHT QUOTES.
00757 TYPA 3,( IS LOADED AT *) MIDDLE OF COMMENT.
00761 OCTOUT PORG TYPE THE ORIGIN.
00763 TYO =H00000. PUNCTUATE THE SENTENCE.
00765 0074 00 4 02175 TSX CR,4 RETURN THE CARRIAGE.
00766 0774 00 4 00000 OFXC AXT ..,4
00767 -0500 00 0 01003 CAL PORG GET THE ORIGIN AGAIN.
00770 0020 00 4 00001 TRA 1,4 HAPPY RETURN.
*
00771 0074 00 4 02201 NOTFND TSX QUOTE,4 NOT FOUND, TYPE QUOTES.
00772 0500 00 0 01002 CLA ONAME GET THE NAME.
00773 -0100 00 0 00775 TNZ *+2 IF ZERO,
00774 0500 00 0 11375 CLA =H(MAIN) REPLACE IT WITH TRADITIONAL SUBSTITUTE.
00775 0074 00 4 02253 TSX NAMOUT,4 TYPE IT.
00776 0074 00 4 02201 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
00777 TYPE 3,( IS NOT IN CORE.*) TYPE THE REST OF THE COMMENT.
01001 0020 00 0 00726 TRA OOPS UNHAPPY, GO GRIPE.
*
01002 0 00000 0 00000 ONAME STORAGE FOR THE ENTRY NAME.
01003 0 00000 0 00000 PORG PROGRAM ORIGIN, TEMP.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 22
INTEGER (BASE 10 AND 8) INPUT CONVERSION.
* OCTIN. OCTAL TO BINARY CONVERSION.
01004 0600 00 0 01077 OCTIN CLEAR SFT FULL WORD, RESET SHIFT FLAG.
01005 0560 00 0 11305 LDQ =O10 BASE IS 8.
01006 0020 00 0 01014 TRA IJIN GO JOIN INTIN AND JNTIN.
*
* DECIMAL TO BINARY CONVERSION, INPUT.
01007 0600 00 0 01077 INTIN CLEAR SFT FULL WORD, DON'T SHIFT.
01010 0560 00 0 11307 LDQ =10 BASE IS 10.
01011 0020 00 0 01014 TRA IJIN GO TO COMMON SECTION.
*
01012 -0625 00 0 01077 JNTIN SETF SFT DECREMENT INTEGER, SHIFT AFTER CONVERSION.
01013 0560 00 0 11307 LDQ =10 BASE IS 10.
01014 -0600 00 0 01103 IJIN STQ BASE SAVE THE BASE.
01015 0634 00 4 01067 SXA XR,4 SAVE XR 4.
01016 0600 00 0 01100 STZ NUM
01017 0600 00 0 01102 CLEAR SGN
01020 0074 00 4 01336 TSX TYI,4 GET THE NEXT CHARACTER.
01021 TEQ IDIG1,=H00000+ IGNORE PLUS SIGN.
01024 TEQ IMIN,=H00000- TAKE CARE OF MINUS SIGN.
01027 0340 00 0 01103 CAS BASE IS IT A DIGIT.Q
01030 0020 00 0 00203 TRA ILF NO, COMPLAIN.
01031 0761 00 0 00000 NOP YES,
01032 0020 00 0 01040 TRA ICNV GO INTO CONVERSION LOOP.
*
01033 -0625 00 0 01102 IMIN SETF SGN MINUS SIGN, SET FLAG.
01034 0074 00 4 01336 IDIG1 TSX TYI,4 GET THE NEXT CHARACTER.
01035 0340 00 0 01103 CAS BASE IS IT A DIGIT.Q
01036 0020 00 0 00203 TRA ILF NO, COMPLAIN.
01037 0761 00 0 00000 NOP YES,
01040 0601 00 0 01101 ICNV STO DGT SAVE IT.
01041 0140 00 0 01041 TOV * TURN OFF OVERFLOW LIGHT.
01042 0560 00 0 01100 LDQ NUM GET THE PREVIOUS NUMBER.
01043 0200 00 0 01103 MPY BASE INCREASE IT BY THE NEW PLACE.
01044 0763 00 0 00043 LLS 35 MOVE RESULT TO AC.
01045 0400 00 0 01101 ADD DGT ADD IN THE NEW DIGIT.
01046 0601 00 0 01100 STO NUM SAVE THE RESULT.
01047 0140 00 0 01071 TOV OVDC IF OVERFLOW, COMPLAIN.
01050 0074 00 4 01336 TSX TYI,4 GET THE NEXT CHARACTER.
01051 0340 00 0 01103 CAS BASE IS IT A DIGIT.
01052 0020 00 0 01055 TRA IFMT NO, GO CLEAN UP.
01053 0761 00 0 00000 NOP YES,
01054 0020 00 0 01040 TRA ICNV RETURN TO CONVERSION LOOP.
*
01055 0601 00 0 01101 IFMT STO DGT SAVE THE TERMINATIGN CHARACTER.
01056 0500 00 0 01100 CLA NUM GET THE NUMBER.
01057 0520 00 0 01102 ZET SGN SHOULD IT BE NEGATIVE.Q
01060 -0760 00 0 00003 SSM YES, MAKE IT SO.
01061 0140 00 0 01061 TOV * TURN OFF OVERFLOW LIGHT.
01062 0520 00 0 01077 ZET SFT SHOULD WE SHIFT IT.Q
01063 0767 00 0 00022 ALS 18 YES, DO SO.
01064 0140 00 0 01074 TOV OVFC IF TOO BIG, COMPLAIN.
01065 0131 00 0 00000 XCA MOVE THE RESULT TO THE MQ.
01066 0500 00 0 01101 CLA DGT GET THE TERMINAL CHARACTER.
01067 0774 00 4 00000 XR AXT ..,4
01070 0020 00 4 00001 TRA 1,4
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 23
INTEGER (BASE 10 AND 8) INPUT CONVERSION.
*
01071 OVDC TYPE 5,(OVERFLOW DURING CONVERSION.*)
01073 0020 00 0 00726 TRA OOPS
*
01074 OVFC TYPE 5,(OVERFLOW DURING SHIFTING.*)
01076 0020 00 0 00726 TRA OOPS
*
01077 0 00000 0 00000 SFT
01100 0 00000 0 00000 NUM ACCUMULATING NUMBER.
01101 0 00000 0 00000 DGT CURRENT CHARACTER.
01102 0 00000 0 00000 SGN FLAG.. IS NUMBER NEGATIVE.Q
01103 0 00000 0 00000 BASE NUMBER CONVERSION BASE.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 24
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
01104 0634 00 4 01243 FLOIN SXA FXRC,4 SAVE RETURN.
01105 0634 00 2 01244 SXA FXRB,2
01106 0600 00 0 01333 STZ MAG CLEAR THE MAGNITUDE.
01107 0600 00 0 01334 CLEAR MSG SIGN OF MAGNITUDE.
01110 0774 00 2 00000 AXT 0,2
01111 0560 00 0 00010 LDQ 8 PICK UP AND.
01112 -0600 00 0 01335 STQ FPT SAVE FPT LOCATION.
01113 0560 00 0 00000 LDQ 0 ALSO SAVE THE F.P. ERROR CODE LOC.
01114 -0600 00 0 01332 STQ FPZ
01115 0560 00 0 01331 LDQ TTR INSERT IN IT A TRANSFER BACK HERE.
01116 -0600 00 0 00010 STQ 8
01117 0074 00 4 01336 TSX TYI,4 GET THE NEXT CHARACTER.
01120 TEQ FDIG1,=H00000+ IGNORE PLUS SIGN.
01123 TEQ MMI,=H00000- TAKE CARE OF MINUS SIGN.
01126 FRET1 TEQ FRAC1,=H00000. GO TO FRACTION SECTION, IF NECESSARY.
01131 0340 00 0 11306 CAS =9 IS IT A DIGIT.Q
01132 0020 00 0 01255 TRA FILF NO, COMPLAIN.
01133 0761 00 0 00000 NOP YES,
01134 0020 00 0 01140 TRA FCNV GO INTO CONVERSION LOOP.
*
01135 -0625 00 0 01334 MMI SETF MSG SET NEGATIVE FLAG.
01136 0074 00 4 01336 FDIG1 TSX TYI,4 GET THE NEXT CHARACTER.
01137 0020 00 0 01126 TRA FRET1 GO CHECK IT OUT.
*
01140 -0501 00 0 11342 FCNV ORA =O233000000000 FLOAT THE DIGIT.
01141 0300 00 0 11342 FAD =O233000000000 ..
01142 0601 00 0 01101 STO DGT SAVE IT.
01143 0560 00 0 01333 LDQ MAG INCREASE MAGNITUDE FOR NEW PLACE.
01144 0260 00 0 11337 FMP =10. ..
01145 0300 00 0 01101 FAD DGT ADD IN THE NEW DIGIT.
01146 0601 00 0 01333 STO MAG SAVE THE RESULT.
01147 0074 00 4 01336 TSX TYI,4 GET THE NEXT CHARACTER.
01150 TEQ FRAC2,=H00000. GO TO FRACTION SECTION, IF PERIOD.
01153 TEQ E,=H00000E GO TO EXPONENT, IF E.
01156 0340 00 0 11306 CAS =9 IS IT A DIGIT.Q
01157 0020 00 0 01231 TRA FFMT NO, CLEAN UP.
01160 0761 00 0 00000 NOP YES,
01161 0020 00 0 01140 TRA FCNV CONTINUE CONVERSION LOOP.
*
01162 0074 00 4 01336 FRAC1 TSX TYI,4 GET THE NEXT CHARACTER.
01163 0340 00 0 11306 CAS =9 IS IT A DIGIT.Q
01164 0020 00 0 01255 TRA FILF NO, COMPLAIN.
01165 0761 00 0 00000 NOP YES,
01166 1 00001 2 01167 TXI *+1,2,1 BUMP EXPONENT BY ONE.
01167 3 00046 2 01246 FRCNV TXH ERR,2,38 COMPLAIN IF TOO BIG.
01170 -0501 00 0 11342 ORA =O233000000000 FLOAT THE DIGIT.
01171 0300 00 0 11342 FAD =O233000000000 ..
01172 0241 00 2 01330 FDP TEN,2 COMPUTE ITS APPARENT VALUE.
01173 0131 00 0 00000 XCA MOVE THE RESULT TO THE AC.
01174 0300 00 0 01333 FAD MAG ADD IT INTO THE NUMBER.
01175 0601 00 0 01333 STO MAG SAVE THE RESULT.
01176 0074 00 4 01336 FRAC2 TSX TYI,4 GET THE NEXT CHARACTER.
01177 TEQ E,=H00000E GO TO EXPONENT IF E.
01202 0340 00 0 11306 CAS =9 IS IT A DIGIT.Q
01203 0020 00 0 01231 TRA FFMT NO, CLEAN UP.
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 25
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
01204 0761 00 0 00000 NOP YES,
01205 1 00001 2 01167 TXI FRCNV,2,1 BUMP POWER AND CONTINUE LOOP.
*
01206 0560 00 0 01335 E LDQ FPT RESTORE USER'S 0 AND 8.
01207 -0600 00 0 00010 STQ 8 ..
01210 0560 00 0 01332 LDQ FPZ ..
01211 -0600 00 0 00000 STQ 0 ..
01212 0074 00 4 01007 TSX INTIN,4 GET THE EXPONENT OF TEN.
01213 0601 00 0 01101 STO DGT SAVE THE TERMINAL CHARACTER.
01214 0131 00 0 00000 XCA MOVE THE NUMBER TO THE AC.
01215 0734 00 2 00000 PAX ,2 THENCE TO XR.
01216 0560 00 0 01331 LDQ TTR RESTORE OUR FPT SETTING.
01217 -0600 00 0 00010 STQ 8 ..
01220 3 00046 2 01246 TXH ERR,2,38 IS IT REASONABLE.Q
01221 -0120 00 0 01225 TMI FDIV YES, IF NEGATIVE, WE MUST DIVIDE.
01222 0560 00 0 01333 LDQ MAG POSITIVE,
01223 0260 00 2 01330 FMP TEN,2 MULTIPLY.
01224 0020 00 0 01233 TRA FASSGN GO ATTACH THE SIGN.
*
01225 0500 00 0 01333 FDIV CLA MAG NEGATIVE,
01226 0241 00 2 01330 FDP TEN,2 DIVIDE BY POWER OF TEN.
01227 0131 00 0 00000 XCA MOVE RESULT TO AC.
01230 0020 00 0 01233 TRA FASSGN ATTACH THE SIGN.
*
01231 0601 00 0 01101 FFMT STO DGT SAVE THE TERMINAL CHARACTER.
01232 0500 00 0 01333 CLA MAG GET THE NUMBER.
01233 0520 00 0 01334 FASSGN ZET MSG SHOULD IT BE NEGATIVE.Q
01234 -0760 00 0 00003 SSM YES, MAKE IT SO.
01235 0131 00 0 00000 XCA MOVE THE RESULT TO THE MQ.
01236 0500 00 0 01335 CLA FPT RESTORE LOCATION 8.
01237 0601 00 0 00010 STO 8 ..
01240 0500 00 0 01332 CLA FPZ AND 0.
01241 0601 00 0 00000 STO 0 ..
01242 0500 00 0 01101 CLA DGT GET THE TERMINAL CHARACTER.
01243 0774 00 4 00000 FXRC AXT ..,4 RESTORE THE INDEX REGISTERS.
01244 0774 00 2 00000 FXRB AXT ..,2 ..
01245 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
01246 ERR TYPE 5,(F.P. NUMBER OUT OF RANGE.*)
01250 0500 00 0 01335 CLA FPT RESTORE LOCATIONS 0 AND 8.
01251 0601 00 0 00010 STO 8 ..
01252 0500 00 0 01332 CLA FPZ ..
01253 0601 00 0 00000 STO 0 ..
01254 0020 00 0 00726 TRA OOPS DO NOT RETURN TO CALLER.
*
01255 0560 00 0 01332 FILF LDQ FPZ RESTORE FP TRAP LOCATIONS.
01256 -0600 00 0 00000 STQ 0 ..
01257 0560 00 0 01335 LDQ FPT ..
01260 -0600 00 0 00010 STQ 8 ..
01261 0020 00 0 00203 TRA ILF GO GRIPE ABOUT CHARACTER.
*
01262 +377454732313 DEC 1E38,1E37,1E36,1E35,1E34,1E33,1E32,1E31,1E30
01273 +341503074077 DEC 1E29,1E28,1E27,1E26,1E25,1E24,1E23,1E22,1E21,1E20
01305 +300425434430 DEC 1E19,1E18,1E17,1E16,1E15,1E14,1E13,1E12,1E11,1E10
01317 +236734654500 DEC 1E9,1E8,1E7,1E6,1E5,1E4,1E3,1E2,1E1
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 26
FLOIN. FLOATING POINT DECIMAL INPUT CONVERSION.
01330 +201400000000 TEN DEC 1. TABLE OF POWERS OF TEN.
*
01331 0021 00 0 01246 TTR TTR ERR INSTRUCTION TO BE STORED IN LOC 8.
01332 0 00000 0 00000 FPZ STORAGE FOR LOCATION 0.
01333 0 00000 0 00000 MAG MAGNITUDE OF NUMBER.
01334 0 00000 0 00000 MSG SIGN OF MAGNITUDE.
01335 0 00000 0 00000 FPT STORAGE FOR CONTENTS OF LOCATION 8.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 27
TYI. SINGLE CHARACTER INPUT PACKAGE.
01336 0634 00 4 01371 TYI SXA TYIX,4 SAVE RETURN INDEX.
01337 0774 00 4 00000 TYICP AXT ..,4 REMEMBER HOW MANY CHARACTERS IN THIS WORD.
01340 -0520 00 0 01426 NZT CRFLG SKIP TEST IF BUFFER EMPTY.
01341 2 00006 4 01345 TIX TYIMIW,4,6 COUNT THIS CHARACTER, IF ANY.
01342 0074 00 4 01407 TSX GWORD,4 GET THE NEXT WORD.
01343 0601 00 0 01427 STO TYIB SAVE IT.
01344 0774 00 4 00044 AXT 36,4 RESET CHARACTER COUNT.
01345 0634 00 4 01337 TYIMIW SXA TYICP,4 SAVE THE NEW CHARACTER COUNT.
01346 0560 00 0 01427 LDQ TYIB GET THE CURRENT WORD.
01347 -0763 00 4 00052 LGL 42,4 SHIFT IN THE DESIRED CHARACTER.
01350 -0320 00 0 11326 ANA =O77 MASK OFF THE CHARACTER.
01351 0340 00 0 11320 CAS =O55 IS IT A CARRIAGE RETURN.Q
01352 0020 00 0 01354 TRA *+2 NO, PROCEED.
01353 -0625 00 0 01426 SETF CRFLG YES, SIGNAL BUFFER EMPTY.
01354 0340 00 0 11311 CAS =H00000' IS IT AN APOSTROPHE.Q
01355 0020 00 0 01357 TRA *+2 NO,
01356 0500 00 0 11320 CLA =O55 YES, SUBSTITUTE A CARR. RET.
01357 -0340 00 0 11310 LAS =H00000= IF IT IS A = (CONCATENATION CHAR.).
01360 0020 00 0 01362 TRA *+2
01361 0500 00 0 11320 CLA =O55 MAKE IT A CARR. RET.
01362 -0340 00 0 11324 LAS =O72 IF IT IS A TABULATE,
01363 0020 00 0 01365 TRA *+2
01364 -0500 00 0 11321 CAL =O60 MAKE IT A BLANK.
01365 TBL CHPRE IF BLANK, CHECK PREVIOUS CHARACTER.
01370 0602 00 0 01425 OUT SLW PREVCH OK, SAVE AS PREVIOUS CHAR.
01371 0774 00 4 00000 TYIX AXT ..,4 RESTORE RETURN INDEX.
01372 0020 00 4 00001 TRA 1,4
*
01373 CHPRE TEQ TYICP,PREVCH IF LAST CHARACTER WAS BLANK, TRY AGAIN.
01376 0020 00 0 01370 TRA OUT OTHERWISE EXIT W/ THIS BLANK.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 28
SKIPCR. FIND BEGINNING OF NEXT REQUEST.
01377 0634 00 4 01405 SKIPCR SXA SKX,4 SAVE RETURN.
01400 -0500 00 0 01425 CAL PREVCH LAST CHARACTER.
01401 0020 00 0 01403 TRA *+2
01402 0074 00 4 01336 TSX TYI,4 GET NEXT CHAR.
01403 0322 00 0 11320 ERA =O55 IS IT A CARR. RET.Q
01404 -0100 00 0 01402 TNZ *-2 NO, TRY AGAIN.
01405 0774 00 4 00000 SKX AXT ..,4 YES, EXIT.
01406 0020 00 4 00001 TRA 1,4
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 29
GWORD. GET NEXT WORD FROM INPUT LINE.
01407 0634 00 4 01423 GWORD SXA GWX,4 SAVE RETURN INDEX.
01410 0535 00 4 01430 LAC GWBUF,4 REMEMBER CURRENT WORD.
01411 1 77777 4 01412 TXI *+1,4,-1 BUMP POINTER TO NEXT WORD.
01412 -0520 00 0 01426 NZT CRFLG SKIP TEST IF BUFFER EMPTY.
01413 3 77761 4 01421 TXH GWMIB,4,-15 IS THERE ANY MORE IN BUFFER.Q
01414 0074 00 4 02175 TSX CR,4 NO, RETURN THE CARRIAGE.
01415 0074 00 4 00000 TYICW TSX ..,4 READ A NEW BUFFER FULL.
01416 3 00016 0 01431 PAR GWBUF+1,,14 ..
01417 0600 00 0 01426 CLEAR CRFLG INDICATE STUFF IN BUFFER.
01420 -0774 00 4 00001 AXC 1,4 RESET COUNT OF WORDS.
01421 0636 00 4 01430 GWMIB SCA GWBUF,4 SAVE POINTER FOR NEXT TIME.
01422 0500 00 4 01430 CLA GWBUF,4 GET THE CURRENT WORD.
01423 0774 00 4 00000 GWX AXT ..,4 RESTORE RETURN INDEX.
01424 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
01425 +000000000055 PREVCH OCT 55 AT BEGINNING, WE ARE SET UP OK.
01426 0 00000 0 01426 CRFLG * FIRST TIME, WE HAVE NO LINE IN BUFFER.
01427 0 00000 0 00000 TYIB CURRENT INPUT WORD.
01430 0 00000 0 00000 GWBUF INPUT LINE BUFFER.
01431 BSS 14 ..
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 30
DIFDMP. VERIFY OR DIFFERENTIAL DUMP.
* COMPARE RELOCATABLE BINARY CARDS IN FILE NAME (IN LOGICAL AC)
* BSS WITH PROGRAM WHOSE ORIGIN IS GIVEN IN MQ. PRINT LOCATIONS
* AND THEIR CONTENTS WHICH DISAGREE.
01447 0634 00 4 01673 DIFDMP SXA VXC,4 SAVE THE XR'S.
01450 0634 00 2 01674 SXA VXB,2
01451 0634 00 1 01675 SXA VXA,1
01452 -0600 00 0 01003 STQ PORG ENTER W/ PROGRAM NAME IN THE AC.,
01453 0602 00 0 01704 SLW FILE PROGRAM ORIGIN IN MQ.
01454 0600 00 0 01702 CLEAR CELL1 INITIALIZE PROGRAM CARD FLAG.
01455 OPEN (=HR,FILE,((=H BSS)),=-0,=-0,DERR) OPEN THE FILE.
01464 BUFFER (FILE,((=H BSS)),(BUF1,,BUFLTH),DERR) ..
01471 CARDRD RDWAIT (FILE,((=H BSS)),=0,(CARD,,28),QUIT,=-0,DERR) GET CARD.
01501 0500 00 0 01514 CLA CARD
01502 0120 00 0 01550 TPL DATA IF SIGN=1, WE HAVE PROGRAM CARD.
01503 0520 00 0 01702 ZET CELL1 IS THIS FIRST PROGRAM CARD.Q
01504 0020 00 0 01471 TRA CARDRD NO, READ ANOTHER.
01505 -0625 00 0 01702 SETF CELL1 YES, GET PROGRAM BREAK.
01506 0534 00 4 01516 LXA CARD+2,4 GET PROGRAM BREAK.
01507 1 77777 4 01510 TXI *+1,4,-1 DECREASE IT TO GET LAST LOCATION USED.
01510 -0634 00 4 01654 SXD RELSIZ,4 SET UP RELOCATION SUBROUTINE.
01511 0534 00 4 01003 LXA PORG,4 GET PROGRAM ORIGIN.
01512 -0634 00 4 01656 SXD RELPRG,4 SET UP RELOCATION SUBROUTINE.
01513 0020 00 0 01471 TRA CARDRD
*
01514 CARD BSS 28
*
01550 0500 00 0 01514 DATA CLA CARD
01551 0400 00 0 01003 ADD PORG RELOCATE THE 'LOAD ADDRESS'.
01552 0600 00 0 00202 STZ LOC
01553 0621 00 0 00202 STA LOC
01554 0621 00 0 01605 STA CHECK+1 SAVE FOR GETLOC
01555 0621 00 0 01622 STA CHKA ..
01556 -0320 00 0 11335 ANA =O200077000000
01557 0771 00 0 00022 ARS 18
01560 0600 00 0 01703 STZ COUNT
01561 0621 00 0 01703 STA COUNT NUMBER OF PERTINENT WORDS ON CARD.
01562 0767 00 0 00023 ALS 19
01563 -0760 00 0 00001 PBT
01564 0020 00 0 01677 TRA NONREL NON-RELOCATABLE CARD.
01565 -0774 00 1 01520 AXC CARD+4,1
01566 0500 00 1 00000 RETURN CLA 0,1 PICK UP WORD.
01567 0601 00 0 00731 STO WORD
01570 0074 00 4 01642 TSX RELBIT,4 GET FIRST DECREMENT RELOCATION BIT.
01571 0120 00 0 01577 TPL NODEC IF ZERO, DECREMENT IS ABSOLUTE.
01572 0500 00 0 00731 CLA WORD IF ONE,
01573 0771 00 0 00022 ARS 18 DECREMENT IS RELOCATABLE.
01574 0074 00 4 01650 TSX RELOC,4 DO SO.
01575 0767 00 0 00022 ALS 18 THEN,
01576 0622 00 0 00731 STD WORD REPLACE THE NEW VERSION.
01577 0074 00 4 01642 NODEC TSX RELBIT,4 GET THE FIRST ADDRESS BIT.
01600 0120 00 0 01604 TPL CHECK IF ZERO, ADDRESS IS ABSOLUTE.
01601 0500 00 0 00731 CLA WORD IF ONE, ADDRESS IS RELOCATABLE.
01602 0074 00 4 01650 TSX RELOC,4 DO SO.
01603 0621 00 0 00731 STA WORD REPLACE THE NEW VERSION.
01604 CHECK TSS GETLOC PICK UP LOC'N FROM A-CORE
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 31
DIFDMP. VERIFY OR DIFFERENTIAL DUMP.
01605 0 00000 0 00000 PZE ** ..
01606 TEQ FINCYC,WORD IF IT MATCHES, DON'T PRINT.
01611 FLDPRT LOC TYPE LOCATION.
01613 TYO =H00000/
01615 0074 00 4 02177 TSX TAB,4 BCD TABULATE.
01616 0500 00 0 00731 CLA WORD PRINT OUT OLD CONTENTS.
01617 0522 00 0 00461 XEC CTSX
01620 0074 00 4 02177 TSX TAB,4 BCD TABULATE.
01621 TSS GETLOC PICK UP THE WORD
01622 0 00000 0 00000 CHKA PZE ** ..
01623 0522 00 0 00461 XEC CTSX TYPE THE WORD.
01624 0074 00 4 02175 TSX CR,4 END OF LINE, CARRIAGE RETURN.
01625 -0500 00 0 00202 FINCYC CAL LOC
01626 0400 00 0 11302 ADD =1
01627 0602 00 0 00202 SLW LOC
01630 0621 00 0 01605 STA CHECK+1 SAVE FOR GETLOC
01631 0621 00 0 01622 STA CHKA ..
01632 1 77777 1 01633 TXI *+1,1,-1
01633 0520 00 0 02133 ZET INRUPT HAS THERE BEEN AN INTERRUPT.Q
01634 0020 00 0 01665 TRA QUIT YES, STOP.
01635 -0500 00 0 01703 CAL COUNT
01636 0402 00 0 11302 SUB =1
01637 0602 00 0 01703 SLW COUNT
01640 -0100 00 0 01566 TNZ RETURN
01641 0020 00 0 01471 TRA CARDRD GO READ NEXT CARD.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 32
RELBIT. GET NEXT RELOCATION BIT.
01642 0500 00 0 01516 RELBIT CLA CARD+2 GET THE TWO WORDS OF BITS.
01643 0560 00 0 01517 LDQ CARD+3 ..
01644 -0763 00 0 00001 LGL 1 MOVE LEFT ONE POSITION.
01645 0602 00 0 01516 SLW CARD+2 SAVE THE TWO NEW WORDS.
01646 -0600 00 0 01517 STQ CARD+3 ..
01647 0020 00 4 00001 TRA 1,4 RETURN TO CALLER WITH BIT IN AC SIGN.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 33
RELOC. RELOCATE FIELD IN A(AC).
01650 0634 00 4 01660 RELOC SXA RELXC,4 SAVE RETURN INDEX.
01651 0634 00 1 01661 SXA RELXA,1 ..
01652 0734 00 1 00000 PAX ,1 GET FIELD TO BE RELOCATED.
01653 0074 00 4 01642 TSX RELBIT,4 GET THE NEXT RELOCATION BIT.
01654 3 00000 1 01663 RELSIZ TXH OUTSID,1,.. IS FIELD WITHIN SUBPROGRAM.Q
01655 -0120 00 0 01664 TMI RELCOM YES, BIT ON MEANS COMMON RELOCATION.
01656 1 00000 1 01657 RELPRG TXI *+1,1,.. BIT OFF MEANS RELOCATION WITH SUBPROGRAM.
01657 0754 00 1 00000 RELXIT PXA ,1 GET THE RELOCATED FIELD.
01660 0774 00 4 00000 RELXC AXT ..,4 RESTORE RETURN INDEX.
01661 0774 00 1 00000 RELXA AXT ..,1 ..
01662 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
01663 -0120 00 0 01656 OUTSID TMI RELPRG OUTSIDE, ONE MEANS RELOCATE W/ SUBPROGRAM.
01664 1 00000 1 01657 RELCOM TXI RELXIT,1,COMMON-77461K ZERO MEANS COMMON RELOCATION.
*
77461 COMMON COMMON 0 WHERE COMMON REALLY IS.
077461 77461K BOOL 77461 WHERE IT SHOULD BE.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 34
EXIT FROM VERIFY.
01665 QUIT CLOSE (FILE,((=H BSS)),DERR) CLOSE THE FILE.
01671 VDONE TYPE 3,(COMPARISON DONE.*)
01673 0774 00 4 00000 VXC AXT ..,4
01674 0774 00 2 00000 VXB AXT ..,2
01675 0774 00 1 00000 VXA AXT ..,1
01676 0020 00 4 00001 TRA 1,4 AND EXIT.
*
01677 NONREL TYPE 6,(BINARY CARD IS NON-RELOCATABLE.*)
01701 0020 00 0 01665 TRA QUIT GIVE UP AND GET OUT OF HERE.
*
01702 0 00000 0 00000 CELL1 FLAG.. FIRST PROGRAM CARD ALREADY READ.
01703 0 00000 0 00000 COUNT NUMBER OF WORDS ON CARD.
01704 0 00000 0 00000 FILE PRIMARY FILE NAME.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 35
CHFIL. CHECK FOR PRELIMINARY INPUT FROM A FILE.
01705 0634 00 4 01726 CHFIL SXA CHXC,4 SAVE RETURN.
01706 0774 00 4 02053 AXT RDFLXA,4 SET UP TO READ FROM CONSOLE.
01707 0634 00 4 01415 SXA TYICW,4
01710 TSS GETCOM GET THE FIRST COMMAND ARGUMENT.
01711 0 00000 0 00001 1
01712 TEQ CHXC,=O777777777777 EXIT IF FIRST ARGUMENT IS FENCE.
01715 0602 00 0 00665 SLW NAME REMEMBER IT.
01716 0074 00 4 11243 TSX GETCOM,4 GET THE SECOND ARGUMENT.
01717 0 00000 0 00002 2
01720 TNE CHXC,=O777777777777 NO FILE IF MORE THAN ONE ARGUMENT.
01724 0074 00 4 01730 TSX SETF,4 SET UP FOR READING FROM A FILE.
01725 3 00000 0 00665 PAR NAME
01726 0774 00 4 00000 CHXC AXT ..,4 RESTORE XR 4.
01727 0020 00 4 00001 TRA 1,4 EXIT.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 36
SETF. SET UP FOR READING FROM A FILE.
01730 0634 00 4 01751 SETF SXA SETFX,4 SAVE RETURN.
01731 0500 60 4 00001 CLA* 1,4 GET THE FILE NAME.
01732 0601 00 0 01753 STO TYIF SAVE IT.
01733 OPEN (=HR,TYIF,((=H DEBUG)),=-0,=-0,DERR) OPEN THE FILE.
01742 BUFFER (TYIF,((=H DEBUG)),(BUF2,,BUFLTH),DERR) ..
01747 0774 00 4 01754 AXT READF,4 BUGGER TYI TO READ FROM FILE.
01750 0634 00 4 01415 SXA TYICW,4 ..
01751 0774 00 4 00000 SETFX AXT ..,4 RESTORE RETURN.
01752 0020 00 4 00001 TRA 1,4 EXIT.
*
01753 0 00000 0 00000 TYIF INPUT FILE NAME.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 37
READF. READ LINE FROM FILE.
01754 0634 00 4 01772 READF SXA READX,4 SAVE RETURN.
01755 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
01756 0601 00 0 01764 STO READCW+4 SET UP CALL TO DISK SUPERVISOR.
01757 0621 00 0 01771 STA FIXCW SET UP CARRIAGE RETURN INSERTER.
01760 READCW RDWAIT (TYIF,((=H DEBUG)),=0,(..,,..),RFEND,=-0,RFERR) GET LINE.
01770 0074 00 4 01774 TSX FIXCR,4 FIX UP THE CARRIAGE RETURN.
01771 3 00000 0 00000 FIXCW PAR ..
01772 0774 00 4 00000 READX AXT ..,4 RESTORE RETURN.
01773 0020 00 4 00002 TRA 2,4 EXIT.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 38
FIXCR. INSERT CR AT END OF LINE READ FROM FILE.
01774 0634 00 4 02031 FIXCR SXA FIXXC,4 SAVE THE XR'S.
01775 0634 00 1 02030 SXA FIXXA,1
01776 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
01777 0400 00 0 11310 ADD =11 COMPUTE ADDRESS OF LAST WORD.
02000 0621 00 0 02005 STA SWD SET UP OUR CAL, SLW, STQ.
02001 0621 00 0 02026 STA SFW
02002 0400 00 0 11302 ADD =1
02003 0621 00 0 02027 STA SRW
02004 0774 00 1 00000 AXT 0,1 BEGIN W/ THE LAST WORD.
02005 -0500 00 1 00000 SWD CAL ..,1 GET THE WORD.
02006 TEQ ALLB,=H IS IT ALL BLANK.Q
02011 0774 00 4 00044 AXT 36,4 SET UP COUNT OF 36 BITS.
02012 0560 00 0 11301 SCH LDQ =0 CLEAR THE MQ.
02013 -0765 00 0 00006 LGR 6 GET THE RIGHT-HAND CHARACTER.
02014 -0773 00 0 00006 RQL 6 MOVE IT TO THE RIGHT OF THE MQ.
02015 -0130 00 0 00000 XCL THEN TO THE AC.
02016 TBL STILLB IF A BLANK, GO CHECK THE NEXT.
02021 -0130 00 0 00000 XCL RESTORE THE CHARACTERS TO ITS LEFT.
02022 -0773 00 0 00036 RQL 30 GET IT BACK INTO POSITION.
02023 -0763 00 0 00006 LGL 6
02024 0560 00 0 11361 LDQ =O556060606060 GET THE WORD FILLER.
02025 -0763 00 4 00044 LGL 36,4 RESTORE THE WORD.
02026 0602 00 1 00000 SFW SLW ..,1 REPLACE IT.
02027 -0600 00 1 00000 SRW STQ ..,1 REPLACE THE WORD TO ITS RIGHT.
02030 0774 00 1 00000 FIXXA AXT ..,1 RESTORE THE XR'S.
02031 0774 00 4 00000 FIXXC AXT ..,4
02032 0020 00 4 00001 TRA 1,4 EXIT.
*
02033 -0130 00 0 00000 STILLB XCL RESTORE THE TWO HALVES.
02034 1 77772 4 02012 TXI SCH,4,-6 COUNT CHARACTER AND GO GET THE NEXT.
*
02035 1 00001 1 02036 ALLB TXI *+1,1,1 MOVE POINTER TO NEXT WORD.
02036 -3 00014 1 02005 TXL SWD,1,12 IF NOT DONE, GET THE NEXT WORD.
02037 0560 00 0 11361 LDQ =O556060606060 OTHERWISE, GET THE CARRIAGE RETURN CODE.
02040 0020 00 0 02027 TRA SRW INSERT IT AS THE FIRST WORD.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 39
RESTORE CONSOLE INPUT.
02041 0774 00 4 02053 RFERR AXT RDFLXA,4 ERROR ON READING, SET TO CONSOLE INPUT.
02042 0634 00 4 01415 SXA TYICW,4 ..
02043 0020 00 0 06321 TRA DERR GET DISK DIAGNOSTIC.
*
02044 0774 00 4 02053 RFEND AXT RDFLXA,4 RESTORE TYI TO READ FROM CONSOLE.
02045 0634 00 4 01415 SXA TYICW,4 ..
02046 CLOSE (TYIF,((=H DEBUG)),DERR) CLOSE THE FILE.
02052 0534 00 4 01772 LXA READX,4 RESTORE RETURN.
02053 0101 00 0 11355 RDFLXA TIA =HRDFLXA AND CALL RDFLXA.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 40
TYPE LINE OF TEXT TERMINATED BY ASTERISK.
02054 -0625 00 0 02105 TYPE SETF TYPCR SET CARRIAGE RETURN FLAG.
02055 0020 00 0 02057 TRA TYPJ GO TO ROUTINE.
*
02056 0600 00 0 02105 TYPA CLEAR TYPCR CLEAR CARRIAGE RETURN FLAG.
02057 0634 00 4 02101 TYPJ SXA TYPXC,4 SAVE THE INDEX REGISTERS.
02060 0634 00 1 02102 SXA TYPXA,1
02061 0634 00 2 02103 SXA TYPXB,2
02062 0500 00 4 00001 CLA 1,4 GET THE CONTROL WORD.
02063 0737 00 1 00000 PAC ,1 PLACE POINTER TO BCI STRING IN XR 1.
02064 0560 00 1 00000 TYPG LDQ 0,1 GET A WORD FROM CALLER.
02065 0774 00 2 00006 AXT 6,2 PREPARE TO COUNT 6 CHARACTERS.
02066 -0754 00 0 00000 TYPL ZAC CLEAR THE AC.
02067 -0763 00 0 00006 LGL 6 SHIFT A CHARACTER INTO THE AC.
02070 TEQ TYPX,=H00000* STOP IF CHARACTER IS ASTERISK.
02073 0074 00 4 02137 TSX TYO,4 TYPE IT.
02074 2 00001 2 02066 TIX TYPL,2,1 COUNT THE CHARACTERS IN THIS WORD.
02075 1 77777 1 02064 TXI TYPG,1,-1 DONE, COUNT THIS WORD.
*
02076 0500 00 0 11320 TYPX CLA =O55 GET A CARRIAGE RETURN.
02077 0520 00 0 02105 ZET TYPCR SHOULD WE TYPE IT.Q
02100 0074 00 4 02137 TSX TYO,4 YES, DO SO.
02101 0774 00 4 00000 TYPXC AXT ..,4 RESTORE THE INDEX REGISTERS.
02102 0774 00 1 00000 TYPXA AXT ..,1
02103 0774 00 2 00000 TYPXB AXT ..,2
02104 0020 00 4 00001 TRA 1,4 EXIT.
*
02105 0 00000 0 00000 TYPCR CARRIAGE RETURN NEEDED FLAG.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 41
NOINT. IGNORE INTERRUPT OCCURRING IN FAPDBG.
02106 -0625 00 0 02133 NOINT SETF INRUPT SET FLAG TO SHOW INTERRUPT OCCURRED.
02107 0600 00 0 02134 CLEAR INTOV ASSUME OVERFLOW LIGHT NOT ON.
02110 -0140 00 0 02112 TNO *+2 TEST IT.
02111 -0625 00 0 02134 SETF INTOV WAS ON, SET FLAG.
02112 0602 00 0 02135 SLW INTLA SAVE THE LOGICAL AC.
02113 0771 00 0 00002 ARS 2 SHIFT,
02114 0601 00 0 02136 STO INTSA SAVE THE SIGNED AC.
02115 0634 00 4 02131 SXA INTXC,4 SAVE XR 4.
02116 TSS GETBRK GET THE LOCATION OF THE INTERRUPT.
02117 0621 00 0 02132 STA INTTRA SET UP THE TRA.
02120 TSS SETBRK SET UP OUR ENTRY AGAIN.
02121 0 00000 0 00415 INT ..
02122 0500 00 0 02122 CLA * PREPARE TO TURN ON THE OVERFLOW LIGHT.
02123 0767 00 0 00044 ALS 36 TURN IT ON.
02124 0500 00 0 02136 CLA INTSA GET THE SIGNED AC.
02125 0767 00 0 00002 ALS 2 SHIFT IT INTO POSITION.
02126 -0501 00 0 02135 ORA INTLA INSERT THE LOGICAL AC.
02127 -0520 00 0 02134 NZT INTOV SHOULD THE OVERFLOW LIGHT BE ON.Q
02130 0140 00 0 02130 TOV * NO, TURN IT OFF.
02131 0774 00 4 00000 INTXC AXT ..,4 RESTORE XR 4.
02132 0020 00 0 00000 INTTRA TRA .. RETURN TO INTERRUPTED PROGRAM.
*
02133 0 00000 0 00000 INRUPT FLAG.. INTERRUPT HAS OCCURRED.
02134 0 00000 0 00000 INTOV FLAG.. OVERFLOW LIGHT WAS ON.
02135 0 00000 0 00000 INTLA STORAGE FOR THE LOGICAL AC.
02136 0 00000 0 00000 INTSA STORAGE FOR THE SIGNED AC.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 42
TYO. SINGLE CHARACTER OUTPUT.
02137 0634 00 4 02172 TYO SXA OXRC,4 SAVE RETURN.
02140 -0600 00 0 02203 STQ MQ SAVE MQ.
02141 -0320 00 0 11326 ANA =O77 CONSIDER ONLY RIGHT CHARACTER.
02142 0600 00 0 02204 CLEAR PFLAG CLEAR PRINT INDICATOR.
02143 -0340 00 0 11320 LAS =O55 IS IT A CARR. RET.
02144 0020 00 0 02146 TRA *+2 NO, CONTINUE.
02145 -0625 00 0 02204 SETF PFLAG YES, SET PRINT INDICATOR.
02146 -0765 00 0 00006 LGR 6 SHIFT CHARACTER INTO MQ.
02147 -0500 00 0 02205 CAL TYOB GET THE WORD BEING ASSEMBLED.
02150 0140 00 0 02150 TOV * TURN OFF OVERFLOW LIGHT.
02151 -0763 00 0 00006 LGL 6 SHIFT IN NEW CHARACTER.
02152 -0140 00 0 02155 TNO TYOMIW IS THERE ANY MORE ROOM IN THIS WORD.Q
02153 0074 00 4 02206 TSX SWORD,4 NO, STORE IT IN BUFFER.
02154 -0500 00 0 11302 CAL =1 GET EMPTY WORD.
02155 0602 00 0 02205 TYOMIW SLW TYOB RESTORE THE WORD.
02156 -0520 00 0 02204 NZT PFLAG IF PRINT INDICATOR IS OFF,
02157 0020 00 0 02172 TRA OXRC EXIT.
02160 TEQ TYOMT,=1 IS WORD COMPLETELY EMPTY.Q
02163 0560 00 0 11362 LDQ =O575757575757 NO, GET NULL CHARACTERS.
02164 -0763 00 0 00006 LGL 6 SHIFT ONE INTO WORD.
02165 -0140 00 0 02164 TNO *-1 CONTINUE UNTIL WORD IS FULL.
02166 0074 00 4 02206 TSX SWORD,4 INSERT FILLED WORD INTO BUFFER.
02167 0074 00 4 02221 TYOMT TSX FWORD,4 FORCE OUT THE BUFFER.
02170 -0500 00 0 11302 CAL =1 GET COMPLETELY EMPTY WORD.
02171 0602 00 0 02205 SLW TYOB SAVE THE WORD.
02172 0774 00 4 00000 OXRC AXT ..,4 RESTORE RETURN.
02173 0560 00 0 02203 LDQ MQ AND MQ.
02174 0020 00 4 00001 TRA 1,4 AND EXIT.
*
* CR. TYPE A CARRIAGE RETURN.
02175 0500 00 0 11320 CR CLA =O55 GET THE CODE.
02176 0020 00 0 02137 TRA TYO GO TYPE IT.
*
* TAB. TYPE A TABULATION CHARACTER.
02177 0500 00 0 11324 TAB CLA =O72 GET THE CHARACTER CODE.
02200 0020 00 0 02137 TRA TYO GO TYPE IT.
*
* QUOTE. TYPE A SINGLE QUOTE (APOSTROPHE).
02201 0500 00 0 11311 QUOTE CLA =O14 GET THE CHARACTER CODE.
02202 0020 00 0 02137 TRA TYO GO TYPE IT.
*
02203 0 00000 0 00000 MQ
02204 0 00000 0 00000 PFLAG
02205 0 00000 0 00001 TYOB 1 WORD INITIALLY EMPTY.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 43
SWORD. INSERT WORD IN OUTPUT BUFFER.
02206 0634 00 4 02217 SWORD SXA SWXC,4 SAVE RETURN INDEX.
02207 0535 00 4 02232 LAC SWBUF,4 GET CURRENT BUFFER POINTER.
02210 1 77777 4 02211 TXI *+1,4,-1 BUMP TO POINT TO NEXT WORD.
02211 0636 00 4 02232 SCA SWBUF,4 REPLACE POINTER FOR NEXT TIME.
02212 0602 00 4 02232 SLW SWBUF,4 INSERT THIS WORD INTO BUFFER.
02213 3 77762 4 02217 TXH SWXC,4,-14 IS THERE ANY MORE ROOM IN BUFFER.Q
02214 TSS WRFLXA NO, TYPE OUT THE BUFFER.
02215 3 00016 0 02233 PAR SWBUF+1,,14 ..
02216 0600 00 0 02232 STZ SWBUF RESET CURRENT WORD INDEX.
02217 0774 00 4 00000 SWXC AXT ..,4 RESTORE RETURN INDEX.
02220 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 44
FWORD. FORCE OUT OUTPUT BUFFER.
02221 0634 00 4 02230 FWORD SXA FWXC,4 SAVE RETURN INDEX.
02222 0534 00 4 02232 LXA SWBUF,4 GET POINTER TO CURRENT WORD IN BUFFER.
02223 -3 00000 4 02230 TXL FWXC,4,0 IF EMPTY, IGNORE CALL.
02224 -0634 00 4 02226 SXD FWCW,4 IF NOT EMPTY, SET UP CONTROL WORD.
02225 TSS WRFLXA TYPE OUT THE BUFFER.
02226 3 00000 0 02233 FWCW PAR SWBUF+1,,.. ..
02227 0600 00 0 02232 STZ SWBUF RESET CURRENT WORD POINTER.
02230 0774 00 4 00000 FWXC AXT ..,4 RESTORE RETURN INDEX.
02231 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
02232 0 00000 0 00000 SWBUF OUTPUT BUFFER.
02233 BSS 14 ..
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 45
TYPE UP TO SIX CHARACTERS IN AC.
* BCDOUT. TYPE ALL SIX CHARACTERS IN AC.
02251 0600 00 0 02312 BCDOUT CLEAR BOIG RESET FLAG.. DON'T IGNORE BLANKS.
02252 0020 00 0 02254 TRA BOJN GO JOIN NAMOUT.
*
* NAMOUT. TYPE NON-BLANK CHARACTERS IN AC.
02253 -0625 00 0 02312 NAMOUT SETF BOIG SET FLAG.. IGNORE BLANKS.
02254 0634 00 4 02270 BOJN SXA BOXC,4 SAVE RETURN INDEX.
02255 0634 00 1 02271 SXA BOXA,1 ..
02256 0131 00 0 00000 XCA MOVE INPUT TO MQ.
02257 0774 00 1 00006 AXT 6,1 SET UP COUNT OF SIX CHARACTERS.
02260 -0754 00 0 00000 BOLP ZAC CLEAR THE AC.
02261 -0763 00 0 00006 LGL 6 GET THE NEXT CHARACTER.
02262 0520 00 0 02312 ZET BOIG SHOULD WE TEST IT FOR BLANK.Q
02263 TBL *+2 YES, WE SHOULD. IS IT.Q
02266 0074 00 4 02137 TSX TYO,4 WE SHOULD TYPE IT. DO SO.
02267 2 00001 1 02260 TIX BOLP,1,1 COUNT THIS CHARACTER.
02270 0774 00 4 00000 BOXC AXT ..,4 RESTORE RETURN INDEX.
02271 0774 00 1 00000 BOXA AXT ..,1 ..
02272 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 46
BCDIN. BCD INPUT.
02273 0634 00 4 02310 BCDIN SXA BCDIX,4
02274 -0500 00 0 11367 CAL =H GET BLANKS.
02275 0602 00 0 06304 SLW BUFF AND PUT THEM IN ASSEMBLY REGISTER.
02276 0074 00 4 01336 BCDCH TSX TYI,4 GET A CHARACTER.
02277 TCR BCDPT IF CARRIAGE RETRUN, STOP.
02302 -0765 00 0 00006 LGR 6 SHIFT AND SAVE THE CHARACTER.
02303 -0500 00 0 06304 CAL BUFF GET THE ASSEMBLY WORD.
02304 -0763 00 0 00006 LGL 6 SHIFT IN THE NEW CHARACTER.
02305 0602 00 0 06304 SLW BUFF AND RESTORE THE WORD.
02306 0020 00 0 02276 TRA BCDCH NOW TRY AGAIN.
*
02307 0560 00 0 06304 BCDPT LDQ BUFF DONE, GET THE WORD.
02310 0774 00 4 00000 BCDIX AXT ..,4
02311 0020 00 4 00001 TRA 1,4
*
02312 0 00000 0 00000 BOIG FLAG.. IGNORE BLANKS.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 47
FLDPRT. SYMBOLIC FIELD PRINTING ROUTINE.
* ADDS TO PRINT BUFFER THE SYMBOLIC VALUE OF A FIELD PRESENTED
* IN THE AC ADDRESS IN THE FORM.. SYMBOL+CORRECTION (OCTAL).
02313 0634 00 4 02336 FLDPRT SXA FLDXC,4
02314 0634 00 2 02337 SXA FLDXB,2
02315 -0320 00 0 11332 ANA =O77777 GET RID OF GARBAGE.
02316 0074 00 4 02722 TSX SYMBCD,4 GET SYMBOL (MQ) + CORRECTION (AC).
02317 0601 00 0 02342 STO FLDCOR SAVE CORRECTION.
02320 -0600 00 0 02341 STQ PLS SAVE THE SYMBOL.
02321 0131 00 0 00000 XCA MOVE IT TO THE AC.
02322 0074 00 4 02253 TSX NAMOUT,4 TYPE THE SYMBOL.
02323 -0500 00 0 02341 CAL PLS GET THE SYMBOL.
02324 TEQ FLDOCT,=H IS IT ALL BLANK.Q
02327 0500 00 0 02342 CLA FLDCOR NO, IS THE CORRECTION ZERO.Q
02330 0100 00 0 02336 TZE FLDXC YES, WE ARE DONE.
02331 -0120 00 0 02334 TMI FLDOCT NO, WILL OCTOUT TYPE A MINUS SIGN.Q
02332 TYO =H00000+ NO, WE NEED A PLUS SIGN.
02334 FLDOCT OCTOUT FLDCOR NOW TYPE THE 'CORRECTION' FACTOR.
02336 0774 00 4 00000 FLDXC AXT ..,4
02337 0774 00 2 00000 FLDXB AXT ..,2
02340 0020 00 4 00001 TRA 1,4
*
02341 0 00000 0 00000 PLS STORAGE FOR THE SYMBOL.
02342 0 00000 0 00000 FLDCOR 'CORRECTION FACTOR' TO SYMBOL.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 48
SYMPRT. SYMBOLIC WORD PRINTING ROUTINE.
* SYMBOLIC WORD PRINT ROUTINE FOR FAP DEBUG II
* ENTER WITH WORD IN LOGICAL AC.
* PRINTS SYMBOLIC OP. CODE, ADDRESS, TAG, AND DECREMENT IN THE
* FORM.. ADD* FOO+100,4
02343 0634 00 4 02413 SYMPRT SXA SPXC,4
02344 0634 00 2 02412 SXA SPXB,2
02345 0601 00 0 02426 STO SPWD SAVE THE WORD.
02346 0600 00 0 02424 CLEAR DECFLD CLEAR INDICATOR.
02347 -0500 00 0 02426 CAL SPWD GET WORD (THIS TIME IN LOG. AC.).
02350 0074 00 4 10165 TSX OPBCD,4 GET THE BCD OP. CODE.
02351 0322 00 0 02426 ERA SPWD CLEAR BITS ACCOUNTED FOR.
02352 0602 00 0 00731 SLW WORD
02353 0131 00 0 00000 XCA MOVE SYMBOL TO AC.
02354 0074 00 4 02253 TSX NAMOUT,4 TYPE THE SYMBOL.
02355 -0500 00 0 00731 CAL WORD
02356 -0320 00 0 11334 ANA =O77777000000 SAVE DECREMENT.
02357 TEQ IND,=O60000000
02362 NOFLG TYO =H00000 PRINT BLANK.
02364 FLDPRT WORD TYPE THE ADDRESS FIELD.
02366 -0500 00 0 00731 CAL WORD
02367 0622 00 0 02424 STD DECFLD
02370 0771 00 0 00017 ARS 15
02371 -0320 00 0 11304 ANA =7 SAVE TAG.
02372 0602 00 0 02425 SLW SPTAG
02373 -0100 00 0 02376 TNZ INSTAG IF TAG IS NOT ZERO, INSERT IT.
02374 -0520 00 0 02424 NZT DECFLD IF DECREMENT REQUIRED, INSERT TAG.
02375 0020 00 0 02413 TRA SPXC OTHERWISE BYPASS.
02376 INSTAG TYO (=H00000,)
02400 FLDPRT SPTAG PRINT THE TAG.
02402 -0520 00 0 02424 NZT DECFLD
02403 0020 00 0 02413 TRA SPXC
02404 TYO (=H00000,)
02406 -0500 00 0 00731 CAL WORD
02407 0771 00 0 00022 ARS 18
02410 -0320 00 0 11332 ANA =O77777
02411 0074 00 4 02313 TSX FLDPRT,4 PRINT THE DECREMENT FIELD.
02412 0774 00 2 00000 SPXB AXT ..,2
02413 0774 00 4 00000 SPXC AXT ..,4
02414 0020 00 4 00001 TRA 1,4
*
02415 -0500 00 0 02426 IND CAL SPWD GET THE ORIGINAL INPUT WORD.
02416 -0320 00 0 11351 ANA =O300000000000 MASK OFF THE PREFIX, LESS SIGN.
02417 -0100 00 0 02362 TNZ NOFLG IF EITHER BIT ON, DON'T TYPE *.
02420 TYO =H00000* BOTH BITS OFF, ASSUME TYPE B.
02422 -0634 00 0 00731 ZSD WORD CLEAR DECREMENT.
02423 0020 00 0 02362 TRA NOFLG GO BACK.
*
02424 0 00000 0 00000 DECFLD DECREMENT FIELD OF THE WORD.
02425 0 00000 0 00000 SPTAG TAG FIELD OF THE OUTPUT WORD.
02426 0 00000 0 00000 SPWD THE ORIGINAL SRGUMENT.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 49
BCSCH. BREAK CHARACTER SEARCHING ROUTINE.
* SEARCHES INPUT BUFFER FOR ONE OF THE BREAK CHARACTERS. RETURNS
* WITH LAST SIX CHARACTERS (LEADING BLANKS) IN MQ, BREAK CHARACTER
* IN AC, SIGN MINUS(=1) IF ANY OF THE CHARACTERS SEEN WAS NOT
* NUMERIC (IE 0 - 7).
02427 0634 00 4 02455 BCSCH SXA BCEND,4
02430 0600 00 0 02464 CLEAR BCFLG CLEAR FLAG (INDICATE NUMERIC FIELD).
02431 -0500 00 0 11367 CAL =H
02432 0602 00 0 02465 SLW BCSYM SET WORD TO BLANKS.
02433 0074 00 4 01336 BCRET TSX TYI,4 GET THE NEXT CHARACTER.
02434 0774 00 4 00005 AXT BCTAB-BCORG,4 SEARCH BREAK CHARACTER TABLE.
02435 -0340 00 4 02464 BCLK LAS BCTAB,4
02436 0020 00 0 02440 TRA *+2
02437 0020 00 0 02451 TRA BCBRK LEAVE IF BREAK CHARACTER.
02440 2 00001 4 02435 TIX BCLK,4,1
02441 -0765 00 0 00006 LGR 6 NOT A BREAK CHARACTER.
02442 -0500 00 0 02465 CAL BCSYM
02443 -0763 00 0 00006 LGL 6 SHIFT INTO WORD.
02444 0602 00 0 02465 SLW BCSYM
02445 -0320 00 0 11323 ANA =O70 IF IT IS NUMERIC,
02446 0100 00 0 02433 TZE BCRET GO BACK.
02447 0602 00 0 02464 SLW BCFLG OTHERWISE SET FLAG AND.
02450 0020 00 0 02433 TRA BCRET THEN GO BACK.
*
02451 0760 00 0 00003 BCBRK SSP
02452 0520 00 0 02464 ZET BCFLG IF NOT NUMERIC,
02453 -0760 00 0 00003 SSM SET SIGN TO 1 AS INDICATOR.
02454 0560 00 0 02465 LDQ BCSYM PICK UP WORD IN MQ.
02455 0774 00 4 00000 BCEND AXT ..,4
02456 0020 00 4 00001 TRA 1,4 EXIT.
*
02457 000000000020 BCORG BCI 4,00000+00000-00000,00000
02463 +000000000055 OCT 55 CARRIAGE RETURN.
02464 BCTAB EQU * TABLE OF BREAK CHARACTERS.
02464 0 00000 0 00000 BCFLG FLAG.. FIELD NOT ENTIRELY NUMERIC.
02465 0 00000 0 00000 BCSYM ASSEMBLED SYMBOL.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 50
FLDEVL. FIELD EVALUATION ROUTINE.
* EVALUATE A FIELD OF SYMBOLS AND OCTAL NUMBERS SEPARATED BY +
* AND - SIGNS UNTIL IT ENCOUNTERS ANOTHER BREAK CHARACTER OR AN
* UNDEFINED SYMBOL.
* RETURNS WITH FIELD VALUE
* (IN 2'S COMPLEMENT FORM) IN MQ, BREAK CHARACTER IN AC.
02466 0634 00 4 02526 EVAL SXA EVEND,4 SAVE RETURN INDEX.
02467 0600 00 0 02543 STZ EVTOT CLEAR FIELD VALUE.
02470 0600 00 0 02544 CLEAR EVSGN ASSUME INITIAL PLUS SIGN.
02471 0020 00 0 02476 TRA EVGO USE INITIAL DATA IN AC - MQ.
*
02472 0634 00 4 02526 FLDEVL SXA EVEND,4 SAVE RETURN INDEX.
02473 0600 00 0 02543 STZ EVTOT
02474 0600 00 0 02544 CLEAR EVSGN
02475 0074 00 4 02427 EVRET TSX BCSCH,4 GET NEXT SYMBOL, BREAK CHARACTER.
02476 0602 00 0 02545 EVGO SLW EVBC SAVE BREAK CHARACTER.
02477 0120 00 0 02530 TPL EVNUM SYMBOL IS OCTAL NUMBER.
02500 -0130 00 0 00000 XCL
02501 0074 00 4 02546 TSX LADJ,4 ADJUST THE SYMBOL TO THE LEFT.
02502 0074 00 4 02761 TSX SYMBIN,4 LOOK UP THE VALUE OF THE SYMBOL.
02503 0760 00 0 00003 EVADD SSP
02504 0520 00 0 02544 ZET EVSGN IF NOT ZERO,
02505 -0760 00 0 00003 SSM SET SIGN MINUS.
02506 0400 00 0 02543 ADD EVTOT
02507 0601 00 0 02543 STO EVTOT
02510 -0500 00 0 02545 CAL EVBC
02511 TEQ EVPLS,=H00000+ IF PLUS SIGN, NEXT SYMBOL IS TO BE ADDED.
02514 TEQ EVMIN,=H00000- IF MINUS, NEXT SYMBOL IS TO BE SUBTRACTED.
02517 0500 00 0 02543 CLA EVTOT WAS NOT + OR -.
02520 0120 00 0 02523 TPL *+3
02521 0737 00 4 00000 PAC ,4 IF NEGATIVE, COMPLEMENT IN INDEX REG.
02522 0754 00 4 00000 PXA ,4 RETURN TO AC.
02523 -0320 00 0 11332 ANA =O77777 MASK OFF 15 BITS.
02524 -0130 00 0 00000 XCL PUT IN MQ.
02525 -0500 00 0 02545 CAL EVBC PICK UP BREAK CHARACTER.
02526 0774 00 4 00000 EVEND AXT ..,4
02527 0020 00 4 00001 TRA 1,4
*
02530 -0773 00 0 00006 EVNUM RQL 6
02531 0774 00 4 00005 AXT 5,4 SET UP COUNTER.
02532 -0754 00 0 00000 ZAC CLEAR AC.
02533 -0773 00 0 00003 RQL 3
02534 -0763 00 0 00003 LGL 3 CONVERT NUMBER.
02535 2 00001 4 02533 TIX *-2,4,1
02536 0020 00 0 02503 TRA EVADD GO BACK.
*
02537 0600 00 0 02544 EVPLS CLEAR EVSGN
02540 0020 00 0 02475 TRA EVRET
*
02541 -0625 00 0 02544 EVMIN SETF EVSGN
02542 0020 00 0 02475 TRA EVRET
*
02543 0 00000 0 00000 EVTOT ACCUMULATING VALUE OF FIELD.
02544 0 00000 0 00000 EVSGN FLAG.. THIS SUBFIELD IS NEGATIVE.
02545 0 00000 0 00000 EVBC BREAK CHARACTER AT END OF SUBFIELD.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 51
LADJ. LEFT ADJUSTING ROUTINE.
* SHIFTS A SYMBOL IN LOGICAL AC LEFT, INSERTING BLANKS ON THE RIGHT
* UNTIL THERE ARE NO BLANKS ON THE LEFT.
* A WORD OF ALL BLANKS IS IGNORED.
02546 0602 00 0 02567 LADJ SLW LAW SAVE WORD.
02547 TEQ (1,4),=H IF WORD IS BLANK, PREVENT LOOP.
02552 0560 00 0 02567 LAR LDQ LAW
02553 -0763 00 0 00006 LGL 6 MOVE LEFT CHARACTER INTO AC.
02554 -0320 00 0 11326 ANA =O77 MASK IT OFF.
02555 TBL LASH WAS BLANK, GO SHIFT WORD.
02560 -0500 00 0 02567 CAL LAW PICK UP WORD.
02561 0020 00 4 00001 TRA 1,4 EXIT.
*
02562 -0500 00 0 02567 LASH CAL LAW PICK UP WORD.
02563 0560 00 0 11367 LDQ =H BLANKS.
02564 -0763 00 0 00006 LGL 6 SHIFT (LOSE LEFT BLANK).
02565 0602 00 0 02567 SLW LAW RESTORE.
02566 0020 00 0 02552 TRA LAR TRY AGAIN.
*
02567 0 00000 0 00000 LAW WORD BEING ADJUSTED.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 52
TABRD. READ SYMBOL TABLE FILE.
02570 0634 00 4 02671 TABRD SXA SRXC,4
02571 0634 00 2 02672 SXA SRXB,2
02572 0634 00 1 02673 SXA SRXA,1
02573 0602 00 0 06141 SLW TFILE SAVE THE PRIMARY FILE NAME.
02574 -0600 00 0 01003 STQ PORG SAVE THE PROGRAM ORIGIN.
02575 OPEN (=HR,TFILE,((=H SYMTB)),=-0,=-0,DERR) OPEN THE FILE.
02604 BUFFER (TFILE,((=H SYMTB)),(BUF1,,BUFLTH),DERR) ..
02611 SYMRD RDWAIT (TFILE,((=H SYMTB)),=0,(CARD,,14),SYMEOF,=-0,DERR) READ.
02621 0774 00 1 00000 AXT 0,1 INITIALIZE CARD POINTER.
02622 -0500 00 1 01514 SYMADJ CAL CARD,1
02623 TEQ SYMEOF,=H EXIT IF NO MORE SYMBOLS.
02626 0560 00 1 01514 LDQ CARD,1 PICK UP NUMBER.
02627 -0754 00 0 00000 ZAC
02630 -0773 00 0 00006 RQL 6
02631 0774 00 4 00005 AXT 5,4
02632 -0773 00 0 00003 RQL 3 CONVERT NUMBER.
02633 -0763 00 0 00003 LGL 3
02634 2 00001 4 02632 TIX *-2,4,1
02635 0400 00 0 01003 ADD PORG RELOCATE THE SYMBOL VALUE.
02636 -0320 00 0 11332 ANA =O77777 ASSUME ALL ARE RELOCATABLE.
02637 0602 00 0 00731 SLW WORD SAVE VALUE.
02640 -0500 00 1 01515 CAL CARD+1,1 PICK UP SYMBOL.
02641 0560 00 1 01516 LDQ CARD+2,1
02642 -0763 00 0 00022 LGL 18 SHIFT SYMBOL INTO 1 WORD.
02643 0602 00 0 02675 SLW SFF SAVE SYMBOL IN CASE OF FULL TABLE.
02644 0560 00 0 00731 LDQ WORD GET THE SYMBOL VALUE.
02645 0074 00 4 03002 TSX DEFINE,4 TRY TO INSERT IT IN TABLE.
02646 0020 00 0 02652 TRA SYMFUL FAILURE, NO MORE ROOM.
02647 1 77775 1 02650 TXI *+1,1,-3
02650 3 77764 1 02622 TXH SYMADJ,1,-12
02651 0020 00 0 02611 TRA SYMRD GET NEXT CARD.
*
02652 SYMFUL TYPA 7,(TABLE FULL, FIRST SYMBOL NOT INSERTED IS *)
02654 0074 00 4 02201 TSX QUOTE,4 TYPE THE LEFT QUOTES.
02655 NAMOUT SFF TYPE THE SYMBOL.
02657 0074 00 4 02201 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
02660 TYO =H00000. PUNCTUATE THE SENTENCE.
02662 0074 00 4 02175 TSX CR,4 RETURN THE CARRIAGE.
02663 SYMEOF CLOSE (TFILE,((=H SYMTB)),DERR) CLOSE THE FILE, READING DONE.
02667 TDONE TYPE 3,(SYMBOLS LOADED.*)
02671 0774 00 4 00000 SRXC AXT ..,4
02672 0774 00 2 00000 SRXB AXT ..,2
02673 0774 00 1 00000 SRXA AXT ..,1
02674 0020 00 4 00001 TRA 1,4
*
02675 0 00000 0 00000 SFF STORAGE FOR SYMBOL WHICH DIDN'T MAKE IT.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 53
KILTAB. EMPTY SYMBOL TABLE OF ALL BUT OUR SYMBOLS.
02676 0634 00 4 02701 KILTAB SXA KXR,4
02677 0774 00 4 00002 AXT SYMEND-SYMTAB+2,4 RESET INDEX OF ENTRIES IN TABLE.
02700 0634 00 4 03001 SXA SYMLTH,4
02701 0774 00 4 00000 KXR AXT ..,4
02702 0020 00 4 00001 TRA 1,4
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 54
A/R SET OUTPUT MODE TO ABSOLUTE OR RELATIVE.
02703 0500 00 0 00730 SETABS CLA BC PICK UP BREAK CHARACTER
02704 TNCR ILF CHECK FOR CR
02710 -0625 00 0 02721 SETF ABSSW SET ABSOLUTE ADDRESSING MODE
02711 0020 00 0 00006 TRA MAIN ..
*
02712 0500 00 0 00730 SETREL CLA BC PICK UP BREAK CHARACTER
02713 TNCR ILF ..
02717 0600 00 0 02721 CLEAR ABSSW CLEAR ABSOLUTE ADDRESSING MODE
02720 0020 00 0 00006 TRA MAIN ..
*
02721 0 00000 0 00000 ABSSW ABSOLUTE ADDRESSING MODE SWITCH
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 55
SYMBCD. GET BEST SYMBOL, CORRECTION, GIVEN VALUE.
02722 0634 00 4 02753 SYMBCD SXA SCHEND,4 ENTER W/ VALUE IN AC (ADDRESS).
02723 -0320 00 0 11332 ANA =O77777 MASK AWAY GARBAGE.
02724 0601 00 0 02755 STO SYMVAL SAVE AS ORIGINAL ARGUMENT.
02725 0601 00 0 02757 STO SYMCOR SAVE AS BEST CORRECTION FACTOR.
02726 0601 00 0 02760 STO SYMABS SAVE AS .ABS.(BEST FACTOR).
02727 0534 00 4 03001 LXA SYMLTH,4 GET NUMBER OF ENTRIES IN SYMBOL TABLE.
02730 -0500 00 0 11367 CAL =H
02731 0602 00 0 02756 SLW SYMBOL
02732 0520 00 0 02721 ZET ABSSW CHECK FOR ABSOLUTE ADDRESSING MODE
02733 0020 00 0 02751 TRA SBCF DON'T CHECK SYMBOL FOR ABSOLUTE MODE
02734 -2 00002 4 02751 SCHLOP TNX SBCF,4,2
02735 0500 00 0 02755 CLA SYMVAL
02736 0402 00 4 06142 SUB SYMEND+1,4
02737 -0340 00 0 02760 LAS SYMABS IS MAGNITUDE SMALLER THAN 'BEST' MAGNITUDE.
02740 0020 00 0 02734 TRA SCHLOP
02741 0761 00 0 00000 NOP
02742 0100 00 0 02744 TZE SBOK IF CORRECTION ZERO, DON'T CHECK SYMBOL.
02743 -3 00000 4 02734 TXL SCHLOP,4,SYMEND-SYMTAB NO, DON'T USE OUR SYMBOL.
02744 0601 00 0 02757 SBOK STO SYMCOR BEST SO FAR.
02745 0602 00 0 02760 SLW SYMABS SAVE ABSOLUTE VALUE OF DIFFERENCE.
02746 -0500 00 4 06141 CAL SYMEND,4
02747 0602 00 0 02756 SLW SYMBOL
02750 0020 00 0 02734 TRA SCHLOP
*
02751 0560 00 0 02756 SBCF LDQ SYMBOL
02752 0500 00 0 02757 CLA SYMCOR
02753 0774 00 4 00000 SCHEND AXT ..,4
02754 0020 00 4 00001 TRA 1,4
*
02755 0 00000 0 00000 SYMVAL VALUE BEING SEARCHED FOR.
02756 0 00000 0 00000 SYMBOL 'BEST' SYMBOL SO FAR.
02757 0 00000 0 00000 SYMCOR CORRECTION NECESSARY FOR THIS SYMBOL.
02760 0 00000 0 00000 SYMABS .ABS.(SYMCOR).
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 56
SYMBIN. GET VALUE OF SYMBOL, GIVEN BCD CODE.
02761 0634 00 4 02771 SYMBIN SXA SBXR,4 SAVE RETURN.
02762 0534 00 4 03001 LXA SYMLTH,4 SET UP COUNTER.
02763 -2 00002 4 02773 SBRET TNX NOSYM,4,2 HAVE WE DONE YET.Q
02764 TNE SBRET,(SYMEND,4) IF NOT THIS SYMBOL, TRY THE NEXT.
02770 -0500 00 4 06142 SBFND CAL SYMEND+1,4 PICK UP VALUE.
02771 0774 00 4 00000 SBXR AXT ..,4
02772 0020 00 4 00001 TRA 1,4 RETURN W/ SYMBOL VALUE.
*
02773 NOSYM TNE UNDEF,=H* IS THE SYMBOL '*', FOR THIS LOCATION.
02777 -0500 00 0 00202 SBPOI CAL LOC GET THE CURRENT LOCATION.
03000 0020 00 0 02771 TRA SBXR
*
03001 0 00000 0 00002 SYMLTH SYMEND-SYMTAB+2 SO THAT PERMANENT SYMS ARE DEFINED.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 57
DEFINE. INSERT NEW SYMBOL, VALUE INTO TABLE.
03002 0634 00 4 03035 DEFINE SXA DFXC,4 ENTER TO DEFINE SYMBOL.
03003 0534 00 4 03001 LXA SYMLTH,4 SET UP.
03004 -2 00002 4 03027 DEFRET TNX DEFNO,4,2 SEARCH SYMBOL TABLE.
03005 TNE DEFRET,(SYMEND,4) IS THIS THE ONE.Q
03011 -3 00000 4 03014 DEFYES TXL DEFOOP,4,SYMEND-SYMTAB DON'T CHANGE OUR SYMBOLS.
03012 -0600 00 4 06142 STQ SYMEND+1,4 PUT VALUE IN TABLE.
03013 0020 00 0 03035 TRA DFXC
*
03014 0602 00 0 03026 DEFOOP SLW DOBS SAVE THE BAD SYMBOL.
03015 TYPA 7,(ATTEMPT TO REDEFINE INTERNAL SYMBOL *)
03017 0074 00 4 02201 TSX QUOTE,4 TYPE THE LEFT QUOTES.
03020 NAMOUT DOBS TYPE THE SYMBOL.
03022 0074 00 4 02201 TSX QUOTE,4 TYPE THE RIGHT QUOTES.
03023 TYPE 2,( IGNORED.*)
03025 0020 00 0 03035 TRA DFXC IGNORE THE ATTEMPT AT REDEFINITION.
*
03026 0 00000 0 00000 DOBS STORAGE FOR THE INTERNAL SYMBOL.
*
03027 0534 00 4 03001 DEFNO LXA SYMLTH,4
03030 3 03100 4 03037 TXH DEFFUL,4,SYMLNG+SYMEND-SYMTAB
03031 0602 00 4 06141 SLW SYMEND,4 STORE IN TABLE.
03032 -0600 00 4 06142 STQ SYMEND+1,4 PUT VALUE IN TABLE.
03033 1 00002 4 03034 TXI *+1,4,2 INCREASE LENGTH INDICATOR.
03034 0634 00 4 03001 SXA SYMLTH,4
03035 0774 00 4 00000 DFXC AXT ..,4 OK.
03036 0020 00 4 00002 TRA 2,4 EXIT TO OK LOC.
*
03037 0534 00 4 03035 DEFFUL LXA DFXC,4
03040 0020 00 4 00001 TRA 1,4
*
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 58
SYMTAB. SYMBOL TABLE.
03100 SYMLNG EQU 1600 MAKE ROOM FOR 800 SYMBOLS.
06141 SYMTAB BES SYMLNG TABLE OF USER'S SYMBOLS.
06141 SYMEND EQU * END OF SYMBOL TABLE.
*
06141 0 00000 0 00000 TFILE PRIMARY FILE NAME.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 59
FLOOUT. FLOATING POINT OUTPUT ROUTINE.
06142 0634 00 4 06241 FLOOUT SXA FXC,4 SAVE XR'S.
06143 0634 00 2 06242 SXA FXB,2
06144 0634 00 1 06243 SXA FXA,1
06145 0601 00 0 06245 STO FNUM SAVE THE INPUT NUMBER.
06146 0131 00 0 00000 XCA MOVE IT TO THE MQ.
06147 -0500 00 0 11316 CAL =H00000- ASSUME NEGATIVE.
06150 0162 00 0 06152 TQP *+2 IF IT IS,
06151 0074 00 4 02137 TSX TYO,4 PRINT THE SIGN.
06152 0131 00 0 00000 XCA GET NUMBER BACK INTO THE AC.
06153 -0100 00 0 06163 TNZ REG IF NUMBER .E. ZERO, USE BRIEF FORM.
06154 -0754 00 0 00000 ZAC THEN PRINT A ZERO.
06155 0074 00 4 02137 TSX TYO,4
06156 TYO =H00000. THEN A PERIOD.
06160 -0754 00 0 00000 ZAC THEN ANOTHER ZERO.
06161 0074 00 4 02137 TSX TYO,4
06162 0020 00 0 06241 TRA FXC THEN EXIT.
*
06163 0131 00 0 00000 REG XCA GET NUMBER INTO THE MQ.
06164 -0754 00 0 00000 ZAC CLEAR THE AC.
06165 0765 00 0 00000 LRS 0 MAKE MQ POSITIVE.
06166 0763 00 0 00010 LLS 8 GET EXPONENT INTO THE AC.
06167 0402 00 0 11327 SUB =128 NORMALIZE IT.
06170 0120 00 0 06172 TPL *+2 IF NEGATIVE,
06171 0402 00 0 11302 SUB =1 BIAS EXPONENT.
06172 0131 00 0 00000 XCA PLACE IT IN THE MQ.
06173 0204 14 0 11330 VLM =.30103B23,,12 CONVERT TO DECIMALS.
06174 0734 00 1 00000 PAX ,1 PLACE RESULT IN XR 1.
06175 0601 00 0 06246 STO XPNT SAVE EXPONENT.
06176 -0120 00 0 06203 TMI NEG GO TO MULTIPLY SECTION IF NEGATIVE.
06177 0500 00 0 06245 CLA FNUM GET THE NUMBER.
06200 0241 00 1 01330 FDP TEN,1 NORMALIZE IT.
06201 0131 00 0 00000 XCA MOVE TO THE AC.
06202 0020 00 0 06205 TRA NOR GO NORMALIZE.
*
06203 0560 00 0 06245 NEG LDQ FNUM GET THE NUMBER.
06204 0260 00 1 01330 FMP TEN,1 NORMALIZE IT.
06205 0760 00 0 00003 NOR SSP CHECK MAGNITUDE OF NUMBER.
06206 0560 00 0 11336 LDQ =O200777777777 COMPARE W/ ALMOST 1.0.
06207 0040 00 0 06215 TLQ SKIP IF .G. 1., SKIP.
06210 0131 00 0 00000 XCA PUT RESULT IN MQ.
06211 0500 00 0 06246 CLA XPNT ADJUST EXPONENT.
06212 0402 00 0 11302 SUB =1
06213 0601 00 0 06246 STO XPNT
06214 0260 00 0 11337 FMP =10. NORMALIZE.
06215 -0300 00 0 11342 SKIP UFA =O233000000000 GET INTEGER.
06216 0734 00 1 00000 PAX ,1 PUT IT IN XR 1.
06217 0763 00 0 00010 LLS 8 NORMAL FRACTION IN MQ.
06220 0754 00 1 00000 PXA ,1 GET THE DIGIT.
06221 0074 00 4 02137 TSX TYO,4 TYPE IT.
06222 TYO =H00000. TYPE A DECIMAL POINT.
06224 0774 00 1 00010 AXT 8,1 SET UP FOR MAXIMUM OF 8 DIGITS.
06225 0131 00 0 00000 FRAC XCA MOVE THE REST OF THE NUMBER INTO THE AC.
06226 0100 00 0 06233 TZE FXP IF ZERO, GO PRINT THE EXPONENT.
06227 0131 00 0 00000 XCA OTHERWISE, MOVE IT BACK TO THE MQ.
06230 0200 00 0 11307 MPY =10 GET THE NEXT DIGIT.
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 60
FLOOUT. FLOATING POINT OUTPUT ROUTINE.
06231 0074 00 4 02137 TSX TYO,4 TYPE IT.
06232 2 00001 1 06225 TIX FRAC,1,1 GO BACK FOR THE NEXT DIGIT IF ANY.
06233 -0520 00 0 06246 FXP NZT XPNT IS THE EXPONENT ZERO.Q
06234 0020 00 0 06241 TRA FXC YES, SKIP IT.
06235 TYO =H00000E TYPE THE 'E'.
06237 INTOUT XPNT TYPE THE EXPONENT.
06241 0774 00 4 00000 FXC AXT ..,4 RESTORE THE XR'S.
06242 0774 00 2 00000 FXB AXT ..,2
06243 0774 00 1 00000 FXA AXT ..,1
06244 0020 00 4 00001 TRA 1,4 EXIT.
*
06245 0 00000 0 00000 FNUM STORAGE FOR THE NUMBER TO BE OUTPUT.
06246 0 00000 0 00000 XPNT STORAGE FOR THE EXPONENT.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 61
INTEGER (BASE 10 AND 8) OUTPUT.
* OCTOUT. OCTAL OUTPUT.
06247 0560 00 0 11305 OCTOUT LDQ =O10 BASE IS 8.
06250 0020 00 0 06253 TRA IJON GO JOIN INTOUT AND JNTOUT.
*
* DECOUT. INTEGER DECIMAL OUTPUT.
06251 0771 00 0 00022 DECOUT ARS 18 SHIFT DECREMENT INTEGER INTO ADDRESS.
06252 0560 00 0 11307 INTOUT LDQ =10 BASE IS 10.
06253 -0600 00 0 01103 IJON STQ BASE SAVE THE BASE.
06254 0634 00 4 06301 SXA IXC,4 SAVE RETURN INDEX.
06255 0634 00 2 06300 SXA IXB,2
06256 0601 00 0 06303 STO CQ SAVE THE INPUT WORD.
06257 0131 00 0 00000 XCA PREPARE TO OUTPUT SIGN.
06260 -0500 00 0 11316 CAL =H00000- GET A MINUS SIGN.
06261 0162 00 0 06263 TQP *+2 IF THE SIGN IS NEGATIVE,
06262 0074 00 4 02137 TSX TYO,4 PRINT THE SIGN.
06263 0774 00 2 00001 AXT 1,2 SET POINTER TO THE BEGINNING OF THE BUFFER.
06264 0600 00 0 06320 STZ BUFF+12 INSERT ZERO INTO BUFFER INITIALLY.
06265 0500 00 0 06303 INEXT CLA CQ GET THE (REMAINING) NUMBER.
06266 0100 00 0 06274 TZE IFIX IF ZERO, QUIT.
06267 0765 00 0 00043 LRS 35 IF NOT, SHIFT INTO MQ FOR DIVISION.
06270 0221 00 0 01103 DVP BASE GET NEXT DIGIT IN THE AC.
06271 -0600 00 0 06303 STQ CQ SAVE THE NEW NUMBER.
06272 0602 00 2 06321 SLW BUFF+13,2 SAVE THIS DIGIT.
06273 1 00001 2 06265 TXI INEXT,2,1 GO GET THE NEXT DIGIT.
*
06274 2 00001 2 06275 IFIX TIX *+1,2,1 BOUNCE OVER FIRST CHARACTER IF ANY.
06275 -0500 00 2 06321 IFOX CAL BUFF+13,2 GET THE CHARACTER TO BE TYPED.
06276 0074 00 4 02137 TSX TYO,4 TYPE IT.
06277 2 00001 2 06275 TIX IFOX,2,1 COUNT AND GET NEXT CHARACTER IF ANY.
06300 0774 00 2 00000 IXB AXT ..,2 RESTORE THE XR'S.
06301 0774 00 4 00000 IXC AXT ..,4
06302 0020 00 4 00001 TRA 1,4 EXIT.
*
06303 0 00000 0 00000 CQ STORAGE FOR THE WORD BEING CONVERTED.
*
06304 BUFF BSS 13 OUTPUT CHARACTER ARRAY.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 62
DERR. DISK ERROR DIAGNOSTIC ROUTINE.
06321 DERR IODIAG ((DIAG,,DILTH)) GET THE INFORMATION.
06323 -0500 00 0 06420 CAL DISUBR GET THE SUBROUTINE NAME.
06324 TEQ OPEN1,=HOPEN GO CHECK ERROR CODE IF IT IS 'OPEN'.
06327 NOPE BCDOUT =HERROR GIVE GENERAL COMMENT.
06331 OCTOUT DICODE TYPE THE ERROR CODE.
06333 BCDOUT (=H FROM ) ..
06335 NAMOUT DISUBR TYPE THE SUBROUTINE NAME.
06337 TYPA 1,( FOR *) ..
06341 0074 00 4 02201 TSX QUOTE,4 QUOTE THE FILE NAMES.
06342 NAMOUT DIN1 TYPE THE FILE NAMES.
06344 TYO =H00000 ..
06346 NAMOUT DIN2 ..
06350 0074 00 4 02201 TSX QUOTE,4 ..
06351 TYO =H00000. TERMINATE THE SENTENCE.
06353 0074 00 4 02175 TSX CR,4 RETURN THE CARRIAGE.
06354 -0500 00 0 06420 CAL DISUBR GET THE SUBROUTINE NAME AGAIN.
06355 TEQ OOPS,=HOPEN IGNORE IF 'OPEN'.
06360 TEQ OOPS,=HCLOSE OR IF 'CLOSE'.
06363 CLOSE (DIN1,DIN2,OOPS) OTHERWISE, TRY TO CLOSE IT.
06367 0020 00 0 00726 TRA OOPS GO SET ERROR FLAG.
*
06370 -0500 00 0 06421 OPEN1 CAL DICODE GET THE ERROR CODE.
06371 TEQ OPEN2,=12 IS IT 'FILE NOT FOUND'.Q
06374 TNE NOPE,=6 NO, IS IT 'LINKED FILE NOT FOUND'.Q
06400 TYPA 2,(LINKED *) YES, START THE COMMENT.
06402 OPEN2 TYPA 1,(FILE *) ..
06404 0074 00 4 02201 TSX QUOTE,4 TYPE THE FILE NAMES.
06405 NAMOUT DIN1 ..
06407 TYO =H00000 ..
06411 NAMOUT DIN2 ..
06413 0074 00 4 02201 TSX QUOTE,4 ..
06414 TYPE 2,( NOT FOUND.*) END THE COMMENT.
06416 0020 00 0 00726 TRA OOPS GO SET ERROR FLAG.
*
06417 DIAG EQU * DISK DIAGNOSTIC INFORMATION ARRAY..
06417 0 00000 0 00000 DICALL CALLER'S LOCATION.
06420 0 00000 0 00000 DISUBR DISK SUBROUTINE NAME.
06421 0 00000 0 00000 DICODE ERROR CODE.
06422 0 00000 0 00000 DIOCOD I/O ERROR CODE.
06423 0 00000 0 00000 DIN1 FIRST NAME OF THE FILE.
06424 0 00000 0 00000 DIN2 SECOND NAME OF THE FILE.
00006 DILTH EQU *-DIAG LENGTH OF THE ARRAY.
*
00660 BUFLTH EQU 432 SIZE OF PRIMARY BUFFERS NEEDED.
06425 BUF1 BSS BUFLTH THE BUFFER FOR GENERAL USE.
07305 BUF2 BSS BUFLTH THE BUFFER FOR REQUEST FILES.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 63
OPBCD. GET BCD CODE, GIVEN BINARY VALUE.
10165 0634 00 4 10220 OPBCD SXA OPXR,4
10166 0600 00 0 10253 CLEAR FLAG
10167 -0320 00 0 11377 ANA =O777700007777 GET RID OF IRRELEVANT PARTS OF THE WORD.
10170 0074 00 4 10204 TSX OPSCH,4 SEARCH TABLE.
10171 0020 00 0 10202 TRA FND
10172 -0320 00 0 11376 ANA =O777700000000 GET RID OF ADDRESS.
10173 0074 00 4 10204 TSX OPSCH,4 TRY AGAIN.
10174 0020 00 0 10202 TRA FND
10175 0771 00 0 00040 ARS 32 RETURN IF NOT IN TABLE, USE PREFIX.
10176 -0320 00 0 11312 ANA =O16
10177 0734 00 4 00000 PAX ,4 SET INDEX.
10200 0767 00 0 00040 ALS 32 RESTORE AC.
10201 0560 00 4 11132 LDQ OPEND-2,4 PICK UP BCD OP. CODE.
10202 0534 00 4 10220 FND LXA OPXR,4
10203 0020 00 4 00001 TRA 1,4 RETURN.
*
10204 0634 00 4 10212 OPSCH SXA OSXR,4
10205 0774 00 4 00574 AXT OPEND-OPORG,4 SET UP COUNT.
10206 TEQ FNDIT,(OPEND+1,4) IS THIS THE ENTRY.Q
10211 2 00002 4 10206 TIX *-3,4,2
10212 0774 00 4 00000 OSXR AXT ..,4 NOT IN TABLE, EXIT.
10213 0020 00 4 00002 TRA 2,4
*
10214 0560 00 4 11134 FNDIT LDQ OPEND,4 PICK UP THE BCD CHARACTERS.
10215 0534 00 4 10212 LXA OSXR,4
10216 0020 00 4 00001 TRA 1,4 EXIT W/ BINARY IN AC, BCD IN MQ.
*
10217 0 00000 0 00000 OPCDE BCD OP CODE BEING LOOKED UP.
10220 0 00000 0 00000 OPXR STORAGE FOR XR 4 (OPBIN).
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 64
OPBIN. GET BINARY VALUE, GIVEN BCD CODE.
10221 0634 00 4 10220 OPBIN SXA OPXR,4
10222 0602 00 0 10217 SLW OPCDE
10223 -0320 00 0 11326 ANA =O77
10224 TEQ OPFLG,=H00000* TAKE CARE OF INDIRECT FLAG.
10227 0600 00 0 10253 STZ FLAG NOT INDIRECT. RESET FLAG.
10230 -0500 00 0 10217 CAL OPCDE
10231 0074 00 4 02546 OPRET TSX LADJ,4 ADJUST THE CODE TO THE LEFT.
10232 0774 00 4 00660 AXT OPEND-OPPRFX,4 SET UP COUNTER.
10233 OPLK TEQ OPFND,(OPEND,4) IS THIS IT.Q
10236 2 00002 4 10233 TIX OPLK,4,2 TRY NEXT WORD.
10237 0020 00 0 00717 TRA UNDEF COMPLAIN ABOUT UNDEFINED SYMBOL.
*
10240 -0500 00 4 11135 OPFND CAL OPEND+1,4 PICK UP CODE.
10241 -0501 00 0 10253 ORA FLAG
10242 0534 00 4 10220 LXA OPXR,4
10243 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
10244 -0500 00 0 11333 OPFLG CAL =O60000000
10245 0602 00 0 10253 SLW FLAG
10246 0560 00 0 10217 LDQ OPCDE GET RID OF '*'.
10247 -0500 00 0 11367 CAL =H
10250 -0765 00 0 00006 LGR 6 SHIFT OFF '*,' ENTER BLANK.
10251 -0130 00 0 00000 XCL
10252 0020 00 0 10231 TRA OPRET
*
10253 0 00000 0 00000 FLAG INDIRECT FLAG.
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 65
TABLE OF OPERATION CODES.
RHC MACRO A
IRP A
GEN ,BCI,(1,A) GENERATE BCD CODE.
GEN ,A,(0,0,0) GENERATE BINARY VALUE.
IRP
END RHC
*
-0 17560 0 05336 PMC OPSYN SHOW *REVIVE DEFINITION OF PMC TO PRINT TABLE.
*
* BCD TO BINARY OPERATION CODE TABLE STARTS HERE.
10254 OPPRFX EQU *
10254 RHC ...
10254 333333606060 BCI 1,... .002
10255 0 00000 0 00000 ... 0,0,0 .002
10256 RHC PON
10256 474645606060 BCI 1,PON .002
10257 1 00000 0 00000 PON 0,0,0 .002
10260 RHC ONE
10260 464525606060 BCI 1,ONE .002
10261 1 00000 0 00000 ONE 0,0,0 .002
10262 RHC PTW
10262 476366606060 BCI 1,PTW .002
10263 2 00000 0 00000 PTW 0,0,0 .002
10264 RHC BLK BLOCK.
10264 224342606060 BCI 1,BLK .002
10265 2 00000 0 00000 BLK 0,0,0 .002
10266 RHC TWO
10266 636646606060 BCI 1,TWO .002
10267 2 00000 0 00000 TWO 0,0,0 .002
10270 RHC PTH
10270 476330606060 BCI 1,PTH .002
10271 3 00000 0 00000 PTH 0,0,0 .002
10272 RHC (BRN,PAR) BRANCH NEVER, PARAMETER.
10272 225145606060 BCI 1,BRN .002
10273 3 00000 0 00000 BRN 0,0,0 .002
10274 472151606060 BCI 1,PAR .002
10275 3 00000 0 00000 PAR 0,0,0 .002
10276 RHC THREE
10276 633051252560 BCI 1,THREE .002
10277 3 00000 0 00000 THREE 0,0,0 .002
10300 RHC FOR
10300 264651606060 BCI 1,FOR .002
10301 -0 00000 0 00000 FOR 0,0,0 .002
10302 RHC FOUR
10302 264664516060 BCI 1,FOUR .002
10303 -0 00000 0 00000 FOUR 0,0,0 .002
10304 RHC MON
10304 444645606060 BCI 1,MON .002
10305 -1 00000 0 00000 MON 0,0,0 .002
10306 RHC FVE
10306 266525606060 BCI 1,FVE .002
10307 -1 00000 0 00000 FVE 0,0,0 .002
10310 RHC (FMT,IOP,ENDIO) I/O LIST PSEUDOINSTRUCTIONS.
10310 264463606060 BCI 1,FMT .002
10311 -1 00000 0 00000 FMT 0,0,0 .002
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 66
TABLE OF OPERATION CODES.
10312 314647606060 BCI 1,IOP .002
10313 -1 00000 0 00000 IOP 0,0,0 .002
10314 254524314660 BCI 1,ENDIO .002
10315 -1 00000 0 00000 ENDIO 0,0,0 .002
10316 RHC FIVE
10316 263165256060 BCI 1,FIVE .002
10317 -1 00000 0 00000 FIVE 0,0,0 .002
10320 RHC SIX
10320 623167606060 BCI 1,SIX .002
10321 -2 00000 0 00000 SIX 0,0,0 .002
10322 RHC MTW
10322 446366606060 BCI 1,MTW .002
10323 -2 00000 0 00000 MTW 0,0,0 .002
10324 RHC MTH
10324 446330606060 BCI 1,MTH .002
10325 -3 00000 0 00000 MTH 0,0,0 .002
10326 RHC BRA BRANCH.
10326 225121606060 BCI 1,BRA .002
10327 -3 00000 0 00000 BRA 0,0,0 .002
10330 RHC XIT FORTRAN'S NAME FOR 'TTR'.
10330 673163606060 BCI 1,XIT .002
10331 0021 00 0 00000 XIT 0,0,0 .002
10332 RHC (ZSA,ZSD,ZAC) ZERO ADDRESS, DECREMENT, AC.
10332 716221606060 BCI 1,ZSA .002
10333 0634 00 0 00000 ZSA 0,0,0 .002
10334 716224606060 BCI 1,ZSD .002
10335 -0634 00 0 00000 ZSD 0,0,0 .002
10336 712123606060 BCI 1,ZAC .002
10337 -0754 00 0 00000 ZAC 0,0,0 .002
* BINARY TO BCD OPERATION CODE TABLE STARTS HERE.
10340 OPORG RHC TRA
10340 635121606060 BCI 1,TRA .002
10341 0020 00 0 00000 TRA 0,0,0 .002
10342 RHC HTR
10342 306351606060 BCI 1,HTR .002
10343 0000 00 0 00000 HTR 0,0,0 .002
10344 RHC EMTM
10344 254463446060 BCI 1,EMTM .002
10345 -0760 00 0 00016 EMTM 0,0,0 .002
10346 RHC LMTM
10346 434463446060 BCI 1,LMTM .002
10347 0760 00 0 00016 LMTM 0,0,0 .002
10350 RHC (LRI,LPI,SEA,SEB)
10350 435131606060 BCI 1,LRI .002
10351 0562 00 0 00000 LRI 0,0,0 .002
10352 434731606060 BCI 1,LPI .002
10353 -0564 00 0 00000 LPI 0,0,0 .002
10354 622521606060 BCI 1,SEA .002
10355 -0761 00 0 00041 SEA 0,0,0 .002
10356 622522606060 BCI 1,SEB .002
10357 -0761 00 0 00042 SEB 0,0,0 .002
10360 RHC PCA
10360 472321606060 BCI 1,PCA .002
10361 0756 00 0 00000 PCA 0,0,0 .002
10362 RHC PCD
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 67
TABLE OF OPERATION CODES.
10362 472324606060 BCI 1,PCD .002
10363 -0756 00 0 00000 PCD 0,0,0 .002
10364 RHC SCA
10364 622321606060 BCI 1,SCA .002
10365 0636 00 0 00000 SCA 0,0,0 .002
10366 RHC SCD
10366 622324606060 BCI 1,SCD .002
10367 -0636 00 0 00000 SCD 0,0,0 .002
10370 RHC DLD
10370 244324606060 BCI 1,DLD .002
10371 0443 00 0 00000 DLD 0,0,0 .002
10372 RHC DST
10372 246263606060 BCI 1,DST .002
10373 -0603 00 0 00000 DST 0,0,0 .002
10374 RHC DFAD
10374 242621246060 BCI 1,DFAD .002
10375 0301 00 0 00000 DFAD 0,0,0 .002
10376 RHC DUFA
10376 246426216060 BCI 1,DUFA .002
10377 -0301 00 0 00000 DUFA 0,0,0 .002
10400 RHC DFSB
10400 242662226060 BCI 1,DFSB .002
10401 0303 00 0 00000 DFSB 0,0,0 .002
10402 RHC DUFS
10402 246426626060 BCI 1,DUFS .002
10403 -0303 00 0 00000 DUFS 0,0,0 .002
10404 RHC DFAM
10404 242621446060 BCI 1,DFAM .002
10405 0305 00 0 00000 DFAM 0,0,0 .002
10406 RHC DUAM
10406 246421446060 BCI 1,DUAM .002
10407 -0305 00 0 00000 DUAM 0,0,0 .002
10410 RHC DFSM
10410 242662446060 BCI 1,DFSM .002
10411 0307 00 0 00000 DFSM 0,0,0 .002
10412 RHC DUSM
10412 246462446060 BCI 1,DUSM .002
10413 -0307 00 0 00000 DUSM 0,0,0 .002
10414 RHC DFMP
10414 242644476060 BCI 1,DFMP .002
10415 0261 00 0 00000 DFMP 0,0,0 .002
10416 RHC DUFM
10416 246426446060 BCI 1,DUFM .002
10417 -0261 00 0 00000 DUFM 0,0,0 .002
10420 RHC DFDH
10420 242624306060 BCI 1,DFDH .002
10421 -0240 00 0 00000 DFDH 0,0,0 .002
10422 RHC DFDP
10422 242624476060 BCI 1,DFDP .002
10423 -0241 00 0 00000 DFDP 0,0,0 .002
10424 RHC TTR
10424 636351606060 BCI 1,TTR .002
10425 0021 00 0 00000 TTR 0,0,0 .002
10426 RHC TLQ
10426 634350606060 BCI 1,TLQ .002
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 68
TABLE OF OPERATION CODES.
10427 0040 00 0 00000 TLQ 0,0,0 .002
10430 RHC IIA
10430 313121606060 BCI 1,IIA .002
10431 0041 00 0 00000 IIA 0,0,0 .002
10432 RHC TIO
10432 633146606060 BCI 1,TIO .002
10433 0042 00 0 00000 TIO 0,0,0 .002
10434 RHC OAI
10434 462131606060 BCI 1,OAI .002
10435 0043 00 0 00000 OAI 0,0,0 .002
10436 RHC PAI
10436 472131606060 BCI 1,PAI .002
10437 0044 00 0 00000 PAI 0,0,0 .002
10440 RHC TIF
10440 633126606060 BCI 1,TIF .002
10441 0046 00 0 00000 TIF 0,0,0 .002
10442 RHC IIR
10442 313151606060 BCI 1,IIR .002
F 10443 0051 00 000000 IIR 0,0,0 .002
10444 RHC RFT
10444 512663606060 BCI 1,RFT .002
F 10445 0054 00 000000 RFT 0,0,0 .002
10446 RHC SIR
10446 623151606060 BCI 1,SIR .002
F 10447 0055 00 000000 SIR 0,0,0 .002
10450 RHC RNT
10450 514563606060 BCI 1,RNT .002
F 10451 0056 00 000000 RNT 0,0,0 .002
10452 RHC RIR
10452 513151606060 BCI 1,RIR .002
F 10453 0057 00 000000 RIR 0,0,0 .002
10454 RHC (TCOA,TCOB,TCOC,TCOD,TCOE,TCOF,TCOG,TCOH)
10454 632346216060 BCI 1,TCOA .002
10455 0060 00 0 00000 TCOA 0,0,0 .002
10456 632346226060 BCI 1,TCOB .002
10457 0061 00 0 00000 TCOB 0,0,0 .002
10460 632346236060 BCI 1,TCOC .002
10461 0062 00 0 00000 TCOC 0,0,0 .002
10462 632346246060 BCI 1,TCOD .002
10463 0063 00 0 00000 TCOD 0,0,0 .002
10464 632346256060 BCI 1,TCOE .002
10465 0064 00 0 00000 TCOE 0,0,0 .002
10466 632346266060 BCI 1,TCOF .002
10467 0065 00 0 00000 TCOF 0,0,0 .002
10470 632346276060 BCI 1,TCOG .002
10471 0066 00 0 00000 TCOG 0,0,0 .002
10472 632346306060 BCI 1,TCOH .002
10473 0067 00 0 00000 TCOH 0,0,0 .002
10474 RHC TSX
10474 636267606060 BCI 1,TSX .002
10475 0074 00 0 00000 TSX 0,0,0 .002
10476 RHC TZE
10476 637125606060 BCI 1,TZE .002
10477 0100 00 0 00000 TZE 0,0,0 .002
10500 RHC TIA
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 69
TABLE OF OPERATION CODES.
10500 633121606060 BCI 1,TIA .002
10501 0101 00 0 00000 TIA 0,0,0 .002
10502 RHC CVR
10502 236551606060 BCI 1,CVR .002
10503 0114 00 0 00000 CVR 0,0,0 .002
10504 RHC TPL
10504 634743606060 BCI 1,TPL .002
10505 0120 00 0 00000 TPL 0,0,0 .002
10506 RHC XCA
10506 672321606060 BCI 1,XCA .002
10507 0131 00 0 00000 XCA 0,0,0 .002
10510 RHC TOV
10510 634665606060 BCI 1,TOV .002
10511 0140 00 0 00000 TOV 0,0,0 .002
10512 RHC TQO
10512 635046606060 BCI 1,TQO .002
10513 0161 00 0 00000 TQO 0,0,0 .002
10514 RHC TQP
10514 635047606060 BCI 1,TQP .002
10515 0162 00 0 00000 TQP 0,0,0 .002
10516 RHC MPY
10516 444770606060 BCI 1,MPY .002
10517 0200 00 0 00000 MPY 0,0,0 .002
10520 RHC VLM
10520 654344606060 BCI 1,VLM .002
10521 0204 00 0 00000 VLM 0,0,0 .002
10522 RHC DVH
10522 246530606060 BCI 1,DVH .002
10523 0220 00 0 00000 DVH 0,0,0 .002
10524 RHC DVP
10524 246547606060 BCI 1,DVP .002
10525 0221 00 0 00000 DVP 0,0,0 .002
10526 RHC VDH
10526 652430606060 BCI 1,VDH .002
10527 0224 00 0 00000 VDH 0,0,0 .002
10530 RHC VDP
10530 652447606060 BCI 1,VDP .002
10531 0225 00 0 00000 VDP 0,0,0 .002
10532 RHC FDH
10532 262430606060 BCI 1,FDH .002
10533 0240 00 0 00000 FDH 0,0,0 .002
10534 RHC FDP
10534 262447606060 BCI 1,FDP .002
10535 0241 00 0 00000 FDP 0,0,0 .002
10536 RHC FMP
10536 264447606060 BCI 1,FMP .002
10537 0260 00 0 00000 FMP 0,0,0 .002
10540 RHC FAD
10540 262124606060 BCI 1,FAD .002
10541 0300 00 0 00000 FAD 0,0,0 .002
10542 RHC FSB
10542 266222606060 BCI 1,FSB .002
10543 0302 00 0 00000 FSB 0,0,0 .002
10544 RHC FAM
10544 262144606060 BCI 1,FAM .002
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 70
TABLE OF OPERATION CODES.
10545 0304 00 0 00000 FAM 0,0,0 .002
10546 RHC FSM
10546 266244606060 BCI 1,FSM .002
10547 0306 00 0 00000 FSM 0,0,0 .002
10550 RHC ANS
10550 214562606060 BCI 1,ANS .002
10551 0320 00 0 00000 ANS 0,0,0 .002
10552 RHC ERA
10552 255121606060 BCI 1,ERA .002
10553 0322 00 0 00000 ERA 0,0,0 .002
10554 RHC CAS
10554 232162606060 BCI 1,CAS .002
10555 0340 00 0 00000 CAS 0,0,0 .002
10556 RHC ACL
10556 212343606060 BCI 1,ACL .002
10557 0361 00 0 00000 ACL 0,0,0 .002
10560 RHC ADD
10560 212424606060 BCI 1,ADD .002
10561 0400 00 0 00000 ADD 0,0,0 .002
10562 RHC ADM
10562 212444606060 BCI 1,ADM .002
10563 0401 00 0 00000 ADM 0,0,0 .002
10564 RHC SUB
10564 626422606060 BCI 1,SUB .002
10565 0402 00 0 00000 SUB 0,0,0 .002
10566 RHC HPR
10566 304751606060 BCI 1,HPR .002
10567 0420 00 0 00000 HPR 0,0,0 .002
10570 RHC IIS
10570 313162606060 BCI 1,IIS .002
10571 0440 00 0 00000 IIS 0,0,0 .002
10572 RHC LDI
10572 432431606060 BCI 1,LDI .002
10573 0441 00 0 00000 LDI 0,0,0 .002
10574 RHC OSI
10574 466231606060 BCI 1,OSI .002
10575 0442 00 0 00000 OSI 0,0,0 .002
10576 RHC OFT
10576 462663606060 BCI 1,OFT .002
10577 0444 00 0 00000 OFT 0,0,0 .002
10600 RHC RIS
10600 513162606060 BCI 1,RIS .002
10601 0445 00 0 00000 RIS 0,0,0 .002
10602 RHC ONT
10602 464563606060 BCI 1,ONT .002
10603 0446 00 0 00000 ONT 0,0,0 .002
10604 RHC CLA
10604 234321606060 BCI 1,CLA .002
10605 0500 00 0 00000 CLA 0,0,0 .002
10606 RHC CLS
10606 234362606060 BCI 1,CLS .002
10607 0502 00 0 00000 CLS 0,0,0 .002
10610 RHC ZET
10610 712563606060 BCI 1,ZET .002
10611 0520 00 0 00000 ZET 0,0,0 .002
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 71
TABLE OF OPERATION CODES.
10612 RHC XEC
10612 672523606060 BCI 1,XEC .002
10613 0522 00 0 00000 XEC 0,0,0 .002
10614 RHC LXA
10614 436721606060 BCI 1,LXA .002
10615 0534 00 0 00000 LXA 0,0,0 .002
10616 RHC LAC
10616 432123606060 BCI 1,LAC .002
10617 0535 00 0 00000 LAC 0,0,0 .002
10620 RHC LDQ
10620 432450606060 BCI 1,LDQ .002
10621 0560 00 0 00000 LDQ 0,0,0 .002
10622 RHC (RCHA,RCHC,RCHE,RCHG)
10622 512330216060 BCI 1,RCHA .002
10623 0540 00 0 00000 RCHA 0,0,0 .002
10624 512330236060 BCI 1,RCHC .002
10625 0541 00 0 00000 RCHC 0,0,0 .002
10626 512330256060 BCI 1,RCHE .002
10627 0542 00 0 00000 RCHE 0,0,0 .002
10630 512330276060 BCI 1,RCHG .002
10631 0543 00 0 00000 RCHG 0,0,0 .002
10632 RHC ENB
10632 254522606060 BCI 1,ENB .002
10633 0564 00 0 00000 ENB 0,0,0 .002
10634 RHC STZ
10634 626371606060 BCI 1,STZ .002
10635 0600 00 0 00000 STZ 0,0,0 .002
10636 RHC STO
10636 626346606060 BCI 1,STO .002
10637 0601 00 0 00000 STO 0,0,0 .002
10640 RHC SLW
10640 624366606060 BCI 1,SLW .002
10641 0602 00 0 00000 SLW 0,0,0 .002
10642 RHC STI
10642 626331606060 BCI 1,STI .002
10643 0604 00 0 00000 STI 0,0,0 .002
10644 RHC STD
10644 626324606060 BCI 1,STD .002
10645 0622 00 0 00000 STD 0,0,0 .002
10646 RHC STT
10646 626363606060 BCI 1,STT .002
10647 0625 00 0 00000 STT 0,0,0 .002
10650 RHC STA
10650 626321606060 BCI 1,STA .002
10651 0621 00 0 00000 STA 0,0,0 .002
10652 RHC STP
10652 626347606060 BCI 1,STP .002
10653 0630 00 0 00000 STP 0,0,0 .002
10654 RHC SXA
10654 626721606060 BCI 1,SXA .002
10655 0634 00 0 00000 SXA 0,0,0 .002
10656 RHC PAX
10656 472167606060 BCI 1,PAX .002
10657 0734 00 0 00000 PAX 0,0,0 .002
10660 RHC PAC
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 72
TABLE OF OPERATION CODES.
10660 472123606060 BCI 1,PAC .002
10661 0737 00 0 00000 PAC 0,0,0 .002
10662 RHC PXA
10662 476721606060 BCI 1,PXA .002
10663 0754 00 0 00000 PXA 0,0,0 .002
10664 RHC PSE FOLLOWING ARE THE 'EXTENDED' VERSIONS.
10664 476225606060 BCI 1,PSE .002
10665 0760 00 0 00000 PSE 0,0,0 .002
10666 RHC CLM
10666 234344606060 BCI 1,CLM .002
10667 0760 00 0 00000 CLM 0,0,0 .002
10670 RHC LBT
10670 432263606060 BCI 1,LBT .002
10671 0760 00 0 00001 LBT 0,0,0 .002
10672 RHC CHS
10672 233062606060 BCI 1,CHS .002
10673 0760 00 0 00002 CHS 0,0,0 .002
10674 RHC SSP
10674 626247606060 BCI 1,SSP .002
10675 0760 00 0 00003 SSP 0,0,0 .002
10676 RHC ENK
10676 254542606060 BCI 1,ENK .002
10677 0760 00 0 00004 ENK 0,0,0 .002
10700 RHC IOT
10700 314663606060 BCI 1,IOT .002
10701 0760 00 0 00005 IOT 0,0,0 .002
10702 RHC COM
10702 234644606060 BCI 1,COM .002
10703 0760 00 0 00006 COM 0,0,0 .002
10704 RHC RND
10704 514524606060 BCI 1,RND .002
10705 0760 00 0 00010 RND 0,0,0 .002
10706 RHC FRN
10706 265145606060 BCI 1,FRN .002
10707 0760 00 0 00011 FRN 0,0,0 .002
10710 RHC DCT
10710 242363606060 BCI 1,DCT .002
10711 0760 00 0 00012 DCT 0,0,0 .002
10712 RHC SLN
10712 624345606060 BCI 1,SLN .002
10713 0760 00 0 00140 SLN 0,0,0 .002
10714 RHC SLF
10714 624326606060 BCI 1,SLF .002
10715 0760 00 0 00140 SLF 0,0,0 .002
10716 RHC NOP
10716 454647606060 BCI 1,NOP .002
10717 0761 00 0 00000 NOP 0,0,0 .002
10720 RHC RDS
10720 512462606060 BCI 1,RDS .002
10721 0762 00 0 00000 RDS 0,0,0 .002
10722 RHC LLS
10722 434362606060 BCI 1,LLS .002
10723 0763 00 0 00000 LLS 0,0,0 .002
10724 RHC BSR
10724 226251606060 BCI 1,BSR .002
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 73
TABLE OF OPERATION CODES.
10725 0764 00 0 00200 BSR 0,0,0 .002
10726 RHC LRS
10726 435162606060 BCI 1,LRS .002
10727 0765 00 0 00000 LRS 0,0,0 .002
10730 RHC WRS
10730 665162606060 BCI 1,WRS .002
10731 0766 00 0 00000 WRS 0,0,0 .002
10732 RHC ALS
10732 214362606060 BCI 1,ALS .002
10733 0767 00 0 00000 ALS 0,0,0 .002
10734 RHC WEF
10734 662526606060 BCI 1,WEF .002
10735 0770 00 0 00200 WEF 0,0,0 .002
10736 RHC ARS
10736 215162606060 BCI 1,ARS .002
10737 0771 00 0 00000 ARS 0,0,0 .002
10740 RHC REW
10740 512566606060 BCI 1,REW .002
10741 0772 00 0 00200 REW 0,0,0 .002
10742 RHC AXT
10742 216763606060 BCI 1,AXT .002
10743 0774 00 0 00000 AXT 0,0,0 .002
10744 RHC SDN
10744 622445606060 BCI 1,SDN .002
10745 0776 00 0 00200 SDN 0,0,0 .002
10746 RHC RIA
10746 513121606060 BCI 1,RIA .002
10747 -0042 00 0 00000 RIA 0,0,0 .002
10750 RHC PIA
10750 473121606060 BCI 1,PIA .002
10751 -0046 00 0 00000 PIA 0,0,0 .002
10752 RHC IIL
10752 313143606060 BCI 1,IIL .002
F 10753 -0051 00 000000 IIL 0,0,0 .002
10754 RHC LFT
10754 432663606060 BCI 1,LFT .002
F 10755 -0054 00 000000 LFT 0,0,0 .002
10756 RHC SIL
10756 623143606060 BCI 1,SIL .002
F 10757 -0055 00 000000 SIL 0,0,0 .002
10760 RHC LNT
10760 434563606060 BCI 1,LNT .002
F 10761 -0056 00 000000 LNT 0,0,0 .002
10762 RHC RIL
10762 513143606060 BCI 1,RIL .002
F 10763 -0057 00 000000 RIL 0,0,0 .002
10764 RHC TNZ
10764 634571606060 BCI 1,TNZ .002
10765 -0100 00 0 00000 TNZ 0,0,0 .002
10766 RHC TIB
10766 633122606060 BCI 1,TIB .002
10767 -0101 00 0 00000 TIB 0,0,0 .002
10770 RHC CAQ
10770 232150606060 BCI 1,CAQ .002
10771 -0114 00 0 00000 CAQ 0,0,0 .002
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 74
TABLE OF OPERATION CODES.
10772 RHC TMI
10772 634431606060 BCI 1,TMI .002
10773 -0120 00 0 00000 TMI 0,0,0 .002
10774 RHC XCL
10774 672343606060 BCI 1,XCL .002
10775 -0130 00 0 00000 XCL 0,0,0 .002
10776 RHC TNO
10776 634546606060 BCI 1,TNO .002
10777 -0140 00 0 00000 TNO 0,0,0 .002
11000 RHC CRQ
11000 235150606060 BCI 1,CRQ .002
11001 -0154 00 0 00000 CRQ 0,0,0 .002
11002 RHC MPR
11002 444751606060 BCI 1,MPR .002
11003 -0200 00 0 00000 MPR 0,0,0 .002
11004 RHC UFM
11004 642644606060 BCI 1,UFM .002
11005 -0260 00 0 00000 UFM 0,0,0 .002
11006 RHC UFA
11006 642621606060 BCI 1,UFA .002
11007 -0300 00 0 00000 UFA 0,0,0 .002
11010 RHC UFS
11010 642662606060 BCI 1,UFS .002
11011 -0302 00 0 00000 UFS 0,0,0 .002
11012 RHC UAM
11012 642144606060 BCI 1,UAM .002
11013 -0304 00 0 00000 UAM 0,0,0 .002
11014 RHC USM
11014 646244606060 BCI 1,USM .002
11015 -0306 00 0 00000 USM 0,0,0 .002
11016 RHC ANA
11016 214521606060 BCI 1,ANA .002
11017 -0320 00 0 00000 ANA 0,0,0 .002
11020 RHC LAS
11020 432162606060 BCI 1,LAS .002
11021 -0340 00 0 00000 LAS 0,0,0 .002
11022 RHC SBM
11022 622244606060 BCI 1,SBM .002
11023 -0400 00 0 00000 SBM 0,0,0 .002
11024 RHC CAL
11024 232143606060 BCI 1,CAL .002
11025 -0500 00 0 00000 CAL 0,0,0 .002
11026 RHC ORA
11026 465121606060 BCI 1,ORA .002
11027 -0501 00 0 00000 ORA 0,0,0 .002
11030 RHC NZT
11030 457163606060 BCI 1,NZT .002
11031 -0520 00 0 00000 NZT 0,0,0 .002
11032 RHC LXD
11032 436724606060 BCI 1,LXD .002
11033 -0534 00 0 00000 LXD 0,0,0 .002
11034 RHC LDC
11034 432423606060 BCI 1,LDC .002
11035 -0535 00 0 00000 LDC 0,0,0 .002
11036 RHC (RCHB,RCHD,RCHF,RCHH)
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 75
TABLE OF OPERATION CODES.
11036 512330226060 BCI 1,RCHB .002
11037 -0540 00 0 00000 RCHB 0,0,0 .002
11040 512330246060 BCI 1,RCHD .002
11041 -0541 00 0 00000 RCHD 0,0,0 .002
11042 512330266060 BCI 1,RCHF .002
11043 -0542 00 0 00000 RCHF 0,0,0 .002
11044 512330306060 BCI 1,RCHH .002
11045 -0543 00 0 00000 RCHH 0,0,0 .002
11046 RHC STQ
11046 626350606060 BCI 1,STQ .002
11047 -0600 00 0 00000 STQ 0,0,0 .002
11050 RHC ORS
11050 465162606060 BCI 1,ORS .002
11051 -0602 00 0 00000 ORS 0,0,0 .002
11052 RHC SLQ
11052 624350606060 BCI 1,SLQ .002
11053 -0620 00 0 00000 SLQ 0,0,0 .002
11054 RHC STL
11054 626343606060 BCI 1,STL .002
11055 -0625 00 0 00000 STL 0,0,0 .002
11056 RHC SXD
11056 626724606060 BCI 1,SXD .002
11057 -0634 00 0 00000 SXD 0,0,0 .002
11060 RHC PDX
11060 472467606060 BCI 1,PDX .002
11061 -0734 00 0 00000 PDX 0,0,0 .002
11062 RHC PDC
11062 472423606060 BCI 1,PDC .002
11063 -0737 00 0 00000 PDC 0,0,0 .002
11064 RHC PXD
11064 476724606060 BCI 1,PXD .002
11065 -0754 00 0 00000 PXD 0,0,0 .002
11066 RHC MSE FOLLOWING ARE THE EXTENDED VERSIONS.
11066 446225606060 BCI 1,MSE .002
11067 -0760 00 0 00000 MSE 0,0,0 .002
11070 RHC PBT
11070 472263606060 BCI 1,PBT .002
11071 -0760 00 0 00001 PBT 0,0,0 .002
11072 RHC SSM
11072 626244606060 BCI 1,SSM .002
11073 -0760 00 0 00003 SSM 0,0,0 .002
11074 RHC SLT
11074 624363606060 BCI 1,SLT .002
11075 -0760 00 0 00140 SLT 0,0,0 .002
11076 RHC SWT
11076 626663606060 BCI 1,SWT .002
11077 0760 00 0 00160 SWT 0,0,0 .002
11100 RHC LGL
11100 432743606060 BCI 1,LGL .002
11101 -0763 00 0 00000 LGL 0,0,0 .002
11102 RHC BSF
11102 226226606060 BCI 1,BSF .002
11103 -0764 00 0 00200 BSF 0,0,0 .002
11104 RHC LGR
11104 432751606060 BCI 1,LGR .002
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 76
TABLE OF OPERATION CODES.
11105 -0765 00 0 00000 LGR 0,0,0 .002
11106 RHC RUN
11106 516445606060 BCI 1,RUN .002
11107 -0772 00 0 00200 RUN 0,0,0 .002
11110 RHC RQL
11110 515043606060 BCI 1,RQL .002
11111 -0773 00 0 00000 RQL 0,0,0 .002
11112 RHC AXC
11112 216723606060 BCI 1,AXC .002
11113 -0774 00 0 00000 AXC 0,0,0 .002
11114 RHC TXL FOLLOWING ARE ALL PREFIX CODES.
11114 636743606060 BCI 1,TXL .002
11115 -3 00000 0 00000 TXL 0,0,0 .002
11116 RHC TNX
11116 634567606060 BCI 1,TNX .002
11117 -2 00000 0 00000 TNX 0,0,0 .002
11120 RHC STR
11120 626351606060 BCI 1,STR .002
11121 -1 00000 0 00000 STR 0,0,0 .002
11122 RHC MZE
11122 447125606060 BCI 1,MZE .002
11123 -0 00000 0 00000 MZE 0,0,0 .002
11124 RHC TXH
11124 636730606060 BCI 1,TXH .002
11125 3 00000 0 00000 TXH 0,0,0 .002
11126 RHC TIX
11126 633167606060 BCI 1,TIX .002
11127 2 00000 0 00000 TIX 0,0,0 .002
11130 RHC TXI
11130 636731606060 BCI 1,TXI .002
11131 1 00000 0 00000 TXI 0,0,0 .002
11132 RHC PZE
11132 477125606060 BCI 1,PZE .002
11133 0 00000 0 00000 PZE 0,0,0 .002
11134 OPEND EQU *
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 77
REMOTE SEQUENCES.
-0 17560 0 05336 PMC OPSYN SHOW *REVIVE DEFINITION OF PMC TO PRINT THEM.
11134 RMT * GO, GO, GO.
11134 224645604146 ..001 BCI 2,BON JOUR.* .002
11136 602545234664 ..002 BCI 5, ENCOUNTERED UNEXPECTEDLY.* .002
11143 254524604626 ..003 BCI 3,END OF REQUEST* .002
11146 422570600202 ..004 BCI 4,KEY 22 IS NOT DOWN.* .002
11152 603160663143 ..005 BCI 6, I WILL RETRY EVERY 10 SECONDS.* .002
11160 0101 00 0 11373 SLEEP TIA =HSLEEP .002
11161 0101 00 0 11372 SETLOC TIA =HSETLOC .002
11162 216460512565 ..006 BCI 2,AU REVOIR.* .002
11164 0101 00 0 11343 CHNCOM TIA =HCHNCOM .002
11165 0101 00 0 11350 GETLOC TIA =HGETLOC .002
11166 512547252163 RPTC BCI 2,REPEAT.* .002
11170 632122432560 ..007 BCI 6,TABLE FULL, DEFINITION IGNORED.* .002
11176 603162604546 ..008 BCI 3, IS NOT DEFINED.* .002
11201 603162604346 ..009 BCI 3, IS LOADED AT * .002
11204 603162604546 ..010 BCI 3, IS NOT IN CORE.* .002
11207 466525512643 ..011 BCI 5,OVERFLOW DURING CONVERSION.* .002
11214 466525512643 ..012 BCI 5,OVERFLOW DURING SHIFTING.* .002
11221 263347336045 ..013 BCI 5,F.P. NUMBER OUT OF RANGE.* .002
11226 0101 00 0 11354 OPEN TIA =HOPEN .002
11227 0101 00 0 11341 BUFFER TIA =HBUFFER .002
11230 0101 00 0 11356 RDWAIT TIA =HRDWAIT .002
11231 0101 00 0 11344 CLOSE TIA =HCLOSE .002
11232 234644472151 ..050 BCI 3,COMPARISON DONE.* .002
11235 223145215170 ..051 BCI 6,BINARY CARD IS NON-RELOCATABLE.* .002
11243 0101 00 0 11347 GETCOM TIA =HGETCOM .002
11244 0101 00 0 11346 GETBRK TIA =HGETBRK .002
11245 0101 00 0 11371 SETBRK TIA =HSETBRK .002
11246 0101 00 0 11374 WRFLXA TIA =HWRFLXA .002
11247 632122432560 ..118 BCI 7,TABLE FULL, FIRST SYMBOL NOT INSERTED IS * .002
11256 627044224643 ..125 BCI 3,SYMBOLS LOADED.* .002
11261 216363254447 ..126 BCI 7,ATTEMPT TO REDEFINE INTERNAL SYMBOL * .002
11270 603127454651 ..127 BCI 2, IGNORED.* .002
11272 0101 00 0 11352 IODIAG TIA =HIODIAG .002
11273 602646516054 ..128 BCI 1, FOR * .002
11274 433145422524 ..135 BCI 2,LINKED * .002
11276 263143256054 ..136 BCI 1,FILE * .002
11277 604546636026 ..137 BCI 2, NOT FOUND.* .002
*
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 78
LITERALS.
END
LITERALS
11301 000000000000
11302 000000000001
11303 000000000006
11304 000000000007
11305 000000000010
11306 000000000011
11307 000000000012
11310 000000000013
11311 000000000014
11312 000000000016
11313 000000000020
11314 000000000025
11315 000000000033
11316 000000000040
11317 000000000054
11320 000000000055
11321 000000000060
11322 000000000061
11323 000000000070
11324 000000000072
11325 000000000073
11326 000000000077
11327 000000000200
11330 000000002321
11331 000000020000
11332 000000077777
11333 000060000000
11334 077777000000
11335 200077000000
11336 200777777777
11337 204500000000
11340 224321454260
11341 226426262551
11342 233000000000
11343 233045234644
11344 234346622560
11345 255151465160
11346 272563225142
11347 272563234644
11350 272563434623
11351 300000000000
11352 314624312127
11353 400000000000
11354 464725456060
11355 512426436721
11356 512466213163
11357 516060606060
11360 546060606060
11361 556060606060
11362 575757575757
11363 602425226427
11364 602651464460
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 79
LITERALS.
11365 606060226262
11366 606060606000
11367 606060606060
11370 606270446322
11371 622563225142
11372 622563434623
11373 624325254760
11374 665126436721
11375 744421314534
11376 777700000000
11377 777700007777
11400 777777777700
11401 777777777777
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
77461 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
11402 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1206 E 1155, 1201
730 BC 11, 32, 35, 76, 112, 135, 153, 157, 277, 345, 354, 361, 403, 426, 561, 601, 625
633, 643, 671, 2703, 2712
6303 CQ 6256, 6265, 6271
2175 CR 4, 327, 556, 765, 1414, 1624, 2662, 6353
0 .. 1, 154, 155, 461, 514, 527, 537, 540, 541, 557, 766, 1067, 1243, 1244, 1337, 1371, 1405
1415, 1423, 1654, 1656, 1660, 1661, 1673, 1674, 1675, 1726, 1751, 1764, 1771, 1772, 2005, 2026, 2027
2030, 2031, 2101, 2102, 2103, 2131, 2132, 2172, 2217, 2226, 2230, 2270, 2271, 2310, 2336, 2337, 2412
2413, 2455, 2526, 2671, 2672, 2673, 2701, 2753, 2771, 3035, 6241, 6242, 6243, 6300, 6301,10212
2203 MQ 2140, 2173
733 OP 71, 77, 107, 111, 136
1067 XR 1015
734 ADD 72, 120, 140
736 DEC 74, 134, 146
671 DEF 250
1101 DGT 1040, 1045, 1055, 1066, 1142, 1145, 1213, 1231, 1242
1246 ERR 1167, 1220, 1331
10202 FND 10171,10174
1335 FPT 1112, 1206, 1236, 1250, 1257
1332 FPZ 1114, 1210, 1240, 1252, 1255
6243 FXA 6144
6242 FXB 6143
6241 FXC 6142, 6162, 6234
6233 FXP 6226
1423 GWX 1407
203 ILF 62, 163, 303, 310, 337, 351, 370, 375, 407, 435, 446, 453, 565, 572, 610, 615, 631
652, 657, 675, 702, 710, 1030, 1036, 1261, 2707, 2716
2415 IND 2361
415 INT 2121
6300 IXB 6255
6301 IXC 6254
6366 ... 1456, 1457, 1460, 1461, 1462, 1463, 1465, 1466, 1467, 1470, 1472, 1473, 1474, 1475, 1476, 1477, 1500
1666, 1667, 1670, 1734, 1735, 1736, 1737, 1740, 1741, 1743, 1744, 1745, 1746, 1761, 1762, 1763, 1764
1765, 1766, 1767, 2047, 2050, 2051, 2576, 2577, 2600, 2601, 2602, 2603, 2605, 2606, 2607, 2610, 2612
2613, 2614, 2615, 2616, 2617, 2620, 2664, 2665, 2666, 6322, 6364, 6365, 6366
2701 KXR 2676
2552 LAR 2566
2567 LAW 2546, 2552, 2560, 2562, 2565
202 LOC 63, 311, 312, 416, 420, 421, 530, 577, 641, 703, 713, 1552, 1553, 1611, 1625, 1627, 2777
157 LOK 105
1333 MAG 1106, 1143, 1146, 1174, 1175, 1222, 1225, 1232
1135 MMI 1125
1334 MSG 1107, 1135, 1233
6203 NEG 6176
6205 NOR 6202
1100 NUM 1016, 1042, 1046, 1056
1370 OUT 1376
2341 PLS 2320, 2323
311 PUT 56
6163 REG 6153
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 2
POST PROCESSOR ASSEMBLY DATA
2012 SCH 2034
2675 SFF 2643, 2655
1077 SFT 1004, 1007, 1012, 1062
2026 SFW 2001
1102 SGN 1017, 1033, 1057
1405 SKX 1377
2027 SRW 2003, 2040
2005 SWD 2000, 2036
2177 TAB 552, 1615, 1620
735 TAG 73, 126, 142
1330 TEN 1172, 1223, 1226, 6200, 6204
1331 TTR 1115, 1216
1336 TYI 1020, 1034, 1050, 1117, 1136, 1147, 1162, 1176, 1402, 2276, 2433
2137 TYO 214, 551, 764, 1614, 2073, 2100, 2176, 2200, 2202, 2266, 2333, 2363, 2377, 2405, 2421, 2661, 6151
6155, 6157, 6161, 6221, 6223, 6231, 6236, 6262, 6276, 6345, 6352, 6410
1675 VXA 1451
1674 VXB 1450
1673 VXC 1447
530 XIT 511, 513
2035 ALLB 2010
625 AUTO 276
1103 BASE 1014, 1027, 1035, 1043, 1051, 6253, 6270
2435 BCLK 2440
514 BMLK 474
527 BNLK 475, 524
2312 BOIG 2251, 2253, 2262
2254 BOJN 2252
2260 BOLP 2267
2271 BOXA 2255
2270 BOXC 2254
6425 BUF1 1467, 2607
7305 BUF2 1745
6304 BUFF 2275, 2303, 2305, 2307, 6264, 6272, 6275
1514 CARD 1475, 1501, 1506, 1550, 1565, 1642, 1643, 1645, 1646, 2615, 2622, 2626, 2640, 2641
277 CEND 230, 231, 236, 277, 424
1622 CHKA 1555, 1631
1726 CHXC 1705, 1714, 1723
230 CMND 50
241 CORG 230, 241
461 CTSX 425, 555, 1617, 1623
1550 DATA 1502
6321 DERR 1463, 1470, 1500, 1670, 1741, 1746, 2043, 2051, 2603, 2610, 2620, 2666
3035 DFXC 3002, 3013, 3025, 3037
6417 DIAG 6322, 6417, 6425
6423 DIN1 6342, 6364, 6405
6424 DIN2 6346, 6365, 6411
554 DMPL 546
557 DMPX 544
3026 DOBS 3014, 3020
544 DUMP 422, 505, 536
2466 EVAL 53
2545 EVBC 2476, 2510, 2525
2476 EVGO 2471
1140 FCNV 1134, 1161
1225 FDIV 1221
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 3
POST PROCESSOR ASSEMBLY DATA
1231 FFMT 1157, 1203
1704 FILE 1453, 1457, 1465, 1472, 1666
1255 FILF 1132, 1164
10253 FLAG 10166,10227,10241,10245
6245 FNUM 6145, 6177, 6203
6225 FRAC 6232
666 FULL 715
2226 FWCW 2224
2230 FWXC 2221, 2223
1244 FXRB 1105
1243 FXRC 1104
474 GOLK 472
1040 ICNV 1032, 1054
6274 IFIX 6266
1055 IFMT 1052
6275 IFOX 6277
1014 IJIN 1006, 1011
6253 IJON 6250
1033 IMIN 1026
623 KILL 604
2546 LADJ 101, 356, 574, 636, 712, 2501,10231
2562 LASH 2557
457 LOC1 437, 466, 476
460 LOC2 454, 465, 507
32 LOCF 21, 44, 52, 235
424 LOOK 252, 254, 256, 260, 264, 272
6 MAIN 220, 343, 402, 423, 431, 456, 600, 622, 624, 664, 716, 726, 2711, 2720
665 NAME 353, 376, 377, 617, 635, 642, 660, 1715, 1725
416 NEXT 40
6327 NOPE 6377
766 OFXC 737
726 OOPS 670, 1001, 1073, 1076, 1254, 6357, 6362, 6366, 6367, 6416
11226 OPEN 1455, 1733, 2575
10233 OPLK 10236
10220 OPXR 10165,10202,10221,10242
10212 OSXR 10204,10215
1071 OVDC 1047
1074 OVFC 1064
2172 OXRC 2137, 2157
1003 PORG 747, 761, 767, 1452, 1511, 1551, 2574, 2635
543 PREV 503, 520
342 PUT1 313
1665 QUIT 1476, 1634, 1701
11166 RPTC 526, 534
22 RQST 15
2751 SBCF 2733, 2734
2744 SBOK 2742
2771 SBXR 2761, 3000
1730 SETF 1724
135 SINP 116, 124, 132
6215 SKIP 6207
2426 SPWD 2345, 2347, 2351, 2415
2412 SPXB 2344
2413 SPXC 2343, 2375, 2403
2673 SRXA 2572
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 4
POST PROCESSOR ASSEMBLY DATA
2672 SRXB 2571
2671 SRXC 2570
65 SUBF 12, 33, 45
2217 SWXC 2206, 2213
154 SYMX 67, 164
155 SYMY 70
1427 TYIB 1343, 1346
1753 TYIF 1732, 1735, 1743, 1761, 2047
1371 TYIX 1336
2205 TYOB 2147, 2155, 2171
2056 TYPA 1, 221, 321, 324, 757, 2652, 3015, 6337, 6400, 6402
2054 TYPE 216, 410, 525, 533, 666, 724, 777, 1071, 1074, 1246, 1671, 1677, 2667, 3023, 6414
2064 TYPG 2075
2057 TYPJ 2055
2066 TYPL 2074
2076 TYPX 2072
727 USYM 717, 721
731 WORD 137, 141, 144, 145, 150, 151, 152, 1567, 1572, 1576, 1601, 1603, 1606, 1616, 2352, 2355, 2364
2366, 2406, 2422, 2637, 2644
660 WORK 646
535 XPCA 532
6246 XPNT 6175, 6211, 6213, 6233, 6237
561 YANK 262
2721 ABSSW 2710, 2717, 2732
0 ACORE 744
117 ADNXT
1 A.DBG 0, 1
2451 BCBRK 2437
2276 BCDCH 2306
2273 BCDIN 167, 171
2310 BCDIX 2273
2307 BCDPT 2301
2455 BCEND 2427
2464 BCFLG 2430, 2447, 2452
2457 BCORG 2434
2433 BCRET 2446, 2450
2427 BCSCH 7, 75, 352, 371, 566, 611, 632, 653, 704, 2475
2465 BCSYM 2432, 2442, 2444, 2454
2464 BCTAB 2434, 2435, 2464
35 BLANK 25
462 BLKLK 455
537 BLKXA 462, 531
540 BLKXB 463
541 BLKXC 464
236 CDISP 233
1702 CELL1 1454, 1503, 1505
1604 CHECK 1554, 1600, 1630
1705 CHFIL 5
1373 CHPRE 1367
11231 CLOSE 1665, 2046, 2663, 6363
1703 COUNT 1560, 1561, 1635, 1637
1426 CRFLG 3, 1340, 1353, 1412, 1417
3027 DEFNO 3004
6 DILTH 6322, 6425
2503 EVADD 2536
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 5
POST PROCESSOR ASSEMBLY DATA
2526 EVEND 2466, 2472
2541 EVMIN 2516
2530 EVNUM 2477
2537 EVPLS 2513
2475 EVRET 2540, 2542
2544 EVSGN 2470, 2474, 2504, 2537, 2541
2543 EVTOT 2467, 2473, 2506, 2507, 2517
1136 FDIG1 1122
1774 FIXCR 1770
1771 FIXCW 1757
2030 FIXXA 1775
2031 FIXXC 1774
2337 FLDXB 2314
2336 FLDXC 2313, 2330
1104 FLOIN 173
10214 FNDIT 10210
1162 FRAC1 1130
1176 FRAC2 1152
1167 FRCNV 1205
1126 FRET1 1137
473 FWDLK 470
2221 FWORD 2167
454 GLOOK 442
1430 GWBUF 1410, 1416, 1421, 1422
1421 GWMIB 1413
1407 GWORD 1342
1034 IDIG1 1023
224 ILFBL 210
227 ILFCH 211, 213
221 ILFCR 205
216 ILFJN 223, 226
6265 INEXT 6273
1007 INTIN 175, 1212
2135 INTLA 2112, 2126
2134 INTOV 2107, 2111, 2127
2136 INTSA 2114, 2124
2131 INTXC 2115
11134 ..001 2
11136 ..002 217
11143 ..003 222
11146 ..004 322
11152 ..005 325
11162 ..006 411
11170 ..007 667
11176 ..008 725
11201 ..009 760
11204 ..010 1000
11207 ..011 1072
11214 ..012 1075
11221 ..013 1247
11232 ..050 1672
11235 ..051 1700
11247 ..118 2653
11256 ..125 2670
11261 ..126 3016
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 6
POST PROCESSOR ASSEMBLY DATA
11270 ..127 3024
11273 ..128 6340
11274 ..135 6401
11276 ..136 6403
11277 ..137 6415
1012 JNTIN 177
506 LKCMP 522
1577 NODEC 1571
2362 NOFLG 2417, 2423
2106 NOINT 415
477 NORPT 523, 527
2773 NOSYM 2763
1004 OCTIN 201
1002 ONAME 743, 745, 752, 772
45 ONECH 31
10165 OPBCD 2350
10221 OPBIN 110
10217 OPCDE 10222,10230,10246
6370 OPEN1 6326
6402 OPEN2 6373
11134 OPEND 10201,10205,10206,10214,10232,10233,10240,11134
10244 OPFLG 10226
10240 OPFND 10235
10340 OPORG 10205
10231 OPRET 10252
10204 OPSCH 10170,10173
333 PATCH 320, 333
2204 PFLAG 2142, 2145, 2156
1 QBACK 1, 414
2201 QUOTE 212, 215, 720, 723, 751, 756, 771, 776, 2654, 2657, 3017, 3022, 6341, 6350, 6404, 6413
1754 READF 1747
1772 READX 1754, 2052
1650 RELOC 1574, 1602
1661 RELXA 1651
1660 RELXC 1650
2044 RFEND 1765
2041 RFERR 1767
421 RLOOK 64
4 SAME1
2770 SBFND
2777 SBPOI
2763 SBRET 2767
1751 SETFX 1730
11160 SLEEP 331
2425 SPTAG 2372, 2400
2232 SWBUF 2207, 2211, 2212, 2215, 2216, 2222, 2226, 2227
2206 SWORD 2153, 2166
67 SYMIN 333
2611 SYMRD 2651
601 TABLE 274
2570 TABRD 621, 663
2667 TDONE
6141 TFILE 2573, 2577, 2605, 2612, 2664
1337 TYICP 1345, 1375
1415 TYICW 1707, 1750, 2042, 2045
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 7
POST PROCESSOR ASSEMBLY DATA
2167 TYOMT 2162
2105 TYPCR 2054, 2056, 2077
2102 TYPXA 2060
2103 TYPXB 2061
2101 TYPXC 2057
717 UNDEF 2776,10237
1671 VDONE
377 VERGO 364
77461 77461K 1664, 1665
2251 BCDOUT 254, 6330, 6334
11227 BUFFER 1464, 1742, 2604
660 BUFLTH 1467, 1745, 2607, 6425, 7305
1471 CARDRD 1504, 1513, 1641
11164 CHNCOM 412
77461 COMMON 1664, 1665
2424 DECFLD 2346, 2367, 2374, 2402
6251 DECOUT 260
3037 DEFFUL 3030
3002 DEFINE 714, 2645
3014 DEFOOP 3011
3004 DEFRET 3010
3011 DEFYES
6417 DICALL
6421 DICODE 6331, 6370
1447 DIFDMP 401
6422 DIOCOD
403 DISMIS 270
6420 DISUBR 6323, 6335, 6354
277 DPOSIT 246
1233 FASSGN 1224, 1230
1625 FINCYC 1610
2342 FLDCOR 2317, 2327, 2334
2472 FLDEVL 117, 125, 133, 304, 436, 447, 676
2334 FLDOCT 2326, 2331
2313 FLDPRT 547, 1612, 2365, 2401, 2411
6142 FLOOUT 252
11244 GETBRK 2116
11243 GETCOM 1710, 1716
11165 GETLOC 501, 516, 553, 1604, 1621
7 IGNORE 43
2133 INRUPT 10, 512, 1633, 2106
2376 INSTAG 2373
6252 INTOUT 256, 6240
2132 INTTRA 2117
11272 IODIAG 6321
344 KEYTST 314, 323, 326
2676 KILTAB 623
53 LOCNXT 34
66 MEMBND
2253 NAMOUT 225, 722, 755, 775, 2322, 2354, 2656, 3021, 6336, 6343, 6347, 6406, 6412
1677 NONREL 1564
771 NOTFND 750
6247 OCTOUT 264, 762, 2335, 6332
10254 OPPRFX 10232,10254
737 ORGFND 357, 575, 637
1 A.DEBUG SYMBOLIC DEBUGGING AID FOR A-CORE. PAGE 8
POST PROCESSOR ASSEMBLY DATA
1663 OUTSID 1654
732 PGMORG 360, 400, 576, 620, 640, 662
202 POPEND 102, 103, 165, 202
166 POPORG 102
103 POPRET 106
1425 PREVCH 1370, 1373, 1400
2053 RDFLXA 1706, 2041, 2044
11230 RDWAIT 1471, 1760, 2611
1760 READCW 1756
1642 RELBIT 1570, 1577, 1653
1664 RELCOM 1655
1656 RELPRG 1512, 1663
1654 RELSIZ 1510
1657 RELXIT 1664
1566 RETURN 1640
2753 SCHEND 2722
2734 SCHLOP 2740, 2743, 2750
2703 SETABS 242
11245 SETBRK 2120
11161 SETLOC 341
2712 SETREL 266
1377 SKIPCR 6
2033 STILLB 2020
2760 SYMABS 2726, 2737, 2745
2622 SYMADJ 2650
2722 SYMBCD 2316
2761 SYMBIN 2502
2756 SYMBOL 2731, 2747, 2751
2757 SYMCOR 2725, 2744, 2752
6141 SYMEND 2677, 2736, 2743, 2746, 2764, 2770, 3001, 3005, 3011, 3012, 3030, 3031, 3032, 6141
2663 SYMEOF 2616, 2625
2652 SYMFUL 2646
3100 SYMLNG 3030, 3041
3001 SYMLTH 2700, 2727, 2762, 3003, 3027, 3034
2343 SYMPRT 272, 461
6141 SYMTAB 2677, 2743, 3001, 3011, 3030
2755 SYMVAL 2724, 2735
315 TSTKEY 332
1345 TYIMIW 1341
2155 TYOMIW 2152
345 VERIFY 244
11246 WRFLXA 2214, 2225
0 NO ERROR IN ABOVE ASSEMBLY.
ACOR BCD 10/12/70 1512.6 8359 00000
1 PAGE 1
EXTERN COMLOC,ACORE
EXTERN BCOCT,BCDEC,ZEL
EXTERN GETLOC,GETARY
EXTERN .FMT,WRFLX
EXTERN SETBRK,CHNCOM
EXTERN GETCLS,GETARG
TRANSFER VECTOR
00000 234644434623 COMLOC
00001 212346512560 ACORE
00002 222346236360 BCOCT
00003 222324252360 BCDEC
00004 712543606060 ZEL
00005 272563434623 GETLOC
00006 272563215170 GETARY
00007 332644636060 .FMT
00010 665126436760 WRFLX
00011 622563225142 SETBRK
00012 233045234644 CHNCOM
00013 272563234362 GETCLS
00014 272563215127 GETARG
00015 0760 00 0 00016 LMTM
00016 0074 00 4 00011 TSX SETBRK,4
00017 0 00000 0 00161 PZE OUT
00020 0074 00 4 00013 TSX GETCLS,4
00021 0 00000 0 00457 PZE CBUF,,0
00022 0774 00 1 00023 AXT 19,1
00023 0600 00 0 00446 STZ GO
00024 0020 00 0 00030 TRA *+4
00025 0074 00 4 00014 MORE TSX GETARG,4
00026 0 00024 0 00457 PZE CBUF,,20
00027 0774 00 1 00024 AXT 20,1
00030 0074 00 4 00010 TSX WRFLX,4
00031 0 00000 0 00031 PZE *,,0
00032 -0500 00 1 00503 CAL CBUF+20,1
00033 0322 00 0 00554 ERA =H *
00034 0100 00 0 00106 TZE NOMOD
00035 -0320 00 0 00551 ANA =O77
00036 -0100 00 0 00106 TNZ NOMOD
00037 0600 00 0 00505 STZ .O.
00040 0600 00 0 00504 STZ .D.
00041 0600 00 0 00503 STZ .B.
00042 0600 00 0 00444 STZ .Q.
00043 0600 00 0 00445 STZ .NZ.
00044 0560 00 1 00503 LDQ CBUF+20,1
00045 0774 00 2 00006 AXT 6,2
00046 -0754 00 0 00000 ZAC
00047 -0763 00 0 00006 LGL 6
00050 0774 00 3 00014 AXT NMODE,3
00051 -0340 00 3 00233 LAS MODES+NMODE,3
00052 0020 00 0 00054 TRA *+2
00053 0522 00 3 00234 XEC MODES+NMODE+1,3
00054 2 00002 3 00051 TIX *-3,3,2
00055 2 00001 2 00046 MLP TIX *-7,2,1
1 PAGE 2
00056 -2 00001 1 00427 TNX QTEST,1,1
00057 -0500 00 1 00503 CAL CBUF+20,1
00060 0322 00 0 00326 ERA FENCE
00061 0100 00 0 00427 TZE QTEST
00062 -0774 00 4 00000 AXC 0,4
00063 0500 00 0 00434 CLA SP
00064 -0520 00 0 00505 NZT .O.
00065 0020 00 0 00071 TRA *+4
00066 0560 00 0 00436 LDQ .OCT
00067 -0603 00 4 00200 DST FMT,4
00070 1 77776 4 00071 TXI *+1,4,-2
00071 -0520 00 0 00504 NZT .D.
00072 0020 00 0 00076 TRA *+4
00073 0560 00 0 00437 LDQ .DEC
00074 -0603 00 4 00200 DST FMT,4
00075 1 77776 4 00076 TXI *+1,4,-2
00076 -0520 00 0 00503 NZT .B.
00077 0020 00 0 00103 TRA *+4
00100 0560 00 0 00435 LDQ .BCD
00101 -0603 00 4 00200 DST FMT,4
00102 1 77776 4 00103 TXI *+1,4,-2
00103 -0754 00 0 00000 ZAC
00104 0560 00 0 00440 LDQ .TRA
00105 -0603 00 4 00200 DST FMT,4
00106 0074 00 6 00236 NOMOD TSX GETERM,6
00107 0621 00 0 00170 STA ALOC
00110 0402 00 0 00550 SUB =36
00111 0621 00 0 00136 STA ADR
00112 -3 00001 1 00167 TXL 1LOC,1,1
00113 -0500 00 1 00503 CAL CBUF+20,1
00114 0322 00 0 00326 ERA FENCE
00115 0100 00 0 00167 TZE 1LOC
00116 0322 00 0 00552 ERA =O171717444444
00117 0602 00 0 00443 SLW .N.
00120 -2 00001 1 00431 TNX LOSS,1,1
00121 0074 00 6 00236 TSX GETERM,6
00122 -0520 00 0 00443 NZT .N.
00123 0020 00 0 00127 TRA *+4
00124 0402 00 0 00170 SUB ALOC
00125 0400 00 0 00547 ADD =1
00126 -0120 00 0 00431 TMI LOSS
00127 0100 00 0 00431 TZE LOSS
00130 0734 00 2 00000 PAX ,2
00131 -2 00044 2 00145 TNX LSTBUF,2,36
00132 -0500 00 0 00136 NXTBUF CAL ADR
00133 0400 00 0 00550 ADD =36
00134 0621 00 0 00136 STA ADR
00135 0074 00 4 00006 TSX GETARY,4
00136 0 00000 0 00000 ADR PZE **
00137 0 00044 0 00503 PZE BUFF,,36
00140 0774 00 3 00044 AXT 36,3
00141 -0500 00 3 00547 CAL BUFF+36,3
00142 0074 00 7 00173 TSX PLINE,7
1 PAGE 3
00143 2 00001 3 00141 TIX *-2,3,1
00144 2 00044 2 00132 TIX NXTBUF,2,36
00145 -0500 00 0 00136 LSTBUF CAL ADR
00146 0400 00 0 00550 ADD =36
00147 0621 00 0 00152 STA *+3
00150 -0634 00 2 00153 SXD *+3,2
00151 0074 00 4 00006 TSX GETARY,4
00152 0 00000 0 00000 PZE **
00153 0 00000 0 00503 PZE BUFF,,**
00154 0774 00 3 00044 AXT 36,3
00155 -0500 00 3 00547 CAL BUFF+36,3
00156 0074 00 7 00173 TSX PLINE,7
00157 -2 00001 3 00161 TNX *+2,3,1
00160 2 00001 2 00155 TIX *-3,2,1
00161 0074 00 4 00010 OUT TSX WRFLX,4
00162 0 00000 0 00162 PZE *,,0
00163 0520 00 0 00446 ZET GO
00164 0020 00 0 00025 TRA MORE
00165 0074 00 4 00012 TSX CHNCOM,4
00166 0 00000 0 00000 PZE 0
00167 0074 00 4 00005 1LOC TSX GETLOC,4
00170 0 00000 0 00000 ALOC PZE **
00171 0074 00 7 00173 TSX PLINE,7
00172 0020 00 0 00161 TRA OUT
00173 0520 00 0 00445 PLINE ZET .NZ.
00174 0100 00 0 00213 TZE SKIPPR
00175 0602 00 0 00447 SLW PLTEM
00176 0074 00 4 00007 TSX .FMT,4
00177 0 00005 2 00170 PZE ALOC,2,5
00200 0 00002 0 00000 FMT PZE 0,0,2
00201 0 00014 2 00447 PZE PLTEM,2,12
00202 0 00000 0 00000 PZE
00203 0020 00 0 00210 TRA WRLIN
00204 BSS 4
00210 0602 00 0 00212 WRLIN SLW *+2
00211 0074 00 4 00010 TSX WRFLX,4
00212 0 00000 0 00000 PZE **,,**
00213 -0500 00 0 00170 SKIPPR CAL ALOC
00214 0400 00 0 00547 ADD =1
00215 0621 00 0 00170 STA ALOC
00216 0020 00 7 00001 TRA 1,7
00217 000000000046 MODES BCI 1,00000O
00220 -0625 00 0 00505 STL .O.
00221 000000000024 BCI 1,00000D
00222 -0625 00 0 00504 STL .D.
00223 000000000022 BCI 1,00000B
00224 -0625 00 0 00503 STL .B.
00225 000000000027 BCI 1,00000G
00226 -0625 00 0 00446 STL GO
00227 000000000050 BCI 1,00000Q
00230 0020 00 0 00233 TRA QUIT
1 PAGE 4
00231 000000000045 BCI 1,00000N
00232 -0625 00 0 00445 STL .NZ.
00014 NMODE EQU *-MODES
00233 0600 00 0 00446 QUIT STZ GO
00234 -0625 00 0 00444 STL .Q.
00235 0020 00 0 00055 TRA MLP
00236 0600 00 0 00452 GETERM STZ EQ
00237 0600 00 0 00441 STZ MNS
00240 0600 00 0 00442 STZ NAM
00241 0600 00 0 00450 STZ VALUE
00242 0600 00 0 00451 STZ VALTEM
00243 0774 00 5 00000 AXT 0,5
00244 -0500 00 1 00503 GT CAL CBUF+20,1
00245 0774 00 4 00020 AXT NARG,4
00246 -0340 00 4 00330 LAS ARGS+NARG,4
00247 0020 00 0 00251 TRA *+2
00250 0522 00 4 00331 XEC ARGS+NARG+1,4
00251 2 00002 4 00246 TIX *-3,4,2
00252 0074 00 7 00352 TSX EVAL,7
00253 -0520 00 0 00452 NZT EQ
00254 0020 00 0 00261 TRA *+5
00255 0621 00 0 00257 STA *+2
00256 0074 00 4 00005 TSX GETLOC,4
00257 0 00000 0 00000 PZE **
00260 0600 00 0 00452 STZ EQ
00261 0520 00 0 00441 ZET MNS
00262 0020 00 0 00265 TRA *+3
00263 0400 00 5 00450 ADD VALUE,5
00264 0020 00 0 00271 TRA *+5
00265 0402 00 5 00450 SUB VALUE,5
00266 -0120 00 0 00271 TMI *+3
00267 0760 00 0 00006 COM
00270 0400 00 0 00547 ADD =1
00271 0621 00 5 00450 STA VALUE,5
00272 0600 00 0 00441 STZ MNS
00273 -0625 00 0 00442 STL NAM
00274 2 00001 1 00244 GETIX TIX GT,1,1
00275 -0520 00 0 00442 GOTERM NZT NAM
00276 0020 00 0 00431 TRA LOSS
00277 3 00000 5 00302 TXH *+3,5,0
00300 -0500 00 0 00450 CAL VALUE
00301 0020 00 6 00001 TRA 1,6
00302 -0500 00 0 00451 CAL VALTEM
00303 0621 00 0 00305 STA *+2
00304 0074 00 4 00005 TSX GETLOC,4
00305 0 00000 0 00000 PZE **
00306 0401 00 0 00450 ADM VALUE
00307 0020 00 6 00001 TRA 1,6
00310 606060606020 ARGS BCI 1, +
00311 0020 00 0 00331 TRA PLUS
00312 606060606040 BCI 1, -
00313 0020 00 0 00330 TRA MINUS
00314 606060606054 BCI 1, *
1 PAGE 5
00315 0020 00 0 00335 TRA STAR
00316 606060606061 BCI 1, /
00317 0020 00 0 00341 TRA SLASH
00320 606060606013 BCI 1, =
00321 0020 00 0 00337 TRA EQUAL
00322 606060333333 BCI 1, ...
00323 0020 00 0 00275 TRA GOTERM
00324 606063305164 BCI 1, THRU
00325 0020 00 0 00275 TRA GOTERM
00326 -377777777777 FENCE OCT 777777777777
00327 0020 00 0 00275 TRA GOTERM
00020 NARG EQU *-ARGS
00330 -0625 00 0 00441 MINUS STL MNS
00331 -0520 00 0 00442 PLUS NZT NAM
00332 0020 00 0 00431 TRA LOSS
00333 0600 00 0 00442 STZ NAM
00334 0020 00 0 00274 TRA GETIX
00335 0774 00 5 77777 STAR AXT -1,5
00336 0020 00 0 00274 TRA GETIX
00337 -0625 00 0 00452 EQUAL STL EQ
00340 0020 00 0 00274 TRA GETIX
00341 0774 00 5 00000 SLASH AXT 0,5
00342 -0500 00 0 00451 CAL VALTEM
00343 0621 00 0 00345 STA *+2
00344 0074 00 4 00005 TSX GETLOC,4
00345 0 00000 0 00000 PZE **
00346 0401 00 0 00450 ADM VALUE
00347 0621 00 0 00450 STA VALUE
00350 0600 00 0 00451 STZ VALTEM
00351 0020 00 0 00274 TRA GETIX
00352 0602 00 0 00447 EVAL SLW EVTEM
00353 0074 00 4 00004 TSX ZEL,4
00354 3 00000 0 00447 PTH EVTEM
00355 0601 00 0 00447 STO EVTEM
00356 0441 00 0 00447 LDI EVTEM
00357 -0046 00 0 00000 PIA
00360 -0320 00 0 00556 ANA =HYYYYYY
00361 0100 00 0 00420 TZE EVOCT
00362 -0046 00 0 00000 PIA
00363 -0320 00 0 00555 ANA =H
00364 0100 00 0 00423 TZE EVDEC
00365 -0046 00 0 00000 PIA
00366 0322 00 0 00553 ERA =H .
00367 -0320 00 0 00551 ANA =O77
00370 -0100 00 0 00376 TNZ *+6
00371 -0046 00 0 00000 PIA
00372 0771 00 0 00006 ARS 6
00373 0044 00 0 00000 PAI
00374 -0320 00 0 00555 ANA =H
00375 0100 00 0 00423 TZE EVDEC
00376 0774 00 4 00044 AXT 36,4
00377 0560 00 0 00447 LDQ EVTEM
00400 -0754 00 0 00000 ZAC
00401 -0763 00 0 00006 LGL 6
1 PAGE 6
00402 -0100 00 0 00405 TNZ *+3
00403 2 00006 4 00401 TIX *-2,4,6
00404 0020 00 7 00001 TRA 1,7
00405 -0500 00 0 00447 CAL EVTEM
00406 0560 00 0 00555 LDQ =H
00407 -0763 00 4 00044 LGL 36,4
00410 0602 00 0 00447 SLW EVTEM
00411 0074 00 4 00000 TSX COMLOC,4
00412 3 00000 0 00447 PTH EVTEM
00413 -0100 00 7 00001 TNZ 1,7
00414 0074 00 4 00001 TSX ACORE,4
00415 3 00000 0 00447 PTH EVTEM
00416 0771 00 0 00022 ARS 18
00417 0020 00 7 00001 TRA 1,7
00420 0074 00 4 00002 EVOCT TSX BCOCT,4
00421 3 00000 0 00447 PTH EVTEM
00422 0020 00 7 00001 TRA 1,7
00423 0604 00 0 00447 EVDEC STI EVTEM
00424 0074 00 4 00003 TSX BCDEC,4
00425 3 00000 0 00447 PTH EVTEM
00426 0020 00 7 00001 TRA 1,7
00427 0520 00 0 00444 QTEST ZET .Q.
00430 0020 00 0 00161 TRA OUT
00431 0074 00 4 00010 LOSS TSX WRFLX,4
00432 0 00004 0 00453 PZE IMP,,4
$IMPROPER USE OF COMMAND.
00433 0020 00 0 00161 TRA OUT
00434 0 00002 0 00000 SP PZE 0,0,2
00435 0 00006 1 00447 .BCD PZE PLTEM,1,6
00436 0 00014 2 00447 .OCT PZE PLTEM,2,12
00437 0 00013 4 00447 .DEC PZE PLTEM,4,11
00440 0020 00 0 00210 .TRA TRA WRLIN
00441 0 00000 0 00000 MNS
00442 0 00000 0 00000 NAM
00443 0 00000 0 00000 .N.
00444 0 00000 0 00000 .Q.
00445 0 00000 0 00000 .NZ.
00446 0 00000 0 00000 GO
00447 EVTEM BSS 0
00447 0 00000 0 00000 PLTEM
00450 0 00000 0 00000 VALUE *
00451 0 00000 0 00000 VALTEM *
00452 0 00000 0 00000 EQ
00453 314447514647 IMP BCI 4,IMPROPER USE OF COMMAND.
00454 255160646225
00455 604626602346
00456 444421452433
1 PAGE 7
00457 CBUF BSS 20
00503 BUFF BSS 36
00503 .B. EQU BUFF
00504 .D. EQU BUFF+1
00505 .O. EQU BUFF+2
END
LITERALS
00547 000000000001
00550 000000000044
00551 000000000077
00552 171717444444
00553 606060606033
00554 606060606054
00555 606060606060
00556 707070707070
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
557 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
452 EQ 236, 253, 260, 337
446 GO 23, 163, 226, 233
244 GT 274
434 SP 63
136 ADR 111, 132, 134, 145
200 FMT 67, 74, 101, 105
453 IMP 432
503 .B. 41, 76, 224, 547
504 .D. 40, 71, 222, 547
443 .N. 117, 122
505 .O. 37, 64, 220, 547
444 .Q. 42, 234, 427
55 MLP 235
441 MNS 237, 261, 272, 330
442 NAM 240, 273, 275, 331, 333
161 OUT 17, 172, 430, 433
4 ZEL 353
167 1LOC 112, 115
170 ALOC 107, 124, 177, 213, 215
310 ARGS 246, 250, 330
503 BUFF 137, 141, 153, 155, 547
457 CBUF 21, 26, 32, 44, 57, 113, 244
352 EVAL 252
435 .BCD 100
437 .DEC 73
7 .FMT 176
445 .NZ. 43, 173, 232
436 .OCT 66
440 .TRA 104
431 LOSS 120, 126, 127, 276, 332
25 MORE 164
20 NARG 245, 246, 250, 330
331 PLUS 311
233 QUIT 230
335 STAR 315
1 ACORE 414
3 BCDEC 424
2 BCOCT 420
337 EQUAL 321
423 EVDEC 364, 375
420 EVOCT 361
447 EVTEM 352, 354, 355, 356, 377, 405, 410, 412, 415, 421, 423, 425
326 FENCE 60, 114
274 GETIX 334, 336, 340, 351
330 MINUS 313
217 MODES 51, 53, 233
14 NMODE 50, 51, 53, 233
106 NOMOD 34, 36
173 PLINE 142, 156, 171
447 PLTEM 175, 201, 435, 436, 437
427 QTEST 56, 61
1 PAGE 2
POST PROCESSOR ASSEMBLY DATA
341 SLASH 317
450 VALUE 241, 263, 265, 271, 300, 306, 346, 347
10 WRFLX 30, 161, 211, 431
210 WRLIN 203, 440
12 CHNCOM 165
0 COMLOC 411
14 GETARG 25
6 GETARY 135, 151
13 GETCLS 20
236 GETERM 106, 121
5 GETLOC 167, 256, 304, 344
275 GOTERM 323, 325, 327
145 LSTBUF 131
132 NXTBUF 144
11 SETBRK 16
213 SKIPPR 174
451 VALTEM 242, 302, 342, 350
0 NO ERROR IN ABOVE ASSEMBLY.
1 GETARG TO GET A STRING OF ARGUMENTS FROM THE CONSOLE PAGE 1
* TSX GETARG,4
* PZE BUFF,,'N'
*
*THE ARGUMENT STRING IS TYPED IN ONE LINE ON THE
* CONSOLE, WITH THE ARGUMENTS SEPARATED BY ONE OR MORE BLANKS.
*UP TO 'N' ARGUMENTS (RIGHT-JUSTIFIED AND BLANK PADDED, OR TRUNCATED
* IF THEY ARE MORE THAN SIX CHARACTERS LONG) WILL BE RETURNED IN
* LOCATIONS 'BUFF' THROUGH 'BUFF'+'N'-1. IF FEWER
* THAN 'N' ARGUMENTS ARE SPECIFIED, THE LAST ONE WILL BE FOLLOWED BY A
*
00003 ENTRY GETARG
TRANSFER VECTOR
00000 512426436721 RDFLXA
LINKAGE DIRECTOR
00001 000000000000
00002 272563215127
00003 0634 00 4 00106 GETARG SXA XR4,4
00004 0634 00 2 00105 SXA XR2,2
00005 0634 00 1 00104 SXA XR1,1
00006 -0500 00 4 00001 CAL 1,4
00007 -0734 00 1 00000 PDX ,1
00010 0754 00 1 00000 PXA ,1
00011 0401 00 4 00001 ADM 1,4
00012 0621 00 0 00071 STA OUTPT1
00013 0621 00 0 00073 STA OUTPT2
00014 -0625 00 0 00132 STL FIRST
00015 0074 00 4 00000 GETINP TSX $RDFLXA,4
00016 0 00016 0 00134 PZE BUFF,,14
00017 0734 00 4 00000 PAX ,4
00020 0600 00 0 00130 STZ MORE
00021 -3 37777 4 00027 TXL X,4,16383
00022 0520 00 0 00127 ZET FULL
00023 0020 00 0 00015 TRA GETINP
00024 -0625 00 0 00130 STL MORE
00025 -0500 00 0 00154 CAL =14
00026 0020 00 0 00042 TRA Y
00027 0520 00 0 00127 X ZET FULL
00030 0020 00 0 00104 TRA XR1
00031 0754 00 4 00000 PXA ,4
00032 -0130 00 0 00000 XCL
00033 -0754 00 0 00000 ZAC
00034 0221 00 0 00153 DVP =6
00035 -0100 00 0 00040 TNZ *+3
00036 -0130 00 0 00000 XCL
00037 0020 00 0 00042 TRA *+3
00040 -0130 00 0 00000 XCL
00041 0400 00 0 00152 ADD =1
00042 0734 00 4 00000 Y PAX ,4
00043 0400 00 0 00133 ADD EBUFF
00044 0621 00 0 00054 STA INPUT
00045 -0520 00 0 00132 NZT FIRST
00046 0020 00 0 00054 TRA INPUT
1 GETARG TO GET A STRING OF ARGUMENTS FROM THE CONSOLE PAGE 2
00047 0600 00 0 00132 STZ FIRST
00050 -0500 00 0 00157 CAL =H
00051 0602 60 0 00071 SLW* OUTPT1
00052 0600 00 0 00131 STZ OUTP
00053 0600 00 0 00126 STZ BL
00054 0560 00 4 00000 INPUT LDQ **,4
00055 0774 00 2 00006 AXT 6,2
00056 -0754 00 0 00000 NXTCHR ZAC
00057 -0763 00 0 00006 LGL 6
00060 -0340 00 0 00156 LAS =O60
00061 0020 00 0 00066 TRA OK
00062 0020 00 0 00110 TRA BLANK
00063 -0340 00 0 00155 LAS =O55
00064 0020 00 0 00074 TRA IGNORE
00065 0020 00 0 00110 TRA BLANK
00066 0600 00 0 00126 OK STZ BL
00067 -0625 00 0 00131 STL OUTP
00070 -0765 00 0 00006 LGR 6
00071 -0500 00 1 00000 OUTPT1 CAL **,1
00072 -0763 00 0 00006 LGL 6
00073 0602 00 1 00000 OUTPT2 SLW **,1
00074 2 00001 2 00056 IGNORE TIX NXTCHR,2,1
00075 2 00001 4 00054 TIX INPUT,4,1
00076 0520 00 0 00130 ZET MORE
00077 0020 00 0 00015 TRA GETINP
00100 0520 00 0 00131 ZET OUTP
00101 -2 00001 1 00104 TNX *+3,1,1
00102 -0500 00 0 00160 CAL =O777777777777
00103 0602 60 0 00073 SLW* OUTPT2
00104 0774 00 1 00000 XR1 AXT **,1
00105 0774 00 2 00000 XR2 AXT **,2
00106 0774 00 4 00000 XR4 AXT **,4
00107 0020 00 4 00002 TRA 2,4
00110 0520 00 0 00126 BLANK ZET BL
00111 0020 00 0 00074 TRA IGNORE
00112 -0625 00 0 00126 STL BL
00113 -0520 00 0 00131 NZT OUTP
00114 0020 00 0 00074 TRA IGNORE
00115 -2 00001 1 00122 TNX FILLED,1,1
00116 0600 00 0 00131 STZ OUTP
00117 -0500 00 0 00157 CAL =H
00120 0602 60 0 00071 SLW* OUTPT1
00121 0020 00 0 00074 TRA IGNORE
00122 -0520 00 0 00130 FILLED NZT MORE
00123 0020 00 0 00104 TRA XR1
00124 -0625 00 0 00127 STL FULL
00125 0020 00 0 00015 TRA GETINP
00126 0 00000 0 00000 BL
00127 0 00000 0 00000 FULL
00130 0 00000 0 00000 MORE
00131 0 00000 0 00000 OUTP
00132 0 00000 0 00000 FIRST
00133 0 00000 0 00134 EBUFF PZE BUFF
00134 BUFF BSS 14
1 GETARG TO GET A STRING OF ARGUMENTS FROM THE CONSOLE PAGE 3
END
LITERALS
00152 000000000001
00153 000000000006
00154 000000000016
00155 000000000055
00156 000000000060
00157 606060606060
00160 777777777777
1 GETARG TO GET A STRING OF ARGUMENTS FROM THE CONSOLE PAGE 1
POST PROCESSOR ASSEMBLY DATA
161 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
27 X 21
42 Y 26
126 BL 53, 66, 110, 112
66 OK 61
104 XR1 5, 30, 123
105 XR2 4
106 XR4 3
134 BUFF 16, 133
127 FULL 22, 27, 124
130 MORE 20, 24, 76, 122
131 OUTP 52, 67, 100, 113, 116
110 BLANK 62, 65
133 EBUFF 43
132 FIRST 14, 45, 47
54 INPUT 44, 46, 75
122 FILLED 115
3 GETARG 0
15 GETINP 23, 77, 125
74 IGNORE 64, 111, 114, 121
56 NXTCHR 74
71 OUTPT1 12, 51, 120
73 OUTPT2 13, 103
0 RDFLXA 15
0 NO ERROR IN ABOVE ASSEMBLY.
1 $.FMT - OUTPUT FORMATTING PROGRAM FOR FAP CALLS. PAGE 1
PETER R. BOS -- OCTOBER 1967
PCC ON
NOLNK
00000 ENTRY .FMT
LBL .FMT
PCC OFF
*
* CALLING SEQUENCE IS ...
* TSX .FMT,4
* PZE LOC,T,N
* .
* .
* PZE 0
*
* LOC IS A POINTER TO A DATA WORD (OR BLOCK, IN THE
* CASE OF BCD CONVERSION)
*
* T SPECIFIES THE TYPE OF CONVERSION -
* 0 = SKIP
* 1 = BCD
* 2 = OCTAL
* 4 = DECIMAL
*
* N SPECIFIES THE NUMBER OF COLUMNS TO BE USED FOR
* THIS DATA ELEMENT.
*
* ON RETURN, THE AC WILL CONTAIN A POINTER OF THE
* FORM PZE BUFF,,N SUCH AS WOULD BE USED FOR WRFLX.
* THE MQ WILL CONTAIN A POINTER OF THE FORM
* TXH BUFF-1,,N+1 WHERE BUFF-1 CONTAINS A LINE-MARK
* SUITABLE FOR WRITING INTO A FILE.
*
00000 0760 00 0 00016 .FMT LMTM CAN'T WORK WITH ONLY 3.
00001 0634 00 1 00167 SXA FX1,1 SAVE XRS.
00002 0634 00 2 00170 SXA FX2,2 ..
00003 0634 00 7 00171 SXA FX7,7 ..
00004 0604 00 0 00257 STI SIND ..
00005 0774 00 1 00006 AXT 6,1 INITIALIZE INDICES.
00006 0634 00 1 00176 SXA .X1,1 ..
00007 0634 00 0 00177 ZSA .X2 ..
00010 1 77777 4 00011 GTWD TXI *+1,4,-1 GET NEXT POINTER WORD.
00011 0500 00 4 00000 CLA 0,4 ..
00012 0100 00 0 00147 TZE EXIT PZE 0 = DONE.
00013 0044 00 0 00000 PAI CONVERSION (TAG) TO IND.
00014 -0734 00 2 00000 PDX 0,2 COLUMN COUNT.
00015 -3 00000 2 00010 TXL GTWD,2,0 IGNORE ZERO LENGTH FIELDS.
00016 0621 00 0 00254 STA WORD DATA POINTER.
1 $.FMT - OUTPUT FORMATTING PROGRAM FOR FAP CALLS. PAGE 2
PETER R. BOS -- OCTOBER 1967
00017 0054 00 100000 RFT .BCD TEST CONVERSION MODE.
00020 0020 00 0 00031 TRA BCD ..
00021 0054 00 200000 RFT .OCT ..
00022 0020 00 0 00056 TRA OCT ..
00023 0054 00 400000 RFT .DEC ..
00024 0020 00 0 00076 TRA DEC ..
00025 -0500 00 0 00265 CAL =O60 TAG = 0, SKIP N COLS.
00026 0074 00 7 00174 TSX .STC,7 INSERT BLANK IN BUFFER.
00027 2 00001 2 00025 TIX *-2,2,1 REPEAT TILL DONE.
00030 0020 00 0 00010 TRA GTWD GO GET SOME MORE STUFF.
00031 -2 00006 2 00046 BCD TNX LASTB,2,6 IF AT LAST WORD, SKIP.
00032 0560 60 0 00254 LDQ* WORD FULL BCD WORD.
00033 -0500 00 0 00254 CAL WORD INCREMENT ADDRESS.
00034 0400 00 0 00264 ADD =1 ..
00035 0621 00 0 00254 STA WORD ..
00036 0774 00 1 00006 AXT 6,1 6 CHARACTERS PER WORD.
00037 -0754 00 0 00000 ZAC JUNK.
00040 -0763 00 0 00006 BLP1 LGL 6 SHIFT A CHARACTER.
00041 -0600 00 0 00260 STQ MQ SAVE THE REST.
00042 0074 00 7 00174 TSX .STC,7 GO STORE IN BUFFER.
00043 0560 00 0 00260 LDQ MQ RESTORE MQ.
00044 2 00001 1 00040 TIX BLP1,1,1 INDEX AND REPEAT.
00045 0020 00 0 00031 TRA BCD GET NEXT WORD.
00046 0560 60 0 00254 LASTB LDQ* WORD LAST WORD OF BCD CONV.
00047 -0754 00 0 00000 ZAC (COUNT MUST BE .G.0, .LE.6)
00050 -0763 00 0 00006 LGL 6 SHIFT OUT A CHARACTER.
00051 -0600 00 0 00260 STQ MQ DON'T LOSE THE REST.
00052 0074 00 7 00174 TSX .STC,7 STORE CHARACTER IN OUTPUT BUFFER.
00053 0560 00 0 00260 LDQ MQ RESTORE PARTIAL MQ.
00054 2 00001 2 00047 TIX LASTB+1,2,1 GO BACK FOR ANOTHER.
00055 0020 00 0 00010 TRA GTWD DONE, GO GET NEXT DATA ITEM.
00056 -3 00014 2 00060 OCT TXL *+2,2,12 IF COUNT .G. 12,
00057 0774 00 2 00014 AXT 12,2 COUNT = 12.
00060 0754 00 2 00000 PXA 0,2 TO AC.
00061 0602 00 0 00255 SLW T MPY BY 3.
00062 0767 00 0 00001 ALS 1 ..
00063 0400 00 0 00255 ADD T ..
00064 0737 00 7 00000 PAC 0,7 ..
00065 -0500 60 0 00254 CAL* WORD GET OCTAL WORD.
00066 -0765 00 7 00000 LGR 0,7 SAVE ONLY LOW ORDER N DIGITS.
00067 -0754 00 0 00000 OCLP ZAC BETTER CLEAR AC.
00070 -0763 00 0 00003 LGL 3 GET A DIGIT.
00071 -0600 00 0 00260 STQ MQ SAVE PARTIAL MQ.
00072 0074 00 7 00174 TSX .STC,7 INSERT DIGIT IN BUFFER.
00073 0560 00 0 00260 LDQ MQ ... AND AGAIN.
00074 2 00001 2 00067 TIX OCLP,2,1 ..
00075 0020 00 0 00010 TRA GTWD DONE.
00076 -3 00013 2 00100 DEC TXL *+2,2,11 IF COUNT .G. 11,
00077 0774 00 2 00013 AXT 11,2 SET COUNT TO 11.
00100 -0625 00 0 00256 STL BZEL SET FLAG FOR LEADING BLANKS.
00101 0600 00 0 00261 STZ SKIP RESET FLAG FOR IGNORING LEADING BLNKS.
1 $.FMT - OUTPUT FORMATTING PROGRAM FOR FAP CALLS. PAGE 3
PETER R. BOS -- OCTOBER 1967
00102 0120 00 0 00104 TPL *+2 WANT LEADING BLANKS. Q
00103 -0625 00 0 00261 STL SKIP NO, SET FLAG.
00104 -0500 60 0 00254 CAL* WORD NO SIGN, PLEASE.
00105 0131 00 0 00000 XCA ..
00106 -0754 00 0 00000 ZAC ..
00107 3 00012 2 00112 TXH DLP,2,10 IF LESS THAN 11,
00110 0221 00 2 00146 DVP DIGIT-1,2 USE ONLY LAST N DIGITS.
00111 0131 00 0 00000 XCA REMAINDER BECOMES NEW NUMBER.
00112 -0754 00 0 00000 DLP ZAC BETTER CLEAR AC FIRST.
00113 0221 00 2 00147 DVP DIGIT,2 GET DIGIT.
00114 0601 00 0 00260 STO MQ SAVE REMAINDER.
00115 0131 00 0 00000 XCA DIGIT TO AC.
00116 -0320 00 0 00266 ANA =O77 LAST 6 BITS ONLY.
00117 -0100 00 0 00126 TNZ NOZERO IF ZERO,
00120 -3 00001 2 00126 TXL NOZERO,2,1 AND NOT LAST DIGIT,
00121 0520 00 0 00256 ZET BZEL AND PREVIOUS ZEROS,
00122 -0500 00 0 00265 CAL =O60 CHANGE TO BLANK.
00123 0520 00 0 00261 ZET SKIP WANT BLANK. Q
00124 0020 00 0 00131 TRA SKPBLK NO, SKIP IT.
00125 0020 00 0 00130 TRA *+3 AND SKIP.
00126 0600 00 0 00256 NOZERO STZ BZEL ELSE, RESET FLAG.
00127 0600 00 0 00261 STZ SKIP ..
00130 0074 00 7 00174 TSX .STC,7 ADD CHARACTER TO BUFFER.
00131 0560 00 0 00260 SKPBLK LDQ MQ RESTORE PARTIAL MQ.
00132 2 00001 2 00112 TIX DLP,2,1 AND DO IT AGAIN.
00133 0020 00 0 00010 TRA GTWD DONE.
00134 +112402762000 DEC 10000000000 TABLE OF DIGITS.
00135 +007346545000 DEC 1000000000 ..
00136 +000575360400 DEC 100000000 ..
00137 +000046113200 DEC 10000000 ..
00140 +000003641100 DEC 1000000 ..
00141 +000000303240 DEC 100000 ..
00142 +000000023420 DEC 10000 ..
00143 +000000001750 DEC 1000 ..
00144 +000000000144 DEC 100 ..
00145 +000000000012 DEC 10 ..
00146 +000000000001 DEC 1 ..
00147 DIGIT SYN *
00147 0534 00 1 00176 EXIT LXA .X1,1 END OF LINE, FILL IN WITH NULLS.
00150 0534 00 2 00177 LXA .X2,2 ..
00151 -3 00000 1 00160 TXL GTPT,1,0 IF NO HOLES, SKIP.
00152 -0500 00 0 00224 CAL AC
00153 0560 00 0 00270 LDQ =O575757575757 NULLS RIGHT.
00154 -0763 00 0 00006 LGL 6 SHIFT ONE.
00155 2 00001 1 00154 TIX *-1,1,1 IF THAT WON'T DO, SHIFT IT AGAIN.
00156 0602 00 2 00226 SLW BUF,2 STORE LAST WORD.
00157 1 77777 2 00160 TXI *+1,2,-1 INCREMENT COUNT.
00160 -0756 00 2 00000 GTPT PCD 0,2 TO AC.
00161 0622 00 0 00262 STD PBUF WORD COUNT.
00162 0400 00 0 00267 ADD =O1000000 ADD ONE FOR LINE MARK.
00163 0622 00 0 00263 STD PLBUF AND PUT IN OTHER POINTER.
00164 0636 00 2 00225 SCA LMARK,2 FIX UP LINE MARK.
00165 -0500 00 0 00262 CAL PBUF GET POINTERS.
1 $.FMT - OUTPUT FORMATTING PROGRAM FOR FAP CALLS. PAGE 4
PETER R. BOS -- OCTOBER 1967
00166 0560 00 0 00263 LDQ PLBUF ..
00167 0774 00 1 00000 FX1 AXT -,1 RESTORE XRS.
00170 0774 00 2 00000 FX2 AXT -,2 ..
00171 0774 00 7 00000 FX7 AXT -,7 ..
00172 0441 00 0 00257 LDI SIND ..
00173 0020 00 4 00001 TRA 1,4 RETURN AFTER LAST ITEM.
00174 0634 00 1 00221 .STC SXA .SX1,1 SAVE XRS.
00175 0634 00 2 00222 SXA .SX2,2 ..
00176 0774 00 1 00000 .X1 AXT -,1 RESTORE BUFFER INDICES.
00177 0774 00 2 00000 .X2 AXT -,2 ..
00200 -0765 00 0 00006 LGR 6 SHIFT CHARACTER TO MQ.
00201 -0500 00 0 00224 CAL AC PICK UP PARTIAL AC.
00202 -0763 00 0 00006 LGL 6 SHIFT CHARACTER TO AC.
00203 0602 00 0 00224 SLW AC AND SAVE.
00204 2 00001 1 00217 TIX XIT,1,1 DECREMENT CHAR. COUNT AND EXIT.
00205 0602 00 2 00226 STORE SLW BUF,2 IF FULL WORD, STORE IN BUFFER.
00206 -0500 00 0 00271 CAL =H INITIALIZE AC.
00207 0602 00 0 00224 SLW AC ..
00210 1 77777 2 00211 TXI *+1,2,-1 INCREMENT WORD COUNT.
00211 3 77752 2 00216 TXH *+5,2,-NWRDS IF BUFFER FULL, EXIT
00212 0500 00 4 00000 CLA 0,4 ..
00213 1 77777 4 00214 TXI *+1,4,-1 ..
00214 -0100 00 0 00212 TNZ *-2 ..
00215 0020 00 0 00160 TRA GTPT ..
00216 0774 00 1 00006 AXT 6,1 RESET CHARACTER COUNT.
00217 0634 00 1 00176 XIT SXA .X1,1 SAVE BUFFER INDICES.
00220 0634 00 2 00177 SXA .X2,2 ..
00221 0774 00 1 00000 .SX1 AXT -,1 RESTORE XRS.
00222 0774 00 2 00000 .SX2 AXT -,2 ..
00223 0020 00 7 00001 TRA 1,7 RETURN.
00224 0 00000 0 00000 AC PZE TEMPORARY.
100000 .BCD BOOL 100000
200000 .OCT BOOL 200000
400000 .DEC BOOL 400000
00026 NWRDS EQU 22 MAX. WORDS PER LINE.
00225 -377777000000 LMARK OCT 777777000000
00226 BUF BSS NWRDS
00254 0 00000 0 00000 WORD PZE
00255 0 00000 0 00000 T PZE SUPER-TEMPORARY.
00256 0 00000 0 00000 BZEL PZE FLAG FOR LEADING BLANKS ON DEC.
00257 0 00000 0 00000 SIND PZE STORAGE FOR INDICS.
00260 0 00000 0 00000 MQ PZE
00261 0 00000 0 00000 SKIP PZE
00262 0 00000 0 00226 PBUF PZE BUF,,-
00263 3 00000 0 00225 PLBUF TXH LMARK,0,-
1 $.FMT - OUTPUT FORMATTING PROGRAM FOR FAP CALLS. PAGE 5
PETER R. BOS -- OCTOBER 1967
END
LITERALS
00264 000000000001
00265 000000000060
00266 000000000077
00267 000001000000
00270 575757575757
00271 606060606060
1 $.FMT - OUTPUT FORMATTING PROGRAM FOR FAP CALLS. PAGE 1
POST PROCESSOR ASSEMBLY DATA
272 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
255 T 61, 63
224 AC 152, 201, 203, 207
260 MQ 41, 43, 51, 53, 71, 73, 114, 131
31 BCD 20, 45
226 BUF 156, 205, 262
76 DEC 24
112 DLP 107, 132
167 FX1 1
170 FX2 2
171 FX7 3
176 .X1 6, 147, 217
177 .X2 7, 150, 220
56 OCT 22
217 XIT 204
40 BLP1 44
256 BZEL 100, 121, 126
147 EXIT 12
160 GTPT 151, 215
10 GTWD 15, 30, 55, 75, 133
100000 .BCD 17, 225
400000 .DEC 23, 225
0 .FMT 0
200000 .OCT 21, 225
174 .STC 26, 42, 52, 72, 130
221 .SX1 174
222 .SX2 175
67 OCLP 74
262 PBUF 161, 165
257 SIND 4, 172
261 SKIP 101, 103, 123, 127
254 WORD 16, 32, 33, 35, 46, 65, 104
147 DIGIT 110, 113, 147
46 LASTB 31, 54
225 LMARK 164, 263
26 NWRDS 211, 225, 226
263 PLBUF 163, 166
205 STORE
126 NOZERO 117, 120
131 SKPBLK 124
0 NO ERROR IN ABOVE ASSEMBLY.
AEDBCD BCD 10/12/70 1512.6 3896 00000
1 MAD PROGRAM LISTING ... ... ... FILE AEDBCD MAD 10/02/69 0152.5
-
PROGRAM TO CREATE LINE MARKED LISTING FILE OUT OF LM00001
ALGOL SOURCE FILE AND ALGOL COMPILATION LISTING LM00002
LM00003
USAGE ... 'AEDBCD NAME1' LM00004
LM00005
EATS 'NAME1 ALGOL' (CARD IMAGE) AND 'NAME1 LIST', LM00006
MAKES 'NAME1 BCD', SUITABLE FOR FRAMING LM00007
LM00008
NORMAL MODE IS INTEGER *001 LM00009
DIMENSION B1(0), B2(0), B3(0), WBUF(0), LINE(16) *002 LM00010
VECTOR VALUES LINE(15) = $ $, 777777000017K *003 LM00011
LM00012
VECTOR VALUES R = $R$ *004 LM00013
VECTOR VALUES W = $W$ *005 LM00014
VECTOR VALUES ALL = $ALL$ *006 LM00015
VECTOR VALUES ALGOL = $ ALGOL$ *007 LM00016
VECTOR VALUES LIST = $ LIST$ *008 LM00017
VECTOR VALUES BCD = $ BCD$ *009 LM00018
VECTOR VALUES EJECT = $1 $, 777777000001K *010 LM00019
VECTOR VALUES EOFCT = 0 *011 LM00020
VECTOR VALUES LMARK = 777777000000K *012 LM00021
LM00022
FERRTN.(OOPS) *013 LM00023
N1 = COMARG.(1) *014 LM00024
FSTATE.(N1, ALGOL, TEMP) *015 LM00025
FSTATE.(N1, LIST, TEMP) *016 LM00026
DELETE.(N1, BCD, 0, CHNCOM.) *017 LM00027
LM00028
GETBUF.(B1, 864) *018 LM00029
GETBUF.(B2, 864) *019 LM00030
GETBUF.(B3, 864) *020 LM00031
GETBUF.(WBUF, 432) *021 LM00032
LM00033
BFOPEN.(R, N1, ALGOL, B1(B1+432), B1(B1+864), -0, OOPS) *022 LM00034
BFOPEN.(W, N1, BCD, B2(B2+432), B2(B2+864), B3(B3+432), OOPS) *023 LM00035
BFWRIT.(N1, BCD, EJECT(1)...2, OOPS) *024 LM00036
LM00037
READ BFREAD.(N1, ALGOL, LINE(14)...14, EOF, EOFCT, OOPS) *025 LM00038
BFWRIT.(N1, BCD, LINE(16)...16, OOPS) *026 LM00039
TRANSFER TO READ *027 LM00040
LM00041
EOF WHENEVER EOFCT .NE. 0 *028 LM00042
TEMP = EOFCT + 1 *029 LM00043
LINE(TEMP) = EOFCT .V. LMARK *030 LM00044
BFWRIT.(N1, BCD, LINE(TEMP)...TEMP, OOPS) *031 LM00045
END OF CONDITIONAL *032 LM00046
LM00047
BFCLOS.(ALL, -0, OOPS) *033 LM00048
LM00049
OPEN.(R, N1, LIST) *034 LM00050
OPEN.(W, N1, BCD) *035 LM00051
BUFFER.(N1, BCD, WBUF(WBUF+432)...432) *036 LM00052
COPY.(N1, LIST, N1, BCD, B1(B1+864), B2(B2+864), *037 LM00053
1 B3(B3+864), 864, OOPS) *037 LM00054
CLOSE.(ALL, -0) *038 LM00055
LM00056
WRFLX.($*$...1) *039 LM00057
CHNCOM.(0) *040 LM00058
LM00059
OOPS PRDIAG. *041 LM00060
BFCLOS.(ALL, -0) *042 LM00061
CLOSE.(ALL, -0) *043 LM00062
RESETF. *044 LM00063
CHNCOM.(0) *045 LM00064
LM00065
END OF PROGRAM *046 LM00066
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00373 TRANSFER VECTOR LENGTH 00023 PROGRAM BEGINS 00101
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ALGOL 00027 A 1 B3 00033 A 1 EOF 00024 4 N1 00063 1 TEMP 00065 1
ALL 00030 A 1 BCD 00034 A 1 LINE 00060 A 1 OOPS 00025 4 WBUF 00066 A 1
B1 00031 A 1 EJECT 00036 A 1 LIST 00061 A 1 READ 00026 4 W 00067 A 1
B2 00032 A 1 EOFCT 00037 A 1 LMARK 00062 A 1 R 00064 A 1
0FUNCTION DICTIONARY
BFCLOS 00000 1 BFOPEN 00001 1 BFREAD 00002 1 BFWRIT 00003 1 BUFFER 00004 1
CHNCOM 00005 1 CLOSE 00006 1 COMARG 00007 1 COPY 00010 1 DELETE 00011 1
EXIT 00012 1 FERRTN 00013 1 FSTATE 00014 1 GETBUF 00015 1 .SETUP 00016 1
OPEN 00017 1 PRDIAG 00020 1 RESETF 00021 1 WRFLX 00022 1
0ABSOLUTE CONSTANTS
00100 -146060606060 00074 +000000000020 00073 +000000000016 00072 +000000000002 00075 +000000000660
00076 +000000001540 00070 +000000000000 00071 +000000000001 00077 +233000000000
0STATEMENT DICTIONARY
00024 TXL -300240000235 00025 TXL -300352000351 00026 TXL -300227000220
0PROGRAM
N'R 001 LM00009
D'N B1(0), B2(0), B3(0), WBUF(0), LINE(16) 002 LM00010
V'S LINE(15) = $ $, 777777000017K 003 LM00011
00101 TSX +0 07400 4 00016 00040 -3 77777 0 00017 00041 -2 06060 6 06060
V'S R = $R$ 004 LM00013
00064 -1 16060 6 06060
V'S W = $W$ 005 LM00014
00067 -2 66060 6 06060
V'S ALL = $ALL$ 006 LM00015
00030 +2 14343 6 06060
V'S ALGOL = $ ALGOL$ 007 LM00016
00027 -2 02143 2 74643
V'S LIST = $ LIST$ 008 LM00017
00061 -2 06043 3 16263
V'S BCD = $ BCD$ 009 LM00018
00034 -2 06060 2 22324
V'S EJECT = $1 $, 777777000001K 010 LM00019
00035 -3 77777 0 00001 00036 +0 16060 6 06060
V'S EOFCT = 0 011 LM00020
00037 +0 00000 0 00000
V'S LMARK = 777777000000K 012 LM00021
00062 -3 77777 0 00000
FERRTN.(OOPS) 013 LM00023
00102 TSX +0 07400 4 00013 00103 TXH +3 00000 0 00025
N1 = COMARG.(1) 014 LM00024
00104 TSX +0 07400 4 00007 00105 TXH +3 00000 0 00071 00106 STO +0 60100 0 00063
FSTATE.(N1, ALGOL, TEMP) 015 LM00025
00107 TSX +0 07400 4 00014 00110 TXH +3 00000 0 00063 00111 TXH +3 00000 0 00027 00112 TXH +3 00000 0 00065
FSTATE.(N1, LIST, TEMP) 016 LM00026
00113 TSX +0 07400 4 00014 00114 TXH +3 00000 0 00063 00115 TXH +3 00000 0 00061 00116 TXH +3 00000 0 00065
DELETE.(N1, BCD, 0, CHNCOM.) 017 LM00027
00117 TSX +0 07400 4 00011 00120 TXH +3 00000 0 00063 00121 TXH +3 00000 0 00034 00122 TXH +3 00000 0 00070
00123 TXH +3 00000 0 00005
GETBUF.(B1, 864) 018 LM00029
00124 TSX +0 07400 4 00015 00125 TXH +3 00000 0 00031 00126 TXH +3 00000 0 00076
GETBUF.(B2, 864) 019 LM00030
00127 TSX +0 07400 4 00015 00130 TXH +3 00000 0 00032 00131 TXH +3 00000 0 00076
GETBUF.(B3, 864) 020 LM00031
00132 TSX +0 07400 4 00015 00133 TXH +3 00000 0 00033 00134 TXH +3 00000 0 00076
GETBUF.(WBUF, 432) 021 LM00032
00135 TSX +0 07400 4 00015 00136 TXH +3 00000 0 00066 00137 TXH +3 00000 0 00075
BFOPEN.(R, N1, ALGOL, B1(B1+432), B1(B1+864), -0, OOPS) 022 LM00034
00140 CLS +0 50200 0 00070 00141 STO +0 60100 0 00370 00142 CLA +0 50000 0 00031 00143 ADD +0 40000 0 00076
00144 SUB +0 40200 0 00145 00145 TXH +3 00000 0 00031 00146 STA +0 62100 0 00161 00147 CLA +0 50000 0 00031
00150 ADD +0 40000 0 00075 00151 SUB +0 40200 0 00152 00152 TXH +3 00000 0 00031 00153 STA +0 62100 0 00160
00154 TSX +0 07400 4 00001 00155 TXH +3 00000 0 00064 00156 TXH +3 00000 0 00063 00157 TXH +3 00000 0 00027
00160 TXH +3 00000 0 00000 00161 TXH +3 00000 0 00000 00162 TXH +3 00000 0 00370 00163 TXH +3 00000 0 00025
BFOPEN.(W, N1, BCD, B2(B2+432), B2(B2+864), B3(B3+432), OOPS) 023 LM00035
00164 CLA +0 50000 0 00033 00165 ADD +0 40000 0 00075 00166 SUB +0 40200 0 00167 00167 TXH +3 00000 0 00033
00170 STA +0 62100 0 00211 00171 CLA +0 50000 0 00032 00172 ADD +0 40000 0 00076 00173 SUB +0 40200 0 00174
00174 TXH +3 00000 0 00032 00175 STA +0 62100 0 00210 00176 CLA +0 50000 0 00032 00177 ADD +0 40000 0 00075
00200 SUB +0 40200 0 00201 00201 TXH +3 00000 0 00032 00202 STA +0 62100 0 00207 00203 TSX +0 07400 4 00001
00204 TXH +3 00000 0 00067 00205 TXH +3 00000 0 00063 00206 TXH +3 00000 0 00034 00207 TXH +3 00000 0 00000
00210 TXH +3 00000 0 00000 00211 TXH +3 00000 0 00000 00212 TXH +3 00000 0 00025
BFWRIT.(N1, BCD, EJECT(1)...2, OOPS) 024 LM00036
00213 TSX +0 07400 4 00003 00214 TXH +3 00000 0 00063 00215 TXH +3 00000 0 00034 00216 TIX +2 00072 0 00035
00217 TXH +3 00000 0 00025
READ BFREAD.(N1, ALGOL, LINE(14)...14, EOF, EOFCT, OOPS) 025 LM00038
00220 TSX +0 07400 4 00002 00221 TXH +3 00000 0 00063 00222 TXH +3 00000 0 00027 00223 TIX +2 00073 0 00042
00224 TXH +3 00000 0 00024 00225 TXH +3 00000 0 00037 00226 TXH +3 00000 0 00025
BFWRIT.(N1, BCD, LINE(16)...16, OOPS) 026 LM00039
00227 TSX +0 07400 4 00003 00230 TXH +3 00000 0 00063 00231 TXH +3 00000 0 00034 00232 TIX +2 00074 0 00040
00233 TXH +3 00000 0 00025
T'O READ 027 LM00040
00234 TRA +0 02000 0 00026
EOF W'R EOFCT .NE. 0 028 LM00042
00235 CLA +0 50000 0 00037 00236 SUB +0 40200 0 00070 00237 TZE +0 10000 0 00260
TEMP = EOFCT + 1 029 LM00043
00240 CLA +0 50000 0 00037 00241 ADD +0 40000 0 00071 00242 STO +0 60100 0 00065
LINE(TEMP) = EOFCT .V. LMARK 030 LM00044
00243 CAL -0 50000 0 00037 00244 ORA -0 50100 0 00062 00245 LXA +0 53400 1 00065 00246 SLW +0 60200 1 00060
BFWRIT.(N1, BCD, LINE(TEMP)...TEMP, OOPS) 031 LM00045
00247 CLA +0 50000 0 00065 00250 SUB +0 40200 0 00251 00251 TXH +3 00000 0 00060 00252 STA +0 62100 0 00256
00253 TSX +0 07400 4 00003 00254 TXH +3 00000 0 00063 00255 TXH +3 00000 0 00034 00256 TIX +2 00065 0 00000
00257 TXH +3 00000 0 00025
E'L 032 LM00046
BFCLOS.(ALL, -0, OOPS) 033 LM00048
00260 CLS +0 50200 0 00070 00261 STO +0 60100 0 00370 00262 TSX +0 07400 4 00000 00263 TXH +3 00000 0 00030
00264 TXH +3 00000 0 00370 00265 TXH +3 00000 0 00025
OPEN.(R, N1, LIST) 034 LM00050
00266 TSX +0 07400 4 00017 00267 TXH +3 00000 0 00064 00270 TXH +3 00000 0 00063 00271 TXH +3 00000 0 00061
OPEN.(W, N1, BCD) 035 LM00051
00272 TSX +0 07400 4 00017 00273 TXH +3 00000 0 00067 00274 TXH +3 00000 0 00063 00275 TXH +3 00000 0 00034
BUFFER.(N1, BCD, WBUF(WBUF+432)...432) 036 LM00052
00276 CLA +0 50000 0 00066 00277 ADD +0 40000 0 00075 00300 SUB +0 40200 0 00301 00301 TXH +3 00000 0 00066
00302 STA +0 62100 0 00306 00303 TSX +0 07400 4 00004 00304 TXH +3 00000 0 00063 00305 TXH +3 00000 0 00034
00306 TIX +2 00075 0 00000
COPY.(N1, LIST, N1, BCD, B1(B1+864), B2(B2+864), 037 LM00053
1 B3(B3+864), 864, OOPS) 037 LM00054
00307 CLA +0 50000 0 00033 00310 ADD +0 40000 0 00076 00311 SUB +0 40200 0 00312 00312 TXH +3 00000 0 00033
00313 STA +0 62100 0 00335 00314 CLA +0 50000 0 00032 00315 ADD +0 40000 0 00076 00316 SUB +0 40200 0 00317
00317 TXH +3 00000 0 00032 00320 STA +0 62100 0 00334 00321 CLA +0 50000 0 00031 00322 ADD +0 40000 0 00076
00323 SUB +0 40200 0 00324 00324 TXH +3 00000 0 00031 00325 STA +0 62100 0 00333 00326 TSX +0 07400 4 00010
00327 TXH +3 00000 0 00063 00330 TXH +3 00000 0 00061 00331 TXH +3 00000 0 00063 00332 TXH +3 00000 0 00034
00333 TXH +3 00000 0 00000 00334 TXH +3 00000 0 00000 00335 TXH +3 00000 0 00000 00336 TXH +3 00000 0 00076
00337 TXH +3 00000 0 00025
CLOSE.(ALL, -0) 038 LM00055
00340 CLS +0 50200 0 00070 00341 STO +0 60100 0 00370 00342 TSX +0 07400 4 00006 00343 TXH +3 00000 0 00030
00344 TXH +3 00000 0 00370
WRFLX.($*$...1) 039 LM00057
00345 TSX +0 07400 4 00022 00346 TIX +2 00071 0 00100
CHNCOM.(0) 040 LM00058
00347 TSX +0 07400 4 00005 00350 TXH +3 00000 0 00070
OOPS PRDIAG. 041 LM00060
00351 TSX +0 07400 4 00020
BFCLOS.(ALL, -0) 042 LM00061
00352 CLS +0 50200 0 00070 00353 STO +0 60100 0 00370 00354 TSX +0 07400 4 00000 00355 TXH +3 00000 0 00030
00356 TXH +3 00000 0 00370
CLOSE.(ALL, -0) 043 LM00062
00357 CLS +0 50200 0 00070 00360 STO +0 60100 0 00370 00361 TSX +0 07400 4 00006 00362 TXH +3 00000 0 00030
00363 TXH +3 00000 0 00370
RESETF. 044 LM00063
00364 TSX +0 07400 4 00021
CHNCOM.(0) 045 LM00064
00365 TSX +0 07400 4 00005 00366 TXH +3 00000 0 00070
E'M 046 LM00066
00367 TSX +0 07400 4 00012
ALSTAT BCD 02/09/69 0712.9 59917 00000
1 MAD PROGRAM LISTING ... ... ... FILE ALSTAT MAD 02/09/69 0656.4
-
ALSTAT ...SUMMARIZE DISK USAGE. LM00001
LM00002
...THIS PROGRAM IS DESIGNED FOR USE WITH THE 'FSTAT' PACKAGE LM00003
...WRITTEN BY NOEL MORRIS. LM00004
LM00005
...T.H. VAN VLECK 9/66 LM00006
LM00007
LM00008
LM00009
EXTERNAL FUNCTION(PROBN,PROGN,BUFF) *001 LM00010
LM00011
...DEFINE OPERATORS FOR MODULUS AND EXCLUSIVE OR LM00012
INSERT FILE .MOD. *002 LM00013
DEFINE BINARY OPERATOR .MOD., PRECEDENCE SAME AS / *003 LM00001
MODE STRUCTURE 1 .MOD. 1 TO 1 *004 LM00002
JMP *+1,AT,*+3 *005 LM00003
JMP *+11,AC,*+1 *006 LM00004
JMP *+12,LA,*+6 *007 LM00005
JMP *+13,AC,*+1 *008 LM00006
JMP *+2,MQ,*+1 *009 LM00007
JMP *+13,LA,*+2 *010 LM00008
STQ T *011 LM00009
LDQ A *012 LM00010
PXD *013 LM00011
LLS 0 *014 LM00012
DVP B *015 LM00013
OUT AC *016 LM00014
XCA *017 LM00015
JMP *-5 *018 LM00016
XCL *019 LM00017
JMP *-7 *020 LM00018
STO T *021 LM00019
JMP *-10 *022 LM00020
SLW T *023 LM00021
JMP *-12 *024 LM00022
END *025 LM00023
INSERT FILE .XOR. *026 LM00014
DEFINE BINARY OPERATOR .XOR., PRECEDENCE SAME AS .A. *027 LM00001
MODE STRUCTURE 1 .XOR. 1 TO 1 *028 LM00002
JMP *+1,LA,*+3 *029 LM00003
JMP *+15,AT,*+1 *030 LM00004
JMP *+17,BT,*+9 *031 LM00005
JMP *+1,MQ,*+3 *032 LM00006
JMP *+9,AT,*+1 *033 LM00007
JMP *+13,BT,*+4 *034 LM00008
JMP *+1,AC,*+9 *035 LM00009
STO T *036 LM00010
JMP *+7 *037 LM00011
STQ T *038 LM00012
JMP *+5 *039 LM00013
SLW T *040 LM00014
JMP *+3 *041 LM00015
XCL *042 LM00016
JMP *+2 *043 LM00017
CAL A *044 LM00018
ERA B *045 LM00019
OUT LAC *046 LM00020
XCL *047 LM00021
ERA A *048 LM00022
OUT LAC *049 LM00023
END *050 LM00024
LM00015
LM00016
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * LM00017
LM00018
...'FINIT' IS CALLED FIRST TO INITIALIZE. LM00019
...IT READS 'SEARCH FILE' LM00020
...TO SEE WHAT NAMES AND CLASSES TO SUMMARIZE. LM00021
LM00022
ENTRY TO FINIT. *051 LM00023
LM00024
LM00025
WHENEVER COMARG.(1).E.$ (SYS)$, SYSFLG = 1B *052 LM00026
BOOLEAN SYSFLG *053 LM00027
VECTOR VALUES SYSFLG = 0B *054 LM00028
LM00029
GETTM.(DATE,TIME) *055 LM00030
GETIM.(TEMP,DATE) *056 LM00031
WHOAMI.(WHO(3)...4) *057 LM00032
ATTNAM.(ME(1)...2) *058 LM00033
FERRTN.(ERR) *059 LM00034
IOHSIZ.(1) *060 LM00035
LM00036
BFOPEN.($R$,SEARCH,FL,B1(432),B2(432),-0,ERR) *061 LM00037
LM00038
READ BFREAD.(SEARCH,FL,CARD(13)...14,EOF,-0,ERR) *062 LM00039
NAME1(MAX)=RJUST.(CARD(13)) *063 LM00040
NAME2(MAX)=RJUST.(CARD(12)) *064 LM00041
MASK1(MAX) = NAMASK.(NAME1(MAX)) *065 LM00042
MASK2(MAX) = NAMASK.(NAME2(MAX)) *066 LM00043
TEMP=RJUST.(CARD(11)) *067 LM00044
WHENEVER TEMP .E. $$ *068 LM00045
CLASS(MAX)=0 *069 LM00046
LM00047
OTHERWISE *070 LM00048
THROUGH SCLS, FOR I=0,1,I.G.MXCLS *071 LM00049
WHENEVER TEMP .E. CLNAME(I), TRANSFER TO SET *072 LM00050
SCLS CONTINUE *073 LM00051
LM00052
MXCLS=MXCLS+1 *074 LM00053
CLNAME(MXCLS)=TEMP *075 LM00054
SET CLASS(MAX)=I *076 LM00055
END OF CONDITIONAL *077 LM00056
MAX=MAX+1 *078 LM00057
TRANSFER TO READ *079 LM00058
LM00059
EOF BFCLOS.(SEARCH,FL) *080 LM00060
MAX=MAX-1 *081 LM00061
LM00062
YR = BCDEC.(DATE.A.7777K) *082 LM00063
MO = BCDEC.((DATE.RS.24).A.7777K) *083 LM00064
DA = BCDEC.((DATE.RS.12).A.7777K) *084 LM00065
NOW = ABSDAT.(MO, DA, YR) *085 LM00066
LM00067
...SET UP BRKPTS FOR HISTOGRAM LM00068
MB1 = NOW - DA *086 LM00069
MB2 = MB1 - DAYS(MO-1) *087 LM00070
MO1 = MONNAM(MO-1) *088 LM00071
MO2 = MONNAM((MO+10).MOD.12) *089 LM00072
LM00073
LM00074
FUNCTION RETURN *090 LM00075
LM00076
LM00077
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * LM00078
LM00079
LM00080
...'COUNTR' IS CALLED ON EACH FILE. LM00081
.....'BUFF' IS THE ACTUAL UFD ENTRY FOR A FILE LM00082
.....SINCE THE UFD GOES FORWARD IN CORE WE MUST USE LM00083
.....THE 2'S COMPLEMENT OF THE SUBSCRIPT LM00084
LM00085
.....BUFF( 0) = NAME1 LM00086
.....BUFF(-1) = NAME2 LM00087
.....BUFF(-2) = DATE + TIME LAST MOD. LM00088
.....BUFF(-3) = DATE LAST USED, AUTHOR LM00089
.....BUFF(-4) = MODE, ILOCK, F, RCOUNT LM00090
.....BUFF(-5) = SWR, NORECS, P, LCOUNT LM00091
.....(WITH THE OBVIOUS EXCEPTION FOR LINKS) LM00092
LM00093
LM00094
ENTRY TO COUNTR. *091 LM00095
LM00096
LM00097
WHENEVER PROGN .E. $(FILE)$, FUNCTION RETURN *092 LM00098
WHENEVER SYSFLG *093 LM00099
WHENEVER PROBN.E.$ M1416$.OR.PROBN.A.77K8.E.$0C0000$,FUNCTION RETURN *094 LM00100
END OF CONDITIONAL *095 LM00101
LM00102
N2=BUFF(M1) *096 LM00103
N1=BUFF *097 LM00104
LM00105
F=(BUFF(M4).RS.15).A.7K *098 LM00106
LM00107
SIZE=(BUFF(M5).RS.18).A.M1 *099 LM00108
WHENEVER F .NE. 2, SIZE=0 *100 LM00109
LM00110
WHENEVER PROBN .NE. OLPROB .OR. PROGN .NE. OLPROG *101 LM00111
...NEW UFD LM00112
INTERNAL FUNCTION *102 LM00113
ENTRY TO NEWUFD. *103 LM00114
NUFD = NUFD + 1 *104 LM00115
UFDF2 = UFDF2+TSUFDF*TSUFDF *105 LM00116
UFDL2 = UFDL2+TSUFDL*TSUFDL *106 LM00117
UFDR2 = UFDR2+TSUFDR*TSUFDR *107 LM00118
TSUFDF = 0 *108 LM00119
TSUFDL = 0 *109 LM00120
TSUFDR = 0 *110 LM00121
OLPROB = PROBN *111 LM00122
OLPROG = PROGN *112 LM00123
FUNCTION RETURN *113 LM00124
END OF FUNCTION *114 LM00125
NEWUFD. *115 LM00126
END OF CONDITIONAL *116 LM00127
LM00128
LM00129
WHENEVER F .E.0 *117 LM00130
...FILE IS A LINK LM00131
LINKS = LINKS + 1 *118 LM00132
TSUFDL = TSUFDL + 1 *119 LM00133
TRANSFER TO CNAME *120 LM00134
OR WHENEVER F .E. 2 *121 LM00135
...FILE IS ON DISK. LM00136
WHENEVER SIZE .A. 1K .E. 1K *122 LM00137
RSIZE = SIZE + 1 *123 LM00138
OTHERWISE *124 LM00139
RSIZE = SIZE *125 LM00140
END OF CONDITIONAL *126 LM00141
...THIS FOR THE TWO-FOR-ONE TUT LM00142
TRSIZE = TRSIZE + RSIZE *127 LM00143
END OF CONDITIONAL *128 LM00144
LM00145
...REAL FILE. LM00146
LM00147
...TOTALS LM00148
TSUFDR = TSUFDR + SIZE *129 LM00149
TSUFDF = TSUFDF + 1 *130 LM00150
TR = TR + SIZE *131 LM00151
TF = TF + 1 *132 LM00152
TREC2 = TREC2 + SIZE * SIZE *133 LM00153
LM00154
...MODE LM00155
MODE = BUFF(M4) .RS. 28 *134 LM00156
THROUGH MODLP, FOR I = 1,1,I.G.8 *135 LM00157
WHENEVER MODE.A.MODBIT(I) .NE. 0 *136 LM00158
MODFIL(I) = MODFIL(I) + 1 *137 LM00159
MODREC(I) = MODREC(I) + SIZE *138 LM00160
END OF CONDITIONAL *139 LM00161
MODLP CONTINUE *140 LM00162
LM00163
...CLASS NAME LM00164
LM00165
CNAME THROUGH LOOP, FOR I=1,1,I.G.MAX *141 LM00166
WHENEVER (N1.XOR.NAME1(I)).A.MASK1(I) .E. 0 *142 LM00167
1 .AND.(N2.XOR.NAME2(I)).A.MASK2(I) .E. 0 *142 LM00168
TYPE WHENEVER F .NE. 0 *143 LM00169
COUNT(I)=COUNT(I)+1 *144 LM00170
NRECS(I)=NRECS(I)+SIZE *145 LM00171
CCOUNT(CLASS(I))=CCOUNT(CLASS(I))+1 *146 LM00172
CNRECS(CLASS(I))=CNRECS(CLASS(I))+SIZE *147 LM00173
TRANSFER TO DOAGE *148 LM00174
OTHERWISE *149 LM00175
COUNTL(I) = COUNTL(I) + 1 *150 LM00176
CCOUNL(CLASS(I)) = CCOUNL(CLASS(I)) + 1 *151 LM00177
FUNCTION RETURN *152 LM00178
...LINKS EXIT HERE LM00179
END OF CONDITIONAL *153 LM00180
END OF CONDITIONAL *154 LM00181
LOOP CONTINUE *155 LM00182
LM00183
I=0 *156 LM00184
TRANSFER TO TYPE *157 LM00185
LM00186
...DATE LAST USED. LM00187
DOAGE TEMP = BUFF(M3) .RS. 18 *158 LM00188
YEAR = TEMP.RS.9 *159 LM00189
MONTH= (TEMP.RS.5).A.17K *160 LM00190
DAY = TEMP.A.37K *161 LM00191
AGE = NOW - ABSDAT.(MONTH,DAY,YEAR) *162 LM00192
LM00193
WHENEVER AGE.G.90, AGE = 90 *163 LM00194
WHENEVER AGE.L.0, AGE = 0 *164 LM00195
FTBL(AGE) = FTBL(AGE)+1 *165 LM00196
RTBL(AGE) = RTBL(AGE)+SIZE *166 LM00197
LM00198
...CREATION DATE. LM00199
TEMP = BUFF(M2) .RS. 18 *167 LM00200
YEAR = TEMP .RS. 9 *168 LM00201
MONTH = (TEMP.RS.5) .A. 17K *169 LM00202
DAY = TEMP .A.37K *170 LM00203
AGE = NOW - ABSDAT.(MONTH,DAY,YEAR) *171 LM00204
AGESUM = AGESUM + AGE *172 LM00205
AGES2 = AGES2 + AGE*AGE *173 LM00206
WHENEVER AGE .G. 90, AGE = 90 *174 LM00207
WHENEVER AGE .L. 0, AGE = 0 *175 LM00208
CFTBL(AGE) = CFTBL(AGE) + 1 *176 LM00209
CRTBL(AGE) = CRTBL(AGE) + SIZE *177 LM00210
LM00211
FUNCTION RETURN *178 LM00212
LM00213
LM00214
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * LM00215
LM00216
...FPRINT IS CALLED AT THE END. LM00217
LM00218
ENTRY TO FPRINT. *179 LM00219
LM00220
NEWUFD. *180 LM00221
LM00222
ATTACH.(ME(1),ME) *181 LM00223
LM00224
...OPEN OUTPUT FILE AND PUT HEADING. LM00225
LM00226
DELETE.(OUT,OUT(1),1,SNAP.) *182 LM00227
ASSIGN.(OUT,B1,B2,B3) *183 LM00228
DWRITE.(OUT,HEAD) *184 LM00229
WHENEVER SYSFLG, DWRITE.(OUT,SYSHED) *185 LM00230
DWRITE.(OUT,F0,TIME,DAYNAM(NOW.MOD.7),MONNAM(MO), *186 LM00231
1 DA, YR, WHO(1)) *186 LM00232
LM00233
XTF = TF *187 LM00234
XNUFD = NUFD *188 LM00235
X1 = TR/XTF *189 LM00236
X2 = SQRT.(TREC2/XTF - X1*X1) *190 LM00237
X3 = XTF/XNUFD *191 LM00238
X4 = SQRT.(UFDF2/XNUFD - X3*X3) *192 LM00239
X5 = TR/XNUFD *193 LM00240
X6 = SQRT.(UFDR2/XNUFD - X5*X5) *194 LM00241
X7 = LINKS/XNUFD *195 LM00242
X8 = SQRT.(UFDL2/XNUFD - X7*X7) *196 LM00243
X9 = AGESUM/XTF *197 LM00244
X10 = SQRT.(AGES2/XTF - X9*X9) *198 LM00245
LM00246
DWRITE.(OUT,F1, TF, TR, X3, X4, NUFD, X5, X6, LINKS, *199 LM00247
1 X7, X8, X1, X2, X9, X10 ) *199 LM00248
DWRITE.(OUT,F3,CAPACY,TRSIZE,CAPACY-TRSIZE, *200 LM00249
1 (TRSIZE-TR)*100./CAPACY) *200 LM00250
DWRITE.(OUT,F4) *201 LM00251
THROUGH PML, FOR I=1,1,I.G.8 *202 LM00252
DWRITE.(OUT,F4A,OCRBC.(MODBIT(I)),MODFIL(I),MODREC(I)) *203 LM00253
PML CONTINUE *204 LM00254
LM00255
DWRITE.(OUT,HEAD) *205 LM00256
WHENEVER SYSFLG, DWRITE.(OUT,SYSHED) *206 LM00257
LM00258
DWRITE.(OUT,F5) *207 LM00259
LM00260
HGMLP DWRITE.(OUT,F5A) *208 LM00261
THROUGH BETA, FOR K = 0,1, K.G.90 *209 LM00262
FOLDER = 0 *210 LM00263
ROLDER = 0 *211 LM00264
DAY = NOW - K *212 LM00265
LM00266
THROUGH ALPHA, FOR J = K, 1, J.G. 90 *213 LM00267
FOLDER = FOLDER + FTBL(J) *214 LM00268
ROLDER = ROLDER + RTBL(J) *215 LM00269
VAR = ROLDER/SCALE *216 LM00270
ALPHA CONTINUE *217 LM00271
LM00272
WHENEVER DAY .E. MB1 *218 LM00273
MRK = MO1 *219 LM00274
OR WHENEVER DAY .E. MB2 *220 LM00275
MRK = MO2 *221 LM00276
OR WHENEVER DAY.MOD. 7 .E. 0 *222 LM00277
MRK = $SUN$ *223 LM00278
OTHERWISE *224 LM00279
MRK = $$ *225 LM00280
END OF CONDITIONAL *226 LM00281
LM00282
DWRITE.(OUT,F7,MRK,K,FTBL(K),FOLDER,RTBL(K),ROLDER, *227 LM00283
1 XS(1)...XS(VAR)) *227 LM00284
LM00285
BETA CONTINUE *228 LM00286
LM00287
DWRITE.(OUT,F10,XS,SCALE) *229 LM00288
WHENEVER REF *230 LM00289
REF = 0B *231 LM00290
DWRITE.(OUT,HEAD) *232 LM00291
WHENEVER SYSFLG, DWRITE.(OUT,SYSHED) *233 LM00292
DWRITE.(OUT,F6) *234 LM00293
MOVE.(91,CFTBL,FTBL) *235 LM00294
MOVE.(91,CRTBL,RTBL) *236 LM00295
TRANSFER TO HGMLP *237 LM00296
END OF CONDITIONAL *238 LM00297
LM00298
DWRITE.(OUT,HEAD) *239 LM00299
WHENEVER SYSFLG, DWRITE.(OUT,SYSHED) *240 LM00300
LM00301
DWRITE.(OUT,F9) *241 LM00302
LM00303
THROUGH PRN, FOR I=0,1,I.G.MAX *242 LM00304
PRN DWRITE.(OUT,FM1,NAME1(I),NAME2(I),CLASS(I),COUNT(I),NRECS(I), *243 LM00305
1 COUNTL(I)) *243 LM00306
LM00307
DWRITE.(OUT,FM2) *244 LM00308
THROUGH PRC, FOR I=0,1,I.G.MXCLS *245 LM00309
PRC DWRITE.(OUT,FM1,$$,CLNAME(I),I,CCOUNT(I),CNRECS(I),CCOUNL(I)) *246 LM00310
LM00311
FILE.(OUT) *247 LM00312
LM00313
FUNCTION RETURN *248 LM00314
LM00315
ERR NCOM.($PRNTER$,777777777777K) *249 LM00316
LM00317
LM00318
NORMAL MODE IS INTEGER *250 LM00319
FLOATING POINT X1, X2, X3, X4, X5, X6, X7, X8, X9, X10 *251 LM00320
FLOATING POINT AGES2, TREC2, UFDF2, UFDR2, UFDL2 *252 LM00321
FLOATING POINT SQRT. *253 LM00322
FLOATING POINT XTF, XNUFD, AGESUM *254 LM00323
VECTOR VALUES REF = 1B *255 LM00324
LM00325
...CAPACITY OF DISK LM00326
VECTOR VALUES CAPACY = 160 000 *256 LM00327
VECTOR VALUES SCALE = 1600 *257 LM00328
SCALE DETERMINES THE NUMBER OF FILES PER 'X' ON THE GRAPH LM00329
LM00330
VECTOR VALUES DAYS = 31,31,28,31,30,31,30,31,31,30,31,30,31 *258 LM00331
VECTOR VALUES MONNAM = $DEC$,$JAN$,$FEB$,$MAR$,$APR$,$MAY$,$JUN$, *259 LM00332
1 $JUL$,$AUG$,$SEP$,$OCT$,$NOV$,$DEC$ *259 LM00333
VECTOR VALUES DAYNAM = $SUN$,$MON$,$TUE$,$WED$,$THU$,$FRI$,$SAT$ *260 LM00334
LM00335
VECTOR VALUES WHO...WHO(3) = 0 *261 LM00336
VECTOR VALUES ME...ME(1) = 0 *262 LM00337
LM00338
...MODE STATS LM00339
VECTOR VALUES MODBIT = 0,1K,2K,4K,10K,20K,40K,100K,200K *263 LM00340
VECTOR VALUES MODFIL...MODFIL(8) = 0 *264 LM00341
VECTOR VALUES MODREC...MODREC(8) = 0 *265 LM00342
LM00343
...CLASS NAME STATS LM00344
VECTOR VALUES COUNT...COUNT(150)=0 *266 LM00345
VECTOR VALUES NRECS...NRECS(150)=0 *267 LM00346
VECTOR VALUES CLASS...CLASS(150)=0 *268 LM00347
VECTOR VALUES COUNTL...COUNTL(150)=0 *269 LM00348
VECTOR VALUES NAME1...NAME1(150)=$OTHER$ *270 LM00349
VECTOR VALUES NAME2 ...NAME2 (150)=$FILES$ *271 LM00350
VECTOR VALUES MASK1 ...MASK1 (150)=777777777777K *272 LM00351
VECTOR VALUES MASK2 ...MASK2 (150) = 777777777777K *273 LM00352
VECTOR VALUES CCOUNL...CCOUNL(20)=0 *274 LM00353
VECTOR VALUES CCOUNT...CCOUNT(20)=0 *275 LM00354
VECTOR VALUES CNRECS...CNRECS(20)=0 *276 LM00355
VECTOR VALUES CLNAME...CLNAME(20)=$OTHER$ *277 LM00356
VECTOR VALUES MAX=1 *278 LM00357
VECTOR VALUES MXCLS=0 *279 LM00358
LM00359
...STORAGE FOR AGES LM00360
VECTOR VALUES FTBL...FTBL(91) = 0 *280 LM00361
VECTOR VALUES RTBL...RTBL(91) = 0 *281 LM00362
VECTOR VALUES CFTBL...CFTBL(91) = 0 *282 LM00363
VECTOR VALUES CRTBL...CRTBL(91) = 0 *283 LM00364
VECTOR VALUES XS...XS(100) = $X$ *284 LM00365
LM00366
DIMENSION B1(432),B2(432),B3(432) *285 LM00367
DIMENSION CARD(13) *286 LM00368
LM00369
VECTOR VALUES OUT=$ STAT FILE$ *287 LM00370
VECTOR VALUES SEARCH=$SEARCH$ *288 LM00371
VECTOR VALUES FL=$ FILE$ *289 LM00372
LM00373
VECTOR VALUES M1=77777K *290 LM00374
VECTOR VALUES M2=77776K *291 LM00375
VECTOR VALUES M3=77775K *292 LM00376
VECTOR VALUES M4=77774K *293 LM00377
VECTOR VALUES M5=77773K *294 LM00378
LM00379
...FORMAT STATEMENTS.................................. LM00380
LM00381
VECTOR VALUES HEAD=$H'1 M A S S A C H U S E T T S I N S T I', *295 LM00382
1 H' T U T E O F T E C H N O L O G Y',/,/, *295 LM00383
2 11X,H' I N F O R M A T I O N P R O C E S S I N G ', *295 LM00384
3 H' C E N T E R'*$ *295 LM00385
LM00386
VECTOR VALUES SYSHED=$1H0,30X,H'(EXCLUDING SYSTEM FILES)'*$ *296 LM00387
LM00388
VECTOR VALUES F0 = $1H0,S8,H'SECONDARY STORAGE USAGE SUMMARY PREPARED' *297 LM00389
1 , S2,C6,S2,C3,2H, C3,I3,4H, 19,I2,H' SYSTEM ',C6*$ *297 LM00390
LM00391
VECTOR VALUES F1= $1H0,S18,H'FILES RECORDS',S27,H'MEAN STD DEV.',/, *298 LM00392
1 1H0,S8,H'DISK ',I10,I10,S7,H'FILES/UFD ',2F10.3,/, *298 LM00393
2 1H0,S8,H'UFD ',I10,S10,S7,H'RECS/UFD ',2F10.3,/, *298 LM00394
3 1H0,S8,H'LINKS',I10,S10,S7,H'LINKS/UFD ',2F10.3,/, *298 LM00395
4 1H0,S40, H'FILE LENGTH ',2F10.3,/, *298 LM00396
5 1H0,S40, H'FILE AGE (DAYS)',2F10.3*$ *298 LM00397
LM00398
VECTOR VALUES F3 = $1H-,S8,H'CAPACITY',I9,H', USED',I9, *299 LM00399
1 H', LEFT',I9,H', WASTE',F7.3,H' PER CENT.'*$ *299 LM00400
LM00401
VECTOR VALUES F4 = $1H-,S8,H'SUMMARY BY MODE BIT',//,S9, *300 LM00402
1 H'MODE FILES RECS ',/*$ *300 LM00403
LM00404
VECTOR VALUES F4A = $S10,CR3,2I9*$ *301 LM00405
LM00406
VECTOR VALUES F5 = $1H0,S8,H'SUMMARY BY DATE OF LAST REFERENCE TO FILE' *302 LM00407
1 *$ *302 LM00408
LM00409
VECTOR VALUES F5A = *303 LM00410
1 $H'0 AGE FILES OLDER RECS OLDER LINEAR PLOT' *303 LM00411
2 ,//*$ *303 LM00412
LM00413
VECTOR VALUES F6 = $1H0,S8,H'SUMMARY BY DATE OF CREATION OF FILE'*$ *304 LM00414
LM00415
VECTOR VALUES F7 = $1H ,C5,I3,S1,4I7,S2,100C1*$ *305 LM00416
LM00417
VECTOR VALUES F9 = $H'0 DISK USAGE BY CLASS NAME',//, *306 LM00418
1 H'0 NAME1 NAME2 TYPE FILES RECORDS LINKS',/*$ *306 LM00419
LM00420
VECTOR VALUES F10 = $/,/,/,/15H SCALE - ONE ',C1,4H' = ,I4, *307 LM00421
1 H' RECORDS.'*$ *307 LM00422
LM00423
VECTOR VALUES FM1=$S6,C6,S1,C6,S3,I2,3I8*$ *308 LM00424
LM00425
VECTOR VALUES FM2=$H'- USAGE BY TYPE FILES RECORDS LINKS' *309 LM00426
1 ,/*$ *309 LM00427
LM00428
END OF FUNCTION *310 LM00429
MODE STRUCTURE 1 .MOD. 1 TO 1 004 LM00002
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11111 )
MODE STRUCTURE 1 .XOR. 1 TO 1 028 LM00002
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11211 )
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 10607 TRANSFER VECTOR LENGTH 00031 PROGRAM BEGINS 06653
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FPRINT 07667 0 COUNTR 07120 0 FINIT 06654 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AGE 00043 1 EOF 00035 4 M1 04553 A 1 NAME2 06001 A 1 TR 06414 1
AGES2 00044 0 ERR 00036 4 M2 04554 A 1 NOW 06002 1 TRSIZE 06415 1
AGESUM 00045 0 F0 04100 A 1 M3 04555 A 1 NRECS 06231 A 1 TSUFDF 06416 1
ALPHA 00032 4 F10 04113 A 1 M4 04556 A 1 NUFD 06232 1 TSUFDL 06417 1
B1 00726 A 1 F1 04206 A 1 M5 04557 A 1 OLPROB 06233 1 TSUFDR 06420 1
B2 01607 A 1 F3 04226 A 1 MASK1 05006 A 1 OLPROG 06234 1 TYPE 00042 4
B3 02470 A 1 F4A 04230 A 1 MASK2 05235 A 1 OUT 06236 A 1 UFDF2 06421 0
BETA 00032 4 F4 04246 A 1 MAX 05236 A 1 PML 00032 4 UFDL2 06422 0
CAPACY 02471 A 1 F5A 04261 A 1 MB1 05237 1 PRC 00032 4 UFDR2 06423 0
CARD 02507 A 1 F5 04272 A 1 MB2 05240 1 PRN 00032 4 VAR 06424 1
CCOUNL 02534 A 1 F6 04302 A 1 ME 05242 A 1 READ 00040 4 WHO 06430 A 1
CCOUNT 02561 A 1 F7 04307 A 1 MO1 05243 1 REF 06237 A 2 X10 06431 0
CFTBL 02715 A 1 F9 04331 A 1 MO2 05244 1 ROLDER 06240 1 X1 06432 0
CLASS 03144 A 1 FL 04332 A 1 MODBIT 05255 A 1 RSIZE 06241 1 X2 06433 0
CLNAME 03171 A 1 FM1 04336 A 1 MODE 05256 1 RTBL 06375 A 1 X3 06434 0
CNAME 00033 4 FM2 04350 A 1 MODFIL 05267 A 1 SCALE 06376 A 1 X4 06435 0
CNRECS 03216 A 1 FOLDER 04351 1 MODLP 00032 4 SCLS 00032 4 X5 06436 0
COUNTL 03445 A 1 F 04352 1 MODREC 05300 A 1 SEARCH 06377 A 1 X6 06437 0
COUNT 03674 A 1 FTBL 04506 A 1 MONNAM 05315 A 1 SET 00041 4 X7 06440 0
CRTBL 04030 A 1 HEAD 04546 A 1 MONTH 05316 1 SIZE 06400 1 X8 06441 0
DA 04031 1 HGMLP 00037 4 MO 05317 1 SYSFLG 06401 A 2 X9 06442 0
DATE 04032 1 I 04547 1 MRK 05320 1 SYSHED 06407 A 1 XNUFD 06443 0
DAYNAM 04041 A 1 J 04550 1 MXCLS 05321 A 1 TEMP 06410 1 XS 06610 A 1
DAY 04042 1 K 04551 1 N1 05322 1 TF 06411 1 XTF 06611 0
DAYS 04057 A 1 LINKS 04552 1 N2 05323 1 TIME 06412 1 YEAR 06612 1
DOAGE 00034 4 LOOP 00032 4 NAME1 05552 A 1 TREC2 06413 0 YR 06613 1
0FUNCTION DICTIONARY
ABSDAT 00000 1 ASSIGN 00001 1 ATTACH 00002 1 ATTNAM 00003 1 BCDEC 00004 1
BFCLOS 00005 1 BFOPEN 00006 1 BFREAD 00007 1 COMARG 00010 1 DELETE 00011 1
DWRITE 00012 1 EXIT 00013 1 FERRTN 00014 1 FILE 00015 1 GETIM 00016 1
GETTM 00017 1 IOHSIZ 00020 1 MOVE 00021 1 NAMASK 00022 1 NCOM 00023 1
OCRBC 00024 1 RJUST 00025 1 SNAP 00026 1 SQRT 00027 0 WHOAMI 00030 1
NEWUFD 00031 1
0ABSOLUTE CONSTANTS
06652 -377777777777 06643 -075145632551 06635 +000000000133 06650 -226445606060 06641 +207620000000
06634 +000000000132 06633 +000000000037 06620 +000000000005 06623 +000000000011 06622 +000000000010
06632 +000000000034 06630 +000000000022 06621 +000000000007 06627 +000000000017 06645 -204401040106
06637 +002300000000 06640 +007700000000 06651 -342631432534 06624 +000000000012 06625 +000000000014
06631 +000000000030 06636 +000000007777 06646 -206060606060 06626 +000000000016 06644 -116060606060
06614 +000000000000 06616 +000000000002 06617 +000000000004 06647 -207462706234 06615 +000000000001
06642 +233000000000
0STATEMENT DICTIONARY
00033 TXL -307412007400 00034 TXL -307523007515 00035 TXL -307027007024 00036 TXL -310551010546
00037 TXL -310221010216 00040 TXL -306725006714 00041 TXL -307020007015 00042 TXL -307434007431
0PROGRAM
EXTERNAL FUNCTION(PROBN,PROGN,BUFF) 001 LM00010
I'E .MOD. 002 LM00013
DEFINE BINARY OPERATOR .MOD., PRECEDENCE SAME AS / 003 LM00001
MODE STRUCTURE 1 .MOD. 1 TO 1 004 LM00002
I'E .XOR. 026 LM00014
DEFINE BINARY OPERATOR .XOR., PRECEDENCE SAME AS .A. 027 LM00001
MODE STRUCTURE 1 .XOR. 1 TO 1 028 LM00002
E'O FINIT. 051 LM00023
06653 TRA +0 02000 0 06656 06654 SXA +0 63400 2 10552 06655 TSX +0 07400 2 10552
W'R COMARG.(1).E.$ (SYS)$, SYSFLG = 1B 052 LM00026
06656 TSX +0 07400 4 00010 06657 TXH +3 00000 0 06615 06660 SUB +0 40200 0 06647 06661 TNZ -0 10000 0 06664
06662 CLA +0 50000 0 06615 06663 STO +0 60100 0 06401
BOOLEAN SYSFLG 053 LM00027
V'S SYSFLG = 0B 054 LM00028
06401 +0 00000 0 00000
GETTM.(DATE,TIME) 055 LM00030
06664 TSX +0 07400 4 00017 06665 TXH +3 00000 0 04032 06666 TXH +3 00000 0 06412
GETIM.(TEMP,DATE) 056 LM00031
06667 TSX +0 07400 4 00016 06670 TXH +3 00000 0 06410 06671 TXH +3 00000 0 04032
WHOAMI.(WHO(3)...4) 057 LM00032
06672 TSX +0 07400 4 00030 06673 TIX +2 06617 0 06425
ATTNAM.(ME(1)...2) 058 LM00033
06674 TSX +0 07400 4 00003 06675 TIX +2 06616 0 05241
FERRTN.(ERR) 059 LM00034
06676 TSX +0 07400 4 00014 06677 TXH +3 00000 0 00036
IOHSIZ.(1) 060 LM00035
06700 TSX +0 07400 4 00020 06701 TXH +3 00000 0 06615
BFOPEN.($R$,SEARCH,FL,B1(432),B2(432),-0,ERR) 061 LM00037
06702 CLS +0 50200 0 06614 06703 STO +0 60100 0 10603 06704 TSX +0 07400 4 00006 06705 TXH +3 00000 0 06644
06706 TXH +3 00000 0 06377 06707 TXH +3 00000 0 04332 06710 TXH +3 00000 0 00046 06711 TXH +3 00000 0 00727
06712 TXH +3 00000 0 10603 06713 TXH +3 00000 0 00036
READ BFREAD.(SEARCH,FL,CARD(13)...14,EOF,-0,ERR) 062 LM00039
06714 CLS +0 50200 0 06614 06715 STO +0 60100 0 10603 06716 TSX +0 07400 4 00007 06717 TXH +3 00000 0 06377
06720 TXH +3 00000 0 04332 06721 TIX +2 06626 0 02472 06722 TXH +3 00000 0 00035 06723 TXH +3 00000 0 10603
06724 TXH +3 00000 0 00036
NAME1(MAX)=RJUST.(CARD(13)) 063 LM00040
06725 TSX +0 07400 4 00025 06726 TXH +3 00000 0 02472 06727 LXA +0 53400 1 05236 06730 STO +0 60100 1 05552
NAME2(MAX)=RJUST.(CARD(12)) 064 LM00041
06731 TSX +0 07400 4 00025 06732 TXH +3 00000 0 02473 06733 LXA +0 53400 1 05236 06734 STO +0 60100 1 06001
MASK1(MAX) = NAMASK.(NAME1(MAX)) 065 LM00042
06735 CLA +0 50000 0 05236 06736 SUB +0 40200 0 06737 06737 TXH +3 00000 0 05552 06740 STA +0 62100 0 06742
06741 TSX +0 07400 4 00022 06742 TXH +3 00000 0 00000 06743 LXA +0 53400 1 05236 06744 STO +0 60100 1 05006
MASK2(MAX) = NAMASK.(NAME2(MAX)) 066 LM00043
06745 CLA +0 50000 0 05236 06746 SUB +0 40200 0 06747 06747 TXH +3 00000 0 06001 06750 STA +0 62100 0 06752
06751 TSX +0 07400 4 00022 06752 TXH +3 00000 0 00000 06753 LXA +0 53400 1 05236 06754 STO +0 60100 1 05235
TEMP=RJUST.(CARD(11)) 067 LM00044
06755 TSX +0 07400 4 00025 06756 TXH +3 00000 0 02474 06757 STO +0 60100 0 06410
W'R TEMP .E. $$ 068 LM00045
06760 CLA +0 50000 0 06410 06761 SUB +0 40200 0 06646 06762 TNZ -0 10000 0 06767
CLASS(MAX)=0 069 LM00046
06763 LXA +0 53400 1 05236 06764 CLA +0 50000 0 06614 06765 STO +0 60100 1 03144
O'E 070 LM00048
06766 TRA +0 02000 0 07020
T'H SCLS, FOR I=0,1,I.G.MXCLS 071 LM00049
06767 CLA +0 50000 0 06614 06770 STO +0 60100 0 04547 06771 TRA +0 02000 0 06775 06772 CLA +0 50000 0 04547
06773 ADD +0 40000 0 06615 06774 STO +0 60100 0 04547 06775 CLA +0 50000 0 04547 06776 SUB +0 40200 0 05321
06777 TZE +0 10000 0 07001 07000 TPL +0 12000 0 07007
W'R TEMP .E. CLNAME(I), T'O SET 072 LM00050
07001 LXA +0 53400 2 04547 07002 CLA +0 50000 0 06410 07003 SUB +0 40200 2 03171 07004 TNZ -0 10000 0 07006
07005 TRA +0 02000 0 00041
SCLS C'E 073 LM00051
07006 TRA +0 02000 0 06772
MXCLS=MXCLS+1 074 LM00053
07007 CLA +0 50000 0 05321 07010 ADD +0 40000 0 06615 07011 STO +0 60100 0 05321
CLNAME(MXCLS)=TEMP 075 LM00054
07012 LXA +0 53400 1 05321 07013 CLA +0 50000 0 06410 07014 STO +0 60100 1 03171
SET CLASS(MAX)=I 076 LM00055
07015 LXA +0 53400 1 05236 07016 CLA +0 50000 0 04547 07017 STO +0 60100 1 03144
E'L 077 LM00056
MAX=MAX+1 078 LM00057
07020 CLA +0 50000 0 05236 07021 ADD +0 40000 0 06615 07022 STO +0 60100 0 05236
T'O READ 079 LM00058
07023 TRA +0 02000 0 00040
EOF BFCLOS.(SEARCH,FL) 080 LM00060
07024 TSX +0 07400 4 00005 07025 TXH +3 00000 0 06377 07026 TXH +3 00000 0 04332
MAX=MAX-1 081 LM00061
07027 CLA +0 50000 0 05236 07030 SUB +0 40200 0 06615 07031 STO +0 60100 0 05236
YR = BCDEC.(DATE.A.7777K) 082 LM00063
07032 CAL -0 50000 0 04032 07033 ANA -0 32000 0 06636 07034 SLW +0 60200 0 10603 07035 TSX +0 07400 4 00004
07036 TXH +3 00000 0 10603 07037 STO +0 60100 0 06613
MO = BCDEC.((DATE.RS.24).A.7777K) 083 LM00064
07040 CAL -0 50000 0 06631 07041 STA +0 62100 0 07043 07042 CAL -0 50000 0 04032 07043 LGR -0 76500 0 00000
07044 ANA -0 32000 0 06636 07045 SLW +0 60200 0 10603 07046 TSX +0 07400 4 00004 07047 TXH +3 00000 0 10603
07050 STO +0 60100 0 05317
DA = BCDEC.((DATE.RS.12).A.7777K) 084 LM00065
07051 CAL -0 50000 0 06625 07052 STA +0 62100 0 07054 07053 CAL -0 50000 0 04032 07054 LGR -0 76500 0 00000
07055 ANA -0 32000 0 06636 07056 SLW +0 60200 0 10603 07057 TSX +0 07400 4 00004 07060 TXH +3 00000 0 10603
07061 STO +0 60100 0 04031
NOW = ABSDAT.(MO, DA, YR) 085 LM00066
07062 TSX +0 07400 4 00000 07063 TXH +3 00000 0 05317 07064 TXH +3 00000 0 04031 07065 TXH +3 00000 0 06613
07066 STO +0 60100 0 06002
MB1 = NOW - DA 086 LM00069
07067 CLA +0 50000 0 06002 07070 SUB +0 40200 0 04031 07071 STO +0 60100 0 05237
MB2 = MB1 - DAYS(MO-1) 087 LM00070
07072 CLA +0 50000 0 05317 07073 SUB +0 40200 0 06615 07074 PAX +0 73400 2 00000 07075 CLA +0 50000 0 05237
07076 SUB +0 40200 2 04057 07077 STO +0 60100 0 05240
MO1 = MONNAM(MO-1) 088 LM00071
07100 CLA +0 50000 0 05317 07101 SUB +0 40200 0 06615 07102 PAX +0 73400 2 00000 07103 CLA +0 50000 2 05315
07104 STO +0 60100 0 05243
MO2 = MONNAM((MO+10).MOD.12) 089 LM00072
07105 CLA +0 50000 0 05317 07106 ADD +0 40000 0 06624 07107 XCA +0 13100 0 00000 07110 PXD -0 75400 0 00000
07111 LLS +0 76300 0 00000 07112 DVP +0 22100 0 06625 07113 PAX +0 73400 2 00000 07114 CLA +0 50000 2 05315
07115 STO +0 60100 0 05244
F'N 090 LM00075
07116 TRA +0 02000 0 10577
E'O COUNTR. 091 LM00095
07117 TRA +0 02000 0 07122 07120 SXA +0 63400 2 10552 07121 TSX +0 07400 2 10552
W'R PROGN .E. $(FILE)$, F'N 092 LM00098
07122 CLA +0 50000 0 00024 07123 SUB +0 40200 0 06651 07124 TNZ -0 10000 0 07126 07125 TRA +0 02000 0 10577
W'R SYSFLG 093 LM00099
07126 NZT -0 52000 0 06401 07127 TRA +0 02000 0 07142
W'R PROBN.E.$ M1416$.OR.PROBN.A.77K8.E.$0C0000$,F'N 094 LM00100
07130 CAL -0 50000 0 00024 07131 ANA -0 32000 0 06640 07132 SLW +0 60200 0 10603 07133 CLA +0 50000 0 10603
07134 SUB +0 40200 0 06637 07135 TZE +0 10000 0 07141 07136 CLA +0 50000 0 00024 07137 SUB +0 40200 0 06645
07140 TNZ -0 10000 0 07142 07141 TRA +0 02000 0 10577
E'L 095 LM00101
N2=BUFF(M1) 096 LM00103
07142 LXA +0 53400 2 04553 07143 CLA +0 50000 2 00024 07144 STO +0 60100 0 05323
N1=BUFF 097 LM00104
07145 CLA +0 50000 0 00024 07146 STO +0 60100 0 05322
F=(BUFF(M4).RS.15).A.7K 098 LM00106
07147 LXA +0 53400 1 04556 07150 CAL -0 50000 0 06627 07151 STA +0 62100 0 07153 07152 CAL -0 50000 1 00024
07153 LGR -0 76500 0 00000 07154 ANA -0 32000 0 06621 07155 SLW +0 60200 0 04352
SIZE=(BUFF(M5).RS.18).A.M1 099 LM00108
07156 LXA +0 53400 1 04557 07157 CAL -0 50000 0 06630 07160 STA +0 62100 0 07162 07161 CAL -0 50000 1 00024
07162 LGR -0 76500 0 00000 07163 ANA -0 32000 0 04553 07164 SLW +0 60200 0 06400
W'R F .NE. 2, SIZE=0 100 LM00109
07165 CLA +0 50000 0 04352 07166 SUB +0 40200 0 06616 07167 TZE +0 10000 0 07172 07170 CLA +0 50000 0 06614
07171 STO +0 60100 0 06400
W'R PROBN .NE. OLPROB .OR. PROGN .NE. OLPROG 101 LM00111
07172 CLA +0 50000 0 00024 07173 SUB +0 40200 0 06234 07174 TNZ -0 10000 0 07200 07175 CLA +0 50000 0 00024
07176 SUB +0 40200 0 06233 07177 TZE +0 10000 0 07261
INTERNAL FUNCTION 102 LM00113
07200 TRA +0 02000 0 07260
E'O NEWUFD. 103 LM00114
07201 TRA +0 02000 0 07204 00031 TTR +0 02100 0 07202 07202 SXA +0 63400 2 07250 07203 TSX +0 07400 2 07250
NUFD = NUFD + 1 104 LM00115
07204 CLA +0 50000 0 06232 07205 ADD +0 40000 0 06615 07206 STO +0 60100 0 06232
UFDF2 = UFDF2+TSUFDF*TSUFDF 105 LM00116
07207 LDQ +0 56000 0 06416 07210 MPY +0 20000 0 06416 07211 XCA +0 13100 0 00000 07212 ORA -0 50100 0 06642
07213 FAD +0 30000 0 06642 07214 FAD +0 30000 0 06421 07215 STO +0 60100 0 06421
UFDL2 = UFDL2+TSUFDL*TSUFDL 106 LM00117
07216 LDQ +0 56000 0 06417 07217 MPY +0 20000 0 06417 07220 XCA +0 13100 0 00000 07221 ORA -0 50100 0 06642
07222 FAD +0 30000 0 06642 07223 FAD +0 30000 0 06422 07224 STO +0 60100 0 06422
UFDR2 = UFDR2+TSUFDR*TSUFDR 107 LM00118
07225 LDQ +0 56000 0 06420 07226 MPY +0 20000 0 06420 07227 XCA +0 13100 0 00000 07230 ORA -0 50100 0 06642
07231 FAD +0 30000 0 06642 07232 FAD +0 30000 0 06423 07233 STO +0 60100 0 06423
TSUFDF = 0 108 LM00119
07234 CLA +0 50000 0 06614 07235 STO +0 60100 0 06416
TSUFDL = 0 109 LM00120
07236 CLA +0 50000 0 06614 07237 STO +0 60100 0 06417
TSUFDR = 0 110 LM00121
07240 CLA +0 50000 0 06614 07241 STO +0 60100 0 06420
OLPROB = PROBN 111 LM00122
07242 CLA +0 50000 0 00024 07243 STO +0 60100 0 06233
OLPROG = PROGN 112 LM00123
07244 CLA +0 50000 0 00024 07245 STO +0 60100 0 06234
F'N 113 LM00124
07246 TRA +0 02000 0 07254
E'N 114 LM00125
07247 TSX +0 07400 4 00013 07250 TXH +3 00000 0 00000 07251 SXD -0 63400 1 07250 07252 SXA +0 63400 4 07254
07253 TRA +0 02000 2 00001 07254 AXT +0 77400 4 00000 07255 LXA +0 53400 2 07250 07256 LXD -0 53400 1 07250
07257 TRA +0 02000 4 00001
NEWUFD. 115 LM00126
07260 TSX +0 07400 4 00031
E'L 116 LM00127
W'R F .E.0 117 LM00130
07261 CLA +0 50000 0 04352 07262 SUB +0 40200 0 06614 07263 TNZ -0 10000 0 07274
LINKS = LINKS + 1 118 LM00132
07264 CLA +0 50000 0 04552 07265 ADD +0 40000 0 06615 07266 STO +0 60100 0 04552
TSUFDL = TSUFDL + 1 119 LM00133
07267 CLA +0 50000 0 06417 07270 ADD +0 40000 0 06615 07271 STO +0 60100 0 06417
T'O CNAME 120 LM00134
07272 TRA +0 02000 0 00033
O'R F .E. 2 121 LM00135
07273 TRA +0 02000 0 07316 07274 CLA +0 50000 0 04352 07275 SUB +0 40200 0 06616 07276 TNZ -0 10000 0 07316
W'R SIZE .A. 1K .E. 1K 122 LM00137
07277 CAL -0 50000 0 06400 07300 ANA -0 32000 0 06615 07301 SLW +0 60200 0 10603 07302 CLA +0 50000 0 10603
07303 SUB +0 40200 0 06615 07304 TNZ -0 10000 0 07311
RSIZE = SIZE + 1 123 LM00138
07305 CLA +0 50000 0 06400 07306 ADD +0 40000 0 06615 07307 STO +0 60100 0 06241
O'E 124 LM00139
07310 TRA +0 02000 0 07313
RSIZE = SIZE 125 LM00140
07311 CLA +0 50000 0 06400 07312 STO +0 60100 0 06241
E'L 126 LM00141
TRSIZE = TRSIZE + RSIZE 127 LM00143
07313 CLA +0 50000 0 06415 07314 ADD +0 40000 0 06241 07315 STO +0 60100 0 06415
E'L 128 LM00144
TSUFDR = TSUFDR + SIZE 129 LM00149
07316 CLA +0 50000 0 06420 07317 ADD +0 40000 0 06400 07320 STO +0 60100 0 06420
TSUFDF = TSUFDF + 1 130 LM00150
07321 CLA +0 50000 0 06416 07322 ADD +0 40000 0 06615 07323 STO +0 60100 0 06416
TR = TR + SIZE 131 LM00151
07324 CLA +0 50000 0 06414 07325 ADD +0 40000 0 06400 07326 STO +0 60100 0 06414
TF = TF + 1 132 LM00152
07327 CLA +0 50000 0 06411 07330 ADD +0 40000 0 06615 07331 STO +0 60100 0 06411
TREC2 = TREC2 + SIZE * SIZE 133 LM00153
07332 LDQ +0 56000 0 06400 07333 MPY +0 20000 0 06400 07334 XCA +0 13100 0 00000 07335 ORA -0 50100 0 06642
07336 FAD +0 30000 0 06642 07337 FAD +0 30000 0 06413 07340 STO +0 60100 0 06413
MODE = BUFF(M4) .RS. 28 134 LM00156
07341 LXA +0 53400 1 04556 07342 CAL -0 50000 0 06632 07343 STA +0 62100 0 07345 07344 CAL -0 50000 1 00024
07345 LGR -0 76500 0 00000 07346 SLW +0 60200 0 05256
T'H MODLP, FOR I = 1,1,I.G.8 135 LM00157
07347 CLA +0 50000 0 06615 07350 STO +0 60100 0 04547 07351 TRA +0 02000 0 07355 07352 CLA +0 50000 0 04547
07353 ADD +0 40000 0 06615 07354 STO +0 60100 0 04547 07355 CLA +0 50000 0 04547 07356 SUB +0 40200 0 06622
07357 TZE +0 10000 0 07361 07360 TPL +0 12000 0 07400
W'R MODE.A.MODBIT(I) .NE. 0 136 LM00158
07361 LXA +0 53400 2 04547 07362 CAL -0 50000 0 05256 07363 ANA -0 32000 2 05255 07364 SLW +0 60200 0 10603
07365 CLA +0 50000 0 10603 07366 SUB +0 40200 0 06614 07367 TZE +0 10000 0 07377
MODFIL(I) = MODFIL(I) + 1 137 LM00159
07370 LXA +0 53400 1 04547 07371 CLA +0 50000 1 05267 07372 ADD +0 40000 0 06615 07373 STO +0 60100 1 05267
MODREC(I) = MODREC(I) + SIZE 138 LM00160
07374 CLA +0 50000 1 05300 07375 ADD +0 40000 0 06400 07376 STO +0 60100 1 05300
E'L 139 LM00161
MODLP C'E 140 LM00162
07377 TRA +0 02000 0 07352
CNAME T'H LOOP, FOR I=1,1,I.G.MAX 141 LM00166
07400 CLA +0 50000 0 06615 07401 STO +0 60100 0 04547 07402 TRA +0 02000 0 07406 07403 CLA +0 50000 0 04547
07404 ADD +0 40000 0 06615 07405 STO +0 60100 0 04547 07406 CLA +0 50000 0 04547 07407 SUB +0 40200 0 05236
07410 TZE +0 10000 0 07412 07411 TPL +0 12000 0 07512
W'R (N1.XOR.NAME1(I)).A.MASK1(I) .E. 0 142 LM00167
1.AND.(N2.XOR.NAME2(I)).A.MASK2(I) .E. 0 142 LM00168
07412 LXA +0 53400 2 04547 07413 CAL -0 50000 0 05323 07414 ERA +0 32200 2 06001 07415 ANA -0 32000 2 05235
07416 SLW +0 60200 0 10603 07417 CLA +0 50000 0 10603 07420 SUB +0 40200 0 06614 07421 TNZ -0 10000 0 07511
07422 CAL -0 50000 0 05322 07423 ERA +0 32200 2 05552 07424 ANA -0 32000 2 05006 07425 SLW +0 60200 0 10603
07426 CLA +0 50000 0 10603 07427 SUB +0 40200 0 06614 07430 TNZ -0 10000 0 07511
TYPE W'R F .NE. 0 143 LM00169
07431 CLA +0 50000 0 04352 07432 SUB +0 40200 0 06614 07433 TZE +0 10000 0 07472
COUNT(I)=COUNT(I)+1 144 LM00170
07434 LXA +0 53400 1 04547 07435 CLA +0 50000 1 03674 07436 ADD +0 40000 0 06615 07437 STO +0 60100 1 03674
NRECS(I)=NRECS(I)+SIZE 145 LM00171
07440 CLA +0 50000 1 06231 07441 ADD +0 40000 0 06400 07442 STO +0 60100 1 06231
CCOUNT(CLASS(I))=CCOUNT(CLASS(I))+1 146 LM00172
07443 CLA +0 50000 1 03144 07444 PAX +0 73400 1 00000 07445 CLA +0 50000 1 02561 07446 ADD +0 40000 0 06615
07447 STO +0 60100 0 10603 07450 LXA +0 53400 1 04547 07451 CLA +0 50000 1 03144 07452 PAX +0 73400 1 00000
07453 CLA +0 50000 0 10603 07454 STO +0 60100 1 02561
CNRECS(CLASS(I))=CNRECS(CLASS(I))+SIZE 147 LM00173
07455 LXA +0 53400 1 04547 07456 CLA +0 50000 1 03144 07457 PAX +0 73400 1 00000 07460 CLA +0 50000 1 03216
07461 ADD +0 40000 0 06400 07462 STO +0 60100 0 10603 07463 LXA +0 53400 1 04547 07464 CLA +0 50000 1 03144
07465 PAX +0 73400 1 00000 07466 CLA +0 50000 0 10603 07467 STO +0 60100 1 03216
T'O DOAGE 148 LM00174
07470 TRA +0 02000 0 00034
O'E 149 LM00175
07471 TRA +0 02000 0 07511
COUNTL(I) = COUNTL(I) + 1 150 LM00176
07472 LXA +0 53400 1 04547 07473 CLA +0 50000 1 03445 07474 ADD +0 40000 0 06615 07475 STO +0 60100 1 03445
CCOUNL(CLASS(I)) = CCOUNL(CLASS(I)) + 1 151 LM00177
07476 CLA +0 50000 1 03144 07477 PAX +0 73400 1 00000 07500 CLA +0 50000 1 02534 07501 ADD +0 40000 0 06615
07502 STO +0 60100 0 10603 07503 LXA +0 53400 1 04547 07504 CLA +0 50000 1 03144 07505 PAX +0 73400 1 00000
07506 CLA +0 50000 0 10603 07507 STO +0 60100 1 02534
F'N 152 LM00178
07510 TRA +0 02000 0 10577
E'L 153 LM00180
E'L 154 LM00181
LOOP C'E 155 LM00182
07511 TRA +0 02000 0 07403
I=0 156 LM00184
07512 CLA +0 50000 0 06614 07513 STO +0 60100 0 04547
T'O TYPE 157 LM00185
07514 TRA +0 02000 0 00042
DOAGE TEMP = BUFF(M3) .RS. 18 158 LM00188
07515 LXA +0 53400 1 04555 07516 CAL -0 50000 0 06630 07517 STA +0 62100 0 07521 07520 CAL -0 50000 1 00024
07521 LGR -0 76500 0 00000 07522 SLW +0 60200 0 06410
YEAR = TEMP.RS.9 159 LM00189
07523 CAL -0 50000 0 06623 07524 STA +0 62100 0 07526 07525 CAL -0 50000 0 06410 07526 LGR -0 76500 0 00000
07527 SLW +0 60200 0 06612
MONTH= (TEMP.RS.5).A.17K 160 LM00190
07530 CAL -0 50000 0 06620 07531 STA +0 62100 0 07533 07532 CAL -0 50000 0 06410 07533 LGR -0 76500 0 00000
07534 ANA -0 32000 0 06627 07535 SLW +0 60200 0 05316
DAY = TEMP.A.37K 161 LM00191
07536 CAL -0 50000 0 06410 07537 ANA -0 32000 0 06633 07540 SLW +0 60200 0 04042
AGE = NOW - ABSDAT.(MONTH,DAY,YEAR) 162 LM00192
07541 TSX +0 07400 4 00000 07542 TXH +3 00000 0 05316 07543 TXH +3 00000 0 04042 07544 TXH +3 00000 0 06612
07545 CHS +0 76000 0 00002 07546 ADD +0 40000 0 06002 07547 STO +0 60100 0 00043
W'R AGE.G.90, AGE = 90 163 LM00194
07550 CLA +0 50000 0 00043 07551 SUB +0 40200 0 06634 07552 TZE +0 10000 0 07556 07553 TMI -0 12000 0 07556
07554 CLA +0 50000 0 06634 07555 STO +0 60100 0 00043
W'R AGE.L.0, AGE = 0 164 LM00195
07556 CLA +0 50000 0 00043 07557 SUB +0 40200 0 06614 07560 TZE +0 10000 0 07564 07561 TPL +0 12000 0 07564
07562 CLA +0 50000 0 06614 07563 STO +0 60100 0 00043
FTBL(AGE) = FTBL(AGE)+1 165 LM00196
07564 LXA +0 53400 1 00043 07565 CLA +0 50000 1 04506 07566 ADD +0 40000 0 06615 07567 STO +0 60100 1 04506
RTBL(AGE) = RTBL(AGE)+SIZE 166 LM00197
07570 CLA +0 50000 1 06375 07571 ADD +0 40000 0 06400 07572 STO +0 60100 1 06375
TEMP = BUFF(M2) .RS. 18 167 LM00200
07573 LXA +0 53400 1 04554 07574 CAL -0 50000 0 06630 07575 STA +0 62100 0 07577 07576 CAL -0 50000 1 00024
07577 LGR -0 76500 0 00000 07600 SLW +0 60200 0 06410
YEAR = TEMP .RS. 9 168 LM00201
07601 CAL -0 50000 0 06623 07602 STA +0 62100 0 07604 07603 CAL -0 50000 0 06410 07604 LGR -0 76500 0 00000
07605 SLW +0 60200 0 06612
MONTH = (TEMP.RS.5) .A. 17K 169 LM00202
07606 CAL -0 50000 0 06620 07607 STA +0 62100 0 07611 07610 CAL -0 50000 0 06410 07611 LGR -0 76500 0 00000
07612 ANA -0 32000 0 06627 07613 SLW +0 60200 0 05316
DAY = TEMP .A.37K 170 LM00203
07614 CAL -0 50000 0 06410 07615 ANA -0 32000 0 06633 07616 SLW +0 60200 0 04042
AGE = NOW - ABSDAT.(MONTH,DAY,YEAR) 171 LM00204
07617 TSX +0 07400 4 00000 07620 TXH +3 00000 0 05316 07621 TXH +3 00000 0 04042 07622 TXH +3 00000 0 06612
07623 CHS +0 76000 0 00002 07624 ADD +0 40000 0 06002 07625 STO +0 60100 0 00043
AGESUM = AGESUM + AGE 172 LM00205
07626 CLA +0 50000 0 00043 07627 ORA -0 50100 0 06642 07630 FAD +0 30000 0 06642 07631 FAD +0 30000 0 00045
07632 STO +0 60100 0 00045
AGES2 = AGES2 + AGE*AGE 173 LM00206
07633 LDQ +0 56000 0 00043 07634 MPY +0 20000 0 00043 07635 XCA +0 13100 0 00000 07636 ORA -0 50100 0 06642
07637 FAD +0 30000 0 06642 07640 FAD +0 30000 0 00044 07641 STO +0 60100 0 00044
W'R AGE .G. 90, AGE = 90 174 LM00207
07642 CLA +0 50000 0 00043 07643 SUB +0 40200 0 06634 07644 TZE +0 10000 0 07650 07645 TMI -0 12000 0 07650
07646 CLA +0 50000 0 06634 07647 STO +0 60100 0 00043
W'R AGE .L. 0, AGE = 0 175 LM00208
07650 CLA +0 50000 0 00043 07651 SUB +0 40200 0 06614 07652 TZE +0 10000 0 07656 07653 TPL +0 12000 0 07656
07654 CLA +0 50000 0 06614 07655 STO +0 60100 0 00043
CFTBL(AGE) = CFTBL(AGE) + 1 176 LM00209
07656 LXA +0 53400 1 00043 07657 CLA +0 50000 1 02715 07660 ADD +0 40000 0 06615 07661 STO +0 60100 1 02715
CRTBL(AGE) = CRTBL(AGE) + SIZE 177 LM00210
07662 CLA +0 50000 1 04030 07663 ADD +0 40000 0 06400 07664 STO +0 60100 1 04030
F'N 178 LM00212
07665 TRA +0 02000 0 10577
E'O FPRINT. 179 LM00219
07666 TRA +0 02000 0 07671 07667 SXA +0 63400 2 10552 07670 TSX +0 07400 2 10552
NEWUFD. 180 LM00221
07671 TSX +0 07400 4 00031
ATTACH.(ME(1),ME) 181 LM00223
07672 TSX +0 07400 4 00002 07673 TXH +3 00000 0 05241 07674 TXH +3 00000 0 05242
DELETE.(OUT,OUT(1),1,SNAP.) 182 LM00227
07675 TSX +0 07400 4 00011 07676 TXH +3 00000 0 06236 07677 TXH +3 00000 0 06235 07700 TXH +3 00000 0 06615
07701 TXH +3 00000 0 00026
ASSIGN.(OUT,B1,B2,B3) 183 LM00228
07702 TSX +0 07400 4 00001 07703 TXH +3 00000 0 06236 07704 TXH +3 00000 0 00726 07705 TXH +3 00000 0 01607
07706 TXH +3 00000 0 02470
DWRITE.(OUT,HEAD) 184 LM00229
07707 TSX +0 07400 4 00012 07710 TXH +3 00000 0 06236 07711 TXH +3 00000 0 04546
W'R SYSFLG, DWRITE.(OUT,SYSHED) 185 LM00230
07712 NZT -0 52000 0 06401 07713 TRA +0 02000 0 07717 07714 TSX +0 07400 4 00012 07715 TXH +3 00000 0 06236
07716 TXH +3 00000 0 06407
DWRITE.(OUT,F0,TIME,DAYNAM(NOW.MOD.7),MONNAM(MO), 186 LM00231
1 DA, YR, WHO(1)) 186 LM00232
07717 CLA +0 50000 0 05317 07720 SUB +0 40200 0 07721 07721 TXH +3 00000 0 05315 07722 STA +0 62100 0 07737
07723 LDQ +0 56000 0 06002 07724 PXD -0 75400 0 00000 07725 LLS +0 76300 0 00000 07726 DVP +0 22100 0 06621
07727 SUB +0 40200 0 07730 07730 TXH +3 00000 0 04041 07731 STA +0 62100 0 07736 07732 TSX +0 07400 4 00012
07733 TXH +3 00000 0 06236 07734 TXH +3 00000 0 04100 07735 TXH +3 00000 0 06412 07736 TXH +3 00000 0 00000
07737 TXH +3 00000 0 00000 07740 TXH +3 00000 0 04031 07741 TXH +3 00000 0 06613 07742 TXH +3 00000 0 06427
XTF = TF 187 LM00234
07743 CLA +0 50000 0 06411 07744 ORA -0 50100 0 06642 07745 FAD +0 30000 0 06642 07746 STO +0 60100 0 06611
XNUFD = NUFD 188 LM00235
07747 CLA +0 50000 0 06232 07750 ORA -0 50100 0 06642 07751 FAD +0 30000 0 06642 07752 STO +0 60100 0 06443
X1 = TR/XTF 189 LM00236
07753 CLA +0 50000 0 06414 07754 ORA -0 50100 0 06642 07755 FAD +0 30000 0 06642 07756 FDP +0 24100 0 06611
07757 STQ -0 60000 0 06432
X2 = SQRT.(TREC2/XTF - X1*X1) 190 LM00237
07760 LDQ +0 56000 0 06432 07761 FMP +0 26000 0 06432 07762 STO +0 60100 0 10603 07763 CLA +0 50000 0 06413
07764 FDP +0 24100 0 06611 07765 XCA +0 13100 0 00000 07766 FSB +0 30200 0 10603 07767 STO +0 60100 0 10603
07770 TSX +0 07400 4 00027 07771 TXH +3 00000 0 10603 07772 STO +0 60100 0 06433
X3 = XTF/XNUFD 191 LM00238
07773 CLA +0 50000 0 06611 07774 FDP +0 24100 0 06443 07775 STQ -0 60000 0 06434
X4 = SQRT.(UFDF2/XNUFD - X3*X3) 192 LM00239
07776 LDQ +0 56000 0 06434 07777 FMP +0 26000 0 06434 10000 STO +0 60100 0 10603 10001 CLA +0 50000 0 06421
10002 FDP +0 24100 0 06443 10003 XCA +0 13100 0 00000 10004 FSB +0 30200 0 10603 10005 STO +0 60100 0 10603
10006 TSX +0 07400 4 00027 10007 TXH +3 00000 0 10603 10010 STO +0 60100 0 06435
X5 = TR/XNUFD 193 LM00240
10011 CLA +0 50000 0 06414 10012 ORA -0 50100 0 06642 10013 FAD +0 30000 0 06642 10014 FDP +0 24100 0 06443
10015 STQ -0 60000 0 06436
X6 = SQRT.(UFDR2/XNUFD - X5*X5) 194 LM00241
10016 LDQ +0 56000 0 06436 10017 FMP +0 26000 0 06436 10020 STO +0 60100 0 10603 10021 CLA +0 50000 0 06423
10022 FDP +0 24100 0 06443 10023 XCA +0 13100 0 00000 10024 FSB +0 30200 0 10603 10025 STO +0 60100 0 10603
10026 TSX +0 07400 4 00027 10027 TXH +3 00000 0 10603 10030 STO +0 60100 0 06437
X7 = LINKS/XNUFD 195 LM00242
10031 CLA +0 50000 0 04552 10032 ORA -0 50100 0 06642 10033 FAD +0 30000 0 06642 10034 FDP +0 24100 0 06443
10035 STQ -0 60000 0 06440
X8 = SQRT.(UFDL2/XNUFD - X7*X7) 196 LM00243
10036 LDQ +0 56000 0 06440 10037 FMP +0 26000 0 06440 10040 STO +0 60100 0 10603 10041 CLA +0 50000 0 06422
10042 FDP +0 24100 0 06443 10043 XCA +0 13100 0 00000 10044 FSB +0 30200 0 10603 10045 STO +0 60100 0 10603
10046 TSX +0 07400 4 00027 10047 TXH +3 00000 0 10603 10050 STO +0 60100 0 06441
X9 = AGESUM/XTF 197 LM00244
10051 CLA +0 50000 0 00045 10052 FDP +0 24100 0 06611 10053 STQ -0 60000 0 06442
X10 = SQRT.(AGES2/XTF - X9*X9) 198 LM00245
10054 LDQ +0 56000 0 06442 10055 FMP +0 26000 0 06442 10056 STO +0 60100 0 10603 10057 CLA +0 50000 0 00044
10060 FDP +0 24100 0 06611 10061 XCA +0 13100 0 00000 10062 FSB +0 30200 0 10603 10063 STO +0 60100 0 10603
10064 TSX +0 07400 4 00027 10065 TXH +3 00000 0 10603 10066 STO +0 60100 0 06431
DWRITE.(OUT,F1, TF, TR, X3, X4, NUFD, X5, X6, LINKS, 199 LM00247
1 X7, X8, X1, X2, X9, X10 ) 199 LM00248
10067 TSX +0 07400 4 00012 10070 TXH +3 00000 0 06236 10071 TXH +3 00000 0 04206 10072 TXH +3 00000 0 06411
10073 TXH +3 00000 0 06414 10074 TXH +3 00000 0 06434 10075 TXH +3 00000 0 06435 10076 TXH +3 00000 0 06232
10077 TXH +3 00000 0 06436 10100 TXH +3 00000 0 06437 10101 TXH +3 00000 0 04552 10102 TXH +3 00000 0 06440
10103 TXH +3 00000 0 06441 10104 TXH +3 00000 0 06432 10105 TXH +3 00000 0 06433 10106 TXH +3 00000 0 06442
10107 TXH +3 00000 0 06431
DWRITE.(OUT,F3,CAPACY,TRSIZE,CAPACY-TRSIZE, 200 LM00249
1 (TRSIZE-TR)*100./CAPACY) 200 LM00250
10110 CLA +0 50000 0 06415 10111 SUB +0 40200 0 06414 10112 ORA -0 50100 0 06642 10113 FAD +0 30000 0 06642
10114 XCA +0 13100 0 00000 10115 FMP +0 26000 0 06641 10116 STO +0 60100 0 10603 10117 CLA +0 50000 0 02471
10120 ORA -0 50100 0 06642 10121 FAD +0 30000 0 06642 10122 STO +0 60100 0 10604 10123 CLA +0 50000 0 10603
10124 FDP +0 24100 0 10604 10125 STQ -0 60000 0 10604 10126 CLA +0 50000 0 02471 10127 SUB +0 40200 0 06415
10130 STO +0 60100 0 10603 10131 TSX +0 07400 4 00012 10132 TXH +3 00000 0 06236 10133 TXH +3 00000 0 04226
10134 TXH +3 00000 0 02471 10135 TXH +3 00000 0 06415 10136 TXH +3 00000 0 10603 10137 TXH +3 00000 0 10604
DWRITE.(OUT,F4) 201 LM00251
10140 TSX +0 07400 4 00012 10141 TXH +3 00000 0 06236 10142 TXH +3 00000 0 04246
T'H PML, FOR I=1,1,I.G.8 202 LM00252
10143 CLA +0 50000 0 06615 10144 STO +0 60100 0 04547 10145 TRA +0 02000 0 10151 10146 CLA +0 50000 0 04547
10147 ADD +0 40000 0 06615 10150 STO +0 60100 0 04547 10151 CLA +0 50000 0 04547 10152 SUB +0 40200 0 06622
10153 TZE +0 10000 0 10155 10154 TPL +0 12000 0 10203
DWRITE.(OUT,F4A,OCRBC.(MODBIT(I)),MODFIL(I),MODREC(I)) 203 LM00253
10155 CLA +0 50000 0 04547 10156 SUB +0 40200 0 10157 10157 TXH +3 00000 0 05300 10160 STA +0 62100 0 10201
10161 CLA +0 50000 0 04547 10162 SUB +0 40200 0 10163 10163 TXH +3 00000 0 05267 10164 STA +0 62100 0 10200
10165 CLA +0 50000 0 04547 10166 SUB +0 40200 0 10167 10167 TXH +3 00000 0 05255 10170 STA +0 62100 0 10172
10171 TSX +0 07400 4 00024 10172 TXH +3 00000 0 00000 10173 STO +0 60100 0 10604 10174 TSX +0 07400 4 00012
10175 TXH +3 00000 0 06236 10176 TXH +3 00000 0 04230 10177 TXH +3 00000 0 10604 10200 TXH +3 00000 0 00000
10201 TXH +3 00000 0 00000
PML C'E 204 LM00254
10202 TRA +0 02000 0 10146
DWRITE.(OUT,HEAD) 205 LM00256
10203 TSX +0 07400 4 00012 10204 TXH +3 00000 0 06236 10205 TXH +3 00000 0 04546
W'R SYSFLG, DWRITE.(OUT,SYSHED) 206 LM00257
10206 NZT -0 52000 0 06401 10207 TRA +0 02000 0 10213 10210 TSX +0 07400 4 00012 10211 TXH +3 00000 0 06236
10212 TXH +3 00000 0 06407
DWRITE.(OUT,F5) 207 LM00259
10213 TSX +0 07400 4 00012 10214 TXH +3 00000 0 06236 10215 TXH +3 00000 0 04272
HGMLP DWRITE.(OUT,F5A) 208 LM00261
10216 TSX +0 07400 4 00012 10217 TXH +3 00000 0 06236 10220 TXH +3 00000 0 04261
T'H BETA, FOR K = 0,1, K.G.90 209 LM00262
10221 CLA +0 50000 0 06614 10222 STO +0 60100 0 04551 10223 TRA +0 02000 0 10227 10224 CLA +0 50000 0 04551
10225 ADD +0 40000 0 06615 10226 STO +0 60100 0 04551 10227 CLA +0 50000 0 04551 10230 SUB +0 40200 0 06634
10231 TZE +0 10000 0 10233 10232 TPL +0 12000 0 10350
FOLDER = 0 210 LM00263
10233 CLA +0 50000 0 06614 10234 STO +0 60100 0 04351
ROLDER = 0 211 LM00264
10235 CLA +0 50000 0 06614 10236 STO +0 60100 0 06240
DAY = NOW - K 212 LM00265
10237 CLA +0 50000 0 06002 10240 SUB +0 40200 0 04551 10241 STO +0 60100 0 04042
T'H ALPHA, FOR J = K, 1, J.G. 90 213 LM00267
10242 CLA +0 50000 0 04551 10243 STO +0 60100 0 04550 10244 TRA +0 02000 0 10250 10245 CLA +0 50000 0 04550
10246 ADD +0 40000 0 06615 10247 STO +0 60100 0 04550 10250 CLA +0 50000 0 04550 10251 SUB +0 40200 0 06634
10252 TZE +0 10000 0 10254 10253 TPL +0 12000 0 10271
FOLDER = FOLDER + FTBL(J) 214 LM00268
10254 LXA +0 53400 2 04550 10255 CLA +0 50000 0 04351 10256 ADD +0 40000 2 04506 10257 STO +0 60100 0 04351
ROLDER = ROLDER + RTBL(J) 215 LM00269
10260 CLA +0 50000 0 06240 10261 ADD +0 40000 2 06375 10262 STO +0 60100 0 06240
VAR = ROLDER/SCALE 216 LM00270
10263 LDQ +0 56000 0 06240 10264 PXD -0 75400 0 00000 10265 LLS +0 76300 0 00000 10266 DVP +0 22100 0 06376
10267 STQ -0 60000 0 06424
ALPHA C'E 217 LM00271
10270 TRA +0 02000 0 10245
W'R DAY .E. MB1 218 LM00273
10271 CLA +0 50000 0 04042 10272 SUB +0 40200 0 05237 10273 TNZ -0 10000 0 10277
MRK = MO1 219 LM00274
10274 CLA +0 50000 0 05243 10275 STO +0 60100 0 05320
O'R DAY .E. MB2 220 LM00275
10276 TRA +0 02000 0 10320 10277 CLA +0 50000 0 04042 10300 SUB +0 40200 0 05240 10301 TNZ -0 10000 0 10305
MRK = MO2 221 LM00276
10302 CLA +0 50000 0 05244 10303 STO +0 60100 0 05320
O'R DAY.MOD. 7 .E. 0 222 LM00277
10304 TRA +0 02000 0 10320 10305 LDQ +0 56000 0 04042 10306 PXD -0 75400 0 00000 10307 LLS +0 76300 0 00000
10310 DVP +0 22100 0 06621 10311 SUB +0 40200 0 06614 10312 TNZ -0 10000 0 10316
MRK = $SUN$ 223 LM00278
10313 CLA +0 50000 0 06650 10314 STO +0 60100 0 05320
O'E 224 LM00279
10315 TRA +0 02000 0 10320
MRK = $$ 225 LM00280
10316 CLA +0 50000 0 06646 10317 STO +0 60100 0 05320
E'L 226 LM00281
DWRITE.(OUT,F7,MRK,K,FTBL(K),FOLDER,RTBL(K),ROLDER, 227 LM00283
1 XS(1)...XS(VAR)) 227 LM00284
10320 CLA +0 50000 0 06424 10321 SUB +0 40200 0 10322 10322 TXH +3 00000 0 06610 10323 ALS +0 76700 0 00022
10324 STD +0 62200 0 10346 10325 CLA +0 50000 0 04551 10326 SUB +0 40200 0 10327 10327 TXH +3 00000 0 06375
10330 STA +0 62100 0 10344 10331 CLA +0 50000 0 04551 10332 SUB +0 40200 0 10333 10333 TXH +3 00000 0 04506
10334 STA +0 62100 0 10342 10335 TSX +0 07400 4 00012 10336 TXH +3 00000 0 06236 10337 TXH +3 00000 0 04307
10340 TXH +3 00000 0 05320 10341 TXH +3 00000 0 04551 10342 TXH +3 00000 0 00000 10343 TXH +3 00000 0 04351
10344 TXH +3 00000 0 00000 10345 TXH +3 00000 0 06240 10346 TIX +2 00000 0 06607
BETA C'E 228 LM00286
10347 TRA +0 02000 0 10224
DWRITE.(OUT,F10,XS,SCALE) 229 LM00288
10350 TSX +0 07400 4 00012 10351 TXH +3 00000 0 06236 10352 TXH +3 00000 0 04113 10353 TXH +3 00000 0 06610
10354 TXH +3 00000 0 06376
W'R REF 230 LM00289
10355 NZT -0 52000 0 06237 10356 TRA +0 02000 0 10405
REF = 0B 231 LM00290
10357 CLA +0 50000 0 06614 10360 STO +0 60100 0 06237
DWRITE.(OUT,HEAD) 232 LM00291
10361 TSX +0 07400 4 00012 10362 TXH +3 00000 0 06236 10363 TXH +3 00000 0 04546
W'R SYSFLG, DWRITE.(OUT,SYSHED) 233 LM00292
10364 NZT -0 52000 0 06401 10365 TRA +0 02000 0 10371 10366 TSX +0 07400 4 00012 10367 TXH +3 00000 0 06236
10370 TXH +3 00000 0 06407
DWRITE.(OUT,F6) 234 LM00293
10371 TSX +0 07400 4 00012 10372 TXH +3 00000 0 06236 10373 TXH +3 00000 0 04302
MOVE.(91,CFTBL,FTBL) 235 LM00294
10374 TSX +0 07400 4 00021 10375 TXH +3 00000 0 06635 10376 TXH +3 00000 0 02715 10377 TXH +3 00000 0 04506
MOVE.(91,CRTBL,RTBL) 236 LM00295
10400 TSX +0 07400 4 00021 10401 TXH +3 00000 0 06635 10402 TXH +3 00000 0 04030 10403 TXH +3 00000 0 06375
T'O HGMLP 237 LM00296
10404 TRA +0 02000 0 00037
E'L 238 LM00297
DWRITE.(OUT,HEAD) 239 LM00299
10405 TSX +0 07400 4 00012 10406 TXH +3 00000 0 06236 10407 TXH +3 00000 0 04546
W'R SYSFLG, DWRITE.(OUT,SYSHED) 240 LM00300
10410 NZT -0 52000 0 06401 10411 TRA +0 02000 0 10415 10412 TSX +0 07400 4 00012 10413 TXH +3 00000 0 06236
10414 TXH +3 00000 0 06407
DWRITE.(OUT,F9) 241 LM00302
10415 TSX +0 07400 4 00012 10416 TXH +3 00000 0 06236 10417 TXH +3 00000 0 04331
T'H PRN, FOR I=0,1,I.G.MAX 242 LM00304
10420 CLA +0 50000 0 06614 10421 STO +0 60100 0 04547 10422 TRA +0 02000 0 10426 10423 CLA +0 50000 0 04547
10424 ADD +0 40000 0 06615 10425 STO +0 60100 0 04547 10426 CLA +0 50000 0 04547 10427 SUB +0 40200 0 05236
10430 TZE +0 10000 0 10432 10431 TPL +0 12000 0 10474
PRN DWRITE.(OUT,FM1,NAME1(I),NAME2(I),CLASS(I),COUNT(I),NRECS(I), 243 LM00305
1COUNTL(I)) 243 LM00306
10432 CLA +0 50000 0 04547 10433 SUB +0 40200 0 10434 10434 TXH +3 00000 0 03445 10435 STA +0 62100 0 10472
10436 CLA +0 50000 0 04547 10437 SUB +0 40200 0 10440 10440 TXH +3 00000 0 06231 10441 STA +0 62100 0 10471
10442 CLA +0 50000 0 04547 10443 SUB +0 40200 0 10444 10444 TXH +3 00000 0 03674 10445 STA +0 62100 0 10470
10446 CLA +0 50000 0 04547 10447 SUB +0 40200 0 10450 10450 TXH +3 00000 0 03144 10451 STA +0 62100 0 10467
10452 CLA +0 50000 0 04547 10453 SUB +0 40200 0 10454 10454 TXH +3 00000 0 06001 10455 STA +0 62100 0 10466
10456 CLA +0 50000 0 04547 10457 SUB +0 40200 0 10460 10460 TXH +3 00000 0 05552 10461 STA +0 62100 0 10465
10462 TSX +0 07400 4 00012 10463 TXH +3 00000 0 06236 10464 TXH +3 00000 0 04336 10465 TXH +3 00000 0 00000
10466 TXH +3 00000 0 00000 10467 TXH +3 00000 0 00000 10470 TXH +3 00000 0 00000 10471 TXH +3 00000 0 00000
10472 TXH +3 00000 0 00000 10473 TRA +0 02000 0 10423
DWRITE.(OUT,FM2) 244 LM00308
10474 TSX +0 07400 4 00012 10475 TXH +3 00000 0 06236 10476 TXH +3 00000 0 04350
T'H PRC, FOR I=0,1,I.G.MXCLS 245 LM00309
10477 CLA +0 50000 0 06614 10500 STO +0 60100 0 04547 10501 TRA +0 02000 0 10505 10502 CLA +0 50000 0 04547
10503 ADD +0 40000 0 06615 10504 STO +0 60100 0 04547 10505 CLA +0 50000 0 04547 10506 SUB +0 40200 0 05321
10507 TZE +0 10000 0 10511 10510 TPL +0 12000 0 10543
PRC DWRITE.(OUT,FM1,$$,CLNAME(I),I,CCOUNT(I),CNRECS(I),CCOUNL(I)) 246 LM00310
10511 CLA +0 50000 0 04547 10512 SUB +0 40200 0 10513 10513 TXH +3 00000 0 02534 10514 STA +0 62100 0 10541
10515 CLA +0 50000 0 04547 10516 SUB +0 40200 0 10517 10517 TXH +3 00000 0 03216 10520 STA +0 62100 0 10540
10521 CLA +0 50000 0 04547 10522 SUB +0 40200 0 10523 10523 TXH +3 00000 0 02561 10524 STA +0 62100 0 10537
10525 CLA +0 50000 0 04547 10526 SUB +0 40200 0 10527 10527 TXH +3 00000 0 03171 10530 STA +0 62100 0 10535
10531 TSX +0 07400 4 00012 10532 TXH +3 00000 0 06236 10533 TXH +3 00000 0 04336 10534 TXH +3 00000 0 06646
10535 TXH +3 00000 0 00000 10536 TXH +3 00000 0 04547 10537 TXH +3 00000 0 00000 10540 TXH +3 00000 0 00000
10541 TXH +3 00000 0 00000 10542 TRA +0 02000 0 10502
FILE.(OUT) 247 LM00312
10543 TSX +0 07400 4 00015 10544 TXH +3 00000 0 06236
F'N 248 LM00314
10545 TRA +0 02000 0 10577
ERR NCOM.($PRNTER$,777777777777K) 249 LM00316
10546 TSX +0 07400 4 00023 10547 TXH +3 00000 0 06643 10550 TXH +3 00000 0 06652
N'R 250 LM00319
F'T X1, X2, X3, X4, X5, X6, X7, X8, X9, X10 251 LM00320
F'T AGES2, TREC2, UFDF2, UFDR2, UFDL2 252 LM00321
F'T SQRT. 253 LM00322
F'T XTF, XNUFD, AGESUM 254 LM00323
V'S REF = 1B 255 LM00324
06237 +0 00000 0 00001
V'S CAPACY = 160 000 256 LM00327
02471 +0 00000 4 70400
V'S SCALE = 1600 257 LM00328
06376 +0 00000 0 03100
V'S DAYS = 31,31,28,31,30,31,30,31,31,30,31,30,31 258 LM00331
04043 +0 00000 0 00037 04044 +0 00000 0 00036 04045 +0 00000 0 00037 04046 +0 00000 0 00036
04047 +0 00000 0 00037 04050 +0 00000 0 00037 04051 +0 00000 0 00036 04052 +0 00000 0 00037
04053 +0 00000 0 00036 04054 +0 00000 0 00037 04055 +0 00000 0 00034 04056 +0 00000 0 00037
04057 +0 00000 0 00037
V'S MONNAM = $DEC$,$JAN$,$FEB$,$MAR$,$APR$,$MAY$,$JUN$, 259 LM00332
1 $JUL$,$AUG$,$SEP$,$OCT$,$NOV$,$DEC$ 259 LM00333
05301 +2 42523 6 06060 05302 -0 54665 6 06060 05303 -0 62363 6 06060 05304 -2 22547 6 06060
05305 +2 16427 6 06060 05306 -0 16443 6 06060 05307 -0 16445 6 06060 05310 -0 42170 6 06060
05311 +2 14751 6 06060 05312 -0 42151 6 06060 05313 +2 62522 6 06060 05314 -0 12145 6 06060
05315 +2 42523 6 06060
V'S DAYNAM = $SUN$,$MON$,$TUE$,$WED$,$THU$,$FRI$,$SAT$ 260 LM00334
04033 -2 22163 6 06060 04034 +2 65131 6 06060 04035 -2 33064 6 06060 04036 -2 62524 6 06060
04037 -2 36425 6 06060 04040 -0 44645 6 06060 04041 -2 26445 6 06060
V'S WHO...WHO(3) = 0 261 LM00336
06425 +0 00000 0 00000 06426 +0 00000 0 00000 06427 +0 00000 0 00000 06430 +0 00000 0 00000
V'S ME...ME(1) = 0 262 LM00337
05241 +0 00000 0 00000 05242 +0 00000 0 00000
V'S MODBIT = 0,1K,2K,4K,10K,20K,40K,100K,200K 263 LM00340
05245 +0 00000 0 00200 05246 +0 00000 0 00100 05247 +0 00000 0 00040 05250 +0 00000 0 00020
05251 +0 00000 0 00010 05252 +0 00000 0 00004 05253 +0 00000 0 00002 05254 +0 00000 0 00001
05255 +0 00000 0 00000
V'S MODFIL...MODFIL(8) = 0 264 LM00341
05257 +0 00000 0 00000 05260 +0 00000 0 00000 05261 +0 00000 0 00000 05262 +0 00000 0 00000
05263 +0 00000 0 00000 05264 +0 00000 0 00000 05265 +0 00000 0 00000 05266 +0 00000 0 00000
05267 +0 00000 0 00000
V'S MODREC...MODREC(8) = 0 265 LM00342
05270 +0 00000 0 00000 05271 +0 00000 0 00000 05272 +0 00000 0 00000 05273 +0 00000 0 00000
05274 +0 00000 0 00000 05275 +0 00000 0 00000 05276 +0 00000 0 00000 05277 +0 00000 0 00000
05300 +0 00000 0 00000
V'S COUNT...COUNT(150)=0 266 LM00345
03446 +0 00000 0 00000 03447 +0 00000 0 00000 03450 +0 00000 0 00000 03451 +0 00000 0 00000
03452 +0 00000 0 00000 03453 +0 00000 0 00000 03454 +0 00000 0 00000 03455 +0 00000 0 00000
03456 +0 00000 0 00000 03457 +0 00000 0 00000 03460 +0 00000 0 00000 03461 +0 00000 0 00000
03462 +0 00000 0 00000 03463 +0 00000 0 00000 03464 +0 00000 0 00000 03465 +0 00000 0 00000
03466 +0 00000 0 00000 03467 +0 00000 0 00000 03470 +0 00000 0 00000 03471 +0 00000 0 00000
03472 +0 00000 0 00000 03473 +0 00000 0 00000 03474 +0 00000 0 00000 03475 +0 00000 0 00000
03476 +0 00000 0 00000 03477 +0 00000 0 00000 03500 +0 00000 0 00000 03501 +0 00000 0 00000
03502 +0 00000 0 00000 03503 +0 00000 0 00000 03504 +0 00000 0 00000 03505 +0 00000 0 00000
03506 +0 00000 0 00000 03507 +0 00000 0 00000 03510 +0 00000 0 00000 03511 +0 00000 0 00000
03512 +0 00000 0 00000 03513 +0 00000 0 00000 03514 +0 00000 0 00000 03515 +0 00000 0 00000
03516 +0 00000 0 00000 03517 +0 00000 0 00000 03520 +0 00000 0 00000 03521 +0 00000 0 00000
03522 +0 00000 0 00000 03523 +0 00000 0 00000 03524 +0 00000 0 00000 03525 +0 00000 0 00000
03526 +0 00000 0 00000 03527 +0 00000 0 00000 03530 +0 00000 0 00000 03531 +0 00000 0 00000
03532 +0 00000 0 00000 03533 +0 00000 0 00000 03534 +0 00000 0 00000 03535 +0 00000 0 00000
03536 +0 00000 0 00000 03537 +0 00000 0 00000 03540 +0 00000 0 00000 03541 +0 00000 0 00000
03542 +0 00000 0 00000 03543 +0 00000 0 00000 03544 +0 00000 0 00000 03545 +0 00000 0 00000
03546 +0 00000 0 00000 03547 +0 00000 0 00000 03550 +0 00000 0 00000 03551 +0 00000 0 00000
03552 +0 00000 0 00000 03553 +0 00000 0 00000 03554 +0 00000 0 00000 03555 +0 00000 0 00000
03556 +0 00000 0 00000 03557 +0 00000 0 00000 03560 +0 00000 0 00000 03561 +0 00000 0 00000
03562 +0 00000 0 00000 03563 +0 00000 0 00000 03564 +0 00000 0 00000 03565 +0 00000 0 00000
03566 +0 00000 0 00000 03567 +0 00000 0 00000 03570 +0 00000 0 00000 03571 +0 00000 0 00000
03572 +0 00000 0 00000 03573 +0 00000 0 00000 03574 +0 00000 0 00000 03575 +0 00000 0 00000
03576 +0 00000 0 00000 03577 +0 00000 0 00000 03600 +0 00000 0 00000 03601 +0 00000 0 00000
03602 +0 00000 0 00000 03603 +0 00000 0 00000 03604 +0 00000 0 00000 03605 +0 00000 0 00000
03606 +0 00000 0 00000 03607 +0 00000 0 00000 03610 +0 00000 0 00000 03611 +0 00000 0 00000
03612 +0 00000 0 00000 03613 +0 00000 0 00000 03614 +0 00000 0 00000 03615 +0 00000 0 00000
03616 +0 00000 0 00000 03617 +0 00000 0 00000 03620 +0 00000 0 00000 03621 +0 00000 0 00000
03622 +0 00000 0 00000 03623 +0 00000 0 00000 03624 +0 00000 0 00000 03625 +0 00000 0 00000
03626 +0 00000 0 00000 03627 +0 00000 0 00000 03630 +0 00000 0 00000 03631 +0 00000 0 00000
03632 +0 00000 0 00000 03633 +0 00000 0 00000 03634 +0 00000 0 00000 03635 +0 00000 0 00000
03636 +0 00000 0 00000 03637 +0 00000 0 00000 03640 +0 00000 0 00000 03641 +0 00000 0 00000
03642 +0 00000 0 00000 03643 +0 00000 0 00000 03644 +0 00000 0 00000 03645 +0 00000 0 00000
03646 +0 00000 0 00000 03647 +0 00000 0 00000 03650 +0 00000 0 00000 03651 +0 00000 0 00000
03652 +0 00000 0 00000 03653 +0 00000 0 00000 03654 +0 00000 0 00000 03655 +0 00000 0 00000
03656 +0 00000 0 00000 03657 +0 00000 0 00000 03660 +0 00000 0 00000 03661 +0 00000 0 00000
03662 +0 00000 0 00000 03663 +0 00000 0 00000 03664 +0 00000 0 00000 03665 +0 00000 0 00000
03666 +0 00000 0 00000 03667 +0 00000 0 00000 03670 +0 00000 0 00000 03671 +0 00000 0 00000
03672 +0 00000 0 00000 03673 +0 00000 0 00000 03674 +0 00000 0 00000
V'S NRECS...NRECS(150)=0 267 LM00346
06003 +0 00000 0 00000 06004 +0 00000 0 00000 06005 +0 00000 0 00000 06006 +0 00000 0 00000
06007 +0 00000 0 00000 06010 +0 00000 0 00000 06011 +0 00000 0 00000 06012 +0 00000 0 00000
06013 +0 00000 0 00000 06014 +0 00000 0 00000 06015 +0 00000 0 00000 06016 +0 00000 0 00000
06017 +0 00000 0 00000 06020 +0 00000 0 00000 06021 +0 00000 0 00000 06022 +0 00000 0 00000
06023 +0 00000 0 00000 06024 +0 00000 0 00000 06025 +0 00000 0 00000 06026 +0 00000 0 00000
06027 +0 00000 0 00000 06030 +0 00000 0 00000 06031 +0 00000 0 00000 06032 +0 00000 0 00000
06033 +0 00000 0 00000 06034 +0 00000 0 00000 06035 +0 00000 0 00000 06036 +0 00000 0 00000
06037 +0 00000 0 00000 06040 +0 00000 0 00000 06041 +0 00000 0 00000 06042 +0 00000 0 00000
06043 +0 00000 0 00000 06044 +0 00000 0 00000 06045 +0 00000 0 00000 06046 +0 00000 0 00000
06047 +0 00000 0 00000 06050 +0 00000 0 00000 06051 +0 00000 0 00000 06052 +0 00000 0 00000
06053 +0 00000 0 00000 06054 +0 00000 0 00000 06055 +0 00000 0 00000 06056 +0 00000 0 00000
06057 +0 00000 0 00000 06060 +0 00000 0 00000 06061 +0 00000 0 00000 06062 +0 00000 0 00000
06063 +0 00000 0 00000 06064 +0 00000 0 00000 06065 +0 00000 0 00000 06066 +0 00000 0 00000
06067 +0 00000 0 00000 06070 +0 00000 0 00000 06071 +0 00000 0 00000 06072 +0 00000 0 00000
06073 +0 00000 0 00000 06074 +0 00000 0 00000 06075 +0 00000 0 00000 06076 +0 00000 0 00000
06077 +0 00000 0 00000 06100 +0 00000 0 00000 06101 +0 00000 0 00000 06102 +0 00000 0 00000
06103 +0 00000 0 00000 06104 +0 00000 0 00000 06105 +0 00000 0 00000 06106 +0 00000 0 00000
06107 +0 00000 0 00000 06110 +0 00000 0 00000 06111 +0 00000 0 00000 06112 +0 00000 0 00000
06113 +0 00000 0 00000 06114 +0 00000 0 00000 06115 +0 00000 0 00000 06116 +0 00000 0 00000
06117 +0 00000 0 00000 06120 +0 00000 0 00000 06121 +0 00000 0 00000 06122 +0 00000 0 00000
06123 +0 00000 0 00000 06124 +0 00000 0 00000 06125 +0 00000 0 00000 06126 +0 00000 0 00000
06127 +0 00000 0 00000 06130 +0 00000 0 00000 06131 +0 00000 0 00000 06132 +0 00000 0 00000
06133 +0 00000 0 00000 06134 +0 00000 0 00000 06135 +0 00000 0 00000 06136 +0 00000 0 00000
06137 +0 00000 0 00000 06140 +0 00000 0 00000 06141 +0 00000 0 00000 06142 +0 00000 0 00000
06143 +0 00000 0 00000 06144 +0 00000 0 00000 06145 +0 00000 0 00000 06146 +0 00000 0 00000
06147 +0 00000 0 00000 06150 +0 00000 0 00000 06151 +0 00000 0 00000 06152 +0 00000 0 00000
06153 +0 00000 0 00000 06154 +0 00000 0 00000 06155 +0 00000 0 00000 06156 +0 00000 0 00000
06157 +0 00000 0 00000 06160 +0 00000 0 00000 06161 +0 00000 0 00000 06162 +0 00000 0 00000
06163 +0 00000 0 00000 06164 +0 00000 0 00000 06165 +0 00000 0 00000 06166 +0 00000 0 00000
06167 +0 00000 0 00000 06170 +0 00000 0 00000 06171 +0 00000 0 00000 06172 +0 00000 0 00000
06173 +0 00000 0 00000 06174 +0 00000 0 00000 06175 +0 00000 0 00000 06176 +0 00000 0 00000
06177 +0 00000 0 00000 06200 +0 00000 0 00000 06201 +0 00000 0 00000 06202 +0 00000 0 00000
06203 +0 00000 0 00000 06204 +0 00000 0 00000 06205 +0 00000 0 00000 06206 +0 00000 0 00000
06207 +0 00000 0 00000 06210 +0 00000 0 00000 06211 +0 00000 0 00000 06212 +0 00000 0 00000
06213 +0 00000 0 00000 06214 +0 00000 0 00000 06215 +0 00000 0 00000 06216 +0 00000 0 00000
06217 +0 00000 0 00000 06220 +0 00000 0 00000 06221 +0 00000 0 00000 06222 +0 00000 0 00000
06223 +0 00000 0 00000 06224 +0 00000 0 00000 06225 +0 00000 0 00000 06226 +0 00000 0 00000
06227 +0 00000 0 00000 06230 +0 00000 0 00000 06231 +0 00000 0 00000
V'S CLASS...CLASS(150)=0 268 LM00347
02716 +0 00000 0 00000 02717 +0 00000 0 00000 02720 +0 00000 0 00000 02721 +0 00000 0 00000
02722 +0 00000 0 00000 02723 +0 00000 0 00000 02724 +0 00000 0 00000 02725 +0 00000 0 00000
02726 +0 00000 0 00000 02727 +0 00000 0 00000 02730 +0 00000 0 00000 02731 +0 00000 0 00000
02732 +0 00000 0 00000 02733 +0 00000 0 00000 02734 +0 00000 0 00000 02735 +0 00000 0 00000
02736 +0 00000 0 00000 02737 +0 00000 0 00000 02740 +0 00000 0 00000 02741 +0 00000 0 00000
02742 +0 00000 0 00000 02743 +0 00000 0 00000 02744 +0 00000 0 00000 02745 +0 00000 0 00000
02746 +0 00000 0 00000 02747 +0 00000 0 00000 02750 +0 00000 0 00000 02751 +0 00000 0 00000
02752 +0 00000 0 00000 02753 +0 00000 0 00000 02754 +0 00000 0 00000 02755 +0 00000 0 00000
02756 +0 00000 0 00000 02757 +0 00000 0 00000 02760 +0 00000 0 00000 02761 +0 00000 0 00000
02762 +0 00000 0 00000 02763 +0 00000 0 00000 02764 +0 00000 0 00000 02765 +0 00000 0 00000
02766 +0 00000 0 00000 02767 +0 00000 0 00000 02770 +0 00000 0 00000 02771 +0 00000 0 00000
02772 +0 00000 0 00000 02773 +0 00000 0 00000 02774 +0 00000 0 00000 02775 +0 00000 0 00000
02776 +0 00000 0 00000 02777 +0 00000 0 00000 03000 +0 00000 0 00000 03001 +0 00000 0 00000
03002 +0 00000 0 00000 03003 +0 00000 0 00000 03004 +0 00000 0 00000 03005 +0 00000 0 00000
03006 +0 00000 0 00000 03007 +0 00000 0 00000 03010 +0 00000 0 00000 03011 +0 00000 0 00000
03012 +0 00000 0 00000 03013 +0 00000 0 00000 03014 +0 00000 0 00000 03015 +0 00000 0 00000
03016 +0 00000 0 00000 03017 +0 00000 0 00000 03020 +0 00000 0 00000 03021 +0 00000 0 00000
03022 +0 00000 0 00000 03023 +0 00000 0 00000 03024 +0 00000 0 00000 03025 +0 00000 0 00000
03026 +0 00000 0 00000 03027 +0 00000 0 00000 03030 +0 00000 0 00000 03031 +0 00000 0 00000
03032 +0 00000 0 00000 03033 +0 00000 0 00000 03034 +0 00000 0 00000 03035 +0 00000 0 00000
03036 +0 00000 0 00000 03037 +0 00000 0 00000 03040 +0 00000 0 00000 03041 +0 00000 0 00000
03042 +0 00000 0 00000 03043 +0 00000 0 00000 03044 +0 00000 0 00000 03045 +0 00000 0 00000
03046 +0 00000 0 00000 03047 +0 00000 0 00000 03050 +0 00000 0 00000 03051 +0 00000 0 00000
03052 +0 00000 0 00000 03053 +0 00000 0 00000 03054 +0 00000 0 00000 03055 +0 00000 0 00000
03056 +0 00000 0 00000 03057 +0 00000 0 00000 03060 +0 00000 0 00000 03061 +0 00000 0 00000
03062 +0 00000 0 00000 03063 +0 00000 0 00000 03064 +0 00000 0 00000 03065 +0 00000 0 00000
03066 +0 00000 0 00000 03067 +0 00000 0 00000 03070 +0 00000 0 00000 03071 +0 00000 0 00000
03072 +0 00000 0 00000 03073 +0 00000 0 00000 03074 +0 00000 0 00000 03075 +0 00000 0 00000
03076 +0 00000 0 00000 03077 +0 00000 0 00000 03100 +0 00000 0 00000 03101 +0 00000 0 00000
03102 +0 00000 0 00000 03103 +0 00000 0 00000 03104 +0 00000 0 00000 03105 +0 00000 0 00000
03106 +0 00000 0 00000 03107 +0 00000 0 00000 03110 +0 00000 0 00000 03111 +0 00000 0 00000
03112 +0 00000 0 00000 03113 +0 00000 0 00000 03114 +0 00000 0 00000 03115 +0 00000 0 00000
03116 +0 00000 0 00000 03117 +0 00000 0 00000 03120 +0 00000 0 00000 03121 +0 00000 0 00000
03122 +0 00000 0 00000 03123 +0 00000 0 00000 03124 +0 00000 0 00000 03125 +0 00000 0 00000
03126 +0 00000 0 00000 03127 +0 00000 0 00000 03130 +0 00000 0 00000 03131 +0 00000 0 00000
03132 +0 00000 0 00000 03133 +0 00000 0 00000 03134 +0 00000 0 00000 03135 +0 00000 0 00000
03136 +0 00000 0 00000 03137 +0 00000 0 00000 03140 +0 00000 0 00000 03141 +0 00000 0 00000
03142 +0 00000 0 00000 03143 +0 00000 0 00000 03144 +0 00000 0 00000
V'S COUNTL...COUNTL(150)=0 269 LM00348
03217 +0 00000 0 00000 03220 +0 00000 0 00000 03221 +0 00000 0 00000 03222 +0 00000 0 00000
03223 +0 00000 0 00000 03224 +0 00000 0 00000 03225 +0 00000 0 00000 03226 +0 00000 0 00000
03227 +0 00000 0 00000 03230 +0 00000 0 00000 03231 +0 00000 0 00000 03232 +0 00000 0 00000
03233 +0 00000 0 00000 03234 +0 00000 0 00000 03235 +0 00000 0 00000 03236 +0 00000 0 00000
03237 +0 00000 0 00000 03240 +0 00000 0 00000 03241 +0 00000 0 00000 03242 +0 00000 0 00000
03243 +0 00000 0 00000 03244 +0 00000 0 00000 03245 +0 00000 0 00000 03246 +0 00000 0 00000
03247 +0 00000 0 00000 03250 +0 00000 0 00000 03251 +0 00000 0 00000 03252 +0 00000 0 00000
03253 +0 00000 0 00000 03254 +0 00000 0 00000 03255 +0 00000 0 00000 03256 +0 00000 0 00000
03257 +0 00000 0 00000 03260 +0 00000 0 00000 03261 +0 00000 0 00000 03262 +0 00000 0 00000
03263 +0 00000 0 00000 03264 +0 00000 0 00000 03265 +0 00000 0 00000 03266 +0 00000 0 00000
03267 +0 00000 0 00000 03270 +0 00000 0 00000 03271 +0 00000 0 00000 03272 +0 00000 0 00000
03273 +0 00000 0 00000 03274 +0 00000 0 00000 03275 +0 00000 0 00000 03276 +0 00000 0 00000
03277 +0 00000 0 00000 03300 +0 00000 0 00000 03301 +0 00000 0 00000 03302 +0 00000 0 00000
03303 +0 00000 0 00000 03304 +0 00000 0 00000 03305 +0 00000 0 00000 03306 +0 00000 0 00000
03307 +0 00000 0 00000 03310 +0 00000 0 00000 03311 +0 00000 0 00000 03312 +0 00000 0 00000
03313 +0 00000 0 00000 03314 +0 00000 0 00000 03315 +0 00000 0 00000 03316 +0 00000 0 00000
03317 +0 00000 0 00000 03320 +0 00000 0 00000 03321 +0 00000 0 00000 03322 +0 00000 0 00000
03323 +0 00000 0 00000 03324 +0 00000 0 00000 03325 +0 00000 0 00000 03326 +0 00000 0 00000
03327 +0 00000 0 00000 03330 +0 00000 0 00000 03331 +0 00000 0 00000 03332 +0 00000 0 00000
03333 +0 00000 0 00000 03334 +0 00000 0 00000 03335 +0 00000 0 00000 03336 +0 00000 0 00000
03337 +0 00000 0 00000 03340 +0 00000 0 00000 03341 +0 00000 0 00000 03342 +0 00000 0 00000
03343 +0 00000 0 00000 03344 +0 00000 0 00000 03345 +0 00000 0 00000 03346 +0 00000 0 00000
03347 +0 00000 0 00000 03350 +0 00000 0 00000 03351 +0 00000 0 00000 03352 +0 00000 0 00000
03353 +0 00000 0 00000 03354 +0 00000 0 00000 03355 +0 00000 0 00000 03356 +0 00000 0 00000
03357 +0 00000 0 00000 03360 +0 00000 0 00000 03361 +0 00000 0 00000 03362 +0 00000 0 00000
03363 +0 00000 0 00000 03364 +0 00000 0 00000 03365 +0 00000 0 00000 03366 +0 00000 0 00000
03367 +0 00000 0 00000 03370 +0 00000 0 00000 03371 +0 00000 0 00000 03372 +0 00000 0 00000
03373 +0 00000 0 00000 03374 +0 00000 0 00000 03375 +0 00000 0 00000 03376 +0 00000 0 00000
03377 +0 00000 0 00000 03400 +0 00000 0 00000 03401 +0 00000 0 00000 03402 +0 00000 0 00000
03403 +0 00000 0 00000 03404 +0 00000 0 00000 03405 +0 00000 0 00000 03406 +0 00000 0 00000
03407 +0 00000 0 00000 03410 +0 00000 0 00000 03411 +0 00000 0 00000 03412 +0 00000 0 00000
03413 +0 00000 0 00000 03414 +0 00000 0 00000 03415 +0 00000 0 00000 03416 +0 00000 0 00000
03417 +0 00000 0 00000 03420 +0 00000 0 00000 03421 +0 00000 0 00000 03422 +0 00000 0 00000
03423 +0 00000 0 00000 03424 +0 00000 0 00000 03425 +0 00000 0 00000 03426 +0 00000 0 00000
03427 +0 00000 0 00000 03430 +0 00000 0 00000 03431 +0 00000 0 00000 03432 +0 00000 0 00000
03433 +0 00000 0 00000 03434 +0 00000 0 00000 03435 +0 00000 0 00000 03436 +0 00000 0 00000
03437 +0 00000 0 00000 03440 +0 00000 0 00000 03441 +0 00000 0 00000 03442 +0 00000 0 00000
03443 +0 00000 0 00000 03444 +0 00000 0 00000 03445 +0 00000 0 00000
V'S NAME1...NAME1(150)=$OTHER$ 270 LM00349
05324 -0 66330 2 55160 05325 -0 66330 2 55160 05326 -0 66330 2 55160 05327 -0 66330 2 55160
05330 -0 66330 2 55160 05331 -0 66330 2 55160 05332 -0 66330 2 55160 05333 -0 66330 2 55160
05334 -0 66330 2 55160 05335 -0 66330 2 55160 05336 -0 66330 2 55160 05337 -0 66330 2 55160
05340 -0 66330 2 55160 05341 -0 66330 2 55160 05342 -0 66330 2 55160 05343 -0 66330 2 55160
05344 -0 66330 2 55160 05345 -0 66330 2 55160 05346 -0 66330 2 55160 05347 -0 66330 2 55160
05350 -0 66330 2 55160 05351 -0 66330 2 55160 05352 -0 66330 2 55160 05353 -0 66330 2 55160
05354 -0 66330 2 55160 05355 -0 66330 2 55160 05356 -0 66330 2 55160 05357 -0 66330 2 55160
05360 -0 66330 2 55160 05361 -0 66330 2 55160 05362 -0 66330 2 55160 05363 -0 66330 2 55160
05364 -0 66330 2 55160 05365 -0 66330 2 55160 05366 -0 66330 2 55160 05367 -0 66330 2 55160
05370 -0 66330 2 55160 05371 -0 66330 2 55160 05372 -0 66330 2 55160 05373 -0 66330 2 55160
05374 -0 66330 2 55160 05375 -0 66330 2 55160 05376 -0 66330 2 55160 05377 -0 66330 2 55160
05400 -0 66330 2 55160 05401 -0 66330 2 55160 05402 -0 66330 2 55160 05403 -0 66330 2 55160
05404 -0 66330 2 55160 05405 -0 66330 2 55160 05406 -0 66330 2 55160 05407 -0 66330 2 55160
05410 -0 66330 2 55160 05411 -0 66330 2 55160 05412 -0 66330 2 55160 05413 -0 66330 2 55160
05414 -0 66330 2 55160 05415 -0 66330 2 55160 05416 -0 66330 2 55160 05417 -0 66330 2 55160
05420 -0 66330 2 55160 05421 -0 66330 2 55160 05422 -0 66330 2 55160 05423 -0 66330 2 55160
05424 -0 66330 2 55160 05425 -0 66330 2 55160 05426 -0 66330 2 55160 05427 -0 66330 2 55160
05430 -0 66330 2 55160 05431 -0 66330 2 55160 05432 -0 66330 2 55160 05433 -0 66330 2 55160
05434 -0 66330 2 55160 05435 -0 66330 2 55160 05436 -0 66330 2 55160 05437 -0 66330 2 55160
05440 -0 66330 2 55160 05441 -0 66330 2 55160 05442 -0 66330 2 55160 05443 -0 66330 2 55160
05444 -0 66330 2 55160 05445 -0 66330 2 55160 05446 -0 66330 2 55160 05447 -0 66330 2 55160
05450 -0 66330 2 55160 05451 -0 66330 2 55160 05452 -0 66330 2 55160 05453 -0 66330 2 55160
05454 -0 66330 2 55160 05455 -0 66330 2 55160 05456 -0 66330 2 55160 05457 -0 66330 2 55160
05460 -0 66330 2 55160 05461 -0 66330 2 55160 05462 -0 66330 2 55160 05463 -0 66330 2 55160
05464 -0 66330 2 55160 05465 -0 66330 2 55160 05466 -0 66330 2 55160 05467 -0 66330 2 55160
05470 -0 66330 2 55160 05471 -0 66330 2 55160 05472 -0 66330 2 55160 05473 -0 66330 2 55160
05474 -0 66330 2 55160 05475 -0 66330 2 55160 05476 -0 66330 2 55160 05477 -0 66330 2 55160
05500 -0 66330 2 55160 05501 -0 66330 2 55160 05502 -0 66330 2 55160 05503 -0 66330 2 55160
05504 -0 66330 2 55160 05505 -0 66330 2 55160 05506 -0 66330 2 55160 05507 -0 66330 2 55160
05510 -0 66330 2 55160 05511 -0 66330 2 55160 05512 -0 66330 2 55160 05513 -0 66330 2 55160
05514 -0 66330 2 55160 05515 -0 66330 2 55160 05516 -0 66330 2 55160 05517 -0 66330 2 55160
05520 -0 66330 2 55160 05521 -0 66330 2 55160 05522 -0 66330 2 55160 05523 -0 66330 2 55160
05524 -0 66330 2 55160 05525 -0 66330 2 55160 05526 -0 66330 2 55160 05527 -0 66330 2 55160
05530 -0 66330 2 55160 05531 -0 66330 2 55160 05532 -0 66330 2 55160 05533 -0 66330 2 55160
05534 -0 66330 2 55160 05535 -0 66330 2 55160 05536 -0 66330 2 55160 05537 -0 66330 2 55160
05540 -0 66330 2 55160 05541 -0 66330 2 55160 05542 -0 66330 2 55160 05543 -0 66330 2 55160
05544 -0 66330 2 55160 05545 -0 66330 2 55160 05546 -0 66330 2 55160 05547 -0 66330 2 55160
05550 -0 66330 2 55160 05551 -0 66330 2 55160 05552 -0 66330 2 55160
V'S NAME2 ...NAME2 (150)=$FILES$ 271 LM00350
05553 +2 63143 2 56260 05554 +2 63143 2 56260 05555 +2 63143 2 56260 05556 +2 63143 2 56260
05557 +2 63143 2 56260 05560 +2 63143 2 56260 05561 +2 63143 2 56260 05562 +2 63143 2 56260
05563 +2 63143 2 56260 05564 +2 63143 2 56260 05565 +2 63143 2 56260 05566 +2 63143 2 56260
05567 +2 63143 2 56260 05570 +2 63143 2 56260 05571 +2 63143 2 56260 05572 +2 63143 2 56260
05573 +2 63143 2 56260 05574 +2 63143 2 56260 05575 +2 63143 2 56260 05576 +2 63143 2 56260
05577 +2 63143 2 56260 05600 +2 63143 2 56260 05601 +2 63143 2 56260 05602 +2 63143 2 56260
05603 +2 63143 2 56260 05604 +2 63143 2 56260 05605 +2 63143 2 56260 05606 +2 63143 2 56260
05607 +2 63143 2 56260 05610 +2 63143 2 56260 05611 +2 63143 2 56260 05612 +2 63143 2 56260
05613 +2 63143 2 56260 05614 +2 63143 2 56260 05615 +2 63143 2 56260 05616 +2 63143 2 56260
05617 +2 63143 2 56260 05620 +2 63143 2 56260 05621 +2 63143 2 56260 05622 +2 63143 2 56260
05623 +2 63143 2 56260 05624 +2 63143 2 56260 05625 +2 63143 2 56260 05626 +2 63143 2 56260
05627 +2 63143 2 56260 05630 +2 63143 2 56260 05631 +2 63143 2 56260 05632 +2 63143 2 56260
05633 +2 63143 2 56260 05634 +2 63143 2 56260 05635 +2 63143 2 56260 05636 +2 63143 2 56260
05637 +2 63143 2 56260 05640 +2 63143 2 56260 05641 +2 63143 2 56260 05642 +2 63143 2 56260
05643 +2 63143 2 56260 05644 +2 63143 2 56260 05645 +2 63143 2 56260 05646 +2 63143 2 56260
05647 +2 63143 2 56260 05650 +2 63143 2 56260 05651 +2 63143 2 56260 05652 +2 63143 2 56260
05653 +2 63143 2 56260 05654 +2 63143 2 56260 05655 +2 63143 2 56260 05656 +2 63143 2 56260
05657 +2 63143 2 56260 05660 +2 63143 2 56260 05661 +2 63143 2 56260 05662 +2 63143 2 56260
05663 +2 63143 2 56260 05664 +2 63143 2 56260 05665 +2 63143 2 56260 05666 +2 63143 2 56260
05667 +2 63143 2 56260 05670 +2 63143 2 56260 05671 +2 63143 2 56260 05672 +2 63143 2 56260
05673 +2 63143 2 56260 05674 +2 63143 2 56260 05675 +2 63143 2 56260 05676 +2 63143 2 56260
05677 +2 63143 2 56260 05700 +2 63143 2 56260 05701 +2 63143 2 56260 05702 +2 63143 2 56260
05703 +2 63143 2 56260 05704 +2 63143 2 56260 05705 +2 63143 2 56260 05706 +2 63143 2 56260
05707 +2 63143 2 56260 05710 +2 63143 2 56260 05711 +2 63143 2 56260 05712 +2 63143 2 56260
05713 +2 63143 2 56260 05714 +2 63143 2 56260 05715 +2 63143 2 56260 05716 +2 63143 2 56260
05717 +2 63143 2 56260 05720 +2 63143 2 56260 05721 +2 63143 2 56260 05722 +2 63143 2 56260
05723 +2 63143 2 56260 05724 +2 63143 2 56260 05725 +2 63143 2 56260 05726 +2 63143 2 56260
05727 +2 63143 2 56260 05730 +2 63143 2 56260 05731 +2 63143 2 56260 05732 +2 63143 2 56260
05733 +2 63143 2 56260 05734 +2 63143 2 56260 05735 +2 63143 2 56260 05736 +2 63143 2 56260
05737 +2 63143 2 56260 05740 +2 63143 2 56260 05741 +2 63143 2 56260 05742 +2 63143 2 56260
05743 +2 63143 2 56260 05744 +2 63143 2 56260 05745 +2 63143 2 56260 05746 +2 63143 2 56260
05747 +2 63143 2 56260 05750 +2 63143 2 56260 05751 +2 63143 2 56260 05752 +2 63143 2 56260
05753 +2 63143 2 56260 05754 +2 63143 2 56260 05755 +2 63143 2 56260 05756 +2 63143 2 56260
05757 +2 63143 2 56260 05760 +2 63143 2 56260 05761 +2 63143 2 56260 05762 +2 63143 2 56260
05763 +2 63143 2 56260 05764 +2 63143 2 56260 05765 +2 63143 2 56260 05766 +2 63143 2 56260
05767 +2 63143 2 56260 05770 +2 63143 2 56260 05771 +2 63143 2 56260 05772 +2 63143 2 56260
05773 +2 63143 2 56260 05774 +2 63143 2 56260 05775 +2 63143 2 56260 05776 +2 63143 2 56260
05777 +2 63143 2 56260 06000 +2 63143 2 56260 06001 +2 63143 2 56260
V'S MASK1 ...MASK1 (150)=777777777777K 272 LM00351
04560 -3 77777 7 77777 04561 -3 77777 7 77777 04562 -3 77777 7 77777 04563 -3 77777 7 77777
04564 -3 77777 7 77777 04565 -3 77777 7 77777 04566 -3 77777 7 77777 04567 -3 77777 7 77777
04570 -3 77777 7 77777 04571 -3 77777 7 77777 04572 -3 77777 7 77777 04573 -3 77777 7 77777
04574 -3 77777 7 77777 04575 -3 77777 7 77777 04576 -3 77777 7 77777 04577 -3 77777 7 77777
04600 -3 77777 7 77777 04601 -3 77777 7 77777 04602 -3 77777 7 77777 04603 -3 77777 7 77777
04604 -3 77777 7 77777 04605 -3 77777 7 77777 04606 -3 77777 7 77777 04607 -3 77777 7 77777
04610 -3 77777 7 77777 04611 -3 77777 7 77777 04612 -3 77777 7 77777 04613 -3 77777 7 77777
04614 -3 77777 7 77777 04615 -3 77777 7 77777 04616 -3 77777 7 77777 04617 -3 77777 7 77777
04620 -3 77777 7 77777 04621 -3 77777 7 77777 04622 -3 77777 7 77777 04623 -3 77777 7 77777
04624 -3 77777 7 77777 04625 -3 77777 7 77777 04626 -3 77777 7 77777 04627 -3 77777 7 77777
04630 -3 77777 7 77777 04631 -3 77777 7 77777 04632 -3 77777 7 77777 04633 -3 77777 7 77777
04634 -3 77777 7 77777 04635 -3 77777 7 77777 04636 -3 77777 7 77777 04637 -3 77777 7 77777
04640 -3 77777 7 77777 04641 -3 77777 7 77777 04642 -3 77777 7 77777 04643 -3 77777 7 77777
04644 -3 77777 7 77777 04645 -3 77777 7 77777 04646 -3 77777 7 77777 04647 -3 77777 7 77777
04650 -3 77777 7 77777 04651 -3 77777 7 77777 04652 -3 77777 7 77777 04653 -3 77777 7 77777
04654 -3 77777 7 77777 04655 -3 77777 7 77777 04656 -3 77777 7 77777 04657 -3 77777 7 77777
04660 -3 77777 7 77777 04661 -3 77777 7 77777 04662 -3 77777 7 77777 04663 -3 77777 7 77777
04664 -3 77777 7 77777 04665 -3 77777 7 77777 04666 -3 77777 7 77777 04667 -3 77777 7 77777
04670 -3 77777 7 77777 04671 -3 77777 7 77777 04672 -3 77777 7 77777 04673 -3 77777 7 77777
04674 -3 77777 7 77777 04675 -3 77777 7 77777 04676 -3 77777 7 77777 04677 -3 77777 7 77777
04700 -3 77777 7 77777 04701 -3 77777 7 77777 04702 -3 77777 7 77777 04703 -3 77777 7 77777
04704 -3 77777 7 77777 04705 -3 77777 7 77777 04706 -3 77777 7 77777 04707 -3 77777 7 77777
04710 -3 77777 7 77777 04711 -3 77777 7 77777 04712 -3 77777 7 77777 04713 -3 77777 7 77777
04714 -3 77777 7 77777 04715 -3 77777 7 77777 04716 -3 77777 7 77777 04717 -3 77777 7 77777
04720 -3 77777 7 77777 04721 -3 77777 7 77777 04722 -3 77777 7 77777 04723 -3 77777 7 77777
04724 -3 77777 7 77777 04725 -3 77777 7 77777 04726 -3 77777 7 77777 04727 -3 77777 7 77777
04730 -3 77777 7 77777 04731 -3 77777 7 77777 04732 -3 77777 7 77777 04733 -3 77777 7 77777
04734 -3 77777 7 77777 04735 -3 77777 7 77777 04736 -3 77777 7 77777 04737 -3 77777 7 77777
04740 -3 77777 7 77777 04741 -3 77777 7 77777 04742 -3 77777 7 77777 04743 -3 77777 7 77777
04744 -3 77777 7 77777 04745 -3 77777 7 77777 04746 -3 77777 7 77777 04747 -3 77777 7 77777
04750 -3 77777 7 77777 04751 -3 77777 7 77777 04752 -3 77777 7 77777 04753 -3 77777 7 77777
04754 -3 77777 7 77777 04755 -3 77777 7 77777 04756 -3 77777 7 77777 04757 -3 77777 7 77777
04760 -3 77777 7 77777 04761 -3 77777 7 77777 04762 -3 77777 7 77777 04763 -3 77777 7 77777
04764 -3 77777 7 77777 04765 -3 77777 7 77777 04766 -3 77777 7 77777 04767 -3 77777 7 77777
04770 -3 77777 7 77777 04771 -3 77777 7 77777 04772 -3 77777 7 77777 04773 -3 77777 7 77777
04774 -3 77777 7 77777 04775 -3 77777 7 77777 04776 -3 77777 7 77777 04777 -3 77777 7 77777
05000 -3 77777 7 77777 05001 -3 77777 7 77777 05002 -3 77777 7 77777 05003 -3 77777 7 77777
05004 -3 77777 7 77777 05005 -3 77777 7 77777 05006 -3 77777 7 77777
V'S MASK2 ...MASK2 (150) = 777777777777K 273 LM00352
05007 -3 77777 7 77777 05010 -3 77777 7 77777 05011 -3 77777 7 77777 05012 -3 77777 7 77777
05013 -3 77777 7 77777 05014 -3 77777 7 77777 05015 -3 77777 7 77777 05016 -3 77777 7 77777
05017 -3 77777 7 77777 05020 -3 77777 7 77777 05021 -3 77777 7 77777 05022 -3 77777 7 77777
05023 -3 77777 7 77777 05024 -3 77777 7 77777 05025 -3 77777 7 77777 05026 -3 77777 7 77777
05027 -3 77777 7 77777 05030 -3 77777 7 77777 05031 -3 77777 7 77777 05032 -3 77777 7 77777
05033 -3 77777 7 77777 05034 -3 77777 7 77777 05035 -3 77777 7 77777 05036 -3 77777 7 77777
05037 -3 77777 7 77777 05040 -3 77777 7 77777 05041 -3 77777 7 77777 05042 -3 77777 7 77777
05043 -3 77777 7 77777 05044 -3 77777 7 77777 05045 -3 77777 7 77777 05046 -3 77777 7 77777
05047 -3 77777 7 77777 05050 -3 77777 7 77777 05051 -3 77777 7 77777 05052 -3 77777 7 77777
05053 -3 77777 7 77777 05054 -3 77777 7 77777 05055 -3 77777 7 77777 05056 -3 77777 7 77777
05057 -3 77777 7 77777 05060 -3 77777 7 77777 05061 -3 77777 7 77777 05062 -3 77777 7 77777
05063 -3 77777 7 77777 05064 -3 77777 7 77777 05065 -3 77777 7 77777 05066 -3 77777 7 77777
05067 -3 77777 7 77777 05070 -3 77777 7 77777 05071 -3 77777 7 77777 05072 -3 77777 7 77777
05073 -3 77777 7 77777 05074 -3 77777 7 77777 05075 -3 77777 7 77777 05076 -3 77777 7 77777
05077 -3 77777 7 77777 05100 -3 77777 7 77777 05101 -3 77777 7 77777 05102 -3 77777 7 77777
05103 -3 77777 7 77777 05104 -3 77777 7 77777 05105 -3 77777 7 77777 05106 -3 77777 7 77777
05107 -3 77777 7 77777 05110 -3 77777 7 77777 05111 -3 77777 7 77777 05112 -3 77777 7 77777
05113 -3 77777 7 77777 05114 -3 77777 7 77777 05115 -3 77777 7 77777 05116 -3 77777 7 77777
05117 -3 77777 7 77777 05120 -3 77777 7 77777 05121 -3 77777 7 77777 05122 -3 77777 7 77777
05123 -3 77777 7 77777 05124 -3 77777 7 77777 05125 -3 77777 7 77777 05126 -3 77777 7 77777
05127 -3 77777 7 77777 05130 -3 77777 7 77777 05131 -3 77777 7 77777 05132 -3 77777 7 77777
05133 -3 77777 7 77777 05134 -3 77777 7 77777 05135 -3 77777 7 77777 05136 -3 77777 7 77777
05137 -3 77777 7 77777 05140 -3 77777 7 77777 05141 -3 77777 7 77777 05142 -3 77777 7 77777
05143 -3 77777 7 77777 05144 -3 77777 7 77777 05145 -3 77777 7 77777 05146 -3 77777 7 77777
05147 -3 77777 7 77777 05150 -3 77777 7 77777 05151 -3 77777 7 77777 05152 -3 77777 7 77777
05153 -3 77777 7 77777 05154 -3 77777 7 77777 05155 -3 77777 7 77777 05156 -3 77777 7 77777
05157 -3 77777 7 77777 05160 -3 77777 7 77777 05161 -3 77777 7 77777 05162 -3 77777 7 77777
05163 -3 77777 7 77777 05164 -3 77777 7 77777 05165 -3 77777 7 77777 05166 -3 77777 7 77777
05167 -3 77777 7 77777 05170 -3 77777 7 77777 05171 -3 77777 7 77777 05172 -3 77777 7 77777
05173 -3 77777 7 77777 05174 -3 77777 7 77777 05175 -3 77777 7 77777 05176 -3 77777 7 77777
05177 -3 77777 7 77777 05200 -3 77777 7 77777 05201 -3 77777 7 77777 05202 -3 77777 7 77777
05203 -3 77777 7 77777 05204 -3 77777 7 77777 05205 -3 77777 7 77777 05206 -3 77777 7 77777
05207 -3 77777 7 77777 05210 -3 77777 7 77777 05211 -3 77777 7 77777 05212 -3 77777 7 77777
05213 -3 77777 7 77777 05214 -3 77777 7 77777 05215 -3 77777 7 77777 05216 -3 77777 7 77777
05217 -3 77777 7 77777 05220 -3 77777 7 77777 05221 -3 77777 7 77777 05222 -3 77777 7 77777
05223 -3 77777 7 77777 05224 -3 77777 7 77777 05225 -3 77777 7 77777 05226 -3 77777 7 77777
05227 -3 77777 7 77777 05230 -3 77777 7 77777 05231 -3 77777 7 77777 05232 -3 77777 7 77777
05233 -3 77777 7 77777 05234 -3 77777 7 77777 05235 -3 77777 7 77777
V'S CCOUNL...CCOUNL(20)=0 274 LM00353
02510 +0 00000 0 00000 02511 +0 00000 0 00000 02512 +0 00000 0 00000 02513 +0 00000 0 00000
02514 +0 00000 0 00000 02515 +0 00000 0 00000 02516 +0 00000 0 00000 02517 +0 00000 0 00000
02520 +0 00000 0 00000 02521 +0 00000 0 00000 02522 +0 00000 0 00000 02523 +0 00000 0 00000
02524 +0 00000 0 00000 02525 +0 00000 0 00000 02526 +0 00000 0 00000 02527 +0 00000 0 00000
02530 +0 00000 0 00000 02531 +0 00000 0 00000 02532 +0 00000 0 00000 02533 +0 00000 0 00000
02534 +0 00000 0 00000
V'S CCOUNT...CCOUNT(20)=0 275 LM00354
02535 +0 00000 0 00000 02536 +0 00000 0 00000 02537 +0 00000 0 00000 02540 +0 00000 0 00000
02541 +0 00000 0 00000 02542 +0 00000 0 00000 02543 +0 00000 0 00000 02544 +0 00000 0 00000
02545 +0 00000 0 00000 02546 +0 00000 0 00000 02547 +0 00000 0 00000 02550 +0 00000 0 00000
02551 +0 00000 0 00000 02552 +0 00000 0 00000 02553 +0 00000 0 00000 02554 +0 00000 0 00000
02555 +0 00000 0 00000 02556 +0 00000 0 00000 02557 +0 00000 0 00000 02560 +0 00000 0 00000
02561 +0 00000 0 00000
V'S CNRECS...CNRECS(20)=0 276 LM00355
03172 +0 00000 0 00000 03173 +0 00000 0 00000 03174 +0 00000 0 00000 03175 +0 00000 0 00000
03176 +0 00000 0 00000 03177 +0 00000 0 00000 03200 +0 00000 0 00000 03201 +0 00000 0 00000
03202 +0 00000 0 00000 03203 +0 00000 0 00000 03204 +0 00000 0 00000 03205 +0 00000 0 00000
03206 +0 00000 0 00000 03207 +0 00000 0 00000 03210 +0 00000 0 00000 03211 +0 00000 0 00000
03212 +0 00000 0 00000 03213 +0 00000 0 00000 03214 +0 00000 0 00000 03215 +0 00000 0 00000
03216 +0 00000 0 00000
V'S CLNAME...CLNAME(20)=$OTHER$ 277 LM00356
03145 -0 66330 2 55160 03146 -0 66330 2 55160 03147 -0 66330 2 55160 03150 -0 66330 2 55160
03151 -0 66330 2 55160 03152 -0 66330 2 55160 03153 -0 66330 2 55160 03154 -0 66330 2 55160
03155 -0 66330 2 55160 03156 -0 66330 2 55160 03157 -0 66330 2 55160 03160 -0 66330 2 55160
03161 -0 66330 2 55160 03162 -0 66330 2 55160 03163 -0 66330 2 55160 03164 -0 66330 2 55160
03165 -0 66330 2 55160 03166 -0 66330 2 55160 03167 -0 66330 2 55160 03170 -0 66330 2 55160
03171 -0 66330 2 55160
V'S MAX=1 278 LM00357
05236 +0 00000 0 00001
V'S MXCLS=0 279 LM00358
05321 +0 00000 0 00000
V'S FTBL...FTBL(91) = 0 280 LM00361
04353 +0 00000 0 00000 04354 +0 00000 0 00000 04355 +0 00000 0 00000 04356 +0 00000 0 00000
04357 +0 00000 0 00000 04360 +0 00000 0 00000 04361 +0 00000 0 00000 04362 +0 00000 0 00000
04363 +0 00000 0 00000 04364 +0 00000 0 00000 04365 +0 00000 0 00000 04366 +0 00000 0 00000
04367 +0 00000 0 00000 04370 +0 00000 0 00000 04371 +0 00000 0 00000 04372 +0 00000 0 00000
04373 +0 00000 0 00000 04374 +0 00000 0 00000 04375 +0 00000 0 00000 04376 +0 00000 0 00000
04377 +0 00000 0 00000 04400 +0 00000 0 00000 04401 +0 00000 0 00000 04402 +0 00000 0 00000
04403 +0 00000 0 00000 04404 +0 00000 0 00000 04405 +0 00000 0 00000 04406 +0 00000 0 00000
04407 +0 00000 0 00000 04410 +0 00000 0 00000 04411 +0 00000 0 00000 04412 +0 00000 0 00000
04413 +0 00000 0 00000 04414 +0 00000 0 00000 04415 +0 00000 0 00000 04416 +0 00000 0 00000
04417 +0 00000 0 00000 04420 +0 00000 0 00000 04421 +0 00000 0 00000 04422 +0 00000 0 00000
04423 +0 00000 0 00000 04424 +0 00000 0 00000 04425 +0 00000 0 00000 04426 +0 00000 0 00000
04427 +0 00000 0 00000 04430 +0 00000 0 00000 04431 +0 00000 0 00000 04432 +0 00000 0 00000
04433 +0 00000 0 00000 04434 +0 00000 0 00000 04435 +0 00000 0 00000 04436 +0 00000 0 00000
04437 +0 00000 0 00000 04440 +0 00000 0 00000 04441 +0 00000 0 00000 04442 +0 00000 0 00000
04443 +0 00000 0 00000 04444 +0 00000 0 00000 04445 +0 00000 0 00000 04446 +0 00000 0 00000
04447 +0 00000 0 00000 04450 +0 00000 0 00000 04451 +0 00000 0 00000 04452 +0 00000 0 00000
04453 +0 00000 0 00000 04454 +0 00000 0 00000 04455 +0 00000 0 00000 04456 +0 00000 0 00000
04457 +0 00000 0 00000 04460 +0 00000 0 00000 04461 +0 00000 0 00000 04462 +0 00000 0 00000
04463 +0 00000 0 00000 04464 +0 00000 0 00000 04465 +0 00000 0 00000 04466 +0 00000 0 00000
04467 +0 00000 0 00000 04470 +0 00000 0 00000 04471 +0 00000 0 00000 04472 +0 00000 0 00000
04473 +0 00000 0 00000 04474 +0 00000 0 00000 04475 +0 00000 0 00000 04476 +0 00000 0 00000
04477 +0 00000 0 00000 04500 +0 00000 0 00000 04501 +0 00000 0 00000 04502 +0 00000 0 00000
04503 +0 00000 0 00000 04504 +0 00000 0 00000 04505 +0 00000 0 00000 04506 +0 00000 0 00000
V'S RTBL...RTBL(91) = 0 281 LM00362
06242 +0 00000 0 00000 06243 +0 00000 0 00000 06244 +0 00000 0 00000 06245 +0 00000 0 00000
06246 +0 00000 0 00000 06247 +0 00000 0 00000 06250 +0 00000 0 00000 06251 +0 00000 0 00000
06252 +0 00000 0 00000 06253 +0 00000 0 00000 06254 +0 00000 0 00000 06255 +0 00000 0 00000
06256 +0 00000 0 00000 06257 +0 00000 0 00000 06260 +0 00000 0 00000 06261 +0 00000 0 00000
06262 +0 00000 0 00000 06263 +0 00000 0 00000 06264 +0 00000 0 00000 06265 +0 00000 0 00000
06266 +0 00000 0 00000 06267 +0 00000 0 00000 06270 +0 00000 0 00000 06271 +0 00000 0 00000
06272 +0 00000 0 00000 06273 +0 00000 0 00000 06274 +0 00000 0 00000 06275 +0 00000 0 00000
06276 +0 00000 0 00000 06277 +0 00000 0 00000 06300 +0 00000 0 00000 06301 +0 00000 0 00000
06302 +0 00000 0 00000 06303 +0 00000 0 00000 06304 +0 00000 0 00000 06305 +0 00000 0 00000
06306 +0 00000 0 00000 06307 +0 00000 0 00000 06310 +0 00000 0 00000 06311 +0 00000 0 00000
06312 +0 00000 0 00000 06313 +0 00000 0 00000 06314 +0 00000 0 00000 06315 +0 00000 0 00000
06316 +0 00000 0 00000 06317 +0 00000 0 00000 06320 +0 00000 0 00000 06321 +0 00000 0 00000
06322 +0 00000 0 00000 06323 +0 00000 0 00000 06324 +0 00000 0 00000 06325 +0 00000 0 00000
06326 +0 00000 0 00000 06327 +0 00000 0 00000 06330 +0 00000 0 00000 06331 +0 00000 0 00000
06332 +0 00000 0 00000 06333 +0 00000 0 00000 06334 +0 00000 0 00000 06335 +0 00000 0 00000
06336 +0 00000 0 00000 06337 +0 00000 0 00000 06340 +0 00000 0 00000 06341 +0 00000 0 00000
06342 +0 00000 0 00000 06343 +0 00000 0 00000 06344 +0 00000 0 00000 06345 +0 00000 0 00000
06346 +0 00000 0 00000 06347 +0 00000 0 00000 06350 +0 00000 0 00000 06351 +0 00000 0 00000
06352 +0 00000 0 00000 06353 +0 00000 0 00000 06354 +0 00000 0 00000 06355 +0 00000 0 00000
06356 +0 00000 0 00000 06357 +0 00000 0 00000 06360 +0 00000 0 00000 06361 +0 00000 0 00000
06362 +0 00000 0 00000 06363 +0 00000 0 00000 06364 +0 00000 0 00000 06365 +0 00000 0 00000
06366 +0 00000 0 00000 06367 +0 00000 0 00000 06370 +0 00000 0 00000 06371 +0 00000 0 00000
06372 +0 00000 0 00000 06373 +0 00000 0 00000 06374 +0 00000 0 00000 06375 +0 00000 0 00000
V'S CFTBL...CFTBL(91) = 0 282 LM00363
02562 +0 00000 0 00000 02563 +0 00000 0 00000 02564 +0 00000 0 00000 02565 +0 00000 0 00000
02566 +0 00000 0 00000 02567 +0 00000 0 00000 02570 +0 00000 0 00000 02571 +0 00000 0 00000
02572 +0 00000 0 00000 02573 +0 00000 0 00000 02574 +0 00000 0 00000 02575 +0 00000 0 00000
02576 +0 00000 0 00000 02577 +0 00000 0 00000 02600 +0 00000 0 00000 02601 +0 00000 0 00000
02602 +0 00000 0 00000 02603 +0 00000 0 00000 02604 +0 00000 0 00000 02605 +0 00000 0 00000
02606 +0 00000 0 00000 02607 +0 00000 0 00000 02610 +0 00000 0 00000 02611 +0 00000 0 00000
02612 +0 00000 0 00000 02613 +0 00000 0 00000 02614 +0 00000 0 00000 02615 +0 00000 0 00000
02616 +0 00000 0 00000 02617 +0 00000 0 00000 02620 +0 00000 0 00000 02621 +0 00000 0 00000
02622 +0 00000 0 00000 02623 +0 00000 0 00000 02624 +0 00000 0 00000 02625 +0 00000 0 00000
02626 +0 00000 0 00000 02627 +0 00000 0 00000 02630 +0 00000 0 00000 02631 +0 00000 0 00000
02632 +0 00000 0 00000 02633 +0 00000 0 00000 02634 +0 00000 0 00000 02635 +0 00000 0 00000
02636 +0 00000 0 00000 02637 +0 00000 0 00000 02640 +0 00000 0 00000 02641 +0 00000 0 00000
02642 +0 00000 0 00000 02643 +0 00000 0 00000 02644 +0 00000 0 00000 02645 +0 00000 0 00000
02646 +0 00000 0 00000 02647 +0 00000 0 00000 02650 +0 00000 0 00000 02651 +0 00000 0 00000
02652 +0 00000 0 00000 02653 +0 00000 0 00000 02654 +0 00000 0 00000 02655 +0 00000 0 00000
02656 +0 00000 0 00000 02657 +0 00000 0 00000 02660 +0 00000 0 00000 02661 +0 00000 0 00000
02662 +0 00000 0 00000 02663 +0 00000 0 00000 02664 +0 00000 0 00000 02665 +0 00000 0 00000
02666 +0 00000 0 00000 02667 +0 00000 0 00000 02670 +0 00000 0 00000 02671 +0 00000 0 00000
02672 +0 00000 0 00000 02673 +0 00000 0 00000 02674 +0 00000 0 00000 02675 +0 00000 0 00000
02676 +0 00000 0 00000 02677 +0 00000 0 00000 02700 +0 00000 0 00000 02701 +0 00000 0 00000
02702 +0 00000 0 00000 02703 +0 00000 0 00000 02704 +0 00000 0 00000 02705 +0 00000 0 00000
02706 +0 00000 0 00000 02707 +0 00000 0 00000 02710 +0 00000 0 00000 02711 +0 00000 0 00000
02712 +0 00000 0 00000 02713 +0 00000 0 00000 02714 +0 00000 0 00000 02715 +0 00000 0 00000
V'S CRTBL...CRTBL(91) = 0 283 LM00364
03675 +0 00000 0 00000 03676 +0 00000 0 00000 03677 +0 00000 0 00000 03700 +0 00000 0 00000
03701 +0 00000 0 00000 03702 +0 00000 0 00000 03703 +0 00000 0 00000 03704 +0 00000 0 00000
03705 +0 00000 0 00000 03706 +0 00000 0 00000 03707 +0 00000 0 00000 03710 +0 00000 0 00000
03711 +0 00000 0 00000 03712 +0 00000 0 00000 03713 +0 00000 0 00000 03714 +0 00000 0 00000
03715 +0 00000 0 00000 03716 +0 00000 0 00000 03717 +0 00000 0 00000 03720 +0 00000 0 00000
03721 +0 00000 0 00000 03722 +0 00000 0 00000 03723 +0 00000 0 00000 03724 +0 00000 0 00000
03725 +0 00000 0 00000 03726 +0 00000 0 00000 03727 +0 00000 0 00000 03730 +0 00000 0 00000
03731 +0 00000 0 00000 03732 +0 00000 0 00000 03733 +0 00000 0 00000 03734 +0 00000 0 00000
03735 +0 00000 0 00000 03736 +0 00000 0 00000 03737 +0 00000 0 00000 03740 +0 00000 0 00000
03741 +0 00000 0 00000 03742 +0 00000 0 00000 03743 +0 00000 0 00000 03744 +0 00000 0 00000
03745 +0 00000 0 00000 03746 +0 00000 0 00000 03747 +0 00000 0 00000 03750 +0 00000 0 00000
03751 +0 00000 0 00000 03752 +0 00000 0 00000 03753 +0 00000 0 00000 03754 +0 00000 0 00000
03755 +0 00000 0 00000 03756 +0 00000 0 00000 03757 +0 00000 0 00000 03760 +0 00000 0 00000
03761 +0 00000 0 00000 03762 +0 00000 0 00000 03763 +0 00000 0 00000 03764 +0 00000 0 00000
03765 +0 00000 0 00000 03766 +0 00000 0 00000 03767 +0 00000 0 00000 03770 +0 00000 0 00000
03771 +0 00000 0 00000 03772 +0 00000 0 00000 03773 +0 00000 0 00000 03774 +0 00000 0 00000
03775 +0 00000 0 00000 03776 +0 00000 0 00000 03777 +0 00000 0 00000 04000 +0 00000 0 00000
04001 +0 00000 0 00000 04002 +0 00000 0 00000 04003 +0 00000 0 00000 04004 +0 00000 0 00000
04005 +0 00000 0 00000 04006 +0 00000 0 00000 04007 +0 00000 0 00000 04010 +0 00000 0 00000
04011 +0 00000 0 00000 04012 +0 00000 0 00000 04013 +0 00000 0 00000 04014 +0 00000 0 00000
04015 +0 00000 0 00000 04016 +0 00000 0 00000 04017 +0 00000 0 00000 04020 +0 00000 0 00000
04021 +0 00000 0 00000 04022 +0 00000 0 00000 04023 +0 00000 0 00000 04024 +0 00000 0 00000
04025 +0 00000 0 00000 04026 +0 00000 0 00000 04027 +0 00000 0 00000 04030 +0 00000 0 00000
V'S XS...XS(100) = $X$ 284 LM00365
06444 -2 76060 6 06060 06445 -2 76060 6 06060 06446 -2 76060 6 06060 06447 -2 76060 6 06060
06450 -2 76060 6 06060 06451 -2 76060 6 06060 06452 -2 76060 6 06060 06453 -2 76060 6 06060
06454 -2 76060 6 06060 06455 -2 76060 6 06060 06456 -2 76060 6 06060 06457 -2 76060 6 06060
06460 -2 76060 6 06060 06461 -2 76060 6 06060 06462 -2 76060 6 06060 06463 -2 76060 6 06060
06464 -2 76060 6 06060 06465 -2 76060 6 06060 06466 -2 76060 6 06060 06467 -2 76060 6 06060
06470 -2 76060 6 06060 06471 -2 76060 6 06060 06472 -2 76060 6 06060 06473 -2 76060 6 06060
06474 -2 76060 6 06060 06475 -2 76060 6 06060 06476 -2 76060 6 06060 06477 -2 76060 6 06060
06500 -2 76060 6 06060 06501 -2 76060 6 06060 06502 -2 76060 6 06060 06503 -2 76060 6 06060
06504 -2 76060 6 06060 06505 -2 76060 6 06060 06506 -2 76060 6 06060 06507 -2 76060 6 06060
06510 -2 76060 6 06060 06511 -2 76060 6 06060 06512 -2 76060 6 06060 06513 -2 76060 6 06060
06514 -2 76060 6 06060 06515 -2 76060 6 06060 06516 -2 76060 6 06060 06517 -2 76060 6 06060
06520 -2 76060 6 06060 06521 -2 76060 6 06060 06522 -2 76060 6 06060 06523 -2 76060 6 06060
06524 -2 76060 6 06060 06525 -2 76060 6 06060 06526 -2 76060 6 06060 06527 -2 76060 6 06060
06530 -2 76060 6 06060 06531 -2 76060 6 06060 06532 -2 76060 6 06060 06533 -2 76060 6 06060
06534 -2 76060 6 06060 06535 -2 76060 6 06060 06536 -2 76060 6 06060 06537 -2 76060 6 06060
06540 -2 76060 6 06060 06541 -2 76060 6 06060 06542 -2 76060 6 06060 06543 -2 76060 6 06060
06544 -2 76060 6 06060 06545 -2 76060 6 06060 06546 -2 76060 6 06060 06547 -2 76060 6 06060
06550 -2 76060 6 06060 06551 -2 76060 6 06060 06552 -2 76060 6 06060 06553 -2 76060 6 06060
06554 -2 76060 6 06060 06555 -2 76060 6 06060 06556 -2 76060 6 06060 06557 -2 76060 6 06060
06560 -2 76060 6 06060 06561 -2 76060 6 06060 06562 -2 76060 6 06060 06563 -2 76060 6 06060
06564 -2 76060 6 06060 06565 -2 76060 6 06060 06566 -2 76060 6 06060 06567 -2 76060 6 06060
06570 -2 76060 6 06060 06571 -2 76060 6 06060 06572 -2 76060 6 06060 06573 -2 76060 6 06060
06574 -2 76060 6 06060 06575 -2 76060 6 06060 06576 -2 76060 6 06060 06577 -2 76060 6 06060
06600 -2 76060 6 06060 06601 -2 76060 6 06060 06602 -2 76060 6 06060 06603 -2 76060 6 06060
06604 -2 76060 6 06060 06605 -2 76060 6 06060 06606 -2 76060 6 06060 06607 -2 76060 6 06060
06610 -2 76060 6 06060
D'N B1(432),B2(432),B3(432) 285 LM00367
D'N CARD(13) 286 LM00368
V'S OUT=$ STAT FILE$ 287 LM00370
06235 -2 06026 3 14325 06236 -2 06062 6 32163
V'S SEARCH=$SEARCH$ 288 LM00371
06377 -2 22521 5 12330
V'S FL=$ FILE$ 289 LM00372
04332 -2 06026 3 14325
V'S M1=77777K 290 LM00374
04553 +0 00000 0 77777
V'S M2=77776K 291 LM00375
04554 +0 00000 0 77776
V'S M3=77775K 292 LM00376
04555 +0 00000 0 77775
V'S M4=77774K 293 LM00377
04556 +0 00000 0 77774
V'S M5=77773K 294 LM00378
04557 +0 00000 0 77773
V'S HEAD=$H'1 M A S S A C H U S E T T S I N S T I', 295 LM00382
1H' T U T E O F T E C H N O L O G Y',/,/, 295 LM00383
211X,H' I N F O R M A T I O N P R O C E S S I N G ', 295 LM00384
3H' C E N T E R'*$ 295 LM00385
04507 -2 05114 5 46060 04510 -2 04560 6 36025 04511 +1 46060 2 36025 04512 +1 47360 6 06030
04513 +3 16045 6 02760 04514 +2 56062 6 06260 04515 -1 16046 6 02360 04516 -0 56060 6 04760
04517 -2 36031 6 04660 04520 -1 16044 6 02160 04521 -0 56026 6 04660 04522 -2 06060 6 03160
04523 -2 77330 1 46060 04524 -2 06060 6 00101 04525 -2 06060 6 06060 04526 -2 06060 6 06060
04527 -3 36173 6 17360 04530 -0 66027 6 07014 04531 -0 56046 6 04360 04532 +2 56023 6 03060
04533 +2 66060 6 06360 04534 +2 56060 6 04660 04535 -2 36064 6 06360 04536 +1 47360 3 01460
04537 -2 06260 6 36031 04540 -2 06060 3 16045 04541 -2 06360 6 36062 04542 -2 06460 6 26025
04543 -2 02160 2 36030 04544 -2 02160 6 26062 04545 -2 06060 6 06044 04546 +3 01401 6 06060
V'S SYSHED=$1H0,30X,H'(EXCLUDING SYSTEM FILES)'*$ 296 LM00387
06402 -0 32562 3 41454 06403 -2 32544 6 02631 06404 -0 52760 6 27062 06405 -2 72343 6 42431
06406 -2 77330 1 47425 06407 +0 13000 7 30300
V'S F0 = $1H0,S8,H'SECONDARY STORAGE USAGE SUMMARY PREPARED' 297 LM00389
1, S2,C6,S2,C3,2H, C3,I3,4H, 19,I2,H' SYSTEM ',C6*$ 297 LM00390
04060 -2 01473 2 30654 04061 -2 27062 6 32544 04062 -3 33014 6 06060 04063 -2 00111 7 33102
04064 +3 10373 0 43073 04065 +3 07360 2 30373 04066 +0 27323 0 37302 04067 +0 27323 0 67362
04070 +2 41460 7 36062 04071 -1 12547 2 15125 04072 -0 42151 7 06047 04073 +2 72560 6 26444
04074 +2 72560 6 46221 04075 -2 06263 4 65121 04076 -0 64524 2 15170 04077 -3 33014 6 22523
04100 +0 13000 7 36210
V'S F1= $1H0,S18,H'FILES RECORDS',S27,H'MEAN STD DEV.',/, 298 LM00392
11H0,S8,H'DISK ',I10,I10,S7,H'FILES/UFD ',2F10.3,/, 298 LM00393
21H0,S8,H'UFD ',I10,S10,S7,H'RECS/UFD ',2F10.3,/, 298 LM00394
31H0,S8,H'LINKS',I10,S10,S7,H'LINKS/UFD ',2F10.3,/, 298 LM00395
41H0,S40, H'FILE LENGTH ',2F10.3,/, 298 LM00396
51H0,S40, H'FILE AGE (DAYS)',2F10.3*$ 298 LM00397
04114 -1 46060 6 06060 04115 +0 22601 0 03303 04116 +2 17062 3 41473 04117 +2 12725 6 07424
04120 +1 42631 4 32560 04121 -2 06060 6 06030 04122 -2 06060 6 06060 04123 -2 06060 6 06060
04124 -2 20400 7 36060 04125 -2 06001 3 00073 04126 -2 17360 6 06060 04127 +2 60100 3 30373
04130 -2 06060 1 47302 04131 +2 54527 6 33060 04132 +2 63143 2 56043 04133 -2 06060 6 03014
04134 -2 06060 6 06060 04135 -2 06060 6 06060 04136 +0 40073 6 06060 04137 -2 00130 0 07362
04140 -3 36060 6 06060 04141 +0 10033 0 37361 04142 -2 06014 7 30226 04143 +2 62460 6 06060
04144 +3 14542 6 26164 04145 -2 20773 3 01443 04146 +0 07362 0 10073 04147 -0 26214 7 33101
04150 -3 33014 4 33145 04151 +0 13000 7 36210 04152 -2 06060 6 06060 04153 +0 03303 7 36173
04154 -2 01473 0 22601 04155 -2 06060 6 06060 04156 +2 36261 6 42624 04157 +0 77330 1 45125
04160 -3 36201 0 07362 04161 -2 01473 3 10100 04162 +3 01464 2 62460 04163 +3 00073 6 21073
04164 -2 06060 6 06001 04165 +3 30373 6 17360 04166 +1 47302 2 60100 04167 -2 06060 6 06060
04170 +2 56261 6 42624 04171 -3 33014 2 63143 04172 +3 10100 7 36207 04173 +1 47331 0 10073
04174 +1 42431 6 24260 04175 +0 07362 1 07330 04176 +1 47361 7 30130 04177 +2 46024 2 56533
04200 -0 56060 6 06263 04201 -3 33014 4 42521 04202 -2 21473 6 20207 04203 -1 12523 4 65124
04204 -0 32562 6 06060 04205 +1 07330 1 42631 04206 +0 13000 7 36201
V'S F3 = $1H-,S8,H'CAPACITY',I9,H', USED',I9, 299 LM00399
1 H', LEFT',I9,H', WASTE',F7.3,H' PER CENT.'*$ 299 LM00400
04207 -0 56333 1 45460 04210 -0 72551 6 02325 04211 +3 30373 3 01460 04212 -2 32514 7 32607
04213 +1 47360 6 62162 04214 +1 47331 1 17330 04215 -3 36043 2 52663 04216 -2 06060 6 03014
04217 -2 06060 6 06060 04220 -2 06060 6 06060 04221 +1 47331 1 17360 04222 -3 36064 6 22524
04223 -3 33111 7 33014 04224 +2 12331 6 37014 04225 -3 33014 2 32147 04226 +0 13040 7 36210
V'S F4 = $1H-,S8,H'SUMMARY BY MODE BIT',//,S9, 300 LM00402
1H'MODE FILES RECS ',/*$ 300 LM00403
04231 -2 15460 6 06060 04232 +2 52362 6 01473 04233 -2 06060 6 06051 04234 -2 02631 4 32562
04235 -0 62425 6 06060 04236 -2 06060 3 01444 04237 -2 06060 6 06060 04240 -2 06060 6 06060
04241 -2 16173 6 21173 04242 -2 02231 6 31473 04243 -3 06044 4 62425 04244 -0 42151 7 06022
04245 -3 33014 6 26444 04246 +0 13040 7 36210
V'S F4A = $S10,CR3,2I9*$ 301 LM00405
04227 +0 37302 3 11154 04230 -2 20100 7 32351
V'S F5 = $1H0,S8,H'SUMMARY BY DATE OF LAST REFERENCE TO FILE' 302 LM00407
1*$ 302 LM00408
04262 -0 32514 5 46060 04263 -2 06346 6 02631 04264 +2 55125 4 52325 04265 -2 26360 5 12526
04266 -2 04626 6 04321 04267 -3 06024 2 16325 04270 -0 42151 7 06022 04271 -3 33014 6 26444
04272 +0 13000 7 36210
V'S F5A = 303 LM00410
1$H'0 AGE FILES OLDER RECS OLDER LINEAR PLOT' 303 LM00411
2,//*$ 303 LM00412
04247 -3 36161 5 46060 04250 -0 66314 6 06060 04251 +2 52151 6 04743 04252 -2 06060 4 33145
04253 -0 32425 5 16060 04254 +2 36260 6 06046 04255 +2 55160 6 05125 04256 -2 26060 4 64324
04257 -2 06026 3 14325 04260 -2 06021 2 72560 04261 +3 01400 6 06060
V'S F6 = $1H0,S8,H'SUMMARY BY DATE OF CREATION OF FILE'*$ 304 LM00414
04273 -0 32514 5 46060 04274 -2 04626 6 02631 04275 +2 52163 3 14645 04276 -2 04626 6 02351
04277 -3 06024 2 16325 04300 -0 42151 7 06022 04301 -3 33014 6 26444 04302 +0 13000 7 36210
V'S F7 = $1H ,C5,I3,S1,4I7,S2,100C1*$ 305 LM00416
04303 +0 15460 6 06060 04304 +0 27301 0 00023 04305 -3 30431 0 77362 04306 -3 33103 7 36201
04307 +0 13060 7 32305
V'S F9 = $H'0 DISK USAGE BY CLASS NAME',//, 306 LM00418
1H'0 NAME1 NAME2 TYPE FILES RECORDS LINKS',/*$ 306 LM00419
04310 -3 36154 6 06060 04311 -0 33145 4 26214 04312 -0 65124 6 26060 04313 -2 26060 5 12523
04314 -2 06026 3 14325 04315 -2 06063 7 04725 04316 -2 04521 4 42502 04317 -0 52144 2 50160
04320 -2 06060 6 06060 04321 -2 06060 3 01400 04322 -2 06060 6 06060 04323 -2 06060 6 06060
04324 -2 16173 6 06060 04325 -0 52144 2 51473 04326 +2 34321 6 26260 04327 +2 72560 2 27060
04330 -2 24260 6 46221 04331 +3 01400 6 02431
V'S F10 = $/,/,/,/15H SCALE - ONE ',C1,4H' = ,I4, 307 LM00421
1 H' RECORDS.'*$ 307 LM00422
04101 -2 23314 5 46060 04102 -1 12523 4 65124 04103 -2 06060 3 01460 04104 -2 06060 6 06060
04105 +3 10473 6 06060 04106 +3 01460 1 36073 04107 +1 47323 0 17304 04110 -0 06046 4 52560
04111 -2 22321 4 32560 04112 -2 10105 3 06060 04113 -2 17361 7 36173
V'S FM1=$S6,C6,S1,C6,S3,I2,3I8*$ 308 LM00424
04333 +0 33110 5 46060 04334 -2 20373 3 10273 04335 -2 20173 2 30673 04336 -2 20673 2 30673
V'S FM2=$H'- USAGE BY TYPE FILES RECORDS LINKS' 309 LM00426
1,/*$ 309 LM00427
04337 -1 46060 6 06060 04340 -0 26214 6 07361 04341 -2 26060 4 33145 04342 -1 12523 4 65124
04343 +3 14325 6 26060 04344 -2 06060 6 06026 04345 -2 06060 6 06060 04346 -2 06370 4 72560
04347 +2 12725 6 02270 04350 +3 01440 6 06462
E'N 310 LM00429
10551 TSX +0 07400 4 00013 10552 TXH +3 00000 0 00000 10553 SXD -0 63400 1 10552 10554 SXA +0 63400 4 10577
10555 CLA +0 50000 4 00001 10556 STA +0 62100 0 07130 10557 STA +0 62100 0 07136 10560 STA +0 62100 0 07175
10561 STA +0 62100 0 07242 10562 CLA +0 50000 4 00002 10563 STA +0 62100 0 07122 10564 STA +0 62100 0 07172
10565 STA +0 62100 0 07244 10566 CLA +0 50000 4 00003 10567 STA +0 62100 0 07143 10570 STA +0 62100 0 07145
10571 STA +0 62100 0 07152 10572 STA +0 62100 0 07161 10573 STA +0 62100 0 07344 10574 STA +0 62100 0 07520
10575 STA +0 62100 0 07576 10576 TRA +0 02000 2 00001 10577 AXT +0 77400 4 00000 10600 LXA +0 53400 2 10552
10601 LXD -0 53400 1 10552 10602 TRA +0 02000 4 00001
1 FSTAT - CALLING PROGRAM FOR ALSTAT PROGRAMS 02/09/69 658.9 PAGE 1
*
* RECONSTRUCTED FROM FSTAT BSS BY ROGER ROACH 6/7/67
*
EXTERN FINIT,COUNTR,FPRINT
TRANSFER VECTOR
00000 263145316360 FINIT
00001 234664456351 COUNTR
00002 264751314563 FPRINT
00003 0074 00 4 00153 TSX ATTNAM,4
00004 3 00002 0 00140 PTH HOME,,2
00005 0074 00 4 00161 TSX SETBRK,4
00006 3 00000 0 00131 PTH INTERP
00007 0074 00 4 00000 TSX FINIT,4 INITIALIZE SUB PROGRAMS
00010 0074 00 4 00154 TSX ATTACH,4 GO TO MFD
00011 3 00000 0 00136 PTH MFD
00012 3 00000 0 00137 PTH FILE
00013 0074 00 4 00152 TSX FSTATE,4
00014 3 00000 0 00136 PTH MFD
00015 3 00000 0 00137 PTH FILE
00016 3 00001 0 00144 PTH LEN,,1 GET LENGTH OF MFD
00017 0500 00 0 00144 CLA LEN
00020 0402 00 0 00164 SUB =25 BYPASS USAGE TABLE AND DSKEDT FILE
00021 0601 00 0 00144 STO LEN
00022 0734 00 4 00000 PAX ,4
00023 -0636 00 4 00127 SCD TST1,4
00024 0074 00 4 00157 TSX GETMEM,4
00025 0621 00 0 00052 STA LOC1 BEGINNING OF MFD FILE
00026 0621 00 0 00057 STA LOC2
00027 0361 00 0 00144 ACL LEN EXTEND FOR LENGTH OF MFD FILE
00030 0621 00 0 00076 STA LOC4 BOTTOM OF MFD FILE
00031 0621 00 0 00145 STA LEN2 FIRST LOC OF FREE LOCATIONS
00032 0621 00 0 00114 STA ZETTST USED IN TESTS
00033 0361 00 0 00162 ACL =1 GET NEXT LOCATION
00034 0621 00 0 00116 STA ZETST2 FOR TEST OF LOC+1
*
00035 -0500 00 0 00057 CAL LOC2
00036 0361 00 0 00162 ACL =1
00037 0621 00 0 00062 STA LOC3
00040 -0500 00 0 00165 CAL =O77777 WANT ALL OF CORE
00041 0074 00 4 00160 TSX SETMEM,4
00042 0074 00 4 00147 TSX OPEN,4 READ IN THE MFD
00043 3 00000 0 00177 PTH =HR
00044 3 00000 0 00136 PTH MFD
00045 3 00000 0 00137 PTH FILE
00046 0074 00 4 00150 TSX RDFILE,4
00047 3 00000 0 00136 PTH MFD
00050 3 00000 0 00137 PTH FILE
00051 3 00000 0 00164 PTH =25
00052 2 00144 0 00000 LOC1 PTW **,,LEN
00053 0074 00 4 00151 TSX CLOSE,4
00054 3 00000 0 00136 PTH MFD
00055 3 00000 0 00137 PTH FILE
*
1 FSTAT - CALLING PROGRAM FOR ALSTAT PROGRAMS 02/09/69 658.9 PAGE 2
00056 -0774 00 1 00000 AXC 0,1 PLACE -1 IN XR1
00057 -0500 00 1 00000 LOC2 CAL **,1 GET FIRST WORD IN ENTRY
00060 0100 00 0 00125 TZE OVER BYPASS IF 0
00061 0602 00 0 00142 SLW NAME1
00062 -0500 00 1 00000 LOC3 CAL **,1
00063 0100 00 0 00125 TZE OVER
00064 0602 00 0 00143 SLW NAME2
1 FSTAT - CALLING PROGRAM FOR ALSTAT PROGRAMS 02/09/69 658.9 PAGE 3
00065 0074 00 4 00147 TSX OPEN,4 READ IN THE UFD
00066 3 00000 0 00177 PTH =HR
00067 3 00000 0 00142 PTH NAME1
00070 3 00000 0 00143 PTH NAME2
00071 3 00000 0 00125 PTH OVER
00072 0074 00 4 00150 TSX RDFILE,4
00073 3 00000 0 00142 PTH NAME1
00074 3 00000 0 00143 PTH NAME2
00075 3 00000 0 00163 PTH =4 BYPASS POINTERS
00076 3 23420 0 00000 LOC4 PTH **,,10000
00077 3 00000 0 00102 PTH *+3
00100 3 00000 0 00146 PTH EOFCT
00101 0020 00 0 00125 TRA OVER SHOULDN'T HIT EOF
00102 0534 00 4 00146 LXA EOFCT,4
00103 -3 00000 4 00125 TXL OVER,4,0 ZERO LENGTH FILE DIRECTORY
00104 -0636 00 4 00124 SCD OVER-1,4 SAVE -LENGTH OF FILE DIRECTORY
00105 0074 00 4 00151 TSX CLOSE,4
00106 3 00000 0 00142 PTH NAME1
00107 3 00000 0 00143 PTH NAME2
1 FSTAT - CALLING PROGRAM FOR ALSTAT PROGRAMS 02/09/69 658.9 PAGE 4
00110 -0774 00 2 00000 AXC 0,2 -1 INTO XR2
00111 0756 00 2 00000 LOOP PCA ,2
00112 0361 00 0 00145 ACL LEN2
00113 0621 00 0 00122 STA LOC5
00114 0520 00 2 00000 ZETTST ZET **,2
00115 0020 00 0 00117 TRA *+2
00116 0520 00 2 00000 ZETST2 ZET **,2
00117 0074 00 4 00001 TSX COUNTR,4 A VALUE IS NON-ZERO
00120 3 00000 0 00142 PTH NAME1
00121 3 00000 0 00143 PTH NAME2
00122 3 00000 0 00000 LOC5 PTH **
00123 1 77771 2 00124 TXI *+1,2,-7
00124 3 00000 2 00111 TXH LOOP,2,**
00125 0074 00 4 00156 OVER TSX RESETF,4
00126 1 77771 1 00127 TXI *+1,1,-7 GO TO NEXT UFD IN MFD
00127 3 00000 1 00057 TST1 TXH LOC2,1,**
00130 0074 00 4 00002 TSX FPRINT,4
00131 0074 00 4 00154 INTERP TSX ATTACH,4
00132 3 00000 0 00140 PTH HOME
00133 3 00000 0 00141 PTH HOME+1
00134 0074 00 4 00155 TSX CHNCOM,4
00135 3 00000 0 00000 PTH 0
*
*
00136 443326332433 MFD BCI 1,M.F.D.
00137 742631432534 FILE BCI 1,(FILE)
00140 HOME BSS 2
00142 0 00000 0 00000 NAME1
00143 0 00000 0 00000 NAME2
00144 0 00000 0 00000 LEN
00145 0 00000 0 00000 LEN2
00146 0 00000 0 00000 EOFCT
00147 0101 00 0 00174 OPEN TIA =HOPEN
00150 0101 00 0 00175 RDFILE TIA =HRDFILE
00151 0101 00 0 00171 CLOSE TIA =HCLOSE
00152 0101 00 0 00172 FSTATE TIA =HFSTATE
00153 0101 00 0 00167 ATTNAM TIA =HATTNAM
00154 0101 00 0 00166 ATTACH TIA =HATTACH
00155 0101 00 0 00170 CHNCOM TIA =HCHNCOM
00156 0101 00 0 00176 RESETF TIA =HRESETF
00157 0101 00 0 00173 GETMEM TIA =HGETMEM
00160 0101 00 0 00201 SETMEM TIA =HSETMEM
00161 0101 00 0 00200 SETBRK TIA =HSETBRK
END
LITERALS
00162 000000000001
00163 000000000004
00164 000000000031
00165 000000077777
00166 216363212330
00167 216363452144
00170 233045234644
00171 234346622560
00172 266263216325
00173 272563442544
1 FSTAT - CALLING PROGRAM FOR ALSTAT PROGRAMS 02/09/69 658.9 PAGE 5
00174 464725456060
00175 512426314325
00176 512562256326
00177 516060606060
00200 622563225142
00201 622563442544
1 FSTAT - CALLING PROGRAM FOR ALSTAT PROGRAMS 02/09/69 658.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
202 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
144 LEN 16, 17, 21, 27, 52
136 MFD 11, 14, 44, 47, 54
137 FILE 12, 15, 45, 50, 55
140 HOME 4, 132, 133
145 LEN2 31, 112
52 LOC1 25
57 LOC2 26, 35, 127
62 LOC3 37
76 LOC4 30
122 LOC5 113
111 LOOP 124
147 OPEN 42, 65
125 OVER 60, 63, 71, 101, 103, 104
127 TST1 23
151 CLOSE 53, 105
146 EOFCT 100, 102
0 FINIT 7
142 NAME1 61, 67, 73, 106, 120
143 NAME2 64, 70, 74, 107, 121
154 ATTACH 10, 131
153 ATTNAM 3
155 CHNCOM 134
1 COUNTR 117
2 FPRINT 130
152 FSTATE 13
157 GETMEM 24
131 INTERP 6
150 RDFILE 46, 72
156 RESETF 125
161 SETBRK 5
160 SETMEM 41
116 ZETST2 34
114 ZETTST 32
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE FPRINT MAD 02/09/69 0656.8
-
EXTERNAL FUNCTION *001 LM00001
LM00002
NORMAL MODE IS INTEGER *002 LM00003
LM00004
VECTOR VALUES TOTAL = $/H'TOTAL FILES = 'I6,/H'TOTAL RECORDS = 'I6//*$ *003 LM00005
VECTOR VALUES MOD = $I2,H' MOD'I2,H' = 'I6*$ *004 LM00006
VECTOR VALUES USED = $I3,H' = 'I6,S5,'AMT'(1HX)*$ *005 LM00007
VECTOR VALUES GOP = $H'PERCENTAGE WASTE = ',2PF6.2*$ *006 LM00008
FORMAT VARIABLE AMT *007 LM00009
FLOATING POINT FAMT, PCNT, WASTE, LOG. *008 LM00010
LM00011
LM00012
PROGRAM COMMON MODTBL (3), STATBL (78), TFILS, TRECS *009 LM00013
LM00014
LM00015
ENTRY TO FPRINT. *010 LM00016
LM00017
PRINT FORMAT TOTAL, TFILS, TRECS *011 LM00018
LM00019
THROUGH LOOP2, FOR VALUES OF I = 0, 1 *012 LM00020
PRINT FORMAT MOD, I, 2, MODTBL (I) + MODTBL (I + 2) *013 LM00021
LOOP2 CONTINUE *014 LM00022
LM00023
WASTE = MODTBL (1) + MODTBL (3) *015 LM00024
PCNT = WASTE / (WASTE + TRECS) *016 LM00025
PRINT FORMAT GOP, PCNT *017 LM00026
WASTE = 0.0 *018 LM00027
LM00028
PRINT FORMAT $//*$ *019 LM00029
LM00030
THROUGH LOOP4, FOR I = 0, 1, I .GE. 4 *020 LM00031
PRINT FORMAT MOD, I, 4, MODTBL (I) *021 LM00032
WHENEVER I .NE. 0, WASTE = WASTE + MODTBL (I) * (4 - I) *022 LM00033
LOOP4 CONTINUE *023 LM00034
LM00035
PCNT = WASTE / (WASTE + TRECS) *024 LM00036
PRINT FORMAT GOP, PCNT *025 LM00037
LM00038
PRINT FORMAT $//*$ *026 LM00039
LM00040
THROUGH SLOOP, FOR I = 0, 1, I .G. 78 *027 LM00041
FAMT = STATBL (I) *028 LM00042
AMT = 0 *029 LM00043
WHENEVER STATBL (I) .NE. 0, AMT = 5.0 * LOG. (FAMT) *030 LM00044
PRINT FORMAT USED, I, STATBL (I) *031 LM00045
SLOOP CONTINUE *032 LM00046
LM00047
LM00048
FUNCTION RETURN *033 LM00049
LM00050
LM00051
END OF FUNCTION *034 LM00052
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00307 TRANSFER VECTOR LENGTH 00003 PROGRAM BEGINS 00047 FIRST UNUSED COMMON/ERASABLE 77334
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FPRINT 00050 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AMT 00004 1 LOOP2 00003 4 MODTBL 77461 AC1 STATBL 77455 AC1 TRECS 77335 C1
FAMT 00005 0 LOOP4 00003 4 PCNT 00020 0 TFILS 77336 C1 USED 00035 A 1
GOP 00012 A 1 MOD 00017 A 1 SLOOP 00003 4 TOTAL 00030 A 1 WASTE 00036 0
I 00013 1
0FUNCTION DICTIONARY
EXIT 00000 1 .PRINT 00001 1 LOG 00002 0
0ABSOLUTE CONSTANTS
00044 +203500000000 00043 +000000000116 00042 +000000000004 00046 -216154606060 00041 +000000000002
00037 +000000000000 00040 +000000000001 00045 +233000000000
0PROGRAM
EXTERNAL FUNCTION 001 LM00001
N'R 002 LM00003
V'S TOTAL = $/H'TOTAL FILES = 'I6,/H'TOTAL RECORDS = 'I6//*$ 003 LM00005
00021 +0 66161 5 46060 00022 -2 26013 6 01431 00023 -1 12523 4 65124 00024 -2 34663 2 14360
00025 +3 10673 6 13014 00026 +2 56260 1 36014 00027 +2 14360 2 63143 00030 -2 13014 6 34663
V'S MOD = $I2,H' MOD'I2,H' = 'I6*$ 004 LM00006
00014 +1 43106 5 46060 00015 -3 33014 6 01360 00016 -0 44624 1 43102 00017 +3 10273 3 01460
V'S USED = $I3,H' = 'I6,S5,'AMT'(1HX)*$ 005 LM00007
00031 +3 45460 6 06060 00032 -2 31474 0 13067 00033 -2 20573 1 42144 00034 +1 36014 3 10673
00035 +3 10373 3 01460
V'S GOP = $H'PERCENTAGE WASTE = ',2PF6.2*$ 006 LM00008
00006 -0 72606 3 30254 00007 -2 01360 1 47302 00010 -2 06621 6 26325 00011 +2 54563 2 12725
00012 +3 01447 2 55123
FORMAT VARIABLE AMT 007 LM00009
F'T FAMT, PCNT, WASTE, LOG. 008 LM00010
P'N MODTBL (3), STATBL (78), TFILS, TRECS 009 LM00013
E'O FPRINT. 010 LM00016
00047 TRA +0 02000 0 00052 00050 SXA +0 63400 2 00272 00051 TSX +0 07400 2 00272
P'T TOTAL, TFILS, TRECS 011 LM00018
00052 TSX +0 07400 4 00001 00053 STR -1 00030 1 00305 00054 STR -1 00000 0 77336 00055 STR -1 00000 0 77335
00056 STR -1 00000 0 00000
T'H LOOP2, FOR VALUES OF I = 0, 1 012 LM00020
00057 CLA +0 50000 0 00037 00060 STO +0 60100 0 00013 00061 CLA +0 50000 0 00064 00062 STO +0 60100 0 00073
00063 TRA +0 02000 0 00074 00064 TRA +0 02000 0 00065 00065 CLA +0 50000 0 00040 00066 STO +0 60100 0 00013
00067 CLA +0 50000 0 00072 00070 STO +0 60100 0 00073 00071 TRA +0 02000 0 00074 00072 TRA +0 02000 0 00112
00073 TRA +0 02000 0 00073
P'T MOD, I, 2, MODTBL (I) + MODTBL (I + 2) 013 LM00021
00074 TSX +0 07400 4 00001 00075 STR -1 00017 1 00305 00076 STR -1 00000 0 00013 00077 STR -1 00000 0 00041
00100 CLA +0 50000 0 00013 00101 ADD +0 40000 0 00041 00102 LXA +0 53400 1 00013 00103 PAX +0 73400 2 00000
00104 CLA +0 50000 1 77461 00105 ADD +0 40000 2 77461 00106 STO +0 60100 0 00302 00107 STR -1 00000 0 00302
00110 STR -1 00000 0 00000
LOOP2 C'E 014 LM00022
00111 TRA +0 02000 0 00073
WASTE = MODTBL (1) + MODTBL (3) 015 LM00024
00112 CLA +0 50000 0 77460 00113 ADD +0 40000 0 77456 00114 ORA -0 50100 0 00045 00115 FAD +0 30000 0 00045
00116 STO +0 60100 0 00036
PCNT = WASTE / (WASTE + TRECS) 016 LM00025
00117 CLA +0 50000 0 77335 00120 ORA -0 50100 0 00045 00121 FAD +0 30000 0 00045 00122 FAD +0 30000 0 00036
00123 STO +0 60100 0 00302 00124 CLA +0 50000 0 00036 00125 FDP +0 24100 0 00302 00126 STQ -0 60000 0 00020
P'T GOP, PCNT 017 LM00026
00127 TSX +0 07400 4 00001 00130 STR -1 00012 1 00305 00131 STR -1 00000 0 00020 00132 STR -1 00000 0 00000
WASTE = 0.0 018 LM00027
00133 CLA +0 50000 0 00037 00134 STO +0 60100 0 00036
P'T $//*$ 019 LM00029
00135 TSX +0 07400 4 00001 00136 STR -1 00046 1 00305 00137 STR -1 00000 0 00000
T'H LOOP4, FOR I = 0, 1, I .GE. 4 020 LM00031
00140 CLA +0 50000 0 00037 00141 STO +0 60100 0 00013 00142 TRA +0 02000 0 00146 00143 CLA +0 50000 0 00013
00144 ADD +0 40000 0 00040 00145 STO +0 60100 0 00013 00146 CLA +0 50000 0 00013 00147 SUB +0 40200 0 00042
00150 TZE +0 10000 0 00202 00151 TPL +0 12000 0 00202
P'T MOD, I, 4, MODTBL (I) 021 LM00032
00152 TSX +0 07400 4 00001 00153 STR -1 00017 1 00305 00154 STR -1 00000 0 00013 00155 STR -1 00000 0 00042
00156 CLA +0 50000 0 00013 00157 SUB +0 40200 0 00160 00160 TXH +3 00000 0 77461 00161 STA +0 62100 0 00162
00162 STR -1 00000 0 00000 00163 STR -1 00000 0 00000
W'R I .NE. 0, WASTE = WASTE + MODTBL (I) * (4 - I) 022 LM00033
00164 CLA +0 50000 0 00013 00165 SUB +0 40200 0 00037 00166 TZE +0 10000 0 00201 00167 CLA +0 50000 0 00042
00170 SUB +0 40200 0 00013 00171 LXA +0 53400 1 00013 00172 XCA +0 13100 0 00000 00173 MPY +0 20000 1 77461
00174 XCA +0 13100 0 00000 00175 ORA -0 50100 0 00045 00176 FAD +0 30000 0 00045 00177 FAD +0 30000 0 00036
00200 STO +0 60100 0 00036
LOOP4 C'E 023 LM00034
00201 TRA +0 02000 0 00143
PCNT = WASTE / (WASTE + TRECS) 024 LM00036
00202 CLA +0 50000 0 77335 00203 ORA -0 50100 0 00045 00204 FAD +0 30000 0 00045 00205 FAD +0 30000 0 00036
00206 STO +0 60100 0 00302 00207 CLA +0 50000 0 00036 00210 FDP +0 24100 0 00302 00211 STQ -0 60000 0 00020
P'T GOP, PCNT 025 LM00037
00212 TSX +0 07400 4 00001 00213 STR -1 00012 1 00305 00214 STR -1 00000 0 00020 00215 STR -1 00000 0 00000
P'T $//*$ 026 LM00039
00216 TSX +0 07400 4 00001 00217 STR -1 00046 1 00305 00220 STR -1 00000 0 00000
T'H SLOOP, FOR I = 0, 1, I .G. 78 027 LM00041
00221 CLA +0 50000 0 00037 00222 STO +0 60100 0 00013 00223 TRA +0 02000 0 00227 00224 CLA +0 50000 0 00013
00225 ADD +0 40000 0 00040 00226 STO +0 60100 0 00013 00227 CLA +0 50000 0 00013 00230 SUB +0 40200 0 00043
00231 TZE +0 10000 0 00233 00232 TPL +0 12000 0 00270
FAMT = STATBL (I) 028 LM00042
00233 LXA +0 53400 2 00013 00234 CLA +0 50000 2 77455 00235 ORA -0 50100 0 00045 00236 FAD +0 30000 0 00045
00237 STO +0 60100 0 00005
AMT = 0 029 LM00043
00240 CLA +0 50000 0 00037 00241 STO +0 60100 0 00004
W'R STATBL (I) .NE. 0, AMT = 5.0 * LOG. (FAMT) 030 LM00044
00242 LXA +0 53400 1 00013 00243 CLA +0 50000 1 77455 00244 SUB +0 40200 0 00037 00245 TZE +0 10000 0 00256
00246 TSX +0 07400 4 00002 00247 TXH +3 00000 0 00005 00250 XCA +0 13100 0 00000 00251 FMP +0 26000 0 00044
00252 UFA -0 30000 0 00045 00253 ERA +0 32200 0 00045 00254 LLS +0 76300 0 00000 00255 STO +0 60100 0 00004
P'T USED, I, STATBL (I) 031 LM00045
00256 TSX +0 07400 4 00001 00257 STR -1 00035 1 00305 00260 STR -1 00000 0 00013 00261 CLA +0 50000 0 00013
00262 SUB +0 40200 0 00263 00263 TXH +3 00000 0 77455 00264 STA +0 62100 0 00265 00265 STR -1 00000 0 00000
00266 STR -1 00000 0 00000
SLOOP C'E 032 LM00046
00267 TRA +0 02000 0 00224
F'N 033 LM00049
00270 TRA +0 02000 0 00276
E'N 034 LM00052
00271 TSX +0 07400 4 00000 00272 TXH +3 00000 0 00000 00273 SXD -0 63400 1 00272 00274 SXA +0 63400 4 00276
00275 TRA +0 02000 2 00001 00276 AXT +0 77400 4 00000 00277 LXA +0 53400 2 00272 00300 LXD -0 53400 1 00272
00301 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE COUNTR MAD 02/09/69 0656.9
-
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) *001 LM00001
LM00002
LM00003
PROGRAM COMMON MODTBL (3), STATBL (78), TFILS, TRECS *002 LM00004
NORMAL MODE IS INTEGER *003 LM00005
VECTOR VALUES M1 = 77777K *004 LM00006
VECTOR VALUES M4 = 77774 K *005 LM00007
VECTOR VALUES M5 = 77773 K *006 LM00008
LM00009
VECTOR VALUES EXC = $4(C6,S2),I6*$ *007 LM00010
LM00011
LM00012
ENTRY TO COUNTR. *008 LM00013
LM00014
F = (BUFF (M4) .RS. 15) .A. 7K *009 LM00015
LM00016
WHENEVER F .E. 2 *010 LM00017
LM00018
NRECS = (BUFF (M5) .RS. 18 ) .A. M1 *011 LM00019
QUART = NRECS .RS. 2 *012 LM00020
MOD = NRECS - (QUART .LS. 2) *013 LM00021
MODTBL (MOD) = MODTBL (MOD) + 1 *014 LM00022
LM00023
WHENEVER NRECS .L. 78 *015 LM00024
STAT = NRECS *016 LM00025
OTHERWISE *017 LM00026
STAT = 78 *018 LM00027
PRINT FORMAT EXC, PROBN, PROGN, BUFF , BUFF (M1), NRECS *019 LM00028
END OF CONDITIONAL *020 LM00029
LM00030
STATBL (STAT) = STATBL (STAT) + 1 *021 LM00031
LM00032
TRECS = TRECS + NRECS *022 LM00033
TFILS = TFILS + 1 *023 LM00034
LM00035
END OF CONDITIONAL *024 LM00036
LM00037
LM00038
FUNCTION RETURN *025 LM00039
LM00040
END OF FUNCTION *026 LM00041
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00156 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00024 FIRST UNUSED COMMON/ERASABLE 77334
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
COUNTR 00025 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
EXC 00004 A 1 M4 00007 A 1 MODTBL 77461 AC1 STATBL 77455 AC1 TFILS 77336 C1
F 00005 1 M5 00010 A 1 NRECS 00012 1 STAT 00014 1 TRECS 77335 C1
M1 00006 A 1 MOD 00011 1 QUART 00013 1
0FUNCTION DICTIONARY
EXIT 00000 1 .PRINT 00001 1
0ABSOLUTE CONSTANTS
00022 +000000000116 00021 +000000000022 00016 +000000000002 00017 +000000000007 00020 +000000000017
00015 +000000000001 00023 +233000000000
0PROGRAM
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) 001 LM00001
P'N MODTBL (3), STATBL (78), TFILS, TRECS 002 LM00004
N'R 003 LM00005
V'S M1 = 77777K 004 LM00006
00006 +0 00000 0 77777
V'S M4 = 77774 K 005 LM00007
00007 +0 00000 0 77774
V'S M5 = 77773 K 006 LM00008
00010 +0 00000 0 77773
V'S EXC = $4(C6,S2),I6*$ 007 LM00010
00003 +0 23473 3 10654 00004 +0 47423 0 67362
E'O COUNTR. 008 LM00013
00024 TRA +0 02000 0 00027 00025 SXA +0 63400 2 00132 00026 TSX +0 07400 2 00132
F = (BUFF (M4) .RS. 15) .A. 7K 009 LM00015
00027 LXA +0 53400 1 00007 00030 CAL -0 50000 0 00020 00031 STA +0 62100 0 00033 00032 CAL -0 50000 1 00000
00033 LGR -0 76500 0 00000 00034 ANA -0 32000 0 00017 00035 SLW +0 60200 0 00005
W'R F .E. 2 010 LM00017
00036 CLA +0 50000 0 00005 00037 SUB +0 40200 0 00016 00040 TNZ -0 10000 0 00130
NRECS = (BUFF (M5) .RS. 18 ) .A. M1 011 LM00019
00041 LXA +0 53400 1 00010 00042 CAL -0 50000 0 00021 00043 STA +0 62100 0 00045 00044 CAL -0 50000 1 00000
00045 LGR -0 76500 0 00000 00046 ANA -0 32000 0 00006 00047 SLW +0 60200 0 00012
QUART = NRECS .RS. 2 012 LM00020
00050 CAL -0 50000 0 00016 00051 STA +0 62100 0 00053 00052 CAL -0 50000 0 00012 00053 LGR -0 76500 0 00000
00054 SLW +0 60200 0 00013
MOD = NRECS - (QUART .LS. 2) 013 LM00021
00055 CAL -0 50000 0 00016 00056 STA +0 62100 0 00060 00057 CAL -0 50000 0 00013 00060 ALS +0 76700 0 00000
00061 SLW +0 60200 0 00153 00062 CLA +0 50000 0 00012 00063 SUB +0 40200 0 00153 00064 STO +0 60100 0 00011
MODTBL (MOD) = MODTBL (MOD) + 1 014 LM00022
00065 LXA +0 53400 1 00011 00066 CLA +0 50000 1 77461 00067 ADD +0 40000 0 00015 00070 STO +0 60100 1 77461
W'R NRECS .L. 78 015 LM00024
00071 CLA +0 50000 0 00012 00072 SUB +0 40200 0 00022 00073 TZE +0 10000 0 00100 00074 TPL +0 12000 0 00100
STAT = NRECS 016 LM00025
00075 CLA +0 50000 0 00012 00076 STO +0 60100 0 00014
O'E 017 LM00026
00077 TRA +0 02000 0 00116
STAT = 78 018 LM00027
00100 CLA +0 50000 0 00022 00101 STO +0 60100 0 00014
P'T EXC, PROBN, PROGN, BUFF , BUFF (M1), NRECS 019 LM00028
00102 TSX +0 07400 4 00001 00103 STR -1 00004 1 00154 00104 STR -1 00000 0 00000 00105 STR -1 00000 0 00000
00106 STR -1 00000 0 00000 00107 CLA +0 50000 0 00006 00110 SUB +0 40200 0 00111 00111 TXH +3 00000 0 00000
00112 STA +0 62100 0 00113 00113 STR -1 00000 0 00000 00114 STR -1 00000 0 00012 00115 STR -1 00000 0 00000
E'L 020 LM00029
STATBL (STAT) = STATBL (STAT) + 1 021 LM00031
00116 LXA +0 53400 1 00014 00117 CLA +0 50000 1 77455 00120 ADD +0 40000 0 00015 00121 STO +0 60100 1 77455
TRECS = TRECS + NRECS 022 LM00033
00122 CLA +0 50000 0 77335 00123 ADD +0 40000 0 00012 00124 STO +0 60100 0 77335
TFILS = TFILS + 1 023 LM00034
00125 CLA +0 50000 0 77336 00126 ADD +0 40000 0 00015 00127 STO +0 60100 0 77336
E'L 024 LM00036
F'N 025 LM00039
00130 TRA +0 02000 0 00147
E'N 026 LM00041
00131 TSX +0 07400 4 00000 00132 TXH +3 00000 0 00000 00133 SXD -0 63400 1 00132 00134 SXA +0 63400 4 00147
00135 CLA +0 50000 4 00001 00136 STA +0 62100 0 00104 00137 CLA +0 50000 4 00002 00140 STA +0 62100 0 00105
00141 CLA +0 50000 4 00003 00142 STA +0 62100 0 00032 00143 STA +0 62100 0 00044 00144 STA +0 62100 0 00106
00145 STO +0 60100 0 00111 00146 TRA +0 02000 2 00001 00147 AXT +0 77400 4 00000 00150 LXA +0 53400 2 00132
00151 LXD -0 53400 1 00132 00152 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE FINIT MAD 02/09/69 0656.9
-
DUMMY FINIT PROGRAM FOR ALSTAT PROGRAMS LM00001
LM00002
LM00003
EXTERNAL FUNCTION ( X ) *001 LM00004
ENTRY TO FINIT. *002 LM00005
FUNCTION RETURN *003 LM00006
END OF FUNCTION *004 LM00007
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00023 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00004
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FINIT 00005 0
0FUNCTION DICTIONARY
EXIT 00000 0
0ABSOLUTE CONSTANTS
00002 +000000000001 00003 +233000000000
0PROGRAM
EXTERNAL FUNCTION ( X ) 001 LM00004
E'O FINIT. 002 LM00005
00004 TRA +0 02000 0 00007 00005 SXA +0 63400 2 00011 00006 TSX +0 07400 2 00011
F'N 003 LM00006
00007 TRA +0 02000 0 00015
E'N 004 LM00007
00010 TSX +0 07400 4 00000 00011 TXH +3 00000 0 00000 00012 SXD -0 63400 1 00011 00013 SXA +0 63400 4 00015
00014 TRA +0 02000 2 00001 00015 AXT +0 77400 4 00000 00016 LXA +0 53400 2 00011 00017 LXD -0 53400 1 00011
00020 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE PLINK MAD 02/09/69 0657.0
-
PLINK PRINT USER'S LINKS LM00001
LM00002
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) *001 LM00003
LM00004
VECTOR VALUES FIRST = 1B *002 LM00005
BOOLEAN FIRST *003 LM00006
VECTOR VALUES M1 = 77777K *004 LM00007
VECTOR VALUES M2 = 77776K *005 LM00008
VECTOR VALUES M3 = 77775K *006 LM00009
VECTOR VALUES M5 = 77773K *007 LM00010
VECTOR VALUES M6 = 77772K *008 LM00011
LM00012
ENTRY TO COUNTR. *009 LM00013
LM00014
WHENEVER FIRST *010 LM00015
MYPROB = COMARG. (1) *011 LM00016
MYPROG = COMARG. (2) *012 LM00017
FIRST = 0B *013 LM00018
END OF CONDITIONAL *014 LM00019
LM00020
WHENEVER BUFF (M2) .E. MYPROB .AND. BUFF (M3) .E. MYPROG *015 LM00021
PRINT FORMAT PLINK, PROBN, PROGN, BUFF, BUFF (M1), *016 LM00022
1 BUFF (M5), BUFF (M6) *016 LM00023
VECTOR VALUES PLINK = $6(C6,S2)*$ *017 LM00024
END OF CONDITIONAL *018 LM00025
LM00026
FUNCTION RETURN *019 LM00027
LM00028
LM00029
ENTRY TO FPRINT. *020 LM00030
CONTINUE *021 LM00031
FUNCTION RETURN *022 LM00032
LM00033
LM00034
END OF FUNCTION *023 LM00035
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00127 TRANSFER VECTOR LENGTH 00003 PROGRAM BEGINS 00022
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FPRINT 00076 0 COUNTR 00023 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
FIRST 00004 A 2 M2 00006 A 1 M5 00010 A 1 MYPROB 00012 0 PLINK 00015 A 1
M1 00005 A 1 M3 00007 A 1 M6 00011 A 1 MYPROG 00013 0
0FUNCTION DICTIONARY
COMARG 00000 0 EXIT 00001 0 .PRINT 00002 0
0ABSOLUTE CONSTANTS
00016 +000000000000 00020 +000000000002 00017 +000000000001 00021 +233000000000
0PROGRAM
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) 001 LM00003
V'S FIRST = 1B 002 LM00005
00004 +0 00000 0 00001
B'N FIRST 003 LM00006
V'S M1 = 77777K 004 LM00007
00005 +0 00000 0 77777
V'S M2 = 77776K 005 LM00008
00006 +0 00000 0 77776
V'S M3 = 77775K 006 LM00009
00007 +0 00000 0 77775
V'S M5 = 77773K 007 LM00010
00010 +0 00000 0 77773
V'S M6 = 77772K 008 LM00011
00011 +0 00000 0 77772
E'O COUNTR. 009 LM00013
00022 TRA +0 02000 0 00025 00023 SXA +0 63400 2 00102 00024 TSX +0 07400 2 00102
W'R FIRST 010 LM00015
00025 NZT -0 52000 0 00004 00026 TRA +0 02000 0 00037
MYPROB = COMARG. (1) 011 LM00016
00027 TSX +0 07400 4 00000 00030 TXH +3 00000 0 00017 00031 STO +0 60100 0 00012
MYPROG = COMARG. (2) 012 LM00017
00032 TSX +0 07400 4 00000 00033 TXH +3 00000 0 00020 00034 STO +0 60100 0 00013
FIRST = 0B 013 LM00018
00035 CLA +0 50000 0 00016 00036 STO +0 60100 0 00004
E'L 014 LM00019
W'R BUFF (M2) .E. MYPROB .AND. BUFF (M3) .E. MYPROG 015 LM00021
00037 LXA +0 53400 1 00007 00040 CLA +0 50000 1 00024 00041 SUB +0 40200 0 00013 00042 TNZ -0 10000 0 00074
00043 LXA +0 53400 1 00006 00044 CLA +0 50000 1 00024 00045 SUB +0 40200 0 00012 00046 TNZ -0 10000 0 00074
P'T PLINK, PROBN, PROGN, BUFF, BUFF (M1), 016 LM00022
1 BUFF (M5), BUFF (M6) 016 LM00023
00047 TSX +0 07400 4 00002 00050 STR -1 00015 1 00125 00051 STR -1 00000 0 00024 00052 STR -1 00000 0 00024
00053 STR -1 00000 0 00024 00054 CLA +0 50000 0 00005 00055 SUB +0 40200 0 00056 00056 TXH +3 00000 0 00024
00057 STA +0 62100 0 00060 00060 STR -1 00000 0 00000 00061 CLA +0 50000 0 00010 00062 SUB +0 40200 0 00063
00063 TXH +3 00000 0 00024 00064 STA +0 62100 0 00065 00065 STR -1 00000 0 00000 00066 CLA +0 50000 0 00011
00067 SUB +0 40200 0 00070 00070 TXH +3 00000 0 00024 00071 STA +0 62100 0 00072 00072 STR -1 00000 0 00000
00073 STR -1 00000 0 00000
V'S PLINK = $6(C6,S2)*$ 017 LM00024
00014 +0 23454 6 06060 00015 +0 67423 0 67362
E'L 018 LM00025
F'N 019 LM00027
00074 TRA +0 02000 0 00121
E'O FPRINT. 020 LM00030
00075 TRA +0 02000 0 00100 00076 SXA +0 63400 2 00102 00077 TSX +0 07400 2 00102
C'E 021 LM00031
F'N 022 LM00032
00100 TRA +0 02000 0 00121
E'N 023 LM00035
00101 TSX +0 07400 4 00001 00102 TXH +3 00000 0 00000 00103 SXD -0 63400 1 00102 00104 SXA +0 63400 4 00121
00105 CLA +0 50000 4 00001 00106 STA +0 62100 0 00051 00107 CLA +0 50000 4 00002 00110 STA +0 62100 0 00052
00111 CLA +0 50000 4 00003 00112 STA +0 62100 0 00040 00113 STA +0 62100 0 00044 00114 STA +0 62100 0 00053
00115 STO +0 60100 0 00056 00116 STO +0 60100 0 00063 00117 STO +0 60100 0 00070 00120 TRA +0 02000 2 00001
00121 AXT +0 77400 4 00000 00122 LXA +0 53400 2 00102 00123 LXD -0 53400 1 00102 00124 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE PFILE MAD 02/09/69 0657.0
-
PFILE PRINT ALL OCCURENCES OF A FILE. LM00001
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) *001 LM00002
LM00003
LM00004
NORMAL MODE IS INTEGER *002 LM00005
VECTOR VALUES M1 = 77777K *003 LM00006
VECTOR VALUES M2 = 77776K *004 LM00007
VECTOR VALUES M3 = 77775K *005 LM00008
VECTOR VALUES M4 = 77774K *006 LM00009
VECTOR VALUES FIRST = 1B *007 LM00010
BOOLEAN FIRST *008 LM00011
LM00012
LM00013
ENTRY TO COUNTR. *009 LM00014
LM00015
WHENEVER FIRST *010 LM00016
NAME1 = COMARG. (1) *011 LM00017
NAME2 = COMARG. (2) *012 LM00018
FIRST = 0B *013 LM00019
END OF CONDITIONAL *014 LM00020
LM00021
WHENEVER (BUFF.E.NAME1 .OR. NAME1.E.$ *$) .AND. *015 LM00022
1 (BUFF(M1).E.NAME2 .OR. NAME2.E.$ *$) *015 LM00023
COUNT = COUNT + 1 *016 LM00024
LM00025
WHENEVER (BUFF (M4) .A. 7K5) .E. 0 *017 LM00026
PRINT FORMAT OUT2, PROBN, PROGN,BUFF, BUFF(M1), *018 LM00027
1 BUFF (M2) , BUFF (M3) *018 LM00028
VECTOR VALUES OUT2 = $4(C6,S2),1HL,2(S2,C6)*$ *019 LM00029
OTHERWISE *020 LM00030
DATLU = BUFF (M3) *021 LM00031
YEAR = DATLU .RS. 27 *022 LM00032
MONTH = (DATLU .RS. 23) .A. 17K *023 LM00033
DAY = (DATLU .RS. 18) .A. 37K *024 LM00034
PRINT FORMAT OUT, PROBN, PROGN, BUFF, BUFF(M1) *025 LM00035
1 , MONTH, DAY, YEAR *025 LM00036
VECTOR VALUES OUT = $4(C6,S2),I2,1H/,I2,1H/,I2*$ *026 LM00037
END OF CONDITIONAL *027 LM00038
END OF CONDITIONAL *028 LM00039
LM00040
FUNCTION RETURN *029 LM00041
LM00042
LM00043
ENTRY TO FPRINT. *030 LM00044
PRINT RESULTS COUNT *031 LM00045
FUNCTION RETURN *032 LM00046
LM00047
LM00048
END OF FUNCTION *033 LM00049
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00307 TRANSFER VECTOR LENGTH 00004 PROGRAM BEGINS 00045
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FPRINT 00203 0 COUNTR 00046 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
COUNT 00005 1 FIRST 00010 A 2 M3 00013 A 1 NAME1 00016 1 OUT 00030 A 1
DATLU 00006 1 M1 00011 A 1 M4 00014 A 1 NAME2 00017 1 YEAR 00031 1
DAY 00007 1 M2 00012 A 1 MONTH 00015 1 OUT2 00023 A 1
0FUNCTION DICTIONARY
COMARG 00000 1 EXIT 00001 1 .PRINT 00002 1 .PRSLT 00003 1
0ABSOLUTE CONSTANTS
00041 +000000000037 00036 +000000000022 00035 +000000000017 00037 +000000000027 00040 +000000000033
00042 +000000700000 00044 -206060606054 00032 +000000000000 00034 +000000000002 00033 +000000000001
00043 +233000000000
0PROGRAM
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) 001 LM00002
N'R 002 LM00005
V'S M1 = 77777K 003 LM00006
00011 +0 00000 0 77777
V'S M2 = 77776K 004 LM00007
00012 +0 00000 0 77776
V'S M3 = 77775K 005 LM00008
00013 +0 00000 0 77775
V'S M4 = 77774K 006 LM00009
00014 +0 00000 0 77774
V'S FIRST = 1B 007 LM00010
00010 +0 00000 0 00001
B'N FIRST 008 LM00011
E'O COUNTR. 009 LM00014
00045 TRA +0 02000 0 00050 00046 SXA +0 63400 2 00213 00047 TSX +0 07400 2 00213
W'R FIRST 010 LM00016
00050 NZT -0 52000 0 00010 00051 TRA +0 02000 0 00062
NAME1 = COMARG. (1) 011 LM00017
00052 TSX +0 07400 4 00000 00053 TXH +3 00000 0 00033 00054 STO +0 60100 0 00016
NAME2 = COMARG. (2) 012 LM00018
00055 TSX +0 07400 4 00000 00056 TXH +3 00000 0 00034 00057 STO +0 60100 0 00017
FIRST = 0B 013 LM00019
00060 CLA +0 50000 0 00032 00061 STO +0 60100 0 00010
E'L 014 LM00020
W'R (BUFF.E.NAME1 .OR. NAME1.E.$ *$) .AND. 015 LM00022
1 (BUFF(M1).E.NAME2 .OR. NAME2.E.$ *$) 015 LM00023
00062 CLA +0 50000 0 00017 00063 SUB +0 40200 0 00044 00064 TZE +0 10000 0 00071 00065 LXA +0 53400 1 00011
00066 CLA +0 50000 1 00024 00067 SUB +0 40200 0 00017 00070 TNZ -0 10000 0 00201 00071 CLA +0 50000 0 00016
00072 SUB +0 40200 0 00044 00073 TZE +0 10000 0 00077 00074 CLA +0 50000 0 00024 00075 SUB +0 40200 0 00016
00076 TNZ -0 10000 0 00201
COUNT = COUNT + 1 016 LM00024
00077 CLA +0 50000 0 00005 00100 ADD +0 40000 0 00033 00101 STO +0 60100 0 00005
W'R (BUFF (M4) .A. 7K5) .E. 0 017 LM00026
00102 LXA +0 53400 1 00014 00103 CAL -0 50000 1 00024 00104 ANA -0 32000 0 00042 00105 SLW +0 60200 0 00244
00106 CLA +0 50000 0 00244 00107 SUB +0 40200 0 00032 00110 TNZ -0 10000 0 00137
P'T OUT2, PROBN, PROGN,BUFF, BUFF(M1), 018 LM00027
1 BUFF (M2) , BUFF (M3) 018 LM00028
00111 TSX +0 07400 4 00002 00112 STR -1 00023 1 00305 00113 STR -1 00000 0 00024 00114 STR -1 00000 0 00024
00115 STR -1 00000 0 00024 00116 CLA +0 50000 0 00011 00117 SUB +0 40200 0 00120 00120 TXH +3 00000 0 00024
00121 STA +0 62100 0 00122 00122 STR -1 00000 0 00000 00123 CLA +0 50000 0 00012 00124 SUB +0 40200 0 00125
00125 TXH +3 00000 0 00024 00126 STA +0 62100 0 00127 00127 STR -1 00000 0 00000 00130 CLA +0 50000 0 00013
00131 SUB +0 40200 0 00132 00132 TXH +3 00000 0 00024 00133 STA +0 62100 0 00134 00134 STR -1 00000 0 00000
00135 STR -1 00000 0 00000
V'S OUT2 = $4(C6,S2),1HL,2(S2,C6)*$ 019 LM00029
00020 +2 30634 5 46060 00021 -3 30274 6 20273 00022 +0 23473 0 13043 00023 +0 47423 0 67362
O'E 020 LM00030
00136 TRA +0 02000 0 00201
DATLU = BUFF (M3) 021 LM00031
00137 LXA +0 53400 2 00013 00140 CLA +0 50000 2 00024 00141 STO +0 60100 0 00006
YEAR = DATLU .RS. 27 022 LM00032
00142 CAL -0 50000 0 00040 00143 STA +0 62100 0 00145 00144 CAL -0 50000 0 00006 00145 LGR -0 76500 0 00000
00146 SLW +0 60200 0 00031
MONTH = (DATLU .RS. 23) .A. 17K 023 LM00033
00147 CAL -0 50000 0 00037 00150 STA +0 62100 0 00152 00151 CAL -0 50000 0 00006 00152 LGR -0 76500 0 00000
00153 ANA -0 32000 0 00035 00154 SLW +0 60200 0 00015
DAY = (DATLU .RS. 18) .A. 37K 024 LM00034
00155 CAL -0 50000 0 00036 00156 STA +0 62100 0 00160 00157 CAL -0 50000 0 00006 00160 LGR -0 76500 0 00000
00161 ANA -0 32000 0 00041 00162 SLW +0 60200 0 00007
P'T OUT, PROBN, PROGN, BUFF, BUFF(M1) 025 LM00035
1 , MONTH, DAY, YEAR 025 LM00036
00163 TSX +0 07400 4 00002 00164 STR -1 00030 1 00305 00165 STR -1 00000 0 00024 00166 STR -1 00000 0 00024
00167 STR -1 00000 0 00024 00170 CLA +0 50000 0 00011 00171 SUB +0 40200 0 00172 00172 TXH +3 00000 0 00024
00173 STA +0 62100 0 00174 00174 STR -1 00000 0 00000 00175 STR -1 00000 0 00015 00176 STR -1 00000 0 00007
00177 STR -1 00000 0 00031 00200 STR -1 00000 0 00000
V'S OUT = $4(C6,S2),I2,1H/,I2,1H/,I2*$ 026 LM00037
00024 +0 25460 6 06060 00025 -3 30130 6 17331 00026 +0 13061 7 33102 00027 +0 23473 3 10273
00030 +0 47423 0 67362
E'L 027 LM00038
E'L 028 LM00039
F'N 029 LM00041
00201 TRA +0 02000 0 00240
E'O FPRINT. 030 LM00044
00202 TRA +0 02000 0 00205 00203 SXA +0 63400 2 00213 00204 TSX +0 07400 2 00213
P'S COUNT 031 LM00045
00205 TSX +0 07400 4 00003 00206 TXH +3 00000 0 00305 00207 TXH +3 00000 0 00005 00210 TXH +3 00000 0 00000
F'N 032 LM00046
00211 TRA +0 02000 0 00240
E'N 033 LM00049
00212 TSX +0 07400 4 00001 00213 TXH +3 00000 0 00000 00214 SXD -0 63400 1 00213 00215 SXA +0 63400 4 00240
00216 CLA +0 50000 4 00001 00217 STA +0 62100 0 00113 00220 STA +0 62100 0 00165 00221 CLA +0 50000 4 00002
00222 STA +0 62100 0 00114 00223 STA +0 62100 0 00166 00224 CLA +0 50000 4 00003 00225 STA +0 62100 0 00066
00226 STA +0 62100 0 00074 00227 STA +0 62100 0 00103 00230 STA +0 62100 0 00115 00231 STO +0 60100 0 00120
00232 STO +0 60100 0 00125 00233 STO +0 60100 0 00132 00234 STA +0 62100 0 00140 00235 STA +0 62100 0 00167
00236 STO +0 60100 0 00172 00237 TRA +0 02000 2 00001 00240 AXT +0 77400 4 00000 00241 LXA +0 53400 2 00213
00242 LXD -0 53400 1 00213 00243 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE PMODE MAD 02/09/69 0657.2
-
PMODE - PRINTS FILES OF CERTAIN MODE FOR ALL OF SYSTEM LM00001
LM00002
WRITTEN BY ROGER ROACH 6/8/67 LM00003
LM00004
EXTERNAL FUNCTION (PROBN,PROGN,BUFF) *001 LM00005
NORMAL MODE IS INTEGER *002 LM00006
VECTOR VALUES COLON = 355757575757K *003 LM00007
VECTOR VALUES TAB1 = 557257575757K *004 LM00008
VECTOR VALUES TAB2 = 727257575757K *005 LM00009
VECTOR VALUES BL = 605757575757K *006 LM00010
VECTOR VALUES CR = 555757575757K *007 LM00011
VECTOR VALUES M1 = 77777K *008 LM00012
VECTOR VALUES M3 = 77775K *009 LM00013
VECTOR VALUES M4 = 77774K *010 LM00014
VECTOR VALUES M5 = 77773K *011 LM00015
VECTOR VALUES TOTAL = 0 *012 LM00016
VECTOR VALUES COUNT = 0 *013 LM00017
VECTOR VALUES SUBTOT = 0 *014 LM00018
VECTOR VALUES FIRST = 1B *015 LM00019
LM00020
COUNTR - COUNTS THE FILES LM00021
LM00022
ENTRY TO COUNTR. *016 LM00023
WHENEVER FIRST *017 LM00024
GETTM.(DATE,TIME) *018 LM00025
PRMESS.(CR,$ $,DATE,TIME,CR,CR, *019 LM00026
1 $ NAME MOD RECS DATE$) *019 LM00027
FIRST = 0B *020 LM00028
MASK = BCOCT.(COMARG.(1)) *021 LM00029
END OF CONDITIONAL *022 LM00030
N1 = BUFF *023 LM00031
N2 = BUFF(M1) *024 LM00032
WHENEVER N1.E.0 .AND. N2.E.0, FUNCTION RETURN *025 LM00033
MODE = (BUFF(M4).A.776K9).RS.28 *026 LM00034
AUTH = BZEL.(DERBC.(BUFF(M3))) *027 LM00035
WHENEVER AUTH .E. PROGN, AUTH = $ $ *028 LM00036
WHENEVER (MODE.A.MASK).NE. MASK, FUNCTION RETURN *029 LM00037
DEVIC = (BUFF(M4).A.7K5).RS.15 *030 LM00038
WHENEVER DEVIC .NE. 2, FUNCTION RETURN *031 LM00039
NOREC = (BUFF(M5).RS.18).A.M1 *032 LM00040
WHENEVER PB .NE. PROBN .OR. PG .NE. PROGN *033 LM00041
SUBTOT = BZEL.(DERBC.(SUBTOT)) *034 LM00042
WHENEVER SUBTOT.NE.$ 0$,PRMESS.(TAB2,SUBTOT) *035 LM00043
SUBTOT = 0 *036 LM00044
PRMESS.(TAB1,PROBN,BL,PROGN,COLON) *037 LM00045
PB = PROBN *038 LM00046
PG = PROGN *039 LM00047
END OF CONDITIONAL *040 LM00048
LM00049
PRINT FILE NAME, LENGTH ETC. LM00050
LM00051
SUBTOT = SUBTOT + NOREC *041 LM00052
TOTAL = TOTAL + NOREC *042 LM00053
COUNT = COUNT + 1 *043 LM00054
MOD = (OCABC.(MODE)).V.606060K6 *044 LM00055
NOREC = BZEL.(DERBC.(NOREC)) *045 LM00056
TEMP = BUFF(M3).RS.18 *046 LM00057
MO = DERBC.((TEMP.RS.5).A.17K) *047 LM00058
DA = DERBC.(TEMP.A.37K) *048 LM00059
DATE = (MO.LS.18).V.DA.V.$ 00/00$ *049 LM00060
PRMESS.(N1,BL,N2,MOD,NOREC,DATE,AUTH) *050 LM00061
FUNCTION RETURN *051 LM00062
LM00063
LM00064
FPRINT - FINAL PRINT OF TOTALS LM00065
LM00066
ENTRY TO FPRINT. *052 LM00067
SUBTOT = BZEL.(DERBC.(SUBTOT)) *053 LM00068
COUNT = BZ57.(DERBC.(COUNT)) *054 LM00069
WHENEVER SUBTOT.NE.$ 0$,PRMESS.(TAB2,SUBTOT) *055 LM00070
TOTAL = BZEL.(DERBC.(TOTAL)) *056 LM00071
PRMESS.(CR,CR,CR,$TOTAL FILES =$,COUNT,$, TOTAL RECORDS =$ *057 LM00072
1 ,TOTAL,CR,CR) *057 LM00073
FUNCTION RETURN *058 LM00074
END OF FUNCTION *059 LM00075
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00472 TRANSFER VECTOR LENGTH 00011 PROGRAM BEGINS 00100
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FPRINT 00364 0 COUNTR 00101 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AUTH 00012 1 DATE 00020 1 M5 00026 A 1 N2 00034 1 TAB1 00041 A 1
BL 00013 A 1 DEVIC 00021 1 MASK 00027 1 NOREC 00035 1 TAB2 00042 A 1
COLON 00014 A 1 FIRST 00022 A 2 MODE 00030 1 PB 00036 1 TEMP 00043 1
COUNT 00015 A 1 M1 00023 A 1 MOD 00031 1 PG 00037 1 TIME 00044 1
CR 00016 A 1 M3 00024 A 1 MO 00032 1 SUBTOT 00040 A 1 TOTAL 00045 A 1
DA 00017 1 M4 00025 A 1 N1 00033 1
0FUNCTION DICTIONARY
BCOCT 00000 1 BZ57 00001 1 BZEL 00002 1 COMARG 00003 1 DERBC 00004 1
EXIT 00005 1 GETTM 00006 1 OCABC 00007 1 PRMESS 00010 1
0ABSOLUTE CONSTANTS
00065 -112462601360 00064 -036051252346 00076 -336063466321 00057 +136060606060 00063 +263143256260
00075 -234663214360 00066 -200000610000 00055 +000000000037 00051 +000000000005 00070 -206060000000
00072 -206060606000 00053 +000000000022 00050 +000000000002 00052 +000000000017 00056 +000000700000
00054 +000000000034 00077 -376000000000 00046 +000000000000 00067 -206024216325 00062 +246051252362
00071 -206060604446 00060 +214425606060 00073 -206060606045 00074 -206060606060 00047 +000000000001
00061 +233000000000
0PROGRAM
EXTERNAL FUNCTION (PROBN,PROGN,BUFF) 001 LM00005
N'R 002 LM00006
V'S COLON = 355757575757K 003 LM00007
00014 +3 55757 5 75757
V'S TAB1 = 557257575757K 004 LM00008
00041 -1 57257 5 75757
V'S TAB2 = 727257575757K 005 LM00009
00042 -3 27257 5 75757
V'S BL = 605757575757K 006 LM00010
00013 -2 05757 5 75757
V'S CR = 555757575757K 007 LM00011
00016 -1 55757 5 75757
V'S M1 = 77777K 008 LM00012
00023 +0 00000 0 77777
V'S M3 = 77775K 009 LM00013
00024 +0 00000 0 77775
V'S M4 = 77774K 010 LM00014
00025 +0 00000 0 77774
V'S M5 = 77773K 011 LM00015
00026 +0 00000 0 77773
V'S TOTAL = 0 012 LM00016
00045 +0 00000 0 00000
V'S COUNT = 0 013 LM00017
00015 +0 00000 0 00000
V'S SUBTOT = 0 014 LM00018
00040 +0 00000 0 00000
V'S FIRST = 1B 015 LM00019
00022 +0 00000 0 00001
E'O COUNTR. 016 LM00023
00100 TRA +0 02000 0 00103 00101 SXA +0 63400 2 00436 00102 TSX +0 07400 2 00436
W'R FIRST 017 LM00024
00103 NZT -0 52000 0 00022 00104 TRA +0 02000 0 00134
GETTM.(DATE,TIME) 018 LM00025
00105 TSX +0 07400 4 00006 00106 TXH +3 00000 0 00020 00107 TXH +3 00000 0 00044
PRMESS.(CR,$ $,DATE,TIME,CR,CR, 019 LM00026
1 $ NAME MOD RECS DATE$) 019 LM00027
00110 TSX +0 07400 4 00010 00111 TXH +3 00000 0 00016 00112 TXH +3 00000 0 00074 00113 TXH +3 00000 0 00020
00114 TXH +3 00000 0 00044 00115 TXH +3 00000 0 00016 00116 TXH +3 00000 0 00016 00117 TXH +3 00000 0 00073
00120 TXH +3 00000 0 00060 00121 TXH +3 00000 0 00071 00122 TXH +3 00000 0 00062 00123 TXH +3 00000 0 00067
FIRST = 0B 020 LM00028
00124 CLA +0 50000 0 00046 00125 STO +0 60100 0 00022
MASK = BCOCT.(COMARG.(1)) 021 LM00029
00126 TSX +0 07400 4 00003 00127 TXH +3 00000 0 00047 00130 STO +0 60100 0 00467 00131 TSX +0 07400 4 00000
00132 TXH +3 00000 0 00467 00133 STO +0 60100 0 00027
E'L 022 LM00030
N1 = BUFF 023 LM00031
00134 CLA +0 50000 0 00024 00135 STO +0 60100 0 00033
N2 = BUFF(M1) 024 LM00032
00136 LXA +0 53400 2 00023 00137 CLA +0 50000 2 00024 00140 STO +0 60100 0 00034
W'R N1.E.0 .AND. N2.E.0, F'N 025 LM00033
00141 CLA +0 50000 0 00034 00142 SUB +0 40200 0 00046 00143 TNZ -0 10000 0 00150 00144 CLA +0 50000 0 00033
00145 SUB +0 40200 0 00046 00146 TNZ -0 10000 0 00150 00147 TRA +0 02000 0 00463
MODE = (BUFF(M4).A.776K9).RS.28 026 LM00034
00150 LXA +0 53400 1 00025 00151 CAL -0 50000 1 00024 00152 ANA -0 32000 0 00077 00153 SLW +0 60200 0 00467
00154 CAL -0 50000 0 00054 00155 STA +0 62100 0 00157 00156 CAL -0 50000 0 00467 00157 LGR -0 76500 0 00000
00160 SLW +0 60200 0 00030
AUTH = BZEL.(DERBC.(BUFF(M3))) 027 LM00035
00161 CLA +0 50000 0 00024 00162 SUB +0 40200 0 00163 00163 TXH +3 00000 0 00024 00164 STA +0 62100 0 00166
00165 TSX +0 07400 4 00004 00166 TXH +3 00000 0 00000 00167 STO +0 60100 0 00467 00170 TSX +0 07400 4 00002
00171 TXH +3 00000 0 00467 00172 STO +0 60100 0 00012
W'R AUTH .E. PROGN, AUTH = $ $ 028 LM00036
00173 CLA +0 50000 0 00012 00174 SUB +0 40200 0 00024 00175 TNZ -0 10000 0 00200 00176 CLA +0 50000 0 00074
00177 STO +0 60100 0 00012
W'R (MODE.A.MASK).NE. MASK, F'N 029 LM00037
00200 CAL -0 50000 0 00030 00201 ANA -0 32000 0 00027 00202 SLW +0 60200 0 00467 00203 CLA +0 50000 0 00467
00204 SUB +0 40200 0 00027 00205 TZE +0 10000 0 00207 00206 TRA +0 02000 0 00463
DEVIC = (BUFF(M4).A.7K5).RS.15 030 LM00038
00207 LXA +0 53400 1 00025 00210 CAL -0 50000 1 00024 00211 ANA -0 32000 0 00056 00212 SLW +0 60200 0 00467
00213 CAL -0 50000 0 00052 00214 STA +0 62100 0 00216 00215 CAL -0 50000 0 00467 00216 LGR -0 76500 0 00000
00217 SLW +0 60200 0 00021
W'R DEVIC .NE. 2, F'N 031 LM00039
00220 CLA +0 50000 0 00021 00221 SUB +0 40200 0 00050 00222 TZE +0 10000 0 00224 00223 TRA +0 02000 0 00463
NOREC = (BUFF(M5).RS.18).A.M1 032 LM00040
00224 LXA +0 53400 1 00026 00225 CAL -0 50000 0 00053 00226 STA +0 62100 0 00230 00227 CAL -0 50000 1 00024
00230 LGR -0 76500 0 00000 00231 ANA -0 32000 0 00023 00232 SLW +0 60200 0 00035
W'R PB .NE. PROBN .OR. PG .NE. PROGN 033 LM00041
00233 CLA +0 50000 0 00037 00234 SUB +0 40200 0 00024 00235 TNZ -0 10000 0 00241 00236 CLA +0 50000 0 00036
00237 SUB +0 40200 0 00024 00240 TZE +0 10000 0 00271
SUBTOT = BZEL.(DERBC.(SUBTOT)) 034 LM00042
00241 TSX +0 07400 4 00004 00242 TXH +3 00000 0 00040 00243 STO +0 60100 0 00467 00244 TSX +0 07400 4 00002
00245 TXH +3 00000 0 00467 00246 STO +0 60100 0 00040
W'R SUBTOT.NE.$ 0$,PRMESS.(TAB2,SUBTOT) 035 LM00043
00247 CLA +0 50000 0 00040 00250 SUB +0 40200 0 00072 00251 TZE +0 10000 0 00255 00252 TSX +0 07400 4 00010
00253 TXH +3 00000 0 00042 00254 TXH +3 00000 0 00040
SUBTOT = 0 036 LM00044
00255 CLA +0 50000 0 00046 00256 STO +0 60100 0 00040
PRMESS.(TAB1,PROBN,BL,PROGN,COLON) 037 LM00045
00257 TSX +0 07400 4 00010 00260 TXH +3 00000 0 00041 00261 TXH +3 00000 0 00024 00262 TXH +3 00000 0 00013
00263 TXH +3 00000 0 00024 00264 TXH +3 00000 0 00014
PB = PROBN 038 LM00046
00265 CLA +0 50000 0 00024 00266 STO +0 60100 0 00036
PG = PROGN 039 LM00047
00267 CLA +0 50000 0 00024 00270 STO +0 60100 0 00037
E'L 040 LM00048
SUBTOT = SUBTOT + NOREC 041 LM00052
00271 CLA +0 50000 0 00040 00272 ADD +0 40000 0 00035 00273 STO +0 60100 0 00040
TOTAL = TOTAL + NOREC 042 LM00053
00274 CLA +0 50000 0 00045 00275 ADD +0 40000 0 00035 00276 STO +0 60100 0 00045
COUNT = COUNT + 1 043 LM00054
00277 CLA +0 50000 0 00015 00300 ADD +0 40000 0 00047 00301 STO +0 60100 0 00015
MOD = (OCABC.(MODE)).V.606060K6 044 LM00055
00302 TSX +0 07400 4 00007 00303 TXH +3 00000 0 00030 00304 STO +0 60100 0 00467 00305 CAL -0 50000 0 00467
00306 ORA -0 50100 0 00070 00307 SLW +0 60200 0 00031
NOREC = BZEL.(DERBC.(NOREC)) 045 LM00056
00310 TSX +0 07400 4 00004 00311 TXH +3 00000 0 00035 00312 STO +0 60100 0 00467 00313 TSX +0 07400 4 00002
00314 TXH +3 00000 0 00467 00315 STO +0 60100 0 00035
TEMP = BUFF(M3).RS.18 046 LM00057
00316 LXA +0 53400 1 00024 00317 CAL -0 50000 0 00053 00320 STA +0 62100 0 00322 00321 CAL -0 50000 1 00024
00322 LGR -0 76500 0 00000 00323 SLW +0 60200 0 00043
MO = DERBC.((TEMP.RS.5).A.17K) 047 LM00058
00324 CAL -0 50000 0 00051 00325 STA +0 62100 0 00327 00326 CAL -0 50000 0 00043 00327 LGR -0 76500 0 00000
00330 ANA -0 32000 0 00052 00331 SLW +0 60200 0 00467 00332 TSX +0 07400 4 00004 00333 TXH +3 00000 0 00467
00334 STO +0 60100 0 00032
DA = DERBC.(TEMP.A.37K) 048 LM00059
00335 CAL -0 50000 0 00043 00336 ANA -0 32000 0 00055 00337 SLW +0 60200 0 00467 00340 TSX +0 07400 4 00004
00341 TXH +3 00000 0 00467 00342 STO +0 60100 0 00017
DATE = (MO.LS.18).V.DA.V.$ 00/00$ 049 LM00060
00343 CAL -0 50000 0 00053 00344 STA +0 62100 0 00346 00345 CAL -0 50000 0 00032 00346 ALS +0 76700 0 00000
00347 ORA -0 50100 0 00017 00350 ORA -0 50100 0 00066 00351 SLW +0 60200 0 00020
PRMESS.(N1,BL,N2,MOD,NOREC,DATE,AUTH) 050 LM00061
00352 TSX +0 07400 4 00010 00353 TXH +3 00000 0 00033 00354 TXH +3 00000 0 00013 00355 TXH +3 00000 0 00034
00356 TXH +3 00000 0 00031 00357 TXH +3 00000 0 00035 00360 TXH +3 00000 0 00020 00361 TXH +3 00000 0 00012
F'N 051 LM00062
00362 TRA +0 02000 0 00463
E'O FPRINT. 052 LM00067
00363 TRA +0 02000 0 00366 00364 SXA +0 63400 2 00436 00365 TSX +0 07400 2 00436
SUBTOT = BZEL.(DERBC.(SUBTOT)) 053 LM00068
00366 TSX +0 07400 4 00004 00367 TXH +3 00000 0 00040 00370 STO +0 60100 0 00467 00371 TSX +0 07400 4 00002
00372 TXH +3 00000 0 00467 00373 STO +0 60100 0 00040
COUNT = BZ57.(DERBC.(COUNT)) 054 LM00069
00374 TSX +0 07400 4 00004 00375 TXH +3 00000 0 00015 00376 STO +0 60100 0 00467 00377 TSX +0 07400 4 00001
00400 TXH +3 00000 0 00467 00401 STO +0 60100 0 00015
W'R SUBTOT.NE.$ 0$,PRMESS.(TAB2,SUBTOT) 055 LM00070
00402 CLA +0 50000 0 00040 00403 SUB +0 40200 0 00072 00404 TZE +0 10000 0 00410 00405 TSX +0 07400 4 00010
00406 TXH +3 00000 0 00042 00407 TXH +3 00000 0 00040
TOTAL = BZEL.(DERBC.(TOTAL)) 056 LM00071
00410 TSX +0 07400 4 00004 00411 TXH +3 00000 0 00045 00412 STO +0 60100 0 00467 00413 TSX +0 07400 4 00002
00414 TXH +3 00000 0 00467 00415 STO +0 60100 0 00045
PRMESS.(CR,CR,CR,$TOTAL FILES =$,COUNT,$, TOTAL RECORDS =$ 057 LM00072
1 ,TOTAL,CR,CR) 057 LM00073
00416 TSX +0 07400 4 00010 00417 TXH +3 00000 0 00016 00420 TXH +3 00000 0 00016 00421 TXH +3 00000 0 00016
00422 TXH +3 00000 0 00075 00423 TXH +3 00000 0 00063 00424 TXH +3 00000 0 00057 00425 TXH +3 00000 0 00015
00426 TXH +3 00000 0 00076 00427 TXH +3 00000 0 00064 00430 TXH +3 00000 0 00065 00431 TXH +3 00000 0 00045
00432 TXH +3 00000 0 00016 00433 TXH +3 00000 0 00016
F'N 058 LM00074
00434 TRA +0 02000 0 00463
E'N 059 LM00075
00435 TSX +0 07400 4 00005 00436 TXH +3 00000 0 00000 00437 SXD -0 63400 1 00436 00440 SXA +0 63400 4 00463
00441 CLA +0 50000 4 00001 00442 STA +0 62100 0 00237 00443 STO +0 60100 0 00261 00444 STA +0 62100 0 00265
00445 CLA +0 50000 4 00002 00446 STA +0 62100 0 00174 00447 STA +0 62100 0 00234 00450 STO +0 60100 0 00263
00451 STA +0 62100 0 00267 00452 CLA +0 50000 4 00003 00453 STA +0 62100 0 00134 00454 STA +0 62100 0 00137
00455 STA +0 62100 0 00151 00456 STO +0 60100 0 00163 00457 STA +0 62100 0 00210 00460 STA +0 62100 0 00227
00461 STA +0 62100 0 00321 00462 TRA +0 02000 2 00001 00463 AXT +0 77400 4 00000 00464 LXA +0 53400 2 00436
00465 LXD -0 53400 1 00436 00466 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE PDATE MAD 02/09/69 0657.1
-
PDATE PRINT ALL FILES OLDER THAN GIVEN DATE. LM00001
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) *001 LM00002
NORMAL MODE IS INTEGER *002 LM00003
LM00004
DIMENSION FTBL (90), RTBL (90) *003 LM00005
LM00006
LM00007
VECTOR VALUES M3 = 77775K *004 LM00008
VECTOR VALUES M4 = 77774K *005 LM00009
VECTOR VALUES M5 = 77773K *006 LM00010
LM00011
VECTOR VALUES FIRST = 1B *007 LM00012
LM00013
LM00014
LM00015
ENTRY TO COUNTR. *008 LM00016
LM00017
LM00018
WHENEVER FIRST *009 LM00019
DATE = COMARG. (1) *010 LM00020
YEAR = BCDEC. ( DATE .A. 7777K ) *011 LM00021
MONTH = BCDEC. ( (DATE .RS. 24) .A. 7777K ) *012 LM00022
DAY = BCDEC. ( (DATE .RS. 12) .A. 7777K ) *013 LM00023
LM00024
NOW = ABSDAT. (MONTH, DAY, YEAR) *014 LM00025
FIRST = 0B *015 LM00026
LM00027
ZERO. (FTBL ... FTBL (90), RTBL ... RTBL (90) ) *016 LM00028
END OF CONDITIONAL *017 LM00029
LM00030
LM00031
WHENEVER (BUFF (M4) .RS. 15) .A. 7K .E. 2 *018 LM00032
LM00033
TEMP = BUFF (M3) .RS. 18 *019 LM00034
YEAR = TEMP .RS. 9 *020 LM00035
MONTH = TEMP .RS. 5 .A. 17K *021 LM00036
DAY = TEMP .A. 37 K *022 LM00037
AGE = NOW - ABSDAT. (MONTH, DAY, YEAR) *023 LM00038
WHENEVER AGE .G. 90, AGE = 90 *024 LM00039
WHENEVER AGE .L. 0, AGE = 0 *025 LM00040
LM00041
NORECS = (BUFF (M5) .RS. 18) .A. 77777K *026 LM00042
LM00043
FTBL (AGE) = FTBL (AGE) + 1 *027 LM00044
RTBL (AGE) = RTBL (AGE) + NORECS *028 LM00045
LM00046
LM00047
END OF CONDITIONAL *029 LM00048
LM00049
LM00050
LM00051
LM00052
FUNCTION RETURN *030 LM00053
LM00054
LM00055
LM00056
ENTRY TO FPRINT. *031 LM00057
LM00058
LM00059
PRINT COMMENT $AGE FILES OLDER RECS OLDER$ *032 LM00060
PRINT COMMENT $ $ *033 LM00061
LM00062
THROUGH BETA, FOR K = 0, 1, K .G. 90 *034 LM00063
FOLDER = 0 *035 LM00064
ROLDER = 0 *036 LM00065
LM00066
THROUGH ALPHA, FOR J = K, 1, J .G. 90 *037 LM00067
FOLDER = FOLDER + FTBL (J) *038 LM00068
ROLDER = ROLDER + RTBL (J) *039 LM00069
VAR = ROLDER / 1000 *040 LM00070
ALPHA CONTINUE *041 LM00071
LM00072
PRINT FORMAT OUTPT, K, FTBL (K), FOLDER, RTBL (K), ROLDER *042 LM00073
LM00074
VECTOR VALUES OUTPT = $I3,S1,4I7,S2,'VAR'(1HX)*$ *043 LM00075
FORMAT VARIABLE VAR *044 LM00076
LM00077
BETA CONTINUE *045 LM00078
LM00079
LM00080
LM00081
FUNCTION RETURN *046 LM00082
LM00083
LM00084
LM00085
END OF FUNCTION *047 LM00086
THE FOLLOWING NAMES HAVE OCCURRED ONLY ONCE IN THIS PROGRAM.
COMPILATION WILL CONTINUE.
VAR
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00644 TRANSFER VECTOR LENGTH 00007 PROGRAM BEGINS 00343
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FPRINT 00516 0 COUNTR 00344 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AGE 00010 1 FIRST 00013 A 2 M3 00152 A 1 NORECS 00156 1 RTBL 00317 A 1
ALPHA 00007 4 FOLDER 00014 1 M4 00153 A 1 NOW 00157 1 TEMP 00320 1
BETA 00007 4 FTBL 00147 A 1 M5 00154 A 1 OUTPT 00163 A 1 VAR 00321 1
DATE 00011 1 J 00150 1 MONTH 00155 1 ROLDER 00164 1 YEAR 00322 1
DAY 00012 1 K 00151 1
0FUNCTION DICTIONARY
ABSDAT 00000 1 BCDEC 00001 1 COMARG 00002 1 EXIT 00003 1 .PCOMT 00004 1
.PRINT 00005 1 ZERO 00006 1
0ABSOLUTE CONSTANTS
00337 +000000001750 00341 +000000077777 00336 +000000000132 00335 +000000000037 00326 +000000000005
00330 +000000000011 00333 +000000000022 00325 +000000000002 00327 +000000000007 00332 +000000000017
00323 +000000000000 00331 +000000000014 00334 +000000000030 00340 +000000007777 00324 +000000000001
00342 +233000000000
0PROGRAM
EXTERNAL FUNCTION ( PROBN, PROGN, BUFF ) 001 LM00002
N'R 002 LM00003
D'N FTBL (90), RTBL (90) 003 LM00005
V'S M3 = 77775K 004 LM00008
00152 +0 00000 0 77775
V'S M4 = 77774K 005 LM00009
00153 +0 00000 0 77774
V'S M5 = 77773K 006 LM00010
00154 +0 00000 0 77773
V'S FIRST = 1B 007 LM00012
00013 +0 00000 0 00001
E'O COUNTR. 008 LM00016
00343 TRA +0 02000 0 00346 00344 SXA +0 63400 2 00623 00345 TSX +0 07400 2 00623
W'R FIRST 009 LM00019
00346 NZT -0 52000 0 00013 00347 TRA +0 02000 0 00415
DATE = COMARG. (1) 010 LM00020
00350 TSX +0 07400 4 00002 00351 TXH +3 00000 0 00324 00352 STO +0 60100 0 00011
YEAR = BCDEC. ( DATE .A. 7777K ) 011 LM00021
00353 CAL -0 50000 0 00011 00354 ANA -0 32000 0 00340 00355 SLW +0 60200 0 00637 00356 TSX +0 07400 4 00001
00357 TXH +3 00000 0 00637 00360 STO +0 60100 0 00322
MONTH = BCDEC. ( (DATE .RS. 24) .A. 7777K ) 012 LM00022
00361 CAL -0 50000 0 00334 00362 STA +0 62100 0 00364 00363 CAL -0 50000 0 00011 00364 LGR -0 76500 0 00000
00365 ANA -0 32000 0 00340 00366 SLW +0 60200 0 00637 00367 TSX +0 07400 4 00001 00370 TXH +3 00000 0 00637
00371 STO +0 60100 0 00155
DAY = BCDEC. ( (DATE .RS. 12) .A. 7777K ) 013 LM00023
00372 CAL -0 50000 0 00331 00373 STA +0 62100 0 00375 00374 CAL -0 50000 0 00011 00375 LGR -0 76500 0 00000
00376 ANA -0 32000 0 00340 00377 SLW +0 60200 0 00637 00400 TSX +0 07400 4 00001 00401 TXH +3 00000 0 00637
00402 STO +0 60100 0 00012
NOW = ABSDAT. (MONTH, DAY, YEAR) 014 LM00025
00403 TSX +0 07400 4 00000 00404 TXH +3 00000 0 00155 00405 TXH +3 00000 0 00012 00406 TXH +3 00000 0 00322
00407 STO +0 60100 0 00157
FIRST = 0B 015 LM00026
00410 CLA +0 50000 0 00323 00411 STO +0 60100 0 00013
ZERO. (FTBL ... FTBL (90), RTBL ... RTBL (90) ) 016 LM00028
00412 TSX +0 07400 4 00006 00413 TIX +2 00015 0 00147 00414 TIX +2 00165 0 00317
E'L 017 LM00029
W'R (BUFF (M4) .RS. 15) .A. 7K .E. 2 018 LM00032
00415 LXA +0 53400 1 00153 00416 CAL -0 50000 0 00332 00417 STA +0 62100 0 00421 00420 CAL -0 50000 1 00024
00421 LGR -0 76500 0 00000 00422 ANA -0 32000 0 00327 00423 SLW +0 60200 0 00637 00424 CLA +0 50000 0 00637
00425 SUB +0 40200 0 00325 00426 TNZ -0 10000 0 00514
TEMP = BUFF (M3) .RS. 18 019 LM00034
00427 LXA +0 53400 1 00152 00430 CAL -0 50000 0 00333 00431 STA +0 62100 0 00433 00432 CAL -0 50000 1 00024
00433 LGR -0 76500 0 00000 00434 SLW +0 60200 0 00320
YEAR = TEMP .RS. 9 020 LM00035
00435 CAL -0 50000 0 00330 00436 STA +0 62100 0 00440 00437 CAL -0 50000 0 00320 00440 LGR -0 76500 0 00000
00441 SLW +0 60200 0 00322
MONTH = TEMP .RS. 5 .A. 17K 021 LM00036
00442 CAL -0 50000 0 00326 00443 STA +0 62100 0 00445 00444 CAL -0 50000 0 00320 00445 LGR -0 76500 0 00000
00446 ANA -0 32000 0 00332 00447 SLW +0 60200 0 00155
DAY = TEMP .A. 37 K 022 LM00037
00450 CAL -0 50000 0 00320 00451 ANA -0 32000 0 00335 00452 SLW +0 60200 0 00012
AGE = NOW - ABSDAT. (MONTH, DAY, YEAR) 023 LM00038
00453 TSX +0 07400 4 00000 00454 TXH +3 00000 0 00155 00455 TXH +3 00000 0 00012 00456 TXH +3 00000 0 00322
00457 CHS +0 76000 0 00002 00460 ADD +0 40000 0 00157 00461 STO +0 60100 0 00010
W'R AGE .G. 90, AGE = 90 024 LM00039
00462 CLA +0 50000 0 00010 00463 SUB +0 40200 0 00336 00464 TZE +0 10000 0 00470 00465 TMI -0 12000 0 00470
00466 CLA +0 50000 0 00336 00467 STO +0 60100 0 00010
W'R AGE .L. 0, AGE = 0 025 LM00040
00470 CLA +0 50000 0 00010 00471 SUB +0 40200 0 00323 00472 TZE +0 10000 0 00476 00473 TPL +0 12000 0 00476
00474 CLA +0 50000 0 00323 00475 STO +0 60100 0 00010
NORECS = (BUFF (M5) .RS. 18) .A. 77777K 026 LM00042
00476 LXA +0 53400 1 00154 00477 CAL -0 50000 0 00333 00500 STA +0 62100 0 00502 00501 CAL -0 50000 1 00024
00502 LGR -0 76500 0 00000 00503 ANA -0 32000 0 00341 00504 SLW +0 60200 0 00156
FTBL (AGE) = FTBL (AGE) + 1 027 LM00044
00505 LXA +0 53400 1 00010 00506 CLA +0 50000 1 00147 00507 ADD +0 40000 0 00324 00510 STO +0 60100 1 00147
RTBL (AGE) = RTBL (AGE) + NORECS 028 LM00045
00511 CLA +0 50000 1 00317 00512 ADD +0 40000 0 00156 00513 STO +0 60100 1 00317
E'L 029 LM00048
F'N 030 LM00053
00514 TRA +0 02000 0 00633
E'O FPRINT. 031 LM00057
00515 TRA +0 02000 0 00520 00516 SXA +0 63400 2 00623 00517 TSX +0 07400 2 00623
PRINT COMMENT $AGE FILES OLDER RECS OLDER$ 032 LM00060
00520 TSX +0 07400 4 00004 00521 +0 00000 0 00006 00522 +2 12725 6 06026 00523 +3 14325 6 26060
00524 -0 64324 2 55160 00525 -2 05125 2 36260 00526 -2 06046 4 32425 00527 -1 16060 6 06060
PRINT COMMENT $ $ 033 LM00061
00530 TSX +0 07400 4 00004 00531 +0 00000 0 00001 00532 -2 06060 6 06060
T'H BETA, FOR K = 0, 1, K .G. 90 034 LM00063
00533 CLA +0 50000 0 00323 00534 STO +0 60100 0 00151 00535 TRA +0 02000 0 00541 00536 CLA +0 50000 0 00151
00537 ADD +0 40000 0 00324 00540 STO +0 60100 0 00151 00541 CLA +0 50000 0 00151 00542 SUB +0 40200 0 00336
00543 TZE +0 10000 0 00545 00544 TPL +0 12000 0 00621
FOLDER = 0 035 LM00064
00545 CLA +0 50000 0 00323 00546 STO +0 60100 0 00014
ROLDER = 0 036 LM00065
00547 CLA +0 50000 0 00323 00550 STO +0 60100 0 00164
T'H ALPHA, FOR J = K, 1, J .G. 90 037 LM00067
00551 CLA +0 50000 0 00151 00552 STO +0 60100 0 00150 00553 TRA +0 02000 0 00557 00554 CLA +0 50000 0 00150
00555 ADD +0 40000 0 00324 00556 STO +0 60100 0 00150 00557 CLA +0 50000 0 00150 00560 SUB +0 40200 0 00336
00561 TZE +0 10000 0 00563 00562 TPL +0 12000 0 00600
FOLDER = FOLDER + FTBL (J) 038 LM00068
00563 LXA +0 53400 2 00150 00564 CLA +0 50000 0 00014 00565 ADD +0 40000 2 00147 00566 STO +0 60100 0 00014
ROLDER = ROLDER + RTBL (J) 039 LM00069
00567 CLA +0 50000 0 00164 00570 ADD +0 40000 2 00317 00571 STO +0 60100 0 00164
VAR = ROLDER / 1000 040 LM00070
00572 LDQ +0 56000 0 00164 00573 PXD -0 75400 0 00000 00574 LLS +0 76300 0 00000 00575 DVP +0 22100 0 00337
00576 STQ -0 60000 0 00321
ALPHA C'E 041 LM00071
00577 TRA +0 02000 0 00554
P'T OUTPT, K, FTBL (K), FOLDER, RTBL (K), ROLDER 042 LM00073
00600 TSX +0 07400 4 00005 00601 STR -1 00163 1 00642 00602 STR -1 00000 0 00151 00603 CLA +0 50000 0 00151
00604 SUB +0 40200 0 00605 00605 TXH +3 00000 0 00147 00606 STA +0 62100 0 00607 00607 STR -1 00000 0 00000
00610 STR -1 00000 0 00014 00611 CLA +0 50000 0 00151 00612 SUB +0 40200 0 00613 00613 TXH +3 00000 0 00317
00614 STA +0 62100 0 00615 00615 STR -1 00000 0 00000 00616 STR -1 00000 0 00164 00617 STR -1 00000 0 00000
V'S OUTPT = $I3,S1,4I7,S2,'VAR'(1HX)*$ 043 LM00075
00160 -3 40130 6 73454 00161 -3 31465 2 15114 00162 +0 43107 7 36202 00163 +3 10373 6 20173
FORMAT VARIABLE VAR 044 LM00076
BETA C'E 045 LM00078
00620 TRA +0 02000 0 00536
F'N 046 LM00082
00621 TRA +0 02000 0 00633
E'N 047 LM00086
00622 TSX +0 07400 4 00003 00623 TXH +3 00000 0 00000 00624 SXD -0 63400 1 00623 00625 SXA +0 63400 4 00633
00626 CLA +0 50000 4 00003 00627 STA +0 62100 0 00420 00630 STA +0 62100 0 00432 00631 STA +0 62100 0 00501
00632 TRA +0 02000 2 00001 00633 AXT +0 77400 4 00000 00634 LXA +0 53400 2 00623 00635 LXD -0 53400 1 00623
00636 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE PTEMP MAD 02/09/69 0657.1
-
PTEMP - PRINTS OUT TEMPORARY DISK FILES FOR ALL OF SYSTEM LM00001
LM00002
WRITTEN BY ROGER ROACH 6/8/67 LM00003
LM00004
EXTERNAL FUNCTION (PROBN,PROGN,BUFF) *001 LM00005
NORMAL MODE IS INTEGER *002 LM00006
VECTOR VALUES COLON = 355757575757K *003 LM00007
VECTOR VALUES TAB1 = 557257575757K *004 LM00008
VECTOR VALUES TAB2 = 727257575757K *005 LM00009
VECTOR VALUES BL = 605757575757K *006 LM00010
VECTOR VALUES CR = 555757575757K *007 LM00011
VECTOR VALUES M1 = 77777K *008 LM00012
VECTOR VALUES M3 = 77775K *009 LM00013
VECTOR VALUES M4 = 77774K *010 LM00014
VECTOR VALUES M5 = 77773K *011 LM00015
VECTOR VALUES TOTAL = 0 *012 LM00016
VECTOR VALUES SUBTOT = 0 *013 LM00017
VECTOR VALUES COUNT = 0 *014 LM00018
VECTOR VALUES FIRST = 1B *015 LM00019
LM00020
COUNTR - COUNTS TEMPORARY FILES LM00021
LM00022
ENTRY TO COUNTR. *016 LM00023
WHENEVER FIRST *017 LM00024
GETTM.(DATE,TIME) *018 LM00025
PRMESS.(CR,CR,$TEMPORARY FILES$,DATE,TIME,CR,CR, *019 LM00026
1 $ NAME MOD RECS DATE$) *019 LM00027
FIRST = 0B *020 LM00028
END OF CONDITIONAL *021 LM00029
N1 = BUFF *022 LM00030
N2 = BUFF(M1) *023 LM00031
WHENEVER N1.E.0 .AND. N2.E.0, FUNCTION RETURN *024 LM00032
MODE = (BUFF(M4).A.776K9).RS.28 *025 LM00033
AUTH = BZEL.(DERBC.(BUFF(M3))) *026 LM00034
WHENEVER AUTH .E. PROGN, AUTH = $ $ *027 LM00035
WHENEVER (MODE.A.1).NE. 1, FUNCTION RETURN *028 LM00036
DEVIC = (BUFF(M4).A.7K5).RS.15 *029 LM00037
WHENEVER DEVIC .NE. 2, FUNCTION RETURN *030 LM00038
NOREC = (BUFF(M5).RS.18).A.M1 *031 LM00039
WHENEVER PB .NE. PROBN .OR. PG .NE. PROGN *032 LM00040
SUBTOT = BZEL.(DERBC.(SUBTOT)) *033 LM00041
WHENEVER SUBTOT.NE.$ 0$,PRMESS.(TAB2,SUBTOT) *034 LM00042
SUBTOT = 0 *035 LM00043
PRMESS.(TAB1,PROBN,BL,PROGN,COLON) *036 LM00044
PB = PROBN *037 LM00045
PG = PROGN *038 LM00046
END OF CONDITIONAL *039 LM00047
LM00048
PRINT FILE NAME, LENGTH ETC. LM00049
LM00050
SUBTOT = SUBTOT + NOREC *040 LM00051
TOTAL = TOTAL + NOREC *041 LM00052
COUNT = COUNT + 1 *042 LM00053
MOD = (OCABC.(MODE)).V.606060K6 *043 LM00054
NOREC = BZEL.(DERBC.(NOREC)) *044 LM00055
TEMP = BUFF(M3).RS.18 *045 LM00056
MO = DERBC.((TEMP.RS.5).A.17K) *046 LM00057
DA = DERBC.(TEMP.A.37K) *047 LM00058
DATE = (MO.LS.18).V.DA.V.$ 00/00$ *048 LM00059
PRMESS.(N1,BL,N2,MOD,NOREC,DATE,AUTH) *049 LM00060
FUNCTION RETURN *050 LM00061
LM00062
LM00063
FPRINT - FINAL PRINT OF TOTALS LM00064
LM00065
ENTRY TO FPRINT. *051 LM00066
COUNT = BZ57.(DERBC.(COUNT)) *052 LM00067
SUBTOT = BZEL.(DERBC.(SUBTOT)) *053 LM00068
PRMESS.(TAB2,SUBTOT) *054 LM00069
TOTAL = BZEL.(DERBC.(TOTAL)) *055 LM00070
PRMESS.(CR,CR,CR,$TOTAL FILES =$,COUNT, $, TOTAL RECORDS =$, *056 LM00071
1 TOTAL,CR,CR,CR) *056 LM00072
FUNCTION RETURN *057 LM00073
END OF FUNCTION *058 LM00074
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00465 TRANSFER VECTOR LENGTH 00007 PROGRAM BEGINS 00100
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FPRINT 00361 0 COUNTR 00101 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AUTH 00010 1 DATE 00016 1 M5 00024 A 1 N2 00031 1 TAB1 00036 A 1
BL 00011 A 1 DEVIC 00017 1 MODE 00025 1 NOREC 00032 1 TAB2 00037 A 1
COLON 00012 A 1 FIRST 00020 A 2 MOD 00026 1 PB 00033 1 TEMP 00040 1
COUNT 00013 A 1 M1 00021 A 1 MO 00027 1 PG 00034 1 TIME 00041 1
CR 00014 A 1 M3 00022 A 1 N1 00030 1 SUBTOT 00035 A 1 TOTAL 00042 A 1
DA 00015 1 M4 00023 A 1
0FUNCTION DICTIONARY
BZ57 00000 1 BZEL 00001 1 DERBC 00002 1 EXIT 00003 1 GETTM 00004 1
OCABC 00005 1 PRMESS 00006 1
0ABSOLUTE CONSTANTS
00064 -065124626013 00055 +214360512523 00076 -336060634663 00054 +136060606060 00062 +263143256260
00075 -234663214360 00065 -200000610000 00052 +000000000037 00046 +000000000005 00067 -206060000000
00071 -206060606000 00050 +000000000022 00045 +000000000002 00047 +000000000017 00053 +000000700000
00073 -206060606060 00051 +000000000034 00077 -376000000000 00043 +000000000000 00066 -206024216325
00061 +246051252362 00070 -206060604446 00056 +214425606060 00072 -206060606045 00063 -032562606060
00057 +215170602631 00074 -232544474651 00044 +000000000001 00060 +233000000000
0PROGRAM
EXTERNAL FUNCTION (PROBN,PROGN,BUFF) 001 LM00005
N'R 002 LM00006
V'S COLON = 355757575757K 003 LM00007
00012 +3 55757 5 75757
V'S TAB1 = 557257575757K 004 LM00008
00036 -1 57257 5 75757
V'S TAB2 = 727257575757K 005 LM00009
00037 -3 27257 5 75757
V'S BL = 605757575757K 006 LM00010
00011 -2 05757 5 75757
V'S CR = 555757575757K 007 LM00011
00014 -1 55757 5 75757
V'S M1 = 77777K 008 LM00012
00021 +0 00000 0 77777
V'S M3 = 77775K 009 LM00013
00022 +0 00000 0 77775
V'S M4 = 77774K 010 LM00014
00023 +0 00000 0 77774
V'S M5 = 77773K 011 LM00015
00024 +0 00000 0 77773
V'S TOTAL = 0 012 LM00016
00042 +0 00000 0 00000
V'S SUBTOT = 0 013 LM00017
00035 +0 00000 0 00000
V'S COUNT = 0 014 LM00018
00013 +0 00000 0 00000
V'S FIRST = 1B 015 LM00019
00020 +0 00000 0 00001
E'O COUNTR. 016 LM00023
00100 TRA +0 02000 0 00103 00101 SXA +0 63400 2 00431 00102 TSX +0 07400 2 00431
W'R FIRST 017 LM00024
00103 NZT -0 52000 0 00020 00104 TRA +0 02000 0 00131
GETTM.(DATE,TIME) 018 LM00025
00105 TSX +0 07400 4 00004 00106 TXH +3 00000 0 00016 00107 TXH +3 00000 0 00041
PRMESS.(CR,CR,$TEMPORARY FILES$,DATE,TIME,CR,CR, 019 LM00026
1 $ NAME MOD RECS DATE$) 019 LM00027
00110 TSX +0 07400 4 00006 00111 TXH +3 00000 0 00014 00112 TXH +3 00000 0 00014 00113 TXH +3 00000 0 00074
00114 TXH +3 00000 0 00057 00115 TXH +3 00000 0 00063 00116 TXH +3 00000 0 00016 00117 TXH +3 00000 0 00041
00120 TXH +3 00000 0 00014 00121 TXH +3 00000 0 00014 00122 TXH +3 00000 0 00072 00123 TXH +3 00000 0 00056
00124 TXH +3 00000 0 00070 00125 TXH +3 00000 0 00061 00126 TXH +3 00000 0 00066
FIRST = 0B 020 LM00028
00127 CLA +0 50000 0 00043 00130 STO +0 60100 0 00020
E'L 021 LM00029
N1 = BUFF 022 LM00030
00131 CLA +0 50000 0 00024 00132 STO +0 60100 0 00030
N2 = BUFF(M1) 023 LM00031
00133 LXA +0 53400 2 00021 00134 CLA +0 50000 2 00024 00135 STO +0 60100 0 00031
W'R N1.E.0 .AND. N2.E.0, F'N 024 LM00032
00136 CLA +0 50000 0 00031 00137 SUB +0 40200 0 00043 00140 TNZ -0 10000 0 00145 00141 CLA +0 50000 0 00030
00142 SUB +0 40200 0 00043 00143 TNZ -0 10000 0 00145 00144 TRA +0 02000 0 00456
MODE = (BUFF(M4).A.776K9).RS.28 025 LM00033
00145 LXA +0 53400 1 00023 00146 CAL -0 50000 1 00024 00147 ANA -0 32000 0 00077 00150 SLW +0 60200 0 00462
00151 CAL -0 50000 0 00051 00152 STA +0 62100 0 00154 00153 CAL -0 50000 0 00462 00154 LGR -0 76500 0 00000
00155 SLW +0 60200 0 00025
AUTH = BZEL.(DERBC.(BUFF(M3))) 026 LM00034
00156 CLA +0 50000 0 00022 00157 SUB +0 40200 0 00160 00160 TXH +3 00000 0 00024 00161 STA +0 62100 0 00163
00162 TSX +0 07400 4 00002 00163 TXH +3 00000 0 00000 00164 STO +0 60100 0 00462 00165 TSX +0 07400 4 00001
00166 TXH +3 00000 0 00462 00167 STO +0 60100 0 00010
W'R AUTH .E. PROGN, AUTH = $ $ 027 LM00035
00170 CLA +0 50000 0 00010 00171 SUB +0 40200 0 00024 00172 TNZ -0 10000 0 00175 00173 CLA +0 50000 0 00073
00174 STO +0 60100 0 00010
W'R (MODE.A.1).NE. 1, F'N 028 LM00036
00175 CAL -0 50000 0 00025 00176 ANA -0 32000 0 00044 00177 SLW +0 60200 0 00462 00200 CLA +0 50000 0 00462
00201 SUB +0 40200 0 00044 00202 TZE +0 10000 0 00204 00203 TRA +0 02000 0 00456
DEVIC = (BUFF(M4).A.7K5).RS.15 029 LM00037
00204 LXA +0 53400 1 00023 00205 CAL -0 50000 1 00024 00206 ANA -0 32000 0 00053 00207 SLW +0 60200 0 00462
00210 CAL -0 50000 0 00047 00211 STA +0 62100 0 00213 00212 CAL -0 50000 0 00462 00213 LGR -0 76500 0 00000
00214 SLW +0 60200 0 00017
W'R DEVIC .NE. 2, F'N 030 LM00038
00215 CLA +0 50000 0 00017 00216 SUB +0 40200 0 00045 00217 TZE +0 10000 0 00221 00220 TRA +0 02000 0 00456
NOREC = (BUFF(M5).RS.18).A.M1 031 LM00039
00221 LXA +0 53400 1 00024 00222 CAL -0 50000 0 00050 00223 STA +0 62100 0 00225 00224 CAL -0 50000 1 00024
00225 LGR -0 76500 0 00000 00226 ANA -0 32000 0 00021 00227 SLW +0 60200 0 00032
W'R PB .NE. PROBN .OR. PG .NE. PROGN 032 LM00040
00230 CLA +0 50000 0 00034 00231 SUB +0 40200 0 00024 00232 TNZ -0 10000 0 00236 00233 CLA +0 50000 0 00033
00234 SUB +0 40200 0 00024 00235 TZE +0 10000 0 00266
SUBTOT = BZEL.(DERBC.(SUBTOT)) 033 LM00041
00236 TSX +0 07400 4 00002 00237 TXH +3 00000 0 00035 00240 STO +0 60100 0 00462 00241 TSX +0 07400 4 00001
00242 TXH +3 00000 0 00462 00243 STO +0 60100 0 00035
W'R SUBTOT.NE.$ 0$,PRMESS.(TAB2,SUBTOT) 034 LM00042
00244 CLA +0 50000 0 00035 00245 SUB +0 40200 0 00071 00246 TZE +0 10000 0 00252 00247 TSX +0 07400 4 00006
00250 TXH +3 00000 0 00037 00251 TXH +3 00000 0 00035
SUBTOT = 0 035 LM00043
00252 CLA +0 50000 0 00043 00253 STO +0 60100 0 00035
PRMESS.(TAB1,PROBN,BL,PROGN,COLON) 036 LM00044
00254 TSX +0 07400 4 00006 00255 TXH +3 00000 0 00036 00256 TXH +3 00000 0 00024 00257 TXH +3 00000 0 00011
00260 TXH +3 00000 0 00024 00261 TXH +3 00000 0 00012
PB = PROBN 037 LM00045
00262 CLA +0 50000 0 00024 00263 STO +0 60100 0 00033
PG = PROGN 038 LM00046
00264 CLA +0 50000 0 00024 00265 STO +0 60100 0 00034
E'L 039 LM00047
SUBTOT = SUBTOT + NOREC 040 LM00051
00266 CLA +0 50000 0 00035 00267 ADD +0 40000 0 00032 00270 STO +0 60100 0 00035
TOTAL = TOTAL + NOREC 041 LM00052
00271 CLA +0 50000 0 00042 00272 ADD +0 40000 0 00032 00273 STO +0 60100 0 00042
COUNT = COUNT + 1 042 LM00053
00274 CLA +0 50000 0 00013 00275 ADD +0 40000 0 00044 00276 STO +0 60100 0 00013
MOD = (OCABC.(MODE)).V.606060K6 043 LM00054
00277 TSX +0 07400 4 00005 00300 TXH +3 00000 0 00025 00301 STO +0 60100 0 00462 00302 CAL -0 50000 0 00462
00303 ORA -0 50100 0 00067 00304 SLW +0 60200 0 00026
NOREC = BZEL.(DERBC.(NOREC)) 044 LM00055
00305 TSX +0 07400 4 00002 00306 TXH +3 00000 0 00032 00307 STO +0 60100 0 00462 00310 TSX +0 07400 4 00001
00311 TXH +3 00000 0 00462 00312 STO +0 60100 0 00032
TEMP = BUFF(M3).RS.18 045 LM00056
00313 LXA +0 53400 1 00022 00314 CAL -0 50000 0 00050 00315 STA +0 62100 0 00317 00316 CAL -0 50000 1 00024
00317 LGR -0 76500 0 00000 00320 SLW +0 60200 0 00040
MO = DERBC.((TEMP.RS.5).A.17K) 046 LM00057
00321 CAL -0 50000 0 00046 00322 STA +0 62100 0 00324 00323 CAL -0 50000 0 00040 00324 LGR -0 76500 0 00000
00325 ANA -0 32000 0 00047 00326 SLW +0 60200 0 00462 00327 TSX +0 07400 4 00002 00330 TXH +3 00000 0 00462
00331 STO +0 60100 0 00027
DA = DERBC.(TEMP.A.37K) 047 LM00058
00332 CAL -0 50000 0 00040 00333 ANA -0 32000 0 00052 00334 SLW +0 60200 0 00462 00335 TSX +0 07400 4 00002
00336 TXH +3 00000 0 00462 00337 STO +0 60100 0 00015
DATE = (MO.LS.18).V.DA.V.$ 00/00$ 048 LM00059
00340 CAL -0 50000 0 00050 00341 STA +0 62100 0 00343 00342 CAL -0 50000 0 00027 00343 ALS +0 76700 0 00000
00344 ORA -0 50100 0 00015 00345 ORA -0 50100 0 00065 00346 SLW +0 60200 0 00016
PRMESS.(N1,BL,N2,MOD,NOREC,DATE,AUTH) 049 LM00060
00347 TSX +0 07400 4 00006 00350 TXH +3 00000 0 00030 00351 TXH +3 00000 0 00011 00352 TXH +3 00000 0 00031
00353 TXH +3 00000 0 00026 00354 TXH +3 00000 0 00032 00355 TXH +3 00000 0 00016 00356 TXH +3 00000 0 00010
F'N 050 LM00061
00357 TRA +0 02000 0 00456
E'O FPRINT. 051 LM00066
00360 TRA +0 02000 0 00363 00361 SXA +0 63400 2 00431 00362 TSX +0 07400 2 00431
COUNT = BZ57.(DERBC.(COUNT)) 052 LM00067
00363 TSX +0 07400 4 00002 00364 TXH +3 00000 0 00013 00365 STO +0 60100 0 00462 00366 TSX +0 07400 4 00000
00367 TXH +3 00000 0 00462 00370 STO +0 60100 0 00013
SUBTOT = BZEL.(DERBC.(SUBTOT)) 053 LM00068
00371 TSX +0 07400 4 00002 00372 TXH +3 00000 0 00035 00373 STO +0 60100 0 00462 00374 TSX +0 07400 4 00001
00375 TXH +3 00000 0 00462 00376 STO +0 60100 0 00035
PRMESS.(TAB2,SUBTOT) 054 LM00069
00377 TSX +0 07400 4 00006 00400 TXH +3 00000 0 00037 00401 TXH +3 00000 0 00035
TOTAL = BZEL.(DERBC.(TOTAL)) 055 LM00070
00402 TSX +0 07400 4 00002 00403 TXH +3 00000 0 00042 00404 STO +0 60100 0 00462 00405 TSX +0 07400 4 00001
00406 TXH +3 00000 0 00462 00407 STO +0 60100 0 00042
PRMESS.(CR,CR,CR,$TOTAL FILES =$,COUNT, $, TOTAL RECORDS =$, 056 LM00071
1 TOTAL,CR,CR,CR) 056 LM00072
00410 TSX +0 07400 4 00006 00411 TXH +3 00000 0 00014 00412 TXH +3 00000 0 00014 00413 TXH +3 00000 0 00014
00414 TXH +3 00000 0 00075 00415 TXH +3 00000 0 00062 00416 TXH +3 00000 0 00054 00417 TXH +3 00000 0 00013
00420 TXH +3 00000 0 00076 00421 TXH +3 00000 0 00055 00422 TXH +3 00000 0 00064 00423 TXH +3 00000 0 00042
00424 TXH +3 00000 0 00014 00425 TXH +3 00000 0 00014 00426 TXH +3 00000 0 00014
F'N 057 LM00073
00427 TRA +0 02000 0 00456
E'N 058 LM00074
00430 TSX +0 07400 4 00003 00431 TXH +3 00000 0 00000 00432 SXD -0 63400 1 00431 00433 SXA +0 63400 4 00456
00434 CLA +0 50000 4 00001 00435 STA +0 62100 0 00234 00436 STO +0 60100 0 00256 00437 STA +0 62100 0 00262
00440 CLA +0 50000 4 00002 00441 STA +0 62100 0 00171 00442 STA +0 62100 0 00231 00443 STO +0 60100 0 00260
00444 STA +0 62100 0 00264 00445 CLA +0 50000 4 00003 00446 STA +0 62100 0 00131 00447 STA +0 62100 0 00134
00450 STA +0 62100 0 00146 00451 STO +0 60100 0 00160 00452 STA +0 62100 0 00205 00453 STA +0 62100 0 00224
00454 STA +0 62100 0 00316 00455 TRA +0 02000 2 00001 00456 AXT +0 77400 4 00000 00457 LXA +0 53400 2 00431
00460 LXD -0 53400 1 00431 00461 TRA +0 02000 4 00001
AUDIT BCD 10/12/70 1514.4 8710 00000
1 MAD PROGRAM LISTING ... ... ... FILE AUDIT MAD 02/15/68 1319.3
-
PROGRAM TO AUDIT LENGTHS OF COMMANDS LM00001
AND CHECK FOR ANOMALIES LM00002
LM00003
LOADING INSTRUCTIONS LM00004
LM00005
MAD AUDIT (LIST) LM00006
NCLOAD AUDIT (CFL1) (LIBE) XLIBE LM00007
SAVE AUDIT LM00008
R AUDIT LM00009
LM00010
D.R. WIDRIG DEC. 1965 LM00011
LM00012
NORMAL MODE IS INTEGER *001 LM00013
BOOLEAN SW *002 LM00014
LM00015
DIMENSION DRAIN(7),V(2),BUFF1(432),BUFF2(432) *003 LM00016
DIMENSION COMAND(600),DIR(400) *004 LM00017
LM00018
VECTOR VALUES M = $ M1416$ *005 LM00019
VECTOR VALUES CF2 = $CMFL02$ *006 LM00020
VECTOR VALUES UFD = $U.F.D.$ *007 LM00021
VECTOR VALUES FILE = $(FILE)$ *008 LM00022
VECTOR VALUES TSSDC = $TSSDC.$ *009 LM00023
LM00024
VECTOR VALUES MZE = 4K11 *010 LM00025
VECTOR VALUES R = 432 *011 LM00026
LM00027
VECTOR VALUES MESS1 = 0,$ TSSDC. LENGTH IS $,0,777777777777K *012 LM00028
VECTOR VALUES MESS2 = 0,$ TSSDC. NOT FOUND$,777777777777K *013 LM00029
VECTOR VALUES MESS3 = $CANNOT CONTINUE$,777777777777K *014 LM00030
VECTOR VALUES MESS4 = $ PRIVILEGED COMMAND $,0, *015 LM00031
1 $ TSSDC. IS LINKED$,777777777777K *015 LM00032
VECTOR VALUES MESS5 = $LINKED COMMAND... $,0,$ TSSDC.$, *016 LM00033
1 777777777777K *016 LM00034
VECTOR VALUES MESS6 = $ MODE $,0,$ FOR COMMAND FILE $,0, *017 LM00035
1 $ TSSDC.$,777777777777K *017 LM00036
LM00037
REMEMBERING WHERE YOU WERE, ATTACH TO COMFIL 2 LM00038
LM00039
ATTNAM.(V(2)...2,ERR1) *018 LM00040
ATTACH.(M,CF2,ERR1) *019 LM00041
LM00042
SET POINTERS AND GET MAX. ALLOWABLE LENGTH LM00043
LM00044
C = 0 *020 LM00045
D = 0 *021 LM00046
LMAX = 4096 + 37 + 124 *022 LM00047
LM00048
OPEN UFD AND DRAIN OFF QUOTA WORDS LM00049
LM00050
BFOPEN.($R$,UFD,FILE,BUFF1(R),BUFF2(R),MZE,ERR1) *023 LM00051
BFREAD.(UFD,FILE,DRAIN(3)...3,REOF,EOFCT,ERR2) *024 LM00052
LM00053
READ UFD AND TEST FOR COMMAND FILE LM00054
LM00055
READ BFREAD.(UFD,FILE,DRAIN(7)...7,REOF,EOFCT,ERR2) *025 LM00056
WHENEVER (DRAIN(6) .NE. TSSDC), TRANSFER TO READ *026 LM00057
LM00058
COMMAND FILE, GET LENGTH LM00059
LM00060
FSTATE.(DRAIN(7),DRAIN(6),DRAIN(2)...2,ERR3,ERCODE) *027 LM00061
COMAND(C) = DRAIN(7) *028 LM00062
COMAND(C+1) = DRAIN(2) *029 LM00063
COMAND(C+2) = DRAIN(1) *030 LM00064
C = C + 3 *031 LM00065
TRANSFER TO READ *032 LM00066
LM00067
ERROR FROM FSTATE, CHECK IT LM00068
LM00069
ERR3 WHENEVER (ERCODE .NE. 3) *033 LM00070
COMAND(C) = DRAIN(7) *034 LM00071
COMAND(C+1) = 0 *035 LM00072
COMAND(C+2) = MZE *036 LM00073
C = C +3 *037 LM00074
TRANSFER TO READ *038 LM00075
OTHERWISE *039 LM00076
PRNTER. *040 LM00077
TRANSFER TO READ *041 LM00078
END OF CONDITIONAL *042 LM00079
LM00080
EOF, DIG INTO SUPERVISOR COMMAND DIRECTORY LM00081
LM00082
REOF COMDIR = ACORE.($COMDIR$) .RS. 18 *043 LM00083
CTABL = GLOC.(COMDIR) .A. 77777K - 1 *044 LM00084
LENGTH = GLOC.(COMDIR) .RS. 18 *045 LM00085
STOP = CTABL - LENGTH + 1 *046 LM00086
LM00087
THROUGH LOOP2, FOR I = CTABL,-3,(I.L.STOP) *047 LM00088
WORD = GLOC.(I-1) *048 LM00089
CONTRL = WORD .RS. 33 *049 LM00090
POINTR = (WORD .RS. 18) .A. 77777K *050 LM00091
LM00092
TEST FOR TRANSFER COMMANDS LM00093
LM00094
WHENEVER (POINTR .E. 0), TRANSFER TO LOOP2 *051 LM00095
DIR(D) = GLOC.(POINTR) *052 LM00096
DIR(D+1) = CONTRL *053 LM00097
D = D + 2 *054 LM00098
LOOP2 CONTINUE *055 LM00099
LM00100
NOW MATCH TWO COMMAND LISTS LM00101
LM00102
THROUGH LOOP4, FOR I = 0,3,(I.GE.C) *056 LM00103
LM00104
CHECK FOR LINKED COMMAND AND MODE LM00105
LM00106
WHENEVER ((COMAND(I+2).RS.35).NE.0) *057 LM00107
MESS5(3) = COMAND(I) *058 LM00108
PRNTP.(MESS5) *059 LM00109
OR WHENEVER (COMAND(I+2).NE.104K) *060 LM00110
MESS6(5) = COMAND(I) *061 LM00111
MESS6(1) = OCRBC.(COMAND(I+2)) .V. 575757K6 *062 LM00112
PRNTP.(MESS6) *063 LM00113
END OF CONDITIONAL *064 LM00114
LM00115
CHECK FOR DUMMY LENGTHS LM00116
LM00117
WHENEVER (COMAND(I+1) .E. 0) *065 LM00118
MESS1(0) = COMAND(I) *066 LM00119
MESS1(4) = 575757576000K *067 LM00120
PRNTP.(MESS1) *068 LM00121
END OF CONDITIONAL *069 LM00122
LM00123
SW = 0B *070 LM00124
THROUGH LOOP3, FOR J = 0,2,(J.GE.D) *071 LM00125
WHENEVER COMAND(I) .NE. DIR(J) *072 LM00126
TRANSFER TO LOOP3 *073 LM00127
OTHERWISE *074 LM00128
WHENEVER (DIR(J+1).E.2).AND. *075 LM00129
1 (COMAND(I+2).RS.35).NE.0 *075 LM00130
MESS4(4) = DIR(J) *076 LM00131
PRNTP.(MESS4) *077 LM00132
END OF CONDITIONAL *078 LM00133
DIR(J) = 0 *079 LM00134
SW = 1B *080 LM00135
END OF CONDITIONAL *081 LM00136
LOOP3 CONTINUE *082 LM00137
WHENEVER SW, TRANSFER TO LOOP4 *083 LM00138
LM00139
NOT IN DIRECTORY, CHECK LENGTH LM00140
LM00141
WHENEVER (COMAND(I+1) .G. LMAX) *084 LM00142
MESS1(0) = COMAND(I) *085 LM00143
MESS1(4) = BZEL.(DERBC.(COMAND(I+1))) *086 LM00144
PRNTP.(MESS1) *087 LM00145
END OF CONDITIONAL *088 LM00146
LOOP4 CONTINUE *089 LM00147
LM00148
NOW CHECK FOR COMMANDS NOT FOUND LM00149
LM00150
THROUGH LOOP5, FOR I = 0,2,(I.GE.D) *090 LM00151
WHENEVER DIR(I) .NE. 0 *091 LM00152
MESS2(0) = DIR(I) *092 LM00153
PRNTP.(MESS2) *093 LM00154
END OF CONDITIONAL *094 LM00155
LOOP5 CONTINUE *095 LM00156
LM00157
SCRAM ATTACH.(V(2),V(1),NERR1) *096 LM00158
NERR1 CHNCOM.(0) *097 LM00159
LM00160
ERR1 PRNTER. *098 LM00161
PRNTP.(MESS3) *099 LM00162
TRANSFER TO SCRAM *100 LM00163
LM00164
ERR2 PRNTER. *101 LM00165
PRNTP.(MESS3) *102 LM00166
BFCLOS.(UFD,FILE,SCRAM) *103 LM00167
TRANSFER TO SCRAM *104 LM00168
LM00169
END OF PROGRAM *105 LM00170
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 04435 TRANSFER VECTOR LENGTH 00020 PROGRAM BEGINS 03702
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BUFF1 00713 A 1 DRAIN 03563 A 1 J 03571 1 MESS3 03612 A 1 REOF 00031 4
BUFF2 01574 A 1 D 03564 1 LENGTH 03572 1 MESS4 03623 A 1 R 03647 A 1
CF2 01575 A 1 EOFCT 03565 1 LMAX 03573 1 MESS5 03632 A 1 SCRAM 00032 4
COMAND 02726 A 1 ERCODE 03566 1 LOOP2 00024 4 MESS6 03643 A 1 STOP 03650 1
COMDIR 02727 1 ERR1 00021 4 LOOP3 00025 4 M 03644 A 1 SW 03651 2
CONTRL 02730 1 ERR2 00022 4 LOOP4 00026 4 MZE 03645 A 1 TSSDC 03652 A 1
C 02731 1 ERR3 00023 4 LOOP5 00020 4 NERR1 00027 4 UFD 03653 A 1
CTABL 02732 1 FILE 03567 A 1 MESS1 03601 A 1 POINTR 03646 1 V 03656 A 1
DIR 03553 A 1 I 03570 1 MESS2 03606 A 1 READ 00030 4 WORD 03657 1
0FUNCTION DICTIONARY
ACORE 00000 1 ATTACH 00001 1 ATTNAM 00002 1 BFCLOS 00003 1 BFOPEN 00004 1
BFREAD 00005 1 BZEL 00006 1 CHNCOM 00007 1 DERBC 00010 1 EXIT 00011 1
FSTATE 00012 1 GLOC 00013 1 .SETUP 00014 1 OCRBC 00015 1 PRNTER 00016 1
PRNTP 00017 1
0ABSOLUTE CONSTANTS
03701 -175757576000 03700 -175757000000 03671 +000000000104 03667 +000000000043 03666 +000000000041
03674 +000000077777 03665 +000000000022 03676 +234644243151 03664 +000000000007 03663 +000000000003
03677 -116060606060 03672 +000000000174 03670 +000000000045 03673 +000000010000 03660 +000000000000
03662 +000000000002 03661 +000000000001 03675 +233000000000
0STATEMENT DICTIONARY
00021 TXL -304416004415 00022 TXL -304422004421 00023 TXL -304016004013 00024 TXL -304153004152
00025 TXL -304330004327 00026 TXL -304363004362 00027 TXL -304415004413 00030 TXL -303760003751
00031 TXL -304052004042 00032 TXL -304413004407
0PROGRAM
N'R 001 LM00013
B'N SW 002 LM00014
D'N DRAIN(7),V(2),BUFF1(432),BUFF2(432) 003 LM00016
D'N COMAND(600),DIR(400) 004 LM00017
V'S M = $ M1416$ 005 LM00019
03702 TSX +0 07400 4 00014 03644 -2 04401 0 40106
V'S CF2 = $CMFL02$ 006 LM00020
01575 +2 34426 4 30002
V'S UFD = $U.F.D.$ 007 LM00021
03653 -2 43326 3 32433
V'S FILE = $(FILE)$ 008 LM00022
03567 -3 42631 4 32534
V'S TSSDC = $TSSDC.$ 009 LM00023
03652 -2 36262 2 42333
V'S MZE = 4K11 010 LM00025
03645 -0 00000 0 00000
V'S R = 432 011 LM00026
03647 +0 00000 0 00660
V'S MESS1 = 0,$ TSSDC. LENGTH IS $,0,777777777777K 012 LM00028
03574 -3 77777 7 77777 03575 +0 00000 0 00000 03576 -2 33060 3 16260 03577 +3 36043 2 54527
03600 -2 06362 6 22423 03601 +0 00000 0 00000
V'S MESS2 = 0,$ TSSDC. NOT FOUND$,777777777777K 013 LM00029
03602 -3 77777 7 77777 03603 +2 64664 4 52460 03604 +3 36045 4 66360 03605 -2 06362 6 22423
03606 +0 00000 0 00000
V'S MESS3 = $CANNOT CONTINUE$,777777777777K 014 LM00030
03607 -3 77777 7 77777 03610 -0 56425 6 06060 03611 -2 02346 4 56331 03612 +2 32145 4 54663
V'S MESS4 = $ PRIVILEGED COMMAND $,0, 015 LM00031
1 $ TSSDC. IS LINKED$,777777777777K 015 LM00032
03613 -3 77777 7 77777 03614 +3 14542 2 52460 03615 +3 36031 6 26043 03616 -2 06362 6 22423
03617 +0 00000 0 00000 03620 -0 44421 4 52460 03621 +2 72524 6 02346 03622 -1 13165 3 14325
03623 -2 06060 6 06047
V'S MESS5 = $LINKED COMMAND... $,0,$ TSSDC.$, 016 LM00033
1 777777777777K 016 LM00034
03624 -3 77777 7 77777 03625 +3 36060 6 06060 03626 -2 06362 6 22423 03627 +0 00000 0 00000
03630 -0 52433 3 33360 03631 -2 02346 4 44421 03632 -0 33145 4 22524
V'S MESS6 = $ MODE $,0,$ FOR COMMAND FILE $,0, 017 LM00035
1 $ TSSDC.$,777777777777K 017 LM00036
03633 -3 77777 7 77777 03634 +3 36060 6 06060 03635 -2 06362 6 22423 03636 +0 00000 0 00000
03637 -2 02631 4 32560 03640 -0 64444 2 14524 03641 -2 02646 5 16023 03642 +0 00000 0 00000
03643 -2 04446 2 42560
ATTNAM.(V(2)...2,ERR1) 018 LM00040
03703 TSX +0 07400 4 00002 03704 TIX +2 03662 0 03654 03705 TXH +3 00000 0 00021
ATTACH.(M,CF2,ERR1) 019 LM00041
03706 TSX +0 07400 4 00001 03707 TXH +3 00000 0 03644 03710 TXH +3 00000 0 01575 03711 TXH +3 00000 0 00021
C = 0 020 LM00045
03712 CLA +0 50000 0 03660 03713 STO +0 60100 0 02731
D = 0 021 LM00046
03714 CLA +0 50000 0 03660 03715 STO +0 60100 0 03564
LMAX = 4096 + 37 + 124 022 LM00047
03716 CLA +0 50000 0 03673 03717 ADD +0 40000 0 03670 03720 ADD +0 40000 0 03672 03721 STO +0 60100 0 03573
BFOPEN.($R$,UFD,FILE,BUFF1(R),BUFF2(R),MZE,ERR1) 023 LM00051
03722 CLA +0 50000 0 03647 03723 SUB +0 40200 0 03724 03724 TXH +3 00000 0 01574 03725 STA +0 62100 0 03737
03726 CLA +0 50000 0 03647 03727 SUB +0 40200 0 03730 03730 TXH +3 00000 0 00713 03731 STA +0 62100 0 03736
03732 TSX +0 07400 4 00004 03733 TXH +3 00000 0 03677 03734 TXH +3 00000 0 03653 03735 TXH +3 00000 0 03567
03736 TXH +3 00000 0 00000 03737 TXH +3 00000 0 00000 03740 TXH +3 00000 0 03645 03741 TXH +3 00000 0 00021
BFREAD.(UFD,FILE,DRAIN(3)...3,REOF,EOFCT,ERR2) 024 LM00052
03742 TSX +0 07400 4 00005 03743 TXH +3 00000 0 03653 03744 TXH +3 00000 0 03567 03745 TIX +2 03663 0 03560
03746 TXH +3 00000 0 00031 03747 TXH +3 00000 0 03565 03750 TXH +3 00000 0 00022
READ BFREAD.(UFD,FILE,DRAIN(7)...7,REOF,EOFCT,ERR2) 025 LM00056
03751 TSX +0 07400 4 00005 03752 TXH +3 00000 0 03653 03753 TXH +3 00000 0 03567 03754 TIX +2 03664 0 03554
03755 TXH +3 00000 0 00031 03756 TXH +3 00000 0 03565 03757 TXH +3 00000 0 00022
W'R (DRAIN(6) .NE. TSSDC), T'O READ 026 LM00057
03760 CLA +0 50000 0 03555 03761 SUB +0 40200 0 03652 03762 TZE +0 10000 0 03764 03763 TRA +0 02000 0 00030
FSTATE.(DRAIN(7),DRAIN(6),DRAIN(2)...2,ERR3,ERCODE) 027 LM00061
03764 TSX +0 07400 4 00012 03765 TXH +3 00000 0 03554 03766 TXH +3 00000 0 03555 03767 TIX +2 03662 0 03561
03770 TXH +3 00000 0 00023 03771 TXH +3 00000 0 03566
COMAND(C) = DRAIN(7) 028 LM00062
03772 LXA +0 53400 1 02731 03773 CLA +0 50000 0 03554 03774 STO +0 60100 1 02726
COMAND(C+1) = DRAIN(2) 029 LM00063
03775 CLA +0 50000 0 02731 03776 ADD +0 40000 0 03661 03777 PAX +0 73400 1 00000 04000 CLA +0 50000 0 03561
04001 STO +0 60100 1 02726
COMAND(C+2) = DRAIN(1) 030 LM00064
04002 CLA +0 50000 0 02731 04003 ADD +0 40000 0 03662 04004 PAX +0 73400 1 00000 04005 CLA +0 50000 0 03562
04006 STO +0 60100 1 02726
C = C + 3 031 LM00065
04007 CLA +0 50000 0 02731 04010 ADD +0 40000 0 03663 04011 STO +0 60100 0 02731
T'O READ 032 LM00066
04012 TRA +0 02000 0 00030
ERR3 W'R (ERCODE .NE. 3) 033 LM00070
04013 CLA +0 50000 0 03566 04014 SUB +0 40200 0 03663 04015 TZE +0 10000 0 04040
COMAND(C) = DRAIN(7) 034 LM00071
04016 LXA +0 53400 1 02731 04017 CLA +0 50000 0 03554 04020 STO +0 60100 1 02726
COMAND(C+1) = 0 035 LM00072
04021 CLA +0 50000 0 02731 04022 ADD +0 40000 0 03661 04023 PAX +0 73400 1 00000 04024 CLA +0 50000 0 03660
04025 STO +0 60100 1 02726
COMAND(C+2) = MZE 036 LM00073
04026 CLA +0 50000 0 02731 04027 ADD +0 40000 0 03662 04030 PAX +0 73400 1 00000 04031 CLA +0 50000 0 03645
04032 STO +0 60100 1 02726
C = C +3 037 LM00074
04033 CLA +0 50000 0 02731 04034 ADD +0 40000 0 03663 04035 STO +0 60100 0 02731
T'O READ 038 LM00075
04036 TRA +0 02000 0 00030
O'E 039 LM00076
04037 TRA +0 02000 0 04042
PRNTER. 040 LM00077
04040 TSX +0 07400 4 00016
T'O READ 041 LM00078
04041 TRA +0 02000 0 00030
E'L 042 LM00079
REOF COMDIR = ACORE.($COMDIR$) .RS. 18 043 LM00083
04042 TSX +0 07400 4 00000 04043 TXH +3 00000 0 03676 04044 STO +0 60100 0 04432 04045 CAL -0 50000 0 03665
04046 STA +0 62100 0 04050 04047 CAL -0 50000 0 04432 04050 LGR -0 76500 0 00000 04051 SLW +0 60200 0 02727
CTABL = GLOC.(COMDIR) .A. 77777K - 1 044 LM00084
04052 TSX +0 07400 4 00013 04053 TXH +3 00000 0 02727 04054 STO +0 60100 0 04432 04055 CAL -0 50000 0 04432
04056 ANA -0 32000 0 03674 04057 SLW +0 60200 0 04432 04060 CLA +0 50000 0 04432 04061 SUB +0 40200 0 03661
04062 STO +0 60100 0 02732
LENGTH = GLOC.(COMDIR) .RS. 18 045 LM00085
04063 TSX +0 07400 4 00013 04064 TXH +3 00000 0 02727 04065 STO +0 60100 0 04432 04066 CAL -0 50000 0 03665
04067 STA +0 62100 0 04071 04070 CAL -0 50000 0 04432 04071 LGR -0 76500 0 00000 04072 SLW +0 60200 0 03572
STOP = CTABL - LENGTH + 1 046 LM00086
04073 CLA +0 50000 0 02732 04074 SUB +0 40200 0 03572 04075 ADD +0 40000 0 03661 04076 STO +0 60100 0 03650
T'H LOOP2, FOR I = CTABL,-3,(I.L.STOP) 047 LM00088
04077 CLA +0 50000 0 02732 04100 STO +0 60100 0 03570 04101 TRA +0 02000 0 04105 04102 CLS +0 50200 0 03663
04103 ADD +0 40000 0 03570 04104 STO +0 60100 0 03570 04105 CLA +0 50000 0 03570 04106 SUB +0 40200 0 03650
04107 TZE +0 10000 0 04111 04110 TMI -0 12000 0 04153
WORD = GLOC.(I-1) 048 LM00089
04111 CLA +0 50000 0 03570 04112 SUB +0 40200 0 03661 04113 STO +0 60100 0 04432 04114 TSX +0 07400 4 00013
04115 TXH +3 00000 0 04432 04116 STO +0 60100 0 03657
CONTRL = WORD .RS. 33 049 LM00090
04117 CAL -0 50000 0 03666 04120 STA +0 62100 0 04122 04121 CAL -0 50000 0 03657 04122 LGR -0 76500 0 00000
04123 SLW +0 60200 0 02730
POINTR = (WORD .RS. 18) .A. 77777K 050 LM00091
04124 CAL -0 50000 0 03665 04125 STA +0 62100 0 04127 04126 CAL -0 50000 0 03657 04127 LGR -0 76500 0 00000
04130 ANA -0 32000 0 03674 04131 SLW +0 60200 0 03646
W'R (POINTR .E. 0), T'O LOOP2 051 LM00095
04132 CLA +0 50000 0 03646 04133 SUB +0 40200 0 03660 04134 TNZ -0 10000 0 04136 04135 TRA +0 02000 0 00024
DIR(D) = GLOC.(POINTR) 052 LM00096
04136 TSX +0 07400 4 00013 04137 TXH +3 00000 0 03646 04140 LXA +0 53400 1 03564 04141 STO +0 60100 1 03553
DIR(D+1) = CONTRL 053 LM00097
04142 CLA +0 50000 0 03564 04143 ADD +0 40000 0 03661 04144 PAX +0 73400 1 00000 04145 CLA +0 50000 0 02730
04146 STO +0 60100 1 03553
D = D + 2 054 LM00098
04147 CLA +0 50000 0 03564 04150 ADD +0 40000 0 03662 04151 STO +0 60100 0 03564
LOOP2 C'E 055 LM00099
04152 TRA +0 02000 0 04102
T'H LOOP4, FOR I = 0,3,(I.GE.C) 056 LM00103
04153 CLA +0 50000 0 03660 04154 STO +0 60100 0 03570 04155 TRA +0 02000 0 04161 04156 CLA +0 50000 0 03570
04157 ADD +0 40000 0 03663 04160 STO +0 60100 0 03570 04161 CLA +0 50000 0 03570 04162 SUB +0 40200 0 02731
04163 TZE +0 10000 0 04363 04164 TPL +0 12000 0 04363
W'R ((COMAND(I+2).RS.35).NE.0) 057 LM00107
04165 CLA +0 50000 0 03570 04166 ADD +0 40000 0 03662 04167 PAX +0 73400 1 00000 04170 CAL -0 50000 0 03667
04171 STA +0 62100 0 04173 04172 CAL -0 50000 1 02726 04173 LGR -0 76500 0 00000 04174 SLW +0 60200 0 04432
04175 CLA +0 50000 0 04432 04176 SUB +0 40200 0 03660 04177 TZE +0 10000 0 04206
MESS5(3) = COMAND(I) 058 LM00108
04200 LXA +0 53400 2 03570 04201 CLA +0 50000 2 02726 04202 STO +0 60100 0 03627
PRNTP.(MESS5) 059 LM00109
04203 TSX +0 07400 4 00017 04204 TXH +3 00000 0 03632
O'R (COMAND(I+2).NE.104K) 060 LM00110
04205 TRA +0 02000 0 04234 04206 CLA +0 50000 0 03570 04207 ADD +0 40000 0 03662 04210 PAX +0 73400 1 00000
04211 CLA +0 50000 1 02726 04212 SUB +0 40200 0 03671 04213 TZE +0 10000 0 04234
MESS6(5) = COMAND(I) 061 LM00111
04214 LXA +0 53400 2 03570 04215 CLA +0 50000 2 02726 04216 STO +0 60100 0 03636
MESS6(1) = OCRBC.(COMAND(I+2)) .V. 575757K6 062 LM00112
04217 CLA +0 50000 0 03570 04220 ADD +0 40000 0 03662 04221 SUB +0 40200 0 04222 04222 TXH +3 00000 0 02726
04223 STA +0 62100 0 04225 04224 TSX +0 07400 4 00015 04225 TXH +3 00000 0 00000 04226 STO +0 60100 0 04432
04227 CAL -0 50000 0 04432 04230 ORA -0 50100 0 03700 04231 SLW +0 60200 0 03642
PRNTP.(MESS6) 063 LM00113
04232 TSX +0 07400 4 00017 04233 TXH +3 00000 0 03643
E'L 064 LM00114
W'R (COMAND(I+1) .E. 0) 065 LM00118
04234 CLA +0 50000 0 03570 04235 ADD +0 40000 0 03661 04236 PAX +0 73400 1 00000 04237 CLA +0 50000 1 02726
04240 SUB +0 40200 0 03660 04241 TNZ -0 10000 0 04251
MESS1(0) = COMAND(I) 066 LM00119
04242 LXA +0 53400 2 03570 04243 CLA +0 50000 2 02726 04244 STO +0 60100 0 03601
MESS1(4) = 575757576000K 067 LM00120
04245 CLA +0 50000 0 03701 04246 STO +0 60100 0 03575
PRNTP.(MESS1) 068 LM00121
04247 TSX +0 07400 4 00017 04250 TXH +3 00000 0 03601
E'L 069 LM00122
SW = 0B 070 LM00124
04251 CLA +0 50000 0 03660 04252 STO +0 60100 0 03651
T'H LOOP3, FOR J = 0,2,(J.GE.D) 071 LM00125
04253 CLA +0 50000 0 03660 04254 STO +0 60100 0 03571 04255 TRA +0 02000 0 04261 04256 CLA +0 50000 0 03571
04257 ADD +0 40000 0 03662 04260 STO +0 60100 0 03571 04261 CLA +0 50000 0 03571 04262 SUB +0 40200 0 03564
04263 TZE +0 10000 0 04330 04264 TPL +0 12000 0 04330
W'R COMAND(I) .NE. DIR(J) 072 LM00126
04265 LXA +0 53400 1 03570 04266 LXA +0 53400 2 03571 04267 CLA +0 50000 1 02726 04270 SUB +0 40200 2 03553
04271 TZE +0 10000 0 04274
T'O LOOP3 073 LM00127
04272 TRA +0 02000 0 00025
O'E 074 LM00128
04273 TRA +0 02000 0 04327
W'R (DIR(J+1).E.2).AND. 075 LM00129
1 (COMAND(I+2).RS.35).NE.0 075 LM00130
04274 CLA +0 50000 0 03570 04275 ADD +0 40000 0 03662 04276 PAX +0 73400 1 00000 04277 CAL -0 50000 0 03667
04300 STA +0 62100 0 04302 04301 CAL -0 50000 1 02726 04302 LGR -0 76500 0 00000 04303 SLW +0 60200 0 04432
04304 CLA +0 50000 0 04432 04305 SUB +0 40200 0 03660 04306 TZE +0 10000 0 04322 04307 CLA +0 50000 0 03571
04310 ADD +0 40000 0 03661 04311 PAX +0 73400 1 00000 04312 CLA +0 50000 1 03553 04313 SUB +0 40200 0 03662
04314 TNZ -0 10000 0 04322
MESS4(4) = DIR(J) 076 LM00131
04315 LXA +0 53400 2 03571 04316 CLA +0 50000 2 03553 04317 STO +0 60100 0 03617
PRNTP.(MESS4) 077 LM00132
04320 TSX +0 07400 4 00017 04321 TXH +3 00000 0 03623
E'L 078 LM00133
DIR(J) = 0 079 LM00134
04322 LXA +0 53400 1 03571 04323 CLA +0 50000 0 03660 04324 STO +0 60100 1 03553
SW = 1B 080 LM00135
04325 CLA +0 50000 0 03661 04326 STO +0 60100 0 03651
E'L 081 LM00136
LOOP3 C'E 082 LM00137
04327 TRA +0 02000 0 04256
W'R SW, T'O LOOP4 083 LM00138
04330 NZT -0 52000 0 03651 04331 TRA +0 02000 0 04333 04332 TRA +0 02000 0 00026
W'R (COMAND(I+1) .G. LMAX) 084 LM00142
04333 CLA +0 50000 0 03570 04334 ADD +0 40000 0 03661 04335 PAX +0 73400 1 00000 04336 CLA +0 50000 1 02726
04337 SUB +0 40200 0 03573 04340 TZE +0 10000 0 04362 04341 TMI -0 12000 0 04362
MESS1(0) = COMAND(I) 085 LM00143
04342 LXA +0 53400 2 03570 04343 CLA +0 50000 2 02726 04344 STO +0 60100 0 03601
MESS1(4) = BZEL.(DERBC.(COMAND(I+1))) 086 LM00144
04345 CLA +0 50000 0 03570 04346 ADD +0 40000 0 03661 04347 SUB +0 40200 0 04350 04350 TXH +3 00000 0 02726
04351 STA +0 62100 0 04353 04352 TSX +0 07400 4 00010 04353 TXH +3 00000 0 00000 04354 STO +0 60100 0 04432
04355 TSX +0 07400 4 00006 04356 TXH +3 00000 0 04432 04357 STO +0 60100 0 03575
PRNTP.(MESS1) 087 LM00145
04360 TSX +0 07400 4 00017 04361 TXH +3 00000 0 03601
E'L 088 LM00146
LOOP4 C'E 089 LM00147
04362 TRA +0 02000 0 04156
T'H LOOP5, FOR I = 0,2,(I.GE.D) 090 LM00151
04363 CLA +0 50000 0 03660 04364 STO +0 60100 0 03570 04365 TRA +0 02000 0 04371 04366 CLA +0 50000 0 03570
04367 ADD +0 40000 0 03662 04370 STO +0 60100 0 03570 04371 CLA +0 50000 0 03570 04372 SUB +0 40200 0 03564
04373 TZE +0 10000 0 04407 04374 TPL +0 12000 0 04407
W'R DIR(I) .NE. 0 091 LM00152
04375 LXA +0 53400 1 03570 04376 CLA +0 50000 1 03553 04377 SUB +0 40200 0 03660 04400 TZE +0 10000 0 04406
MESS2(0) = DIR(I) 092 LM00153
04401 LXA +0 53400 2 03570 04402 CLA +0 50000 2 03553 04403 STO +0 60100 0 03606
PRNTP.(MESS2) 093 LM00154
04404 TSX +0 07400 4 00017 04405 TXH +3 00000 0 03606
E'L 094 LM00155
LOOP5 C'E 095 LM00156
04406 TRA +0 02000 0 04366
SCRAM ATTACH.(V(2),V(1),NERR1) 096 LM00158
04407 TSX +0 07400 4 00001 04410 TXH +3 00000 0 03654 04411 TXH +3 00000 0 03655 04412 TXH +3 00000 0 00027
NERR1 CHNCOM.(0) 097 LM00159
04413 TSX +0 07400 4 00007 04414 TXH +3 00000 0 03660
ERR1 PRNTER. 098 LM00161
04415 TSX +0 07400 4 00016
PRNTP.(MESS3) 099 LM00162
04416 TSX +0 07400 4 00017 04417 TXH +3 00000 0 03612
T'O SCRAM 100 LM00163
04420 TRA +0 02000 0 00032
ERR2 PRNTER. 101 LM00165
04421 TSX +0 07400 4 00016
PRNTP.(MESS3) 102 LM00166
04422 TSX +0 07400 4 00017 04423 TXH +3 00000 0 03612
BFCLOS.(UFD,FILE,SCRAM) 103 LM00167
04424 TSX +0 07400 4 00003 04425 TXH +3 00000 0 03653 04426 TXH +3 00000 0 03567 04427 TXH +3 00000 0 00032
T'O SCRAM 104 LM00168
04430 TRA +0 02000 0 00032
E'M 105 LM00170
04431 TSX +0 07400 4 00011
BACKUP BCD 10/12/70 1514.4 4381 00000
1 MAD PROGRAM LISTING ... ... ... FILE BACKUP MAD 02/25/69 1223.9
-
BACKUP PROGRAM TO BACKUP CTSS SYSTEMS LM00001
LM00002
THE PROGRAM WILL READ A CTSSLD FILE AND CREATE A LM00003
COMBINED FILE OF ALL THE BSS FILES SPECIFIED IN LM00004
THE CTSSLD FILE. LM00005
LM00006
STAN DUNTEN (MODIFIED 2/25/69 BY RAR) LM00007
LM00008
FNI=COMARG.(1) *001 LM00009
FNBO=COMARG.(2) *002 LM00010
WHENEVER FNI.E.FEN .OR. FNBO.E.FEN *003 LM00011
PRMESS.($R BACKUP SYSTEM BACKUP$) *004 LM00012
EXITM. *005 LM00013
END OF CONDITIONAL *006 LM00014
FERRTN.(DSKER.) *007 LM00015
VECTOR VALUES FEN=777777777777K *008 LM00016
LM00017
GETBUF.(A,N) *009 LM00018
GETBUF.(B,432) *010 LM00019
FNCO=FNBO *011 LM00020
DELETE.(FNCO(0),FNCO(1),1,EXITM.) *012 LM00021
DELETE.(FNBO(0),FNBO(1),1,EXITM.) *013 LM00022
OPEN.($R$,FNI,$CTSSLD$) *014 LM00023
RDFILE.(FNI,$CTSSLD$,0,A(A+N)...N,EOFC,EOFCT) *015 LM00024
EOFC CLOSE.(FNI,$CTSSLD$) *016 LM00025
JMAX=N *017 LM00026
THROUGH SQ, FOR I=N,-14,I.LE.N-EOFCT *018 LM00027
A(A+JMAX)=A(A+I) *019 LM00028
JMAX=JMAX-1 *020 LM00029
SQ CONTINUE *021 LM00030
J=N *022 LM00031
N=(JMAX/432)*432 *023 LM00032
I=N *024 LM00033
OPEN.($W$,FNBO,$ BSS$) *025 LM00034
BUFFER.(FNBO,$ BSS$,B(B+432)...432) *026 LM00035
LOOP WHENEVER J.LE.JMAX, TRANSFER TO END *027 LM00036
OPEN.($R$,A(A+J),$ BSS$) *028 LM00037
L1 RDFILE.(A(A+J),$ BSS$,0,A(A+I)...I,EOF,EOFCT) *029 LM00038
FWAIT.(A(A+J),$ BSS$) *030 LM00039
WRWAIT.(FNBO,$ BSS$,0,A(A+N)...N) *031 LM00040
I=N *032 LM00041
TRANSFER TO L1 *033 LM00042
EOF I=I-EOFCT *034 LM00043
CLOSE.(A(A+J),$ BSS$) *035 LM00044
J=J-1 *036 LM00045
TRANSFER TO LOOP *037 LM00046
END X=N-I *038 LM00047
WRFILE.(FNBO,$ BSS$,0,A(A+N)...X) *039 LM00048
CLOSE.(FNBO,$ BSS$) *040 LM00049
OPEN.($W$,FNCO,$CTSSLD$) *041 LM00050
C(14)=FNBO *042 LM00051
C(11)=FNI *043 LM00052
WRFILE.(FNCO,$CTSSLD$,0,C(14)...14) *044 LM00053
CLOSE.(FNCO,$CTSSLD$) *045 LM00054
VECTOR VALUES C(14)=0 *046 LM00055
VECTOR VALUES C(13)=$ BACKU$ *047 LM00056
VECTOR VALUES C(12)=$P TO$ *048 LM00057
VECTOR VALUES C(1)=$ $ *049 LM00058
VECTOR VALUES C(7)=$ $ *050 LM00059
EXITM. *051 LM00060
VECTOR VALUES N=6000 *052 LM00061
VECTOR VALUES FNCO(1)=$CTSSLD$ *053 LM00062
VECTOR VALUES FNBO(1)=$ BSS$ *054 LM00063
DIMENSION A(0),B(0) *055 LM00064
NORMAL MODE IS INTEGER *056 LM00065
END OF PROGRAM *057 LM00066
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00425 TRANSFER VECTOR LENGTH 00020 PROGRAM BEGINS 00101
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
A 00026 A 1 EOFC 00022 4 FNBO 00052 A 1 JMAX 00057 1 N 00061 A 1
B 00027 A 1 EOFCT 00047 1 FNCO 00054 A 1 J 00060 1 SQ 00020 4
C 00046 A 1 EOF 00023 4 FNI 00055 1 L1 00024 4 X 00062 1
END 00021 4 FEN 00050 A 1 I 00056 1 LOOP 00025 4
0FUNCTION DICTIONARY
BUFFER 00000 1 CLOSE 00001 1 COMARG 00002 1 DELETE 00003 1 DSKER 00004 1
EXITM 00005 1 EXIT 00006 1 FERRTN 00007 1 FWAIT 00010 1 GETBUF 00011 1
.SETUP 00012 1 OPEN 00013 1 PRMESS 00014 1 RDFILE 00015 1 WRFILE 00016 1
WRWAIT 00017 1
0ABSOLUTE CONSTANTS
00075 -206060226262 00100 -266060606060 00066 +000000000016 00063 +000000000000 00072 +236362624324
00074 -116060606060 00067 +000000000660 00071 +234264476060 00076 -232544602221 00077 -244760627062
00073 -116022212342 00065 +000000000002 00064 +000000000001 00070 +233000000000
0STATEMENT DICTIONARY
00021 TXL -300363000360 00022 TXL -300173000170 00023 TXL -300344000341 00024 TXL -300314000273
00025 TXL -300262000255
0PROGRAM
FNI=COMARG.(1) 001 LM00009
00101 TSX +0 07400 4 00012 00102 TSX +0 07400 4 00002 00103 TXH +3 00000 0 00064 00104 STO +0 60100 0 00055
FNBO=COMARG.(2) 002 LM00010
00105 TSX +0 07400 4 00002 00106 TXH +3 00000 0 00065 00107 STO +0 60100 0 00052
W'R FNI.E.FEN .OR. FNBO.E.FEN 003 LM00011
00110 CLA +0 50000 0 00052 00111 SUB +0 40200 0 00050 00112 TZE +0 10000 0 00116 00113 CLA +0 50000 0 00055
00114 SUB +0 40200 0 00050 00115 TNZ -0 10000 0 00124
PRMESS.($R BACKUP SYSTEM BACKUP$) 004 LM00012
00116 TSX +0 07400 4 00014 00117 TXH +3 00000 0 00073 00120 TXH +3 00000 0 00077 00121 TXH +3 00000 0 00076
00122 TXH +3 00000 0 00071
EXITM. 005 LM00013
00123 TSX +0 07400 4 00005
E'L 006 LM00014
FERRTN.(DSKER.) 007 LM00015
00124 TSX +0 07400 4 00007 00125 TXH +3 00000 0 00004
V'S FEN=777777777777K 008 LM00016
00050 -3 77777 7 77777
GETBUF.(A,N) 009 LM00018
00126 TSX +0 07400 4 00011 00127 TXH +3 00000 0 00026 00130 TXH +3 00000 0 00061
GETBUF.(B,432) 010 LM00019
00131 TSX +0 07400 4 00011 00132 TXH +3 00000 0 00027 00133 TXH +3 00000 0 00067
FNCO=FNBO 011 LM00020
00134 CLA +0 50000 0 00052 00135 STO +0 60100 0 00054
DELETE.(FNCO(0),FNCO(1),1,EXITM.) 012 LM00021
00136 TSX +0 07400 4 00003 00137 TXH +3 00000 0 00054 00140 TXH +3 00000 0 00053 00141 TXH +3 00000 0 00064
00142 TXH +3 00000 0 00005
DELETE.(FNBO(0),FNBO(1),1,EXITM.) 013 LM00022
00143 TSX +0 07400 4 00003 00144 TXH +3 00000 0 00052 00145 TXH +3 00000 0 00051 00146 TXH +3 00000 0 00064
00147 TXH +3 00000 0 00005
OPEN.($R$,FNI,$CTSSLD$) 014 LM00023
00150 TSX +0 07400 4 00013 00151 TXH +3 00000 0 00074 00152 TXH +3 00000 0 00055 00153 TXH +3 00000 0 00072
RDFILE.(FNI,$CTSSLD$,0,A(A+N)...N,EOFC,EOFCT) 015 LM00024
00154 CLA +0 50000 0 00026 00155 ADD +0 40000 0 00061 00156 SUB +0 40200 0 00157 00157 TXH +3 00000 0 00026
00160 STA +0 62100 0 00165 00161 TSX +0 07400 4 00015 00162 TXH +3 00000 0 00055 00163 TXH +3 00000 0 00072
00164 TXH +3 00000 0 00063 00165 TIX +2 00061 0 00000 00166 TXH +3 00000 0 00022 00167 TXH +3 00000 0 00047
EOFC CLOSE.(FNI,$CTSSLD$) 016 LM00025
00170 TSX +0 07400 4 00001 00171 TXH +3 00000 0 00055 00172 TXH +3 00000 0 00072
JMAX=N 017 LM00026
00173 CLA +0 50000 0 00061 00174 STO +0 60100 0 00057
T'H SQ, FOR I=N,-14,I.LE.N-EOFCT 018 LM00027
00175 CLA +0 50000 0 00061 00176 STO +0 60100 0 00056 00177 TRA +0 02000 0 00203 00200 CLS +0 50200 0 00066
00201 ADD +0 40000 0 00056 00202 STO +0 60100 0 00056 00203 CLA +0 50000 0 00061 00204 SUB +0 40200 0 00047
00205 CHS +0 76000 0 00002 00206 ADD +0 40000 0 00056 00207 TZE +0 10000 0 00226 00210 TMI -0 12000 0 00226
A(A+JMAX)=A(A+I) 019 LM00028
00211 CLA +0 50000 0 00026 00212 ADD +0 40000 0 00056 00213 STO +0 60100 0 00422 00214 CLA +0 50000 0 00026
00215 ADD +0 40000 0 00057 00216 PAX +0 73400 1 00000 00217 LXA +0 53400 2 00422 00220 CLA +0 50000 2 00026
00221 STO +0 60100 1 00026
JMAX=JMAX-1 020 LM00029
00222 CLA +0 50000 0 00057 00223 SUB +0 40200 0 00064 00224 STO +0 60100 0 00057
SQ CONTINUE 021 LM00030
00225 TRA +0 02000 0 00200
J=N 022 LM00031
00226 CLA +0 50000 0 00061 00227 STO +0 60100 0 00060
N=(JMAX/432)*432 023 LM00032
00230 LDQ +0 56000 0 00057 00231 PXD -0 75400 0 00000 00232 LLS +0 76300 0 00000 00233 DVP +0 22100 0 00067
00234 MPY +0 20000 0 00067 00235 STQ -0 60000 0 00061
I=N 024 LM00033
00236 CLA +0 50000 0 00061 00237 STO +0 60100 0 00056
OPEN.($W$,FNBO,$ BSS$) 025 LM00034
00240 TSX +0 07400 4 00013 00241 TXH +3 00000 0 00100 00242 TXH +3 00000 0 00052 00243 TXH +3 00000 0 00075
BUFFER.(FNBO,$ BSS$,B(B+432)...432) 026 LM00035
00244 CLA +0 50000 0 00027 00245 ADD +0 40000 0 00067 00246 SUB +0 40200 0 00247 00247 TXH +3 00000 0 00027
00250 STA +0 62100 0 00254 00251 TSX +0 07400 4 00000 00252 TXH +3 00000 0 00052 00253 TXH +3 00000 0 00075
00254 TIX +2 00067 0 00000
LOOP W'R J.LE.JMAX, T'O END 027 LM00036
00255 CLA +0 50000 0 00060 00256 SUB +0 40200 0 00057 00257 TZE +0 10000 0 00261 00260 TPL +0 12000 0 00262
00261 TRA +0 02000 0 00021
OPEN.($R$,A(A+J),$ BSS$) 028 LM00037
00262 CLA +0 50000 0 00026 00263 ADD +0 40000 0 00060 00264 SUB +0 40200 0 00265 00265 TXH +3 00000 0 00026
00266 STA +0 62100 0 00271 00267 TSX +0 07400 4 00013 00270 TXH +3 00000 0 00074 00271 TXH +3 00000 0 00000
00272 TXH +3 00000 0 00075
L1 RDFILE.(A(A+J),$ BSS$,0,A(A+I)...I,EOF,EOFCT) 029 LM00038
00273 CLA +0 50000 0 00026 00274 ADD +0 40000 0 00056 00275 SUB +0 40200 0 00276 00276 TXH +3 00000 0 00026
00277 STA +0 62100 0 00311 00300 CLA +0 50000 0 00026 00301 ADD +0 40000 0 00060 00302 SUB +0 40200 0 00303
00303 TXH +3 00000 0 00026 00304 STA +0 62100 0 00306 00305 TSX +0 07400 4 00015 00306 TXH +3 00000 0 00000
00307 TXH +3 00000 0 00075 00310 TXH +3 00000 0 00063 00311 TIX +2 00056 0 00000 00312 TXH +3 00000 0 00023
00313 TXH +3 00000 0 00047
FWAIT.(A(A+J),$ BSS$) 030 LM00039
00314 CLA +0 50000 0 00026 00315 ADD +0 40000 0 00060 00316 SUB +0 40200 0 00317 00317 TXH +3 00000 0 00026
00320 STA +0 62100 0 00322 00321 TSX +0 07400 4 00010 00322 TXH +3 00000 0 00000 00323 TXH +3 00000 0 00075
WRWAIT.(FNBO,$ BSS$,0,A(A+N)...N) 031 LM00040
00324 CLA +0 50000 0 00026 00325 ADD +0 40000 0 00061 00326 SUB +0 40200 0 00327 00327 TXH +3 00000 0 00026
00330 STA +0 62100 0 00335 00331 TSX +0 07400 4 00017 00332 TXH +3 00000 0 00052 00333 TXH +3 00000 0 00075
00334 TXH +3 00000 0 00063 00335 TIX +2 00061 0 00000
I=N 032 LM00041
00336 CLA +0 50000 0 00061 00337 STO +0 60100 0 00056
T'O L1 033 LM00042
00340 TRA +0 02000 0 00024
EOF I=I-EOFCT 034 LM00043
00341 CLA +0 50000 0 00056 00342 SUB +0 40200 0 00047 00343 STO +0 60100 0 00056
CLOSE.(A(A+J),$ BSS$) 035 LM00044
00344 CLA +0 50000 0 00026 00345 ADD +0 40000 0 00060 00346 SUB +0 40200 0 00347 00347 TXH +3 00000 0 00026
00350 STA +0 62100 0 00352 00351 TSX +0 07400 4 00001 00352 TXH +3 00000 0 00000 00353 TXH +3 00000 0 00075
J=J-1 036 LM00045
00354 CLA +0 50000 0 00060 00355 SUB +0 40200 0 00064 00356 STO +0 60100 0 00060
T'O LOOP 037 LM00046
00357 TRA +0 02000 0 00025
END X=N-I 038 LM00047
00360 CLA +0 50000 0 00061 00361 SUB +0 40200 0 00056 00362 STO +0 60100 0 00062
WRFILE.(FNBO,$ BSS$,0,A(A+N)...X) 039 LM00048
00363 CLA +0 50000 0 00026 00364 ADD +0 40000 0 00061 00365 SUB +0 40200 0 00366 00366 TXH +3 00000 0 00026
00367 STA +0 62100 0 00374 00370 TSX +0 07400 4 00016 00371 TXH +3 00000 0 00052 00372 TXH +3 00000 0 00075
00373 TXH +3 00000 0 00063 00374 TIX +2 00062 0 00000
CLOSE.(FNBO,$ BSS$) 040 LM00049
00375 TSX +0 07400 4 00001 00376 TXH +3 00000 0 00052 00377 TXH +3 00000 0 00075
OPEN.($W$,FNCO,$CTSSLD$) 041 LM00050
00400 TSX +0 07400 4 00013 00401 TXH +3 00000 0 00100 00402 TXH +3 00000 0 00054 00403 TXH +3 00000 0 00072
C(14)=FNBO 042 LM00051
00404 CLA +0 50000 0 00052 00405 STO +0 60100 0 00030
C(11)=FNI 043 LM00052
00406 CLA +0 50000 0 00055 00407 STO +0 60100 0 00033
WRFILE.(FNCO,$CTSSLD$,0,C(14)...14) 044 LM00053
00410 TSX +0 07400 4 00016 00411 TXH +3 00000 0 00054 00412 TXH +3 00000 0 00072 00413 TXH +3 00000 0 00063
00414 TIX +2 00066 0 00030
CLOSE.(FNCO,$CTSSLD$) 045 LM00054
00415 TSX +0 07400 4 00001 00416 TXH +3 00000 0 00054 00417 TXH +3 00000 0 00072
V'S C(14)=0 046 LM00055
00030 +0 00000 0 00000
V'S C(13)=$ BACKU$ 047 LM00056
00031 -2 02221 2 34264
V'S C(12)=$P TO$ 048 LM00057
00032 -0 76063 4 66060
V'S C(1)=$ $ 049 LM00058
00037 -2 06060 6 06060 00040 -2 06060 6 06060 00041 -2 06060 6 06060 00042 -2 06060 6 06060
00043 -2 06060 6 06060 00044 -2 06060 6 06060 00045 -2 06060 6 06060
V'S C(7)=$ $ 050 LM00059
00033 -2 06060 6 06060 00034 -2 06060 6 06060 00035 -2 06060 6 06060 00036 -2 06060 6 06060
00037 -2 06060 6 06060
EXITM. 051 LM00060
00420 TSX +0 07400 4 00005
V'S N=6000 052 LM00061
00061 +0 00000 0 13560
V'S FNCO(1)=$CTSSLD$ 053 LM00062
00053 +2 36362 6 24324
V'S FNBO(1)=$ BSS$ 054 LM00063
00051 -2 06060 2 26262
D'N A(0),B(0) 055 LM00064
N'R 056 LM00065
E'M 057 LM00066
00421 TSX +0 07400 4 00006
CALIB BCD 09/20/68 0219.7 2093 00000
1 PAGE 1
TRANSFER VECTOR
00000 334751314563 .PRINT
00001 0774 00 0 00000 *EVEN*
00002 0760 00 0 00016 LMTM
00003 0600 00 0 00005 STZ 5
00004 0074 00 4 00361 TSX CLOCON,4
00005 -0500 00 0 00332 CAL 7TRA
00006 0602 00 0 00007 SLW 7
00007 0600 00 0 00006 STZ 6
00010 0774 00 1 00000 AXT 0,1
00011 0500 00 0 00375 CLA =614
00012 0760 00 0 00006 COM
00013 -0320 00 0 00401 ANA =O377777777777
00014 0602 00 0 00005 SLW 5
00015 -0340 00 0 00005 LAS 5
00016 0000 00 0 00016 HTR *
00017 0020 00 0 00015 TRA *-2
00020 0020 00 0 00022 TRA TEST1
00021 0774 00 0 00000 EVEN
00022 TEST1 DUP 2,99
00022 0625 00 0 00360 STT TEM
00023 0131 00 0 00000 XCA
00024 0625 00 0 00360
00025 0131 00 0 00000
00026 0625 00 0 00360
00027 0131 00 0 00000
00030 0625 00 0 00360
00031 0131 00 0 00000
00032 0625 00 0 00360
00033 0131 00 0 00000
00034 0625 00 0 00360
00035 0131 00 0 00000
00036 0625 00 0 00360
00037 0131 00 0 00000
00040 0625 00 0 00360
00041 0131 00 0 00000
00042 0625 00 0 00360
00043 0131 00 0 00000
00044 0625 00 0 00360
00045 0131 00 0 00000
00046 0625 00 0 00360
00047 0131 00 0 00000
00050 0625 00 0 00360
00051 0131 00 0 00000
00052 0625 00 0 00360
00053 0131 00 0 00000
00054 0625 00 0 00360
00055 0131 00 0 00000
00056 0625 00 0 00360
00057 0131 00 0 00000
00060 0625 00 0 00360
00061 0131 00 0 00000
1 PAGE 2
00062 0625 00 0 00360
00063 0131 00 0 00000
00064 0625 00 0 00360
00065 0131 00 0 00000
00066 0625 00 0 00360
00067 0131 00 0 00000
00070 0625 00 0 00360
00071 0131 00 0 00000
00072 0625 00 0 00360
00073 0131 00 0 00000
00074 0625 00 0 00360
00075 0131 00 0 00000
00076 0625 00 0 00360
00077 0131 00 0 00000
00100 0625 00 0 00360
00101 0131 00 0 00000
00102 0625 00 0 00360
00103 0131 00 0 00000
00104 0625 00 0 00360
00105 0131 00 0 00000
00106 0625 00 0 00360
00107 0131 00 0 00000
00110 0625 00 0 00360
00111 0131 00 0 00000
00112 0625 00 0 00360
00113 0131 00 0 00000
00114 0625 00 0 00360
00115 0131 00 0 00000
00116 0625 00 0 00360
00117 0131 00 0 00000
00120 0625 00 0 00360
00121 0131 00 0 00000
00122 0625 00 0 00360
00123 0131 00 0 00000
00124 0625 00 0 00360
00125 0131 00 0 00000
00126 0625 00 0 00360
00127 0131 00 0 00000
00130 0625 00 0 00360
00131 0131 00 0 00000
00132 0625 00 0 00360
00133 0131 00 0 00000
00134 0625 00 0 00360
00135 0131 00 0 00000
00136 0625 00 0 00360
00137 0131 00 0 00000
00140 0625 00 0 00360
00141 0131 00 0 00000
00142 0625 00 0 00360
00143 0131 00 0 00000
00144 0625 00 0 00360
00145 0131 00 0 00000
00146 0625 00 0 00360
00147 0131 00 0 00000
00150 0625 00 0 00360
00151 0131 00 0 00000
1 PAGE 3
00152 0625 00 0 00360
00153 0131 00 0 00000
00154 0625 00 0 00360
00155 0131 00 0 00000
00156 0625 00 0 00360
00157 0131 00 0 00000
00160 0625 00 0 00360
00161 0131 00 0 00000
00162 0625 00 0 00360
00163 0131 00 0 00000
00164 0625 00 0 00360
00165 0131 00 0 00000
00166 0625 00 0 00360
00167 0131 00 0 00000
00170 0625 00 0 00360
00171 0131 00 0 00000
00172 0625 00 0 00360
00173 0131 00 0 00000
00174 0625 00 0 00360
00175 0131 00 0 00000
00176 0625 00 0 00360
00177 0131 00 0 00000
00200 0625 00 0 00360
00201 0131 00 0 00000
00202 0625 00 0 00360
00203 0131 00 0 00000
00204 0625 00 0 00360
00205 0131 00 0 00000
00206 0625 00 0 00360
00207 0131 00 0 00000
00210 0625 00 0 00360
00211 0131 00 0 00000
00212 0625 00 0 00360
00213 0131 00 0 00000
00214 0625 00 0 00360
00215 0131 00 0 00000
00216 0625 00 0 00360
00217 0131 00 0 00000
00220 0625 00 0 00360
00221 0131 00 0 00000
00222 0625 00 0 00360
00223 0131 00 0 00000
00224 0625 00 0 00360
00225 0131 00 0 00000
00226 0625 00 0 00360
00227 0131 00 0 00000
00230 0625 00 0 00360
00231 0131 00 0 00000
00232 0625 00 0 00360
00233 0131 00 0 00000
00234 0625 00 0 00360
00235 0131 00 0 00000
00236 0625 00 0 00360
00237 0131 00 0 00000
00240 0625 00 0 00360
00241 0131 00 0 00000
1 PAGE 4
00242 0625 00 0 00360
00243 0131 00 0 00000
00244 0625 00 0 00360
00245 0131 00 0 00000
00246 0625 00 0 00360
00247 0131 00 0 00000
00250 0625 00 0 00360
00251 0131 00 0 00000
00252 0625 00 0 00360
00253 0131 00 0 00000
00254 0625 00 0 00360
00255 0131 00 0 00000
00256 0625 00 0 00360
00257 0131 00 0 00000
00260 0625 00 0 00360
00261 0131 00 0 00000
00262 0625 00 0 00360
00263 0131 00 0 00000
00264 0625 00 0 00360
00265 0131 00 0 00000
00266 0625 00 0 00360
00267 0131 00 0 00000
00270 0625 00 0 00360
00271 0131 00 0 00000
00272 0625 00 0 00360
00273 0131 00 0 00000
00274 0625 00 0 00360
00275 0131 00 0 00000
00276 0625 00 0 00360
00277 0131 00 0 00000
00300 0625 00 0 00360
00301 0131 00 0 00000
00302 0625 00 0 00360
00303 0131 00 0 00000
00304 0625 00 0 00360
00305 0131 00 0 00000
00306 0625 00 0 00360
00307 0131 00 0 00000
00310 0625 00 0 00360
00311 0131 00 0 00000
00312 0625 00 0 00360
00313 0131 00 0 00000
00314 0625 00 0 00360
00315 0131 00 0 00000
00316 0625 00 0 00360
00317 0131 00 0 00000
00320 0625 00 0 00360
00321 0131 00 0 00000
00322 0625 00 0 00360
00323 0131 00 0 00000
00324 0625 00 0 00360
00325 0131 00 0 00000
00326 0625 00 0 00360
00327 0131 00 0 00000
00330 0625 00 0 00360 STT TEM
00331 1 00001 1 00022 TXI TEST1,1,1
1 PAGE 5
*
00332 0020 00 0 00333 7TRA TRA *+1
00333 0600 00 0 00005 STZ 5
00334 0535 00 2 00006 LAC 6,2
00335 1 00022 2 00336 TXI *+1,2,TEST1
00336 0636 00 2 00356 SCA LENGTH,2
00337 0754 00 1 00000 PXA 0,1
00340 0131 00 0 00000 XCA
00341 0200 00 0 00374 MPY =200
00342 0131 00 0 00000 XCA
00343 0400 00 0 00356 ADD LENGTH
00344 0601 00 0 00356 STO LENGTH
00345 0765 00 0 00043 LRS 35
00346 0221 00 0 00376 DVP =50000
00347 -0600 00 0 00357 STQ PCNT
00350 0074 00 4 00000 TSX $.PRINT,4
00351 -1 00000 0 00362 STR FMT
00352 -1 00000 0 00356 STR LENGTH
00353 -1 00000 0 00357 STR PCNT
00354 -1 00000 0 00000 STR
00355 0101 00 0 00400 TIA =HDORMNT
00356 0 00000 0 00000 LENGTH
00357 0 00000 0 00000 PCNT
00360 0 00000 0 00000 TEM
00361 0101 00 0 00377 CLOCON TIA =HCLOCON
00362 036773653101 FMT BCI ,3X,VI12,H' IN 10 SEC. ', I4, H' PERCENT '*
00363 027330146031
00364 456001006062
00365 252333601473
00366 603104736030
00367 146047255123
00370 254563601454
00371 606060606060
00372 606060606060
00373 606060606060
END
LITERALS
00374 000000000310
00375 000000001146
00376 000000141520
00377 234346234645
00400 244651444563
00401 377777777777
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
402 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
362 FMT 351
360 TEM 22, 24, 26, 30, 32, 34, 36, 40, 42, 44, 46, 50, 52, 54, 56, 60, 62
64, 66, 70, 72, 74, 76, 100, 102, 104, 106, 110, 112, 114, 116, 120, 122, 124
126, 130, 132, 134, 136, 140, 142, 144, 146, 150, 152, 154, 156, 160, 162, 164, 166
170, 172, 174, 176, 200, 202, 204, 206, 210, 212, 214, 216, 220, 222, 224, 226, 230
232, 234, 236, 240, 242, 244, 246, 250, 252, 254, 256, 260, 262, 264, 266, 270, 272
274, 276, 300, 302, 304, 306, 310, 312, 314, 316, 320, 322, 324, 326, 330
332 7TRA 5
357 PCNT 347, 353
22 TEST1 20, 331, 335
361 CLOCON 4
0 .PRINT 350
356 LENGTH 336, 343, 344, 352
0 NO ERROR IN ABOVE ASSEMBLY.
CLM2RW BCD 09/20/68 0219.7 1480 00000
1 PAGE 1
M CALL MACRO NAME,LIST
TSX $'NAME,4
IRP LIST
PTH LIST
IRP
CALL END
00000 272563234644 GETCOM
00001 242543263143 DELFIL
00002 222646472545 BFOPEN
00003 222651252124 BFREAD
00004 222666513163 BFWRIT
00005 222623434662 BFCLOS
00006 233045234644 CHNCOM
00007 665126436760 WRFLX
00010 0074 00 4 00000 TSX $GETCOM,4
00011 0 00000 0 00001 1
00012 0602 00 0 00311 SLW NAME
00013 CALL DELFIL(NAME,ROW,DELERR,DELCOD)
00020 DELOK CALL BFOPEN(=HR,NAME,ABS,B1,B2,=-0,BFERR)
00030 CALL BFOPEN(=HW,NAME,ROW,B3,B4,B5,BFERR)
00040 LOOP CALL BFREAD(NAME,ABS(IN,,28)DONE,EOFCT,BFERR)
00047 0774 00 1 00030 AXT 24,1
00050 0600 00 1 00400 STZ OUT+24,1
00051 2 00001 1 00050 TIX *-1,1,1
00052 0774 00 1 00004 AXT 4,1
00053 -0500 00 1 00350 CAL IN+28,1
00054 0602 00 1 00404 SLW OUT+28,1
00055 2 00001 1 00053 TIX *-2,1,1
00056 0774 00 1 00030 AXT 24,1
00057 0774 00 2 00044 WRDLP AXT 36,2
00060 0560 00 1 00344 LDQ IN+24,1
00061 -0754 00 0 00000 BITLP ZAC
00062 -0763 00 0 00001 LGL 1
00063 0522 00 1 00151 XEC WRDLS,1
00064 0522 00 2 00215 XEC BITLS,2
00065 0522 00 2 00311 XEC ADR,2
00066 0522 00 1 00245 XEC ORS,1
00067 2 00001 2 00061 TIX BITLP,2,1
00070 2 00001 1 00057 TIX WRDLP,1,1
00071 CALL BFWRIT(NAME,ROW(OUT,,28)BFERR)
00076 0020 00 0 00040 TRA LOOP
00077 DONE CALL BFCLOS(=HALL,=-0,BFERR)
00103 0520 00 0 00404 ZET EOFCT
00104 0020 00 0 00107 TRA OOPS
00105 CALL CHNCOM(=0)
00107 0074 00 4 00007 OOPS TSX $WRFLX,4
00110 0 00002 0 00406 OOPSMS,,2
00111 CALL CHNCOM(=0)
1 PAGE 2
00113 -0500 00 0 00405 DELERR CAL DELCOD
00114 0402 00 0 04571 SUB =3
00115 0100 00 0 00020 TZE DELOK
00116 -0500 00 0 04575 BFERR CAL =HPRNTER
00117 0560 00 0 04600 LDQ =O777777777777
00120 0101 00 0 04574 TIA =HNEXCOM
00121 X1 BSS 0
00121 DUP 2,24
00000 X2 SET *-X1
00121 0767 00 0 00000 ALS X2/2
00151 WRDLS BSS 0
00151 DUP 3,12
00151 0767 00 0 00030 ALS 24
00152 0767 00 0 00014 ALS 12
00153 0767 00 0 00000 ALS 0
00215 BITLS BSS 0
00215 DUP 2,12
00215 -0602 00 4 00364 ORS OUT+12,4
00216 -0602 00 4 00400 ORS OUT+24,4
00245 ORS BSS 0
00245 ADR1 BSS 0
00245 DUP 2,36
00000 ADR2 SET *-ADR1
00245 0774 00 4 00014 AXT 12-ADR2/3,4
00311 ADR BSS 0
00311 0 00000 0 00000 NAME
00312 606060212262 ABS BCI 1, ABS
00313 606060514666 ROW BCI 1, ROW
00314 IN BSS 28
00350 OUT BSS 28
00404 0 00000 0 00000 EOFCT
00405 0 00000 0 00000 DELCOD
00406 472151633121 OOPSMS BCI 2,PARTIAL CARD
00410 B1 BSS 432
01270 B2 BSS 432
02150 B3 BSS 432
03030 B4 BSS 432
03710 B5 BSS 432
END
LITERALS
04570 000000000000
04571 000000000003
04572 214343606060
04573 400000000000
04574 452567234644
04575 475145632551
04576 516060606060
04577 666060606060
1 PAGE 3
04600 777777777777
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
4601 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
410 B1 24
1270 B2 25
2150 B3 34
3030 B4 35
3710 B5 36
314 IN 43, 53, 60
121 X1 121, 122, 123, 124, 125, 126, 127, 130, 131, 132, 133, 134, 135, 136, 137, 140, 141
142, 143, 144, 145, 146, 147, 150
27 X2 121, 122, 123, 124, 125, 126, 127, 130, 131, 132, 133, 134, 135, 136, 137, 140, 141
142, 143, 144, 145, 146, 147, 150
312 ABS 23, 42
311 ADR 65
245 ORS 66
350 OUT 50, 54, 74, 215, 216, 217, 220, 221, 222, 223, 224, 225, 226, 227, 230, 231, 232
233, 234, 235, 236, 237, 240, 241, 242, 243, 244
313 ROW 15, 33, 73
245 ADR1 245, 246, 247, 250, 251, 252, 253, 254, 255, 256, 257, 260, 261, 262, 263, 264, 265
266, 267, 270, 271, 272, 273, 274, 275, 276, 277, 300, 301, 302, 303, 304, 305, 306
307, 310
43 ADR2 245, 246, 247, 250, 251, 252, 253, 254, 255, 256, 257, 260, 261, 262, 263, 264, 265
266, 267, 270, 271, 272, 273, 274, 275, 276, 277, 300, 301, 302, 303, 304, 305, 306
307, 310
77 DONE 44
40 LOOP 76
311 NAME 12, 14, 22, 32, 41, 72
107 OOPS 104
116 BFERR 27, 37, 46, 75, 102
61 BITLP 67
215 BITLS 64
20 DELOK 115
404 EOFCT 45, 103
57 WRDLP 70
151 WRDLS 63
7 WRFLX 107
5 BFCLOS 77
2 BFOPEN 20, 30
3 BFREAD 40
4 BFWRIT 71
6 CHNCOM 105, 111
405 DELCOD 17, 113
113 DELERR 16
1 DELFIL 13
0 GETCOM 10
406 OOPSMS 110
0 NO ERROR IN ABOVE ASSEMBLY.
DO BCD 09/20/68 0219.7 2240 00000
1 DO - RESUME A SAVED FILE FROM A COMMON FILE. PAGE 1
8/30/66 - NOEL I. MORRIS
MODIFIED FOR '*' 4/3/68 R.A. ROACH
ABS
UNLIST
M CALL MACRO SUBR,LIST
000024 LOWMEM BOOL 24
1 DO - RESUME A SAVED FILE FROM A COMMON FILE. PAGE 2
SET UP AND READ FILE CONDITIONS.
00024 ORG LOWMEM
00024 CALL GETCLS((CBUF,,0)) PICK UP COMMAND BUFFER
00024 0074 00 4 00113 TSX GETCLS,4 .002
00025 3 00000 0 00131 PAR CBUF,,0 .004
00026 CALL SETCLS((CBUF+2,,0)) FIX IT UP FOR SAVED FILE
00026 0074 00 4 00115 TSX SETCLS,4 .002
00027 3 00000 0 00133 PAR CBUF+2,,0 .004
00030 CALL GETCF GET COMMON FILE NO.
00030 0074 00 4 00117 TSX GETCF,4 .002
00031 0602 00 0 00131 SLW CF0 AND SAVE
00032 -0500 00 0 00132 CAL CFN GET TARGET COMMON FILE
00033 -0340 00 0 00162 LAS STAR
00034 0020 00 0 00036 TRA *+2
00035 -0500 00 0 00131 CAL CF0
00036 -0320 00 0 00160 ANA ZLB ZERO LEADING BLANKS
00037 0602 00 0 00132 SLW CFN AND SAVE
00040 0322 00 0 00131 ERA CF0 IS IT THE SAME AS HOME COMMON FILE
00041 0602 00 0 00161 SLW SAME. ..
00042 -0500 00 0 00132 CAL CFN NOW SWITCH TO COMMON FILE,
00043 0520 00 0 00161 ZET SAME. IF NECESSARY
00044 CALL COMFIL(-) AND SWITCH TO IT
00044 0074 00 4 00121 TSX COMFIL,4 .002
00045 3 00000 0 00000 PAR - .004
00046 -0500 00 0 00133 CAL CBUF+2 NAME OF SAVED FILE
00047 0602 00 0 00016 SLW NAME ..
00050 CALL OPEN(R,NAME,SAVED,MZE,MZE,ERR) TRY TO OPEN THE FILE
00050 0074 00 4 00123 TSX OPEN,4 .002
00051 3 00000 0 00157 PAR R .004
00052 3 00000 0 00016 PAR NAME .004
00053 3 00000 0 00017 PAR SAVED .004
00054 3 00000 0 00155 PAR MZE .004
00055 3 00000 0 00155 PAR MZE .004
00056 3 00000 0 00104 PAR ERR .004
00057 -0500 00 0 00131 CAL CF0 SWITCH BACK TO HOME COMMON FILE
00060 0520 00 0 00161 ZET SAME. IF NECESSARY
00061 CALL COMFIL(-) ..
00061 0074 00 4 00121 TSX COMFIL,4 .002
00062 3 00000 0 00000 PAR - .004
00063 CALL RDWAIT(NAME,SAVED,ZERO(WORDS,,2)) READ TWO WORDS
00063 0074 00 4 00125 TSX RDWAIT,4 .002
00064 3 00000 0 00016 PAR NAME .004
00065 3 00000 0 00017 PAR SAVED .004
00066 3 00000 0 00156 PAR ZERO .004
00067 3 00002 0 00134 PAR WORDS,,2 .004
1 DO - RESUME A SAVED FILE FROM A COMMON FILE. PAGE 3
SET UP AND READ FILE CONDITIONS.
00070 -0500 00 0 00135 CAL WORDS+1 GET THE ILC
00071 0621 00 0 00011 STA ILC AND SAVE FOR TRANSFER
00072 -0534 00 4 00134 LXD WORDS,4 NO. OF LOC'NS OF CONDITIONS
00073 1 00026 4 00074 TXI *+1,4,LOWMEM+2 PLUS BOTTOM OF CORE
00074 0634 00 4 00020 SXA LOC,4 GIVES 'RELLOC' FOR FILE
00075 0534 00 4 00134 LXA WORDS,4 MEMBND IN XR4
00076 0754 00 4 00000 PXA ,4 AND IN AC
00077 1 77754 4 00100 TXI *+1,4,-LOWMEM GET NUMBER OF WORDS TO READ
00100 -0634 00 4 00005 SXD READ+4,4 AND SET UP CALL TO RDFILE
00101 -0774 00 4 00000 AXC SETM,4 SET XR4 FOR CALL TO SETMEM
00102 0101 00 0 00103 TIA *+1 AND GO TO A-CORE
00103 622563442544 BCI 1,SETMEM RETURN TO SETM+1
1 DO - RESUME A SAVED FILE FROM A COMMON FILE. PAGE 4
MISCELLANEOUS, STORAGE, AND CONSTANTS.
00104 -0500 00 0 00131 ERR CAL CF0 GET HOME COMMON FILE AND
00105 0520 00 0 00161 ZET SAME. SWITCH BACK, IF NECESSARY
00106 CALL COMFIL(-) ..
00106 0074 00 4 00121 TSX COMFIL,4 .002
00107 3 00000 0 00000 PAR - .004
00110 -0500 00 0 00163 CAL PRNTER CHAIN TO PRNTER COMMAND
00111 0560 00 0 00164 LDQ MASK ..
00112 CALL NEXCOM ..
00112 0074 00 4 00127 TSX NEXCOM,4 .002
00113 0101 00 0 00114 GETCLS TIA *+1
00114 272563234362 BCI 1,GETCLS
00115 0101 00 0 00116 SETCLS TIA *+1
00116 622563234362 BCI 1,SETCLS
00117 0101 00 0 00120 GETCF TIA *+1
00120 272563232660 BCI 1,GETCF
00121 0101 00 0 00122 COMFIL TIA *+1
00122 234644263143 BCI 1,COMFIL
00123 0101 00 0 00124 OPEN TIA *+1
00124 464725456060 BCI 1,OPEN
00125 0101 00 0 00126 RDWAIT TIA *+1
00126 512466213163 BCI 1,RDWAIT
00127 0101 00 0 00130 NEXCOM TIA *+1
00130 452567234644 BCI 1,NEXCOM
00131 CBUF BSS 20
00131 CF0 SYN CBUF
00132 CFN SYN CBUF+1
00134 WORDS SYN CBUF+3
00155 -0 00000 0 00000 MZE MZE
00156 0 00000 0 00000 ZERO PZE
00157 516060606060 R BCI 1,R
00160 000000000077 ZLB VFD O36/77
00161 0 00000 0 00000 SAME. PZE
00162 606060606054 STAR BCI 1, *
00163 475145632551 PRNTER BCI 1,PRNTER
00164 -000000000071 MASK OCT -71
1 DO - RESUME A SAVED FILE FROM A COMMON FILE. PAGE 5
SETM - READ FILE AND EXECUTE IT.
00000 ORG 0
00000 0 00000 0 00000 SETM PZE FOR STR'S
00001 READ CALL RDFILE(NAME,SAVED,LOC(LOWMEM,,**)) READ THE FILE
00001 0074 00 4 00012 TSX RDFILE,4 .002
00002 3 00000 0 00016 PAR NAME .004
00003 3 00000 0 00017 PAR SAVED .004
00004 3 00000 0 00020 PAR LOC .004
00005 3 00000 0 00024 PAR LOWMEM,,** .004
00006 CALL CLOSE(NAME,SAVED) CLOSE IT
00006 0074 00 4 00014 TSX CLOSE,4 .002
00007 3 00000 0 00016 PAR NAME .004
00010 3 00000 0 00017 PAR SAVED .004
00011 0020 00 0 00000 ILC TRA ** GO TO IT
00012 0101 00 0 00013 RDFILE TIA *+1
00013 512426314325 BCI 1,RDFILE
00014 0101 00 0 00015 CLOSE TIA *+1
00015 234346622560 BCI 1,CLOSE
00016 0 00000 0 00000 NAME PZE
00017 606221652524 SAVED BCI 1, SAVED
00020 0 00000 0 00000 LOC PZE
00024 END LOWMEM
REMOTE SEQUENCES
1 DO - RESUME A SAVED FILE FROM A COMMON FILE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
165 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
157 R 51
131 CF0 31, 35, 40, 57, 104, 155
132 CFN 32, 37, 42, 155
104 ERR 56
11 ILC 71
20 LOC 74, 4
155 MZE 54, 55
160 ZLB 36
131 CBUF 25, 27, 46, 155
164 MASK 111
16 NAME 47, 52, 64, 2, 7
123 OPEN 50
1 READ 100
0 SETM 101
162 STAR 33
156 ZERO 66
14 CLOSE 6
117 GETCF 30
161 SAME. 41, 43, 60, 105
17 SAVED 53, 65, 3, 10
134 WORDS 67, 70, 72, 75, 155
121 COMFIL 44, 61, 106
113 GETCLS 24
24 LOWMEM 0, 24, 73, 77, 5, 21
127 NEXCOM 112
163 PRNTER 110
12 RDFILE 1
125 RDWAIT 63
115 SETCLS 26
0 NO ERROR IN ABOVE ASSEMBLY.
DRUM BCD 02/09/69 0651.2 5477 00000
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 1
PCC ON
LBL DRUM0000
PCC OFF
EXTERN SETBRK,GETMEM,GETCOM,GETLOC,WRFLX,WRFLXA
EXTERN SETMEM,SLEEP,CHNCOM
UNLIST
M CALL MACRO SUBR,ARGS,CRS
M ACORE MACRO NAME,BLK,N,LOC
TRANSFER VECTOR
00000 622563225142 SETBRK
00001 272563442544 GETMEM
00002 272563234644 GETCOM
00003 272563434623 GETLOC
00004 665126436760 WRFLX
00005 665126436721 WRFLXA
00006 622563442544 SETMEM
00007 624325254760 SLEEP
00010 233045234644 CHNCOM
00011 222324252360 BCDEC
00012 212346512560 ACORE
00013 234644434623 COMLOC
00014 272563634460 GETTM
00015 332644636060 .FMT
00016 305144314560 HRMIN
00017 624546467125 SNOOZE
00020 CALL SETBRK(XIT) SET INTERRUPT.
00022 0074 00 4 00001 TSX GETMEM,4
00023 0602 00 0 00710 SLW MEMBND SAVE CURRENT CORE SIZE.
00024 CALL GETCOM(1) GET SLEEP TIME, IF ANY.
00026 0602 00 0 00664 SLW SLPTIM ..
00027 0322 00 0 00627 ERA FENCE CHECK FOR NO ARGUMENT.
00030 -0100 00 0 00032 TNZ *+2 ..
00031 0600 00 0 00664 STZ SLPTIM IF SO, ZERO TIME.
00032 CALL $BCDEC(SLPTIM) CONVERT TO BINARY.
00034 0131 00 0 00000 XCA TO MQ.
00035 0200 00 0 01666 MPY =60 ..
00036 -0600 00 0 00664 STQ SLPTIM ..
00037 CALL GETCOM(0) GET NAME OF COMMAND.
00041 0322 00 0 01717 ERA =H Q. IF 'Q.', NO DRUM MAP.
00042 0602 00 0 00665 SLW MAP. ..
00043 ACORE (DUMP,,LPNT)
00055 0322 00 0 00630 ERA LDRMWD MAKE SURE WE ARE AT RIGHT PLACE IN DUMP.
00056 -0100 00 0 00623 TNZ BAD IF NOT, CAN'T GO ON.
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 2
00057 START SYN * BACK HERE AFTER WAKING UP.
00057 CALL WRFLX((*,,0)) TYPE A C.R.
00061 ACORE (DUMP,,LSCT),,,SCOUNT
00073 ACORE (OVRFLO,*),...,3,OVRFLO
00103 ACORE (AVQLEN,*),,,AVQLEN
00113 COMLOC NUSERS,,,NUSERS
00122 COMLOC MXUSRS,,,MXUSRS
00131 -0520 00 0 00665 NZT MAP. WANT DRUM MAP. Q
00132 0020 00 0 00266 TRA NOMAP NO, SKIP.
00133 COMLOC PROBN,...,N+1,PROBN
00142 COMLOC PROGN,...,N+1,PROGN
00151 COMLOC IOD,...,N+1,IOD
00160 ACORE (DUMP,,LSGCT),...,N+1,SEGCNT
00172 ACORE (DUMP,,LPRTL),...,N+1,PRTIAL
00204 COMLOC STATUS,...,N+1,STATUS
00213 COMLOC AWAKE,...,N+1,AWAKE
00222 COMLOC WATTIM,...,N+1,WATTIM
00231 COMLOC TOTTIM,,,TOTTIM
00240 COMLOC COMMND,...,N+1,COMMND
00247 ACORE (LOGIN,*),,,LOGIN
00257 COMLOC USER,,,USER
00266 NOMAP SYN * HERE TO SKIP COMLOCS FOR MAP.
00266 0500 00 0 00626 CLA SECTRS GET TOTAL SECTORS.
00267 0402 00 0 00722 SUB SCOUNT MINUS NUMBER LEFT.
00270 0131 00 0 00000 XCA NOW COMPUTE PERCENTAGE.
00271 0200 00 0 01667 MPY =100 ..
00272 -0754 00 0 00000 ZAC
00273 0221 00 0 00626 DVP SECTRS ..
00274 -0754 00 0 00000 ZAC
00275 0221 00 0 01667 DVP =100 GET UNITS.
00276 -0600 00 0 00666 STQ PCT1 ..
00277 0131 00 0 00000 XCA
00300 -0754 00 0 00000 ZAC
00301 0221 00 0 01664 DVP =10 GET TENTHS.
00302 -0600 00 0 00667 STQ PCT2 ..
00303 0601 00 0 00670 STO PCT3 HUNDRETHS.
00304 CALL $GETTM(DATE,TIME) GET DATE AND TIME NOW.
00307 0560 00 0 00672 LDQ TIME MAKE IT LOOK NICE.
00310 -0754 00 0 00000 ZAC
00311 -0763 00 0 00006 LGL 6 ..
00312 -0100 00 0 00316 TNZ *+4 ..
00313 -0500 00 0 01665 CAL =O57 ..
00314 -0765 00 0 00006 LGR 6
00315 -0600 00 0 00672 STQ TIME ..
00316 0560 00 0 00671 LDQ DATE DO DATE SAME WAY.
00317 -0754 00 0 00000 ZAC
00320 -0763 00 0 00006 LGL 6 ..
00321 -0100 00 0 00325 TNZ *+4 ..
00322 -0500 00 0 01665 CAL =O57 ..
00323 -0765 00 0 00006 LGR 6 ..
00324 -0600 00 0 00671 STQ DATE ..
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 3
00325 0074 00 4 00015 TSX $.FMT,4 GO FORMAT FIRST LINE.
00326 0 00020 1 00631 PZE DRUM,1,16
00327 0 00001 4 00666 PZE PCT1,4,1
00330 0 00001 1 00644 PZE DOT,1,1
00331 0 00001 4 00667 PZE PCT2,4,1
00332 0 00001 4 00670 PZE PCT3,4,1
00333 0 00012 1 00634 PZE AT,1,10
00334 0 00006 1 00672 PZE TIME,1,6
00335 0 00001 0 00335 PZE *,0,1
00336 0 00005 1 00671 PZE DATE,1,5
00337 0 00000 0 00000 PZE 0
00340 0602 00 0 00342 SLW *+2 POINTER TO OUTPUT.
00341 CALL WRFLX((-,,-))
00343 0500 00 0 00626 CLA SECTRS COMPUTE SECTORS USED.
00344 0402 00 0 00722 SUB SCOUNT ..
00345 0601 00 0 00673 STO SCTUSD ..
00346 0074 00 4 00015 TSX $.FMT,4 FORMAT THIS LINE.
00347 -0 00003 4 00673 MZE SCTUSD,4,3
00350 0 00020 1 00636 PZE USED,1,16
00351 -0 00003 4 00722 MZE SCOUNT,4,3
00352 0 00005 1 00641 PZE LEFT,1,5
00353 0 00000 0 00000 PZE 0
00354 0602 00 0 00356 SLW *+2 ..
00355 CALL WRFLX((-,,-))
00357 0500 00 0 00726 CLA AVQLEN GET AVG. QUEUE LENGTH.
00360 0241 00 0 01674 FDP =1E2
00361 0131 00 0 00000 XCA
00362 0300 00 0 01673 FAD =5E-1 MAKE SURE NON-ZERO.
00363 -0300 00 0 01677 UFA =O233000000000 CONVERT TO INTEGER.
00364 0322 00 0 01677 ERA =O233000000000 ..
00365 0131 00 0 00000 XCA
00366 -0754 00 0 00000 ZAC
00367 0221 00 0 01664 DVP =10 ..
00370 -0600 00 0 00674 STQ AVQL1 ..
00371 0601 00 0 00675 STO AVQL2 ..
00372 0074 00 4 00015 TSX $.FMT,4 GO FORMAT SECOND LINE.
00373 0 00017 1 00646 PZE QLEN,1,15
00374 -0 00002 4 00674 MZE AVQL1,4,2
00375 0 00001 1 00644 PZE DOT,1,1
00376 0 00001 4 00675 PZE AVQL2,4,1
00377 0 00003 1 00645 PZE CMA,1,3
00400 0 00006 1 00642 PZE USRS,1,6
00401 0 00001 0 00401 PZE *,0,1
00402 -0 00002 4 00727 MZE NUSERS,4,2
00403 0 00003 1 00645 PZE CMA,1,3
00404 0 00005 1 00643 PZE MAX,1,5
00405 -0 00002 4 00730 MZE MXUSRS,4,2
00406 0 00000 0 00000 PZE 0
00407 0602 00 0 00411 SLW *+2 ..
00410 CALL WRFLX((-,,-))
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 4
00412 -0520 00 0 00725 NZT OVRCNT ANYONE OVERFLOWING DRUM NOW. Q
00413 0020 00 0 00445 TRA NOBODY NO, SKIP.
00414 -0500 00 0 01672 CAL =O5000000 FIX UP COMMENT.
00415 0622 00 0 00435 STD OVRUSR ..
00416 -0500 00 0 00725 CAL OVRCNT IF ONLY ONE GUY,
00417 0402 00 0 01663 SUB =1 ..
00420 -0100 00 0 00423 TNZ *+3 ..
00421 -0500 00 0 01671 CAL =O4000000 PRINT 'USER' INSTEAD OF 'USERS'.
00422 0622 00 0 00435 STD OVRUSR ..
00423 CALL $HRMIN(OVRTIM) CONVERT TIME OF OVERFLOW.
00425 -0765 00 0 00036 LGR 30 MAKE IT LOOOK PRETTY.
00426 -0100 00 0 00430 TNZ *+2 ..
00427 -0500 00 0 01665 CAL =O57 ..
00430 -0765 00 0 00006 LGR 6
00431 -0600 00 0 00723 STQ OVRTIM ..
00432 0074 00 4 00015 TSX $.FMT,4 FORMAT OVERFLOW COMMENT.
00433 -0 00002 4 00725 MZE OVRCNT,4,2
00434 0 00001 0 00434 PZE *,0,1
00435 0 00005 1 00642 OVRUSR PZE USRS,1,5
00436 0 00025 1 00651 PZE OVER,1,21
00437 0 00006 1 00723 PZE OVRTIM,1,6
00440 0 00002 1 00645 PZE CMA,1,2
00441 0 00000 0 00000 PZE 0
00442 0602 00 0 00444 SLW *+2 ..
00443 CALL WRFLXA((-,,-))
00445 -0500 00 0 00724 NOBODY CAL OVRDLT GET CURRENT SWAP TIME.
00446 -0340 00 0 00706 LAS LASTDL COMPARE WITH PREVIOUS VALUE.
00447 0020 00 0 00451 TRA *+2 IF DIFFERENT, WANT TO PRINT.
00450 0020 00 0 00473 TRA C.R. IF SAME, SKIP.
00451 0602 00 0 00706 SLW LASTDL SAVE AS 'LAST' VALUE.
00452 0131 00 0 00000 XCA NOW TO MQ.
00453 -0754 00 0 00000 ZAC
00454 0221 00 0 01670 DVP =360 TENTHS OF MINUTES.
00455 -0754 00 0 00000 ZAC
00456 0221 00 0 01664 DVP =10 ..
00457 -0600 00 0 00676 STQ OVRDL1 ..
00460 0601 00 0 00677 STO OVRDL2 ..
00461 0074 00 4 00015 TSX $.FMT,4 GO FORMAT THIS TOO.
00462 0 00021 1 00655 PZE SWAP,1,17
00463 -0 00003 4 00676 MZE OVRDL1,4,3
00464 0 00001 1 00644 PZE DOT,1,1
00465 0 00001 4 00677 PZE OVRDL2,4,1
00466 0 00006 1 00660 PZE MINS.,1,6
00467 0 00000 0 00000 PZE 0
00470 0602 00 0 00472 SLW *+2
00471 CALL WRFLX((-,,-)) ..
00473 C.R. CALL WRFLX((*,,0)) TYPE A C.R.
00475 -0520 00 0 00665 NZT MAP. DO WE WANT DRUM MAP. Q
00476 0020 00 0 00611 TRA SNORE NO, GO SLEEP.
00477 TYPE 7(LINE USER WDCNT SEGCNT STATUS)
00501 -0500 00 0 01716 CAL =H BACK SET UP PROB-PROG FOR BACKGROUND.
00502 0602 00 0 00731 SLW PROBN
00503 -0500 00 0 01703 CAL =HGROUND ..
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 5
00504 0602 00 0 01014 SLW PROGN
00505 -0774 00 1 00000 AXC 0,1 START WITH USER 0.
00506 LOOP SYN * AND LOOP AROUND HERE.
00506 0520 00 1 00731 ZET PROBN,1 IS THIS USER LOGGED IN. Q
00507 0020 00 0 00521 TRA ISIN YES, SKIP.
00510 -0500 00 1 01562 CAL COMMND,1 IS HE LOGGING IN. Q
00511 -0340 00 0 01645 LAS LOGIN ..
00512 0020 00 0 00605 TRA ENDLP NO.
00513 0020 00 0 00515 TRA *+2 YES.
00514 0020 00 0 00605 TRA ENDLP NO.
00515 -0500 00 0 01721 CAL =H (LO SET UP DUMMY PROBN-PROGN.
00516 0602 00 1 00731 SLW PROBN,1
00517 -0500 00 0 01702 CAL =HGIN) ..
00520 0602 00 1 01014 SLW PROGN,1 ..
00521 0636 00 1 00700 ISIN SCA LINE,1 SAVE LINE NUMBER.
00522 -0500 00 1 01330 CAL STATUS,1 GET STATUS.
00523 0734 00 4 00000 PAX 0,4 PICK UP WORD FROM TABLE.
00524 -3 00000 4 00605 TXL ENDLP,4,0 SKIP IF USER DEAD
00525 -0500 00 4 00720 CAL STABLE,4 ..
00526 -0340 00 0 01715 LAS =H DRMT IS USER DORMANT. Q
00527 0020 00 0 00533 TRA *+4 NO, SKIP.
00530 -0520 00 1 01413 NZT AWAKE,1 IS HE SLEEPING. Q
00531 0020 00 0 00533 TRA *+2 ..
00532 -0500 00 0 01714 CAL =H ASLP IF SO, HE GETS SPECIAL NAME.
00533 0602 00 0 00701 SLW STATE SAVE STATUS.
00534 -0500 00 1 00731 CAL PROBN,1 GET PROB,
00535 0602 00 0 00702 SLW PROB ..
00536 -0500 00 1 01014 CAL PROGN,1 PROG,
00537 0602 00 0 00703 SLW PROG ..
00540 -0500 00 1 01077 CAL IOD,1 MEMORY BOUND.
00541 0771 00 0 00022 ARS 18 (SHIFT OUT OF DECREMENT)
00542 0602 00 0 00704 SLW WDCNT ..
00543 -0500 00 1 01162 CAL SEGCNT,1 GET SECTOR COUNT FOR USER.
00544 0602 00 0 00705 SLW SCTCNT
00545 -0500 00 0 01720 CAL =H IF NOT PARTIAL DUMP, BLANK.
00546 0520 00 1 01245 ZET PRTIAL,1 TEST FOR PARTIAL DUMP.
00547 -0500 00 0 01713 CAL =H* ELSE, PRINT '*'.
00550 0602 00 0 00707 SLW PART ..
00551 0535 00 4 01646 LAC USER,4 GET MY USER NUMBER, SO MAP WON'T
00552 -0634 00 4 00557 SXD ME,4 CLAIM I'M SWAPPING FROM DISK.
00553 1 77777 4 00554 TXI *+1,4,-1 ..
00554 -0634 00 4 00556 SXD NEXT,4 ..
00555 0560 00 0 00663 LDQ SCTPT SET UP FORMATTER
00556 -3 00000 1 00560 NEXT TXL *+2,1,- IF NOT ME, SKIP.
00557 -3 00000 1 00563 ME TXL *+4,1,- IF ME, SKIP NOW.
00560 -0100 00 0 00563 TNZ *+3 TO SAY 'DISK'
00561 -0520 00 0 00704 NZT WDCNT FOR USER SWAPPING FROM
00562 0560 00 0 00662 LDQ DSKPT DISK INSTEAD OF DRUM.
00563 -0600 00 0 00575 STQ DSKDRM ..
00564 0074 00 4 00015 TSX $.FMT,4 GO FORMAT LINE.
00565 0 00001 0 00565 PZE *,0,1
00566 0 00002 4 00700 PZE LINE,4,2
00567 0 00001 0 00567 PZE *,0,1
00570 0 00006 1 00702 PZE PROB,1,6
00571 0 00006 1 00703 PZE PROG,1,6
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 6
00572 0 00002 0 00572 PZE *,0,2
00573 0 00005 4 00704 PZE WDCNT,4,5
00574 0 00002 0 00574 PZE *,0,2
00575 0 00000 0 00000 DSKDRM PZE -,-,-
00576 0 00001 1 00707 PZE PART,1,1
00577 0 00001 0 00577 PZE *,0,1
00600 0 00006 1 00701 PZE STATE,1,6
00601 0 00000 0 00000 PZE 0
00602 0602 00 0 00604 SLW *+2
00603 CALL WRFLX((-,,-))
00605 1 77777 1 00606 ENDLP TXI *+1,1,-1 INCREMENT LINE COUNT.
00606 3 77715 1 00506 TXH LOOP,1,-N-1 IF NOT DONE, DO SOME MORE.
00607 CALL WRFLX((*,,0)) TYPE A C.R.
00611 -0520 00 0 00664 SNORE NZT SLPTIM ARE WE SLEEPING. Q
00612 0020 00 0 00621 TRA XIT NO, EXIT.
00613 -0500 00 0 00710 CAL MEMBND RESET MEMBND NOW THAT COMLOC AND
00614 0074 00 4 00006 TSX SETMEM,4 ACORE ARE DONE.
00615 CALL $SNOOZE(SLPTIM,=0)
00620 0020 00 0 00057 TRA START (YAWN) .. MORE WORK TO DO.
00621 XIT CALL CHNCOM(0) EXIT VIA CHNCOM.
00623 BAD TYPE 4(BAD DUMP MODULE ADDRESS)
00625 0020 00 0 00621 TRA XIT AND EXIT.
STORAGE AND CONSTANTS.
00062 N EQU 50 MUST BE CHANGED WHEN CTSS IS CHANGED******
001435 LPNT BOOL 1435 POINTER TO LAST WORD IN DUMP TABLE.
001103 LSCT BOOL 1103 REL. ADDRESS OF 'SCOUNT'
002052 LSGCT BOOL 2052 REL. ADDRESS OF 'SEGCNT'
001704 LPRTL BOOL 1704 REL. ADDRESS OF 'PRTIAL'
000246 NSECTS BOOL 246 NUMBER OF DRUM SECTORS.
00626 0 00000 0 00246 SECTRS PZE NSECTS ..
00627 -377777777777 FENCE OCT 777777777777
00630 +010006074000 LDRMWD OCT 010006074000 LAST WORD IN DRUM TABLE.
00631 303127306062 DRUM BCI 3,HIGH SPEED DRUM
00632 472525246024
00633 516444606060
00634 602664434360 AT BCI 2, FULL AT
00635 216360606060
00636 606225236346 USED BCI 3, SECTORS USED,
00637 516260646225
00640 247360606060
00641 604325266360 LEFT BCI 1, LEFT
00642 646225516213 USRS BCI 1,USERS=
00643 442167136060 MAX BCI 1,MAX=
00644 336060606060 DOT BCI 1,.
00645 736060606060 CMA BCI 1,,
00646 506425642560 QLEN BCI 3,QUEUE LENGTH =
00647 432545276330
00650 601360606060
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 7
00651 604665255126 OVER BCI 4, OVERFLOWING DRUM AT
00652 434666314527
00653 602451644460
00654 216360606060
00655 243162426062 SWAP BCI 3,DISK SWAP TIME =
00656 662147606331
00657 442560136060
00660 604431456233 MINS. BCI 1, MINS.
00661 243162426060 DISK BCI 1,DISK
00662 0 00004 1 00661 DSKPT PZE DISK,1,4
00663 0 00004 4 00705 SCTPT PZE SCTCNT,4,4
00664 0 00000 0 00000 SLPTIM PZE
00665 0 00000 0 00000 MAP. PZE
00666 0 00000 0 00000 PCT1 PZE
00667 0 00000 0 00000 PCT2 PZE
00670 0 00000 0 00000 PCT3 PZE
00671 0 00000 0 00000 DATE PZE
00672 0 00000 0 00000 TIME PZE
00673 0 00000 0 00000 SCTUSD PZE
00674 0 00000 0 00000 AVQL1 PZE
00675 0 00000 0 00000 AVQL2 PZE
00676 0 00000 0 00000 OVRDL1 PZE
00677 0 00000 0 00000 OVRDL2 PZE
00700 0 00000 0 00000 LINE PZE
00701 0 00000 0 00000 STATE PZE
00702 0 00000 0 00000 PROB PZE
00703 0 00000 0 00000 PROG PZE
00704 0 00000 0 00000 WDCNT PZE
00705 0 00000 0 00000 SCTCNT PZE
00706 0 00000 0 00000 LASTDL PZE
00707 0 00000 0 00000 PART PZE
00710 0 00000 0 00000 MEMBND PZE
00711 602622666360 BCI 1, FBWT
00712 602643666360 BCI 1, FLWT
00713 604640666360 BCI 1, O-WT
00714 603140666360 BCI 1, I-WT
00715 602346442460 BCI 1, COMD
00716 606651422760 BCI 1, WRKG
00717 602451446360 BCI 1, DRMT
00720 602425212460 STABLE BCI 1, DEAD
00721 RMT *
00723 OVRTIM SYN OVRFLO
00724 OVRDLT SYN OVRFLO+1
00725 OVRCNT SYN OVRFLO+2
END
LITERALS
01662 000000000000
01663 000000000001
01664 000000000012
01665 000000000057
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 8
01666 000000000074
01667 000000000144
01670 000000000550
01671 000004000000
01672 000005000000
01673 200400000000
01674 207620000000
01675 216550432545
01676 216621422560
01677 233000000000
01700 234644444524
01701 246444476060
01702 273145346060
01703 275146644524
01704 314624606060
01705 434627314560
01706 446764625162
01707 456462255162
01710 466551264346
01711 475146224560
01712 475146274560
01713 546060606060
01714 602162434760
01715 602451446360
01716 606022212342
01717 606060605033
01720 606060606060
01721 606060744346
01722 626321636462
01723 634663633144
01724 646225516060
01725 662163633144
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 1
POST PROCESSOR ASSEMBLY DATA
1726 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
62 N 140, 147, 156, 170, 202, 211, 220, 227, 245, 606, 626, 731, 1014, 1077, 1162, 1245, 1330
1413, 1476, 1562
634 AT 333
557 ME 552
623 BAD 56
645 CMA 377, 403, 440
644 DOT 330, 375, 464
1077 IOD 157, 540
1 ..A 21, 25, 33, 40, 60, 305, 306, 342, 356, 411, 424, 444, 472, 474, 604, 610, 616
617, 622
0 ..D 21, 25, 33, 40, 60, 305, 306, 342, 356, 411, 424, 444, 472, 474, 604, 610, 616
617, 622
0 ..T 21, 25, 33, 40, 60, 305, 306, 342, 356, 411, 424, 444, 472, 474, 604, 610, 616
617, 622
643 MAX 404
621 XIT 21, 612, 625
473 C.R. 450
671 DATE 305, 316, 324, 336
661 DISK 662
631 DRUM 326
521 ISIN 507
15 .FMT 325, 346, 372, 432, 461, 564
0 ..OP 21, 25, 33, 40, 60, 305, 306, 342, 356, 411, 424, 444, 472, 474, 604, 610, 616
617, 622
641 LEFT 352
700 LINE 521, 566
506 LOOP 506, 606
1435 LPNT 46, 626
1103 LSCT 64, 626
665 MAP. 42, 131, 475
556 NEXT 554
651 OVER 436
707 PART 550, 576
666 PCT1 276, 327
667 PCT2 302, 331
670 PCT3 303, 332
702 PROB 535, 570
703 PROG 537, 571
646 QLEN 373
655 SWAP 462
672 TIME 306, 307, 315, 334
636 USED 350
1646 USER 265, 551
642 USRS 400, 435
12 ACORE 43, 61, 73, 103, 160, 172, 247
674 AVQL1 370, 374
675 AVQL2 371, 376
1413 AWAKE 221, 530
11 BCDEC 32
662 DSKPT 562
605 ENDLP 512, 514, 524
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 2
POST PROCESSOR ASSEMBLY DATA
627 FENCE 27
14 GETTM 304
16 HRMIN 423
721 ..007 54
43 ..008 51
61 ..010 67
73 ..011 77
103 ..012 107
113 ..013 116
122 ..014 125
133 ..015 136
142 ..016 145
151 ..017 154
160 ..018 166
172 ..019 200
204 ..020 207
213 ..021 216
222 ..022 225
231 ..023 234
240 ..024 243
247 ..025 253
257 ..026 262
1647 ..035 500
1656 ..041 624
1 ..PZE 21, 25, 33, 40, 60, 305, 342, 356, 411, 424, 444, 472, 474, 604, 610, 616, 622
1645 LOGIN 256, 511
1704 LPRTL 175, 626
2052 LSGCT 163, 626
660 MINS. 466
266 NOMAP 132, 266
731 PROBN 141, 502, 506, 516, 534
1014 PROGN 150, 504, 520, 536
663 SCTPT 555
7 SLEEP
611 SNORE 476
57 START 57, 620
701 STATE 533, 600
704 WDCNT 542, 561, 573
4 WRFLX 57, 341, 355, 410, 471, 473, 477, 603, 607, 623
726 AVQLEN 112, 357
10 CHNCOM 621
13 COMLOC 113, 122, 133, 142, 151, 204, 213, 222, 231, 240, 257
1562 COMMND 246, 510
575 DSKDRM 563
2 GETCOM 24, 37
3 GETLOC 52, 70, 100, 110, 117, 126, 137, 146, 155, 167, 201, 210, 217, 226, 235, 244, 254
263
1 GETMEM 22
706 LASTDL 446, 451
630 LDRMWD 55
710 MEMBND 23, 613
730 MXUSRS 130, 405
445 NOBODY 413
246 NSECTS 626
727 NUSERS 121, 402
1 M1416-3845 PETER R. BOS 2/02/68 -- HIGH SPEED DRUM STATISTICS. 01/08/69 1749.3 PAGE 3
POST PROCESSOR ASSEMBLY DATA
725 OVRCNT 412, 416, 433, 1662
676 OVRDL1 457, 463
677 OVRDL2 460, 465
724 OVRDLT 445, 1662
723 OVRFLO 102, 1662
723 OVRTIM 424, 431, 437, 1662
435 OVRUSR 415, 422
1245 PRTIAL 203, 546
722 SCOUNT 72, 267, 344, 351
705 SCTCNT 544, 663
673 SCTUSD 345, 347
626 SECTRS 266, 273, 343
1162 SEGCNT 171, 543
0 SETBRK 20
6 SETMEM 614
664 SLPTIM 26, 31, 33, 36, 611, 616
17 SNOOZE 615
720 STABLE 525
1330 STATUS 212, 522
1561 TOTTIM 237
1476 WATTIM 230
5 WRFLXA 443
0 NO ERROR IN ABOVE ASSEMBLY.
FAPCOM BCD 09/20/68 0219.9 6116 00000
1 PAGE 1
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
00002 262147234644 FAPCOM
00003 0074 00 4 00000 TSX $GETMEM,4
00004 0400 00 0 00011 ADD =2160
00005 0074 00 4 00001 TSX $SETMEM,4
00006 0621 00 0 00010 STA CALL
00007 0074 00 4 00002 TSX $FAPCOM,4
00010 3 00000 0 00000 CALL PTH
END
LITERALS
00011 000000004160
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
12 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
10 CALL 6
2 FAPCOM 7
0 GETMEM 3
1 SETMEM 5
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE FAPCOM MAD 02/13/68 0145.9
-
FAPCOM LM00001
LM00002
ROUTINE FOR INSERTING COMENTS IN FAP PROGRAMS LM00003
ALL PROGRAMS MUST BE 'XPAND'ED LM00004
NEEDS FCMAIN FAP AND REDWRT FAP LM00005
LM00006
BY MICHAEL R COMER 7/18/67 LM00007
LM00008
EXTERNAL FUNCTION (B) *001 LM00009
DIMENSION L(8),F(13) *002 LM00010
NORMAL MODE IS INTEGER *003 LM00011
BOOLEAN QUITSW,PRNTSW,FULLSW *004 LM00012
VECTOR VALUES QUITSW = 0B *005 LM00013
VECTOR VALUES PRNTSW = 1B *006 LM00014
VECTOR VALUES FULLSW = 0B *007 LM00015
VECTOR VALUES FENCE = 777777777777K *008 LM00016
VECTOR VALUES T = $GAZABE$ *009 LM00017
ENTRY TO FAPCOM. *010 LM00018
SETBRK.(TIXE) *011 LM00019
COMARG.(1,N1) *012 LM00020
COMARG.(2,N2) *013 LM00021
COMARG.(3,N3) *014 LM00022
COMARG.(4,N4) *015 LM00023
WHENEVER N1 .E. FENCE, ERR.(5) *016 LM00024
WHENEVER N2 .E. FENCE, TRANSFER TO SKIP1 *017 LM00025
WHENEVER N3 .E. FENCE, TRANSFER TO SKIP2 *018 LM00026
WHENEVER N4 .E. FENCE, N4 = N2 *019 LM00027
TRANSFER TO SKIP3 *020 LM00028
SKIP1 N2 = $ FAP$ *021 LM00029
SKIP2 N3 = N1 *022 LM00030
N4 = N2 *023 LM00031
SKIP3 BFOPEN.($R$,N1,N2,B(431),B(863),-0,IERR) *024 LM00032
BFOPEN.($W$,T,T,B(1295),B(1727),B(2159),IERR) *025 LM00033
BFREAD.(N1,N2,F(13)...14,EOF,F,IERR) *026 LM00034
WHENEVER F(13).A.777777K6.E.777777K6,ERR.(6) *027 LM00035
TRANSFER TO PRINT *028 LM00036
LOOP BFREAD.(N1,N2,F(13)...14,EOF,F,IERR) *029 LM00037
WHENEVER QUITSW,TRANSFER TO SKIP *030 LM00038
PRINT WHENEVER PRNTSW,WRTA.(F(13)...5) *031 LM00039
WHENEVER FULLSW,WRT.(F(8)...9) *032 LM00040
RED.(L(8)...7) *033 LM00041
WHENEVER L(8).E.$ $ *034 LM00042
TRANSFER TO SKIP *035 LM00043
OR WHENEVER L(8) .E.$.KILL$ *036 LM00044
L(8) = $ $ *037 LM00045
OR WHENEVER L(8).E.$.PRINT$ *038 LM00046
PRNTSW = 1B *039 LM00047
FULLSW = 0B *040 LM00048
TRANSFER TO PRINT *041 LM00049
OR WHENEVER L(8).E.$.OFF$ *042 LM00050
PRNTSW = 0B *043 LM00051
FULLSW = 0B *044 LM00052
TRANSFER TO PRINT *045 LM00053
OR WHENEVER L(8) .E. $.FULL$ *046 LM00054
PRNTSW = 1B *047 LM00055
FULLSW = 1B *048 LM00056
TRANSFER TO PRINT *049 LM00057
OR WHENEVER L(8).E.$.FILE$ *050 LM00058
PRNTSW = 0B *051 LM00059
FULLSW = 0B *052 LM00060
QUITSW = 1B *053 LM00061
TRANSFER TO SKIP *054 LM00062
END OF CONDITIONAL *055 LM00063
F(9) = (F(9).A.7777777777K2).V.$00000$ *056 LM00064
THROUGH TNSFER,FOR I = 8,-1, I .LE. 0 *057 LM00065
TNSFER F(I) = L(I) *058 LM00066
SKIP BFWRIT.(T,T,F(13)...14,IERR) *059 LM00067
TRANSFER TO LOOP *060 LM00068
EOF BFCLOS.(N1,N2,IERR) *061 LM00069
BFCLOS.(T,T,IERR) *062 LM00070
FSTATE.(N3,N4,F,OK) *063 LM00071
DELFIL.(N3,N4) *064 LM00072
OK CHFILE.(T,T,0,N3,N4) *065 LM00073
TIXE CHNCOM.(0) *066 LM00074
IERR CODE = BFCODE.(0) *067 LM00075
ERR.(CODE) *068 LM00076
INTERNAL FUNCTION (X) *069 LM00077
ENTRY TO ERR. *070 LM00078
Y = X.V.$ERROR0$ *071 LM00079
WRT.(Y...1) *072 LM00080
DORMNT. *073 LM00081
END OF FUNCTION *074 LM00082
END OF FUNCTION *075 LM00083
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00514 TRANSFER VECTOR LENGTH 00020 PROGRAM BEGINS 00130
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
FAPCOM 00131 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
CODE 00034 1 IERR 00023 4 N2 00070 1 PRNTSW 00073 A 2 SKIP 00032 4
EOF 00022 4 I 00055 1 N3 00071 1 QUITSW 00074 A 2 TIXE 00033 4
FENCE 00035 A 1 LOOP 00024 4 N4 00072 1 SKIP1 00027 4 TNSFER 00021 4
F 00053 A 1 L 00066 A 1 OK 00025 4 SKIP2 00030 4 T 00075 A 1
FULLSW 00054 A 2 N1 00067 1 PRINT 00026 4 SKIP3 00031 4 Y 00076 1
0FUNCTION DICTIONARY
BFCLOS 00000 1 BFCODE 00001 1 BFOPEN 00002 1 BFREAD 00003 1 BFWRIT 00004 1
CHFILE 00005 1 CHNCOM 00006 1 COMARG 00007 1 DELFIL 00010 1 DORMNT 00011 1
EXIT 00012 1 FSTATE 00013 1 RED 00014 1 SETBRK 00015 1 WRTA 00016 1
WRT 00017 1 ERR 00020 1
0ABSOLUTE CONSTANTS
00114 +255151465100 00107 +000000000010 00112 +000000000060 00127 -377777777700 00115 +332631432560
00116 +332664434360 00120 +334626266060 00121 +334751314563 00117 +334231434360 00124 -206060606060
00106 +000000000007 00110 +000000000011 00105 +000000000006 00126 -377777000000 00111 +000000000016
00125 -266060606060 00122 -116060606060 00077 +000000000000 00123 -206060262147 00104 +000000000005
00103 +000000000004 00102 +000000000003 00101 +000000000002 00100 +000000000001 00113 +233000000000
0STATEMENT DICTIONARY
00022 TXL -300405000401 00023 TXL -300434000431 00024 TXL -300253000244 00025 TXL -300427000421
00026 TXL -300262000256 00027 TXL -300176000174 00030 TXL -300200000176 00031 TXL -300214000202
00032 TXL -300400000373 00033 TXL -300431000427
0PROGRAM
EXTERNAL FUNCTION (B) 001 LM00009
D'N L(8),F(13) 002 LM00010
N'S INTEGER 003 LM00011
BOOLEAN QUITSW,PRNTSW,FULLSW 004 LM00012
V'S QUITSW = 0B 005 LM00013
00074 +0 00000 0 00000
V'S PRNTSW = 1B 006 LM00014
00073 +0 00000 0 00001
V'S FULLSW = 0B 007 LM00015
00054 +0 00000 0 00000
V'S FENCE = 777777777777K 008 LM00016
00035 -3 77777 7 77777
V'S T = $GAZABE$ 009 LM00017
00075 +2 72171 2 12225
E'O FAPCOM. 010 LM00018
00130 TRA +0 02000 0 00133 00131 SXA +0 63400 2 00466 00132 TSX +0 07400 2 00466
SETBRK.(TIXE) 011 LM00019
00133 TSX +0 07400 4 00015 00134 TXH +3 00000 0 00033
COMARG.(1,N1) 012 LM00020
00135 TSX +0 07400 4 00007 00136 TXH +3 00000 0 00100 00137 TXH +3 00000 0 00067
COMARG.(2,N2) 013 LM00021
00140 TSX +0 07400 4 00007 00141 TXH +3 00000 0 00101 00142 TXH +3 00000 0 00070
COMARG.(3,N3) 014 LM00022
00143 TSX +0 07400 4 00007 00144 TXH +3 00000 0 00102 00145 TXH +3 00000 0 00071
COMARG.(4,N4) 015 LM00023
00146 TSX +0 07400 4 00007 00147 TXH +3 00000 0 00103 00150 TXH +3 00000 0 00072
W'R N1 .E. FENCE, ERR.(5) 016 LM00024
00151 CLA +0 50000 0 00067 00152 SUB +0 40200 0 00035 00153 TNZ -0 10000 0 00156 00154 TSX +0 07400 4 00020
00155 TXH +3 00000 0 00104
W'R N2 .E. FENCE, T'O SKIP1 017 LM00025
00156 CLA +0 50000 0 00070 00157 SUB +0 40200 0 00035 00160 TNZ -0 10000 0 00162 00161 TRA +0 02000 0 00027
W'R N3 .E. FENCE, T'O SKIP2 018 LM00026
00162 CLA +0 50000 0 00071 00163 SUB +0 40200 0 00035 00164 TNZ -0 10000 0 00166 00165 TRA +0 02000 0 00030
W'R N4 .E. FENCE, N4 = N2 019 LM00027
00166 CLA +0 50000 0 00072 00167 SUB +0 40200 0 00035 00170 TNZ -0 10000 0 00173 00171 CLA +0 50000 0 00070
00172 STO +0 60100 0 00072
T'O SKIP3 020 LM00028
00173 TRA +0 02000 0 00031
SKIP1 N2 = $ FAP$ 021 LM00029
00174 CLA +0 50000 0 00123 00175 STO +0 60100 0 00070
SKIP2 N3 = N1 022 LM00030
00176 CLA +0 50000 0 00067 00177 STO +0 60100 0 00071
N4 = N2 023 LM00031
00200 CLA +0 50000 0 00070 00201 STO +0 60100 0 00072
SKIP3 BFOPEN.($R$,N1,N2,B(431),B(863),-0,IERR) 024 LM00032
00202 CLS +0 50200 0 00077 00203 STO +0 60100 0 00511 00204 TSX +0 07400 4 00002 00205 TXH +3 00000 0 00122
00206 TXH +3 00000 0 00067 00207 TXH +3 00000 0 00070 00210 TXH +3 00000 0 00633 00211 TXH +3 00000 0 01513
00212 TXH +3 00000 0 00511 00213 TXH +3 00000 0 00023
BFOPEN.($W$,T,T,B(1295),B(1727),B(2159),IERR) 025 LM00033
00214 TSX +0 07400 4 00002 00215 TXH +3 00000 0 00125 00216 TXH +3 00000 0 00075 00217 TXH +3 00000 0 00075
00220 TXH +3 00000 0 02373 00221 TXH +3 00000 0 03253 00222 TXH +3 00000 0 04133 00223 TXH +3 00000 0 00023
BFREAD.(N1,N2,F(13)...14,EOF,F,IERR) 026 LM00034
00224 TSX +0 07400 4 00003 00225 TXH +3 00000 0 00067 00226 TXH +3 00000 0 00070 00227 TIX +2 00111 0 00036
00230 TXH +3 00000 0 00022 00231 TXH +3 00000 0 00053 00232 TXH +3 00000 0 00023
W'R F(13).A.777777K6.E.777777K6,ERR.(6) 027 LM00035
00233 CAL -0 50000 0 00036 00234 ANA -0 32000 0 00126 00235 SLW +0 60200 0 00511 00236 CLA +0 50000 0 00511
00237 SUB +0 40200 0 00126 00240 TNZ -0 10000 0 00243 00241 TSX +0 07400 4 00020 00242 TXH +3 00000 0 00105
T'O PRINT 028 LM00036
00243 TRA +0 02000 0 00026
LOOP BFREAD.(N1,N2,F(13)...14,EOF,F,IERR) 029 LM00037
00244 TSX +0 07400 4 00003 00245 TXH +3 00000 0 00067 00246 TXH +3 00000 0 00070 00247 TIX +2 00111 0 00036
00250 TXH +3 00000 0 00022 00251 TXH +3 00000 0 00053 00252 TXH +3 00000 0 00023
W'R QUITSW,T'O SKIP 030 LM00038
00253 NZT -0 52000 0 00074 00254 TRA +0 02000 0 00256 00255 TRA +0 02000 0 00032
PRINT W'R PRNTSW,WRTA.(F(13)...5) 031 LM00039
00256 NZT -0 52000 0 00073 00257 TRA +0 02000 0 00262 00260 TSX +0 07400 4 00016 00261 TIX +2 00104 0 00036
W'R FULLSW,WRT.(F(8)...9) 032 LM00040
00262 NZT -0 52000 0 00054 00263 TRA +0 02000 0 00266 00264 TSX +0 07400 4 00017 00265 TIX +2 00110 0 00043
RED.(L(8)...7) 033 LM00041
00266 TSX +0 07400 4 00014 00267 TIX +2 00106 0 00056
W'R L(8).E.$ $ 034 LM00042
00270 CLA +0 50000 0 00056 00271 SUB +0 40200 0 00124 00272 TNZ -0 10000 0 00275
T'O SKIP 035 LM00043
00273 TRA +0 02000 0 00032
O'R L(8) .E.$.KILL$ 036 LM00044
00274 TRA +0 02000 0 00350 00275 CLA +0 50000 0 00056 00276 SUB +0 40200 0 00117 00277 TNZ -0 10000 0 00303
L(8) = $ $ 037 LM00045
00300 CLA +0 50000 0 00124 00301 STO +0 60100 0 00056
O'R L(8).E.$.PRINT$ 038 LM00046
00302 TRA +0 02000 0 00350 00303 CLA +0 50000 0 00056 00304 SUB +0 40200 0 00121 00305 TNZ -0 10000 0 00314
PRNTSW = 1B 039 LM00047
00306 CLA +0 50000 0 00100 00307 STO +0 60100 0 00073
FULLSW = 0B 040 LM00048
00310 CLA +0 50000 0 00077 00311 STO +0 60100 0 00054
T'O PRINT 041 LM00049
00312 TRA +0 02000 0 00026
O'R L(8).E.$.OFF$ 042 LM00050
00313 TRA +0 02000 0 00350 00314 CLA +0 50000 0 00056 00315 SUB +0 40200 0 00120 00316 TNZ -0 10000 0 00325
PRNTSW = 0B 043 LM00051
00317 CLA +0 50000 0 00077 00320 STO +0 60100 0 00073
FULLSW = 0B 044 LM00052
00321 CLA +0 50000 0 00077 00322 STO +0 60100 0 00054
T'O PRINT 045 LM00053
00323 TRA +0 02000 0 00026
O'R L(8) .E. $.FULL$ 046 LM00054
00324 TRA +0 02000 0 00350 00325 CLA +0 50000 0 00056 00326 SUB +0 40200 0 00116 00327 TNZ -0 10000 0 00336
PRNTSW = 1B 047 LM00055
00330 CLA +0 50000 0 00100 00331 STO +0 60100 0 00073
FULLSW = 1B 048 LM00056
00332 CLA +0 50000 0 00100 00333 STO +0 60100 0 00054
T'O PRINT 049 LM00057
00334 TRA +0 02000 0 00026
O'R L(8).E.$.FILE$ 050 LM00058
00335 TRA +0 02000 0 00350 00336 CLA +0 50000 0 00056 00337 SUB +0 40200 0 00115 00340 TNZ -0 10000 0 00350
PRNTSW = 0B 051 LM00059
00341 CLA +0 50000 0 00077 00342 STO +0 60100 0 00073
FULLSW = 0B 052 LM00060
00343 CLA +0 50000 0 00077 00344 STO +0 60100 0 00054
QUITSW = 1B 053 LM00061
00345 CLA +0 50000 0 00100 00346 STO +0 60100 0 00074
T'O SKIP 054 LM00062
00347 TRA +0 02000 0 00032
E'L 055 LM00063
F(9) = (F(9).A.7777777777K2).V.$00000$ 056 LM00064
00350 CAL -0 50000 0 00042 00351 ANA -0 32000 0 00127 00352 ORA -0 50100 0 00112 00353 SLW +0 60200 0 00042
T'H TNSFER,FOR I = 8,-1, I .LE. 0 057 LM00065
00354 CLA +0 50000 0 00107 00355 STO +0 60100 0 00055 00356 TRA +0 02000 0 00362 00357 CLS +0 50200 0 00100
00360 ADD +0 40000 0 00055 00361 STO +0 60100 0 00055 00362 CLA +0 50000 0 00055 00363 SUB +0 40200 0 00077
00364 TZE +0 10000 0 00373 00365 TMI -0 12000 0 00373
TNSFER F(I) = L(I) 058 LM00066
00366 LXA +0 53400 1 00055 00367 LXA +0 53400 2 00055 00370 CLA +0 50000 2 00066 00371 STO +0 60100 1 00053
00372 TRA +0 02000 0 00357
SKIP BFWRIT.(T,T,F(13)...14,IERR) 059 LM00067
00373 TSX +0 07400 4 00004 00374 TXH +3 00000 0 00075 00375 TXH +3 00000 0 00075 00376 TIX +2 00111 0 00036
00377 TXH +3 00000 0 00023
T'O LOOP 060 LM00068
00400 TRA +0 02000 0 00024
EOF BFCLOS.(N1,N2,IERR) 061 LM00069
00401 TSX +0 07400 4 00000 00402 TXH +3 00000 0 00067 00403 TXH +3 00000 0 00070 00404 TXH +3 00000 0 00023
BFCLOS.(T,T,IERR) 062 LM00070
00405 TSX +0 07400 4 00000 00406 TXH +3 00000 0 00075 00407 TXH +3 00000 0 00075 00410 TXH +3 00000 0 00023
FSTATE.(N3,N4,F,OK) 063 LM00071
00411 TSX +0 07400 4 00013 00412 TXH +3 00000 0 00071 00413 TXH +3 00000 0 00072 00414 TXH +3 00000 0 00053
00415 TXH +3 00000 0 00025
DELFIL.(N3,N4) 064 LM00072
00416 TSX +0 07400 4 00010 00417 TXH +3 00000 0 00071 00420 TXH +3 00000 0 00072
OK CHFILE.(T,T,0,N3,N4) 065 LM00073
00421 TSX +0 07400 4 00005 00422 TXH +3 00000 0 00075 00423 TXH +3 00000 0 00075 00424 TXH +3 00000 0 00077
00425 TXH +3 00000 0 00071 00426 TXH +3 00000 0 00072
TIXE CHNCOM.(0) 066 LM00074
00427 TSX +0 07400 4 00006 00430 TXH +3 00000 0 00077
IERR CODE = BFCODE.(0) 067 LM00075
00431 TSX +0 07400 4 00001 00432 TXH +3 00000 0 00077 00433 STO +0 60100 0 00034
ERR.(CODE) 068 LM00076
00434 TSX +0 07400 4 00020 00435 TXH +3 00000 0 00034
INTERNAL FUNCTION (X) 069 LM00077
00436 TRA +0 02000 0 00463
E'O ERR. 070 LM00078
00437 TRA +0 02000 0 00442 00020 TTR +0 02100 0 00440 00440 SXA +0 63400 2 00451 00441 TSX +0 07400 2 00451
Y = X.V.$ERROR0$ 071 LM00079
00442 CAL -0 50000 0 00024 00443 ORA -0 50100 0 00114 00444 SLW +0 60200 0 00076
WRT.(Y...1) 072 LM00080
00445 TSX +0 07400 4 00017 00446 TIX +2 00100 0 00076
DORMNT. 073 LM00081
00447 TSX +0 07400 4 00011
END OF FUNCTION 074 LM00082
00450 TSX +0 07400 4 00012 00451 TXH +3 00000 0 00000 00452 SXD -0 63400 1 00451 00453 SXA +0 63400 4 00457
00454 CLA +0 50000 4 00001 00455 STA +0 62100 0 00442 00456 TRA +0 02000 2 00001 00457 AXT +0 77400 4 00000
00460 LXA +0 53400 2 00451 00461 LXD -0 53400 1 00451 00462 TRA +0 02000 4 00001
END OF FUNCTION 075 LM00083
00463 TSX +0 07400 4 00012 00464 PZE +0 00000 0 00657 00465 PZE +0 00000 0 00660 00466 TXH +3 00000 0 00000
00467 SXD -0 63400 1 00466 00470 SXA +0 63400 4 00505 00471 CLA +0 50000 4 00001 00472 SUB +0 40200 0 00464
00473 STO +0 60100 0 00210 00474 SUB +0 40200 0 00465 00475 STO +0 60100 0 00211 00476 SUB +0 40200 0 00465
00477 STO +0 60100 0 00220 00500 SUB +0 40200 0 00465 00501 STO +0 60100 0 00221 00502 SUB +0 40200 0 00465
00503 STO +0 60100 0 00222 00504 TRA +0 02000 2 00001 00505 AXT +0 77400 4 00000 00506 LXA +0 53400 2 00466
00507 LXD -0 53400 1 00466 00510 TRA +0 02000 4 00001
1 PAGE 1
00005 ENTRY RED
00020 ENTRY WRT
00033 ENTRY WRTA
TRANSFER VECTOR
00000 512426436760 RDFLX
00001 665126436760 WRFLX
00002 665126436721 WRFLXA
LINKAGE DIRECTOR
00003 000000000000
00004 512524606060
00005 0634 00 4 00016 RED SXA RX4,4
00006 0500 00 4 00001 CLA 1,4
00007 0621 00 0 00015 STA ARG
00010 0771 00 0 00022 ARS 18
00011 0621 00 0 00012 STA GET
00012 0534 00 4 00000 GET LXA --,4
00013 -0634 00 4 00015 SXD ARG,4
00014 0074 00 4 00000 TSX $RDFLX,4
00015 0 00000 0 00000 ARG PZE
00016 0774 00 4 00000 RX4 AXT ,4
00017 0020 00 4 00002 TRA 2,4
*
00020 0634 00 4 00031 WRT SXA WX4,4
00021 0500 00 4 00001 CLA 1,4
00022 0621 00 0 00030 STA WARG
00023 0771 00 0 00022 ARS 18
00024 0621 00 0 00025 STA WGET
00025 0534 00 4 00000 WGET LXA --,4
00026 -0634 00 4 00030 SXD WARG,4
00027 0074 00 4 00001 TSX $WRFLX,4
00030 0 00000 0 00000 WARG PZE
00031 0774 00 4 00000 WX4 AXT ,4
00032 0020 00 4 00002 TRA 2,4
*
00033 0634 00 4 00044 WRTA SXA AX4,4
00034 0500 00 4 00001 CLA 1,4
00035 0621 00 0 00043 STA AARG
00036 0771 00 0 00022 ARS 18
00037 0621 00 0 00040 STA AGET
00040 0534 00 4 00000 AGET LXA --,4
00041 -0634 00 4 00043 SXD AARG,4
00042 0074 00 4 00002 TSX $WRFLXA,4
00043 0 00000 0 00000 AARG PZE
00044 0774 00 4 00000 AX4 AXT ,4
00045 0020 00 4 00001 TRA 1,4
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
46 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
15 ARG 7, 13
44 AX4 33
12 GET 11
5 RED 0
16 RX4 5
20 WRT 0
31 WX4 20
43 AARG 35, 41
40 AGET 37
30 WARG 22, 26
25 WGET 24
33 WRTA 0
0 RDFLX 14
1 WRFLX 27
2 WRFLXA 42
0 NO ERROR IN ABOVE ASSEMBLY.
KEYS BCD 09/20/68 0219.9 1849 00000
1 M1416-3845 PETER R. BOS -- TEST SENSE SWITCHES AND CONSOLE KEYS. PAGE 1
PCC ON
LBL KEYS0000
PCC OFF
UNLIST
M CALL MACRO SUBR,ARGS
M TSX MACRO SUBR,T DEFINES TIA IF SUBR UNDEF.
*
* USAGE IS .. RESUME KEYS -N-
* WHERE N IS TIME TO SLEEP IN MINUTES
* BEFORE REPEATING.
*
TRANSFER VECTOR
00000 222324252360 BCDEC
00001 272563634460 GETTM
00002 CALL GETCOM(1) GET SLEEP TIME IF ANY.
00002 TSX GETCOM,4 .003
00003 3 00000 0 00001 PAR 1 .003
00004 0602 00 0 00121 SLW SLPTIM SAVE.
00005 -0340 00 0 00120 LAS FENCE TEST FOR FENCE.
00006 0020 00 0 00010 TRA *+2 NO, SKIP.
00007 0600 00 0 00121 STZ SLPTIM YES, CLEAR IT.
00010 CALL $BCDEC(SLPTIM) CONVERT TO DECIMAL.
00010 TSX $BCDEC,4 .003
00011 3 00000 0 00121 PAR SLPTIM .003
00012 0131 00 0 00000 XCA TO MQ.
00013 0200 00 0 00131 MPY =60 MAKE IT SECONDS.
00014 -0600 00 0 00121 STQ SLPTIM AND PUT AWAY.
00015 CALL WRFLX((*,,0)) TYPE A C.R.
00015 TSX WRFLX,4 .003
00016 3 00000 0 00016 PAR *,,0 .003
00017 TSX SETFUL,4 TO 12-BIT MODE.
00020 CALL WRFLXA((HDR,,14)) TYPE FIRST 14 WORDS OF HEADER.
00020 TSX WRFLXA,4 .003
00021 3 00016 0 00061 PAR HDR,,14 .003
00022 CALL WRFLX((HDR+14,,LHDR-14)) TYPE THE REST.
00022 TSX WRFLX,4 .003
00023 3 00004 0 00077 PAR HDR+14,,LHDR-14 .003
00024 0774 00 1 00006 WORK AXT 6,1 6 SENSE SWITCHES.
00025 -0500 00 0 00135 CAL =O575760464560 PRESET TO 'ON'.
00026 0760 00 1 00167 SWT 7,1 TEST A SENSE SWITCH.
00027 -0500 00 0 00134 CAL =O575746262660 IF SWITCH OFF, SAY SO.
00030 0602 00 1 00115 SLW SS+6,1 SAVE CONDITION OF SWITCH.
00031 2 00001 1 00025 TIX *-4,1,1 LOOP TILL DONE.
00032 0760 00 0 00004 ENK NOW GET CONSOLE KEYS.
00033 0774 00 1 00002 AXT 2,1 CONVERT TO SPREAD OCTAL.
00034 0774 00 4 00006 AXT 6,4 ..
1 M1416-3845 PETER R. BOS -- TEST SENSE SWITCHES AND CONSOLE KEYS. PAGE 2
00035 0767 00 0 00003 ALS 3
00036 -0763 00 0 00003 LGL 3 ..
00037 2 00001 4 00035 TIX *-2,4,1
00040 0602 00 1 00120 SLW KEYS+2,1 ..
00041 2 00001 1 00034 TIX *-5,1,1
00042 0520 00 0 00121 ZET SLPTIM WATCH OUT FOR MACRO BELOW.
00043 CALL $GETTM(DATE,TIME) IF WE ARE TO SLEEP, PRINT TIME NOW.
00043 TSX $GETTM,4 .003
00044 3 00000 0 00104 PAR DATE .003
00045 3 00000 0 00105 PAR TIME .003
00046 TSX SETBCD,4 BACK TO 6-BIT MODE.
00047 CALL WRFLX((MESS,,LMESS))
00047 TSX WRFLX,4 .003
00050 3 00015 0 00103 PAR MESS,,LMESS .003
00051 -0500 00 0 00121 CAL SLPTIM ARE WE TO SLEEP. Q
00052 0100 00 0 00055 TZE XIT NO, GO AWAY QUIETLY.
00053 TSX SLEEP,4 ZZZ .. ZZZ .. ZZZ
00054 0020 00 0 00024 TRA WORK (YAWN) .. MORE WORK TO DO.
00055 XIT CALL WRFLX((*,,0)) TYPE ANOTHER C.R.
00055 TSX WRFLX,4 .003
00056 3 00000 0 00056 PAR *,,0 .003
00057 CALL CHNCOM(0) AND EXIT TO CHNCOM.
00057 TSX CHNCOM,4 .003
00060 3 00000 0 00000 PAR 0 .003
00061 006201250145 HDR BCI 8,0S1E1N1S1E0 1S1W1I1T1C1H1E1S0 0 010 0 0 020 0 0
00062 016201250060
00063 016201660131
00064 016301230130
00065 012501620060
00066 006000010060
00067 006000600002
00070 006000600060
00071 000300600060 BCI 8,030 0 0 040 0 0 050 0 0 060 0 0 0 0 0C1O1N1S1O1L
00072 006000040060
00073 006000600005
00074 006000600060
00075 000600600060
00076 006000600060
00077 002301460145
00100 016201460143
00101 012500600142 BCI 2,1E0 1K1E1Y1S
00102 012501700162
00022 LHDR EQU *-HDR
00103 -205757575757 MESS OCT 605757575757 A SPACE.
00104 606060606060 DATE BCI 1,
00105 606060606060 TIME BCI 1,
00106 -206057575757 OCT 606057575757 SOME SPACES.
00107 SS BSS 6 CONDITION OF SENSE SWITCHES.
00115 -206060575757 OCT 606060575757 SOME MORE SPACES.
00116 KEYS BSS 2 CONSOLE KEYS.
1 M1416-3845 PETER R. BOS -- TEST SENSE SWITCHES AND CONSOLE KEYS. PAGE 3
00015 LMESS EQU *-MESS
00120 -377777777777 FENCE OCT 777777777777
00121 0 00000 0 00000 SLPTIM PZE
END
REMOTE SEQUENCES
00122 0101 00 0 00133 GETCOM TIA =HGETCOM .002
00123 0101 00 0 00142 WRFLX TIA =HWRFLX .002
00124 0101 00 0 00137 SETFUL TIA =HSETFUL .002
00125 0101 00 0 00141 WRFLXA TIA =HWRFLXA .002
00126 0101 00 0 00136 SETBCD TIA =HSETBCD .002
00127 0101 00 0 00140 SLEEP TIA =HSLEEP .002
00130 0101 00 0 00132 CHNCOM TIA =HCHNCOM .002
1 M1416-3845 PETER R. BOS -- TEST SENSE SWITCHES AND CONSOLE KEYS. PAGE 1
POST PROCESSOR ASSEMBLY DATA
143 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
107 SS 30
61 HDR 21, 23, 103
1 ..A 3, 11, 16, 21, 23, 44, 45, 50, 56, 60
0 ..D 3, 11, 16, 21, 23, 44, 45, 50, 56, 60
0 ..T 3, 11, 16, 21, 23, 44, 45, 50, 56, 60
55 XIT 52
104 DATE 44
3 ..OP 3, 11, 16, 21, 23, 44, 45, 50, 56, 60
116 KEYS 40
22 LHDR 23, 103
103 MESS 50, 120
105 TIME 45
24 WORK 54
0 BCDEC 10
120 FENCE 5
1 GETTM 43
0 ..PZE 3, 11, 16, 21, 23, 44, 50, 56, 60
15 LMESS 50, 120
127 SLEEP 53
123 WRFLX 15, 22, 47, 55
130 CHNCOM 57
122 GETCOM 2
126 SETBCD 46
124 SETFUL 17
121 SLPTIM 4, 7, 11, 14, 42, 51
125 WRFLXA 20
0 NO ERROR IN ABOVE ASSEMBLY.
LCHECK BCD 09/20/68 0219.9 3310 00000
1 MAD PROGRAM LISTING ... ... ... FILE LINECK MAD 02/13/68 0152.1
-
LINE TESTER AND CHECKER LM00001
LM00002
LOADING INSTRUCTIONS LM00003
MAD LINECK (LIST) LM00004
LAED NCLOAD LINECK (SQZ) (SRCH) XLIBE LM00005
SAVE LCHECK LM00006
R LCHECK PROBNO PROGNO LM00007
LM00008
PROBNO MUST BE IN STANDARD FORM LM00009
D.R. WIDRIG DEC. 1965 LM00010
LM00011
NORMAL MODE IS INTEGER *001 LM00012
VECTOR VALUES LINE1 = 0,0,777777777777K *002 LM00013
VECTOR VALUES MESS2 = $ BS = $,0,$,TRUNK$,0,$UNITID IS $ *003 LM00014
VECTOR VALUES LTABL = $= INK,=1620,=PDP6,=NONE,= 67,= 66,$, *004 LM00015
1 $= 84,= 83,= 76,= 77,= 75,= 74,$, *004 LM00016
2 $= 88,= 86,= 87,= 80,= 82,= 81,= 79,$, *004 LM00017
3 $= 70,= 69,= 68,= 89,= 85,= 101,= 102,= 103,$, *004 LM00018
4 $= 104,= 105,= 106,= 107,= 108,= 111,= 112,= 113,$, *004 LM00019
5 $= 114,= 115,= 116,= 117,= 118,= 121,= 122,= 109,$, *004 LM00020
6 $= 120,= 119,= 124,= 110,= 123,=NONE,=NONE,$, *004 LM00021
7 $=NONE,=NONE,= 71,= 72,= 73,= 78,=TELX,= TWX,= TWX,$ *004 LM00022
8 ,$= TWX,= TWX,=MOD33,=MOD33$ *004 LM00023
LM00024
GET A-CORE LOCATION POINTERS LM00025
LM00026
N = COMLOC.($N$) *005 LM00027
PROBN = COMLOC.($PROBN$) *006 LM00028
PROGN = COMLOC.($PROGN$) *007 LM00029
UNITID = COMLOC.($UNITID$) *008 LM00030
LUTBL = ACORE.($LUTBL$).RS.18 *009 LM00031
LM00032
PICK UP ARGUMENTS LM00033
LM00034
COMARG.(1,LINE1) *010 LM00035
COMARG.(2,LINE1(1)) *011 LM00036
PRMESS.($SEARCHING FOR$,LINE1(0),LINE1(1)) *012 LM00037
LM00038
LOOK THROUGH USER ARRAYS FOR INDICATED USER LM00039
START THROUGH LOOP1, FOR I=3,1,I.G.N *013 LM00041
PROBNO = GLOC.(PROBN+I) *014 LM00042
WHENEVER (PROBNO .NE. LINE1), TRANSFER TO LOOP1 *015 LM00043
PROGNO = GLOC.(PROGN+I) *016 LM00044
WHENEVER (PROGNO .NE. LINE1(1)), TRANSFER TO LOOP1 *017 LM00045
LM00046
FOUND USER, GET INFO LM00047
LM00048
BSNO = GLOC.(LUTBL+I) *018 LM00049
MESS2(3) = LTABL(BSNO) *019 LM00050
MESS2(1) = OCRBC.(BSNO) .V. 575757K6 *020 LM00051
MESS2(6) = GLOC.(UNITID+I) *021 LM00052
PRMESS.($USER FOUND, CALL MIT X4750 FOR TRACE$) *022 LM00053
PRMESS.(MESS2...7) *023 LM00054
CHNCOM.(0) *024 LM00055
LOOP1 CONTINUE *025 LM00056
LM00057
USER NOT FOUND, SNOOZE A LITTLE LM00058
LM00059
N = 60 *026 LM00060
SLEEP. *027 LM00061
TRANSFER TO START *028 LM00062
END OF PROGRAM *029 LM00063
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00336 TRANSFER VECTOR LENGTH 00012 PROGRAM BEGINS 00166
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BSNO 00015 1 LOOP1 00013 4 MESS2 00130 A 1 PROBN 00133 1 START 00014 4
I 00016 1 LTABL 00121 A 1 N 00131 1 PROGNO 00134 1 UNITID 00136 1
LINE1 00021 A 1 LUTBL 00122 1 PROBNO 00132 1 PROGN 00135 1
0FUNCTION DICTIONARY
ACORE 00000 1 CHNCOM 00001 1 COMARG 00002 1 COMLOC 00003 1 EXIT 00004 1
GLOC 00005 1 .SETUP 00006 1 OCRBC 00007 1 PRMESS 00010 1 SLEEP 00011 1
0ABSOLUTE CONSTANTS
00145 +000000000074 00137 +000000000000 00143 +000000000007 00162 -206351212325 00146 +050060264651
00152 +316360670407 00147 +232143436044 00155 -066445247360 00165 -246225516026 00161 -175757000000
00142 +000000000003 00160 -116060606060 00151 +314527602646 00163 -222521512330 00141 +000000000002
00144 +000000000022 00153 -036463224360 00164 -244531633124 00157 -075146274560 00156 -075146224560
00154 -056060606060 00140 +000000000001 00150 +233000000000
0STATEMENT DICTIONARY
00013 TXL -300326000325 00014 TXL -300241000227
0PROGRAM
N'R 001 LM00012
V'S LINE1 = 0,0,777777777777K 002 LM00013
00166 TSX +0 07400 4 00006 00017 -3 77777 7 77777 00020 +0 00000 0 00000 00021 +0 00000 0 00000
V'S MESS2 = $ BS = $,0,$,TRUNK$,0,$UNITID IS $ 003 LM00014
00123 -2 03162 6 06060 00124 -2 44531 6 33124 00125 +0 00000 0 00000 00126 -3 36351 6 44542
00127 +0 00000 0 00000 00130 -2 02262 6 01360
V'S LTABL = $= INK,=1620,=PDP6,=NONE,= 67,= 66,$, 004 LM00015
1 $= 84,= 83,= 76,= 77,= 75,= 74,$, 004 LM00016
2 $= 88,= 86,= 87,= 80,= 82,= 81,= 79,$, 004 LM00017
3 $= 70,= 69,= 68,= 89,= 85,= 101,= 102,= 103,$, 004 LM00018
4 $= 104,= 105,= 106,= 107,= 108,= 111,= 112,= 113,$, 004 LM00019
5 $= 114,= 115,= 116,= 117,= 118,= 121,= 122,= 109,$, 004 LM00020
6 $= 120,= 119,= 124,= 110,= 123,=NONE,=NONE,$, 004 LM00021
7 $=NONE,=NONE,= 71,= 72,= 73,= 78,=TELX,= TWX,= TWX,$ 004 LM00022
8 ,$= TWX,= TWX,=MOD33,=MOD33$ 004 LM00023
00022 +0 36060 6 06060 00023 -3 31344 4 62403 00024 +1 34446 2 40303 00025 +1 36063 6 66773
00026 +1 36063 6 66773 00027 +1 36063 6 66773 00030 +1 36063 6 66773 00031 +1 36325 4 36773
00032 +1 36060 0 71073 00033 +1 36060 0 70373 00034 +1 36060 0 70273 00035 +1 36060 0 70173
00036 +1 34546 4 52573 00037 +1 34546 4 52573 00040 +1 34546 4 52573 00041 +1 34546 4 52573
00042 +1 36001 0 20373 00043 +1 36001 0 10073 00044 +1 36001 0 20473 00045 +1 36001 0 11173
00046 +1 36001 0 20073 00047 +1 36001 0 01173 00050 +1 36001 0 20273 00051 +1 36001 0 20173
00052 +1 36001 0 11073 00053 +1 36001 0 10773 00054 +1 36001 0 10673 00055 +1 36001 0 10573
00056 +1 36001 0 10473 00057 +1 36001 0 10373 00060 +1 36001 0 10273 00061 +1 36001 0 10173
00062 +1 36001 0 01073 00063 +1 36001 0 00773 00064 +1 36001 0 00673 00065 +1 36001 0 00573
00066 +1 36001 0 00473 00067 +1 36001 0 00373 00070 +1 36001 0 00273 00071 +1 36001 0 00173
00072 +1 36060 1 00573 00073 +1 36060 1 01173 00074 +1 36060 0 61073 00075 +1 36060 0 61173
00076 +1 36060 0 70073 00077 +1 36060 0 71173 00100 +1 36060 1 00173 00101 +1 36060 1 00273
00102 +1 36060 1 00073 00103 +1 36060 1 00773 00104 +1 36060 1 00673 00105 +1 36060 1 01073
00106 +1 36060 0 70473 00107 +1 36060 0 70573 00110 +1 36060 0 70773 00111 +1 36060 0 70673
00112 +1 36060 1 00373 00113 +1 36060 1 00473 00114 +1 36060 0 60673 00115 +1 36060 0 60773
00116 +1 34546 4 52573 00117 +1 34724 4 70673 00120 +1 30106 0 20073 00121 +1 36031 4 54273
N = COMLOC.($N$) 005 LM00027
00167 TSX +0 07400 4 00003 00170 TXH +3 00000 0 00154 00171 STO +0 60100 0 00131
PROBN = COMLOC.($PROBN$) 006 LM00028
00172 TSX +0 07400 4 00003 00173 TXH +3 00000 0 00156 00174 STO +0 60100 0 00133
PROGN = COMLOC.($PROGN$) 007 LM00029
00175 TSX +0 07400 4 00003 00176 TXH +3 00000 0 00157 00177 STO +0 60100 0 00135
UNITID = COMLOC.($UNITID$) 008 LM00030
00200 TSX +0 07400 4 00003 00201 TXH +3 00000 0 00164 00202 STO +0 60100 0 00136
LUTBL = ACORE.($LUTBL$).RS.18 009 LM00031
00203 TSX +0 07400 4 00000 00204 TXH +3 00000 0 00153 00205 STO +0 60100 0 00333 00206 CAL -0 50000 0 00144
00207 STA +0 62100 0 00211 00210 CAL -0 50000 0 00333 00211 LGR -0 76500 0 00000 00212 SLW +0 60200 0 00122
COMARG.(1,LINE1) 010 LM00035
00213 TSX +0 07400 4 00002 00214 TXH +3 00000 0 00140 00215 TXH +3 00000 0 00021
COMARG.(2,LINE1(1)) 011 LM00036
00216 TSX +0 07400 4 00002 00217 TXH +3 00000 0 00141 00220 TXH +3 00000 0 00020
PRMESS.($SEARCHING FOR$,LINE1(0),LINE1(1)) 012 LM00037
00221 TSX +0 07400 4 00010 00222 TXH +3 00000 0 00163 00223 TXH +3 00000 0 00151 00224 TXH +3 00000 0 00160
00225 TXH +3 00000 0 00021 00226 TXH +3 00000 0 00020
START T'H LOOP1, FOR I=3,1,I.G.N 013 LM00041
00227 CLA +0 50000 0 00142 00230 STO +0 60100 0 00016 00231 TRA +0 02000 0 00235 00232 CLA +0 50000 0 00016
00233 ADD +0 40000 0 00140 00234 STO +0 60100 0 00016 00235 CLA +0 50000 0 00016 00236 SUB +0 40200 0 00131
00237 TZE +0 10000 0 00241 00240 TPL +0 12000 0 00326
PROBNO = GLOC.(PROBN+I) 014 LM00042
00241 CLA +0 50000 0 00133 00242 ADD +0 40000 0 00016 00243 STO +0 60100 0 00333 00244 TSX +0 07400 4 00005
00245 TXH +3 00000 0 00333 00246 STO +0 60100 0 00132
W'R (PROBNO .NE. LINE1), T'O LOOP1 015 LM00043
00247 CLA +0 50000 0 00132 00250 SUB +0 40200 0 00021 00251 TZE +0 10000 0 00253 00252 TRA +0 02000 0 00013
PROGNO = GLOC.(PROGN+I) 016 LM00044
00253 CLA +0 50000 0 00135 00254 ADD +0 40000 0 00016 00255 STO +0 60100 0 00333 00256 TSX +0 07400 4 00005
00257 TXH +3 00000 0 00333 00260 STO +0 60100 0 00134
W'R (PROGNO .NE. LINE1(1)), T'O LOOP1 017 LM00045
00261 CLA +0 50000 0 00134 00262 SUB +0 40200 0 00020 00263 TZE +0 10000 0 00265 00264 TRA +0 02000 0 00013
BSNO = GLOC.(LUTBL+I) 018 LM00049
00265 CLA +0 50000 0 00122 00266 ADD +0 40000 0 00016 00267 STO +0 60100 0 00333 00270 TSX +0 07400 4 00005
00271 TXH +3 00000 0 00333 00272 STO +0 60100 0 00015
MESS2(3) = LTABL(BSNO) 019 LM00050
00273 LXA +0 53400 2 00015 00274 CLA +0 50000 2 00121 00275 STO +0 60100 0 00125
MESS2(1) = OCRBC.(BSNO) .V. 575757K6 020 LM00051
00276 TSX +0 07400 4 00007 00277 TXH +3 00000 0 00015 00300 STO +0 60100 0 00333 00301 CAL -0 50000 0 00333
00302 ORA -0 50100 0 00161 00303 SLW +0 60200 0 00127
MESS2(6) = GLOC.(UNITID+I) 021 LM00052
00304 CLA +0 50000 0 00136 00305 ADD +0 40000 0 00016 00306 STO +0 60100 0 00333 00307 TSX +0 07400 4 00005
00310 TXH +3 00000 0 00333 00311 STO +0 60100 0 00122
PRMESS.($USER FOUND, CALL MIT X4750 FOR TRACE$) 022 LM00053
00312 TSX +0 07400 4 00010 00313 TXH +3 00000 0 00165 00314 TXH +3 00000 0 00155 00315 TXH +3 00000 0 00147
00316 TXH +3 00000 0 00152 00317 TXH +3 00000 0 00146 00320 TXH +3 00000 0 00162
PRMESS.(MESS2...7) 023 LM00054
00321 TSX +0 07400 4 00010 00322 TIX +2 00143 0 00130
CHNCOM.(0) 024 LM00055
00323 TSX +0 07400 4 00001 00324 TXH +3 00000 0 00137
LOOP1 C'E 025 LM00056
00325 TRA +0 02000 0 00232
N = 60 026 LM00060
00326 CLA +0 50000 0 00145 00327 STO +0 60100 0 00131
SLEEP. 027 LM00061
00330 TSX +0 07400 4 00011
T'O START 028 LM00062
00331 TRA +0 02000 0 00014
E'M 029 LM00063
00332 TSX +0 07400 4 00004
LDCMP BCD 09/20/68 0220.0 4321 00000
1 MAD PROGRAM LISTING ... ... ... FILE LDCMP MAD 02/13/68 0154.9
-
NORMAL MODE IS INTEGER *001 LM00001
DIMENSION BUF1(432), BUF2(432), A(14) *002 LM00002
DIMENSION LOADS(3000, QQ2) *003 LM00003
VECTOR VALUES QQ2=2,1,300 *004 LM00004
VECTOR VALUES SVNS=377777777777K *005 LM00005
VECTOR VALUES BUFZ=432 *006 LM00006
VECTOR VALUES FOUR=77777777K4 *007 LM00007
WHENEVER COMARG.(1).A.SVNS .E. SVNS *008 LM00008
PRINT COMMENT $R LDCMP L1 L2 L3 ...$ *009 LM00009
PRINT COMMENT $TO COMPARE UP TO TEN CTSSLD'S$ *010 LM00010
CHNCOM.(0) *011 LM00011
END OF CONDITIONAL *012 LM00012
THROUGH ARGS, FOR I=1,1,I.G.10 .OR. COMARG.(I).A.SVNS .E. SVNS *013 LM00013
NAM=COMARG.(I) *014 LM00014
BFOPEN.($R$,NAM,$CTSSLD$,BUF1(BUFZ),BUF2(BUFZ),-0,ERRP) *015 LM00015
THROUGH READ, FOR J=1,1, 0B *016 LM00016
BFREAD.(NAM,$CTSSLD$, A(14)...14, EOF, -0, -0) *017 LM00017
READ LOADS(I, J)=A(14) *018 LM00018
EOF BFCLOS.(NAM, $CTSSLD$, -0) *019 LM00019
TRANSFER TO ARGS *020 LM00020
ERRP PRINT FORMAT ERRF, NAM *021 LM00021
VECTOR VALUES ERRF=$(C6,H'CTSSLD NOT FOUND')*$ *022 LM00022
CHNCOM.(0) *023 LM00023
ARGS CONTINUE *024 LM00024
LOADS(I,J)=0 *025 LM00025
LOADS=I-1 *026 LM00026
PRINT FORMAT $(1H )$ *027 LM00027
PRINT FORMAT $(10A7)$, (I=1,1, I.G.LOADS, COMARG.(I)) *028 LM00028
PRINT FORMAT $(1H )$ *029 LM00029
THROUGH CM03, FOR K=1,1, K.G.LOADS *030 LM00030
THROUGH CM03, FOR L=1,1, LOADS(K,L).E.0 *031 LM00031
WHENEVER LOADS(K,L).NE.77K *032 LM00032
THROUGH CMP2, FOR M=1,1,M.G.K-1 *033 LM00033
CMP2 A(M)=$ $ *034 LM00034
A(K)=LOADS(K,L) *035 LM00035
THROUGH CM02, FOR I=K+1,1, I.G.LOADS *036 LM00036
THROUGH CM01, FOR J=1,1,LOADS(I,J).E.0 *037 LM00037
WHENEVER LOADS(K,L).A.FOUR .E. LOADS(I,J).A.FOUR *038 LM00038
A(I)=LOADS(I,J) *039 LM00039
LOADS(I,J)=77K *040 LM00040
TRANSFER TO CM02 *041 LM00041
END OF CONDITIONAL *042 LM00042
CM01 CONTINUE *043 LM00043
A(I)=$ $ *044 LM00044
CM02 CONTINUE *045 LM00045
THROUGH CMP1, FOR I=2,1,I.G.LOADS *046 LM00046
WHENEVER A(I).NE.A(1) *047 LM00047
PRINT FORMAT $(10A7)$, A(1)...A(LOADS) *048 LM00048
TRANSFER TO CM03 *049 LM00049
CMP1 END OF CONDITIONAL *050 LM00050
END OF CONDITIONAL *051 LM00051
CM03 CONTINUE *052 LM00052
CHNCOM.(0) *053 LM00053
END OF PROGRAM *054 LM00054
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 10176 TRANSFER VECTOR LENGTH 00012 PROGRAM BEGINS 07527
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ARGS 00013 4 CM01 00012 4 EOF 00016 4 J 01611 1 NAM 07506 1
A 00036 A 1 CM02 00014 4 ERRF 01606 A 1 K 01612 1 QQ2 07511 A 1
BUF1 00717 A 1 CM03 00015 4 ERRP 00017 4 LOADS 07503 A 1 READ 00012 4
BUF2 01600 A 1 CMP1 00012 4 FOUR 01607 A 1 L 07504 1 SVNS 07512 A 1
BUFZ 01601 A 1 CMP2 00012 4 I 01610 1 M 07505 1
0FUNCTION DICTIONARY
.03311 00000 0 BFCLOS 00001 1 BFOPEN 00002 1 BFREAD 00003 1 CHNCOM 00004 1
COMARG 00005 1 EXIT 00006 1 .PCOMT 00007 1 .PRINT 00010 1 .SETUP 00011 1
0ABSOLUTE CONSTANTS
07515 +000000000002 07524 -206060606060 07520 +000000000077 07525 -340100210734 07526 -340130603460
07517 +000000000016 07522 +236362624324 07523 -116060606060 07516 +000000000012 07513 +000000000000
07514 +000000000001 07521 +233000000000
0STATEMENT DICTIONARY
00013 TXL -307701007700 00014 TXL -310134010133 00015 TXL -310167010165 00016 TXL -307671007663
00017 TXL -307676007672
0PROGRAM
NORMAL MODE IS INTEGER 001 LM00001
D'N BUF1(432), BUF2(432), A(14) 002 LM00002
D'N LOADS(3000, QQ2) 003 LM00003
V'S QQ2=2,1,300 004 LM00004
07527 TSX +0 07400 4 00011 07507 +0 00000 0 00454 07510 +0 00000 0 00001 07511 +0 00000 0 00002
V'S SVNS=377777777777K 005 LM00005
07512 +3 77777 7 77777
V'S BUFZ=432 006 LM00006
01601 +0 00000 0 00660
V'S FOUR=77777777K4 007 LM00007
01607 -3 77777 7 70000
W'R COMARG.(1).A.SVNS .E. SVNS 008 LM00008
07530 TSX +0 07400 4 00005 07531 TXH +3 00000 0 07514 07532 STO +0 60100 0 10172 07533 CAL -0 50000 0 10172
07534 ANA -0 32000 0 07512 07535 SLW +0 60200 0 10172 07536 CLA +0 50000 0 10172 07537 SUB +0 40200 0 07512
07540 TNZ -0 10000 0 07560
PRINT COMMENT $R LDCMP L1 L2 L3 ...$ 009 LM00009
07541 TSX +0 07400 4 00007 07542 +0 00000 0 00004 07543 -1 16043 2 42344 07544 -0 76043 0 16043
07545 +0 26043 0 36033 07546 +3 33360 6 06060
PRINT COMMENT $TO COMPARE UP TO TEN CTSSLD'S$ 010 LM00010
07547 TSX +0 07400 4 00007 07550 +0 00000 0 00005 07551 -2 34660 2 34644 07552 -0 72151 2 56064
07553 -0 76063 4 66063 07554 +2 54560 2 36362 07555 -2 24324 1 46260
CHNCOM.(0) 011 LM00011
07556 TSX +0 07400 4 00004 07557 TXH +3 00000 0 07513
E'L 012 LM00012
T'H ARGS, FOR I=1,1,I.G.10 .OR. COMARG.(I).A.SVNS .E. SVNS 013 LM00013
07560 CLA +0 50000 0 07514 07561 STO +0 60100 0 01610 07562 TRA +0 02000 0 07566 07563 CLA +0 50000 0 01610
07564 ADD +0 40000 0 07514 07565 STO +0 60100 0 01610 07566 TSX +0 07400 4 00005 07567 TXH +3 00000 0 01610
07570 STO +0 60100 0 10172 07571 CAL -0 50000 0 10172 07572 ANA -0 32000 0 07512 07573 SLW +0 60200 0 10172
07574 CLA +0 50000 0 10172 07575 SUB +0 40200 0 07512 07576 TZE +0 10000 0 07701 07577 CLA +0 50000 0 01610
07600 SUB +0 40200 0 07516 07601 TZE +0 10000 0 07603 07602 TPL +0 12000 0 07701
NAM=COMARG.(I) 014 LM00014
07603 TSX +0 07400 4 00005 07604 TXH +3 00000 0 01610 07605 STO +0 60100 0 07506
BFOPEN.($R$,NAM,$CTSSLD$,BUF1(BUFZ),BUF2(BUFZ),-0,ERRP) 015 LM00015
07606 CLS +0 50200 0 07513 07607 STO +0 60100 0 10172 07610 CLA +0 50000 0 01601 07611 SUB +0 40200 0 07612
07612 TXH +3 00000 0 01600 07613 STA +0 62100 0 07625 07614 CLA +0 50000 0 01601 07615 SUB +0 40200 0 07616
07616 TXH +3 00000 0 00717 07617 STA +0 62100 0 07624 07620 TSX +0 07400 4 00002 07621 TXH +3 00000 0 07523
07622 TXH +3 00000 0 07506 07623 TXH +3 00000 0 07522 07624 TXH +3 00000 0 00000 07625 TXH +3 00000 0 00000
07626 TXH +3 00000 0 10172 07627 TXH +3 00000 0 00017
T'H READ, FOR J=1,1, 0B 016 LM00016
07630 CLA +0 50000 0 07514 07631 STO +0 60100 0 01611 07632 TRA +0 02000 0 07636 07633 CLA +0 50000 0 01611
07634 ADD +0 40000 0 07514 07635 STO +0 60100 0 01611 07636 ZET +0 52000 0 07513 07637 TRA +0 02000 0 07663
BFREAD.(NAM,$CTSSLD$, A(14)...14, EOF, -0, -0) 017 LM00017
07640 CLS +0 50200 0 07513 07641 STO +0 60100 0 10172 07642 CLS +0 50200 0 07513 07643 STO +0 60100 0 10173
07644 TSX +0 07400 4 00003 07645 TXH +3 00000 0 07506 07646 TXH +3 00000 0 07522 07647 TIX +2 07517 0 00020
07650 TXH +3 00000 0 00016 07651 TXH +3 00000 0 10173 07652 TXH +3 00000 0 10172
READ LOADS(I, J)=A(14) 018 LM00018
07653 LDQ +0 56000 0 01611 07654 CLA +0 50000 0 01610 07655 TSX +0 07400 4 00000 07656 TXH +3 07511 0 07503
07657 PAX +0 73400 1 00000 07660 CLA +0 50000 0 00020 07661 STO +0 60100 1 07503 07662 TRA +0 02000 0 07633
EOF BFCLOS.(NAM, $CTSSLD$, -0) 019 LM00019
07663 CLS +0 50200 0 07513 07664 STO +0 60100 0 10173 07665 TSX +0 07400 4 00001 07666 TXH +3 00000 0 07506
07667 TXH +3 00000 0 07522 07670 TXH +3 00000 0 10173
T'O ARGS 020 LM00020
07671 TRA +0 02000 0 00013
ERRP P'T ERRF, NAM 021 LM00021
07672 TSX +0 07400 4 00010 07673 STR -1 01606 1 10174 07674 STR -1 00000 0 07506 07675 STR -1 00000 0 00000
V'S ERRF=$(C6,H'CTSSLD NOT FOUND')*$ 022 LM00022
01602 -1 46060 6 06060 01603 -0 66445 2 41434 01604 -2 04546 6 36026 01605 +2 36362 6 24324
01606 -3 42306 7 33014
CHNCOM.(0) 023 LM00023
07676 TSX +0 07400 4 00004 07677 TXH +3 00000 0 07513
ARGS CONTINUE 024 LM00024
07700 TRA +0 02000 0 07563
LOADS(I,J)=0 025 LM00025
07701 LDQ +0 56000 0 01611 07702 CLA +0 50000 0 01610 07703 TSX +0 07400 4 00000 07704 TXH +3 07511 0 07503
07705 PAX +0 73400 1 00000 07706 CLA +0 50000 0 07513 07707 STO +0 60100 1 07503
LOADS=I-1 026 LM00026
07710 CLA +0 50000 0 01610 07711 SUB +0 40200 0 07514 07712 STO +0 60100 0 07503
P'T $(1H )$ 027 LM00027
07713 TSX +0 07400 4 00010 07714 STR -1 07526 1 10174 07715 STR -1 00000 0 00000
P'T $(10A7)$, (I=1,1, I.G.LOADS, COMARG.(I)) 028 LM00028
07716 TSX +0 07400 4 00010 07717 STR -1 07525 1 10174 07720 CLA +0 50000 0 07514 07721 STO +0 60100 0 01610
07722 TRA +0 02000 0 07726 07723 CLA +0 50000 0 01610 07724 ADD +0 40000 0 07514 07725 STO +0 60100 0 01610
07726 CLA +0 50000 0 01610 07727 SUB +0 40200 0 07503 07730 TZE +0 10000 0 07732 07731 TPL +0 12000 0 07737
07732 TSX +0 07400 4 00005 07733 TXH +3 00000 0 01610 07734 STO +0 60100 0 10173 07735 STR -1 00000 0 10173
07736 TRA +0 02000 0 07723 07737 STR -1 00000 0 00000
P'T $(1H )$ 029 LM00029
07740 TSX +0 07400 4 00010 07741 STR -1 07526 1 10174 07742 STR -1 00000 0 00000
T'H CM03, FOR K=1,1, K.G.LOADS 030 LM00030
07743 CLA +0 50000 0 07514 07744 STO +0 60100 0 01612 07745 TRA +0 02000 0 07751 07746 CLA +0 50000 0 01612
07747 ADD +0 40000 0 07514 07750 STO +0 60100 0 01612 07751 CLA +0 50000 0 01612 07752 SUB +0 40200 0 07503
07753 TZE +0 10000 0 07755 07754 TPL +0 12000 0 10167
T'H CM03, FOR L=1,1, LOADS(K,L).E.0 031 LM00031
07755 CLA +0 50000 0 07514 07756 STO +0 60100 0 07504 07757 TRA +0 02000 0 07763 07760 CLA +0 50000 0 07504
07761 ADD +0 40000 0 07514 07762 STO +0 60100 0 07504 07763 LDQ +0 56000 0 07504 07764 CLA +0 50000 0 01612
07765 TSX +0 07400 4 00000 07766 TXH +3 07511 0 07503 07767 PAX +0 73400 1 00000 07770 CLA +0 50000 1 07503
07771 SUB +0 40200 0 07513 07772 TZE +0 10000 0 10166
W'R LOADS(K,L).NE.77K 032 LM00032
07773 LDQ +0 56000 0 07504 07774 CLA +0 50000 0 01612 07775 TSX +0 07400 4 00000 07776 TXH +3 07511 0 07503
07777 PAX +0 73400 1 00000 10000 CLA +0 50000 1 07503 10001 SUB +0 40200 0 07520 10002 TZE +0 10000 0 10165
T'H CMP2, FOR M=1,1,M.G.K-1 033 LM00033
10003 CLA +0 50000 0 07514 10004 STO +0 60100 0 07505 10005 TRA +0 02000 0 10011 10006 CLA +0 50000 0 07505
10007 ADD +0 40000 0 07514 10010 STO +0 60100 0 07505 10011 CLA +0 50000 0 01612 10012 SUB +0 40200 0 07514
10013 CHS +0 76000 0 00002 10014 ADD +0 40000 0 07505 10015 TZE +0 10000 0 10017 10016 TPL +0 12000 0 10023
CMP2 A(M)=$ $ 034 LM00034
10017 LXA +0 53400 1 07505 10020 CLA +0 50000 0 07524 10021 STO +0 60100 1 00036 10022 TRA +0 02000 0 10006
A(K)=LOADS(K,L) 035 LM00035
10023 LDQ +0 56000 0 07504 10024 CLA +0 50000 0 01612 10025 TSX +0 07400 4 00000 10026 TXH +3 07511 0 07503
10027 LXA +0 53400 1 01612 10030 PAX +0 73400 2 00000 10031 CLA +0 50000 2 07503 10032 STO +0 60100 1 00036
T'H CM02, FOR I=K+1,1, I.G.LOADS 036 LM00036
10033 CLA +0 50000 0 01612 10034 ADD +0 40000 0 07514 10035 STO +0 60100 0 01610 10036 TRA +0 02000 0 10042
10037 CLA +0 50000 0 01610 10040 ADD +0 40000 0 07514 10041 STO +0 60100 0 01610 10042 CLA +0 50000 0 01610
10043 SUB +0 40200 0 07503 10044 TZE +0 10000 0 10046 10045 TPL +0 12000 0 10134
T'H CM01, FOR J=1,1,LOADS(I,J).E.0 037 LM00037
10046 CLA +0 50000 0 07514 10047 STO +0 60100 0 01611 10050 TRA +0 02000 0 10054 10051 CLA +0 50000 0 01611
10052 ADD +0 40000 0 07514 10053 STO +0 60100 0 01611 10054 LDQ +0 56000 0 01611 10055 CLA +0 50000 0 01610
10056 TSX +0 07400 4 00000 10057 TXH +3 07511 0 07503 10060 PAX +0 73400 1 00000 10061 CLA +0 50000 1 07503
10062 SUB +0 40200 0 07513 10063 TZE +0 10000 0 10130
W'R LOADS(K,L).A.FOUR .E. LOADS(I,J).A.FOUR 038 LM00038
10064 LDQ +0 56000 0 01611 10065 CLA +0 50000 0 01610 10066 TSX +0 07400 4 00000 10067 TXH +3 07511 0 07503
10070 PAX +0 73400 1 00000 10071 CAL -0 50000 1 07503 10072 ANA -0 32000 0 01607 10073 SLW +0 60200 0 10173
10074 LDQ +0 56000 0 07504 10075 CLA +0 50000 0 01612 10076 TSX +0 07400 4 00000 10077 TXH +3 07511 0 07503
10100 PAX +0 73400 1 00000 10101 CAL -0 50000 1 07503 10102 ANA -0 32000 0 01607 10103 SLW +0 60200 0 10172
10104 CLA +0 50000 0 10172 10105 SUB +0 40200 0 10173 10106 TNZ -0 10000 0 10127
A(I)=LOADS(I,J) 039 LM00039
10107 LDQ +0 56000 0 01611 10110 CLA +0 50000 0 01610 10111 TSX +0 07400 4 00000 10112 TXH +3 07511 0 07503
10113 LXA +0 53400 1 01610 10114 PAX +0 73400 2 00000 10115 CLA +0 50000 2 07503 10116 STO +0 60100 1 00036
LOADS(I,J)=77K 040 LM00040
10117 LDQ +0 56000 0 01611 10120 CLA +0 50000 0 01610 10121 TSX +0 07400 4 00000 10122 TXH +3 07511 0 07503
10123 PAX +0 73400 1 00000 10124 CLA +0 50000 0 07520 10125 STO +0 60100 1 07503
T'O CM02 041 LM00041
10126 TRA +0 02000 0 00014
E'L 042 LM00042
CM01 CONTINUE 043 LM00043
10127 TRA +0 02000 0 10051
A(I)=$ $ 044 LM00044
10130 LXA +0 53400 1 01610 10131 CLA +0 50000 0 07524 10132 STO +0 60100 1 00036
CM02 CONTINUE 045 LM00045
10133 TRA +0 02000 0 10037
T'H CMP1, FOR I=2,1,I.G.LOADS 046 LM00046
10134 CLA +0 50000 0 07515 10135 STO +0 60100 0 01610 10136 TRA +0 02000 0 10142 10137 CLA +0 50000 0 01610
10140 ADD +0 40000 0 07514 10141 STO +0 60100 0 01610 10142 CLA +0 50000 0 01610 10143 SUB +0 40200 0 07503
10144 TZE +0 10000 0 10146 10145 TPL +0 12000 0 10165
W'R A(I).NE.A(1) 047 LM00047
10146 LXA +0 53400 1 01610 10147 CLA +0 50000 1 00036 10150 SUB +0 40200 0 00035 10151 TZE +0 10000 0 10164
P'T $(10A7)$, A(1)...A(LOADS) 048 LM00048
10152 TSX +0 07400 4 00010 10153 STR -1 07525 1 10174 10154 CLA +0 50000 0 07503 10155 SUB +0 40200 0 10156
10156 TXH +3 00000 0 00036 10157 ALS +0 76700 0 00022 10160 STD +0 62200 0 10161 10161 STR -1 00000 0 00035
10162 STR -1 00000 0 00000
T'O CM03 049 LM00049
10163 TRA +0 02000 0 00015
CMP1 E'L 050 LM00050
10164 TRA +0 02000 0 10137
E'L 051 LM00051
CM03 CONTINUE 052 LM00052
10165 TRA +0 02000 0 07760 10166 TRA +0 02000 0 07746
CHNCOM.(0) 053 LM00053
10167 TSX +0 07400 4 00004 10170 TXH +3 00000 0 07513
E'M 054 LM00054
10171 TSX +0 07400 4 00006
LKREM BCD 09/20/68 0220.0 18097 00000
1 MAD PROGRAM LISTING ... ... ... FILE LKREM MAD 02/15/68 1512.0
-
LINK-REMOVE PROGRAM LM00001
LM00002
LOADING INSTRUCTIONS LM00003
LM00004
MAD LKREM (LIST) LM00005
MAD SEARCH (LIST) LM00006
NCLOAD LKREM SEARCH (SQZ) (SRCH) TALIB LM00007
SAVE LKREM LM00008
R LKREM LM00009
LM00010
LINKS WHICH POINT NOWHERE WILL GO AWAY LM00011
T. H. VAN VLECK 10/66 LM00012
BASED ON 'REMOVE', BY LM00013
D.R. WIDRIG DEC. 1965 LM00014
LM00015
NORMAL MODE IS INTEGER *001 LM00016
DIMENSION V(2),UFD(7),USR(7),LKSTAT(7) *002 LM00017
LM00018
VECTOR VALUES MFD = $M.F.D.$ *003 LM00019
VECTOR VALUES UF = $U.F.D.$ *004 LM00020
VECTOR VALUES FILE = $(FILE)$ *005 LM00021
VECTOR VALUES TESTSW = 0B *006 LM00022
VECTOR VALUES NPNDSW = 0B *007 LM00023
VECTOR VALUES TRECS = 0 *008 LM00024
VECTOR VALUES DRECS = 0 *009 LM00025
VECTOR VALUES DCNT = 0 *010 LM00026
VECTOR VALUES DONTSW = 0B *011 LM00027
VECTOR VALUES PRTSW = 0B *012 LM00028
VECTOR VALUES B1B = 60 5757575757K *013 LM00029
LM00030
VECTOR VALUES R = 432 *014 LM00031
VECTOR VALUES MZE = 4K11 *015 LM00032
VECTOR VALUES FENCE = 777777777777K *016 LM00033
LM00034
LM00035
WHENEVER COMARG.(1,ARG) .E. $(PRNT)$ *017 LM00036
PRTSW = 1B *018 LM00037
OR WHENEVER ARG .E. $(TEST)$ *019 LM00038
PRTSW = 1B *020 LM00039
TESTSW = 1B *021 LM00040
END OF CONDITIONAL *022 LM00041
WHENEVER COMARG.(2,ARG) .E. $(NPND)$, NPNDSW = 1B *023 LM00042
SETBRK.(EOF1) *024 LM00043
LM00044
REMEMBERING WHERE YOU WERE, ATTACH TO MFD LM00045
LM00046
ATTNAM.(V(2)...2,NERR3) *025 LM00047
ATTACH.(MFD,FILE,ERR1) *026 LM00048
ATTPB = MFD *027 LM00049
ATTPG = FILE *028 LM00050
LM00051
OPEN AND READ MFD LM00052
LM00053
MFDSLT = 1 *029 LM00054
LM00055
LM00056
READM VAL1 = GETENT.(MFD,FILE,USR,MFDSLT) *030 LM00057
WHENEVER VAL1 .E. 4 *031 LM00058
TRANSFER TO EOF1 *032 LM00059
OR WHENEVER VAL1 .G. 0 *033 LM00060
TRANSFER TO ERR1 *034 LM00061
END OF CONDITIONAL *035 LM00062
MFDSLT = MFDSLT + 1 *036 LM00063
WHENEVER ((USR.E.0)).OR. *037 LM00064
1 (USR(1).E.FILE), TRANSFER TO READM *037 LM00065
LM00066
FOUND USER, OPEN AND READ HIS UFD LM00067
MAKE SURE ATTACHED TO MFD LM00068
LM00069
WHENEVER ATTPB .NE. MFD .OR. ATTPG .NE. FILE *038 LM00070
ATTPB = MFD *039 LM00071
ATTPG = FILE *040 LM00072
ATTACH.(MFD,FILE,ERR1) *041 LM00073
END OF CONDITIONAL *042 LM00074
USRSLT = 1 *043 LM00075
LM00076
IS THIS FILE DIRECTORY PROTECTED.Q. LM00077
LM00078
WHENEVER USR .E. $ M1416$ *044 LM00079
DONTSW = 1B *045 LM00080
OTHERWISE *046 LM00081
DONTSW = 0B *047 LM00082
END OF CONDITIONAL *048 LM00083
LM00084
LM00085
READU VAL2 = GETENT.(USR,USR(1),UFD,USRSLT) *049 LM00086
WHENEVER VAL2 .E.4 *050 LM00087
TRANSFER TO READM *051 LM00088
OR WHENEVER VAL2 .G.0 *052 LM00089
TRANSFER TO ERR2 *053 LM00090
END OF CONDITIONAL *054 LM00091
USRSLT = USRSLT + 1 *055 LM00092
DEVICE = (UFD(4).RS.15).A.7K *056 LM00093
WHENEVER ((UFD.E.0).AND.(UFD(1).E.0)).OR. *057 LM00094
1 (DEVICE.NE.0), *057 LM00095
2 TRANSFER TO READU *057 LM00096
LM00097
WHENEVER UFD(5) .E. UF .AND. UFD(6) .E. FILE *058 LM00098
UFD(5) = UFD(2) *059 LM00099
UFD(6) = UFD(3) *060 LM00100
UFD(2) = MFD *061 LM00101
UFD(3) = FILE *062 LM00102
END OF CONDITIONAL *063 LM00103
LM00104
TRECS = TRECS + 1 *064 LM00105
LM00106
CODE = SEARCH.(UFD(2),UFD(3),LKSTAT,UFD(5),UFD(6)) *065 LM00107
WH = CODE *066 LM00108
WHENEVER CODE + ((LKSTAT(4).RS.15).A.7K) .E. 0 *067 LM00109
CODE = SEARCH.(LKSTAT(2),LKSTAT(3),LKSTAT,LKSTAT(5), *068 LM00110
1 LKSTAT(6)) *068 LM00111
WHENEVER (LKSTAT(4).RS.15).A.7K .E. 0, CODE = 5 *069 LM00112
WH = WH .V. (CODE.LS.6) *070 LM00113
END OF CONDITIONAL *071 LM00114
WHENEVER CODE .NE. 0, TRANSFER TO GOTCHA *072 LM00115
TRANSFER TO READU *073 LM00116
LM00117
GOTCHA WHENEVER PRTSW *074 LM00118
WHENEVER NPNDSW.AND.DONTSW, TRANSFER TO READU *075 LM00119
PRMESS.(USR,B1B,USR(1),B1B,UFD,B1B,UFD(1),B1B, *076 LM00120
1 UFD(2),B1B,UFD(3),B1B,UFD(5),B1B,UFD(6),B1B,WH) *076 LM00121
END OF CONDITIONAL *077 LM00122
WHENEVER DONTSW, TRANSFER TO READU *078 LM00123
DCNT = DCNT + 1 *079 LM00124
WHENEVER TESTSW, TRANSFER TO READU *080 LM00125
WHENEVER ATTPB.NE.USR .OR. ATTPG .NE. USR(1) *081 LM00126
ATTPB = USR *082 LM00127
ATTPG = USR(1) *083 LM00128
ATTACH.(USR,USR(1),ERR2) *084 LM00129
END OF CONDITIONAL *085 LM00130
UNLINK.(UFD,UFD(1),ERR3) *086 LM00131
TRANSFER TO READU *087 LM00132
LM00133
EOF ON MFD, FINISH UP AND QUIT LM00134
LM00135
EOF1 CONTINUE *088 LM00136
BAIL ATTACH.(V(2),V(1),NERR3) *089 LM00137
WHENEVER TESTSW, PRMESA.($WOULD HAVE$) *090 LM00138
PRMESS.($UNLINKED$,BZEL.(DERBC.(DCNT)), $ LINKS$) *091 LM00139
PRMESS. *092 LM00140
PRMESS.(BZEL.(DERBC.(TRECS)),$ LINKS IN$) *093 LM00141
PRMESS. *094 LM00142
NERR3 CHNCOM.(0) *095 LM00143
LM00144
ERROR IN MFD, FATAL LM00145
LM00146
ERR1 PRNTER. *096 LM00147
PRMESS.($FATAL ERROR$,DERBC.(VAL1),B1B,DERBC.(MFDSLT)) *097 LM00148
TRANSFER TO BAIL *098 LM00149
LM00150
ERROR IN UFD, SKIP AND CONTINUE LM00151
LM00152
ERR2 PRNTER. *099 LM00153
PRMESS.(DERBC.(VAL2),B1B,DERBC.(USRSLT)) *100 LM00154
USRSLT = USRSLT + 1 *101 LM00155
TRANSFER TO READM *102 LM00156
LM00157
ERROR IN REMOVING FILE, CONTINUE LM00158
LM00159
ERR3 PRNTER. *103 LM00160
TRANSFER TO READU *104 LM00161
LM00162
END OF PROGRAM *105 LM00163
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00631 TRANSFER VECTOR LENGTH 00017 PROGRAM BEGINS 00141
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ARG 00031 1 DONTSW 00040 A 2 GOTCHA 00025 4 PRTSW 00060 A 2 UF 00074 A 1
ATTPB 00032 1 DRECS 00041 A 1 LKSTAT 00053 A 1 READM 00027 4 USR 00104 A 1
ATTPG 00033 1 EOF1 00021 4 MFD 00054 A 1 READU 00030 4 USRSLT 00105 1
B1B 00034 A 1 ERR1 00022 4 MFDSLT 00055 1 R 00061 A 1 VAL1 00106 1
BAIL 00020 4 ERR2 00023 4 MZE 00056 A 1 TESTSW 00062 A 2 VAL2 00107 1
CODE 00035 1 ERR3 00024 4 NERR3 00026 4 TRECS 00063 A 1 V 00112 A 1
DCNT 00036 A 1 FENCE 00042 A 1 NPNDSW 00057 A 2 UFD 00073 A 1 WH 00113 1
DEVICE 00037 1 FILE 00043 A 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BZEL 00002 1 CHNCOM 00003 1 COMARG 00004 1
DERBC 00005 1 EXIT 00006 1 GETENT 00007 1 .SETUP 00010 1 PRMESA 00011 1
PRMESS 00012 1 PRNTER 00013 1 SEARCH 00014 1 SETBRK 00015 1 UNLINK 00016 1
0ABSOLUTE CONSTANTS
00126 +255151465160 00127 +262163214360 00131 -203145606060 00132 -204331454262 00125 +252460606060
00134 -244543314542 00130 +302165256060 00135 -264664432460 00121 +000000000006 00120 +000000000005
00122 +000000000007 00123 +000000000017 00133 -204401040106 00114 +000000000000 00117 +000000000004
00136 -344547452434 00116 +000000000002 00140 -346325626334 00137 -344751456334 00115 +000000000001
00124 +233000000000
0STATEMENT DICTIONARY
00020 TXL -300527000523 00021 TXL -300523000523 00022 TXL -300566000565 00023 TXL -300604000603
00024 TXL -300623000622 00025 TXL -300440000436 00026 TXL -300565000563 00027 TXL -300215000207
00030 TXL -300277000271
0PROGRAM
N'R 001 LM00016
D'N V(2),UFD(7),USR(7),LKSTAT(7) 002 LM00017
V'S MFD = $M.F.D.$ 003 LM00019
00141 TSX +0 07400 4 00010 00054 -0 43326 3 32433
V'S UF = $U.F.D.$ 004 LM00020
00074 -2 43326 3 32433
V'S FILE = $(FILE)$ 005 LM00021
00043 -3 42631 4 32534
V'S TESTSW = 0B 006 LM00022
00062 +0 00000 0 00000
V'S NPNDSW = 0B 007 LM00023
00057 +0 00000 0 00000
V'S TRECS = 0 008 LM00024
00063 +0 00000 0 00000
V'S DRECS = 0 009 LM00025
00041 +0 00000 0 00000
V'S DCNT = 0 010 LM00026
00036 +0 00000 0 00000
V'S DONTSW = 0B 011 LM00027
00040 +0 00000 0 00000
V'S PRTSW = 0B 012 LM00028
00060 +0 00000 0 00000
V'S B1B = 60 5757575757K 013 LM00029
00034 -2 05757 5 75757
V'S R = 432 014 LM00031
00061 +0 00000 0 00660
V'S MZE = 4K11 015 LM00032
00056 -0 00000 0 00000
V'S FENCE = 777777777777K 016 LM00033
00042 -3 77777 7 77777
W'R COMARG.(1,ARG) .E. $(PRNT)$ 017 LM00036
00142 TSX +0 07400 4 00004 00143 TXH +3 00000 0 00115 00144 TXH +3 00000 0 00031 00145 SUB +0 40200 0 00137
00146 TNZ -0 10000 0 00152
PRTSW = 1B 018 LM00037
00147 CLA +0 50000 0 00115 00150 STO +0 60100 0 00060
O'R ARG .E. $(TEST)$ 019 LM00038
00151 TRA +0 02000 0 00161 00152 CLA +0 50000 0 00031 00153 SUB +0 40200 0 00140 00154 TNZ -0 10000 0 00161
PRTSW = 1B 020 LM00039
00155 CLA +0 50000 0 00115 00156 STO +0 60100 0 00060
TESTSW = 1B 021 LM00040
00157 CLA +0 50000 0 00115 00160 STO +0 60100 0 00062
E'L 022 LM00041
W'R COMARG.(2,ARG) .E. $(NPND)$, NPNDSW = 1B 023 LM00042
00161 TSX +0 07400 4 00004 00162 TXH +3 00000 0 00116 00163 TXH +3 00000 0 00031 00164 SUB +0 40200 0 00136
00165 TNZ -0 10000 0 00170 00166 CLA +0 50000 0 00115 00167 STO +0 60100 0 00057
SETBRK.(EOF1) 024 LM00043
00170 TSX +0 07400 4 00015 00171 TXH +3 00000 0 00021
ATTNAM.(V(2)...2,NERR3) 025 LM00047
00172 TSX +0 07400 4 00001 00173 TIX +2 00116 0 00110 00174 TXH +3 00000 0 00026
ATTACH.(MFD,FILE,ERR1) 026 LM00048
00175 TSX +0 07400 4 00000 00176 TXH +3 00000 0 00054 00177 TXH +3 00000 0 00043 00200 TXH +3 00000 0 00022
ATTPB = MFD 027 LM00049
00201 CLA +0 50000 0 00054 00202 STO +0 60100 0 00032
ATTPG = FILE 028 LM00050
00203 CLA +0 50000 0 00043 00204 STO +0 60100 0 00033
MFDSLT = 1 029 LM00054
00205 CLA +0 50000 0 00115 00206 STO +0 60100 0 00055
READM VAL1 = GETENT.(MFD,FILE,USR,MFDSLT) 030 LM00057
00207 TSX +0 07400 4 00007 00210 TXH +3 00000 0 00054 00211 TXH +3 00000 0 00043 00212 TXH +3 00000 0 00104
00213 TXH +3 00000 0 00055 00214 STO +0 60100 0 00106
W'R VAL1 .E. 4 031 LM00058
00215 CLA +0 50000 0 00106 00216 SUB +0 40200 0 00117 00217 TNZ -0 10000 0 00222
T'O EOF1 032 LM00059
00220 TRA +0 02000 0 00021
O'R VAL1 .G. 0 033 LM00060
00221 TRA +0 02000 0 00227 00222 CLA +0 50000 0 00106 00223 SUB +0 40200 0 00114 00224 TZE +0 10000 0 00227
00225 TMI -0 12000 0 00227
T'O ERR1 034 LM00061
00226 TRA +0 02000 0 00022
E'L 035 LM00062
MFDSLT = MFDSLT + 1 036 LM00063
00227 CLA +0 50000 0 00055 00230 ADD +0 40000 0 00115 00231 STO +0 60100 0 00055
W'R ((USR.E.0)).OR. 037 LM00064
1 (USR(1).E.FILE), T'O READM 037 LM00065
00232 CLA +0 50000 0 00103 00233 SUB +0 40200 0 00043 00234 TZE +0 10000 0 00240 00235 CLA +0 50000 0 00104
00236 SUB +0 40200 0 00114 00237 TNZ -0 10000 0 00241 00240 TRA +0 02000 0 00027
W'R ATTPB .NE. MFD .OR. ATTPG .NE. FILE 038 LM00070
00241 CLA +0 50000 0 00033 00242 SUB +0 40200 0 00043 00243 TNZ -0 10000 0 00247 00244 CLA +0 50000 0 00032
00245 SUB +0 40200 0 00054 00246 TZE +0 10000 0 00257
ATTPB = MFD 039 LM00071
00247 CLA +0 50000 0 00054 00250 STO +0 60100 0 00032
ATTPG = FILE 040 LM00072
00251 CLA +0 50000 0 00043 00252 STO +0 60100 0 00033
ATTACH.(MFD,FILE,ERR1) 041 LM00073
00253 TSX +0 07400 4 00000 00254 TXH +3 00000 0 00054 00255 TXH +3 00000 0 00043 00256 TXH +3 00000 0 00022
E'L 042 LM00074
USRSLT = 1 043 LM00075
00257 CLA +0 50000 0 00115 00260 STO +0 60100 0 00105
W'R USR .E. $ M1416$ 044 LM00079
00261 CLA +0 50000 0 00104 00262 SUB +0 40200 0 00133 00263 TNZ -0 10000 0 00267
DONTSW = 1B 045 LM00080
00264 CLA +0 50000 0 00115 00265 STO +0 60100 0 00040
O'E 046 LM00081
00266 TRA +0 02000 0 00271
DONTSW = 0B 047 LM00082
00267 CLA +0 50000 0 00114 00270 STO +0 60100 0 00040
E'L 048 LM00083
READU VAL2 = GETENT.(USR,USR(1),UFD,USRSLT) 049 LM00086
00271 TSX +0 07400 4 00007 00272 TXH +3 00000 0 00104 00273 TXH +3 00000 0 00103 00274 TXH +3 00000 0 00073
00275 TXH +3 00000 0 00105 00276 STO +0 60100 0 00107
W'R VAL2 .E.4 050 LM00087
00277 CLA +0 50000 0 00107 00300 SUB +0 40200 0 00117 00301 TNZ -0 10000 0 00304
T'O READM 051 LM00088
00302 TRA +0 02000 0 00027
O'R VAL2 .G.0 052 LM00089
00303 TRA +0 02000 0 00311 00304 CLA +0 50000 0 00107 00305 SUB +0 40200 0 00114 00306 TZE +0 10000 0 00311
00307 TMI -0 12000 0 00311
T'O ERR2 053 LM00090
00310 TRA +0 02000 0 00023
E'L 054 LM00091
USRSLT = USRSLT + 1 055 LM00092
00311 CLA +0 50000 0 00105 00312 ADD +0 40000 0 00115 00313 STO +0 60100 0 00105
DEVICE = (UFD(4).RS.15).A.7K 056 LM00093
00314 CAL -0 50000 0 00123 00315 STA +0 62100 0 00317 00316 CAL -0 50000 0 00067 00317 LGR -0 76500 0 00000
00320 ANA -0 32000 0 00122 00321 SLW +0 60200 0 00037
W'R ((UFD.E.0).AND.(UFD(1).E.0)).OR. 057 LM00094
1 (DEVICE.NE.0), 057 LM00095
2 T'O READU 057 LM00096
00322 CLA +0 50000 0 00037 00323 SUB +0 40200 0 00114 00324 TNZ -0 10000 0 00334 00325 CLA +0 50000 0 00072
00326 SUB +0 40200 0 00114 00327 TNZ -0 10000 0 00333 00330 CLA +0 50000 0 00073 00331 SUB +0 40200 0 00114
00332 TZE +0 10000 0 00334 00333 TRA +0 02000 0 00335 00334 TRA +0 02000 0 00030
W'R UFD(5) .E. UF .AND. UFD(6) .E. FILE 058 LM00098
00335 CLA +0 50000 0 00065 00336 SUB +0 40200 0 00043 00337 TNZ -0 10000 0 00353 00340 CLA +0 50000 0 00066
00341 SUB +0 40200 0 00074 00342 TNZ -0 10000 0 00353
UFD(5) = UFD(2) 059 LM00099
00343 CLA +0 50000 0 00071 00344 STO +0 60100 0 00066
UFD(6) = UFD(3) 060 LM00100
00345 CLA +0 50000 0 00070 00346 STO +0 60100 0 00065
UFD(2) = MFD 061 LM00101
00347 CLA +0 50000 0 00054 00350 STO +0 60100 0 00071
UFD(3) = FILE 062 LM00102
00351 CLA +0 50000 0 00043 00352 STO +0 60100 0 00070
E'L 063 LM00103
TRECS = TRECS + 1 064 LM00105
00353 CLA +0 50000 0 00063 00354 ADD +0 40000 0 00115 00355 STO +0 60100 0 00063
CODE = SEARCH.(UFD(2),UFD(3),LKSTAT,UFD(5),UFD(6)) 065 LM00107
00356 TSX +0 07400 4 00014 00357 TXH +3 00000 0 00071 00360 TXH +3 00000 0 00070 00361 TXH +3 00000 0 00053
00362 TXH +3 00000 0 00066 00363 TXH +3 00000 0 00065 00364 STO +0 60100 0 00035
WH = CODE 066 LM00108
00365 CLA +0 50000 0 00035 00366 STO +0 60100 0 00113
W'R CODE + ((LKSTAT(4).RS.15).A.7K) .E. 0 067 LM00109
00367 CAL -0 50000 0 00123 00370 STA +0 62100 0 00372 00371 CAL -0 50000 0 00047 00372 LGR -0 76500 0 00000
00373 ANA -0 32000 0 00122 00374 SLW +0 60200 0 00625 00375 CLA +0 50000 0 00035 00376 ADD +0 40000 0 00625
00377 SUB +0 40200 0 00114 00400 TNZ -0 10000 0 00431
CODE = SEARCH.(LKSTAT(2),LKSTAT(3),LKSTAT,LKSTAT(5), 068 LM00110
1 LKSTAT(6)) 068 LM00111
00401 TSX +0 07400 4 00014 00402 TXH +3 00000 0 00051 00403 TXH +3 00000 0 00050 00404 TXH +3 00000 0 00053
00405 TXH +3 00000 0 00046 00406 TXH +3 00000 0 00045 00407 STO +0 60100 0 00035
W'R (LKSTAT(4).RS.15).A.7K .E. 0, CODE = 5 069 LM00112
00410 CAL -0 50000 0 00123 00411 STA +0 62100 0 00413 00412 CAL -0 50000 0 00047 00413 LGR -0 76500 0 00000
00414 ANA -0 32000 0 00122 00415 SLW +0 60200 0 00625 00416 CLA +0 50000 0 00625 00417 SUB +0 40200 0 00114
00420 TNZ -0 10000 0 00423 00421 CLA +0 50000 0 00120 00422 STO +0 60100 0 00035
WH = WH .V. (CODE.LS.6) 070 LM00113
00423 CAL -0 50000 0 00121 00424 STA +0 62100 0 00426 00425 CAL -0 50000 0 00035 00426 ALS +0 76700 0 00000
00427 ORA -0 50100 0 00113 00430 SLW +0 60200 0 00113
E'L 071 LM00114
W'R CODE .NE. 0, T'O GOTCHA 072 LM00115
00431 CLA +0 50000 0 00035 00432 SUB +0 40200 0 00114 00433 TZE +0 10000 0 00435 00434 TRA +0 02000 0 00025
T'O READU 073 LM00116
00435 TRA +0 02000 0 00030
GOTCHA W'R PRTSW 074 LM00118
00436 NZT -0 52000 0 00060 00437 TRA +0 02000 0 00467
W'R NPNDSW.AND.DONTSW, T'O READU 075 LM00119
00440 NZT -0 52000 0 00040 00441 TRA +0 02000 0 00445 00442 NZT -0 52000 0 00057 00443 TRA +0 02000 0 00445
00444 TRA +0 02000 0 00030
PRMESS.(USR,B1B,USR(1),B1B,UFD,B1B,UFD(1),B1B, 076 LM00120
1 UFD(2),B1B,UFD(3),B1B,UFD(5),B1B,UFD(6),B1B,WH) 076 LM00121
00445 TSX +0 07400 4 00012 00446 TXH +3 00000 0 00104 00447 TXH +3 00000 0 00034 00450 TXH +3 00000 0 00103
00451 TXH +3 00000 0 00034 00452 TXH +3 00000 0 00073 00453 TXH +3 00000 0 00034 00454 TXH +3 00000 0 00072
00455 TXH +3 00000 0 00034 00456 TXH +3 00000 0 00071 00457 TXH +3 00000 0 00034 00460 TXH +3 00000 0 00070
00461 TXH +3 00000 0 00034 00462 TXH +3 00000 0 00066 00463 TXH +3 00000 0 00034 00464 TXH +3 00000 0 00065
00465 TXH +3 00000 0 00034 00466 TXH +3 00000 0 00113
E'L 077 LM00122
W'R DONTSW, T'O READU 078 LM00123
00467 NZT -0 52000 0 00040 00470 TRA +0 02000 0 00472 00471 TRA +0 02000 0 00030
DCNT = DCNT + 1 079 LM00124
00472 CLA +0 50000 0 00036 00473 ADD +0 40000 0 00115 00474 STO +0 60100 0 00036
W'R TESTSW, T'O READU 080 LM00125
00475 NZT -0 52000 0 00062 00476 TRA +0 02000 0 00500 00477 TRA +0 02000 0 00030
W'R ATTPB.NE.USR .OR. ATTPG .NE. USR(1) 081 LM00126
00500 CLA +0 50000 0 00033 00501 SUB +0 40200 0 00103 00502 TNZ -0 10000 0 00506 00503 CLA +0 50000 0 00032
00504 SUB +0 40200 0 00104 00505 TZE +0 10000 0 00516
ATTPB = USR 082 LM00127
00506 CLA +0 50000 0 00104 00507 STO +0 60100 0 00032
ATTPG = USR(1) 083 LM00128
00510 CLA +0 50000 0 00103 00511 STO +0 60100 0 00033
ATTACH.(USR,USR(1),ERR2) 084 LM00129
00512 TSX +0 07400 4 00000 00513 TXH +3 00000 0 00104 00514 TXH +3 00000 0 00103 00515 TXH +3 00000 0 00023
E'L 085 LM00130
UNLINK.(UFD,UFD(1),ERR3) 086 LM00131
00516 TSX +0 07400 4 00016 00517 TXH +3 00000 0 00073 00520 TXH +3 00000 0 00072 00521 TXH +3 00000 0 00024
T'O READU 087 LM00132
00522 TRA +0 02000 0 00030
EOF1 C'E 088 LM00136
BAIL ATTACH.(V(2),V(1),NERR3) 089 LM00137
00523 TSX +0 07400 4 00000 00524 TXH +3 00000 0 00110 00525 TXH +3 00000 0 00111 00526 TXH +3 00000 0 00026
W'R TESTSW, PRMESA.($WOULD HAVE$) 090 LM00138
00527 NZT -0 52000 0 00062 00530 TRA +0 02000 0 00534 00531 TSX +0 07400 4 00011 00532 TXH +3 00000 0 00135
00533 TXH +3 00000 0 00130
PRMESS.($UNLINKED$,BZEL.(DERBC.(DCNT)), $ LINKS$) 091 LM00139
00534 TSX +0 07400 4 00005 00535 TXH +3 00000 0 00036 00536 STO +0 60100 0 00625 00537 TSX +0 07400 4 00002
00540 TXH +3 00000 0 00625 00541 STO +0 60100 0 00625 00542 TSX +0 07400 4 00012 00543 TXH +3 00000 0 00134
00544 TXH +3 00000 0 00125 00545 TXH +3 00000 0 00625 00546 TXH +3 00000 0 00132
PRMESS. 092 LM00140
00547 TSX +0 07400 4 00012
PRMESS.(BZEL.(DERBC.(TRECS)),$ LINKS IN$) 093 LM00141
00550 TSX +0 07400 4 00005 00551 TXH +3 00000 0 00063 00552 STO +0 60100 0 00625 00553 TSX +0 07400 4 00002
00554 TXH +3 00000 0 00625 00555 STO +0 60100 0 00625 00556 TSX +0 07400 4 00012 00557 TXH +3 00000 0 00625
00560 TXH +3 00000 0 00132 00561 TXH +3 00000 0 00131
PRMESS. 094 LM00142
00562 TSX +0 07400 4 00012
NERR3 CHNCOM.(0) 095 LM00143
00563 TSX +0 07400 4 00003 00564 TXH +3 00000 0 00114
ERR1 PRNTER. 096 LM00147
00565 TSX +0 07400 4 00013
PRMESS.($FATAL ERROR$,DERBC.(VAL1),B1B,DERBC.(MFDSLT)) 097 LM00148
00566 TSX +0 07400 4 00005 00567 TXH +3 00000 0 00055 00570 STO +0 60100 0 00625 00571 TSX +0 07400 4 00005
00572 TXH +3 00000 0 00106 00573 STO +0 60100 0 00626 00574 TSX +0 07400 4 00012 00575 TXH +3 00000 0 00127
00576 TXH +3 00000 0 00126 00577 TXH +3 00000 0 00626 00600 TXH +3 00000 0 00034 00601 TXH +3 00000 0 00625
T'O BAIL 098 LM00149
00602 TRA +0 02000 0 00020
ERR2 PRNTER. 099 LM00153
00603 TSX +0 07400 4 00013
PRMESS.(DERBC.(VAL2),B1B,DERBC.(USRSLT)) 100 LM00154
00604 TSX +0 07400 4 00005 00605 TXH +3 00000 0 00105 00606 STO +0 60100 0 00626 00607 TSX +0 07400 4 00005
00610 TXH +3 00000 0 00107 00611 STO +0 60100 0 00625 00612 TSX +0 07400 4 00012 00613 TXH +3 00000 0 00625
00614 TXH +3 00000 0 00034 00615 TXH +3 00000 0 00626
USRSLT = USRSLT + 1 101 LM00155
00616 CLA +0 50000 0 00105 00617 ADD +0 40000 0 00115 00620 STO +0 60100 0 00105
T'O READM 102 LM00156
00621 TRA +0 02000 0 00027
ERR3 PRNTER. 103 LM00160
00622 TSX +0 07400 4 00013
T'O READU 104 LM00161
00623 TRA +0 02000 0 00030
E'M 105 LM00163
00624 TSX +0 07400 4 00006
1 MAD PROGRAM LISTING ... ... ... FILE SEARCH MAD 02/15/68 1512.1
-
PROGRAM TO SEARCH M.F.D./U.F.D. FOR FILES LM00001
D.R. WIDRIG NOV. 1966 LM00002
LM00003
THIS PROGRAM TRIES TO IMPROVE ON SPEED OF LM00004
SEARCHES OVER THE ENTIRE FILE HIERARCHY. A LM00005
SMALL AMOUNT OF ASSOCIATIVE MEMORY TRIES TO LM00006
KEEP ACTIVE OR USEFUL DIRECTORIES IN CORE. LM00007
NOTE THAT THIS USES ALL OF MEMORY AS BUFFER SPACE. LM00008
LM00009
EXTERNAL FUNCTION (PB,PG,ENTRY,N1,N2) *001 LM00010
ENTRY TO SEARCH. *002 LM00011
READSW = 0B *003 LM00012
TRANSFER TO GETARG *004 LM00013
LM00014
SAMPLE CALL IS: LM00015
ERCODE = SEARCH.(PROB,PROG,ENTRY,ALPHA,BETA) LM00016
LM00017
IF ERCODE IS ZERO, THEN ENTRY(0) = ALPHA LM00018
ENTRY(1) = BETA LM00019
ENTRY(2) = DLM LM00020
ENTRY(3) = DLU + AUTHNO LM00021
ETC. LM00022
NON-ZERO ERROR CODES INCLUDE: LM00023
1. PROB-PROG NOT IN M.F.D. LM00024
2. ALPHA-BETA NOT IN PROB-PROG LM00025
3. I/O ERROR LM00026
LM00027
ENTRY TO GETENT. *005 LM00028
READSW = 1B *006 LM00029
TRANSFER TO GETARG *007 LM00030
LM00031
SAMPLE CALL IS: LM00032
ERCODE = GETENT.(PROB,PROG,ENTRY,N) LM00033
LM00034
IF ERCODE IS ZERO, THEN ENTRY(0) = ALPHA OF NTH SLOT LM00035
ENTRY(1) = BETA OF NTH SLOT LM00036
ENTRY(2) = DLM LM00037
ENTRY(3) = DLU + AUTHNO LM00038
ETC. LM00039
NON-ZERO ERROR CODES INCLUDE: LM00040
1. PROB-PROG NOT IN M.F.D. LM00041
2. NOT USED LM00042
3. I/O ERROR LM00043
4. EOF REACHED OR EXCEEDED LM00044
AN 'N' OF ZERO IMPLIES THE NEXT SLOT PAST THE LM00045
CURRENT SLOT. THE CURRENT SLOT IS RESET TO THE LM00046
FIRST SLOT EVERY TIME THE DIRECTORY LM00047
IS PAGED IN OR AFTER EVERY EOF. LM00048
LM00049
NORMAL MODE IS INTEGER *008 LM00050
BOOLEAN FIRST,READSW *009 LM00051
LM00052
DIMENSION DIR(0),ATTDIR(1) *010 LM00053
DIMENSION LTH(11),FPB(11),FPG(11),TIME(11),REL(11) *011 LM00054
LM00055
VECTOR VALUES FIRST = 1B *012 LM00056
VECTOR VALUES MZE = -0 *013 LM00057
VECTOR VALUES NSLOTS = 425 *014 LM00058
VECTOR VALUES MFD = $M.F.D.$,$(FILE)$ *015 LM00059
EQUIVALENCE (FILE,MFD(1)),(ENTNUM,FNAME1) *016 LM00060
VECTOR VALUES UFD = $U.F.D.$ *017 LM00061
LM00062
SHORTEN SUBROUTINE LINKAGE, SETUP FOR SEARCH LM00063
LM00064
GETARG FPROBN = PB *018 LM00065
FPROBT = FPROBN *019 LM00066
FPROGN = PG *020 LM00067
FPROGT = FPROGN *021 LM00068
FNAME1 = N1 *022 LM00069
FNAME2 = N2 *023 LM00070
TIME = TIME + 1 *024 LM00071
OLDEST = TIME *025 LM00072
LM00073
IF SEARCHING, MAKE SPECIAL CHECKS LM00074
LM00075
WHENEVER .NOT. READSW *026 LM00076
WHENEVER (FNAME1.E.UFD) .AND. (FNAME2.E.FILE) *027 LM00077
FNAME1 = FPROBN *028 LM00078
FNAME2 = FPROGN *029 LM00079
FPROBN = MFD *030 LM00080
FPROGN = FILE *031 LM00081
END OF CONDITIONAL *032 LM00082
END OF CONDITIONAL *033 LM00083
LM00084
IF FIRST CALL, SET UP WORK AREAS LM00085
LM00086
WHENEVER FIRST *034 LM00087
FIRST = 0B *035 LM00088
LMAX = 7 * NSLOTS *036 LM00089
NDIR = (1K5 - GETMEM.(0))/LMAX *037 LM00090
GETBUF.(DIR,LMAX*NDIR) *038 LM00091
LM00092
CLEAR OUT ASSOCIATIVE MEMORY LM00093
LM00094
THROUGH LOOP1, FOR I = 1,1,(I .G. NDIR) *039 LM00095
FPB(I) = 0 *040 LM00096
FPG(I) = 0 *041 LM00097
TIME(I) = 0 *042 LM00098
LOOP1 CONTINUE *043 LM00099
END OF CONDITIONAL *044 LM00100
LM00101
SEE IF DIRECTORY IS ALREADY KNOWN LM00102
LM00103
THROUGH LOOP2, FOR I = 1,1,(I .G. NDIR) *045 LM00104
WHENEVER (FPROBN.E.FPB(I)) .AND. (FPROGN.E.FPG(I)) *046 LM00105
SLOT = I *047 LM00106
TRANSFER TO KNOWN *048 LM00107
LM00108
KEEP TRACK OF MOST USELESS ENTRY LM00109
LM00110
OR WHENEVER TIME(I) .L. OLDEST *049 LM00111
OLDEST = TIME(I) *050 LM00112
SLOT = I *051 LM00113
END OF CONDITIONAL *052 LM00114
LOOP2 CONTINUE *053 LM00115
LM00116
NOT KNOWN, REPLACE MOST USELESS ENTRY LM00117
WITH ENTRY FROM M.F.D. LM00118
LM00119
ATTNAM.(ATTDIR(1)...2) *054 LM00120
WHENEVER (ATTDIR(1) .NE. MFD) *055 LM00121
LM00122
SPECIAL HELPFUL ACTION IF ATTACHED DIRECTORY LM00123
AND TARGET DIRECTORY ARE THE SAME LM00124
LM00125
WHENEVER (ATTDIR(1).E.FPROBN) .AND. (ATTDIR(0).E.FPROGN) *056 LM00126
FPROBT = UFD *057 LM00127
FPROGT = FILE *058 LM00128
TRANSFER TO GULPIT *059 LM00129
END OF CONDITIONAL *060 LM00130
LM00131
NOT CURRENTLY IN M.F.D., MOVE INTO IT LM00132
LM00133
ATTACH.(MFD,FILE) *061 LM00134
OPEN.($R$,FPROBN,FPROGN,MZE,MZE,ERR1) *062 LM00135
LM00136
ATTACH BACK AND CONTINUE LM00137
LM00138
ATTACH.(ATTDIR(1),ATTDIR(0)) *063 LM00139
TRANSFER TO OPENED *064 LM00140
LM00141
U.F.D. NOT IN M.F.D., TOO BAD LM00142
LM00143
ERR1 ATTACH.(ATTDIR(1),ATTDIR(0)) *065 LM00144
TRANSFER TO ERCOD1 *066 LM00145
OTHERWISE *067 LM00146
GULPIT OPEN.($R$,FPROBT,FPROGT,MZE,MZE,ERCOD1) *068 LM00147
END OF CONDITIONAL *069 LM00148
LM00149
READ WHOLE DIRECTORY IN ONE GULP LM00150
LM00151
OPENED LTH = LMAX *070 LM00152
RDFILE.(FPROBT,FPROGT,4,DIR(DIR+SLOT*LMAX)...LMAX, *071 LM00153
1 MZE,LTH,ERCOD3) *071 LM00154
CLOSE.(FPROBT,FPROGT,ERCOD3) *072 LM00155
LM00156
SET UP THIS ENTRY LM00157
LM00158
LTH(SLOT) = LTH *073 LM00159
FPB(SLOT) = FPROBN *074 LM00160
FPG(SLOT) = FPROGN *075 LM00161
REL(SLOT) = - 1 *076 LM00162
LM00163
DIRECTORY IS IN CORE, SCAN THROUGH IT LM00164
LM00165
KNOWN BASE = DIR + SLOT*LMAX *077 LM00166
BOTTOM = BASE - LTH(SLOT) *078 LM00167
TIME(SLOT) = TIME *079 LM00168
LM00169
IF READING ENTRIES, CHECK SLOT NUMBER LM00170
LM00171
WHENEVER READSW *080 LM00172
WHENEVER ENTNUM .E. 0 *081 LM00173
REL(SLOT) = REL(SLOT) + 1 *082 LM00174
OTHERWISE *083 LM00175
REL(SLOT) = ENTNUM - 1 *084 LM00176
END OF CONDITIONAL *085 LM00177
LM00178
GET AND VERIFY SLOT POINTER LM00179
LM00180
I = BASE - REL(SLOT) * 7 *086 LM00181
WHENEVER I .G. BOTTOM *087 LM00182
TRANSFER TO MOVE *088 LM00183
OTHERWISE *089 LM00184
REL(SLOT) = -1 *090 LM00185
TRANSFER TO ERCOD4 *091 LM00186
END OF CONDITIONAL *092 LM00187
END OF CONDITIONAL *093 LM00188
LM00189
SEARCH THROUGH EVERY ENTRY LM00190
LM00191
THROUGH LOOP4, FOR I = BASE,-7,(I .LE. BOTTOM) *094 LM00192
WHENEVER (DIR(I).NE.FNAME1) .OR. (DIR(I-1).NE.FNAME2), *095 LM00193
1 TRANSFER TO LOOP4 *095 LM00194
LM00195
VIOLA, WE HAVE FOUND IT LM00196
LM00197
MOVE THROUGH LOOP3, FOR J = 0,1,(J .GE. 7) *096 LM00198
ENTRY(J) = DIR(I-J) *097 LM00199
LOOP3 CONTINUE *098 LM00200
TRANSFER TO ERCOD0 *099 LM00201
LOOP4 CONTINUE *100 LM00202
LM00203
ENTRY IS NOT THERE, TOO BAD LM00204
LM00205
TRANSFER TO ERCOD2 *101 LM00206
LM00207
ERROR HANDLING LM00208
LM00209
ERCOD4 FUNCTION RETURN 4 *102 LM00210
LM00211
ERCOD3 FUNCTION RETURN 3 *103 LM00212
LM00213
ERCOD2 FUNCTION RETURN 2 *104 LM00214
LM00215
ERCOD1 FUNCTION RETURN 1 *105 LM00216
LM00217
ERCOD0 FUNCTION RETURN 0 *106 LM00218
LM00219
END OF FUNCTION *107 LM00220
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00640 TRANSFER VECTOR LENGTH 00010 PROGRAM BEGINS 00162
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
GETENT 00171 0 SEARCH 00163 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ATTDIR 00031 A 1 ERCOD4 00020 4 FPROBT 00070 1 LOOP1 00010 4 NSLOTS 00114 A 1
BASE 00032 1 ERR1 00021 4 FPROGN 00071 1 LOOP2 00010 4 OLDEST 00115 1
BOTTOM 00033 1 FILE 00011 1 FPROGT 00072 1 LOOP3 00010 4 OPENED 00027 4
DIR 00034 A 1 FIRST 00035 A 2 GETARG 00022 4 LOOP4 00025 4 READSW 00116 2
ENTNUM 00013 1 FNAME1 00013 1 GULPIT 00023 4 LTH 00111 A 1 REL 00132 A 1
ERCOD0 00014 4 FNAME2 00036 1 I 00073 1 MFD 00012 A 1 SLOT 00133 1
ERCOD1 00015 4 FPB 00052 A 1 J 00074 1 MOVE 00026 4 TIME 00147 A 1
ERCOD2 00016 4 FPG 00066 A 1 KNOWN 00024 4 MZE 00112 A 1 UFD 00150 A 1
ERCOD3 00017 4 FPROBN 00067 1 LMAX 00075 1 NDIR 00113 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 CLOSE 00002 1 EXIT 00003 1 GETBUF 00004 1
GETMEM 00005 1 OPEN 00006 1 RDFILE 00007 1
0ABSOLUTE CONSTANTS
00154 +000000000003 00155 +000000000004 00161 -116060606060 00153 +000000000002 00157 +000000100000
00156 +000000000007 00151 +000000000000 00152 +000000000001 00160 +233000000000
0STATEMENT DICTIONARY
00014 TXL -300612000610 00015 TXL -300610000606 00016 TXL -300606000604 00017 TXL -300604000602
00020 TXL -300602000600 00021 TXL -300406000403 00022 TXL -300200000176 00023 TXL -300417000410
00024 TXL -300462000455 00025 TXL -300577000576 00026 TXL -300566000554 00027 TXL -300421000417
0PROGRAM
EXTERNAL FUNCTION (PB,PG,ENTRY,N1,N2) 001 LM00010
E'O SEARCH. 002 LM00011
00162 TRA +0 02000 0 00165 00163 SXA +0 63400 2 00613 00164 TSX +0 07400 2 00613
READSW = 0B 003 LM00012
00165 CLA +0 50000 0 00151 00166 STO +0 60100 0 00116
T'O GETARG 004 LM00013
00167 TRA +0 02000 0 00022
E'O GETENT. 005 LM00028
00170 TRA +0 02000 0 00173 00171 SXA +0 63400 2 00613 00172 TSX +0 07400 2 00613
READSW = 1B 006 LM00029
00173 CLA +0 50000 0 00152 00174 STO +0 60100 0 00116
T'O GETARG 007 LM00030
00175 TRA +0 02000 0 00022
N'R 008 LM00050
B'N FIRST,READSW 009 LM00051
D'N DIR(0),ATTDIR(1) 010 LM00053
D'N LTH(11),FPB(11),FPG(11),TIME(11),REL(11) 011 LM00054
V'S FIRST = 1B 012 LM00056
00035 +0 00000 0 00001
V'S MZE = -0 013 LM00057
00112 -0 00000 0 00000
V'S NSLOTS = 425 014 LM00058
00114 +0 00000 0 00651
V'S MFD = $M.F.D.$,$(FILE)$ 015 LM00059
00011 -3 42631 4 32534 00012 -0 43326 3 32433
E'E (FILE,MFD(1)),(ENTNUM,FNAME1) 016 LM00060
V'S UFD = $U.F.D.$ 017 LM00061
00150 -2 43326 3 32433
GETARG FPROBN = PB 018 LM00065
00176 CLA +0 50000 0 00024 00177 STO +0 60100 0 00067
FPROBT = FPROBN 019 LM00066
00200 CLA +0 50000 0 00067 00201 STO +0 60100 0 00070
FPROGN = PG 020 LM00067
00202 CLA +0 50000 0 00024 00203 STO +0 60100 0 00071
FPROGT = FPROGN 021 LM00068
00204 CLA +0 50000 0 00071 00205 STO +0 60100 0 00072
FNAME1 = N1 022 LM00069
00206 CLA +0 50000 0 00024 00207 STO +0 60100 0 00013
FNAME2 = N2 023 LM00070
00210 CLA +0 50000 0 00024 00211 STO +0 60100 0 00036
TIME = TIME + 1 024 LM00071
00212 CLA +0 50000 0 00147 00213 ADD +0 40000 0 00152 00214 STO +0 60100 0 00147
OLDEST = TIME 025 LM00072
00215 CLA +0 50000 0 00147 00216 STO +0 60100 0 00115
W'R .NOT. READSW 026 LM00076
00217 ZET +0 52000 0 00116 00220 TRA +0 02000 0 00237
W'R (FNAME1.E.UFD) .AND. (FNAME2.E.FILE) 027 LM00077
00221 CLA +0 50000 0 00036 00222 SUB +0 40200 0 00011 00223 TNZ -0 10000 0 00237 00224 CLA +0 50000 0 00013
00225 SUB +0 40200 0 00150 00226 TNZ -0 10000 0 00237
FNAME1 = FPROBN 028 LM00078
00227 CLA +0 50000 0 00067 00230 STO +0 60100 0 00013
FNAME2 = FPROGN 029 LM00079
00231 CLA +0 50000 0 00071 00232 STO +0 60100 0 00036
FPROBN = MFD 030 LM00080
00233 CLA +0 50000 0 00012 00234 STO +0 60100 0 00067
FPROGN = FILE 031 LM00081
00235 CLA +0 50000 0 00011 00236 STO +0 60100 0 00071
E'L 032 LM00082
E'L 033 LM00083
W'R FIRST 034 LM00087
00237 NZT -0 52000 0 00035 00240 TRA +0 02000 0 00305
FIRST = 0B 035 LM00088
00241 CLA +0 50000 0 00151 00242 STO +0 60100 0 00035
LMAX = 7 * NSLOTS 036 LM00089
00243 LDQ +0 56000 0 00156 00244 MPY +0 20000 0 00114 00245 STQ -0 60000 0 00075
NDIR = (1K5 - GETMEM.(0))/LMAX 037 LM00090
00246 TSX +0 07400 4 00005 00247 TXH +3 00000 0 00151 00250 CHS +0 76000 0 00002 00251 ADD +0 40000 0 00157
00252 LRS +0 76500 0 00043 00253 DVP +0 22100 0 00075 00254 STQ -0 60000 0 00113
GETBUF.(DIR,LMAX*NDIR) 038 LM00091
00255 LDQ +0 56000 0 00075 00256 MPY +0 20000 0 00113 00257 STQ -0 60000 0 00635 00260 TSX +0 07400 4 00004
00261 TXH +3 00000 0 00034 00262 TXH +3 00000 0 00635
T'H LOOP1, FOR I = 1,1,(I .G. NDIR) 039 LM00095
00263 CLA +0 50000 0 00152 00264 STO +0 60100 0 00073 00265 TRA +0 02000 0 00271 00266 CLA +0 50000 0 00073
00267 ADD +0 40000 0 00152 00270 STO +0 60100 0 00073 00271 CLA +0 50000 0 00073 00272 SUB +0 40200 0 00113
00273 TZE +0 10000 0 00275 00274 TPL +0 12000 0 00305
FPB(I) = 0 040 LM00096
00275 LXA +0 53400 1 00073 00276 CLA +0 50000 0 00151 00277 STO +0 60100 1 00052
FPG(I) = 0 041 LM00097
00300 CLA +0 50000 0 00151 00301 STO +0 60100 1 00066
TIME(I) = 0 042 LM00098
00302 CLA +0 50000 0 00151 00303 STO +0 60100 1 00147
LOOP1 C'E 043 LM00099
00304 TRA +0 02000 0 00266
E'L 044 LM00100
T'H LOOP2, FOR I = 1,1,(I .G. NDIR) 045 LM00104
00305 CLA +0 50000 0 00152 00306 STO +0 60100 0 00073 00307 TRA +0 02000 0 00313 00310 CLA +0 50000 0 00073
00311 ADD +0 40000 0 00152 00312 STO +0 60100 0 00073 00313 CLA +0 50000 0 00073 00314 SUB +0 40200 0 00113
00315 TZE +0 10000 0 00317 00316 TPL +0 12000 0 00345
W'R (FPROBN.E.FPB(I)) .AND. (FPROGN.E.FPG(I)) 046 LM00105
00317 LXA +0 53400 2 00073 00320 CLA +0 50000 0 00071 00321 SUB +0 40200 2 00066 00322 TNZ -0 10000 0 00332
00323 CLA +0 50000 0 00067 00324 SUB +0 40200 2 00052 00325 TNZ -0 10000 0 00332
SLOT = I 047 LM00106
00326 CLA +0 50000 0 00073 00327 STO +0 60100 0 00133
T'O KNOWN 048 LM00107
00330 TRA +0 02000 0 00024
O'R TIME(I) .L. OLDEST 049 LM00111
00331 TRA +0 02000 0 00344 00332 LXA +0 53400 1 00073 00333 CLA +0 50000 1 00147 00334 SUB +0 40200 0 00115
00335 TZE +0 10000 0 00344 00336 TPL +0 12000 0 00344
OLDEST = TIME(I) 050 LM00112
00337 LXA +0 53400 2 00073 00340 CLA +0 50000 2 00147 00341 STO +0 60100 0 00115
SLOT = I 051 LM00113
00342 CLA +0 50000 0 00073 00343 STO +0 60100 0 00133
E'L 052 LM00114
LOOP2 C'E 053 LM00115
00344 TRA +0 02000 0 00310
ATTNAM.(ATTDIR(1)...2) 054 LM00120
00345 TSX +0 07400 4 00001 00346 TIX +2 00153 0 00030
W'R (ATTDIR(1) .NE. MFD) 055 LM00121
00347 CLA +0 50000 0 00030 00350 SUB +0 40200 0 00012 00351 TZE +0 10000 0 00410
W'R (ATTDIR(1).E.FPROBN) .AND. (ATTDIR(0).E.FPROGN) 056 LM00126
00352 CLA +0 50000 0 00031 00353 SUB +0 40200 0 00071 00354 TNZ -0 10000 0 00365 00355 CLA +0 50000 0 00030
00356 SUB +0 40200 0 00067 00357 TNZ -0 10000 0 00365
FPROBT = UFD 057 LM00127
00360 CLA +0 50000 0 00150 00361 STO +0 60100 0 00070
FPROGT = FILE 058 LM00128
00362 CLA +0 50000 0 00011 00363 STO +0 60100 0 00072
T'O GULPIT 059 LM00129
00364 TRA +0 02000 0 00023
E'L 060 LM00130
ATTACH.(MFD,FILE) 061 LM00134
00365 TSX +0 07400 4 00000 00366 TXH +3 00000 0 00012 00367 TXH +3 00000 0 00011
OPEN.($R$,FPROBN,FPROGN,MZE,MZE,ERR1) 062 LM00135
00370 TSX +0 07400 4 00006 00371 TXH +3 00000 0 00161 00372 TXH +3 00000 0 00067 00373 TXH +3 00000 0 00071
00374 TXH +3 00000 0 00112 00375 TXH +3 00000 0 00112 00376 TXH +3 00000 0 00021
ATTACH.(ATTDIR(1),ATTDIR(0)) 063 LM00139
00377 TSX +0 07400 4 00000 00400 TXH +3 00000 0 00030 00401 TXH +3 00000 0 00031
T'O OPENED 064 LM00140
00402 TRA +0 02000 0 00027
ERR1 ATTACH.(ATTDIR(1),ATTDIR(0)) 065 LM00144
00403 TSX +0 07400 4 00000 00404 TXH +3 00000 0 00030 00405 TXH +3 00000 0 00031
T'O ERCOD1 066 LM00145
00406 TRA +0 02000 0 00015
O'E 067 LM00146
00407 TRA +0 02000 0 00417
GULPIT OPEN.($R$,FPROBT,FPROGT,MZE,MZE,ERCOD1) 068 LM00147
00410 TSX +0 07400 4 00006 00411 TXH +3 00000 0 00161 00412 TXH +3 00000 0 00070 00413 TXH +3 00000 0 00072
00414 TXH +3 00000 0 00112 00415 TXH +3 00000 0 00112 00416 TXH +3 00000 0 00015
E'L 069 LM00148
OPENED LTH = LMAX 070 LM00152
00417 CLA +0 50000 0 00075 00420 STO +0 60100 0 00111
RDFILE.(FPROBT,FPROGT,4,DIR(DIR+SLOT*LMAX)...LMAX, 071 LM00153
1 MZE,LTH,ERCOD3) 071 LM00154
00421 LDQ +0 56000 0 00133 00422 MPY +0 20000 0 00075 00423 XCA +0 13100 0 00000 00424 ADD +0 40000 0 00034
00425 SUB +0 40200 0 00426 00426 TXH +3 00000 0 00034 00427 STA +0 62100 0 00434 00430 TSX +0 07400 4 00007
00431 TXH +3 00000 0 00070 00432 TXH +3 00000 0 00072 00433 TXH +3 00000 0 00155 00434 TIX +2 00075 0 00000
00435 TXH +3 00000 0 00112 00436 TXH +3 00000 0 00111 00437 TXH +3 00000 0 00017
CLOSE.(FPROBT,FPROGT,ERCOD3) 072 LM00155
00440 TSX +0 07400 4 00002 00441 TXH +3 00000 0 00070 00442 TXH +3 00000 0 00072 00443 TXH +3 00000 0 00017
LTH(SLOT) = LTH 073 LM00159
00444 LXA +0 53400 1 00133 00445 CLA +0 50000 0 00111 00446 STO +0 60100 1 00111
FPB(SLOT) = FPROBN 074 LM00160
00447 CLA +0 50000 0 00067 00450 STO +0 60100 1 00052
FPG(SLOT) = FPROGN 075 LM00161
00451 CLA +0 50000 0 00071 00452 STO +0 60100 1 00066
REL(SLOT) = - 1 076 LM00162
00453 CLS +0 50200 0 00152 00454 STO +0 60100 1 00132
KNOWN BASE = DIR + SLOT*LMAX 077 LM00166
00455 LDQ +0 56000 0 00133 00456 MPY +0 20000 0 00075 00457 XCA +0 13100 0 00000 00460 ADD +0 40000 0 00034
00461 STO +0 60100 0 00032
BOTTOM = BASE - LTH(SLOT) 078 LM00167
00462 LXA +0 53400 2 00133 00463 CLA +0 50000 0 00032 00464 SUB +0 40200 2 00111 00465 STO +0 60100 0 00033
TIME(SLOT) = TIME 079 LM00168
00466 LXA +0 53400 1 00133 00467 CLA +0 50000 0 00147 00470 STO +0 60100 1 00147
W'R READSW 080 LM00172
00471 NZT -0 52000 0 00116 00472 TRA +0 02000 0 00527
W'R ENTNUM .E. 0 081 LM00173
00473 CLA +0 50000 0 00013 00474 SUB +0 40200 0 00151 00475 TNZ -0 10000 0 00502
REL(SLOT) = REL(SLOT) + 1 082 LM00174
00476 CLA +0 50000 1 00132 00477 ADD +0 40000 0 00152 00500 STO +0 60100 1 00132
O'E 083 LM00175
00501 TRA +0 02000 0 00506
REL(SLOT) = ENTNUM - 1 084 LM00176
00502 CLA +0 50000 0 00013 00503 SUB +0 40200 0 00152 00504 LXA +0 53400 1 00133 00505 STO +0 60100 1 00132
E'L 085 LM00177
I = BASE - REL(SLOT) * 7 086 LM00181
00506 LXA +0 53400 1 00133 00507 LDQ +0 56000 1 00132 00510 MPY +0 20000 0 00156 00511 XCA +0 13100 0 00000
00512 CHS +0 76000 0 00002 00513 ADD +0 40000 0 00032 00514 STO +0 60100 0 00073
W'R I .G. BOTTOM 087 LM00182
00515 CLA +0 50000 0 00073 00516 SUB +0 40200 0 00033 00517 TZE +0 10000 0 00523 00520 TMI -0 12000 0 00523
T'O MOVE 088 LM00183
00521 TRA +0 02000 0 00026
O'E 089 LM00184
00522 TRA +0 02000 0 00527
REL(SLOT) = -1 090 LM00185
00523 CLS +0 50200 0 00152 00524 LXA +0 53400 1 00133 00525 STO +0 60100 1 00132
T'O ERCOD4 091 LM00186
00526 TRA +0 02000 0 00020
E'L 092 LM00187
E'L 093 LM00188
T'H LOOP4, FOR I = BASE,-7,(I .LE. BOTTOM) 094 LM00192
00527 CLA +0 50000 0 00032 00530 STO +0 60100 0 00073 00531 TRA +0 02000 0 00535 00532 CLS +0 50200 0 00156
00533 ADD +0 40000 0 00073 00534 STO +0 60100 0 00073 00535 CLA +0 50000 0 00073 00536 SUB +0 40200 0 00033
00537 TZE +0 10000 0 00577 00540 TMI -0 12000 0 00577
W'R (DIR(I).NE.FNAME1) .OR. (DIR(I-1).NE.FNAME2), 095 LM00193
1 T'O LOOP4 095 LM00194
00541 CLA +0 50000 0 00073 00542 SUB +0 40200 0 00152 00543 PAX +0 73400 1 00000 00544 CLA +0 50000 1 00034
00545 SUB +0 40200 0 00036 00546 TNZ -0 10000 0 00553 00547 LXA +0 53400 1 00073 00550 CLA +0 50000 1 00034
00551 SUB +0 40200 0 00013 00552 TZE +0 10000 0 00554 00553 TRA +0 02000 0 00025
MOVE T'H LOOP3, FOR J = 0,1,(J .GE. 7) 096 LM00198
00554 CLA +0 50000 0 00151 00555 STO +0 60100 0 00074 00556 TRA +0 02000 0 00562 00557 CLA +0 50000 0 00074
00560 ADD +0 40000 0 00152 00561 STO +0 60100 0 00074 00562 CLA +0 50000 0 00074 00563 SUB +0 40200 0 00156
00564 TZE +0 10000 0 00575 00565 TPL +0 12000 0 00575
ENTRY(J) = DIR(I-J) 097 LM00199
00566 CLA +0 50000 0 00073 00567 SUB +0 40200 0 00074 00570 LXA +0 53400 1 00074 00571 PAX +0 73400 2 00000
00572 CLA +0 50000 2 00034 00573 STO +0 60100 1 00024
LOOP3 C'E 098 LM00200
00574 TRA +0 02000 0 00557
T'O ERCOD0 099 LM00201
00575 TRA +0 02000 0 00014
LOOP4 C'E 100 LM00202
00576 TRA +0 02000 0 00532
T'O ERCOD2 101 LM00206
00577 TRA +0 02000 0 00016
ERCOD4 F'N 4 102 LM00210
00600 CLA +0 50000 0 00155 00601 TRA +0 02000 0 00631
ERCOD3 F'N 3 103 LM00212
00602 CLA +0 50000 0 00154 00603 TRA +0 02000 0 00631
ERCOD2 F'N 2 104 LM00214
00604 CLA +0 50000 0 00153 00605 TRA +0 02000 0 00631
ERCOD1 F'N 1 105 LM00216
00606 CLA +0 50000 0 00152 00607 TRA +0 02000 0 00631
ERCOD0 F'N 0 106 LM00218
00610 CLA +0 50000 0 00151 00611 TRA +0 02000 0 00631
E'N 107 LM00220
00612 TSX +0 07400 4 00003 00613 TXH +3 00000 0 00000 00614 SXD -0 63400 1 00613 00615 SXA +0 63400 4 00631
00616 CLA +0 50000 4 00001 00617 STA +0 62100 0 00176 00620 CLA +0 50000 4 00002 00621 STA +0 62100 0 00202
00622 CLA +0 50000 4 00003 00623 STA +0 62100 0 00573 00624 CLA +0 50000 4 00004 00625 STA +0 62100 0 00206
00626 CLA +0 50000 4 00005 00627 STA +0 62100 0 00210 00630 TRA +0 02000 2 00001 00631 AXT +0 77400 4 00000
00632 LXA +0 53400 2 00613 00633 LXD -0 53400 1 00613 00634 TRA +0 02000 4 00001
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
D.R. WIDRIG JUNE 1966
00004 ENTRY GETBUF GET A BUFFER
EXTERN GETMEM,SETMEM
CALLING SEQUENCE IS.. GETBUF.(BUFF,N)
UPON RETURN, THE CALLER MAY USE THE
AREA BY STATEMENTS OF THE FORM.. X = BUFF(BUFF+I)
WHERE THE I'TH ELEMENT IS INTENDED
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
LINKAGE DIRECTOR
00002 000000000000
00003 272563226426
00004 0636 00 4 00024 GETBUF SCA X4,4 SAVE LINKAGE
00005 0634 00 1 00025 SXA X1,1 AND IR1
00006 0535 00 1 00024 LAC X4,1 SET IR1 TO IR4 (THE CALLER)
00007 0074 00 4 00000 TSX GETMEM,4 GET CURRENT MEMORY BOUND
00010 0601 00 0 00027 STO OLDMEM SAVE OLD MEMORY BOUND
00011 0400 60 1 00002 ADD* 2,1 ALLOW FOR USER'S DEMAND
00012 0734 00 4 00000 PAX 0,4 SAVE COMPLEMENT OF THIS VALUE
00013 -0636 00 4 00020 SCD TXI,4 ..
00014 0400 00 0 00030 ADD =1 ALLOW FOR BUFF(0)
00015 0074 00 4 00001 TSX SETMEM,4 RAISE THE ROOF
00016 -0500 00 1 00001 CAL 1,1 GET BASE POINTER
00017 0734 00 4 00000 PAX 0,4 ..
00020 1 00000 4 00021 TXI TXI *+1,4,** DECREMENT BY AMOUNT OF STORAGE
00021 0754 00 4 00000 PXA 0,4 SET THIS VALUE IN USER'S PROGRAM
00022 0602 60 1 00001 SLW* 1,1 ..
00023 0500 00 0 00027 CLA OLDMEM RETURN OLD MEMORY BOUND
00024 -0774 00 4 00000 X4 AXC **,4 RESTORE LINKAGE
00025 0774 00 1 00000 X1 AXT **,1 AND IR1
00026 0020 00 4 00003 TRA 3,4 RETURN
00027 OLDMEM BSS 1 STORAGE FOR OLD MEMORY BOUND
END
LITERALS
00030 000000000001
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
POST PROCESSOR ASSEMBLY DATA
31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
25 X1 5
24 X4 4, 6
20 TXI 13
4 GETBUF 0
0 GETMEM 7
27 OLDMEM 10, 23
1 SETMEM 15
0 NO ERROR IN ABOVE ASSEMBLY.
LMSORT BCD 09/20/68 0220.1 11042 00000
1 LMSORT FAP BY MICHAEL R COMER PAGE 1
* MACROS
INSERT MRC1A1
OPEN MACRO NAME1,NAME2,STATUS,IOERR,ERCODE
TSX $OPEN,4
PTH =H'STATUS
PTH NAME1
PTH NAME2
PTH =0
PTH =2
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
OPEN END
*
BUFFER MACRO NAME1,NAME2,LOC
TSX $BUFFER,4
PTH NAME1
PTH NAME2
PTH LOC,,432
BUFFER END
*
RDFILE MACRO NM1,NM2,RELLOC,PTHADD,BEGLOC,LEN,EOF,EOFCT,IOERR,ERCODE
TSX $RDFILE,4
PTH NM1
PTH NM2
PTH RELLOC
PTHADD PTH BEGLOC,,LEN
PTH EOF
PTH EOFCT
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
RDFILE END
*
WRFILE MACRO NAME1,NAME2,RELLOC,PTHADD,BEGLOC,LENGTH,IOERR,ERCODE
TSX $WRFILE,4
PTH NAME1
PTH NAME2
PTH RELLOC
PTHADD PTH BEGLOC,,LENGTH
PTH =-0
PTH =-0
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
WRFILE END
*
RDWAIT MACRO NM1,NM2,RELLOC,PTHADD,BEGLOC,LEN,EOF,EOFCT,IOERR,ERCODE
TSX $RDWAIT,4
PTH NM1
PTH NM2
1 LMSORT FAP BY MICHAEL R COMER PAGE 2
PTH RELLOC
PTHADD PTH BEGLOC,,LEN
PTH EOF
PTH EOFCT
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
RDWAIT END
*
WRWAIT MACRO NAME1,NAME2,RELLOC,PTHADD,BEGLOC,LENGTH,IOERR,ERCODE
TSX $WRWAIT,4
PTH NAME1
PTH NAME2
PTH RELLOC
PTHADD PTH BEGLOC,,LENGTH
PTH =-0
PTH =-0
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
WRWAIT END
*
FWAIT MACRO NAME1,NAME2
TSX $FWAIT,4
PTH NAME1
PTH NAME2
FWAIT END
*
CLOSE MACRO NAME1,NAME2,IOERR,ERCODE
TSX $CLOSE,4
PTH NAME1
PTH NAME2
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
CLOSE END
*
DELFIL MACRO NAME1,NAME2,IOERR,ERCODE
TSX $DELFIL,4
PTH NAME1
PTH NAME2
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
DELFIL END
*
CHFILE MACRO OLDNM1,OLDNM2,NEWMOD,NEWNM1,NEWNM2,IOERR,ERCODE
TSX $CHFILE,4
PTH OLDNM1
PTH OLDNM2
PTH NEWMOD
PTH NEWNM1
1 LMSORT FAP BY MICHAEL R COMER PAGE 3
PTH NEWNM2
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
CHFILE END
*
PRCOMT MACRO N,MESS
TSX $.PCOMT,4
PTH N
BCI N,MESS
PRCOMT END
*
*
GETCOM MACRO N,NOCOM,COM
TSX $GETCOM,4
PZE N
LAS =O777777777777
TRA NOCOM
TRA NOCOM
SLW COM
GETCOM END
*
TIMER MACRO MXTIME
TSX $TIMER,4
PTH *+3
PZE *+3
TRA *+32
PZE MXTIME*60
TSX $JOBTM,4
PTH ..TIME
LDQ ..TIME
ZAC
DVP =6
STQ ..TIME
TSX $DERBC,4
PZE ..TIME
LGR 6
ALS 6
ORA =H00000.
LGL 6
SLW ..TIME
TSX $BZEL,4
PZE ..TIME
STO ..TIME
TSX $WRFLXA,4
PZE ..TIME,,1
PRCOMT 5,( SECONDS HAVE ELAPSED.)
TSX $TIMER,4
PTH *+3
PZE *-27
TRA $RSTRTN
PZE MXTIME*60
TIMER END
*
1 LMSORT FAP BY MICHAEL R COMER PAGE 4
INSERT MRC2A1
*
SAVEX MACRO X
SXA X'1,1
SXA X'2,2
SXA X'3,3
SXA X'4,4
SXA X'5,5
SXA X'6,6
SXA X'7,7
SAVEX END
*
RESETX MACRO X1,X2,X3,X4,X5,X6,X7
X1 AXT **,1
X2 AXT **,2
X3 AXT **,3
X4 AXT **,4
X5 AXT **,5
X6 AXT **,6
X7 AXT **,7
RESETX END
*
TRFILE MACRO NAME1,NAME2,RELLOC,IOERR,ERCODE
TSX $TRFILE,4
PTH NAME1
PTH NAME2
PTH RELLOC
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
TRFILE END
*
WRFLX MACRO LOC,N,A
TSX $WRFLX'A',4
PTH LOC,,N
WRFLX END
*
FSTATE MACRO NAME1,NAME2,RESULT,IOERR,ERCODE
TSX $FSTATE,4
PTH NAME1
PTH NAME2
PTH RESULT,,8
IRP IOERR
PTH IOERR
PTH ERCODE
IRP
FSTATE END
1 LMSORT FAP BY MICHAEL R COMER PAGE 5
* MAIN PROGRAM
TRANSFER VECTOR
00000 272563234644 GETCOM
00001 464725456060 OPEN
00002 226426262551 BUFFER
00003 266263216325 FSTATE
00004 233026314325 CHFILE
00005 242543263143 DELFIL
00006 512466213163 RDWAIT
00007 234346622560 CLOSE
00010 242543256325 DELETE
00011 233045234644 CHNCOM
00012 334723464463 .PCOMT
00013 475145632551 PRNTER
00014 266621316360 FWAIT
00015 665126314325 WRFILE
00016 665166213163 WRWAIT
00017 0760 00 0 00016 LMTM
00020 GETCOM 1,NMERR,NAME1
00020 0074 00 4 00000 TSX $GETCOM,4 .001
00021 0 00000 0 00001 PZE 1 .001
00022 -0340 00 0 66675 LAS =O777777777777 .001
00023 0020 00 0 00176 TRA NMERR .001
00024 0020 00 0 00176 TRA NMERR .001
00025 0602 00 0 03464 SLW NAME1 .001
00026 GETCOM 2,NMERR,NAME2
00026 0074 00 4 00000 TSX $GETCOM,4 .001
00027 0 00000 0 00002 PZE 2 .001
00030 -0340 00 0 66675 LAS =O777777777777 .001
00031 0020 00 0 00176 TRA NMERR .001
00032 0020 00 0 00176 TRA NMERR .001
00033 0602 00 0 03465 SLW NAME2 .001
00034 GETCOM 3,NMERR,NAME3
00034 0074 00 4 00000 TSX $GETCOM,4 .001
00035 0 00000 0 00003 PZE 3 .001
00036 -0340 00 0 66675 LAS =O777777777777 .001
00037 0020 00 0 00176 TRA NMERR .001
00040 0020 00 0 00176 TRA NMERR .001
00041 0602 00 0 03466 SLW NAME3 .001
00042 GETCOM 4,NMERR,NAME4
00042 0074 00 4 00000 TSX $GETCOM,4 .001
00043 0 00000 0 00004 PZE 4 .001
00044 -0340 00 0 66675 LAS =O777777777777 .001
00045 0020 00 0 00176 TRA NMERR .001
00046 0020 00 0 00176 TRA NMERR .001
00047 0602 00 0 03467 SLW NAME4 .001
00050 OPEN NAME1,NAME2,R
00050 0074 00 4 00001 TSX $OPEN,4 .001
00051 3 00000 0 66670 PTH =HR .001
00052 3 00000 0 03464 PTH NAME1 .001
00053 3 00000 0 03465 PTH NAME2 .001
00054 3 00000 0 66656 PTH =0 .001
1 LMSORT FAP BY MICHAEL R COMER PAGE 6
00055 3 00000 0 66660 PTH =2 .001
00056 BUFFER NAME1,NAME2,BUFER1
00056 0074 00 4 00002 TSX $BUFFER,4 .001
00057 3 00000 0 03464 PTH NAME1 .001
00060 3 00000 0 03465 PTH NAME2 .001
00061 3 00660 0 01041 PTH BUFER1,,432 .001
00062 FSTATE SORT2,FILEA,A,FERR1,CODE
00062 0074 00 4 00003 TSX $FSTATE,4 .001
00063 3 00000 0 03470 PTH SORT2 .001
00064 3 00000 0 03471 PTH FILEA .001
00065 3 00010 0 03474 PTH A,,8 .001
00066 3 00000 0 00221 PTH FERR1 .001
00067 3 00000 0 03473 PTH CODE .001
00070 0500 00 0 03475 CLA A+1
00071 -0120 00 0 00243 TMI LINK
00072 0100 00 0 00101 TZE OK
00073 CHFILE SORT2,FILEA,=0,=-0,=-0
00073 0074 00 4 00004 TSX $CHFILE,4 .001
00074 3 00000 0 03470 PTH SORT2 .001
00075 3 00000 0 03471 PTH FILEA .001
00076 3 00000 0 66656 PTH =0 .001
00077 3 00000 0 66666 PTH =-0 .001
00100 3 00000 0 66666 PTH =-0 .001
00101 OK DELFIL SORT2,FILEA
00101 0074 00 4 00005 TSX $DELFIL,4 .001
00102 3 00000 0 03470 PTH SORT2 .001
00103 3 00000 0 03471 PTH FILEA .001
00104 ERRIN FSTATE SORT2,FILEB,A,FERR2,CODE
00104 0074 00 4 00003 TSX $FSTATE,4 .001
00105 3 00000 0 03470 PTH SORT2 .001
00106 3 00000 0 03472 PTH FILEB .001
00107 3 00010 0 03474 PTH A,,8 .001
00110 3 00000 0 00231 PTH FERR2 .001
00111 3 00000 0 03473 PTH CODE .001
00112 0500 00 0 03475 CLA A+1
00113 -0120 00 0 00254 TMI LINK2
00114 0100 00 0 00123 TZE OK2
00115 CHFILE SORT2,FILEB,=0,=-0,=-0
00115 0074 00 4 00004 TSX $CHFILE,4 .001
00116 3 00000 0 03470 PTH SORT2 .001
00117 3 00000 0 03472 PTH FILEB .001
00120 3 00000 0 66656 PTH =0 .001
00121 3 00000 0 66666 PTH =-0 .001
00122 3 00000 0 66666 PTH =-0 .001
00123 OK2 DELFIL SORT2,FILEB
00123 0074 00 4 00005 TSX $DELFIL,4 .001
00124 3 00000 0 03470 PTH SORT2 .001
00125 3 00000 0 03472 PTH FILEB .001
41600 IN1LEN EQU 40*432
00126 LOOP1 RDWAIT NAME1,NAME2,PNTR1,,INPUT1,IN1LEN,EOF1,LASLEN
00126 0074 00 4 00006 TSX $RDWAIT,4 .001
00127 3 00000 0 03464 PTH NAME1 .001
00130 3 00000 0 03465 PTH NAME2 .001
00131 3 00000 0 03462 PTH PNTR1 .001
00132 3 41600 0 03504 PTH INPUT1,,IN1LEN .001
00133 3 00000 0 00143 PTH EOF1 .001
1 LMSORT FAP BY MICHAEL R COMER PAGE 7
00134 3 00000 0 54773 PTH LASLEN .001
00135 -0500 00 0 03462 CAL PNTR1
00136 0361 00 0 66665 ACL =16848
00137 0602 00 0 03462 SLW PNTR1
00140 0074 00 4 00666 TSX SORT,4
00141 0074 00 4 00265 TSX MERGIN,4
00142 0020 00 0 00126 TRA LOOP1
00143 -0500 00 0 54773 EOF1 CAL LASLEN
00144 0100 00 0 00212 TZE RETZE
00145 0361 00 0 54766 ACL IN1LOC
00146 0737 00 1 00000 PAC ,1
00147 -0500 00 0 66675 CAL =O777777777777
00150 0602 00 1 00000 SLW 0,1
00151 0020 00 0 00154 TRA *+3
00152 0634 00 4 01037 SXA ENDM,4
00153 0020 00 0 00677 TRA NOSET
00154 0074 00 4 00152 TSX *-2,4
00155 0074 00 4 00265 TSX MERGIN,4
00156 RETURN CLOSE (=H ALL),=-0
00156 0074 00 4 00007 TSX $CLOSE,4 .001
00157 3 00000 0 66672 PTH =H ALL .001
00160 3 00000 0 66666 PTH =-0 .001
00161 0074 00 4 00010 TSX $DELETE,4
00162 3 00000 0 03466 PTH NAME3
00163 3 00000 0 03467 PTH NAME4
00164 3 00000 0 66657 PTH =1
00165 3 00000 0 00174 PTH EXIT
00166 CHFILE SORT2,FILEA,=0,NAME3,NAME4
00166 0074 00 4 00004 TSX $CHFILE,4 .001
00167 3 00000 0 03470 PTH SORT2 .001
00170 3 00000 0 03471 PTH FILEA .001
00171 3 00000 0 66656 PTH =0 .001
00172 3 00000 0 03466 PTH NAME3 .001
00173 3 00000 0 03467 PTH NAME4 .001
00174 0074 00 4 00011 EXIT TSX $CHNCOM,4
00175 0 00000 0 66657 PZE =1
00176 NMERR PRCOMT 9,(COMMAND FORMAT IS R LMSORT NAME1 NAME2 NAME3 NAME4)
00176 0074 00 4 00012 TSX $.PCOMT,4 .001
00177 3 00000 0 00011 PTH 9 .001
00200 234644442145 BCI 9,COMMAND FORMAT IS R LMSORT NAME1 NAME2 NAME3 NAME4 .001
00201 246026465144
00202 216360316260
00203 516043446246
00204 516360452144
00205 250160452144
00206 250260452144
00207 250360452144
00210 250460606060
00211 0020 00 0 00174 TRA EXIT
00212 -0500 00 0 03462 RETZE CAL PNTR1
00213 -0340 00 0 66657 LAS =1
00214 0020 00 0 00156 TRA RETURN
00215 CLOSE NAME1,NAME2
00215 0074 00 4 00007 TSX $CLOSE,4 .001
00216 3 00000 0 03464 PTH NAME1 .001
00217 3 00000 0 03465 PTH NAME2 .001
1 LMSORT FAP BY MICHAEL R COMER PAGE 8
00220 0020 00 0 00174 TRA EXIT
00221 -0500 00 0 03473 FERR1 CAL CODE
00222 -0340 00 0 66662 LAS =4
00223 0020 00 0 00241 TRA ERR
00224 0020 00 0 00243 TRA LINK
00225 -0340 00 0 66661 LAS =3
00226 0 00000 0 00000 PZE
00227 0020 00 0 00104 TRA ERRIN
00230 0020 00 0 00241 TRA ERR
00231 -0500 00 0 03473 FERR2 CAL CODE
00232 -0340 00 0 66662 LAS =4
00233 0020 00 0 00241 TRA ERR
00234 0020 00 0 00254 TRA LINK2
00235 -0340 00 0 66661 LAS =3
00236 0 00000 0 00000 PZE
00237 0020 00 0 00126 TRA LOOP1
00240 0020 00 0 00241 TRA ERR
00241 0074 00 4 00013 ERR TSX $PRNTER,4
00242 0020 00 0 00174 TRA EXIT
00243 0074 00 4 00012 LINK TSX $.PCOMT,4
00244 3 00000 0 00006 PTH 6
00245 464324602631 BCI 6,OLD FILE (SORT2 FILE1) IS LINKED
00246 432560746246
00247 516302602631
00250 432501346031
00251 626043314542
00252 252460606060
00253 0020 00 0 00174 TRA EXIT
00254 0074 00 4 00012 LINK2 TSX $.PCOMT,4
00255 3 00000 0 00006 PTH 6
00256 464324602631 BCI 6,OLD FILE (SORT2 FILE2) IS LINKED
00257 432560746246
00260 516302602631
00261 432502346031
00262 626043314542
00263 252460606060
00264 0020 00 0 00174 TRA EXIT
1 LMSORT FAP BY MICHAEL R COMER PAGE 9
* INPUT SETUP AND CALLER FOR MERGE
00265 0634 00 4 00431 MERGIN SXA MIX4,4
00266 OPEN SORT2,FILEA,RW
00266 0074 00 4 00001 TSX $OPEN,4 .001
00267 3 00000 0 66671 PTH =HRW .001
00270 3 00000 0 03470 PTH SORT2 .001
00271 3 00000 0 03471 PTH FILEA .001
00272 3 00000 0 66656 PTH =0 .001
00273 3 00000 0 66660 PTH =2 .001
00274 BUFFER SORT2,FILEA,BUFER2
00274 0074 00 4 00002 TSX $BUFFER,4 .001
00275 3 00000 0 03470 PTH SORT2 .001
00276 3 00000 0 03471 PTH FILEA .001
00277 3 00660 0 01721 PTH BUFER2,,432 .001
00300 OPEN SORT2,FILEB,W
00300 0074 00 4 00001 TSX $OPEN,4 .001
00301 3 00000 0 66673 PTH =HW .001
00302 3 00000 0 03470 PTH SORT2 .001
00303 3 00000 0 03472 PTH FILEB .001
00304 3 00000 0 66656 PTH =0 .001
00305 3 00000 0 66660 PTH =2 .001
00306 BUFFER SORT2,FILEB,BUFER3
00306 0074 00 4 00002 TSX $BUFFER,4 .001
00307 3 00000 0 03470 PTH SORT2 .001
00310 3 00000 0 03472 PTH FILEB .001
00311 3 00660 0 02601 PTH BUFER3,,432 .001
00312 0500 00 0 66657 CLA =1
00313 0601 00 0 03463 STO PNTR2
00314 0500 00 0 54772 CLA L
00315 0400 00 0 66657 ADD =1
00316 0737 00 5 00000 PAC ,5
00317 -0634 00 5 00643 SXD ALL2+2,5
00320 -0634 00 5 00517 SXD CHKNX1+3,5
00321 0100 00 0 00336 TZE MILOP2
00322 0774 00 5 00000 AXT 0,5
00323 0774 00 3 01540 AXT 864,3
00324 MILOOP RDWAIT SORT2,FILEA,PNTR2,,INPUT2,5*432,EOF2,LASLEN
00324 0074 00 4 00006 TSX $RDWAIT,4 .001
00325 3 00000 0 03470 PTH SORT2 .001
00326 3 00000 0 03471 PTH FILEA .001
00327 3 00000 0 03463 PTH PNTR2 .001
00330 3 04160 0 45304 PTH INPUT2,,5*432 .001
00331 3 00000 0 00354 PTH EOF2 .001
00332 3 00000 0 54773 PTH LASLEN .001
00333 0074 00 4 00433 TSX SETUP,4
00334 0074 00 4 00445 TSX MERGE,4
00335 0020 00 0 00324 TRA MILOOP
00336 MILOP2 RDWAIT SORT2,FILEA,PNTR2,,INPUT2,5*432,EOF3,LASLEN
00336 0074 00 4 00006 TSX $RDWAIT,4 .001
00337 3 00000 0 03470 PTH SORT2 .001
00340 3 00000 0 03471 PTH FILEA .001
00341 3 00000 0 03463 PTH PNTR2 .001
00342 3 04160 0 45304 PTH INPUT2,,5*432 .001
00343 3 00000 0 00371 PTH EOF3 .001
1 LMSORT FAP BY MICHAEL R COMER PAGE 10
00344 3 00000 0 54773 PTH LASLEN .001
00345 0074 00 4 00433 TSX SETUP,4
00346 0020 00 0 00351 TRA *+3
00347 0634 00 4 54774 SXA MX4,4
00350 0020 00 0 00543 TRA END1
00351 0074 00 4 00347 TSX *-2,4
00352 0 00000 0 00000 PZE
00353 0020 00 0 00336 TRA MILOP2
00354 -0500 00 0 54773 EOF2 CAL LASLEN
00355 0100 00 0 00366 TZE MT
00356 0361 00 0 54767 ACL IN2LOC
00357 0737 00 2 00000 PAC ,2
00360 -0500 00 0 66675 CAL =O777777777777
00361 0602 00 2 00000 SLW 0,2
00362 -0634 00 2 00540 SXD CHKNX2+2,2
00363 -0634 00 2 00543 SXD END1,2
00364 0074 00 4 00433 TSX SETUP,4
00365 0074 00 4 00445 TSX MERGE,4
00366 0074 00 4 00641 MT TSX ALL2,4
00367 0074 00 4 00615 TSX MERGO,4
00370 0020 00 0 00410 TRA MIRET
00371 -0500 00 0 54773 EOF3 CAL LASLEN
00372 0100 00 0 00410 TZE MIRET
00373 0361 00 0 54767 ACL IN2LOC
00374 0737 00 2 00000 PAC ,2
00375 -0500 00 0 66675 CAL =O777777777777
00376 0602 00 2 00000 SLW 0,2
00377 -0634 00 2 00540 SXD CHKNX2+2,2
00400 -0634 00 2 00543 SXD END1,2
00401 0074 00 4 00433 TSX SETUP,4
00402 0020 00 0 00405 TRA *+3
00403 0634 00 4 54774 SXA MX4,4
00404 0020 00 0 00543 TRA END1
00405 0074 00 4 00403 TSX *-2,4
00406 0 00000 0 00000 PZE
00407 0074 00 4 00615 TSX MERGO,4
00410 MIRET CLOSE SORT2,FILEA
00410 0074 00 4 00007 TSX $CLOSE,4 .001
00411 3 00000 0 03470 PTH SORT2 .001
00412 3 00000 0 03471 PTH FILEA .001
00413 DELFIL SORT2,FILEA
00413 0074 00 4 00005 TSX $DELFIL,4 .001
00414 3 00000 0 03470 PTH SORT2 .001
00415 3 00000 0 03471 PTH FILEA .001
00416 CLOSE SORT2,FILEB
00416 0074 00 4 00007 TSX $CLOSE,4 .001
00417 3 00000 0 03470 PTH SORT2 .001
00420 3 00000 0 03472 PTH FILEB .001
00421 -0500 00 0 03472 CAL FILEB
00422 0560 00 0 03471 LDQ FILEA
00423 -0600 00 0 03472 STQ FILEB
00424 0602 00 0 03471 SLW FILEA
00425 -0500 00 0 54770 CAL IN2END
00426 0737 00 2 00000 PAC ,2
00427 -0634 00 2 00540 SXD CHKNX2+2,2
00430 -0634 00 2 00543 SXD END1,2
1 LMSORT FAP BY MICHAEL R COMER PAGE 11
00431 0774 00 4 00000 MIX4 AXT -,4
00432 0020 00 4 00001 TRA 1,4
00433 -0500 00 0 03463 SETUP CAL PNTR2
00434 0361 00 0 66664 ACL =1728
00435 0602 00 0 03463 SLW PNTR2
00436 -0774 00 2 45304 AXC INPUT2,2
00437 -0500 00 2 00000 CAL 0,2
00440 -0340 00 0 66674 LAS =O777777000000
00441 0020 00 0 00444 TRA *+3
00442 0020 00 0 00444 TRA *+2
00443 1 77777 2 00437 TXI *-4,2,-1
00444 0020 00 4 00001 TRA 1,4
1 LMSORT FAP BY MICHAEL R COMER PAGE 12
* MERGE
00445 0634 00 4 54774 MERGE SXA MX4,4
00446 -0500 00 5 54776 NEXT CAL PTBL,5
00447 0737 00 1 00000 PAC ,1
00450 0634 00 2 54775 SXA I2,2
00451 -0500 00 1 00001 CAL 1,1
00452 -0340 00 0 66674 LAS =O777777000000
00453 0020 00 0 00476 TRA LE
00454 0020 00 0 00476 TRA LE
00455 -0340 00 2 00001 LAS 1,2
00456 0020 00 0 00522 TRA GR
00457 0020 00 0 00461 TRA EQ
00460 0020 00 0 00472 TRA LE2
00461 1 77777 1 00462 EQ TXI *+1,1,-1
00462 1 77777 2 00463 TXI *+1,2,-1
00463 -0500 00 1 00001 CAL 1,1
00464 -0340 00 0 66674 LAS =O777777000000
00465 0020 00 0 00476 TRA LE
00466 0020 00 0 00476 TRA LE
00467 -0340 00 2 00001 LAS 1,2
00470 0020 00 0 00522 TRA GR
00471 0020 00 0 00461 TRA EQ
00472 -0500 00 2 00001 LE2 CAL 1,2
00473 -0340 00 0 66674 LAS =O777777000000
00474 0020 00 0 00522 TRA GR
00475 0020 00 0 00522 TRA GR
00476 0534 00 2 54775 LE LXA I2,2
00477 -0500 00 5 54776 CAL PTBL,5
00500 0737 00 1 00000 PAC ,1
00501 -0500 00 1 00000 CAL 0,1
00502 0602 00 3 53226 LELOOP SLW OUTPT1+864,3
00503 1 77777 1 00504 TXI *+1,1,-1
00504 -0500 00 1 00000 CAL 0,1
00505 -0340 00 0 66674 LAS =O777777000000
00506 0020 00 0 00514 TRA CHKNX1
00507 0020 00 0 00514 TRA CHKNX1
00510 2 00001 3 00502 TIX LELOOP,3,1
00511 0074 00 4 00565 TSX NEW3,4
00512 -0500 00 1 00000 CAL 0,1
00513 0020 00 0 00502 TRA LELOOP
00514 1 77777 5 00515 CHKNX1 TXI *+1,5,-1
00515 2 00001 3 00517 TIX *+2,3,1
00516 0074 00 4 00565 TSX NEW3,4
00517 3 00000 5 00446 TXH NEXT,5,**
00520 -3 00000 5 00446 TXL NEXT,5,0
00521 0020 00 0 00543 TRA END1
00522 0534 00 2 54775 GR LXA I2,2
00523 -0500 00 2 00000 CAL 0,2
00524 0602 00 3 53226 GRLOOP SLW OUTPT1+864,3
00525 1 77777 2 00526 TXI *+1,2,-1
00526 -0500 00 2 00000 CAL 0,2
00527 -0340 00 0 66674 LAS =O777777000000
00530 0020 00 0 00536 TRA CHKNX2
00531 0020 00 0 00536 TRA CHKNX2
1 LMSORT FAP BY MICHAEL R COMER PAGE 13
00532 2 00001 3 00524 TIX GRLOOP,3,1
00533 0074 00 4 00565 TSX NEW3,4
00534 -0500 00 2 00000 CAL 0,2
00535 0020 00 0 00524 TRA GRLOOP
00536 2 00001 3 00540 CHKNX2 TIX *+2,3,1
00537 0074 00 4 00565 TSX NEW3,4
00540 3 00000 2 00446 TXH NEXT,2,**
00541 0534 00 4 54774 END2 LXA MX4,4
00542 0020 00 4 00001 TRA 1,4
*
00543 -3 00000 2 00563 END1 TXL END12,2,**
00544 -0500 00 2 00000 CAL 0,2
00545 0602 00 3 53226 E1LOOP SLW OUTPT1+864,3
00546 1 77777 2 00547 TXI *+1,2,-1
00547 -0500 00 2 00000 CAL 0,2
00550 -0340 00 0 66674 LAS =O777777000000
00551 0020 00 0 00557 TRA AWAWGO
00552 0020 00 0 00557 TRA AWAWGO
00553 2 00001 3 00545 TIX E1LOOP,3,1
00554 0074 00 4 00565 TSX NEW3,4
00555 -0500 00 2 00000 CAL 0,2
00556 0020 00 0 00545 TRA E1LOOP
00557 2 00001 3 00543 AWAWGO TIX END1,3,1
00560 0074 00 4 00565 TSX NEW3,4
00561 -0500 00 2 00000 CAL 0,2
00562 0020 00 0 00543 TRA END1
00563 0534 00 4 54774 END12 LXA MX4,4
00564 0020 00 4 00002 TRA 2,4
*
00565 0634 00 4 00613 NEW3 SXA N3X4,4
00566 FWAIT SORT2,FILEB
00566 0074 00 4 00014 TSX $FWAIT,4 .001
00567 3 00000 0 03470 PTH SORT2 .001
00570 3 00000 0 03472 PTH FILEB .001
00571 WRFILE SORT2,FILEB,=0,ADR1,OUTPT1,864
00571 0074 00 4 00015 TSX $WRFILE,4 .001
00572 3 00000 0 03470 PTH SORT2 .001
00573 3 00000 0 03472 PTH FILEB .001
00574 3 00000 0 66656 PTH =0 .001
00575 3 01540 0 51466 ADR1 PTH OUTPT1,,864 .001
00576 3 00000 0 66666 PTH =-0 .001
00577 3 00000 0 66666 PTH =-0 .001
00600 -0500 00 0 51465 CAL OUTPTB
00601 0560 00 0 51464 LDQ OUTPTA
00602 -0600 00 0 51465 STQ OUTPTB
00603 0602 00 0 51464 SLW OUTPTA
00604 0621 00 0 00575 STA ADR1
00605 0361 00 0 66663 ACL =864
00606 0621 00 0 00502 STA LELOOP
00607 0621 00 0 00524 STA GRLOOP
00610 0621 00 0 00545 STA E1LOOP
00611 0621 00 0 00647 STA A2LOOP
00612 0774 00 3 01540 AXT 864,3
00613 0774 00 4 00000 N3X4 AXT -,4
00614 0020 00 4 00001 TRA 1,4
*
1 LMSORT FAP BY MICHAEL R COMER PAGE 14
00615 0634 00 4 00637 MERGO SXA MOX4,4
00616 0634 00 3 54771 SXA TEM,3
00617 -0500 00 0 66663 CAL =864
00620 0402 00 0 54771 SUB TEM
00621 0734 00 4 00000 PAX ,4
00622 -0634 00 4 00634 SXD MOADD,4
00623 -0500 00 0 51464 CAL OUTPTA
00624 0621 00 0 00634 STA MOADD
00625 FWAIT SORT2,FILEB
00625 0074 00 4 00014 TSX $FWAIT,4 .001
00626 3 00000 0 03470 PTH SORT2 .001
00627 3 00000 0 03472 PTH FILEB .001
00630 WRWAIT SORT2,FILEB,=0,MOADD,**,**
00630 0074 00 4 00016 TSX $WRWAIT,4 .001
00631 3 00000 0 03470 PTH SORT2 .001
00632 3 00000 0 03472 PTH FILEB .001
00633 3 00000 0 66656 PTH =0 .001
00634 3 00000 0 00000 MOADD PTH **,,** .001
00635 3 00000 0 66666 PTH =-0 .001
00636 3 00000 0 66666 PTH =-0 .001
00637 0774 00 4 00000 MOX4 AXT -,4
00640 0020 00 4 00001 TRA 1,4
*
00641 0634 00 4 00664 ALL2 SXA A2X4,4
00642 -3 00000 5 00644 TXL *+2,5,0
00643 -3 00000 5 00664 TXL A2X4,5,**
00644 -0500 00 5 54776 CAL PTBL,5
00645 0737 00 1 00000 PAC ,1
00646 -0500 00 1 00000 CAL 0,1
00647 0602 00 3 53226 A2LOOP SLW OUTPT1+864,3
00650 1 77777 1 00651 TXI *+1,1,-1
00651 -0500 00 1 00000 CAL 0,1
00652 -0340 00 0 66674 LAS =O777777000000
00653 1 77777 3 00661 TXI INC5,3,-1
00654 1 77777 3 00661 TXI INC5,3,-1
00655 2 00001 3 00647 TIX A2LOOP,3,1
00656 0074 00 4 00565 TSX NEW3,4
00657 -0500 00 1 00000 CAL 0,1
00660 0020 00 0 00647 TRA A2LOOP
00661 3 00000 3 00663 INC5 TXH *+2,3,0
00662 0074 00 4 00565 TSX NEW3,4
00663 1 77777 5 00642 TXI ALL2+1,5,-1
00664 0774 00 4 00000 A2X4 AXT -,4
00665 0020 00 4 00001 TRA 1,4
1 LMSORT FAP BY MICHAEL R COMER PAGE 15
* SORT
00666 0634 00 4 01037 SORT SXA ENDM,4
00667 0774 00 1 00000 AXT 0,1
00670 -0500 00 1 44424 ENDTBL CAL INPUT1+IN1LEN-432,1
00671 -0340 00 0 66674 LAS =O777777000000
00672 0020 00 0 00675 TRA *+3
00673 0020 00 0 00675 TRA *+2
00674 1 77777 1 00670 TXI ENDTBL,1,-1
00675 -0500 00 0 66675 CAL =O777777777777
00676 0602 00 1 44424 SLW INPUT1+IN1LEN-432,1
00677 -0774 00 1 03504 NOSET AXC INPUT1,1
00700 -0500 00 1 00000 STTABL CAL 0,1
00701 -0340 00 0 66674 LAS =O777777000000
00702 0020 00 0 00705 TRA *+3
00703 0020 00 0 00705 TRA *+2
00704 1 77777 1 00700 TXI STTABL,1,-1
00705 0636 00 1 54776 SCA PTBL,1
00706 0774 00 1 00000 AXT 0,1
00707 0774 00 2 00000 AXT 0,2
00710 -0500 60 2 54776 GENTBL CAL* PTBL,2
00711 -0340 00 0 66675 LAS =O777777777777
00712 0020 00 0 00720 TRA TBDONE
00713 0020 00 0 00720 TRA TBDONE
00714 0361 00 0 66657 ACL =1
00715 0361 00 2 54776 ACL PTBL,2
00716 0621 00 2 54777 STA PTBL+1,2
00717 1 77777 2 00710 TXI GENTBL,2,-1
00720 1 00001 2 00721 TBDONE TXI *+1,2,1
00721 0636 00 2 54772 SCA L,2
00722 -0500 00 0 54772 CAL L
00723 0100 00 0 01033 TZE JSTONE
00724 -0340 00 0 66657 LAS =1
00725 0020 00 0 00727 TRA *+2
00726 0361 00 0 66657 ACL =1
00727 0771 00 0 00001 LOOPM ARS 1
00730 0602 00 0 54771 SLW TEM
00731 0734 00 4 00000 PAX ,4
00732 -0500 00 0 54772 CAL L
00733 0402 00 0 54771 SUB TEM
00734 0737 00 1 00000 PAC ,1
00735 0361 00 0 66657 ACL =1
00736 0737 00 2 00000 PAC ,2
00737 -0634 00 2 00766 SXD A1,2
00740 -0634 00 2 01017 SXD A2,2
00741 0535 00 2 54772 LAC L,2
00742 -0500 00 1 54776 COMP CAL PTBL,1
00743 0737 00 5 00000 PAC ,5
00744 -0500 00 2 54776 CAL PTBL,2
00745 0737 00 6 00000 PAC ,6
00746 -0500 00 6 00001 SLOOP CAL 1,6
00747 -0340 00 0 66674 LAS =O777777000000
00750 0020 00 0 00762 TRA SWAP
00751 0020 00 0 00762 TRA SWAP
00752 -0340 00 5 00001 LAS 1,5
1 LMSORT FAP BY MICHAEL R COMER PAGE 16
00753 0020 00 0 01022 TRA NOSWAP
00754 1 77777 5 01031 TXI SEQ,5,-1
00755 -0500 00 5 00001 CAL 1,5
00756 -0340 00 0 66674 LAS =O777777000000
00757 0020 00 0 01022 TRA NOSWAP
00760 0020 00 0 01022 TRA NOSWAP
00761 0020 00 0 00762 TRA SWAP
00762 -0500 00 1 54776 SWAP CAL PTBL,1
00763 0560 00 2 54776 LDQ PTBL,2
00764 0602 00 2 54776 SLW PTBL,2
00765 -0600 00 1 54776 STQ PTBL,1
00766 -3 00000 2 01022 A1 TXL NOSWAP,2,**
00767 0754 00 2 00000 PXA ,2
00770 0734 00 3 00000 SWPLP PAX ,3
00771 0402 00 0 54771 SUB TEM
00772 0734 00 7 00000 PAX ,7
00773 -0500 00 3 54776 CAL PTBL,3
00774 0737 00 5 00000 PAC ,5
00775 -0500 00 7 54776 CAL PTBL,7
00776 0737 00 6 00000 PAC ,6
00777 -0500 00 6 00001 LOOPA CAL 1,6
01000 -0340 00 0 66674 LAS =O777777000000
01001 0020 00 0 01013 TRA ASWAP
01002 0020 00 0 01013 TRA ASWAP
01003 -0340 00 5 00001 LAS 1,5
01004 0020 00 0 01022 TRA NOSWAP
01005 1 77777 5 01032 TXI EQA,5,-1
01006 -0500 00 5 00001 CAL 1,5
01007 -0340 00 0 66674 LAS =O777777000000
01010 0020 00 0 01022 TRA NOSWAP
01011 0020 00 0 01022 TRA NOSWAP
01012 0020 00 0 01013 TRA ASWAP
01013 -0500 00 3 54776 ASWAP CAL PTBL,3
01014 0560 00 7 54776 LDQ PTBL,7
01015 0602 00 7 54776 SLW PTBL,7
01016 -0600 00 3 54776 STQ PTBL,3
01017 -3 00000 7 01022 A2 TXL NOSWAP,7,**
01020 0754 00 7 00000 PXA ,7
01021 0020 00 0 00770 TRA SWPLP
01022 -3 00000 1 01025 NOSWAP TXL *+3,1,0
01023 1 00001 1 01024 TXI *+1,1,1
01024 1 00001 2 00742 TXI COMP,2,1
01025 -3 00001 4 01037 TXL ENDM,4,1
01026 0754 00 4 00000 PXA ,4
01027 0361 00 0 66657 ACL =1
01030 0020 00 0 00727 TRA LOOPM
01031 1 77777 6 00746 SEQ TXI SLOOP,6,-1
01032 1 77777 6 00777 EQA TXI LOOPA,6,-1
01033 0600 00 0 54772 JSTONE STZ L
01034 0020 00 0 01037 TRA ENDM
01035 0500 00 0 66667 VOID CLA =-1
01036 0601 00 0 54772 STO L
01037 0774 00 4 00000 ENDM AXT -,4
01040 0020 00 4 00001 TRA 1,4
1 LMSORT FAP BY MICHAEL R COMER PAGE 17
* STORAGE
01041 BUFER1 BSS 432
01721 BUFER2 BSS 432
02601 BUFER3 BSS 432
03461 0 00000 0 00000 ..TIME PZE
03462 0 00000 0 00001 PNTR1 PZE 1
03463 0 00000 0 00001 PNTR2 PZE 1
03464 0 00000 0 00000 NAME1 PZE
03465 0 00000 0 00000 NAME2 PZE
03466 0 00000 0 00000 NAME3 PZE
03467 0 00000 0 00000 NAME4 PZE
03470 746246516302 SORT2 BCI 1,(SORT2
03471 263143250134 FILEA BCI 1,FILE1)
03472 263143250234 FILEB BCI 1,FILE2)
03473 0 00000 0 00000 CODE PZE
03474 A BSS 8
03504 INPUT1 BSS IN1LEN
45304 INPUT2 BSS 5*432
51464 0 00000 0 51466 OUTPTA PZE OUTPT1
51465 0 00000 0 53226 OUTPTB PZE OUTPT2
51466 OUTPT1 BSS 864
53226 OUTPT2 BSS 864
54766 0 00000 0 03504 IN1LOC PZE INPUT1
54767 0 00000 0 45304 IN2LOC PZE INPUT2
54770 0 00000 0 50604 IN2END PZE INPUT2+4*432
54771 0 00000 0 00000 TEM PZE
54772 0 00000 0 00000 L PZE
54773 0 00000 0 00000 LASLEN PZE
54774 0 00000 0 00000 MX4 PZE
54775 0 00000 0 00000 I2 PZE
54776 PTBL BSS 35*144
END
LITERALS
66656 000000000000
66657 000000000001
66660 000000000002
66661 000000000003
66662 000000000004
66663 000000001540
66664 000000003300
66665 000000040720
66666 400000000000
66667 400000000001
66670 516060606060
66671 516660606060
66672 606060214343
66673 666060606060
66674 777777000000
66675 777777777777
1 LMSORT FAP BY MICHAEL R COMER PAGE 1
POST PROCESSOR ASSEMBLY DATA
66676 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3474 A 65, 70, 107, 112
54772 L 314, 721, 722, 732, 741, 1033, 1036
766 A1 737
1017 A2 740
461 EQ 457, 471
522 GR 456, 470, 474, 475
54775 I2 450, 476, 522
476 LE 453, 454, 465, 466
366 MT 355
101 OK 72
1032 EQA 1005
241 ERR 223, 230, 233, 240
472 LE2 460
54774 MX4 347, 403, 445, 541, 563
123 OK2 114
1031 SEQ 754
54771 TEM 616, 620, 730, 733, 771
664 A2X4 641, 643
575 ADR1 604
641 ALL2 317, 366, 663
3473 CODE 67, 111, 221, 231
742 COMP 1024
543 END1 350, 363, 400, 404, 430, 521, 557, 562
541 END2
1037 ENDM 152, 666, 1025, 1034
143 EOF1 133
354 EOF2 331
371 EOF3 343
174 EXIT 165, 211, 220, 242, 253, 264
661 INC5 653, 654
243 LINK 71, 224
431 MIX4 265
637 MOX4 615
613 N3X4 565
565 NEW3 511, 516, 533, 537, 554, 560, 656, 662
446 NEXT 517, 520, 540
1 OPEN 50, 266, 300
54776 PTBL 446, 477, 644, 705, 710, 715, 716, 742, 744, 762, 763, 764, 765, 773, 775, 1013, 1014
1015, 1016
666 SORT 140
762 SWAP 750, 751, 761
1035 VOID
1013 ASWAP 1001, 1002, 1012
7 CLOSE 156, 215, 410, 416
563 END12 543
104 ERRIN 227
221 FERR1 66
231 FERR2 110
3471 FILEA 64, 75, 103, 170, 271, 276, 326, 340, 412, 415, 422, 424
3472 FILEB 106, 117, 125, 303, 310, 420, 421, 423, 570, 573, 627, 632
14 FWAIT 566, 625
1 LMSORT FAP BY MICHAEL R COMER PAGE 2
POST PROCESSOR ASSEMBLY DATA
254 LINK2 113, 234
126 LOOP1 142, 237
777 LOOPA 1032
727 LOOPM 1030
445 MERGE 334, 365
615 MERGO 367, 407
410 MIRET 370, 372
634 MOADD 622, 624
3464 NAME1 25, 52, 57, 127, 216
3465 NAME2 33, 53, 60, 130, 217
3466 NAME3 41, 162, 172
3467 NAME4 47, 163, 173
176 NMERR 23, 24, 31, 32, 37, 40, 45, 46
677 NOSET 153
3462 PNTR1 131, 135, 137, 212
3463 PNTR2 313, 327, 341, 433, 435
212 RETZE 144
433 SETUP 333, 345, 364, 401
746 SLOOP 1031
3470 SORT2 63, 74, 102, 105, 116, 124, 167, 270, 275, 302, 307, 325, 337, 411, 414, 417, 567
572, 626, 631
770 SWPLP 1021
647 A2LOOP 611, 655, 660
557 AWAWGO 551, 552
1041 BUFER1 61
1721 BUFER2 277
2601 BUFER3 311
2 BUFFER 56, 274, 306
4 CHFILE 73, 115, 166
514 CHKNX1 320, 506, 507
536 CHKNX2 362, 377, 427, 530, 531
11 CHNCOM 174
10 DELETE 161
5 DELFIL 101, 123, 413
545 E1LOOP 553, 556, 610
670 ENDTBL 674
3 FSTATE 62, 104
710 GENTBL 717
0 GETCOM 20, 26, 34, 42
524 GRLOOP 532, 535, 607
41600 IN1LEN 126, 132, 670, 676, 3504
54766 IN1LOC 145
54770 IN2END 425
54767 IN2LOC 356, 373
3504 INPUT1 132, 670, 676, 677,54766
45304 INPUT2 330, 342, 436,54767,54770
3461 ..TIME
12 .PCOMT 176, 243, 254
1033 JSTONE 723
54773 LASLEN 134, 143, 332, 344, 354, 371
502 LELOOP 510, 513, 606
265 MERGIN 141, 155
324 MILOOP 335
336 MILOP2 321, 353
1022 NOSWAP 753, 757, 760, 766, 1004, 1010, 1011, 1017
1 LMSORT FAP BY MICHAEL R COMER PAGE 3
POST PROCESSOR ASSEMBLY DATA
51466 OUTPT1 502, 524, 545, 575, 647,51464
53226 OUTPT2 51465
51464 OUTPTA 601, 603, 623
51465 OUTPTB 600, 602
13 PRNTER 241
6 RDWAIT 126, 324, 336
156 RETURN 214
700 STTABL 704
720 TBDONE 712, 713
15 WRFILE 571
16 WRWAIT 630
0 NO ERROR IN ABOVE ASSEMBLY.
MEMTST BCD 02/09/69 0704.0 2180 00000
1 MAD PROGRAM LISTING ... ... ... FILE MEMTST MAD 02/09/69 0703.0
-
.. ROUTINE TO CHECK MEMORY, SWAPPING, ETC. LM00001
.. WRITES RANDOM NUMBERS INTO BUFFER, THEN CHECKS THEM. LM00002
.. J. H. SALTZER, NOVEMBER, 1965. LM00003
LM00004
NORMAL MODE IS INTEGER *001 LM00005
VECTOR VALUES RSTART = 12345671011K *002 LM00006
VECTOR VALUES MAGIC = 314151126535K *003 LM00007
VECTOR VALUES BUFSIZ = 25000 *004 LM00008
VECTOR VALUES NTEST = 10 *005 LM00009
LM00010
.. LOAD UP THE BUFFER WITH RANDOM NUMBERS. LM00011
LM00012
TEST = 0 *006 LM00013
LOOP A(0) = RSTART *007 LM00014
THROUGH SETUP, FOR I = 1, 1, I .G. BUFSIZ *008 LM00015
SETUP A(I) = A(I-1)*MAGIC *009 LM00016
TEST = TEST+1 *010 LM00017
LM00018
.. NOW, CHECK THIS BUFFER TEN TIMES. LM00019
LM00020
THROUGH RCHK, FOR J = 1, 1, J .G. NTEST *011 LM00021
RNEXT = RSTART *012 LM00022
THROUGH CKLP, FOR I = 1, 1, I .G. BUFSIZ *013 LM00023
RNEXT = RNEXT*MAGIC *014 LM00024
CKLP WHENEVER A(I) .NE. RNEXT, *015 LM00025
1 PRINT FORMAT WOOPS, I, A(I), RNEXT *015 LM00026
LM00027
.. THAT TEST WORKED, PERFORM SWAP AND TRY AGAIN. LM00028
LM00029
N = 1 *016 LM00030
SLEEP.(N) *017 LM00031
RCHK CONTINUE *018 LM00032
LM00033
.. ALL TESTS WORKED. RESET RANDOM NUMBER LM00034
.. GENERATOR BEFORE TRYING AGAIN. LM00035
LM00036
RSTART = RNEXT *019 LM00037
TRANSFER TO LOOP *020 LM00038
LM00039
VECTOR VALUES WOOPS = $H'WORD',I5,H' IS 'O12, *021 LM00040
1 H' SHOULD BE 'O12*$ *021 LM00041
DIMENSION A(25000) *022 LM00042
END OF PROGRAM *023 LM00043
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 61022 TRANSFER VECTOR LENGTH 00004 PROGRAM BEGINS 60705
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
A 60656 A 1 I 60660 1 MAGIC 60662 A 1 RCHK 00004 4 SETUP 00004 4
BUFSIZ 60657 A 1 J 60661 1 N 60663 1 RNEXT 60665 1 TEST 60667 1
CKLP 00004 4 LOOP 00005 4 NTEST 60664 A 1 RSTART 60666 A 1 WOOPS 60701 A 1
0FUNCTION DICTIONARY
EXIT 00000 1 .PRINT 00001 1 .SETUP 00002 1 SLEEP 00003 1
0ABSOLUTE CONSTANTS
60702 +000000000000 60703 +000000000001 60704 +233000000000
0STATEMENT DICTIONARY
00005 TXL -360712060710
0PROGRAM
NORMAL MODE IS INTEGER 001 LM00005
VECTOR VALUES RSTART = 12345671011K 002 LM00006
60705 TSX +0 07400 4 00002 60666 +0 12345 6 71011
VECTOR VALUES MAGIC = 314151126535K 003 LM00007
60662 +3 14151 1 26535
VECTOR VALUES BUFSIZ = 25000 004 LM00008
60657 +0 00000 0 60650
VECTOR VALUES NTEST = 10 005 LM00009
60664 +0 00000 0 00012
TEST = 0 006 LM00013
60706 CLA +0 50000 0 60702 60707 STO +0 60100 0 60667
LOOP A(0) = RSTART 007 LM00014
60710 CLA +0 50000 0 60666 60711 STO +0 60100 0 60656
THROUGH SETUP, FOR I = 1, 1, I .G. BUFSIZ 008 LM00015
60712 CLA +0 50000 0 60703 60713 STO +0 60100 0 60660 60714 TRA +0 02000 0 60720 60715 CLA +0 50000 0 60660
60716 ADD +0 40000 0 60703 60717 STO +0 60100 0 60660 60720 CLA +0 50000 0 60660 60721 SUB +0 40200 0 60657
60722 TZE +0 10000 0 60724 60723 TPL +0 12000 0 60734
SETUP A(I) = A(I-1)*MAGIC 009 LM00016
60724 CLA +0 50000 0 60660 60725 SUB +0 40200 0 60703 60726 PAX +0 73400 1 00000 60727 LDQ +0 56000 1 60656
60730 MPY +0 20000 0 60662 60731 LXA +0 53400 1 60660 60732 STQ -0 60000 1 60656 60733 TRA +0 02000 0 60715
TEST = TEST+1 010 LM00017
60734 CLA +0 50000 0 60667 60735 ADD +0 40000 0 60703 60736 STO +0 60100 0 60667
THROUGH RCHK, FOR J = 1, 1, J .G. NTEST 011 LM00021
60737 CLA +0 50000 0 60703 60740 STO +0 60100 0 60661 60741 TRA +0 02000 0 60745 60742 CLA +0 50000 0 60661
60743 ADD +0 40000 0 60703 60744 STO +0 60100 0 60661 60745 CLA +0 50000 0 60661 60746 SUB +0 40200 0 60664
60747 TZE +0 10000 0 60751 60750 TPL +0 12000 0 61014
RNEXT = RSTART 012 LM00022
60751 CLA +0 50000 0 60666 60752 STO +0 60100 0 60665
THROUGH CKLP, FOR I = 1, 1, I .G. BUFSIZ 013 LM00023
60753 CLA +0 50000 0 60703 60754 STO +0 60100 0 60660 60755 TRA +0 02000 0 60761 60756 CLA +0 50000 0 60660
60757 ADD +0 40000 0 60703 60760 STO +0 60100 0 60660 60761 CLA +0 50000 0 60660 60762 SUB +0 40200 0 60657
60763 TZE +0 10000 0 60765 60764 TPL +0 12000 0 61007
RNEXT = RNEXT*MAGIC 014 LM00024
60765 LDQ +0 56000 0 60665 60766 MPY +0 20000 0 60662 60767 STQ -0 60000 0 60665
CKLP WHENEVER A(I) .NE. RNEXT, 015 LM00025
1 PRINT FORMAT WOOPS, I, A(I), RNEXT 015 LM00026
60770 LXA +0 53400 1 60660 60771 CLA +0 50000 1 60656 60772 SUB +0 40200 0 60665 60773 TZE +0 10000 0 61006
60774 TSX +0 07400 4 00001 60775 STR -1 60701 1 61020 60776 STR -1 00000 0 60660 60777 CLA +0 50000 0 60660
61000 SUB +0 40200 0 61001 61001 TXH +3 00000 0 60656 61002 STA +0 62100 0 61003 61003 STR -1 00000 0 00000
61004 STR -1 00000 0 60665 61005 STR -1 00000 0 00000 61006 TRA +0 02000 0 60756
N = 1 016 LM00030
61007 CLA +0 50000 0 60703 61010 STO +0 60100 0 60663
SLEEP.(N) 017 LM00031
61011 TSX +0 07400 4 00003 61012 TXH +3 00000 0 60663
RCHK CONTINUE 018 LM00032
61013 TRA +0 02000 0 60742
RSTART = RNEXT 019 LM00037
61014 CLA +0 50000 0 60665 61015 STO +0 60100 0 60666
TRANSFER TO LOOP 020 LM00038
61016 TRA +0 02000 0 00005
VECTOR VALUES WOOPS = $H'WORD',I5,H' IS 'O12, 021 LM00040
1 H' SHOULD BE 'O12*$ 021 LM00041
60670 -2 01446 0 10254 60671 -2 44324 6 02225 60672 +3 01460 6 23046 60673 -2 06060 6 06060
60674 -2 06060 6 06060 60675 -2 06060 6 06060 60676 -0 60102 7 36060 60677 +1 46031 6 26014
60700 +1 47331 0 57330 60701 +3 01466 4 65124
DIMENSION A(25000) 022 LM00042
END OF PROGRAM 023 LM00043
61017 TSX +0 07400 4 00000
LOOK BCD 10/12/70 1513.8 10985 00000
1 MAD PROGRAM LISTING ... ... ... FILE LOOK MAD 02/09/69 0700.8
-
LOOK PROGRAM TO PRINT OUT MAIL BOX, URGENT MAIL AND LM00001
URGENT POST IF ANY EXIST. LM00002
LM00003
R. ROACH 12/14/68 LM00004
LM00005
NORMAL MODE IS INTEGER *001 LM00006
VECTOR VALUES MAXLEN = 19 *002 LM00007
VECTOR VALUES NFILES = 3 *003 LM00008
VECTOR VALUES N1 = $ MAIL$,$URGENT$,$URGENT$ *004 LM00009
VECTOR VALUES N2 = $ BOX$,$ MAIL$,$ POST$ *005 LM00010
VECTOR VALUES T = $(TEMP)$ *006 LM00011
VECTOR VALUES F = $(FILE)$ *007 LM00012
VECTOR VALUES STATUS = $R$ *008 LM00013
BOOLEAN CARD,ASK.,FLAG,LMERR,LINK *009 LM00014
VECTOR VALUES FLAG = 0B *010 LM00015
VECTOR VALUES CARD = 0B *011 LM00016
VECTOR VALUES LMERR = 0B *012 LM00017
LM00018
LM00019
VECTOR VALUES RED = 013300570057K *013 LM00020
VECTOR VALUES BLACK = 013200570057K *014 LM00021
VECTOR VALUES TAB = 725757575757K *015 LM00022
VECTOR VALUES MESS1 = $0*0*0*0*0 0 0L1I1N1E0 1T1O1O0 1L1O1N1G0.$ *016 LM00023
VECTOR VALUES MESS2 = $0*0*0*0*0 0 0L1I1N1E1M1A1R1K0 1E1R1R1O1R0.$ *017 LM00024
VECTOR VALUES MESS3 = $0D1E1L1E1T1E0 1I1T$,015600600060K *018 LM00025
VECTOR VALUES MESS4 = $0D1E1L1E1T1E1D0.$ *019 LM00026
VECTOR VALUES MESS5 = $0N1O1T0 1D1E1L1E1T1E1D0.$ *020 LM00027
VECTOR VALUES MESS6 = $0 0N1O0 1M1A1I1L0 1A1T0 $ *021 LM00028
VECTOR VALUES MESS7 = $0F1I1L1E0 1I1S0 1A0 1L1I1N1K0.$ *022 LM00029
VECTOR VALUES MESS8 = $0F1I1L1E0 1U1N1L1I1N1K1E1D0.$ *023 LM00030
LM00031
DIMENSION LM(25),B1(0),B2(0),LENGTH(1) *024 LM00032
EQUIVALENCE (MODE,LENGTH) *025 LM00033
GETBUF.(B1,432) *026 LM00034
GETBUF.(B2,432) *027 LM00035
PRMESS. *028 LM00036
SETBRK.(ASKLOC) *029 LM00037
LM00038
LM00039
THROUGH LOOP, FOR I = 0,1,I.GE.NFILES *030 LM00040
FSTATE.(N1(I),N2(I),LENGTH(1)...2,LOOP) *031 LM00041
WHENEVER LENGTH(1).NE.0 *032 LM00042
WHENEVER MODE .L. 0 *033 LM00043
NAME1 = N1(I) *034 LM00044
NAME2 = N2(I) *035 LM00045
LINK = 1B *036 LM00046
OTHERWISE *037 LM00047
LINK = 0B *038 LM00048
NAME1 = T *039 LM00049
NAME2 = F *040 LM00050
END OF CONDITIONAL *041 LM00051
WHENEVER .NOT.LINK, DELETE.(NAME1,NAME2,0,IOERR) *042 LM00052
WHENEVER .NOT.LINK,CHFILE.(N1(I),N2(I),0,NAME1,NAME2,ERR,CODE) *043 LM00053
ROOM PRINT. *044 LM00054
ASKLOC WHENEVER ASK.(0) *045 LM00055
WHENEVER LINK *046 LM00056
UNLINK.(NAME1,NAME2,NOPRIV) *047 LM00057
SETFUL. *048 LM00058
PRMESS.(MESS8...5) *049 LM00059
SETBCD. *050 LM00060
PRMESS. *051 LM00061
TRANSFER TO LOOP *052 LM00062
NOPRIV SETFUL. *053 LM00063
PRMESS.(MESS7...5) *054 LM00064
SETBCD. *055 LM00065
PRMESS. *056 LM00066
TRANSFER TO LOOP *057 LM00067
END OF CONDITIONAL *058 LM00068
DELFIL.(NAME1,NAME2,IOERR) *059 LM00069
SETFUL. *060 LM00070
PRMESS.(MESS4...3) *061 LM00071
SETBCD. *062 LM00072
PRMESS. *063 LM00073
OTHERWISE *064 LM00074
WHENEVER .NOT.LINK,CHFILE.(NAME1,NAME2,-0,N1(I),N2(I),IOERR) *065 LM00075
SETFUL. *066 LM00076
PRMESS.(MESS5...4) *067 LM00077
SETBCD. *068 LM00078
PRMESS. *069 LM00079
END OF CONDITIONAL *070 LM00080
END OF CONDITIONAL *071 LM00081
LOOP CONTINUE *072 LM00082
WHENEVER .NOT.FLAG *073 LM00083
GETTM.(DATE,TIME) *074 LM00084
SETFUL. *075 LM00085
PRMESA.(MESS6...4) *076 LM00086
SETBCD. *077 LM00087
PRMESS.(DATE,TIME) *078 LM00088
END PRMESS. *079 LM00089
END OF CONDITIONAL *080 LM00090
CHNCOM.(0) *081 LM00091
LM00092
LM00093
INTERNAL FUNCTION *082 LM00094
ENTRY TO PRINT. *083 LM00095
LM00096
SETFUL. *084 LM00097
PRMESA.(RED) *085 LM00098
SETBCD. *086 LM00099
PRMESA.(TAB,N1(I),N2(I),TAB) *087 LM00100
GETTM.(DATE,TIME) *088 LM00101
SETFUL. *089 LM00102
PRMESA.(BLACK) *090 LM00103
SETBCD. *091 LM00104
PRMESS.(DATE,TIME) *092 LM00105
PRMESS. *093 LM00106
FLAG = 1B *094 LM00107
LM00108
LM00109
BFOPEN.(STATUS,NAME1,NAME2,B1(B1),B2(B2),-0,IOERR) *095 LM00110
LM00111
RLOOP1 BFREAD.(NAME1,NAME2,LM(25)...1,EOF,EOFCT,IOERR) *096 LM00112
RBACK1 WHENEVER LM(25).A.777777K6 .NE. 777777K6 *097 LM00113
N = 14 *098 LM00114
CARD = 1B *099 LM00115
BFREAD.(NAME1,NAME2,LM(24)...13,EOF,EOFCT,IOERR) *100 LM00116
OTHERWISE *101 LM00117
CARD = 0B *102 LM00118
N = LM(25).A.777777K *103 LM00119
M = -N *104 LM00120
END OF CONDITIONAL *105 LM00121
LM00122
LM00123
WHENEVER N .G. MAXLEN *106 LM00124
SETFUL. *107 LM00125
PRMESS.(MESS1...7) *108 LM00126
SETBCD. *109 LM00127
LMERR = 1B *110 LM00128
M = -MAXLEN *111 LM00129
N = MAXLEN *112 LM00130
OTHERWISE *113 LM00131
LMERR = 0B *114 LM00132
END OF CONDITIONAL *115 LM00133
LM00134
LM00135
LM00136
WHENEVER CARD *116 LM00137
M = -12 *117 LM00138
PRMESS.(LM(25)...M) *118 LM00139
TRANSFER TO RLOOP1 *119 LM00140
OTHERWISE *120 LM00141
BFREAD.(NAME1,NAME2,LM(24)...N,EOF,EOFCT,IOERR) *121 LM00142
PRMESS.(LM(24)...M) *122 LM00143
BFREAD.(NAME1,NAME2,LM(25)...1,EOF,EOFCT,IOERR) *123 LM00144
WHENEVER LM(25).A.777777K6 .NE. 777777K6 *124 LM00145
WHENEVER .NOT.LMERR *125 LM00146
SETFUL. *126 LM00147
PRMESS.(MESS2...7) *127 LM00148
SETBCD. *128 LM00149
END OF CONDITIONAL *129 LM00150
RLOOP2 BFREAD.(NAME1,NAME2,LM(25)...1,EOF,EOFCT,IOERR) *130 LM00151
WHENEVER LM(25).A.777777K6 .NE. 777777K6, TRANSFER TO RLOOP2 *131 LM00152
TRANSFER TO RBACK1 *132 LM00153
OTHERWISE *133 LM00154
TRANSFER TO RBACK1 *134 LM00155
END OF CONDITIONAL *135 LM00156
END OF CONDITIONAL *136 LM00157
LM00158
LM00159
EOF PRMESS. *137 LM00160
BFCLOS.(NAME1,NAME2,IOERR) *138 LM00161
FUNCTION RETURN *139 LM00162
LM00163
END OF FUNCTION *140 LM00164
LM00165
IOERR PRDIAG. *141 LM00166
FLAG = 1B *142 LM00167
TRANSFER TO END *143 LM00168
LM00169
INTERNAL FUNCTION *144 LM00170
ENTRY TO ASK. *145 LM00171
SETFUL. *146 LM00172
PRMESA.(MESS3...4) *147 LM00173
SETBCD. *148 LM00174
RDFLXC.(ANS,6) *149 LM00175
WHENEVER RJUST.(ANS) .E. $ YES$, FUNCTION RETURN 1B *150 LM00176
FUNCTION RETURN 0B *151 LM00177
LM00178
LM00179
END OF FUNCTION *152 LM00180
LM00181
LM00182
ERR WHENEVER CODE .E. 9 *153 LM00183
STATUS = $RW$ *154 LM00184
WHENEVER .NOT.LINK, CHFILE.(N1(I),N2(I),-0,NAME1,NAME2,IOERR) *155 LM00185
TRANSFER TO ROOM *156 LM00186
OTHERWISE *157 LM00187
TRANSFER TO IOERR *158 LM00188
END OF CONDITIONAL *159 LM00189
END OF PROGRAM *160 LM00190
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01026 TRANSFER VECTOR LENGTH 00025 PROGRAM BEGINS 00226
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ANS 00045 1 EOF 00034 4 LOOP 00037 4 MODE 00031 1 RBACK1 00041 4
ASKLOC 00032 4 ERR 00035 4 MAXLEN 00114 A 1 M 00164 1 RED 00177 A 1
B1 00046 A 1 FLAG 00055 A 2 MESS1 00123 A 1 N1 00167 A 1 RLOOP1 00042 4
B2 00047 A 1 F 00056 A 1 MESS2 00132 A 1 N2 00172 A 1 RLOOP2 00043 4
BLACK 00050 A 1 IOERR 00036 4 MESS3 00136 A 1 NAME1 00173 1 ROOM 00044 4
CARD 00051 A 2 I 00057 1 MESS4 00141 A 1 NAME2 00174 1 STATUS 00200 A 1
CODE 00052 1 LENGTH 00031 A 1 MESS5 00145 A 1 NFILES 00175 A 1 TAB 00201 A 1
DATE 00053 1 LINK 00060 2 MESS6 00151 A 1 NOPRIV 00040 4 TIME 00202 1
END 00033 4 LMERR 00061 A 2 MESS7 00156 A 1 N 00176 1 T 00203 A 1
EOFCT 00054 1 LM 00113 A 1 MESS8 00163 A 1
0FUNCTION DICTIONARY
BFCLOS 00000 1 BFOPEN 00001 1 BFREAD 00002 1 CHFILE 00003 1 CHNCOM 00004 1
DELETE 00005 1 DELFIL 00006 1 EXIT 00007 1 FSTATE 00010 1 GETBUF 00011 1
GETTM 00012 1 .SETUP 00013 1 PRDIAG 00014 1 PRMESA 00015 1 PRMESS 00016 1
RDFLXC 00017 1 RJUST 00020 1 SETBCD 00021 1 SETBRK 00022 1 SETFUL 00023 1
UNLINK 00024 1 ASK 00025 2 PRINT 00026 1
0ABSOLUTE CONSTANTS
00223 -116660606060 00214 +000000000011 00224 -206060702562 00212 +000000000006 00215 +000000000014
00213 +000000000007 00221 +000000777777 00216 +000000000015 00217 +000000000016 00225 -377777000000
00210 +000000000004 00207 +000000000003 00211 +000000000005 00206 +000000000002 00204 +000000000000
00220 +000000000660 00205 +000000000001 00222 +233000000000
0STATEMENT DICTIONARY
00032 TXL -300351000346 00033 TXL -300453000452 00034 TXL -300710000707 00035 TXL -300772000767
00036 TXL -300730000727 00037 TXL -300436000435 00040 TXL -300366000365 00041 TXL -300556000550
00042 TXL -300550000541 00043 TXL -300675000666 00044 TXL -300346000345
0PROGRAM
N'R 001 LM00006
V'S MAXLEN = 19 002 LM00007
00226 TSX +0 07400 4 00013 00114 +0 00000 0 00023
V'S NFILES = 3 003 LM00008
00175 +0 00000 0 00003
V'S N1 = $ MAIL$,$URGENT$,$URGENT$ 004 LM00009
00165 -2 45127 2 54563 00166 -2 45127 2 54563 00167 -2 06044 2 13143
V'S N2 = $ BOX$,$ MAIL$,$ POST$ 005 LM00010
00170 -2 06047 4 66263 00171 -2 06044 2 13143 00172 -2 06060 2 24667
V'S T = $(TEMP)$ 006 LM00011
00203 -3 46325 4 44734
V'S F = $(FILE)$ 007 LM00012
00056 -3 42631 4 32534
V'S STATUS = $R$ 008 LM00013
00200 -1 16060 6 06060
BOOLEAN CARD,ASK.,FLAG,LMERR,LINK 009 LM00014
V'S FLAG = 0B 010 LM00015
00055 +0 00000 0 00000
V'S CARD = 0B 011 LM00016
00051 +0 00000 0 00000
V'S LMERR = 0B 012 LM00017
00061 +0 00000 0 00000
V'S RED = 013300570057K 013 LM00020
00177 +0 13300 5 70057
V'S BLACK = 013200570057K 014 LM00021
00050 +0 13200 5 70057
V'S TAB = 725757575757K 015 LM00022
00201 -3 25757 5 75757
V'S MESS1 = $0*0*0*0*0 0 0L1I1N1E0 1T1O1O0 1L1O1N1G0.$ 016 LM00023
00115 +0 12700 3 36060 00116 +0 14301 4 60145 00117 +0 14601 4 60060 00120 +0 12500 6 00163
00121 +0 04301 3 10145 00122 +0 05400 6 00060 00123 +0 05400 5 40054
V'S MESS2 = $0*0*0*0*0 0 0L1I1N1E1M1A1R1K0 1E1R1R1O1R0.$ 017 LM00024
00124 +0 14601 5 10033 00125 +0 12501 5 10151 00126 +0 15101 4 20060 00127 +0 12501 4 40121
00130 +0 04301 3 10145 00131 +0 05400 6 00060 00132 +0 05400 5 40054
V'S MESS3 = $0D1E1L1E1T1E0 1I1T$,015600600060K 018 LM00025
00133 +0 15600 6 00060 00134 +0 06001 3 10163 00135 +0 12501 6 30125 00136 +0 02401 2 50143
V'S MESS4 = $0D1E1L1E1T1E1D0.$ 019 LM00026
00137 +0 12400 3 36060 00140 +0 12501 6 30125 00141 +0 02401 2 50143
V'S MESS5 = $0N1O1T0 1D1E1L1E1T1E1D0.$ 020 LM00027
00142 +0 12501 2 40033 00143 +0 14301 2 50163 00144 +0 06001 2 40125 00145 +0 04501 4 60163
V'S MESS6 = $0 0N1O0 1M1A1I1L0 1A1T0 $ 021 LM00028
00146 +0 12101 6 30060 00147 +0 13101 4 30060 00150 +0 06001 4 40121 00151 +0 06000 4 50146
V'S MESS7 = $0F1I1L1E0 1I1S0 1A0 1L1I1N1K0.$ 022 LM00029
00152 +0 14501 4 20033 00153 +0 06001 4 30131 00154 +0 16200 6 00121 00155 +0 12500 6 00131
00156 +0 02601 3 10143
V'S MESS8 = $0F1I1L1E0 1U1N1L1I1N1K1E1D0.$ 023 LM00030
00157 +0 12400 3 36060 00160 +0 14501 4 20125 00161 +0 14501 4 30131 00162 +0 12500 6 00164
00163 +0 02601 3 10143
D'N LM(25),B1(0),B2(0),LENGTH(1) 024 LM00032
E'E (MODE,LENGTH) 025 LM00033
GETBUF.(B1,432) 026 LM00034
00227 TSX +0 07400 4 00011 00230 TXH +3 00000 0 00046 00231 TXH +3 00000 0 00220
GETBUF.(B2,432) 027 LM00035
00232 TSX +0 07400 4 00011 00233 TXH +3 00000 0 00047 00234 TXH +3 00000 0 00220
PRMESS. 028 LM00036
00235 TSX +0 07400 4 00016
SETBRK.(ASKLOC) 029 LM00037
00236 TSX +0 07400 4 00022 00237 TXH +3 00000 0 00032
T'H LOOP, FOR I = 0,1,I.GE.NFILES 030 LM00040
00240 CLA +0 50000 0 00204 00241 STO +0 60100 0 00057 00242 TRA +0 02000 0 00246 00243 CLA +0 50000 0 00057
00244 ADD +0 40000 0 00205 00245 STO +0 60100 0 00057 00246 CLA +0 50000 0 00057 00247 SUB +0 40200 0 00175
00250 TZE +0 10000 0 00436 00251 TPL +0 12000 0 00436
FSTATE.(N1(I),N2(I),LENGTH(1)...2,LOOP) 031 LM00041
00252 CLA +0 50000 0 00057 00253 SUB +0 40200 0 00254 00254 TXH +3 00000 0 00172 00255 STA +0 62100 0 00264
00256 CLA +0 50000 0 00057 00257 SUB +0 40200 0 00260 00260 TXH +3 00000 0 00167 00261 STA +0 62100 0 00263
00262 TSX +0 07400 4 00010 00263 TXH +3 00000 0 00000 00264 TXH +3 00000 0 00000 00265 TIX +2 00206 0 00030
00266 TXH +3 00000 0 00037
W'R LENGTH(1).NE.0 032 LM00042
00267 CLA +0 50000 0 00030 00270 SUB +0 40200 0 00204 00271 TZE +0 10000 0 00435
W'R MODE .L. 0 033 LM00043
00272 CLA +0 50000 0 00031 00273 SUB +0 40200 0 00204 00274 TZE +0 10000 0 00306 00275 TPL +0 12000 0 00306
NAME1 = N1(I) 034 LM00044
00276 LXA +0 53400 2 00057 00277 CLA +0 50000 2 00167 00300 STO +0 60100 0 00173
NAME2 = N2(I) 035 LM00045
00301 CLA +0 50000 2 00172 00302 STO +0 60100 0 00174
LINK = 1B 036 LM00046
00303 CLA +0 50000 0 00205 00304 STO +0 60100 0 00060
O'E 037 LM00047
00305 TRA +0 02000 0 00314
LINK = 0B 038 LM00048
00306 CLA +0 50000 0 00204 00307 STO +0 60100 0 00060
NAME1 = T 039 LM00049
00310 CLA +0 50000 0 00203 00311 STO +0 60100 0 00173
NAME2 = F 040 LM00050
00312 CLA +0 50000 0 00056 00313 STO +0 60100 0 00174
E'L 041 LM00051
W'R .NOT.LINK, DELETE.(NAME1,NAME2,0,IOERR) 042 LM00052
00314 ZET +0 52000 0 00060 00315 TRA +0 02000 0 00323 00316 TSX +0 07400 4 00005 00317 TXH +3 00000 0 00173
00320 TXH +3 00000 0 00174 00321 TXH +3 00000 0 00204 00322 TXH +3 00000 0 00036
W'R .NOT.LINK,CHFILE.(N1(I),N2(I),0,NAME1,NAME2,ERR,CODE) 043 LM00053
00323 ZET +0 52000 0 00060 00324 TRA +0 02000 0 00345 00325 CLA +0 50000 0 00057 00326 SUB +0 40200 0 00327
00327 TXH +3 00000 0 00172 00330 STA +0 62100 0 00337 00331 CLA +0 50000 0 00057 00332 SUB +0 40200 0 00333
00333 TXH +3 00000 0 00167 00334 STA +0 62100 0 00336 00335 TSX +0 07400 4 00003 00336 TXH +3 00000 0 00000
00337 TXH +3 00000 0 00000 00340 TXH +3 00000 0 00204 00341 TXH +3 00000 0 00173 00342 TXH +3 00000 0 00174
00343 TXH +3 00000 0 00035 00344 TXH +3 00000 0 00052
ROOM PRINT. 044 LM00054
00345 TSX +0 07400 4 00026
ASKLOC W'R ASK.(0) 045 LM00055
00346 TSX +0 07400 4 00025 00347 TXH +3 00000 0 00204 00350 TZE +0 10000 0 00405
W'R LINK 046 LM00056
00351 NZT -0 52000 0 00060 00352 TRA +0 02000 0 00373
UNLINK.(NAME1,NAME2,NOPRIV) 047 LM00057
00353 TSX +0 07400 4 00024 00354 TXH +3 00000 0 00173 00355 TXH +3 00000 0 00174 00356 TXH +3 00000 0 00040
SETFUL. 048 LM00058
00357 TSX +0 07400 4 00023
PRMESS.(MESS8...5) 049 LM00059
00360 TSX +0 07400 4 00016 00361 TIX +2 00211 0 00163
SETBCD. 050 LM00060
00362 TSX +0 07400 4 00021
PRMESS. 051 LM00061
00363 TSX +0 07400 4 00016
T'O LOOP 052 LM00062
00364 TRA +0 02000 0 00037
NOPRIV SETFUL. 053 LM00063
00365 TSX +0 07400 4 00023
PRMESS.(MESS7...5) 054 LM00064
00366 TSX +0 07400 4 00016 00367 TIX +2 00211 0 00156
SETBCD. 055 LM00065
00370 TSX +0 07400 4 00021
PRMESS. 056 LM00066
00371 TSX +0 07400 4 00016
T'O LOOP 057 LM00067
00372 TRA +0 02000 0 00037
E'L 058 LM00068
DELFIL.(NAME1,NAME2,IOERR) 059 LM00069
00373 TSX +0 07400 4 00006 00374 TXH +3 00000 0 00173 00375 TXH +3 00000 0 00174 00376 TXH +3 00000 0 00036
SETFUL. 060 LM00070
00377 TSX +0 07400 4 00023
PRMESS.(MESS4...3) 061 LM00071
00400 TSX +0 07400 4 00016 00401 TIX +2 00207 0 00141
SETBCD. 062 LM00072
00402 TSX +0 07400 4 00021
PRMESS. 063 LM00073
00403 TSX +0 07400 4 00016
O'E 064 LM00074
00404 TRA +0 02000 0 00435
W'R .NOT.LINK,CHFILE.(NAME1,NAME2,-0,N1(I),N2(I),IOERR) 065 LM00075
00405 ZET +0 52000 0 00060 00406 TRA +0 02000 0 00430 00407 CLA +0 50000 0 00057 00410 SUB +0 40200 0 00411
00411 TXH +3 00000 0 00172 00412 STA +0 62100 0 00426 00413 CLA +0 50000 0 00057 00414 SUB +0 40200 0 00415
00415 TXH +3 00000 0 00167 00416 STA +0 62100 0 00425 00417 CLS +0 50200 0 00204 00420 STO +0 60100 0 01023
00421 TSX +0 07400 4 00003 00422 TXH +3 00000 0 00173 00423 TXH +3 00000 0 00174 00424 TXH +3 00000 0 01023
00425 TXH +3 00000 0 00000 00426 TXH +3 00000 0 00000 00427 TXH +3 00000 0 00036
SETFUL. 066 LM00076
00430 TSX +0 07400 4 00023
PRMESS.(MESS5...4) 067 LM00077
00431 TSX +0 07400 4 00016 00432 TIX +2 00210 0 00145
SETBCD. 068 LM00078
00433 TSX +0 07400 4 00021
PRMESS. 069 LM00079
00434 TSX +0 07400 4 00016
E'L 070 LM00080
E'L 071 LM00081
LOOP CONTINUE 072 LM00082
00435 TRA +0 02000 0 00243
W'R .NOT.FLAG 073 LM00083
00436 ZET +0 52000 0 00055 00437 TRA +0 02000 0 00453
GETTM.(DATE,TIME) 074 LM00084
00440 TSX +0 07400 4 00012 00441 TXH +3 00000 0 00053 00442 TXH +3 00000 0 00202
SETFUL. 075 LM00085
00443 TSX +0 07400 4 00023
PRMESA.(MESS6...4) 076 LM00086
00444 TSX +0 07400 4 00015 00445 TIX +2 00210 0 00151
SETBCD. 077 LM00087
00446 TSX +0 07400 4 00021
PRMESS.(DATE,TIME) 078 LM00088
00447 TSX +0 07400 4 00016 00450 TXH +3 00000 0 00053 00451 TXH +3 00000 0 00202
END PRMESS. 079 LM00089
00452 TSX +0 07400 4 00016
E'L 080 LM00090
CHNCOM.(0) 081 LM00091
00453 TSX +0 07400 4 00004 00454 TXH +3 00000 0 00204
I'N 082 LM00094
00455 TRA +0 02000 0 00727
E'O PRINT. 083 LM00095
00456 TRA +0 02000 0 00461 00026 TTR +0 02100 0 00457 00457 SXA +0 63400 2 00716 00460 TSX +0 07400 2 00716
SETFUL. 084 LM00097
00461 TSX +0 07400 4 00023
PRMESA.(RED) 085 LM00098
00462 TSX +0 07400 4 00015 00463 TXH +3 00000 0 00177
SETBCD. 086 LM00099
00464 TSX +0 07400 4 00021
PRMESA.(TAB,N1(I),N2(I),TAB) 087 LM00100
00465 CLA +0 50000 0 00057 00466 SUB +0 40200 0 00467 00467 TXH +3 00000 0 00172 00470 STA +0 62100 0 00500
00471 CLA +0 50000 0 00057 00472 SUB +0 40200 0 00473 00473 TXH +3 00000 0 00167 00474 STA +0 62100 0 00477
00475 TSX +0 07400 4 00015 00476 TXH +3 00000 0 00201 00477 TXH +3 00000 0 00000 00500 TXH +3 00000 0 00000
00501 TXH +3 00000 0 00201
GETTM.(DATE,TIME) 088 LM00101
00502 TSX +0 07400 4 00012 00503 TXH +3 00000 0 00053 00504 TXH +3 00000 0 00202
SETFUL. 089 LM00102
00505 TSX +0 07400 4 00023
PRMESA.(BLACK) 090 LM00103
00506 TSX +0 07400 4 00015 00507 TXH +3 00000 0 00050
SETBCD. 091 LM00104
00510 TSX +0 07400 4 00021
PRMESS.(DATE,TIME) 092 LM00105
00511 TSX +0 07400 4 00016 00512 TXH +3 00000 0 00053 00513 TXH +3 00000 0 00202
PRMESS. 093 LM00106
00514 TSX +0 07400 4 00016
FLAG = 1B 094 LM00107
00515 CLA +0 50000 0 00205 00516 STO +0 60100 0 00055
BFOPEN.(STATUS,NAME1,NAME2,B1(B1),B2(B2),-0,IOERR) 095 LM00110
00517 CLS +0 50200 0 00204 00520 STO +0 60100 0 00726 00521 CLA +0 50000 0 00047 00522 SUB +0 40200 0 00523
00523 TXH +3 00000 0 00047 00524 STA +0 62100 0 00536 00525 CLA +0 50000 0 00046 00526 SUB +0 40200 0 00527
00527 TXH +3 00000 0 00046 00530 STA +0 62100 0 00535 00531 TSX +0 07400 4 00001 00532 TXH +3 00000 0 00200
00533 TXH +3 00000 0 00173 00534 TXH +3 00000 0 00174 00535 TXH +3 00000 0 00000 00536 TXH +3 00000 0 00000
00537 TXH +3 00000 0 00726 00540 TXH +3 00000 0 00036
RLOOP1 BFREAD.(NAME1,NAME2,LM(25)...1,EOF,EOFCT,IOERR) 096 LM00112
00541 TSX +0 07400 4 00002 00542 TXH +3 00000 0 00173 00543 TXH +3 00000 0 00174 00544 TIX +2 00205 0 00062
00545 TXH +3 00000 0 00034 00546 TXH +3 00000 0 00054 00547 TXH +3 00000 0 00036
RBACK1 W'R LM(25).A.777777K6 .NE. 777777K6 097 LM00113
00550 CAL -0 50000 0 00062 00551 ANA -0 32000 0 00225 00552 SLW +0 60200 0 00726 00553 CLA +0 50000 0 00726
00554 SUB +0 40200 0 00225 00555 TZE +0 10000 0 00572
N = 14 098 LM00114
00556 CLA +0 50000 0 00217 00557 STO +0 60100 0 00176
CARD = 1B 099 LM00115
00560 CLA +0 50000 0 00205 00561 STO +0 60100 0 00051
BFREAD.(NAME1,NAME2,LM(24)...13,EOF,EOFCT,IOERR) 100 LM00116
00562 TSX +0 07400 4 00002 00563 TXH +3 00000 0 00173 00564 TXH +3 00000 0 00174 00565 TIX +2 00216 0 00063
00566 TXH +3 00000 0 00034 00567 TXH +3 00000 0 00054 00570 TXH +3 00000 0 00036
O'E 101 LM00117
00571 TRA +0 02000 0 00601
CARD = 0B 102 LM00118
00572 CLA +0 50000 0 00204 00573 STO +0 60100 0 00051
N = LM(25).A.777777K 103 LM00119
00574 CAL -0 50000 0 00062 00575 ANA -0 32000 0 00221 00576 SLW +0 60200 0 00176
M = -N 104 LM00120
00577 CLS +0 50200 0 00176 00600 STO +0 60100 0 00164
E'L 105 LM00121
W'R N .G. MAXLEN 106 LM00124
00601 CLA +0 50000 0 00176 00602 SUB +0 40200 0 00114 00603 TZE +0 10000 0 00620 00604 TMI -0 12000 0 00620
SETFUL. 107 LM00125
00605 TSX +0 07400 4 00023
PRMESS.(MESS1...7) 108 LM00126
00606 TSX +0 07400 4 00016 00607 TIX +2 00213 0 00123
SETBCD. 109 LM00127
00610 TSX +0 07400 4 00021
LMERR = 1B 110 LM00128
00611 CLA +0 50000 0 00205 00612 STO +0 60100 0 00061
M = -MAXLEN 111 LM00129
00613 CLS +0 50200 0 00114 00614 STO +0 60100 0 00164
N = MAXLEN 112 LM00130
00615 CLA +0 50000 0 00114 00616 STO +0 60100 0 00176
O'E 113 LM00131
00617 TRA +0 02000 0 00622
LMERR = 0B 114 LM00132
00620 CLA +0 50000 0 00204 00621 STO +0 60100 0 00061
E'L 115 LM00133
W'R CARD 116 LM00137
00622 NZT -0 52000 0 00051 00623 TRA +0 02000 0 00632
M = -12 117 LM00138
00624 CLS +0 50200 0 00215 00625 STO +0 60100 0 00164
PRMESS.(LM(25)...M) 118 LM00139
00626 TSX +0 07400 4 00016 00627 TIX +2 00164 0 00062
T'O RLOOP1 119 LM00140
00630 TRA +0 02000 0 00042
O'E 120 LM00141
00631 TRA +0 02000 0 00707
BFREAD.(NAME1,NAME2,LM(24)...N,EOF,EOFCT,IOERR) 121 LM00142
00632 TSX +0 07400 4 00002 00633 TXH +3 00000 0 00173 00634 TXH +3 00000 0 00174 00635 TIX +2 00176 0 00063
00636 TXH +3 00000 0 00034 00637 TXH +3 00000 0 00054 00640 TXH +3 00000 0 00036
PRMESS.(LM(24)...M) 122 LM00143
00641 TSX +0 07400 4 00016 00642 TIX +2 00164 0 00063
BFREAD.(NAME1,NAME2,LM(25)...1,EOF,EOFCT,IOERR) 123 LM00144
00643 TSX +0 07400 4 00002 00644 TXH +3 00000 0 00173 00645 TXH +3 00000 0 00174 00646 TIX +2 00205 0 00062
00647 TXH +3 00000 0 00034 00650 TXH +3 00000 0 00054 00651 TXH +3 00000 0 00036
W'R LM(25).A.777777K6 .NE. 777777K6 124 LM00145
00652 CAL -0 50000 0 00062 00653 ANA -0 32000 0 00225 00654 SLW +0 60200 0 00726 00655 CLA +0 50000 0 00726
00656 SUB +0 40200 0 00225 00657 TZE +0 10000 0 00706
W'R .NOT.LMERR 125 LM00146
00660 ZET +0 52000 0 00061 00661 TRA +0 02000 0 00666
SETFUL. 126 LM00147
00662 TSX +0 07400 4 00023
PRMESS.(MESS2...7) 127 LM00148
00663 TSX +0 07400 4 00016 00664 TIX +2 00213 0 00132
SETBCD. 128 LM00149
00665 TSX +0 07400 4 00021
E'L 129 LM00150
RLOOP2 BFREAD.(NAME1,NAME2,LM(25)...1,EOF,EOFCT,IOERR) 130 LM00151
00666 TSX +0 07400 4 00002 00667 TXH +3 00000 0 00173 00670 TXH +3 00000 0 00174 00671 TIX +2 00205 0 00062
00672 TXH +3 00000 0 00034 00673 TXH +3 00000 0 00054 00674 TXH +3 00000 0 00036
W'R LM(25).A.777777K6 .NE. 777777K6, T'O RLOOP2 131 LM00152
00675 CAL -0 50000 0 00062 00676 ANA -0 32000 0 00225 00677 SLW +0 60200 0 00726 00700 CLA +0 50000 0 00726
00701 SUB +0 40200 0 00225 00702 TZE +0 10000 0 00704 00703 TRA +0 02000 0 00043
T'O RBACK1 132 LM00153
00704 TRA +0 02000 0 00041
O'E 133 LM00154
00705 TRA +0 02000 0 00707
T'O RBACK1 134 LM00155
00706 TRA +0 02000 0 00041
E'L 135 LM00156
E'L 136 LM00157
EOF PRMESS. 137 LM00160
00707 TSX +0 07400 4 00016
BFCLOS.(NAME1,NAME2,IOERR) 138 LM00161
00710 TSX +0 07400 4 00000 00711 TXH +3 00000 0 00173 00712 TXH +3 00000 0 00174 00713 TXH +3 00000 0 00036
F'N 139 LM00162
00714 TRA +0 02000 0 00722
E'N 140 LM00164
00715 TSX +0 07400 4 00007 00716 TXH +3 00000 0 00000 00717 SXD -0 63400 1 00716 00720 SXA +0 63400 4 00722
00721 TRA +0 02000 2 00001 00722 AXT +0 77400 4 00000 00723 LXA +0 53400 2 00716 00724 LXD -0 53400 1 00716
00725 TRA +0 02000 4 00001
IOERR PRDIAG. 141 LM00166
00727 TSX +0 07400 4 00014
FLAG = 1B 142 LM00167
00730 CLA +0 50000 0 00205 00731 STO +0 60100 0 00055
T'O END 143 LM00168
00732 TRA +0 02000 0 00033
I'N 144 LM00170
00733 TRA +0 02000 0 00767
E'O ASK. 145 LM00171
00734 TRA +0 02000 0 00737 00025 TTR +0 02100 0 00735 00735 SXA +0 63400 2 00757 00736 TSX +0 07400 2 00757
SETFUL. 146 LM00172
00737 TSX +0 07400 4 00023
PRMESA.(MESS3...4) 147 LM00173
00740 TSX +0 07400 4 00015 00741 TIX +2 00210 0 00136
SETBCD. 148 LM00174
00742 TSX +0 07400 4 00021
RDFLXC.(ANS,6) 149 LM00175
00743 TSX +0 07400 4 00017 00744 TXH +3 00000 0 00045 00745 TXH +3 00000 0 00212
W'R RJUST.(ANS) .E. $ YES$, F'N 1B 150 LM00176
00746 TSX +0 07400 4 00020 00747 TXH +3 00000 0 00045 00750 SUB +0 40200 0 00224 00751 TNZ -0 10000 0 00754
00752 CLA +0 50000 0 00205 00753 TRA +0 02000 0 00763
F'N 0B 151 LM00177
00754 CLA +0 50000 0 00204 00755 TRA +0 02000 0 00763
E'N 152 LM00180
00756 TSX +0 07400 4 00007 00757 TXH +3 00000 0 00000 00760 SXD -0 63400 1 00757 00761 SXA +0 63400 4 00763
00762 TRA +0 02000 2 00001 00763 AXT +0 77400 4 00000 00764 LXA +0 53400 2 00757 00765 LXD -0 53400 1 00757
00766 TRA +0 02000 4 00001
ERR W'R CODE .E. 9 153 LM00183
00767 CLA +0 50000 0 00052 00770 SUB +0 40200 0 00214 00771 TNZ -0 10000 0 01021
STATUS = $RW$ 154 LM00184
00772 CLA +0 50000 0 00223 00773 STO +0 60100 0 00200
W'R .NOT.LINK, CHFILE.(N1(I),N2(I),-0,NAME1,NAME2,IOERR) 155 LM00185
00774 ZET +0 52000 0 00060 00775 TRA +0 02000 0 01017 00776 CLS +0 50200 0 00204 00777 STO +0 60100 0 01023
01000 CLA +0 50000 0 00057 01001 SUB +0 40200 0 01002 01002 TXH +3 00000 0 00172 01003 STA +0 62100 0 01012
01004 CLA +0 50000 0 00057 01005 SUB +0 40200 0 01006 01006 TXH +3 00000 0 00167 01007 STA +0 62100 0 01011
01010 TSX +0 07400 4 00003 01011 TXH +3 00000 0 00000 01012 TXH +3 00000 0 00000 01013 TXH +3 00000 0 01023
01014 TXH +3 00000 0 00173 01015 TXH +3 00000 0 00174 01016 TXH +3 00000 0 00036
T'O ROOM 156 LM00186
01017 TRA +0 02000 0 00044
O'E 157 LM00187
01020 TRA +0 02000 0 01022
T'O IOERR 158 LM00188
01021 TRA +0 02000 0 00036
E'L 159 LM00189
E'M 160 LM00190
01022 TSX +0 07400 4 00007
M. BCD 10/12/70 1513.8 5184 00000
1 MAD PROGRAM LISTING ... ... ... FILE M. MAD 01/26/70 1128.5
-
SCD PLOT OUT SCHEDULING QUEUES. LM00001
7/13/66 - NOEL I. MORRIS LM00002
LM00003
MODIFIED FOR SHORT 'M.' FORM BY R ROACH 10-15-67 LM00004
LM00005
NORMAL MODE IS INTEGER *001 LM00006
BOOLEAN PROBOK, LEVOK, MDOT *002 LM00007
LM00008
VECTOR VALUES QLEN = 0, 0 *003 LM00009
EQUIVALENCE (FQLEN, QLEN) *004 LM00010
FLOATING POINT FQLEN *005 LM00011
LM00012
VECTOR VALUES MINUS1 = -1 *006 LM00013
VECTOR VALUES FENCE = 777777777777K *007 LM00014
VECTOR VALUES COMMND = $COMMND$ *008 LM00015
VECTOR VALUES AVQLEN = $AVQLEN$ *009 LM00016
V'S PLIST = $PLIST$ LM00017
V'S ULIST = $ULIST$ LM00018
VECTOR VALUES PROBN = $PROBN$ *010 LM00019
VECTOR VALUES PROGN = $PROGN$ *011 LM00020
VECTOR VALUES MAXLV = $MAXLV$ *012 LM00021
VECTOR VALUES WRKTIM = $WRKTIM$ *013 LM00022
VECTOR VALUES TIMLEV = $TIMLEV$ *014 LM00023
VECTOR VALUES UCLOCK = $UCLOCK$ *015 LM00024
VECTOR VALUES UCHARG = $UCHARG$ *016 LM00025
VECTOR VALUES NUSERS = $NUSERS$ *017 LM00026
VECTOR VALUES MXUSRS = $MXUSRS$ *018 LM00027
VECTOR VALUES TOTTIM = $TOTTIM$ *019 LM00028
VECTOR VALUES BKGTIM = $BKGTIM$ *020 LM00029
VECTOR VALUES SWPTIM = $SWPTIM$ *021 LM00030
VECTOR VALUES STRTIM = $STRTIM$ *022 LM00031
VECTOR VALUES PB = $PB $ *023 LM00032
VECTOR VALUES N = $N$ *024 LM00033
VECTOR VALUES MDOT = 1B *025 LM00034
DIMENSION D1(1), D2(1), D3(1) *026 LM00035
FLOATING POINT D0, D1, D2, D3 *027 LM00036
LM00037
LM00038
LM00039
VECTOR VALUES LEVEL ... LEVEL (50) = -1 *028 LM00040
VECTOR VALUES POS ... POS (50) = -1 *029 LM00041
VECTOR VALUES SPACE ... SPACE (10) = 606033575757K *030 LM00042
VECTOR VALUES BLANK = 605757575757K *031 LM00043
VECTOR VALUES COMMA = 736057575757K *032 LM00044
VECTOR VALUES EQUAL = 601360575757K *033 LM00045
LM00046
LM00047
LM00048
LM00049
BEGINNING OF PROGRAM. LM00050
LM00051
W'R COMARG.(0) .E. $ M.$ LM00052
MDOT = 1B LM00053
O'E LM00054
MDOT = 0B LM00055
E'L LM00056
PRMESS. *034 LM00057
SLTIM = COMARG. (1) *035 LM00058
WHENEVER SLTIM .E. FENCE *036 LM00059
SLTIM = 0 *037 LM00060
OTHERWISE *038 LM00061
SLTIM = BCDEC. (SLTIM) * 60 *039 LM00062
END OF CONDITIONAL *040 LM00063
LM00064
GET COMMON LOCATION VALUES. LM00065
LM00066
AVQLEN = COMLOC.(AVQLEN) *041 LM00067
PLIST = COMLOC. (PLIST) LM00068
ULIST = COMLOC. (ULIST) LM00069
PROBN = COMLOC. (PROBN) *042 LM00070
PROGN = COMLOC. (PROGN) *043 LM00071
COMMND = COMLOC. (COMMND) *044 LM00072
MAXLV = COMLOC. (MAXLV) *045 LM00073
WRKTIM = COMLOC. (WRKTIM) *046 LM00074
TIMLEV = COMLOC. (TIMLEV) *047 LM00075
UCLOCK = COMLOC. (UCLOCK) *048 LM00076
UCHARG = COMLOC. (UCHARG) *049 LM00077
NUSERS = COMLOC. (NUSERS) *050 LM00078
MXUSRS = COMLOC. (MXUSRS) *051 LM00079
TOTTIM = COMLOC. (TOTTIM) *052 LM00080
BKGTIM = COMLOC. (BKGTIM) *053 LM00081
SWPTIM = COMLOC. (SWPTIM) *054 LM00082
STRTIM = COMLOC.(STRTIM) *055 LM00083
PB = COMLOC.(PB) *056 LM00084
N = COMLOC. (N) *057 LM00085
TIMNOW = GETIME.(0) *058 LM00086
LM00087
LM00088
INITIALIZE QUEUES. LM00089
LM00090
FIRST = 1 *059 LM00091
BEGIN SPRAY. (MINUS1, LEVEL ... LEVEL (N), POS ... POS (N) ) *060 LM00092
LM00093
LM00094
PICK UP QUEUE POSITIONS. LM00095
LM00096
TRANSFER TO SKIP *061 LM00097
**************** LM00098
SCD THROUGH LEVLOP, FOR QLEV = 0, 1, QLEV .G. MAXLV *062 LM00099
STATEMENT LABEL SCD *063 LM00100
NEXQ = QLEV *064 LM00101
QPOS = 1 *065 LM00102
LM00103
NEXT NEXQ = GLOC. (PLIST+NEXQ) *066 LM00104
USR = GLOC. (ULIST+NEXQ) *067 LM00105
WHENEVER USR .NE. MINUS1 *068 LM00106
LEVEL (USR) = QLEV - 1 *069 LM00107
POS (USR) = QPOS *070 LM00108
QPOS = QPOS + 1 *071 LM00109
TRANSFER TO NEXT *072 LM00110
END OF CONDITIONAL *073 LM00111
LM00112
LEVLOP CONTINUE *074 LM00113
SKIP CONTINUE *075 LM00114
LM00115
LM00116
GET AVERAGE QUEUE LENGTH AND PRINT. LM00117
LM00118
TIME = GTDYTM. (0) *076 LM00119
FTIME. (TIME, DATE, TIME) *077 LM00120
DATE = ((DATE) .A. 7777K8) .V. *078 LM00121
1 ((DATE .RS. 6) .A. 7777K2) .V. $00/00 $ *078 LM00122
QLEN = GLOC. (AVQLEN ) *079 LM00123
FQLEN = (FQLEN / 1000.0) + 0.05 *080 LM00124
FLOTBC. (QLEN) *081 LM00125
PRMESS. ($AVG. QUEUE LENGTH AT$, DATE, TIME, *082 LM00126
1 EQUAL, QLEN ... 2) *082 LM00127
LM00128
LM00129
PRINT OUT THE NUMBER OF USERS. LM00130
.. LM00131
PRMESS.($USERS=$,CONV.(GLOC.(NUSERS)),$, MAX=$, *083 LM00132
1 CONV.(GLOC.(MXUSRS))) *083 LM00133
TEMP = GLOC.(TOTTIM) *084 LM00134
D0 = TEMP - T0 *085 LM00135
T0 = TEMP *086 LM00136
TEMP = GLOC.(BKGTIM) *087 LM00137
D3 = TEMP - T3 *088 LM00138
D3 = 100.*D3/D0 + .05 *089 LM00139
T3 = TEMP *090 LM00140
TEMP = GLOC.(SWPTIM) *091 LM00141
D2 = TEMP - T2 *092 LM00142
D2 = 100.*D2/D0 + .05 *093 LM00143
T2 = TEMP *094 LM00144
D1 = 100.15 - D2 - D3 *095 LM00145
FLOTBC. (D1) *096 LM00146
FLOTBC. (D2) *097 LM00147
FLOTBC. (D3) *098 LM00148
LM00149
WHENEVER FIRST .E. 0 *099 LM00150
PRMESS. ($GOOD =$, D1 ... 2, COMMA, *100 LM00151
2 $SWAP =$, D2 ... 2, COMMA, *100 LM00152
3 $OTHER=$, D3 ... 2) *100 LM00153
END OF CONDITIONAL *101 LM00154
LM00155
LM00156
THROUGH LOOP, FOR I = 0, 1, I .G. N *102 LM00157
PERCNT = GLOC. (PB + I) *103 LM00158
WHENEVER PERCNT .E. 0, TRANSFER TO LOOP *104 LM00159
LM00160
WHENEVER I .E. 0 *105 LM00161
PROB = $ BACKG$ *106 LM00162
PROG = $ROUND $ *107 LM00163
OTHERWISE *108 LM00164
PROB = GLOC. (PROBN + I) *109 LM00165
PROG = GLOC. (PROGN + I) *110 LM00166
END OF CONDITIONAL *111 LM00167
LM00168
STRT = GLOC. (STRTIM + I) *112 LM00169
WRK = GLOC. (WRKTIM + I) *113 LM00170
LM00171
REALP = (100 * WRK) / (TIMNOW - STRT) *114 LM00172
LM00173
PRMESS.(PROB,PROG,BLANK,BZEL.(HRMIN.(STRT)),BZEL.(HRMIN.(WRK) *115 LM00174
1 ), BZEL.(DERBC. (REALP)), BZEL.(DERBC. (PERCNT))) *115 LM00175
LM00176
LOOP CONTINUE *116 LM00177
WHENEVER MDOT, TRANSFER TO SNORE *117 LM00178
PRMESS. *118 LM00179
PRMESS. *119 LM00180
LM00181
LM00182
PRINT OUT QUEUE POSITION CHART. LM00183
LM00184
PRMESS. ( $ USER COMMND WRKTIM TIMLEV UCLOCK U$, *120 LM00185
1 $SWAP 1 2 3 4 5 6 7 8 9$ ) *120 LM00186
PRMESS. *121 LM00187
LM00188
THROUGH PRLOOP, FOR USR = 0, 1, USR .G. N *122 LM00189
LM00190
WHENEVER USR .E. 0 *123 LM00191
PROB = $ BACKG$ *124 LM00192
PROG = $ROUND $ *125 LM00193
OTHERWISE *126 LM00194
PROB = GLOC. (PROBN+USR) *127 LM00195
PROG = GLOC. (PROGN+USR) *128 LM00196
END OF CONDITIONAL *129 LM00197
COM = GLOC. (COMMND+USR) *130 LM00198
WHENEVER COM .E. 0, COM = $ $ *131 LM00199
LEVOK = LEVEL (USR) .NE. MINUS1 *132 LM00200
PROBOK = PROB .NE. 0 *133 LM00201
LM00202
WHENEVER LEVOK *134 LM00203
WHENEVER .NOT. PROBOK *135 LM00204
PROB = $ $ *136 LM00205
PROG = $ $ *137 LM00206
END OF CONDITIONAL *138 LM00207
WT = GLOC. (WRKTIM+USR) * 60 *139 LM00208
TL = GLOC. (TIMLEV+USR) * 60 *140 LM00209
TM = GLOC. (UCLOCK+USR) * 60 *141 LM00210
TN = TM - GLOC. (UCHARG+USR) * 60 *142 LM00211
PRMESS. (PROB, PROG, BLANK, COM, BLANK, *143 LM00212
1 CTIME. (WT), BLANK, CTIME. (TL), BLANK, *143 LM00213
2 CTIME. (TM), BLANK, CTIME. (TN), *143 LM00214
3 SPACE ... LEVEL (USR), CONV. (POS (USR) ) ) *143 LM00215
END OF CONDITIONAL *144 LM00216
LM00217
PRLOOP CONTINUE *145 LM00218
LM00219
LM00220
EXIT TO CHNCOM. LM00221
LM00222
PRMESS. *146 LM00223
SNORE PRMESS. *147 LM00224
WHENEVER SLTIM .NE. 0 *148 LM00225
SNOOZE.(SLTIM,0) *149 LM00226
OTHERWISE *150 LM00227
CHNCOM. (1) *151 LM00228
END OF CONDITIONAL *152 LM00229
PRMESS. *153 LM00230
FIRST = 0 *154 LM00231
TRANSFER TO BEGIN *155 LM00232
LM00233
LM00234
LM00235
CONVERT TO BCD. LM00236
LM00237
INTERNAL FUNCTION (NUM) *156 LM00238
ENTRY TO CONV. *157 LM00239
FUNCTION RETURN (BZEL. (DEFBC. (NUM) ) .A. 777777K) .V. 575757K6 *158 LM00240
END OF FUNCTION *159 LM00241
LM00242
LM00243
CONVERT TIME TO BCD. LM00244
LM00245
INTERNAL FUNCTION (NUM) *160 LM00246
ENTRY TO CTIME. *161 LM00247
FUNCTION RETURN BZEL. (MINS. (NUM) ) *162 LM00248
END OF FUNCTION *163 LM00249
LM00250
LM00251
.. FLOATING POINT TO BCD. LM00252
.. LM00253
INTERNAL FUNCTION (NUM) *164 LM00254
ENTRY TO FLOTBC. *165 LM00255
FIX. (NUM, NUM, NUM (1)) *166 LM00256
NUM = CONV. (NUM) *167 LM00257
NUM (1) = (FRACBC.(NUM(1)).RS.6) .A. 77K8 .V. 330057575757K *168 LM00258
MFDCHK BCD 10/12/70 1513.8 9927 00000
1 MAD PROGRAM LISTING ... ... ... FILE MFDCHK MAD 03/15/69 1949.5
-
MFDCHK ADAPTED FROM DRMCHK (BY D. ANDERSON) BY R. ROACH LM00001
NORMAL MODE IS INTEGER *001 LM00002
VECTOR VALUES R=$R$ *002 LM00003
VECTOR VALUES MFD=$M.F.D.$ *003 LM00004
VECTOR VALUES FI=$(FILE)$ *004 LM00005
VECTOR VALUES SP=605757575757K *005 LM00006
VECTOR VALUES SLASH=615757575757K *006 LM00007
DIMENSION ME(1),MFDENT(6),UFDENT(6),B1(0),B2(0) *007 LM00008
EQUIVALENCE (UFD1,MFDENT(6)),(UFD2,MFDENT(5)),(FILE1,UFDENT(6)) *008 LM00009
EQUIVALENCE (FILE2,UFDENT(5)),(TYPE,UFDENT(2)),(NORECS,UFDENT(1)) *009 LM00010
LM00011
PRMESS. *010 LM00012
ATTNAM.(ME(1)...2) *011 LM00013
LM00014
SETBRK.(HOME) *012 LM00015
GETBUF.(B1,432) *013 LM00016
GETBUF.(B2,432) *014 LM00017
ATTACH.(MFD,FI,ATTERR) *015 LM00018
MTRKO=0 *016 LM00019
MFDTOT=3 *017 LM00020
MFDBAD=0 *018 LM00021
MFDDRM=0 *019 LM00022
BFOPEN.(R,MFD,FI,B1(B1+432),-0,-0,MFDERR) *020 LM00023
NEWFIL.(MFD,FI,OOPS) *021 LM00024
SETRKS. *022 LM00025
BFREAD.(MFD,FI,MFDENT(6)...3,MEOF,TEMP,MFDERR) *023 LM00026
DRUM=TRKS.(0) *024 LM00027
WHENEVER DRUM.A.7777777777K.NE.0 *025 LM00028
PRMESS.($PANIC$) *026 LM00029
TRANSFER TO CLSMFD *027 LM00030
END OF CONDITIONAL *028 LM00031
LDRUM=DRUM.RS.6 *029 LM00032
LM00033
MFDLOP BFREAD.(MFD,FI,MFDENT(6)...7,MEOF,TEMP,MFDERR) *030 LM00034
MFDTRK=TRKS.(0) *031 LM00035
WHENEVER MFDTRK.NE.MTRKO *032 LM00036
MTRKO=MFDTRK *033 LM00037
WHENEVER MFDTRK.GE.DRUM,MFDDRM=MFDDRM+1 *034 LM00038
END OF CONDITIONAL *035 LM00039
MFDTOT=MFDTOT+7 *036 LM00040
WHENEVER UFD1.V.UFD2.E.0 *037 LM00041
MFDBAD=MFDBAD+7 *038 LM00042
TRANSFER TO MFDLOP *039 LM00043
END OF CONDITIONAL *040 LM00044
WHENEVER UFD2.E.FI, TRANSFER TO MFDLOP *041 LM00045
LM00046
UTRKO=0 *042 LM00047
UFDTOT=3 *043 LM00048
UFDBAD=0 *044 LM00049
UFDDRM=0 *045 LM00050
BFOPEN.(R,UFD1,UFD2,B2(B2+432),-0,-0,UFDERR) *046 LM00051
NEWFIL.(UFD1,UFD2,OOPSU) *047 LM00052
BFREAD.(UFD1,UFD2,UFDENT(6)...3,UEOF,TEMP,UFDERR) *048 LM00053
LM00054
UFDLOP BFREAD.(UFD1,UFD2,UFDENT(6)...7,UEOF,TEMP,UFDERR) *049 LM00055
UFDTRK=TRACKS.(0) *050 LM00056
WHENEVER UFDTRK.NE.UTRKO *051 LM00057
UTRKO=UFDTRK *052 LM00058
WHENEVER UFDTRK.GE.DRUM, UFDDRM=UFDDRM+1 *053 LM00059
END OF CONDITIONAL *054 LM00060
UFDTOT=UFDTOT+7 *055 LM00061
WHENEVER FILE1.V.FILE2.E.0 *056 LM00062
UFDBAD=UFDBAD+7 *057 LM00063
TRANSFER TO UFDLOP *058 LM00064
END OF CONDITIONAL *059 LM00065
WHENEVER TYPE.A.7K5.NE.1K5, TRANSFER TO UFDLOP *060 LM00066
LM00067
WHENEVER DERBC.(UFDENT).A.77K8.GE.LDRUM *061 LM00068
WHENEVER DELBC.(UFDENT).A.77K8.GE.LDRUM *062 LM00069
TEMP=215757575757K *063 LM00070
OTHERWISE *064 LM00071
TEMP=475757575757K *065 LM00072
END OF CONDITIONAL *066 LM00073
OTHERWISE *067 LM00074
TEMP=455757575757K *068 LM00075
END OF CONDITIONAL *069 LM00076
PRMESS.(UFD1,SP,UFD2,SP,FILE1,SP,FILE2,SP, *070 LM00077
1 NZEL.(DELBC.(NORECS.A.77777K6)),TEMP) *070 LM00078
TRANSFER TO UFDLOP *071 LM00079
LM00080
UEOF BFCLOS.(UFD1,UFD2,UFDERR) *072 LM00081
TEMP=UFDDRM-((UFDTOT-UFDBAD-1)/432+1) *073 LM00082
LEN=(UFDTOT-1)/432+1 *074 LM00083
PT.(UFD1,UFD2,UFDDRM) *075 LM00084
TRANSFER TO MFDLOP *076 LM00085
LM00086
MEOF BFCLOS.(MFD,FI,MFDERR) *077 LM00087
TEMP=MFDDRM-((MFDTOT-MFDBAD-1)/432+1) *078 LM00088
LEN=(MFDTOT-1)/432+1 *079 LM00089
PT.(MFD,FI,MFDDRM) *080 LM00090
ATTACH.(ME(1),ME,ATTERR) *081 LM00091
TRANSFER TO OUT *082 LM00092
LM00093
ATTERR PRNTER.(375K) *083 LM00094
HOME ATTACH.(ME(1),ME,OUT) *084 LM00095
OUT PRMESS.($*$) *085 LM00096
CHNCOM.(0) *086 LM00097
LM00098
MFDERR PRNTER.(375K) *087 LM00099
CLSMFD BFCLOS.(MFD,FI,HOME) *088 LM00100
TRANSFER TO HOME *089 LM00101
LM00102
OOPS PRMESS.(MFD,SP,FI,$ NOT FOUND IN AFST.$) *090 LM00103
TRANSFER TO CLSMFD *091 LM00104
UFDERR PRNTER.(375K) *092 LM00105
CLSUFD BFCLOS.(UFD1,UFD2,MFDLOP) *093 LM00106
TRANSFER TO MFDLOP *094 LM00107
LM00108
OOPSU PRMESS.(UFD1,SP,UFD2,$ NOT FOUND IN AFST.$) *095 LM00109
TRANSFER TO CLSUFD *096 LM00110
LM00111
INTERNAL FUNCTION (A,B,C) *097 LM00112
ENTRY TO PT. *098 LM00113
LM00114
WHENEVER TEMP.G.0.OR.(A.E.MFD.OR.A.E.$ M1416$).AND.TEMP.L.0 *099 LM00115
1 .OR. UFDBAD.G.432 *099 LM00116
WHENEVER TEMP.G.0 *100 LM00117
TEMP=NZEL.(DEFBC.(TEMP)) *101 LM00118
OTHERWISE *102 LM00119
TEMP=NZEL.(DEFBC.(TEMP)).A.407777777777K *103 LM00120
END OF CONDITIONAL *104 LM00121
PRMESS.(A,SP,B,SP,TEMP,SLASH,NZEL.(DEFBC.(C)), *105 LM00122
1 SLASH,NZEL.(DEFBC.(LEN))) *105 LM00123
END OF CONDITIONAL *106 LM00124
FUNCTION RETURN *107 LM00125
END OF FUNCTION *108 LM00126
LM00127
INTERNAL FUNCTION (A) *109 LM00128
ENTRY TO NZEL. *110 LM00129
NZTEMP=BZ57.(A) *111 LM00130
WHENEVER NZTEMP.E.575757575757K, NZTEMP=005757575757K *112 LM00131
FUNCTION RETURN NZTEMP *113 LM00132
END OF FUNCTION *114 LM00133
LM00134
END OF PROGRAM *115 LM00135
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01046 TRANSFER VECTOR LENGTH 00024 PROGRAM BEGINS 00145
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ATTERR 00045 4 HOME 00050 4 MFDLOP 00053 4 OUT 00056 4 UFDBAD 00105 1
B1 00062 A 1 LDRUM 00066 1 MFD 00074 A 1 R 00101 A 1 UFDDRM 00106 1
B2 00063 A 1 LEN 00067 1 MFDTOT 00075 1 SLASH 00102 A 1 UFDENT 00044 A 1
CLSMFD 00046 4 MEOF 00051 4 MFDTRK 00076 1 SP 00103 A 1 UFDERR 00060 4
CLSUFD 00047 4 ME 00071 A 1 MTRKO 00077 1 TEMP 00104 1 UFDLOP 00061 4
DRUM 00064 1 MFDBAD 00072 1 NORECS 00043 1 TYPE 00042 1 UFDTOT 00107 1
FILE1 00036 1 MFDDRM 00073 1 NZTEMP 00100 1 UEOF 00057 4 UFDTRK 00110 1
FILE2 00037 1 MFDENT 00035 A 1 OOPS 00054 4 UFD1 00027 1 UTRKO 00111 1
FI 00065 A 1 MFDERR 00052 4 OOPSU 00055 4 UFD2 00030 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1
BZ57 00005 1 CHNCOM 00006 1 DEFBC 00007 1 DELBC 00010 1 DERBC 00011 1
EXIT 00012 1 GETBUF 00013 1 .SETUP 00014 1 NEWFIL 00015 1 PRMESS 00016 1
PRNTER 00017 1 SETBRK 00020 1 SETRKS 00021 1 TRACKS 00022 1 TRKS 00023 1
NZEL 00024 1 PT 00025 1
0ABSOLUTE CONSTANTS
00124 +005757575757 00142 -175757575757 00133 -007777777777 00143 -204401040106 00132 +336060606060
00135 -056021266263 00136 -066445246031 00144 -204546636026 00141 -146060606060 00120 +000000000375
00127 +077777000000 00134 -055757575757 00140 -075757575757 00130 +215757575757 00125 +007700000000
00122 +000000100000 00123 +000000700000 00117 +000000000007 00116 +000000000006 00137 -072145312360
00126 +007777777777 00115 +000000000003 00112 +000000000000 00121 +000000000660 00114 +000000000002
00113 +000000000001 00131 +233000000000
0STATEMENT DICTIONARY
00045 TXL -300613000611 00046 TXL -300631000625 00047 TXL -300651000645 00050 TXL -300617000613
00051 TXL -300557000553 00052 TXL -300625000623 00053 TXL -300262000253 00054 TXL -300642000632
00055 TXL -300662000652 00056 TXL -300621000617 00057 TXL -300525000521 00060 TXL -300645000643
00061 TXL -300375000366
0PROGRAM
N'R 001 LM00002
V'S R=$R$ 002 LM00003
00145 TSX +0 07400 4 00014 00101 -1 16060 6 06060
V'S MFD=$M.F.D.$ 003 LM00004
00074 -0 43326 3 32433
V'S FI=$(FILE)$ 004 LM00005
00065 -3 42631 4 32534
V'S SP=605757575757K 005 LM00006
00103 -2 05757 5 75757
V'S SLASH=615757575757K 006 LM00007
00102 -2 15757 5 75757
D'N ME(1),MFDENT(6),UFDENT(6),B1(0),B2(0) 007 LM00008
E'E (UFD1,MFDENT(6)),(UFD2,MFDENT(5)),(FILE1,UFDENT(6)) 008 LM00009
E'E (FILE2,UFDENT(5)),(TYPE,UFDENT(2)),(NORECS,UFDENT(1)) 009 LM00010
PRMESS. 010 LM00012
00146 TSX +0 07400 4 00016
ATTNAM.(ME(1)...2) 011 LM00013
00147 TSX +0 07400 4 00001 00150 TIX +2 00114 0 00070
SETBRK.(HOME) 012 LM00015
00151 TSX +0 07400 4 00020 00152 TXH +3 00000 0 00050
GETBUF.(B1,432) 013 LM00016
00153 TSX +0 07400 4 00013 00154 TXH +3 00000 0 00062 00155 TXH +3 00000 0 00121
GETBUF.(B2,432) 014 LM00017
00156 TSX +0 07400 4 00013 00157 TXH +3 00000 0 00063 00160 TXH +3 00000 0 00121
ATTACH.(MFD,FI,ATTERR) 015 LM00018
00161 TSX +0 07400 4 00000 00162 TXH +3 00000 0 00074 00163 TXH +3 00000 0 00065 00164 TXH +3 00000 0 00045
MTRKO=0 016 LM00019
00165 CLA +0 50000 0 00112 00166 STO +0 60100 0 00077
MFDTOT=3 017 LM00020
00167 CLA +0 50000 0 00115 00170 STO +0 60100 0 00075
MFDBAD=0 018 LM00021
00171 CLA +0 50000 0 00112 00172 STO +0 60100 0 00072
MFDDRM=0 019 LM00022
00173 CLA +0 50000 0 00112 00174 STO +0 60100 0 00073
BFOPEN.(R,MFD,FI,B1(B1+432),-0,-0,MFDERR) 020 LM00023
00175 CLS +0 50200 0 00112 00176 STO +0 60100 0 01042 00177 CLS +0 50200 0 00112 00200 STO +0 60100 0 01043
00201 CLA +0 50000 0 00062 00202 ADD +0 40000 0 00121 00203 SUB +0 40200 0 00204 00204 TXH +3 00000 0 00062
00205 STA +0 62100 0 00212 00206 TSX +0 07400 4 00003 00207 TXH +3 00000 0 00101 00210 TXH +3 00000 0 00074
00211 TXH +3 00000 0 00065 00212 TXH +3 00000 0 00000 00213 TXH +3 00000 0 01043 00214 TXH +3 00000 0 01042
00215 TXH +3 00000 0 00052
NEWFIL.(MFD,FI,OOPS) 021 LM00024
00216 TSX +0 07400 4 00015 00217 TXH +3 00000 0 00074 00220 TXH +3 00000 0 00065 00221 TXH +3 00000 0 00054
SETRKS. 022 LM00025
00222 TSX +0 07400 4 00021
BFREAD.(MFD,FI,MFDENT(6)...3,MEOF,TEMP,MFDERR) 023 LM00026
00223 TSX +0 07400 4 00004 00224 TXH +3 00000 0 00074 00225 TXH +3 00000 0 00065 00226 TIX +2 00115 0 00027
00227 TXH +3 00000 0 00051 00230 TXH +3 00000 0 00104 00231 TXH +3 00000 0 00052
DRUM=TRKS.(0) 024 LM00027
00232 TSX +0 07400 4 00023 00233 TXH +3 00000 0 00112 00234 STO +0 60100 0 00064
W'R DRUM.A.7777777777K.NE.0 025 LM00028
00235 CAL -0 50000 0 00064 00236 ANA -0 32000 0 00126 00237 SLW +0 60200 0 01043 00240 CLA +0 50000 0 01043
00241 SUB +0 40200 0 00112 00242 TZE +0 10000 0 00246
PRMESS.($PANIC$) 026 LM00029
00243 TSX +0 07400 4 00016 00244 TXH +3 00000 0 00137
T'O CLSMFD 027 LM00030
00245 TRA +0 02000 0 00046
E'L 028 LM00031
LDRUM=DRUM.RS.6 029 LM00032
00246 CAL -0 50000 0 00116 00247 STA +0 62100 0 00251 00250 CAL -0 50000 0 00064 00251 LGR -0 76500 0 00000
00252 SLW +0 60200 0 00066
MFDLOP BFREAD.(MFD,FI,MFDENT(6)...7,MEOF,TEMP,MFDERR) 030 LM00034
00253 TSX +0 07400 4 00004 00254 TXH +3 00000 0 00074 00255 TXH +3 00000 0 00065 00256 TIX +2 00117 0 00027
00257 TXH +3 00000 0 00051 00260 TXH +3 00000 0 00104 00261 TXH +3 00000 0 00052
MFDTRK=TRKS.(0) 031 LM00035
00262 TSX +0 07400 4 00023 00263 TXH +3 00000 0 00112 00264 STO +0 60100 0 00076
W'R MFDTRK.NE.MTRKO 032 LM00036
00265 CLA +0 50000 0 00076 00266 SUB +0 40200 0 00077 00267 TZE +0 10000 0 00301
MTRKO=MFDTRK 033 LM00037
00270 CLA +0 50000 0 00076 00271 STO +0 60100 0 00077
W'R MFDTRK.GE.DRUM,MFDDRM=MFDDRM+1 034 LM00038
00272 CLA +0 50000 0 00076 00273 SUB +0 40200 0 00064 00274 TZE +0 10000 0 00276 00275 TMI -0 12000 0 00301
00276 CLA +0 50000 0 00073 00277 ADD +0 40000 0 00113 00300 STO +0 60100 0 00073
E'L 035 LM00039
MFDTOT=MFDTOT+7 036 LM00040
00301 CLA +0 50000 0 00075 00302 ADD +0 40000 0 00117 00303 STO +0 60100 0 00075
W'R UFD1.V.UFD2.E.0 037 LM00041
00304 CAL -0 50000 0 00027 00305 ORA -0 50100 0 00030 00306 SLW +0 60200 0 01043 00307 CLA +0 50000 0 01043
00310 SUB +0 40200 0 00112 00311 TNZ -0 10000 0 00316
MFDBAD=MFDBAD+7 038 LM00042
00312 CLA +0 50000 0 00072 00313 ADD +0 40000 0 00117 00314 STO +0 60100 0 00072
T'O MFDLOP 039 LM00043
00315 TRA +0 02000 0 00053
E'L 040 LM00044
W'R UFD2.E.FI, T'O MFDLOP 041 LM00045
00316 CLA +0 50000 0 00030 00317 SUB +0 40200 0 00065 00320 TNZ -0 10000 0 00322 00321 TRA +0 02000 0 00053
UTRKO=0 042 LM00047
00322 CLA +0 50000 0 00112 00323 STO +0 60100 0 00111
UFDTOT=3 043 LM00048
00324 CLA +0 50000 0 00115 00325 STO +0 60100 0 00107
UFDBAD=0 044 LM00049
00326 CLA +0 50000 0 00112 00327 STO +0 60100 0 00105
UFDDRM=0 045 LM00050
00330 CLA +0 50000 0 00112 00331 STO +0 60100 0 00106
BFOPEN.(R,UFD1,UFD2,B2(B2+432),-0,-0,UFDERR) 046 LM00051
00332 CLS +0 50200 0 00112 00333 STO +0 60100 0 01043 00334 CLS +0 50200 0 00112 00335 STO +0 60100 0 01042
00336 CLA +0 50000 0 00063 00337 ADD +0 40000 0 00121 00340 SUB +0 40200 0 00341 00341 TXH +3 00000 0 00063
00342 STA +0 62100 0 00347 00343 TSX +0 07400 4 00003 00344 TXH +3 00000 0 00101 00345 TXH +3 00000 0 00027
00346 TXH +3 00000 0 00030 00347 TXH +3 00000 0 00000 00350 TXH +3 00000 0 01042 00351 TXH +3 00000 0 01043
00352 TXH +3 00000 0 00060
NEWFIL.(UFD1,UFD2,OOPSU) 047 LM00052
00353 TSX +0 07400 4 00015 00354 TXH +3 00000 0 00027 00355 TXH +3 00000 0 00030 00356 TXH +3 00000 0 00055
BFREAD.(UFD1,UFD2,UFDENT(6)...3,UEOF,TEMP,UFDERR) 048 LM00053
00357 TSX +0 07400 4 00004 00360 TXH +3 00000 0 00027 00361 TXH +3 00000 0 00030 00362 TIX +2 00115 0 00036
00363 TXH +3 00000 0 00057 00364 TXH +3 00000 0 00104 00365 TXH +3 00000 0 00060
UFDLOP BFREAD.(UFD1,UFD2,UFDENT(6)...7,UEOF,TEMP,UFDERR) 049 LM00055
00366 TSX +0 07400 4 00004 00367 TXH +3 00000 0 00027 00370 TXH +3 00000 0 00030 00371 TIX +2 00117 0 00036
00372 TXH +3 00000 0 00057 00373 TXH +3 00000 0 00104 00374 TXH +3 00000 0 00060
UFDTRK=TRACKS.(0) 050 LM00056
00375 TSX +0 07400 4 00022 00376 TXH +3 00000 0 00112 00377 STO +0 60100 0 00110
W'R UFDTRK.NE.UTRKO 051 LM00057
00400 CLA +0 50000 0 00110 00401 SUB +0 40200 0 00111 00402 TZE +0 10000 0 00414
UTRKO=UFDTRK 052 LM00058
00403 CLA +0 50000 0 00110 00404 STO +0 60100 0 00111
W'R UFDTRK.GE.DRUM, UFDDRM=UFDDRM+1 053 LM00059
00405 CLA +0 50000 0 00110 00406 SUB +0 40200 0 00064 00407 TZE +0 10000 0 00411 00410 TMI -0 12000 0 00414
00411 CLA +0 50000 0 00106 00412 ADD +0 40000 0 00113 00413 STO +0 60100 0 00106
E'L 054 LM00060
UFDTOT=UFDTOT+7 055 LM00061
00414 CLA +0 50000 0 00107 00415 ADD +0 40000 0 00117 00416 STO +0 60100 0 00107
W'R FILE1.V.FILE2.E.0 056 LM00062
00417 CAL -0 50000 0 00036 00420 ORA -0 50100 0 00037 00421 SLW +0 60200 0 01043 00422 CLA +0 50000 0 01043
00423 SUB +0 40200 0 00112 00424 TNZ -0 10000 0 00431
UFDBAD=UFDBAD+7 057 LM00063
00425 CLA +0 50000 0 00105 00426 ADD +0 40000 0 00117 00427 STO +0 60100 0 00105
T'O UFDLOP 058 LM00064
00430 TRA +0 02000 0 00061
E'L 059 LM00065
W'R TYPE.A.7K5.NE.1K5, T'O UFDLOP 060 LM00066
00431 CAL -0 50000 0 00042 00432 ANA -0 32000 0 00123 00433 SLW +0 60200 0 01043 00434 CLA +0 50000 0 01043
00435 SUB +0 40200 0 00122 00436 TZE +0 10000 0 00440 00437 TRA +0 02000 0 00061
W'R DERBC.(UFDENT).A.77K8.GE.LDRUM 061 LM00068
00440 TSX +0 07400 4 00011 00441 TXH +3 00000 0 00044 00442 STO +0 60100 0 01043 00443 CAL -0 50000 0 01043
00444 ANA -0 32000 0 00125 00445 SLW +0 60200 0 01043 00446 CLA +0 50000 0 01043 00447 SUB +0 40200 0 00066
00450 TZE +0 10000 0 00452 00451 TMI -0 12000 0 00472
W'R DELBC.(UFDENT).A.77K8.GE.LDRUM 062 LM00069
00452 TSX +0 07400 4 00010 00453 TXH +3 00000 0 00044 00454 STO +0 60100 0 01043 00455 CAL -0 50000 0 01043
00456 ANA -0 32000 0 00125 00457 SLW +0 60200 0 01043 00460 CLA +0 50000 0 01043 00461 SUB +0 40200 0 00066
00462 TZE +0 10000 0 00464 00463 TMI -0 12000 0 00467
TEMP=215757575757K 063 LM00070
00464 CLA +0 50000 0 00130 00465 STO +0 60100 0 00104
O'E 064 LM00071
00466 TRA +0 02000 0 00471
TEMP=475757575757K 065 LM00072
00467 CLA +0 50000 0 00140 00470 STO +0 60100 0 00104
E'L 066 LM00073
O'E 067 LM00074
00471 TRA +0 02000 0 00474
TEMP=455757575757K 068 LM00075
00472 CLA +0 50000 0 00134 00473 STO +0 60100 0 00104
E'L 069 LM00076
PRMESS.(UFD1,SP,UFD2,SP,FILE1,SP,FILE2,SP, 070 LM00077
1 NZEL.(DELBC.(NORECS.A.77777K6)),TEMP) 070 LM00078
00474 CAL -0 50000 0 00043 00475 ANA -0 32000 0 00127 00476 SLW +0 60200 0 01043 00477 TSX +0 07400 4 00010
00500 TXH +3 00000 0 01043 00501 STO +0 60100 0 01043 00502 TSX +0 07400 4 00024 00503 TXH +3 00000 0 01043
00504 STO +0 60100 0 01043 00505 TSX +0 07400 4 00016 00506 TXH +3 00000 0 00027 00507 TXH +3 00000 0 00103
00510 TXH +3 00000 0 00030 00511 TXH +3 00000 0 00103 00512 TXH +3 00000 0 00036 00513 TXH +3 00000 0 00103
00514 TXH +3 00000 0 00037 00515 TXH +3 00000 0 00103 00516 TXH +3 00000 0 01043 00517 TXH +3 00000 0 00104
T'O UFDLOP 071 LM00079
00520 TRA +0 02000 0 00061
UEOF BFCLOS.(UFD1,UFD2,UFDERR) 072 LM00081
00521 TSX +0 07400 4 00002 00522 TXH +3 00000 0 00027 00523 TXH +3 00000 0 00030 00524 TXH +3 00000 0 00060
TEMP=UFDDRM-((UFDTOT-UFDBAD-1)/432+1) 073 LM00082
00525 CLA +0 50000 0 00107 00526 SUB +0 40200 0 00105 00527 SUB +0 40200 0 00113 00530 LRS +0 76500 0 00043
00531 DVP +0 22100 0 00121 00532 XCA +0 13100 0 00000 00533 ADD +0 40000 0 00113 00534 CHS +0 76000 0 00002
00535 ADD +0 40000 0 00106 00536 STO +0 60100 0 00104
LEN=(UFDTOT-1)/432+1 074 LM00083
00537 CLA +0 50000 0 00107 00540 SUB +0 40200 0 00113 00541 LRS +0 76500 0 00043 00542 DVP +0 22100 0 00121
00543 XCA +0 13100 0 00000 00544 ADD +0 40000 0 00113 00545 STO +0 60100 0 00067
PT.(UFD1,UFD2,UFDDRM) 075 LM00084
00546 TSX +0 07400 4 00025 00547 TXH +3 00000 0 00027 00550 TXH +3 00000 0 00030 00551 TXH +3 00000 0 00106
T'O MFDLOP 076 LM00085
00552 TRA +0 02000 0 00053
MEOF BFCLOS.(MFD,FI,MFDERR) 077 LM00087
00553 TSX +0 07400 4 00002 00554 TXH +3 00000 0 00074 00555 TXH +3 00000 0 00065 00556 TXH +3 00000 0 00052
TEMP=MFDDRM-((MFDTOT-MFDBAD-1)/432+1) 078 LM00088
00557 CLA +0 50000 0 00075 00560 SUB +0 40200 0 00072 00561 SUB +0 40200 0 00113 00562 LRS +0 76500 0 00043
00563 DVP +0 22100 0 00121 00564 XCA +0 13100 0 00000 00565 ADD +0 40000 0 00113 00566 CHS +0 76000 0 00002
00567 ADD +0 40000 0 00073 00570 STO +0 60100 0 00104
LEN=(MFDTOT-1)/432+1 079 LM00089
00571 CLA +0 50000 0 00075 00572 SUB +0 40200 0 00113 00573 LRS +0 76500 0 00043 00574 DVP +0 22100 0 00121
00575 XCA +0 13100 0 00000 00576 ADD +0 40000 0 00113 00577 STO +0 60100 0 00067
PT.(MFD,FI,MFDDRM) 080 LM00090
00600 TSX +0 07400 4 00025 00601 TXH +3 00000 0 00074 00602 TXH +3 00000 0 00065 00603 TXH +3 00000 0 00073
ATTACH.(ME(1),ME,ATTERR) 081 LM00091
00604 TSX +0 07400 4 00000 00605 TXH +3 00000 0 00070 00606 TXH +3 00000 0 00071 00607 TXH +3 00000 0 00045
T'O OUT 082 LM00092
00610 TRA +0 02000 0 00056
ATTERR PRNTER.(375K) 083 LM00094
00611 TSX +0 07400 4 00017 00612 TXH +3 00000 0 00120
HOME ATTACH.(ME(1),ME,OUT) 084 LM00095
00613 TSX +0 07400 4 00000 00614 TXH +3 00000 0 00070 00615 TXH +3 00000 0 00071 00616 TXH +3 00000 0 00056
OUT PRMESS.($*$) 085 LM00096
00617 TSX +0 07400 4 00016 00620 TXH +3 00000 0 00141
CHNCOM.(0) 086 LM00097
00621 TSX +0 07400 4 00006 00622 TXH +3 00000 0 00112
MFDERR PRNTER.(375K) 087 LM00099
00623 TSX +0 07400 4 00017 00624 TXH +3 00000 0 00120
CLSMFD BFCLOS.(MFD,FI,HOME) 088 LM00100
00625 TSX +0 07400 4 00002 00626 TXH +3 00000 0 00074 00627 TXH +3 00000 0 00065 00630 TXH +3 00000 0 00050
T'O HOME 089 LM00101
00631 TRA +0 02000 0 00050
OOPS PRMESS.(MFD,SP,FI,$ NOT FOUND IN AFST.$) 090 LM00103
00632 TSX +0 07400 4 00016 00633 TXH +3 00000 0 00074 00634 TXH +3 00000 0 00103 00635 TXH +3 00000 0 00065
00636 TXH +3 00000 0 00144 00637 TXH +3 00000 0 00136 00640 TXH +3 00000 0 00135 00641 TXH +3 00000 0 00132
T'O CLSMFD 091 LM00104
00642 TRA +0 02000 0 00046
UFDERR PRNTER.(375K) 092 LM00105
00643 TSX +0 07400 4 00017 00644 TXH +3 00000 0 00120
CLSUFD BFCLOS.(UFD1,UFD2,MFDLOP) 093 LM00106
00645 TSX +0 07400 4 00002 00646 TXH +3 00000 0 00027 00647 TXH +3 00000 0 00030 00650 TXH +3 00000 0 00053
T'O MFDLOP 094 LM00107
00651 TRA +0 02000 0 00053
OOPSU PRMESS.(UFD1,SP,UFD2,$ NOT FOUND IN AFST.$) 095 LM00109
00652 TSX +0 07400 4 00016 00653 TXH +3 00000 0 00027 00654 TXH +3 00000 0 00103 00655 TXH +3 00000 0 00030
00656 TXH +3 00000 0 00144 00657 TXH +3 00000 0 00136 00660 TXH +3 00000 0 00135 00661 TXH +3 00000 0 00132
T'O CLSUFD 096 LM00110
00662 TRA +0 02000 0 00047
INTERNAL FUNCTION (A,B,C) 097 LM00112
00663 TRA +0 02000 0 01010
E'O PT. 098 LM00113
00664 TRA +0 02000 0 00667 00025 TTR +0 02100 0 00665 00665 SXA +0 63400 2 00766 00666 TSX +0 07400 2 00766
W'R TEMP.G.0.OR.(A.E.MFD.OR.A.E.$ M1416$).AND.TEMP.L.0 099 LM00115
1 .OR. UFDBAD.G.432 099 LM00116
00667 CLA +0 50000 0 00105 00670 SUB +0 40200 0 00121 00671 TZE +0 10000 0 00673 00672 TPL +0 12000 0 00712
00673 CLA +0 50000 0 00104 00674 SUB +0 40200 0 00112 00675 TZE +0 10000 0 00706 00676 TPL +0 12000 0 00706
00677 CLA +0 50000 0 00024 00700 SUB +0 40200 0 00143 00701 TZE +0 10000 0 00705 00702 CLA +0 50000 0 00024
00703 SUB +0 40200 0 00074 00704 TNZ -0 10000 0 00706 00705 TRA +0 02000 0 00712 00706 CLA +0 50000 0 00104
00707 SUB +0 40200 0 00112 00710 TZE +0 10000 0 00764 00711 TMI -0 12000 0 00764
W'R TEMP.G.0 100 LM00117
00712 CLA +0 50000 0 00104 00713 SUB +0 40200 0 00112 00714 TZE +0 10000 0 00725 00715 TMI -0 12000 0 00725
TEMP=NZEL.(DEFBC.(TEMP)) 101 LM00118
00716 TSX +0 07400 4 00007 00717 TXH +3 00000 0 00104 00720 STO +0 60100 0 01006 00721 TSX +0 07400 4 00024
00722 TXH +3 00000 0 01006 00723 STO +0 60100 0 00104
O'E 102 LM00119
00724 TRA +0 02000 0 00736
TEMP=NZEL.(DEFBC.(TEMP)).A.407777777777K 103 LM00120
00725 TSX +0 07400 4 00007 00726 TXH +3 00000 0 00104 00727 STO +0 60100 0 01006 00730 TSX +0 07400 4 00024
00731 TXH +3 00000 0 01006 00732 STO +0 60100 0 01006 00733 CAL -0 50000 0 01006 00734 ANA -0 32000 0 00133
00735 SLW +0 60200 0 00104
E'L 104 LM00121
PRMESS.(A,SP,B,SP,TEMP,SLASH,NZEL.(DEFBC.(C)), 105 LM00122
1 SLASH,NZEL.(DEFBC.(LEN))) 105 LM00123
00736 TSX +0 07400 4 00007 00737 TXH +3 00000 0 00067 00740 STO +0 60100 0 01006 00741 TSX +0 07400 4 00024
00742 TXH +3 00000 0 01006 00743 STO +0 60100 0 01006 00744 TSX +0 07400 4 00007 00745 TXH +3 00000 0 00024
00746 STO +0 60100 0 01007 00747 TSX +0 07400 4 00024 00750 TXH +3 00000 0 01007 00751 STO +0 60100 0 01007
00752 TSX +0 07400 4 00016 00753 TXH +3 00000 0 00024 00754 TXH +3 00000 0 00103 00755 TXH +3 00000 0 00024
00756 TXH +3 00000 0 00103 00757 TXH +3 00000 0 00104 00760 TXH +3 00000 0 00102 00761 TXH +3 00000 0 01007
00762 TXH +3 00000 0 00102 00763 TXH +3 00000 0 01006
E'L 106 LM00124
F'N 107 LM00125
00764 TRA +0 02000 0 01002
E'N 108 LM00126
00765 TSX +0 07400 4 00012 00766 TXH +3 00000 0 00000 00767 SXD -0 63400 1 00766 00770 SXA +0 63400 4 01002
00771 CLA +0 50000 4 00001 00772 STA +0 62100 0 00677 00773 STA +0 62100 0 00702 00774 STO +0 60100 0 00753
00775 CLA +0 50000 4 00002 00776 STO +0 60100 0 00755 00777 CLA +0 50000 4 00003 01000 STO +0 60100 0 00745
01001 TRA +0 02000 2 00001 01002 AXT +0 77400 4 00000 01003 LXA +0 53400 2 00766 01004 LXD -0 53400 1 00766
01005 TRA +0 02000 4 00001
INTERNAL FUNCTION (A) 109 LM00128
01010 TRA +0 02000 0 01041
E'O NZEL. 110 LM00129
01011 TRA +0 02000 0 01014 00024 TTR +0 02100 0 01012 01012 SXA +0 63400 2 01027 01013 TSX +0 07400 2 01027
NZTEMP=BZ57.(A) 111 LM00130
01014 TSX +0 07400 4 00005 01015 TXH +3 00000 0 00024 01016 STO +0 60100 0 00100
W'R NZTEMP.E.575757575757K, NZTEMP=005757575757K 112 LM00131
01017 CLA +0 50000 0 00100 01020 SUB +0 40200 0 00142 01021 TNZ -0 10000 0 01024 01022 CLA +0 50000 0 00124
01023 STO +0 60100 0 00100
F'N NZTEMP 113 LM00132
01024 CLA +0 50000 0 00100 01025 TRA +0 02000 0 01035
E'N 114 LM00133
01026 TSX +0 07400 4 00012 01027 TXH +3 00000 0 00000 01030 SXD -0 63400 1 01027 01031 SXA +0 63400 4 01035
01032 CLA +0 50000 4 00001 01033 STO +0 60100 0 01015 01034 TRA +0 02000 2 00001 01035 AXT +0 77400 4 00000
01036 LXA +0 53400 2 01027 01037 LXD -0 53400 1 01027 01040 TRA +0 02000 4 00001
E'M 115 LM00135
01041 TSX +0 07400 4 00012
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 03/15/69 1916.5 PAGE 1
00007 ENTRY NEWFIL
00110 ENTRY TRACKS
00105 ENTRY SETRKS
00123 ENTRY TRKS
EXTERN ATTNAM,ATTACH
EXTERN COMLOC
EXTERN GETLOC,DELBC
TRANSFER VECTOR
00000 216363452144 ATTNAM
00001 216363212330 ATTACH
00002 234644434623 COMLOC
00003 272563434623 GETLOC
00004 242543222360 DELBC
LINKAGE DIRECTOR
00005 000000000000
00006 452566263143
00007 0634 00 4 00101 NEWFIL SXA XR4,4
00010 0020 00 0 00011 GATE TRA *+1
00011 0074 00 4 00000 TSX ATTNAM,4
00012 3 00002 0 00127 PTH N1,,2
00013 0074 00 4 00002 TSX COMLOC,4
00014 3 00000 0 00136 PTH =HACTFIL
00015 3 00000 0 00103 PTH OOPS
00016 0621 00 0 00040 STA ACTFIL
00017 0074 00 4 00002 TSX COMLOC,4
00020 3 00000 0 00137 PTH =HAFSTU2
00021 3 00000 0 00103 PTH OOPS
00022 0400 00 0 00131 ADD AFSCON
00023 0621 00 0 00041 STA BASE
00024 0074 00 4 00001 TSX ATTACH,4
00025 3 00000 0 00127 PTH N1
00026 3 00000 0 00130 PTH N2
00027 3 00000 0 00030 PTH *+1
00030 0534 00 4 00101 LXA XR4,4
00031 -0625 00 0 00010 STL GATE
00032 -0500 60 4 00001 CAL* 1,4
00033 0602 00 0 00127 SLW N1
00034 -0500 60 4 00002 CAL* 2,4
00035 0602 00 0 00130 SLW N2
00036 0634 00 1 00077 SXA XR1,1
00037 0634 00 2 00100 SXA XR2,2
00040 0774 00 1 00000 ACTFIL AXT **,1
00041 -0774 00 2 00000 BASE AXC **,2
00042 0756 00 2 00000 FNDLOP PCA ,2
00043 0400 00 0 00132 ADD RPROBN
00044 0621 00 0 00046 STA *+2
00045 0074 00 4 00003 TSX GETLOC,4
00046 0 00000 0 00000 **
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 03/15/69 1916.5 PAGE 2
00047 0100 00 0 00066 TZE FNDNXT
00050 0756 00 2 00000 PCA ,2
00051 0400 00 0 00133 ADD RNAME1
00052 0621 00 0 00054 STA *+2
00053 0074 00 4 00003 TSX GETLOC,4
00054 0 00000 0 00000 **
00055 0322 00 0 00127 ERA N1
00056 -0100 00 0 00066 TNZ FNDNXT
00057 0756 00 2 00000 PCA ,2
00060 0400 00 0 00134 ADD RNAME2
00061 0621 00 0 00063 STA *+2
00062 0074 00 4 00003 TSX GETLOC,4
00063 0 00000 0 00000 **
00064 0322 00 0 00130 ERA N2
00065 0100 00 0 00074 TZE FOUND
00066 1 77752 2 00067 FNDNXT TXI *+1,2,-AFSENL
00067 2 00001 1 00042 TIX FNDLOP,1,1
00070 0534 00 1 00077 LXA XR1,1
00071 0534 00 2 00100 LXA XR2,2
00072 0534 00 4 00101 LXA XR4,4
00073 0020 60 4 00003 TRA* 3,4
00074 0756 00 2 00000 FOUND PCA ,2
00075 0400 00 0 00135 ADD SMTMP2
00076 0621 00 0 00112 STA TRKADR
00077 0774 00 1 00000 XR1 AXT **,1
00100 0774 00 2 00000 XR2 AXT **,2
00101 0774 00 4 00000 XR4 AXT **,4
00102 0020 00 4 00004 TRA 4,4
00103 0534 00 4 00101 OOPS LXA XR4,4
00104 0020 60 4 00003 TRA* 3,4
00105 -0500 00 0 00112 SETRKS CAL TRKADR
00106 0621 00 0 00125 STA TRKAD1
00107 0020 00 4 00001 TRA 1,4
00110 0634 00 4 00121 TRACKS SXA TX4,4
00111 0074 00 4 00003 TSX GETLOC,4
00112 0 00000 0 00000 TRKADR **
00113 0602 00 0 00127 SLW N1
00114 0074 00 4 00004 TSX DELBC,4
00115 3 00000 0 00127 PTH N1
00116 0131 00 0 00000 XCA
00117 -0773 00 0 00006 RQL 6
00120 -0130 00 0 00000 XCL
00121 0774 00 4 00000 TX4 AXT **,4
00122 0020 00 4 00001 TRA 1,4
00123 0634 00 4 00121 TRKS SXA TX4,4
00124 0074 00 4 00003 TSX GETLOC,4
00125 0 00000 0 00000 TRKAD1 **
00126 0020 00 0 00113 TRA TRKADR+1
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 03/15/69 1916.5 PAGE 3
00127 0 00000 0 00000 N1
00130 0 00000 0 00000 N2
00131 0 00000 0 00025 AFSCON PZE 21
00132 0 00000 0 00000 RPROBN PZE 0
00133 0 00000 0 00002 RNAME1 PZE 2
00134 0 00000 0 00003 RNAME2 PZE 3
00135 0 00000 0 00025 SMTMP2 PZE 21
00026 AFSENL EQU 22
END
LITERALS
00136 212363263143
00137 212662636402
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 03/15/69 1916.5 PAGE 1
POST PROCESSOR ASSEMBLY DATA
140 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
127 N1 12, 25, 33, 55, 113, 115
130 N2 26, 35, 64
121 TX4 110, 123
77 XR1 36, 70
100 XR2 37, 71
101 XR4 7, 30, 72, 103
41 BASE 23
10 GATE 31
103 OOPS 15, 21
123 TRKS 0
4 DELBC 114
74 FOUND 65
40 ACTFIL 16
131 AFSCON 22
26 AFSENL 66, 136
1 ATTACH 24
0 ATTNAM 11
2 COMLOC 13, 17
42 FNDLOP 67
66 FNDNXT 47, 56
3 GETLOC 45, 53, 62, 111, 124
7 NEWFIL 0
133 RNAME1 51
134 RNAME2 60
132 RPROBN 43
105 SETRKS 0
135 SMTMP2 75
110 TRACKS 0
125 TRKAD1 106
112 TRKADR 76, 105, 126
0 NO ERROR IN ABOVE ASSEMBLY.
MFDSRT BCD 02/09/69 0650.4 7207 00000
1 MAD PROGRAM LISTING ... ... ... FILE MFDSRT MAD 11/25/68 2057.7
-
...MFDSRT MODE LM00001
LM00002
NORMAL MODE IS INTEGER *001 LM00003
MODE = COMARG.(1) *002 LM00004
WHENEVER COMARG.(2,IT) .NE. 777777 777777K, N3 = IT *003 LM00005
WHENEVER MODE .E. $ PROBN$ *004 LM00006
IT = 0 *005 LM00007
OR WHENEVER MODE .E. $ PROGN$ *006 LM00008
IT = 1 *007 LM00009
OR WHENEVER MODE .E. $ MFD$ *008 LM00010
IT = 2 *009 LM00011
OTHERWISE *010 LM00012
PRMESS.($ILLEGAL MODE$,MODE) *011 LM00013
CHNCOM.(0) *012 LM00014
END OF CONDITIONAL *013 LM00015
GETBUF.(B1,432) *014 LM00016
GETBUF.(B2,432) *015 LM00017
GETBUF.(B3,432) *016 LM00018
GETBUF.(WK,700) *017 LM00019
GETBUF.(WJ,700) *018 LM00020
LM00021
...OPEN MFD LM00022
LM00023
ATTNAM.(V(2)...2) *019 LM00024
ATTACH.(N1,N2) *020 LM00025
BFOPEN.($R$,N1,N2,B1(B1+432),B2(B2+432),MZE,ERR) *021 LM00026
ATTACH.(V(2),V(1),ERR) *022 LM00027
...SKIP QUOTA WDS AND MFD ITSELF LM00028
BFREAD.(N1,N2,BUF(3)...3,EOF,C,ERR) *023 LM00029
BFREAD.(N1,N2,BUF(7)...7,EOF,C,ERR) *024 LM00030
LOOP BFREAD.(N1,N2,BUF(7)...7,EOF,C,ERR) *025 LM00031
WHENEVER ((BUF(7).V.BUF(6)).E.0), TRANSFER TO LOOP *026 LM00032
WK(WK+I) = LJUST.(BUF(7)) *027 LM00033
WJ(WJ+I) = BUF(6) *028 LM00034
I = I + 1 *029 LM00035
TRANSFER TO LOOP *030 LM00036
EOF N = I - 1 *031 LM00037
BFCLOS.(N1,N2,ERR) *032 LM00038
D = N *033 LM00039
TOP SWAP = 0B *034 LM00040
D = (D+1)/2 *035 LM00041
THROUGH PASS, FOR I = 1,1,I+D .G. N *036 LM00042
G1 = WJ(WJ+I) *037 LM00043
G2 = WJ(WJ+I+D) *038 LM00044
WHENEVER G1.RS. 12 .E.$00CMFL$ *039 LM00045
G1 = G1.A.7777K *040 LM00046
OTHERWISE *041 LM00047
G1 = BCDEC.(G1) + 1K6 *042 LM00048
END OF CONDITIONAL *043 LM00049
WHENEVER G2.RS. 12 .E.$00CMFL$ *044 LM00050
G2 = G2.A.7777K *045 LM00051
OTHERWISE *046 LM00052
G2 = BCDEC.(G2) + 1K6 *047 LM00053
END OF CONDITIONAL *048 LM00054
WHENEVER IT .NE. 0 *049 LM00055
P1 = BCDEC.(WK(WK+I).A.007777777700K) *050 LM00056
P2 = BCDEC.(WK(WK+I+D).A.007777777700K) *051 LM00057
WHENEVER IT .E. 2 *052 LM00058
THROUGH GG, FOR J = 0,1,J .GE. NGG *053 LM00059
WHENEVER WK(WK+I) .E. GD(J), P1 = P1 + GK(J) *054 LM00060
WHENEVER WK(WK+I+D) .E. GD(J), P2 = P2 + GK(J) *055 LM00061
GG CONTINUE *056 LM00062
END OF CONDITIONAL *057 LM00063
END OF CONDITIONAL *058 LM00064
WHENEVER P1 .G. P2 .OR. (P1 .E. P2 .AND. G1 .G. G2) *059 LM00065
TEMP = WK(WK+I) *060 LM00066
WK(WK+I) = WK(WK+I+D) *061 LM00067
WK(WK+I+D) = TEMP *062 LM00068
TEMP = WJ(WJ+I) *063 LM00069
WJ(WJ+I) = WJ(WJ+I+D) *064 LM00070
WJ(WJ+I+D) = TEMP *065 LM00071
SWAP = 1B *066 LM00072
END OF CONDITIONAL *067 LM00073
PASS CONTINUE *068 LM00074
WHENEVER SWAP.OR.(D.G.1), TRANSFER TO TOP *069 LM00075
DELETE.(N3,N4,0,ERR) *070 LM00076
BFOPEN.($W$,N3,N4,B1(B1+432),B2(B2+432),B3(B3+432),ERR) *071 LM00077
THROUGH WW, FOR I = 1,1,I.G.N *072 LM00078
LINE(13) = WK(WK+I) *073 LM00079
LINE(12) = WJ(WJ+I) *074 LM00080
BFWRIT.(N3,N4,LINE(13)...14,ERR) *075 LM00081
WW CONTINUE *076 LM00082
BFCLOS.(N3,N4,ERR) *077 LM00083
PRMESS.(DERBC.(N),$ ENTRIES$,N3,N4) *078 LM00084
CHNCOM.(0) *079 LM00085
ERR DSKER. *080 LM00086
LM00087
VECTOR VALUES N1 = $M.F.D.$ *081 LM00088
VECTOR VALUES N2 = $(FILE)$ *082 LM00089
VECTOR VALUES N3 = $ MFD$ *083 LM00090
VECTOR VALUES N4 = $ PUNCH$ *084 LM00091
VECTOR VALUES LINE...LINE(13) = $$ *085 LM00092
DIMENSION V(2), BUF(7) *086 LM00093
VECTOR VALUES C = 0 *087 LM00094
VECTOR VALUES MZE = 4K11 *088 LM00095
VECTOR VALUES GD = $M.F.D.$,$DRUMUT$,$DISKUT$,$DSKEDT$,$M1416$,$C0056$ *089 LM00096
VECTOR VALUES GK = 47K10,46K10,45K10,44K10,43K10,42K10,41K10 *090 LM00097
VECTOR VALUES NGG = 6 *091 LM00098
DIMENSION B1(0),B2(0),B3(0),WK(0),WJ(0),LINE(13) *092 LM00099
BOOLEAN SWAP *093 LM00100
VECTOR VALUES P1 = 0 *094 LM00101
VECTOR VALUES P2 = 0 *095 LM00102
VECTOR VALUES I = 1 *096 LM00103
END OF PROGRAM *097 LM00104
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00756 TRANSFER VECTOR LENGTH 00021 PROGRAM BEGINS 00154
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
B1 00026 A 1 G1 00043 1 J 00064 1 N3 00107 A 1 SWAP 00115 2
B2 00027 A 1 G2 00044 1 LINE 00102 A 1 N4 00110 A 1 TEMP 00116 1
B3 00030 A 1 GD 00052 A 1 LOOP 00024 4 NGG 00111 A 1 TOP 00025 4
BUF 00040 A 1 GG 00021 4 MODE 00103 1 N 00112 1 V 00121 A 1
C 00041 A 1 GK 00061 A 1 MZE 00104 A 1 P1 00113 A 1 WJ 00122 A 1
D 00042 1 I 00062 A 1 N1 00105 A 1 P2 00114 A 1 WK 00123 A 1
EOF 00022 4 IT 00063 1 N2 00106 A 1 PASS 00021 4 WW 00021 4
ERR 00023 4
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BCDEC 00002 1 BFCLOS 00003 1 BFOPEN 00004 1
BFREAD 00005 1 BFWRIT 00006 1 CHNCOM 00007 1 COMARG 00010 1 DELETE 00011 1
DERBC 00012 1 DSKER 00013 1 EXIT 00014 1 GETBUF 00015 1 .SETUP 00016 1
LJUST 00017 1 PRMESS 00020 1
0ABSOLUTE CONSTANTS
00142 +256260606060 00146 -202545635131 00132 +000000000016 00152 -266060606060 00140 +007777777700
00136 +000001000000 00135 +000000007777 00137 +000023442643 00131 +000000000014 00130 +000000000007
00127 +000000000003 00145 -116060606060 00134 +000000001274 00133 +000000000660 00144 -036044462425
00143 +314343252721 00151 -206060442624 00150 -204751462745 00124 +000000000000 00147 -204751462245
00153 -377777777777 00126 +000000000002 00125 +000000000001 00141 +233000000000
0STATEMENT DICTIONARY
00022 TXL -300351000346 00023 TXL -300752000751 00024 TXL -300316000307 00025 TXL -300361000357
0PROGRAM
N'R 001 LM00003
MODE = COMARG.(1) 002 LM00004
00154 TSX +0 07400 4 00016 00155 TSX +0 07400 4 00010 00156 TXH +3 00000 0 00125 00157 STO +0 60100 0 00103
W'R COMARG.(2,IT) .NE. 777777 777777K, N3 = IT 003 LM00005
00160 TSX +0 07400 4 00010 00161 TXH +3 00000 0 00126 00162 TXH +3 00000 0 00063 00163 SUB +0 40200 0 00153
00164 TZE +0 10000 0 00167 00165 CLA +0 50000 0 00063 00166 STO +0 60100 0 00107
W'R MODE .E. $ PROBN$ 004 LM00006
00167 CLA +0 50000 0 00103 00170 SUB +0 40200 0 00147 00171 TNZ -0 10000 0 00175
IT = 0 005 LM00007
00172 CLA +0 50000 0 00124 00173 STO +0 60100 0 00063
O'R MODE .E. $ PROGN$ 006 LM00008
00174 TRA +0 02000 0 00217 00175 CLA +0 50000 0 00103 00176 SUB +0 40200 0 00150 00177 TNZ -0 10000 0 00203
IT = 1 007 LM00009
00200 CLA +0 50000 0 00125 00201 STO +0 60100 0 00063
O'R MODE .E. $ MFD$ 008 LM00010
00202 TRA +0 02000 0 00217 00203 CLA +0 50000 0 00103 00204 SUB +0 40200 0 00151 00205 TNZ -0 10000 0 00211
IT = 2 009 LM00011
00206 CLA +0 50000 0 00126 00207 STO +0 60100 0 00063
O'E 010 LM00012
00210 TRA +0 02000 0 00217
PRMESS.($ILLEGAL MODE$,MODE) 011 LM00013
00211 TSX +0 07400 4 00020 00212 TXH +3 00000 0 00143 00213 TXH +3 00000 0 00144 00214 TXH +3 00000 0 00103
CHNCOM.(0) 012 LM00014
00215 TSX +0 07400 4 00007 00216 TXH +3 00000 0 00124
E'L 013 LM00015
GETBUF.(B1,432) 014 LM00016
00217 TSX +0 07400 4 00015 00220 TXH +3 00000 0 00026 00221 TXH +3 00000 0 00133
GETBUF.(B2,432) 015 LM00017
00222 TSX +0 07400 4 00015 00223 TXH +3 00000 0 00027 00224 TXH +3 00000 0 00133
GETBUF.(B3,432) 016 LM00018
00225 TSX +0 07400 4 00015 00226 TXH +3 00000 0 00030 00227 TXH +3 00000 0 00133
GETBUF.(WK,700) 017 LM00019
00230 TSX +0 07400 4 00015 00231 TXH +3 00000 0 00123 00232 TXH +3 00000 0 00134
GETBUF.(WJ,700) 018 LM00020
00233 TSX +0 07400 4 00015 00234 TXH +3 00000 0 00122 00235 TXH +3 00000 0 00134
ATTNAM.(V(2)...2) 019 LM00024
00236 TSX +0 07400 4 00001 00237 TIX +2 00126 0 00117
ATTACH.(N1,N2) 020 LM00025
00240 TSX +0 07400 4 00000 00241 TXH +3 00000 0 00105 00242 TXH +3 00000 0 00106
BFOPEN.($R$,N1,N2,B1(B1+432),B2(B2+432),MZE,ERR) 021 LM00026
00243 CLA +0 50000 0 00027 00244 ADD +0 40000 0 00133 00245 SUB +0 40200 0 00246 00246 TXH +3 00000 0 00027
00247 STA +0 62100 0 00262 00250 CLA +0 50000 0 00026 00251 ADD +0 40000 0 00133 00252 SUB +0 40200 0 00253
00253 TXH +3 00000 0 00026 00254 STA +0 62100 0 00261 00255 TSX +0 07400 4 00004 00256 TXH +3 00000 0 00145
00257 TXH +3 00000 0 00105 00260 TXH +3 00000 0 00106 00261 TXH +3 00000 0 00000 00262 TXH +3 00000 0 00000
00263 TXH +3 00000 0 00104 00264 TXH +3 00000 0 00023
ATTACH.(V(2),V(1),ERR) 022 LM00027
00265 TSX +0 07400 4 00000 00266 TXH +3 00000 0 00117 00267 TXH +3 00000 0 00120 00270 TXH +3 00000 0 00023
BFREAD.(N1,N2,BUF(3)...3,EOF,C,ERR) 023 LM00029
00271 TSX +0 07400 4 00005 00272 TXH +3 00000 0 00105 00273 TXH +3 00000 0 00106 00274 TIX +2 00127 0 00035
00275 TXH +3 00000 0 00022 00276 TXH +3 00000 0 00041 00277 TXH +3 00000 0 00023
BFREAD.(N1,N2,BUF(7)...7,EOF,C,ERR) 024 LM00030
00300 TSX +0 07400 4 00005 00301 TXH +3 00000 0 00105 00302 TXH +3 00000 0 00106 00303 TIX +2 00130 0 00031
00304 TXH +3 00000 0 00022 00305 TXH +3 00000 0 00041 00306 TXH +3 00000 0 00023
LOOP BFREAD.(N1,N2,BUF(7)...7,EOF,C,ERR) 025 LM00031
00307 TSX +0 07400 4 00005 00310 TXH +3 00000 0 00105 00311 TXH +3 00000 0 00106 00312 TIX +2 00130 0 00031
00313 TXH +3 00000 0 00022 00314 TXH +3 00000 0 00041 00315 TXH +3 00000 0 00023
W'R ((BUF(7).V.BUF(6)).E.0), T'O LOOP 026 LM00032
00316 CAL -0 50000 0 00031 00317 ORA -0 50100 0 00032 00320 SLW +0 60200 0 00753 00321 CLA +0 50000 0 00753
00322 SUB +0 40200 0 00124 00323 TNZ -0 10000 0 00325 00324 TRA +0 02000 0 00024
WK(WK+I) = LJUST.(BUF(7)) 027 LM00033
00325 TSX +0 07400 4 00017 00326 TXH +3 00000 0 00031 00327 STO +0 60100 0 00753 00330 CLA +0 50000 0 00123
00331 ADD +0 40000 0 00062 00332 PAX +0 73400 1 00000 00333 CLA +0 50000 0 00753 00334 STO +0 60100 1 00123
WJ(WJ+I) = BUF(6) 028 LM00034
00335 CLA +0 50000 0 00122 00336 ADD +0 40000 0 00062 00337 PAX +0 73400 1 00000 00340 CLA +0 50000 0 00032
00341 STO +0 60100 1 00122
I = I + 1 029 LM00035
00342 CLA +0 50000 0 00062 00343 ADD +0 40000 0 00125 00344 STO +0 60100 0 00062
T'O LOOP 030 LM00036
00345 TRA +0 02000 0 00024
EOF N = I - 1 031 LM00037
00346 CLA +0 50000 0 00062 00347 SUB +0 40200 0 00125 00350 STO +0 60100 0 00112
BFCLOS.(N1,N2,ERR) 032 LM00038
00351 TSX +0 07400 4 00003 00352 TXH +3 00000 0 00105 00353 TXH +3 00000 0 00106 00354 TXH +3 00000 0 00023
D = N 033 LM00039
00355 CLA +0 50000 0 00112 00356 STO +0 60100 0 00042
TOP SWAP = 0B 034 LM00040
00357 CLA +0 50000 0 00124 00360 STO +0 60100 0 00115
D = (D+1)/2 035 LM00041
00361 CLA +0 50000 0 00042 00362 ADD +0 40000 0 00125 00363 LRS +0 76500 0 00043 00364 DVP +0 22100 0 00126
00365 STQ -0 60000 0 00042
T'H PASS, FOR I = 1,1,I+D .G. N 036 LM00042
00366 CLA +0 50000 0 00125 00367 STO +0 60100 0 00062 00370 TRA +0 02000 0 00374 00371 CLA +0 50000 0 00062
00372 ADD +0 40000 0 00125 00373 STO +0 60100 0 00062 00374 CLA +0 50000 0 00062 00375 ADD +0 40000 0 00042
00376 SUB +0 40200 0 00112 00377 TZE +0 10000 0 00401 00400 TPL +0 12000 0 00635
G1 = WJ(WJ+I) 037 LM00043
00401 CLA +0 50000 0 00122 00402 ADD +0 40000 0 00062 00403 PAX +0 73400 2 00000 00404 CLA +0 50000 2 00122
00405 STO +0 60100 0 00043
G2 = WJ(WJ+I+D) 038 LM00044
00406 CLA +0 50000 0 00122 00407 ADD +0 40000 0 00062 00410 ADD +0 40000 0 00042 00411 PAX +0 73400 2 00000
00412 CLA +0 50000 2 00122 00413 STO +0 60100 0 00044
W'R G1.RS. 12 .E.$00CMFL$ 039 LM00045
00414 CAL -0 50000 0 00131 00415 STA +0 62100 0 00417 00416 CAL -0 50000 0 00043 00417 LGR -0 76500 0 00000
00420 SLW +0 60200 0 00753 00421 CLA +0 50000 0 00753 00422 SUB +0 40200 0 00137 00423 TNZ -0 10000 0 00430
G1 = G1.A.7777K 040 LM00046
00424 CAL -0 50000 0 00043 00425 ANA -0 32000 0 00135 00426 SLW +0 60200 0 00043
O'E 041 LM00047
00427 TRA +0 02000 0 00434
G1 = BCDEC.(G1) + 1K6 042 LM00048
00430 TSX +0 07400 4 00002 00431 TXH +3 00000 0 00043 00432 ADD +0 40000 0 00136 00433 STO +0 60100 0 00043
E'L 043 LM00049
W'R G2.RS. 12 .E.$00CMFL$ 044 LM00050
00434 CAL -0 50000 0 00131 00435 STA +0 62100 0 00437 00436 CAL -0 50000 0 00044 00437 LGR -0 76500 0 00000
00440 SLW +0 60200 0 00753 00441 CLA +0 50000 0 00753 00442 SUB +0 40200 0 00137 00443 TNZ -0 10000 0 00450
G2 = G2.A.7777K 045 LM00051
00444 CAL -0 50000 0 00044 00445 ANA -0 32000 0 00135 00446 SLW +0 60200 0 00044
O'E 046 LM00052
00447 TRA +0 02000 0 00454
G2 = BCDEC.(G2) + 1K6 047 LM00053
00450 TSX +0 07400 4 00002 00451 TXH +3 00000 0 00044 00452 ADD +0 40000 0 00136 00453 STO +0 60100 0 00044
E'L 048 LM00054
W'R IT .NE. 0 049 LM00055
00454 CLA +0 50000 0 00063 00455 SUB +0 40200 0 00124 00456 TZE +0 10000 0 00545
P1 = BCDEC.(WK(WK+I).A.007777777700K) 050 LM00056
00457 CLA +0 50000 0 00123 00460 ADD +0 40000 0 00062 00461 PAX +0 73400 1 00000 00462 CAL -0 50000 1 00123
00463 ANA -0 32000 0 00140 00464 SLW +0 60200 0 00753 00465 TSX +0 07400 4 00002 00466 TXH +3 00000 0 00753
00467 STO +0 60100 0 00113
P2 = BCDEC.(WK(WK+I+D).A.007777777700K) 051 LM00057
00470 CLA +0 50000 0 00123 00471 ADD +0 40000 0 00062 00472 ADD +0 40000 0 00042 00473 PAX +0 73400 1 00000
00474 CAL -0 50000 1 00123 00475 ANA -0 32000 0 00140 00476 SLW +0 60200 0 00753 00477 TSX +0 07400 4 00002
00500 TXH +3 00000 0 00753 00501 STO +0 60100 0 00114
W'R IT .E. 2 052 LM00058
00502 CLA +0 50000 0 00063 00503 SUB +0 40200 0 00126 00504 TNZ -0 10000 0 00545
T'H GG, FOR J = 0,1,J .GE. NGG 053 LM00059
00505 CLA +0 50000 0 00124 00506 STO +0 60100 0 00064 00507 TRA +0 02000 0 00513 00510 CLA +0 50000 0 00064
00511 ADD +0 40000 0 00125 00512 STO +0 60100 0 00064 00513 CLA +0 50000 0 00064 00514 SUB +0 40200 0 00111
00515 TZE +0 10000 0 00545 00516 TPL +0 12000 0 00545
W'R WK(WK+I) .E. GD(J), P1 = P1 + GK(J) 054 LM00060
00517 CLA +0 50000 0 00123 00520 ADD +0 40000 0 00062 00521 PAX +0 73400 1 00000 00522 LXA +0 53400 2 00064
00523 CLA +0 50000 1 00123 00524 SUB +0 40200 2 00052 00525 TNZ -0 10000 0 00531 00526 CLA +0 50000 0 00113
00527 ADD +0 40000 2 00061 00530 STO +0 60100 0 00113
W'R WK(WK+I+D) .E. GD(J), P2 = P2 + GK(J) 055 LM00061
00531 CLA +0 50000 0 00123 00532 ADD +0 40000 0 00062 00533 ADD +0 40000 0 00042 00534 PAX +0 73400 1 00000
00535 LXA +0 53400 2 00064 00536 CLA +0 50000 1 00123 00537 SUB +0 40200 2 00052 00540 TNZ -0 10000 0 00544
00541 CLA +0 50000 0 00114 00542 ADD +0 40000 2 00061 00543 STO +0 60100 0 00114
GG C'E 056 LM00062
00544 TRA +0 02000 0 00510
E'L 057 LM00063
E'L 058 LM00064
W'R P1 .G. P2 .OR. (P1 .E. P2 .AND. G1 .G. G2) 059 LM00065
00545 CLA +0 50000 0 00043 00546 SUB +0 40200 0 00044 00547 TZE +0 10000 0 00554 00550 TMI -0 12000 0 00554
00551 CLA +0 50000 0 00113 00552 SUB +0 40200 0 00114 00553 TZE +0 10000 0 00560 00554 CLA +0 50000 0 00113
00555 SUB +0 40200 0 00114 00556 TZE +0 10000 0 00634 00557 TMI -0 12000 0 00634
TEMP = WK(WK+I) 060 LM00066
00560 CLA +0 50000 0 00123 00561 ADD +0 40000 0 00062 00562 PAX +0 73400 2 00000 00563 CLA +0 50000 2 00123
00564 STO +0 60100 0 00116
WK(WK+I) = WK(WK+I+D) 061 LM00067
00565 CLA +0 50000 0 00123 00566 ADD +0 40000 0 00062 00567 ADD +0 40000 0 00042 00570 STO +0 60100 0 00753
00571 CLA +0 50000 0 00123 00572 ADD +0 40000 0 00062 00573 PAX +0 73400 1 00000 00574 LXA +0 53400 2 00753
00575 CLA +0 50000 2 00123 00576 STO +0 60100 1 00123
WK(WK+I+D) = TEMP 062 LM00068
00577 CLA +0 50000 0 00123 00600 ADD +0 40000 0 00062 00601 ADD +0 40000 0 00042 00602 PAX +0 73400 1 00000
00603 CLA +0 50000 0 00116 00604 STO +0 60100 1 00123
TEMP = WJ(WJ+I) 063 LM00069
00605 CLA +0 50000 0 00122 00606 ADD +0 40000 0 00062 00607 PAX +0 73400 2 00000 00610 CLA +0 50000 2 00122
00611 STO +0 60100 0 00116
WJ(WJ+I) = WJ(WJ+I+D) 064 LM00070
00612 CLA +0 50000 0 00122 00613 ADD +0 40000 0 00062 00614 ADD +0 40000 0 00042 00615 STO +0 60100 0 00753
00616 CLA +0 50000 0 00122 00617 ADD +0 40000 0 00062 00620 PAX +0 73400 1 00000 00621 LXA +0 53400 2 00753
00622 CLA +0 50000 2 00122 00623 STO +0 60100 1 00122
WJ(WJ+I+D) = TEMP 065 LM00071
00624 CLA +0 50000 0 00122 00625 ADD +0 40000 0 00062 00626 ADD +0 40000 0 00042 00627 PAX +0 73400 1 00000
00630 CLA +0 50000 0 00116 00631 STO +0 60100 1 00122
SWAP = 1B 066 LM00072
00632 CLA +0 50000 0 00125 00633 STO +0 60100 0 00115
E'L 067 LM00073
PASS C'E 068 LM00074
00634 TRA +0 02000 0 00371
W'R SWAP.OR.(D.G.1), T'O TOP 069 LM00075
00635 CLA +0 50000 0 00042 00636 SUB +0 40200 0 00125 00637 TZE +0 10000 0 00641 00640 TPL +0 12000 0 00643
00641 NZT -0 52000 0 00115 00642 TRA +0 02000 0 00644 00643 TRA +0 02000 0 00025
DELETE.(N3,N4,0,ERR) 070 LM00076
00644 TSX +0 07400 4 00011 00645 TXH +3 00000 0 00107 00646 TXH +3 00000 0 00110 00647 TXH +3 00000 0 00124
00650 TXH +3 00000 0 00023
BFOPEN.($W$,N3,N4,B1(B1+432),B2(B2+432),B3(B3+432),ERR) 071 LM00077
00651 CLA +0 50000 0 00030 00652 ADD +0 40000 0 00133 00653 SUB +0 40200 0 00654 00654 TXH +3 00000 0 00030
00655 STA +0 62100 0 00676 00656 CLA +0 50000 0 00027 00657 ADD +0 40000 0 00133 00660 SUB +0 40200 0 00661
00661 TXH +3 00000 0 00027 00662 STA +0 62100 0 00675 00663 CLA +0 50000 0 00026 00664 ADD +0 40000 0 00133
00665 SUB +0 40200 0 00666 00666 TXH +3 00000 0 00026 00667 STA +0 62100 0 00674 00670 TSX +0 07400 4 00004
00671 TXH +3 00000 0 00152 00672 TXH +3 00000 0 00107 00673 TXH +3 00000 0 00110 00674 TXH +3 00000 0 00000
00675 TXH +3 00000 0 00000 00676 TXH +3 00000 0 00000 00677 TXH +3 00000 0 00023
T'H WW, FOR I = 1,1,I.G.N 072 LM00078
00700 CLA +0 50000 0 00125 00701 STO +0 60100 0 00062 00702 TRA +0 02000 0 00706 00703 CLA +0 50000 0 00062
00704 ADD +0 40000 0 00125 00705 STO +0 60100 0 00062 00706 CLA +0 50000 0 00062 00707 SUB +0 40200 0 00112
00710 TZE +0 10000 0 00712 00711 TPL +0 12000 0 00732
LINE(13) = WK(WK+I) 073 LM00079
00712 CLA +0 50000 0 00123 00713 ADD +0 40000 0 00062 00714 PAX +0 73400 2 00000 00715 CLA +0 50000 2 00123
00716 STO +0 60100 0 00065
LINE(12) = WJ(WJ+I) 074 LM00080
00717 CLA +0 50000 0 00122 00720 ADD +0 40000 0 00062 00721 PAX +0 73400 2 00000 00722 CLA +0 50000 2 00122
00723 STO +0 60100 0 00066
BFWRIT.(N3,N4,LINE(13)...14,ERR) 075 LM00081
00724 TSX +0 07400 4 00006 00725 TXH +3 00000 0 00107 00726 TXH +3 00000 0 00110 00727 TIX +2 00132 0 00065
00730 TXH +3 00000 0 00023
WW C'E 076 LM00082
00731 TRA +0 02000 0 00703
BFCLOS.(N3,N4,ERR) 077 LM00083
00732 TSX +0 07400 4 00003 00733 TXH +3 00000 0 00107 00734 TXH +3 00000 0 00110 00735 TXH +3 00000 0 00023
PRMESS.(DERBC.(N),$ ENTRIES$,N3,N4) 078 LM00084
00736 TSX +0 07400 4 00012 00737 TXH +3 00000 0 00112 00740 STO +0 60100 0 00753 00741 TSX +0 07400 4 00020
00742 TXH +3 00000 0 00753 00743 TXH +3 00000 0 00146 00744 TXH +3 00000 0 00142 00745 TXH +3 00000 0 00107
00746 TXH +3 00000 0 00110
CHNCOM.(0) 079 LM00085
00747 TSX +0 07400 4 00007 00750 TXH +3 00000 0 00124
ERR DSKER. 080 LM00086
00751 TSX +0 07400 4 00013
V'S N1 = $M.F.D.$ 081 LM00088
00105 -0 43326 3 32433
V'S N2 = $(FILE)$ 082 LM00089
00106 -3 42631 4 32534
V'S N3 = $ MFD$ 083 LM00090
00107 -2 06060 4 42624
V'S N4 = $ PUNCH$ 084 LM00091
00110 -2 04764 4 52330
V'S LINE...LINE(13) = $$ 085 LM00092
00065 -2 06060 6 06060 00066 -2 06060 6 06060 00067 -2 06060 6 06060 00070 -2 06060 6 06060
00071 -2 06060 6 06060 00072 -2 06060 6 06060 00073 -2 06060 6 06060 00074 -2 06060 6 06060
00075 -2 06060 6 06060 00076 -2 06060 6 06060 00077 -2 06060 6 06060 00100 -2 06060 6 06060
00101 -2 06060 6 06060 00102 -2 06060 6 06060
D'N V(2), BUF(7) 086 LM00093
V'S C = 0 087 LM00094
00041 +0 00000 0 00000
V'S MZE = 4K11 088 LM00095
00104 -0 00000 0 00000
V'S GD = $M.F.D.$,$DRUMUT$,$DISKUT$,$DSKEDT$,$M1416$,$C0056$ 089 LM00096
00045 +2 30000 0 50660 00046 -0 40104 0 10660 00047 +2 46242 2 52463 00050 +2 43162 4 26463
00051 +2 45164 4 46463 00052 -0 43326 3 32433
V'S GK = 47K10,46K10,45K10,44K10,43K10,42K10,41K10 090 LM00097
00053 -0 10000 0 00000 00054 -0 20000 0 00000 00055 -0 30000 0 00000 00056 -0 40000 0 00000
00057 -0 50000 0 00000 00060 -0 60000 0 00000 00061 -0 70000 0 00000
V'S NGG = 6 091 LM00098
00111 +0 00000 0 00006
D'N B1(0),B2(0),B3(0),WK(0),WJ(0),LINE(13) 092 LM00099
B'N SWAP 093 LM00100
V'S P1 = 0 094 LM00101
00113 +0 00000 0 00000
V'S P2 = 0 095 LM00102
00114 +0 00000 0 00000
V'S I = 1 096 LM00103
00062 +0 00000 0 00001
E'M 097 LM00104
00752 TSX +0 07400 4 00014
MOVER BCD 09/20/68 0220.1 3014 00000
1 MAD PROGRAM LISTING ... ... ... FILE MOVER MAD 02/15/68 1543.0
-
...MOVE CONTENTS OF ONE DIRECTORY TO ANOTHER. LM00001
LM00002
...R MOVER FMPB FMPG TOPB TOPG -'(STOP)'- -'(CHGE)'- LM00003
TRUNCATED..
R...(CHGE) ARGUMENT WILL MOVE PROTECTED FILES IF CAN BE CHFILE LM00004
...(CHGE) ARGUMENT WILL MOVE PROTECTED FILES IF CAN BE CHFILE LM00004
...(STOP) ARGUMENT WILL STOP DEAD IN FROM-DIRECTORY LM00005
LM00006
NORMAL MODE IS INTEGER *001 LM00007
DIMENSION A(20) *002 LM00008
DIMENSION ME(2) *003 LM00009
GCLS.(A,0) *004 LM00010
A(1) = SPLFN.(A(1)) *005 LM00011
A(3) = SPLFN.(A(3)) *006 LM00012
FERRTN.(ERR) *007 LM00013
ATTNAM.(ME(1)...2) *008 LM00014
LM00015
ATTACH.(A(1),A(2)) *009 LM00016
BFOPEN.($R$,UFD,FL,B1,-0,-0,ERR) *010 LM00017
BFREAD.(UFD,FL,X(2)...3,ERR,-0,ERR) *011 LM00018
LM00019
RD BFREAD.(UFD,FL,X(6)...7,EOF,-0,ERR) *012 LM00020
WHENEVER X(6).E.0.OR.X(5).E.0.OR.X(6).E.UFD,TRANSFER TORD *013 LM00021
LM00022
MOVFIL.(X(6),X(5),A(3),A(4),SKID,CODE) *014 LM00023
TRANSFER TO RD *015 LM00024
LM00025
EOF WHENEVER A(5).NE.$(STOP)$ *016 LM00026
ATTACH.(ME(1),ME) *017 LM00027
CHNCOM.(0) *018 LM00028
OTHERWISE *019 LM00029
DEAD. *020 LM00030
END OF CONDITIONAL *021 LM00031
LM00032
SKID WHENEVER A(6) .E. $(CHGE)$ .AND. CODE .E. 5 .AND. *022 LM00033
1 X(2).A.7K5 .NE. 0 *022 LM00034
CHFILE.(X(6),X(5),0,-0,-0,CNT) *023 LM00035
MOVFIL.(X(6),X(5),A(3),A(4),CNT,CODE) *024 LM00036
OTHERWISE *025 LM00037
CNT PRMESS.(X(6),X(5),WHY(CODE)) *026 LM00038
END OF CONDITIONAL *027 LM00039
TRANSFER TO RD *028 LM00040
LM00041
ERR PRMESS.($FILE$,$ERROR$) *029 LM00042
TRANSFER TO EOF *030 LM00043
LM00044
VECTOR VALUES UFD = $U.F.D.$ *031 LM00045
VECTOR VALUES FL = $(FILE)$ *032 LM00046
VECTOR VALUES WHY = $ 0$,$ 1$,$ PRIV$,$ FNF$,$ LINK$, *033 LM00047
1 $ PROT$,$ THERE$,$ 7$,$ ACTIV$,$ NOUFD$ *033 LM00048
DIMENSION B(432) *034 LM00049
DIMENSION X(7) *035 LM00050
EQUIVALENCE (B1,B(432)) *036 LM00051
LM00052
END OF PROGRAM *037 LM00053
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01173 TRANSFER VECTOR LENGTH 00016 PROGRAM BEGINS 00777
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
A 00731 A 1 CNT 00700 4 ERR 00702 4 RD 00703 4 WHY 00751 A 1
B1 00017 1 CODE 00732 1 FL 00733 A 1 SKID 00704 4 X 00761 A 1
B 00677 A 1 EOF 00701 4 ME 00736 A 1 UFD 00737 A 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BFOPEN 00002 1 BFREAD 00003 1 CHFILE 00004 1
CHNCOM 00005 1 DEAD 00006 1 EXIT 00007 1 FERRTN 00010 1 GCLS 00011 1
.SETUP 00012 1 MOVFIL 00013 1 PRMESS 00014 1 SPLFN 00015 1
0ABSOLUTE CONSTANTS
00772 +255151465160 00773 +263143256060 00775 -342330272534 00766 +000000000005 00770 +000000700000
00776 -346263464734 00767 +000000000007 00765 +000000000003 00774 -116060606060 00764 +000000000002
00762 +000000000000 00763 +000000000001 00771 +233000000000
0STATEMENT DICTIONARY
00700 TXL -301161001151 00701 TXL -301103001100 00702 TXL -301165001162 00703 TXL -301056001045
00704 TXL -301126001112
0PROGRAM
N'R 001 LM00007
D'N A(20) 002 LM00008
D'N ME(2) 003 LM00009
GCLS.(A,0) 004 LM00010
00777 TSX +0 07400 4 00012 01000 TSX +0 07400 4 00011 01001 TXH +3 00000 0 00731 01002 TXH +3 00000 0 00762
A(1) = SPLFN.(A(1)) 005 LM00011
01003 TSX +0 07400 4 00015 01004 TXH +3 00000 0 00730 01005 STO +0 60100 0 00730
A(3) = SPLFN.(A(3)) 006 LM00012
01006 TSX +0 07400 4 00015 01007 TXH +3 00000 0 00726 01010 STO +0 60100 0 00726
FERRTN.(ERR) 007 LM00013
01011 TSX +0 07400 4 00010 01012 TXH +3 00000 0 00702
ATTNAM.(ME(1)...2) 008 LM00014
01013 TSX +0 07400 4 00001 01014 TIX +2 00764 0 00735
ATTACH.(A(1),A(2)) 009 LM00016
01015 TSX +0 07400 4 00000 01016 TXH +3 00000 0 00730 01017 TXH +3 00000 0 00727
BFOPEN.($R$,UFD,FL,B1,-0,-0,ERR) 010 LM00017
01020 CLS +0 50200 0 00762 01021 STO +0 60100 0 01167 01022 CLS +0 50200 0 00762 01023 STO +0 60100 0 01170
01024 TSX +0 07400 4 00002 01025 TXH +3 00000 0 00774 01026 TXH +3 00000 0 00737 01027 TXH +3 00000 0 00733
01030 TXH +3 00000 0 00017 01031 TXH +3 00000 0 01170 01032 TXH +3 00000 0 01167 01033 TXH +3 00000 0 00702
BFREAD.(UFD,FL,X(2)...3,ERR,-0,ERR) 011 LM00018
01034 CLS +0 50200 0 00762 01035 STO +0 60100 0 01170 01036 TSX +0 07400 4 00003 01037 TXH +3 00000 0 00737
01040 TXH +3 00000 0 00733 01041 TIX +2 00765 0 00757 01042 TXH +3 00000 0 00702 01043 TXH +3 00000 0 01170
01044 TXH +3 00000 0 00702
RD BFREAD.(UFD,FL,X(6)...7,EOF,-0,ERR) 012 LM00020
01045 CLS +0 50200 0 00762 01046 STO +0 60100 0 01170 01047 TSX +0 07400 4 00003 01050 TXH +3 00000 0 00737
01051 TXH +3 00000 0 00733 01052 TIX +2 00767 0 00753 01053 TXH +3 00000 0 00701 01054 TXH +3 00000 0 01170
01055 TXH +3 00000 0 00702
W'R X(6).E.0.OR.X(5).E.0.OR.X(6).E.UFD,T'ORD 013 LM00021
01056 CLA +0 50000 0 00753 01057 SUB +0 40200 0 00737 01060 TZE +0 10000 0 01067 01061 CLA +0 50000 0 00754
01062 SUB +0 40200 0 00762 01063 TZE +0 10000 0 01067 01064 CLA +0 50000 0 00753 01065 SUB +0 40200 0 00762
01066 TNZ -0 10000 0 01070 01067 TRA +0 02000 0 00703
MOVFIL.(X(6),X(5),A(3),A(4),SKID,CODE) 014 LM00023
01070 TSX +0 07400 4 00013 01071 TXH +3 00000 0 00753 01072 TXH +3 00000 0 00754 01073 TXH +3 00000 0 00726
01074 TXH +3 00000 0 00725 01075 TXH +3 00000 0 00704 01076 TXH +3 00000 0 00732
T'O RD 015 LM00024
01077 TRA +0 02000 0 00703
EOF W'R A(5).NE.$(STOP)$ 016 LM00026
01100 CLA +0 50000 0 00724 01101 SUB +0 40200 0 00776 01102 TZE +0 10000 0 01111
ATTACH.(ME(1),ME) 017 LM00027
01103 TSX +0 07400 4 00000 01104 TXH +3 00000 0 00735 01105 TXH +3 00000 0 00736
CHNCOM.(0) 018 LM00028
01106 TSX +0 07400 4 00005 01107 TXH +3 00000 0 00762
O'E 019 LM00029
01110 TRA +0 02000 0 01112
DEAD. 020 LM00030
01111 TSX +0 07400 4 00006
E'L 021 LM00031
SKID W'R A(6) .E. $(CHGE)$ .AND. CODE .E. 5 .AND. 022 LM00033
1 X(2).A.7K5 .NE. 0 022 LM00034
01112 CAL -0 50000 0 00757 01113 ANA -0 32000 0 00770 01114 SLW +0 60200 0 01170 01115 CLA +0 50000 0 01170
01116 SUB +0 40200 0 00762 01117 TZE +0 10000 0 01151 01120 CLA +0 50000 0 00732 01121 SUB +0 40200 0 00766
01122 TNZ -0 10000 0 01151 01123 CLA +0 50000 0 00723 01124 SUB +0 40200 0 00775 01125 TNZ -0 10000 0 01151
CHFILE.(X(6),X(5),0,-0,-0,CNT) 023 LM00035
01126 CLS +0 50200 0 00762 01127 STO +0 60100 0 01170 01130 CLS +0 50200 0 00762 01131 STO +0 60100 0 01167
01132 TSX +0 07400 4 00004 01133 TXH +3 00000 0 00753 01134 TXH +3 00000 0 00754 01135 TXH +3 00000 0 00762
01136 TXH +3 00000 0 01167 01137 TXH +3 00000 0 01170 01140 TXH +3 00000 0 00700
MOVFIL.(X(6),X(5),A(3),A(4),CNT,CODE) 024 LM00036
01141 TSX +0 07400 4 00013 01142 TXH +3 00000 0 00753 01143 TXH +3 00000 0 00754 01144 TXH +3 00000 0 00726
01145 TXH +3 00000 0 00725 01146 TXH +3 00000 0 00700 01147 TXH +3 00000 0 00732
O'E 025 LM00037
01150 TRA +0 02000 0 01161
CNT PRMESS.(X(6),X(5),WHY(CODE)) 026 LM00038
01151 CLA +0 50000 0 00732 01152 SUB +0 40200 0 01153 01153 TXH +3 00000 0 00751 01154 STA +0 62100 0 01160
01155 TSX +0 07400 4 00014 01156 TXH +3 00000 0 00753 01157 TXH +3 00000 0 00754 01160 TXH +3 00000 0 00000
E'L 027 LM00039
T'O RD 028 LM00040
01161 TRA +0 02000 0 00703
ERR PRMESS.($FILE$,$ERROR$) 029 LM00042
01162 TSX +0 07400 4 00014 01163 TXH +3 00000 0 00773 01164 TXH +3 00000 0 00772
T'O EOF 030 LM00043
01165 TRA +0 02000 0 00701
V'S UFD = $U.F.D.$ 031 LM00045
00737 -2 43326 3 32433
V'S FL = $(FILE)$ 032 LM00046
00733 -3 42631 4 32534
V'S WHY = $ 0$,$ 1$,$ PRIV$,$ FNF$,$ LINK$, 033 LM00047
1 $ PROT$,$ THERE$,$ 7$,$ ACTIV$,$ NOUFD$ 033 LM00048
00740 -2 04546 6 42624 00741 -2 02123 6 33165 00742 -2 00760 6 06060 00743 -2 06330 2 55125
00744 -2 04751 4 66360 00745 -2 04331 4 54260 00746 -2 02645 2 66060 00747 -2 04751 3 16560
00750 -2 00160 6 06060 00751 -2 00060 6 06060
D'N B(432) 034 LM00049
D'N X(7) 035 LM00050
E'E (B1,B(432)) 036 LM00051
E'M 037 LM00053
01166 TSX +0 07400 4 00007
MSCD BCD 02/09/69 0651.2 15240 00000
1 MAD PROGRAM LISTING ... ... ... FILE MSCD MAD 01/20/69 1143.8
-
SCD PLOT OUT SCHEDULING QUEUES. LM00001
7/13/66 - NOEL I. MORRIS LM00002
LM00003
MODIFIED FOR SHORT 'M.' FORM BY R ROACH 10-15-67 LM00004
LM00005
NORMAL MODE IS INTEGER *001 LM00006
BOOLEAN PROBOK, LEVOK, MDOT *002 LM00007
LM00008
VECTOR VALUES QLEN = 0, 0 *003 LM00009
EQUIVALENCE (FQLEN, QLEN) *004 LM00010
FLOATING POINT FQLEN *005 LM00011
LM00012
VECTOR VALUES MINUS1 = -1 *006 LM00013
VECTOR VALUES FENCE = 777777777777K *007 LM00014
VECTOR VALUES COMMND = $COMMND$ *008 LM00015
VECTOR VALUES AVQLEN = $AVQLEN$ *009 LM00016
VECTOR VALUES OVRTOT = $OVRTOT$ *010 LM00017
VECTOR VALUES PLIST = $PLIST$ *011 LM00018
VECTOR VALUES ULIST = $ULIST$ *012 LM00019
VECTOR VALUES PROBN = $PROBN$ *013 LM00020
VECTOR VALUES PROGN = $PROGN$ *014 LM00021
VECTOR VALUES MAXLV = $MAXLV$ *015 LM00022
VECTOR VALUES WRKTIM = $WRKTIM$ *016 LM00023
VECTOR VALUES TIMLEV = $TIMLEV$ *017 LM00024
VECTOR VALUES UCLOCK = $UCLOCK$ *018 LM00025
VECTOR VALUES UCHARG = $UCHARG$ *019 LM00026
VECTOR VALUES NUSERS = $NUSERS$ *020 LM00027
VECTOR VALUES MXUSRS = $MXUSRS$ *021 LM00028
VECTOR VALUES TOTTIM = $TOTTIM$ *022 LM00029
VECTOR VALUES BKGTIM = $BKGTIM$ *023 LM00030
VECTOR VALUES SWPTIM = $SWPTIM$ *024 LM00031
VECTOR VALUES STRTIM = $STRTIM$ *025 LM00032
VECTOR VALUES PB = $PB $ *026 LM00033
VECTOR VALUES N = $N$ *027 LM00034
DIMENSION D1(1), D2(1), D3(1) *028 LM00035
FLOATING POINT D0, D1, D2, D3 *029 LM00036
LM00037
LM00038
LM00039
VECTOR VALUES LEVEL ... LEVEL (50) = -1 *030 LM00040
VECTOR VALUES POS ... POS (50) = -1 *031 LM00041
OLDTOT = 0 *032 LM00042
VECTOR VALUES SPACE ... SPACE (10) = 606033575757K *033 LM00043
VECTOR VALUES BLANK = 605757575757K *034 LM00044
VECTOR VALUES COMMA = 736057575757K *035 LM00045
VECTOR VALUES EQUAL = 601360575757K *036 LM00046
LM00047
LM00048
LM00049
LM00050
BEGINNING OF PROGRAM. LM00051
LM00052
WHENEVER COMARG.(0) .E. $ M.$ *037 LM00053
MDOT = 1B *038 LM00054
OTHERWISE *039 LM00055
MDOT = 0B *040 LM00056
END OF CONDITIONAL *041 LM00057
PRMESS. *042 LM00058
SLTIM = COMARG. (1) *043 LM00059
WHENEVER SLTIM .E. FENCE *044 LM00060
SLTIM = 0 *045 LM00061
OTHERWISE *046 LM00062
SLTIM = BCDEC. (SLTIM) * 60 *047 LM00063
END OF CONDITIONAL *048 LM00064
LM00065
GET COMMON LOCATION VALUES. LM00066
LM00067
AVQLEN = ACORE. (AVQLEN) .RS. 18 *049 LM00068
OVRTOT = ACORE. (OVRTOT) .RS. 18 *050 LM00069
PLIST = COMLOC. (PLIST) *051 LM00070
ULIST = COMLOC. (ULIST) *052 LM00071
PROBN = COMLOC. (PROBN) *053 LM00072
PROGN = COMLOC. (PROGN) *054 LM00073
COMMND = COMLOC. (COMMND) *055 LM00074
MAXLV = COMLOC. (MAXLV) *056 LM00075
WRKTIM = COMLOC. (WRKTIM) *057 LM00076
TIMLEV = COMLOC. (TIMLEV) *058 LM00077
UCLOCK = COMLOC. (UCLOCK) *059 LM00078
UCHARG = COMLOC. (UCHARG) *060 LM00079
NUSERS = COMLOC. (NUSERS) *061 LM00080
MXUSRS = COMLOC. (MXUSRS) *062 LM00081
TOTTIM = COMLOC. (TOTTIM) *063 LM00082
BKGTIM = COMLOC. (BKGTIM) *064 LM00083
SWPTIM = COMLOC. (SWPTIM) *065 LM00084
STRTIM = COMLOC.(STRTIM) *066 LM00085
PB = COMLOC.(PB) *067 LM00086
N = COMLOC. (N) *068 LM00087
TIMNOW = GETIME.(0) *069 LM00088
LM00089
LM00090
INITIALIZE QUEUES. LM00091
LM00092
FIRST = 1 *070 LM00093
BEGIN SPRAY. (MINUS1, LEVEL ... LEVEL (N), POS ... POS (N) ) *071 LM00094
LM00095
LM00096
PICK UP QUEUE POSITIONS. LM00097
LM00098
THROUGH LEVLOP, FOR QLEV = 0, 1, QLEV .G. MAXLV *072 LM00099
NEXQ = QLEV *073 LM00100
QPOS = 1 *074 LM00101
LM00102
NEXT NEXQ = GLOC. (PLIST+NEXQ) *075 LM00103
USR = GLOC. (ULIST+NEXQ) *076 LM00104
WHENEVER USR .NE. MINUS1 *077 LM00105
LEVEL (USR) = QLEV - 1 *078 LM00106
POS (USR) = QPOS *079 LM00107
QPOS = QPOS + 1 *080 LM00108
TRANSFER TO NEXT *081 LM00109
END OF CONDITIONAL *082 LM00110
LM00111
LEVLOP CONTINUE *083 LM00112
LM00113
LM00114
GET AVERAGE QUEUE LENGTH AND PRINT. LM00115
LM00116
TIME = GTDYTM. (0) *084 LM00117
FTIME. (TIME, DATE, TIME) *085 LM00118
DATE = ((DATE) .A. 7777K8) .V. *086 LM00119
1 ((DATE .RS. 6) .A. 7777K2) .V. $00/00 $ *086 LM00120
QLEN = GLOC. (AVQLEN ) *087 LM00121
FQLEN = (FQLEN / 1000.0) + 0.05 *088 LM00122
FLOTBC. (QLEN) *089 LM00123
PRMESS. ($AVG. QUEUE LENGTH AT$, DATE, TIME, *090 LM00124
1 EQUAL, QLEN ... 2) *090 LM00125
LM00126
PRINT OUT DRUM OVERFLOW STATISTICS. LM00127
LM00128
OVRT = GLOC.(OVRTOT) *091 LM00129
WHENEVER OLDTOT-OVRT .NE. 0 *092 LM00130
PRMESS.($OVRTOT$,601360575757K,BZ57.(DERBC.(OVRT))) *093 LM00131
OLDTOT = OVRT *094 LM00132
END OF CONDITIONAL *095 LM00133
LM00134
LM00135
LM00136
LM00137
LM00138
PRINT OUT THE NUMBER OF USERS. LM00139
.. LM00140
PRMESS.($USERS=$,CONV.(GLOC.(NUSERS)),$,MAX=$,BZ57.(DERBC. *096 LM00141
1 (GLOC.(MXUSRS)))) *096 LM00142
TEMP = GLOC.(TOTTIM) *097 LM00143
D0 = TEMP - T0 *098 LM00144
T0 = TEMP *099 LM00145
TEMP = GLOC.(BKGTIM) *100 LM00146
D3 = TEMP - T3 *101 LM00147
D3 = 100.*D3/D0 + .05 *102 LM00148
T3 = TEMP *103 LM00149
TEMP = GLOC.(SWPTIM) *104 LM00150
D2 = TEMP - T2 *105 LM00151
D2 = 100.*D2/D0 + .05 *106 LM00152
T2 = TEMP *107 LM00153
D1 = 100.15 - D2 - D3 *108 LM00154
FLOTBC. (D1) *109 LM00155
FLOTBC. (D2) *110 LM00156
FLOTBC. (D3) *111 LM00157
LM00158
WHENEVER FIRST .E. 0 *112 LM00159
PRMESS. ($GOOD =$, D1 ... 2, COMMA, *113 LM00160
2 $SWAP =$, D2 ... 2, COMMA, *113 LM00161
3 $OTHER=$, D3 ... 2) *113 LM00162
END OF CONDITIONAL *114 LM00163
LM00164
LM00165
THROUGH LOOP, FOR I = 0, 1, I .G. N *115 LM00166
PERCNT = GLOC. (PB + I) *116 LM00167
WHENEVER PERCNT .E. 0, TRANSFER TO LOOP *117 LM00168
LM00169
WHENEVER I .E. 0 *118 LM00170
PROB = $ BACKG$ *119 LM00171
PROG = $ROUND $ *120 LM00172
OTHERWISE *121 LM00173
PROB = GLOC. (PROBN + I) *122 LM00174
PROG = GLOC. (PROGN + I) *123 LM00175
END OF CONDITIONAL *124 LM00176
LM00177
STRT = GLOC. (STRTIM + I) *125 LM00178
WRK = GLOC. (WRKTIM + I) *126 LM00179
LM00180
REALP = (100 * WRK) / (TIMNOW - STRT) *127 LM00181
LM00182
PRMESS.(PROB,PROG,BLANK,BZEL.(HRMIN.(STRT)),BZEL.(HRMIN.(WRK) *128 LM00183
1 ), BZEL.(DERBC. (REALP)), BZEL.(DERBC. (PERCNT))) *128 LM00184
LM00185
LOOP CONTINUE *129 LM00186
WHENEVER MDOT, TRANSFER TO SNORE *130 LM00187
PRMESS. *131 LM00188
PRMESS. *132 LM00189
LM00190
LM00191
PRINT OUT QUEUE POSITION CHART. LM00192
LM00193
PRMESS. ( $ USER COMMND WRKTIM TIMLEV UCLOCK U$, *133 LM00194
1 $SWAP 1 2 3 4 5 6 7 8 9$ ) *133 LM00195
PRMESS. *134 LM00196
LM00197
THROUGH PRLOOP, FOR USR = 0, 1, USR .G. N *135 LM00198
LM00199
WHENEVER USR .E. 0 *136 LM00200
PROB = $ BACKG$ *137 LM00201
PROG = $ROUND $ *138 LM00202
OTHERWISE *139 LM00203
PROB = GLOC. (PROBN+USR) *140 LM00204
PROG = GLOC. (PROGN+USR) *141 LM00205
END OF CONDITIONAL *142 LM00206
COM = GLOC. (COMMND+USR) *143 LM00207
WHENEVER COM .E. 0, COM = $ $ *144 LM00208
LEVOK = LEVEL (USR) .NE. MINUS1 *145 LM00209
PROBOK = PROB .NE. 0 *146 LM00210
LM00211
WHENEVER LEVOK *147 LM00212
WHENEVER .NOT. PROBOK *148 LM00213
PROB = $ $ *149 LM00214
PROG = $ $ *150 LM00215
END OF CONDITIONAL *151 LM00216
WT = GLOC. (WRKTIM+USR) * 60 *152 LM00217
TL = GLOC. (TIMLEV+USR) * 60 *153 LM00218
TM = GLOC. (UCLOCK+USR) * 60 *154 LM00219
TN = TM - GLOC. (UCHARG+USR) * 60 *155 LM00220
PRMESS. (PROB, PROG, BLANK, COM, BLANK, *156 LM00221
1 CTIME. (WT), BLANK, CTIME. (TL), BLANK, *156 LM00222
2 CTIME. (TM), BLANK, CTIME. (TN), *156 LM00223
3 SPACE ... LEVEL (USR), CONV. (POS (USR) ) ) *156 LM00224
END OF CONDITIONAL *157 LM00225
LM00226
PRLOOP CONTINUE *158 LM00227
LM00228
LM00229
EXIT TO CHNCOM. LM00230
LM00231
PRMESS. *159 LM00232
SNORE PRMESS. *160 LM00233
WHENEVER SLTIM .NE. 0 *161 LM00234
SNOOZE.(SLTIM,0) *162 LM00235
OTHERWISE *163 LM00236
CHNCOM. (1) *164 LM00237
END OF CONDITIONAL *165 LM00238
PRMESS. *166 LM00239
FIRST = 0 *167 LM00240
TRANSFER TO BEGIN *168 LM00241
LM00242
LM00243
LM00244
CONVERT TO BCD. LM00245
LM00246
INTERNAL FUNCTION (NUM) *169 LM00247
ENTRY TO CONV. *170 LM00248
FUNCTION RETURN (BZEL. (DEFBC. (NUM) ) .A. 777777K) .V. 575757K6 *171 LM00249
END OF FUNCTION *172 LM00250
LM00251
LM00252
CONVERT TIME TO BCD. LM00253
LM00254
INTERNAL FUNCTION (NUM) *173 LM00255
ENTRY TO CTIME. *174 LM00256
FUNCTION RETURN BZEL. (MINS. (NUM) ) *175 LM00257
END OF FUNCTION *176 LM00258
LM00259
LM00260
.. FLOATING POINT TO BCD. LM00261
.. LM00262
INTERNAL FUNCTION (NUM) *177 LM00263
ENTRY TO FLOTBC. *178 LM00264
FIX. (NUM, NUM, NUM (1)) *179 LM00265
NUM = CONV. (NUM) *180 LM00266
NUM (1) = (FRACBC.(NUM(1)).RS.6) .A. 77K8 .V. 330057575757K *181 LM00267
FUNCTION RETURN *182 LM00268
END OF FUNCTION *183 LM00269
LM00270
LM00271
END OF PROGRAM *184 LM00272
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01626 TRANSFER VECTOR LENGTH 00026 PROGRAM BEGINS 00376
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AVQLEN 00040 A 1 FIRST 00060 1 NUSERS 00154 A 1 QLEN 00033 A 1 TIME 00301 1
BEGIN 00034 4 FQLEN 00033 0 OLDTOT 00155 1 QLEV 00253 1 TIMLEV 00302 A 1
BKGTIM 00041 A 1 I 00061 1 OVRTOT 00156 A 1 QPOS 00254 1 TIMNOW 00303 1
BLANK 00042 A 1 LEVEL 00144 A 1 OVRT 00157 1 REALP 00255 1 TL 00304 1
COMMA 00043 A 1 LEVLOP 00031 4 PB 00160 A 1 SLTIM 00256 1 TM 00305 1
COMMND 00044 A 1 LEVOK 00145 2 PERCNT 00161 1 SNORE 00037 4 TN 00306 1
COM 00045 1 LOOP 00035 4 PLIST 00162 A 1 SPACE 00271 A 1 TOTTIM 00307 A 1
D0 00046 0 MAXLV 00146 A 1 POS 00245 A 1 STRTIM 00272 A 1 UCHARG 00310 A 1
D1 00050 A 0 MDOT 00147 2 PRLOOP 00031 4 STRT 00273 1 UCLOCK 00311 A 1
D2 00052 A 0 MINUS1 00150 A 1 PROBN 00246 A 1 SWPTIM 00274 A 1 ULIST 00312 A 1
D3 00054 A 0 MXUSRS 00151 A 1 PROBOK 00247 2 T0 00275 1 USR 00313 1
DATE 00055 1 NEXQ 00152 1 PROB 00250 1 T2 00276 1 WRK 00314 1
EQUAL 00056 A 1 NEXT 00036 4 PROGN 00251 A 1 T3 00277 1 WRKTIM 00315 A 1
FENCE 00057 A 1 N 00153 A 1 PROG 00252 1 TEMP 00300 1 WT 00316 1
0FUNCTION DICTIONARY
ACORE 00000 1 BCDEC 00001 1 BZ57 00002 1 BZEL 00003 1 CHNCOM 00004 1
COMARG 00005 1 COMLOC 00006 1 DEFBC 00007 1 DERBC 00010 1 EXIT 00011 1
FIX 00012 1 FRACBC 00013 1 FTIME 00014 1 GETIME 00015 1 GLOC 00016 1
GTDYTM 00017 1 HRMIN 00020 1 .SETUP 00021 1 MINS 00022 1 PRMESS 00023 1
SNOOZE 00024 1 SPRAY 00025 1 CONV 00026 1 CTIME 00027 1 FLOTBC 00030 1
0ABSOLUTE CONSTANTS
00345 +330057575757 00331 +007700000000 00353 -175757000000 00327 +000000777777 00365 -206060606060
00360 -201160606060 00357 -200760601060 00356 -200560600660 00355 -200360600460 00354 -200160600260
00371 -226621476060 00347 -034623426064 00346 -032565606423 00344 +314460633144 00341 +246066514263
00363 -202346444445 00367 -222551606060 00366 -206060606064 00325 +000000000144 00352 -114664452460
00362 -202221234227 00350 -066330255113 00370 -226621476013 00343 +274646246013 00334 +207620463146
00333 +207620000000 00374 -334421671360 00373 -246225516213 00361 -201360575757 00351 -066551634663
00321 +000000000002 00336 +216360606060 00342 +254527633060 00372 -242564256043 00337 +216527336050
00332 +174631463146 00335 +212764000000 00330 +000061000060 00375 -377700000000 00326 +000000777700
00322 +000000000006 00323 +000000000022 00324 +000000000074 00364 -206060604433 00317 +000000000000
00320 +000000000001 00340 +233000000000
0STATEMENT DICTIONARY
00034 TXL -300562000544 00035 TXL -301204001203 00036 TXL -300606000600 00037 TXL -301445001444
0PROGRAM
N'R 001 LM00006
B'N PROBOK, LEVOK, MDOT 002 LM00007
V'S QLEN = 0, 0 003 LM00009
00376 TSX +0 07400 4 00021 00032 +0 00000 0 00000 00033 +0 00000 0 00000
E'E (FQLEN, QLEN) 004 LM00010
F'T FQLEN 005 LM00011
V'S MINUS1 = -1 006 LM00013
00150 -0 00000 0 00001
V'S FENCE = 777777777777K 007 LM00014
00057 -3 77777 7 77777
V'S COMMND = $COMMND$ 008 LM00015
00044 +2 34644 4 44524
V'S AVQLEN = $AVQLEN$ 009 LM00016
00040 +2 16550 4 32545
V'S OVRTOT = $OVRTOT$ 010 LM00017
00156 -0 66551 6 34663
V'S PLIST = $PLIST$ 011 LM00018
00162 -0 74331 6 26360
V'S ULIST = $ULIST$ 012 LM00019
00312 -2 44331 6 26360
V'S PROBN = $PROBN$ 013 LM00020
00246 -0 75146 2 24560
V'S PROGN = $PROGN$ 014 LM00021
00251 -0 75146 2 74560
V'S MAXLV = $MAXLV$ 015 LM00022
00146 -0 42167 4 36560
V'S WRKTIM = $WRKTIM$ 016 LM00023
00315 -2 65142 6 33144
V'S TIMLEV = $TIMLEV$ 017 LM00024
00302 -2 33144 4 32565
V'S UCLOCK = $UCLOCK$ 018 LM00025
00311 -2 42343 4 62342
V'S UCHARG = $UCHARG$ 019 LM00026
00310 -2 42330 2 15127
V'S NUSERS = $NUSERS$ 020 LM00027
00154 -0 56462 2 55162
V'S MXUSRS = $MXUSRS$ 021 LM00028
00151 -0 46764 6 25162
V'S TOTTIM = $TOTTIM$ 022 LM00029
00307 -2 34663 6 33144
V'S BKGTIM = $BKGTIM$ 023 LM00030
00041 +2 24227 6 33144
V'S SWPTIM = $SWPTIM$ 024 LM00031
00274 -2 26647 6 33144
V'S STRTIM = $STRTIM$ 025 LM00032
00272 -2 26351 6 33144
V'S PB = $PB $ 026 LM00033
00160 -0 72260 6 06060
V'S N = $N$ 027 LM00034
00153 -0 56060 6 06060
DIMENSION D1(1), D2(1), D3(1) 028 LM00035
FLOATING POINT D0, D1, D2, D3 029 LM00036
V'S LEVEL ... LEVEL (50) = -1 030 LM00040
00062 -0 00000 0 00001 00063 -0 00000 0 00001 00064 -0 00000 0 00001 00065 -0 00000 0 00001
00066 -0 00000 0 00001 00067 -0 00000 0 00001 00070 -0 00000 0 00001 00071 -0 00000 0 00001
00072 -0 00000 0 00001 00073 -0 00000 0 00001 00074 -0 00000 0 00001 00075 -0 00000 0 00001
00076 -0 00000 0 00001 00077 -0 00000 0 00001 00100 -0 00000 0 00001 00101 -0 00000 0 00001
00102 -0 00000 0 00001 00103 -0 00000 0 00001 00104 -0 00000 0 00001 00105 -0 00000 0 00001
00106 -0 00000 0 00001 00107 -0 00000 0 00001 00110 -0 00000 0 00001 00111 -0 00000 0 00001
00112 -0 00000 0 00001 00113 -0 00000 0 00001 00114 -0 00000 0 00001 00115 -0 00000 0 00001
00116 -0 00000 0 00001 00117 -0 00000 0 00001 00120 -0 00000 0 00001 00121 -0 00000 0 00001
00122 -0 00000 0 00001 00123 -0 00000 0 00001 00124 -0 00000 0 00001 00125 -0 00000 0 00001
00126 -0 00000 0 00001 00127 -0 00000 0 00001 00130 -0 00000 0 00001 00131 -0 00000 0 00001
00132 -0 00000 0 00001 00133 -0 00000 0 00001 00134 -0 00000 0 00001 00135 -0 00000 0 00001
00136 -0 00000 0 00001 00137 -0 00000 0 00001 00140 -0 00000 0 00001 00141 -0 00000 0 00001
00142 -0 00000 0 00001 00143 -0 00000 0 00001 00144 -0 00000 0 00001
V'S POS ... POS (50) = -1 031 LM00041
00163 -0 00000 0 00001 00164 -0 00000 0 00001 00165 -0 00000 0 00001 00166 -0 00000 0 00001
00167 -0 00000 0 00001 00170 -0 00000 0 00001 00171 -0 00000 0 00001 00172 -0 00000 0 00001
00173 -0 00000 0 00001 00174 -0 00000 0 00001 00175 -0 00000 0 00001 00176 -0 00000 0 00001
00177 -0 00000 0 00001 00200 -0 00000 0 00001 00201 -0 00000 0 00001 00202 -0 00000 0 00001
00203 -0 00000 0 00001 00204 -0 00000 0 00001 00205 -0 00000 0 00001 00206 -0 00000 0 00001
00207 -0 00000 0 00001 00210 -0 00000 0 00001 00211 -0 00000 0 00001 00212 -0 00000 0 00001
00213 -0 00000 0 00001 00214 -0 00000 0 00001 00215 -0 00000 0 00001 00216 -0 00000 0 00001
00217 -0 00000 0 00001 00220 -0 00000 0 00001 00221 -0 00000 0 00001 00222 -0 00000 0 00001
00223 -0 00000 0 00001 00224 -0 00000 0 00001 00225 -0 00000 0 00001 00226 -0 00000 0 00001
00227 -0 00000 0 00001 00230 -0 00000 0 00001 00231 -0 00000 0 00001 00232 -0 00000 0 00001
00233 -0 00000 0 00001 00234 -0 00000 0 00001 00235 -0 00000 0 00001 00236 -0 00000 0 00001
00237 -0 00000 0 00001 00240 -0 00000 0 00001 00241 -0 00000 0 00001 00242 -0 00000 0 00001
00243 -0 00000 0 00001 00244 -0 00000 0 00001 00245 -0 00000 0 00001
OLDTOT = 0 032 LM00042
00377 CLA +0 50000 0 00317 00400 STO +0 60100 0 00155
V'S SPACE ... SPACE (10) = 606033575757K 033 LM00043
00257 -2 06033 5 75757 00260 -2 06033 5 75757 00261 -2 06033 5 75757 00262 -2 06033 5 75757
00263 -2 06033 5 75757 00264 -2 06033 5 75757 00265 -2 06033 5 75757 00266 -2 06033 5 75757
00267 -2 06033 5 75757 00270 -2 06033 5 75757 00271 -2 06033 5 75757
V'S BLANK = 605757575757K 034 LM00044
00042 -2 05757 5 75757
V'S COMMA = 736057575757K 035 LM00045
00043 -3 36057 5 75757
V'S EQUAL = 601360575757K 036 LM00046
00056 -2 01360 5 75757
W'R COMARG.(0) .E. $ M.$ 037 LM00053
00401 TSX +0 07400 4 00005 00402 TXH +3 00000 0 00317 00403 SUB +0 40200 0 00364 00404 TNZ -0 10000 0 00410
MDOT = 1B 038 LM00054
00405 CLA +0 50000 0 00320 00406 STO +0 60100 0 00147
O'E 039 LM00055
00407 TRA +0 02000 0 00412
MDOT = 0B 040 LM00056
00410 CLA +0 50000 0 00317 00411 STO +0 60100 0 00147
E'L 041 LM00057
PRMESS. 042 LM00058
00412 TSX +0 07400 4 00023
SLTIM = COMARG. (1) 043 LM00059
00413 TSX +0 07400 4 00005 00414 TXH +3 00000 0 00320 00415 STO +0 60100 0 00256
W'R SLTIM .E. FENCE 044 LM00060
00416 CLA +0 50000 0 00256 00417 SUB +0 40200 0 00057 00420 TNZ -0 10000 0 00424
SLTIM = 0 045 LM00061
00421 CLA +0 50000 0 00317 00422 STO +0 60100 0 00256
O'E 046 LM00062
00423 TRA +0 02000 0 00431
SLTIM = BCDEC. (SLTIM) * 60 047 LM00063
00424 TSX +0 07400 4 00001 00425 TXH +3 00000 0 00256 00426 XCA +0 13100 0 00000 00427 MPY +0 20000 0 00324
00430 STQ -0 60000 0 00256
E'L 048 LM00064
AVQLEN = ACORE. (AVQLEN) .RS. 18 049 LM00068
00431 TSX +0 07400 4 00000 00432 TXH +3 00000 0 00040 00433 STO +0 60100 0 01617 00434 CAL -0 50000 0 00323
00435 STA +0 62100 0 00437 00436 CAL -0 50000 0 01617 00437 LGR -0 76500 0 00000 00440 SLW +0 60200 0 00040
OVRTOT = ACORE. (OVRTOT) .RS. 18 050 LM00069
00441 TSX +0 07400 4 00000 00442 TXH +3 00000 0 00156 00443 STO +0 60100 0 01617 00444 CAL -0 50000 0 00323
00445 STA +0 62100 0 00447 00446 CAL -0 50000 0 01617 00447 LGR -0 76500 0 00000 00450 SLW +0 60200 0 00156
PLIST = COMLOC. (PLIST) 051 LM00070
00451 TSX +0 07400 4 00006 00452 TXH +3 00000 0 00162 00453 STO +0 60100 0 00162
ULIST = COMLOC. (ULIST) 052 LM00071
00454 TSX +0 07400 4 00006 00455 TXH +3 00000 0 00312 00456 STO +0 60100 0 00312
PROBN = COMLOC. (PROBN) 053 LM00072
00457 TSX +0 07400 4 00006 00460 TXH +3 00000 0 00246 00461 STO +0 60100 0 00246
PROGN = COMLOC. (PROGN) 054 LM00073
00462 TSX +0 07400 4 00006 00463 TXH +3 00000 0 00251 00464 STO +0 60100 0 00251
COMMND = COMLOC. (COMMND) 055 LM00074
00465 TSX +0 07400 4 00006 00466 TXH +3 00000 0 00044 00467 STO +0 60100 0 00044
MAXLV = COMLOC. (MAXLV) 056 LM00075
00470 TSX +0 07400 4 00006 00471 TXH +3 00000 0 00146 00472 STO +0 60100 0 00146
WRKTIM = COMLOC. (WRKTIM) 057 LM00076
00473 TSX +0 07400 4 00006 00474 TXH +3 00000 0 00315 00475 STO +0 60100 0 00315
TIMLEV = COMLOC. (TIMLEV) 058 LM00077
00476 TSX +0 07400 4 00006 00477 TXH +3 00000 0 00302 00500 STO +0 60100 0 00302
UCLOCK = COMLOC. (UCLOCK) 059 LM00078
00501 TSX +0 07400 4 00006 00502 TXH +3 00000 0 00311 00503 STO +0 60100 0 00311
UCHARG = COMLOC. (UCHARG) 060 LM00079
00504 TSX +0 07400 4 00006 00505 TXH +3 00000 0 00310 00506 STO +0 60100 0 00310
NUSERS = COMLOC. (NUSERS) 061 LM00080
00507 TSX +0 07400 4 00006 00510 TXH +3 00000 0 00154 00511 STO +0 60100 0 00154
MXUSRS = COMLOC. (MXUSRS) 062 LM00081
00512 TSX +0 07400 4 00006 00513 TXH +3 00000 0 00151 00514 STO +0 60100 0 00151
TOTTIM = COMLOC. (TOTTIM) 063 LM00082
00515 TSX +0 07400 4 00006 00516 TXH +3 00000 0 00307 00517 STO +0 60100 0 00307
BKGTIM = COMLOC. (BKGTIM) 064 LM00083
00520 TSX +0 07400 4 00006 00521 TXH +3 00000 0 00041 00522 STO +0 60100 0 00041
SWPTIM = COMLOC. (SWPTIM) 065 LM00084
00523 TSX +0 07400 4 00006 00524 TXH +3 00000 0 00274 00525 STO +0 60100 0 00274
STRTIM = COMLOC.(STRTIM) 066 LM00085
00526 TSX +0 07400 4 00006 00527 TXH +3 00000 0 00272 00530 STO +0 60100 0 00272
PB = COMLOC.(PB) 067 LM00086
00531 TSX +0 07400 4 00006 00532 TXH +3 00000 0 00160 00533 STO +0 60100 0 00160
N = COMLOC. (N) 068 LM00087
00534 TSX +0 07400 4 00006 00535 TXH +3 00000 0 00153 00536 STO +0 60100 0 00153
TIMNOW = GETIME.(0) 069 LM00088
00537 TSX +0 07400 4 00015 00540 TXH +3 00000 0 00317 00541 STO +0 60100 0 00303
FIRST = 1 070 LM00093
00542 CLA +0 50000 0 00320 00543 STO +0 60100 0 00060
BEGIN SPRAY. (MINUS1, LEVEL ... LEVEL (N), POS ... POS (N) ) 071 LM00094
00544 CLA +0 50000 0 00153 00545 SUB +0 40200 0 00546 00546 TXH +3 00000 0 00245 00547 ALS +0 76700 0 00022
00550 STD +0 62200 0 00561 00551 CLA +0 50000 0 00153 00552 SUB +0 40200 0 00553 00553 TXH +3 00000 0 00144
00554 ALS +0 76700 0 00022 00555 STD +0 62200 0 00560 00556 TSX +0 07400 4 00025 00557 TXH +3 00000 0 00150
00560 TIX +2 00000 0 00144 00561 TIX +2 00000 0 00245
T'H LEVLOP, FOR QLEV = 0, 1, QLEV .G. MAXLV 072 LM00099
00562 CLA +0 50000 0 00317 00563 STO +0 60100 0 00253 00564 TRA +0 02000 0 00570 00565 CLA +0 50000 0 00253
00566 ADD +0 40000 0 00320 00567 STO +0 60100 0 00253 00570 CLA +0 50000 0 00253 00571 SUB +0 40200 0 00146
00572 TZE +0 10000 0 00574 00573 TPL +0 12000 0 00632
NEXQ = QLEV 073 LM00100
00574 CLA +0 50000 0 00253 00575 STO +0 60100 0 00152
QPOS = 1 074 LM00101
00576 CLA +0 50000 0 00320 00577 STO +0 60100 0 00254
NEXT NEXQ = GLOC. (PLIST+NEXQ) 075 LM00103
00600 CLA +0 50000 0 00162 00601 ADD +0 40000 0 00152 00602 STO +0 60100 0 01617 00603 TSX +0 07400 4 00016
00604 TXH +3 00000 0 01617 00605 STO +0 60100 0 00152
USR = GLOC. (ULIST+NEXQ) 076 LM00104
00606 CLA +0 50000 0 00312 00607 ADD +0 40000 0 00152 00610 STO +0 60100 0 01617 00611 TSX +0 07400 4 00016
00612 TXH +3 00000 0 01617 00613 STO +0 60100 0 00313
W'R USR .NE. MINUS1 077 LM00105
00614 CLA +0 50000 0 00313 00615 SUB +0 40200 0 00150 00616 TZE +0 10000 0 00631
LEVEL (USR) = QLEV - 1 078 LM00106
00617 CLA +0 50000 0 00253 00620 SUB +0 40200 0 00320 00621 LXA +0 53400 1 00313 00622 STO +0 60100 1 00144
POS (USR) = QPOS 079 LM00107
00623 CLA +0 50000 0 00254 00624 STO +0 60100 1 00245
QPOS = QPOS + 1 080 LM00108
00625 CLA +0 50000 0 00254 00626 ADD +0 40000 0 00320 00627 STO +0 60100 0 00254
T'O NEXT 081 LM00109
00630 TRA +0 02000 0 00036
E'L 082 LM00110
LEVLOP C'E 083 LM00112
00631 TRA +0 02000 0 00565
TIME = GTDYTM. (0) 084 LM00117
00632 TSX +0 07400 4 00017 00633 TXH +3 00000 0 00317 00634 STO +0 60100 0 00301
FTIME. (TIME, DATE, TIME) 085 LM00118
00635 TSX +0 07400 4 00014 00636 TXH +3 00000 0 00301 00637 TXH +3 00000 0 00055 00640 TXH +3 00000 0 00301
DATE = ((DATE) .A. 7777K8) .V. 086 LM00119
1 ((DATE .RS. 6) .A. 7777K2) .V. $00/00 $ 086 LM00120
00641 CAL -0 50000 0 00322 00642 STA +0 62100 0 00644 00643 CAL -0 50000 0 00055 00644 LGR -0 76500 0 00000
00645 ANA -0 32000 0 00326 00646 SLW +0 60200 0 01617 00647 CAL -0 50000 0 00055 00650 ANA -0 32000 0 00375
00651 ORA -0 50100 0 01617 00652 ORA -0 50100 0 00330 00653 SLW +0 60200 0 00055
QLEN = GLOC. (AVQLEN ) 087 LM00121
00654 TSX +0 07400 4 00016 00655 TXH +3 00000 0 00040 00656 STO +0 60100 0 00033
FQLEN = (FQLEN / 1000.0) + 0.05 088 LM00122
00657 CLA +0 50000 0 00033 00660 FDP +0 24100 0 00335 00661 XCA +0 13100 0 00000 00662 FAD +0 30000 0 00332
00663 STO +0 60100 0 00033
FLOTBC. (QLEN) 089 LM00123
00664 TSX +0 07400 4 00030 00665 TXH +3 00000 0 00033
PRMESS. ($AVG. QUEUE LENGTH AT$, DATE, TIME, 090 LM00124
1 EQUAL, QLEN ... 2) 090 LM00125
00666 TSX +0 07400 4 00023 00667 TXH +3 00000 0 00337 00670 TXH +3 00000 0 00372 00671 TXH +3 00000 0 00342
00672 TXH +3 00000 0 00336 00673 TXH +3 00000 0 00055 00674 TXH +3 00000 0 00301 00675 TXH +3 00000 0 00056
00676 TIX +2 00321 0 00033
OVRT = GLOC.(OVRTOT) 091 LM00129
00677 TSX +0 07400 4 00016 00700 TXH +3 00000 0 00156 00701 STO +0 60100 0 00157
W'R OLDTOT-OVRT .NE. 0 092 LM00130
00702 CLA +0 50000 0 00155 00703 SUB +0 40200 0 00157 00704 SUB +0 40200 0 00317 00705 TZE +0 10000 0 00722
PRMESS.($OVRTOT$,601360575757K,BZ57.(DERBC.(OVRT))) 093 LM00131
00706 TSX +0 07400 4 00010 00707 TXH +3 00000 0 00157 00710 STO +0 60100 0 01617 00711 TSX +0 07400 4 00002
00712 TXH +3 00000 0 01617 00713 STO +0 60100 0 01617 00714 TSX +0 07400 4 00023 00715 TXH +3 00000 0 00351
00716 TXH +3 00000 0 00361 00717 TXH +3 00000 0 01617
OLDTOT = OVRT 094 LM00132
00720 CLA +0 50000 0 00157 00721 STO +0 60100 0 00155
E'L 095 LM00133
PRMESS.($USERS=$,CONV.(GLOC.(NUSERS)),$,MAX=$,BZ57.(DERBC. 096 LM00141
1 (GLOC.(MXUSRS)))) 096 LM00142
00722 TSX +0 07400 4 00016 00723 TXH +3 00000 0 00151 00724 STO +0 60100 0 01617 00725 TSX +0 07400 4 00010
00726 TXH +3 00000 0 01617 00727 STO +0 60100 0 01617 00730 TSX +0 07400 4 00002 00731 TXH +3 00000 0 01617
00732 STO +0 60100 0 01617 00733 TSX +0 07400 4 00016 00734 TXH +3 00000 0 00154 00735 STO +0 60100 0 01620
00736 TSX +0 07400 4 00026 00737 TXH +3 00000 0 01620 00740 STO +0 60100 0 01620 00741 TSX +0 07400 4 00023
00742 TXH +3 00000 0 00373 00743 TXH +3 00000 0 01620 00744 TXH +3 00000 0 00374 00745 TXH +3 00000 0 01617
TEMP = GLOC.(TOTTIM) 097 LM00143
00746 TSX +0 07400 4 00016 00747 TXH +3 00000 0 00307 00750 STO +0 60100 0 00300
D0 = TEMP - T0 098 LM00144
00751 CLA +0 50000 0 00300 00752 SUB +0 40200 0 00275 00753 ORA -0 50100 0 00340 00754 FAD +0 30000 0 00340
00755 STO +0 60100 0 00046
T0 = TEMP 099 LM00145
00756 CLA +0 50000 0 00300 00757 STO +0 60100 0 00275
TEMP = GLOC.(BKGTIM) 100 LM00146
00760 TSX +0 07400 4 00016 00761 TXH +3 00000 0 00041 00762 STO +0 60100 0 00300
D3 = TEMP - T3 101 LM00147
00763 CLA +0 50000 0 00300 00764 SUB +0 40200 0 00277 00765 ORA -0 50100 0 00340 00766 FAD +0 30000 0 00340
00767 STO +0 60100 0 00054
D3 = 100.*D3/D0 + .05 102 LM00148
00770 LDQ +0 56000 0 00333 00771 FMP +0 26000 0 00054 00772 FDP +0 24100 0 00046 00773 XCA +0 13100 0 00000
00774 FAD +0 30000 0 00332 00775 STO +0 60100 0 00054
T3 = TEMP 103 LM00149
00776 CLA +0 50000 0 00300 00777 STO +0 60100 0 00277
TEMP = GLOC.(SWPTIM) 104 LM00150
01000 TSX +0 07400 4 00016 01001 TXH +3 00000 0 00274 01002 STO +0 60100 0 00300
D2 = TEMP - T2 105 LM00151
01003 CLA +0 50000 0 00300 01004 SUB +0 40200 0 00276 01005 ORA -0 50100 0 00340 01006 FAD +0 30000 0 00340
01007 STO +0 60100 0 00052
D2 = 100.*D2/D0 + .05 106 LM00152
01010 LDQ +0 56000 0 00333 01011 FMP +0 26000 0 00052 01012 FDP +0 24100 0 00046 01013 XCA +0 13100 0 00000
01014 FAD +0 30000 0 00332 01015 STO +0 60100 0 00052
T2 = TEMP 107 LM00153
01016 CLA +0 50000 0 00300 01017 STO +0 60100 0 00276
D1 = 100.15 - D2 - D3 108 LM00154
01020 CLA +0 50000 0 00334 01021 FSB +0 30200 0 00052 01022 FSB +0 30200 0 00054 01023 STO +0 60100 0 00050
FLOTBC. (D1) 109 LM00155
01024 TSX +0 07400 4 00030 01025 TXH +3 00000 0 00050
FLOTBC. (D2) 110 LM00156
01026 TSX +0 07400 4 00030 01027 TXH +3 00000 0 00052
FLOTBC. (D3) 111 LM00157
01030 TSX +0 07400 4 00030 01031 TXH +3 00000 0 00054
WHENEVER FIRST .E. 0 112 LM00159
01032 CLA +0 50000 0 00060 01033 SUB +0 40200 0 00317 01034 TNZ -0 10000 0 01046
PRMESS. ($GOOD =$, D1 ... 2, COMMA, 113 LM00160
2 $SWAP =$, D2 ... 2, COMMA, 113 LM00161
3 $OTHER=$, D3 ... 2) 113 LM00162
01035 TSX +0 07400 4 00023 01036 TXH +3 00000 0 00343 01037 TIX +2 00321 0 00050 01040 TXH +3 00000 0 00043
01041 TXH +3 00000 0 00370 01042 TIX +2 00321 0 00052 01043 TXH +3 00000 0 00043 01044 TXH +3 00000 0 00350
01045 TIX +2 00321 0 00054
END OF CONDITIONAL 114 LM00163
T'H LOOP, FOR I = 0, 1, I .G. N 115 LM00166
01046 CLA +0 50000 0 00317 01047 STO +0 60100 0 00061 01050 TRA +0 02000 0 01054 01051 CLA +0 50000 0 00061
01052 ADD +0 40000 0 00320 01053 STO +0 60100 0 00061 01054 CLA +0 50000 0 00061 01055 SUB +0 40200 0 00153
01056 TZE +0 10000 0 01060 01057 TPL +0 12000 0 01204
PERCNT = GLOC. (PB + I) 116 LM00167
01060 CLA +0 50000 0 00160 01061 ADD +0 40000 0 00061 01062 STO +0 60100 0 01620 01063 TSX +0 07400 4 00016
01064 TXH +3 00000 0 01620 01065 STO +0 60100 0 00161
W'R PERCNT .E. 0, T'O LOOP 117 LM00168
01066 CLA +0 50000 0 00161 01067 SUB +0 40200 0 00317 01070 TNZ -0 10000 0 01072 01071 TRA +0 02000 0 00035
W'R I .E. 0 118 LM00170
01072 CLA +0 50000 0 00061 01073 SUB +0 40200 0 00317 01074 TNZ -0 10000 0 01102
PROB = $ BACKG$ 119 LM00171
01075 CLA +0 50000 0 00362 01076 STO +0 60100 0 00250
PROG = $ROUND $ 120 LM00172
01077 CLA +0 50000 0 00352 01100 STO +0 60100 0 00252
O'E 121 LM00173
01101 TRA +0 02000 0 01116
PROB = GLOC. (PROBN + I) 122 LM00174
01102 CLA +0 50000 0 00246 01103 ADD +0 40000 0 00061 01104 STO +0 60100 0 01620 01105 TSX +0 07400 4 00016
01106 TXH +3 00000 0 01620 01107 STO +0 60100 0 00250
PROG = GLOC. (PROGN + I) 123 LM00175
01110 CLA +0 50000 0 00251 01111 ADD +0 40000 0 00061 01112 STO +0 60100 0 01620 01113 TSX +0 07400 4 00016
01114 TXH +3 00000 0 01620 01115 STO +0 60100 0 00252
E'L 124 LM00176
STRT = GLOC. (STRTIM + I) 125 LM00178
01116 CLA +0 50000 0 00272 01117 ADD +0 40000 0 00061 01120 STO +0 60100 0 01620 01121 TSX +0 07400 4 00016
01122 TXH +3 00000 0 01620 01123 STO +0 60100 0 00273
WRK = GLOC. (WRKTIM + I) 126 LM00179
01124 CLA +0 50000 0 00315 01125 ADD +0 40000 0 00061 01126 STO +0 60100 0 01620 01127 TSX +0 07400 4 00016
01130 TXH +3 00000 0 01620 01131 STO +0 60100 0 00314
REALP = (100 * WRK) / (TIMNOW - STRT) 127 LM00181
01132 CLA +0 50000 0 00303 01133 SUB +0 40200 0 00273 01134 STO +0 60100 0 01620 01135 LDQ +0 56000 0 00325
01136 MPY +0 20000 0 00314 01137 PXD -0 75400 0 00000 01140 LLS +0 76300 0 00000 01141 DVP +0 22100 0 01620
01142 STQ -0 60000 0 00255
PRMESS.(PROB,PROG,BLANK,BZEL.(HRMIN.(STRT)),BZEL.(HRMIN.(WRK) 128 LM00183
1 ), BZEL.(DERBC. (REALP)), BZEL.(DERBC. (PERCNT))) 128 LM00184
01143 TSX +0 07400 4 00010 01144 TXH +3 00000 0 00161 01145 STO +0 60100 0 01620 01146 TSX +0 07400 4 00003
01147 TXH +3 00000 0 01620 01150 STO +0 60100 0 01620 01151 TSX +0 07400 4 00010 01152 TXH +3 00000 0 00255
01153 STO +0 60100 0 01617 01154 TSX +0 07400 4 00003 01155 TXH +3 00000 0 01617 01156 STO +0 60100 0 01617
01157 TSX +0 07400 4 00020 01160 TXH +3 00000 0 00314 01161 STO +0 60100 0 01621 01162 TSX +0 07400 4 00003
01163 TXH +3 00000 0 01621 01164 STO +0 60100 0 01621 01165 TSX +0 07400 4 00020 01166 TXH +3 00000 0 00273
01167 STO +0 60100 0 01622 01170 TSX +0 07400 4 00003 01171 TXH +3 00000 0 01622 01172 STO +0 60100 0 01622
01173 TSX +0 07400 4 00023 01174 TXH +3 00000 0 00250 01175 TXH +3 00000 0 00252 01176 TXH +3 00000 0 00042
01177 TXH +3 00000 0 01622 01200 TXH +3 00000 0 01621 01201 TXH +3 00000 0 01617 01202 TXH +3 00000 0 01620
LOOP C'E 129 LM00186
01203 TRA +0 02000 0 01051
W'R MDOT, T'O SNORE 130 LM00187
01204 NZT -0 52000 0 00147 01205 TRA +0 02000 0 01207 01206 TRA +0 02000 0 00037
PRMESS. 131 LM00188
01207 TSX +0 07400 4 00023
PRMESS. 132 LM00189
01210 TSX +0 07400 4 00023
PRMESS. ( $ USER COMMND WRKTIM TIMLEV UCLOCK U$, 133 LM00194
1 $SWAP 1 2 3 4 5 6 7 8 9$ ) 133 LM00195
01211 TSX +0 07400 4 00023 01212 TXH +3 00000 0 00366 01213 TXH +3 00000 0 00367 01214 TXH +3 00000 0 00363
01215 TXH +3 00000 0 00341 01216 TXH +3 00000 0 00344 01217 TXH +3 00000 0 00346 01220 TXH +3 00000 0 00347
01221 TXH +3 00000 0 00371 01222 TXH +3 00000 0 00354 01223 TXH +3 00000 0 00355 01224 TXH +3 00000 0 00356
01225 TXH +3 00000 0 00357 01226 TXH +3 00000 0 00360
PRMESS. 134 LM00196
01227 TSX +0 07400 4 00023
T'H PRLOOP, FOR USR = 0, 1, USR .G. N 135 LM00198
01230 CLA +0 50000 0 00317 01231 STO +0 60100 0 00313 01232 TRA +0 02000 0 01236 01233 CLA +0 50000 0 00313
01234 ADD +0 40000 0 00320 01235 STO +0 60100 0 00313 01236 CLA +0 50000 0 00313 01237 SUB +0 40200 0 00153
01240 TZE +0 10000 0 01242 01241 TPL +0 12000 0 01443
W'R USR .E. 0 136 LM00200
01242 CLA +0 50000 0 00313 01243 SUB +0 40200 0 00317 01244 TNZ -0 10000 0 01252
PROB = $ BACKG$ 137 LM00201
01245 CLA +0 50000 0 00362 01246 STO +0 60100 0 00250
PROG = $ROUND $ 138 LM00202
01247 CLA +0 50000 0 00352 01250 STO +0 60100 0 00252
O'E 139 LM00203
01251 TRA +0 02000 0 01266
PROB = GLOC. (PROBN+USR) 140 LM00204
01252 CLA +0 50000 0 00246 01253 ADD +0 40000 0 00313 01254 STO +0 60100 0 01622 01255 TSX +0 07400 4 00016
01256 TXH +3 00000 0 01622 01257 STO +0 60100 0 00250
PROG = GLOC. (PROGN+USR) 141 LM00205
01260 CLA +0 50000 0 00251 01261 ADD +0 40000 0 00313 01262 STO +0 60100 0 01622 01263 TSX +0 07400 4 00016
01264 TXH +3 00000 0 01622 01265 STO +0 60100 0 00252
E'L 142 LM00206
COM = GLOC. (COMMND+USR) 143 LM00207
01266 CLA +0 50000 0 00044 01267 ADD +0 40000 0 00313 01270 STO +0 60100 0 01622 01271 TSX +0 07400 4 00016
01272 TXH +3 00000 0 01622 01273 STO +0 60100 0 00045
W'R COM .E. 0, COM = $ $ 144 LM00208
01274 CLA +0 50000 0 00045 01275 SUB +0 40200 0 00317 01276 TNZ -0 10000 0 01301 01277 CLA +0 50000 0 00365
01300 STO +0 60100 0 00045
LEVOK = LEVEL (USR) .NE. MINUS1 145 LM00209
01301 LXA +0 53400 1 00313 01302 CLA +0 50000 1 00144 01303 SUB +0 40200 0 00150 01304 TNZ -0 10000 0 01307
01305 PXD -0 75400 0 00000 01306 TRA +0 02000 0 01310 01307 CLA +0 50000 0 00320 01310 STO +0 60100 0 00145
PROBOK = PROB .NE. 0 146 LM00210
01311 CLA +0 50000 0 00250 01312 SUB +0 40200 0 00317 01313 TNZ -0 10000 0 01316 01314 PXD -0 75400 0 00000
01315 TRA +0 02000 0 01317 01316 CLA +0 50000 0 00320 01317 STO +0 60100 0 00247
W'R LEVOK 147 LM00212
01320 NZT -0 52000 0 00145 01321 TRA +0 02000 0 01442
W'R .NOT. PROBOK 148 LM00213
01322 ZET +0 52000 0 00247 01323 TRA +0 02000 0 01330
PROB = $ $ 149 LM00214
01324 CLA +0 50000 0 00365 01325 STO +0 60100 0 00250
PROG = $ $ 150 LM00215
01326 CLA +0 50000 0 00365 01327 STO +0 60100 0 00252
E'L 151 LM00216
WT = GLOC. (WRKTIM+USR) * 60 152 LM00217
01330 CLA +0 50000 0 00315 01331 ADD +0 40000 0 00313 01332 STO +0 60100 0 01622 01333 TSX +0 07400 4 00016
01334 TXH +3 00000 0 01622 01335 XCA +0 13100 0 00000 01336 MPY +0 20000 0 00324 01337 STQ -0 60000 0 00316
TL = GLOC. (TIMLEV+USR) * 60 153 LM00218
01340 CLA +0 50000 0 00302 01341 ADD +0 40000 0 00313 01342 STO +0 60100 0 01622 01343 TSX +0 07400 4 00016
01344 TXH +3 00000 0 01622 01345 XCA +0 13100 0 00000 01346 MPY +0 20000 0 00324 01347 STQ -0 60000 0 00304
TM = GLOC. (UCLOCK+USR) * 60 154 LM00219
01350 CLA +0 50000 0 00311 01351 ADD +0 40000 0 00313 01352 STO +0 60100 0 01622 01353 TSX +0 07400 4 00016
01354 TXH +3 00000 0 01622 01355 XCA +0 13100 0 00000 01356 MPY +0 20000 0 00324 01357 STQ -0 60000 0 00305
TN = TM - GLOC. (UCHARG+USR) * 60 155 LM00220
01360 CLA +0 50000 0 00310 01361 ADD +0 40000 0 00313 01362 STO +0 60100 0 01622 01363 TSX +0 07400 4 00016
01364 TXH +3 00000 0 01622 01365 XCA +0 13100 0 00000 01366 MPY +0 20000 0 00324 01367 XCA +0 13100 0 00000
01370 CHS +0 76000 0 00002 01371 ADD +0 40000 0 00305 01372 STO +0 60100 0 00306
PRMESS. (PROB, PROG, BLANK, COM, BLANK, 156 LM00221
1 CTIME. (WT), BLANK, CTIME. (TL), BLANK, 156 LM00222
2 CTIME. (TM), BLANK, CTIME. (TN), 156 LM00223
3 SPACE ... LEVEL (USR), CONV. (POS (USR) ) ) 156 LM00224
01373 CLA +0 50000 0 00313 01374 SUB +0 40200 0 01375 01375 TXH +3 00000 0 00245 01376 STA +0 62100 0 01400
01377 TSX +0 07400 4 00026 01400 TXH +3 00000 0 00000 01401 STO +0 60100 0 01622 01402 CLA +0 50000 0 00313
01403 SUB +0 40200 0 01404 01404 TXH +3 00000 0 00144 01405 ALS +0 76700 0 00022 01406 STD +0 62200 0 01440
01407 TSX +0 07400 4 00027 01410 TXH +3 00000 0 00306 01411 STO +0 60100 0 01621 01412 TSX +0 07400 4 00027
01413 TXH +3 00000 0 00305 01414 STO +0 60100 0 01620 01415 TSX +0 07400 4 00027 01416 TXH +3 00000 0 00304
01417 STO +0 60100 0 01617 01420 TSX +0 07400 4 00027 01421 TXH +3 00000 0 00316 01422 STO +0 60100 0 01623
01423 TSX +0 07400 4 00023 01424 TXH +3 00000 0 00250 01425 TXH +3 00000 0 00252 01426 TXH +3 00000 0 00042
01427 TXH +3 00000 0 00045 01430 TXH +3 00000 0 00042 01431 TXH +3 00000 0 01623 01432 TXH +3 00000 0 00042
01433 TXH +3 00000 0 01617 01434 TXH +3 00000 0 00042 01435 TXH +3 00000 0 01620 01436 TXH +3 00000 0 00042
01437 TXH +3 00000 0 01621 01440 TIX +2 00000 0 00271 01441 TXH +3 00000 0 01622
E'L 157 LM00225
PRLOOP C'E 158 LM00227
01442 TRA +0 02000 0 01233
PRMESS. 159 LM00232
01443 TSX +0 07400 4 00023
SNORE PRMESS. 160 LM00233
01444 TSX +0 07400 4 00023
W'R SLTIM .NE. 0 161 LM00234
01445 CLA +0 50000 0 00256 01446 SUB +0 40200 0 00317 01447 TZE +0 10000 0 01454
SNOOZE.(SLTIM,0) 162 LM00235
01450 TSX +0 07400 4 00024 01451 TXH +3 00000 0 00256 01452 TXH +3 00000 0 00317
O'E 163 LM00236
01453 TRA +0 02000 0 01456
CHNCOM. (1) 164 LM00237
01454 TSX +0 07400 4 00004 01455 TXH +3 00000 0 00320
E'L 165 LM00238
PRMESS. 166 LM00239
01456 TSX +0 07400 4 00023
FIRST = 0 167 LM00240
01457 CLA +0 50000 0 00317 01460 STO +0 60100 0 00060
T'O BEGIN 168 LM00241
01461 TRA +0 02000 0 00034
INTERNAL FUNCTION (NUM) 169 LM00247
01462 TRA +0 02000 0 01516
E'O CONV. 170 LM00248
01463 TRA +0 02000 0 01466 00026 TTR +0 02100 0 01464 01464 SXA +0 63400 2 01503 01465 TSX +0 07400 2 01503
F'N (BZEL. (DEFBC. (NUM) ) .A. 777777K) .V. 575757K6 171 LM00249
01466 TSX +0 07400 4 00007 01467 TXH +3 00000 0 00024 01470 STO +0 60100 0 01515 01471 TSX +0 07400 4 00003
01472 TXH +3 00000 0 01515 01473 STO +0 60100 0 01515 01474 CAL -0 50000 0 01515 01475 ANA -0 32000 0 00327
01476 ORA -0 50100 0 00353 01477 SLW +0 60200 0 01515 01500 CLA +0 50000 0 01515 01501 TRA +0 02000 0 01511
E'N 172 LM00250
01502 TSX +0 07400 4 00011 01503 TXH +3 00000 0 00000 01504 SXD -0 63400 1 01503 01505 SXA +0 63400 4 01511
01506 CLA +0 50000 4 00001 01507 STO +0 60100 0 01467 01510 TRA +0 02000 2 00001 01511 AXT +0 77400 4 00000
01512 LXA +0 53400 2 01503 01513 LXD -0 53400 1 01503 01514 TRA +0 02000 4 00001
INTERNAL FUNCTION (NUM) 173 LM00255
01516 TRA +0 02000 0 01544
E'O CTIME. 174 LM00256
01517 TRA +0 02000 0 01522 00027 TTR +0 02100 0 01520 01520 SXA +0 63400 2 01531 01521 TSX +0 07400 2 01531
F'N BZEL. (MINS. (NUM) ) 175 LM00257
01522 TSX +0 07400 4 00022 01523 TXH +3 00000 0 00024 01524 STO +0 60100 0 01543 01525 TSX +0 07400 4 00003
01526 TXH +3 00000 0 01543 01527 TRA +0 02000 0 01537
E'N 176 LM00258
01530 TSX +0 07400 4 00011 01531 TXH +3 00000 0 00000 01532 SXD -0 63400 1 01531 01533 SXA +0 63400 4 01537
01534 CLA +0 50000 4 00001 01535 STO +0 60100 0 01523 01536 TRA +0 02000 2 00001 01537 AXT +0 77400 4 00000
01540 LXA +0 53400 2 01531 01541 LXD -0 53400 1 01531 01542 TRA +0 02000 4 00001
INTERNAL FUNCTION (NUM) 177 LM00263
01544 TRA +0 02000 0 01616
E'O FLOTBC. 178 LM00264
01545 TRA +0 02000 0 01550 00030 TTR +0 02100 0 01546 01546 SXA +0 63400 2 01574 01547 TSX +0 07400 2 01574
FIX. (NUM, NUM, NUM (1)) 179 LM00265
01550 TSX +0 07400 4 00012 01551 TXH +3 00000 0 00024 01552 TXH +3 00000 0 00024 01553 TXH +3 00000 0 00023
NUM = CONV. (NUM) 180 LM00266
01554 TSX +0 07400 4 00026 01555 TXH +3 00000 0 00024 01556 STO +0 60100 0 00024
NUM (1) = (FRACBC.(NUM(1)).RS.6) .A. 77K8 .V. 330057575757K 181 LM00267
01557 TSX +0 07400 4 00013 01560 TXH +3 00000 0 00023 01561 STO +0 60100 0 01615 01562 CAL -0 50000 0 00322
01563 STA +0 62100 0 01565 01564 CAL -0 50000 0 01615 01565 LGR -0 76500 0 00000 01566 ANA -0 32000 0 00331
01567 ORA -0 50100 0 00345 01570 SLW +0 60200 0 00023
FUNCTION RETURN 182 LM00268
01571 TRA +0 02000 0 01611
END OF FUNCTION 183 LM00269
01572 TSX +0 07400 4 00011 01573 PZE +0 00000 0 00001 01574 TXH +3 00000 0 00000 01575 SXD -0 63400 1 01574
01576 SXA +0 63400 4 01611 01577 CLA +0 50000 4 00001 01600 STO +0 60100 0 01551 01601 STO +0 60100 0 01552
01602 STO +0 60100 0 01555 01603 STA +0 62100 0 01556 01604 SUB +0 40200 0 01573 01605 STO +0 60100 0 01553
01606 STO +0 60100 0 01560 01607 STA +0 62100 0 01570 01610 TRA +0 02000 2 00001 01611 AXT +0 77400 4 00000
01612 LXA +0 53400 2 01574 01613 LXD -0 53400 1 01574 01614 TRA +0 02000 4 00001
E'M 184 LM00272
01616 TSX +0 07400 4 00011
ORDER BCD 09/20/68 0220.3 11504 00000
ORDER1 BCD 09/18/68 1112.3 9080 00000
1 MAD PROGRAM LISTING ... ... ... FILE ORDER1 MAD 08/28/68 0853.5
-
NORMAL MODE IS INTEGER *001 LM00001
BOOLEAN ORDSW *002 LM00002
DIMENSION NAMES(4),B1(0),B2(0),B3(0),B4(0),B5(0),LINE(0) *003 LM00003
EQUIVALENCE (NAMES,NAME),(NAMES(1),N1),(NAMES(2),N2),(NAMES(3),N3), *004 LM00004
1 (NAMES(4),N4) *004 LM00005
VECTOR VALUES TYPSW=0B *005 LM00006
VECTOR VALUES FENCE=777777777777K *006 LM00007
VECTOR VALUES CHRSIZ=6 *007 LM00008
VECTOR VALUES M=0 *008 LM00009
VECTOR VALUES BLKSIZ=0 *009 LM00010
VECTOR VALUES LNMSK=777777K6 *010 LM00011
VECTOR VALUES MAXLEN=0 *011 LM00012
VECTOR VALUES FIRST=1B *012 LM00013
VECTOR VALUES SKIPFL=0B *013 LM00014
VECTOR VALUES BL=605757575757K *014 LM00015
LM00016
THROUGH ARGS, FOR N=1,1,COMARG.(N,TEMP).E.FENCE.OR.N.G.19 *015 LM00017
WHENEVER TEMP.E.$(SORT)$ *016 LM00018
TYPSW=1B *017 LM00019
ORDSW=0B *018 LM00020
OR WHENEVER TEMP.E.$(NSRT)$ *019 LM00021
TYPSW=1B *020 LM00022
ORDSW=1B *021 LM00023
OR WHENEVER TEMP.E.$(BLKS)$ *022 LM00024
N=N+1 *023 LM00025
WHENEVER COMARG.(N,TEMP).E.FENCE *024 LM00026
PR.($(BLKS) NOT RECOGNIZED.$) *025 LM00027
CHNCOM.(0) *026 LM00028
END OF CONDITIONAL *027 LM00029
WHENEVER ZEL.(TEMP).A.$$.NE.0, TRANSFER TO BADCAL *028 LM00030
BLKSIZ=BCDEC.(TEMP) *029 LM00031
OR WHENEVER TEMP.E.$(ASCI)$ *030 LM00032
CHRSIZ=9 *031 LM00033
OR WHENEVER TEMP.E.$(CTSS)$ *032 LM00034
CHRSIZ=12 *033 LM00035
OR WHENEVER TEMP.E.$ (BCD)$ *034 LM00036
CHRSIZ=6 *035 LM00037
OTHERWISE *036 LM00038
WHENEVER M.G.4 *037 LM00039
BADCAL PR.(TEMP,$ NOT RECOGNIZED.$) *038 LM00040
CHNCOM.(0) *039 LM00041
END OF CONDITIONAL *040 LM00042
NAMES(M)=TEMP *041 LM00043
M=M+1 *042 LM00044
ARGS END OF CONDITIONAL *043 LM00045
WHENEVER M.L.4 *044 LM00046
PR.($NOT ENOUGH NAMES.$) *045 LM00047
CHNCOM.(0) *046 LM00048
OR WHENEVER M.E.4 *047 LM00049
NAMES(4)=NAMES(2) *048 LM00050
END OF CONDITIONAL *049 LM00051
WHENEVER .NOT.TYPSW *050 LM00052
PR.($MODE NOT SPECIFIED.$) *051 LM00053
CHNCOM.(0) *052 LM00054
END OF CONDITIONAL *053 LM00055
LM00056
SETBRK.(INT) *054 LM00057
DELETE.(N3,N4,0,EGRETS) *055 LM00058
SETORD.(NAME,ORDSW,CHRSIZ,EGRETS) *056 LM00059
GETBUF.(B1,431) *057 LM00060
GETBUF.(B2,431) *058 LM00061
GETBUF.(B3,431) *059 LM00062
GETBUF.(B4,431) *060 LM00063
GETBUF.(B5,431) *061 LM00064
BFOPEN.($R$,N1,N2,B1(B1+431),B2(B2+431),-0,BFERR) *062 LM00065
BFOPEN.($W$,N3,N4,B3(B3+431),B4(B4+431),B5(B5+431),BFERR) *063 LM00066
WHENEVER BLKSIZ.NE.0, TRANSFER TO FIXED *064 LM00067
BFREAD.(N1,N2,LNMRK...1,NOFILE,TEMP,BFERR) *065 LM00068
FIRST=0B *066 LM00069
WHENEVER LNMRK.A.LNMSK.NE.LNMSK *067 LM00070
BLKSIZ=14 *068 LM00071
GETBUF.(LINE,13) *069 LM00072
LINE(LINE+13)=LNMRK *070 LM00073
BFREAD.(N1,N2,LINE(LINE+12)...13,EOFX,TEMP,BFERR) *071 LM00074
TRANSFER TO FLOOP1 *072 LM00075
END OF CONDITIONAL *073 LM00076
TRANSFER TO LNMRKD *074 LM00077
LM00078
FIXED GETBUF.(LINE,BLKSIZ-1) *075 LM00079
LM00080
FLOOP BFREAD.(N1,N2,LINE(LINE+BLKSIZ-1)...BLKSIZ,EOFZ,TEMP,BFERR) *076 LM00081
FIRST=0B *077 LM00082
FLOOP1 TEMP=ORDLIN.(LINE(LINE+BLKSIZ-1)...BLKSIZ) *078 LM00083
THROUGH FILL, FOR TEMP=BLKSIZ-TEMP-1,-1,TEMP.L.0 *079 LM00084
FILL LINE(LINE+TEMP)=FILCHR.(0) *080 LM00085
BFWRIT.(N3,N4,LINE(LINE+BLKSIZ-1)...BLKSIZ,BFERR) *081 LM00086
TRANSFER TO FLOOP *082 LM00087
LM00088
LLOOP BFREAD.(N1,N2,LNMRK...1,INT,TEMP,BFERR) *083 LM00089
WHENEVER LNMRK.A.LNMSK.NE.LNMSK *084 LM00090
WHENEVER .NOT.SKIPFL *085 LM00091
LNMRKR PR.($LINEMARK ERROR.$) *086 LM00092
SKIPFL=1B *087 LM00093
END OF CONDITIONAL *088 LM00094
TRANSFER TO LLOOP *089 LM00095
END OF CONDITIONAL *090 LM00096
SKIPFL=0B *091 LM00097
LNMRKD TEMP=LNMRK.A.777777K *092 LM00098
WHENEVER TEMP.G.1000, TRANSFER TO LNMRKR *093 LM00099
WHENEVER TEMP.G.MAXLEN *094 LM00100
GETBUF.(LINE,TEMP-MAXLEN-1) *095 LM00101
MAXLEN=TEMP *096 LM00102
END OF CONDITIONAL *097 LM00103
BFREAD.(N1,N2,LINE(LINE+MAXLEN-1)...TEMP,EOFY,TEMP,BFERR) *098 LM00104
TEMP=ORDLIN.(LINE(LINE+MAXLEN-1)...TEMP) *099 LM00105
LNMRK=TEMP.V.LNMSK *100 LM00106
BFWRIT.(N3,N4,LNMRK...1,BFERR) *101 LM00107
BFWRIT.(N3,N4,LINE(LINE+MAXLEN-1)...TEMP,BFERR) *102 LM00108
TRANSFER TO LLOOP *103 LM00109
LM00110
NOFILE PR.(N1,BL,N2,$ IS EMPTY.$) *104 LM00111
INT BFCLOS.($ALL$,-0,BFERR) *105 LM00112
EGRETS PR.($*$) *106 LM00113
CHNCOM.(0) *107 LM00114
LM00115
BFERR PRNTER. *108 LM00116
BFCLOS.($ALL$,-0,EGRETS) *109 LM00117
TRANSFER TO EGRETS *110 LM00118
LM00119
EOFX TEMP=TEMP+1 *111 LM00120
EOFZ WHENEVER TEMP.E.0 *112 LM00121
WHENEVER FIRST, TRANSFER TO NOFILE *113 LM00122
TRANSFER TO INT *114 LM00123
END OF CONDITIONAL *115 LM00124
PR.($FINAL BLOCK$,BZ57.(DEFBC.(TEMP)),$ WORDS LONG.$) *116 LM00125
TEMP=ORDLIN.(LINE(LINE+BLKSIZ-1)...TEMP) *117 LM00126
THROUGH FILL1, FOR TEMP=BLKSIZ-TEMP-1,-1,TEMP.L.0 *118 LM00127
FILL1 LINE(LINE+TEMP)=FILCHR.(0) *119 LM00128
BFWRIT.(N3,N4,LINE(LINE+BLKSIZ-1)...BLKSIZ,BFERR) *120 LM00129
TRANSFER TO INT *121 LM00130
LM00131
EOFY PR.($LINEMARK ERROR.$) *122 LM00132
TRANSFER TO INT *123 LM00133
LM00134
END OF PROGRAM *124 LM00135
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01114 TRANSFER VECTOR LENGTH 00024 PROGRAM BEGINS 00147
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ARGS 00024 4 BL 00056 A 1 FIRST 00061 A 2 LNMRK 00063 1 NAME 00031 1
B1 00050 A 1 CHRSIZ 00057 A 1 FIXED 00040 4 LNMSK 00064 A 1 NAMES 00031 A 1
B2 00051 A 1 EGRETS 00034 4 FLOOP1 00041 4 MAXLEN 00065 A 1 NOFILE 00047 4
B3 00052 A 1 EOFX 00035 4 FLOOP 00042 4 M 00066 A 1 N 00067 1
B4 00053 A 1 EOFY 00036 4 INT 00043 4 N1 00030 1 ORDSW 00070 2
B5 00054 A 1 EOFZ 00037 4 LINE 00062 A 1 N2 00027 1 SKIPFL 00071 A 2
BADCAL 00032 4 FENCE 00060 A 1 LLOOP 00044 4 N3 00026 1 TEMP 00072 1
BFERR 00033 4 FILL1 00024 4 LNMRKD 00045 4 N4 00025 1 TYPSW 00073 A 2
BLKSIZ 00055 A 1 FILL 00024 4 LNMRKR 00046 4
0FUNCTION DICTIONARY
BCDEC 00000 1 BFCLOS 00001 1 BFOPEN 00002 1 BFREAD 00003 1 BFWRIT 00004 1
BZ57 00005 1 CHNCOM 00006 1 COMARG 00007 1 DEFBC 00010 1 DELETE 00011 1
EXIT 00012 1 FILCHR 00013 1 GETBUF 00014 1 .SETUP 00015 1 ORDLIN 00016 1
PRNTER 00017 1 PR 00020 1 SETBRK 00021 1 SETORD 00022 1 ZEL 00023 1
0ABSOLUTE CONSTANTS
00133 -204346452733 00136 -206646512462 00112 +224346234260 00116 +263145214360 00131 -146060606060
00110 +214343606060 00126 -076370336060 00132 -203162602544 00106 +000000001750 00107 +000000777777
00123 -065133606060 00127 -114260255151 00120 -033145254421 00102 +000000000015 00103 +000000000016
00140 -266060606060 00130 -116060606060 00105 +000000000657 00117 +336060606060 00114 +233126312524
00124 -066360624725 00121 -044624256045 00111 +214425623360 00125 -066427306045 00122 -054663602545
00076 +000000000004 00077 +000000000006 00137 -207422232434 00101 +000000000014 00144 -342363626234
00100 +000000000011 00142 -342162233134 00135 -206060606060 00141 -312524336060 00115 +252346274531
00134 -204546636051 00143 -342243426234 00145 -344562516334 00074 +000000000000 00146 -346246516334
00104 +000000000023 00075 +000000000001 00113 +233000000000
0STATEMENT DICTIONARY
00032 TXL -300302000275 00033 TXL -300774000773 00034 TXL -300771000767 00035 TXL -301006001003
00036 TXL -301107001103 00037 TXL -301011001006 00040 TXL -300533000525 00041 TXL -300563000552
00042 TXL -300550000533 00043 TXL -300767000761 00044 TXL -300633000624 00045 TXL -300657000654
00046 TXL -300647000643 00047 TXL -300761000753
0PROGRAM
N'R 001 LM00001
BOOLEAN ORDSW 002 LM00002
D'N NAMES(4),B1(0),B2(0),B3(0),B4(0),B5(0),LINE(0) 003 LM00003
E'E (NAMES,NAME),(NAMES(1),N1),(NAMES(2),N2),(NAMES(3),N3), 004 LM00004
1 (NAMES(4),N4) 004 LM00005
V'S TYPSW=0B 005 LM00006
00147 TSX +0 07400 4 00015 00073 +0 00000 0 00000
V'S FENCE=777777777777K 006 LM00007
00060 -3 77777 7 77777
V'S CHRSIZ=6 007 LM00008
00057 +0 00000 0 00006
V'S M=0 008 LM00009
00066 +0 00000 0 00000
V'S BLKSIZ=0 009 LM00010
00055 +0 00000 0 00000
V'S LNMSK=777777K6 010 LM00011
00064 -3 77777 0 00000
V'S MAXLEN=0 011 LM00012
00065 +0 00000 0 00000
V'S FIRST=1B 012 LM00013
00061 +0 00000 0 00001
V'S SKIPFL=0B 013 LM00014
00071 +0 00000 0 00000
V'S BL=605757575757K 014 LM00015
00056 -2 05757 5 75757
T'H ARGS, FOR N=1,1,COMARG.(N,TEMP).E.FENCE.OR.N.G.19 015 LM00017
00150 CLA +0 50000 0 00075 00151 STO +0 60100 0 00067 00152 TRA +0 02000 0 00156 00153 CLA +0 50000 0 00067
00154 ADD +0 40000 0 00075 00155 STO +0 60100 0 00067 00156 CLA +0 50000 0 00067 00157 SUB +0 40200 0 00104
00160 TZE +0 10000 0 00162 00161 TPL +0 12000 0 00313 00162 TSX +0 07400 4 00007 00163 TXH +3 00000 0 00067
00164 TXH +3 00000 0 00072 00165 SUB +0 40200 0 00060 00166 TZE +0 10000 0 00313
W'R TEMP.E.$(SORT)$ 016 LM00018
00167 CLA +0 50000 0 00072 00170 SUB +0 40200 0 00146 00171 TNZ -0 10000 0 00177
TYPSW=1B 017 LM00019
00172 CLA +0 50000 0 00075 00173 STO +0 60100 0 00073
ORDSW=0B 018 LM00020
00174 CLA +0 50000 0 00074 00175 STO +0 60100 0 00070
O'R TEMP.E.$(NSRT)$ 019 LM00021
00176 TRA +0 02000 0 00312 00177 CLA +0 50000 0 00072 00200 SUB +0 40200 0 00145 00201 TNZ -0 10000 0 00207
TYPSW=1B 020 LM00022
00202 CLA +0 50000 0 00075 00203 STO +0 60100 0 00073
ORDSW=1B 021 LM00023
00204 CLA +0 50000 0 00075 00205 STO +0 60100 0 00070
O'R TEMP.E.$(BLKS)$ 022 LM00024
00206 TRA +0 02000 0 00312 00207 CLA +0 50000 0 00072 00210 SUB +0 40200 0 00143 00211 TNZ -0 10000 0 00247
N=N+1 023 LM00025
00212 CLA +0 50000 0 00067 00213 ADD +0 40000 0 00075 00214 STO +0 60100 0 00067
W'R COMARG.(N,TEMP).E.FENCE 024 LM00026
00215 TSX +0 07400 4 00007 00216 TXH +3 00000 0 00067 00217 TXH +3 00000 0 00072 00220 SUB +0 40200 0 00060
00221 TNZ -0 10000 0 00231
PR.($(BLKS) NOT RECOGNIZED.$) 025 LM00027
00222 TSX +0 07400 4 00020 00223 TXH +3 00000 0 00143 00224 TXH +3 00000 0 00134 00225 TXH +3 00000 0 00115
00226 TXH +3 00000 0 00141
CHNCOM.(0) 026 LM00028
00227 TSX +0 07400 4 00006 00230 TXH +3 00000 0 00074
E'L 027 LM00029
W'R ZEL.(TEMP).A.$$.NE.0, T'O BADCAL 028 LM00030
00231 TSX +0 07400 4 00023 00232 TXH +3 00000 0 00072 00233 STO +0 60100 0 01111 00234 CAL -0 50000 0 01111
00235 ANA -0 32000 0 00135 00236 SLW +0 60200 0 01111 00237 CLA +0 50000 0 01111 00240 SUB +0 40200 0 00074
00241 TZE +0 10000 0 00243 00242 TRA +0 02000 0 00032
BLKSIZ=BCDEC.(TEMP) 029 LM00031
00243 TSX +0 07400 4 00000 00244 TXH +3 00000 0 00072 00245 STO +0 60100 0 00055
O'R TEMP.E.$(ASCI)$ 030 LM00032
00246 TRA +0 02000 0 00312 00247 CLA +0 50000 0 00072 00250 SUB +0 40200 0 00142 00251 TNZ -0 10000 0 00255
CHRSIZ=9 031 LM00033
00252 CLA +0 50000 0 00100 00253 STO +0 60100 0 00057
O'R TEMP.E.$(CTSS)$ 032 LM00034
00254 TRA +0 02000 0 00312 00255 CLA +0 50000 0 00072 00256 SUB +0 40200 0 00144 00257 TNZ -0 10000 0 00263
CHRSIZ=12 033 LM00035
00260 CLA +0 50000 0 00101 00261 STO +0 60100 0 00057
O'R TEMP.E.$ (BCD)$ 034 LM00036
00262 TRA +0 02000 0 00312 00263 CLA +0 50000 0 00072 00264 SUB +0 40200 0 00137 00265 TNZ -0 10000 0 00271
CHRSIZ=6 035 LM00037
00266 CLA +0 50000 0 00077 00267 STO +0 60100 0 00057
O'E 036 LM00038
00270 TRA +0 02000 0 00312
W'R M.G.4 037 LM00039
00271 CLA +0 50000 0 00066 00272 SUB +0 40200 0 00076 00273 TZE +0 10000 0 00304 00274 TMI -0 12000 0 00304
BADCAL PR.(TEMP,$ NOT RECOGNIZED.$) 038 LM00040
00275 TSX +0 07400 4 00020 00276 TXH +3 00000 0 00072 00277 TXH +3 00000 0 00134 00300 TXH +3 00000 0 00115
00301 TXH +3 00000 0 00141
CHNCOM.(0) 039 LM00041
00302 TSX +0 07400 4 00006 00303 TXH +3 00000 0 00074
E'L 040 LM00042
NAMES(M)=TEMP 041 LM00043
00304 LXA +0 53400 1 00066 00305 CLA +0 50000 0 00072 00306 STO +0 60100 1 00031
M=M+1 042 LM00044
00307 CLA +0 50000 0 00066 00310 ADD +0 40000 0 00075 00311 STO +0 60100 0 00066
ARGS E'L 043 LM00045
00312 TRA +0 02000 0 00153
W'R M.L.4 044 LM00046
00313 CLA +0 50000 0 00066 00314 SUB +0 40200 0 00076 00315 TZE +0 10000 0 00326 00316 TPL +0 12000 0 00326
PR.($NOT ENOUGH NAMES.$) 045 LM00047
00317 TSX +0 07400 4 00020 00320 TXH +3 00000 0 00122 00321 TXH +3 00000 0 00125 00322 TXH +3 00000 0 00111
CHNCOM.(0) 046 LM00048
00323 TSX +0 07400 4 00006 00324 TXH +3 00000 0 00074
O'R M.E.4 047 LM00049
00325 TRA +0 02000 0 00333 00326 CLA +0 50000 0 00066 00327 SUB +0 40200 0 00076 00330 TNZ -0 10000 0 00333
NAMES(4)=NAMES(2) 048 LM00050
00331 CLA +0 50000 0 00027 00332 STO +0 60100 0 00025
E'L 049 LM00051
W'R .NOT.TYPSW 050 LM00052
00333 ZET +0 52000 0 00073 00334 TRA +0 02000 0 00344
PR.($MODE NOT SPECIFIED.$) 051 LM00053
00335 TSX +0 07400 4 00020 00336 TXH +3 00000 0 00121 00337 TXH +3 00000 0 00124 00340 TXH +3 00000 0 00114
00341 TXH +3 00000 0 00117
CHNCOM.(0) 052 LM00054
00342 TSX +0 07400 4 00006 00343 TXH +3 00000 0 00074
E'L 053 LM00055
SETBRK.(INT) 054 LM00057
00344 TSX +0 07400 4 00021 00345 TXH +3 00000 0 00043
DELETE.(N3,N4,0,EGRETS) 055 LM00058
00346 TSX +0 07400 4 00011 00347 TXH +3 00000 0 00026 00350 TXH +3 00000 0 00025 00351 TXH +3 00000 0 00074
00352 TXH +3 00000 0 00034
SETORD.(NAME,ORDSW,CHRSIZ,EGRETS) 056 LM00059
00353 TSX +0 07400 4 00022 00354 TXH +3 00000 0 00031 00355 TXH +3 00000 0 00070 00356 TXH +3 00000 0 00057
00357 TXH +3 00000 0 00034
GETBUF.(B1,431) 057 LM00060
00360 TSX +0 07400 4 00014 00361 TXH +3 00000 0 00050 00362 TXH +3 00000 0 00105
GETBUF.(B2,431) 058 LM00061
00363 TSX +0 07400 4 00014 00364 TXH +3 00000 0 00051 00365 TXH +3 00000 0 00105
GETBUF.(B3,431) 059 LM00062
00366 TSX +0 07400 4 00014 00367 TXH +3 00000 0 00052 00370 TXH +3 00000 0 00105
GETBUF.(B4,431) 060 LM00063
00371 TSX +0 07400 4 00014 00372 TXH +3 00000 0 00053 00373 TXH +3 00000 0 00105
GETBUF.(B5,431) 061 LM00064
00374 TSX +0 07400 4 00014 00375 TXH +3 00000 0 00054 00376 TXH +3 00000 0 00105
BFOPEN.($R$,N1,N2,B1(B1+431),B2(B2+431),-0,BFERR) 062 LM00065
00377 CLS +0 50200 0 00074 00400 STO +0 60100 0 01111 00401 CLA +0 50000 0 00051 00402 ADD +0 40000 0 00105
00403 SUB +0 40200 0 00404 00404 TXH +3 00000 0 00051 00405 STA +0 62100 0 00420 00406 CLA +0 50000 0 00050
00407 ADD +0 40000 0 00105 00410 SUB +0 40200 0 00411 00411 TXH +3 00000 0 00050 00412 STA +0 62100 0 00417
00413 TSX +0 07400 4 00002 00414 TXH +3 00000 0 00130 00415 TXH +3 00000 0 00030 00416 TXH +3 00000 0 00027
00417 TXH +3 00000 0 00000 00420 TXH +3 00000 0 00000 00421 TXH +3 00000 0 01111 00422 TXH +3 00000 0 00033
BFOPEN.($W$,N3,N4,B3(B3+431),B4(B4+431),B5(B5+431),BFERR) 063 LM00066
00423 CLA +0 50000 0 00054 00424 ADD +0 40000 0 00105 00425 SUB +0 40200 0 00426 00426 TXH +3 00000 0 00054
00427 STA +0 62100 0 00450 00430 CLA +0 50000 0 00053 00431 ADD +0 40000 0 00105 00432 SUB +0 40200 0 00433
00433 TXH +3 00000 0 00053 00434 STA +0 62100 0 00447 00435 CLA +0 50000 0 00052 00436 ADD +0 40000 0 00105
00437 SUB +0 40200 0 00440 00440 TXH +3 00000 0 00052 00441 STA +0 62100 0 00446 00442 TSX +0 07400 4 00002
00443 TXH +3 00000 0 00140 00444 TXH +3 00000 0 00026 00445 TXH +3 00000 0 00025 00446 TXH +3 00000 0 00000
00447 TXH +3 00000 0 00000 00450 TXH +3 00000 0 00000 00451 TXH +3 00000 0 00033
W'R BLKSIZ.NE.0, T'O FIXED 064 LM00067
00452 CLA +0 50000 0 00055 00453 SUB +0 40200 0 00074 00454 TZE +0 10000 0 00456 00455 TRA +0 02000 0 00040
BFREAD.(N1,N2,LNMRK...1,NOFILE,TEMP,BFERR) 065 LM00068
00456 TSX +0 07400 4 00003 00457 TXH +3 00000 0 00030 00460 TXH +3 00000 0 00027 00461 TIX +2 00075 0 00063
00462 TXH +3 00000 0 00047 00463 TXH +3 00000 0 00072 00464 TXH +3 00000 0 00033
FIRST=0B 066 LM00069
00465 CLA +0 50000 0 00074 00466 STO +0 60100 0 00061
W'R LNMRK.A.LNMSK.NE.LNMSK 067 LM00070
00467 CAL -0 50000 0 00063 00470 ANA -0 32000 0 00064 00471 SLW +0 60200 0 01111 00472 CLA +0 50000 0 01111
00473 SUB +0 40200 0 00064 00474 TZE +0 10000 0 00524
BLKSIZ=14 068 LM00071
00475 CLA +0 50000 0 00103 00476 STO +0 60100 0 00055
GETBUF.(LINE,13) 069 LM00072
00477 TSX +0 07400 4 00014 00500 TXH +3 00000 0 00062 00501 TXH +3 00000 0 00102
LINE(LINE+13)=LNMRK 070 LM00073
00502 CLA +0 50000 0 00062 00503 ADD +0 40000 0 00102 00504 PAX +0 73400 1 00000 00505 CLA +0 50000 0 00063
00506 STO +0 60100 1 00062
BFREAD.(N1,N2,LINE(LINE+12)...13,EOFX,TEMP,BFERR) 071 LM00074
00507 CLA +0 50000 0 00062 00510 ADD +0 40000 0 00101 00511 SUB +0 40200 0 00512 00512 TXH +3 00000 0 00062
00513 STA +0 62100 0 00517 00514 TSX +0 07400 4 00003 00515 TXH +3 00000 0 00030 00516 TXH +3 00000 0 00027
00517 TIX +2 00102 0 00000 00520 TXH +3 00000 0 00035 00521 TXH +3 00000 0 00072 00522 TXH +3 00000 0 00033
T'O FLOOP1 072 LM00075
00523 TRA +0 02000 0 00041
E'L 073 LM00076
T'O LNMRKD 074 LM00077
00524 TRA +0 02000 0 00045
FIXED GETBUF.(LINE,BLKSIZ-1) 075 LM00079
00525 CLA +0 50000 0 00055 00526 SUB +0 40200 0 00075 00527 STO +0 60100 0 01111 00530 TSX +0 07400 4 00014
00531 TXH +3 00000 0 00062 00532 TXH +3 00000 0 01111
FLOOP BFREAD.(N1,N2,LINE(LINE+BLKSIZ-1)...BLKSIZ,EOFZ,TEMP,BFERR) 076 LM00081
00533 CLA +0 50000 0 00062 00534 ADD +0 40000 0 00055 00535 SUB +0 40200 0 00075 00536 SUB +0 40200 0 00537
00537 TXH +3 00000 0 00062 00540 STA +0 62100 0 00544 00541 TSX +0 07400 4 00003 00542 TXH +3 00000 0 00030
00543 TXH +3 00000 0 00027 00544 TIX +2 00055 0 00000 00545 TXH +3 00000 0 00037 00546 TXH +3 00000 0 00072
00547 TXH +3 00000 0 00033
FIRST=0B 077 LM00082
00550 CLA +0 50000 0 00074 00551 STO +0 60100 0 00061
FLOOP1 TEMP=ORDLIN.(LINE(LINE+BLKSIZ-1)...BLKSIZ) 078 LM00083
00552 CLA +0 50000 0 00062 00553 ADD +0 40000 0 00055 00554 SUB +0 40200 0 00075 00555 SUB +0 40200 0 00556
00556 TXH +3 00000 0 00062 00557 STA +0 62100 0 00561 00560 TSX +0 07400 4 00016 00561 TIX +2 00055 0 00000
00562 STO +0 60100 0 00072
T'H FILL, FOR TEMP=BLKSIZ-TEMP-1,-1,TEMP.L.0 079 LM00084
00563 CLA +0 50000 0 00055 00564 SUB +0 40200 0 00072 00565 SUB +0 40200 0 00075 00566 STO +0 60100 0 00072
00567 TRA +0 02000 0 00573 00570 CLS +0 50200 0 00075 00571 ADD +0 40000 0 00072 00572 STO +0 60100 0 00072
00573 CLA +0 50000 0 00072 00574 SUB +0 40200 0 00074 00575 TZE +0 10000 0 00577 00576 TMI -0 12000 0 00610
FILL LINE(LINE+TEMP)=FILCHR.(0) 080 LM00085
00577 TSX +0 07400 4 00013 00600 TXH +3 00000 0 00074 00601 STO +0 60100 0 01111 00602 CLA +0 50000 0 00062
00603 ADD +0 40000 0 00072 00604 PAX +0 73400 1 00000 00605 CLA +0 50000 0 01111 00606 STO +0 60100 1 00062
00607 TRA +0 02000 0 00570
BFWRIT.(N3,N4,LINE(LINE+BLKSIZ-1)...BLKSIZ,BFERR) 081 LM00086
00610 CLA +0 50000 0 00062 00611 ADD +0 40000 0 00055 00612 SUB +0 40200 0 00075 00613 SUB +0 40200 0 00614
00614 TXH +3 00000 0 00062 00615 STA +0 62100 0 00621 00616 TSX +0 07400 4 00004 00617 TXH +3 00000 0 00026
00620 TXH +3 00000 0 00025 00621 TIX +2 00055 0 00000 00622 TXH +3 00000 0 00033
T'O FLOOP 082 LM00087
00623 TRA +0 02000 0 00042
LLOOP BFREAD.(N1,N2,LNMRK...1,INT,TEMP,BFERR) 083 LM00089
00624 TSX +0 07400 4 00003 00625 TXH +3 00000 0 00030 00626 TXH +3 00000 0 00027 00627 TIX +2 00075 0 00063
00630 TXH +3 00000 0 00043 00631 TXH +3 00000 0 00072 00632 TXH +3 00000 0 00033
W'R LNMRK.A.LNMSK.NE.LNMSK 084 LM00090
00633 CAL -0 50000 0 00063 00634 ANA -0 32000 0 00064 00635 SLW +0 60200 0 01111 00636 CLA +0 50000 0 01111
00637 SUB +0 40200 0 00064 00640 TZE +0 10000 0 00652
W'R .NOT.SKIPFL 085 LM00091
00641 ZET +0 52000 0 00071 00642 TRA +0 02000 0 00651
LNMRKR PR.($LINEMARK ERROR.$) 086 LM00092
00643 TSX +0 07400 4 00020 00644 TXH +3 00000 0 00120 00645 TXH +3 00000 0 00127 00646 TXH +3 00000 0 00123
SKIPFL=1B 087 LM00093
00647 CLA +0 50000 0 00075 00650 STO +0 60100 0 00071
E'L 088 LM00094
T'O LLOOP 089 LM00095
00651 TRA +0 02000 0 00044
E'L 090 LM00096
SKIPFL=0B 091 LM00097
00652 CLA +0 50000 0 00074 00653 STO +0 60100 0 00071
LNMRKD TEMP=LNMRK.A.777777K 092 LM00098
00654 CAL -0 50000 0 00063 00655 ANA -0 32000 0 00107 00656 SLW +0 60200 0 00072
W'R TEMP.G.1000, T'O LNMRKR 093 LM00099
00657 CLA +0 50000 0 00072 00660 SUB +0 40200 0 00106 00661 TZE +0 10000 0 00664 00662 TMI -0 12000 0 00664
00663 TRA +0 02000 0 00046
W'R TEMP.G.MAXLEN 094 LM00100
00664 CLA +0 50000 0 00072 00665 SUB +0 40200 0 00065 00666 TZE +0 10000 0 00701 00667 TMI -0 12000 0 00701
GETBUF.(LINE,TEMP-MAXLEN-1) 095 LM00101
00670 CLA +0 50000 0 00072 00671 SUB +0 40200 0 00065 00672 SUB +0 40200 0 00075 00673 STO +0 60100 0 01111
00674 TSX +0 07400 4 00014 00675 TXH +3 00000 0 00062 00676 TXH +3 00000 0 01111
MAXLEN=TEMP 096 LM00102
00677 CLA +0 50000 0 00072 00700 STO +0 60100 0 00065
E'L 097 LM00103
BFREAD.(N1,N2,LINE(LINE+MAXLEN-1)...TEMP,EOFY,TEMP,BFERR) 098 LM00104
00701 CLA +0 50000 0 00062 00702 ADD +0 40000 0 00065 00703 SUB +0 40200 0 00075 00704 SUB +0 40200 0 00705
00705 TXH +3 00000 0 00062 00706 STA +0 62100 0 00712 00707 TSX +0 07400 4 00003 00710 TXH +3 00000 0 00030
00711 TXH +3 00000 0 00027 00712 TIX +2 00072 0 00000 00713 TXH +3 00000 0 00036 00714 TXH +3 00000 0 00072
00715 TXH +3 00000 0 00033
TEMP=ORDLIN.(LINE(LINE+MAXLEN-1)...TEMP) 099 LM00105
00716 CLA +0 50000 0 00062 00717 ADD +0 40000 0 00065 00720 SUB +0 40200 0 00075 00721 SUB +0 40200 0 00722
00722 TXH +3 00000 0 00062 00723 STA +0 62100 0 00725 00724 TSX +0 07400 4 00016 00725 TIX +2 00072 0 00000
00726 STO +0 60100 0 00072
LNMRK=TEMP.V.LNMSK 100 LM00106
00727 CAL -0 50000 0 00072 00730 ORA -0 50100 0 00064 00731 SLW +0 60200 0 00063
BFWRIT.(N3,N4,LNMRK...1,BFERR) 101 LM00107
00732 TSX +0 07400 4 00004 00733 TXH +3 00000 0 00026 00734 TXH +3 00000 0 00025 00735 TIX +2 00075 0 00063
00736 TXH +3 00000 0 00033
BFWRIT.(N3,N4,LINE(LINE+MAXLEN-1)...TEMP,BFERR) 102 LM00108
00737 CLA +0 50000 0 00062 00740 ADD +0 40000 0 00065 00741 SUB +0 40200 0 00075 00742 SUB +0 40200 0 00743
00743 TXH +3 00000 0 00062 00744 STA +0 62100 0 00750 00745 TSX +0 07400 4 00004 00746 TXH +3 00000 0 00026
00747 TXH +3 00000 0 00025 00750 TIX +2 00072 0 00000 00751 TXH +3 00000 0 00033
T'O LLOOP 103 LM00109
00752 TRA +0 02000 0 00044
NOFILE PR.(N1,BL,N2,$ IS EMPTY.$) 104 LM00111
00753 TSX +0 07400 4 00020 00754 TXH +3 00000 0 00030 00755 TXH +3 00000 0 00056 00756 TXH +3 00000 0 00027
00757 TXH +3 00000 0 00132 00760 TXH +3 00000 0 00126
INT BFCLOS.($ALL$,-0,BFERR) 105 LM00112
00761 CLS +0 50200 0 00074 00762 STO +0 60100 0 01111 00763 TSX +0 07400 4 00001 00764 TXH +3 00000 0 00110
00765 TXH +3 00000 0 01111 00766 TXH +3 00000 0 00033
EGRETS PR.($*$) 106 LM00113
00767 TSX +0 07400 4 00020 00770 TXH +3 00000 0 00131
CHNCOM.(0) 107 LM00114
00771 TSX +0 07400 4 00006 00772 TXH +3 00000 0 00074
BFERR PRNTER. 108 LM00116
00773 TSX +0 07400 4 00017
BFCLOS.($ALL$,-0,EGRETS) 109 LM00117
00774 CLS +0 50200 0 00074 00775 STO +0 60100 0 01111 00776 TSX +0 07400 4 00001 00777 TXH +3 00000 0 00110
01000 TXH +3 00000 0 01111 01001 TXH +3 00000 0 00034
T'O EGRETS 110 LM00118
01002 TRA +0 02000 0 00034
EOFX TEMP=TEMP+1 111 LM00120
01003 CLA +0 50000 0 00072 01004 ADD +0 40000 0 00075 01005 STO +0 60100 0 00072
EOFZ W'R TEMP.E.0 112 LM00121
01006 CLA +0 50000 0 00072 01007 SUB +0 40200 0 00074 01010 TNZ -0 10000 0 01015
W'R FIRST, T'O NOFILE 113 LM00122
01011 NZT -0 52000 0 00061 01012 TRA +0 02000 0 01014 01013 TRA +0 02000 0 00047
T'O INT 114 LM00123
01014 TRA +0 02000 0 00043
E'L 115 LM00124
PR.($FINAL BLOCK$,BZ57.(DEFBC.(TEMP)),$ WORDS LONG.$) 116 LM00125
01015 TSX +0 07400 4 00010 01016 TXH +3 00000 0 00072 01017 STO +0 60100 0 01111 01020 TSX +0 07400 4 00005
01021 TXH +3 00000 0 01111 01022 STO +0 60100 0 01111 01023 TSX +0 07400 4 00020 01024 TXH +3 00000 0 00116
01025 TXH +3 00000 0 00112 01026 TXH +3 00000 0 01111 01027 TXH +3 00000 0 00136 01030 TXH +3 00000 0 00133
TEMP=ORDLIN.(LINE(LINE+BLKSIZ-1)...TEMP) 117 LM00126
01031 CLA +0 50000 0 00062 01032 ADD +0 40000 0 00055 01033 SUB +0 40200 0 00075 01034 SUB +0 40200 0 01035
01035 TXH +3 00000 0 00062 01036 STA +0 62100 0 01040 01037 TSX +0 07400 4 00016 01040 TIX +2 00072 0 00000
01041 STO +0 60100 0 00072
T'H FILL1, FOR TEMP=BLKSIZ-TEMP-1,-1,TEMP.L.0 118 LM00127
01042 CLA +0 50000 0 00055 01043 SUB +0 40200 0 00072 01044 SUB +0 40200 0 00075 01045 STO +0 60100 0 00072
01046 TRA +0 02000 0 01052 01047 CLS +0 50200 0 00075 01050 ADD +0 40000 0 00072 01051 STO +0 60100 0 00072
01052 CLA +0 50000 0 00072 01053 SUB +0 40200 0 00074 01054 TZE +0 10000 0 01056 01055 TMI -0 12000 0 01067
FILL1 LINE(LINE+TEMP)=FILCHR.(0) 119 LM00128
01056 TSX +0 07400 4 00013 01057 TXH +3 00000 0 00074 01060 STO +0 60100 0 01111 01061 CLA +0 50000 0 00062
01062 ADD +0 40000 0 00072 01063 PAX +0 73400 1 00000 01064 CLA +0 50000 0 01111 01065 STO +0 60100 1 00062
01066 TRA +0 02000 0 01047
BFWRIT.(N3,N4,LINE(LINE+BLKSIZ-1)...BLKSIZ,BFERR) 120 LM00129
01067 CLA +0 50000 0 00062 01070 ADD +0 40000 0 00055 01071 SUB +0 40200 0 00075 01072 SUB +0 40200 0 01073
01073 TXH +3 00000 0 00062 01074 STA +0 62100 0 01100 01075 TSX +0 07400 4 00004 01076 TXH +3 00000 0 00026
01077 TXH +3 00000 0 00025 01100 TIX +2 00055 0 00000 01101 TXH +3 00000 0 00033
T'O INT 121 LM00130
01102 TRA +0 02000 0 00043
EOFY PR.($LINEMARK ERROR.$) 122 LM00132
01103 TSX +0 07400 4 00020 01104 TXH +3 00000 0 00120 01105 TXH +3 00000 0 00127 01106 TXH +3 00000 0 00123
T'O INT 123 LM00133
01107 TRA +0 02000 0 00043
E'M 124 LM00135
01110 TSX +0 07400 4 00012
ORDER2 BCD 09/18/68 1112.3 2396 00000
1 PAGE 1
* SETORD.(NAME,ORDSW,CHRSIZ,ERROR)
* NEWLEN=ORDLIN.(LINE(LEN)...LEN)
* WORD=FILCHR.(0)
00011 ENTRY SETORD READ TABLE AND INITIALIZE
00226 ENTRY ORDLIN RE-ORDER ONE LINE
00170 ENTRY FILCHR GET WORD OF FILL CHARACTERS
EXTERN GETMEM,SETMEM,OPEN,RDFILE,CLOSE,PRNTER,WRFLX
M CALL MACRO NAME,LIST
TSX NAME,4
IRP LIST
PTH LIST
IRP
CALL END
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
00002 464725456060 OPEN
00003 512426314325 RDFILE
00004 234346622560 CLOSE
00005 475145632551 PRNTER
00006 665126436760 WRFLX
LINKAGE DIRECTOR
00007 000000000000
00010 622563465124
00011 0760 00 0 00016 SETORD LMTM
00012 0634 00 4 00154 SXA SX4,4
00013 -0500 60 4 00001 CAL* 1,4
00014 0602 00 0 00261 SLW NAME
00015 -0500 60 4 00002 CAL* 2,4
00016 0602 00 0 00262 SLW ORDSW
00017 -0500 60 4 00003 CAL* 3,4
00020 0734 00 1 00000 PAX ,1
00021 0634 00 1 00200 SXA CHSFT1,1
00022 0636 00 1 00214 SCA STC,1
00023 -0634 00 1 00216 SXD CHSFT2,1
00024 0634 00 1 00145 SXA CHSFT3,1
00025 -0754 00 0 00000 ZAC
00026 0560 00 0 00476 LDQ =36
00027 0221 60 4 00003 DVP* 3,4
00030 -0100 00 0 00156 TNZ ERROR
00031 -0130 00 0 00000 XCL
00032 0621 00 0 00176 STA CHPWD1
00033 0402 00 0 00475 SUB =4
00034 0100 00 0 00036 TZE *+2
00035 -0500 00 0 00477 CAL =O57
00036 0602 00 0 00263 SLW NULL
00037 0774 00 4 00062 AXT 50,4
00040 0634 00 4 00264 SXA TEMP,4
00041 0074 00 4 00000 TSX GETMEM,4
1 PAGE 2
00042 0602 00 0 00265 SLW MEMBND
00043 0621 00 0 00061 STA READ+4
00044 0400 00 0 00500 ADD =50
00045 0074 00 4 00001 TSX SETMEM,4
00046 CALL OPEN(=HR,NAME,ORDER,,,IOERR)
00055 READ CALL RDFILE(NAME,ORDER,=1(**,,50)*,TEMP,IOERR)
00065 CALL CLOSE(NAME,ORDER,IOERR)
00071 0502 00 0 00473 CLS =0
00072 0774 00 4 00200 AXT MXCHR,4
00073 0601 00 4 00473 STO CHRTAB+MXCHR,4
00074 2 00001 4 00073 TIX *-1,4,1
00075 0774 00 7 00000 AXT 0,7
00076 0534 00 6 00264 LXA TEMP,6
00077 1 00001 6 00100 TXI *+1,6,1
00100 0535 00 5 00265 LAC MEMBND,5
00101 0441 00 5 00000 LDI 0,5
00102 -0056 00 777777 LNT /
00103 1 00001 5 00105 TXI *+2,5,1
00104 1 77777 6 00105 TXI *+1,6,-1
00105 -0774 00 1 00001 AXC 1,1
00106 0520 00 0 00262 ZET ORDSW
00107 0020 00 0 00124 TRA ILOOP1
00110 0074 00 4 00172 ILOOP TSX GTC,4
00111 -0340 00 0 00263 LAS NULL
00112 0020 00 0 00114 TRA *+2
00113 0020 00 0 00134 TRA DONSET
00114 0737 00 4 00000 PAC ,4
00115 -3 00000 4 00117 TXL *+2,4,0
00116 -3 77577 4 00110 TXL ILOOP,4,-MXCHR-1
00117 0500 00 4 00273 CLA CHRTAB,4
00120 0120 00 0 00134 TPL DONSET
00121 0756 00 1 00000 PCA ,1
00122 0602 00 4 00273 SLW CHRTAB,4
00123 1 77777 1 00110 TXI ILOOP,1,-1
00124 -3 00000 1 00126 ILOOP1 TXL *+2,1,0
00125 -3 77577 1 00134 TXL DONSET,1,-MXCHR-1
00126 0074 00 4 00172 TSX GTC,4
00127 -0340 00 0 00263 LAS NULL
00130 0020 00 0 00132 TRA *+2
00131 0020 00 0 00134 TRA DONSET
00132 0602 00 1 00273 SLW CHRTAB,1
00133 1 77777 1 00124 TXI ILOOP1,1,-1
00134 -0500 00 0 00265 DONSET CAL MEMBND
00135 0600 00 0 00265 STZ MEMBND
00136 0074 00 4 00001 TSX SETMEM,4
00137 0520 00 0 00262 ZET ORDSW
00140 0020 00 0 00143 TRA *+3
00141 0600 00 0 00266 STZ FILLER
00142 0020 00 0 00154 TRA SX4
00143 -0500 00 0 00263 CAL NULL
00144 0602 00 0 00273 SLW CHRTAB
00145 -0765 00 0 00000 CHSFT3 LGR **
00146 0602 00 0 00266 SLW FILLER
1 PAGE 3
00147 0522 00 0 00176 XEC CHPWD1
00150 0560 00 0 00266 LDQ FILLER
00151 0522 00 0 00200 XEC CHSFT1
00152 2 00001 7 00150 TIX *-2,7,1
00153 0602 00 0 00266 SLW FILLER
00154 0774 00 4 00000 SX4 AXT **,4
00155 0020 00 4 00005 TRA 5,4
00156 0074 00 4 00006 ERROR TSX WRFLX,4
00157 0 00003 0 00270 ILCHSZ,,3
$ILLEGAL CHRSIZ.
00160 0020 00 0 00166 TRA EREXIT
00161 0074 00 4 00005 IOERR TSX PRNTER,4
00162 CALL CLOSE(NAME,ORDER,*)
00166 0522 00 4 00154 EREXIT XEC SX4,4
00167 0020 60 4 00004 TRA* 4,4
1 PAGE 4
00170 0500 00 0 00266 FILCHR CLA FILLER
00171 0020 00 4 00001 TRA 1,4
00172 2 00001 7 00177 GTC TIX GTCX,7,1
00173 -2 00001 6 00203 TNX GTCDON,6,1
00174 1 77777 5 00175 TXI *+1,5,-1
00175 0560 00 5 00000 LDQ 0,5
00176 0774 00 7 00000 CHPWD1 AXT **,7
00177 -0754 00 0 00000 GTCX ZAC
00200 -0763 00 0 00000 CHSFT1 LGL **
00201 -0320 00 0 00501 ANA =O377
00202 0020 00 4 00001 TRA 1,4
00203 0520 00 0 00265 GTCDON ZET MEMBND
00204 0020 00 0 00134 TRA DONSET
00205 -3 77734 3 00256 TXL OUT,3,-36
00206 0560 00 0 00266 LDQ FILLER
00207 -0754 00 0 00000 ZAC
00210 -0763 00 3 00000 LGL 0,3
00211 0043 00 0 00000 OAI
00212 0604 00 1 00000 STI 0,1
00213 1 00001 2 00256 TXI OUT,2,1
00214 0767 00 3 00000 STC ALS -**,3
00215 0043 00 0 00000 OAI
00216 1 00000 3 00217 CHSFT2 TXI *+1,3,**
00217 3 00000 3 00225 TXH *+6,3,0
00220 0604 00 1 00000 STI 0,1
00221 1 77777 1 00222 TXI *+1,1,-1
00222 1 00001 2 00223 TXI *+1,2,1
00223 0441 00 0 00473 LDI =0
00224 -0774 00 3 00044 AXC 36,3
00225 0020 00 4 00001 TRA 1,4
1 PAGE 5
00226 0634 00 4 00257 ORDLIN SXA XR4,4
00227 -0500 00 4 00001 CAL 1,4
00230 0737 00 1 00000 PAC ,1
00231 0737 00 5 00000 PAC ,5
00232 -0737 00 6 00000 PDC ,6
00233 0322 00 0 00502 ERA =O200000000000
00234 -0320 00 0 00504 ANA =O700000000000
00235 -0100 00 0 00240 TNZ *+3
00236 -0500 00 6 00000 CAL 0,6
00237 0020 00 0 00241 TRA *+2
00240 0756 00 6 00000 PCA ,6
00241 0734 00 6 00000 PAX ,6
00242 1 00001 6 00243 TXI *+1,6,1
00243 1 00001 5 00244 TXI *+1,5,1
00244 0774 00 7 00000 AXT 0,7
00245 0441 00 0 00473 LDI =0
00246 -0774 00 3 00044 AXC 36,3
00247 0774 00 2 00000 AXT 0,2
00250 0074 00 4 00172 LOOP TSX GTC,4
00251 0737 00 4 00000 PAC ,4
00252 0500 00 4 00273 CLA CHRTAB,4
00253 -0120 00 0 00250 TMI LOOP
00254 0074 00 4 00214 TSX STC,4
00255 0020 00 0 00250 TRA LOOP
00256 0754 00 2 00000 OUT PXA ,2
00257 0774 00 4 00000 XR4 AXT **,4
00260 0020 00 4 00002 TRA 2,4
1 PAGE 6
00261 0 00000 0 00000 NAME
00262 0 00000 0 00000 ORDSW
00263 0 00000 0 00000 NULL
00264 0 00000 0 00000 TEMP
00265 0 00000 0 00000 MEMBND
00200 MXCHR EQU 128
00266 0 00000 0 00000 FILLER
00267 604651242551 ORDER BCI 1, ORDER
00270 314343252721 ILCHSZ BCI 3,ILLEGAL CHRSIZ.
00271 436023305162
00272 317133606060
00273 CHRTAB BSS MXCHR
END
LITERALS
00473 000000000000
00474 000000000001
00475 000000000004
00476 000000000044
00477 000000000057
00500 000000000062
00501 000000000377
00502 200000000000
00503 516060606060
00504 700000000000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
505 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
172 GTC 110, 126, 250
256 OUT 205, 213
214 STC 22, 254
154 SX4 12, 142, 166
257 XR4 226
177 GTCX 172
250 LOOP 253, 255
261 NAME 14, 50, 56, 66, 163
263 NULL 36, 111, 127, 143
2 OPEN 46
55 READ 43
264 TEMP 40, 63, 76
4 CLOSE 65, 162
156 ERROR 30
110 ILOOP 116, 123
161 IOERR 54, 64, 70
200 MXCHR 72, 73, 116, 125, 266, 273
267 ORDER 51, 57, 67, 164
262 ORDSW 16, 106, 137
6 WRFLX 156
176 CHPWD1 32, 147
273 CHRTAB 73, 117, 122, 132, 144, 252
200 CHSFT1 21, 151
216 CHSFT2 23
145 CHSFT3 24
134 DONSET 113, 120, 125, 131, 204
166 EREXIT 160
170 FILCHR 0
266 FILLER 141, 146, 150, 153, 170, 206
0 GETMEM 41
203 GTCDON 173
270 ILCHSZ 157
124 ILOOP1 107, 133
265 MEMBND 42, 100, 134, 135, 203
226 ORDLIN 0
5 PRNTER 161
3 RDFILE 55
1 SETMEM 45, 136
11 SETORD 0
0 NO ERROR IN ABOVE ASSEMBLY.
OUTPUT BCD 09/20/68 0220.4 5260 00000
1 RQUEST COMMAND FOR CTSS PAGE 1
* MODIFIED FOR LISTF '*' CONVENTION
* JIM BIXBY 7/7/67
TRANSFER VECTOR
00000 452144216242 NAMASK
00001 0074 00 4 00513 TSX FERRTN,4 SET THE I/O ERROR RETURN
00002 0 00000 0 00306 PZE ERR
00003 0074 00 4 00473 TSX WHOAMI,4 FIND WHO IS DOING THE RQUEST
00004 3 00002 0 00374 PTH PROBN,,2
00005 0074 00 4 00505 TSX GETCOM,4 GET THE RQUEST OPTION
00006 0 00000 0 00001 PZE 1 FROM THE FIRST ARGUMENT
00007 0602 00 0 00354 SLW OPTRQ ..
00010 0602 00 0 00360 SLW OUT AND PUT RQUEST IN OUTPUT FILE
00011 0774 00 1 00015 AXT OPTSIZ,1 SET UP FOR SEARCH FOR OPTION
00012 -0340 00 1 00427 CKOPT LAS OPTION+OPTSIZ,1 CHECK AGAINST KOSHER OPTIONS
00013 0020 00 0 00015 TRA *+2 NOT THIS ONE
00014 0020 00 0 00022 TRA OPTFND FOUND--
00015 2 00001 1 00012 TIX CKOPT,1,1 CHECK THE ENTIRE TABLE
HERE IF ILLEGAL OPTION GIVEN***************
00016 0074 00 4 00506 TSX WRFLX,4 BAD OPTION--SAY SO
00017 0 00004 0 00354 PZE OPTRQ,,4
00020 0074 00 4 00507 FINI TSX CHNCOM,4 AND EXIT
00021 3 00000 0 00514 PTH =0 ..
HERE IF OPTION FOUND IN LEGAL SET
00022 0074 00 4 00476 OPTFND TSX FSTATE,4 CHECK FOR 'OUTPUT RQUEST'
00023 3 00000 0 00464 PTH OUTPUT
00024 3 00000 0 00465 PTH RQUEST
00025 3 00002 0 00410 PTH A,,2
00026 3 00000 0 00317 PTH NOFILE ERROR RETURN
00027 3 00000 0 00463 PTH N ERROR CODE
00030 0500 00 0 00411 CLA A+1 GET MODE OF FILE
00031 0100 00 0 00040 TZE ONWARD PROCEED IF MODE ZERO
00032 -0120 00 0 00314 TMI LNKED ERROR IF LINKED
00033 0322 00 0 00515 ERA =1 SEE IF TEMPORARY
00034 -0100 00 0 00326 TNZ ERROR NOT TEMP. MUST DO SUMTIN
00035 0074 00 4 00475 DLETIT TSX DELFIL,4 DELETE THE OLD TEMP. 'OUTPUT RQUEST'
00036 3 00000 0 00464 PTH OUTPUT
00037 3 00000 0 00465 PTH RQUEST
1 RQUEST COMMAND FOR CTSS PAGE 2
SET UP THE BUFFERS FOR WRITING 'OUTPUT RQUEST'
AND READING THE UFD. ALSO LOAD THE UFD INTO UPPER CORE
00040 0074 00 4 00476 ONWARD TSX FSTATE,4 FIND SIZE OF UFD
00041 3 00000 0 00461 PTH UFD
00042 3 00000 0 00462 PTH FILE
00043 3 00001 0 00410 PTH A,,1
00044 0500 00 0 00410 CLA A FIND NUMBER OF WORDS
00045 0402 00 0 00517 SUB =3 TO BE READ FROM U.F.D.
00046 0601 00 0 00453 STO UFDSIZ
00047 0100 00 0 00303 TZE EMPTY IF NO ENTRIES IN UFD
00050 0767 00 0 00022 ALS 18 PUT SIZE IN DECREMENT
00051 0622 00 0 00077 STD UFDS AND STORE IN READ INSTRUCTION
00052 0074 00 4 00510 TSX GETMEM,4 EXGET CURRENT MEMORY BOUND
00053 0621 00 0 00116 STA BUFF AND SET UP BUFFER ADDRESSES
00054 0400 00 0 00454 ADD BUFSIZ
00055 0621 00 0 00077 STA UFDS ORIGIN FOR LOADING UFD
00056 0621 00 0 00455 STA NAME1 POINTER TO THE NAME1'S OF THE WORLD
00057 0400 00 0 00515 ADD =1 AND ALSO FOR THE
00060 0621 00 0 00456 STA NAME2 NAME2'S EVERYWHERE
00061 0400 00 0 00453 ADD UFDSIZ MAKE ROOM FOR THE ENTIRE UFD
00062 0074 00 4 00511 TSX SETMEM,4 TACK DOWN MEMORY HERE
00063 0534 00 4 00453 LXA UFDSIZ,4 USE UFDSIZ FOR A CHECK ON THR
00064 -0636 00 4 00225 SCD CKLOOP+1,4 UFD SEARCH LOOP
OPEN THE UFD, LOAD IT, AND CLOSE IT
00065 0074 00 4 00502 TSX OPEN,4
00066 3 00000 0 00457 PTH R
00067 3 00000 0 00461 PTH UFD
00070 3 00000 0 00462 PTH FILE
00071 3 00000 0 00514 PTH =0
00072 3 00000 0 00514 PTH =0
00073 0074 00 4 00503 TSX RDFILE,4
00074 3 00000 0 00461 PTH UFD
00075 3 00000 0 00462 PTH FILE
00076 3 00000 0 00520 PTH =4 SKIP ALLOTMENTS
00077 3 00000 0 00000 UFDS PTH **,,**
00100 3 00000 0 00102 PTH *+2 IGNORE END OF FILE
00101 3 00000 0 00463 PTH N
00102 0074 00 4 00500 TSX CLOSE,4 AND CLOSE
00103 3 00000 0 00461 PTH UFD
00104 3 00000 0 00462 PTH FILE
00105 0074 00 4 00502 TSX OPEN,4 OPEN 'OUTPUT RQUEST' FOR WRITING
00106 3 00000 0 00460 PTH W
00107 3 00000 0 00464 PTH OUTPUT
00110 3 00000 0 00465 PTH RQUEST
00111 3 00000 0 00514 PTH =0 IN ZERO MODE
00112 3 00000 0 00516 PTH =2 ON THE DISK
00113 0074 00 4 00501 TSX BUFFER,4 ASSIGN A BUFFER FOR WRITING
1 RQUEST COMMAND FOR CTSS PAGE 3
00114 3 00000 0 00464 PTH OUTPUT
00115 3 00000 0 00465 PTH RQUEST
00116 3 00660 0 00000 BUFF PTH **,,432
00117 0774 00 2 00000 AXT 0,2
1 RQUEST COMMAND FOR CTSS PAGE 4
INITIALIZE, AND FIND THE NEXT ARGUMENT SET
00120 0500 00 0 00127 NXTARG CLA ARGSET UPDATE THE ARG. COUNTER TO NEXT SET
00121 0400 00 0 00516 ADD =2
00122 0601 00 0 00127 STO ARGSET
00123 0400 00 0 00515 ADD =1
00124 0621 00 0 00135 STA ARG2
00125 0600 00 0 00405 STZ COUNT
00126 0074 00 4 00505 TSX GETCOM,4 GET THE FIRST ARG, THIS SET
00127 0 00000 0 00000 ARGSET PZE **
00130 -0340 00 0 00467 LAS FENCE IS IT A FENCE--
00131 0020 00 0 00133 TRA *+2 NOPE
00132 0020 00 0 00262 TRA CKFINI YES--FLUSH OUT OUTPT MESS.
00133 0602 00 0 00401 SLW N1
00134 0074 00 4 00505 TSX GETCOM,4 GET SECOND ARG
00135 0 00000 0 00000 ARG2 PZE **
00136 -0340 00 0 00467 LAS FENCE IS IT A FENCE
00137 0020 00 0 00145 TRA *+6
00140 0020 00 0 00142 TRA *+2
00141 0020 00 0 00145 TRA *+4
00142 0500 00 0 00515 CLA =1 YES--SET STOP FLAG
00143 0601 00 0 00466 STO STFLAG
00144 -0500 00 0 00546 CAL =H * MAKE IT A STAR
00145 0602 00 0 00402 SLW N2 AND STORE
00146 0074 00 4 00000 TSX $NAMASK,4 GET THE ARGUMENT MASKS
00147 3 00000 0 00401 PTH N1
00150 0602 00 0 00470 SLW MASK1
00151 0074 00 4 00000 TSX $NAMASK,4
00152 3 00000 0 00402 PTH N2
00153 0602 00 0 00471 SLW MASK2
1 RQUEST COMMAND FOR CTSS PAGE 5
SEARCH THE UFD FOR THE CHOSEN ENTRIES AND
PUT THEM INTO 'OUTPUT RQUEST'
00154 0774 00 1 00000 AXT 0,1 START AT TOP OF UFD
00155 -0500 60 0 00455 SEARCH CAL* NAME1 SEE IF N1 AND N2 ARE ZERO
00156 -0501 60 0 00456 ORA* NAME2
00157 0100 00 0 00224 TZE CKLOOP YES--SKIP THIS ENTRY
00160 -0500 60 0 00455 CAL* NAME1 SEE IF NAME1 FITS MASK
00161 0322 00 0 00401 ERA N1
00162 -0320 00 0 00470 ANA MASK1
00163 -0100 00 0 00224 TNZ CKLOOP
00164 -0500 60 0 00456 CAL* NAME2 YES--CHECK NAME2
00165 0322 00 0 00402 ERA N2
00166 -0320 00 0 00471 ANA MASK2
00167 -0100 00 0 00224 TNZ CKLOOP
HERE IF WE WANT TO RQUEST THIS ENTRY
00170 -0500 60 0 00455 CAL* NAME1 LOAD NAME1,NAME2 INTO RQUEST
00171 0560 00 0 00547 LDQ =H
00172 -0765 00 0 00022 LGR 18
00173 -0600 00 2 00362 STQ OUT+2,2
00174 -0501 00 0 00543 ORA =H 000
00175 0602 00 2 00361 SLW OUT+1,2
00176 -0500 60 0 00456 CAL* NAME2
00177 0602 00 2 00363 SLW OUT+3,2
00200 1 77775 2 00201 TXI *+1,2,-3 MOVE TO NEXT MESSAGE SLOT
00201 3 77767 2 00221 TXH ADDEM,2,-9 AND ADD IF SLOTS NOT FULL
00202 0074 00 4 00504 WRITE TSX WRWAIT,4 WRITE THE RQUEST
00203 3 00000 0 00464 PTH OUTPUT
00204 3 00000 0 00465 PTH RQUEST
00205 3 00000 0 00514 PTH =0 ON THE END OF THE FILE
00206 3 00016 0 00360 PTH OUT,,14
00207 3 00000 0 00213 PTH *+4
00210 3 00000 0 00463 PTH N
00211 0754 00 2 00000 PXA ,2 GET THE SLOT
00212 0322 00 0 00515 ERA =1 ONE IF WERE FININSHING UP
00213 0100 00 0 00265 TZE FINISH
00214 0774 00 2 00011 AXT 9,2 BLANK OUT SLOTS
00215 -0500 00 0 00547 CAL =H
00216 0602 00 2 00372 SLW OUT+10,2
00217 2 00001 2 00216 TIX *-1,2,1
00220 0774 00 2 00000 AXT 0,2 AND RESET COUNTER
00221 0500 00 0 00405 ADDEM CLA COUNT
00222 0400 00 0 00515 ADD =1 UPDATE COUND OF ENTRIES FOUND
00223 0601 00 0 00405 STO COUNT
00224 1 77771 1 00225 CKLOOP TXI *+1,1,-7 MOVE DOWN TABLE
00225 3 00000 1 00155 TXH SEARCH,1,** AND KEEP GOING
1 RQUEST COMMAND FOR CTSS PAGE 6
HERE WHEN SCAN OF UFD FOR THIS ARG IS FINISHED
00226 0500 00 0 00405 CLA COUNT FIND WHICH MESSAGE WE SHOULD PRINT
00227 -0100 00 0 00233 TNZ PRSOME FOUND SOME-- SAY SO
00230 0074 00 4 00506 TSX WRFLX,4 FOUND NONE--SAY SO
00231 0 00005 0 00376 PZE NONE,,5
00232 0020 00 0 00260 TRA CKFLAG SEE IF MORE WORK TO DO
00233 0560 00 0 00405 PRSOME LDQ COUNT CONVERT COUNT TO BCD W/ LEAD. ZEROS
00234 0774 00 4 00044 AXT 36,4 SEE DEFBC, BZEL IN FOREGROUND LIB.
00235 0600 00 0 00405 STZ COUNT
00236 -0754 00 0 00000 BC ZAC
00237 0221 00 0 00521 DVP =10
00240 0767 00 4 00044 ALS 36,4
00241 -0602 00 0 00405 ORS COUNT
00242 2 00006 4 00236 TIX BC,4,6
00243 0560 00 0 00405 LDQ COUNT
00244 0774 00 4 00044 AXT 36,4
00245 -0754 00 0 00000 BA ZAC
00246 -0763 00 0 00006 LGL 6
00247 0100 00 0 00252 TZE BB
00250 -0340 00 0 00522 LAS =H00000
00251 0020 00 0 00253 TRA *+2
00252 2 00006 4 00245 BB TIX BA,4,6
00253 -0501 00 0 00545 ORA =H 0
00254 -0765 00 4 00052 LGR 42,4
00255 -0600 00 0 00405 STQ COUNT
00256 0074 00 4 00506 TSX WRFLX,4 AND WRITE THE MESSAGE
00257 3 00005 0 00401 PTH N1,,5
00260 0500 00 0 00466 CKFLAG CLA STFLAG SEE IF MORE ARGS TO PROCESS
00261 0100 00 0 00120 TZE NXTARG YUPIIBACK WE GO
00262 -3 00000 2 00265 CKFINI TXL FINISH,2,0 FINISH IF IR2=0
00263 0774 00 2 00001 AXT 1,2 SET FLAG
00264 0020 00 0 00202 TRA WRITE AND FLUSH REMAINING RQUESTS
00265 0074 00 4 00500 FINISH TSX CLOSE,4 NOPE--FINISH UP
00266 3 00000 0 00464 PTH OUTPUT
00267 3 00000 0 00465 PTH RQUEST
00270 0074 00 4 00476 TSX FSTATE,4 CHECK SIZE OF 'OUTPUT RQUEST'
00271 3 00000 0 00464 PTH OUTPUT
00272 3 00000 0 00465 PTH RQUEST
00273 3 00001 0 00410 PTH A,,1
00274 0500 00 0 00410 CLA A SEE IF ZERO LENGTH
00275 -0100 00 0 00020 TNZ FINI NOPE--ALL DONE
00276 0074 00 4 00475 TSX DELFIL,4 YES--DELETE THE BASTARD
00277 3 00000 0 00464 PTH OUTPUT
00300 3 00000 0 00465 PTH RQUEST
00301 3 00000 0 00020 PTH FINI DONT EVEN BOTHER WITH ERRORS HERE
00302 0020 00 0 00020 TRA FINI
1 RQUEST COMMAND FOR CTSS PAGE 7
ERROR ROUTINES
00303 0074 00 4 00506 EMPTY TSX WRFLX,4 IF UFD IS EMPTY
00304 0 00002 0 00406 PZE NOFLS,,2
00305 0020 00 0 00311 TRA CLOSAL
00306 -0500 00 0 00537 ERR CAL =HPRNTER CHAIN TO 'PRNTER' IF ERROR
00307 0560 00 0 00467 LDQ FENCE
00310 0101 00 0 00535 TIA =HNEXCOM
00311 0074 00 4 00500 CLOSAL TSX CLOSE,4 CLOSE 'EM ALL OUT
00312 3 00000 0 00544 PTH =H ALL
00313 0020 00 0 00020 TRA FINI
00314 0074 00 4 00506 LNKED TSX WRFLX,4 HERE IF 'OUTPUT RQUEST' IS LINKED
00315 0 00007 0 00427 PZE LNKMES,,7 SAY SO
00316 0020 00 0 00311 TRA CLOSAL
00317 0500 00 0 00463 NOFILE CLA N IF FSTATE ERROR ON 'OUTPUT RQUEST'
00320 0402 00 0 00517 SUB =3 CHECK FOR ERROR CODE 3
00321 0100 00 0 00040 TZE ONWARD ALL RIGHT--THIS IS GROOOOVY
00322 0020 00 0 00306 TRA ERR WELL, YOU CANT WILL 'EM ALL
00323 0074 00 4 00506 NUTTIN TSX WRFLX,4 SAY 'NOTHING DONE'
00324 0 00002 0 00451 PZE NUTMES,,2
00325 0020 00 0 00311 TRA CLOSAL AND EXIT
HERE IF OLD 'OUTPUT RQUEST' NOT MODE
ZERO OR MODE 1
00326 0500 00 0 00411 ERROR CLA A+1 GET ERROR CODE
00327 -0765 00 0 00006 LGR 6 PUT IN MQ
00330 0767 00 0 00003 ALS 3 SPREAD OCTAL IT
00331 -0763 00 0 00003 LGL 3
00332 0767 00 0 00003 ALS 3
00333 -0763 00 0 00003 LGL 3
00334 -0501 00 0 00542 ORA =O605757000000 AND PUT IN SOME NULLS
00335 0602 00 0 00442 SLW MODE
00336 0074 00 4 00512 TSX WRFLXA,4 WRITE THE DELETE MESSAGE
00337 0 00013 0 00436 PZE DELMES,,11
00340 0074 00 4 00477 TSX RDFLXA,4 READ THE RESPONSE
00341 0 00006 0 00410 PZE A,,6
00342 -0500 00 0 00410 CAL A CHECK FOR 'YES'
00343 0322 00 0 00472 ERA YES ..
00344 -0100 00 0 00323 TNZ NUTTIN
00345 0074 00 4 00474 TSX CHFILE,4 PUT THE FILE IN MODE ZERO FOR DELETION
00346 3 00000 0 00464 PTH OUTPUT
00347 3 00000 0 00465 PTH RQUEST
00350 3 00000 0 00514 PTH =0
1 RQUEST COMMAND FOR CTSS PAGE 8
00351 3 00000 0 00534 PTH =-0
00352 3 00000 0 00534 PTH =-0
00353 0020 00 0 00035 TRA DLETIT GO KILL THE OLD COPY
* * * * * * * * * * * * * * *
* STORAGE AND CONSTANTS *
* * * * * * * * * * * * * * *
00354 000000000000 OPTRQ BCI 4,000000 IS NOT A REQUEST
00355 603162604546
00356 636021605125
00357 506425626360
00360 000000000000 OUT BCI 6,000000
00361 606060606060
00362 606060606060
00363 606060606060
00364 606060606060
00365 606060606060
00366 606060606060 BCI 6,
00367 606060606060
00370 606060606060
00371 606060606060
00372 606060606060
00373 606060606060
00374 PROBN BSS 1
00375 PROGN BSS 1
00376 452144256260 NONE BCI 2,NAMES NOT FO
00377 454663602646
00400 -244524355557 OCT 644524355557 'UND' C.R.
00401 N1 BSS 1
00402 N2 BSS 1
00403 602346644563 BCI 1, COUNT
00404 -201360575757 OCT 601360575757 ' = '
00405 COUNT BSS 1
00406 643326332433 NOFLS BCI 2,U.F.D. EMPTY
00407 602544476370
00410 A BSS 2
OPTION TABLE FOR RQUESTS
00412 604751314563 OPTION BCI 1, PRINT
00413 244764452330 BCI 1,DPUNCH
00414 074764452330 BCI 1,7PUNCH
00415 224764452330 BCI 1,BPUNCH
00416 242543256325 BCI 1,DELETE
00417 475145242543 BCI 1,PRNDEL
00420 244764242543 BCI 1,DPUDEL
00421 224764242543 BCI 1,BPUDEL
00422 074764242543 BCI 1,7PUDEL
00423 626247514563 BCI 1,SSPRNT
00424 626247512443 BCI 1,SSPRDL
00425 606047434663 BCI 1, PLOT
00426 474346242543 BCI 1,PLODEL
1 RQUEST COMMAND FOR CTSS PAGE 9
00015 OPTSIZ SYN *-OPTION SIZE OF OPTION TABLE
00427 263143256014 LNKMES BCI 7,FILE 'OUTPUT RQUEST' LINKED MODE
00430 466463476463
00431 605150642562
00432 631460433145
00433 422524604446
00434 242560606060
00435 606060606060
00436 464324602631 DELMES BCI 4,OLD FILE 'OUTPUT RQUEST'
00437 432560144664
00440 634764636051
00441 506425626314
00442 000000000000 MODE BCI 7,000000 MODE. DO YOU WANT TO DELETE IT--
00443 604446242533
00444 602446607046
00445 646066214563
00446 606346602425
00447 432563256031
00450 634040606060
00451 454663303145 NUTMES BCI 2,NOTHING DONE
00452 276024464525
00453 UFDSIZ BSS 1
00454 0 00000 0 00660 BUFSIZ PZE 432
00455 0 00000 1 00000 NAME1 PZE **,1
00456 0 00000 1 00000 NAME2 PZE **,1
00457 516060606060 R BCI 1,R
00460 666060606060 W BCI 1,W
00461 643326332433 UFD BCI 1,U.F.D.
00462 742631432534 FILE BCI 1,(FILE)
00463 N BSS 1
00464 466463476463 OUTPUT BCI 1,OUTPUT
00465 515064256263 RQUEST BCI 1,RQUEST
00466 0 00000 0 00000 STFLAG PZE 0
00467 -377777777777 FENCE OCT 777777777777
00470 MASK1 BSS 1
00471 MASK2 BSS 1
00472 -302562556060 YES OCT 702562556060
* * * * *
* TIA'S *
* * * * *
00473 0101 00 0 00551 WHOAMI TIA =HWHOAMI
00474 0101 00 0 00524 CHFILE TIA =HCHFILE
00475 0101 00 0 00527 DELFIL TIA =HDELFIL
00476 0101 00 0 00531 FSTATE TIA =HFSTATE
00477 0101 00 0 00541 RDFLXA TIA =HRDFLXA
00500 0101 00 0 00526 CLOSE TIA =HCLOSE
00501 0101 00 0 00523 BUFFER TIA =HBUFFER
00502 0101 00 0 00536 OPEN TIA =HOPEN
00503 0101 00 0 00540 RDFILE TIA =HRDFILE
00504 0101 00 0 00554 WRWAIT TIA =HWRWAIT
00505 0101 00 0 00532 GETCOM TIA =HGETCOM
00506 0101 00 0 00553 WRFLX TIA =HWRFLX
00507 0101 00 0 00525 CHNCOM TIA =HCHNCOM
1 RQUEST COMMAND FOR CTSS PAGE 10
00510 0101 00 0 00533 GETMEM TIA =HGETMEM
00511 0101 00 0 00550 SETMEM TIA =HSETMEM
00512 0101 00 0 00552 WRFLXA TIA =HWRFLXA
00513 0101 00 0 00530 FERRTN TIA =HFERRTN
END
LITERALS
00514 000000000000
00515 000000000001
00516 000000000002
00517 000000000003
00520 000000000004
00521 000000000012
00522 000000000060
00523 226426262551
00524 233026314325
00525 233045234644
00526 234346622560
00527 242543263143
00530 262551516345
00531 266263216325
00532 272563234644
00533 272563442544
00534 400000000000
00535 452567234644
00536 464725456060
00537 475145632551
00540 512426314325
00541 512426436721
00542 605757000000
00543 606060000000
00544 606060214343
00545 606060606000
00546 606060606054
00547 606060606060
00550 622563442544
00551 663046214431
00552 665126436721
00553 665126436760
00554 665166213163
1 RQUEST COMMAND FOR CTSS PAGE 1
POST PROCESSOR ASSEMBLY DATA
555 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
410 A 25, 30, 43, 44, 273, 274, 326, 341, 342
463 N 27, 101, 210, 317
457 R 66
460 W 106
245 BA 252
252 BB 247
236 BC 242
401 N1 133, 147, 161, 257
402 N2 145, 152, 165
306 ERR 2, 322
360 OUT 10, 173, 175, 177, 206, 216
461 UFD 41, 67, 74, 103
472 YES 343
135 ARG2 124
116 BUFF 53
462 FILE 42, 70, 75, 104
20 FINI 275, 301, 302, 313
442 MODE 335
376 NONE 231
502 OPEN 65, 105
77 UFDS 51, 55
221 ADDEM 201
12 CKOPT 15
500 CLOSE 102, 265, 311
405 COUNT 125, 221, 223, 226, 233, 235, 241, 243, 255
303 EMPTY 47
326 ERROR 34
467 FENCE 130, 136, 307
314 LNKED 32
470 MASK1 150, 162
471 MASK2 153, 166
455 NAME1 56, 155, 160, 170
456 NAME2 60, 156, 164, 176
406 NOFLS 304
354 OPTRQ 7, 17
374 PROBN 4
375 PROGN
506 WRFLX 16, 230, 256, 303, 314, 323
202 WRITE 264
127 ARGSET 120, 122
501 BUFFER 113
454 BUFSIZ 54
474 CHFILE 345
507 CHNCOM 20
262 CKFINI 132
260 CKFLAG 232
224 CKLOOP 64, 157, 163, 167
311 CLOSAL 305, 316, 325
475 DELFIL 35, 276
436 DELMES 337
35 DLETIT 353
1 RQUEST COMMAND FOR CTSS PAGE 2
POST PROCESSOR ASSEMBLY DATA
513 FERRTN 1
265 FINISH 213, 262
476 FSTATE 22, 40, 270
505 GETCOM 5, 126, 134
510 GETMEM 52
427 LNKMES 315
0 NAMASK 146, 151
317 NOFILE 26
451 NUTMES 324
323 NUTTIN 344
120 NXTARG 261
40 ONWARD 31, 321
22 OPTFND 14
412 OPTION 12, 427
15 OPTSIZ 11, 12, 427
464 OUTPUT 23, 36, 107, 114, 203, 266, 271, 277, 346
233 PRSOME 227
503 RDFILE 73
477 RDFLXA 340
465 RQUEST 24, 37, 110, 115, 204, 267, 272, 300, 347
155 SEARCH 225
511 SETMEM 62
466 STFLAG 143, 260
453 UFDSIZ 46, 61, 63
473 WHOAMI 3
512 WRFLXA 336
504 WRWAIT 202
0 NO ERROR IN ABOVE ASSEMBLY.
PCHMFD BCD 09/20/68 0220.5 3838 00000
1 MAD PROGRAM LISTING ... ... ... FILE MFD MAD 02/15/68 1603.8
-
PROGRAM TO PUNCH OUT A DECK OF CARDS REPRESENTING LM00001
THE CONTENTS OF THE MASTER FILE DIRECTORY. THIS LM00002
PROGRAM IS INTENDED FOR USE WITH THE MFD SORTING LM00003
PROGRAM RUN AS A NON-STANDARD FMS JOB. LM00004
D.R. WIDRIG OCTOBER 1966 LM00005
LM00006
LOADING INSTRUCTIONS LM00007
MAD MFD (LIST) LM00008
FAP GETBUF (LIST) LM00009
LAED NCLOAD MFD GETBUF (SQZ) (SRCH) XLIBE LM00010
SAVE PCHMFD LM00011
R MFD LM00012
RQUEST DPUNCH MFD PUNCH LM00013
LM00014
NORMAL MODE IS INTEGER *001 LM00015
DIMENSION BUFF1(0),BUFF2(0),BUFF3(0),BUFF4(0),BUFF5(0) *002 LM00016
DIMENSION LINE(14),UFD(7),V(2) *003 LM00017
LM00018
VECTOR VALUES MZE = -0 *004 LM00019
VECTOR VALUES COUNT = 0 *005 LM00020
VECTOR VALUES MFD = $M.F.D.$ *006 LM00021
VECTOR VALUES FILE = $(FILE)$ *007 LM00022
VECTOR VALUES PUNCH = $ PUNCH$ *008 LM00023
VECTOR VALUES LINE(1) ... LINE(14) = $ $ *009 LM00024
LM00025
GET BUFFER AREAS LM00026
LM00027
GETBUF.(BUFF1,432) *010 LM00028
GETBUF.(BUFF2,432) *011 LM00029
GETBUF.(BUFF3,432) *012 LM00030
GETBUF.(BUFF4,432) *013 LM00031
GETBUF.(BUFF5,432) *014 LM00032
LM00033
PREPARE MFD FOR READING AND OUTPUT FILE FOR WRITING LM00034
LM00035
ATTNAM.(V(2)...2) *015 LM00036
ATTACH.(MFD,FILE) *016 LM00037
BFOPEN.($R$,MFD,FILE,BUFF1(BUFF1+432),BUFF2(BUFF2+432), *017 LM00038
1 MZE,ERR1) *017 LM00039
ATTACH.(V(2),V(1)) *018 LM00040
LM00041
BFOPEN.($W$,MFD,PUNCH,BUFF3(BUFF3+432),BUFF4(BUFF4+432), *019 LM00042
1 BUFF5(BUFF5+432),ERR1) *019 LM00043
BFREAD.(MFD,FILE,UFD(3)...3,REOF,EOFCT,ERR1) *020 LM00044
LM00045
SELECT AN ENTRY FROM THE MFD AND CHECK IT LM00046
LM00047
READM BFREAD.(MFD,FILE,UFD(7)...7,REOF,EOFCT,ERR1) *021 LM00048
WHENEVER ((UFD(7).V.UFD(6)) .E. 0), TRANSFER TO READM *022 LM00049
LM00050
LEGITIMATE ENTRY, ADD OUTPUT LINE LM00051
LM00052
COUNT = COUNT + 1 *023 LM00053
LINE(14) = LJUST.(UFD(7)) *024 LM00054
LINE(13) = UFD(6) *025 LM00055
BFWRIT.(MFD,PUNCH,LINE(14)...14,ERR1) *026 LM00056
TRANSFER TO READM *027 LM00057
LM00058
EOF ON MFD, PRINT OUT COUNT AND LEAVE LM00059
LM00060
REOF PRMESS.(DEFBC.(COUNT)) *028 LM00061
BFCLOS.($ALL$,MZE,ERR1) *029 LM00062
CHNCOM.(0) *030 LM00063
LM00064
SIMPLE-MINDED ERROR HANDLING LM00065
LM00066
ERR1 NCOM.($PRNTER$,61K) *031 LM00067
LM00068
END OF PROGRAM *032 LM00069
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00272 TRANSFER VECTOR LENGTH 00016 PROGRAM BEGINS 00104
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BUFF1 00022 A 1 BUFF5 00026 A 1 FILE 00031 A 1 MZE 00052 A 1 REOF 00021 4
BUFF2 00023 A 1 COUNT 00027 A 1 LINE 00050 A 1 PUNCH 00053 A 1 UFD 00063 A 1
BUFF3 00024 A 1 EOFCT 00030 1 MFD 00051 A 1 READM 00020 4 V 00066 A 1
BUFF4 00025 A 1 ERR1 00017 4
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1
BFWRIT 00005 1 CHNCOM 00006 1 DEFBC 00007 1 EXIT 00010 1 GETBUF 00011 1
.SETUP 00012 1 LJUST 00013 1 NCOM 00014 1 PRMESS 00015 1
0ABSOLUTE CONSTANTS
00075 +000000000061 00101 -075145632551 00077 +214343606060 00074 +000000000016 00067 +000000000000
00073 +000000000007 00072 +000000000003 00103 -266060606060 00102 -116060606060 00071 +000000000002
00076 +000000000660 00070 +000000000001 00100 +233000000000
0STATEMENT DICTIONARY
00017 TXL -300266000263 00020 TXL -300223000214 00021 TXL -300255000250
0PROGRAM
N'R 001 LM00015
D'N BUFF1(0),BUFF2(0),BUFF3(0),BUFF4(0),BUFF5(0) 002 LM00016
D'N LINE(14),UFD(7),V(2) 003 LM00017
V'S MZE = -0 004 LM00019
00104 TSX +0 07400 4 00012 00052 -0 00000 0 00000
V'S COUNT = 0 005 LM00020
00027 +0 00000 0 00000
V'S MFD = $M.F.D.$ 006 LM00021
00051 -0 43326 3 32433
V'S FILE = $(FILE)$ 007 LM00022
00031 -3 42631 4 32534
V'S PUNCH = $ PUNCH$ 008 LM00023
00053 -2 04764 4 52330
V'S LINE(1) ... LINE(14) = $ $ 009 LM00024
00032 -2 06060 6 06060 00033 -2 06060 6 06060 00034 -2 06060 6 06060 00035 -2 06060 6 06060
00036 -2 06060 6 06060 00037 -2 06060 6 06060 00040 -2 06060 6 06060 00041 -2 06060 6 06060
00042 -2 06060 6 06060 00043 -2 06060 6 06060 00044 -2 06060 6 06060 00045 -2 06060 6 06060
00046 -2 06060 6 06060 00047 -2 06060 6 06060
GETBUF.(BUFF1,432) 010 LM00028
00105 TSX +0 07400 4 00011 00106 TXH +3 00000 0 00022 00107 TXH +3 00000 0 00076
GETBUF.(BUFF2,432) 011 LM00029
00110 TSX +0 07400 4 00011 00111 TXH +3 00000 0 00023 00112 TXH +3 00000 0 00076
GETBUF.(BUFF3,432) 012 LM00030
00113 TSX +0 07400 4 00011 00114 TXH +3 00000 0 00024 00115 TXH +3 00000 0 00076
GETBUF.(BUFF4,432) 013 LM00031
00116 TSX +0 07400 4 00011 00117 TXH +3 00000 0 00025 00120 TXH +3 00000 0 00076
GETBUF.(BUFF5,432) 014 LM00032
00121 TSX +0 07400 4 00011 00122 TXH +3 00000 0 00026 00123 TXH +3 00000 0 00076
ATTNAM.(V(2)...2) 015 LM00036
00124 TSX +0 07400 4 00001 00125 TIX +2 00071 0 00064
ATTACH.(MFD,FILE) 016 LM00037
00126 TSX +0 07400 4 00000 00127 TXH +3 00000 0 00051 00130 TXH +3 00000 0 00031
BFOPEN.($R$,MFD,FILE,BUFF1(BUFF1+432),BUFF2(BUFF2+432), 017 LM00038
1 MZE,ERR1) 017 LM00039
00131 CLA +0 50000 0 00023 00132 ADD +0 40000 0 00076 00133 SUB +0 40200 0 00134 00134 TXH +3 00000 0 00023
00135 STA +0 62100 0 00150 00136 CLA +0 50000 0 00022 00137 ADD +0 40000 0 00076 00140 SUB +0 40200 0 00141
00141 TXH +3 00000 0 00022 00142 STA +0 62100 0 00147 00143 TSX +0 07400 4 00003 00144 TXH +3 00000 0 00102
00145 TXH +3 00000 0 00051 00146 TXH +3 00000 0 00031 00147 TXH +3 00000 0 00000 00150 TXH +3 00000 0 00000
00151 TXH +3 00000 0 00052 00152 TXH +3 00000 0 00017
ATTACH.(V(2),V(1)) 018 LM00040
00153 TSX +0 07400 4 00000 00154 TXH +3 00000 0 00064 00155 TXH +3 00000 0 00065
BFOPEN.($W$,MFD,PUNCH,BUFF3(BUFF3+432),BUFF4(BUFF4+432), 019 LM00042
1 BUFF5(BUFF5+432),ERR1) 019 LM00043
00156 CLA +0 50000 0 00026 00157 ADD +0 40000 0 00076 00160 SUB +0 40200 0 00161 00161 TXH +3 00000 0 00026
00162 STA +0 62100 0 00203 00163 CLA +0 50000 0 00025 00164 ADD +0 40000 0 00076 00165 SUB +0 40200 0 00166
00166 TXH +3 00000 0 00025 00167 STA +0 62100 0 00202 00170 CLA +0 50000 0 00024 00171 ADD +0 40000 0 00076
00172 SUB +0 40200 0 00173 00173 TXH +3 00000 0 00024 00174 STA +0 62100 0 00201 00175 TSX +0 07400 4 00003
00176 TXH +3 00000 0 00103 00177 TXH +3 00000 0 00051 00200 TXH +3 00000 0 00053 00201 TXH +3 00000 0 00000
00202 TXH +3 00000 0 00000 00203 TXH +3 00000 0 00000 00204 TXH +3 00000 0 00017
BFREAD.(MFD,FILE,UFD(3)...3,REOF,EOFCT,ERR1) 020 LM00044
00205 TSX +0 07400 4 00004 00206 TXH +3 00000 0 00051 00207 TXH +3 00000 0 00031 00210 TIX +2 00072 0 00060
00211 TXH +3 00000 0 00021 00212 TXH +3 00000 0 00030 00213 TXH +3 00000 0 00017
READM BFREAD.(MFD,FILE,UFD(7)...7,REOF,EOFCT,ERR1) 021 LM00048
00214 TSX +0 07400 4 00004 00215 TXH +3 00000 0 00051 00216 TXH +3 00000 0 00031 00217 TIX +2 00073 0 00054
00220 TXH +3 00000 0 00021 00221 TXH +3 00000 0 00030 00222 TXH +3 00000 0 00017
W'R ((UFD(7).V.UFD(6)) .E. 0), T'O READM 022 LM00049
00223 CAL -0 50000 0 00054 00224 ORA -0 50100 0 00055 00225 SLW +0 60200 0 00267 00226 CLA +0 50000 0 00267
00227 SUB +0 40200 0 00067 00230 TNZ -0 10000 0 00232 00231 TRA +0 02000 0 00020
COUNT = COUNT + 1 023 LM00053
00232 CLA +0 50000 0 00027 00233 ADD +0 40000 0 00070 00234 STO +0 60100 0 00027
LINE(14) = LJUST.(UFD(7)) 024 LM00054
00235 TSX +0 07400 4 00013 00236 TXH +3 00000 0 00054 00237 STO +0 60100 0 00032
LINE(13) = UFD(6) 025 LM00055
00240 CLA +0 50000 0 00055 00241 STO +0 60100 0 00033
BFWRIT.(MFD,PUNCH,LINE(14)...14,ERR1) 026 LM00056
00242 TSX +0 07400 4 00005 00243 TXH +3 00000 0 00051 00244 TXH +3 00000 0 00053 00245 TIX +2 00074 0 00032
00246 TXH +3 00000 0 00017
T'O READM 027 LM00057
00247 TRA +0 02000 0 00020
REOF PRMESS.(DEFBC.(COUNT)) 028 LM00061
00250 TSX +0 07400 4 00007 00251 TXH +3 00000 0 00027 00252 STO +0 60100 0 00267 00253 TSX +0 07400 4 00015
00254 TXH +3 00000 0 00267
BFCLOS.($ALL$,MZE,ERR1) 029 LM00062
00255 TSX +0 07400 4 00002 00256 TXH +3 00000 0 00077 00257 TXH +3 00000 0 00052 00260 TXH +3 00000 0 00017
CHNCOM.(0) 030 LM00063
00261 TSX +0 07400 4 00006 00262 TXH +3 00000 0 00067
ERR1 NCOM.($PRNTER$,61K) 031 LM00067
00263 TSX +0 07400 4 00014 00264 TXH +3 00000 0 00101 00265 TXH +3 00000 0 00075
E'M 032 LM00069
00266 TSX +0 07400 4 00010
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
D.R. WIDRIG JUNE 1966
00004 ENTRY GETBUF GET A BUFFER
EXTERN GETMEM,SETMEM
CALLING SEQUENCE IS.. GETBUF.(BUFF,N)
UPON RETURN, THE CALLER MAY USE THE
AREA BY STATEMENTS OF THE FORM.. X = BUFF(BUFF+I)
WHERE THE I'TH ELEMENT IS INTENDED
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
LINKAGE DIRECTOR
00002 000000000000
00003 272563226426
00004 0636 00 4 00024 GETBUF SCA X4,4 SAVE LINKAGE
00005 0634 00 1 00025 SXA X1,1 AND IR1
00006 0535 00 1 00024 LAC X4,1 SET IR1 TO IR4 (THE CALLER)
00007 0074 00 4 00000 TSX GETMEM,4 GET CURRENT MEMORY BOUND
00010 0601 00 0 00027 STO OLDMEM SAVE OLD MEMORY BOUND
00011 0400 60 1 00002 ADD* 2,1 ALLOW FOR USER'S DEMAND
00012 0734 00 4 00000 PAX 0,4 SAVE COMPLEMENT OF THIS VALUE
00013 -0636 00 4 00020 SCD TXI,4 ..
00014 0400 00 0 00030 ADD =1 ALLOW FOR BUFF(0)
00015 0074 00 4 00001 TSX SETMEM,4 RAISE THE ROOF
00016 -0500 00 1 00001 CAL 1,1 GET BASE POINTER
00017 0734 00 4 00000 PAX 0,4 ..
00020 1 00000 4 00021 TXI TXI *+1,4,** DECREMENT BY AMOUNT OF STORAGE
00021 0754 00 4 00000 PXA 0,4 SET THIS VALUE IN USER'S PROGRAM
00022 0602 60 1 00001 SLW* 1,1 ..
00023 0500 00 0 00027 CLA OLDMEM RETURN OLD MEMORY BOUND
00024 -0774 00 4 00000 X4 AXC **,4 RESTORE LINKAGE
00025 0774 00 1 00000 X1 AXT **,1 AND IR1
00026 0020 00 4 00003 TRA 3,4 RETURN
00027 OLDMEM BSS 1 STORAGE FOR OLD MEMORY BOUND
END
LITERALS
00030 000000000001
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
POST PROCESSOR ASSEMBLY DATA
31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
25 X1 5
24 X4 4, 6
20 TXI 13
4 GETBUF 0
0 GETMEM 7
27 OLDMEM 10, 23
1 SETMEM 15
0 NO ERROR IN ABOVE ASSEMBLY.
PRELOD BCD 09/20/68 0220.5 25101 00000
1 MAD PROGRAM LISTING ... ... ... FILE PRELOD MAD 02/15/68 1610.6
-
LM00001
PRELOD NAME1 -COMB- -NOLIST- LM00002
LM00003
CHECKS NAME1 CTSSLD TO SEE IF IT WILL LOAD LM00004
SUCCESSFULLY. CREATES A LINE MARKED LM00005
FILE, NAME1 STOMAP, WHICH INCLUDES ERROR LM00006
COMMENTS IF ANY, CHECKS FOR MISSING FILES, LM00007
MISSING ENTRY POINTS, DUPLICATED ENTRY POINTS, LM00008
AND CORE OVERLAP. LM00009
LM00010
NORMAL MODE IS INTEGER *001 LM00011
DIMENSION BUFF1(432),BUFF2(432),A(14),PROG(28),TVARAY(3000) *002 LM00012
DIMENSION EPARAY(9600,DIM),MFARAY(100),MEARAY(600),MULT(200) *003 LM00013
DIMENSION LINE(33),FILNAM(2),BUFF3(432),TV1(6000,DTV) *004 LM00014
EQUIVALENCE (FILNAM(0),N1),(FILNAM(1),NA2) *005 LM00015
VECTOR VALUES BL = 432 *006 LM00016
VECTOR VALUES BLANK3 = $ $,777777000003K *007 LM00017
VECTOR VALUES DIFC=$TOTAL LOCATIONS NOT USED $,0,$ DECIMAL$, *008 LM00018
1 777777777777K *008 LM00019
VECTOR VALUES DIM = 2,17,16 *009 LM00020
VECTOR VALUES DTV = 2,3,2 *010 LM00021
VECTOR VALUES FENCE = 777777777777K *011 LM00022
VECTOR VALUES HEAD = 777777000013K,$0 NAME T.V. ORGIN LENTH *012 LM00023
1 COMMON CROSS REFERENCE$ *012 LM00024
VECTOR VALUES HPC = $HIGHEST PROGRAM LOCATION $,0,777777777777K *013 LM00025
VECTOR VALUES ICOMB = 0 *014 LM00026
VECTOR VALUES ILIST = 0 *015 LM00027
VECTOR VALUES JE = 0 *016 LM00028
VECTOR VALUES JT = -50 *017 LM00029
VECTOR VALUES LCOM = 77777K *018 LM00030
VECTOR VALUES LCM = $LOWEST COMMON LOCATION $,0,777777777777K *019 LM00031
VECTOR VALUES LC = 33 *020 LM00032
VECTOR VALUES LPOINT = 62K *021 LM00033
VECTOR VALUES MASK1 = 7777K8 *022 LM00034
VECTOR VALUES MASK2 = 000077000000K *023 LM00035
VECTOR VALUES MASK3 = 000000777777K *024 LM00036
VECTOR VALUES MASK4 = 577777777777K *025 LM00037
VECTOR VALUES MEARAY(0) = 0 *026 LM00038
VECTOR VALUES MESS1 = $EOF IN PROGRAM CARD INFORMATION, FILE SKIPPED$ *027 LM00039
VECTOR VALUES MESS2 = $COMMAND FORM IS 'PRELOD NAME1 -'NOLIST'- -'COMB' *028 LM00040
1 -'$,777777777777K *028 LM00041
VECTOR VALUES MFARAY(0) = 0 *029 LM00042
VECTOR VALUES MULT(0) = 0 *030 LM00043
VECTOR VALUES NASTY = 0,777777777777K *031 LM00044
VECTOR VALUES NA2 = $STOMAP$ *032 LM00045
VECTOR VALUES N2 = $CTSSLD$ *033 LM00046
VECTOR VALUES QBSS = $ BSS$ *034 LM00047
VECTOR VALUES QCOMB = $ COMB$ *035 LM00048
VECTOR VALUES PROGSW = 0 *036 LM00049
VECTOR VALUES SUM1 = 777777000004K,$0 PRELOAD SUCCESSFUL$, *037 LM00050
2 777777000006K,$ LOWEST COMMON LOCATION $,0, *037 LM00051
3 777777000006K,$ HIGHEST PROGRAM LOCATION$,0, *037 LM00052
4 777777000010K,$ TOTAL NOT USED $,0,$ DECIMAL$ *037 LM00053
VECTOR VALUES SUM1A = $UNSUCC$ *038 LM00054
VECTOR VALUES SUM2 = 777777000004K,$ MISSING FILES ARE$ *039 LM00055
VECTOR VALUES SUM3 = 777777000005K,$ MISSING ENTRY POINTS ARE$ *040 LM00056
VECTOR VALUES SUM4 = 777777000006K,$ DUPLICATED ENTRY POINTS ARE$ *041 LM00057
VECTOR VALUES TITLE = 777777000020K,$ STOMAP FOR PRELOD OF $ *042 LM00058
1 ,0,$ SYSTEM $,0,$ $,0,$ $,0,$ $,0,0 *042 LM00059
VECTOR VALUES TVSW = 0 *043 LM00060
VECTOR VALUES PL = 0 *044 LM00061
VECTOR VALUES TAG = $******$ *045 LM00062
VECTOR VALUES BLANK = $ $ *046 LM00063
VECTOR VALUES ZERO = 0 *047 LM00064
FERRTN.(ERR1) *048 LM00065
FERRTN.(ERR2) *049 LM00066
FERRTN.(ERR3) *050 LM00067
FERRTN.(ERR4) *051 LM00068
LM00069
GET AND CHECK ARGUMENTS LM00070
LM00071
WHENEVER COMARG.(1,N1).E.FENCE *052 LM00072
PRNTP.(MESS2) *053 LM00073
CHNCOM.(0) *054 LM00074
OR WHENEVER COMARG.(2) .E. FENCE *055 LM00075
TRANSFER TO START *056 LM00076
OR WHENEVER COMARG.(2).E.QCOMB .OR. COMARG.(3) .E. QCOMB *057 LM00077
ICOMB = 1 *058 LM00078
END OF CONDITIONAL *059 LM00079
WHENEVER COMARG.(3) .E. $NOLIST$ .OR. COMARG.(2) .E. $NOLIST$, *060 LM00080
1 ILIST = 1 *060 LM00081
READ FILE NAMES FROM CTSSLD LM00082
START BFOPEN.($R$,N1,N2,BUFF1(BL),-0,-0,ERR1) *061 LM00083
LM00084
READ CTSSLD LM00085
LM00086
READ1 BFREAD.(N1,N2,A(14)...14,EOF1,EOFCT,ERR1) *062 LM00087
WHENEVER (A(14) .E. TAG) .OR. (A(14) .E. $ $), TRANSFER TO READ1 *063 LM00088
BFOPEN.($R$,A(14),QBSS,BUFF2(BL),-0,-0,ERR2) *064 LM00089
LM00090
READ NEXT BSS FILE CARD LM00091
LM00092
READ2 BFREAD.(A(14),QBSS,PROG(28)...28,EOF2,EOFCT,ERR2) *065 LM00093
R2 WHENEVER (PROG(28) .A. MASK1) .E. 4005K8 *066 LM00094
NW = (PROG(28) .A. MASK2) .RS. 18 *067 LM00095
K = 26 *068 LM00096
WHENEVER PROGSW .E. 1, TRANSFER TO LTOP1 *069 LM00097
NW = NW-2 *070 LM00098
K = K-2 *071 LM00099
PROGSW = 1 *072 LM00100
LPOINT = LPOINT + PL *073 LM00101
TEMP = (PROG(25) .A. 4K11) .RS. 3 *074 LM00102
WHENEVER TEMP .NE. 0, LPOINT = 2*((LPOINT+1)/2) *075 LM00103
LM00104
STORE PROGRAM INFORMATION LM00105
LM00106
PL = PROG(26).A.MASK3 *076 LM00107
TVL = PROG(26) .RS. 18 *077 LM00108
EPARAY(JE,3) = PROG(25) .A. 377777777777K *078 LM00109
WHENEVER (EPARAY(JE,3).NE.0).AND.(EPARAY(JE,3).L.LCOM), *079 LM00110
1 LCOM = EPARAY(JE,3) *079 LM00111
EPARAY(JE,0) = A(14) *080 LM00112
EPARAY(JE,1) = OCABC.(LPOINT) *081 LM00113
EPARAY(JE,2) = PL *082 LM00114
EPARAY(JE,4) = TAG *083 LM00115
JE =JE+1 *084 LM00116
LTOP1 THROUGH LOOP1, FOR ICNT = NW,-2,ICNT.LE.0 *085 LM00117
EPARAY(JE,0) = PROG(K) *086 LM00118
EPARAY(JE,1) = OCABC.(.ABS.(PROG(K-1)) + LPOINT) *087 LM00119
EPARAY(JE,2) = 3 *088 LM00120
K = K-2 *089 LM00121
LOOP1 JE = JE + 1 *090 LM00122
TRANSFER TO READ2 *091 LM00123
END OF CONDITIONAL *092 LM00124
LM00125
STORE TRANSFER VECTOR LM00126
LM00127
WHENEVER TVSW .E. 1, TRANSFER TO LTOP2 *093 LM00128
TVSW =1 *094 LM00129
JT = (JT/50 + 1) * 50 *095 LM00130
TVARAY(JT) = A(14) *096 LM00131
JT = JT + 1 *097 LM00132
LTOP2 K = 24 *098 LM00133
IC = 20 *099 LM00134
WHENEVER TVL.L.20, IC = TVL *100 LM00135
THROUGH LOOP2, FOR ICNT = IC, -1, ICNT .E. 0 *101 LM00136
TVARAY(JT) = PROG(K) *102 LM00137
K = K - 1 *103 LM00138
LOOP2 JT = JT + 1 *104 LM00139
WHENEVER TVL .G. 20 *105 LM00140
TVL = TVL - 20 *106 LM00141
TRANSFER TO READ2 *107 LM00142
OTHERWISE *108 LM00143
TVARAY(JT) = FENCE *109 LM00144
TVSW = 0 *110 LM00145
END OF CONDITIONAL *111 LM00146
PROGSW = 0 *112 LM00147
WHENEVER ICOMB .E. 0 *113 LM00148
BFCLOS.(A(14),QBSS,READ1) *114 LM00149
TRANSFER TO READ1 *115 LM00150
END OF CONDITIONAL *116 LM00151
LM00152
IF THIS IS A COMBINED FILE, SEARCH FOR REMAINING P.C. LM00153
LM00154
SKIP BFREAD.(A(14),QBSS,PROG(28)...28,EOF3,EOFCT,ERR3) *117 LM00155
WHENEVER PROG(28) .A. MASK1 .E. 4005K8, TRANSFER TO R2 *118 LM00156
TRANSFER TO SKIP *119 LM00157
EOF3 BFCLOS.(A(14),QBSS,READ1) *120 LM00158
TRANSFER TO READ1 *121 LM00159
LM00160
ENTIRE CTSSLD HAS BEEN READ AND ALL PROGRAM LM00161
INFORMATION STORED LM00162
LM00163
EOF1 BFCLOS.(N1,N2,EOF1A) *122 LM00164
EOF1A HCORE = LPOINT + PL *123 LM00165
JESAVE = JE *124 LM00166
WHENEVER JT .L. 0 *125 LM00167
TVARAY(1) = FENCE *126 LM00168
TVARAY(2) = FENCE *127 LM00169
TRANSFER TO PART2 *128 LM00170
END OF CONDITIONAL *129 LM00171
TVARAY(JT+1) = FENCE *130 LM00172
JT = - 50 *131 LM00173
TRANSFER TO PART2 *132 LM00174
LM00175
I/O ERROR RETURNS LM00176
LM00177
EOF2 PRNTP.(MESS1) *133 LM00178
TRANSFER TO ER2A *134 LM00179
ERR1 PRNTER. *135 LM00180
BFCLOS.($ALL$,-0,ERRX) *136 LM00181
ERRX CHNCOM.(0) *137 LM00182
ERR2 PRNTER. *138 LM00183
ER2A BFCLOS.(A(14),QBSS,ER2B) *139 LM00184
ER2B MFARAY = MFARAY + 1 *140 LM00185
MFARAY(MFARAY) = A(14) *141 LM00186
TRANSFER TO READ1 *142 LM00187
ERR3 PRNTER. *143 LM00188
BFCLOS. (A(14),QBSS,READ1) *144 LM00189
TRANSFER TO READ1 *145 LM00190
LM00191
CHECK T.V. AGAINST ENTRY POINTS LM00192
IF ENTRY POINT FOUND, STORE CALLING FILE NAME LM00193
IF ENTRY POINT NOT FOUND, STORE TRANSFER NAME LM00194
IN MISSING ENTRY POINT ARRAY (MEARAY) LM00195
LM00196
PART2 JT = (JT/50 + 1)*50 *146 LM00197
MODNAM = TVARAY(JT) *147 LM00198
MNAM JT = JT +1 *148 LM00199
WHENEVER TVARAY(JT) .NE. FENCE, TRANSFER TO LTOP3 *149 LM00200
WHENEVER TVARAY(JT+1) .E. FENCE, TRANSFER TO DUPCK *150 LM00201
TRANSFER TO PART2 *151 LM00202
LTOP3 THROUGH LOOP3, FOR JE=1,1, JE.GE.JESAVE *152 LM00203
WHENEVER EPARAY(JE,4) .E. TAG *153 LM00204
FILEN = EPARAY(JE,0) *154 LM00205
TRANSFER TO LOOP3 *155 LM00206
END OF CONDITIONAL *156 LM00207
WHENEVER TVARAY(JT) .NE. EPARAY(JE,0), TRANSFER TO LOOP3 *157 LM00208
TV1(JT,0) = FILEN *158 LM00209
TV1(JT,1) = EPARAY(JE,1) *159 LM00210
WHENEVER EPARAY(JE,2) .G. 14, TRANSFER TO MNAM *160 LM00211
EPARAY(JE,EPARAY(JE,2)) = MODNAM *161 LM00212
EPARAY(JE,2) = EPARAY(JE,2) + 1 *162 LM00213
TRANSFER TO MNAM *163 LM00214
LOOP3 CONTINUE *164 LM00215
MEARAY = MEARAY + 1 *165 LM00216
MEARAY(MEARAY) = TVARAY(JT) *166 LM00217
TV1(JT,0) = BLANK *167 LM00218
TV1(JT,1) = BLANK *168 LM00219
TRANSFER TO MNAM *169 LM00220
LM00221
CHECK FOR DUPLICATED ENTRY POINTS LM00222
LM00223
DUPCK THROUGH LOOP5, FOR JE1 = 1,1,JE1.GE.JESAVE *170 LM00224
WHENEVER EPARAY(JE1,4) .E. TAG, TRANSFER TO LOOP5 *171 LM00225
THROUGH LOOP4, FOR JE=JE1+1,1,JE.E.JESAVE *172 LM00226
WHENEVER EPARAY(JE,4) .E. TAG, TRANSFER TO LOOP4 *173 LM00227
WHENEVER EPARAY(JE1,0) .NE. EPARAY(JE,0), TRANSFER TO LOOP4 *174 LM00228
MULT = MULT + 1 *175 LM00229
MULT(MULT) = EPARAY(JE,0) *176 LM00230
TRANSFER TO LOOP5 *177 LM00231
LOOP4 CONTINUE *178 LM00232
LOOP5 CONTINUE *179 LM00233
LM00234
WRITE FILE FOR OUTPUT LM00235
LM00236
EXECUTE DELETE.(FILNAM) *180 LM00237
BFOPEN.($W$,N1,NA2,BUFF1(BL),BUFF2(BL),BUFF3(BL),ERR4) *181 LM00238
TITLE(8) = N1 *182 LM00239
GETTM.(TITLE(11),TITLE(13)) *183 LM00240
TITLE(5)=(N1.A.777777000000K).V.000000575757K *184 LM00241
WHOAMI.(TITLE(16)...2) *185 LM00242
LINE(LC-15) = TITLE(16) *186 LM00243
LINE(LC-16) = TITLE(15) *187 LM00244
THROUGH LOOP6, FOR IC = 0,1,IC .G. 14 *188 LM00245
LOOP6 LINE(LC-IC) = TITLE(IC) *189 LM00246
BFWRIT.(N1,NA2,LINE(LC)...17,ERR4) *190 LM00247
WHENEVER ILIST .E. 1 .OR. JESAVE .L. 1, TRANSFER TO SUMERY *191 LM00248
THROUGH LOOP7, FOR IC = 0,1,IC .G. 11 *192 LM00249
LOOP7 LINE(LC-IC) = HEAD(IC) *193 LM00250
BFWRIT.(N1,NA2,LINE(LC)...12, ERR4) *194 LM00251
JT = -50 *195 LM00252
JE = 0 *196 LM00253
LM00254
PRINT FILE LINE LM00255
LM00256
LTOP8 BFWRIT.(N1,NA2,BLANK3(3)...4,ERR4) *197 LM00257
LINE(LC) = 777777000007K *198 LM00258
LINE(LC-1) = BLANK *199 LM00259
LINE(LC-2) = $FILE $ *200 LM00260
LINE(LC-3) = EPARAY(JE,0) *201 LM00261
LINE(LC-4) = BLANK *202 LM00262
LINE(LC-5) = (EPARAY(JE,1)) *203 LM00263
LINE(LC-6) = OCABC.(EPARAY(JE,2)) *204 LM00264
LINE(LC-7) = OCABC.(EPARAY(JE,3)) *205 LM00265
BFWRIT.(N1,NA2,LINE(LC)...8,ERR4) *206 LM00266
LM00267
PRINT EACH TRANSFER VECTOR LM00268
LM00269
LINE(LC) = 777777000011K *207 LM00270
LINE(LC-1) = BLANK *208 LM00271
LINE(LC-2) = BLANK *209 LM00272
LINE(LC-3) = BLANK *210 LM00273
LINE(LC-5) = BLANK *211 LM00274
LINE(LC-6) = BLANK *212 LM00275
LINE(LC-7) = BLANK *213 LM00276
JT = (JT/50+1)*50 + 1 *214 LM00277
LTOP9 WHENEVER TVARAY(JT) .E. FENCE, TRANSFER TO TOP10 *215 LM00278
LINE(LC-4) = TVARAY(JT) *216 LM00279
LINE(LC-8) = TV1(JT,0) *217 LM00280
LINE(LC-9) = TV1(JT,1) *218 LM00281
BFWRIT.(N1,NA2,LINE(LC)...10,ERR4) *219 LM00282
JT = JT + 1 *220 LM00283
TRANSFER TO LTOP9 *221 LM00284
TOP10 LINE(LC-4) = BLANK *222 LM00285
LINE(LC-6) = BLANK *223 LM00286
LINE(LC-7) = BLANK *224 LM00287
LTOP10 JE = JE + 1 *225 LM00288
LM00289
PRINT EACH ENTRY POINT NAME, LOAD POINT LM00290
AND CALLERS LM00291
LM00292
WHENEVER JE .GE. JESAVE, TRANSFER TO SUMERY *226 LM00293
WHENEVER EPARAY(JE,4) .E. TAG, TRANSFER TO LTOP8 *227 LM00294
NLC= (2*(EPARAY(JE,2)-3)+7) *228 LM00295
LINE(LC)= (NLC-1).V.777777K6 *229 LM00296
LINE(LC-3) = EPARAY(JE,0) *230 LM00297
LINE(LC-5) = (EPARAY(JE,1)) *231 LM00298
LINE(LC-7) = BLANK *232 LM00299
LCNT = LC - 8 *233 LM00300
THROUGH LOOP11, FOR IC = 3,1,IC .E. EPARAY(JE,2) *234 LM00301
LINE(LCNT) = EPARAY(JE,IC) *235 LM00302
LINE(LCNT-1) = 735757575757K *236 LM00303
LOOP11 LCNT = LCNT-2 *237 LM00304
BFWRIT.(N1,NA2,LINE(LC)...NLC,ERR4) *238 LM00305
TRANSFER TO LTOP10 *239 LM00306
LM00307
PRINT PRELOD SUMMARY LM00308
LM00309
SUMERY SUM1(18) = OCABC.(HCORE) *240 LM00310
SUM1(11) = OCABC.(LCOM) *241 LM00311
SUM1(25) = BZEL.(DERBC.(LCOM-HCORE)) *242 LM00312
WHENEVER HCORE.G.LCOM, SUM1(25) =SUM1(25).A.MASK4 *243 LM00313
HPC(5) = SUM1(18) *244 LM00314
LCM(5) = SUM1(11) *245 LM00315
DIFC(5) = SUM1(25) *246 LM00316
WHENEVER HCORE .L. LCOM .AND. (MEARAY+MFARAY) .E. 0 *247 LM00317
LM00318
SUCCESSFUL PRELOD LM00319
LM00320
THROUGH LOOP13, FOR IC = 0,1,IC .G. 27 *248 LM00321
LOOP13 LINE(LC-IC) = SUM1(IC) *249 LM00322
BFWRIT.(N1,NA2,LINE(LC)...28,ERR4) *250 LM00323
PRINT COMMENT $SYSTEM PRELOAD SUCCESSFUL$ *251 LM00324
PRNTP.(LCM) *252 LM00325
PRNTP.(HPC) *253 LM00326
PRNTP.(DIFC) *254 LM00327
TRANSFER TO MUCK *255 LM00328
END OF CONDITIONAL *256 LM00329
UNSUCCESSFUL PRELOD LM00330
LM00331
SUM1(3) = SUM1A *257 LM00332
THROUGH LOOP14, FOR IC = 0,1,IC .G. 27 *258 LM00333
LOOP14 LINE(LC-IC) = SUM1(IC) *259 LM00334
BFWRIT.(N1,NA2,LINE(LC)...28, ERR4) *260 LM00335
PRINT COMMENT $SYSTEM PRELOAD UNSUCCESSFUL$ *261 LM00336
PRNTP.(LCM) *262 LM00337
PRNTP.(HPC) *263 LM00338
PRNTP.(DIFC) *264 LM00339
WHENEVER MFARAY .E. 0, TRANSFER TO MECK *265 LM00340
LM00341
PRINT MISSING FILES LM00342
LM00343
THROUGH LOOP15, FOR IC = 0,1,IC .G. 4 *266 LM00344
LOOP15 LINE(LC-IC) = SUM2(IC) *267 LM00345
BFWRIT.(N1,NA2,LINE(LC)...5,ERR4) *268 LM00346
PRINT COMMENT $MISSING FILES ARE$ *269 LM00347
LINE(LC) = 777777000003K *270 LM00348
LINE(LC-2) = BLANK *271 LM00349
THROUGH LOOP16, FOR IC = 1,1,IC .G. MFARAY *272 LM00350
LINE(LC-3) = MFARAY(IC) *273 LM00351
NASTY(0) = MFARAY(IC) *274 LM00352
PRNTP.(NASTY) *275 LM00353
LOOP16 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) *276 LM00354
MECK WHENEVER MEARAY .E. 0, TRANSFER TO MUCK *277 LM00355
LM00356
PRINT MISSING ENTRY POINTS LM00357
LM00358
THROUGH LOOP17, FOR IC = 0,1,IC .G. 5 *278 LM00359
LOOP17 LINE(LC-IC) = SUM3(IC) *279 LM00360
BFWRIT.(N1,NA2,LINE(LC)...6,ERR4) *280 LM00361
PRINT COMMENT $MISSING ENTRY POINTS ARE$ *281 LM00362
LINE(LC) = 777777000003K *282 LM00363
LINE(LC-2) = BLANK *283 LM00364
THROUGH LOOP18, FOR IC = 1,1,IC .G. MEARAY *284 LM00365
LINE(LC-3) = MEARAY(IC) *285 LM00366
NASTY(0) = MEARAY(IC) *286 LM00367
PRNTP.(NASTY) *287 LM00368
LOOP18 BFWRIT. (N1,NA2,LINE(LC)...4,ERR4) *288 LM00369
MUCK WHENEVER MULT .E. 0, TRANSFER TO END *289 LM00370
LM00371
PRINT DUPLICATED ENTRY POINTS LM00372
LM00373
THROUGH LOOP19, FOR IC = 0,1,IC .G. 6 *290 LM00374
LOOP19 LINE(LC-IC) = SUM4(IC) *291 LM00375
BFWRIT.(N1,NA2,LINE(LC)...7,ERR4) *292 LM00376
PRINT COMMENT $DUPLICATED ENTRY POINTS ARE$ *293 LM00377
LINE(LC) = 777777000003K *294 LM00378
LINE (LC-2) = BLANK *295 LM00379
THROUGH LOOP20, FOR IC = 1,1,IC .G. MULT *296 LM00380
LINE(LC-3) = MULT(IC) *297 LM00381
NASTY(0) = MULT(IC) *298 LM00382
PRNTP.(NASTY) *299 LM00383
LOOP20 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) *300 LM00384
TRANSFER TO END *301 LM00385
ERR4 PRNTER. *302 LM00386
END BFCLOS.(N1,NA2,END2) *303 LM00387
END2 CHNCOM.(0) *304 LM00388
END OF PROGRAM *305 LM00389
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 54012 TRANSFER VECTOR LENGTH 00024 PROGRAM BEGINS 51232
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
A 00110 A 1 ERR3 00043 4 LOOP11 00024 4 MASK1 25477 A 1 QBSS 27401 A 1
BLANK3 00114 A 1 ERR4 00044 4 LOOP13 00024 4 MASK2 25500 A 1 QCOMB 27402 A 1
BLANK 00115 A 1 ERRX 00045 4 LOOP14 00024 4 MASK3 25501 A 1 R2 00063 4
BL 00116 A 1 FENCE 25363 A 1 LOOP15 00024 4 MASK4 25502 A 1 READ1 00064 4
BUFF1 00777 A 1 FILEN 25364 1 LOOP16 00024 4 MEARAY 26633 A 1 READ2 00065 4
BUFF2 01660 A 1 FILNAM 00027 A 1 LOOP17 00024 4 MECK 00057 4 SKIP 00066 4
BUFF3 02541 A 1 HCORE 25365 1 LOOP18 00024 4 MESS1 26643 A 1 START 00067 4
DIFC 02552 A 1 HEAD 25401 A 1 LOOP19 00024 4 MESS2 26655 A 1 SUM1A 27403 A 1
DIM 02555 A 1 HPC 25410 A 1 LOOP1 00024 4 MFARAY 27022 A 1 SUM1 27437 A 1
DTV 02560 A 1 ICNT 25411 1 LOOP20 00024 4 MNAM 00060 4 SUM2 27444 A 1
DUPCK 00030 4 ICOMB 25412 A 1 LOOP2 00024 4 MODNAM 27023 1 SUM3 27452 A 1
END2 00031 4 IC 25413 1 LOOP3 00046 4 MUCK 00061 4 SUM4 27461 A 1
END 00032 4 ILIST 25414 A 1 LOOP4 00047 4 MULT 27334 A 1 SUMERY 00070 4
EOF1A 00033 4 JE1 25415 1 LOOP5 00050 4 N1 00027 1 TAG 27462 A 1
EOF1 00034 4 JE 25416 A 1 LOOP6 00024 4 N2 27335 A 1 TEMP 27463 1
EOF2 00035 4 JESAVE 25417 1 LOOP7 00024 4 NA2 00026 A 1 TITLE 27504 A 1
EOF3 00036 4 JT 25420 A 1 LPOINT 25476 A 1 NASTY 27337 A 1 TOP10 00071 4
EOFCT 02561 1 K 25421 1 LTOP10 00051 4 NLC 27340 1 TV1 43265 A 1
EPARAY 25362 A 1 LCM 25430 A 1 LTOP1 00052 4 NW 27341 1 TVARAY 51156 A 1
ER2A 00037 4 LCNT 25431 1 LTOP2 00053 4 PART2 00062 4 TVL 51157 1
ER2B 00040 4 LCOM 25432 A 1 LTOP3 00054 4 PL 27342 A 1 TVSW 51160 A 1
ERR1 00041 4 LC 25433 A 1 LTOP8 00055 4 PROG 27377 A 1 ZERO 51161 A 1
ERR2 00042 4 LINE 25475 A 1 LTOP9 00056 4 PROGSW 27400 A 1
0FUNCTION DICTIONARY
.03310 00000 0 .03311 00001 0 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1
BFWRIT 00005 1 BZEL 00006 1 CHNCOM 00007 1 COMARG 00010 1 DELETE 00011 1
DERBC 00012 1 EXIT 00013 1 FERRTN 00014 1 GETTM 00015 1 .PCOMT 00016 1
.SETUP 00017 1 OCABC 00020 1 PRNTER 00021 1 PRNTP 00022 1 WHOAMI 00023 1
0ABSOLUTE CONSTANTS
51227 -377777000003 51207 +000000000033 51225 -335757575757 51174 +000000000012 51173 +000000000011
51231 -377777000011 51172 +000000000010 51171 +000000000007 51170 +000000000006 51167 +000000000005
51215 +263143256060 51230 -377777000007 51176 +000000000014 51175 +000000000013 51202 +000000000021
51201 +000000000020 51200 +000000000017 51212 +000000575757 51226 -377777000000 51224 -266060606060
51213 +214343606060 51204 +000000000024 51205 +000000000030 51211 +000000000062 51166 +000000000004
51216 +377777777777 51217 -000000000000 51206 +000000000032 51203 +000000000022 51220 -000500000000
51210 +000000000034 51223 -206060606060 51177 +000000000016 51222 -116060606060 51221 -054643316263
51165 +000000000003 51164 +000000000002 51162 +000000000000 51163 +000000000001 51214 +233000000000
0STATEMENT DICTIONARY
00030 TXL -352336052324 00031 TXL -354005054003 00032 TXL -354003053777 00033 TXL -352020052015
00034 TXL -352015052011 00035 TXL -352045052043 00036 TXL -352010052004 00037 TXL -352064052060
00040 TXL -352067052064 00041 TXL -352047052046 00042 TXL -352060052057 00043 TXL -352074052073
00044 TXL -353777053776 00045 TXL -352057052055 00046 TXL -352276052275 00047 TXL -352426052425
00050 TXL -352427052426 00051 TXL -353102053077 00052 TXL -351602051570 00053 TXL -351701051677
00054 TXL -352147052135 00055 TXL -352607052602 00056 TXL -353007053002 00057 TXL -353554053550
00060 TXL -352120052115 00061 TXL -353666053662 00062 TXL -352112052101 00063 TXL -351402051374
00064 TXL -351336051327 00065 TXL -351374051365 00066 TXL -351774051765 00067 TXL -351327051307
00070 TXL -353255053252 00071 TXL -353065053060
0PROGRAM
NORMAL MODE IS INTEGER 001 LM00011
DIMENSION BUFF1(432),BUFF2(432),A(14),PROG(28),TVARAY(3000) 002 LM00012
DIMENSION EPARAY(9600,DIM),MFARAY(100),MEARAY(600),MULT(200) 003 LM00013
DIMENSION LINE(33),FILNAM(2),BUFF3(432),TV1(6000,DTV) 004 LM00014
EQUIVALENCE (FILNAM(0),N1),(FILNAM(1),NA2) 005 LM00015
V'S BL = 432 006 LM00016
51232 TSX +0 07400 4 00017 00116 +0 00000 0 00660
V'S BLANK3 = $ $,777777000003K 007 LM00017
00111 -3 77777 0 00003 00112 -2 06060 6 06060 00113 -2 06060 6 06060 00114 -2 06060 6 06060
V'S DIFC=$TOTAL LOCATIONS NOT USED $,0,$ DECIMAL$, 008 LM00018
1777777777777K 008 LM00019
02542 -3 77777 7 77777 02543 +2 14360 6 06060 02544 -2 02425 2 33144 02545 +0 00000 0 00000
02546 -2 06060 6 06060 02547 -2 36064 6 22524 02550 -0 64562 6 04546 02551 -0 34623 2 16331
02552 -2 34663 2 14360
V'S DIM = 2,17,16 009 LM00020
02553 +0 00000 0 00020 02554 +0 00000 0 00021 02555 +0 00000 0 00002
V'S DTV = 2,3,2 010 LM00021
02556 +0 00000 0 00002 02557 +0 00000 0 00003 02560 +0 00000 0 00002
V'S FENCE = 777777777777K 011 LM00022
25363 -3 77777 7 77777
V'S HEAD = 777777000013K,$0 NAME T.V. ORGIN LENTH 012 LM00023
1 COMMON CROSS REFERENCE$ 012 LM00024
25366 -0 52325 6 06060 25367 -1 12526 2 55125 25370 +2 35146 6 26260 25371 -2 06060 6 06060
25372 +2 34644 4 44645 25373 -0 32545 6 33060 25374 -0 65127 3 14560 25375 -2 06333 6 53360
25376 -2 04521 4 42560 25377 -2 06060 6 06060 25400 +0 06060 6 06060 25401 -3 77777 0 00013
V'S HPC = $HIGHEST PROGRAM LOCATION $,0,777777777777K 013 LM00025
25402 -3 77777 7 77777 25403 +0 00000 0 00000 25404 -2 06060 6 06060 25405 +2 32163 3 14645
25406 -1 12144 6 04346 25407 -2 36047 5 14627 25410 +3 03127 3 02562
V'S ICOMB = 0 014 LM00026
25412 +0 00000 0 00000
V'S ILIST = 0 015 LM00027
25414 +0 00000 0 00000
V'S JE = 0 016 LM00028
25416 +0 00000 0 00000
V'S JT = -50 017 LM00029
25420 -0 00000 0 00062
V'S LCOM = 77777K 018 LM00030
25432 +0 00000 0 77777
V'S LCM = $LOWEST COMMON LOCATION $,0,777777777777K 019 LM00031
25422 -3 77777 7 77777 25423 +0 00000 0 00000 25424 -2 06060 6 06060 25425 -2 33146 4 56060
25426 -0 56043 4 62321 25427 -2 02346 4 44446 25430 -0 34666 2 56263
V'S LC = 33 020 LM00032
25433 +0 00000 0 00041
V'S LPOINT = 62K 021 LM00033
25476 +0 00000 0 00062
V'S MASK1 = 7777K8 022 LM00034
25477 -3 77700 0 00000
V'S MASK2 = 000077000000K 023 LM00035
25500 +0 00077 0 00000
V'S MASK3 = 000000777777K 024 LM00036
25501 +0 00000 7 77777
V'S MASK4 = 577777777777K 025 LM00037
25502 -1 77777 7 77777
V'S MEARAY(0) = 0 026 LM00038
26633 +0 00000 0 00000
V'S MESS1 = $EOF IN PROGRAM CARD INFORMATION, FILE SKIPPED$ 027 LM00039
26634 -0 72524 6 06060 26635 +2 56062 4 23147 26636 -0 57360 2 63143 26637 -1 14421 6 33146
26640 +2 46031 4 52646 26641 +2 14460 2 32151 26642 -2 04751 4 62751 26643 +2 54626 6 03145
V'S MESS2 = $COMMAND FORM IS 'PRELOD NAME1 -'NOLIST'- -'COMB' 028 LM00040
1-'$,777777777777K 028 LM00041
26644 -3 77777 7 77777 26645 -0 01460 6 06060 26646 +1 42346 4 42214 26647 -2 26314 4 06040
26650 -0 01445 4 64331 26651 -0 52144 2 50160 26652 -1 12543 4 62460 26653 -2 03162 6 01447
26654 +2 46026 4 65144 26655 +2 34644 4 42145
V'S MFARAY(0) = 0 029 LM00042
27022 +0 00000 0 00000
V'S MULT(0) = 0 030 LM00043
27334 +0 00000 0 00000
V'S NASTY = 0,777777777777K 031 LM00044
27336 -3 77777 7 77777 27337 +0 00000 0 00000
V'S NA2 = $STOMAP$ 032 LM00045
00026 -2 26346 4 42147
V'S N2 = $CTSSLD$ 033 LM00046
27335 +2 36362 6 24324
V'S QBSS = $ BSS$ 034 LM00047
27401 -2 06060 2 26262
V'S QCOMB = $ COMB$ 035 LM00048
27402 -2 06023 4 64422
V'S PROGSW = 0 036 LM00049
27400 +0 00000 0 00000
V'S SUM1 = 777777000004K,$0 PRELOAD SUCCESSFUL$, 037 LM00050
2777777000006K,$ LOWEST COMMON LOCATION $,0, 037 LM00051
3777777000006K,$ HIGHEST PROGRAM LOCATION$,0, 037 LM00052
4777777000010K,$ TOTAL NOT USED $,0,$ DECIMAL$ 037 LM00053
27404 +2 14360 6 06060 27405 -2 02425 2 33144 27406 +0 00000 0 00000 27407 -2 06060 6 06060
27410 +2 52460 6 06060 27411 -0 54663 6 06462 27412 -2 34663 2 14360 27413 -2 06060 6 06060
27414 -3 77777 0 00010 27415 +0 00000 0 00000 27416 +2 32163 3 14645 27417 -1 12144 6 04346
27420 -2 36047 5 14627 27421 +3 03127 3 02562 27422 -2 06060 6 06060 27423 -3 77777 0 00006
27424 +0 00000 0 00000 27425 -2 33146 4 56060 27426 -0 56043 4 62321 27427 -2 02346 4 44446
27430 -0 34666 2 56263 27431 -2 06060 6 06060 27432 -3 77777 0 00006 27433 +2 56262 2 66443
27434 -2 06062 6 42323 27435 +2 54346 2 12460 27436 +0 06060 6 04751 27437 -3 77777 0 00004
V'S SUM1A = $UNSUCC$ 038 LM00054
27403 -2 44562 6 42323
V'S SUM2 = 777777000004K,$ MISSING FILES ARE$ 039 LM00055
27440 -2 26021 5 12560 27441 +2 76026 3 14325 27442 -0 43162 6 23145 27443 -2 06060 6 06060
27444 -3 77777 0 00004
V'S SUM3 = 777777000005K,$ MISSING ENTRY POINTS ARE$ 040 LM00056
27445 -2 36260 2 15125 27446 -3 06047 4 63145 27447 +2 76025 4 56351 27450 -0 43162 6 23145
27451 -2 06060 6 06060 27452 -3 77777 0 00005
V'S SUM4 = 777777000006K,$ DUPLICATED ENTRY POINTS ARE$ 041 LM00057
27453 +2 15125 6 06060 27454 -0 63145 6 36260 27455 -0 56351 7 06047 27456 +2 16325 2 46025
27457 +2 46447 4 33123 27460 -2 06060 6 06060 27461 -3 77777 0 00006
V'S TITLE = 777777000020K,$ STOMAP FOR PRELOD OF $ 042 LM00058
1 ,0,$ SYSTEM $,0,$ $,0,$ $,0,$ $,0,0 042 LM00059
27464 +0 00000 0 00000 27465 +0 00000 0 00000 27466 -2 06060 6 06060 27467 +0 00000 0 00000
27470 -2 06060 6 06060 27471 +0 00000 0 00000 27472 -2 06060 6 06060 27473 -2 06060 6 06060
27474 +0 00000 0 00000 27475 -0 46060 6 06060 27476 -2 06270 6 26325 27477 +0 00000 0 00000
27500 -0 62460 4 62660 27501 -1 16047 5 12543 27502 -0 42147 6 02646 27503 -2 06060 6 26346
27504 -3 77777 0 00020
V'S TVSW = 0 043 LM00060
51160 +0 00000 0 00000
V'S PL = 0 044 LM00061
27342 +0 00000 0 00000
V'S TAG = $******$ 045 LM00062
27462 -1 45454 5 45454
V'S BLANK = $ $ 046 LM00063
00115 -2 06060 6 06060
V'S ZERO = 0 047 LM00064
51161 +0 00000 0 00000
FERRTN.(ERR1) 048 LM00065
51233 TSX +0 07400 4 00014 51234 TXH +3 00000 0 00041
FERRTN.(ERR2) 049 LM00066
51235 TSX +0 07400 4 00014 51236 TXH +3 00000 0 00042
FERRTN.(ERR3) 050 LM00067
51237 TSX +0 07400 4 00014 51240 TXH +3 00000 0 00043
FERRTN.(ERR4) 051 LM00068
51241 TSX +0 07400 4 00014 51242 TXH +3 00000 0 00044
W'R COMARG.(1,N1).E.FENCE 052 LM00072
51243 TSX +0 07400 4 00010 51244 TXH +3 00000 0 51163 51245 TXH +3 00000 0 00027 51246 SUB +0 40200 0 25363
51247 TNZ -0 10000 0 51255
PRNTP.(MESS2) 053 LM00073
51250 TSX +0 07400 4 00022 51251 TXH +3 00000 0 26655
CHNCOM.(0) 054 LM00074
51252 TSX +0 07400 4 00007 51253 TXH +3 00000 0 51162
O'R COMARG.(2) .E. FENCE 055 LM00075
51254 TRA +0 02000 0 51275 51255 TSX +0 07400 4 00010 51256 TXH +3 00000 0 51164 51257 SUB +0 40200 0 25363
51260 TNZ -0 10000 0 51263
T'O START 056 LM00076
51261 TRA +0 02000 0 00067
O'R COMARG.(2).E.QCOMB .OR. COMARG.(3) .E. QCOMB 057 LM00077
51262 TRA +0 02000 0 51275 51263 TSX +0 07400 4 00010 51264 TXH +3 00000 0 51165 51265 SUB +0 40200 0 27402
51266 TZE +0 10000 0 51273 51267 TSX +0 07400 4 00010 51270 TXH +3 00000 0 51164 51271 SUB +0 40200 0 27402
51272 TNZ -0 10000 0 51275
ICOMB = 1 058 LM00078
51273 CLA +0 50000 0 51163 51274 STO +0 60100 0 25412
E'L 059 LM00079
W'R COMARG.(3) .E. $NOLIST$ .OR. COMARG.(2) .E. $NOLIST$, 060 LM00080
1 ILIST = 1 060 LM00081
51275 TSX +0 07400 4 00010 51276 TXH +3 00000 0 51164 51277 SUB +0 40200 0 51221 51300 TZE +0 10000 0 51305
51301 TSX +0 07400 4 00010 51302 TXH +3 00000 0 51165 51303 SUB +0 40200 0 51221 51304 TNZ -0 10000 0 51307
51305 CLA +0 50000 0 51163 51306 STO +0 60100 0 25414
START BFOPEN.($R$,N1,N2,BUFF1(BL),-0,-0,ERR1) 061 LM00083
51307 CLS +0 50200 0 51162 51310 STO +0 60100 0 54006 51311 CLS +0 50200 0 51162 51312 STO +0 60100 0 54007
51313 CLA +0 50000 0 00116 51314 SUB +0 40200 0 51315 51315 TXH +3 00000 0 00777 51316 STA +0 62100 0 51323
51317 TSX +0 07400 4 00003 51320 TXH +3 00000 0 51222 51321 TXH +3 00000 0 00027 51322 TXH +3 00000 0 27335
51323 TXH +3 00000 0 00000 51324 TXH +3 00000 0 54007 51325 TXH +3 00000 0 54006 51326 TXH +3 00000 0 00041
READ1 BFREAD.(N1,N2,A(14)...14,EOF1,EOFCT,ERR1) 062 LM00087
51327 TSX +0 07400 4 00004 51330 TXH +3 00000 0 00027 51331 TXH +3 00000 0 27335 51332 TIX +2 51177 0 00072
51333 TXH +3 00000 0 00034 51334 TXH +3 00000 0 02561 51335 TXH +3 00000 0 00041
W'R (A(14) .E. TAG) .OR. (A(14) .E. $ $), T'O READ1 063 LM00088
51336 CLA +0 50000 0 00072 51337 SUB +0 40200 0 51223 51340 TZE +0 10000 0 51344 51341 CLA +0 50000 0 00072
51342 SUB +0 40200 0 27462 51343 TNZ -0 10000 0 51345 51344 TRA +0 02000 0 00064
BFOPEN.($R$,A(14),QBSS,BUFF2(BL),-0,-0,ERR2) 064 LM00089
51345 CLS +0 50200 0 51162 51346 STO +0 60100 0 54007 51347 CLS +0 50200 0 51162 51350 STO +0 60100 0 54006
51351 CLA +0 50000 0 00116 51352 SUB +0 40200 0 51353 51353 TXH +3 00000 0 01660 51354 STA +0 62100 0 51361
51355 TSX +0 07400 4 00003 51356 TXH +3 00000 0 51222 51357 TXH +3 00000 0 00072 51360 TXH +3 00000 0 27401
51361 TXH +3 00000 0 00000 51362 TXH +3 00000 0 54006 51363 TXH +3 00000 0 54007 51364 TXH +3 00000 0 00042
READ2 BFREAD.(A(14),QBSS,PROG(28)...28,EOF2,EOFCT,ERR2) 065 LM00093
51365 TSX +0 07400 4 00004 51366 TXH +3 00000 0 00072 51367 TXH +3 00000 0 27401 51370 TIX +2 51210 0 27343
51371 TXH +3 00000 0 00035 51372 TXH +3 00000 0 02561 51373 TXH +3 00000 0 00042
R2 W'R (PROG(28) .A. MASK1) .E. 4005K8 066 LM00094
51374 CAL -0 50000 0 27343 51375 ANA -0 32000 0 25477 51376 SLW +0 60200 0 54007 51377 CLA +0 50000 0 54007
51400 SUB +0 40200 0 51220 51401 TNZ -0 10000 0 51652
NW = (PROG(28) .A. MASK2) .RS. 18 067 LM00095
51402 CAL -0 50000 0 27343 51403 ANA -0 32000 0 25500 51404 SLW +0 60200 0 54007 51405 CAL -0 50000 0 51203
51406 STA +0 62100 0 51410 51407 CAL -0 50000 0 54007 51410 LGR -0 76500 0 00000 51411 SLW +0 60200 0 27341
K = 26 068 LM00096
51412 CLA +0 50000 0 51206 51413 STO +0 60100 0 25421
W'R PROGSW .E. 1, T'O LTOP1 069 LM00097
51414 CLA +0 50000 0 27400 51415 SUB +0 40200 0 51163 51416 TNZ -0 10000 0 51420 51417 TRA +0 02000 0 00052
NW = NW-2 070 LM00098
51420 CLA +0 50000 0 27341 51421 SUB +0 40200 0 51164 51422 STO +0 60100 0 27341
K = K-2 071 LM00099
51423 CLA +0 50000 0 25421 51424 SUB +0 40200 0 51164 51425 STO +0 60100 0 25421
PROGSW = 1 072 LM00100
51426 CLA +0 50000 0 51163 51427 STO +0 60100 0 27400
LPOINT = LPOINT + PL 073 LM00101
51430 CLA +0 50000 0 25476 51431 ADD +0 40000 0 27342 51432 STO +0 60100 0 25476
TEMP = (PROG(25) .A. 4K11) .RS. 3 074 LM00102
51433 CAL -0 50000 0 27346 51434 ANA -0 32000 0 51217 51435 SLW +0 60200 0 54007 51436 CAL -0 50000 0 51165
51437 STA +0 62100 0 51441 51440 CAL -0 50000 0 54007 51441 LGR -0 76500 0 00000 51442 SLW +0 60200 0 27463
W'R TEMP .NE. 0, LPOINT = 2*((LPOINT+1)/2) 075 LM00103
51443 CLA +0 50000 0 27463 51444 SUB +0 40200 0 51162 51445 TZE +0 10000 0 51454 51446 CLA +0 50000 0 25476
51447 ADD +0 40000 0 51163 51450 LRS +0 76500 0 00043 51451 DVP +0 22100 0 51164 51452 MPY +0 20000 0 51164
51453 STQ -0 60000 0 25476
PL = PROG(26).A.MASK3 076 LM00107
51454 CAL -0 50000 0 27345 51455 ANA -0 32000 0 25501 51456 SLW +0 60200 0 27342
TVL = PROG(26) .RS. 18 077 LM00108
51457 CAL -0 50000 0 51203 51460 STA +0 62100 0 51462 51461 CAL -0 50000 0 27345 51462 LGR -0 76500 0 00000
51463 SLW +0 60200 0 51157
EPARAY(JE,3) = PROG(25) .A. 377777777777K 078 LM00109
51464 CAL -0 50000 0 27346 51465 ANA -0 32000 0 51216 51466 SLW +0 60200 0 54007 51467 LDQ +0 56000 0 51165
51470 CLA +0 50000 0 25416 51471 TSX +0 07400 4 00001 51472 TXH +3 02555 0 25362 51473 PAX +0 73400 1 00000
51474 CLA +0 50000 0 54007 51475 STO +0 60100 1 25362
W'R (EPARAY(JE,3).NE.0).AND.(EPARAY(JE,3).L.LCOM), 079 LM00110
1LCOM = EPARAY(JE,3) 079 LM00111
51476 LDQ +0 56000 0 51165 51477 CLA +0 50000 0 25416 51500 TSX +0 07400 4 00001 51501 TXH +3 02555 0 25362
51502 PAX +0 73400 1 00000 51503 CLA +0 50000 1 25362 51504 SUB +0 40200 0 25432 51505 TZE +0 10000 0 51526
51506 TPL +0 12000 0 51526 51507 LDQ +0 56000 0 51165 51510 CLA +0 50000 0 25416 51511 TSX +0 07400 4 00001
51512 TXH +3 02555 0 25362 51513 PAX +0 73400 1 00000 51514 CLA +0 50000 1 25362 51515 SUB +0 40200 0 51162
51516 TZE +0 10000 0 51526 51517 LDQ +0 56000 0 51165 51520 CLA +0 50000 0 25416 51521 TSX +0 07400 4 00001
51522 TXH +3 02555 0 25362 51523 PAX +0 73400 2 00000 51524 CLA +0 50000 2 25362 51525 STO +0 60100 0 25432
EPARAY(JE,0) = A(14) 080 LM00112
51526 LDQ +0 56000 0 51162 51527 CLA +0 50000 0 25416 51530 TSX +0 07400 4 00001 51531 TXH +3 02555 0 25362
51532 PAX +0 73400 1 00000 51533 CLA +0 50000 0 00072 51534 STO +0 60100 1 25362
EPARAY(JE,1) = OCABC.(LPOINT) 081 LM00113
51535 TSX +0 07400 4 00020 51536 TXH +3 00000 0 25476 51537 STO +0 60100 0 54007 51540 LDQ +0 56000 0 51163
51541 CLA +0 50000 0 25416 51542 TSX +0 07400 4 00001 51543 TXH +3 02555 0 25362 51544 PAX +0 73400 1 00000
51545 CLA +0 50000 0 54007 51546 STO +0 60100 1 25362
EPARAY(JE,2) = PL 082 LM00114
51547 LDQ +0 56000 0 51164 51550 CLA +0 50000 0 25416 51551 TSX +0 07400 4 00001 51552 TXH +3 02555 0 25362
51553 PAX +0 73400 1 00000 51554 CLA +0 50000 0 27342 51555 STO +0 60100 1 25362
EPARAY(JE,4) = TAG 083 LM00115
51556 LDQ +0 56000 0 51166 51557 CLA +0 50000 0 25416 51560 TSX +0 07400 4 00001 51561 TXH +3 02555 0 25362
51562 PAX +0 73400 1 00000 51563 CLA +0 50000 0 27462 51564 STO +0 60100 1 25362
JE =JE+1 084 LM00116
51565 CLA +0 50000 0 25416 51566 ADD +0 40000 0 51163 51567 STO +0 60100 0 25416
LTOP1 T'H LOOP1, FOR ICNT = NW,-2,ICNT.LE.0 085 LM00117
51570 CLA +0 50000 0 27341 51571 STO +0 60100 0 25411 51572 TRA +0 02000 0 51576 51573 CLS +0 50200 0 51164
51574 ADD +0 40000 0 25411 51575 STO +0 60100 0 25411 51576 CLA +0 50000 0 25411 51577 SUB +0 40200 0 51162
51600 TZE +0 10000 0 51651 51601 TMI -0 12000 0 51651
EPARAY(JE,0) = PROG(K) 086 LM00118
51602 LDQ +0 56000 0 51162 51603 CLA +0 50000 0 25416 51604 TSX +0 07400 4 00001 51605 TXH +3 02555 0 25362
51606 PAX +0 73400 1 00000 51607 LXA +0 53400 2 25421 51610 CLA +0 50000 2 27377 51611 STO +0 60100 1 25362
EPARAY(JE,1) = OCABC.(.ABS.(PROG(K-1)) + LPOINT) 087 LM00119
51612 CLA +0 50000 0 25421 51613 SUB +0 40200 0 51163 51614 PAX +0 73400 2 00000 51615 CLA +0 50000 2 27377
51616 SSP +0 76000 0 00003 51617 ADD +0 40000 0 25476 51620 STO +0 60100 0 54007 51621 TSX +0 07400 4 00020
51622 TXH +3 00000 0 54007 51623 STO +0 60100 0 54007 51624 LDQ +0 56000 0 51163 51625 CLA +0 50000 0 25416
51626 TSX +0 07400 4 00001 51627 TXH +3 02555 0 25362 51630 PAX +0 73400 1 00000 51631 CLA +0 50000 0 54007
51632 STO +0 60100 1 25362
EPARAY(JE,2) = 3 088 LM00120
51633 LDQ +0 56000 0 51164 51634 CLA +0 50000 0 25416 51635 TSX +0 07400 4 00001 51636 TXH +3 02555 0 25362
51637 PAX +0 73400 1 00000 51640 CLA +0 50000 0 51165 51641 STO +0 60100 1 25362
K = K-2 089 LM00121
51642 CLA +0 50000 0 25421 51643 SUB +0 40200 0 51164 51644 STO +0 60100 0 25421
LOOP1 JE = JE + 1 090 LM00122
51645 CLA +0 50000 0 25416 51646 ADD +0 40000 0 51163 51647 STO +0 60100 0 25416 51650 TRA +0 02000 0 51573
T'O READ2 091 LM00123
51651 TRA +0 02000 0 00065
E'L 092 LM00124
W'R TVSW .E. 1, T'O LTOP2 093 LM00128
51652 CLA +0 50000 0 51160 51653 SUB +0 40200 0 51163 51654 TNZ -0 10000 0 51656 51655 TRA +0 02000 0 00053
TVSW =1 094 LM00129
51656 CLA +0 50000 0 51163 51657 STO +0 60100 0 51160
JT = (JT/50 + 1) * 50 095 LM00130
51660 LDQ +0 56000 0 25420 51661 PXD -0 75400 0 00000 51662 LLS +0 76300 0 00000 51663 DVP +0 22100 0 51211
51664 XCA +0 13100 0 00000 51665 ADD +0 40000 0 51163 51666 XCA +0 13100 0 00000 51667 MPY +0 20000 0 51211
51670 STQ -0 60000 0 25420
TVARAY(JT) = A(14) 096 LM00131
51671 LXA +0 53400 1 25420 51672 CLA +0 50000 0 00072 51673 STO +0 60100 1 51156
JT = JT + 1 097 LM00132
51674 CLA +0 50000 0 25420 51675 ADD +0 40000 0 51163 51676 STO +0 60100 0 25420
LTOP2 K = 24 098 LM00133
51677 CLA +0 50000 0 51205 51700 STO +0 60100 0 25421
IC = 20 099 LM00134
51701 CLA +0 50000 0 51204 51702 STO +0 60100 0 25413
W'R TVL.L.20, IC = TVL 100 LM00135
51703 CLA +0 50000 0 51157 51704 SUB +0 40200 0 51204 51705 TZE +0 10000 0 51711 51706 TPL +0 12000 0 51711
51707 CLA +0 50000 0 51157 51710 STO +0 60100 0 25413
T'H LOOP2, FOR ICNT = IC, -1, ICNT .E. 0 101 LM00136
51711 CLA +0 50000 0 25413 51712 STO +0 60100 0 25411 51713 TRA +0 02000 0 51717 51714 CLS +0 50200 0 51163
51715 ADD +0 40000 0 25411 51716 STO +0 60100 0 25411 51717 CLA +0 50000 0 25411 51720 SUB +0 40200 0 51162
51721 TZE +0 10000 0 51735
TVARAY(JT) = PROG(K) 102 LM00137
51722 LXA +0 53400 1 25420 51723 LXA +0 53400 2 25421 51724 CLA +0 50000 2 27377 51725 STO +0 60100 1 51156
K = K - 1 103 LM00138
51726 CLA +0 50000 0 25421 51727 SUB +0 40200 0 51163 51730 STO +0 60100 0 25421
LOOP2 JT = JT + 1 104 LM00139
51731 CLA +0 50000 0 25420 51732 ADD +0 40000 0 51163 51733 STO +0 60100 0 25420 51734 TRA +0 02000 0 51714
W'R TVL .G. 20 105 LM00140
51735 CLA +0 50000 0 51157 51736 SUB +0 40200 0 51204 51737 TZE +0 10000 0 51746 51740 TMI -0 12000 0 51746
TVL = TVL - 20 106 LM00141
51741 CLA +0 50000 0 51157 51742 SUB +0 40200 0 51204 51743 STO +0 60100 0 51157
T'O READ2 107 LM00142
51744 TRA +0 02000 0 00065
O'E 108 LM00143
51745 TRA +0 02000 0 51753
TVARAY(JT) = FENCE 109 LM00144
51746 LXA +0 53400 1 25420 51747 CLA +0 50000 0 25363 51750 STO +0 60100 1 51156
TVSW = 0 110 LM00145
51751 CLA +0 50000 0 51162 51752 STO +0 60100 0 51160
E'L 111 LM00146
PROGSW = 0 112 LM00147
51753 CLA +0 50000 0 51162 51754 STO +0 60100 0 27400
W'R ICOMB .E. 0 113 LM00148
51755 CLA +0 50000 0 25412 51756 SUB +0 40200 0 51162 51757 TNZ -0 10000 0 51765
BFCLOS.(A(14),QBSS,READ1) 114 LM00149
51760 TSX +0 07400 4 00002 51761 TXH +3 00000 0 00072 51762 TXH +3 00000 0 27401 51763 TXH +3 00000 0 00064
T'O READ1 115 LM00150
51764 TRA +0 02000 0 00064
E'L 116 LM00151
SKIP BFREAD.(A(14),QBSS,PROG(28)...28,EOF3,EOFCT,ERR3) 117 LM00155
51765 TSX +0 07400 4 00004 51766 TXH +3 00000 0 00072 51767 TXH +3 00000 0 27401 51770 TIX +2 51210 0 27343
51771 TXH +3 00000 0 00036 51772 TXH +3 00000 0 02561 51773 TXH +3 00000 0 00043
W'R PROG(28) .A. MASK1 .E. 4005K8, T'O R2 118 LM00156
51774 CAL -0 50000 0 27343 51775 ANA -0 32000 0 25477 51776 SLW +0 60200 0 54007 51777 CLA +0 50000 0 54007
52000 SUB +0 40200 0 51220 52001 TNZ -0 10000 0 52003 52002 TRA +0 02000 0 00063
T'O SKIP 119 LM00157
52003 TRA +0 02000 0 00066
EOF3 BFCLOS.(A(14),QBSS,READ1) 120 LM00158
52004 TSX +0 07400 4 00002 52005 TXH +3 00000 0 00072 52006 TXH +3 00000 0 27401 52007 TXH +3 00000 0 00064
T'O READ1 121 LM00159
52010 TRA +0 02000 0 00064
EOF1 BFCLOS.(N1,N2,EOF1A) 122 LM00164
52011 TSX +0 07400 4 00002 52012 TXH +3 00000 0 00027 52013 TXH +3 00000 0 27335 52014 TXH +3 00000 0 00033
EOF1A HCORE = LPOINT + PL 123 LM00165
52015 CLA +0 50000 0 25476 52016 ADD +0 40000 0 27342 52017 STO +0 60100 0 25365
JESAVE = JE 124 LM00166
52020 CLA +0 50000 0 25416 52021 STO +0 60100 0 25417
W'R JT .L. 0 125 LM00167
52022 CLA +0 50000 0 25420 52023 SUB +0 40200 0 51162 52024 TZE +0 10000 0 52033 52025 TPL +0 12000 0 52033
TVARAY(1) = FENCE 126 LM00168
52026 CLA +0 50000 0 25363 52027 STO +0 60100 0 51155
TVARAY(2) = FENCE 127 LM00169
52030 CLA +0 50000 0 25363 52031 STO +0 60100 0 51154
T'O PART2 128 LM00170
52032 TRA +0 02000 0 00062
E'L 129 LM00171
TVARAY(JT+1) = FENCE 130 LM00172
52033 CLA +0 50000 0 25420 52034 ADD +0 40000 0 51163 52035 PAX +0 73400 1 00000 52036 CLA +0 50000 0 25363
52037 STO +0 60100 1 51156
JT = - 50 131 LM00173
52040 CLS +0 50200 0 51211 52041 STO +0 60100 0 25420
T'O PART2 132 LM00174
52042 TRA +0 02000 0 00062
EOF2 PRNTP.(MESS1) 133 LM00178
52043 TSX +0 07400 4 00022 52044 TXH +3 00000 0 26643
T'O ER2A 134 LM00179
52045 TRA +0 02000 0 00037
ERR1 PRNTER. 135 LM00180
52046 TSX +0 07400 4 00021
BFCLOS.($ALL$,-0,ERRX) 136 LM00181
52047 CLS +0 50200 0 51162 52050 STO +0 60100 0 54007 52051 TSX +0 07400 4 00002 52052 TXH +3 00000 0 51213
52053 TXH +3 00000 0 54007 52054 TXH +3 00000 0 00045
ERRX CHNCOM.(0) 137 LM00182
52055 TSX +0 07400 4 00007 52056 TXH +3 00000 0 51162
ERR2 PRNTER. 138 LM00183
52057 TSX +0 07400 4 00021
ER2A BFCLOS.(A(14),QBSS,ER2B) 139 LM00184
52060 TSX +0 07400 4 00002 52061 TXH +3 00000 0 00072 52062 TXH +3 00000 0 27401 52063 TXH +3 00000 0 00040
ER2B MFARAY = MFARAY + 1 140 LM00185
52064 CLA +0 50000 0 27022 52065 ADD +0 40000 0 51163 52066 STO +0 60100 0 27022
MFARAY(MFARAY) = A(14) 141 LM00186
52067 LXA +0 53400 1 27022 52070 CLA +0 50000 0 00072 52071 STO +0 60100 1 27022
T'O READ1 142 LM00187
52072 TRA +0 02000 0 00064
ERR3 PRNTER. 143 LM00188
52073 TSX +0 07400 4 00021
BFCLOS. (A(14),QBSS,READ1) 144 LM00189
52074 TSX +0 07400 4 00002 52075 TXH +3 00000 0 00072 52076 TXH +3 00000 0 27401 52077 TXH +3 00000 0 00064
T'O READ1 145 LM00190
52100 TRA +0 02000 0 00064
PART2 JT = (JT/50 + 1)*50 146 LM00197
52101 LDQ +0 56000 0 25420 52102 PXD -0 75400 0 00000 52103 LLS +0 76300 0 00000 52104 DVP +0 22100 0 51211
52105 XCA +0 13100 0 00000 52106 ADD +0 40000 0 51163 52107 XCA +0 13100 0 00000 52110 MPY +0 20000 0 51211
52111 STQ -0 60000 0 25420
MODNAM = TVARAY(JT) 147 LM00198
52112 LXA +0 53400 2 25420 52113 CLA +0 50000 2 51156 52114 STO +0 60100 0 27023
MNAM JT = JT +1 148 LM00199
52115 CLA +0 50000 0 25420 52116 ADD +0 40000 0 51163 52117 STO +0 60100 0 25420
W'R TVARAY(JT) .NE. FENCE, T'O LTOP3 149 LM00200
52120 LXA +0 53400 1 25420 52121 CLA +0 50000 1 51156 52122 SUB +0 40200 0 25363 52123 TZE +0 10000 0 52125
52124 TRA +0 02000 0 00054
W'R TVARAY(JT+1) .E. FENCE, T'O DUPCK 150 LM00201
52125 CLA +0 50000 0 25420 52126 ADD +0 40000 0 51163 52127 PAX +0 73400 1 00000 52130 CLA +0 50000 1 51156
52131 SUB +0 40200 0 25363 52132 TNZ -0 10000 0 52134 52133 TRA +0 02000 0 00030
T'O PART2 151 LM00202
52134 TRA +0 02000 0 00062
LTOP3 T'H LOOP3, FOR JE=1,1, JE.GE.JESAVE 152 LM00203
52135 CLA +0 50000 0 51163 52136 STO +0 60100 0 25416 52137 TRA +0 02000 0 52143 52140 CLA +0 50000 0 25416
52141 ADD +0 40000 0 51163 52142 STO +0 60100 0 25416 52143 CLA +0 50000 0 25416 52144 SUB +0 40200 0 25417
52145 TZE +0 10000 0 52276 52146 TPL +0 12000 0 52276
W'R EPARAY(JE,4) .E. TAG 153 LM00204
52147 LDQ +0 56000 0 51166 52150 CLA +0 50000 0 25416 52151 TSX +0 07400 4 00001 52152 TXH +3 02555 0 25362
52153 PAX +0 73400 1 00000 52154 CLA +0 50000 1 25362 52155 SUB +0 40200 0 27462 52156 TNZ -0 10000 0 52167
FILEN = EPARAY(JE,0) 154 LM00205
52157 LDQ +0 56000 0 51162 52160 CLA +0 50000 0 25416 52161 TSX +0 07400 4 00001 52162 TXH +3 02555 0 25362
52163 PAX +0 73400 2 00000 52164 CLA +0 50000 2 25362 52165 STO +0 60100 0 25364
T'O LOOP3 155 LM00206
52166 TRA +0 02000 0 00046
E'L 156 LM00207
W'R TVARAY(JT) .NE. EPARAY(JE,0), T'O LOOP3 157 LM00208
52167 LDQ +0 56000 0 51162 52170 CLA +0 50000 0 25416 52171 TSX +0 07400 4 00001 52172 TXH +3 02555 0 25362
52173 LXA +0 53400 1 25420 52174 PAX +0 73400 2 00000 52175 CLA +0 50000 1 51156 52176 SUB +0 40200 2 25362
52177 TZE +0 10000 0 52201 52200 TRA +0 02000 0 00046
TV1(JT,0) = FILEN 158 LM00209
52201 LDQ +0 56000 0 51162 52202 CLA +0 50000 0 25420 52203 TSX +0 07400 4 00001 52204 TXH +3 02560 0 43265
52205 PAX +0 73400 1 00000 52206 CLA +0 50000 0 25364 52207 STO +0 60100 1 43265
TV1(JT,1) = EPARAY(JE,1) 159 LM00210
52210 LDQ +0 56000 0 51163 52211 CLA +0 50000 0 25416 52212 TSX +0 07400 4 00001 52213 TXH +3 02555 0 25362
52214 STO +0 60100 0 54007 52215 LDQ +0 56000 0 51163 52216 CLA +0 50000 0 25420 52217 TSX +0 07400 4 00001
52220 TXH +3 02560 0 43265 52221 PAX +0 73400 1 00000 52222 LXA +0 53400 2 54007 52223 CLA +0 50000 2 25362
52224 STO +0 60100 1 43265
W'R EPARAY(JE,2) .G. 14, T'O MNAM 160 LM00211
52225 LDQ +0 56000 0 51164 52226 CLA +0 50000 0 25416 52227 TSX +0 07400 4 00001 52230 TXH +3 02555 0 25362
52231 PAX +0 73400 1 00000 52232 CLA +0 50000 1 25362 52233 SUB +0 40200 0 51177 52234 TZE +0 10000 0 52237
52235 TMI -0 12000 0 52237 52236 TRA +0 02000 0 00060
EPARAY(JE,EPARAY(JE,2)) = MODNAM 161 LM00212
52237 LDQ +0 56000 0 51164 52240 CLA +0 50000 0 25416 52241 TSX +0 07400 4 00001 52242 TXH +3 02555 0 25362
52243 SUB +0 40200 0 52244 52244 TXH +3 00000 0 25362 52245 STA +0 62100 0 52246 52246 LDQ +0 56000 0 00000
52247 CLA +0 50000 0 25416 52250 TSX +0 07400 4 00000 52251 TXH +3 02555 0 25362 52252 PAX +0 73400 1 00000
52253 CLA +0 50000 0 27023 52254 STO +0 60100 1 25362
EPARAY(JE,2) = EPARAY(JE,2) + 1 162 LM00213
52255 LDQ +0 56000 0 51164 52256 CLA +0 50000 0 25416 52257 TSX +0 07400 4 00001 52260 TXH +3 02555 0 25362
52261 PAX +0 73400 1 00000 52262 CLA +0 50000 1 25362 52263 ADD +0 40000 0 51163 52264 STO +0 60100 0 54007
52265 LDQ +0 56000 0 51164 52266 CLA +0 50000 0 25416 52267 TSX +0 07400 4 00001 52270 TXH +3 02555 0 25362
52271 PAX +0 73400 1 00000 52272 CLA +0 50000 0 54007 52273 STO +0 60100 1 25362
T'O MNAM 163 LM00214
52274 TRA +0 02000 0 00060
LOOP3 CONTINUE 164 LM00215
52275 TRA +0 02000 0 52140
MEARAY = MEARAY + 1 165 LM00216
52276 CLA +0 50000 0 26633 52277 ADD +0 40000 0 51163 52300 STO +0 60100 0 26633
MEARAY(MEARAY) = TVARAY(JT) 166 LM00217
52301 LXA +0 53400 1 26633 52302 LXA +0 53400 2 25420 52303 CLA +0 50000 2 51156 52304 STO +0 60100 1 26633
TV1(JT,0) = BLANK 167 LM00218
52305 LDQ +0 56000 0 51162 52306 CLA +0 50000 0 25420 52307 TSX +0 07400 4 00001 52310 TXH +3 02560 0 43265
52311 PAX +0 73400 1 00000 52312 CLA +0 50000 0 00115 52313 STO +0 60100 1 43265
TV1(JT,1) = BLANK 168 LM00219
52314 LDQ +0 56000 0 51163 52315 CLA +0 50000 0 25420 52316 TSX +0 07400 4 00001 52317 TXH +3 02560 0 43265
52320 PAX +0 73400 1 00000 52321 CLA +0 50000 0 00115 52322 STO +0 60100 1 43265
T'O MNAM 169 LM00220
52323 TRA +0 02000 0 00060
DUPCK T'H LOOP5, FOR JE1 = 1,1,JE1.GE.JESAVE 170 LM00224
52324 CLA +0 50000 0 51163 52325 STO +0 60100 0 25415 52326 TRA +0 02000 0 52332 52327 CLA +0 50000 0 25415
52330 ADD +0 40000 0 51163 52331 STO +0 60100 0 25415 52332 CLA +0 50000 0 25415 52333 SUB +0 40200 0 25417
52334 TZE +0 10000 0 52427 52335 TPL +0 12000 0 52427
W'R EPARAY(JE1,4) .E. TAG, T'O LOOP5 171 LM00225
52336 LDQ +0 56000 0 51166 52337 CLA +0 50000 0 25415 52340 TSX +0 07400 4 00001 52341 TXH +3 02555 0 25362
52342 PAX +0 73400 1 00000 52343 CLA +0 50000 1 25362 52344 SUB +0 40200 0 27462 52345 TNZ -0 10000 0 52347
52346 TRA +0 02000 0 00050
T'H LOOP4, FOR JE=JE1+1,1,JE.E.JESAVE 172 LM00226
52347 CLA +0 50000 0 25415 52350 ADD +0 40000 0 51163 52351 STO +0 60100 0 25416 52352 TRA +0 02000 0 52356
52353 CLA +0 50000 0 25416 52354 ADD +0 40000 0 51163 52355 STO +0 60100 0 25416 52356 CLA +0 50000 0 25416
52357 SUB +0 40200 0 25417 52360 TZE +0 10000 0 52426
W'R EPARAY(JE,4) .E. TAG, T'O LOOP4 173 LM00227
52361 LDQ +0 56000 0 51166 52362 CLA +0 50000 0 25416 52363 TSX +0 07400 4 00001 52364 TXH +3 02555 0 25362
52365 PAX +0 73400 1 00000 52366 CLA +0 50000 1 25362 52367 SUB +0 40200 0 27462 52370 TNZ -0 10000 0 52372
52371 TRA +0 02000 0 00047
W'R EPARAY(JE1,0) .NE. EPARAY(JE,0), T'O LOOP4 174 LM00228
52372 LDQ +0 56000 0 51162 52373 CLA +0 50000 0 25416 52374 TSX +0 07400 4 00001 52375 TXH +3 02555 0 25362
52376 STO +0 60100 0 54007 52377 LDQ +0 56000 0 51162 52400 CLA +0 50000 0 25415 52401 TSX +0 07400 4 00001
52402 TXH +3 02555 0 25362 52403 PAX +0 73400 1 00000 52404 LXA +0 53400 2 54007 52405 CLA +0 50000 1 25362
52406 SUB +0 40200 2 25362 52407 TZE +0 10000 0 52411 52410 TRA +0 02000 0 00047
MULT = MULT + 1 175 LM00229
52411 CLA +0 50000 0 27334 52412 ADD +0 40000 0 51163 52413 STO +0 60100 0 27334
MULT(MULT) = EPARAY(JE,0) 176 LM00230
52414 LDQ +0 56000 0 51162 52415 CLA +0 50000 0 25416 52416 TSX +0 07400 4 00001 52417 TXH +3 02555 0 25362
52420 LXA +0 53400 1 27334 52421 PAX +0 73400 2 00000 52422 CLA +0 50000 2 25362 52423 STO +0 60100 1 27334
T'O LOOP5 177 LM00231
52424 TRA +0 02000 0 00050
LOOP4 CONTINUE 178 LM00232
52425 TRA +0 02000 0 52353
LOOP5 CONTINUE 179 LM00233
52426 TRA +0 02000 0 52327
EXECUTE DELETE.(FILNAM) 180 LM00237
52427 TSX +0 07400 4 00011 52430 TXH +3 00000 0 00027
BFOPEN.($W$,N1,NA2,BUFF1(BL),BUFF2(BL),BUFF3(BL),ERR4) 181 LM00238
52431 CLA +0 50000 0 00116 52432 SUB +0 40200 0 52433 52433 TXH +3 00000 0 02541 52434 STA +0 62100 0 52453
52435 CLA +0 50000 0 00116 52436 SUB +0 40200 0 52437 52437 TXH +3 00000 0 01660 52440 STA +0 62100 0 52452
52441 CLA +0 50000 0 00116 52442 SUB +0 40200 0 52443 52443 TXH +3 00000 0 00777 52444 STA +0 62100 0 52451
52445 TSX +0 07400 4 00003 52446 TXH +3 00000 0 51224 52447 TXH +3 00000 0 00027 52450 TXH +3 00000 0 00026
52451 TXH +3 00000 0 00000 52452 TXH +3 00000 0 00000 52453 TXH +3 00000 0 00000 52454 TXH +3 00000 0 00044
TITLE(8) = N1 182 LM00239
52455 CLA +0 50000 0 00027 52456 STO +0 60100 0 27474
GETTM.(TITLE(11),TITLE(13)) 183 LM00240
52457 TSX +0 07400 4 00015 52460 TXH +3 00000 0 27471 52461 TXH +3 00000 0 27467
TITLE(5)=(N1.A.777777000000K).V.000000575757K 184 LM00241
52462 CAL -0 50000 0 00027 52463 ANA -0 32000 0 51226 52464 ORA -0 50100 0 51212 52465 SLW +0 60200 0 27477
WHOAMI.(TITLE(16)...2) 185 LM00242
52466 TSX +0 07400 4 00023 52467 TIX +2 51164 0 27464
LINE(LC-15) = TITLE(16) 186 LM00243
52470 CLA +0 50000 0 25433 52471 SUB +0 40200 0 51200 52472 PAX +0 73400 1 00000 52473 CLA +0 50000 0 27464
52474 STO +0 60100 1 25475
LINE(LC-16) = TITLE(15) 187 LM00244
52475 CLA +0 50000 0 25433 52476 SUB +0 40200 0 51201 52477 PAX +0 73400 1 00000 52500 CLA +0 50000 0 27465
52501 STO +0 60100 1 25475
T'H LOOP6, FOR IC = 0,1,IC .G. 14 188 LM00245
52502 CLA +0 50000 0 51162 52503 STO +0 60100 0 25413 52504 TRA +0 02000 0 52510 52505 CLA +0 50000 0 25413
52506 ADD +0 40000 0 51163 52507 STO +0 60100 0 25413 52510 CLA +0 50000 0 25413 52511 SUB +0 40200 0 51177
52512 TZE +0 10000 0 52514 52513 TPL +0 12000 0 52523
LOOP6 LINE(LC-IC) = TITLE(IC) 189 LM00246
52514 CLA +0 50000 0 25433 52515 SUB +0 40200 0 25413 52516 PAX +0 73400 1 00000 52517 LXA +0 53400 2 25413
52520 CLA +0 50000 2 27504 52521 STO +0 60100 1 25475 52522 TRA +0 02000 0 52505
BFWRIT.(N1,NA2,LINE(LC)...17,ERR4) 190 LM00247
52523 CLA +0 50000 0 25433 52524 SUB +0 40200 0 52525 52525 TXH +3 00000 0 25475 52526 STA +0 62100 0 52532
52527 TSX +0 07400 4 00005 52530 TXH +3 00000 0 00027 52531 TXH +3 00000 0 00026 52532 TIX +2 51202 0 00000
52533 TXH +3 00000 0 00044
W'R ILIST .E. 1 .OR. JESAVE .L. 1, T'O SUMERY 191 LM00248
52534 CLA +0 50000 0 25417 52535 SUB +0 40200 0 51163 52536 TZE +0 10000 0 52540 52537 TMI -0 12000 0 52543
52540 CLA +0 50000 0 25414 52541 SUB +0 40200 0 51163 52542 TNZ -0 10000 0 52544 52543 TRA +0 02000 0 00070
T'H LOOP7, FOR IC = 0,1,IC .G. 11 192 LM00249
52544 CLA +0 50000 0 51162 52545 STO +0 60100 0 25413 52546 TRA +0 02000 0 52552 52547 CLA +0 50000 0 25413
52550 ADD +0 40000 0 51163 52551 STO +0 60100 0 25413 52552 CLA +0 50000 0 25413 52553 SUB +0 40200 0 51175
52554 TZE +0 10000 0 52556 52555 TPL +0 12000 0 52565
LOOP7 LINE(LC-IC) = HEAD(IC) 193 LM00250
52556 CLA +0 50000 0 25433 52557 SUB +0 40200 0 25413 52560 PAX +0 73400 1 00000 52561 LXA +0 53400 2 25413
52562 CLA +0 50000 2 25401 52563 STO +0 60100 1 25475 52564 TRA +0 02000 0 52547
BFWRIT.(N1,NA2,LINE(LC)...12, ERR4) 194 LM00251
52565 CLA +0 50000 0 25433 52566 SUB +0 40200 0 52567 52567 TXH +3 00000 0 25475 52570 STA +0 62100 0 52574
52571 TSX +0 07400 4 00005 52572 TXH +3 00000 0 00027 52573 TXH +3 00000 0 00026 52574 TIX +2 51176 0 00000
52575 TXH +3 00000 0 00044
JT = -50 195 LM00252
52576 CLS +0 50200 0 51211 52577 STO +0 60100 0 25420
JE = 0 196 LM00253
52600 CLA +0 50000 0 51162 52601 STO +0 60100 0 25416
LTOP8 BFWRIT.(N1,NA2,BLANK3(3)...4,ERR4) 197 LM00257
52602 TSX +0 07400 4 00005 52603 TXH +3 00000 0 00027 52604 TXH +3 00000 0 00026 52605 TIX +2 51166 0 00111
52606 TXH +3 00000 0 00044
LINE(LC) = 777777000007K 198 LM00258
52607 LXA +0 53400 1 25433 52610 CLA +0 50000 0 51230 52611 STO +0 60100 1 25475
LINE(LC-1) = BLANK 199 LM00259
52612 CLA +0 50000 0 25433 52613 SUB +0 40200 0 51163 52614 PAX +0 73400 1 00000 52615 CLA +0 50000 0 00115
52616 STO +0 60100 1 25475
LINE(LC-2) = $FILE $ 200 LM00260
52617 CLA +0 50000 0 25433 52620 SUB +0 40200 0 51164 52621 PAX +0 73400 1 00000 52622 CLA +0 50000 0 51215
52623 STO +0 60100 1 25475
LINE(LC-3) = EPARAY(JE,0) 201 LM00261
52624 LDQ +0 56000 0 51162 52625 CLA +0 50000 0 25416 52626 TSX +0 07400 4 00001 52627 TXH +3 02555 0 25362
52630 STO +0 60100 0 54007 52631 CLA +0 50000 0 25433 52632 SUB +0 40200 0 51165 52633 PAX +0 73400 1 00000
52634 LXA +0 53400 2 54007 52635 CLA +0 50000 2 25362 52636 STO +0 60100 1 25475
LINE(LC-4) = BLANK 202 LM00262
52637 CLA +0 50000 0 25433 52640 SUB +0 40200 0 51166 52641 PAX +0 73400 1 00000 52642 CLA +0 50000 0 00115
52643 STO +0 60100 1 25475
LINE(LC-5) = (EPARAY(JE,1)) 203 LM00263
52644 LDQ +0 56000 0 51163 52645 CLA +0 50000 0 25416 52646 TSX +0 07400 4 00001 52647 TXH +3 02555 0 25362
52650 STO +0 60100 0 54007 52651 CLA +0 50000 0 25433 52652 SUB +0 40200 0 51167 52653 PAX +0 73400 1 00000
52654 LXA +0 53400 2 54007 52655 CLA +0 50000 2 25362 52656 STO +0 60100 1 25475
LINE(LC-6) = OCABC.(EPARAY(JE,2)) 204 LM00264
52657 LDQ +0 56000 0 51164 52660 CLA +0 50000 0 25416 52661 TSX +0 07400 4 00001 52662 TXH +3 02555 0 25362
52663 SUB +0 40200 0 52664 52664 TXH +3 00000 0 25362 52665 STA +0 62100 0 52667 52666 TSX +0 07400 4 00020
52667 TXH +3 00000 0 00000 52670 STO +0 60100 0 54007 52671 CLA +0 50000 0 25433 52672 SUB +0 40200 0 51170
52673 PAX +0 73400 1 00000 52674 CLA +0 50000 0 54007 52675 STO +0 60100 1 25475
LINE(LC-7) = OCABC.(EPARAY(JE,3)) 205 LM00265
52676 LDQ +0 56000 0 51165 52677 CLA +0 50000 0 25416 52700 TSX +0 07400 4 00001 52701 TXH +3 02555 0 25362
52702 SUB +0 40200 0 52703 52703 TXH +3 00000 0 25362 52704 STA +0 62100 0 52706 52705 TSX +0 07400 4 00020
52706 TXH +3 00000 0 00000 52707 STO +0 60100 0 54007 52710 CLA +0 50000 0 25433 52711 SUB +0 40200 0 51171
52712 PAX +0 73400 1 00000 52713 CLA +0 50000 0 54007 52714 STO +0 60100 1 25475
BFWRIT.(N1,NA2,LINE(LC)...8,ERR4) 206 LM00266
52715 CLA +0 50000 0 25433 52716 SUB +0 40200 0 52717 52717 TXH +3 00000 0 25475 52720 STA +0 62100 0 52724
52721 TSX +0 07400 4 00005 52722 TXH +3 00000 0 00027 52723 TXH +3 00000 0 00026 52724 TIX +2 51172 0 00000
52725 TXH +3 00000 0 00044
LINE(LC) = 777777000011K 207 LM00270
52726 LXA +0 53400 1 25433 52727 CLA +0 50000 0 51231 52730 STO +0 60100 1 25475
LINE(LC-1) = BLANK 208 LM00271
52731 CLA +0 50000 0 25433 52732 SUB +0 40200 0 51163 52733 PAX +0 73400 1 00000 52734 CLA +0 50000 0 00115
52735 STO +0 60100 1 25475
LINE(LC-2) = BLANK 209 LM00272
52736 CLA +0 50000 0 25433 52737 SUB +0 40200 0 51164 52740 PAX +0 73400 1 00000 52741 CLA +0 50000 0 00115
52742 STO +0 60100 1 25475
LINE(LC-3) = BLANK 210 LM00273
52743 CLA +0 50000 0 25433 52744 SUB +0 40200 0 51165 52745 PAX +0 73400 1 00000 52746 CLA +0 50000 0 00115
52747 STO +0 60100 1 25475
LINE(LC-5) = BLANK 211 LM00274
52750 CLA +0 50000 0 25433 52751 SUB +0 40200 0 51167 52752 PAX +0 73400 1 00000 52753 CLA +0 50000 0 00115
52754 STO +0 60100 1 25475
LINE(LC-6) = BLANK 212 LM00275
52755 CLA +0 50000 0 25433 52756 SUB +0 40200 0 51170 52757 PAX +0 73400 1 00000 52760 CLA +0 50000 0 00115
52761 STO +0 60100 1 25475
LINE(LC-7) = BLANK 213 LM00276
52762 CLA +0 50000 0 25433 52763 SUB +0 40200 0 51171 52764 PAX +0 73400 1 00000 52765 CLA +0 50000 0 00115
52766 STO +0 60100 1 25475
JT = (JT/50+1)*50 + 1 214 LM00277
52767 LDQ +0 56000 0 25420 52770 PXD -0 75400 0 00000 52771 LLS +0 76300 0 00000 52772 DVP +0 22100 0 51211
52773 XCA +0 13100 0 00000 52774 ADD +0 40000 0 51163 52775 XCA +0 13100 0 00000 52776 MPY +0 20000 0 51211
52777 XCA +0 13100 0 00000 53000 ADD +0 40000 0 51163 53001 STO +0 60100 0 25420
LTOP9 W'R TVARAY(JT) .E. FENCE, T'O TOP10 215 LM00278
53002 LXA +0 53400 1 25420 53003 CLA +0 50000 1 51156 53004 SUB +0 40200 0 25363 53005 TNZ -0 10000 0 53007
53006 TRA +0 02000 0 00071
LINE(LC-4) = TVARAY(JT) 216 LM00279
53007 CLA +0 50000 0 25433 53010 SUB +0 40200 0 51166 53011 PAX +0 73400 1 00000 53012 LXA +0 53400 2 25420
53013 CLA +0 50000 2 51156 53014 STO +0 60100 1 25475
LINE(LC-8) = TV1(JT,0) 217 LM00280
53015 LDQ +0 56000 0 51162 53016 CLA +0 50000 0 25420 53017 TSX +0 07400 4 00001 53020 TXH +3 02560 0 43265
53021 STO +0 60100 0 54007 53022 CLA +0 50000 0 25433 53023 SUB +0 40200 0 51172 53024 PAX +0 73400 1 00000
53025 LXA +0 53400 2 54007 53026 CLA +0 50000 2 43265 53027 STO +0 60100 1 25475
LINE(LC-9) = TV1(JT,1) 218 LM00281
53030 LDQ +0 56000 0 51163 53031 CLA +0 50000 0 25420 53032 TSX +0 07400 4 00001 53033 TXH +3 02560 0 43265
53034 STO +0 60100 0 54007 53035 CLA +0 50000 0 25433 53036 SUB +0 40200 0 51173 53037 PAX +0 73400 1 00000
53040 LXA +0 53400 2 54007 53041 CLA +0 50000 2 43265 53042 STO +0 60100 1 25475
BFWRIT.(N1,NA2,LINE(LC)...10,ERR4) 219 LM00282
53043 CLA +0 50000 0 25433 53044 SUB +0 40200 0 53045 53045 TXH +3 00000 0 25475 53046 STA +0 62100 0 53052
53047 TSX +0 07400 4 00005 53050 TXH +3 00000 0 00027 53051 TXH +3 00000 0 00026 53052 TIX +2 51174 0 00000
53053 TXH +3 00000 0 00044
JT = JT + 1 220 LM00283
53054 CLA +0 50000 0 25420 53055 ADD +0 40000 0 51163 53056 STO +0 60100 0 25420
T'O LTOP9 221 LM00284
53057 TRA +0 02000 0 00056
TOP10 LINE(LC-4) = BLANK 222 LM00285
53060 CLA +0 50000 0 25433 53061 SUB +0 40200 0 51166 53062 PAX +0 73400 1 00000 53063 CLA +0 50000 0 00115
53064 STO +0 60100 1 25475
LINE(LC-6) = BLANK 223 LM00286
53065 CLA +0 50000 0 25433 53066 SUB +0 40200 0 51170 53067 PAX +0 73400 1 00000 53070 CLA +0 50000 0 00115
53071 STO +0 60100 1 25475
LINE(LC-7) = BLANK 224 LM00287
53072 CLA +0 50000 0 25433 53073 SUB +0 40200 0 51171 53074 PAX +0 73400 1 00000 53075 CLA +0 50000 0 00115
53076 STO +0 60100 1 25475
LTOP10 JE = JE + 1 225 LM00288
53077 CLA +0 50000 0 25416 53100 ADD +0 40000 0 51163 53101 STO +0 60100 0 25416
W'R JE .GE. JESAVE, T'O SUMERY 226 LM00293
53102 CLA +0 50000 0 25416 53103 SUB +0 40200 0 25417 53104 TZE +0 10000 0 53106 53105 TMI -0 12000 0 53107
53106 TRA +0 02000 0 00070
W'R EPARAY(JE,4) .E. TAG, T'O LTOP8 227 LM00294
53107 LDQ +0 56000 0 51166 53110 CLA +0 50000 0 25416 53111 TSX +0 07400 4 00001 53112 TXH +3 02555 0 25362
53113 PAX +0 73400 1 00000 53114 CLA +0 50000 1 25362 53115 SUB +0 40200 0 27462 53116 TNZ -0 10000 0 53120
53117 TRA +0 02000 0 00055
NLC= (2*(EPARAY(JE,2)-3)+7) 228 LM00295
53120 LDQ +0 56000 0 51164 53121 CLA +0 50000 0 25416 53122 TSX +0 07400 4 00001 53123 TXH +3 02555 0 25362
53124 PAX +0 73400 1 00000 53125 CLA +0 50000 1 25362 53126 SUB +0 40200 0 51165 53127 XCA +0 13100 0 00000
53130 MPY +0 20000 0 51164 53131 XCA +0 13100 0 00000 53132 ADD +0 40000 0 51171 53133 STO +0 60100 0 27340
LINE(LC)= (NLC-1).V.777777K6 229 LM00296
53134 CLA +0 50000 0 27340 53135 SUB +0 40200 0 51163 53136 STO +0 60100 0 54007 53137 CAL -0 50000 0 54007
53140 ORA -0 50100 0 51226 53141 LXA +0 53400 1 25433 53142 SLW +0 60200 1 25475
LINE(LC-3) = EPARAY(JE,0) 230 LM00297
53143 LDQ +0 56000 0 51162 53144 CLA +0 50000 0 25416 53145 TSX +0 07400 4 00001 53146 TXH +3 02555 0 25362
53147 STO +0 60100 0 54007 53150 CLA +0 50000 0 25433 53151 SUB +0 40200 0 51165 53152 PAX +0 73400 1 00000
53153 LXA +0 53400 2 54007 53154 CLA +0 50000 2 25362 53155 STO +0 60100 1 25475
LINE(LC-5) = (EPARAY(JE,1)) 231 LM00298
53156 LDQ +0 56000 0 51163 53157 CLA +0 50000 0 25416 53160 TSX +0 07400 4 00001 53161 TXH +3 02555 0 25362
53162 STO +0 60100 0 54007 53163 CLA +0 50000 0 25433 53164 SUB +0 40200 0 51167 53165 PAX +0 73400 1 00000
53166 LXA +0 53400 2 54007 53167 CLA +0 50000 2 25362 53170 STO +0 60100 1 25475
LINE(LC-7) = BLANK 232 LM00299
53171 CLA +0 50000 0 25433 53172 SUB +0 40200 0 51171 53173 PAX +0 73400 1 00000 53174 CLA +0 50000 0 00115
53175 STO +0 60100 1 25475
LCNT = LC - 8 233 LM00300
53176 CLA +0 50000 0 25433 53177 SUB +0 40200 0 51172 53200 STO +0 60100 0 25431
T'H LOOP11, FOR IC = 3,1,IC .E. EPARAY(JE,2) 234 LM00301
53201 CLA +0 50000 0 51165 53202 STO +0 60100 0 25413 53203 TRA +0 02000 0 53207 53204 CLA +0 50000 0 25413
53205 ADD +0 40000 0 51163 53206 STO +0 60100 0 25413 53207 LDQ +0 56000 0 51164 53210 CLA +0 50000 0 25416
53211 TSX +0 07400 4 00001 53212 TXH +3 02555 0 25362 53213 PAX +0 73400 2 00000 53214 CLA +0 50000 0 25413
53215 SUB +0 40200 2 25362 53216 TZE +0 10000 0 53240
LINE(LCNT) = EPARAY(JE,IC) 235 LM00302
53217 LDQ +0 56000 0 25413 53220 CLA +0 50000 0 25416 53221 TSX +0 07400 4 00001 53222 TXH +3 02555 0 25362
53223 LXA +0 53400 1 25431 53224 PAX +0 73400 2 00000 53225 CLA +0 50000 2 25362 53226 STO +0 60100 1 25475
LINE(LCNT-1) = 735757575757K 236 LM00303
53227 CLA +0 50000 0 25431 53230 SUB +0 40200 0 51163 53231 PAX +0 73400 1 00000 53232 CLA +0 50000 0 51225
53233 STO +0 60100 1 25475
LOOP11 LCNT = LCNT-2 237 LM00304
53234 CLA +0 50000 0 25431 53235 SUB +0 40200 0 51164 53236 STO +0 60100 0 25431 53237 TRA +0 02000 0 53204
BFWRIT.(N1,NA2,LINE(LC)...NLC,ERR4) 238 LM00305
53240 CLA +0 50000 0 25433 53241 SUB +0 40200 0 53242 53242 TXH +3 00000 0 25475 53243 STA +0 62100 0 53247
53244 TSX +0 07400 4 00005 53245 TXH +3 00000 0 00027 53246 TXH +3 00000 0 00026 53247 TIX +2 27340 0 00000
53250 TXH +3 00000 0 00044
T'O LTOP10 239 LM00306
53251 TRA +0 02000 0 00051
SUMERY SUM1(18) = OCABC.(HCORE) 240 LM00310
53252 TSX +0 07400 4 00020 53253 TXH +3 00000 0 25365 53254 STO +0 60100 0 27415
SUM1(11) = OCABC.(LCOM) 241 LM00311
53255 TSX +0 07400 4 00020 53256 TXH +3 00000 0 25432 53257 STO +0 60100 0 27424
SUM1(25) = BZEL.(DERBC.(LCOM-HCORE)) 242 LM00312
53260 CLA +0 50000 0 25432 53261 SUB +0 40200 0 25365 53262 STO +0 60100 0 54007 53263 TSX +0 07400 4 00012
53264 TXH +3 00000 0 54007 53265 STO +0 60100 0 54007 53266 TSX +0 07400 4 00006 53267 TXH +3 00000 0 54007
53270 STO +0 60100 0 27406
W'R HCORE.G.LCOM, SUM1(25) =SUM1(25).A.MASK4 243 LM00313
53271 CLA +0 50000 0 25365 53272 SUB +0 40200 0 25432 53273 TZE +0 10000 0 53300 53274 TMI -0 12000 0 53300
53275 CAL -0 50000 0 27406 53276 ANA -0 32000 0 25502 53277 SLW +0 60200 0 27406
HPC(5) = SUM1(18) 244 LM00314
53300 CLA +0 50000 0 27415 53301 STO +0 60100 0 25403
LCM(5) = SUM1(11) 245 LM00315
53302 CLA +0 50000 0 27424 53303 STO +0 60100 0 25423
DIFC(5) = SUM1(25) 246 LM00316
53304 CLA +0 50000 0 27406 53305 STO +0 60100 0 02545
W'R HCORE .L. LCOM .AND. (MEARAY+MFARAY) .E. 0 247 LM00317
53306 CLA +0 50000 0 26633 53307 ADD +0 40000 0 27022 53310 SUB +0 40200 0 51162 53311 TNZ -0 10000 0 53366
53312 CLA +0 50000 0 25365 53313 SUB +0 40200 0 25432 53314 TZE +0 10000 0 53366 53315 TPL +0 12000 0 53366
T'H LOOP13, FOR IC = 0,1,IC .G. 27 248 LM00321
53316 CLA +0 50000 0 51162 53317 STO +0 60100 0 25413 53320 TRA +0 02000 0 53324 53321 CLA +0 50000 0 25413
53322 ADD +0 40000 0 51163 53323 STO +0 60100 0 25413 53324 CLA +0 50000 0 25413 53325 SUB +0 40200 0 51207
53326 TZE +0 10000 0 53330 53327 TPL +0 12000 0 53337
LOOP13 LINE(LC-IC) = SUM1(IC) 249 LM00322
53330 CLA +0 50000 0 25433 53331 SUB +0 40200 0 25413 53332 PAX +0 73400 1 00000 53333 LXA +0 53400 2 25413
53334 CLA +0 50000 2 27437 53335 STO +0 60100 1 25475 53336 TRA +0 02000 0 53321
BFWRIT.(N1,NA2,LINE(LC)...28,ERR4) 250 LM00323
53337 CLA +0 50000 0 25433 53340 SUB +0 40200 0 53341 53341 TXH +3 00000 0 25475 53342 STA +0 62100 0 53346
53343 TSX +0 07400 4 00005 53344 TXH +3 00000 0 00027 53345 TXH +3 00000 0 00026 53346 TIX +2 51210 0 00000
53347 TXH +3 00000 0 00044
PRINT COMMENT $SYSTEM PRELOAD SUCCESSFUL$ 251 LM00324
53350 TSX +0 07400 4 00016 53351 +0 00000 0 00005 53352 -2 27062 6 32544 53353 -2 04751 2 54346
53354 +2 12460 6 26423 53355 +2 32562 6 22664 53356 -0 36060 6 06060
PRNTP.(LCM) 252 LM00325
53357 TSX +0 07400 4 00022 53360 TXH +3 00000 0 25430
PRNTP.(HPC) 253 LM00326
53361 TSX +0 07400 4 00022 53362 TXH +3 00000 0 25410
PRNTP.(DIFC) 254 LM00327
53363 TSX +0 07400 4 00022 53364 TXH +3 00000 0 02552
T'O MUCK 255 LM00328
53365 TRA +0 02000 0 00061
E'L 256 LM00329
SUM1(3) = SUM1A 257 LM00332
53366 CLA +0 50000 0 27403 53367 STO +0 60100 0 27434
T'H LOOP14, FOR IC = 0,1,IC .G. 27 258 LM00333
53370 CLA +0 50000 0 51162 53371 STO +0 60100 0 25413 53372 TRA +0 02000 0 53376 53373 CLA +0 50000 0 25413
53374 ADD +0 40000 0 51163 53375 STO +0 60100 0 25413 53376 CLA +0 50000 0 25413 53377 SUB +0 40200 0 51207
53400 TZE +0 10000 0 53402 53401 TPL +0 12000 0 53411
LOOP14 LINE(LC-IC) = SUM1(IC) 259 LM00334
53402 CLA +0 50000 0 25433 53403 SUB +0 40200 0 25413 53404 PAX +0 73400 1 00000 53405 LXA +0 53400 2 25413
53406 CLA +0 50000 2 27437 53407 STO +0 60100 1 25475 53410 TRA +0 02000 0 53373
BFWRIT.(N1,NA2,LINE(LC)...28, ERR4) 260 LM00335
53411 CLA +0 50000 0 25433 53412 SUB +0 40200 0 53413 53413 TXH +3 00000 0 25475 53414 STA +0 62100 0 53420
53415 TSX +0 07400 4 00005 53416 TXH +3 00000 0 00027 53417 TXH +3 00000 0 00026 53420 TIX +2 51210 0 00000
53421 TXH +3 00000 0 00044
PRINT COMMENT $SYSTEM PRELOAD UNSUCCESSFUL$ 261 LM00336
53422 TSX +0 07400 4 00016 53423 +0 00000 0 00005 53424 -2 27062 6 32544 53425 -2 04751 2 54346
53426 +2 12460 6 44562 53427 -2 42323 2 56262 53430 +2 66443 6 06060
PRNTP.(LCM) 262 LM00337
53431 TSX +0 07400 4 00022 53432 TXH +3 00000 0 25430
PRNTP.(HPC) 263 LM00338
53433 TSX +0 07400 4 00022 53434 TXH +3 00000 0 25410
PRNTP.(DIFC) 264 LM00339
53435 TSX +0 07400 4 00022 53436 TXH +3 00000 0 02552
W'R MFARAY .E. 0, T'O MECK 265 LM00340
53437 CLA +0 50000 0 27022 53440 SUB +0 40200 0 51162 53441 TNZ -0 10000 0 53443 53442 TRA +0 02000 0 00057
T'H LOOP15, FOR IC = 0,1,IC .G. 4 266 LM00344
53443 CLA +0 50000 0 51162 53444 STO +0 60100 0 25413 53445 TRA +0 02000 0 53451 53446 CLA +0 50000 0 25413
53447 ADD +0 40000 0 51163 53450 STO +0 60100 0 25413 53451 CLA +0 50000 0 25413 53452 SUB +0 40200 0 51166
53453 TZE +0 10000 0 53455 53454 TPL +0 12000 0 53464
LOOP15 LINE(LC-IC) = SUM2(IC) 267 LM00345
53455 CLA +0 50000 0 25433 53456 SUB +0 40200 0 25413 53457 PAX +0 73400 1 00000 53460 LXA +0 53400 2 25413
53461 CLA +0 50000 2 27444 53462 STO +0 60100 1 25475 53463 TRA +0 02000 0 53446
BFWRIT.(N1,NA2,LINE(LC)...5,ERR4) 268 LM00346
53464 CLA +0 50000 0 25433 53465 SUB +0 40200 0 53466 53466 TXH +3 00000 0 25475 53467 STA +0 62100 0 53473
53470 TSX +0 07400 4 00005 53471 TXH +3 00000 0 00027 53472 TXH +3 00000 0 00026 53473 TIX +2 51167 0 00000
53474 TXH +3 00000 0 00044
PRINT COMMENT $MISSING FILES ARE$ 269 LM00347
53475 TSX +0 07400 4 00016 53476 +0 00000 0 00003 53477 -0 43162 6 23145 53500 +2 76026 3 14325
53501 -2 26021 5 12560
LINE(LC) = 777777000003K 270 LM00348
53502 LXA +0 53400 1 25433 53503 CLA +0 50000 0 51227 53504 STO +0 60100 1 25475
LINE(LC-2) = BLANK 271 LM00349
53505 CLA +0 50000 0 25433 53506 SUB +0 40200 0 51164 53507 PAX +0 73400 1 00000 53510 CLA +0 50000 0 00115
53511 STO +0 60100 1 25475
T'H LOOP16, FOR IC = 1,1,IC .G. MFARAY 272 LM00350
53512 CLA +0 50000 0 51163 53513 STO +0 60100 0 25413 53514 TRA +0 02000 0 53520 53515 CLA +0 50000 0 25413
53516 ADD +0 40000 0 51163 53517 STO +0 60100 0 25413 53520 CLA +0 50000 0 25413 53521 SUB +0 40200 0 27022
53522 TZE +0 10000 0 53524 53523 TPL +0 12000 0 53550
LINE(LC-3) = MFARAY(IC) 273 LM00351
53524 CLA +0 50000 0 25433 53525 SUB +0 40200 0 51165 53526 PAX +0 73400 1 00000 53527 LXA +0 53400 2 25413
53530 CLA +0 50000 2 27022 53531 STO +0 60100 1 25475
NASTY(0) = MFARAY(IC) 274 LM00352
53532 CLA +0 50000 2 27022 53533 STO +0 60100 0 27337
PRNTP.(NASTY) 275 LM00353
53534 TSX +0 07400 4 00022 53535 TXH +3 00000 0 27337
LOOP16 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) 276 LM00354
53536 CLA +0 50000 0 25433 53537 SUB +0 40200 0 53540 53540 TXH +3 00000 0 25475 53541 STA +0 62100 0 53545
53542 TSX +0 07400 4 00005 53543 TXH +3 00000 0 00027 53544 TXH +3 00000 0 00026 53545 TIX +2 51166 0 00000
53546 TXH +3 00000 0 00044 53547 TRA +0 02000 0 53515
MECK W'R MEARAY .E. 0, T'O MUCK 277 LM00355
53550 CLA +0 50000 0 26633 53551 SUB +0 40200 0 51162 53552 TNZ -0 10000 0 53554 53553 TRA +0 02000 0 00061
T'H LOOP17, FOR IC = 0,1,IC .G. 5 278 LM00359
53554 CLA +0 50000 0 51162 53555 STO +0 60100 0 25413 53556 TRA +0 02000 0 53562 53557 CLA +0 50000 0 25413
53560 ADD +0 40000 0 51163 53561 STO +0 60100 0 25413 53562 CLA +0 50000 0 25413 53563 SUB +0 40200 0 51167
53564 TZE +0 10000 0 53566 53565 TPL +0 12000 0 53575
LOOP17 LINE(LC-IC) = SUM3(IC) 279 LM00360
53566 CLA +0 50000 0 25433 53567 SUB +0 40200 0 25413 53570 PAX +0 73400 1 00000 53571 LXA +0 53400 2 25413
53572 CLA +0 50000 2 27452 53573 STO +0 60100 1 25475 53574 TRA +0 02000 0 53557
BFWRIT.(N1,NA2,LINE(LC)...6,ERR4) 280 LM00361
53575 CLA +0 50000 0 25433 53576 SUB +0 40200 0 53577 53577 TXH +3 00000 0 25475 53600 STA +0 62100 0 53604
53601 TSX +0 07400 4 00005 53602 TXH +3 00000 0 00027 53603 TXH +3 00000 0 00026 53604 TIX +2 51170 0 00000
53605 TXH +3 00000 0 00044
PRINT COMMENT $MISSING ENTRY POINTS ARE$ 281 LM00362
53606 TSX +0 07400 4 00016 53607 +0 00000 0 00004 53610 -0 43162 6 23145 53611 +2 76025 4 56351
53612 -3 06047 4 63145 53613 -2 36260 2 15125
LINE(LC) = 777777000003K 282 LM00363
53614 LXA +0 53400 1 25433 53615 CLA +0 50000 0 51227 53616 STO +0 60100 1 25475
LINE(LC-2) = BLANK 283 LM00364
53617 CLA +0 50000 0 25433 53620 SUB +0 40200 0 51164 53621 PAX +0 73400 1 00000 53622 CLA +0 50000 0 00115
53623 STO +0 60100 1 25475
T'H LOOP18, FOR IC = 1,1,IC .G. MEARAY 284 LM00365
53624 CLA +0 50000 0 51163 53625 STO +0 60100 0 25413 53626 TRA +0 02000 0 53632 53627 CLA +0 50000 0 25413
53630 ADD +0 40000 0 51163 53631 STO +0 60100 0 25413 53632 CLA +0 50000 0 25413 53633 SUB +0 40200 0 26633
53634 TZE +0 10000 0 53636 53635 TPL +0 12000 0 53662
LINE(LC-3) = MEARAY(IC) 285 LM00366
53636 CLA +0 50000 0 25433 53637 SUB +0 40200 0 51165 53640 PAX +0 73400 1 00000 53641 LXA +0 53400 2 25413
53642 CLA +0 50000 2 26633 53643 STO +0 60100 1 25475
NASTY(0) = MEARAY(IC) 286 LM00367
53644 CLA +0 50000 2 26633 53645 STO +0 60100 0 27337
PRNTP.(NASTY) 287 LM00368
53646 TSX +0 07400 4 00022 53647 TXH +3 00000 0 27337
LOOP18 BFWRIT. (N1,NA2,LINE(LC)...4,ERR4) 288 LM00369
53650 CLA +0 50000 0 25433 53651 SUB +0 40200 0 53652 53652 TXH +3 00000 0 25475 53653 STA +0 62100 0 53657
53654 TSX +0 07400 4 00005 53655 TXH +3 00000 0 00027 53656 TXH +3 00000 0 00026 53657 TIX +2 51166 0 00000
53660 TXH +3 00000 0 00044 53661 TRA +0 02000 0 53627
MUCK W'R MULT .E. 0, T'O END 289 LM00370
53662 CLA +0 50000 0 27334 53663 SUB +0 40200 0 51162 53664 TNZ -0 10000 0 53666 53665 TRA +0 02000 0 00032
T'H LOOP19, FOR IC = 0,1,IC .G. 6 290 LM00374
53666 CLA +0 50000 0 51162 53667 STO +0 60100 0 25413 53670 TRA +0 02000 0 53674 53671 CLA +0 50000 0 25413
53672 ADD +0 40000 0 51163 53673 STO +0 60100 0 25413 53674 CLA +0 50000 0 25413 53675 SUB +0 40200 0 51170
53676 TZE +0 10000 0 53700 53677 TPL +0 12000 0 53707
LOOP19 LINE(LC-IC) = SUM4(IC) 291 LM00375
53700 CLA +0 50000 0 25433 53701 SUB +0 40200 0 25413 53702 PAX +0 73400 1 00000 53703 LXA +0 53400 2 25413
53704 CLA +0 50000 2 27461 53705 STO +0 60100 1 25475 53706 TRA +0 02000 0 53671
BFWRIT.(N1,NA2,LINE(LC)...7,ERR4) 292 LM00376
53707 CLA +0 50000 0 25433 53710 SUB +0 40200 0 53711 53711 TXH +3 00000 0 25475 53712 STA +0 62100 0 53716
53713 TSX +0 07400 4 00005 53714 TXH +3 00000 0 00027 53715 TXH +3 00000 0 00026 53716 TIX +2 51171 0 00000
53717 TXH +3 00000 0 00044
PRINT COMMENT $DUPLICATED ENTRY POINTS ARE$ 293 LM00377
53720 TSX +0 07400 4 00016 53721 +0 00000 0 00005 53722 +2 46447 4 33123 53723 +2 16325 2 46025
53724 -0 56351 7 06047 53725 -0 63145 6 36260 53726 +2 15125 6 06060
LINE(LC) = 777777000003K 294 LM00378
53727 LXA +0 53400 1 25433 53730 CLA +0 50000 0 51227 53731 STO +0 60100 1 25475
LINE (LC-2) = BLANK 295 LM00379
53732 CLA +0 50000 0 25433 53733 SUB +0 40200 0 51164 53734 PAX +0 73400 1 00000 53735 CLA +0 50000 0 00115
53736 STO +0 60100 1 25475
T'H LOOP20, FOR IC = 1,1,IC .G. MULT 296 LM00380
53737 CLA +0 50000 0 51163 53740 STO +0 60100 0 25413 53741 TRA +0 02000 0 53745 53742 CLA +0 50000 0 25413
53743 ADD +0 40000 0 51163 53744 STO +0 60100 0 25413 53745 CLA +0 50000 0 25413 53746 SUB +0 40200 0 27334
53747 TZE +0 10000 0 53751 53750 TPL +0 12000 0 53775
LINE(LC-3) = MULT(IC) 297 LM00381
53751 CLA +0 50000 0 25433 53752 SUB +0 40200 0 51165 53753 PAX +0 73400 1 00000 53754 LXA +0 53400 2 25413
53755 CLA +0 50000 2 27334 53756 STO +0 60100 1 25475
NASTY(0) = MULT(IC) 298 LM00382
53757 CLA +0 50000 2 27334 53760 STO +0 60100 0 27337
PRNTP.(NASTY) 299 LM00383
53761 TSX +0 07400 4 00022 53762 TXH +3 00000 0 27337
LOOP20 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) 300 LM00384
53763 CLA +0 50000 0 25433 53764 SUB +0 40200 0 53765 53765 TXH +3 00000 0 25475 53766 STA +0 62100 0 53772
53767 TSX +0 07400 4 00005 53770 TXH +3 00000 0 00027 53771 TXH +3 00000 0 00026 53772 TIX +2 51166 0 00000
53773 TXH +3 00000 0 00044 53774 TRA +0 02000 0 53742
T'O END 301 LM00385
53775 TRA +0 02000 0 00032
ERR4 PRNTER. 302 LM00386
53776 TSX +0 07400 4 00021
END BFCLOS.(N1,NA2,END2) 303 LM00387
53777 TSX +0 07400 4 00002 54000 TXH +3 00000 0 00027 54001 TXH +3 00000 0 00026 54002 TXH +3 00000 0 00031
END2 CHNCOM.(0) 304 LM00388
54003 TSX +0 07400 4 00007 54004 TXH +3 00000 0 51162
E'M 305 LM00389
54005 TSX +0 07400 4 00013
PUSAVE BCD 09/20/68 0220.6 2650 00000
1 ... PUSAV, REDUCE SAVED FILE TO ABS CARDS PAGE 1
FUNC MACRO N,A
TSX N,4 CALL SUBROUTINE
ARGF (A) GENERATE ARGUMENTS
FUNC END
ARGF MACRO NAMES
IRP NAMES
PAR NAMES GENERATE INDIVIDUAL PARAMETERS
IRP
ARGF END
3 00001 1 60000 PAR OPSYN PTH
2 00017 1 60000 BLK OPSYN TIX
TRANSFER VECTOR
00000 222646472545 BFOPEN
00001 222651252124 BFREAD
00002 222666513163 BFWRIT
00003 222623434662 BFCLOS
00004 222623462425 BFCODE
00005 272563234644 GETCOM
00006 242543263143 DELFIL
00007 272563442544 GETMEM
00010 622563442544 SETMEM
00011 233045234644 CHNCOM
00012 665126436760 WRFLX
00013 452567234644 NEXCOM
00014 242521246060 DEAD
00660 BFSIZ EQU 432
EXTERN BFOPEN,BFREAD,BFWRIT,BFCLOS,BFCODE
EXTERN GETCOM,DELFIL,GETMEM,SETMEM,CHNCOM,WRFLX,NEXCOM,DEAD
00015 0074 00 4 00005 TSX GETCOM,4 PICK UP NAME OF SAVED FILE
00016 0 00000 0 00001 1 ..
00017 0602 00 0 00275 SLW FLNAM ..
00020 0074 00 4 00006 TSX DELFIL,4
00021 ARGF (FLNAM,ABNAM,DELERR,SKIPC) DELETE OLD 'ABS' FILE
00025 0074 00 4 00007 DEL.OK TSX GETMEM,4 GET CURRENT MEMORY LIMITS
00026 0621 00 0 00046 STA B1 FIRST READ BUFFER
00027 0361 00 0 00237 ACL BF ..
00030 0621 00 0 00047 STA B2 SECOND
00031 0361 00 0 00237 ACL BF ..
00032 0621 00 0 00100 STA B3 FIRST WRITE BUFFER
00033 0621 00 0 00070 STA SKIPL AND LOCATION FOR NON-TRANSMIT
00034 0361 00 0 00237 ACL BF ..
00035 0621 00 0 00101 STA B4 SECOND
1 ... PUSAV, REDUCE SAVED FILE TO ABS CARDS PAGE 2
00036 0361 00 0 00237 ACL BF ..
00037 0621 00 0 00102 STA B5 THIRD
00040 0361 00 0 00237 ACL BF ..
00041 0074 00 4 00010 TSX SETMEM,4 UP MEMORY LIMIT
00042 FUNC BFOPEN(=HR,FLNAM,SVNAM) FIRST PARAMETERS
00046 3 00000 0 00000 B1 PAR ** FIRST BUFFER
00047 3 00000 0 00000 B2 PAR ** SECOND
00050 ARGF (=-0,OPRD.)
00052 FUNC BFREAD(FLNAM,SVNAM(MEMBND,,2)ILLEGL,=-0,RD1.)
00061 -0534 00 4 00303 LXD MEMBND,4 GET COUNT OF MACHINE CONDITIONS
00062 1 77777 4 00063 TXI *+1,4,-1 ONE HAS ALREADY BEEN SKIPPED
00063 3 02420 4 00177 TXH ILLEGL,4,3*BFSIZ ERROR IF M.C. SECTION TOO LONG
00064 0634 00 4 00302 SXA SKIPC,4 COUNT FOR NON-TRANSMIT READ
00065 FUNC BFREAD(FLNAM,SVNAM)
00070 2 00302 0 00000 SKIPL BLK **,,SKIPC ..
00071 ARGF (ILLEGL,=-0,RD1.)
00074 FUNC BFOPEN(=HW,FLNAM,ABNAM)
00100 3 00000 0 00000 B3 PAR ** ..
00101 3 00000 0 00000 B4 PAR **
00102 3 00000 0 00000 B5 PAR **
00103 ARGF (OPNW.)
00104 0534 00 1 00303 LXA MEMBND,1 GET CORE IMAGE WORD COUNT
00105 -2 00026 1 00117 PUABS1 TNX PUABS2,1,22 SKIP IF FEWER THAN 22 WORDS LEFT
00106 FUNC BFREAD(FLNAM,SVNAM(DATA,,22)ILLEGL,=-0,RD1.)
00115 0074 00 4 00207 TSX PUNCH,4 PUNCH THIS CARD
00116 0020 00 0 00105 TRA PUABS1
00117 0634 00 1 00302 PUABS2 SXA SKIPC,1 SAVE COUNT FOR LAST READ
00120 0774 00 2 00026 AXT 22,2 ..
00121 0600 00 2 00271 STZ DATA+22,2 CLEAR CARD BUFFER
00122 2 00001 2 00121 TIX *-1,2,1 ..
00123 FUNC BFREAD(FLNAM,SVNAM)
00126 2 00302 0 00243 BLK DATA,,SKIPC
00127 ARGF (ILLEGL,=-0,RD1.)
00132 0074 00 4 00207 TSX PUNCH,4 PUNCH LAST CARD
00133 0774 00 2 00027 AXT 23,2 CLEAR CARD AREA
00134 0600 00 2 00271 STZ CARD+24,2 ..
00135 2 00001 2 00134 TIX *-1,2,1 ..
00136 -0500 00 0 00304 CAL ILC SET UP TRANSFER CARD
00137 -0320 00 0 00307 ANA =O77777 .. GET STARTING ADDRESS
00140 -0501 00 0 00240 ORA 79PNCH .. 7-9 PUNCHES
00141 0602 00 0 00241 SLW CARD .. ILC TO 9-ROW LEFT
1 ... PUSAV, REDUCE SAVED FILE TO ABS CARDS PAGE 3
00142 FUNC BFWRIT(FLNAM,ABNAM(CARD,,28)WR1.)
00147 FUNC BFCLOS(FLNAM,ABNAM,WR2.)
00153 FUNC BFCLOS(FLNAM,SVNAM,RD2.)
00157 0074 00 4 00011 TSX CHNCOM,4 EXIT TO CTSS OR NEXT COMMAND
00160 0 00000 0 00000 0 .. DEAD STATUS
00161 OPRD. SYN *
00161 RD1. SYN *
00161 OPNW. SYN *
00161 WR1. SYN *
00161 WR2. SYN *
00161 RD2. SYN *
00161 0634 00 4 00167 BFERR SXA BFX4,4
00162 FUNC BFCODE()
00163 0100 00 0 00174 TZE GOPRNT
00164 -0602 00 0 00301 ORS BFMES+1
00165 0074 00 4 00012 TSX WRFLX,4
00166 0 00002 0 00300 BFMES,,2
00167 0774 00 4 00000 BFX4 AXT **,4
00170 1 00001 4 00305 TXI DORMNT,4,1
RMT
DORMNT TIA =HDORMNT
RMT
00171 -0500 00 0 00302 DELERR CAL SKIPC
00172 0402 00 0 00306 SUB =5
00173 -0120 00 0 00025 TMI DEL.OK
00174 -0500 00 0 00313 GOPRNT CAL =HPRNTER
00175 0560 00 0 00311 LDQ =O377777777777
00176 0074 00 4 00013 TSX NEXCOM,4
00177 0074 00 4 00012 ILLEGL TSX WRFLX,4
00200 0 00005 0 00202 ILLCOM,,5
00201 0074 00 4 00014 TSX DEAD,4 EXIT TO CTSS ON ILLEGAL EOF
00202 622165252460 ILLCOM BCI 5,SAVED FILE HAS ILLEGAL FORMAT
* * * * * * * * * * * * * * * * * * * * * * * *
PUNCH ..... COMPUTE CHECKSUM AND WRITE OUT BINARY CARD
00207 0634 00 4 00235 PUNCH SXA PUNX4,4
00210 -0774 00 4 00026 AXC 22,4
00211 -0500 00 4 00242 PUN1 CAL DATA-1,4 CHECK FOR CARD OF ALL ZEROS
00212 -0100 00 0 00215 TNZ PUN2 .. SKIP WHEN NON-ZERO WORD FOUND
00213 3 77776 4 00232 TXH PUN3,4,-2 CHECK FOR END OF CARD
00214 1 00001 4 00211 TXI PUN1,4,1 INCREMENT INDEX, TEST NEXT DATA WORD
1 ... PUSAV, REDUCE SAVED FILE TO ABS CARDS PAGE 4
00215 -0756 00 4 00000 PUN2 PCD ,4 WORD COUNT TO AC
00216 -0501 00 0 00240 ORA 79PNCH ADD 7-9 PUNCHES
00217 0622 00 0 00241 STD CARD ADD TO ORIGIN
00220 -0500 00 0 00241 CAL CARD COMPUTE CHECKSUM FOR CARD
00221 0361 00 4 00242 ACL DATA-1,4 ..
00222 3 77776 4 00224 TXH *+2,4,-2 TEST
00223 1 00001 4 00221 TXI *-2,4,1 ADD NEXT WORD
00224 0602 00 0 00242 SLW CHKSUM SAVE LOGICAL CHECKSUM
00225 FUNC BFWRIT(FLNAM,ABNAM(CARD,,28)WR1.)
00232 0534 00 4 00241 PUN3 LXA CARD,4 BUMP ORIGIN FOR NEXT CARD
00233 1 00026 4 00234 TXI *+1,4,22 ..
00234 0634 00 4 00241 SXA CARD,4 ..
00235 0774 00 4 00000 PUNX4 AXT **,4 AND RETURN
00236 0020 00 4 00001 TRA 1,4 ..
* * * * * * * * * * * * * * * * * * * * * * * *
00237 0 00000 0 00660 BF PZE BFSIZ ..
00240 000500000000 79PNCH VFD O12/5 7-9 PUNCH FOR BINARY CARD
00241 0 00000 0 00000 CARD PZE 0,,** LOADING ORIGIN FOR FIRST CARD
00242 0 00000 0 00000 CHKSUM PZE 0 ..
00243 DATA BSS 22 .. 22 BINARY DATA WORDS
00271 +000000000000 OCT 0,0,0,0 .. ZEROS TO FILL OUT CARD TO 28 WORDS
00275 545454545454 FLNAM BCI 1,****** FILE NAME
00276 606221652524 SVNAM BCI 1, SAVED
00277 606060212262 ABNAM BCI 1, ABS
00300 142226146025 BFMES BCI 2,'BF' ERROR 0
00302 0 00000 0 00000 SKIPC PZE 0 WORD COUNT FOR STRANGE READING
00303 0 00000 0 00000 MEMBND PZE 0 FIRST TWO WORDS FROM 'SAVED' FILE
00304 0 00000 0 00000 ILC PZE 0 ..
00305 RMT * FORCE REMOTE SEQUENCES
00305 0101 00 0 00310 DORMNT TIA =HDORMNT .001
END
LITERALS
00306 000000000005
00307 000000077777
00310 244651444563
00311 377777777777
00312 400000000000
00313 475145632551
00314 516060606060
00315 666060606060
1 ... PUSAV, REDUCE SAVED FILE TO ABS CARDS PAGE 1
POST PROCESSOR ASSEMBLY DATA
316 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
46 B1 26
47 B2 30
100 B3 32
101 B4 35
102 B5 37
237 BF 27, 31, 34, 36, 40
304 ILC 136
167 BFX4 161
241 CARD 134, 141, 145, 217, 220, 230, 232, 234
243 DATA 111, 121, 126, 211, 221
14 DEAD 201
211 PUN1 214
215 PUN2 212
232 PUN3 213
161 RD1. 60, 73, 114, 131, 161
161 RD2. 156, 161
161 WR1. 146, 161, 231
161 WR2. 152, 161
277 ABNAM 22, 77, 144, 151, 227
161 BFERR
300 BFMES 164, 166
660 BFSIZ 15, 63, 237
275 FLNAM 17, 21, 44, 53, 66, 76, 107, 124, 143, 150, 154, 226
161 OPNW. 103, 161
161 OPRD. 51, 161
207 PUNCH 115, 132
235 PUNX4 207
302 SKIPC 24, 64, 70, 117, 126, 171
70 SKIPL 33
276 SVNAM 45, 54, 67, 110, 125, 155
12 WRFLX 165, 177
240 79PNCH 140, 216
3 BFCLOS 147, 153
4 BFCODE 162
0 BFOPEN 42, 74
1 BFREAD 52, 65, 106, 123
2 BFWRIT 142, 225
242 CHKSUM 224
11 CHNCOM 157
171 DELERR 23
6 DELFIL 20
25 DEL.OK 173
305 DORMNT 170
5 GETCOM 15
7 GETMEM 25
174 GOPRNT 163
202 ILLCOM 200
177 ILLEGL 56, 63, 71, 112, 127
303 MEMBND 55, 61, 104
13 NEXCOM 176
105 PUABS1 116
1 ... PUSAV, REDUCE SAVED FILE TO ABS CARDS PAGE 2
POST PROCESSOR ASSEMBLY DATA
117 PUABS2 105
10 SETMEM 41
0 NO ERROR IN ABOVE ASSEMBLY.
PRIME BCD 09/20/68 0220.6 9689 00000
1 MAD PROGRAM LISTING ... ... ... FILE PRIME MAD 03/01/68 1939.1
-
PRIMER FOR THE DAEMON'S FILES - ROGER ROACH 2-28-68 LM00001
TO BE USED TO RESET THE DATE DAEMON IS DUMPING FROM LM00002
LM00003
USAGE: LM00004
INTERRUPT THE DAEMON LM00005
R PRIME LM00006
TYPE IN THE REQUESTED DATE AND TIME LM00007
LM00008
IT FIRST DELETES THE DRSTOR FILES ON DAEMON'S DIRECTORY LM00009
THEN CREATES A DRSTOR FILE.3 USING THE TIME AND DATE. LM00010
LM00011
IF THE USER IS NOT PRIVILEGED ENOUGH BUT HAS CORE PATCH LM00012
PRIVILEGES, IT WILL PATCH URCODE TO A PRIVILEGED LM00013
COMMAND. LM00014
LM00015
THIS PROGRAM IS RESTRICTED TO M1416 USERS AND C33 960. LM00016
LM00017
NORMAL MODE IS INTEGER *001 LM00018
DIMENSION BUFF(431),ME(1) *002 LM00019
DIMENSION DATE(1), T(2) *003 LM00020
EQUIVALENCE (DATE(1),TIME) *004 LM00021
VECTOR VALUES SYS = $ C0056$ *005 LM00022
VECTOR VALUES DAEMON = $ 99999$ *006 LM00023
VECTOR VALUES DRSTOR = $DRSTOR$ *007 LM00024
VECTOR VALUES FILE1 = $FILE.1$ *008 LM00025
VECTOR VALUES FILE2 = $FILE.2$ *009 LM00026
VECTOR VALUES FILE3 = $FILE.3$ *010 LM00027
VECTOR VALUES PRVUSR = 16K *011 LM00028
VECTOR VALUES CORPAT = 2K1 *012 LM00029
VECTOR VALUES PATKEY = 2K4 *013 LM00030
VECTOR VALUES MZE = -0 *014 LM00031
VECTOR VALUES BL = 605757575757K *015 LM00032
VECTOR VALUES SLPTIM = 10 *016 LM00033
LM00034
FIRST TEST FOR CORRECT USER LM00035
LM00036
WHOAMI.(ME(1)...2) *017 LM00037
WHENEVER (ME(1).NE.$ M1416$).AND.(ME(1).NE.$C0033$.OR.ME.NE. *018 LM00038
1 $ 960$),TSK. *018 LM00039
PRMESS.($ THIS IS THE DAEMON PRIMER$) *019 LM00040
PRMESS.($ TYPE A C.R. TO CONTINUE.$) *020 LM00041
RDFLXC.(DATE,12) *021 LM00042
ATTNAM.(ME(1)...2) *022 LM00043
LM00044
NOW CHECK THE PRIVILEGES AND MAKE SURE WE CAN DO OUR STUFF. LM00045
LM00046
URCLOC = COMLOC.($URCODE$) *023 LM00047
URCODE = GLOC.(URCLOC) *024 LM00048
WHENEVER URCODE.A.PRVUSR.E.PRVUSR, TRANSFER TO OK *025 LM00049
IF A PRIV. COMMAND OR USER HAS ENOUGH PRIV, OK LM00050
LM00051
OTHERWISE SEE IF HE CAN PATCH CORE, IF NOT TOO BAD. LM00052
LM00053
WHENEVER URCODE.A.CORPAT.NE.CORPAT *026 LM00054
PRMESS.($INSUFFICIENT PRIVILEGES $) *027 LM00055
CHNCOM.(0) *028 LM00056
END OF CONDITIONAL *029 LM00057
LM00058
WE CAN PATCH CORE. MAKE SURE KEY 22 IS DOWN. LM00059
LM00060
TSTKEY WHENEVER KEY.(0).A.PATKEY.NE.PATKEY *030 LM00061
PRMESS.($KEY 22 IS NOT YET DOWN$) *031 LM00062
PRMESS.($ WILL RETRY IN 10 SECONDS.$) *032 LM00063
SLPTIM = SLPTIM *033 LM00064
SLEEP.(0) *034 LM00065
TRANSFER TO TSTKEY *035 LM00066
END OF CONDITIONAL *036 LM00067
LM00068
SLOC.(URCODE.V.PRVUSR,URCLOC) *037 LM00069
LM00070
OK, NOW DELETE THE FILES AND CREATE A NEW ONE FOR DAEMON. LM00071
LM00072
OK FERRTN.(FATERR) *038 LM00073
ATTACH.(SYS,DAEMON,ATTERR) *039 LM00074
CHFILE.(DRSTOR,FILE1,1,MZE,MZE,NO1) *040 LM00075
DELFIL.(DRSTOR,FILE1) *041 LM00076
NO1 CHFILE.(DRSTOR,FILE2,1,MZE,MZE,NO2) *042 LM00077
DELFIL.(DRSTOR,FILE2) *043 LM00078
NO2 CHFILE.(DRSTOR,FILE3,1,MZE,MZE,NO3) *044 LM00079
DELFIL.(DRSTOR,FILE3) *045 LM00080
NO3 PRMESS.($NOW TYPE IN THE DATE AND TIME TO RESET DAEMON.$) *046 LM00081
PRMESS.($EXAMPLE: '0612681925.0' FOR JUNE 12, 1968 AT 1925$) *047 LM00082
GETDAT A = RDFLXC.(DATE(0),12) *048 LM00083
WHENEVER A .L. 12 *049 LM00084
BADDAT PRMESS.($ BAD DATE OR TIME,$,BL,DATE,BL,TIME, *050 LM00085
1 $ - TRY AGAIN.$) *050 LM00086
TRANSFER TO GETDAT *051 LM00087
END OF CONDITIONAL *052 LM00088
CKDATE.(DATE,TIME,BADDAT) *053 LM00089
T(2) = $PROTCT$ *054 LM00090
T(1) = ((BCDEC.(TIME.RS.24.V.$ 00$)*60) + *055 LM00091
1 BCDEC.((TIME.RS.12.A.7777K).V.$ 00$))*3600 *055 LM00092
T = DATE *056 LM00093
OPEN.($W$,DRSTOR,FILE3,120K) *057 LM00094
BUFFER.(DRSTOR,FILE3,BUFF(431)...432) *058 LM00095
WRFILE.(DRSTOR,FILE3,0,T(2)...3) *059 LM00096
CLOSE.(DRSTOR,FILE3) *060 LM00097
RESETF.(0) *061 LM00098
ATTACH.(ME(1),ME,ATTERR) *062 LM00099
PRMESS.($ PRIMING COMPLETED.$) *063 LM00100
CHNCOM.(0) *064 LM00101
LM00102
COME HERE FOR A FALAT I/O ERROR LM00103
LM00104
FATERR ATTACH.(ME(1),ME,ATTERR) *065 LM00105
ATTERR NCOM.($PRNTER$,375K) *066 LM00106
END OF PROGRAM *067 LM00107
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01433 TRANSFER VECTOR LENGTH 00031 PROGRAM BEGINS 01056
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
A 00045 1 DAEMON 00730 A 1 FILE3 00734 A 1 NO3 00042 4 TIME 00032 1
ATTERR 00034 4 DATE 00033 A 1 GETDAT 00037 4 OK 00043 4 T 00746 A 1
BADDAT 00035 4 DRSTOR 00731 A 1 ME 00736 A 1 PATKEY 00740 A 1 TSTKEY 00044 4
BL 00046 A 1 FATERR 00036 4 MZE 00737 A 1 PRVUSR 00741 A 1 URCLOC 00747 1
BUFF 00726 A 1 FILE1 00732 A 1 NO1 00040 4 SLPTIM 00742 A 1 URCODE 00750 1
CORPAT 00727 A 1 FILE2 00733 A 1 NO2 00041 4 SYS 00743 A 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BCDEC 00002 1 BUFFER 00003 1 CHFILE 00004 1
CHNCOM 00005 1 CKDATE 00006 1 CLOSE 00007 1 COMLOC 00010 1 DELFIL 00011 1
EXIT 00012 1 FERRTN 00013 1 GLOC 00014 1 .SETUP 00015 1 KEY 00016 1
NCOM 00017 1 OPEN 00020 1 PRMESS 00021 1 RDFLXC 00022 1 RESETF 00023 1
SLEEP 00024 1 SLOC 00025 1 TSK 00026 1 WHOAMI 00027 1 WRFILE 00030 1
0ABSOLUTE CONSTANTS
00761 +000000000375 01022 -075145632551 01021 -074325632524 01014 -052760234644 01034 -204751314431
00754 +000000000003 00762 +000000000660 00760 +000000000120 01055 -266060606060 00763 +000000007020
00757 +000000000074 00756 +000000000030 01040 -206060600000 00764 +000000007777 01023 -075146632363
01025 -202127213145 01032 -204060635170 01045 -206331442573 00771 +216325604651 01026 -202221246024
00767 +056060606060 00772 +216360011102 01024 -200111061060 01013 -052560010273 01003 +264651604164
00766 +020533001460 00765 +010206100111 00777 +253560140006 01002 +256721444743 01012 -044645336060
01001 +256360242125 01052 -234660512562 01044 -206331442560 01050 -232560214524 01051 -233025602421
01020 -072560314560 01015 -054666606370 00776 +246233606060 01042 -206225234645 01030 -203145600100
01036 -205125635170 01041 -206066314343 00775 +244666456060 01053 -236070256360 01031 -203162604546
01010 -022570600202 00751 +000000000000 01011 -032527256260 01035 -204751316531 01004 +312331254563
01005 +314562642626 01054 -245123462425 00755 +000000000014 01007 +336060606060 01017 -056331456425
01046 -206346602346 00770 +216023335133 01047 -206370472560 01000 +255160606060 01016 -056047513144
01027 -202421254446 01006 +316260633025 01043 -206330316260 01033 -204401040106 00773 +230000030360
01037 -206060110600 00753 +000000000002 00752 +000000000001 00774 +233000000000
0STATEMENT DICTIONARY
00034 TXL -301426001423 00035 TXL -301317001304 00036 TXL -301423001417 00037 TXL -301300001274
00040 TXL -301234001225 00041 TXL -301246001237 00042 TXL -301262001251 00043 TXL -301207001205
00044 TXL -301157001146
0PROGRAM
N'R 001 LM00018
D'N BUFF(431),ME(1) 002 LM00019
D'N DATE(1), T(2) 003 LM00020
E'E (DATE(1),TIME) 004 LM00021
V'S SYS = $ C0056$ 005 LM00022
01056 TSX +0 07400 4 00015 00743 -2 02300 0 00506
V'S DAEMON = $ 99999$ 006 LM00023
00730 -2 01111 1 11111
V'S DRSTOR = $DRSTOR$ 007 LM00024
00731 +2 45162 6 34651
V'S FILE1 = $FILE.1$ 008 LM00025
00732 +2 63143 2 53301
V'S FILE2 = $FILE.2$ 009 LM00026
00733 +2 63143 2 53302
V'S FILE3 = $FILE.3$ 010 LM00027
00734 +2 63143 2 53303
V'S PRVUSR = 16K 011 LM00028
00741 +0 00000 0 00016
V'S CORPAT = 2K1 012 LM00029
00727 +0 00000 0 00020
V'S PATKEY = 2K4 013 LM00030
00740 +0 00000 0 20000
V'S MZE = -0 014 LM00031
00737 -0 00000 0 00000
V'S BL = 605757575757K 015 LM00032
00046 -2 05757 5 75757
V'S SLPTIM = 10 016 LM00033
00742 +0 00000 0 00012
WHOAMI.(ME(1)...2) 017 LM00037
01057 TSX +0 07400 4 00027 01060 TIX +2 00753 0 00735
W'R (ME(1).NE.$ M1416$).AND.(ME(1).NE.$C0033$.OR.ME.NE. 018 LM00038
1 $ 960$),TSK. 018 LM00039
01061 CLA +0 50000 0 00736 01062 SUB +0 40200 0 01037 01063 TNZ -0 10000 0 01067 01064 CLA +0 50000 0 00735
01065 SUB +0 40200 0 00773 01066 TZE +0 10000 0 01073 01067 CLA +0 50000 0 00735 01070 SUB +0 40200 0 01033
01071 TZE +0 10000 0 01073 01072 TSX +0 07400 4 00026
PRMESS.($ THIS IS THE DAEMON PRIMER$) 019 LM00040
01073 TSX +0 07400 4 00021 01074 TXH +3 00000 0 01043 01075 TXH +3 00000 0 01006 01076 TXH +3 00000 0 01027
01077 TXH +3 00000 0 01016 01100 TXH +3 00000 0 01000
PRMESS.($ TYPE A C.R. TO CONTINUE.$) 020 LM00041
01101 TSX +0 07400 4 00021 01102 TXH +3 00000 0 01047 01103 TXH +3 00000 0 00770 01104 TXH +3 00000 0 01046
01105 TXH +3 00000 0 01017 01106 TXH +3 00000 0 01007
RDFLXC.(DATE,12) 021 LM00042
01107 TSX +0 07400 4 00022 01110 TXH +3 00000 0 00033 01111 TXH +3 00000 0 00755
ATTNAM.(ME(1)...2) 022 LM00043
01112 TSX +0 07400 4 00001 01113 TIX +2 00753 0 00735
URCLOC = COMLOC.($URCODE$) 023 LM00047
01114 TSX +0 07400 4 00010 01115 TXH +3 00000 0 01054 01116 STO +0 60100 0 00747
URCODE = GLOC.(URCLOC) 024 LM00048
01117 TSX +0 07400 4 00014 01120 TXH +3 00000 0 00747 01121 STO +0 60100 0 00750
W'R URCODE.A.PRVUSR.E.PRVUSR, T'O OK 025 LM00049
01122 CAL -0 50000 0 00750 01123 ANA -0 32000 0 00741 01124 SLW +0 60200 0 01427 01125 CLA +0 50000 0 01427
01126 SUB +0 40200 0 00741 01127 TNZ -0 10000 0 01131 01130 TRA +0 02000 0 00043
W'R URCODE.A.CORPAT.NE.CORPAT 026 LM00054
01131 CAL -0 50000 0 00750 01132 ANA -0 32000 0 00727 01133 SLW +0 60200 0 01427 01134 CLA +0 50000 0 01427
01135 SUB +0 40200 0 00727 01136 TZE +0 10000 0 01146
PRMESS.($INSUFFICIENT PRIVILEGES $) 027 LM00055
01137 TSX +0 07400 4 00021 01140 TXH +3 00000 0 01005 01141 TXH +3 00000 0 01004 01142 TXH +3 00000 0 01035
01143 TXH +3 00000 0 01011
CHNCOM.(0) 028 LM00056
01144 TSX +0 07400 4 00005 01145 TXH +3 00000 0 00751
E'L 029 LM00057
TSTKEY W'R KEY.(0).A.PATKEY.NE.PATKEY 030 LM00061
01146 TSX +0 07400 4 00016 01147 TXH +3 00000 0 00751 01150 STO +0 60100 0 01427 01151 CAL -0 50000 0 01427
01152 ANA -0 32000 0 00740 01153 SLW +0 60200 0 01427 01154 CLA +0 50000 0 01427 01155 SUB +0 40200 0 00740
01156 TZE +0 10000 0 01177
PRMESS.($KEY 22 IS NOT YET DOWN$) 031 LM00062
01157 TSX +0 07400 4 00021 01160 TXH +3 00000 0 01010 01161 TXH +3 00000 0 01031 01162 TXH +3 00000 0 01053
01163 TXH +3 00000 0 00775
PRMESS.($ WILL RETRY IN 10 SECONDS.$) 032 LM00063
01164 TSX +0 07400 4 00021 01165 TXH +3 00000 0 01041 01166 TXH +3 00000 0 01036 01167 TXH +3 00000 0 01030
01170 TXH +3 00000 0 01042 01171 TXH +3 00000 0 00776
SLPTIM = SLPTIM 033 LM00064
01172 CLA +0 50000 0 00742 01173 STO +0 60100 0 00742
SLEEP.(0) 034 LM00065
01174 TSX +0 07400 4 00024 01175 TXH +3 00000 0 00751
T'O TSTKEY 035 LM00066
01176 TRA +0 02000 0 00044
E'L 036 LM00067
SLOC.(URCODE.V.PRVUSR,URCLOC) 037 LM00069
01177 CAL -0 50000 0 00750 01200 ORA -0 50100 0 00741 01201 SLW +0 60200 0 01427 01202 TSX +0 07400 4 00025
01203 TXH +3 00000 0 01427 01204 TXH +3 00000 0 00747
OK FERRTN.(FATERR) 038 LM00073
01205 TSX +0 07400 4 00013 01206 TXH +3 00000 0 00036
ATTACH.(SYS,DAEMON,ATTERR) 039 LM00074
01207 TSX +0 07400 4 00000 01210 TXH +3 00000 0 00743 01211 TXH +3 00000 0 00730 01212 TXH +3 00000 0 00034
CHFILE.(DRSTOR,FILE1,1,MZE,MZE,NO1) 040 LM00075
01213 TSX +0 07400 4 00004 01214 TXH +3 00000 0 00731 01215 TXH +3 00000 0 00732 01216 TXH +3 00000 0 00752
01217 TXH +3 00000 0 00737 01220 TXH +3 00000 0 00737 01221 TXH +3 00000 0 00040
DELFIL.(DRSTOR,FILE1) 041 LM00076
01222 TSX +0 07400 4 00011 01223 TXH +3 00000 0 00731 01224 TXH +3 00000 0 00732
NO1 CHFILE.(DRSTOR,FILE2,1,MZE,MZE,NO2) 042 LM00077
01225 TSX +0 07400 4 00004 01226 TXH +3 00000 0 00731 01227 TXH +3 00000 0 00733 01230 TXH +3 00000 0 00752
01231 TXH +3 00000 0 00737 01232 TXH +3 00000 0 00737 01233 TXH +3 00000 0 00041
DELFIL.(DRSTOR,FILE2) 043 LM00078
01234 TSX +0 07400 4 00011 01235 TXH +3 00000 0 00731 01236 TXH +3 00000 0 00733
NO2 CHFILE.(DRSTOR,FILE3,1,MZE,MZE,NO3) 044 LM00079
01237 TSX +0 07400 4 00004 01240 TXH +3 00000 0 00731 01241 TXH +3 00000 0 00734 01242 TXH +3 00000 0 00752
01243 TXH +3 00000 0 00737 01244 TXH +3 00000 0 00737 01245 TXH +3 00000 0 00042
DELFIL.(DRSTOR,FILE3) 045 LM00080
01246 TSX +0 07400 4 00011 01247 TXH +3 00000 0 00731 01250 TXH +3 00000 0 00734
NO3 PRMESS.($NOW TYPE IN THE DATE AND TIME TO RESET DAEMON.$) 046 LM00081
01251 TSX +0 07400 4 00021 01252 TXH +3 00000 0 01015 01253 TXH +3 00000 0 01020 01254 TXH +3 00000 0 01051
01255 TXH +3 00000 0 01050 01256 TXH +3 00000 0 01044 01257 TXH +3 00000 0 01052 01260 TXH +3 00000 0 01001
01261 TXH +3 00000 0 01012
PRMESS.($EXAMPLE: '0612681925.0' FOR JUNE 12, 1968 AT 1925$) 047 LM00082
01262 TSX +0 07400 4 00021 01263 TXH +3 00000 0 01002 01264 TXH +3 00000 0 00777 01265 TXH +3 00000 0 00765
01266 TXH +3 00000 0 00766 01267 TXH +3 00000 0 01003 01270 TXH +3 00000 0 01013 01271 TXH +3 00000 0 01024
01272 TXH +3 00000 0 00772 01273 TXH +3 00000 0 00767
GETDAT A = RDFLXC.(DATE(0),12) 048 LM00083
01274 TSX +0 07400 4 00022 01275 TXH +3 00000 0 00033 01276 TXH +3 00000 0 00755 01277 STO +0 60100 0 00045
W'R A .L. 12 049 LM00084
01300 CLA +0 50000 0 00045 01301 SUB +0 40200 0 00755 01302 TZE +0 10000 0 01320 01303 TPL +0 12000 0 01320
BADDAT PRMESS.($ BAD DATE OR TIME,$,BL,DATE,BL,TIME, 050 LM00085
1 $ - TRY AGAIN.$) 050 LM00086
01304 TSX +0 07400 4 00021 01305 TXH +3 00000 0 01026 01306 TXH +3 00000 0 00771 01307 TXH +3 00000 0 01045
01310 TXH +3 00000 0 00046 01311 TXH +3 00000 0 00033 01312 TXH +3 00000 0 00046 01313 TXH +3 00000 0 00032
01314 TXH +3 00000 0 01032 01315 TXH +3 00000 0 01025 01316 TXH +3 00000 0 01007
T'O GETDAT 051 LM00087
01317 TRA +0 02000 0 00037
E'L 052 LM00088
CKDATE.(DATE,TIME,BADDAT) 053 LM00089
01320 TSX +0 07400 4 00006 01321 TXH +3 00000 0 00033 01322 TXH +3 00000 0 00032 01323 TXH +3 00000 0 00035
T(2) = $PROTCT$ 054 LM00090
01324 CLA +0 50000 0 01023 01325 STO +0 60100 0 00744
T(1) = ((BCDEC.(TIME.RS.24.V.$ 00$)*60) + 055 LM00091
1 BCDEC.((TIME.RS.12.A.7777K).V.$ 00$))*3600 055 LM00092
01326 CAL -0 50000 0 00755 01327 STA +0 62100 0 01331 01330 CAL -0 50000 0 00032 01331 LGR -0 76500 0 00000
01332 ANA -0 32000 0 00764 01333 ORA -0 50100 0 01040 01334 SLW +0 60200 0 01427 01335 TSX +0 07400 4 00002
01336 TXH +3 00000 0 01427 01337 STO +0 60100 0 01427 01340 CAL -0 50000 0 00756 01341 STA +0 62100 0 01343
01342 CAL -0 50000 0 00032 01343 LGR -0 76500 0 00000 01344 ORA -0 50100 0 01040 01345 SLW +0 60200 0 01430
01346 TSX +0 07400 4 00002 01347 TXH +3 00000 0 01430 01350 XCA +0 13100 0 00000 01351 MPY +0 20000 0 00757
01352 XCA +0 13100 0 00000 01353 ADD +0 40000 0 01427 01354 XCA +0 13100 0 00000 01355 MPY +0 20000 0 00763
01356 STQ -0 60000 0 00745
T = DATE 056 LM00093
01357 CLA +0 50000 0 00033 01360 STO +0 60100 0 00746
OPEN.($W$,DRSTOR,FILE3,120K) 057 LM00094
01361 TSX +0 07400 4 00020 01362 TXH +3 00000 0 01055 01363 TXH +3 00000 0 00731 01364 TXH +3 00000 0 00734
01365 TXH +3 00000 0 00760
BUFFER.(DRSTOR,FILE3,BUFF(431)...432) 058 LM00095
01366 TSX +0 07400 4 00003 01367 TXH +3 00000 0 00731 01370 TXH +3 00000 0 00734 01371 TIX +2 00762 0 00047
WRFILE.(DRSTOR,FILE3,0,T(2)...3) 059 LM00096
01372 TSX +0 07400 4 00030 01373 TXH +3 00000 0 00731 01374 TXH +3 00000 0 00734 01375 TXH +3 00000 0 00751
01376 TIX +2 00754 0 00744
CLOSE.(DRSTOR,FILE3) 060 LM00097
01377 TSX +0 07400 4 00007 01400 TXH +3 00000 0 00731 01401 TXH +3 00000 0 00734
RESETF.(0) 061 LM00098
01402 TSX +0 07400 4 00023 01403 TXH +3 00000 0 00751
ATTACH.(ME(1),ME,ATTERR) 062 LM00099
01404 TSX +0 07400 4 00000 01405 TXH +3 00000 0 00735 01406 TXH +3 00000 0 00736 01407 TXH +3 00000 0 00034
PRMESS.($ PRIMING COMPLETED.$) 063 LM00100
01410 TSX +0 07400 4 00021 01411 TXH +3 00000 0 01034 01412 TXH +3 00000 0 01014 01413 TXH +3 00000 0 01021
01414 TXH +3 00000 0 01007
CHNCOM.(0) 064 LM00101
01415 TSX +0 07400 4 00005 01416 TXH +3 00000 0 00751
FATERR ATTACH.(ME(1),ME,ATTERR) 065 LM00105
01417 TSX +0 07400 4 00000 01420 TXH +3 00000 0 00735 01421 TXH +3 00000 0 00736 01422 TXH +3 00000 0 00034
ATTERR NCOM.($PRNTER$,375K) 066 LM00106
01423 TSX +0 07400 4 00017 01424 TXH +3 00000 0 01022 01425 TXH +3 00000 0 00761
E'M 067 LM00107
01426 TSX +0 07400 4 00012
1 MAD PROGRAM LISTING ... ... ... FILE CKDATE MAD 03/01/68 1940.0
-
EXTERNAL FUNCTION (DATEIN,TIMEIN,BADATE) *001 LM00001
ENTRY TO CKDATE. *002 LM00002
NORMAL MODE IS INTEGER *003 LM00003
STATEMENT LABEL BADATE *004 LM00004
DIMENSION MDY(3), MO(12), MASK(6), SHFT(6) *005 LM00005
DATE=DATEIN *006 LM00006
TIME=TIMEIN *007 LM00007
WHENEVER (DATE.A.766074606060K).NE.0 .OR. (TIME.A.746070600000K) *008 LM00008
1 .NE.0, TRANSFER TO BADATE *008 LM00009
SW=0 *009 LM00010
THROUGH LOOP1, FOR J=0,6,J.G.36 *010 LM00011
WHENEVER ((DATE.RS.J).A.77K) .E. 13K .OR. ((TIME.RS.J).A.77K) .E. *011 LM00012
1 14K, TRANSFER TO BADATE *011 LM00013
WHENEVER ((DATE.RS.J).A.77K) .E. 14K .OR. ((TIME.RS.J).A.77K) .E. *012 LM00014
1 13K, TRANSFER TO BADATE *012 LM00015
LOOP1 CONTINUE *013 LM00016
BACK THROUGH LOOP, FOR I=1,1,I.G.3 *014 LM00017
LOOP MDY(I)=((DATE.A.MASK(I)).RS.SHFT(I))*10 *015 LM00018
1 +((DATE.A.MASK(I+3)).RS.SHFT(I+3)) *015 LM00019
WHENEVER SW.NE.0, TRANSFER TO TIMCHK *016 LM00020
MO(2)=28 *017 LM00021
WHENEVER (MDY(3).NE.0).AND.(MDY(3)-(MDY(3)/4)*4).E.0, *018 LM00022
1 MO(2)=29 *018 LM00023
WHENEVER MDY(1).L.1 .OR. MDY(1).G.12, TRANSFER TO BADATE *019 LM00024
WHENEVER (MDY(3).L.0).OR.(MDY(3).G.99), TRANSFER TO BADATE *020 LM00025
WHENEVER (MDY(2).L.1).OR.(MDY(2).G.MO(MDY(1))), TRANSFER TO BADATE *021 LM00026
DATE=TIME *022 LM00027
SW=1 *023 LM00028
TRANSFER TO BACK *024 LM00029
TIMCHK WHENEVER MDY(1).L.0 .OR. MDY(1).GE.24, TRANSFER TO BADATE *025 LM00030
WHENEVER MDY(2).L.0 .OR. MDY(2).GE.60, TRANSFER TO BADATE *026 LM00031
FUNCTION RETURN *027 LM00032
VECTOR VALUES MO=0,31,28,31,30,31,30,31,31,30,31,30,31 *028 LM00033
VECTOR VALUES MDY=0,0,0,0 *029 LM00034
VECTOR VALUES MASK=0,770000000000K,77000000K,7700K,7700000000K,770000K *030 LM00035
1 ,77K *030 LM00036
VECTOR VALUES SHFT=0,30,18,6,24,12,0 *031 LM00037
END OF FUNCTION *032 LM00038
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00415 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00072
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
CKDATE 00073 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BACK 00002 4 J 00006 1 MASK 00015 A 1 SHFT 00045 A 1 TIMCHK 00003 4
DATE 00004 1 LOOP1 00001 4 MDY 00021 A 1 SW 00046 1 TIME 00047 1
I 00005 1 LOOP 00001 4 MO 00036 A 1
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00064 +000000000074 00060 +000000000030 00066 +000000000143 00062 +000000000035 00053 +000000000004
00061 +000000000034 00055 +000000000012 00052 +000000000003 00056 +000000000013 00057 +000000000014
00065 +000000000077 00063 +000000000044 00054 +000000000006 00071 -366074606060 00050 +000000000000
00070 -346070600000 00051 +000000000001 00067 +233000000000
0STATEMENT DICTIONARY
00002 TXL -300213000201 00003 TXL -300351000340
0PROGRAM
EXTERNAL FUNCTION (DATEIN,TIMEIN,BADATE) 001 LM00001
ENTRY TO CKDATE. 002 LM00002
00072 TRA +0 02000 0 00075 00073 SXA +0 63400 2 00364 00074 TSX +0 07400 2 00364
NORMAL MODE IS INTEGER 003 LM00003
STATEMENT LABEL BADATE 004 LM00004
DIMENSION MDY(3), MO(12), MASK(6), SHFT(6) 005 LM00005
DATE=DATEIN 006 LM00006
00075 CLA +0 50000 0 00024 00076 STO +0 60100 0 00004
TIME=TIMEIN 007 LM00007
00077 CLA +0 50000 0 00024 00100 STO +0 60100 0 00047
W'R (DATE.A.766074606060K).NE.0 .OR. (TIME.A.746070600000K) 008 LM00008
1.NE.0, T'O BADATE 008 LM00009
00101 CAL -0 50000 0 00047 00102 ANA -0 32000 0 00070 00103 SLW +0 60200 0 00411 00104 CLA +0 50000 0 00411
00105 SUB +0 40200 0 00050 00106 TNZ -0 10000 0 00115 00107 CAL -0 50000 0 00004 00110 ANA -0 32000 0 00071
00111 SLW +0 60200 0 00411 00112 CLA +0 50000 0 00411 00113 SUB +0 40200 0 00050 00114 TZE +0 10000 0 00116
00115 TRA +0 02000 0 00024
SW=0 009 LM00010
00116 CLA +0 50000 0 00050 00117 STO +0 60100 0 00046
THROUGH LOOP1, FOR J=0,6,J.G.36 010 LM00011
00120 CLA +0 50000 0 00050 00121 STO +0 60100 0 00006 00122 TRA +0 02000 0 00126 00123 CLA +0 50000 0 00006
00124 ADD +0 40000 0 00054 00125 STO +0 60100 0 00006 00126 CLA +0 50000 0 00006 00127 SUB +0 40200 0 00063
00130 TZE +0 10000 0 00132 00131 TPL +0 12000 0 00201
W'R ((DATE.RS.J).A.77K) .E. 13K .OR. ((TIME.RS.J).A.77K) .E. 011 LM00012
114K, T'O BADATE 011 LM00013
00132 CAL -0 50000 0 00006 00133 STA +0 62100 0 00135 00134 CAL -0 50000 0 00047 00135 LGR -0 76500 0 00000
00136 ANA -0 32000 0 00065 00137 SLW +0 60200 0 00411 00140 CLA +0 50000 0 00411 00141 SUB +0 40200 0 00057
00142 TZE +0 10000 0 00154 00143 CAL -0 50000 0 00006 00144 STA +0 62100 0 00146 00145 CAL -0 50000 0 00004
00146 LGR -0 76500 0 00000 00147 ANA -0 32000 0 00065 00150 SLW +0 60200 0 00411 00151 CLA +0 50000 0 00411
00152 SUB +0 40200 0 00056 00153 TNZ -0 10000 0 00155 00154 TRA +0 02000 0 00024
W'R ((DATE.RS.J).A.77K) .E. 14K .OR. ((TIME.RS.J).A.77K) .E. 012 LM00014
113K, T'O BADATE 012 LM00015
00155 CAL -0 50000 0 00006 00156 STA +0 62100 0 00160 00157 CAL -0 50000 0 00047 00160 LGR -0 76500 0 00000
00161 ANA -0 32000 0 00065 00162 SLW +0 60200 0 00411 00163 CLA +0 50000 0 00411 00164 SUB +0 40200 0 00056
00165 TZE +0 10000 0 00177 00166 CAL -0 50000 0 00006 00167 STA +0 62100 0 00171 00170 CAL -0 50000 0 00004
00171 LGR -0 76500 0 00000 00172 ANA -0 32000 0 00065 00173 SLW +0 60200 0 00411 00174 CLA +0 50000 0 00411
00175 SUB +0 40200 0 00057 00176 TNZ -0 10000 0 00200 00177 TRA +0 02000 0 00024
LOOP1 CONTINUE 013 LM00016
00200 TRA +0 02000 0 00123
BACK THROUGH LOOP, FOR I=1,1,I.G.3 014 LM00017
00201 CLA +0 50000 0 00051 00202 STO +0 60100 0 00005 00203 TRA +0 02000 0 00207 00204 CLA +0 50000 0 00005
00205 ADD +0 40000 0 00051 00206 STO +0 60100 0 00005 00207 CLA +0 50000 0 00005 00210 SUB +0 40200 0 00052
00211 TZE +0 10000 0 00213 00212 TPL +0 12000 0 00252
LOOP MDY(I)=((DATE.A.MASK(I)).RS.SHFT(I))*10 015 LM00018
1+((DATE.A.MASK(I+3)).RS.SHFT(I+3)) 015 LM00019
00213 CLA +0 50000 0 00005 00214 ADD +0 40000 0 00052 00215 STO +0 60100 0 00411 00216 CLA +0 50000 0 00005
00217 ADD +0 40000 0 00052 00220 PAX +0 73400 2 00000 00221 CAL -0 50000 0 00004 00222 ANA -0 32000 2 00015
00223 LXA +0 53400 2 00411 00224 SLW +0 60200 0 00411 00225 CAL -0 50000 2 00045 00226 STA +0 62100 0 00230
00227 CAL -0 50000 0 00411 00230 LGR -0 76500 0 00000 00231 LXA +0 53400 2 00005 00232 SLW +0 60200 0 00411
00233 CAL -0 50000 0 00004 00234 ANA -0 32000 2 00015 00235 SLW +0 60200 0 00412 00236 CAL -0 50000 2 00045
00237 STA +0 62100 0 00241 00240 CAL -0 50000 0 00412 00241 LGR -0 76500 0 00000 00242 SLW +0 60200 0 00412
00243 LDQ +0 56000 0 00412 00244 MPY +0 20000 0 00055 00245 XCA +0 13100 0 00000 00246 ADD +0 40000 0 00411
00247 LXA +0 53400 1 00005 00250 STO +0 60100 1 00021 00251 TRA +0 02000 0 00204
W'R SW.NE.0, T'O TIMCHK 016 LM00020
00252 CLA +0 50000 0 00046 00253 SUB +0 40200 0 00050 00254 TZE +0 10000 0 00256 00255 TRA +0 02000 0 00003
MO(2)=28 017 LM00021
00256 CLA +0 50000 0 00061 00257 STO +0 60100 0 00034
W'R (MDY(3).NE.0).AND.(MDY(3)-(MDY(3)/4)*4).E.0, 018 LM00022
1MO(2)=29 018 LM00023
00260 LDQ +0 56000 0 00016 00261 PXD -0 75400 0 00000 00262 LLS +0 76300 0 00000 00263 DVP +0 22100 0 00053
00264 MPY +0 20000 0 00053 00265 XCA +0 13100 0 00000 00266 CHS +0 76000 0 00002 00267 ADD +0 40000 0 00016
00270 SUB +0 40200 0 00050 00271 TNZ -0 10000 0 00277 00272 CLA +0 50000 0 00016 00273 SUB +0 40200 0 00050
00274 TZE +0 10000 0 00277 00275 CLA +0 50000 0 00062 00276 STO +0 60100 0 00034
W'R MDY(1).L.1 .OR. MDY(1).G.12, T'O BADATE 019 LM00024
00277 CLA +0 50000 0 00020 00300 SUB +0 40200 0 00057 00301 TZE +0 10000 0 00303 00302 TPL +0 12000 0 00307
00303 CLA +0 50000 0 00020 00304 SUB +0 40200 0 00051 00305 TZE +0 10000 0 00310 00306 TPL +0 12000 0 00310
00307 TRA +0 02000 0 00024
W'R (MDY(3).L.0).OR.(MDY(3).G.99), T'O BADATE 020 LM00025
00310 CLA +0 50000 0 00016 00311 SUB +0 40200 0 00066 00312 TZE +0 10000 0 00314 00313 TPL +0 12000 0 00320
00314 CLA +0 50000 0 00016 00315 SUB +0 40200 0 00050 00316 TZE +0 10000 0 00321 00317 TPL +0 12000 0 00321
00320 TRA +0 02000 0 00024
W'R (MDY(2).L.1).OR.(MDY(2).G.MO(MDY(1))), T'O BADATE 021 LM00026
00321 LXA +0 53400 2 00020 00322 CLA +0 50000 0 00017 00323 SUB +0 40200 2 00036 00324 TZE +0 10000 0 00326
00325 TPL +0 12000 0 00332 00326 CLA +0 50000 0 00017 00327 SUB +0 40200 0 00051 00330 TZE +0 10000 0 00333
00331 TPL +0 12000 0 00333 00332 TRA +0 02000 0 00024
DATE=TIME 022 LM00027
00333 CLA +0 50000 0 00047 00334 STO +0 60100 0 00004
SW=1 023 LM00028
00335 CLA +0 50000 0 00051 00336 STO +0 60100 0 00046
T'O BACK 024 LM00029
00337 TRA +0 02000 0 00002
TIMCHK W'R MDY(1).L.0 .OR. MDY(1).GE.24, T'O BADATE 025 LM00030
00340 CLA +0 50000 0 00020 00341 SUB +0 40200 0 00060 00342 TZE +0 10000 0 00350 00343 TPL +0 12000 0 00350
00344 CLA +0 50000 0 00020 00345 SUB +0 40200 0 00050 00346 TZE +0 10000 0 00351 00347 TPL +0 12000 0 00351
00350 TRA +0 02000 0 00024
W'R MDY(2).L.0 .OR. MDY(2).GE.60, T'O BADATE 026 LM00031
00351 CLA +0 50000 0 00017 00352 SUB +0 40200 0 00064 00353 TZE +0 10000 0 00361 00354 TPL +0 12000 0 00361
00355 CLA +0 50000 0 00017 00356 SUB +0 40200 0 00050 00357 TZE +0 10000 0 00362 00360 TPL +0 12000 0 00362
00361 TRA +0 02000 0 00024
FUNCTION RETURN 027 LM00032
00362 TRA +0 02000 0 00405
V'S MO=0,31,28,31,30,31,30,31,31,30,31,30,31 028 LM00033
00022 +0 00000 0 00037 00023 +0 00000 0 00036 00024 +0 00000 0 00037 00025 +0 00000 0 00036
00026 +0 00000 0 00037 00027 +0 00000 0 00037 00030 +0 00000 0 00036 00031 +0 00000 0 00037
00032 +0 00000 0 00036 00033 +0 00000 0 00037 00034 +0 00000 0 00034 00035 +0 00000 0 00037
00036 +0 00000 0 00000
V'S MDY=0,0,0,0 029 LM00034
00016 +0 00000 0 00000 00017 +0 00000 0 00000 00020 +0 00000 0 00000 00021 +0 00000 0 00000
V'S MASK=0,770000000000K,77000000K,7700K,7700000000K,770000K 030 LM00035
1,77K 030 LM00036
00007 +0 00000 0 00077 00010 +0 00000 7 70000 00011 +0 07700 0 00000 00012 +0 00000 0 07700
00013 +0 00077 0 00000 00014 -3 70000 0 00000 00015 +0 00000 0 00000
V'S SHFT=0,30,18,6,24,12,0 031 LM00037
00037 +0 00000 0 00000 00040 +0 00000 0 00014 00041 +0 00000 0 00030 00042 +0 00000 0 00006
00043 +0 00000 0 00022 00044 +0 00000 0 00036 00045 +0 00000 0 00000
END OF FUNCTION 032 LM00038
00363 TSX +0 07400 4 00000 00364 TXH +3 00000 0 00000 00365 SXD -0 63400 1 00364 00366 SXA +0 63400 4 00405
00367 CLA +0 50000 4 00001 00370 STA +0 62100 0 00075 00371 CLA +0 50000 4 00002 00372 STA +0 62100 0 00077
00373 CLA +0 50000 4 00003 00374 STA +0 62100 0 00115 00375 STA +0 62100 0 00154 00376 STA +0 62100 0 00177
00377 STA +0 62100 0 00307 00400 STA +0 62100 0 00320 00401 STA +0 62100 0 00332 00402 STA +0 62100 0 00350
00403 STA +0 62100 0 00361 00404 TRA +0 02000 2 00001 00405 AXT +0 77400 4 00000 00406 LXA +0 53400 2 00364
00407 LXD -0 53400 1 00364 00410 TRA +0 02000 4 00001
1 KEY - PROGRAM TO TEST SENSE SWITCHES AND KEYS. PAGE 1
* WRITTEN BY ROGER ROACH 2/14/67
*
* CALLING SEQUENCE -
*
* A = SS.(N)
* IF S.S. N IS ON A WILL BE NON-ZERO, OTHERWISE A = 0
* A = KEY.()
* A WILL CONTAIN THE INTEGER VALUE OF THE KEYS.
*
00003 ENTRY SS
00013 ENTRY KEY
TRANSFER VECTOR
00000 665126436760 WRFLX
LINKAGE DIRECTOR
00001 000000000000
00002 626260606060
00003 0634 00 4 00011 SS SXA XR4,4
00004 -0500 60 4 00001 CAL* 1,4 GET SS NUMBER 'N'
00005 0737 00 4 00000 PAC ,4 SWITCH NO TO XR4
00006 -3 77771 4 00016 TXL ERROR,4,-7
00007 0522 00 4 00026 XEC TBL,4 GET A SS TEST
00010 -0754 00 0 00000 ZAC OFF
00011 0774 00 4 00000 XR4 AXT **,4 ON
00012 0020 00 4 00001 TRA 1,4
*
*
00013 0760 00 0 00004 KEY ENK
00014 0131 00 0 00000 XCA
00015 0020 00 4 00001 TRA 1,4
*
00016 0074 00 4 00000 ERROR TSX $WRFLX,4
00017 0 00004 0 00022 PZE MESSAG,,4
00020 -0754 00 0 00000 ZAC
00021 0020 00 0 00011 TRA XR4
00022 314343252721 MESSAG BCI 4,ILLEGAL SENSE SWITCH.
00023 436062254562
00024 256062663163
00025 233033606060
*
00026 0760 00 0 00161 TBL SWT 1
00027 0760 00 0 00161 SWT 1
00030 0760 00 0 00162 SWT 2
00031 0760 00 0 00163 SWT 3
00032 0760 00 0 00164 SWT 4
00033 0760 00 0 00165 SWT 5
00034 0760 00 0 00166 SWT 6
END
1 KEY - PROGRAM TO TEST SENSE SWITCHES AND KEYS. PAGE 1
POST PROCESSOR ASSEMBLY DATA
35 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 SS 0
13 KEY 0
26 TBL 7
11 XR4 3, 21
16 ERROR 6
0 WRFLX 16
22 MESSAG 17
0 NO ERROR IN ABOVE ASSEMBLY.
QLOAD BCD 09/20/68 0220.7 21908 00000
1 MAD PROGRAM LISTING ... ... ... FILE QLOAD MAD 04/20/68 1608.9
-
PROGRAM TO REACTED TO OVERLOAD CONDITIONS LM00001
REWRITTEN BY ROGER ROACH 2/20/68 LM00002
FROM A PREVIOUS VERSION BY R. MILLS LM00003
NORMAL MODE IS INTEGER *001 LM00004
FLOATING POINT QLEN, QLEN1, QLEN2, FGLOC, FQLEN *002 LM00005
BOOLEAN OFLAG, QFLAG *003 LM00006
DIMENSION ME(1), FQLEN(1) *004 LM00007
LM00008
LM00009
VECTOR VALUES SYSMAX = 45 *005 LM00010
... MAXIMUM NUMBER OF USERS ALLOWED IN LM00011
LM00012
VECTOR VALUES SYSMIN = 12 *006 LM00013
... MINIMUM NUMBER OF USERS ALLOWED IN LM00014
LM00015
VECTOR VALUES NORMAL = 30 *007 LM00016
... NORMAL QUANTUM IN 60THS OF A SECOND LM00017
LM00018
VECTOR VALUES SPESHL = 60 *008 LM00019
... QUANTUM DURING OVERLOAD CONDITIONS (60THS) LM00020
LM00021
VECTOR VALUES QLEN1 = 8.0 *009 LM00022
... THRESHOLD FOR QUEUE LENGTH DURING OVERLOAD LM00023
LM00024
VECTOR VALUES QLEN2 = 10.0 *010 LM00025
... THRESHOLD FOR QUEUE LENGTH ANYTIME LM00026
LM00027
VECTOR VALUES OVFON = 10 *011 LM00028
... THRESHOLD WHEN OVERFLOW CONDITION IS ON LM00029
LM00030
VECTOR VALUES OVFOFF = 5 *012 LM00031
... THRESHOLD WHEN OVERFLOW CONDITION IS OFF LM00032
LM00033
VECTOR VALUES NDRUMS = 2 *013 LM00034
... NUMBER OF HIGH SPEED DRUMS ON CTSS LM00035
LM00036
VECTOR VALUES QFLAG = 0B *014 LM00037
... INDICATOR OF HIGH QUEUE LENGTH ON LAST LOOK LM00038
LM00039
VECTOR VALUES CUMOFT = 0 *015 LM00040
... CUMULATIVE OVERFLOW TIME (NOT PRESENTLY USED) LM00041
LM00042
VECTOR VALUES CUMTIM = 0 *016 LM00043
... CUMLATIVE TIME (NOT PRESENTLY USED) LM00044
LM00045
VECTOR VALUES SLPTIM = 300 *017 LM00046
... SLEEPING TIME (60THS) LM00047
LM00048
VECTOR VALUES COMMND = 777777777777K,$CTEST9$ *018 LM00049
... COMMAND EXECUTED UPON RETURN FROM I/C COMM. LM00050
LM00051
VECTOR VALUES BLANK = 605757575757K *019 LM00052
LM00053
INITIALIZATION LM00054
LM00055
SET UP COMMAND FOR RETURNING FROM I/C COMM. LM00056
LM00057
COMMND(1) = COMARG.(0) *020 LM00058
OFFON.($ QLOAD$) *021 LM00059
LM00060
LM00061
CHECK FOR CORRECT USER. LM00062
LM00063
WHOAMI.(ME(1)...2) *022 LM00064
LM00065
LET THE OPERATORS USE IT FOR NOW. LM00066
WHENEVER ME(1).E.$ C0033$ .AND. ME.E.$ 960$, TRANSFER TO OK *023 LM00067
WHENEVER (ME(1).NE.$ M1416$ .AND. ME(1).NE.$ T0100$) .OR. (ME.NE. *024 LM00068
1 $ 4301$.AND.ME.NE.$ 5886$.AND.ME.NE.$ 9324$.AND.ME.NE. *024 LM00069
2 $ 385$.AND.ME.NE.$ 3845$.AND.ME.NE.$ 2962$), TSK.(0) *024 LM00070
LM00071
INTIALIZE CORE A FETCHES. LM00072
LM00073
OK OVFLOC = ACORE.($OVRFLO$).RS.18 *025 LM00074
QUELOC = ACORE.($AVQLEN$).RS.18 *026 LM00075
QTMLOC = COMLOC.($QUANTM$) *027 LM00076
MXULOC = COMLOC.($MXUSRS$) *028 LM00077
NUSLOC = COMLOC.($NUSERS$) *029 LM00078
PROBN = COMLOC.($PROBN$) *030 LM00079
PROGN = COMLOC.($PROGN$) *031 LM00080
N = COMLOC.($N$) *032 LM00081
LM00082
SET MAXIMUM NUMBER OF USERS TO N-3 LM00083
LM00084
SYSMAX = N-3 *033 LM00085
LM00086
CALCULATE NUMBER OF SECTORS AVAILABLE ON HIGHSPEED DRUMS LM00087
LM00088
SCOUNT = 96 * NDRUMS - (N+2)/2 *034 LM00089
LM00090
AND WHERE THE DRUM FIGURES ARE KEPT LM00091
LM00092
SCTLOC = OVFLOC -4 -5*(N+1) -2*SCOUNT -((N+1)-((N+1)/2)*2) *035 LM00093
LM00094
SEE IF WE ARE TO RESET MXUSRS LM00095
WHENEVER COMARG.(1,ARG1).E.$ RESET$.AND.COMARG.(2,ARG2).NE. *036 LM00096
1 777777777777K *036 LM00097
ARG2 = BCDEC.(ARG2) *037 LM00098
WHENEVER ARG2.LE.SYSMAX .AND. ARG2.GE.SYSMIN *038 LM00099
SLOC.(ARG2,MXULOC) *039 LM00100
SYSMAX = ARG2 *040 LM00101
PRMESS.($MXUSRS RESET TO$,BZ57.(DERBC.(ARG2))) *041 LM00102
OTHERWISE *042 LM00103
PRMESS.($ILLEGAL MXUSRS SETTING IGNORED.$) *043 LM00104
END OF CONDITIONAL *044 LM00105
END OF CONDITIONAL *045 LM00106
LM00107
INITIALIZE THE QUANTUM CONDITION FLAG LM00108
LM00109
QUANTM = GLOC.(QTMLOC) *046 LM00110
WHENEVER QUANTM .E. NORMAL *047 LM00111
OFLAG = 0B *048 LM00112
OR WHENEVER QUANTM .E. SPESHL *049 LM00113
OFLAG = 1B *050 LM00114
OTHERWISE *051 LM00115
PRMESS.($UNEXPECTED QUANTUM$) *052 LM00116
CHNCOM.(0) *053 LM00117
END OF CONDITIONAL *054 LM00118
LM00119
INITIALIZE 'ELAPSED TIME IN OVERFLOW' CALCULATION LM00120
LM00121
NEWOFT = GLOC.(OVFLOC+1) *055 LM00122
NEWTIM = GETIME.(0) *056 LM00123
LM00124
PRINT HEADER LINE LM00125
LM00126
GETTM.(DATE,TIME) *057 LM00127
PRMESS.($ TIME CUR MAX QLEN HDRUM$,BLANK,DATE) *058 LM00128
LM00129
LM00130
START MAIN LOOP LM00131
LM00132
START GETTM.(DATE,TIME) *059 LM00133
OLDTIM = NEWTIM *060 LM00134
NEWTIM = GETIME.(0) *061 LM00135
DELTIM = NEWTIM - OLDTIM *062 LM00136
CUMTIM = CUMTIM + DELTIM *063 LM00137
LM00138
OLDOFT = NEWOFT *064 LM00139
NEWOFT = GLOC.(OVFLOC+1) *065 LM00140
DELOFT = NEWOFT - OLDOFT *066 LM00141
CUMOFT = CUMOFT + DELOFT *067 LM00142
LM00143
GET PERCENTAGE OF OVERFLOW ONTO DISK SINCE LAST LOOK LM00144
LM00145
PCNTOF = (100 * DELOFT)/DELTIM *068 LM00146
LM00147
GET PERCENTAGE OF HIGHSPEED DRUM USAGE LM00148
LM00149
PCNTDR = 100 * ( SCOUNT - GLOC.(SCTLOC))/SCOUNT *069 LM00150
LM00151
GET THE CURRENT QUEUE LENGTH LM00152
LM00153
FQLEN = FGLOC.(QUELOC) / 1000.0 + 0.05 *070 LM00154
QLEN = FQLEN *071 LM00155
FLOTBC.(FQLEN) *072 LM00156
LM00157
GET NUSERS AND MXUSRS AND PRINT A DATA LINE LM00158
LM00159
NUSERS = GLOC.(NUSLOC) *073 LM00160
MXUSRS = GLOC.(MXULOC) *074 LM00161
PRMESS.(TIME,BZEL.(DERBC.(NUSERS)),BZEL.(DERBC.(MXUSRS)), *075 LM00162
1 FQLEN ...2,BZEL.(DERBC.(PCNTDR))) *075 LM00163
LM00164
TEST DRUM OVERLOAD CONDITIONS AND REACT LM00165
LM00166
WHENEVER PCNTOF .GE. OVFON *076 LM00167
WHENEVER .NOT. OFLAG, SLOC.(SPESHL,QTMLOC) *077 LM00168
PRMESS.(BZ57.(DERBC.(PCNTOF)),$ PERCENT OVERFLOW$) *078 LM00169
OFLAG = 1B *079 LM00170
OR WHENEVER PCNTOF .LE. OVFOFF .AND. OFLAG *080 LM00171
SLOC.(NORMAL,QTMLOC) *081 LM00172
PRMESS.($NO MORE OVERFLOW$) *082 LM00173
OFLAG = 0B *083 LM00174
END OF CONDITIONAL *084 LM00175
LM00176
THE FOLLOWING SECTION AFFECTS NUSERS AND MXUSRS IN LM00177
RESPONSE TO THE OVERLOAD CONDITION AS DETERMINED BY THE LM00178
QUEUE LENGTH. IT WILL LOG OUT A STANDBY USER IF THE QUEUE LM00179
LENGTH IS ABOVE AN APPROPIATE THRESHOLD TWICE IN A ROW. IT LM00180
ALSO LOWERS MXUSRS BY 1 (DOWN TO SYSMIN). OTHERWISE IT LM00181
RAISES MXUSRS BY 1 (UP TO SYSMAX). LM00182
LM00183
WHENEVER (QLEN.G.QLEN2) .OR. (QLEN.G.QLEN1 .AND. OFLAG) *085 LM00184
WHENEVER QFLAG *086 LM00185
MAKE SURE IT WAS THIS WAY LAST TIME, THEN REACT LM00186
LM00187
WHENEVER MXUSRS.LE. SYSMIN, TRANSFER TO BED *087 LM00188
MXUSRS = NUSERS - 1 *088 LM00189
WHENEVER MXUSRS .LE. SYSMIN, MXUSRS = SYSMIN *089 LM00190
SLOC.(MXUSRS,MXULOC) *090 LM00191
PRMESS.($MXUSRS CUT TO$,BZ57.(DERBC.(MXUSRS))) *091 LM00192
LOSER = FINDSB.(0) *092 LM00193
WHENEVER LOSER .G. 2 *093 LM00194
KILL.(LOSER) *094 LM00195
PRMESS.($KILLED$,GLOC.(PROBN+LOSER), *095 LM00196
1 BLANK,GLOC.(PROGN+LOSER)) *095 LM00197
OTHERWISE *096 LM00198
PRMESS.($NO STANDBY USER TO KILL$) *097 LM00199
END OF CONDITIONAL *098 LM00200
OTHERWISE *099 LM00201
QFLAG = 1B *100 LM00202
MXUSRS = NUSERS *101 LM00203
WHENEVER MXUSRS .LE. SYSMIN, MXUSRS = SYSMIN *102 LM00204
SLOC.(MXUSRS,MXULOC) *103 LM00205
PRMESS.($MXUSRS CUT TO$,BZ57.(DERBC.(MXUSRS))) *104 LM00206
END OF CONDITIONAL *105 LM00207
OTHERWISE *106 LM00208
QFLAG = 0B *107 LM00209
WHENEVER MXUSRS .GE. SYSMAX, TRANSFER TO BED *108 LM00210
MXUSRS = MXUSRS + 1 *109 LM00211
SLOC.(MXUSRS,MXULOC) *110 LM00212
PRMESS.($MXUSRS RAISED TO$,(BZ57.(DERBC.(MXUSRS)) *111 LM00213
1 .A.7777K).V.57575757K4) *111 LM00214
END OF CONDITIONAL *112 LM00215
LM00216
LM00217
NOW GO TO SLEEP. LM00218
LM00219
BED WHENEVER COMARG.(1,ARG1).E.$ RESET$, ARG1 = COMARG.(3) *113 LM00220
WHENEVER BCDEC.(ARG1).E.0, ARG1 = 777777777777K *114 LM00221
WHENEVER ARG1.NE.777777777777K,SLPTIM=BCDEC.(ARG1)*60 *115 LM00222
SNOOZE.(SLPTIM,COMMND(1)) *116 LM00223
TRANSFER TO START *117 LM00224
LM00225
INTERNAL SUBROUTINES LM00226
LM00227
INTERNAL FUNCTION (ARG) *118 LM00228
ENTRY TO FGLOC. *119 LM00229
FUNCTION RETURN GLOC.(ARG) *120 LM00230
END OF FUNCTION *121 LM00231
LM00232
CONVERT TO BCD LM00233
LM00234
INTERNAL FUNCTION (NUM) *122 LM00235
ENTRY TO CONV. *123 LM00236
FUNCTION RETURN (BZEL.(DEFBC.(NUM)).A.777777K).V.575757K6 *124 LM00237
END OF FUNCTION *125 LM00238
LM00239
CONVERT FLOATING POINT TO BCD LM00240
LM00241
INTERNAL FUNCTION (NUM) *126 LM00242
ENTRY TO FLOTBC. *127 LM00243
FIX.(NUM,NUM,NUM(1)) *128 LM00244
NUM = CONV.(NUM) *129 LM00245
NUM(1) = (FRACBC.(NUM(1)).RS.6).A.77K8 .V. 330057575757K *130 LM00246
FUNCTION RETURN *131 LM00247
END OF FUNCTION *132 LM00248
LM00249
LM00250
END OF PROGRAM *133 LM00251
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01315 TRANSFER VECTOR LENGTH 00030 PROGRAM BEGINS 00226
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ARG1 00037 1 FQLEN 00052 A 0 NUSERS 00065 1 PCNTOF 00076 1 QUELOC 00107 1
ARG2 00040 1 LOSER 00053 1 NUSLOC 00066 1 PROBN 00077 1 SCOUNT 00110 1
BED 00034 4 ME 00055 A 1 OFLAG 00067 2 PROGN 00100 1 SCTLOC 00111 1
BLANK 00041 A 1 MXULOC 00056 1 OK 00035 4 QFLAG 00101 A 2 SLPTIM 00112 A 1
COMMND 00043 A 1 MXUSRS 00057 1 OLDOFT 00070 1 QLEN1 00102 A 0 SPESHL 00113 A 1
CUMOFT 00044 A 1 NDRUMS 00060 A 1 OLDTIM 00071 1 QLEN2 00103 A 0 START 00036 4
CUMTIM 00045 A 1 NEWOFT 00061 1 OVFLOC 00072 1 QLEN 00104 0 SYSMAX 00114 A 1
DATE 00046 1 NEWTIM 00062 1 OVFOFF 00073 A 1 QTMLOC 00105 1 SYSMIN 00115 A 1
DELOFT 00047 1 NORMAL 00063 A 1 OVFON 00074 A 1 QUANTM 00106 1 TIME 00116 1
DELTIM 00050 1 N 00064 1 PCNTDR 00075 1
0FUNCTION DICTIONARY
ACORE 00000 1 BCDEC 00001 1 BZ57 00002 1 BZEL 00003 1 CHNCOM 00004 1
COMARG 00005 1 COMLOC 00006 1 DEFBC 00007 1 DERBC 00010 1 EXIT 00011 1
FINDSB 00012 1 FIX 00013 1 FRACBC 00014 1 GETIME 00015 1 GETTM 00016 1
GLOC 00017 1 .SETUP 00020 1 KILL 00021 1 OFFON 00022 1 PRMESS 00023 1
SLOC 00024 1 SNOOZE 00025 1 TSK 00026 1 WHOAMI 00027 1 CONV 00030 1
FGLOC 00031 0 FLOTBC 00032 1
0ABSOLUTE CONSTANTS
00150 +330057575757 00134 +007700000000 00125 +000000000006 00172 -175757000000 00133 +000000777777
00127 +000000000074 00142 +246063466060 00203 -205121316225 00173 -175757570000 00132 +000000007777
00176 -204231434360 00221 -222551606346 00155 -052422706064 00157 -054660626321 00152 -023143432524
00163 -066060606060 00175 -202364636063 00144 +264346666060 00143 +256046652551 00156 -054660444651
00170 -112643466660 00161 -056360466525 00200 -204725512325 00135 +174631463146 00136 +212764000000
00131 +000000000144 00146 +302451644460 00201 -205043254560 00215 -206060442167 00214 -206060236451
00217 -206331442560 00223 -242145636444 00141 +236325246050 00224 -244525674725 00151 +336060606060
00145 +274546512524 00222 -233145276031 00171 -116260622563 00153 -036044676462 00147 +314343252721
00220 -206346606060 00204 -205125622563 00225 -377777777777 00123 +000000000004 00124 +000000000005
00130 +000000000140 00122 +000000000003 00160 -056060606060 00166 -075146274560 00165 -075146224560
00162 -056462255162 00154 -046764625162 00167 -106421456344 00137 +216550432545 00126 +000000000022
00164 -066551264346 00177 -204401040106 00216 -206300010000 00207 -206004030001 00210 -206005101006
00211 -206011030204 00212 -206060031005 00206 -206003100405 00205 -206002110602 00174 -202300000303
00213 -206060110600 00121 +000000000002 00202 -205043462124 00117 +000000000000 00120 +000000000001
00140 +233000000000
0STATEMENT DICTIONARY
00034 TXL -301135001125 00035 TXL -300310000300 00036 TXL -300540000535
0PROGRAM
N'R 001 LM00004
FLOATING POINT QLEN, QLEN1, QLEN2, FGLOC, FQLEN 002 LM00005
BOOLEAN OFLAG, QFLAG 003 LM00006
D'N ME(1), FQLEN(1) 004 LM00007
V'S SYSMAX = 45 005 LM00010
00226 TSX +0 07400 4 00020 00114 +0 00000 0 00055
V'S SYSMIN = 12 006 LM00013
00115 +0 00000 0 00014
V'S NORMAL = 30 007 LM00016
00063 +0 00000 0 00036
V'S SPESHL = 60 008 LM00019
00113 +0 00000 0 00074
V'S QLEN1 = 8.0 009 LM00022
00102 +2 04400 0 00000
V'S QLEN2 = 10.0 010 LM00025
00103 +2 04500 0 00000
V'S OVFON = 10 011 LM00028
00074 +0 00000 0 00012
V'S OVFOFF = 5 012 LM00031
00073 +0 00000 0 00005
V'S NDRUMS = 2 013 LM00034
00060 +0 00000 0 00002
V'S QFLAG = 0B 014 LM00037
00101 +0 00000 0 00000
V'S CUMOFT = 0 015 LM00040
00044 +0 00000 0 00000
V'S CUMTIM = 0 016 LM00043
00045 +0 00000 0 00000
V'S SLPTIM = 300 017 LM00046
00112 +0 00000 0 00454
V'S COMMND = 777777777777K,$CTEST9$ 018 LM00049
00042 +2 36325 6 26311 00043 -3 77777 7 77777
V'S BLANK = 605757575757K 019 LM00052
00041 -2 05757 5 75757
COMMND(1) = COMARG.(0) 020 LM00058
00227 TSX +0 07400 4 00005 00230 TXH +3 00000 0 00117 00231 STO +0 60100 0 00042
OFFON.($ QLOAD$) 021 LM00059
00232 TSX +0 07400 4 00022 00233 TXH +3 00000 0 00202
WHOAMI.(ME(1)...2) 022 LM00064
00234 TSX +0 07400 4 00027 00235 TIX +2 00121 0 00054
W'R ME(1).E.$ C0033$ .AND. ME.E.$ 960$, T'O OK 023 LM00067
00236 CLA +0 50000 0 00055 00237 SUB +0 40200 0 00213 00240 TNZ -0 10000 0 00245 00241 CLA +0 50000 0 00054
00242 SUB +0 40200 0 00174 00243 TNZ -0 10000 0 00245 00244 TRA +0 02000 0 00035
W'R (ME(1).NE.$ M1416$ .AND. ME(1).NE.$ T0100$) .OR. (ME.NE. 024 LM00068
1 $ 4301$.AND.ME.NE.$ 5886$.AND.ME.NE.$ 9324$.AND.ME.NE. 024 LM00069
2 $ 385$.AND.ME.NE.$ 3845$.AND.ME.NE.$ 2962$), TSK.(0) 024 LM00070
00245 CLA +0 50000 0 00055 00246 SUB +0 40200 0 00205 00247 TZE +0 10000 0 00267 00250 CLA +0 50000 0 00055
00251 SUB +0 40200 0 00206 00252 TZE +0 10000 0 00267 00253 CLA +0 50000 0 00055 00254 SUB +0 40200 0 00212
00255 TZE +0 10000 0 00267 00256 CLA +0 50000 0 00055 00257 SUB +0 40200 0 00211 00260 TZE +0 10000 0 00267
00261 CLA +0 50000 0 00055 00262 SUB +0 40200 0 00210 00263 TZE +0 10000 0 00267 00264 CLA +0 50000 0 00055
00265 SUB +0 40200 0 00207 00266 TNZ -0 10000 0 00276 00267 CLA +0 50000 0 00054 00270 SUB +0 40200 0 00216
00271 TZE +0 10000 0 00275 00272 CLA +0 50000 0 00054 00273 SUB +0 40200 0 00177 00274 TNZ -0 10000 0 00276
00275 TRA +0 02000 0 00300 00276 TSX +0 07400 4 00026 00277 TXH +3 00000 0 00117
OK OVFLOC = ACORE.($OVRFLO$).RS.18 025 LM00074
00300 TSX +0 07400 4 00000 00301 TXH +3 00000 0 00164 00302 STO +0 60100 0 01310 00303 CAL -0 50000 0 00126
00304 STA +0 62100 0 00306 00305 CAL -0 50000 0 01310 00306 LGR -0 76500 0 00000 00307 SLW +0 60200 0 00072
QUELOC = ACORE.($AVQLEN$).RS.18 026 LM00075
00310 TSX +0 07400 4 00000 00311 TXH +3 00000 0 00137 00312 STO +0 60100 0 01310 00313 CAL -0 50000 0 00126
00314 STA +0 62100 0 00316 00315 CAL -0 50000 0 01310 00316 LGR -0 76500 0 00000 00317 SLW +0 60200 0 00107
QTMLOC = COMLOC.($QUANTM$) 027 LM00076
00320 TSX +0 07400 4 00006 00321 TXH +3 00000 0 00167 00322 STO +0 60100 0 00105
MXULOC = COMLOC.($MXUSRS$) 028 LM00077
00323 TSX +0 07400 4 00006 00324 TXH +3 00000 0 00154 00325 STO +0 60100 0 00056
NUSLOC = COMLOC.($NUSERS$) 029 LM00078
00326 TSX +0 07400 4 00006 00327 TXH +3 00000 0 00162 00330 STO +0 60100 0 00066
PROBN = COMLOC.($PROBN$) 030 LM00079
00331 TSX +0 07400 4 00006 00332 TXH +3 00000 0 00165 00333 STO +0 60100 0 00077
PROGN = COMLOC.($PROGN$) 031 LM00080
00334 TSX +0 07400 4 00006 00335 TXH +3 00000 0 00166 00336 STO +0 60100 0 00100
N = COMLOC.($N$) 032 LM00081
00337 TSX +0 07400 4 00006 00340 TXH +3 00000 0 00160 00341 STO +0 60100 0 00064
SYSMAX = N-3 033 LM00085
00342 CLA +0 50000 0 00064 00343 SUB +0 40200 0 00122 00344 STO +0 60100 0 00114
SCOUNT = 96 * NDRUMS - (N+2)/2 034 LM00089
00345 CLA +0 50000 0 00064 00346 ADD +0 40000 0 00121 00347 LRS +0 76500 0 00043 00350 DVP +0 22100 0 00121
00351 STQ -0 60000 0 01310 00352 LDQ +0 56000 0 00130 00353 MPY +0 20000 0 00060 00354 XCA +0 13100 0 00000
00355 SUB +0 40200 0 01310 00356 STO +0 60100 0 00110
SCTLOC = OVFLOC -4 -5*(N+1) -2*SCOUNT -((N+1)-((N+1)/2)*2) 035 LM00093
00357 CLA +0 50000 0 00064 00360 ADD +0 40000 0 00120 00361 LRS +0 76500 0 00043 00362 DVP +0 22100 0 00121
00363 MPY +0 20000 0 00121 00364 STQ -0 60000 0 01310 00365 CLA +0 50000 0 00064 00366 ADD +0 40000 0 00120
00367 SUB +0 40200 0 01310 00370 STO +0 60100 0 01310 00371 LDQ +0 56000 0 00121 00372 MPY +0 20000 0 00110
00373 STQ -0 60000 0 01311 00374 CLA +0 50000 0 00064 00375 ADD +0 40000 0 00120 00376 XCA +0 13100 0 00000
00377 MPY +0 20000 0 00124 00400 STQ -0 60000 0 01312 00401 CLA +0 50000 0 00072 00402 SUB +0 40200 0 00123
00403 SUB +0 40200 0 01312 00404 SUB +0 40200 0 01311 00405 SUB +0 40200 0 01310 00406 STO +0 60100 0 00111
W'R COMARG.(1,ARG1).E.$ RESET$.AND.COMARG.(2,ARG2).NE. 036 LM00096
1 777777777777K 036 LM00097
00407 TSX +0 07400 4 00005 00410 TXH +3 00000 0 00121 00411 TXH +3 00000 0 00040 00412 SUB +0 40200 0 00225
00413 TZE +0 10000 0 00464 00414 TSX +0 07400 4 00005 00415 TXH +3 00000 0 00120 00416 TXH +3 00000 0 00037
00417 SUB +0 40200 0 00204 00420 TNZ -0 10000 0 00464
ARG2 = BCDEC.(ARG2) 037 LM00098
00421 TSX +0 07400 4 00001 00422 TXH +3 00000 0 00040 00423 STO +0 60100 0 00040
W'R ARG2.LE.SYSMAX .AND. ARG2.GE.SYSMIN 038 LM00099
00424 CLA +0 50000 0 00040 00425 SUB +0 40200 0 00115 00426 TZE +0 10000 0 00430 00427 TMI -0 12000 0 00455
00430 CLA +0 50000 0 00040 00431 SUB +0 40200 0 00114 00432 TZE +0 10000 0 00434 00433 TPL +0 12000 0 00455
SLOC.(ARG2,MXULOC) 039 LM00100
00434 TSX +0 07400 4 00024 00435 TXH +3 00000 0 00040 00436 TXH +3 00000 0 00056
SYSMAX = ARG2 040 LM00101
00437 CLA +0 50000 0 00040 00440 STO +0 60100 0 00114
PRMESS.($MXUSRS RESET TO$,BZ57.(DERBC.(ARG2))) 041 LM00102
00441 TSX +0 07400 4 00010 00442 TXH +3 00000 0 00040 00443 STO +0 60100 0 01312 00444 TSX +0 07400 4 00002
00445 TXH +3 00000 0 01312 00446 STO +0 60100 0 01312 00447 TSX +0 07400 4 00023 00450 TXH +3 00000 0 00154
00451 TXH +3 00000 0 00204 00452 TXH +3 00000 0 00220 00453 TXH +3 00000 0 01312
O'E 042 LM00103
00454 TRA +0 02000 0 00464
PRMESS.($ILLEGAL MXUSRS SETTING IGNORED.$) 043 LM00104
00455 TSX +0 07400 4 00023 00456 TXH +3 00000 0 00147 00457 TXH +3 00000 0 00153 00460 TXH +3 00000 0 00171
00461 TXH +3 00000 0 00222 00462 TXH +3 00000 0 00145 00463 TXH +3 00000 0 00151
E'L 044 LM00105
E'L 045 LM00106
QUANTM = GLOC.(QTMLOC) 046 LM00110
00464 TSX +0 07400 4 00017 00465 TXH +3 00000 0 00105 00466 STO +0 60100 0 00106
W'R QUANTM .E. NORMAL 047 LM00111
00467 CLA +0 50000 0 00106 00470 SUB +0 40200 0 00063 00471 TNZ -0 10000 0 00475
OFLAG = 0B 048 LM00112
00472 CLA +0 50000 0 00117 00473 STO +0 60100 0 00067
O'R QUANTM .E. SPESHL 049 LM00113
00474 TRA +0 02000 0 00511 00475 CLA +0 50000 0 00106 00476 SUB +0 40200 0 00113 00477 TNZ -0 10000 0 00503
OFLAG = 1B 050 LM00114
00500 CLA +0 50000 0 00120 00501 STO +0 60100 0 00067
O'E 051 LM00115
00502 TRA +0 02000 0 00511
PRMESS.($UNEXPECTED QUANTUM$) 052 LM00116
00503 TSX +0 07400 4 00023 00504 TXH +3 00000 0 00224 00505 TXH +3 00000 0 00141 00506 TXH +3 00000 0 00223
CHNCOM.(0) 053 LM00117
00507 TSX +0 07400 4 00004 00510 TXH +3 00000 0 00117
E'L 054 LM00118
NEWOFT = GLOC.(OVFLOC+1) 055 LM00122
00511 CLA +0 50000 0 00072 00512 ADD +0 40000 0 00120 00513 STO +0 60100 0 01312 00514 TSX +0 07400 4 00017
00515 TXH +3 00000 0 01312 00516 STO +0 60100 0 00061
NEWTIM = GETIME.(0) 056 LM00123
00517 TSX +0 07400 4 00015 00520 TXH +3 00000 0 00117 00521 STO +0 60100 0 00062
GETTM.(DATE,TIME) 057 LM00127
00522 TSX +0 07400 4 00016 00523 TXH +3 00000 0 00046 00524 TXH +3 00000 0 00116
PRMESS.($ TIME CUR MAX QLEN HDRUM$,BLANK,DATE) 058 LM00128
00525 TSX +0 07400 4 00023 00526 TXH +3 00000 0 00217 00527 TXH +3 00000 0 00214 00530 TXH +3 00000 0 00215
00531 TXH +3 00000 0 00201 00532 TXH +3 00000 0 00146 00533 TXH +3 00000 0 00041 00534 TXH +3 00000 0 00046
START GETTM.(DATE,TIME) 059 LM00133
00535 TSX +0 07400 4 00016 00536 TXH +3 00000 0 00046 00537 TXH +3 00000 0 00116
OLDTIM = NEWTIM 060 LM00134
00540 CLA +0 50000 0 00062 00541 STO +0 60100 0 00071
NEWTIM = GETIME.(0) 061 LM00135
00542 TSX +0 07400 4 00015 00543 TXH +3 00000 0 00117 00544 STO +0 60100 0 00062
DELTIM = NEWTIM - OLDTIM 062 LM00136
00545 CLA +0 50000 0 00062 00546 SUB +0 40200 0 00071 00547 STO +0 60100 0 00050
CUMTIM = CUMTIM + DELTIM 063 LM00137
00550 CLA +0 50000 0 00045 00551 ADD +0 40000 0 00050 00552 STO +0 60100 0 00045
OLDOFT = NEWOFT 064 LM00139
00553 CLA +0 50000 0 00061 00554 STO +0 60100 0 00070
NEWOFT = GLOC.(OVFLOC+1) 065 LM00140
00555 CLA +0 50000 0 00072 00556 ADD +0 40000 0 00120 00557 STO +0 60100 0 01312 00560 TSX +0 07400 4 00017
00561 TXH +3 00000 0 01312 00562 STO +0 60100 0 00061
DELOFT = NEWOFT - OLDOFT 066 LM00141
00563 CLA +0 50000 0 00061 00564 SUB +0 40200 0 00070 00565 STO +0 60100 0 00047
CUMOFT = CUMOFT + DELOFT 067 LM00142
00566 CLA +0 50000 0 00044 00567 ADD +0 40000 0 00047 00570 STO +0 60100 0 00044
PCNTOF = (100 * DELOFT)/DELTIM 068 LM00146
00571 LDQ +0 56000 0 00131 00572 MPY +0 20000 0 00047 00573 PXD -0 75400 0 00000 00574 LLS +0 76300 0 00000
00575 DVP +0 22100 0 00050 00576 STQ -0 60000 0 00076
PCNTDR = 100 * ( SCOUNT - GLOC.(SCTLOC))/SCOUNT 069 LM00150
00577 TSX +0 07400 4 00017 00600 TXH +3 00000 0 00111 00601 CHS +0 76000 0 00002 00602 ADD +0 40000 0 00110
00603 XCA +0 13100 0 00000 00604 MPY +0 20000 0 00131 00605 PXD -0 75400 0 00000 00606 LLS +0 76300 0 00000
00607 DVP +0 22100 0 00110 00610 STQ -0 60000 0 00075
FQLEN = FGLOC.(QUELOC) / 1000.0 + 0.05 070 LM00154
00611 TSX +0 07400 4 00031 00612 TXH +3 00000 0 00107 00613 FDP +0 24100 0 00136 00614 XCA +0 13100 0 00000
00615 FAD +0 30000 0 00135 00616 STO +0 60100 0 00052
QLEN = FQLEN 071 LM00155
00617 CLA +0 50000 0 00052 00620 STO +0 60100 0 00104
FLOTBC.(FQLEN) 072 LM00156
00621 TSX +0 07400 4 00032 00622 TXH +3 00000 0 00052
NUSERS = GLOC.(NUSLOC) 073 LM00160
00623 TSX +0 07400 4 00017 00624 TXH +3 00000 0 00066 00625 STO +0 60100 0 00065
MXUSRS = GLOC.(MXULOC) 074 LM00161
00626 TSX +0 07400 4 00017 00627 TXH +3 00000 0 00056 00630 STO +0 60100 0 00057
PRMESS.(TIME,BZEL.(DERBC.(NUSERS)),BZEL.(DERBC.(MXUSRS)), 075 LM00162
1 FQLEN ...2,BZEL.(DERBC.(PCNTDR))) 075 LM00163
00631 TSX +0 07400 4 00010 00632 TXH +3 00000 0 00075 00633 STO +0 60100 0 01312 00634 TSX +0 07400 4 00003
00635 TXH +3 00000 0 01312 00636 STO +0 60100 0 01312 00637 TSX +0 07400 4 00010 00640 TXH +3 00000 0 00057
00641 STO +0 60100 0 01311 00642 TSX +0 07400 4 00003 00643 TXH +3 00000 0 01311 00644 STO +0 60100 0 01311
00645 TSX +0 07400 4 00010 00646 TXH +3 00000 0 00065 00647 STO +0 60100 0 01310 00650 TSX +0 07400 4 00003
00651 TXH +3 00000 0 01310 00652 STO +0 60100 0 01310 00653 TSX +0 07400 4 00023 00654 TXH +3 00000 0 00116
00655 TXH +3 00000 0 01310 00656 TXH +3 00000 0 01311 00657 TIX +2 00121 0 00052 00660 TXH +3 00000 0 01312
W'R PCNTOF .GE. OVFON 076 LM00167
00661 CLA +0 50000 0 00076 00662 SUB +0 40200 0 00074 00663 TZE +0 10000 0 00665 00664 TMI -0 12000 0 00710
W'R .NOT. OFLAG, SLOC.(SPESHL,QTMLOC) 077 LM00168
00665 ZET +0 52000 0 00067 00666 TRA +0 02000 0 00672 00667 TSX +0 07400 4 00024 00670 TXH +3 00000 0 00113
00671 TXH +3 00000 0 00105
PRMESS.(BZ57.(DERBC.(PCNTOF)),$ PERCENT OVERFLOW$) 078 LM00169
00672 TSX +0 07400 4 00010 00673 TXH +3 00000 0 00076 00674 STO +0 60100 0 01312 00675 TSX +0 07400 4 00002
00676 TXH +3 00000 0 01312 00677 STO +0 60100 0 01312 00700 TSX +0 07400 4 00023 00701 TXH +3 00000 0 01312
00702 TXH +3 00000 0 00200 00703 TXH +3 00000 0 00161 00704 TXH +3 00000 0 00170
OFLAG = 1B 079 LM00170
00705 CLA +0 50000 0 00120 00706 STO +0 60100 0 00067
O'R PCNTOF .LE. OVFOFF .AND. OFLAG 080 LM00171
00707 TRA +0 02000 0 00727 00710 NZT -0 52000 0 00067 00711 TRA +0 02000 0 00727 00712 CLA +0 50000 0 00076
00713 SUB +0 40200 0 00073 00714 TZE +0 10000 0 00716 00715 TPL +0 12000 0 00727
SLOC.(NORMAL,QTMLOC) 081 LM00172
00716 TSX +0 07400 4 00024 00717 TXH +3 00000 0 00063 00720 TXH +3 00000 0 00105
PRMESS.($NO MORE OVERFLOW$) 082 LM00173
00721 TSX +0 07400 4 00023 00722 TXH +3 00000 0 00156 00723 TXH +3 00000 0 00143 00724 TXH +3 00000 0 00144
OFLAG = 0B 083 LM00174
00725 CLA +0 50000 0 00117 00726 STO +0 60100 0 00067
E'L 084 LM00175
W'R (QLEN.G.QLEN2) .OR. (QLEN.G.QLEN1 .AND. OFLAG) 085 LM00184
00727 NZT -0 52000 0 00067 00730 TRA +0 02000 0 00735 00731 CLA +0 50000 0 00104 00732 SUB +0 40200 0 00102
00733 TZE +0 10000 0 00735 00734 TPL +0 12000 0 00741 00735 CLA +0 50000 0 00104 00736 SUB +0 40200 0 00103
00737 TZE +0 10000 0 01071 00740 TMI -0 12000 0 01071
W'R QFLAG 086 LM00185
00741 NZT -0 52000 0 00101 00742 TRA +0 02000 0 01040
W'R MXUSRS.LE. SYSMIN, T'O BED 087 LM00188
00743 CLA +0 50000 0 00057 00744 SUB +0 40200 0 00115 00745 TZE +0 10000 0 00747 00746 TPL +0 12000 0 00750
00747 TRA +0 02000 0 00034
MXUSRS = NUSERS - 1 088 LM00189
00750 CLA +0 50000 0 00065 00751 SUB +0 40200 0 00120 00752 STO +0 60100 0 00057
W'R MXUSRS .LE. SYSMIN, MXUSRS = SYSMIN 089 LM00190
00753 CLA +0 50000 0 00057 00754 SUB +0 40200 0 00115 00755 TZE +0 10000 0 00757 00756 TPL +0 12000 0 00761
00757 CLA +0 50000 0 00115 00760 STO +0 60100 0 00057
SLOC.(MXUSRS,MXULOC) 090 LM00191
00761 TSX +0 07400 4 00024 00762 TXH +3 00000 0 00057 00763 TXH +3 00000 0 00056
PRMESS.($MXUSRS CUT TO$,BZ57.(DERBC.(MXUSRS))) 091 LM00192
00764 TSX +0 07400 4 00010 00765 TXH +3 00000 0 00057 00766 STO +0 60100 0 01312 00767 TSX +0 07400 4 00002
00770 TXH +3 00000 0 01312 00771 STO +0 60100 0 01312 00772 TSX +0 07400 4 00023 00773 TXH +3 00000 0 00154
00774 TXH +3 00000 0 00175 00775 TXH +3 00000 0 00163 00776 TXH +3 00000 0 01312
LOSER = FINDSB.(0) 092 LM00193
00777 TSX +0 07400 4 00012 01000 TXH +3 00000 0 00117 01001 STO +0 60100 0 00053
W'R LOSER .G. 2 093 LM00194
01002 CLA +0 50000 0 00053 01003 SUB +0 40200 0 00121 01004 TZE +0 10000 0 01032 01005 TMI -0 12000 0 01032
KILL.(LOSER) 094 LM00195
01006 TSX +0 07400 4 00021 01007 TXH +3 00000 0 00053
PRMESS.($KILLED$,GLOC.(PROBN+LOSER), 095 LM00196
1 BLANK,GLOC.(PROGN+LOSER)) 095 LM00197
01010 CLA +0 50000 0 00100 01011 ADD +0 40000 0 00053 01012 STO +0 60100 0 01312 01013 TSX +0 07400 4 00017
01014 TXH +3 00000 0 01312 01015 STO +0 60100 0 01312 01016 CLA +0 50000 0 00077 01017 ADD +0 40000 0 00053
01020 STO +0 60100 0 01311 01021 TSX +0 07400 4 00017 01022 TXH +3 00000 0 01311 01023 STO +0 60100 0 01311
01024 TSX +0 07400 4 00023 01025 TXH +3 00000 0 00152 01026 TXH +3 00000 0 01311 01027 TXH +3 00000 0 00041
01030 TXH +3 00000 0 01312
O'E 096 LM00198
01031 TRA +0 02000 0 01037
PRMESS.($NO STANDBY USER TO KILL$) 097 LM00199
01032 TSX +0 07400 4 00023 01033 TXH +3 00000 0 00157 01034 TXH +3 00000 0 00155 01035 TXH +3 00000 0 00221
01036 TXH +3 00000 0 00176
E'L 098 LM00200
O'E 099 LM00201
01037 TRA +0 02000 0 01070
QFLAG = 1B 100 LM00202
01040 CLA +0 50000 0 00120 01041 STO +0 60100 0 00101
MXUSRS = NUSERS 101 LM00203
01042 CLA +0 50000 0 00065 01043 STO +0 60100 0 00057
W'R MXUSRS .LE. SYSMIN, MXUSRS = SYSMIN 102 LM00204
01044 CLA +0 50000 0 00057 01045 SUB +0 40200 0 00115 01046 TZE +0 10000 0 01050 01047 TPL +0 12000 0 01052
01050 CLA +0 50000 0 00115 01051 STO +0 60100 0 00057
SLOC.(MXUSRS,MXULOC) 103 LM00205
01052 TSX +0 07400 4 00024 01053 TXH +3 00000 0 00057 01054 TXH +3 00000 0 00056
PRMESS.($MXUSRS CUT TO$,BZ57.(DERBC.(MXUSRS))) 104 LM00206
01055 TSX +0 07400 4 00010 01056 TXH +3 00000 0 00057 01057 STO +0 60100 0 01312 01060 TSX +0 07400 4 00002
01061 TXH +3 00000 0 01312 01062 STO +0 60100 0 01312 01063 TSX +0 07400 4 00023 01064 TXH +3 00000 0 00154
01065 TXH +3 00000 0 00175 01066 TXH +3 00000 0 00163 01067 TXH +3 00000 0 01312
E'L 105 LM00207
O'E 106 LM00208
01070 TRA +0 02000 0 01125
QFLAG = 0B 107 LM00209
01071 CLA +0 50000 0 00117 01072 STO +0 60100 0 00101
W'R MXUSRS .GE. SYSMAX, T'O BED 108 LM00210
01073 CLA +0 50000 0 00057 01074 SUB +0 40200 0 00114 01075 TZE +0 10000 0 01077 01076 TMI -0 12000 0 01100
01077 TRA +0 02000 0 00034
MXUSRS = MXUSRS + 1 109 LM00211
01100 CLA +0 50000 0 00057 01101 ADD +0 40000 0 00120 01102 STO +0 60100 0 00057
SLOC.(MXUSRS,MXULOC) 110 LM00212
01103 TSX +0 07400 4 00024 01104 TXH +3 00000 0 00057 01105 TXH +3 00000 0 00056
PRMESS.($MXUSRS RAISED TO$,(BZ57.(DERBC.(MXUSRS)) 111 LM00213
1 .A.7777K).V.57575757K4) 111 LM00214
01106 TSX +0 07400 4 00010 01107 TXH +3 00000 0 00057 01110 STO +0 60100 0 01312 01111 TSX +0 07400 4 00002
01112 TXH +3 00000 0 01312 01113 STO +0 60100 0 01312 01114 CAL -0 50000 0 01312 01115 ANA -0 32000 0 00132
01116 ORA -0 50100 0 00173 01117 SLW +0 60200 0 01312 01120 TSX +0 07400 4 00023 01121 TXH +3 00000 0 00154
01122 TXH +3 00000 0 00203 01123 TXH +3 00000 0 00142 01124 TXH +3 00000 0 01312
E'L 112 LM00215
BED W'R COMARG.(1,ARG1).E.$ RESET$, ARG1 = COMARG.(3) 113 LM00220
01125 TSX +0 07400 4 00005 01126 TXH +3 00000 0 00120 01127 TXH +3 00000 0 00037 01130 SUB +0 40200 0 00204
01131 TNZ -0 10000 0 01135 01132 TSX +0 07400 4 00005 01133 TXH +3 00000 0 00122 01134 STO +0 60100 0 00037
W'R BCDEC.(ARG1).E.0, ARG1 = 777777777777K 114 LM00221
01135 TSX +0 07400 4 00001 01136 TXH +3 00000 0 00037 01137 SUB +0 40200 0 00117 01140 TNZ -0 10000 0 01143
01141 CLA +0 50000 0 00225 01142 STO +0 60100 0 00037
W'R ARG1.NE.777777777777K,SLPTIM=BCDEC.(ARG1)*60 115 LM00222
01143 CLA +0 50000 0 00037 01144 SUB +0 40200 0 00225 01145 TZE +0 10000 0 01153 01146 TSX +0 07400 4 00001
01147 TXH +3 00000 0 00037 01150 XCA +0 13100 0 00000 01151 MPY +0 20000 0 00127 01152 STQ -0 60000 0 00112
SNOOZE.(SLPTIM,COMMND(1)) 116 LM00223
01153 TSX +0 07400 4 00025 01154 TXH +3 00000 0 00112 01155 TXH +3 00000 0 00042
T'O START 117 LM00224
01156 TRA +0 02000 0 00036
INTERNAL FUNCTION (ARG) 118 LM00228
01157 TRA +0 02000 0 01201
ENTRY TO FGLOC. 119 LM00229
01160 TRA +0 02000 0 01163 00031 TTR +0 02100 0 01161 01161 SXA +0 63400 2 01167 01162 TSX +0 07400 2 01167
FUNCTION RETURN GLOC.(ARG) 120 LM00230
01163 TSX +0 07400 4 00017 01164 TXH +3 00000 0 00024 01165 TRA +0 02000 0 01175
END OF FUNCTION 121 LM00231
01166 TSX +0 07400 4 00011 01167 TXH +3 00000 0 00000 01170 SXD -0 63400 1 01167 01171 SXA +0 63400 4 01175
01172 CLA +0 50000 4 00001 01173 STO +0 60100 0 01164 01174 TRA +0 02000 2 00001 01175 AXT +0 77400 4 00000
01176 LXA +0 53400 2 01167 01177 LXD -0 53400 1 01167 01200 TRA +0 02000 4 00001
INTERNAL FUNCTION (NUM) 122 LM00235
01201 TRA +0 02000 0 01235
ENTRY TO CONV. 123 LM00236
01202 TRA +0 02000 0 01205 00030 TTR +0 02100 0 01203 01203 SXA +0 63400 2 01222 01204 TSX +0 07400 2 01222
FUNCTION RETURN (BZEL.(DEFBC.(NUM)).A.777777K).V.575757K6 124 LM00237
01205 TSX +0 07400 4 00007 01206 TXH +3 00000 0 00024 01207 STO +0 60100 0 01234 01210 TSX +0 07400 4 00003
01211 TXH +3 00000 0 01234 01212 STO +0 60100 0 01234 01213 CAL -0 50000 0 01234 01214 ANA -0 32000 0 00133
01215 ORA -0 50100 0 00172 01216 SLW +0 60200 0 01234 01217 CLA +0 50000 0 01234 01220 TRA +0 02000 0 01230
END OF FUNCTION 125 LM00238
01221 TSX +0 07400 4 00011 01222 TXH +3 00000 0 00000 01223 SXD -0 63400 1 01222 01224 SXA +0 63400 4 01230
01225 CLA +0 50000 4 00001 01226 STO +0 60100 0 01206 01227 TRA +0 02000 2 00001 01230 AXT +0 77400 4 00000
01231 LXA +0 53400 2 01222 01232 LXD -0 53400 1 01222 01233 TRA +0 02000 4 00001
INTERNAL FUNCTION (NUM) 126 LM00242
01235 TRA +0 02000 0 01307
ENTRY TO FLOTBC. 127 LM00243
01236 TRA +0 02000 0 01241 00032 TTR +0 02100 0 01237 01237 SXA +0 63400 2 01265 01240 TSX +0 07400 2 01265
FIX.(NUM,NUM,NUM(1)) 128 LM00244
01241 TSX +0 07400 4 00013 01242 TXH +3 00000 0 00024 01243 TXH +3 00000 0 00024 01244 TXH +3 00000 0 00023
NUM = CONV.(NUM) 129 LM00245
01245 TSX +0 07400 4 00030 01246 TXH +3 00000 0 00024 01247 STO +0 60100 0 00024
NUM(1) = (FRACBC.(NUM(1)).RS.6).A.77K8 .V. 330057575757K 130 LM00246
01250 TSX +0 07400 4 00014 01251 TXH +3 00000 0 00023 01252 STO +0 60100 0 01306 01253 CAL -0 50000 0 00125
01254 STA +0 62100 0 01256 01255 CAL -0 50000 0 01306 01256 LGR -0 76500 0 00000 01257 ANA -0 32000 0 00134
01260 ORA -0 50100 0 00150 01261 SLW +0 60200 0 00023
FUNCTION RETURN 131 LM00247
01262 TRA +0 02000 0 01302
END OF FUNCTION 132 LM00248
01263 TSX +0 07400 4 00011 01264 PZE +0 00000 0 00001 01265 TXH +3 00000 0 00000 01266 SXD -0 63400 1 01265
01267 SXA +0 63400 4 01302 01270 CLA +0 50000 4 00001 01271 STO +0 60100 0 01242 01272 STO +0 60100 0 01243
01273 STO +0 60100 0 01246 01274 STA +0 62100 0 01247 01275 SUB +0 40200 0 01264 01276 STO +0 60100 0 01244
01277 STO +0 60100 0 01251 01300 STA +0 62100 0 01261 01301 TRA +0 02000 2 00001 01302 AXT +0 77400 4 00000
01303 LXA +0 53400 2 01265 01304 LXD -0 53400 1 01265 01305 TRA +0 02000 4 00001
END OF PROGRAM 133 LM00251
01307 TSX +0 07400 4 00011
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 1
2/8/66 - NOEL I. MORRIS
00001 ENTRY ISIN DETERMINE IF USER LOGGED IN
00026 ENTRY FINDSB FIND A STANDBY USER
00060 ENTRY KILL MURDER A LOSER
00135 ENTRY CHKLU CHECK FOR KLUDGE USER
UNLIST
M S COMMON M MACRO TO REDEFINE COMMON
M LDISW MACRO S,X
M STISW MACRO S,X
M CALL MACRO SUBR,LIST
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 2
ISIN - DETERMINE IF USER ALREADY LOGGED IN.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* LINE = ISIN. (PROB, PROG)
*
* IF USER IS NOT LOGGED IN, LINE IS SET TO ZERO.
* OTHERWISE LINE IS SET TO THE LINE NO. OF THE USER.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00001 0634 00 4 00021 ISIN SXA SX4,4 SAVE XR4
00002 -0500 60 4 00001 CAL* 1,4 PICK UP PROBLEM NO.
00003 0602 00 0 00151 SLW PROB ..
00004 -0500 60 4 00002 CAL* 2,4 AND PROGRAMMER NO.
00005 0602 00 0 00152 SLW PROG ..
00006 0774 00 4 00062 AXT N,4 SEARCH ALL N LINES
00007 LOOP XEC.A CAL(PROBN+N+1,4) GET PROBLEM NO.
00011 0322 00 0 00151 ERA PROB COMPARE
00012 -0100 00 0 00017 TNZ NEXT ..
00013 XEC.A CAL(PROGN+N+1,4) GET PROGRAMMER NO.
00015 0322 00 0 00152 ERA PROG COMPARE
00016 0100 00 0 00023 TZE FND USER FOUND
00017 2 00001 4 00007 NEXT TIX LOOP,4,1 ..
00020 -0754 00 0 00000 ZAC ZERO MEANS USER NOT FOUND
00021 0774 00 4 00000 SX4 AXT **,4 RESTORE XR4
00022 0020 00 4 00002 TRA 2,4 AND RETURN
00023 1 77715 4 00024 FND TXI *+1,4,-N-1 COMPUTE USER'S LINE NO.
00024 0756 00 4 00000 PCA ,4 AND PLACE IN A
00025 0020 00 0 00021 TRA SX4 RETURN WITH NO. IN AC
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 3
FINDSB - FIND A STANDBY USER.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* LOSER = FINDSB. (T.GRP)
*
*
* IF 'T.GRP' IS ZERO, THE STANDBY USER WHO HAS USED MOST TIME
* WILL BE RETURNED.
* IF 'T.GRP' IS NON-ZERO, THE STANDBY USER MUST BE IN
* PARTY-GROUP 'T.GRP'.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00026 0634 00 4 00056 FINDSB SXA FSX4,4 SAVE XR4
00027 0500 60 4 00001 CLA* 1,4 GET 'T.GRP'
00030 0602 00 0 00154 SLW T.GRP INSURE NUMBER POSITIVE
00031 0600 00 0 00153 STZ LOSER INITIALIZE
00032 0600 00 0 00155 STZ UTM ..
00033 -0774 00 4 00003 AXC 3,4 ..
00034 SBLOOP XEC.A NZT(PROBN,4) IF LOGGED IN,
00036 0020 00 0 00053 TRA SBTIX ..
00037 XEC.A CLA(GRPNO.,4) ..
00041 0120 00 0 00053 TPL SBTIX AND A STANDBY,
00042 -0520 00 0 00154 NZT T.GRP CHECK FOR 'T.GRP' SPECIFIED
00043 0020 00 0 00046 TRA *+3 ..
00044 0400 00 0 00154 ADD T.GRP COMPARE WITH SPECIFIED 'T.GRP'
00045 -0100 00 0 00053 TNZ SBTIX ..
00046 XEC.A CAL(UTIME,4) GET TIME USED
00050 -0340 00 0 00155 LAS UTM COMPARE AGAINST LARGEST
00051 0602 00 0 00155 SLW UTM SAVE LARGER TIME
00052 0636 00 4 00153 SCA LOSER,4 AND INDEX TO THE USER
00053 1 77777 4 00054 SBTIX TXI *+1,4,-1 GO ON TO THE NEXT
00054 3 77715 4 00034 TXH SBLOOP,4,-N-1 ..
00055 0500 00 0 00153 CLA LOSER GET USER INDEX
00056 0774 00 4 00000 FSX4 AXT **,4 RESTORE XR4
00057 0020 00 4 00002 TRA 2,4 AND RETURN
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 4
KILL - MURDER A LOSER.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* KILL. (LOSER)
*
*
* 'LOSER' IS THE LINE NUMBER OF THE USER TO BE
* MURDERED.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00060 0634 00 4 00132 KILL SXA KX4,4 SAVE XR4
00061 0634 00 2 00133 SXA KX2,2 AND XR2
00062 -0500 60 4 00001 CAL* 1,4 GET 'LOSER'
00063 0602 00 0 00153 SLW LOSER ..
00064 0737 00 2 00000 PAC ,2 -USER NO. IN XR2
00065 -0500 00 0 00170 CAL =HENDLOG COMMAND FOR 'LOSER'
00066 XEC.A SLW(COMMND,2) ..
00070 SCHEDL =2,LOSER,=1 PULL HIM OUT OF QUEUES AND
00074 SCHEDL =6,LOSER,=0 MAKE HIM RUN
00100 SCHEDL =2,LOSER,=3 AND PLACE IN WAITING COMMAND
00104 0600 00 0 00156 STZ 12MODE RESET 12-BIT MODE SWITCH
00105 ZETBIT ,2,FULBIT CHECK FOR USER IN 12-BIT MODE
00110 -0625 00 0 00156 STL 12MODE IF SO, SET 12-BIT MODE SWITCH
00111 STZBIT ,2,FULBIT MAKE SURE USER IN 6-BIT MODE
00116 CALL RSSWB AND FLUSH HIS OUTPUT BUFFERS
00116 0074 00 4 00160 TSX RSSWB,4 .002
00117 0 00000 0 00153 PZE LOSER ..
00120 COMENT WAIT.,1(WAIT,) AAAAGH ......
00120 0074 00 4 00161 TSX WRFLX,4 .003
00121 3 00001 0 00162 PAR WAIT.,,1 .005
00122 0 00000 0 00153 PZE LOSER ..
00123 -0520 00 0 00156 NZT 12MODE CHECK FOR USER PREVIOUSLY IN 12-BIT MODE
00124 0020 00 0 00132 TRA KX4 USER WAS IN 6-BIT MODE
00125 STLBIT ,2,FULBIT RESET USER'S 12-BIT MODE SWITCH
00132 0774 00 4 00000 KX4 AXT **,4 HE SCREAMS
00133 0774 00 2 00000 KX2 AXT **,2 BUT
00134 0020 00 4 00001 TRA 1,4 WE HAVE LEFT
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 5
CHKLU - CHECK FOR KLUDGE USER.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* CINDEX = CHKLU. ()
*
* INDEX IS ZERO IF USER IS NOT A KLUDGE USER.
* INDEX IS EITHER 1 OR 2 IF USER IS A KLUDGE USER.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00135 0634 00 4 00147 CHKLU SXA CKLX4,4 SAVE XR4
00136 -0500 00 0 77414 CAL CONSOL PICK UP USER CONSOLE I.D.
00137 -0774 00 4 00002 AXC 2,4 ONLY 2 KLUDGE CONSOLES
00140 KLOOP XEC.A LAS(KLUNIT-1,4) CHECK FOR KLUDGE CONSOLE
00142 0020 00 0 00144 TRA *+2 ..
00143 0020 00 0 00146 TRA KLFND FOUND ONE
00144 1 00001 4 00145 TXI *+1,4,1 STEP INDEX
00145 3 00000 4 00140 TXH KLOOP,4,0 AND CHECK FOR COMPLETION OF SEARCH
00146 0756 00 4 00000 KLFND PCA ,4 INDEX IN AC
00147 0774 00 4 00000 CKLX4 AXT **,4 RESTORE XR4
00150 0020 00 4 00001 TRA 1,4 AND RETURN WITH INDEX IN AC
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 6
STORAGE AND CONSTANTS.
00151 0 00000 0 00000 PROB PZE
00152 0 00000 0 00000 PROG PZE
00153 0 00000 0 00000 LOSER PZE
00154 0 00000 0 00000 T.GRP PZE
00155 0 00000 0 00000 UTM PZE
00156 0 00000 0 00000 12MODE PZE
INSERT TEMPA
*** COMMON PACKAGE FOR LOGIN PROGRAMS. ***
77444 KOMMON WDSLIN-1 ALL-PURPOSE CARD IMAGE BUFFER
77444 CARD KOMMON 1 ..
*** VECTOR USED BY RDACCT PROGRAMS. ***
77410 KOMMON 27
77410 TEMPA KOMMON 1
77411 NPROB SYN TEMPA+1 USER PROBLEM NUMBER
77412 NAME SYN TEMPA+2 USER NAME
77413 PASSW SYN TEMPA+3 PASSWORD
77414 CONSOL SYN TEMPA+4 CONSOLE I.D.
77415 NPROG SYN TEMPA+5 USER PROGRAMMER NUMBER
77416 TA1 SYN TEMPA+6 ALLOTTED TIME
77417 TA2 SYN TEMPA+7 ..
77420 TA3 SYN TEMPA+8 ..
77421 TA4 SYN TEMPA+9 ..
77422 TA5 SYN TEMPA+10 ..
77423 GRP SYN TEMPA+11 PARTY GROUP NUMBER
77424 SB SYN TEMPA+12 NON-ZERO IF USER MAY BE STANDBY
77425 NUFD SYN TEMPA+13 HOME FILE DIRECTORY
77426 UNIT SYN TEMPA+14 UNIT GROUP NUMBER
77427 CODE SYN TEMPA+15 USER RESTRICTION CODE (RCODE)
77430 LSTLGT SYN TEMPA+16 DATE AND TIME OF LAST LOGOUT (2 WORDS)
77432 USDFRM SYN TEMPA+18 DATE AND TIME TIME ACCUMULATED FROM
77434 TU1 SYN TEMPA+20 USED TIME
77435 TU2 SYN TEMPA+21 ..
77436 TU3 SYN TEMPA+22 ..
77437 TU4 SYN TEMPA+23 ..
77440 TU5 SYN TEMPA+24 ..
77441 TIMEIN SYN TEMPA+25 TOTAL CONSOLE TIME USED
77442 SYN TEMPA+26
77443 LSTUNT SYN TEMPA+27 CONSOLE LAST LOGGED OUT FROM
00157 0101 00 0 00172 SCHEDL TIA =HSCHEDL
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 7
STORAGE AND CONSTANTS.
00160 RMT * REMOTE SEQUENCES
00160 0101 00 0 00171 RSSWB TIA =HRSSWB .002
00161 0101 00 0 00173 WRFLX TIA =HWRFLX .002
00162 662131637360 WAIT. BCI 1,WAIT, .002
END
LITERALS
00163 000000000000
00164 000000000001
00165 000000000002
00166 000000000003
00167 000000000006
00170 254524434627
00171 516262662260
00172 622330252443
00173 665126436760
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
77407 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
174 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1 A 1
2 B 1
71471 C 1
62 N 1, 6, 10, 14, 23, 54
71511 MQ 1
71513 OV 1
73650 PB 1
77424 SB 157
71512 SI 1
71510 SQ 1
23 FND 16
77423 GRP 157
71476 ILC 1
74563 IOD 1
71505 IR1 1
71504 IR2 1
71503 IR3 1
71502 IR4 1
71501 IR5 1
71500 IR6 1
71477 IR7 1
1 .F. 1
0 .I. 1
133 KX2 61
132 KX4 60, 124
71507 LAC 1
21 SX4 1, 25
77416 TA1 157
77417 TA2 157
77420 TA3 157
77421 TA4 157
77422 TA5 157
1 TMP 1
77434 TU1 157
77435 TU2 157
77436 TU3 157
77437 TU4 157
77440 TU5 157
155 UTM 32, 50, 51
0 BASE 1
77444 CARD 157
77427 CODE 157
73612 DATE 1
71517 DVCK 1
71515 FLMD 1
56 FSX4 26
0 GETA 7, 13, 34, 37, 46, 66, 105, 111, 114, 125, 130, 140
71516 IOCK 1
1 ISIN 0
60 KILL 0
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 2
POST PROCESSOR ASSEMBLY DATA
7 LOOP 17
71514 MTMD 1
77412 NAME 157
17 NEXT 12
77425 NUFD 157
151 PROB 3, 11
152 PROG 5, 15
72523 Q1U1 1
72037 Q1U2 1
72522 Q3U1 1
71765 Q3U2 1
71520 SLTS 1
73632 SWAP 1
76623 TAU1 1
76540 TAU2 1
76455 TAU3 1
76372 TAU4 1
76307 TAU5 1
125000 UBTS 1
77426 UNIT 157
73613 USER 1
73564 WAIT 1
74164 ADOPT 1
71521 ASTAT 1
74332 AWAKE 1
71522 BSTAT 1
135 CHKLU 0
147 CKLX4 135
200000 CLKBT 1
73605 COMSW 1
72645 DBUF1 1
77777 ENBWD 1
1000 FULBT 1
100000 GPHBT 1
76056 ITIME 1
77461 ..001 1
77776 ..003 1
77147 ..011 1
76711 ..015 1
76705 ..018 1
73561 ..104 1
73524 ..106 1
72644 ..108 1
72570 ..110 1
72522 ..112 1
72521 ..114 1
72137 ..116 1
72036 ..118 1
71762 ..122 1
71734 ..126 1
71567 ..128 1
71534 ..137 1
71531 ..138 1
146 KLFND 143
140 KLOOP 145
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 3
POST PROCESSOR ASSEMBLY DATA
24 LCBUF 1
77546 LEVEL 1
153 LOSER 31, 52, 55, 63, 72, 76, 102, 117, 122
12 MAXLV 1
20000 NBKBT 1
4000 NCVBT 1
77411 NPROB 157
77415 NPROG 157
77413 PASSW 157
73525 PBUFF 1
77036 PLIST 1
71473 PRIND 1
75773 PROBN 1, 10, 35
75710 PROGN 1, 14
71506 PTIRS 1
3 QUITL 1
75245 RCODE 1
73562 READY 1
71474 RLIND 1
160 RSSWB 116
53 SBTIX 36, 41, 45
73620 SHIFT 1
73617 STNBY 1
73606 SWPSW 1
73635 TBASE 1
77410 TEMPA 157
154 T.GRP 30, 42, 44
52004 UBITS 1
75542 UFDNM 1
76725 ULIST 1
75625 UNAME 1
76224 UTIME 1, 47
162 WAIT. 121
161 WRFLX 120
156 12MODE 104, 110, 123
12 ACTFIL 1
53 AFS1LN 1
361 AFS2LN 1
25 AFSCON 1
26 AFSENL 1
72571 AFSTU1 1
72140 AFSTU2 1
73565 ATLOST 1
71526 ATRILC 1
71542 AUTHOR 1
73575 AUTOND 1
73570 BASEAD 1
73640 BEGTIM 1
73566 BKGATT 1
73603 BKGTIM 1
71535 BREAKL 1
71536 BRKILC 1
71527 BTRILC 1
71737 CCBSAV 1
5 CDEPTH 1
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 4
POST PROCESSOR ASSEMBLY DATA
71763 CFSAVE 1
71736 CLCSAV 1
40 CLKBIT 1
73574 CLKTIM 1
24 CLNGTH 1
77461 COMBAS 1
74646 COMCTR 1
73733 COMFSW 1
75014 COMMND 1, 67
77462 COMRLC 1
73601 COMTIM 1
73576 COMWAT 1
77414 CONSOL 136, 157
73646 CURUSR 1
73611 DATEYR 1
73567 DEMKEY 1
73571 DSKLOC 1
73563 DUMMY8 1
71764 EMCOND 1
73626 EMPLVL 1
76712 ENDPTR 1
73614 ESTTIM 1
1 FIBBIT 1
73615 FIBPTR 1
73616 FIBRUN 1
26 FINDSB 0
4 FULBIT 1, 107, 113, 127
73625 FULLEN 1
73627 FULLVL 1
40000 GPHBIT 1
43 GROUPS 1
75330 GRPNO. 1, 40
75413 GRPTBL 1
73621 HANGUP 1
400 HNGLBT 1
10 HUNGBT 1
74731 ILINES 1
73622 INACTV 1
100 INTBIT 1
76710 KLUNIT 1, 141
76706 KLUSER 1
77631 LENGTH 1
73623 LEVINC 1
73633 LEVTIM 1
77430 LSTLGT 157
77443 LSTUNT 157
71472 MACOND 1
73631 MAXLVL 1
73636 MAXTIM 1
71475 MEMBND 1
73630 MINLVL 1
73647 MXUSRS 1
1000 NBACBT 1
10000 NBKBIT 1
2000 NCVBIT 1
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 5
POST PROCESSOR ASSEMBLY DATA
10000 NDEMBT 1
77777 NEWTOP 1
73644 NEWUSR 1
4000 NFIBBT 1
2000 NFORBT 1
200 NINTBT 1
76141 NOTIME 1
20000 NPRCBT 1
73607 NUSERS 1
660 NWDSPT 1
73573 NWORDS 1
74101 OKPROB 1
74016 OKPROG 1
71530 OLDILC 1
77461 OLDTOP 1
73645 OLDUSR 1
20 OUTPBT 1
73634 PAYTIM 1
73643 PAYUSR 1
45 Q1U1LN 1
100 Q1U2LN 1
0 Q3U1LN 1
51 Q3U2LN 1
73624 QNTWAT 1
73637 QUANTM 1
100 R636BT 1
2 RCALBT 1
1 RCOMBT 1
200 RDSKBT 1
40 RKLDBT 1
20 RPATBT 1
4 RPROBT 1
10 RPRVBT 1
71541 SAVEM1 1
34 SBLOOP 54
157 SCHEDL 70, 74, 100
77714 STATUS 1
73572 STOPSW 1
77315 STRTIM 1
71570 SUBCOM 1
75457 SUBSYS 1
73602 SWPTIM 1
73577 SWPWAT 1
73641 SYSDAT 1
73642 SYSTIM 1
77441 TIMEIN 157
74247 TIMINC 1
77463 TIMLEV 1
73610 TIMNOW 1
71524 TINHIB 1
73604 TOTTIM 1
71523 TSSFSW 1
1 UBACBT 1
74415 UCHARG 1
74500 UCLOCK 1
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 6
POST PROCESSOR ASSEMBLY DATA
71544 UCOMBF 1
2 UCOMBT 1
10 UDEMBT 1
71525 UENBWD 1
71537 UFERTN 1
4 UFIBBT 1
2 UFORBT 1
71540 UILOCK 1
75077 UNITID 1
20 UPRCBT 1
71543 URCODE 1
77432 USDFRM 157
73600 USRWAT 1
75162 USWICH 1, 106, 112, 115, 126, 131
71735 WATCOM 1
77400 WATTIM 1
16 WDSLIN 1, 157
77232 WRKTIM 1
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 1
* MODIFIED FOR OFFON OPTION BY ROGER ROACH 4/01/68
PCC ON
NOLNK
00000 ENTRY -WRFLX
00004 ENTRY -WRFLXA
00131 ENTRY -CHNCOM
00134 ENTRY -NEXCOM
00142 ENTRY -DORMNT
00145 ENTRY -DEAD
00150 ENTRY -SLEEP
00214 ENTRY ON
00231 ENTRY OFF
00227 ENTRY OFFON
00264 ENTRY SSPRNT
LBL WRFLX
PCC OFF
*
* TO SET PRINTING OFF-LINE, CALL OFF.(-NAME1-,-NAME2-)
* NAME1,NAME2 ARE PRESET TO 'WRFLX OUTPUT', MISSING
* ARGUMENTS ARE SUBSTITUTED BY THEIR OLD VALUES.
* TO SET PRINTING BACK TO ON-LINE (I.E. TIA TO WRFLX),
* CALL ON.()
* TO SET SINGLE SPACE MODE ON OR OFF, CALL SSPRNT.(X),
* WHERE X IS 0 TO FORCE SINGLE SPACE ON OUTPUT, NON-
* ZERO OTHERWISE. SINGLE SPACE MODE PRECEDES A LINE
* BY A BLANK WORD WHEN WRITING INTO A FILE. THIS IS
* THE INITIAL SETTING.
* OUTPUT LINES SENT TO WRFLXA WHICH END IN 555757575757(8)
* OR 005500570057(8), I.E. A C.R. FOLLOWED BY NULLS,
* CAUSE A NEW LINE TO BE BEGUN ON THE NEXT CALL, JUST
* AS THOUGH WRFLX HAD BEEN CALLED. SUCCESSIVE CALLS
* TO WRFLXA OTHERWISE CONTINUE TO APPEND TO THE SAME
* LINE, BY UPDATING THE LINEMARK IN THE OUTPUT FILE.
*
UNLIST
M CALL MACRO SUBR,ARGS
M TSX MACRO SUBR,T DEFINES TIA IF SUBR UNDEF.
00000 -0520 00 0 00330 WRFLX NZT WROFF ON-LINE OR OFF. Q
00001 0101 00 0 01260 TIA =HWRFLX ON-LINE.
00002 0600 00 0 00323 STZ WXA OFF, SET FLAG FOR WRFLX.
00003 0020 00 0 00007 TRA START
00004 -0520 00 0 00330 WRFLXA NZT WROFF ON OR OFF. Q
00005 0101 00 0 01257 TIA =HWRFLXA ON.
00006 -0625 00 0 00323 STL WXA OF, SET FLAG FOR WRFLXA.
00007 0634 00 4 00123 START SXA XR4,4 SAVE XR4.
00010 OPN CALL OPEN(=HW,NM1,NM2,=-0,=-0,OPNER,ERCOD)
00010 TSX OPEN,4 .003
00011 3 00000 0 01262 PAR =HW .003
00012 3 00000 0 01223 PAR NM1 .003
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 2
00013 3 00000 0 01224 PAR NM2 .003
00014 3 00000 0 01252 PAR =-0 .003
00015 3 00000 0 01252 PAR =-0 .003
00016 3 00000 0 00311 PAR OPNER .003
00017 3 00000 0 00342 PAR ERCOD .003
00020 CALL BUFFER(NM1,NM2,(BUF,,432))
00020 TSX BUFFER,4 .003
00021 3 00000 0 01223 PAR NM1 .003
00022 3 00000 0 01224 PAR NM2 .003
00023 3 00660 0 00343 PAR BUF,,432 .003
00024 OPENED CALL FSTATE(NM1,NM2,(LTH,,1))
00024 TSX FSTATE,4 .003
00025 3 00000 0 01223 PAR NM1 .003
00026 3 00000 0 01224 PAR NM2 .003
00027 3 00001 0 00333 PAR LTH,,1 .003
00030 0522 00 0 00123 XEC XR4 RESTORE XR4.
00031 0560 00 4 00001 LDQ 1,4 GET OUTPUT POINTER.
00032 -0520 00 0 00323 NZT WXA WRFLXA CALL. Q
00033 0020 00 0 00055 TRA NOCR NO, JUST SKIP.
00034 -0500 00 4 00001 CAL 1,4 ELSE, GET THE POINTER AGAIN.
00035 0621 00 0 00043 STA CAL CHECK IF LAST WORD IN BUFFER
00036 -0734 00 4 00000 PDX 0,4 IS C.R. FOLLOWED BY 5 NULLS.
00037 0754 00 4 00000 PXA 0,4 *****GAZABE*****
00040 0400 00 0 00043 ADD CAL
00041 0402 00 0 01236 SUB =1 ADDRESS OF LAST WORD IN BUFFER.
00042 0621 00 0 00043 STA CAL
00043 -0500 00 0 00000 CAL CAL - GET WORD.
00044 -0340 00 0 01255 LAS =O555757575757 IS C.R. Q
00045 0020 00 0 00047 TRA *+2 NOT 6-BIT KIND.
00046 0020 00 0 00051 TRA C.R.
00047 0322 00 0 01242 ERA =O005500570057 OTHER KIND MAYBE. Q
00050 -0100 00 0 00055 TNZ NOCR NO, SO FORGET IT, IT AIN'T TRAGIC.
00051 0600 00 0 00323 C.R. STZ WXA ELSE, PRETEND THIS CALL WAS WRFLX.
00052 -0130 00 0 00000 XCL GET FRESH POINTER.
00053 0402 00 0 01241 SUB =O1000000 AND FORGET LAST WORD.
00054 0020 00 0 00056 TRA NOCR+1 *****GOTCHA*****
00055 -0130 00 0 00000 NOCR XCL REAL WRFLX CALL COMES HERE.
00056 0621 00 0 00120 STA WR+4
00057 0622 00 0 00120 STD WR+4
00060 0520 00 0 00324 ZET WA CHECK FOR PREVIOUS WRFLXA.
00061 0020 00 0 00103 TRA REWR IF SO, GO REWRITE LINE-MARK.
00062 -0734 00 4 00000 PDX 0,4 WORD COUNT.
00063 0520 00 0 00327 ZET SS WANT SINGLE SPACE. Q
00064 1 00001 4 00065 TXI *+1,4,1 OK, YOU GOT IT.
00065 0634 00 4 00334 SXA LMARK,4 ..
00066 -0500 00 0 00333 CAL LTH GET RELLOC FOR APPENDING.
00067 0400 00 0 01236 ADD =1
00070 0602 00 0 00341 SLW RELLOC ..
00071 0602 00 0 00336 SLW LMLOC NOT REWRITING OLD LINE-MARK, SO IS RELLOC.
00072 CALL WRWAIT(NM1,NM2,RELLOC,(LMARK,...,NLM))
00072 TSX WRWAIT,4 .003
00073 3 00000 0 01223 PAR NM1 .003
00074 3 00000 0 01224 PAR NM2 .003
00075 3 00000 0 00341 PAR RELLOC .003
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 3
00076 2 00332 0 00334 BLK LMARK,...,NLM .003
00077 -0500 00 0 00341 CAL RELLOC UPDATE RELLOC.
00100 0400 00 0 00332 ADD NLM 1 OR 2.
00101 0602 00 0 00341 SLW RELLOC
00102 0020 00 0 00114 TRA WR NOW GO WRITE OUT LINE.
00103 -0734 00 4 00000 REWR PDX 0,4
00104 0754 00 4 00000 PXA 0,4 UPDATE LINE-MARK.
00105 0361 00 0 00334 ACL LMARK
00106 0621 00 0 00334 STA LMARK ..
00107 CALL WRWAIT(NM1,NM2,LMLOC,(LMARK,,1))
00107 TSX WRWAIT,4 .003
00110 3 00000 0 01223 PAR NM1 .003
00111 3 00000 0 01224 PAR NM2 .003
00112 3 00000 0 00336 PAR LMLOC .003
00113 3 00001 0 00334 PAR LMARK,,1 .003
00114 WR CALL WRWAIT(NM1,NM2,RELLOC,(-,,-))
00114 TSX WRWAIT,4 .003
00115 3 00000 0 01223 PAR NM1 .003
00116 3 00000 0 01224 PAR NM2 .003
00117 3 00000 0 00341 PAR RELLOC .003
00120 3 00000 0 00000 PAR -,,- .003
00121 -0500 00 0 00323 CAL WXA SET OLD WRFLXA FLAG FROM CURRENT ONE.
00122 0602 00 0 00324 SLW WA ..
00123 0774 00 4 00000 XR4 AXT -,4
00124 -0520 00 0 00331 NZT ONOFF
00125 0020 00 4 00002 TRA 2,4 RETURN.
00126 -0520 00 0 00323 NZT WXA
00127 0101 00 0 01260 TIA =HWRFLX
00130 0101 00 0 01257 TIA =HWRFLXA
00131 0634 00 4 00175 CHNCOM SXA X4,4 THESE ENTRIES TO RECOVER CONTROL.
00132 0774 00 4 00162 AXT CHN,4
00133 0020 00 0 00152 TRA CLS
00134 0634 00 4 00175 NEXCOM SXA X4,4
00135 CALL CLOSE(=HALL,=-0)
00135 TSX CLOSE,4 .003
00136 3 00000 0 01243 PAR =HALL .003
00137 3 00000 0 01252 PAR =-0 .003
00140 0534 00 4 00175 LXA X4,4
00141 0101 00 0 01253 TIA =HNEXCOM
00142 0634 00 4 00175 DORMNT SXA X4,4
00143 0774 00 4 00203 AXT DMT,4
00144 0020 00 0 00152 TRA CLS
00145 0634 00 4 00175 DEAD SXA X4,4
00146 0774 00 4 00207 AXT DED,4
00147 0020 00 0 00152 TRA CLS
00150 0634 00 4 00175 SLEEP SXA X4,4
00151 0774 00 4 00210 AXT SLP,4
00152 0634 00 4 00161 CLS SXA TRA,4 TRANSFER ADDRESS.
00153 0602 00 0 00337 SLW LAC SAVE AC.
00154 0601 00 0 00340 STO AC
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 4
00155 CALL CLOSE(NM1,NM2,*+1) CLOSE IT.
00155 TSX CLOSE,4 .003
00156 3 00000 0 01223 PAR NM1 .003
00157 3 00000 0 01224 PAR NM2 .003
00160 3 00000 0 00161 PAR *+1 .003
00161 0020 00 0 00000 TRA TRA -
00162 0522 00 0 00175 CHN XEC X4 RESTORE XR.
00163 -0500 00 4 00001 CAL 1,4 CHECK FOR MAD CALL.
00164 0322 00 0 00326 ERA PAR
00165 -0320 00 0 01263 ANA =O700000000000
00166 -0100 00 0 00177 TNZ CHN2 IF NOT TXH, ASSUME NORMAL.
00167 -0500 60 4 00001 CAL* 1,4 MAD, GET ARG.
00170 0621 00 0 00174 STA .CHN+1
00171 0500 00 0 00340 CLA AC
00172 -0501 00 0 00337 ORA LAC
00173 .CHN CALL TIACHN((-,0,0)) PZE ON ARG.
00173 TSX TIACHN,4 .003
00174 0 00000 0 00000 PZE -,0,0 .003
00175 0774 00 4 00000 X4 AXT -,4 RESTART, RETURN.
00176 0020 00 4 00002 TRA 2,4
00177 0500 00 0 00340 CHN2 CLA AC RESTORE MACH. COND.
00200 -0501 00 0 00337 ORA LAC
00201 0534 00 4 00175 LXA X4,4
00202 0101 00 0 01245 TIACHN TIA =HCHNCOM SNEAKY.
00203 0500 00 0 00340 DMT CLA AC
00204 -0501 00 0 00337 ORA LAC
00205 0534 00 4 00175 LXA X4,4
00206 0101 00 0 01250 TIA =HDORMNT
00207 0101 00 0 01247 DED TIA =HDEAD
00210 0500 00 0 00340 SLP CLA AC
00211 -0501 00 0 00337 ORA LAC
00212 0534 00 4 00175 LXA X4,4
00213 0101 00 0 01256 TIA =HSLEEP
00214 0634 00 4 00225 ON SXA ONX4,4 SET PRINT ON-LINE.
00215 0600 00 0 00331 STZ ONOFF
00216 0600 00 0 00330 STZ WROFF SET FLAG.
00217 0600 00 0 00324 STZ WA THAT ONE TOO.
00220 0634 00 0 00334 ZSA LMARK AND EVEN THIS.
00221 CALL CLOSE(NM1,NM2,*+1) CLOSE FILE.
00221 TSX CLOSE,4 .003
00222 3 00000 0 01223 PAR NM1 .003
00223 3 00000 0 01224 PAR NM2 .003
00224 3 00000 0 00225 PAR *+1 .003
00225 0774 00 4 00000 ONX4 AXT -,4
00226 0020 00 4 00001 TRA 1,4 AND RETURN.
00227 -0625 00 0 00331 OFFON STL ONOFF
00230 0020 00 0 00232 TRA *+2
00231 0600 00 0 00331 OFF STZ ONOFF SET PRINT OFF-LINE, WITH FILE
00232 0634 00 4 00261 SXA OFX4,4
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 5
00233 CALL CLOSE(NM1,NM2,*+1) NAME AS OPTIONAL ARGS.
00233 TSX CLOSE,4 .003
00234 3 00000 0 01223 PAR NM1 .003
00235 3 00000 0 01224 PAR NM2 .003
00236 3 00000 0 00237 PAR *+1 .003
00237 0522 00 0 00261 XEC OFX4 RESTORE THE XR.
00240 -0500 00 4 00001 CAL 1,4 GO LOOK FOR NAME1.
00241 0602 00 0 00243 SLW *+2 ..
00242 TSX CHKARG,4 IS ARG. Q
00243 0 00000 0 00000 *** -,-,-
00244 0522 00 0 00261 XEC OFX4 (RESTORE XR4.)
00245 0100 00 0 00262 TZE OFTRA ZERO FROM CHKARG = NO ARG.
00246 0602 00 0 01223 SLW NM1 SAVE AS NAME1.
00247 1 77777 4 00250 TXI *+1,4,-1 INCREMENT RETURN.
00250 0634 00 4 00261 SXA OFX4,4 SAVE AGAIN.
00251 -0500 00 4 00001 CAL 1,4 TRY FOR SECOND ARG.
00252 0602 00 0 00254 SLW *+2 ..
00253 TSX CHKARG,4
00254 0 00000 0 00000 *** -,-,-
00255 0100 00 0 00261 TZE OFX4 IF NOT, EXIT.
00256 0522 00 0 00261 XEC OFX4 ELSE, RESTORE XR4.
00257 0602 00 0 01224 SLW NM2 AND STORE.
00260 1 77777 4 00262 TXI OFTRA,4,-1 AND EXIT.
00261 0774 00 4 00000 OFX4 AXT -,4
00262 -0625 00 0 00330 OFTRA STL WROFF SET FLAG, DON'T FORGET.
00263 0020 00 4 00001 TRA 1,4 AND RETURN AFTER LAST ARG.
00264 -0500 60 4 00001 SSPRNT CAL* 1,4 GET ARG ( 0 OR NOT ).
00265 0560 00 0 01236 LDQ =1 NUMBER OF WDS FOR LMARK.
00266 0600 00 0 00327 STZ SS SET FLAG.
00267 0100 00 0 00272 TZE *+3 IF 0, LEAVE IT THAT WAY.
00270 0560 00 0 01237 LDQ =2 ELSE, LINE MARK + BLANK WORD.
00271 -0625 00 0 00327 STL SS AND CHANGE FLAG.
00272 -0600 00 0 00332 STQ NLM SAVE NWORDS.
00273 0020 00 4 00002 TRA 2,4 RETURN.
00274 -0500 00 4 00001 CHKARG CAL 1,4 TEST FOR EFA, PAR OR PZE ARGUMENT.
00275 -0320 00 0 01264 ANA =O777700000000 MASK OPCODE.
00276 0322 00 0 00325 ERA EFA IS EFA. Q
00277 0100 00 0 00307 TZE ISARG YUP.
00300 -0500 00 4 00001 CAL 1,4 NOPE, GET IT AGAIN.
00301 -0320 00 0 01265 ANA =O777777700000 MASK OUT ADDRESS.
00302 0100 00 0 00307 TZE ISARG PZE, OK.
00303 0322 00 0 00326 ERA PAR ELSE, CHECK FOR PTH.
00304 0100 00 0 00307 TZE ISARG OK, SKIP.
00305 -0754 00 0 00000 ZAC ELSE, RETURN ZERO.
00306 0020 00 4 00002 TRA 2,4 AND GO AWAY.
00307 -0500 60 4 00001 ISARG CAL* 1,4 ARG, GET IT.
00310 0020 00 4 00002 TRA 2,4 AND RETURN.
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 6
00311 0500 00 0 00342 OPNER CLA ERCOD F.S. ERROR, CHECK IF 'ALREADY ACTIVE'
00312 0402 00 0 01240 SUB =3
00313 0100 00 0 00024 TZE OPENED OK, WE'LL BELIEVE IT.
00314 ERR TSX ON,4 ELSE, RESET WRFLX TO ONLINE.
00315 TYPE 4(CAN'T OPEN FILE --WRFLX)
00315 TSX WRFLX,4 .004
00316 3 00004 0 01232 PAR ..007,,4 .004
00317 0522 00 0 00123 XEC XR4 RESTORE XR4.
00320 0520 00 0 00323 ZET WXA AND GO TO APPROPRIATE ENTRY.
00321 0020 00 0 00004 TRA WRFLXA
00322 0020 00 0 00000 TRA WRFLX
00323 0 00000 0 00000 WXA PZE
00324 0 00000 0 00000 WA PZE 0,0,0
00325 0761 00 0 00000 EFA EFA
00326 3 00000 0 00000 PAR PAR
00327 0 00000 0 00001 SS PZE 1
00330 0 00000 0 00000 WROFF PZE
00331 0 00000 0 00000 ONOFF PZE
00332 0 00000 0 00002 NLM PZE 2
00333 0 00000 0 00000 LTH PZE
00334 -377777000000 LMARK OCT 777777000000
00335 606060606060 BCI 1, THIS MUST FOLLOW LMARK.
00336 0 00000 0 00000 LMLOC PZE 0
00337 0 00000 0 00000 LAC PZE
00340 0 00000 0 00000 AC PZE
00341 0 00000 0 00000 RELLOC PZE
00342 0 00000 0 00000 ERCOD PZE
00343 BUF BSS 432 (SIGH)
01223 606651264367 NM1 BCI 1, WRFLX OUTPUT FILE NAME, MUST BE REASSEMBLED
01224 466463476463 NM2 BCI 1,OUTPUT TO CHANGE.
01225 RMT *
01225 0101 00 0 01254 OPEN TIA =HOPEN .002
01226 0101 00 0 01244 BUFFER TIA =HBUFFER .002
01227 0101 00 0 01251 FSTATE TIA =HFSTATE .002
01230 0101 00 0 01261 WRWAIT TIA =HWRWAIT .002
01231 0101 00 0 01246 CLOSE TIA =HCLOSE .002
01232 232145636046 ..007 BCI 4,CANT OPEN FILE --WRFLX .002
01233 472545602631
01234 432560404066
01235 512643676060
END
LITERALS
01236 000000000001
01237 000000000002
01240 000000000003
01241 000001000000
01242 005500570057
01243 214343606060
01244 226426262551
01245 233045234644
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 7
01246 234346622560
01247 242521246060
01250 244651444563
01251 266263216325
01252 400000000000
01253 452567234644
01254 464725456060
01255 555757575757
01256 624325254760
01257 665126436721
01260 665126436760
01261 665166213163
01262 666060606060
01263 700000000000
01264 777700000000
01265 777777700000
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 1
POST PROCESSOR ASSEMBLY DATA
1266 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
340 AC 154, 171, 177, 203, 210
214 ON 0, 314
327 SS 63, 266, 271
324 WA 60, 122, 217
114 WR 56, 57, 102
175 X4 131, 134, 140, 142, 145, 150, 162, 201, 205, 212
343 BUF 23
43 CAL 35, 40, 42
162 CHN 132
152 CLS 133, 144, 147
207 DED 146
203 DMT 143
325 EFA 276
314 ERR
1 ..A 11, 12, 13, 14, 15, 16, 17, 21, 22, 23, 25, 26, 27, 73, 74, 75, 76
110, 111, 112, 113, 115, 116, 117, 120, 136, 137, 156, 157, 160, 174, 222, 223, 224
234, 235, 236, 316
4 ..D 11, 12, 13, 14, 15, 16, 17, 21, 22, 23, 25, 26, 27, 73, 74, 75, 76
110, 111, 112, 113, 115, 116, 117, 120, 136, 137, 156, 157, 160, 174, 222, 223, 224
234, 235, 236, 316
0 ... 76
0 ..T 11, 12, 13, 14, 15, 16, 17, 21, 22, 23, 25, 26, 27, 73, 74, 75, 76
110, 111, 112, 113, 115, 116, 117, 120, 136, 137, 156, 157, 160, 174, 222, 223, 224
234, 235, 236, 316
337 LAC 153, 172, 200, 204, 211
333 LTH 27, 66
332 NLM 76, 100, 272
1223 NM1 12, 21, 25, 73, 110, 115, 156, 222, 234, 246
1224 NM2 13, 22, 26, 74, 111, 116, 157, 223, 235, 257
231 OFF 0
10 OPN
326 PAR 164, 303
210 SLP 151
161 TRA 152
323 WXA 2, 6, 32, 51, 121, 126, 320
123 XR4 7, 30, 317
177 CHN2 166
51 C.R. 46
145 DEAD 0
173 .CHN 170
3 ..OP 11, 12, 13, 14, 15, 16, 17, 21, 22, 23, 25, 26, 27, 73, 74, 75, 76
110, 111, 112, 113, 115, 116, 117, 120, 136, 137, 156, 157, 160, 174, 222, 223, 224
234, 235, 236, 316
55 NOCR 33, 50, 54
261 OFX4 232, 237, 244, 250, 255, 256
225 ONX4 214
1225 OPEN 10
103 REWR 61
1231 CLOSE 135, 155, 221, 233
342 ERCOD 17, 311
307 ISARG 277, 302, 304
1 M1416 3845 PETER R. BOS .... 12-67 ..... WRFLX -- PRINT ON OR OFFLINE PAGE 2
POST PROCESSOR ASSEMBLY DATA
1232 ..007 316
0 ..PZE 11, 21, 25, 73, 110, 115, 136, 156, 174, 222, 234, 316
334 LMARK 65, 76, 105, 106, 113, 220
336 LMLOC 71, 112
227 OFFON 0
262 OFTRA 245, 260
331 ONOFF 124, 215, 227, 231
311 OPNER 16
150 SLEEP 0
7 START 3
0 WRFLX 0, 315, 322
330 WROFF 0, 4, 216, 262
1226 BUFFER 20
274 CHKARG 242, 253
131 CHNCOM 0
142 DORMNT 0
1227 FSTATE 24
134 NEXCOM 0
24 OPENED 313
341 RELLOC 70, 75, 77, 101, 117
264 SSPRNT 0
202 TIACHN 173
4 WRFLXA 0, 321
1230 WRWAIT 72, 107, 114
0 NO ERROR IN ABOVE ASSEMBLY.
REF BCD 10/12/70 1511.7 4737 00000
1 MAD PROGRAM LISTING ... ... ... FILE REF MAD 02/15/68 1637.2
-
PROGRAM TO EXAMINE SAVED FILES FOR ADDRESS LM00001
REFERENCES MATCHING PRE-DETERMINED STANDARDS LM00002
D.R. WIDRIG DEC. 1965 LM00003
LM00004
LOADING INSTRUCTIONS ... LM00005
LM00006
MAD REF (LIST) LM00007
NCLOAD REF LM00008
SAVE REF LM00009
R REF NAME1 LOC -DELTA- LM00010
LM00011
NORMAL MODE IS INTEGER *001 LM00012
LM00013
VECTOR VALUES MESS1 = $R REF NAME1 LOC(8) -DELTA(10)-$,777777777777K *002 LM00014
VECTOR VALUES MESS2 = $EXAMINATION COMPLETED$,777777777777K *003 LM00015
VECTOR VALUES MESS3 = $EARLY EOF ENCOUNTERED$,777777777777K *004 LM00016
LM00017
DIMENSION DRAIN(40),BUFF1(432),BUFF2(432) *005 LM00018
LM00019
VECTOR VALUES IRS(0) ... IRS(7) = 0 *006 LM00020
VECTOR VALUES LINE = 0,575757575760K,0,0,777777777777K *007 LM00021
VECTOR VALUES R = 432 *008 LM00022
VECTOR VALUES FENCE = 777777777777K *009 LM00023
VECTOR VALUES SAVED = $ SAVED$ *010 LM00024
LM00025
GET ARGUMENTS LM00026
LM00027
WHENEVER COMARG.(1,N1) .E. FENCE *011 LM00028
INFORM PRNTP.(MESS1) *012 LM00029
CHNCOM.(0) *013 LM00030
OR WHENEVER COMARG.(2,LOC) .E. FENCE *014 LM00031
TRANSFER TO INFORM *015 LM00032
OR WHENEVER COMARG.(3,DELTA) .E. FENCE *016 LM00033
DELTA = 0 *017 LM00034
END OF CONDITIONAL *018 LM00035
DELTA = BCDEC.(DELTA) *019 LM00036
LM00037
GET NEGATIVE OF LOCATION LM00038
LM00039
LOC = 1K5 - BCOCT.(LOC) *020 LM00040
LM00041
OPEN SAVED FILE AND GET HEADER LM00042
LM00043
BFOPEN.($R$,N1,SAVED,BUFF1(R),BUFF2(R),-0,ERR1) *021 LM00044
BFREAD.(N1,SAVED,MEMBND...1,REOF,EOFCT,ERR1) *022 LM00045
SKIP = (MEMBND.RS.18) - 1 - 7 *023 LM00046
MEMBND = MEMBND .A. 77777K *024 LM00047
LM00048
SKIP OVER ILC LM00049
LM00050
BFREAD.(N1,SAVED,DRAIN...1,REOF,EOFCT,ERR1) *025 LM00051
LM00052
GET INDEX REGISTERS LM00053
LM00054
BFREAD.(N1,SAVED,IRS(7)...7,REOF,EOFCT,ERR1) *026 LM00055
LM00056
SKIP REST OF MACHINE CONDITIONS LM00057
LM00058
BFREAD.(N1,SAVED,DRAIN(SKIP)...SKIP,REOF,EOFCT,ERR1) *027 LM00059
LM00060
COMPLEMENT IRS LM00061
LM00062
THROUGH LOOP1, FOR I = 1,1,(I.G.7) *028 LM00063
IRS(I) = 1K5 - IRS(I) *029 LM00064
LOOP1 CONTINUE *030 LM00065
LM00066
NOW, LOOK THROUGH BODY OF SAVED FILE LM00067
LM00068
THROUGH LOOP3, FOR I = 0,1,(I.G.MEMBND) *031 LM00069
BFREAD.(N1,SAVED,CELL...1,REOF,EOFCT,ERR1) *032 LM00070
LM00071
TEST FOR CELL ADDRESS WITHIN BOUNDS LM00072
LM00073
TEMP = ((.ABS.CELL) + LOC) .A. 77777K *033 LM00074
TAG = (CELL.RS.15).A.7K *034 LM00075
WHENEVER ((TEMP+IRS(TAG)).A.77777K).G.DELTA, TRANSFER TO LOOP3 *035 LM00076
LINE(0) = OCABC.(I) *036 LM00077
LINE(2) = OCLBC.(CELL) *037 LM00078
LINE(3) = OCRBC.(CELL) *038 LM00079
PRNTP.(LINE) *039 LM00080
LOOP3 CONTINUE *040 LM00081
LM00082
PRNTP.(MESS2) *041 LM00083
BFCLOS.(N1,SAVED,NERR1) *042 LM00084
NERR1 CHNCOM.(0) *043 LM00085
LM00086
ERR1 PRNTER. *044 LM00087
BFCLOS.(N1,SAVED,NERR1) *045 LM00088
TRANSFER TO NERR1 *046 LM00089
LM00090
REOF PRNTP.(MESS3) *047 LM00091
BFCLOS.(N1,SAVED,NERR1) *048 LM00092
TRANSFER TO NERR1 *049 LM00093
LM00094
END OF PROGRAM *050 LM00095
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 02223 TRANSFER VECTOR LENGTH 00016 PROGRAM BEGINS 01725
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BUFF1 00704 A 1 ERR1 00017 4 LOC 01661 1 MESS2 01676 A 1 R 01705 A 1
BUFF2 01565 A 1 FENCE 01642 A 1 LOOP1 00016 4 MESS3 01703 A 1 SAVED 01706 A 1
CELL 01566 1 INFORM 00020 4 LOOP3 00021 4 N1 01704 1 SKIP 01707 1
DELTA 01567 1 IRS 01652 A 1 MEMBND 01662 1 NERR1 00022 4 TAG 01710 1
DRAIN 01640 A 1 I 01653 1 MESS1 01671 A 1 REOF 00023 4 TEMP 01711 1
EOFCT 01641 1 LINE 01660 A 1
0FUNCTION DICTIONARY
BCDEC 00000 1 BCOCT 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1
CHNCOM 00005 1 COMARG 00006 1 EXIT 00007 1 .SETUP 00010 1 OCABC 00011 1
OCLBC 00012 1 OCRBC 00013 1 PRNTER 00014 1 PRNTP 00015 1
0ABSOLUTE CONSTANTS
01717 +000000000017 01721 +000000077777 01716 +000000000007 01720 +000000000022 01724 -116060606060
01722 +000000100000 01715 +000000000003 01714 +000000000002 01712 +000000000000 01713 +000000000001
01723 +233000000000
0STATEMENT DICTIONARY
00017 TXL -302203002202 00020 TXL -301735001733 00021 TXL -302172002171 00022 TXL -302202002200
00023 TXL -302212002210
0PROGRAM
N'R 001 LM00012
V'S MESS1 = $R REF NAME1 LOC(8) -DELTA(10)-$,777777777777K 002 LM00014
01725 TSX +0 07400 4 00010 01663 -3 77777 7 77777 01664 -0 06060 6 06060 01665 -2 32174 0 10034
01666 -2 06040 2 42543 01667 -0 34623 7 41034 01670 -0 52144 2 50160 01671 -1 16051 2 52660
V'S MESS2 = $EXAMINATION COMPLETED$,777777777777K 003 LM00015
01672 -3 77777 7 77777 01673 -2 32524 6 06060 01674 +2 34644 4 74325 01675 +2 16331 4 64560
01676 +2 56721 4 43145
V'S MESS3 = $EARLY EOF ENCOUNTERED$,777777777777K 004 LM00016
01677 -3 77777 7 77777 01700 -1 12524 6 06060 01701 +2 34664 4 56325 01702 +2 54626 6 02545
01703 +2 52151 4 37060
D'N DRAIN(40),BUFF1(432),BUFF2(432) 005 LM00018
V'S IRS(0) ... IRS(7) = 0 006 LM00020
01643 +0 00000 0 00000 01644 +0 00000 0 00000 01645 +0 00000 0 00000 01646 +0 00000 0 00000
01647 +0 00000 0 00000 01650 +0 00000 0 00000 01651 +0 00000 0 00000 01652 +0 00000 0 00000
V'S LINE = 0,575757575760K,0,0,777777777777K 007 LM00021
01654 -3 77777 7 77777 01655 +0 00000 0 00000 01656 +0 00000 0 00000 01657 -1 75757 5 75760
01660 +0 00000 0 00000
V'S R = 432 008 LM00022
01705 +0 00000 0 00660
V'S FENCE = 777777777777K 009 LM00023
01642 -3 77777 7 77777
V'S SAVED = $ SAVED$ 010 LM00024
01706 -2 06221 6 52524
W'R COMARG.(1,N1) .E. FENCE 011 LM00028
01726 TSX +0 07400 4 00006 01727 TXH +3 00000 0 01713 01730 TXH +3 00000 0 01704 01731 SUB +0 40200 0 01642
01732 TNZ -0 10000 0 01740
INFORM PRNTP.(MESS1) 012 LM00029
01733 TSX +0 07400 4 00015 01734 TXH +3 00000 0 01671
CHNCOM.(0) 013 LM00030
01735 TSX +0 07400 4 00005 01736 TXH +3 00000 0 01712
O'R COMARG.(2,LOC) .E. FENCE 014 LM00031
01737 TRA +0 02000 0 01756 01740 TSX +0 07400 4 00006 01741 TXH +3 00000 0 01714 01742 TXH +3 00000 0 01661
01743 SUB +0 40200 0 01642 01744 TNZ -0 10000 0 01747
T'O INFORM 015 LM00032
01745 TRA +0 02000 0 00020
O'R COMARG.(3,DELTA) .E. FENCE 016 LM00033
01746 TRA +0 02000 0 01756 01747 TSX +0 07400 4 00006 01750 TXH +3 00000 0 01715 01751 TXH +3 00000 0 01567
01752 SUB +0 40200 0 01642 01753 TNZ -0 10000 0 01756
DELTA = 0 017 LM00034
01754 CLA +0 50000 0 01712 01755 STO +0 60100 0 01567
E'L 018 LM00035
DELTA = BCDEC.(DELTA) 019 LM00036
01756 TSX +0 07400 4 00000 01757 TXH +3 00000 0 01567 01760 STO +0 60100 0 01567
LOC = 1K5 - BCOCT.(LOC) 020 LM00040
01761 TSX +0 07400 4 00001 01762 TXH +3 00000 0 01661 01763 CHS +0 76000 0 00002 01764 ADD +0 40000 0 01722
01765 STO +0 60100 0 01661
BFOPEN.($R$,N1,SAVED,BUFF1(R),BUFF2(R),-0,ERR1) 021 LM00044
01766 CLS +0 50200 0 01712 01767 STO +0 60100 0 02220 01770 CLA +0 50000 0 01705 01771 SUB +0 40200 0 01772
01772 TXH +3 00000 0 01565 01773 STA +0 62100 0 02005 01774 CLA +0 50000 0 01705 01775 SUB +0 40200 0 01776
01776 TXH +3 00000 0 00704 01777 STA +0 62100 0 02004 02000 TSX +0 07400 4 00003 02001 TXH +3 00000 0 01724
02002 TXH +3 00000 0 01704 02003 TXH +3 00000 0 01706 02004 TXH +3 00000 0 00000 02005 TXH +3 00000 0 00000
02006 TXH +3 00000 0 02220 02007 TXH +3 00000 0 00017
BFREAD.(N1,SAVED,MEMBND...1,REOF,EOFCT,ERR1) 022 LM00045
02010 TSX +0 07400 4 00004 02011 TXH +3 00000 0 01704 02012 TXH +3 00000 0 01706 02013 TIX +2 01713 0 01662
02014 TXH +3 00000 0 00023 02015 TXH +3 00000 0 01641 02016 TXH +3 00000 0 00017
SKIP = (MEMBND.RS.18) - 1 - 7 023 LM00046
02017 CAL -0 50000 0 01720 02020 STA +0 62100 0 02022 02021 CAL -0 50000 0 01662 02022 LGR -0 76500 0 00000
02023 SLW +0 60200 0 02220 02024 CLA +0 50000 0 02220 02025 SUB +0 40200 0 01713 02026 SUB +0 40200 0 01716
02027 STO +0 60100 0 01707
MEMBND = MEMBND .A. 77777K 024 LM00047
02030 CAL -0 50000 0 01662 02031 ANA -0 32000 0 01721 02032 SLW +0 60200 0 01662
BFREAD.(N1,SAVED,DRAIN...1,REOF,EOFCT,ERR1) 025 LM00051
02033 TSX +0 07400 4 00004 02034 TXH +3 00000 0 01704 02035 TXH +3 00000 0 01706 02036 TIX +2 01713 0 01640
02037 TXH +3 00000 0 00023 02040 TXH +3 00000 0 01641 02041 TXH +3 00000 0 00017
BFREAD.(N1,SAVED,IRS(7)...7,REOF,EOFCT,ERR1) 026 LM00055
02042 TSX +0 07400 4 00004 02043 TXH +3 00000 0 01704 02044 TXH +3 00000 0 01706 02045 TIX +2 01716 0 01643
02046 TXH +3 00000 0 00023 02047 TXH +3 00000 0 01641 02050 TXH +3 00000 0 00017
BFREAD.(N1,SAVED,DRAIN(SKIP)...SKIP,REOF,EOFCT,ERR1) 027 LM00059
02051 CLA +0 50000 0 01707 02052 SUB +0 40200 0 02053 02053 TXH +3 00000 0 01640 02054 STA +0 62100 0 02060
02055 TSX +0 07400 4 00004 02056 TXH +3 00000 0 01704 02057 TXH +3 00000 0 01706 02060 TIX +2 01707 0 00000
02061 TXH +3 00000 0 00023 02062 TXH +3 00000 0 01641 02063 TXH +3 00000 0 00017
T'H LOOP1, FOR I = 1,1,(I.G.7) 028 LM00063
02064 CLA +0 50000 0 01713 02065 STO +0 60100 0 01653 02066 TRA +0 02000 0 02072 02067 CLA +0 50000 0 01653
02070 ADD +0 40000 0 01713 02071 STO +0 60100 0 01653 02072 CLA +0 50000 0 01653 02073 SUB +0 40200 0 01716
02074 TZE +0 10000 0 02076 02075 TPL +0 12000 0 02104
IRS(I) = 1K5 - IRS(I) 029 LM00064
02076 LXA +0 53400 2 01653 02077 CLA +0 50000 0 01722 02100 SUB +0 40200 2 01652 02101 LXA +0 53400 1 01653
02102 STO +0 60100 1 01652
LOOP1 C'E 030 LM00065
02103 TRA +0 02000 0 02067
T'H LOOP3, FOR I = 0,1,(I.G.MEMBND) 031 LM00069
02104 CLA +0 50000 0 01712 02105 STO +0 60100 0 01653 02106 TRA +0 02000 0 02112 02107 CLA +0 50000 0 01653
02110 ADD +0 40000 0 01713 02111 STO +0 60100 0 01653 02112 CLA +0 50000 0 01653 02113 SUB +0 40200 0 01662
02114 TZE +0 10000 0 02116 02115 TPL +0 12000 0 02172
BFREAD.(N1,SAVED,CELL...1,REOF,EOFCT,ERR1) 032 LM00070
02116 TSX +0 07400 4 00004 02117 TXH +3 00000 0 01704 02120 TXH +3 00000 0 01706 02121 TIX +2 01713 0 01566
02122 TXH +3 00000 0 00023 02123 TXH +3 00000 0 01641 02124 TXH +3 00000 0 00017
TEMP = ((.ABS.CELL) + LOC) .A. 77777K 033 LM00074
02125 CLA +0 50000 0 01566 02126 SSP +0 76000 0 00003 02127 ADD +0 40000 0 01661 02130 STO +0 60100 0 02220
02131 CAL -0 50000 0 02220 02132 ANA -0 32000 0 01721 02133 SLW +0 60200 0 01711
TAG = (CELL.RS.15).A.7K 034 LM00075
02134 CAL -0 50000 0 01717 02135 STA +0 62100 0 02137 02136 CAL -0 50000 0 01566 02137 LGR -0 76500 0 00000
02140 ANA -0 32000 0 01716 02141 SLW +0 60200 0 01710
W'R ((TEMP+IRS(TAG)).A.77777K).G.DELTA, T'O LOOP3 035 LM00076
02142 LXA +0 53400 2 01710 02143 CLA +0 50000 0 01711 02144 ADD +0 40000 2 01652 02145 STO +0 60100 0 02220
02146 CAL -0 50000 0 02220 02147 ANA -0 32000 0 01721 02150 SLW +0 60200 0 02220 02151 CLA +0 50000 0 02220
02152 SUB +0 40200 0 01567 02153 TZE +0 10000 0 02156 02154 TMI -0 12000 0 02156 02155 TRA +0 02000 0 00021
LINE(0) = OCABC.(I) 036 LM00077
02156 TSX +0 07400 4 00011 02157 TXH +3 00000 0 01653 02160 STO +0 60100 0 01660
LINE(2) = OCLBC.(CELL) 037 LM00078
02161 TSX +0 07400 4 00012 02162 TXH +3 00000 0 01566 02163 STO +0 60100 0 01656
LINE(3) = OCRBC.(CELL) 038 LM00079
02164 TSX +0 07400 4 00013 02165 TXH +3 00000 0 01566 02166 STO +0 60100 0 01655
PRNTP.(LINE) 039 LM00080
02167 TSX +0 07400 4 00015 02170 TXH +3 00000 0 01660
LOOP3 C'E 040 LM00081
02171 TRA +0 02000 0 02107
PRNTP.(MESS2) 041 LM00083
02172 TSX +0 07400 4 00015 02173 TXH +3 00000 0 01676
BFCLOS.(N1,SAVED,NERR1) 042 LM00084
02174 TSX +0 07400 4 00002 02175 TXH +3 00000 0 01704 02176 TXH +3 00000 0 01706 02177 TXH +3 00000 0 00022
NERR1 CHNCOM.(0) 043 LM00085
02200 TSX +0 07400 4 00005 02201 TXH +3 00000 0 01712
ERR1 PRNTER. 044 LM00087
02202 TSX +0 07400 4 00014
BFCLOS.(N1,SAVED,NERR1) 045 LM00088
02203 TSX +0 07400 4 00002 02204 TXH +3 00000 0 01704 02205 TXH +3 00000 0 01706 02206 TXH +3 00000 0 00022
T'O NERR1 046 LM00089
02207 TRA +0 02000 0 00022
REOF PRNTP.(MESS3) 047 LM00091
02210 TSX +0 07400 4 00015 02211 TXH +3 00000 0 01703
BFCLOS.(N1,SAVED,NERR1) 048 LM00092
02212 TSX +0 07400 4 00002 02213 TXH +3 00000 0 01704 02214 TXH +3 00000 0 01706 02215 TXH +3 00000 0 00022
T'O NERR1 049 LM00093
02216 TRA +0 02000 0 00022
E'M 050 LM00095
02217 TSX +0 07400 4 00007
RELOAD BCD 10/12/70 1511.7 43203 00000
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 1
*
EXTERN INITTF,OPENDF
EXTERN LTFILE,TERMTF,GETLSG
EXTERN ATTACH,TAPFIL,MOUNT,VERIFY
EXTERN WRFLX,FERRTN,TILOCK,UMOUNT,CLOSE,
EXTERN SETCLS,SETCLC,CHNCOM,SLEEP
EXTERN CHFILE,DELFIL
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
SKIFNB MACRO SKIP
CLA NOCHAN
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 2
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
* - - - - - - - - - - - - - - - - - - - - - -
* INITIALIZE I/O SYSTEM AND VARIABLES
* - - - - - - - - - - - - - - - - - - - - - - -
*
00000 314531636326 INITTF
00001 464725452426 OPENDF
00002 436326314325 LTFILE
00003 632551446326 TERMTF
00004 272563436227 GETLSG
00005 216363212330 ATTACH
00006 632147263143 TAPFIL
00007 444664456360 MOUNT
00010 652551312670 VERIFY
00011 665126436760 WRFLX
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 3
00012 262551516345 FERRTN
00013 633143462342 TILOCK
00014 644446644563 UMOUNT
00015 234346622560 CLOSE
00016 622563234362 SETCLS
00017 622563234323 SETCLC
00020 233045234644 CHNCOM
00021 624325254760 SLEEP
00022 233026314325 CHFILE
00023 242543263143 DELFIL
00024 475145632551 PRNTER
00025 216242464751 ASKOPR
00026 512523214760 RECAP
00027 0760 00 0 00016 LMTM
00030 -0500 00 0 00452 CAL =H C0056
00031 0602 00 0 74442 SLW DU
00032 -0500 00 0 00451 CAL =H 99999
00033 0602 00 0 74441 SLW DP
*
*
00034 -0500 00 0 00445 CAL =H.LOAD.
00035 0602 00 0 74440 SLW LFNA
00036 -0500 00 0 00446 CAL =H.TAPE.
00037 0602 00 0 74437 SLW LFNB
00040 0500 00 0 00445 CLA =H.LOAD.
00041 0602 00 0 74422 SLW BFNA
00042 0500 00 0 00443 CLA =HB.COPY
00043 0602 00 0 74421 SLW BFNB
00044 0074 00 4 00005 TSX ATTACH,4
TD 00045 3 00000 0 74442 TXH DU
TD 00046 3 00000 0 74441 TXH DP
*
00047 0074 00 4 00012 TSX FERRTN,4 SET TRANSFER ADDRESS FOR UNSPECIFIED
00050 0 00000 0 00072 PZE ELOC I/O SYSTEM ERROR RETURNS
00051 0074 00 4 00013 TSX TILOCK,4 NO TRAP GO DORMANT IF EVER READ-
00052 0 00000 0 00435 PZE =0 INTERLOCKED FROM A USER'S FILE.
*
00053 0074 00 4 00016 TSX SETCLS,4
00054 0 00001 0 00276 PZE COMD,,1
00055 0074 00 4 00016 TSX SETCLS,4
00056 0 00002 0 00276 PZE COMD,,2
00057 -0500 00 0 00404 CAL CHNWRD
00060 0074 00 4 00017 TSX SETCLC,4
00061 0074 00 4 00015 TSX CLOSE,4 CLOSE ALL FILES
TD 00062 3 00000 0 00442 TXH =HALL
TD 00063 3 00000 0 00447 TXH =-0
TD 00064 3 00000 0 00065 TXH *+1
00065 0074 00 4 00014 TSX UMOUNT,4
TD 00066 3 00000 0 00442 TXH =HALL
00067 2 00323 0 00314 TIX PUMT,,LPUMT
TD 00070 3 00000 0 00071 TXH *+1
00071 0020 00 0 00101 TRA LEH
*
00072 0634 00 4 00076 ELOC SXA ELOC4,4 UNSPECIFIED I/O SYSTEM ERROR OCCURRED
00073 0074 00 4 00011 TSX WRFLX,4
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 4
00074 0 00014 0 00410 MESX,,12
00075 0074 00 4 00024 TSX $PRNTER,4
00076 0774 00 4 00000 ELOC4 AXT **,4
00077 0020 00 4 00001 TRA 1,4 RETURN TO I/O SYSTEM CALLER
*
*
* LOAD ALL TAPE FILES BUT THE FIRST
* - - - - - - - - - - - - - - - - - - -
*
00100 0074 00 4 00003 LEG TSX TERMTF,4 CLOSE,UNMOUNT BOTH COPIES OF LOAD TAPE FILE
*
00101 0074 00 4 00025 LEH TSX $ASKOPR,4
00102 3 00006 0 00365 PTH MESA,,6
00103 3 00004 0 00257 PTH LEV,,STOPLD
00104 3 00003 0 00401 PTH MESEY,,3
00105 3 00001 0 00106 PTH *+1,,CTINUE
*
00106 0500 00 0 00441 CLA =11 (11 AND 12)
00107 0601 00 0 74420 STO AUN CHANNEL A UNIT NO.
00110 0400 00 0 00436 ADD =1
00111 0601 00 0 74417 STO BUN CHANNEL B UNIT NO.
*
00112 0074 00 4 00022 TSX CHFILE,4
TD 00113 3 00000 0 74440 TXH LFNA
TD 00114 3 00000 0 74437 TXH LFNB
TD 00115 3 00000 0 00435 TXH =0
TD 00116 3 00000 0 00447 TXH =-0
TD 00117 3 00000 0 00447 TXH =-0
TD 00120 3 00000 0 00121 TXH *+1
00121 0074 00 4 00023 TSX DELFIL,4
TD 00122 3 00000 0 74440 TXH LFNA
TD 00123 3 00000 0 74437 TXH LFNB
TD 00124 3 00000 0 00125 TXH *+1
00125 0074 00 4 00022 TSX CHFILE,4
TD 00126 3 00000 0 74422 TXH BFNA
TD 00127 3 00000 0 74421 TXH BFNB
TD 00130 3 00000 0 00435 TXH =0
TD 00131 3 00000 0 00447 TXH =-0
TD 00132 3 00000 0 00447 TXH =-0
TD 00133 3 00000 0 00134 TXH *+1
00134 0074 00 4 00023 TSX DELFIL,4
TD 00135 3 00000 0 74422 TXH BFNA
TD 00136 3 00000 0 74421 TXH BFNB
TD 00137 3 00000 0 00140 TXH *+1
00140 0074 00 4 00006 TSX TAPFIL,4 DECLARE LOAD TAPE FILE TO BE UNIT AUN
TD 00141 3 00000 0 74440 TXH LFNA
TD 00142 3 00000 0 74437 TXH LFNB
TD 00143 3 00000 0 74420 TXH AUN
TD 00144 3 00000 0 00436 TXH =1
00145 0074 00 4 00006 TSX TAPFIL,4 DECLARE CHANNEL B LOAD FILE TO BE UNIT BUN
TD 00146 3 00000 0 74422 TXH BFNA
TD 00147 3 00000 0 74421 TXH BFNB
TD 00150 3 00000 0 74417 TXH BUN
TD 00151 3 00000 0 00436 TXH =1
*
00152 0500 00 0 00437 LEI CLA =2
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 5
00153 0601 00 0 74443 STO NOCHAN
00154 0600 00 0 74444 STZ ABANTP
00155 PRLINE (DOUBLE-CHANNEL LOAD IS ASSUMED FOR NEXT LOAD FILE,),9
00155 0074 00 4 00011 TSX WRFLX,4 .001
00156 0 00011 0 00424 ..001,,9 .001
RMT .001
..001 BCI 9,DOUBLE-CHANNEL LOAD IS ASSUMED FOR NEXT LOAD FILE, .001
RMT .001
00157 0074 00 4 00025 TSX $ASKOPR,4
00160 3 00006 0 00373 PTH MESB,,6
00161 3 00006 0 00164 PTH LEII,,SWCHAN
00162 3 00003 0 00401 PTH MESEY,,3
00163 3 00001 0 00164 PTH LEII,,CTINUE
00164 0074 00 4 00007 LEII TSX MOUNT,4
TD 00165 3 00000 0 00436 TXH =1
TD 00166 3 00000 0 74420 TXH AUN
00167 2 00353 0 00343 TIX MTP,,LMTP
*
* VERIFY NEXT TAPE FILE
*
00170 MOVE 4,NFTID,LABEL
00170 0774 00 1 00004 AXT 4,1 .001
00171 -0500 00 1 00304 CAL NFTID+4,1 .001
00172 0602 00 1 74416 SLW LABEL+4,1 .001
00173 2 00001 1 00171 TIX *-2,1,1 .001
00174 0074 00 4 00010 TSX VERIFY,4 CHECK MOUNTED TAPE
TD 00175 3 00000 0 74420 TXH AUN
00176 3 00004 0 74412 TXH LABEL,,4
TD 00177 3 00000 0 00201 TXH LEK TRANSFER IF NOT A NEW FILE TAPE
00200 0020 00 0 00235 TRA LEP SKIP IF NO UDT'S LOADED YET
*
00201 LEK MOVE 4,SDTID,LABEL
00201 0774 00 1 00004 AXT 4,1 .001
00202 -0500 00 1 00310 CAL SDTID+4,1 .001
00203 0602 00 1 74416 SLW LABEL+4,1 .001
00204 2 00001 1 00202 TIX *-2,1,1 .001
00205 0074 00 4 00010 TSX VERIFY,4 CHECK MOUNTED TAPE
TD 00206 3 00000 0 74420 TXH AUN
00207 3 00004 0 74412 TXH LABEL,,4
TD 00210 3 00000 0 00212 TXH LEM TRANSFER IF NOT SYSTEM FILES TAPE
00211 0020 00 0 00235 TRA LEP SKIP IF SYSTEM FILES NOT PREVIOUSLY MOUNTED
*
00212 LEM MOVE 4,UDTID,LABEL
00212 0774 00 1 00004 AXT 4,1 .001
00213 -0500 00 1 00314 CAL UDTID+4,1 .001
00214 0602 00 1 74416 SLW LABEL+4,1 .001
00215 2 00001 1 00213 TIX *-2,1,1 .001
00216 0074 00 4 00010 TSX VERIFY,4 CHECK MOUNTED TAPE
TD 00217 3 00000 0 74420 TXH AUN
00220 3 00004 0 74412 TXH LABEL,,4
TD 00221 3 00000 0 00224 TXH LEMA TRANSFER IF UNUSUAL CONDITION
TD 00222 3 00000 0 00341 TXH TEMP TYPE
00223 0020 00 0 00235 TRA LEP SKIP IF VERIFY O.K.
*
00224 0500 00 0 00341 LEMA CLA TEMP
00225 0402 00 0 00440 SUB =7
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 6
00226 0100 00 0 00231 TZE LEO SKIP IF WRONG TAPE
00227 0074 00 4 00024 TSX $PRNTER,4 OTHER ERROR, TRY AGAIN
00230 0020 00 0 00152 TRA LEI
*
*
00231 0074 00 4 00014 LEO TSX UMOUNT,4 WRONG TAPE - HAVE IT TAKEN OFF
TD 00232 3 00000 0 74420 TXH AUN
00233 2 00340 0 00324 TIX WRNGTP,,LWG
00234 0020 00 0 00152 TRA LEI
*
* START READING NEXT TAPE FILE AND SKIP OVER 1ST MFD ON IT
*
00235 0074 00 4 00004 LEP TSX GETLSG,4
00236 SKIFNB LEIB2
00236 0500 00 0 74443 CLA NOCHAN .001
00237 0402 00 0 00436 SUB =1 .001
00240 0100 00 0 00245 TZE LEIB2 .001
00241 0074 00 4 00007 TSX MOUNT,4
TD 00242 3 00000 0 00437 TXH =2
TD 00243 3 00000 0 74417 TXH BUN
00244 2 00364 0 00354 TIX MTPB,,LMTPB
00245 0074 00 4 00000 LEIB2 TSX INITTF,4 OPEN NEXT LOAD TAPE FILE, SPACE OVER AND
00246 0020 00 0 00100 TRA LEG ABANDON TAPE FILE RETURN
*
00247 0074 00 4 00001 TSX OPENDF,4 INIT'LIZE READ FROM 1ST DUMPED FILE ON TAPE
TD 00250 3 00000 0 00252 TXH LERA READ ERROR
TD 00251 3 00000 0 00100 TXH LEG ABANDON TAPE FILE
*
* LOAD BODY OF THIS DUMP TAPE FILE
* DOWN TO M.F.D. AT END OF TAPE.
*
00252 0074 00 4 00002 LERA TSX LTFILE,4 SKIP 1ST MFD, LOAD DOWN TO MFD AT END/TAPE
00253 0074 00 4 00005 TSX ATTACH,4
00254 3 00000 0 74442 PTH DU
00255 3 00000 0 74441 PTH DP
00256 0020 00 0 00100 TRA LEG RETURN FOR NEXT FILE
*
00257 0074 00 4 00026 LEV TSX $RECAP,4
*
00260 0074 00 4 00005 TSX ATTACH,4
TD 00261 3 00000 0 74442 TXH DU
TD 00262 3 00000 0 74441 TXH DP
*
00263 0074 00 4 00023 TSX DELFIL,4
TD 00264 3 00000 0 00450 TXH =HRESTOR
TD 00265 3 00000 0 00444 TXH =HFILE.1
TD 00266 3 00000 0 00267 TXH *+1
00267 0074 00 4 00016 TSX SETCLS,4
00270 0 00001 0 00405 PZE DPCOM,,1
00271 0074 00 4 00016 TSX SETCLS,4 SET 'RESUME DAEMXA' AS 2ND COMMAND IN CHAIN
00272 0 00002 0 00405 PZE DPCOM,,2
00273 -0500 00 0 00404 CAL CHNWRD SET THE CLC WITH THE 2 COMMANDS IN CHAIN,
00274 0074 00 4 00017 TSX SETCLC,4 AND TO START FROM 1ST POSITION IN THE CHAIN
00275 0074 00 4 00020 TSX CHNCOM,4 EXECUTE DUMP PROGRAM CHAIN
*
* - - - - - - - - - - - - - - - - - - - -
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 7
* CONSTANTS, VARIABLES, ETC.
* - - - - - - - - - - - - - - - - - - - -
*
00276 246243462124 COMD BCI 1,DSLOAD
00277 -377777777777 OCT 777777777777
00300 602351252163 NFTID BCI 4, CREATED-FILE DUMP TAPE
00304 606270626325 SDTID BCI 4, SYSTEM-FILES DUMP TAPE
00310 606462255162 UDTID BCI 4, USERS'-FILES DUMP TAPE
00314 604721453123 PUMT BCI 7, PANIC UNMOUNT, RE-READY THESE LOAD TAPES
00323 0 00000 0 00007 LPUMT PZE *-PUMT
00324 603144472551 WRNGTP BCI 8, IMPERMISSIBLE REEL MOUNTED FOR DISK RELOAD
00334 604743252162 BCI 4, PLEASE TAKE IT OFF
00340 0 00000 0 00014 LWG PZE *-WRNGTP
00341 TEMP BSS 2
00343 605125212470 MTP BCI 8, READY THE 1ST REEL OF THE NEXT DUMP TAPE FILE
00353 0 00000 0 00010 LMTP PZE *-MTP
00354 605125212470 MTPB BCI 8, READY THE DUPLICATE COPY ON THE OTHER CHANNEL.
00364 0 00000 0 00010 LMTPB PZE *-MTPB
00365 606346606263 MESA BCI 6, TO STOP LOADING, START DUMPING.
00373 604546666046 MESB BCI 6, NOW OR ANYTIME TO DROP 2ND CHANNEL.
00401 604663302551 MESEY BCI 3, OTHERWISE, NOW.
00404 0 00002 0 00001 CHNWRD PZE 1,,2
00405 242125444645 DPCOM BCI 1,DAEMON
00406 006060606060 BCI 1,0
00407 -377777777777 OCT 777777777777
00410 606445256747 MESX BCI 9, UNEXPECTED AND/OR NON-CRUCIAL I/O SYSTEM ERROR RETURN
00421 736066303123 BCI 3,, WHICH IS IGNORED
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
074446 DEMKEY BOOL 74446 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01554 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
74446 COMMON 1 INSERT DUMMY IF NECESSARY
74445 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
74445 KEYVAL COMMON 1
74444 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 8
74443 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
74442 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
74441 DP COMMON 1 PROGRAMMER NO. OF DITTO.
74440 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
74437 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
74423 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
74423 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
74422 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
74421 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
74420 AUN COMMON 1 CHANNEL A UNIT NO.
74417 BUN COMMON 1 CHANNEL B UNIT NO.
74416 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
74412 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
74412 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
74411 X COMMON 1 TAPE FILE POINTER
END
REMOTE SEQUENCES
00424 244664224325 ..001 BCI 9,DOUBLE-CHANNEL LOAD IS ASSUMED FOR NEXT LOAD FILE, .001
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 1
POST PROCESSOR ASSEMBLY DATA
74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
453 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
74411 X 424
74441 DP 33, 46, 255, 262, 424
74442 DU 31, 45, 254, 261, 424
1554 UF 424
74420 AUN 107, 143, 166, 175, 206, 217, 232, 424
74417 BUN 111, 150, 243, 424
100 LEG 246, 251, 256
101 LEH 71
152 LEI 230, 234
201 LEK 177
212 LEM 210
231 LEO 226
235 LEP 200, 211, 223
257 LEV 103
340 LWG 233
343 MTP 167, 353
77777 UFL 424
17 BASE 424
74422 BFNA 41, 126, 135, 146, 424
74421 BFNB 43, 127, 136, 147, 424
276 COMD 54, 56
72 ELOC 50
164 LEII 161, 163
224 LEMA 221
252 LERA 250
74440 LFNA 35, 113, 122, 141, 424
74437 LFNB 37, 114, 123, 142, 424
353 LMTP 167
365 MESA 102
373 MESB 160
410 MESX 74
354 MTPB 244, 364
314 PUMT 67, 323
341 TEMP 222, 224
74416 TEOF 424
15 CLOSE 61
405 DPCOM 270, 272
76 ELOC4 72
424 ..001 156
74412 LABEL 172, 176, 203, 207, 214, 220, 424
245 LEIB2 240
364 LMTPB 244
323 LPUMT 67
401 MESEY 104, 162
7 MOUNT 164, 241
300 NFTID 171
2 PAUSE 424
74423 PREAM 424
26 RECAP 257
304 SDTID 202
1 LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65 06/01/70 1347.6 PAGE 2
POST PROCESSOR ASSEMBLY DATA
21 SLEEP
310 UDTID 213
11 WRFLX 73, 155
5 ABANKY 424
74444 ABANTP 154, 424
25 ASKOPR 101, 157
5 ATTACH 44, 253, 260
22 CHFILE 112, 125
3 CHLDFL 424
20 CHNCOM 275
404 CHNWRD 57, 273
10 CHREEL 424
77462 COMRLC 424
1 CTINUE 105, 163, 424
23 DELFIL 121, 134, 263
74446 DEMKEY 424
12 FERRTN 47
4 GETLSG 235
0 INITTF 245
74445 KEYVAL 424
7 LSREEL 424
2 LTFILE 252
77777 NEWCOM 424
74443 NOCHAN 153, 236, 424
77461 OLDCOM 424
1 OPENDF 247
24 PRNTER 75, 227
17 SETCLC 60, 274
16 SETCLS 53, 55, 267, 271
4 STOPLD 103, 424
6 SWCHAN 161, 424
6 TAPFIL 140, 145
3 TERMTF 100
13 TILOCK 51
14 UMOUNT 65, 231
10 VERIFY 174, 205, 216
324 WRNGTP 233, 340
0 NO ERROR IN ABOVE ASSEMBLY.
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 1
* (TIME-SHARING VERSION)
*
00021 ENTRY LTFILE
*
EXTERN OPENDF,RDF,GETLSG
EXTERN TRFILE
EXTERN ATTACH,BUFFER,FWAIT,FSTATE
EXTERN OPEN,CLOSE,WRFILE,SETFIL
EXTERN WRFLX,CHFILE
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 2
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
*
* - - - - - - - - - - - - - - - - - - - - - -
* INITIALIZE AND GET PREAMBLE OF UFD FILE OF 1ST USER ON TAPE
* - - - - - - - - - - - - - - - - - - - - - -
*
00000 464725452426 OPENDF
00001 512426606060 RDF
00002 272563436227 GETLSG
00003 635126314325 TRFILE
00004 216363212330 ATTACH
00005 226426262551 BUFFER
00006 266621316360 FWAIT
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 3
00007 266263216325 FSTATE
00010 464725456060 OPEN
00011 234346622560 CLOSE
00012 665126314325 WRFILE
00013 622563263143 SETFIL
00014 665126436760 WRFLX
00015 233026314325 CHFILE
00016 475145632551 PRNTER
00021 0634 00 1 00077 LTFILE SXA X1,1
00022 0634 00 2 00076 SXA X2,2
00023 0634 00 3 00075 SXA X3,3
00024 0634 00 4 00074 SXA X4,4
*
00025 0600 00 0 00365 STZ LUSER
00026 0600 00 0 00366 STZ LUSER+1
*
* - - - - - - - - - - - - - - - - - - - - -
* EXAMINE NEXT DUMPED FILE ON TAPE
* - - - - - - - - - - - - - - - - - - - - -
*
00027 XTA CLEAR PREAM,12
00027 0774 00 1 00014 AXT 12,1 .001
00030 0600 00 1 74437 STZ PREAM+12,1 .001
00031 2 00001 1 00030 TIX *-1,1,1 .001
00032 0074 00 4 00000 TSX OPENDF,4 INITIALIZE READING FROM NEXT DUMPED FILE
TD 00033 3 00000 0 00036 TXH XTC (ERROR ADDRESS)
TD 00034 3 00000 0 00074 TXH ABANTF ABANDON TAPE FILE
00035 0020 00 0 00041 TRA XTD SKIP TO SEE WHAT KIND OF FILE IT IS
*
00036 0520 00 0 74416 XTC ZET TEOF
00037 0020 00 0 00074 TRA ABANTF
00040 0020 00 0 00300 TRA ZTQB
*
00041 0760 00 0 00166 XTD SWT 6
00042 0020 00 0 00055 TRA XTDD
00043 MOVE 2,PREAM,SEE
00043 0774 00 1 00002 AXT 2,1 .001
00044 -0500 00 1 74425 CAL PREAM+2,1 .001
00045 0602 00 1 00371 SLW SEE+2,1 .001
00046 2 00001 1 00044 TIX *-2,1,1 .001
00047 MOVE 2,PREAM+5,SEE+2
00047 0774 00 1 00002 AXT 2,1 .001
00050 -0500 00 1 74432 CAL PREAM+5+2,1 .001
00051 0602 00 1 00373 SLW SEE+2+2,1 .001
00052 2 00001 1 00050 TIX *-2,1,1 .001
00053 PRM SEE,4
00053 0074 00 4 00014 TSX WRFLX,4 .001
00054 0 00004 0 00367 SEE,,4 .001
*
00055 XTDD CMPWDS 3,UFDNAM,PREAM+5,XTE
00055 0774 00 1 00003 AXT 3,1 .001
00056 -0500 00 1 00376 CAL UFDNAM+3,1 .001
00057 -0340 00 1 74433 LAS PREAM+5+3,1 .001
00060 0020 00 0 00065 TRA XTE .001
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 4
00061 0020 00 0 00063 TRA *+2 .001
00062 0020 00 0 00065 TRA XTE .001
00063 2 00001 1 00056 TIX *-5,1,1 .001
00064 0020 00 0 00027 TRA XTA
*
00065 XTE CMPWDS 2,MFDNAM,PREAM,ZTA
00065 0774 00 1 00002 AXT 2,1 .001
00066 -0500 00 1 00413 CAL MFDNAM+2,1 .001
00067 -0340 00 1 74425 LAS PREAM+2,1 .001
00070 0020 00 0 00101 TRA ZTA .001
00071 0020 00 0 00073 TRA *+2 .001
00072 0020 00 0 00101 TRA ZTA .001
00073 2 00001 1 00066 TIX *-5,1,1 .001
*
* RETURN TO CALLER IF NEXT FILE IS MFD FILE
*
00074 ABANTF EQU *
00074 0774 00 4 00000 X4 AXT **,4
00075 0774 00 3 00000 X3 AXT **,3
00076 0774 00 2 00000 X2 AXT **,2
00077 0774 00 1 00000 X1 AXT **,1
00100 0020 00 4 00001 TRA 1,4
*
* - - - - - - - - - - - - - - - - - - - -
* PROCESS REGULAR FILE (NOT MFD OR UFD)
* - - - - - - - - - - - - - - - - - - - -
*
00101 0074 00 4 00002 ZTA TSX GETLSG,4
00102 CMPWDS 2,LUSER,PREAM,NOSAME
00102 0774 00 1 00002 AXT 2,1 .001
00103 -0500 00 1 00367 CAL LUSER+2,1 .001
00104 -0340 00 1 74425 LAS PREAM+2,1 .001
00105 0020 00 0 00112 TRA NOSAME .001
00106 0020 00 0 00110 TRA *+2 .001
00107 0020 00 0 00112 TRA NOSAME .001
00110 2 00001 1 00103 TIX *-5,1,1 .001
00111 0020 00 0 00122 TRA SAME
00112 NOSAME MOVE 2,PREAM,LUSER
00112 0774 00 1 00002 AXT 2,1 .001
00113 -0500 00 1 74425 CAL PREAM+2,1 .001
00114 0602 00 1 00367 SLW LUSER+2,1 .001
00115 2 00001 1 00113 TIX *-2,1,1 .001
00116 0074 00 4 00004 TSX ATTACH,4
TD 00117 3 00000 0 74423 TXH PREAM
TD 00120 3 00000 0 74424 TXH PREAM+1
TD 00121 3 00000 0 00027 TXH XTA
*
00122 0074 00 4 00007 SAME TSX FSTATE,4
TD 00123 3 00000 0 74430 TXH PREAM+5
TD 00124 3 00000 0 74431 TXH PREAM+6
00125 3 00007 0 00401 TXH STAT,,7
TD 00126 3 00000 0 00027 TXH XTA
*
00127 0500 00 0 00404 CLA STAT+3
00130 0402 00 0 10060 SUB =3
00131 0100 00 0 00027 TZE XTA
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 5
00132 0500 00 0 00402 CLA STAT+1
00133 -0120 00 0 00027 TMI XTA
00134 -0320 00 0 10062 ANA =O200
00135 0100 00 0 00027 TZE XTA
00136 0500 00 0 74425 CLA PREAM+2
00137 0402 00 0 00407 SUB STAT+6
00140 -0120 00 0 00027 TMI XTA
00141 0500 00 0 00401 CLA STAT
00142 -0100 00 0 00300 TNZ ZTQB
00143 -0520 00 0 74435 NZT PREAM+10
00144 0020 00 0 00322 TRA CLANUP
*
00145 -0754 00 0 00000 ZAC
00146 0560 00 0 74434 LDQ PREAM+9
00147 -0763 00 0 00010 LGL 8
00150 0602 00 0 00377 SLW TEMP+1
*
00151 0074 00 4 00010 OPAGIN TSX OPEN,4
TD 00152 3 00000 0 01277 TXH W
TD 00153 3 00000 0 74430 TXH PREAM+5
TD 00154 3 00000 0 74431 TXH PREAM+6
TD 00155 3 00000 0 10063 TXH =-0
TD 00156 3 00000 0 10063 TXH =-0
TD 00157 3 00000 0 00242 TXH ZTQB1
TD 00160 3 00000 0 00410 TXH ZTCODE
*
*
00161 0074 00 4 00005 TSX BUFFER,4
TD 00162 3 00000 0 74430 TXH PREAM+5 ASSIGN INTERNAL BUFFERS FOR WRITE
TD 00163 3 00000 0 74431 TXH PREAM+6
00164 2 00413 0 00414 TIX DBUF,,LDBUF
TD 00165 3 00000 0 00260 TXH ZTQ (ERROR)
*
00166 0774 00 3 00000 AXT 0,3
00167 0500 00 0 01274 CLA LTPB
00170 0601 00 0 00376 STO TEMP
00171 0774 00 2 00000 AXT 0,2
*
* READ-WRITE LOOP (DOUBLE BUFFERS)
*
00172 1 00001 2 00173 ZTM TXI *+1,2,1 SWITCH BUFFERS
00173 -3 00001 2 00175 TXL *+2,2,1
00174 0774 00 2 00000 AXT 0,2
00175 0500 00 2 01276 CLA TBADR+1,2
00176 0621 00 0 00201 STA ZTN
00177 0621 00 0 00216 STA ZTO
*
00200 0074 00 4 00001 TSX RDF,4 READ BUFFER FULL FROM DUMP TAPE
00201 2 01274 0 00000 ZTN TIX **,,LTPB
TD 00202 3 00000 0 00262 TXH ZTQA READ ERROR
TD 00203 3 00000 0 00236 TXH ZTP EOF
TD 00204 3 00000 0 01300 TXH EOFCT EOF WORD COUNT
TD 00205 3 00000 0 00221 TXH ABANCL ABANDON TAPE FILE
*
00206 0074 00 4 00006 ZTNA TSX FWAIT,4 WAIT FOR PREVIOUS WRITE TO END
TD 00207 3 00000 0 74430 TXH PREAM+5
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 6
TD 00210 3 00000 0 74431 TXH PREAM+6
TD 00211 3 00000 0 00260 TXH ZTQ ERROR ON PREVIOUS WRITE
*
00212 0074 00 4 00012 TSX WRFILE,4 START WRITING BUFFER FULL ON DISK/DRUM
TD 00213 3 00000 0 74430 TXH PREAM+5
TD 00214 3 00000 0 74431 TXH PREAM+6
TD 00215 3 00000 0 10056 TXH =0
00216 2 00376 0 00000 ZTO TIX **,,TEMP
*
00217 -3 00000 3 00172 TXL ZTM,3,0 RETURN TO READ MORE IF NO EOF YET
00220 0020 00 0 00314 TRA ZTS FINISHED, GO CLOSE LOAD FILE
00221 0074 00 4 00003 ABANCL TSX TRFILE,4
TD 00222 3 00000 0 74430 TXH PREAM+5
TD 00223 3 00000 0 74431 TXH PREAM+6
TD 00224 3 00000 0 10056 TXH =0
00225 0074 00 4 00011 TSX CLOSE,4
TD 00226 3 00000 0 74430 TXH PREAM+5
TD 00227 3 00000 0 74431 TXH PREAM+6
00230 0074 00 4 00013 TSX SETFIL,4 RESET DATE/TIME CREATED SO
TD 00231 3 00000 0 74430 TXH PREAM+5 FILE CAN BE LOADED AGAIN LATER.
TD 00232 3 00000 0 74431 TXH PREAM+6
TD 00233 3 00000 0 74432 TXH PREAM+7
TD 00234 3 00000 0 74433 TXH PREAM+8
00235 0020 00 0 00074 TRA ABANTF
*
*
00236 0534 00 3 01300 ZTP LXA EOFCT,3 EOF
00237 0634 00 3 00376 SXA TEMP,3
00240 3 00000 3 00206 TXH ZTNA,3,0 GO WRITE LAST PART BUFFER FULL, IF ANY
00241 0020 00 0 00314 TRA ZTS NO MORE, GO CLOSE LOAD FILE
*
* OPEN ERROR TRY CHANGING MODE
*
00242 0074 00 4 00002 ZTQB1 TSX GETLSG,4
00243 0500 00 0 00410 CLA ZTCODE
00244 0402 00 0 10061 SUB =15
00245 -0100 00 0 00300 TNZ ZTQB
00246 0074 00 4 00015 TSX CHFILE,4
00247 3 00000 0 74430 PTH PREAM+5
00250 3 00000 0 74431 PTH PREAM+6
00251 3 00000 0 10057 PTH =1
00252 3 00000 0 10063 PTH =-0
00253 3 00000 0 10063 PTH =-0
00254 3 00000 0 00300 PTH ZTQB
00255 -0500 00 0 10057 CAL =1
00256 -0602 00 0 00377 ORS TEMP+1
00257 0020 00 0 00151 TRA OPAGIN
*
* PROCESS ERRORS LOADING DUMPED FILE
*
00260 0074 00 4 00016 ZTQ TSX $PRNTER,4 UNEXPECTED I/O SYSTEM RETURN
00261 0020 00 0 00264 TRA ZTRA
00262 0500 00 0 74416 ZTQA CLA TEOF
00263 -0100 00 0 00221 TNZ ABANCL SKIP IF EOF ON TAPE
00264 0074 00 4 00003 ZTRA TSX TRFILE,4 RESET FILE LENGTH.
00265 3 00000 0 74430 PTH PREAM+5
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 7
00266 3 00000 0 74431 PTH PREAM+6
00267 3 00000 0 10056 PTH =0
00270 0074 00 4 00011 TSX CLOSE,4 CLOSE FILE.
TD 00271 3 00000 0 74430 TXH PREAM+5
TD 00272 3 00000 0 74431 TXH PREAM+6
00273 0074 00 4 00013 TSX SETFIL,4 NOW RESET DATE/TIME CREATED,
TD 00274 3 00000 0 74430 TXH PREAM+5 SO THAT WE CAN TRY TO LOAD
TD 00275 3 00000 0 74431 TXH PREAM+6 IT AGAIN LATER. **********
TD 00276 3 00000 0 74432 TXH PREAM+7
TD 00277 3 00000 0 74433 TXH PREAM+8
00300 ZTQB MOVE 2,PREAM,ERMES+3
00300 0774 00 1 00002 AXT 2,1 .001
00301 -0500 00 1 74425 CAL PREAM+2,1 .001
00302 0602 00 1 00362 SLW ERMES+3+2,1 .001
00303 2 00001 1 00301 TIX *-2,1,1 .001
00304 MOVE 2,PREAM+5,ERMES+5
00304 0774 00 1 00002 AXT 2,1 .001
00305 -0500 00 1 74432 CAL PREAM+5+2,1 .001
00306 0602 00 1 00364 SLW ERMES+5+2,1 .001
00307 2 00001 1 00305 TIX *-2,1,1 .001
00310 0074 00 4 00014 TSX WRFLX,4
00311 0 00010 0 00355 ERMES,,8
00312 0074 00 4 00016 TSX $PRNTER,4
00313 0020 00 0 00027 TRA XTA GO FOR NEXT DUMPED FILE
*
* - - - - - - - - - - - - - - - - - - - -
* SET UFD ENTRY FOR FILE JUST READ, FREE IT FOR USE
* IF IT WAS ONE DEFINITELY TO BE LOADED
* - - - - - - - - - - - - - - - - - - - -
*
00314 0074 00 4 00006 ZTS TSX FWAIT,4 WAIT FOR WRITE TO END
TD 00315 3 00000 0 74430 TXH PREAM+5
TD 00316 3 00000 0 74431 TXH PREAM+6
00317 0074 00 4 00011 TSX CLOSE,4
TD 00320 3 00000 0 74430 TXH PREAM+5
TD 00321 3 00000 0 74431 TXH PREAM+6
00322 0074 00 4 00015 CLANUP TSX CHFILE,4 DE-PROTECT, THEN . . . . .
TD 00323 3 00000 0 74430 TXH PREAM+5
TD 00324 3 00000 0 74431 TXH PREAM+6
TD 00325 3 00000 0 00377 TXH TEMP+1
TD 00326 3 00000 0 10063 TXH =-0
TD 00327 3 00000 0 10063 TXH =-0
TD 00330 3 00000 0 00332 TXH ZTSA UNUSUAL CONDITION TRANSFER
00331 0020 00 0 00333 TRA ZTSB SKIP IF O.K.
00332 0074 00 4 00016 ZTSA TSX $PRNTER,4 ERROR, PRINT MESSAGE
*
00333 0074 00 4 00013 ZTSB TSX SETFIL,4 SET ITS DATES, TIME, AUTHOR, AS
TD 00334 3 00000 0 74430 TXH PREAM+5 IN PREAMBLE OF DUMPED VERSION JUST READ
TD 00335 3 00000 0 74431 TXH PREAM+6
TD 00336 3 00000 0 74432 TXH PREAM+7
TD 00337 3 00000 0 74433 TXH PREAM+8
00340 0760 00 0 00165 SWT 5
00341 0020 00 0 00027 TRA XTA
00342 MOVE 2,PREAM,MEST+1
00342 0774 00 1 00002 AXT 2,1 .001
00343 -0500 00 1 74425 CAL PREAM+2,1 .001
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 8
00344 0602 00 1 01304 SLW MEST+1+2,1 .001
00345 2 00001 1 00343 TIX *-2,1,1 .001
00346 MOVE 2,PREAM+5,MEST+3
00346 0774 00 1 00002 AXT 2,1 .001
00347 -0500 00 1 74432 CAL PREAM+5+2,1 .001
00350 0602 00 1 01306 SLW MEST+3+2,1 .001
00351 2 00001 1 00347 TIX *-2,1,1 .001
00352 0074 00 4 00014 TSX WRFLX,4
00353 0 00005 0 01301 MEST,,5
00354 0020 00 0 00027 TRA XTA GO LOOK AT NEXT DUMPED FILE
*
* - - - - - - - - - - - - - - - - - -
*
* - - - - - - - - - - - -
* CONSTANTS, VARIABLES, ETC.
* - - - - - - - - - - - -
*
00355 602631432560 ERMES BCI 8, FILE NOT LOADED
00365 LUSER BSS 2
00367 SEE BSS 4
00373 646225516026 UFDNAM BCI 3,USER FILE DIRECTRY
00376 TEMP BSS 3
00401 STAT BSS 7
00410 ZTCODE BSS 1
00411 443326332433 MFDNAM BCI 2,M.F.D.(FILE)
00413 0 00000 0 00660 LDBUF PZE 432
00414 DBUF BSS 432
01274 0 00000 0 03264 LTPB PZE 4*432-12
01275 0 00000 0 01306 TBADR PZE TPB
01276 0 00000 0 04572 PZE TPB2
01277 666060606060 W BCI 1,W
01300 0 00000 0 00000 EOFCT PZE
01301 434621242524 MEST BCI 5,LOADED
01306 TPB BSS 4*432-12
04572 TPB2 BSS 4*432-12
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
074446 DEMKEY BOOL 74446 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 9
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01554 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
74446 COMMON 1 INSERT DUMMY IF NECESSARY
74445 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
74445 KEYVAL COMMON 1
74444 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
74443 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
74442 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
74441 DP COMMON 1 PROGRAMMER NO. OF DITTO.
74440 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
74437 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
74423 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
74423 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
74422 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
74421 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
74420 AUN COMMON 1 CHANNEL A UNIT NO.
74417 BUN COMMON 1 CHANNEL B UNIT NO.
74416 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
74412 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
74412 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
74411 X COMMON 1 TAPE FILE POINTER
END
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
10064 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1277 W 152
74411 X 10056
74441 DP 10056
74442 DU 10056
1554 UF 10056
77 X1 21
76 X2 22
75 X3 23
74 X4 24
74420 AUN 10056
74417 BUN 10056
1 RDF 200
367 SEE 45, 51, 54
1306 TPB 1275
77777 UFL 10056
27 XTA 64, 121, 126, 131, 133, 135, 140, 313, 341, 354
36 XTC 33
41 XTD 35
65 XTE 60, 62
101 ZTA 70, 72
172 ZTM 217
201 ZTN 176
216 ZTO 177
236 ZTP 203
260 ZTQ 165, 211
314 ZTS 220, 241
17 BASE 10056
74422 BFNA 10056
74421 BFNB 10056
414 DBUF 164
74440 LFNA 10056
74437 LFNB 10056
1274 LTPB 167, 201
1301 MEST 344, 350, 353
10 OPEN 151
122 SAME 111
401 STAT 125, 127, 132, 137, 141
376 TEMP 150, 170, 216, 237, 256, 325
74416 TEOF 36, 262,10056
4572 TPB2 1276
55 XTDD 42
206 ZTNA 240
262 ZTQA 202
300 ZTQB 40, 142, 245, 254
264 ZTRA 261
332 ZTSA 330
333 ZTSB 331
11 CLOSE 225, 270, 317
1300 EOFCT 204, 236
355 ERMES 302, 306, 311
1 LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65 06/01/70 1349.9 PAGE 2
POST PROCESSOR ASSEMBLY DATA
6 FWAIT 206, 314
74412 LABEL 10056
413 LDBUF 164
365 LUSER 25, 26, 103, 114
2 PAUSE 10056
74423 PREAM 30, 44, 50, 57, 67, 104, 113, 117, 120, 123, 124, 136, 143, 146, 153, 154, 162
163, 207, 210, 213, 214, 222, 223, 226, 227, 231, 232, 233, 234, 247, 250, 265, 266
271, 272, 274, 275, 276, 277, 301, 305, 315, 316, 320, 321, 323, 324, 334, 335, 336
337, 343, 347,10056
1275 TBADR 175
14 WRFLX 53, 310, 352
242 ZTQB1 157
221 ABANCL 205, 263
5 ABANKY 10056
74 ABANTF 34, 37, 74, 235
74444 ABANTP 10056
4 ATTACH 116
5 BUFFER 161
15 CHFILE 246, 322
3 CHLDFL 10056
10 CHREEL 10056
322 CLANUP 144
77462 COMRLC 10056
1 CTINUE 10056
74446 DEMKEY 10056
7 FSTATE 122
2 GETLSG 101, 242
74445 KEYVAL 10056
7 LSREEL 10056
21 LTFILE 0
411 MFDNAM 66
77777 NEWCOM 10056
74443 NOCHAN 10056
112 NOSAME 105, 107
77461 OLDCOM 10056
151 OPAGIN 257
0 OPENDF 32
16 PRNTER 260, 312, 332
13 SETFIL 230, 273, 333
4 STOPLD 10056
6 SWCHAN 10056
3 TRFILE 221, 264
373 UFDNAM 56
12 WRFILE 212
410 ZTCODE 160, 243
0 NO ERROR IN ABOVE ASSEMBLY.
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 1
* (TIME-SHARING VERSION)
*
00013 ENTRY OPENDF
00166 ENTRY RDF
*
EXTERN NLREC,GETLSG
EXTERN RDWAIT
EXTERN IODIAG,RDFILE,FWAIT
EXTERN WRFLX
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 2
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* 'OPEN' NEXT DUMPED FILE -- SKIP TO NEXT (READABLE) FILE,
* READ ITS PREAMBLE, AND ITS FIRST LOGICAL RECORD.
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00000 454351252360 NLREC
00001 272563436227 GETLSG
00002 512466213163 RDWAIT
00003 314624312127 IODIAG
00004 512426314325 RDFILE
00005 266621316360 FWAIT
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 3
00006 665126436760 WRFLX
00007 475145632551 PRNTER
00010 636263254626 TSTEOF
00013 0634 00 1 00156 OPENDF SXA X1,1
00014 0634 00 2 00155 SXA X2,2
00015 0634 00 3 00154 SXA X3,3
00016 0634 00 4 00153 SXA X4,4
00017 0600 00 0 00633 STZ M
00020 0600 00 0 74416 STZ TEOF
00021 0500 00 0 00627 CLA LEOROP
00022 0621 00 0 00526 STA ABNADD
00023 0074 00 4 00001 TSX GETLSG,4 IS OPERATOR'S TAPE FILE ABANDON
00024 0500 00 0 74444 CLA ABANTP KEY CODE SETTING ON
00025 0100 00 0 00031 TZE *+4 SKIP IF NOT
00026 0074 00 4 00006 TSX WRFLX,4
00027 0 00010 0 00615 MESL,,8
00030 0020 00 0 00526 TRA EORABN IF SO OBEY IT
00031 0500 00 0 74411 CLA X
00032 0402 00 0 00574 SUB PHYSRC
00033 -0120 00 0 00161 TMI ERTN ERROR IF PTR SET BEFORE 1ST FILE,SKIP
00034 0100 00 0 00122 TZE OQ SKIP IF FILE IS 1ST ON LOAD TAPE
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
* FIND START OF NEXT LOGICAL RECORD
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00035 0500 00 0 00401 CLA SOME
00036 -0120 00 0 00057 TMI JUMP
*
00037 0500 00 0 74411 CLA X
00040 0400 00 0 00401 ADD SOME
00041 0601 00 0 74411 STO X
00042 0601 00 0 00604 STO Y
00043 0020 00 0 00051 TRA *+6
00044 FL EQU *
00044 0074 00 4 00001 FLA TSX GETLSG,4
00045 0500 00 0 74411 CLA X
00046 0400 00 0 00574 ADD PHYSRC
00047 0601 00 0 74411 STO X X POINTS AT NEXT PHYSICAL RECORD
00050 0601 00 0 00604 STO Y SO DOES Y
*
00051 0074 00 4 00414 FLAB TSX BREAD,4 READ 12 WORDS FROM POSTN Y
TD 00052 3 00000 0 00556 TXH OPREAM
TD 00053 3 00000 0 04123 TXH =12
00054 0020 00 0 00044 TRA FLA UNREAD, MOVE TO NEXT PHYSICAL REC.
00055 0020 00 0 00044 TRA FLA READ ERROR, MOVE TO NEXT PHYS. REC.
00056 0020 00 0 00160 TRA REOF REAL EOF EXIT
*
00057 0500 00 0 00570 JUMP CLA OPREAM+10
00060 0100 00 0 00044 TZE FL
00061 0074 00 4 00000 TSX NLREC,4
00062 3 00000 0 04120 PTH =0
00063 3 00000 0 04120 PTH =0
00064 3 00000 0 00570 PTH OPREAM+10
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 4
00065 3 00000 0 00573 PTH LTPBF
00066 3 00000 0 04123 PTH =12
00067 3 00000 0 00574 PTH PHYSRC
00070 3 00000 0 00575 PTH NFLR
00071 3 00000 0 00576 PTH NLAST
00072 0600 00 0 00601 STZ TEMP
00073 -0500 00 0 00571 CAL OPREAM+11
00074 0621 00 0 00601 STA TEMP
00075 0771 00 0 00022 ARS 18
00076 0621 00 0 00577 STA IREC
00077 0500 00 0 00575 CLA NFLR
00100 0520 00 0 00576 ZET NLAST
00101 0400 00 0 04121 ADD =1
00102 0601 00 0 00600 STO NREC
00103 0402 00 0 00601 SUB TEMP
00104 -0100 00 0 00044 TNZ FL
*
00105 0500 00 0 00577 CLA IREC O.K.
00106 0402 00 0 00600 SUB NREC
00107 0100 00 0 00111 TZE *+2
00110 0120 00 0 00044 TPL FL SKIP IF IREC .GR. NREC, PREAMBLE INVALID
*
00111 0500 00 0 00577 CLA IREC THIS IS A LOGICAL RECORD
00112 0402 00 0 04121 SUB =1
00113 -0100 00 0 00044 TNZ FL SPACE DOWN TO NEXT FILE IF NOT 1ST LOG.REC.
*
00114 MOVE 12,OPREAM,PREAM THIS IS 1ST LOG.REC. IN FILE,AND WE WISH
00114 0774 00 1 00014 AXT 12,1 .001
00115 -0500 00 1 00572 CAL OPREAM+12,1 .001
00116 0602 00 1 74437 SLW PREAM+12,1 .001
00117 2 00001 1 00115 TIX *-2,1,1 .001
00120 0500 00 0 00570 CLA OPREAM+10
00121 0020 00 0 00130 TRA OQC
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
* READ PREAMBLE OF 1ST DUMPED FILE OF LOAD FILE
* - - - - - - - - - - - - - - - - - - - - - - - - -
*
00122 0500 00 0 74411 OQ CLA X
00123 0400 00 0 04121 ADD =1
00124 0601 00 0 74411 STO X
00125 0601 00 0 00604 STO Y
00126 0600 00 0 00401 STZ SOME
00127 0020 00 0 00051 TRA FLAB
*
*
00130 0601 00 0 00625 OQC STO DWC
00131 0500 00 0 74411 CLA X
00132 0400 00 0 04123 ADD =12
00133 0601 00 0 00604 STO Y Y=X+12
00134 0500 00 0 00577 CLA IREC
00135 0402 00 0 00600 SUB NREC
00136 -0120 00 0 00141 TMI *+3
00137 0500 00 0 00625 CLA DWC (TRAILING ZEROS NOT INCLUDED IF
00140 0020 00 0 00142 TRA *+2 NOT A FULL LOGICAL RECORD)
00141 0500 00 0 00573 CLA LTPBF
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 5
00142 0601 00 0 00626 STO RWC DATA WORD COUNT FOR LOGICAL RECORD
00143 0074 00 4 00001 TSX GETLSG,4
00144 0074 00 4 00365 TSX GSOME,4
*
* READ IN THE DATA WORDS OF THE 1ST LOGICAL RECORD OF FILE
*
*
00145 0074 00 4 00443 TSX AREAD,4 READ IN RWC WORDS FROMPOSTN Y (=X+12)
TD 00146 3 00000 0 00634 TXH WBF
TD 00147 3 00000 0 00626 TXH RWC
00150 0020 00 0 00161 TRA ERTN UNREAD, ERROR, SKIP
00151 0020 00 0 00161 TRA ERTN READ ERROR, SKIP
00152 0020 00 0 00160 TRA REOF TAPE EOF - SKIP
* - - - - - - - - - - - - - - - - - - - - -
* RESTORE AND RETURN FROM OPENDF
* - - - - - - - - - - - - - - - - - - - - -
*
00153 0774 00 4 00000 X4 AXT **,4
00154 0774 00 3 00000 X3 AXT **,3
00155 0774 00 2 00000 X2 AXT **,2
00156 0774 00 1 00000 X1 AXT **,1
00157 0020 00 4 00003 TRA 3,4 RETURN TO CALLER
*
00160 -0625 00 0 74416 REOF STL TEOF TAPE EOF RETURN
00161 0534 00 4 00153 ERTN LXA X4,4 ERROR RETURN
00162 0534 00 3 00154 IX3 LXA X3,3
00163 0534 00 2 00155 LXA X2,2
00164 0534 00 1 00156 LXA X1,1
00165 0020 60 4 00001 TRA* 1,4
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
* READ FROM DUMPED FILE ON TAPE N WORDS INTO ANAME ETC.
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00166 0634 00 1 00270 RDF SXA DX1,1
00167 0634 00 2 00267 SXA DX2,2
00170 0634 00 3 00266 SXA DX3,3
00171 0634 00 4 00265 SXA DX4,4
00172 0074 00 4 00001 TSX GETLSG,4
00173 0600 00 0 74416 STZ TEOF
00174 0534 00 4 00265 LXA DX4,4
00175 0500 00 4 00001 CLA 1,4
00176 0621 00 0 00245 STA RFF ANAME
00177 0771 00 0 00022 ARS 18 ADDRESS OF N
00200 0621 00 0 00212 STA RFA
00201 0621 00 0 00215 STA RFB
00202 0500 00 0 00630 CLA LEORRD
00203 0621 00 0 00526 STA ABNADD
00204 0500 00 0 74444 CLA ABANTP TEST FOR OPRTR REQUESTED TAPE FILE ABANDON
00205 0100 00 0 00211 TZE *+4 SKIP IF NOT
00206 0074 00 4 00006 TSX WRFLX,4
00207 0 00010 0 00615 MESL,,8
00210 0020 00 0 00526 TRA EORABN IF SO, SKIP
*
* ENSURE THAT ONLY AS MANY WORDS AS ARE
* LEFT IN THE DUMPED FILE GET READ.
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 6
*
00211 0502 00 0 00625 CLS DWC NO. WDS. LEFT IN FILE
00212 0400 00 0 00000 RFA ADD ** (N)
00213 0100 00 0 00220 TZE RFC
00214 0120 00 0 00220 TPL RFC SKIP IF N LARGER THAN NO. WORDS IN FILE
00215 0500 00 0 00000 RFB CLA ** (N)
00216 0600 60 4 00004 STZ* 4,4 NO END TO FILE THIS TIME
00217 0020 00 0 00222 TRA RFD SKIP
00220 0500 00 0 00625 RFC CLA DWC NO. OF WORDS LEFT IN FILE, IS
00221 0601 60 4 00004 STO* 4,4 END (DUMPED) FILE WORD COUNT, AND
00222 0734 00 3 00000 RFD PAX 0,3 NO. OF WORDS TO BE RETURNED BY RDF
00223 0601 00 0 00572 STO NW1
00224 -0520 00 0 00626 NZT RWC
00225 0020 00 0 00274 TRA RFH SKIP IF NOTHING LEFT IN BUFFER
*
* MOVE UP TO A LOGICAL RECORD FULL OF WORDS TO CALLER'S AREA
*
00226 0502 00 0 00626 RFDA CLS RWC NO. OF WORDS LAST READ FROM LOGICAL REC.
00227 0400 00 0 00572 ADD NW1
00230 0120 00 0 00233 TPL *+3 SKIP IF NO. WORDS TO BE READ IS BIGGER
00231 0500 00 0 00572 CLA NW1 TOTAL NO. WORDS LEFT TO BE READ SMALLER
00232 0020 00 0 00234 TRA *+2 SKIP TO MOVE THAT NO. ONLY
00233 0500 00 0 00626 CLA RWC ELSE USE NO. OF WORDS IN LOG. REC.
00234 0601 00 0 00632 STO T SET NO. WORDS TO BE MOVED , = T
00235 0734 00 1 00000 PAX 0,1
00236 0400 00 0 00245 ADD RFF ANAME+........
00237 0621 00 0 00245 STA RFF ANAME+........+T
00240 0500 00 0 00632 CLA T T
00241 0400 00 0 00631 ADD LWBF WBF
00242 0400 00 0 00633 ADD M M
00243 0621 00 0 00244 STA RFE WBF+M+T
*
00244 0500 00 1 00000 RFE CLA **,1 (WBF+M+T)
00245 0601 00 1 00000 RFF STO **,1 (ANAME + SUM OF ALL T'S)
00246 2 00001 1 00244 TIX RFE,1,1
*
* DECREASE NO. WORDS LEFT IN FILE AND IN LOG. REC. BUFFER AND NO.
* STILL NEEDED TO BE READ
*
00247 0500 00 0 00625 CLA DWC
00250 0402 00 0 00632 SUB T
00251 0601 00 0 00625 STO DWC
00252 0500 00 0 00633 CLA M
00253 0400 00 0 00632 ADD T
00254 0601 00 0 00633 STO M
00255 0500 00 0 00626 CLA RWC
00256 0402 00 0 00632 SUB T
00257 0601 00 0 00626 STO RWC
00260 0500 00 0 00572 CLA NW1
00261 0402 00 0 00632 SUB T
00262 0601 00 0 00572 STO NW1
00263 -0100 00 0 00274 TNZ RFH SKIP IF MORE WORDS NEEDED
*
* - - - - - - - - - - - - - -
* NORMAL RETURN FROM RDF
* - - - - - - - - - - - - - -
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 7
*
00264 0074 00 4 00001 TSX GETLSG,4
00265 0774 00 4 00000 DX4 AXT **,4
00266 0774 00 3 00000 DX3 AXT **,3
00267 0774 00 2 00000 DX2 AXT **,2
00270 0774 00 1 00000 DX1 AXT **,1
00271 0520 60 4 00004 ZET* 4,4 TEST E.O.F. WORD COUNT
00272 0020 60 4 00003 TRA* 3,4 EOF (IN DUMPED FILE) RETURN, IF NON-ZERO
00273 0020 00 4 00006 TRA 6,4 NORMAL RETURN IF ZERO
*
* READ IN ANOTHER LOGICAL RECORD FULL
*
00274 0074 00 4 00001 RFH TSX GETLSG,4
00275 0500 00 0 00577 CLA IREC
00276 0400 00 0 04121 ADD =1
00277 0601 00 0 00577 STO IREC INDEX OF NEXT LOGICAL RECORD
00300 0402 00 0 00600 SUB NREC LAST LOG. RE. NO.
00301 -0120 00 0 00304 TMI *+3 SKIP IF NOT LAST LOG. REC.
00302 0500 00 0 00625 CLA DWC LAST ONE, GET NO. WORDS LEFT IN FILE
00303 0020 00 0 00305 TRA *+2 SKIP
00304 0500 00 0 00573 CLA LTPBF NOT LAST, GET SIZE OF A LOG. REC.
00305 0601 00 0 00626 STO RWC FOR NO. OF DATA WORDS TO BE READ
00306 0600 00 0 00633 STZ M
00307 0074 00 4 00365 TSX GSOME,4
*
00310 0500 00 0 74411 RFHA CLA X
00311 0400 00 0 00603 ADD LLR
00312 0601 00 0 00604 STO Y MOVE Y TO START OF NEXT LOG. REC.
00313 0601 00 0 74411 STO X
*
00314 MOVE 12,OPREAM,PRPR
00314 0774 00 1 00014 AXT 12,1 .001
00315 -0500 00 1 00572 CAL OPREAM+12,1 .001
00316 0602 00 1 00556 SLW PRPR+12,1 .001
00317 2 00001 1 00315 TIX *-2,1,1 .001
00320 0074 00 4 00414 TSX BREAD,4 READ PREAMBLE OF NEXT LOG. REC.
TD 00321 3 00000 0 00556 TXH OPREAM AFTER MOVING 2ND COPY DOWN
TD 00322 3 00000 0 04123 TXH =12 TO X, AND SETTING X=Y.
00323 0020 00 0 00357 TRA DIX4 NOTHING READ
00324 0020 00 0 00357 TRA DIX4 READ ERROR
00325 0020 00 0 00356 TRA DIX47 TAPE EOF
*
00326 CMPWDS 11,OPREAM,PRPR,BADFIL
00326 0774 00 1 00013 AXT 11,1 .001
00327 -0500 00 1 00571 CAL OPREAM+11,1 .001
00330 -0340 00 1 00555 LAS PRPR+11,1 .001
00331 0020 00 0 00352 TRA BADFIL .001
00332 0020 00 0 00334 TRA *+2 .001
00333 0020 00 0 00352 TRA BADFIL .001
00334 2 00001 1 00327 TIX *-5,1,1 .001
*
00335 0500 00 0 00571 CLA OPREAM+11
00336 0402 00 0 00555 SUB PRPR+11
00337 0100 00 0 00310 TZE RFHA IGNORE LOG.REC. IF SAME NO. AS LAST
*
00340 0500 00 0 74411 RFI CLA X
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 8
00341 0400 00 0 04123 ADD =12
00342 0601 00 0 00604 STO Y Y=X+12
*
00343 0074 00 4 00443 TSX AREAD,4 READ IN RWC DATA WORDS FROM
TD 00344 3 00000 0 00634 TXH WBF POSTN. Y = X+12 OF TAPE FILE
TD 00345 3 00000 0 00626 TXH RWC
00346 0020 00 0 00357 TRA DIX4
00347 0020 00 0 00357 TRA DIX4
00350 0020 00 0 00356 TRA DIX47
*
00351 0020 00 0 00226 TRA RFDA RETURN TO MOVE WORDS FROM BUFFER
*
00352 0500 00 0 00401 BADFIL CLA SOME
00353 -0760 00 0 00003 SSM
00354 0601 00 0 00401 STO SOME
00355 0020 00 0 00357 TRA DIX4
*
* ERROR RETURN FROM RDF
*
00356 -0625 00 0 74416 DIX47 STL TEOF
00357 0074 00 4 00001 DIX4 TSX GETLSG,4
00360 0534 00 4 00265 LXA DX4,4
00361 0534 00 3 00266 DIX3 LXA DX3,3
00362 0534 00 2 00267 LXA DX2,2
00363 0534 00 1 00270 LXA DX1,1
00364 0020 60 4 00002 TRA* 2,4
*
00365 0774 00 1 00001 GSOME AXT 1,1
00366 0500 00 0 00626 CLA RWC
00367 0400 00 0 04123 ADD =12
00370 0402 00 0 04124 SUB =432
00371 -0120 00 0 00374 TMI *+3
00372 0100 00 0 00374 TZE *+2
00373 1 00001 1 00370 TXI *-3,1,1
00374 0754 00 1 00000 PXA ,1
00375 0131 00 0 00000 XCA
00376 0200 00 0 04124 MPY =432
00377 -0600 00 0 00401 STQ SOME
00400 0020 00 4 00001 TRA 1,4
*
00401 0 00000 0 00000 SOME PZE
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* BASIC READ - SKIP 2ND COPY DOWN TO X, SET X=Y, READ FROM MAIN
* COPY, POSITION Y, INTO (1,4), A NO. OF WORDS GIVEN BY (2,4).
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00402 0634 00 4 00410 CHERR SXA CH4,4
00403 0074 00 4 00003 TSX IODIAG,4
00404 3 00007 0 00533 TXH ERAY,,7
00405 -0500 00 0 00536 CAL ERAY+3
00406 0402 00 0 04122 SUB =6
00407 0100 00 0 00412 TZE ANYEOF
00410 0774 00 4 00000 CH4 AXT **,4
00411 0020 00 4 00002 TRA 2,4
00412 0534 00 4 00410 ANYEOF LXA CH4,4
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 9
00413 0020 60 4 00001 TRA* 1,4
*
*
00414 0634 00 4 00504 BREAD SXA BRX4,4
00415 0500 00 4 00001 CLA 1,4
00416 0621 00 0 00455 STA BRE
00417 0621 00 0 00500 STA BRI
00420 0500 60 4 00002 CLA* 2,4
00421 0601 00 0 00605 STO NWORDS
00422 SKIFNB AREADA SKIP IF NO 2ND TAPE COPY
00422 0500 00 0 74443 CLA NOCHAN .001
00423 0402 00 0 04121 SUB =1 .001
00424 0100 00 0 00451 TZE AREADA .001
*
00425 0074 00 4 00004 TSX RDFILE,4
00426 3 00000 0 74422 PTH BFNA
00427 3 00000 0 74421 PTH BFNB
00430 3 00000 0 74411 PTH X
00431 3 00001 0 00601 PTH TEMP,,1
00432 3 00000 0 00515 PTH BRM
00433 3 00000 0 00601 PTH TEMP
00434 3 00000 0 00436 PTH BRB
00435 0020 00 0 00451 TRA AREADA
*
00436 0074 00 4 00402 BRB TSX CHERR,4
TD 00437 3 00000 0 00515 TXH BRM
00440 PRM MESK,7
00440 0074 00 4 00006 TSX WRFLX,4 .001
00441 0 00007 0 00606 MESK,,7 .001
00442 0020 00 0 00451 TRA AREADA
*
* READ FROM MAIN COPY, POSITION Y, INTO (1,4) ET SEQ, (2,4) WORDS
*
00443 0634 00 4 00504 AREAD SXA BRX4,4
00444 0500 00 4 00001 CLA 1,4
00445 0621 00 0 00455 STA BRE
00446 0621 00 0 00500 STA BRI
00447 0500 60 4 00002 CLA* 2,4
00450 0601 00 0 00605 STO NWORDS
00451 0074 00 4 00002 AREADA TSX RDWAIT,4
TD 00452 3 00000 0 74440 TXH LFNA
TD 00453 3 00000 0 74437 TXH LFNB
TD 00454 3 00000 0 00604 TXH Y
00455 2 00605 0 00000 BRE TIX **,,NWORDS
TD 00456 3 00000 0 00515 TXH BRM
TD 00457 3 00000 0 74416 TXH TEOF
TD 00460 3 00000 0 00463 TXH BRF
00461 0074 00 4 00001 TSX GETLSG,4
00462 0020 00 0 00504 TRA BRX4
*
00463 0074 00 4 00402 BRF TSX CHERR,4
TD 00464 3 00000 0 00515 TXH BRM
*
* ERROR, TRY TO READ FROM SECONDARY COPY INSTEAD OF MAIN ONE
*
00465 SKIFNB BRK SKIP IF NO 2ND TAPE COPY
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 10
00465 0500 00 0 74443 CLA NOCHAN .001
00466 0402 00 0 04121 SUB =1 .001
00467 0100 00 0 00510 TZE BRK .001
00470 0074 00 4 00005 TSX FWAIT,4 WAIT ON I/O.
TD 00471 3 00000 0 74422 TXH BFNA
TD 00472 3 00000 0 74421 TXH BFNB
TD 00473 3 00000 0 00474 TXH *+1
00474 0074 00 4 00002 TSX RDWAIT,4
TD 00475 3 00000 0 74422 TXH BFNA
TD 00476 3 00000 0 74421 TXH BFNB
TD 00477 3 00000 0 00604 TXH Y
00500 2 00605 0 00000 BRI TIX **,,NWORDS
TD 00501 3 00000 0 00515 TXH BRM
TD 00502 3 00000 0 74416 TXH TEOF
TD 00503 3 00000 0 00506 TXH BRJ
00504 0774 00 4 00000 BRX4 AXT **,4
00505 0020 00 4 00006 TRA 6,4
*
00506 0074 00 4 00402 BRJ TSX CHERR,4
TD 00507 3 00000 0 00515 TXH BRM
00510 0074 00 4 00007 BRK TSX $PRNTER,4
00511 0534 00 4 00504 LXA BRX4,4
00512 0020 00 4 00004 TRA 4,4
*
00513 0534 00 4 00504 BRLA LXA BRX4,4
00514 0020 00 4 00005 TRA 5,4
*
00515 0074 00 4 00010 BRM TSX $TSTEOF,4 END OF REEL
00516 0020 00 0 00526 TRA ABNADD ABANDON TAPE FILE
00517 0020 00 0 00521 TRA *+2 ERROR
00520 0020 00 0 00513 TRA BRLA END OF FILE (LAST REEL)
00521 0500 00 0 00574 CLA PHYSRC END OF REEL, REELS CHANGED
00522 0400 00 0 04121 ADD =1
00523 0601 00 0 74411 STO X
00524 0601 00 0 00604 STO Y
00525 0020 00 0 00451 TRA AREADA
*
00526 EORABN EQU *
00526 0020 00 0 00000 ABNADD TRA ** (OPENDF OR RDF RETURN)
*
00527 0534 00 4 00153 EORAB1 LXA X4,4 OPENDF RETURN
00530 1 77777 4 00162 TXI IX3,4,-1 GO RETURN VIA (2,4)
*
00531 0534 00 4 00265 EORAB2 LXA DX4,4 RDF RETURN
00532 1 77775 4 00361 TXI DIX3,4,-3 GO RETURN VIA (5,4)
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* CONSTANTS, VARIABLES, ETC.
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00533 ERAY BSS 7
00542 PRPR BSS 12
00556 OPREAM BSS 12
00572 0 00000 0 00000 NW1 PZE
00573 0 00000 0 03264 LTPBF PZE 4*432-12
00574 0 00000 0 00660 PHYSRC PZE 432
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 11
00575 0 00000 0 00000 NFLR PZE
00576 0 00000 0 00000 NLAST PZE
00577 0 00000 0 00000 IREC PZE
00600 0 00000 0 00000 NREC PZE
00601 TEMP BSS 2
00603 0 00000 0 03300 LLR PZE 4*432
00604 0 00000 0 00000 Y PZE
00605 0 00000 0 00000 NWORDS PZE
00606 606225234645 MESK BCI 7, SECONDARY COPY NOT MOVED DOWN THIS TIME.
00615 606321472560 MESL BCI 8, TAPE FILE WILL BE ABANDONED, PUT KEY UP AGAIN.
00625 0 00000 0 00000 DWC PZE
00626 0 00000 0 00000 RWC PZE
00627 0 00000 0 00527 LEOROP PZE EORAB1
00630 0 00000 0 00531 LEORRD PZE EORAB2
00631 0 00000 0 00634 LWBF PZE WBF
00632 0 00000 0 00000 T PZE
00633 0 00000 0 00000 M PZE
00634 WBF BSS 4*432-12
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
074446 DEMKEY BOOL 74446 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01554 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
74446 COMMON 1 INSERT DUMMY IF NECESSARY
74445 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
74445 KEYVAL COMMON 1
74444 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
74443 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
74442 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
74441 DP COMMON 1 PROGRAMMER NO. OF DITTO.
74440 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
74437 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
74423 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
74423 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
74422 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
74421 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
74420 AUN COMMON 1 CHANNEL A UNIT NO.
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 12
74417 BUN COMMON 1 CHANNEL B UNIT NO.
74416 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
74412 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
74412 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
74411 X COMMON 1 TAPE FILE POINTER
END
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 1
POST PROCESSOR ASSEMBLY DATA
74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
4125 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
633 M 17, 242, 252, 254, 306
632 T 234, 240, 250, 253, 256, 261
74411 X 31, 37, 41, 45, 47, 122, 124, 131, 310, 313, 340, 430, 523, 4120
604 Y 42, 50, 125, 133, 312, 342, 454, 477, 524
74441 DP 4120
74442 DU 4120
44 FL 44, 60, 104, 110, 113
122 OQ 34
1554 UF 4120
156 X1 13, 164
155 X2 14, 163
154 X3 15, 162
153 X4 16, 161, 527
74420 AUN 4120
436 BRB 434
455 BRE 416, 445
463 BRF 460
500 BRI 417, 446
506 BRJ 503
510 BRK 467
515 BRM 432, 437, 456, 464, 501, 507
74417 BUN 4120
410 CH4 402, 412
625 DWC 130, 137, 211, 220, 247, 251, 302
270 DX1 166, 363
267 DX2 167, 362
266 DX3 170, 361
265 DX4 171, 174, 360, 531
44 FLA 54, 55
162 IX3 530
603 LLR 311
572 NW1 223, 227, 231, 260, 262
130 OQC 121
166 RDF 0
212 RFA 200
215 RFB 201
220 RFC 213, 214
222 RFD 217
244 RFE 243, 246
245 RFF 176, 236, 237
274 RFH 225, 263
340 RFI
626 RWC 142, 147, 224, 226, 233, 255, 257, 305, 345, 366
77777 UFL 4120
634 WBF 146, 344, 631
17 BASE 4120
74422 BFNA 426, 471, 475, 4120
74421 BFNB 427, 472, 476, 4120
513 BRLA 520
504 BRX4 414, 443, 462, 511, 513
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 2
POST PROCESSOR ASSEMBLY DATA
361 DIX3 532
357 DIX4 323, 324, 346, 347, 355
533 ERAY 404, 405
161 ERTN 33, 150, 151
51 FLAB 127
577 IREC 76, 105, 111, 134, 275, 277
57 JUMP 36
74440 LFNA 452, 4120
74437 LFNB 453, 4120
631 LWBF 241
606 MESK 441
615 MESL 27, 207
575 NFLR 70, 77
600 NREC 102, 106, 135, 300
542 PRPR 316, 330, 336
160 REOF 56, 152
226 RFDA 351
310 RFHA 337
401 SOME 35, 40, 126, 352, 354, 377
601 TEMP 72, 74, 103, 431, 433
74416 TEOF 20, 160, 173, 356, 457, 502, 4120
443 AREAD 145, 343
414 BREAD 51, 320
402 CHERR 436, 463, 506
356 DIX47 325, 350
5 FWAIT 470
365 GSOME 144, 307
74412 LABEL 4120
573 LTPBF 65, 141, 304
576 NLAST 71, 100
0 NLREC 61
2 PAUSE 4120
74423 PREAM 116, 4120
6 WRFLX 26, 206, 440
5 ABANKY 4120
74444 ABANTP 24, 204, 4120
526 ABNADD 22, 203, 516
412 ANYEOF 407
451 AREADA 424, 435, 442, 525
352 BADFIL 331, 333
3 CHLDFL 4120
10 CHREEL 4120
77462 COMRLC 4120
1 CTINUE 4120
74446 DEMKEY 4120
527 EORAB1 627
531 EORAB2 630
526 EORABN 30, 210, 526
1 GETLSG 23, 44, 143, 172, 264, 274, 357, 461
3 IODIAG 403
74445 KEYVAL 4120
627 LEOROP 21
630 LEORRD 202
7 LSREEL 4120
77777 NEWCOM 4120
1 'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65 06/01/70 1350.3 PAGE 3
POST PROCESSOR ASSEMBLY DATA
74443 NOCHAN 422, 465, 4120
605 NWORDS 421, 450, 455, 500
77461 OLDCOM 4120
13 OPENDF 0
556 OPREAM 52, 57, 64, 73, 115, 120, 315, 321, 327, 335
574 PHYSRC 32, 46, 67, 521
7 PRNTER 510
4 RDFILE 425
2 RDWAIT 451, 474
4 STOPLD 4120
6 SWCHAN 4120
10 TSTEOF 515
0 NO ERROR IN ABOVE ASSEMBLY.
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 1
* (TIME-SHARING VERSION)
*
00022 ENTRY INITTF
00403 ENTRY TERMTF
00437 ENTRY TSTEOF
*
EXTERN GETLSG,IOBDT
EXTERN ATTACH
EXTERN ATTNAM
EXTERN RDWAIT,FWAIT
EXTERN VERIFY,BUFFER,OPEN,SLEEP
EXTERN MOUNT,UMOUNT,CLOSE,WRFLX
*
INSERT BMCRSC
*
* ZERO-IZE A THROUGH A+X-1
*
CLEAR MACRO A,X
AXT X,1
STZ A+X,1
TIX *-1,1,1
CLEAR END
*
* MOVE X WORDS FROM A ET SEQ TO B ET SEQ
*
MOVE MACRO X,A,B
AXT X,1
CAL A+X,1
SLW B+X,1
TIX *-2,1,1
MOVE END
*
* PRINT ONE LINE COMMENT
*
PRLINE MACRO COMNT,NWC,LOC
TSX WRFLX,4
LOC,,NWC
RMT
LOC BCI NWC,COMNT
RMT
PRLINE END
*
*
* EXECUTE INST. IN CORE A
*
*
EXEC MACRO OPC,ADD
TSX $GETA,7
OPC ADD
EXEC END
*
* GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
*
GETSIG MACRO
TSX GETLSG,4
GETSIG END
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 2
*
* TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP
*
SKIFNB MACRO SKIP
CLA NOCHAN
SUB =1
TZE SKIP
SKIFNB END
*
* PRINT AN N-WORD MESSAGE FROM MESSGE
*
PRM MACRO MESSGE,N
TSX WRFLX,4
MESSGE,,N
PRM END
*
* COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,
* AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.
*
CMPWDS MACRO N,A,B,NF
AXT N,1
CAL A+N,1
LAS B+N,1
TRA NF
TRA *+2
TRA NF
TIX *-5,1,1
CMPWDS END
*
* WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED
*
WAIT MACRO A,B,E
TSX FWAIT,4
PTH A
PTH B
PTH E
WAIT END
*
* CLOSE THE FILE (A,B)
*
CLOSE MACRO A,B
TSX CLOSE,4
PTH A
PTH B
CLOSE END
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* INITIATE DUMP TAPE FILE READ (OPEN, AND READ I.D
* LABELS FROM BOTH COPIES, AND CHECK THEY MATCH)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00000 272563436227 GETLSG
00001 314622246360 IOBDT
00002 216363212330 ATTACH
00003 216363452144 ATTNAM
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 3
00004 512466213163 RDWAIT
00005 266621316360 FWAIT
00006 652551312670 VERIFY
00007 226426262551 BUFFER
00010 464725456060 OPEN
00011 624325254760 SLEEP
00012 444664456360 MOUNT
00013 644446644563 UMOUNT
00014 234346622560 CLOSE
00015 665126436760 WRFLX
00016 475145632551 PRNTER
00017 216242464751 ASKOPR
00022 0634 00 1 00401 INITTF SXA X1,1
00023 0634 00 2 00400 SXA X2,2
00024 0634 00 3 00377 SXA X3,3
00025 0634 00 4 00376 SXA X4,4
00026 0074 00 4 00000 TSX GETLSG,4
00027 SKIFNB IA SKIP IF ONLY ONE TAPE COPY
00027 0500 00 0 74443 CLA NOCHAN .001
00030 0402 00 0 03265 SUB =1 .001
00031 0100 00 0 00077 TZE IA .001
*
* VERIFY THAT 2ND CHANNEL HAS CORRECT DUPLICATE MOUNTED
*
00032 0774 00 2 00012 AXT 10,2
00033 0074 00 4 00006 CHCKBA TSX VERIFY,4
TD 00034 3 00000 0 74417 TXH BUN
00035 3 00004 0 74412 TXH LABEL,,4
TD 00036 3 00000 0 00041 TXH CHCKBB ERROR
TD 00037 3 00000 0 01014 TXH ERCODE
00040 0020 00 0 00077 TRA IA SKIP IF OTHER CHANNEL O.K.
*
00041 0074 00 4 00016 CHCKBB TSX $PRNTER,4
00042 0500 00 0 01014 CLA ERCODE
00043 0402 00 0 03267 SUB =7
00044 -0100 00 0 00070 TNZ CHCKBD SKIP IF NOT INCORRECT-LABEL ERROR
00045 2 00002 2 00033 TIX CHCKBA,2,2 TRY 5 TIMES IF LABEL IS INCORRECT
*
00046 0074 00 4 00013 WRONGB TSX UMOUNT,4 IF STILL WRONG UNMOUNT THIS TAPE
TD 00047 3 00000 0 74417 TXH BUN
00050 2 01103 0 01067 TIX WRNGT2,,LWT2
00051 0074 00 4 00017 CHCKBC TSX $ASKOPR,4
00052 3 00006 0 01035 PTH MESC,,6
00053 3 00001 0 00063 PTH CONT,,CTINUE
00054 3 00006 0 01043 PTH MESD,,6
00055 3 00003 0 00075 PTH QUITFL,,CHLDFL
00056 3 00006 0 01051 PTH MESE,,6
00057 3 00002 0 00060 PTH REST,,PAUSE
*
00060 -0500 00 0 03271 REST CAL =45
00061 0074 00 4 00011 TSX SLEEP,4
00062 0020 00 0 00051 TRA CHCKBC
00063 0074 00 4 00012 CONT TSX MOUNT,4 MOUNT ANOTHER ON 2ND CHANNEL
TD 00064 3 00000 0 03266 TXH =2
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 4
TD 00065 3 00000 0 74417 TXH BUN
00066 2 01113 0 01104 TIX RMT2,,LRMT2
00067 0020 00 0 00032 TRA CHCKBA-1 AND RE-VERIFY
*
00070 2 00001 2 00033 CHCKBD TIX CHCKBA,2,1 TRY 10 TIMES IF SOME OTHER ERROR
00071 0074 00 4 00013 TSX UMOUNT,4 THEN UNMOUNT THIS TAPE
TD 00072 3 00000 0 74417 TXH BUN
00073 2 01132 0 01114 TIX BADT2,,LBT2
00074 0020 00 0 00051 TRA CHCKBC THEN GO STOP TO SEE WHAT NEXT
*
00075 QUITFL EQU * TO ABANDON THIS TAPE FILE,
00075 0534 00 4 00376 ABEXT LXA X4,4
00076 1 00001 4 00377 TXI X3,4,1 THEN GO EXIT VIA 1,4
*
* OPEN TAPE FILE 1ST COPY AND READ ITS I.D.
*
00077 0774 00 2 00012 IA AXT 10,2
00100 0074 00 4 00010 IAA TSX OPEN,4
TD 00101 3 00000 0 01013 TXH R
TD 00102 3 00000 0 74440 TXH LFNA
TD 00103 3 00000 0 74437 TXH LFNB
TD 00104 3 00000 0 03273 TXH =-0
TD 00105 3 00000 0 03273 TXH =-0
TD 00106 3 00000 0 00162 TXH ID ERROR
*
00107 0074 00 4 00007 TSX BUFFER,4 ASSIGN BUFFERS
TD 00110 3 00000 0 74440 TXH LFNA
TD 00111 3 00000 0 74437 TXH LFNB
00112 2 01015 0 01410 TIX IB1,,LIB
00113 -0500 00 0 03265 CAL =1
00114 0602 00 0 74411 SLW X
*
00115 0774 00 3 00066 AXT RECSIZ/8,3
00116 0074 00 4 00004 IB TSX RDWAIT,4 READ I.D. RECORD LABEL
TD 00117 3 00000 0 74440 TXH LFNA
TD 00120 3 00000 0 74437 TXH LFNB
TD 00121 3 00000 0 74411 TXH X
00122 3 00010 0 02270 TXH WBF,,8
TD 00123 3 00000 0 00200 TXH IE EOF, ERROR
TD 00124 3 00000 0 74416 TXH TEOF
TD 00125 3 00000 0 00136 TXH IC
00126 0074 00 4 00000 TSX GETLSG,4
00127 0600 00 0 01012 STZ IDERR I.D. LABEL READ O.K., SKIP TO DO 2ND COPY
00130 MOVE 8,WBF,TAPEID
00130 0774 00 1 00010 AXT 8,1 .001
00131 -0500 00 1 02300 CAL WBF+8,1 .001
00132 0602 00 1 02324 SLW TAPEID+8,1 .001
00133 2 00001 1 00131 TIX *-2,1,1 .001
00134 0600 00 0 02324 STZ TAPEID+8
00135 0020 00 0 00206 TRA IG
*
00136 0074 00 4 00016 IC TSX $PRNTER,4 READ ERROR
00137 0500 00 0 74411 CLA X
00140 0400 00 0 03270 ADD =8
00141 0601 00 0 74411 STO X
00142 2 00001 3 00116 TIX IB,3,1 TRY AGAIN AT NEXT REPETITION OF LABEL
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 5
00143 PRM MESA,8 I.D. IS UNREAD,
00143 0074 00 4 00015 TSX WRFLX,4 .001
00144 0 00010 0 01020 MESA,,8 .001
00145 0074 00 4 00017 BACK TSX $ASKOPR,4
00146 3 00006 0 01035 PTH MESC,,6
00147 3 00001 0 00157 PTH CONT1,,CTINUE
00150 3 00006 0 01043 PTH MESD,,6
00151 3 00003 0 00075 PTH QUITFL,,CHLDFL
00152 3 00006 0 01051 PTH MESE,,6
00153 3 00002 0 00154 PTH REST1,,PAUSE
*
00154 -0500 00 0 03271 REST1 CAL =45
00155 0074 00 4 00011 TSX SLEEP,4
00156 0020 00 0 00145 TRA BACK
*
00157 0500 00 0 03265 CONT1 CLA =1 OR CONTINUE WITHOUT CHECKING I.D.'S
00160 0601 00 0 01012 STO IDERR
00161 0020 00 0 00206 TRA IG
*
00162 ID PRM MESB,5 ERROR OPENING FILE
00162 0074 00 4 00015 TSX WRFLX,4 .001
00163 0 00005 0 01030 MESB,,5 .001
00164 0074 00 4 00016 TSX $PRNTER,4
00165 2 00001 2 00100 IDA TIX IAA,2,1 TRY 10 TIMES TO OPEN
00166 0074 00 4 00017 BACK1 TSX $ASKOPR,4
00167 3 00006 0 01035 PTH MESC,,6
00170 3 00001 0 00077 PTH IA,,CTINUE
00171 3 00006 0 01043 PTH MESD,,6
00172 3 00003 0 00075 PTH QUITFL,,CHLDFL
00173 3 00006 0 01051 PTH MESE,,6
00174 3 00002 0 00175 PTH REST2,,PAUSE
*
00175 -0500 00 0 03271 REST2 CAL =45
00176 0074 00 4 00011 TSX SLEEP,4
00177 0020 00 0 00166 TRA BACK1
*
00200 IE PRM MESF,8 EOF IN WRONG PLACE
00200 0074 00 4 00015 TSX WRFLX,4 .001
00201 0 00010 0 01057 MESF,,8 .001
00202 CLOSE LFNA,LFNB
00202 0074 00 4 00014 TSX CLOSE,4 .001
00203 3 00000 0 74440 PTH LFNA .001
00204 3 00000 0 74437 PTH LFNB .001
00205 0020 00 0 00165 TRA IDA TRY TEN TIMES TO NOT GET ONE
*
*
* OPEN TAPE FILE 2ND COPY, READ ITS I.D. LABEL
*
00206 IG SKIFNB IS
00206 0500 00 0 74443 CLA NOCHAN .001
00207 0402 00 0 03265 SUB =1 .001
00210 0100 00 0 00350 TZE IS .001
00211 0774 00 2 00012 AXT 10,2
00212 0074 00 4 00010 IH TSX OPEN,4
TD 00213 3 00000 0 01013 TXH R
TD 00214 3 00000 0 74422 TXH BFNA
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 6
TD 00215 3 00000 0 74421 TXH BFNB
TD 00216 3 00000 0 03273 TXH =-0
TD 00217 3 00000 0 03273 TXH =-0
TD 00220 3 00000 0 00272 TXH IK ERROR
*
00221 0074 00 4 00007 TSX BUFFER,4 ASSIGN BUFFER
TD 00222 3 00000 0 74422 TXH BFNA
TD 00223 3 00000 0 74421 TXH BFNB
00224 2 01015 0 02325 TIX IB2,,LIB
00225 -0500 00 0 03265 CAL =1
00226 0602 00 0 74411 SLW X
*
00227 0774 00 3 00066 AXT RECSIZ/8,3
00230 0074 00 4 00004 II TSX RDWAIT,4 READ I.D. RECORD LABEL
TD 00231 3 00000 0 74422 TXH BFNA
TD 00232 3 00000 0 74421 TXH BFNB
TD 00233 3 00000 0 74411 TXH X
00234 2 01017 0 02300 TIX WBF+8,,L8
TD 00235 3 00000 0 00310 TXH IM EOF, ERROR
TD 00236 3 00000 0 74416 TXH TEOF
TD 00237 3 00000 0 00243 TXH IJ
00240 -0520 00 0 01012 NZT IDERR I.D. READ O.K.
00241 0020 00 0 00320 TRA IO SKIP TO COMPARE IF BOTH READ
00242 0020 00 0 00342 TRA IR OR CARRY ON WITH NO CHECK
*
00243 0074 00 4 00016 IJ TSX $PRNTER,4
00244 0500 00 0 74411 CLA X
00245 0400 00 0 03270 ADD =8
00246 0601 00 0 74411 STO X
00247 2 00001 3 00230 TIX II,3,1 TRY TO READ AGAIN AT REPETITION OF LABEL
00250 -0500 00 0 03275 CAL =H ON 2N
00251 0602 00 0 01022 SLW MESA+2
00252 -0500 00 0 03272 CAL =HD COPY
00253 0602 00 0 01023 SLW MESA+3
00254 PRM MESA,8
00254 0074 00 4 00015 TSX WRFLX,4 .001
00255 0 00010 0 01020 MESA,,8 .001
00256 0520 00 0 01012 ZET IDERR
00257 0020 00 0 00075 TRA QUITFL ABANDON BOTH TAPES IF NO I.D.'S READ
00260 0074 00 4 00017 BACK2 TSX $ASKOPR,4
00261 3 00006 0 01035 PTH MESC,,6
00262 3 00001 0 00342 PTH IR,,CTINUE
00263 3 00006 0 01043 PTH MESD,,6
00264 3 00003 0 00075 PTH QUITFL,,CHLDFL
00265 3 00006 0 01051 PTH MESE,,6
00266 3 00002 0 00267 PTH REST3,,PAUSE
*
00267 -0500 00 0 03271 REST3 CAL =45
00270 0074 00 4 00011 TSX SLEEP,4
00271 0020 00 0 00260 TRA BACK2
*
*
00272 IK PRM MESB,5
00272 0074 00 4 00015 TSX WRFLX,4 .001
00273 0 00005 0 01030 MESB,,5 .001
00274 0074 00 4 00016 TSX $PRNTER,4
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 7
00275 2 00001 2 00212 IL TIX IH,2,1 TRY 10 TIMES TO OPEN
00276 0074 00 4 00017 BACK3 TSX $ASKOPR,4
00277 3 00006 0 01035 PTH MESC,,6
00300 3 00001 0 00206 PTH IG,,CTINUE
00301 3 00006 0 01043 PTH MESD,,6
00302 3 00003 0 00075 PTH QUITFL,,CHLDFL
00303 3 00006 0 01051 PTH MESE,,6
00304 3 00002 0 00305 PTH REST4,,PAUSE
*
00305 -0500 00 0 03271 REST4 CAL =45
00306 0074 00 4 00011 TSX SLEEP,4
00307 0020 00 0 00276 TRA BACK3
*
*
00310 -0500 00 0 03274 IM CAL =H 2ND T
00311 0602 00 0 01064 SLW MESF+5
00312 PRM MESF,8
00312 0074 00 4 00015 TSX WRFLX,4 .001
00313 0 00010 0 01057 MESF,,8 .001
00314 CLOSE BFNA,BFNB
00314 0074 00 4 00014 TSX CLOSE,4 .001
00315 3 00000 0 74422 PTH BFNA .001
00316 3 00000 0 74421 PTH BFNB .001
00317 0020 00 0 00275 TRA IL GO RE-OPEN,READ AGAIN (10 TIMES)
*
*
* COMPARE I.D. LABELS ON BOTH COPIES
*
00320 IO CMPWDS 8,WBF,WBF+8,IP
00320 0774 00 1 00010 AXT 8,1 .001
00321 -0500 00 1 02300 CAL WBF+8,1 .001
00322 -0340 00 1 02310 LAS WBF+8+8,1 .001
00323 0020 00 0 00330 TRA IP .001
00324 0020 00 0 00326 TRA *+2 .001
00325 0020 00 0 00330 TRA IP .001
00326 2 00001 1 00321 TIX *-5,1,1 .001
00327 0020 00 0 00337 TRA IQ SKIP IF COMPARISON O.K.
00330 IP CLOSE LFNA,LFNB WRONG TAPE ON 2ND CHANNEL
00330 0074 00 4 00014 TSX CLOSE,4 .001
00331 3 00000 0 74440 PTH LFNA .001
00332 3 00000 0 74437 PTH LFNB .001
00333 CLOSE BFNA,BFNB
00333 0074 00 4 00014 TSX CLOSE,4 .001
00334 3 00000 0 74422 PTH BFNA .001
00335 3 00000 0 74421 PTH BFNB .001
00336 0020 00 0 00046 TRA WRONGB GO REMOUNT AT LEAST 2ND COPY
*
* PRINT I.D. LABEL AND SET FILE POINTER AT START OF 1ST DUMPED FILE
*
00337 IQ PRM MESG,9 BOTH LABELS READ O.K.,PRINT MESSAGE
00337 0074 00 4 00015 TSX WRFLX,4 .001
00340 0 00011 0 01152 MESG,,9 .001
00341 0020 00 0 00350 TRA IS SKIP
00342 -0520 00 0 01012 IR NZT IDERR SEE WHICH LABEL WAS READ
00343 0020 00 0 00350 TRA IS SKIP IF IT WAS 1ST COPY
00344 MOVE 8,WBF+8,WBF 2ND COPY, MOVE IT DOWN
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 8
00344 0774 00 1 00010 AXT 8,1 .001
00345 -0500 00 1 02310 CAL WBF+8+8,1 .001
00346 0602 00 1 02300 SLW WBF+8,1 .001
00347 2 00001 1 00345 TIX *-2,1,1 .001
00350 IS PRM MESH,7 PRINT MESSAGE
00350 0074 00 4 00015 TSX WRFLX,4 .001
00351 0 00007 0 01163 MESH,,7 .001
00352 PRM WBF,4
00352 0074 00 4 00015 TSX WRFLX,4 .001
00353 0 00004 0 02270 WBF,,4 .001
00354 0074 00 4 00000 TSX GETLSG,4
00355 -0500 00 0 02274 CAL WBF+4
00356 0602 00 0 01200 SLW MESI+6
00357 -0500 00 0 02275 CAL WBF+5
00360 0602 00 0 01202 SLW MESI+8
00361 PRM MESI,9 PRINT DATE/TIME DUMPING ON IT BEGAN
00361 0074 00 4 00015 TSX WRFLX,4 .001
00362 0 00011 0 01172 MESI,,9 .001
00363 -0500 00 0 02277 CAL WBF+7
00364 0100 00 0 00374 TZE IT SKIP IF NO END OF DUMP 'DAY'
00365 0074 00 4 00001 TSX IOBDT,4
00366 0602 00 0 01210 SLW MESJ+5
00367 -0600 00 0 01212 STQ MESJ+7
00370 PRM MESJ,8 PRINT END OF DUMP 'DAY'
00370 0074 00 4 00015 TSX WRFLX,4 .001
00371 0 00010 0 01203 MESJ,,8 .001
00372 PRM MESK,5
00372 0074 00 4 00015 TSX WRFLX,4 .001
00373 0 00005 0 01213 MESK,,5 .001
*
00374 0774 00 1 00660 IT AXT RECSIZ,1
00375 0634 00 1 74411 SXA X,1 SET FILE POINTER TO START OF 1ST FILE
*
00376 0774 00 4 00000 X4 AXT **,4
00377 0774 00 3 00000 X3 AXT **,3
00400 0774 00 2 00000 X2 AXT **,2
00401 0774 00 1 00000 X1 AXT **,1
00402 0020 00 4 00002 TRA 2,4
*
* - - - - - - - - - - - - - - - - - - - - -
* TERMINATE DUMP TAPE FILES
* - - - - - - - - - - - - - - - - - - - - -
*
00403 0634 00 4 00435 TERMTF SXA TX4,4
00404 0074 00 4 00000 TSX GETLSG,4
00405 PRM MESL,7
00405 0074 00 4 00015 TSX WRFLX,4 .001
00406 0 00007 0 01220 MESL,,7 .001
00407 0074 00 4 00005 TSX FWAIT,4
TD 00410 3 00000 0 74440 TXH LFNA
TD 00411 3 00000 0 74437 TXH LFNB
TD 00412 3 00000 0 00413 TXH *+1
00413 CLOSE LFNA,LFNB
00413 0074 00 4 00014 TSX CLOSE,4 .001
00414 3 00000 0 74440 PTH LFNA .001
00415 3 00000 0 74437 PTH LFNB .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 9
TD 00416 3 00000 0 00417 TXH *+1
00417 0074 00 4 00005 TSX FWAIT,4
TD 00420 3 00000 0 74422 TXH BFNA
TD 00421 3 00000 0 74421 TXH BFNB
TD 00422 3 00000 0 00423 TXH *+1
00423 CLOSE BFNA,BFNB
00423 0074 00 4 00014 TSX CLOSE,4 .001
00424 3 00000 0 74422 PTH BFNA .001
00425 3 00000 0 74421 PTH BFNB .001
TD 00426 3 00000 0 00427 TXH *+1
00427 0074 00 4 00013 TSX UMOUNT,4
TD 00430 3 00000 0 74420 TXH AUN
00431 2 01141 0 01133 TIX UMA,,LUMA
00432 0074 00 4 00013 TSX UMOUNT,4
TD 00433 3 00000 0 74417 TXH BUN
00434 2 01151 0 01142 TIX UMB,,LUMB
00435 0774 00 4 00000 TX4 AXT **,4
00436 0020 00 4 00001 TRA 1,4
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* TEST FOR END OF TAPE-FILE, IF NOT CHANGE REELS
* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*
00437 0634 00 1 00401 TSTEOF SXA X1,1
00440 0634 00 2 00400 SXA X2,2
00441 0634 00 3 00377 SXA X3,3
00442 0634 00 4 00376 SXA X4,4
00443 PRLINE ( END OF REEL ON RELOAD TAPE FILE.),6
00443 0074 00 4 00015 TSX WRFLX,4 .001
00444 0 00006 0 03205 ..001,,6 .001
RMT .001
..001 BCI 6, END OF REEL ON RELOAD TAPE FILE. .001
RMT .001
00445 0074 00 4 00017 TSX $ASKOPR,4
00446 3 00010 0 01323 PTH MESM,,8
00447 3 00007 0 00452 PTH EOTF,,LSREEL
00450 3 00010 0 01333 PTH MESN,,8
00451 3 00001 0 00454 PTH TB1,,CTINUE
*
00452 0534 00 4 00376 EOTF LXA X4,4 LAST REEL OF TAPE LOAD-FILE
00453 1 00001 4 00746 TXI TV,4,1 GO EXIT VIA 3,4
*
00454 0074 00 4 00003 TB1 TSX ATTNAM,4
00455 3 00002 0 01010 PTH NM,,2
00456 0074 00 4 00002 TSX ATTACH,4
00457 3 00000 0 74442 PTH DU
00460 3 00000 0 74441 PTH DP
*
*
00461 0074 00 4 00005 TB TSX FWAIT,4 JUST TO CATCH ERRORS.
TD 00462 3 00000 0 74440 TXH LFNA
TD 00463 3 00000 0 74437 TXH LFNB
TD 00464 3 00000 0 00465 TXH *+1
00465 CLOSE LFNA,LFNB CHANGE REELS
00465 0074 00 4 00014 TSX CLOSE,4 .001
00466 3 00000 0 74440 PTH LFNA .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 10
00467 3 00000 0 74437 PTH LFNB .001
TD 00470 3 00000 0 00471 TXH *+1
00471 0074 00 4 00005 TSX FWAIT,4
TD 00472 3 00000 0 74422 TXH BFNA
TD 00473 3 00000 0 74421 TXH BFNB
TD 00474 3 00000 0 00475 TXH *+1
00475 CLOSE BFNA,BFNB
00475 0074 00 4 00014 TSX CLOSE,4 .001
00476 3 00000 0 74422 PTH BFNA .001
00477 3 00000 0 74421 PTH BFNB .001
TD 00500 3 00000 0 00501 TXH *+1
00501 0074 00 4 00013 TSX UMOUNT,4 UNMOUNT 'A' REEL
TD 00502 3 00000 0 74420 TXH AUN
00503 2 01236 0 01227 TIX UMRA,,LUMRA
00504 0074 00 4 00013 TSX UMOUNT,4
TD 00505 3 00000 0 74417 TXH BUN UNMOUNT 'B' REEL TOO. ***
00506 2 01246 0 01237 TIX UMRB,,LUMRB
TD 00507 3 00000 0 00510 TXH *+1 NULL ERROR RETURN, IN CASE NO B COPY.
*
00510 0074 00 4 00012 TD TSX MOUNT,4 MOUNT NEW 'A' REEL
TD 00511 3 00000 0 03265 TXH =1
TD 00512 3 00000 0 74420 TXH AUN
00513 2 01257 0 01247 TIX MRA,,LMRA
00514 0774 00 2 00003 AXT 3,2
00515 0074 00 4 00006 TE TSX VERIFY,4 CHECK I/O SYSTEM LABEL
TD 00516 3 00000 0 74420 TXH AUN
00517 2 01016 0 74412 TIX LABEL,,L4
TD 00520 3 00000 0 00523 TXH TF
TD 00521 3 00000 0 01014 TXH ERCODE
00522 0020 00 0 00545 TRA TH SKIP IF O.K.
*
00523 0074 00 4 00016 TF TSX $PRNTER,4 VERIFICATION ERROR
00524 0500 00 0 01014 CLA ERCODE
00525 0402 00 0 03267 SUB =7
00526 0100 00 0 00530 TZE TG
00527 2 00001 2 00515 TIX TE,2,1
00530 0074 00 4 00013 TG TSX UMOUNT,4
TD 00531 3 00000 0 74420 TXH AUN
00532 2 01305 0 01271 TIX WRA,,LWRA
00533 0074 00 4 00017 BACK5 TSX $ASKOPR,4
00534 3 00006 0 01035 PTH MESC,,6
00535 3 00001 0 00510 PTH TD,,CTINUE
00536 3 00006 0 01043 PTH MESD,,6
00537 3 00003 0 00075 PTH ABEXT,,CHLDFL
00540 3 00006 0 01051 PTH MESE,,6
00541 3 00002 0 00542 PTH REST5,,PAUSE
*
00542 -0500 00 0 03271 REST5 CAL =45
00543 0074 00 4 00011 TSX SLEEP,4
00544 0020 00 0 00533 TRA BACK5
*
00545 0074 00 4 00010 TH TSX OPEN,4
TD 00546 3 00000 0 01013 TXH R
TD 00547 3 00000 0 74440 TXH LFNA
TD 00550 3 00000 0 74437 TXH LFNB
TD 00551 3 00000 0 03273 TXH =-0
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 11
TD 00552 3 00000 0 03273 TXH =-0
TD 00553 3 00000 0 00752 TXH TW ERROR
00554 0074 00 4 00007 TSX BUFFER,4
TD 00555 3 00000 0 74440 TXH LFNA
TD 00556 3 00000 0 74437 TXH LFNB
00557 2 01015 0 01410 TIX IB1,,LIB
*
00560 0074 00 4 00004 TSX RDWAIT,4 CHECK DAEMON'S TAPE I.D.
TD 00561 3 00000 0 74440 TXH LFNA
TD 00562 3 00000 0 74437 TXH LFNB
TD 00563 3 00000 0 03265 TXH =1
00564 2 01376 0 01377 TIX IDBF,,L9
TD 00565 3 00000 0 00760 TXH TX EOF, ERROR
TD 00566 3 00000 0 01375 TXH JK
TD 00567 3 00000 0 00752 TXH TW ERROR
*
00570 CMPWDS 8,IDBF,TAPEID,THA
00570 0774 00 1 00010 AXT 8,1 .001
00571 -0500 00 1 01407 CAL IDBF+8,1 .001
00572 -0340 00 1 02324 LAS TAPEID+8,1 .001
00573 0020 00 0 00600 TRA THA .001
00574 0020 00 0 00576 TRA *+2 .001
00575 0020 00 0 00600 TRA THA .001
00576 2 00001 1 00571 TIX *-5,1,1 .001
00577 0020 00 0 00604 TRA THB
00600 THA CLOSE LFNA,LFNB
00600 0074 00 4 00014 TSX CLOSE,4 .001
00601 3 00000 0 74440 PTH LFNA .001
00602 3 00000 0 74437 PTH LFNB .001
00603 0020 00 0 00530 TRA TG
*
00604 0500 00 0 01407 THB CLA IDBF+8 O.K., NOW CHECK REEL NO.
00605 0402 00 0 03265 SUB =1
00606 0402 00 0 02324 SUB TAPEID+8
00607 0100 00 0 00624 TZE TJ SKIP IF REEL ALL O.K.
00610 PRLINE ( REEL ORDER ERROR ON CHANNEL A.),6
00610 0074 00 4 00015 TSX WRFLX,4 .001
00611 0 00006 0 03213 ..002,,6 .001
RMT .001
..002 BCI 6, REEL ORDER ERROR ON CHANNEL A. .001
RMT .001
00612 0074 00 4 00017 TI TSX $ASKOPR,4
00613 3 00011 0 01354 PTH MESQ,,9
00614 3 00001 0 00621 PTH TJA,,CTINUE
00615 3 00010 0 01043 PTH MESD,,8
00616 3 00003 0 00075 PTH ABEXT,,CHLDFL
00617 3 00006 0 01365 PTH MESR,,6
00620 3 00010 0 00461 PTH TB,,CHREEL
*
00621 0500 00 0 01407 TJA CLA IDBF+8
00622 0601 00 0 02324 STO TAPEID+8
00623 0020 00 0 00627 TRA TJAX
*
00624 0500 00 0 02324 TJ CLA TAPEID+8 INCREMENT REEL NO.
00625 0400 00 0 03265 ADD =1
00626 0601 00 0 02324 STO TAPEID+8
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 12
00627 TJAX SKIFNB TU
00627 0500 00 0 74443 CLA NOCHAN .001
00630 0402 00 0 03265 SUB =1 .001
00631 0100 00 0 00742 TZE TU .001
*
00632 TK SYN * (MOVED UMOUNT FOR B.COPY UP)
*
00632 0074 00 4 00012 TL TSX MOUNT,4 MOUNT NEW 'B' REEL
TD 00633 3 00000 0 03266 TXH =2
TD 00634 3 00000 0 74417 TXH BUN
00635 2 01270 0 01260 TIX MRB,,LMRB
00636 0774 00 2 00003 AXT 3,2
00637 0074 00 4 00006 TM TSX VERIFY,4 CHECK I/O SYSTEM LABEL
TD 00640 3 00000 0 74417 TXH BUN
00641 2 01016 0 74412 TIX LABEL,,L4
TD 00642 3 00000 0 00645 TXH TN
TD 00643 3 00000 0 01014 TXH ERCODE
00644 0020 00 0 00667 TRA TP SKIP IF O.K.
*
00645 0074 00 4 00016 TN TSX $PRNTER,4 VERIFICATION ERROR
00646 0500 00 0 01014 CLA ERCODE
00647 0402 00 0 03267 SUB =7
00650 0100 00 0 00652 TZE TO
00651 2 00001 2 00637 TIX TM,2,1
00652 0074 00 4 00013 TO TSX UMOUNT,4
TD 00653 3 00000 0 74417 TXH BUN
00654 2 01322 0 01306 TIX WRB,,LWRB
00655 0074 00 4 00017 BACK6 TSX $ASKOPR,4
00656 3 00006 0 01035 PTH MESC,,6
00657 3 00001 0 00632 PTH TL,,CTINUE
00660 3 00006 0 01043 PTH MESD,,6
00661 3 00003 0 00075 PTH QUITFL,,CHLDFL
00662 3 00006 0 01051 PTH MESE,,6
00663 3 00002 0 00664 PTH REST6,,PAUSE
*
00664 -0500 00 0 03271 REST6 CAL =45
00665 0074 00 4 00011 TSX SLEEP,4
00666 0020 00 0 00655 TRA BACK6
*
00667 0074 00 4 00010 TP TSX OPEN,4
TD 00670 3 00000 0 01013 TXH R
TD 00671 3 00000 0 74422 TXH BFNA
TD 00672 3 00000 0 74421 TXH BFNB
TD 00673 3 00000 0 03273 TXH =-0
TD 00674 3 00000 0 03273 TXH =-0
TD 00675 3 00000 0 00763 TXH TY ERROR
00676 0074 00 4 00007 TSX BUFFER,4
TD 00677 3 00000 0 74422 TXH BFNA
TD 00700 3 00000 0 74421 TXH BFNB
00701 2 01015 0 02325 TIX IB2,,LIB
*
00702 0074 00 4 00004 TSX RDWAIT,4 CHECK DAEMON I.D. LABEL
TD 00703 3 00000 0 74422 TXH BFNA
TD 00704 3 00000 0 74421 TXH BFNB
TD 00705 3 00000 0 03265 TXH =1
00706 3 00011 0 01377 TXH IDBF,,9
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 13
TD 00707 3 00000 0 00771 TXH TZ EOF,ERROR
TD 00710 3 00000 0 01375 TXH JK
TD 00711 3 00000 0 00763 TXH TY ERROR
00712 CMPWDS 8,IDBF,TAPEID,TR
00712 0774 00 1 00010 AXT 8,1 .001
00713 -0500 00 1 01407 CAL IDBF+8,1 .001
00714 -0340 00 1 02324 LAS TAPEID+8,1 .001
00715 0020 00 0 00722 TRA TR .001
00716 0020 00 0 00720 TRA *+2 .001
00717 0020 00 0 00722 TRA TR .001
00720 2 00001 1 00713 TIX *-5,1,1 .001
00721 0020 00 0 00726 TRA TS
00722 TR CLOSE BFNA,BFNB
00722 0074 00 4 00014 TSX CLOSE,4 .001
00723 3 00000 0 74422 PTH BFNA .001
00724 3 00000 0 74421 PTH BFNB .001
00725 0020 00 0 00652 TRA TO
*
00726 0500 00 0 01407 TS CLA IDBF+8 NOW CHECK REEL NO.
00727 0402 00 0 02324 SUB TAPEID+8
00730 0100 00 0 00742 TZE TU SKIP IF REEL O.K.
00731 PRLINE ( POSSIBLE REEL ORDER ERROR ON CHANNEL B.),8
00731 0074 00 4 00015 TSX WRFLX,4 .001
00732 0 00010 0 03221 ..003,,8 .001
RMT .001
..003 BCI 8, POSSIBLE REEL ORDER ERROR ON CHANNEL B. .001
RMT .001
00733 0074 00 4 00017 TT TSX $ASKOPR,4
00734 3 00011 0 01354 PTH MESQ,,9
00735 3 00001 0 00742 PTH TU,,CTINUE
00736 3 00010 0 01365 PTH MESR,,8
00737 3 00010 0 00632 PTH TK,,CHREEL
00740 3 00006 0 01043 PTH MESD,,6
00741 3 00003 0 00075 PTH QUITFL,,CHLDFL
*
00742 0074 00 4 00002 TU TSX ATTACH,4
00743 3 00000 0 01010 PTH NM
00744 3 00000 0 01011 PTH NM+1
00745 0534 00 4 00376 LXA X4,4
00746 0534 00 3 00377 TV LXA X3,3
00747 0534 00 2 00400 LXA X2,2
00750 0534 00 1 00401 LXA X1,1
00751 0020 00 4 00004 TRA 4,4 EXIT
*
00752 0074 00 4 00016 TW TSX $PRNTER,4
00753 PRLINE ( ERROR AT START OF NEW REEL ON CHANNEL A.),7
00753 0074 00 4 00015 TSX WRFLX,4 .001
00754 0 00007 0 03231 ..004,,7 .001
RMT .001
..004 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL A. .001
RMT .001
00755 TWA PRM MESP,9
00755 0074 00 4 00015 TSX WRFLX,4 .001
00756 0 00011 0 01343 MESP,,9 .001
00757 0020 00 0 00612 TRA TI
*
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 14
00760 TX PRLINE ( EOF AT START OF NEW REEL ON CHANNEL A.),7
00760 0074 00 4 00015 TSX WRFLX,4 .001
00761 0 00007 0 03240 ..005,,7 .001
RMT .001
..005 BCI 7, EOF AT START OF NEW REEL ON CHANNEL A. .001
RMT .001
00762 0020 00 0 00755 TRA TWA
*
00763 0074 00 4 00016 TY TSX $PRNTER,4
00764 PRLINE ( ERROR AT START OF NEW REEL ON CHANNEL B.),7
00764 0074 00 4 00015 TSX WRFLX,4 .001
00765 0 00007 0 03247 ..006,,7 .001
RMT .001
..006 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL B. .001
RMT .001
00766 TYA PRM MESP,9
00766 0074 00 4 00015 TSX WRFLX,4 .001
00767 0 00011 0 01343 MESP,,9 .001
00770 0020 00 0 00733 TRA TT
*
00771 TZ PRLINE ( EOF AT START OF NEW REEL ON CHANNEL B.),7
00771 0074 00 4 00015 TSX WRFLX,4 .001
00772 0 00007 0 03256 ..007,,7 .001
RMT .001
..007 BCI 7, EOF AT START OF NEW REEL ON CHANNEL B. .001
RMT .001
00773 0020 00 0 00766 TRA TYA
*
* - - - - - - - - - - - - - - - - - - - - -
* CONSTANTS AND VARIABLES
* - - - - - - - - - - - - - - - - - - - - -
*
00774 PBF BSS 12
01010 NM BSS 2
01012 0 00000 0 00000 IDERR PZE
01013 516060606060 R BCI 1,R
01014 0 00000 0 00000 ERCODE PZE
01015 0 00000 0 00660 LIB PZE RECSIZ
01016 0 00000 0 00004 L4 PZE 4
01017 0 00000 0 00010 L8 PZE 8
01020 603133243360 MESA BCI 8, I.D. RECORD ON 1ST COPY OF TAPE FILE IS UNREAD.
01030 602551514651 MESB BCI 5, ERROR OPENING DUMP TAPE FILE.
01035 606346602346 MESC BCI 6, TO CONTINUE WITH THIS LOAD FILE,
01043 606346606462 MESD BCI 6, TO USE DIFFERENT LOAD FILE, OR
01051 606346606264 MESE BCI 6, TO SUSPEND LOADING FOR 1 MIN..
01057 602545246046 MESF BCI 8, END OF FILE IN WRONG PLACE ON 1ST TAPE COPY.
01067 314523465151 WRNGT2 BCI 9,INCORRECT TAPE MOUNTED AS 2ND COPY OF LOAD FILE.
01100 604743252162 BCI 3, PLEASE REMOVE IT.
01103 0 00000 0 00014 LWT2 PZE *-WRNGT2
01104 604446644563 RMT2 BCI 7, MOUNT ANOTHER TAPE ON THE 2ND CHANNEL.
01113 0 00000 0 00007 LRMT2 PZE *-RMT2
01114 600245246023 BADT2 BCI 8, 2ND COPY OF LOAD FILE UNREAD AFTER 10 TRIES TO
01124 652551312670 BCI 6,VERIFY ITS I.D.. PLEASE REMOVE IT.
01132 0 00000 0 00016 LBT2 PZE *-BADT2
01133 606445444664 UMA BCI 6, UNMOUNT TAPE FILE ON MAIN CHANNEL.
01141 0 00000 0 00006 LUMA PZE *-UMA
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 15
01142 606445444664 UMB BCI 7, UNMOUNT TAPE FILE ON SECONDARY CHANNEL.
01151 0 00000 0 00007 LUMB PZE *-UMB
01152 603133243360 MESG BCI 9, I.D. LABELS ON BOTH COPIES OF NEW LOAD FILE MATCH O.K.
01163 602464444760 MESH BCI 7, DUMP TAPE FILE STARTING TO LOAD IS A
01172 602464444731 MESI BCI 9, DUMPING ON THIS TAPE FILE BEGAN AT ON
01203 604546602631 MESJ BCI 8, NO FILE CREATED LATER THAN ON
01213 603162602464 MESK BCI 5, IS DUMPED ON THIS TAPE FILE.
01220 604346212431 MESL BCI 7, LOADING FINISHED FROM THIS TAPE FILE
01227 605125444665 UMRA BCI 7, REMOVE CHANNEL A REEL OF RELOAD FILE.
01236 0 00000 0 00007 LUMRA PZE *-UMRA
01237 605125444665 UMRB BCI 7, REMOVE CHANNEL B REEL OF RELOAD FILE.
01246 0 00000 0 00007 LUMRB PZE *-UMRB
01247 604446644563 MRA BCI 8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL A
01257 0 00000 0 00010 LMRA PZE *-MRA
01260 604446644563 MRB BCI 8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL B
01270 0 00000 0 00010 LMRB PZE *-MRB
01271 606651464527 WRA BCI 8, WRONG REEL MOUNTED ON CHANNEL A FOR RELOAD, NOT
01301 602225434645 BCI 4, BELONGING TO THIS SET.
01305 0 00000 0 00014 LWRA PZE *-WRA
01306 606651464527 WRB BCI 8, WRONG REEL MOUNTED ON CHANNEL B FOR RELOAD, NOT
01316 602225434645 BCI 4, BELONGING TO THIS SET.
01322 0 00000 0 00014 LWRB PZE *-WRB
01323 603126606330 MESM BCI 8, IF THIS WAS LAST REEL OF THIS RELOAD FILE, OR
01333 603126606330 MESN BCI 8, IF THERE IS ANOTHER REEL TO THIS RELOAD FILE
01343 512525436045 MESP BCI 9,REEL NO. UNCHECKED, FUTURE REEL NO. ERRORS COULD OCCUR
01354 606346605125 MESQ BCI 9, TO RESUME RE-LOADING WITH THIS REEL NEVERTHELESS
01365 603126607046 MESR BCI 8, IF YOU WISH TO CHANGE THIS REEL FOR ANOTHER
01375 0 00000 0 00000 JK PZE
01376 0 00000 0 00011 L9 PZE 9
01377 IDBF BSS 9
00660 RECSIZ EQU 432
01410 IB1 BSS 432
02270 WBF BSS 20
02314 TAPEID BSS 9
02325 IB2 BSS 432
*
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
074446 DEMKEY BOOL 74446 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 16
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01554 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
74446 COMMON 1 INSERT DUMMY IF NECESSARY
74445 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
74445 KEYVAL COMMON 1
74444 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
74443 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
74442 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
74441 DP COMMON 1 PROGRAMMER NO. OF DITTO.
74440 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
74437 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
74423 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
74423 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
74422 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
74421 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
74420 AUN COMMON 1 CHANNEL A UNIT NO.
74417 BUN COMMON 1 CHANNEL B UNIT NO.
74416 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
74412 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
74412 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
74411 X COMMON 1 TAPE FILE POINTER
END
REMOTE SEQUENCES
03205 602545246046 ..001 BCI 6, END OF REEL ON RELOAD TAPE FILE. .001
03213 605125254360 ..002 BCI 6, REEL ORDER ERROR ON CHANNEL A. .001
03221 604746626231 ..003 BCI 8, POSSIBLE REEL ORDER ERROR ON CHANNEL B. .001
03231 602551514651 ..004 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL A. .001
03240 602546266021 ..005 BCI 7, EOF AT START OF NEW REEL ON CHANNEL A. .001
03247 602551514651 ..006 BCI 7, ERROR AT START OF NEW REEL ON CHANNEL B. .001
03256 602546266021 ..007 BCI 7, EOF AT START OF NEW REEL ON CHANNEL B. .001
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
3276 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1013 R 101, 213, 546, 670
74411 X 114, 121, 137, 141, 226, 233, 244, 246, 375, 3205
74441 DP 460, 3205
74442 DU 457, 3205
77 IA 31, 40, 170
116 IB 142
136 IC 125
162 ID 106
200 IE 123
206 IG 135, 161, 300
212 IH 275
230 II 247
243 IJ 237
272 IK 220
275 IL 317
310 IM 235
320 IO 241
330 IP 323, 325
337 IQ 327
342 IR 242, 262
350 IS 210, 341, 343
374 IT 364
1375 JK 566, 710
1016 L4 517, 641
1017 L8 234
1376 L9 564
1010 NM 455, 743, 744
461 TB 620
510 TD 535
515 TE 527
523 TF 520
530 TG 526, 603
545 TH 522
612 TI 757
624 TJ 607
632 TK 632, 737
632 TL 657
637 TM 651
645 TN 642
652 TO 650, 725
667 TP 644
722 TR 715, 717
726 TS 721
733 TT 770
742 TU 631, 730, 735
746 TV 453
752 TW 553, 567
760 TX 565
763 TY 675, 711
771 TZ 707
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1554 UF 3205
401 X1 22, 437, 750
400 X2 23, 440, 747
377 X3 24, 76, 441, 746
376 X4 25, 75, 442, 452, 745
74420 AUN 430, 502, 512, 516, 531, 3205
74417 BUN 34, 47, 65, 72, 433, 505, 634, 640, 653, 3205
100 IAA 165
1410 IB1 112, 557
2325 IB2 224, 701
165 IDA 205
1015 LIB 112, 224, 557, 701
1247 MRA 513, 1257
1260 MRB 635, 1270
774 PBF
454 TB1 451
600 THA 573, 575
604 THB 577
621 TJA 614
755 TWA 762
435 TX4 403
766 TYA 773
77777 UFL 3205
1133 UMA 431, 1141
1142 UMB 434, 1151
2270 WBF 122, 131, 234, 321, 322, 345, 346, 353, 355, 357, 363
1271 WRA 532, 1305
1306 WRB 654, 1322
145 BACK 156
17 BASE 3205
74422 BFNA 214, 222, 231, 315, 334, 420, 424, 472, 476, 671, 677, 703, 723, 3205
74421 BFNB 215, 223, 232, 316, 335, 421, 425, 473, 477, 672, 700, 704, 724, 3205
63 CONT 53
452 EOTF 447
1377 IDBF 564, 571, 604, 621, 706, 713, 726
1132 LBT2 73
74440 LFNA 102, 110, 117, 203, 331, 410, 414, 462, 466, 547, 555, 561, 601, 3205
74437 LFNB 103, 111, 120, 204, 332, 411, 415, 463, 467, 550, 556, 562, 602, 3205
1257 LMRA 513
1270 LMRB 635
1141 LUMA 431
1151 LUMB 434
1305 LWRA 532
1322 LWRB 654
1103 LWT2 50
1020 MESA 144, 251, 253, 255
1030 MESB 163, 273
1035 MESC 52, 146, 167, 261, 277, 534, 656
1043 MESD 54, 150, 171, 263, 301, 536, 615, 660, 740
1051 MESE 56, 152, 173, 265, 303, 540, 662
1057 MESF 201, 311, 313
1152 MESG 340
1163 MESH 351
1172 MESI 356, 360, 362
1203 MESJ 366, 367, 371
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1213 MESK 373
1220 MESL 406
1323 MESM 446
1333 MESN 450
1343 MESP 756, 767
1354 MESQ 613, 734
1365 MESR 617, 736
10 OPEN 100, 212, 545, 667
60 REST 57
1104 RMT2 66, 1113
74416 TEOF 124, 236, 3205
627 TJAX 623
1227 UMRA 503, 1236
1237 UMRB 506, 1246
75 ABEXT 537, 616
166 BACK1 177
260 BACK2 271
276 BACK3 307
533 BACK5 544
655 BACK6 666
1114 BADT2 73, 1132
14 CLOSE 202, 314, 330, 333, 413, 423, 465, 475, 600, 722
157 CONT1 147
5 FWAIT 407, 417, 461, 471
1012 IDERR 127, 160, 240, 256, 342
1 IOBDT 365
3205 ..001 444
3213 ..002 611
3221 ..003 732
3231 ..004 754
3240 ..005 761
3247 ..006 765
3256 ..007 772
74412 LABEL 35, 517, 641, 3205
1113 LRMT2 66
1236 LUMRA 503
1246 LUMRB 506
12 MOUNT 63, 510, 632
2 PAUSE 57, 153, 174, 266, 304, 541, 663, 3205
74423 PREAM 3205
154 REST1 153
175 REST2 174
267 REST3 266
305 REST4 304
542 REST5 541
664 REST6 663
11 SLEEP 61, 155, 176, 270, 306, 543, 665
15 WRFLX 143, 162, 200, 254, 272, 312, 337, 350, 352, 361, 370, 372, 405, 443, 610, 731, 753
755, 760, 764, 766, 771
5 ABANKY 3205
74444 ABANTP 3205
17 ASKOPR 51, 145, 166, 260, 276, 445, 533, 612, 655, 733
2 ATTACH 456, 742
3 ATTNAM 454
7 BUFFER 107, 221, 554, 676
1 INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65 06/01/70 1350.9 PAGE 4
POST PROCESSOR ASSEMBLY DATA
33 CHCKBA 45, 67, 70
41 CHCKBB 36
51 CHCKBC 62, 74
70 CHCKBD 44
3 CHLDFL 55, 151, 172, 264, 302, 537, 616, 661, 741, 3205
10 CHREEL 620, 737, 3205
77462 COMRLC 3205
1 CTINUE 53, 147, 170, 262, 300, 451, 535, 614, 657, 735, 3205
74446 DEMKEY 3205
1014 ERCODE 37, 42, 521, 524, 643, 646
0 GETLSG 26, 126, 354, 404
22 INITTF 0
74445 KEYVAL 3205
7 LSREEL 447, 3205
77777 NEWCOM 3205
74443 NOCHAN 27, 206, 627, 3205
77461 OLDCOM 3205
16 PRNTER 41, 136, 164, 243, 274, 523, 645, 752, 763
75 QUITFL 55, 75, 151, 172, 257, 264, 302, 661, 741
4 RDWAIT 116, 230, 560, 702
660 RECSIZ 115, 227, 374, 1015, 1410
4 STOPLD 3205
6 SWCHAN 3205
2314 TAPEID 132, 134, 572, 606, 622, 624, 626, 714, 727
403 TERMTF 0
437 TSTEOF 0
13 UMOUNT 46, 71, 427, 432, 501, 504, 530, 652
6 VERIFY 33, 515, 637
1067 WRNGT2 50, 1103
46 WRONGB 336
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS ..... GETLSG FOR FOREGROUND RELOADER ..... 06/01/70 1356.5 PAGE 1
PCC ON
NOLNK
00003 ENTRY GETLSG GET OPERATOR SIGNALS (FROM CONSOLE)
LBL FGSG
PCC OFF
EXTERN RDCOM,ZEL,BCDEC
TRANSFER VECTOR
00000 512423464460 RDCOM
00001 712543606060 ZEL
00002 222324252360 BCDEC
00003 0634 00 4 00020 GETLSG SXA GSX4,4 SAVE LINKAGE
00004 0074 00 4 00000 TSX RDCOM,4 PICK UP LINE TYPED, PARSED
00005 3 00002 0 74445 PAR KEYVAL,,2 ..
00006 3 00000 0 00020 PAR GSX4 .. EMPTY RETURN
00007 0074 00 4 00002 TSX BCDEC,4 CONVERT TO DECIMAL
00010 3 00000 0 74445 PAR KEYVAL ..
00011 0601 00 0 74445 STO KEYVAL .. PUT AWAY
00012 0774 00 4 00002 AXT TBSIZ,4 KEY TABLE SIZE
00013 -0500 00 4 00033 CAL KEYTB+TBSIZ,4 PICK UP TABLE ENTRY
00014 0771 00 0 00022 ARS 18 GET KEY CODE
00015 0402 00 0 74445 SUB KEYVAL IS THIS IT.Q
00016 0100 60 4 00033 TZE* KEYTB+TBSIZ,4 .. YES
00017 2 00001 4 00013 TIX *-4,4,1 ..
00020 0774 00 4 00000 GSX4 AXT -,4 RESTORE X4
00021 0020 00 4 00001 TRA 1,4 RETURN
00022 -0625 00 0 74444 ABAN STL ABANTP HERE TO ABANDON TAPE
00023 0020 00 0 00020 TRA GSX4 RETURN
00024 0534 00 4 74443 CHAN LXA NOCHAN,4 HERE TO SWITCH TAPE CHANNELS
00025 1 00001 4 00026 TXI *+1,4,1 ..
00026 2 00002 4 00026 TIX *,4,2 ..
00027 0634 00 4 74443 SXA NOCHAN,4 ..
00030 0020 00 0 00020 TRA GSX4 RETURN
00031 KEYTB SYN *
00031 0 00005 0 00022 PZE ABAN,,ABANKY
00032 0 00006 0 00024 PZE CHAN,,SWCHAN
00002 TBSIZ EQU *-KEYTB
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
074446 DEMKEY BOOL 74446 CORE A LOCATION FOR DAEMON KEY SETTING
*
1 M1416 3845 PETER R. BOS ..... GETLSG FOR FOREGROUND RELOADER ..... 06/01/70 1356.5 PAGE 2
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01554 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
74446 COMMON 1 INSERT DUMMY IF NECESSARY
74445 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
74445 KEYVAL COMMON 1
74444 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
74443 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
74442 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
74441 DP COMMON 1 PROGRAMMER NO. OF DITTO.
74440 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
74437 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
74423 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
74423 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
74422 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
74421 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
74420 AUN COMMON 1 CHANNEL A UNIT NO.
74417 BUN COMMON 1 CHANNEL B UNIT NO.
74416 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
74412 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
74412 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
74411 X COMMON 1 TAPE FILE POINTER
END
1 M1416 3845 PETER R. BOS ..... GETLSG FOR FOREGROUND RELOADER ..... 06/01/70 1356.5 PAGE 1
POST PROCESSOR ASSEMBLY DATA
74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
74411 X 33
74441 DP 33
74442 DU 33
1554 UF 33
74420 AUN 33
74417 BUN 33
77777 UFL 33
1 ZEL
22 ABAN 31
17 BASE 33
74422 BFNA 33
74421 BFNB 33
24 CHAN 32
20 GSX4 3, 6, 23, 30
74440 LFNA 33
74437 LFNB 33
74416 TEOF 33
2 BCDEC 7
31 KEYTB 13, 16, 31, 33
74412 LABEL 33
2 PAUSE 33
74423 PREAM 33
0 RDCOM 4
2 TBSIZ 12, 13, 16, 33
5 ABANKY 31, 33
74444 ABANTP 22, 33
3 CHLDFL 33
10 CHREEL 33
77462 COMRLC 33
1 CTINUE 33
74446 DEMKEY 33
3 GETLSG 0
74445 KEYVAL 5, 10, 11, 15, 33
7 LSREEL 33
77777 NEWCOM 33
74443 NOCHAN 24, 27, 33
77461 OLDCOM 33
4 STOPLD 33
6 SWCHAN 32, 33
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS .... DUMMY ASKOPR FOR FOREGROUND RELOADER .... 06/01/70 1356.6 PAGE 1
PCC ON
00006 ENTRY ASKOPR ASK OPERATOR QUESTION
LBL FGAS
PCC OFF
EXTERN RSSRB,PRCODE,WAIT,GETLSG
TRANSFER VECTOR
00000 516262512260 RSSRB
00001 475123462425 PRCODE
00002 662131636060 WAIT
00003 272563436227 GETLSG
LINKAGE DIRECTOR
00004 000000000000
00005 216242464751
00006 0634 00 4 00053 ASKOPR SXA ASKX4,4 SAVE XRS.
00007 0634 00 2 00054 SXA ASKX2,2 ..
00010 0441 00 4 00001 LDI 1,4 SEE IF NULL ARG
00011 -0056 00 400000 LNT 400000 ..
00012 -0056 00 300000 LNT 300000 ..
00013 0020 00 4 00001 TRA 1,4 .. YES, RETURN
00014 0074 00 4 00000 TSX RSSRB,4 RESET ANY INPUT LINES
00015 3 00000 0 00000 PAR 0 ..
00016 0534 00 2 00053 PMSG LXA ASKX4,2 HERE TO PRINT MESSAGE TO OPERATOR
00017 0441 00 2 00001 PLOOP LDI 1,2 HERE FOR LINE IN MESSAGE
00020 -0056 00 400000 LNT 400000 CHECK VALID ARG
00021 -0056 00 300000 LNT 300000 ..
00022 0020 00 0 00033 TRA ZZZ NO, SKIP TO SLEEP OR EXIT
00023 0604 00 0 00031 STI PRM YES, SAVE MESSAGE POINTER
00024 -0500 00 2 00002 CAL 2,2 GET TRANSFER ADDRESS
00025 -0734 00 4 00000 PDX ,4 ..
00026 0634 00 4 00030 SXA PRC,4 SAVE
00027 0074 00 4 00001 TSX PRCODE,4 PRINT LINE TO OPERATOR
00030 3 00000 0 00000 PRC PAR - ..
00031 3 00000 0 00000 PRM PAR -,,- ..
00032 1 77776 2 00017 TXI PLOOP,2,-2 POINT AT NEXT ARG, REPEAT
00033 0074 00 4 00002 ZZZ TSX WAIT,4 SLEEP, WAIT FOR REPLY
00034 3 00000 0 00057 PAR =1 .. INPUT WAIT
00035 3 00000 0 00056 PAR =0 ..
00036 0074 00 4 00003 TSX GETLSG,4 PICK UP OPERATOR SIGNAL
00037 0534 00 2 00053 LXA ASKX4,2 RELOAD X2
00040 0441 00 2 00001 CLOOP LDI 1,2 GET ARG WORD
00041 -0056 00 400000 LNT 400000 WAS THAT LAST ONE
00042 -0056 00 300000 LNT 300000 ..
00043 0020 00 0 00016 TRA PMSG .. YES, WRONG CODE GIVEN, ASK AGAIN
00044 -0500 00 2 00002 CAL 2,2 NO, TRY THIS ONE
00045 0621 00 0 00055 STA TRA .. TRANSFER ADDRESS
1 M1416 3845 PETER R. BOS .... DUMMY ASKOPR FOR FOREGROUND RELOADER .... 06/01/70 1356.6 PAGE 2
00046 -0734 00 4 00000 PDX ,4 .. CODE
00047 0754 00 4 00000 PXA ,4 ..
00050 0402 00 0 74445 SUB KEYVAL RESPONSE GIVEN
00051 0100 00 0 00053 TZE FOUND MATCH, SKIP
00052 1 77776 2 00040 TXI CLOOP,2,-2 NO MATCH, REPEAT
00053 FOUND SYN *
00053 0774 00 4 00000 ASKX4 AXT -,4 RESTORE XRS
00054 0774 00 2 00000 ASKX2 AXT -,2 ..
00055 0020 00 0 00000 TRA TRA - SKIP TO CALLER PROGRAM
INSERT BCMEQB
*
* - - - - - - - - - - - - - - - - - -
* COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD
* (TIME-SHARING VERSION)
* - - - - - - - - - - - - - - - - - -
*
074446 DEMKEY BOOL 74446 CORE A LOCATION FOR DAEMON KEY SETTING
*
000017 BASE BOOL 17 KEY CODE BASE
000001 CTINUE BOOL 1 KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
000002 PAUSE BOOL 2 KEY CODE TO WAIT 60 SECS.
000003 CHLDFL BOOL 3 KEY CODE TO USE DIFFERENT LOAD FILE
000004 STOPLD BOOL 4 KEY CODE TO STOP LOADING, START DUMPING
000005 ABANKY BOOL 5 KEY CODE TO ABANDON LOAD TAPE FILE
000006 SWCHAN BOOL 6 KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
000007 LSREEL BOOL 7 KEY CODE TO INDICATE LAST REEL OF LOAD FILE
000010 CHREEL BOOL 10 KEY CODE TO CORRECT REEL ORDER ERROR
77777 NEWCOM EQU -1 TOP OF MEMORY
077461 OLDCOM BOOL 77461 OLD TOP OF COMMON
77462 COMRLC EQU OLDCOM-NEWCOM RELOCATION FACTOR
77777 COMMON COMRLC RELOCATE COMMON
01554 UF EQU 32767/2-DEMKEY/2 LENGTH OF USER LIST
77777 UFL COMMON 2*UF USER FILE LIST (1ST PARTS OF FILE NAMES)
74446 COMMON 1 INSERT DUMMY IF NECESSARY
74445 COMMON 1 DEMKEY CELL IN NON-CTSS VERSION
74445 KEYVAL COMMON 1
74444 ABANTP COMMON 1 ABANDON TAPE FILE INDICATOR
74443 NOCHAN COMMON 1 NO. OF CHANNELS BEING READ (1 OR 2)
74442 DU COMMON 1 PROBLEM NO. OF DUMP/LOAD PACKAGE
74441 DP COMMON 1 PROGRAMMER NO. OF DITTO.
74440 LFNA COMMON 1 LOAD TAPE FILE NAME (PART 1)
74437 LFNB COMMON 1 ,, ,, ,, ,, (PART 2)
74423 COMMON 11 DUMPED FILE'S PREAMBLE FROM DUMP TAPE
74423 PREAM COMMON 1 DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD
74422 BFNA COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 1)
74421 BFNB COMMON 1 CHANNEL B LOAD TAPE FILE NAME (PART 2)
74420 AUN COMMON 1 CHANNEL A UNIT NO.
74417 BUN COMMON 1 CHANNEL B UNIT NO.
74416 TEOF COMMON 1 TAPE EOF INDICATOR/WORD COUNT
74412 COMMON 3 LABEL OF TAPE FILE CURRENTLY BEING LOADED
74412 LABEL COMMON 1 LABEL OF TAPE FILE DITTO. 1ST WORD
74411 X COMMON 1 TAPE FILE POINTER
END
1 M1416 3845 PETER R. BOS .... DUMMY ASKOPR FOR FOREGROUND RELOADER .... 06/01/70 1356.6 PAGE 3
LITERALS
00056 000000000000
00057 000000000001
1 M1416 3845 PETER R. BOS .... DUMMY ASKOPR FOR FOREGROUND RELOADER .... 06/01/70 1356.6 PAGE 1
POST PROCESSOR ASSEMBLY DATA
74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
60 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
74411 X 56
74441 DP 56
74442 DU 56
1554 UF 56
74420 AUN 56
74417 BUN 56
30 PRC 26
31 PRM 23
55 TRA 45
77777 UFL 56
33 ZZZ 22
17 BASE 56
74422 BFNA 56
74421 BFNB 56
74440 LFNA 56
74437 LFNB 56
16 PMSG 43
74416 TEOF 56
2 WAIT 33
54 ASKX2 7
53 ASKX4 6, 16, 37
40 CLOOP 52
53 FOUND 51, 53
74412 LABEL 56
2 PAUSE 56
17 PLOOP 32
74423 PREAM 56
0 RSSRB 14
5 ABANKY 56
74444 ABANTP 56
6 ASKOPR 0
3 CHLDFL 56
10 CHREEL 56
77462 COMRLC 56
1 CTINUE 56
74446 DEMKEY 56
3 GETLSG 36
74445 KEYVAL 50, 56
7 LSREEL 56
77777 NEWCOM 56
74443 NOCHAN 56
77461 OLDCOM 56
1 PRCODE 27
4 STOPLD 56
6 SWCHAN 56
0 NO ERROR IN ABOVE ASSEMBLY.
1 06/01/70 1356.7 PAGE 1
00004 ENTRY GETA
00005 ENTRY NGETA
EXTERN GETLOC,SETLOC
TRANSFER VECTOR
00000 272563434623 GETLOC
00001 622563434623 SETLOC
LINKAGE DIRECTOR
00002 000000000000
00003 272563216060
00004 0600 00 0 00067 GETA STZ NINDC
00005 -0600 00 0 00072 NGETA STQ TMPMQ
00006 0601 00 0 00071 STO TMPAC
00007 0602 00 0 00073 SLW TMPACL
00010 0634 00 7 00062 SXA NGX7,7
00011 0634 00 4 00063 SXA NGX4,4
00012 0604 00 0 00066 STI INDIC
00013 0441 00 7 00001 LDI 1,7
00014 0520 00 0 00067 ZET NINDC
00015 0020 00 0 00031 TRA GETL DON'T COMPUTE EFFECTIVE ADDRESS
00016 -0625 00 0 00067 STL NINDC
00017 -0046 00 0 00000 PIA
00020 0074 00 7 00074 CKRL1 TSX GETEFA,7 GET EFFECTIVE ADDRESS
00021 -0056 00 000060 LNT 60 IS THERE INDIRECT ADDRESS
00022 0020 00 0 00027 TRA CKRL2 NO
00023 -0057 00 000077 RIL 77 TURN OFF INDIRECT ADDRESS BITS
00024 0737 00 7 00000 PAC 0,7
00025 -0500 00 7 00000 CAL 0,7
00026 0020 00 0 00020 TRA CKRL1 COMPUTE FINAL ADDRESS
00027 0057 00 777777 CKRL2 RIR 777777 FINAL ADDRESS IN AC NOW
00030 0043 00 0 00000 OAI OP CODE IN INDICATOR
00031 -0046 00 0 00000 GETL PIA INSTRUCTION IN AC
00032 0621 00 0 00055 STA GA2
00033 0621 00 0 00040 STA GA SET ADDRESS TO GET FROM CORE A
00034 0622 00 0 00047 STD XGA SET OP CODE OF INSTRUCTION
00035 0630 00 0 00047 STP XGA
00036 0625 00 0 00047 STT XGA
00037 0074 00 4 00000 TSX GETLOC,4
00040 0 00000 0 00000 GA PZE **
00041 0602 00 0 00070 SLW GTMP WORD FROM CORE A INTO GTMP
00042 -0500 00 0 00073 CAL TMPACL
00043 0560 00 0 00071 LDQ TMPAC
00044 0763 00 0 00000 LLS 0
00045 0560 00 0 00072 LDQ TMPMQ
00046 0441 00 0 00066 LDI INDIC
00047 0 00000 0 00070 XGA *** GTMP EXECUTE INSTRUCTION
00050 0441 00 0 00047 LDI XGA
00051 -0056 00 060000 LNT 060000 IS THIS A STORE-TYPE INSTRUCTION
00052 0020 00 0 00062 TRA NGX7 NO
00053 -0500 00 0 00070 CAL GTMP
00054 0074 00 4 00001 TSX SETLOC,4
00055 0 00000 0 00000 GA2 PZE **
00056 -0500 00 0 00073 CAL TMPACL
00057 0560 00 0 00071 LDQ TMPAC
1 06/01/70 1356.7 PAGE 2
00060 0763 00 0 00000 LLS 0
00061 0560 00 0 00072 LDQ TMPMQ
00062 0774 00 7 00000 NGX7 AXT **,7
00063 0774 00 4 00000 NGX4 AXT **,4
00064 0441 00 0 00066 LDI INDIC
00065 0020 00 7 00002 TRA 2,7
00066 0 00000 0 00000 INDIC PZE 0
00067 +000000777777 NINDC OCT 777777
00070 0 00000 0 00000 GTMP PZE 0
00071 0 00000 0 00000 TMPAC PZE 0
00072 0 00000 0 00000 TMPMQ PZE 0
00073 0 00000 0 00000 TMPACL PZE 0
00074 0634 00 7 00102 GETEFA SXA GETF7,7
00075 0625 00 0 00077 STT *+2 TAG
00076 0734 00 7 00000 PAX ,7 PTR
00077 -0636 00 0 00100 SCD *+1,** -C(TAG)
00100 1 00000 7 00101 TXI *+1,7,** PTH-C(TAG)
00101 0754 00 7 00000 PXA ,7 INTO AC
00102 0774 00 7 00000 GETF7 AXT **,7
00103 0020 00 7 00001 TRA 1,7
END
1 06/01/70 1356.7 PAGE 1
POST PROCESSOR ASSEMBLY DATA
104 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
40 GA 33
55 GA2 32
47 XGA 34, 35, 36, 50
4 GETA 0
31 GETL 15
70 GTMP 41, 47, 53
63 NGX4 11
62 NGX7 10, 52
20 CKRL1 26
27 CKRL2 22
102 GETF7 74
66 INDIC 12, 46, 64
5 NGETA 0
67 NINDC 4, 14, 16
71 TMPAC 6, 43, 57
72 TMPMQ 5, 45, 61
74 GETEFA 20
0 GETLOC 37
1 SETLOC 54
73 TMPACL 7, 42, 56
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE NLREC MAD 06/01/70 1356.8
-
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST *001 000001
1 ) *001 000002
ENTRY TO NLREC . *002 000003
NWDS=(NRECS-1)*IRC+LRC *003 000004
NFLR=NWDS/LTRC *004 000005
NLEFT=XMOD .( NWDS,LTRC) *005 000006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 *006 000007
MLPH = NLEFT + LPREAM *007 000017
REM = MLPH - (MLPH/LPHYS)*LPHYS *008 000027
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS *009 000037
TRANSFER TO QQ0005 *010 000047
QQ0004 NLAST=0 *011 000057
QQ0005 FUNCTION RETURN *012 000067
INTEGER NWDS , NRECS , IRC , LRC *013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD *014 000087
INTEGER NLAST , LPREAM, LPHYS *015 000097
INTEGER MLPH, REM *016 000107
END OF FUNCTION *017 000117
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00143 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00014
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
NLREC 00015 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
MLPH 00005 1 NWDS 00007 1 QQ0004 00003 4 QQ0005 00004 4 REM 00010 1
NLEFT 00006 1
0FUNCTION DICTIONARY
EXIT 00000 0 XMOD 00001 1
0ABSOLUTE CONSTANTS
00011 +000000000000 00012 +000000000001 00013 +233000000000
0STATEMENT DICTIONARY
00003 TXL -300101000077 00004 TXL -300102000101
0PROGRAM
EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST 001 000001
1) 001 000002
ENTRY TO NLREC . 002 000003
00014 TRA +0 02000 0 00017 00015 SXA +0 63400 2 00103 00016 TSX +0 07400 2 00103
NWDS=(NRECS-1)*IRC+LRC 003 000004
00017 CLA +0 50000 0 00024 00020 SUB +0 40200 0 00012 00021 XCA +0 13100 0 00000 00022 MPY +0 20000 0 00024
00023 XCA +0 13100 0 00000 00024 ADD +0 40000 0 00024 00025 STO +0 60100 0 00007
NFLR=NWDS/LTRC 004 000005
00026 LDQ +0 56000 0 00007 00027 PXD -0 75400 0 00000 00030 LLS +0 76300 0 00000 00031 DVP +0 22100 0 00024
00032 STQ -0 60000 0 00024
NLEFT=XMOD .( NWDS,LTRC) 005 000006
00033 TSX +0 07400 4 00001 00034 TXH +3 00000 0 00007 00035 TXH +3 00000 0 00024 00036 STO +0 60100 0 00006
WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004 006 000007
00037 CLA +0 50000 0 00006 00040 SUB +0 40200 0 00011 00041 TZE +0 10000 0 00043 00042 TPL +0 12000 0 00044
00043 TRA +0 02000 0 00003
MLPH = NLEFT + LPREAM 007 000017
00044 CLA +0 50000 0 00006 00045 ADD +0 40000 0 00024 00046 STO +0 60100 0 00005
REM = MLPH - (MLPH/LPHYS)*LPHYS 008 000027
00047 LDQ +0 56000 0 00005 00050 PXD -0 75400 0 00000 00051 LLS +0 76300 0 00000 00052 DVP +0 22100 0 00024
00053 MPY +0 20000 0 00024 00054 XCA +0 13100 0 00000 00055 CHS +0 76000 0 00002 00056 ADD +0 40000 0 00005
00057 STO +0 60100 0 00010
NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS 009 000037
00060 LDQ +0 56000 0 00010 00061 PXD -0 75400 0 00000 00062 LLS +0 76300 0 00000 00063 DVP +0 22100 0 00010
00064 STQ -0 60000 0 00140 00065 LDQ +0 56000 0 00005 00066 PXD -0 75400 0 00000 00067 LLS +0 76300 0 00000
00070 DVP +0 22100 0 00024 00071 XCA +0 13100 0 00000 00072 ADD +0 40000 0 00140 00073 XCA +0 13100 0 00000
00074 MPY +0 20000 0 00024 00075 STQ -0 60000 0 00024
TRANSFER TO QQ0005 010 000047
00076 TRA +0 02000 0 00004
QQ0004 NLAST=0 011 000057
00077 CLA +0 50000 0 00011 00100 STO +0 60100 0 00024
QQ0005 FUNCTION RETURN 012 000067
00101 TRA +0 02000 0 00134
INTEGER NWDS , NRECS , IRC , LRC 013 000077
INTEGER NFLR , LTRC , NLEFT , XMOD 014 000087
INTEGER NLAST , LPREAM, LPHYS 015 000097
INTEGER MLPH, REM 016 000107
END OF FUNCTION 017 000117
00102 TSX +0 07400 4 00000 00103 TXH +3 00000 0 00000 00104 SXD -0 63400 1 00103 00105 SXA +0 63400 4 00134
00106 CLA +0 50000 4 00001 00107 STA +0 62100 0 00017 00110 CLA +0 50000 4 00002 00111 STA +0 62100 0 00022
00112 CLA +0 50000 4 00003 00113 STA +0 62100 0 00024 00114 CLA +0 50000 4 00004 00115 STA +0 62100 0 00031
00116 STO +0 60100 0 00035 00117 CLA +0 50000 4 00005 00120 STA +0 62100 0 00045 00121 CLA +0 50000 4 00006
00122 STA +0 62100 0 00052 00123 STA +0 62100 0 00053 00124 STA +0 62100 0 00070 00125 STA +0 62100 0 00074
00126 CLA +0 50000 4 00007 00127 STA +0 62100 0 00032 00130 CLA +0 50000 4 00010 00131 STA +0 62100 0 00075
00132 STA +0 62100 0 00100 00133 TRA +0 02000 2 00001 00134 AXT +0 77400 4 00000 00135 LXA +0 53400 2 00103
00136 LXD -0 53400 1 00103 00137 TRA +0 02000 4 00001
1 M1416 3845 PETER R. BOS ..... FOREGROUND 'PRCODE' FOR RELOADER ...... 06/01/70 1356.9 PAGE 1
PCC ON
NOLNK
00003 ENTRY PRCODE
LBL FGPR
PCC OFF
EXTERN WRFLX,WRFLXA,BZEL
TRANSFER VECTOR
00000 665126436760 WRFLX
00001 665126436721 WRFLXA
00002 227125436060 BZEL
00003 0634 00 4 00026 PRCODE SXA PRX4,4 SAVE LINKAGE
00004 -0500 00 4 00001 CAL 1,4 PICK UP ENTRY CODE WORD
00005 -0320 00 0 00033 ANA =O77 MASK
00006 -0765 00 0 00006 LGR 6 SHIFT TO MQ FOR CONVERSION
00007 0767 00 0 00003 ALS 3 MAKE ROOM
00010 -0763 00 0 00003 LGL 3 SHIFT
00011 0767 00 0 00003 ALS 3 ..
00012 -0763 00 0 00003 LGL 3 ..
00013 0602 00 0 00032 SLW CODE ..
00014 -0500 00 4 00002 CAL 2,4 AND MESSAGE POINTER
00015 0602 00 0 00025 SLW WR+1 ..
00016 0074 00 4 00002 TSX BZEL,4 BLANKS LEADING
00017 3 00000 0 00032 PAR CODE ..
00020 0322 00 0 00034 ERA =O373737000000 NULL FIRST 3 BLANKS
00021 0601 00 0 00032 STO CODE PUT AWAY
00022 0074 00 4 00001 TSX WRFLXA,4 PRINT 'ENTER CODE X'
00023 3 00003 0 00030 PAR MESS,,3 ..
00024 0074 00 4 00000 WR TSX WRFLX,4 ..
00025 3 00000 0 00000 PAR -,,- ..
00026 0774 00 4 00000 PRX4 AXT -,4 RESTORE LINKAGE
00027 0020 00 4 00003 TRA 3,4 RETURN
00030 254563255160 MESS BCI /ENTER CODE/
00031 234624255757
00032 606045575757 CODE BCI / N/
END
LITERALS
00033 000000000077
00034 373737000000
1 M1416 3845 PETER R. BOS ..... FOREGROUND 'PRCODE' FOR RELOADER ...... 06/01/70 1356.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
35 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
24 WR 15
2 BZEL 16
32 CODE 13, 17, 21
30 MESS 23
26 PRX4 3
0 WRFLX 24
3 PRCODE 0
1 WRFLXA 22
0 NO ERROR IN ABOVE ASSEMBLY.
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 06/01/70 1356.9 PAGE 1
* (EXTRACTED FROM GDT FOR LOADER USE)
*
00002 ENTRY IOBDT
*
* CONVERT I/O SYSTEM DATE/TIME FROM LAC TO BCD TIME AND DATE --
* HHMM.M (TIME) IN AC, MMDDYY (DATE) IN MQ
*
LINKAGE DIRECTOR
00000 000000000000
00001 314622246360
00002 -0130 00 0 00000 IOBDT XCL
T 00003 -0754 00 0 00000 PXD
00004 -0763 00 0 00011 LGL 9 YEAR IN AC
00005 -0600 00 0 00122 STQ GDTD
00006 -0130 00 0 00000 XCL YEAR IN MQ
T 00007 -0754 00 0 00000 PXD
00010 0221 00 0 00124 DVP =10 TENS DIGIT OF YEAR IN MQ, UNITS IN AC
00011 -0320 00 0 00125 ANA =O17
00012 0602 00 0 00117 SLW DATE. '00000Y' OF DATE
00013 -0130 00 0 00000 XCL
00014 -0320 00 0 00125 ANA =O17
00015 0767 00 0 00006 ALS 6
00016 -0602 00 0 00117 ORS DATE. '0000YY' OF DATE
00017 0560 00 0 00122 LDQ GDTD
T 00020 -0754 00 0 00000 PXD
00021 -0763 00 0 00004 LGL 4 MONTH IN AC
00022 0601 00 0 00123 STO GDTM
00023 0402 00 0 00124 SUB =10
00024 -0120 00 0 00030 TMI IBA
00025 0601 00 0 00123 STO GDTM SAVE UNITS DIGIT OF MONTH
00026 0500 00 0 00131 CLA =O100
00027 0020 00 0 00031 TRA *+2
T 00030 -0754 00 0 00000 IBA PXD
00031 0400 00 0 00123 ADD GDTM
00032 0767 00 0 00030 ALS 24 'MM0000'
00033 -0602 00 0 00117 ORS DATE. 'MM00YY' OF DATE
T 00034 -0754 00 0 00000 PXD
00035 -0763 00 0 00005 LGL 5 DAY IN AC
00036 -0600 00 0 00122 STQ GDTD SAVE THE TIME
00037 -0130 00 0 00000 XCL DAY IN MQ
T 00040 -0754 00 0 00000 PXD
00041 0221 00 0 00124 DVP =10 TENS DIGIT OF DAY IN MQ, UNITS IN AC
00042 -0773 00 0 00006 RQL 6
00043 -0600 00 0 00123 STQ GDTM STORE '0000D0'
00044 0400 00 0 00123 ADD GDTM '0000DD' IN AC
00045 0767 00 0 00014 ALS 12 '00DD00' IN AC
00046 -0602 00 0 00117 ORS DATE. 'MMDDYY' OF DATE
00047 -0500 00 0 00122 CAL GDTD TIME
00050 0771 00 0 00022 ARS 18
00051 -0130 00 0 00000 XCL TIME IN SECS. IN MQ
00052 0200 00 0 00130 MPY =60 GET TIME IN 1/60TH'S SEC. IN MQ
00053 0634 00 4 00101 SXA TPWATX,4
*
00054 -0754 00 0 00000 BCA ZAC
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 06/01/70 1356.9 PAGE 2
00055 0221 00 0 00133 DVP =216000 FIND HOUR
00056 0601 00 0 00121 STO MIN. SAVE REMAINDER (MINUTES)
00057 0074 00 4 00103 TSX BINBCD,4 CONVERT HOURS TO BCD
00060 -0765 00 0 00006 LGR 6
00061 -0100 00 0 00063 TNZ *+2
00062 -0500 00 0 00127 CAL =O60 REPLACE LEADING ZERO WITH BLANK
00063 -0763 00 0 00006 LGL 6
00064 0767 00 0 00030 ALS 24 LEAVE ROOM FOR MINUTE
00065 0602 00 0 00120 SLW HOUR. SAVE HOUR
00066 0560 00 0 00121 LDQ MIN. MINUTE
00067 -0754 00 0 00000 ZAC
00070 0221 00 0 00132 DVP =360 FIND NO. OF TENTHS OF MINUTES
00071 0074 00 4 00103 TSX BINBCD,4 CONVERT TO BCD
00072 -0765 00 0 00006 LGR 6 TENTHS TO MQ
00073 0767 00 0 00014 ALS 12
00074 -0602 00 0 00120 ORS HOUR. ADD MINUTE TO HOUR
00075 -0500 00 0 00126 CAL =H00000. PRECEDE TENTHS WITH .
00076 -0763 00 0 00006 LGL 6 BRING BACK TENTHS
00077 -0501 00 0 00120 ORA HOUR. HHMM.M IN LOGICAL AC
00100 0560 00 0 00117 LDQ DATE. DATE TO MQ
00101 0774 00 4 00000 TPWATX AXT **,4
00102 0020 00 4 00001 TRA 1,4
00103 0634 00 4 00114 BINBCD SXA BNBCDX,4 BINARY TO BCD CONVERTER
00104 0600 00 0 00116 STZ TPLIN.
00105 0774 00 4 00044 AXT 36,4
00106 -0754 00 0 00000 BNBCD1 ZAC CONVERT INTEGER TO BCD
00107 0221 00 0 00124 DVP =10 ..
00110 0767 00 4 00044 ALS 36,4 ..
00111 -0602 00 0 00116 ORS TPLIN. ..
00112 2 00006 4 00106 TIX BNBCD1,4,6 ..
00113 -0500 00 0 00116 CAL TPLIN.
00114 0774 00 4 00000 BNBCDX AXT **,4
00115 0020 00 4 00001 TRA 1,4
00116 0 00000 0 00000 TPLIN. PZE TEMPORARY
00117 606060606060 DATE. BCI 1,
00120 606060606060 HOUR. BCI 1,
00121 0 00000 0 00000 MIN. PZE
00122 0 00000 0 00000 GDTD PZE
00123 0 00000 0 00000 GDTM PZE
END
LITERALS
00124 000000000012
00125 000000000017
00126 000000000033
00127 000000000060
00130 000000000074
00131 000000000100
00132 000000000550
00133 000000645700
1 CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64 06/01/70 1356.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
134 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
54 BCA
30 IBA 24
122 GDTD 5, 17, 36, 47
123 GDTM 22, 25, 31, 43, 44
121 MIN. 56, 66
117 DATE. 12, 16, 33, 46, 100
120 HOUR. 65, 74, 77
2 IOBDT 0
103 BINBCD 57, 71
106 BNBCD1 112
114 BNBCDX 103
116 TPLIN. 104, 111, 113
101 TPWATX 53
0 NO ERROR IN ABOVE ASSEMBLY.
1 XMOD REMAINDERING ARG1(MOD ARG2) 06/01/70 1357.1 PAGE 1
* CALLING SEQUENCE TSX XMOD,4
* TXH ARG1(FIXED)
* TXH ARG2(FIXED)
* 3,4 RETURN
* FUNCTION FIXED
00002 ENTRY XMOD
LINKAGE DIRECTOR
00000 000000000000
00001 674446246060
00002 0760 00 0 00000 XMOD CLM
00003 0560 60 4 00001 LDQ* 1,4
A 00004 0763 00 0 00000 LLS SIGN OF MQ TO AC
00005 0221 60 4 00002 DVP* 2,4
00006 0020 00 4 00003 TRA 3,4
FUNCTION IN ARITHMETIC AC FIXED
END
1 XMOD REMAINDERING ARG1(MOD ARG2) 06/01/70 1357.1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 XMOD 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE CRECAP MAD 06/01/70 1357.2
-
EXTERNAL FUNCTION *001 LM00001
NORMAL MODE IS INTEGER *002 LM00002
ENTRY TO RECAP. *003 LM00003
FUNCTION RETURN *004 LM00004
END OF FUNCTION *005 LM00005
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00023 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00004
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
RECAP 00005 0
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00002 +000000000001 00003 +233000000000
0PROGRAM
EXTERNAL FUNCTION 001 LM00001
N'R 002 LM00002
E'O RECAP. 003 LM00003
00004 TRA +0 02000 0 00007 00005 SXA +0 63400 2 00011 00006 TSX +0 07400 2 00011
F'N 004 LM00004
00007 TRA +0 02000 0 00015
E'N 005 LM00005
00010 TSX +0 07400 4 00000 00011 TXH +3 00000 0 00000 00012 SXD -0 63400 1 00011 00013 SXA +0 63400 4 00015
00014 TRA +0 02000 2 00001 00015 AXT +0 77400 4 00000 00016 LXA +0 53400 2 00011 00017 LXD -0 53400 1 00011
00020 TRA +0 02000 4 00001
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 06/01/70 1357.6 PAGE 1
PCC ON
NOLNK
00003 ENTRY RDCOM
LBL RCOM
PCC OFF
EXTERN RDMESS,PARSE,RPARSE
UNLIST
00003 RDCOM SAVE RD(X1,X2,X4,MTM) SAVE XRS AND LINKAGE
00007 0441 00 4 00002 LDI 2,4 IS EMPTY RETURN GIVEN
00010 -0754 00 0 00000 ZAC .. ASSUME NOT
00011 0444 00 0 00117 OFT =O400000700000 ..
00012 0020 00 0 00016 TRA RDCM1 .. NO
00013 -0056 00 300000 LNT 300000 ..
00014 0020 00 0 00016 TRA RDCM1 .. NO
00015 -0500 00 0 00115 CAL EMPRTN YES, SET RETURN ON RDMESS CALL
00016 0602 00 0 00042 RDCM1 SLW EMP1 ..
00017 0600 00 0 00114 STZ FLIP RESET SWITCH
00020 0441 00 4 00001 LDI 1,4 GET POINTER TO BUFFER
00021 0604 00 0 00045 STI ARY .. SAVE
00022 -0054 00 200000 LFT 200000 IS THIS A 'BLK'
00023 -0054 00 100000 LFT 100000 ..
00024 0020 00 0 00040 TRA START .. NO
00025 -0625 00 0 00114 STL FLIP THIS IS A MAD CALL, BACKWARDS BUFFER
00026 -0500 00 4 00001 CAL 1,4 GET ADDRESS OF LAST WORD
00027 0737 00 1 00000 PAC ,1 .. SAVE
00030 0400 00 0 00116 ADD =1 ADJUST
00031 -0535 00 4 00045 LDC ARY,4 POINTER TO WORD COUNT
00032 0402 00 4 00000 SUB 0,4 COMPUTE ADDRESS OF FIRST WORD
00033 0621 00 0 00045 STA ARY PUT AWAY
00034 0737 00 2 00000 PAC ,2 .. SAVE
00035 -0500 00 4 00000 CAL 0,4 PICK UP WORD COUNT
00036 0734 00 4 00000 PAX ,4 ..
00037 -0634 00 4 00045 SXD ARY,4 ..
00040 0074 00 4 00000 START TSX RDMESS,4 READ INPUT LINE
00041 3 00016 0 00076 PAR LINE,,14 ..
00042 0020 00 0 00072 EMP1 TRA EMPTY .. EMPTY RETURN IF GIVEN
00043 0074 00 4 00001 TSX PARSE,4 SCAN FOR BLANKS
00044 3 00016 0 00076 PAR LINE,,14 ..
00045 3 00000 0 00000 ARY PAR -,,- ..
00046 3 00000 0 00065 PAR RDMORE .. UNFINISHED LINE RETURN
00047 -0520 00 0 00114 NZT FLIP WAS THIS MAD CALL
00050 0020 00 0 00061 TRA RETURN .. NO
00051 -0500 00 1 00000 LOOP CAL 0,1 INVERT ARRAY
00052 0560 00 2 00000 LDQ 0,2 ..
00053 0602 00 2 00000 SLW 0,2 ..
00054 -0600 00 1 00000 STQ 0,1 ..
00055 1 77777 2 00056 TXI *+1,2,-1 INCREMENT UPPER POINTER
00056 1 00001 1 00057 TXI *+1,1,1 .. AND LOWER POINTER
00057 -0634 00 1 00060 SXD *+1,1 ..
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 06/01/70 1357.6 PAGE 2
00060 3 00000 2 00051 TXH LOOP,2,- REPEAT
00061 RETURN RETURN (2,4),RD(X1,X2,X4,MTM) RETURN TO CALLER
00065 0074 00 4 00000 RDMORE TSX RDMESS,4 HERE FOR LINE WITH NO C.R.
00066 3 00016 0 00076 PAR LINE,,14 .. READ SOME MORE
00067 0 00000 0 00000 PZE 0 .. NO EMPTY RETURN HERE
00070 0074 00 4 00002 TSX RPARSE,4 .. AND CONTINUE SCAN
00071 3 00016 0 00076 PAR LINE,,14 ..
00072 EMPTY RESTOR RD(X1,X2,X4,MTM) HERE IF NO LINE TYPED
00075 0020 60 4 00002 TRA* 2,4 .. GIVE EMPTY RETURN
00076 LINE BSS 14 INPUT BUFFER
00114 0 00000 0 00000 FLIP PZE 0
00115 0020 00 0 00072 EMPRTN TRA EMPTY EMPTY RETURN FOR RDMESS
00116 RMT *
END
LITERALS
00116 000000000001
00117 400000700000
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 06/01/70 1357.6 PAGE 1
POST PROCESSOR ASSEMBLY DATA
120 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
45 ARY 21, 31, 33, 37
42 EMP1 16
114 FLIP 17, 25, 47
76 LINE 41, 44, 66, 71
51 LOOP 60
61 RDX1 3, 72
62 RDX2 4, 73
63 RDX4 5, 74
72 EMPTY 42, 115
1 PARSE 43
16 RDCM1 12, 14
3 RDCOM 0
40 START 24
115 EMPRTN 15
0 RDMESS 40, 65
65 RDMORE 46
61 RETURN 50
2 RPARSE 70
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 06/01/70 1357.8 PAGE 1
PCC ON
NOLNK
00000 ENTRY PARSE ENTRY TO PARSE COMMAND LINE
00022 ENTRY RPARSE REENTRY FOR LONG LINE
00052 ENTRY ENDLIN FUDGE UP CARRIAGE RETURN
00111 ENTRY FLAG NON-ZERO IF FIRST WORD PROCESSED
LBL PARS
PCC OFF
00000 0634 00 4 00060 PARSE SXA PX4,4 ROUTINE TO PARSE LINE
00001 0760 00 0 00016 LMTM .. NEED 4
00002 0634 00 5 00061 SXA PX5,5 ..
00003 0634 00 6 00062 SXA PX6,6 ..
00004 0634 00 7 00063 SXA PX7,7 ..
00005 -0500 00 0 00112 CAL BLANKS INITIALIZE
00006 0602 00 0 00107 SLW TEMP ..
00007 -0625 00 0 00110 STL BLNK ..
00010 0600 00 0 00111 STZ FLAG ..
00011 -0500 00 4 00002 CAL 2,4 PICK UP BUFFER LOCATION
00012 -0734 00 5 00000 PDX ,5 ..
00013 0754 00 5 00000 PXA ,5 ..
00014 1 00001 5 00015 TXI *+1,5,1 .. MAKE TNX WORK RIGHT
00015 0361 00 4 00002 ACL 2,4 ..
00016 0621 00 0 00076 STA PUT ..
00017 -0500 00 4 00003 CAL 3,4 GET END OF LINE RETURN
00020 0621 00 0 00051 STA EMPTY ..
00021 0020 00 0 00023 TRA *+2 .. SKIP RPARSE AXT
00022 0774 00 5 00000 RPARSE AXT -,5 REENTRY FOR NEW LINE
00023 0760 00 0 00016 LMTM .. JUST IN CASE
00024 -0500 00 4 00001 CAL 1,4 GET LINE LOCATION AND WORD COUNT
00025 -0734 00 7 00000 PDX ,7 ..
00026 0754 00 7 00000 PXA ,7 ..
00027 0361 00 4 00001 ACL 1,4 ..
00030 0621 00 0 00032 STA GET .. SAVE ADDRESS
00031 0774 00 6 00006 WRD AXT 6,6 SIX CHARACTERS PER WORD
00032 0560 00 7 00000 GET LDQ -,7 PICK UP NEXT WORD TO SCAN
00033 -0500 00 0 00107 CHR CAL TEMP HERE FOR NEXT CHAR, RESTORE PREVIOUS RESULT
00034 -0763 00 0 00006 LGL 6 SHIFT OUT A CHARACTER
00035 0044 00 0 00000 PAI SAVE AC
00036 -0320 00 0 00114 ANA =O77 MASK THIS CHARACTER
00037 0774 00 4 00006 AXT NSPCHR,4 LOOK FOR IT IN TABLE OF CONTROL CHARACTERS
00040 -0340 00 4 00107 LAS SPCHR,4 ..
00041 0020 00 0 00043 TRA *+2 ..
00042 0020 60 4 00110 TRA* SPCHR+1,4 .. SPECIAL CHAR. FOUND, GO DO IT
00043 2 00002 4 00040 TIX *-3,4,2 ..
00044 0604 00 0 00107 STI TEMP NORMAL CHARACTER, SAVE NEW RESULT
00045 0600 00 0 00110 STZ BLNK RESET BLANK WORD INDICATOR
00046 2 00001 6 00033 TIX TIX CHR,6,1 AND GO GET NEXT CHARACTER
00047 2 00001 7 00031 TIX WRD,7,1 OR NEXT WORD IF OUT OF CHARACTERS
00050 0634 00 5 00022 SXA RPARSE,5 HERE WHEN BUFFER EMPTY, SAVE X5
00051 0020 00 0 00000 EMPTY TRA - TAKE LINE EMPTY RETURN
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 06/01/70 1357.8 PAGE 2
00052 0534 00 5 00022 ENDLIN LXA RPARSE,5 END OF LINE W/O CARR. RET.
00053 0074 00 4 00072 ENDIN TSX STWRD,4 HERE FOR CARRIAGE RETURN
00054 -2 00001 5 00055 TNX *+1,5,1 .. DECREMENT COUNTER
00055 -0500 00 0 00113 CAL FENCE .. INSURE FENCE IS LAST ARGUMENT
00056 0522 00 0 00076 XEC PUT ..
00057 2 00001 5 00056 TIX *-1,5,1 .. FILL OUT REMAINDER OF BUFFER
00060 0774 00 4 00000 PX4 AXT -,4 RESTORE X4
00061 0774 00 5 00000 PX5 AXT -,5 ..
00062 0774 00 6 00000 PX6 AXT -,6 ..
00063 0774 00 7 00000 PX7 AXT -,7 ..
00064 0020 00 4 00004 TRA 4,4 RETURN NORMALLY
00065 0074 00 4 00072 BLANK TSX STWRD,4 HERE FOR BLANK IN LINE, STORE CURRENT WORD
00066 -0500 00 0 00112 CAL BLANKS RESET TEMPORARY WORD
00067 0602 00 0 00107 SLW TEMP ..
00070 -0625 00 0 00110 STL BLNK INDICATE BLANK FOUND
00071 0020 00 0 00046 TRA TIX KEEP LOOKING
00072 0520 00 0 00110 STWRD ZET BLNK ROUTINE TO STORE WORD IN BUFFER
00073 0020 00 4 00001 TRA 1,4 EXIT FOR REDUNDANT BLANKS
00074 -2 00001 5 00073 TNX *-1,5,1 EXIT IF BUFFER FILLED
00075 -0500 00 0 00107 CAL TEMP GET THIS WORD
00076 0602 00 5 00000 PUT SLW -,5 PUT IT AWAY
00077 -0625 00 0 00111 STL FLAG INDICATE WORD FOUND
00100 0020 00 4 00001 TRA 1,4 RETURN
00101 TSPCHR SYN * TABLE OF CONTROL CHARACTERS FOR PARSE
00101 +000000000055 OCT 55 CARRIAGE RETURN
00102 0020 00 0 00053 TRA ENDIN .. ENDS LINE
00103 +000000000057 OCT 57 NULL (UNLIKELY)
00104 0020 00 0 00046 TRA TIX .. IS IGNORED
00105 +000000000060 OCT 60 BLANK
00106 0020 00 0 00065 TRA BLANK .. MARKS WORD
00107 SPCHR SYN * ..
00006 NSPCHR EQU *-TSPCHR TABLE COUNT
00107 0 00000 0 00000 TEMP PZE
00110 0 00000 0 00000 BLNK PZE
00111 0 00000 0 00000 FLAG PZE
00112 606060606060 BLANKS BCI 1,
00113 -377777777777 FENCE OCT 777777777777
END
LITERALS
00114 000000000077
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 06/01/70 1357.8 PAGE 1
POST PROCESSOR ASSEMBLY DATA
115 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
33 CHR 46
32 GET 30
76 PUT 16, 56
60 PX4 0
61 PX5 2
62 PX6 3
63 PX7 4
46 TIX 71, 104
31 WRD 47
110 BLNK 7, 45, 70, 72
111 FLAG 0, 10, 77
107 TEMP 6, 33, 44, 67, 75
65 BLANK 106
51 EMPTY 20
53 ENDIN 102
113 FENCE 55
0 PARSE 0
107 SPCHR 40, 42, 107
72 STWRD 53, 65
112 BLANKS 5, 66
52 ENDLIN 0
6 NSPCHR 37, 107
22 RPARSE 0, 50, 52
101 TSPCHR 101, 107
0 NO ERROR IN ABOVE ASSEMBLY.
RELSUP BCD 09/20/68 0220.8 17000 00000
1 MAD PROGRAM LISTING ... ... ... FILE REL MAD 02/15/68 1731.3
-
PROGRAM TO PROVIDE RELOCATION FOR CTSS SUPERVISORS LM00001
LM00002
D.R. WIDRIG MARCH 1966 LM00003
LM00004
LOADING INSTRUCTIONS LM00005
MAD REL (LIST) LM00006
FAP GETBUF (LIST) LM00007
LAED NCLOAD REL GETBUF (SQZ) (SRCH) XLIBE LM00008
SAVE RELSUP LM00009
R RELSUP NAME1 (NAME1 STOMAP) LM00010
LM00011
LM00012
NORMAL MODE IS INTEGER *001 LM00013
BOOLEAN NAMESW,DECSW,SYSSW *002 LM00014
DIMENSION LINE(40) *003 LM00015
DIMENSION BUFF1(0),BUFF2(0) *004 LM00016
DIMENSION TAB11(0),TAB21(0) *005 LM00017
LM00018
VECTOR VALUES N1 = 0,$STOMAP$ *006 LM00019
EQUIVALENCE (STOMAP,N1(1)) *007 LM00020
VECTOR VALUES SNAME = $COM000$,$ SYMTB$ *008 LM00021
EQUIVALENCE (SYMTB,SNAME(1)) *009 LM00022
VECTOR VALUES RESULT = 0,0,0,0,0 *010 LM00023
LM00024
VECTOR VALUES FENCE = 777777777777K *011 LM00025
VECTOR VALUES LOWCOM = 77461K *012 LM00026
VECTOR VALUES MZE = - 0 *013 LM00027
VECTOR VALUES TYPCOD = $00000F$,$00000E$,$00000C$ *014 LM00028
VECTOR VALUES TMAX = 1024 *015 LM00029
VECTOR VALUES TYPMAX = 3 *016 LM00030
VECTOR VALUES BLANKS = $ $ *017 LM00031
VECTOR VALUES NULLS = 575757575757K *018 LM00032
LM00033
MAKE SURE OF PROPER FORMAT LM00034
LM00035
WHENEVER COMARG.(1,N1) .E. FENCE *019 LM00036
PRMESS.($R RELSUP N1 (N1 STOMAP)$) *020 LM00037
CHNCOM.(0) *021 LM00038
END OF CONDITIONAL *022 LM00039
LM00040
IF SYSTEMS ARE THE SAME, SET SYSTEM SWITCH LM00041
LM00042
WHOAMI.(LINE(3)...3) *023 LM00043
WHENEVER (LINE(1) .E. N1) *024 LM00044
SYSSW = 1B *025 LM00045
OTHERWISE *026 LM00046
SYSSW = 0B *027 LM00047
END OF CONDITIONAL *028 LM00048
SETBRK.(BEATIT) *029 LM00049
LM00050
SET UP ERROR RETURNS, ETC. LM00051
LM00052
FERRTN.(ERR1) *030 LM00053
LM00054
SET UP TABLE AREAS LM00055
LM00056
INDX1 = 1 *031 LM00057
GETBUF.(TAB11,TMAX) *032 LM00058
GETBUF.(TAB21,TMAX) *033 LM00059
LM00060
OPEN STOMAP FILE LM00061
LM00062
TOP = GETBUF.(BUFF1,432) *034 LM00063
GETBUF.(BUFF2,432) *035 LM00064
BFOPEN.($R$,N1,STOMAP,BUFF1(BUFF1+432),BUFF2(BUFF2+432), *036 LM00065
1 MZE,ERR1) *036 LM00066
SNAME = SNAME .V. (N1.A.770000K) *037 LM00067
LM00068
DRAIN JUNK AT FRONT LM00069
LM00070
BFREAD.(N1,STOMAP,N...1,EOF1,EOFCT,ERR1) *038 LM00071
N = N .A. 77K *039 LM00072
NPLUS1 = N + 1 *040 LM00073
BFREAD.(N1,STOMAP,LINE(N)...NPLUS1,EOF1,EOFCT,ERR1) *041 LM00074
N = LINE(0) .A. 77K *042 LM00075
NPLUS1 = N + 1 *043 LM00076
BFREAD.(N1,STOMAP,LINE(N)...NPLUS1,EOF1,EOFCT,ERR1) *044 LM00077
LM00078
READ A LINE FROM STORAGE MAP LM00079
LM00080
READ1 N = LINE(0) .A. 77K *045 LM00081
NPLUS1 = N + 1 *046 LM00082
BFREAD.(N1,STOMAP,LINE(N)...NPLUS1,EOF1,EOFCT,ERR1) *047 LM00083
WHENEVER N .L. 6, TRANSFER TO READ1 *048 LM00084
LM00085
GET SYMBOL, IF ANY LM00086
LM00087
WHENEVER LINE(N-2) .NE. BLANKS *049 LM00088
LM00089
CLASSIFY SYMBOL, CHECK FOR END LM00090
LM00091
WHENEVER LINE(N-1) .E. $LOWEST$ *050 LM00092
LOWCOM = BCOCT.(LINE(N-5)) *051 LM00093
TRANSFER TO EOF1 *052 LM00094
OR WHENEVER LINE(N-1) .E. BLANKS *053 LM00095
IN2 = 2K6 *054 LM00096
OTHERWISE *055 LM00097
IN2 = 1K6 *056 LM00098
END OF CONDITIONAL *057 LM00099
LM00100
SPECIAL CASE CHECKS LM00101
LM00102
WHENEVER LINE(N-2) .E. 0 *058 LM00103
IN1 = $(MAIN)$ *059 LM00104
OTHERWISE *060 LM00105
IN1 = RJUST.(LINE(N-2)) *061 LM00106
END OF CONDITIONAL *062 LM00107
LM00108
GET VALUE LM00109
LM00110
IN2 = IN2 .V. BCOCT.(LINE(N-4)) *063 LM00111
LM00112
STORE SYMBOL, VALUE, AND TYPE LM00113
LM00114
TAB11(TAB11+INDX1) = IN1 *064 LM00115
TAB21(TAB21+INDX1) = IN2 *065 LM00116
INDX1 = INDX1 + 1 *066 LM00117
WHENEVER INDX1 .G. TMAX *067 LM00118
PRMESS.($OVERFLOW OF TABLE$) *068 LM00119
TRANSFER TO NOSYM1 *069 LM00120
END OF CONDITIONAL *070 LM00121
END OF CONDITIONAL *071 LM00122
TRANSFER TO READ1 *072 LM00123
LM00124
EOF, SET UP FOR SYSTEM SYMBOL TABLE LM00125
LM00126
EOF1 BFCLOS.(N1,STOMAP,NERR0) *073 LM00127
LM00128
SYMBOL TABLE IS IN PUBLIC FILE LM00129
LM00130
NERR0 TSSFIL. *074 LM00131
BFOPEN.($R$,SNAME,SYMTB,BUFF1(BUFF1+432),BUFF2(BUFF2+432), *075 LM00132
1 MZE,NOSYM) *075 LM00133
USRFIL. *076 LM00134
LM00135
READ SYMBOL TABLE, ONE LINE AT A TIME LM00136
LM00137
READ2 BFREAD.(SNAME,SYMTB,LINE(14)...14,EOF2,EOFCT,NOSYM) *077 LM00138
LM00139
PICK OFF AND STORE DEFINITIONS LM00140
LM00141
THROUGH LOOP1, FOR I = 14,-3,(I.L.2) *078 LM00142
WHENEVER LINE(I-1) .NE. BLANKS *079 LM00143
IN1 = RJUST.((LINE(I-1).LS.18) .V. *080 LM00144
1 (LINE(I-2).RS.18)) *080 LM00145
IN2 = 4K6 .V. BCOCT.(LINE(I)) *081 LM00146
TAB11(TAB11+INDX1) = IN1 *082 LM00147
TAB21(TAB21+INDX1) = IN2 *083 LM00148
INDX1 = INDX1 + 1 *084 LM00149
WHENEVER INDX1 .G. TMAX *085 LM00150
PRMESS.($OVERFLOW OF TABLE$) *086 LM00151
TRANSFER TO EOF2 *087 LM00152
END OF CONDITIONAL *088 LM00153
END OF CONDITIONAL *089 LM00154
LOOP1 CONTINUE *090 LM00155
TRANSFER TO READ2 *091 LM00156
LM00157
EOF ON SYMBOL TABLE, GET READY TO ACCEPT INPUT LM00158
LM00159
EOF2 RESETF. *092 LM00160
RIP SMEM.(TOP) *093 LM00161
READY PRMESS.($READY$) *094 LM00162
LM00163
SET SWITCHES, ETC. LM00164
LM00165
INPUT SIGN = 1 *095 LM00166
DECSW = 0B *096 LM00167
NAMESW = 0B *097 LM00168
TYPE = 0 *098 LM00169
VALUE = 0 *099 LM00170
RESULT(0) = 575757575757K *100 LM00171
LM00172
PRIME INPUT LINE LM00173
LM00174
GTWDBI. *101 LM00175
LM00176
PROCESS INPUT LINE LM00177
LM00178
THROUGH LOOP2, FOR I = 1,1,(I.G.14) *102 LM00179
GTWDB.(LINE,EMPTY) *103 LM00180
LM00181
THINK ABOUT THIS WORD LM00182
LM00183
TEMP = ZEL.(LINE) *104 LM00184
WHENEVER TEMP .E. $00000+$ *105 LM00185
SIGN = 1 *106 LM00186
OR WHENEVER TEMP .E. $00000-$ *107 LM00187
SIGN = -1 *108 LM00188
OR WHENEVER TEMP .E. $0000//$ *109 LM00189
DECSW = 1B *110 LM00190
OR WHENEVER TEMP .E. $00000*$ *111 LM00191
LINE = OLDNAM *112 LM00192
TRANSFER TO NAMED *113 LM00193
OR WHENEVER (TEMP .A. BLANKS) .E. 0 *114 LM00194
WHENEVER (.NOT.DECSW).AND.(TEMP.A.$YYYYYY$).E.0 *115 LM00195
VALUE = VALUE+1K5+SIGN*BCOCT.(TEMP) *116 LM00196
OTHERWISE *117 LM00197
VALUE = VALUE+1K5+SIGN*BCDEC.(TEMP) *118 LM00198
END OF CONDITIONAL *119 LM00199
DECSW = 0B *120 LM00200
SIGN = 1 *121 LM00201
OTHERWISE *122 LM00202
NAMED NAMESW = 1B *123 LM00203
OLDNAM = LINE *124 LM00204
VALUE = VALUE+1K5+SIGN*VAL.(LINE,CODE) *125 LM00205
TYPE = TYPE .V. CODE *126 LM00206
DECSW = 0B *127 LM00207
SIGN = 1 *128 LM00208
END OF CONDITIONAL *129 LM00209
LOOP2 CONTINUE *130 LM00210
LM00211
ALL DONE WITH LINE, DETERMINE TYPE OF OUTPUT LM00212
LM00213
EMPTY VALUE = VALUE .A. 77777K *131 LM00214
LM00215
IF SYSTEM IS NOW RUNNING, GET CONTENTS OF CELL LM00216
LM00217
WHENEVER SYSSW *132 LM00218
WORD = GLOC.(VALUE) *133 LM00219
RESULT(2) = 575757575760K *134 LM00220
RESULT(3) = OCLBC.(WORD) *135 LM00221
RESULT(4) = OCRBC.(WORD) *136 LM00222
OTHERWISE *137 LM00223
RESULT(2) = NULLS *138 LM00224
RESULT(3) = NULLS *139 LM00225
RESULT(4) = NULLS *140 LM00226
END OF CONDITIONAL *141 LM00227
WHENEVER NAMESW *142 LM00228
WHENEVER DECSW *143 LM00229
RESULT(1) = BZEL.(DERBC.(VALUE)) *144 LM00230
OTHERWISE *145 LM00231
RESULT(1) = OCABC.(VALUE) *146 LM00232
END OF CONDITIONAL *147 LM00233
LM00234
PICK UP TYPE CODE AND CONVERT IT LM00235
LM00236
THROUGH LOOP3, FOR I = 0,1,(I.G.TYPMAX) *148 LM00237
WHENEVER ((TYPE.RS.I).A.1K) .NE. 0, *149 LM00238
1 RESULT(0) = (RESULT(0).LS.6).V.TYPCOD(I) *149 LM00239
LOOP3 CONTINUE *150 LM00240
LM00241
PRINT THE RESULTING VALUE LM00242
LM00243
PRMESS.(RESULT(0),RESULT(1),RESULT(2), *151 LM00244
1 RESULT(3),RESULT(4)) *151 LM00245
OTHERWISE *152 LM00246
LM00247
ONLY NUMBERS GIVEN, RETURN NAME LM00248
LM00249
LM00250
CLASSIFY NUMBER AS TO COMMON SYMBOL OR NOT LM00251
LM00252
WHENEVER (VALUE.G.LOWCOM) .OR. (VALUE.L.62K) *153 LM00253
VALUE = 4K6 .V. VALUE *154 LM00254
OTHERWISE *155 LM00255
VALUE = 1K6 .V. VALUE *156 LM00256
END OF CONDITIONAL *157 LM00257
LM00258
FIND NEAREST MATCH OF SAME TYPE LM00259
LM00260
RESULT(0) = NAM.(VALUE) *158 LM00261
VALUE = DELTA .A. 77777K *159 LM00262
WHENEVER DECSW *160 LM00263
RESULT(1) = BZEL.(DERBC.(VALUE)) *161 LM00264
OTHERWISE *162 LM00265
RESULT(1) = OCABC.(VALUE) *163 LM00266
END OF CONDITIONAL *164 LM00267
PRMESS.(RESULT(0),RESULT(1),RESULT(2), *165 LM00268
1 RESULT(3),RESULT(4)) *165 LM00269
END OF CONDITIONAL *166 LM00270
LM00271
GET ANOTHER INPUT LINE LM00272
LM00273
TRANSFER TO INPUT *167 LM00274
LM00275
FILE ERRORS, GIVE UP LM00276
LM00277
ERR1 PRNTER. *168 LM00278
DORMNT. *169 LM00279
LM00280
ERROR ON SYSTEM SYMBOL TABLE, ANNOUNCE IT LM00281
LM00282
NOSYM PRNTER. *170 LM00283
NOSYM1 PRMESS.($NO COMMON SYMBOLS ALLOWED$) *171 LM00284
USRFIL. *172 LM00285
TRANSFER TO RIP *173 LM00286
LM00287
EXIT ROUTINES LM00288
LM00289
BEATIT RESETF. *174 LM00290
USRFIL. *175 LM00291
CHNCOM.(0) *176 LM00292
LM00293
INTERNAL FUNCTION (X,Y) *177 LM00294
ENTRY TO VAL. *178 LM00295
IN1 = X *179 LM00296
THROUGH LOOP4, FOR I1 = 1,1,(I1.G.INDX1) *180 LM00297
WHENEVER TAB11(TAB11+I1) .E. IN1 *181 LM00298
Y = TAB21(TAB21+I1) .RS. 18 *182 LM00299
FUNCTION RETURN TAB21(TAB21+I1) .A. 77777K *183 LM00300
END OF CONDITIONAL *184 LM00301
LOOP4 CONTINUE *185 LM00302
LM00303
SYMBOL NOT FOUND, GRIPE LM00304
LM00305
PRMESS.(IN1,$ NOT FOUND$) *186 LM00306
TRANSFER TO READY *187 LM00307
END OF FUNCTION *188 LM00308
LM00309
INTERNAL FUNCTION (X) *189 LM00310
ENTRY TO NAM. *190 LM00311
IN1 = X .A. 77777K *191 LM00312
IN2 = X .RS. 18 *192 LM00313
DELTA = 1K5 *193 LM00314
THROUGH LOOP5, FOR I1 = 1,1,(I1.G.INDX1) *194 LM00315
WHENEVER (TAB21(TAB21+I1) .RS. 18) .E. IN2 *195 LM00316
TSTVAL = TAB21(TAB21+I1) .A. 77777K *196 LM00317
WHENEVER (TSTVAL.LE.IN1).AND. *197 LM00318
1 ((IN1-TSTVAL).L.DELTA) *197 LM00319
CNAM = TAB11(TAB11+I1) *198 LM00320
DELTA = IN1 - TSTVAL *199 LM00321
END OF CONDITIONAL *200 LM00322
END OF CONDITIONAL *201 LM00323
LOOP5 CONTINUE *202 LM00324
FUNCTION RETURN CNAM *203 LM00325
END OF FUNCTION *204 LM00326
LM00327
END OF PROGRAM *205 LM00328
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01546 TRANSFER VECTOR LENGTH 00036 PROGRAM BEGINS 00261
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BEATIT 00045 4 ERR1 00051 4 LOOP4 00040 4 NULLS 00157 A 1 TAB11 00170 A 1
BLANKS 00063 A 1 FENCE 00073 A 1 LOOP5 00040 4 OLDNAM 00160 1 TAB21 00171 A 1
BUFF1 00064 A 1 I1 00074 1 LOWCOM 00152 A 1 READ1 00057 4 TEMP 00172 1
BUFF2 00065 A 1 IN1 00075 1 MZE 00153 A 1 READ2 00060 4 TMAX 00173 A 1
CNAM 00066 1 IN2 00076 1 N1 00042 A 1 READY 00061 4 TOP 00174 1
CODE 00067 1 INDX1 00077 1 NAMED 00053 4 RESULT 00165 A 1 TSTVAL 00175 1
DECSW 00070 2 INPUT 00052 4 NAMESW 00154 2 RIP 00062 4 TYPCOD 00200 A 1
DELTA 00071 1 I 00100 1 NERR0 00054 4 SIGN 00166 1 TYPE 00201 1
EMPTY 00046 4 LINE 00151 A 1 NOSYM1 00055 4 SNAME 00044 A 1 TYPMAX 00202 A 1
EOF1 00047 4 LOOP1 00040 4 NOSYM 00056 4 STOMAP 00041 1 VALUE 00203 1
EOF2 00050 4 LOOP2 00040 4 NPLUS1 00155 1 SYMTB 00043 1 WORD 00204 1
EOFCT 00072 1 LOOP3 00040 4 N 00156 1 SYSSW 00167 2
0FUNCTION DICTIONARY
BCDEC 00000 1 BCOCT 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1
BZEL 00005 1 CHNCOM 00006 1 COMARG 00007 1 DERBC 00010 1 DORMNT 00011 1
EXIT 00012 1 FERRTN 00013 1 GETBUF 00014 1 GLOC 00015 1 GTWDBI 00016 1
GTWDB 00017 1 .SETUP 00020 1 OCABC 00021 1 OCLBC 00022 1 OCRBC 00023 1
PRMESS 00024 1 PRNTER 00025 1 RESETF 00026 1 RJUST 00027 1 SETBRK 00030 1
SMEM 00031 1 TSSFIL 00032 1 USRFIL 00033 1 WHOAMI 00034 1 ZEL 00035 1
NAM 00036 1 VAL 00037 1
0ABSOLUTE CONSTANTS
00243 -066445246060 00253 -204546636026 00235 +246060606060 00233 +214343466625 00237 -042246436260
00240 -044645606270 00241 -054660234644 00221 +000000000062 00252 -175757575760 00225 +000000077777
00226 +000000100000 00256 -307070707070 00220 +000000000054 00224 +000000006161 00217 +000000000040
00215 +000000000020 00251 -175757575757 00246 -112521247060 00232 +000004000000 00216 +000000000022
00214 +000000000016 00254 -232122432560 00245 -066660462660 00244 -066525512643 00211 +000000000004
00257 -344421314534 00230 +000001000000 00231 +000002000000 00212 +000000000005 00236 -034666256263
00207 +000000000002 00213 +000000000006 00222 +000000000077 00227 +000000770000 00250 -116060606060
00223 +000000000660 00210 +000000000003 00205 +000000000000 00242 -064421473460 00260 -344501606263
00255 -244760450160 00247 -116051254362 00206 +000000000001 00234 +233000000000
0STATEMENT DICTIONARY
00045 TXL -301333001332 00046 TXL -301143001140 00047 TXL -300610000604 00050 TXL -300752000751
00051 TXL -301320001317 00052 TXL -300760000756 00053 TXL -301114001112 00054 TXL -300611000610
00055 TXL -301330001322 00056 TXL -301322001321 00057 TXL -300435000432 00060 TXL -300643000634
00061 TXL -300756000754 00062 TXL -300754000752
0PROGRAM
N'R 001 LM00013
B'N NAMESW,DECSW,SYSSW 002 LM00014
D'N LINE(40) 003 LM00015
D'N BUFF1(0),BUFF2(0) 004 LM00016
D'N TAB11(0),TAB21(0) 005 LM00017
V'S N1 = 0,$STOMAP$ 006 LM00019
00261 TSX +0 07400 4 00020 00041 -2 26346 4 42147 00042 +0 00000 0 00000
E'E (STOMAP,N1(1)) 007 LM00020
V'S SNAME = $COM000$,$ SYMTB$ 008 LM00021
00043 -2 06270 4 46322 00044 +2 34644 0 00000
E'E (SYMTB,SNAME(1)) 009 LM00022
V'S RESULT = 0,0,0,0,0 010 LM00023
00161 +0 00000 0 00000 00162 +0 00000 0 00000 00163 +0 00000 0 00000 00164 +0 00000 0 00000
00165 +0 00000 0 00000
V'S FENCE = 777777777777K 011 LM00025
00073 -3 77777 7 77777
V'S LOWCOM = 77461K 012 LM00026
00152 +0 00000 0 77461
V'S MZE = - 0 013 LM00027
00153 -0 00000 0 00000
V'S TYPCOD = $00000F$,$00000E$,$00000C$ 014 LM00028
00176 +0 00000 0 00023 00177 +0 00000 0 00025 00200 +0 00000 0 00026
V'S TMAX = 1024 015 LM00029
00173 +0 00000 0 02000
V'S TYPMAX = 3 016 LM00030
00202 +0 00000 0 00003
V'S BLANKS = $ $ 017 LM00031
00063 -2 06060 6 06060
V'S NULLS = 575757575757K 018 LM00032
00157 -1 75757 5 75757
W'R COMARG.(1,N1) .E. FENCE 019 LM00036
00262 TSX +0 07400 4 00007 00263 TXH +3 00000 0 00206 00264 TXH +3 00000 0 00042 00265 SUB +0 40200 0 00073
00266 TNZ -0 10000 0 00276
PRMESS.($R RELSUP N1 (N1 STOMAP)$) 020 LM00037
00267 TSX +0 07400 4 00024 00270 TXH +3 00000 0 00247 00271 TXH +3 00000 0 00255 00272 TXH +3 00000 0 00260
00273 TXH +3 00000 0 00242
CHNCOM.(0) 021 LM00038
00274 TSX +0 07400 4 00006 00275 TXH +3 00000 0 00205
E'L 022 LM00039
WHOAMI.(LINE(3)...3) 023 LM00043
00276 TSX +0 07400 4 00034 00277 TIX +2 00210 0 00146
W'R (LINE(1) .E. N1) 024 LM00044
00300 CLA +0 50000 0 00150 00301 SUB +0 40200 0 00042 00302 TNZ -0 10000 0 00306
SYSSW = 1B 025 LM00045
00303 CLA +0 50000 0 00206 00304 STO +0 60100 0 00167
O'E 026 LM00046
00305 TRA +0 02000 0 00310
SYSSW = 0B 027 LM00047
00306 CLA +0 50000 0 00205 00307 STO +0 60100 0 00167
E'L 028 LM00048
SETBRK.(BEATIT) 029 LM00049
00310 TSX +0 07400 4 00030 00311 TXH +3 00000 0 00045
FERRTN.(ERR1) 030 LM00053
00312 TSX +0 07400 4 00013 00313 TXH +3 00000 0 00051
INDX1 = 1 031 LM00057
00314 CLA +0 50000 0 00206 00315 STO +0 60100 0 00077
GETBUF.(TAB11,TMAX) 032 LM00058
00316 TSX +0 07400 4 00014 00317 TXH +3 00000 0 00170 00320 TXH +3 00000 0 00173
GETBUF.(TAB21,TMAX) 033 LM00059
00321 TSX +0 07400 4 00014 00322 TXH +3 00000 0 00171 00323 TXH +3 00000 0 00173
TOP = GETBUF.(BUFF1,432) 034 LM00063
00324 TSX +0 07400 4 00014 00325 TXH +3 00000 0 00064 00326 TXH +3 00000 0 00223 00327 STO +0 60100 0 00174
GETBUF.(BUFF2,432) 035 LM00064
00330 TSX +0 07400 4 00014 00331 TXH +3 00000 0 00065 00332 TXH +3 00000 0 00223
BFOPEN.($R$,N1,STOMAP,BUFF1(BUFF1+432),BUFF2(BUFF2+432), 036 LM00065
1 MZE,ERR1) 036 LM00066
00333 CLA +0 50000 0 00065 00334 ADD +0 40000 0 00223 00335 SUB +0 40200 0 00336 00336 TXH +3 00000 0 00065
00337 STA +0 62100 0 00352 00340 CLA +0 50000 0 00064 00341 ADD +0 40000 0 00223 00342 SUB +0 40200 0 00343
00343 TXH +3 00000 0 00064 00344 STA +0 62100 0 00351 00345 TSX +0 07400 4 00003 00346 TXH +3 00000 0 00250
00347 TXH +3 00000 0 00042 00350 TXH +3 00000 0 00041 00351 TXH +3 00000 0 00000 00352 TXH +3 00000 0 00000
00353 TXH +3 00000 0 00153 00354 TXH +3 00000 0 00051
SNAME = SNAME .V. (N1.A.770000K) 037 LM00067
00355 CAL -0 50000 0 00042 00356 ANA -0 32000 0 00227 00357 ORA -0 50100 0 00044 00360 SLW +0 60200 0 00044
BFREAD.(N1,STOMAP,N...1,EOF1,EOFCT,ERR1) 038 LM00071
00361 TSX +0 07400 4 00004 00362 TXH +3 00000 0 00042 00363 TXH +3 00000 0 00041 00364 TIX +2 00206 0 00156
00365 TXH +3 00000 0 00047 00366 TXH +3 00000 0 00072 00367 TXH +3 00000 0 00051
N = N .A. 77K 039 LM00072
00370 CAL -0 50000 0 00156 00371 ANA -0 32000 0 00222 00372 SLW +0 60200 0 00156
NPLUS1 = N + 1 040 LM00073
00373 CLA +0 50000 0 00156 00374 ADD +0 40000 0 00206 00375 STO +0 60100 0 00155
BFREAD.(N1,STOMAP,LINE(N)...NPLUS1,EOF1,EOFCT,ERR1) 041 LM00074
00376 CLA +0 50000 0 00156 00377 SUB +0 40200 0 00400 00400 TXH +3 00000 0 00151 00401 STA +0 62100 0 00405
00402 TSX +0 07400 4 00004 00403 TXH +3 00000 0 00042 00404 TXH +3 00000 0 00041 00405 TIX +2 00155 0 00000
00406 TXH +3 00000 0 00047 00407 TXH +3 00000 0 00072 00410 TXH +3 00000 0 00051
N = LINE(0) .A. 77K 042 LM00075
00411 CAL -0 50000 0 00151 00412 ANA -0 32000 0 00222 00413 SLW +0 60200 0 00156
NPLUS1 = N + 1 043 LM00076
00414 CLA +0 50000 0 00156 00415 ADD +0 40000 0 00206 00416 STO +0 60100 0 00155
BFREAD.(N1,STOMAP,LINE(N)...NPLUS1,EOF1,EOFCT,ERR1) 044 LM00077
00417 CLA +0 50000 0 00156 00420 SUB +0 40200 0 00421 00421 TXH +3 00000 0 00151 00422 STA +0 62100 0 00426
00423 TSX +0 07400 4 00004 00424 TXH +3 00000 0 00042 00425 TXH +3 00000 0 00041 00426 TIX +2 00155 0 00000
00427 TXH +3 00000 0 00047 00430 TXH +3 00000 0 00072 00431 TXH +3 00000 0 00051
READ1 N = LINE(0) .A. 77K 045 LM00081
00432 CAL -0 50000 0 00151 00433 ANA -0 32000 0 00222 00434 SLW +0 60200 0 00156
NPLUS1 = N + 1 046 LM00082
00435 CLA +0 50000 0 00156 00436 ADD +0 40000 0 00206 00437 STO +0 60100 0 00155
BFREAD.(N1,STOMAP,LINE(N)...NPLUS1,EOF1,EOFCT,ERR1) 047 LM00083
00440 CLA +0 50000 0 00156 00441 SUB +0 40200 0 00442 00442 TXH +3 00000 0 00151 00443 STA +0 62100 0 00447
00444 TSX +0 07400 4 00004 00445 TXH +3 00000 0 00042 00446 TXH +3 00000 0 00041 00447 TIX +2 00155 0 00000
00450 TXH +3 00000 0 00047 00451 TXH +3 00000 0 00072 00452 TXH +3 00000 0 00051
W'R N .L. 6, T'O READ1 048 LM00084
00453 CLA +0 50000 0 00156 00454 SUB +0 40200 0 00213 00455 TZE +0 10000 0 00460 00456 TPL +0 12000 0 00460
00457 TRA +0 02000 0 00057
W'R LINE(N-2) .NE. BLANKS 049 LM00088
00460 CLA +0 50000 0 00156 00461 SUB +0 40200 0 00207 00462 PAX +0 73400 1 00000 00463 CLA +0 50000 1 00151
00464 SUB +0 40200 0 00063 00465 TZE +0 10000 0 00603
W'R LINE(N-1) .E. $LOWEST$ 050 LM00092
00466 CLA +0 50000 0 00156 00467 SUB +0 40200 0 00206 00470 PAX +0 73400 1 00000 00471 CLA +0 50000 1 00151
00472 SUB +0 40200 0 00236 00473 TNZ -0 10000 0 00506
LOWCOM = BCOCT.(LINE(N-5)) 051 LM00093
00474 CLA +0 50000 0 00156 00475 SUB +0 40200 0 00212 00476 SUB +0 40200 0 00477 00477 TXH +3 00000 0 00151
00500 STA +0 62100 0 00502 00501 TSX +0 07400 4 00001 00502 TXH +3 00000 0 00000 00503 STO +0 60100 0 00152
T'O EOF1 052 LM00094
00504 TRA +0 02000 0 00047
O'R LINE(N-1) .E. BLANKS 053 LM00095
00505 TRA +0 02000 0 00521 00506 CLA +0 50000 0 00156 00507 SUB +0 40200 0 00206 00510 PAX +0 73400 1 00000
00511 CLA +0 50000 1 00151 00512 SUB +0 40200 0 00063 00513 TNZ -0 10000 0 00517
IN2 = 2K6 054 LM00096
00514 CLA +0 50000 0 00231 00515 STO +0 60100 0 00076
O'E 055 LM00097
00516 TRA +0 02000 0 00521
IN2 = 1K6 056 LM00098
00517 CLA +0 50000 0 00230 00520 STO +0 60100 0 00076
E'L 057 LM00099
W'R LINE(N-2) .E. 0 058 LM00103
00521 CLA +0 50000 0 00156 00522 SUB +0 40200 0 00207 00523 PAX +0 73400 1 00000 00524 CLA +0 50000 1 00151
00525 SUB +0 40200 0 00205 00526 TNZ -0 10000 0 00532
IN1 = $(MAIN)$ 059 LM00104
00527 CLA +0 50000 0 00257 00530 STO +0 60100 0 00075
O'E 060 LM00105
00531 TRA +0 02000 0 00542
IN1 = RJUST.(LINE(N-2)) 061 LM00106
00532 CLA +0 50000 0 00156 00533 SUB +0 40200 0 00207 00534 SUB +0 40200 0 00535 00535 TXH +3 00000 0 00151
00536 STA +0 62100 0 00540 00537 TSX +0 07400 4 00027 00540 TXH +3 00000 0 00000 00541 STO +0 60100 0 00075
E'L 062 LM00107
IN2 = IN2 .V. BCOCT.(LINE(N-4)) 063 LM00111
00542 CLA +0 50000 0 00156 00543 SUB +0 40200 0 00211 00544 SUB +0 40200 0 00545 00545 TXH +3 00000 0 00151
00546 STA +0 62100 0 00550 00547 TSX +0 07400 4 00001 00550 TXH +3 00000 0 00000 00551 STO +0 60100 0 01543
00552 CAL -0 50000 0 00076 00553 ORA -0 50100 0 01543 00554 SLW +0 60200 0 00076
TAB11(TAB11+INDX1) = IN1 064 LM00115
00555 CLA +0 50000 0 00170 00556 ADD +0 40000 0 00077 00557 PAX +0 73400 1 00000 00560 CLA +0 50000 0 00075
00561 STO +0 60100 1 00170
TAB21(TAB21+INDX1) = IN2 065 LM00116
00562 CLA +0 50000 0 00171 00563 ADD +0 40000 0 00077 00564 PAX +0 73400 1 00000 00565 CLA +0 50000 0 00076
00566 STO +0 60100 1 00171
INDX1 = INDX1 + 1 066 LM00117
00567 CLA +0 50000 0 00077 00570 ADD +0 40000 0 00206 00571 STO +0 60100 0 00077
W'R INDX1 .G. TMAX 067 LM00118
00572 CLA +0 50000 0 00077 00573 SUB +0 40200 0 00173 00574 TZE +0 10000 0 00603 00575 TMI -0 12000 0 00603
PRMESS.($OVERFLOW OF TABLE$) 068 LM00119
00576 TSX +0 07400 4 00024 00577 TXH +3 00000 0 00244 00600 TXH +3 00000 0 00245 00601 TXH +3 00000 0 00254
T'O NOSYM1 069 LM00120
00602 TRA +0 02000 0 00055
E'L 070 LM00121
E'L 071 LM00122
T'O READ1 072 LM00123
00603 TRA +0 02000 0 00057
EOF1 BFCLOS.(N1,STOMAP,NERR0) 073 LM00127
00604 TSX +0 07400 4 00002 00605 TXH +3 00000 0 00042 00606 TXH +3 00000 0 00041 00607 TXH +3 00000 0 00054
NERR0 TSSFIL. 074 LM00131
00610 TSX +0 07400 4 00032
BFOPEN.($R$,SNAME,SYMTB,BUFF1(BUFF1+432),BUFF2(BUFF2+432), 075 LM00132
1 MZE,NOSYM) 075 LM00133
00611 CLA +0 50000 0 00065 00612 ADD +0 40000 0 00223 00613 SUB +0 40200 0 00614 00614 TXH +3 00000 0 00065
00615 STA +0 62100 0 00630 00616 CLA +0 50000 0 00064 00617 ADD +0 40000 0 00223 00620 SUB +0 40200 0 00621
00621 TXH +3 00000 0 00064 00622 STA +0 62100 0 00627 00623 TSX +0 07400 4 00003 00624 TXH +3 00000 0 00250
00625 TXH +3 00000 0 00044 00626 TXH +3 00000 0 00043 00627 TXH +3 00000 0 00000 00630 TXH +3 00000 0 00000
00631 TXH +3 00000 0 00153 00632 TXH +3 00000 0 00056
USRFIL. 076 LM00134
00633 TSX +0 07400 4 00033
READ2 BFREAD.(SNAME,SYMTB,LINE(14)...14,EOF2,EOFCT,NOSYM) 077 LM00138
00634 TSX +0 07400 4 00004 00635 TXH +3 00000 0 00044 00636 TXH +3 00000 0 00043 00637 TIX +2 00214 0 00133
00640 TXH +3 00000 0 00050 00641 TXH +3 00000 0 00072 00642 TXH +3 00000 0 00056
T'H LOOP1, FOR I = 14,-3,(I.L.2) 078 LM00142
00643 CLA +0 50000 0 00214 00644 STO +0 60100 0 00100 00645 TRA +0 02000 0 00651 00646 CLS +0 50200 0 00210
00647 ADD +0 40000 0 00100 00650 STO +0 60100 0 00100 00651 CLA +0 50000 0 00100 00652 SUB +0 40200 0 00207
00653 TZE +0 10000 0 00655 00654 TMI -0 12000 0 00750
W'R LINE(I-1) .NE. BLANKS 079 LM00143
00655 CLA +0 50000 0 00100 00656 SUB +0 40200 0 00206 00657 PAX +0 73400 1 00000 00660 CLA +0 50000 1 00151
00661 SUB +0 40200 0 00063 00662 TZE +0 10000 0 00747
IN1 = RJUST.((LINE(I-1).LS.18) .V. 080 LM00144
1 (LINE(I-2).RS.18)) 080 LM00145
00663 CLA +0 50000 0 00100 00664 SUB +0 40200 0 00207 00665 PAX +0 73400 1 00000 00666 CAL -0 50000 0 00216
00667 STA +0 62100 0 00671 00670 CAL -0 50000 1 00151 00671 LGR -0 76500 0 00000 00672 SLW +0 60200 0 01543
00673 CLA +0 50000 0 00100 00674 SUB +0 40200 0 00206 00675 PAX +0 73400 1 00000 00676 CAL -0 50000 0 00216
00677 STA +0 62100 0 00701 00700 CAL -0 50000 1 00151 00701 ALS +0 76700 0 00000 00702 ORA -0 50100 0 01543
00703 SLW +0 60200 0 01543 00704 TSX +0 07400 4 00027 00705 TXH +3 00000 0 01543 00706 STO +0 60100 0 00075
IN2 = 4K6 .V. BCOCT.(LINE(I)) 081 LM00146
00707 CLA +0 50000 0 00100 00710 SUB +0 40200 0 00711 00711 TXH +3 00000 0 00151 00712 STA +0 62100 0 00714
00713 TSX +0 07400 4 00001 00714 TXH +3 00000 0 00000 00715 STO +0 60100 0 01543 00716 CAL -0 50000 0 00232
00717 ORA -0 50100 0 01543 00720 SLW +0 60200 0 00076
TAB11(TAB11+INDX1) = IN1 082 LM00147
00721 CLA +0 50000 0 00170 00722 ADD +0 40000 0 00077 00723 PAX +0 73400 1 00000 00724 CLA +0 50000 0 00075
00725 STO +0 60100 1 00170
TAB21(TAB21+INDX1) = IN2 083 LM00148
00726 CLA +0 50000 0 00171 00727 ADD +0 40000 0 00077 00730 PAX +0 73400 1 00000 00731 CLA +0 50000 0 00076
00732 STO +0 60100 1 00171
INDX1 = INDX1 + 1 084 LM00149
00733 CLA +0 50000 0 00077 00734 ADD +0 40000 0 00206 00735 STO +0 60100 0 00077
W'R INDX1 .G. TMAX 085 LM00150
00736 CLA +0 50000 0 00077 00737 SUB +0 40200 0 00173 00740 TZE +0 10000 0 00747 00741 TMI -0 12000 0 00747
PRMESS.($OVERFLOW OF TABLE$) 086 LM00151
00742 TSX +0 07400 4 00024 00743 TXH +3 00000 0 00244 00744 TXH +3 00000 0 00245 00745 TXH +3 00000 0 00254
T'O EOF2 087 LM00152
00746 TRA +0 02000 0 00050
E'L 088 LM00153
E'L 089 LM00154
LOOP1 C'E 090 LM00155
00747 TRA +0 02000 0 00646
T'O READ2 091 LM00156
00750 TRA +0 02000 0 00060
EOF2 RESETF. 092 LM00160
00751 TSX +0 07400 4 00026
RIP SMEM.(TOP) 093 LM00161
00752 TSX +0 07400 4 00031 00753 TXH +3 00000 0 00174
READY PRMESS.($READY$) 094 LM00162
00754 TSX +0 07400 4 00024 00755 TXH +3 00000 0 00246
INPUT SIGN = 1 095 LM00166
00756 CLA +0 50000 0 00206 00757 STO +0 60100 0 00166
DECSW = 0B 096 LM00167
00760 CLA +0 50000 0 00205 00761 STO +0 60100 0 00070
NAMESW = 0B 097 LM00168
00762 CLA +0 50000 0 00205 00763 STO +0 60100 0 00154
TYPE = 0 098 LM00169
00764 CLA +0 50000 0 00205 00765 STO +0 60100 0 00201
VALUE = 0 099 LM00170
00766 CLA +0 50000 0 00205 00767 STO +0 60100 0 00203
RESULT(0) = 575757575757K 100 LM00171
00770 CLA +0 50000 0 00251 00771 STO +0 60100 0 00165
GTWDBI. 101 LM00175
00772 TSX +0 07400 4 00016
T'H LOOP2, FOR I = 1,1,(I.G.14) 102 LM00179
00773 CLA +0 50000 0 00206 00774 STO +0 60100 0 00100 00775 TRA +0 02000 0 01001 00776 CLA +0 50000 0 00100
00777 ADD +0 40000 0 00206 01000 STO +0 60100 0 00100 01001 CLA +0 50000 0 00100 01002 SUB +0 40200 0 00214
01003 TZE +0 10000 0 01005 01004 TPL +0 12000 0 01140
GTWDB.(LINE,EMPTY) 103 LM00180
01005 TSX +0 07400 4 00017 01006 TXH +3 00000 0 00151 01007 TXH +3 00000 0 00046
TEMP = ZEL.(LINE) 104 LM00184
01010 TSX +0 07400 4 00035 01011 TXH +3 00000 0 00151 01012 STO +0 60100 0 00172
W'R TEMP .E. $00000+$ 105 LM00185
01013 CLA +0 50000 0 00172 01014 SUB +0 40200 0 00215 01015 TNZ -0 10000 0 01021
SIGN = 1 106 LM00186
01016 CLA +0 50000 0 00206 01017 STO +0 60100 0 00166
O'R TEMP .E. $00000-$ 107 LM00187
01020 TRA +0 02000 0 01137 01021 CLA +0 50000 0 00172 01022 SUB +0 40200 0 00217 01023 TNZ -0 10000 0 01027
SIGN = -1 108 LM00188
01024 CLS +0 50200 0 00206 01025 STO +0 60100 0 00166
O'R TEMP .E. $0000//$ 109 LM00189
01026 TRA +0 02000 0 01137 01027 CLA +0 50000 0 00172 01030 SUB +0 40200 0 00224 01031 TNZ -0 10000 0 01035
DECSW = 1B 110 LM00190
01032 CLA +0 50000 0 00206 01033 STO +0 60100 0 00070
O'R TEMP .E. $00000*$ 111 LM00191
01034 TRA +0 02000 0 01137 01035 CLA +0 50000 0 00172 01036 SUB +0 40200 0 00220 01037 TNZ -0 10000 0 01044
LINE = OLDNAM 112 LM00192
01040 CLA +0 50000 0 00160 01041 STO +0 60100 0 00151
T'O NAMED 113 LM00193
01042 TRA +0 02000 0 00053
O'R (TEMP .A. BLANKS) .E. 0 114 LM00194
01043 TRA +0 02000 0 01137 01044 CAL -0 50000 0 00172 01045 ANA -0 32000 0 00063 01046 SLW +0 60200 0 01543
01047 CLA +0 50000 0 01543 01050 SUB +0 40200 0 00205 01051 TNZ -0 10000 0 01112
W'R (.NOT.DECSW).AND.(TEMP.A.$YYYYYY$).E.0 115 LM00195
01052 CAL -0 50000 0 00172 01053 ANA -0 32000 0 00256 01054 SLW +0 60200 0 01543 01055 CLA +0 50000 0 01543
01056 SUB +0 40200 0 00205 01057 TNZ -0 10000 0 01074 01060 ZET +0 52000 0 00070 01061 TRA +0 02000 0 01074
VALUE = VALUE+1K5+SIGN*BCOCT.(TEMP) 116 LM00196
01062 TSX +0 07400 4 00001 01063 TXH +3 00000 0 00172 01064 XCA +0 13100 0 00000 01065 MPY +0 20000 0 00166
01066 STQ -0 60000 0 01543 01067 CLA +0 50000 0 00203 01070 ADD +0 40000 0 00226 01071 ADD +0 40000 0 01543
01072 STO +0 60100 0 00203
O'E 117 LM00197
01073 TRA +0 02000 0 01105
VALUE = VALUE+1K5+SIGN*BCDEC.(TEMP) 118 LM00198
01074 TSX +0 07400 4 00000 01075 TXH +3 00000 0 00172 01076 XCA +0 13100 0 00000 01077 MPY +0 20000 0 00166
01100 STQ -0 60000 0 01543 01101 CLA +0 50000 0 00203 01102 ADD +0 40000 0 00226 01103 ADD +0 40000 0 01543
01104 STO +0 60100 0 00203
E'L 119 LM00199
DECSW = 0B 120 LM00200
01105 CLA +0 50000 0 00205 01106 STO +0 60100 0 00070
SIGN = 1 121 LM00201
01107 CLA +0 50000 0 00206 01110 STO +0 60100 0 00166
O'E 122 LM00202
01111 TRA +0 02000 0 01137
NAMED NAMESW = 1B 123 LM00203
01112 CLA +0 50000 0 00206 01113 STO +0 60100 0 00154
OLDNAM = LINE 124 LM00204
01114 CLA +0 50000 0 00151 01115 STO +0 60100 0 00160
VALUE = VALUE+1K5+SIGN*VAL.(LINE,CODE) 125 LM00205
01116 TSX +0 07400 4 00037 01117 TXH +3 00000 0 00151 01120 TXH +3 00000 0 00067 01121 XCA +0 13100 0 00000
01122 MPY +0 20000 0 00166 01123 STQ -0 60000 0 01543 01124 CLA +0 50000 0 00203 01125 ADD +0 40000 0 00226
01126 ADD +0 40000 0 01543 01127 STO +0 60100 0 00203
TYPE = TYPE .V. CODE 126 LM00206
01130 CAL -0 50000 0 00201 01131 ORA -0 50100 0 00067 01132 SLW +0 60200 0 00201
DECSW = 0B 127 LM00207
01133 CLA +0 50000 0 00205 01134 STO +0 60100 0 00070
SIGN = 1 128 LM00208
01135 CLA +0 50000 0 00206 01136 STO +0 60100 0 00166
E'L 129 LM00209
LOOP2 C'E 130 LM00210
01137 TRA +0 02000 0 00776
EMPTY VALUE = VALUE .A. 77777K 131 LM00214
01140 CAL -0 50000 0 00203 01141 ANA -0 32000 0 00225 01142 SLW +0 60200 0 00203
W'R SYSSW 132 LM00218
01143 NZT -0 52000 0 00167 01144 TRA +0 02000 0 01161
WORD = GLOC.(VALUE) 133 LM00219
01145 TSX +0 07400 4 00015 01146 TXH +3 00000 0 00203 01147 STO +0 60100 0 00204
RESULT(2) = 575757575760K 134 LM00220
01150 CLA +0 50000 0 00252 01151 STO +0 60100 0 00163
RESULT(3) = OCLBC.(WORD) 135 LM00221
01152 TSX +0 07400 4 00022 01153 TXH +3 00000 0 00204 01154 STO +0 60100 0 00162
RESULT(4) = OCRBC.(WORD) 136 LM00222
01155 TSX +0 07400 4 00023 01156 TXH +3 00000 0 00204 01157 STO +0 60100 0 00161
O'E 137 LM00223
01160 TRA +0 02000 0 01167
RESULT(2) = NULLS 138 LM00224
01161 CLA +0 50000 0 00157 01162 STO +0 60100 0 00163
RESULT(3) = NULLS 139 LM00225
01163 CLA +0 50000 0 00157 01164 STO +0 60100 0 00162
RESULT(4) = NULLS 140 LM00226
01165 CLA +0 50000 0 00157 01166 STO +0 60100 0 00161
E'L 141 LM00227
W'R NAMESW 142 LM00228
01167 NZT -0 52000 0 00154 01170 TRA +0 02000 0 01247
W'R DECSW 143 LM00229
01171 NZT -0 52000 0 00070 01172 TRA +0 02000 0 01202
RESULT(1) = BZEL.(DERBC.(VALUE)) 144 LM00230
01173 TSX +0 07400 4 00010 01174 TXH +3 00000 0 00203 01175 STO +0 60100 0 01543 01176 TSX +0 07400 4 00005
01177 TXH +3 00000 0 01543 01200 STO +0 60100 0 00164
O'E 145 LM00231
01201 TRA +0 02000 0 01205
RESULT(1) = OCABC.(VALUE) 146 LM00232
01202 TSX +0 07400 4 00021 01203 TXH +3 00000 0 00203 01204 STO +0 60100 0 00164
E'L 147 LM00233
T'H LOOP3, FOR I = 0,1,(I.G.TYPMAX) 148 LM00237
01205 CLA +0 50000 0 00205 01206 STO +0 60100 0 00100 01207 TRA +0 02000 0 01213 01210 CLA +0 50000 0 00100
01211 ADD +0 40000 0 00206 01212 STO +0 60100 0 00100 01213 CLA +0 50000 0 00100 01214 SUB +0 40200 0 00202
01215 TZE +0 10000 0 01217 01216 TPL +0 12000 0 01240
W'R ((TYPE.RS.I).A.1K) .NE. 0, 149 LM00238
1 RESULT(0) = (RESULT(0).LS.6).V.TYPCOD(I) 149 LM00239
01217 CAL -0 50000 0 00100 01220 STA +0 62100 0 01222 01221 CAL -0 50000 0 00201 01222 LGR -0 76500 0 00000
01223 ANA -0 32000 0 00206 01224 SLW +0 60200 0 01543 01225 CLA +0 50000 0 01543 01226 SUB +0 40200 0 00205
01227 TZE +0 10000 0 01237 01230 CAL -0 50000 0 00213 01231 STA +0 62100 0 01233 01232 CAL -0 50000 0 00165
01233 ALS +0 76700 0 00000 01234 LXA +0 53400 2 00100 01235 ORA -0 50100 2 00200 01236 SLW +0 60200 0 00165
LOOP3 C'E 150 LM00240
01237 TRA +0 02000 0 01210
PRMESS.(RESULT(0),RESULT(1),RESULT(2), 151 LM00244
1 RESULT(3),RESULT(4)) 151 LM00245
01240 TSX +0 07400 4 00024 01241 TXH +3 00000 0 00165 01242 TXH +3 00000 0 00164 01243 TXH +3 00000 0 00163
01244 TXH +3 00000 0 00162 01245 TXH +3 00000 0 00161
O'E 152 LM00246
01246 TRA +0 02000 0 01316
W'R (VALUE.G.LOWCOM) .OR. (VALUE.L.62K) 153 LM00253
01247 CLA +0 50000 0 00203 01250 SUB +0 40200 0 00221 01251 TZE +0 10000 0 01253 01252 TMI -0 12000 0 01257
01253 CLA +0 50000 0 00203 01254 SUB +0 40200 0 00152 01255 TZE +0 10000 0 01263 01256 TMI -0 12000 0 01263
VALUE = 4K6 .V. VALUE 154 LM00254
01257 CAL -0 50000 0 00232 01260 ORA -0 50100 0 00203 01261 SLW +0 60200 0 00203
O'E 155 LM00255
01262 TRA +0 02000 0 01266
VALUE = 1K6 .V. VALUE 156 LM00256
01263 CAL -0 50000 0 00230 01264 ORA -0 50100 0 00203 01265 SLW +0 60200 0 00203
E'L 157 LM00257
RESULT(0) = NAM.(VALUE) 158 LM00261
01266 TSX +0 07400 4 00036 01267 TXH +3 00000 0 00203 01270 STO +0 60100 0 00165
VALUE = DELTA .A. 77777K 159 LM00262
01271 CAL -0 50000 0 00071 01272 ANA -0 32000 0 00225 01273 SLW +0 60200 0 00203
W'R DECSW 160 LM00263
01274 NZT -0 52000 0 00070 01275 TRA +0 02000 0 01305
RESULT(1) = BZEL.(DERBC.(VALUE)) 161 LM00264
01276 TSX +0 07400 4 00010 01277 TXH +3 00000 0 00203 01300 STO +0 60100 0 01543 01301 TSX +0 07400 4 00005
01302 TXH +3 00000 0 01543 01303 STO +0 60100 0 00164
O'E 162 LM00265
01304 TRA +0 02000 0 01310
RESULT(1) = OCABC.(VALUE) 163 LM00266
01305 TSX +0 07400 4 00021 01306 TXH +3 00000 0 00203 01307 STO +0 60100 0 00164
E'L 164 LM00267
PRMESS.(RESULT(0),RESULT(1),RESULT(2), 165 LM00268
1 RESULT(3),RESULT(4)) 165 LM00269
01310 TSX +0 07400 4 00024 01311 TXH +3 00000 0 00165 01312 TXH +3 00000 0 00164 01313 TXH +3 00000 0 00163
01314 TXH +3 00000 0 00162 01315 TXH +3 00000 0 00161
E'L 166 LM00270
T'O INPUT 167 LM00274
01316 TRA +0 02000 0 00052
ERR1 PRNTER. 168 LM00278
01317 TSX +0 07400 4 00025
DORMNT. 169 LM00279
01320 TSX +0 07400 4 00011
NOSYM PRNTER. 170 LM00283
01321 TSX +0 07400 4 00025
NOSYM1 PRMESS.($NO COMMON SYMBOLS ALLOWED$) 171 LM00284
01322 TSX +0 07400 4 00024 01323 TXH +3 00000 0 00241 01324 TXH +3 00000 0 00240 01325 TXH +3 00000 0 00237
01326 TXH +3 00000 0 00233 01327 TXH +3 00000 0 00235
USRFIL. 172 LM00285
01330 TSX +0 07400 4 00033
T'O RIP 173 LM00286
01331 TRA +0 02000 0 00062
BEATIT RESETF. 174 LM00290
01332 TSX +0 07400 4 00026
USRFIL. 175 LM00291
01333 TSX +0 07400 4 00033
CHNCOM.(0) 176 LM00292
01334 TSX +0 07400 4 00006 01335 TXH +3 00000 0 00205
INTERNAL FUNCTION (X,Y) 177 LM00294
01336 TRA +0 02000 0 01430
E'O VAL. 178 LM00295
01337 TRA +0 02000 0 01342 00037 TTR +0 02100 0 01340 01340 SXA +0 63400 2 01413 01341 TSX +0 07400 2 01413
IN1 = X 179 LM00296
01342 CLA +0 50000 0 00024 01343 STO +0 60100 0 00075
T'H LOOP4, FOR I1 = 1,1,(I1.G.INDX1) 180 LM00297
01344 CLA +0 50000 0 00206 01345 STO +0 60100 0 00074 01346 TRA +0 02000 0 01352 01347 CLA +0 50000 0 00074
01350 ADD +0 40000 0 00206 01351 STO +0 60100 0 00074 01352 CLA +0 50000 0 00074 01353 SUB +0 40200 0 00077
01354 TZE +0 10000 0 01356 01355 TPL +0 12000 0 01405
W'R TAB11(TAB11+I1) .E. IN1 181 LM00298
01356 CLA +0 50000 0 00170 01357 ADD +0 40000 0 00074 01360 PAX +0 73400 1 00000 01361 CLA +0 50000 1 00170
01362 SUB +0 40200 0 00075 01363 TNZ -0 10000 0 01404
Y = TAB21(TAB21+I1) .RS. 18 182 LM00299
01364 CLA +0 50000 0 00171 01365 ADD +0 40000 0 00074 01366 PAX +0 73400 1 00000 01367 CAL -0 50000 0 00216
01370 STA +0 62100 0 01372 01371 CAL -0 50000 1 00171 01372 LGR -0 76500 0 00000 01373 SLW +0 60200 0 00024
F'N TAB21(TAB21+I1) .A. 77777K 183 LM00300
01374 CLA +0 50000 0 00171 01375 ADD +0 40000 0 00074 01376 PAX +0 73400 1 00000 01377 CAL -0 50000 1 00171
01400 ANA -0 32000 0 00225 01401 SLW +0 60200 0 01427 01402 CLA +0 50000 0 01427 01403 TRA +0 02000 0 01423
E'L 184 LM00301
LOOP4 C'E 185 LM00302
01404 TRA +0 02000 0 01347
PRMESS.(IN1,$ NOT FOUND$) 186 LM00306
01405 TSX +0 07400 4 00024 01406 TXH +3 00000 0 00075 01407 TXH +3 00000 0 00253 01410 TXH +3 00000 0 00243
T'O READY 187 LM00307
01411 TRA +0 02000 0 00061
E'N 188 LM00308
01412 TSX +0 07400 4 00012 01413 TXH +3 00000 0 00000 01414 SXD -0 63400 1 01413 01415 SXA +0 63400 4 01423
01416 CLA +0 50000 4 00001 01417 STA +0 62100 0 01342 01420 CLA +0 50000 4 00002 01421 STA +0 62100 0 01373
01422 TRA +0 02000 2 00001 01423 AXT +0 77400 4 00000 01424 LXA +0 53400 2 01413 01425 LXD -0 53400 1 01413
01426 TRA +0 02000 4 00001
INTERNAL FUNCTION (X) 189 LM00310
01430 TRA +0 02000 0 01542
E'O NAM. 190 LM00311
01431 TRA +0 02000 0 01434 00036 TTR +0 02100 0 01432 01432 SXA +0 63400 2 01526 01433 TSX +0 07400 2 01526
IN1 = X .A. 77777K 191 LM00312
01434 CAL -0 50000 0 00024 01435 ANA -0 32000 0 00225 01436 SLW +0 60200 0 00075
IN2 = X .RS. 18 192 LM00313
01437 CAL -0 50000 0 00216 01440 STA +0 62100 0 01442 01441 CAL -0 50000 0 00024 01442 LGR -0 76500 0 00000
01443 SLW +0 60200 0 00076
DELTA = 1K5 193 LM00314
01444 CLA +0 50000 0 00226 01445 STO +0 60100 0 00071
T'H LOOP5, FOR I1 = 1,1,(I1.G.INDX1) 194 LM00315
01446 CLA +0 50000 0 00206 01447 STO +0 60100 0 00074 01450 TRA +0 02000 0 01454 01451 CLA +0 50000 0 00074
01452 ADD +0 40000 0 00206 01453 STO +0 60100 0 00074 01454 CLA +0 50000 0 00074 01455 SUB +0 40200 0 00077
01456 TZE +0 10000 0 01460 01457 TPL +0 12000 0 01523
W'R (TAB21(TAB21+I1) .RS. 18) .E. IN2 195 LM00316
01460 CLA +0 50000 0 00171 01461 ADD +0 40000 0 00074 01462 PAX +0 73400 1 00000 01463 CAL -0 50000 0 00216
01464 STA +0 62100 0 01466 01465 CAL -0 50000 1 00171 01466 LGR -0 76500 0 00000 01467 SLW +0 60200 0 01541
01470 CLA +0 50000 0 01541 01471 SUB +0 40200 0 00076 01472 TNZ -0 10000 0 01522
TSTVAL = TAB21(TAB21+I1) .A. 77777K 196 LM00317
01473 CLA +0 50000 0 00171 01474 ADD +0 40000 0 00074 01475 PAX +0 73400 1 00000 01476 CAL -0 50000 1 00171
01477 ANA -0 32000 0 00225 01500 SLW +0 60200 0 00175
W'R (TSTVAL.LE.IN1).AND. 197 LM00318
1 ((IN1-TSTVAL).L.DELTA) 197 LM00319
01501 CLA +0 50000 0 00075 01502 SUB +0 40200 0 00175 01503 SUB +0 40200 0 00071 01504 TZE +0 10000 0 01522
01505 TPL +0 12000 0 01522 01506 CLA +0 50000 0 00175 01507 SUB +0 40200 0 00075 01510 TZE +0 10000 0 01512
01511 TPL +0 12000 0 01522
CNAM = TAB11(TAB11+I1) 198 LM00320
01512 CLA +0 50000 0 00170 01513 ADD +0 40000 0 00074 01514 PAX +0 73400 2 00000 01515 CLA +0 50000 2 00170
01516 STO +0 60100 0 00066
DELTA = IN1 - TSTVAL 199 LM00321
01517 CLA +0 50000 0 00075 01520 SUB +0 40200 0 00175 01521 STO +0 60100 0 00071
E'L 200 LM00322
E'L 201 LM00323
LOOP5 C'E 202 LM00324
01522 TRA +0 02000 0 01451
F'N CNAM 203 LM00325
01523 CLA +0 50000 0 00066 01524 TRA +0 02000 0 01535
E'N 204 LM00326
01525 TSX +0 07400 4 00012 01526 TXH +3 00000 0 00000 01527 SXD -0 63400 1 01526 01530 SXA +0 63400 4 01535
01531 CLA +0 50000 4 00001 01532 STA +0 62100 0 01434 01533 STA +0 62100 0 01441 01534 TRA +0 02000 2 00001
01535 AXT +0 77400 4 00000 01536 LXA +0 53400 2 01526 01537 LXD -0 53400 1 01526 01540 TRA +0 02000 4 00001
E'M 205 LM00328
01542 TSX +0 07400 4 00012
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
D.R. WIDRIG JUNE 1966
00004 ENTRY GETBUF GET A BUFFER
EXTERN GETMEM,SETMEM
CALLING SEQUENCE IS.. GETBUF.(BUFF,N)
UPON RETURN, THE CALLER MAY USE THE
AREA BY STATEMENTS OF THE FORM.. X = BUFF(BUFF+I)
WHERE THE I'TH ELEMENT IS INTENDED
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
LINKAGE DIRECTOR
00002 000000000000
00003 272563226426
00004 0636 00 4 00024 GETBUF SCA X4,4 SAVE LINKAGE
00005 0634 00 1 00025 SXA X1,1 AND IR1
00006 0535 00 1 00024 LAC X4,1 SET IR1 TO IR4 (THE CALLER)
00007 0074 00 4 00000 TSX GETMEM,4 GET CURRENT MEMORY BOUND
00010 0601 00 0 00027 STO OLDMEM SAVE OLD MEMORY BOUND
00011 0400 60 1 00002 ADD* 2,1 ALLOW FOR USER'S DEMAND
00012 0734 00 4 00000 PAX 0,4 SAVE COMPLEMENT OF THIS VALUE
00013 -0636 00 4 00020 SCD TXI,4 ..
00014 0400 00 0 00030 ADD =1 ALLOW FOR BUFF(0)
00015 0074 00 4 00001 TSX SETMEM,4 RAISE THE ROOF
00016 -0500 00 1 00001 CAL 1,1 GET BASE POINTER
00017 0734 00 4 00000 PAX 0,4 ..
00020 1 00000 4 00021 TXI TXI *+1,4,** DECREMENT BY AMOUNT OF STORAGE
00021 0754 00 4 00000 PXA 0,4 SET THIS VALUE IN USER'S PROGRAM
00022 0602 60 1 00001 SLW* 1,1 ..
00023 0500 00 0 00027 CLA OLDMEM RETURN OLD MEMORY BOUND
00024 -0774 00 4 00000 X4 AXC **,4 RESTORE LINKAGE
00025 0774 00 1 00000 X1 AXT **,1 AND IR1
00026 0020 00 4 00003 TRA 3,4 RETURN
00027 OLDMEM BSS 1 STORAGE FOR OLD MEMORY BOUND
END
LITERALS
00030 000000000001
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
POST PROCESSOR ASSEMBLY DATA
31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
25 X1 5
24 X4 4, 6
20 TXI 13
4 GETBUF 0
0 GETMEM 7
27 OLDMEM 10, 23
1 SETMEM 15
0 NO ERROR IN ABOVE ASSEMBLY.
REMOVE BCD 09/20/68 0220.9 14693 00000
1 MAD PROGRAM LISTING ... ... ... FILE REMOVE MAD 02/15/68 1740.3
-
DATE-REMOVE PROGRAM LM00001
LM00002
LOADING INSTRUCTIONS LM00003
LM00004
MAD REMOVE (LIST) LM00005
MAD RLIBE (LIST) LM00006
FAP .SETUP (LIST) LM00007
NCLOAD REMOVE RLIBE .SETUP LM00008
SAVE REMOVE LM00009
R REMOVE MMDDYY LM00010
LM00011
ALL FILES UNUSED SINCE MMDDYY WILL BE REMOVED LM00012
D.R. WIDRIG DEC. 1965 LM00013
LM00014
NORMAL MODE IS INTEGER *001 LM00015
DIMENSION V(2),UFD(7),USR(7) *002 LM00016
DIMENSION BUFF1(432),BUFF2(432),BUFF3(432),BUFF4(432) *003 LM00017
LM00018
VECTOR VALUES MFD = $M.F.D.$ *004 LM00019
VECTOR VALUES UF = $U.F.D.$ *005 LM00020
VECTOR VALUES FILE = $(FILE)$ *006 LM00021
VECTOR VALUES TESTSW = 0B *007 LM00022
VECTOR VALUES NPNDSW = 0B *008 LM00023
VECTOR VALUES TRECS = 0 *009 LM00024
VECTOR VALUES DRECS = 0 *010 LM00025
VECTOR VALUES DCNT = 0 *011 LM00026
VECTOR VALUES DONTSW = 0B *012 LM00027
VECTOR VALUES PRTSW = 0B *013 LM00028
VECTOR VALUES B1B = 60 5757575757K *014 LM00029
LM00030
VECTOR VALUES R = 432 *015 LM00031
VECTOR VALUES MZE = 4K11 *016 LM00032
VECTOR VALUES FENCE = 777777777777K *017 LM00033
LM00034
LM00035
GET AND CHECK DATES LM00036
LM00037
WHENEVER COMARG.(1,OLDEST) .E. FENCE *018 LM00038
OUT PRMESS.($DATE IS BAD.$) *019 LM00039
CHNCOM.(0) *020 LM00040
END OF CONDITIONAL *021 LM00041
WHENEVER COMARG.(2,ARG) .E. $(PRNT)$ *022 LM00042
PRTSW = 1B *023 LM00043
OR WHENEVER ARG .E. $(TEST)$ *024 LM00044
PRTSW = 1B *025 LM00045
TESTSW = 1B *026 LM00046
END OF CONDITIONAL *027 LM00047
WHENEVER COMARG.(3,ARG) .E. $(NPND)$, NPNDSW = 1B *028 LM00048
SETBRK.(EOF1) *029 LM00049
OLDEST = DATECV.(OLDEST,OUT) *030 LM00050
TODAY = DATECV.(DATE.(0),OUT) *031 LM00051
LM00052
REMEMBERING WHERE YOU WERE, ATTACH TO MFD LM00053
LM00054
ATTNAM.(V(2)...2,NERR3) *032 LM00055
ATTACH.(MFD,FILE,ERR1) *033 LM00056
LM00057
OPEN AND READ MFD LM00058
LM00059
BFOPEN.($R$,UF,FILE,BUFF1(R),BUFF2(R),MZE,ERR1) *034 LM00060
BFREAD.(UF,FILE,USR(3)...3,EOF1,EOFCT,ERR1) *035 LM00061
LM00062
READM BFREAD.(UF,FILE,USR(7)...7,EOF1,EOFCT,ERR1) *036 LM00063
WHENEVER ((USR(7).E.0).AND.(USR(6).E.0)).OR. *037 LM00064
1 (USR(7).E.MFD).OR.(USR(6).E.FILE), TRANSFER TO READM *037 LM00065
LM00066
FOUND USER, OPEN AND READ HIS UFD LM00067
MAKE SURE ATTACHED TO MFD LM00068
LM00069
ATTACH.(MFD,FILE,ERR1) *038 LM00070
BFOPEN.($R$,USR(7),USR(6),BUFF3(R),BUFF4(R),MZE,ERR2) *039 LM00071
BFREAD.(USR(7),USR(6),UFD(3)...3,EOF2,EOFCT,ERR2) *040 LM00072
LM00073
IS THIS FILE DIRECTORY PROTECTED.Q. LM00074
LM00075
WHENEVER USR(7) .E. $ M1416$ *041 LM00076
1 .OR. USR(7) .E. $ M4060$ *041 LM00077
DONTSW = 1B *042 LM00078
OTHERWISE *043 LM00079
DONTSW = 0B *044 LM00080
END OF CONDITIONAL *045 LM00081
LM00082
LM00083
READU BFREAD.(USR(7),USR(6),UFD(7)...7,EOF2,EOFCT,ERR2) *046 LM00084
DEVICE = (UFD(3).RS.15).A.7K *047 LM00085
WHENEVER ((UFD(7).E.0).AND.(UFD(6).E.0)).OR. *048 LM00086
1 (DEVICE.NE.2).OR.(((UFD(2).RS.18).A.77777K).E.0), *048 LM00087
2 TRANSFER TO READU *048 LM00088
LM00089
TEST DATE-LAST-USED AGAINST OLDEST DATE ALLOWED LM00090
LM00091
RECS = (UFD(2) .RS. 18) .A. 77777K *049 LM00092
TRECS = TRECS + RECS *050 LM00093
WHENEVER UFD(4) .L. OLDEST *051 LM00094
LM00095
DELETABLE FILE LM00096
LM00097
WHENEVER DONTSW *052 LM00098
WHENEVER NPNDSW, TRANSFER TO READU *053 LM00099
PRMESS.(USR(7),B1B,USR(6),B1B,UFD(7),B1B, *054 LM00100
1 UFD(6),$ NOT DELETED$) *054 LM00101
TRANSFER TO READU *055 LM00102
OR WHENEVER PRTSW *056 LM00103
PRMESS.(USR(7),B1B,USR(6),B1B,UFD(7),B1B,UFD(6),B1B, *057 LM00104
1 BZEL.(DERBC.(RECS)) ) *057 LM00105
END OF CONDITIONAL *058 LM00106
LM00107
DRECS = DRECS + RECS *059 LM00108
DCNT = DCNT + 1 *060 LM00109
LM00110
WHENEVER TESTSW, TRANSFER TO READU *061 LM00111
LM00112
ATTACH.(USR(7),USR(6),ERR2) *062 LM00113
CHFILE.(UFD(7),UFD(6),001K,MZE,MZE,NERR1) *063 LM00114
NERR1 DELFIL.(UFD(7),UFD(6),NERR2) *064 LM00115
NERR2 MODE = (UFD(3).RS.28) .V. 2K *065 LM00116
UFD(4) = (UFD(4).A.777777K) .V. TODAY *066 LM00117
SETFIL.(UFD(7),UFD(6),UFD(5),UFD(4),MODE,DEVICE,ERR3) *067 LM00118
END OF CONDITIONAL *068 LM00119
TRANSFER TO READU *069 LM00120
LM00121
EOF ON UFD ENTRY, CLOSE FILE AND CONTINUE LM00122
LM00123
EOF2 BFCLOS.(USR(7),USR(6),ERR2) *070 LM00124
TRANSFER TO READM *071 LM00125
LM00126
EOF ON MFD, FINISH UP AND QUIT LM00127
LM00128
EOF1 BFCLOS.(UF,FILE,ERR1) *072 LM00129
BAIL ATTACH.(V(2),V(1),NERR3) *073 LM00130
WHENEVER TESTSW, PRMESA.($WOULD HAVE$) *074 LM00131
PRMESS.($DELETED$,BZEL.(DERBC.(DCNT)),$ FILES$,BZEL.(DERBC. *075 LM00132
1 (DRECS)), *075 LM00133
1 $ RECS.$) *075 LM00134
PRMESS. *076 LM00135
PRMESS.(BZEL.(DERBC.(TRECS)),$ RECS IN,$,BZEL.(DERBC. *077 LM00136
1 (TRECS-DRECS)), *077 LM00137
1 $ RECS OUT,$,BZEL.(DERBC.((100*DRECS)/TRECS)),$ PCT.$) *077 LM00138
PRMESS. *078 LM00139
NERR3 CHNCOM.(0) *079 LM00140
LM00141
ERROR IN MFD, FATAL LM00142
LM00143
ERR1 PRNTER. *080 LM00144
PRMESS.($FATAL ERROR$) *081 LM00145
TRANSFER TO BAIL *082 LM00146
LM00147
ERROR IN UFD, SKIP AND CONTINUE LM00148
LM00149
ERR2 PRNTER. *083 LM00150
BFCLOS.(USR(7),USR(6),READM) *084 LM00151
TRANSFER TO READM *085 LM00152
LM00153
ERROR IN REMOVING FILE, CONTINUE LM00154
LM00155
ERR3 PRNTER. *086 LM00156
TRANSFER TO READU *087 LM00157
LM00158
END OF PROGRAM *088 LM00159
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 04224 TRANSFER VECTOR LENGTH 00024 PROGRAM BEGINS 03460
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ARG 00041 1 DEVICE 03350 1 ERR3 00032 4 NERR3 00035 4 R 03365 A 1
B1B 00042 A 1 DONTSW 03351 A 2 FENCE 03354 A 1 NPNDSW 03361 A 2 TESTSW 03366 A 2
BAIL 00025 4 DRECS 03352 A 1 FILE 03355 A 1 OLDEST 03362 1 TODAY 03367 1
BUFF1 00723 A 1 EOF1 00026 4 MFD 03356 A 1 OUT 00036 4 TRECS 03370 A 1
BUFF2 01604 A 1 EOF2 00027 4 MODE 03357 1 PRTSW 03363 A 2 UFD 03400 A 1
BUFF3 02465 A 1 EOFCT 03353 1 MZE 03360 A 1 READM 00037 4 UF 03401 A 1
BUFF4 03346 A 1 ERR1 00030 4 NERR1 00033 4 READU 00040 4 USR 03411 A 1
DCNT 03347 A 1 ERR2 00031 4 NERR2 00034 4 RECS 03364 1 V 03414 A 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1
BZEL 00005 1 CHFILE 00006 1 CHNCOM 00007 1 COMARG 00010 1 DATECV 00011 1
DATE 00012 1 DELFIL 00013 1 DERBC 00014 1 EXIT 00015 1 .SETUP 00016 1
PRMESA 00017 1 PRMESS 00020 1 PRNTER 00021 1 SETBRK 00022 1 SETFIL 00023 1
0ABSOLUTE CONSTANTS
03435 +255151465160 03436 +262163214360 03447 -204723633360 03441 -066463736060 03440 +314573606060
03451 -205125236260 03425 +000000000144 03450 -205125236233 03443 -202631432562 03433 +246060606060
03432 +242543256325 03437 +302165256060 03454 -264664432460 03427 +000000777777 03424 +000000000034
03434 +254325632524 03446 -204546636024 03452 -206060606060 03426 +000000077777 03423 +000000000022
03422 +000000000017 03444 -204401040106 03445 -204404000600 03421 +000000000007 03442 -116060606060
03455 -344547452434 03420 +000000000003 03457 -346325626334 03456 -344751456334 03417 +000000000002
03415 +000000000000 03453 -226022212433 03431 +242163256031 03416 +000000000001 03430 +233000000000
0STATEMENT DICTIONARY
00025 TXL -304101004075 00026 TXL -304075004071 00027 TXL -304070004064 00030 TXL -304202004201
00031 TXL -304207004206 00032 TXL -304215004214 00033 TXL -304041004035 00034 TXL -304047004041
00035 TXL -304201004177 00036 TXL -303471003466 00037 TXL -303603003574 00040 TXL -303676003667
0PROGRAM
N'R 001 LM00015
D'N V(2),UFD(7),USR(7) 002 LM00016
D'N BUFF1(432),BUFF2(432),BUFF3(432),BUFF4(432) 003 LM00017
V'S MFD = $M.F.D.$ 004 LM00019
03460 TSX +0 07400 4 00016 03356 -0 43326 3 32433
V'S UF = $U.F.D.$ 005 LM00020
03401 -2 43326 3 32433
V'S FILE = $(FILE)$ 006 LM00021
03355 -3 42631 4 32534
V'S TESTSW = 0B 007 LM00022
03366 +0 00000 0 00000
V'S NPNDSW = 0B 008 LM00023
03361 +0 00000 0 00000
V'S TRECS = 0 009 LM00024
03370 +0 00000 0 00000
V'S DRECS = 0 010 LM00025
03352 +0 00000 0 00000
V'S DCNT = 0 011 LM00026
03347 +0 00000 0 00000
V'S DONTSW = 0B 012 LM00027
03351 +0 00000 0 00000
V'S PRTSW = 0B 013 LM00028
03363 +0 00000 0 00000
V'S B1B = 60 5757575757K 014 LM00029
00042 -2 05757 5 75757
V'S R = 432 015 LM00031
03365 +0 00000 0 00660
V'S MZE = 4K11 016 LM00032
03360 -0 00000 0 00000
V'S FENCE = 777777777777K 017 LM00033
03354 -3 77777 7 77777
W'R COMARG.(1,OLDEST) .E. FENCE 018 LM00038
03461 TSX +0 07400 4 00010 03462 TXH +3 00000 0 03416 03463 TXH +3 00000 0 03362 03464 SUB +0 40200 0 03354
03465 TNZ -0 10000 0 03473
OUT PRMESS.($DATE IS BAD.$) 019 LM00039
03466 TSX +0 07400 4 00020 03467 TXH +3 00000 0 03431 03470 TXH +3 00000 0 03453
CHNCOM.(0) 020 LM00040
03471 TSX +0 07400 4 00007 03472 TXH +3 00000 0 03415
E'L 021 LM00041
W'R COMARG.(2,ARG) .E. $(PRNT)$ 022 LM00042
03473 TSX +0 07400 4 00010 03474 TXH +3 00000 0 03417 03475 TXH +3 00000 0 00041 03476 SUB +0 40200 0 03456
03477 TNZ -0 10000 0 03503
PRTSW = 1B 023 LM00043
03500 CLA +0 50000 0 03416 03501 STO +0 60100 0 03363
O'R ARG .E. $(TEST)$ 024 LM00044
03502 TRA +0 02000 0 03512 03503 CLA +0 50000 0 00041 03504 SUB +0 40200 0 03457 03505 TNZ -0 10000 0 03512
PRTSW = 1B 025 LM00045
03506 CLA +0 50000 0 03416 03507 STO +0 60100 0 03363
TESTSW = 1B 026 LM00046
03510 CLA +0 50000 0 03416 03511 STO +0 60100 0 03366
E'L 027 LM00047
W'R COMARG.(3,ARG) .E. $(NPND)$, NPNDSW = 1B 028 LM00048
03512 TSX +0 07400 4 00010 03513 TXH +3 00000 0 03420 03514 TXH +3 00000 0 00041 03515 SUB +0 40200 0 03455
03516 TNZ -0 10000 0 03521 03517 CLA +0 50000 0 03416 03520 STO +0 60100 0 03361
SETBRK.(EOF1) 029 LM00049
03521 TSX +0 07400 4 00022 03522 TXH +3 00000 0 00026
OLDEST = DATECV.(OLDEST,OUT) 030 LM00050
03523 TSX +0 07400 4 00011 03524 TXH +3 00000 0 03362 03525 TXH +3 00000 0 00036 03526 STO +0 60100 0 03362
TODAY = DATECV.(DATE.(0),OUT) 031 LM00051
03527 TSX +0 07400 4 00012 03530 TXH +3 00000 0 03415 03531 STO +0 60100 0 04217 03532 TSX +0 07400 4 00011
03533 TXH +3 00000 0 04217 03534 TXH +3 00000 0 00036 03535 STO +0 60100 0 03367
ATTNAM.(V(2)...2,NERR3) 032 LM00055
03536 TSX +0 07400 4 00001 03537 TIX +2 03417 0 03412 03540 TXH +3 00000 0 00035
ATTACH.(MFD,FILE,ERR1) 033 LM00056
03541 TSX +0 07400 4 00000 03542 TXH +3 00000 0 03356 03543 TXH +3 00000 0 03355 03544 TXH +3 00000 0 00030
BFOPEN.($R$,UF,FILE,BUFF1(R),BUFF2(R),MZE,ERR1) 034 LM00060
03545 CLA +0 50000 0 03365 03546 SUB +0 40200 0 03547 03547 TXH +3 00000 0 01604 03550 STA +0 62100 0 03562
03551 CLA +0 50000 0 03365 03552 SUB +0 40200 0 03553 03553 TXH +3 00000 0 00723 03554 STA +0 62100 0 03561
03555 TSX +0 07400 4 00003 03556 TXH +3 00000 0 03442 03557 TXH +3 00000 0 03401 03560 TXH +3 00000 0 03355
03561 TXH +3 00000 0 00000 03562 TXH +3 00000 0 00000 03563 TXH +3 00000 0 03360 03564 TXH +3 00000 0 00030
BFREAD.(UF,FILE,USR(3)...3,EOF1,EOFCT,ERR1) 035 LM00061
03565 TSX +0 07400 4 00004 03566 TXH +3 00000 0 03401 03567 TXH +3 00000 0 03355 03570 TIX +2 03420 0 03406
03571 TXH +3 00000 0 00026 03572 TXH +3 00000 0 03353 03573 TXH +3 00000 0 00030
READM BFREAD.(UF,FILE,USR(7)...7,EOF1,EOFCT,ERR1) 036 LM00063
03574 TSX +0 07400 4 00004 03575 TXH +3 00000 0 03401 03576 TXH +3 00000 0 03355 03577 TIX +2 03421 0 03402
03600 TXH +3 00000 0 00026 03601 TXH +3 00000 0 03353 03602 TXH +3 00000 0 00030
W'R ((USR(7).E.0).AND.(USR(6).E.0)).OR. 037 LM00064
1 (USR(7).E.MFD).OR.(USR(6).E.FILE), T'O READM 037 LM00065
03603 CLA +0 50000 0 03403 03604 SUB +0 40200 0 03355 03605 TZE +0 10000 0 03620 03606 CLA +0 50000 0 03402
03607 SUB +0 40200 0 03356 03610 TZE +0 10000 0 03620 03611 CLA +0 50000 0 03403 03612 SUB +0 40200 0 03415
03613 TNZ -0 10000 0 03617 03614 CLA +0 50000 0 03402 03615 SUB +0 40200 0 03415 03616 TZE +0 10000 0 03620
03617 TRA +0 02000 0 03621 03620 TRA +0 02000 0 00037
ATTACH.(MFD,FILE,ERR1) 038 LM00070
03621 TSX +0 07400 4 00000 03622 TXH +3 00000 0 03356 03623 TXH +3 00000 0 03355 03624 TXH +3 00000 0 00030
BFOPEN.($R$,USR(7),USR(6),BUFF3(R),BUFF4(R),MZE,ERR2) 039 LM00071
03625 CLA +0 50000 0 03365 03626 SUB +0 40200 0 03627 03627 TXH +3 00000 0 03346 03630 STA +0 62100 0 03642
03631 CLA +0 50000 0 03365 03632 SUB +0 40200 0 03633 03633 TXH +3 00000 0 02465 03634 STA +0 62100 0 03641
03635 TSX +0 07400 4 00003 03636 TXH +3 00000 0 03442 03637 TXH +3 00000 0 03402 03640 TXH +3 00000 0 03403
03641 TXH +3 00000 0 00000 03642 TXH +3 00000 0 00000 03643 TXH +3 00000 0 03360 03644 TXH +3 00000 0 00031
BFREAD.(USR(7),USR(6),UFD(3)...3,EOF2,EOFCT,ERR2) 040 LM00072
03645 TSX +0 07400 4 00004 03646 TXH +3 00000 0 03402 03647 TXH +3 00000 0 03403 03650 TIX +2 03420 0 03375
03651 TXH +3 00000 0 00027 03652 TXH +3 00000 0 03353 03653 TXH +3 00000 0 00031
W'R USR(7) .E. $ M1416$ 041 LM00076
1 .OR. USR(7) .E. $ M4060$ 041 LM00077
03654 CLA +0 50000 0 03402 03655 SUB +0 40200 0 03445 03656 TZE +0 10000 0 03662 03657 CLA +0 50000 0 03402
03660 SUB +0 40200 0 03444 03661 TNZ -0 10000 0 03665
DONTSW = 1B 042 LM00078
03662 CLA +0 50000 0 03416 03663 STO +0 60100 0 03351
O'E 043 LM00079
03664 TRA +0 02000 0 03667
DONTSW = 0B 044 LM00080
03665 CLA +0 50000 0 03415 03666 STO +0 60100 0 03351
E'L 045 LM00081
READU BFREAD.(USR(7),USR(6),UFD(7)...7,EOF2,EOFCT,ERR2) 046 LM00084
03667 TSX +0 07400 4 00004 03670 TXH +3 00000 0 03402 03671 TXH +3 00000 0 03403 03672 TIX +2 03421 0 03371
03673 TXH +3 00000 0 00027 03674 TXH +3 00000 0 03353 03675 TXH +3 00000 0 00031
DEVICE = (UFD(3).RS.15).A.7K 047 LM00085
03676 CAL -0 50000 0 03422 03677 STA +0 62100 0 03701 03700 CAL -0 50000 0 03375 03701 LGR -0 76500 0 00000
03702 ANA -0 32000 0 03421 03703 SLW +0 60200 0 03350
W'R ((UFD(7).E.0).AND.(UFD(6).E.0)).OR. 048 LM00086
1 (DEVICE.NE.2).OR.(((UFD(2).RS.18).A.77777K).E.0), 048 LM00087
2 T'O READU 048 LM00088
03704 CAL -0 50000 0 03423 03705 STA +0 62100 0 03707 03706 CAL -0 50000 0 03376 03707 LGR -0 76500 0 00000
03710 ANA -0 32000 0 03426 03711 SLW +0 60200 0 04217 03712 CLA +0 50000 0 04217 03713 SUB +0 40200 0 03415
03714 TZE +0 10000 0 03727 03715 CLA +0 50000 0 03350 03716 SUB +0 40200 0 03417 03717 TNZ -0 10000 0 03727
03720 CLA +0 50000 0 03372 03721 SUB +0 40200 0 03415 03722 TNZ -0 10000 0 03726 03723 CLA +0 50000 0 03371
03724 SUB +0 40200 0 03415 03725 TZE +0 10000 0 03727 03726 TRA +0 02000 0 03730 03727 TRA +0 02000 0 00040
RECS = (UFD(2) .RS. 18) .A. 77777K 049 LM00092
03730 CAL -0 50000 0 03423 03731 STA +0 62100 0 03733 03732 CAL -0 50000 0 03376 03733 LGR -0 76500 0 00000
03734 ANA -0 32000 0 03426 03735 SLW +0 60200 0 03364
TRECS = TRECS + RECS 050 LM00093
03736 CLA +0 50000 0 03370 03737 ADD +0 40000 0 03364 03740 STO +0 60100 0 03370
W'R UFD(4) .L. OLDEST 051 LM00094
03741 CLA +0 50000 0 03374 03742 SUB +0 40200 0 03362 03743 TZE +0 10000 0 04063 03744 TPL +0 12000 0 04063
W'R DONTSW 052 LM00098
03745 NZT -0 52000 0 03351 03746 TRA +0 02000 0 03767
W'R NPNDSW, T'O READU 053 LM00099
03747 NZT -0 52000 0 03361 03750 TRA +0 02000 0 03752 03751 TRA +0 02000 0 00040
PRMESS.(USR(7),B1B,USR(6),B1B,UFD(7),B1B, 054 LM00100
1 UFD(6),$ NOT DELETED$) 054 LM00101
03752 TSX +0 07400 4 00020 03753 TXH +3 00000 0 03402 03754 TXH +3 00000 0 00042 03755 TXH +3 00000 0 03403
03756 TXH +3 00000 0 00042 03757 TXH +3 00000 0 03371 03760 TXH +3 00000 0 00042 03761 TXH +3 00000 0 03372
03762 TXH +3 00000 0 03452 03763 TXH +3 00000 0 03446 03764 TXH +3 00000 0 03434
T'O READU 055 LM00102
03765 TRA +0 02000 0 00040
O'R PRTSW 056 LM00103
03766 TRA +0 02000 0 04011 03767 NZT -0 52000 0 03363 03770 TRA +0 02000 0 04011
PRMESS.(USR(7),B1B,USR(6),B1B,UFD(7),B1B,UFD(6),B1B, 057 LM00104
1 BZEL.(DERBC.(RECS)) ) 057 LM00105
03771 TSX +0 07400 4 00014 03772 TXH +3 00000 0 03364 03773 STO +0 60100 0 04217 03774 TSX +0 07400 4 00005
03775 TXH +3 00000 0 04217 03776 STO +0 60100 0 04217 03777 TSX +0 07400 4 00020 04000 TXH +3 00000 0 03402
04001 TXH +3 00000 0 00042 04002 TXH +3 00000 0 03403 04003 TXH +3 00000 0 00042 04004 TXH +3 00000 0 03371
04005 TXH +3 00000 0 00042 04006 TXH +3 00000 0 03372 04007 TXH +3 00000 0 00042 04010 TXH +3 00000 0 04217
E'L 058 LM00106
DRECS = DRECS + RECS 059 LM00108
04011 CLA +0 50000 0 03352 04012 ADD +0 40000 0 03364 04013 STO +0 60100 0 03352
DCNT = DCNT + 1 060 LM00109
04014 CLA +0 50000 0 03347 04015 ADD +0 40000 0 03416 04016 STO +0 60100 0 03347
W'R TESTSW, T'O READU 061 LM00111
04017 NZT -0 52000 0 03366 04020 TRA +0 02000 0 04022 04021 TRA +0 02000 0 00040
ATTACH.(USR(7),USR(6),ERR2) 062 LM00113
04022 TSX +0 07400 4 00000 04023 TXH +3 00000 0 03402 04024 TXH +3 00000 0 03403 04025 TXH +3 00000 0 00031
CHFILE.(UFD(7),UFD(6),001K,MZE,MZE,NERR1) 063 LM00114
04026 TSX +0 07400 4 00006 04027 TXH +3 00000 0 03371 04030 TXH +3 00000 0 03372 04031 TXH +3 00000 0 03416
04032 TXH +3 00000 0 03360 04033 TXH +3 00000 0 03360 04034 TXH +3 00000 0 00033
NERR1 DELFIL.(UFD(7),UFD(6),NERR2) 064 LM00115
04035 TSX +0 07400 4 00013 04036 TXH +3 00000 0 03371 04037 TXH +3 00000 0 03372 04040 TXH +3 00000 0 00034
NERR2 MODE = (UFD(3).RS.28) .V. 2K 065 LM00116
04041 CAL -0 50000 0 03424 04042 STA +0 62100 0 04044 04043 CAL -0 50000 0 03375 04044 LGR -0 76500 0 00000
04045 ORA -0 50100 0 03417 04046 SLW +0 60200 0 03357
UFD(4) = (UFD(4).A.777777K) .V. TODAY 066 LM00117
04047 CAL -0 50000 0 03374 04050 ANA -0 32000 0 03427 04051 ORA -0 50100 0 03367 04052 SLW +0 60200 0 03374
SETFIL.(UFD(7),UFD(6),UFD(5),UFD(4),MODE,DEVICE,ERR3) 067 LM00118
04053 TSX +0 07400 4 00023 04054 TXH +3 00000 0 03371 04055 TXH +3 00000 0 03372 04056 TXH +3 00000 0 03373
04057 TXH +3 00000 0 03374 04060 TXH +3 00000 0 03357 04061 TXH +3 00000 0 03350 04062 TXH +3 00000 0 00032
E'L 068 LM00119
T'O READU 069 LM00120
04063 TRA +0 02000 0 00040
EOF2 BFCLOS.(USR(7),USR(6),ERR2) 070 LM00124
04064 TSX +0 07400 4 00002 04065 TXH +3 00000 0 03402 04066 TXH +3 00000 0 03403 04067 TXH +3 00000 0 00031
T'O READM 071 LM00125
04070 TRA +0 02000 0 00037
EOF1 BFCLOS.(UF,FILE,ERR1) 072 LM00129
04071 TSX +0 07400 4 00002 04072 TXH +3 00000 0 03401 04073 TXH +3 00000 0 03355 04074 TXH +3 00000 0 00030
BAIL ATTACH.(V(2),V(1),NERR3) 073 LM00130
04075 TSX +0 07400 4 00000 04076 TXH +3 00000 0 03412 04077 TXH +3 00000 0 03413 04100 TXH +3 00000 0 00035
W'R TESTSW, PRMESA.($WOULD HAVE$) 074 LM00131
04101 NZT -0 52000 0 03366 04102 TRA +0 02000 0 04106 04103 TSX +0 07400 4 00017 04104 TXH +3 00000 0 03454
04105 TXH +3 00000 0 03437
PRMESS.($DELETED$,BZEL.(DERBC.(DCNT)),$ FILES$,BZEL.(DERBC. 075 LM00132
1 (DRECS)), 075 LM00133
1 $ RECS.$) 075 LM00134
04106 TSX +0 07400 4 00014 04107 TXH +3 00000 0 03352 04110 STO +0 60100 0 04217 04111 TSX +0 07400 4 00005
04112 TXH +3 00000 0 04217 04113 STO +0 60100 0 04217 04114 TSX +0 07400 4 00014 04115 TXH +3 00000 0 03347
04116 STO +0 60100 0 04220 04117 TSX +0 07400 4 00005 04120 TXH +3 00000 0 04220 04121 STO +0 60100 0 04220
04122 TSX +0 07400 4 00020 04123 TXH +3 00000 0 03432 04124 TXH +3 00000 0 03433 04125 TXH +3 00000 0 04220
04126 TXH +3 00000 0 03443 04127 TXH +3 00000 0 04217 04130 TXH +3 00000 0 03450
PRMESS. 076 LM00135
04131 TSX +0 07400 4 00020
PRMESS.(BZEL.(DERBC.(TRECS)),$ RECS IN,$,BZEL.(DERBC. 077 LM00136
1 (TRECS-DRECS)), 077 LM00137
1 $ RECS OUT,$,BZEL.(DERBC.((100*DRECS)/TRECS)),$ PCT.$) 077 LM00138
04132 LDQ +0 56000 0 03425 04133 MPY +0 20000 0 03352 04134 PXD -0 75400 0 00000 04135 LLS +0 76300 0 00000
04136 DVP +0 22100 0 03370 04137 STQ -0 60000 0 04220 04140 TSX +0 07400 4 00014 04141 TXH +3 00000 0 04220
04142 STO +0 60100 0 04220 04143 TSX +0 07400 4 00005 04144 TXH +3 00000 0 04220 04145 STO +0 60100 0 04220
04146 CLA +0 50000 0 03370 04147 SUB +0 40200 0 03352 04150 STO +0 60100 0 04217 04151 TSX +0 07400 4 00014
04152 TXH +3 00000 0 04217 04153 STO +0 60100 0 04217 04154 TSX +0 07400 4 00005 04155 TXH +3 00000 0 04217
04156 STO +0 60100 0 04217 04157 TSX +0 07400 4 00014 04160 TXH +3 00000 0 03370 04161 STO +0 60100 0 04221
04162 TSX +0 07400 4 00005 04163 TXH +3 00000 0 04221 04164 STO +0 60100 0 04221 04165 TSX +0 07400 4 00020
04166 TXH +3 00000 0 04221 04167 TXH +3 00000 0 03451 04170 TXH +3 00000 0 03440 04171 TXH +3 00000 0 04217
04172 TXH +3 00000 0 03451 04173 TXH +3 00000 0 03441 04174 TXH +3 00000 0 04220 04175 TXH +3 00000 0 03447
PRMESS. 078 LM00139
04176 TSX +0 07400 4 00020
NERR3 CHNCOM.(0) 079 LM00140
04177 TSX +0 07400 4 00007 04200 TXH +3 00000 0 03415
ERR1 PRNTER. 080 LM00144
04201 TSX +0 07400 4 00021
PRMESS.($FATAL ERROR$) 081 LM00145
04202 TSX +0 07400 4 00020 04203 TXH +3 00000 0 03436 04204 TXH +3 00000 0 03435
T'O BAIL 082 LM00146
04205 TRA +0 02000 0 00025
ERR2 PRNTER. 083 LM00150
04206 TSX +0 07400 4 00021
BFCLOS.(USR(7),USR(6),READM) 084 LM00151
04207 TSX +0 07400 4 00002 04210 TXH +3 00000 0 03402 04211 TXH +3 00000 0 03403 04212 TXH +3 00000 0 00037
T'O READM 085 LM00152
04213 TRA +0 02000 0 00037
ERR3 PRNTER. 086 LM00156
04214 TSX +0 07400 4 00021
T'O READU 087 LM00157
04215 TRA +0 02000 0 00040
E'M 088 LM00159
04216 TSX +0 07400 4 00015
1 PAGE 1
RETRIEVE VERSION OF .SETUP
BINARY CARD NO. .SETUP00
00004 ENTRY .SETUP
EXTERN GETIME,CDATE
THIS ROUTINE IS CALLED IMPLICITLY BY (MAIN)
IT'S ONLY FUNCTION IS TO GIVE THE CURRENT DATE
TO THE 'RLIBE' MODULE
THIS VERSION IS USED IN THE FOREGROUND RETRIEVES
D.R. WIDRIG DEC. 1965
TRANSFER VECTOR
BINARY CARD NO. .SETUP01
00000 272563314425 GETIME
00001 232421632560 CDATE
LINKAGE DIRECTOR
00002 000000000000
00003 336225636447
00004 0634 00 4 00012 .SETUP SXA IR4,4 SAVE CALLER
00005 0760 00 0 00016 LMTM 7-TAG MODE
00006 0074 00 4 00000 TSX GETIME,4 GET CURRENT DATE
00007 -0600 00 0 00014 STQ DATE SAVE IT
00010 0074 00 4 00001 TSX CDATE,4 GIVE DATE TO CONVERSION PACKAGE
00011 3 00000 0 00014 PTH DATE
00012 0774 00 4 00000 IR4 AXT **,4 RESTORE IR4
00013 0020 00 4 00001 TRA 1,4 RETURN TO MAIN PROGRAM
00014 0 00000 0 00000 DATE PZE
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
15 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
12 IR4 4
14 DATE 7, 11
1 CDATE 10
0 GETIME 6
4 .SETUP 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE RLIBE MAD 02/15/68 1740.5
-
TIME/DATE CONVERTERS, ALSO PROBNO/PROGNO CONVERTERS LM00001
THIS PROGRAM MUST BE EDITED AND RE-COMPILED WHEN LM00002
THE NEW 'LOGIN' (PSN 50) TAKES EFFECT LM00003
D.R. WIDRIG DEC. 1965 LM00004
LM00005
EXTERNAL FUNCTION (X1,Y) *001 LM00006
NORMAL MODE IS INTEGER *002 LM00007
STATEMENT LABEL Y *003 LM00008
LM00009
VECTOR VALUES MESS1 = $ILLEGA******.....$,0,777777777777K *004 LM00010
LM00011
VECTOR VALUES DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31 *005 LM00012
VECTOR VALUES DMASK = 766074607170K *006 LM00013
VECTOR VALUES TMASK = 777774607060K *007 LM00014
VECTOR VALUES PMASK = 776060606060K *008 LM00015
LM00016
GET CURRENT DATE LM00017
LM00018
ENTRY TO CDATE. *009 LM00019
DATNOW = X1 *010 LM00020
MONTH = BCDEC.(DATNOW.RS.24) *011 LM00021
DAY = BCDEC.((DATNOW.RS.12).A.7777K) *012 LM00022
YEAR = BCDEC.(DATNOW.A.7777K) *013 LM00023
FUNCTION RETURN *014 LM00024
LM00025
RETURN CURRENT DATE AS MMDDYY LM00026
LM00027
ENTRY TO DATE. *015 LM00028
FUNCTION RETURN DATNOW *016 LM00029
LM00030
CONVERT BCD DATE TO I/O FORMAT LM00031
LM00032
ENTRY TO DATECV. *017 LM00033
MESS1(1) = $L DATE$ *018 LM00034
DELTA = 0 *019 LM00035
X = ZEL.(X1) *020 LM00036
WHENEVER (X.A.DMASK) .NE. 0, TRANSFER TO BAD *021 LM00037
MM = BCDEC.(X.RS.24) *022 LM00038
DD = BCDEC.((X.RS.12).A.7777K) *023 LM00039
YY = BCDEC.(X.A.7777K) *024 LM00040
WHENEVER ((YY/4)*4.E.YY).AND.(MM.E.2), DELTA = 1 *025 LM00041
WHENEVER (MM.G.12).OR.(MM.E.0).OR. *026 LM00042
1 (DD.G.(DAYS(MM)+DELTA)).OR.(YY.G.YEAR).OR. *026 LM00043
2 ((YEAR-YY).G.1).OR.((YY.E.YEAR).AND.(MM.G.MONTH)).OR. *026 LM00044
3 ((YY.E.YEAR).AND.(MM.E.MONTH).AND.(DD.G.DAY)) *026 LM00045
4 , TRANSFER TO BAD *026 LM00046
FUNCTION RETURN (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) *027 LM00047
LM00048
BAD MESS1(3) = X *028 LM00049
PRNTP.(MESS1) *029 LM00050
TRANSFER TO Y *030 LM00051
LM00052
CONVERT I/O DATE TO BCD LM00053
LM00054
ENTRY TO CVDATE. *031 LM00055
D = X1.RS.18 *032 LM00056
FUNCTION RETURN (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K) *033 LM00057
1 .LS.24).V.(DERBC.((D.RS.9).A.377K)) *033 LM00058
LM00059
CONVERT TIME TO I/O FORMAT LM00060
LM00061
ENTRY TO TIMECV. *034 LM00062
MESS1(1) = $L TIME$ *035 LM00063
X = ZEL.(X1) *036 LM00064
WHENEVER (X.A.TMASK) .NE. 0, TRANSFER TO BAD *037 LM00065
HH = BCDEC.((X.RS.12).A.7777K) *038 LM00066
MM = BCDEC.(X.A.7777K) *039 LM00067
WHENEVER (HH.G.23).OR.(MM.G.59), TRANSFER TO BAD *040 LM00068
FUNCTION RETURN HH*3600+MM*60 *041 LM00069
LM00070
CONVERT I/O TIME TO BCD LM00071
LM00072
ENTRY TO CVTIME. *042 LM00073
D = X1.A.777777K *043 LM00074
HH = D/3600 *044 LM00075
FUNCTION RETURN ((DERBC.(HH).LS.12).V. *045 LM00076
1 (DERBC.((D-HH*3600)/60)).V.$ 0000$) *045 LM00077
LM00078
CHECK VALIDITY OF PROGNO LM00079
LM00080
ENTRY TO PROGN. *046 LM00081
MESS1(1) = $L PRGN$ *047 LM00082
X = X1 *048 LM00083
WHENEVER (ZEL.(X).A.PMASK) .E. 0, FUNCTION RETURN X *049 LM00084
WHENEVER (X.A.777777776060K).E. $CMFL00$, FUNCTION RETURN X *050 LM00085
TRANSFER TO BAD *051 LM00086
LM00087
REDUCE PROBNO TO STANDARD FORM LM00088
LM00089
ENTRY TO PROBN. *052 LM00090
MESS1(1) = $L PRBN$ *053 LM00091
X = X1 *054 LM00092
WHENEVER (X.A.60K).NE.0, TRANSFER TO BAD *055 LM00093
THROUGH LOOP1, FOR I=6,6,I.E.30 *056 LM00094
WHENEVER (((X.RS.I).A.60K).NE.0), *057 LM00095
1 FUNCTION RETURN BZEL.((((X.RS.I).A.77K).LS.24).V. *057 LM00096
2 ((77777777K.RS.(24-I)).A.X)) *057 LM00097
LOOP1 CONTINUE *058 LM00098
TRANSFER TO BAD *059 LM00099
LM00100
END OF FUNCTION *060 LM00101
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00713 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00111
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
PROBN 00574 0 PROGN 00541 0 CVTIME 00477 0 TIMECV 00420 0 CVDATE 00342 0
DATECV 00154 0 DATE 00147 0 CDATE 00112 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BAD 00007 4 DD 00027 1 HH 00033 1 MM 00042 1 X 00046 1
DATNOW 00010 1 DELTA 00030 1 I 00034 1 MONTH 00043 1 YEAR 00047 1
DAY 00011 1 DMASK 00031 A 1 LOOP1 00006 4 PMASK 00044 A 1 YY 00050 1
DAYS 00026 A 1 D 00032 1 MESS1 00041 A 1 TMASK 00045 A 1
0FUNCTION DICTIONARY
BCDEC 00000 1 BZEL 00001 1 DERBC 00002 1 EXIT 00003 1 PRNTP 00004 1
ZEL 00005 1
0ABSOLUTE CONSTANTS
00073 +000000000077 00100 +000077777777 00066 +000000000036 00056 +000000000006 00070 +000000000060
00104 -036047512245 00102 +234426430000 00110 -377777776060 00105 -036047512745 00107 -206000000000
00077 +000000777777 00075 +000000007020 00072 +000000000074 00071 +000000000073 00106 -036063314425
00067 +000000000037 00061 +000000000017 00055 +000000000005 00074 +000000000377 00057 +000000000011
00065 +000000000033 00063 +000000000027 00062 +000000000022 00054 +000000000004 00053 +000000000002
00051 +000000000000 00103 -036024216325 00076 +000000007777 00060 +000000000014 00064 +000000000030
00052 +000000000001 00101 +233000000000
0STATEMENT DICTIONARY
00007 TXL -300336000334
0PROGRAM
EXTERNAL FUNCTION (X1,Y) 001 LM00006
N'R 002 LM00007
S'L Y 003 LM00008
V'S MESS1 = $ILLEGA******.....$,0,777777777777K 004 LM00010
00035 -3 77777 7 77777 00036 +0 00000 0 00000 00037 +3 33333 3 33360 00040 -1 45454 5 45454
00041 +3 14343 2 52721
V'S DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31 005 LM00012
00012 +0 00000 0 00037 00013 +0 00000 0 00036 00014 +0 00000 0 00037 00015 +0 00000 0 00036
00016 +0 00000 0 00037 00017 +0 00000 0 00037 00020 +0 00000 0 00036 00021 +0 00000 0 00037
00022 +0 00000 0 00036 00023 +0 00000 0 00037 00024 +0 00000 0 00034 00025 +0 00000 0 00037
V'S DMASK = 766074607170K 006 LM00013
00031 -3 66074 6 07170
V'S TMASK = 777774607060K 007 LM00014
00045 -3 77774 6 07060
V'S PMASK = 776060606060K 008 LM00015
00044 -3 76060 6 06060
E'O CDATE. 009 LM00019
00111 TRA +0 02000 0 00114 00112 SXA +0 63400 2 00664 00113 TSX +0 07400 2 00664
DATNOW = X1 010 LM00020
00114 CLA +0 50000 0 00024 00115 STO +0 60100 0 00010
MONTH = BCDEC.(DATNOW.RS.24) 011 LM00021
00116 CAL -0 50000 0 00064 00117 STA +0 62100 0 00121 00120 CAL -0 50000 0 00010 00121 LGR -0 76500 0 00000
00122 SLW +0 60200 0 00706 00123 TSX +0 07400 4 00000 00124 TXH +3 00000 0 00706 00125 STO +0 60100 0 00043
DAY = BCDEC.((DATNOW.RS.12).A.7777K) 012 LM00022
00126 CAL -0 50000 0 00060 00127 STA +0 62100 0 00131 00130 CAL -0 50000 0 00010 00131 LGR -0 76500 0 00000
00132 ANA -0 32000 0 00076 00133 SLW +0 60200 0 00706 00134 TSX +0 07400 4 00000 00135 TXH +3 00000 0 00706
00136 STO +0 60100 0 00011
YEAR = BCDEC.(DATNOW.A.7777K) 013 LM00023
00137 CAL -0 50000 0 00010 00140 ANA -0 32000 0 00076 00141 SLW +0 60200 0 00706 00142 TSX +0 07400 4 00000
00143 TXH +3 00000 0 00706 00144 STO +0 60100 0 00047
F'N 014 LM00024
00145 TRA +0 02000 0 00702
E'O DATE. 015 LM00028
00146 TRA +0 02000 0 00151 00147 SXA +0 63400 2 00664 00150 TSX +0 07400 2 00664
F'N DATNOW 016 LM00029
00151 CLA +0 50000 0 00010 00152 TRA +0 02000 0 00702
E'O DATECV. 017 LM00033
00153 TRA +0 02000 0 00156 00154 SXA +0 63400 2 00664 00155 TSX +0 07400 2 00664
MESS1(1) = $L DATE$ 018 LM00034
00156 CLA +0 50000 0 00103 00157 STO +0 60100 0 00040
DELTA = 0 019 LM00035
00160 CLA +0 50000 0 00051 00161 STO +0 60100 0 00030
X = ZEL.(X1) 020 LM00036
00162 TSX +0 07400 4 00005 00163 TXH +3 00000 0 00024 00164 STO +0 60100 0 00046
W'R (X.A.DMASK) .NE. 0, T'O BAD 021 LM00037
00165 CAL -0 50000 0 00046 00166 ANA -0 32000 0 00031 00167 SLW +0 60200 0 00706 00170 CLA +0 50000 0 00706
00171 SUB +0 40200 0 00051 00172 TZE +0 10000 0 00174 00173 TRA +0 02000 0 00007
MM = BCDEC.(X.RS.24) 022 LM00038
00174 CAL -0 50000 0 00064 00175 STA +0 62100 0 00177 00176 CAL -0 50000 0 00046 00177 LGR -0 76500 0 00000
00200 SLW +0 60200 0 00706 00201 TSX +0 07400 4 00000 00202 TXH +3 00000 0 00706 00203 STO +0 60100 0 00042
DD = BCDEC.((X.RS.12).A.7777K) 023 LM00039
00204 CAL -0 50000 0 00060 00205 STA +0 62100 0 00207 00206 CAL -0 50000 0 00046 00207 LGR -0 76500 0 00000
00210 ANA -0 32000 0 00076 00211 SLW +0 60200 0 00706 00212 TSX +0 07400 4 00000 00213 TXH +3 00000 0 00706
00214 STO +0 60100 0 00027
YY = BCDEC.(X.A.7777K) 024 LM00040
00215 CAL -0 50000 0 00046 00216 ANA -0 32000 0 00076 00217 SLW +0 60200 0 00706 00220 TSX +0 07400 4 00000
00221 TXH +3 00000 0 00706 00222 STO +0 60100 0 00050
W'R ((YY/4)*4.E.YY).AND.(MM.E.2), DELTA = 1 025 LM00041
00223 CLA +0 50000 0 00042 00224 SUB +0 40200 0 00053 00225 TNZ -0 10000 0 00240 00226 LDQ +0 56000 0 00050
00227 PXD -0 75400 0 00000 00230 LLS +0 76300 0 00000 00231 DVP +0 22100 0 00054 00232 MPY +0 20000 0 00054
00233 XCA +0 13100 0 00000 00234 SUB +0 40200 0 00050 00235 TNZ -0 10000 0 00240 00236 CLA +0 50000 0 00052
00237 STO +0 60100 0 00030
W'R (MM.G.12).OR.(MM.E.0).OR. 026 LM00042
1 (DD.G.(DAYS(MM)+DELTA)).OR.(YY.G.YEAR).OR. 026 LM00043
2 ((YEAR-YY).G.1).OR.((YY.E.YEAR).AND.(MM.G.MONTH)).OR. 026 LM00044
3 ((YY.E.YEAR).AND.(MM.E.MONTH).AND.(DD.G.DAY)) 026 LM00045
4 , T'O BAD 026 LM00046
00240 CLA +0 50000 0 00027 00241 SUB +0 40200 0 00011 00242 TZE +0 10000 0 00252 00243 TMI -0 12000 0 00252
00244 CLA +0 50000 0 00042 00245 SUB +0 40200 0 00043 00246 TNZ -0 10000 0 00252 00247 CLA +0 50000 0 00050
00250 SUB +0 40200 0 00047 00251 TZE +0 10000 0 00310 00252 CLA +0 50000 0 00042 00253 SUB +0 40200 0 00043
00254 TZE +0 10000 0 00261 00255 TMI -0 12000 0 00261 00256 CLA +0 50000 0 00050 00257 SUB +0 40200 0 00047
00260 TZE +0 10000 0 00310 00261 CLA +0 50000 0 00047 00262 SUB +0 40200 0 00050 00263 SUB +0 40200 0 00052
00264 TZE +0 10000 0 00266 00265 TPL +0 12000 0 00310 00266 CLA +0 50000 0 00050 00267 SUB +0 40200 0 00047
00270 TZE +0 10000 0 00272 00271 TPL +0 12000 0 00310 00272 LXA +0 53400 1 00042 00273 CLA +0 50000 1 00026
00274 ADD +0 40000 0 00030 00275 CHS +0 76000 0 00002 00276 ADD +0 40000 0 00027 00277 TZE +0 10000 0 00301
00300 TPL +0 12000 0 00310 00301 CLA +0 50000 0 00042 00302 SUB +0 40200 0 00051 00303 TZE +0 10000 0 00310
00304 CLA +0 50000 0 00042 00305 SUB +0 40200 0 00060 00306 TZE +0 10000 0 00311 00307 TMI -0 12000 0 00311
00310 TRA +0 02000 0 00007
F'N (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) 027 LM00047
00311 CAL -0 50000 0 00062 00312 STA +0 62100 0 00314 00313 CAL -0 50000 0 00027 00314 ALS +0 76700 0 00000
00315 SLW +0 60200 0 00706 00316 CAL -0 50000 0 00063 00317 STA +0 62100 0 00321 00320 CAL -0 50000 0 00042
00321 ALS +0 76700 0 00000 00322 SLW +0 60200 0 00707 00323 CAL -0 50000 0 00065 00324 STA +0 62100 0 00326
00325 CAL -0 50000 0 00050 00326 ALS +0 76700 0 00000 00327 ORA -0 50100 0 00707 00330 ORA -0 50100 0 00706
00331 SLW +0 60200 0 00707 00332 CLA +0 50000 0 00707 00333 TRA +0 02000 0 00702
BAD MESS1(3) = X 028 LM00049
00334 CLA +0 50000 0 00046 00335 STO +0 60100 0 00036
PRNTP.(MESS1) 029 LM00050
00336 TSX +0 07400 4 00004 00337 TXH +3 00000 0 00041
T'O Y 030 LM00051
00340 TRA +0 02000 0 00024
E'O CVDATE. 031 LM00055
00341 TRA +0 02000 0 00344 00342 SXA +0 63400 2 00664 00343 TSX +0 07400 2 00664
D = X1.RS.18 032 LM00056
00344 CAL -0 50000 0 00062 00345 STA +0 62100 0 00347 00346 CAL -0 50000 0 00024 00347 LGR -0 76500 0 00000
00350 SLW +0 60200 0 00032
F'N (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K) 033 LM00057
1 .LS.24).V.(DERBC.((D.RS.9).A.377K)) 033 LM00058
00351 CAL -0 50000 0 00057 00352 STA +0 62100 0 00354 00353 CAL -0 50000 0 00032 00354 LGR -0 76500 0 00000
00355 ANA -0 32000 0 00074 00356 SLW +0 60200 0 00707 00357 TSX +0 07400 4 00002 00360 TXH +3 00000 0 00707
00361 STO +0 60100 0 00707 00362 CAL -0 50000 0 00055 00363 STA +0 62100 0 00365 00364 CAL -0 50000 0 00032
00365 LGR -0 76500 0 00000 00366 ANA -0 32000 0 00061 00367 SLW +0 60200 0 00706 00370 TSX +0 07400 4 00002
00371 TXH +3 00000 0 00706 00372 STO +0 60100 0 00706 00373 CAL -0 50000 0 00064 00374 STA +0 62100 0 00376
00375 CAL -0 50000 0 00706 00376 ALS +0 76700 0 00000 00377 SLW +0 60200 0 00706 00400 CAL -0 50000 0 00032
00401 ANA -0 32000 0 00067 00402 SLW +0 60200 0 00710 00403 TSX +0 07400 4 00002 00404 TXH +3 00000 0 00710
00405 STO +0 60100 0 00710 00406 CAL -0 50000 0 00060 00407 STA +0 62100 0 00411 00410 CAL -0 50000 0 00710
00411 ALS +0 76700 0 00000 00412 ORA -0 50100 0 00706 00413 ORA -0 50100 0 00707 00414 SLW +0 60200 0 00710
00415 CLA +0 50000 0 00710 00416 TRA +0 02000 0 00702
E'O TIMECV. 034 LM00062
00417 TRA +0 02000 0 00422 00420 SXA +0 63400 2 00664 00421 TSX +0 07400 2 00664
MESS1(1) = $L TIME$ 035 LM00063
00422 CLA +0 50000 0 00106 00423 STO +0 60100 0 00040
X = ZEL.(X1) 036 LM00064
00424 TSX +0 07400 4 00005 00425 TXH +3 00000 0 00024 00426 STO +0 60100 0 00046
W'R (X.A.TMASK) .NE. 0, T'O BAD 037 LM00065
00427 CAL -0 50000 0 00046 00430 ANA -0 32000 0 00045 00431 SLW +0 60200 0 00710 00432 CLA +0 50000 0 00710
00433 SUB +0 40200 0 00051 00434 TZE +0 10000 0 00436 00435 TRA +0 02000 0 00007
HH = BCDEC.((X.RS.12).A.7777K) 038 LM00066
00436 CAL -0 50000 0 00060 00437 STA +0 62100 0 00441 00440 CAL -0 50000 0 00046 00441 LGR -0 76500 0 00000
00442 ANA -0 32000 0 00076 00443 SLW +0 60200 0 00710 00444 TSX +0 07400 4 00000 00445 TXH +3 00000 0 00710
00446 STO +0 60100 0 00033
MM = BCDEC.(X.A.7777K) 039 LM00067
00447 CAL -0 50000 0 00046 00450 ANA -0 32000 0 00076 00451 SLW +0 60200 0 00710 00452 TSX +0 07400 4 00000
00453 TXH +3 00000 0 00710 00454 STO +0 60100 0 00042
W'R (HH.G.23).OR.(MM.G.59), T'O BAD 040 LM00068
00455 CLA +0 50000 0 00042 00456 SUB +0 40200 0 00071 00457 TZE +0 10000 0 00461 00460 TPL +0 12000 0 00465
00461 CLA +0 50000 0 00033 00462 SUB +0 40200 0 00063 00463 TZE +0 10000 0 00466 00464 TMI -0 12000 0 00466
00465 TRA +0 02000 0 00007
F'N HH*3600+MM*60 041 LM00069
00466 LDQ +0 56000 0 00042 00467 MPY +0 20000 0 00072 00470 STQ -0 60000 0 00710 00471 LDQ +0 56000 0 00033
00472 MPY +0 20000 0 00075 00473 XCA +0 13100 0 00000 00474 ADD +0 40000 0 00710 00475 TRA +0 02000 0 00702
E'O CVTIME. 042 LM00073
00476 TRA +0 02000 0 00501 00477 SXA +0 63400 2 00664 00500 TSX +0 07400 2 00664
D = X1.A.777777K 043 LM00074
00501 CAL -0 50000 0 00024 00502 ANA -0 32000 0 00077 00503 SLW +0 60200 0 00032
HH = D/3600 044 LM00075
00504 LDQ +0 56000 0 00032 00505 PXD -0 75400 0 00000 00506 LLS +0 76300 0 00000 00507 DVP +0 22100 0 00075
00510 STQ -0 60000 0 00033
F'N ((DERBC.(HH).LS.12).V. 045 LM00076
1 (DERBC.((D-HH*3600)/60)).V.$ 0000$) 045 LM00077
00511 LDQ +0 56000 0 00033 00512 MPY +0 20000 0 00075 00513 XCA +0 13100 0 00000 00514 CHS +0 76000 0 00002
00515 ADD +0 40000 0 00032 00516 LRS +0 76500 0 00043 00517 DVP +0 22100 0 00072 00520 STQ -0 60000 0 00710
00521 TSX +0 07400 4 00002 00522 TXH +3 00000 0 00710 00523 STO +0 60100 0 00710 00524 TSX +0 07400 4 00002
00525 TXH +3 00000 0 00033 00526 STO +0 60100 0 00707 00527 CAL -0 50000 0 00060 00530 STA +0 62100 0 00532
00531 CAL -0 50000 0 00707 00532 ALS +0 76700 0 00000 00533 ORA -0 50100 0 00710 00534 ORA -0 50100 0 00107
00535 SLW +0 60200 0 00710 00536 CLA +0 50000 0 00710 00537 TRA +0 02000 0 00702
E'O PROGN. 046 LM00081
00540 TRA +0 02000 0 00543 00541 SXA +0 63400 2 00664 00542 TSX +0 07400 2 00664
MESS1(1) = $L PRGN$ 047 LM00082
00543 CLA +0 50000 0 00105 00544 STO +0 60100 0 00040
X = X1 048 LM00083
00545 CLA +0 50000 0 00024 00546 STO +0 60100 0 00046
W'R (ZEL.(X).A.PMASK) .E. 0, F'N X 049 LM00084
00547 TSX +0 07400 4 00005 00550 TXH +3 00000 0 00046 00551 STO +0 60100 0 00710 00552 CAL -0 50000 0 00710
00553 ANA -0 32000 0 00044 00554 SLW +0 60200 0 00710 00555 CLA +0 50000 0 00710 00556 SUB +0 40200 0 00051
00557 TNZ -0 10000 0 00562 00560 CLA +0 50000 0 00046 00561 TRA +0 02000 0 00702
W'R (X.A.777777776060K).E. $CMFL00$, F'N X 050 LM00085
00562 CAL -0 50000 0 00046 00563 ANA -0 32000 0 00110 00564 SLW +0 60200 0 00710 00565 CLA +0 50000 0 00710
00566 SUB +0 40200 0 00102 00567 TNZ -0 10000 0 00572 00570 CLA +0 50000 0 00046 00571 TRA +0 02000 0 00702
T'O BAD 051 LM00086
00572 TRA +0 02000 0 00007
E'O PROBN. 052 LM00090
00573 TRA +0 02000 0 00576 00574 SXA +0 63400 2 00664 00575 TSX +0 07400 2 00664
MESS1(1) = $L PRBN$ 053 LM00091
00576 CLA +0 50000 0 00104 00577 STO +0 60100 0 00040
X = X1 054 LM00092
00600 CLA +0 50000 0 00024 00601 STO +0 60100 0 00046
W'R (X.A.60K).NE.0, T'O BAD 055 LM00093
00602 CAL -0 50000 0 00046 00603 ANA -0 32000 0 00070 00604 SLW +0 60200 0 00710 00605 CLA +0 50000 0 00710
00606 SUB +0 40200 0 00051 00607 TZE +0 10000 0 00611 00610 TRA +0 02000 0 00007
T'H LOOP1, FOR I=6,6,I.E.30 056 LM00094
00611 CLA +0 50000 0 00056 00612 STO +0 60100 0 00034 00613 TRA +0 02000 0 00617 00614 CLA +0 50000 0 00034
00615 ADD +0 40000 0 00056 00616 STO +0 60100 0 00034 00617 CLA +0 50000 0 00034 00620 SUB +0 40200 0 00066
00621 TZE +0 10000 0 00662
W'R (((X.RS.I).A.60K).NE.0), 057 LM00095
1 F'N BZEL.((((X.RS.I).A.77K).LS.24).V. 057 LM00096
2 ((77777777K.RS.(24-I)).A.X)) 057 LM00097
00622 CAL -0 50000 0 00034 00623 STA +0 62100 0 00625 00624 CAL -0 50000 0 00046 00625 LGR -0 76500 0 00000
00626 ANA -0 32000 0 00070 00627 SLW +0 60200 0 00710 00630 CLA +0 50000 0 00710 00631 SUB +0 40200 0 00051
00632 TZE +0 10000 0 00661 00633 CLA +0 50000 0 00064 00634 SUB +0 40200 0 00034 00635 STA +0 62100 0 00637
00636 CAL -0 50000 0 00100 00637 LGR -0 76500 0 00000 00640 ANA -0 32000 0 00046 00641 SLW +0 60200 0 00710
00642 CAL -0 50000 0 00034 00643 STA +0 62100 0 00645 00644 CAL -0 50000 0 00046 00645 LGR -0 76500 0 00000
00646 ANA -0 32000 0 00073 00647 SLW +0 60200 0 00707 00650 CAL -0 50000 0 00064 00651 STA +0 62100 0 00653
00652 CAL -0 50000 0 00707 00653 ALS +0 76700 0 00000 00654 ORA -0 50100 0 00710 00655 SLW +0 60200 0 00710
00656 TSX +0 07400 4 00001 00657 TXH +3 00000 0 00710 00660 TRA +0 02000 0 00702
LOOP1 C'E 058 LM00098
00661 TRA +0 02000 0 00614
T'O BAD 059 LM00099
00662 TRA +0 02000 0 00007
E'N 060 LM00101
00663 TSX +0 07400 4 00003 00664 TXH +3 00000 0 00000 00665 SXD -0 63400 1 00664 00666 SXA +0 63400 4 00702
00667 CLA +0 50000 4 00001 00670 STA +0 62100 0 00114 00671 STO +0 60100 0 00163 00672 STA +0 62100 0 00346
00673 STO +0 60100 0 00425 00674 STA +0 62100 0 00501 00675 STA +0 62100 0 00545 00676 STA +0 62100 0 00600
00677 CLA +0 50000 4 00002 00700 STA +0 62100 0 00340 00701 TRA +0 02000 2 00001 00702 AXT +0 77400 4 00000
00703 LXA +0 53400 2 00664 00704 LXD -0 53400 1 00664 00705 TRA +0 02000 4 00001
RNAME BCD 09/20/68 0220.9 4205 00000
1 MAD PROGRAM LISTING ... ... ... FILE RNAME MAD 02/15/68 1750.9
-
RNAME - WRITTEN BY ROGER ROACH 6-22-67 LM00001
LM00002
PROGRAM TO GIVE SPECIAL NAMES TO FILES. LM00003
THE PROGRAM WILL RECOGNIZE THE FOLLOWING LM00004
SPECIAL ARGUMENTS- LM00005
DATE = SUBSTITUTES THE CURRENT DATE LM00006
TIME = SUBSTITUTES THE CURRENT TIME LM00007
MONTH = SUBSTITUTES THE CURRENT MONTH LM00008
LMONTH = SUBSTITUTES LAST MONTH LM00009
PROB = USERS PROBLEM NUMBER LM00010
PROG = USERS PROGRAMMER NUMBER LM00011
PROGL = USERS LOGOUT SAVED LM00012
NAME = USERS NAME LM00013
LM00014
VECTOR VALUES DATE = $ DATE$ *001 LM00015
VECTOR VALUES TIME = $ TIME$ *002 LM00016
VECTOR VALUES MONTH= $ MONTH$ *003 LM00017
VECTOR VALUES LMONTH = $LMONTH$ *004 LM00018
VECTOR VALUES PROB = $ PROB$ *005 LM00019
VECTOR VALUES PROG = $ PROG$ *006 LM00020
VECTOR VALUES PROGL = $ PROGL$ *007 LM00021
VECTOR VALUES NAME = $ NAME$ *008 LM00022
VECTOR VALUES FEW = 262566575757K *009 LM00023
VECTOR VALUES MANY = 442145705757K *010 LM00024
VECTOR VALUES FN = 777777777777K *011 LM00025
VECTOR VALUES MONTHS= $ DEC$,$ JAN$,$ FEB$,$ MARCH$,$ APRIL$, *012 LM00026
1 $ MAY$,$ JUNE$,$ JULY$,$AUGUST$,$ SEPT$, *012 LM00027
2 $ OCT$,$ NOV$,$ DEC$ *012 LM00028
DIMENSION N(4) *013 LM00029
DIMENSION ME(2) *014 LM00030
NORMAL MODE IS INTEGER *015 LM00031
LM00032
DEFINE UNARY OPERATOR .MQ. , PRECEDENCE HIGHER THAN .ABS. *016 LM00033
MODE STRUCTURE .MQ. 1 TO 1 *017 LM00034
OUT MQ *018 LM00035
END *019 LM00036
LM00037
LM00038
THROUGH LOOP1, FOR I = 1,1,I.G.4 *020 LM00039
LOOP1 N(I) = COMARG.(I) *021 LM00040
ATTNAM.(ME(2)...2) *022 LM00041
LM00042
THROUGH LOOP2, FOR I = 1,1,I.G.3 *023 LM00043
LOOP2 WHENEVER N(I).E.FN, TRANSFER TO FORMAT *024 LM00044
WHENEVER N(4) .E. FN *025 LM00045
N(4) = N(2) *026 LM00046
TRANSFER TO OVER1 *027 LM00047
END OF CONDITIONAL *028 LM00048
WHENEVER COMARG.(5).NE.FN, TRANSFER TO FORMT2 *029 LM00049
OVER1 THROUGH LOOP3, FOR I = 1,1,I.G.4 *030 LM00050
WHENEVER N(I).E.DATE, N(I) = .MQ.GETIME.(0) *031 LM00051
WHENEVER N(I).E.TIME, GETTM.(MESS,N(I)) *032 LM00052
WHENEVER N(I).E.MONTH, N(I)=MONTHS(BCDEC.(.MQ.GETIME.(0).RS.24)) *033 LM00053
WHENEVER N(I).E.LMONTH,N(I)=MONTHS(BCDEC.(.MQ.GETIME.(0).RS.24)-1) *034 LM00054
WHENEVER N(I).E.PROB, N(I) = ME(2) *035 LM00055
WHENEVER N(I).E.PROG, N(I) = ME(1) *036 LM00056
WHENEVER N(I).E.PROGL, N(I) = ((ME(1).LS.6).V.$00000L$) *037 LM00057
LOOP3 WHENEVER N(I).E.NAME, N(I) = GLOC.(COMLOC.($UNAME$) + *038 LM00058
1 GLOC.(COMLOC.($USER$))) *038 LM00059
LM00060
CHFILE.(N(1),N(2),-0,N(3),N(4),ERR) *039 LM00061
CHNCOM.(0) *040 LM00062
LM00063
FORMAT MESS = FEW *041 LM00064
TRANSFER TO OVER2 *042 LM00065
FORMT2 MESS = MANY *043 LM00066
OVER2 PRMESS.($ TOO$,MESS,$ ARGUMENTS.$) *044 LM00067
DEAD. *045 LM00068
ERR NCOM.($PRNTER$,371K) *046 LM00069
DEAD. *047 LM00070
END OF PROGRAM *048 LM00071
MODE STRUCTURE .MQ. 1 TO 1 017 LM00034
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11101 )
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00375 TRANSFER VECTOR LENGTH 00016 PROGRAM BEGINS 00107
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
DATE 00024 A 1 FORMT2 00021 4 LOOP3 00016 4 MONTHS 00053 A 1 PROB 00062 A 1
ERR 00017 4 I 00027 1 MANY 00031 A 1 NAME 00054 A 1 PROGL 00063 A 1
FEW 00025 A 1 LMONTH 00030 A 1 ME 00034 A 1 N 00061 A 1 PROG 00064 A 1
FN 00026 A 1 LOOP1 00016 4 MESS 00035 1 OVER1 00022 4 TIME 00065 A 1
FORMAT 00020 4 LOOP2 00016 4 MONTH 00036 A 1 OVER2 00023 4
0FUNCTION DICTIONARY
ATTNAM 00000 1 BCDEC 00001 1 CHFILE 00002 1 CHNCOM 00003 1 COMARG 00004 1
COMLOC 00005 1 DEAD 00006 1 EXIT 00007 1 GETIME 00010 1 GETTM 00011 1
GLOC 00012 1 .SETUP 00013 1 NCOM 00014 1 PRMESS 00015 1
0ABSOLUTE CONSTANTS
00077 +000000000371 00102 -075145632551 00101 +254563623360 00103 -202151276444 00104 -206063464660
00105 -244521442560 00106 -246225516060 00076 +000000000043 00074 +000000000006 00075 +000000000030
00066 +000000000000 00073 +000000000005 00071 +000000000003 00070 +000000000002 00072 +000000000004
00067 +000000000001 00100 +233000000000
0STATEMENT DICTIONARY
00017 TXL -300370000365 00020 TXL -300354000352 00021 TXL -300357000355 00022 TXL -300176000164
00023 TXL -300364000357
0PROGRAM
V'S DATE = $ DATE$ 001 LM00015
00107 TSX +0 07400 4 00013 00024 -2 06024 2 16325
V'S TIME = $ TIME$ 002 LM00016
00065 -2 06063 3 14425
V'S MONTH= $ MONTH$ 003 LM00017
00036 -2 04446 4 56330
V'S LMONTH = $LMONTH$ 004 LM00018
00030 -0 34446 4 56330
V'S PROB = $ PROB$ 005 LM00019
00062 -2 06047 5 14622
V'S PROG = $ PROG$ 006 LM00020
00064 -2 06047 5 14627
V'S PROGL = $ PROGL$ 007 LM00021
00063 -2 04751 4 62743
V'S NAME = $ NAME$ 008 LM00022
00054 -2 06045 2 14425
V'S FEW = 262566575757K 009 LM00023
00025 +2 62566 5 75757
V'S MANY = 442145705757K 010 LM00024
00031 -0 42145 7 05757
V'S FN = 777777777777K 011 LM00025
00026 -3 77777 7 77777
V'S MONTHS= $ DEC$,$ JAN$,$ FEB$,$ MARCH$,$ APRIL$, 012 LM00026
1 $ MAY$,$ JUNE$,$ JULY$,$AUGUST$,$ SEPT$, 012 LM00027
2 $ OCT$,$ NOV$,$ DEC$ 012 LM00028
00037 -2 06060 2 42523 00040 -2 06060 4 54665 00041 -2 06060 4 62363 00042 -2 06062 2 54763
00043 +2 16427 6 46263 00044 -2 06041 6 44370 00045 -2 06041 6 44525 00046 -2 06060 4 42170
00047 -2 02147 5 13143 00050 -2 04421 5 12330 00051 -2 06060 2 62522 00052 -2 06060 4 12145
00053 -2 06060 2 42523
D'N N(4) 013 LM00029
D'N ME(2) 014 LM00030
N'R 015 LM00031
DEFINE UNARY OPERATOR .MQ. , PRECEDENCE HIGHER THAN .ABS. 016 LM00033
MODE STRUCTURE .MQ. 1 TO 1 017 LM00034
T'H LOOP1, FOR I = 1,1,I.G.4 020 LM00039
00110 CLA +0 50000 0 00067 00111 STO +0 60100 0 00027 00112 TRA +0 02000 0 00116 00113 CLA +0 50000 0 00027
00114 ADD +0 40000 0 00067 00115 STO +0 60100 0 00027 00116 CLA +0 50000 0 00027 00117 SUB +0 40200 0 00072
00120 TZE +0 10000 0 00122 00121 TPL +0 12000 0 00127
LOOP1 N(I) = COMARG.(I) 021 LM00040
00122 TSX +0 07400 4 00004 00123 TXH +3 00000 0 00027 00124 LXA +0 53400 1 00027 00125 STO +0 60100 1 00061
00126 TRA +0 02000 0 00113
ATTNAM.(ME(2)...2) 022 LM00041
00127 TSX +0 07400 4 00000 00130 TIX +2 00070 0 00032
T'H LOOP2, FOR I = 1,1,I.G.3 023 LM00043
00131 CLA +0 50000 0 00067 00132 STO +0 60100 0 00027 00133 TRA +0 02000 0 00137 00134 CLA +0 50000 0 00027
00135 ADD +0 40000 0 00067 00136 STO +0 60100 0 00027 00137 CLA +0 50000 0 00027 00140 SUB +0 40200 0 00071
00141 TZE +0 10000 0 00143 00142 TPL +0 12000 0 00151
LOOP2 W'R N(I).E.FN, T'O FORMAT 024 LM00044
00143 LXA +0 53400 1 00027 00144 CLA +0 50000 1 00061 00145 SUB +0 40200 0 00026 00146 TNZ -0 10000 0 00150
00147 TRA +0 02000 0 00020 00150 TRA +0 02000 0 00134
W'R N(4) .E. FN 025 LM00045
00151 CLA +0 50000 0 00055 00152 SUB +0 40200 0 00026 00153 TNZ -0 10000 0 00157
N(4) = N(2) 026 LM00046
00154 CLA +0 50000 0 00057 00155 STO +0 60100 0 00055
T'O OVER1 027 LM00047
00156 TRA +0 02000 0 00022
E'L 028 LM00048
W'R COMARG.(5).NE.FN, T'O FORMT2 029 LM00049
00157 TSX +0 07400 4 00004 00160 TXH +3 00000 0 00073 00161 SUB +0 40200 0 00026 00162 TZE +0 10000 0 00164
00163 TRA +0 02000 0 00021
OVER1 T'H LOOP3, FOR I = 1,1,I.G.4 030 LM00050
00164 CLA +0 50000 0 00067 00165 STO +0 60100 0 00027 00166 TRA +0 02000 0 00172 00167 CLA +0 50000 0 00027
00170 ADD +0 40000 0 00067 00171 STO +0 60100 0 00027 00172 CLA +0 50000 0 00027 00173 SUB +0 40200 0 00072
00174 TZE +0 10000 0 00176 00175 TPL +0 12000 0 00337
W'R N(I).E.DATE, N(I) = .MQ.GETIME.(0) 031 LM00051
00176 LXA +0 53400 1 00027 00177 CLA +0 50000 1 00061 00200 SUB +0 40200 0 00024 00201 TNZ -0 10000 0 00206
00202 TSX +0 07400 4 00010 00203 TXH +3 00000 0 00066 00204 LXA +0 53400 1 00027 00205 STQ -0 60000 1 00061
W'R N(I).E.TIME, GETTM.(MESS,N(I)) 032 LM00052
00206 LXA +0 53400 1 00027 00207 CLA +0 50000 1 00061 00210 SUB +0 40200 0 00065 00211 TNZ -0 10000 0 00221
00212 CLA +0 50000 0 00027 00213 SUB +0 40200 0 00214 00214 TXH +3 00000 0 00061 00215 STA +0 62100 0 00220
00216 TSX +0 07400 4 00011 00217 TXH +3 00000 0 00035 00220 TXH +3 00000 0 00000
W'R N(I).E.MONTH, N(I)=MONTHS(BCDEC.(.MQ.GETIME.(0).RS.24)) 033 LM00053
00221 LXA +0 53400 1 00027 00222 CLA +0 50000 1 00061 00223 SUB +0 40200 0 00036 00224 TNZ -0 10000 0 00243
00225 TSX +0 07400 4 00010 00226 TXH +3 00000 0 00066 00227 STQ -0 60000 0 00372 00230 CAL -0 50000 0 00075
00231 STA +0 62100 0 00233 00232 CAL -0 50000 0 00372 00233 LGR -0 76500 0 00000 00234 SLW +0 60200 0 00372
00235 TSX +0 07400 4 00001 00236 TXH +3 00000 0 00372 00237 LXA +0 53400 1 00027 00240 PAX +0 73400 2 00000
00241 CLA +0 50000 2 00053 00242 STO +0 60100 1 00061
W'R N(I).E.LMONTH,N(I)=MONTHS(BCDEC.(.MQ.GETIME.(0).RS.24)-1) 034 LM00054
00243 LXA +0 53400 1 00027 00244 CLA +0 50000 1 00061 00245 SUB +0 40200 0 00030 00246 TNZ -0 10000 0 00266
00247 TSX +0 07400 4 00010 00250 TXH +3 00000 0 00066 00251 STQ -0 60000 0 00372 00252 CAL -0 50000 0 00075
00253 STA +0 62100 0 00255 00254 CAL -0 50000 0 00372 00255 LGR -0 76500 0 00000 00256 SLW +0 60200 0 00372
00257 TSX +0 07400 4 00001 00260 TXH +3 00000 0 00372 00261 SUB +0 40200 0 00067 00262 LXA +0 53400 1 00027
00263 PAX +0 73400 2 00000 00264 CLA +0 50000 2 00053 00265 STO +0 60100 1 00061
W'R N(I).E.PROB, N(I) = ME(2) 035 LM00055
00266 LXA +0 53400 1 00027 00267 CLA +0 50000 1 00061 00270 SUB +0 40200 0 00062 00271 TNZ -0 10000 0 00274
00272 CLA +0 50000 0 00032 00273 STO +0 60100 1 00061
W'R N(I).E.PROG, N(I) = ME(1) 036 LM00056
00274 LXA +0 53400 1 00027 00275 CLA +0 50000 1 00061 00276 SUB +0 40200 0 00064 00277 TNZ -0 10000 0 00302
00300 CLA +0 50000 0 00033 00301 STO +0 60100 1 00061
W'R N(I).E.PROGL, N(I) = ((ME(1).LS.6).V.$00000L$) 037 LM00057
00302 LXA +0 53400 1 00027 00303 CLA +0 50000 1 00061 00304 SUB +0 40200 0 00063 00305 TNZ -0 10000 0 00314
00306 CAL -0 50000 0 00074 00307 STA +0 62100 0 00311 00310 CAL -0 50000 0 00033 00311 ALS +0 76700 0 00000
00312 ORA -0 50100 0 00076 00313 SLW +0 60200 1 00061
LOOP3 W'R N(I).E.NAME, N(I) = GLOC.(COMLOC.($UNAME$) + 038 LM00058
1 GLOC.(COMLOC.($USER$))) 038 LM00059
00314 LXA +0 53400 1 00027 00315 CLA +0 50000 1 00061 00316 SUB +0 40200 0 00054 00317 TNZ -0 10000 0 00336
00320 TSX +0 07400 4 00005 00321 TXH +3 00000 0 00106 00322 STO +0 60100 0 00372 00323 TSX +0 07400 4 00012
00324 TXH +3 00000 0 00372 00325 STO +0 60100 0 00372 00326 TSX +0 07400 4 00005 00327 TXH +3 00000 0 00105
00330 ADD +0 40000 0 00372 00331 STO +0 60100 0 00372 00332 TSX +0 07400 4 00012 00333 TXH +3 00000 0 00372
00334 LXA +0 53400 1 00027 00335 STO +0 60100 1 00061 00336 TRA +0 02000 0 00167
CHFILE.(N(1),N(2),-0,N(3),N(4),ERR) 039 LM00061
00337 CLS +0 50200 0 00066 00340 STO +0 60100 0 00372 00341 TSX +0 07400 4 00002 00342 TXH +3 00000 0 00060
00343 TXH +3 00000 0 00057 00344 TXH +3 00000 0 00372 00345 TXH +3 00000 0 00056 00346 TXH +3 00000 0 00055
00347 TXH +3 00000 0 00017
CHNCOM.(0) 040 LM00062
00350 TSX +0 07400 4 00003 00351 TXH +3 00000 0 00066
FORMAT MESS = FEW 041 LM00064
00352 CLA +0 50000 0 00025 00353 STO +0 60100 0 00035
T'O OVER2 042 LM00065
00354 TRA +0 02000 0 00023
FORMT2 MESS = MANY 043 LM00066
00355 CLA +0 50000 0 00031 00356 STO +0 60100 0 00035
OVER2 PRMESS.($ TOO$,MESS,$ ARGUMENTS.$) 044 LM00067
00357 TSX +0 07400 4 00015 00360 TXH +3 00000 0 00104 00361 TXH +3 00000 0 00035 00362 TXH +3 00000 0 00103
00363 TXH +3 00000 0 00101
DEAD. 045 LM00068
00364 TSX +0 07400 4 00006
ERR NCOM.($PRNTER$,371K) 046 LM00069
00365 TSX +0 07400 4 00014 00366 TXH +3 00000 0 00102 00367 TXH +3 00000 0 00077
DEAD. 047 LM00070
00370 TSX +0 07400 4 00006
E'M 048 LM00071
00371 TSX +0 07400 4 00007
SCDA BCD 09/20/68 0221.0 10132 00000
1 KLUDGE VERSION OF .SCD PAGE 1
THIS PROGRAM DISPLAY VARIOUS CORE-A VARIABLES
ON THE KLUDGE (ESL DISPLAY CONSOLE), SUCH AS THE
SCHEDULING QUEUES, AND TIMES FOR EACH USER.
IT MUST BE REASSEMBLED EACH TIME N OR MAXLV IS
CHANGED IN THE SUPERVISOR EQU PACKAGE, WITH THE
NEW VALUES OF THESE NUMBERS INSERTED IN THIS PROGRAM.
TO PUT TOGETHER THE SAVED FILE,
FAP SCDA (LIST)
NCLOAD SCDA (LIBE) KLULIB (LIBE) XLIBE
SAVE SCDA
THE PROGRAM SAMPLES THE DATA EVERY SO OFTEN, AND
UPDATES THE DISPLAY. THE SAMPLING TIME DESIRED
(IN SECONDS) SHOULD BE SET BY THE USER IN THE
RIGHT-MOST 2 DIGI-SWITCHES AT THE KLUDGE CONSOLE.
AND SO, WITH THESE FACTS WELL IN MIND, YOU MAY BEGIN
YOUR PERUSAL OF THE WONDERS WITHIN. JUST SIT BACK
AND TAKE IT EASY. YOUR GUIDE ON THIS ADVENTURSOME
VOYAGE IS JIM BIXBY, AND THE DATE IS 12/28/67. AND
I WISH I WERE HOME FOR CHRISTMAS VACATION INSTEAD OF
WORKING ON THIS PROGRAM.
NORMAL EXIT IS ACHIEVED THRU CHNCOM IF
AN INTERUPT IS RECEIVED.
1 KLUDGE VERSION OF .SCD PAGE 2
MACROS THAT WILL BE USED IN THE WORK
'FLOAT' - TO CONVERT A FIXED
POINT NUMBER IN THE AC TO FLOATING POINT
FLOAT MACRO
ORA =O233000000000
FAD =O233000000000
FLOAT END
'DTIME' - TO COMPUTE THE DIFFERENCE BETWEEN TWO
INTEGERS, AND LEAVE THE RESULT IN FLOATING
POINT.
DTIME MACRO LAST,NOW
CLA NOW
SUB LAST
FLOAT
STO LAST
DTIME END
'F6.1' - TO CONVERT A FLOATING POINTING NUMBER
IN THE AC TO BCD, ACCORDING TO A F6.1
FORMAT. RESULT LEFT IN THE LAC
F6.1 MACRO
UFA =O233000000000 CONVERT TO FIXED PT. THE NUMBER
ERA =O233000000000 IS SUPPOSED TO BE 10 * ITS REAL VALUE
LLS 0
STO TEMP
TSX $DEFBC,4 CONVERT TO BCD
PTH TEMP
STO TEMP
TSX $BZEL,4
PTH TEMP AND BLANK THE LEADING ZEROS
XCA
ZAC
LGL 30 GET THE FIRST 4 DIGITS
ALS 6 MAKE ROOM FOR '.'
ORA =H00000. NO F6.1 NUMBER IS COMPLETE WITHOUT IT
LGL 6 GET THE DECIMAL FIGURE
F6.1 END
'FIXBCD' - TO CONVERT A FIXED POINT NUMBER
TO BCD WITH LEADING ZEROS
1 KLUDGE VERSION OF .SCD PAGE 3
MACROS THAT WILL BE USED IN THE WORK
FIXBCD MACRO FROM,TO
TSX $DEFBC,4
PTH FROM
STO TO
TSX $BZEL,4
PTH TO
STO TO
FIXBCD END
'FIXCEN' - TO CONVERT A FIXED POINT NUMBER
TO BCD OF THE FORM ' XX '
FIXCEN MACRO FROM,TO
FIXBCD FROM,TO
XCA
RQL 18
STQ TO
FIXCEN END
'TCONV' - TO CONVERT INTEGER 60TH-S TO SSSS.S
TCONV MACRO FROM,TO
LDQ FROM
ZAC
DVP =6
STQ TEMP
TSX $DEFBC,4
PTH TEMP
STO TEMP
TSX $BZEL,4
PTH TEMP
XCA
LGL 30
ALS 6
ORA =H00000.
LGL 6
SLW TO
ERA =H .0
TNZ *+3
CAL =H
SLW TO
TCONV END
'PUTIN'- TO PUT 6 BCD CHARACTERS
FROM WORD INTO A KLUDGE CHARACTER COMMAND
SOMEWHERE NEAR PLACE
1 KLUDGE VERSION OF .SCD PAGE 4
MACROS THAT WILL BE USED IN THE WORK
PUTIN MACRO WORD,PLACE
CAL WORD GET THE 6 CHARACTERS
LGR 6 MOVE ONE INTO THE MQ
ORA =H600000 MAKE A KLUDGE PACKED LONG WORD
SLW PLACE+2 AND STORE
STQ PLACE+3 ..
PUTIN END
'DATA' - TO CREATE THE KLUDGE COMMANDS
THAT GET FILLED BY 'PUTIN'
DATA MACRO SPACE,TITLE
VFD 3/0,15/'SPACE,3/4,15/0
VFD 3/2,15/LOWCS,18/0
VFD 1/0,5/6,H36/'TITLE
DATA END
'LOAD' - TO MOVE SIZE WORDS STARTING AT ALOC IN
CORE-A INTO CORE-B, STARTING AT BLOC
LOAD MACRO ALOC,BLOC,SIZE
TSX GETARY,4
ALOC PZE **
PZE BLOC,,SIZE
LOAD END
'COML' - TO GET ADDRESS OF A CORE-A ARRAY
COML MACRO NAME,LOC
TSX $COMLOC,4
PTH =H'NAME
STA LOC
COML END
1 KLUDGE VERSION OF .SCD PAGE 5
PROGRAM INITIALIZATION
THIS NEXT SECTION GETS ALL THE NEEDED CORE-A
ADDRESSES,SIGNS ON TO THE KLUDGE, AND PLOTS A
DUMMY PLOT TO ESTABLISH THE NEEDED POINTERS
TRANSFER VECTOR
00000 622563225142 SETBRK
00001 234644434623 COMLOC
00002 212346512560 ACORE
00003 622745464560 SGNON
00004 474346636060 PLOT
00005 622563476360 SETPT
00006 314565316260 INVIS
00007 242526222360 DEFBC
00010 227125436060 BZEL
00011 512524312731 REDIGI
00012 272563634460 GETTM
00013 514743606060 RPL
00014 622745462626 SGNOFF
00015 233045234644 CHNCOM
00016 0760 00 0 00016 LMTM WE WILL NEED MANY OF THESE LATER
00017 0074 00 4 00000 TSX $SETBRK,4 SET UP THE EXIT
00020 0 00000 0 01024 PZE OUT ..
00021 COML STATUS,ASTATS GET THE ADDRESSES
00024 COML COMMND,ACMMND
00027 COML TIMLEV,ATIMLV
00032 COML WRKTIM,AWRKTM
00035 COML PLIST,APLIST
00040 COML ULIST,AULIST
00043 COML PROBN,APROBN
00046 COML PROGN,APROGN
00051 COML UNAME,AUNAME
00054 COML MXUSRS,AMXUSR
00057 COML STNBY,ASTNBY
00062 COML NUSERS,ANUSER
00065 COML TOTTIM,ATOTTM
00070 COML BKGTIM,ABKGTM
00073 COML SWPTIM,ASWPTM
00076 COML UCLOCK,AUCLCK
00101 COML UCHARG,AUCHRG
00104 0074 00 4 00002 TSX $ACORE,4 GET ADDRESS OF AVG. Q LENGTH
00105 3 00000 0 02362 PTH =HAVQLEN
00106 0771 00 0 00022 ARS 18 MOVE IT TO ADDRESS PART
00107 0601 00 0 00243 STO AVQLEN AND SAVE FOR LATER
DISPLAY INITIALIZATION--SIGN ON
1 KLUDGE VERSION OF .SCD PAGE 6
PROGRAM INITIALIZATION
00110 0074 00 4 00003 TSX $SGNON,4
00111 3 00000 0 02340 PTH NCONS FOR THIS MANY CONSOLES
00112 3 00000 0 00000 PTH 0 AND NO TRACKING CROSS
PLOT THE SKELETOM DISPLAY TO GET ALL
THE POINTERS WE WILL NEED LATER.
00113 0074 00 4 00004 TSX $PLOT,4 PLOT THE TOP HALF OF THE DISPLAY
00114 3 00000 0 02327 PTH TOP
00115 3 00000 0 02043 PTH POINT POINTER TO TOP DISPLAY
00116 0601 00 0 02043 STO POINT
00117 0500 00 0 02371 CLA =-512 LEFT EDGE OF SCREEN
00120 0601 00 0 02331 STO H
00121 0500 00 0 02355 CLA =190 UPPER CORNER NEAR TOP
00122 0601 00 0 02330 STO V
00123 0774 00 1 00044 AXT N+1,1 SET UP TO PLOT LOWER HALF OF PLOT
NOW WE GO THROUGH LINE BY LINE AND PUT A SET-POINT
AND TWO DUMMY LINES, ONE TO REPRESENT THE NORMAL
SECTION OF A LINE, AND ONE TO REPRESENT THE DATA
ASSOCIATED WITH BEING IN ACTIVE STATUS.
00124 0634 00 1 00141 SETDP SXA XR1,1 SAVE THE INDEX
00125 0074 00 4 00005 TSX $SETPT,4 PUT IN THE SET-POINT
00126 3 00000 0 02331 PTH H
00127 3 00000 0 02330 PTH V
00130 0601 00 0 02044 STO OB THIS POINTER WON'T BE USED
00131 0074 00 4 00006 TSX $INVIS,4 MAKE THE SET-POINT INVISIBLE
00132 3 00000 0 02044 PTH OB
00133 0601 00 0 02044 STO OB
00134 0074 00 4 00004 TSX $PLOT,4 AND ADD IT TO THE DISPLAY FILE
00135 3 00000 0 02044 PTH OB
00136 0500 00 0 02330 CLA V
00137 0402 00 0 02332 SUB SPACE MOVE DOWN TO NEXT LINE
00140 0601 00 0 02330 STO V
00141 0774 00 1 00000 XR1 AXT **,1 RESTORE THE INDEX
00142 0074 00 4 00004 TSX $PLOT,4 PLOT THE DUMMY LINES
00143 3 00000 0 02214 PTH DUMLIN
00144 3 00000 0 02333 PTH TEMP
00145 0522 00 0 00141 XEC XR1
00146 0601 00 1 02111 STO LINES+N+1,1 LINE D.F. POINTERS
00147 0074 00 4 00004 TSX $PLOT,4
00150 3 00000 0 02217 PTH DUMQS
00151 3 00000 0 02333 PTH TEMP
00152 0522 00 0 00141 XEC XR1
00153 0601 00 1 02155 STO QUEUES+N+1,1 QUEUE D.F. POINTERS
00154 2 00001 1 00124 TIX SETDP,1,1 ONE FOR EACH POSSIBLE USER
00155 0074 00 4 00004 TSX $PLOT,4 PUT IN AND ENDOFFILE
00156 3 00000 0 02222 PTH BOTTOM
1 KLUDGE VERSION OF .SCD PAGE 7
MAIN PROGRAM
LOAD A NEW SET OF VALUES FROM CORE-A
00157 REGEN LOAD ASTATS,STATUS,N+1
00162 LOAD ACMMND,COMMND,N+1
00165 LOAD ATIMLV,TIMLEV,N+1
00170 LOAD AWRKTM,WRKTIM,N+1
00173 LOAD APLIST,PLIST,QSIZE
00176 LOAD AULIST,ULIST,QSIZE
00201 LOAD APROBN,PROBN,N+1
00204 LOAD APROGN,PROGN,N+1
00207 LOAD AUNAME,UNAME,N+1
00212 LOAD AUCLCK,UCLOCK,N+1
00215 LOAD AUCHRG,UCHARG,N+1
00220 LOAD AMXUSR,MXUSRS,1
00223 LOAD ASTNBY,STNBY,1
00226 LOAD ANUSER,NUSERS,1
00231 LOAD ATOTTM,TOTTIM,1
00234 LOAD ABKGTM,BKGTIM,1
00237 LOAD ASWPTM,SWPTIM,1
00242 0074 00 4 02347 TSX GETLOC,4 GET THE AVERAGE Q LENGTH
00243 0 00000 0 00000 AVQLEN PZE **
1 KLUDGE VERSION OF .SCD PAGE 8
FILL IN THE UPPER DISPLAY
00244 0300 00 0 02364 FAD =O233000000000 CONVERT AV. Q LEN TO FLOATING POINT
00245 0131 00 0 00000 XCA
00246 0260 00 0 02360 FMP =.01 ADJUST
00247 F6.1 PUT INTO DISPLAY FORMAT
00266 0602 00 0 02262 SLW DAVGQL AND SAVE IN DISPLAY
00267 0074 00 4 00011 TSX $REDIGI,4 GET THE SLEEP TIME FROM THE SWITCHES
00270 3 00000 0 02334 PTH LSW
00271 3 00000 0 02335 PTH RSW
00272 0601 00 0 02336 STO SLPTIM AND SAVE FOR LATER
00273 FIXBCD SLPTIM,DSAMPL AND PLACE IN DISPLAY
00301 -0500 00 0 02234 CAL DSAMPL CHANGE THE FIRST CHAR. TO 'S'
00302 -0501 00 0 02404 ORA =HS00000
00303 0602 00 0 02234 SLW DSAMPL
00304 0074 00 4 00012 TSX $GETTM,4 GET THE DATE AND TIME
00305 3 00000 0 02242 PTH DDATE INTO THE DISPLAY
00306 3 00000 0 02243 PTH DTIME
FILL IN MXUSRS,NUSERS,STNBY
00307 FIXCEN MXUSRS,DMXUSR
00320 FIXCEN NUSERS,DNUSER
00331 FIXCEN STNBY,DSTNBY
00342 0520 00 0 02337 ZET FFLAG IS THIS THE FIRST TIME THRU HERE
00343 0020 00 0 00346 TRA COMPCT NO-COMPUTE GOOD, SWAP AND OTHER
00344 -0625 00 0 02337 STL FFLAG YES--TURN OFF THE FLAG
00345 0020 00 0 00461 TRA DUMPCT AND SET UP FOR THE NEXT PASS
COMPUTE THE DELTA TIMES SINCE THE LAST PASS
00346 COMPCT DTIME OTOTTM,TOTTIM
00353 DTIME OBKGTM,BKGTIM
00360 DTIME OSWPTM,SWPTIM
GOOD = 100*D(TOTTIM-SWPTIM-BKGTIM)/D(TOTTIM)
00365 0500 00 0 02040 CLA OTOTTM
00366 0302 00 0 02042 FSB OSWPTM
00367 0302 00 0 02041 FSB OBKGTM
00370 0241 00 0 02040 FDP OTOTTM
00371 0260 00 0 02361 FMP =1000.0
00372 F6.1 CONVERT RESULT FOR DISPLAY
00411 0602 00 0 02266 SLW DGOOD AND PLACE THERE
1 KLUDGE VERSION OF .SCD PAGE 9
FILL IN THE UPPER DISPLAY
SWAP = 100 * D(SWPTIM)/D(TOTTIM)
00412 0500 00 0 02042 CLA OSWPTM
00413 0241 00 0 02040 FDP OTOTTM
00414 0260 00 0 02361 FMP =1000.0
00415 F6.1 CONVERT
00434 0602 00 0 02270 SLW DSWAP AND SAVE
OTHER = 100 * D(BKGTIM)/D(TOTTIM)
00435 0500 00 0 02041 CLA OBKGTM
00436 0241 00 0 02040 FDP OTOTTM
00437 0260 00 0 02361 FMP =1000.0
00440 F6.1
00457 0602 00 0 02274 SLW DOTHER
00460 0020 00 0 00465 TRA SETNXT
PUT IN DUMMY PERCENTAGES ON FIRST PASS
00461 -0500 00 0 02402 DUMPCT CAL =H .
00462 0602 00 0 02266 SLW DGOOD
00463 0602 00 0 02270 SLW DSWAP
00464 0602 00 0 02274 SLW DOTHER
UPDATE OLD TIMES FOR NEXT PASS
00465 -0500 00 0 01614 SETNXT CAL TOTTIM
00466 0602 00 0 02040 SLW OTOTTM
00467 -0500 00 0 01615 CAL BKGTIM
00470 0602 00 0 02041 SLW OBKGTM
00471 -0500 00 0 01616 CAL SWPTIM
00472 0602 00 0 02042 SLW OSWPTM
PLOT THE NEW UPPER DISPLAY
00473 0074 00 4 00013 TSX $RPL,4
00474 3 00000 0 02327 PTH TOP POINTER TO THR COMMAND LIST
00475 3 00000 0 02043 PTH POINT OLD TOP DISPLAY FILE POINTER
00476 0601 00 0 02043 STO POINT AND THE NEW DISPLAY FILE POINTER
1 KLUDGE VERSION OF .SCD PAGE 10
COMPUTE QUEUE POSITIONS AND LEVELS FOR USE LATER
00477 0774 00 1 00011 AXT 9,1 QUEUE LEVEL IN XR1
00500 0754 00 1 00000 NQ PXA ,1 PUT NEXT POSITION POINTER IN ACC
00501 0737 00 3 00000 PAC ,3 SO WE CAN GET IT INTO XR3
00502 0500 00 0 02351 CLA =1 START WITH THE FIRST POSITION
00503 0601 00 0 02037 STO QPOS IN THIS LEVEL
00504 0500 00 3 01251 NXTQ CLA PLIST,3 GET POINTER TO USER IN THIS POSITION
00505 0737 00 3 00000 PAC ,3 SO HE CAN BE EXTRACTED FROM ULIST
00506 0500 00 3 01343 CLA ULIST,3 GET THE USER
00507 -0120 00 0 00520 TMI LEVLUP USER=-1 IS END OF THIS Q LEVEL
00510 0737 00 2 00000 PAC ,2 -USER INTO XR2
00511 0754 00 1 00000 PXA ,1 AND LEVEL INTO AC
00512 0601 00 2 01727 STO LEV,2 STORE THIS USERS LEVEL
00513 0500 00 0 02037 CLA QPOS GET THE POSITION WITHIN THIS LEVEL
00514 0601 00 2 01773 STO POS,2 AND STORE THAT TOO
00515 0400 00 0 02351 ADD =1 MOVE TO NEXT POSITION
00516 0601 00 0 02037 STO QPOS OF THIS LEVEL
00517 0020 00 0 00504 TRA NXTQ AND GO FIND THE USER
00520 2 00001 1 00500 LEVLUP TIX NQ,1,1 MOVE ON TO NEXT LEVEL
1 KLUDGE VERSION OF .SCD PAGE 11
FILL IN TO LOWER DISPLAY
EACH LINE IN THE LOWER DISPLAY HAS TWO PARTS--
THE FIRST PART IS LINENO,NAME,PROB,PROG,UCLOCK
AND USWAP. THAT IS,INFORMATION THAT PERTAIN
TO ANY USER THAT IS LOGGED IN.
THE SECOND PART IS WRKTIM, TIMLEV, AND QUEUE
LEVEL AND POSITION. THAT IS,
INFORMATION WHICH APPLIES TO USERS IN WORKING
STATUS.
THESE TWO GROUPS ARE PLOTTED AS SEPARATE
ITEMS IN THE DISPLAY FILE.
GET AND PLOT THE LINE INFO
00521 0774 00 1 00044 AXT N+1,1 DO ALL USERS
00522 0634 00 1 00660 LOWER SXA XR12,1 SAVE THIS FOR LATER ON
00523 -0500 00 1 01501 CAL PROBN+N+1,1 GET PROBN
00524 0100 00 0 00663 TZE NOTIN BRANCH IF NOT LOGGED IN
00525 0602 00 0 02161 SLW BPROB PLACE IN DISPLAY
00526 -0500 00 1 01141 CAL COMMND+N+1,1 PLOT THE COMMAND
00527 -0100 00 0 00531 TNZ *+2 PUT IN BLANKS IF NO COMMAND
00530 -0500 00 0 02403 CAL =H ..
00531 0602 00 0 02163 SLW BCOM
00532 0560 00 1 01545 LDQ PROGN+N+1,1 AND THE PROG NUM
00533 -0773 00 0 00006 RQL 6 CENTER IT
00534 -0600 00 0 02162 STQ BPROG
00535 -0500 00 1 01611 CAL UNAME+N+1,1 PUT IN HIS NAM
00536 0602 00 0 02160 SLW BNAME
00537 0754 00 1 00000 PXA ,1 GET THE LINE NUMBER
00540 -0760 00 0 00003 SSM
00541 0400 00 0 01030 ADD NPLUS1 LINE NO. IN AC
00542 0601 00 0 02333 STO TEMP
00543 -0100 00 0 00553 TNZ NOTBKG SKIP IF NOT BACKGROUND
00544 -0500 00 0 02403 CAL =H BACKGROUND--PUT IN DUMMY JUNK
00545 0602 00 0 02160 SLW BNAME
00546 0602 00 0 02163 SLW BCOM
00547 -0500 00 0 02400 CAL =H BACKG
00550 0602 00 0 02161 SLW BPROB
00551 -0500 00 0 02377 CAL =HROUND
00552 0602 00 0 02162 SLW BPROG
00553 NOTBKG FIXBCD TEMP,BLINNM PUT IN THE LINE NUMBER
00561 0560 00 0 02157 LDQ BLINNM FUDGE THE FIRST 6 BITS AND POSITION
00562 -0773 00 0 00022 RQL 18
00563 -0500 00 0 02342 CAL NUMMSK
00564 -0765 00 0 00006 LGR 6
00565 -0600 00 0 02157 STQ BLINNM
1 KLUDGE VERSION OF .SCD PAGE 12
FILL IN TO LOWER DISPLAY
PUT IN UCLOCK AND USWAP
00566 -0500 00 1 01663 CAL UCLOCK+N+1,1 GET UCLOCK
00567 0602 00 0 02333 SLW TEMP
00570 TCONV TEMP,TEMP CONVERT AND STORE
00613 PUTIN TEMP,BUCLK
00620 0500 00 1 01727 CLA UCHARG+N+1,1 GET UCHARG
00621 0402 00 1 01663 SUB UCLOCK+N+1,1 SUBTRACT TO GET USWAP
00622 0601 00 0 02333 STO TEMP
00623 TCONV TEMP,TEMP CONVERT AND STORE
00646 PUTIN TEMP,BUSWP
THE FIRST HALF HAS BEEN FILLED IN.
NOW WE MUST PLOT IT
00653 -0500 00 1 02111 CAL LINES+N+1,1 GET THE OLD D.F. POINTER
00654 0602 00 0 02044 SLW OB
00655 0074 00 4 00013 TSX $RPL,4 REPLACE THE OLD BASIC LINE WITH THE
00656 3 00000 0 02174 PTH BASICL ONE WE JUST CONSTRUCTED
00657 3 00000 0 02044 PTH OB 'OB' TELLS IT WHERE THE OLD ONE IS
00660 0774 00 1 00000 XR12 AXT **,1 RESTORE THE INDEX
00661 0601 00 1 02111 STO LINES+N+1,1 SAVE THE NEW D.F. POINTER
00662 0020 00 0 00702 TRA PLTQS GO OFF TO PLOT THE QUEUE INFO
1 KLUDGE VERSION OF .SCD PAGE 13
FILL IN TO LOWER DISPLAY
COME HERE IF A USER IS NOT LOGGED IN
IN THIS CASE, WE PLOT ZERO LENGTH INVISIBLE
LINES TO REPLACE ANY JUNK THAT MAY BE IN THE D.F.
00663 -0500 00 1 02111 NOTIN CAL LINES+N+1,1 GET THE OLD POINTER
00664 0602 00 0 02044 SLW OB
00665 0074 00 4 00013 TSX $RPL,4 REPLACE THE OLD WITH DUMMY LINES
00666 3 00000 0 02214 PTH DUMLIN
00667 3 00000 0 02044 PTH OB
00670 0522 00 0 00660 XEC XR12
00671 0601 00 1 02111 STO LINES+N+1,1 SAVE THE NEW POINTER
00672 -0500 00 1 02155 NOQ CAL QUEUES+N+1,1 GET THE OLD Q-PORTION POINTER
00673 0602 00 0 02044 SLW OB
00674 0074 00 4 00013 TSX $RPL,4 REPLACE ANY OLD WITH DUMMY
00675 3 00000 0 02217 PTH DUMQS
00676 3 00000 0 02044 PTH OB
00677 0522 00 0 00660 XEC XR12
00700 0601 00 1 02155 STO QUEUES+N+1,1 SAVE THE NEW POINTER
00701 0020 00 0 01020 TRA LOWLUP AND GO TO NEXT USER
1 KLUDGE VERSION OF .SCD PAGE 14
FILL IN TO LOWER DISPLAY
HERE TO CHECK IF A USER IS IN WORKING STATUS, AND
IF HE IS, TO PLOT THE QUEUE INFOR
00702 0500 00 1 01075 PLTQS CLA STATUS+N+1,1 GET HIS STATUS
00703 0402 00 0 02352 SUB =2 WANT HIM IN WORKING STATUS
00704 -0100 00 0 00672 TNZ NOQ NOT WORKING--PLOT DUMMY QUEUES
00705 -0500 00 1 01205 CAL TIMLEV+N+1,1 GET TIMLEV INTO DISPLAY
00706 0602 00 0 02333 SLW TEMP
00707 TCONV TEMP,TEMP CONVERT AND STORE
00732 PUTIN TEMP,QTMLV
00737 -0500 00 1 01251 CAL WRKTIM+N+1,1 SAME FOR WRKTIM
00740 0602 00 0 02333 SLW TEMP
00741 TCONV TEMP,TEMP
00764 PUTIN TEMP,QWRK
HERE WE GENERATE THE TWO WORDS OF KLUDGE COMMAND
FOR PLOTTING THE QUEUE LEVEL AND POSITION
00771 0500 00 1 01773 CLA LEV+N+1,1 GET THIS GUYS QUEUE LEVEL
00772 0734 00 2 00000 PAX ,2 FOR LATER
00773 0560 00 0 02403 LDQ =H SET UP THE LAC-MQ AD
00774 -0500 00 1 02037 CAL POS+N+1,1 FIRST CHAR 'POS' AND REST BLANKS
00775 -0765 00 0 00006 LGR 6 ..
00776 -0130 00 0 00000 XCL ..
00777 0560 00 0 02403 LDQ =H ..
01000 2 00001 2 01002 TIX *+2,2,1 TEST FOR MORE SHIFTING NECESSARY
01001 0020 00 0 01005 TRA *+4 NO
01002 -0765 00 0 00006 LGR 6 YES--OBVIOUSLY
01003 -0501 00 0 02370 ORA =H.00000 PUT IN A LEADING '.'
01004 0020 00 0 01000 TRA *-4 THIS IS FUN, LETS SEE IF WE CAN DO IT AGAIN
01005 -0765 00 0 00014 LGR 12 MAKE ROOM FOR THE COUNT AND FIRST BLANK
01006 -0501 00 0 02357 ORA =O126000000000 THERE THEY ARE, SPORTS FANS
01007 0602 00 0 02207 SLW Q15 PUT IN THE DISPLAY
01010 -0600 00 0 02210 STQ Q69 NEED BOTH WORDS
EVENTUALLY WE END UP HERE TO PLOT THE LINE
01011 -0500 00 1 02155 PQ CAL QUEUES+N+1,1 GET THE OLD QUEUE D.F. POINTER
01012 0602 00 0 02044 SLW OB
01013 0074 00 4 00013 TSX $RPL,4 REPLACE THE OLD QUEUES LINE
01014 3 00000 0 02211 PTH QUEUEL WITH THE ONE WE JUST CONSTRUCTED
1 KLUDGE VERSION OF .SCD PAGE 15
FILL IN TO LOWER DISPLAY
01015 3 00000 0 02044 PTH OB
01016 0522 00 0 00660 XEC XR12
01017 0601 00 1 02155 STO QUEUES+N+1,1 AND SAVE THE NEW POINTER
01020 2 00001 1 00522 LOWLUP TIX LOWER,1,1 DO ALL THE USERS
01021 0500 00 0 02336 CLA SLPTIM GET THE SLEEP TIME
01022 0074 00 4 02346 TSX SLEEP,4 AND DO SO
01023 0020 00 0 00157 TRA REGEN THEN GO BACK TO DO THE WHOLE MESS OVER
COME HERE IF AN INTERUPT WAS RECEIVED
01024 0074 00 4 00014 OUT TSX $SGNOFF,4 GET OFF THE KLUDGE
01025 3 00000 0 02350 PTH =0
01026 0074 00 4 00015 TSX $CHNCOM,4 AND EXIT
01027 3 00000 0 02350 PTH =0
1 KLUDGE VERSION OF .SCD PAGE 16
STORAGE FOR THE CORE-A VARIABLES
00043 N EQU 35
01030 0 00000 0 00044 NPLUS1 PZE N+1
00012 MAXLV EQU 10
00072 QSIZE EQU N+1+2*MAXLV+2
01031 STATUS BSS N+1
01075 COMMND BSS N+1
01141 TIMLEV BSS N+1
01205 WRKTIM BSS N+1
01251 PLIST BSS QSIZE
01343 ULIST BSS QSIZE
01435 PROBN BSS N+1
01501 PROGN BSS N+1
01545 UNAME BSS N+1
01611 MXUSRS BSS 1
01612 NUSERS BSS 1
01613 STNBY BSS 1
01614 TOTTIM BSS 1
01615 BKGTIM BSS 1
01616 SWPTIM BSS 1
01617 UCLOCK BSS N+1
01663 UCHARG BSS N+1
01727 LEV BSS N+1 QUEUE LEVEL ARRAY
01773 POS BSS N+1 QUEUE POSITION ARRAY
02037 QPOS BSS 1
02040 OTOTTM BSS 1
02041 OBKGTM BSS 1
02042 OSWPTM BSS 1
POINTERS TO THE CORE-A DISPLAY FILE
02043 POINT BSS 1 POINTER TO UPPER DISPLAY
02044 OB BSS 1 TEMPORARY GENERAL PURPOSE POINTER
02045 LINES BSS N+1 FIRST PORTION POINTERS
02111 QUEUES BSS N+1 QUEUES PORTION POINTERS
1 KLUDGE VERSION OF .SCD PAGE 17
DISPLAY FILE OBJECTS FOR PLOTTINE
SKELETON BASIC LOWER LINE
02155 0 00000 0 00016 BTLIN PZE BELIN-*-1 NUMBERS OF COMMANDS IN THIS LIST
02156 200007000000 VFD 3/2,15/LOWCS,18/0
02157 356060606060 BLINNM VFD 1/0,5/29,H30/ LINE NUMBER
02160 606060606060 BNAME BCI 1,
02161 606060606060 BPROB BCI 1,
02162 606060606060 BPROG BCI 1,
02163 606060606060 BCOM BCI 1,
02164 BUCLK DATA 10
02170 BUSWP DATA 10
02174 BELIN EQU *
02174 0 00000 0 02155 BASICL PZE BTLIN POINTER TO THE ABOVE OBJECT
SKELETON QUEUES LOWER LINE
02175 0 00000 0 00013 QTLIN PZE QELIN-*-1
02176 QWRK DATA 10
02202 QTMLV DATA 10
02206 200014000000 VFD 3/2,15/LOWQS,18/0
02207 116060606060 Q15 VFD 1/0,5/9,H30/
02210 606060606060 Q69 BCI 1,
02211 QELIN EQU *
02211 0 00000 0 02175 QUEUEL PZE QTLIN POINTER TO ABOVE OBJECT
DUMMY BASIC LINE
02212 +000000000001 DMLIN DEC 1 ONE COMMAND HERE
02213 +000000400000 OCT 400000 ZERO LENGTH INVISIBLE LINE
02214 0 00000 0 02212 DUMLIN PZE DMLIN POINTER TO THE LINE
DUMMY QUEUES LINE
02215 +000000000001 DMQ DEC 1
02216 +000000400000 OCT 400000
02217 0 00000 0 02215 DUMQS PZE DMQ POINTER TO THE DUMMY QUEU
1 KLUDGE VERSION OF .SCD PAGE 18
DISPLAY FILE OBJECTS FOR PLOTTINE
DISPLAY FILE END OF FILE
02220 +000000000001 EOFC DEC 1
02221 +377777377777 OCT 377777377777
02222 0 00000 0 02220 BOTTOM PZE EOFC POINTER TO END OF FILE COMMAND
SKELETON UPPER DISPLAY
02223 0 00000 0 00103 UPRDIS PZE TOPBOT-*-1 COUNT OF WORDS IN OBJECT
02224 300002000000 VFD 3/3,13/0,3/4,13/0 SET POINT AT CENTER OF SCREEN
02225 040470400702 VFD 3/0,1/1,14/312,3/4,1/0,14/450 LINE TO UPPER CORNER
02226 200007000000 VFD 3/2,15/7,18/0 START IN ON PACKED CHARS
02227 672363626260 VFD 1/1,5/23,H24/CTSS,H6/
02230 646221272560 BCI 1,USAGE
02231 606060606221 BCI 1, SA
02232 444743256051 BCI 1,MPLE R
02233 232163256031 BCI 1,CATE I
02234 626060606060 DSAMPL BCI 1,S
02235 606225234645 BCI 1, SECON
02236 246260606060 BCI 1,DS
02237 041336440050 VFD 3/0,1/1,14/734,3/4,1/1,14/40 NEXT LINE
02240 200007000000 VFD 3/2,15/7,18/0
02241 676331442560 VFD 1/1,5/23,H24/TIME,H6/
02242 606060606060 DDATE BCI 1,
02243 606060606060 DTIME BCI 1,
02244 606044676462 BCI 1, MXUS
02245 615162601360 BCI 1,/RS =
02246 606060606060 DMXUSR BCI 1,
02247 606045646225 BCI 1, NUSE
02250 +355162601360 OCT 355162601360 'RS = '
02251 606060606060 DNUSER BCI 1,
02252 606060626345 BCI 1, STN
02253 227060136060 BCI 1,BY =
02254 606060606060 DSTNBY BCI 1,
02255 041257440050 VFD 3/0,1/1,14/687,3/4,1/1,14/40
02256 200007000000 VFD 3/2,15/7,18/0
02257 272165276050 BCI 1,GAVG Q
02260 642564256043 BCI 1,UEUE L
02261 254527633013 BCI 1,ENGTH=
02262 606060606060 DAVGQL BCI 1,
02263 040662440050 VFD 3/0,1/1,14/434,3/4,1/1,14/40
02264 200007000000 VFD 3/2,15/7,18/0
02265 272746462413 VFD 1/0,5/23,H30/GOOD=
02266 606060606060 DGOOD BCI 1,
02267 606266214713 BCI 1, SWAP=
02270 606060606060 DSWAP BCI 1,
02271 000016400000 VFD 3/0,1/0,14/14,3/4,1/0,14/0
02272 200007000000 VFD 3/2,15/7,18/0
02273 134663302551 VFD 1/0,5/11,H30/OTHER
02274 606060606060 DOTHER BCI 1,
02275 041274440120 VFD 3/0,1/1,14/700,3/4,1/1,14/80
02276 200007000000 VFD 3/2,15/LOWCS,18/0
1 KLUDGE VERSION OF .SCD PAGE 19
DISPLAY FILE OBJECTS FOR PLOTTINE
02277 344331452560 VFD 1/0,5/28,H24/LINE,H6/
02300 604521442560 BCI 1, NAME
02301 606060646225 BCI 1, USE
02302 516060606023 BCI 1,R C
02303 464444452460 BCI 1,OMMND
02304 DATA 10,UCLOCK
02310 DATA 10,USWAP
02314 DATA 10,WRKTIM
02320 DATA 10,TIMLEV
02324 200014000000 VFD 3/2,15/LOWQS,18/0
02325 +126001020304 OCT 126001020304
02326 050607101100 VFD H30/56789
02327 TOPBOT EQU *
02327 0 00000 0 02223 TOP PZE UPRDIS POINTER TO UPPER DISPLAY
1 KLUDGE VERSION OF .SCD PAGE 20
OTHER CONSTANTS AND VARIABLES
02330 V BSS 1 TEMPORARY H AND V
02331 H BSS 1
02332 +000000000024 SPACE DEC 20 BIT SPACING BETWEEN LOWER LINES
02333 TEMP BSS 1
02334 +000000000010 LSW DEC 8 LEFT SWITCH NUMBER FOR SLEET TIME
02335 +000000000011 RSW DEC 9 RIGHT SWITCH FOR SLEEP TIME
02336 SLPTIM BSS 1 SLEEP TIME READ FROM SWITCHES
02337 0 00000 0 00000 FFLAG PZE 0 FIRST TIME FLAG
02340 +000000000002 NCONS DEC 2 NUMBER OF CONSOLES DESIRED
00007 LOWCS EQU 7 LOWER DISPLAY CHARACTER SPACING
00014 LOWQS EQU 12 LOWER DISPLAY Q-LEVEL SPACING
02341 000000000013 SWPMSK VFD 30/0,1/0,5/11
02342 000000000035 NUMMSK VFD 30/0,1/0,5/29
02343 000000000013 WRKMSK VFD 30/0,1/0,5/11
02344 000000000011 Q15MSK VFD 30/0,1/0,5/9
TIA'S
02345 0101 00 0 02366 GETARY TIA =HGETARY
02346 0101 00 0 02405 SLEEP TIA =HSLEEP
02347 0101 00 0 02367 GETLOC TIA =HGETLOC
END
LITERALS
02350 000000000000
02351 000000000001
02352 000000000002
02353 000000000006
02354 000000000033
02355 000000000276
02356 060000000000
02357 126000000000
02360 172507534121
02361 212764000000
02362 216550432545
02363 224227633144
02364 233000000000
02365 234644444524
02366 272563215170
02367 272563434623
02370 330000000000
02371 400000001000
02372 446764625162
02373 456462255162
02374 474331626360
02375 475146224560
02376 475146274560
02377 514664452460
02400 602221234227
02401 606060603300
02402 606060603360
02403 606060606060
02404 620000000000
02405 624325254760
1 KLUDGE VERSION OF .SCD PAGE 21
OTHER CONSTANTS AND VARIABLES
02406 626321636462
02407 626345227060
02410 626647633144
02411 633144432565
02412 634663633144
02413 642330215127
02414 642343462342
02415 644331626360
02416 644521442560
02417 665142633144
1 KLUDGE VERSION OF .SCD PAGE 1
POST PROCESSOR ASSEMBLY DATA
2420 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2331 H 120, 126
43 N 123, 146, 153, 161, 164, 167, 172, 203, 206, 211, 214, 217, 521, 523, 526, 532, 535
566, 620, 621, 653, 661, 663, 671, 672, 700, 702, 705, 737, 771, 774, 1011, 1017, 1030
1031, 1075, 1141, 1205, 1435, 1501, 1545, 1617, 1663, 1727, 1773, 2045, 2111
2330 V 122, 127, 136, 140
500 NQ 520
2044 OB 130, 132, 133, 135, 654, 657, 664, 667, 673, 676, 1012, 1015
1011 PQ
2215 DMQ 2217
1727 LEV 512, 771
2334 LSW 270
672 NOQ 704
1024 OUT 20
1773 POS 514, 774
2207 Q15 1007
2210 Q69 1010
13 RPL 473, 655, 665, 674, 1013
2335 RSW 271
2327 TOP 114, 474
141 XR1 124, 145, 152
2163 BCOM 531, 546
10 BZEL 256, 276, 312, 323, 334, 401, 424, 447, 556, 577, 632, 716, 750
2220 EOFC 2222
504 NXTQ 517
4 PLOT 113, 134, 142, 147, 155
2037 QPOS 503, 513, 516
2176 QWRK 767, 770
2333 TEMP 144, 151, 252, 254, 255, 257, 375, 377, 400, 402, 420, 422, 423, 425, 443, 445, 446
450, 542, 554, 567, 570, 573, 575, 576, 600, 606, 612, 613, 622, 623, 626, 630, 631
633, 641, 645, 646, 706, 707, 712, 714, 715, 717, 725, 731, 732, 740, 741, 744, 746
747, 751, 757, 763, 764
660 XR12 522, 670, 677, 1016
2 ACORE 104
2174 BELIN 2155, 2174
2160 BNAME 536, 545
2161 BPROB 525, 550
2162 BPROG 534, 552
2155 BTLIN 2174
2164 BUCLK 616, 617
2170 BUSWP 651, 652
2242 DDATE 305
7 DEFBC 253, 273, 307, 320, 331, 376, 421, 444, 553, 574, 627, 713, 745
2266 DGOOD 411, 462
2212 DMLIN 2214
2270 DSWAP 434, 463
2243 DTIME 306
2217 DUMQS 150, 675
2337 FFLAG 342, 344
12 GETTM 304
6 INVIS 131
2045 LINES 146, 653, 661, 663, 671
1 KLUDGE VERSION OF .SCD PAGE 2
POST PROCESSOR ASSEMBLY DATA
7 LOWCS 2156, 2165, 2171, 2177, 2203, 2276, 2305, 2311, 2315, 2321, 2341
522 LOWER 1020
14 LOWQS 2206, 2324, 2341
12 MAXLV 1031
2340 NCONS 111
663 NOTIN 524
1251 PLIST 175, 504
702 PLTQS 662
2043 POINT 115, 116, 475, 476
1435 PROBN 203, 523
1501 PROGN 206, 532
2211 QELIN 2175, 2211
72 QSIZE 175, 200, 1031, 1251, 1343
2175 QTLIN 2211
2202 QTMLV 735, 736
157 REGEN 1023
124 SETDP 154
5 SETPT 125
3 SGNON 110
2346 SLEEP 1022
2332 SPACE 137
1613 STNBY 225, 332
1343 ULIST 200, 506
1545 UNAME 211, 535
235 ABKGTM 72
163 ACMMND 26
221 AMXUSR 56
227 ANUSER 64
174 APLIST 37
202 APROBN 45
205 APROGN 50
160 ASTATS 23
224 ASTNBY 61
240 ASWPTM 75
166 ATIMLV 31
232 ATOTTM 67
216 AUCHRG 103
213 AUCLCK 100
177 AULIST 42
210 AUNAME 53
243 AVQLEN 107
171 AWRKTM 34
2174 BASICL 656
1615 BKGTIM 236, 353, 467
2157 BLINNM 555, 557, 560, 561, 565
2222 BOTTOM 156
15 CHNCOM 1026
1 COMLOC 21, 24, 27, 32, 35, 40, 43, 46, 51, 54, 57, 62, 65, 70, 73, 76, 101
1075 COMMND 164, 526
346 COMPCT 343
2262 DAVGQL 266
2246 DMXUSR 311, 313, 314, 317
2251 DNUSER 322, 324, 325, 330
2274 DOTHER 457, 464
2234 DSAMPL 275, 277, 300, 301, 303
1 KLUDGE VERSION OF .SCD PAGE 3
POST PROCESSOR ASSEMBLY DATA
2254 DSTNBY 333, 335, 336, 341
2214 DUMLIN 143, 666
461 DUMPCT 345
2345 GETARY 157, 162, 165, 170, 173, 176, 201, 204, 207, 212, 215, 220, 223, 226, 231, 234, 237
2347 GETLOC 242
520 LEVLUP 507
1020 LOWLUP 701
1611 MXUSRS 222, 310
553 NOTBKG 543
1030 NPLUS1 541
2342 NUMMSK 563
1612 NUSERS 230, 321
2041 OBKGTM 354, 357, 367, 435, 470
2042 OSWPTM 361, 364, 366, 412, 472
2040 OTOTTM 347, 352, 365, 370, 413, 436, 466
2344 Q15MSK
2211 QUEUEL 1014
2111 QUEUES 153, 672, 700, 1011, 1017
11 REDIGI 267
0 SETBRK 17
465 SETNXT 460
14 SGNOFF 1024
2336 SLPTIM 272, 274, 1021
1031 STATUS 161, 702
2341 SWPMSK
1616 SWPTIM 241, 360, 471
1141 TIMLEV 167, 705
2327 TOPBOT 2223, 2327
1614 TOTTIM 233, 346, 465
1663 UCHARG 217, 620
1617 UCLOCK 214, 566, 621
2223 UPRDIS 2327
2343 WRKMSK
1205 WRKTIM 172, 737
0 NO ERROR IN ABOVE ASSEMBLY.
SETFIB BCD 09/20/68 0221.0 4595 00000
1 MAD PROGRAM LISTING ... ... ... FILE SETFIB MAD 02/15/68 2132.5
-
SETFIB - WRITTEN BY ROGER ROACH 6/28/67 LM00001
LM00002
PROGRAM TO SET UP A CALL TO FIB TO SCHEDULE LM00003
A JOB TO RUN X DAYS FROM THE PRESENT DATE. LM00004
LM00005
CALLING SEQUENCE- LM00006
R SETFIB NAME LIMIT TIME XDAYS LM00007
LM00008
DEFINE UNARY OPERATOR .MQ., PRECEDENCE HIGHER THAN .ABS. *001 LM00009
MODE STRUCTURE .MQ. 1 TO 1 *002 LM00010
OUT MQ *003 LM00011
END *004 LM00012
NORMAL MODE IS INTEGER *005 LM00013
LM00014
DIMENSION TABLE(5) *006 LM00015
EQUIVALENCE (TABLE(0),FIB),(TABLE(1),NAME),(TABLE(2),LIMIT), *007 LM00016
1 (TABLE(3),TIME),(TABLE(4),DAY),(TABLE(5),F) *007 LM00017
VECTOR VALUES DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31,31 *008 LM00018
VECTOR VALUES F = 777777777777K *009 LM00019
VECTOR VALUES FIB = $ FIB$ *010 LM00020
VECTOR VALUES MASK = 7777K *011 LM00021
LM00022
NAME = COMARG.(1) *012 LM00023
LIMIT = COMARG.(2) *013 LM00024
TIME = COMARG.(3) *014 LM00025
XDAYS = COMARG.(4) *015 LM00026
TEST = COMARG.(5) *016 LM00027
WHENEVER NAME .E. F *017 LM00028
PRMESS.($SETFIB NAME LIMIT TIME XDAYS$) *018 LM00029
PRMESS.($ XDAYS IS NUMBER OF DAYS FROM TODAY,$) *019 LM00030
PRMESS.($ IF XDAYS IS MISSING, TIME IS DELTA TIME,$) *020 LM00031
PRMESS.($ I.E. THE NUMBER OF MINUTES FROM NOW.$) *021 LM00032
CHNCOM.(0) *022 LM00033
END OF CONDITIONAL *023 LM00034
WHENEVER XDAYS.E.F .AND. NAME.NE.F .AND. LIMIT.NE.F, TRANSFER TO XTIME *024 LM00035
XDAYS = BCDEC.(XDAYS) *025 LM00036
WHENEVER NAME.E.F .OR. LIMIT.E.F .OR. TIME.E.F .OR. TEST.NE.F *026 LM00037
PRMESS.($ILLEGAL FORMAT$) *027 LM00038
CHNCOM.(0) *028 LM00039
END OF CONDITIONAL *029 LM00040
LM00041
DATE = .MQ.GETIME.(0) *030 LM00042
YEAR = BCDEC.(DATE.A.MASK) *031 LM00043
WHENEVER YEAR/4 * 4 .E. YEAR, DAYS(2) = 29 *032 LM00044
MONTH = BCDEC.(DATE.RS.24) *033 LM00045
WHENEVER XDAYS.G.DAYS(MONTH) .OR. XDAYS.G.DAYS(MONTH+1) *034 LM00046
PRMESS.($XDAYS TOO LARGE.$) *035 LM00047
CHNCOM.(0) *036 LM00048
END OF CONDITIONAL *037 LM00049
DAY = BCDEC.((DATE.RS.12).A.MASK) + XDAYS *038 LM00050
WHENEVER DAY .G. DAYS(MONTH), DAY = DAY-DAYS(MONTH) *039 LM00051
TABLE(4) = DERBC.(DAY) *040 LM00052
CALFIB SCLS.(TABLE,0) *041 LM00053
NCOM.(TABLE,TABLE(1)) *042 LM00054
LM00055
IF NO XDAYS SPECIFIED, USE TIME AS XTIME LM00056
LM00057
XTIME TABLE(4) = F *043 LM00058
GETTM.(TABLE(5),TIMNOW) *044 LM00059
MINNOW= BCDEC.(TIMNOW.RS.24)*60+BCDEC.((TIMNOW.RS.12).A.MASK) *045 LM00060
XMIN = BCDEC.(TIME.RS.12)*60+BCDEC.(TIME.A.MASK) *046 LM00061
HOURS = (MINNOW+XMIN)/60 *047 LM00062
MINUTS = MINNOW + XMIN - HOURS*60 *048 LM00063
LOOP WHENEVER MINUTS .G. 60 *049 LM00064
HOURS = HOURS+1 *050 LM00065
MINUTS = MINUTS-60 *051 LM00066
TRANSFER TO LOOP *052 LM00067
END OF CONDITIONAL *053 LM00068
WHENEVER HOURS.G.24, HOURS = HOURS-24 *054 LM00069
TABLE(3) = (DERBC.(HOURS).LS.12).V.DERBC.(MINUTS) *055 LM00070
TRANSFER TO CALFIB *056 LM00071
LM00072
END OF PROGRAM *057 LM00073
MODE STRUCTURE .MQ. 1 TO 1 002 LM00010
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11101 )
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00516 TRANSFER VECTOR LENGTH 00013 PROGRAM BEGINS 00130
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
CALFIB 00022 4 F 00014 A 1 MINNOW 00046 1 TABLE 00021 A 1 XDAYS 00053 1
DATE 00025 1 HOURS 00044 1 MINUTS 00047 1 TEST 00051 1 XMIN 00054 1
DAY 00015 1 LIMIT 00017 1 MONTH 00050 1 TIME 00016 1 XTIME 00024 4
DAYS 00043 A 1 LOOP 00023 4 NAME 00020 1 TIMNOW 00052 1 YEAR 00055 1
FIB 00021 A 1 MASK 00045 A 1
0FUNCTION DICTIONARY
BCDEC 00000 1 CHNCOM 00001 1 COMARG 00002 1 DERBC 00003 1 EXIT 00004 1
GETIME 00005 1 GETTM 00006 1 .SETUP 00007 1 NCOM 00010 1 PRMESS 00011 1
SCLS 00012 1
0ABSOLUTE CONSTANTS
00067 +000000000074 00064 +000000000014 00103 -112725336060 00122 -234646604321 00126 -272421706260
00065 +000000000030 00066 +000000000035 00070 +216360606060 00100 -036026465144 00074 +314343252721
00056 +000000000000 00125 -263360606060 00104 -114644604546 00124 -246325626026 00102 -062660443145
00112 -206330256045 00110 -206031332533 00113 -206331442573 00105 -202425436321 00075 +314425603162
00076 +314527736063 00120 -226044316262 00072 +242170626031 00107 -206031266067 00127 -336060606060
00114 -206346242170 00116 -226026514644 00101 -062660242170 00123 -244422255160 00117 -226031626045
00111 -206067242170 00073 +242170626060 00121 -233144256067 00077 -033144316360 00106 -204521442560
00115 -222563263122 00063 +000000000005 00062 +000000000004 00061 +000000000003 00060 +000000000002
00057 +000000000001 00071 +233000000000
0STATEMENT DICTIONARY
00022 TXL -300357000354 00023 TXL -300456000452 00024 TXL -300364000362
0PROGRAM
DEFINE UNARY OPERATOR .MQ., PRECEDENCE HIGHER THAN .ABS. 001 LM00009
MODE STRUCTURE .MQ. 1 TO 1 002 LM00010
00130 TSX +0 07400 4 00007
N'R 005 LM00013
D'N TABLE(5) 006 LM00015
E'E (TABLE(0),FIB),(TABLE(1),NAME),(TABLE(2),LIMIT), 007 LM00016
1 (TABLE(3),TIME),(TABLE(4),DAY),(TABLE(5),F) 007 LM00017
V'S DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31,31 008 LM00018
00026 +0 00000 0 00037 00027 +0 00000 0 00037 00030 +0 00000 0 00036 00031 +0 00000 0 00037
00032 +0 00000 0 00036 00033 +0 00000 0 00037 00034 +0 00000 0 00037 00035 +0 00000 0 00036
00036 +0 00000 0 00037 00037 +0 00000 0 00036 00040 +0 00000 0 00037 00041 +0 00000 0 00034
00042 +0 00000 0 00037
V'S F = 777777777777K 009 LM00019
00014 -3 77777 7 77777
V'S FIB = $ FIB$ 010 LM00020
00021 -2 06060 2 63122
V'S MASK = 7777K 011 LM00021
00045 +0 00000 0 07777
NAME = COMARG.(1) 012 LM00023
00131 TSX +0 07400 4 00002 00132 TXH +3 00000 0 00057 00133 STO +0 60100 0 00020
LIMIT = COMARG.(2) 013 LM00024
00134 TSX +0 07400 4 00002 00135 TXH +3 00000 0 00060 00136 STO +0 60100 0 00017
TIME = COMARG.(3) 014 LM00025
00137 TSX +0 07400 4 00002 00140 TXH +3 00000 0 00061 00141 STO +0 60100 0 00016
XDAYS = COMARG.(4) 015 LM00026
00142 TSX +0 07400 4 00002 00143 TXH +3 00000 0 00062 00144 STO +0 60100 0 00053
TEST = COMARG.(5) 016 LM00027
00145 TSX +0 07400 4 00002 00146 TXH +3 00000 0 00063 00147 STO +0 60100 0 00051
W'R NAME .E. F 017 LM00028
00150 CLA +0 50000 0 00020 00151 SUB +0 40200 0 00014 00152 TNZ -0 10000 0 00213
PRMESS.($SETFIB NAME LIMIT TIME XDAYS$) 018 LM00029
00153 TSX +0 07400 4 00011 00154 TXH +3 00000 0 00115 00155 TXH +3 00000 0 00106 00156 TXH +3 00000 0 00077
00157 TXH +3 00000 0 00121 00160 TXH +3 00000 0 00073
PRMESS.($ XDAYS IS NUMBER OF DAYS FROM TODAY,$) 019 LM00030
00161 TSX +0 07400 4 00011 00162 TXH +3 00000 0 00111 00163 TXH +3 00000 0 00117 00164 TXH +3 00000 0 00123
00165 TXH +3 00000 0 00101 00166 TXH +3 00000 0 00116 00167 TXH +3 00000 0 00114 00170 TXH +3 00000 0 00127
PRMESS.($ IF XDAYS IS MISSING, TIME IS DELTA TIME,$) 020 LM00031
00171 TSX +0 07400 4 00011 00172 TXH +3 00000 0 00107 00173 TXH +3 00000 0 00072 00174 TXH +3 00000 0 00120
00175 TXH +3 00000 0 00076 00176 TXH +3 00000 0 00075 00177 TXH +3 00000 0 00105 00200 TXH +3 00000 0 00113
PRMESS.($ I.E. THE NUMBER OF MINUTES FROM NOW.$) 021 LM00032
00201 TSX +0 07400 4 00011 00202 TXH +3 00000 0 00110 00203 TXH +3 00000 0 00112 00204 TXH +3 00000 0 00123
00205 TXH +3 00000 0 00102 00206 TXH +3 00000 0 00124 00207 TXH +3 00000 0 00104 00210 TXH +3 00000 0 00125
CHNCOM.(0) 022 LM00033
00211 TSX +0 07400 4 00001 00212 TXH +3 00000 0 00056
E'L 023 LM00034
W'R XDAYS.E.F .AND. NAME.NE.F .AND. LIMIT.NE.F, T'O XTIME 024 LM00035
00213 CLA +0 50000 0 00017 00214 SUB +0 40200 0 00014 00215 TZE +0 10000 0 00225 00216 CLA +0 50000 0 00020
00217 SUB +0 40200 0 00014 00220 TZE +0 10000 0 00225 00221 CLA +0 50000 0 00053 00222 SUB +0 40200 0 00014
00223 TNZ -0 10000 0 00225 00224 TRA +0 02000 0 00024
XDAYS = BCDEC.(XDAYS) 025 LM00036
00225 TSX +0 07400 4 00000 00226 TXH +3 00000 0 00053 00227 STO +0 60100 0 00053
W'R NAME.E.F .OR. LIMIT.E.F .OR. TIME.E.F .OR. TEST.NE.F 026 LM00037
00230 CLA +0 50000 0 00051 00231 SUB +0 40200 0 00014 00232 TNZ -0 10000 0 00244 00233 CLA +0 50000 0 00016
00234 SUB +0 40200 0 00014 00235 TZE +0 10000 0 00244 00236 CLA +0 50000 0 00017 00237 SUB +0 40200 0 00014
00240 TZE +0 10000 0 00244 00241 CLA +0 50000 0 00020 00242 SUB +0 40200 0 00014 00243 TNZ -0 10000 0 00252
PRMESS.($ILLEGAL FORMAT$) 027 LM00038
00244 TSX +0 07400 4 00011 00245 TXH +3 00000 0 00074 00246 TXH +3 00000 0 00100 00247 TXH +3 00000 0 00070
CHNCOM.(0) 028 LM00039
00250 TSX +0 07400 4 00001 00251 TXH +3 00000 0 00056
E'L 029 LM00040
DATE = .MQ.GETIME.(0) 030 LM00042
00252 TSX +0 07400 4 00005 00253 TXH +3 00000 0 00056 00254 STQ -0 60000 0 00025
YEAR = BCDEC.(DATE.A.MASK) 031 LM00043
00255 CAL -0 50000 0 00025 00256 ANA -0 32000 0 00045 00257 SLW +0 60200 0 00512 00260 TSX +0 07400 4 00000
00261 TXH +3 00000 0 00512 00262 STO +0 60100 0 00055
W'R YEAR/4 * 4 .E. YEAR, DAYS(2) = 29 032 LM00044
00263 LDQ +0 56000 0 00055 00264 PXD -0 75400 0 00000 00265 LLS +0 76300 0 00000 00266 DVP +0 22100 0 00062
00267 MPY +0 20000 0 00062 00270 XCA +0 13100 0 00000 00271 SUB +0 40200 0 00055 00272 TNZ -0 10000 0 00275
00273 CLA +0 50000 0 00066 00274 STO +0 60100 0 00041
MONTH = BCDEC.(DATE.RS.24) 033 LM00045
00275 CAL -0 50000 0 00065 00276 STA +0 62100 0 00300 00277 CAL -0 50000 0 00025 00300 LGR -0 76500 0 00000
00301 SLW +0 60200 0 00512 00302 TSX +0 07400 4 00000 00303 TXH +3 00000 0 00512 00304 STO +0 60100 0 00050
W'R XDAYS.G.DAYS(MONTH) .OR. XDAYS.G.DAYS(MONTH+1) 034 LM00046
00305 CLA +0 50000 0 00050 00306 ADD +0 40000 0 00057 00307 PAX +0 73400 2 00000 00310 CLA +0 50000 0 00053
00311 SUB +0 40200 2 00043 00312 TZE +0 10000 0 00314 00313 TPL +0 12000 0 00321 00314 LXA +0 53400 2 00050
00315 CLA +0 50000 0 00053 00316 SUB +0 40200 2 00043 00317 TZE +0 10000 0 00327 00320 TMI -0 12000 0 00327
PRMESS.($XDAYS TOO LARGE.$) 035 LM00047
00321 TSX +0 07400 4 00011 00322 TXH +3 00000 0 00126 00323 TXH +3 00000 0 00122 00324 TXH +3 00000 0 00103
CHNCOM.(0) 036 LM00048
00325 TSX +0 07400 4 00001 00326 TXH +3 00000 0 00056
E'L 037 LM00049
DAY = BCDEC.((DATE.RS.12).A.MASK) + XDAYS 038 LM00050
00327 CAL -0 50000 0 00064 00330 STA +0 62100 0 00332 00331 CAL -0 50000 0 00025 00332 LGR -0 76500 0 00000
00333 ANA -0 32000 0 00045 00334 SLW +0 60200 0 00512 00335 TSX +0 07400 4 00000 00336 TXH +3 00000 0 00512
00337 ADD +0 40000 0 00053 00340 STO +0 60100 0 00015
W'R DAY .G. DAYS(MONTH), DAY = DAY-DAYS(MONTH) 039 LM00051
00341 LXA +0 53400 2 00050 00342 CLA +0 50000 0 00015 00343 SUB +0 40200 2 00043 00344 TZE +0 10000 0 00351
00345 TMI -0 12000 0 00351 00346 CLA +0 50000 0 00015 00347 SUB +0 40200 2 00043 00350 STO +0 60100 0 00015
TABLE(4) = DERBC.(DAY) 040 LM00052
00351 TSX +0 07400 4 00003 00352 TXH +3 00000 0 00015 00353 STO +0 60100 0 00015
CALFIB SCLS.(TABLE,0) 041 LM00053
00354 TSX +0 07400 4 00012 00355 TXH +3 00000 0 00021 00356 TXH +3 00000 0 00056
NCOM.(TABLE,TABLE(1)) 042 LM00054
00357 TSX +0 07400 4 00010 00360 TXH +3 00000 0 00021 00361 TXH +3 00000 0 00020
XTIME TABLE(4) = F 043 LM00058
00362 CLA +0 50000 0 00014 00363 STO +0 60100 0 00015
GETTM.(TABLE(5),TIMNOW) 044 LM00059
00364 TSX +0 07400 4 00006 00365 TXH +3 00000 0 00014 00366 TXH +3 00000 0 00052
MINNOW= BCDEC.(TIMNOW.RS.24)*60+BCDEC.((TIMNOW.RS.12).A.MASK) 045 LM00060
00367 CAL -0 50000 0 00064 00370 STA +0 62100 0 00372 00371 CAL -0 50000 0 00052 00372 LGR -0 76500 0 00000
00373 ANA -0 32000 0 00045 00374 SLW +0 60200 0 00512 00375 TSX +0 07400 4 00000 00376 TXH +3 00000 0 00512
00377 STO +0 60100 0 00512 00400 CAL -0 50000 0 00065 00401 STA +0 62100 0 00403 00402 CAL -0 50000 0 00052
00403 LGR -0 76500 0 00000 00404 SLW +0 60200 0 00513 00405 TSX +0 07400 4 00000 00406 TXH +3 00000 0 00513
00407 XCA +0 13100 0 00000 00410 MPY +0 20000 0 00067 00411 XCA +0 13100 0 00000 00412 ADD +0 40000 0 00512
00413 STO +0 60100 0 00046
XMIN = BCDEC.(TIME.RS.12)*60+BCDEC.(TIME.A.MASK) 046 LM00061
00414 CAL -0 50000 0 00016 00415 ANA -0 32000 0 00045 00416 SLW +0 60200 0 00513 00417 TSX +0 07400 4 00000
00420 TXH +3 00000 0 00513 00421 STO +0 60100 0 00513 00422 CAL -0 50000 0 00064 00423 STA +0 62100 0 00425
00424 CAL -0 50000 0 00016 00425 LGR -0 76500 0 00000 00426 SLW +0 60200 0 00512 00427 TSX +0 07400 4 00000
00430 TXH +3 00000 0 00512 00431 XCA +0 13100 0 00000 00432 MPY +0 20000 0 00067 00433 XCA +0 13100 0 00000
00434 ADD +0 40000 0 00513 00435 STO +0 60100 0 00054
HOURS = (MINNOW+XMIN)/60 047 LM00062
00436 CLA +0 50000 0 00046 00437 ADD +0 40000 0 00054 00440 LRS +0 76500 0 00043 00441 DVP +0 22100 0 00067
00442 STQ -0 60000 0 00044
MINUTS = MINNOW + XMIN - HOURS*60 048 LM00063
00443 LDQ +0 56000 0 00044 00444 MPY +0 20000 0 00067 00445 STQ -0 60000 0 00513 00446 CLA +0 50000 0 00046
00447 ADD +0 40000 0 00054 00450 SUB +0 40200 0 00513 00451 STO +0 60100 0 00047
LOOP W'R MINUTS .G. 60 049 LM00064
00452 CLA +0 50000 0 00047 00453 SUB +0 40200 0 00067 00454 TZE +0 10000 0 00465 00455 TMI -0 12000 0 00465
HOURS = HOURS+1 050 LM00065
00456 CLA +0 50000 0 00044 00457 ADD +0 40000 0 00057 00460 STO +0 60100 0 00044
MINUTS = MINUTS-60 051 LM00066
00461 CLA +0 50000 0 00047 00462 SUB +0 40200 0 00067 00463 STO +0 60100 0 00047
T'O LOOP 052 LM00067
00464 TRA +0 02000 0 00023
E'L 053 LM00068
W'R HOURS.G.24, HOURS = HOURS-24 054 LM00069
00465 CLA +0 50000 0 00044 00466 SUB +0 40200 0 00065 00467 TZE +0 10000 0 00474 00470 TMI -0 12000 0 00474
00471 CLA +0 50000 0 00044 00472 SUB +0 40200 0 00065 00473 STO +0 60100 0 00044
TABLE(3) = (DERBC.(HOURS).LS.12).V.DERBC.(MINUTS) 055 LM00070
00474 TSX +0 07400 4 00003 00475 TXH +3 00000 0 00047 00476 STO +0 60100 0 00513 00477 TSX +0 07400 4 00003
00500 TXH +3 00000 0 00044 00501 STO +0 60100 0 00512 00502 CAL -0 50000 0 00064 00503 STA +0 62100 0 00505
00504 CAL -0 50000 0 00512 00505 ALS +0 76700 0 00000 00506 ORA -0 50100 0 00513 00507 SLW +0 60200 0 00016
T'O CALFIB 056 LM00071
00510 TRA +0 02000 0 00022
E'M 057 LM00073
00511 TSX +0 07400 4 00004
SORT BCD 09/20/68 0221.0 23901 00000
NSORT BCD 08/10/68 1410.8 17913 00000
1 SORT FAP PAGE 1
INSERT MRC3A1
* MRC3A1 -- MACROS BY MICHAEL R COMER -- LAST MODIFIED 2/10/67
*
* TABLE OF CONTENTS
*
* BUFFER
* CHFILE
* CLOSE
* DELFIL
* ENDMAC
* ERRMAC
* FRECOR
* FSTATE
* FWAIT
* GETCOM
* GNOCOM
* MEMCOM
* MEMLOC
* MEMOCT
* MEMORY
* OPEN
* PRCOMT
* PTHIFF
* RDFILE
* RDWAIT
* RESETX
* SAVEX
* TIMER
* TRFILE
* WRFILE
* WRFLX
* WRWAIT
*
PCC
PMC
NOCRS
*
BUFFER MACRO NAME1,NAME2,LOC
TSX $BUFFER,4
PTH NAME1
PTH NAME2
PTH LOC,,432
BUFFER END
*
CHFILE MACRO OLDNM1,OLDNM2,NEWMOD,NEWNM1,NEWNM2,IOERR
TSX $CHFILE,4
PTH OLDNM1
PTH OLDNM2
PTHIFF NEWMOD,=-0
PTHIFF NEWNM1,=-0
PTHIFF NEWNM2,=-0
ERRMAC IOERR
CHFILE END
*
CLOSE MACRO NAME1,NAME2,IOERR
TSX $CLOSE,4
1 SORT FAP PAGE 2
PTH NAME1
PTH NAME2
ERRMAC IOERR
CLOSE END
*
DELFIL MACRO NAME1,NAME2,IOERR
TSX $DELFIL,4
PTH NAME1
PTH NAME2
ERRMAC IOERR
DELFIL END
*
ENDMAC MACRO LIST1,LIST2
IRP LIST1
LIST1 PZE
IRP
IRP LIST2
LIST2 FRECOR 432
IRP
MEMCOM
MEMOCT
MEMLOC
IOERRR SXA *+3,4
TSX $PRNTER,4
TSX $DORMNT,4
AXT **,4
TRA 0,4
EOFCT PZE
ERCODE PZE
'END
ENDMAC END
*
ERRMAC MACRO IOERR
IFF 0,IOERR
PTH IOERR
IFF 1,IOERR
PTH IOERRR
PTH ERCODE
ERRMAC END
*
MACRO
LOC FRECOR SIZE
IFF ..BOOL,A,Z
..TOPC SET 32767
LOC SET ..TOPC-SIZE+1
..TOPC SET LOC-1
..BOOL SET 1
FRECOR END
*
FSTATE MACRO NAME1,NAME2,RESULT,IOERR
TSX $FSTATE,4
PTH NAME1
PTH NAME2
PTH RESULT,,8
ERRMAC IOERR
FSTATE END
1 SORT FAP PAGE 3
*
FWAIT MACRO NAME1,NAME2
TSX $FWAIT,4
PTH NAME1
PTH NAME2
FWAIT END
*
GETCOM MACRO N,COM,NOCOM
TSX $GETCOM,4
PZE N
LAS =O777777777777
TRA *+2
TRA NOCOM
SLW COM
GETCOM END
*
MEMCOM MACRO
MEMERR XCL
TSX ...OCT,4
SLW ..MESS+3
LDQ LWFSTG
TSX ...OCT,4
SLW ..MESS+8
WRFLX ..MESS,9
TSX $DORMNT,4
TSX $DEAD,4
..MESS BCI 9,MEMORY BOUND = , LOWEST FREE STORAGE =
MEMCOM END
*
MEMLOC MACRO
LWFSTG PZE ..TOPC+1
MEMLOC END
*
MEMOCT MACRO
...OCT RQL 18
AXT 6,2
ZAC
LGL 3
TNZ *+2
TIX *-2,2,1
ORA =H 0
TRA *+3
ALS 3
LGL 3
TIX *-2,2,1
TRA 1,4
MEMOCT END
*
MEMORY MACRO
TSX $GETMEM,4
LAS LWFSTG
TRA MEMERR
TRA MEMERR
CAL =O77777
TSX $SETMEM,4
MEMORY END
1 SORT FAP PAGE 4
*
OPEN MACRO NAME1,NAME2,STATUS,IOERR
TSX $OPEN,4
PTH =H'STATUS
PTH NAME1
PTH NAME2
PTH =0
PTH =2
ERRMAC IOERR
OPEN END
*
PRCOMT MACRO N,MESS
TSX $.PCOMT,4
PTH N
BCI N,MESS
PRCOMT END
*
PTHIFF MACRO ON,OFF
IFF 0,ON
PTH ON
IFF 1,ON
PTH OFF
PTHIFF END
*
RDFILE MACRO NAME1,NAME2,RELLOC,PTHADD,BEGLOC,LEN,EOF,IOERR
TSX $RDFILE,4
PTH NAME1
PTH NAME2
PTHIFF RELLOC,=0
PTHADD PTH BEGLOC,,LEN
PTH EOF
PTH EOFCT
ERRMAC IOERR
RDFILE END
*
RDWAIT MACRO NAME1,NAME2,RELLOC,PTHADD,BEGLOC,LEN,EOF,IOERR
TSX $RDWAIT,4
PTH NAME1
PTH NAME2
PTHIFF RELLOC,=0
PTHADD PTH BEGLOC,,LEN
PTH EOF
PTH EOFCT
ERRMAC IOERR
RDWAIT END
*
RESETX MACRO X
X AXT **,1
AXT **,2
AXT **,3
AXT **,4
AXT **,5
AXT **,6
AXT **,7
RESETX END
*
1 SORT FAP PAGE 5
SAVEX MACRO X
SXA X,1
SXA X+1,2
SXA X+2,3
SXA X+3,4
SXA X+4,5
SXA X+5,6
SXA X+6,7
SAVEX END
*
TIMER MACRO MXTIME,..TIME
ORGCRS
TSX $TIMER,4
PTH *+4
PZE *+4
..TIME PZE
TRA *+32
PZE MXTIME*60
TSX $JOBTM,4
PTH ..TIME
LDQ ..TIME
ZAC
DVP =6
STQ ..TIME
TSX $DERBC,4
PZE ..TIME
LGR 6
ALS 6
ORA =H00000.
LGL 6
SLW ..TIME
TSX $BZEL,4
PZE ..TIME
STO ..TIME
TSX $WRFLXA,4
PZE ..TIME,,1
PRCOMT 5,( SECONDS HAVE ELAPSED.)
TSX $TIMER,4
PTH *+3
PZE *-27
TRA $RSTRTN
PZE MXTIME*60
NOCRS
TIMER END
*
TRFILE MACRO NAME1,NAME2,RELLOC,IOERR
TSX $TRFILE,4
PTH NAME1
PTH NAME2
PTHIFF RELLOC,=0
ERRMAC IOERR
TRFILE END
*
WRFILE MACRO NAME1,NAME2,RELLOC,PTHADD,BEGLOC,LENGTH,IOERR,EOF
TSX $WRFILE,4
PTH NAME1
1 SORT FAP PAGE 6
PTH NAME2
PTHIFF RELLOC,=0
PTHADD PTH BEGLOC,,LENGTH
PTHIFF EOF,=-0
PTH EOFCT
ERRMAC IOERR
WRFILE END
*
WRFLX MACRO LOC,N,A
TSX $WRFLX'A',4
PTH LOC,,N
WRFLX END
*
WRWAIT MACRO NAME1,NAME2,RELLOC,PTHADD,BEGLOC,LENGTH,IOERR,EOF
TSX $WRWAIT,4
PTH NAME1
PTH NAME2
PTHIFF RELLOC,=0
PTHADD PTH BEGLOC,,LENGTH
PTHIFF EOF,=-0
PTH EOFCT
ERRMAC IOERR
WRWAIT END
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
00002 272563234644 GETCOM
00003 266263216325 FSTATE
00004 464725456060 OPEN
00005 512466213163 RDWAIT
00006 234346622560 CLOSE
00007 222324252360 BCDEC
00010 663046214431 WHOAMI
00011 272563263143 GETFIL
00012 226426262551 BUFFER
00013 264362516367 FLSRTX
00014 264362516345 FLSRTN
00015 442551272567 MERGEX
00016 442551272545 MERGEN
00017 665166213163 WRWAIT
00020 242543263143 DELFIL
00021 665126436721 WRFLXA
00022 512426436760 RDFLX
00023 233026314325 CHFILE
00024 665126436760 WRFLX
00025 233045234644 CHNCOM
00026 475145632551 PRNTER
00027 244651444563 DORMNT
00030 242521246060 DEAD
20700 LENGTH EQU 432*20
00031 0760 00 0 00016 LMTM
00032 MEMORY
00032 0074 00 4 00000 TSX $GETMEM,4 .001
00033 -0340 00 0 01220 LAS LWFSTG .001
1 SORT FAP PAGE 7
00034 0020 00 0 01161 TRA MEMERR .001
00035 0020 00 0 01161 TRA MEMERR .001
00036 -0500 00 0 01242 CAL =O77777 .001
00037 0074 00 4 00001 TSX $SETMEM,4 .001
00040 GETCOM 1,FILNAM,NOARG
00040 0074 00 4 00002 TSX $GETCOM,4 .001
00041 0 00000 0 00001 PZE 1 .001
00042 -0340 00 0 01255 LAS =O777777777777 .001
00043 0020 00 0 00045 TRA *+2 .001
00044 0020 00 0 00774 TRA NOARG .001
00045 0602 00 0 01017 SLW FILNAM .001
00046 GETCOM 2,NAME1,ENDARG
00046 0074 00 4 00002 TSX $GETCOM,4 .001
00047 0 00000 0 00002 PZE 2 .001
00050 -0340 00 0 01255 LAS =O777777777777 .001
00051 0020 00 0 00053 TRA *+2 .001
00052 0020 00 0 00104 TRA ENDARG .001
00053 0602 00 0 01020 SLW NAME1 .001
00054 GETCOM 3,NAME2,ENDARG
00054 0074 00 4 00002 TSX $GETCOM,4 .001
00055 0 00000 0 00003 PZE 3 .001
00056 -0340 00 0 01255 LAS =O777777777777 .001
00057 0020 00 0 00061 TRA *+2 .001
00060 0020 00 0 00104 TRA ENDARG .001
00061 0602 00 0 01021 SLW NAME2 .001
00062 GETCOM 4,NAME3,ENDARG
00062 0074 00 4 00002 TSX $GETCOM,4 .001
00063 0 00000 0 00004 PZE 4 .001
00064 -0340 00 0 01255 LAS =O777777777777 .001
00065 0020 00 0 00067 TRA *+2 .001
00066 0020 00 0 00104 TRA ENDARG .001
00067 0602 00 0 01022 SLW NAME3 .001
00070 GETCOM 5,NAME4,ENDARG
00070 0074 00 4 00002 TSX $GETCOM,4 .001
00071 0 00000 0 00005 PZE 5 .001
00072 -0340 00 0 01255 LAS =O777777777777 .001
00073 0020 00 0 00075 TRA *+2 .001
00074 0020 00 0 00104 TRA ENDARG .001
00075 0602 00 0 01023 SLW NAME4 .001
00076 GETCOM 6,REV,ENDARG
00076 0074 00 4 00002 TSX $GETCOM,4 .001
00077 0 00000 0 00006 PZE 6 .001
00100 -0340 00 0 01255 LAS =O777777777777 .001
00101 0020 00 0 00103 TRA *+2 .001
00102 0020 00 0 00104 TRA ENDARG .001
00103 0602 00 0 01045 SLW REV .001
00104 ENDARG FSTATE FILNAM,SRTQST,FSTBUF,NOQST
00104 0074 00 4 00003 TSX $FSTATE,4 .001
00105 3 00000 0 01017 PTH FILNAM .001
00106 3 00000 0 01024 PTH SRTQST .001
00107 3 00010 0 01025 PTH FSTBUF,,8 .001
00110 ERRMAC NOQST .001
IFF 0,NOQST .002
00110 3 00000 0 00776 PTH NOQST .002
IFF 1,NOQST .002
PTH IOERRR .002
1 SORT FAP PAGE 8
00111 3 00000 0 01227 PTH ERCODE .002
00112 -0500 00 0 01025 CAL FSTBUF
00113 -0340 00 0 01241 LAS =1308
00114 0020 00 0 00764 TRA TOLONG
00115 0020 00 0 00116 TRA *+1
00116 0734 00 4 00000 PAX ,4
00117 -0634 00 4 00137 SXD AD1,4
00120 -0500 00 0 01042 CAL EQRQ
00121 0402 00 0 01025 SUB FSTBUF
00122 0621 00 0 00137 STA AD1
00123 OPEN FILNAM,SRTQST,R
00123 0074 00 4 00004 TSX $OPEN,4 .001
00124 3 00000 0 01245 PTH =HR .001
00125 3 00000 0 01017 PTH FILNAM .001
00126 3 00000 0 01024 PTH SRTQST .001
00127 3 00000 0 01230 PTH =0 .001
00130 3 00000 0 01232 PTH =2 .001
00131 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00131 3 00000 0 01221 PTH IOERRR .002
00132 3 00000 0 01227 PTH ERCODE .002
00133 RDWAIT FILNAM,SRTQST,=0,AD1
00133 0074 00 4 00005 TSX $RDWAIT,4 .001
00134 3 00000 0 01017 PTH FILNAM .001
00135 3 00000 0 01024 PTH SRTQST .001
00136 PTHIFF =0,=0 .001
IFF 0,=0 .002
00136 3 00000 0 01230 PTH =0 .002
IFF 1,=0 .002
PTH =0 .002
00137 3 00000 0 00000 AD1 PTH ,, .001
00140 3 00000 0 00000 PTH .001
00141 3 00000 0 01226 PTH EOFCT .001
00142 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00142 3 00000 0 01221 PTH IOERRR .002
00143 3 00000 0 01227 PTH ERCODE .002
00144 CLOSE FILNAM,SRTQST
00144 0074 00 4 00006 TSX $CLOSE,4 .001
00145 3 00000 0 01017 PTH FILNAM .001
00146 3 00000 0 01024 PTH SRTQST .001
00147 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00147 3 00000 0 01221 PTH IOERRR .002
00150 3 00000 0 01227 PTH ERCODE .002
00151 0774 00 1 00006 AXT 6,1
00152 0534 00 3 01025 LXA FSTBUF,3
00153 0560 00 0 01251 LDQ =H
00154 0600 00 0 01043 STZ FIRST
00155 -0500 00 3 77112 LOP1 CAL ENDR,3
1 SORT FAP PAGE 9
00156 -0340 00 0 01253 LAS =O777777000000
00157 0020 00 0 00246 TRA SKIP1
00160 0020 00 0 00246 TRA SKIP1
00161 -0130 00 0 00000 XCL
00162 0774 00 2 00006 AXT 6,2
00163 0602 00 1 77121 LOP4 SLW QST+6,1
00164 -0763 00 0 00006 LGL 6
00165 0044 00 0 00000 PAI
00166 0056 00 000060 RNT 60
00167 0020 00 0 00201 TRA DATA
00170 0054 00 000017 RFT 17
00171 0020 00 0 00201 TRA DATA
00172 -0520 00 0 01043 NZT FIRST
00173 0020 00 0 00216 TRA CONTIN
00174 0600 00 0 01043 STZ FIRST
00175 -0500 00 0 01251 CAL =H
00176 -2 00001 1 01000 TNX ILLFRM,1,1
00177 2 00001 2 00163 TIX LOP4,2,1
00200 0020 00 0 00217 TRA ENDWRD
00201 -0625 00 0 01043 DATA STL FIRST
00202 0056 00 000073 RNT 73
00203 0020 00 0 00216 TRA CONTIN
00204 0054 00 000004 RFT 4
00205 0020 00 0 00216 TRA CONTIN
00206 3 00002 1 00762 TXH INSUF,1,2
00207 -0600 00 0 01067 STQ SAVQ
00210 0074 00 4 00007 TSX $BCDEC,4
00211 0 00000 0 77117 PZE QST+4
00212 0601 00 0 77117 STO QST+4
00213 0774 00 1 00661 AXT 433,1
00214 0560 00 0 01067 LDQ SAVQ
00215 0020 00 0 00243 TRA SKIPIN
00216 2 00001 2 00163 CONTIN TIX LOP4,2,1
00217 -0130 00 0 00000 ENDWRD XCL
00220 2 00001 3 00155 TIX LOP1,3,1
00221 0020 00 0 00760 TRA INSUF1
00222 -0500 00 3 77112 LOP2 CAL ENDR,3
00223 -0340 00 0 01253 LAS =O777777000000
00224 0020 00 0 00272 TRA SKIP2
00225 0020 00 0 00272 TRA SKIP2
00226 0774 00 2 00006 LOP3IN AXT 6,2
00227 -0130 00 0 00000 XCL
00230 -0754 00 0 00000 LOP3 ZAC
00231 -0763 00 0 00003 LGL 3
00232 -0100 00 0 00251 TNZ SKIP3
00233 0600 00 0 01066 STZ BREAK2
00234 -0520 00 0 01044 NZT BREAK
00235 0020 00 0 00240 TRA NOBRK
00236 0600 00 0 01044 STZ BREAK
00237 -2 00001 1 00764 TNX TOLONG,1,1
00240 -0500 00 1 00002 NOBRK CAL QST+439,1
00241 -0763 00 0 00003 LGL 3
00242 0602 00 1 00002 SLW QST+439,1
00243 2 00001 2 00230 SKIPIN TIX LOP3,2,1
00244 2 00001 3 00222 TIX LOP2,3,1
00245 0020 00 0 00275 TRA ALL
1 SORT FAP PAGE 10
00246 0560 00 0 01251 SKIP1 LDQ =H
00247 2 00001 3 00155 TIX LOP1,3,1
00250 0020 00 0 00762 TRA INSUF
00251 -0763 00 0 00003 SKIP3 LGL 3
00252 0600 00 0 01044 STZ BREAK
00253 0402 00 0 01237 SUB =O57
00254 0100 00 0 00263 TZE BK
00255 0402 00 0 01231 SUB =1
00256 0100 00 0 00263 TZE BK
00257 -0625 00 0 01065 STL MFIRST
00260 -0625 00 0 01066 STL BREAK2
00261 2 00001 1 00243 TIX SKIPIN,1,1
00262 0020 00 0 00764 TRA TOLONG
00263 0520 00 0 01066 BK ZET BREAK2
00264 0020 00 0 00243 TRA SKIPIN
00265 -0500 00 0 01065 CAL MFIRST
00266 -0625 00 0 01065 STL MFIRST
00267 0100 00 0 00243 TZE SKIPIN
00270 -0625 00 0 01044 STL BREAK
00271 0020 00 0 00243 TRA SKIPIN
00272 0600 00 0 01044 SKIP2 STZ BREAK
00273 -2 00001 1 00764 TNX TOLONG,1,1
00274 0020 00 0 00244 TRA SKIPIN+1
00275 0756 00 1 00000 ALL PCA ,1
00276 0361 00 0 01240 ACL =434
00277 0621 00 0 01035 STA MSKDAT
00300 0774 00 4 00004 AXT 4,4
00301 -0500 00 4 01024 XARG CAL ENDNAM,4
00302 0100 00 0 00312 TZE XSKIP
00303 -0340 00 0 01250 LAS =H 0
00304 0020 00 0 00311 TRA XSTO
00305 0020 00 0 00312 TRA XSKIP
00306 -0340 00 0 01247 LAS =H -0
00307 0020 00 0 00311 TRA XSTO
00310 0020 00 0 00312 TRA XSKIP
00311 0602 00 4 77117 XSTO SLW QST+4,4
00312 2 00001 4 00301 XSKIP TIX XARG,4,1
00313 -0500 00 0 01045 CAL REV
00314 0100 00 0 00316 TZE *+2
00315 0602 00 0 77120 SLW QST+5
00316 0074 00 4 00010 TSX $WHOAMI,4
00317 0 00002 0 01040 PZE WHO,,2
00320 LOOP1 FSTATE MERGE,FILE1,FSTBUF,ERR1
00320 0074 00 4 00003 TSX $FSTATE,4 .001
00321 3 00000 0 01041 PTH MERGE .001
00322 3 00000 0 01036 PTH FILE1 .001
00323 3 00010 0 01025 PTH FSTBUF,,8 .001
00324 ERRMAC ERR1 .001
IFF 0,ERR1 .002
00324 3 00000 0 00332 PTH ERR1 .002
IFF 1,ERR1 .002
PTH IOERRR .002
00325 3 00000 0 01227 PTH ERCODE .002
00326 0074 00 4 00011 TSX $GETFIL,4
00327 3 00000 0 01036 PTH FILE1
00330 0601 00 0 01036 STO FILE1
1 SORT FAP PAGE 11
00331 0020 00 0 00320 TRA LOOP1
00332 0074 00 4 00011 ERR1 TSX $GETFIL,4
00333 3 00000 0 01036 PTH FILE1
00334 0601 00 0 01037 STO FILE2
00335 LOOP2 FSTATE MERGE,FILE2,FSTBUF,ERR2
00335 0074 00 4 00003 TSX $FSTATE,4 .001
00336 3 00000 0 01041 PTH MERGE .001
00337 3 00000 0 01037 PTH FILE2 .001
00340 3 00010 0 01025 PTH FSTBUF,,8 .001
00341 ERRMAC ERR2 .001
IFF 0,ERR2 .002
00341 3 00000 0 00347 PTH ERR2 .002
IFF 1,ERR2 .002
PTH IOERRR .002
00342 3 00000 0 01227 PTH ERCODE .002
00343 0074 00 4 00011 TSX $GETFIL,4
00344 3 00000 0 01037 PTH FILE2
00345 0601 00 0 01037 STO FILE2
00346 0020 00 0 00335 TRA LOOP2
00347 ERR2 OPEN MERGE,FILE1,RW
00347 0074 00 4 00004 TSX $OPEN,4 .001
00350 3 00000 0 01246 PTH =HRW .001
00351 3 00000 0 01041 PTH MERGE .001
00352 3 00000 0 01036 PTH FILE1 .001
00353 3 00000 0 01230 PTH =0 .001
00354 3 00000 0 01232 PTH =2 .001
00355 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00355 3 00000 0 01221 PTH IOERRR .002
00356 3 00000 0 01227 PTH ERCODE .002
00357 OPEN MERGE,FILE2,RW
00357 0074 00 4 00004 TSX $OPEN,4 .001
00360 3 00000 0 01246 PTH =HRW .001
00361 3 00000 0 01041 PTH MERGE .001
00362 3 00000 0 01037 PTH FILE2 .001
00363 3 00000 0 01230 PTH =0 .001
00364 3 00000 0 01232 PTH =2 .001
00365 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00365 3 00000 0 01221 PTH IOERRR .002
00366 3 00000 0 01227 PTH ERCODE .002
00367 BUFFER MERGE,FILE1,BUFF1
00367 0074 00 4 00012 TSX $BUFFER,4 .001
00370 3 00000 0 01041 PTH MERGE .001
00371 3 00000 0 01036 PTH FILE1 .001
00372 3 00660 0 73576 PTH BUFF1,,432 .001
00373 BUFFER MERGE,FILE2,BUFF2
00373 0074 00 4 00012 TSX $BUFFER,4 .001
00374 3 00000 0 01041 PTH MERGE .001
00375 3 00000 0 01037 PTH FILE2 .001
00376 3 00660 0 72716 PTH BUFF2,,432 .001
00377 0500 00 0 77117 CLA QST+4
1 SORT FAP PAGE 12
00400 0621 00 0 01060 STA BLKLEN
00401 FSTATE QST,QST+1,FSTBUF,NOFILE
00401 0074 00 4 00003 TSX $FSTATE,4 .001
00402 3 00000 0 77113 PTH QST .001
00403 3 00000 0 77114 PTH QST+1 .001
00404 3 00010 0 01025 PTH FSTBUF,,8 .001
00405 ERRMAC NOFILE .001
IFF 0,NOFILE .002
00405 3 00000 0 00766 PTH NOFILE .002
IFF 1,NOFILE .002
PTH IOERRR .002
00406 3 00000 0 01227 PTH ERCODE .002
00407 0560 00 0 01025 LDQ FSTBUF
00410 -0754 00 0 00000 ZAC
00411 0221 00 0 01060 DVP BLKLEN
00412 -0100 00 0 00772 TNZ NOMULT
00413 OPEN QST,QST+1,R
00413 0074 00 4 00004 TSX $OPEN,4 .001
00414 3 00000 0 01245 PTH =HR .001
00415 3 00000 0 77113 PTH QST .001
00416 3 00000 0 77114 PTH QST+1 .001
00417 3 00000 0 01230 PTH =0 .001
00420 3 00000 0 01232 PTH =2 .001
00421 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00421 3 00000 0 01221 PTH IOERRR .002
00422 3 00000 0 01227 PTH ERCODE .002
00423 BUFFER QST,QST+1,BUFF3
00423 0074 00 4 00012 TSX $BUFFER,4 .001
00424 3 00000 0 77113 PTH QST .001
00425 3 00000 0 77114 PTH QST+1 .001
00426 3 00660 0 72036 PTH BUFF3,,432 .001
00427 -0754 00 0 00000 CYCLE ZAC
00430 0600 00 0 01073 STZ EOF2TS
00431 0560 00 0 01061 LDQ TOTLEN
00432 0221 00 0 01060 DVP BLKLEN
00433 0040 00 0 00770 TLQ BIGBLK
00434 0200 00 0 01060 MPY BLKLEN
00435 -0600 00 0 01062 STQ SRTLEN
00436 -0600 00 0 01063 STQ MRGLEN
00437 -0600 00 0 01064 STQ OUTLEN
00440 0074 00 4 00005 TSX $RDWAIT,4
00441 3 00000 0 77113 PTH QST
00442 3 00000 0 77114 PTH QST+1
00443 3 00000 0 01230 PTH =0
00444 2 01063 0 51136 PTW MRGBUF,,MRGLEN
00445 3 00000 0 00655 PTH EOF1
00446 3 00000 0 01226 PTH EOFCT
00447 ERRMAC
IFF 0, .001
PTH .001
IFF 1, .001
00447 3 00000 0 01221 PTH IOERRR .001
00450 3 00000 0 01227 PTH ERCODE .001
1 SORT FAP PAGE 13
00451 -0500 00 0 77120 EOF1R CAL QST+5
00452 -0340 00 0 01243 LAS =HEVERSE
00453 0020 00 0 00460 TRA FN
00454 0020 00 0 00456 TRA *+2
00455 0020 00 0 00460 TRA FN
00456 -0774 00 4 00460 AXC FN,4
00457 0020 00 0 00013 TRA $FLSRTX
00460 0074 00 4 00014 FN TSX $FLSRTN,4
00461 2 01063 0 51136 PTW MRGBUF,,MRGLEN
00462 0 00000 0 30236 PZE SRTBUF
00463 3 00000 0 01060 PTH BLKLEN
00464 2 01035 0 77121 PTW QST+6,,MSKDAT
00465 0500 00 0 01234 CLA =O20
00466 0621 00 0 01070 STA FLAGS
00467 0074 00 4 00005 IN TSX $RDWAIT,4
00470 3 00000 0 01041 PTH MERGE
00471 3 00000 0 01036 PTH FILE1
00472 3 00000 0 01230 PTH =0
00473 2 01063 0 51136 PTW MRGBUF,,MRGLEN
00474 3 00000 0 00662 PTH EOF2
00475 3 00000 0 01226 PTH EOFCT
00476 ERRMAC
IFF 0, .001
PTH .001
IFF 1, .001
00476 3 00000 0 01221 PTH IOERRR .001
00477 3 00000 0 01227 PTH ERCODE .001
00500 -0500 00 0 77120 EOF2R CAL QST+5
00501 -0340 00 0 01243 LAS =HEVERSE
00502 0020 00 0 00507 TRA FN2
00503 0020 00 0 00505 TRA *+2
00504 0020 00 0 00507 TRA FN2
00505 -0774 00 4 00507 AXC FN2,4
00506 0020 00 0 00015 TRA $MERGEX
00507 0074 00 4 00016 FN2 TSX $MERGEN,4
00510 3 00000 0 01070 PTH FLAGS
00511 2 01062 0 30236 PTW SRTBUF,,SRTLEN
00512 2 01063 0 51136 PTW MRGBUF,,MRGLEN
00513 2 01064 0 07336 PTW OUTPUT,,OUTLEN
00514 2 01035 0 77121 PTW QST+6,,MSKDAT
00515 3 00000 0 01060 PTH BLKLEN
00516 0621 00 0 01071 STA MORTST
00517 0622 00 0 00524 STD INSRT4
00520 WRWAIT MERGE,FILE2,=0,INSRT4,OUTPUT,**
00520 0074 00 4 00017 TSX $WRWAIT,4 .001
00521 3 00000 0 01041 PTH MERGE .001
00522 3 00000 0 01037 PTH FILE2 .001
00523 PTHIFF =0,=0 .001
IFF 0,=0 .002
00523 3 00000 0 01230 PTH =0 .002
IFF 1,=0 .002
PTH =0 .002
00524 3 00000 0 07336 INSRT4 PTH OUTPUT,,** .001
00525 PTHIFF ,=-0 .001
IFF 0, .002
PTH .002
1 SORT FAP PAGE 14
IFF 1, .002
00525 3 00000 0 01244 PTH =-0 .002
00526 3 00000 0 01226 PTH EOFCT .001
00527 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00527 3 00000 0 01221 PTH IOERRR .002
00530 3 00000 0 01227 PTH ERCODE .002
00531 0500 00 0 01071 CLA MORTST
00532 0760 00 0 00001 LBT
00533 0020 00 0 00635 TRA MORE1
00534 0771 00 0 00001 ARS 1
00535 0760 00 0 00001 LBT
00536 0020 00 0 00643 TRA MORE2
00537 -0520 00 0 01073 NZT EOF2TS
00540 0020 00 0 00652 TRA IN21
00541 0520 00 0 01072 ZET EOF1TS
00542 0020 00 0 00670 TRA END
00543 0500 00 0 01036 CLA FILE1
00544 0560 00 0 01037 LDQ FILE2
00545 -0600 00 0 01036 STQ FILE1
00546 0601 00 0 01037 STO FILE2
00547 CLOSE MERGE,FILE2
00547 0074 00 4 00006 TSX $CLOSE,4 .001
00550 3 00000 0 01041 PTH MERGE .001
00551 3 00000 0 01037 PTH FILE2 .001
00552 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00552 3 00000 0 01221 PTH IOERRR .002
00553 3 00000 0 01227 PTH ERCODE .002
00554 DELFIL MERGE,FILE2
00554 0074 00 4 00020 TSX $DELFIL,4 .001
00555 3 00000 0 01041 PTH MERGE .001
00556 3 00000 0 01037 PTH FILE2 .001
00557 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00557 3 00000 0 01221 PTH IOERRR .002
00560 3 00000 0 01227 PTH ERCODE .002
00561 OPEN MERGE,FILE2,RW
00561 0074 00 4 00004 TSX $OPEN,4 .001
00562 3 00000 0 01246 PTH =HRW .001
00563 3 00000 0 01041 PTH MERGE .001
00564 3 00000 0 01037 PTH FILE2 .001
00565 3 00000 0 01230 PTH =0 .001
00566 3 00000 0 01232 PTH =2 .001
00567 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00567 3 00000 0 01221 PTH IOERRR .002
00570 3 00000 0 01227 PTH ERCODE .002
1 SORT FAP PAGE 15
00571 CLOSE MERGE,FILE1
00571 0074 00 4 00006 TSX $CLOSE,4 .001
00572 3 00000 0 01041 PTH MERGE .001
00573 3 00000 0 01036 PTH FILE1 .001
00574 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00574 3 00000 0 01221 PTH IOERRR .002
00575 3 00000 0 01227 PTH ERCODE .002
00576 OPEN MERGE,FILE1,RW
00576 0074 00 4 00004 TSX $OPEN,4 .001
00577 3 00000 0 01246 PTH =HRW .001
00600 3 00000 0 01041 PTH MERGE .001
00601 3 00000 0 01036 PTH FILE1 .001
00602 3 00000 0 01230 PTH =0 .001
00603 3 00000 0 01232 PTH =2 .001
00604 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00604 3 00000 0 01221 PTH IOERRR .002
00605 3 00000 0 01227 PTH ERCODE .002
00606 -0500 00 0 01036 CAL FILE1
00607 -0340 00 0 01037 LAS FILE2
00610 0020 00 0 00623 TRA INBUFF
00611 0761 00 0 00000 NOP
00612 BUFFER MERGE,FILE2,BUFF2
00612 0074 00 4 00012 TSX $BUFFER,4 .001
00613 3 00000 0 01041 PTH MERGE .001
00614 3 00000 0 01037 PTH FILE2 .001
00615 3 00660 0 72716 PTH BUFF2,,432 .001
00616 BUFFER MERGE,FILE1,BUFF1
00616 0074 00 4 00012 TSX $BUFFER,4 .001
00617 3 00000 0 01041 PTH MERGE .001
00620 3 00000 0 01036 PTH FILE1 .001
00621 3 00660 0 73576 PTH BUFF1,,432 .001
00622 0020 00 0 00427 TRA CYCLE
00623 INBUFF BUFFER MERGE,FILE2,BUFF1
00623 0074 00 4 00012 TSX $BUFFER,4 .001
00624 3 00000 0 01041 PTH MERGE .001
00625 3 00000 0 01037 PTH FILE2 .001
00626 3 00660 0 73576 PTH BUFF1,,432 .001
00627 BUFFER MERGE,FILE1,BUFF2
00627 0074 00 4 00012 TSX $BUFFER,4 .001
00630 3 00000 0 01041 PTH MERGE .001
00631 3 00000 0 01036 PTH FILE1 .001
00632 3 00660 0 72716 PTH BUFF2,,432 .001
00633 0020 00 0 00427 TRA CYCLE
00634 2 00001 4 00301 TIX XARG,4,1
00635 0771 00 0 00001 MORE1 ARS 1
00636 0760 00 0 00001 LBT
00637 0020 00 0 00643 TRA MORE2
00640 -0520 00 0 01073 NZT EOF2TS
00641 0020 00 0 00652 TRA IN21
00642 0020 00 0 00645 TRA F2R3
1 SORT FAP PAGE 16
00643 -0520 00 0 01073 MORE2 NZT EOF2TS
00644 0020 00 0 00650 TRA F2R23
00645 0500 00 0 01233 F2R3 CLA =O3
00646 0621 00 0 01070 X1 STA FLAGS
00647 0020 00 0 00500 TRA EOF2R
00650 0500 00 0 01236 F2R23 CLA =O23
00651 0020 00 0 00646 TRA X1
00652 0500 00 0 01235 IN21 CLA =O21
00653 0621 00 0 01070 STA FLAGS
00654 0020 00 0 00467 TRA IN
00655 -0625 00 0 01072 EOF1 STL EOF1TS
00656 0534 00 4 01226 LXA EOFCT,4
00657 0634 00 4 01062 SXA SRTLEN,4
00660 0634 00 4 01063 SXA MRGLEN,4
00661 0020 00 0 00451 TRA EOF1R
00662 -0625 00 0 01073 EOF2 STL EOF2TS
00663 0534 00 4 01226 LXA EOFCT,4
00664 0634 00 4 01063 SXA MRGLEN,4
00665 -0500 00 0 01254 CAL =O777777777757
00666 0320 00 0 01070 ANS FLAGS
00667 0020 00 0 00500 TRA EOF2R
00670 END CLOSE QST,QST+1
00670 0074 00 4 00006 TSX $CLOSE,4 .001
00671 3 00000 0 77113 PTH QST .001
00672 3 00000 0 77114 PTH QST+1 .001
00673 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00673 3 00000 0 01221 PTH IOERRR .002
00674 3 00000 0 01227 PTH ERCODE .002
00675 CLOSE MERGE,FILE1
00675 0074 00 4 00006 TSX $CLOSE,4 .001
00676 3 00000 0 01041 PTH MERGE .001
00677 3 00000 0 01036 PTH FILE1 .001
00700 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00700 3 00000 0 01221 PTH IOERRR .002
00701 3 00000 0 01227 PTH ERCODE .002
00702 CLOSE MERGE,FILE2
00702 0074 00 4 00006 TSX $CLOSE,4 .001
00703 3 00000 0 01041 PTH MERGE .001
00704 3 00000 0 01037 PTH FILE2 .001
00705 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00705 3 00000 0 01221 PTH IOERRR .002
00706 3 00000 0 01227 PTH ERCODE .002
00707 DELFIL MERGE,FILE1
00707 0074 00 4 00020 TSX $DELFIL,4 .001
00710 3 00000 0 01041 PTH MERGE .001
00711 3 00000 0 01036 PTH FILE1 .001
00712 ERRMAC .001
1 SORT FAP PAGE 17
IFF 0, .002
PTH .002
IFF 1, .002
00712 3 00000 0 01221 PTH IOERRR .002
00713 3 00000 0 01227 PTH ERCODE .002
00714 FSTATE QST+2,QST+3,FSTBUF,FERRIN
00714 0074 00 4 00003 TSX $FSTATE,4 .001
00715 3 00000 0 77115 PTH QST+2 .001
00716 3 00000 0 77116 PTH QST+3 .001
00717 3 00010 0 01025 PTH FSTBUF,,8 .001
00720 ERRMAC FERRIN .001
IFF 0,FERRIN .002
00720 3 00000 0 00744 PTH FERRIN .002
IFF 1,FERRIN .002
PTH IOERRR .002
00721 3 00000 0 01227 PTH ERCODE .002
00722 -0500 00 0 77115 CAL QST+2
00723 0602 00 0 01152 SLW FCOM+2
00724 -0500 00 0 77116 CAL QST+3
00725 0602 00 0 01153 SLW FCOM+3
00726 WRFLX FCOM,9,A
00726 0074 00 4 00021 TSX $WRFLXA,4 .001
00727 3 00011 0 01150 PTH FCOM,,9 .001
00730 0074 00 4 00022 TSX $RDFLX,4
00731 0 00001 0 01074 PZE LOC,,1
00732 -0500 00 0 01074 CAL LOC
00733 -0340 00 0 01252 LAS =HYES
00734 0020 00 0 01003 TRA FILCOM
00735 0020 00 0 00737 TRA *+2
00736 0020 00 0 01003 TRA FILCOM
00737 DELFIL QST+2,QST+3,DELERR
00737 0074 00 4 00020 TSX $DELFIL,4 .001
00740 3 00000 0 77115 PTH QST+2 .001
00741 3 00000 0 77116 PTH QST+3 .001
00742 ERRMAC DELERR .001
IFF 0,DELERR .002
00742 3 00000 0 01002 PTH DELERR .002
IFF 1,DELERR .002
PTH IOERRR .002
00743 3 00000 0 01227 PTH ERCODE .002
00744 FERRIN CHFILE MERGE,FILE2,=-0,QST+2,QST+3
00744 0074 00 4 00023 TSX $CHFILE,4 .001
00745 3 00000 0 01041 PTH MERGE .001
00746 3 00000 0 01037 PTH FILE2 .001
00747 PTHIFF =-0,=-0 .001
IFF 0,=-0 .002
00747 3 00000 0 01244 PTH =-0 .002
IFF 1,=-0 .002
PTH =-0 .002
00750 PTHIFF QST+2,=-0 .001
IFF 0,QST+2 .002
00750 3 00000 0 77115 PTH QST+2 .002
IFF 1,QST+2 .002
PTH =-0 .002
00751 PTHIFF QST+3,=-0 .001
IFF 0,QST+3 .002
1 SORT FAP PAGE 18
00751 3 00000 0 77116 PTH QST+3 .002
IFF 1,QST+3 .002
PTH =-0 .002
00752 ERRMAC .001
IFF 0, .002
PTH .002
IFF 1, .002
00752 3 00000 0 01221 PTH IOERRR .002
00753 3 00000 0 01227 PTH ERCODE .002
00754 WRFLX
00754 0074 00 4 00024 TSX $WRFLX,4 .001
00755 3 00000 0 00000 PTH ,, .001
00756 0074 00 4 00025 TSX $CHNCOM,4
00757 0 00000 0 00001 PZE 1
*
ERROR MACRO N
AXC N,4
TRA ERRS
ERROR END
*
00760 INSUF1 ERROR 0
00760 -0774 00 4 00000 AXC 0,4 .001
00761 0020 00 0 01011 TRA ERRS .001
00762 INSUF ERROR 1
00762 -0774 00 4 00001 AXC 1,4 .001
00763 0020 00 0 01011 TRA ERRS .001
00764 TOLONG ERROR 2
00764 -0774 00 4 00002 AXC 2,4 .001
00765 0020 00 0 01011 TRA ERRS .001
00766 NOFILE ERROR 3
00766 -0774 00 4 00003 AXC 3,4 .001
00767 0020 00 0 01011 TRA ERRS .001
00770 BIGBLK ERROR 4
00770 -0774 00 4 00004 AXC 4,4 .001
00771 0020 00 0 01011 TRA ERRS .001
00772 NOMULT ERROR 5
00772 -0774 00 4 00005 AXC 5,4 .001
00773 0020 00 0 01011 TRA ERRS .001
00774 NOARG ERROR 6
00774 -0774 00 4 00006 AXC 6,4 .001
00775 0020 00 0 01011 TRA ERRS .001
00776 NOQST ERROR 7
00776 -0774 00 4 00007 AXC 7,4 .001
00777 0020 00 0 01011 TRA ERRS .001
01000 ILLFRM ERROR 8
01000 -0774 00 4 00010 AXC 8,4 .001
01001 0020 00 0 01011 TRA ERRS .001
01002 0074 00 4 00026 DELERR TSX $PRNTER,4
01003 0500 00 0 01037 FILCOM CLA FILE2
01004 0601 00 0 01147 STO COM9+4
01005 0500 00 0 01041 CLA MERGE
01006 0601 00 0 01146 STO COM9+3
01007 ERROR 9
01007 -0774 00 4 00011 AXC 9,4 .001
01010 0020 00 0 01011 TRA ERRS .001
01011 -0500 00 4 01046 ERRS CAL ERRCOM,4
1 SORT FAP PAGE 19
01012 0602 00 0 01014 SLW *+2
01013 WRFLX
01013 0074 00 4 00024 TSX $WRFLX,4 .001
01014 3 00000 0 00000 PTH ,, .001
01015 0074 00 4 00025 TSX $CHNCOM,4
01016 0 00000 0 00001 PZE 1
01017 0 00000 0 00000 FILNAM PZE
01020 0 00000 0 00000 NAME1 PZE
01021 0 00000 0 00000 NAME2 PZE
01022 0 00000 0 00000 NAME3 PZE
01023 0 00000 0 00000 NAME4 PZE
01024 ENDNAM SYN *
01024 625163506263 SRTQST BCI 1,SRTQST
01025 FSTBUF BSS 8
01035 0 00000 0 00000 MSKDAT PZE
QST FRECOR 437
IFF ..BOOL,A,Z .001
77777 ..TOPC SET 32767 .001
77113 QST SET ..TOPC-437+1 .001
77112 ..TOPC SET QST-1 .001
00001 ..BOOL SET 1 .001
01036 333333000001 FILE1 BCI 1,...001
01037 0 00000 0 00000 FILE2 PZE
01040 0 00000 0 00000 WHO PZE
01041 0 00000 0 00000 MERGE PZE WHO+1
01042 0 00000 0 77112 EQRQ PZE ENDR
ENDR FRECOR 1
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
77112 ENDR SET ..TOPC-1+1 .001
77111 ..TOPC SET ENDR-1 .001
00001 ..BOOL SET 1 .001
DUMMY FRECOR 1308
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
74456 DUMMY SET ..TOPC-1308+1 .001
74455 ..TOPC SET DUMMY-1 .001
00001 ..BOOL SET 1 .001
01043 0 00000 0 00000 FIRST PZE
01044 0 00000 0 00000 BREAK PZE
01045 0 00000 0 00000 REV PZE
01046 0 00006 0 01077 ERRCOM PZE COM1,,6
01047 0 00006 0 01077 PZE COM1,,6
01050 0 00003 0 01105 PZE COM2,,3
01051 0 00004 0 01110 PZE COM3,,4
01052 0 00004 0 01114 PZE COM4,,4
01053 0 00010 0 01120 PZE COM5,,8
01054 0 00003 0 01130 PZE COM6,,3
01055 0 00003 0 01133 PZE COM7,,3
01056 0 00005 0 01136 PZE COM8,,5
01057 0 00005 0 01143 PZE COM9,,5
BUFF1 FRECOR 432
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
73576 BUFF1 SET ..TOPC-432+1 .001
73575 ..TOPC SET BUFF1-1 .001
1 SORT FAP PAGE 20
00001 ..BOOL SET 1 .001
BUFF2 FRECOR 432
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
72716 BUFF2 SET ..TOPC-432+1 .001
72715 ..TOPC SET BUFF2-1 .001
00001 ..BOOL SET 1 .001
BUFF3 FRECOR 432
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
72036 BUFF3 SET ..TOPC-432+1 .001
72035 ..TOPC SET BUFF3-1 .001
00001 ..BOOL SET 1 .001
01060 0 00000 0 00000 BLKLEN PZE
01061 0 00000 0 20700 TOTLEN PZE LENGTH
01062 0 00000 0 00000 SRTLEN PZE
01063 0 00000 0 00000 MRGLEN PZE
01064 0 00000 0 00000 OUTLEN PZE
MRGBUF FRECOR LENGTH
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
51136 MRGBUF SET ..TOPC-LENGTH+1 .001
51135 ..TOPC SET MRGBUF-1 .001
00001 ..BOOL SET 1 .001
SRTBUF FRECOR LENGTH
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
30236 SRTBUF SET ..TOPC-LENGTH+1 .001
30235 ..TOPC SET SRTBUF-1 .001
00001 ..BOOL SET 1 .001
OUTPUT FRECOR LENGTH
IFF ..BOOL,A,Z .001
..TOPC SET 32767 .001
07336 OUTPUT SET ..TOPC-LENGTH+1 .001
07335 ..TOPC SET OUTPUT-1 .001
00001 ..BOOL SET 1 .001
01065 0 00000 0 00000 MFIRST PZE
01066 0 00000 0 00000 BREAK2 PZE
01067 0 00000 0 00000 SAVQ PZE
01070 0 00000 0 00000 FLAGS PZE
01071 0 00000 0 00000 MORTST PZE
01072 0 00000 0 00000 EOF1TS PZE
01073 0 00000 0 00000 EOF2TS PZE
01074 LOC BSS 2
01076 0 00000 0 00000 LEN PZE
01077 454663602545 COM1 BCI 6,NOT ENOUGH ARGUMENTS IN SRTQST.
01100 466427306021
01101 512764442545
01102 636260314560
01103 625163506263
01104 336060606060
01105 625163506263 COM2 BCI 3,SRTQST TOO LONG.
01106 606346466043
01107 464527336060
01110 314547646360 COM3 BCI 4,INPUT FILE NOT FOUND.
01111 263143256045
1 SORT FAP PAGE 21
01112 466360264664
01113 452433606060
01114 224346234260 COM4 BCI 4,BLOCK SIZE TOO LARGE.
01115 623171256063
01116 464660432151
01117 272533606060
01120 263143256043 COM5 BCI 8,FILE LENGTH IS NOT A MULTIPLE OF BLOCK SIZE.
01121 254527633060
01122 316260454663
01123 602160446443
01124 633147432560
01125 462660224346
01126 234260623171
01127 253360606060
01130 454660215127 COM6 BCI 3,NO ARGUMENTS.
01131 644425456362
01132 336060606060
01133 625163506263 COM7 BCI 3,SRTQST NOT FOUND.
01134 604546636026
01135 466445243360
01136 314343252721 COM8 BCI 5,ILLEGAL FORMAT IN SRTQST.
01137 436026465144
01140 216360314560
01141 625163506263
01142 336060606060
01143 704664516051 COM9 BCI 5,YOUR RESULT IS IN EBAZAGGAZABE
01144 256264436360
01145 316260314560
01146 252221712127
01147 272171212225
01150 464324602631 FCOM BCI 9,OLD FILE -- 777777777777 DO YOU WISH TO DELETE IT. --
01151 432560404060
01152 070707070707
01153 070707070707
01154 602446607046
01155 646066316230
01156 606346602425
01157 432563256031
01160 633360404060
01161 ENDMAC
IRP .001
IRP .001
01161 MEMCOM .001
01161 -0130 00 0 00000 MEMERR XCL .002
01162 0074 00 4 01204 TSX ...OCT,4 .002
01163 0602 00 0 01176 SLW ..MESS+3 .002
01164 0560 00 0 01220 LDQ LWFSTG .002
01165 0074 00 4 01204 TSX ...OCT,4 .002
01166 0602 00 0 01203 SLW ..MESS+8 .002
01167 WRFLX ..MESS,9 .002
01167 0074 00 4 00024 TSX $WRFLX,4 .003
01170 3 00011 0 01173 PTH ..MESS,,9 .003
01171 0074 00 4 00027 TSX $DORMNT,4 .002
01172 0074 00 4 00030 TSX $DEAD,4 .002
01173 442544465170 ..MESS BCI 9,MEMORY BOUND = , LOWEST FREE STORAGE = .002
01174 602246644524
1 SORT FAP PAGE 22
01175 601360606060
01176 606060606060
01177 736043466625
01200 626360265125
01201 256062634651
01202 212725601360
01203 606060606060
01204 MEMOCT .001
01204 -0773 00 0 00022 ...OCT RQL 18 .002
01205 0774 00 2 00006 AXT 6,2 .002
01206 -0754 00 0 00000 ZAC .002
01207 -0763 00 0 00003 LGL 3 .002
01210 -0100 00 0 01212 TNZ *+2 .002
01211 2 00001 2 01207 TIX *-2,2,1 .002
01212 -0501 00 0 01250 ORA =H 0 .002
01213 0020 00 0 01216 TRA *+3 .002
01214 0767 00 0 00003 ALS 3 .002
01215 -0763 00 0 00003 LGL 3 .002
01216 2 00001 2 01214 TIX *-2,2,1 .002
01217 0020 00 4 00001 TRA 1,4 .002
01220 MEMLOC .001
01220 0 00000 0 07336 LWFSTG PZE ..TOPC+1 .002
01221 0634 00 4 01224 IOERRR SXA *+3,4 .001
01222 0074 00 4 00026 TSX $PRNTER,4 .001
01223 0074 00 4 00027 TSX $DORMNT,4 .001
01224 0774 00 4 00000 AXT **,4 .001
01225 0020 00 4 00000 TRA 0,4 .001
01226 0 00000 0 00000 EOFCT PZE .001
01227 0 00000 0 00000 ERCODE PZE .001
END .001
LITERALS
01230 000000000000
01231 000000000001
01232 000000000002
01233 000000000003
01234 000000000020
01235 000000000021
01236 000000000023
01237 000000000057
01240 000000000662
01241 000000002434
01242 000000077777
01243 256525516225
01244 400000000000
01245 516060606060
01246 516660606060
01247 606060604000
01250 606060606000
01251 606060606060
01252 702562606060
01253 777777000000
01254 777777777757
01255 777777777777
1 SORT FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
1256 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
263 BK 254, 256
460 FN 453, 455, 456
467 IN 654
646 X1 651
137 AD1 117, 122
275 ALL 245
670 END 542
507 FN2 502, 504, 505
1076 LEN
1074 LOC 731, 732
77113 QST 163, 211, 212, 240, 242, 311, 315, 377, 402, 403, 415, 416, 424, 425, 441, 442, 451
464, 500, 514, 671, 672, 715, 716, 722, 724, 740, 741, 750, 751, 1036
1045 REV 103, 313
1040 WHO 317
1077 COM1 1046, 1047
1105 COM2 1050
1110 COM3 1051
1114 COM4 1052
1120 COM5 1053
1130 COM6 1054
1133 COM7 1055
1136 COM8 1056
1143 COM9 1004, 1006, 1057
201 DATA 167, 171
30 DEAD 1172
77112 ENDR 155, 222, 1042, 1043
655 EOF1 445
662 EOF2 474
1042 EQRQ 120
332 ERR1 324
347 ERR2 341
1011 ERRS 761, 763, 765, 767, 771, 773, 775, 777, 1001, 1010
645 F2R3 642
1150 FCOM 723, 725, 727
652 IN21 540, 641
155 LOP1 220, 247
222 LOP2 244
230 LOP3 243
163 LOP4 177, 216
4 OPEN 123, 347, 357, 413, 561, 576
1067 SAVQ 207, 214
301 XARG 312, 634
311 XSTO 304, 307
7 BCDEC 210
1044 BREAK 234, 236, 252, 270, 272
73576 BUFF1 372, 621, 626, 1060
72716 BUFF2 376, 615, 632, 1060
72036 BUFF3 426, 1060
6 CLOSE 144, 547, 571, 670, 675, 702
427 CYCLE 622, 633
74456 DUMMY 1043
1 SORT FAP PAGE 2
POST PROCESSOR ASSEMBLY DATA
451 EOF1R 661
500 EOF2R 647, 667
1226 EOFCT 141, 446, 475, 526, 656, 663
650 F2R23 644
1036 FILE1 322, 327, 330, 333, 352, 371, 471, 543, 545, 573, 601, 606, 620, 631, 677, 711
1037 FILE2 334, 337, 344, 345, 362, 375, 522, 544, 546, 551, 556, 564, 607, 614, 625, 704, 746
1003
1043 FIRST 154, 172, 174, 201
1070 FLAGS 466, 510, 646, 653, 666
762 INSUF 206, 250
320 LOOP1 331
335 LOOP2 346
1041 MERGE 321, 336, 351, 361, 370, 374, 470, 521, 550, 555, 563, 572, 600, 613, 617, 624, 630
676, 703, 710, 745, 1005
635 MORE1 533
643 MORE2 536, 637
1020 NAME1 53
1021 NAME2 61
1022 NAME3 67
1023 NAME4 75
774 NOARG 44
240 NOBRK 235
776 NOQST 110
22 RDFLX 730
246 SKIP1 157, 160
272 SKIP2 224, 225
251 SKIP3 232
24 WRFLX 754, 1013, 1167
312 XSKIP 302, 305, 310
770 BIGBLK 433
1060 BLKLEN 400, 411, 432, 434, 463, 515
1066 BREAK2 233, 260, 263
12 BUFFER 367, 373, 423, 612, 616, 623, 627
23 CHFILE 744
25 CHNCOM 756, 1015
216 CONTIN 173, 203, 205
1002 DELERR 742
20 DELFIL 554, 707, 737
27 DORMNT 1171, 1223
104 ENDARG 52, 60, 66, 74, 102
1024 ENDNAM 301, 1024
217 ENDWRD 200
1072 EOF1TS 541, 655
1073 EOF2TS 430, 537, 640, 643, 662
1227 ERCODE 111, 132, 143, 150, 325, 342, 356, 366, 406, 422, 450, 477, 530, 553, 560, 570, 575
605, 674, 701, 706, 713, 721, 743, 753
1046 ERRCOM 1011
744 FERRIN 720
1003 FILCOM 734, 736
1017 FILNAM 45, 105, 125, 134, 145
14 FLSRTN 460
13 FLSRTX 457
3 FSTATE 104, 320, 335, 401, 714
1025 FSTBUF 107, 112, 121, 152, 323, 340, 404, 407, 717
2 GETCOM 40, 46, 54, 62, 70, 76
1 SORT FAP PAGE 3
POST PROCESSOR ASSEMBLY DATA
11 GETFIL 326, 332, 343
0 GETMEM 32
1000 ILLFRM 176
623 INBUFF 610
524 INSRT4 517
760 INSUF1 221
1221 IOERRR 131, 142, 147, 355, 365, 421, 447, 476, 527, 552, 557, 567, 574, 604, 673, 700, 705
712, 752
1 ..BOOL 1036, 1043, 1060, 1065
1204 ...OCT 1162, 1165
1173 ..MESS 1163, 1166, 1170
7335 ..TOPC 1036, 1043, 1060, 1065, 1220
20700 LENGTH 31, 1061, 1065
226 LOP3IN
1220 LWFSTG 33, 1164
1161 MEMERR 34, 35
16 MERGEN 507
15 MERGEX 506
1065 MFIRST 257, 265, 266
1071 MORTST 516, 531
51136 MRGBUF 444, 461, 473, 512, 1065
1063 MRGLEN 436, 444, 461, 473, 512, 660, 664
1035 MSKDAT 277, 464, 514
766 NOFILE 405
772 NOMULT 412
1064 OUTLEN 437, 513
7336 OUTPUT 513, 524, 1065
26 PRNTER 1002, 1222
5 RDWAIT 133, 440, 467
1 SETMEM 37
243 SKIPIN 215, 261, 264, 267, 271, 274
30236 SRTBUF 462, 511, 1065
1062 SRTLEN 435, 511, 657
1024 SRTQST 106, 126, 135, 146
764 TOLONG 114, 237, 262, 273
1061 TOTLEN 431
10 WHOAMI 316
21 WRFLXA 726
17 WRWAIT 520
0 NO ERROR IN ABOVE ASSEMBLY.
FLSRTN BCD 08/08/68 2229.9 2198 00000
1 FLSRTN FAP PAGE 1
*
* CALLING SEQUENCE
*
* TSX $FLSRTN,4
* PTH TABLE,,LENTBL
* PTH NEWTBL
* PTH BLKLEN
* PTH MASK,,MSKLEN
*
*
00005 ENTRY FLSRTN
00003 ENTRY FLSRTX
TRANSFER VECTOR
00000 215127626060 ARGS
LINKAGE DIRECTOR
00001 000000000000
00002 264362516345
00003 -0625 00 0 00231 FLSRTX STL SXTEST
00004 0020 00 0 00006 TRA *+2
00005 0600 00 0 00231 FLSRTN STZ SXTEST
00006 0634 00 1 00201 SXA XR1,1 BECOME TRANSPARENT TO INDEX REGISTERS
00007 0634 00 2 00202 SXA XR2,2
00010 0634 00 4 00203 SXA XR4,4
00011 0634 00 6 00204 SXA XR6,6
00012 0634 00 7 00205 SXA XR7,7
00013 0636 00 4 00015 SCA *+2,4
00014 0074 00 4 00000 TSX $ARGS,4
00015 0 00004 0 00000 PZE ,,4
00016 0 00000 0 00207 PZE ARGLOC
00017 0500 00 0 00207 CLA ARGLOC LENGTH AND ADDRESS OF TABLE TO BE SORTED
00020 0621 00 0 00226 STA TABLE ADDRESS
00021 -0734 00 1 00000 PDX ,1 LENGTH
00022 0634 00 1 00227 SXA TBLLEN,1
00023 0500 00 0 00210 CLA ARGLOC+1
00024 0621 00 0 00222 STA NEWTBL
00025 0500 00 0 00211 CLA ARGLOC+2 ADDRESS OF MASK AND LENGTH OF BLOCKS
00026 0621 00 0 00213 STA BLKLEN
00027 0500 00 0 00212 CLA ARGLOC+3
00030 0771 00 0 00022 ARS 18
00031 0621 00 0 00221 STA MSKLEN
00032 0361 00 0 00212 ACL ARGLOC+3
00033 0621 00 0 00220 STA MASK
00034 0560 00 0 00227 SETUP LDQ TBLLEN SET UP POINTER TABLE
00035 -0754 00 0 00000 ZAC
00036 0221 00 0 00213 DVP BLKLEN
00037 -0600 00 0 00217 STQ PTRLEN
00040 -0130 00 0 00000 XCL
00041 -0760 00 0 00003 SSM
00042 0400 00 0 00227 ADD TBLLEN
00043 0400 00 0 00222 ADD NEWTBL
00044 0621 00 0 00216 STA PNTRTB ADDRESS OF POINTER TABLE
00045 0534 00 1 00217 LXA PTRLEN,1 LENGTH OF POINTER TABLE
00046 -0634 00 1 00131 SXD TXH,1
1 FLSRTN FAP PAGE 2
00047 0754 00 1 00000 PXA ,1
00050 0400 00 0 00216 ADD PNTRTB
00051 0621 00 0 00064 STA STO
00052 0621 00 0 00174 STA CAL
00053 0621 00 0 00110 STA P
00054 0621 00 0 00113 STA P1
00055 0621 00 0 00120 STA P2
00056 0621 00 0 00121 STA P3
00057 0621 00 0 00122 STA P4
00060 0621 00 0 00123 STA P5
00061 0500 00 0 00233 CLA =O000000700000
00062 0400 00 0 00213 ADD BLKLEN
00063 0400 00 0 00226 ADD TABLE
00064 0601 00 1 00000 STO STO **,1
00065 0400 00 0 00213 ADD BLKLEN
00066 2 00001 1 00064 TIX *-2,1,1
00067 -0500 00 0 00217 XQS1 CAL PTRLEN SET UP SHELL FOR DIVISION
00070 0400 00 0 00232 ADD =1
00071 0601 00 0 00223 STO SHELL
00072 0500 00 0 00223 LOOP CLA SHELL DIVIDE SHELL BY TWO ROUNDING UP
00073 0402 00 0 00232 SUB =1
00074 0100 00 0 00146 TZE WRITE TRANSFER OUT IF LAST SHELL WAS ' 1 '
00075 0771 00 0 00001 ARS 1
00076 0400 00 0 00232 ADD =1
00077 0601 00 0 00223 STO SHELL
00100 0500 00 0 00217 CLA PTRLEN SET UP 'I' SO START AT TOP OF TABLE
00101 0601 00 0 00215 STO I
00102 0734 00 1 00000 LOOP1 PAX ,1 EXAMINE ENTRIES IN TABLE SHELL UNITS APART
00103 0402 00 0 00223 SUB SHELL
00104 0734 00 2 00000 PAX ,2
00105 -3 00000 2 00072 TXL LOOP,2,0
00106 0534 00 7 00213 NXQSD LXA BLKLEN,7
00107 0534 00 6 00221 LXA MSKLEN,6
00110 -0500 60 1 00000 P CAL* **,1
00111 -0320 60 0 00220 ANA* MASK
00112 0602 00 0 00230 SLW TEMP
00113 -0500 60 2 00000 P1 CAL* **,2
00114 -0320 60 0 00220 ANA* MASK
00115 -0340 00 0 00230 LAS TEMP COMPARE 'MASKED' ENTRIES
00116 0020 00 0 00137 TRA INORDR ..IN ORDER, CONTINUE ON DOWN TABLE
00117 0020 00 0 00133 TRA X
00120 -0500 00 1 00000 P2 CAL **,1 ....OUT OF ORDER, EXCHANGE
00121 0560 00 2 00000 P3 LDQ **,2
00122 -0600 00 1 00000 P4 STQ **,1
00123 0602 00 2 00000 P5 SLW **,2
00124 0534 00 4 00223 LXA SHELL,4 MOVE SMALLER BLOCK AS FAR UP THE TABLE AS
00125 -0634 00 4 00127 SXD *+2,4 POSSIBLE IN JUMPS OF 'SHELL'
00126 -0634 00 4 00130 SXD *+2,4
00127 1 00000 1 00130 TXI *+1,1,**
00130 1 00000 2 00131 TXI *+1,2,**
00131 3 00000 1 00137 TXH TXH INORDR,1,** TEST FOR OVER TOP OF THE TABLE
00132 0020 00 0 00106 TRA NXQSD GO COMPARE
00133 -2 00001 6 00137 X TNX INORDR,6,1
00134 2 00001 7 00110 TIX P,7,1
00135 0534 00 7 00213 LXA BLKLEN,7
00136 0020 00 0 00110 TRA P
1 FLSRTN FAP PAGE 3
00137 0500 00 0 00215 INORDR CLA I REDUCE 'I' BY 1.0 SO AS TO EXAMINE
00140 0402 00 0 00232 SUB =1 THE NEXT PAIR OF ENTRIES IN THE TABLE
00141 0601 00 0 00215 STO I
00142 0340 00 0 00223 CAS SHELL TEST FOR HAVING REACHED BOTTOM OF TABLE
00143 0020 00 0 00102 TRA LOOP1 NOPE, GO EXAMINE THEST ENTRIES
00144 0020 00 0 00072 TRA LOOP YES,GO REDUCE SHELL AND START OVER
00145 0020 00 0 00072 TRA LOOP
00146 -0520 00 0 00231 WRITE NZT SXTEST
00147 0020 00 0 00171 TRA WRITER
00150 -0500 00 0 00217 CAL PTRLEN
00151 0771 00 0 00001 ARS 1
00152 0734 00 1 00000 PAX ,1
00153 0774 00 2 00001 AXT 1,2
00154 0361 00 0 00216 ACL PNTRTB
00155 0621 00 0 00163 STA SW1
00156 0621 00 0 00166 STA SW4
00157 -0500 00 0 00216 CAL PNTRTB
00160 0361 00 0 00217 ACL PTRLEN
00161 0621 00 0 00164 STA SW2
00162 0621 00 0 00165 STA SW3
00163 -0500 00 1 00000 SW1 CAL ,1
00164 0560 00 2 00000 SW2 LDQ ,2
00165 0602 00 2 00000 SW3 SLW ,2
00166 -0600 00 1 00000 SW4 STQ ,1
00167 1 00001 2 00170 TXI *+1,2,1
00170 2 00001 1 00163 TIX SW1,1,1
00171 0534 00 1 00217 WRITER LXA PTRLEN,1
00172 0774 00 2 00000 AXT 0,2
00173 0534 00 7 00213 LOOP2 LXA BLKLEN,7
00174 -0500 60 1 00000 CAL CAL* **,1
00175 0602 60 0 00222 SLW* NEWTBL
00176 1 77777 2 00177 TXI *+1,2,-1
00177 2 00001 7 00174 TIX CAL,7,1
00200 2 00001 1 00173 TIX LOOP2,1,1
00201 0774 00 1 00000 XR1 AXT **,1 RESTORE INDEX REGISTERS
00202 0774 00 2 00000 XR2 AXT **,2
00203 0774 00 4 00000 XR4 AXT **,4
00204 0774 00 6 00000 XR6 AXT **,6
00205 0774 00 7 00000 XR7 AXT **,7
00206 0020 00 4 00005 TRA 5,4 RETURN TO CALLER
00207 ARGLOC BSS 4
00213 0 00000 0 00000 BLKLEN PZE
00214 0 00000 0 00000 TEM PZE
00215 0 00000 0 00000 I PZE
00216 0 00000 0 00000 PNTRTB PZE
00217 0 00000 0 00000 PTRLEN PZE
00220 0 00000 6 00000 MASK PZE **,6
00221 0 00000 0 00000 MSKLEN PZE
00222 0 00000 2 00000 NEWTBL PZE **,2
00223 0 00000 0 00000 SHELL PZE
00224 0 00000 0 00000 SRTLEN PZE
00225 0 00000 0 00000 RELLOC PZE
00226 0 00000 0 00000 TABLE PZE
00227 0 00000 0 00000 TBLLEN PZE
00230 0 00000 0 00000 TEMP PZE
00231 0 00000 0 00000 SXTEST PZE
1 FLSRTN FAP PAGE 4
END
LITERALS
00232 000000000001
00233 000000700000
1 FLSRTN FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
234 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
215 I 101, 137, 141
110 P 53, 134, 136
133 X 117
113 P1 54
120 P2 55
121 P3 56
122 P4 57
123 P5 60
174 CAL 52, 177
64 STO 51
163 SW1 155, 170
164 SW2 161
165 SW3 162
166 SW4 156
214 TEM
131 TXH 46
201 XR1 6
202 XR2 7
203 XR4 10
204 XR6 11
205 XR7 12
0 ARGS 14
72 LOOP 105, 144, 145
220 MASK 33, 111, 114
230 TEMP 112, 115
67 XQS1
102 LOOP1 143
173 LOOP2 200
106 NXQSD 132
34 SETUP
223 SHELL 71, 72, 77, 103, 124, 142
226 TABLE 20, 63
146 WRITE 74
207 ARGLOC 16, 17, 23, 25, 27, 32
213 BLKLEN 26, 36, 62, 65, 106, 135, 173
5 FLSRTN 0
3 FLSRTX 0
137 INORDR 116, 131, 133
221 MSKLEN 31, 107
222 NEWTBL 24, 43, 175
216 PNTRTB 44, 50, 154, 157
217 PTRLEN 37, 45, 67, 100, 150, 160, 171
225 RELLOC
224 SRTLEN
231 SXTEST 3, 5, 146
227 TBLLEN 22, 34, 42
171 WRITER 147
0 NO ERROR IN ABOVE ASSEMBLY.
MERGEN BCD 08/08/68 2229.9 2550 00000
1 MERGEN FAP PAGE 1
* BY MICHAEL R COMER MAY 12,1966
*
* TSX $MERGEN,4
* PZE FLAGS
* PZE B1,,L1
* PZE B2,,L2
* PZE R,,L3
* MASKS,,LEN
* PZE BLKLEN
00005 ENTRY MERGEN
00003 ENTRY MERGEX
TRANSFER VECTOR
00000 215127626060 ARGS
LINKAGE DIRECTOR
00001 000000000000
00002 442551272545
00003 -0625 00 0 00262 MERGEX STL MXTEST
00004 0020 00 0 00006 TRA *+2
00005 0600 00 0 00262 MERGEN STZ MXTEST
00006 0634 00 1 00243 SXA XR1,1 SAVE XR'S
00007 0634 00 2 00244 SXA XR2,2 ..
00010 0634 00 3 00245 SXA XR3,3 ..
00011 0634 00 4 00246 SXA XR4,4
00012 0634 00 5 00247 SXA XR5,5 ...
00013 0634 00 6 00250 SXA XR6,6
00014 0634 00 7 00251 SXA XR7,7 ..
00015 0774 00 1 00152 AXT I5,1
00016 0774 00 2 00125 AXT TRA2+1,2
00017 0634 00 1 00122 SXA TRA1,1
00020 0634 00 2 00124 SXA TRA2,2
00021 -0520 00 0 00262 NZT MXTEST
00022 0020 00 0 00025 TRA *+3
00023 0634 00 2 00122 SXA TRA1,2
00024 0634 00 1 00124 SXA TRA2,1
00025 0636 00 4 00027 SCA *+2,4
00026 0074 00 4 00000 TSX $ARGS,4
00027 0 00006 0 00000 PZE ,,6
00030 0 00000 0 00253 PZE FLAGS
00031 0534 00 7 00253 LXA FLAGS,7
00032 0534 00 1 00153 LXA I1,1
00033 0534 00 2 00164 LXA I2,2
00034 0534 00 3 00263 LXA I3,3
00035 0754 00 7 00000 PXA ,7
00036 -0320 00 0 00264 ANA =1
00037 -0100 00 0 00050 TNZ TWO
00040 0500 00 0 00254 CLA FLAGS+1
00041 0771 00 0 00022 ARS 18
00042 0734 00 1 00000 PAX ,1
00043 0621 00 0 00153 STA I1
00044 0361 00 0 00254 ACL FLAGS+1
00045 0621 00 0 00154 STA GR
00046 0621 00 0 00202 STA WRT1+2
00047 0621 00 0 00114 STA TEST
1 MERGEN FAP PAGE 2
00050 0754 00 7 00000 TWO PXA ,7
00051 -0320 00 0 00265 ANA =2
00052 -0100 00 0 00063 TNZ THREE
00053 0500 00 0 00255 CLA FLAGS+2
00054 0771 00 0 00022 ARS 18
00055 0734 00 2 00000 PAX ,2
00056 0621 00 0 00164 STA I2
00057 0361 00 0 00255 ACL FLAGS+2
00060 0621 00 0 00127 STA LE
00061 0621 00 0 00212 STA WRT2+2
00062 0621 00 0 00117 STA TEST+3
00063 0754 00 7 00000 THREE PXA ,7
00064 -0320 00 0 00266 ANA =4
00065 -0100 00 0 00076 TNZ MASKS
00066 0500 00 0 00256 CLA FLAGS+3
00067 0771 00 0 00022 ARS 18
00070 0734 00 3 00000 PAX ,3
00071 0361 00 0 00256 ACL FLAGS+3
00072 0621 00 0 00130 STA LE+1
00073 0621 00 0 00155 STA GR+1
00074 0621 00 0 00203 STA WRT1+3
00075 0621 00 0 00213 STA WRT2+3
00076 0500 00 0 00257 MASKS CLA FLAGS+4
00077 0771 00 0 00022 ARS 18
00100 0734 00 7 00000 PAX ,7
00101 0621 00 0 00162 STA I7
00102 0361 00 0 00257 ACL FLAGS+4
00103 0621 00 0 00115 STA TEST+1
00104 0621 00 0 00120 STA TEST+4
00105 -0500 00 0 00260 CAL FLAGS+5
00106 0734 00 5 00000 PAX ,5
00107 0734 00 6 00000 PAX ,6
00110 0621 00 0 00152 STA I5
00111 -3 00000 1 00170 TXL END1,1,0 CHECK FOR FINISHED LISTS
00112 -3 00000 2 00174 TXL END2,2,0 ..
00113 -3 00000 3 00220 TXL RET,3,0 ..
00114 -0500 00 1 00000 TEST CAL -,1 GET INPUT1+BEGPOS+L1,1(INITIALLY L1)
00115 -0320 00 7 00000 ANA -,7 MASK WITH MASK+SORTNO,7(INITIALLY SORTNO
00116 0602 00 0 00261 SLW TEM SAVE
00117 -0500 00 2 00000 CAL -,2 GET INPUT2+BEGPOS+L2,2(INITIALLY L2)
00120 -0320 00 7 00000 ANA -,7 MASK WITH MASK+SORTNO,7
00121 -0340 00 0 00261 LAS TEM COMPARE WITH INPUT1
00122 0020 00 0 00000 TRA1 TRA - INPUT2 GREATER, WRITE OUT INPUT1
00123 1 77777 1 00143 TXI EQ,1,-1 EQUAL, CHECK NEXT WORD
00124 0020 00 0 00000 TRA2 TRA -
00125 0534 00 5 00152 LXA I5,5 INPUT2 LESS, WRITE OUT INPUT2, RESET
00126 0534 00 2 00164 LXA I2,2 WRITE OUT INDEX, AND RESET POINTER TO ST
00127 -0500 00 2 00000 LE CAL -,2 GET INPUT2+L2,2
00130 0602 00 3 00000 SLW -,3 PLACE IN OUTPUT+L3,3(INITIALLY L3)
00131 1 77777 3 00132 TXI *+1,3,-1 NEXT WORD
00132 1 77777 2 00133 TXI *+1,2,-1 '
00133 2 00001 5 00127 TIX LE,5,1 TIX ON BLOCK LENGTH
00134 0634 00 2 00164 SXA I2,2 END OF BLOCK, SET PERM POINTER2 TO NEXT
00135 0534 00 1 00153 LXA I1,1 BLOCK. RESET TEMP POINTER1
00136 0534 00 6 00152 LXA I5,6
00137 0534 00 7 00162 LXA I7,7 RESET MASK POINTER
1 MERGEN FAP PAGE 3
00140 -3 00000 2 00174 TXL END2,2,0 CHECK FOR END OF INPUT2
00141 3 00000 3 00114 TXH TEST,3,0 CHECK FOR END OF OUTPUT
00142 0020 00 0 00220 TRA RET END
00143 1 77777 2 00144 EQ TXI *+1,2,-1 INCREMENT POINTERS
00144 -2 00001 7 00152 TNX I5,7,1 TIX ON SORTNO
00145 2 00001 6 00114 TIX TEST,6,1
00146 0534 00 1 00153 LXA I1,1
00147 0534 00 2 00164 LXA I2,2
00150 0534 00 6 00152 LXA I5,6
00151 0020 00 0 00114 TRA TEST
00152 0774 00 5 00000 I5 AXT -,5 INPUT2 GREATER, OR INPUTS EQUAL, WRITE O
00153 0774 00 1 00000 I1 AXT -,1 OUT INPUT1, RESET WRITE OUT INDEX, AND
00154 -0500 00 1 00000 GR CAL -,1 RESET POINTER TO START OF BLOCK, GET
00155 0602 00 3 00000 SLW -,3 INPUT1+L1,1. PLACE IN IN OUTPUT+L3,3
00156 1 77777 3 00157 TXI *+1,3,-1 NEXT WORD
00157 1 77777 1 00160 TXI *+1,1,-1 '
00160 2 00001 5 00154 TIX GR,5,1 TIX ON BLOCK LENGTH
00161 0634 00 1 00153 SXA I1,1 END OF BLOCK, SET PERM POINTER1 TO NEXT
00162 0774 00 7 00000 I7 AXT -,7 BLOCK. RESET MASK POINTER
00163 0534 00 6 00152 LXA I5,6
00164 0774 00 2 00000 I2 AXT -,2 RESET TEMP POINTER2
00165 -3 00000 1 00170 TXL END1,1,0 CHECK FOR END OF INPUT1
00166 3 00000 3 00114 TXH TEST,3,0 CHECK FOR END OF OUTPUT
00167 0020 00 0 00220 TRA RET
00170 0500 00 0 00253 END1 CLA FLAGS
00171 -0320 00 0 00267 ANA =O10
00172 0100 00 0 00210 TZE WRT2
00173 0020 00 0 00220 TRA RET RETURN
00174 0500 00 0 00253 END2 CLA FLAGS
00175 -0320 00 0 00270 ANA =O20
00176 0100 00 0 00200 TZE WRT1
00177 0020 00 0 00220 TRA RET RETURN
00200 -3 00000 3 00220 WRT1 TXL RET,3,0 CHECK FOR END OF OUTPUT
00201 -3 00000 1 00220 TXL RET,1,0
00202 -0500 00 1 00000 CAL -,1 GET INPUT1+L1,1
00203 0602 00 3 00000 SLW -,3 PLACE IN OUTPUT+L3,3
00204 2 00001 3 00206 TIX *+2,3,1 INC. AND CHECK FOR END OF OUTPUT
00205 1 77777 3 00207 TXI *+2,3,-1
00206 2 00001 1 00201 TIX WRT1+1,1,1 TIX ON L1
00207 1 77777 1 00220 TXI RET,1,-1
00210 -3 00000 3 00220 WRT2 TXL RET,3,0 CHECK FOR END OF OUTPUT
00211 -3 00000 2 00220 TXL RET,2,0
00212 -0500 00 2 00000 CAL ,2 GET INPUT2+L2,2
00213 0602 00 3 00000 SLW -,3 PLACE IN OUTPUT+L3,3
00214 2 00001 3 00216 TIX *+2,3,1
00215 1 77777 3 00217 TXI *+2,3,-1
00216 2 00001 2 00211 TIX WRT2+1,2,1 TIX ON L2
00217 1 77777 2 00220 TXI *+1,2,-1
00220 -0500 00 0 00253 RET CAL FLAGS
00221 -0320 00 0 00266 ANA =O4
00222 -0100 00 0 00231 TNZ REOUT
00223 0634 00 3 00263 SXA I3,3
00224 -0500 00 0 00256 CAL FLAGS+3
00225 0771 00 0 00022 ARS 18
00226 0402 00 0 00263 SUB I3
00227 0767 00 0 00022 ALS 18
1 MERGEN FAP PAGE 4
00230 0020 00 0 00235 TRA CDS
00231 0500 00 0 00263 REOUT CLA I3
00232 0634 00 3 00263 SXA I3,3
00233 0402 00 0 00263 SUB I3
00234 0767 00 0 00022 ALS 18
00235 3 00000 1 00237 CDS TXH *+2,1,0
00236 -0501 00 0 00264 ORA =O1
00237 3 00000 2 00241 TXH *+2,2,0
00240 -0501 00 0 00265 ORA =O2
00241 3 00000 3 00243 TXH *+2,3,0
00242 -0501 00 0 00266 ORA =O4
00243 0774 00 1 00000 XR1 AXT ,1
00244 0774 00 2 00000 XR2 AXT ,2 RESTORE XR'S
00245 0774 00 3 00000 XR3 AXT ,3 ..
00246 0774 00 4 00000 XR4 AXT ,4
00247 0774 00 5 00000 XR5 AXT ,5 ..
00250 0774 00 6 00000 XR6 AXT ,6
00251 0774 00 7 00000 XR7 AXT ,7 ..
00252 0020 00 4 00007 TRA 7,4 RETURN TO CALLER
00253 FLAGS BSS 6
00261 0 00000 0 00000 TEM PZE
00262 0 00000 0 00000 MXTEST PZE
00263 0 00000 0 00000 I3 PZE
END
LITERALS
00264 000000000001
00265 000000000002
00266 000000000004
00267 000000000010
00270 000000000020
1 MERGEN FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
271 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
143 EQ 123
154 GR 45, 73, 160
153 I1 32, 43, 135, 146, 161
164 I2 33, 56, 126, 134, 147
263 I3 34, 223, 226, 231, 232, 233
152 I5 15, 110, 125, 136, 144, 150, 163
162 I7 101, 137
127 LE 60, 72, 133
235 CDS 230
220 RET 113, 142, 167, 173, 177, 200, 201, 207, 210, 211
261 TEM 116, 121
50 TWO 37
243 XR1 6
244 XR2 7
245 XR3 10
246 XR4 11
247 XR5 12
250 XR6 13
251 XR7 14
0 ARGS 26
170 END1 111, 165
174 END2 112, 140
114 TEST 47, 62, 103, 104, 141, 145, 151, 166
122 TRA1 17, 23
124 TRA2 16, 20, 24
200 WRT1 46, 74, 176, 206
210 WRT2 61, 75, 172, 216
253 FLAGS 30, 31, 40, 44, 53, 57, 66, 71, 76, 102, 105, 170, 174, 220, 224
76 MASKS 65
231 REOUT 222
63 THREE 52
5 MERGEN 0
3 MERGEX 0
262 MXTEST 3, 5, 21
0 NO ERROR IN ABOVE ASSEMBLY.
ARGS BCD 08/08/68 2229.9 661 00000
1 PAGE 1
00002 ENTRY ARGS
LINKAGE DIRECTOR
00000 000000000000
00001 215127626060
00002 0634 00 4 00054 ARGS SXA XR4,4
00003 0634 00 1 00053 SXA XR1,1
00004 0500 00 4 00001 CLA 1,4
00005 0771 00 0 00022 ARS 18
00006 0601 00 0 00056 STO LEN
00007 0361 00 4 00001 ACL 1,4
00010 0361 00 0 00057 ACL =1
00011 0621 00 0 00016 STA GETLOC
00012 -0500 00 4 00002 CAL 2,4
00013 0361 00 0 00056 ACL LEN
00014 0621 00 0 00051 STA ARGLOC
00015 0534 00 4 00056 LXA LEN,4
00016 -0500 00 4 00000 GETLOC CAL ,4
00017 -0340 00 0 00061 LAS =O277777777777
00020 0020 00 0 00035 TRA PTH
00021 0020 00 0 00022 TRA *+1
00022 -0340 00 0 00060 LAS =O177777777777
00023 0020 00 0 00026 TRA *+3
00024 0020 00 0 00051 TRA ARGLOC
00025 0020 00 0 00051 TRA ARGLOC
00026 0602 00 0 00056 SLW LEN
00027 -0734 00 1 00000 PDX ,1
00030 0634 00 1 00031 SXA *+1,1
00031 0534 00 1 00000 LXA ,1
00032 -0634 00 1 00056 SXD LEN,1
00033 -0500 00 0 00056 CAL LEN
00034 0020 00 0 00051 TRA ARGLOC
00035 -0340 00 0 00062 PTH LAS =O400000000000
00036 0020 00 0 00051 TRA ARGLOC
00037 0020 00 0 00051 TRA ARGLOC
00040 -0734 00 1 00000 PDX ,1
00041 -0130 00 0 00000 XCL
00042 0754 00 1 00000 PXA ,1
00043 0100 00 0 00046 TZE GETARG
00044 -0130 00 0 00000 XCL
00045 0020 00 0 00051 TRA ARGLOC
00046 -0130 00 0 00000 GETARG XCL
00047 0621 00 0 00050 STA *+1
A 00050 0500 00 0 00000 CLA
00051 0602 00 4 00000 ARGLOC SLW ,4
00052 2 00001 4 00016 TIX GETLOC,4,1
00053 0774 00 1 00000 XR1 AXT ,1
00054 0774 00 4 00000 XR4 AXT ,4
00055 0020 00 4 00003 TRA 3,4
00056 0 00000 0 00000 LEN PZE
END
LITERALS
00057 000000000001
00060 177777777777
1 PAGE 2
00061 277777777777
00062 400000000000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
63 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
56 LEN 6, 13, 15, 26, 32, 33
35 PTH 20
53 XR1 3
54 XR4 2
2 ARGS 0
51 ARGLOC 14, 24, 25, 34, 36, 37, 45
46 GETARG 43
16 GETLOC 11, 52
0 NO ERROR IN ABOVE ASSEMBLY.
GETFIL BCD 08/08/68 2229.9 509 00000
1 MAD PROGRAM LISTING ... ... ... FILE GETFIL MAD 08/08/68 2210.2
-
EXTERNAL FUNCTION (ARG) *001 LM00001
ENTRY TO GETFIL. *002 LM00002
NORMAL MODE IS INTEGER *003 LM00003
FUNCTION RETURN DERBC.(BCDEC.((ARG.A.777777K)+1)).V.$...000$ *004 LM00004
END OF FUNCTION *005 LM00005
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00052 TRANSFER VECTOR LENGTH 00003 PROGRAM BEGINS 00010
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
GETFIL 00011 0
0FUNCTION DICTIONARY
BCDEC 00000 1 DERBC 00001 1 EXIT 00002 1
0ABSOLUTE CONSTANTS
00007 +333333000000 00005 +000000777777 00004 +000000000001 00006 +233000000000
0PROGRAM
EXTERNAL FUNCTION (ARG) 001 LM00001
E'O GETFIL. 002 LM00002
00010 TRA +0 02000 0 00013 00011 SXA +0 63400 2 00035 00012 TSX +0 07400 2 00035
N'R 003 LM00003
F'N DERBC.(BCDEC.((ARG.A.777777K)+1)).V.$...000$ 004 LM00004
00013 CAL -0 50000 0 00024 00014 ANA -0 32000 0 00005 00015 SLW +0 60200 0 00047 00016 CLA +0 50000 0 00047
00017 ADD +0 40000 0 00004 00020 STO +0 60100 0 00047 00021 TSX +0 07400 4 00000 00022 TXH +3 00000 0 00047
00023 STO +0 60100 0 00047 00024 TSX +0 07400 4 00001 00025 TXH +3 00000 0 00047 00026 STO +0 60100 0 00047
00027 CAL -0 50000 0 00047 00030 ORA -0 50100 0 00007 00031 SLW +0 60200 0 00047 00032 CLA +0 50000 0 00047
00033 TRA +0 02000 0 00043
E'N 005 LM00005
00034 TSX +0 07400 4 00002 00035 TXH +3 00000 0 00000 00036 SXD -0 63400 1 00035 00037 SXA +0 63400 4 00043
00040 CLA +0 50000 4 00001 00041 STA +0 62100 0 00013 00042 TRA +0 02000 2 00001 00043 AXT +0 77400 4 00000
00044 LXA +0 53400 2 00035 00045 LXD -0 53400 1 00035 00046 TRA +0 02000 4 00001
SPY BCD 09/20/68 0221.1 9825 00000
1 MAD PROGRAM LISTING ... ... ... FILE SPY2 MAD 02/15/68 1817.6
-
...NEW SPY PROGRAM LM00001
LM00002
DIMENSION COMDLN(19) *001 LM00003
DIMENSION IDENT(1) *002 LM00004
LM00005
MAKE SURE PROPER USER LM00006
LM00007
GETCLS. (COMDLN(19)) *003 LM00008
WHOAMI.(IDENT(1)...2) *004 LM00009
WHENEVER ((IDENT(1).NE.$ M1416$).AND.(IDENT(1).NE.$ M4060$)) *005 LM00010
PRMESS.(COMDLN(19),$ NOT FOUND.$) *006 LM00011
PRMESS.($READY.$,CR) *007 LM00012
VECTOR VALUES CR=555757575757K *008 LM00013
IZERO = IZERO *009 LM00014
VECTOR VALUES IZERO = 0 *010 LM00015
SLEEP. *011 LM00016
PRMESS.($ ILLEGAL SEQUENCE OF COMMANDS.$) *012 LM00017
CHNCOM.(0) *013 LM00018
END OF CONDITIONAL *014 LM00019
LM00020
LM00021
NPROB=SPLFN.(COMARG.(1)) *015 LM00022
NPROG=COMARG.(2) *016 LM00023
LM00024
LOOP A=ISIN.(NPROB,NPROG) *017 LM00025
WHENEVER A.E.0 *018 LM00026
WHENEVER FIRST, PRMESS.(NPROB,NPROG,$ NOT I$,$N YET$) *019 LM00027
FIRST = 0B *020 LM00028
A = 10 *021 LM00029
SLEEP.(10) *022 LM00030
TRANSFER TO LOOP *023 LM00031
END OF CONDITIONAL *024 LM00032
LM00033
...WHEE. LM00034
LM00035
UNI=COMLOC.($UNITID$) *025 LM00036
PRMESS. *026 LM00037
GETTM.(DATE,TIME) *027 LM00038
PRMESS.(NPROB,NPROG,$ LINE$,DERBC.(A),BB,DATE,BB,TIME,BB, *028 LM00039
1 GLOC.(UNI+A)) *028 LM00040
LM00041
CHNCOM.(1) *029 LM00042
LM00043
...IF WE START AND SAY SLAVE, HE IS CAUGHT. LM00044
LM00045
ADOPT=COMLOC.($ADOPT$) *030 LM00046
USR=COMLOC.($USER$) *031 LM00047
LM00048
SLOC.(IOOO.V.A,ADOPT+GLOC.(USR)) *032 LM00049
SLOC.(SLAVER.V.IOOO.V.GLOC.(ADOPT+A),ADOPT+A) *033 LM00050
LM00051
....CONNECTION MADE LM00052
LM00053
TEMP = TEMP *034 LM00054
SLX SLEEP.(10) *035 LM00055
WHENEVER ((GLOC.(ADOPT+GLOC.(USR)).EX.(IOOO.V.A)).A.PTA) *036 LM00056
1 .V.((GLOC.(ADOPT+A).EX.(SLAVER.V.IOOO)) *036 LM00057
2 .A.(SLAVER.V.IOOO)) .NE. 0, TRANSFER TO LOOP *036 LM00058
TRANSFER TO SLX *037 LM00059
LM00060
VECTOR VALUES FIRST=1B *038 LM00061
VECTOR VALUES TEMP = 10 *039 LM00062
VECTOR VALUES PTA=700 000 777 777K *040 LM00063
VECTOR VALUES BB=605757 575757K *041 LM00064
VECTOR VALUES IOOO=3K5 *042 LM00065
VECTOR VALUES SLAVER=7K11 *043 LM00066
NORMAL MODE IS INTEGER *044 LM00067
END OF PROGRAM *045 LM00068
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00363 TRANSFER VECTOR LENGTH 00017 PROGRAM BEGINS 00115
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ADOPT 00022 1 CR 00051 A 1 IOOO 00056 A 1 NPROG 00061 1 TEMP 00064 A 1
A 00023 1 DATE 00052 1 IZERO 00057 A 1 PTA 00062 A 1 TIME 00065 1
BB 00024 A 1 FIRST 00053 A 2 LOOP 00020 4 SLAVER 00063 A 1 UNI 00066 1
COMDLN 00050 A 1 IDENT 00055 A 1 NPROB 00060 1 SLX 00021 4 USR 00067 1
0FUNCTION DICTIONARY
CHNCOM 00000 1 COMARG 00001 1 COMLOC 00002 1 DERBC 00003 1 EXIT 00004 1
GETCLS 00005 1 GETTM 00006 1 GLOC 00007 1 ISIN 00010 1 .SETUP 00011 1
PRMESS 00012 1 SLEEP 00013 1 SLOC 00014 1 SPLFN 00015 1 WHOAMI 00016 1
0ABSOLUTE CONSTANTS
00114 -246225516060 00074 +212446476360 00105 -204331452560 00113 -244531633124 00073 +000000000012
00100 -056070256360 00111 -204546636031 00070 +000000000000 00077 -042145246233 00101 -062660234644
00112 -242545232560 00075 +214360622550 00104 -203143432527 00103 -112521247033 00102 -066445243360
00110 -204546636026 00106 -204401040106 00107 -204404000600 00072 +000000000002 00071 +000000000001
00076 +233000000000
0STATEMENT DICTIONARY
00020 TXL -300167000163 00021 TXL -300311000307
0PROGRAM
D'N COMDLN(19) 001 LM00003
D'N IDENT(1) 002 LM00004
GETCLS. (COMDLN(19)) 003 LM00008
00115 TSX +0 07400 4 00011 00116 TSX +0 07400 4 00005 00117 TXH +3 00000 0 00025
WHOAMI.(IDENT(1)...2) 004 LM00009
00120 TSX +0 07400 4 00016 00121 TIX +2 00072 0 00054
W'R ((IDENT(1).NE.$ M1416$).AND.(IDENT(1).NE.$ M4060$)) 005 LM00010
00122 CLA +0 50000 0 00054 00123 SUB +0 40200 0 00107 00124 TZE +0 10000 0 00152 00125 CLA +0 50000 0 00054
00126 SUB +0 40200 0 00106 00127 TZE +0 10000 0 00152
PRMESS.(COMDLN(19),$ NOT FOUND.$) 006 LM00011
00130 TSX +0 07400 4 00012 00131 TXH +3 00000 0 00025 00132 TXH +3 00000 0 00110 00133 TXH +3 00000 0 00102
PRMESS.($READY.$,CR) 007 LM00012
00134 TSX +0 07400 4 00012 00135 TXH +3 00000 0 00103 00136 TXH +3 00000 0 00051
V'S CR=555757575757K 008 LM00013
00051 -1 55757 5 75757
IZERO = IZERO 009 LM00014
00137 CLA +0 50000 0 00057 00140 STO +0 60100 0 00057
V'S IZERO = 0 010 LM00015
00057 +0 00000 0 00000
SLEEP. 011 LM00016
00141 TSX +0 07400 4 00013
PRMESS.($ ILLEGAL SEQUENCE OF COMMANDS.$) 012 LM00017
00142 TSX +0 07400 4 00012 00143 TXH +3 00000 0 00104 00144 TXH +3 00000 0 00075 00145 TXH +3 00000 0 00112
00146 TXH +3 00000 0 00101 00147 TXH +3 00000 0 00077
CHNCOM.(0) 013 LM00018
00150 TSX +0 07400 4 00000 00151 TXH +3 00000 0 00070
E'L 014 LM00019
NPROB=SPLFN.(COMARG.(1)) 015 LM00022
00152 TSX +0 07400 4 00001 00153 TXH +3 00000 0 00071 00154 STO +0 60100 0 00356 00155 TSX +0 07400 4 00015
00156 TXH +3 00000 0 00356 00157 STO +0 60100 0 00060
NPROG=COMARG.(2) 016 LM00023
00160 TSX +0 07400 4 00001 00161 TXH +3 00000 0 00072 00162 STO +0 60100 0 00061
LOOP A=ISIN.(NPROB,NPROG) 017 LM00025
00163 TSX +0 07400 4 00010 00164 TXH +3 00000 0 00060 00165 TXH +3 00000 0 00061 00166 STO +0 60100 0 00023
W'R A.E.0 018 LM00026
00167 CLA +0 50000 0 00023 00170 SUB +0 40200 0 00070 00171 TNZ -0 10000 0 00210
W'R FIRST, PRMESS.(NPROB,NPROG,$ NOT I$,$N YET$) 019 LM00027
00172 NZT -0 52000 0 00053 00173 TRA +0 02000 0 00201 00174 TSX +0 07400 4 00012 00175 TXH +3 00000 0 00060
00176 TXH +3 00000 0 00061 00177 TXH +3 00000 0 00111 00200 TXH +3 00000 0 00100
FIRST = 0B 020 LM00028
00201 CLA +0 50000 0 00070 00202 STO +0 60100 0 00053
A = 10 021 LM00029
00203 CLA +0 50000 0 00073 00204 STO +0 60100 0 00023
SLEEP.(10) 022 LM00030
00205 TSX +0 07400 4 00013 00206 TXH +3 00000 0 00073
T'O LOOP 023 LM00031
00207 TRA +0 02000 0 00020
E'L 024 LM00032
UNI=COMLOC.($UNITID$) 025 LM00036
00210 TSX +0 07400 4 00002 00211 TXH +3 00000 0 00113 00212 STO +0 60100 0 00066
PRMESS. 026 LM00037
00213 TSX +0 07400 4 00012
GETTM.(DATE,TIME) 027 LM00038
00214 TSX +0 07400 4 00006 00215 TXH +3 00000 0 00052 00216 TXH +3 00000 0 00065
PRMESS.(NPROB,NPROG,$ LINE$,DERBC.(A),BB,DATE,BB,TIME,BB, 028 LM00039
1 GLOC.(UNI+A)) 028 LM00040
00217 CLA +0 50000 0 00066 00220 ADD +0 40000 0 00023 00221 STO +0 60100 0 00356 00222 TSX +0 07400 4 00007
00223 TXH +3 00000 0 00356 00224 STO +0 60100 0 00356 00225 TSX +0 07400 4 00003 00226 TXH +3 00000 0 00023
00227 STO +0 60100 0 00357 00230 TSX +0 07400 4 00012 00231 TXH +3 00000 0 00060 00232 TXH +3 00000 0 00061
00233 TXH +3 00000 0 00105 00234 TXH +3 00000 0 00357 00235 TXH +3 00000 0 00024 00236 TXH +3 00000 0 00052
00237 TXH +3 00000 0 00024 00240 TXH +3 00000 0 00065 00241 TXH +3 00000 0 00024 00242 TXH +3 00000 0 00356
CHNCOM.(1) 029 LM00042
00243 TSX +0 07400 4 00000 00244 TXH +3 00000 0 00071
ADOPT=COMLOC.($ADOPT$) 030 LM00046
00245 TSX +0 07400 4 00002 00246 TXH +3 00000 0 00074 00247 STO +0 60100 0 00022
USR=COMLOC.($USER$) 031 LM00047
00250 TSX +0 07400 4 00002 00251 TXH +3 00000 0 00114 00252 STO +0 60100 0 00067
SLOC.(IOOO.V.A,ADOPT+GLOC.(USR)) 032 LM00049
00253 TSX +0 07400 4 00007 00254 TXH +3 00000 0 00067 00255 ADD +0 40000 0 00022 00256 STO +0 60100 0 00357
00257 CAL -0 50000 0 00056 00260 ORA -0 50100 0 00023 00261 SLW +0 60200 0 00356 00262 TSX +0 07400 4 00014
00263 TXH +3 00000 0 00356 00264 TXH +3 00000 0 00357
SLOC.(SLAVER.V.IOOO.V.GLOC.(ADOPT+A),ADOPT+A) 033 LM00050
00265 CLA +0 50000 0 00022 00266 ADD +0 40000 0 00023 00267 STO +0 60100 0 00357 00270 CLA +0 50000 0 00022
00271 ADD +0 40000 0 00023 00272 STO +0 60100 0 00356 00273 TSX +0 07400 4 00007 00274 TXH +3 00000 0 00356
00275 STO +0 60100 0 00356 00276 CAL -0 50000 0 00063 00277 ORA -0 50100 0 00056 00300 ORA -0 50100 0 00356
00301 SLW +0 60200 0 00356 00302 TSX +0 07400 4 00014 00303 TXH +3 00000 0 00356 00304 TXH +3 00000 0 00357
TEMP = TEMP 034 LM00054
00305 CLA +0 50000 0 00064 00306 STO +0 60100 0 00064
SLX SLEEP.(10) 035 LM00055
00307 TSX +0 07400 4 00013 00310 TXH +3 00000 0 00073
W'R ((GLOC.(ADOPT+GLOC.(USR)).EX.(IOOO.V.A)).A.PTA) 036 LM00056
1 .V.((GLOC.(ADOPT+A).EX.(SLAVER.V.IOOO)) 036 LM00057
2 .A.(SLAVER.V.IOOO)) .NE. 0, T'O LOOP 036 LM00058
00311 CAL -0 50000 0 00063 00312 ORA -0 50100 0 00056 00313 SLW +0 60200 0 00357 00314 CAL -0 50000 0 00063
00315 ORA -0 50100 0 00056 00316 SLW +0 60200 0 00356 00317 CLA +0 50000 0 00022 00320 ADD +0 40000 0 00023
00321 STO +0 60100 0 00360 00322 TSX +0 07400 4 00007 00323 TXH +3 00000 0 00360 00324 STO +0 60100 0 00360
00325 CAL -0 50000 0 00360 00326 ERA +0 32200 0 00356 00327 ANA -0 32000 0 00357 00330 SLW +0 60200 0 00360
00331 CAL -0 50000 0 00056 00332 ORA -0 50100 0 00023 00333 SLW +0 60200 0 00357 00334 TSX +0 07400 4 00007
00335 TXH +3 00000 0 00067 00336 ADD +0 40000 0 00022 00337 STO +0 60100 0 00356 00340 TSX +0 07400 4 00007
00341 TXH +3 00000 0 00356 00342 STO +0 60100 0 00356 00343 CAL -0 50000 0 00356 00344 ERA +0 32200 0 00357
00345 ANA -0 32000 0 00062 00346 ORA -0 50100 0 00360 00347 SLW +0 60200 0 00360 00350 CLA +0 50000 0 00360
00351 SUB +0 40200 0 00070 00352 TZE +0 10000 0 00354 00353 TRA +0 02000 0 00020
T'O SLX 037 LM00059
00354 TRA +0 02000 0 00021
V'S FIRST=1B 038 LM00061
00053 +0 00000 0 00001
V'S TEMP = 10 039 LM00062
00064 +0 00000 0 00012
V'S PTA=700 000 777 777K 040 LM00063
00062 -3 00000 7 77777
V'S BB=605757 575757K 041 LM00064
00024 -2 05757 5 75757
V'S IOOO=3K5 042 LM00065
00056 +0 00000 3 00000
V'S SLAVER=7K11 043 LM00066
00063 -3 00000 0 00000
N'R 044 LM00067
E'M 045 LM00068
00355 TSX +0 07400 4 00004
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 1
2/8/66 - NOEL I. MORRIS
00001 ENTRY ISIN DETERMINE IF USER LOGGED IN
00027 ENTRY FINDSB FIND A STANDBY USER
00062 ENTRY KILL MURDER A LOSER
00140 ENTRY CHKLU CHECK FOR KLUDGE USER
UNLIST
M S COMMON M MACRO TO REDEFINE COMMON
M LDISW MACRO S,X
M STISW MACRO S,X
M CALL MACRO SUBR,LIST
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 2
ISIN - DETERMINE IF USER ALREADY LOGGED IN.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* LINE = ISIN. (PROB, PROG)
*
* IF USER IS NOT LOGGED IN, LINE IS SET TO ZERO.
* OTHERWISE LINE IS SET TO THE LINE NO. OF THE USER.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00001 0634 00 4 00022 ISIN SXA SX4,4 SAVE XR4
00002 0760 00 0 00016 EAXM ENTER 7-TAG MODE **
00003 -0500 60 4 00001 CAL* 1,4 PICK UP PROBLEM NO.
00004 0602 00 0 00155 SLW PROB ..
00005 -0500 60 4 00002 CAL* 2,4 AND PROGRAMMER NO.
00006 0602 00 0 00156 SLW PROG ..
00007 0774 00 4 00043 AXT N,4 SEARCH ALL N LINES
00010 LOOP XEC.A CAL(PROBN+N+1,4) GET PROBLEM NO.
00012 0322 00 0 00155 ERA PROB COMPARE
00013 -0100 00 0 00020 TNZ NEXT ..
00014 XEC.A CAL(PROGN+N+1,4) GET PROGRAMMER NO.
00016 0322 00 0 00156 ERA PROG COMPARE
00017 0100 00 0 00024 TZE FND USER FOUND
00020 2 00001 4 00010 NEXT TIX LOOP,4,1 ..
00021 -0754 00 0 00000 ZAC ZERO MEANS USER NOT FOUND
00022 0774 00 4 00000 SX4 AXT **,4 RESTORE XR4
00023 0020 00 4 00002 TRA 2,4 AND RETURN
00024 1 77734 4 00025 FND TXI *+1,4,-N-1 COMPUTE USER'S LINE NO.
00025 0756 00 4 00000 PCA ,4 AND PLACE IN A
00026 0020 00 0 00022 TRA SX4 RETURN WITH NO. IN AC
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 3
FINDSB - FIND A STANDBY USER.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* LOSER = FINDSB. (T.GRP)
*
*
* IF 'T.GRP' IS ZERO, THE STANDBY USER WHO HAS USED MOST TIME
* WILL BE RETURNED.
* IF 'T.GRP' IS NON-ZERO, THE STANDBY USER MUST BE IN
* PARTY-GROUP 'T.GRP'.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00027 0634 00 4 00060 FINDSB SXA FSX4,4 SAVE XR4
00030 0760 00 0 00016 EAXM ENTER 7-TAG MODE **
00031 0500 60 4 00001 CLA* 1,4 GET 'T.GRP'
00032 0602 00 0 00160 SLW T.GRP INSURE NUMBER POSITIVE
00033 0600 00 0 00157 STZ LOSER INITIALIZE
00034 0600 00 0 00161 STZ UTM ..
00035 -0774 00 4 00003 AXC 3,4 ..
00036 SBLOOP XEC.A NZT(PROBN,4) IF LOGGED IN,
00040 0020 00 0 00055 TRA SBTIX ..
00041 XEC.A CLA(GRPNO.,4) ..
00043 0120 00 0 00055 TPL SBTIX AND A STANDBY,
00044 -0520 00 0 00160 NZT T.GRP CHECK FOR 'T.GRP' SPECIFIED
00045 0020 00 0 00050 TRA *+3 ..
00046 0400 00 0 00160 ADD T.GRP COMPARE WITH SPECIFIED 'T.GRP'
00047 -0100 00 0 00055 TNZ SBTIX ..
00050 XEC.A CAL(UTIME,4) GET TIME USED
00052 -0340 00 0 00161 LAS UTM COMPARE AGAINST LARGEST
00053 0602 00 0 00161 SLW UTM SAVE LARGER TIME
00054 0636 00 4 00157 SCA LOSER,4 AND INDEX TO THE USER
00055 1 77777 4 00056 SBTIX TXI *+1,4,-1 GO ON TO THE NEXT
00056 3 77734 4 00036 TXH SBLOOP,4,-N-1 ..
00057 0500 00 0 00157 CLA LOSER GET USER INDEX
00060 0774 00 4 00000 FSX4 AXT **,4 RESTORE XR4
00061 0020 00 4 00002 TRA 2,4 AND RETURN
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 4
KILL - MURDER A LOSER.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* KILL. (LOSER)
*
*
* 'LOSER' IS THE LINE NUMBER OF THE USER TO BE
* MURDERED.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00062 0634 00 4 00135 KILL SXA KX4,4 SAVE XR4
00063 0760 00 0 00016 EAXM ENTER 7-TAG MODE **
00064 0634 00 2 00136 SXA KX2,2 AND XR2
00065 -0500 60 4 00001 CAL* 1,4 GET 'LOSER'
00066 0602 00 0 00157 SLW LOSER ..
00067 0737 00 2 00000 PAC ,2 -USER NO. IN XR2
00070 -0500 00 0 00174 CAL =HENDLOG COMMAND FOR 'LOSER'
00071 XEC.A SLW(COMMND,2) ..
00073 SCHEDL =2,LOSER,=1 PULL HIM OUT OF QUEUES AND
00077 SCHEDL =6,LOSER,=0 MAKE HIM RUN
00103 SCHEDL =2,LOSER,=3 AND PLACE IN WAITING COMMAND
00107 0600 00 0 00162 STZ 12MODE RESET 12-BIT MODE SWITCH
00110 ZETBIT ,2,FULLBT CHECK FOR USER IN 12-BIT MODE
00113 -0625 00 0 00162 STL 12MODE IF SO, SET 12-BIT MODE SWITCH
00114 STZBIT ,2,FULLBT MAKE SURE USER IN 6-BIT MODE
00121 CALL RSSWB AND FLUSH HIS OUTPUT BUFFERS
00121 0074 00 4 00164 TSX RSSWB,4 .002
00122 0 00000 0 00157 PZE LOSER ..
00123 COMENT WAIT.,1(WAIT,) AAAAGH ......
00123 0074 00 4 00165 TSX WRFLX,4 .003
00124 3 00001 0 00166 PAR WAIT.,,1 .005
00125 0 00000 0 00157 PZE LOSER ..
00126 -0520 00 0 00162 NZT 12MODE CHECK FOR USER PREVIOUSLY IN 12-BIT MODE
00127 0020 00 0 00135 TRA KX4 USER WAS IN 6-BIT MODE
00130 STLBIT ,2,FULLBT RESET USER'S 12-BIT MODE SWITCH
00135 0774 00 4 00000 KX4 AXT **,4 HE SCREAMS
00136 0774 00 2 00000 KX2 AXT **,2 BUT
00137 0020 00 4 00001 TRA 1,4 WE HAVE LEFT
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 5
CHKLU - CHECK FOR KLUDGE USER.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* CINDEX = CHKLU. ()
*
* INDEX IS ZERO IF USER IS NOT A KLUDGE USER.
* INDEX IS EITHER 1 OR 2 IF USER IS A KLUDGE USER.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00140 0634 00 4 00153 CHKLU SXA CKLX4,4 SAVE XR4
00141 0760 00 0 00016 EAXM ENTER 7-TAG MODE **
00142 -0500 00 0 77415 CAL CONSOL PICK UP USER CONSOLE I.D.
00143 -0774 00 4 00002 AXC 2,4 ONLY 2 KLUDGE CONSOLES
00144 KLOOP XEC.A LAS(KLUNIT-1,4) CHECK FOR KLUDGE CONSOLE
00146 0020 00 0 00150 TRA *+2 ..
00147 0020 00 0 00152 TRA KLFND FOUND ONE
00150 1 00001 4 00151 TXI *+1,4,1 STEP INDEX
00151 3 00000 4 00144 TXH KLOOP,4,0 AND CHECK FOR COMPLETION OF SEARCH
00152 0756 00 4 00000 KLFND PCA ,4 INDEX IN AC
00153 0774 00 4 00000 CKLX4 AXT **,4 RESTORE XR4
00154 0020 00 4 00001 TRA 1,4 AND RETURN WITH INDEX IN AC
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 6
STORAGE AND CONSTANTS.
00155 0 00000 0 00000 PROB PZE
00156 0 00000 0 00000 PROG PZE
00157 0 00000 0 00000 LOSER PZE
00160 0 00000 0 00000 T.GRP PZE
00161 0 00000 0 00000 UTM PZE
00162 0 00000 0 00000 12MODE PZE
INSERT TEMPA
*** COMMON PACKAGE FOR LOGIN PROGRAMS. ***
77444 KOMMON WDSLIN-1 ALL-PURPOSE CARD IMAGE BUFFER
77444 CARD KOMMON 1 ..
*** VECTOR USED BY RDACCT PROGRAMS. ***
77411 KOMMON 26
77411 TEMPA KOMMON 1
77412 NPROB SYN TEMPA+1 USER PROBLEM NUMBER
77413 NAME SYN TEMPA+2 USER NAME
77414 PASSW SYN TEMPA+3 PASSWORD
77415 CONSOL SYN TEMPA+4 CONSOLE I.D.
77416 NPROG SYN TEMPA+5 USER PROGRAMMER NUMBER
77417 TA1 SYN TEMPA+6 ALLOTTED TIME
77420 TA2 SYN TEMPA+7 ..
77421 TA3 SYN TEMPA+8 ..
77422 TA4 SYN TEMPA+9 ..
77423 TA5 SYN TEMPA+10 ..
77424 GRP SYN TEMPA+11 PARTY GROUP NUMBER
77425 SB SYN TEMPA+12 NON-ZERO IF USER MAY BE STANDBY
77426 MULT SYN TEMPA+13 LINE MULTIPLIER
77427 UNIT SYN TEMPA+14 UNIT GROUP NUMBER
77430 CODE SYN TEMPA+15 USER RESTRICTION CODE (RCODE)
77431 LSTLGT SYN TEMPA+16 DATE AND TIME OF LAST LOGOUT (2 WORDS)
77433 USDFRM SYN TEMPA+18 DATE AND TIME TIME ACCUMULATED FROM
77435 TU1 SYN TEMPA+20 USED TIME
77436 TU2 SYN TEMPA+21 ..
77437 TU3 SYN TEMPA+22 ..
77440 TU4 SYN TEMPA+23 ..
77441 TU5 SYN TEMPA+24 ..
77442 TIMEIN SYN TEMPA+25 TOTAL CONSOLE TIME USED
77443 KLUSED SYN TEMPA+26 KLUDGE TIME USED
00163 0101 00 0 00176 SCHEDL TIA =HSCHEDL
00164 RMT * REMOTE SEQUENCES
00164 0101 00 0 00175 RSSWB TIA =HRSSWB .002
00165 0101 00 0 00177 WRFLX TIA =HWRFLX .002
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 7
STORAGE AND CONSTANTS.
00166 662131637360 WAIT. BCI 1,WAIT, .002
END
LITERALS
00167 000000000000
00170 000000000001
00171 000000000002
00172 000000000003
00173 000000000006
00174 254524434627
00175 516262662260
00176 622330252443
00177 665126436760
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
77410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
200 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1 A 1
2 B 1
72741 C 1
43 N 1, 7, 11, 15, 24, 56
72767 MQ 1
72771 OV 1
75126 PB 1
77425 SB 163
72770 SI 1
72766 SQ 1
24 FND 17
77424 GRP 163
72754 ILC 1
75632 IOD 1
72763 IR1 1
72762 IR2 1
72761 IR3 1
72760 IR4 1
72757 IR5 1
72756 IR6 1
72755 IR7 1
1 .F. 1
0 .I. 1
136 KX2 64
135 KX4 62, 127
72765 LAC 1
22 SX4 1, 26
77417 TA1 163
77420 TA2 163
77421 TA3 163
77422 TA4 163
77423 TA5 163
1 TMP 1
77435 TU1 163
77436 TU2 163
77437 TU3 163
77440 TU4 163
77441 TU5 163
161 UTM 34, 52, 53
0 BASE 1
77444 CARD 163
77430 CODE 163
75070 DATE 1
72775 DVCK 1
72773 FLMD 1
60 FSX4 27
0 GETA 10, 14, 36, 41, 50, 71, 110, 114, 117, 130, 133, 144
72774 IOCK 1
1 ISIN 0
62 KILL 0
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 2
POST PROCESSOR ASSEMBLY DATA
10 LOOP 20
72772 MTMD 1
77426 MULT 163
77413 NAME 163
20 NEXT 13
155 PROB 4, 12
156 PROG 6, 16
74001 Q1U1 1
73315 Q1U2 1
74000 Q3U1 1
73243 Q3U2 1
72776 SLTS 1
75110 SWAP 1
77070 TAU1 1
77024 TAU2 1
76760 TAU3 1
76714 TAU4 1
76650 TAU5 1
77427 UNIT 163
75071 USER 1
75042 WAIT 1
75346 ADOPT 1
72777 ASTAT 1
75456 AWAKE 1
73000 BSTAT 1
140 CHKLU 0
153 CKLX4 140
75063 COMSW 1
74123 DBUF1 1
77777 ENBWD 1
1000 FLBIT 1
76474 ITIME 1
77461 ..001 1
73240 ..121 1
73212 ..125 1
73045 ..127 1
73012 ..136 1
73007 ..137 1
72747 ..169 1
152 KLFND 147
144 KLOOP 151
24 LCBUF 1
77622 LEVEL 1
157 LOSER 33, 54, 57, 66, 75, 101, 105, 122, 125
12 MAXLV 1
20000 NBKBT 1
4000 NCVBT 1
77412 NPROB 163
77416 NPROG 163
77414 PASSW 163
75003 PBUFF 1
77243 PLIST 1
72751 PRIND 1
76430 PROBN 1, 11, 37
76364 PROGN 1, 15
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 3
POST PROCESSOR ASSEMBLY DATA
72764 PTIRS 1
3 QUITL 1
76162 RCODE 1
75040 READY 1
72752 RLIND 1
164 RSSWB 121
55 SBTIX 40, 43, 47
75076 SHIFT 1
75075 STNBY 1
75064 SWPSW 1
75113 TBASE 1
77411 TEMPA 163
160 T.GRP 32, 44, 46
77151 ULIST 1
76320 UNAME 1
76604 UTIME 1, 51
166 WAIT. 124
165 WRFLX 123
162 12MODE 107, 113, 126
12 ACTFIL 1
53 AFS1LN 1
361 AFS2LN 1
25 AFSCON 1
26 AFSENL 1
74047 AFSTU1 1
73416 AFSTU2 1
75043 ATLOST 1
73004 ATRILC 1
73020 AUTHOR 1
75053 AUTOND 1
75046 BASEAD 1
75116 BEGTIM 1
75044 BKGATT 1
75061 BKGTIM 1
73013 BREAKL 1
73014 BRKILC 1
73005 BTRILC 1
73215 CCBSAV 1
5 CDEPTH 1
73241 CFSAVE 1
73214 CLCSAV 1
75052 CLKTIM 1
24 CLNGTH 1
40 CLOCBT 1
77461 COMBAS 1
75676 COMCTR 1
75172 COMFSW 1
76006 COMMND 1, 72
77462 COMRLC 1
75057 COMTIM 1
75054 COMWAT 1
77415 CONSOL 142, 163
75124 CURUSR 1
75067 DATEYR 1
75045 DEMKEY 1
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 4
POST PROCESSOR ASSEMBLY DATA
75047 DSKLOC 1
77776 DUMMY0 1
77335 DUMMY2 1
77150 DUMMY4 1
77134 DUMMY6 1
76317 DUMMY7 1
75041 DUMMY8 1
75037 DUMMYC 1
75002 DUMMYE 1
74122 DUMMYH 1
74046 DUMMYI 1
74000 DUMMYJ 1
73777 DUMMYK 1
73415 DUMMYL 1
73314 DUMMYM 1
76272 DUMY71 1
73242 EMCOND 1
75104 EMPLVL 1
77135 ENDPTR 1
75072 ESTTIM 1
1 FIBBIT 1
75073 FIBPTR 1
75074 FIBRUN 1
27 FINDSB 0
4 FULLBT 1, 112, 116, 132
75103 FULLEN 1
75105 FULLVL 1
24 GROUPS 1
76226 GRPNO. 1, 42
76273 GRPTBL 1
75077 HANGUP 1
400 HNGLBT 1
10 HUNGBT 1
75742 ILINES 1
75100 INACTV 1
100 INTBIT 1
72742 KLTIME 1
72746 KLUNIT 1, 145
77443 KLUSED 163
72744 KLUSER 1
77666 LENGTH 1
75101 LEVINC 1
75111 LEVTIM 1
77336 LINMUL 1
77431 LSTLGT 163
72750 MACOND 1
75107 MAXLVL 1
75114 MAXTIM 1
72753 MEMBND 1
75106 MINLVL 1
75125 MXUSRS 1
1000 NBACBT 1
10000 NBKBIT 1
2000 NCVBIT 1
10000 NDEMBT 1
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 5
POST PROCESSOR ASSEMBLY DATA
77777 NEWTOP 1
75122 NEWUSR 1
4000 NFIBBT 1
2000 NFORBT 1
200 NINTBT 1
76540 NOTIME 1
20000 NPRCBT 1
75065 NUSERS 1
660 NWDSPT 1
75051 NWORDS 1
75302 OKPROB 1
75236 OKPROG 1
73006 OLDILC 1
77461 OLDTOP 1
75123 OLDUSR 1
20 OUTPBT 1
75112 PAYTIM 1
75121 PAYUSR 1
45 Q1U1LN 1
100 Q1U2LN 1
0 Q3U1LN 1
51 Q3U2LN 1
75102 QNTWAT 1
75115 QUANTM 1
100 R636BT 1
2 RCALBT 1
1 RCOMBT 1
200 RDSKBT 1
40 RKLDBT 1
20 RPATBT 1
4 RPROBT 1
10 RPRVBT 1
73017 SAVEM1 1
36 SBLOOP 56
163 SCHEDL 73, 77, 103
77732 STATUS 1
75050 STOPSW 1
77446 STRTIM 1
73046 SUBCOM 1
75060 SWPTIM 1
75055 SWPWAT 1
75117 SYSDAT 1
75120 SYSTIM 1
77442 TIMEIN 163
75412 TIMINC 1
77556 TIMLEV 1
75066 TIMNOW 1
73002 TINHIB 1
75062 TOTTIM 1
73001 TSSFSW 1
1 UBACBT 1
75522 UCHARG 1
75566 UCLOCK 1
73022 UCOMBF 1
2 UCOMBT 1
1 UTILITY ROUTINES FOR LOGIN AND LOGOUT. PAGE 6
POST PROCESSOR ASSEMBLY DATA
10 UDEMBT 1
73003 UENBWD 1
73015 UFERTN 1
4 UFIBBT 1
2 UFORBT 1
73016 UILOCK 1
76052 UNITID 1
20 UPRCBT 1
73021 URCODE 1
77433 USDFRM 163
75056 USRWAT 1
76116 USWICH 1, 111, 115, 120, 131, 134
73213 WATCOM 1
77512 WATTIM 1
16 WDSLIN 1, 163
77402 WRKTIM 1
0 NO ERROR IN ABOVE ASSEMBLY.
1 GETA - EXECUTE INSTRUCTIONS TO A-CORE. PAGE 1
2/3/66 - NOEL I. MORRIS
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
*
* TO EXECUTE AN INSTRUCTION REFERRING TO A-CORE -
*
* TSX GETA,7 XR7 MAY NOT BE USED FOR INDEXING
* OPCODE LOCN,TAG ..
*
* ALL MEMORY REFERENCE INSTRUCTIONS WILL WORK WITH
* THIS SUBROUTINE EXCEPT THE FOLLOWING -
*
* ANS AND TO STORAGE
* DXXX ALL DOUBLE-PRECISION OPERATIONS
*
*
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
00002 ENTRY GETA
TRANSFER VECTOR
00000 272563434623 GETLOC
00001 622563434623 SETLOC
00002 0634 00 7 00040 GETA SXA X7,7 SAVE XR7
00003 0074 00 7 00057 TSX SAVE,7 SAVE MACHINE CONDITIONS
00004 -0754 00 0 00000 ZAC INSURE ZERO TAG
00005 0625 00 0 00073 STT INSTR ..
00006 0534 00 7 00040 LXA X7,7 RESTORE XR7
00007 0560 00 7 00001 LDQ 1,7 GET INSTRUCTION
00010 -0620 00 0 00073 SLQ INSTR SAVE IT
00011 -0130 00 0 00000 XCL ..
00012 0044 00 0 00000 PAI INTO SI
00013 -0056 00 041400 LNT 41400 IS IT INDEX TRANSMISSION .Q.
00014 0020 00 0 00053 TRA GETEFA NO
00015 0625 00 0 00073 STT INSTR YES, SAVE TAG
00016 0621 00 0 00027 STA STA ADDR1 SAVE ADDRESS
00017 0621 00 0 00036 STA ADDR2 ..
00020 0621 00 0 00043 STA ADDR3 ..
00021 -0051 00 060000 IIL 60000 IS IT STORE CLASS .Q.
00022 -0054 00 370000 LFT 370000 ..
00023 0020 00 0 00042 TRA GET NO, GO TO GETLOC
00024 -0056 00 002000 LNT 2000 IS IT BYTE STORE .Q.
00025 0020 00 0 00031 TRA PUT NO, SKIP GETLOC
00026 0074 00 4 00000 TSX GETLOC,4 GET LOC'N CONTENTS
00027 3 00000 0 00000 ADDR1 PTH ** ..
00030 0602 00 0 00074 SLW C(LOC) AND SAVE
1 GETA - EXECUTE INSTRUCTIONS TO A-CORE. PAGE 2
00031 0074 00 7 00065 PUT TSX RESTOR,7 RESTORE MACHINE CONDITIONS
00032 0522 00 0 00073 XEC INSTR EXECUTE INSTRUCTION
00033 0074 00 7 00057 TSX SAVE,7 SAVE MACHINE CONDITIONS
00034 -0500 00 0 00074 CAL C(LOC) GET LOC'N CONTENTS NOW
00035 0074 00 4 00001 TSX SETLOC,4 AND RESET THEM
00036 3 00000 0 00000 ADDR2 PTH ** ..
00037 0074 00 7 00065 TSX RESTOR,7 RESTORE MACHINE CONDITIONS
00040 0774 00 7 00000 X7 AXT **,7 RESTORE XR7
00041 0020 00 7 00002 TRA 2,7 RETURN
00042 0074 00 4 00000 GET TSX GETLOC,4 GET LOC'N CONTENTS
00043 3 00000 0 00000 ADDR3 PTH ** ..
00044 0602 00 0 00074 SLW C(LOC) AND SAVE
00045 0074 00 7 00065 TSX RESTOR,7 RESTORE CONSOLE
00046 0534 00 7 00040 LXA X7,7 RESTORE XR7
00047 0522 00 0 00073 XEC INSTR EXECUTE INSTRUCTION
00050 0020 00 7 00002 TRA 2,7 RETURN
00051 0020 00 7 00003 TRA 3,7 RETURN FOR 'ZET', 'CAS', ETC.
00052 0020 00 7 00004 TRA 4,7 ..
00053 0625 00 0 00054 GETEFA STT *+1 CALCULATE EFFECTIVE ADDRESS
00054 0756 00 0 00000 PCA ,** ..
00055 0361 00 7 00001 ACL 1,7 ..
00056 0020 00 0 00016 TRA STA ..
00057 0634 00 4 00071 SAVE SXA X4,4 SAVE MACHINE CONDITIONS
00060 0602 00 0 00075 SLW LAC LOGICAL AC
00061 0601 00 0 00076 STO AAC ARITH. AC
00062 -0600 00 0 00077 STQ MQ SAVE MQ
00063 0604 00 0 00100 STI SI AND SI
00064 0020 00 7 00001 TRA 1,7 RETURN
00065 0500 00 0 00076 RESTOR CLA AAC ARITH. AC
00066 -0501 00 0 00075 ORA LAC LOGICAL AC
00067 0560 00 0 00077 LDQ MQ MQ
00070 0441 00 0 00100 LDI SI SI
00071 0774 00 4 00000 X4 AXT **,4 RESTORE XR4
00072 0020 00 7 00001 TRA 1,7 RETURN
00073 0 00000 0 00074 INSTR *** C(LOC),**
00074 0 00000 0 00000 C(LOC) PZE
00075 0 00000 0 00000 LAC PZE
00076 0 00000 0 00000 AAC PZE
00077 0 00000 0 00000 MQ PZE
00100 0 00000 0 00000 SI PZE
EXTERN GETLOC,SETLOC
1 GETA - EXECUTE INSTRUCTIONS TO A-CORE. PAGE 3
END
1 GETA - EXECUTE INSTRUCTIONS TO A-CORE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
101 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
77 MQ 62, 67
100 SI 63, 70
71 X4 57
40 X7 2, 6, 46
76 AAC 61, 65
42 GET 23
75 LAC 60, 66
31 PUT 25
16 STA 56
2 GETA 0
57 SAVE 3, 33
27 ADDR1 16
36 ADDR2 17
43 ADDR3 20
73 INSTR 5, 10, 15, 32, 47
74 C(LOC) 30, 34, 44, 73
53 GETEFA 14
0 GETLOC 26, 42
65 RESTOR 31, 37, 45
1 SETLOC 35
0 NO ERROR IN ABOVE ASSEMBLY.
SUMMRY BCD 09/20/68 0221.2 18576 00000
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 1
* FROM TIMUSD TIMACC AND UACCNT TIMACC
EXTERN BFOPEN,BFCLOS,BFREAD,BFWRIT,DAYMON
EXTERN LINK,UNLINK
EXTERN RJUST,LJUST,BZEL,DEFBC,BCDEC
EXTERN PRNTER,STORGE,ATTACH,FSTATE,GETTM
EXTERN OPEN,RDFILE,CLOSE
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 2
TUIN MACRO X,Y
TSX BCDEC,4 CONVERTS BINARY MINUTES TO
PTH X BCD HOURS, ROUNDED, AND
ADD =30 STORES INDIRECTLY IN Y
XCA
ZAC
DVP =60
STQ* Y
TUIN END
UPBCD MACRO X,Y TO ADD A BCD NUMBER TO A
TSX BCDEC,4 BINARY TOTAL IN Y
PTH X
ADD Y
STO Y
UPBCD END
UCSTIN MACRO TIME,PRICE
LDQ* TIME COMPUTE COST OF 'TIME', INDIRECT
MPY PRICE
XCA
ADD TEMP AND UPDATE A TOTAL IN TEMP
STO TEMP
UCSTIN END
CONIN MACRO TIME,SLOT MACRO TO PUT TIME INTO SLOT
CLA* TIME INDIRECTLY
STO TEMP AFTER CONVERSION TO BCD
TSX CONVRT,4
PTH TEMP
STO SLOT
CONIN END
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 3
THE FOLLOWING ARE THE VARIABLES USED
FOR COMPUTING THE VARIOUS CHARGES--
TRANSFER VECTOR
00000 222646472545 BFOPEN
00001 222623434662 BFCLOS
00002 222651252124 BFREAD
00003 222666513163 BFWRIT
00004 242170444645 DAYMON
00005 433145426060 LINK
00006 644543314542 UNLINK
00007 514164626360 RJUST
00010 434164626360 LJUST
00011 227125436060 BZEL
00012 242526222360 DEFBC
00013 222324252360 BCDEC
00014 475145632551 PRNTER
00015 626346512725 STORGE
00016 216363212330 ATTACH
00017 266263216325 FSTATE
00020 272563634460 GETTM
00021 464725456060 OPEN
00022 512426314325 RDFILE
00023 234346622560 CLOSE
00024 0020 00 0 00035 TRA START
00025 0 00000 0 00454 COST1 PZE 300 INTEGER DOLLARS PER FIRST SHIFT HOUR
00026 0 00000 0 00310 COST2 PZE 200 SECOND SHIFT
00027 0 00000 0 00310 COST3 PZE 200 THIRD SHIFT
00030 0 00000 0 00310 COST4 PZE 200 FOURTH SHIFT
00031 0 00000 0 00310 COST5 PZE 200 FIFTH SHIFT (FIB)
00032 0 00000 0 15012 COSTD PZE 6666 TEN-THOUSANDTHS OF A CENT CHARGED PER
DISK TRACK PER DAY
00033 0 00000 0 00144 COSTU PZE 100 CENTS CHARGED PER U.F.D. TRACK PER DAY
00034 0 00000 0 00024 COSTS PZE 20 INTEGER DOLLARS CHARGED PER SUSCRIBER
WITH OWN U.F.D. PER MONTH
00035 0774 00 1 00000 START AXT 0,1 USED AS AN ARGUMENT INDICATOR
00036 0074 00 4 02353 TSX GETCOM,4 GET FIRST ARGUMENT
00037 0 00000 0 00001 PZE 1 ..
00040 0602 00 0 02262 SLW NAME2 ACCOUNTING FILE NAME2
00041 -0340 00 0 02351 LAS FENCE IS IT THERE--
00042 0020 00 0 00044 TRA *+2 YES
00043 1 00001 1 00055 TXI GETMON,1,1 XR1=1--WE WANT TO FIND MONTH AND DAYS
00044 0074 00 4 02353 TSX GETCOM,4 PICK UP THE SECOND ARGUMENT
00045 0 00000 0 00002 PZE 2
00046 -0340 00 0 02351 LAS FENCE IT ALSO MUST BE SUPPLIED
00047 0020 00 0 00051 TRA *+2 OK
00050 1 00002 1 00055 TXI GETMON,1,2 XR1=2,WE WANT TO GIND THE DAYS IN MONTH
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 4
00051 0602 00 0 02335 SLW DAYS THERE IT IS
00052 0074 00 4 00013 TSX BCDEC,4 CONVERT TO AN INTEGER
00053 0 00000 0 02335 PZE DAYS
00054 0601 00 0 02335 STO DAYS AND NOW WE HAVE THE DAYS IN THIS MONTH
00055 0074 00 4 00004 GETMON TSX DAYMON,4 GET THE REST OF THE ARGS
00056 0 00000 0 02262 PZE NAME2 ACCOUNTING FILE NAME2
00057 0 00000 0 02335 PZE DAYS DAYS IN THE MONTH
00060 0 00000 0 02336 PZE MONTH FULL BCD MONTH
00061 0560 00 0 02335 LDQ DAYS
00062 0200 00 0 00033 MPY COSTU FIND MONTHLY DRUM TRACK CHARGE
00063 -0600 00 0 00033 STQ COSTU ..
00064 0560 00 0 02335 LDQ DAYS GET THE NUMBER OF DAYS BACK TO
00065 0200 00 0 00032 MPY COSTD FIND MONTHLY DISK TRACK CHARGE
00066 -0600 00 0 00032 STQ COSTD ..
EXTEND MEMORY BOUND TO MAKE ROOM FOR BUFFERS
AND ALL SORTS OF ARRAYS
00067 0074 00 4 02354 TSX GETMEM,4
00070 0621 00 0 00155 STA BUF1 THE REST OF THIS STARES ADDRESSES
00071 0621 00 0 00277 STA BUF2 STORES ADDRESSES AROUND THE PROGRAM
00072 0400 00 0 02177 ADD BUFSIZ
00073 0621 00 0 00156 STA BUF3
00074 0621 00 0 00300 STA BUF4
00075 0400 00 0 02177 ADD BUFSIZ
00076 0621 00 0 00314 STA BUF5
00077 0400 00 0 02177 ADD BUFSIZ
00100 0621 00 0 00315 STA BUF6
00101 0400 00 0 02177 ADD BUFSIZ
00102 0621 00 0 00316 STA BUF7
00103 0400 00 0 02177 ADD BUFSIZ
00104 0621 00 0 00324 STA BUF8
00105 0400 00 0 02177 ADD BUFSIZ
00106 0621 00 0 00325 STA BUF9
00107 0400 00 0 02177 ADD BUFSIZ
00110 0621 00 0 00326 STA BUF10
00111 0400 00 0 02177 ADD BUFSIZ AND NOW WE FIND THE START ADDRESSES OF
00112 0621 00 0 02201 STA TU1 VARIOUS ARRAYS
00113 0400 00 0 02200 ADD TBLSIZ THIS IS THE SHIFT ONE TIME ALLOTED
00114 0621 00 0 02202 STA TU2 SHIFT TWO TIME ALLOTTED
00115 0400 00 0 02200 ADD TBLSIZ
00116 0621 00 0 02203 STA TU3 SHIFT THREE TIME ALLOTTED
00117 0400 00 0 02200 ADD TBLSIZ
00120 0621 00 0 02204 STA TU4 SHIFT FOUR TIME ALLOTTED
00121 0400 00 0 02200 ADD TBLSIZ
00122 0621 00 0 02205 STA TU5 SHIFT FIVE (FIB) TIME USED
00123 0400 00 0 02200 ADD TBLSIZ
00124 0621 00 0 02206 STA NAME PROGRAMMER NAME
00125 0400 00 0 02200 ADD TBLSIZ
00126 0621 00 0 02207 STA PROB PROBLEM NUMBER
00127 0400 00 0 02200 ADD TBLSIZ
00130 0621 00 0 02210 STA PROG PROGRAMMER NUMBER
00131 0400 00 0 02200 ADD TBLSIZ
00132 0074 00 4 02355 TSX SETMEM,4 AND TACK DOWN THE MEMORY BOUND HERE
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 5
00133 0074 00 4 02360 TSX SETBRK,4 SET THE BREAK FOR A GRACEFUL EXIT
00134 0 00000 0 01753 PZE BREAK
OPEN AND LOAD TIMUSD TIMACC INTO THE TABLES
00135 0074 00 4 00005 TSX LINK,4 TRY TO LINK TO TU NAME2
00136 3 00000 0 02350 PTH TU
00137 3 00000 0 02262 PTH NAME2
00140 3 00000 0 02421 PTH =H M1416 IN M1416 CMFL02
00141 3 00000 0 02406 PTH =HCMFL02
00142 3 00000 0 02350 PTH TU
00143 3 00000 0 02262 PTH NAME2
00144 3 00000 0 02361 PTH =0
00145 3 00000 0 01745 PTH LNKERR IF ERROR IN LINK
00146 3 00000 0 02341 PTH N
00147 0500 00 0 02362 CLA =1 SET LNKFLG TO UNLINK LATER
00150 0601 00 0 02266 STO LNKFLG
00151 0074 00 4 00000 TUOPEN TSX BFOPEN,4
00152 3 00000 0 02343 PTH R
00153 3 00000 0 02350 PTH TU
00154 3 00000 0 02262 PTH NAME2
00155 3 00000 0 00000 BUF1 PTH **
00156 3 00000 0 00000 BUF3 PTH **
00157 3 00000 0 02411 PTH =-0
00160 3 00000 0 01751 PTH ERROR
00161 0500 00 0 02266 CLA LNKFLG CHECK TO SEE IF WE ARE LINKED
00162 0100 00 0 00170 TZE LOAD-1 TO TU NAME2------NO,PROCEED
00163 0074 00 4 00006 TSX UNLINK,4 YES-UNLINK
00164 3 00000 0 02350 PTH TU
00165 3 00000 0 02262 PTH NAME2
00166 3 00000 0 01751 PTH ERROR
00167 3 00000 0 02341 PTH N
00170 0600 00 0 02213 STZ I CLEAR COUNTER
00171 0074 00 4 00002 LOAD TSX BFREAD,4 READ A RECORD FROM TIMUSD TIMACC
00172 3 00000 0 02350 PTH TU
00173 3 00000 0 02262 PTH NAME2
00174 3 00034 0 02277 PTH A,,LINSIZ
00175 3 00000 0 00264 PTH LOADED WHEN DONE GO HERE
00176 3 00000 0 02341 PTH N WE DONT CARE ABOUT THE COUNT
00177 3 00000 0 01751 PTH ERROR BUT WE DO MIND ERRORS
00200 0535 00 1 02213 LAC I,1 PLACE THE INFO INTO THE RIGHT SPOT
00201 -0500 00 0 02301 CAL A+2
00202 0602 00 0 02251 SLW TEMP
00203 0074 00 4 00010 TSX LJUST,4
00204 3 00000 0 02251 PTH TEMP
00205 0601 60 0 02206 STO* NAME WE JUST EXTRACTED THE NAME
00206 -0500 00 0 02277 CAL A GET PROBLEM NUMBER
00207 0602 60 0 02207 SLW* PROB AND STORE
00210 -0500 00 0 02300 CAL A+1 GET PROGRAMMER NUMBER
00211 0602 60 0 02210 SLW* PROG
00212 TUIN A+18,TU1 GET THE USED TIMES FROM
00221 TUIN A+19,TU2 TIMUSD TIMACC AND STORE IN
00230 TUIN A+20,TU3 THE TABLES
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 6
00237 TUIN A+21,TU4
00246 TUIN A+22,TU5
00255 1 77777 1 00256 TXI *+1,1,-1
00256 3 77014 1 00262 TXH *+4,1,-500 GO UP THE TABLES UNTIL 500 TIMES
00257 1 00001 1 00260 TXI *+1,1,1 MORE THAN 500 IF HERE--ERROR
00260 0074 00 4 02352 TSX WRFLX,4 SO SAY SO
00261 0 00007 0 02153 PZE ERR1,,7
00262 0636 00 1 02213 SCA I,1 SAVE THE INDEX
00263 0020 00 0 00171 TRA LOAD AND GO AROUND FOR NEXT RECORD
00264 0074 00 4 00001 LOADED TSX BFCLOS,4 ALL DONE LOADING TIMUSD TIMACC
00265 3 00000 0 02350 PTH TU SO CLOSE UP THIS PART
00266 3 00000 0 02262 PTH NAME2
00267 3 00000 0 01751 PTH ERROR
00270 0534 00 1 02213 LXA I,1 GET THE FINAL COUNT
00271 -0636 00 1 00373 SCD UMAX,1 AND SAVE FOR LATER USE
00272 -0636 00 1 01723 SCD UMAX1,1 ELSEWHERE
NOW WE BEGIN THE MAIN TASK OF GOING THROUGH
UACCNT TIMACC LINE BY LINE TO COMPUTE THE SUMMARY
AND TOTALS BY DEPARTMENT
00273 0074 00 4 00000 TSX BFOPEN,4 OPEN UP UACCNT TIMACC
00274 3 00000 0 02343 PTH R
00275 3 00000 0 02342 PTH UA
00276 3 00000 0 02345 PTH TA
00277 3 00000 0 00000 BUF2 PTH **
00300 3 00000 0 00000 BUF4 PTH **
00301 3 00000 0 02411 PTH =-0
00302 3 00000 0 01751 PTH ERROR
00303 0074 00 4 02357 TSX ATTNAM,4 FIND OUT WHERE HOME IS
00304 3 00002 0 02263 PTH HOME,,2
00305 0074 00 4 00020 TSX GETTM,4 AND GET THE DATE AND TIME
00306 3 00000 0 02333 PTH DATE
00307 3 00000 0 02334 PTH TIME
00310 0074 00 4 00000 TSX BFOPEN,4 OPEN TOTALS FILE AND
00311 3 00000 0 02344 PTH W
00312 3 00000 0 02347 PTH TO
00313 3 00000 0 02262 PTH NAME2
00314 3 00000 0 00000 BUF5 PTH **
00315 3 00000 0 00000 BUF6 PTH **
00316 3 00000 0 00000 BUF7 PTH **
00317 3 00000 0 01751 PTH ERROR
00320 0074 00 4 00000 TSX BFOPEN,4 THE SUMMARY FILE
00321 3 00000 0 02344 PTH W
00322 3 00000 0 02346 PTH SU
00323 3 00000 0 02262 PTH NAME2
00324 3 00000 0 00000 BUF8 PTH **
00325 3 00000 0 00000 BUF9 PTH **
00326 3 00000 0 00000 BUF10 PTH **
00327 3 00000 0 01751 PTH ERROR
00330 0074 00 4 00016 TSX ATTACH,4
00331 3 00000 0 02413 PTH =HM.F.D.
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 7
00332 3 00000 0 02440 PTH =H(FILE)
00333 -0500 00 0 02420 CAL =H FOR SET UP THE TITLE MESSAGE
00334 0602 00 0 02007 SLW MESS1+3
00335 -0500 00 0 02336 CAL MONTH
00336 0602 00 0 02010 SLW MESS1+4
00337 -0500 00 0 02337 CAL MONTH+1
00340 0602 00 0 02011 SLW MESS1+5
00341 -0500 00 0 02431 CAL =H TAKEN
00342 0602 00 0 02012 SLW MESS1+6
00343 -0500 00 0 02333 CAL DATE
00344 0560 00 0 02334 LDQ TIME
00345 -0765 00 0 00006 LGR 6
00346 -0501 00 0 02416 ORA =H 00000
00347 0602 00 0 02013 SLW MESS1+7
00350 -0600 00 0 02014 STQ MESS1+8
THE TITLE IS SET--NOW WE READ UACCNT TIMACC LINE BY LINE
AND PROCESS OUR INFO AD NAUSEUM
00351 0074 00 4 00002 RDACCT TSX BFREAD,4 READ THE NEXT LINE
00352 3 00000 0 02342 PTH UA
00353 3 00000 0 02345 PTH TA
00354 3 00034 0 02277 PTH A,,28 28 WORDS PER LINE
00355 3 00000 0 01607 PTH .CLOSE WHEN DONE
00356 3 00000 0 02341 PTH N
00357 3 00000 0 01751 PTH ERROR WHEN EVEN DONE-ER
00360 -0500 00 0 02277 CAL A GET FIRST WORD TO TEST
00361 0322 00 0 02415 ERA =H* IF '*', THIS IS A NEW PROBLEM NUMBER
00362 0100 00 0 01020 TZE PROBIN SO GO TAKE CARE OF IT
00363 0774 00 1 00000 AXT 0,1 START AT THE TOP OF THE LABLES TO LOOK UP
00364 -0500 00 0 02300 LOOKUP CAL A+1 THIS GUY
00365 0322 60 0 02210 ERA* PROG CHECK PROGRAMMER NO.
00366 -0100 00 0 00372 TNZ *+4 NOPE--
00367 -0500 60 0 02207 CAL* PROB YES--CHECK ALSO PROB NO
00370 0322 00 0 02261 ERA PROBN ..
00371 0100 00 0 00403 TZE FOUND HURRAY...
00372 1 77777 1 00373 TXI *+1,1,-1 NOPE--MOVE ON TO NEXT ONE
00373 3 00000 1 00364 UMAX TXH LOOKUP,1,** DONT EXCEED TABLE LIMITS--QUIT IF TOP
HERE IF NOT IN TABLE
00374 0600 60 0 02206 STZ* NAME MAKE A PLACE AT THE TOP
00375 0600 60 0 02201 STZ* TU1
00376 0600 60 0 02202 STZ* TU2
00377 0600 60 0 02203 STZ* TU3
00400 0600 60 0 02204 STZ* TU4
00401 0600 60 0 02205 STZ* TU5
00402 0020 00 0 00416 TRA GETALT AND GET THE ALLOTTED TIMES
00403 0500 60 0 02206 FOUND CLA* NAME CHECK THE NAME--IF -1,
00404 0400 00 0 02362 ADD =1 THEN WE'VE USED THIS ONE BEFORE
00405 0100 00 0 00351 TZE RDACCT YES--SKIP IT
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 8
00406 -0500 00 0 02261 CAL PROBN GET THE PROBLEM NO.
00407 0322 00 0 02060 ERA MESS4+1 CHECK AGAINST LAST PROB NO
00410 -0100 00 0 00416 TNZ GETALT NOT THE SAME--PROCEED
00411 0560 00 0 02300 LDQ A+1 GET THE PROGRAMMER NO.
00412 -0773 00 0 00006 RQL 6 CENTER IT
00413 -0130 00 0 00000 XCL INTO THE AC
00414 0322 00 0 02061 ERA MESS4+2 AND CHECK AGAINST LAST PROG NO
00415 0100 00 0 00351 TZE RDACCT SAME--SKIP THIS ONE
GET THE ALLOTED TIMES
00416 -0500 00 0 02317 GETALT CAL A+16
00417 0560 00 0 02320 LDQ A+17
00420 -0763 00 0 00014 LGL 12
00421 0767 00 0 00007 ALS 7
00422 0771 00 0 00007 ARS 7
00423 -0501 00 0 02416 ORA =H 00000
00424 0602 00 0 02221 SLW T1 THERE IS THE FIRST SHIFT ALLOTMENT
00425 -0500 00 0 02320 CAL A+17
00426 0560 00 0 02321 LDQ A+18
00427 -0763 00 0 00006 LGL 6
00430 0767 00 0 00007 ALS 7
00431 0771 00 0 00007 ARS 7
00432 -0501 00 0 02416 ORA =H 00000
00433 0602 00 0 02222 SLW T2 AND SECOND SHIFT
00434 -0500 00 0 02321 CAL A+18
00435 0767 00 0 00007 ALS 7
00436 0771 00 0 00007 ARS 7
00437 -0501 00 0 02416 ORA =H 00000
00440 0602 00 0 02223 SLW T3 THIRD SHIFT
00441 -0500 00 0 02322 CAL A+19
00442 0771 00 0 00006 ARS 6
00443 -0501 00 0 02416 ORA =H 00000
00444 0602 00 0 02224 SLW T4 AND FOURTH SHIFT
00445 -0500 00 0 02323 CAL A+20 GET FIFTH (FIB) SHIFT ALLOTTED
00446 0771 00 0 00014 ARS 12
00447 -0501 00 0 02424 ORA =H 0000
00450 0602 00 0 02225 SLW T5
00451 UPBCD T1,TT1 ADD ALLOTTED TIMES TO TOTALS
00455 UPBCD T2,TT2
00461 UPBCD T3,TT3
00465 UPBCD T4,TT4
00471 UPBCD T5,TT5
00475 0500 60 0 02201 CLA* TU1 GET TOTAL TIME USED FIGURES PER SHIFT
00476 0400 00 0 02226 ADD TTU1
00477 0601 00 0 02226 STO TTU1
00500 0500 60 0 02202 CLA* TU2
00501 0400 00 0 02227 ADD TTU2
00502 0601 00 0 02227 STO TTU2
00503 0500 60 0 02203 CLA* TU3
00504 0400 00 0 02230 ADD TTU3
00505 0601 00 0 02230 STO TTU3
00506 0500 60 0 02204 CLA* TU4
00507 0400 00 0 02231 ADD TTU4
00510 0601 00 0 02231 STO TTU4
00511 0500 60 0 02205 CLA* TU5
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 9
00512 0400 00 0 02232 ADD TTU5
00513 0601 00 0 02232 STO TTU5
00514 0074 00 4 00021 TSX OPEN,4
00515 3 00000 0 02343 PTH R
00516 3 00000 0 02261 PTH PROBN
00517 3 00000 0 02300 PTH A+1
00520 3 00000 0 02361 PTH =0
00521 3 00000 0 02361 PTH =0
00522 3 00000 0 00525 PTH NOUFD IF ERROR ON OPEN OF U.F.D.
00523 3 00000 0 02341 PTH N
00524 0020 00 0 00534 TRA UFDFND IF FOUND
00525 0600 00 0 02260 NOUFD STZ DRUM
00526 0600 00 0 02255 STZ USED
00527 0600 00 0 02256 STZ ALLOT
00530 0500 00 0 02340 CLA USRCNT
00531 0400 00 0 02362 ADD =1 UPDATE USER COUNT
00532 0601 00 0 02340 STO USRCNT
00533 0020 00 0 00601 TRA BACK1 AND SKIP ALL THE STORAGE BOOKKEEPING
00534 0074 00 4 00022 UFDFND TSX RDFILE,4 THIS IS NORMAL--GET THE DISK FIGURES
00535 3 00000 0 02261 PTH PROBN READ THIS GUYS U.F.D. TO
00536 3 00000 0 02300 PTH A+1 GET HIS DISK ALLOTMENT
00537 3 00000 0 02361 PTH =0 AND USAGE
00540 3 00003 0 02267 PTH B,,3
00541 3 00000 0 00543 PTH *+2 ERROR RETURN
00542 3 00000 0 02341 PTH N
00543 0074 00 4 00023 TSX CLOSE,4 CLOSE THE U.F.D.
00544 3 00000 0 02261 PTH PROBN
00545 3 00000 0 02300 PTH A+1
00546 0500 00 0 02270 CLA B+1 GET THE DISK FIGURES
00547 -0765 00 0 00022 LGR 18 SPLIT THEM
00550 0601 00 0 02255 STO USED
00551 -0773 00 0 00022 RQL 18
00552 -0600 00 0 02256 STQ ALLOT
00553 0074 00 4 00017 TSX FSTATE,4 GET THE SIZE OF THE U.F.D.
00554 3 00000 0 02261 PTH PROBN
00555 3 00000 0 02300 PTH A+1
00556 3 00010 0 02267 PTH B,,8
00557 0500 00 0 02267 CLA B GET THE UF.D. SIZE
00560 0400 00 0 02374 ADD =431 HE WILL BE CHARGED FOR THE ODD RECORD
00561 0131 00 0 00000 XCA
00562 -0754 00 0 00000 ZAC
00563 0221 00 0 02375 DVP =432 GET NUMBER OF RECORDS
00564 -0600 00 0 02260 STQ DRUM AND SAVE THIS NUMBER
00565 0500 00 0 02257 CLA DRMTOT ADD TO TOTAL FOR THIS DEPARTMENT
00566 0400 00 0 02260 ADD DRUM
00567 0601 00 0 02257 STO DRMTOT
00570 0500 00 0 02340 CLA USRCNT UPDATE COUNT OF SUSCRIBERS WITH UFD'S
00571 0400 00 0 02362 ADD =1
00572 0601 00 0 02340 STO USRCNT
00573 0500 00 0 02254 CLA TALLOT UPDATE DISK TOTAL ALLOTMENT
00574 0400 00 0 02256 ADD ALLOT
00575 0601 00 0 02254 STO TALLOT
00576 0500 00 0 02253 CLA TUSED AND UPDATE DISK TOTAL USED
00577 0400 00 0 02255 ADD USED
00600 0601 00 0 02253 STO TUSED
00601 0074 00 4 01771 BACK1 TSX CONVRT,4 CONVERT THE DISK USED FIGURE TO BCD
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 10
00602 3 00000 0 02255 PTH USED
00603 0601 00 0 02103 STO MESS4+20 AND STORE IN THE LINE
00604 0074 00 4 01771 TSX CONVRT,4 SAME FOR DISK ALLOTMENT
00605 3 00000 0 02256 PTH ALLOT
00606 0601 00 0 02072 STO MESS4+11
00607 0600 00 0 02251 STZ TEMP CLEAR TOTAL
00610 UCSTIN TU1,COST1
00615 UCSTIN TU2,COST2
00622 UCSTIN TU3,COST3 GET COST OF TOTAL TIME USED
00627 UCSTIN TU4,COST4
00634 UCSTIN TU5,COST5
00641 0400 00 0 02365 ADD =30 ROUND TO NEAREST DOLLAR
00642 0131 00 0 00000 XCA
00643 -0754 00 0 00000 ZAC
00644 0221 00 0 02371 DVP =60 GET TOTAL DOLLARS USED FOR TIME
00645 -0600 00 0 02251 STQ TEMP
00646 0074 00 4 01771 TSX CONVRT,4 CONVERT THIS FIGURE TO BCD
00647 3 00000 0 02251 PTH TEMP
00650 0601 00 0 02102 STO MESS4+19 AND PUT INTO THE MESSAGE
00651 0560 00 0 02255 LDQ USED COMPUTE THE COST OF DISK STORAGE
00652 0200 00 0 00032 MPY COSTD
00653 0131 00 0 00000 XCA
00654 0400 00 0 02376 ADD =500000
00655 0131 00 0 00000 XCA
00656 0221 00 0 02377 DVP =1000000 CONVERT TO DOLLARS
00657 -0600 00 0 02252 STQ DSKDOL
00660 CONIN TU1,MESS4+13 INSERT THE USED TIMES
00665 CONIN TU2,MESS4+14
00672 CONIN TU3,MESS4+15
00677 CONIN TU4,MESS4+16
00704 CONIN TU5,MESS4+17
00711 -0500 00 0 02221 CAL T1 PUT THE BCD ALLOTTED TIMES IN
00712 0602 00 0 02064 SLW MESS4+5
00713 -0500 00 0 02222 CAL T2
00714 0602 00 0 02065 SLW MESS4+6
00715 -0500 00 0 02223 CAL T3
00716 0602 00 0 02066 SLW MESS4+7
00717 -0500 00 0 02224 CAL T4
00720 0602 00 0 02067 SLW MESS4+8
00721 -0500 00 0 02225 CAL T5
00722 0602 00 0 02070 SLW MESS4+9
00723 -0500 00 0 02277 CAL A GET PROGRAMMER NAME
00724 0602 00 0 02062 SLW MESS4+3 INTO THE MESSAGE
00725 0560 00 0 02300 LDQ A+1 GET THE PROGRAMMER NUMBER
00726 -0773 00 0 00006 RQL 6 CENTER IT
00727 -0600 00 0 02061 STQ MESS4+2 AND IN IT GOES
00730 -0500 00 0 02261 CAL PROBN THIS ONE IS OBVIOUS
00731 0602 00 0 02060 SLW MESS4+1
00732 0074 00 4 00013 TSX BCDEC,4 CONPUTE TOTAL TIME ALLOTTED
00733 3 00000 0 02221 PTH T1
00734 0601 00 0 02251 STO TEMP
00735 0074 00 4 00013 TSX BCDEC,4
00736 3 00000 0 02222 PTH T2
00737 0400 00 0 02251 ADD TEMP
00740 0601 00 0 02251 STO TEMP
00741 0074 00 4 00013 TSX BCDEC,4
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 11
00742 3 00000 0 02223 PTH T3
00743 0400 00 0 02251 ADD TEMP
00744 0601 00 0 02251 STO TEMP
00745 0074 00 4 00013 TSX BCDEC,4
00746 3 00000 0 02224 PTH T4
00747 0400 00 0 02251 ADD TEMP
00750 0601 00 0 02251 STO TEMP
00751 0074 00 4 00013 TSX BCDEC,4
00752 3 00000 0 02225 PTH T5
00753 0400 00 0 02251 ADD TEMP
00754 0601 00 0 02251 STO TEMP
00755 0074 00 4 01771 TSX CONVRT,4 CONVERT TOTAL ALLOTMENT TO BCD
00756 3 00000 0 02251 PTH TEMP
00757 0601 00 0 02071 STO MESS4+10 AND STICK IN MESSAGE
00760 0500 60 0 02201 CLA* TU1 GET TOTAL TIME USED
00761 0400 60 0 02202 ADD* TU2
00762 0400 60 0 02203 ADD* TU3
00763 0400 60 0 02204 ADD* TU4
00764 0400 60 0 02205 ADD* TU5
00765 0601 00 0 02251 STO TEMP
00766 0074 00 4 01771 TSX CONVRT,4 CONVERT THIS TO BCD
00767 3 00000 0 02251 PTH TEMP
00770 0601 00 0 02101 STO MESS4+18 AND IN IT GOES
00771 0500 00 0 02412 CLA =-1 SET NAME FLAG TO SHOW WE'VE USED THIS ENTRY
00772 0601 60 0 02206 STO* NAME
00773 0074 00 4 01771 TSX CONVRT,4 CONVERT THE DRUM TRACKS TO BCD
00774 3 00000 0 02260 PTH DRUM
00775 0601 00 0 02104 STO MESS4+21
00776 0560 00 0 02260 LDQ DRUM COMPUTE DRUM CHARGES
00777 0200 00 0 00033 MPY COSTU
01000 0131 00 0 00000 XCA
01001 0400 00 0 02367 ADD =50 ROUND OFF
01002 0131 00 0 00000 XCA
01003 0221 00 0 02372 DVP =100 AND COMPUTE DRUM DOLLARS
01004 0131 00 0 00000 XCA
01005 0400 00 0 02252 ADD DSKDOL
01006 0601 00 0 02251 STO TEMP
01007 0074 00 4 01771 TSX CONVRT,4 CONVERT TO BCD
01010 3 00000 0 02251 PTH TEMP
01011 0601 00 0 02105 STO MESS4+22 AND PUT IN MESSAGE
01012 0074 00 4 00003 TSX BFWRIT,4 WRITE THE LINE INTO THE SUMARY FILE
01013 3 00000 0 02346 PTH SU
01014 3 00000 0 02262 PTH NAME2
01015 3 00027 0 02057 PTH MESS4,,23
01016 3 00000 0 01751 PTH ERROR
01017 0020 00 0 00351 TRA RDACCT AND BACK FOR THE NEXT UACCNT TIMACC LINE
COME HERE WHEN A NEW PROBLEM NUMBER IS ENCOUNTERED
DURING THE SEARCH THRU UACCNT TIMACC
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 12
01020 -0500 00 0 02300 PROBIN CAL A+1 GET THE NEW PROBLEM NUMBER
01021 0602 00 0 02261 SLW PROBN AND SAVE
01022 -0500 00 0 02302 CAL A+3 PICK UP COMFIL 1 DISK ALLOTMENT
01023 0602 00 0 02233 SLW CF
01024 -0500 00 0 02305 CAL A+6 GET COMFIL 2 DISK ALLOTMENT
01025 0560 00 0 02306 LDQ A+7
01026 -0763 00 0 00030 LGL 24
01027 0767 00 0 00006 ALS 6
01030 0771 00 0 00006 ARS 6
01031 -0501 00 0 02416 ORA =H 00000
01032 0602 00 0 02234 SLW CF+1
01033 -0500 00 0 02315 CAL A+14 GET COMFIL 3 DISK ALLOTMENT
01034 0560 00 0 02316 LDQ A+15
01035 -0763 00 0 00030 LGL 24
01036 0767 00 0 00006 ALS 6
01037 0771 00 0 00006 ARS 6
01040 -0501 00 0 02416 ORA =H 00000
01041 0602 00 0 02235 SLW CF+2
01042 -0500 00 0 02320 CAL A+17 AND THE COMFIL 4 ALLOTMENT ALSO
01043 0560 00 0 02321 LDQ A+18
01044 -0763 00 0 00006 LGL 6
01045 0767 00 0 00006 ALS 6
01046 0771 00 0 00006 ARS 6
01047 -0501 00 0 02416 ORA =H 00000
01050 0602 00 0 02236 SLW CF+3
01051 0774 00 2 00004 AXT 4,2 GET THE COMFIL STORAGE FIGURES
01052 -0500 00 2 02237 CFLOOP CAL CF+4,2 GET THE ALLOTMENT
01053 -0340 00 0 02427 LAS =H 0 SEE IF ZERO
01054 0020 00 0 01056 TRA *+2 NO--
01055 0020 00 0 01125 TRA CFLS YES--GO TO NEXT COMFIL
01056 0634 00 2 02341 SXA N,2 FIND THE CURRENT COMFIL NUMBER
01057 0500 00 0 02364 CLA =5
01060 0402 00 0 02341 SUB N
01061 -0501 00 0 02405 ORA =HCMFL00 TO GET THE BCD COMFIL NAME
01062 0602 00 0 02212 SLW N3 THIS WILL BE USEFUL
01063 0074 00 4 00021 TSX OPEN,4 GO TO THE COMFIL
01064 3 00000 0 02343 PTH R
01065 3 00000 0 02261 PTH PROBN
01066 3 00000 0 02212 PTH N3
01067 3 00000 0 02361 PTH =0
01070 3 00000 0 02361 PTH =0
01071 3 00000 0 01737 PTH BADCF
01072 3 00000 0 02341 PTH N
01073 0074 00 4 00022 TSX RDFILE,4 GET THE DISK FIGURES
01074 3 00000 0 02261 PTH PROBN
01075 3 00000 0 02212 PTH N3
01076 3 00000 0 02361 PTH =0
01077 3 00003 0 02267 PTH B,,3
01100 3 00000 0 01102 PTH *+2
01101 3 00000 0 02341 PTH N
01102 0074 00 4 00023 TSX CLOSE,4
01103 3 00000 0 02261 PTH PROBN
01104 3 00000 0 02212 PTH N3
01105 -0754 00 0 00000 ZAC
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 13
01106 0560 00 0 02270 LDQ B+1
01107 -0763 00 0 00022 LGL 18
01110 -0773 00 0 00022 RQL 18
01111 0601 00 2 02237 STO CF+4,2
01112 -0600 00 2 02243 STQ CFALOT+4,2
01113 0074 00 4 00017 TSX FSTATE,4 GET THE U.F.D. SIZE
01114 3 00000 0 02261 PTH PROBN
01115 3 00000 0 02212 PTH N3
01116 3 00010 0 02267 PTH B,,8
01117 0500 00 0 02267 CLA B
01120 0400 00 0 02374 ADD =431 CHARGE FOR ODD TRACKS
01121 0131 00 0 00000 XCA
01122 -0754 00 0 00000 ZAC
01123 0221 00 0 02375 DVP =432 GET NUMBER OF TRACKS USED
01124 -0600 00 2 02247 STQ CFDRUM+4,2 AND STORE
01125 2 00001 2 01052 CFLS TIX CFLOOP,2,1 DO ALL 4 COMFILES
01126 -0500 00 0 02324 CAL A+21 GET THE DEPARTMENT NAME
01127 0560 00 0 02325 LDQ A+22
01130 -0763 00 0 00036 LGL 30
01131 0602 00 0 02247 SLW NDEPT AND STORE
01132 -0500 00 0 02250 CAL DEPT GET LAST DEPARTMENT
01133 0100 00 0 01366 TZE PRNDEP ZERO IF FIRST PASS THROUGH
01134 0322 00 0 02247 ERA NDEPT SEE IF DEPT HAS CHANGED
01135 0100 00 0 01471 TZE PRNCF NO--PRINT OUT THE COMFIL INFO
01136 0074 00 4 01771 TSX CONVRT,4 YES--SET UP THE TOTALS LINE FOR LAST DEPT
01137 3 00000 0 02253 PTH TUSED TOTAL DISK SPACE USED
01140 0601 00 0 02103 STO MESS4+20 INTO THE TOTALS LINE
01141 0074 00 4 01771 TSX CONVRT,4 GET THE BCD DISK SPACE TOTAL ALLOTMENT
01142 3 00000 0 02254 PTH TALLOT
01143 0601 00 0 02072 STO MESS4+11 AND STORE
01144 0560 00 0 02226 LDQ TTU1 GET TOTAL DOLLARS SPENT ON TIME USED
01145 0200 00 0 00025 MPY COST1
01146 -0600 00 0 02251 STQ TEMP
01147 0560 00 0 02227 LDQ TTU2
01150 0200 00 0 00026 MPY COST2
01151 0131 00 0 00000 XCA
01152 0400 00 0 02251 ADD TEMP
01153 0601 00 0 02251 STO TEMP
01154 0560 00 0 02230 LDQ TTU3
01155 0200 00 0 00027 MPY COST3
01156 0131 00 0 00000 XCA
01157 0400 00 0 02251 ADD TEMP
01160 0601 00 0 02251 STO TEMP
01161 0560 00 0 02231 LDQ TTU4
01162 0200 00 0 00030 MPY COST4
01163 0131 00 0 00000 XCA
01164 0400 00 0 02251 ADD TEMP
01165 0601 00 0 02251 STO TEMP
01166 0560 00 0 02232 LDQ TTU5
01167 0200 00 0 00031 MPY COST5
01170 0131 00 0 00000 XCA
01171 0400 00 0 02251 ADD TEMP
01172 0400 00 0 02365 ADD =30 ROUND OFF
01173 0131 00 0 00000 XCA
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 14
01174 -0754 00 0 00000 ZAC
01175 0221 00 0 02371 DVP =60 CONVERT TO DOLLARS
01176 -0600 00 0 02251 STQ TEMP
01177 0074 00 4 01771 TSX CONVRT,4 CONVERT TO BCD
01200 3 00000 0 02251 PTH TEMP
01201 0601 00 0 02102 STO MESS4+19 AND ONTO THE LINE IT GOES
01202 0560 00 0 02253 LDQ TUSED COMPUTE COST OF TOTAL DISK USAGE
01203 0200 00 0 00032 MPY COSTD
01204 0131 00 0 00000 XCA
01205 0400 00 0 02376 ADD =500000
01206 0131 00 0 00000 XCA
01207 0221 00 0 02377 DVP =1000000
01210 -0600 00 0 02252 STQ DSKDOL
01211 0600 00 0 02254 STZ TALLOT ZERO TOTALS FOR NEXT DEPARTMENT
01212 0600 00 0 02253 STZ TUSED
01213 0560 00 0 02340 LDQ USRCNT GET SUSCRIBER CHARGE
01214 0200 00 0 00034 MPY COSTS
01215 -0600 00 0 02251 STQ TEMP
01216 0074 00 4 01771 TSX CONVRT,4 CONVERT TO BCD
01217 3 00000 0 02251 PTH TEMP
01220 0601 00 0 02251 STO TEMP
01221 0074 00 4 00010 TSX LJUST,4 PUT IN A LEADING '$'
01222 3 00000 0 02251 PTH TEMP
01223 0601 00 0 02251 STO TEMP
01224 -0500 00 0 02251 CAL TEMP
01225 0771 00 0 00006 ARS 6
01226 -0501 00 0 02414 ORA =H$00000
01227 0602 00 0 02062 SLW MESS4+3
01230 -0500 00 0 02435 CAL =HS CHANGE TO SAY 'TOTALS'
01231 0602 00 0 02061 SLW MESS4+2
01232 -0500 00 0 02401 CAL =H0TOTAL
01233 0602 00 0 02060 SLW MESS4+1
01234 0074 00 4 01771 TSX CONVRT,4
01235 3 00000 0 02226 PTH TTU1 PUT IN TOTAL USED TIMES
01236 0601 00 0 02074 STO MESS4+13
01237 0074 00 4 01771 TSX CONVRT,4
01240 3 00000 0 02227 PTH TTU2
01241 0601 00 0 02075 STO MESS4+14
01242 0074 00 4 01771 TSX CONVRT,4
01243 3 00000 0 02230 PTH TTU3
01244 0601 00 0 02076 STO MESS4+15
01245 0074 00 4 01771 TSX CONVRT,4
01246 3 00000 0 02231 PTH TTU4
01247 0601 00 0 02077 STO MESS4+16
01250 0074 00 4 01771 TSX CONVRT,4
01251 3 00000 0 02232 PTH TTU5
01252 0601 00 0 02100 STO MESS4+17
01253 0074 00 4 01771 TSX CONVRT,4 PUT IN TOTAL ALLOTTED TIMES
01254 3 00000 0 02214 PTH TT1
01255 0601 00 0 02064 STO MESS4+5
01256 0074 00 4 01771 TSX CONVRT,4
01257 3 00000 0 02215 PTH TT2
01260 0601 00 0 02065 STO MESS4+6
01261 0074 00 4 01771 TSX CONVRT,4
01262 3 00000 0 02216 PTH TT3
01263 0601 00 0 02066 STO MESS4+7
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 15
01264 0074 00 4 01771 TSX CONVRT,4
01265 3 00000 0 02217 PTH TT4
01266 0601 00 0 02067 STO MESS4+8
01267 0074 00 4 01771 TSX CONVRT,4
01270 3 00000 0 02220 PTH TT5
01271 0601 00 0 02070 STO MESS4+9
01272 0500 00 0 02226 CLA TTU1 GET GRAND TOTAL TIME USED
01273 0400 00 0 02227 ADD TTU2
01274 0400 00 0 02230 ADD TTU3
01275 0400 00 0 02231 ADD TTU4
01276 0400 00 0 02232 ADD TTU5
01277 0601 00 0 02251 STO TEMP
01300 0074 00 4 01771 TSX CONVRT,4
01301 3 00000 0 02251 PTH TEMP IN BCD
01302 0601 00 0 02101 STO MESS4+18
01303 0500 00 0 02214 CLA TT1 GET GRAND TOTAL ALLOTTED TIME
01304 0400 00 0 02215 ADD TT2
01305 0400 00 0 02216 ADD TT3
01306 0400 00 0 02217 ADD TT4
01307 0400 00 0 02220 ADD TT5
01310 0601 00 0 02251 STO TEMP
01311 0074 00 4 01771 TSX CONVRT,4 CONVERT TO BCD
01312 3 00000 0 02251 PTH TEMP
01313 0601 00 0 02071 STO MESS4+10
01314 0560 00 0 02257 LDQ DRMTOT COMPUTE COST OF DRUM SPACE FOR UFDS
01315 0200 00 0 00033 MPY COSTU
01316 0131 00 0 00000 XCA
01317 0400 00 0 02367 ADD =50 ROUND
01320 0131 00 0 00000 XCA
01321 0221 00 0 02372 DVP =100 COST IN DOLLARS
01322 0131 00 0 00000 XCA
01323 0400 00 0 02252 ADD DSKDOL
01324 0601 00 0 02251 STO TEMP
01325 0074 00 4 01771 TSX CONVRT,4 COST IN BCD DOLLARS
01326 3 00000 0 02251 PTH TEMP
01327 0601 00 0 02105 STO MESS4+22
01330 0074 00 4 01771 TSX CONVRT,4 DRM TOTAL TRACKS USED
01331 3 00000 0 02257 PTH DRMTOT
01332 0601 00 0 02104 STO MESS4+21
01333 0600 00 0 02214 STZ TT1 CLEAR ALL OTHER TOTALS
01334 0600 00 0 02215 STZ TT2
01335 0600 00 0 02216 STZ TT3
01336 0600 00 0 02217 STZ TT4
01337 0600 00 0 02220 STZ TT5
01340 0600 00 0 02226 STZ TTU1
01341 0600 00 0 02227 STZ TTU2
01342 0600 00 0 02230 STZ TTU3
01343 0600 00 0 02231 STZ TTU4
01344 0600 00 0 02232 STZ TTU5
01345 0600 00 0 02340 STZ USRCNT
01346 0600 00 0 02257 STZ DRMTOT
01347 0074 00 4 00003 TSX BFWRIT,4 AND WRITE THE RECORD IN SUMARY
01350 3 00000 0 02346 PTH SU
01351 3 00000 0 02262 PTH NAME2
01352 3 00027 0 02057 PTH MESS4,,23
01353 3 00000 0 01751 PTH ERROR WE HOPE NOT
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 16
01354 0074 00 4 00007 TSX RJUST,4 CHANGE THINGS AROUND A LITTLE
01355 3 00000 0 02250 PTH DEPT LIKE PUT THE DEPT ON THE LINE
01356 0601 00 0 02060 STO MESS4+1 INSTEAD OF THE PROBLEM NUMBER
01357 -0500 00 0 02430 CAL =H
01360 0602 00 0 02061 SLW MESS4+2 AND BLANK OUT THE PROGRAMMER NUMBER
01361 0074 00 4 00003 TSX BFWRIT,4 AND WRITE THIS LINE INTO TOTALS
01362 3 00000 0 02347 PTH TO
01363 3 00000 0 02262 PTH NAME2
01364 3 00027 0 02057 PTH MESS4,,23
01365 3 00000 0 01751 PTH ERROR
COME HERE TO PUT IN NICE FRESH HEADING AT THE TOP
OF EACH DEPARTMENT PAGE
01366 -0500 00 0 02261 PRNDEP CAL PROBN CHECK TO PROBLEM NUMBER
01367 0322 00 0 02432 ERA =H Z9999 IF 'Z9999' WE'RE DONE
01370 0100 00 0 01610 TZE DONE SEE--WHAT I TELL YOU
01371 0500 00 0 02211 CLA DPTCNT GET THE DEPARTMENT COUNT
01372 -0100 00 0 01430 TNZ CNTDPT IF ZERO,TOTALS NEEDS NEW HEADER
01373 -0500 00 0 02402 CAL =H1 EJECT TO NEW PAGE
01374 0602 00 0 02005 SLW MESS1+1
01375 -0500 00 0 02347 CAL TO
01376 0602 00 0 02006 SLW MESS1+2
01377 -0500 00 0 02420 CAL =H FOR
01400 0602 00 0 02007 SLW MESS1+3
01401 0074 00 4 00003 TSX BFWRIT,4 WRITE THE NEW TOTAL HEADER
01402 3 00000 0 02347 PTH TO
01403 3 00000 0 02262 PTH NAME2
01404 3 00021 0 02004 PTH MESS1,,17
01405 3 00000 0 01751 PTH ERROR
01406 -0500 00 0 02346 CAL SU RESTORE THE WORD 'SUMARY'
01407 0602 00 0 02007 SLW MESS1+3
01410 -0500 00 0 02425 CAL =H ACCE
01411 0602 00 0 02032 SLW MESS3+2 PUT 'ACCESS FEE' IN COLUMN HEADER
01412 -0500 00 0 02436 CAL =HSS FEE
01413 0602 00 0 02033 SLW MESS3+3
01414 -0500 00 0 02426 CAL =H DEPT AND RESTORE OTHER HEADINGS
01415 0602 00 0 02031 SLW MESS3+1
01416 0074 00 4 00003 TSX BFWRIT,4
01417 3 00000 0 02347 PTH TO
01420 3 00000 0 02262 PTH NAME2
01421 3 00027 0 02030 PTH MESS3,,23
01422 3 00000 0 01751 PTH ERROR
01423 0074 00 4 00003 TSX BFWRIT,4
01424 3 00000 0 02347 PTH TO
01425 3 00000 0 02262 PTH NAME2
01426 3 00002 0 02106 PTH MESS5,,2
01427 3 00000 0 01751 PTH ERROR
01430 0500 00 0 02211 CNTDPT CLA DPTCNT UPDATE THE DEPARTMENT COUNT
01431 0400 00 0 02362 ADD =1
01432 0601 00 0 02211 STO DPTCNT
01433 0402 00 0 02370 SUB =54 54 DEPARTMENTS ALLOWED ON ONE TOTALS PAGE
01434 -0100 00 0 01436 TNZ *+2
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 17
01435 0600 00 0 02211 STZ DPTCNT THIS WILL CAUSE A TOTALS HEADER NEXT PASS
01436 -0500 00 0 02402 CAL =H1 SET UP TOTALS LINE IN SUMARY
01437 0602 00 0 02005 SLW MESS1+1
01440 -0500 00 0 02247 CAL NDEPT NEW DEPARTMENT NAME
01441 0602 00 0 02006 SLW MESS1+2
01442 0074 00 4 00003 TSX BFWRIT,4 WRITE THE HEADER INTO SUMARY
01443 3 00000 0 02346 PTH SU
01444 3 00000 0 02262 PTH NAME2
01445 3 00021 0 02004 PTH MESS1,,17
01446 3 00000 0 01751 PTH ERROR
01447 -0500 00 0 02247 CAL NDEPT UPDATE CURRENT DEPARTMENT
01450 0602 00 0 02250 SLW DEPT
01451 -0500 00 0 02400 CAL =H0 PROB
01452 0602 00 0 02031 SLW MESS3+1
01453 -0500 00 0 02423 CAL =H PROG
01454 0602 00 0 02032 SLW MESS3+2
01455 -0500 00 0 02422 CAL =H NAME
01456 0602 00 0 02033 SLW MESS3+3
01457 0074 00 4 00003 TSX BFWRIT,4 WRITE THE COLUMN HEADERS
01460 3 00000 0 02346 PTH SU
01461 3 00000 0 02262 PTH NAME2
01462 3 00027 0 02030 PTH MESS3,,23
01463 3 00000 0 01751 PTH ERROR
01464 0074 00 5 00003 TSX BFWRIT,5
01465 3 00000 0 02346 PTH SU
01466 3 00000 0 02262 PTH NAME2
01467 3 00002 0 02106 PTH MESS5,,2
01470 3 00000 0 01751 PTH ERROR
COME HERE TO PRINT OUT THE COMMON FILE INFO
01471 0774 00 2 00004 PRNCF AXT 4,2 SET UP FOR FOUR COMMON FILES
01472 0500 00 2 02243 CLA CFALOT+4,2 GET ALLOTMENT FOR THIS COMMON FILE
01473 0100 00 0 01605 TZE P SKIP IF ZERO
01474 0601 00 0 02251 STO TEMP
01475 0074 00 4 01771 TSX CONVRT,4 CONVERT TO BCD
01476 3 00000 0 02251 PTH TEMP
01477 0601 00 0 02072 STO MESS4+11
01500 0500 00 2 02237 CLA CF+4,2 GET DISK USED
01501 0601 00 0 02251 STO TEMP
01502 0074 00 4 01771 TSX CONVRT,4 INTO BCD
01503 3 00000 0 02251 PTH TEMP
01504 0601 00 0 02103 STO MESS4+20
01505 0560 00 2 02237 LDQ CF+4,2 COMPUT COST OF USED COMMON FILE SPACE
01506 0200 00 0 00032 MPY COSTD
01507 0131 00 0 00000 XCA
01510 0400 00 0 02376 ADD =500000
01511 0131 00 0 00000 XCA
01512 0221 00 0 02377 DVP =1000000
01513 -0600 00 0 02252 STQ DSKDOL
01514 0500 00 2 02247 CLA CFDRUM+4,2 DRUM SPACE USED FOR THE UFD
01515 0601 00 0 02251 STO TEMP
01516 0074 00 4 01771 TSX CONVRT,4 INTO BCD
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 18
01517 3 00000 0 02251 PTH TEMP
01520 0601 00 0 02104 STO MESS4+21
01521 0560 00 2 02247 LDQ CFDRUM+4,2 FIND COST OF DRUM USAGE
01522 0200 00 0 00033 MPY COSTU
01523 0131 00 0 00000 XCA
01524 0400 00 0 02367 ADD =50 ROUND OFF
01525 0131 00 0 00000 XCA
01526 0221 00 0 02372 DVP =100
01527 0131 00 0 00000 XCA
01530 0400 00 0 02252 ADD DSKDOL
01531 0601 00 0 02251 STO TEMP
01532 0074 00 4 01771 TSX CONVRT,4 INTO BCD
01533 3 00000 0 02251 PTH TEMP
01534 0601 00 0 02105 STO MESS4+22
01535 0500 00 0 02254 CLA TALLOT UPDATE DISK ALLOTMENT TOTAL
01536 0400 00 2 02243 ADD CFALOT+4,2
01537 0601 00 0 02254 STO TALLOT
01540 0600 00 2 02243 STZ CFALOT+4,2
01541 0500 00 0 02253 CLA TUSED AND DISK USED TOTAL
01542 0400 00 2 02237 ADD CF+4,2
01543 0601 00 0 02253 STO TUSED
01544 0600 00 2 02237 STZ CF+4,2
01545 0500 00 0 02257 CLA DRMTOT UPDATE DRUM TRACKS TOTAL
01546 0400 00 2 02247 ADD CFDRUM+4,2
01547 0601 00 0 02257 STO DRMTOT
01550 0600 00 2 02247 STZ CFDRUM+4,2
01551 -0500 00 0 02430 CAL =H BLANK OUT THE REST OF THE LINE
01552 0602 00 0 02102 SLW MESS4+19
01553 0602 00 0 02101 SLW MESS4+18
01554 0602 00 0 02101 SLW MESS4+18
01555 0602 00 0 02077 SLW MESS4+16
01556 0602 00 0 02076 SLW MESS4+15
01557 0602 00 0 02075 SLW MESS4+14
01560 0602 00 0 02074 SLW MESS4+13
01561 0602 00 0 02071 SLW MESS4+10
01562 0602 00 0 02070 SLW MESS4+9
01563 0602 00 0 02067 SLW MESS4+8
01564 0602 00 0 02066 SLW MESS4+7
01565 0602 00 0 02065 SLW MESS4+6
01566 0602 00 0 02064 SLW MESS4+5
01567 0602 00 0 02062 SLW MESS4+3
01570 0634 00 2 02341 SXA N,2 GET THE COMFIL NUMBER
01571 0500 00 0 02364 CLA =5
01572 0402 00 0 02341 SUB N
01573 0767 00 0 00006 ALS 6
01574 -0501 00 0 02417 ORA =H CFL0
01575 0602 00 0 02061 SLW MESS4+2 AND STORE
01576 -0500 00 0 02261 CAL PROBN
01577 0602 00 0 02060 SLW MESS4+1 IN GOES THE PROBLEM NUMBER
01600 0074 00 4 00003 TSX BFWRIT,4 WRITE THE LINE
01601 3 00000 0 02346 PTH SU
01602 3 00000 0 02262 PTH NAME2
01603 3 00027 0 02057 PTH MESS4,,23
01604 3 00000 0 01751 PTH ERROR
01605 2 00001 2 01472 P TIX PRNCF+1,2,1 DO ALL FOUR
01606 0020 00 0 00351 TRA RDACCT AND BACK FOR NEXT UACCNT TIMACC RECORD
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 19
COME HERE TO FINISH UP
01607 0761 00 0 00000 .CLOSE NOP
01610 0074 00 4 00016 DONE TSX ATTACH,4 GO HOME
01611 3 00000 0 02263 PTH HOME
01612 3 00000 0 02264 PTH HOME+1
01613 0600 00 0 02265 STZ FLAG ZERO ON FIRST PASS
01614 0774 00 1 00000 AXT 0,1 SET TO START AT TOP OF TABLE
THIS NEXT PART MOVES DOWN THE NAME LIST AND
CHECKS FOR NAMES THAT WERE NOT SET TO -1.
THIS MEANS THE ENTRY WAS IN TIMUSD TIMACC
BUT NOT IN UACCNT TIMACC
01615 0500 60 0 02206 NF CLA* NAME
01616 0340 00 0 02412 CAS =-1 CHECK FOR USED FLAG
01617 0020 00 0 01621 TRA *+2 NOT USED--PRINT THIS ONE OUT
01620 0020 00 0 01722 TRA CATCH NO ACTION REQUIRED
01621 0500 00 0 02265 CLA FLAG CHECK FLAG
01622 -0100 00 0 01646 TNZ PC NOT FIRST TIME THRU--NO HEADING REQUIRED
01623 0500 00 0 02362 CLA =1 HEADING TO BE PRINTED--TURN OFF FLAG
01624 0601 00 0 02265 STO FLAG
01625 0074 00 4 02352 TSX WRFLX,4
01626 0 00012 0 02165 PZE ERR4,,10
01627 0074 00 4 00003 TSX BFWRIT,4 WRITE THE HEADER IN THE FILE
01630 3 00000 0 02346 PTH SU
01631 3 00000 0 02262 PTH NAME2
01632 3 00011 0 02110 PTH MESS6,,9
01633 3 00000 0 01751 PTH ERROR
01634 0074 00 4 00003 TSX BFWRIT,4
01635 3 00000 0 02346 PTH SU
01636 3 00000 0 02262 PTH NAME2
01637 3 00015 0 02121 PTH MESS7,,13
01640 3 00000 0 01751 PTH ERROR
01641 0074 00 4 00003 TSX BFWRIT,4
01642 3 00000 0 02346 PTH SU
01643 3 00000 0 02262 PTH NAME2
01644 3 00002 0 02106 PTH MESS5,,2
01645 3 00000 0 01751 PTH ERROR
01646 -0500 60 0 02201 PC CAL* TU1 PRINT THE JUNK FOR THIS POOR NEGLECTED MAN
01647 0602 00 0 02251 SLW TEMP
01650 0074 00 4 01771 TSX CONVRT,4
01651 3 00000 0 02251 PTH TEMP
01652 0601 00 0 02146 STO MESS8+8
01653 -0500 60 0 02202 CAL* TU2 AS YOU CAN PROBABLY TELL, WE ARE
01654 0602 00 0 02251 SLW TEMP
01655 0074 00 4 01771 TSX CONVRT,4 IN THE PROCESS OF CONVERTING THE TIMES USED
01656 3 00000 0 02251 PTH TEMP TO BCD AND LOADING THEM INTO A MESSAGE
01657 0601 00 0 02147 STO MESS8+9 TO BE WRITTEN INTO THE FILE
01660 -0500 60 0 02203 CAL* TU3
01661 0602 00 0 02251 SLW TEMP
01662 0074 00 4 01771 TSX CONVRT,4
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 20
01663 3 00000 0 02251 PTH TEMP
01664 0601 00 0 02150 STO MESS8+10
01665 -0500 60 0 02204 CAL* TU4
01666 0602 00 0 02251 SLW TEMP
01667 0074 00 4 01771 TSX CONVRT,4
01670 3 00000 0 02251 PTH TEMP
01671 0601 00 0 02151 STO MESS8+11
01672 -0500 60 0 02205 CAL* TU5
01673 0602 00 0 02251 SLW TEMP
01674 0074 00 4 01771 TSX CONVRT,4
01675 3 00000 0 02251 PTH TEMP
01676 0601 00 0 02152 STO MESS8+12
01677 -0500 60 0 02206 CAL* NAME AND IN GOES THE REST OF THE STUFF
01700 0602 00 0 02144 SLW MESS8+6
01701 -0500 60 0 02207 CAL* PROB
01702 0602 00 0 02140 SLW MESS8+2
01703 -0500 60 0 02210 CAL* PROG
01704 0602 00 0 02142 SLW MESS8+4
01705 0074 00 4 00003 TSX BFWRIT,4 WRITE IT OUT
01706 3 00000 0 02346 PTH SU
01707 3 00000 0 02262 PTH NAME2
01710 3 00015 0 02136 PTH MESS8,,13
01711 3 00000 0 01751 PTH ERROR
01712 -0500 60 0 02207 CAL* PROB
01713 0602 00 0 02154 SLW ERR1+1 PREPARE THE ONLINE ERROR MESSAGE
01714 -0500 60 0 02210 CAL* PROG
01715 0602 00 0 02155 SLW ERR1+2
01716 -0500 60 0 02206 CAL* NAME
01717 0602 00 0 02153 SLW ERR1
01720 0074 00 4 02352 TSX WRFLX,4 AND WRITE IT
01721 0 00003 0 02153 PZE ERR1,,3
01722 1 77777 1 01723 CATCH TXI *+1,1,-1
01723 3 00000 1 01615 UMAX1 TXH NF,1,** WE SET THE LIMIT LONG AGO
01724 0074 00 4 00001 TSX BFCLOS,4 CLOSE THE FILES
01725 3 00000 0 02347 PTH TO
01726 3 00000 0 02262 PTH NAME2
01727 0074 00 4 00001 TSX BFCLOS,4
01730 3 00000 0 02346 PTH SU
01731 3 00000 0 02262 PTH NAME2
01732 0074 00 4 00001 TSX BFCLOS,4
01733 3 00000 0 02342 PTH UA
01734 3 00000 0 02345 PTH TA
01735 0074 00 4 02356 TSX CHNCOM,4 AND EXIT
01736 3 00000 0 02361 PTH =0 ...
COME HERE IF A COMFILE DOESN'T EXIST WHAT SHOULD
01737 0074 00 4 00014 BADCF TSX PRNTER,4 WHAT CAN I SAY--
01740 3 00000 0 02366 PTH =O61
01741 0600 00 2 02243 STZ CFALOT+4,2
01742 0600 00 2 02237 STZ CF+4,2
01743 0600 00 2 02247 STZ CFDRUM+4,2
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 21
01744 0020 00 0 01125 TRA CFLS
01745 0600 00 0 02266 LNKERR STZ LNKFLG HERE IF ERROR IN LINK
01746 0500 00 0 02341 CLA N GET ERROR CODE
01747 0402 00 0 02363 SUB =3 SEE IF ERROR CODE 3(FILE THERE)
T 01750 0074 00 0 00151 TSX TUOPEN YES--ALL IS OK
HERE IF AN ERROR IN THE BF-ROUTINES
01751 0074 00 4 00014 ERROR TSX PRNTER,4
01752 3 00000 0 02373 PTH =O375
COME HERE IF A BREAK CHARACTER IS SENT
01753 0074 00 4 00016 BREAK TSX ATTACH,4 GO HOME
01754 3 00000 0 02263 PTH HOME
01755 3 00000 0 02264 PTH HOME+1
01756 0074 00 4 00001 TSX BFCLOS,4
01757 3 00000 0 02346 PTH SU
01760 3 00000 0 02262 PTH NAME2
01761 0074 00 4 00001 TSX BFCLOS,4
01762 3 00000 0 02347 PTH TO
01763 3 00000 0 02262 PTH NAME2
01764 0074 00 4 00001 TSX BFCLOS,4
01765 3 00000 0 02342 PTH UA
01766 3 00000 0 02345 PTH TA
01767 0074 00 4 02356 TSX CHNCOM,4
01770 3 00000 0 02361 PTH =0
THIS IS SUBROUTINE 'CONVRT' WHICH WAS USED
AT LEAST 67 ZILLION TIMES ABOVE--
IS CONVERTS FROM BINARY TO BCD WITH LEADING
BLANKS
01771 0500 60 4 00001 CONVRT CLA* 1,4 GET ARG
01772 0601 00 0 02003 STO ARG STO ARG
01773 0634 00 4 02001 SXA XR4,4 SXA XR4,4
01774 0074 00 4 00012 TSX DEFBC,4 CONVERT TO BCD
01775 3 00000 0 02003 PTH ARG
01776 0601 00 0 02003 STO ARG STO ARG
01777 0074 00 4 00011 TSX BZEL,4 BLANK THE LEADING ZEROES
02000 3 00000 0 02003 PTH ARG
02001 0774 00 4 00000 XR4 AXT **,4 RESTORE INDEX
02002 0020 00 4 00002 TRA 2,4 TRA 2,4
02003 ARG BSS 1
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 22
* * * * * * * * * * * * * * * * * ** *
* VARIOUS MESSAGES TO BE WRITTEN *
* 'MESS' TYPES GO INTO FILES.
* 'ERR' TYPES GO TO THE CONSOLE
* * * * * * * * * * * * * * * * * *
02004 -377777000020 MESS1 OCT 777777000020
02005 016060606060 BCI 8,1
02006 606060606060
02007 606060606060
02010 606060606060
02011 606060606060
02012 606060606060
02013 606060606060
02014 606060606060
02015 606060602143 BCI 7, ALLOTTED
02016 434663632524
02017 606060606060
02020 606060606060
02021 606060606060
02022 606060606060
02023 606060606060
02024 606064622524 BCI 1, USED
02025 -377777000002 MESS2 OCT 777777000002
02026 006060606060 BCI 2,0
02027 606060606060
02030 -377777000026 MESS3 OCT 777777000026
02031 006047514622 BCI 3,0 PROB PROG NAME
02032 604751462760
02033 604521442560
02034 -206060575757 OCT 606060575757
02035 606060606001 BCI 5, 1 2 3 4 5
02036 606060606002
02037 606060606003
02040 606060606004
02041 606060606005
02042 606346632143 BCI 2, TOTAL DISK
02043 606024316242
02044 -206060575757 OCT 606060575757
02045 606060606001 BCI 5, 1 2 3 4 5
02046 606060606002
02047 606060606003
02050 606060606004
02051 606060606005
02052 606346632143 BCI 5, TOTAL TIME$ DISK DRUM STRG$
02053 606331442553
02054 606024316242
02055 606024516444
02056 606263512753
02057 -377777000026 MESS4 OCT 777777000026
02060 BSS 3
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 23
02063 -206060575757 OCT 606060575757
02064 BSS 7
02073 -206060575757 OCT 606060575757
02074 BSS 10
02106 -377777000001 MESS5 OCT 777777000001
02107 606060606060 BCI 1,
02110 -377777000010 MESS6 OCT 777777000010
02111 016060606060 BCI 6,1 THE FOLLOWING WERE IN TIMUSD
02112 633025602646
02113 434346663145
02114 276066255125
02115 603145606331
02116 446462246060
02117 633144212323 BCI 2,TIMACC ONLY
02120 604645437060
02121 -377777000014 MESS7 OCT 777777000014
02122 006060606060 BCI 4,0 PROB PROG
02123 606047514622
02124 606060606060
02125 606047514627
02126 606060606060 BCI 4, NAME TU1
02127 606045214425
02130 606060606060
02131 606060636401
02132 606060636402 BCI 4, TU2 TU3 TU4 TU5
02133 606060636403
02134 606060636404
02135 606060636405
02136 -377777000014 MESS8 OCT 777777000014
02137 606060606060 BCI 1,
02140 BSS 1
02141 606060606060 BCI 1,
02142 BSS 1
02143 606060606060 BCI 1,
02144 BSS 1
02145 606060606060 BCI 1,
02146 BSS 5
02153 444651256063 ERR1 BCI 4,MORE THAN 501 ENTRIES IN
02154 302145600500
02155 016025456351
02156 312562603145
02157 606331446462 BCI 3, TIMUSD TIMACC
02160 246063314421
02161 232360606060
02162 ERR2 BSS 3
02165 633025602646 ERR4 BCI 4,THE FOLLOWING WERE IN TI
02166 434346663145
02167 276066255125
02170 603145606331
02171 446462246063 BCI 4,MUSD TIMACC BUT NOT IN U
02172 314421232360
02173 226463604546
02174 636031456064
02175 212323456360 BCI 2,ACCNT TIMACC
02176 633144212323
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 24
* * * * * * * * * * * * * * * * * * * * *
* RANDOM OTHER STORAGE
* * * * * * * * * * * * * * * * * * * *
02177 0 00000 0 00660 BUFSIZ PZE 432
02200 0 00000 0 00765 TBLSIZ PZE 501
02201 0 00000 1 00000 TU1 PZE **,1
02202 0 00000 1 00000 TU2 PZE **,1
02203 0 00000 1 00000 TU3 PZE **,1
02204 0 00000 1 00000 TU4 PZE **,1
02205 0 00000 1 00000 TU5 PZE **,1
02206 0 00000 1 00000 NAME PZE **,1
02207 0 00000 1 00000 PROB PZE **,1
02210 0 00000 1 00000 PROG PZE **,1
00034 LINSIZ EQU 28
02211 DPTCNT BSS 1
02212 N3 BSS 1
02213 I BSS 1
02214 TT1 BSS 1
02215 TT2 BSS 1
02216 TT3 BSS 1
02217 TT4 BSS 1
02220 TT5 BSS 1
02221 T1 BSS 1
02222 T2 BSS 1
02223 T3 BSS 1
02224 T4 BSS 1
02225 T5 BSS 1
02226 TTU1 BSS 1
02227 TTU2 BSS 1
02230 TTU3 BSS 1
02231 TTU4 BSS 1
02232 TTU5 BSS 1
02233 CF BSS 4
02237 CFALOT BSS 4
02243 CFDRUM BSS 4
02247 NDEPT BSS 1
02250 DEPT BSS 1
02251 TEMP BSS 1
02252 DSKDOL BSS 1
02253 TUSED BSS 1
02254 TALLOT BSS 1
02255 USED BSS 1
02256 ALLOT BSS 1
02257 DRMTOT BSS 1
02260 DRUM BSS 1
02261 PROBN BSS 1
02262 NAME2 BSS 1
02263 HOME BSS 2
02265 FLAG BSS 1
02266 LNKFLG BSS 1
02267 B BSS 8
02277 A BSS 28
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 25
02333 DATE BSS 1
02334 TIME BSS 1
02335 DAYS BSS 1
02336 MONTH BSS 2
02340 USRCNT BSS 1
02341 N BSS 1
* * * * * * * *
* BCI CONSTANTS
* * * * * * * *
02342 642123234563 UA BCI 1,UACCNT
02343 516060606060 R BCI 1,R
02344 666060606060 W BCI 1,W
02345 633144212323 TA BCI 1,TIMACC
02346 626444215170 SU BCI 1,SUMARY
02347 634663214362 TO BCI 1,TOTALS
02350 633144646224 TU BCI 1,TIMUSD
02351 -377777777777 FENCE OCT 777777777777
* * * * *
* TIA'S *
* * * * *
02352 0101 00 0 02437 WRFLX TIA =HWRFLX
02353 0101 00 0 02407 GETCOM TIA =HGETCOM
02354 0101 00 0 02410 GETMEM TIA =HGETMEM
02355 0101 00 0 02434 SETMEM TIA =HSETMEM
02356 0101 00 0 02404 CHNCOM TIA =HCHNCOM
02357 0101 00 0 02403 ATTNAM TIA =HATTNAM
02360 0101 00 0 02433 SETBRK TIA =HSETBRK
END
LITERALS
02361 000000000000
02362 000000000001
02363 000000000003
02364 000000000005
02365 000000000036
02366 000000000061
02367 000000000062
02370 000000000066
02371 000000000074
02372 000000000144
02373 000000000375
02374 000000000657
02375 000000000660
02376 000001720440
02377 000003641100
02400 006047514622
02401 006346632143
02402 016060606060
02403 216363452144
02404 233045234644
02405 234426430000
02406 234426430002
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 26
02407 272563234644
02410 272563442544
02411 400000000000
02412 400000000001
02413 443326332433
02414 530000000000
02415 546060606060
02416 600000000000
02417 602326430060
02420 602646516060
02421 604401040106
02422 604521442560
02423 604751462760
02424 606000000000
02425 606021232325
02426 606024254763
02427 606060606000
02430 606060606060
02431 606321422545
02432 607111111111
02433 622563225142
02434 622563442544
02435 626060606060
02436 626260262525
02437 665126436760
02440 742631432534
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 1
POST PROCESSOR ASSEMBLY DATA
2441 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2277 A 174, 201, 206, 210, 213, 222, 231, 240, 247, 354, 360, 364, 411, 416, 417, 425, 426
434, 441, 445, 517, 536, 545, 555, 723, 725, 1020, 1022, 1024, 1025, 1033, 1034, 1042, 1043
1126, 1127
2267 B 540, 546, 556, 557, 1077, 1106, 1116, 1117
2213 I 170, 200, 262, 270
2341 N 146, 167, 176, 356, 523, 542, 1056, 1060, 1072, 1101, 1570, 1572, 1746
1605 P 1473
2343 R 152, 274, 515, 1064
2344 W 311, 321
2233 CF 1023, 1032, 1041, 1050, 1052, 1111, 1500, 1505, 1542, 1544, 1742
2212 N3 1062, 1066, 1075, 1104, 1115
1615 NF 1723
1646 PC 1622
2346 SU 322, 1013, 1350, 1406, 1443, 1460, 1465, 1601, 1630, 1635, 1642, 1706, 1730, 1757
2221 T1 424, 452, 711, 733
2222 T2 433, 456, 713, 736
2223 T3 440, 462, 715, 742
2224 T4 444, 466, 717, 746
2225 T5 450, 472, 721, 752
2345 TA 276, 353, 1734, 1766
2347 TO 312, 1362, 1375, 1402, 1417, 1424, 1725, 1762
2350 TU 136, 142, 153, 164, 172, 265
2342 UA 275, 352, 1733, 1765
2003 ARG 1772, 1775, 1776, 2000
2214 TT1 453, 454, 1254, 1303, 1333
2215 TT2 457, 460, 1257, 1304, 1334
2216 TT3 463, 464, 1262, 1305, 1335
2217 TT4 467, 470, 1265, 1306, 1336
2220 TT5 473, 474, 1270, 1307, 1337
2201 TU1 112, 220, 375, 475, 610, 660, 760, 1646
2202 TU2 114, 227, 376, 500, 615, 665, 761, 1653
2203 TU3 116, 236, 377, 503, 622, 672, 762, 1660
2204 TU4 120, 245, 400, 506, 627, 677, 763, 1665
2205 TU5 122, 254, 401, 511, 634, 704, 764, 1672
2001 XR4 1773
155 BUF1 70
277 BUF2 71
156 BUF3 73
300 BUF4 74
314 BUF5 76
315 BUF6 100
316 BUF7 102
324 BUF8 104
325 BUF9 106
11 BZEL 1777
1125 CFLS 1055, 1744
2333 DATE 306, 343
2335 DAYS 51, 53, 54, 57, 61, 64
2250 DEPT 1132, 1355, 1450
1610 DONE 1370
2260 DRUM 525, 564, 566, 774, 776
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 2
POST PROCESSOR ASSEMBLY DATA
2153 ERR1 261, 1713, 1715, 1717, 1721
2162 ERR2
2165 ERR4 1626
2265 FLAG 1613, 1621, 1624
2263 HOME 304, 1611, 1612, 1754, 1755
5 LINK 135
171 LOAD 162, 263
2206 NAME 124, 205, 374, 403, 772, 1615, 1677, 1716
21 OPEN 514, 1063
2207 PROB 126, 207, 367, 1701, 1712
2210 PROG 130, 211, 365, 1703, 1714
2251 TEMP 202, 204, 607, 613, 614, 620, 621, 625, 626, 632, 633, 637, 640, 645, 647, 661, 663
666, 670, 673, 675, 700, 702, 705, 707, 734, 737, 740, 743, 744, 747, 750, 753, 754
756, 765, 767, 1006, 1010, 1146, 1152, 1153, 1157, 1160, 1164, 1165, 1171, 1176, 1200, 1215, 1217
1220, 1222, 1223, 1224, 1277, 1301, 1310, 1312, 1324, 1326, 1474, 1476, 1501, 1503, 1515, 1517, 1531
1533, 1647, 1651, 1654, 1656, 1661, 1663, 1666, 1670, 1673, 1675
2334 TIME 307, 344
2226 TTU1 476, 477, 1144, 1235, 1272, 1340
2227 TTU2 501, 502, 1147, 1240, 1273, 1341
2230 TTU3 504, 505, 1154, 1243, 1274, 1342
2231 TTU4 507, 510, 1161, 1246, 1275, 1343
2232 TTU5 512, 513, 1166, 1251, 1276, 1344
373 UMAX 271
2255 USED 526, 550, 577, 602, 651
2256 ALLOT 527, 552, 574, 605
601 BACK1 533
1737 BADCF 1071
13 BCDEC 52, 212, 221, 230, 237, 246, 451, 455, 461, 465, 471, 732, 735, 741, 745, 751
1753 BREAK 134
326 BUF10 110
1722 CATCH 1620
23 CLOSE 543, 1102
25 COST1 611, 1145
26 COST2 616, 1150
27 COST3 623, 1155
30 COST4 630, 1162
31 COST5 635, 1167
32 COSTD 65, 66, 652, 1203, 1506
34 COSTS 1214
33 COSTU 62, 63, 777, 1315, 1522
12 DEFBC 1774
1751 ERROR 160, 166, 177, 267, 302, 317, 327, 357, 1016, 1353, 1365, 1405, 1422, 1427, 1446, 1463, 1470
1604, 1633, 1640, 1645, 1711
2351 FENCE 41, 46
403 FOUND 371
20 GETTM 305
10 LJUST 203, 1221
2004 MESS1 334, 336, 340, 342, 347, 350, 1374, 1376, 1400, 1404, 1407, 1437, 1441, 1445
2025 MESS2
2030 MESS3 1411, 1413, 1415, 1421, 1452, 1454, 1456, 1462
2057 MESS4 407, 414, 603, 606, 650, 664, 671, 676, 703, 710, 712, 714, 716, 720, 722, 724, 727
731, 757, 770, 775, 1011, 1015, 1140, 1143, 1201, 1227, 1231, 1233, 1236, 1241, 1244, 1247, 1252
1255, 1260, 1263, 1266, 1271, 1302, 1313, 1327, 1332, 1352, 1356, 1360, 1364, 1477, 1504, 1520, 1534
1552, 1553, 1554, 1555, 1556, 1557, 1560, 1561, 1562, 1563, 1564, 1565, 1566, 1567, 1575, 1577, 1603
2106 MESS5 1426, 1467, 1644
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 3
POST PROCESSOR ASSEMBLY DATA
2110 MESS6 1632
2121 MESS7 1637
2136 MESS8 1652, 1657, 1664, 1671, 1676, 1700, 1702, 1704, 1710
2336 MONTH 60, 335, 337
2262 NAME2 40, 56, 137, 143, 154, 165, 173, 266, 313, 323, 1014, 1351, 1363, 1403, 1420, 1425, 1444
1461, 1466, 1602, 1631, 1636, 1643, 1707, 1726, 1731, 1760, 1763
2247 NDEPT 1131, 1134, 1440, 1447
525 NOUFD 522
1471 PRNCF 1135, 1605
2261 PROBN 370, 406, 516, 535, 544, 554, 730, 1021, 1065, 1074, 1103, 1114, 1366, 1576
7 RJUST 1354
35 START 24
2253 TUSED 576, 600, 1137, 1202, 1212, 1541, 1543
1723 UMAX1 272
2352 WRFLX 260, 1625, 1720
16 ATTACH 330, 1610, 1753
2357 ATTNAM 303
1 BFCLOS 264, 1724, 1727, 1732, 1756, 1761, 1764
0 BFOPEN 151, 273, 310, 320
2 BFREAD 171, 351
3 BFWRIT 1012, 1347, 1361, 1401, 1416, 1423, 1442, 1457, 1464, 1600, 1627, 1634, 1641, 1705
2177 BUFSIZ 72, 75, 77, 101, 103, 105, 107, 111
2237 CFALOT 1112, 1472, 1536, 1540, 1741
2243 CFDRUM 1124, 1514, 1521, 1546, 1550, 1743
1052 CFLOOP 1125
2356 CHNCOM 1735, 1767
1430 CNTDPT 1372
1771 CONVRT 601, 604, 646, 662, 667, 674, 701, 706, 755, 766, 773, 1007, 1136, 1141, 1177, 1216, 1234
1237, 1242, 1245, 1250, 1253, 1256, 1261, 1264, 1267, 1300, 1311, 1325, 1330, 1475, 1502, 1516, 1532
1650, 1655, 1662, 1667, 1674
4 DAYMON 55
2211 DPTCNT 1371, 1430, 1432, 1435
2257 DRMTOT 565, 567, 1314, 1331, 1346, 1545, 1547
2252 DSKDOL 657, 1005, 1210, 1323, 1513, 1530
17 FSTATE 553, 1113
416 GETALT 402, 410
2353 GETCOM 36, 44
2354 GETMEM 67
55 GETMON 43, 50
1607 .CLOSE 355
34 LINSIZ 174, 2211
1745 LNKERR 145
2266 LNKFLG 150, 161, 1745
264 LOADED 175
364 LOOKUP 373
1366 PRNDEP 1133
14 PRNTER 1737, 1751
1020 PROBIN 362
351 RDACCT 405, 415, 1017, 1606
22 RDFILE 534, 1073
2360 SETBRK 133
2355 SETMEM 132
15 STORGE
2254 TALLOT 573, 575, 1142, 1211, 1535, 1537
2200 TBLSIZ 113, 115, 117, 121, 123, 125, 127, 131
1 THIS ROUTINE PRODUCES THE MONTHLY SUMARY AND TOTALS PAGE 4
POST PROCESSOR ASSEMBLY DATA
151 TUOPEN 1750
534 UFDFND 524
6 UNLINK 163
2340 USRCNT 530, 532, 570, 572, 1213, 1345
0 NO ERROR IN ABOVE ASSEMBLY.
1 PAGE 1
00003 ENTRY DAYMON
EXTERN BCDEC
TRANSFER VECTOR
00000 222324252360 BCDEC
LINKAGE DIRECTOR
00001 000000000000
00002 242170444645
00003 0634 00 1 00150 DAYMON SXA XR1,1 SAVE THEM INDICESSESSS
00004 0634 00 2 00151 SXA XR2,2
00005 0634 00 4 00152 SXA XR4,4
00006 0500 00 4 00002 CLA 2,4 GET THEM ARGUMMMMMENTS
00007 0621 00 0 00157 STA DAYS
00010 0500 00 4 00003 CLA 3,4
00011 0621 00 0 00156 STA MONTH
00012 0500 00 4 00001 CLA 1,4
00013 0621 00 0 00154 STA AMON
00014 0074 00 4 00162 TSX GETIME,4 GET THE CURRENT DATE
00015 -0754 00 0 00000 ZAC
00016 -0763 00 0 00014 LGL 12 SHIFT MONTH INTO AC
00017 0601 00 0 00173 STO CURMON AND STORE THIS MONTH
00020 -0754 00 0 00000 ZAC
00021 -0763 00 0 00014 LGL 12 GET TODAYS DATE
00022 0602 00 0 00174 SLW CURDAY
00023 -0754 00 0 00000 ZAC
00024 -0763 00 0 00014 LGL 12 GET THE YEAR
00025 0601 00 0 00155 STO TEMP
00026 0074 00 4 00000 TSX BCDEC,4
00027 3 00000 0 00155 PTH TEMP
00030 0131 00 0 00000 XCA
00031 -0754 00 0 00000 ZAC
00032 0221 00 0 00267 DVP =4
00033 0601 00 0 00175 STO LPYEAR ZERO IF A LEAP-YEAR
00034 0074 00 4 00000 TSX BCDEC,4 CONVERT CURMON TO BINARY
00035 3 00000 0 00173 PTH CURMON
00036 0601 00 0 00173 STO CURMON
00037 0074 00 4 00000 TSX BCDEC,4 CONVERT CURDAY TO BINARY
00040 3 00000 0 00174 PTH CURDAY
00041 0601 00 0 00174 STO CURDAY
00042 -0500 60 0 00154 CAL* AMON GET THE GIVEN MONTH
00043 -0340 00 0 00273 LAS =HLMONTH SEE IF 'LMONTH'
00044 0020 00 0 00046 TRA *+2 NO--
00045 0020 00 0 00047 TRA LMONTH YES--GO TAKE CARE OF THIS
00046 0020 60 1 00200 TRA* OPTION,1 USE XR1 TO DETERMIN WHICH OPTION WANTED
00047 0500 00 0 00173 LMONTH CLA CURMON GET CURRENT MONTH NUMBER
00050 0402 00 0 00266 SUB =1 GO TO LAST MONTH
00051 0737 00 1 00000 MORE PAC ,1
00052 0767 00 0 00001 ALS 1
00053 0737 00 2 00000 PAC ,2
00054 -0500 00 1 00201 CAL ACCMON,1 GET THE ACC. NAME OF MONTH
00055 0602 60 0 00154 SLW* AMON AND RETURN IT
00056 0500 00 2 00216 CLA BCDMON,2 THE THE FULL BCD MONTH
00057 0560 00 2 00217 LDQ BCDMON+1,2 ..
00060 -0603 60 0 00156 DST* MONTH AND RETURN IT ALSO
1 PAGE 2
00061 0500 00 1 00250 CLA DAYSM,1 GET THE NUMBER OF DAYS
00062 0020 00 0 00137 TRA RETRN1 AND RETURN
00063 0774 00 1 77777 OPT2 AXT -1,1 HERE TO FIND BCD MONTH AND DAYS FROM AMON
00064 -0500 60 0 00154 CAL* AMON
00065 -0340 00 1 00201 LOOP0 LAS ACCMON,1 FIND THE MONTH IN LIST
00066 0020 00 0 00070 TRA *+2 MOT YET
00067 0020 00 0 00073 TRA CHKCUR YES.YES
00070 1 77777 1 00071 TXI *+1,1,-1
00071 3 77763 1 00065 TXH LOOP0,1,-13
00072 0020 00 0 00133 TRA BADMON TOO BAD--ILLEGAL MONTH GIVEN
00073 0756 00 1 00000 CHKCUR PCA ,1 GET THE FOUND MONTH NUMBER
00074 0340 00 0 00173 CAS CURMON IS IT THIS MONTH
00075 0020 00 0 00051 TRA MORE NO--FINISH UP
00076 0020 00 0 00100 TRA OPT1 YES--HANDLE LIKE CURRENT MONTH
00077 0020 00 0 00051 TRA MORE
00100 0500 00 0 00173 OPT1 CLA CURMON GET CURRENT MONTH AND DAYS
00101 0737 00 1 00000 PAC ,1
00102 0767 00 0 00001 ALS 1
00103 0737 00 2 00000 PAC ,2
00104 -0500 00 0 00274 CAL =HTIMACC RETURN 'TIMACC' FOR AMON
00105 0602 60 0 00154 SLW* AMON
00106 0500 00 2 00216 CLA BCDMON,2 GET BCD MONTH
00107 0560 00 2 00217 LDQ BCDMON+1,2
00110 -0603 60 0 00156 DST* MONTH
00111 0500 00 0 00174 CLA CURDAY GET DAY OF MONTH
00112 0601 60 0 00157 STO* DAYS
00113 0020 00 0 00150 TRA RETRN2 AND OUT WE GO
00114 0774 00 1 77777 OPT0 AXT -1,1 HERE TO FIND MONTH FROM AMON
00115 -0500 60 0 00154 CAL* AMON
00116 -0340 00 1 00201 LOOP1 LAS ACCMON,1 SEARCH THE TABLE
00117 0020 00 0 00121 TRA *+2 NOPE
00120 0020 00 0 00124 TRA *+4 YUP
00121 1 77777 1 00122 TXI *+1,1,-1
00122 3 77763 1 00116 TXH LOOP1,1,-13
00123 0020 00 0 00133 TRA BADMON DIDN'T FIND IT, HUH
00124 0754 00 1 00000 PXA ,1 GET THW COUNT
00125 0767 00 0 00001 ALS 1 TIMES TWO
00126 0734 00 1 00000 PAX ,1
00127 0500 00 1 00216 CLA BCDMON,1
00130 0560 00 1 00217 LDQ BCDMON+1,1
00131 -0603 60 0 00156 DST* MONTH
00132 0020 00 0 00150 TRA RETRN2
00133 0074 00 4 00160 BADMON TSX WRFLX,4
00134 0 00010 0 00163 PZE ERROR,,8
00135 0074 00 4 00161 TSX CHNCOM,4
00136 0 00000 0 00265 PZE =0
00137 0131 00 0 00000 RETRN1 XCA
00140 0500 00 0 00175 CLA LPYEAR CHECK FOR LEAPYEAR
00141 -0100 00 0 00145 TNZ NOLEAP
00142 -0763 00 0 00022 LGL 18 GET THE LEAPYEAR DAYS
00143 0601 60 0 00157 STO* DAYS
00144 0020 00 0 00137 TRA RETRN1
00145 0131 00 0 00000 NOLEAP XCA
00146 -0320 00 0 00270 ANA =O777777
00147 0601 60 0 00157 STO* DAYS
00150 RETRN2 BSS 0
1 PAGE 3
00150 0774 00 1 00000 XR1 AXT **,1
00151 0774 00 2 00000 XR2 AXT **,2
00152 0774 00 4 00000 XR4 AXT **,4
00153 0020 00 4 00004 TRA 4,4
00154 AMON BSS 1
00155 TEMP BSS 1
00156 MONTH BSS 1
00157 DAYS BSS 1
00160 0101 00 0 00275 WRFLX TIA =HWRFLX
00161 0101 00 0 00271 CHNCOM TIA =HCHNCOM
00162 0101 00 0 00272 GETIME TIA =HGETIME
00163 273165254560 ERROR BCI 8,GIVEN MONTH NOT FOUND IN TABLE
00164 444645633060
00165 454663602646
00166 644524603145
00167 606321224325
00170 606060606060
00171 606060606060
00172 606060606060
00173 CURMON BSS 1
00174 CURDAY BSS 1
00175 LPYEAR BSS 1
00176 0 00000 0 00063 PZE OPT2
00177 0 00000 0 00100 PZE OPT1
00200 0 00000 0 00114 OPTION PZE OPT0
00201 606060242523 ACCMON BCI 1, DEC
00202 606060412145 BCI 1, JAN
00203 606060262522 BCI 1, FEB
00204 604421512330 BCI 1, MARCH
00205 602147513143 BCI 1, APRIL
00206 606060442170 BCI 1, MAY
00207 606041644525 BCI 1, JUNE
00210 606041644370 BCI 1, JULY
00211 216427646263 BCI 1,AUGUST
00212 606062254763 BCI 1, SEPT
00213 606060462363 BCI 1, OCT
00214 606060454665 BCI 1, NOV
00215 606060242523 BCI 1, DEC
00216 606060602425 BCDMON BCI 2, DECEMBER
00217 232544222551
00220 606060606041 BCI 2, JANUARY
00221 214564215170
00222 606060602625 BCI 2, FEBRUARY
00223 225164215170
00224 606060606060 BCI 2, MARCH
00225 604421512330
00226 606060606060 BCI 2, APRIL
00227 602147513143
00230 606060606060 BCI 2, MAY
00231 606060442170
00232 606060606060 BCI 2, JUNE
00233 606041644525
00234 606060606060 BCI 2, JULY
1 PAGE 4
00235 606041644370
00236 606060606060 BCI 2, AUGUST
00237 216427646263
00240 606060622547 BCI 2, SEPTEMBER
00241 632544222551
00242 606060606046 BCI 2, OCTOBER
00243 236346222551
00244 606060604546 BCI 2, NOVEMBER
00245 652544222551
00246 606060602425 BCI 2, DECEMBER
00247 232544222551
00250 0 00037 0 00037 DAYSM PZE 31,,31
00251 0 00037 0 00037 PZE 31,,31
00252 0 00035 0 00034 PZE 28,,29
00253 0 00037 0 00037 PZE 31,,31
00254 0 00036 0 00036 PZE 30,,30
00255 0 00037 0 00037 PZE 31,,31
00256 0 00036 0 00036 PZE 30,,30
00257 0 00037 0 00037 PZE 31,,31
00260 0 00037 0 00037 PZE 31,,31
00261 0 00036 0 00036 PZE 30,,30
00262 0 00037 0 00037 PZE 31,,31
00263 0 00036 0 00036 PZE 30,,30
00264 0 00037 0 00037 PZE 31,,31
END
LITERALS
00265 000000000000
00266 000000000001
00267 000000000004
00270 000000777777
00271 233045234644
00272 272563314425
00273 434446456330
00274 633144212323
00275 665126436760
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
276 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
150 XR1 3
151 XR2 4
152 XR4 5
154 AMON 13, 42, 55, 64, 105, 115
157 DAYS 7, 112, 143, 147
51 MORE 75, 77
114 OPT0 200
100 OPT1 76, 177
63 OPT2 176
155 TEMP 25, 27
0 BCDEC 26, 34, 37
250 DAYSM 61
163 ERROR 134
65 LOOP0 71
116 LOOP1 122
156 MONTH 11, 60, 110, 131
160 WRFLX 133
201 ACCMON 54, 65, 116
133 BADMON 72, 123
216 BCDMON 56, 57, 106, 107, 127, 130
73 CHKCUR 67
161 CHNCOM 135
174 CURDAY 22, 40, 41, 111
173 CURMON 17, 35, 36, 47, 74, 100
3 DAYMON 0
162 GETIME 14
47 LMONTH 45
175 LPYEAR 33, 140
145 NOLEAP 141
200 OPTION 46
137 RETRN1 62, 144
150 RETRN2 113, 132
0 NO ERROR IN ABOVE ASSEMBLY.
SYSLST BCD 09/20/68 0223.5 13100 00000
1 MAD PROGRAM LISTING ... ... ... FILE SYSL MAD 02/15/68 1850.5
-
PROGRAM TO ASSEMBLE MODULES FROM LOAD LISTS LM00001
D.R. WIDRIG OCT. 1966 LM00002
LM00003
LOADING INSTRUCTIONS LM00004
MAD SYSL (LIST) LM00005
FAP GETBUF (LIST) LM00006
FAP SETC (LIST) LM00007
LAED NCLOAD SYSL GETBUF SETC LM00008
(SQZ) (SRCH) XLIBE LM00009
SAVE SYSLST LM00010
R SYSLST N1 -PRGN- LM00011
LM00012
NORMAL MODE IS INTEGER *001 LM00013
DIMENSION BUFF1(0),BUFF2(0),BUFF3(0) *002 LM00014
DIMENSION UFDBUF(0),N1BUF(0) *003 LM00015
DIMENSION LINE(14),V(2),A(20),B(20),DRAIN(7) *004 LM00016
EQUIVALENCE (SYSLST,A(19)),(N1,A(18)),(PRGN,A(17)) *005 LM00017
EQUIVALENCE (RLOC,A(16)),(SAVN1,A(14)),(SAVN2,A(13)) *006 LM00018
EQUIVALENCE (NAME1,B(19)),(CLASS,B(16)) *007 LM00019
LM00020
VECTOR VALUES UFD = $U.F.D.$ *008 LM00021
VECTOR VALUES FILE = $(FILE)$ *009 LM00022
VECTOR VALUES WORK = $(WORK)$ *010 LM00023
VECTOR VALUES LIST = $(LIST)$ *011 LM00024
VECTOR VALUES CTSSLD = $CTSSLD$ *012 LM00025
VECTOR VALUES BCD = $ BCD$ *013 LM00026
VECTOR VALUES BSS = $ BSS$ *014 LM00027
VECTOR VALUES SAVED = $ SAVED$ *015 LM00028
VECTOR VALUES OUTPUT = $OUTPUT$ *016 LM00029
VECTOR VALUES RQUEST = $RQUEST$ *017 LM00030
LM00031
VECTOR VALUES M1416 = $ M1416$ *018 LM00032
VECTOR VALUES MZE = -0 *019 LM00033
VECTOR VALUES LTHWRK = 5 *020 LM00034
VECTOR VALUES ERCODE = 0 *021 LM00035
VECTOR VALUES FENCE = 777777777777K *022 LM00036
VECTOR VALUES A(20) = $RESUME$ *023 LM00037
LM00038
VECTOR VALUES TABLE = $ MAD$,$ MAD$,$(LIST)$,777777777777K, *024 LM00039
1 $ FAP$,$ FAP$,$(LIST)$,777777777777K, *024 LM00040
2 $CRUNCH$,$ BEFAP$,$(CRUN)$,$(LIST)$, *024 LM00041
3 $ ALGOL$,$ AED$,$(LIST)$,777777777777K, *024 LM00042
4 777777777777K *024 LM00043
VECTOR VALUES LINE(1) = $$,$$,$$,$$,$$,$$,$$,$$,$$, *025 LM00044
1 $ BCD $,0,$ BCD $,0,$PRINT $ *025 LM00045
LM00046
GET AND CHECK ARGUMENTS LM00047
LM00048
ATTNAM.(V(2)...2) *026 LM00049
GETCLS.(A(19)) *027 LM00050
FERRTN.(ERR1) *028 LM00051
PROGN = V(1) *029 LM00052
LM00053
FIRST VERIFY INITIAL STUFF LM00054
LM00055
WHENEVER N1 .E. FENCE *030 LM00056
PRMESS.($R SYSLST N1 -PRGN-$) *031 LM00057
CHNCOM.(0) *032 LM00058
END OF CONDITIONAL *033 LM00059
LM00060
CHECK FOR INITIAL ENTRY OR LATER LM00061
LM00062
WHENEVER PRGN .E. FENCE *034 LM00063
PRGN = PROGN *035 LM00064
RLOC = 1 *036 LM00065
TRANSFER TO PHASE1 *037 LM00066
OTHERWISE *038 LM00067
PROGN = PRGN *039 LM00068
END OF CONDITIONAL *040 LM00069
WHENEVER RLOC .E. FENCE *041 LM00070
RLOC = 1 *042 LM00071
TRANSFER TO PHASE1 *043 LM00072
END OF CONDITIONAL *044 LM00073
TRANSFER TO PHASE2 *045 LM00074
LM00075
PHASE1, GET LIST OF THINGS TO DO LM00076
LM00077
PHASE1 WHENEVER PROGN .NE. V(1), ATTACH.(M1416,PROGN) *046 LM00078
FSTATE.(UFD,FILE,DRAIN(0)...1) *047 LM00079
FSTATE.(N1,CTSSLD,DRAIN(1)...1) *048 LM00080
DRAIN(0) = DRAIN(0) - 3 *049 LM00081
LM00082
GET BUFFER AREAS AND START INPUT OF FILES LM00083
LM00084
GETBUF.(N1BUF,DRAIN(1)) *050 LM00085
OPEN.($R$,N1,CTSSLD) *051 LM00086
RDFILE.(N1,CTSSLD,1,N1BUF(N1BUF+DRAIN(1))...DRAIN(1)) *052 LM00087
LM00088
GETBUF.(UFDBUF,DRAIN(0)) *053 LM00089
OPEN.($R$,UFD,FILE) *054 LM00090
RDFILE.(UFD,FILE,4,UFDBUF(UFDBUF+DRAIN(0))...DRAIN(0)) *055 LM00091
LM00092
PREPARE FOR LATER USAGES LM00093
LM00094
WHENEVER PROGN .NE. V(1) *056 LM00095
LINK.(SYSLST,SAVED,M1416,V(1),MZE,MZE,104K,NERR0) *057 LM00096
NERR0 ATTACH.(M1416,V(1)) *058 LM00097
END OF CONDITIONAL *059 LM00098
LM00099
GET BUFFERS FOR OUTPUT FILE LM00100
LM00101
GETBUF.(BUFF1,432) *060 LM00102
GETBUF.(BUFF2,432) *061 LM00103
GETBUF.(BUFF3,432) *062 LM00104
LM00105
WAIT FOR I/O, THEN SCRAP INPUT FILES LM00106
LM00107
FWAIT.(N1,CTSSLD) *063 LM00108
FWAIT.(UFD,FILE) *064 LM00109
RESETF. *065 LM00110
LM00111
PREPARE OUTPUT FILE LM00112
LM00113
BFOPEN.($W$,WORK,LIST,BUFF1(BUFF1+432),BUFF2(BUFF2+432), *066 LM00114
1 BUFF3(BUFF3+432),ERR1) *066 LM00115
TRFILE.(WORK,LIST,0) *067 LM00116
LM00117
SELECT AN ITEM FROM LOAD LIST AND CLASSIFY IT LM00118
LM00119
THROUGH LOOP3, FOR I = DRAIN(1),-14,(I.LE.0) *068 LM00120
OFFST1 = N1BUF + I *069 LM00121
LM00122
LOOK THROUGH UFD FOR MATCH ON FIRST NAME LM00123
LM00124
THROUGH LOOP2, FOR J = DRAIN(0),-7,(J.LE.0) *070 LM00125
WHENEVER UFDBUF(UFDBUF+J).NE.N1BUF(OFFST1), *071 LM00126
1 TRANSFER TO LOOP2 *071 LM00127
OFFST2 = UFDBUF + J - 1 *072 LM00128
LM00129
NOW LOOK UP SECOND NAME IN TABLE LM00130
LM00131
THROUGH LOOP1, FOR K = 0,4,(TABLE(K).E.FENCE) *073 LM00132
WHENEVER UFDBUF(OFFST2).NE.TABLE(K), *074 LM00133
1 TRANSFER TO LOOP1 *074 LM00134
LM00135
WE HAVE IT, INSERT ACTION CODES INTO WORK LIST LM00136
LM00137
DRAIN(7) = TABLE(K+1) *075 LM00138
DRAIN(6) = N1BUF(OFFST1) *076 LM00139
DRAIN(5) = TABLE(K+2) *077 LM00140
DRAIN(4) = TABLE(K+3) *078 LM00141
DRAIN(3) = TABLE(K) *079 LM00142
BFWRIT.(WORK,LIST,DRAIN(7)...LTHWRK,ERR1) *080 LM00143
TRANSFER TO LOOP3 *081 LM00144
LM00145
LOOP1 CONTINUE *082 LM00146
LOOP2 CONTINUE *083 LM00147
LM00148
NOT FOUND IN UFD, GRIPE LM00149
LM00150
PRMESS.(N1BUF(OFFST1),$ NOT FOUND$) *084 LM00151
LM00152
LOOP3 CONTINUE *085 LM00153
LM00154
END OF SCAN, CLOSE WORK LIST LM00155
LM00156
BFCLOS.(WORK,LIST,ERR1) *086 LM00157
TRANSFER TO START *087 LM00158
LM00159
CONTROL ENTERS HERE TO CLEAN UP AFTER ASSEMBLY LM00160
LM00161
PHASE2 WHOAMI.(LINE(2)...2) *088 LM00162
LM00163
CHECK FOR BSS DECK AS EVIDENCE OF SUCCESS LM00164
LM00165
FSTATE.(SAVN1,BSS,DRAIN...0,FAILED) *089 LM00166
LM00167
OK, PLACE BSS DECK AND TIDY UP SOURCE FILE LM00168
LM00169
WHENEVER PROGN .NE. V(1) *090 LM00170
MOVFIL.(SAVN1,BSS,M1416,PROGN,FAILED) *091 LM00171
UNLINK.(SAVN1,SAVN2,NERR5) *092 LM00172
END OF CONDITIONAL *093 LM00173
LM00174
MAKE OUTPUT RQUEST LM00175
LM00176
NERR5 FERRTN.(NORQ) *094 LM00177
LM00178
OPEN.($W$,OUTPUT,RQUEST) *095 LM00179
GETBUF.(BUFF1,432) *096 LM00180
BUFFER.(OUTPUT,RQUEST,BUFF1(BUFF1+432)...432) *097 LM00181
LM00182
LINE(13) = SAVN1 *098 LM00183
LINE(11) = SAVN1 *099 LM00184
WRFILE.(OUTPUT,RQUEST,0,LINE(14)...14) *100 LM00185
CLOSE.(OUTPUT,RQUEST) *101 LM00186
TRANSFER TO START *102 LM00187
LM00188
NO RQUEST, COMMENT AND CONTINUE LM00189
LM00190
NORQ PRMESS.($REQUEST FOR$,SAVN1,$ BCD SKIPPED$) *103 LM00191
RESETF. *104 LM00192
TRANSFER TO START *105 LM00193
LM00194
NO BSS, ASSEMBLY FAILED LM00195
LM00196
FAILED PRMESS.($UNABLE TO PLACE$,SAVN1,$ BSS$) *106 LM00197
CHFILE.(BSS,SAVN1,MZE,SAVN1,BSS,START) *107 LM00198
LM00199
COMPILE NEXT ITEM ON LIST LM00200
LM00201
START FERRTN.(ERR1) *108 LM00202
LM00203
SELECT ITEM FROM WORK LIST LM00204
LM00205
OPEN.($R$,WORK,LIST) *109 LM00206
READ1 RDWAIT.(WORK,LIST,RLOC,B(20)...LTHWRK,REOF) *110 LM00207
RLOC = RLOC + LTHWRK *111 LM00208
LM00209
FIRST, CLEAR OUT BCD FILE LM00210
LM00211
CHFILE.(NAME1,BCD,1,MZE,MZE,NERR1) *112 LM00212
DELFIL.(NAME1,BCD,NERR1) *113 LM00213
LM00214
NOW, CLEAR OUT BSS FILE LM00215
LM00216
NERR1 WHENEVER PROGN .NE. V(1), ATTACH.(M1416,PROGN) *114 LM00217
CHFILE.(NAME1,BSS,MZE,BSS,NAME1,NERR2) *115 LM00218
LM00219
CHECK CLEARING FOR SUCCESS LM00220
LM00221
NERR2 FSTATE.(NAME1,BSS,DRAIN...0,NERR3,ERCODE) *116 LM00222
NERR3 WHENEVER (ERCODE .NE. 3), TRANSFER TO SKIPIT *117 LM00223
LM00224
SET UP SOURCE FILE AND CHECK IT LM00225
LM00226
WHENEVER PROGN .NE. V(1) *118 LM00227
ATTACH.(M1416,V(1)) *119 LM00228
LINK.(NAME1,CLASS,M1416,PROGN,MZE,MZE,104K,NERR4) *120 LM00229
END OF CONDITIONAL *121 LM00230
NERR4 FSTATE.(NAME1,CLASS,DRAIN...0,SKIPIT) *122 LM00231
PRMESS.(NAME1,CLASS) *123 LM00232
LM00233
ALL OK, SAVE NAMES LM00234
LM00235
SAVN1 = NAME1 *124 LM00236
SAVN2 = CLASS *125 LM00237
CLASS = FENCE *126 LM00238
LM00239
STUFF COMMAND BUFFERS AND GO LM00240
LM00241
SETC.(B(20),0) *127 LM00242
SETC.(A(20),1) *128 LM00243
SCLC.(1,1) *129 LM00244
NCOM.(B(20),B(19)) *130 LM00245
LM00246
HERE WHEN FILE WILL NOT BE ASSEMBLED LM00247
LM00248
SKIPIT PRMESS.($ASSEMBLY OF $,NAME1,CLASS,$ OMITTED$) *131 LM00249
CHFILE.(BSS,NAME1,MZE,NAME1,BSS,NERR6) *132 LM00250
NERR6 WHENEVER PROGN .NE. V(1), ATTACH.(M1416,V(1)) *133 LM00251
TRANSFER TO READ1 *134 LM00252
LM00253
EOF ON WORK LIST, ALL DONE LM00254
LM00255
REOF RESETF. *135 LM00256
DORMNT. *136 LM00257
LM00258
SOME ERRORS ARE FATAL LM00259
LM00260
ERR1 NCOM.($PRNTER$,FENCE) *137 LM00261
LM00262
END OF PROGRAM *138 LM00263
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01157 TRANSFER VECTOR LENGTH 00040 PROGRAM BEGINS 00301
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
A 00065 A 1 FAILED 00114 4 M1416 00203 A 1 NORQ 00127 4 SAVED 00213 A 1
BCD 00136 A 1 FENCE 00155 A 1 MZE 00204 A 1 OFFST1 00206 1 SAVN1 00047 1
B 00112 A 1 FILE 00156 A 1 N1BUF 00205 A 1 OFFST2 00207 1 SAVN2 00050 1
BSS 00137 A 1 I 00157 1 N1 00043 1 OUTPUT 00210 A 1 SKIPIT 00134 4
BUFF1 00140 A 1 J 00160 1 NAME1 00067 1 PHASE1 00130 4 START 00135 4
BUFF2 00141 A 1 K 00161 1 NERR0 00120 4 PHASE2 00131 4 SYSLST 00042 1
BUFF3 00142 A 1 LINE 00200 A 1 NERR1 00121 4 PRGN 00044 1 TABLE 00234 A 1
CLASS 00072 1 LIST 00201 A 1 NERR2 00122 4 PROGN 00211 1 UFDBUF 00235 A 1
CTSSLD 00143 A 1 LOOP1 00115 4 NERR3 00123 4 READ1 00132 4 UFD 00236 A 1
DRAIN 00153 A 1 LOOP2 00116 4 NERR4 00124 4 REOF 00133 4 V 00241 A 1
ERCODE 00154 A 1 LOOP3 00117 4 NERR5 00125 4 RLOC 00045 1 WORK 00242 A 1
ERR1 00113 4 LTHWRK 00202 A 1 NERR6 00126 4 RQUEST 00212 A 1
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFWRIT 00004 1
BUFFER 00005 1 CHFILE 00006 1 CHNCOM 00007 1 CLOSE 00010 1 DELFIL 00011 1
DORMNT 00012 1 EXIT 00013 1 FERRTN 00014 1 FSTATE 00015 1 FWAIT 00016 1
GETBUF 00017 1 GETCLS 00020 1 .SETUP 00021 1 LINK 00022 1 MOVFIL 00023 1
NCOM 00024 1 OPEN 00025 1 PRMESS 00026 1 RDFILE 00027 1 RDWAIT 00030 1
RESETF 00031 1 SCLC 00032 1 SETC 00033 1 TRFILE 00034 1 UNLINK 00035 1
WHOAMI 00036 1 WRFILE 00037 1
0ABSOLUTE CONSTANTS
00264 -075145632551 00257 +252460606060 00273 -204644316363 00262 -037060462660 00255 +216262254422
00271 -202262626060 00254 +212325606060 00274 -206346604743 00277 -244521224325 00261 -023147472524
00270 -202223246062 00276 -236026465160 00265 -112550642562 00263 -066445246060 00272 -204546636026
00250 +000000000007 00251 +000000000016 00300 -266060606060 00253 +000000000660 00252 +000000000104
00247 +000000000004 00266 -116060606060 00246 +000000000003 00243 +000000000000 00260 -004751274540
00275 -226360450160 00267 -116062706243 00245 +000000000002 00244 +000000000001 00256 +233000000000
0STATEMENT DICTIONARY
00113 TXL -301154001151 00114 TXL -300761000753 00115 TXL -300641000640 00116 TXL -300642000641
00117 TXL -300653000652 00120 TXL -300447000444 00121 TXL -301030001022 00122 TXL -301045001037
00123 TXL -301051001045 00124 TXL -301075001070 00125 TXL -300706000704 00126 TXL -301146001140
00127 TXL -300751000743 00130 TXL -300353000345 00131 TXL -300662000660 00132 TXL -301004000776
00133 TXL -301150001147 00134 TXL -301131001122 00135 TXL -300772000770
0PROGRAM
N'R 001 LM00013
D'N BUFF1(0),BUFF2(0),BUFF3(0) 002 LM00014
D'N UFDBUF(0),N1BUF(0) 003 LM00015
D'N LINE(14),V(2),A(20),B(20),DRAIN(7) 004 LM00016
E'E (SYSLST,A(19)),(N1,A(18)),(PRGN,A(17)) 005 LM00017
E'E (RLOC,A(16)),(SAVN1,A(14)),(SAVN2,A(13)) 006 LM00018
E'E (NAME1,B(19)),(CLASS,B(16)) 007 LM00019
V'S UFD = $U.F.D.$ 008 LM00021
00301 TSX +0 07400 4 00021 00236 -2 43326 3 32433
V'S FILE = $(FILE)$ 009 LM00022
00156 -3 42631 4 32534
V'S WORK = $(WORK)$ 010 LM00023
00242 -3 46646 5 14234
V'S LIST = $(LIST)$ 011 LM00024
00201 -3 44331 6 26334
V'S CTSSLD = $CTSSLD$ 012 LM00025
00143 +2 36362 6 24324
V'S BCD = $ BCD$ 013 LM00026
00136 -2 06060 2 22324
V'S BSS = $ BSS$ 014 LM00027
00137 -2 06060 2 26262
V'S SAVED = $ SAVED$ 015 LM00028
00213 -2 06221 6 52524
V'S OUTPUT = $OUTPUT$ 016 LM00029
00210 -0 66463 4 76463
V'S RQUEST = $RQUEST$ 017 LM00030
00212 -1 15064 2 56263
V'S M1416 = $ M1416$ 018 LM00032
00203 -2 04401 0 40106
V'S MZE = -0 019 LM00033
00204 -0 00000 0 00000
V'S LTHWRK = 5 020 LM00034
00202 +0 00000 0 00005
V'S ERCODE = 0 021 LM00035
00154 +0 00000 0 00000
V'S FENCE = 777777777777K 022 LM00036
00155 -3 77777 7 77777
V'S A(20) = $RESUME$ 023 LM00037
00041 -1 12562 6 44425
V'S TABLE = $ MAD$,$ MAD$,$(LIST)$,777777777777K, 024 LM00039
1 $ FAP$,$ FAP$,$(LIST)$,777777777777K, 024 LM00040
2 $CRUNCH$,$ BEFAP$,$(CRUN)$,$(LIST)$, 024 LM00041
3 $ ALGOL$,$ AED$,$(LIST)$,777777777777K, 024 LM00042
4 777777777777K 024 LM00043
00214 -3 77777 7 77777 00215 -3 77777 7 77777 00216 -3 44331 6 26334 00217 -2 06060 2 12524
00220 -2 02143 2 74643 00221 -3 44331 6 26334 00222 -3 42351 6 44534 00223 -2 02225 2 62147
00224 +2 35164 4 52330 00225 -3 77777 7 77777 00226 -3 44331 6 26334 00227 -2 06060 2 62147
00230 -2 06060 2 62147 00231 -3 77777 7 77777 00232 -3 44331 6 26334 00233 -2 06060 4 42124
00234 -2 06060 4 42124
V'S LINE(1) = $$,$$,$$,$$,$$,$$,$$,$$,$$, 025 LM00044
1 $ BCD $,0,$ BCD $,0,$PRINT $ 025 LM00045
00162 -0 75131 4 56360 00163 +0 00000 0 00000 00164 -2 02223 2 46060 00165 +0 00000 0 00000
00166 -2 02223 2 46060 00167 -2 06060 6 06060 00170 -2 06060 6 06060 00171 -2 06060 6 06060
00172 -2 06060 6 06060 00173 -2 06060 6 06060 00174 -2 06060 6 06060 00175 -2 06060 6 06060
00176 -2 06060 6 06060 00177 -2 06060 6 06060
ATTNAM.(V(2)...2) 026 LM00049
00302 TSX +0 07400 4 00001 00303 TIX +2 00245 0 00237
GETCLS.(A(19)) 027 LM00050
00304 TSX +0 07400 4 00020 00305 TXH +3 00000 0 00042
FERRTN.(ERR1) 028 LM00051
00306 TSX +0 07400 4 00014 00307 TXH +3 00000 0 00113
PROGN = V(1) 029 LM00052
00310 CLA +0 50000 0 00240 00311 STO +0 60100 0 00211
W'R N1 .E. FENCE 030 LM00056
00312 CLA +0 50000 0 00043 00313 SUB +0 40200 0 00155 00314 TNZ -0 10000 0 00323
PRMESS.($R SYSLST N1 -PRGN-$) 031 LM00057
00315 TSX +0 07400 4 00026 00316 TXH +3 00000 0 00267 00317 TXH +3 00000 0 00275 00320 TXH +3 00000 0 00260
CHNCOM.(0) 032 LM00058
00321 TSX +0 07400 4 00007 00322 TXH +3 00000 0 00243
E'L 033 LM00059
W'R PRGN .E. FENCE 034 LM00063
00323 CLA +0 50000 0 00044 00324 SUB +0 40200 0 00155 00325 TNZ -0 10000 0 00334
PRGN = PROGN 035 LM00064
00326 CLA +0 50000 0 00211 00327 STO +0 60100 0 00044
RLOC = 1 036 LM00065
00330 CLA +0 50000 0 00244 00331 STO +0 60100 0 00045
T'O PHASE1 037 LM00066
00332 TRA +0 02000 0 00130
O'E 038 LM00067
00333 TRA +0 02000 0 00336
PROGN = PRGN 039 LM00068
00334 CLA +0 50000 0 00044 00335 STO +0 60100 0 00211
E'L 040 LM00069
W'R RLOC .E. FENCE 041 LM00070
00336 CLA +0 50000 0 00045 00337 SUB +0 40200 0 00155 00340 TNZ -0 10000 0 00344
RLOC = 1 042 LM00071
00341 CLA +0 50000 0 00244 00342 STO +0 60100 0 00045
T'O PHASE1 043 LM00072
00343 TRA +0 02000 0 00130
E'L 044 LM00073
T'O PHASE2 045 LM00074
00344 TRA +0 02000 0 00131
PHASE1 W'R PROGN .NE. V(1), ATTACH.(M1416,PROGN) 046 LM00078
00345 CLA +0 50000 0 00211 00346 SUB +0 40200 0 00240 00347 TZE +0 10000 0 00353 00350 TSX +0 07400 4 00000
00351 TXH +3 00000 0 00203 00352 TXH +3 00000 0 00211
FSTATE.(UFD,FILE,DRAIN(0)...1) 047 LM00079
00353 TSX +0 07400 4 00015 00354 TXH +3 00000 0 00236 00355 TXH +3 00000 0 00156 00356 TIX +2 00244 0 00153
FSTATE.(N1,CTSSLD,DRAIN(1)...1) 048 LM00080
00357 TSX +0 07400 4 00015 00360 TXH +3 00000 0 00043 00361 TXH +3 00000 0 00143 00362 TIX +2 00244 0 00152
DRAIN(0) = DRAIN(0) - 3 049 LM00081
00363 CLA +0 50000 0 00153 00364 SUB +0 40200 0 00246 00365 STO +0 60100 0 00153
GETBUF.(N1BUF,DRAIN(1)) 050 LM00085
00366 TSX +0 07400 4 00017 00367 TXH +3 00000 0 00205 00370 TXH +3 00000 0 00152
OPEN.($R$,N1,CTSSLD) 051 LM00086
00371 TSX +0 07400 4 00025 00372 TXH +3 00000 0 00266 00373 TXH +3 00000 0 00043 00374 TXH +3 00000 0 00143
RDFILE.(N1,CTSSLD,1,N1BUF(N1BUF+DRAIN(1))...DRAIN(1)) 052 LM00087
00375 CLA +0 50000 0 00205 00376 ADD +0 40000 0 00152 00377 SUB +0 40200 0 00400 00400 TXH +3 00000 0 00205
00401 STA +0 62100 0 00406 00402 TSX +0 07400 4 00027 00403 TXH +3 00000 0 00043 00404 TXH +3 00000 0 00143
00405 TXH +3 00000 0 00244 00406 TIX +2 00152 0 00000
GETBUF.(UFDBUF,DRAIN(0)) 053 LM00089
00407 TSX +0 07400 4 00017 00410 TXH +3 00000 0 00235 00411 TXH +3 00000 0 00153
OPEN.($R$,UFD,FILE) 054 LM00090
00412 TSX +0 07400 4 00025 00413 TXH +3 00000 0 00266 00414 TXH +3 00000 0 00236 00415 TXH +3 00000 0 00156
RDFILE.(UFD,FILE,4,UFDBUF(UFDBUF+DRAIN(0))...DRAIN(0)) 055 LM00091
00416 CLA +0 50000 0 00235 00417 ADD +0 40000 0 00153 00420 SUB +0 40200 0 00421 00421 TXH +3 00000 0 00235
00422 STA +0 62100 0 00427 00423 TSX +0 07400 4 00027 00424 TXH +3 00000 0 00236 00425 TXH +3 00000 0 00156
00426 TXH +3 00000 0 00247 00427 TIX +2 00153 0 00000
W'R PROGN .NE. V(1) 056 LM00095
00430 CLA +0 50000 0 00211 00431 SUB +0 40200 0 00240 00432 TZE +0 10000 0 00447
LINK.(SYSLST,SAVED,M1416,V(1),MZE,MZE,104K,NERR0) 057 LM00096
00433 TSX +0 07400 4 00022 00434 TXH +3 00000 0 00042 00435 TXH +3 00000 0 00213 00436 TXH +3 00000 0 00203
00437 TXH +3 00000 0 00240 00440 TXH +3 00000 0 00204 00441 TXH +3 00000 0 00204 00442 TXH +3 00000 0 00252
00443 TXH +3 00000 0 00120
NERR0 ATTACH.(M1416,V(1)) 058 LM00097
00444 TSX +0 07400 4 00000 00445 TXH +3 00000 0 00203 00446 TXH +3 00000 0 00240
E'L 059 LM00098
GETBUF.(BUFF1,432) 060 LM00102
00447 TSX +0 07400 4 00017 00450 TXH +3 00000 0 00140 00451 TXH +3 00000 0 00253
GETBUF.(BUFF2,432) 061 LM00103
00452 TSX +0 07400 4 00017 00453 TXH +3 00000 0 00141 00454 TXH +3 00000 0 00253
GETBUF.(BUFF3,432) 062 LM00104
00455 TSX +0 07400 4 00017 00456 TXH +3 00000 0 00142 00457 TXH +3 00000 0 00253
FWAIT.(N1,CTSSLD) 063 LM00108
00460 TSX +0 07400 4 00016 00461 TXH +3 00000 0 00043 00462 TXH +3 00000 0 00143
FWAIT.(UFD,FILE) 064 LM00109
00463 TSX +0 07400 4 00016 00464 TXH +3 00000 0 00236 00465 TXH +3 00000 0 00156
RESETF. 065 LM00110
00466 TSX +0 07400 4 00031
BFOPEN.($W$,WORK,LIST,BUFF1(BUFF1+432),BUFF2(BUFF2+432), 066 LM00114
1 BUFF3(BUFF3+432),ERR1) 066 LM00115
00467 CLA +0 50000 0 00142 00470 ADD +0 40000 0 00253 00471 SUB +0 40200 0 00472 00472 TXH +3 00000 0 00142
00473 STA +0 62100 0 00514 00474 CLA +0 50000 0 00141 00475 ADD +0 40000 0 00253 00476 SUB +0 40200 0 00477
00477 TXH +3 00000 0 00141 00500 STA +0 62100 0 00513 00501 CLA +0 50000 0 00140 00502 ADD +0 40000 0 00253
00503 SUB +0 40200 0 00504 00504 TXH +3 00000 0 00140 00505 STA +0 62100 0 00512 00506 TSX +0 07400 4 00003
00507 TXH +3 00000 0 00300 00510 TXH +3 00000 0 00242 00511 TXH +3 00000 0 00201 00512 TXH +3 00000 0 00000
00513 TXH +3 00000 0 00000 00514 TXH +3 00000 0 00000 00515 TXH +3 00000 0 00113
TRFILE.(WORK,LIST,0) 067 LM00116
00516 TSX +0 07400 4 00034 00517 TXH +3 00000 0 00242 00520 TXH +3 00000 0 00201 00521 TXH +3 00000 0 00243
T'H LOOP3, FOR I = DRAIN(1),-14,(I.LE.0) 068 LM00120
00522 CLA +0 50000 0 00152 00523 STO +0 60100 0 00157 00524 TRA +0 02000 0 00530 00525 CLS +0 50200 0 00251
00526 ADD +0 40000 0 00157 00527 STO +0 60100 0 00157 00530 CLA +0 50000 0 00157 00531 SUB +0 40200 0 00243
00532 TZE +0 10000 0 00653 00533 TMI -0 12000 0 00653
OFFST1 = N1BUF + I 069 LM00121
00534 CLA +0 50000 0 00205 00535 ADD +0 40000 0 00157 00536 STO +0 60100 0 00206
T'H LOOP2, FOR J = DRAIN(0),-7,(J.LE.0) 070 LM00125
00537 CLA +0 50000 0 00153 00540 STO +0 60100 0 00160 00541 TRA +0 02000 0 00545 00542 CLS +0 50200 0 00250
00543 ADD +0 40000 0 00160 00544 STO +0 60100 0 00160 00545 CLA +0 50000 0 00160 00546 SUB +0 40200 0 00243
00547 TZE +0 10000 0 00642 00550 TMI -0 12000 0 00642
W'R UFDBUF(UFDBUF+J).NE.N1BUF(OFFST1), 071 LM00126
1 T'O LOOP2 071 LM00127
00551 CLA +0 50000 0 00235 00552 ADD +0 40000 0 00160 00553 PAX +0 73400 1 00000 00554 LXA +0 53400 2 00206
00555 CLA +0 50000 1 00235 00556 SUB +0 40200 2 00205 00557 TZE +0 10000 0 00561 00560 TRA +0 02000 0 00116
OFFST2 = UFDBUF + J - 1 072 LM00128
00561 CLA +0 50000 0 00235 00562 ADD +0 40000 0 00160 00563 SUB +0 40200 0 00244 00564 STO +0 60100 0 00207
T'H LOOP1, FOR K = 0,4,(TABLE(K).E.FENCE) 073 LM00132
00565 CLA +0 50000 0 00243 00566 STO +0 60100 0 00161 00567 TRA +0 02000 0 00573 00570 CLA +0 50000 0 00161
00571 ADD +0 40000 0 00247 00572 STO +0 60100 0 00161 00573 LXA +0 53400 1 00161 00574 CLA +0 50000 1 00234
00575 SUB +0 40200 0 00155 00576 TZE +0 10000 0 00641
W'R UFDBUF(OFFST2).NE.TABLE(K), 074 LM00133
1 T'O LOOP1 074 LM00134
00577 LXA +0 53400 1 00207 00600 LXA +0 53400 2 00161 00601 CLA +0 50000 1 00235 00602 SUB +0 40200 2 00234
00603 TZE +0 10000 0 00605 00604 TRA +0 02000 0 00115
DRAIN(7) = TABLE(K+1) 075 LM00138
00605 CLA +0 50000 0 00161 00606 ADD +0 40000 0 00244 00607 PAX +0 73400 2 00000 00610 CLA +0 50000 2 00234
00611 STO +0 60100 0 00144
DRAIN(6) = N1BUF(OFFST1) 076 LM00139
00612 LXA +0 53400 2 00206 00613 CLA +0 50000 2 00205 00614 STO +0 60100 0 00145
DRAIN(5) = TABLE(K+2) 077 LM00140
00615 CLA +0 50000 0 00161 00616 ADD +0 40000 0 00245 00617 PAX +0 73400 2 00000 00620 CLA +0 50000 2 00234
00621 STO +0 60100 0 00146
DRAIN(4) = TABLE(K+3) 078 LM00141
00622 CLA +0 50000 0 00161 00623 ADD +0 40000 0 00246 00624 PAX +0 73400 2 00000 00625 CLA +0 50000 2 00234
00626 STO +0 60100 0 00147
DRAIN(3) = TABLE(K) 079 LM00142
00627 LXA +0 53400 2 00161 00630 CLA +0 50000 2 00234 00631 STO +0 60100 0 00150
BFWRIT.(WORK,LIST,DRAIN(7)...LTHWRK,ERR1) 080 LM00143
00632 TSX +0 07400 4 00004 00633 TXH +3 00000 0 00242 00634 TXH +3 00000 0 00201 00635 TIX +2 00202 0 00144
00636 TXH +3 00000 0 00113
T'O LOOP3 081 LM00144
00637 TRA +0 02000 0 00117
LOOP1 C'E 082 LM00146
00640 TRA +0 02000 0 00570
LOOP2 C'E 083 LM00147
00641 TRA +0 02000 0 00542
PRMESS.(N1BUF(OFFST1),$ NOT FOUND$) 084 LM00151
00642 CLA +0 50000 0 00206 00643 SUB +0 40200 0 00644 00644 TXH +3 00000 0 00205 00645 STA +0 62100 0 00647
00646 TSX +0 07400 4 00026 00647 TXH +3 00000 0 00000 00650 TXH +3 00000 0 00272 00651 TXH +3 00000 0 00263
LOOP3 C'E 085 LM00153
00652 TRA +0 02000 0 00525
BFCLOS.(WORK,LIST,ERR1) 086 LM00157
00653 TSX +0 07400 4 00002 00654 TXH +3 00000 0 00242 00655 TXH +3 00000 0 00201 00656 TXH +3 00000 0 00113
T'O START 087 LM00158
00657 TRA +0 02000 0 00135
PHASE2 WHOAMI.(LINE(2)...2) 088 LM00162
00660 TSX +0 07400 4 00036 00661 TIX +2 00245 0 00176
FSTATE.(SAVN1,BSS,DRAIN...0,FAILED) 089 LM00166
00662 TSX +0 07400 4 00015 00663 TXH +3 00000 0 00047 00664 TXH +3 00000 0 00137 00665 TIX +2 00243 0 00153
00666 TXH +3 00000 0 00114
W'R PROGN .NE. V(1) 090 LM00170
00667 CLA +0 50000 0 00211 00670 SUB +0 40200 0 00240 00671 TZE +0 10000 0 00704
MOVFIL.(SAVN1,BSS,M1416,PROGN,FAILED) 091 LM00171
00672 TSX +0 07400 4 00023 00673 TXH +3 00000 0 00047 00674 TXH +3 00000 0 00137 00675 TXH +3 00000 0 00203
00676 TXH +3 00000 0 00211 00677 TXH +3 00000 0 00114
UNLINK.(SAVN1,SAVN2,NERR5) 092 LM00172
00700 TSX +0 07400 4 00035 00701 TXH +3 00000 0 00047 00702 TXH +3 00000 0 00050 00703 TXH +3 00000 0 00125
E'L 093 LM00173
NERR5 FERRTN.(NORQ) 094 LM00177
00704 TSX +0 07400 4 00014 00705 TXH +3 00000 0 00127
OPEN.($W$,OUTPUT,RQUEST) 095 LM00179
00706 TSX +0 07400 4 00025 00707 TXH +3 00000 0 00300 00710 TXH +3 00000 0 00210 00711 TXH +3 00000 0 00212
GETBUF.(BUFF1,432) 096 LM00180
00712 TSX +0 07400 4 00017 00713 TXH +3 00000 0 00140 00714 TXH +3 00000 0 00253
BUFFER.(OUTPUT,RQUEST,BUFF1(BUFF1+432)...432) 097 LM00181
00715 CLA +0 50000 0 00140 00716 ADD +0 40000 0 00253 00717 SUB +0 40200 0 00720 00720 TXH +3 00000 0 00140
00721 STA +0 62100 0 00725 00722 TSX +0 07400 4 00005 00723 TXH +3 00000 0 00210 00724 TXH +3 00000 0 00212
00725 TIX +2 00253 0 00000
LINE(13) = SAVN1 098 LM00183
00726 CLA +0 50000 0 00047 00727 STO +0 60100 0 00163
LINE(11) = SAVN1 099 LM00184
00730 CLA +0 50000 0 00047 00731 STO +0 60100 0 00165
WRFILE.(OUTPUT,RQUEST,0,LINE(14)...14) 100 LM00185
00732 TSX +0 07400 4 00037 00733 TXH +3 00000 0 00210 00734 TXH +3 00000 0 00212 00735 TXH +3 00000 0 00243
00736 TIX +2 00251 0 00162
CLOSE.(OUTPUT,RQUEST) 101 LM00186
00737 TSX +0 07400 4 00010 00740 TXH +3 00000 0 00210 00741 TXH +3 00000 0 00212
T'O START 102 LM00187
00742 TRA +0 02000 0 00135
NORQ PRMESS.($REQUEST FOR$,SAVN1,$ BCD SKIPPED$) 103 LM00191
00743 TSX +0 07400 4 00026 00744 TXH +3 00000 0 00265 00745 TXH +3 00000 0 00276 00746 TXH +3 00000 0 00047
00747 TXH +3 00000 0 00270 00750 TXH +3 00000 0 00261
RESETF. 104 LM00192
00751 TSX +0 07400 4 00031
T'O START 105 LM00193
00752 TRA +0 02000 0 00135
FAILED PRMESS.($UNABLE TO PLACE$,SAVN1,$ BSS$) 106 LM00197
00753 TSX +0 07400 4 00026 00754 TXH +3 00000 0 00277 00755 TXH +3 00000 0 00274 00756 TXH +3 00000 0 00254
00757 TXH +3 00000 0 00047 00760 TXH +3 00000 0 00271
CHFILE.(BSS,SAVN1,MZE,SAVN1,BSS,START) 107 LM00198
00761 TSX +0 07400 4 00006 00762 TXH +3 00000 0 00137 00763 TXH +3 00000 0 00047 00764 TXH +3 00000 0 00204
00765 TXH +3 00000 0 00047 00766 TXH +3 00000 0 00137 00767 TXH +3 00000 0 00135
START FERRTN.(ERR1) 108 LM00202
00770 TSX +0 07400 4 00014 00771 TXH +3 00000 0 00113
OPEN.($R$,WORK,LIST) 109 LM00206
00772 TSX +0 07400 4 00025 00773 TXH +3 00000 0 00266 00774 TXH +3 00000 0 00242 00775 TXH +3 00000 0 00201
READ1 RDWAIT.(WORK,LIST,RLOC,B(20)...LTHWRK,REOF) 110 LM00207
00776 TSX +0 07400 4 00030 00777 TXH +3 00000 0 00242 01000 TXH +3 00000 0 00201 01001 TXH +3 00000 0 00045
01002 TIX +2 00202 0 00066 01003 TXH +3 00000 0 00133
RLOC = RLOC + LTHWRK 111 LM00208
01004 CLA +0 50000 0 00045 01005 ADD +0 40000 0 00202 01006 STO +0 60100 0 00045
CHFILE.(NAME1,BCD,1,MZE,MZE,NERR1) 112 LM00212
01007 TSX +0 07400 4 00006 01010 TXH +3 00000 0 00067 01011 TXH +3 00000 0 00136 01012 TXH +3 00000 0 00244
01013 TXH +3 00000 0 00204 01014 TXH +3 00000 0 00204 01015 TXH +3 00000 0 00121
DELFIL.(NAME1,BCD,NERR1) 113 LM00213
01016 TSX +0 07400 4 00011 01017 TXH +3 00000 0 00067 01020 TXH +3 00000 0 00136 01021 TXH +3 00000 0 00121
NERR1 W'R PROGN .NE. V(1), ATTACH.(M1416,PROGN) 114 LM00217
01022 CLA +0 50000 0 00211 01023 SUB +0 40200 0 00240 01024 TZE +0 10000 0 01030 01025 TSX +0 07400 4 00000
01026 TXH +3 00000 0 00203 01027 TXH +3 00000 0 00211
CHFILE.(NAME1,BSS,MZE,BSS,NAME1,NERR2) 115 LM00218
01030 TSX +0 07400 4 00006 01031 TXH +3 00000 0 00067 01032 TXH +3 00000 0 00137 01033 TXH +3 00000 0 00204
01034 TXH +3 00000 0 00137 01035 TXH +3 00000 0 00067 01036 TXH +3 00000 0 00122
NERR2 FSTATE.(NAME1,BSS,DRAIN...0,NERR3,ERCODE) 116 LM00222
01037 TSX +0 07400 4 00015 01040 TXH +3 00000 0 00067 01041 TXH +3 00000 0 00137 01042 TIX +2 00243 0 00153
01043 TXH +3 00000 0 00123 01044 TXH +3 00000 0 00154
NERR3 W'R (ERCODE .NE. 3), T'O SKIPIT 117 LM00223
01045 CLA +0 50000 0 00154 01046 SUB +0 40200 0 00246 01047 TZE +0 10000 0 01051 01050 TRA +0 02000 0 00134
W'R PROGN .NE. V(1) 118 LM00227
01051 CLA +0 50000 0 00211 01052 SUB +0 40200 0 00240 01053 TZE +0 10000 0 01070
ATTACH.(M1416,V(1)) 119 LM00228
01054 TSX +0 07400 4 00000 01055 TXH +3 00000 0 00203 01056 TXH +3 00000 0 00240
LINK.(NAME1,CLASS,M1416,PROGN,MZE,MZE,104K,NERR4) 120 LM00229
01057 TSX +0 07400 4 00022 01060 TXH +3 00000 0 00067 01061 TXH +3 00000 0 00072 01062 TXH +3 00000 0 00203
01063 TXH +3 00000 0 00211 01064 TXH +3 00000 0 00204 01065 TXH +3 00000 0 00204 01066 TXH +3 00000 0 00252
01067 TXH +3 00000 0 00124
E'L 121 LM00230
NERR4 FSTATE.(NAME1,CLASS,DRAIN...0,SKIPIT) 122 LM00231
01070 TSX +0 07400 4 00015 01071 TXH +3 00000 0 00067 01072 TXH +3 00000 0 00072 01073 TIX +2 00243 0 00153
01074 TXH +3 00000 0 00134
PRMESS.(NAME1,CLASS) 123 LM00232
01075 TSX +0 07400 4 00026 01076 TXH +3 00000 0 00067 01077 TXH +3 00000 0 00072
SAVN1 = NAME1 124 LM00236
01100 CLA +0 50000 0 00067 01101 STO +0 60100 0 00047
SAVN2 = CLASS 125 LM00237
01102 CLA +0 50000 0 00072 01103 STO +0 60100 0 00050
CLASS = FENCE 126 LM00238
01104 CLA +0 50000 0 00155 01105 STO +0 60100 0 00072
SETC.(B(20),0) 127 LM00242
01106 TSX +0 07400 4 00033 01107 TXH +3 00000 0 00066 01110 TXH +3 00000 0 00243
SETC.(A(20),1) 128 LM00243
01111 TSX +0 07400 4 00033 01112 TXH +3 00000 0 00041 01113 TXH +3 00000 0 00244
SCLC.(1,1) 129 LM00244
01114 TSX +0 07400 4 00032 01115 TXH +3 00000 0 00244 01116 TXH +3 00000 0 00244
NCOM.(B(20),B(19)) 130 LM00245
01117 TSX +0 07400 4 00024 01120 TXH +3 00000 0 00066 01121 TXH +3 00000 0 00067
SKIPIT PRMESS.($ASSEMBLY OF $,NAME1,CLASS,$ OMITTED$) 131 LM00249
01122 TSX +0 07400 4 00026 01123 TXH +3 00000 0 00255 01124 TXH +3 00000 0 00262 01125 TXH +3 00000 0 00067
01126 TXH +3 00000 0 00072 01127 TXH +3 00000 0 00273 01130 TXH +3 00000 0 00257
CHFILE.(BSS,NAME1,MZE,NAME1,BSS,NERR6) 132 LM00250
01131 TSX +0 07400 4 00006 01132 TXH +3 00000 0 00137 01133 TXH +3 00000 0 00067 01134 TXH +3 00000 0 00204
01135 TXH +3 00000 0 00067 01136 TXH +3 00000 0 00137 01137 TXH +3 00000 0 00126
NERR6 W'R PROGN .NE. V(1), ATTACH.(M1416,V(1)) 133 LM00251
01140 CLA +0 50000 0 00211 01141 SUB +0 40200 0 00240 01142 TZE +0 10000 0 01146 01143 TSX +0 07400 4 00000
01144 TXH +3 00000 0 00203 01145 TXH +3 00000 0 00240
T'O READ1 134 LM00252
01146 TRA +0 02000 0 00132
REOF RESETF. 135 LM00256
01147 TSX +0 07400 4 00031
DORMNT. 136 LM00257
01150 TSX +0 07400 4 00012
ERR1 NCOM.($PRNTER$,FENCE) 137 LM00261
01151 TSX +0 07400 4 00024 01152 TXH +3 00000 0 00264 01153 TXH +3 00000 0 00155
E'M 138 LM00263
01154 TSX +0 07400 4 00013
1 SLIGHTLY MODIFIED FORM OF 'SCLS' AS FOUND IN LIBRARY PAGE 1
D.R. WIDRIG OCTOBER 1966
00003 ENTRY SETC
CALL IS SETC.(BUFF(20),N)
TRANSFER VECTOR
00000 622563234362 SETCLS
LINKAGE DIRECTOR
00001 000000000000
00002 622563236060
00003 0636 00 4 00013 SETC SCA SETX4,4 SAVE LINKAGE
00004 0500 00 4 00001 CLA 1,4 GET POINTER TO BASE
00005 0621 00 0 00012 STA SET SAVE IT
00006 0500 60 4 00002 CLA* 2,4 GET COMMAND BUFFER NUMBER
00007 0767 00 0 00022 ALS 18 MOVE TO DECREMENT
00010 0622 00 0 00012 STD SET AND PLANT IT
00011 0074 00 4 00000 TSX $SETCLS,4 CALL UP SUPERVISOR
00012 0 00000 0 00000 SET **,,** BUFF,,'N'
00013 -0774 00 4 00000 SETX4 AXC **,4 RESTORE LINKAGE
00014 0020 00 4 00003 TRA 3,4 RETURN TO CALLER
END
1 SLIGHTLY MODIFIED FORM OF 'SCLS' AS FOUND IN LIBRARY PAGE 1
POST PROCESSOR ASSEMBLY DATA
15 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
12 SET 5, 10
3 SETC 0
13 SETX4 3
0 SETCLS 11
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
D.R. WIDRIG JUNE 1966
00004 ENTRY GETBUF GET A BUFFER
EXTERN GETMEM,SETMEM
CALLING SEQUENCE IS.. GETBUF.(BUFF,N)
UPON RETURN, THE CALLER MAY USE THE
AREA BY STATEMENTS OF THE FORM.. X = BUFF(BUFF+I)
WHERE THE I'TH ELEMENT IS INTENDED
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
LINKAGE DIRECTOR
00002 000000000000
00003 272563226426
00004 0636 00 4 00024 GETBUF SCA X4,4 SAVE LINKAGE
00005 0634 00 1 00025 SXA X1,1 AND IR1
00006 0535 00 1 00024 LAC X4,1 SET IR1 TO IR4 (THE CALLER)
00007 0074 00 4 00000 TSX GETMEM,4 GET CURRENT MEMORY BOUND
00010 0601 00 0 00027 STO OLDMEM SAVE OLD MEMORY BOUND
00011 0400 60 1 00002 ADD* 2,1 ALLOW FOR USER'S DEMAND
00012 0734 00 4 00000 PAX 0,4 SAVE COMPLEMENT OF THIS VALUE
00013 -0636 00 4 00020 SCD TXI,4 ..
00014 0400 00 0 00030 ADD =1 ALLOW FOR BUFF(0)
00015 0074 00 4 00001 TSX SETMEM,4 RAISE THE ROOF
00016 -0500 00 1 00001 CAL 1,1 GET BASE POINTER
00017 0734 00 4 00000 PAX 0,4 ..
00020 1 00000 4 00021 TXI TXI *+1,4,** DECREMENT BY AMOUNT OF STORAGE
00021 0754 00 4 00000 PXA 0,4 SET THIS VALUE IN USER'S PROGRAM
00022 0602 60 1 00001 SLW* 1,1 ..
00023 0500 00 0 00027 CLA OLDMEM RETURN OLD MEMORY BOUND
00024 -0774 00 4 00000 X4 AXC **,4 RESTORE LINKAGE
00025 0774 00 1 00000 X1 AXT **,1 AND IR1
00026 0020 00 4 00003 TRA 3,4 RETURN
00027 OLDMEM BSS 1 STORAGE FOR OLD MEMORY BOUND
END
LITERALS
00030 000000000001
1 ROUTINE TO GET A BUFFER AREA BY EXPANDING MEMORY BOUND PAGE 1
POST PROCESSOR ASSEMBLY DATA
31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
25 X1 5
24 X4 4, 6
20 TXI 13
4 GETBUF 0
0 GETMEM 7
27 OLDMEM 10, 23
1 SETMEM 15
0 NO ERROR IN ABOVE ASSEMBLY.
TIAGEN BCD 10/12/70 1510.5 3340 00000
1 MAD PROGRAM LISTING ... ... ... FILE TIAGEN MAD 06/21/69 1650.4
-
TIAGEN PROGRAM TO GENERATE A FAP PROGRAM LM00001
FOR TIA'S TO THE CTSS SUPERVISOR LM00002
WRITTEN BY R. ROACH 6/21/69 LM00003
LM00004
USAGE: LM00005
R TIAGEN N1 N2 N3 N4 N5 N6 N7 ... LM00006
LM00007
A FILE CALLED 'N1 FAP' WILL BE CREATED WITH THE LM00008
ENTRIES N1, N2, N3 ... LM00009
LM00010
NORMAL MODE IS INTEGER *001 LM00011
DIMENSION B1(0),B2(0),B3(0) *002 LM00012
N1 = COMARG.(1) *003 LM00013
VECTOR VALUES N2 = $ FAP$ *004 LM00014
VECTOR VALUES FENCE = 777777777777K *005 LM00015
LM00016
WHENEVER N1 .E. FENCE *006 LM00017
PRFULL.($'R'1NO FILE NAME GIVEN.'B$) *007 LM00018
EXITM. *008 LM00019
END OF CONDITIONAL *009 LM00020
GETBUF.(B1,432) *010 LM00021
GETBUF.(B2,432) *011 LM00022
GETBUF.(B3,432) *012 LM00023
DELETE.(N1,N2,1,IOERR) *013 LM00024
BFOPEN.($W$,N1,N2,B1(B1+432),B2(B2+432),B3(B3+432),IOERR) *014 LM00025
LM00026
... NOW WRITE THE 'NOLNK' CARD LM00027
LM00028
BFWRIT.(N1,N2,LINE1(2)...2,IOERR) *015 LM00029
VECTOR VALUES LINE1(2) = 777777000001K *016 LM00030
VECTOR VALUES LINE1(1) = 724546434542K *017 LM00031
LM00032
... NOW WRITE THE ENTRY CARDS LM00033
LM00034
THROUGH LOOP1, FOR I = 1,1,COMARG.(I,ARG).E.FENCE *018 LM00035
LINE2 = LJUST.(ARG) *019 LM00036
BFWRIT.(N1,N2,LINE2(3)...4,IOERR) *020 LM00037
VECTOR VALUES LINE2(3) = 777777000003K *021 LM00038
VECTOR VALUES LINE2(2) = 722545635170K *022 LM00039
VECTOR VALUES LINE2(1) = 725757575757K *023 LM00040
LOOP1 CONTINUE *024 LM00041
LM00042
... NOW WRITE THE TIA CARDS LM00043
LM00044
THROUGH LOOP2, FOR I = 1,1,COMARG.(I,ARG).E.FENCE *025 LM00045
LINE3(3) = LJUST.(ARG) *026 LM00046
LINE3 = LJUST.(ARG) *027 LM00047
VECTOR VALUES LINE3(4) = 777777000004K *028 LM00048
VECTOR VALUES LINE3(2) = 726331217257K *029 LM00049
VECTOR VALUES LINE3(1) = 575757571330K *030 LM00050
BFWRIT.(N1,N2,LINE3(4)...5,IOERR) *031 LM00051
LOOP2 CONTINUE *032 LM00052
LM00053
... NOW WRITE THE END CARD LM00054
LM00055
BFWRIT.(N1,N2,LINE4(1)...2,IOERR) *033 LM00056
VECTOR VALUES LINE4(1) = 777777000001K *034 LM00057
VECTOR VALUES LINE4 = 722545245757K *035 LM00058
LM00059
CLOSE OUT LM00060
LM00061
EXITM. *036 LM00062
IOERR PRDIAG. *037 LM00063
EXITM. *038 LM00064
LM00065
END OF PROGRAM *039 LM00066
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00235 TRANSFER VECTOR LENGTH 00013 PROGRAM BEGINS 00057
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ARG 00015 1 B3 00020 A 1 I 00022 1 LINE3 00036 A 1 LOOP2 00013 4
B1 00016 A 1 FENCE 00021 A 1 LINE1 00025 A 1 LINE4 00040 A 1 N1 00041 1
B2 00017 A 1 IOERR 00014 4 LINE2 00031 A 1 LOOP1 00013 4 N2 00042 A 1
0FUNCTION DICTIONARY
BFOPEN 00000 1 BFWRIT 00001 1 COMARG 00002 1 DELETE 00003 1 EXITM 00004 1
EXIT 00005 1 GETBUF 00006 1 .SETUP 00007 1 LJUST 00010 1 PRDIAG 00011 1
PRFULL 00012 1
0ABSOLUTE CONSTANTS
00046 +000000000005 00045 +000000000004 00044 +000000000002 00056 -266060606060 00047 +000000000660
00051 +226060606060 00053 +316525453314 00054 -052144256027 00055 -202631432560 00050 +145114014546
00043 +000000000001 00052 +233000000000
0STATEMENT DICTIONARY
00014 TXL -300231000230
0PROGRAM
N'R 001 LM00011
D'N B1(0),B2(0),B3(0) 002 LM00012
N1 = COMARG.(1) 003 LM00013
00057 TSX +0 07400 4 00007 00060 TSX +0 07400 4 00002 00061 TXH +3 00000 0 00043 00062 STO +0 60100 0 00041
V'S N2 = $ FAP$ 004 LM00014
00042 -2 06060 2 62147
V'S FENCE = 777777777777K 005 LM00015
00021 -3 77777 7 77777
W'R N1 .E. FENCE 006 LM00017
00063 CLA +0 50000 0 00041 00064 SUB +0 40200 0 00021 00065 TNZ -0 10000 0 00075
PRFULL.($'R'1NO FILE NAME GIVEN.'B$) 007 LM00018
00066 TSX +0 07400 4 00012 00067 TXH +3 00000 0 00050 00070 TXH +3 00000 0 00055 00071 TXH +3 00000 0 00054
00072 TXH +3 00000 0 00053 00073 TXH +3 00000 0 00051
EXITM. 008 LM00019
00074 TSX +0 07400 4 00004
E'L 009 LM00020
GETBUF.(B1,432) 010 LM00021
00075 TSX +0 07400 4 00006 00076 TXH +3 00000 0 00016 00077 TXH +3 00000 0 00047
GETBUF.(B2,432) 011 LM00022
00100 TSX +0 07400 4 00006 00101 TXH +3 00000 0 00017 00102 TXH +3 00000 0 00047
GETBUF.(B3,432) 012 LM00023
00103 TSX +0 07400 4 00006 00104 TXH +3 00000 0 00020 00105 TXH +3 00000 0 00047
DELETE.(N1,N2,1,IOERR) 013 LM00024
00106 TSX +0 07400 4 00003 00107 TXH +3 00000 0 00041 00110 TXH +3 00000 0 00042 00111 TXH +3 00000 0 00043
00112 TXH +3 00000 0 00014
BFOPEN.($W$,N1,N2,B1(B1+432),B2(B2+432),B3(B3+432),IOERR) 014 LM00025
00113 CLA +0 50000 0 00020 00114 ADD +0 40000 0 00047 00115 SUB +0 40200 0 00116 00116 TXH +3 00000 0 00020
00117 STA +0 62100 0 00140 00120 CLA +0 50000 0 00017 00121 ADD +0 40000 0 00047 00122 SUB +0 40200 0 00123
00123 TXH +3 00000 0 00017 00124 STA +0 62100 0 00137 00125 CLA +0 50000 0 00016 00126 ADD +0 40000 0 00047
00127 SUB +0 40200 0 00130 00130 TXH +3 00000 0 00016 00131 STA +0 62100 0 00136 00132 TSX +0 07400 4 00000
00133 TXH +3 00000 0 00056 00134 TXH +3 00000 0 00041 00135 TXH +3 00000 0 00042 00136 TXH +3 00000 0 00000
00137 TXH +3 00000 0 00000 00140 TXH +3 00000 0 00000 00141 TXH +3 00000 0 00014
BFWRIT.(N1,N2,LINE1(2)...2,IOERR) 015 LM00029
00142 TSX +0 07400 4 00001 00143 TXH +3 00000 0 00041 00144 TXH +3 00000 0 00042 00145 TIX +2 00044 0 00023
00146 TXH +3 00000 0 00014
V'S LINE1(2) = 777777000001K 016 LM00030
00023 -3 77777 0 00001
V'S LINE1(1) = 724546434542K 017 LM00031
00024 -3 24546 4 34542
T'H LOOP1, FOR I = 1,1,COMARG.(I,ARG).E.FENCE 018 LM00035
00147 CLA +0 50000 0 00043 00150 STO +0 60100 0 00022 00151 TRA +0 02000 0 00155 00152 CLA +0 50000 0 00022
00153 ADD +0 40000 0 00043 00154 STO +0 60100 0 00022 00155 TSX +0 07400 4 00002 00156 TXH +3 00000 0 00022
00157 TXH +3 00000 0 00015 00160 SUB +0 40200 0 00021 00161 TZE +0 10000 0 00173
LINE2 = LJUST.(ARG) 019 LM00036
00162 TSX +0 07400 4 00010 00163 TXH +3 00000 0 00015 00164 STO +0 60100 0 00031
BFWRIT.(N1,N2,LINE2(3)...4,IOERR) 020 LM00037
00165 TSX +0 07400 4 00001 00166 TXH +3 00000 0 00041 00167 TXH +3 00000 0 00042 00170 TIX +2 00045 0 00026
00171 TXH +3 00000 0 00014
V'S LINE2(3) = 777777000003K 021 LM00038
00026 -3 77777 0 00003
V'S LINE2(2) = 722545635170K 022 LM00039
00027 -3 22545 6 35170
V'S LINE2(1) = 725757575757K 023 LM00040
00030 -3 25757 5 75757
LOOP1 CONTINUE 024 LM00041
00172 TRA +0 02000 0 00152
T'H LOOP2, FOR I = 1,1,COMARG.(I,ARG).E.FENCE 025 LM00045
00173 CLA +0 50000 0 00043 00174 STO +0 60100 0 00022 00175 TRA +0 02000 0 00201 00176 CLA +0 50000 0 00022
00177 ADD +0 40000 0 00043 00200 STO +0 60100 0 00022 00201 TSX +0 07400 4 00002 00202 TXH +3 00000 0 00022
00203 TXH +3 00000 0 00015 00204 SUB +0 40200 0 00021 00205 TZE +0 10000 0 00222
LINE3(3) = LJUST.(ARG) 026 LM00046
00206 TSX +0 07400 4 00010 00207 TXH +3 00000 0 00015 00210 STO +0 60100 0 00033
LINE3 = LJUST.(ARG) 027 LM00047
00211 TSX +0 07400 4 00010 00212 TXH +3 00000 0 00015 00213 STO +0 60100 0 00036
V'S LINE3(4) = 777777000004K 028 LM00048
00032 -3 77777 0 00004
V'S LINE3(2) = 726331217257K 029 LM00049
00034 -3 26331 2 17257
V'S LINE3(1) = 575757571330K 030 LM00050
00035 -1 75757 5 71330
BFWRIT.(N1,N2,LINE3(4)...5,IOERR) 031 LM00051
00214 TSX +0 07400 4 00001 00215 TXH +3 00000 0 00041 00216 TXH +3 00000 0 00042 00217 TIX +2 00046 0 00032
00220 TXH +3 00000 0 00014
LOOP2 CONTINUE 032 LM00052
00221 TRA +0 02000 0 00176
BFWRIT.(N1,N2,LINE4(1)...2,IOERR) 033 LM00056
00222 TSX +0 07400 4 00001 00223 TXH +3 00000 0 00041 00224 TXH +3 00000 0 00042 00225 TIX +2 00044 0 00037
00226 TXH +3 00000 0 00014
V'S LINE4(1) = 777777000001K 034 LM00057
00037 -3 77777 0 00001
V'S LINE4 = 722545245757K 035 LM00058
00040 -3 22545 2 45757
EXITM. 036 LM00062
00227 TSX +0 07400 4 00004
IOERR PRDIAG. 037 LM00063
00230 TSX +0 07400 4 00011
EXITM. 038 LM00064
00231 TSX +0 07400 4 00004
E'M 039 LM00066
00232 TSX +0 07400 4 00005
TRACK BCD 10/12/70 1510.5 21563 00000
1 MAD PROGRAM LISTING ... ... ... FILE TRACK MAD 04/29/70 1005.8
-
PROGRAM TO MAP BAD DISK TRACKS BY HEAD AND LM00001
CYLINDER, WITH CUMULATIVE RESULTS MAINTAINED LM00002
IN PERMANENT FILES. LM00003
LM00004
NORMAL MODE IS INTEGER *001 LM00005
BOOLEAN RQSW, INPSW, ONSW, HRQSW *002 LM00006
STATEMENT LABEL TTB, X *003 LM00007
FUNCTION NAME F *004 LM00008
LM00009
DIMENSION C(5), MTX(10000, MDIM), DATE(3), CYLTMP(40) *005 LM00010
EQUIVALENCE (TIME, DATE(3)) *006 LM00011
VECTOR VALUES MDIM = 2, 42, 40 *007 LM00012
LM00013
VECTOR VALUES CTB = $MODIFY$,$ M$,$ RESET$,$ R$, *008 LM00014
1 $ PRINT$,$ P$,$ QUIT$,$ Q$,$ HELP$,$ H$, *008 LM00015
2 777777777777K *008 LM00016
VECTOR VALUES TTB = BEGIN, MODIFY, BEGIN, RESET, BEGIN, PRINT, *009 LM00017
1 QUIT, QUIT, HELP, HELP *009 LM00018
VECTOR VALUES HTB = 7K, 7K, 7K, 7K, 3K, 3K, 0K, 0K, 10K, 10K, 20K *010 LM00019
LM00020
VECTOR VALUES FENCE = 777777777777K *011 LM00021
VECTOR VALUES LMAX = 50 *012 LM00022
LM00023
..PROGRAM LM00024
LM00025
SETERR.(OUTPER) *013 LM00026
FERRTN.(PRDIAG.) *014 LM00027
SETBRK.(INTRPT) *015 LM00028
RCOUPX.(DONE) *016 LM00029
PRFIL.(COMARG.(0)) *017 LM00030
LM00031
L0 THROUGH L0, FOR I = 0, 1, I.G.5 .OR. COMARG.(I+1,C(I)) .E. FENCE *018 LM00032
WHENEVER I .E. 0 *019 LM00033
RQSW = 1B *020 LM00034
TRANSFER TO DONE *021 LM00035
OTHERWISE *022 LM00036
TRANSFER TO LOOKUP *023 LM00037
END OF CONDITIONAL *024 LM00038
LM00039
READ RDCOM.(C(0)...6) *025 LM00040
LM00041
FTIME.(GTDYTM.(0),DATE(1),TIME) *026 LM00042
DATE(2) = DATE(1) .LS. 24 .V. $00 $ *027 LM00043
DATE(1) = DATE(1) .A. 7777K8 .V. DATE(1) .RS. 6 .A. 7777K2 *028 LM00044
1 .V. $00/00/$ *028 LM00045
LM00046
LM00047
LOOKUP THROUGH L1, FOR I = 0, 1, CTB(I).E.FENCE *029 LM00048
WHENEVER C .E. CTB(I) *030 LM00049
X = TTB((I/2)*2+1) *031 LM00050
TRANSFER TO TTB((I/2)*2) *032 LM00051
END OF CONDITIONAL *033 LM00052
L1 CONTINUE *034 LM00053
PRFULL.($'R'X$,BZ57.(C),$'B'L IS NOT A VALID REQUEST.$) *035 LM00054
TRANSFER TO DONE *036 LM00055
LM00056
BEGIN WHENEVER C(1) .E. FENCE *037 LM00057
WHENEVER N1 .V. N2 .E. 0 *038 LM00058
TRANSFER TO NOFILE *039 LM00059
OTHERWISE *040 LM00060
TRANSFER TO X *041 LM00061
END OF CONDITIONAL *042 LM00062
OR WHENEVER C(2) .E. FENCE *043 LM00063
NOFILE C(1) = C(0) *044 LM00064
TRANSFER TO HELP *045 LM00065
END OF CONDITIONAL *046 LM00066
C(1) = (C(1) .A. 1) .V. $ ACC 0$ *047 LM00067
C(2) = (C(2) .A. 7) .V. $ MOD 0$ *048 LM00068
WHENEVER C(1) .E. $ ACC 0$ .AND. C(2) .E. $ MOD 2$ *049 LM00069
N = 400 *050 LM00070
OTHERWISE *051 LM00071
N = 10000 *052 LM00072
END OF CONDITIONAL *053 LM00073
WHENEVER C(1) .NE. N1 .OR. C(2) .NE. N2 *054 LM00074
WHENEVER N1 .V. N2 .NE. 0 *055 LM00075
CLOSE.(N1, N2) *056 LM00076
N1 = 0 *057 LM00077
N2 = 0 *058 LM00078
END OF CONDITIONAL *059 LM00079
WHENEVER C(1) .V. C(2) .NE. 0 *060 LM00080
OPEN.($RW$, C(1), C(2), 100K, 2, OPNERR) *061 LM00081
N1 = C(1) *062 LM00082
N2 = C(2) *063 LM00083
RDWAIT.(N1, N2, 1, MTX(N)...N, RDEOF., T) *064 LM00084
END OF CONDITIONAL *065 LM00085
END OF CONDITIONAL *066 LM00086
TRANSFER TO X *067 LM00087
LM00088
LM00089
MODIFY F = ADD. *068 LM00090
TRANSFER TO CHG *069 LM00091
LM00092
RESET F = REP. *070 LM00093
LM00094
CHG WHENEVER C(3) .E. FENCE *071 LM00095
INPSW = 1B *072 LM00096
PRFULA.($'R'UT'LYPE.'*'B'9$) *073 LM00097
INPUT RDCOM.(C(3)...3) *074 LM00098
END OF CONDITIONAL *075 LM00099
WHENEVER C(3) .E. $ *$ *076 LM00100
INPSW = 0B *077 LM00101
OR WHENEVER C(3) .E. FENCE *078 LM00102
TRANSFER TO INPUT *079 LM00103
OTHERWISE *080 LM00104
TRK = BCDEC.(C(3)) *081 LM00105
WHENEVER TRK .G. N - 1 *082 LM00106
PRFULA.($'R'UI'LLLEGAL TRACK NO: 'X$,C(3),$'*'B'9$) *083 LM00107
OTHERWISE *084 LM00108
WHENEVER C(4) .E. FENCE *085 LM00109
ERR = 1 *086 LM00110
OTHERWISE *087 LM00111
ERR = BCDEC.(C(4)) *088 LM00112
END OF CONDITIONAL *089 LM00113
F(0).(MTX(TRK+1), ERR) *090 LM00114
END OF CONDITIONAL *091 LM00115
END OF CONDITIONAL *092 LM00116
WHENEVER INPSW, TRANSFER TO INPUT *093 LM00117
WRWAIT.(N1, N2, 1, MTX(N)...N, WREOF., T) *094 LM00118
TRANSFER TO DONE *095 LM00119
LM00120
PRINT WHENEVER C(3) .E. $ONLINE$ .OR. C(3) .E. $ ON$ *096 LM00121
ONSW = 1B *097 LM00122
OR WHENEVER C(3) .E. $FFLINE$ .OR. C(3) .E. $ OFF$ *098 LM00123
ONSW = 0B *099 LM00124
OR WHENEVER C(3) .E. FENCE *100 LM00125
CONTINUE *101 LM00126
OTHERWISE *102 LM00127
TRK = BCDEC.(C(3)) *103 LM00128
WHENEVER TRK .G. N - 1 *104 LM00129
PRFULA.($'R'UI'LLLEGAL TRACK NO: 'X$,C(3),$'*'B'9$) *105 LM00130
TRANSFER TO DONE *106 LM00131
END OF CONDITIONAL *107 LM00132
WHENEVER MTX(TRK+1) .E. 1 *108 LM00133
S = $'8$ *109 LM00134
OTHERWISE *110 LM00135
S = $S'8$ *111 LM00136
END OF CONDITIONAL *112 LM00137
PRFULL.($ '8$,BZ57.(DERBC.(MTX(TRK+1))),$'L ERROR'8$, S) *113 LM00138
TRANSFER TO DONE *114 LM00139
END OF CONDITIONAL *115 LM00140
PRSET.(ONSW) *116 LM00141
PAGE = 0 *117 LM00142
LINES = LMAX *118 LM00143
LAST = 0 *119 LM00144
THROUGH L2, FOR CYL = 0, 1, CYL .GE. N/40 *120 LM00145
WHENEVER ONSW *121 LM00146
THROUGH L3, FOR HD = 0, 1, HD .G. 39 *122 LM00147
WHENEVER MTX(CYL, HD) .NE. 0 *123 LM00148
WHENEVER CYL .NE. LAST+1, PRMESS. *124 LM00149
LAST = CYL *125 LM00150
TRANSFER TO PT *126 LM00151
END OF CONDITIONAL *127 LM00152
L3 CONTINUE *128 LM00153
OTHERWISE *129 LM00154
WHENEVER LINES .E. LMAX *130 LM00155
PAGE = PAGE + 1 *131 LM00156
PRINT FORMAT HEADER, N1, N2, DATE(1)...DATE(3), PAGE *132 LM00157
LINES = 0 *133 LM00158
END OF CONDITIONAL *134 LM00159
LINES = LINES + 1 *135 LM00160
PT PRINT FORMAT LINE, CYL, (HD = 0, 1, HD .G. 39, FMT.(MTX(CYL, HD))) *136 LM00161
END OF CONDITIONAL *137 LM00162
L2 CONTINUE *138 LM00163
TRANSFER TO DONE *139 LM00164
LM00165
QUIT RQSW = 0B *140 LM00166
TRANSFER TO DONE *141 LM00167
LM00168
INTRPT WHENEVER N1 .V. N2 .NE. 0 *142 LM00169
CLOSE.(N1, N2) *143 LM00170
N1 = 0 *144 LM00171
N2 = 0 *145 LM00172
END OF CONDITIONAL *146 LM00173
TRANSFER TO DONE *147 LM00174
LM00175
HELP WHENEVER C(1) .NE. FENCE *148 LM00176
HRQSW = 1B *149 LM00177
L4 THROUGH L4, FOR I = 0, 1, C(1).E.CTB(I) .OR. CTB(I).E.FENCE *150 LM00178
TRANSFER TO H1 *151 LM00179
OTHERWISE *152 LM00180
HRQSW = 0B *153 LM00181
THROUGH L5, FOR I = 0, 2, CTB(I).E.FENCE .OR. HRQSW *154 LM00182
C(1) = CTB(I) *155 LM00183
H1 PRFULA.($'U'X$,BZ57.(C(1))) *156 LM00184
WHENEVER HTB(I) .A. 1K .E. 1K, PRFULA.($'L ACC MOD'8$) *157 LM00185
WHENEVER HTB(I) .A. 2K .E. 2K, PRFULA.($'L -TRK-'8$) *158 LM00186
WHENEVER HTB(I) .A. 4K .E. 4K, PRFULA.($'L -N-'8$) *159 LM00187
WHENEVER HTB(I) .A. 10K .E. 10K, PRFULA.($'L FUNCTION'8$) *160 LM00188
WHENEVER HTB(I) .A. 20K .E. 20K, PRFULA.($'L UNKNOWN'8$) *161 LM00189
PRFULL. *162 LM00190
L5 CONTINUE *163 LM00191
END OF CONDITIONAL *164 LM00192
LM00193
LM00194
DONE WHENEVER RQSW *165 LM00195
PRFULL.($'UR'LEADY.'*$) *166 LM00196
TRANSFER TO READ *167 LM00197
OTHERWISE *168 LM00198
WHENEVER N1 .V. N2 .NE. 0 *169 LM00199
CLOSE.(N1, N2) *170 LM00200
END OF CONDITIONAL *171 LM00201
PRSET.(1) *172 LM00202
PRMESS.($*$) *173 LM00203
CHNCOM.(0) *174 LM00204
END OF CONDITIONAL *175 LM00205
LM00206
OPNERR PRDIAG. *176 LM00207
TRANSFER TO DONE *177 LM00208
LM00209
OUTPER PRDIAG. *178 LM00210
PRSET.(1) *179 LM00211
TRANSFER TO DONE *180 LM00212
LM00213
LM00214
VECTOR VALUES HEADER = $23H1DISK MAP OF I/O ERRORS, T52, 7HACCESS ,$, *181 LM00215
1 $RC1, 11H MODULE , RC1, T100, 3C6, 9H PAGE , I2/$, *181 LM00216
2 $4H0CYL, S62, 4HHEAD/S8,$, *181 LM00217
3 $30H 00 01 02 03 04 05 06 07 08 09,$, *181 LM00218
4 $30H 10 11 12 13 14 15 16 17 18 19,$, *181 LM00219
5 $30H 20 21 22 23 24 25 26 27 28 29,$, *181 LM00220
6 $30H 30 31 32 33 34 35 36 37 38 39/*$ *181 LM00221
VECTOR VALUES LINE = $S1, I3, S4, 40RC3*$ *182 LM00222
LM00223
LM00224
INTERNAL FUNCTION (A, B) *183 LM00225
ENTRY TO ADD. *184 LM00226
A = A + B *185 LM00227
FUNCTION RETURN *186 LM00228
ENTRY TO REP. *187 LM00229
A = B *188 LM00230
FUNCTION RETURN *189 LM00231
END OF FUNCTION *190 LM00232
LM00233
INTERNAL FUNCTION (A) *191 LM00234
ENTRY TO FMT. *192 LM00235
T = BZEL.(DERBC.(A)) *193 LM00236
WHENEVER T .E. $ 0$, T = $ .$ *194 LM00237
FUNCTION RETURN T *195 LM00238
END OF FUNCTION *196 LM00239
LM00240
END OF PROGRAM *197 LM00241
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 25256 TRANSFER VECTOR LENGTH 00035 PROGRAM BEGINS 24040
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BEGIN 00045 4 H1 00050 4 L1 00040 4 MODIFY 00055 4 PT 00062 4
CHG 00046 4 HD 00177 1 L2 00040 4 MTX 23724 A 1 QUIT 00063 4
C 00106 A 1 HEADER 00254 A 1 L3 00040 4 N1 23725 1 READ 00064 4
CTB 00121 A 1 HELP 00051 4 L4 00040 4 N2 23726 1 RESET 00065 4
CYL 00122 1 HRQSW 00255 2 L5 00040 4 NOFILE 00056 4 RQSW 23732 2
CYLTMP 00173 A 1 HTB 00270 A 1 LAST 00273 1 N 23727 1 S 23733 1
DATE 00044 A 1 INPSW 00271 2 LINE 00276 A 1 ONSW 23730 2 TIME 00041 1
DONE 00047 4 INPUT 00052 4 LINES 00277 1 OPNERR 00057 4 TRK 23734 1
ERR 00174 1 INTRPT 00053 4 LMAX 00300 A 1 OUTPER 00060 4 T 23735 1
FENCE 00175 A 1 I 00272 1 LOOKUP 00054 4 PAGE 23731 1 TTB 00077 A 4
F 00176 3 L0 00040 4 MDIM 00303 A 1 PRINT 00061 4 X 00100 4
0FUNCTION DICTIONARY
.03311 00000 0 BCDEC 00001 1 BZ57 00002 1 BZEL 00003 1 CHNCOM 00004 1
CLOSE 00005 1 COMARG 00006 1 DERBC 00007 1 EXIT 00010 1 FERRTN 00011 1
FTIME 00012 1 GTDYTM 00013 1 .PRINT 00014 1 .SETUP 00015 1 OPEN 00016 1
PRDIAG 00017 1 PRFIL 00020 1 PRFULA 00021 1 PRFULL 00022 1 PRMESS 00023 1
PRSET 00024 1 RCOUPX 00025 1 RDCOM 00026 1 RDEOF 00027 1 RDWAIT 00030 1
SETBRK 00031 1 SETERR 00032 1 WREOF 00033 1 WRWAIT 00034 1 ADD 00035 1
FMT 00036 1 REP 00037 1
0ABSOLUTE CONSTANTS
24033 -206060606033 24032 -206060606000 24022 -146060606060 24001 +212470331454 23777 +146451144325
24015 -054666451410 23771 +144360644542 23747 +000000000020 23761 +106060606060 24004 +236331464514
23766 +144360266445 23746 +000000000010 23767 +144360404540 23742 +000000000004 24010 -024014106060
23770 +144360406351 24025 -204446241410 23764 +144360212323 23776 +146414676060 23751 +000000000047
23752 +000000000050 24017 -065114106060 23765 +144360255151 24023 -201410606060 24035 -221410606060
23762 +141060606060 24007 +262643314525 24030 -206060462626 24016 -064543314525 24031 -206060604645
23775 +145414221411 24000 +146760606060 24011 -026045463560 24013 -036063512123 24012 -034343252721
23772 +145114643114 24034 -206060606054 23741 +000000000003 24021 -141422141160 24014 -037047253314
23773 +145114646314 23753 +000000000100 24020 -116660606060 23755 +000000023420 23754 +000000000620
24027 -204446246002 24026 -204446246000 23745 +000000000007 24024 -202123236000 24006 +256263336060
24005 +246051255064 24002 +216065214331 24036 -226045466360 23763 +142214436031 23774 +145114676060
23740 +000000000002 23760 +000061000061 24037 -377700000000 23756 +000000777700 23757 +000060606060
23750 +000000000030 23744 +000000000006 23743 +000000000005 23736 +000000000000 23737 +000000000001
24003 +233000000000
0STATEMENT DICTIONARY
00045 TXL -324227024224 00046 TXL -324362024357 00047 TXL -325125025123 00050 TXL -325036025030
00051 TXL -324764024761 00052 TXL -324372024370 00053 TXL -324751024743 00054 TXL -324161024147
00055 TXL -324354024352 00056 TXL -324246024244 00057 TXL -325152025151 00060 TXL -325154025153
00061 TXL -324475024467 00062 TXL -324736024704 00063 TXL -324742024740 00064 TXL -324117024115
00065 TXL -324357024355
0PROGRAM
N'R 001 LM00005
B'N RQSW, INPSW, ONSW, HRQSW 002 LM00006
S'L TTB, X 003 LM00007
FUNCTION NAME F 004 LM00008
D'N C(5), MTX(10000, MDIM), DATE(3), CYLTMP(40) 005 LM00010
E'E (TIME, DATE(3)) 006 LM00011
V'S MDIM = 2, 42, 40 007 LM00012
24040 TSX +0 07400 4 00015 00301 +0 00000 0 00050 00302 +0 00000 0 00052 00303 +0 00000 0 00002
V'S CTB = $MODIFY$,$ M$,$ RESET$,$ R$, 008 LM00014
1 $ PRINT$,$ P$,$ QUIT$,$ Q$,$ HELP$,$ H$, 008 LM00015
2 777777777777K 008 LM00016
00107 -3 77777 7 77777 00110 -2 06060 6 06030 00111 -2 06030 2 54347 00112 -2 06060 6 06050
00113 -2 06050 6 43163 00114 -2 06060 6 06047 00115 -2 04751 3 14563 00116 -2 06060 6 06051
00117 -2 05125 6 22563 00120 -2 06060 6 06044 00121 -0 44624 3 12670
V'S TTB = BEGIN, MODIFY, BEGIN, RESET, BEGIN, PRINT, 009 LM00017
1 QUIT, QUIT, HELP, HELP 009 LM00018
00066 TXL -3 00000 0 00051 00067 TXL -3 00000 0 00051 00070 TXL -3 00000 0 00063 00071 TXL -3 00000 0 00063
00072 TXL -3 00000 0 00061 00073 TXL -3 00000 0 00045 00074 TXL -3 00000 0 00065 00075 TXL -3 00000 0 00045
00076 TXL -3 00000 0 00055 00077 TXL -3 00000 0 00045
V'S HTB = 7K, 7K, 7K, 7K, 3K, 3K, 0K, 0K, 10K, 10K, 20K 010 LM00019
00256 +0 00000 0 00020 00257 +0 00000 0 00010 00260 +0 00000 0 00010 00261 +0 00000 0 00000
00262 +0 00000 0 00000 00263 +0 00000 0 00003 00264 +0 00000 0 00003 00265 +0 00000 0 00007
00266 +0 00000 0 00007 00267 +0 00000 0 00007 00270 +0 00000 0 00007
V'S FENCE = 777777777777K 011 LM00021
00175 -3 77777 7 77777
V'S LMAX = 50 012 LM00022
00300 +0 00000 0 00062
SETERR.(OUTPER) 013 LM00026
24041 TSX +0 07400 4 00032 24042 TXH +3 00000 0 00060
FERRTN.(PRDIAG.) 014 LM00027
24043 TSX +0 07400 4 00011 24044 TXH +3 00000 0 00017
SETBRK.(INTRPT) 015 LM00028
24045 TSX +0 07400 4 00031 24046 TXH +3 00000 0 00053
RCOUPX.(DONE) 016 LM00029
24047 TSX +0 07400 4 00025 24050 TXH +3 00000 0 00047
PRFIL.(COMARG.(0)) 017 LM00030
24051 TSX +0 07400 4 00006 24052 TXH +3 00000 0 23736 24053 STO +0 60100 0 25253 24054 TSX +0 07400 4 00020
24055 TXH +3 00000 0 25253
L0 T'H L0, FOR I = 0, 1, I.G.5 .OR. COMARG.(I+1,C(I)) .E. FENCE 018 LM00032
24056 CLA +0 50000 0 23736 24057 STO +0 60100 0 00272 24060 TRA +0 02000 0 24064 24061 CLA +0 50000 0 00272
24062 ADD +0 40000 0 23737 24063 STO +0 60100 0 00272 24064 CLA +0 50000 0 00272 24065 SUB +0 40200 0 24066
24066 TXH +3 00000 0 00106 24067 STA +0 62100 0 24075 24070 CLA +0 50000 0 00272 24071 ADD +0 40000 0 23737
24072 STO +0 60100 0 25253 24073 TSX +0 07400 4 00006 24074 TXH +3 00000 0 25253 24075 TXH +3 00000 0 00000
24076 SUB +0 40200 0 00175 24077 TZE +0 10000 0 24105 24100 CLA +0 50000 0 00272 24101 SUB +0 40200 0 23743
24102 TZE +0 10000 0 24104 24103 TPL +0 12000 0 24105 24104 TRA +0 02000 0 24061
W'R I .E. 0 019 LM00033
24105 CLA +0 50000 0 00272 24106 SUB +0 40200 0 23736 24107 TNZ -0 10000 0 24114
RQSW = 1B 020 LM00034
24110 CLA +0 50000 0 23737 24111 STO +0 60100 0 23732
T'O DONE 021 LM00035
24112 TRA +0 02000 0 00047
O'E 022 LM00036
24113 TRA +0 02000 0 24115
T'O LOOKUP 023 LM00037
24114 TRA +0 02000 0 00054
E'L 024 LM00038
READ RDCOM.(C(0)...6) 025 LM00040
24115 TSX +0 07400 4 00026 24116 TIX +2 23744 0 00106
FTIME.(GTDYTM.(0),DATE(1),TIME) 026 LM00042
24117 TSX +0 07400 4 00013 24120 TXH +3 00000 0 23736 24121 STO +0 60100 0 25253 24122 TSX +0 07400 4 00012
24123 TXH +3 00000 0 25253 24124 TXH +3 00000 0 00043 24125 TXH +3 00000 0 00041
DATE(2) = DATE(1) .LS. 24 .V. $00 $ 027 LM00043
24126 CAL -0 50000 0 23750 24127 STA +0 62100 0 24131 24130 CAL -0 50000 0 00043 24131 ALS +0 76700 0 00000
24132 ORA -0 50100 0 23757 24133 SLW +0 60200 0 00042
DATE(1) = DATE(1) .A. 7777K8 .V. DATE(1) .RS. 6 .A. 7777K2 028 LM00044
1 .V. $00/00/$ 028 LM00045
24134 CAL -0 50000 0 23744 24135 STA +0 62100 0 24137 24136 CAL -0 50000 0 00043 24137 LGR -0 76500 0 00000
24140 ANA -0 32000 0 23756 24141 SLW +0 60200 0 25253 24142 CAL -0 50000 0 00043 24143 ANA -0 32000 0 24037
24144 ORA -0 50100 0 25253 24145 ORA -0 50100 0 23760 24146 SLW +0 60200 0 00043
LOOKUP T'H L1, FOR I = 0, 1, CTB(I).E.FENCE 029 LM00048
24147 CLA +0 50000 0 23736 24150 STO +0 60100 0 00272 24151 TRA +0 02000 0 24155 24152 CLA +0 50000 0 00272
24153 ADD +0 40000 0 23737 24154 STO +0 60100 0 00272 24155 LXA +0 53400 1 00272 24156 CLA +0 50000 1 00121
24157 SUB +0 40200 0 00175 24160 TZE +0 10000 0 24210
W'R C .E. CTB(I) 030 LM00049
24161 LXA +0 53400 2 00272 24162 CLA +0 50000 0 00106 24163 SUB +0 40200 2 00121 24164 TNZ -0 10000 0 24207
X = TTB((I/2)*2+1) 031 LM00050
24165 LDQ +0 56000 0 00272 24166 PXD -0 75400 0 00000 24167 LLS +0 76300 0 00000 24170 DVP +0 22100 0 23740
24171 MPY +0 20000 0 23740 24172 XCA +0 13100 0 00000 24173 ADD +0 40000 0 23737 24174 PAX +0 73400 2 00000
24175 CLA +0 50000 2 00077 24176 STO +0 60100 0 00100
T'O TTB((I/2)*2) 032 LM00051
24177 LDQ +0 56000 0 00272 24200 PXD -0 75400 0 00000 24201 LLS +0 76300 0 00000 24202 DVP +0 22100 0 23740
24203 MPY +0 20000 0 23740 24204 XCA +0 13100 0 00000 24205 PAX +0 73400 2 00000 24206 TRA +0 02000 2 00077
E'L 033 LM00052
L1 C'E 034 LM00053
24207 TRA +0 02000 0 24152
PRFULL.($'R'X$,BZ57.(C),$'B'L IS NOT A VALID REQUEST.$) 035 LM00054
24210 TSX +0 07400 4 00002 24211 TXH +3 00000 0 00106 24212 STO +0 60100 0 25253 24213 TSX +0 07400 4 00022
24214 TXH +3 00000 0 23774 24215 TXH +3 00000 0 25253 24216 TXH +3 00000 0 23763 24217 TXH +3 00000 0 24036
24220 TXH +3 00000 0 24002 24221 TXH +3 00000 0 24005 24222 TXH +3 00000 0 24006
T'O DONE 036 LM00055
24223 TRA +0 02000 0 00047
BEGIN W'R C(1) .E. FENCE 037 LM00057
24224 CLA +0 50000 0 00105 24225 SUB +0 40200 0 00175 24226 TNZ -0 10000 0 24241
W'R N1 .V. N2 .E. 0 038 LM00058
24227 CAL -0 50000 0 23725 24230 ORA -0 50100 0 23726 24231 SLW +0 60200 0 25253 24232 CLA +0 50000 0 25253
24233 SUB +0 40200 0 23736 24234 TNZ -0 10000 0 24237
T'O NOFILE 039 LM00059
24235 TRA +0 02000 0 00056
O'E 040 LM00060
24236 TRA +0 02000 0 24240
T'O X 041 LM00061
24237 TRA +0 02000 0 00100
E'L 042 LM00062
O'R C(2) .E. FENCE 043 LM00063
24240 TRA +0 02000 0 24247 24241 CLA +0 50000 0 00104 24242 SUB +0 40200 0 00175 24243 TNZ -0 10000 0 24247
NOFILE C(1) = C(0) 044 LM00064
24244 CLA +0 50000 0 00106 24245 STO +0 60100 0 00105
T'O HELP 045 LM00065
24246 TRA +0 02000 0 00051
E'L 046 LM00066
C(1) = (C(1) .A. 1) .V. $ ACC 0$ 047 LM00067
24247 CAL -0 50000 0 00105 24250 ANA -0 32000 0 23737 24251 ORA -0 50100 0 24024 24252 SLW +0 60200 0 00105
C(2) = (C(2) .A. 7) .V. $ MOD 0$ 048 LM00068
24253 CAL -0 50000 0 00104 24254 ANA -0 32000 0 23745 24255 ORA -0 50100 0 24026 24256 SLW +0 60200 0 00104
W'R C(1) .E. $ ACC 0$ .AND. C(2) .E. $ MOD 2$ 049 LM00069
24257 CLA +0 50000 0 00104 24260 SUB +0 40200 0 24027 24261 TNZ -0 10000 0 24270 24262 CLA +0 50000 0 00105
24263 SUB +0 40200 0 24024 24264 TNZ -0 10000 0 24270
N = 400 050 LM00070
24265 CLA +0 50000 0 23754 24266 STO +0 60100 0 23727
O'E 051 LM00071
24267 TRA +0 02000 0 24272
N = 10000 052 LM00072
24270 CLA +0 50000 0 23755 24271 STO +0 60100 0 23727
E'L 053 LM00073
W'R C(1) .NE. N1 .OR. C(2) .NE. N2 054 LM00074
24272 CLA +0 50000 0 00104 24273 SUB +0 40200 0 23726 24274 TNZ -0 10000 0 24300 24275 CLA +0 50000 0 00105
24276 SUB +0 40200 0 23725 24277 TZE +0 10000 0 24351
W'R N1 .V. N2 .NE. 0 055 LM00075
24300 CAL -0 50000 0 23725 24301 ORA -0 50100 0 23726 24302 SLW +0 60200 0 25253 24303 CLA +0 50000 0 25253
24304 SUB +0 40200 0 23736 24305 TZE +0 10000 0 24315
CLOSE.(N1, N2) 056 LM00076
24306 TSX +0 07400 4 00005 24307 TXH +3 00000 0 23725 24310 TXH +3 00000 0 23726
N1 = 0 057 LM00077
24311 CLA +0 50000 0 23736 24312 STO +0 60100 0 23725
N2 = 0 058 LM00078
24313 CLA +0 50000 0 23736 24314 STO +0 60100 0 23726
E'L 059 LM00079
W'R C(1) .V. C(2) .NE. 0 060 LM00080
24315 CAL -0 50000 0 00105 24316 ORA -0 50100 0 00104 24317 SLW +0 60200 0 25253 24320 CLA +0 50000 0 25253
24321 SUB +0 40200 0 23736 24322 TZE +0 10000 0 24351
OPEN.($RW$, C(1), C(2), 100K, 2, OPNERR) 061 LM00081
24323 TSX +0 07400 4 00016 24324 TXH +3 00000 0 24020 24325 TXH +3 00000 0 00105 24326 TXH +3 00000 0 00104
24327 TXH +3 00000 0 23753 24330 TXH +3 00000 0 23740 24331 TXH +3 00000 0 00057
N1 = C(1) 062 LM00082
24332 CLA +0 50000 0 00105 24333 STO +0 60100 0 23725
N2 = C(2) 063 LM00083
24334 CLA +0 50000 0 00104 24335 STO +0 60100 0 23726
RDWAIT.(N1, N2, 1, MTX(N)...N, RDEOF., T) 064 LM00084
24336 CLA +0 50000 0 23727 24337 SUB +0 40200 0 24340 24340 TXH +3 00000 0 23724 24341 STA +0 62100 0 24346
24342 TSX +0 07400 4 00030 24343 TXH +3 00000 0 23725 24344 TXH +3 00000 0 23726 24345 TXH +3 00000 0 23737
24346 TIX +2 23727 0 00000 24347 TXH +3 00000 0 00027 24350 TXH +3 00000 0 23735
E'L 065 LM00085
E'L 066 LM00086
T'O X 067 LM00087
24351 TRA +0 02000 0 00100
MODIFY F = ADD. 068 LM00090
24352 CLA +0 50000 0 00035 24353 STO +0 60100 0 00176
T'O CHG 069 LM00091
24354 TRA +0 02000 0 00046
RESET F = REP. 070 LM00093
24355 CLA +0 50000 0 00037 24356 STO +0 60100 0 00176
CHG W'R C(3) .E. FENCE 071 LM00095
24357 CLA +0 50000 0 00103 24360 SUB +0 40200 0 00175 24361 TNZ -0 10000 0 24372
INPSW = 1B 072 LM00096
24362 CLA +0 50000 0 23737 24363 STO +0 60100 0 00271
PRFULA.($'R'UT'LYPE.'*'B'9$) 073 LM00097
24364 TSX +0 07400 4 00021 24365 TXH +3 00000 0 23773 24366 TXH +3 00000 0 24014 24367 TXH +3 00000 0 24021
INPUT RDCOM.(C(3)...3) 074 LM00098
24370 TSX +0 07400 4 00026 24371 TIX +2 23741 0 00103
E'L 075 LM00099
W'R C(3) .E. $ *$ 076 LM00100
24372 CLA +0 50000 0 00103 24373 SUB +0 40200 0 24034 24374 TNZ -0 10000 0 24400
INPSW = 0B 077 LM00101
24375 CLA +0 50000 0 23736 24376 STO +0 60100 0 00271
O'R C(3) .E. FENCE 078 LM00102
24377 TRA +0 02000 0 24450 24400 CLA +0 50000 0 00103 24401 SUB +0 40200 0 00175 24402 TNZ -0 10000 0 24405
T'O INPUT 079 LM00103
24403 TRA +0 02000 0 00052
O'E 080 LM00104
24404 TRA +0 02000 0 24450
TRK = BCDEC.(C(3)) 081 LM00105
24405 TSX +0 07400 4 00001 24406 TXH +3 00000 0 00103 24407 STO +0 60100 0 23734
W'R TRK .G. N - 1 082 LM00106
24410 CLA +0 50000 0 23727 24411 SUB +0 40200 0 23737 24412 CHS +0 76000 0 00002 24413 ADD +0 40000 0 23734
24414 TZE +0 10000 0 24427 24415 TMI -0 12000 0 24427
PRFULA.($'R'UI'LLLEGAL TRACK NO: 'X$,C(3),$'*'B'9$) 083 LM00107
24416 TSX +0 07400 4 00021 24417 TXH +3 00000 0 23772 24420 TXH +3 00000 0 24012 24421 TXH +3 00000 0 24013
24422 TXH +3 00000 0 24011 24423 TXH +3 00000 0 24000 24424 TXH +3 00000 0 00103 24425 TXH +3 00000 0 23775
O'E 084 LM00108
24426 TRA +0 02000 0 24450
W'R C(4) .E. FENCE 085 LM00109
24427 CLA +0 50000 0 00102 24430 SUB +0 40200 0 00175 24431 TNZ -0 10000 0 24435
ERR = 1 086 LM00110
24432 CLA +0 50000 0 23737 24433 STO +0 60100 0 00174
O'E 087 LM00111
24434 TRA +0 02000 0 24440
ERR = BCDEC.(C(4)) 088 LM00112
24435 TSX +0 07400 4 00001 24436 TXH +3 00000 0 00102 24437 STO +0 60100 0 00174
E'L 089 LM00113
F(0).(MTX(TRK+1), ERR) 090 LM00114
24440 CLA +0 50000 0 23734 24441 ADD +0 40000 0 23737 24442 SUB +0 40200 0 24443 24443 TXH +3 00000 0 23724
24444 STA +0 62100 0 24446 24445 TSX +0 07400 4 00176 24446 TXH +3 00000 0 00000 24447 TXH +3 00000 0 00174
E'L 091 LM00115
E'L 092 LM00116
W'R INPSW, T'O INPUT 093 LM00117
24450 NZT -0 52000 0 00271 24451 TRA +0 02000 0 24453 24452 TRA +0 02000 0 00052
WRWAIT.(N1, N2, 1, MTX(N)...N, WREOF., T) 094 LM00118
24453 CLA +0 50000 0 23727 24454 SUB +0 40200 0 24455 24455 TXH +3 00000 0 23724 24456 STA +0 62100 0 24463
24457 TSX +0 07400 4 00034 24460 TXH +3 00000 0 23725 24461 TXH +3 00000 0 23726 24462 TXH +3 00000 0 23737
24463 TIX +2 23727 0 00000 24464 TXH +3 00000 0 00033 24465 TXH +3 00000 0 23735
T'O DONE 095 LM00119
24466 TRA +0 02000 0 00047
PRINT W'R C(3) .E. $ONLINE$ .OR. C(3) .E. $ ON$ 096 LM00121
24467 CLA +0 50000 0 00103 24470 SUB +0 40200 0 24031 24471 TZE +0 10000 0 24475 24472 CLA +0 50000 0 00103
24473 SUB +0 40200 0 24016 24474 TNZ -0 10000 0 24500
ONSW = 1B 097 LM00122
24475 CLA +0 50000 0 23737 24476 STO +0 60100 0 23730
O'R C(3) .E. $FFLINE$ .OR. C(3) .E. $ OFF$ 098 LM00123
24477 TRA +0 02000 0 24574 24500 CLA +0 50000 0 00103 24501 SUB +0 40200 0 24030 24502 TZE +0 10000 0 24506
24503 CLA +0 50000 0 00103 24504 SUB +0 40200 0 24007 24505 TNZ -0 10000 0 24511
ONSW = 0B 099 LM00124
24506 CLA +0 50000 0 23736 24507 STO +0 60100 0 23730
O'R C(3) .E. FENCE 100 LM00125
24510 TRA +0 02000 0 24574 24511 CLA +0 50000 0 00103 24512 SUB +0 40200 0 00175 24513 TNZ -0 10000 0 24515
C'E 101 LM00126
O'E 102 LM00127
24514 TRA +0 02000 0 24574
TRK = BCDEC.(C(3)) 103 LM00128
24515 TSX +0 07400 4 00001 24516 TXH +3 00000 0 00103 24517 STO +0 60100 0 23734
W'R TRK .G. N - 1 104 LM00129
24520 CLA +0 50000 0 23727 24521 SUB +0 40200 0 23737 24522 CHS +0 76000 0 00002 24523 ADD +0 40000 0 23734
24524 TZE +0 10000 0 24537 24525 TMI -0 12000 0 24537
PRFULA.($'R'UI'LLLEGAL TRACK NO: 'X$,C(3),$'*'B'9$) 105 LM00130
24526 TSX +0 07400 4 00021 24527 TXH +3 00000 0 23772 24530 TXH +3 00000 0 24012 24531 TXH +3 00000 0 24013
24532 TXH +3 00000 0 24011 24533 TXH +3 00000 0 24000 24534 TXH +3 00000 0 00103 24535 TXH +3 00000 0 23775
T'O DONE 106 LM00131
24536 TRA +0 02000 0 00047
E'L 107 LM00132
W'R MTX(TRK+1) .E. 1 108 LM00133
24537 CLA +0 50000 0 23734 24540 ADD +0 40000 0 23737 24541 PAX +0 73400 1 00000 24542 CLA +0 50000 1 23724
24543 SUB +0 40200 0 23737 24544 TNZ -0 10000 0 24550
S = $'8$ 109 LM00134
24545 CLA +0 50000 0 23762 24546 STO +0 60100 0 23733
O'E 110 LM00135
24547 TRA +0 02000 0 24552
S = $S'8$ 111 LM00136
24550 CLA +0 50000 0 24035 24551 STO +0 60100 0 23733
E'L 112 LM00137
PRFULL.($ '8$,BZ57.(DERBC.(MTX(TRK+1))),$'L ERROR'8$, S) 113 LM00138
24552 CLA +0 50000 0 23734 24553 ADD +0 40000 0 23737 24554 SUB +0 40200 0 24555 24555 TXH +3 00000 0 23724
24556 STA +0 62100 0 24560 24557 TSX +0 07400 4 00007 24560 TXH +3 00000 0 00000 24561 STO +0 60100 0 25253
24562 TSX +0 07400 4 00002 24563 TXH +3 00000 0 25253 24564 STO +0 60100 0 25253 24565 TSX +0 07400 4 00022
24566 TXH +3 00000 0 24023 24567 TXH +3 00000 0 25253 24570 TXH +3 00000 0 23765 24571 TXH +3 00000 0 24017
24572 TXH +3 00000 0 23733
T'O DONE 114 LM00139
24573 TRA +0 02000 0 00047
E'L 115 LM00140
PRSET.(ONSW) 116 LM00141
24574 TSX +0 07400 4 00024 24575 TXH +3 00000 0 23730
PAGE = 0 117 LM00142
24576 CLA +0 50000 0 23736 24577 STO +0 60100 0 23731
LINES = LMAX 118 LM00143
24600 CLA +0 50000 0 00300 24601 STO +0 60100 0 00277
LAST = 0 119 LM00144
24602 CLA +0 50000 0 23736 24603 STO +0 60100 0 00273
T'H L2, FOR CYL = 0, 1, CYL .GE. N/40 120 LM00145
24604 CLA +0 50000 0 23736 24605 STO +0 60100 0 00122 24606 TRA +0 02000 0 24612 24607 CLA +0 50000 0 00122
24610 ADD +0 40000 0 23737 24611 STO +0 60100 0 00122 24612 LDQ +0 56000 0 23727 24613 PXD -0 75400 0 00000
24614 LLS +0 76300 0 00000 24615 DVP +0 22100 0 23752 24616 XCA +0 13100 0 00000 24617 CHS +0 76000 0 00002
24620 ADD +0 40000 0 00122 24621 TZE +0 10000 0 24737 24622 TPL +0 12000 0 24737
W'R ONSW 121 LM00146
24623 NZT -0 52000 0 23730 24624 TRA +0 02000 0 24662
T'H L3, FOR HD = 0, 1, HD .G. 39 122 LM00147
24625 CLA +0 50000 0 23736 24626 STO +0 60100 0 00177 24627 TRA +0 02000 0 24633 24630 CLA +0 50000 0 00177
24631 ADD +0 40000 0 23737 24632 STO +0 60100 0 00177 24633 CLA +0 50000 0 00177 24634 SUB +0 40200 0 23751
24635 TZE +0 10000 0 24637 24636 TPL +0 12000 0 24661
W'R MTX(CYL, HD) .NE. 0 123 LM00148
24637 LDQ +0 56000 0 00177 24640 CLA +0 50000 0 00122 24641 TSX +0 07400 4 00000 24642 TXH +3 00303 0 23724
24643 PAX +0 73400 1 00000 24644 CLA +0 50000 1 23724 24645 SUB +0 40200 0 23736 24646 TZE +0 10000 0 24660
W'R CYL .NE. LAST+1, PRMESS. 124 LM00149
24647 CLA +0 50000 0 00273 24650 ADD +0 40000 0 23737 24651 CHS +0 76000 0 00002 24652 ADD +0 40000 0 00122
24653 TZE +0 10000 0 24655 24654 TSX +0 07400 4 00023
LAST = CYL 125 LM00150
24655 CLA +0 50000 0 00122 24656 STO +0 60100 0 00273
T'O PT 126 LM00151
24657 TRA +0 02000 0 00062
E'L 127 LM00152
L3 C'E 128 LM00153
24660 TRA +0 02000 0 24630
O'E 129 LM00154
24661 TRA +0 02000 0 24736
W'R LINES .E. LMAX 130 LM00155
24662 CLA +0 50000 0 00277 24663 SUB +0 40200 0 00300 24664 TNZ -0 10000 0 24701
PAGE = PAGE + 1 131 LM00156
24665 CLA +0 50000 0 23731 24666 ADD +0 40000 0 23737 24667 STO +0 60100 0 23731
P'T HEADER, N1, N2, DATE(1)...DATE(3), PAGE 132 LM00157
24670 TSX +0 07400 4 00014 24671 STR -1 00254 1 25254 24672 STR -1 00000 0 23725 24673 STR -1 00000 0 23726
24674 STR -1 00041 0 00043 24675 STR -1 00000 0 23731 24676 STR -1 00000 0 00000
LINES = 0 133 LM00158
24677 CLA +0 50000 0 23736 24700 STO +0 60100 0 00277
E'L 134 LM00159
LINES = LINES + 1 135 LM00160
24701 CLA +0 50000 0 00277 24702 ADD +0 40000 0 23737 24703 STO +0 60100 0 00277
PT P'T LINE, CYL, (HD = 0, 1, HD .G. 39, FMT.(MTX(CYL, HD))) 136 LM00161
24704 TSX +0 07400 4 00014 24705 STR -1 00276 1 25254 24706 STR -1 00000 0 00122 24707 CLA +0 50000 0 23736
24710 STO +0 60100 0 00177 24711 TRA +0 02000 0 24715 24712 CLA +0 50000 0 00177 24713 ADD +0 40000 0 23737
24714 STO +0 60100 0 00177 24715 CLA +0 50000 0 00177 24716 SUB +0 40200 0 23751 24717 TZE +0 10000 0 24721
24720 TPL +0 12000 0 24735 24721 LDQ +0 56000 0 00177 24722 CLA +0 50000 0 00122 24723 TSX +0 07400 4 00000
24724 TXH +3 00303 0 23724 24725 SUB +0 40200 0 24726 24726 TXH +3 00000 0 23724 24727 STA +0 62100 0 24731
24730 TSX +0 07400 4 00036 24731 TXH +3 00000 0 00000 24732 STO +0 60100 0 25253 24733 STR -1 00000 0 25253
24734 TRA +0 02000 0 24712 24735 STR -1 00000 0 00000
E'L 137 LM00162
L2 C'E 138 LM00163
24736 TRA +0 02000 0 24607
T'O DONE 139 LM00164
24737 TRA +0 02000 0 00047
QUIT RQSW = 0B 140 LM00166
24740 CLA +0 50000 0 23736 24741 STO +0 60100 0 23732
T'O DONE 141 LM00167
24742 TRA +0 02000 0 00047
INTRPT W'R N1 .V. N2 .NE. 0 142 LM00169
24743 CAL -0 50000 0 23725 24744 ORA -0 50100 0 23726 24745 SLW +0 60200 0 25253 24746 CLA +0 50000 0 25253
24747 SUB +0 40200 0 23736 24750 TZE +0 10000 0 24760
CLOSE.(N1, N2) 143 LM00170
24751 TSX +0 07400 4 00005 24752 TXH +3 00000 0 23725 24753 TXH +3 00000 0 23726
N1 = 0 144 LM00171
24754 CLA +0 50000 0 23736 24755 STO +0 60100 0 23725
N2 = 0 145 LM00172
24756 CLA +0 50000 0 23736 24757 STO +0 60100 0 23726
E'L 146 LM00173
T'O DONE 147 LM00174
24760 TRA +0 02000 0 00047
HELP W'R C(1) .NE. FENCE 148 LM00176
24761 CLA +0 50000 0 00105 24762 SUB +0 40200 0 00175 24763 TZE +0 10000 0 25007
HRQSW = 1B 149 LM00177
24764 CLA +0 50000 0 23737 24765 STO +0 60100 0 00255
L4 T'H L4, FOR I = 0, 1, C(1).E.CTB(I) .OR. CTB(I).E.FENCE 150 LM00178
24766 CLA +0 50000 0 23736 24767 STO +0 60100 0 00272 24770 TRA +0 02000 0 24774 24771 CLA +0 50000 0 00272
24772 ADD +0 40000 0 23737 24773 STO +0 60100 0 00272 24774 LXA +0 53400 1 00272 24775 CLA +0 50000 1 00121
24776 SUB +0 40200 0 00175 24777 TZE +0 10000 0 25005 25000 LXA +0 53400 2 00272 25001 CLA +0 50000 0 00105
25002 SUB +0 40200 2 00121 25003 TZE +0 10000 0 25005 25004 TRA +0 02000 0 24771
T'O H1 151 LM00179
25005 TRA +0 02000 0 00050
O'E 152 LM00180
25006 TRA +0 02000 0 25123
HRQSW = 0B 153 LM00181
25007 CLA +0 50000 0 23736 25010 STO +0 60100 0 00255
T'H L5, FOR I = 0, 2, CTB(I).E.FENCE .OR. HRQSW 154 LM00182
25011 CLA +0 50000 0 23736 25012 STO +0 60100 0 00272 25013 TRA +0 02000 0 25017 25014 CLA +0 50000 0 00272
25015 ADD +0 40000 0 23740 25016 STO +0 60100 0 00272 25017 ZET +0 52000 0 00255 25020 TRA +0 02000 0 25123
25021 LXA +0 53400 1 00272 25022 CLA +0 50000 1 00121 25023 SUB +0 40200 0 00175 25024 TZE +0 10000 0 25123
C(1) = CTB(I) 155 LM00183
25025 LXA +0 53400 2 00272 25026 CLA +0 50000 2 00121 25027 STO +0 60100 0 00105
H1 PRFULA.($'U'X$,BZ57.(C(1))) 156 LM00184
25030 TSX +0 07400 4 00002 25031 TXH +3 00000 0 00105 25032 STO +0 60100 0 25253 25033 TSX +0 07400 4 00021
25034 TXH +3 00000 0 23776 25035 TXH +3 00000 0 25253
W'R HTB(I) .A. 1K .E. 1K, PRFULA.($'L ACC MOD'8$) 157 LM00185
25036 LXA +0 53400 1 00272 25037 CAL -0 50000 1 00270 25040 ANA -0 32000 0 23737 25041 SLW +0 60200 0 25253
25042 CLA +0 50000 0 25253 25043 SUB +0 40200 0 23737 25044 TNZ -0 10000 0 25050 25045 TSX +0 07400 4 00021
25046 TXH +3 00000 0 23764 25047 TXH +3 00000 0 24025
W'R HTB(I) .A. 2K .E. 2K, PRFULA.($'L -TRK-'8$) 158 LM00186
25050 LXA +0 53400 1 00272 25051 CAL -0 50000 1 00270 25052 ANA -0 32000 0 23740 25053 SLW +0 60200 0 25253
25054 CLA +0 50000 0 25253 25055 SUB +0 40200 0 23740 25056 TNZ -0 10000 0 25062 25057 TSX +0 07400 4 00021
25060 TXH +3 00000 0 23770 25061 TXH +3 00000 0 24010
W'R HTB(I) .A. 4K .E. 4K, PRFULA.($'L -N-'8$) 159 LM00187
25062 LXA +0 53400 1 00272 25063 CAL -0 50000 1 00270 25064 ANA -0 32000 0 23742 25065 SLW +0 60200 0 25253
25066 CLA +0 50000 0 25253 25067 SUB +0 40200 0 23742 25070 TNZ -0 10000 0 25074 25071 TSX +0 07400 4 00021
25072 TXH +3 00000 0 23767 25073 TXH +3 00000 0 23762
W'R HTB(I) .A. 10K .E. 10K, PRFULA.($'L FUNCTION'8$) 160 LM00188
25074 LXA +0 53400 1 00272 25075 CAL -0 50000 1 00270 25076 ANA -0 32000 0 23746 25077 SLW +0 60200 0 25253
25100 CLA +0 50000 0 25253 25101 SUB +0 40200 0 23746 25102 TNZ -0 10000 0 25107 25103 TSX +0 07400 4 00021
25104 TXH +3 00000 0 23766 25105 TXH +3 00000 0 24004 25106 TXH +3 00000 0 23761
W'R HTB(I) .A. 20K .E. 20K, PRFULA.($'L UNKNOWN'8$) 161 LM00189
25107 LXA +0 53400 1 00272 25110 CAL -0 50000 1 00270 25111 ANA -0 32000 0 23747 25112 SLW +0 60200 0 25253
25113 CLA +0 50000 0 25253 25114 SUB +0 40200 0 23747 25115 TNZ -0 10000 0 25121 25116 TSX +0 07400 4 00021
25117 TXH +3 00000 0 23771 25120 TXH +3 00000 0 24015
PRFULL. 162 LM00190
25121 TSX +0 07400 4 00022
L5 C'E 163 LM00191
25122 TRA +0 02000 0 25014
E'L 164 LM00192
DONE W'R RQSW 165 LM00195
25123 NZT -0 52000 0 23732 25124 TRA +0 02000 0 25132
PRFULL.($'UR'LEADY.'*$) 166 LM00196
25125 TSX +0 07400 4 00022 25126 TXH +3 00000 0 23777 25127 TXH +3 00000 0 24001
T'O READ 167 LM00197
25130 TRA +0 02000 0 00064
O'E 168 LM00198
25131 TRA +0 02000 0 25151
W'R N1 .V. N2 .NE. 0 169 LM00199
25132 CAL -0 50000 0 23725 25133 ORA -0 50100 0 23726 25134 SLW +0 60200 0 25253 25135 CLA +0 50000 0 25253
25136 SUB +0 40200 0 23736 25137 TZE +0 10000 0 25143
CLOSE.(N1, N2) 170 LM00200
25140 TSX +0 07400 4 00005 25141 TXH +3 00000 0 23725 25142 TXH +3 00000 0 23726
E'L 171 LM00201
PRSET.(1) 172 LM00202
25143 TSX +0 07400 4 00024 25144 TXH +3 00000 0 23737
PRMESS.($*$) 173 LM00203
25145 TSX +0 07400 4 00023 25146 TXH +3 00000 0 24022
CHNCOM.(0) 174 LM00204
25147 TSX +0 07400 4 00004 25150 TXH +3 00000 0 23736
E'L 175 LM00205
OPNERR PRDIAG. 176 LM00207
25151 TSX +0 07400 4 00017
T'O DONE 177 LM00208
25152 TRA +0 02000 0 00047
OUTPER PRDIAG. 178 LM00210
25153 TSX +0 07400 4 00017
PRSET.(1) 179 LM00211
25154 TSX +0 07400 4 00024 25155 TXH +3 00000 0 23737
T'O DONE 180 LM00212
25156 TRA +0 02000 0 00047
V'S HEADER = $23H1DISK MAP OF I/O ERRORS, T52, 7HACCESS ,$, 181 LM00215
1 $RC1, 11H MODULE , RC1, T100, 3C6, 9H PAGE , I2/$, 181 LM00216
2 $4H0CYL, S62, 4HHEAD/S8,$, 181 LM00217
3 $30H 00 01 02 03 04 05 06 07 08 09,$, 181 LM00218
4 $30H 10 11 12 13 14 15 16 17 18 19,$, 181 LM00219
5 $30H 20 21 22 23 24 25 26 27 28 29,$, 181 LM00220
6 $30H 30 31 32 33 34 35 36 37 38 39/*$ 181 LM00221
00200 -2 00311 6 15460 00201 -2 00307 6 00310 00202 -2 00305 6 00306 00203 -2 00303 6 00304
00204 -2 00301 6 00302 00205 +0 30030 6 00300 00206 -2 00211 7 36060 00207 -2 00207 6 00210
00210 -2 00205 6 00206 00211 -2 00203 6 00204 00212 -2 00201 6 00202 00213 +0 30030 6 00200
00214 -2 00111 7 36060 00215 -2 00107 6 00110 00216 -2 00105 6 00106 00217 -2 00103 6 00104
00220 -2 00101 6 00102 00221 +0 30030 6 00100 00222 -2 00011 7 36060 00223 -2 00007 6 00010
00224 -2 00005 6 00006 00225 -2 00003 6 00004 00226 -2 00001 6 00002 00227 +0 30030 6 00000
00230 +2 46162 1 07360 00231 -2 00430 3 02521 00232 -3 36062 0 60273 00233 +0 43000 2 37043
00234 -3 36031 0 26160 00235 -2 04721 2 72560 00236 -2 01130 6 06060 00237 -3 36003 2 30673
00240 -3 36063 0 10000 00241 -2 07360 5 12301 00242 -0 44624 6 44325 00243 +0 13060 6 06060
00244 -1 12301 7 36001 00245 -3 36060 6 06060 00246 +2 32325 6 26260 00247 +0 27360 0 73021
00250 -1 16273 6 06305 00251 -0 66025 5 15146 00252 -2 04626 6 03161 00253 -2 24260 4 42147
00254 +0 20330 0 12431
V'S LINE = $S1, I3, S4, 40RC3*$ 182 LM00222
00274 +0 40051 2 30354 00275 -3 36062 0 47360 00276 -2 20173 6 03103
INTERNAL FUNCTION (A, B) 183 LM00225
25157 TRA +0 02000 0 25215
E'O ADD. 184 LM00226
25160 TRA +0 02000 0 25163 00035 TTR +0 02100 0 25161 25161 SXA +0 63400 2 25176 25162 TSX +0 07400 2 25176
A = A + B 185 LM00227
25163 CLA +0 50000 0 00023 25164 ADD +0 40000 0 00023 25165 STO +0 60100 0 00023
F'N 186 LM00228
25166 TRA +0 02000 0 25211
E'O REP. 187 LM00229
25167 TRA +0 02000 0 25172 00037 TTR +0 02100 0 25170 25170 SXA +0 63400 2 25176 25171 TSX +0 07400 2 25176
A = B 188 LM00230
25172 CLA +0 50000 0 00023 25173 STO +0 60100 0 00023
F'N 189 LM00231
25174 TRA +0 02000 0 25211
E'N 190 LM00232
25175 TSX +0 07400 4 00010 25176 TXH +3 00000 0 00000 25177 SXD -0 63400 1 25176 25200 SXA +0 63400 4 25211
25201 CLA +0 50000 4 00001 25202 STA +0 62100 0 25163 25203 STA +0 62100 0 25165 25204 STA +0 62100 0 25173
25205 CLA +0 50000 4 00002 25206 STA +0 62100 0 25164 25207 STA +0 62100 0 25172 25210 TRA +0 02000 2 00001
25211 AXT +0 77400 4 00000 25212 LXA +0 53400 2 25176 25213 LXD -0 53400 1 25176 25214 TRA +0 02000 4 00001
INTERNAL FUNCTION (A) 191 LM00234
25215 TRA +0 02000 0 25252
E'O FMT. 192 LM00235
25216 TRA +0 02000 0 25221 00036 TTR +0 02100 0 25217 25217 SXA +0 63400 2 25237 25220 TSX +0 07400 2 25237
T = BZEL.(DERBC.(A)) 193 LM00236
25221 TSX +0 07400 4 00007 25222 TXH +3 00000 0 00023 25223 STO +0 60100 0 25251 25224 TSX +0 07400 4 00003
25225 TXH +3 00000 0 25251 25226 STO +0 60100 0 23735
W'R T .E. $ 0$, T = $ .$ 194 LM00237
25227 CLA +0 50000 0 23735 25230 SUB +0 40200 0 24032 25231 TNZ -0 10000 0 25234 25232 CLA +0 50000 0 24033
25233 STO +0 60100 0 23735
F'N T 195 LM00238
25234 CLA +0 50000 0 23735 25235 TRA +0 02000 0 25245
E'N 196 LM00239
25236 TSX +0 07400 4 00010 25237 TXH +3 00000 0 00000 25240 SXD -0 63400 1 25237 25241 SXA +0 63400 4 25245
25242 CLA +0 50000 4 00001 25243 STO +0 60100 0 25222 25244 TRA +0 02000 2 00001 25245 AXT +0 77400 4 00000
25246 LXA +0 53400 2 25237 25247 LXD -0 53400 1 25237 25250 TRA +0 02000 4 00001
END OF PROGRAM 197 LM00241
25252 TSX +0 07400 4 00010
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 04/27/70 2024.7 PAGE 1
PCC ON
NOLNK
00003 ENTRY RDCOM
LBL RCOM
PCC OFF
EXTERN RDFLXA,PARSE,RPARSE
UNLIST
00003 RDCOM SAVE RD(X1,X2,X4,MTM) SAVE XRS AND LINKAGE
00007 0600 00 0 00076 STZ FLIP RESET SWITCH
00010 0441 00 4 00001 LDI 1,4 GET POINTER TO BUFFER
00011 0604 00 0 00034 STI ARY .. SAVE
00012 -0054 00 200000 LFT 200000 IS THIS A 'BLK'
00013 -0054 00 100000 LFT 100000 ..
00014 0020 00 0 00030 TRA START .. NO
00015 -0625 00 0 00076 STL FLIP THIS IS A MAD CALL, BACKWARDS BUFFER
00016 -0500 00 4 00001 CAL 1,4 GET ADDRESS OF LAST WORD
00017 0737 00 1 00000 PAC ,1 .. SAVE
00020 0400 00 0 00077 ADD =1 ADJUST
00021 -0535 00 4 00034 LDC ARY,4 POINTER TO WORD COUNT
00022 0402 00 4 00000 SUB 0,4 COMPUTE ADDRESS OF FIRST WORD
00023 0621 00 0 00034 STA ARY PUT AWAY
00024 0737 00 2 00000 PAC ,2 .. SAVE
00025 -0500 00 4 00000 CAL 0,4 PICK UP WORD COUNT
00026 0734 00 4 00000 PAX ,4 ..
00027 -0634 00 4 00034 SXD ARY,4 ..
00030 0074 00 4 00000 START TSX RDFLXA,4 READ INPUT LINE
00031 3 00016 0 00060 PAR LINE,,14 ..
00032 0074 00 4 00001 TSX PARSE,4 SCAN FOR BLANKS
00033 3 00016 0 00060 PAR LINE,,14 ..
00034 3 00000 0 00000 ARY PAR -,,- ..
00035 3 00000 0 00054 PAR RDMORE .. UNFINISHED LINE RETURN
00036 -0520 00 0 00076 NZT FLIP WAS THIS MAD CALL
00037 0020 00 0 00050 TRA RETURN .. NO
00040 -0500 00 1 00000 LOOP CAL 0,1 INVERT ARRAY
00041 0560 00 2 00000 LDQ 0,2 ..
00042 0602 00 2 00000 SLW 0,2 ..
00043 -0600 00 1 00000 STQ 0,1 ..
00044 1 77777 2 00045 TXI *+1,2,-1 INCREMENT UPPER POINTER
00045 1 00001 1 00046 TXI *+1,1,1 .. AND LOWER POINTER
00046 -0634 00 1 00047 SXD *+1,1 ..
00047 3 00000 2 00040 TXH LOOP,2,- REPEAT
00050 RETURN RETURN (2,4),RD(X1,X2,X4,MTM) RETURN TO CALLER
00054 0074 00 4 00000 RDMORE TSX RDFLXA,4 HERE FOR LINE WITH NO C.R.
00055 3 00016 0 00060 PAR LINE,,14 .. READ SOME MORE
00056 0074 00 4 00002 TSX RPARSE,4 .. AND CONTINUE SCAN
00057 3 00016 0 00060 PAR LINE,,14 ..
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 04/27/70 2024.7 PAGE 2
00060 LINE BSS 14 INPUT BUFFER
00076 0 00000 0 00000 FLIP PZE 0
00077 RMT *
END
LITERALS
00077 000000000001
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 04/27/70 2024.7 PAGE 1
POST PROCESSOR ASSEMBLY DATA
100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
34 ARY 11, 21, 23, 27
76 FLIP 7, 15, 36
60 LINE 31, 33, 55, 57
40 LOOP 47
50 RDX1 3
51 RDX2 4
52 RDX4 5
1 PARSE 32
3 RDCOM 0
30 START 14
0 RDFLXA 30, 54
54 RDMORE 35
50 RETURN 37
2 RPARSE 56
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 04/27/70 2024.8 PAGE 1
PCC ON
NOLNK
00000 ENTRY PARSE ENTRY TO PARSE COMMAND LINE
00017 ENTRY RPARSE REENTRY FOR LONG LINE
00047 ENTRY ENDLIN FUDGE UP CARRIAGE RETURN
00103 ENTRY FLAG NON-ZERO IF FIRST WORD PROCESSED
LBL PARS
PCC OFF
00000 0634 00 4 00055 PARSE SXA PX4,4 ROUTINE TO PARSE LINE
00001 0760 00 0 00016 LMTM .. NEED 4
00002 -0500 00 0 00104 CAL BLANKS INITIALIZE
00003 0602 00 0 00101 SLW TEMP ..
00004 -0625 00 0 00102 STL BLNK ..
00005 0600 00 0 00103 STZ FLAG ..
00006 -0500 00 4 00002 CAL 2,4 PICK UP BUFFER LOCATION
00007 -0734 00 5 00000 PDX ,5 ..
00010 0754 00 5 00000 PXA ,5 ..
00011 1 00001 5 00012 TXI *+1,5,1 .. MAKE TNX WORK RIGHT
00012 0361 00 4 00002 ACL 2,4 ..
00013 0621 00 0 00070 STA PUT ..
00014 -0500 00 4 00003 CAL 3,4 GET END OF LINE RETURN
00015 0621 00 0 00046 STA EMPTY ..
00016 0020 00 0 00020 TRA *+2 .. SKIP RPARSE AXT
00017 0774 00 5 00000 RPARSE AXT -,5 REENTRY FOR NEW LINE
00020 0760 00 0 00016 LMTM .. JUST IN CASE
00021 -0500 00 4 00001 CAL 1,4 GET LINE LOCATION AND WORD COUNT
00022 -0734 00 7 00000 PDX ,7 ..
00023 0754 00 7 00000 PXA ,7 ..
00024 0361 00 4 00001 ACL 1,4 ..
00025 0621 00 0 00027 STA GET .. SAVE ADDRESS
00026 0774 00 6 00006 WRD AXT 6,6 SIX CHARACTERS PER WORD
00027 0560 00 7 00000 GET LDQ -,7 PICK UP NEXT WORD TO SCAN
00030 -0500 00 0 00101 CHR CAL TEMP HERE FOR NEXT CHAR, RESTORE PREVIOUS RESULT
00031 -0763 00 0 00006 LGL 6 SHIFT OUT A CHARACTER
00032 0044 00 0 00000 PAI SAVE AC
00033 -0320 00 0 00106 ANA =O77 MASK THIS CHARACTER
00034 0774 00 4 00006 AXT NSPCHR,4 LOOK FOR IT IN TABLE OF CONTROL CHARACTERS
00035 -0340 00 4 00101 LAS SPCHR,4 ..
00036 0020 00 0 00040 TRA *+2 ..
00037 0020 60 4 00102 TRA* SPCHR+1,4 .. SPECIAL CHAR. FOUND, GO DO IT
00040 2 00002 4 00035 TIX *-3,4,2 ..
00041 0604 00 0 00101 STI TEMP NORMAL CHARACTER, SAVE NEW RESULT
00042 0600 00 0 00102 STZ BLNK RESET BLANK WORD INDICATOR
00043 2 00001 6 00030 TIX TIX CHR,6,1 AND GO GET NEXT CHARACTER
00044 2 00001 7 00026 TIX WRD,7,1 OR NEXT WORD IF OUT OF CHARACTERS
00045 0634 00 5 00017 SXA RPARSE,5 HERE WHEN BUFFER EMPTY, SAVE X5
00046 0020 00 0 00000 EMPTY TRA - TAKE LINE EMPTY RETURN
00047 0534 00 5 00017 ENDLIN LXA RPARSE,5 END OF LINE W/O CARR. RET.
00050 0074 00 4 00064 ENDIN TSX STWRD,4 HERE FOR CARRIAGE RETURN
00051 -2 00001 5 00052 TNX *+1,5,1 .. DECREMENT COUNTER
00052 -0500 00 0 00105 CAL FENCE .. INSURE FENCE IS LAST ARGUMENT
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 04/27/70 2024.8 PAGE 2
00053 0522 00 0 00070 XEC PUT ..
00054 2 00001 5 00053 TIX *-1,5,1 .. FILL OUT REMAINDER OF BUFFER
00055 0774 00 4 00000 PX4 AXT -,4 RESTORE X4
00056 0020 00 4 00004 TRA 4,4 RETURN NORMALLY
00057 0074 00 4 00064 BLANK TSX STWRD,4 HERE FOR BLANK IN LINE, STORE CURRENT WORD
00060 -0500 00 0 00104 CAL BLANKS RESET TEMPORARY WORD
00061 0602 00 0 00101 SLW TEMP ..
00062 -0625 00 0 00102 STL BLNK INDICATE BLANK FOUND
00063 0020 00 0 00043 TRA TIX KEEP LOOKING
00064 0520 00 0 00102 STWRD ZET BLNK ROUTINE TO STORE WORD IN BUFFER
00065 0020 00 4 00001 TRA 1,4 EXIT FOR REDUNDANT BLANKS
00066 -2 00001 5 00065 TNX *-1,5,1 EXIT IF BUFFER FILLED
00067 -0500 00 0 00101 CAL TEMP GET THIS WORD
00070 0602 00 5 00000 PUT SLW -,5 PUT IT AWAY
00071 -0625 00 0 00103 STL FLAG INDICATE WORD FOUND
00072 0020 00 4 00001 TRA 1,4 RETURN
00073 TSPCHR SYN * TABLE OF CONTROL CHARACTERS FOR PARSE
00073 +000000000055 OCT 55 CARRIAGE RETURN
00074 0020 00 0 00050 TRA ENDIN .. ENDS LINE
00075 +000000000057 OCT 57 NULL (UNLIKELY)
00076 0020 00 0 00043 TRA TIX .. IS IGNORED
00077 +000000000060 OCT 60 BLANK
00100 0020 00 0 00057 TRA BLANK .. MARKS WORD
00101 SPCHR SYN * ..
00006 NSPCHR EQU *-TSPCHR TABLE COUNT
00101 0 00000 0 00000 TEMP PZE
00102 0 00000 0 00000 BLNK PZE
00103 0 00000 0 00000 FLAG PZE
00104 606060606060 BLANKS BCI 1,
00105 -377777777777 FENCE OCT 777777777777
END
LITERALS
00106 000000000077
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 04/27/70 2024.8 PAGE 1
POST PROCESSOR ASSEMBLY DATA
107 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
30 CHR 43
27 GET 25
70 PUT 13, 53
55 PX4 0
43 TIX 63, 76
26 WRD 44
102 BLNK 4, 42, 62, 64
103 FLAG 0, 5, 71
101 TEMP 3, 30, 41, 61, 67
57 BLANK 100
46 EMPTY 15
50 ENDIN 74
105 FENCE 52
0 PARSE 0
101 SPCHR 35, 37, 101
64 STWRD 50, 57
104 BLANKS 2, 60
47 ENDLIN 0
6 NSPCHR 34, 101
17 RPARSE 0, 45, 47
73 TSPCHR 73, 101
0 NO ERROR IN ABOVE ASSEMBLY.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 1
PETER R. BOS --- AUGUST 1967
PCC ON
NOLNK DELETE LINKAGE DIRECTOR.
00011 ENTRY .PRINT PRINT FORMAT FMT,LIST.
00013 ENTRY .COMNT PRINT ON LINE FORMAT FMT, LIST.
00066 ENTRY .PCOMT PRINT COMMENT $...$.
00101 ENTRY .SPRNT PRINT WITHOUT FORMAT CONVERSION.
00104 ENTRY .SCMNT PRINT ON LINE WITHOUT FORMAT.
00155 ENTRY PRFIL DECLARE OUTPUT FILE NAME.
00160 ENTRY PRSET SET MODE OF OUTPUT (ON OR OFF LINE).
00212 ENTRY PRGET GET LAST PERMANENT MODE SETTING.
LBL (SPH) BINARY CARD LABEL.
PCC OFF
$.PRINT, PROCESS MAD PRINT FORMAT STATEMENT.
TRANSFER VECTOR
00000 743146303460 (IOH)
00001 665126436721 WRFLXA
00002 665126436760 WRFLX
00003 222666513163 BFWRIT
00004 222623434662 BFCLOS
00005 222646472545 BFOPEN
00006 222623462425 BFCODE
00007 314625515160 IOERR
00010 256731636060 EXIT
00011 0600 00 0 02655 .PRINT STZ CMT SET INDICATOR.
00012 0020 00 0 00014 TRA *+2 AND SKIP .COMNT.
$.COMNT, PROCESS PRINT ON LINE FORMAT STATEMENT.
00013 -0625 00 0 02655 .COMNT STL CMT SET INDICATOR.
00014 -0500 00 0 00002 CAL 2 SAVE CURRENT LOC. 2.
00015 0602 00 0 02656 SLW TEMP ..
00016 -0500 00 0 00023 CAL TRAP SET STR TRAP RETURN.
00017 0602 00 0 00002 SLW 2 ..
00020 0600 00 0 00000 STZ 0 CLEAR OUT TRAP CELL.
00021 -0634 00 4 77740 SXD L77740,4 SAVE XR4 FOR (IOH).
00022 0020 00 4 00001 TRA 1,4 RETURN FOR CONTROL WORD.
00023 0020 00 0 00024 TRAP TRA *+1 TRAP RETURN FOR STR.
00024 -0500 00 0 02656 CAL TEMP RESTORE LOC. 2
00025 0602 00 0 00002 SLW 2 ..
00026 0634 00 4 00064 SXA XR4,4 SAVE XR4.
00027 0535 00 4 00000 LAC 0,4 GET TRAP LOCATION.
00030 -0500 00 4 77777 CAL -1,4 GET CONTROL WORD.
00031 -0734 00 4 00000 PDX 0,4 TEST FOR FORMAT DIRECTION.
00032 0560 00 0 02664 LDQ REV DECR=1, MAD CALL.
00033 3 00000 4 00035 TXH *+2,4,0 ..
00034 0560 00 0 02663 LDQ FWD DECR=0, FAP CALL.
00035 0600 00 0 77771 STZ L77771 CLEAR SYMBOL TABLE POINTER.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 2
PETER R. BOS --- AUGUST 1967
00036 -3 00001 4 00047 TXL FMT,4,1 TEST FOR SYMBOL TABLE.
00037 0560 00 0 02664 LDQ REV SYMBOL TABLE SPECIFIED.
00040 0600 00 0 02656 STZ TEMP RESET TEST CELL.
00041 0625 00 0 02656 STT TEMP DIRECTION GIVEN IN TAG.
00042 -0520 00 0 02656 NZT TEMP TAG=1, MAD CALL.
00043 0560 00 0 02663 LDQ FWD TAG=0, FAP CALL.
00044 0621 00 0 77771 STA L77771 SAVE SYMBOL TABLE POINTER FOR (IOH).
00045 -0734 00 4 00000 PDX 0,4 FORMAT POINTER TO ADDRESS.
00046 0754 00 4 00000 PXA 0,4 ..
00047 -0600 00 0 02656 FMT STQ TEMP SAVE PARTIAL CONTROL WORD.
00050 0774 00 4 00127 AXT WRT,4 SET UP OUTPUT TRANSMISSION ADDRESS.
00051 -0520 00 0 02661 NZT SWT TEST IF ON OR OFF LINE .PRINT.
00052 0520 00 0 02655 ZET CMT TEST IF .COMNT (ON LINE).
00053 0774 00 4 00105 AXT PRT,4 IF ON LINE, SET FOR WRFLX.
00054 0634 00 4 02656 SXA TEMP,4 INSERT IN CONTROL WORD.
00055 0560 00 0 02656 LDQ TEMP GET WORD.
00056 -0600 00 0 77737 STQ L77737 AND INSERT FOR (IOH).
00057 -0501 00 0 02663 ORA FWD GET TXH PREFIX.
00060 0621 00 0 77740 STA L77740 FORMAT ADDRESS.
00061 0630 00 0 77740 STP L77740 INSERT FOR (IOH).
00062 -0500 00 0 02665 CAL COL GET LINE WIDTH SPECIFICATION.
00063 0602 00 0 77741 SLW L77741 INSERT FOR (IOH).
00064 0774 00 4 00000 XR4 AXT -,4 RESTORE XR4.
00065 0020 60 0 00000 TRA* $(IOH) EXIT TO (IOH) FOR CONVERSION.
$.PCOMT, PROCESS PRINT COMMENT STATEMENT.
00066 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT.
00067 1 77776 4 00070 TXI *+1,4,-2 SET XR4 TO (-BUFF).
00070 0634 00 4 00077 SXA .PCX4,4 SAVE XR4.
00071 0636 00 4 00076 SCA PBF,4 SAVE BUFFER ADDRESS.
00072 0621 00 0 00100 STA RTN SET UP RETURN LOCATION.
00073 0734 00 4 00000 PAX 0,4 GET WORD COUNT.
00074 -0634 00 4 00076 SXD PBF,4 INSERT IN CONTROL WORD.
00075 0074 00 4 00101 TSX .SPRNT,4 PRINT LINE.
00076 0 00000 0 00000 PBF PZE -,0,- ..
00077 0774 00 4 00000 .PCX4 AXT -,4 RESTORE XR4.
00100 0020 00 4 00000 RTN TRA -,4 RETURN.
$.SPRNT, PRINT WITHOUT FORMAT CONVERSION.
00101 -0520 00 0 02661 .SPRNT NZT SWT TEST IF ON OR OFF LINE.
00102 0020 00 0 00127 TRA WRT ON LINE.
00103 0020 00 0 00105 TRA PRT OFF LINE.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 3
PETER R. BOS --- AUGUST 1967
$.SCMNT, PRINT ON LINE WITHOUT FORMAT.
00104 0020 00 0 00105 .SCMNT TRA PRT ON LINE.
PRT, PRINT ON LINE THROUGH WRFLX.
00105 0634 00 4 00125 PRT SXA PX4,4 SAVE XR4.
00106 -0500 00 4 00001 CAL 1,4 GET POINTER TO BUFFER.
00107 -0734 00 4 00000 PDX 0,4 WORD COUNT.
00110 -2 00016 4 00121 TNX SHORT,4,N IF LESS THAN N WORDS, SKIP.
00111 0621 00 0 00117 STA L1 BUFF.
00112 -0634 00 4 00124 SXD L2,4 WDCT-N.
00113 0734 00 4 00000 PAX 0,4 ..
00114 1 00016 4 00115 TXI *+1,4,N BUFF+N.
00115 0634 00 4 00124 SXA L2,4 INSERT FOR SECOND HALF.
00116 0074 00 4 00001 TSX $WRFLXA,4 WRITE OUT FIRST PART
00117 0 00016 0 00000 L1 PZE -,0,N OF LINE ON CONSOLE.
00120 0020 00 0 00123 TRA *+3 SKIP.
00121 0621 00 0 00124 SHORT STA L2 LESS THAN N WORDS,
00122 0622 00 0 00124 STD L2 SAVE POINTER.
00123 0074 00 4 00002 TSX $WRFLX,4 WRITE OUT LINE OR
00124 0 00000 0 00000 L2 PZE -,0,- SECOND PART OF LINE.
00125 0774 00 4 00000 PX4 AXT -,4 RESTORE XR4.
00126 0020 00 4 00002 TRA 2,4 RETURN TO (IOH).
WRT, WRITE INTO DISK FILE FOR OFF-LINE PRINTING.
00127 0634 00 4 00153 WRT SXA WX4,4 SAVE XR4.
00130 -0500 00 4 00001 CAL 1,4 GET CONTROL WORD.
00131 0734 00 4 00000 PAX 0,4 BUFFER ADDRESS.
00132 1 77777 4 00133 TXI *+1,4,-1 EXTRA WORD FOR LINE MARK.
00133 0634 00 4 00147 SXA WRLOC,4 INSERT FOR WRFILE.
00134 -0734 00 4 00000 PDX 0,4 WDCT.
00135 0754 00 4 00000 PXA 0,4 TO ADDRESS.
00136 -0501 00 0 02670 ORA =O777777000000 OR IN LINE MARK.
00137 1 00001 4 00140 TXI *+1,4,1 INCREASE WDCT FOR LINE MARK.
00140 -0634 00 4 00147 SXD WRLOC,4 INSERT FOR WRFILE.
00141 0560 60 0 00147 LDQ* WRLOC SAVE BUFF-1.
00142 -0600 00 0 02656 STQ TEMP ..
00143 0602 60 0 00147 SLW* WRLOC INSERT LINE MARK IN BUFFER.
00144 0074 00 4 00003 TSX $BFWRIT,4 WRITE LINE ON DISK.
00145 3 00000 0 02657 PAR NAME1 ..
00146 3 00000 0 02660 PAR NAME2 ..
00147 3 00000 0 00000 WRLOC PAR -,,- ..
00150 3 00000 0 00214 PAR BFERR ..
00151 -0500 00 0 02656 CAL TEMP RESTORE BUFF-1.
00152 0602 60 0 00147 SLW* WRLOC ..
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 4
PETER R. BOS --- AUGUST 1967
00153 0774 00 4 00000 WX4 AXT -,4 RESTORE XR4.
00154 0020 00 4 00002 TRA 2,4 RETURN TO (IOH).
$PRFIL, DECLARE OUTPUT FILE NAME.
00155 -0500 60 4 00001 PRFIL CAL* 1,4 GET NAME.
00156 0602 00 0 02657 SLW NAME1 INSERT.
00157 0020 00 4 00002 TRA 2,4 RETURN.
$PRSET, SET MODE OF OUTPUT FOR .PRINT.
00160 0634 00 4 00210 PRSET SXA PRX4,4 SAVE XR4.
00161 0500 60 4 00001 CLA* 1,4 GET CONTROL WORD.
00162 -0120 00 0 00164 TMI *+2 IF TEMPORARY SETTING, SKIP.
00163 0601 00 0 02662 STO OLDMOD ELSE, SET FLAG.
00164 0100 00 0 00175 TZE OFFLIN 1 FOR ON-LINE, 0 FOR OFF-LINE.
00165 0520 00 0 02661 ONLIN ZET SWT TEST IF ALREADY SET.
00166 0020 00 4 00002 TRA 2,4 YES, EXIT.
00167 0074 00 4 00004 TSX $BFCLOS,4 OTHERWISE, CLOSE OUTPUT FILE.
00170 3 00000 0 02657 PAR NAME1 ..
00171 3 00000 0 02660 PAR NAME2 ..
00172 3 00000 0 00214 PAR BFERR ..
00173 -0625 00 0 02661 STL SWT SET SWITCH.
00174 0020 00 0 00210 TRA PRX4 EXIT.
00175 -0520 00 0 02661 OFFLIN NZT SWT TEST IF ALREADY SET.
00176 0020 00 4 00002 TRA 2,4 YES, EXIT.
00177 0074 00 4 00005 TSX $BFOPEN,4 OTHERWISE, OPEN OUTPUT FILE.
00200 3 00000 0 02667 PAR =HW ..
00201 3 00000 0 02657 PAR NAME1 ..
00202 3 00000 0 02660 PAR NAME2 ..
00203 3 00000 0 00224 PAR BUF1 ..
00204 3 00000 0 01104 PAR BUF2 ..
00205 3 00000 0 01764 PAR BUF3 ..
00206 3 00000 0 00214 PAR BFERR ..
00207 0600 00 0 02661 STZ SWT SET SWITCH.
00210 0774 00 4 00000 PRX4 AXT -,4 RESTORE XR4.
00211 0020 00 4 00002 TRA 2,4 RETURN.
$PRGET, FIND LAST PERMANENT MODE SETTING.
00212 -0500 00 0 02662 PRGET CAL OLDMOD GET MODE FLAG.
00213 0020 00 4 00001 TRA 1,4 RETURN.
ERROR RETURN FROM BFOPEN, ETC.
00214 0074 00 4 00006 BFERR TSX $BFCODE,4 ERROR, GET CODE.
00215 0100 60 0 00007 TZE* $IOERR IF FILE SYSTEM, ERROR, EXIT.
00216 0767 00 0 00036 ALS 30 SHIFT FOR PRINTING.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 5
PETER R. BOS --- AUGUST 1967
00217 -0501 00 0 02666 ORA =H0. OR IN BLANKS.
00220 0602 00 0 02654 SLW ERR+8 INSERT IN COMMENT.
00221 0074 00 4 00002 TSX $WRFLX,4 PRINT ERROR COMMENT.
00222 0 00011 0 02644 PZE ERR,0,9 ..
00223 0074 00 4 00010 TSX $EXIT,4 CALL EXIT.
STORAGE AND CONSTANTS.
00224 BUF1 BSS 432 BUFFERS FOR DISK OUTPUT.
01104 BUF2 BSS 432 ..
01764 BUF3 BSS 432 ..
02644 746247303473 ERR BCI 9,(SPH), ERROR RETURN FROM BFREAD PACKAGE, ERRCOD=0.
02645 602551514651
02646 605125636451
02647 456026514644
02650 602226512521
02651 246047212342
02652 212725736025
02653 515123462413
02654 003360606060
00026 IOHBUF EQU 22 BUFFER LENGTH FOR (IOH).
00016 N EQU 14 BUFFER LENGTH FOR WRFLX.
02655 0 00000 0 00000 CMT PZE .PRINT/.COMNT SWITCH.
02656 0 00000 0 00000 TEMP PZE TEMPORARY STORAGE AND TEST CELL.
02657 0 00000 0 00000 NAME1 PZE OUTPUT FILE NAME.
02660 466463476463 NAME2 BCI 1,OUTPUT ..
02661 0 00000 0 00001 SWT PZE 1 START IN ON-LINE MODE.
02662 0 00000 0 00000 OLDMOD PZE PERMANENT MODE FLAG.
02663 3 77777 0 00000 FWD TXH -,0,-1 USED TO CALL (IOH).
02664 3 00001 0 00000 REV TXH -,0,+1 ..
02665 -3 00204 0 00000 COL TXL 0,0,132 ..
77771 COMMON -200 ERASABLE.
77771 L77771 COMMON 1 ..
77741 COMMON IOHBUF+1 ..
77741 L77741 COMMON 1 ..
77740 L77740 COMMON 1 ..
77737 L77737 COMMON 1 ..
END
LITERALS
02666 003360606060
02667 666060606060
02670 777777000000
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
77736 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
2671 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 N 110, 114, 117, 2655
117 L1 111
124 L2 112, 115, 121, 122
2655 CMT 11, 13, 52
2665 COL 62
2644 ERR 220, 222
47 FMT 36
2663 FWD 34, 43, 57
76 PBF 71, 74
105 PRT 53, 103, 104
125 PX4 105
2664 REV 32, 37
100 RTN 72
2661 SWT 51, 101, 165, 173, 175, 207
127 WRT 50, 102
153 WX4 127
64 XR4 26
224 BUF1 203
1104 BUF2 204
1764 BUF3 205
10 EXIT 223
210 PRX4 160, 174
2656 TEMP 15, 24, 40, 41, 42, 47, 54, 55, 142, 151
23 TRAP 16
214 BFERR 150, 172, 206
7 IOERR 215
77 .PCX4 70
2657 NAME1 145, 156, 170, 201
2660 NAME2 146, 171, 202
165 ONLIN
155 PRFIL 0
212 PRGET 0
160 PRSET 0
121 SHORT 110
2 WRFLX 123, 221
147 WRLOC 133, 140, 141, 143, 152
0 (IOH) 65
4 BFCLOS 167
6 BFCODE 214
5 BFOPEN 177
3 BFWRIT 144
26 IOHBUF 2655, 2666
13 .COMNT 0
66 .PCOMT 0
11 .PRINT 0
104 .SCMNT 0
101 .SPRNT 0, 75
77737 L77737 56, 2666
77740 L77740 21, 60, 61, 2666
77741 L77741 63, 2666
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 2
POST PROCESSOR ASSEMBLY DATA
77771 L77771 35, 44, 2666
175 OFFLIN 164
2662 OLDMOD 163, 212
1 WRFLXA 116
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS ..... PROGRAM TO PROCESS FILE SYSTEM EOF ..... 04/27/70 2025.1 PAGE 1
PCC ON
NOLNK
00001 ENTRY RDEOF
00017 ENTRY WREOF
LBL EOF
PCC OFF
EXTERN WRWAIT
UNLIST
00001 RDEOF SAVE ,(X4,MTM) SAVE LINKAGE
00003 -0500 00 4 00004 CAL 4,4 PICK UP WORD COUNT
00004 0074 00 7 00044 TSX BLKPAR,7 ..
00005 0771 00 0 00022 ARS 18 ..
00006 0734 00 7 00000 PAX ,7 .. SAVE WORD COUNT
00007 0361 00 4 00004 ACL 4,4 COMPUTE BOTTOM ADDRESS
00010 0621 00 0 00014 STA STZ ..
00011 0754 00 7 00000 PXA ,7 .. RESTORE WORD COUNT
00012 0402 60 4 00006 SUB* 6,4 .. LESS NUMBER WORDS READ
00013 0734 00 4 00000 PAX ,4 ..
00014 0600 00 4 00000 STZ STZ -,4 CLEAR REMAINDER OF DATA AREA
00015 2 00001 4 00014 TIX *-1,4,1 ..
00016 0020 00 0 00042 TRA RETURN RETURN
00017 WREOF SAVE ,(X4,MTM) SAVE LINKAGE
00021 -0500 00 4 00001 CAL 1,4 SET UP POINTERS
00022 0621 00 0 00036 STA WR+1 ..
00023 -0500 00 4 00002 CAL 2,4 ..
00024 0621 00 0 00037 STA WR+2 ..
00025 -0500 00 4 00004 CAL 4,4 PICK UP DATA ADDRESS
00026 0400 60 4 00006 ADD* 6,4 PLUS WORD COUNT WRITTEN
00027 0621 00 0 00041 STA WR+4 ..
00030 0074 00 7 00044 TSX BLKPAR,7 GET WORD COUNT REQUESTED
00031 0771 00 0 00022 ARS 18 ..
00032 0402 60 4 00006 SUB* 6,4 LESS WORDS WRITTEN
00033 0767 00 0 00022 ALS 18 ..
00034 0622 00 0 00041 STD WR+4 WORD COUNT FOR REMAINDER
00035 WR CALL WRWAIT(-,-,=0,(-,,-)) WRITE REST OF DATA
00042 RETURN RETURN (7,4),,(X4,MTM) RETURN TO ORIGINAL CALLER
00044 0044 00 0 00000 BLKPAR PAI ROUTINE TO CONVERT BLK TO PAR
00045 -0054 00 200000 LFT 200000 IS BLK BIT ON
00046 -0054 00 100000 LFT 100000 YES, IS PAR BIT OFF
00047 0020 00 7 00001 TRA 1,7 .. NO
00050 -0765 00 0 00022 LGR 18 POINTER TO WORD COUNT, SAVE ADDRESS
00051 0621 00 0 00052 STA *+1 ..
00052 -0500 00 0 00000 CAL - PICK UP TRUE WORD COUNT
00053 -0763 00 0 00022 LGL 18 SHIFT TO AC
00054 0020 00 7 00001 TRA 1,7 RETURN
1 M1416 3845 PETER R. BOS ..... PROGRAM TO PROCESS FILE SYSTEM EOF ..... 04/27/70 2025.1 PAGE 2
00055 RMT *
END
LITERALS
00055 000000000000
1 M1416 3845 PETER R. BOS ..... PROGRAM TO PROCESS FILE SYSTEM EOF ..... 04/27/70 2025.1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
56 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
35 WR 22, 24, 27, 34
42 X4 1, 17
14 STZ 10
1 RDEOF 0
17 WREOF 0
44 BLKPAR 4, 30
42 RETURN 16
0 WRWAIT 35
0 NO ERROR IN ABOVE ASSEMBLY.
1 DUMMY RECOUP FOR FORMAT ERRORS 04/27/70 2025.2 PAGE 1
00005 ENTRY RECOUP
00002 ENTRY RCOUPX
LINKAGE DIRECTOR
00000 000000000000
00001 512523466447
00002 -0500 00 4 00001 RCOUPX CAL 1,4
00003 0621 00 0 00006 STA RECOUP+1
00004 0020 00 4 00002 TRA 2,4
00005 0760 00 0 00016 RECOUP LMTM JUST IN CASE
00006 0020 00 0 00000 TRA -
END
1 DUMMY RECOUP FOR FORMAT ERRORS 04/27/70 2025.2 PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 RCOUPX 0
5 RECOUP 0, 3
0 NO ERROR IN ABOVE ASSEMBLY.
TRKLIB BCD 10/12/70 1510.5 6848 00000
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 04/27/70 2024.7 PAGE 1
PCC ON
NOLNK
00003 ENTRY RDCOM
LBL RCOM
PCC OFF
EXTERN RDFLXA,PARSE,RPARSE
UNLIST
00003 RDCOM SAVE RD(X1,X2,X4,MTM) SAVE XRS AND LINKAGE
00007 0600 00 0 00076 STZ FLIP RESET SWITCH
00010 0441 00 4 00001 LDI 1,4 GET POINTER TO BUFFER
00011 0604 00 0 00034 STI ARY .. SAVE
00012 -0054 00 200000 LFT 200000 IS THIS A 'BLK'
00013 -0054 00 100000 LFT 100000 ..
00014 0020 00 0 00030 TRA START .. NO
00015 -0625 00 0 00076 STL FLIP THIS IS A MAD CALL, BACKWARDS BUFFER
00016 -0500 00 4 00001 CAL 1,4 GET ADDRESS OF LAST WORD
00017 0737 00 1 00000 PAC ,1 .. SAVE
00020 0400 00 0 00077 ADD =1 ADJUST
00021 -0535 00 4 00034 LDC ARY,4 POINTER TO WORD COUNT
00022 0402 00 4 00000 SUB 0,4 COMPUTE ADDRESS OF FIRST WORD
00023 0621 00 0 00034 STA ARY PUT AWAY
00024 0737 00 2 00000 PAC ,2 .. SAVE
00025 -0500 00 4 00000 CAL 0,4 PICK UP WORD COUNT
00026 0734 00 4 00000 PAX ,4 ..
00027 -0634 00 4 00034 SXD ARY,4 ..
00030 0074 00 4 00000 START TSX RDFLXA,4 READ INPUT LINE
00031 3 00016 0 00060 PAR LINE,,14 ..
00032 0074 00 4 00001 TSX PARSE,4 SCAN FOR BLANKS
00033 3 00016 0 00060 PAR LINE,,14 ..
00034 3 00000 0 00000 ARY PAR -,,- ..
00035 3 00000 0 00054 PAR RDMORE .. UNFINISHED LINE RETURN
00036 -0520 00 0 00076 NZT FLIP WAS THIS MAD CALL
00037 0020 00 0 00050 TRA RETURN .. NO
00040 -0500 00 1 00000 LOOP CAL 0,1 INVERT ARRAY
00041 0560 00 2 00000 LDQ 0,2 ..
00042 0602 00 2 00000 SLW 0,2 ..
00043 -0600 00 1 00000 STQ 0,1 ..
00044 1 77777 2 00045 TXI *+1,2,-1 INCREMENT UPPER POINTER
00045 1 00001 1 00046 TXI *+1,1,1 .. AND LOWER POINTER
00046 -0634 00 1 00047 SXD *+1,1 ..
00047 3 00000 2 00040 TXH LOOP,2,- REPEAT
00050 RETURN RETURN (2,4),RD(X1,X2,X4,MTM) RETURN TO CALLER
00054 0074 00 4 00000 RDMORE TSX RDFLXA,4 HERE FOR LINE WITH NO C.R.
00055 3 00016 0 00060 PAR LINE,,14 .. READ SOME MORE
00056 0074 00 4 00002 TSX RPARSE,4 .. AND CONTINUE SCAN
00057 3 00016 0 00060 PAR LINE,,14 ..
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 04/27/70 2024.7 PAGE 2
00060 LINE BSS 14 INPUT BUFFER
00076 0 00000 0 00000 FLIP PZE 0
00077 RMT *
END
LITERALS
00077 000000000001
1 M1416 3845 PETER R. BOS ..... READ/SCAN COMMAND FROM CONSOLE ...... 04/27/70 2024.7 PAGE 1
POST PROCESSOR ASSEMBLY DATA
100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
34 ARY 11, 21, 23, 27
76 FLIP 7, 15, 36
60 LINE 31, 33, 55, 57
40 LOOP 47
50 RDX1 3
51 RDX2 4
52 RDX4 5
1 PARSE 32
3 RDCOM 0
30 START 14
0 RDFLXA 30, 54
54 RDMORE 35
50 RETURN 37
2 RPARSE 56
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 04/27/70 2024.8 PAGE 1
PCC ON
NOLNK
00000 ENTRY PARSE ENTRY TO PARSE COMMAND LINE
00017 ENTRY RPARSE REENTRY FOR LONG LINE
00047 ENTRY ENDLIN FUDGE UP CARRIAGE RETURN
00103 ENTRY FLAG NON-ZERO IF FIRST WORD PROCESSED
LBL PARS
PCC OFF
00000 0634 00 4 00055 PARSE SXA PX4,4 ROUTINE TO PARSE LINE
00001 0760 00 0 00016 LMTM .. NEED 4
00002 -0500 00 0 00104 CAL BLANKS INITIALIZE
00003 0602 00 0 00101 SLW TEMP ..
00004 -0625 00 0 00102 STL BLNK ..
00005 0600 00 0 00103 STZ FLAG ..
00006 -0500 00 4 00002 CAL 2,4 PICK UP BUFFER LOCATION
00007 -0734 00 5 00000 PDX ,5 ..
00010 0754 00 5 00000 PXA ,5 ..
00011 1 00001 5 00012 TXI *+1,5,1 .. MAKE TNX WORK RIGHT
00012 0361 00 4 00002 ACL 2,4 ..
00013 0621 00 0 00070 STA PUT ..
00014 -0500 00 4 00003 CAL 3,4 GET END OF LINE RETURN
00015 0621 00 0 00046 STA EMPTY ..
00016 0020 00 0 00020 TRA *+2 .. SKIP RPARSE AXT
00017 0774 00 5 00000 RPARSE AXT -,5 REENTRY FOR NEW LINE
00020 0760 00 0 00016 LMTM .. JUST IN CASE
00021 -0500 00 4 00001 CAL 1,4 GET LINE LOCATION AND WORD COUNT
00022 -0734 00 7 00000 PDX ,7 ..
00023 0754 00 7 00000 PXA ,7 ..
00024 0361 00 4 00001 ACL 1,4 ..
00025 0621 00 0 00027 STA GET .. SAVE ADDRESS
00026 0774 00 6 00006 WRD AXT 6,6 SIX CHARACTERS PER WORD
00027 0560 00 7 00000 GET LDQ -,7 PICK UP NEXT WORD TO SCAN
00030 -0500 00 0 00101 CHR CAL TEMP HERE FOR NEXT CHAR, RESTORE PREVIOUS RESULT
00031 -0763 00 0 00006 LGL 6 SHIFT OUT A CHARACTER
00032 0044 00 0 00000 PAI SAVE AC
00033 -0320 00 0 00106 ANA =O77 MASK THIS CHARACTER
00034 0774 00 4 00006 AXT NSPCHR,4 LOOK FOR IT IN TABLE OF CONTROL CHARACTERS
00035 -0340 00 4 00101 LAS SPCHR,4 ..
00036 0020 00 0 00040 TRA *+2 ..
00037 0020 60 4 00102 TRA* SPCHR+1,4 .. SPECIAL CHAR. FOUND, GO DO IT
00040 2 00002 4 00035 TIX *-3,4,2 ..
00041 0604 00 0 00101 STI TEMP NORMAL CHARACTER, SAVE NEW RESULT
00042 0600 00 0 00102 STZ BLNK RESET BLANK WORD INDICATOR
00043 2 00001 6 00030 TIX TIX CHR,6,1 AND GO GET NEXT CHARACTER
00044 2 00001 7 00026 TIX WRD,7,1 OR NEXT WORD IF OUT OF CHARACTERS
00045 0634 00 5 00017 SXA RPARSE,5 HERE WHEN BUFFER EMPTY, SAVE X5
00046 0020 00 0 00000 EMPTY TRA - TAKE LINE EMPTY RETURN
00047 0534 00 5 00017 ENDLIN LXA RPARSE,5 END OF LINE W/O CARR. RET.
00050 0074 00 4 00064 ENDIN TSX STWRD,4 HERE FOR CARRIAGE RETURN
00051 -2 00001 5 00052 TNX *+1,5,1 .. DECREMENT COUNTER
00052 -0500 00 0 00105 CAL FENCE .. INSURE FENCE IS LAST ARGUMENT
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 04/27/70 2024.8 PAGE 2
00053 0522 00 0 00070 XEC PUT ..
00054 2 00001 5 00053 TIX *-1,5,1 .. FILL OUT REMAINDER OF BUFFER
00055 0774 00 4 00000 PX4 AXT -,4 RESTORE X4
00056 0020 00 4 00004 TRA 4,4 RETURN NORMALLY
00057 0074 00 4 00064 BLANK TSX STWRD,4 HERE FOR BLANK IN LINE, STORE CURRENT WORD
00060 -0500 00 0 00104 CAL BLANKS RESET TEMPORARY WORD
00061 0602 00 0 00101 SLW TEMP ..
00062 -0625 00 0 00102 STL BLNK INDICATE BLANK FOUND
00063 0020 00 0 00043 TRA TIX KEEP LOOKING
00064 0520 00 0 00102 STWRD ZET BLNK ROUTINE TO STORE WORD IN BUFFER
00065 0020 00 4 00001 TRA 1,4 EXIT FOR REDUNDANT BLANKS
00066 -2 00001 5 00065 TNX *-1,5,1 EXIT IF BUFFER FILLED
00067 -0500 00 0 00101 CAL TEMP GET THIS WORD
00070 0602 00 5 00000 PUT SLW -,5 PUT IT AWAY
00071 -0625 00 0 00103 STL FLAG INDICATE WORD FOUND
00072 0020 00 4 00001 TRA 1,4 RETURN
00073 TSPCHR SYN * TABLE OF CONTROL CHARACTERS FOR PARSE
00073 +000000000055 OCT 55 CARRIAGE RETURN
00074 0020 00 0 00050 TRA ENDIN .. ENDS LINE
00075 +000000000057 OCT 57 NULL (UNLIKELY)
00076 0020 00 0 00043 TRA TIX .. IS IGNORED
00077 +000000000060 OCT 60 BLANK
00100 0020 00 0 00057 TRA BLANK .. MARKS WORD
00101 SPCHR SYN * ..
00006 NSPCHR EQU *-TSPCHR TABLE COUNT
00101 0 00000 0 00000 TEMP PZE
00102 0 00000 0 00000 BLNK PZE
00103 0 00000 0 00000 FLAG PZE
00104 606060606060 BLANKS BCI 1,
00105 -377777777777 FENCE OCT 777777777777
END
LITERALS
00106 000000000077
1 M1416 3845 PETER R. BOS .... PARSE, RPARSE, ENDLIN ... COMMAND SCANNER 04/27/70 2024.8 PAGE 1
POST PROCESSOR ASSEMBLY DATA
107 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
30 CHR 43
27 GET 25
70 PUT 13, 53
55 PX4 0
43 TIX 63, 76
26 WRD 44
102 BLNK 4, 42, 62, 64
103 FLAG 0, 5, 71
101 TEMP 3, 30, 41, 61, 67
57 BLANK 100
46 EMPTY 15
50 ENDIN 74
105 FENCE 52
0 PARSE 0
101 SPCHR 35, 37, 101
64 STWRD 50, 57
104 BLANKS 2, 60
47 ENDLIN 0
6 NSPCHR 34, 101
17 RPARSE 0, 45, 47
73 TSPCHR 73, 101
0 NO ERROR IN ABOVE ASSEMBLY.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 1
PETER R. BOS --- AUGUST 1967
PCC ON
NOLNK DELETE LINKAGE DIRECTOR.
00011 ENTRY .PRINT PRINT FORMAT FMT,LIST.
00013 ENTRY .COMNT PRINT ON LINE FORMAT FMT, LIST.
00066 ENTRY .PCOMT PRINT COMMENT $...$.
00101 ENTRY .SPRNT PRINT WITHOUT FORMAT CONVERSION.
00104 ENTRY .SCMNT PRINT ON LINE WITHOUT FORMAT.
00155 ENTRY PRFIL DECLARE OUTPUT FILE NAME.
00160 ENTRY PRSET SET MODE OF OUTPUT (ON OR OFF LINE).
00212 ENTRY PRGET GET LAST PERMANENT MODE SETTING.
LBL (SPH) BINARY CARD LABEL.
PCC OFF
$.PRINT, PROCESS MAD PRINT FORMAT STATEMENT.
TRANSFER VECTOR
00000 743146303460 (IOH)
00001 665126436721 WRFLXA
00002 665126436760 WRFLX
00003 222666513163 BFWRIT
00004 222623434662 BFCLOS
00005 222646472545 BFOPEN
00006 222623462425 BFCODE
00007 314625515160 IOERR
00010 256731636060 EXIT
00011 0600 00 0 02655 .PRINT STZ CMT SET INDICATOR.
00012 0020 00 0 00014 TRA *+2 AND SKIP .COMNT.
$.COMNT, PROCESS PRINT ON LINE FORMAT STATEMENT.
00013 -0625 00 0 02655 .COMNT STL CMT SET INDICATOR.
00014 -0500 00 0 00002 CAL 2 SAVE CURRENT LOC. 2.
00015 0602 00 0 02656 SLW TEMP ..
00016 -0500 00 0 00023 CAL TRAP SET STR TRAP RETURN.
00017 0602 00 0 00002 SLW 2 ..
00020 0600 00 0 00000 STZ 0 CLEAR OUT TRAP CELL.
00021 -0634 00 4 77740 SXD L77740,4 SAVE XR4 FOR (IOH).
00022 0020 00 4 00001 TRA 1,4 RETURN FOR CONTROL WORD.
00023 0020 00 0 00024 TRAP TRA *+1 TRAP RETURN FOR STR.
00024 -0500 00 0 02656 CAL TEMP RESTORE LOC. 2
00025 0602 00 0 00002 SLW 2 ..
00026 0634 00 4 00064 SXA XR4,4 SAVE XR4.
00027 0535 00 4 00000 LAC 0,4 GET TRAP LOCATION.
00030 -0500 00 4 77777 CAL -1,4 GET CONTROL WORD.
00031 -0734 00 4 00000 PDX 0,4 TEST FOR FORMAT DIRECTION.
00032 0560 00 0 02664 LDQ REV DECR=1, MAD CALL.
00033 3 00000 4 00035 TXH *+2,4,0 ..
00034 0560 00 0 02663 LDQ FWD DECR=0, FAP CALL.
00035 0600 00 0 77771 STZ L77771 CLEAR SYMBOL TABLE POINTER.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 2
PETER R. BOS --- AUGUST 1967
00036 -3 00001 4 00047 TXL FMT,4,1 TEST FOR SYMBOL TABLE.
00037 0560 00 0 02664 LDQ REV SYMBOL TABLE SPECIFIED.
00040 0600 00 0 02656 STZ TEMP RESET TEST CELL.
00041 0625 00 0 02656 STT TEMP DIRECTION GIVEN IN TAG.
00042 -0520 00 0 02656 NZT TEMP TAG=1, MAD CALL.
00043 0560 00 0 02663 LDQ FWD TAG=0, FAP CALL.
00044 0621 00 0 77771 STA L77771 SAVE SYMBOL TABLE POINTER FOR (IOH).
00045 -0734 00 4 00000 PDX 0,4 FORMAT POINTER TO ADDRESS.
00046 0754 00 4 00000 PXA 0,4 ..
00047 -0600 00 0 02656 FMT STQ TEMP SAVE PARTIAL CONTROL WORD.
00050 0774 00 4 00127 AXT WRT,4 SET UP OUTPUT TRANSMISSION ADDRESS.
00051 -0520 00 0 02661 NZT SWT TEST IF ON OR OFF LINE .PRINT.
00052 0520 00 0 02655 ZET CMT TEST IF .COMNT (ON LINE).
00053 0774 00 4 00105 AXT PRT,4 IF ON LINE, SET FOR WRFLX.
00054 0634 00 4 02656 SXA TEMP,4 INSERT IN CONTROL WORD.
00055 0560 00 0 02656 LDQ TEMP GET WORD.
00056 -0600 00 0 77737 STQ L77737 AND INSERT FOR (IOH).
00057 -0501 00 0 02663 ORA FWD GET TXH PREFIX.
00060 0621 00 0 77740 STA L77740 FORMAT ADDRESS.
00061 0630 00 0 77740 STP L77740 INSERT FOR (IOH).
00062 -0500 00 0 02665 CAL COL GET LINE WIDTH SPECIFICATION.
00063 0602 00 0 77741 SLW L77741 INSERT FOR (IOH).
00064 0774 00 4 00000 XR4 AXT -,4 RESTORE XR4.
00065 0020 60 0 00000 TRA* $(IOH) EXIT TO (IOH) FOR CONVERSION.
$.PCOMT, PROCESS PRINT COMMENT STATEMENT.
00066 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT.
00067 1 77776 4 00070 TXI *+1,4,-2 SET XR4 TO (-BUFF).
00070 0634 00 4 00077 SXA .PCX4,4 SAVE XR4.
00071 0636 00 4 00076 SCA PBF,4 SAVE BUFFER ADDRESS.
00072 0621 00 0 00100 STA RTN SET UP RETURN LOCATION.
00073 0734 00 4 00000 PAX 0,4 GET WORD COUNT.
00074 -0634 00 4 00076 SXD PBF,4 INSERT IN CONTROL WORD.
00075 0074 00 4 00101 TSX .SPRNT,4 PRINT LINE.
00076 0 00000 0 00000 PBF PZE -,0,- ..
00077 0774 00 4 00000 .PCX4 AXT -,4 RESTORE XR4.
00100 0020 00 4 00000 RTN TRA -,4 RETURN.
$.SPRNT, PRINT WITHOUT FORMAT CONVERSION.
00101 -0520 00 0 02661 .SPRNT NZT SWT TEST IF ON OR OFF LINE.
00102 0020 00 0 00127 TRA WRT ON LINE.
00103 0020 00 0 00105 TRA PRT OFF LINE.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 3
PETER R. BOS --- AUGUST 1967
$.SCMNT, PRINT ON LINE WITHOUT FORMAT.
00104 0020 00 0 00105 .SCMNT TRA PRT ON LINE.
PRT, PRINT ON LINE THROUGH WRFLX.
00105 0634 00 4 00125 PRT SXA PX4,4 SAVE XR4.
00106 -0500 00 4 00001 CAL 1,4 GET POINTER TO BUFFER.
00107 -0734 00 4 00000 PDX 0,4 WORD COUNT.
00110 -2 00016 4 00121 TNX SHORT,4,N IF LESS THAN N WORDS, SKIP.
00111 0621 00 0 00117 STA L1 BUFF.
00112 -0634 00 4 00124 SXD L2,4 WDCT-N.
00113 0734 00 4 00000 PAX 0,4 ..
00114 1 00016 4 00115 TXI *+1,4,N BUFF+N.
00115 0634 00 4 00124 SXA L2,4 INSERT FOR SECOND HALF.
00116 0074 00 4 00001 TSX $WRFLXA,4 WRITE OUT FIRST PART
00117 0 00016 0 00000 L1 PZE -,0,N OF LINE ON CONSOLE.
00120 0020 00 0 00123 TRA *+3 SKIP.
00121 0621 00 0 00124 SHORT STA L2 LESS THAN N WORDS,
00122 0622 00 0 00124 STD L2 SAVE POINTER.
00123 0074 00 4 00002 TSX $WRFLX,4 WRITE OUT LINE OR
00124 0 00000 0 00000 L2 PZE -,0,- SECOND PART OF LINE.
00125 0774 00 4 00000 PX4 AXT -,4 RESTORE XR4.
00126 0020 00 4 00002 TRA 2,4 RETURN TO (IOH).
WRT, WRITE INTO DISK FILE FOR OFF-LINE PRINTING.
00127 0634 00 4 00153 WRT SXA WX4,4 SAVE XR4.
00130 -0500 00 4 00001 CAL 1,4 GET CONTROL WORD.
00131 0734 00 4 00000 PAX 0,4 BUFFER ADDRESS.
00132 1 77777 4 00133 TXI *+1,4,-1 EXTRA WORD FOR LINE MARK.
00133 0634 00 4 00147 SXA WRLOC,4 INSERT FOR WRFILE.
00134 -0734 00 4 00000 PDX 0,4 WDCT.
00135 0754 00 4 00000 PXA 0,4 TO ADDRESS.
00136 -0501 00 0 02670 ORA =O777777000000 OR IN LINE MARK.
00137 1 00001 4 00140 TXI *+1,4,1 INCREASE WDCT FOR LINE MARK.
00140 -0634 00 4 00147 SXD WRLOC,4 INSERT FOR WRFILE.
00141 0560 60 0 00147 LDQ* WRLOC SAVE BUFF-1.
00142 -0600 00 0 02656 STQ TEMP ..
00143 0602 60 0 00147 SLW* WRLOC INSERT LINE MARK IN BUFFER.
00144 0074 00 4 00003 TSX $BFWRIT,4 WRITE LINE ON DISK.
00145 3 00000 0 02657 PAR NAME1 ..
00146 3 00000 0 02660 PAR NAME2 ..
00147 3 00000 0 00000 WRLOC PAR -,,- ..
00150 3 00000 0 00214 PAR BFERR ..
00151 -0500 00 0 02656 CAL TEMP RESTORE BUFF-1.
00152 0602 60 0 00147 SLW* WRLOC ..
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 4
PETER R. BOS --- AUGUST 1967
00153 0774 00 4 00000 WX4 AXT -,4 RESTORE XR4.
00154 0020 00 4 00002 TRA 2,4 RETURN TO (IOH).
$PRFIL, DECLARE OUTPUT FILE NAME.
00155 -0500 60 4 00001 PRFIL CAL* 1,4 GET NAME.
00156 0602 00 0 02657 SLW NAME1 INSERT.
00157 0020 00 4 00002 TRA 2,4 RETURN.
$PRSET, SET MODE OF OUTPUT FOR .PRINT.
00160 0634 00 4 00210 PRSET SXA PRX4,4 SAVE XR4.
00161 0500 60 4 00001 CLA* 1,4 GET CONTROL WORD.
00162 -0120 00 0 00164 TMI *+2 IF TEMPORARY SETTING, SKIP.
00163 0601 00 0 02662 STO OLDMOD ELSE, SET FLAG.
00164 0100 00 0 00175 TZE OFFLIN 1 FOR ON-LINE, 0 FOR OFF-LINE.
00165 0520 00 0 02661 ONLIN ZET SWT TEST IF ALREADY SET.
00166 0020 00 4 00002 TRA 2,4 YES, EXIT.
00167 0074 00 4 00004 TSX $BFCLOS,4 OTHERWISE, CLOSE OUTPUT FILE.
00170 3 00000 0 02657 PAR NAME1 ..
00171 3 00000 0 02660 PAR NAME2 ..
00172 3 00000 0 00214 PAR BFERR ..
00173 -0625 00 0 02661 STL SWT SET SWITCH.
00174 0020 00 0 00210 TRA PRX4 EXIT.
00175 -0520 00 0 02661 OFFLIN NZT SWT TEST IF ALREADY SET.
00176 0020 00 4 00002 TRA 2,4 YES, EXIT.
00177 0074 00 4 00005 TSX $BFOPEN,4 OTHERWISE, OPEN OUTPUT FILE.
00200 3 00000 0 02667 PAR =HW ..
00201 3 00000 0 02657 PAR NAME1 ..
00202 3 00000 0 02660 PAR NAME2 ..
00203 3 00000 0 00224 PAR BUF1 ..
00204 3 00000 0 01104 PAR BUF2 ..
00205 3 00000 0 01764 PAR BUF3 ..
00206 3 00000 0 00214 PAR BFERR ..
00207 0600 00 0 02661 STZ SWT SET SWITCH.
00210 0774 00 4 00000 PRX4 AXT -,4 RESTORE XR4.
00211 0020 00 4 00002 TRA 2,4 RETURN.
$PRGET, FIND LAST PERMANENT MODE SETTING.
00212 -0500 00 0 02662 PRGET CAL OLDMOD GET MODE FLAG.
00213 0020 00 4 00001 TRA 1,4 RETURN.
ERROR RETURN FROM BFOPEN, ETC.
00214 0074 00 4 00006 BFERR TSX $BFCODE,4 ERROR, GET CODE.
00215 0100 60 0 00007 TZE* $IOERR IF FILE SYSTEM, ERROR, EXIT.
00216 0767 00 0 00036 ALS 30 SHIFT FOR PRINTING.
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 5
PETER R. BOS --- AUGUST 1967
00217 -0501 00 0 02666 ORA =H0. OR IN BLANKS.
00220 0602 00 0 02654 SLW ERR+8 INSERT IN COMMENT.
00221 0074 00 4 00002 TSX $WRFLX,4 PRINT ERROR COMMENT.
00222 0 00011 0 02644 PZE ERR,0,9 ..
00223 0074 00 4 00010 TSX $EXIT,4 CALL EXIT.
STORAGE AND CONSTANTS.
00224 BUF1 BSS 432 BUFFERS FOR DISK OUTPUT.
01104 BUF2 BSS 432 ..
01764 BUF3 BSS 432 ..
02644 746247303473 ERR BCI 9,(SPH), ERROR RETURN FROM BFREAD PACKAGE, ERRCOD=0.
02645 602551514651
02646 605125636451
02647 456026514644
02650 602226512521
02651 246047212342
02652 212725736025
02653 515123462413
02654 003360606060
00026 IOHBUF EQU 22 BUFFER LENGTH FOR (IOH).
00016 N EQU 14 BUFFER LENGTH FOR WRFLX.
02655 0 00000 0 00000 CMT PZE .PRINT/.COMNT SWITCH.
02656 0 00000 0 00000 TEMP PZE TEMPORARY STORAGE AND TEST CELL.
02657 0 00000 0 00000 NAME1 PZE OUTPUT FILE NAME.
02660 466463476463 NAME2 BCI 1,OUTPUT ..
02661 0 00000 0 00001 SWT PZE 1 START IN ON-LINE MODE.
02662 0 00000 0 00000 OLDMOD PZE PERMANENT MODE FLAG.
02663 3 77777 0 00000 FWD TXH -,0,-1 USED TO CALL (IOH).
02664 3 00001 0 00000 REV TXH -,0,+1 ..
02665 -3 00204 0 00000 COL TXL 0,0,132 ..
77771 COMMON -200 ERASABLE.
77771 L77771 COMMON 1 ..
77741 COMMON IOHBUF+1 ..
77741 L77741 COMMON 1 ..
77740 L77740 COMMON 1 ..
77737 L77737 COMMON 1 ..
END
LITERALS
02666 003360606060
02667 666060606060
02670 777777000000
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
77736 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
2671 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 N 110, 114, 117, 2655
117 L1 111
124 L2 112, 115, 121, 122
2655 CMT 11, 13, 52
2665 COL 62
2644 ERR 220, 222
47 FMT 36
2663 FWD 34, 43, 57
76 PBF 71, 74
105 PRT 53, 103, 104
125 PX4 105
2664 REV 32, 37
100 RTN 72
2661 SWT 51, 101, 165, 173, 175, 207
127 WRT 50, 102
153 WX4 127
64 XR4 26
224 BUF1 203
1104 BUF2 204
1764 BUF3 205
10 EXIT 223
210 PRX4 160, 174
2656 TEMP 15, 24, 40, 41, 42, 47, 54, 55, 142, 151
23 TRAP 16
214 BFERR 150, 172, 206
7 IOERR 215
77 .PCX4 70
2657 NAME1 145, 156, 170, 201
2660 NAME2 146, 171, 202
165 ONLIN
155 PRFIL 0
212 PRGET 0
160 PRSET 0
121 SHORT 110
2 WRFLX 123, 221
147 WRLOC 133, 140, 141, 143, 152
0 (IOH) 65
4 BFCLOS 167
6 BFCODE 214
5 BFOPEN 177
3 BFWRIT 144
26 IOHBUF 2655, 2666
13 .COMNT 0
66 .PCOMT 0
11 .PRINT 0
104 .SCMNT 0
101 .SPRNT 0, 75
77737 L77737 56, 2666
77740 L77740 21, 60, 61, 2666
77741 L77741 63, 2666
1 .PRINT, .COMNT, ETC.- PROCESS PRINTED OUTPUT. 04/27/70 2024.9 PAGE 2
POST PROCESSOR ASSEMBLY DATA
77771 L77771 35, 44, 2666
175 OFFLIN 164
2662 OLDMOD 163, 212
1 WRFLXA 116
0 NO ERROR IN ABOVE ASSEMBLY.
1 M1416 3845 PETER R. BOS ..... PROGRAM TO PROCESS FILE SYSTEM EOF ..... 04/27/70 2025.1 PAGE 1
PCC ON
NOLNK
00001 ENTRY RDEOF
00017 ENTRY WREOF
LBL EOF
PCC OFF
EXTERN WRWAIT
UNLIST
00001 RDEOF SAVE ,(X4,MTM) SAVE LINKAGE
00003 -0500 00 4 00004 CAL 4,4 PICK UP WORD COUNT
00004 0074 00 7 00044 TSX BLKPAR,7 ..
00005 0771 00 0 00022 ARS 18 ..
00006 0734 00 7 00000 PAX ,7 .. SAVE WORD COUNT
00007 0361 00 4 00004 ACL 4,4 COMPUTE BOTTOM ADDRESS
00010 0621 00 0 00014 STA STZ ..
00011 0754 00 7 00000 PXA ,7 .. RESTORE WORD COUNT
00012 0402 60 4 00006 SUB* 6,4 .. LESS NUMBER WORDS READ
00013 0734 00 4 00000 PAX ,4 ..
00014 0600 00 4 00000 STZ STZ -,4 CLEAR REMAINDER OF DATA AREA
00015 2 00001 4 00014 TIX *-1,4,1 ..
00016 0020 00 0 00042 TRA RETURN RETURN
00017 WREOF SAVE ,(X4,MTM) SAVE LINKAGE
00021 -0500 00 4 00001 CAL 1,4 SET UP POINTERS
00022 0621 00 0 00036 STA WR+1 ..
00023 -0500 00 4 00002 CAL 2,4 ..
00024 0621 00 0 00037 STA WR+2 ..
00025 -0500 00 4 00004 CAL 4,4 PICK UP DATA ADDRESS
00026 0400 60 4 00006 ADD* 6,4 PLUS WORD COUNT WRITTEN
00027 0621 00 0 00041 STA WR+4 ..
00030 0074 00 7 00044 TSX BLKPAR,7 GET WORD COUNT REQUESTED
00031 0771 00 0 00022 ARS 18 ..
00032 0402 60 4 00006 SUB* 6,4 LESS WORDS WRITTEN
00033 0767 00 0 00022 ALS 18 ..
00034 0622 00 0 00041 STD WR+4 WORD COUNT FOR REMAINDER
00035 WR CALL WRWAIT(-,-,=0,(-,,-)) WRITE REST OF DATA
00042 RETURN RETURN (7,4),,(X4,MTM) RETURN TO ORIGINAL CALLER
00044 0044 00 0 00000 BLKPAR PAI ROUTINE TO CONVERT BLK TO PAR
00045 -0054 00 200000 LFT 200000 IS BLK BIT ON
00046 -0054 00 100000 LFT 100000 YES, IS PAR BIT OFF
00047 0020 00 7 00001 TRA 1,7 .. NO
00050 -0765 00 0 00022 LGR 18 POINTER TO WORD COUNT, SAVE ADDRESS
00051 0621 00 0 00052 STA *+1 ..
00052 -0500 00 0 00000 CAL - PICK UP TRUE WORD COUNT
00053 -0763 00 0 00022 LGL 18 SHIFT TO AC
00054 0020 00 7 00001 TRA 1,7 RETURN
1 M1416 3845 PETER R. BOS ..... PROGRAM TO PROCESS FILE SYSTEM EOF ..... 04/27/70 2025.1 PAGE 2
00055 RMT *
END
LITERALS
00055 000000000000
1 M1416 3845 PETER R. BOS ..... PROGRAM TO PROCESS FILE SYSTEM EOF ..... 04/27/70 2025.1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
56 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
35 WR 22, 24, 27, 34
42 X4 1, 17
14 STZ 10
1 RDEOF 0
17 WREOF 0
44 BLKPAR 4, 30
42 RETURN 16
0 WRWAIT 35
0 NO ERROR IN ABOVE ASSEMBLY.
1 DUMMY RECOUP FOR FORMAT ERRORS 04/27/70 2025.2 PAGE 1
00005 ENTRY RECOUP
00002 ENTRY RCOUPX
LINKAGE DIRECTOR
00000 000000000000
00001 512523466447
00002 -0500 00 4 00001 RCOUPX CAL 1,4
00003 0621 00 0 00006 STA RECOUP+1
00004 0020 00 4 00002 TRA 2,4
00005 0760 00 0 00016 RECOUP LMTM JUST IN CASE
00006 0020 00 0 00000 TRA -
END
1 DUMMY RECOUP FOR FORMAT ERRORS 04/27/70 2025.2 PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 RCOUPX 0
5 RECOUP 0, 3
0 NO ERROR IN ABOVE ASSEMBLY.
TRACKS BCD 10/12/70 1510.5 8735 00000
1 MAD PROGRAM LISTING ... ... ... FILE T MAD 02/25/69 1954.1
-
NORMAL MODE IS INTEGER *001 LM00001
BOOLEAN NEW,NEW1 *002 LM00002
DIMENSION ME(2),STATUS(7),B(431) *003 LM00003
VECTOR VALUES R=$R$ *004 LM00004
VECTOR VALUES RW=$RW$ *005 LM00005
VECTOR VALUES FENCE=777777777777K *006 LM00006
VECTOR VALUES SP=605757575757K *007 LM00007
VECTOR VALUES IS=603162605757K *008 LM00008
LM00009
N=1 *009 LM00010
ATTNAM.(ME(2)...3) *010 LM00011
RCOMBT=COMLOC.($RCOMBT$,AARGH) *011 LM00012
RCALBT=COMLOC.($RCALBT$,AARGH) *012 LM00013
RPRVBT=COMLOC.($RPRVBT$,AARGH) *013 LM00014
UPRCBT=COMLOC.($UPRCBT$,AARGH).LS.18 *014 LM00015
GETCF.(COMFIL) *015 LM00016
RCODE=GLOC.(COMLOC.($URCODE$,AARGH)) *016 LM00017
SETBRK.(OUT) *017 LM00018
NEW=0B *018 LM00019
NEW1=1B *019 LM00020
LM00021
LOOP WHENEVER COMARG.(N,N1).E.FENCE *020 LM00022
WHENEVER NEW.OR.NEW1 *021 LM00023
DOUFD N1=$U.F.D.$ *022 LM00024
N2=$(FILE)$ *023 LM00025
N=N-2 *024 LM00026
TRANSFER TO CHECK *025 LM00027
END OF CONDITIONAL *026 LM00028
OUT WHENEVER RCODE.A.RCOMBT.NE.0, COMFL.(COMFIL.A.77K) *027 LM00029
WHENEVER RCODE.A.RCALBT.NE.0, ATTACH.(ME(2),ME(1),OUTERR) *028 LM00030
CHNCOM.(0) *029 LM00031
LM00032
OR WHENEVER N1.A.777777770077K.E.$(CFL0)$ *030 LM00033
WHENEVER NEW, TRANSFER TO DOUFD *031 LM00034
WHENEVER RCODE.A.RCOMBT.E.0, TRANSFER TO NOPRIV *032 LM00035
COMFL.((N1.RS.6).A.77K) *033 LM00036
N=N+1 *034 LM00037
NEW=1B *035 LM00038
LM00039
OR WHENEVER N1.E.$ (ATT)$ *036 LM00040
WHENEVER NEW, TRANSFER TO DOUFD *037 LM00041
WHENEVER RCODE.A.RCALBT.E.0, TRANSFER TO NOPRIV *038 LM00042
WHENEVER COMARG.(N+1,N1).E.FENCE.OR.COMARG.(N+2,N2) *039 LM00043
1 .E.FENCE, TRANSFER TO ILFRMT *039 LM00044
N1=REPROB.(N1) *040 LM00045
ATTACH.(N1,N2,ATTERR) *041 LM00046
N=N+3 *042 LM00047
NEW=1B *043 LM00048
LM00049
OTHERWISE *044 LM00050
WHENEVER COMARG.(N+1,N2).E.FENCE, TRANSFER TO ILFRMT *045 LM00051
CHECK NEW1=0B *046 LM00052
NEW=0B *047 LM00053
FSTATE.(N1,N2,STATUS(7)...8,FSERR) *048 LM00054
LM00055
WHENEVER STATUS(6).A.202K.NE.0.OR.(STATUS(6).A.20K.NE.0.AND. *049 LM00056
1 ME(0).NE.STATUS(0).A.777777K.AND.RCODE.A.RPRVBT.E. *049 LM00057
2 0).OR.(STATUS(6).A.10K.NE.0.AND.RCODE.A.UPRCBT.E.0) *049 LM00058
BADMOD PRMESS.(N1,SP,N2,IS,OCRBC.(STATUS(6)).V. *050 LM00059
1 575757000000K,$ MODE.$) *050 LM00060
LM00061
OTHERWISE *051 LM00062
WHENEVER STATUS(6).A.1K.E.0 *052 LM00063
STATUS=R *053 LM00064
OTHERWISE *054 LM00065
WHENEVER STATUS(6).A.4K.NE.0.AND.RCODE.A. *055 LM00066
1 UPRCBT.E.0, TRANSFER TO BADMOD *055 LM00067
STATUS=RW *056 LM00068
END OF CONDITIONAL *057 LM00069
WHENEVER N1.E.$U.F.D.$.AND.N2.E.$(FILE)$, UPDATE. *058 LM00070
OPEN.(STATUS,N1,N2,-0,-0,IOERR) *059 LM00071
NEWFIL.(N1,N2,OOPS) *060 LM00072
LM00073
TLOOP RDWAIT.(N1,N2,0,B(431)...432,EOF,TEMP,IOERR) *061 LM00074
TEMP=TRACKS.(0) *062 LM00075
PRMESS.(TEMP) *063 LM00076
TRANSFER TO TLOOP *064 LM00077
LM00078
EOF WHENEVER TEMP.NE.0 *065 LM00079
TEMP=TRACKS.(0) *066 LM00080
PRMESS.(TEMP) *067 LM00081
END OF CONDITIONAL *068 LM00082
CLOSE.(N1,N2,IOERR) *069 LM00083
END OF CONDITIONAL *070 LM00084
FSRTN PRMESS.($*$) *071 LM00085
N=N+2 *072 LM00086
END OF CONDITIONAL *073 LM00087
TRANSFER TO LOOP *074 LM00088
LM00089
AARGH PRMESS.($ERROR IN COMLOC$) *075 LM00090
TRANSFER TO OUT *076 LM00091
LM00092
OUTERR PRNTER.(375K) *077 LM00093
CHNCOM.(0) *078 LM00094
LM00095
NOPRIV PRMESS.($INSUFFICIENT PRIVILEGES$) *079 LM00096
TRANSFER TO OUT *080 LM00097
LM00098
ILFRMT PRMESS.($NOT ENOUGH ARGUMENTS$) *081 LM00099
TRANSFER TO OUT *082 LM00100
LM00101
ATTERR PRNTER.(375K) *083 LM00102
TRANSFER TO OUT *084 LM00103
LM00104
FSERR PRNTER.(61K) *085 LM00105
TRANSFER TO FSRTN *086 LM00106
LM00107
IOERR PRNTER.(375K) *087 LM00108
TEMP=TRACKS.(0) *088 LM00109
PRMESS.(TEMP) *089 LM00110
CLOSE.(N1,N2,FSRTN) *090 LM00111
TRANSFER TO FSRTN *091 LM00112
LM00113
OOPS PRMESS.(N1,SP,N2,$ NOT FOUND IN AFST$) *092 LM00114
CLOSE.(N1,N2,IOERR) *093 LM00115
TRANSFER TO FSRTN *094 LM00116
LM00117
END OF PROGRAM *095 LM00118
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01603 TRANSFER VECTOR LENGTH 00026 PROGRAM BEGINS 01036
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
AARGH 00027 4 FENCE 00730 A 1 ME 00734 A 1 OOPS 00043 4 R 00746 A 1
ATTERR 00030 4 FSERR 00035 4 N1 00735 1 OUTERR 00044 4 RW 00747 A 1
BADMOD 00031 4 FSRTN 00036 4 N2 00736 1 OUT 00045 4 SP 00750 A 1
B 00726 A 1 ILFRMT 00037 4 NEW1 00737 2 RCALBT 00742 1 STATUS 00760 A 1
CHECK 00032 4 IOERR 00040 4 NEW 00740 2 RCODE 00743 1 TEMP 00761 1
COMFIL 00727 1 IS 00731 A 1 NOPRIV 00042 4 RCOMBT 00744 1 TLOOP 00046 4
DOUFD 00033 4 LOOP 00041 4 N 00741 1 RPRVBT 00745 1 UPRCBT 00762 1
EOF 00034 4
0FUNCTION DICTIONARY
ATTACH 00000 1 ATTNAM 00001 1 CHNCOM 00002 1 CLOSE 00003 1 COMARG 00004 1
COMFL 00005 1 COMLOC 00006 1 EXIT 00007 1 FSTATE 00010 1 GETCF 00011 1
GLOC 00012 1 .SETUP 00013 1 NEWFIL 00014 1 OCRBC 00015 1 OPEN 00016 1
PRMESS 00017 1 PRNTER 00020 1 RDWAIT 00021 1 REPROB 00022 1 SETBRK 00023 1
TRACKS 00024 1 UPDATE 00025 1
0ABSOLUTE CONSTANTS
01012 -056021266263 01014 -066445246031 01024 -204546636026 00774 +000000000061 01027 -236260606060
01017 -112764442545 01013 -066427306021 01011 -054663602545 01007 -032527256260 01025 -204751316531
01004 +312331254563 01006 +314562642626 00777 +000000000375 01010 -034623606060 01005 +314560234644
01003 +255151465160 01021 -146060606060 01000 +000000000660 00767 +000000000004 01023 -204446242533
01022 -175757000000 00776 +000000000202 00772 +000000000020 01001 +000000777777 00771 +000000000010
01026 -207421636334 00770 +000000000006 01033 -342326430034 01035 -377777770077 00775 +000000000077
00765 +000000000002 01034 -342631432534 01030 -243326332433 00763 +000000000000 01032 -245123462425
00773 +000000000022 01031 -244751232263 01020 -114751652263 01015 -112321432263 01016 -112346442263
00766 +000000000003 00764 +000000000001 01002 +233000000000
0STATEMENT DICTIONARY
00027 TXL -301517001513 00030 TXL -301542001540 00031 TXL -301374001357 00032 TXL -301304001302
00033 TXL -301122001120 00034 TXL -301474001471 00035 TXL -301545001543 00036 TXL -301507001505
00037 TXL -301537001532 00040 TXL -301550001546 00041 TXL -301114001107 00042 TXL -301531001524
00043 TXL -301571001562 00044 TXL -301522001520 00045 TXL -301143001130 00046 TXL -301463001453
0PROGRAM
N'R 001 LM00001
BOOLEAN NEW,NEW1 002 LM00002
D'N ME(2),STATUS(7),B(431) 003 LM00003
V'S R=$R$ 004 LM00004
01036 TSX +0 07400 4 00013 00746 -1 16060 6 06060
V'S RW=$RW$ 005 LM00005
00747 -1 16660 6 06060
V'S FENCE=777777777777K 006 LM00006
00730 -3 77777 7 77777
V'S SP=605757575757K 007 LM00007
00750 -2 05757 5 75757
V'S IS=603162605757K 008 LM00008
00731 -2 03162 6 05757
N=1 009 LM00010
01037 CLA +0 50000 0 00764 01040 STO +0 60100 0 00741
ATTNAM.(ME(2)...3) 010 LM00011
01041 TSX +0 07400 4 00001 01042 TIX +2 00766 0 00732
RCOMBT=COMLOC.($RCOMBT$,AARGH) 011 LM00012
01043 TSX +0 07400 4 00006 01044 TXH +3 00000 0 01016 01045 TXH +3 00000 0 00027 01046 STO +0 60100 0 00744
RCALBT=COMLOC.($RCALBT$,AARGH) 012 LM00013
01047 TSX +0 07400 4 00006 01050 TXH +3 00000 0 01015 01051 TXH +3 00000 0 00027 01052 STO +0 60100 0 00742
RPRVBT=COMLOC.($RPRVBT$,AARGH) 013 LM00014
01053 TSX +0 07400 4 00006 01054 TXH +3 00000 0 01020 01055 TXH +3 00000 0 00027 01056 STO +0 60100 0 00745
UPRCBT=COMLOC.($UPRCBT$,AARGH).LS.18 014 LM00015
01057 TSX +0 07400 4 00006 01060 TXH +3 00000 0 01031 01061 TXH +3 00000 0 00027 01062 STO +0 60100 0 01577
01063 CAL -0 50000 0 00773 01064 STA +0 62100 0 01066 01065 CAL -0 50000 0 01577 01066 ALS +0 76700 0 00000
01067 SLW +0 60200 0 00762
GETCF.(COMFIL) 015 LM00016
01070 TSX +0 07400 4 00011 01071 TXH +3 00000 0 00727
RCODE=GLOC.(COMLOC.($URCODE$,AARGH)) 016 LM00017
01072 TSX +0 07400 4 00006 01073 TXH +3 00000 0 01032 01074 TXH +3 00000 0 00027 01075 STO +0 60100 0 01577
01076 TSX +0 07400 4 00012 01077 TXH +3 00000 0 01577 01100 STO +0 60100 0 00743
SETBRK.(OUT) 017 LM00018
01101 TSX +0 07400 4 00023 01102 TXH +3 00000 0 00045
NEW=0B 018 LM00019
01103 CLA +0 50000 0 00763 01104 STO +0 60100 0 00740
NEW1=1B 019 LM00020
01105 CLA +0 50000 0 00764 01106 STO +0 60100 0 00737
LOOP W'R COMARG.(N,N1).E.FENCE 020 LM00022
01107 TSX +0 07400 4 00004 01110 TXH +3 00000 0 00741 01111 TXH +3 00000 0 00735 01112 SUB +0 40200 0 00730
01113 TNZ -0 10000 0 01160
W'R NEW.OR.NEW1 021 LM00023
01114 ZET +0 52000 0 00737 01115 TRA +0 02000 0 01120 01116 NZT -0 52000 0 00740 01117 TRA +0 02000 0 01130
DOUFD N1=$U.F.D.$ 022 LM00024
01120 CLA +0 50000 0 01030 01121 STO +0 60100 0 00735
N2=$(FILE)$ 023 LM00025
01122 CLA +0 50000 0 01034 01123 STO +0 60100 0 00736
N=N-2 024 LM00026
01124 CLA +0 50000 0 00741 01125 SUB +0 40200 0 00765 01126 STO +0 60100 0 00741
T'O CHECK 025 LM00027
01127 TRA +0 02000 0 00032
E'L 026 LM00028
OUT W'R RCODE.A.RCOMBT.NE.0, COMFL.(COMFIL.A.77K) 027 LM00029
01130 CAL -0 50000 0 00743 01131 ANA -0 32000 0 00744 01132 SLW +0 60200 0 01577 01133 CLA +0 50000 0 01577
01134 SUB +0 40200 0 00763 01135 TZE +0 10000 0 01143 01136 CAL -0 50000 0 00727 01137 ANA -0 32000 0 00775
01140 SLW +0 60200 0 01577 01141 TSX +0 07400 4 00005 01142 TXH +3 00000 0 01577
W'R RCODE.A.RCALBT.NE.0, ATTACH.(ME(2),ME(1),OUTERR) 028 LM00030
01143 CAL -0 50000 0 00743 01144 ANA -0 32000 0 00742 01145 SLW +0 60200 0 01577 01146 CLA +0 50000 0 01577
01147 SUB +0 40200 0 00763 01150 TZE +0 10000 0 01155 01151 TSX +0 07400 4 00000 01152 TXH +3 00000 0 00732
01153 TXH +3 00000 0 00733 01154 TXH +3 00000 0 00044
CHNCOM.(0) 029 LM00031
01155 TSX +0 07400 4 00002 01156 TXH +3 00000 0 00763
O'R N1.A.777777770077K.E.$(CFL0)$ 030 LM00033
01157 TRA +0 02000 0 01512 01160 CAL -0 50000 0 00735 01161 ANA -0 32000 0 01035 01162 SLW +0 60200 0 01577
01163 CLA +0 50000 0 01577 01164 SUB +0 40200 0 01033 01165 TNZ -0 10000 0 01216
W'R NEW, T'O DOUFD 031 LM00034
01166 NZT -0 52000 0 00740 01167 TRA +0 02000 0 01171 01170 TRA +0 02000 0 00033
W'R RCODE.A.RCOMBT.E.0, T'O NOPRIV 032 LM00035
01171 CAL -0 50000 0 00743 01172 ANA -0 32000 0 00744 01173 SLW +0 60200 0 01577 01174 CLA +0 50000 0 01577
01175 SUB +0 40200 0 00763 01176 TNZ -0 10000 0 01200 01177 TRA +0 02000 0 00042
COMFL.((N1.RS.6).A.77K) 033 LM00036
01200 CAL -0 50000 0 00770 01201 STA +0 62100 0 01203 01202 CAL -0 50000 0 00735 01203 LGR -0 76500 0 00000
01204 ANA -0 32000 0 00775 01205 SLW +0 60200 0 01577 01206 TSX +0 07400 4 00005 01207 TXH +3 00000 0 01577
N=N+1 034 LM00037
01210 CLA +0 50000 0 00741 01211 ADD +0 40000 0 00764 01212 STO +0 60100 0 00741
NEW=1B 035 LM00038
01213 CLA +0 50000 0 00764 01214 STO +0 60100 0 00740
O'R N1.E.$ (ATT)$ 036 LM00040
01215 TRA +0 02000 0 01512 01216 CLA +0 50000 0 00735 01217 SUB +0 40200 0 01026 01220 TNZ -0 10000 0 01271
W'R NEW, T'O DOUFD 037 LM00041
01221 NZT -0 52000 0 00740 01222 TRA +0 02000 0 01224 01223 TRA +0 02000 0 00033
W'R RCODE.A.RCALBT.E.0, T'O NOPRIV 038 LM00042
01224 CAL -0 50000 0 00743 01225 ANA -0 32000 0 00742 01226 SLW +0 60200 0 01577 01227 CLA +0 50000 0 01577
01230 SUB +0 40200 0 00763 01231 TNZ -0 10000 0 01233 01232 TRA +0 02000 0 00042
W'R COMARG.(N+1,N1).E.FENCE.OR.COMARG.(N+2,N2) 039 LM00043
1 .E.FENCE, T'O ILFRMT 039 LM00044
01233 CLA +0 50000 0 00741 01234 ADD +0 40000 0 00765 01235 STO +0 60100 0 01577 01236 TSX +0 07400 4 00004
01237 TXH +3 00000 0 01577 01240 TXH +3 00000 0 00736 01241 SUB +0 40200 0 00730 01242 TZE +0 10000 0 01253
01243 CLA +0 50000 0 00741 01244 ADD +0 40000 0 00764 01245 STO +0 60100 0 01577 01246 TSX +0 07400 4 00004
01247 TXH +3 00000 0 01577 01250 TXH +3 00000 0 00735 01251 SUB +0 40200 0 00730 01252 TNZ -0 10000 0 01254
01253 TRA +0 02000 0 00037
N1=REPROB.(N1) 040 LM00045
01254 TSX +0 07400 4 00022 01255 TXH +3 00000 0 00735 01256 STO +0 60100 0 00735
ATTACH.(N1,N2,ATTERR) 041 LM00046
01257 TSX +0 07400 4 00000 01260 TXH +3 00000 0 00735 01261 TXH +3 00000 0 00736 01262 TXH +3 00000 0 00030
N=N+3 042 LM00047
01263 CLA +0 50000 0 00741 01264 ADD +0 40000 0 00766 01265 STO +0 60100 0 00741
NEW=1B 043 LM00048
01266 CLA +0 50000 0 00764 01267 STO +0 60100 0 00740
O'E 044 LM00050
01270 TRA +0 02000 0 01512
W'R COMARG.(N+1,N2).E.FENCE, T'O ILFRMT 045 LM00051
01271 CLA +0 50000 0 00741 01272 ADD +0 40000 0 00764 01273 STO +0 60100 0 01577 01274 TSX +0 07400 4 00004
01275 TXH +3 00000 0 01577 01276 TXH +3 00000 0 00736 01277 SUB +0 40200 0 00730 01300 TNZ -0 10000 0 01302
01301 TRA +0 02000 0 00037
CHECK NEW1=0B 046 LM00052
01302 CLA +0 50000 0 00763 01303 STO +0 60100 0 00737
NEW=0B 047 LM00053
01304 CLA +0 50000 0 00763 01305 STO +0 60100 0 00740
FSTATE.(N1,N2,STATUS(7)...8,FSERR) 048 LM00054
01306 TSX +0 07400 4 00010 01307 TXH +3 00000 0 00735 01310 TXH +3 00000 0 00736 01311 TIX +2 00771 0 00751
01312 TXH +3 00000 0 00035
W'R STATUS(6).A.202K.NE.0.OR.(STATUS(6).A.20K.NE.0.AND. 049 LM00056
1 ME(0).NE.STATUS(0).A.777777K.AND.RCODE.A.RPRVBT.E. 049 LM00057
2 0).OR.(STATUS(6).A.10K.NE.0.AND.RCODE.A.UPRCBT.E.0) 049 LM00058
01313 CAL -0 50000 0 00743 01314 ANA -0 32000 0 00762 01315 SLW +0 60200 0 01577 01316 CLA +0 50000 0 01577
01317 SUB +0 40200 0 00763 01320 TNZ -0 10000 0 01327 01321 CAL -0 50000 0 00752 01322 ANA -0 32000 0 00771
01323 SLW +0 60200 0 01577 01324 CLA +0 50000 0 01577 01325 SUB +0 40200 0 00763 01326 TNZ -0 10000 0 01357
01327 CAL -0 50000 0 00743 01330 ANA -0 32000 0 00745 01331 SLW +0 60200 0 01577 01332 CLA +0 50000 0 01577
01333 SUB +0 40200 0 00763 01334 TNZ -0 10000 0 01351 01335 CAL -0 50000 0 00760 01336 ANA -0 32000 0 01001
01337 SLW +0 60200 0 01577 01340 CLA +0 50000 0 00734 01341 SUB +0 40200 0 01577 01342 TZE +0 10000 0 01351
01343 CAL -0 50000 0 00752 01344 ANA -0 32000 0 00772 01345 SLW +0 60200 0 01577 01346 CLA +0 50000 0 01577
01347 SUB +0 40200 0 00763 01350 TNZ -0 10000 0 01357 01351 CAL -0 50000 0 00752 01352 ANA -0 32000 0 00776
01353 SLW +0 60200 0 01577 01354 CLA +0 50000 0 01577 01355 SUB +0 40200 0 00763 01356 TZE +0 10000 0 01375
BADMOD PRMESS.(N1,SP,N2,IS,OCRBC.(STATUS(6)).V. 050 LM00059
1 575757000000K,$ MODE.$) 050 LM00060
01357 TSX +0 07400 4 00015 01360 TXH +3 00000 0 00752 01361 STO +0 60100 0 01577 01362 CAL -0 50000 0 01577
01363 ORA -0 50100 0 01022 01364 SLW +0 60200 0 01577 01365 TSX +0 07400 4 00017 01366 TXH +3 00000 0 00735
01367 TXH +3 00000 0 00750 01370 TXH +3 00000 0 00736 01371 TXH +3 00000 0 00731 01372 TXH +3 00000 0 01577
01373 TXH +3 00000 0 01023
O'E 051 LM00062
01374 TRA +0 02000 0 01505
W'R STATUS(6).A.1K.E.0 052 LM00063
01375 CAL -0 50000 0 00752 01376 ANA -0 32000 0 00764 01377 SLW +0 60200 0 01577 01400 CLA +0 50000 0 01577
01401 SUB +0 40200 0 00763 01402 TNZ -0 10000 0 01406
STATUS=R 053 LM00064
01403 CLA +0 50000 0 00746 01404 STO +0 60100 0 00760
O'E 054 LM00065
01405 TRA +0 02000 0 01425
W'R STATUS(6).A.4K.NE.0.AND.RCODE.A. 055 LM00066
1 UPRCBT.E.0, T'O BADMOD 055 LM00067
01406 CAL -0 50000 0 00743 01407 ANA -0 32000 0 00762 01410 SLW +0 60200 0 01577 01411 CLA +0 50000 0 01577
01412 SUB +0 40200 0 00763 01413 TNZ -0 10000 0 01423 01414 CAL -0 50000 0 00752 01415 ANA -0 32000 0 00767
01416 SLW +0 60200 0 01577 01417 CLA +0 50000 0 01577 01420 SUB +0 40200 0 00763 01421 TZE +0 10000 0 01423
01422 TRA +0 02000 0 00031
STATUS=RW 056 LM00068
01423 CLA +0 50000 0 00747 01424 STO +0 60100 0 00760
E'L 057 LM00069
W'R N1.E.$U.F.D.$.AND.N2.E.$(FILE)$, UPDATE. 058 LM00070
01425 CLA +0 50000 0 00736 01426 SUB +0 40200 0 01034 01427 TNZ -0 10000 0 01434 01430 CLA +0 50000 0 00735
01431 SUB +0 40200 0 01030 01432 TNZ -0 10000 0 01434 01433 TSX +0 07400 4 00025
OPEN.(STATUS,N1,N2,-0,-0,IOERR) 059 LM00071
01434 CLS +0 50200 0 00763 01435 STO +0 60100 0 01577 01436 CLS +0 50200 0 00763 01437 STO +0 60100 0 01600
01440 TSX +0 07400 4 00016 01441 TXH +3 00000 0 00760 01442 TXH +3 00000 0 00735 01443 TXH +3 00000 0 00736
01444 TXH +3 00000 0 01600 01445 TXH +3 00000 0 01577 01446 TXH +3 00000 0 00040
NEWFIL.(N1,N2,OOPS) 060 LM00072
01447 TSX +0 07400 4 00014 01450 TXH +3 00000 0 00735 01451 TXH +3 00000 0 00736 01452 TXH +3 00000 0 00043
TLOOP RDWAIT.(N1,N2,0,B(431)...432,EOF,TEMP,IOERR) 061 LM00074
01453 TSX +0 07400 4 00021 01454 TXH +3 00000 0 00735 01455 TXH +3 00000 0 00736 01456 TXH +3 00000 0 00763
01457 TIX +2 01000 0 00047 01460 TXH +3 00000 0 00034 01461 TXH +3 00000 0 00761 01462 TXH +3 00000 0 00040
TEMP=TRACKS.(0) 062 LM00075
01463 TSX +0 07400 4 00024 01464 TXH +3 00000 0 00763 01465 STO +0 60100 0 00761
PRMESS.(TEMP) 063 LM00076
01466 TSX +0 07400 4 00017 01467 TXH +3 00000 0 00761
T'O TLOOP 064 LM00077
01470 TRA +0 02000 0 00046
EOF W'R TEMP.NE.0 065 LM00079
01471 CLA +0 50000 0 00761 01472 SUB +0 40200 0 00763 01473 TZE +0 10000 0 01501
TEMP=TRACKS.(0) 066 LM00080
01474 TSX +0 07400 4 00024 01475 TXH +3 00000 0 00763 01476 STO +0 60100 0 00761
PRMESS.(TEMP) 067 LM00081
01477 TSX +0 07400 4 00017 01500 TXH +3 00000 0 00761
E'L 068 LM00082
CLOSE.(N1,N2,IOERR) 069 LM00083
01501 TSX +0 07400 4 00003 01502 TXH +3 00000 0 00735 01503 TXH +3 00000 0 00736 01504 TXH +3 00000 0 00040
E'L 070 LM00084
FSRTN PRMESS.($*$) 071 LM00085
01505 TSX +0 07400 4 00017 01506 TXH +3 00000 0 01021
N=N+2 072 LM00086
01507 CLA +0 50000 0 00741 01510 ADD +0 40000 0 00765 01511 STO +0 60100 0 00741
E'L 073 LM00087
T'O LOOP 074 LM00088
01512 TRA +0 02000 0 00041
AARGH PRMESS.($ERROR IN COMLOC$) 075 LM00090
01513 TSX +0 07400 4 00017 01514 TXH +3 00000 0 01003 01515 TXH +3 00000 0 01005 01516 TXH +3 00000 0 01010
T'O OUT 076 LM00091
01517 TRA +0 02000 0 00045
OUTERR PRNTER.(375K) 077 LM00093
01520 TSX +0 07400 4 00020 01521 TXH +3 00000 0 00777
CHNCOM.(0) 078 LM00094
01522 TSX +0 07400 4 00002 01523 TXH +3 00000 0 00763
NOPRIV PRMESS.($INSUFFICIENT PRIVILEGES$) 079 LM00096
01524 TSX +0 07400 4 00017 01525 TXH +3 00000 0 01006 01526 TXH +3 00000 0 01004 01527 TXH +3 00000 0 01025
01530 TXH +3 00000 0 01007
T'O OUT 080 LM00097
01531 TRA +0 02000 0 00045
ILFRMT PRMESS.($NOT ENOUGH ARGUMENTS$) 081 LM00099
01532 TSX +0 07400 4 00017 01533 TXH +3 00000 0 01011 01534 TXH +3 00000 0 01013 01535 TXH +3 00000 0 01017
01536 TXH +3 00000 0 01027
T'O OUT 082 LM00100
01537 TRA +0 02000 0 00045
ATTERR PRNTER.(375K) 083 LM00102
01540 TSX +0 07400 4 00020 01541 TXH +3 00000 0 00777
T'O OUT 084 LM00103
01542 TRA +0 02000 0 00045
FSERR PRNTER.(61K) 085 LM00105
01543 TSX +0 07400 4 00020 01544 TXH +3 00000 0 00774
T'O FSRTN 086 LM00106
01545 TRA +0 02000 0 00036
IOERR PRNTER.(375K) 087 LM00108
01546 TSX +0 07400 4 00020 01547 TXH +3 00000 0 00777
TEMP=TRACKS.(0) 088 LM00109
01550 TSX +0 07400 4 00024 01551 TXH +3 00000 0 00763 01552 STO +0 60100 0 00761
PRMESS.(TEMP) 089 LM00110
01553 TSX +0 07400 4 00017 01554 TXH +3 00000 0 00761
CLOSE.(N1,N2,FSRTN) 090 LM00111
01555 TSX +0 07400 4 00003 01556 TXH +3 00000 0 00735 01557 TXH +3 00000 0 00736 01560 TXH +3 00000 0 00036
T'O FSRTN 091 LM00112
01561 TRA +0 02000 0 00036
OOPS PRMESS.(N1,SP,N2,$ NOT FOUND IN AFST$) 092 LM00114
01562 TSX +0 07400 4 00017 01563 TXH +3 00000 0 00735 01564 TXH +3 00000 0 00750 01565 TXH +3 00000 0 00736
01566 TXH +3 00000 0 01024 01567 TXH +3 00000 0 01014 01570 TXH +3 00000 0 01012
CLOSE.(N1,N2,IOERR) 093 LM00115
01571 TSX +0 07400 4 00003 01572 TXH +3 00000 0 00735 01573 TXH +3 00000 0 00736 01574 TXH +3 00000 0 00040
T'O FSRTN 094 LM00116
01575 TRA +0 02000 0 00036
E'M 095 LM00118
01576 TSX +0 07400 4 00007
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 02/25/69 1954.7 PAGE 1
00007 ENTRY NEWFIL
00110 ENTRY TRACKS
00105 ENTRY SETRKS
00123 ENTRY TRKS
EXTERN ATTNAM,ATTACH
EXTERN COMLOC
EXTERN GETLOC,DELBC
TRANSFER VECTOR
00000 216363452144 ATTNAM
00001 216363212330 ATTACH
00002 234644434623 COMLOC
00003 272563434623 GETLOC
00004 242543222360 DELBC
LINKAGE DIRECTOR
00005 000000000000
00006 452566263143
00007 0634 00 4 00101 NEWFIL SXA XR4,4
00010 0020 00 0 00011 GATE TRA *+1
00011 0074 00 4 00000 TSX ATTNAM,4
00012 3 00002 0 00127 PTH N1,,2
00013 0074 00 4 00002 TSX COMLOC,4
00014 3 00000 0 00136 PTH =HACTFIL
00015 3 00000 0 00103 PTH OOPS
00016 0621 00 0 00040 STA ACTFIL
00017 0074 00 4 00002 TSX COMLOC,4
00020 3 00000 0 00137 PTH =HAFSTU2
00021 3 00000 0 00103 PTH OOPS
00022 0400 00 0 00131 ADD AFSCON
00023 0621 00 0 00041 STA BASE
00024 0074 00 4 00001 TSX ATTACH,4
00025 3 00000 0 00127 PTH N1
00026 3 00000 0 00130 PTH N2
00027 3 00000 0 00030 PTH *+1
00030 0534 00 4 00101 LXA XR4,4
00031 -0625 00 0 00010 STL GATE
00032 -0500 60 4 00001 CAL* 1,4
00033 0602 00 0 00127 SLW N1
00034 -0500 60 4 00002 CAL* 2,4
00035 0602 00 0 00130 SLW N2
00036 0634 00 1 00077 SXA XR1,1
00037 0634 00 2 00100 SXA XR2,2
00040 0774 00 1 00000 ACTFIL AXT **,1
00041 -0774 00 2 00000 BASE AXC **,2
00042 0756 00 2 00000 FNDLOP PCA ,2
00043 0400 00 0 00132 ADD RPROBN
00044 0621 00 0 00046 STA *+2
00045 0074 00 4 00003 TSX GETLOC,4
00046 0 00000 0 00000 **
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 02/25/69 1954.7 PAGE 2
00047 0100 00 0 00066 TZE FNDNXT
00050 0756 00 2 00000 PCA ,2
00051 0400 00 0 00133 ADD RNAME1
00052 0621 00 0 00054 STA *+2
00053 0074 00 4 00003 TSX GETLOC,4
00054 0 00000 0 00000 **
00055 0322 00 0 00127 ERA N1
00056 -0100 00 0 00066 TNZ FNDNXT
00057 0756 00 2 00000 PCA ,2
00060 0400 00 0 00134 ADD RNAME2
00061 0621 00 0 00063 STA *+2
00062 0074 00 4 00003 TSX GETLOC,4
00063 0 00000 0 00000 **
00064 0322 00 0 00130 ERA N2
00065 0100 00 0 00074 TZE FOUND
00066 1 77752 2 00067 FNDNXT TXI *+1,2,-AFSENL
00067 2 00001 1 00042 TIX FNDLOP,1,1
00070 0534 00 1 00077 LXA XR1,1
00071 0534 00 2 00100 LXA XR2,2
00072 0534 00 4 00101 LXA XR4,4
00073 0020 60 4 00003 TRA* 3,4
00074 0756 00 2 00000 FOUND PCA ,2
00075 0400 00 0 00135 ADD SMTMP2
00076 0621 00 0 00112 STA TRKADR
00077 0774 00 1 00000 XR1 AXT **,1
00100 0774 00 2 00000 XR2 AXT **,2
00101 0774 00 4 00000 XR4 AXT **,4
00102 0020 00 4 00004 TRA 4,4
00103 0534 00 4 00101 OOPS LXA XR4,4
00104 0020 60 4 00003 TRA* 3,4
00105 -0500 00 0 00112 SETRKS CAL TRKADR
00106 0621 00 0 00125 STA TRKAD1
00107 0020 00 4 00001 TRA 1,4
00110 0634 00 4 00121 TRACKS SXA TX4,4
00111 0074 00 4 00003 TSX GETLOC,4
00112 0 00000 0 00000 TRKADR **
00113 0602 00 0 00127 SLW N1
00114 0074 00 4 00004 TSX DELBC,4
00115 3 00000 0 00127 PTH N1
00116 0131 00 0 00000 XCA
00117 -0773 00 0 00006 RQL 6
00120 -0130 00 0 00000 XCL
00121 0774 00 4 00000 TX4 AXT **,4
00122 0020 00 4 00001 TRA 1,4
00123 0634 00 4 00121 TRKS SXA TX4,4
00124 0074 00 4 00003 TSX GETLOC,4
00125 0 00000 0 00000 TRKAD1 **
00126 0020 00 0 00113 TRA TRKADR+1
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 02/25/69 1954.7 PAGE 3
00127 0 00000 0 00000 N1
00130 0 00000 0 00000 N2
00131 0 00000 0 00025 AFSCON PZE 21
00132 0 00000 0 00000 RPROBN PZE 0
00133 0 00000 0 00002 RNAME1 PZE 2
00134 0 00000 0 00003 RNAME2 PZE 3
00135 0 00000 0 00025 SMTMP2 PZE 21
00026 AFSENL EQU 22
END
LITERALS
00136 212363263143
00137 212662636402
1 FAP ASSEMBLY LISTING ... ... ... FILE TRACKS _____FAP___ 02/25/69 1954.7 PAGE 1
POST PROCESSOR ASSEMBLY DATA
140 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
127 N1 12, 25, 33, 55, 113, 115
130 N2 26, 35, 64
121 TX4 110, 123
77 XR1 36, 70
100 XR2 37, 71
101 XR4 7, 30, 72, 103
41 BASE 23
10 GATE 31
103 OOPS 15, 21
123 TRKS 0
4 DELBC 114
74 FOUND 65
40 ACTFIL 16
131 AFSCON 22
26 AFSENL 66, 136
1 ATTACH 24
0 ATTNAM 11
2 COMLOC 13, 17
42 FNDLOP 67
66 FNDNXT 47, 56
3 GETLOC 45, 53, 62, 111, 124
7 NEWFIL 0
133 RNAME1 51
134 RNAME2 60
132 RPROBN 43
105 SETRKS 0
135 SMTMP2 75
110 TRACKS 0
125 TRKAD1 106
112 TRKADR 76, 105, 126
0 NO ERROR IN ABOVE ASSEMBLY.
TSSPMT BCD 02/09/69 0651.2 4271 00000
1 MAD PROGRAM LISTING ... ... ... FILE TSSPMT MAD 10/29/68 1424.5
-
TSSPMT. - CREATE NEW PERMIT FILE FOR M1416 CMFL04 LM00001
THIS CREATES A PERMIT FILE WHICH ALLOWS LM00002
EVERYONE TO LINK TO THOSE FILES WHICH ARE LM00003
THEMSELVES LINKS. LM00004
LM00005
NORMAL MODE IS INTEGER *001 LM00006
DIMENSION UF(7), WHERE(2), B1(0), B2(0), BUFF(0) *002 LM00007
VECTOR VALUES UFD=$U.F.D.$ *003 LM00008
VECTOR VALUES FI= $(FILE)$ *004 LM00009
VECTOR VALUES PMT=$PERMIT$ *005 LM00010
VECTOR VALUES FIL=$ FILE$ *006 LM00011
LM00012
ATTNAM.(WHERE(1)...2) *007 LM00013
ATTACH.($ M1416$,$CMFL04$) *008 LM00014
STORGE.(2,QUOTA,USED) *009 LM00015
FERRTN.(OOPS) *010 LM00016
TEMPQ=USED+1 *011 LM00017
ALLOT.(2,TEMPQ) *012 LM00018
FSTATE.(UFD,FI,LTH...1) *013 LM00019
LTH=((LTH-3)/7)*6 *014 LM00020
GETBUF.(BUFF,LTH) *015 LM00021
GETBUF.(B1,432) *016 LM00022
GETBUF.(B2,432) *017 LM00023
N=0 *018 LM00024
LM00025
BFOPEN.($R$,UFD,FI,B1(B1+431),B2(B2+431),-0,OOPS) *019 LM00026
BFREAD.(UFD,FI,UF(7)...3,EOF,UF,OOPS) *020 LM00027
RD BFREAD.(UFD,FI,UF(7)...7,EOF,UF,OOPS) *021 LM00028
WHENEVER UF(7).E.0.AND.UF(6).E.0, TRANSFER TO RD *022 LM00029
WHENEVER F.(UF).E.0, PRMT.(UF(7),UF(6)) *023 LM00030
TRANSFER TO RD *024 LM00031
EOF BFCLOS.(UFD,FI,OOPS) *025 LM00032
OPEN.($W$,PMT,FIL,120K) *026 LM00033
BUFFER.(PMT,FIL,B1(B1+431)...432) *027 LM00034
TRFILE.(PMT,FIL,0) *028 LM00035
WRFILE.(PMT,FIL,0,BUFF(BUFF+N)...N) *029 LM00036
CLOSE.(PMT,FIL) *030 LM00037
ALLOT.(2,QUOTA) *031 LM00038
ATTACH.(WHERE(1),WHERE(0)) *032 LM00039
PRMESS.($*$) *033 LM00040
LM00041
CHNCOM.(0) *034 LM00042
LM00043
OOPS FERRTN.(0) *035 LM00044
CLOSE.($ALL$) *036 LM00045
ALLOT.(2,QUOTA) *037 LM00046
USRFIL. *038 LM00047
DSKER. *039 LM00048
LM00049
LM00050
INTERNAL FUNCTION F.(ARG)=ARG(3).A.700000K *040 LM00051
LM00052
INTERNAL FUNCTION (N1,N2) *041 LM00053
ENTRY TO PRMT. *042 LM00054
N=N+6 *043 LM00055
BUFF(BUFF+N)=LMARK *044 LM00056
BUFF(BUFF+N-1)=N1 *045 LM00057
BUFF(BUFF+N-2)=N2 *046 LM00058
BUFF(BUFF+N-3)=$ *$ *047 LM00059
BUFF(BUFF+N-4)=$ *$ *048 LM00060
BUFF(BUFF+N-5)=$ 104$ *049 LM00061
FUNCTION RETURN *050 LM00062
VECTOR VALUES LMARK=777777000005K *051 LM00063
END OF FUNCTION *052 LM00064
LM00065
END OF PROGRAM *053 LM00066
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00450 TRANSFER VECTOR LENGTH 00025 PROGRAM BEGINS 00110
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
B1 00033 A 1 FIL 00036 A 1 N 00042 1 RD 00032 4 UF 00056 A 1
B2 00034 A 1 FI 00037 A 1 OOPS 00031 4 TEMPQ 00045 1 USED 00057 1
BUFF 00035 A 1 LMARK 00040 A 1 PMT 00043 A 1 UFD 00046 A 1 WHERE 00062 A 1
EOF 00030 4 LTH 00041 1 QUOTA 00044 1
0FUNCTION DICTIONARY
ALLOT 00000 1 ATTACH 00001 1 ATTNAM 00002 1 BFCLOS 00003 1 BFOPEN 00004 1
BFREAD 00005 1 BUFFER 00006 1 CHNCOM 00007 1 CLOSE 00010 1 DSKER 00011 1
EXIT 00012 1 FERRTN 00013 1 FSTATE 00014 1 GETBUF 00015 1 .SETUP 00016 1
OPEN 00017 1 PRMESS 00020 1 STORGE 00021 1 TRFILE 00022 1 USRFIL 00023 1
WRFILE 00024 1 F 00025 1 PRMT 00026 1
0ABSOLUTE CONSTANTS
00105 -206060010004 00070 +000000000005 00067 +000000000004 00106 -206060606054 00076 +000000700000
00077 +214343606060 00103 -146060606060 00073 +000000000120 00107 -266060606060 00102 -116060606060
00074 +000000000657 00063 +000000000000 00075 +000000000660 00071 +000000000006 00072 +000000000007
00066 +000000000003 00101 +234426430004 00104 -204401040106 00065 +000000000002 00064 +000000000001
00100 +233000000000
0STATEMENT DICTIONARY
00030 TXL -300244000240 00031 TXL -300317000315 00032 TXL -300221000212
0PROGRAM
N'S INTEGER 001 LM00006
D'N UF(7), WHERE(2), B1(0), B2(0), BUFF(0) 002 LM00007
V'S UFD=$U.F.D.$ 003 LM00008
00110 TSX +0 07400 4 00016 00046 -2 43326 3 32433
V'S FI= $(FILE)$ 004 LM00009
00037 -3 42631 4 32534
V'S PMT=$PERMIT$ 005 LM00010
00043 -0 72551 4 43163
V'S FIL=$ FILE$ 006 LM00011
00036 -2 06026 3 14325
ATTNAM.(WHERE(1)...2) 007 LM00013
00111 TSX +0 07400 4 00002 00112 TIX +2 00065 0 00061
ATTACH.($ M1416$,$CMFL04$) 008 LM00014
00113 TSX +0 07400 4 00001 00114 TXH +3 00000 0 00104 00115 TXH +3 00000 0 00101
STORGE.(2,QUOTA,USED) 009 LM00015
00116 TSX +0 07400 4 00021 00117 TXH +3 00000 0 00065 00120 TXH +3 00000 0 00044 00121 TXH +3 00000 0 00057
FERRTN.(OOPS) 010 LM00016
00122 TSX +0 07400 4 00013 00123 TXH +3 00000 0 00031
TEMPQ=USED+1 011 LM00017
00124 CLA +0 50000 0 00057 00125 ADD +0 40000 0 00064 00126 STO +0 60100 0 00045
ALLOT.(2,TEMPQ) 012 LM00018
00127 TSX +0 07400 4 00000 00130 TXH +3 00000 0 00065 00131 TXH +3 00000 0 00045
FSTATE.(UFD,FI,LTH...1) 013 LM00019
00132 TSX +0 07400 4 00014 00133 TXH +3 00000 0 00046 00134 TXH +3 00000 0 00037 00135 TIX +2 00064 0 00041
LTH=((LTH-3)/7)*6 014 LM00020
00136 CLA +0 50000 0 00041 00137 SUB +0 40200 0 00066 00140 LRS +0 76500 0 00043 00141 DVP +0 22100 0 00072
00142 MPY +0 20000 0 00071 00143 STQ -0 60000 0 00041
GETBUF.(BUFF,LTH) 015 LM00021
00144 TSX +0 07400 4 00015 00145 TXH +3 00000 0 00035 00146 TXH +3 00000 0 00041
GETBUF.(B1,432) 016 LM00022
00147 TSX +0 07400 4 00015 00150 TXH +3 00000 0 00033 00151 TXH +3 00000 0 00075
GETBUF.(B2,432) 017 LM00023
00152 TSX +0 07400 4 00015 00153 TXH +3 00000 0 00034 00154 TXH +3 00000 0 00075
N=0 018 LM00024
00155 CLA +0 50000 0 00063 00156 STO +0 60100 0 00042
BFOPEN.($R$,UFD,FI,B1(B1+431),B2(B2+431),-0,OOPS) 019 LM00026
00157 CLS +0 50200 0 00063 00160 STO +0 60100 0 00445 00161 CLA +0 50000 0 00034 00162 ADD +0 40000 0 00074
00163 SUB +0 40200 0 00164 00164 TXH +3 00000 0 00034 00165 STA +0 62100 0 00200 00166 CLA +0 50000 0 00033
00167 ADD +0 40000 0 00074 00170 SUB +0 40200 0 00171 00171 TXH +3 00000 0 00033 00172 STA +0 62100 0 00177
00173 TSX +0 07400 4 00004 00174 TXH +3 00000 0 00102 00175 TXH +3 00000 0 00046 00176 TXH +3 00000 0 00037
00177 TXH +3 00000 0 00000 00200 TXH +3 00000 0 00000 00201 TXH +3 00000 0 00445 00202 TXH +3 00000 0 00031
BFREAD.(UFD,FI,UF(7)...3,EOF,UF,OOPS) 020 LM00027
00203 TSX +0 07400 4 00005 00204 TXH +3 00000 0 00046 00205 TXH +3 00000 0 00037 00206 TIX +2 00066 0 00047
00207 TXH +3 00000 0 00030 00210 TXH +3 00000 0 00056 00211 TXH +3 00000 0 00031
RD BFREAD.(UFD,FI,UF(7)...7,EOF,UF,OOPS) 021 LM00028
00212 TSX +0 07400 4 00005 00213 TXH +3 00000 0 00046 00214 TXH +3 00000 0 00037 00215 TIX +2 00072 0 00047
00216 TXH +3 00000 0 00030 00217 TXH +3 00000 0 00056 00220 TXH +3 00000 0 00031
W'R UF(7).E.0.AND.UF(6).E.0, T'O RD 022 LM00029
00221 CLA +0 50000 0 00050 00222 SUB +0 40200 0 00063 00223 TNZ -0 10000 0 00230 00224 CLA +0 50000 0 00047
00225 SUB +0 40200 0 00063 00226 TNZ -0 10000 0 00230 00227 TRA +0 02000 0 00032
W'R F.(UF).E.0, PRMT.(UF(7),UF(6)) 023 LM00030
00230 TSX +0 07400 4 00025 00231 TXH +3 00000 0 00056 00232 SUB +0 40200 0 00063 00233 TNZ -0 10000 0 00237
00234 TSX +0 07400 4 00026 00235 TXH +3 00000 0 00047 00236 TXH +3 00000 0 00050
T'O RD 024 LM00031
00237 TRA +0 02000 0 00032
EOF BFCLOS.(UFD,FI,OOPS) 025 LM00032
00240 TSX +0 07400 4 00003 00241 TXH +3 00000 0 00046 00242 TXH +3 00000 0 00037 00243 TXH +3 00000 0 00031
OPEN.($W$,PMT,FIL,120K) 026 LM00033
00244 TSX +0 07400 4 00017 00245 TXH +3 00000 0 00107 00246 TXH +3 00000 0 00043 00247 TXH +3 00000 0 00036
00250 TXH +3 00000 0 00073
BUFFER.(PMT,FIL,B1(B1+431)...432) 027 LM00034
00251 CLA +0 50000 0 00033 00252 ADD +0 40000 0 00074 00253 SUB +0 40200 0 00254 00254 TXH +3 00000 0 00033
00255 STA +0 62100 0 00261 00256 TSX +0 07400 4 00006 00257 TXH +3 00000 0 00043 00260 TXH +3 00000 0 00036
00261 TIX +2 00075 0 00000
TRFILE.(PMT,FIL,0) 028 LM00035
00262 TSX +0 07400 4 00022 00263 TXH +3 00000 0 00043 00264 TXH +3 00000 0 00036 00265 TXH +3 00000 0 00063
WRFILE.(PMT,FIL,0,BUFF(BUFF+N)...N) 029 LM00036
00266 CLA +0 50000 0 00035 00267 ADD +0 40000 0 00042 00270 SUB +0 40200 0 00271 00271 TXH +3 00000 0 00035
00272 STA +0 62100 0 00277 00273 TSX +0 07400 4 00024 00274 TXH +3 00000 0 00043 00275 TXH +3 00000 0 00036
00276 TXH +3 00000 0 00063 00277 TIX +2 00042 0 00000
CLOSE.(PMT,FIL) 030 LM00037
00300 TSX +0 07400 4 00010 00301 TXH +3 00000 0 00043 00302 TXH +3 00000 0 00036
ALLOT.(2,QUOTA) 031 LM00038
00303 TSX +0 07400 4 00000 00304 TXH +3 00000 0 00065 00305 TXH +3 00000 0 00044
ATTACH.(WHERE(1),WHERE(0)) 032 LM00039
00306 TSX +0 07400 4 00001 00307 TXH +3 00000 0 00061 00310 TXH +3 00000 0 00062
PRMESS.($*$) 033 LM00040
00311 TSX +0 07400 4 00020 00312 TXH +3 00000 0 00103
CHNCOM.(0) 034 LM00042
00313 TSX +0 07400 4 00007 00314 TXH +3 00000 0 00063
OOPS FERRTN.(0) 035 LM00044
00315 TSX +0 07400 4 00013 00316 TXH +3 00000 0 00063
CLOSE.($ALL$) 036 LM00045
00317 TSX +0 07400 4 00010 00320 TXH +3 00000 0 00077
ALLOT.(2,QUOTA) 037 LM00046
00321 TSX +0 07400 4 00000 00322 TXH +3 00000 0 00065 00323 TXH +3 00000 0 00044
USRFIL. 038 LM00047
00324 TSX +0 07400 4 00023
DSKER. 039 LM00048
00325 TSX +0 07400 4 00011
INTERNAL FUNCTION F.(ARG)=ARG(3).A.700000K 040 LM00051
00326 TRA +0 02000 0 00353 00025 TTR +0 02100 0 00327 00327 SXA +0 63400 2 00337 00330 TSX +0 07400 2 00337
00331 CAL -0 50000 0 00021 00332 ANA -0 32000 0 00076 00333 SLW +0 60200 0 00352 00334 CLA +0 50000 0 00352
00335 TRA +0 02000 0 00346 00336 PZE +0 00000 0 00003 00337 TXH +3 00000 0 00000 00340 SXD -0 63400 1 00337
00341 SXA +0 63400 4 00346 00342 CLA +0 50000 4 00001 00343 SUB +0 40200 0 00336 00344 STA +0 62100 0 00331
00345 TRA +0 02000 2 00001 00346 AXT +0 77400 4 00000 00347 LXA +0 53400 2 00337 00350 LXD -0 53400 1 00337
00351 TRA +0 02000 4 00001
INTERNAL FUNCTION (N1,N2) 041 LM00053
00353 TRA +0 02000 0 00444
ENTRY TO PRMT. 042 LM00054
00354 TRA +0 02000 0 00357 00026 TTR +0 02100 0 00355 00355 SXA +0 63400 2 00430 00356 TSX +0 07400 2 00430
N=N+6 043 LM00055
00357 CLA +0 50000 0 00042 00360 ADD +0 40000 0 00071 00361 STO +0 60100 0 00042
BUFF(BUFF+N)=LMARK 044 LM00056
00362 CLA +0 50000 0 00035 00363 ADD +0 40000 0 00042 00364 PAX +0 73400 1 00000 00365 CLA +0 50000 0 00040
00366 STO +0 60100 1 00035
BUFF(BUFF+N-1)=N1 045 LM00057
00367 CLA +0 50000 0 00035 00370 ADD +0 40000 0 00042 00371 SUB +0 40200 0 00064 00372 PAX +0 73400 1 00000
00373 CLA +0 50000 0 00024 00374 STO +0 60100 1 00035
BUFF(BUFF+N-2)=N2 046 LM00058
00375 CLA +0 50000 0 00035 00376 ADD +0 40000 0 00042 00377 SUB +0 40200 0 00065 00400 PAX +0 73400 1 00000
00401 CLA +0 50000 0 00024 00402 STO +0 60100 1 00035
BUFF(BUFF+N-3)=$ *$ 047 LM00059
00403 CLA +0 50000 0 00035 00404 ADD +0 40000 0 00042 00405 SUB +0 40200 0 00066 00406 PAX +0 73400 1 00000
00407 CLA +0 50000 0 00106 00410 STO +0 60100 1 00035
BUFF(BUFF+N-4)=$ *$ 048 LM00060
00411 CLA +0 50000 0 00035 00412 ADD +0 40000 0 00042 00413 SUB +0 40200 0 00067 00414 PAX +0 73400 1 00000
00415 CLA +0 50000 0 00106 00416 STO +0 60100 1 00035
BUFF(BUFF+N-5)=$ 104$ 049 LM00061
00417 CLA +0 50000 0 00035 00420 ADD +0 40000 0 00042 00421 SUB +0 40200 0 00070 00422 PAX +0 73400 1 00000
00423 CLA +0 50000 0 00105 00424 STO +0 60100 1 00035
F'N 050 LM00062
00425 TRA +0 02000 0 00440
V'S LMARK=777777000005K 051 LM00063
00040 -3 77777 0 00005
E'N 052 LM00064
00426 TSX +0 07400 4 00012 00427 PZE +0 00000 0 00003 00430 TXH +3 00000 0 00000 00431 SXD -0 63400 1 00430
00432 SXA +0 63400 4 00440 00433 CLA +0 50000 4 00001 00434 STA +0 62100 0 00373 00435 CLA +0 50000 4 00002
00436 STA +0 62100 0 00401 00437 TRA +0 02000 2 00001 00440 AXT +0 77400 4 00000 00441 LXA +0 53400 2 00430
00442 LXD -0 53400 1 00430 00443 TRA +0 02000 4 00001
END OF PROGRAM 053 LM00066
00444 TSX +0 07400 4 00012
TUT BCD 02/09/69 0728.3 5975 00000
1 M1416-3845 PETER R. BOS ..... TUT, PRINT TRACK USAGE FIGURES ..... PAGE 1
PCC ON
LBL TUT00000
PCC OFF
EXTERN WRFLX,SETBRK,GETCOM,BCDEC,GETLOC,ACORE,GETMEM
EXTERN SETMEM,SETFUL,GETARY,BITBL,DEFBC,BZEL,BCLFUL
EXTERN BCRFUL,BZ57,SETBCD,SLEEP,CHNCOM
UNLIST
M CALL MACRO NAME,LIST SUBROUTINE CALL MACRO
00023 0760 00 0 00016 LMTM MAY AS WELL...
00024 0760 00 0 00141 SLN 1 TURN ON A SENSE LIGHT.
00025 CALL WRFLX((*,,0)) TYPE A C.R.
00027 CALL SETBRK(XIT) SET INTERRUPT.
00031 CALL GETCOM(1) GET SLEEP ARGUMENT, IF ANY.
00033 0602 00 0 00272 SLW SLPTIM SAVE IT.
00034 0322 00 0 00273 ERA FENCE TEST IF NO ARG.
00035 -0100 00 0 00037 TNZ *+2 NOT FENCE, SKIP.
00036 0600 00 0 00272 STZ SLPTIM ELSE, CLEAR SLEEP TIME.
00037 CALL BCDEC(SLPTIM) CONVERT TO BINARY.
00041 0131 00 0 00000 XCA
00042 0200 00 0 00301 MPY =60 TURN TO SECONDS.
00043 -0600 00 0 00272 STQ SLPTIM AND PUT IT AWAY.
00044 0074 00 4 00004 TUTLOC TSX GETLOC,4 TRY ABSOLUTE LOC'N FIRST
00045 0 00000 0 46722 PZE TUT ..
00046 0322 00 0 00045 ERA TUTLOC+1 TEST IF RIGHT PLACE.
00047 0100 00 0 00057 TZE START ZOWIE, HIT IT.
00050 -0760 00 0 00141 SLT 1 IF WE ALREADY TRIED BEFORE,
00051 0020 00 0 00206 TRA BAD FORGET IT.
00052 CALL ACORE(=HGETTRK) TRY TO GET PROGRAM ORIGIN.
00054 0361 00 0 00267 ACL RELADR PLUS RELATIVE ADDRESS LAST TIME
00055 0621 00 0 00045 STA TUTLOC+1 WE LOOKED AT THE LISTINGS, AND
00056 0020 00 0 00044 TRA TUTLOC TRY ONCE MORE (ONLY ONCE).
00057 START SYN *
00057 0074 00 4 00006 TSX GETMEM,4 GET MEMORY BOUND NOW.
00060 0621 00 0 00074 STA GET+2 SAVE FOR CALL TO GETARY.
00061 0774 00 7 00003 AXT NTABLS,7 NUMBER OF DIFFERENT TABLES TO GET.
00062 0621 00 7 00227 STA PTABLE,7 TABLE START ADDRESS IN BCORE.
00063 0400 00 7 00224 ADD LTABLE,7 TABLE LENGTH.
00064 2 00001 7 00062 TIX *-2,7,1 REPEAT TILL DONE.
00065 0074 00 4 00007 TSX SETMEM,4 NOW SET NEW MEMORY BOUND.
00066 0534 00 4 00045 LXA TUTLOC+1,4 GET A-CORE TABLE ORIGIN.
00067 1 00001 4 00070 TXI *+1,4,1 ..
00070 0634 00 4 00073 SXA GET+1,4 AND INSERT IN CALL
00071 WORK SYN * RETURN HERE AFTER WAKING UP.
00071 0074 00 4 00010 TSX SETFUL,4 TO 12-BIT MODE.
00072 0074 00 4 00011 GET TSX GETARY,4 READ IN ENTIRE USAGE TABLE.
00073 0 00000 0 00000 PZE - ..
00074 0 04363 0 00000 PZE -,,TOTLTH ..
1 M1416-3845 PETER R. BOS ..... TUT, PRINT TRACK USAGE FIGURES ..... PAGE 2
00075 0774 00 7 00003 AXT NTABLS,7 GET NUMBER OF TABLES TO DO.
00076 -0500 00 7 00227 MORE CAL PTABLE,7 GET B-CORE ADDRESS OF ORIGIN.
00077 -0734 00 1 00000 PDX 0,1 COUNT TO XR1.
00100 0737 00 2 00000 PAC 0,2 -(ORIGIN) TO XR2.
00101 0600 00 0 00270 STZ COUNT CLEAR BIT COUNT FOR THIS TABLE.
00102 -0500 00 7 00221 CAL LBITS,7 GET NUMBER OF BITS IN LAST WORD.
00103 0734 00 4 00000 PAX 0,4 TO XR4 FOR SHIFTING.
00104 LOOP SYN * LOOP HERE TO COUNT BITS.
00104 -0500 00 2 00000 CAL 0,2 GET WORD FROM TABLE.
00105 0760 00 0 00006 COM 1 BIT = UNUSED TRACK, SO COMPLEMENT.
00106 -0320 00 0 00273 ANA FENCE GET RID OF DAMNED Q BIT.
00107 3 00001 1 00111 TXH *+2,1,1 SKIP EXCEPT ON LAST WORD.
00110 0771 00 4 00044 ARS 36,4 SHIFT OUT UNUSED BITS ON LAST WORD.
00111 -0130 00 0 00000 XCL WORD TO MQ.
00112 -0754 00 0 00000 ZAC CLEAR COUNT IN AC.
00113 0522 60 0 00012 XEC* BITBL COUNT BITS IN MQ (VIA CAQ TABLE)
00114 0771 00 0 00022 ARS 18 SHIFT COUNT.
00115 0400 00 0 00270 ADD COUNT ADD IN PREVIOUS RESULTS.
00116 0601 00 0 00270 STO COUNT AND SAVE IT NOW.
00117 1 77777 2 00120 TXI *+1,2,-1 INCREMENT TABLE ADDRESS.
00120 2 00001 1 00104 TIX LOOP,1,1 LOOP TILL DONE.
00121 0560 00 0 00270 LDQ COUNT GET BIT COUNT FROM TABLE.
00122 0200 00 7 00216 MPY FACTOR,7 FOR DISK TRACKS, 1 BIT = 2 RECORDS.
00123 -0600 00 0 00270 STQ COUNT SAVE RESULT.
00124 0200 00 0 00303 MPY =1000 NOW CONVERT TO PERCENTAGE.
00125 -0754 00 0 00000 ZAC JUST IN CASE.
00126 0221 00 7 00232 DVP TOTAL,7 DIVIDE BY TOTAL AVAILABLE.
00127 -0600 00 0 00271 STQ TEMP SAVE.
00130 CALL DEFBC(TEMP) CONVERT TO DECIMAL.
00132 -0765 00 0 00006 LGR 6 MAKE ROOM FOR DECIMAL POINT.
00133 0767 00 0 00006 ALS 6 ..
00134 -0501 00 0 00300 ORA =O33 '.'
00135 -0763 00 0 00014 LGL 12 SHIFT TO LEFT OF WORD,
00136 0602 00 0 00271 SLW TEMP AND SAVE AGAIN.
00137 CALL BZEL(TEMP) BLANK OUT LEADING ZEROS.
00141 0601 00 0 00271 STO TEMP AND AGAIN.
00142 CALL BCLFUL(TEMP) NOW CONVERT TO 12-BIT.
00144 0602 00 0 00241 SLW MESS+NWDS LEFT HALF OF PCT.
00145 CALL BCRFUL(TEMP) THE RIGHT HALF IS NICE TO HAVE ALSO.
00147 -0501 00 0 00302 ORA =O105 ADD A PERCENT SIGN.
00150 0602 00 0 00242 SLW MESS+NWDS+1 ..
00151 0500 00 7 00232 CLA TOTAL,7 GET TOTAL AVAILABLE FOR TABLE.
00152 0402 00 0 00270 SUB COUNT LESS THE ONES BEING USED.
00153 0601 00 0 00271 STO TEMP SAVE RESULT.
00154 CALL DEFBC(TEMP) CONVERT TO DECIMAL ALSO.
00156 0601 00 0 00271 STO TEMP ..
00157 CALL BZ57(TEMP) NULLS, PLEASE.
00161 0602 00 0 00271 SLW TEMP AGAIN..
00162 CALL BCLFUL(TEMP) CONVERT TO 12-BIT.
00164 0602 00 0 00246 SLW MESS+NWDS+5 INSERT IN MESSAGE.
00165 CALL BCRFUL(TEMP) GET THE OTHER HALF TOO.
00167 0602 00 0 00247 SLW MESS+NWDS+6 AND ADD THAT IN.
1 M1416-3845 PETER R. BOS ..... TUT, PRINT TRACK USAGE FIGURES ..... PAGE 3
00170 0774 00 4 00004 AXT NWDS,4 NOW GET THE NAME OF THE SILLY THING.
00171 -0500 60 7 00235 CAL* MESSNM,7 (A FEW WORDS)
00172 0602 00 4 00241 SLW MESS+NWDS,4 AND ADD THAT TO MESSAGE TOO.
00173 2 00001 4 00171 TIX *-2,4,1 LOOP TILL DONE.
00174 CALL WRFLX((MESS,,LMESS))
00176 2 00001 7 00076 TIX MORE,7,1 REPEAT FOR EACH TABLE.
00177 0074 00 4 00020 TSX SETBCD,4 BACK TO 6-BIT MODE.
00200 CALL WRFLX((*,,0)) AND A C.R.
00202 -0500 00 0 00272 CAL SLPTIM ARE WE TO SLEEP. Q
00203 0100 00 0 00210 TZE XIT NO, JUST GO AWAY.
00204 0074 00 4 00021 TSX SLEEP,4 ZZZ .. ZZZ .. ZZZ
00205 0020 00 0 00071 TRA WORK (YAWN) .. DO SOME MORE STUFF.
00206 BAD TYPE 4(BAD UTABLE ADDRESS)
00210 0074 00 4 00020 XIT TSX SETBCD,4 MAKE SURE IN 6-BIT MODE.
00211 CALL CHNCOM(0) AND EXIT.
1 M1416-3845 PETER R. BOS ..... TUT, PRINT TRACK USAGE FIGURES ..... PAGE 4
STORAGE AND CONSTANTS.
INSERT NMODS DEFINE NDRUMS AND NDISKS
00001 NDRUMS EQU 1 NUMBER OF DRUM MODULES
00010 NDISKS EQU 8 NUMBER OF DISK MODULES
00620 TKPDRM EQU 400 NUMBER OF BITS IN TABLE PER DRUM MODULE.
23420 TKPDSK EQU 10000 NUMBER OF BITS IN TABLE PER DISK MODULE.
00372 CLPDSK EQU 250 NUMBER OF CYLINDERS PER DISK MODULE.
00001 DRMFAC EQU 1 NUMBER OF DRUM RECORDS PER BIT.
00002 DSKFAC EQU 2 NUMBER OF DISK RECORDS PER BIT.
00001 CYLFAC EQU 1 NUMBER OF CYLINDERS PER BIT.
00213 0 00000 0 00001 PZE DRMFAC
00214 0 00000 0 00002 PZE DSKFAC
00215 0 00000 0 00001 PZE CYLFAC
00216 FACTOR SYN * MULTIPLYING FACTORS.
00004 LDRMBT EQU NDRUMS*TKPDRM-NDRUMS*TKPDRM/36*36
00010 LDSKBT EQU NDISKS*TKPDSK-NDISKS*TKPDSK/36*36
00024 LCYLBT EQU NDISKS*CLPDSK-NDISKS*CLPDSK/36*36
00014 DRUML EQU NDRUMS*TKPDRM/36+1
04257 DISKL EQU NDISKS*TKPDSK/36+1
00070 CYLDL EQU NDISKS*CLPDSK/36+1
00216 0 00000 0 00004 PZE LDRMBT
00217 0 00000 0 00010 PZE LDSKBT
00220 0 00000 0 00024 PZE LCYLBT
00221 LBITS SYN * NUMBER OF BITS IN LAST TABLE WORD.
00221 TOPTBL SYN * TOP OF LENGTH TABLE.
00221 0 00000 0 00014 PZE DRUML
00222 0 00000 0 04257 PZE DISKL
00223 0 00000 0 00070 PZE CYLDL
00224 LTABLE SYN * TABLE OF USAGE TABLE LENGTHS.
00003 NTABLS EQU LTABLE-TOPTBL NUMBER OF TABLES.
04363 TOTLTH EQU DRUML+DISKL+CYLDL TOTAL LENGTH OF ALL TABLES.
00224 0 00014 0 00000 PZE -,,DRUML
00225 0 04257 0 00000 PZE -,,DISKL
00226 0 00070 0 00000 PZE -,,CYLDL
00227 PTABLE SYN * POINTERS TO TABLE LOC'N IN B-CORE.
00227 000000000620 VFD 36/NDRUMS*TKPDRM*DRMFAC
00230 000000470400 VFD 36/NDISKS*TKPDSK*DSKFAC
00231 000000003720 VFD 36/NDISKS*CLPDSK*CYLFAC
00232 TOTAL SYN * TOTAL AVAILABLE SPACE PER TABLE.
00004 NWDS EQU 4 NUMBER OF WORDS RESERVED FOR NAME OF TABLE.
00232 0 00000 4 00256 PZE DRMMES+NWDS,4
00233 0 00000 4 00262 PZE DSKMES+NWDS,4
00234 0 00000 4 00266 PZE CYLMES+NWDS,4
00235 MESSNM SYN * POINTERS TO TABLE NAMES FOR PRINTING.
1 M1416-3845 PETER R. BOS ..... TUT, PRINT TRACK USAGE FIGURES ..... PAGE 5
00235 MESS BSS NWDS RESERVED FOR TABLE NAME.
00241 BSS 2 PCT. USED.
00243 006001640162 BCI 2,0 1U1S1E1D0,
00244 012501240073
00245 +006000570057 OCT 006000570057
00246 BSS 2 AMOUNT LEFT.
00250 006001430125 BCI 2,0 1L1E1F1T0.
00251 012601630033
00015 LMESS EQU *-MESS
00252 462401510164 DRMMES BCI 1,OD1R1U
00253 +014400350060 OCT 014400350060
00254 DUP 1,NWDS-*+DRMMES
00254 +005700570057 OCT 005700570057
00255 +005700570057
00256 002401310162 DSKMES BCI 1,0D1I1S
00257 +014200350060 OCT 014200350060
00260 DUP 1,NWDS-*+DSKMES
00260 +005700570057 OCT 005700570057
00261 +005700570057
00262 002301700143 CYLMES BCI 3,0C1Y1L1I1N1D1E1R1S
00263 013101450124
00264 012501510162
00265 +003500600057 OCT 003500600057
F 00266 DUP 1,NWDS-*+CYLMES
00266 +005700570057 OCT 005700570057
046722 TUT BOOL 46722 LOCATION OF TABLE WHEN LAST SEEN.
000774 REL BOOL 774 RELATIVE LOCATION IN PROGRAM.
00267 0 00000 0 00774 RELADR PZE REL ..
00270 0 00000 0 00000 COUNT PZE
00271 0 00000 0 00000 TEMP PZE
00272 0 00000 0 00000 SLPTIM PZE
00273 -377777777777 FENCE OCT 777777777777
00274 RMT * REMOTE SEQUENCES.
END
LITERALS
00300 000000000033
00301 000000000074
00302 000000000105
00303 000000001750
00304 272563635142
1 M1416-3845 PETER R. BOS ..... TUT, PRINT TRACK USAGE FIGURES ..... PAGE 1
POST PROCESSOR ASSEMBLY DATA
305 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
206 BAD 51
72 GET 60, 70
774 REL 267
46722 TUT 45, 267
210 XIT 30, 203
17 BZ57 157
14 BZEL 137
104 LOOP 104, 120
235 MESS 144, 150, 164, 167, 172, 175, 252
76 MORE 176
4 NWDS 144, 150, 164, 167, 170, 172, 232, 233, 234, 235, 254, 260, 266
271 TEMP 127, 131, 136, 140, 141, 143, 146, 153, 155, 156, 160, 161, 163, 166
71 WORK 71, 205
5 ACORE 52
3 BCDEC 37
12 BITBL 113
270 COUNT 101, 115, 116, 121, 123, 152
70 CYLDL 216, 223, 224, 226
13 DEFBC 130, 154
4257 DISKL 216, 222, 224, 225
14 DRUML 216, 221, 224
273 FENCE 34, 106
274 ..008 207
221 LBITS 102, 221
15 LMESS 175, 252
21 SLEEP 204
57 START 47, 57
232 TOTAL 126, 151, 232
0 WRFLX 25, 174, 200, 206
15 BCLFUL 142, 162
16 BCRFUL 145, 165
22 CHNCOM 211
372 CLPDSK 213, 216, 231
1 CYLFAC 213, 215, 231
262 CYLMES 234, 266
1 DRMFAC 213, 227
252 DRMMES 232, 254
2 DSKFAC 213, 214, 230
256 DSKMES 233, 260
216 FACTOR 122, 216
11 GETARY 72
2 GETCOM 31
4 GETLOC 44
6 GETMEM 57
24 LCYLBT 216, 220
4 LDRMBT 216
10 LDSKBT 216, 217
224 LTABLE 63, 224
235 MESSNM 171, 235
10 NDISKS 213, 216, 230, 231
1 NDRUMS 213, 216, 227
1 M1416-3845 PETER R. BOS ..... TUT, PRINT TRACK USAGE FIGURES ..... PAGE 2
POST PROCESSOR ASSEMBLY DATA
3 NTABLS 61, 75, 224
227 PTABLE 62, 76, 227
267 RELADR 54
20 SETBCD 177, 210
1 SETBRK 27
10 SETFUL 71
7 SETMEM 65
272 SLPTIM 33, 36, 40, 43, 202
620 TKPDRM 213, 216, 227
23420 TKPDSK 213, 216, 230
221 TOPTBL 221, 224
4363 TOTLTH 74, 224
44 TUTLOC 46, 55, 56, 66
0 NO ERROR IN ABOVE ASSEMBLY.
1 CAQ TABLE FOR FINDING NUMBER OF BITS IN A NUMBER. PAGE 1
7/16/65 - NOEL I. MORRIS
GEN MACRO OP,VARF
PMC ON
OP VARF
PMC OFF
END
TGEN MACRO ITERS
BITBL ABC,0
ABC SET ABC+1
IFF ITERS-ABC,,
TGEN ITERS
END
BITBL MACRO NUMBER,SUM
NBITS SET NUMBER+SUM
HALF SET NUMBER/2
IFF HALF,,A
GEN PZE(TABLE,,NBITS)
IFF HALF,,
BITBL HALF,NBITS-2*HALF
END
00100 ENTRY BITBL
00000 ABC SET 0
00000 TABLE TGEN 64
00000 0 00000 0 00000 PZE TABLE,,NBITS .003
00001 0 00001 0 00000 PZE TABLE,,NBITS .004
00002 0 00001 0 00000 PZE TABLE,,NBITS .006
00003 0 00002 0 00000 PZE TABLE,,NBITS .007
00004 0 00001 0 00000 PZE TABLE,,NBITS .009
00005 0 00002 0 00000 PZE TABLE,,NBITS .010
00006 0 00002 0 00000 PZE TABLE,,NBITS .011
00007 0 00003 0 00000 PZE TABLE,,NBITS .012
00010 0 00001 0 00000 PZE TABLE,,NBITS .014
00011 0 00002 0 00000 PZE TABLE,,NBITS .015
00012 0 00002 0 00000 PZE TABLE,,NBITS .016
00013 0 00003 0 00000 PZE TABLE,,NBITS .017
00014 0 00002 0 00000 PZE TABLE,,NBITS .018
00015 0 00003 0 00000 PZE TABLE,,NBITS .019
00016 0 00003 0 00000 PZE TABLE,,NBITS .020
00017 0 00004 0 00000 PZE TABLE,,NBITS .021
00020 0 00001 0 00000 PZE TABLE,,NBITS .023
00021 0 00002 0 00000 PZE TABLE,,NBITS .024
00022 0 00002 0 00000 PZE TABLE,,NBITS .025
00023 0 00003 0 00000 PZE TABLE,,NBITS .026
00024 0 00002 0 00000 PZE TABLE,,NBITS .027
00025 0 00003 0 00000 PZE TABLE,,NBITS .028
00026 0 00003 0 00000 PZE TABLE,,NBITS .029
00027 0 00004 0 00000 PZE TABLE,,NBITS .030
00030 0 00002 0 00000 PZE TABLE,,NBITS .031
00031 0 00003 0 00000 PZE TABLE,,NBITS .032
1 CAQ TABLE FOR FINDING NUMBER OF BITS IN A NUMBER. PAGE 2
00032 0 00003 0 00000 PZE TABLE,,NBITS .033
00033 0 00004 0 00000 PZE TABLE,,NBITS .034
00034 0 00003 0 00000 PZE TABLE,,NBITS .035
00035 0 00004 0 00000 PZE TABLE,,NBITS .036
00036 0 00004 0 00000 PZE TABLE,,NBITS .037
00037 0 00005 0 00000 PZE TABLE,,NBITS .038
00040 0 00001 0 00000 PZE TABLE,,NBITS .040
00041 0 00002 0 00000 PZE TABLE,,NBITS .041
00042 0 00002 0 00000 PZE TABLE,,NBITS .042
00043 0 00003 0 00000 PZE TABLE,,NBITS .043
00044 0 00002 0 00000 PZE TABLE,,NBITS .044
00045 0 00003 0 00000 PZE TABLE,,NBITS .045
00046 0 00003 0 00000 PZE TABLE,,NBITS .046
00047 0 00004 0 00000 PZE TABLE,,NBITS .047
00050 0 00002 0 00000 PZE TABLE,,NBITS .048
00051 0 00003 0 00000 PZE TABLE,,NBITS .049
00052 0 00003 0 00000 PZE TABLE,,NBITS .050
00053 0 00004 0 00000 PZE TABLE,,NBITS .051
00054 0 00003 0 00000 PZE TABLE,,NBITS .052
00055 0 00004 0 00000 PZE TABLE,,NBITS .053
00056 0 00004 0 00000 PZE TABLE,,NBITS .054
00057 0 00005 0 00000 PZE TABLE,,NBITS .055
00060 0 00002 0 00000 PZE TABLE,,NBITS .056
00061 0 00003 0 00000 PZE TABLE,,NBITS .057
00062 0 00003 0 00000 PZE TABLE,,NBITS .058
00063 0 00004 0 00000 PZE TABLE,,NBITS .059
00064 0 00003 0 00000 PZE TABLE,,NBITS .060
00065 0 00004 0 00000 PZE TABLE,,NBITS .061
00066 0 00004 0 00000 PZE TABLE,,NBITS .062
00067 0 00005 0 00000 PZE TABLE,,NBITS .063
00070 0 00003 0 00000 PZE TABLE,,NBITS .064
00071 0 00004 0 00000 PZE TABLE,,NBITS .065
00072 0 00004 0 00000 PZE TABLE,,NBITS .066
00073 0 00005 0 00000 PZE TABLE,,NBITS .067
00074 0 00004 0 00000 PZE TABLE,,NBITS .068
00075 0 00005 0 00000 PZE TABLE,,NBITS .069
00076 0 00005 0 00000 PZE TABLE,,NBITS .070
00077 0 00006 0 00000 PZE TABLE,,NBITS .071
00100 -0114 06 0 00000 BITBL CAQ TABLE,,6
END
1 CAQ TABLE FOR FINDING NUMBER OF BITS IN A NUMBER. PAGE 1
POST PROCESSOR ASSEMBLY DATA
101 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
100 ABC 0, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 20
21, 22, 23, 24, 25, 26, 27, 30, 31, 32, 33, 34, 35, 36, 37, 40, 41
42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 60, 61, 62
63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 77, 100
0 HALF 0, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 20
21, 22, 23, 24, 25, 26, 27, 30, 31, 32, 33, 34, 35, 36, 37, 40, 41
42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 60, 61, 62
63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 77
100 BITBL 0
6 NBITS 0, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 20
21, 22, 23, 24, 25, 26, 27, 30, 31, 32, 33, 34, 35, 36, 37, 40, 41
42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 60, 61, 62
63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 77
0 TABLE 0, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 20
21, 22, 23, 24, 25, 26, 27, 30, 31, 32, 33, 34, 35, 36, 37, 40, 41
42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 60, 61, 62
63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 77, 100
0 NO ERROR IN ABOVE ASSEMBLY.
1 BCRFUL., BCLFUL., FULBCD.- 6 TO 12 BIT CONVERSION. PAGE 1
PETER R. BOS --- AUGUST 1967
PCC ON
NOLNK
00000 ENTRY BCRFUL CONVERT RIGHT HALF BCD TO 12 BIT.
00002 ENTRY BCLFUL CONVERT LEFT HALF BCD TO 12 BIT.
00015 ENTRY FULBCD CONVERT 12 BIT TO BCD.
LBL BCRFUL
PCC OFF
$BDRFUL
00000 -0625 00 0 00026 BCRFUL STL RQL SET FLAG FOR RIGHT HALF.
00001 0020 00 0 00003 TRA *+2 SKIP.
$BCLFUL
00002 0600 00 0 00026 BCLFUL STZ RQL SET FLAG FOR LEFT HALF.
00003 0560 60 4 00001 LDQ* 1,4 PICK UP BCD WORD.
00004 0520 00 0 00026 ZET RQL IF RIGHT HALF,
00005 -0773 00 0 00022 RQL 18 SHIFT TOWARD AC.
00006 -0754 00 0 00000 ZAC CLEAR AC.
00007 -0763 00 0 00006 LGL 6 CONVERT.
00010 0767 00 0 00006 ALS 6 ..
00011 -0763 00 0 00006 LGL 6 ..
00012 0767 00 0 00006 ALS 6 ..
00013 -0763 00 0 00006 LGL 6 ..
00014 0020 00 4 00002 TRA 2,4 RETURN RESULT IN AC.
$FULBCD
00015 0560 60 4 00001 FULBCD LDQ* 1,4 PICK UP 12 BIT WORD.
00016 -0754 00 0 00000 ZAC CLEAR AC.
00017 -0773 00 0 00006 RQL 6 CONVERT.
00020 -0763 00 0 00006 LGL 6 ..
00021 -0773 00 0 00006 RQL 6 ..
00022 -0763 00 0 00006 LGL 6 ..
00023 -0773 00 0 00006 RQL 6 ..
00024 -0763 00 0 00006 LGL 6 ..
00025 0020 00 4 00002 TRA 2,4 RETURN RESULT IN AC.
00026 0 00000 0 00000 RQL PZE
END
1 BCRFUL., BCLFUL., FULBCD.- 6 TO 12 BIT CONVERSION. PAGE 1
POST PROCESSOR ASSEMBLY DATA
27 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
26 RQL 0, 2, 4
2 BCLFUL 0
0 BCRFUL 0
15 FULBCD 0
0 NO ERROR IN ABOVE ASSEMBLY.
UFDCHK BCD 09/20/68 0223.7 3156 00000
1 THIS ROUTINE PRINTS THE FIRST TWO WORDS (NAME1 NAME2) PAGE 1
* OF A USERS UFD, INCLUDING ZERO ENTRIES. IT IS USEFUL FOR
* CLEANING UP A UFD. USAGE---
* R UFDCHK -PROB PROG-
* WHERE PROB PROG ARE OPTIONAL ARGUMENTS GIVING THE
* FILE DIRECTORY TO BE CHECKED, IF OTHER THAN THE CURRENT
* DIRECTORY. -PROB PROG- MAY NOT BE USED UNLESS THE USER
* HAS ATTACH PRIVELEGES.
EXTERN PRNTER,FSTATE,OPEN,RDFILE,CLOSE,UPDATE
EXTERN FCHECK,BZEL,DEFBC,ATTNAM,GETCOM
EXTERN GETMEM,SETMEM,ATTACH,WRFLX,CHNCOM
CNVRT MACRO X
TSX DEFBC,4
PTH X
STO X
TSX BZEL,4
PTH X
STO X
CNVRT END
TRANSFER VECTOR
00000 475145632551 PRNTER
00001 266263216325 FSTATE
00002 464725456060 OPEN
00003 512426314325 RDFILE
00004 234346622560 CLOSE
00005 644724216325 UPDATE
00006 262330252342 FCHECK
00007 227125436060 BZEL
00010 242526222360 DEFBC
00011 216363452144 ATTNAM
00012 272563234644 GETCOM
00013 272563442544 GETMEM
00014 622563442544 SETMEM
00015 216363212330 ATTACH
00016 665126436760 WRFLX
00017 233045234644 CHNCOM
00020 0074 00 4 00011 TSX ATTNAM,4 GET THE NAME OF THE CURRENT DIRECTORY
00021 3 00002 0 00264 PTH HOME,,2
00022 0074 00 4 00012 TSX GETCOM,4 GET THE FIRST ARGUMENT
00023 0 00000 0 00001 PZE 1
00024 -0340 00 0 00360 LAS =H SHORT
00025 0020 00 0 00032 TRA SHOVER
00026 0020 00 0 00030 TRA *+2
00027 0020 00 0 00032 TRA SHOVER
00030 -0625 00 0 00270 STL INDICX
00031 0020 00 0 00036 TRA SHHOME
00032 -0340 00 0 00266 SHOVER LAS FENCE IS IT THERE
1 THIS ROUTINE PRINTS THE FIRST TWO WORDS (NAME1 NAME2) PAGE 2
00033 0020 00 0 00044 TRA HAVARG YES
00034 0020 00 0 00036 TRA *+2 NO--JUMP TWO FORWARD
00035 0020 00 0 00044 TRA HAVARG YES.
00036 0500 00 0 00264 SHHOME CLA HOME PUT CURRENT DIRECTORY
00037 0560 00 0 00265 LDQ HOME+1 IN PROBN PROGN
00040 -0603 00 0 00326 DST PROBN
00041 0500 00 0 00351 CLA =1 SET FLAG FOR NO ATTACHING
00042 0601 00 0 00267 STO ATTFLG
00043 0020 00 0 00062 TRA SETUP AND GO SETUP
00044 0602 00 0 00326 HAVARG SLW PROBN ARG1 WAS THE PROBLEM NUMBER
00045 0074 00 4 00012 TSX GETCOM,4 GET THE SECOND ARGUMENT
00046 0 00000 0 00002 PZE 2
00047 0602 00 0 00327 SLW PROGN WHICH IS THE PROGRAMMER NO.
00050 0074 00 4 00015 TSX ATTACH,4 ATTACH TO PROBN PROGN
00051 3 00000 0 00326 PTH PROBN
00052 3 00000 0 00327 PTH PROGN
00053 3 00000 0 00261 PTH ERROR ERROR RETURN
00054 0600 00 0 00267 STZ ATTFLG AND SET FLAG TO COME HOME LATER
*
00055 0074 00 4 00012 TSX GETCOM,4 CHECK FOR SHORT MODE
00056 0 00000 0 00003 PZE 3
00057 -0340 00 0 00360 LAS =H SHORT
00060 0020 00 0 00062 TRA SETUP
00061 -0625 00 0 00270 STL INDICX
00062 0074 00 4 00005 SETUP TSX UPDATE,4 MAKE SURE UFD IS UP-TO-DATE
00063 0074 00 4 00001 TSX FSTATE,4 GET THE LENGTH OF THE UFD
00064 3 00000 0 00344 PTH UFD
00065 3 00000 0 00345 PTH FILE
00066 3 00010 0 00334 PTH A,,8
00067 3 00000 0 00261 PTH ERROR
00070 0500 00 0 00334 CLA A GET NUMBER OF WORDS
00071 0767 00 0 00022 ALS 18
00072 0622 00 0 00115 STD LOC COUNT FOR 'RDFILE'
00073 0074 00 4 00013 TSX GETMEM,4 MAKE ROOM TO LOAD THE U.F.D.
00074 0621 00 0 00115 STA LOC BEGINNING FOR 'RDFILE'
00075 0621 00 0 00146 STA NAME1 AND BASE OF THE SEARCH
00076 0400 00 0 00351 ADD =1 UP ONE FOR SECOND NAME SEARCH
00077 0621 00 0 00144 STA LOOP
00100 0400 00 0 00334 ADD A ADD IN UFD SIZE
00101 0074 00 4 00014 TSX SETMEM,4 AND TACK DOWN MEMORY HERE
00102 0074 00 4 00002 TSX OPEN,4 OPEN THE UFD TO READ
00103 3 00000 0 00346 PTH R
00104 3 00000 0 00344 PTH UFD
00105 3 00000 0 00345 PTH FILE
00106 3 00000 0 00350 PTH =0
00107 3 00000 0 00350 PTH =0
00110 3 00000 0 00261 PTH ERROR
00111 0074 00 4 00003 TSX RDFILE,4 READ THE ENTIRE FILE
00112 3 00000 0 00344 PTH UFD
00113 3 00000 0 00345 PTH FILE
1 THIS ROUTINE PRINTS THE FIRST TWO WORDS (NAME1 NAME2) PAGE 3
00114 3 00000 0 00352 PTH =4 STARTING AT WORD 4
00115 3 00000 0 00000 LOC PTH **,,** FILLED IN ABOVE
00116 3 00000 0 00121 PTH *+3 FOR END OF FILE
00117 3 00000 0 00347 PTH CNT NUMBER OF WORDS READ
00120 3 00000 0 00261 PTH ERROR
00121 0074 00 4 00006 TSX FCHECK,4 FINISH UP THE INPUT
00122 3 00000 0 00344 PTH UFD
00123 3 00000 0 00345 PTH FILE
00124 3 00000 0 00125 PTH *+1
00125 0074 00 4 00004 TSX CLOSE,4 AND CLOSE THE FILE
00126 3 00000 0 00344 PTH UFD
00127 3 00000 0 00345 PTH FILE
00130 0534 00 1 00347 LXA CNT,1 LOAD THE TOTAL COUNT
00131 -0636 00 1 00163 SCD CKLOOP,1 TO STOP THE LOOP
00132 0560 00 0 00334 LDQ A GET THE NUMBER OF WORDS
00133 -0754 00 0 00000 ZAC
00134 0221 00 0 00353 DVP =7 DIVIDED BY WORDS PER ENTRY
00135 -0600 00 0 00301 STQ SLOTS AND STORE NUMBER OF SLOTS
00136 0520 00 0 00270 ZET INDICX CHECK FOR SHORT MODE
00137 0020 00 0 00142 TRA *+3 YES, BYPASS PRINTING THE HEADER
00140 0074 00 4 00016 TSX WRFLX,4 PRINT THE HEADING
00141 0 00012 0 00322 PZE HEAD,,10
00142 0774 00 1 00000 AXT 0,1 ENPTY SLOT COUNTER
00143 0774 00 2 00000 AXT 0,2 WORD POINTER
00144 -0500 00 2 00000 LOOP CAL **,2 GET NAME2
00145 0602 00 0 00273 SLW OUT+2 INTO THE OUTPUT MESSAGE
00146 -0500 00 2 00000 NAME1 CAL **,2 GET NAME1
00147 0602 00 0 00271 SLW OUT INTO THE MESSAGE
00150 -0100 00 0 00152 TNZ *+2 JUMP IF NOT ZERO
00151 1 00001 1 00152 TXI *+1,1,1 IF ZERO, INCREMENT THE EMPLTY SLOT CTR.
00152 0520 00 0 00270 ZET INDICX ARE WE IN SHORT MODE
00153 0020 00 0 00162 TRA CKLUP YES, JUMP AHEAD
00154 -0100 00 0 00160 TNZ NOTZRO NOPE, PRINT FILE NAME IF NON-ZERO
00155 0074 00 4 00016 TSX WRFLX,4 WRITE A '0' FOR NO FILE HERE
00156 0 00001 0 00356 PZE =H0 ,,1 ..
00157 0020 00 0 00162 TRA CKLUP
00160 0074 00 4 00016 NOTZRO TSX WRFLX,4 PRINT THE ENTRY
00161 0 00003 0 00271 PZE OUT,,3
00162 1 77771 2 00163 CKLUP TXI *+1,2,-7 MOVE DOWN THE UFD
00163 3 00000 2 00144 CKLOOP TXH LOOP,2,** DO THE ENTIRE TABLE
00164 0754 00 1 00000 PXA ,1 EMPTY COUNT
00165 0601 00 0 00274 STO EMPTY
00166 0131 00 0 00000 XCA
00167 0200 00 0 00353 MPY =7
00170 -0600 00 0 00304 STQ EMPTWD WASTED WORDS
00171 0560 00 0 00334 LDQ A
00172 -0754 00 0 00000 ZAC NUMBER OF WORDS IN UFD
1 THIS ROUTINE PRINTS THE FIRST TWO WORDS (NAME1 NAME2) PAGE 4
00173 0221 00 0 00355 DVP =432 DIVIDED BY RECORD SIZE
00174 0601 00 0 00315 STO ODD REMAINDER=WORDS IN ODD REC.
00175 0100 00 0 00201 TZE *+4 GET NUMBER OF RECORDS USED
00176 0131 00 0 00000 XCA
00177 0400 00 0 00351 ADD =1
00200 0131 00 0 00000 XCA
00201 -0600 00 0 00310 STQ RECS
00202 CNVRT ODD CONVERT THESE FOR PRINTING
00210 CNVRT EMPTY
00216 CNVRT EMPTWD
00224 CNVRT SLOTS
00232 CNVRT RECS
00240 0074 00 4 00016 TSX WRFLX,4 AND PRINT THE SUMMARY INFO
00241 0 00000 0 00000 PZE 0 THAT WAS A CARRIAGE RETURN
00242 0074 00 4 00016 TSX WRFLX,4
00243 0 00010 0 00274 PZE EMPTY,,8
00244 0074 00 4 00016 TSX WRFLX,4
00245 0 00004 0 00304 PZE EMPTWD,,4
00246 0074 00 4 00016 TSX WRFLX,4
00247 0 00012 0 00310 PZE RECS,,10
00250 0074 00 4 00016 TSX WRFLX,4
00251 0 00001 0 00357 PZE =H* ,,1 AND A '*' FOR GOOD LUCK
00252 0500 00 0 00267 LEAVE CLA ATTFLG CHECK THE ATTACH FLAG
00253 -0100 00 0 00257 TNZ ATHOME NO ATTACH HEEDED
00254 0074 00 4 00015 TSX ATTACH,4 GO HOME
00255 3 00000 0 00264 PTH HOME
00256 3 00000 0 00265 PTH HOME+1
00257 0074 00 4 00017 ATHOME TSX CHNCOM,4 EXIT
00260 3 00000 0 00350 PTH =0
00261 0074 00 4 00000 ERROR TSX PRNTER,4 PRINT ANY ERRORS
00262 3 00000 0 00354 PTH =0375
00263 0020 00 0 00252 TRA LEAVE AND EXIT
* * * * * * * * * * * * *
* STORAGE AND CONSTANTS *
* * * * * * * * * * * * *
00264 HOME BSS 2
00266 -377777777777 FENCE OCT 777777777777
00267 ATTFLG BSS 1
00270 0 00000 0 00000 INDICX PZE 0 SHORT MODE INDICATOR (ORIG. ZERO)
00271 OUT BSS 1
00272 -205757575757 OCT 605757575757
00273 BSS 1
00274 000000000000 EMPTY BCI 4,000000 EMPTY SLOTS OUT O
00275 602544476370
00276 606243466362
00277 604664636046
00300 +265757575757 OCT 265757575757
00301 000000000000 SLOTS BCI 3,000000 SLOTS TOTAL
00302 606243466362
00303 606346632143
00304 000000000000 EMPTWD BCI 4,000000 TOTAL EMPTY WORDS
00305 606346632143
1 THIS ROUTINE PRINTS THE FIRST TWO WORDS (NAME1 NAME2) PAGE 5
00306 602544476370
00307 606646512462
00310 000000000000 RECS BCI 4,000000 RECORDS IN U.F.D.
00311 605125234651
00312 246260314560
00313 643326332433
00314 -335757575757 OCT 735757575757
00315 000000000000 ODD BCI 5,000000 WORDS IN LAST RECORD
00316 606646512462
00317 603145604321
00320 626360512523
00321 465124606060
00322 -155757575757 HEAD OCT 555757575757
00323 643326332433 BCI 2,U.F.D. CHECK
00324 602330252342
00325 -204645575757 OCT 604645575757
00326 PROBN BSS 1
00327 PROGN BSS 1
00330 -155557575757 OCT 555557575757
00331 604521442501 BCI 2, NAME1 NAME
00332 606045214425
00333 +025557575757 OCT 025557575757
00334 A BSS 8
00344 643326332433 UFD BCI 1,U.F.D.
00345 742631432534 FILE BCI 1,(FILE)
00346 516060606060 R BCI 1,R
00347 CNT BSS 1
END
LITERALS
00350 000000000000
00351 000000000001
00352 000000000004
00353 000000000007
00354 000000000567
00355 000000000660
00356 006060606060
00357 546060606060
00360 606230465163
1 THIS ROUTINE PRINTS THE FIRST TWO WORDS (NAME1 NAME2) PAGE 1
POST PROCESSOR ASSEMBLY DATA
361 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
334 A 66, 70, 100, 132, 171
346 R 103
347 CNT 117, 130
115 LOC 72, 74
315 ODD 174, 203, 204, 206, 207
271 OUT 145, 147, 161
344 UFD 64, 104, 112, 122, 126
7 BZEL 205, 213, 221, 227, 235
345 FILE 65, 105, 113, 123, 127
322 HEAD 141
264 HOME 21, 36, 37, 255, 256
144 LOOP 77, 163
2 OPEN 102
310 RECS 201, 233, 234, 236, 237, 247
162 CKLUP 153, 157
4 CLOSE 125
10 DEFBC 202, 210, 216, 224, 232
274 EMPTY 165, 211, 212, 214, 215, 243
261 ERROR 53, 67, 110, 120
266 FENCE 32
252 LEAVE 263
146 NAME1 75
326 PROBN 40, 44, 51
327 PROGN 47, 52
62 SETUP 43, 60
301 SLOTS 135, 225, 226, 230, 231
16 WRFLX 140, 155, 160, 240, 242, 244, 246, 250
257 ATHOME 253
15 ATTACH 50, 254
267 ATTFLG 42, 54, 252
11 ATTNAM 20
17 CHNCOM 257
163 CKLOOP 131
304 EMPTWD 170, 217, 220, 222, 223, 245
6 FCHECK 121
1 FSTATE 63
12 GETCOM 22, 45, 55
13 GETMEM 73
44 HAVARG 33, 35
270 INDICX 30, 61, 136, 152
160 NOTZRO 154
0 PRNTER 261
3 RDFILE 111
14 SETMEM 101
36 SHHOME 31
32 SHOVER 25, 27
5 UPDATE 62
0 NO ERROR IN ABOVE ASSEMBLY.
UASCAN BCD 10/12/70 1517.9 16094 00000
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 1
WRITTEN BY JIM BIXBY 4-26-68
CMPAR MACRO
CMPAR MACRO TSTWRD,FILWRD,FLAG,YES,NO
TSX CMPARE,4
PTH TSTWRD
PTH FILWRD
PTH FLAG
PTH YES
PTH NO
CMPAR END
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 2
PROCESS THE ARGUMENT STRING
TRANSFER VECTOR
00000 622563225142 SETBRK
00001 272563234362 GETCLS
00002 665126436760 WRFLX
00003 233045234644 CHNCOM
00004 272563634460 GETTM
00005 434164626360 LJUST
00006 512547514622 REPROB
00007 227125436060 BZEL
00010 222324252360 BCDEC
00011 222346236360 BCOCT
00012 712543606060 ZEL
00013 462626606060 OFF
00014 626247514563 SSPRNT
00015 462626464560 OFFON
00016 216363452144 ATTNAM
00017 216363212330 ATTACH
00020 272563442544 GETMEM
00021 622563442544 SETMEM
00022 222646472545 BFOPEN
00023 222651252124 BFREAD
00024 242526222360 DEFBC
00025 227105076060 BZ57
00026 452144216242 NAMASK
00027 665126436721 WRFLXA
00030 222623434662 BFCLOS
00031 222623462425 BFCODE
00032 234346622560 CLOSE
00033 452567234644 NEXCOM
00034 0074 00 4 00000 TSX $SETBRK,4 ARGUMENT PROCESSING EXIT
00035 0 00000 0 01273 PZE LEAVE
00036 0760 00 0 00016 LMTM WE NEED NORE
00037 -0774 00 3 00001 AXC 1,3 ARGUMENT COUNTER
00040 0074 00 4 00001 TSX $GETCLS,4 LOAD THE BUFFER FOR PRINTING
00041 0 00000 0 01651 PZE ARGBUF,,0
00042 -0500 00 0 01652 CAL ARGBUF+1 TEST FIRST ARG. FOR A FENCE
00043 0322 00 0 01411 ERA FENCE ..
00044 -0100 00 0 00063 TNZ NOFENC SKIP IF NO FENCE
00045 0074 00 4 00002 TSX $WRFLX,4 PRINT OUT OPTIONS
00046 0 00012 0 01541 PZE FMESS1,,10
00047 0074 00 4 00002 TSX WRFLX,4
00050 0 00012 0 01553 PZE FMESS2,,10
00051 0074 00 4 00002 TSX WRFLX,4
00052 0 00012 0 01565 PZE FMESS3,,10
00053 0074 00 4 00002 TSX WRFLX,4
00054 0 00012 0 01577 PZE FMESS4,,10
00055 0074 00 4 00002 TSX WRFLX,4
00056 0 00012 0 01611 PZE FMESS5,,10
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 3
PROCESS THE ARGUMENT STRING
00057 0074 00 4 00002 TSX WRFLX,4
00060 0 00012 0 01623 PZE FMESS6,,10
00061 0074 00 4 00003 TSX $CHNCOM,4
00062 0 00000 0 00000 PZE 0
00063 NOFENC SYN *
00063 0074 00 4 00004 TSX $GETTM,4 FOR A LATER MESSAGE
00064 3 00000 0 01643 PTH DATE
00065 3 00000 0 01644 PTH TIME
00066 0074 00 4 00002 TSX $WRFLX,4 GIVE A CARRIAGE RETURN
00067 3 00000 0 00000 PTH ,,0
PROCESS THE ARGUMENTS --
00070 0600 00 0 01374 STZ SPECFL FLAG FOR (----) ARGUMENTS
00071 0600 00 0 01372 STZ NOTFLG NON-ZERO WHEN A (NOT) HAS BEEN USED
00072 -0500 00 3 01651 NXTARG CAL ARGBUF,3 GET NEXT ARGUMENT
00073 0602 00 0 01407 SLW ARG ..
00074 0322 00 0 01411 ERA FENCE IS IT THERE--
00075 0100 00 0 00404 TZE ARGFIN NO--FINISH ARG PROCESSING
00076 0520 00 0 01374 ZET SPECFL ARE WE WORKING ON A () ARG--
00077 0020 00 2 00001 TRA 1,2 YES--GO TO THE PROPER ROUTINE
00100 -0500 00 0 01407 CAL ARG NO-- IT IS PROB, PROG, NAME, OR ()
00101 -0320 00 0 02055 ANA =O77 SAVE LAST CHARACTER
00102 0322 00 0 01410 ERA RPAREN IS IT XXXXXX)--
00103 0100 00 0 00141 TZE SPECL YES -- TREAT IT AS (XXXX)
NOW WE ASSUME THE ARG IS
PROB, PROG, OR NAME
00104 PRPGNM CMPAR =HCMFL**,ARG,=1,PRGARG,*+1
00112 -0500 00 0 01407 CAL ARG GET
00113 -0320 00 0 02055 ANA =O77 LAST CHARACTER OF ARG
00114 -0340 00 0 02054 LAS =9 IS IT A NUMBER
00115 0020 00 0 00120 TRA *+3 NO-THIS MUST BE A NAME
00116 0020 00 0 00130 TRA PRBPRG YES, PROBLEM NUMBER
00117 0020 00 0 00130 TRA PRBPRG OR PROGRAMMER NUMBER
HERE IF THE ARG IS A NAME
00120 0074 00 4 00005 NAMARG TSX $LJUST,4 MOVE IT OVER
00121 3 00000 0 01407 PTH ARG ..
00122 0601 00 0 01423 STO NAME AND SAVE IT
00123 0500 00 0 02051 CLA =1
00124 0520 00 0 01372 ZET NOTFLG ..
00125 -0760 00 0 00003 SSM
00126 0601 00 0 01350 STO FNAME
00127 0020 00 0 00163 TRA CLRBAK
HERE IF THE ARG IS A PROG OR PROB
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 4
PROCESS THE ARGUMENT STRING
00130 0074 00 4 00005 PRBPRG TSX $LJUST,4 LEFT JUSTIFY
00131 3 00000 0 01407 PTH ARG
00132 0131 00 0 00000 XCA MOVE TO MQ
00133 -0754 00 0 00000 ZAC
00134 -0763 00 0 00006 LGL 6 GET LEFT CHAR
00135 -0340 00 0 02054 LAS =9 IS IT A NUMBER
00136 0020 00 0 00205 TRA PRBARG NO--MUST BE A PROBLEM NUMBER
00137 0020 00 0 00215 TRA PRGARG YES--IT IS A PROGRAMMER NUMBER
00140 0020 00 0 00215 TRA PRGARG
SPECIAL ARGUMENT PROCESSORS
HERE TO PROCESS FIRST OCCURRENCE OF (XXX)
00141 -0625 00 0 01374 SPECL STL SPECFL SET THE FLAG
00142 0774 00 1 00077 AXT ARGSIZ,1 SET UP TO SEARCH THE TABLE
00143 -0500 00 0 01407 CAL ARG PICK UP THE ARG
00144 -0340 00 1 02050 LAS ARGTBL+ARGSIZ,1 COMPARE WITH NEXT ENTRY
00145 0020 00 0 00147 TRA *+2 NO
00146 0020 00 1 02051 TRA ARGTBL+ARGSIZ+1,1 YES--WE FOUND IT
00147 2 00003 1 00144 TIX *-3,1,3 SEARCH ENTIRE TABLE
00150 0020 00 0 01270 TRA BADARG NOT FOUND--ERROR
BELOW ARE THE SMALL ROUTINE FOR EACH
SPECIAL ARGUMENT
(GAF) --
00151 0520 00 0 01372 GAFARG ZET NOTFLG WAS A 'NOT' GIVEN
00152 0020 00 0 01245 TRA BADNOT YES--NOT ALLOWED
00153 -0500 00 0 01415 CAL GAFNM2 NEW INPUT FILE NAME2 = 'GAF'
00154 -0625 00 0 01400 STL GAFFLG SET GAF FLAG
00155 0602 00 0 01406 SLW INFIL2 RECORD IT THUSLY
00156 -0500 00 0 01407 CAL ARG NAME1 GIVEN BY THE USER
00157 0602 00 0 01405 SLW INFIL1 ..
00160 -0320 00 0 02057 ANA =O7777
00161 -0501 00 0 02072 ORA =H 00 PUT IN LEADING BLANKS
00162 0602 00 0 01451 SLW SAGRP SAVE ACCOUNTING GROUP
00163 0600 00 0 01372 CLRBAK STZ NOTFLG CLEAR THE FLAGS
00164 0600 00 0 01374 STZ SPECFL
00165 1 77777 3 00072 INCARG TXI NXTARG,3,-1 AND GET THE NEXT ARGUMENT
(INPT) --
00166 0 00000 0 00000 REM
00167 0520 00 0 01372 INPARG ZET NOTFLG WAS A NOT GIVEN
00170 0020 00 0 01245 TRA BADNOT YES--NO GOOD
00171 -0500 00 0 01407 CAL ARG GET THE FILE NAME1
00172 0602 00 0 01405 SLW INFIL1 AND MAKE IT DO SOME GOOD
00173 0074 00 2 00165 TSX INCARG,2 GET THE FILE NAME2
00174 -0500 00 0 01407 CAL ARG SAVE THAT TOO
00175 0602 00 0 01406 SLW INFIL2 ..
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 5
PROCESS THE ARGUMENT STRING
00176 0020 00 0 00163 TRA CLRBAK AND GO ROUND AGAIN
(NOT) --
00177 -0625 00 0 01372 NOTARG STL NOTFLG SET THE'NOT' FLAG
00200 -0500 00 0 01407 CAL ARG GET NEXT ARG
00201 -0320 00 0 02055 ANA =O77 SAVE LAST CHAR
00202 0322 00 0 01410 ERA RPAREN IS IT A RIGHT PARENTHESIS--
00203 -0100 00 0 00104 TNZ PRPGNM NO--MUST BE PROB,PROG OR NAME
00204 0020 00 0 00141 TRA SPECL YES--LOOK UP IN ARG TABLE
(PROB) --
00205 0074 00 4 00006 PRBARG TSX $REPROB,4 PUT ARG IN PROBLEM NUMBER FORMAT
00206 3 00000 0 01407 PTH ARG ..
00207 0601 00 0 01424 STO PROB
00210 0500 00 0 02051 CLA =1 SET THE SEARCH FLAG
00211 0520 00 0 01372 ZET NOTFLG FLAG = NEG IF (NOT) USED
00212 -0760 00 0 00003 SSM
00213 0601 00 0 01351 STO FPROB SEARCH FLAG
00214 0020 00 0 00163 TRA CLRBAK BACK FOR MORE
(PROG) --
00215 -0500 00 0 01407 PRGARG CAL ARG SAVE THE ARG
00216 0602 00 0 01425 SLW PROG
00217 0500 00 0 02051 CLA =1 AND SET THE SEARCH FLG
00220 0520 00 0 01372 ZET NOTFLG
00221 -0760 00 0 00003 SSM
00222 0601 00 0 01352 STO FPROG
00223 0020 00 0 00163 TRA CLRBAK
(FULL) --
00224 0520 00 0 01372 FULARG ZET NOTFLG IS (NOT) BEFORE THIS
00225 0020 00 0 01245 TRA BADNOT YES--ERROR
00226 -0625 00 0 01375 STL FULFLG SET FULL PRINT FLAG
00227 0020 00 0 00163 TRA CLRBAK
(CUT) --
00230 0074 00 4 00007 CUTARG TSX $BZEL,4 GET ARG (MMDDYY)
00231 3 00000 0 01407 PTH ARG ..
00232 0131 00 0 00000 XCA NOW IN MQ
00233 -0773 00 0 00030 RQL 24 NOW ITS YYMMDD
00234 -0600 00 0 01433 STQ DATEF SAVE FOR SEARCH
00235 0500 00 0 02051 CLA =1 SET THE FLAG
00236 0520 00 0 01372 ZET NOTFLG NEG IF (NOT) SPECIFIED
00237 -0760 00 0 00003 SSM
00240 0601 00 0 01370 STO FDATEF
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 6
PROCESS THE ARGUMENT STRING
00241 0020 00 0 00163 TRA CLRBAK
(DEV) --
00242 0074 00 4 00010 DEVARG TSX $BCDEC,4 CONVERT DEVICE TO DEC
00243 3 00000 0 01407 PTH ARG
00244 0100 00 0 01260 TZE BADDEV NO SUCH THING
00245 0737 00 1 00000 PAC ,1 SET THE RIGHT FLAG
00246 0402 00 0 02052 SUB =4 AFTER MORE CHECKING
00247 0120 00 0 01260 TPL BADDEV MUST BE 1,2,OR 3
00250 0500 00 0 02065 CLA =-1 CONSTRUCT THE FLAG
00251 0520 00 0 01372 ZET NOTFLG
00252 0760 00 0 00003 SSP
00253 0601 00 1 01357 STO FDRUM-1,1 POP--IN IT GOES
00254 0020 00 0 00163 TRA CLRBAK
(NAME) --
(SHFT) --
00255 0074 00 4 00010 SFTARG TSX $BCDEC,4 CONVERT ARG TO A SHIFT NUM
00256 3 00000 0 01407 PTH ARG
00257 0100 00 0 01265 TZE BADSFT NO ZERO SHIFT
00260 0737 00 1 00000 PAC ,1 PLOT THE FLAG INTO THE RIGHT SLOT
00261 0402 00 0 02053 SUB =6
00262 0120 00 0 01265 TPL BADSFT AS LONG AS IT EXISTS
00263 0500 00 0 02065 CLA =-1 CONSTRUCT FLAG
00264 0520 00 0 01372 ZET NOTFLG
00265 0760 00 0 00003 SSP
00266 0601 00 1 01362 STO FT1-1,1
00267 0020 00 0 00163 TRA CLRBAK
(PSWD) --
00270 0520 00 0 01372 PSWARG ZET NOTFLG (NOT) OPTION NOT ALLOWED
00271 0020 00 0 01245 TRA BADNOT
00272 -0625 00 0 01376 STL PSWFLG SET THE PASSWORD PRINT FLAG
00273 0020 00 0 00163 TRA CLRBAK
(RCOD) --
00274 0500 00 0 02051 RCDARG CLA =1 SET THE SEARCH FLAG
00275 0520 00 0 01372 ZET NOTFLG
00276 -0760 00 0 00003 SSM
00277 0601 00 0 01356 STO FRCODE
00300 0074 00 4 00011 TSX $BCOCT,4 AND CONVERT THE CODE TO OCTAL
00301 0 00000 0 01407 PZE ARG
00302 0601 00 0 01431 STO RCODE SAVE IT
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 7
PROCESS THE ARGUMENT STRING
00303 0020 00 0 00163 TRA CLRBAK
(OFFN) --
00304 -0625 00 0 01373 OFNARG STL OFNFLG SET THE OFFON FLAG
(OFF) --
00305 0520 00 0 01372 OFFARG ZET NOTFLG (NOT) NOT ALLOWED HERE
00306 0020 00 0 01245 TRA BADNOT
00307 -0500 00 0 01407 CAL ARG GET ARG
00310 0602 00 0 01401 SLW OUTNM1 AS OUTPUT FILE NAME1
00311 0074 00 2 00165 TSX INCARG,2 GET NEXT ARG
00312 -0500 00 0 01407 CAL ARG AS OUTPUT NAME2
00313 0602 00 0 01402 SLW OUTNM2
00314 0020 00 0 00163 TRA CLRBAK OUTNM1 ACTS AS THE FLAG HERE
(PGRP) --
00315 -0500 00 0 01407 PGPARG CAL ARG
00316 0602 00 0 01426 SLW PARTY STORE THE DESIRED PARTY GROUP
00317 0500 00 0 02051 CLA =1 SET FLAG
00320 0520 00 0 01372 ZET NOTFLG
00321 -0760 00 0 00003 SSM
00322 0601 00 0 01353 STO FPARTY
00323 0020 00 0 00163 TRA CLRBAK
(UGRP) --
00324 0560 00 0 01407 UGPARG LDQ ARG BECAUSE ITS THIS WAY IN THE FILE
00325 -0773 00 0 00006 RQL 6 THAT WE DO THIS..
00326 -0600 00 0 01430 STQ UNIT SAVE THE UNIT GROUP
00327 0500 00 0 02051 CLA =1 SET FLAG
00330 0520 00 0 01372 ZET NOTFLG
00331 -0760 00 0 00003 SSM
00332 0601 00 0 01355 STO FUNIT
00333 0020 00 0 00163 TRA CLRBAK
(AGRP) --
00334 0074 00 4 00012 AGPARG TSX $ZEL,4 GET THE ACCOUNTING GROUP
00335 3 00000 0 01407 PTH ARG WITH LEADING ZEROES
00336 0601 00 0 01412 STO TEMP ..
00337 -0500 00 0 01412 CAL TEMP
00340 0767 00 0 00006 ALS 6 PUT IN RIGHT SPOT
00341 -0501 00 0 01420 ORA AGMSK2 PUT IN LEADING 'GRP'
00342 0602 00 0 01434 SLW AGRP
00343 0500 00 0 02051 CLA =1 AND SET FLAG
00344 0520 00 0 01372 ZET NOTFLG
00345 -0760 00 0 00003 SSM
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 8
PROCESS THE ARGUMENT STRING
00346 0601 00 0 01371 STO FAGRP
00347 0020 00 0 00163 TRA CLRBAK
(UFDN) --
00350 -0500 00 0 01407 UFDARG CAL ARG GET THE UFDNAME
00351 0602 00 0 01427 SLW UFDNM
00352 0500 00 0 02051 CLA =1
00353 0520 00 0 01372 ZET NOTFLG AND SET FLAG
00354 -0760 00 0 00003 SSM
00355 0601 00 0 01354 STO FUFDNM
00356 0020 00 0 00163 TRA CLRBAK
(ACCT) --
00357 0520 00 0 01372 ACTARG ZET NOTFLG (NOT) NOT ALLOWED
00360 0020 00 0 01245 TRA BADNOT
00361 -0625 00 0 01377 STL ACTFLG SET FLAG FOR ACCOUNTING PRINTOUT
00362 -0625 00 0 01375 STL FULFLG AND GROUP INFORMATION
00363 0020 00 0 00163 TRA CLRBAK
(ATT) --
00364 0520 00 0 01372 ATTARG ZET NOTFLG (NOT) NOT ALLOWED
00365 0020 00 0 01245 TRA BADNOT
00366 -0500 00 0 01407 CAL ARG FIRST ARG IS ATTACH NAME1
00367 0602 00 0 01403 SLW ATTNM1 ATTNM1 ACTS AS THE FLAG HERE
00370 0074 00 2 00165 TSX INCARG,2 GET NEXT ARG
00371 -0500 00 0 01407 CAL ARG WHICH IS ATTACH NAME2
00372 0602 00 0 01404 SLW ATTNM2
00373 0020 00 0 00163 TRA CLRBAK
(FLAG) --
00374 0500 00 0 02051 FLGARG CLA =1 SET SEARCH FLAG
00375 0520 00 0 01372 ZET NOTFLG
00376 -0760 00 0 00003 SSM
00377 0601 00 0 01357 STO FFLAGS
00400 0074 00 4 00011 TSX $BCOCT,4 CONVERT FLAGS TO OCT
00401 3 00000 0 01407 PTH ARG
00402 0601 00 0 01432 STO FLAGS
00403 0020 00 0 00163 TRA CLRBAK
HERE WHEN THE FENCE IS ENCOUNTERED IN THE
ARGUMENT STRING. FIRST WE MAKE SURE THE
LAST (NOT) OR (XXXX) HAS ALL ITS NEEDED
ARGUMENTS, THEN SET UP FOR ON OR OFF
LINE PRINTING.
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 9
PROCESS THE ARGUMENT STRING
00404 0520 00 0 01372 ARGFIN ZET NOTFLG UNFILLED (NOT) --
00405 0020 00 0 01277 TRA WNTMOR YES
00406 0520 00 0 01374 ZET SPECFL UNFILLED (XXXX)
00407 0020 00 0 01277 TRA WNTMOR YES
00410 -0520 00 0 01401 NZT OUTNM1 WAS AN OUTPUT FILE SPECIFIED
00411 0020 00 0 00435 TRA SETUP NO--SET UP THE INPUT FILE
SETUP FOR OFF LINE PRINTING
00412 0074 00 4 00013 OFFLIN TSX $OFF,4
00413 3 00000 0 01401 PTH OUTNM1
00414 3 00000 0 01402 PTH OUTNM2
00415 0074 00 4 00014 TSX $SSPRNT,4 ALLOW INSERTION OF AN EJECT
00416 3 00000 0 02050 PTH =0
00417 0074 00 4 00002 TSX $WRFLX,4
00420 3 00005 0 01640 PTH HIMES,,5 PUT A HELLO INTO THE FILE
00421 0074 00 4 00014 TSX $SSPRNT,4 AND GO BACK TO SINGLE SPACE MOVE
00422 3 00000 0 02051 PTH =1
00423 1 00001 3 00424 TXI *+1,3,1 FUDGE ARGUMENT COUNT
00424 -0636 00 3 00426 SCD *+2,3 AND INTO THE WRITE COMMAND
00425 0074 00 4 00002 TSX $WRFLX,4 PUT THE ARGUMENT STRING INTO THE FILE
00426 3 00000 0 01652 PTH ARGBUF+1,,**
00427 0074 00 4 00002 TSX $WRFLX,4 AND AN EXTRA CARRIAGE RETURN
00430 3 00000 0 00000 PTH ,,0
00431 0520 00 0 01373 ZET OFNFLG ON LINE ALSO--
00432 0074 00 4 00015 TSX $OFFON,4 SO DO SO
00433 3 00000 0 01401 PTH OUTNM1
00434 3 00000 0 01402 PTH OUTNM2
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 10
SET UP THE INPUT FILE
00435 0074 00 4 00000 SETUP TSX $SETBRK,4 MOVE THE BREAK ENTRY
00436 0 00000 0 01302 PZE FILXIT ITS HAIRIER NOW
00437 -0520 00 0 01403 NZT ATTNM1 WAS AN ATTACH NAME GIVEN
00440 0020 00 0 00446 TRA FILLOD NO, GET BUFFERS
00441 0074 00 4 00016 TSX $ATTNAM,4 YES, WHERE ARE WE NOW
00442 3 00002 0 01413 PTH HMPROB,,2
00443 0074 00 4 00017 TSX $ATTACH,4 GO TO THE DIRECTORY
00444 3 00000 0 01403 PTH ATTNM1
00445 3 00000 0 01404 PTH ATTNM2
00446 0074 00 4 00020 FILLOD TSX $GETMEM,4 SET BUFFER ADDRESSES
00447 0621 00 0 00460 STA BUFF1
00450 0400 00 0 02056 ADD =432
00451 0621 00 0 00461 STA BUFF2
00452 0400 00 0 02056 ADD =432
00453 0074 00 4 00021 TSX $SETMEM,4 NEW MEMORY BOUND
00454 0074 00 4 00022 TSX $BFOPEN,4 OPEN THE FILE
00455 3 00000 0 02067 PTH =HR FOR READING
00456 3 00000 0 01405 PTH INFIL1
00457 3 00000 0 01406 PTH INFIL2
00460 3 00000 0 00000 BUFF1 PTH **
00461 3 00000 0 00000 BUFF2 PTH **
00462 3 00000 0 02064 PTH =-0
00463 3 00000 0 01317 PTH IOERR
00464 -0520 00 0 01403 NZT ATTNM1 DID WE ATTACH--
00465 0020 00 0 00472 TRA SEARCH NO--BEGIN THE SEARCH AND PRINT
00466 0074 00 4 00017 TSX $ATTACH,4 YES--GO HOME
00467 3 00000 0 01413 PTH HMPROB
00470 3 00000 0 01414 PTH HMPROG
00471 0600 00 0 01403 STZ ATTNM1 AND SHOW NO MORE ATTACHING TO DO
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 11
SEARCH EACH ENTRY, AND DECIDE TO PRINT IT
00472 0600 00 0 01701 SEARCH STZ COUNT ZERO THE ENTRY COUNT
00473 0074 00 4 01011 NXTCRD TSX READ,4 READ THE NEXT TWO CARDS
00474 -0500 00 0 01463 CAL CARD CHECK FIRST WORD FOR ACCOUNTING GROUP
00475 -0320 00 0 01417 ANA AGMSK1
00476 0322 00 0 02063 ERA =HGRP00
00477 -0100 00 0 00511 TNZ TRYPRB NOT GRP HEADER, TRY PROB HEADER
00500 -0500 00 0 01464 CAL CARD+1 MAKE SURE NEXT FIELD IS BLANK
00501 0322 00 0 02073 ERA =H CHANGE BLANKS TO ZERO
00502 -0100 00 0 00511 TNZ TRYPRB SKIP IF NOT
00503 -0500 00 0 01463 CAL CARD OTHERWISE RESET SAGRP
00504 0771 00 0 00006 ARS 6
00505 -0320 00 0 02057 ANA =O7777
00506 -0501 00 0 02072 ORA =H 00
00507 0602 00 0 01451 SLW SAGRP
00510 0020 00 0 00745 TRA AGRPHD NOW TEST IF THIS IS RIGHT ONE
00511 -0500 00 0 01463 TRYPRB CAL CARD NOT A GROUP HEADER
00512 0322 00 0 01422 ERA PRBMSK IS IT A PROBLEM NUMBER HEADER
00513 0100 00 0 00773 TZE PRBHED YES
HERE WHEN WE HAVE THE RIGHT
ACCOUNTING GROUP, PROGLEM NUMBER,
AND ARE LOOKING AT A PROGRAMMER OR
COMFIL CARD
00514 -0520 00 0 01400 NZT GAFFLG IS THIS A GAF FILE--
00515 0020 00 0 00524 TRA CHKNAM NO--WE HAVE ALREADY CHECK PROB NO.
00516 CMPAR PROB,UGPROB,FPROB,*+2,NXTCRD
00524 CHKNAM CMPAR NAME,UNAME,FNAME,*+2,NXTCRD
00532 CMPAR PROG,UPROG,FPROG,*+2,NXTCRD
00540 CMPAR ZERO,UDRUM,FDRUM,*+2,NXTCRD
00546 CMPAR ZERO,UDISK,FDISK,*+2,NXTCRD
00554 CMPAR ZERO,UTAPE,FTAPE,*+2,NXTCRD
00562 -0500 00 0 01463 CAL UNAME IS THIS A COMFIL ENTRY--
00563 0322 00 0 01464 ERA UPROG (UPROG MUST EQUAL UNAME)
00564 -0100 00 0 00604 TNZ CHKTHM NO, DO NOTHING SPECIAL HERE
00565 0774 00 1 00005 AXT 5,1 YES--SEE IF TIMES WERE DESIRED
00566 0520 00 1 01370 ZET FT1+5,1 CHECK THEM ALL
00567 0020 00 0 00473 TRA NXTCRD FOUND ONE--REJECT THIS ENTRY
00570 2 00001 1 00566 TIX *-2,1,1 ..
00571 0520 00 0 01356 ZET FRCODE CHECKING RCODE .Q.
00572 0020 00 0 00473 TRA NXTCRD NOT FOR COMFILS WE DONT
00573 0520 00 0 01357 ZET FFLAGS CHECKING FLAGS .Q.
00574 0020 00 0 00473 TRA NXTCRD NOT FOR COMFILS WE DONT
00575 0520 00 0 01353 ZET FPARTY CHECKING PARTY GROUP .Q.
00576 0020 00 0 00473 TRA NXTCRD NOT FOR COMFILS WE DONT
00577 0520 00 0 01354 ZET FUFDNM CHECKING UFD NAME .Q.
00600 0020 00 0 00473 TRA NXTCRD NOT FOR COMFILS WE DONT
00601 0520 00 0 01355 ZET FUNIT CHECKING UNIT GROUP .Q.
00602 0020 00 0 00473 TRA NXTCRD NOT FOR COMFILS WE DONT .A.
00603 0020 00 0 00727 TRA CHKCUT BUT WE CHECK NEITHER, SO ONWARD
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 12
SEARCH EACH ENTRY, AND DECIDE TO PRINT IT
00604 CHKTHM CMPAR PARTY,UPARTY,FPARTY,*+2,NXTCRD
00612 CMPAR UFDNM,UUFDNM,FUFDNM,*+2,NXTCRD
00620 CMPAR UNIT,UUNIT,FUNIT,*+2,NXTCRD
00626 CMPAR ZERO,UT1,FT1,*+2,NXTCRD
00634 CMPAR ZERO,UT2,FT2,*+2,NXTCRD
00642 CMPAR ZERO,UT3,FT3,*+2,NXTCRD
00650 CMPAR ZERO,UT4,FT4,*+2,NXTCRD
00656 CMPAR ZERO,UT5,FT5,*+2,NXTCRD
00664 -0520 00 0 01356 NZT FRCODE DO WE CHECK RCODE--
00665 0020 00 0 00702 TRA CHKFLG NO
00666 0074 00 4 00011 TSX $BCOCT,4 YES--CONVERT FILE RCODE TO OCTAL
00667 3 00000 0 01471 PTH URCODE
00670 0601 00 0 01412 STO TEMP SAVE FOR NOW
00671 -0500 00 0 01412 CAL TEMP BACK IN LAC
00672 -0501 00 0 01431 ORA RCODE COMPARE WITH INPUT RCODE
00673 0322 00 0 01412 ERA TEMP
00674 0100 00 0 00700 TZE RCMTCH THE MATCH
00675 0500 00 0 01356 CLA FRCODE THEY DONT MATCH--GET SEARCH FLAG
00676 0120 00 0 00473 TPL NXTCRD WE WANT THEM TO, SO SKIP
00677 0020 00 0 00702 TRA CHKFLG WE DONT WANT THEM TO AND THEY DONT
00700 0500 00 0 01356 RCMTCH CLA FRCODE THEY MATCH
00701 -0120 00 0 00473 TMI NXTCRD AND WE CONT WANT THEM TO
00702 -0520 00 0 01357 CHKFLG NZT FFLAGS SHALL WE CHECK FLAGS--
00703 0020 00 0 00727 TRA CHKCUT NO
00704 -0500 00 0 01472 CAL UFLAGS YES--CONVERT UFLAGS
00705 0771 00 0 00006 ARS 6
00706 0602 00 0 01412 SLW TEMP
00707 0074 00 4 00011 TSX $BCOCT,4 TO OCTAL
00710 3 00000 0 01412 PTH TEMP
00711 0601 00 0 01412 STO TEMP
00712 -0500 00 0 01412 CAL TEMP CONVERTED UFLAGS TO LAC
00713 -0520 00 0 01432 NZT FLAGS IF FLAGS ARE ZERO
00714 0100 00 0 00725 TZE FGMTCH AND TEMP IS ZERO, THEY MATCH
00715 -0520 00 0 01432 NZT FLAGS OR IF FLAGS ARE ZERO
00716 -0100 00 0 00722 TNZ FGNMTH AND TEMP IS NON-ZERO, NO MATCH
00717 -0320 00 0 01432 ANA FLAGS OTHERWISE AND OUT PERTAINENT FLAGS
00720 0322 00 0 01432 ERA FLAGS CHECK IF THEY ARE ALL ON
00721 0100 00 0 00725 TZE FGMTCH THEY MATCH
00722 0500 00 0 01357 FGNMTH CLA FFLAGS THEY DO NOT MATCH
00723 0120 00 0 00473 TPL NXTCRD AND WE WANT THEM TO
00724 0020 00 0 00727 TRA CHKCUT
00725 0500 00 0 01357 FGMTCH CLA FFLAGS THEY MATCH
00726 -0120 00 0 00473 TMI NXTCRD AND WE DONT WANT THEM TO
00727 -0520 00 0 01370 CHKCUT NZT FDATEF SHALL WE CHECK FINISH DATE TOO--
00730 0020 00 0 01125 TRA FORMAT NO
00731 0560 00 0 01514 LDQ UDATEF MMDDYY
00732 -0773 00 0 00030 RQL 24 YYMMDD
00733 -0130 00 0 00000 XCL READY FOR COMPARE BOSS
00734 -0340 00 0 01433 LAS DATEF COMPARE WITH GIVEN DATE
00735 0020 00 0 00742 TRA CUTNO FILE DATE AFTER GIVEN DATE
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 13
SEARCH EACH ENTRY, AND DECIDE TO PRINT IT
00736 0020 00 0 01125 TRA FORMAT SAME DATE--SELECT IT
00737 0500 00 0 01370 CLA FDATEF THE DATE IS TOO BIG
00740 0120 00 0 01125 TPL FORMAT BUT THATS OK
00741 0020 00 0 00473 TRA NXTCRD NO IT WASNT
00742 0500 00 0 01370 CUTNO CLA FDATEF THE DATE IS WRONG
00743 -0120 00 0 01125 TMI FORMAT IF THE FLAG LIKES IT
00744 0020 00 0 00473 TRA NXTCRD CUT IT MIGHT NOT
FIND THE DESIRED ACCOUNTING GROUP ENTRY
00745 AGRPHD CMPAR AGRP,CARD,FAGRP,AGPYES,*+1
00753 0074 00 4 01011 ANEXT TSX READ,4 IF NOT RIGHT, FIND THE RIGHT ONE
00754 CMPAR AGMSK3,CARD,=1,AGRPHD,ANEXT
00762 -0500 00 0 01464 AGPYES CAL CARD+1 GOT A 'GRP** ', NOW SEE IF GRP HEADER
00763 0322 00 0 02073 ERA =H NEXT WORD MUST BE BLANK
00764 -0100 00 0 00745 TNZ AGRPHD OTHERWISE, KEEP LOOKING
00765 -0500 00 0 01463 CAL CARD GOT THE CORRECT GROUP
00766 0771 00 0 00006 ARS 6 RIGHT JUSTIFY IT
00767 -0320 00 0 02057 ANA =O7777 SAVE LAST TWO DIGITS
00770 -0501 00 0 02072 ORA =H 00 PUT IN LEADING BLANKS
00771 0602 00 0 01451 SLW SAGRP SAVE THE ACCOUNTING GROUP FOR PRINT
00772 0020 00 0 00473 TRA NXTCRD AND GO ON
FIND THE DESIRED PROBLEM HEADER
00773 PRBHED CMPAR PROB,UPROB,FPROB,PRBYES,*+1
01001 0074 00 4 01011 PRBLUK TSX READ,4 NOT THIS ONE,TRY ANOTHER
01002 -0500 00 0 01463 CAL CARD
01003 0322 00 0 02070 ERA =H* WITH A '*' IN COLUMN ONE
01004 -0100 00 0 01001 TNZ PRBLUK
01005 0020 00 0 00773 TRA PRBHED
01006 -0500 00 0 01464 PRBYES CAL UPROB WE WANT THIS ONE
01007 0602 00 0 01416 SLW QPROB SAVE FOR PRINTING
01010 0020 00 0 00473 TRA NXTCRD AND SEARCH EVER ONWARD
SUBROUTINE READ --
READS TWO CARDS AND HANDLES END OF FILE
01011 0634 00 4 01041 READ SXA RXR4,4 EVEN LOOKS LIKE A XUBROUTINE
01012 0074 00 4 00023 TSX $BFREAD,4 READ THE TWO CARDS
01013 3 00000 0 01405 PTH INFIL1
01014 3 00000 0 01406 PTH INFIL2
01015 3 00034 0 01463 PTH CARD,,28
01016 3 00000 0 01043 PTH ENDFIL IF EOF ENCOUNTERED
01017 3 00000 0 01412 PTH TEMP NOT CONCERNED ABOUT EOF COUNT
01020 -0520 00 0 01400 NZT GAFFLG CHECK GAF FLAG
01021 0020 00 0 01025 TRA *+4 NOT ON, TEST FOR NEW ACCT GROUP
01022 -0500 00 0 01474 CAL UGPROB
01023 0602 00 0 01416 SLW QPROB SAVE NEW PROBLEM NUMBER FOR PRINTING
01024 0020 00 0 01041 TRA RXR4 EXIT FROM READ
01025 -0500 00 0 01463 CAL CARD CHECK FIRST WORD FOR NEW ACCT. GROUP
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 14
SEARCH EACH ENTRY, AND DECIDE TO PRINT IT
01026 -0320 00 0 01417 ANA AGMSK1 ..
01027 0322 00 0 01420 ERA AGMSK2 ..
01030 -0100 00 0 01041 TNZ RXR4 ..
01031 -0500 00 0 01464 CAL CARD+1 MAKE SURE NEXT CARD IS EMPTY
01032 0322 00 0 02073 ERA =H ..
01033 -0100 00 0 01041 TNZ RXR4 NOT REALLY A NEW GROUP
01034 -0500 00 0 01463 CAL CARD IT WAS A NEW GROUP
01035 0771 00 0 00006 ARS 6 SO RESET SAGRP
01036 -0320 00 0 02057 ANA =O7777
01037 -0501 00 0 02072 ORA =H 00
01040 0602 00 0 01451 SLW SAGRP
01041 0774 00 4 00000 RXR4 AXT **,4 RESTORE THAT INDEX
01042 0020 00 4 00001 TRA 1,4 AND RETURN
01043 -0520 00 0 01401 ENDFIL NZT OUTNM1 ARE WE WORKING ON AN OFFLINE FILE--
01044 0020 00 0 01051 TRA LSTLNS NO--PRINT THE LAST LINES
01045 -0520 00 0 01373 NZT OFNFLG DONT SET OFFON IF ALREADY SET
01046 0074 00 4 00015 TSX $OFFON,4 YES--PRINT BOTH ON AND OFF LINE
01047 3 00000 0 01401 PTH OUTNM1
01050 3 00000 0 01402 PTH OUTNM2
01051 0074 00 4 00002 LSTLNS TSX $WRFLX,4 GIVE AN EXTRA CARRIAGE RETURN
01052 3 00000 0 00000 PTH ,,0
01053 -0520 00 0 01701 NZT COUNT WERE ANY ENTRIES FOUND
01054 0020 00 0 01073 TRA NONE NO--SAY SO
01055 0500 00 0 01701 CLA COUNT WAS ONLY ONE ENTRY FOUND
01056 0402 00 0 02051 SUB =1 IF SO, THE CLOD CAN COUNT THEM
01057 0100 00 0 01070 TZE PSTAR HIMSELF...
01060 0074 00 4 00024 TSX $DEFBC,4 CONVERT COUNT FOR PRINTING
01061 3 00000 0 01701 PTH COUNT
01062 0601 00 0 01701 STO COUNT
01063 0074 00 4 00025 TSX $BZ57,4 ..
01064 3 00000 0 01701 PTH COUNT
01065 0601 00 0 01701 STO COUNT
01066 0074 00 4 00002 TSX $WRFLX,4 WRITE THE NUMBER FOUND
01067 3 00002 0 01701 PTH COUNT,,2
01070 0074 00 4 00002 PSTAR TSX $WRFLX,4 PRINT AN ASTERISK
01071 3 00001 0 02070 PTH =H* ,,1
01072 0020 00 0 01302 TRA FILXIT AND EAVE
01073 0074 00 4 00002 NONE TSX $WRFLX,4 PRINT NONE FOUND
01074 3 00005 0 01703 PTH NOENT,,5
01075 0020 00 0 01070 TRA PSTAR AND THEN AN ASTERISK
SUBROUTINE CMPARE --
CALLING SEQUENCE--
CMPARE.(TSTWRD,FILWRD,FLAG,YES,NO)
TSTWRD -- WORD WITH EMBEDDED '*'S.
FILWRD -- COMPARED WITH TSTWRD BY THE LISTF * CONVENTION
FLAG -- ROUTINE TRANSFERS IMMEDIATELY
WITH NO TESTING TO YES IF FLAG = 0
ROUTINE TRANSFERS TO YES IF FLAG
IS NONZERO AND POSITIVE AND THE
COMPARISON IS SUCCESSFUL
ROUTINE TRANSFERS TO YES IF
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 15
SEARCH EACH ENTRY, AND DECIDE TO PRINT IT
FLAG IS NEGATIVE AND TEST FAILS
YES -- RETURN FOR SUCCESSFUL TEST
NO -- RETURN FOR UNSUCCESSFUL TEST
01076 0634 00 4 01105 CMPARE SXA CXR4,4 SAVE IT
01077 0500 60 4 00003 CLA* 3,4 GET THE FLAG
01100 0100 60 4 00004 TZE* 4,4 RETURN IMMEDIATELY IF ZERO
01101 -0500 00 4 00001 CAL 1,4 GET THE TSTWRD
01102 0621 00 0 01104 STA NACALL ADDRESS FOR LATER
01103 0074 00 4 00026 TSX $NAMASK,4 GET THE MASK
01104 3 00000 0 00000 NACALL PTH ** ADDRESS OF TSTWRD
01105 0774 00 4 00000 CXR4 AXT **,4 RESTORE THE INDEX
01106 0601 00 0 01123 STO MASK AND SAVE THE NAMASK
01107 -0500 60 4 00002 CAL* 2,4 GET THE INPUT WORD
01110 0322 60 4 00001 ERA* 1,4 COMPARE AGAINST TSTWRD
01111 -0320 00 0 01123 ANA MASK UNDER THE NAMASK
01112 0602 00 0 01124 SLW RESULT AND SAVE RESULT
01113 0500 60 4 00003 CLA* 3,4 GET THE FLAG
01114 -0120 00 0 01120 TMI *+4 IF YES-NO TO BE REVERSED
01115 0520 00 0 01124 ZET RESULT DID THEY MATCH
01116 0020 60 4 00005 TRA* 5,4 NO--RETURN TO NO
01117 0020 60 4 00004 TRA* 4,4 YES--RETURN TO YES
01120 0520 00 0 01124 ZET RESULT DID THEY MATCH
01121 0020 60 4 00004 TRA* 4,4 NO, BUT WE DONT WANT THEM TO
01122 0020 60 4 00005 TRA* 5,4 YES, AND WE DIDNT WANT THEM TO
01123 MASK BSS 1
01124 RESULT BSS 1
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 16
FORMAT THE SELECT OUTPUT AND PRINT IT
01125 0500 00 0 01701 FORMAT CLA COUNT GET THE COUNT
01126 0400 00 0 02051 ADD =1 UPDATE IT
01127 0601 00 0 01701 STO COUNT ..
01130 3 00000 0 01151 GATE PTH FORM CHANGED TO A TXL LATER
01131 0074 00 4 00027 TSX $WRFLXA,4 WRITE THE HEADINGS
01132 3 00006 0 01717 PTH BASIC,,6 WE KNOW WE WANT AT LEAST THIS
01133 0520 00 0 01375 ZET FULFLG DO WE WANT MORE--
01134 0074 00 4 00027 TSX $WRFLXA,4 YES--PRINT GROUP HEADINGS
01135 3 00004 0 01725 PTH FULHED,,4
01136 -0500 00 0 02073 CAL =H GET SOME BLANKS
01137 -0520 00 0 01376 NZT PSWFLG SHALL WE PRINT PASSWORDS--
01140 0602 00 0 01731 SLW PASHED NO--BLANK OUT THAT HEADING
01141 0074 00 4 00002 TSX $WRFLX,4 PRINT THE PASSWORD HEADING
01142 3 00001 0 01731 PTH PASHED,,1
01143 0520 00 0 01377 ZET ACTFLG WANT ALLOTMENTS--
01144 0074 00 4 00002 TSX $WRFLX,4 YES--PRINT THEM
01145 3 00011 0 01732 PTH ALLOTS,,9
$ ZET ACTFLG CHECK AGAIN, MISTER
$ TSX $WRFLX,4 BEFORE PRINTING THE REST
$ PTH REQS,,5
01146 0500 00 0 01130 CLA GATE CLOSE THE GATE
01147 -0760 00 0 00003 SSM
01150 0601 00 0 01130 STO GATE
LOAD THE INFO TO BUFFERS, AND PRINT
SOME (ALL) OF IT
01151 -0500 00 0 01435 FORM CAL SPROB GET LAST PRINTED PROB
01152 0322 00 0 01416 ERA QPROB IS IT CURRNT PROB--
01153 0100 00 0 01156 TZE *+3 YES, SKIP CARRIAGE RETURN
01154 0074 00 4 00002 TSX $WRFLX,4 NO-GIVE A CARRIAGE RETURN
01155 3 00000 0 00000 PTH ,,0
01156 -0500 00 0 01416 CAL QPROB PLUG IN THIS PROB
01157 0602 00 0 01435 SLW SPROB
01160 -0500 00 0 01464 CAL UPROG
01161 0602 00 0 01437 SLW SPROG
01162 -0500 00 0 01463 CAL UNAME GET THE USERS NAME
01163 0602 00 0 01441 SLW SNAME
01164 -0500 00 0 01471 CAL URCODE PRETTY UP RCODE
01165 -0320 00 0 02060 ANA =O777777
01166 -0501 00 0 02071 ORA =H 000
01167 0602 00 0 01443 SLW SRCODE
01170 -0500 00 0 01467 CAL UUFDNM
01171 0602 00 0 01445 SLW SUFDNM
01172 -0500 00 0 01463 CAL UNAME TEST FOR A COMMON FILE
01173 0322 00 0 01464 ERA UPROG (UPROG MUST EQUAL UNAME)
01174 -0100 00 0 01200 TNZ BWRITE NOT A COMFIL ENTRY
01175 0074 00 4 00002 TSX $WRFLX,4 A COMMON FILE--WRITE
01176 3 00005 0 01435 PTH SPROB,,5 AN ABBREVIATED LINE
01177 0020 00 0 01226 TRA LINE2 AND SKIP REST OF THIS LINE
01200 0322 00 0 01437 BWRITE ERA SPROG IS THE UFDNAME SAME AS PROG
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 17
FORMAT THE SELECT OUTPUT AND PRINT IT
01201 -0100 00 0 01204 TNZ *+3 NO
01202 -0500 00 0 02073 CAL =H YES--CHANGE TO BLANKS
01203 0602 00 0 01445 SLW SUFDNM
01204 0074 00 4 00027 TSX $WRFLXA,4 WRITE OUT THIS BASIC LINE
01205 3 00012 0 01435 PTH SPROB,,10
01206 -0520 00 0 01375 NZT FULFLG MORE ON THIS LINE--
01207 0020 00 0 01220 TRA FRPASS NO
01210 -0500 00 0 01470 CAL UUNIT YES--ASSEMBLE AND PRINT
01211 0602 00 0 01447 SLW SUNIT
01212 -0500 00 0 01465 CAL UPARTY
01213 0602 00 0 01450 SLW SPARTY
01214 -0500 00 0 01472 CAL UFLAGS
01215 0602 00 0 01452 SLW SFLAGS
01216 0074 00 4 00027 TSX $WRFLXA,4 FINISH PRINTING THE LINE
01217 3 00004 0 01447 PTH SUNIT,,4
01220 -0500 00 0 01473 FRPASS CAL UPSWD CAREFULL NOW....
01221 -0520 00 0 01376 NZT PSWFLG SHALL WE PRINT THE PASSWORD
01222 -0500 00 0 02073 CAL =H NO--BLANK IT OUT
01223 0602 00 0 01453 SLW SPSWD AND STORE
01224 0074 00 4 00002 TSX $WRFLX,4 FINISH THE FIRST OUTPUT LINE
01225 3 00001 0 01453 PTH SPSWD,,1
01226 -0520 00 0 01377 LINE2 NZT ACTFLG SHALL WE PRINT ALLOTMENTS TOO
01227 0020 00 0 01244 TRA FRMEND NO
01230 -0500 00 0 01511 CAL UREQNO YES--ASSEMBLE THE LINE
01231 0602 00 0 01454 SLW SREQNO
01232 -0500 00 0 01512 CAL UDEPT
01233 0602 00 0 01456 SLW SDEPT
01234 -0500 00 0 01513 CAL UDATE
01235 0602 00 0 01460 SLW SDATE
01236 -0500 00 0 01514 CAL UDATEF
01237 0602 00 0 01462 SLW SDATEF
01240 0074 00 4 00027 TSX $WRFLXA,4 PRINT THE FIRST PART OF THE LINE
01241 3 00001 0 02073 PTH =H ,,1 PRECEEDED BY A WORD OF BLANKS
01242 0074 00 4 00002 TSX $WRFLX,4
01243 3 00010 0 01501 PTH UDRUM,,8 FIRST THE ALLOTMENTS
$ TSX $WRFLX,4 THEN THE REST
$ PTH SREQNO,,7
01244 0020 00 0 00473 FRMEND TRA NXTCRD BACK WE GO FOR MORE
(WILL IT NEVER END .Q.)
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 18
ERROR ROUTINES
01245 1 00001 3 01246 BADNOT TXI *+1,3,1 MOVE BACK ONE ARG
01246 0774 00 1 00003 AXT 3,1 TO GET THREE
01247 -0500 00 3 01651 CAL ARGBUF,3 GET THE ARG
01250 0602 00 1 01640 SLW ERRBUF+3,1 ..
01251 1 77777 3 01252 TXI *+1,3,-1 MOVE TO NEXT ARG
01252 2 00001 1 01247 TIX *-3,1,1 AND DO THREE
01253 0074 00 4 00027 TSX $WRFLXA,4 PRINT THEM
01254 3 00004 0 01517 PTH NOTMES,,4
01255 0074 00 4 00002 TSX $WRFLX,4
01256 3 00003 0 01635 PTH ERRBUF,,3
01257 0020 00 0 01273 TRA LEAVE AND EXIT
01260 0074 00 4 00027 BADDEV TSX $WRFLXA,4 BAD DEVICE SPECIFIED
01261 3 00005 0 01523 PTH DEVMES,,5
01262 0074 00 4 00002 PTARG TSX $WRFLX,4 PRINT THE OFFENTING ARG
01263 3 00001 0 01407 PTH ARG,,1 ..
01264 0020 00 0 01273 TRA LEAVE
01265 0074 00 4 00027 BADSFT TSX $WRFLXA,4 BAD SHIFT SPECIFIED
01266 3 00005 0 01530 PTH SFTMES,,5
01267 0020 00 0 01262 TRA PTARG
01270 0074 00 4 00027 BADARG TSX $WRFLXA,4 (XXXX) NOT IN TABLE
01271 3 00004 0 01645 PTH ARGMES,,4
01272 0020 00 0 01262 TRA PTARG
01273 0074 00 4 00002 LEAVE TSX $WRFLX,4 EXIT QUICKLY
01274 3 00001 0 02070 PTH =H* ,,1
01275 0074 00 4 00003 TSX $CHNCOM,4
01276 0 00000 0 00000 PZE 0
01277 0074 00 4 00002 WNTMOR TSX $WRFLX,4 (NOT) OR (XXX) NEEDS MORE ARGS
01300 3 00004 0 01675 PTH MORMES,,4
01301 0020 00 0 01273 TRA LEAVE
01302 -0520 00 0 01403 FILXIT NZT ATTNM1 WERE WE ATTACHED
01303 0020 00 0 01311 TRA BCLOSE NO
01304 0074 00 4 00017 TSX $ATTACH,4 YES--GO HOME
01305 3 00000 0 01413 PTH HMPROB
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 19
ERROR ROUTINES
01306 3 00000 0 01414 PTH HMPROG
01307 3 00000 0 01311 PTH *+2 DONT WORRY ABOUT ERRORS
01310 3 00000 0 01412 PTH TEMP WE WONT BE HERE LONG ANYWAY
01311 0074 00 4 00030 BCLOSE TSX $BFCLOS,4 CLOSE THE FILE
01312 3 00000 0 01405 PTH INFIL1
01313 3 00000 0 01406 PTH INFIL2
01314 3 00000 0 01315 PTH *+1
01315 0074 00 4 00003 TSX $CHNCOM,4 AND AWAY WE GO
01316 0 00000 0 00000 PZE 0
01317 0074 00 4 00031 IOERR TSX $BFCODE,4 GET THE BF ERROR CODE
01320 3 00000 0 01412 PTH TEMP
01321 -0520 00 0 01412 NZT TEMP IS THE ERROR CODE ZERO--
01322 0020 00 0 01334 TRA NOTBER YES-NOT A BF-ERROR
01323 0074 00 4 00024 TSX $DEFBC,4 CONVERT THE ERROR CODE
01324 3 00000 0 01412 PTH TEMP FOR PRINTING
01325 0601 00 0 01412 STO TEMP
01326 0074 00 4 00007 TSX $BZEL,4
01327 3 00000 0 01412 PTH TEMP
01330 0601 00 0 01716 STO ERROR
01331 0074 00 4 00002 TSX $WRFLX,4 PRINT THE ERROR
01332 3 00007 0 01710 PTH IOMES,,7
01333 0020 00 0 01302 TRA FILXIT
HERE IF AN I/O ERROR OCCURRED
01334 0074 00 4 00032 NOTBER TSX $CLOSE,4 CLOSE THEM ALL
01335 3 00000 0 02061 PTH =HALL ..
01336 -0520 00 0 01403 NZT ATTNM1 ARE WE ANYWHERE
01337 0020 00 0 01345 TRA ERXIT NOPE
01340 0074 00 4 00017 TSX $ATTACH,4 YES, RETURN
01341 3 00000 0 01413 PTH HMPROB
01342 3 00000 0 01414 PTH HMPROG
01343 3 00000 0 01345 PTH *+2
01344 3 00000 0 01412 PTH TEMP
01345 0560 00 0 01411 ERXIT LDQ FENCE SET UP CALL TO PRNTER
01346 -0500 00 0 02066 CAL =HPRNTER ..
01347 0074 00 4 00033 TSX $NEXCOM,4 AND EXCUTE THE COMMAND
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 20
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
* * * * * * * * *
* SEARCH FLAGS *
* * * * * * * * *
01350 0 00000 0 00000 FNAME PZE
01351 0 00000 0 00000 FPROB PZE
01352 0 00000 0 00000 FPROG PZE
01353 0 00000 0 00000 FPARTY PZE
01354 0 00000 0 00000 FUFDNM PZE
01355 0 00000 0 00000 FUNIT PZE
01356 0 00000 0 00000 FRCODE PZE
01357 0 00000 0 00000 FFLAGS PZE
01360 0 00000 0 00000 FDRUM PZE
01361 0 00000 0 00000 FDISK PZE
01362 0 00000 0 00000 FTAPE PZE
01363 0 00000 0 00000 FT1 PZE
01364 0 00000 0 00000 FT2 PZE
01365 0 00000 0 00000 FT3 PZE
01366 0 00000 0 00000 FT4 PZE
01367 0 00000 0 00000 FT5 PZE
01370 0 00000 0 00000 FDATEF PZE
01371 0 00000 0 00000 FAGRP PZE
* * * * * * * *
* OTHER FLAGS *
* * * * * * * *
01372 0 00000 0 00000 NOTFLG PZE NONZERO AFTER '(NOT)'
01373 0 00000 0 00000 OFNFLG PZE NONZERO AFTER '(OFFN)
01374 0 00000 0 00000 SPECFL PZE NONZERO AFTER (XXXX)
01375 0 00000 0 00000 FULFLG PZE NONZERO TO GET FULL FIRST LINE PRINTOUT
01376 0 00000 0 00000 PSWFLG PZE NONZERO TO PRINT PASSWORDS
01377 0 00000 0 00000 ACTFLG PZE NONZERO TO PRINT SECOND LINE
01400 0 00000 0 00000 GAFFLG PZE NONZERO WHEN WORKING ON A GAF FILE
01401 0 00000 0 00000 OUTNM1 PZE FILE NAME1 FOR OFFLINE OUTPUT
01402 0 00000 0 00000 OUTNM2 PZE FILE NAME2 FOR OFFLINE OUTPUT
01403 0 00000 0 00000 ATTNM1 PZE NAME1 FOR ATTACH (ATT)
01404 0 00000 0 00000 ATTNM2 PZE NAME2 FOR ATTACH (ATT)
01405 642123234563 INFIL1 BCI 1,UACCNT INPUT FILE NAME1
01406 633144212323 INFIL2 BCI 1,TIMACC INPUT FILE NAME2
* * * * * * * * * * * * *
* RANDOM OTHER STORAGE *
* * * * * * * * * * * * *
01407 ARG BSS 1
01410 000000000034 RPAREN BCI 1,00000)
01411 -377777777777 FENCE OCT 777777777777
01412 TEMP BSS 1
01413 HMPROB BSS 1
01414 HMPROG BSS 1
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 21
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
01415 606060272126 GAFNM2 BCI 1, GAF SECOND NAME OF GAF FILE
01416 QPROB BSS 1
* * * * * * * * *
* SEARCH MASKS *
* * * * * * * * *
01417 -377777000077 AGMSK1 OCT 777777000077
01420 275147000060 AGMSK2 BCI 1,GRP00
01421 275147545460 AGMSK3 BCI 1,GRP**
01422 546060606060 PRBMSK BCI 1,*
* * * * * * * * * * * * * *
* COMPARISON WORD STORAGE *
* * * * * * * * * * * * * *
01423 0 00000 0 00000 NAME PZE
01424 0 00000 0 00000 PROB PZE
01425 0 00000 0 00000 PROG PZE
01426 0 00000 0 00000 PARTY PZE
01427 0 00000 0 00000 UFDNM PZE
01430 0 00000 0 00000 UNIT PZE
01431 0 00000 0 00000 RCODE PZE
01432 0 00000 0 00000 FLAGS PZE
01433 0 00000 0 00000 DATEF PZE
01434 0 00000 0 00000 AGRP PZE
* * * * * * * * * * * *
* OUTPUT LINE BUFFERS *
* * * * * * * * * * * *
01435 0 00000 0 00000 SPROB PZE
01436 -205757575757 OCT 605757575757
01437 0 00000 0 00000 SPROG PZE
01440 -205757575757 OCT 605757575757
01441 0 00000 0 00000 SNAME PZE
01442 -205757575757 OCT 605757575757
01443 0 00000 0 00000 SRCODE PZE
01444 -205757575757 OCT 605757575757
01445 0 00000 0 00000 SUFDNM PZE
01446 -205757575757 OCT 605757575757
01447 0 00000 0 00000 SUNIT PZE
01450 0 00000 0 00000 SPARTY PZE
01451 606060606060 SAGRP BCI 1,
01452 0 00000 0 00000 SFLAGS PZE
01453 0 00000 0 00000 SPSWD PZE
01454 0 00000 0 00000 SREQNO PZE
01455 -205757575757 OCT 605757575757
01456 0 00000 0 00000 SDEPT PZE
01457 -205757575757 OCT 605757575757
01460 0 00000 0 00000 SDATE PZE
01461 -205757575757 OCT 605757575757
01462 0 00000 0 00000 SDATEF PZE
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 22
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
* * * * * * * * *
* INPUT STORAGE *
* * * * * * * * *
01463 CARD BSS 28
01463 UNAME EQU CARD
01464 UPROG EQU CARD+1
01464 UPROB EQU CARD+1
01465 UPARTY EQU CARD+2
01467 UUFDNM EQU CARD+4
01470 UUNIT EQU CARD+5
01471 URCODE EQU CARD+6
01472 UFLAGS EQU CARD+7
01473 UPSWD EQU CARD+8
01474 UGPROB EQU CARD+9
01501 UDRUM EQU CARD+14
01502 UDISK EQU CARD+15
01503 UTAPE EQU CARD+16
01504 UT1 EQU CARD+17
01505 UT2 EQU CARD+18
01506 UT3 EQU CARD+19
01507 UT4 EQU CARD+20
01510 UT5 EQU CARD+21
01511 UREQNO EQU CARD+22
01512 UDEPT EQU CARD+23
01513 UDATE EQU CARD+24
01514 UDATEF EQU CARD+25
* * * * * * * * * * * * * * *
* ERROR AND OTHER MESSAGES *
* * * * * * * * * * * * * * *
01517 314343252721 NOTMES BCI 4,ILLEGAL USE OF '(NOT)'--
01520 436064622560
01521 462660147445
01522 466334144040
01523 314343252721 DEVMES BCI 5,ILLEGAL '(DEV)' PARAMETER--
01524 436014742425
01525 653414604721
01526 512144256325
01527 514040606060
01530 314343252721 SFTMES BCI 5,ILLEGAL '(SHFT)' PARAMETER--
01531 436014746230
01532 266334146047
01533 215121442563
01534 255140406060
01535 314343252721 PRBMES BCI 4,ILLEGAL PROGRAMMER NO.--
01536 436047514627
01537 512144442551
01540 604546334040
01541 606421622321 FMESS1 BCI , UASCAN - PRINT OUT SELECTED INFORMATION FROM UACCNT TIMACC
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 23
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
01542 456040604751
01543 314563604664
01544 636062254325
01545 236325246031
01546 452646514421
01547 633146456026
01550 514644606421
01551 232345636063
01552 314421232360
01553 606462212725 FMESS2 BCI , USAGE: R UASCAN ARGS , WHERE ARGS MAY BE
01554 356051606421
01555 622321456021
01556 512762607360
01557 663025512560
01560 215127626044
01561 217060222560
01562 606060606060
01563 606060606060
01564 606060606060
01565 607447514622 FMESS3 BCI , (PROB) PROBNO, (PROG) PROGNO, (NAME) NAME, (UFDN) UFDNAM,
01566 346047514622
01567 454673607447
01570 514627346047
01571 514627454673
01572 607445214425
01573 346045214425
01574 736074642624
01575 453460642624
01576 452144736060
01577 607421275147 FMESS4 BCI , (AGRP) X, (PGRP) X, (UGRP) X, (RCOD) RCODE, (FLAG) FLAGS,
01600 346067736074
01601 472751473460
01602 677360746427
01603 514734606773
01604 607451234624
01605 346051234624
01606 257360742643
01607 212734602643
01610 212762736060
01611 607462302663 FMESS5 BCI , (SHFT) X, (DEV) X, (INPT) N1 N2, (GAF) N1, (ATT) PB PG,
01612 346067736074
01613 242565346067
01614 736074314547
01615 633460450160
01616 450273607427
01617 212634604501
01620 736074216363
01621 346047226047
01622 277360606060
01623 607426644343 FMESS6 BCI , (FULL), (ACCT), (NOT), (OFF) N1 N2, (OFFN) N1 N2.
01624 347360742123
01625 236334736074
01626 454663347360
01627 744626263460
01630 450160450273
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 24
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
01631 607446262645
01632 346045016045
01633 023360606060
01634 606060606060
01635 ERRBUF BSS 3
01640 016060606064 HIMES BCI 2,1 UASCAN
01641 216223214560
01642 -205757575757 OCT 605757575757
01643 DATE BSS 1
01644 TIME BSS 1
01645 314343252721 ARGMES BCI 4,ILLEGAL ARGUMENT --
01646 436021512764
01647 442545636040
01650 406060606060
01651 ARGBUF BSS 20
01675 454663602545 MORMES BCI 4,NOT ENOUGH ARGUMENTS
01676 466427306021
01677 512764442545
01700 636260606060
01701 COUNT BSS 1
01702 602646644524 BCI 1, FOUND
01703 454660254563 NOENT BCI 5,NO ENTRY SATISFIES REQUEST
01704 517060622163
01705 316226312562
01706 605125506425
01707 626360606060
01710 255151465160 IOMES BCI 6,ERROR IN BFREAD OR BFOPEN. ERRCODE=
01711 314560222651
01712 252124604651
01713 602226464725
01714 453360255151
01715 234624251360
01716 ERROR BSS 1
01717 606047514622 BASIC BCI 6, PROB PROG NAME RCODE UFDNM
01720 606060475146
01721 276060452144
01722 256060605123
01723 462425606064
01724 262445446060
01725 644531636060 FULHED BCI 4,UNIT PARTY ACCTG FLAGS
01726 472151637060
01727 212323632760
01730 264321276260
01731 476266246060 PASHED BCI 1,PSWD
01732 606060606060 ALLOTS BCI 5, DRUM DISK TAPE T1
01733 606024516444
01734 606024316242
01735 606063214725
01736 606060606301
01737 606060606302 BCI 4, T2 T3 T4 T5
01740 606060606303
01741 606060606304
01742 606060606305
01743 605125504546 REQS BCI 5, REQNO DEPT DATE DATEF
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 25
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
01744 606060242547
01745 636060242163
01746 256060602421
01747 632526606060
01750 606060606000 ZERO BCI 1, 0
* * * * * * * * * *
* ARGUMENT TABLE *
* * * * * * * * * *
01751 607427212634 ARGTBL BCI 1, (GAF) SPECIFY G.A.F. AS INPUT FILE
01752 0074 00 2 00165 TSX INCARG,2 SO GET THE FILE NAME
01753 0020 00 0 00151 TRA GAFARG AND PLAY WITH IT
01754 743145476334 BCI 1,(INPT) SPECIFY NAME1 NAME2 AS INPUT FILE
01755 0074 00 2 00165 TSX INCARG,2 GET NAME1
01756 0020 00 0 00167 TRA INPARG AND PLAY
01757 607445466334 BCI 1, (NOT) TO NEGATE THE MEANING OF SOME ARGS
01760 0074 00 2 00165 TSX INCARG,2 GET THE NEXT (XXXX)
01761 0020 00 0 00177 TRA NOTARG
01762 744751462234 BCI 1,(PROB) PROBLEM NUMBER FOLLOWS
01763 0074 00 2 00165 TSX INCARG,2 GET IT
01764 0020 00 0 00205 TRA PRBARG
01765 744751462734 BCI 1,(PROG) PROGRAMMER NUMBER FOLLOWS
01766 0074 00 2 00165 TSX INCARG,2 GET IT
01767 0020 00 0 00215 TRA PRGARG
01770 742664434334 BCI 1,(FULL) FULL PRINT OPTION DESIRED
01771 0020 00 0 00224 TRA FULARG
01772 0761 00 0 00000 NOP TAKE UP SPACE IN TABLE
01773 607423646334 BCI 1, (CUT) SELECT BY CUT DATE
01774 0074 00 2 00165 TSX INCARG,2 GET MMDDYY FOR CUT
01775 0020 00 0 00230 TRA CUTARG
01776 607424256534 BCI 1, (DEV) SELECT BY DEVICE ALLOTMENT
01777 0074 00 2 00165 TSX INCARG,2 GET THE DEVICE NUMBER
02000 0020 00 0 00242 TRA DEVARG
02001 744521442534 BCI 1,(NAME) SELECT BY NAME
02002 0074 00 2 00165 TSX INCARG,2 GET THE NAME
02003 0020 00 0 00120 TRA NAMARG
02004 746230266334 BCI 1,(SHFT) SELECT BY SHIFT TIME ALLOTMENT
02005 0074 00 2 00165 TSX INCARG,2 GET THE SHIFT NUMBER
02006 0020 00 0 00255 TRA SFTARG ..
02007 744762662434 BCI 1,(PSWD) PRINT PASSWORDS
02010 0020 00 0 00270 TRA PSWARG
02011 0761 00 0 00000 NOP
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 26
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
02012 745123462434 BCI 1,(RCOD) SELECT BY RCODE
02013 0074 00 2 00165 TSX INCARG,2 GET THE CODE BITS DESIRED
02014 0020 00 0 00274 TRA RCDARG
02015 607446262634 BCI 1, (OFF) OFFLINE OUTPUT
02016 0074 00 2 00165 TSX INCARG,2 GET NAME1 OF THE OUTPUT FILE
02017 0020 00 0 00305 TRA OFFARG
02020 744626264534 BCI 1,(OFFN) OUTPUT ON LINE AND
02021 0074 00 2 00165 TSX INCARG,2 OFF LINE IN NAME1 NAME2
02022 0020 00 0 00304 TRA OFNARG ..
02023 744727514734 BCI 1,(PGRP) SELECT BY PARTY GROUP
02024 0074 00 2 00165 TSX INCARG,2 GET THE DESIRED GROUP NUM.
02025 0020 00 0 00315 TRA PGPARG
02026 746427514734 BCI 1,(UGRP) SELECT BY UNIT GROUP
02027 0074 00 2 00165 TSX INCARG,2 GET THE UNIT GROUP NUMBER
02030 0020 00 0 00324 TRA UGPARG
02031 742127514734 BCI 1,(AGRP) SELECT BY ACCOUNTING GROUP
02032 0074 00 2 00165 TSX INCARG,2 GET THE ACCOUNTING GROUP
02033 0020 00 0 00334 TRA AGPARG
02034 746426244534 BCI 1,(UFDN) SELECT BY HOME UFD NAME
02035 0074 00 2 00165 TSX INCARG,2 GET THE UFD NAME
02036 0020 00 0 00350 TRA UFDARG
02037 742123236334 BCI 1,(ACCT) DESIRE AN ACCOUNTING PRINTOUT
02040 0020 00 0 00357 TRA ACTARG
02041 0761 00 0 00000 NOP
02042 607421636334 BCI 1, (ATT) ATTACH PROB PROG TO GET INPUT FILE
02043 0074 00 2 00165 TSX INCARG,2 GET THE PROBLEM NUMBER
02044 0020 00 0 00364 TRA ATTARG
02045 742643212734 BCI 1,(FLAG) SELECT BY FLAG BITS
02046 0074 00 2 00165 TSX INCARG,2 GET THE FLAG BITS
02047 0020 00 0 00374 TRA FLGARG
00077 ARGSIZ EQU *-ARGTBL SIZE OF THE ABOVE TABLE
END
LITERALS
02050 000000000000
02051 000000000001
02052 000000000004
02053 000000000006
02054 000000000011
02055 000000000077
02056 000000000660
02057 000000007777
02060 000000777777
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 27
STORAGE, CONSTANTS, MESSAGES, FLAGS, AND OTHER STUFF
02061 214343606060
02062 234426435454
02063 275147000060
02064 400000000000
02065 400000000001
02066 475145632551
02067 516060606060
02070 546060606060
02071 606060000000
02072 606060600000
02073 606060606060
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 1
POST PROCESSOR ASSEMBLY DATA
2074 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1407 ARG 73, 100, 106, 112, 121, 131, 143, 156, 171, 174, 200, 206, 215, 231, 243, 256, 301
307, 312, 315, 324, 335, 350, 366, 371, 401, 1263
1363 FT1 266, 566, 631
1364 FT2 637
1365 FT3 645
1366 FT4 653
1367 FT5 661
13 OFF 412
166 REM
1504 UT1 630, 1517
1505 UT2 636, 1517
1506 UT3 644, 1517
1507 UT4 652, 1517
1510 UT5 660, 1517
12 ZEL 334
1434 AGRP 342, 746
25 BZ57 1063
7 BZEL 230, 1326
1463 CARD 474, 500, 503, 511, 747, 756, 762, 765, 1002, 1015, 1025, 1031, 1034, 1517
1105 CXR4 1076
1643 DATE 64
1151 FORM 1130
1130 GATE 1146, 1150
1123 MASK 1106, 1111
1423 NAME 122, 525
1073 NONE 1054
1424 PROB 207, 517, 774
1425 PROG 216, 533
1011 READ 473, 753, 1001
1743 REQS
1041 RXR4 1011, 1024, 1030, 1033
1412 TEMP 336, 337, 670, 671, 673, 706, 710, 711, 712, 1017, 1310, 1320, 1321, 1324, 1325, 1327, 1344
1644 TIME 65
1430 UNIT 326, 621
1750 ZERO 541, 547, 555, 627, 635, 643, 651, 657
753 ANEXT 761
1717 BASIC 1132
10 BCDEC 242, 255
11 BCOCT 300, 400, 666, 707
460 BUFF1 447
461 BUFF2 451
32 CLOSE 1334
1701 COUNT 472, 1053, 1055, 1061, 1062, 1064, 1065, 1067, 1125, 1127
742 CUTNO 735
1433 DATEF 234, 734
24 DEFBC 1060, 1323
1716 ERROR 1330
1345 ERXIT 1337
1371 FAGRP 346, 750
1361 FDISK 551
1360 FDRUM 253, 543
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 2
POST PROCESSOR ASSEMBLY DATA
1411 FENCE 43, 74, 1345
1432 FLAGS 402, 713, 715, 717, 720
1350 FNAME 126, 527
1351 FPROB 213, 521, 776
1352 FPROG 222, 535
1362 FTAPE 557
1355 FUNIT 332, 601, 623
4 GETTM 63
1640 HIMES 420
1317 IOERR 463
1710 IOMES 1332
1273 LEAVE 35, 1257, 1264, 1301
1226 LINE2 1177
5 LJUST 120, 130
1703 NOENT 1074
15 OFFON 432, 1046
1426 PARTY 316, 605
1070 PSTAR 1057, 1075
1262 PTARG 1267, 1272
1416 QPROB 1007, 1023, 1152, 1156
1431 RCODE 302, 672
1451 SAGRP 162, 507, 771, 1040
1460 SDATE 1235
1456 SDEPT 1233
435 SETUP 411
1441 SNAME 1163
141 SPECL 103, 204
1435 SPROB 1151, 1157, 1176, 1205
1437 SPROG 1161, 1200
1453 SPSWD 1223, 1225
1447 SUNIT 1211, 1217
1513 UDATE 1234, 1517
1512 UDEPT 1232, 1517
1502 UDISK 550, 1517
1501 UDRUM 542, 1243, 1517
1427 UFDNM 351, 613
1463 UNAME 526, 562, 1162, 1172, 1517
1464 UPROB 775, 1006, 1517
1464 UPROG 534, 563, 1160, 1173, 1517
1473 UPSWD 1220, 1517
1503 UTAPE 556, 1517
1470 UUNIT 622, 1210, 1517
2 WRFLX 45, 47, 51, 53, 55, 57, 66, 417, 425, 427, 1051, 1066, 1070, 1073, 1141, 1144, 1154
1175, 1224, 1242, 1255, 1262, 1273, 1277, 1331
357 ACTARG 2040
1377 ACTFLG 361, 1143, 1226
1417 AGMSK1 475, 1026
1420 AGMSK2 341, 1027
1421 AGMSK3 755
334 AGPARG 2033
762 AGPYES 751
745 AGRPHD 510, 760, 764
1732 ALLOTS 1145
1651 ARGBUF 41, 42, 72, 426, 1247
404 ARGFIN 75
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 3
POST PROCESSOR ASSEMBLY DATA
1645 ARGMES 1271
77 ARGSIZ 142, 144, 146, 2050
1751 ARGTBL 144, 146, 2050
17 ATTACH 443, 466, 1304, 1340
364 ATTARG 2044
16 ATTNAM 441
1403 ATTNM1 367, 437, 444, 464, 471, 1302, 1336
1404 ATTNM2 372, 445
1270 BADARG 150
1260 BADDEV 244, 247
1245 BADNOT 152, 170, 225, 271, 306, 360, 365
1265 BADSFT 257, 262
1311 BCLOSE 1303
30 BFCLOS 1311
31 BFCODE 1317
22 BFOPEN 454
23 BFREAD 1012
1200 BWRITE 1174
727 CHKCUT 603, 703, 724
702 CHKFLG 665, 677
524 CHKNAM 515
604 CHKTHM 564
3 CHNCOM 61, 1275, 1315
163 CLRBAK 127, 176, 214, 223, 227, 241, 254, 267, 273, 303, 314, 323, 333, 347, 356, 363, 373
403
1076 CMPARE 104, 516, 524, 532, 540, 546, 554, 604, 612, 620, 626, 634, 642, 650, 656, 745, 754
773
230 CUTARG 1775
242 DEVARG 2000
1523 DEVMES 1261
1043 ENDFIL 1016
1635 ERRBUF 1250, 1256
1370 FDATEF 240, 727, 737, 742
1357 FFLAGS 377, 573, 702, 722, 725
725 FGMTCH 714, 721
722 FGNMTH 716
446 FILLOD 440
1302 FILXIT 436, 1072, 1333
374 FLGARG 2047
1541 FMESS1 46
1553 FMESS2 50
1565 FMESS3 52
1577 FMESS4 54
1611 FMESS5 56
1623 FMESS6 60
1125 FORMAT 730, 736, 740, 743
1353 FPARTY 322, 575, 607
1356 FRCODE 277, 571, 664, 675, 700
1244 FRMEND 1227
1220 FRPASS 1207
1354 FUFDNM 355, 577, 615
224 FULARG 1771
1375 FULFLG 226, 362, 1133, 1206
1725 FULHED 1135
151 GAFARG 1753
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 4
POST PROCESSOR ASSEMBLY DATA
1400 GAFFLG 154, 514, 1020
1415 GAFNM2 153
1 GETCLS 40
20 GETMEM 446
1413 HMPROB 442, 467, 1305, 1341
1414 HMPROG 470, 1306, 1342
165 INCARG 173, 311, 370, 1752, 1755, 1760, 1763, 1766, 1774, 1777, 2002, 2005, 2013, 2016, 2021, 2024, 2027
2032, 2035, 2043, 2046
1405 INFIL1 157, 172, 456, 1013, 1312
1406 INFIL2 155, 175, 457, 1014, 1313
167 INPARG 1756
1051 LSTLNS 1044
1675 MORMES 1300
1104 NACALL 1102
120 NAMARG 2003
26 NAMASK 1103
33 NEXCOM 1347
63 NOFENC 44, 63
177 NOTARG 1761
1334 NOTBER 1322
1372 NOTFLG 71, 124, 151, 163, 167, 177, 211, 220, 224, 236, 251, 264, 270, 275, 305, 320, 330
344, 353, 357, 364, 375, 404
1517 NOTMES 1254
72 NXTARG 165
473 NXTCRD 523, 531, 537, 545, 553, 561, 567, 572, 574, 576, 600, 602, 611, 617, 625, 633, 641
647, 655, 663, 676, 701, 723, 726, 741, 744, 772, 1010, 1244
305 OFFARG 2017
412 OFFLIN
304 OFNARG 2022
1373 OFNFLG 304, 431, 1045
1401 OUTNM1 310, 410, 413, 433, 1043, 1047
1402 OUTNM2 313, 414, 434, 1050
1731 PASHED 1140, 1142
315 PGPARG 2025
205 PRBARG 136, 1764
773 PRBHED 513, 1005
1001 PRBLUK 1004
1535 PRBMES
1422 PRBMSK 512
130 PRBPRG 116, 117
1006 PRBYES 777
215 PRGARG 110, 137, 140, 1767
104 PRPGNM 203
270 PSWARG 2010
1376 PSWFLG 272, 1137, 1221
274 RCDARG 2014
700 RCMTCH 674
6 REPROB 205
1124 RESULT 1112, 1115, 1120
1410 RPAREN 102, 202
1462 SDATEF 1237
472 SEARCH 465
0 SETBRK 34, 435
21 SETMEM 453
1452 SFLAGS 1215
1 UASCAN - TO SELECT AND PRINT INFORMATION FROM UACCNT TIMACC 04/28/69 1231.2 PAGE 5
POST PROCESSOR ASSEMBLY DATA
255 SFTARG 2006
1530 SFTMES 1266
1450 SPARTY 1213
1374 SPECFL 70, 76, 141, 164, 406
1443 SRCODE 1167
1454 SREQNO 1231
14 SSPRNT 415, 421
1445 SUFDNM 1171, 1203
511 TRYPRB 477, 502
1514 UDATEF 731, 1236, 1517
350 UFDARG 2036
1472 UFLAGS 704, 1214, 1517
324 UGPARG 2030
1474 UGPROB 520, 1022, 1517
1465 UPARTY 606, 1212, 1517
1471 URCODE 667, 1164, 1517
1511 UREQNO 1230, 1517
1467 UUFDNM 614, 1170, 1517
1277 WNTMOR 405, 407
27 WRFLXA 1131, 1134, 1204, 1216, 1240, 1253, 1260, 1265, 1270
0 NO ERROR IN ABOVE ASSEMBLY.