1 /STANDARD FUNCTIONS FOR ROGALGOL 2 3 FIELD 1 4 5 *5040 6 015040 0000 FIX, 0; CLA; TAD EXP; SMA CLA; CMA; DCA SIGN 015041 7200 015042 1044 015043 7700 015044 7040 015045 3043 7 015046 7350 CLA CLL CMA RAR; AND EXP; TAD FIX1 015047 0044 015050 1272 8 015051 7550 SPA SNA; JMP TOSMAL 015052 5267 9 015053 1273 TAD FIX2; SMA; JMS I FIX3 015054 7500 015055 4674 10 015056 3275 DCA FIX4; TAD HORD 015057 1045 11 015060 7110 CLL RAR; ISZ FIX4; JMP .-2 015061 2275 015062 5260 12 015063 2043 ISZ SIGN; CIA; DCA EXP; JMP I FIX 015064 7041 015065 3044 015066 5640 13 015067 7200 TOSMAL, CLA; DCA EXP; JMP I FIX 015070 3044 015071 5640 14 015072 6000 FIX1, -2000 15 015073 7764 FIX2, -14 16 015074 1200 FIX3, 1200 17 015075 0000 FIX4, 0 18 19 015076 6000 SIN2, 6000; 5125; 5422 015077 5125 015100 5422 20 015101 1775 SIN3, 1775; 5054; 5154 015102 5054 015103 5154 21 015104 5771 SIN4, 5771; 4357; 1430 015105 4357 015106 1430 22 015107 2001 FEX1, 2001; 5612; 5070 015110 5612 015111 5070 23 015112 1777 EX2, 1777; 5427; 1032 015113 5427 015114 1032 24 015115 2006 EX3, 2006; 7405; 6130 015116 7405 015117 6130 25 015120 6012 EX4, 6012; 4547; 1570 015121 4547 015122 1570 26 015123 2004 EX5, 2004; 6003; 6602 015124 6003 015125 6602 27 015126 1776 AT1, 1776; 5455; 4336 015127 5455 015130 4336 28 015131 2002 AT2, 2002; 7326; 2162 015132 7326 015133 2162 29 015134 2003 AT3, 2003; 6606; 1560 015135 6606 015136 1560 30 015137 6003 AT4, 6003; 7066; 5222 015140 7066 015141 5222 31 015142 2002 AT5, 2002; 6503; 7330 015143 6503 015144 7330 32 015145 5777 AT6, 5777; 4170; 7700 015146 4170 015147 7700 33 015150 2001 AT7, 2001; 5626; 6300 015151 5626 015152 6300 34 015153 2000 LN1, 2000; 5520; 2360 015154 5520 015155 2360 35 015156 2002 LN2, 2002; 5612; 5100 015157 5612 015160 5100 36 015161 2000 LN3, 2000; 7542; 1354 015162 7542 015163 1354 37 015164 2000 LN4, 2000; 4625; 3252 015165 4625 015166 3252 38 015167 2000 LN5, 2000; 4000; 0000 015170 4000 015171 0000 39 015172 2000 LN6, 2000; 5427; 1032 015173 5427 015174 1032 40 41 *5200 42 015200 0000 SINE, 0; JMS ABSFL; JMS FMUL; TWODPI 015201 4331 015202 4777 015203 5351 43 015204 4317 JMS SPLIT; TAD RSIGN; AND (3 015205 1341 015206 0376 44 015207 1375 TAD (JMP I SINFAN; DCA .+1; HLT 015210 3211 015211 7402 45 015212 5225 SINFAN, Q1; Q2; Q3; Q4 015213 5216 015214 5221 015215 5223 46 015216 4774 Q2, JMS FINVS; FONE; JMP Q1 015217 5346 015220 5225 47 015221 4773 Q3, JMS FNEG; JMP Q1 015222 5225 48 015223 4772 Q4, JMS FSUB; FONE 015224 5346 49 015225 4771 Q1, JMS FPUT; NEGMKR; JMS SQUARE; JMS FPUT; TEM 015226 7112 015227 4770 015230 4771 015231 7115 50 015232 4777 JMS FMUL; SIN4; JMS FADD; SIN3 015233 5104 015234 4767 015235 5101 51 015236 4777 JMS FMUL; TEM; JMS FADD; SIN2 015237 7115 015240 4767 015241 5076 52 015242 4777 JMS FMUL; TEM; JMS FADD; SIN1 015243 7115 015244 4767 015245 5354 53 015246 4777 JMS FMUL; NEGMKR; JMS RSIGN 015247 7112 015250 4341 54 015251 5600 JMP I SINE 55 56 015252 0000 COS, 0; JMS FADD; PIDTWO; JMS SINE; JMP I COS 015253 4767 015254 5556 015255 4200 015256 5652 57 58 015257 0000 FLEXP, 0 59 015260 4777 JMS FMUL; FEX1; JMS SPLIT 015261 5107 015262 4317 60 015263 4777 JMS FMUL; EX2; JMS FPUT; NEGMKR 015264 5112 015265 4771 015266 7112 61 015267 4770 JMS SQUARE; JMS FADD; EX3; JMS FINVD; EX4 015270 4767 015271 5115 015272 4766 015273 5120 62 015274 4767 JMS FADD; EX5; JMS FSUB; NEGMKR; JMS FPUT; TEM 015275 5123 015276 4772 015277 7112 015300 4771 015301 7115 63 015302 4765 JMS FGET; NEGMKR; ISZ EXP; NOP 015303 7112 015304 2044 015305 7000 64 015306 4764 JMS FDIV; TEM; JMS FADD; FONE 015307 7115 015310 4767 015311 5346 65 015312 4770 JMS SQUARE; TAD RSIGN; TAD EXP; DCA EXP 015313 1341 015314 1044 015315 3044 66 015316 5657 JMP I FLEXP 67 68 015317 0000 SPLIT, 0; JMS FPUT; EX1 /SAVE FLAC 015320 4771 015321 0040 69 015322 4763 JMS FIX; TAD EXP; DCA RSIGN /SAVE INTEGER PART 015323 1044 015324 3341 70 015325 4762 JMS FLOAT; JMS FNEG /-WHOLE NUMBER PART 015326 4773 71 015327 4761 JMS ADD; JMP I SPLIT 015330 5717 72 73 015331 0000 ABSFL, 0; CLA CLL CML RAR; AND EXP; DCA FLEXP /SAVE SIGN 015332 7330 015333 0044 015334 3257 74 015335 7350 CLA CLL CMA RAR; AND EXP; DCA EXP /ABS VALUE 015336 0044 015337 3044 75 015340 5731 JMP I ABSFL 76 77 015341 0000 RSIGN, 0; TAD EXP; TAD FLEXP; DCA EXP; JMP I RSIGN 015342 1044 015343 1257 015344 3044 015345 5741 78 79 015346 2001 FONE, 2001; 4000; 0 015347 4000 015350 0000 80 015351 2000 TWODPI, 2000; 5057; 4604 015352 5057 015353 4604 81 015354 2001 SIN1, 2001; 6220; 7716 015355 6220 015356 7716 82 83 015361 6000 *5400 015362 5752 015363 5040 015364 5700 015365 5600 015366 5707 015367 5627 015370 5746 015371 5663 015372 5734 015373 7560 015374 5722 015375 5612 015376 0003 015377 5636 84 015400 0000 ARCTAN, 0; JMS ABSFL; JMS FPUT; NEGMKR 015401 4777 015402 4776 015403 7112 85 015404 4775 JMS FSUB; FONE 015405 5346 86 015406 1044 TAD EXP; SPA CLA; JMP ATN1 015407 7710 015410 5220 87 015411 4774 JMS FGET; FONE; JMS FDIV; NEGMKR 015412 5346 015413 4773 015414 7112 88 015415 4776 JMS FPUT; NEGMKR; CLA CMA 015416 7112 015417 7240 89 015420 3260 ATN1, DCA LN 90 015421 4774 JMS FGET; NEGMKR; JMS SQUARE; JMS FPUT; TEM 015422 7112 015423 4772 015424 4776 015425 7115 91 015426 4771 JMS FADD; AT7; JMS FINVD; AT6; JMS FADD; AT5 015427 5150 015430 4770 015431 5145 015432 4771 015433 5142 92 015434 4771 JMS FADD; TEM; JMS FINVD; AT4 015435 7115 015436 4770 015437 5137 93 015440 4771 JMS FADD; AT3; JMS FADD; TEM 015441 5134 015442 4771 015443 7115 94 015444 4770 JMS FINVD; AT2; JMS FADD; AT1 015445 5131 015446 4771 015447 5126 95 015450 4767 JMS FMUL; NEGMKR; ISZ LN; JMP ATPOS 015451 7112 015452 2260 015453 5256 96 015454 4766 JMS FINVS; PIDTWO 015455 5556 97 015456 4765 ATPOS, JMS RSIGN; JMP I ARCTAN 015457 5600 98 99 015460 0000 LN, 0; TAD EXP; SPA SNA; JMS 1200 /ERROR IF <=0 015461 1044 015462 7550 015463 4764 100 015464 7352 CLA CLL CMA RTR; TAD EXP; SZA CLA; JMP DOLN /EXP NOT 1 015465 1044 015466 7640 015467 5302 101 015470 7330 CLA CLL CML RAR; TAD HORD; SNA; TAD LORD 015471 1045 015472 7450 015473 1046 102 015474 7640 SZA CLA; JMP DOLN /ARGUMENT NOT ONE 015475 5302 103 015476 3044 DCA EXP; DCA HORD; DCA LORD; JMP I LN 015477 3045 015500 3046 015501 5660 104 015502 1044 DOLN, TAD EXP; TAD (-2000; DCA ARCTAN 015503 1363 015504 3200 105 015505 1362 TAD (2000; DCA EXP 015506 3044 106 015507 4776 JMS FPUT; NEGMKR; JMS FADD; LN1 015510 7112 015511 4771 015512 5153 107 015513 4776 JMS FPUT; TEM; JMS FGET; NEGMKR; JMS FSUB; LN1 015514 7115 015515 4774 015516 7112 015517 4775 015520 5153 108 015521 4773 JMS FDIV; TEM; JMS FPUT; NEGMKR; JMS SQUARE 015522 7115 015523 4776 015524 7112 015525 4772 109 015526 4776 JMS FPUT; TEM; JMS FMUL; LN4; JMS FADD; LN3 015527 7115 015530 4767 015531 5164 015532 4771 015533 5161 110 015534 4767 JMS FMUL; TEM; JMS FADD; LN2; JMS FMUL; NEGMKR 015535 7115 015536 4771 015537 5156 015540 4767 015541 7112 111 015542 4775 JMS FSUB; LN5; JMS FPUT; TEM 015543 5167 015544 4776 015545 7115 112 015546 1200 TAD ARCTAN; DCA EXP; JMS FLOAT 015547 3044 015550 4761 113 015551 4771 JMS FADD; TEM; JMS FMUL; LN6 015552 7115 015553 4767 015554 5172 114 015555 5660 JMP I LN 115 116 015556 2001 PIDTWO, 2001; 6220; 7734 015557 6220 015560 7734 117 /NEW FLOATING POINT ROUTINES. WRITTEN TO USE EAE, FOR NON-EAE 118 /MACHINES ADD INTEGER MULTIPLY AND DIVIDE AND SHIFT RIGHT LOGICAL. 119 120 015561 5752 *40 015562 2000 015563 6000 015564 1200 015565 5341 015566 5722 015567 5636 015570 5707 015571 5627 015572 5746 015573 5700 015574 5600 015575 5734 015576 5663 015577 5331 121 010040 0000 EX1, 0 122 010041 0000 AC1H, 0 123 010042 0000 AC1L, 0 124 010043 0000 SIGN, 0 125 010044 0000 EXP, 0 126 010045 0000 HORD, 0 127 010046 0000 LORD, 0 128 010047 0000 X, 0 129 130 DSWIT=60; CHAR=57; SUDOMQ=33 131 132 /FIX UP LAST STACK LOCATION 133 *5600 134 135 015600 0000 FGET, 0; SNA; TAD I FGET; ISZ FGET; TAD M1; DCA 11 015601 7450 015602 1600 015603 2200 015604 1371 015605 3011 136 015606 1411 TAD I 11; DCA EXP 015607 3044 137 015610 1411 TAD I 11; DCA HORD 015611 3045 138 015612 1411 TAD I 11; DCA LORD; JMP I FGET 015613 3046 015614 5600 139 140 015615 0000 GETOP, 0; TAD M1; DCA 11 015616 1371 015617 3011 141 015620 1411 TAD I 11; DCA EX1 015621 3040 142 015622 1411 TAD I 11; DCA AC1H 015623 3041 143 015624 1411 TAD I 11; DCA AC1L; JMP I GETOP 015625 3042 015626 5615 144 145 015627 0000 FADD, 0; SNA; TAD I FADD; ISZ FADD 015630 7450 015631 1627 015632 2227 146 015633 4215 JMS GETOP; JMS ADD; JMP I FADD 015634 4777 015635 5627 147 148 015636 0000 FMUL, 0; SNA; TAD I FMUL; ISZ FMUL; JMS GETOP 015637 7450 015640 1636 015641 2236 015642 4215 149 015643 4776 JMS FMULT; JMP I FMUL 015644 5636 150 151 015645 0000 XORSGN, 0 /SET SIGN FOR MULTIPLY AND DIVIDE 152 015646 7330 CLA CLL CML RAR; AND EXP; TAD EX1 015647 0044 015650 1040 153 015651 7004 RAL; CLA RAR; DCA SIGN 015652 7210 015653 3043 154 015654 7350 CLA CLL CMA RAR; AND EXP; DCA EXP 015655 0044 015656 3044 155 015657 7350 CLA CLL CMA RAR; AND EX1; DCA EX1; JMP I XORSGN 015660 0040 015661 3040 015662 5645 156 157 015663 0000 FPUT, 0; SNA; TAD I FPUT; ISZ FPUT 015664 7450 015665 1663 015666 2263 158 015667 1371 TAD M1; DCA 11 015670 3011 159 015671 1044 TAD EXP; DCA I 11; TAD HORD; DCA I 11 015672 3411 015673 1045 015674 3411 160 015675 1046 TAD LORD; DCA I 11; JMP I FPUT 015676 3411 015677 5663 161 162 015700 0000 FDIV, 0; SNA; TAD I FDIV; ISZ FDIV; JMS GETOP 015701 7450 015702 1700 015703 2300 015704 4215 163 015705 4775 JMS DIV; JMP I FDIV 015706 5700 164 165 015707 0000 FINVD, 0; SNA; TAD I FINVD; DCA DIVOP; ISZ FINVD 015710 7450 015711 1707 015712 3317 015713 2307 166 015714 4263 JMS FPUT; EX1 /FLAC TO OPERAND 015715 0040 167 015716 4200 JMS FGET 168 015717 0000 DIVOP, 0 /OPERAND TO FLAC 169 015720 4775 JMS DIV; JMP I FINVD 015721 5707 170 171 015722 0000 FINVS, 0; SNA; TAD I FINVS; ISZ FINVS; JMS GETOP 015723 7450 015724 1722 015725 2322 015726 4215 172 015727 7330 CLA CLL CML RAR; TAD EXP; DCA EXP /NEGATE FLAC 015730 1044 015731 3044 173 015732 4777 JMS ADD; JMP I FINVS 015733 5722 174 175 015734 0000 FSUB, 0; SNA; TAD I FSUB; ISZ FSUB; JMS GETOP 015735 7450 015736 1734 015737 2334 015740 4215 176 015741 7330 CLA CLL CML RAR; TAD EX1; DCA EX1 /NEGATE OPERAND 015742 1040 015743 3040 177 015744 4777 JMS ADD; JMP I FSUB 015745 5734 178 179 015746 0000 SQUARE, 0; JMS FMUL; EXP; JMP I SQUARE 015747 4236 015750 0044 015751 5746 180 181 015752 0000 FLOAT, 0; CLA CLL CML RAR; AND EXP; DCA SIGN 015753 7330 015754 0044 015755 3043 182 015756 1044 TAD EXP; SPA; CML CIA 015757 7510 015760 7061 183 015761 3045 DCA HORD; DCA LORD 015762 3046 184 015763 1370 TAD FLO2; TAD SIGN; DCA EXP /ADD SIGN BIT 015764 1043 015765 3044 185 015766 4774 JMS NORM; JMP I FLOAT 015767 5752 186 015770 2014 FLO2, 2014 187 188 015771 7777 M1, -1 189 015774 6072 *6000 015775 6200 015776 6623 015777 6000 190 191 016000 0000 ADD, 0 192 016001 7330 CLA CLL CML RAR; AND EXP; TAD EX1 016002 0044 016003 1040 193 016004 7710 SPA CLA; JMP SUB /SUBTRACT IF SIGNS DIFFER 016005 5234 194 016006 7010 RAR; DCA SIGN /ELSE RESULT SAME SIGN 016007 3043 195 016010 4777 JMS ALIGN; JMP I ADD 016011 5600 196 016012 1046 TAD LORD; TAD AC1L; DCA LORD 016013 1042 016014 3046 197 016015 7004 RAL; TAD HORD; TAD AC1H 016016 1045 016017 1041 198 016020 7430 SZL; JMP ADDOV /MUST SHIFT IF OVERFLOWED 016021 5224 199 016022 3045 DCA HORD; JMP I ADD /IF NOT MUST BE NORMALISED 016023 5600 200 016024 7010 ADDOV, RAR; DCA HORD; TAD LORD; RAR; DCA LORD 016025 3045 016026 1046 016027 7010 016030 3046 201 016031 2044 ISZ EXP; JMP I ADD; JMS 1200 016032 5600 016033 4776 202 016034 7330 SUB, CLA CLL CML RAR; AND EXP; DCA SIGN 016035 0044 016036 3043 203 016037 4777 JMS ALIGN; JMP I ADD 016040 5600 204 016041 1042 TAD AC1L; CIA; TAD LORD; DCA LORD 016042 7041 016043 1046 016044 3046 205 016045 1041 TAD AC1H; CMA; SZL; CLL IAC 016046 7040 016047 7430 016050 7101 206 016051 1045 TAD HORD; DCA HORD 016052 3045 207 016053 7430 SZL; JMP SUBOK /DID WE SUBTRACT SMALLER? 016054 5270 208 016055 1046 TAD LORD; CIA; DCA LORD /NO SO NEGATE RESULT 016056 7041 016057 3046 209 016060 1045 TAD HORD; CMA; SZL; IAC; DCA HORD 016061 7040 016062 7430 016063 7001 016064 3045 210 016065 7330 CLA CLL CML RAR; TAD EXP; DCA EXP 016066 1044 016067 3044 211 016070 4272 SUBOK, JMS NORM; JMP I ADD 016071 5600 212 213 214 016072 0000 NORM, 0 215 016073 7330 CLA CLL CML RAR; AND EXP; DCA SIGN 016074 0044 016075 3043 216 016076 7350 CLA CLL CMA RAR; AND EXP; DCA EXP 016077 0044 016100 3044 217 016101 1045 TAD HORD; SZA CLA; JMP HORNZ 016102 7640 016103 5320 218 016104 1046 TAD LORD; SZA; JMP LORNZ 016105 7440 016106 5311 219 016107 3044 RZERO, DCA EXP; JMP I NORM 016110 5672 220 016111 3045 LORNZ, DCA HORD; DCA LORD /SHIFT 12 PLACES 016112 3046 221 016113 1375 TAD (-14; TAD EXP; SPA; JMP UFLO 016114 1044 016115 7510 016116 5343 222 016117 3044 DCA EXP 223 016120 1045 HORNZ, TAD HORD; SPA CLA; JMP ENORM 016121 7710 016122 5337 224 016123 1046 TAD LORD; CLL RAL; DCA LORD 016124 7104 016125 3046 225 016126 1045 TAD HORD; RAL; DCA HORD 016127 7004 016130 3045 226 016131 7040 CMA; TAD EXP; SPA; JMP UFLO 016132 1044 016133 7510 016134 5343 227 016135 3044 DCA EXP; JMP HORNZ 016136 5320 228 016137 1044 ENORM, TAD EXP; TAD SIGN; DCA EXP; JMP I NORM 016140 1043 016141 3044 016142 5672 229 016143 7200 UFLO, CLA; TAD SIGN; DCA EXP 016144 1043 016145 3044 230 016146 7330 CLA CLL CML RAR; DCA HORD; DCA LORD /MAKE SMALLEST NO. 016147 3045 016150 3046 231 016151 5672 JMP I NORM 232 233 016152 0000 MQLAUY, 0 /SIMULATE MQL MQA MUY 234 016153 3370 DCA MQL2; TAD SUDOMQ; DCA MQL1 016154 1033 016155 3367 235 016156 1370 TAD MQL2; DCA SUDOMQ 016157 3033 236 016160 1752 TAD I MQLAUY; ISZ MQLAUY; DCA MQL3 016161 2352 016162 3365 237 016163 1367 TAD MQL1; JMS PSDMUY 016164 4774 238 016165 0000 MQL3, 0; JMP I MQLAUY 016166 5752 239 016167 0000 MQL1, 0 240 016170 0000 MQL2, 0 241 242 016174 6336 *6200 016175 7764 016176 1200 016177 6400 243 016200 0000 DIV, 0; TAD HORD; SNA CLA; JMP I DIV /DIVIDEND ZERO 016201 1045 016202 7650 016203 5600 244 016204 1041 TAD AC1H; SNA CLA; JMS 1200 /ERROR DIVISOR ZERO 016205 7650 016206 4777 245 016207 4776 JMS XORSGN /SET SIGN AND REMOVE SIGN BITS 246 016210 1040 TAD EX1; CIA; TAD EXP; TAD (2001 /SUBTRACT 016211 7041 016212 1044 016213 1375 247 016214 7510 SPA; JMS 1200; TAD SIGN; DCA EXP /FAIL OVER/UNDERFLOW 016215 4777 016216 1043 016217 3044 248 016220 3047 DCA X; TAD AC1L; DCA DV3; TAD AC1H; DCA DV4 016221 1042 016222 3244 016223 1041 016224 3265 249 016225 1265 TAD DV4; DCA DV2 016226 3237 250 016227 1045 TAD HORD; CLL RAR; DCA HORD 016230 7110 016231 3045 251 016232 1046 TAD LORD; RAR; DCA SUDOMQ; TAD HORD; JMS PSDDVI 016233 7010 016234 3033 016235 1045 016236 4774 252 016237 0000 DV2, 0; DCA DV2; TAD SUDOMQ; DCA HORD; JMS PSDMUY 016240 3237 016241 1033 016242 3045 016243 4336 253 016244 0000 DV3, 0; CLL CIA; TAD DV2; SNA; JMP DV5 016245 7141 016246 1237 016247 7450 016250 5273 254 016251 7420 SNL; JMP DV6; DCA DV3 016252 5303 016253 3244 255 016254 7040 CMA; DCA X; TAD SUDOMQ; CLL CIA; DCA SUDOMQ 016255 3047 016256 1033 016257 7141 016260 3033 256 016261 7420 SNL; CMA; TAD DV3; JMS PSDDVI 016262 7040 016263 1244 016264 4774 257 016265 0000 DV4, 0; CLA; TAD SUDOMQ; CLL CML; ISZ X; CLL CIA 016266 7200 016267 1033 016270 7120 016271 2047 016272 7141 258 016273 3046 DV5, DCA LORD; SNL; CMA; TAD HORD; SMA; JMP DV7 016274 7420 016275 7040 016276 1045 016277 7500 016300 5323 259 016301 3045 DCA HORD; JMP I DIV 016302 5600 260 016303 7041 DV6, CIA; DCA DV2; TAD DV4; CLL CIA; TAD DV2 016304 3237 016305 1265 016306 7141 016307 1237 261 016310 7420 SNL; JMP .+5; DCA DV2; CMA; TAD HORD; DCA HORD 016311 5316 016312 3237 016313 7040 016314 1045 016315 3045 262 016316 7200 CLA; TAD DV2; SZA; JMP DV4-1; JMP DV5-1 016317 1237 016320 7440 016321 5264 016322 5272 263 016323 3045 DV7, DCA HORD; TAD LORD; CLL RAL; DCA LORD 016324 1046 016325 7104 016326 3046 264 016327 1045 TAD HORD; RAL; DCA HORD /SHIFT RESULT LEFT IF NOT NORMALISED 016330 7004 016331 3045 265 016332 7040 CMA; TAD EXP; DCA EXP; JMP I DIV 016333 1044 016334 3044 016335 5600 266 267 016336 0000 PSDMUY, 0; DCA MUYAC; TAD (-15; DCA MUYC 016337 3366 016340 1373 016341 3367 268 016342 1736 TAD I PSDMUY; DCA MUYOP; ISZ PSDMUY 016343 3365 016344 2336 269 016345 7100 CLL; JMP MUYST 016346 5355 270 016347 7420 MUYL, SNL; JMP .+3 016350 5353 271 016351 7100 CLL; TAD MUYOP; RAR; DCA MUYAC 016352 1365 016353 7010 016354 3366 272 016355 1033 MUYST, TAD SUDOMQ; RAR; DCA SUDOMQ 016356 7010 016357 3033 273 016360 1366 TAD MUYAC; ISZ MUYC; JMP MUYL; CLL; JMP I PSDMUY 016361 2367 016362 5347 016363 7100 016364 5736 274 016365 0000 MUYOP, 0 275 016366 0000 MUYAC, 0 276 016367 0000 MUYC, 0 277 278 016373 7763 *6400 016374 6714 016375 2001 016376 5645 016377 1200 279 280 016400 0000 ALIGN, 0 281 016401 1041 TAD AC1H; SNA CLA; JMP I ALIGN /ZERO OPERAND 016402 7650 016403 5600 282 016404 1045 TAD HORD; SZA CLA; JMP NOTZ /ZERO FLAC 016405 7640 016406 5217 283 016407 7300 RESOP, CLA CLL; TAD EX1; DCA EXP 016410 1040 016411 3044 284 016412 1041 TAD AC1H; DCA HORD 016413 3045 285 016414 1042 TAD AC1L; DCA LORD; JMP I ALIGN /ADDITION DONE 016415 3046 016416 5600 286 016417 7350 NOTZ, CLA CLL CMA RAR; AND EXP; DCA EXP 016420 0044 016421 3044 287 016422 7350 CLA CLL CMA RAR; AND EX1; CIA 016423 0040 016424 7041 288 016425 1044 TAD EXP; SNA; JMP DONE 016426 7450 016427 5251 289 016430 7500 SMA; JMP SHOP /JMP IF FLAC LARGER 016431 5257 290 016432 1377 TAD (27; SPA; JMP RESOP /TOO MUCH SHIFT OF FLAC 016433 7510 016434 5207 291 016435 1376 TAD (-27; DCA SHFT 016436 3275 292 016437 7350 CLA CLL CMA RAR; AND EX1; DCA EXP /TRANSFER EXPONENT 016440 0040 016441 3044 293 016442 1046 TAD LORD; DCA SUDOMQ; TAD HORD; JMS DLSR 016443 3033 016444 1045 016445 4276 294 016446 3045 DCA HORD; TAD SUDOMQ; DCA LORD 016447 1033 016450 3046 295 016451 2200 DONE, ISZ ALIGN 296 016452 7300 RESAC, CLA CLL; TAD EXP; TAD SIGN; DCA EXP; JMP I ALIGN 016453 1044 016454 1043 016455 3044 016456 5600 297 016457 1376 SHOP, TAD (-27; SMA SZA; JMP RESAC /TOO MUCH OPERAND SHIFT 016460 7540 016461 5252 298 016462 1375 TAD (26; CMA; DCA SHFT 016463 7040 016464 3275 299 016465 1042 TAD AC1L; DCA SUDOMQ; TAD AC1H; JMS DLSR 016466 3033 016467 1041 016470 4276 300 016471 3041 DCA AC1H; TAD SUDOMQ; DCA AC1L; JMP DONE 016472 1033 016473 3042 016474 5251 301 016475 0000 SHFT, 0 302 303 016476 0000 DLSR, 0; DCA DLSR1 016477 3325 304 016500 1275 TAD SHFT; TAD (14; SPA SNA; JMP MTH11 016501 1374 016502 7550 016503 5320 305 016504 7200 CLA; TAD DLSR1 016505 1325 306 016506 7110 SHRL, CLL RAR; DCA DLSR1 016507 3325 307 016510 1033 TAD SUDOMQ; RAR; DCA SUDOMQ; TAD DLSR1 016511 7010 016512 3033 016513 1325 308 016514 2275 SHTEST, ISZ SHFT; JMP SHRL; CLL; JMP I DLSR 016515 5306 016516 7100 016517 5676 309 016520 1373 MTH11, TAD (-1; DCA SHFT /MABE NO EXTRA ONES NEEDED 016521 3275 310 016522 1325 TAD DLSR1; DCA SUDOMQ; JMP SHTEST 016523 3033 016524 5314 311 016525 0000 DLSR1, 0 312 313 016526 4772 ROOTGO, JMS FPUT; ITER1 016527 6557 314 016530 4771 DOSQR, JMS FGET; 52; JMS FDIV; ITER1 016531 0052 016532 4770 016533 6557 315 016534 4767 JMS FADD; ITER1 016535 6557 316 016536 7240 CLA CMA; TAD EXP; DCA EXP /DIVIDE BY 2 016537 1044 016540 3044 317 016541 1045 TAD HORD; CIA; TAD ITER1+1; SZA CLA; JMP ROOTGO 016542 7041 016543 1360 016544 7640 016545 5326 318 016546 1046 TAD LORD; CIA; TAD ITER1+2 016547 7041 016550 1361 319 016551 7500 SMA; CIA; IAC; SPA CLA; JMP ROOTGO; JMP SQROOT+3 016552 7041 016553 7001 016554 7710 016555 5326 016556 5766 320 016557 0000 ITER1, 0;0;0 016560 0000 016561 0000 321 016562 6032 SQCON1, 6032 322 323 016566 6603 *6600 016567 5627 016570 5700 016571 5600 016572 5663 016573 7777 016574 0014 016575 0026 016576 7751 016577 0027 324 325 016600 0000 SQROOT, 0 326 016601 1045 TAD HORD; SNA CLA; JMP I SQROOT 016602 7650 016603 5600 327 016604 1044 TAD EXP; SPA CLA; JMS 1200 016605 7710 016606 4777 328 016607 4776 JMS FPUT; 52 016610 0052 329 016611 1044 TAD EXP; CLL RAR; SZL; IAC; TAD (1000 016612 7110 016613 7430 016614 7001 016615 1375 330 016616 3774 DCA ITER1; TAD SQCON1; DCA ITER1+1 016617 1773 016620 3772 331 016621 3771 DCA ITER1+2; JMP DOSQR 016622 5770 332 333 016623 0000 FMULT, 0; TAD HORD; SZA CLA; TAD AC1H; SZA CLA; JMP DOMUL 016624 1045 016625 7640 016626 1041 016627 7640 016630 5235 334 016631 3044 DCA EXP; DCA HORD; DCA LORD; JMP I FMULT 016632 3045 016633 3046 016634 5623 335 016635 4767 DOMUL, JMS XORSGN /EXTRACT SIGN BITS 336 016636 1044 TAD EXP; TAD EX1; TAD (-2000; SPA; JMS 1200 /OVERFLOW 016637 1040 016640 1366 016641 7510 016642 4777 337 016643 1043 TAD SIGN; DCA EXP /ADD EXPONENTS 016644 3044 338 016645 1046 TAD LORD; DCA MP1; TAD AC1H; DCA SUDOMQ; JMS PSDMUY 016646 3252 016647 1041 016650 3033 016651 4765 339 016652 0000 MP1, 0; DCA MP1 /2ND POSITION 016653 3252 340 016654 1042 TAD AC1L; DCA M2; TAD HORD; JMS MQLAUY 016655 3260 016656 1045 016657 4764 341 016660 0000 M2, 0; TAD MP1 /ADD PREVIOUS 2ND POSITION BITS 016661 1252 342 016662 3033 DCA SUDOMQ; RAL; DCA M2 /PUT THEM IN MQ, SAVE CARRY 016663 7004 016664 3260 343 016665 1045 TAD HORD; DCA M3; TAD AC1H; JMS MQLAUY 016666 3271 016667 1041 016670 4764 344 016671 0000 M3, 0; TAD M2 /ADD CARRY FROM 2ND POSITION 016672 1260 345 016673 3045 DCA HORD; TAD SUDOMQ; DCA LORD 016674 1033 016675 3046 346 016676 1045 TAD HORD; SPA CLA; JMP I FMULT 016677 7710 016700 5623 347 016701 7300 CLA CLL; TAD LORD; RAL; DCA LORD 016702 1046 016703 7004 016704 3046 348 016705 1045 TAD HORD; RAL; DCA HORD 016706 7004 016707 3045 349 016710 7040 CMA; TAD EXP; DCA EXP; JMP I FMULT 016711 1044 016712 3044 016713 5623 350 /MINIMUM POSSIBLE PRODUCT IS 0.25 351 352 016714 0000 PSDDVI, 0 353 016715 3351 DCA DVIAC; TAD I PSDDVI; ISZ PSDDVI 016716 1714 016717 2314 354 016720 3350 DCA PLUSOP; TAD PLUSOP; CLL CIA; DCA DVIOP 016721 1350 016722 7141 016723 3353 355 016724 1363 TAD (-15; DCA DVIC; JMP DIVST 016725 3352 016726 5335 356 016727 1351 DIVL, TAD DVIAC; RAL; TAD DVIOP 016730 7004 016731 1353 357 016732 7420 SNL; JMP NO 016733 5345 358 016734 3351 YES, DCA DVIAC 359 016735 1033 DIVST, TAD SUDOMQ; RAL; DCA SUDOMQ 016736 7004 016737 3033 360 016740 2352 ISZ DVIC; JMP DIVL; TAD DVIAC; CLL; JMP I PSDDVI 016741 5327 016742 1351 016743 7100 016744 5714 361 016745 1350 NO, TAD PLUSOP; CML; JMP YES 016746 7020 016747 5334 362 016750 0000 PLUSOP, 0 363 016751 0000 DVIAC, 0 364 016752 0000 DVIC, 0 365 016753 0000 DVIOP, 0 366 367 368 016763 7763 *7000 016764 6152 016765 6336 016766 6000 016767 5645 016770 6530 016771 6561 016772 6560 016773 6562 016774 6557 016775 1000 016776 5663 016777 1200 369 017000 0000 FINPUT, 0 370 017001 7240 CLA CMA; DCA PERSW; CMA; DCA NEGMKR 017002 3313 017003 7040 017004 3312 371 017005 3060 DCA DSWIT; DCA EXP; DCA HORD; DCA LORD 017006 3044 017007 3045 017010 3046 372 017011 3314 DPART, DCA FRACD /ZERO DIGITS AFTER POINT 373 017012 4320 NDIG, JMS DIGIN; JMP NOTDIG; ISZ DSWIT; ISZ FRACD 017013 5230 017014 2060 017015 2314 374 017016 4777 JMS FMUL; TEN; JMS FPUT; TEM; JMS FGET; DIG-1 017017 7107 017020 4776 017021 7115 017022 4775 017023 7104 375 017024 4774 JMS NORM; JMS FADD; TEM; JMP NDIG /RESULT*10+DIGIT 017025 4773 017026 7115 017027 5212 376 017030 2313 NOTDIG, ISZ PERSW; JMP CONT1 /SECOND PERIOD? 017031 5237 377 017032 2305 ISZ DIG; ISZ DIG; CLA SKP; JMP DPART /NO, IF PERIOD READ ON 017033 2305 017034 7610 017035 5211 378 017036 3314 DCA FRACD /IF NOT ANY PERIOD NO FRACTIONAL DIGITS 379 017037 2312 CONT1, ISZ NEGMKR; JMS FNEG 017040 4772 380 017041 7240 CLA CMA; DCA NEGMKR /SET UP FOR EXPONENT 017042 3312 381 017043 1057 TAD CHAR; TAD (-"E; SNA CLA 017044 1371 017045 7650 382 017046 4320 NEXD, JMS DIGIN; JMP ENDEXP 017047 5256 383 017050 1047 TAD X; CLL RTL; TAD X; CLL RAL; TAD DIG; JMP NEXD /ACCUMULATE EXPONENT 017051 7106 017052 1047 017053 7104 017054 1305 017055 5246 384 017056 1047 ENDEXP, TAD X; ISZ NEGMKR; CIA; CIA; TAD FRACD /-(DECIMAL EXPONENT) 017057 2312 017060 7041 017061 7041 017062 1314 385 017063 7141 CLL CIA; SPA; CLL CML CIA; CMA; DCA FRACD /-(DEC EXP. + 1) 017064 7510 017065 7161 017066 7040 017067 3314 386 017070 7004 RAL; TAD JMSI; DCA FLINS /MAKE JMS FMUL OR JMS FDIV 017071 1301 017072 3276 387 017073 2314 MORE, ISZ FRACD; JMP FLINS; JMP I FINPUT 017074 5276 017075 5600 388 017076 0000 FLINS, 0; TEN; JMP MORE /*10 OR /10 017077 7107 017100 5273 389 017101 4702 JMSI, JMS I .+1; FMUL; FDIV 017102 5636 017103 5700 390 017104 2014 2014 391 017105 0000 DIG, 0; 0 017106 0000 392 017107 2004 TEN, 2004; 5000; 0 017110 5000 017111 0000 393 017112 0000 NEGMKR, 0 394 017113 0000 PERSW, 0 395 017114 0000 FRACD, 0 396 017115 0000 TEM, 0; 0; 0 017116 0000 017117 0000 397 398 017120 0000 DIGIN, 0 399 017121 3047 DCA X; JMS IN; TAD CHAR; TAD (-"+; SNA; JMP NOTPL 017122 4344 017123 1057 017124 1370 017125 7450 017126 5333 400 017127 1367 TAD ("+-"-; SZA CLA; JMP NOTPL+1; DCA NEGMKR 017130 7640 017131 5334 017132 3312 401 017133 4344 NOTPL, JMS IN; TAD CHAR; TAD (-272; CLL 017134 1057 017135 1366 017136 7100 402 017137 1365 TAD (12; DCA DIG; SZL; ISZ DIGIN; JMP I DIGIN /EXIT2 IF DIGIT 017140 3305 017141 7430 017142 2320 017143 5720 403 404 017144 0000 IN, 0; JMS I 77; DCA CHAR; TAD CHAR; SNA; JMP IN+1 017145 4477 017146 3057 017147 1057 017150 7450 017151 5345 405 017152 1364 TAD (-377; SNA CLA; JMP FINPUT+1; JMP I IN 017153 7650 017154 5201 017155 5744 406 407 408 /FLOATING POINT O/P FOR HYBRID EAE FPP 409 410 017164 7401 *7200 017165 0012 017166 7506 017167 7776 017170 7525 017171 7473 017172 7560 017173 5627 017174 6072 017175 5600 017176 5663 017177 5636 411 017200 0000 FOUTP, 0 412 017201 7344 CLA CLL CMA RAL; DCA NEGM; DCA DEXP 017202 3052 017203 3053 413 017204 1056 TAD 56; SZA CLA; JMP NOTEX1 /EXPONENTIAL FORMAT? 017205 7640 017206 5216 414 017207 1060 TAD 60; SNA; TAD (6; DCA 60 017210 7450 017211 1377 017212 3060 415 017213 1060 TAD 60; TAD (10; DCA 57 /SET A&B FOR EXPONENTIAL FORMAT 017214 1376 017215 3057 416 017216 1375 NOTEX1, TAD (-7; DCA MAXPL; TAD HORD; SNA CLA; JMP OZERO 017217 3054 017220 1045 017221 7650 017222 5310 417 017223 1044 TAD EXP; SMA CLA; JMP OPOS; JMS FNEG; DCA NEGM /NEGATE IF NEEDED 017224 7700 017225 5230 017226 4774 017227 3052 418 017230 1044 OPOS, TAD EXP; TAD (-2000; SMA SZA CLA; JMP EXPPOS 017231 1373 017232 7740 017233 5240 419 017234 4772 JMS FMUL; TEN; ISZ DEXP; JMP OPOS /MAKE EXP>0 017235 7107 017236 2053 017237 5230 420 017240 4771 EXPPOS, JMS EXPMIN; JMS FPUT; TEM 017241 4770 017242 7115 421 017243 7332 CLA CLL CML RTR; DCA EXP 017244 3044 422 017245 7030 CML RAR; DCA HORD; DCA LORD /FLAC=0.5 017246 3045 017247 3046 423 017250 1056 TAD 56; SZA CLA; TAD DEXP; CIA 017251 7640 017252 1053 017253 7041 424 017254 1060 TAD 60; SMA; CMA; TAD (7; SPA; CLA; TAD (-7 017255 7500 017256 7040 017257 1367 017260 7510 017261 7200 017262 1375 425 017263 3771 DCA EXPMIN; JMP .+3 017264 5267 426 017265 4766 JMS FDIV; TEN; ISZ EXPMIN; JMP .-3 017266 7107 017267 2771 017270 5265 427 017271 4765 JMS FADD; TEM; JMS EXPMIN /ADD ROUNDING 017272 7115 017273 4771 428 017274 1373 L1, TAD (-2000; TAD EXP; SNA CLA; JMP OZERO 017275 1044 017276 7650 017277 5310 429 017300 2044 ISZ EXP; TAD HORD; CLL RAR; DCA HORD 017301 1045 017302 7110 017303 3045 430 017304 1046 TAD LORD; RAR; DCA LORD; JMP L1 /MAKE MANT FRACTION 017305 7010 017306 3046 017307 5274 431 017310 1053 OZERO, TAD DEXP; DCA SDEX; TAD 56; SZA CLA; JMP NOTEX2 017311 3050 017312 1056 017313 7640 017314 5320 432 017315 3053 DCA DEXP; TAD (-7; JMP EXPO1 017316 1375 017317 5324 433 017320 1053 NOTEX2, TAD DEXP; SMA; CLA CMA; TAD (-1 017321 7500 017322 7240 017323 1364 434 017324 1057 EXPO1, TAD 57; CIA; DCA FDIV 017325 7041 017326 3766 435 017327 1060 TAD 60; SNA; CMA; TAD FDIV; SMA; CLA CMA /WAS ERROR 017330 7450 017331 7040 017332 1766 017333 7500 017334 7240 436 017335 3771 DCA EXPMIN; JMP .+3 017336 5341 437 017337 1363 TAD (-20; JMS DIGOUT; ISZ EXPMIN; JMP .-3 /LEADING SPACES 017340 4762 017341 2771 017342 5337 438 017343 7346 CLA CLL CMA RTL; TAD NEGM; JMS DIGOUT /SIGN 017344 1052 017345 4762 439 017346 1053 TAD DEXP; SMA; JMP NDBP; CIA; JMS DECOUT; JMP DAP 017347 7500 017350 5761 017351 7041 017352 4760 017353 5757 440 SDEX=50 441 NEGM=52 442 DEXP=53 443 MAXPL=54 444 445 017357 7400 *7400 017360 7507 017361 7406 017362 7476 017363 7760 017364 7777 017365 5627 017366 5700 017367 0007 017370 5663 017371 7545 017372 5636 017373 6000 017374 7560 017375 7771 017376 0010 017377 0006 446 017400 1060 DAP, TAD 60; SNA CLA; JMP NDAP; CLA CLL CMA RAL 017401 7650 017402 5211 017403 7344 447 017404 4276 JMS DIGOUT; JMP NDAP /DECIMAL POINT 017405 5211 448 017406 7200 NDBP, CLA; JMS DIGOUT; JMP DAP /ZERO BEFORE POINT 017407 4276 017410 5200 449 017411 1053 NDAP, TAD DEXP; SPA SNA CLA; JMP NZAP /ANY ZEROS AFTER POINT? 017412 7750 017413 5233 450 017414 1053 TAD DEXP; CMA; DCA DECOUT 017415 7040 017416 3307 451 017417 1060 TAD 60; CMA; DCA TEM+2; SKP 017420 7040 017421 3777 017422 7410 452 017423 4276 ZEROL, JMS DIGOUT; ISZ DECOUT; SKP; JMP ZAP /DO ZEROS AFTER POINT 017424 2307 017425 7410 017426 5231 453 017427 2777 ISZ TEM+2; JMP ZEROL 017430 5223 454 017431 1053 ZAP, TAD DEXP; CIA 017432 7041 455 017433 1060 NZAP, TAD 60; SMA SZA; JMS DECOUT /DIGITS AFTER POINT 017434 7540 017435 4307 456 017436 7200 CLA; TAD 56; SZA CLA; JMP EXFOUT 017437 1056 017440 7640 017441 5273 457 017442 4302 JMS CHOUT; "E; TAD SDEX 017443 0305 017444 1050 458 017445 7740 SMA SZA CLA; CLL CML RTL; JMS CHOUT; "+ /+ OR - 017446 7126 017447 4302 017450 0253 459 017451 1050 TAD SDEX; SPA; CIA; DCA SUDOMQ; JMS PSDDVI; 144; DCA SDEX 017452 7510 017453 7041 017454 3033 017455 4776 017456 0144 017457 3050 460 017460 1033 TAD SUDOMQ; JMS DIGOUT; TAD SDEX; DCA SUDOMQ; JMS PSDDVI; 12 017461 4276 017462 1050 017463 3033 017464 4776 017465 0012 461 017466 3050 DCA SDEX; TAD SUDOMQ; JMS DIGOUT; TAD SDEX; JMS DIGOUT 017467 1033 017470 4276 017471 1050 017472 4276 462 017473 1775 EXFOUT, TAD FOUTP; DCA DIGOUT; JMP I DIGOUT 017474 3276 017475 5676 463 464 017476 0000 DIGOUT, 0; JMS CHOUT; 260; JMP I DIGOUT 017477 4302 017500 0260 017501 5676 465 017502 0000 CHOUT, 0; TAD I CHOUT; JMS I 71; CLA CLL; JMP I CHOUT 017503 1702 017504 4471 017505 7300 017506 5702 466 467 017507 0000 DECOUT, 0; CIA; DCA DIGC /COUNT DIGITS 017510 7041 017511 3344 468 017512 1045 MUL10, TAD HORD; DCA SUDOMQ; JMS PSDMUY; 12 017513 3033 017514 4774 017515 0012 469 017516 3773 DCA TEM; TAD SUDOMQ; DCA HORD 017517 1033 017520 3045 470 017521 1046 TAD LORD; DCA SUDOMQ; JMS PSDMUY; 12 017522 3033 017523 4774 017524 0012 471 017525 7100 CLL; TAD HORD; DCA HORD 017526 1045 017527 3045 472 017530 1033 TAD SUDOMQ; DCA LORD; RAL; TAD TEM 017531 3046 017532 7004 017533 1773 473 017534 2054 ISZ MAXPL; JMP EXDOUT; CLA CMA; DCA MAXPL 017535 5340 017536 7240 017537 3054 474 017540 4276 EXDOUT, JMS DIGOUT; ISZ DIGC; JMP MUL10; JMP I DECOUT 017541 2344 017542 5312 017543 5707 475 017544 0000 DIGC, 0 476 477 017545 0000 EXPMIN, 0 /MAKE EXP <=0, ADJUSTING DEXP 478 017546 1044 TAD EXP; TAD (-2000; SPA SNA CLA; JMP I EXPMIN 017547 1372 017550 7750 017551 5745 479 017552 4771 JMS FDIV; TEN; CMA; TAD DEXP; DCA DEXP; JMP EXPMIN+1 017553 7107 017554 7040 017555 1053 017556 3053 017557 5346 480 481 017560 0000 FNEG, 0; CLA; TAD EXP; SZA; TAD (4000; DCA EXP; JMP I FNEG 017561 7200 017562 1044 017563 7440 017564 1370 017565 3044 017566 5760 482 483 017570 4000 $ 017571 5700 017572 6000 017573 7115 017574 6336 017575 7200 017576 6714 017577 7117 ABSFL 5331 AC1H 0041 AC1L 0042 ADD 6000 ADDOV 6024 ALIGN 6400 ARCTAN 5400 AT1 5126 AT2 5131 AT3 5134 AT4 5137 AT5 5142 AT6 5145 AT7 5150 ATN1 5420 ATPOS 5456 CHAR 0057 CHOUT 7502 CONT1 7037 COS 5252 DAP 7400 DECOUT 7507 DEXP 0053 DIG 7105 DIGC 7544 DIGIN 7120 DIGOUT 7476 DIV 6200 DIVL 6727 DIVOP 5717 DIVST 6735 DLSR 6476 DLSR1 6525 DOLN 5502 DOMUL 6635 DONE 6451 DOSQR 6530 DPART 7011 DSWIT 0060 DV2 6237 DV3 6244 DV4 6265 DV5 6273 DV6 6303 DV7 6323 DVIAC 6751 DVIC 6752 DVIOP 6753 ENDEXP 7056 ENORM 6137 EX1 0040 EX2 5112 EX3 5115 EX4 5120 EX5 5123 EXDOUT 7540 EXFOUT 7473 EXP 0044 EXPMIN 7545 EXPO1 7324 EXPPOS 7240 FADD 5627 FDIV 5700 FEX1 5107 FGET 5600 FINPUT 7000 FINVD 5707 FINVS 5722 FIX 5040 FIX1 5072 FIX2 5073 FIX3 5074 FIX4 5075 FLEXP 5257 FLINS 7076 FLO2 5770 FLOAT 5752 FMUL 5636 FMULT 6623 FNEG 7560 FONE 5346 FOUTP 7200 FPUT 5663 FRACD 7114 FSUB 5734 GETOP 5615 HORD 0045 HORNZ 6120 IN 7144 ITER1 6557 JMSI 7101 L1 7274 LN 5460 LN1 5153 LN2 5156 LN3 5161 LN4 5164 LN5 5167 LN6 5172 LORD 0046 LORNZ 6111 M1 5771 M2 6660 M3 6671 MAXPL 0054 MORE 7073 MP1 6652 MQL1 6167 MQL2 6170 MQL3 6165 MQLAUY 6152 MTH11 6520 MUL10 7512 MUYAC 6366 MUYC 6367 MUYL 6347 MUYOP 6365 MUYST 6355 NDAP 7411 NDBP 7406 NDIG 7012 NEGM 0052 NEGMKR 7112 NEXD 7046 NO 6745 NORM 6072 NOTDIG 7030 NOTEX1 7216 NOTEX2 7320 NOTPL 7133 NOTZ 6417 NZAP 7433 OPOS 7230 OZERO 7310 PERSW 7113 PIDTWO 5556 PLUSOP 6750 PSDDVI 6714 PSDMUY 6336 Q1 5225 Q2 5216 Q3 5221 Q4 5223 RESAC 6452 RESOP 6407 ROOTGO 6526 RSIGN 5341 RZERO 6107 unreferenced SDEX 0050 SHFT 6475 SHOP 6457 SHRL 6506 SHTEST 6514 SIGN 0043 SIN1 5354 SIN2 5076 SIN3 5101 SIN4 5104 SINE 5200 SINFAN 5212 SPLIT 5317 SQCON1 6562 SQROOT 6600 SQUARE 5746 SUB 6034 SUBOK 6070 SUDOMQ 0033 TEM 7115 TEN 7107 TOSMAL 5067 TWODPI 5351 UFLO 6143 X 0047 XORSGN 5645 YES 6734 ZAP 7431 ZEROL 7423