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