AB16-12T3

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

1045 02273 0 04 02301 STA DCOT 1046 02274 0 10 02302 JST DCOM 1047 02275 000001 DEC 1 X1 1048 02276 0 06 02301 ADD DCOT 1049 02277 0 04 02301 STA DCOT 1050 02300 -0 01 02257 JMP* DCO 1051 02301 0 000000 DCOT DAC ** 1052 * 1053 02302 0 000000 DCOM DAC ** 1054 02303 140040 CRA 1055 02304 0410 74 LLL 4 MULTIPLICAND 1056 02305 000201 IAB 1057 02306 0 04 02316 STA DCOS 1058 02307 000201 IAB 1059 02310 0 10 02317 JST MPY 1060 02311 -0 002302 DAC* DCOM MULTIPLIER 1061 02312 0 02 02316 LDA DCOS 1062 02313 000201 IAB 1063 02314 0 12 02302 IRS DCOM 1064 02315 -0 01 02302 JMP* DCOM 1065 02316 0 000000 DCOS DAC ** 1066 * 1067 * MULTIPLY ROUTINE 1068 * 1069 02317 -0 000000 MPY DAC* ** 1070 02320 101400 SMI CHECK SIGN OF MULTIPLIER 1071 02321 0 01 02333 JMP MPYB POSTIVE 1072 02322 140407 TCA NEGATIVE TWO'S COMPLEMENT 1073 02323 000201 IAB MULTIPLIER IN B REGISTER 1074 02324 -0 02 02317 LDA* MPY LOAD MULTIPLICAND 1075 02325 101400 SMI CHECK SIGN 1076 02326 0 01 02340 JMP MPYC POSITIVE 1077 02327 140407 TCA NEGATIVE TWO'S COMPLEMENT 1078 02330 0 10 02355 MPYA JST MPYS EXIT TO PERFORM MULTIPLICATION 1079 02331 0 12 02317 IRS MPY INCREMENT FOR RETURN 1080 02332 0 01 02420 MPAA JMP MEXT EXIT 1081 02333 000201 MPYB IAB PLACE MULTIPLIER IN B REG 1082 02334 -0 02 02317 LDA* MPY 1083 02335 101400 SMI CHECK SIGN OF MULTIPLICAND 1084 02336 0 01 02330 JMP MPYA MULTIPLICAND PLUS, GO TO MULTIPLY 1085 02337 140407 TCA 1086 02340 0 10 02355 MPYC JST MPYS NEGATIVE-2'S COMPLEMENT RESULT 1087 02341 140200 RCB RESET C BIT 1088 02342 140401 CMA ONE'S COMPLEMENT HI-ORDER 1089 02343 000201 IAB 1090 02344 140407 TCA TWO'S COMPLEMENT LOW ORDER 1091 02345 140407 TCA TWO'5 COMPLEMENT LOW ORDER 1092 02346 101040 SNZ IS RESULT ZERO 1093 02347 140600 SCB INSERT 1 FOR CARRY IN 1094 02350 140100 SSP RESET MSB TO 2ERO