/EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 1 1 /EDU-20 2 / 3 /DEC-08-EDU20A-C-LA 4 / 5 /COPYRIGHT 1972,1973 6 / 7 /DIGITAL EQUIPMENT CORPORATION 8 /MAYNARD, MASSACHUSETTS 01754 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 2 9 /EDUSYSTEM 20 BASIC 10 11 12 13 14 15 16 17 18 19 /EDUSYSTEM 20 BASIC 20 21 /MARK BRAMHALL 22 /DIGITAL EQUIPMENT CORP. 23 24 /JOHN O'DONNELL 25 /YALE UNIVERSITY 26 27 /MARK ROSENTHAL 28 /DIGITAL EQUIPMENT CORP. 29 30 31 /VERSION AS OF: 32 /24 MAY 73 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 3 33 /@33 -- THIS VERSION HAS BEEN RE-CREATED FROM EDU20S.PA 34 /@34 -- TOGETHER WITH AN OLD PAPER COPY OF THE ORIGINAL 35 /@35 -- EDU20C LISTING OUT OF PAL10 & CREF. A SERIOUS 36 /@36 -- ATTEMPT HAS BEEN MADE TO MAKE THIS AN EXACT AS 37 /@37 -- POSSIBLE REPRODUCTION (WITH THE EXCEPTION OF THESE 38 /@38 -- TWO PAGES), INCLUDING ALL ORIGINAL TYPOS. THIS 39 /@39 -- RECONSTRUCTION, BY STEVE TOCKEY, IS DATED 40 /@40 -- 10-OCT-2021 41 /@41 -- LINES ON THESE 2 PAGES WITH "/@" 42 /@42 -- CAN'T BE RELIABLY RECONSTRUCTED FROM THE PAL10 & 43 /@43 -- CREF LISTING BECAUSE OF A MISSING LISTING PAGE. 44 /@44 -- EVERYTHING IN THIS RANGE HAS BEEN RECONSTRUCTED 45 /@45 -- FROM THE SYMBOL TABLE AND CREF LISTING. 46 /@46 -- SEE THE EDUSYSTEM HANDBOOK FOR HOW TO USE EDU20C 47 /@47 -- HTTP://BITSAVERS.TRAILING-EDGE.COM/PDF/DEC/PDP8/ 48 /@48 -- TSS8/EDUSYSTEMHANDBOOKJAN73.PDF 49 /@49 -- 50 /@50 -- ASSEMBLE IN OS/8: .R PAL8 51 /@51 -- *EDU20C,EDU20C 1 MAKES A PROGRAM THAT 66 /@66 -- LETS YOU RE-CONFIGURE EDU20C WITHOUT RE-LOADING THE 67 /@67 -- ENTIRE PAPER TAPE FROM SCRATCH. THIS WAS USEFUL IN 68 /@68 -- THE PUNCHED PAPER TAPE ERA, PARTICULARLY @ 110 BAUD. 69 0000 FOURTY=0 /@69 -- CREF SAYS FOURTY IS REFERENCED HERE 70 /@70 -- ASSEMBLING WITH FOURTY <> 0 RELATES TO EDU 40. SEE 71 /@71 -- CHAPTER 8 OF ABOVE EDUSYSTEM HANDBOOK FOR DETAIL. 72 /@72 73 /@73 -- CREF SAYS CONFIG IS REFERENCED ON THIS LINE 74 /@74 75 /@75 76 /@76 77 6762 DTCA=6762 /@77 -- PAL-8 IS MISSING PRE-DEFINED 78 6764 DTXA=6764 /@78 -- DEC TAPE IOTS WHICH APPEAR TO 79 6771 DTSF=6771 /@79 -- BE PRE-DEFINED IN PAL10, SO DEFINE 80 /@80 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 4 81 /@81 82 /@82 83 /@83 -- PROBABLY "/DEFINITIONS" 84 /@84 85 4407 FINT=JMS I 7 /@85 86 /@86 87 0000 FEXT=0000 /@87 88 0000 FXIT=0000 /@88 89 6010 FNOR=6010 /@89 90 6000 FSKP=6000 /@90 91 6040 FSNE=6040 /@91 92 6050 FSEQ=6050 /@92 93 6100 FSGE=6100 /@93 94 6110 FSLT=6110 /@94 95 6140 FSGT=6140 /@95 96 6150 FSLE=6150 /@96 97 /@97 98 /@98 99 6007 CAF=6007 /@99 100 7002 BSW=7002 /@100 101 /@101 102 /@102 103 7501 MQA=7501 /@103 104 7421 MQL=7421 /@104 105 6102 SPL=6102 /@105 106 6126 MTLS=6126 /@106 107 6123 MTKF=6123 /@107 108 6113 MTPF=6113 /@108 109 6117 MTON=6117 /@109 110 6115 MINT=6115 /@110 111 6125 MINS=6125 /@111 112 6111 MKSF=6111 /@112 113 6116 MKRB=6116 /@113 114 6121 MTSF=6121 /@114 115 6122 MTCF=6122 /@115 116 /@116 117 /@117 118 /@118 119 7301 L0001=CLL CLA IAC /@119 120 7326 L0002=CLL CLA CML RTL /@120 121 7340 L7777=CLL CLA CMA /@121 122 7344 L7776=CLL CLA CMA RAL /@122 123 7346 L7775=CLL CLA CMA RTL /@123 124 7350 L3777=CLL CLA CMA RAR /@124 125 7352 L5777=CLL CLA CMA RTR /@125 126 7330 L4000=CLL CLA CML RAR /@126 127 7332 L2000=CLL CLA CML RTR /@127 128 /@128 129 /@129 130 /@130 131 132 0010 SWAP=10 133 134 7346 LMULT=L7775 135 7344 LAL1=L7776 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 4-1 136 7340 LFXUP=L7777 137 7200 LNFIX=CLA 138 7301 LHIGH=L0001 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 5 139 /PAGE ZERO 140 141 0000 FIELD 0 142 143 0000 PAGE 0 144 0000 0000 0 145 0001 5402 JMP I .+1 /INTERRUPT HANDLER 146 0002 5200 INTR8E 147 0003 0000 USER, 0 /INTERRUPT USER COUNTER 148 0004 0000 SIN, 0 /INTERRUPT TEMPORARY 149 0005 0000 TEMP1, 0 /INTERRUPT TEMP 150 0006 0765 TEMP2, USER0 /INTERRUPT TEMP 151 0007 5400 ZFPNT /FLOATING POINT 152 0010 0000 XREG, 0 /INTERRUPT XREG 153 0011 0000 XREG2, 0 /INTERRUPT XREG 154 0012 0000 XREG3, 0 /GENERAL XREG 155 0013 0000 FLTXR, 0 /FLOATING XREG 156 0014 0000 FLTXR2, 0 /FLOATING XREG /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 6 157 /USER SWAP AREA 158 159 0015 STSWAP=. /START OF SWAP 160 0015 7776 PDLXR, TOP /PUSH-DOWN XREG 161 0016 0000 AXIN, 0 /PACKING XREG 162 0017 TEXTP=. /TEXT POINTERS 163 0017 0000 AXOUT, 0 /UNPACK XREG 164 0020 0000 GTEM, 0 /UNPACK SWITCH 165 0021 0000 XCT, 0 /UNPACK SWITCH 166 0022 0462 PC, READY /PROGRAM RESTART 167 0023 0000 ADD, 0 /PACK TEMPORARY 168 0024 0000 XCTIN, 0 /PACK SWITCH 169 0024 SUBS=XCTIN /SUBSCRIPT 170 0025 0000 PT1, 0 /FLOATING POINTER 171 0026 0000 CHAR, 0 /CHARACTER 172 0027 0000 LINEPC, 0 /LINE POINTER 173 0030 6213 LINENO, CIF CDF 10 /LINE NUMBER 174 0031 5432 LASTLN, JMP I .+1 /LAST LINE POINTER 175 0031 MODE=LASTLN 176 0032 6520 SPACSW, TAPEM /0 IS IGNORE SPACES 177 0033 7777 DINPUT, -1 /-1 FOR BREAK ON CR ONLY 178 /0 FOR BREAK ON ANY AND NO ECHO 179 0034 0000 OUTPUT, 0 /0 IS ECHO 180 0035 6036 XIOT, KRB /INPUT IOT 181 0036 0000 XFIELD, 0 /USER FIELD 182 0037 0000 DATAPC, 0 /LINE NUMBER OF DATA STATEMENT 183 0040 6213 CIF CDF 10 /DATA POINTER 184 0041 5442 JMP I .+1 /DATA TEMPORARY 185 0042 6530 DISKM /DATA UNPACK SWITCH 186 0043 0000 0 /DATA CHARACTER 187 0044 0040 IPTRI, BUFFER /INPUT BUFFER FILL 188 0045 0040 IPTRO, BUFFER /INPUT BUFFER EMPTY 189 0046 0040 IPTR0, BUFFER /START OF BUFFER 190 0047 0000 OPTRI, BUFFER-40 /OUTPUT BUFFER FILL 191 0050 0000 OPTRO, BUFFER-40 /OUTPUT BUFFER EMPTY 192 0051 0000 TELSW, 0 /TTY BUSY SWITCH 193 0052 0000 PACKST, 0 /START OF PACKING 194 0053 0000 PACKND, 0 /POINTER TO END OF PACKING 195 0054 0164 BUFR, LINE1 /NEXT FREE SPACE 196 0054 STARTV=BUFR /START OF VARIABLES 197 0055 0164 LASTV, LINE1 /LAST DEFINED VARIABLE 198 0056 7776 PDLST, TOP /START OF PUSH-DOWN 199 0057 0162 ALINE0, LINE0 /POINTER TO DUMMY LINE 200 0060 0100 COMBUF, BUFCOM /COMMAND BUFFER 201 0061 0000 PRNTC1, 0 /PRINT ZONE COUNT 202 0062 0000 ERLINE, 0 /ERROR LINE 203 0063 0001 FRNDX, 1 /3 WORD 204 0064 0203 203 /RANDOM INTEGER 205 0065 5555 5555 206 0065 ENSWAP=.-1 207 0036 DECK=XFIELD /USER ON DECK /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 7 208 0066 0000 ACSIGN, 0 /FLAG SIGN 209 0067 0000 ACEXP, 0 /FLAG EXPONENT 210 0070 0000 AC3, 0 /FLAG 211 0071 0000 AC2, 0 212 0072 0000 AC1, 0 213 0073 0000 SORTCN, 0 /SORT CONSTANT 214 0074 0000 T1, 0 /THREE TEMPS 215 0075 0000 T2, 0 216 0076 0000 T3, 0 217 0077 0000 CNTR, 0 /COUNTER 218 0100 0000 THISOP, 0 /CURRENT OP 219 0101 0000 LASTOP, 0 /LAST OP 220 0077 EFOP=CNTR /FUNCTION OP 221 0102 0462 AREADY, READY 222 0103 6400 FLOUTP, FLOUT /FLOATING OUTPUT 223 0104 6200 FLINTP, FLIN /FLOATING INPUT 224 0105 0764 LOOK, USER0-1 /USER BEING RUN OR LOOKED AT 225 /USER0*#USERS-1 (SEE BEG750) 226 0106 0765 LOOKST, USER0 /TO RESET LOOKING 227 0107 6726 FLARGP, FLARG /POINTER TO TEMP FLAC 228 0110 6735 INTEGE, FIX /FIX THE FLAC ROUTINE 229 IFNZRO PDLXR-15 230 VPDLXR, 231 0111 0015 CCR, 15 /CR 232 0112 0007 C7, 7 /BELL 233 0113 0177 C177, 177 /RUBOUT 234 0114 0137 C137, 137 /BACK ARROW 235 0115 7777 LSTMOD, -1 /SET BY *INPUT* 236 IFNZRO STSWAP-15 237 STSWM1, 238 0116 0014 C14, 14 /FORM FEED 239 0117 0012 CLF, 12 /LINE FEED 240 0120 7766 M12, -12 /-10 DECIMAL 241 0121 0040 C40, 40 /BUFFER SIZE 242 0122 0077 C77, 77 /RIGHT MASK 243 0123 7770 M10, -10 244 0124 0010 C10, 10 245 0125 7740 M40, -40 /-BUFFER SIZE 246 0126 7772 M6, -6 /-MESSAGE LENGTH 247 0127 7700 M100, -100 /CHARACTER TEST 248 0127 C7700=M100 249 0130 7774 M4, -4 /CHARACTER COUNT 250 0131 0100 C100, 100 251 0132 0004 C4, 4 252 0133 0003 C3, 3 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 8 253 /NEW INSTRUCTIONS 254 4534 PRINTC=JMS I . /PRINT AC OR CHAR 255 0134 4144 XPRNTC 256 4535 GETC=JMS I . /UNPACK A CHAR 257 0135 4041 APGETC, XGETC 258 4536 SORTJ=JMS I . /SORT JUMP 259 0136 4735 XSORTJ 260 4537 SORTC=JMS I . /SORT 261 0137 4704 ASORTC, XSORTC 262 4540 PUSHA=JMS I . /SAVE AC 263 0140 1717 XPUSHA 264 4541 PUSHJ=JMS I . /PUSH JUMP 265 0141 1732 XPUSHJ 266 4542 PUSHF=JMS I . /SAVE FLOATING DATA 267 0142 1751 XPUSHF 268 4543 POPA=JMS I . /RESTORE AC 269 0143 3751 XPOPA 270 5544 POPJ=JMP I . /POP JUMP 271 0144 2454 XPOPJ 272 4545 POPF=JMS I . /RESTORE FLOATING DATA 273 0145 4003 XPOPF 274 4546 FLGET=JMS I . /FLOATING GET 275 0146 5145 XFLGET 276 4547 FLPUT=JMS I . /FLOATING PUT 277 0147 0742 XFLPUT 278 4550 PRINTX=JMS I . /DO OUTPUT 279 0150 3340 XOUTL 280 4551 ERROR=JMS I . /ERROR 281 0151 3532 XERROR 282 4552 UDF=JMS I . /USER DATA FIELD 283 0152 7166 AUDF, XUDF 284 4553 RTL6=JMS I . /SIX RAL*S 285 0153 7633 XRTL6 286 4554 TESTN=JMS I . /TEST NUMERIC 287 0154 4017 XTESTN 288 4555 TESTC=JMS I . /TEST CHAR 289 0155 4237 XTESTC 290 4556 PACKC=JMS I . /PACK A CHAR 291 0156 3600 XPACKC 292 4557 GETLN=JMS I . /GET A LINE NUMBER 293 0157 6335 XGETLN 294 4560 TSTCCR=JMS I . /SKIP IF CR 295 0160 4206 CCRTST 296 4561 TSTCOM=JMS I . /SKIP IF COMMA 297 0161 4200 COMTST 298 4562 TSTALP=JMS I . /SKIP IF LETTER 299 0162 4225 ALPTST 300 4563 COMMAN=JMS I . /DETERMINE COMMAND 301 0163 2005 MANCOM 302 4564 FIND=JMS I . /FIND A STATEMENT 303 0164 4125 XFIND 304 4565 GETNXT=JMS I . /GET NEXT LINE 305 0165 4077 NXTGET 306 4566 FINDLN=JMS I . /FIND A LINE 307 0166 3467 XFINDL /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 8-1 308 4567 FREE13=JMS I . /FREE 14 OUTPUT SPACES 309 0167 5552 XFREE3 310 4570 FREE2=JMS I . /FREE 3 OUTPUT SPACES 311 0170 5543 XFREE2 312 4571 READC=JMS I . /READ A CHAR 313 0171 3717 XREADC 314 4572 TSTEND=JMS I . /TEST FOR END OF LINE 315 0172 4213 ENDTST 316 4573 TSTLPR=JMS I . /SKIP IF L-PAREN 317 0173 3756 LPRTST 318 4574 CALLF1=JMS I . /CALL SUBR IN FIELD 1 319 0174 5410 F1CALL 320 1507 GETSGN=TAD I FLARGP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 9 321 /MAINLINE BASIC 322 323 /WHENEVER THERE IS NOTHING BETTER TO DO OR A JOB WANTS TO 324 /DISMISS ITSELF SO OTHERS CAN TRY THIS ROUTINE IS ENTERED 325 326 /IT KEEPS LOOKING FOR A JOB WITH BITS 0 AND 1 OFF WHICH 327 /SAYS THAT THE JOB IS NOT WAITING FOR INPUT OR OUTPUT 328 /RESPECTIVELY 329 0177 *177 330 0177 6001 NULL, ION 331 0200 6201 CDF 332 0201 2777 ISZ I (INTCNT /COUNT FOR RANDOMIZE 333 0202 0060 C60, 60 /PROTECT THE ISZ 334 0203 1105 TAD LOOK 335 0204 1230 TAD MLOOKE /CHECK POSITION OF POINTER 336 0205 7710 SPA CLA 337 0206 5212 JMP .+4 /O.K. TO LOOK AT NEXT 338 /IF PDP 8E, AND NOT DC02 = ASSUME KL8E, NEXT THREE WORDS ARE 339 / CIF 340 / JMP I .+1 341 / KL8FIX0 342 /SEE BEG002 AND BEG540 FOR DETAILS. 343 0207 1106 KL8JM0, TAD LOOKST 344 0210 3105 DCA LOOK /RESET POINTER 345 0211 7410 SKP 346 0212 2105 ISZ LOOK /LOOK AT NEXT 347 0213 1505 KL8LF0, TAD I LOOK /GET STATUS 348 0214 7104 CLL RAL 349 0215 7730 SZL SPA CLA 350 0216 5177 JMP NULL /NO GO 351 0217 1505 TAD I LOOK /GET STATUS 352 0220 6002 IOF /NO INTERRUPTS 353 0221 4305 JMS DECKON /PUT HIM ONDECK 354 0222 1022 TAD PC 355 0223 3000 DCA 0 /RESTART LOCATION 356 0224 7346 L7775 /NUMBER OF COMMANDS BEFORE RETURNING 357 0225 3022 DCA PC 358 0226 6001 ION 359 0227 5400 JMP I 0 /GO TO IT... 360 361 0230 7014 MLOOKE, -USER7+10 /LAST STATUS WORD : SUBTRACT NUMBER OF USERS 362 /MINUS NUMBER OF USERS - SEE BEG750 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 10 363 /*PRNTIT* ROUTINE 364 /ENTER WITH THE AC CONTAINING THE VALUE TO BE PRINTED AS 365 /A DECIMAL NUMBER BETWEEN 1 AND 2047 366 /IF PRNT5 IS NOT 0 THEN LEADING SPACES ARE NOT PRINTED 367 /PRNT5 IS SET TO 0 AT THE END OF THE ROUTINE 368 0231 0000 ITPRNT, 0 369 0232 3074 DCA T1 370 0233 3013 DCA FLTXR /SIGNIFICANCE TESTER 371 0234 7346 L7775 372 0235 3077 DCA CNTR /DO 3 LOOPS 373 0236 1376 TAD (PRNTLL 374 0237 3075 DCA T2 /LIST OF SUBTRACTIONS 375 0240 3076 PRNT1, DCA T3 /HOLDS DIGIT 376 0241 5244 JMP .+3 377 0242 2076 ISZ T3 /BUMP DIGIT 378 0243 3074 DCA T1 379 0244 1074 TAD T1 380 0245 1475 TAD I T2 /SUBTRACT 381 0246 7500 SMA 382 0247 5242 JMP .-5 383 0250 7200 CLA 384 0251 2075 ISZ T2 /POINT TO NEXT 385 0252 1076 TAD T3 /GET DIGIT 386 0253 7440 SZA 387 0254 5260 JMP PRNT2 /NON-ZERO 388 0255 1013 TAD FLTXR /SIG YET 389 0256 7650 SNA CLA 390 0257 5300 JMP PRNT3 /NO 391 0260 2013 PRNT2, ISZ FLTXR /NOW SIG 392 0261 1202 TAD C60 393 0262 4534 PRNT4, PRINTC /PRINT IT 394 0263 2077 PRNT7, ISZ CNTR 395 0264 5240 JMP PRNT1 /LOOP 396 0265 1074 TAD T1 397 0266 1202 TAD C60 398 0267 4534 PRINTC /UNITS DIGIT 399 0270 1277 TAD PRNT5 /FORMATTING 400 0271 7640 SZA CLA 401 0272 5275 JMP PRNT6 /NO 402 0273 1121 TAD C40 403 0274 4534 PRINTC /PRINT SPACE AFTER 404 0275 3277 PRNT6, DCA PRNT5 /RESET FOR LATER 405 0276 5631 JMP I ITPRNT 406 407 0277 0000 PRNT5, 0 408 409 0300 1277 PRNT3, TAD PRNT5 /FORMATTING 410 0301 7640 SZA CLA 411 0302 5263 JMP PRNT7 /NO 412 0303 1121 TAD C40 413 0304 5262 JMP PRNT4 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 11 414 /*ONDECK* ROUTINE 415 /ROUTINE TO PUT A USER "ON DECK" 416 /ENTER WITH HIS NUMBER ON AC BITS 9-11 417 0305 0200 DECKON, NULL+1 418 0306 0112 AND C7 /USER NUMBER ONLY 419 0307 3004 DCA SIN /SAVE NEW 420 0310 1036 TAD DECK 421 0311 7041 CIA 422 0312 1004 TAD SIN 423 0313 7650 SNA CLA 424 0314 5705 JMP I DECKON /FAST EXIT 425 0315 1036 TAD DECK 426 0316 4353 JMS DFIND /LOCATE OLD 427 0317 1115 TAD LSTMOD 428 0320 3033 DCA DINPUT 429 0321 1775 TAD I (XUDF+1 430 0322 3036 DCA XFIELD 431 0323 1411 TAD I XREG2 432 0324 6211 CDF SWAP 433 0325 3410 DCA I XREG /SWAP OUT OLD 434 0326 6201 CDF 435 0327 2006 ISZ TEMP2 436 0330 5323 JMP .-5 437 0331 1004 TAD SIN 438 0332 4353 JMS DFIND /LOCATE NEW 439 0333 6211 ENTRY1, CDF SWAP 440 0334 1410 TAD I XREG 441 0335 6201 CDF 442 0336 3411 DCA I XREG2 /SWAP IN NEW 443 0337 2006 ISZ TEMP2 444 0340 5333 JMP .-5 445 0341 1033 TAD DINPUT 446 0342 3115 DCA LSTMOD 447 0343 1036 TAD XFIELD 448 0344 3775 DCA I (XUDF+1 449 0345 1004 TAD SIN 450 0346 3036 DCA DECK /NEW USER ONDECK 451 0347 1106 TAD LOOKST 452 0350 1036 TAD DECK 453 0351 3006 DCA TEMP2 /POINT TO STATUS 454 0352 5705 JMP I DECKON 455 456 0353 0333 DFIND, ENTRY1 457 0354 7040 ENTRY, CMA 458 0355 3006 DCA TEMP2 459 0356 1374 TAD (ORG-1 460 0357 7410 SKP 461 0360 1371 TAD STARTP /SPACE BETWEEN 462 0361 2006 ISZ TEMP2 463 0362 5360 JMP .-2 464 0363 3010 DCA XREG /POINT TO USER 465 0364 1116 TAD STSWM1 466 0365 3011 DCA XREG2 /POINT TO SWAP AREA 467 0366 1373 TAD (STSWAP-ENSWAP-1 468 0367 3006 DCA TEMP2 /SWAP COUNT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 11-1 469 0370 5753 JMP I DFIND 470 471 0371 0051 STARTP, ENSWAP-STSWAP+1 /SPACE BETWEEN /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 12 472 0373 7727 473 0374 1777 474 0375 7167 475 0376 6547 476 0377 6365 0400 PAGE 477 478 /ERROR ROUTINE 479 /HERE IS WHERE ERROR MESSAGES ARE PRINTED 480 /IT IS CALLED BY A DISMISSAL WITH THE PC SET TO 481 /ERRORX AND THE ERROR ADDRESS IN LSTMOD 482 0400 4567 ERRORX, FREE13 /GET ROOM 483 0401 1125 TAD M40 484 0402 3076 DCA T3 /BUFFER IS 40 LONG 485 0403 1377 TAD (6007 486 0404 0505 AND I LOOK 487 0405 3505 DCA I LOOK /DEASSIGN ANY DEVICES 488 0406 7340 L7777 489 0407 1046 TAD IPTR0 490 0410 3012 DCA XREG3 /POINT TO I BUFFER 491 0411 4552 UDF 492 0412 3412 DCA I XREG3 /CLEAR BUFFER 493 0413 2076 ISZ T3 494 0414 5212 JMP .-2 495 0415 6201 CDF 496 0416 1044 TAD IPTRI 497 0417 3045 DCA IPTRO /NO INPUT IN BUFFER 498 0420 3034 DCA OUTPUT /HAVE ECHO 499 0421 1376 TAD (CDF SWAP 500 0422 3775 DCA I (CSORTC /TABLE IS IN FIELD 1 501 0423 1115 TAD LSTMOD /GET ERROR CODE 502 0424 4537 SORTC 503 0425 1551 ERRLST-1 504 0426 1130 TAD M4 505 0427 1073 TAD SORTCN 506 0430 7540 SMA SZA 507 0431 5236 JMP ERROR2 /TRUE ERROR 508 0432 7640 SZA CLA 509 0433 7346 L7775 /WHAT? 510 0434 1345 TAD C16 /STOP 511 0435 7410 SKP 512 0436 7340 ERROR2, L7777 513 0437 4774 JMS I (READY1 /PRINT ERROR MESSAGE 514 0440 1130 TAD M4 515 0441 1073 TAD SORTCN 516 0442 7550 SPA SNA 517 0443 5261 JMP ERROR3 /NO NUMBER WITH THESE 518 0444 4706 JMS I PITPRNT /PRINT ERROR NUMBER 519 0445 1062 TAD ERLINE /WERE WE RUNNING DEFERRED? 520 0446 7750 SPA SNA CLA 521 0447 5261 JMP ERROR1 /NO 522 0450 4567 FREE13 523 0451 4535 GETC 524 0452 4534 PRINTC /I 525 0453 4535 GETC /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 12-1 526 0454 4534 PRINTC /N 527 0455 1121 TAD C40 528 0456 4534 PRINTC 529 0457 1062 TAD ERLINE 530 0460 4706 JMS I PITPRNT /PRINT LINE IN ERROR 531 ERROR1, 532 0461 7200 ERROR3, CLA /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 13 533 /*READY* ROUTINE 534 /ROUTINE TO PRINT "READY" AND RESET POINTERS 535 /ENTER THE ROUTINE AT START TO OMIT READY MESSAGE 536 0462 4567 READY, FREE13 537 0463 1133 TAD C3 538 0464 4774 JMS I (READY1 /PRINT "READY" 539 0465 4535 GETC 540 0466 4534 PRINTC 541 0467 4534 PRINTC 542 0470 1377 TAD (6007 543 0471 0505 AND I LOOK 544 0472 3505 DCA I LOOK /DEASSIGN DEVICE 545 0473 1056 START, TAD PDLST 546 0474 3015 DCA PDLXR /RESET PUSH-DOWN 547 0475 7340 L7777 548 0476 3115 DCA LSTMOD /SHORT LIST 549 0477 3062 DCA ERLINE /IMMEDIATE MODE 550 0500 3031 DCA MODE /CLEAR STRING MODE FLAG 551 0501 1373 TAD (ERR330 552 0502 4540 PUSHA /TRAP TOO MANY *RETURN*S 553 0503 4541 PUSHJ 554 0504 1167 PAKLIN /GET COMMAND LINE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 14 555 /INSERT LINE OR DO COMMAND 556 /AFTER A COMMAND OR LINE IS PACKED INTO THE COMMAND BUFFER 557 /THIS ROUTINE LOOKS AT IT AND EITHER STORES THE LINE OR 558 /GOES TO THE PROPER COMMAND 559 0505 4554 DECODE, TESTN 560 0506 0231 PITPRNT, ITPRNT /A HARMLESS POINTER 561 0507 5761 JMP I PINPUTX /COMMAND 562 0510 4557 GETLN /GET LINE NUMBER 563 0511 1054 SRETN, TAD BUFR 564 0512 3016 DCA AXIN /SET TO REPACK 565 0513 3024 DCA XCTIN 566 0514 1030 TAD LINENO 567 0515 4552 UDF 568 0516 3416 DCA I AXIN /SET LINE NUMBER 569 0517 6201 CDF 570 0520 4560 TSTCCR /JUST LINE NUMBER 571 0521 5324 JMP .+3 /NO 572 0522 4762 JMS I PXDELET /DELETE THIS LINE 573 0523 5355 JMP VARSET 574 575 0524 2032 ISZ SPACSW /KEEP SPACES 576 0525 7410 SKP 577 0526 4535 GETC 578 0527 4556 PACKC /REPACK LINE 579 0530 4560 TSTCCR 580 0531 5326 JMP .-3 581 0532 4762 JMS I PXDELET /DELETE OLD LINE 582 0533 4552 UDF 583 0534 6002 IOF 584 0535 1431 TAD I LASTLN /POINTER TO NEXT 585 0536 3454 DCA I BUFR /POINT TO NEXT 586 0537 1054 TAD BUFR 587 0540 3431 DCA I LASTLN /OLD POINTS TO NEW 588 0541 1023 TAD ADD 589 0542 7440 SZA 590 0543 3416 DCA I AXIN /FINISH PACKING TO AN EVEN BOUNDARY 591 0544 4566 FINDLN /FIND THE LINE 592 0545 0016 C16, 16 593 0546 4541 PUSHJ 594 0547 4153 ENDFND /GET LAST COMMAND ON LINE--IS IT *NEXT*? 595 0550 7650 SNA CLA 596 0551 1124 TAD C10 /8 EXTRA FOR *NEXT* 597 0552 7001 IAC 598 0553 1016 TAD AXIN 599 0554 3054 DCA BUFR /NEW FREE POSITION 600 0555 1054 VARSET, TAD STARTV /RESET VARIABLES AFTER TEXT IS TOUCHED 601 0556 3055 DCA LASTV 602 0557 6001 ION 603 604 0560 5273 JMP START /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 15 605 606 607 0561 7720 PINPUTX, INPUTX 608 0562 1614 PXDELET, XDELET /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 16 609 0573 6546 610 0574 2152 611 0575 4713 612 0576 6211 613 0577 6007 0600 PAGE 614 0600 0000 KEY, 0 615 0601 1003 TAD USER 616 0602 4675 JMS I VDECKON /PUT HIM ONDECK 617 0603 1035 TAD XIOT 618 0604 3205 DCA .+1 /SET READ IOT 619 0605 7402 HLT 620 0606 0113 KEYMSK, AND C177 /IGNORE PARITY 621 0607 7450 SNA 622 0610 5264 JMP KEX /IGNORE 0 AND 200 623 0611 3004 DCA SIN /SAVE INPUT 624 0612 7346 L7775 625 0613 1004 TAD SIN 626 0614 7640 M140, SZA CLA 627 0615 5220 JMP KEY7 /NOT CTRL/C 628 0616 4676 ERR004, JMS I PIERROR /IMMEDIATE RECOVERY 629 0617 5600 JMP I KEY /NO RFC IF HE HAS READER THIS TIME 630 631 0620 1115 KEY7, TAD LSTMOD 632 0621 7650 SNA CLA 633 0622 5307 JMP KEY6 /NO ECHO - BREAK 634 0623 1004 TAD SIN 635 0624 4537 SORTC /CHECK BREAK 636 0625 0110 CCR-1 637 0626 5301 JMP KEY5 /BREAK 638 0627 1004 TAD SIN 639 0630 4537 SORTC 640 0631 2145 ALT-1 641 0632 5307 JMP KEY6 /FOUND AN ALTMODE 642 0633 1004 TAD SIN 643 0634 1120 TAD M12 644 0635 7650 SNA CLA 645 0636 5264 JMP KEX /IGNORE LINE FEED IF NOT BREAK 646 0637 1004 TAD SIN 647 0640 0300 AND P140 648 0641 7450 SNA 649 0642 5311 JMP KEY3 /ILLEGAL CHAR 650 0643 1214 TAD M140 651 0644 7650 SNA CLA 652 0645 5311 JMP KEY3 /ILLEGAL CHAR 653 0646 1004 TAD SIN 654 0647 4550 PRINTX /ECHO THE CHAR 655 0650 4316 JMS KEY4 /STORE THE CHAR 656 0651 1045 TAD IPTRO 657 0652 7041 CIA 658 0653 1044 TAD IPTRI /FILLED YET? 659 0654 7550 SPA SNA 660 0655 1121 TAD C40 661 0656 1120 TAD M12 662 0657 7750 SPA SNA CLA /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 16-1 663 0660 5264 JMP KEX 664 0661 7350 ANYINP, L3777 665 0662 0406 AND I TEMP2 /CLEAR I WAIT 666 0663 3406 DCA I TEMP2 667 0664 4552 KEX, UDF 668 0665 1444 TAD I IPTRI 669 0666 6201 CDF 670 0667 7650 SNA CLA /NO RFC IF BUFFER IS FULL 671 0670 1277 TAD P20 672 0671 0406 AND I TEMP2 /NOPE, NOW, DOES HE HAVE THE PTR? 673 0672 7640 SZA CLA 674 0673 6014 RFC /SURE NUFF 675 0674 5600 JMP I KEY 676 677 0675 0305 VDECKON,DECKON 678 0676 3552 PIERROR,IERROR 679 0677 0020 P20, 20 680 0700 0140 P140, 140 681 0701 7340 KEY5, L7777 682 0702 1073 TAD SORTCN 683 0703 7740 SMA SZA CLA 684 0704 5307 JMP .+3 /NO ECHO HERE 685 0705 1004 TAD SIN 686 0706 4550 PRINTX /ECHO BREAK CHAR - CR AND BELL 687 0707 4316 KEY6, JMS KEY4 /STORE CHAR 688 0710 5261 JMP ANYINP /BREAK HERE 689 690 0711 1112 KEY3, TAD C7 691 0712 4550 PRINTX /2 BELLS FOR ILLEGAL CHAR 692 0713 1112 TAD C7 693 0714 4550 PRINTX 694 0715 5600 JMP I KEY 695 696 0716 0000 KEY4, 0 697 0717 4552 UDF 698 0720 1444 TAD I IPTRI 699 0721 7640 SZA CLA 700 0722 5340 JMP ERR070 701 0723 1004 TAD SIN 702 0724 3444 DCA I IPTRI 703 0725 6201 CDF 704 0726 2044 ISZ IPTRI 705 0727 1044 TAD IPTRI 706 0730 7041 CIA 707 0731 1121 TAD C40 708 0732 1046 TAD IPTR0 709 0733 7640 SZA CLA /OK? 710 0734 5716 JMP I KEY4 711 0735 1046 TAD IPTR0 712 0736 3044 DCA IPTRI /NO-RESET 713 0737 5716 JMP I KEY4 714 715 0740 4676 ERR070, JMS I PIERROR 716 0741 5600 JMP I KEY 717 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 17 718 /*FLPUT* ROUTINE 719 0742 0000 XFLPUT, 0 720 0743 7440 SZA 721 0744 5347 JMP XFLPT2 722 0745 7340 XFLPT1, L7777 /USE PT1 723 0746 1025 TAD PT1 724 0747 3013 XFLPT2, DCA FLTXR 725 0750 7340 L7777 726 0751 1742 TAD I XFLPUT 727 0752 3014 DCA FLTXR2 728 0753 7346 L7775 729 0754 3076 DCA T3 730 0755 1414 TAD I FLTXR2 /PUT VARIABLE 731 0756 4552 UDF 732 0757 3413 DCA I FLTXR 733 0760 6201 CDF 734 0761 2076 ISZ T3 735 0762 5355 JMP .-5 736 0763 2342 ISZ XFLPUT 737 0764 5742 JMP I XFLPUT 738 739 740 0765 0000 USER0, 0 741 0766 0001 USER1, 1 742 0767 0002 USER2, 2 743 0770 0003 USER3, 3 744 0771 0004 USER4, 4 745 0772 0005 USER5, 5 746 0773 0006 USER6, 6 747 0774 0007 USER7, 7 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 18 748 /SORRY THIS IS TO CHOPPED UP-PAGE BOUNDARY YOU KNOW 749 750 0775 4542 INPUT, PUSHF 751 0776 0017 TEXTP /CURSE YOU GH! 752 0777 4542 PUSHF 753 1000 0040 DATAPC+1 754 1001 1043 TAD DATAPC+4 755 1002 4540 PUSHA 756 1003 1111 TAD CCR 757 1004 3043 DCA DATAPC+4 758 1005 4220 JMS INREAD /SET THOSE VARIABLES 759 1006 5330 JMP INPUT1 /DONE 760 1007 4567 INPUT2, FREE13 761 1010 1122 TAD C77 762 1011 4534 PRINTC 763 1012 1121 TAD C40 764 1013 4534 PRINTC 765 1014 4541 PUSHJ 766 1015 1167 PAKLIN 767 1016 7340 L7777 768 1017 5205 JMP INPUT2-2 769 770 771 1020 0000 INREAD, 0 772 1021 7640 SZA CLA 773 1022 5260 JMP INREA3 /RE-ENTRY 774 1023 4541 PUSHJ 775 1024 3302 PRIN10 776 1025 3031 DCA MODE 777 1026 4541 PUSHJ 778 1027 4400 GETVAR 779 1030 7640 SZA CLA 780 1031 5311 JMP ERR500 /WAS FUNCTION 781 1032 1031 TAD MODE 782 1033 3032 DCA SPACSW 783 1034 4542 PUSHF /SAVE PT1;CHAR;LINEPC 784 1035 0025 PT1 785 1036 4542 PUSHF /SAVE TEXT 786 1037 0017 TEXTP 787 1040 4542 PUSHF 788 1041 0040 DATAPC+1 789 1042 4545 POPF /GET POINTERS 790 1043 0017 TEXTP 791 1044 1043 TAD DATAPC+4 792 1045 3026 DCA CHAR 793 1046 4572 TSTEND /DO WE NEED TO PUT IN MORE? 794 1047 5252 JMP INREA1 /YES 795 1050 2220 INREA4, ISZ INREAD /NO=DONE 796 1051 5620 JMP I INREAD 797 798 1052 4561 INREA1, TSTCOM /MORE? 799 1053 4551 ERR490, ERROR /JUNK 800 1054 4535 GETC 801 1055 4572 TSTEND /COMMA FOLLOWED BY CR OR '? 802 1056 7410 SKP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 18-1 803 1057 5250 JMP INREA4 /YES - ASK FOR MORE 804 1060 1031 INREA3, TAD MODE 805 1061 7650 SNA CLA 806 1062 5266 JMP .+4 807 1063 4541 PUSHJ 808 1064 5616 QINP 809 1065 5270 JMP .+3 810 1066 4541 PUSHJ 811 1067 2612 EVAL /EVALUATE INPUT 812 1070 4542 PUSHF 813 1071 0017 TEXTP 814 1072 4545 POPF 815 1073 0040 DATAPC+1 816 1074 1026 TAD CHAR 817 1075 3043 DCA DATAPC+4 /SAVE POINTERS 818 1076 4545 POPF 819 1077 0017 TEXTP 820 1100 4545 POPF 821 1101 0025 PT1 822 1102 4547 FLPUT /SET VARIABLE 823 1103 6726 FLARG 824 1104 4561 TSTCOM 825 1105 5310 JMP INREA2 826 1106 4535 GETC 827 1107 5223 JMP INREAD+3 828 829 1110 4572 INREA2, TSTEND 830 1111 4551 ERR500, ERROR /JUNK 831 1112 5620 JMP I INREAD 832 1113 7340 L7777 833 1114 4220 READ, JMS INREAD /SET THOSE VARIABLES 834 1115 5544 POPJ 835 1116 1031 READ1, TAD MODE 836 1117 4540 PUSHA 837 1120 1037 TAD DATAPC 838 1121 4564 FIND 839 1122 0003 3 840 1123 4551 ERR510, ERROR /OUT OF DATA 841 1124 3037 DCA DATAPC 842 1125 4543 POPA 843 1126 3031 DCA MODE 844 1127 5313 JMP READ-1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 19 845 1130 1043 INPUT1, TAD DATAPC+4 /FINISH UP INPUT 846 1131 3026 DCA CHAR 847 1132 4572 TSTEND 848 1133 5253 JMP ERR490 849 1134 4543 POPA 850 1135 3043 DCA DATAPC+4 851 1136 4545 POPF /RESTORE POINTERS--THIS WAS INPUT, NOT *READ*; DONT MOVE 852 /DATA POINTERS 853 854 1137 0040 DATAPC+1 855 1140 4545 POPF 856 1141 0017 TEXTP 857 1142 3026 DCA CHAR 858 1143 5544 POPJ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 20 859 1144 0057 VLIN0, ALINE0 860 /TEXT INITIALIZATION ROUTINES 861 1145 0000 INPACK, 0 862 1146 1060 TAD COMBUF 863 1147 3016 DCA AXIN 864 1150 3024 DCA XCTIN 865 1151 1060 TAD COMBUF 866 1152 3052 DCA PACKST 867 1153 1344 TAD VLIN0 868 1154 3053 DCA PACKND 869 1155 5745 JMP I INPACK 870 1156 0000 OTPACK, 0 871 1157 1060 TAD COMBUF 872 1160 3017 DCA AXOUT 873 1161 3021 DCA XCT 874 1162 3032 DCA SPACSW 875 1163 1111 TAD VPDLXR 876 1164 3053 DCA PACKND 877 1165 4535 GETC 878 1166 5756 JMP I OTPACK 879 1167 4345 PAKLIN, JMS INPACK 880 1170 4571 READC 881 1171 4556 PACKC 882 1172 4560 TSTCCR 883 1173 5370 JMP .-3 884 1174 4556 PACKC /FINISH PACKING CR 885 1175 4356 JMS OTPACK 886 1176 5544 POPJ 887 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 21 888 889 /*IF* COMMAND 890 891 1177 4541 IF, PUSHJ /GET FIRST VALUE 892 1200 2612 EVAL 893 1201 4542 PUSHF /AND SAVE IT 894 1202 6726 FLARG 895 1203 1031 TAD MODE 896 1204 4540 PUSHA 897 1205 1073 TAD SORTCN 898 1206 1120 TAD M12 899 1207 7510 SPA 900 1210 4551 ERR390, ERROR /NO RELATION OR BAD RELATION 901 1211 7126 CLL CML RTL 902 1212 3376 DCA IF1 /SAVE REL OP 903 1213 4535 GETC 904 1214 4537 SORTC /ANOTHER OP? 905 1215 1400 TERMS-1 906 1216 5265 JMP IF2 /MIGHT BE... 907 1217 7200 IF3, CLA 908 1220 1376 TAD IF1 909 1221 4537 SORTC /CHECK OP 910 1222 7735 IF4-1 911 1223 7410 SKP 912 1224 5206 JMP IF+7 /BAD OP 913 1225 1073 TAD SORTCN 914 1226 1276 TAD PIF5 915 1227 3376 DCA IF1 916 1230 1776 TAD I IF1 /GET FLOATING SKIP WORD 917 1231 3253 DCA IF6 918 1232 4541 PUSHJ /GET 2ND VALUE 919 1233 2612 EVAL 920 1234 7346 L7775 921 1235 4563 COMMAN /GET THEN 922 1236 7650 SNA CLA 923 1237 4551 ERR400, ERROR 924 1240 4543 POPA 925 1241 1031 TAD MODE 926 1242 7640 SZA CLA 927 1243 5336 JMP IFSTR 928 1244 4545 POPF 929 1245 6726 FLARG 930 1246 4407 FINT 931 1247 6507 FCMP I FLARGP /GET DIFFERENCE 932 1250 7507 FPUT I FLARGP /AND SAVE IT 933 1251 0000 FEXT 934 1252 1507 IF7, GETSGN 935 1253 7402 IF6, HLT /SKIP IF FALSE 936 1254 4554 TESTN 937 1255 5544 POPJ /NOT TRUE (NOTICE WIERD NOP--IF (EXP) (REL) (EXP) THEN .) 938 1256 5664 JMP I PRUNIN /NON-DIGIT--MUST BE COMMAND 939 1257 4557 GOTO, GETLN /DIGIT--ASSUME GOTO 940 1260 4572 TSTEND 941 1261 4551 ERR270, ERROR 942 1262 1030 TAD LINENO /TRANSFER TO THE LINE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 21-1 943 1263 5544 POPJ 944 945 1264 2514 PRUNIN, RUN8 946 1265 1073 IF2, TAD SORTCN 947 1266 1120 TAD M12 948 1267 7510 SPA 949 1270 5217 JMP IF3 /NO 2ND OP 950 1271 7001 IAC 951 1272 1376 TAD IF1 952 1273 3376 DCA IF1 953 1274 4535 GETC 954 1275 5220 JMP IF3+1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 22 955 1276 3743 PIF5, IF5 956 1277 3400 LXOUTL2, XOUTL2 957 1300 0000 TTY, 0 958 1301 1003 TAD USER 959 1302 4733 JMS I PDECKON /PUT HIM ONDECK 960 1303 3051 DCA TELSW /CLEAR BUSY 961 1304 4552 UDF 962 1305 1450 TTY3, TAD I OPTRO /MORE 963 1306 7450 SNA 964 1307 5324 JMP TTY2 /NO 965 1310 4677 JMS I LXOUTL2 /OUTPUT IT 966 1311 4552 UDF 967 1312 3450 DCA I OPTRO /CLEAR BUFFER 968 1313 2050 ISZ OPTRO /BUMP BUFFER 969 1314 1050 TAD OPTRO 970 1315 7041 CIA 971 1316 1046 TAD IPTR0 972 1317 7640 SZA CLA 973 1320 5324 JMP TTY2 /OK 974 1321 1046 TAD IPTR0 975 1322 1125 TAD M40 976 1323 3050 DCA OPTRO /RESET BUFFER 977 1324 4734 TTY2, JMS I AXFREE /ROOM AVAILABLE 978 1325 7000 NOP 979 1326 5700 JMP I TTY /NOT ENOUGH ROOM 980 1327 7352 L5777 981 1330 0406 AND I TEMP2 /CLEAR O WAIT 982 1331 3406 DCA I TEMP2 983 1332 5700 JMP I TTY 984 985 1333 0305 PDECKON, DECKON 986 1334 5514 AXFREE, XFREE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 23 987 1335 1375 VIF1, IF1-1 988 1336 4545 IFSTR, POPF /STRING *IF* 989 1337 1376 IF1 /SAVE FIRST STRING 990 1340 1107 TAD FLARGP /POINT TO THE STRINGS 991 1341 3031 DCA MODE 992 1342 1335 TAD VIF1 993 1343 3013 DCA FLTXR 994 1344 7346 L7775 /DO AN INTEGER COMPARE ON 3 WORDS 995 1345 3076 DCA T3 996 1346 1413 IFSTR1, TAD I FLTXR /SUBTRACT WORDS, GET SIGN OF DIFFERENCE 997 1347 7040 CMA /THIS GARBAGE CONVERTS CR'S TO ZEROES 998 1350 3074 DCA T1 /AND ADDS ONE TO EACH CHARACTER 999 1351 1074 TAD T1 /SO COMPARES OF DIFFERENT LENGTHS COME OUT OK 1000 1352 0122 AND C77 1001 1353 7640 SZA CLA 1002 1354 1127 TAD C7700 1003 1355 1074 TAD T1 1004 1356 3074 DCA T1 1005 1357 1431 TAD I MODE 1006 1360 7001 IAC 1007 1361 0122 AND C77 1008 1362 3075 DCA T2 1009 1363 1431 TAD I MODE 1010 1364 1131 TAD C100 1011 1365 0127 AND C7700 1012 1366 1075 TAD T2 1013 1367 1074 TAD T1 1014 1370 7440 SZA /IF DIFFERENCE ZERO, TRY ANOTHER PAIR 1015 1371 5253 JMP IF6 /NON ZERO DIFFERENCE, COMPARE THEM 1016 1372 2031 ISZ MODE 1017 1373 2076 ISZ T3 1018 1374 5346 JMP IFSTR1 1019 1375 5253 JMP IF6 /IF DONE, COMPARE THEM 1020 1021 1376 0000 IF1, 0 1022 1377 0000 0 1023 1400 0000 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 24 1024 1401 0040 TERMS, 40 /SPACE 0 1025 1402 0053 53 /+ 1 1026 1403 0055 55 /- 2 1027 1404 0052 52 /* 3 1028 1405 0057 57 // 4 1029 1406 0136 136 /^ 5 1030 1407 0050 50 /( 6 1031 1410 0133 133 /[ 7 1032 1411 0051 51 /) 10 1033 1412 0135 135 /] 11 1034 1413 0074 74 /< 12 1035 1414 0076 76 /> 13 1036 1415 0075 75 /= 14 1037 1038 /*LET* AND *FOR* COMMANDS 1039 1416 7340 FOR, L7777 1040 1417 3361 LET, DCA FOR1 /SAVE DETERMINATOR 1041 1420 4541 PUSHJ /GET VARIABLE 1042 1421 4400 GETVAR 1043 1422 7650 SNA CLA /WAS FUNCTION!?! 1044 1423 1026 TAD CHAR 1045 1424 1340 TAD MEQL 1046 1425 7640 SZA CLA 1047 1426 4551 ERR410, ERROR /NO "=" 1048 1427 4542 LET2, PUSHF /SAVE ADD,XCTIN,PT1 1049 1430 0023 ADD 1050 1431 4541 PUSHJ /GET VALUE 1051 1432 2611 EVAL-1 1052 1433 4545 POPF 1053 1434 0023 ADD 1054 1435 4547 FLPUT /SET VARIABLE 1055 1436 6726 FLARG 1056 1437 7340 L7777 /COUNT BACK FOR SAFETY 1057 1440 1017 TAD AXOUT 1058 1441 3362 DCA FOR5 1059 1442 2361 ISZ FOR1 /WHICH COMMAND? 1060 1443 5341 JMP LET1 /LET COMMAND 1061 1444 1023 TAD ADD 1062 1445 7710 SPA CLA 1063 1446 4551 ERR420, ERROR /SUBSCRIPTED 1064 1447 4563 COMMAN /GET WORD 1065 1450 1130 TAD M4 1066 1451 7640 SZA CLA 1067 1452 5351 JMP FOR2+3 /NOT *TO* 1068 1453 1025 TAD PT1 1069 1454 7041 CIA 1070 1455 3361 DCA FOR1 /SAVE POINTER 1071 1456 4541 PUSHJ /GET LIMIT 1072 1457 2612 EVAL 1073 1460 4542 PUSHF /SAVE LIMIT 1074 1461 6726 FLARG 1075 1462 4572 TSTEND 1076 1463 5346 JMP FOR2 /GET INCREMENT 1077 1464 4542 PUSHF /INCREMENT IS ONE 1078 1465 4354 FLTONE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 24-1 1079 1466 1030 FOR3, TAD LINENO 1080 1467 4540 PUSHA 1081 1470 1030 TAD LINENO 1082 1471 7410 SKP 1083 1472 4543 FOR4, POPA 1084 1473 4564 FIND /FIND A *NEXT* STATEMENT 1085 1474 0001 1 /-NEXT CODE 1086 1475 4551 ERR440, ERROR /OUT OF TEXT 1087 1476 4540 PUSHA /SAVE FOR RESTART 1088 1477 4562 TSTALP 1089 1500 5272 JMP FOR4 1090 1501 4541 PUSHJ /GET VARIABLE 1091 1502 4400 GETVAR 1092 1503 7640 SZA CLA 1093 1504 3025 DCA PT1 /NO SECOND CHANCE ON FUNCTION 1094 1505 4560 TSTCCR 1095 1506 5763 JMP I NEXERR /WE GOTTA CHECK THAT *NEXT* IS LAST ON LINE OR WE MIGHT 1096 /WIPE OUT HIS PROGRAM [AND THE SYSTEM?] 1097 1507 1025 TAD PT1 1098 1510 1361 TAD FOR1 1099 1511 7640 SZA CLA 1100 1512 5272 JMP FOR4 /LOOP 1101 1513 2015 ISZ PDLXR /DUMP RESTART 1102 1514 4543 POPA 1103 1515 3030 DCA LINENO 1104 1516 1030 TAD LINENO 1105 1517 4552 UDF 1106 1520 3417 DCA I AXOUT /SET TEXT AND LINE POINTERS 1107 1521 1362 TAD FOR5 1108 1522 3417 DCA I AXOUT /SET POINTER 1109 1523 6201 CDF 1110 1524 4545 POPF /GET INCREMENT 1111 1525 6726 FLARG 1112 1526 1017 TAD AXOUT 1113 1527 4547 FLPUT /PUT INCREMENT 1114 1530 6726 FLARG 1115 1531 4545 POPF /GET LIMIT 1116 1532 6726 FLARG 1117 1533 1133 TAD C3 1118 1534 1017 TAD AXOUT 1119 1535 4547 FLPUT /SET LIMIT 1120 1536 6726 FLARG 1121 1537 4566 FINDLN 1122 1540 7703 MEQL, -"=+200 1123 1541 4572 LET1, TSTEND 1124 1542 4551 ERR450, ERROR /JUNK 1125 1543 1362 TAD FOR5 1126 1544 5745 JMP I .+1 1127 1545 2470 FOREXT 1128 1129 1546 7344 FOR2, L7776 1130 1547 4563 COMMAN /IS IT STEP 1131 1550 7650 SNA CLA 1132 1551 4551 ERR430, ERROR /NOT STEP 1133 1552 4541 PUSHJ /GET INCREMENT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 24-2 1134 1553 2612 EVAL 1135 1554 4542 PUSHF /SAVE INCREMENT 1136 1555 6726 FLARG 1137 1556 4572 TSTEND 1138 1557 5351 JMP FOR2+3 /JUNK 1139 1560 5266 JMP FOR3 1140 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 25 1141 1142 1561 0000 FOR1, 0 1143 1562 0000 FOR5, 0 /AXOUT SAVE REG 1144 1145 1563 2400 NEXERR, ERR460 1146 1147 1564 4562 UNKWN, TSTALP 1148 1565 5777 JMP I PERRR 1149 1566 4541 PUSHJ 1150 1567 4400 GETVAR 1151 1570 7650 SNA CLA /NO WAY 1152 1571 1026 TAD CHAR 1153 1572 1340 TAD MEQL 1154 1573 7640 SZA CLA 1155 1574 5365 JMP UNKWN+1 /NO "=" 1156 1575 3361 DCA FOR1 1157 1576 5227 JMP LET2 1158 1159 1577 4362 PERRR, ERRCHK 1160 1161 1162 /*NEW* AND *BYE* AND *SCRATCH* AND *END* COMMANDS 1163 1600 4560 BYE, TSTCCR 1164 1601 4551 ERR002, ERROR 1165 1602 4552 UDF 1166 1603 3457 DCA I ALINE0 1167 1604 7326 L0002 1168 1605 1057 TAD ALINE0 1169 1606 3054 DCA BUFR 1170 1607 1054 END, TAD STARTV 1171 1610 3055 DCA LASTV 1172 1611 5502 JMP I AREADY /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 26 1173 1612 0000 FATNC, 0 1174 1613 0000 0 /LAST WORD IS SUBR START 1175 /*DELETE* ROUTINE 1176 1614 0000 XDELET, 0 1177 1615 4566 FINDLN /FIND THE LINE 1178 1616 5614 JMP I XDELET /NOT THERE - EXIT 1179 1617 2032 ISZ SPACSW 1180 1620 4535 GETC 1181 1621 4560 TSTCCR /GO TO END OF LINE 1182 1622 5220 JMP .-2 1183 1623 1017 TAD AXOUT 1184 1624 7040 CMA 1185 1625 1027 TAD LINEPC 1186 1626 4540 PUSHA /SAVE COUNT 1187 1627 1027 TAD LINEPC 1188 1630 7001 IAC 1189 1631 3017 DCA AXOUT /TO UNPACK 1190 1632 3021 DCA XCT 1191 1633 4541 PUSHJ 1192 1634 4153 ENDFND /GET LAST COMMAND HERE 1193 1635 7650 SNA CLA 1194 1636 1123 TAD M10 1195 1637 4543 POPA 1196 1640 3076 DCA T3 /CORRECTED COUNT 1197 1641 1027 TAD LINEPC 1198 1642 7041 CIA 1199 1643 1057 TAD ALINE0 1200 1644 7650 SNA CLA 1201 1645 5614 JMP I XDELET /NOT LINE0 1202 1646 4552 UDF 1203 1647 1427 TAD I LINEPC /GET POINTER 1204 1650 3431 DCA I LASTLN /REMOVE LINE 1205 1651 1057 TAD ALINE0 1206 1652 3075 XDEL3, DCA T2 /CURRENT LINE 1207 1653 1475 TAD I T2 1208 1654 7450 SNA 1209 1655 5271 JMP XDEL2 /OUT OF TEXT 1210 1656 3074 DCA T1 1211 1657 1027 TAD LINEPC 1212 1660 7141 CLL CIA 1213 1661 1074 TAD T1 1214 1662 7630 SZL CLA 1215 1663 1076 TAD T3 /CORRECT LINE 1216 1664 1074 TAD T1 1217 1665 3475 DCA I T2 1218 1666 1074 TAD T1 1219 1667 5252 JMP XDEL3 1220 1221 1670 4473 PERR, ERR100-2 1222 1671 7340 XDEL2, L7777 1223 1672 1027 TAD LINEPC 1224 1673 3012 DCA XREG3 1225 1674 1076 TAD T3 1226 1675 7040 CMA 1227 1676 1027 TAD LINEPC /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 26-1 1228 1677 3017 DCA AXOUT 1229 1700 1076 TAD T3 1230 1701 1054 TAD BUFR 1231 1702 3054 DCA BUFR 1232 1703 1016 TAD AXIN 1233 1704 7040 CMA 1234 1705 1017 TAD AXOUT 1235 1706 3074 DCA T1 1236 1707 1076 TAD T3 1237 1710 1016 TAD AXIN 1238 1711 3016 DCA AXIN 1239 1712 1417 TAD I AXOUT 1240 1713 3412 DCA I XREG3 /MOVE TEXT 1241 1714 2074 ISZ T1 1242 1715 5312 JMP .-3 1243 1716 5215 JMP XDELET+1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 27 1244 /PUSH ROUTINES 1245 1717 0000 XPUSHA, 0 1246 1720 3332 DCA XPUSHJ 1247 1721 7340 L7777 /BACK 1 1248 1722 4337 JMS PCHK 1249 1723 1332 TAD XPUSHJ 1250 1724 4552 UDF 1251 1725 3415 DCA I PDLXR /PUSH IT 1252 1726 6201 CDF 1253 1727 7340 L7777 1254 1730 4337 JMS PCHK /BACK AGAIN 1255 1731 5717 JMP I XPUSHA 1256 1257 1732 0000 XPUSHJ, 0 1258 1733 1732 TAD I XPUSHJ /GET SEND ADDRESS 1259 1734 3317 DCA XPUSHA 1260 1735 2332 ISZ XPUSHJ /GET RETURN ADDRESS 1261 1736 5321 JMP XPUSHA+2 1262 1263 1737 0000 PCHK, 0 1264 1740 1015 TAD PDLXR 1265 1741 3015 DCA PDLXR 1266 1742 7326 L0002 1267 1743 1055 TAD LASTV 1268 1744 7141 CLL CIA 1269 1745 1015 TAD PDLXR 1270 1746 7620 SNL CLA 1271 1747 5670 JMP I PERR 1272 1750 5737 JMP I PCHK 1273 1274 /*PUSHF* ROUTINE 1275 1751 0000 XPUSHF, 0 1276 1752 7340 L7777 1277 1753 1751 TAD I XPUSHF 1278 1754 3012 DCA XREG3 /POINT TO DATA 1279 1755 7346 L7775 1280 1756 4337 JMS PCHK /BACK 3 1281 1757 7346 L7775 1282 1760 3076 DCA T3 1283 1761 1412 TAD I XREG3 1284 1762 4552 UDF 1285 1763 3415 DCA I PDLXR /PUSH DATA 1286 1764 6201 CDF 1287 1765 2076 ISZ T3 1288 1766 5361 JMP .-5 1289 1767 7346 L7775 1290 1770 4337 JMS PCHK /BACK 3 AGAIN 1291 1771 2351 ISZ XPUSHF 1292 1772 5751 JMP I XPUSHF 1293 1294 1777 *1777 1295 1777 4407 RND, FINT 1296 2000 0063 FGET FRNDX 1297 2001 0000 FEXT 1298 2002 6212 CIF SWAP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 27-1 1299 2003 5604 JMP I .+1 1300 2004 1461 RND1 1301 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 28 1302 2005 0000 MANCOM, 0 1303 2006 3014 DCA FLTXR2 /SAVE AC 1304 2007 1377 TAD (LIST7 /START AT BEGINNING OF LIST 1305 2010 6211 CDF SWAP /IN FIELD 1 1306 2011 3075 COMLP1, DCA T2 /LIST POINTER 1307 2012 7326 L0002 1308 2013 3074 DCA T1 /LETTER POINTER 1309 2014 1475 TAD I T2 /GET -UNIQUE COUNT-1 1310 2015 7012 RTR / 1311 2016 0112 AND C7 / 1312 2017 7110 CLL RAR / 1313 2020 7040 CMA / 1314 2021 3077 DCA CNTR / 1315 2022 4272 JMS COM11 /UNIQUE? 1316 2023 5232 JMP COM3 /YES - TRY REST 1317 2024 2075 ISZ T2 /GET NEXT COMMAND IN LIST 1318 2025 1475 TAD I T2 / 1319 2026 7440 SZA /END OF LIST? 1320 2027 5211 JMP COMLP1 /NO - GO ON 1321 2030 6201 COM5, CDF /YES - RETURN FAILURE 1322 2031 5605 JMP I MANCOM /AC=0 1323 1324 1325 2032 1475 COM3, TAD I T2 /GET -FULL LENGTH-3 1326 2033 0112 AND C7 / 1327 2034 1376 TAD (2 / 1328 2035 7040 CMA / 1329 2036 1074 TAD T1 /T1=UNIQUE POINTER+1 1330 2037 3077 DCA CNTR /NO. OF CHARS TO GO-1 1331 2040 4272 JMS COM11 /LONG FORM OF COMMAND? 1332 2041 5243 JMP COM4 /YES - THROW OUT SHORT POINTERS 1333 2042 5246 JMP COM8 1334 2043 1132 COM4, TAD C4 /DELETE LAST 4 ENTRIES FROM PDL 1335 2044 1015 TAD PDLXR / 1336 2045 3015 DCA PDLXR / 1337 1338 2046 1475 COM8, TAD I T2 1339 2047 4553 RTL6 1340 2050 7004 RAL 1341 2051 0122 AND C77 /GET CODE 1342 2052 1125 TAD M40 /CORRECT IT 1343 2053 3013 DCA FLTXR /AND SAVE IT 1344 2054 1014 TAD FLTXR2 1345 2055 7450 SNA 1346 2056 5262 JMP .+4 /NO DOUBLE CHECK 1347 2057 1013 TAD FLTXR 1348 2060 7640 SZA CLA 1349 2061 5270 JMP COM7 /DOUBLE CHECK FAILS 1350 2062 6201 CDF 1351 2063 1132 TAD C4 1352 2064 1015 TAD PDLXR /DUMPPDLJUNK 1353 2065 3015 DCA PDLXR 1354 2066 1013 TAD FLTXR 1355 2067 5605 JMP I MANCOM 1356 2070 4333 COM7, JMS COMPOP /RESET POINTERS TO ENTRY VALUES /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 28-1 1357 2071 5230 JMP COM5 /TAKE FAILURE RETURN 1358 1359 1360 2072 0000 COM11, 0 /COMMAND COMPARISON 1361 2073 6201 CDF 1362 2074 4542 PUSHF 1363 2075 0017 TEXTP /SAVE TEXP POINTERS 1364 2076 1026 TAD CHAR / 1365 2077 4540 PUSHA / 1366 2100 6211 COMLP2, CDF SWAP 1367 2101 2077 ISZ CNTR /=NO. OF CHARS TO GO-1 1368 2102 7410 SKP 1369 2103 5672 JMP I COM11 /SUCCESS RETURN FROM COM11 1370 2104 1074 TAD T1 1371 2105 7110 CLL RAR 1372 2106 1075 TAD T2 1373 2107 3012 DCA XREG3 1374 2110 1412 TAD I XREG3 1375 2111 7430 SZL 1376 2112 5315 JMP .+3 1377 2113 4553 RTL6 1378 2114 7004 RAL 1379 2115 0122 AND C77 1380 2116 7450 SNA 1381 2117 1375 TAD (-215+337 1382 2120 1351 TAD M137 1383 2121 1026 TAD CHAR 1384 2122 7640 SZA CLA /SAME SO FAR? 1385 2123 5330 JMP COM13 /NO GO 1386 2124 6201 CDF 1387 2125 4535 GETC /NEXT CHAR 1388 2126 2074 ISZ T1 /LETTER POINTER 1389 2127 5300 JMP COMLP2 /LOOP 1390 2130 2272 COM13, ISZ COM11 /FAILURE RETURN FROM COM11 1391 2131 4333 JMS COMPOP /RESTORE TEXT POINTERS TO ENTRY VALUES 1392 2132 5672 JMP I COM11 1393 1394 1395 2133 0000 COMPOP, 0 /RESTORE TEXT POINTERS FROM PDL 1396 2134 4543 POPA 1397 2135 3026 DCA CHAR 1398 2136 4545 POPF 1399 2137 0017 TEXTP 1400 2140 6211 CDF SWAP 1401 2141 5733 JMP I COMPOP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 29 1402 2142 0137 XGETL1, 137 /CR 1403 2143 0100 100 /BELL 1404 2144 0040 40 /SPACE 1405 2145 7167 AXUDF, XUDF+1 /NEGATIVE ENDS LIST 1406 1407 1408 2146 0175 ALT, 175 1409 2147 0176 176 1410 2150 0033 33 /ALL THOSE ALTMODES 1411 2151 7641 M137, -137 /NEGATIVE ENDS LIST 1412 1413 /SUBROUTINE TO WRITE OUT MESSAGES 1414 2152 0000 READY1, 0 1415 2153 3017 DCA AXOUT /POINT TO MESSAGE 1416 2154 3021 DCA XCT 1417 2155 1126 TAD M6 1418 2156 3075 DCA T2 1419 2157 1745 TAD I AXUDF /FIELD1? 1420 2160 1374 TAD (-6211 1421 2161 7650 SNA CLA 1422 2162 1373 TAD (STMV /YES - DISPLACE ADDRESS 1423 2163 1017 TAD AXOUT 1424 2164 3017 DCA AXOUT 1425 2165 4535 RDY1, GETC 1426 2166 4534 PRINTC /PRINT MESSAGE 1427 2167 2075 ISZ T2 1428 2170 5365 JMP RDY1 1429 2171 5752 JMP I READY1 1430 1431 2173 1000 1432 2174 1567 1433 2175 0122 1434 2176 0002 1435 2177 1046 2200 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 30 1436 1437 /*EDIT* COMMAND 1438 2200 4557 EDIT, GETLN /GET LINE NUMBER 1439 2201 4560 TSTCCR 1440 2202 7410 SKP /JUNK 1441 2203 4566 FINDLN /FIND THE LINE 1442 2204 4551 ERR001, ERROR /NOT THERE 1443 2205 2032 ISZ SPACSW 1444 2206 4770 JMS I CINPACK /SET TO PACK IT 1445 2207 3115 MODF2, DCA LSTMOD /READ SILENTLY 1446 2210 4571 READC 1447 2211 1026 MODF3, TAD CHAR 1448 2212 3115 DCA LSTMOD /SET SEARCH CHARACTOR 1449 2213 4535 MODF1, GETC 1450 2214 4570 FREE2 1451 2215 4534 PRINTC /PRINT LINE UNTIL... 1452 2216 4536 SORTJ 1453 2217 0110 CCR-1 1454 2220 1316 MODL1-CCR 1455 2221 4556 PACKC /KEEP PACKING 1456 2222 5213 JMP MODF1 1457 1458 2223 4556 MODF4, PACKC /PACK IT 1459 2224 4571 READC /GET CHARS 1460 2225 4536 SORTJ /CHECK THEM 1461 2226 0110 CCR-1 1462 2227 1266 MODL2-CCR 1463 2230 5223 JMP MODF4 1464 1465 2231 4556 MODF5, PACKC /PACK THE CR 1466 2232 4556 PACKC 1467 2233 4771 JMS I COTPACK /SET TO UNPACK IT 1468 2234 5757 JMP I CSRETN 1469 /*DELETE* COMMAND 1470 2235 4333 DELET, JMS GETLIM /GET LIMITS 1471 2236 1054 TAD BUFR 1472 2237 3016 DCA AXIN /PROTECT TEXT 1473 2240 4314 JMS GETLIN /GET A LINE 1474 2241 5502 JMP I AREADY /WE ARE DONE 1475 2242 4765 JMS I CXDELET /DELETE IT 1476 2243 1031 TAD LASTLN 1477 2244 3027 DCA LINEPC /RESTORE POINTERS 1478 2245 5240 JMP .-5 /LOOP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 31 1479 1480 /*LIST* COMMAND 1481 2246 4333 LIST, JMS GETLIM /GET LIMITS 1482 2247 2032 ISZ SPACSW /KEEP SPACES 1483 2250 1127 TAD M100 1484 2251 3025 DCA PT1 1485 2252 1034 TAD OUTPUT 1486 2253 7650 SNA CLA 1487 2254 5263 JMP LLIST3-3 /NORMAL MODE 1488 2255 3034 DCA OUTPUT /WE WILL OUTPUT FOR A WHILE 1489 2256 4570 LLIST5, FREE2 1490 2257 7330 L4000 1491 2260 4534 PRINTC /DO L/T 1492 2261 2025 ISZ PT1 1493 2262 5256 JMP LLIST5 1494 2263 4570 FREE2 1495 2264 1111 TAD CCR 1496 2265 4534 PRINTC 1497 2266 4314 LLIST3, JMS GETLIN /GET A LINE 1498 2267 5301 JMP LLIST4 /WE ARE DONE 1499 2270 4567 FREE13 1500 2271 1030 TAD LINENO 1501 2272 4767 JMS I CITPRNT /PRINT THE NUMBER 1502 2273 4535 GETC 1503 2274 4570 FREE2 1504 2275 4534 PRINTC /PRINT THE LINE 1505 2276 4560 TSTCCR 1506 2277 5273 JMP .-4 /UNTIL A CR 1507 2300 5266 JMP LLIST3 /LOOP 1508 1509 2301 1025 LLIST4, TAD PT1 /DID WE PUNCH TRAILER?? 1510 2302 7640 SZA CLA 1511 2303 5502 JMP I AREADY /NORMAL SO EXIT 1512 2304 1127 TAD M100 1513 2305 3025 DCA PT1 /DO IT AGAIN, TURN ECHO OFF 1514 2306 4570 LLIST6, FREE2 1515 2307 7330 L4000 1516 2310 4534 PRINTC 1517 2311 2025 ISZ PT1 1518 2312 5306 JMP LLIST6 1519 2313 5766 JMP I CTAPE 1520 1521 2314 0000 GETLIN, 0 1522 2315 1111 TAD CCR 1523 2316 3026 DCA CHAR /FOOL NXTGET 1524 2317 4565 GETNXT /GET NEXT LINE 1525 2320 5714 JMP I GETLIN /OUT OF TEXT 1526 2321 4543 POPA 1527 2322 3076 DCA T3 /GET LIMIT 1528 2323 1076 TAD T3 1529 2324 4540 PUSHA /SAVE LIMIT 1530 2325 1030 TAD LINENO 1531 2326 7041 CIA 1532 2327 1076 TAD T3 1533 2330 7700 SMA CLA /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 31-1 1534 2331 2314 ISZ GETLIN /OK 1535 2332 5714 JMP I GETLIN 1536 1537 2333 0000 GETLIM, 0 1538 2334 4560 TSTCCR 1539 2335 5341 JMP LIMGT1 /NOT ALL 1540 2336 3031 DCA LASTLN /START AT 0 1541 2337 7350 L3777 1542 2340 5351 JMP LIMGT3 1543 1544 1545 2341 4557 LIMGT1, GETLN /GET A LINE NUMBER 1546 2342 1030 TAD LINENO 1547 2343 3031 DCA LASTLN /AND SAVE IT 1548 2344 4561 TSTCOM 1549 2345 5363 JMP LIMGT2 /ONLY ONE LINE 1550 2346 4535 GETC 1551 2347 4557 GETLN /GET LINE NUMBER 1552 2350 1030 TAD LINENO 1553 2351 4540 LIMGT3, PUSHA /UPPER LIMIT 1554 2352 1031 TAD LASTLN 1555 2353 3030 DCA LINENO /LOWER LIMIT 1556 2354 4560 TSTCCR 1557 2355 5204 JMP ERR001 /JUNK 1558 2356 4566 LIMGT4, FINDLN /FIND THE LINE 1559 2357 0511 CSRETN, SRETN 1560 2360 1031 TAD LASTLN 1561 2361 3027 DCA LINEPC /AND GO BACK ONE 1562 2362 5733 JMP I GETLIM 1563 1564 2363 1031 LIMGT2, TAD LASTLN /1ST = 2ND 1565 2364 5351 JMP LIMGT3 1566 2365 1614 CXDELET, XDELET 1567 2366 7653 CTAPE, TAPE 1568 2367 0231 CITPRNT, ITPRNT 1569 2370 1145 CINPACK, INPACK 1570 2371 1156 COTPACK, OTPACK /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 32 1571 /ABSOLUTE VALUE FUNCTION 1572 2372 3066 ABS, DCA ACSIGN 1573 2373 5544 POPJ /ONE OF THE LONGER FUNCTIONS 1574 1575 /*NEXT* COMMAND 1576 2374 4541 NEXT, PUSHJ /GET VARIABLE 1577 2375 4400 GETVAR 1578 2376 7650 SNA CLA /WAS FUNCTION? 1579 2377 4560 TSTCCR /*NEXT* !MUST! BE LAST ON LINE 1580 2400 4551 ERR460, ERROR 1581 2401 4407 FINT 1582 2402 0507 FGET I FLARGP /PUT VARIABLE INTO FLAC 1583 2403 0000 FEXT 1584 2404 4552 UDF 1585 2405 1417 TAD I AXOUT 1586 2406 7450 SNA 1587 2407 4551 ERR470, ERROR /NEXT NOT INITIALIZED 1588 2410 3075 DCA T2 1589 2411 1417 TAD I AXOUT 1590 2412 4540 PUSHA 1591 2413 1017 TAD AXOUT 1592 2414 4546 FLGET /GET INCREMENT 1593 2415 6726 FLARG 1594 2416 1507 GETSGN 1595 2417 7700 NEXT3, SMA CLA 1596 2420 1266 TAD C50 /POSITIVE INCREMENT 1597 2421 1217 TAD NEXT3 /NEGATIVE INCREMENT 1598 2422 3242 DCA NEXT1 /SET LIMIT TEST INSTRUCTION 1599 2423 4407 FINT 1600 2424 1507 FADD I FLARGP /BUMP VARIABLE 1601 2425 7507 FPUT I FLARGP /SAVE VALUE 1602 2426 0000 FEXT 1603 2427 4547 FLPUT /SET VARIABLE 1604 2430 6726 FLARG 1605 2431 1133 TAD C3 1606 2432 1017 TAD AXOUT 1607 2433 4546 FLGET /GET LIMIT 1608 2434 6726 FLARG 1609 2435 4407 FINT 1610 2436 2507 FSUB I FLARGP 1611 2437 7507 FPUT I FLARGP 1612 2440 0000 FEXT 1613 2441 1507 GETSGN /SIGN OF DIFFERENCE 1614 2442 7402 NEXT1, HLT /SKIP IF DONE 1615 2443 5263 JMP NEXT2 /NOT DONE 1616 2444 7340 L7777 1617 2445 1017 TAD AXOUT 1618 2446 3074 DCA T1 1619 2447 4552 UDF 1620 2450 3474 DCA I T1 /NOT INITIALIZED NOW 1621 2451 2015 RETURN, ISZ PDLXR /*RETURN* AND *POPJ* 1622 2452 4572 TSTEND 1623 2453 4551 ERR320, ERROR 1624 2454 3012 XPOPJ, DCA XREG3 1625 2455 4543 POPA /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 32-1 1626 2456 3076 DCA T3 1627 2457 1012 TAD XREG3 1628 2460 5476 JMP I T3 1629 2461 4543 GOSUB1, POPA 1630 2462 7410 SKP 1631 2463 1075 NEXT2, TAD T2 1632 2464 3030 DCA LINENO 1633 2465 4566 FINDLN 1634 2466 0050 C50, 50 1635 2467 4543 POPA 1636 2470 3017 FOREXT, DCA AXOUT 1637 2471 3026 DCA CHAR 1638 2472 5544 POPJ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 33 1639 /*RUN* COMMAND 1640 2473 1054 RUN, TAD STARTV /NO VARIABLES 1641 2474 3055 DCA LASTV 1642 2475 4542 PUSHF /SET RANDOM NUMBER 1643 2476 2561 FRNDX1 1644 2477 4545 POPF 1645 2500 0063 FRNDX 1646 2501 4355 JMS RUN4 /ZAP THE *NEXT* STATEMENTS 1647 2502 1057 IDNE, TAD ALINE0 1648 2503 3027 DCA LINEPC 1649 2504 4565 RUN7, GETNXT /NEXT COMMAND FOR EXECUTION 1650 2505 5502 JMP I AREADY 1651 2506 3032 RUN6, DCA SPACSW /NEED TO IGNORE SPACES 1652 2507 4535 GETC 1653 2510 2022 ISZ PC 1654 2511 5315 JMP RUN8+1 1655 2512 4341 JMS RUN9 /WE'VE HAD OUR TIME SLICE NOW 1656 2513 7410 SKP 1657 2514 2015 RUN8, ISZ PDLXR /POISON--WATCH IT! 1658 2515 3031 DCA MODE 1659 2516 1030 TAD LINENO 1660 2517 3062 DCA ERLINE 1661 2520 4563 COMMAN 1662 2521 7540 SMA SZA /LEGAL COMMAND? 1663 2522 5777 JMP I (ERRCHK 1664 2523 1376 TAD (COMGOL+16 1665 2524 3074 DCA T1 1666 2525 6211 CDF SWAP 1667 2526 1474 TAD I T1 1668 2527 6201 CDF 1669 2530 3332 DCA .+2 1670 2531 4541 PUSHJ 1671 2532 0000 0 /AND GO TO IT 1672 2533 7450 SNA /NORMAL RETURN:AC=0, TRANSFER RETURN:AC=LINENO 1673 2534 5304 JMP RUN7 1674 2535 3030 DCA LINENO 1675 2536 4566 GOSUB2, FINDLN /LOOK FOR REQUESTED LINE 1676 2537 4551 ERR380, ERROR /IT'S NOT THERE 1677 2540 5306 JMP RUN6 1678 2541 0000 RUN9, 0 /DISMISSAL ROUTINE:SET PC FOR RETURN 1679 2542 1341 TAD RUN9 1680 2543 3022 DCA PC 1681 2544 5177 JMP NULL /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 34 1682 1683 2545 4355 FLOTRX, JMS RUN4 /ZAP THE *NEXT* STATEMENTS 1684 2546 7340 L7777 1685 2547 1060 TAD COMBUF 1686 2550 3027 DCA LINEPC 1687 2551 4775 JMS I (OTPACK 1688 2552 7340 L7777 1689 2553 3030 DCA LINENO 1690 2554 5315 JMP RUN8+1 1691 1692 2555 0000 RUN4, 0 /UNINITIALIZE ALL THE *NEXT* STATEMENTS 1693 2556 7200 CLA 1694 2557 1062 TAD ERLINE /START AT LINE 0 1695 2560 4564 FIND /FIND THE *NEXT* STATEMENTS 1696 2561 0001 FRNDX1, 1 1697 2562 5755 JMP I RUN4 1698 2563 3062 DCA ERLINE 1699 2564 4541 PUSHJ 1700 2565 4400 GETVAR 1701 2566 7650 SNA CLA /MUST NOT BE FUNCTION, 1702 2567 4560 TSTCCR /MUST BE END OF LINE 1703 2570 5200 JMP ERR460 1704 2571 4552 UDF 1705 2572 3417 DCA I AXOUT /NOT INITIALIZED NOW 1706 2573 5356 JMP RUN4+1 1707 1708 2575 1156 1709 2576 1045 1710 2577 4362 2600 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 35 1711 /EXPRESSION EVALUATOR 1712 2600 0000 ECALL, 0 1713 2601 1073 TAD SORTCN 1714 2602 4540 PUSHA 1715 2603 1101 TAD LASTOP 1716 2604 4540 PUSHA 1717 2605 1077 TAD EFOP 1718 2606 4540 PUSHA 1719 2607 1200 TAD ECALL 1720 2610 4540 PUSHA /RETURN ADDRESS 1721 2611 4535 GETC 1722 2612 3101 EVAL, DCA LASTOP /0 IS END 1723 2613 1353 TAD EVAL1 1724 2614 4540 PUSHA /SAVE EVAL1 1725 2615 3353 DCA EVAL1 /0 EVAL1 1726 2616 4555 TESTC 1727 2617 5223 JMP ETERM1 /INITIAL TERMINATOR 1728 2620 5241 JMP ENUM /NUMBER 1729 2621 5344 JMP EVAR /VARIABLE 1730 2622 5777 JMP I (QUOTES /OTHER 1731 1732 2623 1376 ETERM1, TAD (FLZERO 1733 2624 3025 DCA PT1 /0 DATA 1734 2625 7344 L7776 1735 2626 1073 TAD SORTCN 1736 2627 7450 SNA 1737 2630 5261 JMP ETERM /MINUS 1738 2631 7001 IAC 1739 2632 7650 SNA CLA 1740 2633 5336 JMP ARGNXT /PLUS 1741 2634 4573 ELPAR, TSTLPR 1742 2635 5354 JMP EVAL2 /CHECK UNARY 1743 2636 4200 EPAR2, JMS ECALL /RECURSIVE CALL 1744 2637 2015 ISZ PDLXR 1745 2640 5775 JMP I (ENDFUN /END AS FUNCTION 1746 1747 2641 1107 ENUM, TAD FLARGP 1748 2642 3025 DCA PT1 /DATA TO FLARG 1749 2643 4504 JMS I FLINTP /GET VALUE 1750 2644 2353 OPNEXT, ISZ EVAL1 1751 2645 5251 JMP .+4 /NO UNARY 1752 2646 7330 L4000 1753 2647 1425 TAD I PT1 1754 2650 3425 DCA I PT1 /FLIP SIGN 1755 2651 3353 DCA EVAL1 1756 2652 4537 SORTC 1757 2653 1400 TERMS-1 1758 2654 5256 JMP ETERMN 1759 2655 3073 DCA SORTCN /ALL ELSE IS END 1760 2656 4573 ETERMN, TSTLPR 1761 2657 7410 SKP 1762 2660 4551 ERR120, ERROR /EXCESS L-PARENS 1763 2661 1073 ETERM, TAD SORTCN 1764 2662 3100 DCA THISOP /SET OP 1765 2663 1100 TAD THISOP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 35-1 1766 2664 1123 TAD M10 1767 2665 7700 SMA CLA 1768 2666 3100 DCA THISOP /END 1769 2667 1100 ETERM2, TAD THISOP 1770 2670 7041 CIA 1771 2671 1101 TAD LASTOP /PRIORITIES 1772 2672 7710 SPA CLA 1773 2673 5323 JMP EPAR /NO GO YET 1774 2674 1101 TAD LASTOP 1775 2675 1374 TAD (OPTABL 1776 2676 3077 DCA CNTR 1777 2677 1477 TAD I CNTR 1778 2700 3307 DCA FLOP /SET OP 1779 2701 1101 TAD LASTOP 1780 2702 7640 SZA CLA 1781 2703 4545 POPF /GET DATA 1782 2704 0070 AC3 1783 2705 4407 FINT 1784 2706 0070 FGET AC3 1785 2707 5773 FLOP, FJMP I (FUPARR /FLOATING OP 1786 2710 7507 FPUT I FLARGP /SAVE DATA 1787 2711 0000 FEXT 1788 2712 1107 TAD FLARGP 1789 2713 3025 DCA PT1 /POINT TO DATA 1790 2714 1100 TAD THISOP 1791 2715 1101 TAD LASTOP 1792 2716 7650 SNA CLA 1793 2717 5366 JMP EVAL3 /DONE 1794 2720 4543 POPA 1795 2721 3101 DCA LASTOP /NEW OP 1796 2722 5267 JMP ETERM2 1797 1798 2723 4573 EPAR, TSTLPR 1799 2724 7410 SKP 1800 2725 5236 JMP EPAR2 /DO RECURSIVE 1801 2726 1101 TAD LASTOP 1802 2727 4540 PUSHA 1803 2730 1025 TAD PT1 1804 2731 3333 DCA .+2 1805 2732 4542 PUSHF /SAVE DATA 1806 2733 0000 0 1807 2734 1100 TAD THISOP 1808 2735 3101 DCA LASTOP 1809 2736 4535 ARGNXT, GETC 1810 2737 4555 TESTC 1811 2740 5234 JMP ELPAR /T 1812 2741 5241 JMP ENUM /N 1813 2742 5344 JMP EVAR /V 1814 2743 5357 JMP ERR110 /OTHER 1815 1816 2744 4541 EVAR, PUSHJ /GET VARIABLE 1817 2745 4400 GETVAR 1818 2746 7440 SZA 1819 2747 5772 JMP I (FUNCT3 /FUNCTION 1820 2750 1107 TAD FLARGP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 35-2 1821 2751 3025 DCA PT1 /POINT TO DATA 1822 2752 5244 JMP OPNEXT 1823 1824 2753 0000 EVAL1, 0 1825 1826 2754 7344 EVAL2, L7776 1827 2755 1073 TAD SORTCN /IS IT + OR -? 1828 2756 7540 SMA SZA 1829 2757 4551 ERR110, ERROR /NO - DOUBLE OPS OR EX L-PARENS 1830 2760 7640 SZA CLA 1831 2761 5336 JMP ARGNXT /WAS + 1832 2762 1353 TAD EVAL1 1833 2763 7040 CMA 1834 2764 3353 DCA EVAL1 /FLIP EVAL1 1835 2765 5336 JMP ARGNXT 1836 1837 2766 4543 EVAL3, POPA 1838 2767 3353 DCA EVAL1 /RESTORE EVAL1 1839 2770 5544 POPJ /EXIT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 36 1840 2772 5017 1841 2773 5065 1842 2774 4171 1843 2775 5034 1844 2776 7300 1845 2777 5610 3000 PAGE 1846 /USER FUNCTION PROCESSING 1847 3000 4540 FUNCT6, PUSHA /SAVE CHARACTER 1848 3001 3077 DCA EFOP 1849 3002 2077 ISZ EFOP 1850 3003 4542 PUSHF /SAVE ARGS 1851 3004 6726 FLARG 1852 3005 4561 TSTCOM 1853 3006 5214 JMP .+6 /NO MORE ARGS 1854 3007 4771 JMS I AECALL /GET NEXT 1855 3010 4543 POPA 1856 3011 2015 ISZ PDLXR 1857 3012 2015 ISZ PDLXR 1858 3013 5201 JMP .-12 1859 1860 3014 1055 TAD LASTV 1861 3015 3024 DCA SUBS /SAVE END OF VARIABLES 1862 3016 1077 TAD EFOP 1863 3017 1374 FUNC10, TAD K2000 1864 3020 3023 DCA ADD /CREATE ILLEGAL NAME 1865 3021 4541 PUSHJ /LOOK IT UP - WILL DEFINE 1866 3022 4435 LOOKUP 1867 3023 4545 POPF 1868 3024 6726 FLARG 1869 3025 4547 FLPUT /SET ARGUMENT 1870 3026 6726 FLARG 1871 3027 7352 L5777 1872 3030 1023 TAD ADD 1873 3031 7440 SZA 1874 3032 5217 JMP FUNC10 /MORE ARGUMENTS 1875 3033 7330 L4000 1876 3034 4543 POPA 1877 3035 7041 CIA 1878 3036 3370 DCA FUNC17 /-CHAR OF FUNCTION 1879 3037 4542 PUSHF 1880 3040 0017 TEXTP 1881 3041 1073 TAD SORTCN 1882 3042 4540 PUSHA 1883 3043 1024 TAD SUBS 1884 3044 4540 PUSHA 1885 3045 7410 SKP 1886 1887 3046 4543 FUNC11, POPA 1888 3047 4564 FIND /FIND A *DEF* 1889 3050 0011 11 /-DEF CODE 1890 3051 4551 ERR170, ERROR /OUT OF TEXT 1891 3052 4540 PUSHA /FOR RESTART 1892 3053 4563 COMMAN /GET WORD 1893 3054 1372 TAD KM5 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 36-1 1894 3055 7640 SZA CLA 1895 3056 5246 JMP FUNC11 1896 3057 1026 TAD CHAR 1897 3060 1370 TAD FUNC17 1898 3061 7640 SZA CLA 1899 3062 5246 JMP FUNC11 /NOT PROPER FUNCTION 1900 3063 2015 ISZ PDLXR 1901 3064 1062 TAD ERLINE 1902 3065 4540 PUSHA /SAVE CALLING LINE 1903 3066 1030 TAD LINENO 1904 3067 3062 DCA ERLINE /CALL THIS OUR LINE 1905 3070 4535 GETC 1906 3071 4537 SORTC 1907 3072 1400 TERMS-1 1908 3073 4573 TSTLPR 1909 3074 4551 ERR180, ERROR /NO L-PAREN 1910 3075 1073 TAD SORTCN 1911 3076 4540 PUSHA 1912 3077 4535 GETC 1913 3100 7332 L2000 1914 3101 3074 DCA T1 1915 3102 1055 TAD LASTV 1916 3103 3025 DCA PT1 /POINT TO ARGUMENTS 1917 3104 4562 FUNC14, TSTALP 1918 3105 5274 JMP ERR180 /ILLEGAL VARIABLE 1919 3106 1026 TAD CHAR 1920 3107 0315 AND C37 1921 3110 4553 RTL6 1922 3111 7010 RAR 1923 3112 3075 DCA T2 /SAVE NAME 1924 3113 4535 GETC 1925 3114 4554 TESTN 1926 3115 0037 C37, 37 1927 3116 5324 JMP FUNC13 /NOT NUMBER 1928 3117 1026 TAD CHAR 1929 3120 0315 AND C37 1930 3121 1075 TAD T2 1931 3122 3075 DCA T2 1932 3123 4535 GETC 1933 3124 2074 FUNC13, ISZ T1 /SET ILLEGAL NAME 1934 3125 4552 UDF 1935 3126 1425 TAD I PT1 1936 3127 7041 CIA 1937 3130 1074 TAD T1 1938 3131 7640 SZA CLA 1939 3132 4551 ERR200, ERROR /WRONG NUMBER OF ARGUMENTS 1940 3133 1075 TAD T2 1941 3134 3425 DCA I PT1 /SET TEMPORARY NAME 1942 3135 6201 CDF 1943 3136 1130 TAD M4 1944 3137 1025 TAD PT1 1945 3140 3025 DCA PT1 /POINT TO NEXT 1946 3141 4561 TSTCOM 1947 3142 5345 JMP FUNC12 /NO MORE 1948 3143 4535 GETC /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 36-2 1949 3144 5304 JMP FUNC14 1950 1951 3145 2074 FUNC12, ISZ T1 1952 3146 4552 UDF 1953 3147 1425 TAD I PT1 1954 3150 6201 CDF 1955 3151 7041 CIA 1956 3152 1074 TAD T1 1957 3153 7650 SNA CLA 1958 3154 5332 JMP ERR200 /SHOULD NOT AGREE 1959 3155 4537 SORTC 1960 3156 1400 TERMS-1 1961 3157 7410 SKP 1962 3160 5274 JMP ERR180 /NO PAREN 1963 3161 7344 L7776 1964 3162 1073 TAD SORTCN 1965 3163 7041 CIA 1966 3164 4543 POPA 1967 3165 7640 SZA CLA 1968 3166 5274 JMP ERR180 /NO MATCH 1969 3167 5773 JMP I AFUN16 1970 1971 3170 0000 FUNC17, 0 /MOVE THIS IF YOU CAN FIND A SAFE TEMP ON PAGE 0 1972 3171 2600 AECALL, ECALL 1973 3172 7773 KM5, -5 1974 3173 4766 AFUN16, FUNC16 1975 3174 2000 K2000, 2000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 37 1976 /*PRINT* COMMAND 1977 3175 4570 FREE2 1978 3176 1111 TAD CCR 1979 3177 4534 PRINTC /PRINT THE CR 1980 3200 7001 PRINT6, IAC /DENOTE END 1981 3201 5544 POPJ /EXIT 1982 1983 3202 4535 PRINT8, GETC /GO BY THE ";" 1984 3203 2025 ISZ PT1 /SHOULD WE SPACE? 1985 3204 5210 JMP PRINT1 /NO 1986 3205 4570 FREE2 1987 3206 1121 TAD C40 1988 3207 4534 PRINTC /PRINT A SPACE 1989 3210 4536 PRINT1, SORTJ /CHECK , " ' CR 1990 3211 7306 PRNTL1-1 1991 3212 2110 PRNTL2-PRNTL1 1992 3213 7340 PRINT4, L7777 1993 3214 4563 COMMAN 1994 3215 7650 SNA CLA 1995 3216 5544 POPJ /MUST BE VALUE 1996 3217 1075 TAD T2 1997 3220 1377 TAD (-LIST14 1998 3221 4540 PUSHA /PUSH A ZERO ON STACK IF CHR$,NONZER IF TAB 1999 3222 4537 SORTC 2000 3223 1400 TERMS-1 2001 3224 4573 TSTLPR 2002 3225 4551 ERR340, ERROR /NO "(" 2003 3226 4776 JMS I (ECALL /GET RECURSIVE 2004 3227 2015 ISZ PDLXR /DUMP EFOP 2005 3230 4632 JMS I .+2 /CALL PARTST 2006 3231 4543 POPA /TAB OR CHR$? 2007 7640 PARTS=SZA CLA 2008 3232 7640 PARTS 2009 3233 5775 JMP I (PRIN12 /GO GET ARG MOD 72 2010 3234 4510 JMS I INTEGE 2011 3235 1374 TAD (-15 /WAS IT CHR$(13)? 2012 3236 7450 SNA /NO- PRINT IT 2013 3237 5250 JMP PRIN11 /YES- TAB(0) TO AVOID THE LINE FEED 2014 3240 1111 TAD CCR /RESET CHARACTER 2015 3241 4540 PUSHA 2016 3242 4570 FREE2 2017 3243 4543 POPA 2018 3244 7450 SNA /AC=0 WILL PRINT CHAR 2019 3245 7330 L4000 2020 3246 4534 PRINTC 2021 3247 5302 JMP PRIN10 2022 2023 2024 2025 3250 7040 PRIN11, CMA 2026 3251 3025 DCA PT1 /SET -COUNT -1 2027 3252 1061 TAD PRNTC1 2028 3253 1373 TAD (110 2029 3254 1025 TAD PT1 2030 3255 7510 SPA /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 37-1 2031 3256 5271 JMP PRINT9 2032 3257 7200 CLA 2033 3260 6002 IOF 2034 3261 1111 TAD CCR 2035 3262 4772 JMS I (XOUTL2 2036 3263 1111 TAD CCR 2037 3264 4772 JMS I (XOUTL2 2038 3265 1371 TAD (-110 2039 3266 3061 DCA PRNTC1 2040 3267 6001 ION 2041 3270 7410 SKP 2042 3271 3025 PRINT9, DCA PT1 2043 3272 2025 ISZ PT1 2044 3273 7410 SKP 2045 3274 5303 JMP PRIN10+1 2046 3275 4570 FREE2 2047 3276 1121 TAD C40 2048 3277 4534 PRINTC 2049 3300 5272 JMP PRINT9+1 2050 2051 3301 7340 L7777 2052 3302 3025 PRIN10, DCA PT1 /SET SPACE INDICATOR 2053 3303 4536 SORTJ /CHECK ; , ' " OR \ 2054 3304 7305 PRNTL4-1 2055 3305 2103 PRNTL6-PRNTL4 2056 3306 2025 ISZ PT1 /NO FIND O.K.? 2057 3307 5213 JMP PRINT4 /YES - ASSUME TAB OR EXPRESSION 2058 3310 4551 ERR350, ERROR /NO - SYNTAX ERROR 2059 2060 3311 2032 PRINT2, ISZ SPACSW /KEEP SPACES 2061 3312 4535 GETC 2062 3313 4536 SORTJ /CHECK = CR 2063 3314 7310 PRNTL7-1 2064 3315 2113 PRNTL8-PRNTL7 2065 3316 4570 FREE2 2066 3317 4534 PRINTC /PRINT THE LITERAL 2067 3320 5312 JMP PRINT2+1 2068 2069 3321 3032 PRINT3, DCA SPACSW 2070 3322 4535 GETC /GO BY THE " 2071 3323 5302 JMP PRIN10 /GO CHECK CHARACTER 2072 2073 3324 4570 FREE2 2074 3325 1121 TAD C40 2075 3326 4534 PRINTC /SPACES TO FINISH ZONE 2076 3327 1112 PRINT5, TAD C7 2077 3330 1061 TAD PRNTC1 2078 3331 1111 TAD CCR 2079 3332 7510 SPA 2080 3333 5331 JMP .-2 2081 3334 7640 SZA CLA 2082 3335 5324 JMP PRINT5-3 /KEEP GOING 2083 3336 4535 GETC /GO BY THE "," 2084 3337 5210 JMP PRINT1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 38 2085 /*PRINTX* ROUTINE 2086 3340 0000 XOUTL, 0 2087 3341 7450 SNA 2088 3342 1026 TAD CHAR /USE CHAR IF AC=0 2089 3343 4772 JMS I (XOUTL2 /DO OUTPUT 2090 3344 1012 TAD XREG3 2091 3345 1374 TAD (-15 /WAS IT A CR 2092 3346 7450 SNA 2093 3347 5361 JMP XOUTL1 /YES! 2094 3350 1370 TAD (215-240 2095 3351 7510 SPA 2096 3352 5365 JMP XOUTL3 /IS IT A NON-PRINTING CHARACTER? 2097 3353 1127 TAD M100 2098 3354 7710 SPA CLA 2099 3355 2061 ISZ PRNTC1 /IT IS A PRINTING CHAR SO COUNT IT 2100 3356 5740 JMP I XOUTL 2101 2102 3357 1111 TAD CCR /END OF LINE SO DO CR-LF 2103 3360 5343 JMP XOUTL+3 2104 2105 3361 1117 XOUTL1, TAD CLF 2106 3362 4772 JMS I (XOUTL2 /OUTPUT A LINE FEED 2107 3363 1371 TAD (-110 2108 3364 3061 DCA PRNTC1 /RESET COUNT 2109 3365 7200 XOUTL3, CLA 2110 3366 5740 JMP I XOUTL /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 39 2111 3370 7755 2112 3371 7670 2113 3372 3400 2114 3373 0110 2115 3374 7763 2116 3375 7551 2117 3376 2600 2118 3377 6512 3400 PAGE 2119 3400 0000 XOUTL2, 0 2120 3401 6201 CDF 2121 3402 3012 DCA XREG3 /SAVE CHAR 2122 3403 1034 TAD OUTPUT 2123 3404 7640 SZA CLA 2124 3405 5264 JMP XOUTL4 /NO ECHO 2125 3406 1051 TAD TELSW /BUSY 2126 3407 7640 SZA CLA 2127 3410 5244 JMP XOUTL5 /YES 2128 3411 1124 TAD C10 2129 3412 0406 AND I TEMP2 2130 3413 7650 SNA CLA 2131 3414 5217 JMP .+3 2132 3415 1266 TAD CPLS /HE HAS PUNCH 2133 3416 5221 JMP .+3 2134 3417 1124 TAD C10 2135 3420 1035 TAD XIOT 2136 3421 3235 DCA XOUTL6 /SET OUTPUT IOT 2137 3422 1036 TAD DECK 2138 3423 7160 CLL CML CMA 2139 3424 3076 DCA T3 2140 3425 7410 SKP 2141 3426 7010 RAR 2142 3427 2076 ISZ T3 2143 3430 5226 JMP .-2 2144 3431 1124 TAD C10 /TURN ON GROUP 1 2145 3432 6117 MTON /TURN ON PROPER USER = 0 IF NOT DCO2(SEE BEG760) 2146 3433 7200 CLA 2147 3434 1012 TAD XREG3 2148 3435 7402 XOUTL6, HLT 2149 3436 3051 DCA TELSW /SET BUSY 2150 3437 1643 TAD I XAUSER /0 IF NOT DC02 2151 3440 6117 MTON /ALL ON AGAIN = 0 IF NOT DC02 2152 3441 7200 CLA 2153 3442 5264 JMP XOUTL4 2154 2155 3443 5363 XAUSER, AUSER 2156 3444 4552 XOUTL5, UDF 2157 3445 1447 TAD I OPTRI /ROOM 2158 3446 7640 SZA CLA 2159 3447 4352 ERR080, JMS IERROR /NO ROOM 2160 3450 4552 UDF 2161 3451 1012 TAD XREG3 2162 3452 3447 DCA I OPTRI /FILL BUFFER 2163 3453 2047 ISZ OPTRI /BUMP BUFFER 2164 3454 1047 TAD OPTRI /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 39-1 2165 3455 7041 CIA 2166 3456 1046 TAD IPTR0 2167 3457 7640 SZA CLA 2168 3460 5264 JMP XOUTL4 /OK 2169 3461 1046 TAD IPTR0 2170 3462 1125 TAD M40 2171 3463 3047 DCA OPTRI /RESET BUFFER 2172 3464 6201 XOUTL4, CDF 2173 3465 5600 JMP I XOUTL2 2174 3466 6026 CPLS, PLS /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 40 2175 /*FINDLN* ROUTINE 2176 3467 0000 XFINDL, 0 2177 3470 1030 TAD LINENO 2178 3471 7710 SPA CLA 2179 3472 5326 JMP XFNDL3 2180 3473 4552 UDF 2181 3474 1057 TAD ALINE0 2182 3475 3031 DCA LASTLN 2183 3476 1057 TAD ALINE0 2184 3477 3027 XFNDL1, DCA LINEPC /CURRENT LINE 2185 3500 1027 TAD LINEPC 2186 3501 3012 DCA XREG3 2187 3502 1030 TAD LINENO 2188 3503 7041 CIA 2189 3504 1412 TAD I XREG3 2190 3505 7450 SNA 2191 3506 5317 JMP XFNDL2-1 /FOUND LINE 2192 3507 7700 SMA CLA 2193 3510 5320 JMP XFNDL2 /WENT BEYOND 2194 3511 1027 TAD LINEPC 2195 3512 3031 DCA LASTLN 2196 3513 1427 TAD I LINEPC 2197 3514 7440 SZA 2198 3515 5277 JMP XFNDL1 /LOOP 2199 3516 7410 SKP /OUT OF TEXT 2200 3517 2267 ISZ XFINDL /FOUND LINE 2201 3520 1027 XFNDL2, TAD LINEPC 2202 3521 7001 IAC 2203 3522 3017 DCA AXOUT /SET TO UNPACK 2204 3523 3021 DCA XCT 2205 3524 6201 CDF 2206 3525 5667 JMP I XFINDL 2207 3526 7340 XFNDL3, L7777 2208 3527 1060 TAD COMBUF 2209 3530 3027 DCA LINEPC 2210 3531 5317 JMP XFNDL2-1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 41 2211 /ERROR ENTERING ROUTINES 2212 3532 0000 XERROR, 0 2213 3533 6002 IOF 2214 3534 7200 CLA 2215 3535 6201 IERRO1, CDF 2216 3536 1113 TAD C177 2217 3537 3352 DCA IERROR 2218 3540 1332 IERRO2, TAD XERROR 2219 3541 7110 CLL RAR /FORM ERROR CODE 2220 3542 3115 DCA LSTMOD 2221 3543 7350 L3777 2222 3544 0406 AND I TEMP2 /CLEAR I WAIT 2223 3545 3406 DCA I TEMP2 2224 3546 1351 TAD PERRORX 2225 3547 3022 DCA PC /SET FOR RESTART 2226 3550 5752 JMP I IERROR 2227 2228 3551 0400 PERRORX, ERRORX 2229 3552 0000 IERROR, 0 2230 3553 7340 L7777 2231 3554 1125 TAD M40 2232 3555 1046 TAD IPTR0 2233 3556 3012 DCA XREG3 2234 3557 1125 TAD M40 2235 3560 3076 DCA T3 /BUFFER COUNT 2236 3561 4552 UDF 2237 3562 3412 DCA I XREG3 /CLEAR BUFFER 2238 3563 2076 ISZ T3 2239 3564 5362 JMP .-2 2240 3565 6201 CDF 2241 3566 1047 TAD OPTRI 2242 3567 3050 DCA OPTRO 2243 3570 1352 TAD IERROR 2244 3571 3332 DCA XERROR 2245 3572 1105 TAD LOOK 2246 3573 7041 CIA 2247 3574 1006 TAD TEMP2 2248 3575 7650 SNA CLA 2249 3576 5335 JMP IERRO1 2250 3577 5340 JMP IERRO2 /NOT RUNNING /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 42 2251 3600 PAGE 2252 /*PACKC* ROUTINE 2253 3600 0000 XPACKC, 0 2254 3601 4536 SORTJ 2255 3602 6767 XPAKL1-1 2256 3603 2444 XPAKL2-XPAKL1 2257 3604 4537 SORTC /CHECK FOR ALTMODE 2258 3605 2145 ALT-1 2259 3606 5270 JMP XPPCK1 /IT IS ALTMODE 2260 3607 1026 TAD CHAR 2261 3610 1125 TAD M40 2262 3611 2024 XPACK4, ISZ XCTIN 2263 3612 5232 JMP XPACK1 /NO PARTIAL 2264 3613 1023 TAD ADD /FORM WORD 2265 3614 4552 UDF 2266 3615 3416 DCA I AXIN /PACK IT 2267 3616 6201 CDF 2268 3617 3023 DCA ADD /RESET PARTIAL JUST TO BE SAFE 2269 3620 1453 TAD I PACKND 2270 3621 1120 TAD M12 2271 3622 7141 CLL CIA 2272 3623 1016 TAD AXIN 2273 3624 7630 SZL CLA 2274 3625 4551 ERR060, ERROR /TOO FAR 2275 3626 5600 XPACK5, JMP I XPACKC 2276 2277 3627 1266 XPACK2, TAD XP37 2278 3630 1121 XPACK3, TAD C40 2279 3631 5211 JMP XPACK4 2280 2281 3632 4553 XPACK1, RTL6 2282 3633 3023 DCA ADD /SAVE PARTIAL 2283 3634 7340 L7777 2284 3635 3024 DCA XCTIN /INDICATE PARTIAL 2285 3636 5600 JMP I XPACKC 2286 2287 3637 2024 XPACK7, ISZ XCTIN /PARTIAL HERE 2288 3640 5245 JMP XPACK8 /NO 2289 3641 3023 XPACK9, DCA ADD 2290 3642 1114 TAD C137 2291 3643 4534 PRINTC /PRINT BACK ARROW 2292 3644 5600 JMP I XPACKC 2293 2294 3645 1052 XPACK8, TAD PACKST 2295 3646 7041 CIA 2296 3647 1016 TAD AXIN 2297 3650 7650 SNA CLA 2298 3651 5600 JMP I XPACKC /ALL GONE ANY HOW 2299 3652 1016 TAD AXIN 2300 3653 3076 DCA T3 2301 3654 7340 L7777 2302 3655 3024 DCA XCTIN /INDICATE PARTIAL 2303 3656 7340 L7777 2304 3657 1016 TAD AXIN 2305 3660 3016 DCA AXIN /PUT IT BACK ONE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 42-1 2306 3661 4552 UDF 2307 3662 1476 TAD I T3 /GET OLD 2308 3663 0127 AND C7700 2309 3664 5241 JMP XPACK9 2310 2311 3665 2152 XPRDY1, READY1 2312 3666 0037 XP37, 37 2313 3667 0044 C44, 44 2314 3670 4542 XPPCK1, PUSHF /SAVE TEXT POINTERS 2315 3671 0017 TEXTP 2316 3672 1200 TAD XPACKC 2317 3673 4540 PUSHA /SAVE ADDRESS IF DISMISSED 2318 3674 4567 FREE13 2319 3675 1267 TAD C44 2320 3676 4534 PRINTC /PRINT "$" 2321 3677 1121 TAD C40 2322 3700 4534 PRINTC 2323 3701 1112 TAD C7 2324 3702 4665 JMS I XPRDY1 2325 3703 4535 GETC /FINISH MESSAGE 2326 3704 4534 PRINTC 2327 3705 4535 GETC 2328 3706 4534 PRINTC 2329 3707 4543 POPA 2330 3710 3200 DCA XPACKC /RESTORE ADDRESS 2331 3711 1052 TAD PACKST 2332 3712 3016 DCA AXIN 2333 3713 4545 POPF 2334 3714 0017 TEXTP 2335 3715 3026 DCA CHAR 2336 3716 5235 JMP XPACK1+3 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 43 2337 /*READC* ROUTINE 2338 3717 0000 XREADC, 0 2339 3720 4552 UDF 2340 3721 6202 CIF /NO INTERRUPTS WHILE MESSING WITH IPTR0 2341 /AND HIS BUFFER - ELSE THE READER DIES 2342 3722 1445 TAD I IPTRO /GET CHAR 2343 3723 3026 DCA CHAR /SET CHARACTER 2344 3724 3445 DCA I IPTRO /CLEAR BUFFER 2345 3725 6201 CDF 2346 3726 1026 TAD CHAR 2347 3727 7650 SNA CLA /WAS THERE A CHARACTER 2348 3730 5371 JMP XREAD1 /NO - WAIT 2349 3731 2045 ISZ IPTRO /BUMP BUFFER 2350 3732 1045 TAD IPTRO 2351 3733 7041 CIA 2352 3734 1121 TAD C40 2353 3735 1046 TAD IPTR0 2354 3736 7640 SZA CLA 2355 3737 5342 JMP .+3 /OK 2356 3740 1046 TAD IPTR0 2357 3741 3045 DCA IPTRO /RESET BUFFER 2358 3742 5717 JMP I XREADC 2359 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 44 2360 3743 7740 IF5, SMA SZA CLA 2361 3744 7710 SPA CLA 2362 3745 7650 SNA CLA 2363 3746 7700 SMA CLA 2364 3747 7750 SPA SNA CLA 2365 3750 7640 SZA CLA 2366 /POP THE AC ROUTINE 2367 3751 0000 XPOPA, 0 2368 3752 4552 UDF 2369 3753 1415 TAD I PDLXR 2370 3754 6201 CDF 2371 3755 5751 JMP I XPOPA 2372 /*TSTLPR* ROUTINE 2373 3756 0000 LPRTST, 0 2374 3757 1073 TAD SORTCN 2375 3760 1126 TAD M6 2376 3761 7710 SPA CLA 2377 3762 5756 JMP I LPRTST /NOT L-PAREN 2378 3763 1073 TAD SORTCN 2379 3764 1123 TAD M10 2380 3765 7710 SPA CLA 2381 3766 2356 ISZ LPRTST /L-PAREN 2382 3767 5756 JMP I LPRTST 2383 3770 0020 XR20, 20 2384 3771 7340 XREAD1, L7777 2385 3772 1317 TAD XREADC 2386 3773 3022 DCA PC /SET TO REDO ROUTINE 2387 3774 1505 TAD I LOOK 2388 3775 0370 AND XR20 2389 3776 7640 SZA CLA 2390 3777 6014 RFC /HE'S GOT THE READER WITH AN EMPTY BUFFER! 2391 4000 1505 TAD I LOOK 2392 4001 4777 JMS I (XOR 2393 4002 4000 4000 /I WAIT AND DISMISS 2394 2395 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 45 2396 /*POPF* ROUTINE 2397 4003 0000 XPOPF, 0 2398 4004 7340 L7777 2399 4005 1603 TAD I XPOPF 2400 4006 3012 DCA XREG3 /POINT TO DATA AREA 2401 4007 7346 L7775 2402 4010 3076 DCA T3 2403 4011 4543 POPA 2404 4012 3412 DCA I XREG3 /MOVE DATA 2405 4013 2076 ISZ T3 2406 4014 5211 JMP .-3 2407 4015 2203 ISZ XPOPF 2408 4016 5603 JMP I XPOPF /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 46 2409 /*TESTN* ROUTINE 2410 4017 0000 XTESTN, 0 2411 4020 1026 TAD CHAR 2412 4021 1237 TAD TH60 2413 4022 3073 DCA SORTCN /SAVE BINARY DIGIT 2414 4023 7326 L0002 2415 4024 1073 TAD SORTCN 2416 4025 7450 SNA 2417 4026 5617 JMP I XTESTN /PERIOD 2418 4027 2217 ISZ XTESTN 2419 4030 1240 TAD TH13 2420 4031 7740 SMA SZA CLA 2421 4032 5617 JMP I XTESTN /GREATER THAN 271 2422 4033 1073 TAD SORTCN 2423 4034 7700 SMA CLA 2424 4035 2217 ISZ XTESTN /DIGIT 2425 4036 5617 JMP I XTESTN 2426 4037 7720 TH60, -60 2427 4040 7765 TH13, -13 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 47 2428 /*GETC* ROUTINE 2429 4041 0000 XGETC, 0 2430 4042 2021 ISZ XCT 2431 4043 5254 JMP XGET1 /NO PARTIAL 2432 4044 1020 TAD GTEM /GET PARTIAL 2433 4045 0122 XGET2, AND C77 /AND OFF JUNK 2434 4046 1121 TAD C40 /CORRECT TO ASCII 2435 4047 3026 DCA CHAR 2436 4050 4536 SORTJ /CHECK SPECIALS 2437 4051 2141 XGETL1-1 2438 4052 7244 XGETL2-XGETL1 2439 4053 5641 JMP I XGETC 2440 2441 2442 4054 4552 XGET1, UDF 2443 4055 1417 TAD I AXOUT /GET NEXT 2444 4056 6201 CDF 2445 4057 3020 DCA GTEM /SAVE PARTIAL 2446 4060 7340 L7777 2447 4061 3021 DCA XCT /INDICATE PARTIAL 2448 4062 1020 TAD GTEM 2449 4063 4553 RTL6 2450 4064 7004 RAL 2451 4065 5245 JMP XGET2 2452 2453 4066 1032 XGET3, TAD SPACSW /SPACE TEST 2454 4067 7640 SZA CLA 2455 4070 5641 JMP I XGETC /KEEP SPACES 2456 4071 5242 JMP XGETC+1 /IGNORE SPACES 2457 2458 4072 1112 XGET4, TAD C7 /BELL 2459 4073 3026 XGET6, DCA CHAR 2460 4074 5641 JMP I XGETC 2461 2462 4075 1111 XGET5, TAD CCR /CR 2463 4076 5273 JMP XGET6 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 48 2464 /*GETNXT* ROUTINE 2465 2466 4077 0000 NXTGET, 0 2467 4100 7610 SKP CLA 2468 4101 4535 GETC 2469 4102 1026 TAD CHAR 2470 4103 1330 TAD MSPLAT 2471 4104 7650 SNA CLA 2472 4105 5322 JMP NXEX 2473 4106 4560 TSTCCR 2474 4107 5301 JMP NXTGET+2 2475 2476 4110 4552 UDF 2477 4111 1427 TAD I LINEPC 2478 4112 7450 SNA 2479 4113 5323 JMP NXEX+1 /OUT OF TEXT 2480 4114 3027 DCA LINEPC 2481 4115 1027 TAD LINEPC 2482 4116 3017 DCA AXOUT 2483 4117 3021 DCA XCT 2484 4120 1417 TAD I AXOUT 2485 4121 3030 DCA LINENO 2486 4122 2277 NXEX, ISZ NXTGET 2487 4123 6201 CDF 2488 4124 5677 JMP I NXTGET /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 49 2489 /*FIND* ROUTINE 2490 4125 0000 XFIND, 0 2491 4126 3030 DCA LINENO 2492 4127 4566 FINDLN 2493 4130 7644 MSPLAT, 200-"\ 2494 4131 4565 XFIND1, GETNXT /GET THE NEXT STATEMENT 2495 4132 5342 JMP XFIND2 /OUT OF TEXT 2496 4133 4535 GETC 2497 4134 4563 COMMAN 2498 4135 1725 TAD I XFIND /CORRECT COMMAND 2499 4136 7640 SZA CLA 2500 4137 5331 JMP XFIND1 /NO - LOOP 2501 4140 2325 ISZ XFIND 2502 4141 1030 TAD LINENO /FOR RESTART 2503 4142 2325 XFIND2, ISZ XFIND 2504 4143 5725 JMP I XFIND 2505 4144 0000 XPRNTC, 0 2506 4145 6002 IOF 2507 4146 4550 PRINTX 2508 4147 6001 ION 2509 4150 5744 JMP I XPRNTC /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 50 2510 4151 4545 POPF 2511 4152 6726 FLARG /DUMP IT WHERE IT WONT HURT 2512 4153 3032 ENDFND, DCA SPACSW 2513 4154 4542 PUSHF 2514 4155 0017 TEXTP 2515 4156 4535 GETC 2516 4157 4572 TSTEND 2517 4160 5356 JMP .-2 2518 4161 4560 TSTCCR 2519 4162 5351 JMP ENDFND-2 2520 4163 4545 POPF 2521 4164 0017 TEXTP 2522 4165 4535 GETC 2523 4166 4563 COMMAN 2524 4167 7001 IAC 2525 4170 5544 POPJ 2526 2527 4171 0425 OPTABL, FGET I PT1 2528 4172 1425 FADD I PT1 2529 4173 2425 FSUB I PT1 2530 4174 3425 FMUL I PT1 2531 4175 4425 FDIV I PT1 2532 4176 5000 FJMP 0 /5775 = FJMP I (FUPARR, ON PG 2600 (SEE BEGMV4) /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 51 2533 4177 6552 4200 PAGE 2534 /CHARACTER TEST ROUTINES 2535 4200 0000 COMTST, 0 2536 4201 1377 TAD (200-", 2537 4202 1026 TAD CHAR 2538 4203 7650 SNA CLA 2539 4204 2200 ISZ COMTST /FOUND IT 2540 4205 5600 JMP I COMTST 2541 2542 4206 0000 CCRTST, 0 2543 4207 1206 TAD CCRTST 2544 4210 3200 DCA COMTST 2545 4211 1376 TAD (200-215 2546 4212 5202 JMP COMTST+2 2547 2548 4213 0000 ENDTST, 0 2549 4214 1375 TAD (200-"\ 2550 4215 1026 TAD CHAR 2551 4216 7450 SNA 2552 4217 2213 ISZ ENDTST 2553 4220 1374 TAD (-"'+"\ 2554 4221 7650 SNA CLA 2555 4222 7001 IAC 2556 4223 1213 TAD ENDTST 2557 4224 5210 JMP CCRTST+2 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 52 2558 4225 0000 ALPTST, 0 2559 4226 1026 TAD CHAR 2560 4227 1373 TAD (200-"A 2561 4230 7710 SPA CLA 2562 4231 5625 JMP I ALPTST /LESS THAN *A* 2563 4232 1026 TAD CHAR 2564 4233 1372 TAD (200-"Z 2565 4234 7750 SPA SNA CLA 2566 4235 2225 ISZ ALPTST /LETTER 2567 4236 5625 JMP I ALPTST /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 53 2568 /*TESTC* ROUTINE 2569 4237 0000 XTESTC, 0 2570 4240 4537 SORTC 2571 4241 1400 TERMS-1 2572 4242 5637 JMP I XTESTC /TERMINATOR 2573 4243 2237 ISZ XTESTC 2574 4244 4554 TESTN 2575 4245 5637 JMP I XTESTC 2576 4246 7410 SKP 2577 4247 5637 JMP I XTESTC 2578 4250 2237 ISZ XTESTC 2579 4251 4562 TSTALP 2580 4252 2237 ISZ XTESTC /OTHER 2581 4253 5637 JMP I XTESTC /LETTER /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 54 2582 /*GOSUB* COMMAND, WORKS FROM MIDDLE OF LINES AND FROM 2583 /IMMEDIATE MODE 2584 2585 4254 4557 GOSUB, GETLN 2586 4255 4572 TSTEND 2587 4256 4551 ERR290, ERROR 2588 4257 7340 GOSUB3, L7777 2589 4260 1017 TAD AXOUT /COUNT BACK 2590 4261 4540 PUSHA 2591 4262 1062 TAD ERLINE 2592 4263 4540 PUSHA /TO RETURN TO 2593 4264 1371 TAD (GOSUB1 2594 4265 4540 PUSHA 2595 4266 5770 JMP I (GOSUB2 2596 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 55 2597 /*ON* COMMAND 2598 2599 4267 4541 ON, PUSHJ 2600 4270 2612 EVAL /GET VALUE 2601 4271 4563 COMMAN 2602 4272 1112 TAD C7 /IS IT GOTO 2603 4273 7450 SNA 2604 4274 5301 JMP .+5 /YES 2605 4275 1367 TAD (4 /HOW ABOUT GOSUB 2606 4276 7640 SZA CLA 2607 4277 4551 ERR300, ERROR /JUNK 2608 4300 7340 L7777 /SIGNIFY GOSUB 2609 4301 3075 DCA T2 2610 4302 4510 JMS I INTEGE 2611 4303 7570 SNA SPA SZL 2612 4304 5333 JMP ON2 /BAD INDEX 2613 4305 7041 CIA 2614 4306 3074 DCA T1 /MAKE COUNT 2615 4307 4557 ON1, GETLN /GET A LINE 2616 4310 2074 ISZ T1 2617 4311 5314 JMP .+3 /NOT THIS ONE 2618 4312 1030 TAD LINENO 2619 4313 4540 PUSHA /SAVE FOR LATER 2620 4314 4561 TSTCOM 2621 4315 5320 JMP .+3 /NOT COMMA--TRY FOR END 2622 4316 4535 GETC 2623 4317 5307 JMP ON1 /LOOK AT NEXT 2624 4320 4572 TSTEND 2625 4321 5277 JMP ERR300 /JUNK 2626 4322 1074 TAD T1 2627 4323 7710 SPA CLA 2628 4324 5333 JMP ON2 /IT AINT THERE 2629 4325 4543 POPA 2630 4326 3030 DCA LINENO 2631 4327 1030 TAD LINENO 2632 4330 2075 ISZ T2 /WHICH COMMAND? 2633 4331 5544 POPJ /JUST GOTO--TRANSFER TO IT 2634 4332 5257 JMP GOSUB3 2635 4333 1062 ON2, TAD ERLINE 2636 4334 3030 DCA LINENO 2637 4335 5544 POPJ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 56 2638 4336 4407 INT, FINT 2639 4337 6110 FSLT 2640 4340 5351 FJMP FFIX+1 /POSITIVE--GREATEST INT(X)=FIX(X) 2641 4341 7766 FPUT I (TEMP 2642 4342 1357 FADD FCN /INTEGERIZE IT ALREADY 2643 4343 6766 FCMP I (TEMP 2644 4344 6050 FSEQ 2645 4345 2354 FSUB FLTONE /NOT AN INT, AND NEG--GOTTA SUBTRACT 1 2646 4346 1766 FADD I (TEMP 2647 4347 6000 FSKP 2648 4350 4407 FFIX, FINT 2649 4351 1357 FADD FCN /DOUBLE CHECK ON INT FUNCTION ALSO 2650 4352 0000 FEXT 2651 4353 5544 POPJ 2652 2653 2654 4354 2014 FLTONE, 2014 2655 4355 0000 0 2656 4356 0000 0 2657 4357 2330 FCN, 2330 2658 4360 0000 0 2659 4361 0000 0 2660 2661 2662 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 57 2663 /CHECK FOR IMMEDIATE MODE ON UNRECOGNIZED COMMAND--"WHAT?" 2664 /OR "ERROR 47" 2665 /NOTE THAT THIS MUST BE AN EVEN ADDRESS OR WE DON'T HAVE 2666 /UNIQUENESS ON ERRORS!!!!!!! (SEE INIT CODE AS TO WHY) 2667 IFNZRO .&1 <:"#%&'IDIOT!> 2668 4362 1062 ERRCHK, TAD ERLINE 2669 4363 7740 SMA SZA CLA 2670 4364 4551 ERR520, ERROR 2671 4365 4551 ERR000, ERROR /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 58 2672 4366 6731 2673 4367 0004 2674 4370 2536 2675 4371 2461 2676 4372 7646 2677 4373 7677 2678 4374 0065 2679 4375 7644 2680 4376 7763 2681 4377 7724 4400 PAGE 2682 /GET A VARIABLE OR FUNCTION ROUTINE 2683 /EXIT WITH AC NON-ZERO IF FUNCTION 2684 /AC IS LIST POINTER UNLESS 2685 /AC IS NEGATIVE, THEN AC IS CHAR FOR USER FUNCTION 2686 4400 4562 GETVAR, TSTALP 2687 4401 4551 ERR220, ERROR /MUST BE LETTER 2688 4402 1026 TAD CHAR 2689 4403 0223 AND P37 2690 4404 4553 RTL6 2691 4405 7010 RAR 2692 4406 3023 DCA ADD /SAVE FOR NAME 2693 4407 4535 GETC 2694 4410 4555 TESTC 2695 4411 5330 JMP SUBT /T - TEST FOR SUBSCRIPT 2696 4412 5222 JMP P37-1 /N - ADD TO NAME 2697 4413 5726 JMP I FUNCTI /TRY FOR FUNCTION 2698 4414 1026 TAD CHAR 2699 4415 1325 TAD MDOLR 2700 4416 7640 SZA CLA 2701 4417 5235 JMP LOOKUP /0 - VARIABLE LOOKUP 2702 4420 2031 ISZ MODE 2703 4421 5225 JMP P37+2 2704 4422 4554 TESTN 2705 4423 0037 P37, 37 2706 4424 5235 JMP LOOKUP /WAS A . 2707 4425 1026 TAD CHAR 2708 4426 0223 AND P37 2709 4427 1023 TAD ADD 2710 4430 3023 DCA ADD /NEW NAME 2711 4431 4535 GETC 2712 4432 4537 SORTC 2713 4433 1400 TERMS-1 2714 4434 5330 JMP SUBT 2715 4435 4552 LOOKUP, UDF 2716 4436 1055 TAD LASTV 2717 4437 3025 GS1, DCA PT1 /POINT TO VARIABLES 2718 4440 1054 TAD STARTV 2719 4441 7041 CIA 2720 4442 1025 TAD PT1 2721 4443 7650 SNA CLA 2722 4444 5265 JMP GS2 /NOT FOUND AT ALL 2723 4445 1425 TAD I PT1 /GET NAME 2724 4446 7141 CLL CIA 2725 4447 1023 TAD ADD /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 58-1 2726 4450 7450 SNA 2727 4451 5376 JMP GFND1 /FOUND NAME 2728 4452 7420 SNL 2729 4453 7041 CIA /POSITIVE DIFFERENCE 2730 4454 7106 CLL RTL /AC WILL BE 0 IF DIFFERENCE WAS 2000 2731 4455 7650 SNA CLA 2732 4456 4551 ERR130, ERROR /ERROR - A(I) AND A(I,I) CANNOT EXIST TOGETHER 2733 4457 1425 TAD I PT1 2734 4460 7710 SPA CLA 2735 4461 7340 L7777 /BACK 1 FOR SUBSCRIPT 2736 4462 1130 GS4, TAD M4 2737 4463 1025 TAD PT1 2738 4464 5237 JMP GS1 /LOOP 2739 2740 4465 1112 GS2, TAD C7 2741 4466 1055 TAD LASTV /ROOM LEFT 2742 4467 7141 CLL CIA 2743 4470 1015 TAD PDLXR 2744 4471 7630 SZL CLA 2745 4472 5276 JMP .+4 2746 4473 1054 TAD STARTV 2747 4474 3055 DCA LASTV /KILL EM-OVFLOW 2748 4475 4551 ERR100, ERROR /NO ROOM 2749 4476 1132 TAD C4 2750 4477 1055 TAD LASTV 2751 4500 3025 DCA PT1 /POINT TO NEW SPACE 2752 4501 1023 TAD ADD 2753 4502 7700 SMA CLA 2754 4503 5307 JMP GPUT1 2755 4504 1024 TAD SUBS 2756 4505 3425 DCA I PT1 /SET SUBSCRIPT 2757 4506 2025 ISZ PT1 2758 4507 1023 GPUT1, TAD ADD 2759 4510 3425 DCA I PT1 /SET NAME 2760 4511 6201 CDF 2761 4512 1025 TAD PT1 2762 4513 4540 PUSHA 2763 4514 7301 L0001 2764 4515 1055 TAD LASTV 2765 4516 3025 DCA PT1 /POINT TO NEW DATA SPACE 2766 4517 4543 POPA 2767 4520 3055 DCA LASTV /NEW LIMIT 2768 4521 4547 FLPUT /SET TO 0 2769 4522 7300 FLZERO 2770 4523 5724 JMP I GS5I 2771 2772 4524 4615 GS5I, GS5 2773 4525 7734 MDOLR, -44 2774 4526 4620 FUNCTI, FUNCT 2775 4527 2600 ECALLI, ECALL 2776 2777 4530 4573 SUBT, TSTLPR 2778 4531 5235 JMP LOOKUP /NOT SUBSCRIPTED 2779 4532 1023 TAD ADD 2780 4533 3077 DCA EFOP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 58-2 2781 4534 4727 JMS I ECALLI /GET SUBSCRIPT 2782 4535 7330 L4000 2783 4536 4543 POPA 2784 4537 3023 DCA ADD /SAVE NAME 2785 4540 4510 JMS I INTEGE 2786 4541 7530 SPA SZL 2787 4542 4551 SUB1, ERROR /TOO BIG OR NEGATIVE 2788 4542 ERR230=SUB1 2789 4543 3024 DCA SUBS /SET SUBSCRIPT 2790 4544 4561 TSTCOM 2791 4545 5374 JMP SUB2 /ONLY ONE SUBSCRIPT 2792 4546 4542 PUSHF /SAVE ADD,SUBS 2793 4547 0023 ADD 2794 4550 4541 PUSHJ /GET SECOND SUBSCRIPT 2795 4551 2611 EVAL-1 2796 4552 4545 POPF 2797 4553 0023 ADD 2798 4554 4510 JMS I INTEGE 2799 4555 0127 AND C7700 2800 4556 7010 RAR 2801 4557 7640 PARTS1, SZA CLA 2802 4560 5342 JMP SUB1 /TOO BIG 2803 4561 1024 TAD SUBS 2804 4562 0127 AND C7700 2805 4563 7640 SZA CLA 2806 4564 5342 JMP SUB1 /TOO BIG 2807 4565 1024 TAD SUBS 2808 4566 4553 RTL6 2809 4567 1070 TAD AC3 /FORM DOUBLE SUBSCRIPT 2810 4570 3024 DCA SUBS 2811 4571 7332 L2000 2812 4572 1023 TAD ADD 2813 4573 3023 DCA ADD /INDICATE 2 SUBSCRIPTS 2814 4574 4757 SUB2, JMS I PARTS1 /CHECK PAREN MATCH 2815 4575 5235 JMP LOOKUP 2816 2817 2818 4576 1023 GFND1, TAD ADD 2819 4577 7700 SMA CLA 2820 4600 5211 JMP GFND2 /NO SUBSCRIPT 2821 4601 7340 L7777 2822 4602 1025 TAD PT1 2823 4603 3025 DCA PT1 2824 4604 1425 TAD I PT1 /GET SUBSCRIPT 2825 4605 7041 CIA 2826 4606 1024 TAD SUBS 2827 4607 7640 SZA CLA 2828 4610 5672 JMP I PGS4 /WRONG SUBSCRIPT 2829 4611 6201 GFND2, CDF 2830 4612 7346 L7775 2831 4613 1025 TAD PT1 2832 4614 3025 DCA PT1 /POINT TO DATA 2833 4615 4546 GS5, FLGET /GET VARIABLE 2834 4616 6726 FLARG 2835 4617 5544 POPJ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 59 2836 4620 1026 FUNCT, TAD CHAR 2837 4621 0264 AND F37 2838 4622 1023 TAD ADD 2839 4623 4537 SORTC 2840 4624 7527 FUNL1-1 2841 4625 7410 SKP 2842 4626 5673 JMP I LLOOKUP /NOT A FUNCTION 2843 4627 1073 TAD SORTCN 2844 4630 7650 SNA CLA 2845 4631 5275 JMP FUNCT4 /USER FUNCTION 2846 4632 4542 PUSHF 2847 4633 0017 TEXTP 2848 4634 1026 TAD CHAR 2849 4635 4540 PUSHA 2850 4636 4535 GETC 2851 4637 1026 TAD CHAR 2852 4640 3025 DCA PT1 2853 4641 4543 POPA 2854 4642 3026 DCA CHAR 2855 4643 4545 POPF 2856 4644 0017 TEXTP 2857 4645 1073 TAD SORTCN 2858 4646 1274 TAD LFUNL2 2859 4647 3076 DCA T3 2860 4650 6211 CDF SWAP 2861 4651 1476 TAD I T3 /GET CORRECT CODE 2862 4652 6201 CDF 2863 4653 1025 TAD PT1 2864 4654 7640 SZA CLA 2865 4655 5673 JMP I LLOOKUP /WAS NOT A FUNCTION 2866 4656 1073 TAD SORTCN 2867 4657 4540 PUSHA /SAVE CONSTANT 2868 4660 4535 GETC 2869 4661 4535 FUNCT5, GETC 2870 4662 4537 SORTC 2871 4663 1400 TERMS-1 2872 4664 0037 F37, 37 2873 4665 4573 TSTLPR 2874 4666 4551 ERR240, ERROR /NO L-PAREN 2875 4667 4543 POPA 2876 4670 7001 IAC /FUNCTION CODE 2877 4671 5544 POPJ 2878 2879 4672 4462 PGS4, GS4 2880 4673 4435 LLOOKUP, LOOKUP 2881 4674 1440 LFUNL2, FUNL2-1 2882 4675 4535 FUNCT4, GETC 2883 4676 4562 TSTALP 2884 4677 4551 ERR250, ERROR /NOT LETTER 2885 4700 7350 L3777 2886 4701 1026 TAD CHAR 2887 4702 4540 PUSHA /SAVE CHAR OF USER FUNCTION 2888 4703 5261 JMP FUNCT5 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 60 2889 /*SORTC* ROUTINE 2890 4704 0000 XSORTC, 0 2891 4705 7450 SNA 2892 4706 1026 TAD CHAR /USE CHAR IF AC IS 0 2893 4707 7041 CIA 2894 4710 3076 DCA T3 2895 4711 1704 TAD I XSORTC 2896 4712 3012 DCA XREG3 /SET TO LIST 2897 4713 0000 CSORTC, 0 2898 4714 1412 TAD I XREG3 2899 4715 6201 CDF 2900 4716 7510 SPA 2901 4717 5330 JMP XSORT3 /END OF LIST 2902 4720 1076 TAD T3 2903 4721 7640 SZA CLA 2904 4722 5313 JMP CSORTC /NO GO - LOOP 2905 4723 1704 TAD I XSORTC 2906 4724 7040 CMA 2907 4725 1012 TAD XREG3 2908 4726 3073 DCA SORTCN /SET CONSTANT 2909 4727 7410 SKP 2910 4730 2304 XSORT3, ISZ XSORTC 2911 4731 2304 ISZ XSORTC 2912 4732 7300 CLL CLA 2913 4733 3313 DCA CSORTC 2914 4734 5704 JMP I XSORTC /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 61 2915 /*SORTJ* ROUTINE 2916 4735 0000 XSORTJ, 0 2917 4736 7450 SNA 2918 4737 1026 TAD CHAR /USE CHAR IF AC IS 0 2919 4740 7041 CIA 2920 4741 3076 DCA T3 2921 4742 1735 TAD I XSORTJ 2922 4743 3012 DCA XREG3 /SET TO LIST 2923 4744 2335 ISZ XSORTJ 2924 4745 1412 TAD I XREG3 2925 4746 7510 SPA 2926 4747 5362 JMP XSORT1 /END OF LIST 2927 4750 1076 TAD T3 2928 4751 7640 SZA CLA 2929 4752 5345 JMP .-5 /NO GO - LOOP 2930 4753 1012 TAD XREG3 2931 4754 1735 TAD I XSORTJ 2932 4755 3335 DCA XSORTJ 2933 4756 6211 CDF SWAP 2934 4757 1735 TAD I XSORTJ /GET ADDRESS 2935 4760 6201 CDF 2936 4761 3335 DCA XSORTJ 2937 4762 7300 XSORT1, CLL CLA 2938 4763 2335 ISZ XSORTJ 2939 4764 5735 JMP I XSORTJ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 62 2940 4765 7703 VMEQL, 200-"= 2941 4766 4535 FUNC16, GETC 2942 4767 1026 TAD CHAR 2943 4770 1365 TAD VMEQL 2944 4771 7640 SZA CLA 2945 4772 4551 ERR210, ERROR 2946 4773 4541 PUSHJ 2947 4774 2611 EVAL-1 2948 4775 4572 TSTEND 2949 4776 5372 JMP .-4 2950 4777 4543 POPA 2951 5000 3062 DCA ERLINE 2952 5001 1062 TAD ERLINE 2953 5002 3030 DCA LINENO 2954 5003 4566 FINDLN 2955 5004 2600 IECALL, ECALL 2956 5005 4543 POPA 2957 5006 3055 DCA LASTV 2958 5007 4543 POPA 2959 5010 3073 DCA SORTCN 2960 5011 4545 POPF 2961 5012 0017 TEXTP 2962 5013 3031 DCA MODE 2963 5014 5234 JMP ENDFUN /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 63 2964 5015 3000 FUNC6I, FUNCT6 2965 5016 1520 FUNL3I, FUNL3-2 2966 5017 3077 FUNCT3, DCA EFOP 2967 5020 4604 JMS I IECALL 2968 5021 4543 POPA 2969 5022 7510 SPA 2970 5023 5615 JMP I FUNC6I 2971 5024 1216 TAD FUNL3I 2972 5025 3077 DCA EFOP 2973 5026 6211 CDF SWAP 2974 5027 1477 TAD I EFOP 2975 5030 6201 CDF 2976 5031 3233 DCA .+2 2977 5032 4541 PUSHJ 2978 5033 0000 0 2979 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 64 2980 /END OF A FUNCTION 2981 5034 4407 ENDFUN, FINT 2982 5035 6010 FNOR /NORMALIZE IT 2983 5036 7507 FPUT I FLARGP /SAVE DATA 2984 5037 0000 FEXT 2985 5040 1107 ENDF1, TAD FLARGP 2986 5041 3025 DCA PT1 /POINT TO DATA 2987 5042 3032 DCA SPACSW 2988 5043 4645 JMS I .+2 2989 5044 5646 JMP I .+2 2990 5045 7640 PARTST 2991 5046 2644 OPNEXT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 65 2992 /*SGN* FUNCTION 2993 5047 4407 SGN, FINT 2994 5050 6100 FSGE 2995 5051 0262 FGET MNSONE 2996 5052 6150 FSLE 2997 5053 0660 FGET I VFLTONE 2998 5054 0000 FEXT 2999 5055 5544 POPJ 3000 3001 5056 4357 VFCN, FCN 3002 5057 6731 VTEMP, TEMP 3003 5060 4354 VFLTONE, FLTONE 3004 5061 6562 VFUPAR1, FUPAR1 3005 5062 6014 MNSONE, 6014 3006 5063 0000 0 3007 5064 0000 0 3008 5065 7657 FUPARR, FPUT I VTEMP 3009 5066 0425 FGET I PT1 3010 5067 1656 FADD I VFCN 3011 5070 6425 FCMP I PT1 3012 5071 6050 FSEQ 3013 5072 5330 FJMP EXPLNG 3014 5073 0425 FGET I PT1 3015 5074 6100 FSGE 3016 5075 3262 FMUL MNSONE 3017 5076 2661 FSUB I VFUPAR1 3018 5077 6150 FSLE 3019 5100 5330 FJMP EXPLNG 3020 5101 0425 FGET I PT1 3021 5102 6110 FSLT 3022 5103 5310 FJMP .+5 3023 5104 0660 FGET I VFLTONE 3024 5105 4657 FDIV I VTEMP 3025 5106 7657 FPUT I VTEMP 3026 5107 0425 FGET I PT1 3027 5110 0000 FEXT 3028 5111 4510 JMS I INTEGE 3029 5112 7510 SPA 3030 5113 7041 CIA 3031 5114 7040 CMA 3032 5115 3344 DCA FUPAR2 3033 5116 4407 FINT 3034 5117 0660 FGET I VFLTONE 3035 5120 0000 FEXT 3036 5121 5325 JMP .+4 3037 3038 5122 4407 FINT 3039 5123 3657 FMUL I VTEMP 3040 5124 0000 FEXT 3041 5125 2344 ISZ FUPAR2 3042 5126 5322 JMP .-4 3043 5127 5341 JMP FUPAR3 3044 3045 3046 5130 0657 EXPLNG, FGET I VTEMP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 65-1 3047 5131 0000 FEXT 3048 5132 4541 PUSHJ 3049 5133 7314 LOG 3050 5134 4407 FINT 3051 5135 3425 FMUL I PT1 3052 5136 0000 FEXT 3053 5137 4541 PUSHJ 3054 5140 7200 FEXP 3055 5141 4407 FUPAR3, FINT 3056 5142 5743 FJMP I VFLOP 3057 5143 2710 VFLOP, FLOP+1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 66 3058 5144 0000 FUPAR2, 0 /JUST A TEMP 3059 5145 0000 XFLGET, 0 3060 5146 7440 SZA 3061 5147 5352 JMP XFLGT2 3062 5150 7340 L7777 3063 5151 1025 TAD PT1 3064 5152 3013 XFLGT2, DCA FLTXR 3065 5153 7340 L7777 3066 5154 1745 TAD I XFLGET 3067 5155 3014 DCA FLTXR2 3068 5156 7346 L7775 3069 5157 3076 DCA T3 3070 5160 4552 UDF 3071 5161 1413 TAD I FLTXR /MOVE FLOATING DATUM DOWN 3072 5162 6201 CDF 3073 5163 3414 DCA I FLTXR2 3074 5164 2076 ISZ T3 3075 5165 5360 JMP .-5 3076 5166 2345 ISZ XFLGET 3077 5167 5745 JMP I XFLGET 3078 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 67 3079 5170 6046 INTRPL, TLS /USER 0 TLS IOT = INIT BEG750 3080 5171 6126 MTLS /USER 1 TLS IOT 3081 5172 6126 MTLS /USER 2 3082 5173 6126 MTLS /USER 3 3083 5174 6126 MTLS /USER 4 3084 5175 6126 MTLS /USER 5 3085 5176 6126 MTLS /USER 6 3086 5177 6126 MTLS /USER 7 3087 5200 6212 INTR8E, CIF SWAP /FOR POWER FAIL RECOVERY 3088 5201 5602 JMP I .+1 3089 5202 1354 INTR81 3090 3091 5203 3353 INTRPT, DCA SAVAC /SAVE THE AC 3092 5204 7010 RAR 3093 5205 3354 DCA SAVLK /AND THE LINK 3094 5206 1076 TAD T3 3095 5207 3355 DCA T3SV /SAVE T3 3096 5210 1012 TAD XREG3 3097 5211 3356 DCA XREG3S /SAVE XREG3 3098 5212 1073 TAD SORTCN 3099 5213 3357 DCA SRTCNS /SAVE SORTCN 3100 5214 1552 TAD I AUDF 3101 5215 3360 DCA UDFSV /SAVE UDF ADDRESS 3102 5216 1537 TAD I ASORTC 3103 5217 3364 DCA SORTCS /SAVE SORTC ADDRESS 3104 5220 1777 TAD I (CSORTC /SAVE SORTC FIELD OP 3105 5221 3351 DCA SC2SV 3106 5222 3777 DCA I (CSORTC /NOW FIELD 0 3107 5223 1776 TAD I (XFREE 3108 5224 3361 DCA FREESV /SAVE XFREE ADDRESS 3109 5225 3003 DCA USER /START AT USER 0 3110 5226 6011 RSF 3111 5227 5241 JMP PUNCHK 3112 5230 6012 RRB /MAKE SURE TO CLEAR IT 3113 5231 3005 DCA TEMP1 3114 5232 4775 JMS I (RCHK 3115 5233 5241 JMP PUNCHK 3116 5234 4774 JMS I (DECKON /PUT HIM ONDECK 3117 5235 1373 TAD (EXIT /DON'T GO THROUGH THE REST OF THIS GARBAGE 300 TIMES/SEC! 3118 5236 3772 DCA I (KEY 3119 5237 1005 TAD TEMP1 /GET THAT CHAR 3120 5240 5742 JMP I PKEYMK /GO DO IT 3121 5241 6021 PUNCHK, PSF /IS IT THE PUNCH? 3122 5242 5247 JMP NONP /NOPE, 3123 5243 6022 PCF 3124 5244 4771 JMS I (PUNCH /ANYONE GOT IT? 3125 5245 5314 JMP EXIT /NOPE 3126 5246 4770 JMS I (TTY /FOOL THE TTY ROUTINE 3127 5247 3005 NONP, DCA TEMP1 /NO TTY'S TO TURN ON AT FIRST 3128 5250 1367 TAD ( INTRPL 3129 5251 3352 DCA INTRPP /SET LIST POINTER 3130 5252 1752 INTRP1,TAD I INTRPP /GET TLS IOT 3131 5253 1130 TAD M4 3132 5254 3302 DCA INTRP4 /TCF 3133 5255 7340 L7777 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 67-1 3134 5256 1302 TAD INTRP4 3135 5257 3300 DCA INTRP3 /TSF 3136 5260 1123 TAD M10 3137 5261 1300 TAD INTRP3 3138 5262 3266 DCA INTRP2 /KSF 3139 5263 1005 TAD TEMP1 3140 5264 6117 MTON /TURN ON PROPER USER = 0 IF NOT DC02(SEE BEG760) 3141 5265 7200 CLA 3142 5266 7402 INTRP2, HLT /KEY? 3143 5267 7610 SKP CLA /NO 3144 5270 4772 JMS I (KEY /READ TTY 3145 5271 1005 TAD TEMP1 3146 5272 6117 MTON /USER ON AGAIN = 0 IF NOT DC02 3147 5273 7110 CLL RAR /SHIFT FOR NEXT USER 3148 5274 7450 SNA /FIRST TIME? 3149 5275 1366 TAD (4004 /YES = GET TTY #1 BIT 3150 5276 1132 TAD C4 3151 5277 3005 DCA TEMP1 3152 5300 7402 INTRP3, HLT /TTY? 3153 5301 5304 JMP .+3 /NO 3154 5302 7402 INTRP4, HLT /CLEAR ITS FLAG 3155 5303 4770 JMS I (TTY /DO TTY OUTPUT 3156 5304 2003 ISZ USER /NEXT USER PLEASE 3157 5305 2352 ISZ INTRPP /BUMP LIST POINTER 3158 5306 1003 TAD USER 3159 5307 1362 TAD MUSER /ARE WE DONE? 3160 5310 7640 SZA CLA 3161 5311 5252 JMP INTRP1 /NO 3162 5312 1363 INTRP5, TAD AUSER /0 IF NOT DC02 3163 5313 6117 MTON /TURN ALL USERS ON AGAIN = 0 IF NOT DC02 3164 5314 7200 EXIT, CLA 3165 5315 1505 TAD I LOOK /GET RUNNING USER 3166 5316 7004 RAL 3167 5317 7730 SPA SZL CLA 3168 5320 5323 JMP .+3 3169 5321 1505 TAD I LOOK 3170 5322 4774 JMS I (DECKON /PUT HIM ONDECK 3171 5323 1355 TAD T3SV 3172 5324 3076 DCA T3 /RESTORE ALL THOS STORED THINGS 3173 5325 1356 TAD XREG3S 3174 5326 3012 DCA XREG3 3175 5327 1357 TAD SRTCNS 3176 5330 3073 DCA SORTCN 3177 5331 1351 TAD SC2SV 3178 5332 3777 DCA I (CSORTC /MAKE SURE TO RESTORE SORTC FIELD OP 3179 5333 1360 TAD UDFSV 3180 5334 3552 DCA I AUDF 3181 5335 1364 TAD SORTCS 3182 5336 3537 DCA I ASORTC 3183 5337 1361 TAD FREESV 3184 5340 3776 DCA I (XFREE 3185 5341 2765 ISZ I (INTCNT /COUNT INTERRUPTS 3186 5342 0606 PKEYMK, KEYMSK 3187 /IF PDP 8E, AND NOT DC02 - ASSUME KL8E, NEXT THREE WORDS ARE: 3188 / CIF SWAP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 67-2 3189 / JMP I .+1 3190 / KL8FIX1 3191 /SEE BEG002 AND BEG540 FOR DETAILS. 3192 5343 1354 KL8JMP, TAD SAVLK /GET THE LINK BACK 3193 5344 7104 CLL RAL 3194 5345 1353 TAD SAVAC /AND THE AC ALSO 3195 5346 6244 KL8LFL, RMF 3196 5347 6001 ION 3197 5350 5400 JMP I 0 /EXIT FROM INTERRUPT 3198 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 68 3199 5351 0000 SC2SV, 0 3200 5352 5170 INTRPP, INTRPL 3201 5353 0000 SAVAC, 0 3202 5354 0000 SAVLK, 0 3203 5355 0000 T3SV, 0 3204 5356 0000 XREG3S, 0 3205 5357 0000 SRTCNS, 0 3206 5360 0000 UDFSV, 0 3207 5361 0000 FREESV, 0 3208 3209 5362 7777 MUSER, -1 /-1 FOR 1 USER, -2 FOR 2, ETC. 3210 5363 0000 AUSER, 0 /SET TO 0 IN BEG750 3211 5364 0000 SORTCS, 0 3212 5365 6365 3213 5366 4004 3214 5367 5170 3215 5370 1300 3216 5371 7606 3217 5372 0600 3218 5373 5314 3219 5374 0305 3220 5375 7601 3221 5376 5514 3222 5377 4713 5400 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 69 3223 /CALL TO FP INTERPRETER IN FIELD 1 3224 5400 0000 ZFPNT, 0 3225 5401 7200 CLA /MAY NOT BE NEEDED, BUT JUST TO BE SAFE 3226 5402 6213 CIF CDF SWAP 3227 5403 1200 TAD ZFPNT /GET RETURN ADDRESS 3228 5404 3607 DCA I .+3 /PASS IT ALONG 3229 5405 6201 CDF /INTERPRETER EXECUTES IN DATA FIELD 0 3230 5406 5746 JMP I FPENT /ENTER 3231 5407 0200 FPNT 3232 3233 /ENTRY TO FIELD 1 SUBROUTINE CALLER 3234 5410 0000 F1CALL, 0 3235 5411 6213 CIF CDF SWAP 3236 5412 5613 JMP I .+1 3237 5413 0120 F1CAL1 3238 3239 /*MOD* FUNCTION 3240 5414 4542 MOD, PUSHF 3241 5415 6726 FLARG 3242 5416 4561 TSTCOM 3243 5417 5777 JMP I (ERR560 3244 5420 4541 PUSHJ 3245 5421 2611 EVAL-1 3246 5422 4545 POPF 3247 5423 1376 PIF1, IF1 3248 5424 4407 MOD1, FINT 3249 5425 0623 FGET I PIF1 3250 5426 4507 FDIV I FLARGP 3251 5427 1776 FADD I (FCN 3252 5430 3507 FMUL I FLARGP 3253 5431 7775 FPUT I (TEMP 3254 5432 0623 FGET I PIF1 3255 5433 2775 FSUB I (TEMP 3256 5434 0000 FEXT 3257 5435 5544 POPJ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 70 3258 5436 1026 PRNTEX, TAD CHAR 3259 5437 4540 PUSHA 3260 5440 4542 PUSHF 3261 5441 0017 TEXTP 3262 5442 4542 PUSHF 3263 5443 6726 FLARG 3264 5444 1015 TAD PDLXR 3265 5445 3017 DCA AXOUT /SET UP UNPACKING FROM STACK 3266 5446 3021 DCA XCT 3267 5447 1126 TAD M6 3268 5450 3031 DCA MODE 3269 5451 2032 ISZ SPACSW 3270 5452 4535 PRNTX1, GETC 3271 5453 4560 TSTCCR 3272 5454 7410 SKP 3273 5455 5261 JMP .+4 3274 5456 4534 PRINTC 3275 5457 2031 ISZ MODE 3276 5460 5252 JMP PRNTX1 3277 5461 4545 POPF 3278 5462 6726 FLARG 3279 5463 4545 POPF 3280 5464 0017 TEXTP 3281 5465 4543 POPA 3282 5466 3026 DCA CHAR 3283 5467 3031 DCA MODE /IN CASE OF A STRING LESS THAN 6 3284 5470 3032 DCA SPACSW /IGNORE SPACES AGAIN 3285 5471 4541 PRINT, PUSHJ 3286 5472 3302 PRIN10 3287 5473 7640 SZA CLA 3288 5474 5544 POPJ /ALL DONE 3289 5475 4567 FREE13 3290 5476 4541 PUSHJ 3291 5477 2612 EVAL /GET EXPR. 3292 5500 1031 TAD MODE 3293 5501 7640 SZA CLA 3294 5502 5236 JMP PRNTEX 3295 5503 1061 TAD PRNTC1 3296 5504 1374 TAD (16 3297 5505 7710 SPA CLA 3298 5506 5311 JMP .+3 /IT WILL FIT 3299 5507 1111 TAD CCR /MAKE IT FIT 3300 5510 4534 PRINTC 3301 5511 4503 JMS I FLOUTP 3302 5512 7340 PRNTX2, L7777 3303 5513 5271 JMP PRINT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 71 3304 /*FREE* ROUTINE 3305 5514 0000 XFREE, 0 3306 5515 4552 UDF 3307 5516 1447 TAD I OPTRI /ANY ROOM 3308 5517 6201 CDF 3309 5520 7640 SZA CLA 3310 5521 5714 JMP I XFREE /NO 3311 5522 1047 TAD OPTRI 3312 5523 7041 CIA 3313 5524 1050 TAD OPTRO 3314 5525 7550 SPA SNA 3315 5526 1121 TAD C40 3316 5527 7041 CIA /-COUNT 3317 5530 7001 IAC 3318 5531 7450 SNA 3319 5532 5714 JMP I XFREE /ONLY 1 FREE 3320 5533 7001 IAC 3321 5534 7450 SNA 3322 5535 5714 JMP I XFREE /ONLY 2 FREE 3323 5536 2314 ISZ XFREE 3324 5537 1354 TAD FREEC 3325 5540 7750 SPA SNA CLA 3326 5541 2314 ISZ XFREE /14 OR MORE FREE 3327 5542 5714 JMP I XFREE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 72 3328 /*FREE2* AND *FREE13* ROUTINES 3329 5543 0000 XFREE2, 0 3330 5544 4314 JMS XFREE /ROOM 3331 5545 5350 JMP .+3 /WE MUST WAIT 3332 5546 0201 FPENT, FPNT+1 3333 5547 5743 JMP I XFREE2 3334 3335 5550 1343 TAD XFREE2 3336 5551 5360 JMP FREEWT /GET ROOM 3337 3338 5552 0000 XFREE3, 0 3339 5553 4314 JMS XFREE 3340 5554 0014 FREEC, 14 3341 5555 7410 SKP /MUST WAIT 3342 5556 5752 JMP I XFREE3 3343 3344 5557 1352 TAD XFREE3 3345 5560 3022 FREEWT, DCA PC /SET RESTART 3346 5561 1505 TAD I LOOK 3347 5562 4764 JMS I .+2 /SET O WAIT AND DISMISS 3348 5563 2000 2000 3349 5564 6552 XOR /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 73 3350 5565 4572 RESTOR, TSTEND 3351 5566 4551 ERR280, ERROR 3352 5567 3037 DCA DATAPC 3353 5570 1111 TAD CCR 3354 5571 3043 DCA DATAPC+4 3355 5572 5544 POPJ 3356 3357 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 74 3358 5574 0016 3359 5575 6731 3360 5576 4357 3361 5577 5734 5600 PAGE 3362 3363 5600 7736 QMDOT, -42 3364 5601 5602 OPT1, .+1 3365 5602 0011 11 3366 5603 0000 QCT1, 0 3367 5604 2757 QERR, ERR110 3368 5605 1145 QINPACK,INPACK 3369 5606 0000 QUOCNT, 0 3370 5607 0000 QCOUNT, 0 3371 5610 1026 QUOTES, TAD CHAR /LITERAL STRING 3372 5611 1200 TAD QMDOT 3373 5612 7640 SZA CLA 3374 5613 5604 JMP I QERR /ERROR, NOT STRING 3375 5614 1327 TAD QOPNEXT /SET UP POPJ RETURN 3376 5615 4540 PUSHA 3377 3378 5616 1324 QINP, TAD QCON1 /ENTRY POINT FOR INPUT COMMAND 3379 5617 1325 QLINP, TAD QCON2 /ENTRY POINT FOR LINPUT COMMAND 3380 5620 3243 DCA QSLIS /WHICH LIST TO SORT THROUGH 3381 5621 1126 TAD M6 3382 5622 3207 DCA QCOUNT /COUNT FOR 6 CHARS 3383 5623 3206 DCA QUOCNT /QUOTE COUNTER 3384 5624 2032 ISZ SPACSW /KEEP SPACES 3385 5625 2031 ISZ MODE /SET STRING MODE INDICATOR 3386 5626 4542 PUSHF /PUSH 3 WORDS ONTO STACK 3387 5627 0111 CCR 3388 5630 1015 TAD PDLXR 3389 5631 3016 DCA AXIN 3390 5632 3024 DCA XCTIN 3391 5633 1016 TAD AXIN 3392 5634 3052 DCA PACKST 3393 5635 1201 TAD OPT1 3394 5636 3053 DCA PACKND 3395 5637 7410 SKP /WE ALREAD HAVE FIRST CHAR 3396 5640 4535 QUOTE1, GETC 3397 5641 4536 SORTJ 3398 5642 7306 PRNTL1-1 3399 5643 0000 QSLIS, 0 3400 3401 5644 1207 QNEXTC, TAD QCOUNT /HAVE WE GOT 6 CHARS YET 3402 5645 7710 SPA CLA /YES, DONT BOTHER PACKING 3403 5646 4556 PACKC 3404 5647 2207 ISZ QCOUNT /BUMP CHARACTER COUNTER 3405 5650 5240 JMP QUOTE1 3406 5651 1243 TAD QSLIS /GOT 6 CHARS: CHECK IF LINPUT COMMMAND 3407 5652 7041 CIA 3408 5653 1325 TAD QCON2 3409 5654 7640 SZA CLA 3410 5655 5240 JMP QUOTE1 /NO, IGNORE REST OF STRING 3411 5656 1326 TAD QCOM /YES, FAKE A COMMA /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 74-1 3412 5657 3206 DCA QUOCNT /SO WE CAN GET REST OF STRING 3413 5660 5301 JMP QDONE2 3414 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 75 3415 5661 1206 QUOCHK, TAD QUOCNT /CHECK WHICH QUOTE THIS IS 3416 5662 7650 SNA CLA /SECOND QUOTE, ALL DONE 3417 5663 5267 JMP .+4 3418 5664 3032 DCA SPACSW /IGNORE SPACES 3419 5665 4535 GETC /SKIP OVER QUOTE 3420 5666 5275 JMP QDONE /END OF STRING 3421 5667 2206 ISZ QUOCNT 3422 5670 5240 JMP QUOTE1 /SET FLAG AND CONTINUE 3423 3424 5671 1206 QCOMCK, TAD QUOCNT /CHECK IF COMMA INSIDE QUOTES 3425 5672 7650 SNA CLA 3426 5673 5275 JMP QDONE /NO QUOTES, ENDS STRING 3427 5674 5244 JMP QNEXTC /INSIDE QUOTES, KEEP IT 3428 3429 5675 1026 QDONE, TAD CHAR /DONE, SAVE TERMINATOR 3430 5676 3206 DCA QUOCNT 3431 5677 1207 TAD QCOUNT /SAVE CHAR COUNT, FILL WORD WITH CR'S 3432 5700 7041 CIA 3433 5701 1126 QDONE2, TAD M6 3434 5702 7041 CIA 3435 5703 3203 DCA QCT1 3436 5704 1207 TAD QCOUNT 3437 5705 7700 SMA CLA 3438 5706 5314 JMP QDONE1 /YES 3439 5707 1111 TAD CCR /CCR ENDS STRING 3440 5710 3026 DCA CHAR 3441 5711 4556 PACKC 3442 5712 2207 ISZ QCOUNT 3443 5713 5311 JMP .-2 3444 5714 4545 QDONE1, POPF /GET THE STRING 3445 5715 6726 FLARG 3446 5716 1107 TAD FLARGP /POINT TO STRING 3447 5717 3025 DCA PT1 3448 5720 1206 TAD QUOCNT 3449 5721 3026 DCA CHAR /RESTORE CHARACTER 3450 5722 3032 DCA SPACSW /SET TO IGNORE SPACES 3451 5723 5544 POPJ /RETURN 3452 3453 3454 3455 5724 7774 QCON1, QLIS2-QLIS1 3456 5725 0664 QCON2, QLIS1-PRNTL1 3457 5726 0054 QCOM, ",-200 3458 5727 2644 QOPNEXT,OPNEXT 3459 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 76 3460 /CHECK FOR STRING RETURNED, SET UP TO GET SECOND ARG 3461 /FOR MID AND CAT FUNCTIONS 3462 3463 5730 0000 GETSTR, 0 3464 5731 1031 TAD MODE /MAKE SURE FIRST ARG IS A STRING 3465 5732 7640 SZA CLA 3466 5733 4561 TSTCOM /CHECK FOR COMMA 3467 5734 4551 ERR560, ERROR /FIRST ARG NOT STRING, MISSING ARG 3468 5735 4542 PUSHF /SAVE THE STRING 3469 5736 6726 FLARG 3470 5737 3031 DCA MODE /CLEAR MODE TO CHECK NEXT ARG TYPE 3471 5740 5730 JMP I GETSTR /RETURN 3472 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 77 3473 /FLOATS NUMBER IN AC INTO FLARG 3474 3475 5741 0000 FLOAT, 0 3476 5742 3074 DCA T1 /SAVE NUMBER 3477 5743 3072 DCA AC1 /ZERO AC1 SO NFIX WILL CLEAR FP AC 3478 5744 7200 LNFIX /CALL NFIX 3479 5745 4574 CALLF1 /IN FIELD 1 3480 5746 1357 TAD C217 /SET EXPONENT 3481 5747 3067 DCA ACEXP 3482 5750 1074 TAD T1 /SET NUMBER 3483 5751 3071 DCA AC2 3484 5752 4407 FINT 3485 5753 6010 FNOR /FLOAT NUMBER 3486 5754 7507 FPUT I FLARGP /PUT INTO FLARG 3487 5755 0000 FEXT 3488 5756 5741 JMP I FLOAT /DONE 3489 3490 5757 0217 C217, 217 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 78 3491 5760 0000 MGET, 0 /FAKE OUT GETC 3492 5761 2075 ISZ T2 /CHECK FLAG 3493 5762 5365 JMP MGET1 3494 5763 1077 TAD CNTR 3495 5764 5375 JMP MGET2 3496 5765 7340 MGET1, L7777 /SET FLAG 3497 5766 3075 DCA T2 3498 5767 1413 TAD I FLTXR /GET NEW PAIR 3499 5770 3077 DCA CNTR 3500 5771 1077 TAD CNTR 3501 5772 7012 RTR 3502 5773 7012 RTR 3503 5774 7012 RTR 3504 5775 0122 MGET2, AND C77 /KILL GARGAGE 3505 5776 5760 JMP I MGET /RETURN /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 79 3506 6000 PAGE 3507 3508 /*MID* FUNCTION FORMAT: MID(A$,X,Y) 3509 /RETURNS Y CHARACTERS STARTING WITH THE XTH CHAR IN A$ 3510 3511 3512 3513 6000 4777 MID, JMS I (GETSTR /GET THE FIRST TWO ARGS 3514 6001 4541 PUSHJ 3515 6002 2611 EVAL-1 3516 6003 4267 JMS MIDCHK /CHECK IF ARG IN BOUNDS 3517 6004 4540 PUSHA /SAVE FOR LATER 3518 6005 4561 TSTCOM /ANOTHER COMMA? 3519 6006 4551 ERR550, ERROR /MISSING OR BAD ARG 3520 6007 4541 PUSHJ /GET THIRD ARG 3521 6010 2611 EVAL-1 3522 6011 4267 JMS MIDCHK /CHECK ARG 3523 6012 3302 DCA MIDC2 3524 6013 4543 POPA /GET SECOND ARG 3525 6014 3301 DCA MIDC1 /SAVE 3526 6015 4545 POPF /GET STRING 3527 6016 6726 FLARG 3528 6017 1376 TAD (FLARG-1 3529 6020 3014 DCA FLTXR2 /PACK POINTER 3530 6021 3074 DCA T1 /PACK SWITCH 3531 6022 1301 TAD MIDC1 /# OF CHARS TO IGNORE 3532 6023 7041 CIA 3533 6024 7110 CLL RAR 3534 6025 1014 TAD FLTXR2 /CALCULATE FIRST CHAR 3535 6026 3013 DCA FLTXR 3536 6027 7430 SZL /CHECK IF PARTIAL 3537 6030 7240 CLA CMA 3538 6031 3075 DCA T2 /UNPACK SWITCH 3539 6032 7430 SZL 3540 6033 1413 TAD I FLTXR /GET CHAR IF PARTIAL 3541 6034 3077 DCA CNTR 3542 3543 3544 6035 7340 MID1, L7777 /CALCULATE NUMBER OF CHARS TO TRANSFER 3545 6036 1302 TAD MIDC2 3546 6037 3302 DCA MIDC2 3547 6040 1302 TAD MIDC2 3548 6041 1301 TAD MIDC1 3549 6042 7041 CIA 3550 6043 1126 TAD M6 3551 6044 7740 SMA SZA CLA 3552 6045 5206 JMP ERR550 /SECOND ARG LESS THAN FIRST 3553 6046 1126 TAD M6 /CHARACTER COUNTER 3554 6047 3031 DCA MODE 3555 6050 4775 MID2, JMS I (MGET /GET CHAR 3556 6051 4356 JMS MPUT /PUT CHAR 3557 6052 2031 ISZ MODE 3558 6053 7410 SKP 3559 6054 5263 JMP MID3 /DONE WITH ALL 6 CHARS 3560 6055 2302 ISZ MIDC2 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 79-1 3561 6056 5250 JMP MID2 /GET ANOTHER CHARACTER 3562 6057 1122 TAD C77 3563 6060 4356 JMS MPUT /FILL STRING WITH CR'S 3564 6061 2031 ISZ MODE 3565 6062 5257 JMP .-3 3566 6063 2031 MID3, ISZ MODE /SET STRING MODE FOR STRING *IF*'S 3567 6064 2015 ISZ PDLXR /KILL POPJ RETURN 3568 6065 5666 JMP I .+1 /SPECIAL RETURN FOR STRING FUNCTIONS 3569 6066 5040 ENDF1 3570 3571 3572 6067 0000 MIDCHK, 0 /CHECK ARGUMENT LIMITS 3573 6070 4510 JMS I INTEGE /MAKE AN INTEGER 3574 6071 7570 SPA SNA SZL /CHECK IF ZERO, NEGATIVE, OR TOO BIG 3575 6072 5206 JMP ERR550 3576 6073 7041 CIA 3577 6074 1112 TAD C7 /CHECK IF TOO BIG 3578 6075 7550 SPA SNA 3579 6076 5206 JMP ERR550 /TOO BIG 3580 6077 1126 TAD M6 /FIX IT UP 3581 6100 5667 JMP I MIDCHK 3582 3583 6101 0000 MIDC1, 0 /FIRST CHAR TO COPY 3584 6102 0000 MIDC2, 0 /LAST CHAR TO COPY /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 80 3585 /*CAT* FUNCTION FORMAT: CAT(A$,B$) 3586 /RETURNS A STRING OF A$ CONCATENATED WITH B$ 3587 3588 6103 4777 CAT, JMS I (GETSTR /GET TWO ARGUMENTS 3589 6104 4541 PUSHJ 3590 6105 2611 EVAL-1 3591 6106 1031 TAD MODE /CHECK IF SECOND ARG IS A STRING 3592 6107 7450 SNA 3593 6110 5206 JMP ERR550 3594 6111 3032 DCA SPACSW /KEEP SPACES 3595 6112 1126 TAD M6 /COUNT FOR 6 CHARACTERS 3596 6113 3302 DCA MIDC2 3597 6114 3267 DCA MIDCHK /CLEAR FLAG 3598 6115 4545 POPF /FIRST STRING INTO FLARG 3599 6116 6726 FLARG 3600 6117 4407 FINT /PUT STRING INTO IF1 3601 6120 7774 FPUT I (IF1 3602 6121 0000 FEXT 3603 6122 1376 TAD (FLARG-1 /POINT TO STRING 3604 6123 3013 DCA FLTXR 3605 6124 3075 DCA T2 /CLEAR UPACK SWITCH 3606 6125 1376 TAD (FLARG-1 /POINT TO PACKING TEMP 3607 6126 3014 DCA FLTXR2 3608 6127 3074 DCA T1 /CLEAR PACK SWITCH 3609 6130 4775 CCAT1, JMS I (MGET /GET A CHAR 3610 6131 3301 DCA MIDC1 /SAVE 3611 6132 1301 TAD MIDC1 3612 6133 7001 IAC 3613 6134 0127 AND C7700 /CHECK FOR CR 3614 6135 7640 SZA CLA 3615 6136 5344 JMP CCAT2 /CR FOUND 3616 6137 1301 TAD MIDC1 3617 6140 4356 CCAT3, JMS MPUT /REPACK CHAR 3618 6141 2302 ISZ MIDC2 /CHECK IF 6 YET 3619 6142 5330 JMP CCAT1 3620 6143 5263 JMP MID3 /RETURN 3621 3622 6144 1267 CCAT2, TAD MIDCHK /CHECK IF ALREADY HERE 3623 6145 7650 SNA CLA 3624 6146 5351 JMP .+3 3625 6147 1301 TAD MIDC1 /FLAG SET, RESTORE CHAR 3626 6150 5340 JMP CCAT3 3627 6151 1373 TAD (IF1-1 /SET POINTERS TO SECOND STRING 3628 6152 3013 DCA FLTXR 3629 6153 3075 DCA T2 /CLEAR FLAG 3630 6154 2267 ISZ MIDCHK /SET FLAG 3631 6155 5330 JMP CCAT1 3632 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 81 3633 6156 0000 MPUT, 0 /FAKE OUT PACKC 3634 6157 2074 ISZ T1 /CHECK FLAG 3635 6160 5364 JMP MPUT1 3636 6161 1076 TAD T3 3637 6162 3414 DCA I FLTXR2 /STASH CHAR 3638 6163 5756 JMP I MPUT 3639 6164 4553 MPUT1, RTL6 3640 6165 0127 AND C7700 3641 6166 3076 DCA T3 /SAVE PARTIAL 3642 6167 7340 L7777 /SET FLAG 3643 6170 3074 DCA T1 3644 6171 5756 JMP I MPUT 3645 6173 1375 3646 6174 1376 3647 6175 5760 3648 6176 6725 3649 6177 5730 6200 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 82 3650 6200 0000 FLIN, 0 3651 6201 1377 TAD (-11 3652 6202 3300 DCA DNUMBR 3653 6203 4301 JMS DECONV 3654 6204 4554 TESTN 3655 6205 5210 JMP .+3 3656 6206 0011 FP11, 11 3657 6207 5217 JMP FIGO1 3658 6210 4535 GETC 3659 6211 1300 TAD DNUMBR 3660 6212 3013 DCA FLTXR 3661 6213 4322 JMS DECON 3662 6214 1300 TAD DNUMBR 3663 6215 7041 CIA 3664 6216 1013 TAD FLTXR 3665 6217 3013 FIGO1, DCA FLTXR 3666 6220 1337 TAD C233 3667 6221 3067 DCA ACEXP 3668 6222 4407 FINT 3669 6223 6010 FNOR 3670 6224 7425 FPUT I PT1 3671 6225 0000 FEXT 3672 6226 1300 TAD DNUMBR 3673 6227 1206 TAD FP11 3674 6230 7650 SNA CLA 3675 6231 4551 ERR150, ERROR 3676 6232 1026 TAD CHAR 3677 6233 1376 TAD (200-"E 3678 6234 7640 SZA CLA 3679 6235 5255 JMP FIGO2 3680 6236 4535 GETC 3681 6237 7346 L7775 3682 6240 3300 DCA DNUMBR 3683 6241 4301 JMS DECONV 3684 6242 7326 L0002 3685 6243 1300 TAD DNUMBR 3686 6244 7710 SPA CLA 3687 6245 5231 JMP .-14 3688 6246 1066 TAD ACSIGN 3689 6247 7104 CLL RAL 3690 6250 1070 TAD AC3 3691 6251 7430 SZL 3692 6252 7041 CIA 3693 6253 1013 TAD FLTXR 3694 6254 3013 DCA FLTXR 3695 6255 1013 FIGO2, TAD FLTXR 3696 6256 7450 SNA 3697 6257 5600 JMP I FLIN 3698 6260 7710 SPA CLA 3699 6261 5266 JMP FIGO4 3700 6262 1013 TAD FLTXR 3701 6263 7041 CIA 3702 6264 3013 DCA FLTXR 3703 6265 1324 TAD M1000 3704 6266 1374 FIGO4, TAD (FDIV I (TEN /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 82-1 3705 6267 3272 DCA FIGO3+2 3706 6270 4407 FIGO3, FINT 3707 6271 0425 FGET I PT1 3708 6272 7402 HLT 3709 6273 7425 FPUT I PT1 3710 6274 0000 FEXT 3711 6275 2013 ISZ FLTXR 3712 6276 5270 JMP FIGO3 3713 6277 5600 JMP I FLIN 3714 3715 6300 0000 DNUMBR, 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 83 3716 6301 0000 DECONV, 0 3717 6302 3070 DCA AC3 3718 6303 3071 DCA AC2 3719 6304 3072 DCA AC1 3720 6305 3066 DCA ACSIGN 3721 6306 1026 TAD CHAR 3722 6307 1373 TAD (200-"+ 3723 6310 7450 SNA 3724 6311 5317 JMP .+6 3725 6312 7112 CLL RTR 3726 6313 7640 SZA CLA 3727 6314 5320 JMP .+4 3728 6315 7330 L4000 3729 6316 3066 DCA ACSIGN 3730 6317 4535 GETC 3731 6320 4322 JMS DECON 3732 6321 5701 JMP I DECONV 3733 3734 6322 0000 DECON, 0 3735 6323 4554 TESTN 3736 6324 7000 M1000, NOP 3737 6325 5722 JMP I DECON 3738 6326 6212 CIF SWAP /GO DO FIELD 1 STUFF 3739 6327 5730 JMP I .+1 3740 6330 0146 DECON1 3741 6331 4535 DECON2, GETC 3742 6332 2300 ISZ DNUMBR 3743 6333 5323 JMP DECON+1 3744 6334 4551 ERR160, ERROR 3745 3746 6335 0000 XGETLN, 0 3747 6336 4554 TESTN 3748 6337 0233 C233, 233 3749 6340 4551 ERR370, ERROR 3750 6341 1126 TAD M6 3751 6342 3300 DCA DNUMBR 3752 6343 4301 JMS DECONV 3753 6344 1071 TAD AC2 3754 6345 7650 SNA CLA 3755 6346 1070 TAD AC3 3756 6347 7550 SPA SNA 3757 6350 5340 JMP ERR370 3758 6351 3030 DCA LINENO 3759 6352 1030 TAD LINENO 3760 6353 7001 IAC 3761 6354 7710 SPA CLA 3762 6355 5340 JMP ERR370 3763 6356 5735 JMP I XGETLN /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 84 3764 /*RANDOMIZE* 3765 6357 1765 RANDOM, TAD I INTCNT /USE INTERRUPT COUNTER AS ADDRESS 3766 6360 1064 TAD FRNDX+1 3767 6361 3063 DCA FRNDX 3768 6362 1365 TAD INTCNT 3769 6363 3064 DCA FRNDX+1 3770 6364 5544 POPJ 3771 6365 0000 INTCNT,0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 85 3772 6373 7725 3773 6374 4775 3774 6375 7753 3775 6376 7673 3776 6377 7767 6400 PAGE 3777 3778 6400 0000 FLOUT, 0 3779 6401 1066 TAD ACSIGN 3780 6402 7710 SPA CLA 3781 6403 1111 TAD CCR 3782 6404 1121 TAD C40 3783 6405 4534 PRINTC 3784 6406 1072 TAD AC1 3785 6407 7640 SZA CLA 3786 6410 5214 JMP FOGO1 3787 6411 1377 TAD (60 3788 6412 4534 PRINTC 3789 6413 5600 JMP I FLOUT 3790 3791 6414 7340 FOGO1, LFXUP /CALL FIXUP 3792 6415 4574 CALLF1 3793 6416 1376 TAD (-7 3794 6417 3077 DCA CNTR 3795 6420 1375 TAD (NUMBUF-1 3796 6421 3013 DCA FLTXR 3797 6422 5230 JMP .+6 3798 3799 6423 1072 FOGO2, TAD AC1 3800 6424 0113 AND C177 3801 6425 3072 DCA AC1 3802 6426 7346 LMULT /CALL MULT10 3803 6427 4574 CALLF1 3804 6430 1072 TAD AC1 3805 6431 4553 RTL6 3806 6432 0374 AND (17 3807 6433 1377 TAD (60 3808 6434 3413 DCA I FLTXR 3809 6435 2077 ISZ CNTR 3810 6436 5223 JMP FOGO2 3811 3812 6437 1375 TAD (NUMBUF-1 3813 6440 3013 DCA FLTXR 3814 6441 7326 L0002 3815 6442 1775 TAD I (DECEXP 3816 6443 7450 SNA 3817 6444 5302 JMP FOGO4 3818 6445 7510 SPA 3819 6446 5252 JMP FOGO3 3820 6447 1123 TAD M10 3821 6450 7710 SPA CLA 3822 6451 5306 JMP FOGO5 3823 6452 7200 FOGO3, CLA 3824 6453 1413 TAD I FLTXR 3825 6454 4534 PRINTC /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 85-1 3826 6455 1373 TAD (".-200 3827 6456 4534 PRINTC 3828 6457 1126 TAD M6 3829 6460 3077 DCA CNTR 3830 6461 1413 TAD I FLTXR 3831 6462 4534 PRINTC 3832 6463 2077 ISZ CNTR 3833 6464 5261 JMP .-3 3834 6465 1372 TAD ("E-200 3835 6466 4534 PRINTC 3836 6467 1775 TAD I (DECEXP 3837 6470 7710 SPA CLA 3838 6471 7326 L0002 3839 6472 1371 TAD ("+-200 3840 6473 4534 PRINTC 3841 6474 1775 TAD I (DECEXP 3842 6475 7510 SPA 3843 6476 7041 CIA 3844 6477 2770 ISZ I (PRNT5 3845 6500 4767 JMS I (ITPRNT 3846 6501 5600 JMP I FLOUT 3847 3848 6502 1373 FOGO4, TAD (".-200 3849 6503 4534 PRINTC 3850 6504 1377 TAD (60 3851 6505 4534 PRINTC 3852 6506 1376 FOGO5, TAD (-7 3853 6507 3077 DCA CNTR 3854 6510 1366 TAD (NUMBUF+6 3855 6511 3075 FOGO6, DCA T2 3856 6512 1475 TAD I T2 3857 6513 1365 TAD (-60 3858 6514 7640 SZA CLA 3859 6515 5322 JMP FOGO7 3860 6516 2077 ISZ CNTR 3861 6517 7340 L7777 3862 6520 1075 TAD T2 3863 6521 5311 JMP FOGO6 3864 3865 6522 1775 FOGO7, TAD I (DECEXP 3866 6523 1077 TAD CNTR 3867 6524 7710 SPA CLA 3868 6525 5331 JMP .+4 3869 6526 1775 TAD I (DECEXP 3870 6527 7040 CMA 3871 6530 3077 DCA CNTR 3872 6531 7344 L7776 3873 6532 7040 FOGO8, CMA 3874 6533 1775 TAD I (DECEXP 3875 6534 7440 SZA 3876 6535 5340 JMP .+3 3877 6536 1373 TAD (".-200 3878 6537 4534 PRINTC 3879 6540 3775 DCA I (DECEXP 3880 6541 1413 TAD I FLTXR /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 85-2 3881 6542 4534 PRINTC 3882 6543 2077 ISZ CNTR 3883 6544 5332 JMP FOGO8 3884 6545 5600 JMP I FLOUT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 86 3885 6546 4551 ERR330, ERROR 3886 3887 DECIMAL 3888 6547 6030 PRNTLL, -1000 3889 6550 7634 -100 3890 6551 7766 -10 3891 OCTAL 3892 3893 /THANKS TO TS8-V228 FOR THIS ONE 3894 /*OR* ROUTINE 3895 6552 0000 XOR, 0 3896 6553 3076 DCA T3 /SAVE A 3897 6554 1752 TAD I XOR 3898 6555 7040 CMA /GET A AND NOT B 3899 6556 0076 AND T3 3900 6557 1752 TAD I XOR /NOW GET BITS IN B, B AND NOT B IS ALWAYS 3901 /0, SO WE NOW HAVE B OR A (NO CHANCE OF OVFLOW) 3902 6560 3505 DCA I LOOK 3903 6561 5177 JMP NULL 3904 3905 6562 2055 FUPAR1, 2055 3906 6563 0000 0 3907 6564 0000 0 3908 3909 6565 7720 3910 6566 6734 3911 6567 0231 3912 6570 0277 3913 6571 0053 3914 6572 0105 3915 6573 0056 3916 6574 0017 3917 6575 6725 3918 6576 7771 3919 6577 0060 6600 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 87 3920 /*LEN* FUNCTION, RETURNS NUMBER OF CHARACTERS 3921 /(UP TO 6) IN A STRING 3922 3923 6600 3077 LEN, DCA CNTR /CHAR COUNTER 3924 6601 7346 L7775 /COUNT FOR 3 WORDS 3925 6602 3074 DCA T1 3926 6603 7360 CLA STL CMA 3927 6604 1107 TAD FLARGP 3928 6605 3013 DCA FLTXR 3929 6606 1413 LENXT, TAD I FLTXR /GET NEXT TWO CHARACTERS 3930 6607 1131 TAD C100 3931 6610 7430 SZL /LINK SET ONLY IF TOP HALF IS CR 3932 6611 5223 JMP LENDON 3933 6612 2077 ISZ CNTR /COUNT CHAR 3934 6613 0122 AND C77 /KILL TOP HALF 3935 6614 7001 IAC 3936 6615 0127 AND C7700 /KILL BOTTOM HALF 3937 6616 7640 SZA CLA /AC=100 IF BOTTOM HALF IS CR 3938 6617 5223 JMP LENDON 3939 6620 2077 ISZ CNTR /COUNT CHAR 3940 6621 2074 ISZ T1 /DONE? 3941 6622 5206 JMP LENXT 3942 6623 7200 LENDON, CLA /CLEAR GARBAGE IN AC 3943 6624 3031 DCA MODE /NO LONGER IN STRING MODE 3944 6625 1077 TAD CNTR 3945 6626 4777 JMS I (FLOAT /FLOAT NUMBER INTO FLARG 3946 6627 5544 POPJ 3947 3948 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 88 3949 /*LINPUT* COMMAND, INPUT AN ENTIRE LINE OF TEXT 3950 /INTO A STRING ARRAY 3951 3952 6630 3024 LINPUT, DCA SUBS /CLEAR SUBSCRIPT 3953 6631 4541 PUSHJ /GET VARIABLE 3954 6632 4400 GETVAR 3955 6633 7650 SNA CLA /FUNCTION? 3956 6634 4572 TSTEND 3957 6635 4551 ERR540, ERROR /ILLEGAL OR MORE THAN ONE VARIABLE 3958 6636 1031 TAD MODE 3959 6637 7650 SNA CLA 3960 6640 5235 JMP .-3 /NOT STRING VARIABLE 3961 6641 4542 PUSHF /SAVE PT1;CHAR;LINEPC 3962 6642 0025 PT1 3963 6643 4542 PUSHF /SAVE TEXT POINTERS 3964 6644 0017 TEXTP 3965 6645 1023 TAD ADD /CHECK IF SUBSCRIPTED 3966 6646 7104 CLL RAL 3967 6647 7130 STL RAR 3968 6650 3023 DCA ADD 3969 6651 1024 TAD SUBS 3970 6652 0127 AND C7700 /ZERO LAST DIMENSION 3971 6653 3024 DCA SUBS 3972 6654 4542 PUSHF /SAVE NAME AND SUBSCRIPT 3973 6655 0023 ADD 3974 6656 2032 ISZ SPACSW /KEEP LEADING SPACES 3975 6657 4541 PUSHJ /GET LINE OF INPUT 3976 6660 1167 PAKLIN 3977 6661 3334 DCA LINCT /ZERO CHARACTER COUNTER 3978 3979 6662 4545 POPF /RESTORE NAME AND SUBSCRIPT 3980 6663 0023 ADD 3981 6664 5267 JMP .+3 3982 6665 2032 LINXT, ISZ SPACSW /KEEP SPACES 3983 6666 4535 GETC /SKIP OVER COMMA 3984 6667 2024 ISZ SUBS /INCREMENT SUBSCRIPT 3985 6670 4541 PUSHJ /GET VARIABLE 3986 6671 4435 LOOKUP 3987 6672 4542 PUSHF /SAVE NAME AND SUBSCRIPT 3988 6673 0023 ADD 3989 6674 4541 PUSHJ /GET NEXT 6 CHARS OF STRING 3990 6675 5617 QLINP 3991 3992 6676 1775 LINXT2, TAD I AQCT1 /GET CHARACTER COUNT 3993 6677 1334 TAD LINCT /BUMP CHARACTER COUNT 3994 6700 3334 DCA LINCT 3995 6701 4545 POPF /RESTORE NAME AND SUBSCRIPT 3996 6702 0023 ADD 3997 6703 4547 FLPUT /SET VARIABLE 3998 6704 6726 FLARG 3999 6705 4572 TSTEND /END OF STRING? 4000 6706 5265 JMP LINXT /NO, GET NEXT 6 CHARS 4001 6707 1024 TAD SUBS /ZERO LAST DIMENSION 4002 6710 0127 AND C7700 4003 6711 3024 DCA SUBS /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 88-1 4004 6712 4541 PUSHJ 4005 6713 4435 LOOKUP /GET VARIABLE 4006 6714 1334 TAD LINCT 4007 6715 4777 JMS I (FLOAT /FLOAT INTO FLARG 4008 6716 4547 FLPUT /PUT IT AWAY 4009 6717 6726 FLARG 4010 6720 4545 POPF /RESTORE TEXT 4011 6721 0017 TEXTP 4012 6722 4545 POPF /RESTORE OTHER GARBAGE 4013 6723 0025 PT1 4014 6724 5544 POPJ /RETURN 4015 4016 4017 6725 0000 DECEXP, 0 4018 4019 6726 0000 NUMBUF, ZBLOCK 7 4020 4021 6726 FLARG=NUMBUF 4022 6731 TEMP=NUMBUF+3 4023 6734 LINCT=NUMBUF+6 4024 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 89 4025 6735 0000 FIX, 0 4026 6736 4407 FINT 4027 6737 6150 FSLE 4028 6740 1365 FADD FIXCON 4029 6741 6100 FSGE 4030 6742 2365 FSUB FIXCON 4031 6743 0000 FEXT 4032 6744 7200 LNFIX /CALL NFIX 4033 6745 4574 CALLF1 4034 6746 7110 CLL RAR 4035 6747 1066 TAD ACSIGN 4036 6750 7004 RAL 4037 6751 7430 SZL 4038 6752 7041 CIA 4039 6753 3364 DCA FIXTMP 4040 6754 7100 CLL 4041 6755 1072 TAD AC1 4042 6756 7450 SNA 4043 6757 1071 TAD AC2 4044 6760 7640 SZA CLA 4045 6761 7120 CLL CML 4046 6762 1364 TAD FIXTMP 4047 6763 5735 JMP I FIX 4048 4049 6764 0000 FIXTMP, 0 4050 4051 6765 1544 FIXCON, 1544 4052 6766 1433 1433 4053 6767 6750 6750 4054 4055 6770 0015 XPAKL1, 15 /CR 4056 6771 0007 7 /BELL 4057 6772 0177 177 /RUBOUT 4058 6773 0137 137 /* 4059 6774 0100 100 /@ 4060 IFZERO QCT1&4000 4061 6775 5603 AQCT1, QCT1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 90 4062 6777 5741 7000 PAGE 4063 4064 7000 4407 SQR, FINT 4065 7001 7336 FPUT FSINZ 4066 7002 6040 FSNE 4067 7003 5235 FJMP SQEXIT 4068 7004 0000 FEXT 4069 7005 1066 TAD ACSIGN 4070 7006 7710 SPA CLA 4071 7007 4551 ERR020, ERROR 4072 7010 1067 TAD ACEXP 4073 7011 1377 TAD (7600 4074 7012 7100 CLL 4075 7013 7510 SPA 4076 7014 7020 CML 4077 7015 7010 RAR 4078 7016 1371 TAD PL200 4079 7017 3067 DCA ACEXP 4080 7020 1123 TAD M10 4081 7021 3237 DCA SQCNT 4082 7022 4407 SQLOOP, FINT 4083 7023 7507 FPUT I FLARGP 4084 7024 0336 FGET FSINZ 4085 7025 4507 FDIV I FLARGP 4086 7026 1507 FADD I FLARGP 4087 7027 0000 FEXT 4088 7030 7340 L7777 4089 7031 1067 TAD ACEXP 4090 7032 3067 DCA ACEXP 4091 7033 2237 ISZ SQCNT 4092 7034 5222 JMP SQLOOP 4093 7035 0000 SQEXIT, FEXT 4094 7036 5544 POPJ 4095 4096 7037 0000 SQCNT, 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 91 4097 7040 4407 TAN, FINT 4098 7041 7776 FPUT I (TEMP 4099 7042 0000 FEXT 4100 7043 4541 PUSHJ 4101 7044 7057 COS 4102 7045 4407 FINT 4103 7046 7507 FPUT I FLARGP 4104 7047 0776 FGET I (TEMP 4105 7050 0000 FEXT 4106 7051 4541 PUSHJ 4107 7052 7062 FSIN 4108 7053 4407 FINT 4109 7054 4507 FDIV I FLARGP 4110 7055 0000 FEXT 4111 7056 5544 POPJ 4112 4113 7057 4407 COS, FINT 4114 7060 1363 FADD FSINC7 4115 7061 6000 FSKP 4116 7062 4407 FSIN, FINT 4117 7063 4344 FDIV FSINC1 4118 7064 7336 FPUT FSINZ 4119 7065 0000 FEXT 4120 7066 4541 PUSHJ 4121 7067 4350 FFIX 4122 7070 7330 L4000 4123 7071 1066 TAD ACSIGN 4124 7072 3066 DCA ACSIGN 4125 7073 4407 FINT 4126 7074 1336 FADD FSINZ 4127 7075 0000 FEXT 4128 7076 2067 ISZ ACEXP 4129 7077 2067 ISZ ACEXP 4130 7100 4407 FINT 4131 7101 7336 FSINXX, FPUT FSINZ 4132 7102 0000 FEXT 4133 7103 3066 DCA ACSIGN 4134 7104 4407 FINT 4135 7105 2775 FSUB I (FLTONE 4136 7106 6140 FSGT 4137 7107 5320 FJMP FSINOK 4138 7110 0336 FGET FSINZ 4139 7111 0000 FEXT 4140 7112 4541 PUSHJ 4141 7113 5047 SGN 4142 7114 2067 ISZ ACEXP 4143 7115 4407 FINT 4144 7116 2336 FSUB FSINZ 4145 7117 5301 FJMP FSINXX 4146 7120 0336 FSINOK, FGET FSINZ 4147 7121 3336 FMUL FSINZ 4148 7122 7341 FPUT FSINZZ 4149 7123 3347 FMUL FSINC3 4150 7124 1352 FADD FSINC4 4151 7125 3341 FMUL FSINZZ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 91-1 4152 7126 1355 FADD FSINC5 4153 7127 3341 FMUL FSINZZ 4154 7130 1360 FADD FSINC6 4155 7131 3341 FMUL FSINZZ 4156 7132 1363 FADD FSINC7 4157 7133 3336 FMUL FSINZ 4158 7134 0000 FEXT 4159 7135 5544 POPJ 4160 4161 7136 0000 FSINZ, 0;0;0 7137 0000 7140 0000 4162 7141 0000 FSINZZ, 0;0;0 7142 0000 7143 0000 4163 7144 2036 FSINC1, 2036;2207;7325 7145 2207 7146 7325 4164 7147 1644 FSINC3, 1644;7553;6722 7150 7553 7151 6722 4165 7152 5714 FSINC4, 5714;6223;1423 7153 6223 7154 1423 4166 7155 1755 FSINC5, 1755;632;1276 7156 0632 7157 1276 4167 7160 6005 FSINC6, 6005;1256;7406 7161 1256 7162 7406 4168 7163 2016 FSINC7, 2016;2207;7325 7164 2207 7165 7325 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 92 4169 /*UDF* ROUTINE 4170 7166 0000 XUDF, 0 4171 IFZERO .&4000 4172 7167 6211 CDF 10 4173 7170 5766 JMP I XUDF 4174 7171 0200 PL200, 200 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 93 4175 7175 4354 4176 7176 6731 4177 7177 7600 7200 PAGE 4178 4179 4180 7200 4407 FEXP, FINT 4181 7201 4260 FDIV FEXPC1 4182 7202 7777 FPUT I (FEXPU 4183 7203 0000 FEXT 4184 7204 4541 PUSHJ 4185 7205 4336 INT 4186 7206 7330 L4000 4187 7207 1066 TAD ACSIGN 4188 7210 3066 DCA ACSIGN 4189 7211 4407 FINT 4190 7212 7255 FPUT FEXP1 4191 7213 1777 FADD I (FEXPU 4192 7214 7776 FPUT I (FEXPF 4193 7215 3776 FMUL I (FEXPF 4194 7216 1263 FADD FEXPC2 4195 7217 7777 FPUT I (FEXPU 4196 7220 0255 FGET FEXP1 4197 7221 0000 FEXT 4198 7222 4510 JMS I INTEGE 4199 7223 7041 CIA 4200 7224 7001 IAC 4201 7225 3255 DCA FEXP1 4202 7226 4407 FINT 4203 7227 0266 FGET FEXPC3 4204 7230 4777 FDIV I (FEXPU 4205 7231 1271 FADD FEXPC4 4206 7232 2776 FSUB I (FEXPF 4207 7233 7777 FPUT I (FEXPU 4208 7234 0776 FGET I (FEXPF 4209 7235 3776 FMUL I (FEXPF 4210 7236 3274 FMUL FEXPC5 4211 7237 1777 FADD I (FEXPU 4212 7240 7777 FPUT I (FEXPU 4213 7241 0776 FGET I (FEXPF 4214 7242 4777 FDIV I (FEXPU 4215 7243 1277 FADD FEXPC6 4216 7244 0000 FEXT 4217 7245 1067 TAD ACEXP 4218 7246 1255 TAD FEXP1 4219 7247 3067 DCA ACEXP 4220 7250 4407 FINT 4221 7251 6010 FNOR 4222 7252 1775 FADD I (FLZERO 4223 7253 0000 FEXT 4224 7254 5544 POPJ 4225 4226 7255 0000 FEXP1, 0;0;0 7256 0000 7257 0000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 93-1 4227 7136 FEXPU=FSINZ 4228 7141 FEXPF=FSINZZ 4229 7260 2005 FEXPC1, 2005;4271;300 7261 4271 7262 0300 4230 7263 2075 FEXPC2, 2075;3552;7022 7264 3552 7265 7022 4231 7266 6124 FEXPC3, 6124;6477;715 7267 6477 7270 0715 4232 7271 2044 FEXPC4, 2044;7643;62 7272 7643 7273 0062 4233 7274 1744 FEXPC5, 1744;3372;3400 7275 3372 7276 3400 4234 7277 2004 FEXPC6, 2004 4235 7300 0000 FLZERO, 0 4236 7301 0000 0 4237 7302 0000 0 4238 4239 7303 2074 F72, 2074;4000;0 7304 4000 7305 0000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 94 4240 7306 0073 PRNTL4, 73 /; 4241 7307 0054 PRNTL1, 54 /, 4242 7310 0047 47 /' 4243 7311 0042 PRNTL7, 42 /" 4244 7312 0015 15 /CR 4245 7313 0134 "\-200 4246 4247 7314 7301 LOG, LHIGH /CALL HIGHWD 4248 7315 4574 CALLF1 4249 7316 7750 SPA SNA CLA 4250 7317 4551 ERR010, ERROR 4251 7320 1067 TAD ACEXP 4252 7321 3370 DCA LOGEXP 4253 7322 1373 TAD L200 4254 7323 3067 DCA ACEXP 4255 7324 4407 FINT 4256 7325 7777 FPUT I (FEXPU 4257 7326 1353 FADD FLOGC1 4258 7327 7776 FPUT I (FEXPF 4259 7330 0777 FGET I (FEXPU 4260 7331 2353 FSUB FLOGC1 4261 7332 4776 FDIV I (FEXPF 4262 7333 7776 FPUT I (FEXPF 4263 7334 3776 FMUL I (FEXPF 4264 7335 3356 FMUL FLOGC2 4265 7336 1361 FADD FLOGC3 4266 7337 3776 FMUL I (FEXPF 4267 7340 3776 FMUL I (FEXPF 4268 7341 1364 FADD FLOGC4 4269 7342 3776 FMUL I (FEXPF 4270 7343 2277 FSUB FEXPC6 4271 7344 7776 FPUT I (FEXPF 4272 7345 0367 FGET LOGFWD 4273 7346 2372 FSUB LOGOKW 4274 7347 1776 FADD I (FEXPF 4275 7350 3260 FMUL FEXPC1 4276 7351 0000 FEXT 4277 7352 5544 POPJ 4278 4279 7353 2005 FLOGC1, 2005;5202;3632 7354 5202 7355 3632 4280 7356 2004 FLOGC2, 2004;6253;2521 7357 6253 7360 2521 4281 7361 2007 FLOGC3, 2007;5421;3604 7362 5421 7363 3604 4282 7364 2025 FLOGC4, 2025;6125;1007 7365 6125 7366 1007 4283 7367 2174 LOGFWD, 2174 4284 7370 0000 LOGEXP, 0 4285 7371 0000 0 4286 7372 2174 LOGOKW, 2174 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 94-1 4287 7373 0200 L200, 200 4288 7374 0000 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 95 4289 7375 7300 4290 7376 7141 4291 7377 7136 7400 PAGE 4292 4293 7400 0000 ATNSGN, 0 4294 4295 4296 4297 7401 1066 ATN, TAD ACSIGN 4298 7402 3200 DCA ATNSGN 4299 7403 3066 DCA ACSIGN 4300 7404 4407 FINT 4301 7405 7777 FPUT I (FATNT 4302 7406 7776 FPUT I (FATNAX 4303 7407 2275 FSUB FATNC1 4304 7410 6140 FSGT 4305 7411 5265 FJMP ATNBIG 4306 7412 2300 FSUB FATNC2 4307 7413 6140 FSGT 4308 7414 5220 FJMP ATNLOW 4309 7415 0775 FGET I (FLTONE 4310 7416 4777 FDIV I (FATNT 4311 7417 7777 FPUT I (FATNT 4312 7420 0774 ATNLOW, FGET I (FLZERO 4313 7421 7773 FPUT I (FATNC 4314 7422 0777 FGET I (FATNT 4315 7423 2303 FSUB FATNC3 4316 7424 6100 FSGE 4317 7425 5237 FJMP ATNNOT 4318 7426 0777 FGET I (FATNT 4319 7427 1306 FADD FATNC4 4320 7430 7777 FPUT I (FATNT 4321 7431 0272 FGET FATNCJ 4322 7432 4777 FDIV I (FATNT 4323 7433 1306 FADD FATNC4 4324 7434 7777 FPUT I (FATNT 4325 7435 0311 FGET FATNC5 4326 7436 7773 FPUT I (FATNC 4327 7437 0777 ATNNOT, FGET I (FATNT 4328 7440 3777 FMUL I (FATNT 4329 7441 7772 FPUT I (FATNTT 4330 7442 0314 FGET FATNC6 4331 7443 3772 FMUL I (FATNTT 4332 7444 1317 FADD FATNC7 4333 7445 3772 FMUL I (FATNTT 4334 7446 1322 FADD FATNC8 4335 7447 3772 FMUL I (FATNTT 4336 7450 1325 FADD FATNC9 4337 7451 3772 FMUL I (FATNTT 4338 7452 1775 FADD I (FLTONE 4339 7453 3777 FMUL I (FATNT 4340 7454 1773 FADD I (FATNC 4341 7455 7777 FPUT I (FATNT 4342 7456 0776 FGET I (FATNAX /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 95-1 4343 7457 2775 FSUB I (FLTONE 4344 7460 6140 FSGT 4345 7461 5265 FJMP ATNBIG 4346 7462 0771 FGET I (FSINC7 4347 7463 2777 FSUB I (FATNT 4348 7464 7777 FPUT I (FATNT 4349 7465 0777 ATNBIG, FGET I (FATNT 4350 7466 0000 FEXT 4351 7467 1200 TAD ATNSGN 4352 7470 3066 DCA ACSIGN 4353 7471 5544 POPJ 4354 4355 7136 FATNAX=FSINZ 4356 7141 FATNT=FSINZZ 4357 7255 FATNTT=FEXP1 4358 7472 6034 FATNCJ, 6034;0;0 7473 0000 7474 0000 4359 7475 1634 FATNC1, 1634;0;0 7476 0000 7477 0000 4360 7500 2007 FATNC2, 2007;7776;0 7501 7776 7502 0000 4361 7503 1774 FATNC3, 1774;2230;2427 7504 2230 7505 2427 4362 7506 2016 FATNC4, 2016;7331;7272 7507 7331 7510 7272 4363 7511 2004 FATNC5, 2004;1405;2216 7512 1405 7513 2216 4364 7514 1756 FATNC6, 1756;462;4562 7515 0462 7516 4562 4365 7517 5764 FATNC7, 5764;4221;3403 7520 4221 7521 3403 4366 7522 1766 FATNC8, 1766;3141;6672 7523 3141 7524 6672 4367 7525 5775 FATNC9, 5775;2525;2377 7526 2525 7527 2377 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 96 4368 7530 0316 FUNL1, 316 /FN 4369 7531 1151 1151 /SI 4370 7532 0157 157 /CO 4371 7533 0064 64 /AT 4372 7534 0270 270 /EX 4373 7535 0617 617 /LO 4374 7536 0042 42 /AB 4375 7537 1161 1161 /SQ 4376 7540 1147 1147 /SG 4377 7541 0456 456 /IN 4378 7542 1116 1116 /RN 4379 7543 0311 311 /FI 4380 7544 1201 1201 /TA 4381 7545 0651 651 /MI 4382 7546 0141 141 /CA 4383 7547 0605 605 /LE 4384 7550 0657 657 /MO 4385 4386 7551 4407 PRIN12, FINT 4387 7552 7770 FPUT I (IF1 /SETUP TO CALL 'MOD' 4388 7553 0000 FEXT 4389 7554 4542 PUSHF 4390 7555 7303 F72 4391 7556 4545 POPF 4392 7557 6726 FLARG 4393 7560 4541 PUSHJ 4394 7561 5424 MOD1 4395 7562 3066 DCA ACSIGN /MAKE IT POSITIVE 4396 7563 4510 JMS I INTEGE 4397 7564 5767 JMP I (PRIN11 4398 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 97 4399 IFNZRO CONFIG < 4400 PAGE 4401 XLIST 4402 ENPUNCH 4403 > /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 98 4404 7567 3250 4405 7570 1376 4406 7571 7163 4407 7572 7255 4408 7573 1612 4409 7574 7300 4410 7575 4354 4411 7576 7136 4412 7577 7141 0001 FIELD 1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 98-1 0000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111001 0200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11011111 0400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0500 11111111 11111111 11111111 11111111 11111111 11111111 11100000 00011111 0600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11100001 2000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11011111 2200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11110111 2600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 10111111 3000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3300 11111111 11111111 11111111 11111111 11111111 11111111 11111110 11111111 3400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 98-2 4000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11101111 5600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111110 6000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11011111 6200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6300 11111111 11111111 11111111 11111111 11111111 11111111 11111100 00011111 6400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111101 7000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 7100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11000111 7200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 7300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 7400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 7500 11111111 11111111 11111111 11111111 11111111 11111111 11111001 11111111 7600 7700 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 98-3 4413 4414 6600 *6600 4415 P7600, 4416 4417 NOPUNCH 4418 0000 FIELD 0 4419 7600 *7600 /THIS WILL BE MOVED LATER 4420 ENPUNCH 4421 4422 7600 5356 JMP 7756 /FOR A MONITOR SYSTEM 4423 4424 /FIND OUT IF ANYONE HAS THE READER OR THE PUNCH 4425 7601 0000 RCHK, 0 4426 7602 1201 TAD RCHK 4427 7603 3206 DCA PUNCH 4428 7604 1124 TAD C10 4429 7605 7410 SKP 4430 7606 0000 PUNCH, 0 4431 7607 1124 TAD C10 4432 7610 3201 DCA RCHK /GET PROPER MASK 4433 7611 1106 TAD LOOKST 4434 7612 3073 DCA SORTCN 4435 7613 7410 SKP 4436 7614 2073 LKLOOP, ISZ SORTCN 4437 7615 1073 TAD SORTCN 4438 7616 1632 TAD I MMLOOKE 4439 7617 7740 SMA SZA CLA 4440 7620 5606 JMP I PUNCH /AINT NOBODY GOT IT 4441 7621 1201 TAD RCHK 4442 7622 0473 AND I SORTCN 4443 7623 7650 SNA CLA 4444 7624 5214 JMP LKLOOP 4445 7625 1106 TAD LOOKST 4446 7626 7041 CIA 4447 7627 1073 TAD SORTCN 4448 7630 2206 ISZ PUNCH 4449 7631 5606 JMP I PUNCH /GET HIS NUMBER INT THE AC AND EXIT. 4450 7632 0230 MMLOOKE, MLOOKE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 99 4451 /*RTL6* ROUTINE 4452 7633 0000 XRTL6, 0 4453 7634 7106 CLL RTL 4454 7635 7006 RTL 4455 7636 7006 RTL 4456 7637 5633 JMP I XRTL6 4457 /PAREN TEST ROUTINE 4458 7640 0000 PARTST, 0 4459 IFNZRO PARTS-PARTST 4460 / PARTST MUST BE AT LOC 7640 4461 / (SEE PARTS1 AND JMS NEAR PRINT4 AS TO WHY) 4462 7641 4543 POPA 4463 7642 3101 DCA LASTOP /SAVED BY *ECALL* 4464 7643 7344 L7776 4465 7644 1073 TAD SORTCN 4466 7645 7041 CIA 4467 7646 4543 POPA /CHECK MATCH 4468 7647 7640 SZA CLA 4469 7650 4551 ERR260, ERROR /NO MATCH 4470 7651 4535 GETC 4471 7652 5640 JMP I PARTST /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 100 4472 7653 7301 TAPE, L0001 4473 7654 3025 KKEY, DCA PT1 4474 7655 1075 TAD T2 4475 7656 4540 PUSHA /SAVE IT 4476 7657 4744 JMS I TRUN9 /WAIT FOR TTY TO DIE DOWN 4477 7660 1051 TAD TELSW 4478 7661 7640 SZA CLA 4479 7662 5257 JMP .-3 4480 7663 1025 TAD PT1 4481 7664 3034 DCA OUTPUT 4482 7665 4560 TSTCCR 4483 7666 4551 ERR003, ERROR /JUNK OF SOME SORT 4484 7667 4543 POPA 4485 7670 1345 TAD TDIF1 4486 7671 7450 SNA 4487 7672 5307 JMP LISTN 4488 7673 1346 TAD TDIF2 4489 7674 7640 SZA CLA 4490 7675 5502 JMP I AREADY /TAPE OR KEY COMMAND, NOT PUNCH OR PTR 4491 7676 6002 IOF 4492 7677 4201 JMS RCHK 4493 7700 7610 SKP CLA /FREE 4494 /SKP CLA = FOR PTR: PRESENT = SEE BEG118 4495 /0 FOR NO PTR: 4496 7701 4551 ERRNNN, ERROR /SOMEBODY ALREADY HAS READER OR PUNCH 4497 7702 1201 TAD RCHK /ASSIGN IT TO HIM 4498 7703 1505 TAD I LOOK 4499 7704 3505 DCA I LOOK 4500 7705 6014 RFC /AND START THE STUPID THING 4501 7706 5747 JMP I TSTART /IT WOULD BE USEFUL TO JUMP TO READY HERE 4502 4503 7707 6002 LISTN, IOF 4504 7710 4206 JMS PUNCH 4505 7711 7410 SKP /SKP CLA = FOR PTP: PRESENT - SEE BEGO11 4506 /O FOR NO PTP: 4507 7712 5301 JMP ERRNNN / ALREADY ASSIGNED 4508 7713 1201 TAD RCHK 4509 7714 1505 TAD I LOOK 4510 7715 3505 DCA I LOOK /GIVE IT TO HIM FOR A WHILE 4511 7716 6001 ION 4512 7717 5750 JMP I TLIST 4513 7720 3037 INPUTX, DCA DATAPC 4514 7721 1111 TAD CCR /AUTO-RESTORE 4515 7722 3043 DCA DATAPC+4 4516 7723 4563 COMMAN 4517 7724 1126 TAD M6 4518 7725 7510 SPA 4519 7726 5751 JMP I TFLOTRX /NOT IN STRAIGHT COMMANDS- TRY 4520 /RUN-TIME COMMAND 4521 7727 1352 TAD TCOMGO1 4522 7730 3074 DCA T1 4523 7731 6211 CDF SWAP 4524 7732 1474 TAD I T1 /GET ADDRESS OF COMMAND 4525 7733 6201 CDF 4526 7734 3074 DCA T1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 100-1 4527 7735 5474 JMP I T1 /AND GO TO IT... 4528 7736 0002 IF4, 2 /< 4529 7737 0006 6 /> 4530 7740 0012 12 /= 4531 7741 0005 5 /<= 4532 7742 0011 11 />= 4533 7743 0004 4 /<> 4534 4535 7744 2541 TRUN9, RUN9 4536 7745 6502 TDIF1, -LIST16 4537 7746 0004 TDIF2, -LIST15+LIST16 4538 7747 0473 TSTART, START 4539 7750 2246 TLIST, LIST 4540 7751 2545 TFLOTRX,FLOTRX 4541 7752 1542 TCOMGO1,COMGO1 4542 4543 7753 2045 TEN, 2045 4544 7754 0000 0 4545 7755 0000 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 101 4546 0001 FIELD 1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 101-1 0000 0100 0200 0300 0400 0500 0600 0700 1000 1100 1200 1300 1400 1500 1600 1700 2000 2100 2200 2300 2400 2500 2600 2700 3000 3100 3200 3300 3400 3500 3600 3700 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 101-2 4000 4100 4200 4300 4400 4500 4600 4700 5000 5100 5200 5300 5400 5500 5600 5700 6000 6100 6200 6300 6400 6500 6600 6700 7000 7100 7200 7300 7400 7500 7600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 7700 11111111 11111111 11111111 11111111 11111111 11111100 00000000 00000000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 101-3 4547 /PRECEDING THIS CODE IN FIELD 1 IS THE FOLLOWING: 4548 / CLA /ENTRY FROM INTERRUPT ROUTINE 4549 / 6XX5 /UNUSED CODES 4550 / . 4551 / . 4552 / . 4553 / JMP KL8INT 4554 / L0001 /ENTRY FROM SCHEDULER 4555 / 6XX6 /USED CODES 4556 / . 4557 / . 4558 / . 4559 / 4560 4561 7356 *7356 4562 KL8LOD, /LOADED HERE INITIALLY 4563 4564 NOPUNCH 4565 7756 *7756 4566 ENPUNCH 4567 4568 7756 7701 KL8FIX, CLA MQA 4569 7757 7001 IAC 4570 7760 7421 MQL 4571 7761 6203 CIF CDF /DISABLE INTRPT TEMPRARILY 4572 7762 1776 TAD I PLOOKS 4573 7763 3777 DCA I PLOOK 4574 7764 5765 JMP I .+1 /INTERRUPT ON AGAIN AFTER THIS JUMP 4575 7765 0213 KL8LF0 /BACK TO SCHEDULER 4576 4577 7766 1774 KL8INT, TAD I PSAVLK /RESTORE LINK 4578 7767 7104 CLL RAL 4579 7770 1775 TAD I PSAVAC /RESTORE AC 4580 7771 6203 CIF CDF 4581 7772 5773 JMP I .+1 4582 7773 5346 KL8LFL /BACK TO INTERRUPT ROUTINE 4583 4584 7774 5354 PSAVLK, SAVLK 4585 7775 5353 PSAVAC, SAVAC 4586 7776 0106 PLOOKS, LOOKST 4587 7777 0105 PLOOK, LOOK 4588 4589 0000 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 102 4590 IFNZRO CONFIG < 4591 NOPUNCH 4592 XLIST > /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 103 4593 0001 FIELD 1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 103-1 0000 0100 0200 0300 0400 0500 0600 0700 1000 1100 1200 1300 1400 1500 1600 1700 2000 2100 2200 2300 2400 2500 2600 2700 3000 3100 3200 3300 3400 3500 3600 3700 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 103-2 4000 4100 4200 4300 4400 4500 4600 4700 5000 5100 5200 5300 5400 5500 5600 5700 6000 6100 6200 6300 6400 6500 6600 6700 7000 7100 7200 7300 7400 7500 7600 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 7700 00000000 00000000 00000000 00000000 00000000 00000011 11111111 11111111 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 103-3 4594 4595 0017 *17 4596 0017 0000 FXR2, 0000 4597 0020 0000 OPSIGN, 0 /OPERAND SIGN 4598 0021 0000 OPEXP, 0 /OPERAND EXPONENT 4599 0022 0000 OP3, 0 /OPERAND 4600 0023 0000 OP2, 0 4601 0024 0000 OP1, 0 4602 0025 0000 OVER, 0 /OVERFLOW INTO HERE 4603 0026 0000 FFLAG, 0 /=-1 IF OP NOT 0 4604 4027 OERROR=JMS . 4605 0027 0000 XERR, 0000 4606 0030 7200 CLA 4607 0031 1027 TAD XERR 4608 0032 6203 CDI0, CIF CDF 4609 0033 3435 DCA I .+2 4610 0034 5436 JMP I .+2 4611 0035 3532 XERROR 4612 0036 3533 XERROR+1 4613 4614 0037 0600 OFNORM, FNORM 4615 0040 0007 O7, 7 4616 0041 0200 O200, 200 4617 0042 0177 O177, 177 4618 0043 0377 O377, 377 4619 0044 1600 O1600, 1600 4620 0045 7774 OM4, -4 4621 0046 7770 OM10, -10 4622 0047 0000 OCNTR, 0000 4623 0050 0460 OOCTAD, OCTADD 4624 0051 0000 MULTMP, 0000 4625 0052 0203 OFLOOP, FLOOP 4626 0053 0066 OACSGN, ACSIGN 4627 0054 0067 OACEXP, ACEXP 4628 0055 0070 OAC3, AC3 4629 0056 0071 OAC2, AC2 4630 0057 0072 OAC1, AC1 4631 0060 6725 ODECXP, DECEXP 4632 4633 4634 0120 *120 4635 0120 1136 F1CAL1, TAD AADR 4636 0121 3027 DCA XERR 4637 0122 1427 TAD I XERR 4638 0123 3017 DCA FXR2 4639 0124 1137 TAD ARET 4640 0125 3417 DCA I FXR2 4641 0126 6201 CDF 4642 0127 5417 JMP I FXR2 4643 4644 0130 6203 F1RET, CIF CDF 4645 0131 3047 DCA OCNTR 4646 0132 1540 TAD I F0RET 4647 0133 3027 DCA XERR 4648 0134 1047 TAD OCNTR /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 103-4 4649 0135 5427 JMP I XERR 4650 4651 0136 0144 AADR, ADRLST+3 4652 0137 0130 ARET, F1RET 4653 0140 5410 F0RET, F1CALL 4654 4655 0141 0751 ADRLST, MULT10-1 4656 0142 0646 AL1-1 4657 0143 1642 FIXUP-1 4658 0144 0727 NFIX-1 4659 0145 0343 HIGHWD-1 4660 4661 4662 0146 4557 DECON1, JMS I AMULT 4663 0147 3024 DCA OP1 4664 0150 3023 DCA OP2 4665 0151 1560 TAD I ASORT 4666 0152 3022 DCA OP3 4667 0153 4561 JMS I AOADD 4668 0154 6202 CIF 4669 0155 5556 JMP I .+1 4670 0156 6331 DECON2 4671 4672 0157 0752 AMULT, MULT10 4673 0160 0073 ASORT, SORTCN 4674 0161 0442 AOADD, OADD 4675 4676 0162 7330 FPSUB, L4000 4677 0163 1020 TAD OPSIGN 4678 0164 3020 DCA OPSIGN 4679 0165 4450 FPADD, JMS I OOCTAD 4680 0166 5452 JMP I OFLOOP 4681 4682 0167 5670 QLIS2, QCOMCK-1 /, 4683 0170 5643 QNEXTC-1 /' 4684 0171 5660 QUOCHK-1 /" 4685 0172 5674 QDONE-1 /CR 4686 0173 5643 QLIS1, QNEXTC-1 /\ , 4687 0174 5643 QNEXTC-1 /' 4688 0175 5643 QNEXTC-1 /" 4689 0176 5674 QDONE-1 /CR 4690 0177 5643 QNEXTC-1 /\ 4691 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 104 4692 /RUNS IN DATA FIELD 0!! ALWAYS!!! 4693 0200 *200 4694 0200 0000 FPNT, 0 /ENTRY POINT 4695 0201 7600 C7600, 7600 4696 0202 5205 JMP .+3 4697 0203 4437 FLOOP, JMS I OFNORM /NORMALIZE RESULT 4698 0204 2200 ISZ FPNT /GET NEXT 4699 0205 6202 CIF /CHANGE TO CALLER'S FIELD 4700 0206 1600 TAD I FPNT /GET OPERATION 4701 0207 7450 SNA 4702 0210 5600 JMP I FPNT /0000 -> EXIT 4703 0211 6212 CIF SWAP 4704 0212 7006 RTL 4705 0213 7006 RTL 4706 0214 0040 AND O7 4707 0215 3270 DCA FGOTO /SAVE OP 4708 0216 1600 TAD I FPNT 4709 0217 0041 AND O200 4710 0220 7650 SNA CLA 4711 0221 5224 JMP FPNT1 /PAGE ZERO MODE 4712 0222 1200 TAD FPNT 4713 0223 0201 AND C7600 /GET PAGE 4714 0224 3301 FPNT1, DCA FADDR 4715 0225 1600 TAD I FPNT 4716 0226 0042 AND O177 4717 0227 1301 TAD FADDR 4718 0230 3301 DCA FADDR /GET ADDRESS 4719 0231 7420 SNL 4720 0232 5235 JMP FPNT2 4721 0233 1701 TAD I FADDR /DO INDIRECT 4722 0234 3301 DCA FADDR 4723 0235 7330 FPNT2, L4000 4724 0236 0701 AND I FADDR 4725 0237 3020 DCA OPSIGN /SET SIGN 4726 0240 1701 TAD I FADDR 4727 0241 7640 SZA CLA 4728 0242 7340 L7777 4729 0243 3026 DCA FFLAG /=1 IF NOT 0 4730 0244 1701 TAD I FADDR 4731 0245 7012 RTR 4732 0246 7010 RAR 4733 0247 0043 AND O377 4734 0250 3021 DCA OPEXP /SET EXP 4735 0251 1701 TAD I FADDR 4736 0252 0040 AND O7 4737 0253 3024 DCA OP1 /SET WORDS 4738 0254 2301 ISZ FADDR 4739 0255 1701 TAD I FADDR 4740 0256 3023 DCA OP2 4741 0257 2301 ISZ FADDR 4742 0260 1701 TAD I FADDR 4743 0261 3022 DCA OP3 4744 0262 7346 L7775 4745 0263 1301 TAD FADDR 4746 0264 3017 DCA FXR2 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 104-1 4747 0265 1270 FPNT3, TAD FGOTO 4748 0266 1377 TAD (JMP I FJUMP 4749 0267 3270 DCA .+1 /FIND OP ADDRESS 4750 0270 7402 FGOTO, HLT 4751 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 105 4752 0271 0331 FJUMP, FPGET 4753 0272 0165 FPADD 4754 0273 0162 FPSUB 4755 0274 0531 FPMUL 4756 0275 0662 FPDIV 4757 0276 0302 FPJMP 4758 0277 0306 FPCMP 4759 0300 0322 FPPUT 4760 4761 0301 0000 FADDR, 0 4762 0302 7344 FPJMP, L7776 /FLOATING JUMP 4763 0303 1301 TAD FADDR 4764 0304 3200 DCA FPNT 4765 0305 5205 JMP FLOOP+2 4766 4767 0306 1600 FPCMP, TAD I FPNT 4768 0307 7006 RTL 4769 0310 7006 RTL 4770 0311 7730 SZL SPA CLA 4771 0312 5356 JMP FPNT4 /FLOATING COMPARE 4772 0313 1600 TAD I FPNT 4773 0314 1044 TAD O1600 4774 0315 3317 DCA .+2 /SET SKIP WORD 4775 0316 4344 JMS HIGHWD /GET WORD 4776 0317 7402 HLT /SKIP IF FALSE 4777 0320 2200 ISZ FPNT /TRUE => SKIP 4778 0321 5203 JMP FLOOP 4779 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 106 4780 0322 4344 FPPUT, JMS HIGHWD 4781 0323 3417 DCA I FXR2 /SET WORD 1 4782 0324 1456 TAD I OAC2 4783 0325 3417 DCA I FXR2 /SET WORD 2 4784 0326 1455 TAD I OAC3 4785 0327 3417 DCA I FXR2 /SET WORD 3 4786 0330 5204 JMP FLOOP+1 4787 4788 0331 1020 FPGET, TAD OPSIGN 4789 0332 3453 DCA I OACSGN /TRANSFER INTO FLAC 4790 0333 1021 TAD OPEXP 4791 0334 3454 DCA I OACEXP 4792 0335 1024 TAD OP1 4793 0336 3457 DCA I OAC1 4794 0337 1023 TAD OP2 4795 0340 3456 DCA I OAC2 4796 0341 1022 TAD OP3 4797 0342 3455 DCA I OAC3 4798 0343 5204 JMP FLOOP+1 4799 4800 0344 0000 HIGHWD, 0 4801 0345 1454 TAD I OACEXP 4802 0346 7104 CLL RAL 4803 0347 7500 SMA 4804 0350 7106 CLL RTL 4805 0351 7530 SPA SZL 4806 0352 4027 ERR040, OERROR /OVERFLOW 4807 0353 1453 TAD I OACSGN 4808 0354 1457 TAD I OAC1 /FORM WORD 4809 0355 5744 JMP I HIGHWD 4810 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 107 4811 0356 7330 FPNT4, L4000 4812 0357 1020 TAD OPSIGN 4813 0360 3020 DCA OPSIGN 4814 0361 4450 JMS I OOCTAD 4815 0362 1457 TAD I OAC1 4816 0363 7450 SNA 4817 0364 1456 TAD I OAC2 4818 0365 7640 SZA CLA 4819 0366 5203 JMP FLOOP 4820 0367 1455 TAD I OAC3 4821 0370 0045 AND OM4 4822 0371 7640 SZA CLA 4823 0372 5203 JMP FLOOP 4824 0373 5776 JMP I (MULCLR 4825 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 108 4826 0376 0571 4827 0377 5671 0400 PAGE 4828 4829 0400 0000 AR1, 0 4830 0401 1457 TAD I OAC1 4831 0402 7110 CLL RAR 4832 0403 3457 DCA I OAC1 4833 0404 1456 TAD I OAC2 4834 0405 7010 RAR 4835 0406 3456 DCA I OAC2 4836 0407 1455 TAD I OAC3 4837 0410 7010 RAR 4838 0411 3455 DCA I OAC3 4839 0412 7010 RAR 4840 0413 3025 DCA OVER 4841 0414 5600 JMP I AR1 4842 4843 0415 0000 OACN, 0 4844 0416 1215 TAD OACN 4845 0417 3222 DCA ACN 4846 0420 1055 TAD OAC3 4847 0421 5225 JMP ACN+3 4848 4849 0422 0000 ACN, 0 4850 0423 6211 CDF SWAP 4851 0424 1377 TAD (OP3 4852 0425 3242 DCA OADD 4853 0426 7346 L7775 4854 0427 3200 DCA AR1 4855 0430 1642 TAD I OADD 4856 0431 7040 CMA 4857 0432 7430 SZL 4858 0433 7101 CLL IAC 4859 0434 3642 DCA I OADD 4860 0435 2242 ISZ OADD 4861 0436 2200 ISZ AR1 4862 0437 5230 JMP .-7 4863 0440 6201 CDF 4864 0441 5622 JMP I ACN 4865 4866 0442 0000 OADD, 0 4867 0443 7100 CLL 4868 0444 1455 TAD I OAC3 4869 0445 1022 TAD OP3 4870 0446 3455 DCA I OAC3 4871 0447 7004 RAL 4872 0450 1456 TAD I OAC2 4873 0451 1023 TAD OP2 4874 0452 3456 DCA I OAC2 4875 0453 7004 RAL 4876 0454 1457 TAD I OAC1 4877 0455 1024 TAD OP1 4878 0456 3457 DCA I OAC1 4879 0457 5642 JMP I OADD /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 108-1 4880 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 109 4881 0460 0000 OCTADD, 0 4882 0461 2026 ISZ FFLAG 4883 0462 5660 JMP I OCTADD 4884 0463 1454 TAD I OACEXP 4885 0464 7141 CLL CIA 4886 0465 1021 TAD OPEXP 4887 0466 7430 SZL 4888 0467 5305 JMP BCKWDS 4889 0470 3242 DCA OADD 4890 0471 1024 ALGNLP, TAD OP1 4891 0472 7110 CLL RAR 4892 0473 3024 DCA OP1 4893 0474 1023 TAD OP2 4894 0475 7010 RAR 4895 0476 3023 DCA OP2 4896 0477 1022 TAD OP3 4897 0500 7010 RAR 4898 0501 3022 DCA OP3 4899 0502 2242 ISZ OADD 4900 0503 5271 JMP ALGNLP 4901 0504 5315 JMP SETSGN 4902 4903 0505 7040 BCKWDS, CMA 4904 0506 3242 DCA OADD 4905 0507 1021 TAD OPEXP 4906 0510 3454 DCA I OACEXP 4907 0511 7410 SKP 4908 0512 4200 JMS AR1 4909 0513 2242 ISZ OADD 4910 0514 5312 JMP .-2 4911 0515 1453 SETSGN, TAD I OACSGN 4912 0516 1020 TAD OPSIGN 4913 0517 7710 SPA CLA 4914 0520 4222 JMS ACN 4915 0521 4242 JMS OADD 4916 0522 1457 TAD I OAC1 4917 0523 7700 SMA CLA 4918 0524 5660 JMP I OCTADD 4919 0525 4215 JMS OACN 4920 0526 1020 TAD OPSIGN 4921 0527 3453 DCA I OACSGN 4922 0530 5660 JMP I OCTADD 4923 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 110 4924 0531 2026 FPMUL, ISZ FFLAG 4925 0532 5371 JMP MULCLR 4926 0533 1453 TAD I OACSGN 4927 0534 1020 TAD OPSIGN 4928 0535 3453 DCA I OACSGN 4929 0536 1454 TAD I OACEXP 4930 0537 1021 TAD OPEXP 4931 0540 1376 TAD (-201 4932 0541 3454 DCA I OACEXP 4933 0542 1457 TAD I OAC1 4934 0543 3020 DCA OPSIGN 4935 0544 1456 TAD I OAC2 4936 0545 3021 DCA OPEXP 4937 0546 1455 TAD I OAC3 4938 0547 3051 DCA MULTMP 4939 0550 1375 TAD (-33 4940 0551 3047 DCA OCNTR 4941 0552 4200 MPYLUP, JMS AR1 4942 0553 1020 TAD OPSIGN 4943 0554 7010 RAR 4944 0555 3020 DCA OPSIGN 4945 0556 1021 TAD OPEXP 4946 0557 7010 RAR 4947 0560 3021 DCA OPEXP 4948 0561 1051 TAD MULTMP 4949 0562 7010 RAR 4950 0563 3051 DCA MULTMP 4951 0564 7430 SZL 4952 0565 4242 JMS OADD 4953 0566 2047 ISZ OCNTR 4954 0567 5352 JMP MPYLUP 4955 0570 5452 JMP I OFLOOP 4956 4957 0571 3457 MULCLR, DCA I OAC1 4958 0572 4774 JMS I (NFIX 4959 0573 5452 JMP I OFLOOP 4960 4961 0574 0730 4962 0575 7745 4963 0576 7577 4964 0577 0022 0600 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 111 4965 4966 0600 0000 FNORM, 0 4967 0601 3025 DCA OVER 4968 0602 1457 TAD I OAC1 4969 0603 1046 TAD OM10 4970 0604 7710 SPA CLA 4971 0605 5211 JMP NOTBIG 4972 0606 4777 JMS I (AR1 4973 0607 2454 ISZ I OACEXP 4974 0610 5202 JMP FNORM+2 4975 0611 1025 NOTBIG, TAD OVER 4976 0612 7700 SMA CLA 4977 0613 5223 JMP NOBUMP 4978 0614 2455 ISZ I OAC3 4979 0615 5223 JMP NOBUMP 4980 0616 2456 ISZ I OAC2 4981 0617 5223 JMP NOBUMP 4982 0620 2457 ISZ I OAC1 4983 0621 5201 JMP FNORM+1 4984 4985 0622 7340 L7777 4986 0623 1454 NOBUMP, TAD I OACEXP 4987 0624 7510 SPA 4988 0625 5235 JMP UNDERF /UNDERFLOW OR ZERO 4989 0626 3454 DCA I OACEXP 4990 0627 7346 L7775 4991 0630 1457 TAD I OAC1 4992 0631 7740 SMA SZA CLA 4993 0632 5600 JMP I FNORM 4994 0633 4247 JMS AL1 4995 0634 5222 JMP NOBUMP-1 4996 4997 0635 7770 UNDERF, SPA SNA SZL CLA 4998 0636 1457 TAD I OAC1 4999 0637 7450 SNA 5000 0640 1456 TAD I OAC2 5001 0641 7450 SNA 5002 0642 1455 TAD I OAC3 5003 0643 7640 SZA CLA 5004 0644 4027 ERR050, OERROR /UNDERFLOW 5005 0645 4330 JMS NFIX 5006 0646 5600 JMP I FNORM 5007 5008 0647 0000 AL1, 0 5009 0650 1455 TAD I OAC3 5010 0651 7104 CLL RAL 5011 0652 3455 DCA I OAC3 5012 0653 1456 TAD I OAC2 5013 0654 7004 RAL 5014 0655 3456 DCA I OAC2 5015 0656 1457 TAD I OAC1 5016 0657 7004 RAL 5017 0660 3457 DCA I OAC1 5018 0661 5647 JMP I AL1 5019 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 111-1 5020 0662 2026 FPDIV, ISZ FFLAG 5021 0663 4027 ERR030, OERROR 5022 0664 1453 TAD I OACSGN 5023 0665 1020 TAD OPSIGN 5024 0666 3453 DCA I OACSGN 5025 0667 1021 TAD OPEXP 5026 0670 7041 CIA 5027 0671 1454 TAD I OACEXP 5028 0672 1376 TAD (177 5029 0673 3454 DCA I OACEXP 5030 0674 3047 DCA OCNTR 5031 0675 1375 TAD (-35 5032 0676 3200 DCA FNORM 5033 0677 7330 DIVLP, L4000 5034 0700 0024 AND OP1 5035 0701 1457 TAD I OAC1 5036 0702 7700 SMA CLA 5037 0703 4774 JMS I (ACN 5038 0704 4773 JMS I (OADD 5039 0705 1047 TAD OCNTR 5040 0706 7004 RAL 5041 0707 3047 DCA OCNTR 5042 0710 1021 TAD OPEXP 5043 0711 7004 RAL 5044 0712 3021 DCA OPEXP 5045 0713 1020 TAD OPSIGN 5046 0714 7004 RAL 5047 0715 3020 DCA OPSIGN 5048 0716 4247 JMS AL1 5049 0717 2200 ISZ FNORM 5050 0720 5277 JMP DIVLP 5051 0721 1020 TAD OPSIGN 5052 0722 3457 DCA I OAC1 5053 0723 1021 TAD OPEXP 5054 0724 3456 DCA I OAC2 5055 0725 1047 TAD OCNTR 5056 0726 3455 DCA I OAC3 5057 0727 5772 JMP I (FLOOP 5058 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 112 5059 0730 0000 NFIX, 0 5060 0731 1457 TAD I OAC1 5061 0732 7650 SNA CLA 5062 0733 5343 JMP ZFIXEX 5063 0734 1454 FIXLUP, TAD I OACEXP 5064 0735 1371 TAD (-233 5065 0736 7700 SMA CLA 5066 0737 5350 JMP FIXEXT 5067 0740 4777 JMS I (AR1 5068 0741 2454 ISZ I OACEXP 5069 0742 5334 JMP FIXLUP 5070 0743 3454 ZFIXEX, DCA I OACEXP 5071 0744 3453 DCA I OACSGN 5072 0745 3457 DCA I OAC1 5073 0746 3456 DCA I OAC2 5074 0747 3455 DCA I OAC3 5075 0750 1455 FIXEXT, TAD I OAC3 5076 0751 5730 JMP I NFIX 5077 5078 0752 0000 MULT10, 0 5079 0753 4247 JMS AL1 5080 0754 1455 TAD I OAC3 5081 0755 3022 DCA OP3 5082 0756 1456 TAD I OAC2 5083 0757 3023 DCA OP2 5084 0760 1457 TAD I OAC1 5085 0761 3024 DCA OP1 5086 0762 4247 JMS AL1 5087 0763 4247 JMS AL1 5088 0764 4773 JMS I (OADD 5089 0765 5752 JMP I MULT10 5090 0771 7545 5091 0772 0203 5092 0773 0442 5093 0774 0422 5094 0775 7743 5095 0776 0177 5096 0777 0400 1000 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 113 5097 STMV, 5098 5099 /USER FIELD DEFINITIONS 5100 5101 1000 7745 7745 /CR,E 5102 1001 6262 6262 /RR 5103 1002 5762 5762 /OR 5104 1003 5156 5156 /IN 5105 1004 7762 7762 /CR,R 5106 1005 4541 4541 /EA 5107 1006 4471 4471 /DY 5108 1007 7777 7777 /CR,CR 5109 1010 4445 4445 /DE 5110 1011 5445 5445 /LE 5111 1012 6445 6445 /TE 5112 1013 4477 4477 /D,CR 5113 1014 6750 6750 /WH 5114 1015 4164 4164 /AT 5115 1016 3777 3777 /?,CR 5116 1017 7763 7763 /CR,S 5117 1020 6457 6457 /TO 5118 1021 6077 6077 /P,CR 5119 0022 CONLEN=.-STMV 5120 5121 5122 1022 6630 LINPUT 5123 1023 6357 RANDOM 5124 1024 1607 END 5125 1025 4267 ON 5126 1026 0462 READY /STOP 5127 1027 5565 COMGOL, RESTOR 5128 1030 1114 READ 5129 1031 2451 RETURN 5130 1032 4254 GOSUB 5131 1033 1416 FOR 5132 1034 2454 XPOPJ /DEF 5133 1035 2454 XPOPJ /DIM AND REM 5134 1036 1257 GOTO 5135 1037 1177 IF 5136 1040 0775 INPUT 5137 1041 5471 PRINT 5138 1042 2454 XPOPJ /DATA 5139 1043 1417 LET 5140 1044 2374 NEXT 5141 1045 1564 UNKWN 5142 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 114 5143 1046 2022 LIST7, 2022 5144 1047 1051 LIST70 5145 1050 2021 -"O+337^100-"N+337 5146 5147 1051 2134 LIST70, 2134 5148 1052 1055 LIST71 5149 1053 1413 -"S+337^100-"T+337 5150 1054 2017 -"O+337^100-"P+337 5151 5152 1055 1733 LIST71, 1733 5153 1056 1061 LIST72 5154 1057 3221 -"E+337^100-"N+337 5155 1060 3300 -"D+337^100 5156 5157 1061 2237 LIST72, 2237 5158 1062 1067 LIST73 5159 1063 1532 -"R+337^100-"E+337 5160 1064 1413 -"S+337^100-"T+337 5161 1065 2015 -"O+337^100-"R+337 5162 1066 3200 -"E+337^100 5163 5164 1067 2334 LIST73, 2334 5165 1070 1073 LIST74 5166 1071 1532 -"R+337^100-"E+337 5167 1072 3633 -"A+337^100-"D+337 5168 5169 1073 2436 LIST74, 2436 5170 1074 1100 LIST75 5171 1075 1532 -"R+337^100-"E+337 5172 1076 1312 -"T+337^100-"U+337 5173 1077 1521 -"R+337^100-"N+337 5174 5175 1100 2535 LIST75, 2535 5176 1101 1105 LIST76 5177 1102 3020 -"G+337^100-"O+337 5178 1103 1412 -"S+337^100-"U+337 5179 1104 3500 -"B+337^100 5180 5181 1105 2633 LIST76, 2633 5182 1106 1111 LIST77 5183 1107 3120 -"F+337^100-"O+337 5184 1110 1500 -"R+337^100 5185 5186 1111 2733 LIST77, 2733 5187 1112 1115 LIST78 5188 1113 3332 -"D+337^100-"E+337 5189 1114 3100 -"F+337^100 5190 5191 1115 3033 LIST78, 3033 5192 1116 1121 LIST79 5193 1117 3326 -"D+337^100-"I+337 5194 1120 2200 -"M+337^100 5195 5196 1121 3033 LIST79, 3033 5197 1122 1125 LIST80 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 114-1 5198 1123 1532 -"R+337^100-"E+337 5199 1124 2200 -"M+337^100 5200 5201 1125 1636 LIST80, 1636 5202 1126 1132 LIST81 5203 1127 1536 -"R+337^100-"A+337 5204 1130 2133 -"N+337^100-"D+337 5205 1131 2022 -"O+337^100-"M+337 5206 5207 1132 3134 LIST81, 3134 5208 1133 1136 LIST82 5209 1134 3020 -"G+337^100-"O+337 5210 1135 1320 -"T+337^100-"O+337 5211 5212 1136 3222 LIST82, 3222 5213 1137 1141 LIST83 5214 1140 2631 -"I+337^100-"F+337 5215 5216 1141 3335 LIST83, 3335 5217 1142 1146 LIST84 5218 1143 2621 -"I+337^100-"N+337 5219 1144 1712 -"P+337^100-"U+337 5220 1145 1300 -"T+337^100 5221 5222 1146 3435 LIST84, 3435 5223 1147 1153 LIST85 5224 1150 1715 -"P+337^100-"R+337 5225 1151 2621 -"I+337^100-"N+337 5226 1152 1300 -"T+337^100 5227 5228 1153 3534 LIST85, 3534 5229 1154 1157 LIST86 5230 1155 3336 -"D+337^100-"A+337 5231 1156 1336 -"T+337^100-"A+337 5232 5233 1157 3633 LIST86, 3633 5234 1160 1163 LIST87 5235 1161 2332 -"L+337^100-"E+337 5236 1162 1300 -"T+337^100 5237 5238 1163 3734 LIST87, 3734 5239 1164 1167 LIST88 5240 1165 2132 -"N+337^100-"E+337 5241 1166 0713 -"X+337^100-"T+337 5242 5243 1167 4133 LIST88, 4133 5244 1170 1173 LIST89 5245 1171 1336 -"T+337^100-"A+337 5246 1172 3500 -"B+337^100 5247 5248 1173 4234 LIST89, 4234 5249 1174 1177 LIST90 5250 1175 1413 -"S+337^100-"T+337 5251 1176 3217 -"E+337^100-"P+337 5252 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 114-2 5253 1177 4334 LIST90, 4334 5254 1200 1203 LIST91 5255 1201 1327 -"T+337^100-"H+337 5256 1202 3221 -"E+337^100-"N+337 5257 5258 1203 4422 LIST91, 4422 5259 1204 1206 LIST92 5260 1205 1320 -"T+337^100-"O+337 5261 5262 1206 4522 LIST92, 4522 5263 1207 1211 LIST93 5264 1210 3121 -"F+337^100-"N+337 5265 5266 1211 4634 LIST93, 4634 5267 1212 1215 LIST94 5268 1213 2326 -"L+337^100-"I+337 5269 1214 1413 -"S+337^100-"T+337 5270 5271 1215 5033 LIST94, 5033 5272 1216 1221 LIST95 5273 1217 3506 -"B+337^100-"Y+337 5274 1220 3200 -"E+337^100 5275 5276 1221 5033 LIST95, 5033 5277 1222 1225 LIST96 5278 1223 2132 -"N+337^100-"E+337 5279 1224 1000 -"W+337^100 5280 5281 1225 5037 LIST96, 5037 5282 1226 1233 LIST97 5283 1227 1434 -"S+337^100-"C+337 5284 1230 1536 -"R+337^100-"A+337 5285 1231 1334 -"T+337^100-"C+337 5286 1232 2700 -"H+337^100 5287 5288 1233 5136 LIST97, 5136 5289 1234 1240 LIST98 5290 1235 3332 -"D+337^100-"E+337 5291 1236 2332 -"L+337^100-"E+337 5292 1237 1332 -"T+337^100-"E+337 5293 5294 1240 5234 LIST98, 5234 5295 1241 1244 LIST99 5296 1242 3233 -"E+337^100-"D+337 5297 1243 2613 -"I+337^100-"T+337 5298 5299 1244 5333 LIST99, 5333 5300 1245 1250 LIST10 5301 1246 2432 -"K+337^100-"E+337 5302 1247 0600 -"Y+337^100 5303 5304 1250 5434 LIST10, 5434 5305 1251 1254 LIST11 5306 1252 1336 -"T+337^100-"A+337 5307 1253 1732 -"P+337^100-"E+337 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 114-3 5308 5309 1254 5533 LIST11, 5533 5310 1255 1260 LIST12 5311 1256 1512 -"R+337^100-"U+337 5312 1257 2100 -"N+337^100 5313 5314 1260 3011 LIST12, 3011 5315 1261 1263 LIST13 5316 1262 7000 -"'+337^100 5317 5318 1263 4711 LIST13, 4711 5319 1264 1266 LIST14 5320 1265 0000 -"_+337^100 5321 5322 1266 4134 LIST14, 4134 5323 1267 1272 LIST15 5324 1270 3427 -"C+337^100-"H+337 5325 1271 1573 -"R+337^100-"$+337 5326 5327 1272 5433 LIST15, 5433 5328 1273 1276 LIST16 5329 1274 1713 -"P+337^100-"T+337 5330 1275 1500 -"R+337^100 5331 5332 1276 5433 LIST16, 5433 5333 1277 1302 LIST17 5334 1300 1713 -"P+337^100-"T+337 5335 1301 1700 -"P+337^100 5336 5337 1302 1536 LIST17, 1536 5338 1303 0000 A0000, 0000 5339 1304 2326 -"L+337^100-"I+337 5340 1305 2117 -"N+337^100-"P+337 5341 1306 1213 -"U+337^100-"T+337 5342 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 115 5343 1307 0000 INTR8A, 0 /AC SAVE 5344 1310 0000 INTR8F, 0 /FLAGS SAVE 5345 5346 1311 6007 INTRRV, CAF /CLEAR ALL ON RECOVERY 5347 1312 6203 AAACDF, CIF CDF 5348 1313 1345 TAD PST2 5349 1314 3354 DCA INTR81 /SECOND SETUP 5350 1315 1746 TAD I PAUSER 5351 1316 6117 MTON 5352 1317 5747 JMP I INTR8T 5353 1320 7200 INTRV2, CLA 5354 1321 1350 TAD RESTR 5355 1322 3354 DCA INTR81 /NORMAL INTERUPT SEQUENCE 5356 1323 1310 TAD INTR8F 5357 1324 7006 RTL 5358 1325 7004 RAL 5359 1326 0352 AND P70 5360 1327 1312 TAD AAACDF 5361 1330 3340 DCA INTR88 5362 1331 1310 TAD INTR8F 5363 1332 0352 AND P70 5364 1333 1374 TAD CCIF 5365 1334 3341 DCA INTR89 5366 1335 1310 TAD INTR8F 5367 1336 7004 RAL 5368 1337 7200 CLA 5369 1340 6201 INTR88, CDF 5370 1341 6202 INTR89, CIF 5371 1342 1307 TAD INTR8A /AND AC 5372 1343 6001 ION 5373 1344 5753 JMP I INTR80 /AND EXIT 5374 5375 1345 5320 PST2, JMP INTRV2 5376 1346 5363 PAUSER, AUSER 5377 1347 5170 INTR8T, INTRPL 5378 1350 3307 RESTR, DCA INTR8A 5379 1351 5311 SET, JMP INTRRV 5380 1352 0070 P70, 70 5381 1353 0000 INTR80, 0 /INTERRUPT LOCATION 5382 5383 1354 3307 INTR81, DCA INTR8A /SAVE AC 5384 1355 6634 6634 /READ CARD READER AND CLEAR FLAG 5385 1356 6674 6674 /AND CARD DONE FLAG 5386 1357 7200 CLA /AND CLEAR THE AC 5387 1360 6102 SPL /POWER FAIL INTERRUPT? 5388 1361 5373 JMP INTR82 /NO 5389 1362 7010 RAR 5390 1363 6234 RIB 5391 1364 3310 DCA INTR8F /AND FLAGS 5392 1365 1703 TAD I A0000 5393 1366 3353 DCA INTR80 /AND LOCATION 5394 1367 3703 DCA I A0000 5395 1370 1351 TAD SET 5396 1371 3354 DCA INTR81 /SET UP FOR RECOVERY 5397 1372 7402 HLT /THEN HALT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 115-1 5398 1373 1307 INTR82, TAD INTR8A /GET THE AC AGAIN 5399 1374 6202 CCIF, CIF 5400 1375 5776 JMP I .+1 /GO TO REAL INTRRUPT ROUTINE 5401 1376 5203 INTRPT 5402 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 116 5403 1377 2230 MODL2, MODF5-1 /CR 5404 1400 2206 MODF2-1 /BELL 5405 1401 2222 MODF4-1 /RUBOUT 5406 1402 2222 MODF4-1 /_ 5407 1403 2213 MODF1 /CHAR 5408 1404 2212 MODF1-1 /FORM 5409 1405 2210 MODF3-1 /LINE FEED 5410 1406 4074 XGETL2, XGET5-1 /CR 5411 1407 4071 XGET4-1 /BELL 5412 1410 4065 XGET3-1 /SPACE 5413 1411 3201 PRNTL6, PRINT8-1 /; 5414 1412 3323 PRINT5-4 /, 5415 1413 3174 PRINT6-4 /' 5416 1414 3202 PRINT8 /" 5417 1415 3174 PRINT6-4 /CR 5418 1416 3174 PRINT6-4 /\ 5419 5420 1417 3323 PRNTL2, PRINT5-4 /, 5421 1420 3177 PRINT6-1 /' 5422 1421 3310 PRINT2-1 /" 5423 1422 3177 PRINT6-1 /CR 5424 1423 3177 PRINT6-1 /\ 5425 1424 3320 PRNTL8, PRINT3-1 /" 5426 1425 3174 PRINT6-4 /CR 5427 1426 3316 PRINT3-3 / \ MUST BE PRINTABLE 5428 1427 2230 MODL1, MODF5-1 /CR 5429 1430 2220 MODF1+5 /BELL 5430 1431 0647 AL1PNT, AL1 /SPACE OUT MODL1 LIST 5431 1432 0442 OADDP, OADD / 5432 1433 2222 MODF4-1 /CHAR 5433 1434 3626 XPAKL2, XPACK2-1 /CR 5434 1435 3627 XPACK3-1 /BELL 5435 1436 3636 XPACK7-1 /RUBOUT 5436 1437 3636 XPACK7-1 /* 5437 1440 3625 XPACK5-1 /@ 5438 1441 7662 FUNL2, -"N+200 /SIN 5439 1442 7655 -"S+200 /COS 5440 1443 7662 -"N+200 /ATN 5441 1444 7660 -"P+200 /EXP 5442 1445 7671 -"G+200 /LOG 5443 1446 7655 -"S+200 /ABS 5444 1447 7656 -"R+200 /SQR 5445 1450 7662 -"N+200 /SGN 5446 1451 7654 -"T+200 /INT 5447 1452 7674 -"D+200 /RND 5448 1453 7650 -"X+200 /FIX 5449 1454 7662 -"N+200 /TAN 5450 1455 7674 -"D+200 /MID 5451 1456 7654 -"T+200 /CAT 5452 1457 7662 -"N+200 /LEN 5453 1460 7674 -"D+200 /MOD 5454 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 117 5455 5456 1461 4631 RND1, JMS I AL1PNT 5457 1462 4632 JMS I OADDP 5458 1463 1716 TAD I PFRND 5459 1464 7006 RTL 5460 1465 7006 RTL 5461 1466 7006 RTL 5462 1467 3717 DCA I PFRNX 5463 1470 1717 TAD I PFRNX 5464 1471 7010 RAR 5465 1472 1456 TAD I OAC2 5466 1473 0320 AND RNDM40 5467 1474 3721 DCA I PFRND1 5468 1475 7004 RAL 5469 1476 1457 TAD I OAC1 5470 1477 1717 TAD I PFRNX 5471 1500 3717 DCA I PFRNX 5472 1501 1455 TAD I OAC3 5473 1502 3716 DCA I PFRND 5474 1503 1041 TAD O200 5475 1504 3454 DCA I OACEXP 5476 1505 3453 DCA I OACSGN 5477 1506 1717 TAD I PFRNX 5478 1507 0040 AND O7 5479 1510 3457 DCA I OAC1 5480 1511 1721 TAD I PFRND1 5481 1512 3456 DCA I OAC2 5482 1513 6202 CIF 5483 1514 5715 JMP I .+1 5484 1515 2454 XPOPJ 5485 1516 0065 PFRND, FRNDX+2 5486 1517 0063 PFRNX, FRNDX 5487 1520 7740 RNDM40, -40 5488 1521 0064 PFRND1, FRNDX+1 5489 1522 7062 FUNL3, FSIN 5490 1523 7057 COS 5491 1524 7401 ATN 5492 1525 7200 FEXP 5493 1526 7314 LOG 5494 1527 2372 ABS 5495 1530 7000 SQR 5496 1531 5047 SGN 5497 1532 4336 INT 5498 1533 1777 RND 5499 1534 4350 FFIX 5500 1535 7040 TAN 5501 1536 6000 MID 5502 1537 6103 CAT 5503 1540 6600 LEN 5504 1541 5414 MOD /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 118 5505 1542 2246 COMGO1, LIST 5506 1543 0473 START /CR 5507 1544 1600 BYE 5508 1545 2235 DELET 5509 1546 2200 EDIT 5510 1547 7654 KKEY 5511 1550 7653 TAPE 5512 1551 2473 RUN 5513 1552 4365 ERRLST, ERR000 5514 1553 2204 ERR001 5515 1554 1601 ERR002 5516 1555 7666 ERR003 5517 1556 0616 ERR004 5518 5519 1557 7317 ERR010 5520 1560 7007 ERR020 5521 1561 0663 ERR030 5522 1562 0352 ERR040 5523 1563 0644 ERR050 5524 1564 3625 ERR060 5525 1565 0740 ERR070 5526 1566 3447 ERR080 5527 1567 4475 ERR100 5528 1570 2757 ERR110 5529 1571 2660 ERR120 5530 1572 6231 ERR150 5531 1573 6334 ERR160 5532 1574 3051 ERR170 5533 1575 3074 ERR180 5534 1576 3132 ERR200 5535 1577 4772 ERR210 5536 1600 4401 ERR220 5537 1601 4456 ERR130 5538 1602 4542 ERR230 5539 1603 4666 ERR240 5540 1604 4677 ERR250 5541 1605 7650 ERR260 5542 1606 1261 ERR270 5543 1607 5566 ERR280 5544 1610 4256 ERR290 5545 1611 4277 ERR300 5546 1612 0000 0 /ERROR 28 RESERVED FOR FUTURE USE 5547 1613 2453 ERR320 5548 1614 6546 ERR330 5549 1615 3225 ERR340 5550 1616 3310 ERR350 5551 1617 7701 ERRNNN 5552 1620 6340 ERR370 5553 1621 2537 ERR380 5554 1622 1210 ERR390 5555 1623 1237 ERR400 5556 1624 1426 ERR410 5557 1625 1446 ERR420 5558 1626 1551 ERR430 5559 1627 1475 ERR440 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 118-1 5560 1630 1542 ERR450 5561 1631 2400 ERR460 5562 1632 2407 ERR470 5563 1633 1053 ERR490 5564 1634 1111 ERR500 5565 1635 1123 ERR510 5566 1636 4364 ERR520 5567 1637 0000 0 /ERROR 49 RESERVED FOR FUTURE USE 5568 1640 6635 ERR540 5569 1641 6006 ERR550 5570 1642 5734 ERR560 5571 1643 ERREND=. /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 119 5572 1643 0000 FIXUP, 0 5573 1644 1454 TAD I OACEXP 5574 1645 1247 TAD .+2 5575 1646 3454 DCA I OACEXP 5576 1647 7610 CLA SKP /THIS IS 7610 CR -170 5577 5578 1650 1460 FIXUP4, TAD I ODECXP 5579 1651 3460 DCA I ODECXP 5580 1652 1457 FIXUP1, TAD I OAC1 5581 1653 7006 RTL 5582 1654 7630 SZL CLA 5583 1655 5263 JMP FIXUP2 5584 1656 4777 JMS I (AL1 5585 1657 7340 L7777 5586 1660 1454 TAD I OACEXP 5587 1661 3454 DCA I OACEXP 5588 1662 5252 JMP FIXUP1 5589 5590 1663 1454 FIXUP2, TAD I OACEXP 5591 1664 7540 SMA SZA 5592 1665 5301 JMP FIXUP3 5593 1666 7200 CLA 5594 1667 4776 JMS I (AR1 5595 1670 4776 JMS I (AR1 5596 1671 4776 JMS I (AR1 5597 1672 4776 JMS I (AR1 5598 1673 4775 JMS I (MULT10 5599 1674 1374 TAD (4 5600 1675 1454 TAD I OACEXP 5601 1676 3454 DCA I OACEXP 5602 1677 7340 L7777 5603 1700 5250 JMP FIXUP4 5604 5605 1701 1373 FIXUP3, TAD (-5 5606 1702 7510 SPA 5607 1703 5334 JMP FIXUP5 5608 1704 7300 FIXUP7, CLL CLA 5609 1705 1372 TAD (-40 5610 1706 3047 DCA OCNTR 5611 1707 1457 FIXUP8, TAD I OAC1 5612 1710 1371 TAD (5400 5613 1711 7500 SMA 5614 1712 3457 DCA I OAC1 5615 1713 7200 CLA 5616 1714 1455 TAD I OAC3 5617 1715 7004 RAL 5618 1716 3455 DCA I OAC3 5619 1717 1456 TAD I OAC2 5620 1720 7004 RAL 5621 1721 3456 DCA I OAC2 5622 1722 1457 TAD I OAC1 5623 1723 7004 RAL 5624 1724 3457 DCA I OAC1 5625 1725 2047 ISZ OCNTR 5626 1726 5307 JMP FIXUP8 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 119-1 5627 1727 1457 TAD I OAC1 5628 1730 0370 AND (377 5629 1731 3457 DCA I OAC1 5630 1732 7301 L0001 5631 1733 5250 JMP FIXUP4 5632 5633 1734 3047 FIXUP5, DCA OCNTR 5634 1735 7410 SKP 5635 1736 4776 JMS I (AR1 5636 1737 2047 ISZ OCNTR 5637 1740 5336 JMP .-2 5638 1741 1457 TAD I OAC1 5639 1742 1371 TAD (5400 5640 1743 7700 SMA CLA 5641 1744 5304 JMP FIXUP7 5642 1745 7100 CLL 5643 1746 1367 TAD (2166 5644 1747 1455 TAD I OAC3 5645 1750 3455 DCA I OAC3 5646 1751 7430 SZL 5647 1752 2456 ISZ I OAC2 5648 1753 7410 SKP 5649 1754 2457 ISZ I OAC1 5650 1755 1457 TAD I OAC1 5651 1756 1371 TAD (5400 5652 1757 7640 SZA CLA 5653 1760 5643 JMP I FIXUP 5654 5655 1761 1365 TAD F200 5656 1762 3457 DCA I OAC1 5657 1763 3455 DCA I OAC3 5658 1764 2460 ISZ I ODECXP 5659 1765 0200 F200, 0200 5660 1766 5643 JMP I FIXUP 5661 5662 1767 2166 5663 1770 0377 5664 1771 5400 5665 1772 7740 5666 1773 7773 5667 1774 0004 5668 1775 0752 5669 1776 0400 5670 1777 0647 2000 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 120 5671 2000 ORG=. 5672 IFNZRO CONFIG /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 123 5716 /USER DEFINITIONS 5717 5718 7776 LIMIT=7776 /HIGHEST CORE POSITION 5719 0051 SWAPR=ENSWAP-STSWAP+1 /SWAP LENGTH 5720 5721 0040 BUFFER=40 5722 0100 BUFCOM=100 5723 0162 LINE0=162 5724 0164 LINE1=164 5725 7776 TOP=LIMIT /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 124 5726 IFNZRO CONFIG < 5727 XLIST 5728 ENPUNCH> 5729 /PAGE ZERO FIELD 1 FOR INITIALIZATION--GETS WIPED OUT LATER 5730 0000 PAGE 0 5731 0000 7000 NOP /FOR CORE DETERMINING 5732 0001 5000 USRPTR, USRLST 5733 0002 0000 CORPTR, 0 5734 0003 0000 USRPT2, 0 5735 0004 0000 CORPT2, 0 5736 0005 0000 BEGUSR, 0 5737 0006 0000 CURFLD, 0 5738 0007 0000 BEGDEV, 0 5739 0010 0000 BEGXR1, 0 5740 0011 0000 BEGXR2, 0 5741 0020 *20 5742Z 0020 0000 USRCTR, 0 5743Z 0021 0000 SS, 0 5744Z 0022 0000 BEGCOR, 0 5745Z 0023 0000 KLTOP, 0 5746Z 0024 0000 KLSCH, 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 125 5747 2000 *2000 5748 5749 2000 5203 BEGIN, JMP .+3 /NORMAL ENTRY 5750 2001 7000 NOP /SO YOU CAN CHAIN TO US 5751 IFNZRO CONFIG < 5752 HLT /NO CONFIG FOR OS/8 5753 > 5754 IFZERO CONFIG < 5755 2002 5777 JMP I (BEGOS8 /OS8 ENTRY POINT 5756 > 5757 IFNZRO FOURTY < 5758 CDF 10 5759 DISKIN, JMP I (E40INT /WRITE IMAGE ON DISK FOR EDU40 SYSTEM 5760 > 5761 2003 6211 BEGMV4, CDF 10 5762 2004 1742 TAD I BEGMV1 /MOVE PAGE 7600 FIELD 0 INTO ITS SPOT 5763 2005 6201 CDF 5764 2006 3743 DCA I BEGMV2 5765 2007 2342 ISZ BEGMV1 5766 2010 2343 ISZ BEGMV2 5767 2011 2344 ISZ BEGMV3 5768 2012 5203 JMP BEGMV4 5769 2013 6201 CDF 5770 IFZERO CONFIG < 5771 2014 1776 TAD I (FLOP 5772 2015 3775 DCA I (OPTABL+5 5773 2016 6211 CDF 10 5774 2017 1740 TAD I BEGIN1 /MAKE SURE THAT NO ERRORS ARE NEG. SO THAT 5775 /THEY DON'T TERMINATE TABLE 5776 5777 2020 7001 IAC 5778 2021 7110 CLL RAR 5779 2022 3740 DCA I BEGIN1 5780 2023 2340 ISZ BEGIN1 5781 2024 2341 ISZ BEGIN2 5782 2025 5217 JMP .-6 > 5783 2026 1374 BEG002, TAD (BEG009-1 5784 2027 3010 DCA BEGXR1 5785 2030 1373 TAD (KL8JM0-1 5786 2031 3011 DCA BEGXR2 5787 2032 4323 JMS BEG008 5788 2033 1372 TAD (KL8JMP-1 5789 2034 3011 DCA BEGXR2 5790 2035 4323 JMS BEG008 5791 2036 6211 CDF 10 5792 2037 6032 KCC 5793 2040 1371 TAD (BEGIOT 5794 2041 3336 DCA BEG012 5795 2042 1370 TAD (-7 5796 2043 3337 DCA BEG013 5797 2044 1367 TAD (120 5798 2045 3736 DCA I BEG012 5799 2046 2336 ISZ BEG012 5800 2047 2337 ISZ BEG013 5801 2050 5244 JMP .-4 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 125-1 5802 2051 4766 JMS I (BEG003 5803 2052 2513 BEGM1 /INIT MESSAGE 5804 2053 4766 BEG006, JMS I (BEG003 5805 2054 2527 BEGM2 /# USER MESSAGE 5806 2055 4765 JMS I (BEG001 5807 2056 1364 TAD (-"8 5808 2057 7540 SMA SZA 5809 2060 5763 JMP I (BEG005 5810 2061 1362 TAD (10 5811 2062 7550 SPA SNA 5812 2063 5763 JMP I (BEG005 5813 2064 7041 CIA 5814 2065 3005 DCA BEGUSR 5815 2066 5761 JMP I (BEGX08 5816 2067 6211 CORDON, CDF 10 5817 2070 1005 TAD BEGUSR 5818 2071 7001 IAC 5819 2072 7650 SNA CLA 5820 2073 5276 JMP BEG010 5821 2074 4760 JMS I (BEG01Q 5822 2075 2637 BEGM4 /DC02? 5823 2076 7340 BEG010, L7777 /NO - BEGDEV=-1 5824 2077 3007 DCA BEGDEV 5825 2100 1007 TAD BEGDEV 5826 2101 7650 SNA CLA 5827 2102 5757 JMP I (BEG11A 5828 2103 1371 TAD (BEGIOT 5829 2104 3336 DCA BEG012 5830 2105 1005 TAD BEGUSR 5831 2106 3337 DCA BEG013 5832 2107 1356 TAD (410 5833 2110 3335 DCA BEG12A 5834 2111 2337 BEG14B, ISZ BEG013 5835 2112 5314 JMP BEG14A 5836 2113 5755 JMP I (BEG015 5837 5838 2114 1335 BEG14A, TAD BEG12A 5839 2115 3736 DCA I BEG012 5840 2116 2336 ISZ BEG012 5841 2117 1335 TAD BEG12A 5842 2120 1354 TAD (20 5843 2121 3335 DCA BEG12A 5844 2122 5311 JMP BEG14B 5845 5846 2123 0000 BEG008, 0 /UNPATCH SCHEDULER AND INTERRUPT ROUTINE 5847 2124 7346 L7775 / IN CASE WE COME HERE FORM A ^C 5848 2125 3337 DCA BEG013 5849 2126 6211 CDF 10 5850 2127 1410 TAD I BEGXR1 5851 2130 6201 CDF 5852 2131 3411 DCA I BEGXR2 5853 2132 2337 ISZ BEG013 5854 2133 5326 JMP .-5 5855 2134 5723 JMP I BEG008 5856 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 125-2 5857 2135 0400 BEG12A, 400 5858 2136 0000 BEG012, 0 5859 2137 0000 BEG013, 0 5860 2140 1552 BEGIN1, ERRLST 5861 2141 7707 BEGIN2, ERRLST-ERREND 5862 2142 6600 BEGMV1, P7600 5863 2143 7600 BEGMV2, 7600 5864 2144 7622 BEGMV3, -156 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 126 5865 2154 0020 5866 2155 2200 5867 2156 0410 5868 2157 3261 5869 2160 2327 5870 2161 2270 5871 2162 0010 5872 2163 2411 5873 2164 7510 5874 2165 2414 5875 2166 2432 5876 2167 0120 5877 2170 7771 5878 2171 7001 5879 2172 5342 5880 2173 0206 5881 2174 2377 5882 2175 4176 5883 2176 2707 5884 2177 6436 2200 PAGE 5885 5886 2200 1005 BEG015, TAD BEGUSR 5887 2201 7001 IAC 5888 2202 7650 SNA CLA 5889 2203 5777 JMP I (BEG15I /ONE USER 5890 / TAD (BEGM78-1 /*REMOTE* 5891 / JMS I (BEGMFX /SEE BEG151 5892 2204 4327 JMS BEG01Q 5893 2205 2672 BEGM7 /STANDARD? 5894 2206 7410 SKP 5895 2207 5777 JMP I (BEG15I /MULTIPLE USER = STANDARD 5896 2210 1005 BEG15A, TAD BEGUSR 5897 2211 3232 DCA BEG15B 5898 2212 1376 TAD (BEGIOT 5899 2213 3231 DCA BEG15C 5900 2214 1375 TAD (4361 /TEXT "#1" 5901 2215 3774 DCA I (BEGM5A 5902 2216 2232 BEG15D, ISZ BEG15B 5903 2217 7410 SKP 5904 2220 5777 JMP I (BEG15H 5905 2221 4233 JMS BEG014 5906 2222 2655 BEGM5 5907 2223 1021 TAD SS 5908 2224 1373 TAD (10 5909 2225 3631 DCA I BEG15C 5910 2226 2231 ISZ BEG15C 5911 2227 2774 ISZ I (BEGM5A 5912 2230 5216 JMP BEG15D 5913 5914 2231 0000 BEG15C, 0 5915 2232 0000 BEG15B, 0 5916 5917 2233 0000 BEG014, 0 5918 2234 1633 TAD I BEG014 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 126-1 5919 2235 2233 ISZ BEG014 5920 2236 3240 DCA .+2 5921 2237 4772 JMS I (BEG003 5922 2240 0000 0 5923 2241 4771 JMS I (BEG001 5924 2242 1370 TAD (-"7 5925 2243 7540 SMA SZA 5926 2244 5767 JMP I (BEG016 5927 2245 1366 TAD (7 5928 2246 7510 SPA 5929 2247 5767 JMP I (BEG016 5930 2250 7106 CLL RTL 5931 2251 7006 RTL 5932 2252 7006 RTL 5933 2253 3021 DCA SS 5934 2254 4771 JMS I (BEG001 5935 2255 1370 TAD (-"7 5936 2256 7540 SMA SZA 5937 2257 5767 JMP I (BEG016 5938 2260 1366 TAD (7 5939 2261 7510 SPA 5940 2262 5767 JMP I (BEG016 5941 2263 7106 CLL RTL 5942 2264 7004 RAL 5943 2265 1021 TAD SS 5944 2266 3021 DCA SS 5945 2267 5633 JMP I BEG014 5946 /FIGURE OUT HIGHEST CORE FIELD FOR HIM 5947 2270 7301 BEGX08, L0001 5948 2271 3022 DCA BEGCOR /FIELD 1 TOP TO START WITH 5949 2272 1365 TAD (6221 5950 2273 3302 DCA BEGCHK 5951 2274 1305 TAD CNOP 5952 2275 6201 CDF 5953 2276 3764 DCA I (0 5954 2277 6211 CDF 10 5955 2300 1305 TAD CNOP 5956 2301 3764 DCA I (0 5957 2302 0000 BEGCHK, 0 5958 2303 1363 TAD (1000 5959 2304 3764 DCA I (0 5960 2305 7000 CNOP, NOP 5961 2306 1764 TAD I (0 5962 2307 7410 SKP /PDP-8 NXM BUG 5963 2310 7402 HLT /THIS SHOULD HAUL DOWN A PDP-8 5964 2311 6211 CDF 10 /DOUBLE CHECK FOR PDP8/L 5965 2312 1764 TAD I (0 5966 2313 7640 SZA CLA 5967 2314 5762 JMP I (CORDON /NO MORE CORE 5968 2315 1363 TAD (1000 5969 2316 6201 CDF 5970 2317 1764 TAD I (0 5971 2320 7640 SZA CLA 5972 2321 5762 JMP I (CORDON /NO MORE CORE-PROBABLY A PDP-8/L 5973 2322 2022 ISZ BEGCOR /THIS FIELD WAS SUCCESSFUL /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 126-2 5974 2323 1302 TAD BEGCHK 5975 2324 1373 TAD (10 5976 2325 3302 DCA BEGCHK 5977 2326 5302 JMP BEGCHK /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 127 5978 /CALLING SEQUENCE 5979 / JMS I (BEG01Q 5980 / MSGADR /ADDRESS OF MESSAGE TO BE PRINTED 5981 / JMP NO /RETURNS HERE IF ANSWER IS "N" 5982 / JMP YES /RETURNS HERE IF ANSWER IS "Y" 5983 2327 0000 BEG01Q, 0 /ASK QUESTION - GET ANSWER 5984 2330 1727 TAD I BEG01Q /SKIP IF YES, NOT IF NO 5985 2331 2327 ISZ BEG01Q /OTHERWISE GIVE ERROR AND REPEAT QUESTION 5986 2332 3334 DCA .+2 5987 2333 4772 JMS I (BEG003 5988 2334 0000 0 5989 2335 4771 JMS I (BEG001 5990 2336 1361 TAD (-"Y 5991 2337 7450 SNA 5992 2340 5347 JMP BEG10R 5993 2341 1360 TAD ("Y-"N 5994 2342 7650 SNA CLA 5995 2343 5350 JMP BEG10R+1 5996 2344 4772 JMS I (BEG003 5997 2345 2501 BEGME 5998 2346 5333 JMP BEG01Q+4 5999 2347 2327 BEG10R, ISZ BEG01Q 6000 2350 5727 JMP I BEG01Q 6001 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 128 6002 2360 0013 6003 2361 7447 6004 2362 2067 6005 2363 1000 6006 2364 0000 6007 2365 6221 6008 2366 0007 6009 2367 2406 6010 2370 7511 6011 2371 2414 6012 2372 2432 6013 2373 0010 6014 2374 2662 6015 2375 4361 6016 2376 7001 6017 2377 3200 2400 PAGE 6018 6019 6020 BEG009, 6021 NOPUNCH 6022 0207 *KL8JM0 6023 ENPUNCH 6024 0207 1106 TAD LOOKST 6025 0210 3105 DCA LOOK 6026 0211 7410 SKP 6027 NOPUNCH 6028 5343 *KL8JMP 6029 ENPUNCH 6030 5343 1354 TAD SAVLK 6031 5344 7104 CLL RAL 6032 5345 1353 TAD SAVAC 6033 NOPUNCH 6034 2406 *BEG009+6 6035 ENPUNCH 6036 6037 2406 4232 BEG016, JMS BEG003 6038 2407 2501 BEGME 6039 2410 5777 JMP I (BEG014+4 6040 6041 2411 4232 BEG005, JMS BEG003 6042 2412 2501 BEGME 6043 2413 5776 JMP I (BEG006 6044 6045 2414 0000 BEG001, 0 6046 2415 6031 KSF 6047 2416 5215 JMP .-1 6048 2417 6036 KRB 6049 2420 1375 TAD (-203 6050 2421 7450 SNA 6051 2422 5774 JMP I (BEG002 6052 2423 1373 TAD (203 6053 2424 6046 TLS 6054 2425 6041 TSF 6055 2426 5225 JMP .-1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 128-1 6056 2427 0372 AND (177 6057 2430 1371 TAD (200 /FORCE THE PARITY BIT SO WE KNOW WHAT WAS TYPED. 6058 2431 5614 JMP I BEG001 6059 6060 2432 0000 BEG003, 0 6061 2433 7200 CLA 6062 2434 1632 TAD I BEG003 6063 2435 3300 DCA BEG004 6064 2436 2232 ISZ BEG003 6065 2437 1700 TAD I BEG004 6066 2440 7112 CLL RTR 6067 2441 7012 RTR 6068 2442 7012 RTR 6069 2443 4250 JMS BEG03X 6070 2444 1700 TAD I BEG004 6071 2445 4250 JMS BEG03X 6072 2446 2300 ISZ BEG004 6073 2447 5237 JMP BEG003+5 6074 6075 2450 0000 BEG03X, 0 6076 2451 0370 AND (77 6077 2452 7450 SNA 6078 2453 5632 JMP I BEG003 6079 2454 1367 TAD (-37 6080 2455 7450 SNA 6081 2456 5274 JMP CRLF 6082 2457 7510 SPA 6083 2460 1366 TAD (100 6084 2461 1365 TAD (237 6085 2462 4264 JMS TTCHAR 6086 2463 5650 JMP I BEG03X 6087 6088 2464 0000 TTCHAR, 0 6089 2465 6046 TLS 6090 2466 7200 CLA 6091 2467 6041 TSF 6092 2470 5267 JMP .-1 6093 2471 6031 KSF 6094 2472 5664 JMP I TTCHAR 6095 2473 5632 JMP I BEG003 /EXIT ON CHAR. 6096 2474 1364 CRLF, TAD (215 6097 2475 4264 JMS TTCHAR 6098 2476 1363 TAD (212 6099 2477 5262 JMP TTCHAR-2 6100 2500 0000 BEG004, 0 6101 2501 3711 BEGME, TEXT %_INVALID RESPONSE_% 2502 1626 2503 0114 2504 1104 2505 4022 2506 0523 2507 2017 2510 1623 2511 0537 2512 0000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 128-2 6102 2513 3737 BEGM1, TEXT %__EDUSYSTEM 20 BASIC_% 2514 0504 2515 2523 2516 3123 2517 2405 2520 1540 2521 6260 2522 4040 2523 0201 2524 2311 2525 0337 2526 0000 6103 2527 3716 BEGM2, TEXT %_NUMBER OF USERS (1 TO 8)?% 2530 2515 2531 0205 2532 2240 2533 1706 2534 4025 2535 2305 2536 2223 2537 4050 2540 6140 2541 2417 2542 4070 2543 5177 2544 0000 6104 2563 0212 6105 2564 0215 6106 2565 0237 6107 2566 0100 6108 2567 7741 6109 2570 0077 6110 2571 0200 6111 2572 0177 6112 2573 0203 6113 2574 2026 6114 2575 7575 6115 2576 2053 6116 2577 2237 2600 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 129 6117 2600 2205 BEGHSS, TEXT %READER (Y OR N)?% 2601 0104 2602 0522 2603 4050 2604 3140 2605 1722 2606 4016 2607 5177 2610 0000 6118 2611 3704 BEGHSR, TEXT %_DO YOU HAVE A HIGH SPEED % 2612 1740 2613 3117 2614 2540 2615 1001 2616 2605 2617 4001 2620 4010 2621 1107 2622 1040 2623 2320 2624 0505 2625 0440 2626 0000 6119 2627 2025 BEGHSP, TEXT %PUNCH (Y OR N)?% 2630 1603 2631 1040 2632 5031 2633 4017 2634 2240 2635 1651 2636 7700 6120 2637 3720 BEGM4, TEXT %_PDP-8/L COMPUTER (Y OR N)?% 2640 0420 2641 5570 2642 5714 2643 4003 2644 1715 2645 2025 2646 2405 2647 2240 2650 5031 2651 4017 2652 2240 2653 1651 2654 7700 6121 2655 3724 BEGM5, TEXT %_TELETYPE #1 DEVICE CODE?% 2656 0514 2657 0524 2660 3120 2661 0540 2662 4361 2663 4004 2664 0526 2665 1103 2666 0540 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 129-1 2667 0317 2670 0405 2671 7700 6122 2662 BEGM5A=BEGM5+5 6123 2672 3723 BEGM7, TEXT %_STANDARD REMOTE TELETYPE CODES (Y OR N)?% 2673 2401 2674 1604 2675 0122 2676 0440 2677 2205 2700 1517 2701 2405 2702 4024 2703 0514 2704 0524 2705 3120 2706 0540 2707 0317 2710 0405 2711 2340 2712 5031 2713 4017 2714 2240 2715 1651 2716 7700 6124 2676 BEGM7A=BEGM7+4 6125 /SEE BEG15I 6126 /BEGM7B, TEXT %D REMOTE% 6127 /*.-1 6128 /BEGM7C, TEXT %D UNUSED% 6129 /*.-1 6130 /BEGM7D, TEXT % _UNUSED% 6131 /*.-1 6132 2717 3706 BEGMFL, TEXT %_FIELD % 2720 1105 2721 1404 2722 4000 6133 2723 3724 BEGMXX, TEXT %_THERE ARE % 2724 1005 2725 2205 2726 4001 2727 2205 2730 4000 6134 2731 4002 BEGMX1, TEXT % BLOCKS LEFT IN THIS FIELD._ YOUR ALLOCATION FOR USER #% 2732 1417 2733 0313 2734 2340 2735 1405 2736 0624 2737 4011 2740 1640 2741 2410 2742 1123 2743 4006 2744 1105 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 129-2 2745 1404 2746 5637 2747 4031 2750 1725 2751 2240 2752 0114 2753 1417 2754 0301 2755 2411 2756 1716 2757 4006 2760 1722 2761 4025 2762 2305 2763 2240 2764 4300 6135 2765 4027 BEGTTI, TEXT % WILL BE HOW MANY BLOCKS?% 2766 1114 2767 1440 2770 0205 2771 4010 2772 1727 2773 4015 2774 0116 2775 3140 2776 0214 2777 1703 3000 1323 3001 7700 6136 3002 3737 BEGM6, TEXT %__END OF DIALOGUE_% 3003 0516 3004 0440 3005 1706 3006 4004 3007 1101 3010 1417 3011 0725 3012 0537 3013 0000 6137 3014 3702 WNGDM, TEXT %_BLOCK SIZES DON'T WORK--HAVE TO START AGAIN__% 3015 1417 3016 0313 3017 4023 3020 1132 3021 0523 3022 4004 3023 1716 3024 4724 3025 4027 3026 1722 3027 1355 3030 5510 3031 0126 3032 0540 3033 2417 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 129-3 3034 4023 3035 2401 3036 2224 3037 4001 3040 0701 3041 1116 3042 3737 3043 0000 6138 3044 3723 BEGMQ, TEXT %_SAME AMOUNT OF STORAGE FOR ALL USERS?% 3045 0115 3046 0540 3047 0115 3050 1725 3051 1624 3052 4017 3053 0640 3054 2324 3055 1722 3056 0107 3057 0540 3060 0617 3061 2240 3062 0114 3063 1440 3064 2523 3065 0522 3066 2377 3067 0000 6139 3070 3711 BEGM6A, TEXT %_IS THE ABOVE CORRECT (Y OR N)?% 3071 2340 3072 2410 3073 0540 3074 0102 3075 1726 3076 0540 3077 0317 3100 2222 3101 0503 3102 2440 3103 5031 3104 4017 3105 2240 3106 1651 3107 7700 6140 3110 4015 BEGM8, TEXT % MORE?% 3111 1722 3112 0577 3113 0000 6141 3114 3701 BEGM9, TEXT %_ANY UNUSED TERMINALS (Y OR N)?% 3115 1631 3116 4025 3117 1625 3120 2305 3121 0440 3122 2405 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 129-4 3123 2215 3124 1116 3125 0114 3126 2340 3127 5031 3130 4017 3131 2240 3132 1651 3133 7700 6142 3134 3704 BEGM10, TEXT %_DEVICE CODE?% 3135 0526 3136 1103 3137 0540 3140 0317 3141 0405 3142 7700 6143 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 130 6144 //MOVE IN MIDDLE OF BEGM7 6145 /BEGMFX, 0 6146 / DCA 17 6147 / TAD (BEGH7A-1 6148 / DCA 16 6149 / TAD (-4 6150 / DCA CORPTR 6151 / TAD I 17 6152 / DCA I 16 6153 / ISZ CORPTR 6154 / JMP .-3 6155 / JMP I BEGMFX /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 131 6156 3200 PAGE 6157 /COMMENTED MATERIAL WILL GENERATE UNUSED CODES 6158 /BUT GOOD LUCK TRYING TO EXPLAIN TO A USER 6159 /HOW IT WORKS. IT'S SIMPLER TO JUST ASK HIM. 6160 //STANDARD USED CODES 6161 BEG15I, /JMS BEG15C /MOVE IN USED IOT'S 6162 / TAD (BEGM7C-1 /"UNUSED" 6163 / JMS I (BEGMFX 6164 / JMS I (BEG01Q 6165 / BEGM7 /"STANDARD UNUSED TTY CODES?" 6166 / JMP BEG15K /NO = GET CODES FROM TTY 6167 / TAD (6305 /YES = GENERATE THEM FROM 30 THRU 36 6168 / DCA SS 6169 / JMP BEG15L /INSERT IF CODE NOT USED 6170 /BEG15M, TAD SS 6171 / TAD (20 /INCREMENT 6172 / DCA SS 6173 / TAD SS 6174 / TAD (-6605 6175 / SZA CLA /LAST? 6176 / JMP .-7 /NO = LOOP 6177 / JMP BEG011 /DONNE 6178 / 6179 / 6180 //INSERT IF IOT UNUSED 6181 /BEG15L, TAD SS 6182 / CIA 6183 / DCA BEG15G 6184 / TAD BEGUSR 6185 / DCA USRCTR 6186 / TAD CORPT2 6187 / DCA CORPTR 6188 / TAD BEG15G 6189 / TAD I CORPTR 6190 / SNA CLA 6191 / JMP BEG15M 6192 / ISZ CORPTR 6193 / ISZ USRCTR 6194 / JMP .-6 6195 / TAD SS 6196 / JMP BEG15F 6197 / JMP BEG15M 6198 6199 6200 /NON-STANDARD USED CODES 6201 3200 4224 BEG15H, JMS BEG15G /MOVE IN USED IOT'S 6202 3201 4777 JMS I (BEG01Q 6203 3202 3114 BEGM9 /"ANY UNUSED TERMINALS" 6204 3203 5257 JMP BEG011 /NO = DUN 6205 3204 5210 JMP .+4 6206 3205 4777 BEG15K, JMS I (BEG01Q 6207 3206 3110 BEGM8 /"MORE?" 6208 3207 5257 JMP BEG011 /NO = KAPUT! 6209 3210 4776 JMS I (BEG014 6210 3211 3134 BEGM10 /"DEVICE CODE?" /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 131-1 6211 3212 1021 TAD SS 6212 3213 1375 TAD (6005 6213 3214 4216 JMS BEG15F /INSERT IN PATCH 6214 3215 5205 JMP BEG15K 6215 6216 6217 /INSERT WORD INTO PATCH 6218 3216 0000 BEG15F, 0 6219 3217 3423 DCA I KLTOP 6220 3220 7340 L7777 6221 3221 1023 TAD KLTOP 6222 3222 3023 DCA KLTOP 6223 3223 5616 JMP I BEG15F 6224 6225 6226 /MOVE IOT'S FROM BEG10T TO PATCH 6227 3224 0000 BEG15G, 0 6228 3225 7303 CLA CLL IAC BSW /IS IT AN 8E? 6229 3226 1374 TAD (-100 6230 3227 7640 SZA CLA 6231 3230 5773 JMP I (BEG011 6232 3231 1372 TAD (KL8FIX-1 6233 3232 3023 DCA KLTOP 6234 3233 1005 TAD BEGUSR 6235 3234 3020 DCA USRCTR 6236 3235 1371 TAD (BEGIOT-1 6237 3236 3002 DCA CORPTR 6238 3237 1402 TAD I CORPTR 6239 3240 1370 TAD (6005-10 6240 3241 4216 JMS BEG15F 6241 3242 2002 ISZ CORPTR 6242 3243 2020 ISZ USRCTR 6243 3244 5237 JMP .-5 6244 3245 1023 TAD KLTOP 6245 3246 3024 DCA KLSCH /SAVE ENTRY ADDRESS FOR SCHEDULER 6246 3247 7301 L0001 6247 3250 1023 TAD KLTOP 6248 3251 3004 DCA CORPT2 6249 3252 1247 TAD .-3 /INSERT L0001 6250 3253 4216 JMS BEG15F 6251 3254 1367 TAD (KL8INT&177+5200 /INSERT JMP KL8INT 6252 3255 4216 JMS BEG15F 6253 3256 5624 JMP I BEG15G 6254 6255 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 132 6256 3257 1366 BEG011, TAD (CLA 6257 3260 3423 DCA I KLTOP 6258 3261 6201 BEG11A, CDF 6259 3262 1365 TAD (SKP CLA 6260 3263 3764 DCA I (LISTN+2 6261 3264 1365 TAD (SKP CLA 6262 3265 3774 DCA I (ERRNNN-1 6263 3266 6211 CDF 10 6264 3267 4763 JMS I (BEG003 6265 3270 2611 BEGHSR 6266 3271 4777 JMS I (BEG01Q 6267 3272 2627 BEGHSP 6268 3273 7410 SKP /NO PUNCH = KILL INST 6269 3274 5300 JMP BEG11B 6270 3275 6201 CDF 6271 3276 3764 DCA I (LISTN+2 /NO PUNCH 6272 3277 6211 CDF 10 6273 3300 4763 BEG11B, JMS I (BEG003 6274 3301 2611 BEGHSR 6275 3302 4777 JMS I (BEG01Q 6276 3303 2600 BEGHSS 6277 3304 7410 SKP /NO READER = KILL INST 6278 3305 5311 JMP BEGCK0 /YES = GO ON 6279 3306 6201 CDF 6280 3307 3774 DCA I (ERRNNN-1 6281 3310 6211 CDF 10 6282 3311 1005 BEGCK0, TAD BEGUSR 6283 3312 7001 IAC 6284 3313 7650 SNA CLA 6285 3314 5762 JMP I (BEGOLD /ONLY 1 USER, ASSUME ANSWER: 6286 3315 4777 JMS I (BEG01Q 6287 3316 3044 BEGMQ /SAME AMT OF STG FOR ALL USRS? 6288 3317 5761 JMP I (BEG500 /NO = GO ASK HIM 6289 3320 5762 JMP I (BEGOLD /YES = ALLOCATE IT FOR HIM 6290 6291 3361 3403 6292 3362 5200 6293 3363 2432 6294 3364 7711 6295 3365 7610 6296 3366 7200 6297 3367 5366 6298 3370 5775 6299 3371 7000 6300 3372 7755 6301 3373 3257 6302 3374 7700 6303 3375 6005 6304 3376 2233 6305 3377 2327 3400 PAGE /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 133 6306 0021 LBLK=SS 6307 6308 0003 OLNUM=USRPT2 6309 0004 NUNUM=CORPT2 6310 3400 6211 BEGER0, CDF 10 6311 3401 4777 JMS I (BEG003 6312 3402 3014 WNGDM 6313 3403 6211 BEG500, CDF 10 6314 3404 1005 TAD BEGUSR 6315 3405 3020 DCA USRCTR 6316 3406 1376 TAD (USRLST 6317 3407 3001 DCA USRPTR 6318 3410 1022 TAD BEGCOR 6319 3411 7001 IAC 6320 3412 3006 DCA CURFLD 6321 3413 7340 BEGFLD, L7777 6322 3414 1006 TAD CURFLD 6323 3415 7550 SPA SNA 6324 3416 5200 JMP BEGER0 /EH? 6325 3417 3006 DCA CURFLD 6326 3420 4777 JMS I (BEG003 6327 3421 2717 BEGMFL 6328 3422 1375 TAD (60 6329 3423 1006 TAD CURFLD 6330 3424 6046 TLS 6331 3425 6041 TSF 6332 3426 5225 JMP .-1 6333 3427 7340 L7777 6334 3430 1006 TAD CURFLD 6335 3431 7650 SNA CLA 6336 3432 1374 TAD (-6 /6 'BLOCKS' LESS IN FLD1 6337 3433 1373 TAD (20 /20 LOGICAL BLOCKS IN OTHERS 6338 3434 3021 DCA LBLK 6339 3435 4777 BEGXXX, JMS I (BEG003 6340 3436 2723 BEGMXX 6341 3437 1021 TAD LBLK 6342 3440 4772 JMS I (BEGPRNT 6343 3441 4777 JMS I (BEG003 6344 3442 2731 BEGMX1 6345 3443 4771 JMS I (BEG001 6346 3444 1370 TAD (-"8 6347 3445 7540 SMA SZA 6348 3446 5342 JMP BEGER1 6349 3447 1367 TAD (10 6350 3450 7550 SPA SNA 6351 3451 5342 JMP BEGER1 /BAD USERNO 6352 3452 3401 DCA I USRPTR 6353 3453 1005 TAD BEGUSR 6354 3454 1401 TAD I USRPTR 6355 3455 7740 SMA SZA CLA 6356 3456 5342 JMP BEGER1 /NONEXISTENT USER DUMMY 6357 3457 2001 ISZ USRPTR 6358 3460 1006 TAD CURFLD 6359 3461 3401 DCA I USRPTR 6360 3462 2001 ISZ USRPTR /AND HIS NO. /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 133-1 6361 3463 4777 BEGRE, JMS I (BEG003 6362 3464 2765 BEGTTI 6363 3465 3003 DCA OLNUM /DOUBLE CHECK! 6364 3466 4771 BEGINP, JMS I (BEG001 6365 3467 1366 TAD (-215 6366 3470 7450 SNA 6367 3471 5311 JMP DN 6368 3472 1365 TAD (215-"9 6369 3473 7540 SMA SZA 6370 3474 5337 JMP BEGER2 /UNGOOD NO 6371 3475 1364 TAD (11 6372 3476 7510 SPA 6373 3477 5337 JMP BEGER2 /LIKEWISE 6374 3500 3004 DCA NUNUM 6375 3501 1003 TAD OLNUM /MULT BY 10 DECIM 6376 3502 7104 CLL RAL 6377 3503 7006 RTL 6378 3504 1003 TAD OLNUM 6379 3505 1003 TAD OLNUM 6380 3506 1004 TAD NUNUM /PLUS NEW DIGIT 6381 3507 3003 DCA OLNUM /MAKES NEW NO 6382 3510 5266 JMP BEGINP 6383 3511 1003 DN, TAD OLNUM 6384 3512 7570 SNA SPA SZL 6385 3513 5337 JMP BEGER2 /JUNKY NO 6386 3514 7041 CIA 6387 3515 1021 TAD LBLK 6388 3516 7510 SPA 6389 3517 5200 JMP BEGER0 /TOO MUCH ASKED FOR 6390 3520 3021 DCA LBLK /NEW AMOUNT REMAINING 6391 3521 1003 TAD OLNUM 6392 3522 2020 ISZ USRCTR 6393 3523 7410 SKP 6394 3524 5345 JMP BEGR2 6395 3525 3401 DCA I USRPTR 6396 3526 2001 ISZ USRPTR 6397 3527 1021 TAD LBLK 6398 3530 7640 SZA CLA /MORE TO COME IN THIS FIELD? 6399 3531 5235 JMP BEGXXX /SURE IS 6400 3532 7340 L7777 6401 3533 1006 TAD CURFLD 6402 3534 7710 SPA CLA 6403 3535 5200 JMP BEGER0 6404 3536 5213 JMP BEGFLD /MORE FIELDS TO COME 6405 3537 4777 BEGER2, JMS I (BEG003 6406 3540 2501 BEGME 6407 3541 5263 JMP BEGRE 6408 3542 4777 BEGER1, JMS I (BEG003 6409 3543 2501 BEGME 6410 3544 5235 JMP BEGXXX 6411 3545 1021 BEGR2, TAD LBLK /EXPAND HIM TO FINISH FIELD 6412 3546 3401 DCA I USRPTR /THERE'S NO REASON TO WASTE CORE 6413 3547 2001 ISZ USRPTR /JUST THINK OF ALL THE PEOPLE WHO GO TO BED HUNGRY FOR IT EVERY NIGHT! 6414 3550 5763 JMP I (BEG540 6415 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 134 6416 3563 3600 6417 3564 0011 6418 3565 7724 6419 3566 7563 6420 3567 0010 6421 3570 7510 6422 3571 2414 6423 3572 4301 6424 3573 0020 6425 3574 7772 6426 3575 0060 6427 3576 5000 6428 3577 2432 3600 PAGE 6429 3600 7303 BEG540, CLA CLL IAC BSW 6430 3601 1377 TAD (-100 6431 3602 7640 SZA CLA 6432 3603 5253 JMP BEG550-2 /NOT AN 8/E 6433 3604 1007 TAD BEGDEV 6434 3605 7650 SNA CLA 6435 3606 5254 JMP BEG550-1 /THE FOOL HAS AN 8/E WITH DC02 6436 3607 6201 CDF 6437 3610 1024 TAD KLSCH 6438 3611 3651 DCA I BEGKL5 6439 3612 1023 TAD KLTOP 6440 3613 3652 DCA I BEGKL6 6441 3614 6211 CDF 10 6442 3615 1246 TAD KL8FRST 6443 3616 7640 SZA CLA /FIRST TIME THROUGH 6444 3617 5255 JMP BEG550 /NO 6445 3620 2246 ISZ KL8FRST /SIGNIFY DONE 6446 3621 1644 TAD I BEGKL1 6447 3622 3645 DCA I BEGKL2 6448 3623 2244 ISZ BEGKL1 6449 3624 2245 ISZ BEGKL2 /MOVE PATCH TO PROPER POSITION 6450 3625 5221 JMP .-4 6451 3626 6201 CDF 6452 3627 1376 TAD (CIF SWAP 6453 3630 3647 DCA I BEGKL3 6454 3631 2247 ISZ BEGKL3 6455 3632 1375 TAD (KL8JMP+2&177+5600 6456 3633 3647 DCA I BEGKL3 6457 3634 1376 TAD (CIF SWAP 6458 3635 3650 DCA I BEGKL4 6459 3636 2250 ISZ BEGKL4 6460 3637 1374 TAD (KL8JM0+2&177+5600 6461 3640 3650 DCA I BEGKL4 6462 3641 6211 CDF 10 6463 3642 1023 TAD KLTOP 6464 3643 5254 JMP BEG550-1 /SET TOP OF FIELD 1 6465 3644 7356 BEGKL1, KL8LOD 6466 3645 7756 BEGKL2, KL8FIX 6467 3646 0000 KL8FRST, 0 6468 3647 5343 BEGKL3, KL8JMP 6469 3650 0207 BEGKL4, KL8JM0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 134-1 6470 3651 0211 BEGKL5, KL8JM0+2 6471 3652 5345 BEGKL6, KL8JMP+2 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 135 6472 3653 3773 DCA I (INTRRV 6473 3654 3023 DCA KLTOP 6474 3655 1372 BEG550, TAD (USRLST /NOW WE SORT FOR FIELDS TO MAKE IT EASY 6475 3656 3001 DCA USRPTR 6476 3657 1371 TAD (3 6477 3660 1372 TAD (USRLST 6478 3661 3002 DCA CORPTR 6479 3662 1005 TAD BEGUSR 6480 3663 3020 DCA USRCTR 6481 3664 3021 DCA SS /SORT SWITCH FOR MODIFIED BUBBLE SORT 6482 3665 1001 BEG551, TAD USRPTR 6483 3666 7001 IAC 6484 3667 3003 DCA USRPT2 6485 3670 1002 TAD CORPTR 6486 3671 7001 IAC 6487 3672 3004 DCA CORPT2 6488 3673 2020 ISZ USRCTR 6489 3674 7410 SKP 6490 3675 5327 JMP BEG553 6491 3676 1403 TAD I USRPT2 6492 3677 7041 CIA 6493 3700 1404 TAD I CORPT2 6494 3701 7750 SNA SPA CLA 6495 3702 5320 JMP BEG552 6496 3703 7346 L7775 6497 3704 3021 DCA SS /3 SWAPS 6498 3705 1401 TAD I USRPTR 6499 3706 3000 DCA 0 6500 3707 1402 TAD I CORPTR 6501 3710 3401 DCA I USRPTR 6502 3711 1000 TAD 0 6503 3712 3402 DCA I CORPTR 6504 3713 2001 ISZ USRPTR 6505 3714 2002 ISZ CORPTR 6506 3715 2021 ISZ SS 6507 3716 5305 JMP .-11 6508 3717 2021 ISZ SS /SET TO INDICATE 6509 3720 7326 BEG552, L0002 6510 3721 1003 TAD USRPT2 6511 3722 3001 DCA USRPTR 6512 3723 7326 L0002 6513 3724 1004 TAD CORPT2 6514 3725 3002 DCA CORPTR 6515 3726 5265 JMP BEG551 6516 6517 3727 1021 BEG553, TAD SS 6518 3730 7640 SZA CLA 6519 3731 5255 JMP BEG550 6520 3732 5770 JMP I (BEG600 6521 3770 4000 6522 3771 0003 6523 3772 5000 6524 3773 1311 6525 3774 5611 6526 3775 5745 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 135-1 6527 3776 6212 6528 3777 7700 4000 PAGE 6529 4000 1377 BEG600, TAD (BEGLST 6530 4001 3003 DCA USRPT2 6531 4002 1376 TAD (USRLST 6532 4003 3001 DCA USRPTR 6533 4004 1005 TAD BEGUSR 6534 4005 3020 DCA USRCTR 6535 4006 1005 TAD BEGUSR 6536 4007 3775 DCA I (BEGUS1 6537 4010 1774 TAD I (USRLST+1 6538 4011 3006 BEG610, DCA CURFLD 6539 4012 7340 L7777 6540 4013 1006 TAD CURFLD 6541 4014 7640 SZA CLA 6542 4015 5227 JMP .+12 6543 4016 1023 TAD KLTOP 6544 4017 3314 DCA BEG602 6545 4020 1005 TAD BEGUSR 6546 4021 3021 DCA SS 6547 4022 1373 TAD (ENSWAP-STSWAP+1 6548 4023 2021 ISZ SS 6549 4024 5222 JMP .-2 6550 4025 1372 TAD (ORG 6551 4026 5231 JMP .+3 6552 4027 3314 DCA BEG602 6553 4030 1371 TAD (CONLEN 6554 4031 3313 DCA BEG601 6555 4032 1401 NXUSR, TAD I USRPTR 6556 4033 2001 ISZ USRPTR 6557 4034 3403 DCA I USRPT2 6558 4035 2003 ISZ USRPT2 6559 4036 1401 TAD I USRPTR 6560 4037 7041 CIA 6561 4040 1006 TAD CURFLD 6562 4041 7640 SZA CLA 6563 4042 5315 JMP BEG609 /HE WANTS A NEW FIELD 6564 4043 2001 ISZ USRPTR 6565 4044 1006 TAD CURFLD 6566 4045 7104 CLL RAL 6567 4046 7006 RTL 6568 4047 1370 TAD (6201 /MAKE UP XFIELD OP 6569 4050 3403 DCA I USRPT2 /INTO OUR QUICKIE LIST 6570 4051 2003 ISZ USRPT2 6571 4052 1401 TAD I USRPTR 6572 4053 2001 ISZ USRPTR 6573 4054 7041 CIA 6574 4055 3021 DCA SS 6575 4056 1367 TAD (400 6576 4057 2021 ISZ SS 6577 4060 5256 JMP .-2 /MULT. HIS BLOCKSIZE BY 400 OCTAL FOR CORE SIZE 6578 4061 3021 DCA SS 6579 4062 7344 L7776 6580 4063 1314 TAD BEG602 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 135-2 6581 4064 3403 DCA I USRPT2 6582 4065 2003 ISZ USRPT2 6583 4066 1021 TAD SS 6584 4067 7041 CIA 6585 4070 1314 TAD BEG602 6586 4071 3314 DCA BEG602 6587 4072 1366 TAD (4 6588 4073 1314 TAD BEG602 6589 4074 7710 SPA CLA 6590 4075 5305 JMP BEG608-1 6591 4076 1314 TAD BEG602 6592 4077 7510 SPA 6593 4100 5327 JMP BEG607 6594 4101 7041 CIA 6595 4102 1313 TAD BEG601 6596 4103 7700 SMA CLA 6597 4104 5327 JMP BEG607 6598 4105 1314 TAD BEG602 6599 4106 3403 BEG608, DCA I USRPT2 6600 4107 2003 ISZ USRPT2 6601 4110 2020 ISZ USRCTR 6602 4111 5232 JMP NXUSR 6603 4112 5765 JMP I (BEG700 /WHEW..THAT WENT QUICKLY ANYWAY 6604 4113 0000 BEG601, 0 /BOTTOM 6605 4114 0000 BEG602, 0 /TOP 6606 4115 1001 BEG609, TAD USRPTR 6607 4116 3006 DCA CURFLD /SAVE IT 6608 4117 7340 L7777 6609 4120 1001 TAD USRPTR 6610 4121 3001 DCA USRPTR /TAKE OUT ENTRIES 6611 4122 7340 L7777 6612 4123 1003 TAD USRPT2 6613 4124 3003 DCA USRPT2 6614 4125 1406 TAD I CURFLD /COUNT DOWN FIELD 6615 4126 5211 JMP BEG610 6616 4127 7200 BEG607, CLA 6617 4130 1313 TAD BEG601 6618 4131 5306 JMP BEG608 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 136 6619 4165 4200 6620 4166 0004 6621 4167 0400 6622 4170 6201 6623 4171 0022 6624 4172 2000 6625 4173 0051 6626 4174 5001 6627 4175 7130 6628 4176 5000 6629 4177 7400 4200 PAGE 6630 6631 4200 1377 BEG700, TAD (BEGLST 6632 4201 3001 DCA USRPTR 6633 4202 3021 DCA SS 6634 4203 1005 TAD BEGUSR 6635 4204 3020 DCA USRCTR 6636 4205 1376 TAD (4 6637 4206 1377 TAD (BEGLST 6638 4207 3003 DCA USRPT2 6639 4210 2020 BEG7X1, ISZ USRCTR 6640 4211 7410 SKP 6641 4212 5246 JMP BEG703 6642 4213 1401 TAD I USRPTR 6643 4214 7041 CIA 6644 4215 1403 TAD I USRPT2 6645 4216 7450 SNA 6646 4217 5775 JMP I (BEGER0 /MULTIPLE ASSIGNMENTS FOR ONE USER 6647 4220 7700 SMA CLA 6648 4221 5240 JMP BEG702 6649 4222 1374 TAD (-4 6650 4223 3021 DCA SS 6651 4224 1401 BEG701, TAD I USRPTR 6652 4225 3002 DCA CORPTR 6653 4226 1403 TAD I USRPT2 6654 4227 3401 DCA I USRPTR 6655 4230 1002 TAD CORPTR 6656 4231 3403 DCA I USRPT2 6657 4232 2001 ISZ USRPTR 6658 4233 2003 ISZ USRPT2 6659 4234 2021 ISZ SS 6660 4235 5224 JMP BEG701 6661 4236 2021 ISZ SS 6662 4237 1374 TAD (-4 6663 4240 1003 BEG702, TAD USRPT2 6664 4241 3001 DCA USRPTR 6665 4242 1376 TAD (4 6666 4243 1001 TAD USRPTR 6667 4244 3003 DCA USRPT2 6668 4245 5210 JMP BEG7X1 6669 6670 4246 1021 BEG703, TAD SS 6671 4247 7640 SZA CLA 6672 4250 5200 JMP BEG700 /MORE TO COME /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 136-1 6673 4251 1377 TAD (BEGLST 6674 4252 3001 DCA USRPTR /NOW TAKE OUT USER NOS. 6675 4253 1005 TAD BEGUSR 6676 4254 3020 DCA USRCTR 6677 4255 7001 IAC 6678 4256 1377 TAD (BEGLST 6679 4257 3003 DCA USRPT2 6680 4260 7346 BEG704, L7775 6681 4261 3021 DCA SS 6682 4262 1403 TAD I USRPT2 6683 4263 3401 DCA I USRPTR 6684 4264 2001 ISZ USRPTR 6685 4265 2003 ISZ USRPT2 6686 4266 2021 ISZ SS 6687 4267 5262 JMP .-5 6688 4270 2003 ISZ USRPT2 /SKIP OVER USER NO. 6689 4271 2020 ISZ USRCTR 6690 4272 5260 JMP BEG704 6691 4273 4773 JMS I (BEG01Q 6692 4274 3070 BEGM6A 6693 4275 5772 JMP I (BEG002 /OH NO--ALL THIS JUNK FOR NOTHING! 6694 4276 4771 JMS I (BEG003 6695 4277 3002 BEGM6 6696 4300 5770 JMP I (BEG750 6697 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 137 6698 4301 0000 BEGPRNT,0 6699 4302 3335 DCA BEG705 6700 4303 1367 TAD (-12 6701 4304 3333 DCA BEG706 6702 4305 3334 DCA BEG707 6703 4306 5311 JMP .+3 6704 4307 2334 ISZ BEG707 6705 4310 3335 DCA BEG705 6706 4311 1335 BEGPR1, TAD BEG705 6707 4312 1333 TAD BEG706 6708 4313 7500 SMA 6709 4314 5307 JMP .-5 6710 4315 7200 CLA 6711 4316 1366 TAD (60 6712 4317 1334 TAD BEG707 6713 4320 6046 TLS 6714 4321 6041 TSF 6715 4322 5321 JMP .-1 6716 4323 6032 KCC 6717 4324 2333 ISZ BEG706 6718 4325 7410 SKP 6719 4326 5701 JMP I BEGPRNT /WAS SECOND TIME THROUGH 6720 4327 7340 L7777 6721 4330 3333 DCA BEG706 6722 4331 3334 DCA BEG707 6723 4332 5311 JMP BEGPR1 6724 4333 0000 BEG706, 0 6725 4334 0000 BEG707, 0 6726 4335 0000 BEG705, 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 138 6727 0021 BEG604=SS 6728 0001 BEG605=USRPTR 6729 4366 0060 6730 4367 7766 6731 4370 4400 6732 4371 2432 6733 4372 2026 6734 4373 2327 6735 4374 7774 6736 4375 3400 6737 4376 0004 6738 4377 7400 4400 PAGE 6739 6740 4400 6201 BEG750, CDF 6741 4401 1777 TAD I (MLOOKE 6742 4402 1005 TAD BEGUSR 6743 4403 3777 DCA I (MLOOKE /CORRECT FOR NO. OF USERS 6744 4404 1777 TAD I (MLOOKE 6745 4405 7041 CIA 6746 4406 3776 DCA I (LOOK 6747 4407 1005 TAD BEGUSR 6748 4410 3775 DCA I (MUSER /SETUP FOR NO. OF USERS 6749 4411 6211 CDF 10 6750 4412 1374 TAD (BEGIOT-1 6751 4413 3021 DCA BEG604 6752 4414 1373 TAD (INTRPL 6753 4415 3001 DCA BEG605 6754 4416 7340 L7777 6755 4417 1005 TAD BEGUSR 6756 4420 3306 DCA BEG60X 6757 4421 1005 TAD BEGUSR 6758 4422 3020 DCA USRCTR 6759 4423 6211 BEG75Q, CDF 10 6760 4424 1421 TAD I BEG604 6761 4425 2021 ISZ BEG604 6762 4426 6201 CDF 6763 4427 2306 ISZ BEG60X 6764 4430 5234 JMP .+4 6765 4431 7240 CLA CMA 6766 4432 3306 DCA BEG60X 6767 4433 1372 TAD (CLA-6006 6768 4434 1371 TAD (6006 6769 4435 3401 DCA I BEG605 6770 4436 2001 ISZ BEG605 6771 4437 2020 ISZ USRCTR 6772 4440 5223 JMP BEG75Q 6773 4441 6201 CDF 6774 4442 1005 TAD BEGUSR 6775 4443 3021 DCA SS 6776 4444 2021 ISZ SS 6777 4445 7410 SKP 6778 4446 5251 JMP .+3 6779 4447 7130 CLL CML RAR 6780 4450 5244 JMP .-4 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 138-1 6781 4451 1370 TAD (10 /GROUP 1 6782 4452 3767 DCA I (AUSER 6783 4453 6211 CDF 10 6784 4454 1022 BEG75X, TAD BEGCOR 6785 4455 7106 CLL RTL 6786 4456 7004 RAL 6787 4457 1366 TAD (CDF 6788 4460 3276 DCA BEG756 6789 4461 1276 TAD BEG756 6790 4462 1365 TAD (-6211 6791 4463 7650 SNA CLA 6792 4464 5317 JMP BEG760 6793 4465 1364 TAD (-CONLEN 6794 4466 3311 DCA BEG753 6795 4467 1363 TAD (STMV 6796 4470 3307 DCA BEG751 6797 4471 3310 DCA BEG752 6798 4472 6211 BEG755, CDF 10 6799 4473 1707 TAD I BEG751 6800 4474 2307 ISZ BEG751 6801 4475 7000 NOP 6802 4476 6221 BEG756, CDF 20 6803 4477 3710 DCA I BEG752 6804 4500 2310 ISZ BEG752 6805 4501 5312 JMP BEG754 6806 4502 7340 L7777 6807 4503 1022 TAD BEGCOR 6808 4504 3022 DCA BEGCOR 6809 4505 5254 JMP BEG75X 6810 6811 4506 0000 BEG60X, 0 6812 4507 0000 BEG751, 0 6813 4510 0000 BEG752, 0 6814 4511 0000 BEG753, 0 6815 4512 2311 BEG754, ISZ BEG753 6816 4513 5272 JMP BEG755 6817 4514 7340 L7777 6818 4515 3311 DCA BEG753 6819 4516 5276 JMP BEG756 6820 4517 1007 BEG760, TAD BEGDEV 6821 4520 7650 SNA CLA 6822 4521 5762 JMP I (BEG76X 6823 4522 6201 CDF 6824 4523 3761 DCA I (XOUTL6+3 6825 4524 3760 DCA I (XOUTL6-3 6826 4525 3757 DCA I (INTRP2-2 6827 4526 3756 DCA I (INTRP2+4 6828 4527 3755 DCA I (INTRP5+1 6829 4530 6211 CDF 10 6830 4531 3754 DCA I (INTRV2-2 6831 4532 5753 JMP I (BEG80X 6832 4553 4613 6833 4554 1316 6834 4555 5313 6835 4556 5272 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 138-2 6836 4557 5264 6837 4560 3432 6838 4561 3440 6839 4562 4600 6840 4563 1000 6841 4564 7756 6842 4565 1567 6843 4566 6201 6844 4567 5363 6845 4570 0010 6846 4571 6006 6847 4572 1172 6848 4573 5170 6849 4574 7000 6850 4575 5362 6851 4576 0105 6852 4577 0230 4600 PAGE 6853 4600 6211 BEG76X, CDF 10 6854 4601 1377 TAD (TLS 6855 4602 3776 DCA I (AAACDF+1 6856 4603 3775 DCA I (AAACDF+2 6857 4604 1374 TAD (MTLS 6858 4605 3773 DCA I (INTRV2-1 6859 4606 1372 TAD (17 6860 4607 6117 MTON /DESELECT ALL TTY'S 6861 4610 7301 L0001 6862 4611 6115 MINT 6863 4612 7300 CLA CLL 6864 4613 6211 BEG80X, CDF 10 6865 4614 1023 TAD KLTOP 6866 4615 3771 DCA I (KLTOP2 6867 4616 5770 JMP I (BEG800 6868 6869 4770 7010 6870 4771 7202 6871 4772 0017 6872 4773 1317 6873 4774 6126 6874 4775 1314 6875 4776 1313 6876 4777 6046 5000 PAGE 6877 5000 0000 USRLST, 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 139 6878 IFNZRO FOURTY < 6879 *5200 /DO NOT MOVE FROM 5200 WITHOUT 6880 /CHANGING CONSTANT FOR SWAP 6881 6882 DCMA=6601 6883 DMAW=6605 6884 DEAL=6615 6885 DCIM=6611 6886 DIML=6615 6887 DCXA=6641 6888 DXAL=6643 6889 DFSC=6622 6890 6891 /ROUTINE TO COPY EDU20 IMAGE ONTO DISK TO SET UP EDU40 SYSTEM 6892 6893 E40INT, JMS I (BEG01Q 6894 E40M1 /IS SYSTEM DEVICE A DF32 DISK? 6895 SKP 6896 JMP EDF32 /YES-DISK IS DF32 6897 JMS I (BEG01Q 6898 E40M2 /IS SYSTEM DEVICE AN RF08 DISK? 6899 JMP E40INT /NO-HE DOESN'T KNOW WHAT HE IS TALKING ABOUT 6900 /ROUTINE TO PUT EDU20 ON RF08 DISK 6901 CDF 10 6902 DCIM /WRITE FROM FIELD 0 6903 DCXA /WRITE TO TRACK 0 6904 TAD (200 6905 DCA I (7750 /WC TO 7600 6906 TAD (177 6907 DCA I (7751 /CA TO 200 6908 TAD (200 6909 DMAW /WRITE FIELD 0 IMAGE ONTO TRACK 0 6910 DFSC 6911 JMP .-1 6912 TAD (10 6913 DIML /WRITE FROM FIELD 1 6914 CLA CLL IAC 6915 DXAL /WRITE ONTO TRACK 1 6916 CLA CMA 6917 DCA I (7751 /CA TO 0 6918 DCA I (7750 /WC TO 10000 6919 TAD (7000 6920 CDF 10 6921 DCA I (DISKIN /NOP CALL TO THIS CODE SO WHEN LOADED FROM DISK 6922 CDF 0 6923 /THIS CODE WILL NOT BE RUN 6924 DMAW /WRITE FIELD 1 IMAGE ON DISK 6925 DFSC 6926 JMP .-1 6927 DCIM /WRITE FROM FIELD 0 6928 CLA CLL IAC 6929 DXAL /ONTO TRACK 1 6930 LASTW, TAD (7600 6931 DCA I (7750 /WC TO 200 6932 CLA CMA /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 139-1 6933 DCA I (7751 /CA TO 0 6934 TAD (5200 6935 DMAW /WRITE FIELD0,PAGE 0 IMAGE ONTO TRACK 1 AT 5200 6936 DFSC 6937 JMP .-1 6938 DCMA /CLEAR DISK FLAGS 6939 JMP I (DISKIN+1 /RETURN 6940 6941 /ROUTINE TO PUT EDU20 IMAGE ON DF32 DISK 6942 EDF32, CDF 0 6943 DEAL 6944 TAD (200 6945 DCA I (7750 /WC TO 7600 6946 TAD (177 6947 DCA I (7751 /CA TO 200 6948 TAD (200 6949 DMAW 6950 DFSC 6951 JMP .-1 6952 TAD (110 6953 DEAL 6954 CLA CMA 6955 DCA I (7751 /CA TO 0 6956 DCA I (7750 /WC TO 10000 6957 TAD (7000 6958 CDF 10 6959 DCA I (DISKIN /NOP CALL TO THIS CODE 6960 CDF 0 6961 DMAW /WRITE FIELD 1 ONTO TRACK 1 6962 DFSC 6963 JMP .-1 6964 TAD (100 6965 DEAL /WRITE FROM FIELD 0 ONTO TRACK 1 6966 CLA 6967 JMP LASTW 6968 6969 E40M1, TEXT %_IS SYSTEM DEVICE A DF32 DISK?% 6970 E40M2, TEXT %_IS SYSTEM DEVICE AN RF08 DISK?% 6971 > /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 140 6972 5200 PAGE 6973 /THIS ROUTINE DOES ALLOCATION THE OLD WAY IF YOU ASK FOR THE SAME AMOUNT 6974 /OF CORE FOR ALL USERS. IT DOES A TABLE LOOKUP ON BEGCOR&BEGUSR AND 6975 /ENTERS THINGS IN USRLST THE WAY YOU WOULD IF YOU ANSWERED QUESTIONS 6976 5200 1022 BEGOLD, TAD BEGCOR 6977 5201 7106 CLL RTL 6978 5202 7004 RAL 6979 5203 1005 TAD BEGUSR /GET ADDR. OF ADDR. OF LIST 6980 5204 1377 TAD (BGLD1 6981 5205 3021 DCA SS 6982 5206 1421 TAD I SS 6983 5207 3021 DCA SS 6984 5210 1376 TAD (USRLST 6985 5211 3001 DCA USRPTR /SETUP TO SLIDE 6986 5212 1005 TAD BEGUSR 6987 5213 3020 DCA USRCTR /NO. OF SLIDES 6988 5214 1421 BEGOL1, TAD I SS 6989 5215 7106 CLL RTL 6990 5216 7006 RTL 6991 5217 0375 AND (7 6992 5220 7001 IAC /CORRECT USERNO. 6993 5221 3401 DCA I USRPTR 6994 5222 2001 ISZ USRPTR 6995 5223 1421 TAD I SS 6996 5224 7112 CLL RTR 6997 5225 7012 RTR 6998 5226 7012 RTR 6999 5227 0375 AND (7 /SET FIELD 7000 5230 3401 DCA I USRPTR 7001 5231 2001 ISZ USRPTR 7002 5232 1421 TAD I SS 7003 5233 0374 AND (37 7004 5234 3401 DCA I USRPTR 7005 5235 2021 ISZ SS 7006 5236 2001 ISZ USRPTR 7007 5237 2020 ISZ USRCTR 7008 5240 5214 JMP BEGOL1 7009 5241 5773 JMP I (BEG540 /CONTINUE ON...WE'VE ANSWERED QUESTIONS FOR HIM NOW. 7010 5373 3600 7011 5374 0037 7012 5375 0007 7013 5376 5000 7014 5377 5674 5400 PAGE 7015 /THE FORMAT OF THE FOLLOWING LIST OF ANSWERS IS THE FOLLOWING: 7016 /(USER NO. [0 TO 7] +FIELD)TIMES 100 PLUS BLOCKSIZE. 7017 /THIS GETS ALL THREE DATA ABOUT EACH USER INTO ONE WORD. 7018 /THE USER NO. IS INTERNAL USER NO. OR EXTERNAL USER NO.-1 7019 0100 X=100 7020 5400 0112 BGL11, 01^X+12 7021 5401 0105 BGL12, 01^X+5 7022 5402 1105 11^X+5 7023 5403 0104 BGL13, 01^X+4 7024 5404 1103 11^X+3 7025 5405 2103 21^X+3 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 140-1 7026 5406 0103 BGL14, 01^X+3 7027 5407 1103 11^X+3 7028 5410 2102 21^X+2 7029 5411 3102 31^X+2 7030 5412 0102 BGL15, 01^X+2 7031 5413 1102 11^X+2 7032 5414 2102 21^X+2 7033 5415 3102 31^X+2 7034 5416 4102 41^X+2 7035 5417 0102 BGL16, 01^X+2 7036 5420 1102 11^X+2 7037 5421 2102 21^X+2 7038 5422 3102 31^X+2 7039 5423 4101 41^X+1 7040 5424 5101 51^X+1 7041 5425 0102 BGL17, 01^X+2 7042 5426 1102 11^X+2 7043 5427 2102 21^X+2 7044 5430 3101 31^X+1 7045 5431 4101 41^X+1 7046 5432 5101 51^X+1 7047 5433 6101 61^X+1 7048 5434 0102 BGL18, 01^X+2 7049 5435 1102 11^X+2 7050 5436 2101 21^X+1 7051 5437 3101 31^X+1 7052 5440 4101 41^X+1 7053 5441 5101 51^X+1 7054 5442 6101 61^X+1 7055 5443 7101 71^X+1 7056 5444 1112 BGL22, 11^X+12 7057 5445 0220 BGL21, 02^X+20 7058 5445 BGL31=BGL21 7059 5445 BGL41=BGL21 7060 5445 BGL51=BGL21 7061 5445 BGL61=BGL21 7062 5445 BGL71=BGL21 7063 5446 0112 BGL23, 01^X+12 7064 5447 1210 12^X+10 7065 5450 2210 22^X+10 7066 5451 0210 BGL24, 02^X+10 7067 5452 1210 12^X+10 7068 5453 2105 21^X+5 7069 5454 3105 31^X+5 7070 5455 0206 BGL25, 02^X+6 7071 5456 1105 11^X+5 7072 5457 2105 21^X+5 7073 5460 3205 32^X+5 7074 5461 4205 42^X+5 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 141 7075 5462 0105 BGL26, 01^X+5 7076 5463 1105 11^X+5 7077 5464 2204 22^X+4 7078 5465 3204 32^X+4 7079 5466 4204 42^X+4 7080 5467 5204 52^X+4 7081 5470 0104 BGL27, 01^X+4 7082 5471 1204 12^X+4 7083 5472 2204 22^X+4 7084 5473 3204 32^X+4 7085 5474 4204 42^X+4 7086 5475 5103 51^X+3 7087 5476 6103 61^X+3 7088 5477 0104 BGL28, 01^X+4 7089 5500 1204 12^X+4 7090 5501 2103 21^X+3 7091 5502 3103 31^X+3 7092 5503 4203 42^X+3 7093 5504 5203 52^X+3 7094 5505 6203 62^X+3 7095 5506 7203 72^X+3 7096 5507 2112 BGL33, 21^X+12 7097 5510 0220 BGL32, 02^X+20 7098 5511 1320 13^X+20 7099 5510 BGL42=BGL32 7100 5510 BGL52=BGL32 7101 5510 BGL62=BGL32 7102 5510 BGL72=BGL32 7103 5512 0220 BGL34, 02^X+20 7104 5513 1112 11^X+12 7105 5514 2310 23^X+10 7106 5515 3310 33^X+10 7107 5516 0112 BGL35, 01^X+12 7108 5517 1210 12^X+10 7109 5520 2210 22^X+10 7110 5521 3310 33^X+10 7111 5522 4310 43^X+10 7112 5523 0210 BGL36, 02^X+10 7113 5524 1210 12^X+10 7114 5525 2310 23^X+10 7115 5526 3310 33^X+10 7116 5527 4105 41^X+5 7117 5530 5105 51^X+5 7118 5531 0210 BGL37, 02^X+10 7119 5532 1210 12^X+10 7120 5533 2306 23^X+6 7121 5534 3105 31^X+5 7122 5535 4105 41^X+5 7123 5536 5305 53^X+5 7124 5537 6305 63^X+5 7125 5540 0206 BGL38, 02^X+6 7126 5541 1306 13^X+6 7127 5542 2105 21^X+5 7128 5543 3105 31^X+5 7129 5544 4205 42^X+5 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 141-1 7130 5545 5205 52^X+5 7131 5546 6305 63^X+5 7132 5547 7305 73^X+5 7133 7134 7135 7136 5550 3112 BGL44, 31^X+12 7137 5551 0220 BGL43, 02^X+20 7138 5552 1320 13^X+20 7139 5553 2420 24^X+20 7140 5551 BGL53=BGL43 7141 5551 BGL63=BGL43 7142 5551 BGL73=BGL43 7143 5554 0220 BGL45, 02^X+20 7144 5555 1320 13^X+20 7145 5556 2112 21^X+12 7146 5557 3410 34^X+10 7147 5560 4410 44^X+10 7148 5561 0220 BGL46, 02^X+20 7149 5562 1112 11^X+12 7150 5563 2310 23^X+10 7151 5564 3310 33^X+10 7152 5565 4410 44^X+10 7153 5566 5410 54^X+10 7154 5567 0112 BGL47, 01^X+12 7155 5570 1210 12^X+10 7156 5571 2210 22^X+10 7157 5572 3310 33^X+10 7158 5573 4310 43^X+10 7159 5574 5410 54^X+10 7160 5575 6410 64^X+10 7161 5576 6105 BGL48, 61^X+5 7162 5577 7105 71^X+5 7163 5600 0210 02^X+10 7164 5601 1210 12^X+10 7165 5602 2310 23^X+10 7166 5603 3310 33^X+10 7167 5604 4410 44^X+10 7168 5605 5410 54^X+10 7169 5606 4112 BGL55, 41^X+12 7170 5607 0220 BGL54, 02^X+20 7171 5610 1320 13^X+20 7172 5611 2420 24^X+20 7173 5612 3520 35^X+20 7174 5607 BGL64=BGL54 7175 5607 BGL74=BGL54 7176 7177 5613 0220 BGL56, 02^X+20 7178 5614 1320 13^X+20 7179 5615 2420 24^X+20 7180 5616 3112 31^X+12 7181 5617 4510 45^X+10 7182 5620 5510 55^X+10 7183 5621 0220 BGL57, 02^X+20 7184 5622 1320 13^X+20 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 141-2 7185 5623 2112 21^X+12 7186 5624 3410 34^X+10 7187 5625 4410 44^X+10 7188 5626 5510 55^X+10 7189 5627 6510 65^X+10 7190 5630 0220 BGL58, 02^X+20 7191 5631 1112 11^X+12 7192 5632 2310 23^X+10 7193 5633 3310 33^X+10 7194 5634 4410 44^X+10 7195 5635 5410 54^X+10 7196 5636 6510 65^X+10 7197 5637 7510 75^X+10 7198 5640 5112 BGL66, 51^X+12 7199 5641 0220 BGL65, 02^X+20 7200 5642 1320 13^X+20 7201 5643 2420 24^X+20 7202 5644 3520 35^X+20 7203 5645 4620 46^X+20 7204 5641 BGL75=BGL65 7205 5646 4112 BGL67, 41^X+12 7206 5647 0220 02^X+20 7207 5650 1320 13^X+20 7208 5651 2420 24^X+20 7209 5652 3520 35^X+20 7210 5653 5610 56^X+10 7211 5654 6610 66^X+10 7212 5655 0220 BGL68, 02^X+20 7213 5656 1320 13^X+20 7214 5657 2420 24^X+20 7215 5660 3112 31^X+12 7216 5661 4510 45^X+10 7217 5662 5510 55^X+10 7218 5663 6610 66^X+10 7219 5664 7610 76^X+10 7220 5665 7112 BGL78, 71^X+12 7221 5666 6720 BGL77, 67^X+20 7222 5667 0220 BGL76, 02^X+20 7223 5670 1320 13^X+20 7224 5671 2420 24^X+20 7225 5672 4620 46^X+20 7226 5673 3520 35^X+20 7227 5674 5434 BGLD1, BGL18 7228 5675 5425 BGL17 7229 5676 5417 BGL16 7230 5677 5412 BGL15 7231 5700 5406 BGL14 7232 5701 5403 BGL13 7233 5702 5401 BGL12 7234 5703 5400 BGL11 7235 5704 5477 BGL28 7236 5705 5470 BGL27 7237 5706 5462 BGL26 7238 5707 5455 BGL25 7239 5710 5451 BGL24 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 141-3 7240 5711 5446 BGL23 7241 5712 5444 BGL22 7242 5713 5445 BGL21 7243 5714 5540 BGL38 7244 5715 5531 BGL37 7245 5716 5523 BGL36 7246 5717 5516 BGL35 7247 5720 5512 BGL34 7248 5721 5507 BGL33 7249 5722 5510 BGL32 7250 5723 5445 BGL31 7251 5724 5576 BGL48 7252 5725 5567 BGL47 7253 5726 5561 BGL46 7254 5727 5554 BGL45 7255 5730 5550 BGL44 7256 5731 5551 BGL43 7257 5732 5510 BGL42 7258 5733 5445 BGL41 7259 5734 5630 BGL58 7260 5735 5621 BGL57 7261 5736 5613 BGL56 7262 5737 5606 BGL55 7263 5740 5607 BGL54 7264 5741 5551 BGL53 7265 5742 5510 BGL52 7266 5743 5445 BGL51 7267 5744 5655 BGL68 7268 5745 5646 BGL67 7269 5746 5640 BGL66 7270 5747 5641 BGL65 7271 5750 5607 BGL64 7272 5751 5551 BGL63 7273 5752 5510 BGL62 7274 5753 5445 BGL61 7275 5754 5665 BGL78 7276 5755 5666 BGL77 7277 5756 5667 BGL76 7278 5757 5641 BGL75 7279 5760 5607 BGL74 7280 5761 5551 BGL73 7281 5762 5510 BGL72 7282 5763 5445 BGL71 7283 7284 7285 7286 7287 7288 7289 7290 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 142 7291 IFNZRO CONFIG < 7292 XLIST 7293 NOPUNCH> 7294 7295 6200 *6200 7296 7297 6200 1773 MONDSK, 1773 7298 6201 3772 3772 7299 6202 2372 2372 7300 6203 2373 2373 7301 6204 5356 5356 7302 6205 1371 1371 7303 6206 3350 3350 7304 6207 1371 1371 7305 6210 3351 3351 7306 6211 5770 5770 7307 6212 7573 7573 7308 6213 7576 7576 7309 6214 7573 7573 7310 6215 7774 7774 7311 6216 6603 6603 7312 6217 6622 6622 7313 6220 5374 5374 7314 6221 7610 7610 7315 7316 6222 1774 MONTAP, 1774 7317 6223 3773 3773 7318 6224 2373 2373 7319 6225 2374 2374 7320 6226 5356 5356 7321 6227 3354 3354 7322 6230 1372 1372 7323 6231 3355 3355 7324 6232 1371 1371 7325 6233 5770 5770 7326 6234 7575 7575 7327 6235 0220 0220 7328 6236 7577 7577 7329 6237 7575 7575 7330 6240 7775 7775 7331 6241 6766 6766 7332 6242 6771 6771 7333 6243 5376 5376 7334 7335 6244 1377 OSDRK8, 1377 7336 6245 3030 3030 7337 6246 1376 1376 7338 6247 3031 3031 7339 6250 5030 5030 7340 6251 0000 0 7341 6252 0000 0 7342 6253 0000 0 7343 6254 0000 0 7344 6255 0000 0 7345 6256 0000 0 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 142-1 7346 6257 0000 0 7347 6260 0000 0 7348 6261 0000 0 7349 6262 0000 0 7350 6263 0000 0 7351 6264 5031 5031 7352 6265 6733 6733 7353 7354 6266 1772 OSDDSK, 1772 7355 6267 3771 3771 7356 6270 2371 2371 7357 6271 2372 2372 7358 6272 5356 5356 7359 6273 5350 5350 7360 6274 0000 0 7361 6275 0000 0 7362 6276 0000 0 7363 6277 0000 0 7364 6300 0000 0 7365 6301 7750 7750 7366 6302 7773 7773 7367 6303 7600 7600 7368 6304 6603 6603 7369 6305 6622 6622 7370 6306 5352 5352 7371 6307 5752 5752 7372 7373 6310 6774 OSDDTA, 6774 7374 6311 1377 1377 7375 6312 3354 3354 7376 6313 1376 1376 7377 6314 3355 3355 7378 6315 1375 1375 7379 6316 6766 6766 7380 6317 6771 6771 7381 6320 5365 5365 7382 6321 1374 1374 7383 6322 6766 6766 7384 6323 6771 6771 7385 6324 5371 5371 7386 6325 5200 5200 7387 6326 0220 220 7388 6327 0600 600 7389 6330 7577 7577 7390 6331 7700 7700 7391 7392 6332 1114 OS8ERM, TEXT %ILLEGAL OS/8 DEVICE FOUND_CAN'T SAVE BOOTSTRAP__% 6333 1405 6334 0701 6335 1440 6336 1723 6337 5770 6340 4004 6341 0526 6342 1103 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 142-2 6343 0540 6344 0617 6345 2516 6346 0437 6347 0301 6350 1647 6351 2440 6352 2301 6353 2605 6354 4002 6355 1717 6356 2423 6357 2422 6360 0120 6361 3737 6362 0000 7393 6363 3737 OS8MSG, TEXT %__TO BOOTSTRAP BACK % 6364 2417 6365 4002 6366 1717 6367 2423 6370 2422 6371 0120 6372 4002 6373 0103 6374 1340 6375 0000 7394 6376 1723 OS8M1, TEXT %OS/8% 6377 5770 6400 0000 7395 6401 4015 OS8M2, TEXT % MONITOR:_ LOAD ADDRESS 07600_ AND START__% 6402 1716 6403 1124 6404 1722 6405 7237 6406 4040 6407 1417 6410 0104 6411 4001 6412 0404 6413 2205 6414 2323 6415 4060 6416 6766 6417 6060 6420 3740 6421 4001 6422 1604 6423 4023 6424 2401 6425 2224 6426 3737 6427 0000 7396 6430 0411 DISKMM, TEXT %DISK% 6431 2313 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 142-3 6432 0000 7397 6433 2401 TAPMM, TEXT %TAPE% 6434 2005 6435 0000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 143 7398 7399 6436 6211 BEGOS8, CDF 10 7400 6437 1777 TAD I (7760 /GET DCB OF SYS: 7401 6440 0376 AND (770 7402 6441 1375 TAD (-050 /5 IS RK8 7403 6442 7510 SPA 7404 6443 5253 JMP OS8ERR /<5 IS ERROR 7405 6444 7450 SNA 7406 6445 5265 JMP OS8RK8 /5 = RK8 7407 6446 1374 TAD (050-160 /16 IS DECTAPE 7408 6447 7510 SPA 7409 6450 5257 JMP OS8KSK /6 TO 15 = DSK 7410 6451 7650 SNA CLA 7411 6452 5264 JMP OS8DTA /16 = DTA: 7412 6453 7200 OS8ERR, CLA 7413 6454 4773 JMS I (BEG003 7414 6455 6332 OS8ERM /BAD OS8 DEVICE 7415 6456 5772 JMP I (BEGMV4 /DO NOT SET UP ANYTHING 7416 7417 6457 7200 OS8KSK, CLA 7418 6460 5263 JMP OS8DSK 7419 7420 6461 7001 IAC 7421 6462 7001 IAC 7422 6463 7001 OS8DSK, IAC 7423 6464 7001 OS8DTA, IAC 7424 6465 7001 OS8RK8, IAC 7425 6466 1371 TAD (OS8LST-1 7426 6467 3311 DCA OS8PTR 7427 6470 1711 TAD I OS8PTR 7428 6471 3311 DCA OS8PTR /POINT TO BOOTSTRAP 7429 6472 6211 OS8LP1, CDF 10 7430 6473 1711 TAD I OS8PTR 7431 6474 2311 ISZ OS8PTR 7432 6475 6201 CDF 7433 6476 3712 DCA I OS8PT2 7434 6477 2312 ISZ OS8PT2 7435 6500 5272 JMP OS8LP1 7436 6501 6211 CDF 10 7437 6502 4773 JMS I (BEG003 7438 6503 6363 OS8MSG /OS8 MESSAGE 7439 6504 4773 JMS I (BEG003 7440 6505 6376 OS8AB, OS8M1 7441 6506 4773 JMS I (BEG003 7442 6507 6401 OS8M2 7443 6510 5772 JMP I (BEGMV4 7444 7445 6511 0000 OS8PTR, 0 7446 6512 7756 OS8PT2, 7756 /INTO RIM LOCATIONS 7447 7448 6513 6244 OS8LST, OSDRK8 7449 6514 6310 OSDDTA 7450 6515 6266 OSDDSK 7451 6516 6200 MONDSK 7452 6517 6222 MONTAP /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 143-1 7453 7454 6520 6211 TAPEM, CDF 10 7455 6521 1370 TAD (600 7456 6522 6766 DTXA DTCA /REWIND TAPE 7457 6523 6771 DTSF 7458 6524 5323 JMP .-1 7459 6525 1367 TAD (TAPMM 7460 6526 3305 DCA OS8AB 7461 6527 5261 JMP OS8DSK-2 7462 7463 6530 6211 DISKM, CDF 10 7464 6531 1366 TAD (DISKMM 7465 6532 3305 DCA OS8AB 7466 6533 5262 JMP OS8DSK-1 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 144 7467 IFNZRO CONFIG < 7468 PAGE 7469 XLIST 7470 ENPUNCH 7471 > /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 145 7472 6566 6430 7473 6567 6433 7474 6570 0600 7475 6571 6512 7476 6572 2003 7477 6573 2432 7478 6574 7670 7479 6575 7730 7480 6576 0770 7481 6577 7760 7000 *7000 7482 7483 7000 0040 40 7484 7001 0120 BEGIOT, 120 7485 7002 0120 120 7486 7003 0120 120 7487 7004 0120 120 7488 7005 0120 120 7489 7006 0120 120 7490 7007 0120 120 7491 7010 1377 BEG800, TAD (ORG 7492 7011 3331 DCA BEG801 7493 7012 1376 TAD (BEGLST 7494 7013 3332 BEGZCT, DCA BEG802 7495 7014 1375 TAD (BEGLST+1 7496 7015 3334 DCA BEG804 7497 7016 1374 TAD (BEGLST+2 7498 7017 3333 DCA BEG803 7499 7020 1373 TAD (BEGIOT-1 7500 7021 3335 DCA BEG805 7501 7022 1734 BEG810, TAD I BEG804 7502 7023 4336 JMS BEG900 /SETUP PDLXR 7503 7024 1372 TAD (4 7504 7025 4342 JMS BEGZER 7505 7026 1371 TAD (READY /PC GETS READY FOR STARTUP 7506 7027 4336 JMS BEG900 7507 7030 1370 TAD (10 7508 7031 4342 JMS BEGZER 7509 7032 7340 L7777 /DINPUT SET TO INPUT MODE 7510 7033 4336 JMS BEG900 7511 7034 4336 JMS BEG900 /OUTPUT GETS ZEROED FOR ECHO 7512 7035 1735 TAD I BEG805 /MAKE UP XIOT 7513 7036 1367 TAD (6006-10 7514 7037 4336 JMS BEG900 7515 7040 1732 TAD I BEG802 /MAKE UP XFIELD 7516 7041 4336 JMS BEG900 7517 7042 1366 TAD (5 7518 7043 4342 JMS BEGZER 7519 7044 1365 TAD (BUFFER /NOW BUILD BUFFERS USING DEF. OF BUFFER+OFFSET 7520 7045 1733 TAD I BEG803 /THIS IS IPTRI 7521 7046 4336 JMS BEG900 7522 7047 1365 TAD (BUFFER /AND IPTRO 7523 7050 1733 TAD I BEG803 7524 7051 4336 JMS BEG900 7525 7052 1365 TAD (BUFFER /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 145-1 7526 7053 1733 TAD I BEG803 7527 7054 4336 JMS BEG900 7528 7055 1364 TAD (BUFFER-40 7529 7056 1733 TAD I BEG803 7530 7057 4336 JMS BEG900 7531 7060 1364 TAD (BUFFER-40 7532 7061 1733 TAD I BEG803 7533 7062 4336 JMS BEG900 7534 7063 1363 TAD (3 7535 7064 4342 JMS BEGZER 7536 7065 1362 TAD (LINE1 /BUFR 7537 7066 1733 TAD I BEG803 7538 7067 4336 JMS BEG900 7539 7070 1362 TAD (LINE1 /LASTV 7540 7071 1733 TAD I BEG803 7541 7072 4336 JMS BEG900 7542 7073 1734 TAD I BEG804 7543 7074 4336 JMS BEG900 7544 7075 1361 TAD (LINE0 7545 7076 1733 TAD I BEG803 7546 7077 4336 JMS BEG900 7547 7100 1360 TAD (BUFCOM 7548 7101 1733 TAD I BEG803 7549 7102 4336 JMS BEG900 7550 7103 4336 JMS BEG900 7551 7104 4336 JMS BEG900 7552 7105 7301 L0001 7553 7106 4336 JMS BEG900 /SEE FRNDX1 7554 7107 1357 TAD (5321 7555 7110 4336 JMS BEG900 7556 7111 1356 TAD (3062 7557 7112 4336 JMS BEG900 7558 7113 2332 ISZ BEG802 7559 7114 2332 ISZ BEG802 7560 7115 2332 ISZ BEG802 7561 7116 2333 ISZ BEG803 7562 7117 2333 ISZ BEG803 7563 7120 2333 ISZ BEG803 7564 7121 2334 ISZ BEG804 7565 7122 2334 ISZ BEG804 7566 7123 2334 ISZ BEG804 7567 7124 2335 ISZ BEG805 7568 7125 2330 ISZ BEGUS1 7569 7126 5222 JMP BEG810 7570 7127 5755 JMP I (FINISH 7571 7572 7130 0000 BEGUS1, 0 7573 7131 0000 BEG801, 0 7574 7132 0000 BEG802, 0 7575 7133 0000 BEG803, 0 7576 7134 0000 BEG804, 0 7577 7135 0000 BEG805, 0 7578 7579 7136 0000 BEG900, 0 7580 7137 3731 DCA I BEG801 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 145-2 7581 7140 2331 ISZ BEG801 7582 7141 5736 JMP I BEG900 7583 7584 7142 0000 BEGZER, 0 7585 7143 7041 CIA 7586 7144 3213 DCA BEGZCT 7587 7145 4336 JMS BEG900 7588 7146 2213 ISZ BEGZCT 7589 7147 5345 JMP .-2 7590 7150 5742 JMP I BEGZER 7591 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146 7592 7155 7203 7593 7156 3062 7594 7157 5321 7595 7160 0100 7596 7161 0162 7597 7162 0164 7598 7163 0003 7599 7164 0000 7600 7165 0040 7601 7166 0005 7602 7167 5776 7603 7170 0010 7604 7171 0462 7605 7172 0004 7606 7173 7000 7607 7174 7402 7608 7175 7401 7609 7176 7400 7610 7177 2000 7200 *7200 /STAY OUT OF HIS BUFFER AND TEXT AREA 7611 /AS WELL AS THE MONITOR (OR WE WONT GET LOADED) 7612 /ALSO ON THIS PAGE = KL8LOD 7613 7614 7200 0000 FINCNT, 0 7615 7201 7225 FIN001, FIN002+1 7616 7202 0000 KLTOP2, 0 7617 7618 7203 1624 FINISH, TAD I FIN002 /FIND TOP OF USER SWAP AREAS 7619 7204 3224 DCA FIN002 /SAVE IT 7620 7205 1202 TAD KLTOP2 /EFFECTIVE TOP OF THIS FIELD 7621 7206 7041 CIA 7622 7207 1201 TAD FIN001 7623 7210 3200 DCA FINCNT /HOW MANY WORDS TO CLEAR ABOVE US 7624 7211 3601 FINLP1, DCA I FIN001 7625 7212 2201 ISZ FIN001 7626 7213 7000 NOP 7627 7214 2200 ISZ FINCNT 7628 7215 5211 JMP FINLP1 7629 7216 3624 FINLP2, DCA I FIN002 7630 7217 2224 ISZ FIN002 /LOOP TO TOP OF CORE 7631 7220 5216 JMP FINLP2 /DCA WILL GET WIPED, AND KLFIX WILL BE SAFE 7632 7221 6203 CIF CDF 7633 7222 5623 JMP I .+1 7634 7223 0354 ENTRY 7635 7636 7224 7131 FIN002, BEG801 7637 7638 7400 PAGE 7639 7400 BEGLST=. 7640 7641 $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-1 0000 11111111 11000001 11111111 11111111 11111111 11111111 10000000 00000000 0100 00000000 00000000 11111111 11111111 11111111 11111111 11111111 11111111 0200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11110011 0400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 0700 11111111 11111111 11111111 11111111 11111111 11111111 11111100 01111111 1000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1100 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2100 11111111 11111111 11111111 11111111 11111000 00001111 11111111 11111111 2200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2300 11111111 11111111 11111111 11111111 11111111 10000000 11111111 11111111 2400 00000011 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2500 11111111 11111111 11111111 11111111 11111000 00000000 00011111 11111111 2600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 2700 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3100 11111111 11111111 11111111 11111111 11100000 00000000 00000000 00000000 3200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3300 11111111 11111111 10000000 00000000 00000000 00000000 01111111 11111111 3400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3500 11111111 11111111 11111111 11111111 11111111 10000000 00011111 11111111 3600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 3700 11111111 11111111 11111111 11100000 00000000 00000000 00000000 11111111 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-2 4000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4100 11111111 11111111 11111111 11000000 00000000 00000000 00000111 11111111 4200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4300 11111111 11111111 11111111 11111100 00000000 00000000 00000011 11111111 4400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 4500 11111111 11111111 11111111 11100000 00000000 00011111 11111111 11111111 4600 11111111 11111110 00000000 00000000 00000000 00000000 00000000 00000000 4700 00000000 00000000 00000000 00000000 00000000 00000000 00000000 11111111 5000 10000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 5100 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 5200 11111111 11111111 11111111 11111111 11000000 00000000 00000000 00000000 5300 00000000 00000000 00000000 00000000 00011100 00000000 00000000 00011111 5400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5500 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5600 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 5700 11111111 11111111 11111111 11111111 11111111 11111111 11110000 00000000 6000 6100 6200 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6300 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6400 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6500 11111111 11111111 11111111 11110000 00000000 00000000 00000011 11111111 6600 6700 7000 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 7100 11111111 11111111 11111111 11111111 11111111 10000111 11111111 11111111 7200 11111111 11111111 11111000 00000000 00000000 00000000 00000000 00000000 7300 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 7400 7500 7600 7700 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-3 A0000 1303 AAACDF 1312 AADR 0136 ABS 2372 AC1 0072 AC2 0071 AC3 0070 ACEXP 0067 ACN 0422 ACSIGN 0066 ADD 0023 ADRLST 0141 AECALL 3171 AFUN16 3173 AL1 0647 AL1PNT 1431 ALGNLP 0471 ALINE0 0057 ALPTST 4225 ALT 2146 AMULT 0157 ANYINP 0661 AOADD 0161 APGETC 0135 AQCT1 6775 AR1 0400 AREADY 0102 ARET 0137 ARGNXT 2736 ASORT 0160 ASORTC 0137 ATN 7401 ATNBIG 7465 ATNLOW 7420 ATNNOT 7437 ATNSGN 7400 AUDF 0152 AUSER 5363 AXFREE 1334 AXIN 0016 AXOUT 0017 AXUDF 2145 BCKWDS 0505 BEG001 2414 BEG002 2026 BEG003 2432 BEG004 2500 BEG005 2411 BEG006 2053 BEG008 2123 BEG009 2400 BEG010 2076 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-4 BEG011 3257 BEG012 2136 BEG013 2137 BEG014 2233 BEG015 2200 BEG016 2406 BEG01Q 2327 BEG03X 2450 BEG10R 2347 BEG11A 3261 BEG11B 3300 BEG12A 2135 BEG14A 2114 BEG14B 2111 BEG15A 2210 BEG15B 2232 BEG15C 2231 BEG15D 2216 BEG15F 3216 BEG15G 3224 BEG15H 3200 BEG15I 3200 BEG15K 3205 BEG500 3403 BEG540 3600 BEG550 3655 BEG551 3665 BEG552 3720 BEG553 3727 BEG600 4000 BEG601 4113 BEG602 4114 BEG604 0021 BEG605 0001 BEG607 4127 BEG608 4106 BEG609 4115 BEG60X 4506 BEG610 4011 BEG700 4200 BEG701 4224 BEG702 4240 BEG703 4246 BEG704 4260 BEG705 4335 BEG706 4333 BEG707 4334 BEG750 4400 BEG751 4507 BEG752 4510 BEG753 4511 BEG754 4512 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-5 BEG755 4472 BEG756 4476 BEG75Q 4423 BEG75X 4454 BEG760 4517 BEG76X 4600 BEG7X1 4210 BEG800 7010 BEG801 7131 BEG802 7132 BEG803 7133 BEG804 7134 BEG805 7135 BEG80X 4613 BEG810 7022 BEG900 7136 BEGCHK 2302 BEGCK0 3311 BEGCOR 0022 BEGDEV 0007 BEGER0 3400 BEGER1 3542 BEGER2 3537 BEGFLD 3413 BEGHSP 2627 BEGHSR 2611 BEGHSS 2600 BEGIN 2000 BEGIN1 2140 BEGIN2 2141 BEGINP 3466 BEGIOT 7001 BEGKL1 3644 BEGKL2 3645 BEGKL3 3647 BEGKL4 3650 BEGKL5 3651 BEGKL6 3652 BEGLST 7400 BEGM1 2513 BEGM10 3134 BEGM2 2527 BEGM4 2637 BEGM5 2655 BEGM5A 2662 BEGM6 3002 BEGM6A 3070 BEGM7 2672 BEGM7A 2676 BEGM8 3110 BEGM9 3114 BEGME 2501 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-6 BEGMFL 2717 BEGMQ 3044 BEGMV1 2142 BEGMV2 2143 BEGMV3 2144 BEGMV4 2003 BEGMX1 2731 BEGMXX 2723 BEGOL1 5214 BEGOLD 5200 BEGOS8 6436 BEGPR1 4311 BEGPRN 4301 BEGR2 3545 BEGRE 3463 BEGTTI 2765 BEGUS1 7130 BEGUSR 0005 BEGX08 2270 BEGXR1 0010 BEGXR2 0011 BEGXXX 3435 BEGZCT 7013 BEGZER 7142 BGL11 5400 BGL12 5401 BGL13 5403 BGL14 5406 BGL15 5412 BGL16 5417 BGL17 5425 BGL18 5434 BGL21 5445 BGL22 5444 BGL23 5446 BGL24 5451 BGL25 5455 BGL26 5462 BGL27 5470 BGL28 5477 BGL31 5445 BGL32 5510 BGL33 5507 BGL34 5512 BGL35 5516 BGL36 5523 BGL37 5531 BGL38 5540 BGL41 5445 BGL42 5510 BGL43 5551 BGL44 5550 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-7 BGL45 5554 BGL46 5561 BGL47 5567 BGL48 5576 BGL51 5445 BGL52 5510 BGL53 5551 BGL54 5607 BGL55 5606 BGL56 5613 BGL57 5621 BGL58 5630 BGL61 5445 BGL62 5510 BGL63 5551 BGL64 5607 BGL65 5641 BGL66 5640 BGL67 5646 BGL68 5655 BGL71 5445 BGL72 5510 BGL73 5551 BGL74 5607 BGL75 5641 BGL76 5667 BGL77 5666 BGL78 5665 BGLD1 5674 BSW 7002 BUFCOM 0100 BUFFER 0040 BUFR 0054 BYE 1600 C10 0124 C100 0131 C137 0114 C14 0116 C16 0545 C177 0113 C217 5757 C233 6337 C3 0133 C37 3115 C4 0132 C40 0121 C44 3667 C50 2466 C60 0202 C7 0112 C7600 0201 C77 0122 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-8 C7700 0127 CAF 6007 CALLF1 4574 CAT 6103 CCAT1 6130 CCAT2 6144 CCAT3 6140 CCIF 1374 CCR 0111 CCRTST 4206 CDI0 0032 CHAR 0026 CINPAC 2370 CITPRN 2367 CLF 0117 CNOP 2305 CNTR 0077 COM11 2072 COM13 2130 COM3 2032 COM4 2043 COM5 2030 COM7 2070 COM8 2046 COMBUF 0060 COMGO1 1542 COMGOL 1027 COMLP1 2011 COMLP2 2100 COMMAN 4563 COMPOP 2133 COMTST 4200 CONFIG 0000 CONLEN 0022 CORDON 2067 CORPT2 0004 CORPTR 0002 COS 7057 COTPAC 2371 CPLS 3466 CRLF 2474 CSORTC 4713 CSRETN 2357 CTAPE 2366 CURFLD 0006 CXDELE 2365 DATAPC 0037 DECEXP 6725 DECK 0036 DECKON 0305 DECODE 0505 DECON 6322 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-9 DECON1 0146 DECON2 6331 DECONV 6301 DELET 2235 DFIND 0353 DINPUT 0033 DISKM 6530 DISKMM 6430 DIVLP 0677 DN 3511 DNUMBR 6300 DTCA 6762 DTSF 6771 DTXA 6764 ECALL 2600 ECALLI 4527 EDIT 2200 EFOP 0077 ELPAR 2634 END 1607 ENDF1 5040 ENDFND 4153 ENDFUN 5034 ENDTST 4213 ENSWAP 0065 ENTRY 0354 ENTRY1 0333 ENUM 2641 EPAR 2723 EPAR2 2636 ERLINE 0062 ERR000 4365 ERR001 2204 ERR002 1601 ERR003 7666 ERR004 0616 ERR010 7317 ERR020 7007 ERR030 0663 ERR040 0352 ERR050 0644 ERR060 3625 ERR070 0740 ERR080 3447 ERR100 4475 ERR110 2757 ERR120 2660 ERR130 4456 ERR150 6231 ERR160 6334 ERR170 3051 ERR180 3074 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-10 ERR200 3132 ERR210 4772 ERR220 4401 ERR230 4542 ERR240 4666 ERR250 4677 ERR260 7650 ERR270 1261 ERR280 5566 ERR290 4256 ERR300 4277 ERR320 2453 ERR330 6546 ERR340 3225 ERR350 3310 ERR370 6340 ERR380 2537 ERR390 1210 ERR400 1237 ERR410 1426 ERR420 1446 ERR430 1551 ERR440 1475 ERR450 1542 ERR460 2400 ERR470 2407 ERR490 1053 ERR500 1111 ERR510 1123 ERR520 4364 ERR540 6635 ERR550 6006 ERR560 5734 ERRCHK 4362 ERREND 1643 ERRLST 1552 ERRNNN 7701 ERROR 4551 ERROR1 0461 ERROR2 0436 ERROR3 0461 ERRORX 0400 ETERM 2661 ETERM1 2623 ETERM2 2667 ETERMN 2656 EVAL 2612 EVAL1 2753 EVAL2 2754 EVAL3 2766 EVAR 2744 EXIT 5314 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-11 EXPLNG 5130 F0RET 0140 F1CAL1 0120 F1CALL 5410 F1RET 0130 F200 1765 F37 4664 F72 7303 FADDR 0301 FATNAX 7136 FATNC 1612 FATNC1 7475 FATNC2 7500 FATNC3 7503 FATNC4 7506 FATNC5 7511 FATNC6 7514 FATNC7 7517 FATNC8 7522 FATNC9 7525 FATNCJ 7472 FATNT 7141 FATNTT 7255 FCN 4357 FEXP 7200 FEXP1 7255 FEXPC1 7260 FEXPC2 7263 FEXPC3 7266 FEXPC4 7271 FEXPC5 7274 FEXPC6 7277 FEXPF 7141 FEXPU 7136 FEXT 0000 FFIX 4350 FFLAG 0026 FGOTO 0270 FIGO1 6217 FIGO2 6255 FIGO3 6270 FIGO4 6266 FIN001 7201 FIN002 7224 FINCNT 7200 FIND 4564 FINDLN 4566 FINISH 7203 FINLP1 7211 FINLP2 7216 FINT 4407 FIX 6735 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-12 FIXCON 6765 FIXEXT 0750 FIXLUP 0734 FIXTMP 6764 FIXUP 1643 FIXUP1 1652 FIXUP2 1663 FIXUP3 1701 FIXUP4 1650 FIXUP5 1734 FIXUP7 1704 FIXUP8 1707 FJUMP 0271 FLARG 6726 FLARGP 0107 FLGET 4546 FLIN 6200 FLINTP 0104 FLOAT 5741 FLOGC1 7353 FLOGC2 7356 FLOGC3 7361 FLOGC4 7364 FLOOP 0203 FLOP 2707 FLOTRX 2545 FLOUT 6400 FLOUTP 0103 FLPUT 4547 FLTONE 4354 FLTXR 0013 FLTXR2 0014 FLZERO 7300 FNOR 6010 FNORM 0600 FOGO1 6414 FOGO2 6423 FOGO3 6452 FOGO4 6502 FOGO5 6506 FOGO6 6511 FOGO7 6522 FOGO8 6532 FOR 1416 FOR1 1561 FOR2 1546 FOR3 1466 FOR4 1472 FOR5 1562 FOREXT 2470 FOURTY 0000 FP11 6206 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-13 FPADD 0165 FPCMP 0306 FPDIV 0662 FPENT 5546 FPGET 0331 FPJMP 0302 FPMUL 0531 FPNT 0200 FPNT1 0224 FPNT2 0235 FPNT3 0265 FPNT4 0356 FPPUT 0322 FPSUB 0162 FREE13 4567 FREE2 4570 FREEC 5554 FREESV 5361 FREEWT 5560 FRNDX 0063 FRNDX1 2561 FSEQ 6050 FSGE 6100 FSGT 6140 FSIN 7062 FSINC1 7144 FSINC3 7147 FSINC4 7152 FSINC5 7155 FSINC6 7160 FSINC7 7163 FSINOK 7120 FSINXX 7101 FSINZ 7136 FSINZZ 7141 FSKP 6000 FSLE 6150 FSLT 6110 FSNE 6040 FUNC10 3017 FUNC11 3046 FUNC12 3145 FUNC13 3124 FUNC14 3104 FUNC16 4766 FUNC17 3170 FUNC6I 5015 FUNCT 4620 FUNCT3 5017 FUNCT4 4675 FUNCT5 4661 FUNCT6 3000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-14 FUNCTI 4526 FUNL1 7530 FUNL2 1441 FUNL3 1522 FUNL3I 5016 FUPAR1 6562 FUPAR2 5144 FUPAR3 5141 FUPARR 5065 FXIT 0000 FXR2 0017 GETC 4535 GETLIM 2333 GETLIN 2314 GETLN 4557 GETNXT 4565 GETSGN 1507 GETSTR 5730 GETVAR 4400 GFND1 4576 GFND2 4611 GOSUB 4254 GOSUB1 2461 GOSUB2 2536 GOSUB3 4257 GOTO 1257 GPUT1 4507 GS1 4437 GS2 4465 GS4 4462 GS5 4615 GS5I 4524 GTEM 0020 HIGHWD 0344 IDNE 2502 IECALL 5004 IERRO1 3535 IERRO2 3540 IERROR 3552 IF 1177 IF1 1376 IF2 1265 IF3 1217 IF4 7736 IF5 3743 IF6 1253 IF7 1252 IFSTR 1336 IFSTR1 1346 INPACK 1145 INPUT 0775 INPUT1 1130 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-15 INPUT2 1007 INPUTX 7720 INREA1 1052 INREA2 1110 INREA3 1060 INREA4 1050 INREAD 1020 INT 4336 INTCNT 6365 INTEGE 0110 INTR80 1353 INTR81 1354 INTR82 1373 INTR88 1340 INTR89 1341 INTR8A 1307 INTR8E 5200 INTR8F 1310 INTR8T 1347 INTRP1 5252 INTRP2 5266 INTRP3 5300 INTRP4 5302 INTRP5 5312 INTRPL 5170 INTRPP 5352 INTRPT 5203 INTRRV 1311 INTRV2 1320 IPTR0 0046 IPTRI 0044 IPTRO 0045 ITPRNT 0231 K2000 3174 KEX 0664 KEY 0600 KEY3 0711 KEY4 0716 KEY5 0701 KEY6 0707 KEY7 0620 KEYMSK 0606 KKEY 7654 KL8FIX 7756 KL8FRS 3646 KL8INT 7766 KL8JM0 0207 KL8JMP 5343 KL8LF0 0213 KL8LFL 5346 KL8LOD 7356 KLSCH 0024 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-16 KLTOP 0023 KLTOP2 7202 KM5 3172 L0001 7301 L0002 7326 L200 7373 L2000 7332 L3777 7350 L4000 7330 L5777 7352 L7775 7346 L7776 7344 L7777 7340 LAL1 7344 LASTLN 0031 LASTOP 0101 LASTV 0055 LBLK 0021 LEN 6600 LENDON 6623 LENXT 6606 LET 1417 LET1 1541 LET2 1427 LFUNL2 4674 LFXUP 7340 LHIGH 7301 LIMGT1 2341 LIMGT2 2363 LIMGT3 2351 LIMGT4 2356 LIMIT 7776 LINCT 6734 LINE0 0162 LINE1 0164 LINENO 0030 LINEPC 0027 LINPUT 6630 LINXT 6665 LINXT2 6676 LIST 2246 LIST10 1250 LIST11 1254 LIST12 1260 LIST13 1263 LIST14 1266 LIST15 1272 LIST16 1276 LIST17 1302 LIST7 1046 LIST70 1051 LIST71 1055 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-17 LIST72 1061 LIST73 1067 LIST74 1073 LIST75 1100 LIST76 1105 LIST77 1111 LIST78 1115 LIST79 1121 LIST80 1125 LIST81 1132 LIST82 1136 LIST83 1141 LIST84 1146 LIST85 1153 LIST86 1157 LIST87 1163 LIST88 1167 LIST89 1173 LIST90 1177 LIST91 1203 LIST92 1206 LIST93 1211 LIST94 1215 LIST95 1221 LIST96 1225 LIST97 1233 LIST98 1240 LIST99 1244 LISTN 7707 LKLOOP 7614 LLIST3 2266 LLIST4 2301 LLIST5 2256 LLIST6 2306 LLOOKU 4673 LMULT 7346 LNFIX 7200 LOG 7314 LOGEXP 7370 LOGFWD 7367 LOGOKW 7372 LOOK 0105 LOOKST 0106 LOOKUP 4435 LPRTST 3756 LSTMOD 0115 LXOUTL 1277 M10 0123 M100 0127 M1000 6324 M12 0120 M137 2151 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-18 M140 0614 M4 0130 M40 0125 M6 0126 MANCOM 2005 MDOLR 4525 MEQL 1540 MGET 5760 MGET1 5765 MGET2 5775 MID 6000 MID1 6035 MID2 6050 MID3 6063 MIDC1 6101 MIDC2 6102 MIDCHK 6067 MINS 6125 MINT 6115 MKRB 6116 MKSF 6111 MLOOKE 0230 MMLOOK 7632 MNSONE 5062 MOD 5414 MOD1 5424 MODE 0031 MODF1 2213 MODF2 2207 MODF3 2211 MODF4 2223 MODF5 2231 MODL1 1427 MODL2 1377 MONDSK 6200 MONTAP 6222 MPUT 6156 MPUT1 6164 MPYLUP 0552 MQA 7501 MQL 7421 MSPLAT 4130 MTCF 6122 MTKF 6123 MTLS 6126 MTON 6117 MTPF 6113 MTSF 6121 MULCLR 0571 MULT10 0752 MULTMP 0051 MUSER 5362 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-19 NEXERR 1563 NEXT 2374 NEXT1 2442 NEXT2 2463 NEXT3 2417 NFIX 0730 NOBUMP 0623 NONP 5247 NOTBIG 0611 NULL 0177 NUMBUF 6726 NUNUM 0004 NXEX 4122 NXTGET 4077 NXUSR 4032 O1600 0044 O177 0042 O200 0041 O377 0043 O7 0040 OAC1 0057 OAC2 0056 OAC3 0055 OACEXP 0054 OACN 0415 OACSGN 0053 OADD 0442 OADDP 1432 OCNTR 0047 OCTADD 0460 ODECXP 0060 OERROR 4027 OFLOOP 0052 OFNORM 0037 OLNUM 0003 OM10 0046 OM4 0045 ON 4267 ON1 4307 ON2 4333 OOCTAD 0050 OP1 0024 OP2 0023 OP3 0022 OPEXP 0021 OPNEXT 2644 OPSIGN 0020 OPT1 5601 OPTABL 4171 OPTRI 0047 OPTRO 0050 ORG 2000 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-20 OS8AB 6505 OS8DSK 6463 OS8DTA 6464 OS8ERM 6332 OS8ERR 6453 OS8KSK 6457 OS8LP1 6472 OS8LST 6513 OS8M1 6376 OS8M2 6401 OS8MSG 6363 OS8PT2 6512 OS8PTR 6511 OS8RK8 6465 OSDDSK 6266 OSDDTA 6310 OSDRK8 6244 OTPACK 1156 OUTPUT 0034 OVER 0025 P140 0700 P20 0677 P37 4423 P70 1352 P7600 6600 PACKC 4556 PACKND 0053 PACKST 0052 PAKLIN 1167 PARTS 7640 PARTS1 4557 PARTST 7640 PAUSER 1346 PC 0022 PCHK 1737 PDECKO 1333 PDLST 0056 PDLXR 0015 PERR 1670 PERROR 3551 PERRR 1577 PFRND 1516 PFRND1 1521 PFRNX 1517 PGS4 4672 PIERRO 0676 PIF1 5423 PIF5 1276 PINPUT 0561 PITPRN 0506 PKEYMK 5342 PL200 7171 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-21 PLOOK 7777 PLOOKS 7776 POPA 4543 POPF 4545 POPJ 5544 PRIN10 3302 PRIN11 3250 PRIN12 7551 PRINT 5471 PRINT1 3210 PRINT2 3311 PRINT3 3321 PRINT4 3213 PRINT5 3327 PRINT6 3200 PRINT8 3202 PRINT9 3271 PRINTC 4534 PRINTX 4550 PRNT1 0240 PRNT2 0260 PRNT3 0300 PRNT4 0262 PRNT5 0277 PRNT6 0275 PRNT7 0263 PRNTC1 0061 PRNTEX 5436 PRNTL1 7307 PRNTL2 1417 PRNTL4 7306 PRNTL6 1411 PRNTL7 7311 PRNTL8 1424 PRNTLL 6547 PRNTX1 5452 PRNTX2 5512 PRUNIN 1264 PSAVAC 7775 PSAVLK 7774 PST2 1345 PT1 0025 PUNCH 7606 PUNCHK 5241 PUSHA 4540 PUSHF 4542 PUSHJ 4541 PXDELE 0562 QCOM 5726 QCOMCK 5671 QCON1 5724 QCON2 5725 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-22 QCOUNT 5607 QCT1 5603 QDONE 5675 QDONE1 5714 QDONE2 5701 QERR 5604 QINP 5616 QINPAC 5605 QLINP 5617 QLIS1 0173 QLIS2 0167 QMDOT 5600 QNEXTC 5644 QOPNEX 5727 QSLIS 5643 QUOCHK 5661 QUOCNT 5606 QUOTE1 5640 QUOTES 5610 RANDOM 6357 RCHK 7601 RDY1 2165 READ 1114 READ1 1116 READC 4571 READY 0462 READY1 2152 RESTOR 5565 RESTR 1350 RETURN 2451 RND 1777 RND1 1461 RNDM40 1520 RTL6 4553 RUN 2473 RUN4 2555 RUN6 2506 RUN7 2504 RUN8 2514 RUN9 2541 SAVAC 5353 SAVLK 5354 SC2SV 5351 SET 1351 SETSGN 0515 SGN 5047 SIN 0004 SORTC 4537 SORTCN 0073 SORTCS 5364 SORTJ 4536 SPACSW 0032 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-23 SPL 6102 SQCNT 7037 SQEXIT 7035 SQLOOP 7022 SQR 7000 SRETN 0511 SRTCNS 5357 SS 0021 START 0473 STARTP 0371 STARTV 0054 STMV 1000 STSWAP 0015 STSWM1 0116 SUB1 4542 SUB2 4574 SUBS 0024 SUBT 4530 SWAP 0010 SWAPR 0051 T1 0074 T2 0075 T3 0076 T3SV 5355 TAN 7040 TAPE 7653 TAPEM 6520 TAPMM 6433 TCOMGO 7752 TDIF1 7745 TDIF2 7746 TELSW 0051 TEMP 6731 TEMP1 0005 TEMP2 0006 TEN 7753 TERMS 1401 TESTC 4555 TESTN 4554 TEXTP 0017 TFLOTR 7751 TH13 4040 TH60 4037 THISOP 0100 TLIST 7750 TOP 7776 TRUN9 7744 TSTALP 4562 TSTART 7747 TSTCCR 4560 TSTCOM 4561 TSTEND 4572 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-24 TSTLPR 4573 TTCHAR 2464 TTY 1300 TTY2 1324 TTY3 1305 UDF 4552 UDFSV 5360 UNDERF 0635 UNKWN 1564 USER 0003 USER0 0765 USER1 0766 USER2 0767 USER3 0770 USER4 0771 USER5 0772 USER6 0773 USER7 0774 USRCTR 0020 USRLST 5000 USRPT2 0003 USRPTR 0001 VARSET 0555 VDECKO 0675 VFCN 5056 VFLOP 5143 VFLTON 5060 VFUPAR 5061 VIF1 1335 VLIN0 1144 VMEQL 4765 VPDLXR 0111 VTEMP 5057 WNGDM 3014 X 0100 XAUSER 3443 XCT 0021 XCTIN 0024 XDEL2 1671 XDEL3 1652 XDELET 1614 XERR 0027 XERROR 3532 XFIELD 0036 XFIND 4125 XFIND1 4131 XFIND2 4142 XFINDL 3467 XFLGET 5145 XFLGT2 5152 XFLPT1 0745 XFLPT2 0747 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-25 XFLPUT 0742 XFNDL1 3477 XFNDL2 3520 XFNDL3 3526 XFREE 5514 XFREE2 5543 XFREE3 5552 XGET1 4054 XGET2 4045 XGET3 4066 XGET4 4072 XGET5 4075 XGET6 4073 XGETC 4041 XGETL1 2142 XGETL2 1406 XGETLN 6335 XIOT 0035 XOR 6552 XOUTL 3340 XOUTL1 3361 XOUTL2 3400 XOUTL3 3365 XOUTL4 3464 XOUTL5 3444 XOUTL6 3435 XP37 3666 XPACK1 3632 XPACK2 3627 XPACK3 3630 XPACK4 3611 XPACK5 3626 XPACK7 3637 XPACK8 3645 XPACK9 3641 XPACKC 3600 XPAKL1 6770 XPAKL2 1434 XPOPA 3751 XPOPF 4003 XPOPJ 2454 XPPCK1 3670 XPRDY1 3665 XPRNTC 4144 XPUSHA 1717 XPUSHF 1751 XPUSHJ 1732 XR20 3770 XREAD1 3771 XREADC 3717 XREG 0010 XREG2 0011 /EDU-20 PAL10 V142A 10-OCT-121 17:33 PAGE 146-26 XREG3 0012 XREG3S 5356 XRTL6 7633 XSORT1 4762 XSORT3 4730 XSORTC 4704 XSORTJ 4735 XTESTC 4237 XTESTN 4017 XUDF 7166 ZFIXEX 0743 ZFPNT 5400 ? ERRORS DETECTED: 5 LINKS GENERATED: 0 RUN-TIME: 51 SECONDS 4K CORE USED A0000 5338# 5392 5394 AAACDF 5347# 5360 6855 6856 AADR 4635 4651# ABS 1572# 5494 AC1 212# 3477 3719 3784 3799 3801 3804 4041 4630 AC2 211# 3483 3718 3753 4043 4629 AC3 210# 1782 1784 2809 3690 3717 3755 4628 ACEXP 209# 3481 3667 4072 4079 4089 4090 4128 4129 4142 4217 4219 4251 4254 4627 ACN 4845 4847 4849# 4864 4914 5037 ACSIGN 208# 1572 3688 3720 3729 3779 4035 4069 4123 4124 4133 4187 4188 4297 4299 4352 4395 4626 ADD 167# 588 1049 1053 1061 1864 1872 2264 2268 2282 2289 2692 2709 2710 2725 2752 2758 2779 2784 2793 2797 2812 2813 2818 2838 3965 3968 3973 3980 3988 3996 ADRLST 4651 4655# AECALL 1854 1972# AFUN16 1969 1974# AL1 4656 4994 5008# 5018 5048 5079 5086 5087 5430 5584 AL1PNT 5430# 5456 ALGNLP 4890# 4900 ALINE0 199# 859 1166 1168 1199 1205 1647 2181 2183 ALPTST 299 2558# 2562 2566 2567 ALT 640 1408# 2258 AMULT 4662 4672# ANYINP 664# 688 AOADD 4667 4674# APGETC 257# AQCT1 3992 4061# AR1 4829# 4841 4854 4861 4908 4941 4972 5067 5594 5595 5596 5597 5635 AREADY 221# 1172 1474 1511 1650 4490 ARET 4639 4652# ARGNXT 1740 1809# 1831 1835 ASORT 4665 4673# ASORTC 261# 3102 3182 ATN 4297# 5491 ATNBIG 4305 4345 4349# ATNLOW 4308 4312# ATNNOT 4317 4327# ATNSGN 4293# 4298 4351 AUDF 283# 3100 3180 AUSER 2155 3162 3210# 5376 6782 AXFREE 977 986# AXIN 161# 564 568 590 598 863 1232 1237 1238 1472 2266 2272 2296 2299 2304 2305 2332 3389 3391 AXOUT 163# 872 1057 1106 1108 1112 1118 1183 1189 1228 1234 1239 1415 1423 1424 1585 1589 1591 1606 1617 1636 1705 2203 2443 2482 2484 2589 3265 AXUDF 1405# 1419 BCKWDS 4888 4903# BEG001 5806 5923 5934 5989 6045# 6058 6345 6364 BEG002 5783# 6051 6693 BEG003 5802 5804 5921 5987 5996 6037 6041 6060# 6062 6064 6073 6078 6095 6264 6273 6311 6326 6339 6343 6361 6405 6408 6694 7413 7437 7439 7441 BEG004 6063 6065 6070 6072 6100# BEG005 5809 5812 6041# BEG006 5804# 6043 BEG008 5787 5790 5846# 5855 BEG009 5783 6020# 6034 BEG010 5820 5823# BEG011 6204 6208 6231 6256# BEG012 5794 5798 5799 5829 5839 5840 5858# BEG013 5796 5800 5831 5834 5848 5853 5859# BEG014 5905 5917# 5918 5919 5945 6039 6209 BEG015 5836 5886# BEG016 5926 5929 5937 5940 6037# BEG01Q 5821 5892 5983# 5984 5985 5998 5999 6000 6202 6206 6266 6275 6286 6691 BEG03X 6069 6071 6075# 6086 BEG10R 5992 5995 5999# BEG11A 5827 6258# BEG11B 6269 6273# BEG12A 5833 5838 5841 5843 5857# BEG14A 5835 5838# BEG14B 5834# 5844 BEG15A 5896# BEG15B 5897 5902 5915# BEG15C 5899 5909 5910 5914# BEG15D 5902# 5912 BEG15F 6213 6218# 6223 6240 6250 6252 BEG15G 6201 6227# 6253 BEG15H 5904 6201# BEG15I 5889 5895 6161# BEG15K 6206# 6214 BEG500 6288 6313# BEG540 6414 6429# 7009 BEG550 6432 6435 6444 6464 6474# 6519 BEG551 6482# 6515 BEG552 6495 6509# BEG553 6490 6517# BEG600 6520 6529# BEG601 6554 6595 6604# 6617 BEG602 6544 6552 6580 6585 6586 6588 6591 6598 6605# BEG604 6727# 6751 6760 6761 BEG605 6728# 6753 6769 6770 BEG607 6593 6597 6616# BEG608 6590 6599# 6618 BEG609 6563 6606# BEG60X 6756 6763 6766 6811# BEG610 6538# 6615 BEG700 6603 6631# 6672 BEG701 6651# 6660 BEG702 6648 6663# BEG703 6641 6670# BEG704 6680# 6690 BEG705 6699 6705 6706 6726# BEG706 6701 6707 6717 6721 6724# BEG707 6702 6704 6712 6722 6725# BEG750 6696 6740# BEG751 6796 6799 6800 6812# BEG752 6797 6803 6804 6813# BEG753 6794 6814# 6815 6818 BEG754 6805 6815# BEG755 6798# 6816 BEG756 6788 6789 6802# 6819 BEG75Q 6759# 6772 BEG75X 6784# 6809 BEG760 6792 6820# BEG76X 6822 6853# BEG7X1 6639# 6668 BEG800 6867 7491# BEG801 7492 7573# 7580 7581 7636 BEG802 7494 7515 7558 7559 7560 7574# BEG803 7498 7520 7523 7526 7529 7532 7537 7540 7545 7548 7561 7562 7563 7575# BEG804 7496 7501 7542 7564 7565 7566 7576# BEG805 7500 7512 7567 7577# BEG80X 6831 6864# BEG810 7501# 7569 BEG900 7502 7506 7510 7511 7514 7516 7521 7524 7527 7530 7533 7538 7541 7543 7546 7549 7550 7551 7553 7555 7557 7579# 7582 7587 BEGCHK 5950 5957# 5974 5976 5977 BEGCK0 6278 6282# BEGCOR 5744# 5948 5973 6318 6784 6807 6808 6976 BEGDEV 5738# 5824 5825 6433 6820 BEGER0 6310# 6324 6389 6403 6646 BEGER1 6348 6351 6356 6408# BEGER2 6370 6373 6385 6405# BEGFLD 6321# 6404 BEGHSP 6119# 6267 BEGHSR 6118# 6265 6274 BEGHSS 6117# 6276 BEGIN 5749# BEGIN1 5774 5779 5780 5860# BEGIN2 5781 5861# BEGINP 6364# 6382 BEGIOT 5793 5828 5898 6236 6750 7484# 7499 BEGKL1 6446 6448 6465# BEGKL2 6447 6449 6466# BEGKL3 6453 6454 6456 6468# BEGKL4 6458 6459 6461 6469# BEGKL5 6438 6470# BEGKL6 6440 6471# BEGLST 6529 6631 6637 6673 6678 7493 7495 7497 7639# BEGM1 5803 6102# BEGM10 6142# 6210 BEGM2 5805 6103# BEGM4 5822 6120# BEGM5 5906 6121# 6122 BEGM5A 5901 5911 6122# BEGM6 6136# 6695 BEGM6A 6139# 6692 BEGM7 5893 6123# 6124 BEGM7A 6124# BEGM8 6140# 6207 BEGM9 6141# 6203 BEGME 5997 6038 6042 6101# 6406 6409 BEGMFL 6132# 6327 BEGMQ 6138# 6287 BEGMV1 5762 5765 5862# BEGMV2 5764 5766 5863# BEGMV3 5767 5864# BEGMV4 5761# 5768 7415 7443 BEGMX1 6134# 6344 BEGMXX 6133# 6340 BEGOL1 6988# 7008 BEGOLD 6285 6289 6976# BEGOS8 5755 7399# BEGPR1 6706# 6723 BEGPRN 6342 6698# 6719 BEGR2 6394 6411# BEGRE 6361# 6407 BEGTTI 6135# 6362 BEGUS1 6536 7568 7572# BEGUSR 5736# 5814 5817 5830 5886 5896 6234 6282 6314 6353 6479 6533 6535 6545 6634 6675 6742 6747 6755 6757 6774 6979 6986 BEGX08 5815 5947# BEGXR1 5739# 5784 5850 BEGXR2 5740# 5786 5789 5852 BEGXXX 6339# 6399 6410 BEGZCT 7494# 7586 7588 BEGZER 7504 7508 7518 7535 7584# 7590 BGL11 7020# 7234 BGL12 7021# 7233 BGL13 7023# 7232 BGL14 7026# 7231 BGL15 7030# 7230 BGL16 7035# 7229 BGL17 7041# 7228 BGL18 7048# 7227 BGL21 7057# 7058 7059 7060 7061 7062 7242 BGL22 7056# 7241 BGL23 7063# 7240 BGL24 7066# 7239 BGL25 7070# 7238 BGL26 7075# 7237 BGL27 7081# 7236 BGL28 7088# 7235 BGL31 7058# 7250 BGL32 7097# 7099 7100 7101 7102 7249 BGL33 7096# 7248 BGL34 7103# 7247 BGL35 7107# 7246 BGL36 7112# 7245 BGL37 7118# 7244 BGL38 7125# 7243 BGL41 7059# 7258 BGL42 7099# 7257 BGL43 7137# 7140 7141 7142 7256 BGL44 7136# 7255 BGL45 7143# 7254 BGL46 7148# 7253 BGL47 7154# 7252 BGL48 7161# 7251 BGL51 7060# 7266 BGL52 7100# 7265 BGL53 7140# 7264 BGL54 7170# 7174 7175 7263 BGL55 7169# 7262 BGL56 7177# 7261 BGL57 7183# 7260 BGL58 7190# 7259 BGL61 7061# 7274 BGL62 7101# 7273 BGL63 7141# 7272 BGL64 7174# 7271 BGL65 7199# 7204 7270 BGL66 7198# 7269 BGL67 7205# 7268 BGL68 7212# 7267 BGL71 7062# 7282 BGL72 7102# 7281 BGL73 7142# 7280 BGL74 7175# 7279 BGL75 7204# 7278 BGL76 7222# 7277 BGL77 7221# 7276 BGL78 7220# 7275 BGLD1 6980 7227# BSW 100# 6228 6429 BUFCOM 200 5722# 7547 BUFFER 187 188 189 190 191 5721# 7519 7522 7525 7528 7531 BUFR 195# 196 563 585 586 599 1169 1230 1231 1471 BYE 1163# 5507 C10 244# 596 2128 2134 2144 4428 4431 C100 250# 1010 3930 C137 234# 2290 C14 238# C16 510 592# C177 233# 620 2216 3800 C217 3480 3490# C233 3666 3748# C3 252# 537 1117 1605 C37 1920 1926# 1929 C4 251# 1334 1351 2749 3150 C40 241# 402 412 527 660 707 763 1987 2047 2074 2278 2321 2352 2434 3315 3782 C44 2313# 2319 C50 1596 1634# C60 333# 392 397 C7 232# 418 690 692 1311 1326 2076 2323 2458 2602 2740 3577 C7600 4695# 4713 C77 242# 761 1000 1007 1341 1379 2433 3504 3562 3934 C7700 248# 1002 1011 2308 2799 2804 3613 3640 3936 3970 4002 CAF 99# 5346 CALLF1 318# 3479 3792 3803 4033 4248 CAT 3588# 5502 CCAT1 3609# 3619 3631 CCAT2 3615 3622# CCAT3 3617# 3626 CCIF 5364 5399# CCR 231# 636 756 1453 1454 1461 1462 1495 1522 1978 2014 2034 2036 2078 2102 2462 3299 3353 3387 3439 3781 4514 CCRTST 295 2542# 2543 2557 CDI0 4608# CHAR 171# 792 816 846 857 1044 1152 1364 1383 1397 1447 1523 1637 1896 1919 1928 2088 2260 2335 2343 2346 2411 2435 2459 2469 2537 2550 2559 2563 2688 2698 2707 2836 2848 2851 2854 2886 2892 2918 2942 3258 3282 3371 3429 3440 3449 3676 3721 CINPAC 1444 1569# CITPRN 1501 1568# CLF 239# 2105 CNOP 5951 5955 5960# CNTR 217# 220 372 394 1314 1330 1367 1776 1777 3494 3499 3500 3541 3794 3809 3829 3832 3853 3860 3866 3871 3882 3923 3933 3939 3944 COM11 1315 1331 1360# 1369 1390 1392 COM13 1385 1390# COM3 1316 1325# COM4 1332 1334# COM5 1321# 1357 COM7 1349 1356# COM8 1333 1338# COMBUF 200# 862 865 871 1685 2208 COMGO1 4541 5505# COMGOL 1664 5127# COMLP1 1306# 1320 COMLP2 1366# 1389 COMMAN 300# 921 1064 1130 1661 1892 1993 2497 2523 2601 4516 COMPOP 1356 1391 1395# 1401 COMTST 297 2535# 2539 2540 2544 2546 CONFIG 64# 4399 4590 5672 5726 5751 5754 5770 7291 7467 CONLEN 5119# 6553 6793 CORDON 5816# 5967 5972 CORPT2 5735# 6248 6309 6487 6493 6513 CORPTR 5733# 6237 6238 6241 6478 6485 6500 6503 6505 6514 6652 6655 COS 4101 4113# 5490 COTPAC 1467 1570# CPLS 2132 2174# CRLF 6081 6096# CSORTC 500 2897# 2904 2913 3104 3106 3178 CSRETN 1468 1559# CTAPE 1519 1567# CURFLD 5737# 6320 6322 6325 6329 6334 6358 6401 6538 6540 6561 6565 6607 6614 CXDELE 1475 1566# DATAPC 182# 753 754 757 788 791 815 817 837 841 845 850 854 3352 3354 4513 4515 DECEXP 3815 3836 3841 3865 3869 3874 3879 4017# 4631 DECK 207# 420 425 450 452 2137 DECKON 353 417# 424 454 677 985 3116 3170 DECODE 559# DECON 3661 3731 3734# 3737 3743 DECON1 3740 4662# DECON2 3741# 4670 DECONV 3653 3683 3716# 3732 3752 DELET 1470# 5508 DFIND 426 438 456# 469 DINPUT 177# 428 445 DISKM 185 7463# DISKMM 7396# 7464 DIVLP 5033# 5050 DN 6367 6383# DNUMBR 3652 3659 3662 3672 3682 3685 3715# 3742 3751 DTCA 77# 7456 DTSF 79# 7457 DTXA 78# 7456 ECALL 1712# 1719 1743 1972 2003 2775 2955 ECALLI 2775# 2781 EDIT 1438# 5509 EFOP 220# 1717 1848 1849 1862 2780 2966 2972 2974 ELPAR 1741# 1811 END 1170# 5124 ENDF1 2985# 3569 ENDFND 594 1192 2512# 2519 ENDFUN 1745 2963 2981# ENDTST 315 2548# 2552 2556 ENSWAP 206# 467 471 5719 6547 ENTRY 457# 7634 ENTRY1 439# 456 ENUM 1728 1747# 1812 EPAR 1773 1798# EPAR2 1743# 1800 ERLINE 202# 519 529 549 1660 1694 1698 1901 1904 2591 2635 2668 2951 2952 ERR000 2671# 5513 ERR001 1442# 1557 5514 ERR002 1164# 5515 ERR003 4483# 5516 ERR004 628# 5517 ERR010 4250# 5519 ERR020 4071# 5520 ERR030 5021# 5521 ERR040 4806# 5522 ERR050 5004# 5523 ERR060 2274# 5524 ERR070 700 715# 5525 ERR080 2159# 5526 ERR100 1221 2748# 5527 ERR110 1814 1829# 3367 5528 ERR120 1762# 5529 ERR130 2732# 5537 ERR150 3675# 5530 ERR160 3744# 5531 ERR170 1890# 5532 ERR180 1909# 1918 1962 1968 5533 ERR200 1939# 1958 5534 ERR210 2945# 5535 ERR220 2687# 5536 ERR230 2788# 5538 ERR240 2874# 5539 ERR250 2884# 5540 ERR260 4469# 5541 ERR270 941# 5542 ERR280 3351# 5543 ERR290 2587# 5544 ERR300 2607# 2625 5545 ERR320 1623# 5547 ERR330 551 3885# 5548 ERR340 2002# 5549 ERR350 2058# 5550 ERR370 3749# 3757 3762 5552 ERR380 1676# 5553 ERR390 900# 5554 ERR400 923# 5555 ERR410 1047# 5556 ERR420 1063# 5557 ERR430 1132# 5558 ERR440 1086# 5559 ERR450 1124# 5560 ERR460 1145 1580# 1703 5561 ERR470 1587# 5562 ERR490 799# 848 5563 ERR500 780 830# 5564 ERR510 840# 5565 ERR520 2670# 5566 ERR540 3957# 5568 ERR550 3519# 3552 3575 3579 3593 5569 ERR560 3243 3467# 5570 ERRCHK 1159 1663 2668# ERREND 5571# 5861 ERRLST 503 5513# 5860 5861 ERRNNN 4496# 4507 5551 6262 6280 ERROR 280# 799 830 840 900 923 941 1047 1063 1086 1124 1132 1164 1442 1580 1587 1623 1676 1762 1829 1890 1909 1939 2002 2058 2274 2587 2607 2670 2671 2687 2732 2748 2787 2874 2884 2945 3351 3467 3519 3675 3744 3749 3885 3957 4071 4250 4469 4483 4496 ERROR1 521 531# ERROR2 507 512# ERROR3 517 532# ERRORX 482# 2228 ETERM 1737 1763# ETERM1 1727 1732# ETERM2 1769# 1796 ETERMN 1758 1760# EVAL 811 892 919 1051 1072 1134 1722# 2600 2795 2947 3245 3291 3515 3521 3590 EVAL1 1723 1725 1750 1755 1824# 1832 1834 1838 EVAL2 1742 1826# EVAL3 1793 1837# EVAR 1729 1813 1816# EXIT 3117 3125 3164# EXPLNG 3013 3019 3046# F0RET 4646 4653# F1CAL1 3237 4635# F1CALL 319 3234# 4653 F1RET 4644# 4652 F200 5655 5659# F37 2837 2872# F72 4239# 4390 FADDR 4714 4717 4718 4721 4722 4724 4726 4730 4735 4738 4739 4741 4742 4745 4761# 4763 FATNAX 4302 4342 4355# FATNC 1173# 4313 4326 4340 FATNC1 4303 4359# FATNC2 4306 4360# FATNC3 4315 4361# FATNC4 4319 4323 4362# FATNC5 4325 4363# FATNC6 4330 4364# FATNC7 4332 4365# FATNC8 4334 4366# FATNC9 4336 4367# FATNCJ 4321 4358# FATNT 4301 4310 4311 4314 4318 4320 4322 4324 4327 4328 4339 4341 4347 4348 4349 4356# FATNTT 4329 4331 4333 4335 4337 4357# FCN 2642 2649 2657# 3001 3251 FEXP 3054 4180# 5492 FEXP1 4190 4196 4201 4218 4226# 4357 FEXPC1 4181 4229# 4275 FEXPC2 4194 4230# FEXPC3 4203 4231# FEXPC4 4205 4232# FEXPC5 4210 4233# FEXPC6 4215 4234# 4270 FEXPF 4192 4193 4206 4208 4209 4213 4228# 4258 4261 4262 4263 4266 4267 4269 4271 4274 FEXPU 4182 4191 4195 4204 4207 4211 4212 4214 4227# 4256 4259 FEXT 87# 933 1297 1583 1602 1612 1787 2650 2984 2998 3027 3035 3040 3047 3052 3256 3487 3602 3671 3710 4031 4068 4087 4093 4099 4105 4110 4119 4127 4132 4139 4158 4183 4197 4216 4223 4276 4350 4388 FFIX 2640 2648# 4121 5499 FFLAG 4603# 4729 4882 4924 5020 FGOTO 4707 4747 4750# FIGO1 3657 3665# FIGO2 3679 3695# FIGO3 3705 3706# 3712 FIGO4 3699 3704# FIN001 7615# 7622 7624 7625 FIN002 7615 7618 7619 7629 7630 7636# FINCNT 7614# 7623 7627 FIND 302# 838 1084 1695 1888 FINDLN 306# 591 1121 1177 1441 1558 1633 1675 2492 2954 FINISH 7570 7618# FINLP1 7624# 7628 FINLP2 7629# 7631 FINT 85# 930 1295 1581 1599 1609 1783 2638 2648 2981 2993 3033 3038 3050 3055 3248 3484 3600 3668 3706 4026 4064 4082 4097 4102 4108 4113 4116 4125 4130 4134 4143 4180 4189 4202 4220 4255 4300 4386 FIX 228 4025# 4047 FIXCON 4028 4030 4051# FIXEXT 5066 5075# FIXLUP 5063# 5069 FIXTMP 4039 4046 4049# FIXUP 4657 5572# 5653 5660 FIXUP1 5580# 5588 FIXUP2 5583 5590# FIXUP3 5592 5605# FIXUP4 5578# 5603 5631 FIXUP5 5607 5633# FIXUP7 5608# 5641 FIXUP8 5611# 5626 FJUMP 4748 4752# FLARG 227 823 894 929 1055 1074 1111 1114 1116 1120 1136 1593 1604 1608 1851 1868 1870 2511 2834 3241 3263 3278 3445 3469 3527 3528 3599 3603 3606 3998 4009 4021# 4392 FLARGP 227# 320 931 932 990 1582 1600 1601 1610 1611 1747 1786 1788 1820 2983 2985 3250 3252 3446 3486 3927 4083 4085 4086 4103 4109 FLGET 274# 1592 1607 2833 FLIN 223 3650# 3697 3713 FLINTP 223# 1749 FLOAT 3475# 3488 3945 4007 FLOGC1 4257 4260 4279# FLOGC2 4264 4280# FLOGC3 4265 4281# FLOGC4 4268 4282# FLOOP 4625 4697# 4765 4778 4786 4798 4819 4823 5057 FLOP 1778 1785# 3057 5771 FLOTRX 1683# 4540 FLOUT 222 3778# 3789 3846 3884 FLOUTP 222# 3301 FLPUT 276# 822 1054 1113 1119 1603 1869 2768 3997 4008 FLTONE 1078 2645 2654# 3003 4135 4309 4338 4343 FLTXR 155# 370 388 391 724 732 993 996 1343 1347 1354 3064 3071 3498 3535 3540 3604 3628 3660 3664 3665 3693 3694 3695 3700 3702 3711 3796 3808 3813 3824 3830 3880 3928 3929 FLTXR2 156# 727 730 1303 1344 3067 3073 3529 3534 3607 3637 FLZERO 1732 2769 4222 4235# 4312 FNOR 89# 2982 3485 3669 4221 FNORM 4614 4966# 4974 4983 4993 5006 5032 5049 FOGO1 3786 3791# FOGO2 3799# 3810 FOGO3 3819 3823# FOGO4 3817 3848# FOGO5 3822 3852# FOGO6 3855# 3863 FOGO7 3859 3865# FOGO8 3873# 3883 FOR 1039# 5131 FOR1 1040 1059 1070 1098 1142# 1156 FOR2 1067 1076 1129# 1138 FOR3 1079# 1139 FOR4 1083# 1089 1100 FOR5 1058 1107 1125 1143# FOREXT 1127 1636# FOURTY 69# 5757 6878 FP11 3656# 3673 FPADD 4679# 4753 FPCMP 4758 4767# FPDIV 4756 5020# FPENT 3230 3332# FPGET 4752 4788# FPJMP 4757 4762# FPMUL 4755 4924# FPNT 3231 3332 4694# 4698 4700 4702 4708 4712 4715 4764 4767 4772 4777 FPNT1 4711 4714# FPNT2 4720 4723# FPNT3 4747# FPNT4 4771 4811# FPPUT 4759 4780# FPSUB 4676# 4754 FREE13 308# 482 522 536 760 1499 2318 3289 FREE2 310# 1450 1489 1494 1503 1514 1977 1986 2016 2046 2065 2073 FREEC 3324 3340# FREESV 3108 3183 3207# FREEWT 3336 3345# FRNDX 203# 1296 1645 3766 3767 3769 5485 5486 5488 FRNDX1 1643 1696# FSEQ 92# 2644 3012 FSGE 93# 2994 3015 4029 4316 FSGT 95# 4136 4304 4307 4344 FSIN 4107 4116# 5489 FSINC1 4117 4163# FSINC3 4149 4164# FSINC4 4150 4165# FSINC5 4152 4166# FSINC6 4154 4167# FSINC7 4114 4156 4168# 4346 FSINOK 4137 4146# FSINXX 4131# 4145 FSINZ 4065 4084 4118 4126 4131 4138 4144 4146 4147 4157 4161# 4227 4355 FSINZZ 4148 4151 4153 4155 4162# 4228 4356 FSKP 90# 2647 4115 FSLE 96# 2996 3018 4027 FSLT 94# 2639 3021 FSNE 91# 4066 FUNC10 1863# 1874 FUNC11 1887# 1895 1899 FUNC12 1947 1951# FUNC13 1927 1933# FUNC14 1917# 1949 FUNC16 1974 2941# FUNC17 1878 1897 1971# FUNC6I 2964# 2970 FUNCT 2774 2836# FUNCT3 1819 2966# FUNCT4 2845 2882# FUNCT5 2869# 2888 FUNCT6 1847# 2964 FUNCTI 2697 2774# FUNL1 2840 4368# FUNL2 2881 5438# FUNL3 2965 5489# FUNL3I 2965# 2971 FUPAR1 3004 3905# FUPAR2 3032 3041 3058# FUPAR3 3043 3055# FUPARR 1785 3008# FXIT 88# FXR2 4596# 4638 4640 4642 4746 4781 4783 4785 GETC 256# 523 525 539 577 800 826 877 903 953 1180 1387 1425 1449 1502 1550 1652 1721 1809 1905 1912 1924 1932 1948 1983 2061 2070 2083 2325 2327 2468 2496 2515 2522 2622 2693 2711 2850 2868 2869 2882 2941 3270 3396 3419 3658 3680 3730 3741 3983 4470 GETLIM 1470 1481 1537# 1562 GETLIN 1473 1497 1521# 1525 1534 1535 GETLN 292# 562 939 1438 1545 1551 2585 2615 GETNXT 304# 1524 1649 2494 GETSGN 320# 934 1594 1613 GETSTR 3463# 3471 3513 3588 GETVAR 778 1042 1091 1150 1577 1700 1817 2686# 3954 GFND1 2727 2818# GFND2 2820 2829# GOSUB 2585# 5130 GOSUB1 1629# 2593 GOSUB2 1675# 2595 GOSUB3 2588# 2634 GOTO 939# 5134 GPUT1 2754 2758# GS1 2717# 2738 GS2 2722 2740# GS4 2736# 2879 GS5 2772 2833# GS5I 2770 2772# GTEM 164# 2432 2445 2448 HIGHWD 4659 4775 4780 4800# 4809 IDNE 1647# IECALL 2955# 2967 IERRO1 2215# 2249 IERRO2 2218# 2250 IERROR 678 2159 2217 2226 2229# 2243 IF 891# 912 5135 IF1 902 908 915 916 951 952 987 989 1021# 3247 3601 3627 4387 IF2 906 946# IF3 907# 949 954 IF4 910 4528# IF5 955 2360# IF6 917 935# 1015 1019 IF7 934# IFSTR 927 988# IFSTR1 996# 1018 INPACK 861# 869 879 1569 3368 INPUT 750# 5136 INPUT1 759 845# INPUT2 760# 768 INPUTX 607 4513# INREA1 794 798# INREA2 825 829# INREA3 773 804# INREA4 795# 803 INREAD 758 771# 795 796 827 831 833 INT 2638# 4185 5497 INTCNT 332 3185 3765 3768 3771# INTEGE 228# 2010 2610 2785 2798 3028 3573 4198 4396 INTR80 5373 5381# 5393 INTR81 3089 5349 5355 5383# 5396 INTR82 5388 5398# INTR88 5361 5369# INTR89 5365 5370# INTR8A 5343# 5371 5378 5383 5398 INTR8E 146 3087# INTR8F 5344# 5356 5362 5366 5391 INTR8T 5352 5377# INTRP1 3130# 3161 INTRP2 3138 3142# 6826 6827 INTRP3 3135 3137 3152# INTRP4 3132 3134 3154# INTRP5 3162# 6828 INTRPL 3079# 3128 3200 5377 6752 INTRPP 3129 3130 3157 3200# INTRPT 3091# 5401 INTRRV 5346# 5379 6472 INTRV2 5353# 5375 6830 6858 IPTR0 189# 489 708 711 971 974 2166 2169 2232 2353 2356 IPTRI 187# 496 658 668 698 702 704 705 712 IPTRO 188# 497 656 2342 2344 2349 2350 2357 ITPRNT 368# 405 560 1568 3845 K2000 1863 1975# KEX 622 645 663 667# KEY 614# 629 675 694 716 3118 3144 KEY3 649 652 690# KEY4 655 687 696# 710 713 KEY5 637 681# KEY6 633 641 687# KEY7 627 631# KEYMSK 620# 3186 KKEY 4473# 5510 KL8FIX 4568# 6232 6466 KL8FRS 6442 6445 6467# KL8INT 4577# 6251 KL8JM0 343# 5785 6022 6460 6469 6470 KL8JMP 3192# 5788 6028 6455 6468 6471 KL8LF0 347# 4575 KL8LFL 3195# 4582 KL8LOD 4562# 6465 KLSCH 5746# 6245 6437 KLTOP 5745# 6219 6221 6222 6233 6244 6247 6257 6439 6463 6473 6543 6865 KLTOP2 6866 7616# 7620 KM5 1893 1973# L0001 119# 138 2763 4472 5630 5947 6246 6861 7552 L0002 120# 1167 1266 1307 2414 3684 3814 3838 6509 6512 L200 4253 4287# L2000 127# 1913 2811 L3777 124# 664 1541 2221 2885 L4000 126# 1490 1515 1752 1875 2019 2782 3728 4122 4186 4676 4723 4811 5033 L5777 125# 980 1871 L7775 123# 134 356 371 509 624 728 920 994 1279 1281 1289 2401 2830 3068 3681 3924 4744 4853 4990 5847 6496 6680 L7776 122# 135 1129 1734 1826 1963 3872 4464 4762 6579 L7777 121# 136 488 512 547 681 722 725 767 832 1039 1056 1222 1247 1253 1276 1616 1684 1688 1992 2051 2207 2230 2283 2301 2303 2384 2398 2446 2588 2608 2735 2821 3062 3065 3133 3302 3496 3544 3642 3861 4088 4728 4985 5585 5602 5823 6220 6321 6333 6400 6539 6608 6611 6720 6754 6806 6817 7509 LAL1 135# LASTLN 174# 175 584 587 1204 1476 1540 1547 1554 1560 1564 2182 2195 LASTOP 219# 1715 1722 1771 1774 1779 1791 1795 1801 1808 4463 LASTV 197# 601 1171 1267 1641 1860 1915 2716 2741 2747 2750 2764 2767 2957 LBLK 6306# 6338 6341 6387 6390 6397 6411 LEN 3923# 5503 LENDON 3932 3938 3942# LENXT 3929# 3941 LET 1040# 5139 LET1 1060 1123# LET2 1048# 1157 LFUNL2 2858 2881# LFXUP 136# 3791 LHIGH 138# 4247 LIMGT1 1539 1545# LIMGT2 1549 1564# LIMGT3 1542 1553# 1565 LIMGT4 1558# LIMIT 5718# 5725 LINCT 3977 3993 3994 4006 4023# LINE0 199 5723# 7544 LINE1 195 197 5724# 7536 7539 LINENO 173# 566 942 1079 1081 1103 1104 1500 1530 1546 1552 1555 1632 1659 1674 1689 1903 2177 2187 2485 2491 2502 2618 2630 2631 2636 2953 3758 3759 LINEPC 172# 1185 1187 1197 1203 1211 1223 1227 1477 1561 1648 1686 2184 2185 2194 2196 2201 2209 2477 2480 2481 LINPUT 3952# 5122 LINXT 3982# 4000 LINXT2 3992# LIST 1481# 4539 5505 LIST10 5300 5304# LIST11 5305 5309# LIST12 5310 5314# LIST13 5315 5318# LIST14 1997 5319 5322# LIST15 4537 5323 5327# LIST16 4536 4537 5328 5332# LIST17 5333 5337# LIST7 1304 5143# LIST70 5144 5147# LIST71 5148 5152# LIST72 5153 5157# LIST73 5158 5164# LIST74 5165 5169# LIST75 5170 5175# LIST76 5176 5181# LIST77 5182 5186# LIST78 5187 5191# LIST79 5192 5196# LIST80 5197 5201# LIST81 5202 5207# LIST82 5208 5212# LIST83 5213 5216# LIST84 5217 5222# LIST85 5223 5228# LIST86 5229 5233# LIST87 5234 5238# LIST88 5239 5243# LIST89 5244 5248# LIST90 5249 5253# LIST91 5254 5258# LIST92 5259 5262# LIST93 5263 5266# LIST94 5267 5271# LIST95 5272 5276# LIST96 5277 5281# LIST97 5282 5288# LIST98 5289 5294# LIST99 5295 5299# LISTN 4487 4503# 6260 6271 LKLOOP 4436# 4444 LLIST3 1487 1497# 1507 LLIST4 1498 1509# LLIST5 1489# 1493 LLIST6 1514# 1518 LLOOKU 2842 2865 2880# LMULT 134# 3802 LNFIX 137# 3478 4032 LOG 3049 4247# 5493 LOGEXP 4252 4284# LOGFWD 4272 4283# LOGOKW 4273 4286# LOOK 224# 334 344 346 347 351 486 487 543 544 2245 2387 2391 3165 3169 3346 3902 4498 4499 4509 4510 4587 6025 6746 LOOKST 226# 343 451 4433 4445 4586 6024 LOOKUP 1866 2701 2706 2715# 2778 2815 2880 3986 4005 LPRTST 317 2373# 2377 2381 2382 LSTMOD 235# 427 446 501 548 631 1445 1448 2220 LXOUTL 956# 965 M10 243# 1194 1766 2379 3136 3820 4080 M100 247# 248 1483 1512 2097 M1000 3703 3736# M12 240# 643 661 898 947 2270 M137 1382 1411# M140 626# 650 M4 249# 504 514 1065 1943 2736 3131 M40 245# 483 975 1342 2170 2231 2234 2261 M6 246# 1417 2375 3267 3381 3433 3550 3553 3580 3595 3750 3828 4517 MANCOM 301 1302# 1322 1355 MDOLR 2699 2773# MEQL 1045 1122# 1153 MGET 3491# 3505 3555 3609 MGET1 3493 3496# MGET2 3495 3504# MID 3513# 5501 MID1 3544# MID2 3555# 3561 MID3 3559 3566# 3620 MIDC1 3525 3531 3548 3583# 3610 3611 3616 3625 MIDC2 3523 3545 3546 3547 3560 3584# 3596 3618 MIDCHK 3516 3522 3572# 3581 3597 3622 3630 MINS 111# MINT 110# 6862 MKRB 113# MKSF 112# MLOOKE 335 361# 4450 6741 6743 6744 MMLOOK 4438 4450# MNSONE 2995 3005# 3016 MOD 3240# 5504 MOD1 3248# 4394 MODE 175# 550 776 781 804 835 843 895 925 991 1005 1009 1016 1658 2702 2962 3268 3275 3283 3292 3385 3464 3470 3554 3557 3564 3566 3591 3943 3958 MODF1 1449# 1456 5407 5408 5429 MODF2 1445# 5404 MODF3 1447# 5409 MODF4 1458# 1463 5405 5406 5432 MODF5 1465# 5403 5428 MODL1 1454 5428# MODL2 1462 5403# MONDSK 7297# 7451 MONTAP 7316# 7452 MPUT 3556 3563 3617 3633# 3638 3644 MPUT1 3635 3639# MPYLUP 4941# 4954 MQA 103# 4568 MQL 104# 4570 MSPLAT 2470 2493# MTCF 115# MTKF 107# MTLS 106# 3080 3081 3082 3083 3084 3085 3086 6857 MTON 109# 2145 2151 3140 3146 3163 5351 6860 MTPF 108# MTSF 114# MULCLR 4824 4925 4957# MULT10 4655 4672 5078# 5089 5598 MULTMP 4624# 4938 4948 4950 MUSER 3159 3209# 6748 NEXERR 1095 1145# NEXT 1576# 5140 NEXT1 1598 1614# NEXT2 1615 1631# NEXT3 1595# 1597 NFIX 4658 4958 5005 5059# 5076 NOBUMP 4977 4979 4981 4986# 4995 NONP 3122 3127# NOTBIG 4971 4975# NULL 330# 350 417 1681 3903 NUMBUF 3795 3812 3854 4019# 4021 4022 4023 NUNUM 6309# 6374 6380 NXEX 2472 2479 2486# NXTGET 305 2466# 2474 2486 2488 NXUSR 6555# 6602 O1600 4619# 4773 O177 4617# 4716 O200 4616# 4709 5474 O377 4618# 4733 O7 4615# 4706 4736 5478 OAC1 4630# 4793 4808 4815 4830 4832 4876 4878 4916 4933 4957 4968 4982 4991 4998 5015 5017 5035 5052 5060 5072 5084 5469 5479 5580 5611 5614 5622 5624 5627 5629 5638 5649 5650 5656 OAC2 4629# 4782 4795 4817 4833 4835 4872 4874 4935 4980 5000 5012 5014 5054 5073 5082 5465 5481 5619 5621 5647 OAC3 4628# 4784 4797 4820 4836 4838 4846 4868 4870 4937 4978 5002 5009 5011 5056 5074 5075 5080 5472 5616 5618 5644 5645 5657 OACEXP 4627# 4791 4801 4884 4906 4929 4932 4973 4986 4989 5027 5029 5063 5068 5070 5475 5573 5575 5586 5587 5590 5600 5601 OACN 4843# 4844 4919 OACSGN 4626# 4789 4807 4911 4921 4926 4928 5022 5024 5071 5476 OADD 4674 4852 4855 4859 4860 4866# 4879 4889 4899 4904 4909 4915 4952 5038 5088 5431 OADDP 5431# 5457 OCNTR 4622# 4645 4648 4940 4953 5030 5039 5041 5055 5610 5625 5633 5636 OCTADD 4623 4881# 4883 4918 4922 ODECXP 4631# 5578 5579 5658 OERROR 4604# 4806 5004 5021 OFLOOP 4625# 4680 4955 4959 OFNORM 4614# 4697 OLNUM 6308# 6363 6375 6378 6379 6381 6383 6391 OM10 4621# 4969 OM4 4620# 4821 ON 2599# 5125 ON1 2615# 2623 ON2 2612 2628 2635# OOCTAD 4623# 4679 4814 OP1 4601# 4663 4737 4792 4877 4890 4892 5034 5085 OP2 4600# 4664 4740 4794 4873 4893 4895 5083 OP3 4599# 4666 4743 4796 4851 4869 4896 4898 5081 OPEXP 4598# 4734 4790 4886 4905 4930 4936 4945 4947 5025 5042 5044 5053 OPNEXT 1750# 1822 2991 3458 OPSIGN 4597# 4677 4678 4725 4788 4812 4813 4912 4920 4927 4934 4942 4944 5023 5045 5047 5051 OPT1 3364# 3393 OPTABL 1775 2527# 5772 OPTRI 190# 2157 2162 2163 2164 2171 2241 3307 3311 OPTRO 191# 962 967 968 969 976 2242 3313 ORG 459 5671# 6550 7491 OS8AB 7440# 7460 7465 OS8DSK 7418 7422# 7461 7466 OS8DTA 7411 7423# OS8ERM 7392# 7414 OS8ERR 7404 7412# OS8KSK 7409 7417# OS8LP1 7429# 7435 OS8LST 7425 7448# OS8M1 7394# 7440 OS8M2 7395# 7442 OS8MSG 7393# 7438 OS8PT2 7433 7434 7446# OS8PTR 7426 7427 7428 7430 7431 7445# OS8RK8 7406 7424# OSDDSK 7354# 7450 OSDDTA 7373# 7449 OSDRK8 7335# 7448 OTPACK 870# 878 885 1570 1687 OUTPUT 179# 498 1485 1488 2122 4481 OVER 4602# 4840 4967 4975 P140 647 680# P20 671 679# P37 2689 2696 2703 2705# 2708 P70 5359 5363 5380# P7600 4415# 5862 PACKC 290# 578 881 884 1455 1458 1465 1466 3403 3441 PACKND 194# 868 876 2269 3394 PACKST 193# 866 2294 2331 3392 PAKLIN 554 766 879# 3976 PARTS 2007# 2008 4459 PARTS1 2801# 2814 PARTST 2990 4458# 4459 4471 PAUSER 5350 5376# PC 166# 354 357 1653 1680 2225 2386 3345 PCHK 1248 1254 1263# 1272 1280 1290 PDECKO 959 985# PDLST 198# 545 PDLXR 160# 229 546 1101 1251 1264 1265 1269 1285 1335 1336 1352 1353 1621 1657 1744 1856 1857 1900 2004 2369 2743 3264 3388 3567 PERR 1221# 1271 PERROR 2224 2228# PERRR 1148 1159# PFRND 5458 5473 5485# PFRND1 5467 5480 5488# PFRNX 5462 5463 5470 5471 5477 5486# PGS4 2828 2879# PIERRO 628 678# 715 PIF1 3247# 3249 3254 PIF5 914 955# PINPUT 561 607# PITPRN 518 530 560# PKEYMK 3120 3186# PL200 4078 4174# PLOOK 4573 4587# PLOOKS 4572 4586# POPA 268# 842 849 924 1083 1102 1195 1396 1526 1625 1629 1635 1794 1837 1855 1876 1887 1966 2006 2017 2329 2403 2629 2766 2783 2853 2875 2950 2956 2958 2968 3281 3524 4462 4467 4484 POPF 272# 789 814 818 820 851 855 928 988 1052 1110 1115 1398 1644 1781 1867 2333 2510 2520 2796 2855 2960 3246 3277 3279 3444 3526 3598 3979 3995 4010 4012 4391 POPJ 270# 834 858 886 937 943 1573 1638 1839 1981 1995 2525 2633 2637 2651 2835 2877 2999 3257 3288 3355 3451 3770 3946 4014 4094 4111 4159 4224 4277 4353 PRIN10 775 2021 2045 2052# 2071 3286 PRIN11 2013 2025# 4397 PRIN12 2009 4386# PRINT 3285# 3303 5137 PRINT1 1985 1989# 2084 PRINT2 2060# 2067 5422 PRINT3 2069# 5425 5427 PRINT4 1992# 2057 PRINT5 2076# 2082 5414 5420 PRINT6 1980# 5415 5417 5418 5421 5423 5424 5426 PRINT8 1983# 5413 5416 PRINT9 2031 2042# 2049 PRINTC 254# 393 398 403 524 526 528 540 541 762 764 1426 1451 1491 1496 1504 1516 1979 1988 2020 2048 2066 2075 2291 2320 2322 2326 2328 3274 3300 3783 3788 3825 3827 3831 3835 3840 3849 3851 3878 3881 PRINTX 278# 654 686 691 693 2507 PRNT1 375# 395 PRNT2 387 391# PRNT3 390 409# PRNT4 393# 413 PRNT5 399 404 407# 409 3844 PRNT6 401 404# PRNT7 394# 411 PRNTC1 201# 2027 2039 2077 2099 2108 3295 PRNTEX 3258# 3294 PRNTL1 1990 1991 3398 3456 4241# PRNTL2 1991 5420# PRNTL4 2054 2055 4240# PRNTL6 2055 5413# PRNTL7 2063 2064 4243# PRNTL8 2064 5425# PRNTLL 373 3888# PRNTX1 3270# 3276 PRNTX2 3302# PRUNIN 938 945# PSAVAC 4579 4585# PSAVLK 4577 4584# PST2 5348 5375# PT1 170# 723 784 821 1068 1093 1097 1484 1492 1509 1513 1517 1733 1748 1753 1754 1789 1803 1821 1916 1935 1941 1944 1945 1953 1984 2026 2029 2042 2043 2052 2056 2527 2528 2529 2530 2531 2717 2720 2723 2733 2737 2751 2756 2757 2759 2761 2765 2822 2823 2824 2831 2832 2852 2863 2986 3009 3011 3014 3020 3026 3051 3063 3447 3670 3707 3709 3962 4013 4473 4480 PUNCH 3124 4427 4430# 4440 4448 4449 4504 PUNCHK 3111 3115 3121# PUSHA 262# 552 755 836 896 1080 1087 1186 1365 1529 1553 1590 1714 1716 1718 1720 1724 1802 1847 1882 1884 1891 1902 1911 1998 2015 2317 2590 2592 2594 2619 2762 2849 2867 2887 3259 3376 3517 4475 PUSHF 266# 750 752 783 785 787 812 893 1048 1073 1077 1135 1362 1642 1805 1850 1879 2314 2513 2792 2846 3240 3260 3262 3386 3468 3961 3963 3972 3987 4389 PUSHJ 264# 553 593 765 774 777 807 810 891 918 1041 1050 1071 1090 1133 1149 1191 1576 1670 1699 1816 1865 2599 2794 2946 2977 3048 3053 3244 3285 3290 3514 3520 3589 3953 3975 3985 3989 4004 4100 4106 4120 4140 4184 4393 PXDELE 572 581 608# QCOM 3411 3457# QCOMCK 3424# 4682 QCON1 3378 3455# QCON2 3379 3408 3456# QCOUNT 3370# 3382 3401 3404 3431 3436 3442 QCT1 3366# 3435 4060 4061 QDONE 3420 3426 3429# 4685 4689 QDONE1 3438 3444# QDONE2 3413 3433# QERR 3367# 3374 QINP 808 3378# QINPAC 3368# QLINP 3379# 3990 QLIS1 3455 3456 4686# QLIS2 3455 4682# QMDOT 3363# 3372 QNEXTC 3401# 3427 4683 4686 4687 4688 4690 QOPNEX 3375 3458# QSLIS 3380 3399# 3406 QUOCHK 3415# 4684 QUOCNT 3369# 3383 3412 3415 3421 3424 3430 3448 QUOTE1 3396# 3405 3410 3422 QUOTES 1730 3371# RANDOM 3765# 5123 RCHK 3114 4425# 4426 4432 4441 4492 4497 4508 RDY1 1425# 1428 READ 833# 844 5128 READ1 835# READC 312# 880 1446 1459 READY 166 221 536# 5126 7505 READY1 513 538 1414# 1429 2311 RESTOR 3350# 5127 RESTR 5354 5378# RETURN 1621# 5129 RND 1295# 5498 RND1 1300 5456# RNDM40 5466 5487# RTL6 284# 1339 1377 1921 2281 2449 2690 2808 3639 3805 RUN 1640# 5512 RUN4 1646 1683 1692# 1697 1706 RUN6 1651# 1677 RUN7 1649# 1673 RUN8 945 1654 1657# 1690 RUN9 1655 1678# 1679 4535 SAVAC 3091 3194 3201# 4585 6032 SAVLK 3093 3192 3202# 4584 6030 SC2SV 3105 3177 3199# SET 5379# 5395 SETSGN 4901 4911# SGN 2993# 4141 5496 SIN 148# 419 422 437 449 623 625 634 638 642 646 653 685 701 SORTC 260# 502 635 639 904 909 1756 1906 1959 1999 2257 2570 2712 2839 2870 SORTCN 213# 505 515 682 897 913 946 1713 1735 1759 1763 1827 1881 1910 1964 2374 2378 2413 2415 2422 2843 2857 2866 2908 2959 3098 3176 4434 4436 4437 4442 4447 4465 4673 SORTCS 3103 3181 3211# SORTJ 258# 1452 1460 1989 2053 2062 2254 2436 3397 SPACSW 176# 575 782 874 1179 1443 1482 1651 2060 2069 2453 2512 2987 3269 3284 3384 3418 3450 3594 3974 3982 SPL 105# 5387 SQCNT 4081 4091 4096# SQEXIT 4067 4093# SQLOOP 4082# 4092 SQR 4064# 5495 SRETN 563# 1559 SRTCNS 3099 3175 3205# SS 5743# 5907 5933 5943 5944 6211 6306 6481 6497 6506 6508 6517 6546 6548 6574 6576 6578 6583 6633 6650 6659 6661 6670 6681 6686 6727 6775 6776 6981 6982 6983 6988 6995 7002 7005 START 545# 604 4538 5506 STARTP 461 471# STARTV 196# 600 1170 1640 2718 2746 STMV 1422 5097# 5119 6795 STSWAP 159# 236 467 471 5719 6547 STSWM1 237# 465 SUB1 2787# 2788 2802 2806 SUB2 2791 2814# SUBS 169# 1861 1883 2755 2789 2803 2807 2810 2826 3952 3969 3971 3984 4001 4003 SUBT 2695 2714 2777# SWAP 132# 432 439 499 1298 1305 1366 1400 1666 2860 2933 2973 3087 3226 3235 3738 4523 4703 4850 6452 6457 SWAPR 5719# T1 214# 369 378 379 396 998 999 1003 1004 1013 1210 1213 1216 1218 1235 1241 1308 1329 1370 1388 1618 1620 1665 1667 1914 1933 1937 1951 1956 2614 2616 2626 3476 3482 3530 3608 3634 3643 3925 3940 4522 4524 4526 4527 T2 215# 374 380 384 1008 1012 1206 1207 1217 1306 1309 1317 1318 1325 1338 1372 1418 1427 1588 1631 1923 1930 1931 1940 1996 2609 2632 3492 3497 3538 3605 3629 3855 3856 3862 4474 T3 216# 375 377 385 484 493 729 734 995 1017 1196 1215 1225 1229 1236 1282 1287 1527 1528 1532 1626 1628 2139 2142 2235 2238 2300 2307 2402 2405 2859 2861 2894 2902 2920 2927 3069 3074 3094 3172 3636 3641 3896 3899 T3SV 3095 3171 3203# TAN 4097# 5500 TAPE 1567 4472# 5511 TAPEM 176 7454# TAPMM 7397# 7459 TCOMGO 4521 4541# TDIF1 4485 4536# TDIF2 4488 4537# TELSW 192# 960 2125 2149 4477 TEMP 2641 2643 2646 3002 3253 3255 4022# 4098 4104 TEMP1 149# 3113 3119 3127 3139 3145 3151 TEMP2 150# 435 443 453 458 462 468 665 666 672 981 982 2129 2222 2223 2247 TEN 3704 4543# TERMS 905 1024# 1757 1907 1960 2000 2571 2713 2871 TESTC 288# 1726 1810 2694 TESTN 286# 559 936 1925 2574 2704 3654 3735 3747 TEXTP 162# 751 786 790 813 819 856 1363 1399 1880 2315 2334 2514 2521 2847 2856 2961 3261 3280 3964 4011 TFLOTR 4519 4540# TH13 2419 2427# TH60 2412 2426# THISOP 218# 1764 1765 1768 1769 1790 1807 TLIST 4512 4539# TOP 160 198 5725# TRUN9 4476 4535# TSTALP 298# 1088 1147 1917 2579 2686 2883 TSTART 4501 4538# TSTCCR 294# 570 579 882 1094 1163 1181 1439 1505 1538 1556 1579 1702 2473 2518 3271 4482 TSTCOM 296# 798 824 1548 1852 1946 2620 2790 3242 3466 3518 TSTEND 314# 793 801 829 847 940 1075 1123 1137 1622 2516 2586 2624 2948 3350 3956 3999 TSTLPR 316# 1741 1760 1798 1908 2001 2777 2873 TTCHAR 6085 6088# 6094 6097 6099 TTY 957# 979 983 3126 3155 TTY2 964 973 977# TTY3 962# UDF 282# 491 567 582 667 697 731 961 966 1105 1165 1202 1250 1284 1584 1619 1704 1934 1952 2156 2160 2180 2236 2265 2306 2339 2368 2442 2476 2715 3070 3306 UDFSV 3101 3179 3206# UNDERF 4988 4997# UNKWN 1147# 1155 5141 USER 147# 615 958 3109 3156 3158 USER0 150 224 226 740# USER1 741# USER2 742# USER3 743# USER4 744# USER5 745# USER6 746# USER7 361 747# USRCTR 5742# 6235 6242 6315 6392 6480 6488 6534 6601 6635 6639 6676 6689 6758 6771 6987 7007 USRLST 5732 6316 6474 6477 6531 6537 6877# 6984 USRPT2 5734# 6308 6484 6491 6510 6530 6557 6558 6569 6570 6581 6582 6599 6600 6612 6613 6638 6644 6653 6656 6658 6663 6667 6679 6682 6685 6688 USRPTR 5732# 6317 6352 6354 6357 6359 6360 6395 6396 6412 6413 6475 6482 6498 6501 6504 6511 6532 6555 6556 6559 6564 6571 6572 6606 6609 6610 6632 6642 6651 6654 6657 6664 6666 6674 6683 6684 6728 6985 6993 6994 7000 7001 7004 7006 VARSET 573 600# VDECKO 616 677# VFCN 3001# 3010 VFLOP 3056 3057# VFLTON 2997 3003# 3023 3034 VFUPAR 3004# 3017 VIF1 987# 992 VLIN0 859# 867 VMEQL 2940# 2943 VPDLXR 230# 875 VTEMP 3002# 3008 3024 3025 3039 3046 WNGDM 6137# 6312 X 7019# 7020 7021 7022 7023 7024 7025 7026 7027 7028 7029 7030 7031 7032 7033 7034 7035 7036 7037 7038 7039 7040 7041 7042 7043 7044 7045 7046 7047 7048 7049 7050 7051 7052 7053 7054 7055 7056 7057 7063 7064 7065 7066 7067 7068 7069 7070 7071 7072 7073 7074 7075 7076 7077 7078 7079 7080 7081 7082 7083 7084 7085 7086 7087 7088 7089 7090 7091 7092 7093 7094 7095 7096 7097 7098 7103 7104 7105 7106 7107 7108 7109 7110 7111 7112 7113 7114 7115 7116 7117 7118 7119 7120 7121 7122 7123 7124 7125 7126 7127 7128 7129 7130 7131 7132 7136 7137 7138 7139 7143 7144 7145 7146 7147 7148 7149 7150 7151 7152 7153 7154 7155 7156 7157 7158 7159 7160 7161 7162 7163 7164 7165 7166 7167 7168 7169 7170 7171 7172 7173 7177 7178 7179 7180 7181 7182 7183 7184 7185 7186 7187 7188 7189 7190 7191 7192 7193 7194 7195 7196 7197 7198 7199 7200 7201 7202 7203 7205 7206 7207 7208 7209 7210 7211 7212 7213 7214 7215 7216 7217 7218 7219 7220 7221 7222 7223 7224 7225 7226 XAUSER 2150 2155# XCT 165# 873 1190 1416 2204 2430 2447 2483 3266 XCTIN 168# 169 565 864 2262 2284 2287 2302 3390 XDEL2 1209 1222# XDEL3 1206# 1219 XDELET 608 1176# 1178 1201 1243 1566 XERR 4605# 4607 4636 4637 4647 4649 XERROR 281 2212# 2218 2244 4611 4612 XFIELD 181# 207 430 447 XFIND 303 2490# 2498 2501 2503 2504 XFIND1 2494# 2500 XFIND2 2495 2503# XFINDL 307 2176# 2200 2206 XFLGET 275 3059# 3066 3076 3077 XFLGT2 3061 3064# XFLPT1 722# XFLPT2 721 724# XFLPUT 277 719# 726 736 737 XFNDL1 2184# 2198 XFNDL2 2191 2193 2201# 2210 XFNDL3 2179 2207# XFREE 986 3107 3184 3305# 3310 3319 3322 3323 3326 3327 3330 3339 XFREE2 311 3329# 3333 3335 XFREE3 309 3338# 3342 3344 XGET1 2431 2442# XGET2 2433# 2451 XGET3 2453# 5412 XGET4 2458# 5411 XGET5 2462# 5410 XGET6 2459# 2463 XGETC 257 2429# 2439 2455 2456 2460 XGETL1 1402# 2437 2438 XGETL2 2438 5410# XGETLN 293 3746# 3763 XIOT 180# 617 2135 XOR 2392 3349 3895# 3897 3900 XOUTL 279 2086# 2100 2103 2110 XOUTL1 2093 2105# XOUTL2 956 2035 2037 2089 2106 2119# 2173 XOUTL3 2096 2109# XOUTL4 2124 2153 2168 2172# XOUTL5 2127 2156# XOUTL6 2136 2148# 6824 6825 XP37 2277 2312# XPACK1 2263 2281# 2336 XPACK2 2277# 5433 XPACK3 2278# 5434 XPACK4 2262# 2279 XPACK5 2275# 5437 XPACK7 2287# 5435 5436 XPACK8 2288 2294# XPACK9 2289# 2309 XPACKC 291 2253# 2275 2285 2292 2298 2316 2330 XPAKL1 2255 2256 4055# XPAKL2 2256 5433# XPOPA 269 2367# 2371 XPOPF 273 2397# 2399 2407 2408 XPOPJ 271 1624# 5132 5133 5138 5484 XPPCK1 2259 2314# XPRDY1 2311# 2324 XPRNTC 255 2505# 2509 XPUSHA 263 1245# 1255 1259 1261 XPUSHF 267 1275# 1277 1291 1292 XPUSHJ 265 1246 1249 1257# 1258 1260 XR20 2383# 2388 XREAD1 2348 2384# XREADC 313 2338# 2358 2385 XREG 152# 433 440 464 XREG2 153# 431 442 466 XREG3 154# 490 492 1224 1240 1278 1283 1373 1374 1624 1627 2090 2121 2147 2161 2186 2189 2233 2237 2400 2404 2896 2898 2907 2922 2924 2930 3096 3174 XREG3S 3097 3173 3204# XRTL6 285 4452# 4456 XSORT1 2926 2937# XSORT3 2901 2910# XSORTC 261 2890# 2895 2905 2910 2911 2914 XSORTJ 259 2916# 2921 2923 2931 2932 2934 2936 2938 2939 XTESTC 289 2569# 2572 2573 2575 2577 2578 2580 2581 XTESTN 287 2410# 2417 2418 2421 2424 2425 XUDF 283 429 448 1405 4170# 4173 ZFIXEX 5062 5070# ZFPNT 151 3224# 3227 .L0373 467 472# .L0374 459 473# .L0375 429 448 474# .L0376 373 475# 4824 4826# .L0377 332 476# 4748 4827# .L0573 551 609# .L0574 513 538 610# 4958 4961# .L0575 500 611# 4939 4962# .L0576 499 612# 4931 4963# .L0577 485 542 613# 4851 4964# .L0771 5064 5090# .L0772 5057 5091# .L0773 5038 5088 5092# .L0774 5037 5093# .L0775 5031 5094# .L0776 5028 5095# .L0777 4972 5067 5096# .L1767 5643 5662# .L1770 5628 5663# .L1771 5612 5639 5651 5664# .L1772 5609 5665# .L1773 5605 5666# .L1774 5599 5667# .L1775 5598 5668# .L1776 5594 5595 5596 5597 5635 5669# .L1777 5584 5670# .L2154 5842 5865# .L2155 5836 5866# .L2156 5832 5867# .L2157 5827 5868# .L2160 5821 5869# .L2161 5815 5870# .L2162 5810 5871# .L2163 5809 5812 5872# .L2164 5807 5873# .L2165 5806 5874# .L2166 5802 5804 5875# .L2167 5797 5876# .L2170 5795 5877# .L2171 5793 5828 5878# .L2172 5788 5879# .L2173 1422 1431# 5785 5880# .L2174 1420 1432# 5783 5881# .L2175 1381 1433# 5772 5882# .L2176 1327 1434# 5771 5883# .L2177 1304 1435# 5755 5884# .L2360 5993 6002# .L2361 5990 6003# .L2362 5967 5972 6004# .L2363 5958 5968 6005# .L2364 5953 5956 5959 5961 5965 5970 6006# .L2365 5949 6007# .L2366 5927 5938 6008# .L2367 5926 5929 5937 5940 6009# .L2370 5924 5935 6010# .L2371 5923 5934 5989 6011# .L2372 5921 5987 5996 6012# .L2373 5908 5975 6013# .L2374 5901 5911 6014# .L2375 5900 6015# .L2376 5898 6016# .L2377 5889 5895 5904 6017# .L2563 6098 6104# .L2564 6096 6105# .L2565 6084 6106# .L2566 6083 6107# .L2567 6079 6108# .L2570 6076 6109# .L2571 6057 6110# .L2572 6056 6111# .L2573 6052 6112# .L2574 6051 6113# .L2575 1687 1708# 6049 6114# .L2576 1664 1709# 6043 6115# .L2577 1663 1710# 6039 6116# .L2772 1819 1840# .L2773 1785 1841# .L2774 1775 1842# .L2775 1745 1843# .L2776 1732 1844# .L2777 1730 1845# .L3361 6288 6291# .L3362 6285 6289 6292# .L3363 6264 6273 6293# .L3364 6260 6271 6294# .L3365 6259 6261 6295# .L3366 6256 6296# .L3367 6251 6297# .L3370 2094 2111# 6239 6298# .L3371 2038 2107 2112# 6236 6299# .L3372 2035 2037 2089 2106 2113# 6232 6300# .L3373 2028 2114# 6231 6301# .L3374 2011 2091 2115# 6229 6262 6280 6302# .L3375 2009 2116# 6212 6303# .L3376 2003 2117# 6209 6304# .L3377 1997 2118# 6202 6206 6266 6275 6286 6305# .L3563 6414 6416# .L3564 6371 6417# .L3565 6368 6418# .L3566 6365 6419# .L3567 6349 6420# .L3570 6346 6421# .L3571 6345 6364 6422# .L3572 6342 6423# .L3573 6337 6424# .L3574 6336 6425# .L3575 6328 6426# .L3576 6316 6427# .L3577 6311 6326 6339 6343 6361 6405 6408 6428# .L3770 6520 6521# .L3771 6476 6522# .L3772 6474 6477 6523# .L3773 6472 6524# .L3774 6460 6525# .L3775 6455 6526# .L3776 6452 6457 6527# .L3777 6430 6528# .L4165 6603 6619# .L4166 6587 6620# .L4167 6575 6621# .L4170 6568 6622# .L4171 6553 6623# .L4172 6550 6624# .L4173 6547 6625# .L4174 6537 6626# .L4175 6536 6627# .L4176 6531 6628# .L4177 2392 2533# 6529 6629# .L4366 2641 2643 2646 2672# 6711 6729# .L4367 2605 2673# 6700 6730# .L4370 2595 2674# 6696 6731# .L4371 2593 2675# 6694 6732# .L4372 2564 2676# 6693 6733# .L4373 2560 2677# 6691 6734# .L4374 2553 2678# 6649 6662 6735# .L4375 2549 2679# 6646 6736# .L4376 2545 2680# 6636 6665 6737# .L4377 2536 2681# 6631 6637 6673 6678 6738# .L4553 6831 6832# .L4554 6830 6833# .L4555 6828 6834# .L4556 6827 6835# .L4557 6826 6836# .L4560 6825 6837# .L4561 6824 6838# .L4562 6822 6839# .L4563 6795 6840# .L4564 6793 6841# .L4565 6790 6842# .L4566 6787 6843# .L4567 6782 6844# .L4570 6781 6845# .L4571 6768 6846# .L4572 6767 6847# .L4573 6752 6848# .L4574 6750 6849# .L4575 6748 6850# .L4576 6746 6851# .L4577 6741 6743 6744 6852# .L4770 6867 6869# .L4771 6866 6870# .L4772 6859 6871# .L4773 6858 6872# .L4774 6857 6873# .L4775 6856 6874# .L4776 6855 6875# .L4777 6854 6876# .L5365 3185 3212# .L5366 3149 3213# .L5367 3128 3214# .L5370 3126 3155 3215# .L5371 3124 3216# .L5372 3118 3144 3217# .L5373 3117 3218# 7009 7010# .L5374 3116 3170 3219# 7003 7011# .L5375 3114 3220# 6991 6999 7012# .L5376 3107 3184 3221# 6984 7013# .L5377 3104 3106 3178 3222# 6980 7014# .L5574 3296 3358# .L5575 3253 3255 3359# .L5576 3251 3360# .L5577 3243 3361# .L6173 3627 3645# .L6174 3601 3646# .L6175 3555 3609 3647# .L6176 3528 3603 3606 3648# .L6177 3513 3588 3649# .L6373 3722 3772# .L6374 3704 3773# .L6375 3704 3774# .L6376 3677 3775# .L6377 3651 3776# .L6565 3857 3909# .L6566 3854 3910# 7464 7472# .L6567 3845 3911# 7459 7473# .L6570 3844 3912# 7455 7474# .L6571 3839 3913# 7425 7475# .L6572 3834 3914# 7415 7443 7476# .L6573 3826 3848 3877 3915# 7413 7437 7439 7441 7477# .L6574 3806 3916# 7407 7478# .L6575 3795 3812 3815 3836 3841 3865 3869 3874 3879 3917# 7402 7479# .L6576 3793 3852 3918# 7401 7480# .L6577 3787 3807 3850 3919# 7400 7481# .L6777 3945 4007 4062# .L7155 7570 7592# .L7156 7556 7593# .L7157 7554 7594# .L7160 7547 7595# .L7161 7544 7596# .L7162 7536 7539 7597# .L7163 7534 7598# .L7164 7528 7531 7599# .L7165 7519 7522 7525 7600# .L7166 7517 7601# .L7167 7513 7602# .L7170 7507 7603# .L7171 7505 7604# .L7172 7503 7605# .L7173 7499 7606# .L7174 7497 7607# .L7175 4135 4175# 7495 7608# .L7176 4098 4104 4176# 7493 7609# .L7177 4073 4177# 7491 7610# .L7375 4222 4289# .L7376 4192 4193 4206 4208 4209 4213 4258 4261 4262 4263 4266 4267 4269 4271 4274 4290# .L7377 4182 4191 4195 4204 4207 4211 4212 4214 4256 4259 4291# .L7567 4397 4404# .L7570 4387 4405# .L7571 4346 4406# .L7572 4329 4331 4333 4335 4337 4407# .L7573 4313 4326 4340 4408# .L7574 4312 4409# .L7575 4309 4338 4343 4410# .L7576 4302 4342 4411# .L7577 4301 4310 4311 4314 4318 4320 4322 4324 4327 4328 4339 4341 4347 4348 4349 4412# .V0000 5953 5956 5959 5961 5965 5970 6006# 7528 7531 7599# .V0002 1327 1434# .V0003 6476 6522# 7534 7598# .V0004 2605 2673# 5599 5667# 6587 6620# 6636 6665 6737# 7503 7605# .V0005 7517 7601# .V0007 5927 5938 6008# 6991 6999 7012# .V0010 5810 5871# 5908 5975 6013# 6349 6420# 6781 6845# 7507 7603# .V0011 6371 6417# .V0013 5993 6002# .V0016 3296 3358# .V0017 3806 3916# 6859 6871# .V0020 5842 5865# 6337 6424# .V0022 4851 4964# 6553 6623# .V0037 7003 7011# .V0040 7519 7522 7525 7600# .V0051 6547 6625# .V0053 3839 3913# .V0056 3826 3848 3877 3915# .V0060 3787 3807 3850 3919# 6328 6426# 6711 6729# .V0065 2553 2678# .V0077 6076 6109# .V0100 6083 6107# 7547 7595# .V0105 3834 3914# 6746 6851# .V0110 2028 2114# .V0120 5797 5876# .V0122 1381 1433# .V0162 7544 7596# .V0164 7536 7539 7597# .V0177 5028 5095# 6056 6111# .V0200 6057 6110# .V0203 5057 5091# 6052 6112# .V0206 5785 5880# .V0212 6098 6104# .V0215 6096 6105# .V0230 6741 6743 6744 6852# .V0231 3845 3911# .V0237 6084 6106# .V0277 3844 3912# .V0305 3116 3170 3219# .V0377 5628 5663# .V0400 4972 5067 5096# 5594 5595 5596 5597 5635 5669# 6575 6621# .V0410 5832 5867# .V0422 5037 5093# .V0442 5038 5088 5092# .V0462 7505 7604# .V0571 4824 4826# .V0600 3118 3144 3217# 7455 7474# .V0647 5584 5670# .V0730 4958 4961# .V0752 5598 5668# .V0770 7401 7480# .V1000 1422 1431# 5958 5968 6005# 6795 6840# .V1045 1664 1709# .V1046 1304 1435# .V1156 1687 1708# .V1172 6767 6847# .V1300 3126 3155 3215# .V1311 6472 6524# .V1313 6855 6875# .V1314 6856 6874# .V1316 6830 6833# .V1317 6858 6872# .V1375 3627 3645# .V1376 3601 3646# 4387 4405# .V1567 1420 1432# 6790 6842# .V1612 4313 4326 4340 4408# .V1777 459 473# .V2000 6550 6624# 7491 7610# .V2003 7415 7443 7476# .V2026 6051 6113# 6693 6733# .V2053 6043 6115# .V2067 5967 5972 6004# .V2152 513 538 610# .V2166 5643 5662# .V2200 5836 5866# .V2233 6209 6304# .V2237 6039 6116# .V2270 5815 5870# .V2327 5821 5869# 6202 6206 6266 6275 6286 6305# 6691 6734# .V2377 5783 5881# .V2406 5926 5929 5937 5940 6009# .V2411 5809 5812 5872# .V2414 5806 5874# 5923 5934 5989 6011# 6345 6364 6422# .V2432 5802 5804 5875# 5921 5987 5996 6012# 6264 6273 6293# 6311 6326 6339 6343 6361 6405 6408 6428# 6694 6732# 7413 7437 7439 7441 7477# .V2461 2593 2675# .V2536 2595 2674# .V2600 2003 2117# .V2662 5901 5911 6014# .V2707 5771 5883# .V3062 7556 7593# .V3200 5889 5895 5904 6017# .V3250 4397 4404# .V3257 6231 6301# .V3261 5827 5868# .V3400 2035 2037 2089 2106 2113# 6646 6736# .V3403 6288 6291# .V3432 6825 6837# .V3440 6824 6838# .V3600 6414 6416# 7009 7010# .V4000 6520 6521# .V4004 3149 3213# .V4171 1775 1842# .V4176 5772 5882# .V4200 6603 6619# .V4301 6342 6423# .V4354 4135 4175# 4309 4338 4343 4410# .V4357 3251 3360# .V4361 5900 6015# .V4362 1663 1710# .V4400 6696 6731# .V4600 6822 6839# .V4613 6831 6832# .V4713 500 611# 3104 3106 3178 3222# .V4775 3704 3773# .V5000 6316 6427# 6474 6477 6523# 6531 6628# 6984 7013# .V5001 6537 6626# .V5017 1819 1840# .V5034 1745 1843# .V5065 1785 1841# .V5170 3128 3214# 6752 6848# .V5200 6285 6289 6292# .V5264 6826 6836# .V5272 6827 6835# .V5313 6828 6834# .V5314 3117 3218# .V5321 7554 7594# .V5342 5788 5879# .V5362 6748 6850# .V5363 6782 6844# .V5366 6251 6297# .V5400 5612 5639 5651 5664# .V5514 3107 3184 3221# .V5610 1730 1845# .V5611 6460 6525# .V5671 4748 4827# .V5674 6980 7014# .V5730 3513 3588 3649# .V5734 3243 3361# .V5741 3945 4007 4062# .V5745 6455 6526# .V5760 3555 3609 3647# .V5775 6239 6298# .V5776 7513 7602# .V6005 6212 6303# .V6006 6768 6846# .V6007 485 542 613# .V6046 6854 6876# .V6126 6857 6873# .V6201 6568 6622# 6787 6843# .V6211 499 612# .V6212 6452 6457 6527# .V6221 5949 6007# .V6365 332 476# 3185 3212# .V6430 7464 7472# .V6433 7459 7473# .V6436 5755 5884# .V6512 1997 2118# 7425 7475# .V6546 551 609# .V6547 373 475# .V6552 2392 2533# .V6725 3528 3603 3606 3648# 3795 3812 3815 3836 3841 3865 3869 3874 3879 3917# .V6731 2641 2643 2646 2672# 3253 3255 3359# 4098 4104 4176# .V6734 3854 3910# .V7000 6236 6299# 6750 6849# 7499 7606# .V7001 5793 5828 5878# 5898 6016# .V7010 6867 6869# .V7130 6536 6627# .V7136 4182 4191 4195 4204 4207 4211 4212 4214 4256 4259 4291# 4302 4342 4411# .V7141 4192 4193 4206 4208 4209 4213 4258 4261 4262 4263 4266 4267 4269 4271 4274 4290# 4301 4310 4311 4314 4318 4320 4322 4324 4327 4328 4339 4341 4347 4348 4349 4412# .V7163 4346 4406# .V7167 429 448 474# .V7200 6256 6296# .V7202 6866 6870# .V7203 7570 7592# .V7255 4329 4331 4333 4335 4337 4407# .V7300 1732 1844# 4222 4289# 4312 4409# .V7400 6529 6629# 6631 6637 6673 6678 6738# 7493 7609# .V7401 7495 7608# .V7402 7497 7607# .V7447 5990 6003# .V7510 5807 5873# 6346 6421# .V7511 5924 5935 6010# .V7545 5064 5090# .V7551 2009 2116# .V7563 6365 6419# .V7575 6049 6114# .V7577 4931 4963# .V7600 4073 4177# .V7601 3114 3220# .V7606 3124 3216# .V7610 6259 6261 6295# .V7644 2549 2679# .V7646 2564 2676# .V7670 2038 2107 2112# 7407 7478# .V7673 3677 3775# .V7677 2560 2677# .V7700 6229 6262 6280 6302# 6430 6528# .V7711 6260 6271 6294# .V7720 3857 3909# .V7724 2536 2681# 6368 6418# .V7725 3722 3772# .V7727 467 472# .V7730 7402 7479# .V7740 5609 5665# .V7741 6079 6108# .V7743 5031 5094# .V7745 4939 4962# .V7753 3704 3774# .V7755 2094 2111# 6232 6300# .V7756 6793 6841# .V7760 7400 7481# .V7763 2011 2091 2115# 2545 2680# .V7766 6700 6730# .V7767 3651 3776# .V7771 3793 3852 3918# 5795 5877# .V7772 6336 6425# .V7773 5605 5666# .V7774 6649 6662 6735#