AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 27

1195 02472 0 01 02476 JMP DIVN NOT LNN 1196 02473 0 02 00533 LDA COME+1 RESULT SIGN WILL BE NEGATIVE 1197 02474 000201 IAB RESULT IS NUMERATOR 1198 02475 0 01 02477 JMP *+2 BY PASS DIVIDE COMPLEMENT RESULT 1199 02476 0 10 02504 DIVN JST DIVS DIVIDE 1200 * 1201 * RETURN HERE ON NEGATIVE RESULT 1202 * 1203 02477 000201 IAB COMPLEMENT QUOTIENT AND REMAINDER 1204 02500 140407 TCA 1205 02501 000201 IAB 1206 02502 140407 TCA 1207 02503 0 01 02460 JMP DIVX EXIT 1208 * 1209 * DIVIDE ROUTINE WIIH HIGH ORDER DIVIDEND IN 1210 * COMMON +1, LOW ORDER DIVIDEND IN B REG AND 1211 * DIVISOR IN A REGISTER 1212 * 1213 02504 000000 DIVS HLT 1214 02505 0 04 00532 STA COME SAVE DIVISOR 1215 02506 0 02 00645 LDA =-15 1216 02507 0 04 00534 STA COME+2 LOOP COUNTER 1217 02510 0410 77 LLL 1 MOVE LOW ORDER LEFT 1 1218 02511 0 02 00533 LDA COME+1 LOAD HI ORDER 1219 02512 0 11 00532 CAS COME COMPARE DIVIDEND AND DIVISOR 1220 02513 0 01 02462 JMP DIVZ DIVIDEND GTR THAN OR 1221 02514 0 01 02462 JMP DIVZ EQUAL TO GO TO ERROR RETURN 1222 * 1223 * LOOP FOR DIVISION 1224 * 1225 02515 0412 77 DIVT LLR 1 MOVE DIVIDEND 1 POSITION TO LEFT 1226 02516 100400 SPL TEST SIGN POSITION FOR SPILL 1227 02517 0 01 02524 JMP DIVU MINUS SUBTRACT DIVIDEND IS GREATER 1228 02520 0 11 00532 CAS COME COMPARE DIVIDEND AND DIVISOR 1229 02521 0 01 02524 JMP DIVU IF GREATER SUBTRACT 1230 02522 0 01 02524 JMP DIVU EQUAL SUBTRACT 1231 02523 0 01 02526 JMP DIVH INDEX AND LOOP 1232 02524 0 07 00532 DIVU SUB COME 1233 02525 140500 SSM PUT-1-BIT IN QUOTIENT LOOP 1234 02526 0 12 00534 DIVH IRS COME+2 LOOP 1235 02527 0 01 02515 JMP DIVT LOOP 1236 02530 0412 77 LLR 1 RESET SIGN BITS 1237 02531 0404 77 LGR 1 1238 02532 -0 01 02504 JMP* DIVS 1239 02533 0 04 00532 DEXT STA COME SAVE RESULT EXIT ROUTINE 1240 02534 0 02 02426 LDA DIV LOAD ENTRY 1241 02535 0 03 00644 ANA ='37777 GET RID OF INDIRECT BIT 1242 02536 0 04 00533 STA COME+1 STORE RETURN 1243 02537 0 02 00532 LDA COME RESTORE RESULT 1244 02540 -0 01 00533 JMP* COME+1 RETURN