1 V=6 /EDUSYSTEM 25 BASIC 2 3 4 5 6 /16 NOVEMBER 1972 7 8 9 /EDUSYSTEM 25 BASIC 10 11 /MARK BRAMHALL 12 /DIGITAL EQUIPMENT CORP. 13 14 /BARRY SMITH 15 /STEVE POULSEN 16 /OREGON MUSEUM OF SCIENCE & INDUSTRY 17 18 /JOHN O'DONNELL 19 /YALE UNIVERSITY 20 21 /EDUSYSTEM 25 BASIC IS FOR THE PDP-8/E, -8/F, -8/M, -8/I, -8/L WITH 22 /12K OR MORE MEMORY AND EITHER THE DC02 OR PT08(KL8E) OPTION 23 /AND TC08 DECTAPE CONTROLLER WITH TU56 OR TWO TU55 TRANSPORT(S) 24 /NOTE: START ADDRESS IS 15200. 25 26 /DEFINITIONS 27 28 FIXMRI FGET=0000 /FLOATING INSTRUCTIONS 29 FIXMRI FADD=1000 30 FIXMRI FSUB=2000 31 FIXMRI FMUL=3000 32 FIXMRI FDIV=4000 33 FIXMRI FJMP=5000 34 FIXMRI FCMP=6000 35 FIXMRI FPUT=7000 36 37 FINT=JMS I 7 38 FEXT=0000 39 FXIT=0000 40 FNOR=6010 41 FSKP=6000 42 FSNE=6040 43 FSEQ=6050 44 FSGE=6100 45 FSLT=6110 46 FSGT=6140 47 FSLE=6150 48 49 DTLA=6766 50 CAF=6007 51 BSW=7002 52 MQL=7421 53 MQA=7501 54 55 SPL=6102 56 57 MTKF=6123 58 MTPF=6113 59 MTON=6117 60 MINT=6115 61 MINS=6125 62 MKSF=6111 63 MKRB=6116 64 MTSF=6121 65 MTCF=6122 66 MTLS=6126 67 68 L0001=CLL CLA IAC 69 L0004=CLL CLA IAC RTL 70 L0003=CLL CLA CML IAC RAL 71 L7777=CLL CLA CMA 72 L7776=CLL CLA CMA RAL 73 L7775=CLL CLA CMA RTL 74 L3777=CLL CLA CMA RAR 75 L5777=CLL CLA CMA RTR 76 L4000=CLL CLA CML RAR 77 L2000=CLL CLA CML RTR 78 L0002=CLL CLA CML RTL 79 80 SWAP=10 81 /PAGE ZERO 82 83 FIELD 0 84 85 PAGE 0 86 000000 0000 0 87 000001 5402 JMP I .+1 /INTERRUPT HANDLER 88 000002 1173 INTR8E 89 000003 0000 USER, 0 /INTERRUPT USER COUNTER 90 000004 0000 SIN, 0 /INTERRUPT TEMPORARY 91 000005 0000 TEMP1, 0 /INTERRUPT TEMP 92 000006 4165 TEMP2, USER0 /INTERRUPT TEMP 93 000007 5644 FPNT /FLOATING POINT 94 000010 0000 XREG, 0 /INTERRUPT XREG 95 000011 0000 XREG2, 0 /INTERRUPT XREG 96 000012 0000 XREG3, 0 /GENERAL XREG 97 000013 0000 FLTXR, 0 /FLOATING XREG 98 000014 0000 FLTXR2, 0 /FLOATING XREG 99 STSWAP=. /START OF SWAP 100 000015 7776 PDLXR, TOP /PUSH-DOWN XREG 101 000016 0000 AXIN, 0 /PACKING XREG 102 TEXTP=. /TEXT POINTERS 103 000017 0000 AXOUT, 0 /UNPACK XREG 104 000020 0000 GTEM, 0 /UNPACK SWITCH 105 000021 0000 XCT, 0 /UNPACK SWITCH 106 000022 0467 PC, READY /PROGRAM RESTART 107 000023 0000 ADD, 0 /PACK TEMPORARY 108 000024 0000 XCTIN, 0 /PACK SWITCH 109 SUBS=XCTIN /SUBSCRIPT 110 000025 0000 PT1, 0 /FLOATING POINTER 111 000026 0000 CHAR, 0 /CHARACTER 112 000027 0000 LINEPC, 0 /LINE POINTER 113 000030 6213 LINENO, CIF CDF 10 /LINE NUMBER 114 000031 5432 LASTLN, JMP I .+1 /LAST LINE POINTER 115 MODE=LASTLN /FOR MINI-STRINGS 116 000032 0265 SPACSW, TAPEM /0 IS IGNORE SPACES 117 000033 7777 DINPUT, -1 /-1 FOR BREAK ON CR ONLY 118 /0 FOR BREAK ON ANY AND NO ECHO 119 000034 0000 OUTPUT, 0 /0 IS ECHO 120 000035 6036 XIOT, KRB /INPUT IOT 121 000036 0000 XFIELD, 0 /USER FIELD 122 000037 0000 DATAPC, 0 /LINE NUMBER OF DATA STATEMENT 123 000040 6213 CIF CDF 10 /DATA POINTER 124 000041 5442 JMP I .+1 /DATA TEMPORARY 125 000042 0275 DISKM /DATA UNPACK SWITCH 126 000043 0000 0 /DATA CHARACTER 127 000044 0040 IPTRI, BUFFER /INPUT BUFFER FILL 128 000045 0040 IPTRO, BUFFER /INPUT BUFFER EMPTY 129 000046 0040 IPTR0, BUFFER /START OF BUFFER 130 000047 0000 OPTRI, BUFFER-40 /OUTPUT BUFFER FILL 131 000050 0000 OPTRO, BUFFER-40 /OUTPUT BUFFER EMPTY 132 000051 0000 TELSW, 0 /TTY BUSY SWITCH 133 000052 0000 PACKST, 0 /START OF PACKING 134 000053 0000 PACKND, 0 /POINTER TO END OF PACKING 135 000054 0164 BUFR, LINE1 /NEXT FREE SPACE 136 STARTV=BUFR /START OF VARIABLES 137 000055 0164 LASTV, LINE1 /LAST DEFINED VARIABLE 138 000056 7776 PDLST, TOP /START OF PUSH-DOWN 139 000057 0162 ALINE0, LINE0 /POINTER TO DUMMY LINE 140 000060 0100 COMBUF, BUFCOM /COMMAND BUFFER 141 000061 0000 PRNTC1, 0 /PRINT ZONE COUNT 142 000062 0000 ERLINE, 0 /ERROR LINE 143 000063 1617 NAME, 1617 /PROGRAM NAME 144 000064 1605 1605 145 000065 0000 0 146 READC=JMS I . 147 000066 3714 PREADC, XREADC 148 PRINTC=JMS I . 149 000067 7407 PPRINT, XPRNTC 150 FREE2=JMS I . 151 000070 6000 PFREE2, XFREE2 152 FREE13=JMS I . 153 000071 6007 PFREE3, XFREE3 154 155 000072 5400 BASE, 5400 156 000073 0000 IPNTR, 0 157 000074 0000 I3, 0 158 000075 0000 IBLK, 0 159 000076 0000 OPNTR, 0 160 000077 0000 O3, 0 161 000100 0000 OBLK, 0 162 000101 0000 OMAX, 0 163 000102 0467 CHAINP, READY /'CHAIN' POINTER 164 000103 0001 FRNDX, 0001 165 000104 0203 0203 166 000105 5555 5555 167 ENSWAP=.-1 /END OF SWAP 168 DECK=XFIELD /USER ON DECK 169 000106 0000 SORTCN, 0 /SORT CONSTANT 170 000107 0000 T1, 0 /THREE TEMPS 171 000110 0000 T2, 0 172 000111 0000 CNTR, 0 /COUNTER 173 000112 0000 T3, 0 174 000113 0000 THISOP, 0 /CURRENT OP 175 000114 0000 LASTOP, 0 /LAST OP 176 EFOP=CNTR /FUNCTION OP 177 000115 5000 FLOUTP, FLOUT /FLOATING OUTPUT 178 000116 5732 FLINTP, FLIN /FLOATING INPUT 179 000117 4164 LOOK, USER0-1 /USER BEING RUN OR LOOKED AT 180 000120 4164 LOOKST, USER0-1 /TO RESET LOOKING 181 000121 6170 FLARGP, FLARG /POINTER TO TEMP FLAC 182 000122 5434 INTEGE, FIX /FIX THE FLAC ROUTINE 183 000123 0015 CCR, 15 /CR 184 000124 0007 C7, 7 /BELL 185 186 000125 0177 C177, 177 /RUBOUT 187 000126 0137 C137, 137 /BACK ARROW 188 000127 7777 LSTMOD, -1 /SET BY *INPUT* 189 000130 0014 C14, 14 /FORM FEED 190 000131 0012 CLF, 12 /LINE FEED 191 000132 7766 M12, -12 /-10 DECIMAL 192 000133 0040 C40, 40 /BUFFER SIZE 193 000134 0077 C77, 77 /RIGHT MASK 194 000135 7740 M40, -40 /-BUFFER SIZE 195 000136 7772 M6, -6 /MESSAGE LENGTH 196 000137 0010 C10, 10 197 000140 7770 M10, -10 198 000141 7700 M100, -100 /CHARACTER TEST 199 C7700=M100 /LEFT MASK 200 000142 7774 M4, -4 /CHARACTER COUNT 201 /NEW INSTRUCTIONS 202 GETC=JMS I . /UNPACK A CHAR 203 000143 4051 XGETC 204 SORTJ=JMS I . /SORT JUMP 205 000144 4735 XSORTJ 206 SORTC=JMS I . /SORT 207 000145 4705 ASORTC, XSORTC 208 PUSHA=JMS I . /SAVE AC 209 000146 1702 XPUSHA 210 PUSHJ=JMS I . /PUSH JUMP 211 000147 1715 XPUSHJ 212 PUSHF=JMS I . /SAVE FLOATING DATA 213 000150 1734 XPUSHF 214 POPA=JMS I . /RESTORE AC 215 000151 0763 XPOPA 216 POPJ=JMP I . /POP JUMP 217 000152 5704 XPOPJ 218 POPF=JMS I . /RESTORE FLOATING DATA 219 000153 4000 XPOPF 220 FLGET=JMS I . /FLOATING GET 221 000154 5141 XFLGET 222 FLPUT=JMS I . /FLOATING PUT 223 000155 6400 XFLPUT 224 PRINTX=JMS I . /DO OUTPUT 225 000156 3340 XOUTL 226 ERROR=JMS I . /ERROR 227 000157 3522 XERROR 228 UDF=JMS I . /USER DATA FIELD 229 000160 3171 AUDF, XUDF 230 RTL6=JMS I . /SIX RAL*S 231 000161 1571 XRTL6 232 TESTN=JMS I . /TEST NUMERIC 233 000162 4031 XTESTN 234 TESTC=JMS I . /TEST CHAR 235 000163 4014 XTESTC 236 PACKC=JMS I . /PACK A CHAR 237 000164 3600 XPACKC 238 GETLN=JMS I . /GET A LINE NUMBER 239 000165 5662 XGETLN 240 TSTCCR=JMS I . /SKIP IF CR 241 000166 6431 CCRTST 242 TSTCOM=JMS I . /SKIP IF COMMA 243 000167 6423 COMTST 244 TSTALP=JMS I . /SKIP IF LETTER 245 000170 5751 ALPTST 246 COMMAN=JMS I . /DETERMINE COMMAND 247 000171 2000 MANCOM 248 FIND=JMS I . /FIND A STATEMENT 249 000172 4142 XFIND 250 GETNXT=JMS I . /GET NEXT LINE 251 000173 4113 NXTGET 252 FINDLN=JMS I . /FIND A LINE 253 000174 3457 XFINDL 254 TSTEND=JMS I . /TEST FOR END OF LINE 255 000175 6436 ENDTST 256 TSTLPR=JMS I . /SKIP IF L-PAREN 257 000176 3745 LPRTST 258 GETSGN=TAD I FLARGP 259 /MAINLINE BASIC 260 261 /WHENEVER THERE IS NOTHING BETTER TO DO OR A JOB WANTS TO 262 /DISMISS ITSELF SO OTHERS CAN TRY THIS ROUTINE IS ENTERED 263 264 /IT KEEPS LOOKING FOR A JOB WITH BITS 0 AND 1 OFF WHICH 265 /SAYS THAT THE JOB IS NOT WAITING FOR INPUT OR OUTPUT 266 /RESPECTIVLY 267 *177 268 000177 6001 NULL, ION 269 000200 6201 CDF 270 000201 1117 TAD LOOK 271 000202 1227 TAD MLOOKE /CHECK POSITION OF POINTER 272 000203 7710 SPA CLA 273 000204 5207 JMP .+3 /O.K. TO LOOK AT NEXT 274 000205 1120 KL8JMP, TAD LOOKST 275 000206 3117 DCA LOOK /RESET POINTER 276 000207 2117 ISZ LOOK /LOOK AT NEXT 277 000210 1517 TAD I LOOK /GET STATUS 278 000211 0141 AND C7700 279 000212 7640 SZA CLA 280 000213 5177 JMP NULL /NO GO 281 000214 3276 DCA PRNT5 /CLEAR FORMAT SWITCH 282 000215 1517 TAD I LOOK /GET STATUS 283 000216 6002 IOF /NO INTERRUPTS 284 000217 4304 JMS DECKON /PUT HIM ONDECK 285 000220 1022 TAD PC 286 000221 3000 DCA 0 /RESTART LOCATION 287 000222 7344 L7776 /NUMBER OF COMMANDS THEN LOOK 288 000223 3022 DCA PC 289 000224 6001 ION 290 000225 5400 JMP I 0 /GO TO IT... 291 292 000226 0060 C60, 60 293 000227 3614 MLOOKE, -USER4+5 /LAST STATUS WORD : SUBTRACT NUMBER OF USERS 294 /*PRNTIT* ROUTINE 295 /ENTER WITH THE AC CONTAINING THE VALUE TO BE PRINTED AS 296 /A DECIMAL NUMBER BETWEEN 0 AND 2047 297 /IF PRNT5 IS NOT 0 THEN LEADING SPACES ARE NOT PRINTED 298 /PRNT5 IS SET TO 0 AT THE END OF THE ROUTINE 299 000230 0000 ITPRNT, 0 300 000231 3107 DCA T1 301 000232 3013 DCA FLTXR /SIGNIFICANCE TESTER 302 000233 7346 L7775 303 000234 3111 DCA CNTR /DO 3 LOOPS 304 000235 1377 TAD (PRNTLL 305 000236 3110 DCA T2 /LIST OF SUBTRACTIONS 306 000237 3112 PRNT1, DCA T3 /HOLDS DIGIT 307 000240 5243 JMP .+3 308 000241 2112 ISZ T3 /BUMP DIGIT 309 000242 3107 DCA T1 310 000243 1107 TAD T1 311 000244 1510 TAD I T2 /SUBTRACT 312 000245 7500 SMA 313 000246 5241 JMP .-5 314 000247 7200 CLA 315 000250 2110 ISZ T2 /POINT TO NEXT 316 000251 1112 TAD T3 /GET DIGIT 317 000252 7440 SZA 318 000253 5257 JMP PRNT2 /NON-ZERO 319 000254 1013 TAD FLTXR /SIG YET 320 000255 7650 SNA CLA 321 000256 5277 JMP PRNT3 /NO 322 000257 2013 PRNT2, ISZ FLTXR /NOW SIG 323 000260 1226 TAD C60 324 000261 4467 PRNT4, PRINTC /PRINT IT 325 000262 2111 PRNT7, ISZ CNTR 326 000263 5237 JMP PRNT1 /LOOP 327 000264 1107 TAD T1 328 000265 1226 TAD C60 329 000266 4467 PRINTC /UNITS DIGIT 330 000267 1276 TAD PRNT5 /FORMATING 331 000270 7640 SZA CLA 332 000271 5274 JMP PRNT6 /NO 333 000272 1133 TAD C40 334 000273 4467 PRINTC /PRINT SPACE AFTER 335 000274 3276 PRNT6, DCA PRNT5 /RESET FOR LATER 336 000275 5630 JMP I ITPRNT 337 338 000276 0000 PRNT5, 0 339 340 000277 1276 PRNT3, TAD PRNT5 /FORMATTING 341 000300 7640 SZA CLA 342 000301 5262 JMP PRNT7 /NO 343 000302 1133 TAD C40 344 000303 5261 JMP PRNT4 345 /*ONDECK* ROUTINE 346 /ROUTINE TO PUT A USER "ON DECK" 347 /ENTER WITH HIS NUMBER ON AC BITS 9-11 348 000304 0177 DECKON, NULL 349 000305 0124 AND C7 /USER NUMBER ONLY 350 000306 3004 DCA SIN /SAVE NEW 351 000307 1036 TAD DECK 352 000310 7041 CIA 353 000311 1004 TAD SIN 354 000312 7650 SNA CLA 355 000313 5352 JMP DTCHK /FAST EXIT (BUT CHECK TAPE FIRST) 356 000314 1036 TAD DECK 357 000315 4355 JMS DFIND /LOCATE OLD 358 000316 1127 TAD LSTMOD 359 000317 3033 DCA DINPUT 360 000320 1776 TAD I (XUDF+1 361 000321 3036 DCA XFIELD 362 363 /* THIS SWAP ROUTINE EXECUTES WITH INTERRUPT OFF 364 /* AND TAKES APPROXIMATELY 600 MICROSECONDS TO 365 /* EXECUTE, WHEREAS THE MAXIMUM TIME AVAILABLE 366 /* TO ANSWER A DECTAPE INTERRUPT AFTER A SEARCH 367 /* IS 400 MICROSECONDS. THEREFORE, WE MUST CHECK 368 /* THE DECTAPE FLAG AS PART OF THE INNER LOOP. 369 370 000322 1411 TAD I XREG2 371 000323 6213 CIF CDF SWAP 372 000324 3410 DCA I XREG /SWAP OUT OLD 373 000325 4000 JMS DTINTR /CHECK TAPE 374 000326 2006 ISZ TEMP2 375 000327 5322 JMP .-5 376 000330 1004 TAD SIN 377 000331 4355 JMS DFIND /LOCATE NEW 378 000332 6213 ENTRY1, CIF CDF SWAP 379 000333 1410 TAD I XREG 380 000334 4000 JMS DTINTR /CHECK TAPE 381 000335 3411 DCA I XREG2 /SWAP IN NEW 382 000336 2006 ISZ TEMP2 383 000337 5332 JMP .-5 384 000340 1033 TAD DINPUT 385 000341 3127 DCA LSTMOD 386 000342 1036 TAD XFIELD 387 000343 3776 DCA I (XUDF+1 388 000344 1004 TAD SIN 389 000345 3036 DCA DECK /NEW USER ONDECK 390 000346 1120 TAD LOOKST 391 000347 7001 IAC 392 000350 1036 TAD DECK 393 000351 3006 DCA TEMP2 /POINT TO STATUS 394 000352 6213 DTCHK, CIF CDF SWAP 395 000353 4000 JMS DTINTR 396 000354 5704 JMP I DECKON 397 398 000355 0332 DFIND, ENTRY1 399 000356 7040 ENTRY, CMA 400 000357 3006 DCA TEMP2 401 000360 1375 TAD (ORG1-1-ENSWAP+STSWAP-1 /START AT THE BEGINNING 402 000361 1372 TAD STARTP /SPACE BETWEEN 403 000362 2006 ISZ TEMP2 404 000363 5361 JMP .-2 405 000364 3010 DCA XREG /POINT TO USER 406 000365 1374 TAD (STSWAP-1 407 000366 3011 DCA XREG2 /POINT TO SWAP AREA 408 000367 1373 TAD (STSWAP-ENSWAP-1 409 000370 3006 DCA TEMP2 /SWAP COUNT 410 000371 5755 JMP I DFIND 411 412 000372 0071 STARTP, ENSWAP-STSWAP+1 /SPACE BETWEEN 413 414 000373 7707 PAGE 000374 0014 000375 4654 000376 3172 000377 0770 415 /ERROR ROUTINE 416 /HERE IS WHERE ERROR MESSAGES ARE PRINTED 417 /IT IS CALLED BY A DISMISSAL WITH THE PC SET TO 418 /ERRORX AND THE ERROR ADDRESS IN LSTMOD 419 000400 4777 ERRORX, JMS I (IOFIX /CLEAN UP FILES 420 000401 1776 TAD I (DTQ1 /CLEAR DECTAPE QUEUE 421 000402 3112 DCA T3 /(IF NECESSARY) 422 000403 1036 TAD DECK /ARE WE ON TOP? 423 000404 7040 CMA 424 000405 1512 TAD I T3 425 000406 7650 SNA CLA 426 000407 4775 JMS I (DTFREE /REMOVE US FROM THE QUEUE 427 000410 4471 FREE13 /GET ROOM 428 000411 1135 TAD M40 429 000412 3112 DCA T3 /BUFFER IS 40 LONG 430 000413 7340 L7777 431 000414 1046 TAD IPTR0 432 000415 3012 DCA XREG3 /POINT TO I BUFFER 433 000416 4560 UDF 434 000417 3412 DCA I XREG3 /CLEAR BUFFER 435 000420 2112 ISZ T3 436 000421 5217 JMP .-2 437 000422 6201 CDF 438 000423 1044 TAD IPTRI 439 000424 3045 DCA IPTRO /NO INPUT IN BUFFER 440 000425 3034 DCA OUTPUT /HAVE ECHO 441 000426 1127 TAD LSTMOD /GET ERROR CODE 442 000427 4545 SORTC 443 000430 3750 ERRLST-1 444 000431 1142 TAD M4 445 000432 1106 TAD SORTCN 446 000433 7540 SMA SZA 447 000434 5241 JMP ERROR2 /TRUE ERROR 448 000435 7640 SZA CLA 449 000436 7346 L7775 /WHAT? 450 000437 1352 TAD C16 /STOP 451 000440 7410 SKP 452 000441 7340 ERROR2, L7777 453 000442 4774 JMS I (READY1 /PRINT ERROR MESSAGE 454 000443 1142 TAD M4 455 000444 1106 TAD SORTCN 456 000445 7550 SPA SNA 457 000446 5266 JMP ERROR3 /NO NUMBER WITH THESE 458 000447 4713 JMS I PITPRNT /PRINT ERROR NUMBER 459 000450 1062 TAD ERLINE /WERE WE RUNNING 460 000451 7750 SPA SNA CLA 461 000452 5264 JMP ERROR1 /NO 462 000453 4471 FREE13 463 000454 4543 GETC 464 000455 4467 PRINTC /I 465 000456 4543 GETC 466 000457 4467 PRINTC /N 467 000460 1133 TAD C40 468 000461 4467 PRINTC 469 000462 1062 TAD ERLINE 470 000463 4713 JMS I PITPRNT /PRINT LINE IN ERROR 471 000464 1123 ERROR1, TAD CCR 472 000465 4467 PRINTC 473 000466 7200 ERROR3, CLA 474 /*READY* ROUTINE 475 /ROUTINE TO PRINT "READY" AND RESET POINTERS 476 /ENTER THE ROUTINE AT START TO OMIT READY MESSAGE 477 000467 4777 READY, JMS I (IOFIX /RESET FILES 478 000470 4471 FREE13 479 000471 7325 L0003 480 000472 4774 JMS I (READY1 /PRINT "READY" 481 000473 4543 GETC 482 000474 4467 PRINTC 483 000475 3062 START, DCA ERLINE /IMMEDIATE MODE 484 000476 7340 L7777 485 000477 3127 DCA LSTMOD /SHORT LIST 486 000500 1056 TAD PDLST 487 000501 3015 DCA PDLXR /RESET PUSH-DOWN 488 000502 3032 DCA SPACSW /IGNORE LEADING SPACES 489 000503 3031 DCA MODE /CLEAR STRING MODE FLAG 490 000504 1373 TAD (ERR330 491 000505 4546 PUSHA /TRAP THE *RETURN* SANS *GOSUB* 492 000506 4547 PUSHJ /INPUT COMMAND LINE 493 000507 5631 PAKLIN 494 000510 7640 SZA CLA /END-OF-FILE? 495 000511 5502 JMP I CHAINP /'OLD' OR 'CHAIN' FINISHED 496 /INSERT LINE OR DO COMMAND 497 /AFTER A COMMAND OR LINE IS PACKED INTO THE COMMAND BUFFER 498 /THIS ROUTINE LOOKS AT IT AND EITHER STORES THE LINE OR 499 /GOES TO THE PROPER COMMAND 500 000512 4562 DECODE, TESTN 501 000513 0230 PITPRNT, ITPRNT 502 000514 5772 JMP I (INPUTX /COMMAND 503 000515 4565 GETLN /GET LINE NUMBER 504 000516 1054 SRETN, TAD BUFR 505 000517 3016 DCA AXIN /SET TO REPACK 506 000520 3024 DCA XCTIN 507 000521 1030 TAD LINENO 508 000522 4560 UDF 509 000523 3416 DCA I AXIN /SET LINE NUMBER 510 000524 6201 CDF 511 000525 4566 TSTCCR /JUST LINE NUMBER 512 000526 5331 JMP .+3 /NO 513 000527 4771 JMS I (XDELET /DELETE THIS LINE 514 000530 5275 JMP START 515 516 000531 2032 ISZ SPACSW /KEEP SPACES 517 000532 7410 SKP 518 000533 4543 GETC 519 000534 4564 PACKC /REPACK LINE 520 000535 4566 TSTCCR 521 000536 5333 JMP .-3 522 000537 4771 JMS I (XDELET /DELETE OLD LINE 523 000540 4560 UDF 524 000541 6002 IOF 525 000542 1431 TAD I LASTLN /POINTER TO NEXT 526 000543 3454 DCA I BUFR /POINT TO NEXT 527 000544 1054 TAD BUFR 528 000545 3431 DCA I LASTLN /OLD POINTS TO NEW 529 000546 1023 TAD ADD 530 000547 7440 SZA 531 000550 3416 DCA I AXIN /FINISH PACKING 532 000551 4574 FINDLN /FIND THE LINE 533 000552 0016 C16, 16 534 000553 4547 PUSHJ 535 000554 6523 ENDFND /SCAN FOR *NEXT* 536 000555 7650 SNA CLA 537 000556 1137 TAD C10 538 000557 7001 IAC 539 000560 1016 TAD AXIN 540 000561 3054 DCA BUFR /NEW FREE POSITION 541 000562 1054 TAD STARTV 542 000563 3055 DCA LASTV /RESET VARIABLES AFTER INPUTTING TEXT 543 000564 6001 ION 544 000565 5275 JMP START 545 546 547 000566 2055 FUPAR1, 2055 548 000567 0000 0 549 000570 0000 0 550 551 000571 1600 PAGE 000572 4252 000573 7160 000574 1756 000575 6627 000576 6600 000577 1366 552 000600 0000 KEY, 0 553 000601 1003 TAD USER 554 000602 4777 JMS I (DECKON /PUT HIM ONDECK 555 000603 1035 TAD XIOT 556 000604 3205 DCA .+1 /SET READ IOT 557 000605 7402 HLT 558 000606 0125 AND C177 /IGNORE PARITY 559 000607 7450 SNA 560 000610 5600 JMP I KEY /IGNORE 0 NAD 200 561 000611 3004 DCA SIN /SAVE INPUT 562 000612 7346 L7775 563 000613 1004 TAD SIN /CTRL/C? 564 000614 7640 KM140, SZA CLA 565 000615 5220 JMP KEY7 /NOT "^C" 566 000616 4776 ERR004, JMS I (IERROR /RECOVER 567 000617 5600 JMP I KEY 568 569 000620 1127 KEY7, TAD LSTMOD 570 000621 7450 SNA 571 000622 5276 JMP KEY6 /NO ECHO - BREAK 572 000623 6211 CDF SWAP 573 000624 3775 DCA I (XCCR+4 574 000625 6201 CDF 575 000626 1004 TAD SIN 576 000627 4545 SORTC /CHECK BREAK 577 000630 2327 XCCR-1 578 000631 5270 JMP KEY5 /BREAK 579 000632 1004 TAD SIN 580 000633 4545 SORTC 581 000634 3505 ALT-1 582 000635 5276 JMP KEY6 /FOUND AN ALTMODE 583 000636 1004 TAD SIN 584 000637 1132 TAD M12 585 000640 7650 SNA CLA 586 000641 5600 JMP I KEY /IGNORE LINE FEED IF NOT BREAK 587 000642 1004 TAD SIN 588 000643 0355 AND C140 589 000644 7450 SNA 590 000645 5300 JMP KEY3 /ILLEGAL CHAR 591 000646 1214 TAD KM140 592 000647 7650 SNA CLA 593 000650 5300 JMP KEY3 /ILLEGAL CHAR 594 000651 1004 TAD SIN 595 000652 4556 PRINTX /ECHO THE CHAR 596 000653 4305 JMS KEY4 /STORE THE CHAR 597 000654 1045 TAD IPTRO 598 000655 7041 CIA 599 000656 1044 TAD IPTRI 600 000657 7550 SPA SNA 601 000660 1133 TAD C40 602 000661 1132 TAD M12 603 000662 7710 SPA CLA 604 000663 5600 JMP I KEY /NO - EXIT 605 000664 7350 ANYINP, L3777 606 000665 0406 AND I TEMP2 /CLEAR I WAIT 607 000666 3406 DCA I TEMP2 608 000667 5600 JMP I KEY 609 610 000670 7340 KEY5, L7777 611 000671 1106 TAD SORTCN 612 000672 7740 SMA SZA CLA 613 000673 5276 JMP .+3 /NO ECHO HERE 614 000674 1004 TAD SIN 615 000675 4556 PRINTX /ECHO BREAK CHAR - CR AND BELL 616 000676 4305 KEY6, JMS KEY4 /STORE CHAR 617 000677 5264 JMP ANYINP /BREAK HERE 618 619 000700 1124 KEY3, TAD C7 620 000701 4556 PRINTX /2 BELLS FOR ILLEGAL CHAR 621 000702 1124 TAD C7 622 000703 4556 PRINTX 623 000704 5600 JMP I KEY 624 625 000705 0000 KEY4, 0 626 000706 4560 UDF 627 000707 1444 TAD I IPTRI /ROOM? 628 000710 7640 SZA CLA 629 000711 4776 ERR070, JMS I (IERROR /NO ROOM 630 000712 4560 UDF 631 000713 1004 TAD SIN 632 000714 3444 DCA I IPTRI 633 000715 6201 CDF 634 000716 2044 ISZ IPTRI 635 000717 1044 TAD IPTRI 636 000720 7041 CIA 637 000721 1133 TAD C40 638 000722 1046 TAD IPTR0 639 000723 7640 SZA CLA 640 000724 5705 JMP I KEY4 /OK 641 000725 1046 TAD IPTR0 642 000726 3044 DCA IPTRI /RESET POINTER 643 000727 5705 JMP I KEY4 644 000730 0000 TTY, 0 645 000731 1003 TAD USER 646 000732 4777 JMS I (DECKON /PUT HIM ONDECK 647 000733 3051 DCA TELSW /CLEAR BUSY 648 000734 4560 UDF 649 000735 1450 TTY3, TAD I OPTRO /MORE 650 000736 7450 SNA 651 000737 5354 JMP TTY2 /NO 652 000740 4774 JMS I (XOUTL2 /OUTPUT IT 653 000741 4560 UDF 654 000742 3450 DCA I OPTRO /CLEAR BUFFER 655 000743 2050 ISZ OPTRO /BUMP BUFFER 656 000744 1050 TAD OPTRO 657 000745 7041 CIA 658 000746 1046 TAD IPTR0 659 000747 7640 SZA CLA 660 000750 5354 JMP TTY2 /OK 661 000751 1046 TAD IPTR0 662 000752 1135 TAD M40 663 000753 3050 DCA OPTRO /RESET BUFFER 664 000754 4773 TTY2, JMS I (XFREE /ROOM AVAILABLE 665 000755 0140 C140, 140 666 000756 5730 JMP I TTY /NOT ENOUGH ROOM 667 000757 7352 L5777 668 000760 0406 AND I TEMP2 /CLEAR O WAIT 669 000761 3406 DCA I TEMP2 670 000762 5730 JMP I TTY 671 672 /POP THE AC ROUTINE 673 000763 0000 XPOPA, 0 674 000764 4560 UDF 675 000765 1415 TAD I PDLXR 676 000766 6201 CDF 677 000767 5763 JMP I XPOPA 678 DECIMAL 679 000770 6030 PRNTLL, -1000 680 000771 7634 -100 681 000772 7766 -10 682 OCTAL 683 684 000773 6021 PAGE 000774 3400 000775 2334 000776 3542 000777 0304 685 /*READ* AND *INPUT* COMMANDS 686 687 001000 0000 INREAD, 0 688 001001 7640 SZA CLA 689 001002 5240 JMP INREA3 /RE-ENTRY 690 001003 4547 PUSHJ /PRINT CRAP 691 001004 3306 PRIN10 692 001005 3031 DCA MODE /NEW VARIABLE 693 001006 4547 PUSHJ /GET A VARIABLE 694 001007 4400 GETVAR 695 001010 7640 SZA CLA 696 001011 5271 JMP ERR500 /WAS FUNCTION 697 001012 1031 TAD MODE /SET TO IGNORE LEADING SPACES IF NECESSARY 698 001013 3032 DCA SPACSW 699 001014 4550 PUSHF /SAVE PT1;CHAR;LINEPC 700 001015 0025 PT1 701 001016 4550 PUSHF /SAVE TEXT 702 001017 0017 TEXTP 703 001020 4550 PUSHF 704 001021 0040 DATAPC+1 705 001022 4553 POPF /GET POINTERS 706 001023 0017 TEXTP 707 001024 1043 TAD DATAPC+4 708 001025 3026 DCA CHAR 709 001026 4575 TSTEND /MORE? 710 001027 5232 JMP INREA1 /NO 711 001030 2200 INREA4, ISZ INREAD /2ND EXIT 712 001031 5600 JMP I INREAD 713 714 001032 4567 INREA1, TSTCOM /MORE? 715 001033 4557 ERR490, ERROR /JUNK 716 001034 4543 GETC 717 001035 4575 TSTEND /COMMA FOLLOWED BY CR OR '? 718 001036 7410 SKP 719 001037 5230 JMP INREA4 /YES - ASK FOR MORE 720 001040 1031 INREA3, TAD MODE 721 001041 7650 SNA CLA 722 001042 5246 JMP SPLCH1-2 /NUMERIC INPUT 723 001043 4547 SPLCH, PUSHJ /GET THE STRING 724 001044 7625 QINP 725 001045 5250 JMP SPLCH1 726 001046 4547 PUSHJ 727 001047 2612 EVAL 728 001050 4550 SPLCH1, PUSHF 729 001051 0017 TEXTP 730 001052 4553 POPF 731 001053 0040 DATAPC+1 732 001054 1026 TAD CHAR 733 001055 3043 DCA DATAPC+4 /SAVE POINTERS 734 001056 4553 POPF 735 001057 0017 TEXTP 736 001060 4553 POPF 737 001061 0025 PT1 738 001062 4555 FLPUT /SET VARIABLE 739 001063 6170 FLARG 740 001064 4567 TSTCOM 741 001065 5270 JMP INREA2 742 001066 4543 GETC 743 001067 5203 JMP INREAD+3 744 745 001070 4575 INREA2, TSTEND 746 001071 4557 ERR500, ERROR /JUNK 747 001072 5600 JMP I INREAD 748 001073 7340 L7777 749 001074 4200 READ, JMS INREAD /SET THOSE VARIABLES 750 001075 5552 POPJ 751 001076 1031 READ1, TAD MODE /MUST SAVE MODE 752 001077 4546 PUSHA /IT IS CHANGED BELOW 753 001100 1037 TAD DATAPC 754 001101 4572 FIND 755 001102 0003 3 756 001103 4557 ERR510, ERROR /OUT OF DATA 757 001104 3037 DCA DATAPC 758 001105 4551 POPA /RESTORE MODE 759 001106 3031 DCA MODE 760 001107 5273 JMP READ-1 761 762 001110 4334 INPUT, JMS CHKFIL /CHECK IF A FILE 763 764 001111 4550 PUSHF 765 001112 0040 DATAPC+1 766 001113 1043 TAD DATAPC+4 767 001114 4546 PUSHA 768 001115 1123 TAD CCR 769 001116 3043 DCA DATAPC+4 770 001117 4200 JMS INREAD /SET THOSE VARIABLES 771 001120 5325 JMP INPUT1 /DONE 772 001121 4547 INPUT2, PUSHJ /GET LINE OF INPUT 773 001122 1152 GETINP 774 001123 7340 L7777 775 001124 5317 JMP INPUT2-2 776 777 001125 4575 INPUT1, TSTEND 778 001126 5233 JMP INREA1+1 779 001127 4551 POPA 780 001130 3043 DCA DATAPC+4 781 001131 4553 POPF 782 001132 0040 DATAPC+1 783 001133 5552 POPJ 784 785 001134 0000 CHKFIL, 0 786 001135 1026 TAD CHAR /CHECK FOR FILE INPUT 787 001136 1370 TAD MNMSGN 788 001137 7640 SZA CLA 789 001140 5734 JMP I CHKFIL /NOT FILE 790 001141 1075 TAD IBLK /FILE OPEN? 791 001142 7640 SZA CLA 792 001143 4543 GETC /SHOULD BE COMMA 793 001144 4567 TSTCOM 794 001145 4557 ERR600, ERROR 795 001146 4543 GETC /SKIP OVER COMMA 796 001147 1371 TAD VXGET /SETUP FILE INPUT 797 001150 3066 DCA PREADC 798 001151 5734 JMP I CHKFIL /DONE 799 800 001152 1066 GETINP, TAD PREADC /CHECK IF FILE, GET LINE OF INPUT 801 001153 1372 TAD MXREADC 802 001154 7640 SZA CLA 803 001155 5363 JMP GETIN1 /IT WAS A FILE 804 001156 4471 FREE13 805 001157 1134 TAD C77 806 001160 4467 PRINTC 807 001161 1133 TAD C40 808 001162 4467 PRINTC 809 001163 4547 GETIN1, PUSHJ 810 001164 5631 PAKLIN 811 001165 7640 SZA CLA /EOF? 812 001166 4557 ERR610, ERROR 813 001167 5552 POPJ 814 815 816 001170 7735 MNMSGN, 200-"# 817 001171 6654 VXGET, XGET 818 001172 4064 MXREADC, -XREADC 819 /INTERRUPTS HERE FIRST 820 001173 6212 INTR8E, CIF SWAP 821 001174 5775 JMP I .+1 822 001175 4663 INTR81 823 824 /*IF* COMMAND 825 826 001176 4547 IF, PUSHJ /GET FIRST VALUE 827 001177 2612 EVAL 828 001200 4550 PUSHF /AND SAVE IT 829 001201 6170 FLARG 830 001202 1031 TAD MODE 831 001203 4546 PUSHA /SAVE MODE 832 001204 1106 TAD SORTCN 833 001205 1132 TAD M12 834 001206 7510 SPA 835 001207 4557 ERR390, ERROR /NO RELATION OR BAD RELATION 836 001210 7126 CLL CML RTL 837 001211 3364 DCA IF1 /SAVE REL OP 838 001212 4543 GETC 839 001213 4545 SORTC /ANOTHER OP? 840 001214 3640 TERMS-1 841 001215 5263 JMP IF2 /MIGHT BE... 842 001216 7200 IF3, CLA 843 001217 1364 TAD IF1 844 001220 4545 SORTC /CHECK OP 845 001221 2377 IF4-1 846 001222 7610 PIF5, SKP CLA /7610=IF5, AT LEAST, IT BETTER!!!!!! 847 001223 5207 JMP ERR390 /BAD OP 848 001224 1106 TAD SORTCN 849 001225 1222 TAD PIF5 850 001226 3364 DCA IF1 851 001227 1764 TAD I IF1 /GET FLOATING SKIP WORD 852 001230 3252 DCA IF6 853 001231 4547 PUSHJ /GET 2ND VALUE 854 001232 2612 EVAL 855 001233 7346 L7775 856 001234 4571 COMMAN /GET NEXT COMMAND 857 001235 7650 SNA CLA 858 001236 4557 ERR400, ERROR /THEN NOT FOUND 859 001237 4551 POPA /GET OLD MODE 860 001240 1031 TAD MODE 861 001241 7640 SZA CLA 862 001242 5324 JMP IFSTR /WE WANT TO DO A STRING COMPARE 863 001243 4553 POPF 864 001244 6170 FLARG 865 001245 4407 FINT 866 001246 6521 FCMP I FLARGP /GET DIFFERENCT 867 001247 7521 FPUT I FLARGP /AND SAVE IT 868 001250 0000 FEXT 869 001251 1521 IF7, GETSGN /GET SIGN OF DIFFERENCE 870 001252 7402 IF6, HLT /SKIP IF FALSE 871 001253 4562 TESTN 872 001254 5552 IFDONE, POPJ /SO WHO CARES ABOUT A STRANGE NO-OP? 873 001255 5674 JMP I VRUN8 /GO DO COMMAND 874 001256 4565 GOTO, GETLN 875 001257 4575 TSTEND 876 001260 4557 ERR270, ERROR /JUNK 877 001261 1030 TAD LINENO /SET UP TRANSFER TO LINE 878 001262 5552 POPJ /RETURN 879 880 881 001263 1106 IF2, TAD SORTCN 882 001264 1132 TAD M12 883 001265 7510 SPA 884 001266 5216 JMP IF3 /NO 2ND OP 885 001267 7001 IAC 886 001270 1364 TAD IF1 887 001271 3364 DCA IF1 888 001272 4543 GETC 889 001273 5217 JMP IF3+1 890 891 001274 2525 VRUN8, RUN8 892 001275 1363 VIF1, IF1-1 893 001276 0100 V100, 100 894 001277 0467 VREADY, READY 895 001300 3757 VRESETO,RESETO 896 /*MOD* FUNCTION 897 001301 4550 MOD, PUSHF 898 001302 6170 FLARG 899 001303 4567 TSTCOM 900 001304 5777 JMP I (ERR560 901 001305 4547 PUSHJ 902 001306 2611 EVAL-1 903 001307 4553 POPF 904 001310 1364 PIF1, IF1 905 001311 4407 MOD1, FINT 906 001312 0710 FGET I PIF1 907 001313 4521 FDIV I FLARGP 908 001314 1776 FADD I (FCN 909 001315 3521 FMUL I FLARGP 910 001316 7775 FPUT I (TEMP 911 001317 0710 FGET I PIF1 912 001320 2775 FSUB I (TEMP 913 001321 0000 FEXT 914 001322 5552 POPJ 915 001323 3714 VXREADC,XREADC 916 001324 4553 IFSTR, POPF /STRING *IF* 917 001325 1364 IF1 /SAVE FIRST STRING 918 001326 1121 TAD FLARGP /POINT TO THE STRINGS 919 001327 3031 DCA MODE 920 001330 1275 TAD VIF1 921 001331 3013 DCA FLTXR 922 001332 7346 L7775 /DO AN INTEGER COMPARE ON 3 WORDS 923 001333 3112 DCA T3 924 001334 1413 IFSTR1, TAD I FLTXR /SUBTRACT WORDS, GET SIGN OF DIFFERENCE 925 001335 7040 CMA /THIS GARBAGE CONVERTS CR'S TO ZEROES 926 001336 3107 DCA T1 /AND ADDS ONE TO EACH CHARACTER 927 001337 1107 TAD T1 /SO COMPARES OF DIFFERENT LENGTHS COME OUT OK 928 001340 0134 AND C77 929 001341 7640 SZA CLA 930 001342 1141 TAD C7700 931 001343 1107 TAD T1 932 001344 3107 DCA T1 933 001345 1431 TAD I MODE 934 001346 7001 IAC 935 001347 0134 AND C77 936 001350 3110 DCA T2 937 001351 1431 TAD I MODE 938 001352 1276 TAD V100 939 001353 0141 AND C7700 940 001354 1110 TAD T2 941 001355 1107 TAD T1 942 001356 7440 SZA /IF DIFFERENCE ZERO, TRY ANOTHER PAIR 943 001357 5252 JMP IF6 /NON ZERO DIFFERENCE, COMPARE THEM 944 001360 2031 ISZ MODE 945 001361 2112 ISZ T3 946 001362 5334 JMP IFSTR1 947 001363 5252 JMP IF6 /IF DONE, COMPARE THEM 948 949 001364 0000 IF1, 0 950 001365 0000 0 951 001366 0000 IOFIX, 0 952 001367 1323 TAD VXREADC 953 001370 3066 DCA PREADC 954 001371 1277 TAD VREADY /RESET CHAIN POINTER 955 001372 3102 DCA CHAINP 956 001373 4700 JMS I VRESETO 957 001374 5766 JMP I IOFIX /RESET OUTPUT POINTERS AND EXIT. 958 001375 6165 PAGE 001376 2570 001377 5343 959 /*LET* AND *FOR* COMMANDS 960 001400 7340 FOR, L7777 961 001401 3370 LET, DCA FOR1 /SAVE DETERMINATOR 962 001402 4547 PUSHJ /GET VARIABLE 963 001403 4400 GETVAR 964 001404 7650 SNA CLA 965 001405 1026 TAD CHAR 966 001406 1322 TAD MEQL 967 001407 7640 SZA CLA 968 001410 4557 ERR410, ERROR /NO "=" 969 001411 4550 LET2, PUSHF /SAVE ADD,XCTIN,PT1 970 001412 0023 ADD 971 001413 4547 PUSHJ /GET VALUE 972 001414 2611 EVAL-1 973 001415 4553 POPF 974 001416 0023 ADD 975 001417 4555 FLPUT /SET VARIABLE 976 001420 6170 FLARG 977 001421 7340 L7777 978 001422 1017 TAD AXOUT 979 001423 3342 DCA FOR5 980 001424 2370 ISZ FOR1 /WHICH COMMAND? 981 001425 5323 JMP LET1 /LET COMMAND 982 001426 1023 TAD ADD 983 001427 7710 SPA CLA 984 001430 4557 ERR420, ERROR /SUBSCRIPTED 985 001431 4571 COMMAN /GET WORD 986 001432 1142 TAD M4 987 001433 7640 SZA CLA 988 001434 5332 JMP FOR2+3 /NOT *TO* 989 001435 1025 TAD PT1 990 001436 7041 CIA 991 001437 3370 DCA FOR1 /SAVE POINTER 992 001440 4547 PUSHJ /GET LIMIT 993 001441 2612 EVAL 994 001442 4550 PUSHF /SAVE LIMIT 995 001443 6170 FLARG 996 001444 4575 TSTEND 997 001445 5327 JMP FOR2 /GET INCREMENT 998 001446 4550 PUSHF /INCREMENT IS ONE 999 001447 3570 FLTONE 1000 001450 1030 FOR3, TAD LINENO 1001 001451 4546 PUSHA 1002 001452 1030 TAD LINENO 1003 001453 7410 SKP 1004 001454 4551 FOR4, POPA 1005 001455 4572 FIND /FIND A *NEXT* STATEMENT 1006 001456 0001 1 /-NEXT CODE 1007 001457 4557 ERR440, ERROR /OUT OF TEXT 1008 001460 4546 PUSHA /SAVE FOR RESTART 1009 001461 4570 TSTALP 1010 001462 5254 JMP FOR4 1011 001463 4547 PUSHJ /GET VARIABLE 1012 001464 4400 GETVAR 1013 001465 7650 SNA CLA 1014 001466 1025 TAD PT1 1015 001467 1370 TAD FOR1 1016 001470 7640 SZA CLA 1017 001471 5254 JMP FOR4 /LOOP 1018 001472 4566 TSTCCR 1019 001473 5743 JMP I NEXERR /MAKE SURE IT'S LAST ON LINE-SORRY NO COMMENTS 1020 001474 2015 ISZ PDLXR /DUMP RESTART ADDRESS 1021 001475 4551 POPA 1022 001476 3030 DCA LINENO 1023 001477 1030 TAD LINENO 1024 001500 4560 UDF 1025 001501 3417 DCA I AXOUT /SET LINE NUMBER 1026 001502 1342 TAD FOR5 1027 001503 3417 DCA I AXOUT /AND MIDDLE OF LINE POINTER 1028 001504 6201 CDF 1029 001505 4553 POPF /GET INCREMENT 1030 001506 6170 FLARG 1031 001507 1017 TAD AXOUT 1032 001510 4555 FLPUT /PUT INCREMENT 1033 001511 6170 FLARG 1034 001512 4553 POPF /GET LIMIT 1035 001513 6170 FLARG 1036 001514 7326 L0002 1037 001515 7001 IAC 1038 001516 1017 TAD AXOUT 1039 001517 4555 FLPUT /SET LIMIT 1040 001520 6170 FLARG 1041 001521 4574 FINDLN /FIND US AGAIN 1042 001522 7703 MEQL, -"=+200 /THIS NEVER GETS EXECUTED 1043 001523 4575 LET1, TSTEND 1044 001524 4557 ERR450, ERROR /JUNK 1045 001525 1342 TAD FOR5 1046 001526 5777 JMP I (FOREXT 1047 1048 001527 7344 FOR2, L7776 1049 001530 4571 COMMAN /IS IT STEP? 1050 001531 7650 SNA CLA 1051 001532 4557 ERR430, ERROR /NOT STEP 1052 001533 4547 PUSHJ /GET INCREMENT 1053 001534 2612 EVAL 1054 001535 4550 PUSHF /SAVE INCREMENT 1055 001536 6170 FLARG 1056 001537 4575 TSTEND 1057 001540 5332 JMP FOR2+3 /JUNK 1058 001541 5250 JMP FOR3 1059 1060 001542 0000 FOR5, 0 1061 001543 2400 NEXERR, ERR460 1062 1063 001544 4570 UNKWN, TSTALP 1064 001545 5357 JMP ERRCHK 1065 001546 4547 PUSHJ 1066 001547 4400 GETVAR 1067 001550 7650 SNA CLA 1068 001551 1026 TAD CHAR 1069 1070 001552 1322 TAD MEQL 1071 001553 7640 SZA CLA 1072 001554 5345 JMP UNKWN+1 /NO "=" 1073 001555 3370 DCA FOR1 /MAKE IT A LET COMMAND 1074 001556 5211 JMP LET2 1075 1076 1077 IFZERO .&1 1078 001557 7200 ERRCHK, CLA 1079 001560 1062 TAD ERLINE 1080 001561 7740 SMA SZA CLA 1081 001562 4557 ERR520, ERROR /RUNNING 1082 001563 4557 ERR000, ERROR /IMMEDIATE MODE--"WHAT?" 1083 001564 4546 OPUSJ1, PUSHA 1084 001565 1376 TAD (OPUS 1085 001566 4546 PUSHA 1086 001567 5512 JMP I T3 1087 1088 1089 1090 001570 0000 FOR1, 0 1091 /*RTL6* ROUTINE 1092 1093 001571 0000 XRTL6, 0 1094 001572 7106 CLL RTL 1095 001573 7006 RTL 1096 001574 7006 RTL 1097 001575 5771 JMP I XRTL6 1098 1099 001576 5550 PAGE 001577 2460 1100 /*DELETE* ROUTINE 1101 001600 0000 XDELET, 0 1102 001601 4574 FINDLN /FIND THE LINE 1103 001602 5600 JMP I XDELET /NOT THERE - EXIT 1104 001603 2032 ISZ SPACSW 1105 001604 4543 GETC 1106 001605 4566 TSTCCR /GO TO END OF LINE 1107 001606 5204 JMP .-2 1108 001607 1017 TAD AXOUT 1109 001610 7040 CMA 1110 001611 1027 TAD LINEPC 1111 001612 4546 PUSHA /SAVE COUNT 1112 001613 1027 TAD LINEPC 1113 001614 7001 IAC 1114 001615 3017 DCA AXOUT /TO UNPACK 1115 001616 3021 DCA XCT 1116 001617 4547 PUSHJ 1117 001620 6523 ENDFND 1118 001621 7650 SNA CLA 1119 001622 1140 TAD M10 1120 001623 4551 POPA 1121 001624 3112 DCA T3 /CORRECTED COUNT 1122 001625 1027 TAD LINEPC 1123 001626 7041 CIA 1124 001627 1057 TAD ALINE0 1125 001630 7650 SNA CLA 1126 001631 5600 JMP I XDELET /NOT LINE0 1127 001632 4560 UDF 1128 001633 1427 TAD I LINEPC /GET POINTER 1129 001634 3431 DCA I LASTLN /REMOVE LINE 1130 001635 1057 TAD ALINE0 1131 001636 3110 XDEL3, DCA T2 /CURRENT LINE 1132 001637 1510 TAD I T2 1133 001640 7450 SNA 1134 001641 5254 JMP XDEL2 /OUT OF TEXT 1135 001642 3107 DCA T1 1136 001643 1027 TAD LINEPC 1137 001644 7141 CLL CIA 1138 001645 1107 TAD T1 1139 001646 7630 SZL CLA 1140 001647 1112 TAD T3 /CORRECT LINE 1141 001650 1107 TAD T1 1142 001651 3510 DCA I T2 1143 001652 1107 TAD T1 1144 001653 5236 JMP XDEL3 1145 1146 001654 7340 XDEL2, L7777 1147 001655 1027 TAD LINEPC 1148 001656 3012 DCA XREG3 1149 001657 1112 TAD T3 1150 001660 7040 CMA 1151 001661 1027 TAD LINEPC 1152 001662 3017 DCA AXOUT 1153 001663 1112 TAD T3 1154 001664 1054 TAD BUFR 1155 001665 3054 DCA BUFR 1156 001666 1016 TAD AXIN 1157 001667 7040 CMA 1158 001670 1017 TAD AXOUT 1159 001671 3107 DCA T1 1160 001672 1112 TAD T3 1161 001673 1016 TAD AXIN 1162 001674 3016 DCA AXIN 1163 001675 1417 TAD I AXOUT 1164 001676 3412 DCA I XREG3 /MOVE TEXT 1165 001677 2107 ISZ T1 1166 001700 5275 JMP .-3 1167 001701 5201 JMP XDELET+1 1168 /PUSH ROUTINES 1169 001702 0000 XPUSHA, 0 1170 001703 3315 DCA XPUSHJ 1171 001704 7340 L7777 /BACK 1 1172 001705 4322 JMS PCHK 1173 001706 1315 TAD XPUSHJ 1174 001707 4560 UDF 1175 001710 3415 DCA I PDLXR /PUSH IT 1176 001711 6201 CDF 1177 001712 7340 L7777 1178 001713 4322 JMS PCHK /BACK AGAIN 1179 001714 5702 JMP I XPUSHA 1180 1181 001715 0000 XPUSHJ, 0 1182 001716 1715 TAD I XPUSHJ /GET SEND ADDRESS 1183 001717 3302 DCA XPUSHA 1184 001720 2315 ISZ XPUSHJ /CALCULATE RETURN ADDRESS 1185 001721 5304 JMP XPUSHA+2 1186 1187 001722 0000 PCHK, 0 1188 001723 1015 TAD PDLXR 1189 001724 3015 DCA PDLXR 1190 001725 7326 L0002 1191 001726 1055 TAD LASTV 1192 001727 7161 STL CIA 1193 001730 1015 TAD PDLXR 1194 001731 7630 SZL CLA 1195 001732 5777 JMP I (ERR100-2 /PUSHED TOO FAR 1196 001733 5722 JMP I PCHK 1197 1198 /*PUSHF* ROUTINE 1199 001734 0000 XPUSHF, 0 1200 001735 7340 L7777 1201 001736 1734 TAD I XPUSHF 1202 001737 3012 DCA XREG3 /POINT TO DATA 1203 001740 7346 L7775 1204 001741 4322 JMS PCHK 1205 001742 7346 L7775 1206 001743 3112 DCA T3 1207 001744 1412 TAD I XREG3 1208 001745 4560 UDF 1209 001746 3415 DCA I PDLXR 1210 001747 6201 CDF 1211 001750 2112 ISZ T3 1212 001751 5344 JMP .-5 1213 001752 7346 L7775 1214 001753 4322 JMS PCHK /BACK AGAIN 1215 001754 2334 ISZ XPUSHF 1216 001755 5734 JMP I XPUSHF 1217 1218 /SUBROUTINE TO WRITE OUT MESSAGES 1219 001756 0000 READY1, 0 1220 001757 3017 DCA AXOUT /POINT TO MESSAGE 1221 001760 3021 DCA XCT 1222 001761 1136 TAD M6 1223 001762 3110 DCA T2 1224 001763 4543 GETC 1225 001764 4467 PRINTC /PRINT MESSAGE 1226 001765 2110 ISZ T2 1227 001766 5363 JMP .-3 1228 001767 5756 JMP I READY1 1229 001770 0015 XPAKL1, 15 /CR 1230 001771 0007 7 /BELL 1231 001772 0177 177 /RUBOUT 1232 001773 0137 XGETL1, 137 /_ 1233 001774 0100 100 /@ 1234 001775 0040 40 /SPACE 1235 1236 001777 4473 PAGE 1237 /*COMMAN* ROUTINE 1238 002000 0000 MANCOM, 0 1239 002001 3014 DCA FLTXR2 /SAVE AC IF ANY 1240 002002 1026 TAD CHAR 1241 002003 4546 PUSHA /SAVE TEXT 1242 002004 4550 PUSHF 1243 002005 0017 TEXTP 1244 002006 1377 TAD (LIST7 1245 002007 6211 CDF SWAP 1246 002010 3110 COM1, DCA T2 /POINT TO LIST 1247 002011 7350 L3777 1248 002012 0510 AND I T2 /MAKE IT ACTIVE (BIT 0) 1249 002013 3510 DCA I T2 1250 002014 2110 ISZ T2 1251 002015 1510 TAD I T2 /GET POINTER 1252 002016 7440 SZA 1253 002017 5210 JMP COM1 /LOOP 1254 002020 3107 DCA T1 /LETTER POINTER 1255 002021 3111 DCA CNTR /UNIQUENESS REGISTER 1256 002022 5241 JMP COM2 1257 1258 002023 1510 COM3, TAD I T2 1259 002024 7104 CLL RAL 1260 002025 7130 CLL CML RAR /MAKE IT INACTIVE 1261 002026 3510 DCA I T2 1262 002027 2110 COM4, ISZ T2 1263 002030 1510 TAD I T2 /GET POINTER 1264 002031 7440 SZA 1265 002032 5244 JMP COM5 /LOOP 1266 002033 1013 TAD FLTXR /ANY HITS? 1267 002034 7650 SNA CLA 1268 002035 5333 JMP COM7 /NO - EXIT 1269 002036 6201 CDF 1270 002037 4543 GETC /GET NEXT CHAR 1271 002040 6211 CDF SWAP 1272 002041 2107 COM2, ISZ T1 /COUNT LETTERS 1273 002042 3013 DCA FLTXR /ZERO HIT COUNT 1274 002043 1377 TAD (LIST7 1275 002044 3110 COM5, DCA T2 /POINT TO LIST 1276 002045 1510 TAD I T2 1277 002046 7710 SPA CLA 1278 002047 5227 JMP COM4 /IGNORE INACTIVE ENTRIES 1279 002050 4341 JMS COM12 /TEST THAT CHARACTER 1280 002051 7640 SZA CLA 1281 002052 5223 JMP COM3 /NOGO - DEACTIVATE 1282 002053 2013 ISZ FLTXR /COUNT HIT 1283 002054 1510 TAD I T2 1284 002055 7012 RTR 1285 002056 0124 AND C7 1286 002057 7110 CLL RAR 1287 002060 3013 DCA FLTXR 1288 002061 1013 TAD FLTXR 1289 002062 7041 CIA 1290 002063 1107 TAD T1 /CHECK UNIQUE 1291 002064 7640 SZA CLA 1292 002065 5227 JMP COM4 /NO 1293 002066 1510 TAD I T2 1294 002067 0124 AND C7 1295 002070 7040 CMA 1296 002071 1013 TAD FLTXR 1297 002072 3013 DCA FLTXR /- NUMBER TO GO -1 1298 002073 6201 COM11, CDF 1299 002074 4543 GETC 1300 002075 6211 CDF SWAP 1301 002076 2013 ISZ FLTXR /MORE? 1302 002077 5322 JMP COM9 /YES 1303 002100 1510 COM8, TAD I T2 1304 002101 4561 RTL6 1305 002102 7006 RTL 1306 002103 0134 AND C77 /GET CODE 1307 002104 1376 TAD (-32 /CORRECT IT 1308 002105 3013 COM10, DCA FLTXR /AND SAVE IT 1309 002106 1014 TAD FLTXR2 1310 002107 7450 SNA 1311 002110 5314 JMP .+4 /NO DOUBLE CHECK 1312 002111 1013 TAD FLTXR 1313 002112 7640 SZA CLA 1314 002113 5333 JMP COM7 /DOUBLE CHECK FAILS 1315 002114 6201 CDF 1316 002115 7307 L0004 1317 002116 1015 TAD PDLXR /DUMPPDLJUNK 1318 002117 3015 DCA PDLXR 1319 002120 1013 TAD FLTXR 1320 002121 5600 JMP I MANCOM 1321 1322 002122 2111 COM9, ISZ CNTR 1323 002123 2107 ISZ T1 1324 002124 4341 JMS COM12 1325 002125 7650 SNA CLA 1326 002126 5273 JMP COM11 /KEEP GOING 1327 002127 7340 L7777 1328 002130 1111 TAD CNTR 1329 002131 7650 SNA CLA 1330 002132 5300 JMP COM8 /OK 1331 002133 6201 COM7, CDF 1332 002134 4553 POPF 1333 002135 0017 TEXTP 1334 002136 4551 POPA 1335 002137 3026 DCA CHAR 1336 002140 5600 JMP I MANCOM 1337 1338 002141 0000 COM12, 0 1339 002142 7301 CLL CLA IAC 1340 002143 1107 TAD T1 1341 002144 7010 RAR 1342 002145 1110 TAD T2 1343 002146 3012 DCA XREG3 1344 002147 1412 TAD I XREG3 1345 002150 7430 SZL 1346 002151 5355 JMP .+4 1347 002152 7012 RTR 1348 002153 7012 RTR 1349 002154 7012 RTR 1350 002155 0134 AND C77 1351 002156 7450 SNA 1352 002157 1365 TAD TSTCON 1353 002160 1375 TAD (-137 1354 002161 1026 TAD CHAR 1355 002162 5741 JMP I COM12 1356 1357 002163 0000 TSTCH1, 0 /TEST A-Z,0-9 FOR FIELD 1 1358 002164 4562 TESTN 1359 002165 0122 TSTCON, -215+337 1360 002166 7410 SKP 1361 002167 2363 ISZ TSTCH1 1362 002170 4570 TSTALP 1363 002171 7410 SKP 1364 002172 2363 ISZ TSTCH1 1365 002173 6213 CIF CDF 10 1366 002174 5763 JMP I TSTCH1 1367 1368 002175 7641 PAGE 002176 7746 002177 0771 1369 /*EDIT* COMMAND 1370 002200 4565 EDIT, GETLN /GET LINE NUMBER 1371 002201 4566 TSTCCR 1372 002202 4557 ERR001, ERROR /JUNK 1373 002203 4574 FINDLN /FIND THE LINE 1374 002204 5202 JMP ERR001 /NOT THERE 1375 002205 2032 ISZ SPACSW 1376 002206 4637 JMS I EPINPACK /SET TO PACK IT 1377 002207 3127 MODF2, DCA LSTMOD /READ SILENTLY 1378 002210 4466 READC 1379 002211 1026 MODF3, TAD CHAR 1380 002212 3127 DCA LSTMOD /SET SEARCH CHARACTER 1381 002213 4543 MODF1, GETC 1382 002214 4470 FREE2 1383 002215 4467 PRINTC /PRINT LINE UNTIL... 1384 002216 4544 SORTJ 1385 002217 0122 CCR-1 1386 002220 2043 MODL1-CCR 1387 002221 4564 PACKC /KEEP PACKING 1388 002222 5213 JMP MODF1 1389 1390 002223 4564 MODF4, PACKC /PACK IT 1391 002224 4466 READC /GET CHARS 1392 002225 4544 SORTJ /CHECK THEM 1393 002226 0122 CCR-1 1394 002227 1226 MODL2-CCR 1395 002230 5223 JMP MODF4 1396 1397 002231 4564 MODF5, PACKC /PACK THE CR 1398 002232 4564 PACKC 1399 002233 4635 JMS I .+2 1400 002234 5636 JMP I .+2 1401 002235 5621 OTPACK 1402 002236 0516 SRETN 1403 002237 5610 EPINPACK,INPACK 1404 /*DELETE* COMMAND 1405 002240 4336 DELETE, JMS GETLIM /GET LIMITS 1406 002241 1054 TAD BUFR 1407 002242 3016 DCA AXIN /PROTECT TEXT 1408 002243 4317 JMS GETLIN /GET A LINE 1409 002244 5762 JMP I CREADY /WE ARE DONE 1410 002245 4770 JMS I CXDELET /DELETE IT 1411 002246 1031 TAD LASTLN 1412 002247 3027 DCA LINEPC /RESTORE POINTERS 1413 002250 5243 JMP .-5 /LOOP 1414 1415 /*LIST* COMMAND 1416 002251 4336 LIST, JMS GETLIM /GET LIMITS 1417 002252 2032 ISZ SPACSW /KEEP SPACES 1418 002253 1141 TAD M100 1419 002254 3025 DCA PT1 1420 002255 1034 TAD OUTPUT 1421 002256 7650 SNA CLA 1422 002257 5266 JMP LLIST3-3 /NORMAL MODE 1423 002260 3034 DCA OUTPUT /WE WILL OUTPUT FOR A WHILE 1424 002261 4470 LLIST5, FREE2 1425 002262 7330 L4000 1426 002263 4467 PRINTC /DO L/T 1427 002264 2025 ISZ PT1 1428 002265 5261 JMP LLIST5 1429 002266 4470 FREE2 1430 002267 1123 TAD CCR 1431 002270 4467 PRINTC 1432 002271 4317 LLIST3, JMS GETLIN /GET A LINE 1433 002272 5304 JMP LLIST4 /WE ARE DONE 1434 002273 4471 FREE13 1435 002274 1030 TAD LINENO 1436 002275 4771 JMS I CITPRNT /PRINT THE NUMBER 1437 002276 4543 GETC 1438 002277 4470 FREE2 1439 002300 4467 PRINTC /PRINT THE LINE 1440 002301 4566 TSTCCR 1441 002302 5276 JMP .-4 /UNTIL A CR 1442 002303 5271 JMP LLIST3 /LOOP 1443 1444 002304 1025 LLIST4, TAD PT1 1445 002305 7640 SZA CLA 1446 002306 5772 JMP I CSAVDON /SEE IF THIS IS A 'SAVE' 1447 002307 1141 TAD M100 1448 002310 3025 DCA PT1 1449 002311 4470 LLIST6, FREE2 1450 002312 7330 L4000 1451 002313 4467 PRINTC /DO L/T 1452 002314 2025 ISZ PT1 1453 002315 5311 JMP LLIST6 1454 002316 5773 JMP I CTAPE 1455 1456 002317 0000 GETLIN, 0 1457 002320 1123 TAD CCR /FAKE OUT GETNXT! 1458 002321 3026 DCA CHAR 1459 002322 4573 GETNXT /GET NEXT LINE 1460 002323 5717 JMP I GETLIN /OUT OF TEXT 1461 002324 4551 POPA 1462 002325 3112 DCA T3 /GET LIMIT 1463 002326 1112 TAD T3 1464 002327 4546 PUSHA /SAVE LIMIT 1465 002330 1030 TAD LINENO 1466 002331 7041 CIA 1467 002332 1112 TAD T3 1468 002333 7700 SMA CLA 1469 002334 2317 ISZ GETLIN /OK 1470 002335 5717 JMP I GETLIN 1471 1472 002336 0000 GETLIM, 0 1473 002337 4566 TSTCCR 1474 002340 5344 JMP LIMGT1 /NOT ALL 1475 002341 3031 DCA LASTLN /START AT 0 1476 002342 7350 L3777 1477 002343 5354 JMP LIMGT3 1478 1479 002344 4565 LIMGT1, GETLN /GET A LINE NUMBER 1480 002345 1030 TAD LINENO 1481 002346 3031 DCA LASTLN /AND SAVE IT 1482 002347 4567 TSTCOM 1483 002350 5366 JMP LIMGT2 /ONLY ONE LINE 1484 002351 4543 GETC 1485 002352 4565 GETLN /GET LINE NUMBER 1486 002353 1030 TAD LINENO 1487 002354 4546 LIMGT3, PUSHA /UPPER LIMIT 1488 002355 1031 TAD LASTLN 1489 002356 3030 DCA LINENO /LOWER LIMIT 1490 002357 4566 TSTCCR 1491 002360 5202 JMP EDIT+2 /JUNK 1492 002361 4574 LIMGT4, FINDLN /FIND THE LINE 1493 002362 0467 CREADY, READY 1494 002363 1031 TAD LASTLN 1495 002364 3027 DCA LINEPC /AND GO BACK ONE 1496 002365 5736 JMP I GETLIM 1497 1498 002366 1031 LIMGT2, TAD LASTLN /1ST = 2ND 1499 002367 5354 JMP LIMGT3 1500 1501 1502 002370 1600 CXDELET,XDELET 1503 002371 0230 CITPRNT,ITPRNT 1504 002372 7124 CSAVDON,SAVDON 1505 002373 5077 CTAPE, TAPE 1506 /*NEXT* COMMAND 1507 002374 4547 NEXT, PUSHJ /GET VARIABLE 1508 002375 4400 GETVAR 1509 002376 7650 SNA CLA 1510 002377 4566 TSTCCR 1511 002400 4557 ERR460, ERROR /WAS FUNCTION 1512 002401 4407 FINT 1513 002402 0521 FGET I FLARGP /PUT VARIABLE INTO FLAC 1514 002403 0000 FEXT 1515 002404 4560 UDF 1516 002405 1417 TAD I AXOUT /GET *FOR* LINE NUMBER 1517 002406 7450 SNA 1518 002407 4557 ERR470, ERROR /*NEXT* NOT INITIALIZED 1519 002410 3107 DCA T1 /SAVE LINE 1520 002411 1417 TAD I AXOUT 1521 002412 3344 DCA RUNSCR 1522 002413 6201 CDF 1523 002414 1017 TAD AXOUT 1524 002415 4554 FLGET /GET INCREMENT 1525 002416 6170 FLARG 1526 002417 1521 GETSGN 1527 002420 7700 NEXT3, SMA CLA 1528 002421 1256 TAD C50 /POSITIVE INCREMENT 1529 002422 1220 TAD NEXT3 /NEGATIVE INCREMENT 1530 002423 3243 DCA NEXT1 /SET LIMIT TEST INSTRUCTION 1531 002424 4407 FINT 1532 002425 1521 FADD I FLARGP /BUMP VARIABLE 1533 002426 7521 FPUT I FLARGP /SAVE VALUE 1534 002427 0000 FEXT 1535 002430 4555 FLPUT /SET VARIABLE 1536 002431 6170 FLARG 1537 002432 7325 L0003 1538 002433 1017 TAD AXOUT 1539 002434 4554 FLGET /GET LIMIT 1540 002435 6170 FLARG 1541 002436 4407 FINT 1542 002437 2521 FSUB I FLARGP 1543 002440 7521 FPUT I FLARGP 1544 002441 0000 FEXT 1545 002442 1521 GETSGN /SIGN OF DIFFERENCE 1546 002443 7402 NEXT1, HLT /SKIP IF DONE 1547 002444 5253 JMP NEXT2 /NOT DONE 1548 002445 7340 L7777 1549 002446 1017 TAD AXOUT 1550 002447 3107 DCA T1 1551 002450 4560 UDF 1552 002451 3507 DCA I T1 /NOT INITIALIZED NOW 1553 002452 5552 POPJ 1554 1555 002453 1107 NEXT2, TAD T1 /GET LINE NUMBER OF *FOR* 1556 002454 3030 DCA LINENO 1557 002455 4574 FINDLN 1558 002456 0050 C50, 50 /IF IT AIN'T THERE, WELL... 1559 002457 1344 TAD RUNSCR 1560 002460 3017 FOREXT, DCA AXOUT 1561 002461 3026 DCA CHAR 1562 002462 5552 POPJ 1563 002463 4765 CHAIN1, JMS I PIOFX 1564 002464 4777 JMS I (DTFREE /REALLY FREE IT THIS TIME 1565 /*RUN* COMMAND 1566 002465 1054 RUN, TAD STARTV 1567 002466 3055 DCA LASTV /NO VARIABLES 1568 002467 4550 PUSHF 1569 002470 7736 FRNDX1 1570 002471 4553 POPF /SET RANDOM NUMBER 1571 002472 0103 FRNDX 1572 002473 1062 RUN4, TAD ERLINE 1573 002474 4572 FIND /FIND THE NEXT STATEMENTS 1574 002475 0001 1 /- NEXT CODE 1575 002476 5312 JMP RUN3 /OUT OF TEXT 1576 002477 3062 DCA ERLINE /SAVE FOR RESTART 1577 002500 4353 JMS RUN9 /DISMISS US NOW 1578 002501 4547 PUSHJ 1579 002502 4400 GETVAR 1580 002503 7650 SNA CLA 1581 002504 4566 TSTCCR 1582 002505 5200 JMP ERR460 1583 002506 4560 UDF 1584 002507 3417 DCA I AXOUT /NOT INITIALIZED NOW 1585 002510 6201 CDF 1586 002511 5273 JMP RUN4 1587 1588 002512 4353 RUN3, JMS RUN9 /DISMISS US AGAIN 1589 002513 1057 TAD ALINE0 1590 002514 3027 DCA LINEPC /START AT LINE ZERO 1591 002515 4573 RUN7, GETNXT /GET NEXT LINE 1592 002516 5776 JMP I (READY /ALL DONE 1593 002517 3032 RUN6, DCA SPACSW 1594 002520 4543 GETC 1595 002521 2022 ISZ PC 1596 002522 5326 JMP RUN8+1 /STILL O.K. 1597 002523 4353 JMS RUN9 /DISMISS US NOW 1598 002524 7410 SKP 1599 002525 2015 RUN8, ISZ PDLXR 1600 002526 4765 JMS I PIOFX 1601 002527 3031 DCA MODE 1602 002530 1030 TAD LINENO 1603 002531 3062 DCA ERLINE /SET CURRENT LINE 1604 002532 4571 COMMAN /GET COMMAND 1605 002533 7540 SMA SZA 1606 002534 5775 JMP I (ERRCHK 1607 002535 1374 TAD (COMGOL 1608 002536 3107 DCA T1 1609 002537 6211 CDF SWAP 1610 002540 1507 TAD I T1 /GET ADDRESS 1611 002541 6201 CDF 1612 002542 3344 DCA .+2 1613 002543 4547 PUSHJ /GO TO IT 1614 002544 0000 RUNSCR, 0 1615 002545 7450 SNA 1616 002546 5315 JMP RUN7 /NORMAL RETURN 1617 002547 3030 DCA LINENO /FOR TRANSFER 1618 002550 4574 GOSUB2, FINDLN /FIND THE LINE 1619 002551 4557 ERR380, ERROR /NOT FOUND 1620 002552 5317 JMP RUN6 1621 1622 002553 0000 RUN9, 0 /DISMISSAL ROUTINE 1623 002554 1353 TAD RUN9 1624 002555 3022 DCA PC /SET RESTART ADDRESS 1625 002556 5177 JMP NULL /DISMISS 1626 1627 1628 002557 6211 ABS, CDF SWAP 1629 002560 3773 DCA I (ACSIGN 1630 002561 5552 POPJ 1631 1632 002562 4551 GOSUB1, POPA 1633 002563 3030 DCA LINENO 1634 002564 4574 FINDLN 1635 002565 1366 PIOFX, IOFIX 1636 002566 4551 POPA 1637 002567 5260 JMP FOREXT 1638 002570 2330 FCN, 2330 /INTEGERIZING CONSTANT 1639 002571 0000 0 1640 002572 0000 0 1641 002573 0042 PAGE 002574 3750 002575 1557 002576 0467 002577 6627 1642 /EXPRESSION EVALUATOR 1643 002600 0000 ECALL, 0 1644 002601 1106 TAD SORTCN 1645 002602 4546 PUSHA 1646 002603 1114 TAD LASTOP 1647 002604 4546 PUSHA 1648 002605 1111 TAD EFOP 1649 002606 4546 PUSHA 1650 002607 1200 TAD ECALL 1651 002610 4546 PUSHA /RETURN ADDRESS 1652 002611 4543 GETC 1653 002612 3114 EVAL, DCA LASTOP /0 IS END 1654 002613 1353 TAD EVAL1 1655 002614 4546 PUSHA /SAVE EVAL1 1656 002615 3353 DCA EVAL1 /0 EVAL1 1657 002616 4563 TESTC 1658 002617 5223 JMP ETERM1 /INITIAL TERMINATOR 1659 002620 5241 JMP ENUM /NUMBER 1660 002621 5344 JMP EVAR /VARIABLE 1661 002622 5777 JMP I (QUOTES /CHECK FOR LITERAL STRING 1662 1663 002623 1376 ETERM1, TAD (FLZERO 1664 002624 3025 DCA PT1 /0 DATA 1665 002625 7344 L7776 1666 002626 1106 TAD SORTCN 1667 002627 7450 SNA 1668 002630 5261 JMP ETERM /MINUS 1669 002631 7001 IAC 1670 002632 7650 SNA CLA 1671 002633 5336 JMP ARGNXT /PLUS 1672 002634 4576 ELPAR, TSTLPR 1673 002635 5354 JMP EVAL2 /CHECK UNARY 1674 002636 4200 EPAR2, JMS ECALL /RECURSIVE CALL 1675 002637 2015 ISZ PDLXR 1676 002640 5775 JMP I (ENDFUN /END AS FUNCTION 1677 1678 002641 1121 ENUM, TAD FLARGP 1679 002642 3025 DCA PT1 /DATA TO FLARG 1680 002643 4516 JMS I FLINTP /GET VALUE 1681 002644 2353 OPNEXT, ISZ EVAL1 1682 002645 5251 JMP .+4 /NO UNARY 1683 002646 7330 L4000 1684 002647 1425 TAD I PT1 1685 002650 3425 DCA I PT1 /FLIP SIGN 1686 002651 3353 DCA EVAL1 1687 002652 4545 SORTC 1688 002653 3640 TERMS-1 1689 002654 5256 JMP ETERMN 1690 002655 3106 DCA SORTCN /ALL ELSE IS END 1691 002656 4576 ETERMN, TSTLPR 1692 002657 7410 SKP 1693 002660 4557 ERR120, ERROR /EXCESS L-PARENS 1694 002661 1106 ETERM, TAD SORTCN 1695 002662 3113 DCA THISOP /SET OP 1696 002663 1113 TAD THISOP 1697 002664 1140 TAD M10 1698 002665 7700 SMA CLA 1699 002666 3113 DCA THISOP /END 1700 002667 1113 ETERM2, TAD THISOP 1701 002670 7041 CIA 1702 002671 1114 TAD LASTOP /PRIORITIES 1703 002672 7710 SPA CLA 1704 002673 5323 JMP EPAR /NO GO YET 1705 002674 1114 TAD LASTOP 1706 002675 1374 TAD (OPTABL 1707 002676 3111 DCA CNTR 1708 002677 1511 TAD I CNTR 1709 002700 3307 DCA FLOP /SET OP 1710 002701 1114 TAD LASTOP 1711 002702 7640 SZA CLA 1712 002703 4553 POPF /GET DATA 1713 002704 0107 T1 /DUMB TEMP 1714 002705 4407 FINT 1715 002706 0107 FGET T1 1716 002707 5773 FLOP, FJMP I (FUPARR /FLOATING OP 1717 002710 7521 FPUT I FLARGP /SAVE DATA 1718 002711 0000 FEXT 1719 002712 1121 TAD FLARGP 1720 002713 3025 DCA PT1 /POINT TO DATA 1721 002714 1113 TAD THISOP 1722 002715 1114 TAD LASTOP 1723 002716 7650 SNA CLA 1724 002717 5366 JMP EVAL3 /DONE 1725 002720 4551 POPA 1726 002721 3114 DCA LASTOP /NEW OP 1727 002722 5267 JMP ETERM2 1728 1729 002723 4576 EPAR, TSTLPR 1730 002724 7410 SKP 1731 002725 5236 JMP EPAR2 /DO RECURSIVE 1732 002726 1114 TAD LASTOP 1733 002727 4546 PUSHA 1734 002730 1025 TAD PT1 1735 002731 3333 DCA .+2 1736 002732 4550 PUSHF /SAVE DATA 1737 002733 0000 0 1738 002734 1113 TAD THISOP 1739 002735 3114 DCA LASTOP 1740 002736 4543 ARGNXT, GETC 1741 002737 4563 TESTC 1742 002740 5234 JMP ELPAR /T 1743 002741 5241 JMP ENUM /N 1744 002742 5344 JMP EVAR /V 1745 002743 5357 JMP ERR110 /OTHER 1746 1747 002744 4547 EVAR, PUSHJ /GET VARIABLE 1748 002745 4400 GETVAR 1749 002746 7440 SZA 1750 002747 5772 JMP I (FUNCT3 /FUNCTION 1751 002750 1121 TAD FLARGP 1752 002751 3025 DCA PT1 /POINT TO DATA 1753 002752 5244 JMP OPNEXT 1754 1755 002753 0000 EVAL1, 0 1756 1757 002754 7344 EVAL2, L7776 1758 002755 1106 TAD SORTCN /IS IT + OR -? 1759 002756 7540 SMA SZA 1760 002757 4557 ERR110, ERROR /NO - DOUBLE OPS OR EX L-PARNES 1761 002760 7640 SZA CLA 1762 002761 5336 JMP ARGNXT /WAS + 1763 002762 1353 TAD EVAL1 1764 002763 7040 CMA 1765 002764 3353 DCA EVAL1 /FLIP EVAL1 1766 002765 5336 JMP ARGNXT 1767 1768 002766 4551 EVAL3, POPA 1769 002767 3353 DCA EVAL1 /RESTORE EVAL1 1770 002770 5552 POPJ /EXIT 1771 1772 002772 5711 PAGE 002773 5021 002774 5443 002775 7741 002776 3571 002777 7617 1773 003000 4546 FUNCT6, PUSHA /SAVE CHARACTER 1774 003001 3111 DCA EFOP 1775 003002 2111 ISZ EFOP 1776 003003 4550 PUSHF /SAVE ARGS 1777 003004 6170 FLARG 1778 003005 4567 TSTCOM 1779 003006 5214 JMP .+6 /NO MORE ARGS 1780 003007 4777 JMS I (ECALL /GET NEXT 1781 003010 4551 POPA 1782 003011 2015 ISZ PDLXR 1783 003012 2015 ISZ PDLXR 1784 003013 5201 JMP .-12 1785 1786 003014 1055 TAD LASTV 1787 003015 3024 DCA SUBS /SAVE END OF VARIABLES 1788 003016 1111 TAD EFOP 1789 003017 1376 FUNC10, TAD (2000 1790 003020 3023 DCA ADD /CREATE ILLEGAL NAME 1791 003021 4547 PUSHJ /LOOK IT UP - WILL DEFINE 1792 003022 4435 LOOKUP 1793 003023 4553 POPF 1794 003024 6170 FLARG 1795 003025 4555 FLPUT /SET ARGUMENT 1796 003026 6170 FLARG 1797 003027 7352 L5777 1798 003030 1023 TAD ADD 1799 003031 7440 SZA 1800 003032 5217 JMP FUNC10 /MORE ARGUMENTS 1801 003033 7330 L4000 1802 003034 4551 POPA 1803 003035 7041 CIA 1804 003036 3345 DCA FUNC17 /-CHAR OF FUNCTION 1805 003037 4550 PUSHF 1806 003040 0017 TEXTP 1807 003041 1106 TAD SORTCN 1808 003042 4546 PUSHA 1809 003043 1024 TAD SUBS 1810 003044 4546 PUSHA 1811 003045 7410 SKP 1812 1813 003046 4551 FUNC11, POPA 1814 003047 4572 FIND /FIND A *DEF* 1815 003050 0011 11 /-DEF CODE 1816 003051 4557 ERR170, ERROR /OUT OF TEXT 1817 003052 4546 PUSHA /FOR RESTART 1818 003053 4571 COMMAN /GET WORD 1819 003054 1375 TAD (-5 1820 003055 7640 SZA CLA 1821 003056 5246 JMP FUNC11 1822 003057 1026 TAD CHAR 1823 003060 1345 TAD FUNC17 1824 003061 7640 SZA CLA 1825 003062 5246 JMP FUNC11 /NOT PROPER FUNCTION 1826 003063 2015 ISZ PDLXR 1827 003064 1062 TAD ERLINE 1828 003065 4546 PUSHA /SAVE CALLING LINE 1829 003066 1030 TAD LINENO 1830 003067 3062 DCA ERLINE /CALL THIS OUR LINE 1831 003070 4543 GETC 1832 003071 4545 SORTC 1833 003072 3640 TERMS-1 1834 003073 4576 TSTLPR 1835 003074 4557 ERR180, ERROR /NO L-PAREN 1836 003075 1106 TAD SORTCN 1837 003076 4546 PUSHA 1838 003077 4543 GETC 1839 003100 7332 L2000 1840 003101 3107 DCA T1 1841 003102 1055 TAD LASTV 1842 003103 3025 DCA PT1 /POINT TO ARGUMENTS 1843 003104 4570 FUNC14, TSTALP 1844 003105 5274 JMP ERR180 /ILLEGAL VARIABLE 1845 003106 1026 TAD CHAR 1846 003107 0315 AND C37 1847 003110 4561 RTL6 1848 003111 7010 RAR 1849 003112 3110 DCA T2 /SAVE NAME 1850 003113 4543 GETC 1851 003114 4562 TESTN 1852 003115 0037 C37, 37 1853 003116 5324 JMP FUNC13 /NOT NUMBER 1854 003117 1026 TAD CHAR 1855 003120 0315 AND C37 1856 003121 1110 TAD T2 1857 003122 3110 DCA T2 1858 003123 4543 GETC 1859 003124 2107 FUNC13, ISZ T1 /SET ILLEGAL NAME 1860 003125 4560 UDF 1861 003126 1425 TAD I PT1 1862 003127 7041 CIA 1863 003130 1107 TAD T1 1864 003131 7640 SZA CLA 1865 003132 4557 ERR200, ERROR /WRONG NUMBER OF ARGUMENTS 1866 003133 1110 TAD T2 1867 003134 3425 DCA I PT1 /SET TEMPORARY NAME 1868 003135 6201 CDF 1869 003136 1142 TAD M4 1870 003137 1025 TAD PT1 1871 003140 3025 DCA PT1 /POINT TO NEXT 1872 003141 4567 TSTCOM 1873 003142 5346 JMP FUNC12 /NO MORE 1874 003143 4543 GETC 1875 003144 5304 JMP FUNC14 1876 1877 003145 0000 FUNC17, 0 1878 1879 003146 2107 FUNC12, ISZ T1 1880 003147 4560 UDF 1881 003150 1425 TAD I PT1 1882 003151 6201 CDF 1883 003152 7041 CIA 1884 003153 1107 TAD T1 1885 003154 7650 SNA CLA 1886 003155 5332 JMP ERR200 /SHOULD NOT AGREE 1887 003156 4545 SORTC 1888 003157 3640 TERMS-1 1889 003160 7410 SKP 1890 003161 5274 JMP ERR180 /NO PAREN 1891 003162 7344 L7776 1892 003163 1106 TAD SORTCN 1893 003164 7041 CIA 1894 003165 4551 POPA 1895 003166 7640 SZA CLA 1896 003167 5274 JMP ERR180 /NO MATCH 1897 003170 5774 JMP I (FUNC16 1898 1899 /*UDF* ROUTINE 1900 003171 0000 XUDF, 0 1901 003172 6221 CDF 20 /TO USER'S FIELD 1902 003173 5771 JMP I XUDF 1903 003174 5112 PAGE 003175 7773 003176 2000 003177 2600 1904 /COMMON PART FOR *PRINT* AND *INPUT* COMMANDS 1905 003200 4543 PRINT8, GETC /GO BY THE ";" 1906 003201 2025 ISZ PT1 /SHOULD WE SPACE? 1907 003202 5206 JMP PRINT1 /NO 1908 003203 4470 FREE2 1909 003204 1133 TAD C40 1910 003205 4467 PRINTC /PRINT A SPACE 1911 003206 4544 PRINT1, SORTJ /CHECK , " ' CR 1912 003207 5471 PRNTL1-1 1913 003210 6212 PRNTL2-PRNTL1 1914 003211 7340 PRINT4, L7777 1915 003212 4571 COMMAN /TAB? 1916 003213 7640 SZA CLA 1917 003214 5222 JMP PRIN5+1 1918 003215 1377 TAD (-26 1919 003216 4571 COMMAN 1920 003217 7650 SNA CLA 1921 003220 5552 POPJ /MUST BE EXPRESSION 1922 003221 7340 PRIN5, L7777 1923 003222 4546 PUSHA 1924 003223 4545 SORTC 1925 003224 3640 TERMS-1 1926 003225 4576 TSTLPR 1927 003226 4557 ERR340, ERROR 1928 003227 4776 JMS I (ECALL /GET RECURSIVE 1929 003230 2015 ISZ PDLXR /DUMP EFOP 1930 003231 4775 JMS I (PARTST /CHECK MATCH 1931 003232 4560 UDF 1932 003233 2415 ISZ I PDLXR /AHA! 1933 003234 5774 JMP I (PRIN12 /WAS TAB FUNCTION 1934 003235 4522 JMS I INTEGE 1935 003236 4546 PUSHA 1936 003237 4470 FREE2 /MAKE SOME ROOM 1937 003240 4551 POPA 1938 003241 7450 SNA 1939 003242 7330 L4000 /MAKE "NULL" PRINTABLE (OTHERWISE WE PRINT CHAR...) 1940 003243 4467 PRINTC 1941 003244 5306 JMP PRIN10 1942 1943 003245 4522 PRIN11, JMS I INTEGE /MAKE INTEGER OF TAB ARG 1944 003246 1373 TAD (-110 1945 003247 7440 SZA /SPECIAL CASE CHECK 1946 003250 1372 TAD (110 1947 003251 7040 CMA 1948 003252 3025 DCA PT1 /SET -COUNT -1 1949 003253 1061 TAD PRNTC1 1950 003254 1372 TAD (110 1951 003255 1025 TAD PT1 1952 003256 7510 SPA 1953 003257 5272 JMP PRINT9 1954 003260 7200 CLA 1955 003261 6002 IOF 1956 003262 1123 TAD CCR 1957 003263 4771 JMS I (XOUTL2 1958 003264 1123 TAD CCR 1959 003265 4771 JMS I (XOUTL2 1960 003266 1373 TAD (-110 1961 003267 3061 DCA PRNTC1 1962 003270 6001 ION 1963 003271 7410 SKP 1964 003272 3025 PRINT9, DCA PT1 1965 003273 2025 ISZ PT1 1966 003274 7410 SKP 1967 003275 5304 JMP PRINT3+2 1968 003276 4470 FREE2 1969 003277 1133 TAD C40 1970 003300 4467 PRINTC 1971 003301 5273 JMP PRINT9+1 1972 1973 003302 3032 PRINT3, DCA SPACSW 1974 003303 4543 GETC 1975 003304 7410 SKP 1976 003305 7340 L7777 1977 003306 3025 PRIN10, DCA PT1 /SET SPACE INDICATOR 1978 003307 4544 SORTJ /CHECK ; , ' " CR 1979 003310 5470 PRNTL4-1 1980 003311 6205 PRNTL6-PRNTL4 1981 003312 2025 ISZ PT1 /NO FIND O.K.? 1982 003313 5211 JMP PRINT4 /YES - ASSUME TAB OR EXPRESSION 1983 003314 4557 ERR350, ERROR /NO - SYNTAX ERROR 1984 1985 003315 1067 PRINT5, TAD PPRINT 1986 003316 1370 TAD (-XPRNTC 1987 003317 7650 SNA CLA 1988 003320 5327 JMP PRNT5A 1989 003321 4470 FREE2 1990 003322 4467 PRINTC 1991 003323 5336 JMP PRNT5B 1992 1993 1994 003324 4470 FREE2 1995 003325 1133 TAD C40 1996 003326 4467 PRINTC /SPACES TO FINISH ZONE 1997 003327 7326 PRNT5A, L0002 1998 003330 1061 TAD PRNTC1 1999 003331 1367 TAD (16 2000 003332 7510 SPA 2001 003333 5331 JMP .-2 2002 003334 7640 SZA CLA 2003 003335 5324 JMP PRNT5A-3 /KEEP GOING 2004 003336 4543 PRNT5B, GETC /GO BY THE "," 2005 003337 5206 JMP PRINT1 2006 /*PRINTX* ROUTINE 2007 003340 0000 XOUTL, 0 2008 003341 7450 SNA 2009 003342 1026 TAD CHAR /USE CHAR IF AC=0 2010 003343 4771 JMS I (XOUTL2 /DO OUTPUT 2011 003344 1012 TAD XREG3 2012 003345 1366 TAD (-15 /WAS IT A CR 2013 003346 7450 SNA 2014 003347 5361 JMP XOUTL1 /YES! 2015 003350 1365 TAD (15-40 2016 003351 7510 SPA 2017 003352 7610 SKP CLA /IT IS A NON-PRINTING CHARACTER 2018 003353 1141 TAD M100 2019 003354 7710 SPA CLA 2020 003355 2061 ISZ PRNTC1 /IT IS A PRINTING CHAR SO COUNT IT 2021 003356 5740 JMP I XOUTL 2022 2023 003357 1123 TAD CCR /END OF LINE SO DO CR-LF 2024 003360 5343 JMP XOUTL+3 2025 2026 003361 1373 XOUTL1, TAD (-110 2027 003362 3061 DCA PRNTC1 /RESET COUNT 2028 003363 1131 TAD CLF 2029 003364 5343 JMP XOUTL+3 2030 2031 003365 7755 PAGE 003366 7763 003367 0016 003370 0371 003371 3400 003372 0110 003373 7670 003374 4346 003375 5666 003376 2600 003377 7752 2032 003400 0000 XOUTL2, 0 2033 003401 6201 CDF 2034 003402 3012 DCA XREG3 /SAVE CHAR 2035 003403 1034 TAD OUTPUT 2036 003404 7640 SZA CLA 2037 003405 5255 JMP XOUTL4 /NO ECHO 2038 003406 1051 TAD TELSW /BUSY 2039 003407 7640 SZA CLA 2040 003410 5235 JMP XOUTL5 /YES 2041 003411 1137 TAD C10 2042 003412 1035 TAD XIOT 2043 003413 3226 DCA XOUTL6 /SET OUTPUT IOT 2044 003414 1036 TAD DECK 2045 003415 7160 CLL CML CMA 2046 003416 3112 DCA T3 2047 003417 7410 SKP 2048 003420 7010 RAR 2049 003421 2112 ISZ T3 2050 003422 5220 JMP .-2 2051 003423 6117 MTON /TURN ON PROPER USER 2052 003424 7200 CLA 2053 003425 1012 TAD XREG3 2054 003426 7402 XOUTL6, HLT 2055 003427 3051 DCA TELSW /SET BUSY 2056 003430 1777 TAD I (AUSER 2057 003431 6117 MTON /ALL ON AGAIN 2058 003432 6115 MINT /WITH INTERRUPTS 2059 003433 7200 CLA 2060 003434 5255 JMP XOUTL4 2061 2062 003435 4560 XOUTL5, UDF 2063 003436 1447 TAD I OPTRI /ROOM 2064 003437 7640 SZA CLA 2065 003440 4342 ERR080, JMS IERROR /NO ROOM 2066 003441 4560 UDF 2067 003442 1012 TAD XREG3 2068 003443 3447 DCA I OPTRI /FILL BUFFER 2069 003444 2047 ISZ OPTRI /BUMP BUFFER 2070 003445 1047 TAD OPTRI 2071 003446 7041 CIA 2072 003447 1046 TAD IPTR0 2073 003450 7640 SZA CLA 2074 003451 5255 JMP XOUTL4 /OK 2075 003452 1046 TAD IPTR0 2076 003453 1135 TAD M40 2077 003454 3047 DCA OPTRI /RESET BUFFER 2078 003455 6201 XOUTL4, CDF 2079 003456 5600 JMP I XOUTL2 2080 /*FINDLN* ROUTINE 2081 003457 0000 XFINDL, 0 2082 003460 1030 TAD LINENO 2083 003461 7710 SPA CLA /IS THIS IMMEDIATE MODE??????? 2084 003462 5316 JMP XFNDL3 /YEP. 2085 003463 4560 UDF 2086 003464 1057 TAD ALINE0 2087 003465 3031 DCA LASTLN 2088 003466 1057 TAD ALINE0 2089 003467 3027 XFNDL1, DCA LINEPC /CURRENT LINE 2090 003470 1027 TAD LINEPC 2091 003471 3012 DCA XREG3 2092 003472 1030 TAD LINENO 2093 003473 7041 CIA 2094 003474 1412 TAD I XREG3 2095 003475 7450 SNA 2096 003476 5307 JMP XFNDL2-1 /FOUND LINE 2097 003477 7700 SMA CLA 2098 003500 5310 JMP XFNDL2 /WENT BEYOND 2099 003501 1027 TAD LINEPC 2100 003502 3031 DCA LASTLN 2101 003503 1427 TAD I LINEPC 2102 003504 7440 SZA 2103 003505 5267 JMP XFNDL1 /LOOP 2104 003506 7410 SKP /OUT OF TEXT 2105 003507 2257 ISZ XFINDL /FOUND LINE 2106 003510 1027 XFNDL2, TAD LINEPC 2107 003511 7001 IAC 2108 003512 3017 DCA AXOUT /SET TO UNPACK 2109 003513 3021 DCA XCT 2110 003514 6201 CDF 2111 003515 5657 JMP I XFINDL 2112 003516 7340 XFNDL3, L7777 2113 003517 1060 TAD COMBUF 2114 003520 3027 DCA LINEPC 2115 003521 5307 JMP XFNDL2-1 /RESET TO DO COMMAND BUFFER NOW 2116 /ERROR ENTERING ROUTINES 2117 003522 0000 XERROR, 0 2118 003523 6002 IOF 2119 003524 7200 CLA 2120 003525 6201 IERRO1, CDF 2121 003526 1125 TAD C177 2122 003527 3342 DCA IERROR 2123 003530 1322 IERRO2, TAD XERROR 2124 003531 7110 CLL RAR /FORM ERROR CODE 2125 003532 3127 DCA LSTMOD 2126 003533 7350 L3777 2127 003534 0406 AND I TEMP2 /CLEAR I WAIT 2128 003535 3406 DCA I TEMP2 2129 003536 4776 JMS I (IOFIX /RESET FILES 2130 003537 1375 TAD (ERRORX 2131 003540 3022 DCA PC /SET FOR RESTART 2132 003541 5742 JMP I IERROR 2133 2134 003542 0000 IERROR, 0 2135 003543 7340 L7777 2136 003544 1135 TAD M40 2137 003545 1046 TAD IPTR0 2138 003546 3012 DCA XREG3 2139 003547 1135 TAD M40 2140 003550 3112 DCA T3 /BUFFER COUNT 2141 003551 4560 UDF 2142 003552 3412 DCA I XREG3 /CLEAR BUFFER 2143 003553 2112 ISZ T3 2144 003554 5352 JMP .-2 2145 003555 6201 CDF 2146 003556 1047 TAD OPTRI 2147 003557 3050 DCA OPTRO 2148 003560 1342 TAD IERROR 2149 003561 3322 DCA XERROR 2150 003562 1117 TAD LOOK 2151 003563 7041 CIA 2152 003564 1006 TAD TEMP2 2153 003565 7650 SNA CLA 2154 003566 5325 JMP IERRO1 /RUNNING 2155 003567 5330 JMP IERRO2 /NOT RUNNING 2156 003570 2014 FLTONE, 2014 2157 003571 0000 FLZERO, 0 2158 003572 0000 0 2159 003573 0000 0 2160 2161 003575 0400 PAGE 003576 1366 003577 5326 2162 2163 2164 /*PACKC* ROUTINE 2165 003600 0000 XPACKC, 0 2166 003601 4544 SORTJ 2167 003602 1767 XPAKL1-1 2168 003603 0500 XPAKL2-XPAKL1 2169 003604 4545 XXPAK, SORTC /CHECK FOR ALTMODE 2170 003605 3505 ALT-1 2171 003606 5265 JMP XPPCK1 /IT IS ALTMODE 2172 003607 1026 TAD CHAR 2173 003610 1135 TAD M40 2174 003611 2024 XPACK4, ISZ XCTIN 2175 003612 5232 JMP XPACK1 /NO PARTIAL 2176 003613 1023 TAD ADD /FORM WORD 2177 003614 4560 UDF 2178 003615 3416 DCA I AXIN /PACK IT 2179 003616 6201 CDF 2180 003617 3023 DCA ADD 2181 003620 1453 TAD I PACKND 2182 003621 1132 TAD M12 2183 003622 7141 CLL CIA 2184 003623 1016 TAD AXIN 2185 003624 7630 SZL CLA 2186 003625 4557 ERR060, ERROR /TOO FAR 2187 003626 5600 XPACK5, JMP I XPACKC 2188 2189 003627 1377 XPACK2, TAD (37 2190 003630 1133 XPACK3, TAD C40 2191 003631 5211 JMP XPACK4 2192 2193 003632 4561 XPACK1, RTL6 2194 003633 3023 DCA ADD /SAVE PARTIAL 2195 003634 7340 L7777 2196 003635 3024 DCA XCTIN /INDICATE PARTIAL 2197 003636 5600 JMP I XPACKC 2198 2199 003637 2024 XPACK7, ISZ XCTIN /PARTIAL HERE 2200 003640 5245 JMP XPACK8 /NO 2201 003641 3023 XPACK9, DCA ADD 2202 003642 1126 TAD C137 2203 003643 4467 PRINTC /PRINT BACK ARROW 2204 003644 5600 JMP I XPACKC 2205 2206 003645 1052 XPACK8, TAD PACKST 2207 003646 7041 CIA 2208 003647 1016 TAD AXIN 2209 003650 7650 SNA CLA 2210 003651 5600 JMP I XPACKC /ALL GONE ANY HOW 2211 003652 1016 TAD AXIN 2212 003653 3112 DCA T3 2213 003654 7340 L7777 2214 003655 3024 DCA XCTIN /INDICATE PARTIAL 2215 003656 7340 L7777 2216 003657 1016 TAD AXIN 2217 003660 3016 DCA AXIN /PUT IT BACK ONE 2218 003661 4560 UDF 2219 003662 1512 TAD I T3 /GET OLD 2220 003663 0141 AND C7700 2221 003664 5241 JMP XPACK9 2222 2223 003665 4550 XPPCK1, PUSHF /SAVE TEXT POINTERS 2224 003666 0017 TEXTP 2225 003667 1200 TAD XPACKC 2226 003670 4546 PUSHA /SAVE ADDRESS IF DISMISSED 2227 003671 4471 FREE13 2228 003672 1376 TAD (44 2229 003673 4467 PRINTC /PRINT "$" 2230 003674 1133 TAD C40 2231 003675 4467 PRINTC 2232 003676 1124 TAD C7 2233 003677 4775 JMS I (READY1 /PRINT "DELETE" 2234 003700 4543 GETC /PRINT "D" 2235 003701 4467 PRINTC 2236 003702 4543 GETC /PRINT CR 2237 003703 4467 PRINTC 2238 003704 4551 POPA 2239 003705 3200 DCA XPACKC /RESTORE ADDRESS 2240 003706 1052 TAD PACKST 2241 003707 3016 DCA AXIN 2242 003710 4553 POPF 2243 003711 0017 TEXTP 2244 003712 3026 DCA CHAR 2245 003713 5235 JMP XPACK1+3 2246 /*READC* ROUTINE 2247 003714 0000 XREADC, 0 2248 003715 4560 UDF 2249 003716 1445 TAD I IPTRO /GET CHAR 2250 003717 3026 DCA CHAR /SET CHARACTER 2251 003720 3445 DCA I IPTRO /CLEAR BUFFER 2252 003721 6201 CDF 2253 003722 1026 TAD CHAR 2254 003723 7650 SNA CLA /WAS THERE A CHARACTER 2255 003724 5337 JMP XREAD1 /NO - WAIT 2256 003725 2045 ISZ IPTRO /BUMP BUFFER 2257 003726 1045 TAD IPTRO 2258 003727 7041 CIA 2259 003730 1133 TAD C40 2260 003731 1046 TAD IPTR0 2261 003732 7640 SZA CLA 2262 003733 5336 JMP .+3 /OK 2263 003734 1046 TAD IPTR0 2264 003735 3045 DCA IPTRO /RESET BUFFER 2265 003736 5714 JMP I XREADC 2266 2267 003737 7340 XREAD1, L7777 2268 003740 1314 TAD XREADC 2269 003741 3022 DCA PC /SET TO REDO ROUTINE 2270 003742 1517 TAD I LOOK 2271 003743 4774 JMS I (XOR 2272 003744 4000 4000 /I WAIT AND DISMISS 2273 /*TSTLPR* ROUTINE 2274 003745 0000 LPRTST, 0 2275 003746 1106 TAD SORTCN 2276 003747 1136 TAD M6 2277 003750 7710 SPA CLA 2278 003751 5745 JMP I LPRTST /NOT L-PAREN 2279 003752 1106 TAD SORTCN 2280 003753 1140 TAD M10 2281 003754 7710 SPA CLA 2282 003755 2345 ISZ LPRTST /L-PAREN 2283 003756 5745 JMP I LPRTST 2284 2285 003757 0000 RESETO, 0 /RESET OUTPUT POINTERS 2286 003760 1373 TAD (XPRNTC 2287 003761 3067 DCA PPRINT 2288 003762 1372 TAD (XFREE2 2289 003763 3070 DCA PFREE2 2290 003764 1371 TAD (XFREE3 2291 003765 3071 DCA PFREE3 2292 003766 5757 JMP I RESETO 2293 2294 003771 6007 PAGE 003772 6000 003773 7407 003774 5600 003775 1756 003776 0044 003777 0037 2295 /*POPF* ROUTINE 2296 004000 0000 XPOPF, 0 2297 004001 7340 L7777 2298 004002 1600 TAD I XPOPF 2299 004003 3012 DCA XREG3 /POINT TO DATA AREA 2300 004004 7346 L7775 2301 004005 3112 DCA T3 2302 004006 4551 POPA 2303 004007 3412 DCA I XREG3 /MOVE DATA 2304 004010 2112 ISZ T3 2305 004011 5206 JMP .-3 2306 004012 2200 ISZ XPOPF 2307 004013 5600 JMP I XPOPF 2308 /*TESTC* ROUTINE 2309 004014 0000 XTESTC, 0 2310 004015 4545 SORTC 2311 004016 3640 TERMS-1 2312 004017 5614 JMP I XTESTC /TERMINATOR 2313 004020 2214 ISZ XTESTC 2314 004021 4562 TESTN 2315 004022 5614 JMP I XTESTC 2316 004023 7410 SKP 2317 004024 5614 JMP I XTESTC 2318 004025 2214 ISZ XTESTC 2319 004026 4570 TSTALP 2320 004027 2214 ISZ XTESTC /OTHER 2321 004030 5614 JMP I XTESTC /LETTER 2322 /*TESTN* ROUTINE 2323 004031 0000 XTESTN, 0 2324 004032 1026 TAD CHAR 2325 004033 1377 TAD (-60 2326 004034 3106 DCA SORTCN /SAVE BINARY DIGIT 2327 004035 7326 L0002 2328 004036 1106 TAD SORTCN 2329 004037 7450 SNA 2330 004040 5631 JMP I XTESTN /PERIOD 2331 004041 2231 ISZ XTESTN 2332 004042 1376 TAD (-13 2333 004043 7740 SMA SZA CLA 2334 004044 5631 JMP I XTESTN /GREATER THAN 271 2335 004045 1106 TAD SORTCN 2336 004046 7700 SMA CLA 2337 004047 2231 ISZ XTESTN /DIGIT 2338 004050 5631 JMP I XTESTN 2339 /*GETC* ROUTINE 2340 004051 0000 XGETC, 0 2341 004052 2021 ISZ XCT 2342 004053 5270 JMP XGET1 /NO PARTIAL 2343 004054 1020 TAD GTEM /GET PARTIAL 2344 004055 0134 XGET2, AND C77 /AND OFF JUNK 2345 004056 1133 TAD C40 /CORRECT TO ASCII 2346 004057 3026 DCA CHAR 2347 004060 4544 SORTJ /CHECK SPECIALS 2348 004061 1772 XGETL1-1 2349 004062 7201 XGETL2-XGETL1 2350 004063 1026 XGET7, TAD CHAR /COPY TO UPPER FIELD 2351 004064 6211 CDF SWAP 2352 004065 3775 DCA I (OCHAR 2353 004066 6201 CDF 2354 004067 5651 JMP I XGETC 2355 2356 004070 4560 XGET1, UDF 2357 004071 1417 TAD I AXOUT /GET NEXT 2358 004072 6201 CDF 2359 004073 3020 DCA GTEM /SAVE PARTIAL 2360 004074 7340 L7777 2361 004075 3021 DCA XCT /INDICATE PARTIAL 2362 004076 1020 TAD GTEM 2363 004077 4561 RTL6 2364 004100 7004 RAL 2365 004101 5255 JMP XGET2 2366 2367 004102 1032 XGET3, TAD SPACSW /SPACE TEST 2368 004103 7640 SZA CLA 2369 004104 5263 JMP XGET7 /KEEP SPACES 2370 004105 5252 JMP XGETC+1 /IGNORE SPACES 2371 2372 004106 1124 XGET4, TAD C7 /BELL 2373 004107 3026 XGET6, DCA CHAR 2374 004110 5263 JMP XGET7 2375 2376 004111 1123 XGET5, TAD CCR /CR 2377 004112 5307 JMP XGET6 2378 /*GETNXT* ROUTINE 2379 004113 0000 NXTGET, 0 2380 004114 4566 TSTCCR /END OF LINE? 2381 004115 7610 SKP CLA 2382 004116 5325 JMP NXTGT1 /YES, GET NEXT LINE NUMBER 2383 004117 1026 TAD CHAR 2384 004120 1345 TAD MSPLAT 2385 004121 7650 SNA CLA 2386 004122 5337 JMP NXTG /YES, NEXT COMMAND FOUND 2387 004123 4543 GETC /NO, GET ANOTHER CHAR 2388 004124 5314 JMP NXTGET+1 /TRY AGAIN 2389 004125 4560 NXTGT1, UDF 2390 004126 1427 TAD I LINEPC /POINTER TO NEXT 2391 004127 7450 SNA 2392 004130 5340 JMP NXTG+1 /OUT OF TEXT 2393 004131 3027 DCA LINEPC /NEW POINTER 2394 004132 1027 TAD LINEPC 2395 004133 3017 DCA AXOUT 2396 004134 3021 DCA XCT /SET TO UNPACK 2397 004135 1417 TAD I AXOUT /GET LINE NUMBER 2398 004136 3030 DCA LINENO 2399 004137 2313 NXTG, ISZ NXTGET 2400 004140 6201 CDF 2401 004141 5713 JMP I NXTGET 2402 /*FIND* ROUTINE 2403 004142 0000 XFIND, 0 2404 004143 3030 DCA LINENO /SET START LINE 2405 004144 4574 FINDLN 2406 004145 7644 MSPLAT, -"\+200 2407 004146 4573 XFIND1, GETNXT /GET NEXT LINE 2408 004147 5357 JMP XFIND2 /OUT OF TEXT 2409 004150 4543 GETC 2410 004151 4571 COMMAN 2411 004152 1742 TAD I XFIND /CORRECT COMMAND 2412 004153 7640 SZA CLA 2413 004154 5346 JMP XFIND1 /NO - LOOP 2414 004155 2342 ISZ XFIND 2415 004156 1030 TAD LINENO /FOR RESTART 2416 004157 2342 XFIND2, ISZ XFIND 2417 004160 5742 JMP I XFIND 2418 2419 004161 0000 GETCX1, 0 /*GETC* FOR FIELD 1 2420 004162 4543 GETC 2421 004163 6213 CIF CDF SWAP 2422 004164 5761 JMP I GETCX1 2423 2424 004165 0000 USER0, 0 2425 004166 0001 USER1, 1 2426 004167 0002 USER2, 2 2427 004170 0003 USER3, 3 2428 004171 0004 USER4, 4 2429 2430 004175 0005 PAGE 004176 7765 004177 7720 2431 /*GOSUB* COMMAND 2432 2433 004200 4565 GOSUB, GETLN 2434 004201 4575 TSTEND 2435 004202 4557 ERR290, ERROR 2436 004203 7340 GOSUB3, L7777 2437 004204 1017 TAD AXOUT 2438 004205 4546 PUSHA 2439 004206 1062 TAD ERLINE 2440 004207 4546 PUSHA 2441 004210 1377 TAD (GOSUB1 2442 004211 4546 PUSHA 2443 004212 5776 JMP I (GOSUB2 2444 2445 /*NEW* AND *BYE* AND *SCRATCH* COMMANDS 2446 2447 004213 7340 NEW, L7777 2448 004214 3031 RENAME, DCA MODE /KLUDGE! 2449 004215 4547 PUSHJ 2450 004216 5741 GETNAM 2451 004217 4775 JMS I (DTGRAB /SO WE DON'T BLOW ANY OTHER NAMES 2452 004220 6213 CIF CDF SWAP /UNPACK THE NAME 2453 004221 4774 JMS I (XGETNAM 2454 004222 4240 JMS MOVNAM /GET THE NAME WHERE IT COUNTS 2455 004223 4773 JMS I (DTFREE /SEE, WE DIDN'T USE THE TAPE! 2456 004224 2031 ISZ MODE /NEW OR RENAME COMMAND? 2457 004225 5772 JMP I (READY 2458 2459 004226 4566 BYE, TSTCCR 2460 004227 4557 ERR002, ERROR /JUNK 2461 004230 4560 UDF 2462 004231 3457 DCA I ALINE0 /NO TEXT 2463 004232 7326 L0002 2464 004233 1057 TAD ALINE0 2465 004234 3054 DCA BUFR /FREE UP TEXT SPACE 2466 004235 1054 END, TAD STARTV 2467 004236 3055 DCA LASTV 2468 004237 5772 JMP I (READY 2469 2470 004240 0000 MOVNAM, 0 2471 004241 6211 CDF SWAP /MOVE NAME DOWN 2472 004242 1523 TAD I CCR /TAD I [NAMEX 2473 004243 3063 DCA NAME 2474 004244 1771 TAD I (NAMEX+1 2475 004245 3064 DCA NAME+1 2476 004246 1770 TAD I (NAMEX+2 2477 004247 3065 DCA NAME+2 2478 004250 6201 CDF 2479 004251 5640 JMP I MOVNAM 2480 2481 004252 3037 INPUTX, DCA DATAPC 2482 004253 1123 TAD CCR 2483 004254 3043 DCA DATAPC+4 /AUTO-RESTORE 2484 004255 4571 COMMAN 2485 004256 1136 TAD M6 2486 004257 7510 SPA 2487 004260 5270 JMP IMMED /IMMEDIATE MODE 2488 004261 1367 TAD (COMGO1 2489 004262 3107 DCA T1 2490 004263 6211 CDF SWAP 2491 004264 1507 TAD I T1 2492 004265 6201 CDF 2493 004266 3107 DCA T1 2494 004267 5507 JMP I T1 2495 004270 7340 IMMED, L7777 2496 004271 1060 TAD COMBUF 2497 004272 3027 DCA LINEPC 2498 004273 7340 L7777 2499 004274 3030 DCA LINENO /IMMEDIATE MODE 2500 004275 4766 JMS I (OTPACK 2501 004276 5765 JMP I (RUN8+1 2502 /*ON* COMMAND--ON-GOTO AND ON-GOSUB 2503 004277 4547 ON, PUSHJ /GET VALUE 2504 004300 2612 EVAL 2505 004301 4571 COMMAN 2506 004302 1124 TAD C7 2507 004303 7450 SNA 2508 004304 5311 JMP .+5 2509 004305 1364 TAD (4 2510 004306 7640 SZA CLA 2511 004307 4557 ERR300, ERROR 2512 004310 7340 L7777 2513 004311 3110 DCA T2 2514 004312 4522 JMS I INTEGE 2515 004313 7570 SNA SPA SZL 2516 004314 5343 JMP ON2 2517 004315 7041 CIA 2518 004316 3107 DCA T1 2519 004317 4565 ON1, GETLN 2520 004320 2107 ISZ T1 2521 004321 5324 JMP .+3 2522 004322 1030 TAD LINENO 2523 004323 4546 PUSHA 2524 004324 4567 TSTCOM 2525 004325 5330 JMP .+3 2526 004326 4543 GETC 2527 004327 5317 JMP ON1 2528 004330 4575 TSTEND 2529 004331 5307 JMP ERR300 2530 004332 1107 TAD T1 2531 004333 7710 SPA CLA 2532 004334 5343 JMP ON2 /IT WASN'T THERE 2533 004335 4551 POPA 2534 004336 3030 DCA LINENO 2535 004337 1030 TAD LINENO 2536 004340 2110 ISZ T2 2537 004341 5552 POPJ /*GOTO* COMMAND--TRANSFER TO IT 2538 004342 5203 JMP GOSUB3 /*GOSUB* CMD--CALL GOSUB (NO NEED TO CLEAR AC) 2539 2540 004343 1062 ON2, TAD ERLINE /INDEX WAS OUT OF RANGE 2541 004344 3030 DCA LINENO 2542 004345 5552 POPJ 2543 004346 4407 PRIN12, FINT 2544 004347 7763 FPUT I (IF1 /SETUP CALL TO 'MOD' 2545 004350 0000 FEXT 2546 004351 4550 PUSHF 2547 004352 5763 F72 2548 004353 4553 POPF 2549 004354 6170 FLARG 2550 004355 4547 PUSHJ 2551 004356 1311 MOD1 2552 004357 4547 PUSHJ 2553 004360 2557 ABS /MAKE IT POSITIVE 2554 004361 5762 JMP I (PRIN11 2555 2556 2557 004362 3245 PAGE 004363 1364 004364 0004 004365 2526 004366 5621 004367 4724 004370 0017 004371 0016 004372 0467 004373 6627 004374 0067 004375 6602 004376 2550 004377 2562 2558 /GET A VARIABLE OR FUNCTION ROUTINE 2559 /EXIT WITH AC NON-ZERO IF FUNCTION 2560 /AC IS LIST POINTER UNLESS 2561 /AC IS NEGATIVE, THEN AC IS CHAR FOR USER FUNCTION 2562 004400 4570 GETVAR, TSTALP 2563 004401 4557 ERR220, ERROR /MUST BE LETTER 2564 004402 1026 TAD CHAR 2565 004403 0223 AND P37 2566 004404 4561 RTL6 2567 004405 7010 RAR 2568 004406 3023 DCA ADD /SAVE FOR NAME 2569 004407 4543 GETC 2570 004410 4563 TESTC 2571 004411 5334 JMP SUBT /T - TEST FOR SUBSCRIPT 2572 004412 5222 JMP P37-1 /N - ADD TO NAME 2573 004413 5727 JMP I FUNCTI /TRY FOR FUNCTION 2574 004414 1026 TAD CHAR /CHECK FOR $ 2575 004415 1332 TAD MDOLR 2576 004416 7640 SZA CLA 2577 004417 5235 JMP LOOKUP 2578 004420 2031 ISZ MODE /IT'S A STRING! 2579 004421 5225 JMP .+4 2580 2581 004422 4562 TESTN 2582 004423 0037 P37, 37 2583 004424 5235 JMP LOOKUP /WAS A . 2584 004425 1026 TAD CHAR 2585 004426 0223 AND P37 2586 004427 1023 TAD ADD 2587 004430 3023 DCA ADD /NEW NAME 2588 004431 4543 GETC 2589 004432 4545 SORTC 2590 004433 3640 TERMS-1 2591 004434 5334 JMP SUBT 2592 004435 4560 LOOKUP, UDF 2593 004436 1055 TAD LASTV 2594 004437 3025 GS1, DCA PT1 /POINT TO VARIABLES 2595 004440 1054 TAD STARTV 2596 004441 7041 CIA 2597 004442 1025 TAD PT1 2598 004443 7650 SNA CLA 2599 004444 5265 JMP GS2 /NOT FOUND AT ALL 2600 004445 1425 TAD I PT1 /GET NAME 2601 004446 7141 CLL CIA 2602 004447 1023 TAD ADD 2603 004450 7450 SNA 2604 004451 5733 JMP I GFND1I /FOUND NAME 2605 004452 7420 SNL 2606 004453 7041 CIA /POSITIVE DIFFERENCE 2607 004454 7106 CLL RTL /AC WILL BE 0 IF DIFFERENCE WAS 2000 2608 004455 7650 SNA CLA 2609 004456 4557 ERR130, ERROR /ERROR - A(I) AND A(I,I) CANNOT EXIST TOGETHER 2610 004457 1425 TAD I PT1 2611 004460 7710 SPA CLA 2612 004461 7340 L7777 /BACK 1 FOR SUBSCRIPT 2613 004462 1142 GS4, TAD M4 2614 004463 1025 TAD PT1 2615 004464 5237 JMP GS1 2616 2617 004465 1124 GS2, TAD C7 2618 004466 1055 TAD LASTV /ROOM LEFT 2619 004467 7141 CLL CIA 2620 004470 1015 TAD PDLXR 2621 004471 7630 SZL CLA 2622 004472 5276 JMP .+4 2623 004473 1054 TAD STARTV 2624 004474 3055 DCA LASTV /WIPE OUT VARIABLES--OVERFLOW 2625 004475 4557 ERR100, ERROR /NO ROOM 2626 004476 7301 L0001 2627 004477 7006 RTL 2628 004500 1055 TAD LASTV 2629 004501 3025 DCA PT1 /POINT TO NEW SPACE 2630 004502 1023 TAD ADD 2631 004503 7700 SMA CLA 2632 004504 5310 JMP GPUT1 2633 004505 1024 TAD SUBS 2634 004506 3425 DCA I PT1 /SET SUBSCRIPT 2635 004507 2025 ISZ PT1 2636 004510 1023 GPUT1, TAD ADD 2637 004511 3425 DCA I PT1 /SET NAME 2638 004512 6201 CDF 2639 004513 1025 TAD PT1 2640 004514 4546 PUSHA 2641 004515 7301 L0001 2642 004516 1055 TAD LASTV 2643 004517 3025 DCA PT1 /POINT TO NEW DATA SPACE 2644 004520 4551 POPA 2645 004521 3055 DCA LASTV /NEW LIMIT 2646 004522 4555 FLPUT /SET TO 0 2647 004523 3571 FLZERO 2648 004524 5726 JMP I GS5I 2649 2650 004525 4602 SUB2I, SUB2 2651 004526 4623 GS5I, GS5 2652 004527 4626 FUNCTI, FUNCT 2653 004530 2600 ECALLI, ECALL 2654 004531 0045 AC3I, AC3 2655 004532 7734 MDOLR, -44 2656 004533 4604 GFND1I, GFND1 2657 2658 004534 4576 SUBT, TSTLPR 2659 004535 5235 JMP LOOKUP /NOT SUBSCRIPTED 2660 004536 1023 TAD ADD 2661 004537 3111 DCA EFOP 2662 004540 4730 JMS I ECALLI /GET SUBSCRIPT 2663 004541 7330 L4000 2664 004542 4551 POPA 2665 004543 3023 DCA ADD /SAVE NAME 2666 004544 4522 JMS I INTEGE 2667 004545 7530 SPA SZL 2668 004546 4557 SUB1, ERROR /TOO BIG OR NEGATIVE 2669 ERR230=SUB1 2670 004547 3024 DCA SUBS /SET SUBSCRIPT 2671 004550 4567 TSTCOM 2672 004551 5725 JMP I SUB2I /ONLY ONE SUBSCRIPT 2673 004552 4550 PUSHF /SAVE ADD,SUBS 2674 004553 0023 ADD 2675 004554 4547 PUSHJ /GET SECOND SUBSCRIPT 2676 004555 2611 EVAL-1 2677 004556 4553 POPF 2678 004557 0023 ADD 2679 004560 4522 JMS I INTEGE 2680 004561 0141 AND C7700 2681 004562 7010 RAR 2682 004563 7640 SZA CLA 2683 004564 5346 JMP SUB1 /TOO BIG 2684 004565 1024 TAD SUBS 2685 004566 0141 AND C7700 2686 004567 7640 SZA CLA 2687 004570 5346 JMP SUB1 /TOO BIG 2688 004571 1024 TAD SUBS 2689 004572 4561 RTL6 2690 004573 6211 CDF SWAP 2691 004574 1731 TAD I AC3I /FORM DOUBLE SUBSCRIPT 2692 004575 6201 CDF 2693 004576 3024 DCA SUBS 2694 004577 7332 L2000 2695 004600 1023 TAD ADD 2696 004601 3023 DCA ADD /INDICATE 2 SUBSCRIPTS 2697 004602 4777 SUB2, JMS I (PARTST /CHECK PAREN MATCH 2698 004603 5776 JMP I (LOOKUP 2699 2700 004604 1023 GFND1, TAD ADD 2701 004605 7700 SMA CLA 2702 004606 5217 JMP GFND2 /NO SUBSCRIPT 2703 004607 7340 L7777 2704 004610 1025 TAD PT1 2705 004611 3025 DCA PT1 2706 004612 1425 TAD I PT1 /GET SUBSCRIPT 2707 004613 7041 CIA 2708 004614 1024 TAD SUBS 2709 004615 7640 SZA CLA 2710 004616 5775 JMP I (GS4 /WRONG SUBSCRIPT 2711 004617 6201 GFND2, CDF 2712 004620 7346 L7775 2713 004621 1025 TAD PT1 2714 004622 3025 DCA PT1 /POINT TO DATA 2715 004623 4554 GS5, FLGET /GET VARIABLE 2716 004624 6170 FLARG 2717 004625 5552 POPJ 2718 2719 004626 1026 FUNCT, TAD CHAR 2720 004627 0374 AND (37 2721 004630 1023 TAD ADD 2722 004631 4545 SORTC /CHECK 2 LETTERS 2723 004632 3577 FUNL1-1 2724 004633 7410 SKP 2725 004634 5776 JMP I (LOOKUP /NOT A FUNCTION 2726 004635 1106 TAD SORTCN 2727 004636 7650 SNA CLA 2728 004637 5276 JMP FUNCT4 /USER FUNCTION 2729 004640 4550 PUSHF 2730 004641 0017 TEXTP 2731 004642 1026 TAD CHAR 2732 004643 4546 PUSHA 2733 004644 4543 GETC 2734 004645 1026 TAD CHAR 2735 004646 3025 DCA PT1 2736 004647 4551 POPA 2737 004650 3026 DCA CHAR 2738 004651 4553 POPF 2739 004652 0017 TEXTP 2740 004653 1106 TAD SORTCN 2741 004654 1373 TAD (FUNL2-1 2742 004655 3112 DCA T3 2743 004656 6211 CDF SWAP 2744 004657 1512 TAD I T3 /GET CORRECT CODE 2745 004660 1025 TAD PT1 2746 004661 7640 SZA CLA 2747 004662 5776 JMP I (LOOKUP /WAS NOT A FUNCTION 2748 004663 1106 TAD SORTCN 2749 004664 4546 PUSHA /SAVE CONSTANT 2750 004665 4543 GETC 2751 004666 4543 FUNCT5, GETC 2752 004667 4545 SORTC 2753 004670 3640 TERMS-1 2754 004671 4576 TSTLPR 2755 004672 4557 ERR240, ERROR /NO L-PAREN 2756 004673 4551 POPA 2757 004674 7001 IAC /FUNCTION CODE 2758 004675 5552 POPJ 2759 2760 004676 4543 FUNCT4, GETC 2761 004677 4570 TSTALP 2762 004700 4557 ERR250, ERROR /NOT LETTER 2763 004701 7350 L3777 2764 004702 1026 TAD CHAR 2765 004703 4546 PUSHA /SAVE CHAR OF USER FUNCTION 2766 004704 5266 JMP FUNCT5 2767 /*SORTC* ROUTINE 2768 004705 0000 XSORTC, 0 2769 004706 7450 SNA 2770 004707 1026 TAD CHAR /USE CHAR IF AC IS 0 2771 004710 7041 CIA 2772 004711 3112 DCA T3 2773 004712 1705 TAD I XSORTC 2774 004713 3012 DCA XREG3 /SET TO LIST 2775 004714 6211 CDF SWAP 2776 004715 1412 TAD I XREG3 2777 004716 6201 CDF 2778 004717 7510 SPA 2779 004720 5331 JMP XSORT3 /END OF LIST 2780 004721 1112 TAD T3 2781 004722 7640 SZA CLA 2782 004723 5314 JMP .-7 /NO GO - LOOP 2783 004724 1705 TAD I XSORTC 2784 004725 7040 CMA 2785 004726 1012 TAD XREG3 2786 004727 3106 DCA SORTCN /SET CONSTANT 2787 004730 7410 SKP 2788 004731 2305 XSORT3, ISZ XSORTC 2789 004732 2305 ISZ XSORTC 2790 004733 7300 CLL CLA 2791 004734 5705 JMP I XSORTC 2792 /*SORTJ* ROUTINE 2793 004735 0000 XSORTJ, 0 2794 004736 7450 SNA 2795 004737 1026 TAD CHAR /USE CHAR IF AC IS 0 2796 004740 7041 CIA 2797 004741 3112 DCA T3 2798 004742 1735 TAD I XSORTJ 2799 004743 3012 DCA XREG3 /SET TO LIST 2800 004744 2335 ISZ XSORTJ 2801 004745 1412 TAD I XREG3 2802 004746 7510 SPA 2803 004747 5362 JMP XSORT1 /END OF LIST 2804 004750 1112 TAD T3 2805 004751 7640 SZA CLA 2806 004752 5345 JMP .-5 /NO GO - LOOP 2807 004753 1012 TAD XREG3 2808 004754 1735 TAD I XSORTJ 2809 004755 3335 DCA XSORTJ 2810 004756 6211 CDF SWAP 2811 004757 1735 TAD I XSORTJ /GET ADDRESS 2812 004760 6201 CDF 2813 004761 3335 DCA XSORTJ 2814 004762 7300 XSORT1, CLL CLA 2815 004763 2335 ISZ XSORTJ 2816 004764 5735 JMP I XSORTJ 2817 2818 004765 0000 XPRT1, 0 /PRINTC FOR FIELD 1 2819 004766 4467 PRINTC 2820 004767 6213 CIF CDF SWAP 2821 004770 5765 JMP I XPRT1 2822 2823 2824 004773 3620 PAGE 004774 0037 004775 4462 004776 4435 004777 5666 2825 005000 0000 FLOUT, 0 2826 005001 6213 CIF CDF SWAP 2827 005002 4777 JMS I (OFLOUT 2828 005003 5600 JMP I FLOUT 2829 005004 2776 ISZ I (PRNT5 2830 005005 4775 JMS I (ITPRNT 2831 005006 5600 JMP I FLOUT 2832 005007 4407 SGN, FINT 2833 005010 6100 FSGE 2834 005011 0216 FGET MNSONE 2835 005012 6150 FSLE 2836 005013 0774 FGET I (FLTONE 2837 005014 0000 FEXT 2838 005015 5552 POPJ 2839 2840 005016 6014 MNSONE, 6014 2841 005017 0000 0 2842 005020 0000 0 2843 2844 005021 7773 FUPARR, FPUT I (TEMP 2845 005022 0425 FGET I PT1 2846 005023 1772 FADD I (FCN 2847 005024 6425 FCMP I PT1 2848 005025 6050 FSEQ 2849 005026 5264 FJMP EXPLNG 2850 005027 0425 FGET I PT1 2851 005030 6100 FSGE 2852 005031 3216 FMUL MNSONE 2853 005032 2771 FSUB I (FUPAR1 2854 005033 6150 FSLE 2855 005034 5264 FJMP EXPLNG 2856 005035 0425 FGET I PT1 2857 005036 6110 FSLT 2858 005037 5244 FJMP .+5 2859 005040 0774 FGET I (FLTONE 2860 005041 4773 FDIV I (TEMP 2861 005042 7773 FPUT I (TEMP 2862 005043 0425 FGET I PT1 2863 005044 0000 FEXT 2864 005045 4522 JMS I INTEGE 2865 005046 7510 SPA 2866 005047 7041 CIA 2867 005050 7040 CMA 2868 005051 3200 DCA FUPAR2 2869 005052 4407 FINT 2870 005053 0774 FGET I (FLTONE 2871 005054 0000 FEXT 2872 005055 5261 JMP .+4 2873 2874 005056 4407 FINT 2875 005057 3773 FMUL I (TEMP 2876 005060 0000 FEXT 2877 005061 2200 ISZ FUPAR2 2878 005062 5256 JMP .-4 2879 005063 5275 JMP FUPAR3 2880 2881 FUPAR2=FLOUT 2882 2883 005064 0773 EXPLNG, FGET I (TEMP 2884 005065 0000 FEXT 2885 005066 4547 PUSHJ 2886 005067 5464 LOG 2887 005070 4407 FINT 2888 005071 3425 FMUL I PT1 2889 005072 0000 FEXT 2890 005073 4547 PUSHJ 2891 005074 5463 FEXP 2892 005075 4407 FUPAR3, FINT 2893 005076 5770 FJMP I (FLOP+1 2894 005077 7301 TAPE, L0001 2895 005100 3025 KKEY, DCA PT1 /SAVE CONSTANT FOR OUTPUT 2896 005101 4566 TSTCCR 2897 005102 4557 ERR003, ERROR /JUNK 2898 005103 4767 JMS I (RUN9 /DISMISS US NOW 2899 005104 1051 TAD TELSW 2900 005105 7640 SZA CLA 2901 005106 5303 JMP .-3 /STILL BUSY - WAIT 2902 005107 1025 TAD PT1 2903 005110 3034 DCA OUTPUT /SET OUTPUT 2904 005111 5766 JMP I (READY 2905 005112 4543 FUNC16, GETC 2906 005113 1026 TAD CHAR 2907 005114 1330 TAD FMEQL 2908 005115 7640 SZA CLA 2909 005116 4557 ERR210, ERROR 2910 005117 4547 PUSHJ 2911 005120 2611 EVAL-1 2912 005121 4575 TSTEND 2913 005122 5316 JMP .-4 2914 005123 4551 POPA 2915 005124 3062 DCA ERLINE 2916 005125 1062 TAD ERLINE 2917 005126 3030 DCA LINENO 2918 005127 4574 FINDLN 2919 005130 7703 FMEQL, -"=+200 2920 005131 4551 POPA 2921 005132 3055 DCA LASTV 2922 005133 4551 POPA 2923 005134 3106 DCA SORTCN 2924 005135 4553 POPF 2925 005136 0017 TEXTP 2926 005137 3031 DCA MODE /!!! 2927 005140 5765 JMP I (ENDFUN 2928 005141 0000 XFLGET, 0 2929 005142 7440 SZA 2930 005143 5346 JMP .+3 2931 005144 7340 L7777 2932 005145 1025 TAD PT1 2933 005146 3013 XFLGT2, DCA FLTXR 2934 005147 7340 L7777 2935 005150 1741 TAD I XFLGET 2936 005151 3014 DCA FLTXR2 2937 005152 7346 L7775 2938 005153 3112 DCA T3 2939 005154 4560 UDF 2940 005155 1413 TAD I FLTXR 2941 005156 6201 CDF 2942 005157 3414 DCA I FLTXR2 2943 005160 2112 ISZ T3 2944 005161 5354 JMP .-5 2945 005162 2341 ISZ XFLGET 2946 005163 5741 JMP I XFLGET 2947 2948 2949 005165 7741 PAGE 005166 0467 005167 2553 005170 2710 005171 0566 005172 2570 005173 6165 005174 3570 005175 0230 005176 0276 005177 1200 2950 005200 3316 INTRPT, DCA SAVAC /SAVE THE AC 2951 005201 7010 RAR 2952 005202 3317 DCA SAVLK /AND THE LINK 2953 005203 1112 TAD T3 2954 005204 3320 DCA T3SV /SAVE T3 2955 005205 1012 TAD XREG3 2956 005206 3321 DCA XREG3S /SAVE XREG3 2957 005207 1106 TAD SORTCN 2958 005210 3322 DCA SRTCNS /SAVE SORTCN 2959 005211 1560 TAD I AUDF 2960 005212 3323 DCA UDFSV /SAVE UDF ADDRESS 2961 005213 1545 TAD I ASORTC 2962 005214 3327 DCA SORTCS /SAVE SORTC ADDRESS 2963 005215 1777 TAD I (XFREE 2964 005216 3324 DCA FREESV /SAVE XFREE ADDRESS 2965 005217 3003 DCA USER /START AT USER 0 2966 005220 3005 DCA TEMP1 /NO TTY'S TO TURN ON AT FIRST 2967 005221 1376 TAD (TAD INTRPL 2968 005222 3223 DCA INTRP1 /SET LIST POINTER 2969 005223 7402 INTRP1, HLT /GET TLS IOT 2970 005224 1142 TAD M4 2971 005225 3254 DCA INTRP4 /TCF 2972 005226 7340 L7777 2973 005227 1254 TAD INTRP4 2974 005230 3252 DCA INTRP3 /TSF 2975 005231 1140 TAD M10 2976 005232 1252 TAD INTRP3 2977 005233 3241 DCA INTRP2 /KSF 2978 005234 6213 CIF CDF SWAP /GO CHECK DECTAPE FLAG 2979 005235 4000 JMS DTINTR 2980 005236 1005 TAD TEMP1 2981 005237 6117 MTON /TURN ON PROPER USER 2982 005240 7200 CLA 2983 005241 7402 INTRP2, HLT /KEY? 2984 005242 7410 SKP /NO 2985 005243 4775 JMS I (KEY /READ TTY 2986 005244 1005 TAD TEMP1 2987 005245 6117 MTON /USER ON AGAIN 2988 005246 7110 CLL RAR /SHIFT FOR NEXT USER 2989 005247 7450 SNA /FIRST TIME? 2990 005250 7330 L4000 /YES - GET TTY #1 BIT 2991 005251 3005 DCA TEMP1 2992 005252 7402 INTRP3, HLT /TTY? 2993 005253 5256 JMP .+3 /NO 2994 005254 7402 INTRP4, HLT /CLEAR ITS FLAG 2995 005255 4774 JMS I (TTY /DO TTY OUTPUT 2996 005256 2003 ISZ USER /NEXT USER PLEASE 2997 005257 2223 ISZ INTRP1 /BUMP LIST POINTER 2998 005260 1003 TAD USER 2999 005261 1325 TAD MUSER /ARE WE DONE? 3000 005262 7640 SZA CLA 3001 005263 5223 JMP INTRP1 /NO 3002 005264 1326 INTRP5, TAD AUSER 3003 005265 6117 MTON /TURN ALL USERS ON AGAIN 3004 005266 6115 MINT /WITH INTERRUPTS 3005 005267 7200 CLA 3006 005270 1517 TAD I LOOK /GET RUNNING USER 3007 005271 4707 JMS I DECKNI /AND PUT HIM ONDECK 3008 005272 1320 TAD T3SV 3009 005273 3112 DCA T3 /RESTORE ALL THOS STORED THINGS 3010 005274 1321 TAD XREG3S 3011 005275 3012 DCA XREG3 3012 005276 1322 TAD SRTCNS 3013 005277 3106 DCA SORTCN 3014 005300 1323 TAD UDFSV 3015 005301 3560 DCA I AUDF 3016 005302 1327 TAD SORTCS 3017 005303 3545 DCA I ASORTC 3018 005304 1324 TAD FREESV 3019 005305 3777 DCA I (XFREE 3020 005306 2773 ISZ I (INTCNT /COUNT INTERRUPTS 3021 005307 0304 DECKNI, DECKON 3022 005310 1317 TAD SAVLK /GET LINK BACK 3023 005311 7104 CLL RAL 3024 005312 1316 TAD SAVAC /AND THE AC ALSO 3025 005313 6244 RMF 3026 005314 6001 ION 3027 005315 5400 JMP I 0 /EXIT FROM INTERRUPT 3028 3029 005316 0000 SAVAC, 0 3030 005317 0000 SAVLK, 0 3031 005320 0000 T3SV, 0 3032 005321 0000 XREG3S, 0 3033 005322 0000 SRTCNS, 0 3034 005323 0000 UDFSV, 0 3035 005324 0000 FREESV, 0 3036 3037 005325 7777 MUSER, -1 /-1 FOR 1 USER, -2 FOR 2, ETC. 3038 3039 005326 0000 AUSER, 0 /4000 FOR 2 USERS; 6000 FOR 3 USERS; ETC. 3040 3041 005327 0000 SORTCS, 0 3042 3043 005330 6046 INTRPL, TLS /USER 0 TLS IOT 3044 005331 6126 MTLS /USER 1 TLS IOT 3045 005332 6126 MTLS /USER 2 3046 005333 6126 MTLS /USER 3 3047 005334 6126 MTLS /USER 4 3048 3049 005335 6212 CIF SWAP 3050 005336 5727 JMP I INTRPL-1 /AND EXIT 3051 /CHECK IF STRING RETURNED, SET UP TO GET SECOND ARG 3052 /FOR MID AND CAT FUNCTIONS 3053 3054 005337 0000 GETSTR, 0 3055 005340 1031 TAD MODE /MAKE SURE FIRST ARG IS A STRING 3056 005341 7640 SZA CLA 3057 005342 4567 TSTCOM /CHECK FOR COMMA 3058 005343 4557 ERR560, ERROR /FIRST ARG NOT STRING, MISSING ARG 3059 005344 4550 PUSHF /SAVE THE STRING 3060 005345 6170 FLARG 3061 005346 3031 DCA MODE /CLEAR MODE TO CHECK NEXT ARG TYPE 3062 005347 5737 JMP I GETSTR /RETURN 3063 3064 /FIX FOR KL8/E HARDWARE BUG: 3065 /(BARRY OR STEVE--MOVE THIS TO FIELD 1 SOMETIME. THIS SPACE COULD 3066 /BE BETTER USED) 3067 005350 1376 KL8FIX, TAD (TAD INTRPL 3068 005351 3356 DCA KL8F1 3069 005352 1325 TAD MUSER 3070 005353 3110 DCA T2 3071 005354 7001 IAC 3072 005355 1132 TAD M12 3073 005356 7402 KL8F1, HLT 3074 005357 3361 DCA .+2 3075 005360 7001 IAC 3076 005361 7402 HLT 3077 005362 2356 ISZ KL8F1 3078 005363 2110 ISZ T2 3079 005364 5355 JMP KL8F1-1 3080 005365 7701 CLA MQA 3081 005366 7001 IAC 3082 005367 7421 MQL 3083 005370 1120 TAD LOOKST 3084 005371 3117 DCA LOOK 3085 005372 5177 JMP NULL 3086 3087 005373 7400 PAGE 005374 0730 005375 0600 005376 1330 005377 6021 3088 005400 1026 PRNTEX, TAD CHAR 3089 005401 4546 PUSHA 3090 005402 4550 PUSHF 3091 005403 0017 TEXTP 3092 005404 4550 PUSHF 3093 005405 6170 FLARG 3094 005406 1015 TAD PDLXR 3095 005407 3017 DCA AXOUT /SET UP UNPACKING FROM STACK 3096 005410 3021 DCA XCT 3097 005411 1136 TAD M6 3098 005412 3031 DCA MODE 3099 005413 2032 ISZ SPACSW 3100 005414 4543 PRNTX1, GETC 3101 005415 4566 TSTCCR 3102 005416 7410 SKP 3103 005417 5223 JMP .+4 3104 005420 4467 PRINTC 3105 005421 2031 ISZ MODE 3106 005422 5214 JMP PRNTX1 3107 005423 4553 POPF 3108 005424 6170 FLARG 3109 005425 4553 POPF 3110 005426 0017 TEXTP 3111 005427 4551 POPA 3112 005430 3026 DCA CHAR 3113 005431 3031 DCA MODE /IN CASE OF A STRING LESS THAN 6 3114 005432 3032 DCA SPACSW /IGNORE SPACES AGAIN 3115 005433 5320 JMP PRINT 3116 005434 0000 FIX, 0 3117 005435 6213 CIF CDF SWAP /CALL THE FIX ROUTINE 3118 005436 4777 JMS I (FIX1 3119 005437 5634 JMP I FIX 3120 3121 005440 1376 OLD, TAD (SAVDN1 /SET UP FAKE RETURN FOR *OLD* COMMAND 3122 005441 3102 DCA CHAINP /TO LOCK THE TAPE ON AN OLD 3123 005442 5775 JMP I (OLD1 /GO TO REAL ROUTINE 3124 3125 3126 3127 005443 0425 OPTABL, FGET I PT1 3128 005444 1425 FADD I PT1 3129 005445 2425 FSUB I PT1 3130 005446 3425 FMUL I PT1 3131 005447 4425 FDIV I PT1 3132 005450 5000 FJMP 0 3133 /FUNCTIONS IN FIELD 1 CALLED WITH *PUSHJ* 3134 3135 005451 4407 RND, FINT 3136 005452 0103 FGET FRNDX 3137 005453 0000 FEXT 3138 005454 1374 TAD (ORND-OINT 3139 005455 1373 INT, TAD (OINT-OFFIX 3140 005456 1372 FFIX, TAD (OFFIX-OSQR 3141 005457 1371 SQR, TAD (OSQR-OTAN 3142 005460 1370 TAN, TAD (OTAN-OCOS 3143 005461 1367 COS, TAD (OCOS-OFSIN 3144 005462 1366 FSIN, TAD (OFSIN-OFEXP 3145 005463 1365 FEXP, TAD (OFEXP-OLOG 3146 005464 1364 LOG, TAD (OLOG-OATN 3147 005465 1363 ATN, TAD (OATN 3148 005466 3112 DCA T3 3149 005467 6213 CIF CDF SWAP 3150 005470 5512 JMP I T3 3151 3152 005471 0073 PRNTL4, 73 /; 3153 005472 0054 PRNTL1, 54 /, 3154 005473 0047 47 /' 3155 005474 0042 PRNTL7, 42 /" 3156 005475 0015 15 /CR 3157 005476 0134 134 /\ 3158 3159 3160 005477 4546 RUN9X, PUSHA /SAVE FIELD 1 RESTART ADDRESS 3161 005500 4762 JMS I (RUN9 /DISMISS US 3162 005501 4551 POPA /RESTORE ADDRESS 3163 005502 3107 DCA T1 3164 005503 6213 CIF CDF 10 /GO TO IT 3165 005504 5507 JMP I T1 3166 3167 3168 005505 1026 PRINT0, TAD CHAR 3169 005506 1361 TAD (200-"# 3170 005507 7640 SZA CLA 3171 005510 5320 JMP PRINT /OK AS IS 3172 005511 1100 TAD OBLK 3173 005512 7640 SZA CLA 3174 005513 4543 GETC 3175 005514 4567 TSTCOM 3176 005515 5760 JMP I (ERR600 3177 005516 4543 GETC 3178 005517 4757 JMS I (SETUPO 3179 005520 4547 PRINT, PUSHJ 3180 005521 3306 PRIN10 3181 005522 7640 SZA CLA 3182 005523 5552 POPJ /ALL DONE 3183 005524 4471 FREE13 3184 005525 4547 PUSHJ 3185 005526 2612 EVAL /GET EXPR. 3186 005527 1031 TAD MODE 3187 005530 7640 SZA CLA 3188 005531 5200 JMP PRNTEX 3189 005532 1061 TAD PRNTC1 3190 005533 1356 TAD (16 3191 005534 7710 SPA CLA 3192 005535 5340 JMP .+3 /IT WILL FIT 3193 005536 1123 TAD CCR /MAKE IT FIT 3194 005537 4467 PRINTC 3195 005540 4515 JMS I FLOUTP 3196 005541 7340 PRNTX2, L7777 3197 005542 5320 JMP PRINT 3198 005543 4470 FREE2 3199 005544 1123 TAD CCR 3200 005545 4467 PRINTC 3201 005546 7001 PRINT6, IAC 3202 005547 5552 POPJ 3203 3204 005550 4551 OPUS, POPA 3205 005551 3112 DCA T3 3206 005552 6213 CIF CDF 10 3207 005553 5512 JMP I T3 3208 005556 0016 PAGE 005557 7350 005560 1145 005561 7735 005562 2553 005563 2201 005564 7700 005565 7677 005566 7662 005567 7775 005570 7761 005571 7740 005572 0560 005573 7757 005574 0047 005575 7312 005576 7132 005577 2162 3209 /*OR* ROUTINE 3210 005600 0000 XOR, 0 3211 005601 3112 DCA T3 3212 005602 1600 TAD I XOR 3213 005603 7040 CMA 3214 005604 0112 AND T3 3215 005605 1600 TAD I XOR 3216 005606 3517 DCA I LOOK 3217 005607 5177 JMP NULL 3218 3219 005610 0000 INPACK, 0 3220 005611 1060 TAD COMBUF 3221 005612 3016 DCA AXIN 3222 005613 3024 DCA XCTIN 3223 005614 1060 TAD COMBUF 3224 005615 3052 DCA PACKST 3225 005616 1377 TAD (ALINE0 3226 005617 3053 DCA PACKND 3227 005620 5610 JMP I INPACK 3228 3229 005621 0000 OTPACK, 0 3230 005622 1060 TAD COMBUF 3231 005623 3017 DCA AXOUT 3232 005624 3021 DCA XCT 3233 005625 1123 TAD CCR /DON'T MOVE PDLXR FROM 15 3234 005626 3053 DCA PACKND 3235 005627 4543 GETC 3236 005630 5621 JMP I OTPACK 3237 3238 005631 4210 PAKLIN, JMS INPACK 3239 005632 4466 READC 3240 005633 5236 JMP .+3 3241 005634 7301 L0001 3242 005635 5552 POPJ 3243 005636 4564 PACKC 3244 005637 4566 TSTCCR 3245 005640 5232 JMP .-6 3246 005641 4564 PACKC 3247 005642 4221 JMS OTPACK 3248 005643 5552 POPJ 3249 3250 005644 0000 FPNT, 0 /CALL THE REAL INTERPRETER 3251 005645 7300 CLA CLL 3252 005646 1244 TAD FPNT 3253 005647 6213 CIF CDF SWAP 3254 005650 3776 DCA I (OFPNT 3255 005651 5775 JMP I (OFPNT+3 /SET FIELD 0 3256 3257 005652 0000 OTEST2, 0 /FIELD 1 *TESTN* 3258 005653 4562 TESTN 3259 005654 5260 JMP .+4 /RETURN +1 3260 005655 7410 SKP /+2 3261 005656 2252 ISZ OTEST2 /+3 3262 005657 2252 ISZ OTEST2 3263 005660 6213 CIF CDF SWAP /RETURN TO FIELD 1 3264 005661 5652 JMP I OTEST2 3265 3266 005662 0000 XGETLN, 0 /*GETLN* 3267 005663 6213 CIF CDF 10 /CALL THE REAL ROUTINE 3268 005664 4774 JMS I (OGETLN 3269 005665 5662 JMP I XGETLN 3270 3271 /PAREN TEST ROUTINE 3272 005666 0000 PARTST, 0 3273 005667 4551 POPA 3274 005670 3114 DCA LASTOP /SAVED BY *ECALL* 3275 005671 7344 L7776 3276 005672 1106 TAD SORTCN 3277 005673 7041 CIA 3278 005674 4551 POPA /CHECK MATCH 3279 005675 7640 SZA CLA 3280 005676 4557 ERR260, ERROR /NO MATCH 3281 005677 4543 GETC 3282 005700 5666 JMP I PARTST 3283 3284 3285 3286 /*RETURN* AND *POPJ* 3287 005701 2015 RETURN, ISZ PDLXR /DUMP ONE RETURN ADDRESS 3288 005702 4575 TSTEND 3289 005703 4557 ERR320, ERROR 3290 005704 3012 XPOPJ, DCA XREG3 /SAVE AC 3291 005705 4551 POPA 3292 005706 3112 DCA T3 /RETURN ADDRESS 3293 005707 1012 TAD XREG3 /GET AC 3294 005710 5512 JMP I T3 3295 3296 005711 3111 FUNCT3, DCA EFOP 3297 005712 4727 JMS I IECALL 3298 005713 4551 POPA 3299 005714 7510 SPA 3300 005715 5730 JMP I FUNC6I 3301 005716 1331 TAD FUNL3I 3302 005717 3111 DCA EFOP 3303 005720 6211 CDF SWAP 3304 005721 1511 TAD I EFOP 3305 005722 6201 CDF 3306 005723 3325 DCA .+2 3307 005724 4547 PUSHJ 3308 005725 0000 0 3309 005726 5773 JMP I (ENDFUN 3310 3311 005727 2600 IECALL, ECALL 3312 005730 3000 FUNC6I, FUNCT6 3313 005731 3654 FUNL3I, FUNL3-2 3314 005732 0000 FLIN, 0 3315 005733 6213 CIF CDF SWAP 3316 005734 4772 JMS I (OFLIN 3317 005735 4407 FINT 3318 005736 7425 FPUT I PT1 3319 005737 0000 FEXT 3320 005740 5732 JMP I FLIN 3321 005741 4575 GETNAM, TSTEND /DID THEY GIVE A NAME? 3322 005742 5552 POPJ /YES, GO UNPACK IT 3323 005743 4471 FREE13 /PRINT "NAME--" 3324 005744 1371 TAD (21 /POINT TO TEXT 3325 005745 4770 JMS I (READY1 3326 005746 4547 PUSHJ /GO PACK THE REPLY 3327 005747 5631 PAKLIN 3328 005750 5552 POPJ 3329 3330 005751 0000 ALPTST, 0 3331 005752 1026 TAD CHAR 3332 005753 1367 TAD (-"A+200 3333 005754 7710 SPA CLA 3334 005755 5751 JMP I ALPTST /LESS THAN *A* 3335 005756 1026 TAD CHAR 3336 005757 1366 TAD (-"Z+200 3337 005760 7750 SPA SNA CLA 3338 005761 2351 ISZ ALPTST 3339 005762 5751 JMP I ALPTST 3340 3341 3342 005763 2074 F72, 2074;4000;0 005764 4000 005765 0000 3343 3344 005766 7646 PAGE 005767 7677 005770 1756 005771 0021 005772 1000 005773 7741 005774 1143 005775 0203 005776 0200 005777 0057 3345 3346 /*FREE2* AND *FREE13* ROUTINES 3347 006000 0000 XFREE2, 0 3348 006001 4221 JMS XFREE /ROOM 3349 006002 5205 JMP .+3 /WE MUST WAIT 3350 006003 0000 0 3351 006004 5600 JMP I XFREE2 3352 3353 006005 1200 TAD XFREE2 3354 006006 5215 JMP FREEWT /GET ROOM 3355 3356 006007 0000 XFREE3, 0 3357 006010 4221 JMS XFREE /ROOM 3358 006011 0014 FREEC, 14 3359 006012 7410 SKP /MUST WAIT 3360 006013 5607 JMP I XFREE3 3361 3362 006014 1207 TAD XFREE3 3363 006015 3022 FREEWT, DCA PC /SET RESTART 3364 006016 1517 TAD I LOOK 3365 006017 4777 JMS I (XOR /SET O WAIT AND DISMISS 3366 006020 2000 2000 3367 3368 3369 /*FREE* ROUTINE 3370 006021 0000 XFREE, 0 3371 006022 4560 UDF 3372 006023 1447 TAD I OPTRI /ANY ROOM 3373 006024 6201 CDF 3374 006025 7640 SZA CLA 3375 006026 5621 JMP I XFREE /NO 3376 006027 1047 TAD OPTRI 3377 006030 7041 CIA 3378 006031 1050 TAD OPTRO 3379 006032 7550 SPA SNA 3380 006033 1133 TAD C40 3381 006034 7041 CIA /-COUNT 3382 006035 7001 IAC 3383 006036 7450 SNA 3384 006037 5621 JMP I XFREE /ONLY 1 FREE 3385 006040 7001 IAC 3386 006041 7450 SNA 3387 006042 5621 JMP I XFREE /ONLY 2 FREE 3388 006043 2221 ISZ XFREE 3389 006044 1211 TAD FREEC 3390 006045 7750 SPA SNA CLA 3391 006046 2221 ISZ XFREE /14 OR MORE FREE 3392 006047 5621 JMP I XFREE 3393 3394 /*LINPUT* COMMAND, INPUT AN ENTIRE LINE OF TEXT 3395 /INTO A STRING ARRAY 3396 3397 006050 4776 LINPUT, JMS I (CHKFIL /CHECK IF FILE INPUT 3398 006051 3024 DCA SUBS /CLEAR SUBSCRIPT 3399 006052 4547 PUSHJ /GET VARIABLE 3400 006053 4400 GETVAR 3401 006054 7650 SNA CLA /FUNCTION? 3402 006055 4575 TSTEND 3403 006056 4557 ERR540, ERROR /ILLEGAL OR MORE THAN ONE VARIABLE 3404 006057 1031 TAD MODE 3405 006060 7650 SNA CLA 3406 006061 5256 JMP .-3 /NOT STRING VARIABLE 3407 006062 4550 PUSHF /SAVE PT1;CHAR;LINEPC 3408 006063 0025 PT1 3409 006064 4550 PUSHF /SAVE TEXT POINTERS 3410 006065 0017 TEXTP 3411 006066 1023 TAD ADD /CHECK IF SUBSCRIPTED 3412 006067 7104 CLL RAL 3413 006070 7130 STL RAR 3414 006071 3023 DCA ADD 3415 006072 1024 TAD SUBS 3416 006073 0141 AND C7700 /ZERO LAST DIMENSION 3417 006074 3024 DCA SUBS 3418 006075 4550 PUSHF /SAVE NAME AND SUBSCRIPT 3419 006076 0023 ADD 3420 006077 2032 ISZ SPACSW /KEEP LEADING SPACES 3421 006100 4547 PUSHJ /GET LINE OF INPUT 3422 006101 1152 GETINP 3423 006102 3365 DCA LINCT /ZERO CHARACTER COUNTER 3424 3425 006103 4553 POPF /RESTORE NAME AND SUBSCRIPT 3426 006104 0023 ADD 3427 006105 5310 JMP .+3 3428 006106 2032 LINXT, ISZ SPACSW /KEEP SPACES 3429 006107 4543 GETC /SKIP OVER COMMA 3430 006110 2024 ISZ SUBS /INCREMENT SUBSCRIPT 3431 006111 4547 PUSHJ /GET VARIABLE 3432 006112 4435 LOOKUP 3433 006113 4550 PUSHF /SAVE NAME AND SUBSCRIPT 3434 006114 0023 ADD 3435 006115 4547 PUSHJ /GET NEXT 6 CHARS OF STRING 3436 006116 7626 QLINP 3437 3438 006117 1775 LINXT2, TAD I (QCT1 /GET CHARACTER COUNT 3439 006120 1365 TAD LINCT /BUMP CHARACTER COUNT 3440 006121 3365 DCA LINCT 3441 006122 4553 POPF /RESTORE NAME AND SUBSCRIPT 3442 006123 0023 ADD 3443 006124 4555 FLPUT /SET VARIABLE 3444 006125 6170 FLARG 3445 006126 4575 TSTEND /END OF STRING? 3446 006127 5306 JMP LINXT /NO, GET NEXT 6 CHARS 3447 006130 1024 TAD SUBS /ZERO LAST DIMENSION 3448 006131 0141 AND C7700 3449 006132 3024 DCA SUBS 3450 006133 4547 PUSHJ 3451 006134 4435 LOOKUP /GET VARIABLE 3452 006135 1365 TAD LINCT 3453 006136 4774 JMS I (FLOAT /FLOAT AC INTO FLARG 3454 006137 4555 FLPUT /PUT IT AWAY 3455 006140 6170 FLARG 3456 006141 4553 POPF /RESTORE TEXT 3457 006142 0017 TEXTP 3458 006143 4553 POPF /RESTORE OTHER GARBAGE 3459 006144 0025 PT1 3460 006145 5552 POPJ /RETURN 3461 3462 006146 0000 MGET, 0 /FAKE OUT GETC 3463 006147 2110 ISZ T2 /CHECK FLAG 3464 006150 5353 JMP MGET1 3465 006151 1111 TAD CNTR 3466 006152 5363 JMP MGET2 3467 006153 7340 MGET1, L7777 /SET FLAG 3468 006154 3110 DCA T2 3469 006155 1413 TAD I FLTXR /GET NEW PAIR 3470 006156 3111 DCA CNTR 3471 006157 1111 TAD CNTR 3472 006160 7012 RTR 3473 006161 7012 RTR 3474 006162 7012 RTR 3475 006163 0134 MGET2, AND C77 /KILL GARGAGE 3476 006164 5746 JMP I MGET /RETURN 3477 3478 LINCT, 3479 006165 0000 TEMP, 0 3480 006166 0000 0 3481 006167 0000 0 3482 3483 006170 0000 FLARG, 0 3484 006171 0000 0 3485 006172 0000 0 3486 3487 006174 6477 PAGE 006175 7604 006176 1134 006177 5600 3488 /*MID* FUNCTION FORMAT: MID(A$,X,Y) 3489 /RETURNS Y CHARACTERS STARTING WITH THE XTH CHAR IN A$ 3490 3491 3492 3493 006200 4777 MID, JMS I (GETSTR /GET THE FIRST TWO ARGS 3494 006201 4547 PUSHJ 3495 006202 2611 EVAL-1 3496 006203 4267 JMS MIDCHK /CHECK IF ARG IN BOUNDS 3497 006204 4546 PUSHA /SAVE FOR LATER 3498 006205 4567 TSTCOM /ANOTHER COMMA? 3499 006206 4557 ERR550, ERROR /MISSING OR BAD ARG 3500 006207 4547 PUSHJ /GET THIRD ARG 3501 006210 2611 EVAL-1 3502 006211 4267 JMS MIDCHK /CHECK ARG 3503 006212 3302 DCA MIDC2 3504 006213 4551 POPA /GET SECOND ARG 3505 006214 3301 DCA MIDC1 /SAVE 3506 006215 4553 POPF /GET STRING 3507 006216 6170 FLARG 3508 006217 1376 TAD (FLARG-1 3509 006220 3014 DCA FLTXR2 /PACK POINTER 3510 006221 3107 DCA T1 /PACK SWITCH 3511 006222 1301 TAD MIDC1 /# OF CHARS TO IGNORE 3512 006223 7041 CIA 3513 006224 7110 CLL RAR 3514 006225 1014 TAD FLTXR2 /CALCULATE FIRST CHAR 3515 006226 3013 DCA FLTXR 3516 006227 7430 SZL /CHECK IF PARTIAL 3517 006230 7240 CLA CMA 3518 006231 3110 DCA T2 /UNPACK SWITCH 3519 006232 7430 SZL 3520 006233 1413 TAD I FLTXR /GET CHAR IF PARTIAL 3521 006234 3111 DCA CNTR 3522 3523 3524 006235 7340 MID1, L7777 /CALCULATE NUMBER OF CHARS TO TRANSFER 3525 006236 1302 TAD MIDC2 3526 006237 3302 DCA MIDC2 3527 006240 1302 TAD MIDC2 3528 006241 1301 TAD MIDC1 3529 006242 7041 CIA 3530 006243 1136 TAD M6 3531 006244 7740 SMA SZA CLA 3532 006245 5206 JMP ERR550 /SECOND ARG LESS THAN FIRST 3533 006246 1136 TAD M6 /CHARACTER COUNTER 3534 006247 3031 DCA MODE 3535 006250 4775 MID2, JMS I (MGET /GET CHAR 3536 006251 4303 JMS MPUT /PUT CHAR 3537 006252 2031 ISZ MODE 3538 006253 7410 SKP 3539 006254 5263 JMP MID3 /DONE WITH ALL 6 CHARS 3540 006255 2302 ISZ MIDC2 3541 006256 5250 JMP MID2 /GET ANOTHER CHARACTER 3542 006257 1134 TAD C77 3543 006260 4303 JMS MPUT /FILL STRING WITH CR'S 3544 006261 2031 ISZ MODE 3545 006262 5257 JMP .-3 3546 006263 2031 MID3, ISZ MODE /SET STRING MODE FOR STRING *IF*'S 3547 006264 2015 ISZ PDLXR /KILL POPJ RETURN 3548 006265 5666 JMP I .+1 /SPECIAL RETURN FOR STRING FUNCTIONS 3549 006266 7745 ENDF1 3550 3551 3552 006267 0000 MIDCHK, 0 /CHECK ARGUMENT LIMITS 3553 006270 4522 JMS I INTEGE /MAKE AN INTEGER 3554 006271 7570 SPA SNA SZL /CHECK IF ZERO, NEGATIVE OR TOO BIG 3555 006272 5206 JMP ERR550 3556 006273 7041 CIA 3557 006274 1124 TAD C7 /CHECK IF TOO BIG 3558 006275 7550 SPA SNA 3559 006276 5206 JMP ERR550 /TOO BIG 3560 006277 1136 TAD M6 /FIX IT UP 3561 006300 5667 JMP I MIDCHK 3562 3563 006301 0000 MIDC1, 0 /FIRST CHAR TO COPY 3564 006302 0000 MIDC2, 0 /LAST CHAR TO COPY 3565 006303 0000 MPUT, 0 /FAKE OUT PACKC 3566 006304 2107 ISZ T1 /CHECK FLAG 3567 006305 5311 JMP MPUT1 3568 006306 1112 TAD T3 3569 006307 3414 DCA I FLTXR2 /STASH CHAR 3570 006310 5703 JMP I MPUT 3571 006311 4561 MPUT1, RTL6 3572 006312 0141 AND C7700 3573 006313 3112 DCA T3 /SAVE PARTIAL 3574 006314 7340 L7777 /SET FLAG 3575 006315 3107 DCA T1 3576 006316 5703 JMP I MPUT 3577 /*CAT* FUNCTION FORMAT: CAT(A$,B$) 3578 /RETURNS A STRING OF A$ CONCATENATED WITH B$ 3579 3580 006317 4777 CAT, JMS I (GETSTR /GET TWO ARGUMENTS 3581 006320 4547 PUSHJ 3582 006321 2611 EVAL-1 3583 006322 1031 TAD MODE /CHECK IF SECOND ARG IS A STRING 3584 006323 7450 SNA 3585 006324 5206 JMP ERR550 3586 006325 3032 DCA SPACSW /KEEP SPACES 3587 006326 1136 TAD M6 /COUNT FOR 6 CHARS 3588 006327 3302 DCA MIDC2 3589 006330 3267 DCA MIDCHK /CLEAR FLAG 3590 006331 4553 POPF /FIRST STRING INTO FLARG 3591 006332 6170 FLARG 3592 006333 4407 FINT /PUT STRING INTO IF1 3593 006334 7774 FPUT I (IF1 3594 006335 0000 FEXT 3595 006336 1376 TAD (FLARG-1 /POINT TO STRING 3596 006337 3013 DCA FLTXR 3597 006340 3110 DCA T2 /CLEAR UNPACK SWITCH 3598 006341 1376 TAD (FLARG-1 /POINT TO PACKING TEMP 3599 006342 3014 DCA FLTXR2 3600 006343 3107 DCA T1 /CLEAR PACK SWITCH 3601 006344 4775 CCAT1, JMS I (MGET /GET A CHAR 3602 006345 3301 DCA MIDC1 /SAVE 3603 006346 1301 TAD MIDC1 3604 006347 7001 IAC 3605 006350 0141 AND C7700 /CHECK FOR CR 3606 006351 7640 SZA CLA 3607 006352 5360 JMP CCAT2 /CR FOUND 3608 006353 1301 TAD MIDC1 3609 006354 4303 CCAT3, JMS MPUT /REPACK CHAR 3610 006355 2302 ISZ MIDC2 /CHECK IF 6 YET 3611 006356 5344 JMP CCAT1 3612 006357 5263 JMP MID3 /RETURN 3613 3614 006360 1267 CCAT2, TAD MIDCHK /CHECK IF ALREADY HERE 3615 006361 7650 SNA CLA 3616 006362 5365 JMP .+3 3617 006363 1301 TAD MIDC1 /FLAG SET, RESTORE CHAR 3618 006364 5354 JMP CCAT3 3619 006365 1373 TAD (IF1-1 /SET POINTERS TO SECOND STRING 3620 006366 3013 DCA FLTXR 3621 006367 3110 DCA T2 /CLEAR FLAG 3622 006370 2267 ISZ MIDCHK /SET FLAG 3623 006371 5344 JMP CCAT1 3624 3625 006373 1363 PAGE 006374 1364 006375 6146 006376 6167 006377 5337 3626 /*FLPUT* ROUTINE 3627 006400 0000 XFLPUT, 0 3628 006401 7440 SZA 3629 006402 5205 JMP .+3 3630 006403 7340 L7777 3631 006404 1025 TAD PT1 3632 006405 3013 XFLPT2, DCA FLTXR 3633 006406 7340 L7777 3634 006407 1600 TAD I XFLPUT 3635 006410 3014 DCA FLTXR2 3636 006411 7346 L7775 3637 006412 3112 DCA T3 3638 006413 1414 TAD I FLTXR2 /PUT VARIABLE 3639 006414 4560 UDF 3640 006415 3413 DCA I FLTXR 3641 006416 6201 CDF 3642 006417 2112 ISZ T3 3643 006420 5213 JMP .-5 3644 006421 2200 ISZ XFLPUT 3645 006422 5600 JMP I XFLPUT 3646 3647 /CHARACTER TEST ROUTINES 3648 006423 0000 COMTST, 0 3649 006424 1377 TAD (-",+200 3650 006425 1026 TAD CHAR 3651 006426 7650 SNA CLA 3652 006427 2223 ISZ COMTST /FOUND IT 3653 006430 5623 JMP I COMTST 3654 3655 006431 0000 CCRTST, 0 3656 006432 1231 TAD CCRTST 3657 006433 3223 DCA COMTST 3658 006434 1376 TAD (-15 3659 006435 5225 JMP COMTST+2 3660 3661 006436 0000 ENDTST, 0 3662 006437 1375 TAD (-"'+200 3663 006440 1026 TAD CHAR 3664 006441 7440 SZA 3665 006442 1374 TAD ("'-"\ 3666 006443 7650 SNA CLA 3667 006444 2236 ISZ ENDTST 3668 006445 1236 TAD ENDTST 3669 006446 5233 JMP CCRTST+2 3670 /*LEN* FUNCTION, RETURNS NUMBER OF CHARACTERS 3671 /(UP TO 6) IN A STRING 3672 3673 006447 3111 LEN, DCA CNTR /CHAR COUNTER 3674 006450 7346 L7775 /COUNT FOR 3 WORDS 3675 006451 3107 DCA T1 3676 006452 7360 CLA STL CMA 3677 006453 1121 TAD FLARGP 3678 006454 3013 DCA FLTXR 3679 006455 1413 LENXT, TAD I FLTXR /GET NEXT TWO CHARACTERS 3680 006456 1373 TAD (100 3681 006457 7430 SZL /LINK SET ONLY IF TOP HALF IS CR 3682 006460 5272 JMP LENDON 3683 006461 2111 ISZ CNTR /COUNT CHAR 3684 006462 0134 AND C77 /KILL TOP HALF 3685 006463 7001 IAC 3686 006464 0141 AND C7700 /KILL BOTTOM HALF 3687 006465 7640 SZA CLA /AC=100 IF BOTTOM HALF IS CR 3688 006466 5272 JMP LENDON 3689 006467 2111 ISZ CNTR /COUNT CHAR 3690 006470 2107 ISZ T1 /DONE? 3691 006471 5255 JMP LENXT 3692 006472 7200 LENDON, CLA /CLEAR GARBAGE IN AC 3693 006473 3031 DCA MODE /NO LONGER STRING MODE 3694 006474 1111 TAD CNTR 3695 006475 4277 JMS FLOAT /FLOAT NUMBER INTO FLARG 3696 006476 5552 POPJ 3697 3698 3699 /FLOATS NUMBER IN AC INTO FLARG 3700 3701 006477 0000 FLOAT, 0 3702 006500 3107 DCA T1 /SAVE NUMBER 3703 006501 1372 TAD (ACSIGN-1 /SET TO FLOAT 3704 006502 3013 DCA FLTXR 3705 006503 6211 CDF SWAP 3706 006504 3413 DCA I FLTXR /ZERO ACSIGN 3707 006505 3413 DCA I FLTXR 3708 006506 1371 TAD (217 /EXPONENT FUDGE 3709 006507 3413 DCA I FLTXR /INTO ACEXP 3710 006510 3413 DCA I FLTXR /ZERO AC3 3711 006511 1107 TAD T1 3712 006512 3413 DCA I FLTXR /NUMBER IN AC2 3713 006513 3413 DCA I FLTXR /ZERO AC1 3714 006514 4407 FINT 3715 006515 6010 FNOR /FLOAT NUMBER 3716 006516 7521 FPUT I FLARGP /PUT INTO FLARG 3717 006517 0000 FEXT 3718 006520 5677 JMP I FLOAT /DONE 3719 3720 006521 4553 POPF 3721 006522 6170 FLARG 3722 006523 3032 ENDFND, DCA SPACSW 3723 006524 4550 PUSHF 3724 006525 0017 TEXTP 3725 006526 4543 GETC 3726 006527 4575 TSTEND 3727 006530 5326 JMP .-2 3728 006531 4566 TSTCCR 3729 006532 5321 JMP ENDFND-2 3730 006533 4553 POPF 3731 006534 0017 TEXTP 3732 006535 4543 GETC 3733 006536 4571 COMMAN 3734 006537 7001 IAC 3735 006540 5552 POPJ 3736 3737 3738 006541 0000 XPUT, 0 /FILE OUTPUT ROUTINE 3739 006542 7450 SNA 3740 006543 1026 TAD CHAR 3741 006544 3112 DCA T3 3742 006545 1341 TAD XPUT 3743 006546 4546 PUSHA 3744 006547 1112 XPUT3, TAD T3 3745 006550 4546 PUSHA 3746 006551 1112 TAD T3 3747 006552 4672 JMS I LENDON /XPUT0=7200 3748 006553 4551 POPA 3749 006554 1376 TAD (-15 3750 006555 7640 SZA CLA 3751 006556 5552 POPJ 3752 006557 1131 TAD CLF 3753 006560 3112 DCA T3 3754 006561 5347 JMP XPUT3 3755 006562 4770 CHAIN, JMS I (DTGRAB 3756 006563 1367 TAD (CHAIN1 3757 006564 3102 DCA CHAINP 3758 006565 5766 JMP I (CHAIN2 3759 006566 7334 PAGE 006567 2463 006570 6602 006571 0217 006572 0041 006573 0100 006574 7713 006575 7731 006576 7763 006577 7724 3760 3761 006600 7000 DTQ1, DTQ 3762 006601 7000 DTQ2, DTQ 3763 3764 006602 0000 DTGRAB, 0 /GET THE TAPE! 3765 006603 6212 CIF 10 /CALL CHECKING ROUTINE 3766 006604 4777 JMS I (DTCHKX 3767 006605 3601 DCA I DTQ2 3768 006606 1201 TAD DTQ2 /BUMP QUEUE POINTER 3769 006607 7001 IAC /(MUST BE AT START OF PAGE) 3770 006610 0376 AND (7607 3771 006611 3201 DCA DTQ2 3772 006612 1200 TAD DTQ1 /WAS THE QUEUE EMPTY? 3773 006613 7140 CLL CMA 3774 006614 1201 TAD DTQ2 3775 006615 0124 AND C7 3776 006616 7650 SNA CLA 3777 006617 5225 JMP XDTG1 /YES, GIVE THIS JOB THE TAPE 3778 3779 006620 1202 TAD DTGRAB /SET RESTART ADDRESS 3780 006621 3022 DCA PC 3781 006622 1517 TAD I LOOK /SET DECTAPE BUSY 3782 006623 4775 JMS I (XOR /AND DISMISS 3783 006624 1000 1000 3784 3785 006625 6001 XDTG1, ION /RETURN TO THE JOB 3786 006626 5602 JMP I DTGRAB /(WITH THE DECTAPE) 3787 3788 006627 0000 DTFREE, 0 /LET THE TAPE GO 3789 006630 1102 TAD CHAINP /CHECK IF WE SHOULD HOLD ONTO TAPE 3790 006631 1374 TAD (-READY /FOR AN OLD, SAVE, OR CHAIN 3791 006632 7640 SZA CLA 3792 006633 5627 JMP I DTFREE /RETURN, BUT STILL HOLD ONTO TAPE!! 3793 006634 3600 DCA I DTQ1 /CLEAR THE SLOT 3794 006635 1200 TAD DTQ1 /BUMP THE POINTER 3795 006636 7001 IAC 3796 006637 0376 AND (7607 3797 006640 3200 DCA DTQ1 3798 006641 1600 TAD I DTQ1 /IS THERE ANOTHER REQUEST? 3799 006642 7450 SNA 3800 006643 5627 JMP I DTFREE /NO, ALL DONE! 3801 3802 006644 1120 TAD LOOKST /BUILD A POINTER TO STATUS 3803 006645 3112 DCA T3 3804 006646 6002 IOF 3805 006647 1512 TAD I T3 /CLEAR DECTAPE BUSY 3806 006650 0373 AND (6777 3807 006651 3512 DCA I T3 3808 006652 6001 ION 3809 006653 5627 JMP I DTFREE /BACK TO CURRENT JOB 3810 3811 006654 0000 XGET, 0 /FILE INPUT ROUTINE 3812 006655 7300 CLA CLL 3813 006656 2074 ISZ I3 /3RD CHAR OF 3? 3814 006657 5303 JMP GET1 /NO, NORMAL 3815 006660 7344 L7776 /BACK UP POINTER 3816 006661 1073 TAD IPNTR 3817 006662 3073 DCA IPNTR 3818 006663 7346 L7775 /RESET 3-WAY SWITCH 3819 006664 3074 DCA I3 3820 006665 6211 CDF SWAP /GET THE FIRST HALF 3821 006666 1473 TAD I IPNTR 3822 006667 2073 ISZ IPNTR 3823 006670 0340 AND C7400 3824 006671 7106 CLL RTL 3825 006672 7006 RTL 3826 006673 3026 DCA CHAR /HANDY TEMP 3827 006674 1473 TAD I IPNTR /GET THE SECOND HALF 3828 006675 0372 AND (7400 3829 006676 1026 TAD CHAR /GET THE FIRST HALF (AGAIN?) 3830 006677 7006 RTL 3831 006700 7006 RTL 3832 006701 7004 RAL 3833 006702 5337 JMP GEXIT 3834 3835 006703 1073 GET1, TAD IPNTR /IS THERE ANY BUFFER? 3836 006704 0125 AND C177 3837 006705 7640 SZA CLA 3838 006706 5335 JMP GET2 /GUESS SO 3839 3840 006707 1072 TAD BASE /BUILD POINTER TO BUFFER 3841 006710 1371 TAD (200 3842 006711 3073 DCA IPNTR 3843 006712 1254 TAD XGET /SAVE THE RETURN 3844 006713 4546 PUSHA 3845 006714 4202 JMS DTGRAB /GET THE DECTAPE 3846 006715 1073 TAD IPNTR /MOVE THE ARGS 3847 006716 3325 DCA IBUFF 3848 006717 1075 TAD IBLK 3849 006720 3327 DCA INBLK 3850 006721 2075 ISZ IBLK /NEXT BLOCK, NEXT TIME 3851 006722 7201 CLA IAC /AC=1 FOR READ 3852 006723 6212 CIF SWAP 3853 006724 4770 JMS I (DTAPE /DO THE DECTAPE THING 3854 006725 0000 IBUFF, 0 3855 006726 7600 7600 /READ 200 WORDS (ONE PAGE) 3856 006727 0000 INBLK, 0 3857 006730 4227 JMS DTFREE /ALL THROUGH, GIVE IT BACK 3858 006731 4551 POPA /RESTORE THE RETURN 3859 006732 3254 DCA XGET 3860 006733 7344 L7776 /PRETEND WE SET THE PACK SWITCH 3861 006734 3074 DCA I3 3862 3863 006735 6211 GET2, CDF SWAP /NORMAL CHARACTER UNPACKING 3864 006736 1473 TAD I IPNTR /GET THE CHARACTER 3865 006737 2073 GEXIT, ISZ IPNTR 3866 006740 7400 C7400, NOP 400 /IN CASE IT SKIPS 3867 006741 6201 CDF 3868 006742 0125 AND C177 /MASK OFF PARITY 3869 006743 7440 SZA /IGNORE NULLS 3870 006744 1132 TAD M12 /AND LINE FEEDS 3871 006745 7440 SZA 3872 006746 1367 TAD (12-14 /AND FORM FEEDS 3873 006747 7450 SNA 3874 006750 5255 JMP XGET+1 3875 006751 1366 TAD (14-32 /CHECK FOR ^Z 3876 006752 7440 SZA 3877 006753 5360 JMP .+5 3878 006754 2254 ISZ XGET /SKIP RETURN FOR EOF 3879 006755 3075 DCA IBLK /CLEAR FILE OPEN 3880 006756 1365 TAD (XREADC /RESET 'READC' 3881 006757 3066 DCA PREADC 3882 006760 1364 TAD (32 /RESTORE CHAR 3883 006761 3026 DCA CHAR 3884 006762 5654 JMP I XGET /WHEW! 3885 3886 006764 0032 PAGE 006765 3714 006766 7762 006767 7776 006770 3200 006771 0200 006772 7400 006773 6777 006774 7311 006775 5600 006776 7607 006777 3560 3887 007000 0000 DTQ, ZBLOCK 10 007001 0000 007002 0000 007003 0000 007004 0000 007005 0000 007006 0000 007007 0000 3888 3889 007010 0000 STRFIL, 0 /GET A STRING FILENAME 3890 007011 4777 JMS I (DOLCHK /SET EXTENSION 3891 007012 4547 PUSHJ /GET FILE NAME 3892 007013 2612 EVAL 3893 007014 1026 TAD CHAR /SAVE TEXT POINTERS 3894 007015 4546 PUSHA 3895 007016 4550 PUSHF 3896 007017 0017 TEXTP 3897 007020 7240 CLA CMA /PUSH A CR 3898 007021 4546 PUSHA 3899 007022 4550 PUSHF /FINALLY, PUSH THE STRING 3900 007023 6170 FLARG 3901 007024 1015 TAD PDLXR /SET UP UNPACKING (FROM THE STACK!) 3902 007025 3017 DCA AXOUT 3903 007026 3021 DCA XCT 3904 007027 4543 GETC /GET THE FIRST CHAR 3905 007030 6213 CIF CDF SWAP 3906 007031 4776 JMS I (XGETNAM /GET THE FILE NAME 3907 007032 1015 TAD PDLXR /UNSTACK GARBAGE 3908 007033 1375 TAD (4 3909 007034 3015 DCA PDLXR 3910 007035 4553 POPF /RESTORE THE TEXT POINTERS 3911 007036 0017 TEXTP 3912 007037 4551 POPA 3913 007040 3026 DCA CHAR 3914 007041 5610 JMP I STRFIL /DONE WITH FILENAME 3915 3916 007042 4774 OPEN, JMS I (DTGRAB /GET THE DECTAPE 3917 007043 1141 TAD M100 /SET '.DX' EXTENSION 3918 007044 4210 JMS STRFIL /GET THE FILENAME 3919 007045 1131 TAD CLF /DOUBLE CHECK FOR 'FOR' 3920 007046 4571 COMMAN 3921 007047 7650 SNA CLA 3922 007050 4557 ERR620, ERROR /WASN'T THERE 3923 007051 4571 COMMAN /MUST BE 'INPUT' OR 'OUTPUT' 3924 007052 1373 TAD (5 /CHECK FOR 'INPUT' 3925 007053 7450 SNA 3926 007054 5335 JMP OINPUT 3927 007055 1372 TAD (-5-4+32 3928 007056 7640 SZA CLA 3929 007057 5250 JMP ERR620 3930 3931 007060 4567 FILOUT, TSTCOM /LENGTH GIVEN? 3932 007061 5322 JMP NOLEN /ASSUME 10 BLOCKS 3933 007062 4547 PUSHJ /EVALUATE THE LENGTH 3934 007063 2611 EVAL-1 3935 007064 4522 JMS I INTEGER /FIX IT 3936 007065 7570 SPA SNA SZL 3937 007066 4557 ERR650, ERROR /TOO BIG OR TOO LITTLE 3938 3939 007067 3101 LENIN, DCA OMAX /SAVE LENGTH 3940 007070 1036 TAD DECK /USER 0 CAN OPEN ANY LENGTH 3941 007071 7640 SZA CLA 3942 007072 1101 TAD OMAX /ANYBODY ELSE IS LIMITED TO 64 3943 007073 1141 TAD C7700 3944 007074 7750 SPA SNA CLA /TOO BIG, SCREW HIM! 3945 3946 007075 4575 LENOK, TSTEND /SHOULD BE END 3947 007076 5266 JMP LENIN-1 3948 007077 1141 TAD M100 /MAKE SURE EXTENSION IS CORRECT 3949 007100 4777 JMS I (DOLCHK /(HE COULD HAVE SAID 'OPEN $') 3950 007101 1101 TAD OMAX /PUT LENGTH FOR ENTER IN AC 3951 007102 6213 CIF CDF SWAP 3952 007103 4771 JMS I (XENTER /ENTER AND CLOSE 3953 007104 4557 ERR630, ERROR 3954 007105 6211 CDF SWAP 3955 007106 1770 TAD I (BLOCK 3956 007107 7104 CLL RAL 3957 007110 3100 DCA OBLK 3958 007111 7346 L7775 3959 007112 3077 DCA O3 /INIT POINTERS 3960 007113 1072 TAD BASE 3961 007114 3076 DCA OPNTR 3962 007115 1101 TAD OMAX /FORM MAXIMUM LENGTH (IN PAGES) 3963 007116 7104 CLL RAL 3964 007117 7040 CMA 3965 007120 3101 DCA OMAX 3966 007121 5347 JMP OUTOUT /USE SOME COMMON CODE 3967 3968 007122 1131 NOLEN, TAD CLF /ASSUME 10 BLOCKS 3969 007123 5267 JMP LENIN 3970 3971 007124 1067 SAVDON, TAD PPRINT /WAS THIS A 'SAVE'? 3972 007125 1367 TAD (-XPRNTC 3973 007126 7650 SNA CLA 3974 007127 5766 JMP I (READY /NO, GOTO 'READY' 3975 007130 4547 PUSHJ /CLOSE THE FILE 3976 007131 7414 CLOSE0 3977 007132 4765 SAVDN1, JMS I (IOFIX 3978 007133 4764 JMS I (DTFREE /RELEASE THE TAPE FOR REAL 3979 007134 5766 JMP I (READY /ALL DONE! 3980 3981 007135 4575 OINPUT, TSTEND 3982 007136 5250 JMP ERR620 3983 007137 6213 CIF CDF SWAP 3984 007140 4763 JMS I (FLOOK /LOOK UP THE FILE 3985 007141 6211 CDF SWAP 3986 007142 1770 TAD I (BLOCK /GET THE TAPE BLOCK 3987 007143 7104 CLL RAL /*2 FOR PAGES 3988 007144 3075 DCA IBLK 3989 007145 3074 DCA I3 /CLEAR THE SWITCH 3990 007146 3073 DCA IPNTR /AND THE POINTER 3991 007147 6201 OUTOUT, CDF 3992 007150 4764 JMS I (DTFREE /GIVE UP THE TAPE 3993 007151 5552 POPJ 3994 3995 3996 007152 4575 RESTOR, TSTEND 3997 007153 4557 ERR280, ERROR 3998 007154 3037 DCA DATAPC 3999 007155 1123 TAD CCR 4000 007156 3043 DCA DATAPC+4 4001 007157 5552 POPJ 4002 4003 007160 4557 ERR330, ERROR 4004 4005 007163 2755 PAGE 007164 6627 007165 1366 007166 0467 007167 0371 007170 0061 007171 2600 007172 0021 007173 0005 007174 6602 007175 0004 007176 0067 007177 7534 4006 007200 0000 XPUT0, 0 4007 007201 6211 CDF SWAP 4008 007202 2077 ISZ O3 4009 007203 5244 JMP PUT1 4010 007204 3112 DCA T3 4011 007205 7344 L7776 4012 007206 1076 TAD OPNTR 4013 007207 3076 DCA OPNTR 4014 007210 4251 JMS OPAK 4015 007211 4251 JMS OPAK 4016 007212 6201 CDF 4017 007213 7346 L7775 4018 007214 3077 DCA O3 4019 007215 1076 TAD OPNTR 4020 007216 0125 AND C177 4021 007217 7640 SZA CLA 4022 007220 5600 JMP I XPUT0 4023 4024 007221 2101 ISZ OMAX /GONE TOO FAR? 4025 007222 5225 JMP .+3 4026 007223 3100 DCA OBLK /CLEAR FILE 4027 007224 4557 ERR640, ERROR 4028 007225 1072 TAD BASE 4029 007226 3076 DCA OPNTR 4030 007227 4777 JMS I (DTGRAB 4031 007230 1072 TAD BASE 4032 007231 3237 DCA OBUFF 4033 007232 1100 TAD OBLK 4034 007233 3241 DCA OUTBLK 4035 007234 2100 ISZ OBLK 4036 007235 6212 CIF SWAP 4037 007236 4776 JMS I (DTAPE 4038 007237 0000 OBUFF, 0 4039 007240 7600 7600 4040 007241 0000 OUTBLK, 0 4041 007242 4775 JMS I (DTFREE 4042 007243 5600 JMP I XPUT0 4043 4044 007244 0125 PUT1, AND C177 4045 007245 3476 DCA I OPNTR 4046 007246 2076 ISZ OPNTR 4047 007247 6201 CDF 4048 007250 5600 JMP I XPUT0 4049 4050 IFNZRO XPUT0-7200 4051 4052 007251 0000 OPAK, 0 4053 007252 1112 TAD T3 4054 007253 7106 CLL RTL 4055 007254 7006 RTL 4056 007255 3112 DCA T3 4057 007256 1112 TAD T3 4058 007257 0374 AND (7400 4059 007260 1476 TAD I OPNTR 4060 007261 3476 DCA I OPNTR 4061 007262 2076 ISZ OPNTR 4062 007263 5651 JMP I OPAK 4063 4064 007264 0000 OFREE2, 0 4065 007265 1264 TAD OFREE2 4066 007266 4546 PUSHA 4067 007267 1373 TAD (-2+200 4068 007270 1072 TAD BASE 4069 007271 7141 CLL CIA 4070 007272 1076 TAD OPNTR 4071 007273 7620 SNL CLA 4072 007274 5552 POPJ 4073 007275 7330 L4000 4074 007276 4467 PRINTC 4075 007277 1072 TAD BASE 4076 007300 7041 CIA 4077 007301 1076 TAD OPNTR 4078 007302 7640 SZA CLA 4079 007303 5275 JMP .-6 4080 007304 5552 POPJ 4081 4082 007305 0000 OFREE3, 0 4083 007306 1305 TAD OFREE3 4084 007307 4546 PUSHA 4085 007310 1136 TAD M6 4086 007311 5267 JMP OFREE2+3 4087 4088 007312 1026 OLD1, TAD CHAR /CHECK FOR LIBRARY CALL 4089 007313 1372 TAD (-"$+200 4090 007314 7640 SZA CLA 4091 007315 5321 JMP .+4 4092 007316 4543 GETC /SKIP OVER $ 4093 007317 1137 TAD C10 4094 007320 7410 SKP 4095 007321 1036 TAD DECK /PUSH HIS NUMBER IF NOT LIBRARY 4096 007322 4546 PUSHA 4097 007323 4547 PUSHJ /GET THE PROGRAM NAME 4098 007324 5741 GETNAM 4099 007325 4777 JMS I (DTGRAB /GET THE TAPE 4100 007326 4551 POPA /SET THE EXTENSION 4101 007327 1371 TAD (560 4102 007330 6213 CIF CDF SWAP /UNPACK THE NAME 4103 007331 3770 DCA I (EXTEN 4104 007332 4767 JMS I (XGETNAM 4105 4106 007333 7410 SKP 4107 007334 4766 CHAIN2, JMS I (STRFIL 4108 007335 4765 JMS I (MOVNAM /MOVE THE NEW NAME DOWN 4109 007336 4547 PUSHJ /LOOKUP THE FILE 4110 007337 7137 OINPUT+2 /AND SWITCH TO FILE INPUT 4111 007340 4560 UDF /SCRATCH USER AREA 4112 007341 3457 DCA I ALINE0 4113 007342 7326 L0002 4114 007343 1057 TAD ALINE0 4115 007344 3054 DCA BUFR 4116 007345 1364 TAD (XGET 4117 007346 3066 DCA PREADC 4118 007347 5763 JMP I (START /RETURN TO COMMAND INPUT! 4119 4120 007350 0000 SETUPO, 0 4121 007351 1362 TAD (XPUT 4122 007352 3067 DCA PPRINT 4123 007353 1361 TAD (OFREE2 4124 007354 3070 DCA PFREE2 4125 007355 1360 TAD (OFREE3 4126 007356 3071 DCA PFREE3 4127 007357 5750 JMP I SETUPO 4128 4129 007360 7305 PAGE 007361 7264 007362 6541 007363 0475 007364 6654 007365 4240 007366 7010 007367 0067 007370 0066 007371 0560 007372 7734 007373 0176 007374 7400 007375 6627 007376 3200 007377 6602 4130 007400 0000 INTCNT, 0 4131 007401 1104 RANDOM, TAD FRNDX+1 4132 007402 1200 TAD INTCNT 4133 007403 3103 DCA FRNDX 4134 007404 1200 TAD INTCNT 4135 007405 3104 DCA FRNDX+1 4136 007406 5552 POPJ 4137 4138 007407 0000 XPRNTC, 0 4139 007410 6002 IOF 4140 007411 4556 PRINTX 4141 007412 6001 ION 4142 007413 5607 JMP I XPRNTC 4143 4144 007414 1100 CLOSE0, TAD OBLK /ANY FILE TO CLOSE? 4145 007415 7650 SNA CLA 4146 007416 5777 JMP I (ERR600 4147 007417 4776 JMS I (SETUPO /OPEN OUTPUT 4148 007420 1375 TAD (232 /WRITE A ^Z 4149 007421 4467 PRINTC 4150 007422 1072 TAD BASE 4151 007423 7041 CIA 4152 007424 1076 TAD OPNTR 4153 007425 7640 SZA CLA 4154 007426 5220 JMP .-6 4155 007427 3100 DCA OBLK /CLOSE THE FILE! 4156 007430 5552 POPJ 4157 4158 007431 2102 SAVE, ISZ CHAINP /SET TAPE LOCKING FLAG 4159 007432 4774 JMS I (DTGRAB /GET THE DECTAPE 4160 007433 6211 CDF SWAP /MOVE THE NAME TO 4161 007434 1063 TAD NAME /WORKING SPACE 4162 007435 3773 DCA I (NAMEX 4163 007436 1064 TAD NAME+1 4164 007437 3772 DCA I (NAMEX+1 4165 007440 1065 TAD NAME+2 4166 007441 3771 DCA I (NAMEX+2 4167 007442 1036 TAD DECK 4168 007443 1370 TAD (560 /SET '.EX' EXTENSION 4169 007444 3767 DCA I (EXTEN 4170 007445 6201 CDF 4171 007446 3101 DCA OMAX /SETUP TO COMPUTE LENGTH 4172 007447 1057 TAD ALINE0 /(BUFR)-(ALINE0)=LENGTH IN WORDS 4173 007450 7041 CIA 4174 007451 1054 TAD BUFR 4175 007452 7110 CLL RAR /HALVE IT FOR THOSE USERS WITH OVER 2K 4176 007453 2101 ISZ OMAX /(# WORDS)*2/(CHAR'S/BLOCK)+1=BLOCKS 4177 007454 1366 TAD (-124 /(APPROX # CHAR'S/BLOCK)/2 (AND 2 AGAIN) 4178 007455 7500 SMA 4179 007456 5253 JMP .-3 /CONTINUE DIVISION 4180 007457 7300 CLA CLL /NOW DO ENTER 4181 007460 4547 PUSHJ /OPEN FILE 4182 007461 7101 LENOK+4 4183 007462 3034 DCA OUTPUT /FOR 'LIST' 4184 007463 4776 JMS I (SETUPO /SETUP TO PRINT 4185 007464 5765 JMP I (LIST /CALL 'LIST' 4186 4187 4188 007465 7330 KILL, L4000 4189 007466 3062 DCA ERLINE 4190 007467 4547 UNSAVE, PUSHJ /GET THE NAME 4191 007470 5741 GETNAM 4192 007471 4774 JMS I (DTGRAB /GET THE DECTAPE 4193 007472 6213 CIF CDF SWAP /BUILD THE NAME 4194 007473 4764 JMS I (XGETNAM 4195 007474 1062 TAD ERLINE /WHICH EXTENSION? 4196 007475 7640 SZA CLA 4197 007476 1141 TAD M100 /'.DX' EXTENSION 4198 007477 4334 JMS DOLCHK /JUST TO SET '.EX' EXTENSION 4199 007500 6213 CIF CDF SWAP /DO THE CLOSE 4200 007501 4763 JMS I (XENTER /WHAT? 4201 007502 4762 UNSAV1, JMS I (DTFREE /RELEASE THE TAPE 4202 007503 5761 JMP I (READY /ALL DONE 4203 4204 007504 7330 DATLOG, L4000 4205 007505 3062 DCA ERLINE 4206 007506 1131 CATLOG, TAD CLF 4207 007507 4467 PRINTC 4208 007510 4774 JMS I (DTGRAB /GET THE TAPE 4209 007511 1062 TAD ERLINE 4210 007512 7640 SZA CLA 4211 007513 1141 TAD M100 /LIST '.DX' EXTENSIONS 4212 007514 4334 JMS DOLCHK /SET CATALOG TO LIST 4213 007515 6213 CIF CDF SWAP /GET THE CATALOG 4214 007516 4760 JMS I (CAT0 4215 4216 007517 4471 CATLUP, FREE13 /MAKE SURE THERE'S ROOM 4217 007520 6213 CIF CDF SWAP /PRINT THE NEXT NAME 4218 007521 4757 JMS I (CAT1 4219 007522 5317 JMP CATLUP /DO IT AGAIN! 4220 007523 5302 JMP UNSAV1 4221 4222 007524 2032 PRINT2, ISZ SPACSW /KEEP SPACES 4223 007525 4543 GETC 4224 007526 4544 SORTJ 4225 007527 5473 PRNTL7-1 /CHECK " CR 4226 007530 6215 PRNTL8-PRNTL7 4227 007531 4470 FREE2 4228 007532 4467 PRINTC 4229 007533 5325 JMP PRINT2+1 /KEEP PRINTING THE LITERAL 4230 4231 007534 0000 DOLCHK, 0 /DECIDE WHICH CATALOG TO USE 4232 007535 1370 TAD (560 /SET EITHER '.E0' OR '.D0' 4233 007536 3107 DCA T1 4234 007537 1026 TAD CHAR /CHECK FOR $ 4235 007540 1356 TAD (-"$+200 4236 007541 7650 SNA CLA 4237 007542 5351 JMP .+7 4238 007543 1036 TAD DECK /ADD CURRENT USER TO EXTENSION 4239 007544 6211 CDF SWAP 4240 007545 1107 TAD T1 4241 007546 3767 DCA I (EXTEN 4242 007547 6201 CDF 4243 007550 5734 JMP I DOLCHK 4244 007551 4543 GETC /SKIP OVER $ 4245 007552 1137 TAD C10 4246 007553 5344 JMP .-7 4247 4248 007556 7734 PAGE 007557 3123 007560 3530 007561 0467 007562 6627 007563 2600 007564 0067 007565 2251 007566 7654 007567 0066 007570 0560 007571 0017 007572 0016 007573 0015 007574 6602 007575 0232 007576 7350 007577 1145 4249 4250 FIELD 1 4251 4252 *5000 4253 MVPAG=. 4254 4255 NOPUNCH 4256 *7600 /THIS WILL BE MOVED LATER 4257 ENPUNCH 4258 4259 017600 5356 JMP 7756 /FOR A MONITOR SYSTEM 4260 017601 7736 QMQOT, -42 4261 017602 7603 QPT1, .+1 4262 017603 0011 11 4263 017604 0000 QCT1, 0 4264 017605 2757 QEVAL2, EVAL2+3 4265 017606 5610 QINPACK,INPACK 4266 017607 0000 QUOCNT, 0 4267 IFNZRO 7610-. 4268 017610 7740 IF5, SMA SZA CLA 4269 017611 7710 SPA CLA 4270 017612 7650 SNA CLA 4271 017613 7700 SMA CLA 4272 017614 7750 SPA SNA CLA 4273 017615 7640 SZA CLA 4274 017616 0000 QCOUNT, 0 4275 017617 1026 QUOTES, TAD CHAR /LITERAL STRING 4276 017620 1201 TAD QMQOT 4277 017621 7640 SZA CLA 4278 017622 5605 JMP I QEVAL2 /ERROR, NOT STRING 4279 017623 1353 TAD QOPNEXT /SET UP POPJ RETURN 4280 017624 4546 PUSHA 4281 4282 017625 1333 QINP, TAD QCON1 /ENTRY POINT FOR INPUT COMMAND 4283 017626 1334 QLINP, TAD QCON2 /ENTRY POINT FOR LINPUT COMMAND 4284 017627 3252 DCA QSLIS /WHICH LIST TO SORT THROUGH 4285 017630 1136 TAD M6 4286 017631 3216 DCA QCOUNT /COUNT FOR 6 CHARS 4287 017632 3207 DCA QUOCNT /QUOTE COUNTER 4288 017633 2032 ISZ SPACSW /KEEP SPACES 4289 017634 2031 ISZ MODE /SET STRING MODE INDICATOR 4290 017635 4550 PUSHF /PUSH 3 WORDS ONTO STACK 4291 017636 0123 CCR 4292 017637 1015 TAD PDLXR 4293 017640 3016 DCA AXIN 4294 017641 3024 DCA XCTIN 4295 017642 1016 TAD AXIN 4296 017643 3052 DCA PACKST 4297 017644 1202 TAD QPT1 4298 017645 3053 DCA PACKND 4299 017646 7410 SKP /WE ALREADY HAVE FIRST CHAR 4300 017647 4543 QUOTE1, GETC 4301 017650 4544 SORTJ 4302 017651 5471 PRNTL1-1 4303 017652 0000 QSLIS, 0 4304 4305 017653 1216 QNEXTC, TAD QCOUNT /HAVE WE GOT 6 CHARS YET 4306 017654 7710 SPA CLA /YES, DON'T BOTHER PACKING 4307 017655 4564 PACKC 4308 017656 2216 ISZ QCOUNT /BUMP CHAR COUNTER 4309 017657 5247 JMP QUOTE1 4310 017660 1252 TAD QSLIS /GOT 6 CHARS; CHECK IF LINPUT COMMAND 4311 017661 7041 CIA 4312 017662 1334 TAD QCON2 4313 017663 7640 SZA CLA 4314 017664 5247 JMP QUOTE1 /NO, IGNORE REST OF STRING 4315 017665 1335 TAD QCOM /YES, FAKE A COMMA 4316 017666 3207 DCA QUOCNT /SO WE CAN GET REST OF STRING 4317 017667 5310 JMP QDONE2 4318 4319 017670 1207 QUOCHK, TAD QUOCNT /CHECK WHICH QUOTE THIS IS 4320 017671 7650 SNA CLA /SECOND QUOTE, ALL DONE 4321 017672 5276 JMP .+4 4322 017673 3032 DCA SPACSW /IGNORE SPACES 4323 017674 4543 GETC /SKIP OVER QUOTE 4324 017675 5304 JMP QDONE /END OF STRING 4325 017676 2207 ISZ QUOCNT 4326 017677 5247 JMP QUOTE1 /SET FLAG AND CONTINUE 4327 4328 017700 1207 QCOMCK, TAD QUOCNT /CHECK IF COMMA INSIDE QUOTES 4329 017701 7650 SNA CLA 4330 017702 5304 JMP QDONE /NO QUOTES, ENDS STRING 4331 017703 5253 JMP QNEXTC /INSIDE QUOTES, KEEP IT 4332 4333 017704 1026 QDONE, TAD CHAR /DONE, SAVE TERMINATOR 4334 017705 3207 DCA QUOCNT 4335 017706 1216 TAD QCOUNT /SAVE CHAR COUNT, FILL WORD WITH CR'S 4336 017707 7041 CIA 4337 017710 1136 QDONE2, TAD M6 4338 017711 7041 CIA 4339 017712 3204 DCA QCT1 4340 017713 1216 TAD QCOUNT 4341 017714 7700 SMA CLA 4342 017715 5323 JMP QDONE1 /YES 4343 017716 1123 TAD CCR /CCR ENDS STRING 4344 017717 3026 DCA CHAR 4345 017720 4564 PACKC 4346 017721 2216 ISZ QCOUNT 4347 017722 5320 JMP .-2 4348 017723 4553 QDONE1, POPF /GET THE STRING 4349 017724 6170 FLARG 4350 017725 1121 TAD FLARGP /POINT TO STRING 4351 017726 3025 DCA PT1 4352 017727 1207 TAD QUOCNT 4353 017730 3026 DCA CHAR /RESTORE CHARACTER 4354 017731 3032 DCA SPACSW /SET TO IGNORE SPACES 4355 017732 5552 POPJ /RETURN 4356 4357 4358 4359 017733 7774 QCON1, QLIS2-QLIS1 4360 017734 5477 QCON2, QLIS1-PRNTL1 4361 017735 0054 QCOM, ",-200 4362 4363 017736 0001 FRNDX1, 0001 /INITIALIZE RANDOM NUMBER 4364 017737 0203 0203 4365 017740 5555 5555 4366 4367 017741 4407 ENDFUN, FINT 4368 017742 6010 FNOR /NORMALIZE IT 4369 017743 7521 FPUT I FLARGP /SAVE DATA 4370 017744 0000 FEXT 4371 017745 1121 ENDF1, TAD FLARGP 4372 017746 3025 DCA PT1 /POINT TO DATA 4373 017747 3032 DCA SPACSW 4374 017750 4752 JMS I QPARTST 4375 017751 5753 JMP I QOPNEXT 4376 4377 017752 5666 QPARTST,PARTST 4378 017753 2644 QOPNEXT,OPNEXT 4379 4380 4381 PAGE 0 4382 4383 010000 0000 DTINTR, 0 4384 010001 6771 DTSF /DECTAPE? 4385 010002 5021 JMP DIS+1 4386 010003 3055 DCA INTAC1 /JUST FOR *DECKON* 4387 010004 5465 JMP I MCOM /YES, GO TO IT 4388 4389 010005 0000 OCHAR, 0 /*CHAR* FROM FIELD 0 4390 010006 0000 OCNTR, 0 /FLT PT COUNTER 4391 4392 010007 0200 OFPNT /FLOATING INTERPRETER CALL 4393 010010 0000 FXR1, 0 /FLOATING POINT INDEX REG 4394 010011 0000 FXR2, 0 4395 010012 0000 XR1, 0 4396 010013 0000 XR2, 0 4397 010014 0000 XR3, 0 4398 *15 /NAMEX MUST BE AT LOCN. 15 FOR MOVNAM TO WORK 4399 010015 0000 NAMEX, ZBLOCK 3 010016 0000 010017 0000 4400 010020 1055 DIS, TAD INTAC1 /RESTORE AC 4401 010021 6203 CIF CDF 4402 010022 5400 JMP I DTINTR /RESUME INTERRUPT PROCESSING 4403 4404 OPRINTC=JMS I . /FIELD 1 PRINTC 4405 010023 1170 OPRINC 4406 OERROR= JMS I . /FIELD 1 ERROR CALL 4407 010024 2462 OERRX 4408 OGETC= JMS I . /FIELD 1 GETC (LEAVES CHAR IN 'OCHAR') 4409 010025 2456 OGETCX 4410 OTESTN= JMS I . /FIELD 1 TESTN 4411 010026 2442 OTESTX 4412 OPOPJ= JMP I . 4413 010027 2364 OPOPJX 4414 OPUSHJ= JMS I . 4415 010030 2447 OPUSHX 4416 DECTAP= JMS I . /DO READ OR WRITE 4417 010031 3200 DTAPE 4418 ENTER= JMS I . /OS/8 ENTER 4419 010032 2600 XENTER 4420 ERROX= JMP . 4421 010033 4424 ERR530, OERROR 4422 CLOSE= JMS I . /OS/8 CLOSE 4423 010034 3402 XCLOSE 4424 GETCAT= JMS I . /READ IN DIRECTORY 4425 010035 2745 XGETCAT 4426 BUMPXR= JMS I . /UTILITY 4427 010036 3051 XBUMPXR 4428 DIRSCH= JMS I . /FIND A FILE NAME 4429 010037 3000 XDIRSCH 4430 SETPT= JMS I . /SETUP DIRECTORY POINTERS 4431 010040 2732 XSETPT 4432 4433 /FLOATING POINT STORAGE 4434 4435 010041 0000 OPSIGN, 0 /OPERAND SIGN 4436 010042 0000 ACSIGN, 0 /FLAC SIGN 4437 010043 0000 OPEXP, 0 /OPERAND EXPONENT 4438 010044 0000 ACEXP, 0 /FLAC EXPONENT 4439 010045 0000 AC3, 0 /FLAC 4440 010046 0000 AC2, 0 4441 010047 0000 AC1, 0 4442 010050 0000 OP3, 0 /OPERAND 4443 010051 0000 OP2, 0 4444 010052 0000 OP1, 0 4445 010053 0000 OVER, 0 /OVERFLOW INTO HERE 4446 010054 0000 FFLAG, 0 /-1 IF OP NOT 0 4447 4448 010055 0000 INTAC1, 0 4449 010056 0000 TEMPX, 0 4450 010057 0000 TEMPX1, 0 4451 010060 0000 FILEN, 0 4452 010061 0000 BLOCK, 0 4453 010062 0000 WASTE, 0 4454 010063 0000 ENTRIES, 0 4455 010064 0000 FOUND, 0 4456 010065 0000 MCOM, 0 4457 010066 0000 EXTEN, 0 4458 010067 0000 XGETNAM, 0 /FUDGE TO GET FILE NAME 4459 010070 6201 CDF /IN SOME CASES 4460 010071 1577 TAD I [CHAR /CHAR IS DESTROYED!!! 4461 010072 6211 CDF SWAP 4462 010073 3005 DCA OCHAR 4463 010074 5576 JMP I [XGTNM1 /CALL THE REAL ROUTINE 4464 4465 PAGE 4466 010200 0000 OFPNT, 0 /ENTRY POINT 4467 010201 7600 C7600, 7600 4468 010202 6214 RDF 4469 010203 1021 TAD DIS+1 /OPERANDS IN CALLING FIELD 4470 010204 3210 DCA FLOOP+2 4471 010205 5210 JMP .+3 4472 4473 010206 4575 FLOOP, JMS I [FNORM /NORMALIZE RESULT 4474 010207 2200 ISZ OFPNT /GET NEXT 4475 010210 6203 CIF CDF 4476 010211 1600 TAD I OFPNT /GET OPERATION 4477 010212 7450 SNA 4478 010213 5600 JMP I OFPNT /0000 => EXIT 4479 010214 6212 CIF SWAP 4480 010215 7006 RTL 4481 010216 7006 RTL 4482 010217 0174 AND [7 4483 010220 3273 DCA FGOTO /SAVE OP 4484 010221 1600 TAD I OFPNT 4485 010222 0173 AND [200 4486 010223 7650 SNA CLA 4487 010224 5227 JMP FPNT1 /PAGE ZERO MODE 4488 010225 1200 TAD OFPNT 4489 010226 0201 AND C7600 /GET PAGE 4490 010227 3304 FPNT1, DCA FADDR 4491 010230 1600 TAD I OFPNT 4492 010231 0172 AND [177 4493 010232 1304 TAD FADDR 4494 010233 3304 DCA FADDR /GET ADDRESS 4495 010234 7420 SNL 4496 010235 5240 JMP FPNT2 4497 010236 1704 TAD I FADDR /DO INDIRECT 4498 010237 3304 DCA FADDR 4499 010240 7330 FPNT2, L4000 4500 010241 0704 AND I FADDR 4501 010242 3041 DCA OPSIGN /SET SIGN 4502 010243 1704 TAD I FADDR 4503 010244 7640 SZA CLA 4504 010245 7340 L7777 4505 010246 3054 DCA FFLAG /-1 IF NOT 0 4506 010247 1704 TAD I FADDR 4507 010250 7012 RTR 4508 010251 7010 RAR 4509 010252 0171 AND [377 4510 010253 3043 DCA OPEXP /SET EXP 4511 010254 1704 TAD I FADDR 4512 010255 0174 AND [7 4513 010256 3052 DCA OP1 /SET WORDS 4514 010257 2304 ISZ FADDR 4515 010260 1704 TAD I FADDR 4516 010261 3051 DCA OP2 4517 010262 2304 ISZ FADDR 4518 010263 1704 TAD I FADDR 4519 010264 3050 DCA OP3 4520 010265 7346 L7775 4521 010266 1304 TAD FADDR 4522 010267 3011 DCA FXR2 4523 010270 1273 FPNT3, TAD FGOTO 4524 010271 1170 TAD [JMP I FJUMP 4525 010272 3273 DCA .+1 /FIND OP ADDRESS 4526 010273 7402 FGOTO, HLT 4527 4528 010274 0334 FJUMP, FPGET 4529 010275 0455 FPADD 4530 010276 0452 FPSUB 4531 010277 0531 FPMUL 4532 010300 0662 FPDIV 4533 010301 0305 FPJMP 4534 010302 0311 FPCMP 4535 010303 0325 FPPUT 4536 4537 010304 0000 FADDR, 0 4538 010305 7344 FPJMP, L7776 /FLOATING JUMP 4539 010306 1304 TAD FADDR 4540 010307 3200 DCA OFPNT 4541 010310 5210 JMP FLOOP+2 4542 4543 010311 1600 FPCMP, TAD I OFPNT 4544 010312 7006 RTL 4545 010313 7006 RTL 4546 010314 7730 SZL SPA CLA 4547 010315 5361 JMP FPNT4 /FLOATING COMPARE 4548 010316 1600 TAD I OFPNT 4549 010317 1316 TAD .-1 /TAD (1600 4550 010320 3322 DCA .+2 /SET SKIP WORD 4551 010321 4347 JMS HIGHWD /GET WORD 4552 010322 7402 HLT /SKIP IF FALSE 4553 010323 2200 ISZ OFPNT /TRUE => SKIP 4554 010324 5206 JMP FLOOP 4555 4556 010325 4347 FPPUT, JMS HIGHWD 4557 010326 3411 DCA I FXR2 /SET WORD 1 4558 010327 1046 TAD AC2 4559 010330 3411 DCA I FXR2 /SET WORD 2 4560 010331 1045 TAD AC3 4561 010332 3411 DCA I FXR2 /SET WORD 3 4562 010333 5207 JMP FLOOP+1 4563 4564 010334 1041 FPGET, TAD OPSIGN 4565 010335 3042 DCA ACSIGN /TRANSFER INTO FLAC 4566 010336 1043 TAD OPEXP 4567 010337 3044 DCA ACEXP 4568 010340 1052 TAD OP1 4569 010341 3047 DCA AC1 4570 010342 1051 TAD OP2 4571 010343 3046 DCA AC2 4572 010344 1050 TAD OP3 4573 010345 3045 DCA AC3 4574 010346 5207 JMP FLOOP+1 4575 4576 010347 0000 HIGHWD, 0 4577 010350 1044 TAD ACEXP 4578 010351 7104 CLL RAL 4579 010352 7500 SMA 4580 010353 7106 CLL RTL 4581 010354 7530 SPA SZL 4582 010355 4424 ERR040, OERROR /OVERFLOW 4583 010356 1042 TAD ACSIGN 4584 010357 1047 TAD AC1 /FORM WORD 4585 010360 5747 JMP I HIGHWD 4586 4587 010361 7330 FPNT4, L4000 4588 010362 1041 TAD OPSIGN 4589 010363 3041 DCA OPSIGN 4590 010364 4567 JMS I [OCTADD 4591 010365 1047 TAD AC1 4592 010366 7450 SNA 4593 010367 1046 TAD AC2 4594 010370 7640 SZA CLA 4595 010371 5206 JMP FLOOP /NOT ZERO 4596 010372 1045 TAD AC3 4597 010373 0166 AND [7774 4598 010374 7640 SZA CLA 4599 010375 5206 JMP FLOOP /NOT ZERO 4600 010376 5565 JMP I [MULCLR /CALL IT ZERO 4601 4602 PAGE 4603 010400 0000 AR1, 0 4604 010401 1047 TAD AC1 4605 010402 7110 CLL RAR 4606 010403 3047 DCA AC1 4607 010404 1046 TAD AC2 4608 010405 7010 RAR 4609 010406 3046 DCA AC2 4610 010407 1045 TAD AC3 4611 010410 7010 RAR 4612 010411 3045 DCA AC3 4613 010412 7010 RAR 4614 010413 3053 DCA OVER 4615 010414 5600 JMP I AR1 4616 4617 010415 0000 ACN, 0 4618 010416 1377 TAD (OP3 4619 010417 3234 DCA OADD 4620 010420 7346 L7775 4621 010421 3200 DCA AR1 4622 010422 6211 CDF SWAP /MAKE SURE 4623 010423 1634 TAD I OADD 4624 010424 7040 CMA 4625 010425 7430 SZL 4626 010426 7101 CLL IAC 4627 010427 3634 DCA I OADD 4628 010430 2234 ISZ OADD 4629 010431 2200 ISZ AR1 4630 010432 5223 JMP .-7 4631 010433 5615 JMP I ACN 4632 4633 010434 0000 OADD, 0 4634 010435 7100 CLL 4635 010436 1045 TAD AC3 4636 010437 1050 TAD OP3 4637 010440 3045 DCA AC3 4638 010441 7004 RAL 4639 010442 1046 TAD AC2 4640 010443 1051 TAD OP2 4641 010444 3046 DCA AC2 4642 010445 7004 RAL 4643 010446 1047 TAD AC1 4644 010447 1052 TAD OP1 4645 010450 3047 DCA AC1 4646 010451 5634 JMP I OADD 4647 4648 010452 7330 FPSUB, L4000 4649 010453 1041 TAD OPSIGN 4650 010454 3041 DCA OPSIGN 4651 010455 4257 FPADD, JMS OCTADD 4652 010456 5564 JMP I [FLOOP 4653 4654 010457 0000 OCTADD, 0 4655 010460 2054 ISZ FFLAG 4656 010461 5657 JMP I OCTADD 4657 010462 1044 TAD ACEXP 4658 010463 7141 CLL CIA 4659 010464 1043 TAD OPEXP 4660 010465 7430 SZL 4661 010466 5304 JMP BCKWDS 4662 010467 3234 DCA OADD 4663 010470 1052 ALGNLP, TAD OP1 4664 010471 7110 CLL RAR 4665 010472 3052 DCA OP1 4666 010473 1051 TAD OP2 4667 010474 7010 RAR 4668 010475 3051 DCA OP2 4669 010476 1050 TAD OP3 4670 010477 7010 RAR 4671 010500 3050 DCA OP3 4672 010501 2234 ISZ OADD 4673 010502 5270 JMP ALGNLP 4674 010503 5314 JMP SETSGN 4675 4676 010504 7040 BCKWDS, CMA 4677 010505 3234 DCA OADD 4678 010506 1043 TAD OPEXP 4679 010507 3044 DCA ACEXP 4680 010510 7410 SKP 4681 010511 4200 JMS AR1 4682 010512 2234 ISZ OADD 4683 010513 5311 JMP .-2 4684 010514 1042 SETSGN, TAD ACSIGN 4685 010515 1041 TAD OPSIGN 4686 010516 7710 SPA CLA 4687 010517 4215 JMS ACN 4688 010520 4234 JMS OADD 4689 010521 1047 TAD AC1 4690 010522 7700 SMA CLA 4691 010523 5657 JMP I OCTADD 4692 010524 7346 L7775 4693 010525 4215 JMS ACN 4694 010526 1041 TAD OPSIGN 4695 010527 3042 DCA ACSIGN 4696 010530 5657 JMP I OCTADD 4697 4698 010531 2054 FPMUL, ISZ FFLAG 4699 010532 5371 JMP MULCLR 4700 010533 1042 TAD ACSIGN 4701 010534 1041 TAD OPSIGN 4702 010535 3042 DCA ACSIGN 4703 010536 1044 TAD ACEXP 4704 010537 1043 TAD OPEXP 4705 010540 1376 TAD (-201 4706 010541 3044 DCA ACEXP 4707 010542 1047 TAD AC1 4708 010543 3041 DCA OPSIGN 4709 010544 1046 TAD AC2 4710 010545 3043 DCA OPEXP 4711 010546 1045 TAD AC3 4712 010547 3056 DCA TEMPX 4713 010550 1375 TAD (-33 4714 010551 3006 DCA OCNTR 4715 010552 4200 MPYLUP, JMS AR1 4716 010553 1041 TAD OPSIGN 4717 010554 7010 RAR 4718 010555 3041 DCA OPSIGN 4719 010556 1043 TAD OPEXP 4720 010557 7010 RAR 4721 010560 3043 DCA OPEXP 4722 010561 1056 TAD TEMPX 4723 010562 7010 RAR 4724 010563 3056 DCA TEMPX 4725 010564 7430 SZL 4726 010565 4234 JMS OADD 4727 010566 2006 ISZ OCNTR 4728 010567 5352 JMP MPYLUP 4729 010570 5564 JMP I [FLOOP 4730 4731 010571 3047 MULCLR, DCA AC1 4732 010572 4774 JMS I (NFIX 4733 010573 5564 JMP I [FLOOP 4734 4735 010574 0730 PAGE 010575 7745 010576 7577 010577 0050 4736 010600 0000 FNORM, 0 4737 010601 3053 DCA OVER 4738 010602 1047 TAD AC1 4739 010603 1235 TAD KM10 4740 010604 7710 SPA CLA 4741 010605 5211 JMP NOTBIG 4742 010606 4563 JMS I [AR1 4743 010607 2044 ISZ ACEXP 4744 010610 5202 JMP FNORM+2 4745 010611 1053 NOTBIG, TAD OVER 4746 010612 7700 SMA CLA 4747 010613 5223 JMP NOBUMP 4748 010614 2045 ISZ AC3 4749 010615 5223 JMP NOBUMP 4750 010616 2046 ISZ AC2 4751 010617 5223 JMP NOBUMP 4752 010620 2047 ISZ AC1 4753 010621 5201 JMP FNORM+1 4754 4755 010622 7340 L7777 4756 010623 1044 NOBUMP, TAD ACEXP 4757 010624 7510 SPA 4758 010625 5235 JMP UNDERF /UNDERFLOW OR ZERO 4759 010626 3044 DCA ACEXP 4760 010627 7346 L7775 4761 010630 1047 TAD AC1 4762 010631 7740 SMA SZA CLA 4763 010632 5600 JMP I FNORM 4764 010633 4247 JMS AL1 4765 010634 5222 JMP NOBUMP-1 4766 4767 KM10=. 4768 010635 7770 UNDERF, SPA SNA SZL CLA 4769 010636 1047 TAD AC1 4770 010637 7450 SNA 4771 010640 1046 TAD AC2 4772 010641 7450 SNA 4773 010642 1045 TAD AC3 4774 010643 7640 SZA CLA 4775 010644 4424 ERR050, OERROR /UNDERFLOW 4776 010645 4330 JMS NFIX 4777 010646 5600 JMP I FNORM 4778 4779 010647 0000 AL1, 0 4780 010650 1045 TAD AC3 4781 010651 7104 CLL RAL 4782 010652 3045 DCA AC3 4783 010653 1046 TAD AC2 4784 010654 7004 RAL 4785 010655 3046 DCA AC2 4786 010656 1047 TAD AC1 4787 010657 7004 RAL 4788 010660 3047 DCA AC1 4789 010661 5647 JMP I AL1 4790 4791 010662 2054 FPDIV, ISZ FFLAG 4792 010663 4424 ERR030, OERROR 4793 010664 1042 TAD ACSIGN 4794 010665 1041 TAD OPSIGN 4795 010666 3042 DCA ACSIGN 4796 010667 1043 TAD OPEXP 4797 010670 7041 CIA 4798 010671 1044 TAD ACEXP 4799 010672 1172 TAD [177 4800 010673 3044 DCA ACEXP 4801 010674 3006 DCA OCNTR 4802 010675 1377 TAD (-35 4803 010676 3200 DCA FNORM 4804 010677 7330 DIVLP, L4000 4805 010700 0052 AND OP1 4806 010701 1047 TAD AC1 4807 010702 7700 SMA CLA 4808 010703 4776 JMS I (ACN 4809 010704 4775 JMS I (OADD 4810 010705 1006 TAD OCNTR 4811 010706 7004 RAL 4812 010707 3006 DCA OCNTR 4813 010710 1043 TAD OPEXP 4814 010711 7004 RAL 4815 010712 3043 DCA OPEXP 4816 010713 1041 TAD OPSIGN 4817 010714 7004 RAL 4818 010715 3041 DCA OPSIGN 4819 010716 4247 JMS AL1 4820 010717 2200 ISZ FNORM 4821 010720 5277 JMP DIVLP 4822 010721 1041 TAD OPSIGN 4823 010722 3047 DCA AC1 4824 010723 1043 TAD OPEXP 4825 010724 3046 DCA AC2 4826 010725 1006 TAD OCNTR 4827 010726 3045 DCA AC3 4828 010727 5564 JMP I [FLOOP 4829 4830 010730 0000 NFIX, 0 4831 010731 1047 TAD AC1 4832 010732 7650 SNA CLA 4833 010733 5343 JMP ZFIXEX 4834 010734 1044 FIXLUP, TAD ACEXP 4835 010735 1374 TAD (-233 4836 010736 7700 SMA CLA 4837 010737 5350 JMP FIXEXT 4838 010740 4563 JMS I [AR1 4839 010741 2044 ISZ ACEXP 4840 010742 5334 JMP FIXLUP 4841 010743 3044 ZFIXEX, DCA ACEXP 4842 010744 3042 DCA ACSIGN 4843 010745 3047 DCA AC1 4844 010746 3046 DCA AC2 4845 010747 3045 DCA AC3 4846 010750 1045 FIXEXT, TAD AC3 4847 010751 5730 JMP I NFIX 4848 4849 010752 0000 MULT10, 0 4850 010753 4247 JMS AL1 4851 010754 1045 TAD AC3 4852 010755 3050 DCA OP3 4853 010756 1046 TAD AC2 4854 010757 3051 DCA OP2 4855 010760 1047 TAD AC1 4856 010761 3052 DCA OP1 4857 010762 4247 JMS AL1 4858 010763 4247 JMS AL1 4859 010764 4775 JMS I (OADD 4860 010765 5752 JMP I MULT10 4861 4862 010766 1544 FIXCON, 1544 4863 010767 1433 1433 4864 010770 6750 6750 4865 010771 0522 LIST7, 12^40+22 4866 010772 1360 LIST70 4867 010773 2021 -"O+337^100-"N+337 4868 4869 010774 7545 PAGE 010775 0434 010776 0415 010777 7743 4870 011000 0000 OFLIN, 0 4871 011001 1162 TAD [-11 4872 011002 3302 DCA DNUMBR 4873 011003 4303 JMS DECONV 4874 011004 1005 TAD OCHAR 4875 011005 1161 TAD [-".+200 4876 011006 7640 SZA CLA 4877 011007 5217 JMP FIGO1 4878 4879 011010 4425 OGETC 4880 011011 1302 TAD DNUMBR 4881 011012 3010 DCA FXR1 4882 011013 4324 JMS DECON 4883 011014 1302 TAD DNUMBR 4884 011015 7041 CIA 4885 011016 1010 TAD FXR1 4886 4887 011017 3010 FIGO1, DCA FXR1 4888 011020 1345 TAD C233 4889 011021 3044 DCA ACEXP 4890 011022 4407 FINT 4891 011023 6010 FNOR 4892 011024 7560 FPUT I [OTEMP 4893 011025 0000 FEXT 4894 011026 1302 TAD DNUMBR 4895 011027 1157 TAD [11 4896 011030 7650 SNA CLA 4897 011031 4424 ERR150, OERROR 4898 011032 1005 TAD OCHAR 4899 011033 1156 TAD [-"E+200 4900 011034 7640 SZA CLA 4901 011035 5255 JMP FIGO2 4902 4903 011036 4425 OGETC 4904 011037 7346 L7775 4905 011040 3302 DCA DNUMBR 4906 011041 4303 JMS DECONV 4907 011042 7326 L0002 4908 011043 1302 TAD DNUMBR 4909 011044 7710 SPA CLA 4910 011045 5231 JMP .-14 4911 011046 1042 TAD ACSIGN 4912 011047 7104 CLL RAL 4913 011050 1045 TAD AC3 4914 011051 7430 SZL 4915 011052 7041 CIA 4916 011053 1010 TAD FXR1 4917 011054 3010 DCA FXR1 4918 4919 011055 4407 FIGO2, FINT 4920 011056 0560 FGET I [OTEMP 4921 011057 0000 FEXT 4922 011060 1010 TAD FXR1 4923 011061 7450 SNA 4924 011062 5300 JMP FLINGO 4925 4926 011063 7710 SPA CLA 4927 011064 5271 JMP FIGO4 4928 011065 1010 TAD FXR1 4929 011066 7041 CIA 4930 011067 3010 DCA FXR1 4931 011070 1326 TAD M1000 4932 4933 011071 1154 FIGO4, TAD [FDIV I [TEN 4934 011072 3274 DCA .+2 4935 011073 4407 FIGO3, FINT 4936 011074 7402 HLT 4937 011075 0000 FEXT 4938 011076 2010 ISZ FXR1 4939 011077 5273 JMP FIGO3 4940 011100 6203 FLINGO, CIF CDF 4941 011101 5600 JMP I OFLIN 4942 4943 011102 0000 DNUMBR, 0 4944 011103 0000 DECONV, 0 4945 011104 3045 DCA AC3 4946 011105 3046 DCA AC2 4947 011106 3047 DCA AC1 4948 011107 3042 DCA ACSIGN 4949 011110 1005 TAD OCHAR 4950 011111 1153 TAD [-"++200 4951 011112 7450 SNA 4952 011113 5321 JMP .+6 4953 011114 7112 CLL RTR 4954 011115 7640 SZA CLA 4955 011116 5322 JMP .+4 4956 011117 7330 L4000 4957 011120 3042 DCA ACSIGN 4958 011121 4425 OGETC 4959 011122 4324 JMS DECON 4960 011123 5703 JMP I DECONV 4961 4962 011124 0000 DECON, 0 4963 011125 4426 OTESTN 4964 011126 7000 M1000, NOP 4965 011127 5724 JMP I DECON 4966 011130 4552 JMS I [MULT10 4967 011131 3052 DCA OP1 4968 011132 3051 DCA OP2 4969 011133 1005 TAD OCHAR 4970 011134 1151 TAD [-60 4971 011135 3050 DCA OP3 4972 011136 4550 JMS I [OADD 4973 011137 4425 OGETC 4974 011140 2302 ISZ DNUMBR 4975 011141 5325 JMP DECON+1 4976 011142 4424 ERR160, OERROR 4977 4978 011143 0000 OGETLN, 0 4979 011144 4426 OTESTN 4980 011145 0233 C233, 233 4981 011146 4424 ERR370, OERROR 4982 011147 1147 TAD [-6 4983 011150 3302 DCA DNUMBR 4984 011151 4303 JMS DECONV 4985 011152 1046 TAD AC2 4986 011153 7640 SZA CLA 4987 011154 5346 JMP OGETLN+3 4988 011155 1045 TAD AC3 4989 011156 7550 SPA SNA 4990 011157 5346 JMP OGETLN+3 4991 011160 6201 CDF 4992 011161 3546 DCA I [LINENO 4993 011162 1546 TAD I [LINENO 4994 011163 7001 IAC 4995 011164 7710 SPA CLA 4996 011165 5346 JMP OGETLN+3 4997 011166 6203 CIF CDF 4998 011167 5743 JMP I OGETLN 4999 5000 011170 0000 OPRINC, 0 5001 011171 6203 CIF CDF 5002 011172 4777 JMS I (XPRT1 5003 011173 5770 JMP I OPRINC 5004 5005 011174 4110 XGETL2, XGET5-1 /CR 5006 011175 4105 XGET4-1 /BELL 5007 011176 4101 XGET3-1 /SPACE 5008 5009 5010 011177 4765 PAGE 5011 011200 0000 OFLOUT, 0 5012 011201 1042 TAD ACSIGN 5013 011202 7710 SPA CLA 5014 011203 1377 TAD (55-40 5015 011204 1145 TAD [40 5016 011205 4423 OPRINTC 5017 011206 1047 TAD AC1 5018 011207 7640 SZA CLA 5019 011210 5214 JMP FOGO1 5020 011211 1376 TAD (60 5021 011212 4423 OPRINTC 5022 011213 5300 JMP FLOXIT 5023 5024 011214 4775 FOGO1, JMS I (FIXUP 5025 011215 1374 TAD (-7 5026 011216 3006 DCA OCNTR 5027 011217 1373 TAD (NUMBUF-1 5028 011220 3010 DCA FXR1 5029 011221 5226 JMP .+5 5030 5031 011222 1047 FOGO2, TAD AC1 5032 011223 0172 AND [177 5033 011224 3047 DCA AC1 5034 011225 4772 JMS I (MULT10 5035 011226 1047 TAD AC1 5036 011227 7106 CLL RTL 5037 011230 7006 RTL 5038 011231 7006 RTL 5039 011232 0371 AND (17 5040 011233 1376 TAD (60 5041 011234 3410 DCA I FXR1 5042 011235 2006 ISZ OCNTR 5043 011236 5222 JMP FOGO2 5044 5045 011237 1373 TAD (NUMBUF-1 5046 011240 3010 DCA FXR1 5047 011241 7326 L0002 5048 011242 1773 TAD I (DECEXP 5049 011243 7450 SNA 5050 011244 5302 JMP FOGO4 5051 011245 7510 SPA 5052 011246 5252 JMP FOGO3 5053 011247 1370 TAD (-10 5054 011250 7710 SPA CLA 5055 011251 5306 JMP FOGO5 5056 011252 7200 FOGO3, CLA 5057 011253 1410 TAD I FXR1 5058 011254 4423 OPRINTC 5059 011255 1367 TAD (".-200 5060 011256 4423 OPRINTC 5061 011257 1147 TAD [-6 5062 011260 3006 DCA OCNTR 5063 011261 1410 TAD I FXR1 5064 011262 4423 OPRINTC 5065 011263 2006 ISZ OCNTR 5066 011264 5261 JMP .-3 5067 011265 1366 TAD ("E-200 5068 011266 4423 OPRINTC 5069 011267 1773 TAD I (DECEXP 5070 011270 7710 SPA CLA 5071 011271 7326 L0002 5072 011272 1365 TAD ("+-200 5073 011273 4423 OPRINTC 5074 011274 1773 TAD I (DECEXP 5075 011275 7510 SPA 5076 011276 7041 CIA 5077 011277 2200 ISZ OFLOUT 5078 011300 6203 FLOXIT, CIF CDF 5079 011301 5600 JMP I OFLOUT 5080 5081 011302 1367 FOGO4, TAD (".-200 5082 011303 4423 OPRINTC 5083 011304 1376 TAD (60 5084 011305 4423 OPRINTC 5085 011306 1374 FOGO5, TAD (-7 5086 011307 3006 DCA OCNTR 5087 011310 1364 TAD (NUMBUF+6 5088 011311 3056 FOGO6, DCA TEMPX 5089 011312 1456 TAD I TEMPX 5090 011313 1151 TAD [-60 5091 011314 7640 SZA CLA 5092 011315 5322 JMP FOGO7 5093 011316 2006 ISZ OCNTR 5094 011317 7340 L7777 5095 011320 1056 TAD TEMPX 5096 011321 5311 JMP FOGO6 5097 5098 011322 1773 FOGO7, TAD I (DECEXP 5099 011323 1006 TAD OCNTR 5100 011324 7710 SPA CLA 5101 011325 5331 JMP .+4 5102 011326 1773 TAD I (DECEXP 5103 011327 7040 CMA 5104 011330 3006 DCA OCNTR 5105 011331 7344 L7776 5106 011332 7040 FOGO8, CMA 5107 011333 1773 TAD I (DECEXP 5108 011334 7440 SZA 5109 011335 5340 JMP .+3 5110 011336 1367 TAD (".-200 5111 011337 4423 OPRINTC 5112 011340 3773 DCA I (DECEXP 5113 011341 1410 TAD I FXR1 5114 011342 4423 OPRINTC 5115 011343 2006 ISZ OCNTR 5116 011344 5332 JMP FOGO8 5117 011345 5300 JMP FLOXIT 5118 5119 011346 2045 TEN, 2045 5120 011347 0000 0 5121 011350 0000 0 5122 5123 011351 2230 MODL2, MODF5-1 /CR 5124 011352 2206 MODF2-1 /BELL 5125 011353 2222 MODF4-1 /RUBOUT 5126 011354 2222 MODF4-1 /_ 5127 011355 2213 MODF1 /CHAR 5128 011356 2212 MODF1-1 /FORM 5129 011357 2210 MODF3-1 /LINE FEED 5130 011360 0574 LIST70, 13^40+34 5131 011361 2552 LIST71 5132 011362 1413 337-"S^100-"T+337 5133 011363 2017 337-"O^100-"P+337 5134 5135 5136 011364 1533 PAGE 011365 0053 011366 0105 011367 0056 011370 7770 011371 0017 011372 0752 011373 1524 011374 7771 011375 1400 011376 0060 011377 0015 5137 011400 0000 FIXUP, 0 5138 011401 1044 TAD ACEXP 5139 011402 1204 TAD .+2 5140 011403 3044 DCA ACEXP 5141 011404 7610 CLA SKP /THIS IS 7610 OR -170 5142 5143 011405 1324 FIXUP4, TAD DECEXP 5144 011406 3324 DCA DECEXP 5145 011407 1047 FIXUP1, TAD AC1 5146 011410 7006 RTL 5147 011411 7630 SZL CLA 5148 011412 5220 JMP FIXUP2 5149 011413 4777 JMS I (AL1 5150 011414 7340 L7777 5151 011415 1044 TAD ACEXP 5152 011416 3044 DCA ACEXP 5153 011417 5207 JMP FIXUP1 5154 5155 011420 1044 FIXUP2, TAD ACEXP 5156 011421 7540 SMA SZA 5157 011422 5236 JMP FIXUP3 5158 011423 7200 CLA 5159 011424 4563 JMS I [AR1 5160 011425 4563 JMS I [AR1 5161 011426 4563 JMS I [AR1 5162 011427 4563 JMS I [AR1 5163 011430 4776 JMS I (MULT10 5164 011431 1044 TAD ACEXP 5165 011432 1322 TAD FIXC4 5166 011433 3044 DCA ACEXP 5167 011434 7340 L7777 5168 011435 5205 JMP FIXUP4 5169 5170 011436 1375 FIXUP3, TAD (-5 5171 011437 7510 SPA 5172 011440 5271 JMP FIXUP5 5173 011441 7300 FIXUP7, CLL CLA 5174 011442 1374 TAD (-40 5175 011443 3006 DCA OCNTR 5176 011444 1047 FIXUP8, TAD AC1 5177 011445 1373 TAD (5400 5178 011446 7500 SMA 5179 011447 3047 DCA AC1 5180 011450 7200 CLA 5181 011451 1045 TAD AC3 5182 011452 7004 RAL 5183 011453 3045 DCA AC3 5184 011454 1046 TAD AC2 5185 011455 7004 RAL 5186 011456 3046 DCA AC2 5187 011457 1047 TAD AC1 5188 011460 7004 RAL 5189 011461 3047 DCA AC1 5190 011462 2006 ISZ OCNTR 5191 011463 5244 JMP FIXUP8 5192 011464 1047 TAD AC1 5193 011465 0372 AND (377 5194 011466 3047 DCA AC1 5195 011467 7301 L0001 5196 011470 5205 JMP FIXUP4 5197 5198 011471 3006 FIXUP5, DCA OCNTR 5199 011472 7410 SKP 5200 011473 4563 JMS I [AR1 5201 011474 2006 ISZ OCNTR 5202 011475 5273 JMP .-2 5203 011476 1047 TAD AC1 5204 011477 1373 TAD (5400 5205 011500 7700 SMA CLA 5206 011501 5241 JMP FIXUP7 5207 011502 7100 CLL 5208 011503 1371 TAD (2166 5209 011504 1045 TAD AC3 5210 011505 3045 DCA AC3 5211 011506 7430 SZL 5212 011507 2046 ISZ AC2 5213 011510 7410 SKP 5214 011511 2047 ISZ AC1 5215 011512 1047 TAD AC1 5216 011513 1373 TAD (5400 5217 011514 7640 SZA CLA 5218 011515 5600 JMP I FIXUP 5219 5220 011516 1173 TAD [200 5221 011517 3047 DCA AC1 5222 011520 3045 DCA AC3 5223 011521 2324 ISZ DECEXP 5224 011522 0004 FIXC4, 4 5225 011523 5600 JMP I FIXUP 5226 5227 011524 0000 DECEXP, 0 5228 5229 011525 0000 NUMBUF, ZBLOCK 7 011526 0000 011527 0000 011530 0000 011531 0000 011532 0000 011533 0000 5230 5231 FATNC=NUMBUF 5232 OTEMP=NUMBUF+3 5233 011534 0000 FIX2, 0 5234 011535 4407 FINT 5235 011536 6150 FSLE 5236 011537 1770 FADD I (FIXCON 5237 011540 6100 FSGE 5238 011541 2770 FSUB I (FIXCON 5239 011542 0000 FEXT 5240 011543 4767 JMS I (NFIX 5241 011544 7110 CLL RAR 5242 011545 1042 TAD ACSIGN 5243 011546 7004 RAL 5244 011547 7430 SZL 5245 011550 7041 CIA 5246 011551 3200 DCA FIXUP 5247 011552 7100 CLL 5248 011553 1047 TAD AC1 5249 011554 7450 SNA 5250 011555 1046 TAD AC2 5251 011556 7640 SZA CLA 5252 011557 7120 CLL CML 5253 011560 1200 TAD FIXUP 5254 011561 5734 JMP I FIX2 5255 5256 011562 0775 LIST75, 17^40+35 5257 011563 4720 LIST76 5258 011564 3020 337-"G^100-"O+337 5259 011565 1412 337-"S^100-"U+337 5260 011566 3500 337-"B^100 5261 011567 0730 PAGE 011570 0766 011571 2166 011572 0377 011573 5400 011574 7740 011575 7773 011576 0752 011577 0647 5262 011600 4407 OSQR, FINT 5263 011601 7336 FPUT FSINZ 5264 011602 6040 FSNE 5265 011603 5235 FJMP SQEXIT 5266 011604 0000 FEXT 5267 011605 1042 TAD ACSIGN 5268 011606 7710 SPA CLA 5269 011607 4424 ERR020, OERROR 5270 011610 1044 TAD ACEXP 5271 011611 1377 TAD (7600 5272 011612 7100 CLL 5273 011613 7510 SPA 5274 011614 7020 CML 5275 011615 7010 RAR 5276 011616 1173 TAD [200 5277 011617 3044 DCA ACEXP 5278 011620 1376 TAD (-10 5279 011621 3237 DCA SQCNT 5280 011622 4407 SQLOOP, FINT 5281 011623 7341 FPUT FSINZZ 5282 011624 0336 FGET FSINZ 5283 011625 4341 FDIV FSINZZ 5284 011626 1341 FADD FSINZZ 5285 011627 0000 FEXT 5286 011630 7340 L7777 5287 011631 1044 TAD ACEXP 5288 011632 3044 DCA ACEXP 5289 011633 2237 ISZ SQCNT 5290 011634 5222 JMP SQLOOP 5291 011635 0000 SQEXIT, FEXT 5292 011636 5427 OPOPJ 5293 5294 011637 0000 SQCNT, 0 5295 011640 4407 OTAN, FINT 5296 011641 7775 FPUT I (OTEMP 5297 011642 0000 FEXT 5298 011643 4430 OPUSHJ 5299 011644 5461 COS 5300 011645 4407 FINT 5301 011646 7774 FPUT I (FATNC 5302 011647 0775 FGET I (OTEMP 5303 011650 0000 FEXT 5304 011651 4430 OPUSHJ 5305 011652 5462 FSIN 5306 011653 4407 FINT 5307 011654 4774 FDIV I (FATNC 5308 011655 0000 FEXT 5309 011656 5427 OPOPJ 5310 5311 011657 4407 OCOS, FINT 5312 011660 1363 FADD FSINC7 5313 011661 6000 FSKP 5314 011662 4407 OFSIN, FINT 5315 011663 4344 FDIV FSINC1 5316 011664 7336 FPUT FSINZ 5317 011665 0000 FEXT 5318 011666 4430 OPUSHJ 5319 011667 5456 FFIX 5320 011670 7330 L4000 5321 011671 1042 TAD ACSIGN 5322 011672 3042 DCA ACSIGN 5323 011673 4407 FINT 5324 011674 1336 FADD FSINZ 5325 011675 0000 FEXT 5326 011676 2044 ISZ ACEXP 5327 011677 2044 ISZ ACEXP 5328 011700 4407 FINT 5329 011701 7336 FSINXX, FPUT FSINZ 5330 011702 0000 FEXT 5331 011703 3042 DCA ACSIGN 5332 011704 4407 FINT 5333 011705 2773 FSUB I (OFLTONE 5334 011706 6140 FSGT 5335 011707 5320 FJMP FSINOK 5336 011710 0336 FGET FSINZ 5337 011711 0000 FEXT 5338 011712 4430 OPUSHJ 5339 011713 5007 SGN 5340 011714 2044 ISZ ACEXP 5341 011715 4407 FINT 5342 011716 2336 FSUB FSINZ 5343 011717 5301 FJMP FSINXX 5344 011720 0336 FSINOK, FGET FSINZ 5345 011721 3336 FMUL FSINZ 5346 011722 7341 FPUT FSINZZ 5347 011723 3347 FMUL FSINC3 5348 011724 1352 FADD FSINC4 5349 011725 3341 FMUL FSINZZ 5350 011726 1355 FADD FSINC5 5351 011727 3341 FMUL FSINZZ 5352 011730 1360 FADD FSINC6 5353 011731 3341 FMUL FSINZZ 5354 011732 1363 FADD FSINC7 5355 011733 3336 FMUL FSINZ 5356 011734 0000 FEXT 5357 011735 5427 OPOPJ 5358 5359 011736 0000 FSINZ, 0;0;0 011737 0000 011740 0000 5360 011741 0000 FSINZZ, 0;0;0 011742 0000 011743 0000 5361 011744 2036 FSINC1, 2036;2207;7325 011745 2207 011746 7325 5362 011747 1644 FSINC3, 1644;7553;6722 011750 7553 011751 6722 5363 011752 5714 FSINC4, 5714;6223;1423 011753 6223 011754 1423 5364 011755 1755 FSINC5, 1755;632;1276 011756 0632 011757 1276 5365 011760 6005 FSINC6, 6005;1256;7406 011761 1256 011762 7406 5366 011763 2016 FSINC7, 2016;2207;7325 011764 2207 011765 7325 5367 5368 011766 2014 OFLTONE, 2014 5369 011767 0000 OFLZERO, 0 5370 011770 0000 0 5371 011771 0000 0 5372 5373 011773 1766 PAGE 011774 1525 011775 1530 011776 7770 011777 7600 5374 012000 4407 OFEXP, FINT 5375 012001 4257 FDIV FEXPC1 5376 012002 7777 FPUT I (FEXPU 5377 012003 0000 FEXT 5378 012004 4430 OPUSHJ 5379 012005 5455 INT 5380 012006 7330 L4000 5381 012007 1042 TAD ACSIGN 5382 012010 3042 DCA ACSIGN 5383 012011 4407 FINT 5384 012012 7254 FPUT FEXPI 5385 012013 1777 FADD I (FEXPU 5386 012014 7776 FPUT I (FEXPF 5387 012015 3776 FMUL I (FEXPF 5388 012016 1262 FADD FEXPC2 5389 012017 7777 FPUT I (FEXPU 5390 012020 0254 FGET FEXPI 5391 012021 0000 FEXT 5392 012022 4775 JMS I (FIX2 5393 012023 7041 CIA 5394 012024 7001 IAC 5395 012025 3254 DCA FEXPI 5396 012026 4407 FINT 5397 012027 0265 FGET FEXPC3 5398 012030 4777 FDIV I (FEXPU 5399 012031 1270 FADD FEXPC4 5400 012032 2776 FSUB I (FEXPF 5401 012033 7777 FPUT I (FEXPU 5402 012034 0776 FGET I (FEXPF 5403 012035 3776 FMUL I (FEXPF 5404 012036 3273 FMUL FEXPC5 5405 012037 1777 FADD I (FEXPU 5406 012040 7777 FPUT I (FEXPU 5407 012041 0776 FGET I (FEXPF 5408 012042 4777 FDIV I (FEXPU 5409 012043 1276 FADD FEXPC6 5410 012044 0000 FEXT 5411 012045 1044 TAD ACEXP 5412 012046 1254 TAD FEXPI 5413 012047 3044 DCA ACEXP 5414 012050 4407 FINT 5415 012051 6010 FNOR 5416 012052 0000 FEXT 5417 012053 5427 OPOPJ 5418 5419 012054 0000 FEXPI, 0;0;0 012055 0000 012056 0000 5420 FEXPU=FSINZ 5421 FEXPF=FSINZZ 5422 012057 2005 FEXPC1, 2005;4271;300 012060 4271 012061 0300 5423 012062 2075 FEXPC2, 2075;3552;7022 012063 3552 012064 7022 5424 012065 6124 FEXPC3, 6124;6477;715 012066 6477 012067 0715 5425 012070 2044 FEXPC4, 2044;7643;62 012071 7643 012072 0062 5426 012073 1744 FEXPC5, 1744;3372;3400 012074 3372 012075 3400 5427 012076 2004 FEXPC6, 2004;0;0 012077 0000 012100 0000 5428 012101 4770 OLOG, JMS I PHIGHWD 5429 012102 7750 SPA SNA CLA 5430 012103 4424 ERR010, OERROR 5431 012104 1044 TAD ACEXP 5432 012105 3355 DCA LOGEXP 5433 012106 1360 TAD L200 5434 012107 3044 DCA ACEXP 5435 012110 4407 FINT 5436 012111 7777 FPUT I (FEXPU 5437 012112 1340 FADD FLOGC1 5438 012113 7776 FPUT I (FEXPF 5439 012114 0777 FGET I (FEXPU 5440 012115 2340 FSUB FLOGC1 5441 012116 4776 FDIV I (FEXPF 5442 012117 7776 FPUT I (FEXPF 5443 012120 3776 FMUL I (FEXPF 5444 012121 3343 FMUL FLOGC2 5445 012122 1346 FADD FLOGC3 5446 012123 3776 FMUL I (FEXPF 5447 012124 3776 FMUL I (FEXPF 5448 012125 1351 FADD FLOGC4 5449 012126 3776 FMUL I (FEXPF 5450 012127 2276 FSUB FEXPC6 5451 012130 7776 FPUT I (FEXPF 5452 012131 0354 FGET LOGFWD 5453 012132 2357 FSUB LOGOKW 5454 012133 1776 FADD I (FEXPF 5455 012134 3257 FMUL FEXPC1 5456 012135 1774 FADD I (FLZERO 5457 012136 0000 FEXT 5458 012137 5427 OPOPJ 5459 5460 012140 2005 FLOGC1, 2005;5202;3632 012141 5202 012142 3632 5461 012143 2004 FLOGC2, 2004;6253;2521 012144 6253 012145 2521 5462 012146 2007 FLOGC3, 2007;5421;3604 012147 5421 012150 3604 5463 012151 2025 FLOGC4, 2025;6125;1007 012152 6125 012153 1007 5464 012154 2174 LOGFWD, 2174 5465 012155 0000 LOGEXP, 0 5466 012156 0000 0 5467 012157 2174 LOGOKW, 2174 5468 012160 0200 L200, 200 5469 012161 0000 0 5470 5471 012162 0000 FIX1, 0 /FIELD 0 'INTEGER' 5472 012163 4771 JMS I PFIX2 5473 012164 6203 CIF CDF 5474 012165 5762 JMP I FIX1 5475 5476 012166 2230 MODL1, MODF5-1 /CR 5477 012167 2220 MODF1+5 /BELL 5478 012170 0347 PHIGHWD,HIGHWD /RUBOUT 5479 012171 1534 PFIX2, FIX2 /_ 5480 012172 2222 MODF4-1 /CHAR 5481 5482 012174 3571 PAGE 012175 1534 012176 1741 012177 1736 5483 012200 0000 ATNSGN, 0 5484 5485 012201 1042 OATN, TAD ACSIGN 5486 012202 3200 DCA ATNSGN 5487 012203 3042 DCA ACSIGN 5488 012204 4407 FINT 5489 012205 7777 FPUT I (FATNT 5490 012206 7776 FPUT I (FATNAX 5491 012207 2275 FSUB FATNC1 5492 012210 6140 FSGT 5493 012211 5265 FJMP ATNBIG 5494 012212 2300 FSUB FATNC2 5495 012213 6140 FSGT 5496 012214 5220 FJMP ATNLOW 5497 012215 0775 FGET I (OFLTONE 5498 012216 4777 FDIV I (FATNT 5499 012217 7777 FPUT I (FATNT 5500 012220 0774 ATNLOW, FGET I (OFLZERO 5501 012221 7773 FPUT I (FATNC 5502 012222 0777 FGET I (FATNT 5503 012223 2303 FSUB FATNC3 5504 012224 6100 FSGE 5505 012225 5237 FJMP ATNNOT 5506 012226 0777 FGET I (FATNT 5507 012227 1306 FADD FATNC4 5508 012230 7777 FPUT I (FATNT 5509 012231 0272 FGET FATNCJ 5510 012232 4777 FDIV I (FATNT 5511 012233 1306 FADD FATNC4 5512 012234 7777 FPUT I (FATNT 5513 012235 0311 FGET FATNC5 5514 012236 7773 FPUT I (FATNC 5515 012237 0777 ATNNOT, FGET I (FATNT 5516 012240 3777 FMUL I (FATNT 5517 012241 7772 FPUT I (FATNTT 5518 012242 0314 FGET FATNC6 5519 012243 3772 FMUL I (FATNTT 5520 012244 1317 FADD FATNC7 5521 012245 3772 FMUL I (FATNTT 5522 012246 1322 FADD FATNC8 5523 012247 3772 FMUL I (FATNTT 5524 012250 1325 FADD FATNC9 5525 012251 3772 FMUL I (FATNTT 5526 012252 1775 FADD I (OFLTONE 5527 012253 3777 FMUL I (FATNT 5528 012254 1773 FADD I (FATNC 5529 012255 7777 FPUT I (FATNT 5530 012256 0776 FGET I (FATNAX 5531 012257 2775 FSUB I (OFLTONE 5532 012260 6140 FSGT 5533 012261 5265 FJMP ATNBIG 5534 012262 0771 FGET I (FSINC7 5535 012263 2777 FSUB I (FATNT 5536 012264 7777 FPUT I (FATNT 5537 012265 0777 ATNBIG, FGET I (FATNT 5538 012266 0000 FEXT 5539 012267 1200 TAD ATNSGN 5540 012270 3042 DCA ACSIGN 5541 012271 5427 OPOPJ 5542 5543 FATNAX=FSINZ 5544 FATNT=FSINZZ 5545 FATNTT=FEXPI 5546 012272 6034 FATNCJ, 6034;0;0 012273 0000 012274 0000 5547 012275 1634 FATNC1, 1634;0;0 012276 0000 012277 0000 5548 012300 2007 FATNC2, 2007;7776;0 012301 7776 012302 0000 5549 012303 1774 FATNC3, 1774;2230;2427 012304 2230 012305 2427 5550 012306 2016 FATNC4, 2016;7331;7272 012307 7331 012310 7272 5551 012311 2004 FATNC5, 2004;1405;2216 012312 1405 012313 2216 5552 012314 1756 FATNC6, 1756;462;4562 012315 0462 012316 4562 5553 012317 5764 FATNC7, 5764;4221;3403 012320 4221 012321 3403 5554 012322 1766 FATNC8, 1766;3141;6672 012323 3141 012324 6672 5555 012325 5775 FATNC9, 5775;2525;2377 012326 2525 012327 2377 5556 012330 0015 XCCR, 15 5557 012331 0007 7 5558 012332 0177 177 5559 012333 0137 137 5560 012334 0000 0 5561 012335 0014 14 5562 012336 0012 12 5563 5564 012337 1042 OINT, TAD ACSIGN 5565 012340 7700 SMA CLA 5566 012341 5360 JMP OFFIX 5567 012342 4407 FINT 5568 012343 7770 FPUT I (OTEMP 5569 012344 0000 FEXT 5570 012345 4430 OPUSHJ 5571 012346 5456 FFIX 5572 012347 4407 FINT 5573 012350 6770 FCMP I (OTEMP 5574 012351 6040 FSNE 5575 012352 5356 FJMP .+4 5576 012353 0770 FGET I (OTEMP 5577 012354 2775 FSUB I (OFLTONE 5578 012355 5357 FJMP .+2 5579 012356 0770 FGET I (OTEMP 5580 012357 0000 FEXT 5581 5582 012360 4767 OFFIX, JMS I (FIX2 5583 012361 4407 FINT 5584 012362 6010 FNOR 5585 012363 0000 FEXT 5586 012364 6203 OPOPJX, CIF CDF 5587 012365 5766 JMP I (XPOPJ 5588 5589 5590 012366 5704 PAGE 012367 1534 012370 1530 012371 1763 012372 2054 012373 1525 012374 1767 012375 1766 012376 1736 012377 1741 5591 012400 0002 IF4, 2 /< 5592 012401 0006 6 /> 5593 012402 0012 12 /= 5594 012403 0005 5 /<= 5595 012404 0011 11 />= 5596 012405 0004 4 /<> 5597 012406 4777 ORND, JMS I (AL1 /FLAC=FLAC*2 5598 012407 4776 JMS I (OADD /FLAC=FLAC+FLAC*2=FLAC*3 5599 012410 6201 CDF 5600 012411 1775 TAD I (FRNDX+2 /MULT BY 2^17 MOD 2^27 5601 012412 7106 CLL RTL 5602 012413 7006 RTL 5603 012414 7006 RTL 5604 012415 3774 DCA I (FRNDX 5605 012416 1774 TAD I (FRNDX 5606 012417 7010 RAR 5607 012420 1046 TAD AC2 5608 012421 0373 AND (7740 5609 012422 3772 DCA I (FRNDX+1 5610 012423 7004 RAL 5611 012424 1047 TAD AC1 5612 012425 1774 TAD I (FRNDX 5613 012426 3774 DCA I (FRNDX 5614 012427 1045 TAD AC3 5615 012430 3775 DCA I (FRNDX+2 5616 012431 1371 TAD (200 5617 012432 3044 DCA ACEXP 5618 012433 3042 DCA ACSIGN 5619 012434 1774 TAD I (FRNDX 5620 012435 0370 AND (7 5621 012436 3047 DCA AC1 5622 012437 1772 TAD I (FRNDX+1 5623 012440 3046 DCA AC2 5624 012441 5427 OPOPJ 5625 5626 012442 0000 OTESTX, 0 5627 012443 1242 TAD OTESTX 5628 012444 6203 CIF CDF 5629 012445 3767 DCA I (OTEST2 5630 012446 5766 JMP I (OTEST2+1 5631 5632 012447 0000 OPUSHX, 0 5633 012450 1647 TAD I OPUSHX 5634 012451 6203 CIF CDF 5635 012452 3765 DCA I (T3 5636 012453 1247 TAD OPUSHX 5637 012454 7001 IAC 5638 012455 5764 JMP I (OPUSJ1 5639 5640 012456 0000 OGETCX, 0 5641 012457 6203 CIF CDF 5642 012460 4763 JMS I (GETCX1 5643 012461 5656 JMP I OGETCX 5644 5645 012462 0000 OERRX, 0 5646 012463 7200 CLA 5647 012464 6203 CIF CDF 5648 012465 1262 TAD OERRX 5649 012466 3762 DCA I (XERROR 5650 012467 5761 JMP I (XERROR+1 5651 5652 012470 3626 XPAKL2, XPACK2-1 /CR 5653 012471 3627 XPACK3-1 /BELL 5654 012472 3636 XPACK7-1 /RUBOUT 5655 012473 3636 XPACK7-1 / 5656 012474 3625 XPACK5-1 /@ 5657 012475 3603 XXPAK-1 /SPACE (KLUDGE!!) 5658 5659 5660 5661 012476 2534 LIST15, 52^40+34 5662 012477 2502 LIST16 5663 012500 1436 -"S+337^100-"A+337 5664 012501 1132 -"V+337^100-"E+337 5665 5666 012502 2576 LIST16, 53^40+36 5667 012503 2507 LIST17 5668 012504 1221 -"U+337^100-"N+337 5669 012505 1436 -"S+337^100-"A+337 5670 012506 1132 -"V+337^100-"E+337 5671 5672 012507 2637 LIST17, 54^40+37 5673 012510 2515 LIST18 5674 012511 3436 -"C+337^100-"A+337 5675 012512 1336 -"T+337^100-"A+337 5676 012513 2320 -"L+337^100-"O+337 5677 012514 3000 -"G+337^100 5678 5679 012515 0375 LIST18, 7^40+35 5680 012516 2522 LIST19 5681 012517 3427 -"C+337^100-"H+337 5682 012520 3626 -"A+337^100-"I+337 5683 012521 2100 -"N+337^100 5684 5685 012522 0176 LIST19, 3^40+36 5686 012523 2527 LIST20 5687 012524 1536 -"R+337^100-"A+337 5688 012525 2133 -"N+337^100-"D+337 5689 012526 2022 -"O+337^100-"M+337 5690 5691 012527 0334 LIST20, 6^40+34 5692 012530 2533 LIST21 5693 012531 2017 -"O+337^100-"P+337 5694 012532 3221 -"E+337^100-"N+337 5695 5696 012533 0236 LIST21, 4^40+36 5697 012534 2540 LIST22 5698 012535 2012 -"O+337^100-"U+337 5699 012536 1317 -"T+337^100-"P+337 5700 012537 1213 -"U+337^100-"T+337 5701 5702 012540 0275 LIST22, 5^40+35 5703 012541 2545 LIST23 5704 012542 3423 -"C+337^100-"L+337 5705 012543 2014 -"O+337^100-"S+337 5706 012544 3200 -"E+337^100 5707 5708 012545 2676 LIST23, 55^40+36 5709 012546 3714 LIST24 5710 012547 1532 -"R+337^100-"E+337 5711 012550 2136 -"N+337^100-"A+337 5712 012551 2232 -"M+337^100-"E+337 5713 012552 0473 LIST71, 11^40+33 5714 012553 3374 LIST72 5715 012554 3221 337-"E^100-"N+337 5716 012555 3300 337-"D^100 5717 5718 5719 012561 3523 PAGE 012562 3522 012563 4161 012564 1564 012565 0112 012566 5653 012567 5652 012570 0007 012571 0200 012572 0104 012573 7740 012574 0103 012575 0105 012576 0434 012577 0647 5720 012600 0000 XENTER, 0 /OS/8 DIRECTORY 'ENTER' 5721 012601 3057 DCA TEMPX1 /BLOCKS NEEDED 5722 012602 4435 GETCAT 5723 012603 1057 TAD TEMPX1 /ENTER OR CLOSE? 5724 012604 7650 SNA CLA 5725 012605 5303 JMP ENTXIT 5726 012606 3064 DCA FOUND 5727 012607 1412 MLOOP, TAD I XR1 5728 012610 7650 SNA CLA 5729 012611 5310 JMP MEMPTY 5730 012612 1144 TAD [3 5731 012613 4436 BUMPXR 5732 012614 1412 MLOOP2, TAD I XR1 5733 012615 7041 CIA 5734 012616 1061 TAD BLOCK 5735 012617 3061 DCA BLOCK 5736 012620 2063 ISZ ENTRIES 5737 012621 5207 JMP MLOOP 5738 012622 1064 TAD FOUND 5739 012623 7650 SNA CLA 5740 012624 5304 JMP ENTXIT+1 5741 012625 1056 TAD TEMPX 5742 012626 3061 DCA BLOCK 5743 012627 1012 TAD XR1 5744 012630 3056 DCA TEMPX 5745 012631 1143 TAD [4 5746 012632 4436 BUMPXR 5747 012633 1012 TAD XR1 5748 012634 1142 TAD [-DIRBUF-370 5749 012635 7700 SMA CLA 5750 012636 5304 JMP ENTXIT+1 5751 012637 2200 ISZ XENTER 5752 012640 1456 MLOOP3, TAD I TEMPX /BUMP UP CATALOG TO MAKE ROOM 5753 012641 3412 DCA I XR1 5754 012642 7344 CLA CLL CMA RAL 5755 012643 1012 TAD XR1 5756 012644 3012 DCA XR1 5757 012645 7240 CLA CMA 5758 012646 1056 TAD TEMPX 5759 012647 3056 DCA TEMPX 5760 012650 1056 TAD TEMPX 5761 012651 7161 CLL CML CIA 5762 012652 1064 TAD FOUND 5763 012653 7670 SZL SNA CLA 5764 012654 5240 JMP MLOOP3 5765 012655 1064 TAD FOUND 5766 012656 3012 DCA XR1 5767 012657 1015 TAD NAMEX 5768 012660 3412 DCA I XR1 5769 012661 1016 TAD NAMEX+1 5770 012662 3412 DCA I XR1 5771 012663 1017 TAD NAMEX+2 5772 012664 3412 DCA I XR1 5773 012665 1066 TAD EXTEN /".EX" EXTENSION 5774 012666 3412 DCA I XR1 5775 012667 3412 DCA I XR1 5776 012670 7240 CLA CMA 5777 012671 4436 BUMPXR 5778 012672 3412 DCA I XR1 /0 LENGTH 5779 012673 1012 TAD XR1 5780 012674 3064 DCA FOUND 5781 012675 7240 CLA CMA 5782 012676 1541 TAD I [DIRBUF /# OF ENTRIES 5783 012677 3541 DCA I [DIRBUF 5784 012700 1061 TAD BLOCK /CLOSE CHANGES IT 5785 012701 3355 DCA BLKHLD 5786 012702 1057 TAD TEMPX1 5787 012703 4434 ENTXIT, CLOSE 5788 012704 1355 TAD BLKHLD /RESTORE BLOCK 5789 012705 3061 DCA BLOCK 5790 012706 6203 CIF CDF 5791 012707 5600 JMP I XENTER 5792 5793 012710 1064 MEMPTY, TAD FOUND /FIRST FIT - NOT BEST FIT 5794 012711 7640 SZA CLA 5795 012712 5214 JMP MLOOP2 5796 012713 1412 TAD I XR1 5797 012714 7041 CIA 5798 012715 3056 DCA TEMPX 5799 012716 1057 TAD TEMPX1 5800 012717 7141 CLL CIA 5801 012720 1056 TAD TEMPX 5802 012721 7620 SNL CLA 5803 012722 5330 JMP MNOCHG 5804 012723 7344 CLA CLL CMA RAL 5805 012724 1012 TAD XR1 5806 012725 3064 DCA FOUND 5807 012726 1061 TAD BLOCK 5808 012727 3056 DCA TEMPX 5809 012730 1056 MNOCHG, TAD TEMPX 5810 012731 5216 JMP MLOOP2+2 5811 5812 012732 0000 XSETPT, 0 5813 012733 1541 TAD I [DIRBUF 5814 012734 3063 DCA ENTRIES 5815 012735 1540 TAD I [DIRBUF+1 5816 012736 3061 DCA BLOCK 5817 012737 1537 TAD I [DIRBUF+4 5818 012740 7041 CIA 5819 012741 3062 DCA WASTE 5820 012742 1137 TAD [DIRBUF+4 5821 012743 3012 DCA XR1 5822 012744 5732 JMP I XSETPT 5823 5824 012745 0000 XGETCAT, 0 5825 012746 7301 CLA CLL IAC /READ 5826 012747 4431 DECTAPE 5827 012750 4220 DIRBUF 5828 012751 7400 7400 5829 012752 0002 2 5830 012753 4440 SETPT 5831 012754 5745 JMP I XGETCAT 5832 5833 BLKHLD=. 5834 012755 0000 FLOOK, 0 /GET CATALOG AND LOOKUP 5835 012756 4435 GETCAT 5836 012757 4437 DIRSCH 5837 012760 5033 ERROX 5838 012761 6203 CIF CDF 5839 012762 5755 JMP I FLOOK /THAT WAS EASY 5840 5841 5842 012763 1222 LIST82, 24^40+22 5843 012764 4073 LIST83 5844 012765 2631 337-"I^100-"F+337 5845 012766 2777 LIST25, 57^40+37 5846 012767 2774 LIST26 5847 012770 3126 -"F+337^100-"I+337 5848 012771 2332 -"L+337^100-"E+337 5849 012772 2320 -"L+337^100-"O+337 5850 012773 3000 -"G+337^100 5851 5852 012774 3034 LIST26, 60^40+34 5853 012775 4620 LIST14 5854 012776 3427 -"C+337^100-"H+337 5855 012777 1573 -"R+337^100-"$+337 5856 5857 5858 5859 5860 PAGE 5861 013000 0000 XDIRSCH, 0 5862 013001 4440 SETPT 5863 013002 1412 SCHLP, TAD I XR1 5864 013003 7650 SNA CLA 5865 013004 5242 JMP SKPMTF 5866 013005 7240 CLA CMA 5867 013006 1012 TAD XR1 5868 013007 3012 DCA XR1 5869 013010 7346 CLA CLL CMA RTL 5870 013011 3251 DCA XBUMPXR 5871 013012 1136 TAD [NAMEX-1 5872 013013 3014 DCA XR3 5873 013014 1414 SRCWDL, TAD I XR3 5874 013015 7041 CIA 5875 013016 1412 TAD I XR1 5876 013017 7640 SZA CLA 5877 013020 5237 JMP NXTFIL 5878 013021 2251 ISZ XBUMPXR 5879 013022 5214 JMP SRCWDL 5880 013023 1066 TAD EXTEN 5881 013024 7041 CIA 5882 013025 1412 TAD I XR1 5883 013026 7640 SZA CLA 5884 013027 5237 JMP NXTFIL 5885 013030 4436 BUMPXR 5886 013031 1412 TAD I XR1 5887 013032 7450 SNA 5888 013033 5246 JMP SKPMTF+4 5889 013034 3060 DCA FILEN 5890 013035 2200 ISZ XDIRSCH 5891 013036 5600 JMP I XDIRSCH 5892 5893 013037 1251 NXTFIL, TAD XBUMPXR 5894 013040 7041 CIA 5895 013041 4436 BUMPXR 5896 013042 1412 SKPMTF, TAD I XR1 5897 013043 7041 CIA 5898 013044 1061 TAD BLOCK 5899 013045 3061 DCA BLOCK 5900 013046 2063 ISZ ENTRIES 5901 013047 5202 JMP SCHLP 5902 013050 5600 JMP I XDIRSCH 5903 5904 013051 0000 XBUMPXR, 0 5905 013052 1062 TAD WASTE 5906 013053 1012 TAD XR1 5907 013054 3012 DCA XR1 5908 013055 5651 JMP I XBUMPXR 5909 5910 013056 3015 XGTNM1, DCA NAMEX 5911 013057 3016 DCA NAMEX+1 5912 013060 3017 DCA NAMEX+2 5913 013061 3056 DCA TEMPX 5914 013062 7410 SKP 5915 5916 013063 4425 NLOOP, OGETC 5917 013064 6203 CIF CDF 5918 013065 4535 JMS I [TSTCH1 5919 013066 5312 JMP NDONE 5920 013067 1056 TAD TEMPX 5921 013070 1147 TAD [-6 5922 013071 7700 SMA CLA 5923 013072 5263 JMP NLOOP 5924 013073 1056 TAD TEMPX 5925 013074 7110 CLL RAR 5926 013075 1134 TAD [NAMEX 5927 013076 3062 DCA WASTE 5928 013077 1005 TAD OCHAR 5929 013100 0133 AND [77 5930 013101 7430 SZL 5931 013102 5306 JMP .+4 5932 013103 7106 CLL RTL 5933 013104 7006 RTL 5934 013105 7006 RTL 5935 013106 1462 TAD I WASTE 5936 013107 3462 DCA I WASTE 5937 013110 2056 ISZ TEMPX 5938 013111 5263 JMP NLOOP 5939 5940 013112 1005 NDONE, TAD OCHAR 5941 013113 1132 TAD [-15 5942 013114 7640 SZA CLA 5943 013115 5033 ERROX 5944 013116 1056 TAD TEMPX 5945 013117 7650 SNA CLA 5946 013120 5033 ERROX 5947 013121 6203 CIF CDF 5948 013122 5467 JMP I XGETNAM 5949 5950 013123 0000 CAT1, 0 5951 013124 1412 TAD I XR1 5952 013125 7450 SNA 5953 013126 5357 JMP DEMPTY 5954 013127 3015 DCA NAMEX 5955 013130 1412 TAD I XR1 5956 013131 3016 DCA NAMEX+1 5957 013132 1412 TAD I XR1 5958 013133 3017 DCA NAMEX+2 5959 013134 1066 TAD EXTEN 5960 013135 7041 CIA 5961 013136 1412 TAD I XR1 5962 013137 7640 SZA CLA /DON'T FORGET TO CLEAR AC!!! 5963 013140 5356 JMP DEMPTY-1 5964 5965 013141 4436 BUMPXR 5966 013142 1412 TAD I XR1 5967 013143 7650 SNA CLA 5968 013144 5360 JMP DEMPTY+1 5969 013145 1015 TAD NAMEX 5970 013146 4777 JMS I (TWOPRT 5971 013147 1016 TAD NAMEX+1 5972 013150 4777 JMS I (TWOPRT 5973 013151 1017 TAD NAMEX+2 5974 013152 4777 JMS I (TWOPRT 5975 013153 1134 TAD [15 5976 013154 4423 OPRINTC 5977 013155 5360 JMP DEMPTY+1 5978 5979 013156 4436 BUMPXR 5980 013157 2012 DEMPTY, ISZ XR1 5981 013160 2063 ISZ ENTRIES 5982 013161 7410 SKP 5983 013162 2323 ISZ CAT1 5984 013163 6203 CIF CDF 5985 013164 5723 JMP I CAT1 5986 5987 013165 7677 QLIS2, QCOMCK-1 /, 5988 013166 7652 QNEXTC-1 /' 5989 013167 7667 QUOCHK-1 /" 5990 013170 7703 QDONE-1 /CR 5991 013171 7652 QLIS1, QNEXTC-1 /\ , 5992 013172 7652 QNEXTC-1 /' 5993 013173 7652 QNEXTC-1 /" 5994 013174 7703 QDONE-1 /CR 5995 013175 7652 QNEXTC-1 /\ 5996 5997 5998 5999 013177 3534 PAGE 6000 013200 0000 DTAPE, 0 /ENTER WITH AC=1 FOR READ 6001 013201 1131 TAD [DR128 6002 013202 3332 DCA DRET /READ/WRITE RETURN AFTER SEARCH 6003 013203 1130 TAD [CIF CDF /SAVE CALLING FIELD 6004 013204 6214 RDF 6005 013205 3245 DCA DXIT 6006 6007 013206 7240 DGR, CLA CMA 6008 013207 4247 JMS DGET 6009 013210 3331 DCA DCORE /FIRST CORE LOCATION-1 OF TRANSFER 6010 013211 4247 JMS DGET 6011 013212 3327 DCA DWDS / -NUMBER OF WORDS TO BE TRANSFERRED 6012 013213 4247 JMS DGET /GET BLOCK NO. 6013 013214 3247 DCA DTEM /AND STORE 6014 6015 /INITIATE SEARCH 6016 6017 013215 1127 DTS1, TAD [DTBLOK /DTBLOK TO 7755 (CA) 6018 013216 6201 CDF 6019 013217 3725 DCA I DCAA 6020 013220 1126 TAD [DINT-1 6021 013221 3065 DCA MCOM /INTERRUPT RETURN 6022 013222 1525 TAD I [ERLINE /IF WE'RE RUNNING, WE 6023 013223 7650 SNA CLA /SHOULD USE UNIT 1 (FILES), 6024 013224 5231 JMP UNIT0 /EXCEPT FOR THE SPECIAL CASE 6025 013225 1524 TAD I [CHAINP /OF CHAIN, WHICH USES UNIT 0 (PROGRAMS) 6026 013226 1324 TAD PMCHAIN1 /CHECK IF CHAIN 6027 013227 7640 SZA CLA 6028 013230 1123 UNIT1, TAD [1000 /USE UNIT1 6029 013231 1122 UNIT0, TAD [614 /SET TO SEARCH,NORMAL,REVERSE 6030 013232 6766 DTLA /LOAD STATUS A 6031 013233 1121 TAD [10 6032 013234 6774 DTLB /FIELD 1 6033 013235 6203 CIF CDF 6034 013236 1520 TAD I [LOOK /SET BUSY FLAG 6035 013237 3056 DCA TEMPX 6036 013240 1456 TAD I TEMPX /GET STATUS 6037 013241 1123 TAD [1000 6038 013242 3456 DCA I TEMPX 6039 013243 1117 TAD [DXIT /FAKE RETURN ADDRESS 6040 013244 5516 JMP I [RUN9X /AND DISMISS 6041 6042 013245 7402 DXIT, HLT /RETURN TO PROPER FIELD 6043 013246 5600 JMP I DTAPE 6044 6045 DTEM, 6046 013247 0000 DGET, 0 /PICK UP ARGUMENTS 6047 013250 1600 TAD I DTAPE 6048 013251 2200 ISZ DTAPE 6049 013252 5647 JMP I DGET 6050 6051 013253 1115 DR128, TAD [20 /WRITE (NOT READ),(40-20) 6052 013254 1146 TAD [30 /READ NORMAL, CANCEL SEARCH (20+10) 6053 013255 6764 DTXA /SET FUNCTION 6054 013256 1331 TAD DCORE /1ST CORE LOC.-1 OF TRANSFER 6055 013257 6201 CDF 6056 013260 3725 DCA I DCAA /TO 7755(CA) 6057 013261 2065 ISZ MCOM /POINT INTERRUPT RETURN TO DATA 6058 013262 7300 DGO, CLA CLL 6059 013263 1327 TAD DWDS / -NUMBER OF WORDS TO READ 6060 013264 1173 TAD [200 /FULL PAGE READ? 6061 013265 7420 SNL 6062 013266 7200 CLA /YES, SET WC TO -128 6063 013267 7420 SNL /SKIP OVER IF CRAP IN AC 6064 013270 6764 DR127, DTXA /SEND READ OR WRITE 6065 013271 1345 TAD D7600 /SET WORD COUNT FOR 1 PAGE 6066 013272 6201 CDF 6067 013273 3726 DCA I DWC /-128 TO 7754 (WC) 6068 013274 6764 DTXA /IN CASE WE MISSED IT BEFORE 6069 013275 5020 JMP DIS /EXIT 6070 6071 013276 5333 JMP DTS3A 6072 013277 6772 DINT, DTRB /READ STATUS B 6073 013300 7710 SPA CLA 6074 013301 5366 JMP DER /ERROR FLAG 6075 013302 7300 CLA CLL 6076 013303 1327 TAD DWDS /BUMP COUNT AND CHECK FOR MORE 6077 013304 1173 TAD [200 /128 WORD PAGE 6078 013305 3327 DCA DWDS /SAVE FOR NEXT TIME 6079 013306 7420 SNL 6080 013307 5262 JMP DGO /GET NEXT PAGE 6081 013310 1175 TAD [600 /COMPLEMENT MOTION AND DIRECTION 6082 013311 6764 DTXA 6083 013312 6201 CDF 6084 013313 1514 TAD I [DTQ1 /GET POINTER TO QUEUE 6085 013314 3056 DCA TEMPX 6086 013315 1456 TAD I TEMPX /GET USER # 6087 013316 1113 TAD [USER0-1 /BUILD POINTER TO STATUS 6088 013317 3056 DCA TEMPX 6089 013320 1456 TAD I TEMPX 6090 013321 0112 AND [6777 /CLEAR BUSY 6091 013322 3456 DCA I TEMPX 6092 013323 5020 JMP DIS /FINISH INTERRUPT 6093 6094 013324 5315 PMCHAIN1, -CHAIN1 6095 013325 7755 DCAA, 7755 /POINTER TO CURRENT ADDRESS 6096 013326 7754 DWC, 7754 /POINTER TO WORD COUNT 6097 013327 0000 DWDS, 0 / -WORDS TO TRANSFER 6098 013330 0000 DTBLOK, 0 /BLOCK NUMBER DEPOSITED HERE BY CONTROL 6099 013331 0000 DCORE, 0 /STARTING ADDRESS-1 6100 013332 0000 DRET, 0 /DR128 IF WRITE, OR DR128+1 IF READ 6101 6102 013333 6772 DTS3A, DTRB /READ STATUS B 6103 013334 7006 RTL /LOOK AT BIT 2 6104 013335 7710 SPA CLA /END ZONE? 6105 013336 5364 JMP DTURNX /YES (MOTION BIT=0), TURN 6106 013337 6772 DTRB 6107 013340 7710 SPA CLA 6108 013341 5366 JMP DER /ERROR FLAG BIT 0=1 6109 013342 6761 DTRA 6110 013343 7006 D7000, RTL 6111 013344 7006 RTL /FOR-REV STATUS (BIT 3) IN LINK 6112 013345 7600 D7600, 7600 /GROUP 2 CLA 6113 013346 1330 TAD DTBLOK 6114 013347 7041 CIA 6115 013350 1247 TAD DTEM /LINK COMP. IF REQUIRED BLK NO. 6116 013351 7450 SNA /IS BIGGER I.E. MUST GO FORWARD 6117 013352 5361 JMP DTFIND /FOUND BLOCK CHECK DIRECTION 6118 013353 7041 CIA 6119 013354 7420 SNL 6120 013355 7001 IAC /GO 2 MORE BLOCKS BEFORE TURNING 6121 013356 7620 SNL CLA 6122 013357 1163 DTURN, TAD [400 /TURN IF HERE 6123 013360 5270 JMP DR127 /XOR TO A STATUS AND DISMIS 6124 6125 013361 7620 DTFIND, SNL CLA /TEST DIRECTION 6126 013362 5270 JMP DR127 /DONT TURN YET, STILL IN REVERSE 6127 013363 5732 JMP I DRET /GO DO READ OR WRITE 6128 6129 013364 1175 DTURNX, TAD [600 /REVERSE OUT OF END ZONE 6130 013365 5270 JMP DR127 6131 6132 013366 6761 DER, DTRA /ERROR ROUTINE, READ STATUS A 6133 013367 0173 AND [200 /STOP TAPE IF RUNNING, I.E. SET BIT 4 TO 0 6134 013370 1111 TAD [2 /DON'T CLEAR ERRORS (BIT 10=1) 6135 013371 6764 DTXA 6136 013372 6772 DTRB /ERROR STATUS B 6137 013373 7402 HLT 6138 6139 013374 0637 LIST72, 14^40+37 6140 013375 4707 LIST73 6141 013376 1532 -"R+337^100-"E+337 6142 013377 1413 -"S+337^100-"T+337 6143 013400 2015 -"O+337^100-"R+337 6144 013401 3200 -"E+337^100 6145 013402 0000 XCLOSE, 0 /OS/8 'CLOSE' 6146 013403 3056 DCA TEMPX /LENGTH (0 FOR DELETE) 6147 013404 4437 DIRSCH /FIND THE NAME 6148 013405 5232 JMP NODLET /NOT THERE 6149 013406 1537 TAD I [DIRBUF+4 6150 013407 1012 TAD XR1 6151 013410 1110 TAD [-5 6152 013411 3014 DCA XR3 6153 013412 7326 CLA CLL CML RTL 6154 013413 1062 TAD WASTE 6155 013414 7040 CMA 6156 013415 4316 JMS SQUISH 6157 013416 3414 DCA I XR3 /MAKE AN EMPTY 6158 013417 1060 TAD FILEN 6159 013420 3414 DCA I XR3 6160 013421 1064 TAD FOUND /MOVE POINTER TO TEMPORARY FILE 6161 013422 7141 CLL CIA /(IF NECESSARY) 6162 013423 1014 TAD XR3 6163 013424 7630 SZL CLA 6164 013425 5232 JMP NODLET 6165 013426 7346 CLA CLL CMA RTL 6166 013427 1537 TAD I [DIRBUF+4 6167 013430 1064 TAD FOUND 6168 013431 3064 DCA FOUND 6169 013432 1056 NODLET, TAD TEMPX /CLOSE FILE? 6170 013433 7650 SNA CLA 6171 013434 5245 JMP CONSOL 6172 013435 1056 TAD TEMPX 6173 013436 7041 CIA 6174 013437 3464 DCA I FOUND 6175 013440 2064 ISZ FOUND 6176 013441 2064 ISZ FOUND 6177 013442 1056 TAD TEMPX 6178 013443 1464 TAD I FOUND 6179 013444 3464 DCA I FOUND 6180 013445 4440 CONSOL, SETPT 6181 013446 1412 CONLP, TAD I XR1 6182 013447 7650 SNA CLA 6183 013450 5263 JMP CONMTF 6184 013451 1144 TAD [3 6185 013452 4436 BUMPXR 6186 013453 1412 TAD I XR1 6187 013454 7640 SZA CLA 6188 013455 5304 JMP CONLPT 6189 013456 1537 TAD I [DIRBUF+4 6190 013457 1110 TAD [-5 6191 013460 4316 SQCOMN, JMS SQUISH 6192 013461 2541 ISZ I [DIRBUF 6193 013462 5245 JMP CONSOL 6194 6195 013463 1412 CONMTF, TAD I XR1 6196 013464 7450 SNA 6197 013465 5302 JMP SQTRIV 6198 013466 3056 DCA TEMPX 6199 013467 1012 TAD XR1 6200 013470 3057 DCA TEMPX1 6201 013471 2063 ISZ ENTRIES 6202 013472 7410 SKP 6203 013473 5311 JMP EOCLOS 6204 013474 1412 TAD I XR1 6205 013475 7640 SZA CLA 6206 013476 5251 JMP CONLP+3 6207 013477 1412 TAD I XR1 6208 013500 1056 TAD TEMPX 6209 013501 3457 DCA I TEMPX1 6210 013502 7344 SQTRIV, CLA CLL CMA RAL 6211 013503 5260 JMP SQCOMN 6212 013504 2063 CONLPT, ISZ ENTRIES 6213 013505 5246 JMP CONLP 6214 6215 013506 0175 ALT, 175 6216 013507 0176 176 6217 013510 0033 33 6218 013511 4431 EOCLOS, DECTAPE 6219 013512 4220 DIRBUF 6220 013513 7400 -400 6221 013514 0002 2 6222 013515 5602 JMP I XCLOSE 6223 6224 013516 0000 SQUISH, 0 6225 013517 1012 TAD XR1 6226 013520 3013 DCA XR2 6227 013521 1412 TAD I XR1 6228 013522 3413 DCA I XR2 6229 013523 1012 TAD XR1 6230 013524 1107 TAD [-DIRBUF-377 6231 013525 7640 SZA CLA 6232 013526 5321 JMP .-5 6233 013527 5716 JMP I SQUISH 6234 6235 013530 0000 CAT0, 0 6236 013531 4435 GETCAT 6237 013532 6203 CIF CDF 6238 013533 5730 JMP I CAT0 6239 6240 013534 0000 TWOPRT, 0 6241 013535 3015 DCA NAMEX 6242 013536 1015 TAD NAMEX 6243 013537 7112 CLL RTR 6244 013540 7012 RTR 6245 013541 7012 RTR 6246 013542 4346 JMS ONEPRT 6247 013543 1015 TAD NAMEX 6248 013544 4346 JMS ONEPRT 6249 013545 5734 JMP I TWOPRT 6250 6251 013546 0000 ONEPRT, 0 6252 013547 0133 AND [77 6253 013550 7450 SNA 6254 013551 5734 JMP I TWOPRT 6255 013552 1106 TAD [-40 6256 013553 7510 SPA 6257 013554 1105 TAD [100 6258 013555 1145 TAD [40 6259 013556 4423 OPRINTC 6260 013557 5746 JMP I ONEPRT 6261 6262 6263 013560 0000 DTCHKX, 0 /CHECK IF USER ALREADY HAS TAPE 6264 013561 6002 IOF 6265 013562 1504 TAD I [DECK 6266 013563 7001 IAC 6267 013564 3014 DCA XR3 6268 013565 1514 TAD I [DTQ1 6269 013566 3050 DCA OP3 6270 013567 1450 TAD I OP3 6271 013570 7041 CIA 6272 013571 1014 TAD XR3 6273 013572 6202 CIF 6274 013573 7650 SNA CLA 6275 013574 5503 JMP I [XDTG1 6276 013575 1014 TAD XR3 6277 013576 5760 JMP I DTCHKX 6278 6279 6280 PAGE 6281 013600 0316 FUNL1, 316 /FN 6282 013601 1151 1151 /SI 6283 013602 0157 157 /CO 6284 013603 0064 64 /AT 6285 013604 0270 270 /EX 6286 013605 0617 617 /LO 6287 013606 0042 42 /AB 6288 013607 1161 1161 /SQ 6289 013610 1147 1147 /SG 6290 013611 0456 456 /IN 6291 013612 1116 1116 /RN 6292 013613 0311 311 /FI 6293 013614 1201 1201 /TA 6294 013615 0651 651 /MI 6295 013616 0141 141 /CA 6296 013617 0657 657 /MO 6297 013620 0605 605 /LE 6298 6299 013621 7662 FUNL2, -"N+200 /SIN 6300 013622 7655 -"S+200 /COS 6301 013623 7662 -"N+200 /ATN 6302 013624 7660 -"P+200 /EXP 6303 013625 7671 -"G+200 /LOG 6304 013626 7655 -"S+200 /ABS 6305 013627 7656 -"R+200 /SQR 6306 013630 7662 -"N+200 /SGN 6307 013631 7654 -"T+200 /INT 6308 013632 7674 -"D+200 /RND 6309 013633 7650 -"X+200 /FIX 6310 013634 7662 -"N+200 /TAN 6311 013635 7674 -"D+200 /MID 6312 013636 7654 -"T+200 /CAT 6313 013637 7674 -"D+200 /MOD 6314 013640 7662 -"N+200 /LEN 6315 6316 013641 0040 TERMS, 40 /SPACE 0 6317 013642 0053 53 /+ 1 6318 013643 0055 55 /- 2 6319 013644 0052 52 /* 3 6320 013645 0057 57 // 4 6321 013646 0136 136 /^ 5 6322 013647 0050 50 /( 6 6323 013650 0133 133 /[ 7 6324 013651 0051 51 /) 10 6325 013652 0135 135 /] 11 6326 013653 0074 74 /< 1 6327 013654 0076 76 /> 13 6328 013655 0075 75 /= 14 6329 013656 5462 FUNL3, FSIN 6330 013657 5461 COS 6331 013660 5465 ATN 6332 013661 5463 FEXP 6333 013662 5464 LOG 6334 013663 2557 ABS 6335 013664 5457 SQR 6336 013665 5007 SGN 6337 013666 5455 INT 6338 013667 5451 RND 6339 013670 5456 FFIX 6340 013671 5460 TAN 6341 013672 6200 MID 6342 013673 6317 CAT 6343 013674 1301 MOD 6344 013675 6447 LEN 6345 6346 013676 3177 PRNTL6, PRINT8-1 /; 6347 013677 3314 PRINT5-1 /, 6348 013700 5542 PRINT6-4 /' 6349 013701 3200 PRINT8 /" 6350 013702 5542 PRINT6-4 /CR 6351 013703 5542 PRINT6-4 /\ 6352 6353 013704 3311 PRNTL2, PRINT5-4 /, 6354 013705 5545 PRINT6-1 /' 6355 013706 7523 PRINT2-1 /" 6356 013707 5545 PRINT6-1 /CR 6357 013710 5545 PRINT6-1 /\ 6358 6359 013711 3301 PRNTL8, PRINT3-1 /" 6360 013712 5542 PRINT6-4 /CR 6361 013713 3276 PRINT3-4 /\ MUST BE PRINTABLE 6362 6363 6364 6365 013714 2734 LIST24, 56^40+34 6366 013715 2766 LIST25 6367 013716 2426 -"K+337^100-"I+337 6368 013717 2323 -"L+337^100-"L+337 6369 013720 1545 UNKWN+1 /ENTER NEW COMMAND HERE 6370 6371 013721 7401 RANDOM 6372 013722 1545 UNKWN+1 /OUTPUT FUDGE 6373 013723 7414 CLOSE0 6374 013724 7042 OPEN 6375 013725 6562 CHAIN 6376 013726 6050 LINPUT 6377 013727 4235 END 6378 013730 4277 ON 6379 013731 0467 READY /STOP 6380 013732 7152 RESTOR 6381 013733 1074 READ 6382 013734 5701 RETURN 6383 013735 4200 GOSUB 6384 013736 1400 FOR 6385 013737 5704 XPOPJ /DEF 6386 013740 5704 XPOPJ /DIM AND REM 6387 013741 1256 GOTO 6388 013742 1176 IF 6389 013743 1110 INPUT 6390 013744 5505 PRINT0 6391 013745 5704 XPOPJ /DATA 6392 013746 1401 LET 6393 013747 2374 NEXT 6394 013750 1544 COMGOL, UNKWN 6395 6396 013751 1563 ERRLST, ERR000 6397 013752 2202 ERR001 6398 013753 4227 ERR002 6399 013754 5102 ERR003 6400 013755 0616 ERR004 6401 6402 013756 2103 ERR010 6403 013757 1607 ERR020 6404 013760 0663 ERR030 6405 013761 0355 ERR040 6406 013762 0644 ERR050 6407 013763 3625 ERR060 6408 013764 0711 ERR070 6409 013765 3440 ERR080 6410 013766 4475 ERR100 6411 013767 2757 ERR110 6412 013770 2660 ERR120 6413 013771 1031 ERR150 6414 013772 1142 ERR160 6415 013773 3051 ERR170 6416 013774 3074 ERR180 6417 013775 3132 ERR200 6418 013776 5116 ERR210 6419 013777 4401 ERR220 6420 014000 4456 ERR130 6421 014001 4546 ERR230 6422 014002 4672 ERR240 6423 014003 4700 ERR250 6424 014004 5676 ERR260 6425 014005 1260 ERR270 6426 014006 7153 ERR280 6427 014007 4202 ERR290 6428 014010 4307 ERR300 6429 014011 7066 ERR650 6430 014012 5703 ERR320 6431 014013 7160 ERR330 6432 014014 3226 ERR340 6433 014015 3314 ERR350 6434 014016 7224 ERR640 6435 014017 1146 ERR370 6436 014020 2551 ERR380 6437 014021 1207 ERR390 6438 014022 1236 ERR400 6439 014023 1410 ERR410 6440 014024 1430 ERR420 6441 014025 1532 ERR430 6442 014026 1457 ERR440 6443 014027 1524 ERR450 6444 014030 2400 ERR460 6445 014031 2407 ERR470 6446 014032 1033 ERR490 6447 014033 1071 ERR500 6448 014034 1103 ERR510 6449 014035 1562 ERR520 6450 014036 0033 ERR530 6451 014037 6056 ERR540 6452 014040 6206 ERR550 6453 014041 5343 ERR560 6454 014042 1145 ERR600 6455 014043 1166 ERR610 6456 014044 7050 ERR620 6457 014045 7104 ERR630 6458 ERREND=. 6459 6460 014046 1073 LIST77, 21^40+33 6461 014047 4052 LIST78 6462 014050 3332 -"D+337^100-"E+337 6463 014051 3100 -"F+337^100 6464 6465 014052 1133 LIST78, 22^40+33 6466 014053 4056 LIST79 6467 014054 3326 -"D+337^100-"I+337 6468 014055 2200 -"M+337^100 6469 6470 014056 1133 LIST79, 22^40+33 6471 014057 4062 LIST80 6472 014060 1532 -"R+337^100-"E+337 6473 014061 2200 -"M+337^100 6474 6475 014062 0436 LIST80, 10^40+36 6476 014063 4067 LIST81 6477 014064 2326 -"L+337^100-"I+337 6478 014065 2117 -"N+337^100-"P+337 6479 014066 1213 -"U+337^100-"T+337 6480 6481 014067 1174 LIST81, 23^40+34 6482 014070 2763 LIST82 6483 014071 3020 -"G+337^100-"O+337 6484 014072 1320 -"T+337^100-"O+337 6485 6486 014073 1275 LIST83, 25^40+35 6487 014074 4100 LIST84 6488 014075 2621 -"I+337^100-"N+337 6489 014076 1712 -"P+337^100-"U+337 6490 014077 1300 -"T+337^100 6491 6492 014100 1335 LIST84, 26^40+35 6493 014101 4105 LIST85 6494 014102 1715 -"P+337^100-"R+337 6495 014103 2621 -"I+337^100-"N+337 6496 014104 1300 -"T+337^100 6497 6498 014105 1374 LIST85, 27^40+34 6499 014106 4111 LIST86 6500 014107 3336 -"D+337^100-"A+337 6501 014110 1336 -"T+337^100-"A+337 6502 6503 014111 1433 LIST86, 30^40+33 6504 014112 4115 LIST87 6505 014113 2332 -"L+337^100-"E+337 6506 014114 1300 -"T+337^100 6507 6508 014115 1474 LIST87, 31^40+34 6509 014116 4121 LIST88 6510 014117 2132 -"N+337^100-"E+337 6511 014120 0713 -"X+337^100-"T+337 6512 6513 014121 1573 LIST88, 33^40+33 6514 014122 4125 LIST89 6515 014123 1336 -"T+337^100-"A+337 6516 014124 3500 -"B+337^100 6517 6518 014125 1634 LIST89, 34^40+34 6519 014126 4131 LIST90 6520 014127 1413 -"S+337^100-"T+337 6521 014130 3217 -"E+337^100-"P+337 6522 6523 014131 1674 LIST90, 35^40+34 6524 014132 4135 LIST91 6525 014133 1327 -"T+337^100-"H+337 6526 014134 3221 -"E+337^100-"N+337 6527 6528 014135 1722 LIST91, 36^40+22 6529 014136 4140 LIST92 6530 014137 1320 -"T+337^100-"O+337 6531 6532 014140 1762 LIST92, 37^40+22 6533 014141 4143 LIST93 6534 014142 3121 -"F+337^100-"N+337 6535 6536 014143 2034 LIST93, 40^40+34 6537 014144 4147 LIST94 6538 014145 2326 -"L+337^100-"I+337 6539 014146 1413 -"S+337^100-"T+337 6540 6541 014147 2133 LIST94, 42^40+33 6542 014150 4153 LIST95 6543 014151 3506 -"B+337^100-"Y+337 6544 014152 3200 -"E+337^100 6545 6546 014153 2433 LIST95, 50^40+33 6547 014154 4157 LIST96 6548 014155 2132 -"N+337^100-"E+337 6549 014156 1000 -"W+337^100 6550 6551 014157 2137 LIST96, 42^40+37 6552 014160 4165 LIST97 6553 014161 1434 -"S+337^100-"C+337 6554 014162 1536 -"R+337^100-"A+337 6555 014163 1334 -"T+337^100-"C+337 6556 014164 2700 -"H+337^100 6557 6558 014165 2176 LIST97, 43^40+36 6559 014166 4172 LIST98 6560 014167 3332 -"D+337^100-"E+337 6561 014170 2332 -"L+337^100-"E+337 6562 014171 1332 -"T+337^100-"E+337 6563 6564 014172 2234 LIST98, 44^40+34 6565 014173 4176 LIST99 6566 014174 3233 -"E+337^100-"D+337 6567 014175 2613 -"I+337^100-"T+337 6568 6569 014176 2273 LIST99, 45^40+33 6570 014177 4202 LIST10 6571 014200 2432 -"K+337^100-"E+337 6572 014201 0600 -"Y+337^100 6573 6574 014202 2334 LIST10, 46^40+34 6575 014203 4206 LIST11 6576 014204 1336 -"T+337^100-"A+337 6577 014205 1732 -"P+337^100-"E+337 6578 6579 014206 2373 LIST11, 47^40+33 6580 014207 4212 LIST12 6581 014210 1512 -"R+337^100-"U+337 6582 014211 2100 -"N+337^100 6583 6584 014212 1111 LIST12, 22^40+11 6585 014213 4215 LIST13 6586 014214 7000 -"'+337^100 6587 6588 014215 2051 LIST13, 41^40+11 6589 014216 2476 LIST15 6590 014217 0000 -"_+337^100 6591 014220 0000 DIRBUF, ZBLOCK 400 014221 0000 014222 0000 014223 0000 014224 0000 014225 0000 014226 0000 014227 0000 014230 0000 014231 0000 014232 0000 014233 0000 014234 0000 014235 0000 014236 0000 014237 0000 014240 0000 014241 0000 014242 0000 014243 0000 014244 0000 014245 0000 014246 0000 014247 0000 014250 0000 014251 0000 014252 0000 014253 0000 014254 0000 014255 0000 014256 0000 014257 0000 014260 0000 014261 0000 014262 0000 014263 0000 014264 0000 014265 0000 014266 0000 014267 0000 014270 0000 014271 0000 014272 0000 014273 0000 014274 0000 014275 0000 014276 0000 014277 0000 014300 0000 014301 0000 014302 0000 014303 0000 014304 0000 014305 0000 014306 0000 014307 0000 014310 0000 014311 0000 014312 0000 014313 0000 014314 0000 014315 0000 014316 0000 014317 0000 014320 0000 014321 0000 014322 0000 014323 0000 014324 0000 014325 0000 014326 0000 014327 0000 014330 0000 014331 0000 014332 0000 014333 0000 014334 0000 014335 0000 014336 0000 014337 0000 014340 0000 014341 0000 014342 0000 014343 0000 014344 0000 014345 0000 014346 0000 014347 0000 014350 0000 014351 0000 014352 0000 014353 0000 014354 0000 014355 0000 014356 0000 014357 0000 014360 0000 014361 0000 014362 0000 014363 0000 014364 0000 014365 0000 014366 0000 014367 0000 014370 0000 014371 0000 014372 0000 014373 0000 014374 0000 014375 0000 014376 0000 014377 0000 014400 0000 014401 0000 014402 0000 014403 0000 014404 0000 014405 0000 014406 0000 014407 0000 014410 0000 014411 0000 014412 0000 014413 0000 014414 0000 014415 0000 014416 0000 014417 0000 014420 0000 014421 0000 014422 0000 014423 0000 014424 0000 014425 0000 014426 0000 014427 0000 014430 0000 014431 0000 014432 0000 014433 0000 014434 0000 014435 0000 014436 0000 014437 0000 014440 0000 014441 0000 014442 0000 014443 0000 014444 0000 014445 0000 014446 0000 014447 0000 014450 0000 014451 0000 014452 0000 014453 0000 014454 0000 014455 0000 014456 0000 014457 0000 014460 0000 014461 0000 014462 0000 014463 0000 014464 0000 014465 0000 014466 0000 014467 0000 014470 0000 014471 0000 014472 0000 014473 0000 014474 0000 014475 0000 014476 0000 014477 0000 014500 0000 014501 0000 014502 0000 014503 0000 014504 0000 014505 0000 014506 0000 014507 0000 014510 0000 014511 0000 014512 0000 014513 0000 014514 0000 014515 0000 014516 0000 014517 0000 014520 0000 014521 0000 014522 0000 014523 0000 014524 0000 014525 0000 014526 0000 014527 0000 014530 0000 014531 0000 014532 0000 014533 0000 014534 0000 014535 0000 014536 0000 014537 0000 014540 0000 014541 0000 014542 0000 014543 0000 014544 0000 014545 0000 014546 0000 014547 0000 014550 0000 014551 0000 014552 0000 014553 0000 014554 0000 014555 0000 014556 0000 014557 0000 014560 0000 014561 0000 014562 0000 014563 0000 014564 0000 014565 0000 014566 0000 014567 0000 014570 0000 014571 0000 014572 0000 014573 0000 014574 0000 014575 0000 014576 0000 014577 0000 014600 0000 014601 0000 014602 0000 014603 0000 014604 0000 014605 0000 014606 0000 014607 0000 014610 0000 014611 0000 014612 0000 014613 0000 014614 0000 014615 0000 014616 0000 014617 0000 6592 INTR8A=.-1 6593 INTR8I=.-2 6594 INTR80=.-3 /4 POWER FAIL/AUTO RECOVER TEMPS 6595 INTR8F=.-4 6596 6597 014620 2473 LIST14, 51^40+33 6598 014621 0000 A0000, 0 6599 014622 2023 -"O+337^100-"L+337 6600 014623 3300 -"D+337^100 6601 6602 6603 014624 6007 INTRRV, CAF /RECOVER - CLEAR ALL 6604 014625 6203 AAACDF, CIF CDF 6605 014626 1657 INTRV2, TAD I PAUSER 6606 014627 6117 MTON 6607 014630 4656 JMS I PINTRPL 6608 014631 7200 CLA 6609 014632 1261 TAD PINTR8 6610 014633 3511 DCA I [2 6611 014634 1214 TAD INTR8F 6612 014635 0174 AND [7 6613 014636 7106 CLL RTL 6614 014637 7004 RAL 6615 014640 1225 TAD AAACDF 6616 014641 3251 DCA INTR88 6617 014642 1214 TAD INTR8F 6618 014643 0102 AND [70 6619 014644 1304 TAD CCIF 6620 014645 3252 DCA INTR89 6621 014646 1214 TAD INTR8F 6622 014647 7004 RAL 6623 014650 7200 CLA 6624 014651 6201 INTR88, CDF 6625 014652 6202 INTR89, CIF 6626 014653 1217 TAD INTR8A /AND AC 6627 014654 6001 ION 6628 014655 5615 JMP I INTR80 /AND EXIT 6629 014656 5327 PINTRPL, INTRPL-1 6630 014657 5326 PAUSER, AUSER 6631 014660 6212 CCIF2, CIF SWAP 6632 014661 1173 PINTR8, INTR8E 6633 014662 4624 PINTRRV, INTRRV 6634 014663 3217 INTR81, DCA INTR8A /SAVE AC 6635 014664 6634 6634 /READ CARD READER TO CLEAR FLAG 6636 014665 6674 6674 /AND CARD DONE FLAG 6637 014666 7200 CLA /AND CLEAR THE AC 6638 014667 6102 SPL /POWER FAIL INTERRUPT? 6639 014670 5303 JMP INTR82 /NO 6640 014671 7010 RAR 6641 014672 6234 RIB 6642 014673 3214 DCA INTR8F /AND FLAGS 6643 014674 1621 TAD I A0000 6644 014675 3215 DCA INTR80 /AND LOCATION 6645 014676 1260 TAD CCIF2 6646 014677 3621 DCA I A0000 /SET "CIF SWAP" 6647 014700 1262 TAD PINTRRV 6648 014701 3511 DCA I [2 /AND SET ADDRESS 6649 014702 7402 HLT 6650 6651 6652 014703 1217 INTR82, TAD INTR8A /GET THE AC AGAIN 6653 014704 6202 CCIF, CIF 6654 014705 5706 JMP I .+1 /GO TO REAL INTERRUPT ROUTINE 6655 014706 5200 INTRPT 6656 014707 0674 LIST73, 15^40+34 6657 014710 4713 LIST74 6658 014711 1532 -"R+337^100-"E+337 6659 014712 3633 -"A+337^100-"D+337 6660 6661 014713 0736 LIST74, 16^40+36 6662 014714 1562 LIST75 6663 014715 1532 -"R+337^100-"E+337 6664 014716 1312 -"T+337^100-"U+337 6665 014717 1521 -"R+337^100-"N+337 6666 6667 014720 1033 LIST76, 20^40+33 6668 014721 4046 LIST77 6669 014722 3120 -"F+337^100-"O+337 6670 014723 1500 -"R+337^100 6671 014724 2251 COMGO1, LIST 6672 014725 0475 START /CR 6673 014726 4226 BYE 6674 014727 2240 DELETE 6675 014730 2200 EDIT 6676 014731 5100 KKEY 6677 014732 5077 TAPE 6678 014733 2465 RUN 6679 014734 4213 NEW 6680 014735 5440 OLD 6681 014736 7431 SAVE 6682 014737 7467 UNSAVE 6683 014740 7506 CATLOG 6684 014741 4214 RENAME 6685 014742 7465 KILL 6686 014743 7504 DATLOG 6687 014744 1545 UNKWN+1 /CHR FUDGE!! 6688 6689 6690 ORG1=.+1 6691 IFNZRO .-4744&4000 6692 PAGE 6693 /USER DEFINITIONS 6694 6695 LIMIT=7776 /HIGHEST CORE POSITION 6696 SWAPR=ENSWAP-STSWAP+1 /SWAP LENGTH 6697 ORG=. /USER STARTING ORIGIN 6698 6699 BUFFER=40 6700 BUFCOM=100 6701 LINE0=162 6702 LINE1=164 6703 TOP=LIMIT 6704 010102 0070 FIELD 2 010103 6625 010104 0036 010105 0100 010106 7740 010107 3161 010110 7773 010111 0002 010112 6777 010113 4164 010114 6600 010115 0020 010116 5477 010117 3245 010120 0117 010121 0010 010122 0614 010123 1000 010124 0102 010125 0062 010126 3276 010127 3330 010130 6203 010131 3253 010132 7763 010133 0077 010134 0015 010135 2163 010136 0014 010137 4224 010140 4221 010141 4220 010142 3170 010143 0004 010144 0003 010145 0040 010146 0030 010147 7772 010150 0434 010151 7720 010152 0752 010153 7725 010154 4555 010155 1346 010156 7673 010157 0011 010160 1530 010161 7722 010162 7767 010163 0400 010164 0206 010165 0571 010166 7774 010167 0457 010170 5674 010171 0377 010172 0177 010173 0200 010174 0007 010175 0600 010176 3056 010177 0026 6705 6706 PAGE 0 6707 020000 7745 CONBEG, 7745 /CR,E 6708 020001 6262 6262 /RR 6709 020002 5762 5762 /OR 6710 020003 5156 5156 /IN 6711 020004 7762 7762 /CR,R 6712 020005 4541 4541 /EA 6713 020006 4471 4471 /DY 6714 020007 7777 7777 /CR,CR 6715 020010 4445 4445 /DE 6716 020011 5445 5445 /LE 6717 020012 6445 6445 /TE 6718 020013 4477 4477 /D,CR 6719 020014 6750 6750 /WH 6720 020015 4164 4164 /AT 6721 020016 3777 3777 /?,CR 6722 020017 7763 7763 /CR,S 6723 020020 6457 6457 /TO 6724 020021 6077 6077 /P,CR 6725 020022 5641 5641 /NA 6726 020023 5545 5545 /ME 6727 020024 1515 1515 /-- 6728 CONEND=. 6729 020025 2600 USRPTR, USRLST 6730 020026 0000 CORPTR, 0 6731 020027 0000 USRPT2, 0 6732 020030 0000 CORPT2, 0 6733 020031 0000 BEGUSR, 0 6734 020032 0000 CURFLD, 0 6735 020033 0000 BEGDEV, 0 6736 020034 0000 USRCTR, 0 6737 020035 0000 SS, 0 6738 020036 0000 BEGCOR, 0 6739 020037 0000 KLTOP, 0 6740 6741 020040 1773 MONDSK, 1773 6742 020041 3772 3772 6743 020042 2372 2372 6744 020043 2373 2373 6745 020044 5356 5356 6746 020045 1371 1371 6747 020046 3350 3350 6748 020047 1371 1371 6749 020050 3351 3351 6750 020051 5770 5770 6751 020052 7573 7573 6752 020053 7576 7576 6753 020054 7573 7573 6754 020055 7774 7774 6755 020056 6603 6603 6756 020057 6622 6622 6757 020060 5374 5374 6758 020061 7610 7610 6759 6760 020062 1774 MONTAP, 1774 6761 020063 3773 3773 6762 020064 2373 2373 6763 020065 2374 2374 6764 020066 5356 5356 6765 020067 3354 3354 6766 020070 1372 1372 6767 020071 3355 3355 6768 020072 1371 1371 6769 020073 5770 5770 6770 020074 7575 7575 6771 020075 0220 0220 6772 020076 7577 7577 6773 020077 7575 7575 6774 020100 7775 7775 6775 020101 6766 6766 6776 020102 6771 6771 6777 020103 5376 5376 6778 6779 020104 1377 OSDRK8, 1377 6780 020105 3030 3030 6781 020106 1376 1376 6782 020107 3031 3031 6783 020110 5030 5030 6784 020111 0000 0 6785 020112 0000 0 6786 020113 0000 0 6787 020114 0000 0 6788 020115 0000 0 6789 020116 0000 0 6790 020117 0000 0 6791 020120 0000 0 6792 020121 0000 0 6793 020122 0000 0 6794 020123 0000 0 6795 020124 5031 5031 6796 020125 6733 6733 6797 6798 020126 1772 OSDDSK, 1772 6799 020127 3771 3771 6800 020130 2371 2371 6801 020131 2372 2372 6802 020132 5356 5356 6803 020133 5350 5350 6804 020134 0000 0 6805 020135 0000 0 6806 020136 0000 0 6807 020137 0000 0 6808 020140 0000 0 6809 020141 7750 7750 6810 020142 7773 7773 6811 020143 7600 7600 6812 020144 6603 6603 6813 020145 6622 6622 6814 020146 5352 5352 6815 020147 5752 5752 6816 6817 020150 6774 OSDDTA, 6774 6818 020151 1377 1377 6819 020152 3354 3354 6820 020153 1376 1376 6821 020154 3355 3355 6822 020155 1375 1375 6823 020156 6766 6766 6824 020157 6771 6771 6825 020160 5365 5365 6826 020161 1374 1374 6827 020162 6766 6766 6828 020163 6771 6771 6829 020164 5371 5371 6830 020165 5200 5200 6831 020166 0220 220 6832 020167 0600 600 6833 020170 7577 7577 6834 020171 7700 7700 6835 6836 PAGE 6837 /*SYSTEM ENTRY POINTFOR INITIALIZATION* 6838 020200 6032 BEGIN, KCC 6839 020201 6211 CDF 10 6840 020202 1777 TAD I (7760 /GET DCB OF SYS: 6841 020203 0376 AND (770 6842 020204 1375 TAD (-050 /5 IS RK8 6843 020205 7510 SPA 6844 020206 5216 JMP OS8ERR /<5 IS ERROR 6845 020207 7450 SNA 6846 020210 5231 JMP OS8RK8 /5 = RK8 6847 020211 1374 TAD (050-160 /16 IS DECTAPE 6848 020212 7510 SPA 6849 020213 5223 JMP OS8KSK /6 TO 15 = DSK 6850 020214 7650 SNA CLA 6851 020215 5230 JMP OS8DTA /16 = DTA: 6852 020216 7200 OS8ERR, CLA 6853 020217 6221 CDF 20 6854 020220 4773 JMS I (BEG003 6855 020221 4000 OS8ERM /BAD O/S8 DEVICE 6856 020222 5772 JMP I (BEGMV4 /DO NOT SET UP ANY THING 6857 6858 020223 7200 OS8KSK, CLA 6859 020224 5227 JMP OS8DSK 6860 6861 020225 7001 IAC 6862 020226 7001 IAC 6863 020227 7001 OS8DSK, IAC 6864 020230 7001 OS8DTA, IAC 6865 020231 7001 OS8RK8, IAC 6866 020232 1371 TAD (OS8LST-1 6867 020233 3256 DCA OS8PTR 6868 020234 6221 CDF 20 6869 020235 1656 TAD I OS8PTR 6870 020236 3256 DCA OS8PTR /POINT TO BOOTSTRAP 6871 020237 6221 OS8LP1, CDF 20 6872 020240 1656 TAD I OS8PTR 6873 020241 2256 ISZ OS8PTR 6874 020242 6201 CDF 6875 020243 3657 DCA I OS8PT2 6876 020244 2257 ISZ OS8PT2 6877 020245 5237 JMP OS8LP1 6878 020246 6221 CDF 20 6879 020247 4773 JMS I (BEG003 6880 020250 4032 OS8MSG /O/S8 MESSAGE 6881 020251 4773 JMS I (BEG003 6882 020252 4044 OS8AB, OS8M1 6883 020253 4773 JMS I (BEG003 6884 020254 4047 OS8M2 6885 020255 5772 JMP I (BEGMV4 6886 6887 020256 0000 OS8PTR, 0 6888 020257 7756 OS8PT2, 7756 /INTO RIM LOCATIONS 6889 6890 020260 0104 OS8LST, OSDRK8 6891 020261 0150 OSDDTA 6892 020262 0126 OSDDSK 6893 020263 0040 MONDSK 6894 020264 0062 MONTAP 6895 6896 020265 6221 TAPEM, CDF 20 6897 020266 1370 TAD (600 6898 020267 6766 DTXA DTCA /REWIND TAPE 6899 020270 6771 DTSF 6900 020271 5270 JMP .-1 6901 020272 1367 TAD (TAPMM 6902 020273 3252 DCA OS8AB 6903 020274 5225 JMP OS8DSK-2 6904 6905 020275 6211 DISKM, CDF 10 6906 020276 1366 TAD (DSKMM 6907 020277 3252 DCA OS8AB 6908 020300 5226 JMP OS8DSK-1 6909 6910 6911 020366 4074 PAGE 020367 4077 020370 0600 020371 0257 020372 0400 020373 1027 020374 7670 020375 7730 020376 0770 020377 7760 6912 6913 6914 6915 020400 6211 BEGMV4, CDF 10 6916 020401 1741 TAD I BEGMV1 /MOVE PAGE 7600 FIELD 0 INTO ITS SPOT 6917 020402 6201 CDF 6918 020403 3742 DCA I BEGMV2 6919 020404 2341 ISZ BEGMV1 6920 020405 2342 ISZ BEGMV2 6921 020406 2343 ISZ BEGMV3 6922 020407 5200 JMP BEGMV4 6923 020410 6201 CDF 6924 020411 1777 TAD I (FLOP 6925 020412 3776 DCA I (OPTABL+5 6926 020413 6211 CDF 10 6927 020414 1737 TAD I BEGIN1 /MAKE SURE THAT NO ERRORS ARE NEG. SO THAT 6928 /THEY DON'T TERMINATE TABLE 6929 020415 7001 IAC 6930 020416 7110 CLL RAR 6931 020417 3737 DCA I BEGIN1 6932 020420 2337 ISZ BEGIN1 6933 020421 2340 ISZ BEGIN2 6934 020422 5214 JMP .-6 6935 020423 6221 BEG002, CDF 20 6936 020424 6032 KCC 6937 020425 1375 TAD (BEGIOT 6938 020426 3335 DCA BEG012 6939 020427 1374 TAD (-4 6940 020430 3336 DCA BEG013 6941 020431 1373 TAD (120 6942 020432 3735 DCA I BEG012 6943 020433 2335 ISZ BEG012 6944 020434 2336 ISZ BEG013 6945 020435 5231 JMP .-4 6946 020436 4772 JMS I (BEG003 6947 020437 4114 BEGM1 /INIT MESSAGE 6948 020440 4772 BEG006, JMS I (BEG003 6949 020441 4131 BEGM2 /# USER MESSAGE 6950 020442 4771 JMS I (BEG001 6951 020443 1370 TAD (-"5 6952 020444 7540 SMA SZA 6953 020445 5767 JMP I (BEG005 6954 020446 1366 TAD (5 6955 020447 7550 SPA SNA 6956 020450 5767 JMP I (BEG005 6957 020451 7041 CIA 6958 020452 3031 DCA BEGUSR 6959 020453 5765 BEG008, JMP I (BEGX08 6960 020454 6221 CORDON, CDF 20 6961 020455 1364 TAD (7745 6962 020456 3000 DCA 0 /RESTORE THE BLOODY TEXT! 6963 020457 7344 L7776 6964 020460 1036 TAD BEGCOR 6965 020461 7700 SMA CLA 6966 020462 5267 JMP .+5 6967 020463 4772 JMS I (BEG003 6968 020464 4165 NOCOR /NOT ENOUGH CORE FOR EDU25 6969 020465 6203 CIF CDF 6970 020466 5763 JMP I (7600 /BACK TO OS/8 MONITOR 6971 020467 1031 TAD BEGUSR 6972 020470 7001 IAC 6973 020471 7650 SNA CLA 6974 020472 5307 JMP BEG010 6975 020473 4772 BEG009, JMS I (BEG003 6976 020474 4147 BEGM4 /DC02? 6977 020475 4771 JMS I (BEG001 6978 020476 1362 TAD (-"Y 6979 020477 7450 SNA 6980 020500 5310 JMP BEG010+1 6981 020501 1361 TAD (331-316 6982 020502 7650 SNA CLA 6983 020503 5307 JMP BEG010 6984 020504 4772 JMS I (BEG003 6985 020505 4102 BEGME 6986 020506 5273 JMP BEG009 6987 6988 020507 7340 BEG010, L7777 6989 020510 3033 DCA BEGDEV 6990 020511 1033 TAD BEGDEV 6991 020512 7650 SNA CLA 6992 020513 5760 JMP I (BEGCK0 6993 020514 1375 TAD (BEGIOT 6994 020515 3335 DCA BEG012 6995 020516 1031 TAD BEGUSR 6996 020517 3336 DCA BEG013 6997 020520 1357 TAD (410 6998 020521 3334 DCA BEG12A 6999 020522 2336 BEG14B, ISZ BEG013 7000 020523 5325 JMP BEG14A 7001 020524 5756 JMP I (BEG015 7002 7003 020525 1334 BEG14A, TAD BEG12A 7004 020526 3735 DCA I BEG012 7005 020527 2335 ISZ BEG012 7006 020530 1334 TAD BEG12A 7007 020531 1355 TAD (20 7008 020532 3334 DCA BEG12A 7009 020533 5322 JMP BEG14B 7010 7011 020534 0400 BEG12A, 400 7012 020535 0000 BEG012, 0 7013 020536 0000 BEG013, 0 7014 020537 3751 BEGIN1, ERRLST 7015 020540 7703 BEGIN2, ERRLST-ERREND 7016 020541 5000 BEGMV1, MVPAG 7017 020542 7600 BEGMV2, 7600 7018 020543 7622 BEGMV3, -156 7019 020555 0020 PAGE 020556 0600 020557 0410 020560 1200 020561 0013 020562 7447 020563 7600 020564 7745 020565 0667 020566 0005 020567 1003 020570 7513 020571 1011 020572 1027 020573 0120 020574 7774 020575 3364 020576 5450 020577 2707 7020 7021 020600 1031 BEG015, TAD BEGUSR 7022 020601 7001 IAC 7023 020602 7650 SNA CLA 7024 020603 5777 JMP I (BEGCK0 7025 020604 4776 BEG15E, JMS I (BEG003 7026 020605 4233 BEGM7 /STANDARD? 7027 020606 4775 JMS I (BEG001 7028 020607 1374 TAD (-"Y 7029 020610 7450 SNA 7030 020611 5777 JMP I (BEGCK0 7031 020612 1373 TAD (331-316 7032 020613 7650 SNA CLA 7033 020614 5220 JMP BEG15A 7034 020615 4776 JMS I (BEG003 7035 020616 4102 BEGME 7036 020617 5204 JMP BEG15E 7037 7038 020620 1031 BEG15A, TAD BEGUSR 7039 020621 3232 DCA BEG15B 7040 020622 1372 TAD (BEGIOT 7041 020623 3231 DCA BEG15C 7042 020624 1371 TAD (4361 /TEXT "#1" 7043 020625 3770 DCA I (BEGM5A 7044 020626 2232 BEG15D, ISZ BEG15B 7045 020627 5233 JMP BEG014 7046 020630 5777 JMP I (BEGCK0 7047 7048 020631 0000 BEG15C, 0 7049 020632 0000 BEG15B, 0 7050 7051 020633 4776 BEG014, JMS I (BEG003 7052 020634 4216 BEGM5 /DEVICE CODE 7053 020635 4775 JMS I (BEG001 7054 020636 1367 TAD (-"7 7055 020637 7540 SMA SZA 7056 020640 5766 JMP I (BEG016 7057 020641 1365 TAD (7 7058 020642 7510 SPA 7059 020643 5766 JMP I (BEG016 7060 020644 7106 CLL RTL 7061 020645 7006 RTL 7062 020646 7006 RTL 7063 020647 3631 DCA I BEG15C 7064 020650 4775 JMS I (BEG001 7065 020651 1367 TAD (-"7 7066 020652 7540 SMA SZA 7067 020653 5766 JMP I (BEG016 7068 020654 1365 TAD (7 7069 020655 7510 SPA 7070 020656 5766 JMP I (BEG016 7071 020657 7001 IAC 7072 020660 7106 CLL RTL 7073 020661 7004 RAL 7074 020662 1631 TAD I BEG15C 7075 020663 3631 DCA I BEG15C 7076 020664 2231 ISZ BEG15C 7077 020665 2770 ISZ I (BEGM5A 7078 020666 5226 JMP BEG15D 7079 /FIGURE OUT HIGHEST CORE FIELD FOR HIM 7080 020667 7301 BEGX08, L0001 7081 020670 3036 DCA BEGCOR /FIELD 1 TOP TO START WITH 7082 020671 1364 TAD (6221 7083 020672 3301 DCA BEGCHK 7084 020673 1304 TAD CNOP 7085 020674 6201 CDF 7086 020675 3763 DCA I (0 7087 020676 6211 CDF 10 7088 020677 1304 TAD CNOP 7089 020700 3763 DCA I (0 7090 020701 0000 BEGCHK, 0 7091 020702 1366 TAD (1000 7092 020703 3763 DCA I (0 7093 020704 7000 CNOP, NOP 7094 020705 1763 TAD I (0 7095 020706 7410 SKP /PDP-8 NXM BUG 7096 020707 7402 HLT /THIS SHOULD HAUL DOWN A PDP-8 7097 020710 6211 CDF 10 /DOUBLE CHECK FOR PDP8/L 7098 020711 1763 TAD I (0 7099 020712 7640 SZA CLA 7100 020713 5762 JMP I (CORDON /NO MORE CORE 7101 020714 1366 TAD (1000 7102 020715 6201 CDF 7103 020716 1763 TAD I (0 7104 020717 7640 SZA CLA 7105 020720 5762 JMP I (CORDON /NO MORE CORE-PROBABLY A PDP-8/L 7106 020721 2036 ISZ BEGCOR /THIS FIELD WAS SUCCESSFUL 7107 020722 1301 TAD BEGCHK 7108 020723 1361 TAD (10 7109 020724 3301 DCA BEGCHK 7110 020725 5301 JMP BEGCHK 7111 020761 0010 PAGE 020762 0454 020763 0000 020764 6221 020765 0007 020766 1000 020767 7511 020770 4223 020771 4361 020772 3364 020773 0013 020774 7447 020775 1011 020776 1027 020777 1200 7112 7113 7114 021000 4227 BEG016, JMS BEG003 7115 021001 4102 BEGME 7116 021002 5777 JMP I (BEG014 7117 7118 021003 4227 BEG005, JMS BEG003 7119 021004 4102 BEGME 7120 021005 5776 JMP I (BEG006 7121 7122 021006 4227 BEG007, JMS BEG003 7123 021007 4102 BEGME 7124 021010 5775 JMP I (BEG008 7125 7126 021011 0000 BEG001, 0 7127 021012 6031 KSF 7128 021013 5212 JMP .-1 7129 021014 6036 KRB 7130 021015 1374 TAD (-203 7131 021016 7450 SNA 7132 021017 5773 JMP I (BEG002 7133 021020 1372 TAD (203 7134 021021 6046 TLS 7135 021022 6041 TSF 7136 021023 5222 JMP .-1 7137 021024 0371 AND (177 7138 021025 1370 TAD (200 7139 021026 5611 JMP I BEG001 7140 7141 021027 0000 BEG003, 0 7142 021030 7200 CLA 7143 021031 1627 TAD I BEG003 7144 021032 3275 DCA BEG004 7145 021033 2227 ISZ BEG003 7146 021034 1675 TAD I BEG004 7147 021035 7112 CLL RTR 7148 021036 7012 RTR 7149 021037 7012 RTR 7150 021040 4245 JMS BEG03X 7151 021041 1675 TAD I BEG004 7152 021042 4245 JMS BEG03X 7153 021043 2275 ISZ BEG004 7154 021044 5234 JMP BEG003+5 7155 7156 021045 0000 BEG03X, 0 7157 021046 0367 AND (77 7158 021047 7450 SNA 7159 021050 5627 JMP I BEG003 7160 021051 1366 TAD (-37 7161 021052 7450 SNA 7162 021053 5271 JMP CRLF 7163 021054 7510 SPA 7164 021055 1365 TAD (100 7165 021056 1364 TAD (237 7166 021057 4261 JMS TTCHAR 7167 021060 5645 JMP I BEG03X 7168 7169 021061 0000 TTCHAR, 0 7170 021062 6046 TLS 7171 021063 7200 CLA 7172 021064 6041 TSF 7173 021065 5264 JMP .-1 7174 021066 6031 KSF 7175 021067 5661 JMP I TTCHAR 7176 021070 5627 JMP I BEG003 /EXIT ON CHAR. 7177 021071 1363 CRLF, TAD (215 7178 021072 4261 JMS TTCHAR 7179 021073 1362 TAD (212 7180 021074 5257 JMP TTCHAR-2 7181 021075 0000 BEG004, 0 7182 7183 021162 0212 PAGE 021163 0215 021164 0237 021165 0100 021166 7741 021167 0077 021170 0200 021171 0177 021172 0203 021173 0423 021174 7575 021175 0453 021176 0440 021177 0633 7184 021200 7301 BEGCK0, L0001 7185 021201 1031 TAD BEGUSR 7186 021202 7700 SMA CLA 7187 021203 5777 JMP I (BEGOLD /ONLY ONE USER--WHY BOTHER HIM W/DUMB QUESTIONS? 7188 021204 4776 JMS I (BEG003 7189 021205 4405 BEGMQ 7190 021206 4775 JMS I (BEG001 7191 021207 1374 TAD (-"N 7192 021210 7450 SNA 7193 021211 5773 JMP I (BEG500 /GO ASK FOR IT 7194 021212 1372 TAD (-"Y+"N 7195 021213 7650 SNA CLA 7196 021214 5777 JMP I (BEGOLD /THIS WAS AN AFTERTHOUGHT, QUITE FRANKLY 7197 021215 4776 JMS I (BEG003 7198 021216 4102 BEGME 7199 021217 5200 JMP BEGCK0 /ASK HIM AGIN 7200 7201 021372 7765 PAGE 021373 1403 021374 7462 021375 1011 021376 1027 021377 3000 7202 LBLK=SS 7203 7204 OLNUM=USRPT2 7205 NUNUM=CORPT2 7206 021400 6221 BEGER0, CDF 20 7207 021401 4777 JMS I (BEG003 7208 021402 4355 WNGDM 7209 021403 6221 BEG500, CDF 20 7210 021404 1031 TAD BEGUSR 7211 021405 3034 DCA USRCTR 7212 021406 1376 TAD (USRLST 7213 021407 3025 DCA USRPTR 7214 021410 1036 TAD BEGCOR 7215 021411 7001 IAC 7216 021412 3032 DCA CURFLD 7217 021413 7340 BEGFLD, L7777 7218 021414 1032 TAD CURFLD 7219 021415 7550 SPA SNA 7220 021416 5200 JMP BEGER0 /EH? 7221 021417 3032 DCA CURFLD 7222 021420 4777 JMS I (BEG003 7223 021421 4260 BEGMFL 7224 021422 1375 TAD (60 7225 021423 1032 TAD CURFLD 7226 021424 6046 TLS 7227 021425 7200 CLA 7228 021426 6041 TSF 7229 021427 5226 JMP .-1 7230 021430 1374 TAD (20 /20 LOGICAL BLOCKS 7231 021431 3035 DCA LBLK 7232 021432 4777 BEGXXX, JMS I (BEG003 7233 021433 4264 BEGMXX 7234 021434 1035 TAD LBLK 7235 021435 4773 JMS I (BEGPRNT 7236 021436 4777 JMS I (BEG003 7237 021437 4272 BEGMX1 7238 021440 4772 JMS I (BEG001 7239 021441 1371 TAD (-"8 7240 021442 7540 SMA SZA 7241 021443 5337 JMP BEGER1 7242 021444 1370 TAD (10 7243 021445 7550 SPA SNA 7244 021446 5337 JMP BEGER1 /BAD USERNO 7245 021447 3425 DCA I USRPTR 7246 021450 1031 TAD BEGUSR 7247 021451 1425 TAD I USRPTR 7248 021452 7740 SMA SZA CLA 7249 021453 5337 JMP BEGER1 /NONEXISTENT USER DUMMY 7250 021454 2025 ISZ USRPTR 7251 021455 1032 TAD CURFLD 7252 021456 3425 DCA I USRPTR 7253 021457 2025 ISZ USRPTR /AND HIS NO. 7254 021460 4777 BEGRE, JMS I (BEG003 7255 021461 4326 BEGTTI 7256 021462 3027 DCA OLNUM /DOUBLE CHECK! 7257 021463 4772 BEGINP, JMS I (BEG001 7258 021464 1367 TAD (-215 7259 021465 7450 SNA 7260 021466 5306 JMP DN 7261 021467 1366 TAD (215-"9 7262 021470 7540 SMA SZA 7263 021471 5334 JMP BEGER2 /UNGOOD NO 7264 021472 1365 TAD (11 7265 021473 7510 SPA 7266 021474 5334 JMP BEGER2 /LIKEWISE 7267 021475 3030 DCA NUNUM 7268 021476 1027 TAD OLNUM /MULT BY 10 DECIM 7269 021477 7104 CLL RAL 7270 021500 7006 RTL 7271 021501 1027 TAD OLNUM 7272 021502 1027 TAD OLNUM 7273 021503 1030 TAD NUNUM /PLUS NEW DIGIT 7274 021504 3027 DCA OLNUM /MAKES NEW NO 7275 021505 5263 JMP BEGINP 7276 021506 1027 DN, TAD OLNUM 7277 021507 7570 SNA SPA SZL 7278 021510 5334 JMP BEGER2 /JUNKY NO 7279 021511 7041 CIA 7280 021512 1035 TAD LBLK 7281 021513 7510 SPA 7282 021514 5200 JMP BEGER0 /TOO MUCH ASKED FOR 7283 021515 3035 DCA LBLK /NEW AMOUNT REMAINING 7284 021516 1027 TAD OLNUM 7285 021517 2034 ISZ USRCTR 7286 021520 7410 SKP 7287 021521 5342 JMP BEGR2 7288 021522 3425 DCA I USRPTR 7289 021523 2025 ISZ USRPTR 7290 021524 1035 TAD LBLK 7291 021525 7640 SZA CLA /MORE TO COME IN THIS FIELD? 7292 021526 5232 JMP BEGXXX /SURE IS 7293 021527 7344 L7776 7294 021530 1032 TAD CURFLD 7295 021531 7750 SNA SPA CLA 7296 021532 5200 JMP BEGER0 7297 021533 5213 JMP BEGFLD /MORE FIELDS TO COME 7298 021534 4777 BEGER2, JMS I (BEG003 7299 021535 4102 BEGME 7300 021536 5260 JMP BEGRE 7301 021537 4777 BEGER1, JMS I (BEG003 7302 021540 4102 BEGME 7303 021541 5232 JMP BEGXXX 7304 021542 1035 BEGR2, TAD LBLK /EXPAND HIM TO FINISH FIELD 7305 021543 3425 DCA I USRPTR /THERE'S NO REASON TO WASTE CORE 7306 021544 2025 ISZ USRPTR /JUST THINK OF ALL THE PEOPLE WHO GO TO BED HUNGRY FOR IT EVERY NIGHT! 7307 021545 5764 JMP I (BEG540 7308 7309 021564 1600 PAGE 021565 0011 021566 7724 021567 7563 021570 0010 021571 7510 021572 1011 021573 2304 021574 0020 021575 0060 021576 2600 021577 1027 7310 021600 7303 BEG540, CLA CLL IAC BSW 7311 021601 1377 TAD (-100 7312 021602 7640 SZA CLA 7313 021603 5222 JMP BEG550-2 /NOT AN 8/E 7314 021604 1033 TAD BEGDEV 7315 021605 7650 SNA CLA 7316 021606 5224 JMP BEG550 /THE FOOL HAS AN 8/E WITH DC02 7317 021607 6201 CDF 7318 021610 1376 TAD (KL8JMP+1&177+5600 7319 021611 3621 DCA I BEGKL3 7320 021612 2221 ISZ BEGKL3 7321 021613 1375 TAD (KL8FIX 7322 021614 3621 DCA I BEGKL3 7323 021615 6221 CDF 20 7324 021616 5224 JMP BEG550 7325 021617 5350 BEGKL2, KL8FIX 7326 021620 0000 KL8FRST, 0 7327 021621 0205 BEGKL3, KL8JMP 7328 021622 6211 CDF 10 7329 021623 3774 DCA I (INTRRV /NOT AN 8/E 7330 021624 6221 BEG550, CDF 20 7331 021625 1373 TAD (USRLST /NOW WE SORT FOR FIELDS TO MAKE IT EASY 7332 021626 3025 DCA USRPTR 7333 021627 7325 L0003 7334 021630 1373 TAD (USRLST 7335 021631 3026 DCA CORPTR 7336 021632 1031 TAD BEGUSR 7337 021633 3034 DCA USRCTR 7338 021634 3035 DCA SS /SORT SWITCH FOR MODIFIED BUBBLE SORT 7339 021635 1025 BEG551, TAD USRPTR 7340 021636 7001 IAC 7341 021637 3027 DCA USRPT2 7342 021640 1026 TAD CORPTR 7343 021641 7001 IAC 7344 021642 3030 DCA CORPT2 7345 021643 2034 ISZ USRCTR 7346 021644 7410 SKP 7347 021645 5277 JMP BEG553 7348 021646 1427 TAD I USRPT2 7349 021647 7041 CIA 7350 021650 1430 TAD I CORPT2 7351 021651 7750 SNA SPA CLA 7352 021652 5270 JMP BEG552 7353 021653 7346 L7775 7354 021654 3035 DCA SS /3 SWAPS 7355 021655 1425 TAD I USRPTR 7356 021656 3000 DCA 0 7357 021657 1426 TAD I CORPTR 7358 021660 3425 DCA I USRPTR 7359 021661 1000 TAD 0 7360 021662 3426 DCA I CORPTR 7361 021663 2025 ISZ USRPTR 7362 021664 2026 ISZ CORPTR 7363 021665 2035 ISZ SS 7364 021666 5255 JMP .-11 7365 021667 2035 ISZ SS /SET TO INDICATE 7366 021670 7326 BEG552, L0002 7367 021671 1027 TAD USRPT2 7368 021672 3025 DCA USRPTR 7369 021673 7326 L0002 7370 021674 1030 TAD CORPT2 7371 021675 3026 DCA CORPTR 7372 021676 5235 JMP BEG551 7373 7374 021677 1035 BEG553, TAD SS 7375 021700 7640 SZA CLA 7376 021701 5224 JMP BEG550 7377 021702 5772 JMP I (BEG600 7378 021772 2000 PAGE 021773 2600 021774 4624 021775 5350 021776 5606 021777 7700 7379 022000 1377 BEG600, TAD (BEGLST 7380 022001 3027 DCA USRPT2 7381 022002 1376 TAD (USRLST 7382 022003 3025 DCA USRPTR 7383 022004 1031 TAD BEGUSR 7384 022005 3034 DCA USRCTR 7385 022006 1775 TAD I (USRLST+1 7386 022007 3032 BEG610, DCA CURFLD 7387 022010 3275 DCA BEG602 7388 022011 1374 TAD (CONEND 7389 022012 3274 DCA BEG601 7390 022013 1425 NXUSR, TAD I USRPTR 7391 022014 2025 ISZ USRPTR 7392 022015 3427 DCA I USRPT2 7393 022016 2027 ISZ USRPT2 7394 022017 1425 TAD I USRPTR 7395 022020 7041 CIA 7396 022021 1032 TAD CURFLD 7397 022022 7640 SZA CLA 7398 022023 5276 JMP BEG609 /HE WANTS A NEW FIELD 7399 022024 2025 ISZ USRPTR 7400 022025 1032 TAD CURFLD 7401 022026 7104 CLL RAL 7402 022027 7006 RTL 7403 022030 1373 TAD (6201 /MAKE UP XFIELD OP 7404 022031 3427 DCA I USRPT2 /INTO OUR QUICKIE LIST 7405 022032 2027 ISZ USRPT2 7406 022033 1425 TAD I USRPTR 7407 022034 2025 ISZ USRPTR 7408 022035 7041 CIA 7409 022036 3035 DCA SS 7410 022037 1372 TAD (400 7411 022040 2035 ISZ SS 7412 022041 5237 JMP .-2 /MULT. HIS BLOCKSIZE BY 400 OCTAL FOR CORE SIZE 7413 022042 3035 DCA SS 7414 022043 7344 L7776 7415 022044 1275 TAD BEG602 7416 022045 3427 DCA I USRPT2 7417 022046 2027 ISZ USRPT2 7418 022047 1035 TAD SS 7419 022050 7041 CIA 7420 022051 1275 TAD BEG602 7421 022052 3275 DCA BEG602 7422 022053 7307 L0004 7423 022054 1275 TAD BEG602 7424 022055 7710 SPA CLA 7425 022056 5266 JMP BEG608-1 7426 022057 1275 TAD BEG602 7427 022060 7510 SPA 7428 022061 5310 JMP BEG607 7429 022062 7041 CIA 7430 022063 1274 TAD BEG601 7431 022064 7700 SMA CLA 7432 022065 5310 JMP BEG607 7433 022066 1275 TAD BEG602 7434 022067 3427 BEG608, DCA I USRPT2 7435 022070 2027 ISZ USRPT2 7436 022071 2034 ISZ USRCTR 7437 022072 5213 JMP NXUSR 7438 022073 5771 JMP I (BEG700 /WHEW..THAT WENT QUICKLY ANYWAY 7439 022074 0000 BEG601, 0 /BOTTOM 7440 022075 0000 BEG602, 0 /TOP 7441 022076 1025 BEG609, TAD USRPTR 7442 022077 3032 DCA CURFLD /SAVE IT 7443 022100 7340 L7777 7444 022101 1025 TAD USRPTR 7445 022102 3025 DCA USRPTR /TAKE OUT ENTRIES 7446 022103 7340 L7777 7447 022104 1027 TAD USRPT2 7448 022105 3027 DCA USRPT2 7449 022106 1432 TAD I CURFLD /COUNT DOWN FIELD 7450 022107 5207 JMP BEG610 7451 022110 7200 BEG607, CLA 7452 022111 1274 TAD BEG601 7453 022112 5267 JMP BEG608 7454 022171 2200 PAGE 022172 0400 022173 6201 022174 0025 022175 2601 022176 2600 022177 3600 7455 7456 022200 1377 BEG700, TAD (BEGLST 7457 022201 3025 DCA USRPTR 7458 022202 3035 DCA SS 7459 022203 1031 TAD BEGUSR 7460 022204 3034 DCA USRCTR 7461 022205 7307 L0004 7462 022206 1377 TAD (BEGLST 7463 022207 3027 DCA USRPT2 7464 022210 2034 BEG7X1, ISZ USRCTR 7465 022211 7410 SKP 7466 022212 5246 JMP BEG703 7467 022213 1425 TAD I USRPTR 7468 022214 7041 CIA 7469 022215 1427 TAD I USRPT2 7470 022216 7450 SNA 7471 022217 5776 JMP I (BEGER0 /MULTIPLE ASSIGNMENTS FOR ONE USER 7472 022220 7710 SPA CLA 7473 022221 5240 JMP BEG702 7474 022222 1375 TAD (-4 7475 022223 3035 DCA SS 7476 022224 1425 BEG701, TAD I USRPTR 7477 022225 3026 DCA CORPTR 7478 022226 1427 TAD I USRPT2 7479 022227 3425 DCA I USRPTR 7480 022230 1026 TAD CORPTR 7481 022231 3427 DCA I USRPT2 7482 022232 2025 ISZ USRPTR 7483 022233 2027 ISZ USRPT2 7484 022234 2035 ISZ SS 7485 022235 5224 JMP BEG701 7486 022236 2035 ISZ SS 7487 022237 1375 TAD (-4 7488 022240 1027 BEG702, TAD USRPT2 7489 022241 3025 DCA USRPTR 7490 022242 7307 L0004 7491 022243 1025 TAD USRPTR 7492 022244 3027 DCA USRPT2 7493 022245 5210 JMP BEG7X1 7494 7495 022246 1035 BEG703, TAD SS 7496 022247 7640 SZA CLA 7497 022250 5200 JMP BEG700 /MORE TO COME 7498 022251 1377 TAD (BEGLST 7499 022252 3025 DCA USRPTR /NOW TAKE OUT USER NOS. 7500 022253 1031 TAD BEGUSR 7501 022254 3034 DCA USRCTR 7502 022255 7001 IAC 7503 022256 1377 TAD (BEGLST 7504 022257 3027 DCA USRPT2 7505 022260 7346 BEG704, L7775 7506 022261 3035 DCA SS 7507 022262 1427 TAD I USRPT2 7508 022263 3425 DCA I USRPTR 7509 022264 2025 ISZ USRPTR 7510 022265 2027 ISZ USRPT2 7511 022266 2035 ISZ SS 7512 022267 5262 JMP .-5 7513 022270 2027 ISZ USRPT2 /SKIP OVER USER NO. 7514 022271 2034 ISZ USRCTR 7515 022272 5260 JMP BEG704 7516 022273 4774 JMS I (BEG003 7517 022274 4431 BEGM6A 7518 022275 4773 JMS I (BEG001 7519 022276 1372 TAD (-"Y 7520 022277 7640 SZA CLA 7521 022300 5771 JMP I (BEG002 /OH NO--ALL THIS JUNK FOR NOTHING! 7522 022301 4774 JMS I (BEG003 7523 022302 4343 BEGM6 7524 022303 5770 JMP I (BEG750 7525 7526 022304 0000 BEGPRNT,0 7527 022305 3340 DCA BEG705 7528 022306 1367 TAD (-12 7529 022307 3336 DCA BEG706 7530 022310 3337 DCA BEG707 7531 022311 5314 JMP .+3 7532 022312 2337 ISZ BEG707 7533 022313 3340 DCA BEG705 7534 022314 1340 BEGPR1, TAD BEG705 7535 022315 1336 TAD BEG706 7536 022316 7500 SMA 7537 022317 5312 JMP .-5 7538 022320 7200 CLA 7539 022321 1366 TAD (60 7540 022322 1337 TAD BEG707 7541 022323 6046 TLS 7542 022324 6041 TSF 7543 022325 5324 JMP .-1 7544 022326 6032 KCC 7545 022327 2336 ISZ BEG706 7546 022330 7410 SKP 7547 022331 5704 JMP I BEGPRNT /WAS SECOND TIME THROUGH 7548 022332 7340 L7777 7549 022333 3336 DCA BEG706 7550 022334 3337 DCA BEG707 7551 022335 5314 JMP BEGPR1 7552 022336 0000 BEG706, 0 7553 022337 0000 BEG707, 0 7554 022340 0000 BEG705, 0 7555 BEG604=SS 7556 BEG605=USRPTR 7557 022366 0060 PAGE 022367 7766 022370 2400 022371 0423 022372 7447 022373 1011 022374 1027 022375 7774 022376 1400 022377 3600 7558 7559 022400 6221 BEG750, CDF 20 7560 022401 1036 TAD BEGCOR 7561 022402 3777 DCA I (BGCORS 7562 022403 6201 CDF 7563 022404 1776 TAD I (MLOOKE 7564 022405 1031 TAD BEGUSR 7565 022406 3776 DCA I (MLOOKE /CORRECT FOR NO. OF USERS 7566 022407 1776 TAD I (MLOOKE 7567 022410 7041 CIA 7568 022411 3775 DCA I (LOOK 7569 022412 1031 TAD BEGUSR 7570 022413 3774 DCA I (MUSER /SETUP FOR NO. OF USERS 7571 022414 6211 CDF 10 7572 022415 1373 TAD (BEGIOT-1 7573 022416 3035 DCA BEG604 7574 022417 1372 TAD (INTRPL 7575 022420 3025 DCA BEG605 7576 022421 7340 L7777 7577 022422 1031 TAD BEGUSR 7578 022423 3306 DCA BEG60X 7579 022424 1031 TAD BEGUSR 7580 022425 3034 DCA USRCTR 7581 022426 6221 BEG75Q, CDF 20 7582 022427 1435 TAD I BEG604 7583 022430 2035 ISZ BEG604 7584 022431 6201 CDF 7585 022432 2306 ISZ BEG60X 7586 022433 5237 JMP .+4 7587 022434 7240 CLA CMA 7588 022435 3306 DCA BEG60X 7589 022436 1371 TAD (CLA-6006 7590 022437 1370 TAD (6006 7591 022440 3425 DCA I BEG605 7592 022441 2025 ISZ BEG605 7593 022442 2034 ISZ USRCTR 7594 022443 5226 JMP BEG75Q 7595 022444 6201 CDF 7596 022445 1031 TAD BEGUSR 7597 022446 3035 DCA SS 7598 022447 2035 ISZ SS 7599 022450 7410 SKP 7600 022451 5254 JMP .+3 7601 022452 7130 CLL CML RAR 7602 022453 5247 JMP .-4 7603 022454 7001 IAC 7604 022455 3767 DCA I (AUSER 7605 022456 6221 CDF 20 7606 022457 1036 BEG75X, TAD BEGCOR 7607 022460 7106 CLL RTL 7608 022461 7004 RAL 7609 022462 1366 TAD (CDF 7610 022463 3276 DCA BEG756 7611 022464 1276 TAD BEG756 7612 022465 1365 TAD (-6221 7613 022466 7650 SNA CLA 7614 022467 5307 JMP BEG760 7615 022470 3034 DCA BEG751 7616 022471 3025 DCA BEG752 7617 022472 6221 BEG755, CDF 20 7618 022473 1434 TAD I BEG751 7619 022474 2034 ISZ BEG751 7620 022475 7000 NOP 7621 022476 6231 BEG756, CDF 30 7622 022477 3425 DCA I BEG752 7623 022500 2025 ISZ BEG752 7624 022501 5272 JMP BEG755 7625 022502 7340 L7777 7626 022503 1036 TAD BEGCOR 7627 022504 3036 DCA BEGCOR 7628 022505 5257 JMP BEG75X 7629 7630 022506 0000 BEG60X, 0 7631 BEG751=USRCTR 7632 BEG752=USRPTR 7633 022507 1033 BEG760, TAD BEGDEV 7634 022510 7650 SNA CLA 7635 022511 5326 JMP BEG76X 7636 022512 6201 CDF 7637 022513 3764 DCA I (XOUTL6+3 7638 022514 3763 DCA I (XOUTL6+4 7639 022515 3762 DCA I (XOUTL6-3 7640 022516 3761 DCA I (INTRP2-2 7641 022517 3760 DCA I (INTRP2+4 7642 022520 3757 DCA I (INTRP5 7643 022521 3756 DCA I (INTRP5+1 7644 022522 3755 DCA I (INTRP5+2 7645 022523 6211 CDF 10 7646 022524 3754 DCA I (INTRV2-2 7647 022525 5753 JMP I (BEG800 7648 7649 022526 6211 BEG76X, CDF 10 7650 022527 1352 TAD (TLS 7651 022530 3751 DCA I (AAACDF+1 7652 022531 3750 DCA I (AAACDF+2 7653 022532 1347 TAD (MTLS 7654 022533 3746 DCA I (INTRV2-1 7655 022534 5753 JMP I (BEG800 7656 022546 4625 PAGE 022547 6126 022550 4627 022551 4626 022552 6046 022553 3400 022554 4624 022555 5266 022556 5265 022557 5264 022560 5245 022561 5237 022562 3423 022563 3432 022564 3431 022565 1557 022566 6201 022567 5326 022570 6006 022571 1172 022572 5330 022573 3363 022574 5325 022575 0117 022576 0227 022577 7424 7657 022600 0000 USRLST, 0 7658 PAGE 7659 023000 7340 BEGOLD, L7777 7660 023001 1036 TAD BEGCOR /COUNT DOWN BY ONE FOR BREVITY OF LISTS 7661 023002 7106 CLL RTL 7662 023003 7004 RAL 7663 023004 1031 TAD BEGUSR /GET ADDR. OF ADDR. OF LIST 7664 023005 1377 TAD (BGLD1 7665 023006 3035 DCA SS 7666 023007 1435 TAD I SS 7667 023010 3035 DCA SS 7668 023011 1376 TAD (USRLST 7669 023012 3025 DCA USRPTR /SETUP TO SLIDE 7670 023013 1031 TAD BEGUSR 7671 023014 3034 DCA USRCTR /NO. OF SLIDES 7672 023015 1435 BEGOL1, TAD I SS 7673 023016 7106 CLL RTL 7674 023017 7006 RTL 7675 023020 0375 AND (7 7676 023021 3425 DCA I USRPTR 7677 023022 2025 ISZ USRPTR 7678 023023 1435 TAD I SS 7679 023024 7112 CLL RTR 7680 023025 7012 RTR 7681 023026 7012 RTR 7682 023027 0375 AND (7 /SET FIELD 7683 023030 3425 DCA I USRPTR 7684 023031 2025 ISZ USRPTR 7685 023032 1435 TAD I SS 7686 023033 0374 AND (37 7687 023034 3425 DCA I USRPTR 7688 023035 2035 ISZ SS 7689 023036 2025 ISZ USRPTR 7690 023037 2034 ISZ USRCTR 7691 023040 5215 JMP BEGOL1 7692 023041 5773 JMP I (BEG540 /CONTINUE ON...WE'VE ANSWERED QUESTIONS FOR HIM NOW. 7693 023173 1600 PAGE 023174 0037 023175 0007 023176 2600 023177 3303 7694 X=100 7695 023200 1210 BGL22, 12^X+10 7696 023201 2210 22^X+10 7697 023202 1220 BGL21, 12^X+20 7698 BGL31=BGL21 7699 BGL41=BGL21 7700 BGL51=BGL21 7701 BGL61=BGL21 7702 BGL71=BGL21 7703 023203 1206 BGL23, 12^X+6 7704 023204 2205 22^X+5 7705 023205 3205 32^X+5 7706 023206 1204 BGL24, 12^X+4 7707 023207 2204 22^X+4 7708 023210 3204 32^X+4 7709 023211 4204 42^X+4 7710 023212 1204 BGL25, 12^X+4 7711 023213 2203 22^X+3 7712 023214 3203 32^X+3 7713 023215 4203 42^X+3 7714 023216 5203 52^X+3 7715 023217 1220 BGL33, 12^X+20 7716 023220 2310 23^X+10 7717 023221 3310 33^X+10 7718 023222 1220 BGL32, 12^X+20 7719 023223 2320 23^X+20 7720 BGL42=BGL32 7721 BGL52=BGL32 7722 BGL62=BGL32 7723 BGL72=BGL32 7724 023224 1210 BGL34, 12^X+10 7725 023225 2210 22^X+10 7726 023226 3310 33^X+10 7727 023227 4310 43^X+10 7728 023230 1205 BGL35, 12^X+5 7729 023231 2206 22^X+6 7730 023232 3205 32^X+5 7731 023233 4310 43^X+10 7732 023234 5310 53^X+10 7733 7734 7735 023235 1220 BGL44, 12^X+20 7736 023236 2320 23^X+20 7737 023237 3410 34^X+10 7738 023240 4410 44^X+10 7739 023241 1220 BGL43, 12^X+20 7740 023242 2320 23^X+20 7741 023243 3420 34^X+20 7742 BGL53=BGL43 7743 BGL63=BGL43 7744 BGL73=BGL43 7745 023244 1220 BGL45, 12^X+20 7746 023245 2310 23^X+10 7747 023246 3310 33^X+10 7748 023247 4410 44^X+10 7749 023250 5410 54^X+10 7750 023251 1220 BGL55, 12^X+20 7751 023252 2320 23^X+20 7752 023253 3420 34^X+20 7753 023254 4510 45^X+10 7754 023255 5510 55^X+10 7755 023256 1220 BGL54, 12^X+20 7756 023257 2320 23^X+20 7757 023260 3420 34^X+20 7758 023261 4520 45^X+20 7759 BGL64=BGL54 7760 BGL74=BGL54 7761 7762 023262 1220 BGL56, 12^X+20 7763 023263 2320 23^X+20 7764 023264 3410 34^X+10 7765 023265 4410 44^X+10 7766 023266 5510 55^X+10 7767 023267 6510 65^X+10 7768 023270 1220 BGL65, 12^X+20 7769 023271 2320 23^X+20 7770 023272 3420 34^X+20 7771 023273 4520 45^X+20 7772 023274 5620 56^X+20 7773 BGL75=BGL65 7774 023275 7720 BGL77, 77^X+20 7775 023276 1220 BGL76, 12^X+20 7776 023277 2320 23^X+20 7777 023300 3420 34^X+20 7778 023301 5620 56^X+20 7779 023302 4520 45^X+20 7780 023303 0000 BGLD1, 0;0;0 023304 0000 023305 0000 7781 023306 3212 BGL25 7782 023307 3206 BGL24 7783 023310 3203 BGL23 7784 023311 3200 BGL22 7785 023312 3202 BGL21 7786 023313 0000 0;0;0 023314 0000 023315 0000 7787 023316 3230 BGL35 7788 023317 3224 BGL34 7789 023320 3217 BGL33 7790 023321 3222 BGL32 7791 023322 3202 BGL31 7792 023323 0000 0;0;0 023324 0000 023325 0000 7793 023326 3244 BGL45 7794 023327 3235 BGL44 7795 023330 3241 BGL43 7796 023331 3222 BGL42 7797 023332 3202 BGL41 7798 023333 0000 0;0;0 023334 0000 023335 0000 7799 023336 3251 BGL55 7800 023337 3256 BGL54 7801 023340 3241 BGL53 7802 023341 3222 BGL52 7803 023342 3202 BGL51 7804 023343 0000 0;0;0 023344 0000 023345 0000 7805 023346 3270 BGL65 7806 023347 3256 BGL64 7807 023350 3241 BGL63 7808 023351 3222 BGL62 7809 023352 3202 BGL61 7810 023353 0000 0;0;0 023354 0000 023355 0000 7811 023356 3270 BGL75 7812 023357 3256 BGL74 7813 023360 3241 BGL73 7814 023361 3222 BGL72 7815 023362 3202 BGL71 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7830 7831 7832 7833 7834 7835 7836 7837 7838 023363 0040 0040 7839 023364 0120 BEGIOT, 0120 7840 023365 0120 0120 7841 023366 0120 0120 7842 023367 0120 0120 7843 7844 7845 PAGE 7846 023400 6221 BEG800, CDF 20 7847 023401 1730 TAD I BEG804 7848 023402 4342 JMS BEG900 7849 023403 1377 TAD (-4 7850 023404 4333 JMS BEGZER 7851 023405 1376 TAD (READY 7852 023406 4342 JMS BEG900 7853 023407 1375 TAD (-10 7854 023410 4333 JMS BEGZER 7855 023411 7340 L7777 7856 023412 4342 JMS BEG900 7857 023413 4342 JMS BEG900 7858 023414 1731 TAD I BEG805 7859 023415 1374 TAD (6006-10 7860 023416 4342 JMS BEG900 7861 023417 1726 TAD I BEG802 7862 023420 4342 JMS BEG900 7863 023421 1373 TAD (-5 7864 023422 4333 JMS BEGZER 7865 023423 1372 TAD (BUFFER 7866 023424 1727 TAD I BEG803 7867 023425 4342 JMS BEG900 7868 023426 1372 TAD (BUFFER 7869 023427 1727 TAD I BEG803 7870 023430 4342 JMS BEG900 7871 023431 1372 TAD (BUFFER 7872 023432 1727 TAD I BEG803 7873 023433 4342 JMS BEG900 7874 023434 1371 TAD (BUFFER-40 7875 023435 1727 TAD I BEG803 7876 023436 4342 JMS BEG900 7877 023437 1371 TAD (BUFFER-40 7878 023440 1727 TAD I BEG803 7879 023441 4342 JMS BEG900 7880 023442 7346 L7775 7881 023443 4333 JMS BEGZER 7882 023444 1370 TAD (LINE1 7883 023445 1727 TAD I BEG803 7884 023446 4342 JMS BEG900 7885 023447 1370 TAD (LINE1 7886 023450 1727 TAD I BEG803 7887 023451 4342 JMS BEG900 7888 023452 1730 TAD I BEG804 7889 023453 4342 JMS BEG900 7890 023454 1367 TAD (LINE0 7891 023455 1727 TAD I BEG803 7892 023456 4342 JMS BEG900 7893 023457 1366 TAD (BUFCOM 7894 023460 1727 TAD I BEG803 7895 023461 4342 JMS BEG900 7896 023462 4342 JMS BEG900 7897 023463 4342 JMS BEG900 7898 023464 1365 TAD (1617 /"NO" 7899 023465 4342 JMS BEG900 7900 023466 1364 TAD (1605 /"NE" 7901 023467 4342 JMS BEG900 7902 023470 4342 JMS BEG900 7903 023471 1363 TAD (XREADC 7904 023472 4342 JMS BEG900 7905 023473 1362 TAD (XPRNTC 7906 023474 4342 JMS BEG900 7907 023475 1361 TAD (XFREE2 7908 023476 4342 JMS BEG900 7909 023477 1360 TAD (XFREE3 7910 023500 4342 JMS BEG900 7911 023501 1332 TAD BEGBAS 7912 023502 4342 JMS BEG900 7913 023503 1332 TAD BEGBAS 7914 023504 1357 TAD (400 7915 023505 3332 DCA BEGBAS 7916 023506 1356 TAD (-13 7917 023507 4333 JMS BEGZER 7918 023510 2326 ISZ BEG802 7919 023511 2326 ISZ BEG802 7920 023512 2326 ISZ BEG802 7921 023513 2327 ISZ BEG803 7922 023514 2327 ISZ BEG803 7923 023515 2327 ISZ BEG803 7924 023516 2330 ISZ BEG804 7925 023517 2330 ISZ BEG804 7926 023520 2330 ISZ BEG804 7927 023521 2331 ISZ BEG805 7928 023522 2031 ISZ BEGUSR 7929 023523 5200 JMP BEG800 7930 023524 5755 JMP I (FINISH 7931 7932 023525 4746 BEG801, ORG1 /KLUDGE TO MAKE EXTRA ROOM 7933 023526 3600 BEG802, BEGLST 7934 023527 3602 BEG803, BEGLST+2 7935 023530 3601 BEG804, BEGLST+1 7936 023531 3363 BEG805, BEGIOT-1 7937 023532 5400 BEGBAS, 5400 7938 7939 023533 0000 BEGZER, 0 7940 023534 3341 DCA BEGZCT 7941 023535 4342 JMS BEG900 7942 023536 2341 ISZ BEGZCT 7943 023537 5335 JMP .-2 7944 023540 5733 JMP I BEGZER 7945 7946 023541 0000 BEGZCT, 0 7947 7948 023542 0000 BEG900, 0 7949 023543 6211 CDF 10 7950 023544 3725 DCA I BEG801 7951 023545 6221 CDF 20 7952 023546 2325 ISZ BEG801 7953 023547 5742 JMP I BEG900 7954 7955 023555 7400 PAGE 023556 7765 023557 0400 023560 6007 023561 6000 023562 7407 023563 3714 023564 1605 023565 1617 023566 0100 023567 0162 023570 0164 023571 0000 023572 0040 023573 7773 023574 5776 023575 7770 023576 0467 023577 7774 7956 023600 0000 BEGLST,0 7957 PAGE 7958 024000 3711 OS8ERM, TEXT "_ILLEGAL OS/8 DEVICE FOUND_NO BOOTSTRAP POSSIBLE!__" 024001 1414 024002 0507 024003 0114 024004 4017 024005 2357 024006 7040 024007 0405 024010 2611 024011 0305 024012 4006 024013 1725 024014 1604 024015 3716 024016 1740 024017 0217 024020 1724 024021 2324 024022 2201 024023 2040 024024 2017 024025 2323 024026 1102 024027 1405 024030 4137 024031 3700 7959 7960 024032 3724 OS8MSG, TEXT "_TO BOOTSTRAP BACK " 024033 1740 024034 0217 024035 1724 024036 2324 024037 2201 024040 2040 024041 0201 024042 0313 024043 4000 7961 024044 1723 OS8M1, TEXT "OS/8 " 024045 5770 024046 4000 7962 024047 1517 OS8M2, TEXT "MONITOR:_ LOAD ADDRESS 07600_ AND START__" 024050 1611 024051 2417 024052 2272 024053 3740 024054 1417 024055 0104 024056 4001 024057 0404 024060 2205 024061 2323 024062 4060 024063 6766 024064 6060 024065 3740 024066 0116 024067 0440 024070 2324 024071 0122 024072 2437 024073 3700 7963 7964 024074 0411 DSKMM, TEXT "DISK " 024075 2313 024076 4000 7965 7966 024077 2401 TAPMM, TEXT "TAPE " 024100 2005 024101 4000 7967 024102 3711 BEGME, TEXT %_INVALID RESPONSE_% 024103 1626 024104 0114 024105 1104 024106 4022 024107 0523 024110 2017 024111 1623 024112 0537 024113 0000 7968 024114 3737 BEGM1, TEXT %__EDUSYSTEM 25% 024115 0504 024116 2523 024117 3123 024120 2405 024121 1540 024122 6265 024123 0000 7969 *.-1 7970 024123 5506 "-&77^100+V 7971 024124 4002 TEXT % BASIC__% 024125 0123 024126 1103 024127 3737 024130 0000 7972 7973 024131 3716 BEGM2, TEXT %_NUMBER OF USERS (1 TO 5)?% 024132 2515 024133 0205 024134 2240 024135 1706 024136 4025 024137 2305 024140 2223 024141 4050 024142 6140 024143 2417 024144 4065 024145 5177 024146 0000 7974 024147 3720 BEGM4, TEXT %_PDP-8/L COMPUTER (Y OR N)?% 024150 0420 024151 5570 024152 5714 024153 4003 024154 1715 024155 2025 024156 2405 024157 2240 024160 5031 024161 4017 024162 2240 024163 1651 024164 7700 7975 024165 3737 NOCOR, TEXT %__NOT ENOUGH CORE FOR EDUSYSTEM 25--12K REQUIRED% 024166 1617 024167 2440 024170 0516 024171 1725 024172 0710 024173 4003 024174 1722 024175 0540 024176 0617 024177 2240 024200 0504 024201 2523 024202 3123 024203 2405 024204 1540 024205 6265 024206 5555 024207 6162 024210 1340 024211 2205 024212 2125 024213 1122 024214 0504 024215 0000 7976 024216 3724 BEGM5, TEXT %_TELETYPE #1 DEVICE CODE?% 024217 0514 024220 0524 024221 3120 024222 0540 024223 4361 024224 4004 024225 0526 024226 1103 024227 0540 024230 0317 024231 0405 024232 7700 7977 BEGM5A=BEGM5+5 7978 024233 3723 BEGM7, TEXT %_STANDARD REMOTE TELETYPE CODES (Y OR N)?% 024234 2401 024235 1604 024236 0122 024237 0440 024240 2205 024241 1517 024242 2405 024243 4024 024244 0514 024245 0524 024246 3120 024247 0540 024250 0317 024251 0405 024252 2340 024253 5031 024254 4017 024255 2240 024256 1651 024257 7700 7979 024260 3706 BEGMFL, TEXT %_FIELD % 024261 1105 024262 1404 024263 4000 7980 024264 3724 BEGMXX, TEXT %_THERE ARE % 024265 1005 024266 2205 024267 4001 024270 2205 024271 4000 7981 024272 4002 BEGMX1, TEXT % BLOCKS LEFT IN THIS FIELD._ YOUR ALLOCATION FOR USER #% 024273 1417 024274 0313 024275 2340 024276 1405 024277 0624 024300 4011 024301 1640 024302 2410 024303 1123 024304 4006 024305 1105 024306 1404 024307 5637 024310 4031 024311 1725 024312 2240 024313 0114 024314 1417 024315 0301 024316 2411 024317 1716 024320 4006 024321 1722 024322 4025 024323 2305 024324 2240 024325 4300 7982 024326 4027 BEGTTI, TEXT % WILL BE HOW MANY BLOCKS?% 024327 1114 024330 1440 024331 0205 024332 4010 024333 1727 024334 4015 024335 0116 024336 3140 024337 0214 024340 1703 024341 1323 024342 7700 7983 024343 3737 BEGM6, TEXT %__END OF DIALOGUE_% 024344 0516 024345 0440 024346 1706 024347 4004 024350 1101 024351 1417 024352 0725 024353 0537 024354 0000 7984 024355 3702 WNGDM, TEXT %_BLOCK SIZES DON'T WORK--HAVE TO START AGAIN__% 024356 1417 024357 0313 024360 4023 024361 1132 024362 0523 024363 4004 024364 1716 024365 4724 024366 4027 024367 1722 024370 1355 024371 5510 024372 0126 024373 0540 024374 2417 024375 4023 024376 2401 024377 2224 024400 4001 024401 0701 024402 1116 024403 3737 024404 0000 7985 024405 3723 BEGMQ, TEXT %_SAME AMOUNT OF STORAGE FOR ALL USERS?% 024406 0115 024407 0540 024410 0115 024411 1725 024412 1624 024413 4017 024414 0640 024415 2324 024416 1722 024417 0107 024420 0540 024421 0617 024422 2240 024423 0114 024424 1440 024425 2523 024426 0522 024427 2377 024430 0000 7986 024431 3711 BEGM6A, TEXT %_IS THE ABOVE CORRECT (Y OR N)?% 024432 2340 024433 2410 024434 0540 024435 0102 024436 1726 024437 0540 024440 0317 024441 2222 024442 0503 024443 2440 024444 5031 024445 4017 024446 2240 024447 1651 024450 7700 7987 *7400 7988 027400 1377 FINISH, TAD (CONEND 7989 027401 3225 DCA XPNT 7990 027402 1224 TAD BGCORS 7991 027403 7106 CLL RTL 7992 027404 7004 RAL 7993 027405 1376 TAD (CDF 7994 027406 3207 DCA XCDF 7995 027407 0000 XCDF, 0 7996 027410 3625 DCA I XPNT /CLEAR FIELD 7997 027411 2225 ISZ XPNT 7998 027412 5210 JMP .-2 7999 027413 7340 L7777 8000 027414 1224 TAD BGCORS 8001 027415 3224 DCA BGCORS 8002 027416 7340 L7777 8003 027417 1224 TAD BGCORS 8004 027420 7640 SZA CLA 8005 027421 5200 JMP FINISH /ANOTHER FIELD TO WIPE STILL 8006 027422 6203 CIF CDF 8007 027423 5775 JMP I (ENTRY /WHEW! 8008 027424 0000 BGCORS, 0 8009 027425 0000 XPNT, 0 8010 027575 0356 $*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$*$* 027576 6201 027577 0025 A0000 4621 AAACDF 4625 ABS 2557 AC1 0047 AC2 0046 AC3 0045 AC3I 4531 ACEXP 0044 ACN 0415 ACSIGN 0042 ADD 0023 AL1 0647 ALGNLP 0470 ALINE0 0057 ALPTST 5751 ALT 3506 ANYINP 0664 AR1 0400 ARGNXT 2736 ASORTC 0145 ATN 5465 ATNBIG 2265 ATNLOW 2220 ATNNOT 2237 ATNSGN 2200 AUDF 0160 AUSER 5326 AXIN 0016 AXOUT 0017 BASE 0072 BCKWDS 0504 BEG001 1011 BEG002 0423 BEG003 1027 BEG004 1075 BEG005 1003 BEG006 0440 BEG007 1006 unreferenced BEG008 0453 BEG009 0473 BEG010 0507 BEG012 0535 BEG013 0536 BEG014 0633 BEG015 0600 BEG016 1000 BEG03X 1045 BEG12A 0534 BEG14A 0525 BEG14B 0522 BEG15A 0620 BEG15B 0632 BEG15C 0631 BEG15D 0626 BEG15E 0604 BEG500 1403 BEG540 1600 BEG550 1624 BEG551 1635 BEG552 1670 BEG553 1677 BEG600 2000 BEG601 2074 BEG602 2075 BEG604 0035 BEG605 0025 BEG607 2110 BEG608 2067 BEG609 2076 BEG60X 2506 BEG610 2007 BEG700 2200 BEG701 2224 BEG702 2240 BEG703 2246 BEG704 2260 BEG705 2340 BEG706 2336 BEG707 2337 BEG750 2400 BEG751 0034 BEG752 0025 BEG755 2472 BEG756 2476 BEG75Q 2426 BEG75X 2457 BEG760 2507 BEG76X 2526 BEG7X1 2210 BEG800 3400 BEG801 3525 BEG802 3526 BEG803 3527 BEG804 3530 BEG805 3531 BEG900 3542 BEGBAS 3532 BEGCHK 0701 BEGCK0 1200 BEGCOR 0036 BEGDEV 0033 BEGER0 1400 BEGER1 1537 BEGER2 1534 BEGFLD 1413 BEGIN 0200 unreferenced BEGIN1 0537 BEGIN2 0540 BEGINP 1463 BEGIOT 3364 BEGKL2 1617 unreferenced BEGKL3 1621 BEGLST 3600 BEGM1 4114 BEGM2 4131 BEGM4 4147 BEGM5 4216 BEGM5A 4223 BEGM6 4343 BEGM6A 4431 BEGM7 4233 BEGME 4102 BEGMFL 4260 BEGMQ 4405 BEGMV1 0541 BEGMV2 0542 BEGMV3 0543 BEGMV4 0400 BEGMX1 4272 BEGMXX 4264 BEGOL1 3015 BEGOLD 3000 BEGPR1 2314 BEGPRN 2304 BEGR2 1542 BEGRE 1460 BEGTTI 4326 BEGUSR 0031 BEGX08 0667 BEGXXX 1432 BEGZCT 3541 BEGZER 3533 BGCORS 7424 BGL21 3202 BGL22 3200 BGL23 3203 BGL24 3206 BGL25 3212 BGL31 3202 BGL32 3222 BGL33 3217 BGL34 3224 BGL35 3230 BGL41 3202 BGL42 3222 BGL43 3241 BGL44 3235 BGL45 3244 BGL51 3202 BGL52 3222 BGL53 3241 BGL54 3256 BGL55 3251 BGL56 3262 unreferenced BGL61 3202 BGL62 3222 BGL63 3241 BGL64 3256 BGL65 3270 BGL71 3202 BGL72 3222 BGL73 3241 BGL74 3256 BGL75 3270 BGL76 3276 unreferenced BGL77 3275 unreferenced BGLD1 3303 BLKHLD 2755 BLOCK 0061 BSW 7002 BUFCOM 0100 BUFFER 0040 BUFR 0054 BUMPXR 4436 BYE 4226 C10 0137 C137 0126 C14 0130 unreferenced C140 0755 C16 0552 C177 0125 C233 1145 C37 3115 C40 0133 C50 2456 C60 0226 C7 0124 C7400 6740 C7600 0201 C77 0134 C7700 0141 CAF 6007 CAT 6317 CAT0 3530 CAT1 3123 CATLOG 7506 CATLUP 7517 CCAT1 6344 CCAT2 6360 CCAT3 6354 CCIF 4704 CCIF2 4660 CCR 0123 CCRTST 6431 CHAIN 6562 CHAIN1 2463 CHAIN2 7334 CHAINP 0102 CHAR 0026 CHKFIL 1134 CITPRN 2371 CLF 0131 CLOSE 4434 CLOSE0 7414 CNOP 0704 CNTR 0111 COM1 2010 COM10 2105 unreferenced COM11 2073 COM12 2141 COM2 2041 COM3 2023 COM4 2027 COM5 2044 COM7 2133 COM8 2100 COM9 2122 COMBUF 0060 COMGO1 4724 COMGOL 3750 COMMAN 4571 COMTST 6423 CONBEG 0000 unreferenced CONEND 0025 CONLP 3446 CONLPT 3504 CONMTF 3463 CONSOL 3445 CORDON 0454 CORPT2 0030 CORPTR 0026 COS 5461 CREADY 2362 CRLF 1071 CSAVDO 2372 CTAPE 2373 CURFLD 0032 CXDELE 2370 D7000 3343 unreferenced D7600 3345 DATAPC 0037 DATLOG 7504 DCAA 3325 DCORE 3331 DECEXP 1524 DECK 0036 DECKNI 5307 DECKON 0304 DECODE 0512 unreferenced DECON 1124 DECONV 1103 DECTAP 4431 DELETE 2240 DEMPTY 3157 DER 3366 DFIND 0355 DGET 3247 DGO 3262 DGR 3206 unreferenced DINPUT 0033 DINT 3277 DIRBUF 4220 DIRSCH 4437 DIS 0020 DISKM 0275 DIVLP 0677 DN 1506 DNUMBR 1102 DOLCHK 7534 DR127 3270 DR128 3253 DRET 3332 DSKMM 4074 DTAPE 3200 DTBLOK 3330 DTCHK 0352 DTCHKX 3560 DTEM 3247 DTFIND 3361 DTFREE 6627 DTGRAB 6602 DTINTR 0000 DTLA 6766 DTQ 7000 DTQ1 6600 DTQ2 6601 DTS1 3215 unreferenced DTS3A 3333 DTURN 3357 unreferenced DTURNX 3364 DWC 3326 DWDS 3327 DXIT 3245 ECALL 2600 ECALLI 4530 EDIT 2200 EFOP 0111 ELPAR 2634 END 4235 ENDF1 7745 ENDFND 6523 ENDFUN 7741 ENDTST 6436 ENSWAP 0105 ENTER 4432 unreferenced ENTRIE 0063 ENTRY 0356 ENTRY1 0332 ENTXIT 2703 ENUM 2641 EOCLOS 3511 EPAR 2723 EPAR2 2636 EPINPA 2237 ERLINE 0062 ERR000 1563 ERR001 2202 ERR002 4227 ERR003 5102 ERR004 0616 ERR010 2103 ERR020 1607 ERR030 0663 ERR040 0355 ERR050 0644 ERR060 3625 ERR070 0711 ERR080 3440 ERR100 4475 ERR110 2757 ERR120 2660 ERR130 4456 ERR150 1031 ERR160 1142 ERR170 3051 ERR180 3074 ERR200 3132 ERR210 5116 ERR220 4401 ERR230 4546 ERR240 4672 ERR250 4700 ERR260 5676 ERR270 1260 ERR280 7153 ERR290 4202 ERR300 4307 ERR320 5703 ERR330 7160 ERR340 3226 ERR350 3314 ERR370 1146 ERR380 2551 ERR390 1207 ERR400 1236 ERR410 1410 ERR420 1430 ERR430 1532 ERR440 1457 ERR450 1524 ERR460 2400 ERR470 2407 ERR490 1033 ERR500 1071 ERR510 1103 ERR520 1562 ERR530 0033 ERR540 6056 ERR550 6206 ERR560 5343 ERR600 1145 ERR610 1166 ERR620 7050 ERR630 7104 ERR640 7224 ERR650 7066 ERRCHK 1557 ERREND 4046 ERRLST 3751 ERROR 4557 ERROR1 0464 ERROR2 0441 ERROR3 0466 ERRORX 0400 ERROX 5033 ETERM 2661 ETERM1 2623 ETERM2 2667 ETERMN 2656 EVAL 2612 EVAL1 2753 EVAL2 2754 EVAL3 2766 EVAR 2744 EXPLNG 5064 EXTEN 0066 F72 5763 FADD 1000 FADDR 0304 FATNAX 1736 FATNC 1525 FATNC1 2275 FATNC2 2300 FATNC3 2303 FATNC4 2306 FATNC5 2311 FATNC6 2314 FATNC7 2317 FATNC8 2322 FATNC9 2325 FATNCJ 2272 FATNT 1741 FATNTT 2054 FCMP 6000 FCN 2570 FDIV 4000 FEXP 5463 FEXPC1 2057 FEXPC2 2062 FEXPC3 2065 FEXPC4 2070 FEXPC5 2073 FEXPC6 2076 FEXPF 1741 FEXPI 2054 FEXPU 1736 FEXT 0000 FFIX 5456 FFLAG 0054 FGET 0000 FGOTO 0273 FIGO1 1017 FIGO2 1055 FIGO3 1073 FIGO4 1071 FILEN 0060 FILOUT 7060 unreferenced FIND 4572 FINDLN 4574 FINISH 7400 FINT 4407 FIX 5434 FIX1 2162 FIX2 1534 FIXC4 1522 FIXCON 0766 FIXEXT 0750 FIXLUP 0734 FIXUP 1400 FIXUP1 1407 FIXUP2 1420 FIXUP3 1436 FIXUP4 1405 FIXUP5 1471 FIXUP7 1441 FIXUP8 1444 FJMP 5000 FJUMP 0274 FLARG 6170 FLARGP 0121 FLGET 4554 FLIN 5732 FLINGO 1100 FLINTP 0116 FLOAT 6477 FLOGC1 2140 FLOGC2 2143 FLOGC3 2146 FLOGC4 2151 FLOOK 2755 FLOOP 0206 FLOP 2707 FLOUT 5000 FLOUTP 0115 FLOXIT 1300 FLPUT 4555 FLTONE 3570 FLTXR 0013 FLTXR2 0014 FLZERO 3571 FMEQL 5130 FMUL 3000 FNOR 6010 FNORM 0600 FOGO1 1214 FOGO2 1222 FOGO3 1252 FOGO4 1302 FOGO5 1306 FOGO6 1311 FOGO7 1322 FOGO8 1332 FOR 1400 FOR1 1570 FOR2 1527 FOR3 1450 FOR4 1454 FOR5 1542 FOREXT 2460 FOUND 0064 FPADD 0455 FPCMP 0311 FPDIV 0662 FPGET 0334 FPJMP 0305 FPMUL 0531 FPNT 5644 FPNT1 0227 FPNT2 0240 FPNT3 0270 unreferenced FPNT4 0361 FPPUT 0325 FPSUB 0452 FPUT 7000 FREE13 4471 FREE2 4470 FREEC 6011 FREESV 5324 FREEWT 6015 FRNDX 0103 FRNDX1 7736 FSEQ 6050 FSGE 6100 FSGT 6140 FSIN 5462 FSINC1 1744 FSINC3 1747 FSINC4 1752 FSINC5 1755 FSINC6 1760 FSINC7 1763 FSINOK 1720 FSINXX 1701 FSINZ 1736 FSINZZ 1741 FSKP 6000 FSLE 6150 FSLT 6110 FSNE 6040 FSUB 2000 FUNC10 3017 FUNC11 3046 FUNC12 3146 FUNC13 3124 FUNC14 3104 FUNC16 5112 FUNC17 3145 FUNC6I 5730 FUNCT 4626 FUNCT3 5711 FUNCT4 4676 FUNCT5 4666 FUNCT6 3000 FUNCTI 4527 FUNL1 3600 FUNL2 3621 FUNL3 3656 FUNL3I 5731 FUPAR1 0566 FUPAR2 5000 FUPAR3 5075 FUPARR 5021 FXIT 0000 unreferenced FXR1 0010 FXR2 0011 GET1 6703 GET2 6735 GETC 4543 GETCAT 4435 GETCX1 4161 GETIN1 1163 GETINP 1152 GETLIM 2336 GETLIN 2317 GETLN 4565 GETNAM 5741 GETNXT 4573 GETSGN 1521 GETSTR 5337 GETVAR 4400 GEXIT 6737 GFND1 4604 GFND1I 4533 GFND2 4617 GOSUB 4200 GOSUB1 2562 GOSUB2 2550 GOSUB3 4203 GOTO 1256 GPUT1 4510 GS1 4437 GS2 4465 GS4 4462 GS5 4623 GS5I 4526 GTEM 0020 HIGHWD 0347 I3 0074 IBLK 0075 IBUFF 6725 IECALL 5727 IERRO1 3525 IERRO2 3530 IERROR 3542 IF 1176 IF1 1364 IF2 1263 IF3 1216 IF4 2400 IF5 7610 unreferenced IF6 1252 IF7 1251 unreferenced IFDONE 1254 unreferenced IFSTR 1324 IFSTR1 1334 IMMED 4270 INBLK 6727 INPACK 5610 INPUT 1110 INPUT1 1125 INPUT2 1121 INPUTX 4252 INREA1 1032 INREA2 1070 INREA3 1040 INREA4 1030 INREAD 1000 INT 5455 INTAC1 0055 INTCNT 7400 INTEGE 0122 INTR80 4615 INTR81 4663 INTR82 4703 INTR88 4651 INTR89 4652 INTR8A 4617 INTR8E 1173 INTR8F 4614 INTR8I 4616 unreferenced INTRP1 5223 INTRP2 5241 INTRP3 5252 INTRP4 5254 INTRP5 5264 INTRPL 5330 INTRPT 5200 INTRRV 4624 INTRV2 4626 IOFIX 1366 IPNTR 0073 IPTR0 0046 IPTRI 0044 IPTRO 0045 ITPRNT 0230 KEY 0600 KEY3 0700 KEY4 0705 KEY5 0670 KEY6 0676 KEY7 0620 KILL 7465 KKEY 5100 KL8F1 5356 KL8FIX 5350 KL8FRS 1620 unreferenced KL8JMP 0205 KLTOP 0037 unreferenced KM10 0635 KM140 0614 L0001 7301 L0002 7326 L0003 7325 L0004 7307 L200 2160 L2000 7332 L3777 7350 L4000 7330 L5777 7352 L7775 7346 L7776 7344 L7777 7340 LASTLN 0031 LASTOP 0114 LASTV 0055 LBLK 0035 LEN 6447 LENDON 6472 LENIN 7067 LENOK 7075 LENXT 6455 LET 1401 LET1 1523 LET2 1411 LIMGT1 2344 LIMGT2 2366 LIMGT3 2354 LIMGT4 2361 unreferenced LIMIT 7776 LINCT 6165 LINE0 0162 LINE1 0164 LINENO 0030 LINEPC 0027 LINPUT 6050 LINXT 6106 LINXT2 6117 unreferenced LIST 2251 LIST10 4202 LIST11 4206 LIST12 4212 LIST13 4215 LIST14 4620 LIST15 2476 LIST16 2502 LIST17 2507 LIST18 2515 LIST19 2522 LIST20 2527 LIST21 2533 LIST22 2540 LIST23 2545 LIST24 3714 LIST25 2766 LIST26 2774 LIST7 0771 LIST70 1360 LIST71 2552 LIST72 3374 LIST73 4707 LIST74 4713 LIST75 1562 LIST76 4720 LIST77 4046 LIST78 4052 LIST79 4056 LIST80 4062 LIST81 4067 LIST82 2763 LIST83 4073 LIST84 4100 LIST85 4105 LIST86 4111 LIST87 4115 LIST88 4121 LIST89 4125 LIST90 4131 LIST91 4135 LIST92 4140 LIST93 4143 LIST94 4147 LIST95 4153 LIST96 4157 LIST97 4165 LIST98 4172 LIST99 4176 LLIST3 2271 LLIST4 2304 LLIST5 2261 LLIST6 2311 LOG 5464 LOGEXP 2155 LOGFWD 2154 LOGOKW 2157 LOOK 0117 LOOKST 0120 LOOKUP 4435 LPRTST 3745 LSTMOD 0127 M10 0140 M100 0141 M1000 1126 M12 0132 M4 0142 M40 0135 M6 0136 MANCOM 2000 MCOM 0065 MDOLR 4532 MEMPTY 2710 MEQL 1522 MGET 6146 MGET1 6153 MGET2 6163 MID 6200 MID1 6235 unreferenced MID2 6250 MID3 6263 MIDC1 6301 MIDC2 6302 MIDCHK 6267 MINS 6125 unreferenced MINT 6115 MKRB 6116 unreferenced MKSF 6111 unreferenced MLOOKE 0227 MLOOP 2607 MLOOP2 2614 MLOOP3 2640 MNMSGN 1170 MNOCHG 2730 MNSONE 5016 MOD 1301 MOD1 1311 MODE 0031 MODF1 2213 MODF2 2207 MODF3 2211 MODF4 2223 MODF5 2231 MODL1 2166 MODL2 1351 MONDSK 0040 MONTAP 0062 MOVNAM 4240 MPUT 6303 MPUT1 6311 MPYLUP 0552 MQA 7501 MQL 7421 MSPLAT 4145 MTCF 6122 unreferenced MTKF 6123 unreferenced MTLS 6126 MTON 6117 MTPF 6113 unreferenced MTSF 6121 unreferenced MULCLR 0571 MULT10 0752 MUSER 5325 MVPAG 5000 MXREAD 1172 NAME 0063 NAMEX 0015 NDONE 3112 NEW 4213 NEXERR 1543 NEXT 2374 NEXT1 2443 NEXT2 2453 NEXT3 2420 NFIX 0730 NLOOP 3063 NOBUMP 0623 NOCOR 4165 NODLET 3432 NOLEN 7122 NOTBIG 0611 NULL 0177 NUMBUF 1525 NUNUM 0030 NXTFIL 3037 NXTG 4137 NXTGET 4113 NXTGT1 4125 NXUSR 2013 O3 0077 OADD 0434 OATN 2201 OBLK 0100 OBUFF 7237 OCHAR 0005 OCNTR 0006 OCOS 1657 OCTADD 0457 OERROR 4424 OERRX 2462 OFEXP 2000 OFFIX 2360 OFLIN 1000 OFLOUT 1200 OFLTON 1766 OFLZER 1767 OFPNT 0200 OFREE2 7264 OFREE3 7305 OFSIN 1662 OGETC 4425 OGETCX 2456 OGETLN 1143 OINPUT 7135 OINT 2337 OLD 5440 OLD1 7312 OLNUM 0027 OLOG 2101 OMAX 0101 ON 4277 ON1 4317 ON2 4343 ONEPRT 3546 OP1 0052 OP2 0051 OP3 0050 OPAK 7251 OPEN 7042 OPEXP 0043 OPNEXT 2644 OPNTR 0076 OPOPJ 5427 OPOPJX 2364 OPRINC 1170 OPRINT 4423 OPSIGN 0041 OPTABL 5443 OPTRI 0047 OPTRO 0050 OPUS 5550 OPUSHJ 4430 OPUSHX 2447 OPUSJ1 1564 ORG 5000 unreferenced ORG1 4746 ORND 2406 OS8AB 0252 OS8DSK 0227 OS8DTA 0230 OS8ERM 4000 OS8ERR 0216 OS8KSK 0223 OS8LP1 0237 OS8LST 0260 OS8M1 4044 OS8M2 4047 OS8MSG 4032 OS8PT2 0257 OS8PTR 0256 OS8RK8 0231 OSDDSK 0126 OSDDTA 0150 OSDRK8 0104 OSQR 1600 OTAN 1640 OTEMP 1530 OTEST2 5652 OTESTN 4426 OTESTX 2442 OTPACK 5621 OUTBLK 7241 OUTOUT 7147 OUTPUT 0034 OVER 0053 P37 4423 PACKC 4564 PACKND 0053 PACKST 0052 PAKLIN 5631 PARTST 5666 PAUSER 4657 PC 0022 PCHK 1722 PDLST 0056 PDLXR 0015 PFIX2 2171 PFREE2 0070 PFREE3 0071 PHIGHW 2170 PIF1 1310 PIF5 1222 PINTR8 4661 PINTRP 4656 PINTRR 4662 PIOFX 2565 PITPRN 0513 PMCHAI 3324 POPA 4551 POPF 4553 POPJ 5552 PPRINT 0067 PREADC 0066 PRIN10 3306 PRIN11 3245 PRIN12 4346 PRIN5 3221 PRINT 5520 PRINT0 5505 PRINT1 3206 PRINT2 7524 PRINT3 3302 PRINT4 3211 PRINT5 3315 PRINT6 5546 PRINT8 3200 PRINT9 3272 PRINTC 4467 PRINTX 4556 PRNT1 0237 PRNT2 0257 PRNT3 0277 PRNT4 0261 PRNT5 0276 PRNT5A 3327 PRNT5B 3336 PRNT6 0274 PRNT7 0262 PRNTC1 0061 PRNTEX 5400 PRNTL1 5472 PRNTL2 3704 PRNTL4 5471 PRNTL6 3676 PRNTL7 5474 PRNTL8 3711 PRNTLL 0770 PRNTX1 5414 PRNTX2 5541 unreferenced PT1 0025 PUSHA 4546 PUSHF 4550 PUSHJ 4547 PUT1 7244 QCOM 7735 QCOMCK 7700 QCON1 7733 QCON2 7734 QCOUNT 7616 QCT1 7604 QDONE 7704 QDONE1 7723 QDONE2 7710 QEVAL2 7605 QINP 7625 QINPAC 7606 unreferenced QLINP 7626 QLIS1 3171 QLIS2 3165 QMQOT 7601 QNEXTC 7653 QOPNEX 7753 QPARTS 7752 QPT1 7602 QSLIS 7652 QUOCHK 7670 QUOCNT 7607 QUOTE1 7647 QUOTES 7617 RANDOM 7401 READ 1074 READ1 1076 unreferenced READC 4466 READY 0467 READY1 1756 RENAME 4214 RESETO 3757 RESTOR 7152 RETURN 5701 RND 5451 RTL6 4561 RUN 2465 RUN3 2512 RUN4 2473 RUN6 2517 RUN7 2515 RUN8 2525 RUN9 2553 RUN9X 5477 RUNSCR 2544 SAVAC 5316 SAVDN1 7132 SAVDON 7124 SAVE 7431 SAVLK 5317 SCHLP 3002 SETPT 4440 SETSGN 0514 SETUPO 7350 SGN 5007 SIN 0004 SKPMTF 3042 SORTC 4545 SORTCN 0106 SORTCS 5327 SORTJ 4544 SPACSW 0032 SPL 6102 SPLCH 1043 unreferenced SPLCH1 1050 SQCNT 1637 SQCOMN 3460 SQEXIT 1635 SQLOOP 1622 SQR 5457 SQTRIV 3502 SQUISH 3516 SRCWDL 3014 SRETN 0516 SRTCNS 5322 SS 0035 START 0475 STARTP 0372 STARTV 0054 STRFIL 7010 STSWAP 0015 SUB1 4546 SUB2 4602 SUB2I 4525 SUBS 0024 SUBT 4534 SWAP 0010 SWAPR 0071 unreferenced T1 0107 T2 0110 T3 0112 T3SV 5320 TAN 5460 TAPE 5077 TAPEM 0265 TAPMM 4077 TELSW 0051 TEMP 6165 TEMP1 0005 TEMP2 0006 TEMPX 0056 TEMPX1 0057 TEN 1346 TERMS 3641 TESTC 4563 TESTN 4562 TEXTP 0017 THISOP 0113 TOP 7776 TSTALP 4570 TSTCCR 4566 TSTCH1 2163 TSTCOM 4567 TSTCON 2165 TSTEND 4575 TSTLPR 4576 TTCHAR 1061 TTY 0730 TTY2 0754 TTY3 0735 unreferenced TWOPRT 3534 UDF 4560 UDFSV 5323 UNDERF 0635 UNIT0 3231 UNIT1 3230 unreferenced UNKWN 1544 UNSAV1 7502 UNSAVE 7467 USER 0003 USER0 4165 USER1 4166 unreferenced USER2 4167 unreferenced USER3 4170 unreferenced USER4 4171 USRCTR 0034 USRLST 2600 USRPT2 0027 USRPTR 0025 V 0006 V100 1276 VIF1 1275 VREADY 1277 VRESET 1300 VRUN8 1274 VXGET 1171 VXREAD 1323 WASTE 0062 WNGDM 4355 X 0100 XBUMPX 3051 XCCR 2330 XCDF 7407 XCLOSE 3402 XCT 0021 XCTIN 0024 XDEL2 1654 XDEL3 1636 XDELET 1600 XDIRSC 3000 XDTG1 6625 XENTER 2600 XERROR 3522 XFIELD 0036 XFIND 4142 XFIND1 4146 XFIND2 4157 XFINDL 3457 XFLGET 5141 XFLGT2 5146 unreferenced XFLPT2 6405 unreferenced XFLPUT 6400 XFNDL1 3467 XFNDL2 3510 XFNDL3 3516 XFREE 6021 XFREE2 6000 XFREE3 6007 XGET 6654 XGET1 4070 XGET2 4055 XGET3 4102 XGET4 4106 XGET5 4111 XGET6 4107 XGET7 4063 XGETC 4051 XGETCA 2745 XGETL1 1773 XGETL2 1174 XGETLN 5662 XGETNA 0067 XGTNM1 3056 XIOT 0035 XOR 5600 XOUTL 3340 XOUTL1 3361 XOUTL2 3400 XOUTL4 3455 XOUTL5 3435 XOUTL6 3426 XPACK1 3632 XPACK2 3627 XPACK3 3630 XPACK4 3611 XPACK5 3626 XPACK7 3637 XPACK8 3645 XPACK9 3641 XPACKC 3600 XPAKL1 1770 XPAKL2 2470 XPNT 7425 XPOPA 0763 XPOPF 4000 XPOPJ 5704 XPPCK1 3665 XPRNTC 7407 XPRT1 4765 XPUSHA 1702 XPUSHF 1734 XPUSHJ 1715 XPUT 6541 XPUT0 7200 XPUT3 6547 XR1 0012 XR2 0013 XR3 0014 XREAD1 3737 XREADC 3714 XREG 0010 XREG2 0011 XREG3 0012 XREG3S 5321 XRTL6 1571 XSETPT 2732 XSORT1 4762 XSORT3 4731 XSORTC 4705 XSORTJ 4735 XTESTC 4014 XTESTN 4031 XUDF 3171 XXPAK 3604 ZFIXEX 0743