1 /DOUBLE PRECISION DIVIDE 2 /CALL: TAD ADDRESS OF HI-ORDER DIVIDEND 3 / JMS DDVD 4 / ADDRESS OF HI-ORDER DIVISOR 5 / RETURN: HI-ORDER QUOTIENT IN AC, LOW IN QUOL, REMAINDER 6 / IN HORD, LORD, SIGN OF REMAINDER POSITIVE 7 / ABSOLUTE VALUE OF DIVISOR MUST BE GREATER THAN ABSOLUTE VALUE 8 / OF 2 HI-ORDER WORDS OF DIVIDEND FOR CORRECT RESULTS. 9 *200 10 00200 0000 DDVD, 0 11 00201 3356 DCA DIVA 12 00202 1366 TAD SET 13 00203 3365 DCA L2 14 00204 1756 TAD I DIVA 15 00205 3357 DCA HORD 16 00206 2356 ISZ DIVA 17 00207 1756 TAD I DIVA 18 00210 3360 DCA LORD 19 00211 2356 ISZ DIVA 20 00212 1756 TAD I DIVA 21 00213 3361 DCA QUOH 22 00214 2356 ISZ DIVA 23 00215 1756 TAD I DIVA 24 00216 3362 DCA QUOL 25 00217 1357 TAD HORD 26 00220 7500 SMA 27 00221 5245 JMP GO 28 00222 2365 ISZ L2 29 00223 7140 CMA CLL 30 00224 3357 DCA HORD 31 00225 1362 TAD QUOL 32 00226 7041 CIA 33 00227 3362 DCA QUOL 34 00230 1361 TAD QUOH 35 00231 7040 CMA 36 00232 7420 SNL 37 00233 5350 JMP ARND 38 00234 7101 IAC CLL 39 00235 3361 DCA QUOH 40 00236 7420 SNL 41 00237 5351 JMP ARND+1 42 00240 1360 TAD LORD 43 00241 7141 CMA IAC CLL 44 00242 3360 DCA LORD 45 00243 7430 SZL 46 00244 2357 ISZ HORD 47 00245 7300 GO, CLL CLA 48 00246 1600 TAD I DDVD 49 00247 3356 DCA DIVA 50 00250 1756 TAD I DIVA 51 00251 3363 DCA AC1H 52 00252 2356 ISZ DIVA 53 00253 1756 TAD I DIVA 54 00254 3364 DCA AC1L 55 00255 1363 TAD AC1H 56 00256 7700 SMA CLA 57 00257 5263 JMP XX10 58 00260 2365 ISZ L2 59 00261 7000 NOP 60 00262 5273 JMP XX11 61 00263 1364 XX10, TAD AC1L 62 00264 7041 CMA IAC 63 00265 3364 DCA AC1L 64 00266 1363 TAD AC1H 65 00267 7040 CMA 66 00270 7430 SZL 67 00271 7001 IAC 68 00272 3363 DCA AC1H 69 00273 1367 XX11, TAD MIF 70 00274 3370 DCA DV1 71 00275 7100 CLL 72 00276 5316 JMP DV2 73 00277 1360 DV3, TAD LORD 74 00300 7004 RAL 75 00301 3360 DCA LORD 76 00302 1357 TAD HORD 77 00303 7004 RAL 78 00304 3357 DCA HORD 79 00305 1360 TAD LORD 80 00306 1364 TAD AC1L 81 00307 3355 DCA SAV 82 00310 7004 RAL 83 00311 1357 TAD HORD 84 00312 1363 TAD AC1H 85 00313 7430 SZL 86 00314 5344 JMP OK 87 00315 7200 CLA 88 00316 1362 DV2, TAD QUOL 89 00317 7004 RAL 90 00320 3362 DCA QUOL 91 00321 1361 TAD QUOH 92 00322 7004 RAL 93 00323 3361 DCA QUOH 94 00324 2370 ISZ DV1 95 00325 5277 JMP DV3 96 00326 1362 TAD QUOL 97 00327 2365 ISZ L2 98 00330 5341 JMP XX8 99 00331 7041 CMA IAC 100 00332 3362 DCA QUOL 101 00333 1361 TAD QUOH 102 00334 7040 CMA 103 00335 7430 SZL 104 00336 7001 IAC 105 00337 2200 XX7, ISZ DDVD 106 00340 5600 JMP I DDVD 107 00341 3362 XX8, DCA QUOL 108 00342 1361 TAD QUOH 109 00343 5337 JMP XX7 110 00344 3357 OK, DCA HORD 111 00345 1355 TAD SAV 112 00346 3360 DCA LORD 113 00347 5316 JMP DV2 114 00350 3361 ARND, DCA QUOH 115 00351 1360 TAD LORD 116 00352 7040 CMA 117 00353 3360 DCA LORD 118 00354 5245 JMP GO 119 00355 0000 SAV, 0 120 00356 0000 DIVA, 0 121 00357 0000 HORD, 0 122 00360 0000 LORD, 0 123 00361 0000 QUOH, 0 124 00362 0000 QUOL, 0 125 00363 0000 AC1H, 0 126 00364 0000 AC1L, 0 127 00365 0000 L2, 0 128 00366 7776 SET, 7776 129 00367 7750 MIF, 7750 130 00370 0000 DV1, 0 131 $