1 /DOUBLE PRECISION MULTIPLY ROUTINE, 2'S COMP. 2 /CALLING SEQUENCE: JMS DMUL 3 / ADDRESS OF MULTIPLICAND(HIGH ORDER) 4 / ADDRESS OF MULTIPLIER(HIGH ORDER) 5 / RETURN, HIGH ORDER PRODUCT IN AC, 6 / NEXT HIGH TO LOW IN B, C, D. 7 *200 8 00200 0000 DMUL, 0 9 00201 7300 CLA CLL 10 00202 1351 TAD REST 11 00203 3352 DCA SGN 12 00204 1600 TAD I DMUL 13 00205 3353 DCA ADDR 14 00206 1753 TAD I ADDR 15 00207 7510 SPA 16 00210 7060 CMA CML 17 00211 3355 DCA CNDH 18 00212 2353 ISZ ADDR 19 00213 1753 TAD I ADDR 20 00214 7430 SZL 21 00215 2352 ISZ SGN 22 00216 7430 SZL 23 00217 7061 CMA CML IAC 24 00220 3356 DCA CNDL 25 00221 7430 SZL 26 00222 2355 ISZ CNDH 27 00223 7100 CLL 28 00224 2200 ISZ DMUL 29 00225 1600 TAD I DMUL 30 00226 3353 DCA ADDR 31 00227 1753 TAD I ADDR 32 00230 7510 SPA 33 00231 7060 CMA CML 34 00232 3357 DCA PERH 35 00233 2200 ISZ DMUL 36 00234 2353 ISZ ADDR 37 00235 1753 TAD I ADDR 38 00236 7430 SZL 39 00237 2352 ISZ SGN 40 00240 7000 NOP 41 00241 7430 SZL 42 00242 7061 CMA CML IAC 43 00243 3360 DCA PERL 44 00244 7430 SZL 45 00245 2357 ISZ PERH 46 00246 1360 TAD PERL 47 00247 3765 DCA I MP2 48 00250 1356 TAD CNDL 49 00251 4764 JMS I MP4 50 00252 3363 DCA D 51 00253 1766 TAD I MP5 52 00254 3362 DCA C 53 00255 1355 TAD CNDH 54 00256 3765 DCA I MP2 55 00257 1360 TAD PERL 56 00260 4764 JMS I MP4 57 00261 1362 TAD C 58 00262 3362 DCA C 59 00263 7004 RAL 60 00264 1766 TAD I MP5 61 00265 3361 DCA B 62 00266 7004 RAL 63 00267 3354 DCA SAV 64 00270 1356 TAD CNDL 65 00271 3765 DCA I MP2 66 00272 1357 TAD PERH 67 00273 4764 JMS I MP4 68 00274 1362 TAD C 69 00275 3362 DCA C 70 00276 7004 RAL 71 00277 1766 TAD I MP5 72 00300 1361 TAD B 73 00301 1354 TAD SAV 74 00302 3361 DCA B 75 00303 7004 RAL 76 00304 3354 DCA SAV 77 00305 1355 TAD CNDH 78 00306 3765 DCA I MP2 79 00307 1357 TAD PERH 80 00310 4764 JMS I MP4 81 00311 1361 TAD B 82 00312 3361 DCA B 83 00313 7004 RAL 84 00314 1354 TAD SAV 85 00315 1766 TAD I MP5 86 00316 2352 ISZ SGN 87 00317 5600 JMP I DMUL 88 00320 7040 CMA 89 00321 3353 DCA ADDR 90 00322 1363 TAD D 91 00323 7041 CMA IAC 92 00324 3363 DCA D 93 00325 1362 TAD C 94 00326 7040 CMA 95 00327 7420 SNL 96 00330 5344 JMP ARND 97 00331 7101 IAC CLL 98 00332 3362 DCA C 99 00333 7420 SNL 100 00334 5345 JMP ARND+1 101 00335 1361 TAD B 102 00336 7141 CMA IAC CLL 103 00337 3361 DCA B 104 00340 1353 TAD ADDR 105 00341 7430 SZL 106 00342 7001 IAC 107 00343 5600 JMP I DMUL 108 00344 3362 ARND, DCA C 109 00345 1361 TAD B 110 00346 7040 CMA 111 00347 3361 DCA B 112 00350 5340 JMP ARND-4 113 00351 7776 REST, 7776 114 00352 0000 SGN, 0 115 00353 0000 ADDR, 0 116 00354 0000 SAV, 0 117 00355 0000 CNDH, 0 118 00356 0000 CNDL, 0 119 00357 0000 PERH, 0 120 00360 0000 PERL, 0 121 00361 0000 B, 0 122 00362 0000 C, 0 123 00363 0000 D, 0 124 00364 0400 MP4, XMP4 125 00365 0427 MP2, XMP2 126 00366 0423 MP5, XMP5 127 *400 128 00400 0000 XMP4,0 129 00401 3224 DCA MP1 130 00402 3223 DCA XMP5 131 00403 1226 TAD THIR 132 00404 3225 DCA MP3 133 00405 1224 TAD MP1 134 00406 7010 RAR 135 00407 3224 DCA MP1 136 00410 1223 TAD XMP5 137 00411 7430 SZL 138 00412 5230 JMP XMP2+1 139 00413 7110 CLL RAR 140 00414 3223 RET2, DCA XMP5 141 00415 2225 ISZ MP3 142 00416 5205 JMP XMP4+5 143 00417 1224 TAD MP1 144 00420 7010 RAR 145 00421 7100 CLL 146 00422 5600 JMP I XMP4 147 00423 0000 XMP5, 0 148 00424 0000 MP1, 0 149 00425 0000 MP3, 0 150 00426 7764 THIR, 7764 151 00427 0000 XMP2, 0 152 00430 1227 TAD XMP2 153 00431 7020 CML 154 00432 7010 RAR 155 00433 5214 JMP RET2 156 $