1 2 MQL=JMS I Z 71 3 DVI=JMS I Z 72 4 MUY=JMS I Z 74 5 NMI=JMS I Z 76 6 SHL=JMS I Z 77 7 ASR=JMS I Z 100 8 LSR=JMS I Z 101 9 SCA=JMS I Z 102 10 MQA=JMS I Z 103 11 CAM=JMS I Z 104 12 FIXTAB 13 *67 14 00067 0000 SUDOMQ, 0 15 00070 0000 SUDOSC, 0 16 00071 7000 PSDMQL 17 00072 7105 PSDDVI 18 00073 7014 MQLDVI 19 00074 7141 PSDMUY 20 00075 7007 MQLMUY 21 00076 6700 PSDNMI 22 00077 7022 PSDSHL 23 00100 7051 PSDASR 24 00101 7043 PSDLSR 25 00102 6747 PSDSCA 26 00103 6756 PSDMQA 27 00104 7003 PSDCAM 28 29 *6700 30 06700 0000 PSDNMI, 0 /NMI 31 06701 3347 DCA PSDSCA /SAVE AC 32 06702 3070 DCA SUDOSC /CLEAR STEP COUNTER. 33 06703 1347 TAD PSDSCA 34 06704 7440 SZA 35 06705 5312 JMP .+5 36 06706 1067 TAD SUDOMQ 37 06707 7650 SNA CLA 38 06710 5700 JMP I PSDNMI /0 AC AND MQ. 39 06711 1347 NMIBK2, TAD PSDSCA 40 06712 7004 RAL 41 06713 7430 SZL 42 06714 5330 JMP NMIOUT /AC0=1 43 06715 7510 SPA 44 06716 5332 JMP NMIOUT+2 /AC0=0 AND AC1=1 45 06717 7200 CLA /AC0=AC1=0 46 06720 1067 NMIBCK, TAD SUDOMQ 47 06721 7104 CLL RAL 48 06722 3067 DCA SUDOMQ 49 06723 1347 TAD PSDSCA 50 06724 7004 RAL 51 06725 3347 DCA PSDSCA 52 06726 2070 ISZ SUDOSC 53 06727 5311 JMP NMIBK2 54 06730 7510 NMIOUT, SPA 55 06731 5334 JMP .+3 /AC0=AC1=1 56 06732 7010 RAR /AC0 DOES NOT EQUAL AC1 57 06733 5700 JMP I PSDNMI /EXIT 58 06734 7010 RAR /TEST IF NUMBER 6000 0000 59 06735 1346 TAD .+11 60 06736 7640 SZA CLA 61 06737 5320 JMP NMIBCK /NOT 6000 62 06740 1067 TAD SUDOMQ 63 06741 7440 SZA 64 06742 5321 JMP NMIBCK+1 /NOT 0000 65 06743 7020 CML /RESTORE LINK 66 06744 1347 TAD PSDSCA /RESTORE 6000 67 06745 5700 JMP I PSDNMI /EXIT 68 06746 2000 -6000 69 06747 0000 PSDSCA, 0 /SCA 70 06750 3356 DCA PSDMQA /INCLUSIVE OR 71 06751 1356 TAD PSDMQA /STEP COUNTER 72 06752 7040 CMA /AND AC 73 06753 0070 AND SUDOSC 74 06754 1356 TAD PSDMQA 75 06755 5747 JMP I PSDSCA 76 06756 0000 PSDMQA, 0 /MQA 77 06757 3347 DCA PSDSCA /INCLUSIVE OR 78 06760 1347 TAD PSDSCA /MQ 79 06761 7040 CMA /AND AC 80 06762 0067 AND SUDOMQ 81 06763 1347 TAD PSDSCA 82 06764 5756 JMP I PSDMQA 83 84 *PSDNMI+100 85 07000 0000 PSDMQL, 0 /MQL 86 07001 3067 DCA Z SUDOMQ 87 07002 5600 JMP I PSDMQL 88 07003 0000 PSDCAM, 0 /CAM (CLA!MQL) 89 07004 7200 CLA 90 07005 3067 DCA Z SUDOMQ 91 07006 5603 JMP I PSDCAM 92 07007 0000 MQLMUY, 0 /MQL!MUY 93 07010 3067 DCA Z SUDOMQ 94 07011 1207 TAD MQLMUY /SET UP 95 07012 3341 DCA PSDMUY /FOR MUY SUBROUTINE 96 07013 5342 JMP PSDMUY+1 97 07014 0000 MQLDVI, 0 /MQL!DVI 98 07015 3067 DCA Z SUDOMQ 99 07016 1214 TAD MQLDVI /SET UP 100 07017 3305 DCA PSDDVI /FOR DVI SUBROUTINE 101 07020 5306 JMP PSDDVI+1 102 07021 0037 37 103 07022 0000 PSDSHL, 0 /SHL 104 07023 3203 DCA PSDCAM /SAVE AC 105 07024 1622 TAD I PSDSHL /SHIFT COUNT 106 07025 2222 ISZ PSDSHL /EXIT POINT 107 07026 0221 AND PSDSHL-1 /5 BIT COUNTER 108 07027 7040 CMA 109 07030 3070 DCA SUDOSC 110 07031 1067 TAD SUDOMQ /SHIFT COMBINED 111 07032 7104 CLL RAL /AC AND MQ 112 07033 3067 DCA SUDOMQ /1 BIT TO THE 113 07034 1203 TAD PSDCAM /LEFT 114 07035 7004 RAL 115 07036 3203 DCA PSDCAM 116 07037 2070 ISZ SUDOSC 117 07040 5231 JMP .-7 /MORE SHIFTING 118 07041 1203 TAD PSDCAM 119 07042 5622 JMP I PSDSHL /EXIT 120 07043 0000 PSDLSR, 0 /LSR 121 07044 3203 DCA PSDCAM /SAVE AC 122 07045 1243 TAD PSDLSR /USE ASR 123 07046 3251 DCA PSDASR /ROUTINE 124 07047 7100 CLL 125 07050 5256 JMP PSDASR+5 126 127 07051 0000 PSDASR, 0 /ASR 128 07052 7100 CLL /SET LINK=SIGN 129 07053 7510 SPA 130 07054 7020 CML 131 07055 3203 DCA PSDCAM /SAVE AC 132 07056 1651 TAD I PSDASR /SHIFT COUNT 133 07057 2251 ISZ PSDASR /EXIT POINT 134 07060 0221 AND PSDSHL-1 /5 BIT COUNTER 135 07061 7040 CMA 136 07062 3070 DCA SUDOSC 137 07063 1203 TAD PSDCAM /RESTORE AC 138 07064 5270 JMP .+4 139 07065 1203 TAD PSDCAM 140 07066 7510 SPA 141 07067 7020 CML 142 07070 7010 RAR 143 07071 3203 DCA PSDCAM 144 07072 1067 TAD SUDOMQ 145 07073 7010 RAR 146 07074 3067 DCA SUDOMQ 147 07075 7100 CLL 148 07076 2070 ISZ SUDOSC 149 07077 5265 JMP .-12 /MORE SHIFTING 150 07100 1203 TAD PSDCAM 151 07101 7510 SPA 152 07102 7020 CML /LINK=AC0 153 07103 5651 JMP I PSDASR 154 07104 7763 7763 155 07105 0000 PSDDVI, 0 /DVI 156 07106 3203 DCA PSDCAM /SAVE HIGH ORDER DIVIDEND 157 07107 1705 TAD I PSDDVI /DIVISOR 158 07110 2305 ISZ PSDDVI /EXIT POINT 159 07111 7141 CLL CMA IAC 160 07112 3207 DCA MQLMUY /2'S COMPLEMENT OF DIVISOR 161 07113 1203 TAD PSDCAM /HIGH ORDER DIVIDEND 162 07114 1207 TAD MQLMUY 163 07115 7630 SZL CLA 164 07116 5705 JMP I PSDDVI /DIVIDE OVERFLOW 165 07117 1304 TAD PSDDVI-1 /7763 166 07120 3243 DCA PSDLSR /COUNTER 167 07121 5332 JMP .+11 168 07122 1203 TAD PSDCAM 169 07123 7004 RAL 170 07124 3203 DCA PSDCAM 171 07125 1203 TAD PSDCAM 172 07126 1207 TAD MQLMUY 173 07127 7430 SZL 174 07130 3203 DCA PSDCAM 175 07131 7200 CLA 176 07132 1067 TAD SUDOMQ 177 07133 7004 RAL 178 07134 3067 DCA SUDOMQ 179 07135 2243 ISZ PSDLSR 180 07136 5322 JMP .-14 181 07137 1203 TAD PSDCAM /COUNT EXHAUSTED 182 07140 5705 JMP I PSDDVI /EXIT 183 184 07141 0000 PSDMUY, 0 /MUY 185 07142 7300 CLA CLL 186 07143 3214 DCA MQLDVI /CLEAR PRODUCT (MOST SIG.) REGISTER 187 07144 1304 TAD PSDDVI-1 188 07145 3243 DCA PSDLSR /LOOP COUNTER 189 07146 1741 TAD I PSDMUY 190 07147 3200 DCA PSDMQL /OPERAND 191 07150 2341 ISZ PSDMUY /EXIT POINT 192 07151 5361 JMP .+10 193 07152 1214 TAD MQLDVI 194 07153 7420 SNL 195 07154 5357 JMP .+3 196 07155 7100 CLL 197 07156 1200 TAD PSDMQL 198 07157 7010 RAR 199 07160 3214 DCA MQLDVI 200 07161 1067 TAD SUDOMQ 201 07162 7010 RAR 202 07163 3067 DCA SUDOMQ /LOW ORDER PRODUCT 203 07164 2243 ISZ PSDLSR 204 07165 5352 JMP .-13 205 07166 1214 TAD MQLDVI /HIGH ORDER PRODUCT 206 07167 5741 JMP I PSDMUY /EXIT 207 /PAUSE 208 $ ASR 4500 unreferenced CAM 4504 unreferenced DVI 4472 unreferenced LSR 4501 unreferenced MQA 4503 unreferenced MQL 4471 unreferenced MQLDVI 7014 MQLMUY 7007 MUY 4474 unreferenced NMI 4476 unreferenced NMIBCK 6720 NMIBK2 6711 NMIOUT 6730 PSDASR 7051 PSDCAM 7003 PSDDVI 7105 PSDLSR 7043 PSDMQA 6756 PSDMQL 7000 PSDMUY 7141 PSDNMI 6700 PSDSCA 6747 PSDSHL 7022 SCA 4502 unreferenced SHL 4477 unreferenced SUDOMQ 0067 SUDOSC 0070