1 2 /INTEGER OPERATING SYSTEM FOR ROGALGOL COMPILER CODE 3 /VERSION 4 4 5 FIELD 0 6 7 *30 8 000030 0000 SP, 0 9 000031 0000 XPUSH, 0; DCA I SP; CMA; TAD SP; DCA SP; JMP I XPUSH 000032 3430 000033 7040 000034 1030 000035 3030 000036 5431 10 11 000037 0000 XPOP, 0; ISZ SP; TAD I SP; JMP I XPOP 000040 2030 000041 1430 000042 5437 12 13 000043 5444 PNEXT, JMP I .+1; PNEX 000044 0223 14 000045 5446 NEXT, JMP I .+1; NEX 000046 0227 15 16 000047 0000 SUDOMQ, 0 17 000050 1326 XOUT, OUTDEV 18 19 000051 0544 PARAM=JMS I .; XPARAM 20 PUSH=JMS XPUSH 21 POP=JMS XPOP 22 000052 0201 NEXT6=JMS I .; XNEXT6 23 SW1=25 24 WORD=26 25 PC=10 26 27 000060 0000 *60; 0 /BIT11#0 FOR SYSTEMS OVERLAYS WHICHSET UP I/O DEVICE 28 /3 WITH SINGLE DISK(1) CALL. BIT0#0 FOR OPTION T. 29 30 *67 31 000067 0000 T1, 0 32 000070 0000 T2, 0 33 000071 0000 T3, 0 34 000072 0000 T4, 0 35 000073 0000 T5, 0 36 000074 0000 ABAS, 0 37 000075 0000 DEV, 0 38 000076 1476 AKBCHK, KBCHK 39 000077 1457 ADIX, ERR 40 41 *100 42 000100 0227 NEX; ARR; SDEV; READ; PUT; STRING; PRINT; CHIN; CHOUT /CODES 0-8 000101 0342 000102 0555 000103 1000 000104 1355 000105 1064 000106 1075 000107 0666 000110 1552 43 000111 0254 J; EXPR; EN; GET; ADD; IGET; IPUT /CODES 9-15 000112 0406 000113 0270 000114 1145 000115 1545 000116 0754 000117 0510 44 000120 0726 SET; NEG; STOP; MUL; DIV; SUB; EQ; NE; LT /CODES 16-24 000121 0525 000122 0553 000123 0447 000124 0457 000125 0561 000126 0565 000127 0600 000130 0610 45 000131 0616 GT; LE; GE; JNT; PNEXT; NOT; XAND; OR; INIT /CODES 25-33 000132 0624 000133 0632 000134 0640 000135 0043 000136 0531 000137 0535 000140 0655 000141 0421 46 000142 0672 FORST; EO; EP; GP; GG; DI; SKIP; NEX; SETH /CODES 34-42 000143 0267 000144 0262 000145 0765 000146 0400 000147 1303 000150 1556 000151 0227 000152 0670 47 000153 0267 EO; ETWO; ETHRE; EFOUR; EXTPR; STOP; STOP; STOP /CODES 43-50 000154 0266 000155 0265 000156 0264 000157 0405 000160 0553 000161 0553 000162 0553 48 000163 0553 STOP; STOP; STOP; STOP; STOP; STOP; STOP; STOP /CODES 51-58 000164 0553 000165 0553 000166 0553 000167 0553 000170 0553 000171 0553 000172 0553 49 000173 0553 STOP; STOP; STOP; STOP; STOP /CODES 59-63 000174 0553 000175 0553 000176 0553 000177 0553 50 51 *200 52 53 000200 5541 JMP I 141 /NO TEST FOR CODE PRESENT 54 55 000201 0000 XNEXT6, 0; ISZ SW1; JMP NEXWD 000202 2025 000203 5207 56 000204 1026 TAD WORD; AND (77; JMP I XNEXT6 000205 0377 000206 5601 57 000207 6211 NEXWD, CDF 10; TAD I PC; CDF 000210 1410 000211 6201 58 000212 3026 DCA WORD; CLA CMA; DCA SW1 000213 7240 000214 3025 59 000215 1026 TAD WORD; RTR; RTR; RTR; AND (77; JMP I XNEXT6 000216 7012 000217 7012 000220 7012 000221 0377 000222 5601 60 61 000223 3430 PNEX, DCA I SP; CMA; TAD SP; DCA SP 000224 7040 000225 1030 000226 3030 62 000227 2025 NEX, ISZ SW1; JMP NEXA 000230 5236 63 000231 1026 TAD WORD; AND (77; TAD (JMP I 100; DCA .+1; HLT 000232 0377 000233 1376 000234 3235 000235 7402 64 000236 6211 NEXA, CDF 10; TAD I PC; CDF 000237 1410 000240 6201 65 000241 3026 DCA WORD; CLA CMA; DCA SW1 000242 7240 000243 3025 66 000244 1026 TAD WORD; RTR; RTR; RTR; AND (77 000245 7012 000246 7012 000247 7012 000250 0377 67 000251 1376 TAD (JMP I 100; DCA .+1; HLT 000252 3253 000253 7402 68 69 000254 3025 J, DCA SW1; CMA; CDF 10; TAD I PC 000255 7040 000256 6211 000257 1410 70 000260 3010 DCA PC; JMP NEXA+1 000261 5237 71 72 000262 4452 EP, NEXT6; JMP EN 000263 5270 73 000264 7001 EFOUR, IAC 74 000265 7001 ETHRE, IAC 75 000266 7001 ETWO, IAC 76 000267 7001 EO, IAC 77 000270 3071 EN, DCA T3; JMS I AKBCHK /NUMBER OF PARAMS TO T3 000271 4476 78 000272 1023 TAD 23; DCA 11 /ADDRESS V0 NEW LEVEL 000273 3011 79 000274 1074 TAD ABAS; DCA I 11 /V0=OLD ARRAY BASE 000275 3411 80 000276 6211 CDF 10; TAD I PC; DCA T1 /ADDRESS OF PROCEDURE 000277 1410 000300 3067 81 000301 1467 TAD I T1; CDF; IAC; TAD 23; DCA 23 /ADD FIXED SPACE TO POINTER 000302 6201 000303 7001 000304 1023 000305 3023 82 000306 1022 TAD 22; DCA I 11 /SAVE BASE OF OLD LEVEL IN V1 000307 3411 83 000310 7040 CMA; TAD 11; DCA 22 /NEW BASE = OLD FREE SPACE POINTER+1 000311 1011 000312 3022 84 000313 1010 TAD PC; DCA I 11 /SAVE RETURN ADDRESS IN V2 000314 3411 85 000315 1067 TAD T1; DCA PC /SET PC TO ENTER PROCEDURE 000316 3010 86 000317 1071 TAD T3; SNA; JMP NEXA /ENTER IF NO PARAMS 000320 7450 000321 5236 87 000322 1011 TAD 11; IAC; DCA T2 /ADDRESS LAST PARAMATER 000323 7001 000324 3070 88 000325 1071 TAD T3; CIA; DCA T3 /SET UP COUNT 000326 7041 000327 3071 89 000330 2030 EP1, ISZ SP; TAD I SP; DCA I T2; ISZ T3; SKP; JMP NEXA 000331 1430 000332 3470 000333 2071 000334 7410 000335 5236 90 000336 7040 CMA; TAD T2; DCA T2 000337 1070 000340 3070 91 000341 5330 JMP EP1 92 93 000342 4452 ARR, NEXT6; CIA; DCA T4 /NO. OF DECLARATIONS 000343 7041 000344 3072 94 000345 4452 NEXT6; TAD 20; DCA T1 /ADDRESS OF FIRST 000346 1020 000347 3067 95 000350 4037 POP; DCA T2; POP; DCA T3 /BOUNDS 000351 3070 000352 4037 000353 3071 96 000354 1071 TAD T3; CIA; TAD T2; IAC; DCA T2 /SIZE 000355 7041 000356 1070 000357 7001 000360 3070 97 000361 1071 AR1, TAD T3; CIA; TAD 23; IAC; DCA I T1/ADDRESS ELEM. ZERO 000362 7041 000363 1023 000364 7001 000365 3467 98 000366 2067 ISZ T1; TAD 23; TAD T2; DCA 23 000367 1023 000370 1070 000371 3023 99 000372 2072 ISZ T4; JMP AR1; JMP I NEXT+1 000373 5361 000374 5446 100 101 000376 5500 *400 000377 0077 102 000400 4452 GG, NEXT6; TAD 20; DCA T1 000401 1020 000402 3067 103 000403 1467 TAD I T1; JMP I PNEXT+1 000404 5444 104 105 000405 7040 EXTPR, CMA 106 000406 3067 EXPR, DCA T1 107 000407 7040 CMA; TAD 22; DCA 11 /ADDRESS V0 000410 1022 000411 3011 108 000412 1011 TAD 11; DCA 23 /FREE SPACE POINTER=OLD BASE-1 000413 3023 109 000414 1411 TAD I 11; DCA ABAS 000415 3074 110 000416 1411 TAD I 11; DCA 22 /RESTORE OLD BASE 000417 3022 111 000420 5777 JMP EXCON 112 113 114 000421 3025 INIT, DCA SW1; CLA; DCA PC; IAC; DCA DEV /TELETYPE 000422 7200 000423 3010 000424 7001 000425 3075 115 000426 1245 TAD XEINT; DCA 20 /VARAIBLES START AFTER INTERPRETER 000427 3020 116 000430 1020 TAD 20; DCA 22 /LOCAL BASE IS GLOBAL BASE 000431 3022 117 000432 1021 TAD 21; TAD 22; DCA 23 /FREE SPACE POINTER 000433 1022 000434 3023 118 000435 1023 TAD 23; DCA ABAS /ARRAYS START AT BOTTOM OF FREE SPACE 000436 3074 119 000437 1246 TAD STSP; DCA SP /WORKING STACK BEFORE SYSTEM 000440 3030 120 000441 6014 RFC; TLS; PLS; JMP NEXT 000442 6046 000443 6026 000444 5045 121 000445 1600 XEINT, EINT 122 000446 5560 STSP, 5560 /JUST BELOW OS/8 DRIVER 123 124 AAAMUL=. 125 000447 3072 MUL, DCA T4; JMS SIGN1; DCA M1; JMS SIGN1 000450 4300 000451 3255 000452 4300 126 000453 3047 DCA SUDOMQ; JMS PSDMUY 000454 4776 127 000455 0000 M1, 0; JMP SIGN2 000456 5266 128 129 AAADIV=. 130 000457 3072 DIV, DCA T4; JMS SIGN1; DCA D1; JMS SIGN1 000460 4300 000461 3265 000462 4300 131 000463 3047 DCA SUDOMQ; JMS PSDDVI 000464 4775 132 000465 0000 D1, 0 133 000466 7200 SIGN2, CLA; TAD SUDOMQ; DCA SIGN1; TAD T4; RAR; CLA 000467 1047 000470 3300 000471 1072 000472 7010 000473 7200 134 000474 1300 TAD SIGN1; SZL; CIA; JMP PNEXT 000475 7430 000476 7041 000477 5043 135 000500 0000 SIGN1, 0; ISZ SP; TAD I SP; SPA; ISZ T4; SPA; CIA; JMP I SIGN1 000501 2030 000502 1430 000503 7510 000504 2072 000505 7510 000506 7041 000507 5700 136 137 000510 2030 IPUT, ISZ SP; TAD I SP; DCA T1 /VALUE 000511 1430 000512 3067 138 000513 4452 NEXT6; TAD 20; DCA T2 /ADDRESS ARRAY VARIABLE 000514 1020 000515 3070 139 000516 1470 TAD I T2; ISZ SP; TAD I SP; DCA T2 /ADDRESS ELEMENT 000517 2030 000520 1430 000521 3070 140 000522 1067 TAD T1; DCA I T2; JMP I NEXT+1 000523 3470 000524 5446 141 142 000525 2030 NEG, ISZ SP; TAD I SP; CIA; JMP I PNEXT+1 000526 1430 000527 7041 000530 5444 143 144 000531 2030 NOT, ISZ SP; TAD I SP; CMA; JMP I PNEXT+1 000532 1430 000533 7040 000534 5444 145 146 000535 2030 XAND, ISZ SP; TAD I SP; DCA T1; ISZ SP; TAD I SP 000536 1430 000537 3067 000540 2030 000541 1430 147 000542 0067 AND T1; JMP I PNEXT+1 000543 5444 148 149 000544 0000 XPARAM, 0 150 000545 2025 ISZ SW1; NOP; CDF 10 000546 7000 000547 6211 151 000550 1410 TAD I PC; CDF; JMP I XPARAM 000551 6201 000552 5744 152 153 000553 5754 STOP, JMP I .+1; WAIT 000554 1466 154 155 000555 2030 SDEV, ISZ SP; TAD I SP; DCA DEV; JMP I NEXT+1 000556 1430 000557 3075 000560 5446 156 157 000561 4037 SUB, POP; CIA; POP; JMP I PNEXT+1 000562 7041 000563 4037 000564 5444 158 159 000565 2030 EQ, ISZ SP; TAD I SP; CIA 000566 1430 000567 7041 160 000570 2030 ISZ SP; TAD I SP; SNA CLA; CMA; JMP I PNEXT+1 000571 1430 000572 7650 000573 7040 000574 5444 161 162 000575 1220 *600 000576 1254 000577 1364 163 164 000600 2030 NE, ISZ SP; TAD I SP; CIA; ISZ SP; TAD I SP 000601 1430 000602 7041 000603 2030 000604 1430 165 000605 7640 SZA CLA; CMA; JMP I PNEXT+1 000606 7040 000607 5444 166 167 000610 4037 LT, POP; CIA; POP; SPA CLA; CMA; JMP I PNEXT+1 000611 7041 000612 4037 000613 7710 000614 7040 000615 5444 168 169 000616 4037 GT, POP; CIA; POP; SMA SZA CLA; CMA; JMP I PNEXT+1 000617 7041 000620 4037 000621 7740 000622 7040 000623 5444 170 171 000624 4037 LE, POP; CIA; POP; SPA SNA CLA; CMA; JMP I PNEXT+1 000625 7041 000626 4037 000627 7750 000630 7040 000631 5444 172 173 000632 4037 GE, POP; CIA; POP; SMA CLA; CMA; JMP I PNEXT+1 000633 7041 000634 4037 000635 7700 000636 7040 000637 5444 174 175 000640 6211 JNT, CDF 10; TAD I PC 000641 1410 176 000642 6201 CDF; DCA T1; ISZ SP; TAD I SP; SZA CLA; JMP I .+5 000643 3067 000644 2030 000645 1430 000646 7640 000647 5654 177 000650 7040 CMA; TAD T1; DCA PC; JMP I .+1; NEXA 000651 1067 000652 3010 000653 5654 000654 0236 178 179 AAAOR=. 180 000655 4037 OR, POP; DCA T1; POP; SZA CLA; JMP ORTRU 000656 3067 000657 4037 000660 7640 000661 5264 181 000662 1067 TAD T1; JMP I PNEXT+1 000663 5444 182 000664 7040 ORTRU, CMA; JMP I PNEXT+1 000665 5444 183 184 000666 4777 CHIN, JMS INDEV; JMP I PNEXT+1 000667 5444 185 186 000670 4452 SETH, NEXT6; JMP I PNEXT+1 000671 5444 187 188 000672 2030 FORST, ISZ SP; TAD I SP; DCA T3 /FINAL VALUE 000673 1430 000674 3071 189 000675 2030 ISZ SP; TAD I SP; DCA T2 /INCREMENT 000676 1430 000677 3070 190 000700 4452 NEXT6; TAD P20; DCA T1 /GLOBAL OR LOCAL BASE 000701 1325 000702 3067 191 000703 4452 NEXT6; TAD I T1; DCA T1 /ADDRESS CONTROLLED VARIABLE 000704 1467 000705 3067 192 000706 1070 TAD T2; SMA CLA; CMA; DCA T4 /T4=0 IF INCR. NEGATIVE 000707 7700 000710 7040 000711 3072 193 000712 1070 TAD T2; TAD I T1; DCA I T1 /DO INCREMENT 000713 1467 000714 3467 194 000715 1467 TAD I T1; CIA; TAD T3; ISZ T4; CIA /FINAL-CURRENT 000716 7041 000717 1071 000720 2072 000721 7041 195 000722 7700 SMA CLA; CMA; JMP I PNEXT+1 000723 7040 000724 5444 196 000725 0020 P20, 20 197 198 000726 1025 SET, TAD SW1; SZA CLA; JMP SET1 /IS CONSTANT IN NEXT WORD? 000727 7640 000730 5335 199 000731 6211 CDF 10; TAD I PC; CDF; JMP I PNEXT+1 /YES 000732 1410 000733 6201 000734 5444 200 AASET1=. 201 000735 1026 SET1, TAD WORD; AND (77; DCA T2 /MS BITS 000736 0376 000737 3070 202 000740 6211 CDF 10; TAD I PC; CDF; DCA WORD 000741 1410 000742 6201 000743 3026 203 000744 1026 TAD WORD; RAL; AND (7600 /LS BITS 000745 7004 000746 0375 204 000747 1070 TAD T2; RTL; RTL; RTL; JMP I PNEXT+1 000750 7006 000751 7006 000752 7006 000753 5444 205 206 000754 4452 IGET, NEXT6; TAD 20; DCA T1 /ADDRESS ARRAY VARIABLE 000755 1020 000756 3067 207 000757 2030 ISZ SP; TAD I SP; TAD I T1; DCA T1 /ADDRESS ELEMENT 000760 1430 000761 1467 000762 3067 208 000763 1467 TAD I T1; JMP I PNEXT+1 000764 5444 209 210 000765 4452 GP, NEXT6; TAD 20; DCA T1 000766 1020 000767 3067 211 000770 2030 ISZ SP; TAD I SP; DCA I T1; JMP I NEXT+1 000771 1430 000772 3467 000773 5446 212 213 000775 7600 *1000 000776 0077 000777 1306 214 215 001000 3067 READ, DCA T1; DCA T2; JMS READ1 001001 3070 001002 4253 216 001003 1377 TAD (-215; SNA; JMP READ+2 001004 7450 001005 5202 217 001006 1376 TAD (215-240; SNA; JMP READ+2 001007 7450 001010 5202 218 001011 1375 TAD (240-212; SNA; JMP READ+2 001012 7450 001013 5202 219 001014 1374 TAD (212-255; SZA; JMP POS 001015 7440 001016 5221 220 001017 4253 JMS READ1; JMP LOOPR 001020 5226 221 001021 1373 POS, TAD (255; DCA T4; CMA; DCA T2; TAD T4 001022 3072 001023 7040 001024 3070 001025 1072 222 001026 1372 LOOPR, TAD (-260; SPA; JMP EREAD 001027 7510 001030 5246 223 001031 1371 TAD (-11; SMA SZA; JMP EREAD 001032 7540 001033 5246 224 001034 1370 TAD (11; DCA T3 001035 3071 225 001036 1067 TAD T1; CLL RTL; TAD T1; CLL RAL 001037 7106 001040 1067 001041 7104 226 001042 1071 TAD T3; DCA T1; JMS READ1; JMP LOOPR 001043 3067 001044 4253 001045 5226 227 001046 7200 EREAD, CLA; TAD T1; ISZ T2; CIA; JMP PNEXT 001047 1067 001050 2070 001051 7041 001052 5043 228 229 001053 0000 READ1, 0 230 001054 7240 CLA CMA; TAD DEV; SZA CLA; JMP NOECHO 001055 1075 001056 7640 001057 5262 231 001060 4767 JMS TTIN; JMP I READ1 001061 5653 232 001062 4766 NOECHO, JMS INDEV; JMP I READ1 001063 5653 233 234 001064 4452 STRING, NEXT6; SNA; JMP I NEXT+1 001065 7450 001066 5446 235 001067 1365 TAD (-40; SPA; TAD (100; TAD (240 001070 7510 001071 1364 001072 1363 236 001073 4450 JMS I XOUT; JMP STRING 001074 5264 237 238 AAPRIN=. 239 001075 4037 PRINT, POP; CLL; SPA; CIA CML; DCA SUDOMQ 001076 7100 001077 7510 001100 7061 001101 3047 240 001102 1373 TAD (255; SZL; JMS I XOUT; CLA; DCA T5 001103 7430 001104 4450 001105 7200 001106 3073 241 001107 4762 JMS PSDDVI; 12; DCA T1; JMS PSDDVI; 12; DCA T2 001110 0012 001111 3067 001112 4762 001113 0012 001114 3070 242 001115 4762 JMS PSDDVI; 12; DCA T3; TAD SUDOMQ; SZA; JMS DIG 001116 0012 001117 3071 001120 1047 001121 7440 001122 4333 243 001123 1071 TAD T3; JMS DIG; TAD T2; JMS DIG 001124 4333 001125 1070 001126 4333 244 001127 1067 TAD T1; TAD (260; JMS I XOUT; JMP NEXT 001130 1361 001131 4450 001132 5045 245 246 001133 0000 DIG, 0; SNA; JMP D0 001134 7450 001135 5341 247 001136 1361 PRDIG, TAD (260; JMS I XOUT; JMP I DIG 001137 4450 001140 5733 248 001141 1073 D0, TAD T5; SNA CLA; JMP I DIG; JMP PRDIG 001142 7650 001143 5733 001144 5336 249 250 001145 4452 GET, NEXT6; TAD 22; DCA T1 001146 1022 001147 3067 251 001150 1467 TAD I T1; JMP I PNEXT+1 001151 5444 252 253 254 001161 0260 *1200 001162 1220 001163 0240 001164 0100 001165 7740 001166 1306 001167 1440 001170 0011 001171 7767 001172 7520 001173 0255 001174 7735 001175 0026 001176 7755 001177 7563 255 256 001200 1457 INDLST, ERR; LSI; HSI; ERR; ERR; ERR; ERR; ERR 001201 1341 001202 1523 001203 1457 001204 1457 001205 1457 001206 1457 001207 1457 257 001210 1531 OUTLST, DUM; TTO; HSO; ERR; ERR; ERR; ERR; ERR 001211 1533 001212 1540 001213 1457 001214 1457 001215 1457 001216 1457 001217 1457 258 259 001220 0000 PSDDVI, 0 260 001221 3250 DCA PSDCAM; TAD I PSDDVI; ISZ PSDDVI 001222 1620 001223 2220 261 001224 7141 CLL CIA; DCA MQLMUY 001225 3251 262 001226 1253 TAD P7763; DCA PSDLSR; JMP .+11 001227 3252 001230 5241 263 001231 1250 TAD PSDCAM; RAL; DCA PSDCAM 001232 7004 001233 3250 264 001234 1250 TAD PSDCAM; TAD MQLMUY; SZL 001235 1251 001236 7430 265 001237 3250 DCA PSDCAM; CLA; TAD SUDOMQ; RAL; DCA SUDOMQ 001240 7200 001241 1047 001242 7004 001243 3047 266 001244 2252 ISZ PSDLSR; JMP .-14 001245 5231 267 001246 1250 TAD PSDCAM; JMP I PSDDVI 001247 5620 268 001250 0000 PSDCAM, 0 269 001251 0000 MQLMUY, 0 270 001252 0000 PSDLSR, 0 271 001253 7763 P7763, 7763 272 273 001254 0000 PSDMUY, 0 274 001255 7300 CLA CLL; DCA MQLMUY; TAD P7763; DCA PSDLSR 001256 3251 001257 1253 001260 3252 275 001261 1654 TAD I PSDMUY; DCA PSDCAM; ISZ PSDMUY; JMP .+10 001262 3250 001263 2254 001264 5274 276 001265 1251 TAD MQLMUY; SNL; JMP .+3 001266 7420 001267 5272 277 001270 7100 CLL; TAD PSDCAM; RAR 001271 1250 001272 7010 278 001273 3251 DCA MQLMUY; TAD SUDOMQ; RAR; DCA SUDOMQ 001274 1047 001275 7010 001276 3047 279 001277 2252 ISZ PSDLSR; JMP .-13; TAD MQLMUY; JMP I PSDMUY 001300 5265 001301 1251 001302 5654 280 281 282 001303 4037 DI, POP; JMS I ADIX; JMP NEXT 001304 4477 001305 5045 283 284 001306 0000 INDEV, 0; TAD DEV; SNA; JMP INZER 001307 1075 001310 7450 001311 5324 285 001312 1337 TAD XINLST; DCA .+1; HLT 001313 3314 001314 7402 286 001315 7450 SNA; JMP .-2; TAD (-377; SNA; JMP .-5 001316 5314 001317 1377 001320 7450 001321 5314 287 001322 1376 TAD (377; JMP I INDEV 001323 5706 288 001324 1060 INZER, TAD 60; JMP I INDEV 001325 5706 289 290 001326 0000 OUTDEV, 0; DCA T5; TAD DEV; TAD XOUTLST; DCA .+2 001327 3073 001330 1075 001331 1340 001332 3334 291 001333 1073 TAD T5; HLT; CLA; JMP I OUTDEV 001334 7402 001335 7200 001336 5726 292 001337 4600 XINLST, JMS I INDLST 293 001340 4610 XOUTLS, JMS I OUTLST 294 295 001341 0000 LSI, 0; KSF; JMP .-1; JMS I AKBCHK; KRB; JMP I LSI 001342 6031 001343 5342 001344 4476 001345 6036 001346 5741 296 297 001347 0000 SHL6, 0; RTL; RTL; RTL; AND (7700; JMP I SHL6 001350 7006 001351 7006 001352 7006 001353 0375 001354 5747 298 299 001355 4452 PUT, NEXT6; TAD 22; DCA T1 001356 1022 001357 3067 300 001360 2030 ISZ SP; TAD I SP; DCA I T1; JMP I NEXT+1 001361 1430 001362 3467 001363 5446 301 302 001364 1411 EXCON, TAD I 11; DCA PC /RESTORE PC 001365 3010 303 001366 2067 ISZ T1; JMP NEXA /TYPE PROCEDURE? 001367 5774 304 001370 3025 DCA SW1; TAD I 11; JMP I PNEXT+1 /YES, GET RESULT 001371 1411 001372 5444 305 306 001374 0236 *1400 001375 7700 001376 0377 001377 7401 307 308 001400 0000 MESS, 0; TAD I MESS; ISZ MESS; SNA; JMP I MESS 001401 1600 001402 2200 001403 7450 001404 5600 309 001405 4333 JMS TTO; CLA; JMP MESS+1 001406 7200 001407 5201 310 311 001410 0000 OCTOUT, 0; DCA SUDOMQ 001411 3047 312 001412 4777 JMS PSDDVI; 10; TAD (260; DCA DIG4 001413 0010 001414 1376 001415 3235 313 001416 4777 JMS PSDDVI; 10; TAD (260; DCA DIG3 001417 0010 001420 1376 001421 3234 314 001422 4777 JMS PSDDVI; 10; TAD (260; DCA DIG2 001423 0010 001424 1376 001425 3233 315 001426 1047 TAD SUDOMQ; TAD (260; JMS TTO 001427 1376 001430 4333 316 001431 7300 CLA CLL; JMS MESS 001432 4200 317 001433 0000 DIG2, 0 318 001434 0000 DIG3, 0 319 001435 0000 DIG4, 0; 0; JMP I OCTOUT 001436 0000 001437 5610 320 321 001440 0000 TTIN, 0; JMS LSI; JMS TTO 001441 4775 001442 4333 322 001443 1256 TAD XM215; SNA; JMP CR 001444 7450 001445 5250 323 001446 1254 CROUT, TAD X215; JMP I TTIN 001447 5640 324 001450 1255 CR, TAD X212; JMS TTO; CLA; JMP CROUT 001451 4333 001452 7200 001453 5246 325 001454 0215 X215, 215 326 001455 0212 X212, 212 327 001456 7563 XM215, -215 328 329 001457 0000 ERR, 0; CLA; TAD (277; JMS TTO; CLA 001460 7200 001461 1374 001462 4333 001463 7200 330 001464 1257 TAD ERR; JMS OCTOUT 001465 4210 331 001466 6032 WAIT, KCC; JMS MESS; 215; 212; 336; 0 001467 4200 001470 0215 001471 0212 001472 0336 001473 0000 332 001474 4276 JMS KBCHK; JMP .-1 001475 5274 333 334 001476 0000 KBCHK, 0; 335 001477 7600 X7600, 7600; KSF; JMP I KBCHK 001500 6031 001501 5676 336 001502 6034 KRS; TAD (-220; SNA; JMP EXECUT 001503 1373 001504 7450 001505 5317 337 001506 1372 TAD (220-223; SNA; JMP WAIT 001507 7450 001510 5266 338 001511 1371 TAD (223-203; SZA CLA; JMP I KBCHK 001512 7640 001513 5676 339 001514 6032 KCC; CDF CIF; JMP I X7600 001515 6203 001516 5677 340 001517 6032 EXECUT, KCC; CDF CIF; JMP I X200 001520 6203 001521 5722 341 001522 0200 X200, 200 342 343 344 001523 0000 HSI, 0; JMS KBCHK; RSF; JMP .-2; RRB RFC; JMP I HSI 001524 4276 001525 6011 001526 5324 001527 6016 001530 5723 345 001531 0000 DUM, 0; JMP I DUM 001532 5731 346 001533 0000 TTO, 0; TSF; JMP .-1; TLS; JMP I TTO 001534 6041 001535 5334 001536 6046 001537 5733 347 001540 0000 HSO, 0; PSF; JMP .-1; PLS; JMP I HSO 001541 6021 001542 5341 001543 6026 001544 5740 348 349 001545 2030 ADD, ISZ SP; TAD I SP; ISZ SP; TAD I SP; JMP I PNEXT+1 001546 1430 001547 2030 001550 1430 001551 5444 350 351 001552 2030 CHOUT, ISZ SP; TAD I SP; JMS I XOUT; JMP I NEXT+1 001553 1430 001554 4450 001555 5446 352 353 001556 1370 SKIP, TAD (215; JMS I XOUT; TAD (212; JMS I XOUT; JMP I NEXT+1 001557 4450 001560 1367 001561 4450 001562 5446 354 355 001567 0212 PAGE 001570 0215 001571 0020 001572 7775 001573 7560 001574 0277 001575 1341 001576 0260 001577 1220 356 EINT=. 357 $ AAADIV 0457 unreferenced AAAMUL 0447 unreferenced AAAOR 0655 unreferenced AAPRIN 1075 unreferenced AASET1 0735 unreferenced ABAS 0074 ADD 1545 ADIX 0077 AKBCHK 0076 AR1 0361 ARR 0342 CHIN 0666 CHOUT 1552 CR 1450 CROUT 1446 D0 1141 D1 0465 DEV 0075 DI 1303 DIG 1133 DIG2 1433 DIG3 1434 DIG4 1435 DIV 0457 DUM 1531 EFOUR 0264 EINT 1600 EN 0270 EO 0267 EP 0262 EP1 0330 EQ 0565 EREAD 1046 ERR 1457 ETHRE 0265 ETWO 0266 EXCON 1364 EXECUT 1517 EXPR 0406 EXTPR 0405 FORST 0672 GE 0632 GET 1145 GG 0400 GP 0765 GT 0616 HSI 1523 HSO 1540 IGET 0754 INDEV 1306 INDLST 1200 INIT 0421 INZER 1324 IPUT 0510 J 0254 JNT 0640 KBCHK 1476 LE 0624 LOOPR 1026 LSI 1341 LT 0610 M1 0455 MESS 1400 MQLMUY 1251 MUL 0447 NE 0600 NEG 0525 NEX 0227 NEXA 0236 NEXT 0045 NEXT6 4452 NEXWD 0207 NOECHO 1062 NOT 0531 OCTOUT 1410 OR 0655 ORTRU 0664 OUTDEV 1326 OUTLST 1210 P20 0725 P7763 1253 PARAM 4451 unreferenced PC 0010 PNEX 0223 PNEXT 0043 POP 4037 POS 1021 PRDIG 1136 PRINT 1075 PSDCAM 1250 PSDDVI 1220 PSDLSR 1252 PSDMUY 1254 PUSH 4031 unreferenced PUT 1355 READ 1000 READ1 1053 SDEV 0555 SET 0726 SET1 0735 SETH 0670 SHL6 1347 SIGN1 0500 SIGN2 0466 SKIP 1556 SP 0030 STOP 0553 STRING 1064 STSP 0446 SUB 0561 SUDOMQ 0047 SW1 0025 T1 0067 T2 0070 T3 0071 T4 0072 T5 0073 TTIN 1440 TTO 1533 WAIT 1466 WORD 0026 X200 1522 X212 1455 X215 1454 X7600 1477 XAND 0535 XEINT 0445 XINLST 1337 XM215 1456 XNEXT6 0201 XOUT 0050 XOUTLS 1340 XPARAM 0544 XPOP 0037 XPUSH 0031