File: CD50.LS of Disk: V50/Init/Build-Init
(Source file text)
/COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 1 /COMMAND DECODER FOR OS/8 V50 / / / / / / / / / /COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION / AND 2015 W. VAN DER MARK / / / / / / / / / /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. / /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. / /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY /DIGITAL. / / / / / / / / / / /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 2 /APRIL 1977 RL/EF/HJ/SR /ABSTRACT-- /COMMAND DECODER (CD) ACCEPTS TTY INPUT AND INTERPRETS /THAT INPUT AS A LIST OF OPTIONS AND FILE SPECIFICATIONS /FOR OS/8 CUSPS. TABLES ARE SETUP INDICATING THE SPECIFIED /FILES AND OPTIONS. /THIS VERSION OF CD IS CAPABLE OF RUNNING OS/8 BATCH. /MODIFICATIONS TO INITIALIZATION CODE HAVE BEEN MADE TO /ALLOW THIS. 7760 DCB=7760 7607 SHNDLR=7607 0040 USERFG=40 /LOCATION IN MAIN OS/8 ASSEMBLY - VOLATILE 0041 T1=41 /DITTO 0051 MCDREC=51 /ALSO PRETTY VOLATILE 7600 MOFILE=7600 7617 MIFILE=7617 7643 MPARAM=7643 /GERMAN=1 /NOT ANYMORE 0000 FIELD 0 /JUSTINCASE 6630 CDVERSION=6630 /6X 6630 ODTVERSION=6630 /6X /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 3 /V3 CHANGES TO CD: /1. FIXED LOTS OF BUGS / A:B:C IS ILLEGAL / 15-BIT = OPTION DOESN'T DESTROY ALTMODE BIT /2. ADDED ? SUPPORT IN SPECIAL MODE /3. ALLOWED SPECIAL MODE UNDER BATCH /4. REMOVED DCC CODE /5. ^U, RO TO BOL, AND LF ALL REPRINT * /6. VERSION # AT LOC ZERO /7. DON'T LOAD HANDLERS FOR OUTPUT DEVICE /8. CHANGED _ TO < STANDARD /V3 CHANGES TO ODT /1. REMOVED DCC CODE /2. FIXED CORE SIZE ROUTINE /3. ALLOWED SOFTWARE CORE SIZE /4. MODIFIED 'GO' COMMAND SO THAT IT DOESN'T RESTORE TRAP / LOCATION TO UNMODIFIED VALUE /5. FIXED BUG RE: JMS'S OUT OF FIELD WITH MAGIC LOCATION SET /6. TURN OFF INTERRUPTS ON BREAKPOINT /CHANGES AFTER FIELD TEST RELEASE: /1. FIXED BUG RE FILE LENGTHS GT 2047 BLOCKS /MAINTENANCE RELEASE: / NO CHANGES /V3D CHANGES: /CHANGED FORMAT OF VERSION NUMBERS /V40:WVDM / LOWER CASE AND GERMAN /V50:WVDM / LOWER CASE AND NO GERMAN /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 4 0200 *200 000200 5740 CD, JMP I NUMBER /EXECUTED IN SYSGEN 000201 5420 NUM, JMP I T IFNZRO .-202 < BATANA, ______> 000202 1177 ANALYZ, TAD [BEGLN-1 000203 3016 DCA XR 000204 1416 TAD I XR 000205 7450 SNA 000206 5213 JMP NOBKAR 000207 1176 TAD [-"< 000210 7640 SZA CLA 000211 5204 JMP .-5 000212 7240 CLA CMA 000213 3041 NOBKAR, DCA OUTSW 000214 1177 TAD [BEGLN-1 000215 3015 DCA LXR 000216 1041 BEGGRP, TAD OUTSW 000217 7650 SNA CLA 000220 1046 TAD BEGDIF /DIFF BETWEEN INPUT & OUTPUT AREAS 000221 1175 TAD [MOFILE-1 000222 3017 DCA CLXR 000223 7240 STA 000224 3037 DCA DVFLAG 000225 3033 DCA DEV1 000226 3034 FILLP1, DCA DEV2 000227 4574 FILLP, JMS I [GNAME 000230 1173 TAD ["A-": /AC CONTAINED DELIM - "A 000231 7650 SNA CLA 000232 5320 JMP DEVNAM 000233 4572 JMS I [ASSIGN 000234 1041 TAD OUTSW 000235 7650 SNA CLA 000236 1047 TAD LIMDIF /DIFF BETWWEN END OF OUTPUT & INPUT AREAS 000237 1050 TAD OUTLIM /END OF OUTPUT AREA 000240 1017 TAD CLXR 000241 7700 SMA CLA 000242 5377 JMP CDER1 000243 1041 TAD OUTSW 000244 7650 SNA CLA IFNZRO .-245 <BATSPC, ______> 000245 5261 LKUPSW, JMP INFILE /ZEROED IF IN "SPECIAL DECODE" MODE 000246 6211 CDF 10 000247 1043 TAD DVICE 000250 3417 DCA I CLXR 000251 1025 TAD NAME1 000252 3417 DCA I CLXR 000253 1026 TAD NAME2 000254 3417 DCA I CLXR 000255 1027 TAD NAME3 000256 3417 DCA I CLXR 000257 1030 TAD NAME4 000260 7410 CDSKP, SKP 000261 4571 INFILE, JMS I [LOOKUP /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 4-1 000262 3417 DCA I CLXR 000263 6201 DLOOK, CDF 0 000264 7240 STA 000265 3037 DCA DVFLAG 000266 1040 TAD DELIM 000267 7450 SNA 000270 5326 JMP CDOVER 000271 1170 TAD [-"[ 000272 7450 SNA 000273 5567 JMP I [OLENGT 000274 1166 TAD ["[-", 000275 7450 SNA 000276 5227 JMP FILLP 000277 1165 TAD [",-"< 000300 7450 SNA 000301 5315 JMP BKAROW 000302 1164 TAD ["<-"= 000303 7640 SZA CLA 000304 5563 JMP I [CDER2 000305 3036 EQUAL, DCA NUMFUJ 000306 4340 JMS NUMBER 000307 3562 DCA I [MPARAM+3 000310 7330 CLA CLL CML RAR 000311 0561 AND I [MPARAM-1 /PRESERVE ALTMODE 000312 1022 TAD HIORD 000313 3561 DCA I [MPARAM-1 000314 5263 JMP DLOOK /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 5 000315 2041 BKAROW, ISZ OUTSW 000316 5563 JMP I [CDER2 000317 5216 JMP BEGGRP 000320 1025 DEVNAM, TAD NAME1 000321 3033 DCA DEV1 000322 2037 ISZ DVFLAG 000323 5563 JMP I [CDER2 /CATCHES A:B: 000324 1026 TAD NAME2 000325 5226 JMP FILLP1 IFNZRO .-326 < BATOVR, ______> 000326 6041 CDOVER, TSF 000327 5326 JMP .-1 /LET PRINTER QUIET DOWN 000330 6042 TCF /AND CLEAR FLAG IFNZRO .-331 < BATOVR, ______> 000331 6213 CDF CIF 10 000332 1052 TAD TMONIT 000333 3560 DCA I [200 /RESTORE "MONITO" 000334 1053 TAD TUSRFG 000335 3557 DCA I [USERFG /RESTORE "USER FLAG" 000336 1054 TAD TFPUTX /LOAD "USER CALLING FIELD" INTO AC 000337 5600 JMP I CD /RETURN - MONITOR RESTORES CORE IF NECESSARY 000340 4000 NUMBER, 4000 /USED BY SYSGEN 000341 1260 TAD CDSKP 000342 3366 DCA NUMADD /SET NUMADD TO EITHER "SKP" OR "TAD NUM" 000343 3022 DCA HIORD 000344 3201 NUMLP, DCA NUM 000345 4003 JMS NUMTST /INTO PAGE 0 FOR RANGE TEST 000346 7420 SNL 000347 5372 JMP EONUM 000350 3020 DCA T 000351 7346 CLA CLL CMA RTL 000352 3040 DCA DELIM 000353 1201 TAD NUM 000354 7104 ROTLP, CLL RAL 000355 3023 DCA NUMX 000356 1022 TAD HIORD 000357 7004 RAL 000360 7510 SPA 000361 5563 JMP I [CDER2 000362 3022 DCA HIORD 000363 1023 TAD NUMX 000364 2040 ISZ DELIM 000365 5354 JMP ROTLP 000366 1201 NUMADD, TAD NUM /SKP IF OCTAL 000367 1201 TAD NUM 000370 1020 TAD T 000371 5344 JMP NUMLP 000372 1156 EONUM, TAD ["0 000373 3040 DCA DELIM 000374 1201 TAD NUM 000375 6211 CDF 10 000376 5740 JMP I NUMBER /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 6 000377 4555 CDER1, JMS I [PRMESG IFDEF GERMAN < TEXT /ZUVIEL DATEIEN/> 000400 2417 IFNDEF GERMAN < TEXT /TOO MANY FILES/> 000401 1740 000402 1501 000403 1631 000404 4006 000405 1114 000406 0523 000407 0000 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 7 IFZERO .&400 <*400> 000410 0000 ASSIGN, 0 000411 1017 TAD CLXR 000412 0037 AND DVFLAG 000413 1050 TAD OUTLIM 000414 7740 SMA SZA CLA /CHECK FOR OUTPUT OR FIRST INPUT 000415 5225 JMP ASNORM /IF DEVICE WAS SPECIFIC, OR IF WE ARE ON THE INPUT SIDE, /PROCEED NORMALLY 000416 1025 TAD NAME1 000417 7650 SNA CLA 000420 5252 JMP ASGNST 000421 1045 TAD DFLTNM+1 000422 3034 DCA DEV2 000423 1044 TAD DFLTNM 000424 3033 DCA DEV1 000425 1033 ASNORM, TAD DEV1 000426 3245 DCA AS+1 000427 1034 TAD DEV2 000430 3246 DCA AS+2 000431 1041 TAD OUTSW 000432 7650 SNA CLA /DON'T LOAD HANDLER IF WE ARE ON OUTPUT SIDE OF "_" 000433 1025 TAD NAME1 000434 7650 SPKLG1, SNA CLA /OR IF THERE IS NO FILE NAME TO LOOK UP 000435 1051 TAD GETHND /GETHND=11 NORMALLY, 0 IF IN "SPECIAL DECODE" MODE 000436 7001 IAC 000437 3244 DCA AS 000440 1154 TAD [1401 /ALLOW TWO PAGE HANDLERS 000441 3247 DCA ASADR 000442 6212 CIF 10 000443 4560 JMS I [200 000444 0000 AS, 0 000445 0000 0 000446 0000 0 000447 1401 ASADR, 1401 000450 5553 JMP I [CDER0 000451 1246 TAD AS+2 000452 3043 ASGNST, DCA DVICE 000453 5610 JMP I ASSIGN 000454 0000 GNAME, 0 000455 3025 DCA NAME1 000456 3026 DCA NAME2 000457 3027 DCA NAME3 000460 3030 DCA NAME4 000461 1152 TAD [NAME1 000462 3032 DCA NMBASE 000463 7240 CLA CMA 000464 3035 DCA PERDSW 000465 3031 DCA NAMECT 000466 4551 GTNMLP, JMS I [GCH 000467 3040 DCA DELIM 000470 1040 TAD DELIM 000471 1150 TAD [-"? /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 7-1 000472 7440 SZA 000473 1152 TAD ["?-"* 000474 7450 SNA 000475 5563 STARSW, JMP I [CDER2 /"JMP STARNM" IF "SPECIAL DECODE" MODE 000476 1147 TAD ["*-". 000477 7650 SNA CLA 000500 5331 JMP PERIOD 000501 4546 JMS I [DECODE 000502 5654 JMP I GNAME /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 8 000503 7200 STARNM, CLA /THIS CODE HANDLES *'S AND ?'S CORRECTLY 000504 1040 TAD DELIM 000505 0145 AND [77 000506 3040 DCA DELIM 000507 1031 TAD NAMECT 000510 1144 TAD [-6 000511 7700 SMA CLA 000512 5266 JMP GTNMLP 000513 1031 TAD NAMECT 000514 7110 CLL RAR 000515 1032 TAD NMBASE 000516 3021 DCA TT 000517 1040 TAD DELIM 000520 7430 SZL 000521 5325 JMP .+4 000522 7006 RTL 000523 7006 RTL 000524 7006 RTL 000525 1421 TAD I TT 000526 3421 DCA I TT 000527 2031 ISZ NAMECT 000530 5266 JMP GTNMLP 000531 1025 PERIOD, TAD NAME1 000532 7640 SZA CLA 000533 2035 ISZ PERDSW 000534 5563 JMP I [CDER2 000535 2032 ISZ NMBASE 000536 1143 TAD [4 000537 5265 JMP GTNMLP-1 000540 0000 LOOKUP, 0 000541 3353 DCA LNAME 000542 1025 TAD NAME1 000543 7650 SNA CLA 000544 5366 JMP LKUPST 000545 5055 JMP EXT1 000546 3353 LKUPLP, DCA LNAME 000547 1246 TAD AS+2 000550 6212 CIF 10 000551 4560 JMS I [200 000552 0002 2 000553 0000 LNAME, 0 /NAME1 000554 0000 LENGTH, 0 000555 5373 JMP LFAILD 000556 1354 TAD LENGTH 000557 7100 CLL 000560 1142 TAD [400 000561 7420 SNL 000562 7200 CLA 000563 7106 CLL RTL 000564 7006 RTL 000565 0165 AND [7760 000566 6211 LKUPST, CDF 10 000567 1043 TAD DVICE /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 8-1 000570 3417 DCA I CLXR 000571 1353 TAD LNAME 000572 5740 JMP I LOOKUP /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 9 000573 1031 LFAILD, TAD NAMECT 000574 7650 SNA CLA /WAS THERE AN EXPLICIT EXTENSION? 000575 1042 TAD DEFALT /NO - WAS THERE A DEFAULT EXTENSION? 000576 7650 SNA CLA 000577 5541 JMP I [CDER3 /YES OR NO - FILE NOT FOUND 000600 2031 ISZ NAMECT /NO AND YES - SET FLAG TO FAIL NEXT TIME 000601 5062 JMP EXT2 /ZERO OUT THE EXTENSION AND TRY AGAIN 000602 4540 CDER3, JMS I [PRNAME 000603 4555 JMS I [PRMESG IFDEF GERMAN < TEXT / NICHT DA /> 000604 4016 IFNDEF GERMAN < TEXT / NOT FOUND/> 000605 1724 000606 4006 000607 1725 000610 1604 000611 0000 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 10 IFZERO .+200&1000 <*600> 000612 0000 SLSHCH, 0 /V3 SNA /V3 JMP I [CDER2 000613 3040 DCA DELIM 000614 1161 TAD [MPARAM-1 000615 3020 DCA T 000616 4546 JMS I [DECODE 000617 5563 JMP I [CDER2 000620 7430 SZL 000621 1137 TAD [32 000622 7160 CMA STL /THE FOLLOWING TURNS ON THE CORRECT OPTION BIT 000623 3021 DCA TT 000624 7430 SLSHLP, SZL 000625 2020 ISZ T 000626 7010 RAR 000627 7420 SNL 000630 2021 ISZ TT 000631 5224 JMP SLSHLP 000632 3021 DCA TT 000633 6211 CDF 10 000634 1021 TAD TT 000635 7040 CMA 000636 0420 AND I T 000637 1021 TAD TT 000640 3420 DCA I T 000641 6201 CDF 0 000642 5612 JMP I SLSHCH 000643 0000 DECODE, 0 000644 1040 TAD DELIM 000645 1136 TAD [-"9-1 000646 7100 CLL 000647 1135 TAD ["9+1-"0 000650 7430 SZL 000651 5256 JMP DCDYES 000652 1134 TAD ["0-"Z-1 000653 7120 CLL CML 000654 1137 TAD ["Z-"A+1 000655 7420 SNL 000656 2243 DCDYES, ISZ DECODE 000657 5643 JMP I DECODE 000660 1033 CDER0, TAD DEV1 000661 4533 JMS I [PRWD 000662 1034 TAD DEV2 000663 4533 JMS I [PRWD 000664 4555 JMS I [PRMESG IFDEF GERMAN < TEXT / GIBT ES NICHT /> 000665 4004 IFNDEF GERMAN < TEXT / DOES NOT EXIST /> 000666 1705 000667 2340 000670 1617 000671 2440 000672 0530 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 10-1 000673 1123 000674 2440 000675 0000 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 11 000676 4532 RESTRT, JMS I [CRLF IFNZRO .-677 < BATRST, ______> 000677 6211 CDF 10 000700 1175 TAD [MOFILE-1 000701 3016 DCA XR 000702 1131 TAD [-47 000703 3020 DCA T 000704 3416 DCA I XR /ZERO OUT THE COMMAND DECODER OUTPUT AREA 000705 2020 ISZ T 000706 5304 JMP .-2 000707 6201 CDF 0 000710 5530 JMP I [GLINE 000711 0000 GCH, 0 000712 4527 JMS I [LC 000713 1126 TAD [-240 000714 7450 SNA 000715 5312 JMP GCH+1 000716 1125 TAD [240-"/ 000717 7450 SNA 000720 5326 JMP SLASH 000721 1173 TAD ["/-"( 000722 7450 SNA 000723 5331 JMP OPENP 000724 1124 TAD ["( 000725 5711 JMP I GCH 000726 4527 SLASH, JMS I [LC 000727 4523 JMS I [SLSHCH 000730 5312 JMP GCH+1 000731 4527 OPENP, JMS I [LC 000732 1122 TAD [-") 000733 7450 SNA 000734 5312 JMP GCH+1 000735 1121 TAD [") 000736 4523 JMS I [SLSHCH 000737 5331 JMP OPENP 000740 1041 OLENGT, TAD OUTSW 000741 0025 AND NAME1 /[N] IS ONLY LEGAL ON THE OUTPUT SIDE OF THE "_" 000742 7650 SNA CLA /AND ONLY AFTER A FILE NAME 000743 5563 JMP I [CDER2 000744 1147 TAD [-4 000745 1017 TAD CLXR 000746 3032 DCA NMBASE 000747 7326 CLA CLL CML RTL 000750 3036 DCA NUMFUJ /SET "NUMBER" TO ACCEPT DIGITS 8 AND 9 000751 1367 TAD OLFUDJ /LOAD FUDGE SO THAT "NUMBER" WILL BE DECIMAL 000752 4520 JMS I [NUMBER 000753 7106 CLL RTL 000754 7006 RTL 000755 0165 AND [7760 000756 1432 TAD I NMBASE 000757 3432 DCA I NMBASE 000760 6201 CDF 0 000761 1040 TAD DELIM /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 11-1 000762 1117 TAD [-"] /IS THERE A CLOSING BRACKET? 000763 7450 SNA /IF NOT, "DLOOK" ROUTINE WILL DETECT IT 000764 4551 JMS I [GCH 000765 3040 DCA DELIM 000766 5516 JMP I [DLOOK 000767 1571 OLFUDJ, NUM&177+1570 000770 7200 CDER2, CLA 000771 4555 JMS I [PRMESG IFDEF GERMAN < TEXT /SYNTAX FEHLER!/> 000772 1114 IFNDEF GERMAN < TEXT /ILLEGAL SYNTAX/> 000773 1405 000774 0701 000775 1440 000776 2331 000777 1624 001000 0130 001001 0000 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 12 IFZERO .&1000 <*1000> /TELETYPE INPUT ROUTINE FOR COMMAND DECODER IFNZRO .-1002 < BATCGL, ______> 001002 1377 GLINE, TAD (252 /SETS 1177=252 FOR * IN MESSAGE 001003 4466 JMS I PRINT 001004 3024 DCA RBFLAG IFNZRO .-1005 < BATCGL, ______> 001005 1177 TAD [BEGLN-1 001006 3015 DCA LXR 001007 6031 CHLOOP, 6031 /KSF 001010 5207 JMP CHLOOP 001011 1160 TAD [200 001012 6034 6034 /KRS 001013 3025 DCA NAME1 001014 6032 6032 /KCC 001015 1115 TAD [SPADR-1 001016 3016 DCA XR 001017 1416 DSPCHL, TAD I XR 001020 7440 SZA 001021 1025 TAD NAME1 001022 7650 SNA CLA 001023 5416 JMP I XR 001024 5217 JMP DSPCHL 001025 7553 SPADR, -225;JMP CTRLU 001026 5273 001027 7563 -215;JMP CARRET 001030 5265 001031 7401 -377;JMP RUBOUT 001032 5331 001033 7403 -375;JMP ALTMOD /*** SET: -223;JMP CHLOOP 001034 5321 001035 7402 -376;JMP ALTMOD /*** SET: -221;JMP CHLOOP 001036 5321 001037 7545 -233;JMP ALTMOD 001040 5321 001041 7600 -200;JMP CHLOOP 001042 5207 001043 7561 -217;JMP CHLOOP /^O 001044 5207 001045 7441 -"_;JMP LESSTN 001046 5270 001047 7566 -212;JMP LFEED 001050 5366 001051 7575 -203;JMP CTRLC /MUST BE LAST - SEE CLRLIN CODE 001052 5273 001053 0000 0 001054 4355 JMS PRNT 001055 1025 CINSRT, TAD NAME1 001056 3415 DCA I LXR 001057 1015 TAD LXR 001060 1114 TAD [-EOBUFR+2 001061 7710 SPA CLA 001062 5207 JMP CHLOOP /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 12-1 001063 4312 JMS CRLF 001064 5563 JMP I [CDER2 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 13 001065 4312 CARRET, JMS CRLF 001066 3415 CLFINI, DCA I LXR 001067 5513 JMP I [ANALYZ 001070 4355 LESSTN, JMS PRNT 001071 1112 TAD ["< 001072 5256 JMP CINSRT+1 CTRLC, 001073 1111 CTRLU, TAD [336 001074 4466 JMS I PRINT 001075 1025 TAD NAME1 001076 1110 TAD [100 001077 4466 CLRLIN, JMS I PRINT 001100 4312 JMS CRLF 001101 1416 TAD I XR 001102 7640 SZA CLA 001103 5202 JMP GLINE 001104 6211 CDF 10 001105 7240 CLA CMA 001106 3507 DCA I [7700 001107 6041 TSF 001110 5307 JMP .-1 001111 5506 JMP I [7605 /7605=CDF CIF 10 001112 0000 CRLF, 0 001113 1105 TAD [215 001114 3025 DCA NAME1 001115 4355 JMS PRNT 001116 1104 TAD [212 001117 4466 JMS I PRINT 001120 5712 JMP I CRLF 001121 1103 ALTMOD, TAD [244 001122 3025 DCA NAME1 001123 7330 CLA CLL CML RAR 001124 6211 CDF 10 001125 3561 DCA I [MPARAM-1 001126 6201 CDF 0 001127 4355 JMS PRNT 001130 5265 JMP CARRET /WHY NOT? /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 14 /*** LOCATIONS ON THIS PAGE ARE MODIFIED BY SET /SEE SET FOR DETAILS. DO NOT CHANGE. 001131 1015 RUBOUT, TAD LXR 001132 1102 TAD [1-BEGLN 001133 7650 SNA CLA 001134 5351 JMP RBSPCL /*** SET TTY SCOPE 001135 1101 TAD [334 /BSPC, 210 001136 2024 ISZ RBFLAG / TAD BSPC 001137 4466 JMS I PRINT 001140 7240 CLA CMA / TAD LBCKUP 001141 3024 DCA RBFLAG / JMS I PRINT 001142 1015 TAD LXR 001143 3020 DCA T 001144 1420 TAD I T / TAD BSPC 001145 4466 JMS I PRINT 001146 7240 LBCKUP, CLA CMA 001147 1015 TAD LXR 001150 5206 JMP CHLOOP-1 001151 2024 RBSPCL, ISZ RBFLAG 001152 5300 JMP CLRLIN+1 001153 1101 TAD [334 001154 5277 JMP CLRLIN 001155 0000 PRNT, 0 001156 2024 ISZ RBFLAG 001157 5362 JMP .+3 001160 1101 TAD [334 001161 4466 JMS I PRINT 001162 3024 DCA RBFLAG 001163 1025 TAD NAME1 001164 4466 JMS I PRINT 001165 5755 JMP I PRNT 001166 4312 LFEED, JMS CRLF 001167 3415 DCA I LXR 001170 1100 TAD [BEGLN-2 001171 3016 DCA XR 001172 1416 TAD I XR 001173 7450 SNA 001174 5346 JMP LBCKUP 001175 4466 JMS I PRINT 001176 5372 JMP .-4 IFNZRO RUBOUT-1131 <_ERROR_> /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 15 001177 0252 1200 *1200 /INITIALIZATION - STORED OVER BY LINE BUFFER 1200 BEGLN=. /LINE BUFFER *** MUST BE AT 1200 -BATCH- 001200 3054 CDINIT, DCA TFPUTX 001201 6211 CDF 10 001202 7201 CLA IAC 001203 1560 TAD I [200 001204 3052 DCA TMONIT /SAVE AWAY MONITOR CALL ADDRESS SINCE WE CALL 001205 1557 TAD I [USERFG /THE MONITOR RECURSIVELY, LIKEWISE SAVE 001206 3053 DCA TUSRFG /THE "USER FLAG" AND THE FIELD WE WERE CALLED FROM 001207 1477 TAD I [T1 /FETCH THE USERS ARGUMENT 001210 3042 DCA DEFALT /STORE IN THE DEFAULT EXTENSION WORD 001211 3573 DCA I [7 /ZERO "DIRECTORY SEGMENT IN CORE" KEY 001212 6201 CDF 0 001213 6212 CIF 10 001214 4560 JMS I [200 001215 0013 13 /RESET ALL HANDLERS 001216 0000 0 /BUT NOT OUTPUT FILES 001217 1042 TAD DEFALT 001220 1245 TAD M5200 001221 7640 SZA CLA /IS THIS A REQUEST FOR A "SPECIAL DECODE"? 001222 5237 JMP CDCONT /NO 001223 1246 TAD ALTLIM 001224 3050 DCA OUTLIM /YES - SET UP ALL THE PROPER LOCATIONS 001225 1247 TAD ALTDF1 001226 3047 DCA LIMDIF /TO YIELD 1 OUTPUT FILE AND 5 INPUT FILES 001227 1250 TAD ALTDF2 001230 3046 DCA BEGDIF /ALL OF WHICH ARE 5-WORD <DEVICE,NAME> ENTRIES 001231 3651 DCA I PLKUPS 001232 1252 TAD STARJM 001233 3653 DCA I PSTARS /AND ALLOW * AS A FILE OR EXTENSION NAME 001234 3042 DCA DEFALT /NO DEFAULT EXTENSION IN "SPECIAL" MODE 001235 1254 TAD CCLA /STOPS FETCHES IN SPECIAL MODE 001236 3655 DCA I PSPKG1 /NO HANDLER FETCHES NECESSARY EITHER SINCE NO LOOKUPS 001237 1721 CDCONT, TAD I PRWD /SEE IF BATCH FLAG IS UP 001240 7004 RAL 001241 7710 SPA CLA /IF YES, GO TO PAGE0 CODE 001242 5021 JMP TT /TT ETC. IS ONCE-ONLY CODE 001243 5644 JMP I CDRST /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 16 001244 0677 CDRST, RESTRT+1 /CONSTANTS NECESSARY TO SUPPORT "SPECIAL DECODE" MODE 001245 2600 M5200, -5200 001246 0174 ALTLIM, 1-MOFILE-5 001247 7747 ALTDF1, MOFILE+5-MPARAM+5 001250 0005 ALTDF2, 5 001251 0245 PLKUPS, LKUPSW 001252 5303 STARJM, STARNM&177+5200 /"JMP STARNM" 001253 0475 PSTARS, STARSW 001254 7200 CCLA, CLA 001255 0434 PSPKG1, SPKLG1 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 17 1312 *1312 1312 EOBUFR=. 001312 0000 PRMESG, 0 001313 1712 TAD I PRMESG 001314 7450 SNA 001315 5476 JMP I [RESTRT 001316 4321 JMS PRWD 001317 2312 ISZ PRMESG 001320 5313 JMP PRMESG+1 001321 7777 PRWD, 7777 001322 3020 DCA T 001323 1020 TAD T 001324 7002 BSW 001325 4331 JMS PCHAR 001326 1020 TAD T 001327 4331 JMS PCHAR 001330 5721 JMP I PRWD 001331 0000 PCHAR, 0 001332 0145 AND [77 001333 7450 SNA 001334 5731 JMP I PCHAR /IGNORE NULLS 001335 1075 TAD [240 001336 0145 AND [77 001337 1075 TAD [240 001340 4367 JMS TYPE 001341 5731 JMP I PCHAR 001342 0000 PRNAME, 0 001343 1025 TAD NAME1 / SNA / JMP I [CDER2 001344 4321 JMS PRWD 001345 1026 TAD NAME2 001346 4321 JMS PRWD 001347 1027 TAD NAME3 001350 4321 JMS PRWD / TAD NAME4 / SNA CLA / JMP I PRNAME 001351 1074 TAD [256 001352 4331 JMS PCHAR 001353 1030 TAD NAME4 001354 4321 JMS PRWD 001355 5742 JMP I PRNAME 001356 0000 LC, 0 001357 1415 TAD I LXR 001360 1365 TAD CDM340 001361 7500 SMA 001362 1366 TAD CDM40 001363 1120 TAD [340 001364 5756 JMP I LC 001365 7440 CDM340, -340 001366 7740 CDM40, -40 001367 0000 TYPE, 0 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 17-1 IFNZRO .-1370 < BATTYP, ______> 001370 5373 JMP .+3 001371 6041 TSF 001372 5371 JMP .-1 IFNZRO .-1373 < BATTYP, ______> 001373 6046 TLS 001374 7200 CLA 001375 1073 TAD [7000 001376 3370 DCA TYPE+1 IFNZRO .-1377 < BATTYP, ______> 001377 5767 TYPRET, JMP I TYPE /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 18 4001 *4001 /PROG TO WRITE CD AND ODT ONTO NEW SYSTEM DEVICE /4000=JMS SYSSWP TO SWAP PGS 6600 AND 7600 004001 1777 TAD I (7777 /SET TO PROPER RECORD FOR FIELD 1 STUFF 004002 3220 DCA F1STUF 004003 4630 JMS I SYSHND 004004 4600 4600 004005 0000 0 004006 0051 MCDREC 004007 5224 JMP CERR 004010 4630 JMS I SYSHND 004011 5011 5011 004012 0000 0 004013 0060 ODTREC 004014 5224 JMP CERR 004015 4630 JMS I SYSHND 004016 0110 0110 /READ IN UPPER PG 7600 004017 7600 7600 004020 0000 F1STUF, 0 004021 5224 JMP CERR 004022 5623 JMP I .+1 004023 7605 7605 /START HER UP 004024 1227 CERR, TAD .+3 004025 3201 DCA 4001 004026 5200 JMP 4000 /RESWAP AND HALT 004027 7402 HLT 004030 7607 SYSHND, 7607 004177 7777 4200 PAGE /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 19 0000 *0 000000 6630 CDVERSION 000001 6232 CIF 30 000002 5001 JMP 1 /FOR SYMBIONT 000003 7777 NUMTST, 7777 000004 4551 JMS I [GCH 000005 7040 CMA 000006 1036 TAD NUMFUJ 000007 1072 TAD ["8 /TEST INPUT CHARACTER FOR RANGE 000010 7140 CLL CMA /0-7 IF NUMFUJ=0 000011 1071 TAD [10 /0-9 IF NUMFUJ=2 000012 1036 TAD NUMFUJ 000013 5403 JMP I NUMTST 0015 *15 000015 0000 LXR, 0 000016 0000 XR, 0 000017 0000 CLXR, 0 000020 1200 T, CDINIT 000021 6201 TT, CDF 0 /***GETS SET TO CDF BATCH 000022 1443 HIORD, TAD I DVICE /CHECK TO SEE IF BOS IS REALLY THERE 000023 1041 NUMX, TAD OUTSW /IF NOT, SIGNAL ERROR 000024 7650 RBFLAG, SNA CLA 000025 5031 NAME1, JMP NAMECT /IT'S O.K.....PROBABLY! 000026 6201 NAME2, CDF 0 /BAD. SIGNAL ERROR TO MONITOR 000027 2403 NAME3, ISZ I NUMTST 000030 5506 NAME4, JMP I [7605 /AND RESTART BATCH MONITOR 000031 6203 NAMECT, CIF CDF 0 /*****GETS ALTERED****** 000032 5433 NMBASE, JMP I .+1 /START UP IN CD AREA OF BATCH 000033 0677 DEV1, RESTRT+1 /***GETS ADDRESS OF CD AREA 000034 0000 DEV2, 0 000035 0000 PERDSW, 0 000036 0000 NUMFUJ, 0 000037 0000 DVFLAG, 0 000040 0000 DELIM, 0 000041 0000 OUTSW, 0 /*** GETS RL IDENT 000042 0000 DEFALT, 0 /*** USED BY BOS 000043 0000 DVICE, 0 /*** GETS RL ADRESS 000044 0423 DFLTNM, 0423;1300 /DSK 000045 1300 000046 0017 BEGDIF, MIFILE-MOFILE 000047 7756 LIMDIF, MIFILE-MPARAM+2 000050 0162 OUTLIM, 1-MIFILE 000051 0011 GETHND, 11 000052 0000 TMONIT, 0 000053 0000 TUSRFG, 0 000054 0000 TFPUTX, 0 000055 1030 EXT1, TAD NAME4 000056 3031 DCA NAMECT /REMEMBER TYPED EXTENSION 000057 1031 TAD NAMECT 000060 7450 SNA 000061 1042 TAD DEFALT /SUBSTITUTE DEFAULT IF ZERO 000062 3030 EXT2, DCA NAME4 000063 1152 TAD [NAME1 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 19-1 000064 5465 JMP I .+1 000065 0546 LKUPLP 000066 1367 PRINT, TYPE /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 20 000071 0010 000072 0270 000073 7000 000074 0256 000075 0240 000076 0676 000077 0041 000100 1176 000101 0334 000102 6601 000103 0244 000104 0212 000105 0215 000106 7605 000107 7700 000110 0100 000111 0336 000112 0274 000113 0202 000114 6470 000115 1024 000116 0263 000117 7443 000120 0340 000121 0251 000122 7527 000123 0612 000124 0250 000125 7761 000126 7540 000127 1356 000130 1002 000131 7731 000132 1112 000133 1321 000134 7725 000135 0012 000136 7506 000137 0032 000140 1342 000141 0602 000142 0400 000143 0004 000144 7772 000145 0077 000146 0643 000147 7774 000150 7501 000151 0711 000152 0025 000153 0660 000154 1401 000155 1312 /COMMAND DECODER FOR OS/8 V50 PAL8-V50X 11-OCT-90 PAGE 20-1 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 0001 FIELD 1 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 20-2 EJECT INVISIBLE ODT /INVISIBLE ODT FOR OS/8 MONITOR /LOADS INTO FIELD 1 NOW, BUT LOADS & EXECUTES IN FIELD 0 /DEFINITIONS OF MONITOR SYMBOLS - VOLATILE! 0060 ODTREC=60 7741 UDNAME=7741 7757 MREAD=7757 7667 MGET=7667 0007 KMREC=7 0027 MTEMP=27 7740 MARG1=7740 7746 JSBITS=7746 6200 LXM=6200 /EXTENDED MEMORY REGISTER LOAD 6230 RXM=6230 /EXTENDED MEMORY REGISTER READ 6175 RACA=6175 /EXTENDED MEMORY BIT MANIPULATION 6176 RACB=6176 /" " 6177 RACC=6177 /" " 0200 *200 010200 4577 READ, JMS I [OCRLF 010201 3020 READ5, DCA WORD 010202 3021 DCA WORD+1 010203 1377 TAD (-7 / SET CHARACTER LIMIT V50 010204 3012 DCA TOTE 010205 6031 REA, KSF /CHARACTER INPUT 010206 5205 JMP .-1 010207 4576 JMS I [CTCTST /CONTROL 'C' TEST 010210 5235 JMP CTRC 010211 1102 TAD INCHAR /V50 010212 4575 JMS I [TYPN /ECHO INPUT CHARACTERS 010213 1347 TAD TABL1A /SET UP COMMAND TABLE SEARCH 010214 3010 DCA 10 010215 1410 CHFLP, TAD I 10 /CHARACTER I.D. 010216 7510 SPA 010217 5276 JMP SEX /NO COMMAND -NUMERIC INPUT 010220 7041 CIA 010221 1102 TAD INCHAR /V50 010222 7640 SZA CLA 010223 5215 JMP CHFLP /NOT THIS ONE-TRY NEXT ONE 010224 1010 TAD 10 /THIS IS THE COMMAND 010225 1370 TAD TABL2A /SET UP JUMP TO COMMAND SUBROUTINE 010226 3034 DCA TEMP 010227 1434 TAD I TEMP 010230 3034 DCA TEMP 010231 1020 TAD WORD 010232 4574 JMS I [XLODE /BANK AND FIELD ADJUSTMENT 010233 3020 DCA WORD 010234 5044 JMP FLDTST /SEE IF FIELD SETTING IS LEGAL 010235 4573 CTRC, JMS I [DUMP /CONTROL 'C' 010236 6200 LXM /DISABLE KT8A 010237 5572 JMP I [7605 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 21 0240 TABL1=. /COMMAND TABLE 010240 0240 240 /SPACE 010241 0212 212 /LINE FEED 010242 0215 215 /CR 010243 0257 257 /SLASH 010244 0302 302 /B 010245 0307 307 /G 010246 0273 273 /; 010247 0303 303 /C 010250 0327 327 /W 010251 0276 276 /> WAS 336 ^ CLASH WITH DELETE V50 010252 0315 315 /M 010253 0301 301 /A 010254 0314 314 /L 010255 0304 304 /D 010256 0274 274 /< WAS 337 <-ARROW V50 010257 0306 306 /F 010260 0253 253 /+ 010261 0255 255 /- RUBOUT REMOVED V50 010262 7510 -270 /USED - SEE "SEX" INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 22 010263 4052 EXAM, JMS TOTTST /SLASH SUBROUTINE-LOCATION EXAMINATION 010264 5271 JMP EX2 010265 1020 TAD WORD /FIELD 010266 3024 DCA CAD 010267 1021 TAD WORD+1 /ADDRESS 010270 3025 DCA CAD+1 010271 4064 EX2, JMS LOAD /GET LOCATION CONTENTS 010272 0024 CAD 010273 4571 JMS I [PNUM /ECHO CONTENTS 010274 3015 DCA SHUT 010275 5201 JMP READ5 010276 1102 SEX, TAD INCHAR /ADDRESS & FIELD ADJUSTMENT V50 010277 7100 CLL /CALLED WITH -270 010300 1170 TAD [10 /TEST FOR NUMBER 010301 7420 SNL 010302 5323 JMP NO 010303 3034 DCA TEMP 010304 7346 CLA CLL CMA RTL 010305 3327 DCA CRL 010306 1021 SROT, TAD WORD+1 /FIELD & ADDRESS PROCESSING 010307 7104 CLL RAL 010310 3021 DCA WORD+1 010311 1020 TAD WORD 010312 7004 RAL 010313 3020 DCA WORD /FIELD AND BANK STORAGE 010314 2327 ISZ CRL 010315 5306 JMP SROT 010316 1021 TAD WORD+1 010317 1034 TAD TEMP 010320 3021 DCA WORD+1 /ADDRESS STORAGE 010321 2012 ISZ TOTE /TEST FOR TOO MANY CHARACTERS 010322 5205 JMP REA 010323 7200 NO, CLA /UNACCEPTABLE INPUT ECHOS ? 010324 1376 TAD (277 /? V50 010325 4575 JMS I [TYPN 010326 5200 JMP READ INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 23 010327 0000 CRL, 0 010330 4052 JMS TOTTST 010331 5727 JMP I CRL 010332 1021 TAD WORD+1 010333 2015 ISZ SHUT 010334 4567 JMS I [STORE 010335 0024 CAD 010336 7200 CLA 010337 5727 JMP I CRL 010340 4327 CRL1, JMS CRL /CARRIAGE RETURN 010341 5200 JMP READ 010342 1166 CRL2, TAD [215 /LINE FEED 010343 4575 JMS I [TYPN 010344 4327 JMS CRL 010345 4575 JMS I [TYPN 010346 2025 ISZ CAD+1 010347 0237 TABL1A, TABL1-1 010350 4565 UPAR3, JMS I [TYPD 010351 0024 CAD 010352 1164 TAD [257 // 010353 4575 JMS I [TYPN 010354 5271 JMP EX2 010355 4327 OPIN, JMS CRL /BKARROW/UNDERLINE 010356 4064 JMS LOAD 010357 0024 CAD 010360 3025 DCA CAD+1 010361 1037 TAD INDFLD 010362 4574 JMS I [XLODE 010363 3024 DCA CAD 010364 4577 UPAR2, JMS I [OCRLF 010365 5350 JMP UPAR3 010366 4327 SEMI, JMS CRL /SEMI COLON 010367 2025 ISZ CAD+1 010370 0527 TABL2A, TABL2-TABL1 010371 5201 JMP READ5 010372 4327 UPAR1, JMS CRL /UP-ARROW COMMAND- CLOSE LOCATION V50 010373 4563 JMS I [EFFADR /V50 010374 5364 JMP UPAR2 /PRINT REFERENCED LOCATION CONTENTS V50 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 24 010376 0277 010377 7771 0400 *400 /NOTE THAT LOCATIONS BURP,BURP+1 GET ALTERED AFTER BRKTST /IS EXECUTED. THEY BECOME: CDF 10; TAD I [MARG1 010400 5601 BURP, JMP I .+1 /RETURN FROM BREAKPOINT -GO REDETERMINE CORE SIZE 010401 1410 BRKTST /TO MAKE ILLEGAL FIELD GIVE ? 010402 3023 DCA SAC /IOF /COMMENTED OUT FOR HIGH GROUND SUPPORT 010403 1562 TAD I [MTRAD /RESTABLISH ADDRESS,FIELD,ETC. 010404 3016 DCA TRAD 010405 1561 TAD I [MTRAD1 /THESE ARE ALL 010406 3017 DCA TRAD+1 010407 1560 TAD I [MKEEP /BREAKPOINT PARAMETERS 010410 3013 DCA KEEP 010411 1557 TAD I [MPUNN / 010412 3003 DCA PUNN 010413 7201 CLA IAC 010414 0777 AND I (7700 010415 3022 DCA LINK 010416 1777 TAD I (7700 010417 6201 CDF 0 010420 4556 JMS I [T174 /BANK AND FIELD MANIPULATION 010421 1036 TAD DATFLD 010422 3037 DCA INDFLD 010423 1155 TAD [KMREC 010424 6211 CDF 10 010425 3776 DCA I (MGET+4 010426 7344 CLA CLL CMA RAL 010427 0554 AND I [MGET+2 010430 3554 DCA I [MGET+2 /REMOVE LOW-ORDER BIT FROM CONTROL WORD 010431 6201 CDF 0 010432 1013 TAD KEEP 010433 4567 JMS I [STORE 010434 0016 TRAD 010435 1017 TAD TRAD+1 010436 7001 IAC 010437 3031 DCA GAME+1 /ESTABLISH CONTINUE PARAMETERS 010440 1016 TAD TRAD 010441 3030 DCA GAME 010442 1013 TAD KEEP 010443 3014 DCA INST 010444 4074 JMS IOTTST 010445 7410 SKP 010446 5260 JMP JMPLIP 010447 1016 TAD TRAD 010450 3024 DCA CAD /ESTABLISH EXAM PARAMETERS 010451 1017 TAD TRAD+1 010452 3025 DCA CAD+1 010453 4563 JMS I [EFFADR 010454 1024 TAD CAD 010455 3032 DCA FROG 010456 1025 TAD CAD+1 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 24-1 010457 3033 DCA FROG+1 010460 4576 JMPLIP, JMS I [CTCTST 010461 5572 JMP I [7605 010462 5775 JMP I (LIP INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 25 010463 0000 STORE, 0 /SUBROUTINE TO ADJUST CODE V50 MOVED HERE 010464 3064 DCA LOAD 010465 1663 TAD I STORE 010466 4553 JMS I [GETADR 010467 2060 ISZ STOFLG /INDICATE THAT WE'RE CHANGING THIS RECORD 010470 1064 TAD LOAD 010471 3443 DCA I ADR 010472 6201 CDF 0 010473 2263 ISZ STORE 010474 5663 JMP I STORE 010475 0000 OCRLF, 0 /CARRIAGE RETURN-LINE FEED 010476 1166 TAD [215 /CR 010477 4575 JMS I [TYPN 010500 1152 TAD [212 /LF 010501 4575 JMS I [TYPN 010502 7240 CLA CMA 010503 3015 DCA SHUT 010504 5675 JMP I OCRLF INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 26 010505 4052 TRAP, JMS TOTTST /ESTABLISHES BREAKPOINT 010506 1151 TAD [SHNDLR 010507 1021 TAD WORD+1 010510 3017 DCA TRAD+1 /ADDRESS 010511 1020 TAD WORD 010512 3016 DCA TRAD /FIELD 010513 1150 TAD [7000 010514 3551 DCA I [SHNDLR 010515 1147 TAD [4 010516 3021 DCA WORD+1 010517 1146 TAD [UDNAME-MPUNN-1 010520 3034 DCA TEMP 010521 1145 TAD [BRKCOD-1 /MOVE UP RETURN CODE 010522 3010 DCA 10 010523 1144 TAD [UDNAME-1 010524 3011 DCA 11 010525 1410 TAD I 10 010526 6211 CDF 10 010527 3411 DCA I 11 010530 6201 CDF 0 010531 2034 ISZ TEMP 010532 5325 JMP .-5 010533 1543 TAD I [JSBITS 010534 7012 RTR 010535 7630 SZL CLA 010536 1142 TAD [5 010537 6211 CDF 10 010540 1541 TAD I [J7600 010541 3541 DCA I [J7600 /CHANGE JMP 7600 TO JMP 7605 IF ODT AREA NOT USED 010542 6201 CDF 0 010543 1543 TAD I [JSBITS 010544 3035 DCA JSTEMP /SAVE JSBITS BEFORE SETTING BRKPT 010545 1140 TAD [CIF 10 010546 4567 JMS I [STORE 010547 0020 WORD 010550 2021 ISZ WORD+1 010551 1137 TAD [JMP I 6 /STORE RETURN JMP 010552 4567 JMS I [STORE 010553 0020 WORD 010554 2021 ISZ WORD+1 010555 1006 TAD DNAME 010556 4567 JMS I [STORE 010557 0020 WORD 010560 1035 TAD JSTEMP 010561 3543 DCA I [JSBITS /RESTORE JSBITS 010562 5536 JMP I [READ INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 27 010563 7020 SUBT, CML 010564 1021 ADD, TAD WORD+1 /MODIFY CURRENT LOCATION POINTER 010565 7450 SNA 010566 7001 IAC /1 IS DEFAULT VALUE 010567 7430 SZL /+ OR -? 010570 7041 CIA /- 010571 1025 TAD CAD+1 010572 3025 DCA CAD+1 010573 5535 JMP I [UPAR2 /AND DISPLAY LOC AND CONTENTS 010575 0600 010576 7673 010577 7700 0600 *600 /MONITOR ENTERS ODT HERE, ERROR RETURN 010600 7402 LIP, HLT /ISZ PUNN - AT INIT, THE CODE AT 600 IS CHANGED TO: 010601 5602 JMP I .+1 /JMP XCONT 010602 1400 TTYTST, INIT /TSF 010603 5362 JMP TTYOFF 010604 4565 LIPTYP, JMS I [TYPD 010605 0016 TRAD 010606 1322 TAD P250 /( 010607 4575 JMS I [TYPN 010610 1022 TAD LINK 010611 1134 TAD [260 /0 010612 4575 JMS I [TYPN 010613 1133 TAD [273 /; 010614 4575 JMS I [TYPN 010615 1023 TAD SAC 010616 4571 JMS I [PNUM 010617 5536 JMP I [READ 010620 4052 JUMP, JMS TOTTST /TEST FOR 'G' WITH NO ADDRESS 010621 5451 JMP I PNO 010622 1020 TAD WORD 010623 3030 DCA GAME 010624 1021 TAD WORD+1 010625 3031 DCA GAME+1 010626 1020 TAD WORD 010627 4556 JMS I [T174 /FIELD ADJUSTMENT -STORED IN DATFLD 010630 1150 TAD [7000 010631 3014 DCA INST 010632 3023 DCA SAC 010633 3022 DCA LINK 010634 5240 JMP CONTX INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 28 010635 1021 CONTIN, TAD WORD+1 / 'C'-CONTINUE COMMAND 010636 7041 CIA 010637 7450 SNA 010640 7040 CONTX, CMA 010641 3003 DCA PUNN 010642 3551 DCA I [7607 /IN CASE THERE WAS NO BREAKPOINT 010643 4064 JMS LOAD /V3 010644 0016 TRAD /V3 010645 3013 DCA KEEP /V3 010646 4577 JMS I [OCRLF 010647 1132 XCONT, TAD [JMP 4 010650 4567 JMS I [STORE 010651 0016 TRAD 010652 6211 CDF 10 010653 1016 TAD TRAD 010654 3562 DCA I [MTRAD 010655 1017 TAD TRAD+1 010656 3561 DCA I [MTRAD1 010657 1013 TAD KEEP 010660 3560 DCA I [MKEEP 010661 1003 TAD PUNN 010662 3557 DCA I [MPUNN 010663 6201 CDF 0 010664 1007 TAD EXTEMP 010665 6200 LXM 010666 4531 JMS I [SIM /SIMULATE THE BRKPOINTED INST HERE 010667 1022 TAD LINK /SAVE LINK 010670 3530 DCA I [MLINK /ESTABLISH RETURN CODE---MXXXX'S 010671 1023 TAD SAC /SAVE AC 010672 3527 DCA I [MAC 010673 1030 TAD GAME /ESTABLISH START CDF 010674 1126 TAD [CIF 0 010675 3525 DCA I [MSTCDF 010676 1036 TAD DATFLD /ESTABLISH 'B' CDF 010677 4574 JMS I [XLODE 010700 1124 TAD [CDF 0 010701 3523 DCA I [MCDF 010702 1031 TAD GAME+1 /ESTABLISH START ADDRESS 010703 3522 DCA I [MSTADR 010704 4573 JMS I [DUMP 010705 1543 TAD I [JSBITS 010706 7012 RTR 010707 7630 SZL CLA 010710 5521 JMP I [MSWITC 010711 5557 JMP I [MREAD /EXECUTION TIME INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 29 010712 0000 EFFADR, 0 /USE CONTENTS AS MRI 010713 4064 JMS LOAD 010714 0024 CAD 010715 0120 AND [177 /ISOLATE LOCATION REFERENCED 010716 3034 DCA TEMP 010717 4064 JMS LOAD 010720 0024 CAD 010721 0136 AND [200 /IS IT 'THIS PAGE'? 010722 7650 P250, SNA CLA 010723 5326 JMP .+3 010724 1025 TAD CAD+1 010725 0117 AND [7600 010726 1034 TAD TEMP 010727 3034 DCA TEMP 010730 4064 JMS LOAD 010731 0024 CAD 010732 0363 AND T400 /IS IT INDIRECT-TEST '400' BIT 010733 7650 SNA CLA 010734 5357 JMP NOIND 010735 1034 TAD TEMP 010736 3025 DCA CAD+1 010737 4064 JMS LOAD 010740 0024 CAD 010741 3034 DCA TEMP 010742 1025 TAD CAD+1 010743 0350 AND P7770 /IS IT AUTO-INDEXED? 010744 1350 TAD P7770 010745 7640 SZA CLA 010746 5354 JMP NOAUTO 010747 2034 ISZ TEMP 010750 7770 P7770, 7770 /COVERS ISZ.... 010751 1034 TAD TEMP 010752 4567 JMS I [STORE 010753 0024 CAD 010754 1037 NOAUTO, TAD INDFLD /NO INDEXING 010755 4574 JMS I [XLODE 010756 3024 DCA CAD 010757 1034 NOIND, TAD TEMP /NOT INDIRECT 010760 3025 DCA CAD+1 010761 5712 JMP I EFFADR /WASTE SOME TIME 010762 4074 TTYOFF, JMS IOTTST 010763 0400 T400, AND I 0 010764 2063 ISZ NOUGHT 010765 5202 JMP TTYTST 010766 5204 JMP LIPTYP /IF THE TTY FLAG ISN'T UP NOW, IT'LL NEVER GO UP INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 30 0767 TABL2=. /COMMAND TABLE SUBROUTINE INFO 010767 0205 REA /SPACE IGNORE 010770 0342 CRL2 /LINE FEED 010771 0340 CRL1 /CR 010772 0263 EXAM /SLASH 010773 0505 TRAP /B 010774 0620 JUMP /G 010775 0366 SEMI /; 010776 0635 CONTIN /C 010777 1064 WSER /W 011000 0372 UPAR1 /> WAS 336 ^ CLASH WITH DELETE V50 011001 1122 MASKX /M 011002 1120 ACX /A 011003 1121 LINKX /L 011004 1124 DATF /D 011005 0355 OPIN /< WAS 337 <-ARROW V50 011006 1123 INDF /F 011007 0564 ADD /+ 011010 0563 SUBT /- RUBOUT REMOVED V50 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 31 IFZERO 1000&. <*1000> 011011 0000 PNUM, 0 /PRINTS CONTENTS OF ADDRESS LOCATION 011012 3003 DCA PUNN /OR ADDRESS...ITSELF 011013 1116 TAD [-4 011014 3034 DCA TEMP 011015 1003 PN2, TAD PUNN 011016 7006 RTL 011017 7004 RAL 011020 3003 DCA PUNN 011021 1003 TAD PUNN 011022 7004 RAL 011023 0155 AND [7 011024 1134 TAD [260 /0 011025 4575 JMS I [TYPN 011026 2034 ISZ TEMP 011027 5215 JMP PN2 011030 1115 TAD [240 / 011031 4575 JMS I [TYPN 011032 5611 JMP I PNUM 011033 0000 TYPD, 0 /PRINTS BANK AND FIELD OF ACCESSED LOC. 011034 1633 TAD I TYPD 011035 3034 DCA TEMP 011036 1434 TAD I TEMP 011037 4647 JMS I TYPDXX 011040 4575 JMS I [TYPN /TYPE BANK 011041 1061 TAD NWD 011042 4575 JMS I [TYPN /TYPE FIELD 011043 1434 TAD I TEMP 011044 4571 JMS I [PNUM /PRINT ADDRESS 011045 2233 ISZ TYPD 011046 5633 JMP I TYPD INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 32 011047 1245 TYPDXX, TYPDX 011050 0000 TYPN, 0 /PRINTS CHARACTERS PREPARED BY TYPD;PNUM,ETC. 011051 6046 TLS 011052 6041 TSF 011053 5252 JMP .-1 011054 4576 JMS I [CTCTST /CTCTST CLEARS AC 011055 5514 JMP I [CTRC 011056 1102 TAD INCHAR /V50 ----- 011057 1113 TAD [-217 /^O? 011060 7640 SZA CLA 011061 5650 JMP I TYPN /NO 011062 3102 DCA INCHAR /V50 ----- 011063 5536 JMP I [READ 011064 4577 WSER, JMS I [OCRLF / 'W'---WORD SEARCH 011065 1041 TAD LIMLO 011066 3027 DCA CKT+1 /ESTABLISH LOWER LIMIT 011067 1037 TAD INDFLD 011070 4574 JMS I [XLODE /ADJUST WORD SEARCH BANK AND FIELD 011071 3026 DCA CKT 011072 4064 WSER1, JMS LOAD 011073 0026 CKT 011074 0040 AND MASK /SEARCH MASK 011075 7041 CIA 011076 1021 TAD WORD+1 011077 7640 SZA CLA 011100 5311 JMP WSER2 011101 4565 JMS I [TYPD /WORD FOUND GO TYPE IT 011102 0026 CKT 011103 1164 TAD [257 // 011104 4575 JMS I [TYPN 011105 4064 JMS LOAD 011106 0026 CKT 011107 4571 JMS I [PNUM 011110 4577 JMS I [OCRLF 011111 1027 WSER2, TAD CKT+1 /TEST NEXT LOCATION 011112 7041 CIA 011113 1042 TAD LIMHI /IF IT ISN'T ABOVE THE LIMIT 011114 7650 SNA CLA 011115 5536 JMP I [READ /OVER LIMIT GO GET NEXT COMMAND 011116 2027 ISZ CKT+1 011117 5272 JMP WSER1 /SEARCH NEXT LOCATION 011120 1112 ACX, TAD [SAC-LINK / 'A' COMMAND 011121 1111 LINKX, TAD [LINK-MASK / 'L' COMMAND 011122 1112 MASKX, TAD [MASK-INDFLD / 'M' COMMAND 011123 1112 INDF, TAD [INDFLD-DATFLD / 'F' COMMAND 011124 1110 DATF, TAD [DATFLD / 'D' COMMAND 011125 3021 DCA WORD+1 011126 7240 CLA CMA 011127 3020 DCA WORD 011130 3012 DCA TOTE 011131 1164 TAD [257 // INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 32-1 011132 4575 JMS I [TYPN 011133 5507 JMP I [EXAM INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 33 1134 BRKCOD=. /RETURN CODE --- FROM 'G','C' COMMANDS NOPUNC 7741 *UDNAME /STORED IN UPPER FIELD ZERO ENPUNC 017741 3340 DCA MARG1 017742 7004 RAL 017743 6214 RDF 017744 3300 DCA 7700 017745 1352 TAD PODT 017746 3273 DCA MGET+4 017747 2271 ISZ MGET+2 /DON'T REVERSE TAPE MOTION TO PICK UP ODT 017750 6203 CDF CIF 0 017751 5200 J7600, JMP 7600 017752 0060 PODT, ODTREC 017753 7603 P7603, 7603 017754 0000 MTRAD, 0 017755 0000 MTRAD1, 0 017756 0000 MKEEP, 0 017757 0000 MPUNN, 0 NOPUNC 1153 *BRKCOD+MPUNN-UDNAME+1 ENPUNC 011153 0000 DUMP, 0 /SUBROUTINE TO STORE ADJUSTED CODE 011154 1060 TAD STOFLG /LT 011155 7650 SNA CLA 011156 5753 JMP I DUMP 011157 4551 JMS I [SHNDLR 011160 4200 4200 011161 1400 1400 011162 0000 GREC, 0 /SET BY GETADR 011163 7402 HLT 011164 3060 DCA STOFLG 011165 5753 JMP I DUMP 011166 0000 T174, 0 /TRANSFORMS 174 TO 37 V50 MOVED HERE 011167 7112 CLL RTR 011170 7010 RAR 011171 0106 AND [17 011172 1170 TAD [10 011173 0123 AND [7767 /... 0027 ARE THE RELEVANT BITS IN 7767 011174 7430 SZL 011175 1170 TAD [10 011176 3036 DCA DATFLD 011177 5766 JMP I T174 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 34 IFNZRO .-1200&4000 <*1200> 011200 0000 SIM, 0 /SIMULATES BREAKPOINTED INST 011201 4074 JMS IOTTST 011202 4064 JMS LOAD 011203 0032 FROG 011204 3034 DCA TEMP 011205 4573 JMS I [DUMP 011206 3505 DCA I [GREC 011207 4551 JMS I [SHNDLR /DUE TO 128K CODE -SIM IS LOADED INTO 1600 011210 0100 0100 011211 1600 SIMXT, 1600 011212 0064 64 011213 7402 HLT 011214 4611 JMS I SIMXT 011215 4567 JMS I [STORE 011216 0032 FROG 011217 5600 JMP I SIM 011220 0000 XLODE, 0 /TRANSFORMS 'ABCDE' TO 'ACDEB0' FOR CDF 011221 3061 DCA NWD 011222 1034 TAD TEMP /TEST FOR GO COMMAND 011223 7041 CIA /A 'GO' ABOVE 32K REQUIRES SETTING EXTEMP 011224 1062 TAD TJUMP /FOR LXM ENABLE 011225 7650 SNA CLA 011226 1377 TAD (30 011227 0061 AND NWD 011230 7650 SNA CLA 011231 5234 JMP LT32K 011232 1150 TAD [7000 011233 3007 DCA EXTEMP 011234 1061 LT32K, TAD NWD /TRANFORMATION IS HERE 011235 0106 AND [17 011236 1376 TAD (7770 011237 7510 SPA 011240 1106 TAD [17 011241 1127 TAD [7771 011242 1061 TAD NWD 011243 7106 CLL RTL 011244 5620 JMP I XLODE INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 35 011245 0000 TYPDX, 0 /PROCESSES BANK & FIELD FOR PRINTING 011246 7510 SPA /ADJUSTMENT FOR LINE FEED AFTER 011247 7200 CLA /REFERENCE TO M,D,F,ETC. COMMANDS 011250 7112 CLL RTR 011251 7010 RAR 011252 3220 DCA XLODE /V50 011253 1220 TAD XLODE /V50 011254 0155 AND [7 011255 1134 TAD [260 011256 3061 DCA NWD 011257 1220 TAD XLODE /V50 011260 0170 AND [10 011261 7430 SZL 011262 1147 TAD [4 011263 7112 CLL RTR 011264 1134 TAD [260 011265 2034 ISZ TEMP 011266 5645 JMP I TYPDX 011267 0000 GETADR, 0 /GETS ADDRESS.... 011270 3043 DCA ADR 011271 1443 TAD I ADR 011272 3305 DCA FADR 011273 2043 ISZ ADR 011274 1443 TAD I ADR 011275 3043 DCA ADR 011276 1305 TAD FADR 011277 7450 SNA /ONLY NEED TO FOOL WITH ADDRESS IF IT'S IN FIELD 0 011300 5310 JMP CKADR 011301 7510 SPA 011302 7200 CLA 011303 1124 TAD [CDF 0 011304 3305 DCA .+1 011305 0000 FADR, 0 011306 2267 ISZ GETADR 011307 5667 JMP I GETADR INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 36 011310 1043 CKADR, TAD ADR /MANIPULATES FIELD 0 OF ODT'D PROGRAM 011311 7004 RAL /ACCESSES IT IN LOCS 1400-1777 011312 7730 SZL SPA CLA / 011313 5306 JMP FADR+1 011314 7346 CLA CLL CMA RTL 011315 0543 AND I [JSBITS 011316 3543 DCA I [JSBITS /MODIFY THE JSW TO INDICATE ODT AREA VIOLATION 011317 1043 TAD ADR 011320 7106 CLL RTL 011321 7006 RTL 011322 7004 RAL 011323 0155 AND [7 /CALCULATE BLOCK OF STORAGE 011324 1104 TAD [MTEMP+4 011325 3337 DCA GIREC 011326 1505 TAD I [GREC /MAYBE IT'S ALREADY IN CORE 011327 7041 CIA 011330 1337 TAD GIREC 011331 7650 SNA CLA 011332 5343 JMP NOREAD /IT IS!! 011333 4573 JMS I [DUMP /MAYBE... ...IT ISN'T 011334 4551 JMS I [SHNDLR /LOADS RELEVANT PROGRAM CODE 011335 0200 0200 011336 1400 G1400, 1400 011337 0000 GIREC, 0 011340 7402 HLT 011341 1337 TAD GIREC 011342 3505 DCA I [GREC 011343 1043 NOREAD, TAD ADR /ADJUST THE ADDRESS FOR PROPER ACCESS 011344 0375 AND (377 011345 1336 TAD G1400 011346 3043 DCA ADR 011347 5667 JMP I GETADR 011350 0000 CTCTST, 0 /CONTROL 'C' TEST V50 MOVED HERE 011351 7200 CLA 011352 6031 KSF 011353 5367 JMP CTCEX 011354 1136 TAD [200 011355 6034 KRS 011356 1374 TAD (-340 011357 7500 SMA 011360 1046 TAD CM40 011361 1373 TAD (340 011362 3102 DCA INCHAR 011363 6032 KCC 011364 1102 TAD INCHAR 011365 1372 TAD (-203 011366 7640 SZA CLA 011367 2350 CTCEX, ISZ CTCTST 011370 5750 JMP I CTCTST INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 37 011372 7575 011373 0340 011374 7440 011375 0377 011376 7770 011377 0030 1400 *1400 /INITIALIZATION CODE TO SET UP THE "MREAD" AREA IN FIELD 0 /WITH THE ODT CODE TO START UP A PROGRAM 011400 1410 INIT, TAD I 10 011401 3411 DCA I 11 011402 2034 ISZ TEMP 011403 5200 JMP .-3 011404 4250 JMS CORE /DETERMINE CORE FIELD SIZE 011405 6041 TSF 011406 5205 JMP .-1 011407 5536 JMP I [READ 011410 4250 BRKTST, JMS CORE /GET CORE SIZE NOW THAT WE WERE 011411 1325 TAD KLIP 011412 3730 DCA I PLIP /SETUP LOCATIONS AT 600 011413 1326 TAD KLIP+1 011414 3731 DCA I PLIP+1 011415 1327 TAD KLIP+2 011416 3732 DCA I PLIP+2 011417 1224 TAD KCDF10 /JUST BREAKPOINTED IN. THEN RESTORE 011420 3626 DCA I BURPO /LOCS AT BURP SO WE NEVER COME BACK 011421 1225 TAD KCDF10+1 /HERE AGAIN UNTIL WE'RE SWAPPED 011422 3627 DCA I BURP2 011423 5626 JMP I BURPO 011424 6211 KCDF10, CDF 10 011425 1544 TAD I [MARG1 /SIMULATE LOCS AT BURP 011426 0400 BURPO, BURP 011427 0401 BURP2, BURP+1 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 38 1430 RSTCOD=. /RESTORES ODT AFTER 'C','G' COMMANDS NOPUNC 7756 *MREAD-1 ENPUNC 017756 7607 SHNDLR 017757 4756 JMS I .-1 017760 1000 1000 017761 0000 0 017762 0033 MTEMP+4 017763 7402 HLT 017764 1372 MSWITC, TAD MLINK 017765 7110 CLL RAR 017766 1371 TAD MAC 017767 6201 MCDF, CDF 0 /CDF OF PREVIOUS BRKPOINTED INST 017770 5373 JMP MSTCDF 017771 0000 MAC, 0 /SAVED AC 017772 0000 MLINK, 0 /LIKEWISE LINK 017773 6202 MSTCDF, CIF 0 /START CDF 017774 5775 JMP I .+1 017775 0000 MSTADR, 0 /START ADDRESS NOPUNC 1450 *RSTCOD+MSTADR-MREAD+2 ENPUNC INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 39 011450 0000 CORE, 0 /DETERMINES AVAILABLE CORE 011451 6230 RXM /READ AND STORE EXT MEM INFO 011452 3007 DCA EXTEMP 011453 1150 TAD [7000 011454 6200 LXM /SETS LXM FOR ODT PURPOSES 011455 7200 CLA 011456 6201 CDF 0 011457 1723 TAD I M1 /FIELD INFO STORED IN 7777(IF AVAILABLE) 011460 0300 AND COR70 011461 7112 CLL RTR 011462 7010 RAR 011463 7440 SZA /HAS CORE SIZE BEEN SET? 011464 5316 JMP USERCR /VERILY 011465 6201 COR0, CDF 0 011466 1324 TAD CORSIZ /GET FIELD TO TEST 011467 4574 JMS I [XLODE /EXTENDED MEMORY BANK&FIELD ADJUSTMENT 011470 1313 TAD COREX 011471 3272 DCA .+1 /SET UP CDF TO FIELD 011472 6201 COR1, CDF 011473 1721 TAD I CORLOC /SAVE CURRENT CONTENTS 011474 7000 COR2, NOP 011475 3272 DCA COR1 011476 1274 TAD COR2 011477 3721 DCA I CORLOC 011500 0070 COR70, 70 /ACTS AS NOP 011501 1721 TAD I CORLOC /TRY TO READ BACK 7000 011502 7400 CORX, 7400 011503 1302 TAD CORX 011504 1322 TAD CORV 011505 7640 SZA CLA 011506 5313 JMP COREX /NON-EXISTENT FIELD EXIT 011507 1272 TAD COR1 /RESTORES CONTENTS DESTROYED 011510 3721 DCA I CORLOC 011511 2324 ISZ CORSIZ /TRY NEXT HIGHER FIELD 011512 5265 JMP COR0 011513 6201 COREX, CDF 0 /STORE AWAY LAST REAL FIELD IN 'ZERO' 011514 1324 TAD CORSIZ 011515 1323 TAD M1 011516 7041 USERCR, CIA 011517 3000 DCA ZERO 011520 5650 JMP I CORE 011521 1502 CORLOC, CORX 011522 1400 CORV, 1400 011523 7777 M1, -1 011524 0001 CORSIZ, 1 011525 2003 KLIP, ISZ PUNN 011526 5247 XCONT&177+5200 011527 6041 TSF 011530 0600 PLIP, LIP 011531 0601 LIP+1 011532 0602 LIP+2 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 40 1600 *1600 011600 0000 SIMX, 0 /SIMULATES BREAKPOINTED INST 011601 1034 TAD TEMP 011602 3000 DCA 0 011603 4074 JMS IOTTST /IS IT AN IOT? 011604 1263 TAD T777 011605 7040 CMA 011606 0014 AND INST 011607 7004 RAL 011610 7020 CML 011611 7520 SNL SMA /IS IT A JMS OR A JMP? 011612 5247 JMP JMSJMP 011613 7030 CML RAR 011614 3225 DCA SOPR /STORE INST IN SOPR 011615 1036 TAD DATFLD /PREPARE CDF 011616 4574 JMS I [XLODE 011617 1124 TAD [CDF 0 011620 3221 DCA .+1 011621 7402 HLT 011622 1022 TAD LINK /AND LINK 011623 7110 CLL RAR 011624 1023 TAD SAC /AND AC 011625 7402 SOPR, HLT /EXECUTE INSTRUCTION 011626 7410 SKP 011627 2031 ISZ GAME+1 011630 3023 DCA SAC /RESAVE AC,LINK,DATFLD 011631 7004 RAL 011632 3022 DCA LINK 011633 6214 RDF 011634 4556 JMS I [T174 011635 6203 CDF CIF 0 011636 1000 EOSIM, TAD 0 /PREPARE TO RETURN 011637 7041 CIA /HAS LOC 0 BEEN CHANGED?BY A TAD...DCA...ISZ... 011640 1034 TAD TEMP 011641 7650 EOTST, SNA CLA /IF SO,THEN... 011642 5245 JMP .+3 011643 1000 TAD 0 /...DO A STORE(ON RETURN TO SIM) 011644 5600 JMP I SIMX 011645 2200 ISZ SIMX 011646 5600 JMP I SIMX 011647 7006 JMSJMP, RTL /PROCESS JMP,JMS 011650 7630 SZL CLA 011651 5257 JMP JMPX 011652 1016 TAD TRAD 011653 3032 DCA FROG 011654 1031 TAD GAME+1 011655 3000 DCA 0 011656 7301 CLA IAC CLL 011657 1033 JMPX, TAD FROG+1 011660 3031 DCA GAME+1 011661 7024 CML RAL /PUT -LINK IN AC (0 IF JMP, 1 IF JMS) 011662 5241 JMP EOTST 011663 0777 T777, 777 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 41 0000 *0 010000 6630 ZERO, ODTVERSION /HLT /IN CASE BKPT WITH INTER ON 010001 6232 CIF 30 /SYMBIONT CODE 010002 5001 JMP .-1 010003 0000 PUNN, 0 0004 *4 /PAGE 0 LITERALS AND CELLS 010004 6212 CIF 10 /PROTOTYPE BREAKPOINT 010005 5406 JMP I 6 /USED BY PROGRAMS WITH JSBITS(10)=1 010006 7741 DNAME, UDNAME /WHEN ODT IS RELOADED ON A BREAKPOINT 0007 *7 010007 0000 EXTEMP, 0 010010 1427 RSTCOD-1 010011 7755 MREAD-2 0012 *12 010012 0000 TOTE, 0 010013 0000 KEEP, 0 010014 0000 INST, 0 010015 7777 SHUT, -1 010016 0000 TRAD, 0;SHNDLR 010017 7607 010020 0000 WORD, 0;0 010021 0000 010022 0000 LINK, 0 010023 0000 SAC, 0 010024 0000 CAD, 0;0 010025 0000 010026 0000 CKT, 0;0 010027 0000 010030 0000 GAME, 0;0 010031 0000 010032 0000 FROG, 0;0 010033 0000 010034 7760 TEMP, MREAD-MSTADR-2 010035 0000 JSTEMP, 0 010036 0000 DATFLD, 0 010037 0000 INDFLD, 0 010040 7777 MASK, 7777 010041 0000 LIMLO, 0 010042 7577 LIMHI, 7577 010043 0000 ADR, 0 010044 1000 FLDTST, TAD ZERO /LOC. 0 HAS LAST REAL CORE FIELD 010045 1061 TAD NWD /IF USER TRIES TO ADDRESS NON- 010046 7740 CM40, SMA SZA CLA /EXISTENT CORE, A ? RETURNS V50 CM40 010047 5451 JMP I PNO 010050 5434 JMP I TEMP /HE'S OK. 010051 0323 PNO, NO 010052 0000 TOTTST, 0 /TEST FOR COMMAND WITHOUT ADDRESS 010053 1012 TAD TOTE 010054 1155 TAD [7 010055 7640 SZA CLA 010056 2052 ISZ TOTTST INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 41-1 010057 5452 JMP I TOTTST 010060 0000 STOFLG, 0 010061 0000 NWD, 0 010062 0620 TJUMP, JUMP 010063 0000 NOUGHT, 0 010064 0000 LOAD, 0 /SUBROUTINE TO LOAD PROGRAM CODE 010065 1464 TAD I LOAD 010066 4553 JMS I [GETADR 010067 0201 REDE5, READ5 010070 1443 TAD I ADR /RETURNS ADDRESS CONTENTS IN AC 010071 6201 CDF 0 010072 2064 ISZ LOAD 010073 5464 JMP I LOAD 010074 0000 IOTTST, 0 /TEST FOR ISOLATING I/O 010075 7332 CLA CLL CML RTR 010076 1014 TAD INST 010077 7630 SZL CLA 010100 2074 ISZ IOTTST 010101 5474 JMP I IOTTST 010102 0000 INCHAR, 0 /V50 $ 010104 0033 010105 1162 010106 0017 010107 0263 010110 0036 010111 7762 010112 0001 010113 7561 010114 0235 010115 0240 010116 7774 010117 7600 010120 0177 010121 7764 010122 7775 010123 7767 010124 6201 010125 7773 010126 6202 010127 7771 010130 7772 010131 1200 010132 5004 010133 0273 010134 0260 010135 0364 010136 0200 010137 5406 010140 6212 010141 7751 010142 0005 010143 7746 010144 7740 010145 1133 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 41-2 010146 7761 010147 0004 010150 7000 010151 7607 010152 0212 010153 1267 010154 7671 010155 0007 010156 1166 010157 7757 010160 7756 010161 7755 010162 7754 010163 0712 010164 0257 010165 1033 010166 0215 010167 0463 010170 0010 010171 1011 010172 7605 010173 1153 010174 1220 010175 1050 010176 1350 010177 0475 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 42 ACX 1120 CORX 1502 GREC 1162 MPARAM 7643 ADD 0564 COR0 1465 GTNMLP 0466 MPUNN 7757 ADR 0043 COR1 1472 G1400 1336 MREAD 7757 ALTDF1 1247 COR2 1474 HIORD 0022 MSTADR 7775 ALTDF2 1250 COR70 1500 INCHAR 0102 MSTCDF 7773 ALTLIM 1246 CRL 0327 INDF 1123 MSWITC 7764 ALTMOD 1121 CRLF 1112 INDFLD 0037 MTEMP 0027 ANALYZ 0202 CRL1 0340 INFILE 0261 MTRAD 7754 AS 0444 CRL2 0342 INIT 1400 MTRAD1 7755 ASADR 0447 CTCEX 1367 INST 0014 M1 1523 ASGNST 0452 CTCTST 1350 IOTTST 0074 M5200 1245 ASNORM 0425 CTRC 0235 JMPLIP 0460 NAMECT 0031 ASSIGN 0410 CTRLC 1073 JMPX 1657 NAME1 0025 BEGDIF 0046 CTRLU 1073 JMSJMP 1647 NAME2 0026 BEGGRP 0216 DATF 1124 JSBITS 7746 NAME3 0027 BEGLN 1200 DATFLD 0036 JSTEMP 0035 NAME4 0030 BKAROW 0315 DCB 7760 JUMP 0620 NMBASE 0032 BRKCOD 1134 DCDYES 0656 J7600 7751 NO 0323 BRKTST 1410 DECODE 0643 KCDF10 1424 NOAUTO 0754 BURP 0400 DEFALT 0042 KEEP 0013 NOBKAR 0213 BURPO 1426 DELIM 0040 KLIP 1525 NOIND 0757 BURP2 1427 DEVNAM 0320 KMREC 0007 NOREAD 1343 CAD 0024 DEV1 0033 LBCKUP 1146 NOUGHT 0063 CARRET 1065 DEV2 0034 LC 1356 NUM 0201 CCLA 1254 DFLTNM 0044 LENGTH 0554 NUMADD 0366 CD 0200 DLOOK 0263 LESSTN 1070 NUMBER 0340 CDCONT 1237 DNAME 0006 LFAILD 0573 NUMFUJ 0036 CDER0 0660 DSPCHL 1017 LFEED 1166 NUMLP 0344 CDER1 0377 DUMP 1153 LIMDIF 0047 NUMTST 0003 CDER2 0770 DVFLAG 0037 LIMHI 0042 NUMX 0023 CDER3 0602 DVICE 0043 LIMLO 0041 NWD 0061 CDINIT 1200 EFFADR 0712 LINK 0022 OCRLF 0475 CDM340 1365 EOBUFR 1312 LINKX 1121 ODTREC 0060 CDM40 1366 EONUM 0372 LIP 0600 ODTVER 6630 CDOVER 0326 EOSIM 1636 LIPTYP 0604 OLENGT 0740 CDRST 1244 EOTST 1641 LKUPLP 0546 OLFUDJ 0767 CDSKP 0260 EQUAL 0305 LKUPST 0566 OPENP 0731 CDVERS 6630 EXAM 0263 LKUPSW 0245 OPIN 0355 CERR 4024 EXTEMP 0007 LNAME 0553 OUTLIM 0050 CHFLP 0215 EXT1 0055 LOAD 0064 OUTSW 0041 CHLOOP 1007 EXT2 0062 LOOKUP 0540 PCHAR 1331 CINSRT 1055 EX2 0271 LT32K 1234 PERDSW 0035 CKADR 1310 FADR 1305 LXM 6200 PERIOD 0531 CKT 0026 FILLP 0227 LXR 0015 PLIP 1530 CLFINI 1066 FILLP1 0226 MAC 7771 PLKUPS 1251 CLRLIN 1077 FLDTST 0044 MARG1 7740 PNO 0051 CLXR 0017 FROG 0032 MASK 0040 PNUM 1011 CM40 0046 F1STUF 4020 MASKX 1122 PN2 1015 CONTIN 0635 GAME 0030 MCDF 7767 PODT 7752 CONTX 0640 GCH 0711 MCDREC 0051 PRINT 0066 CORE 1450 GETADR 1267 MGET 7667 PRMESG 1312 COREX 1513 GETHND 0051 MIFILE 7617 PRNAME 1342 CORLOC 1521 GIREC 1337 MKEEP 7756 PRNT 1155 CORSIZ 1524 GLINE 1002 MLINK 7772 PRWD 1321 CORV 1522 GNAME 0454 MOFILE 7600 PSPKG1 1255 INVISIBLE ODT PAL8-V50X 11-OCT-90 PAGE 42-1 PSTARS 1253 TTYOFF 0762 PUNN 0003 TTYTST 0602 P250 0722 TUSRFG 0053 P7603 7753 TYPD 1033 P7770 0750 TYPDX 1245 RACA 6175 TYPDXX 1047 RACB 6176 TYPE 1367 RACC 6177 TYPN 1050 RBFLAG 0024 TYPRET 1377 RBSPCL 1151 T1 0041 REA 0205 T174 1166 READ 0200 T400 0763 READ5 0201 T777 1663 REDE5 0067 UDNAME 7741 RESTRT 0676 UPAR1 0372 ROTLP 0354 UPAR2 0364 RSTCOD 1430 UPAR3 0350 RUBOUT 1131 USERCR 1516 RXM 6230 USERFG 0040 SAC 0023 WORD 0020 SEMI 0366 WSER 1064 SEX 0276 WSER1 1072 SHNDLR 7607 WSER2 1111 SHUT 0015 XCONT 0647 SIM 1200 XLODE 1220 SIMX 1600 XR 0016 SIMXT 1211 ZERO 0000 SLASH 0726 SLSHCH 0612 SLSHLP 0624 SOPR 1625 SPADR 1025 SPKLG1 0434 SROT 0306 STARJM 1252 STARNM 0503 STARSW 0475 STOFLG 0060 STORE 0463 SUBT 0563 SYSHND 4030 T 0020 TABL1 0240 TABL1A 0347 TABL2 0767 TABL2A 0370 TEMP 0034 TFPUTX 0054 TJUMP 0062 TMONIT 0052 TOTE 0012 TOTTST 0052 TRAD 0016 TRAP 0505 TT 0021 ERRORS DETECTED: 0 LINKS GENERATED: 0