1 2 /LOAD ALGOL INTERPRETIVE CODE TAPES 3 /MAIN LIST FROM 200-2777 4 /FORWARD REF LIST FROM 3000-3177 5 6 FIELD 0 7 8 T1=1 9 T2=2 10 T3=3 11 T4=4 12 T5=5 13 SP1=10 14 15 000020 0000 *20; 0 /NO SYSTEM OVERLAY (YET) 16 / NON-ZERO FOR SYS (=40 UNDER OS8) 17 / BITS 8-11 USED TO SET FIELD IF NON ZERO. 18 / FIELD USED - VALUE-1 19 /BIT 0=1 IF OUTPUT DEVICE FILE STRUCTURED 20 000021 7600 *21;PSYS, 7600 / EXIT TO SYS (CAN BE PATCHED) 21 *30 22 000030 0000 DEV, 0 23 000031 0000 DSWIT, 0 24 000032 0000 CHAR, 0 25 000033 0000 CL, 0 26 000034 0000 RESULT, 0 27 000035 0000 VALUE, 0 28 000036 0000 SVRES, 0 29 000037 0000 EX1, 0 30 000040 0000 AC1H, 0 31 000041 0000 AC1L, 0 32 000042 0000 SIGN, 0 33 000043 0000 EXP, 0 34 000044 0000 HORD, 0 35 000045 0000 LORD, 0 36 000046 0000 X, 0 37 000047 0000 SUDOMQ, 0 38 39 000050 0140 INDLST, ERR; TTI; HSI; ERR; ERR; ERR; ERR; ERR 000051 0113 000052 0126 000053 0140 000054 0140 000055 0140 000056 0140 000057 0140 40 000060 0140 ODLST, ERR; TTO; HSO; ERR; ERR; ERR; ERR; ERR 000061 0121 000062 0133 000063 0140 000064 0140 000065 0140 000066 0140 000067 0140 41 000070 0140 ADI, ERR /FILE OPENING ROUTINE 42 43 000071 0000 INDEV, 0; CLA; TAD XINL; TAD DEV 000072 7200 000073 1100 000074 1030 44 000075 3076 DCA .+1; HLT; JMP I INDEV 000076 7402 000077 5471 45 000100 4450 XINL, JMS I INDLST 46 000101 0000 OUTDEV, 0; DCA T5; TAD XOUTL; TAD DEV 000102 3005 000103 1112 000104 1030 47 000105 3107 DCA .+2; TAD T5; HLT; CLA; JMP I OUTDEV 000106 1005 000107 7402 000110 7200 000111 5501 48 000112 4460 XOUTL, JMS I ODLST 49 50 000113 0000 TTI, 0; KSF; JMP .-1; KRB; JMS TTO; JMP I TTI 000114 6031 000115 5114 000116 6036 000117 4121 000120 5513 51 000121 0000 TTO, 0; TSF; JMP .-1; TLS; JMP I TTO 000122 6041 000123 5122 000124 6046 000125 5521 52 000126 0000 HSI, 0; RSF; JMP .-1; RRB RFC; JMP I HSI 000127 6011 000130 5127 000131 6016 000132 5526 53 000133 0000 HSO, 0; PSF; JMP .-1; PLS; JMP I HSO 000134 6021 000135 5134 000136 6026 000137 5533 54 55 000140 0000 ERR, 0; JMP I .+1; ERMES 000141 5542 000142 5134 56 57 000143 0000 MESS, 0; TAD I MESS; ISZ MESS; SNA; JMP I MESS 000144 1543 000145 2143 000146 7450 000147 5543 58 000150 4121 JMS TTO; CLA; JMP MESS+1 000151 7200 000152 5144 59 60 FLAC=EXP 61 ERR0=ERR 62 *200 63 000200 5777 JMP LOAD 64 000377 3200 *3200 65 003200 6046 LOAD, TLS; PLS; KCC; JMS MESS 003201 6026 003202 6032 003203 4143 66 003204 0302 "B;"I;"N;"A;"L;"G;"O;"L;" ;0 003205 0311 003206 0316 003207 0301 003210 0314 003211 0307 003212 0317 003213 0314 003214 0240 003215 0000 67 003216 1020 TAD 20; SNA CLA; JMP NOSYS 003217 7650 003220 5230 68 003221 7001 IAC; JMS I ADI /OPEN FILES ON MASS STORAGE 003222 4470 69 003223 1377 TAD (3; DCA INDN; TAD (3; DCA OUTDN 003224 3345 003225 1377 003226 3346 70 003227 5252 JMP CLEAR 71 003230 4143 NOSYS, JMS MESS; "I; "N; "-; 0; JMS TTI; TAD (-260; DCA INDN 003231 0311 003232 0316 003233 0255 003234 0000 003235 4113 003236 1376 003237 3345 72 003240 4143 JMS MESS; " ;"O; "U; "T; "-; 0 003241 0240 003242 0317 003243 0325 003244 0324 003245 0255 003246 0000 73 003247 4113 JMS TTI; TAD (-260; DCA OUTDN 003250 1376 003251 3346 74 003252 6014 CLEAR, RFC; TAD INDN; DCA DEV 003253 1345 003254 3030 75 003255 1375 TAD (200-2777; DCA MLSIZE 003256 3774 76 003257 1373 TAD (177; DCA SP1; TAD (177-3177; DCA CL 003260 3010 003261 1372 003262 3033 77 003263 3410 DCA I SP1; ISZ CL; JMP .-2 /CLEAR LISTS 003264 2033 003265 5263 78 003266 1371 TAD (202; DCA CL; JMS FDIG /SKIP TO *1 003267 3033 003270 4770 79 003271 7240 LOOP, CLA CMA; DCA SIGN 003272 3042 80 003273 4767 JMS IN; JMS DIGTST; SKP; JMP CONST 003274 4766 003275 7410 003276 5765 81 003277 1364 TAD (-"-; SNA; JMP NCONST 003300 7450 003301 5763 82 003302 1362 TAD ("--";; SNA; JMP LOOP /IGNORE MULTIPLE : 003303 7450 003304 5271 83 003305 1361 TAD (";-"*; SNA; JMP END 003306 7450 003307 5317 84 003310 1360 TAD ("*-"L; SNA; JMP LABEL 003311 7450 003312 5757 85 003313 1356 TAD ("L-"F; SNA; JMP FCON; JMS ERR 003314 7450 003315 5755 003316 4140 86 003317 7240 END, CLA CMA; TAD CL; DCA CL /ADDRESS OF FIXED SPACE 003320 1033 003321 3033 87 003322 6211 CDF 10; TAD I CL; DCA I (176 /SAVE IT 003323 1433 003324 3754 88 003325 1033 TAD CL; IAC; DCA I (175 /NEXT FREE SPACE 003326 7001 003327 3753 89 003330 1352 TAD (JMP I 177; DCA I (201; CDF 003331 3751 003332 6201 90 003333 4143 JMS MESS; 215;212;"E;"N;"D;"S;" ;0 003334 0215 003335 0212 003336 0305 003337 0316 003340 0304 003341 0323 003342 0240 003343 0000 91 003344 5750 JMP PUNCH 92 003345 0000 INDN, 0 93 003346 0000 OUTDN, 0 94 95 003350 3400 *3400 003351 0201 003352 5577 003353 0175 003354 0176 003355 4104 003356 0006 003357 3601 003360 7736 003361 0021 003362 7762 003363 4123 003364 7523 003365 4124 003366 3733 003367 4014 003370 3750 003371 0202 003372 5000 003373 0177 003374 4153 003375 5201 003376 7520 003377 0003 96 003400 1033 PUNCH, TAD CL; JMS OCTOUT; TAD OUTDN; DCA DEV 003401 4777 003402 1776 003403 3030 97 003404 6211 CDF 10; TAD (614; DCA I (177 003405 1375 003406 3774 98 003407 1373 TAD (CDF CIF 10; DCA I (200; CDF 003410 3772 003411 6201 99 / NOW CHECK IF OPTION 0 - 7 USED FOR FIELD SETTING 100 003412 1020 TAD 20; AND (17; TAD (-1; SMA 003413 0371 003414 1370 003415 7500 101 003416 5235 JMP PUNCH2; CLA 003417 7200 102 003420 4143 JMS MESS; 215;212; "F;"I;"E;"L;"D;"?; 0 003421 0215 003422 0212 003423 0306 003424 0311 003425 0305 003426 0314 003427 0304 003430 0277 003431 0000 103 003432 4113 JMS TTI; TAD (-260; AND (7 003433 1367 003434 0366 104 003435 7106 PUNCH2, CLL RTL; RAL; TAD (300; DCA T1 /FIELD SETTING 003436 7004 003437 1365 003440 3001 105 003441 1020 TAD 20; SPA CLA; TAD (175; TAD (-200; DCA T2 003442 7710 003443 1364 003444 1363 003445 3002 106 003446 1372 PLOOP1, TAD (200; JMS OUTDEV; ISZ T2; JMP PLOOP1 003447 4101 003450 2002 003451 5246 107 003452 1001 TAD T1; JMS OUTDEV 003453 4101 108 003454 1362 TAD (101; JMS OUTDEV; TAD (75; JMS OUTDEV /ORIGIN 175 003455 4101 003456 1361 003457 4101 109 003460 1360 TAD (176; DCA SUM; TAD (174; DCA SP1 003461 3350 003462 1357 003463 3010 110 003464 6211 PLOOP2, CDF 10; TAD I SP1; CDF; DCA EXP 003465 1410 003466 6201 003467 3043 111 003470 1043 TAD EXP; CLL RTR; RTR; RTR 003471 7112 003472 7012 003473 7012 112 003474 0356 AND (77; DCA T1; TAD T1; JMS OUTDEV 003475 3001 003476 1001 003477 4101 113 003500 1001 TAD T1; TAD SUM; DCA SUM 003501 1350 003502 3350 114 003503 1043 TAD EXP; AND (77; DCA T1 003504 0356 003505 3001 115 003506 1001 TAD T1; JMS OUTDEV; TAD T1; TAD SUM; DCA SUM 003507 4101 003510 1001 003511 1350 003512 3350 116 003513 1010 TAD SP1; CIA; TAD CL; SZA CLA; JMP PLOOP2 003514 7041 003515 1033 003516 7640 003517 5264 117 003520 1350 TAD SUM; CLL RTR; RTR; RTR; AND (77; JMS OUTDEV 003521 7112 003522 7012 003523 7012 003524 0356 003525 4101 118 003526 1350 TAD SUM; AND (77; JMS OUTDEV 003527 0356 003530 4101 119 003531 1020 TAD 20; SPA CLA; TAD (175; TAD (-200; DCA T2 003532 7710 003533 1364 003534 1363 003535 3002 120 003536 1372 PLOOP3, TAD (200; JMS OUTDEV; ISZ T2; JMP PLOOP3 003537 4101 003540 2002 003541 5336 121 003542 1020 TAD 20; SNA CLA; HLT /STOP IF NO SYSTEM 003543 7650 003544 7402 122 003545 1355 TAD (232; JMS OUTDEV; JMP I PSYS /ELSE CLOSE O/P FILE 003546 4101 003547 5421 123 003550 0000 SUM, 0 124 125 003555 0232 *3600 003556 0077 003557 0174 003560 0176 003561 0075 003562 0101 003563 7600 003564 0175 003565 0300 003566 0007 003567 7520 003570 7777 003571 0017 003572 0200 003573 6213 003574 0177 003575 0614 003576 3346 003577 5200 126 127 003600 7577 MAXLOC, 7577 /CAN USE ALL OF F1 128 003601 4777 LABEL, JMS IN; JMS DIGTST; JMS ERR 003602 4333 003603 4140 129 003604 3034 DCA RESULT; JMS RCON; DCA CHAR; JMS CHKLNO /LABEL NUMBER TO RESULT 003605 4776 003606 3032 003607 4775 130 003610 1032 TAD CHAR; TAD (-",; SNA; JMP DECLAB 003611 1374 003612 7450 003613 5243 131 003614 1373 TAD (",-"=; SNA; JMP DEFLAB 003615 7450 003616 5246 132 003617 1372 TAD ("=-";; SZA; JMS ERR 003620 7440 003621 4140 133 003622 4771 STLAB, JMS LOOKUP; JMP NOTDECL /STORE LABEL. DECLARED? 003623 5226 134 003624 4320 JMS STORE; JMP LOOP /YES STORE IT 003625 5770 135 003626 4320 NOTDEC, JMS STORE; CMA; TAD CL /STORE LAST ADDRESS USED IN PROG 003627 7040 003630 1033 136 003631 3405 DCA I T5 /AND THIS ADDRESS IN MAIN TABLE 137 003632 1034 TAD RESULT; JMS SFWD /SEE IF ITS IN FORWARD LIST 003633 4767 138 003634 5770 JMP LOOP /FINISHED IF ALREADY THERE 139 003635 4767 JMS SFWD; SKP; JMS ERR /ELSE LOOK FOR SLOT 003636 7410 003637 4140 140 003640 1034 TAD RESULT; DCA I T1; JMP LOOP /AND MAKE ENTRY 003641 3401 003642 5770 141 003643 1033 DECLAB, TAD CL; DCA VALUE; JMP LABVAL /VALUE IS CURRENT ADDRESS 003644 3035 003645 5274 142 003646 1034 DEFLAB, TAD RESULT; DCA SVRES /SAVE LABEL BEING DEFINED 003647 3036 143 003650 4777 JMS IN; JMS DIGTST; JMP DEFL1 /ANOTHER LABEL? 003651 4333 003652 5263 144 003653 3034 DCA RESULT; JMS RCON /NO, READ CONSTANT 003654 4776 145 003655 7200 CLA; TAD RESULT 003656 1034 146 003657 3035 DEFL2, DCA VALUE; TAD SVRES; DCA RESULT /RESTORE LABEL 003660 1036 003661 3034 147 003662 5274 JMP LABVAL 148 003663 1317 DEFL1, TAD PL; SZA CLA; JMS ERR /CHECK FOR L 003664 7640 003665 4140 149 003666 3034 DCA RESULT; JMS RCON; JMS CHKLNO /READ DEFINING LABEL 003667 4776 003670 4775 150 003671 4771 JMS LOOKUP; JMS ERR; JMP DEFL2 /CHECK DECLARED, VALUE IN AC 003672 4140 003673 5257 151 003674 4771 LABVAL, JMS LOOKUP; SKP; JMS ERR /FAIL IF ALREADY DECLARED 003675 7410 003676 4140 152 003677 3004 DCA T4; DCA I T1 /SAVE ADDRESS LAST USE, CLEAR FREF ENTRY 003700 3401 153 003701 1035 TAD VALUE; DCA I T5 /PUT VALUE IN MAIN TABLE 003702 3405 154 003703 1004 DFR, TAD T4; SNA CLA; JMP LOOP /FREFS TO FILL IN? 003704 7650 003705 5770 155 003706 6211 CDF 10; TAD I T4; DCA T3 /YES, SAVE LINK 003707 1404 003710 3003 156 003711 1035 TAD VALUE; DCA I T4; CDF /REPLACE BY VALUE 003712 3404 003713 6201 157 003714 1003 TAD T3; DCA T4; JMP DFR /CHECK IF ANY MORE 003715 3004 003716 5303 158 003717 7464 PL, -"L 159 160 003720 0000 STORE, 0 161 003721 6211 CDF 10; DCA I CL; CDF; ISZ CL 003722 3433 003723 6201 003724 2033 162 003725 1033 TAD CL; CIA; TAD MAXLOC; SNA CLA; JMS ERR; JMP I STORE 003726 7041 003727 1200 003730 7650 003731 4140 003732 5720 163 164 003733 0000 DIGTST, 0 165 003734 1366 TAD (-260; SPA; JMP NOT1 003735 7510 003736 5345 166 003737 1365 TAD (260-272; SMA; JMP NOT2 003740 7500 003741 5346 167 003742 1364 TAD (272-260; ISZ DIGTST; JMP I DIGTST 003743 2333 003744 5733 168 003745 1365 NOT1, TAD (260-272 169 003746 1363 NOT2, TAD (272; JMP I DIGTST 003747 5733 170 171 003750 0000 FDIG, 0; JMS IN; JMS DIGTST; JMP .-2; JMP I FDIG 003751 4777 003752 4333 003753 5351 003754 5750 172 173 003763 0272 *4000 003764 0012 003765 7766 003766 7520 003767 4047 003770 3271 003771 4067 003772 0002 003773 7757 003774 7524 003775 4144 003776 4000 003777 4014 174 175 004000 0000 RCON, 0 176 004001 4214 JMS IN; JMS DIGTST; JMP I RCON 004002 4777 004003 5600 177 004004 3214 DCA IN; TAD RESULT; CLL RTL; TAD RESULT 004005 1034 004006 7106 004007 1034 178 004010 7104 CLL RAL; TAD IN; DCA RESULT; JMP RCON+1 004011 1214 004012 3034 004013 5201 179 180 004014 0000 IN, 0 181 004015 4071 JMS INDEV; TAD PM215; SNA; TAD (";-215 004016 1241 004017 7450 004020 1376 182 004021 1242 TAD PM212; SNA; JMP IN+1 004022 7450 004023 5215 183 004024 1243 TAD PM240; SNA; JMP IN+1 004025 7450 004026 5215 184 004027 1244 TAD PM377; SNA; JMP IN+1 004030 7450 004031 5215 185 004032 1245 TAD PM211; SNA; JMP IN+1 004033 7450 004034 5215 186 004035 1246 TAD P211; SNA; JMP IN+1; JMP I IN 004036 7450 004037 5215 004040 5614 187 004041 7563 PM215, -215 188 004042 0003 PM212, 215-212 189 004043 7752 PM240, 212-240 190 004044 7641 PM377, 240-377 191 004045 0166 PM211, 377-211 192 004046 0211 P211, 211 193 194 004047 0000 SFWD, 0 /SEARCH FORWARD LIST, LABEL NO. IN AC 195 004050 7041 CIA; DCA T2; TAD (-200; DCA T3 004051 3002 004052 1375 004053 3003 196 004054 1374 TAD (2777; DCA T1 004055 3001 197 004056 2001 SFWD1, ISZ T1; TAD I T1; TAD T2 004057 1401 004060 1002 198 004061 7650 SNA CLA; JMP I SFWD /EXIT 1 IF FOUND, T1^ENTRY 004062 5647 199 004063 2003 ISZ T3; JMP SFWD1 /IF NOT CHECK IF EXHAUSTED 004064 5256 200 004065 2247 ISZ SFWD; JMP I SFWD /AND EXIT 2 IF SO 004066 5647 201 202 004067 0000 LOOKUP, 0 /LOOKUP LABEL NO. IN RESULT, AC=0 203 004070 1034 TAD RESULT; TAD (200; DCA T5 /POINT AT MAIN ENTRY 004071 1373 004072 3005 204 004073 1034 TAD RESULT; JMS SFWD; JMP INFWD /SEARCH FORWARD LIST 004074 4247 004075 5302 205 004076 1405 TAD I T5; SZA; ISZ LOOKUP /EXIT 2 IF DECLARED 004077 7440 004100 2267 206 004101 5667 JMP I LOOKUP /ELSE EXIT 1, NO PREVIOUS USE 207 004102 1405 INFWD, TAD I T5; JMP I LOOKUP /ADDRESS OF PREVIOUS USE 004103 5667 208 209 004104 4772 FCON, JMS FINPUT; TAD DSWIT; SNA CLA; JMP FCON 004105 1031 004106 7650 004107 5304 210 004110 1043 TAD FLAC; JMS STORE; TAD FLAC+1; JMS STORE 004111 4771 004112 1044 004113 4771 211 004114 1045 TAD FLAC+2; JMS STORE 004115 4771 212 004116 4214 FC1, JMS IN; TAD (-";; SZA CLA; JMP FC1; JMP LOOP 004117 1370 004120 7640 004121 5316 004122 5767 213 004123 3042 NCONST, DCA SIGN 214 004124 3034 CONST, DCA RESULT; JMS RCON; CLA; TAD RESULT 004125 4200 004126 7200 004127 1034 215 004130 2042 ISZ SIGN; CIA; JMS STORE; JMP LOOP 004131 7041 004132 4771 004133 5767 216 217 004134 0000 DIX, 0; TAD 77; TAD (-ERR; SNA CLA; JMS ERR /IS DIX0 THERE? 004135 1077 004136 1366 004137 7650 004140 4140 218 004141 7201 CLA IAC; JMS I 77; JMP I DIX /YES, DO IT 004142 4477 004143 5734 219 220 004144 0000 CHKLNO, 0; CLA; TAD RESULT; TAD MLSIZE; SZA SMA CLA; JMS ERR 004145 7200 004146 1034 004147 1353 004150 7740 004151 4140 221 004152 5744 JMP I CHKLNO 222 223 004153 0000 MLSIZE, 0 224 /NEW FLOATING POINT ROUTINES. WRITTEN TO USE EAE, FOR NON-EAE 225 /MACHINES ADD INTEGER MULTIPLY AND DIVIDE AND SHIFT RIGHT LOGICAL. 226 227 004166 7640 *4200 004167 3271 004170 7505 004171 3720 004172 5400 004173 0200 004174 2777 004175 7600 004176 0056 004177 3733 228 229 004200 0000 FGET, 0; SNA; TAD I FGET; ISZ FGET; TAD M1; DCA 11 004201 7450 004202 1600 004203 2200 004204 1371 004205 3011 230 004206 1411 TAD I 11; DCA EXP 004207 3043 231 004210 1411 TAD I 11; DCA HORD 004211 3044 232 004212 1411 TAD I 11; DCA LORD; JMP I FGET 004213 3045 004214 5600 233 234 004215 0000 GETOP, 0; TAD M1; DCA 11 004216 1371 004217 3011 235 004220 1411 TAD I 11; DCA EX1 004221 3037 236 004222 1411 TAD I 11; DCA AC1H 004223 3040 237 004224 1411 TAD I 11; DCA AC1L; JMP I GETOP 004225 3041 004226 5615 238 239 004227 0000 FADD, 0; SNA; TAD I FADD; ISZ FADD 004230 7450 004231 1627 004232 2227 240 004233 4215 JMS GETOP; JMS ADD; JMP I FADD 004234 4777 004235 5627 241 242 004236 0000 FMUL, 0; SNA; TAD I FMUL; ISZ FMUL; JMS GETOP 004237 7450 004240 1636 004241 2236 004242 4215 243 004243 4776 JMS FMULT; JMP I FMUL 004244 5636 244 245 004245 0000 XORSGN, 0 /SET SIGN FOR MULTIPLY AND DIVIDE 246 004246 7330 CLA CLL CML RAR; AND EXP; TAD EX1 004247 0043 004250 1037 247 004251 7004 RAL; CLA RAR; DCA SIGN 004252 7210 004253 3042 248 004254 7350 CLA CLL CMA RAR; AND EXP; DCA EXP 004255 0043 004256 3043 249 004257 7350 CLA CLL CMA RAR; AND EX1; DCA EX1; JMP I XORSGN 004260 0037 004261 3037 004262 5645 250 251 004263 0000 FPUT, 0; SNA; TAD I FPUT; ISZ FPUT 004264 7450 004265 1663 004266 2263 252 004267 1371 TAD M1; DCA 11 004270 3011 253 004271 1043 TAD EXP; DCA I 11; TAD HORD; DCA I 11 004272 3411 004273 1044 004274 3411 254 004275 1045 TAD LORD; DCA I 11; JMP I FPUT 004276 3411 004277 5663 255 256 004300 0000 FDIV, 0; SNA; TAD I FDIV; ISZ FDIV; JMS GETOP 004301 7450 004302 1700 004303 2300 004304 4215 257 004305 4775 JMS DIV; JMP I FDIV 004306 5700 258 259 004307 0000 FINVD, 0; SNA; TAD I FINVD; DCA DIVOP; ISZ FINVD 004310 7450 004311 1707 004312 3317 004313 2307 260 004314 4263 JMS FPUT; EX1 /FLAC TO OPERAND 004315 0037 261 004316 4200 JMS FGET 262 004317 0000 DIVOP, 0 /OPERAND TO FLAC 263 004320 4775 JMS DIV; JMP I FINVD 004321 5707 264 265 004322 0000 FINVS, 0; SNA; TAD I FINVS; ISZ FINVS; JMS GETOP 004323 7450 004324 1722 004325 2322 004326 4215 266 004327 7330 CLA CLL CML RAR; TAD EXP; DCA EXP /NEGATE FLAC 004330 1043 004331 3043 267 004332 4777 JMS ADD; JMP I FINVS 004333 5722 268 269 004334 0000 FSUB, 0; SNA; TAD I FSUB; ISZ FSUB; JMS GETOP 004335 7450 004336 1734 004337 2334 004340 4215 270 004341 7330 CLA CLL CML RAR; TAD EX1; DCA EX1 /NEGATE OPERAND 004342 1037 004343 3037 271 004344 4777 JMS ADD; JMP I FSUB 004345 5734 272 273 004346 0000 SQUARE, 0; JMS FMUL; EXP; JMP I SQUARE 004347 4236 004350 0043 004351 5746 274 275 004352 0000 FLOAT, 0; CLA CLL CML RAR; AND EXP; DCA SIGN 004353 7330 004354 0043 004355 3042 276 004356 1043 TAD EXP; SPA; CML CIA 004357 7510 004360 7061 277 004361 3044 DCA HORD; DCA LORD 004362 3045 278 004363 1370 TAD FLO2; TAD SIGN; DCA EXP /ADD SIGN BIT 004364 1042 004365 3043 279 004366 4774 JMS NORM; JMP I FLOAT 004367 5752 280 004370 2014 FLO2, 2014 281 282 004371 7777 M1, -1 283 004374 4472 *4400 004375 4600 004376 5221 004377 4400 284 285 004400 0000 ADD, 0 286 004401 7330 CLA CLL CML RAR; AND EXP; TAD EX1 004402 0043 004403 1037 287 004404 7710 SPA CLA; JMP SUB /SUBTRACT IF SIGNS DIFFER 004405 5234 288 004406 7010 RAR; DCA SIGN /ELSE RESULT SAME SIGN 004407 3042 289 004410 4777 JMS ALIGN; JMP I ADD 004411 5600 290 004412 1045 TAD LORD; TAD AC1L; DCA LORD 004413 1041 004414 3045 291 004415 7004 RAL; TAD HORD; TAD AC1H 004416 1044 004417 1040 292 004420 7430 SZL; JMP ADDOV /MUST SHIFT IF OVERFLOWED 004421 5224 293 004422 3044 DCA HORD; JMP I ADD /IF NOT MUST BE NORMALISED 004423 5600 294 004424 7010 ADDOV, RAR; DCA HORD; TAD LORD; RAR; DCA LORD 004425 3044 004426 1045 004427 7010 004430 3045 295 004431 2043 ISZ EXP; JMP I ADD; JMS ERR0 004432 5600 004433 4140 296 004434 7330 SUB, CLA CLL CML RAR; AND EXP; DCA SIGN 004435 0043 004436 3042 297 004437 4777 JMS ALIGN; JMP I ADD 004440 5600 298 004441 1041 TAD AC1L; CIA; TAD LORD; DCA LORD 004442 7041 004443 1045 004444 3045 299 004445 1040 TAD AC1H; CMA; SZL; CLL IAC 004446 7040 004447 7430 004450 7101 300 004451 1044 TAD HORD; DCA HORD 004452 3044 301 004453 7430 SZL; JMP SUBOK /DID WE SUBTRACT SMALLER? 004454 5270 302 004455 1045 TAD LORD; CIA; DCA LORD /NO SO NEGATE RESULT 004456 7041 004457 3045 303 004460 1044 TAD HORD; CMA; SZL; IAC; DCA HORD 004461 7040 004462 7430 004463 7001 004464 3044 304 004465 7330 CLA CLL CML RAR; TAD EXP; DCA EXP 004466 1043 004467 3043 305 004470 4272 SUBOK, JMS NORM; JMP I ADD 004471 5600 306 307 308 004472 0000 NORM, 0 309 004473 7330 CLA CLL CML RAR; AND EXP; DCA SIGN 004474 0043 004475 3042 310 004476 7350 CLA CLL CMA RAR; AND EXP; DCA EXP 004477 0043 004500 3043 311 004501 1044 TAD HORD; SZA CLA; JMP HORNZ 004502 7640 004503 5320 312 004504 1045 TAD LORD; SZA; JMP LORNZ 004505 7440 004506 5311 313 004507 3043 RZERO, DCA EXP; JMP I NORM 004510 5672 314 004511 3044 LORNZ, DCA HORD; DCA LORD /SHIFT 12 PLACES 004512 3045 315 004513 1376 TAD (-14; TAD EXP; SPA; JMP UFLO 004514 1043 004515 7510 004516 5343 316 004517 3043 DCA EXP 317 004520 1044 HORNZ, TAD HORD; SPA CLA; JMP ENORM 004521 7710 004522 5337 318 004523 1045 TAD LORD; CLL RAL; DCA LORD 004524 7104 004525 3045 319 004526 1044 TAD HORD; RAL; DCA HORD 004527 7004 004530 3044 320 004531 7040 CMA; TAD EXP; SPA; JMP UFLO 004532 1043 004533 7510 004534 5343 321 004535 3043 DCA EXP; JMP HORNZ 004536 5320 322 004537 1043 ENORM, TAD EXP; TAD SIGN; DCA EXP; JMP I NORM 004540 1042 004541 3043 004542 5672 323 004543 7200 UFLO, CLA; TAD SIGN; DCA EXP 004544 1042 004545 3043 324 004546 7330 CLA CLL CML RAR; DCA HORD; DCA LORD /MAKE SMALLEST NO. 004547 3044 004550 3045 325 004551 5672 JMP I NORM 326 327 004552 0000 MQLAUY, 0 /SIMULATE MQL MQA MUY 328 004553 3370 DCA MQL2; TAD SUDOMQ; DCA MQL1 004554 1047 004555 3367 329 004556 1370 TAD MQL2; DCA SUDOMQ 004557 3047 330 004560 1752 TAD I MQLAUY; ISZ MQLAUY; DCA MQL3 004561 2352 004562 3365 331 004563 1367 TAD MQL1; JMS PSDMUY 004564 4775 332 004565 0000 MQL3, 0; JMP I MQLAUY 004566 5752 333 004567 0000 MQL1, 0 334 004570 0000 MQL2, 0 335 336 004575 4736 *4600 004576 7764 004577 5000 337 004600 0000 DIV, 0; TAD HORD; SNA CLA; JMP I DIV /DIVIDEND ZERO 004601 1044 004602 7650 004603 5600 338 004604 1040 TAD AC1H; SNA CLA; JMS ERR0 /ERROR DIVISOR ZERO 004605 7650 004606 4140 339 004607 4777 JMS XORSGN /SET SIGN AND REMOVE SIGN BITS 340 004610 1037 TAD EX1; CIA; TAD EXP; TAD (2001 /SUBTRACT 004611 7041 004612 1043 004613 1376 341 004614 7510 SPA; JMS ERR0; TAD SIGN; DCA EXP /FAIL OVER/UNDERFLOW 004615 4140 004616 1042 004617 3043 342 004620 3046 DCA X; TAD AC1L; DCA DV3; TAD AC1H; DCA DV4 004621 1041 004622 3244 004623 1040 004624 3265 343 004625 1265 TAD DV4; DCA DV2 004626 3237 344 004627 1044 TAD HORD; CLL RAR; DCA HORD 004630 7110 004631 3044 345 004632 1045 TAD LORD; RAR; DCA SUDOMQ; TAD HORD; JMS PSDDVI 004633 7010 004634 3047 004635 1044 004636 4775 346 004637 0000 DV2, 0; DCA DV2; TAD SUDOMQ; DCA HORD; JMS PSDMUY 004640 3237 004641 1047 004642 3044 004643 4336 347 004644 0000 DV3, 0; CLL CIA; TAD DV2; SNA; JMP DV5 004645 7141 004646 1237 004647 7450 004650 5273 348 004651 7420 SNL; JMP DV6; DCA DV3 004652 5303 004653 3244 349 004654 7040 CMA; DCA X; TAD SUDOMQ; CLL CIA; DCA SUDOMQ 004655 3046 004656 1047 004657 7141 004660 3047 350 004661 7420 SNL; CMA; TAD DV3; JMS PSDDVI 004662 7040 004663 1244 004664 4775 351 004665 0000 DV4, 0; CLA; TAD SUDOMQ; CLL CML; ISZ X; CLL CIA 004666 7200 004667 1047 004670 7120 004671 2046 004672 7141 352 004673 3045 DV5, DCA LORD; SNL; CMA; TAD HORD; SMA; JMP DV7 004674 7420 004675 7040 004676 1044 004677 7500 004700 5323 353 004701 3044 DCA HORD; JMP I DIV 004702 5600 354 004703 7041 DV6, CIA; DCA DV2; TAD DV4; CLL CIA; TAD DV2 004704 3237 004705 1265 004706 7141 004707 1237 355 004710 7420 SNL; JMP .+5; DCA DV2; CMA; TAD HORD; DCA HORD 004711 5316 004712 3237 004713 7040 004714 1044 004715 3044 356 004716 7200 CLA; TAD DV2; SZA; JMP DV4-1; JMP DV5-1 004717 1237 004720 7440 004721 5264 004722 5272 357 004723 3044 DV7, DCA HORD; TAD LORD; CLL RAL; DCA LORD 004724 1045 004725 7104 004726 3045 358 004727 1044 TAD HORD; RAL; DCA HORD /SHIFT RESULT LEFT IF NOT NORMALISED 004730 7004 004731 3044 359 004732 7040 CMA; TAD EXP; DCA EXP; JMP I DIV 004733 1043 004734 3043 004735 5600 360 361 004736 0000 PSDMUY, 0; DCA MUYAC; TAD (-15; DCA MUYC 004737 3366 004740 1374 004741 3367 362 004742 1736 TAD I PSDMUY; DCA MUYOP; ISZ PSDMUY 004743 3365 004744 2336 363 004745 7100 CLL; JMP MUYST 004746 5355 364 004747 7420 MUYL, SNL; JMP .+3 004750 5353 365 004751 7100 CLL; TAD MUYOP; RAR; DCA MUYAC 004752 1365 004753 7010 004754 3366 366 004755 1047 MUYST, TAD SUDOMQ; RAR; DCA SUDOMQ 004756 7010 004757 3047 367 004760 1366 TAD MUYAC; ISZ MUYC; JMP MUYL; CLL; JMP I PSDMUY 004761 2367 004762 5347 004763 7100 004764 5736 368 004765 0000 MUYOP, 0 369 004766 0000 MUYAC, 0 370 004767 0000 MUYC, 0 371 372 004774 7763 *5000 004775 5312 004776 2001 004777 4245 373 374 005000 0000 ALIGN, 0 375 005001 1040 TAD AC1H; SNA CLA; JMP I ALIGN /ZERO OPERAND 005002 7650 005003 5600 376 005004 1044 TAD HORD; SZA CLA; JMP NOTZ /ZERO FLAC 005005 7640 005006 5217 377 005007 7300 RESOP, CLA CLL; TAD EX1; DCA EXP 005010 1037 005011 3043 378 005012 1040 TAD AC1H; DCA HORD 005013 3044 379 005014 1041 TAD AC1L; DCA LORD; JMP I ALIGN /ADDITION DONE 005015 3045 005016 5600 380 005017 7350 NOTZ, CLA CLL CMA RAR; AND EXP; DCA EXP 005020 0043 005021 3043 381 005022 7350 CLA CLL CMA RAR; AND EX1; CIA 005023 0037 005024 7041 382 005025 1043 TAD EXP; SNA; JMP DONE 005026 7450 005027 5251 383 005030 7500 SMA; JMP SHOP /JMP IF FLAC LARGER 005031 5257 384 005032 1377 TAD (27; SPA; JMP RESOP /TOO MUCH SHIFT OF FLAC 005033 7510 005034 5207 385 005035 1376 TAD (-27; DCA SHFT 005036 3275 386 005037 7350 CLA CLL CMA RAR; AND EX1; DCA EXP /TRANSFER EXPONENT 005040 0037 005041 3043 387 005042 1045 TAD LORD; DCA SUDOMQ; TAD HORD; JMS DLSR 005043 3047 005044 1044 005045 4276 388 005046 3044 DCA HORD; TAD SUDOMQ; DCA LORD 005047 1047 005050 3045 389 005051 2200 DONE, ISZ ALIGN 390 005052 7300 RESAC, CLA CLL; TAD EXP; TAD SIGN; DCA EXP; JMP I ALIGN 005053 1043 005054 1042 005055 3043 005056 5600 391 005057 1376 SHOP, TAD (-27; SMA SZA; JMP RESAC /TOO MUCH OPERAND SHIFT 005060 7540 005061 5252 392 005062 1375 TAD (26; CMA; DCA SHFT 005063 7040 005064 3275 393 005065 1041 TAD AC1L; DCA SUDOMQ; TAD AC1H; JMS DLSR 005066 3047 005067 1040 005070 4276 394 005071 3040 DCA AC1H; TAD SUDOMQ; DCA AC1L; JMP DONE 005072 1047 005073 3041 005074 5251 395 005075 0000 SHFT, 0 396 397 005076 0000 DLSR, 0; DCA DLSR1 005077 3325 398 005100 1275 TAD SHFT; TAD (14; SPA SNA; JMP MTH11 005101 1374 005102 7550 005103 5320 399 005104 7200 CLA; TAD DLSR1 005105 1325 400 005106 7110 SHRL, CLL RAR; DCA DLSR1 005107 3325 401 005110 1047 TAD SUDOMQ; RAR; DCA SUDOMQ; TAD DLSR1 005111 7010 005112 3047 005113 1325 402 005114 2275 SHTEST, ISZ SHFT; JMP SHRL; CLL; JMP I DLSR 005115 5306 005116 7100 005117 5676 403 005120 1373 MTH11, TAD (-1; DCA SHFT /MABE NO EXTRA ONES NEEDED 005121 3275 404 005122 1325 TAD DLSR1; DCA SUDOMQ; JMP SHTEST 005123 3047 005124 5314 405 005125 0000 DLSR1, 0 406 407 005126 0000 FNEG, 0; TAD EXP; SZA; TAD (4000; DCA EXP; JMP I FNEG 005127 1043 005130 7440 005131 1372 005132 3043 005133 5726 408 409 005134 4143 ERMES, JMS MESS; 215; 212;"?; 0 005135 0215 005136 0212 005137 0277 005140 0000 410 005141 1140 TAD ERR; JMS OCTOUT; JMP PLOOP3+4 005142 4771 005143 5770 411 412 005170 3542 *5200 005171 5200 005172 4000 005173 7777 005174 0014 005175 0026 005176 7751 005177 0027 413 005200 0000 OCTOUT, 0; RAL; DCA T1; TAD (-4; DCA T2 005201 7004 005202 3001 005203 1377 005204 3002 414 005205 1001 OCTO, TAD T1; RAL; RTL; DCA T1 005206 7004 005207 7006 005210 3001 415 005211 1001 TAD T1; AND (7; TAD (260; JMS TTO; CLA 005212 0376 005213 1375 005214 4121 005215 7200 416 005216 2002 ISZ T2; JMP OCTO; JMP I OCTOUT 005217 5205 005220 5600 417 418 005221 0000 FMULT, 0; TAD HORD; SZA CLA; TAD AC1H; SZA CLA; JMP DOMUL 005222 1044 005223 7640 005224 1040 005225 7640 005226 5233 419 005227 3043 DCA EXP; DCA HORD; DCA LORD; JMP I FMULT 005230 3044 005231 3045 005232 5621 420 005233 4774 DOMUL, JMS XORSGN /EXTRACT SIGN BITS 421 005234 1043 TAD EXP; TAD EX1; TAD (-2000; SPA; JMS ERR0 /OVERFLOW 005235 1037 005236 1373 005237 7510 005240 4140 422 005241 1042 TAD SIGN; DCA EXP /ADD EXPONENTS 005242 3043 423 005243 1045 TAD LORD; DCA MP1; TAD AC1H; DCA SUDOMQ; JMS PSDMUY 005244 3250 005245 1040 005246 3047 005247 4772 424 005250 0000 MP1, 0; DCA MP1 /2ND POSITION 005251 3250 425 005252 1041 TAD AC1L; DCA M2; TAD HORD; JMS MQLAUY 005253 3256 005254 1044 005255 4771 426 005256 0000 M2, 0; TAD MP1 /ADD PREVIOUS 2ND POSITION BITS 005257 1250 427 005260 3047 DCA SUDOMQ; RAL; DCA M2 /PUT THEM IN MQ, SAVE CARRY 005261 7004 005262 3256 428 005263 1044 TAD HORD; DCA M3; TAD AC1H; JMS MQLAUY 005264 3267 005265 1040 005266 4771 429 005267 0000 M3, 0; TAD M2 /ADD CARRY FROM 2ND POSITION 005270 1256 430 005271 3044 DCA HORD; TAD SUDOMQ; DCA LORD 005272 1047 005273 3045 431 005274 1044 TAD HORD; SPA CLA; JMP I FMULT 005275 7710 005276 5621 432 005277 7300 CLA CLL; TAD LORD; RAL; DCA LORD 005300 1045 005301 7004 005302 3045 433 005303 1044 TAD HORD; RAL; DCA HORD 005304 7004 005305 3044 434 005306 7040 CMA; TAD EXP; DCA EXP; JMP I FMULT 005307 1043 005310 3043 005311 5621 435 /MINIMUM POSSIBLE PRODUCT IS 0.25 436 437 005312 0000 PSDDVI, 0 438 005313 3347 DCA DVIAC; TAD I PSDDVI; ISZ PSDDVI 005314 1712 005315 2312 439 005316 3346 DCA PLUSOP; TAD PLUSOP; CLL CIA; DCA DVIOP 005317 1346 005320 7141 005321 3351 440 005322 1370 TAD (-15; DCA DVIC; JMP DIVST 005323 3350 005324 5333 441 005325 1347 DIVL, TAD DVIAC; RAL; TAD DVIOP 005326 7004 005327 1351 442 005330 7420 SNL; JMP NO 005331 5343 443 005332 3347 YES, DCA DVIAC 444 005333 1047 DIVST, TAD SUDOMQ; RAL; DCA SUDOMQ 005334 7004 005335 3047 445 005336 2350 ISZ DVIC; JMP DIVL; TAD DVIAC; CLL; JMP I PSDDVI 005337 5325 005340 1347 005341 7100 005342 5712 446 005343 1346 NO, TAD PLUSOP; CML; JMP YES 005344 7020 005345 5332 447 005346 0000 PLUSOP, 0 448 005347 0000 DVIAC, 0 449 005350 0000 DVIC, 0 450 005351 0000 DVIOP, 0 451 452 453 005370 7763 *5400 005371 4552 005372 4736 005373 6000 005374 4245 005375 0260 005376 0007 005377 7774 454 005400 0000 FINPUT, 0 455 005401 7240 CLA CMA; DCA PERSW; CMA; DCA NEGMKR 005402 3313 005403 7040 005404 3312 456 005405 3031 DCA DSWIT; DCA EXP; DCA HORD; DCA LORD 005406 3043 005407 3044 005410 3045 457 005411 3314 DPART, DCA FRACD /ZERO DIGITS AFTER POINT 458 005412 4320 NDIG, JMS DIGIN; JMP NOTDIG; ISZ DSWIT; ISZ FRACD 005413 5230 005414 2031 005415 2314 459 005416 4777 JMS FMUL; TEN; JMS FPUT; TEM; JMS FGET; DIG-1 005417 5507 005420 4776 005421 5515 005422 4775 005423 5504 460 005424 4774 JMS NORM; JMS FADD; TEM; JMP NDIG /RESULT*10+DIGIT 005425 4773 005426 5515 005427 5212 461 005430 2313 NOTDIG, ISZ PERSW; JMP CONT1 /SECOND PERIOD? 005431 5237 462 005432 2305 ISZ DIG; ISZ DIG; CLA SKP; JMP DPART /NO, IF PERIOD READ ON 005433 2305 005434 7610 005435 5211 463 005436 3314 DCA FRACD /IF NOT ANY PERIOD NO FRACTIONAL DIGITS 464 005437 2312 CONT1, ISZ NEGMKR; JMS FNEG 005440 4772 465 005441 7240 CLA CMA; DCA NEGMKR /SET UP FOR EXPONENT 005442 3312 466 005443 1032 TAD CHAR; TAD (-"E; SNA CLA 005444 1371 005445 7650 467 005446 4320 NEXD, JMS DIGIN; JMP ENDEXP 005447 5256 468 005450 1046 TAD X; CLL RTL; TAD X; CLL RAL; TAD DIG; JMP NEXD /ACCUMULATE EXPONENT 005451 7106 005452 1046 005453 7104 005454 1305 005455 5246 469 005456 1046 ENDEXP, TAD X; ISZ NEGMKR; CIA; CIA; TAD FRACD /-(DECIMAL EXPONENT) 005457 2312 005460 7041 005461 7041 005462 1314 470 005463 7141 CLL CIA; SPA; CLL CML CIA; CMA; DCA FRACD /-(DEC EXP. + 1) 005464 7510 005465 7161 005466 7040 005467 3314 471 005470 7004 RAL; TAD JMSI; DCA FLINS /MAKE JMS FMUL OR JMS FDIV 005471 1301 005472 3276 472 005473 2314 MORE, ISZ FRACD; JMP FLINS; JMP I FINPUT 005474 5276 005475 5600 473 005476 0000 FLINS, 0; TEN; JMP MORE /*10 OR /10 005477 5507 005500 5273 474 005501 4702 JMSI, JMS I .+1; FMUL; FDIV 005502 4236 005503 4300 475 005504 2014 2014 476 005505 0000 DIG, 0; 0 005506 0000 477 005507 2004 TEN, 2004; 5000; 0 005510 5000 005511 0000 478 005512 0000 NEGMKR, 0 479 005513 0000 PERSW, 0 480 005514 0000 FRACD, 0 481 005515 0000 TEM, 0; 0; 0 005516 0000 005517 0000 482 483 005520 0000 DIGIN, 0 484 005521 3046 DCA X; JMS FLIN; TAD CHAR; TAD (-"+; SNA; JMP NOTPL 005522 4344 005523 1032 005524 1370 005525 7450 005526 5333 485 005527 1367 TAD ("+-"-; SZA CLA; JMP NOTPL+1; DCA NEGMKR 005530 7640 005531 5334 005532 3312 486 005533 4344 NOTPL, JMS FLIN; TAD CHAR; TAD (-272; CLL 005534 1032 005535 1366 005536 7100 487 005537 1365 TAD (12; DCA DIG; SZL; ISZ DIGIN; JMP I DIGIN /EXIT2 IF DIGIT 005540 3305 005541 7430 005542 2320 005543 5720 488 489 005544 0000 FLIN, 0; JMS INDEV; DCA CHAR; TAD CHAR; SNA; JMP FLIN+1 005545 4071 005546 3032 005547 1032 005550 7450 005551 5345 490 005552 1364 TAD (-377; SNA CLA; JMP FINPUT+1; JMP I FLIN 005553 7650 005554 5201 005555 5744 491 492 005564 7401 $ 005565 0012 005566 7506 005567 7776 005570 7525 005571 7473 005572 5126 005573 4227 005574 4472 005575 4200 005576 4263 005577 4236 AC1H 0040 AC1L 0041 ADD 4400 ADDOV 4424 ADI 0070 ALIGN 5000 CHAR 0032 CHKLNO 4144 CL 0033 CLEAR 3252 CONST 4124 CONT1 5437 DECLAB 3643 DEFL1 3663 DEFL2 3657 DEFLAB 3646 DEV 0030 DFR 3703 DIG 5505 DIGIN 5520 DIGTST 3733 DIV 4600 DIVL 5325 DIVOP 4317 DIVST 5333 DIX 4134 DLSR 5076 DLSR1 5125 DOMUL 5233 DONE 5051 DPART 5411 DSWIT 0031 DV2 4637 DV3 4644 DV4 4665 DV5 4673 DV6 4703 DV7 4723 DVIAC 5347 DVIC 5350 DVIOP 5351 END 3317 ENDEXP 5456 ENORM 4537 ERMES 5134 ERR 0140 ERR0 0140 EX1 0037 EXP 0043 FADD 4227 FC1 4116 FCON 4104 FDIG 3750 FDIV 4300 FGET 4200 FINPUT 5400 FINVD 4307 FINVS 4322 FLAC 0043 FLIN 5544 FLINS 5476 FLO2 4370 FLOAT 4352 FMUL 4236 FMULT 5221 FNEG 5126 FPUT 4263 FRACD 5514 FSUB 4334 GETOP 4215 HORD 0044 HORNZ 4520 HSI 0126 HSO 0133 IN 4014 INDEV 0071 INDLST 0050 INDN 3345 INFWD 4102 JMSI 5501 LABEL 3601 LABVAL 3674 LOAD 3200 LOOKUP 4067 LOOP 3271 LORD 0045 LORNZ 4511 M1 4371 M2 5256 M3 5267 MAXLOC 3600 MESS 0143 MLSIZE 4153 MORE 5473 MP1 5250 MQL1 4567 MQL2 4570 MQL3 4565 MQLAUY 4552 MTH11 5120 MUYAC 4766 MUYC 4767 MUYL 4747 MUYOP 4765 MUYST 4755 NCONST 4123 NDIG 5412 NEGMKR 5512 NEXD 5446 NO 5343 NORM 4472 NOSYS 3230 NOT1 3745 NOT2 3746 NOTDEC 3626 NOTDIG 5430 NOTPL 5533 NOTZ 5017 OCTO 5205 OCTOUT 5200 ODLST 0060 OUTDEV 0101 OUTDN 3346 P211 4046 PERSW 5513 PL 3717 PLOOP1 3446 PLOOP2 3464 PLOOP3 3536 PLUSOP 5346 PM211 4045 PM212 4042 PM215 4041 PM240 4043 PM377 4044 PSDDVI 5312 PSDMUY 4736 PSYS 0021 PUNCH 3400 PUNCH2 3435 RCON 4000 RESAC 5052 RESOP 5007 RESULT 0034 RZERO 4507 unreferenced SFWD 4047 SFWD1 4056 SHFT 5075 SHOP 5057 SHRL 5106 SHTEST 5114 SIGN 0042 SP1 0010 SQUARE 4346 STLAB 3622 unreferenced STORE 3720 SUB 4434 SUBOK 4470 SUDOMQ 0047 SUM 3550 SVRES 0036 T1 0001 T2 0002 T3 0003 T4 0004 T5 0005 TEM 5515 TEN 5507 TTI 0113 TTO 0121 UFLO 4543 VALUE 0035 X 0046 XINL 0100 XORSGN 4245 XOUTL 0112 YES 5332