AB16-12T3

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

1145 02413 000201 IAB 1146 02414 101400 SMI CHECK MULTIPLICAND = MINUS LARGEST NEG. NO 1147 02415 -0 01 02355 JMP* MPYS EXIT WITH MULTIPLICAND IN A MULT. IS LNN 1148 02416 0 02 00536 LDA COMM+1 MULTIPLICAND IS LNN. LOAD MULTIPLIER IN A 1149 02417 -0 01 02355 JMP* MPYS EXIT, MULTIPLICAND IS LNN 1150 02420 0 04 00535 MEXT STA COMM SAVE RESULT EXIT ROUTINE 1151 02421 0 02 02317 LDA MPY LOAD ENTRY 1152 02422 0 03 00644 ANA ='37777 GET RID OF INDIRECT BIT 1153 02423 0 04 00536 STA COMM+1 STORE RETURN 1154 02424 0 02 00535 LDA COMM RESTORE RESULT 1155 02425 -0 01 00536 JMP* COMM+1 RETURN 1156 * 1157 * DIVIDE ROUTINE 1158 * 1159 02426 -0 000000 DIV DAC* ** 1160 02427 101400 SMI CHECK SIGN OF DIVIDEND 1161 02430 0 01 02464 JMP DIVB 1162 02431 140200 RCB RESET C BIT 1163 02432 140401 CMA ONE'S COMPLEMENT HI-ORDER 1164 02433 000201 IAB 1165 02434 140407 TCA TWO'S COMPLEMENT LOW ORDER 1166 02435 101040 SNZ IF LOWER ORDER=0 1167 02436 140600 SCB MUST TWO'S COMPLEMENT HI-ORDER 1168 02437 140100 SSP SET B SIGN PLUS 1169 02440 000201 IAB 1170 02441 141216 ACA 1171 02442 101400 SMI IS NUMERATOR LARGEST NEGATIVE NUMBER 1172 02443 0 01 02445 JMP *+2 NO CONTINUE, NORMAL 1173 02444 0 01 02462 JMP DIVZ ERROR EXIT ILLEGAL DIVIDE 1174 02445 0 04 00533 STA COME+1 1175 02446 -0 02 02426 LDA* DIV CHECK SIGN OF DIVISOR 1176 02447 101400 SMI 1177 02450 0 01 02471 JMP DIVC 1178 02451 140407 TCA TWO'S COMPLEMENT DIVISOR 1179 02452 101400 SMI TEST FOR LARGEST NEGATIVE NUMBER 1180 02453 0 01 02457 JMP DIVA DIVIDE DIVIDEND, DIVISOR SAME SIGN 1181 02454 0 02 00533 LDA COME+1 RESULT POSITIVE, LOAD NUMERATOR 1182 02455 000201 SWAP IAB 1183 02456 0 01 02460 JMP DIVX 1184 02457 0 10 02504 DIVA JST DIVS DIVIDE IF DIVISOR AND DIV SAVE SIGN 1185 02460 0 12 02426 DIVX IRS DIV INCREMENT FOR NORMAL RETURN 1186 02461 000201 IAB QUOTIENT IN A REG, REMAINDER IN B 1187 02462 0 12 02426 DIVZ IRS DIV ERROR EXIT 1188 02463 0 01 02533 DEEX JMP DEXT GO TO EXIT 1189 02464 0 04 00533 DIVB STA COME+1 STORE MOST SIGNIFICANT HALF OF DIVIDEND 1190 02465 -0 02 02426 LDA* DIV CHECK SIGN OF DIVISOR 1191 02466 101400 SMI COMPLEMENT ON NEGATIVE 1192 02467 0 01 02457 JMP DIVA DIVIDE OPERAND ARE OF SAME SIGN 1193 02470 140407 TCA TWOS COMPLEMENT 1194 02471 101400 DIVC SMI CHECK DENOMINATOR FOR LARGEST NEGATIVE NO.