1 /8 COMMAND DECODER FOR OS/8 MONITOR 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1974, 1975, 1977 BY DIGITAL EQUIPMENT CORPORATION 12 / 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 26 / 27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 31 / 32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 34 /DIGITAL. 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 / 45 /APRIL 1977 RL/EF/HJ/SR 46 47 /ABSTRACT-- 48 /COMMAND DECODER (CD) ACCEPTS TTY INPUT AND INTERPRETS 49 /THAT INPUT AS A LIST OF OPTIONS AND FILE SPECIFICATIONS 50 /FOR OS/8 CUSPS. TABLES ARE SETUP INDICATING THE SPECIFIED 51 /FILES AND OPTIONS. 52 /THIS VERSION OF CD IS CAPABLE OF RUNNING OS/8 BATCH. 53 /MODIFICATIONS TO INITIALIZATION CODE HAVE BEEN MADE TO 54 /ALLOW THIS. 55 56 57 DCB=7760 58 SHNDLR=7607 59 USERFG=40 /LOCATION IN MAIN OS/8 ASSEMBLY - VOLATILE 60 T1=41 /DITTO 61 MCDREC=51 /ALSO PRETTY VOLATILE 62 MOFILE=7600 63 MIFILE=7617 64 MPARAM=7643 65 FIELD 0 /JUSTINCASE 66 67 CDVERSION=6501 /5A 68 ODTVERSION=6401 /4A 69 /V3 CHANGES TO CD: 70 71 /1. FIXED LOTS OF BUGS 72 / A:B:C IS ILLEGAL 73 / 15-BIT = OPTION DOESN'T DESTROY ALTMODE BIT 74 /2. ADDED ? SUPPORT IN SPECIAL MODE 75 /3. ALLOWED SPECIAL MODE UNDER BATCH 76 /4. REMOVED DCC CODE 77 /5. ^U, RO TO BOL, AND LF ALL REPRINT * 78 /6. VERSION # AT LOC ZERO 79 /7. DON'T LOAD HANDLERS FOR OUTPUT DEVICE 80 /8. CHANGED _ TO < STANDARD 81 82 /V3 CHANGES TO ODT 83 84 /1. REMOVED DCC CODE 85 /2. FIXED CORE SIZE ROUTINE 86 /3. ALLOWED SOFTWARE CORE SIZE 87 /4. MODIFIED 'GO' COMMAND SO THAT IT DOESN'T RESTORE TRAP 88 / LOCATION TO UNMODIFIED VALUE 89 /5. FIXED BUG RE: JMS'S OUT OF FIELD WITH MAGIC LOCATION SET 90 /6. TURN OFF INTERRUPTS ON BREAKPOINT 91 92 /CHANGES AFTER FIELD TEST RELEASE: 93 94 /1. FIXED BUG RE FILE LENGTHS GT 2047 BLOCKS 95 96 /MAINTENANCE RELEASE: 97 98 / NO CHANGES 99 100 /V3D CHANGES: 101 102 /CHANGED FORMAT OF VERSION NUMBERS 103 *200 104 000200 5740 CD, JMP I NUMBER /EXECUTED IN SYSGEN 105 000201 5420 NUM, JMP I T 106 000202 1177 ANALYZ, TAD [BEGLN-1 107 000203 3016 DCA XR 108 000204 1416 TAD I XR 109 000205 7450 SNA 110 000206 5213 JMP NOBKAR 111 000207 1176 TAD [-"< 112 000210 7640 SZA CLA 113 000211 5204 JMP .-5 114 000212 7240 CLA CMA 115 000213 3041 NOBKAR, DCA OUTSW 116 000214 1177 TAD [BEGLN-1 117 000215 3015 DCA LXR 118 000216 1041 BEGGRP, TAD OUTSW 119 000217 7650 SNA CLA 120 000220 1046 TAD BEGDIF /DIFF BETWEEN INPUT & OUTPUT AREAS 121 000221 1175 TAD [MOFILE-1 122 000222 3017 DCA CLXR 123 000223 7240 STA 124 000224 3037 DCA DVFLAG 125 000225 3033 DCA DEV1 126 000226 3034 FILLP1, DCA DEV2 127 000227 4574 FILLP, JMS I [GNAME 128 000230 1173 TAD ["A-": /AC CONTAINED DELIM - "A 129 000231 7650 SNA CLA 130 000232 5320 JMP DEVNAM 131 000233 4572 JMS I [ASSIGN 132 000234 1041 TAD OUTSW 133 000235 7650 SNA CLA 134 000236 1047 TAD LIMDIF /DIFF BETWWEN END OF OUTPUT & INPUT AREAS 135 000237 1050 TAD OUTLIM /END OF OUTPUT AREA 136 000240 1017 TAD CLXR 137 000241 7700 SMA CLA 138 000242 5377 JMP CDER1 139 000243 1041 TAD OUTSW 140 000244 7650 SNA CLA 141 000245 5261 LKUPSW, JMP INFILE /ZEROED IF IN "SPECIAL DECODE" MODE 142 000246 6211 CDF 10 143 000247 1043 TAD DVICE 144 000250 3417 DCA I CLXR 145 000251 1025 TAD NAME1 146 000252 3417 DCA I CLXR 147 000253 1026 TAD NAME2 148 000254 3417 DCA I CLXR 149 000255 1027 TAD NAME3 150 000256 3417 DCA I CLXR 151 000257 1030 TAD NAME4 152 000260 7410 CDSKP, SKP 153 000261 4571 INFILE, JMS I [LOOKUP 154 000262 3417 DCA I CLXR 155 000263 6201 DLOOK, CDF 0 156 000264 7240 STA 157 000265 3037 DCA DVFLAG 158 000266 1040 TAD DELIM 159 000267 7450 SNA 160 000270 5326 JMP CDOVER 161 000271 1170 TAD [-"[ 162 000272 7450 SNA 163 000273 5567 JMP I [OLENGT 164 000274 1166 TAD ["[-", 165 000275 7450 SNA 166 000276 5227 JMP FILLP 167 000277 1165 TAD [",-"< 168 000300 7450 SNA 169 000301 5315 JMP BKAROW 170 000302 1164 TAD ["<-"= 171 000303 7640 SZA CLA 172 000304 5563 JMP I [CDER2 173 000305 3036 EQUAL, DCA NUMFUJ 174 000306 4340 JMS NUMBER 175 000307 3562 DCA I [MPARAM+3 176 000310 7330 CLA CLL CML RAR 177 000311 0561 AND I [MPARAM-1 /PRESERVE ALTMODE 178 000312 1022 TAD HIORD 179 000313 3561 DCA I [MPARAM-1 180 000314 5263 JMP DLOOK 181 000315 2041 BKAROW, ISZ OUTSW 182 000316 5563 JMP I [CDER2 183 000317 5216 JMP BEGGRP 184 000320 1025 DEVNAM, TAD NAME1 185 000321 3033 DCA DEV1 186 000322 2037 ISZ DVFLAG 187 000323 5563 JMP I [CDER2 /CATCHES A:B: 188 000324 1026 TAD NAME2 189 000325 5226 JMP FILLP1 190 000326 6041 CDOVER, TSF 191 000327 5326 JMP .-1 /LET PRINTER QUIET DOWN 192 000330 6042 TCF /AND CLEAR FLAG 193 000331 6213 CDF CIF 10 194 000332 1052 TAD TMONIT 195 000333 3560 DCA I [200 /RESTORE "MONITO" 196 000334 1053 TAD TUSRFG 197 000335 3557 DCA I [USERFG /RESTORE "USER FLAG" 198 000336 1054 TAD TFPUTX /LOAD "USER CALLING FIELD" INTO AC 199 000337 5600 JMP I CD /RETURN - MONITOR RESTORES CORE IF NECESSARY 200 000340 4000 NUMBER, 4000 /USED BY SYSGEN 201 000341 1260 TAD CDSKP 202 000342 3366 DCA NUMADD /SET NUMADD TO EITHER "SKP" OR "TAD NUM" 203 000343 3022 DCA HIORD 204 000344 3201 NUMLP, DCA NUM 205 000345 4002 JMS NUMTST /INTO PAGE 0 FOR RANGE TEST 206 000346 7420 SNL 207 000347 5372 JMP EONUM 208 000350 3020 DCA T 209 000351 7346 CLA CLL CMA RTL 210 000352 3040 DCA DELIM 211 000353 1201 TAD NUM 212 000354 7104 ROTLP, CLL RAL 213 000355 3023 DCA NUMX 214 000356 1022 TAD HIORD 215 000357 7004 RAL 216 000360 7510 SPA 217 000361 5563 JMP I [CDER2 218 000362 3022 DCA HIORD 219 000363 1023 TAD NUMX 220 000364 2040 ISZ DELIM 221 000365 5354 JMP ROTLP 222 000366 1201 NUMADD, TAD NUM /SKP IF OCTAL 223 000367 1201 TAD NUM 224 000370 1020 TAD T 225 000371 5344 JMP NUMLP 226 000372 1156 EONUM, TAD ["0 227 000373 3040 DCA DELIM 228 000374 1201 TAD NUM 229 000375 6211 CDF 10 230 000376 5740 JMP I NUMBER 231 000377 4555 CDER1, JMS I [PRMESG 232 000400 2417 TEXT /TOO MANY FILES/ 000401 1740 000402 1501 000403 1631 000404 4006 000405 1114 000406 0523 000407 0000 233 IFZERO .&400 <*400> 234 000410 0000 ASSIGN, 0 235 000411 1017 TAD CLXR 236 000412 0037 AND DVFLAG 237 000413 1050 TAD OUTLIM 238 000414 7740 SMA SZA CLA /CHECK FOR OUTPUT OR FIRST INPUT 239 000415 5225 JMP ASNORM /IF DEVICE WAS SPECIFIC, OR IF WE ARE ON THE INPUT SIDE, 240 /PROCEED NORMALLY 241 000416 1025 TAD NAME1 242 000417 7650 SNA CLA 243 000420 5252 JMP ASGNST 244 000421 1045 TAD DFLTNM+1 245 000422 3034 DCA DEV2 246 000423 1044 TAD DFLTNM 247 000424 3033 DCA DEV1 248 000425 1033 ASNORM, TAD DEV1 249 000426 3245 DCA AS+1 250 000427 1034 TAD DEV2 251 000430 3246 DCA AS+2 252 000431 1041 TAD OUTSW 253 000432 7650 SNA CLA /DON'T LOAD HANDLER IF WE ARE ON OUTPUT SIDE OF "_" 254 000433 1025 TAD NAME1 255 000434 7650 SPKLG1, SNA CLA /OR IF THERE IS NO FILE NAME TO LOOK UP 256 000435 1051 TAD GETHND /GETHND=11 NORMALLY, 0 IF IN "SPECIAL DECODE" MODE 257 000436 7001 IAC 258 000437 3244 DCA AS 259 000440 1154 TAD [1401 /ALLOW TWO PAGE HANDLERS 260 000441 3247 DCA ASADR 261 000442 6212 CIF 10 262 000443 4560 JMS I [200 263 000444 0000 AS, 0 264 000445 0000 0 265 000446 0000 0 266 000447 1401 ASADR, 1401 267 000450 5553 JMP I [CDER0 268 000451 1246 TAD AS+2 269 000452 3043 ASGNST, DCA DVICE 270 000453 5610 JMP I ASSIGN 271 000454 0000 GNAME, 0 272 000455 3025 DCA NAME1 273 000456 3026 DCA NAME2 274 000457 3027 DCA NAME3 275 000460 3030 DCA NAME4 276 000461 1152 TAD [NAME1 277 000462 3032 DCA NMBASE 278 000463 7240 CLA CMA 279 000464 3035 DCA PERDSW 280 000465 3031 DCA NAMECT 281 000466 4551 GTNMLP, JMS I [GCH 282 000467 3040 DCA DELIM 283 000470 1040 TAD DELIM 284 000471 1150 TAD [-"? 285 000472 7440 SZA 286 000473 1152 TAD ["?-"* 287 000474 7450 SNA 288 000475 5563 STARSW, JMP I [CDER2 /"JMP STARNM" IF "SPECIAL DECODE" MODE 289 000476 1147 TAD ["*-". 290 000477 7650 SNA CLA 291 000500 5331 JMP PERIOD 292 000501 4546 JMS I [DECODE 293 000502 5654 JMP I GNAME 294 000503 7200 STARNM, CLA /THIS CODE HANDLES *'S AND ?'S CORRECTLY 295 000504 1040 TAD DELIM 296 000505 0145 AND [77 297 000506 3040 DCA DELIM 298 000507 1031 TAD NAMECT 299 000510 1144 TAD [-6 300 000511 7700 SMA CLA 301 000512 5266 JMP GTNMLP 302 000513 1031 TAD NAMECT 303 000514 7110 CLL RAR 304 000515 1032 TAD NMBASE 305 000516 3021 DCA TT 306 000517 1040 TAD DELIM 307 000520 7430 SZL 308 000521 5325 JMP .+4 309 000522 7006 RTL 310 000523 7006 RTL 311 000524 7006 RTL 312 000525 1421 TAD I TT 313 000526 3421 DCA I TT 314 000527 2031 ISZ NAMECT 315 000530 5266 JMP GTNMLP 316 000531 1025 PERIOD, TAD NAME1 317 000532 7640 SZA CLA 318 000533 2035 ISZ PERDSW 319 000534 5563 JMP I [CDER2 320 000535 2032 ISZ NMBASE 321 000536 1143 TAD [4 322 000537 5265 JMP GTNMLP-1 323 000540 0000 LOOKUP, 0 324 000541 3353 DCA LNAME 325 000542 1025 TAD NAME1 326 000543 7650 SNA CLA 327 000544 5366 JMP LKUPST 328 000545 5055 JMP EXT1 329 000546 3353 LKUPLP, DCA LNAME 330 000547 1246 TAD AS+2 331 000550 6212 CIF 10 332 000551 4560 JMS I [200 333 000552 0002 2 334 000553 0000 LNAME, 0 /NAME1 335 000554 0000 LENGTH, 0 336 000555 5373 JMP LFAILD 337 000556 1354 TAD LENGTH 338 000557 7100 CLL 339 000560 1142 TAD [400 340 000561 7420 SNL 341 000562 7200 CLA 342 000563 7106 CLL RTL 343 000564 7006 RTL 344 000565 0165 AND [7760 345 000566 6211 LKUPST, CDF 10 346 000567 1043 TAD DVICE 347 000570 3417 DCA I CLXR 348 000571 1353 TAD LNAME 349 000572 5740 JMP I LOOKUP 350 000573 1031 LFAILD, TAD NAMECT 351 000574 7650 SNA CLA /WAS THERE AN EXPLICIT EXTENSION? 352 000575 1042 TAD DEFALT /NO - WAS THERE A DEFAULT EXTENSION? 353 000576 7650 SNA CLA 354 000577 5541 JMP I [CDER3 /YES OR NO - FILE NOT FOUND 355 000600 2031 ISZ NAMECT /NO AND YES - SET FLAG TO FAIL NEXT TIME 356 000601 5062 JMP EXT2 /ZERO OUT THE EXTENSION AND TRY AGAIN 357 000602 4540 CDER3, JMS I [PRNAME 358 000603 4555 JMS I [PRMESG 359 000604 4016 TEXT / NOT FOUND/ 000605 1724 000606 4006 000607 1725 000610 1604 000611 0000 360 IFZERO .+200&1000 <*600> 361 000612 0000 0 /V3 [FREE LOC] 362 000613 0000 SLSHCH, 0 363 /V3 SNA 364 /V3 JMP I [CDER2 365 000614 3040 DCA DELIM 366 000615 1161 TAD [MPARAM-1 367 000616 3020 DCA T 368 000617 4546 JMS I [DECODE 369 000620 5563 JMP I [CDER2 370 000621 7430 SZL 371 000622 1137 TAD [32 372 000623 7160 CMA STL /THE FOLLOWING TURNS ON THE CORRECT OPTION BIT 373 000624 3021 DCA TT 374 000625 7430 SLSHLP, SZL 375 000626 2020 ISZ T 376 000627 7010 RAR 377 000630 7420 SNL 378 000631 2021 ISZ TT 379 000632 5225 JMP SLSHLP 380 000633 3021 DCA TT 381 000634 6211 CDF 10 382 000635 1021 TAD TT 383 000636 7040 CMA 384 000637 0420 AND I T 385 000640 1021 TAD TT 386 000641 3420 DCA I T 387 000642 6201 CDF 0 388 000643 5613 JMP I SLSHCH 389 000644 0000 DECODE, 0 390 000645 1040 TAD DELIM 391 000646 1136 TAD [-"9-1 392 000647 7100 CLL 393 000650 1135 TAD ["9+1-"0 394 000651 7430 SZL 395 000652 5257 JMP DCDYES 396 000653 1134 TAD ["0-"Z-1 397 000654 7120 CLL CML 398 000655 1137 TAD ["Z-"A+1 399 000656 7420 SNL 400 000657 2244 DCDYES, ISZ DECODE 401 000660 5644 JMP I DECODE 402 000661 1033 CDER0, TAD DEV1 403 000662 4533 JMS I [PRWD 404 000663 1034 TAD DEV2 405 000664 4533 JMS I [PRWD 406 000665 4555 JMS I [PRMESG 407 000666 4004 TEXT / DOES NOT EXIST/ 000667 1705 000670 2340 000671 1617 000672 2440 000673 0530 000674 1123 000675 2400 408 409 000676 4532 RESTRT, JMS I [CRLF 410 000677 6211 CDF 10 411 000700 1175 TAD [MOFILE-1 412 000701 3016 DCA XR 413 000702 1131 TAD [-47 414 000703 3020 DCA T 415 000704 3416 DCA I XR /ZERO OUT THE COMMAND DECODER OUTPUT AREA 416 000705 2020 ISZ T 417 000706 5304 JMP .-2 418 000707 6201 CDF 0 419 000710 5530 JMP I [GLINE 420 000711 0000 GCH, 0 421 000712 1415 TAD I LXR 422 000713 1127 TAD [-240 423 000714 7450 SNA 424 000715 5312 JMP GCH+1 425 000716 1126 TAD [240-"/ 426 000717 7450 SNA 427 000720 5326 JMP SLASH 428 000721 1173 TAD ["/-"( 429 000722 7450 SNA 430 000723 5331 JMP OPENP 431 000724 1125 TAD ["( 432 000725 5711 JMP I GCH 433 000726 1415 SLASH, TAD I LXR 434 000727 4524 JMS I [SLSHCH 435 000730 5312 JMP GCH+1 436 000731 1415 OPENP, TAD I LXR 437 000732 1123 TAD [-") 438 000733 7450 SNA 439 000734 5312 JMP GCH+1 440 000735 1122 TAD [") 441 000736 4524 JMS I [SLSHCH 442 000737 5331 JMP OPENP 443 000740 1041 OLENGT, TAD OUTSW 444 000741 0025 AND NAME1 /[N] IS ONLY LEGAL ON THE OUTPUT SIDE OF THE "_" 445 000742 7650 SNA CLA /AND ONLY AFTER A FILE NAME 446 000743 5563 JMP I [CDER2 447 000744 1147 TAD [-4 448 000745 1017 TAD CLXR 449 000746 3032 DCA NMBASE 450 000747 7326 CLA CLL CML RTL 451 000750 3036 DCA NUMFUJ /SET "NUMBER" TO ACCEPT DIGITS 8 AND 9 452 000751 1367 TAD OLFUDJ /LOAD FUDGE SO THAT "NUMBER" WILL BE DECIMAL 453 000752 4521 JMS I [NUMBER 454 000753 7106 CLL RTL 455 000754 7006 RTL 456 000755 0165 AND [7760 457 000756 1432 TAD I NMBASE 458 000757 3432 DCA I NMBASE 459 000760 6201 CDF 0 460 000761 1040 TAD DELIM 461 000762 1120 TAD [-"] /IS THERE A CLOSING BRACKET? 462 000763 7450 SNA /IF NOT, "DLOOK" ROUTINE WILL DETECT IT 463 000764 4551 JMS I [GCH 464 000765 3040 DCA DELIM 465 000766 5517 JMP I [DLOOK 466 000767 1571 OLFUDJ, NUM&177+1570 467 468 000770 7200 CDER2, CLA 469 000771 4555 JMS I [PRMESG 470 000772 1114 TEXT /ILLEGAL SYNTAX/ 000773 1405 000774 0701 000775 1440 000776 2331 000777 1624 001000 0130 001001 0000 471 IFZERO .&1000 <*1000> 472 /TELETYPE INPUT ROUTINE FOR COMMAND DECODER 473 001002 1377 GLINE, TAD (252 /SETS 1177=252 FOR * IN MESSAGE 474 001003 4466 JMS I PRINT 475 001004 3024 DCA RBFLAG 476 001005 1177 TAD [BEGLN-1 477 001006 3015 DCA LXR 478 001007 6031 CHLOOP, 6031 /KSF 479 001010 5207 JMP CHLOOP 480 001011 1160 TAD [200 481 001012 6034 6034 /KRS 482 001013 3025 DCA NAME1 483 001014 6032 6032 /KCC 484 001015 1116 TAD [SPADR-1 485 001016 3016 DCA XR 486 001017 1416 DSPCHL, TAD I XR 487 001020 7440 SZA 488 001021 1025 TAD NAME1 489 001022 7650 SNA CLA 490 001023 5416 JMP I XR 491 001024 5217 JMP DSPCHL 492 001025 7553 SPADR, -225;JMP CTRLU 001026 5273 493 001027 7563 -215;JMP CARRET 001030 5265 494 001031 7401 -377;JMP RUBOUT 001032 5331 495 001033 7403 -375;JMP ALTMOD /V3D MODIFIED BY SET 001034 5321 496 001035 7402 -376;JMP ALTMOD /V3D MODIFIED BY SET 001036 5321 497 001037 7545 -233;JMP ALTMOD 001040 5321 498 001041 7600 -200;JMP CHLOOP 001042 5207 499 001043 7561 -217;JMP CHLOOP /^O 001044 5207 500 001045 7441 -"_;JMP LESSTN 001046 5270 501 001047 7566 -212;JMP LFEED 001050 5366 502 001051 7575 -203;JMP CTRLC /MUST BE LAST - SEE CLRLIN CODE 001052 5273 503 001053 0000 0 504 001054 4355 JMS PRNT 505 001055 1025 CINSRT, TAD NAME1 506 001056 3415 DCA I LXR 507 001057 1015 TAD LXR 508 001060 1115 TAD [-EOBUFR+2 509 001061 7710 SPA CLA 510 001062 5207 JMP CHLOOP 511 001063 4312 JMS CRLF 512 001064 5563 JMP I [CDER2 513 001065 4312 CARRET, JMS CRLF 514 001066 3415 CLFINI, DCA I LXR 515 001067 5514 JMP I [ANALYZ 516 001070 4355 LESSTN, JMS PRNT 517 001071 1113 TAD ["< 518 001072 5256 JMP CINSRT+1 519 CTRLC, 520 001073 1112 CTRLU, TAD [336 521 001074 4466 JMS I PRINT 522 001075 1025 TAD NAME1 523 001076 1111 TAD [100 524 001077 4466 CLRLIN, JMS I PRINT 525 001100 4312 JMS CRLF 526 001101 1416 TAD I XR 527 001102 7640 SZA CLA 528 001103 5202 JMP GLINE 529 001104 6211 CDF 10 530 001105 7240 CLA CMA 531 001106 3510 DCA I [7700 532 001107 6041 TSF 533 001110 5307 JMP .-1 534 001111 5507 JMP I [7605 /7605=CDF CIF 10 535 001112 0000 CRLF, 0 536 001113 1106 TAD [215 537 001114 3025 DCA NAME1 538 001115 4355 JMS PRNT 539 001116 1105 TAD [212 540 001117 4466 JMS I PRINT 541 001120 5712 JMP I CRLF 542 001121 1104 ALTMOD, TAD [244 543 001122 3025 DCA NAME1 544 001123 7330 CLA CLL CML RAR 545 001124 6211 CDF 10 546 001125 3561 DCA I [MPARAM-1 547 001126 6201 CDF 0 548 001127 4355 JMS PRNT 549 001130 5266 JMP CLFINI 550 /*** LOCATIONS ON THIS PAGE ARE MODIFIED BY SET 551 /SEE SET FOR DETAILS. DO NOT CHANGE. 552 553 001131 1015 RUBOUT, TAD LXR 554 001132 1103 TAD [1-BEGLN 555 001133 7650 SNA CLA 556 001134 5351 JMP RBSPCL 557 001135 1102 TAD [334 558 001136 2024 ISZ RBFLAG 559 001137 4466 JMS I PRINT 560 001140 7240 CLA CMA 561 001141 3024 DCA RBFLAG 562 001142 1015 TAD LXR 563 001143 3020 DCA T 564 001144 1420 TAD I T 565 001145 4466 JMS I PRINT 566 001146 7240 LBCKUP, CLA CMA 567 001147 1015 TAD LXR 568 001150 5206 JMP CHLOOP-1 569 001151 2024 RBSPCL, ISZ RBFLAG 570 001152 5300 JMP CLRLIN+1 571 001153 1102 TAD [334 572 001154 5277 JMP CLRLIN 573 001155 0000 PRNT, 0 574 001156 2024 ISZ RBFLAG 575 001157 5362 JMP .+3 576 001160 1102 TAD [334 577 001161 4466 JMS I PRINT 578 001162 3024 DCA RBFLAG 579 001163 1025 TAD NAME1 580 001164 4466 JMS I PRINT 581 001165 5755 JMP I PRNT 582 001166 4312 LFEED, JMS CRLF 583 001167 3415 DCA I LXR 584 001170 1101 TAD [BEGLN-2 585 001171 3016 DCA XR 586 001172 1416 TAD I XR 587 001173 7450 SNA 588 001174 5346 JMP LBCKUP 589 001175 4466 JMS I PRINT 590 001176 5372 JMP .-4 591 592 IFNZRO RUBOUT-1131 <_ERROR_> 593 001177 0252 *1200 /INITIALIZATION - STORED OVER BY LINE BUFFER 594 BEGLN=. /LINE BUFFER 595 001200 3054 CDINIT, DCA TFPUTX 596 001201 6211 CDF 10 597 001202 7201 CLA IAC 598 001203 1560 TAD I [200 599 001204 3052 DCA TMONIT /SAVE AWAY MONITOR CALL ADDRESS SINCE WE CALL 600 001205 1557 TAD I [USERFG /THE MONITOR RECURSIVELY, LIKEWISE SAVE 601 001206 3053 DCA TUSRFG /THE "USER FLAG" AND THE FIELD WE WERE CALLED FROM 602 001207 1500 TAD I [T1 /FETCH THE USERS ARGUMENT 603 001210 3042 DCA DEFALT /STORE IN THE DEFAULT EXTENSION WORD 604 001211 3573 DCA I [7 /ZERO "DIRECTORY SEGMENT IN CORE" KEY 605 001212 6201 CDF 0 606 001213 6212 CIF 10 607 001214 4560 JMS I [200 608 001215 0013 13 /RESET ALL HANDLERS 609 001216 0000 0 /BUT NOT OUTPUT FILES 610 001217 1042 TAD DEFALT 611 001220 1245 TAD M5200 612 001221 7640 SZA CLA /IS THIS A REQUEST FOR A "SPECIAL DECODE"? 613 001222 5237 JMP CDCONT /NO 614 001223 1246 TAD ALTLIM 615 001224 3050 DCA OUTLIM /YES - SET UP ALL THE PROPER LOCATIONS 616 001225 1247 TAD ALTDF1 617 001226 3047 DCA LIMDIF /TO YIELD 1 OUTPUT FILE AND 5 INPUT FILES 618 001227 1250 TAD ALTDF2 619 001230 3046 DCA BEGDIF /ALL OF WHICH ARE 5-WORD ENTRIES 620 001231 3651 DCA I PLKUPS 621 001232 1252 TAD STARJM 622 001233 3653 DCA I PSTARS /AND ALLOW * AS A FILE OR EXTENSION NAME 623 001234 3042 DCA DEFALT /NO DEFAULT EXTENSION IN "SPECIAL" MODE 624 001235 1254 TAD CCLA /STOPS FETCHES IN SPECIAL MODE 625 001236 3655 DCA I PSPKG1 /NO HANDLER FETCHES NECESSARY EITHER SINCE NO LOOKUPS 626 001237 1725 CDCONT, TAD I PRWD /SEE IF BATCH FLAG IS UP 627 001240 7004 RAL 628 001241 7710 SPA CLA /IF YES, GO TO PAGE0 CODE 629 001242 5021 JMP TT /TT ETC. IS ONCE-ONLY CODE 630 001243 5644 JMP I CDRST 631 001244 0677 CDRST, RESTRT+1 632 /CONSTANTS NECESSARY TO SUPPORT "SPECIAL DECODE" MODE 633 001245 2600 M5200, -5200 634 001246 0174 ALTLIM, 1-MOFILE-5 635 001247 7747 ALTDF1, MOFILE+5-MPARAM+5 636 001250 0005 ALTDF2, 5 637 001251 0245 PLKUPS, LKUPSW 638 001252 5303 STARJM, STARNM&177+5200 /"JMP STARNM" 639 001253 0475 PSTARS, STARSW 640 001254 7200 CCLA, CLA 641 001255 0434 PSPKG1, SPKLG1 642 *1314 643 EOBUFR=. 644 001314 0000 PRMESG, 0 645 001315 1714 TAD I PRMESG 646 001316 4325 JMS PRWD 647 001317 1714 TAD I PRMESG 648 001320 2314 ISZ PRMESG 649 001321 0145 AND [77 650 001322 7640 SZA CLA 651 001323 5315 JMP PRMESG+1 652 001324 5477 JMP I [RESTRT 653 001325 7777 PRWD, 7777 654 001326 3020 DCA T 655 001327 1020 TAD T 656 001330 7012 RTR 657 001331 7012 RTR 658 001332 7012 RTR 659 001333 4337 JMS PCHAR 660 001334 1020 TAD T 661 001335 4337 JMS PCHAR 662 001336 5725 JMP I PRWD 663 001337 0000 PCHAR, 0 664 001340 0145 AND [77 665 001341 7450 SNA 666 001342 5737 JMP I PCHAR /IGNORE NULLS 667 001343 1076 TAD [240 668 001344 0145 AND [77 669 001345 1076 TAD [240 670 001346 4367 JMS TYPE 671 001347 5737 JMP I PCHAR 672 001350 0000 PRNAME, 0 673 001351 1025 TAD NAME1 674 / SNA /WOULD LIKE TO FIND ROOM FOR THESE 2 LOCS 675 / JMP I [CDER2 676 001352 4325 JMS PRWD 677 001353 1026 TAD NAME2 678 001354 4325 JMS PRWD 679 001355 1027 TAD NAME3 680 001356 4325 JMS PRWD 681 001357 1030 TAD NAME4 682 001360 7650 SNA CLA 683 001361 5750 JMP I PRNAME 684 001362 1075 TAD [256 685 001363 4337 JMS PCHAR 686 001364 1030 TAD NAME4 687 001365 4325 JMS PRWD 688 001366 5750 JMP I PRNAME 689 001367 0000 TYPE, 0 690 001370 5373 JMP .+3 691 001371 6041 TSF 692 001372 5371 JMP .-1 693 001373 6046 TLS 694 001374 7200 CLA 695 001375 1074 TAD [7000 696 001376 3370 DCA TYPE+1 697 001377 5767 TYPRET, JMP I TYPE 698 IFNZRO TYPRET-1377 699 *4001 /PROG TO WRITE CD AND ODT ONTO NEW SYSTEM DEVICE 700 /4000=JMS SYSSWP TO SWAP PGS 6600 AND 7600 701 004001 1777 TAD I (7777 /SET TO PROPER RECORD FOR FIELD 1 STUFF 702 004002 3220 DCA F1STUF 703 004003 4630 JMS I SYSHND 704 004004 4600 4600 705 004005 0000 0 706 004006 0051 MCDREC 707 004007 5224 JMP CERR 708 004010 4630 JMS I SYSHND 709 004011 5011 5011 710 004012 0000 0 711 004013 0060 ODTREC 712 004014 5224 JMP CERR 713 004015 4630 JMS I SYSHND 714 004016 0110 0110 /READ IN UPPER PG 7600 715 004017 7600 7600 716 004020 0000 F1STUF, 0 717 004021 5224 JMP CERR 718 004022 5623 JMP I .+1 719 004023 7605 7605 /START HER UP 720 004024 1227 CERR, TAD .+3 721 004025 3201 DCA 4001 722 004026 5200 JMP 4000 /RESWAP AND HALT 723 004027 7402 HLT 724 004030 7607 SYSHND, 7607 725 004177 7777 PAGE 726 *0 727 000000 6501 CDVERSION 728 000001 7402 HLT /POWER FAIL RESTART PROTECTION 729 000002 7777 NUMTST, 7777 730 000003 4551 JMS I [GCH 731 000004 7040 CMA 732 000005 1036 TAD NUMFUJ 733 000006 1073 TAD ["8 /TEST INPUT CHARACTER FOR RANGE 734 000007 7140 CLL CMA /0-7 IF NUMFUJ=0 735 000010 1072 TAD [10 /0-9 IF NUMFUJ=2 736 000011 1036 TAD NUMFUJ 737 000012 5402 JMP I NUMTST 738 *15 739 000015 0000 LXR, 0 740 000016 0000 XR, 0 741 000017 0000 CLXR, 0 742 000020 1200 T, CDINIT 743 000021 6201 TT, CDF 0 /***GETS SET TO CDF BATCH 744 000022 1443 HIORD, TAD I DVICE /CHECK TO SEE IF BOS IS REALLY THERE 745 000023 1041 NUMX, TAD OUTSW /IF NOT, SIGNAL ERROR 746 000024 7650 RBFLAG, SNA CLA 747 000025 5031 NAME1, JMP NAMECT /IT'S O.K.....PROBABLY! 748 000026 6201 NAME2, CDF 0 /BAD. SIGNAL ERROR TO MONITOR 749 000027 2402 NAME3, ISZ I NUMTST 750 000030 5507 NAME4, JMP I [7605 /AND RESTART BATCH MONITOR 751 000031 6203 NAMECT, CIF CDF 0 /*****GETS ALTERED****** 752 000032 5433 NMBASE, JMP I .+1 /START UP IN CD AREA OF BATCH 753 000033 0677 DEV1, RESTRT+1 /***GETS ADDRESS OF CD AREA 754 000034 0000 DEV2, 0 755 000035 0000 PERDSW, 0 756 000036 0000 NUMFUJ, 0 757 000037 0000 DVFLAG, 0 758 000040 0000 DELIM, 0 759 000041 0000 OUTSW, 0 760 000042 0000 DEFALT, 0 761 000043 0000 DVICE, 0 762 000044 0423 DFLTNM, 0423;1300 /DSK 000045 1300 763 000046 0017 BEGDIF, MIFILE-MOFILE 764 000047 7756 LIMDIF, MIFILE-MPARAM+2 765 000050 0162 OUTLIM, 1-MIFILE 766 000051 0011 GETHND, 11 767 000052 0000 TMONIT, 0 768 000053 0000 TUSRFG, 0 769 000054 0000 TFPUTX, 0 770 000055 1030 EXT1, TAD NAME4 771 000056 3031 DCA NAMECT /REMEMBER TYPED EXTENSION 772 000057 1031 TAD NAMECT 773 000060 7450 SNA 774 000061 1042 TAD DEFALT /SUBSTITUTE DEFAULT IF ZERO 775 000062 3030 EXT2, DCA NAME4 776 000063 1152 TAD [NAME1 777 000064 5465 JMP I .+1 778 000065 0546 LKUPLP 779 000066 1367 PRINT, TYPE 780 000072 0010 FIELD 1 000073 0270 000074 7000 000075 0256 000076 0240 000077 0676 000100 0041 000101 1176 000102 0334 000103 6601 000104 0244 000105 0212 000106 0215 000107 7605 000110 7700 000111 0100 000112 0336 000113 0274 000114 0202 000115 6466 000116 1024 000117 0263 000120 7443 000121 0340 000122 0251 000123 7527 000124 0613 000125 0250 000126 7761 000127 7540 000130 1002 000131 7731 000132 1112 000133 1325 000134 7725 000135 0012 000136 7506 000137 0032 000140 1350 000141 0602 000142 0400 000143 0004 000144 7772 000145 0077 000146 0644 000147 7774 000150 7501 000151 0711 000152 0025 000153 0661 000154 1401 000155 1314 000156 0260 000157 0040 000160 0200 000161 7642 000162 7646 000163 0770 000164 7777 000165 7760 000166 0057 000167 0740 000170 7445 000171 0540 000172 0410 000173 0007 000174 0454 000175 7577 000176 7504 000177 1177 781 EJECT INVISIBLE ODT 782 /INVISIBLE ODT FOR OS/8 MONITOR 783 /LOADS INTO FIELD 1 NOW, BUT LOADS & EXECUTES IN FIELD 0 784 /DEFINITIONS OF MONITOR SYMBOLS - VOLATILE! 785 ODTREC=60 786 UDNAME=7741 787 MREAD=7757 788 MGET=7667 789 KMREC=7 790 MTEMP=27 791 MARG1=7740 792 JSBITS=7746 793 *200 794 010200 4577 READ, JMS I [OCRLF 795 010201 3020 READ5, DCA WORD 796 010202 3021 DCA WORD+1 797 010203 1176 TAD [-6 798 010204 3012 DCA TOTE 799 010205 6031 REA, KSF 800 010206 5205 JMP .-1 801 010207 4575 JMS I [CTCTST 802 010210 5236 JMP CTRC 803 010211 1174 TAD [203 804 010212 3034 DCA TEMP 805 010213 6032 KCC 806 010214 1034 TAD TEMP 807 010215 4573 JMS I [TYPN 808 010216 1172 TAD [TABL1-1 809 010217 3010 DCA 10 810 010220 1410 CHFLP, TAD I 10 811 010221 7510 SPA 812 010222 5277 JMP SEX 813 010223 7041 CIA 814 010224 1034 TAD TEMP 815 010225 7640 SZA CLA 816 010226 5220 JMP CHFLP 817 010227 1010 TAD 10 818 010230 1171 TAD [TABL2-TABL1 819 010231 3034 DCA TEMP 820 010232 1434 TAD I TEMP 821 010233 3034 DCA TEMP 822 010234 7100 CLL 823 010235 5044 JMP FLDTST /SEE IF FIELD SETTING IS LEGAL 824 010236 4570 CTRC, JMS I [DUMP 825 010237 5567 JMP I [7605 826 TABL1=. 827 010240 0240 240 828 010241 0212 212 829 010242 0215 215 830 010243 0257 257 831 010244 0302 302 832 010245 0307 307 833 010246 0273 273 834 010247 0303 303 835 010250 0327 327 836 010251 0336 336 837 010252 0315 315 838 010253 0301 301 839 010254 0314 314 840 010255 0304 304 841 010256 0337 337 842 010257 0306 306 843 010260 0377 377 844 010261 0253 253 845 010262 0255 255 846 010263 7510 -270 /USED - SEE "SEX" 847 010264 4052 EXAM, JMS TOTTST 848 010265 5272 JMP EX2 849 010266 1020 TAD WORD 850 010267 3024 DCA CAD 851 010270 1021 TAD WORD+1 852 010271 3025 DCA CAD+1 853 010272 4566 EX2, JMS I [LOAD 854 010273 0024 CAD 855 010274 4565 JMS I [PNUM 856 010275 3015 DCA SHUT 857 010276 5201 JMP READ5 858 010277 1034 SEX, TAD TEMP 859 010300 7100 CLL 860 010301 1164 TAD [10 861 010302 7420 SNL 862 010303 5326 JMP NO 863 010304 3034 DCA TEMP 864 010305 7346 CLA CLL CMA RTL 865 010306 3332 DCA CRL 866 010307 1021 SROT, TAD WORD+1 867 010310 7104 CLL RAL 868 010311 3021 DCA WORD+1 869 010312 7006 RTL 870 010313 7004 RAL 871 010314 1020 TAD WORD 872 010315 7004 RAL 873 010316 3020 DCA WORD 874 010317 2332 ISZ CRL 875 010320 5307 JMP SROT 876 010321 1021 TAD WORD+1 877 010322 1034 TAD TEMP 878 010323 3021 DCA WORD+1 879 010324 2012 ISZ TOTE 880 010325 5205 JMP REA 881 010326 7200 NO, CLA 882 010327 1163 TAD [277 883 010330 4573 JMS I [TYPN 884 010331 5200 JMP READ 885 010332 0000 CRL, 0 886 010333 4052 JMS TOTTST 887 010334 5732 JMP I CRL 888 010335 1021 TAD WORD+1 889 010336 2015 ISZ SHUT 890 010337 4562 JMS I [STORE 891 010340 0024 CAD 892 010341 7200 CLA 893 010342 5732 JMP I CRL 894 010343 4332 CRL1, JMS CRL 895 010344 5200 JMP READ 896 010345 1161 CRL2, TAD [215 897 010346 4573 JMS I [TYPN 898 010347 4332 JMS CRL 899 010350 4573 JMS I [TYPN 900 010351 2025 ISZ CAD+1 901 010352 7000 NOP 902 010353 4560 UPAR3, JMS I [TYPD 903 010354 0024 CAD 904 010355 1157 TAD [257 905 010356 4573 JMS I [TYPN 906 010357 5272 JMP EX2 907 010360 4332 OPIN, JMS CRL 908 010361 4566 JMS I [LOAD 909 010362 0024 CAD 910 010363 3025 DCA CAD+1 911 010364 1037 TAD INDFLD 912 010365 3024 DCA CAD 913 010366 4577 UPAR2, JMS I [OCRLF 914 010367 5353 JMP UPAR3 915 010370 4332 SEMI, JMS CRL 916 010371 2025 ISZ CAD+1 917 010372 7000 NOP 918 010373 5201 JMP READ5 919 *400 920 /NOTE THAT LOCATIONS BURP,BURP+1 GET ALTERED AFTER BRKTST 921 /IS EXECUTED. THEY BECOME: CDF 10; TAD I [MARG1 922 010400 5601 BURP, JMP I .+1 /GO REDETERMINE CORE SIZE 923 010401 1416 BRKTST /TO MAKE ILLEGAL FIELD GIVE ? 924 010402 3023 DCA SAC 925 010403 6002 IOF 926 010404 1556 TAD I [MTRAD 927 010405 3016 DCA TRAD 928 010406 1555 TAD I [MTRAD1 929 010407 3017 DCA TRAD+1 930 010410 1554 TAD I [MKEEP 931 010411 3013 DCA KEEP 932 010412 1553 TAD I [MPUNN 933 010413 3003 DCA PUNN 934 010414 7201 CLA IAC 935 010415 0552 AND I [7700 936 010416 3022 DCA LINK 937 010417 1552 TAD I [7700 938 010420 6201 CDF 0 939 010421 0151 AND [70 940 010422 3036 DCA DATFLD 941 010423 1036 TAD DATFLD 942 010424 3037 DCA INDFLD 943 010425 1150 TAD [KMREC 944 010426 6211 CDF 10 945 010427 3547 DCA I [MGET+4 946 010430 7344 CLA CLL CMA RAL 947 010431 0546 AND I [MGET+2 948 010432 3546 DCA I [MGET+2 /REMOVE LOW-ORDER BIT FROM CONTROL WORD 949 010433 6201 CDF 0 950 010434 1013 TAD KEEP 951 010435 4562 JMS I [STORE 952 010436 0016 TRAD 953 010437 1017 TAD TRAD+1 954 010440 7001 IAC 955 010441 3031 DCA GAME+1 956 010442 1016 TAD TRAD 957 010443 3030 DCA GAME 958 010444 1013 TAD KEEP 959 010445 3014 DCA INST 960 010446 4545 JMS I [IOTTST 961 010447 7410 SKP 962 010450 5262 JMP JMPLIP 963 010451 1016 TAD TRAD 964 010452 3024 DCA CAD 965 010453 1017 TAD TRAD+1 966 010454 3025 DCA CAD+1 967 010455 4544 JMS I [EFFADR 968 010456 1024 TAD CAD 969 010457 3032 DCA FROG 970 010460 1025 TAD CAD+1 971 010461 3033 DCA FROG+1 972 010462 4575 JMPLIP, JMS I [CTCTST 973 010463 5567 JMP I [7605 974 010464 7200 CLA 975 010465 5543 JMP I [LIP 976 010466 0000 CTCTST, 0 977 010467 1142 TAD [200 978 010470 6031 KSF 979 010471 7240 STA 980 010472 6034 KRS 981 010473 1141 TAD [-203 982 010474 7440 SZA 983 010475 2266 ISZ CTCTST 984 010476 5666 JMP I CTCTST 985 986 010477 0000 OCRLF, 0 987 010500 1161 TAD [215 988 010501 4573 JMS I [TYPN 989 010502 1140 TAD [212 990 010503 4573 JMS I [TYPN 991 010504 7240 CLA CMA 992 010505 3015 DCA SHUT 993 010506 5677 JMP I OCRLF 994 010507 4052 TRAP, JMS TOTTST 995 010510 1137 TAD [SHNDLR 996 010511 1021 TAD WORD+1 997 010512 3017 DCA TRAD+1 998 010513 1020 TAD WORD 999 010514 3016 DCA TRAD 1000 010515 1136 TAD [7000 1001 010516 3537 DCA I [SHNDLR 1002 010517 1135 TAD [4 1003 010520 3021 DCA WORD+1 1004 010521 1134 TAD [UDNAME-MPUNN-1 1005 010522 3034 DCA TEMP 1006 010523 1133 TAD [BRKCOD-1 1007 010524 3010 DCA 10 1008 010525 1132 TAD [UDNAME-1 1009 010526 3011 DCA 11 1010 010527 1410 TAD I 10 1011 010530 6211 CDF 10 1012 010531 3411 DCA I 11 1013 010532 6201 CDF 0 1014 010533 2034 ISZ TEMP 1015 010534 5327 JMP .-5 1016 010535 1531 TAD I [JSBITS 1017 010536 7012 RTR 1018 010537 7630 SZL CLA 1019 010540 1130 TAD [5 1020 010541 6211 CDF 10 1021 010542 1527 TAD I [J7600 1022 010543 3527 DCA I [J7600 /CHANGE JMP 7600 TO JMP 7605 IF ODT AREA NOT USED 1023 010544 6201 CDF 0 1024 010545 1531 TAD I [JSBITS 1025 010546 3035 DCA JSTEMP /SAVE JSBITS BEFORE SETTING BRKPT 1026 010547 1126 TAD [CIF 10 1027 010550 4562 JMS I [STORE 1028 010551 0020 WORD 1029 010552 2021 ISZ WORD+1 1030 010553 1125 TAD [JMP I 6 1031 010554 4562 JMS I [STORE 1032 010555 0020 WORD 1033 010556 2021 ISZ WORD+1 1034 010557 1124 TAD [UDNAME 1035 010560 4562 JMS I [STORE 1036 010561 0020 WORD 1037 010562 1035 TAD JSTEMP 1038 010563 3531 DCA I [JSBITS /RESTORE JSBITS 1039 010564 5542 JMP I [READ 1040 010565 7020 SUBT, CML 1041 010566 1021 ADD, TAD WORD+1 /MODIFY CURRENT LOCATION POINTER 1042 010567 7450 SNA 1043 010570 7001 IAC /1 IS DEFAULT VALUE 1044 010571 7430 SZL /+ OR -? 1045 010572 7041 CIA /- 1046 010573 1025 TAD CAD+1 1047 010574 3025 DCA CAD+1 1048 010575 5523 JMP I [UPAR2 /AND DISPLAY LOC AND CONTENTS 1049 *600 /MONITOR ENTERS ODT HERE 1050 010600 7402 LIP, HLT /ERROR. AT INIT, THE CODE AT 600 1051 010601 5602 JMP I .+1 /IS CHANGED TO: ISZ PUNN; 1052 010602 1400 TTYTST, INIT /JMP XCONT; TSF 1053 010603 5363 JMP TTYOFF 1054 010604 4560 LIPTYP, JMS I [TYPD 1055 010605 0016 TRAD 1056 010606 1323 TAD P250 1057 010607 4573 JMS I [TYPN 1058 010610 1022 TAD LINK 1059 010611 1122 TAD [260 1060 010612 4573 JMS I [TYPN 1061 010613 1121 TAD [273 1062 010614 4573 JMS I [TYPN 1063 010615 1023 TAD SAC 1064 010616 4565 JMS I [PNUM 1065 010617 5542 JMP I [READ 1066 010620 4052 JUMP, JMS TOTTST /TEST FOR 'G' WITH NO ADDRESS 1067 010621 5451 JMP I PNO 1068 010622 1020 TAD WORD 1069 010623 3030 DCA GAME 1070 010624 1021 TAD WORD+1 1071 010625 3031 DCA GAME+1 1072 010626 1020 TAD WORD 1073 010627 3036 DCA DATFLD 1074 010630 1136 TAD [7000 1075 010631 3014 DCA INST 1076 010632 3023 DCA SAC 1077 010633 3022 DCA LINK 1078 010634 5240 JMP CONTX 1079 010635 1021 CONTIN, TAD WORD+1 1080 010636 7041 CIA 1081 010637 7450 SNA 1082 010640 7040 CONTX, CMA 1083 010641 3003 DCA PUNN 1084 010642 3537 DCA I [7607 /IN CASE THERE WAS NO BREAKPOINT 1085 010643 4566 JMS I [LOAD /V3 1086 010644 0016 TRAD /V3 1087 010645 3013 DCA KEEP /V3 1088 010646 4577 JMS I [OCRLF 1089 010647 1120 XCONT, TAD [JMP 4 1090 010650 4562 JMS I [STORE 1091 010651 0016 TRAD 1092 010652 6211 CDF 10 1093 010653 1016 TAD TRAD 1094 010654 3556 DCA I [MTRAD 1095 010655 1017 TAD TRAD+1 1096 010656 3555 DCA I [MTRAD1 1097 010657 1013 TAD KEEP 1098 010660 3554 DCA I [MKEEP 1099 010661 1003 TAD PUNN 1100 010662 3553 DCA I [MPUNN 1101 010663 6201 CDF 0 1102 010664 4517 JMS I [SIM /SIMULATE THE BRKPOINTED INST HERE 1103 010665 1022 TAD LINK 1104 010666 3576 DCA I [MLINK 1105 010667 1023 TAD SAC 1106 010670 3516 DCA I [MAC 1107 010671 1030 TAD GAME 1108 010672 1115 TAD [CIF 0 1109 010673 3514 DCA I [MSTCDF 1110 010674 1036 TAD DATFLD 1111 010675 0151 AND [70 1112 010676 1113 TAD [CDF 0 1113 010677 3512 DCA I [MCDF 1114 010700 1031 TAD GAME+1 1115 010701 3511 DCA I [MSTADR 1116 010702 4570 JMS I [DUMP 1117 010703 1531 TAD I [JSBITS 1118 010704 7012 RTR 1119 010705 7630 SZL CLA 1120 010706 5510 JMP I [MSWITC 1121 010707 5553 JMP I [MREAD 1122 010710 4507 UPAR1, JMS I [CRL 1123 010711 4544 JMS I [EFFADR 1124 010712 5523 JMP I [UPAR2 1125 010713 0000 EFFADR, 0 1126 010714 4566 JMS I [LOAD 1127 010715 0024 CAD 1128 010716 0106 AND [177 1129 010717 3034 DCA TEMP 1130 010720 4566 JMS I [LOAD 1131 010721 0024 CAD 1132 010722 0142 AND [200 1133 010723 7650 P250, SNA CLA 1134 010724 5327 JMP .+3 1135 010725 1025 TAD CAD+1 1136 010726 0105 AND [7600 1137 010727 1034 TAD TEMP 1138 010730 3034 DCA TEMP 1139 010731 4566 JMS I [LOAD 1140 010732 0024 CAD 1141 010733 0104 AND [400 1142 010734 7650 SNA CLA 1143 010735 5360 JMP NOIND 1144 010736 1034 TAD TEMP 1145 010737 3025 DCA CAD+1 1146 010740 4566 JMS I [LOAD 1147 010741 0024 CAD 1148 010742 3034 DCA TEMP 1149 010743 1025 TAD CAD+1 1150 010744 0351 AND P7770 1151 010745 1351 TAD P7770 1152 010746 7640 SZA CLA 1153 010747 5355 JMP NOAUTO 1154 010750 2034 ISZ TEMP 1155 010751 7770 P7770, 7770 /SPA SNA SZL CLA - NEVER SKIPS - USED TO PROTECT ISZ 1156 010752 1034 TAD TEMP 1157 010753 4562 JMS I [STORE 1158 010754 0024 CAD 1159 010755 1037 NOAUTO, TAD INDFLD 1160 010756 0151 AND [70 1161 010757 3024 DCA CAD 1162 010760 1034 NOIND, TAD TEMP 1163 010761 3025 DCA CAD+1 1164 010762 5713 JMP I EFFADR 1165 010763 0400 TTYOFF, AND I 0 /WASTE SOME TIME 1166 010764 4545 JMS I [IOTTST 1167 010765 0400 AND I 0 1168 010766 2371 ISZ NOUGHT 1169 010767 5202 JMP TTYTST 1170 010770 5204 JMP LIPTYP /IF THE TTY FLAG ISN'T UP NOW, IT'LL NEVER GO UP 1171 010771 0000 NOUGHT, 0 1172 TABL2=. 1173 010772 0205 REA /IGNORE BLANKS 1174 010773 0345 CRL2 1175 010774 0343 CRL1 1176 010775 0264 EXAM 1177 010776 0507 TRAP 1178 010777 0620 JUMP 1179 011000 0370 SEMI 1180 011001 0635 CONTIN 1181 011002 1070 WSER 1182 011003 0710 UPAR1 1183 011004 1127 MASKX 1184 011005 1125 ACX 1185 011006 1126 LINKX 1186 011007 1130 DATF 1187 011010 0360 OPIN 1188 011011 1131 INDF 1189 011012 1173 RBOUT 1190 011013 0566 ADD 1191 011014 0565 SUBT 1192 IFZERO 1000&. <*1000> 1193 011015 0000 PNUM, 0 1194 011016 3003 DCA PUNN 1195 011017 1103 TAD [-4 1196 011020 3034 DCA TEMP 1197 011021 1003 PN2, TAD PUNN 1198 011022 7006 RTL 1199 011023 7004 RAL 1200 011024 3003 DCA PUNN 1201 011025 1003 TAD PUNN 1202 011026 7004 RAL 1203 011027 0150 AND [7 1204 011030 1122 TAD [260 1205 011031 4573 JMS I [TYPN 1206 011032 2034 ISZ TEMP 1207 011033 5221 JMP PN2 1208 011034 1102 TAD [240 1209 011035 4573 JMS I [TYPN 1210 011036 5615 JMP I PNUM 1211 011037 0000 TYPD, 0 1212 011040 1637 TAD I TYPD 1213 011041 3034 DCA TEMP 1214 011042 1434 TAD I TEMP 1215 011043 7112 CLL RTR 1216 011044 7010 RAR 1217 011045 1122 TAD [260 1218 011046 4573 JMS I [TYPN 1219 011047 2034 ISZ TEMP 1220 011050 1434 TAD I TEMP 1221 011051 4565 JMS I [PNUM 1222 011052 2237 ISZ TYPD 1223 011053 5637 JMP I TYPD 1224 011054 0000 TYPN, 0 1225 011055 6046 TLS 1226 011056 6041 TSF 1227 011057 5256 JMP .-1 1228 011060 7200 CLA 1229 011061 4575 JMS I [CTCTST 1230 011062 5501 JMP I [CTRC 1231 011063 1110 TAD [-14 /^O? 1232 011064 7640 SZA CLA 1233 011065 5654 JMP I TYPN /NO 1234 011066 6032 KCC /YES 1235 011067 5542 JMP I [READ 1236 011070 4577 WSER, JMS I [OCRLF 1237 011071 1041 TAD LIMLO 1238 011072 3027 DCA CKT+1 1239 011073 1037 TAD INDFLD 1240 011074 0151 AND [70 1241 011075 3026 DCA CKT 1242 011076 4566 WSER1, JMS I [LOAD 1243 011077 0026 CKT 1244 011100 0040 AND MASK 1245 011101 7041 CIA 1246 011102 1021 TAD WORD+1 1247 011103 7640 SZA CLA 1248 011104 5315 JMP WSER2 1249 011105 4560 JMS I [TYPD 1250 011106 0026 CKT 1251 011107 1157 TAD [257 1252 011110 4573 JMS I [TYPN 1253 011111 4566 JMS I [LOAD 1254 011112 0026 CKT 1255 011113 4565 JMS I [PNUM 1256 011114 4577 JMS I [OCRLF 1257 011115 1027 WSER2, TAD CKT+1 1258 011116 2027 ISZ CKT+1 1259 011117 7000 NOP 1260 011120 7041 CIA 1261 011121 1042 TAD LIMHI 1262 011122 7640 SZA CLA 1263 011123 5276 JMP WSER1 1264 011124 5542 JMP I [READ 1265 1266 011125 1100 ACX, TAD [SAC-LINK 1267 011126 1077 LINKX, TAD [LINK-MASK 1268 011127 1076 MASKX, TAD [MASK-DATFLD 1269 011130 1075 DATF, TAD [DATFLD-INDFLD 1270 011131 1074 INDF, TAD [INDFLD 1271 011132 3021 DCA WORD+1 1272 011133 7240 CLA CMA 1273 011134 3020 DCA WORD 1274 011135 3012 DCA TOTE 1275 011136 1157 TAD [257 1276 011137 4573 JMS I [TYPN 1277 011140 5473 JMP I [EXAM 1278 BRKCOD=. 1279 NOPUNC 1280 *UDNAME 1281 ENPUNC 1282 1283 017741 3340 DCA MARG1 1284 017742 7004 RAL 1285 017743 6214 RDF 1286 017744 3300 DCA 7700 1287 017745 1352 TAD PODT 1288 017746 3273 DCA MGET+4 1289 017747 2271 ISZ MGET+2 /DON'T REVERSE TAPE MOTION TO PICK UP ODT 1290 017750 6203 CDF CIF 0 1291 017751 5200 J7600, JMP 7600 1292 017752 0060 PODT, ODTREC 1293 017753 7603 P7603, 7603 1294 017754 0000 MTRAD, 0 1295 017755 0000 MTRAD1, 0 1296 017756 0000 MKEEP, 0 1297 017757 0000 MPUNN, 0 1298 1299 NOPUNC 1300 *BRKCOD+MPUNN-UDNAME+1 1301 ENPUNC 1302 1303 011160 0000 DUMP, 0 1304 011161 1002 TAD STOFLG 1305 011162 7650 SNA CLA 1306 011163 5760 JMP I DUMP 1307 011164 4537 JMS I [SHNDLR 1308 011165 4200 4200 1309 011166 1400 1400 1310 011167 0000 GREC, 0 1311 011170 7402 HLT 1312 011171 3002 DCA STOFLG 1313 011172 5760 JMP I DUMP 1314 1315 011173 1163 RBOUT, TAD [277 1316 011174 4573 JMS I [TYPN 1317 011175 1102 TAD [240 1318 011176 4573 JMS I [TYPN 1319 011177 5472 JMP I [READ5 1320 IFNZRO .-1200&4000 <*1200> 1321 011200 0000 SIM, 0 1322 011201 4253 JMS IOTTST 1323 011202 4566 JMS I [LOAD 1324 011203 0032 FROG 1325 011204 3034 DCA TEMP 1326 011205 1034 TAD TEMP 1327 011206 3000 DCA 0 1328 011207 4253 JMS IOTTST 1329 011210 1071 TAD [777 1330 011211 7040 CMA 1331 011212 0014 AND INST 1332 011213 7004 RAL 1333 011214 7020 CML 1334 011215 7520 SNL SMA 1335 011216 5261 JMP JMSJMP 1336 011217 7030 CML RAR 1337 011220 3231 DCA SOPR 1338 011221 1036 TAD DATFLD 1339 011222 0151 AND [70 1340 011223 1113 TAD [CDF 0 1341 011224 3225 DCA .+1 1342 011225 7402 HLT 1343 011226 1022 TAD LINK 1344 011227 7110 CLL RAR 1345 011230 1023 TAD SAC 1346 011231 7402 SOPR, HLT 1347 011232 7410 SKP 1348 011233 2031 ISZ GAME+1 1349 011234 3023 DCA SAC 1350 011235 7004 RAL 1351 011236 3022 DCA LINK 1352 011237 6214 RDF 1353 011240 3036 DCA DATFLD 1354 011241 6203 CDF CIF 0 1355 011242 1000 EOSIM, TAD 0 1356 011243 7041 CIA 1357 011244 1034 TAD TEMP 1358 011245 7650 EOTST, SNA CLA 1359 011246 5251 JMP .+3 1360 011247 1000 TAD 0 1361 011250 4562 JMS I [STORE 1362 011251 0032 FROG 1363 011252 5600 JMP I SIM 1364 1365 011253 0000 IOTTST, 0 1366 011254 7332 CLA CLL CML RTR 1367 011255 1014 TAD INST 1368 011256 7630 SZL CLA 1369 011257 2253 ISZ IOTTST 1370 011260 5653 JMP I IOTTST 1371 011261 7006 JMSJMP, RTL 1372 011262 7630 SZL CLA 1373 011263 5271 JMP JMPX 1374 011264 1016 TAD TRAD 1375 011265 3032 DCA FROG 1376 011266 1031 TAD GAME+1 1377 011267 3000 DCA 0 1378 011270 7301 CLA IAC CLL 1379 011271 1033 JMPX, TAD FROG+1 1380 011272 3031 DCA GAME+1 1381 011273 7024 CML RAL /PUT -LINK IN AC (0 IF JMP, 1 IF JMS) 1382 011274 5245 JMP EOTST 1383 1384 011275 0000 LOAD, 0 1385 011276 1675 TAD I LOAD 1386 011277 4470 JMS I [GETADR 1387 011300 7000 NOP 1388 011301 1443 TAD I ADR 1389 011302 6201 CDF 0 1390 011303 2275 ISZ LOAD 1391 011304 5675 JMP I LOAD 1392 1393 011305 0000 STORE, 0 1394 011306 3275 DCA LOAD 1395 011307 1705 TAD I STORE 1396 011310 4470 JMS I [GETADR 1397 011311 2002 ISZ STOFLG /INDICATE THAT WE'RE CHANGING THIS RECORD 1398 011312 1275 TAD LOAD 1399 011313 3443 DCA I ADR 1400 011314 6201 CDF 0 1401 011315 2305 ISZ STORE 1402 011316 5705 JMP I STORE 1403 011317 0000 GETADR, 0 1404 011320 3043 DCA ADR 1405 011321 1443 TAD I ADR 1406 011322 3335 DCA FADR 1407 011323 2043 ISZ ADR 1408 011324 1443 TAD I ADR 1409 011325 3043 DCA ADR 1410 011326 1335 TAD FADR 1411 011327 7450 SNA 1412 011330 5340 JMP CKADR 1413 011331 7510 SPA 1414 011332 7200 CLA 1415 011333 1113 TAD [CDF 0 1416 011334 3335 DCA .+1 1417 011335 0000 FADR, 0 1418 011336 2317 ISZ GETADR 1419 011337 5717 JMP I GETADR 1420 011340 1043 CKADR, TAD ADR 1421 011341 7004 RAL 1422 011342 7730 SZL SPA CLA 1423 011343 5336 JMP FADR+1 1424 011344 7346 CLA CLL CMA RTL 1425 011345 0531 AND I [JSBITS 1426 011346 3531 DCA I [JSBITS /MODIFY THE JSW TO INDICATE ODT AREA VIOLATION 1427 011347 1043 TAD ADR 1428 011350 7106 CLL RTL 1429 011351 7006 RTL 1430 011352 7004 RAL 1431 011353 0150 AND [7 1432 011354 1067 TAD [MTEMP+4 1433 011355 3367 DCA GIREC 1434 011356 1466 TAD I [GREC 1435 011357 7041 CIA 1436 011360 1367 TAD GIREC 1437 011361 7650 SNA CLA 1438 011362 5373 JMP NOREAD 1439 011363 4570 JMS I [DUMP 1440 011364 4537 JMS I [SHNDLR 1441 011365 0200 0200 1442 011366 1400 G1400, 1400 1443 011367 0000 GIREC, 0 1444 011370 7402 HLT 1445 011371 1367 TAD GIREC 1446 011372 3466 DCA I [GREC 1447 011373 1043 NOREAD, TAD ADR 1448 011374 0065 AND [377 1449 011375 1366 TAD G1400 1450 011376 3043 DCA ADR 1451 011377 5717 JMP I GETADR 1452 *1400 1453 /INITIALIZATION CODE TO SET UP THE "MREAD" AREA IN FIELD 0 1454 /WITH THE ODT CODE TO START UP A PROGRAM 1455 1456 011400 1064 INIT, TAD [MREAD-MSTADR-2 1457 011401 3034 DCA TEMP 1458 011402 1063 TAD [RSTCOD-1 1459 011403 3010 DCA 10 1460 011404 1155 TAD [MREAD-2 1461 011405 3011 DCA 11 1462 011406 1410 TAD I 10 1463 011407 3411 DCA I 11 1464 011410 2034 ISZ TEMP 1465 011411 5206 JMP .-3 1466 011412 4256 JMS CORE /DETERMINE CORE FIELD SIZE 1467 011413 6041 TSF 1468 011414 5213 JMP .-1 1469 011415 5542 JMP I [READ 1470 1471 011416 4256 BRKTST, JMS CORE /GET CORE SIZE NOW THAT WE WERE 1472 011417 1332 TAD KLIP 1473 011420 3735 DCA I PLIP /SETUP LOCATIONS AT 600 1474 011421 1333 TAD KLIP+1 1475 011422 3736 DCA I PLIP+1 1476 011423 1334 TAD KLIP+2 1477 011424 3737 DCA I PLIP+2 1478 011425 1232 TAD KCDF10 /JUST BREAKPOINTED IN. THEN RESTORE 1479 011426 3634 DCA I BURPO /LOCS AT BURP SO WE NEVER COME BACK 1480 011427 1233 TAD KCDF10+1 /HERE AGAIN UNTIL WE'RE SWAPPED 1481 011430 3635 DCA I BURP2 1482 011431 5634 JMP I BURPO 1483 011432 6211 KCDF10, CDF 10 1484 011433 1532 TAD I [MARG1 /SIMULATE LOCS AT BURP 1485 011434 0400 BURPO, BURP 1486 011435 0401 BURP2, BURP+1 1487 RSTCOD=. 1488 NOPUNC 1489 *MREAD-1 1490 ENPUNC 1491 1492 017756 7607 SHNDLR 1493 017757 4756 JMS I .-1 1494 017760 1000 1000 1495 017761 0000 0 1496 017762 0033 MTEMP+4 1497 017763 7402 HLT 1498 017764 1372 MSWITC, TAD MLINK 1499 017765 7110 CLL RAR 1500 017766 1371 TAD MAC 1501 017767 6201 MCDF, CDF 0 1502 017770 5373 JMP MSTCDF 1503 017771 0000 MAC, 0 1504 017772 0000 MLINK, 0 1505 017773 6202 MSTCDF, CIF 0 1506 017774 5775 JMP I .+1 1507 017775 0000 MSTADR, 0 1508 1509 NOPUNC 1510 *RSTCOD+MSTADR-MREAD+2 1511 ENPUNC 1512 011456 0000 CORE, 0 1513 011457 6201 CDF 0 1514 011460 1725 TAD I M1 1515 011461 0301 AND COR70 1516 011462 7440 SZA 1517 011463 5327 JMP USERC 1518 011464 6201 COR0, CDF 0 1519 011465 1326 TAD CORSIZ 1520 011466 7006 RTL 1521 011467 7004 RAL 1522 011470 0301 AND COR70 1523 011471 1314 TAD COREX 1524 011472 3273 DCA .+1 1525 011473 6201 COR1, CDF 1526 011474 1723 TAD I CORLOC 1527 011475 7000 COR2, NOP 1528 011476 3273 DCA COR1 1529 011477 1275 TAD COR2 1530 011500 3723 DCA I CORLOC 1531 011501 0070 COR70, 70 1532 011502 1723 TAD I CORLOC 1533 011503 7400 CORX, 7400 1534 011504 1303 TAD CORX 1535 011505 1324 TAD CORV 1536 011506 7640 SZA CLA 1537 011507 5314 JMP COREX 1538 011510 1273 TAD COR1 1539 011511 3723 DCA I CORLOC 1540 011512 2326 ISZ CORSIZ 1541 011513 5264 JMP COR0 1542 1543 011514 6201 COREX, CDF 0 1544 011515 1326 TAD CORSIZ 1545 011516 7104 CLL RAL 1546 011517 7006 RTL 1547 011520 7041 USERCR, CIA 1548 011521 3000 DCA ZERO /STORE AWAY NEG OF FIRST NON-EXISTENT FIELD 1549 /AT ODT'S LOCATION 0 1550 011522 5656 JMP I CORE 1551 1552 011523 1503 CORLOC, CORX 1553 011524 1400 CORV, 1400 1554 011525 7777 M1, -1 1555 011526 0001 CORSIZ, 1 1556 011527 1331 USERC, TAD L10 1557 011530 5320 JMP USERCR 1558 011531 0010 L10, 10 1559 1560 011532 2003 KLIP, ISZ PUNN /THESE INSTRUCTIONS GO INTO 600 1561 011533 5247 XCONT&177+5200 /JMP XCONT 1562 011534 6041 TSF 1563 011535 0600 PLIP, LIP 1564 011536 0601 LIP+1 1565 011537 0602 LIP+2 1566 *0 1567 010000 6401 ZERO, ODTVERSION 1568 010001 7402 HLT /IN CASE BKPT WITH INTER ON 1569 010002 0000 STOFLG, 0 1570 010003 0000 PUNN, 0 1571 *4 /PAGE 0 LITERALS AND CELLS 1572 010004 6212 CIF 10 /PROTOTYPE BREAKPOINT 1573 010005 5406 JMP I 6 /USED BY PROGRAMS WITH JSBITS(10)=1 1574 010006 7741 UDNAME /WHEN ODT IS RELOADED ON A BREAKPOINT 1575 1576 *12 1577 010012 0000 TOTE, 0 1578 010013 0000 KEEP, 0 1579 010014 0000 INST, 0 1580 010015 7777 SHUT, -1 1581 010016 0000 TRAD, 0;SHNDLR 010017 7607 1582 010020 0000 WORD, 0;0 010021 0000 1583 010022 0000 LINK, 0 1584 010023 0000 SAC, 0 1585 010024 0000 CAD, 0;0 010025 0000 1586 010026 0000 CKT, 0;0 010027 0000 1587 010030 0000 GAME, 0;0 010031 0000 1588 010032 0000 FROG, 0;0 010033 0000 1589 010034 0000 TEMP, 0 1590 010035 0000 JSTEMP, 0 1591 010036 0000 DATFLD, 0 1592 010037 0000 INDFLD, 0 1593 010040 7777 MASK, 7777 1594 010041 0000 LIMLO, 0 1595 010042 7577 LIMHI, 7577 1596 010043 0000 ADR, 0 1597 010044 1000 FLDTST, TAD ZERO /LOC. 0 HAS FIRST IMAGINARY CORE FIELD 1598 010045 1020 TAD WORD /IF USER TRIES TO ADDRESS NON- 1599 010046 7620 SNL CLA /EXISTENT CORE, A ? RETURNS 1600 010047 5434 JMP I TEMP /HE'S OK. 1601 010050 5451 JMP I PNO 1602 010051 0326 PNO, NO 1603 010052 0000 TOTTST, 0 1604 010053 1012 TAD TOTE 1605 010054 1062 TAD [6 1606 010055 7640 SZA CLA 1607 010056 2052 ISZ TOTTST 1608 010057 5452 JMP I TOTTST 1609 010062 0006 $ 010063 1435 010064 7760 010065 0377 010066 1167 010067 0033 010070 1317 010071 0777 010072 0201 010073 0264 010074 0037 010075 7777 010076 0002 010077 7762 010100 0001 010101 0236 010102 0240 010103 7774 010104 0400 010105 7600 010106 0177 010107 0332 010110 7764 010111 7775 010112 7767 010113 6201 010114 7773 010115 6202 010116 7771 010117 1200 010120 5004 010121 0273 010122 0260 010123 0366 010124 7741 010125 5406 010126 6212 010127 7751 010130 0005 010131 7746 010132 7740 010133 1140 010134 7761 010135 0004 010136 7000 010137 7607 010140 0212 010141 7575 010142 0200 010143 0600 010144 0713 010145 1253 010146 7671 010147 7673 010150 0007 010151 0070 010152 7700 010153 7757 010154 7756 010155 7755 010156 7754 010157 0257 010160 1037 010161 0215 010162 1305 010163 0277 010164 0010 010165 1015 010166 1275 010167 7605 010170 1160 010171 0532 010172 0237 010173 1054 010174 0203 010175 0466 010176 7772 010177 0477 ACX 1125 ADD 0566 ADR 0043 ALTDF1 1247 ALTDF2 1250 ALTLIM 1246 ALTMOD 1121 ANALYZ 0202 AS 0444 ASADR 0447 ASGNST 0452 ASNORM 0425 ASSIGN 0410 BEGDIF 0046 BEGGRP 0216 BEGLN 1200 BKAROW 0315 BRKCOD 1141 BRKTST 1416 BURP 0400 BURP2 1435 BURPO 1434 CAD 0024 CARRET 1065 CCLA 1254 CD 0200 CDCONT 1237 CDER0 0661 CDER1 0377 CDER2 0770 CDER3 0602 CDINIT 1200 CDOVER 0326 CDRST 1244 CDSKP 0260 CDVERS 6501 CERR 4024 CHFLP 0220 CHLOOP 1007 CINSRT 1055 CKADR 1340 CKT 0026 CLFINI 1066 CLRLIN 1077 CLXR 0017 CONTIN 0635 CONTX 0640 COR0 1464 COR1 1473 COR2 1475 COR70 1501 CORE 1456 COREX 1514 CORLOC 1523 CORSIZ 1526 CORV 1524 CORX 1503 CRL 0332 CRL1 0343 CRL2 0345 CRLF 1112 CTCTST 0466 CTRC 0236 CTRLC 1073 CTRLU 1073 DATF 1130 DATFLD 0036 DCB 7760 unreferenced DCDYES 0657 DECODE 0644 DEFALT 0042 DELIM 0040 DEV1 0033 DEV2 0034 DEVNAM 0320 DFLTNM 0044 DLOOK 0263 DSPCHL 1017 DUMP 1160 DVFLAG 0037 DVICE 0043 EFFADR 0713 EOBUFR 1314 EONUM 0372 EOSIM 1242 unreferenced EOTST 1245 EQUAL 0305 unreferenced EX2 0272 EXAM 0264 EXT1 0055 EXT2 0062 F1STUF 4020 FADR 1335 FILLP 0227 FILLP1 0226 FLDTST 0044 FROG 0032 G1400 1366 GAME 0030 GCH 0711 GETADR 1317 GETHND 0051 GIREC 1367 GLINE 1002 GNAME 0454 GREC 1167 GTNMLP 0466 HIORD 0022 INDF 1131 INDFLD 0037 INFILE 0261 INIT 1400 INST 0014 IOTTST 1253 J7600 7751 JMPLIP 0462 JMPX 1271 JMSJMP 1261 JSBITS 7746 JSTEMP 0035 JUMP 0620 KCDF10 1432 KEEP 0013 KLIP 1532 KMREC 0007 L10 1531 LBCKUP 1146 LENGTH 0554 LESSTN 1070 LFAILD 0573 LFEED 1166 LIMDIF 0047 LIMHI 0042 LIMLO 0041 LINK 0022 LINKX 1126 LIP 0600 LIPTYP 0604 LKUPLP 0546 LKUPST 0566 LKUPSW 0245 LNAME 0553 LOAD 1275 LOOKUP 0540 LXR 0015 M1 1525 M5200 1245 MAC 7771 MARG1 7740 MASK 0040 MASKX 1127 MCDF 7767 MCDREC 0051 MGET 7667 MIFILE 7617 MKEEP 7756 MLINK 7772 MOFILE 7600 MPARAM 7643 MPUNN 7757 MREAD 7757 MSTADR 7775 MSTCDF 7773 MSWITC 7764 MTEMP 0027 MTRAD 7754 MTRAD1 7755 NAME1 0025 NAME2 0026 NAME3 0027 NAME4 0030 NAMECT 0031 NMBASE 0032 NO 0326 NOAUTO 0755 NOBKAR 0213 NOIND 0760 NOREAD 1373 NOUGHT 0771 NUM 0201 NUMADD 0366 NUMBER 0340 NUMFUJ 0036 NUMLP 0344 NUMTST 0002 NUMX 0023 OCRLF 0477 ODTREC 0060 ODTVER 6401 OLENGT 0740 OLFUDJ 0767 OPENP 0731 OPIN 0360 OUTLIM 0050 OUTSW 0041 P250 0723 P7603 7753 unreferenced P7770 0751 PCHAR 1337 PERDSW 0035 PERIOD 0531 PLIP 1535 PLKUPS 1251 PN2 1021 PNO 0051 PNUM 1015 PODT 7752 PRINT 0066 PRMESG 1314 PRNAME 1350 PRNT 1155 PRWD 1325 PSPKG1 1255 PSTARS 1253 PUNN 0003 RBFLAG 0024 RBOUT 1173 RBSPCL 1151 REA 0205 READ 0200 READ5 0201 RESTRT 0676 ROTLP 0354 RSTCOD 1436 RUBOUT 1131 SAC 0023 SEMI 0370 SEX 0277 SHNDLR 7607 SHUT 0015 SIM 1200 SLASH 0726 SLSHCH 0613 SLSHLP 0625 SOPR 1231 SPADR 1025 SPKLG1 0434 SROT 0307 STARJM 1252 STARNM 0503 STARSW 0475 STOFLG 0002 STORE 1305 SUBT 0565 SYSHND 4030 T 0020 T1 0041 TABL1 0240 TABL2 0772 TEMP 0034 TFPUTX 0054 TMONIT 0052 TOTE 0012 TOTTST 0052 TRAD 0016 TRAP 0507 TT 0021 TTYOFF 0763 TTYTST 0602 TUSRFG 0053 TYPD 1037 TYPE 1367 TYPN 1054 TYPRET 1377 UDNAME 7741 UPAR1 0710 UPAR2 0366 UPAR3 0353 USERC 1527 USERCR 1520 USERFG 0040 WORD 0020 WSER 1070 WSER1 1076 WSER2 1115 XCONT 0647 XR 0016 ZERO 0000