AB16-CCT4

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 64

3029 05351 0 01 05353 JMP *+2 3030 05352 0 01 05371 JMP MPYN RESULT WILL BE ZERO LNN*LNN 3031 * IN A 3032 05353 0 02 05404 LDA COMM+1 NORMAL, MULTIPLY OPERANDS LOAD MULTIPLIER 3033 05354 000201 IAB MULTIPLIER IN B 3034 05355 0 02 05755 LDA =-15 3035 05356 0 04 05404 STA COMM+1 LOOP COUNTER 3036 05357 140040 CRA CLEAR A REGISTER 3037 05360 0400 77 LRL 1 SHIFT TO RIGHT 3038 05361 100001 SRC EXAMINE RIGHT MOST BIT 3039 05362 0 06 05403 ADD COMM ADD MULTIPLICAND 3040 05363 0 12 05404 IRS COMM+1 CONTROL LOOP 3041 05364 0 01 05360 JMP *-4 RECYCLE 3042 05365 0400 77 LRL 1 3043 05366 0414 77 LGL 1 PUT 0 IN SIGN ORDER OF A REGISTER 3044 05367 0400 77 LRL 1 MOVE 0 TO SIGN OF B REGISTER 3045 05370 -0 01 05340 JMP* MPYS 3046 05371 140040 MPYN CRA RETURN ZERO RESULT 3047 05372 000201 IAB ZERO IN B 3048 05373 0 02 05403 LDA COMM -1 IN A 3049 05374 0 01 05315 JMP MPYA+1 RESULT CANNOT BE REPRESENTED ABORT WITH -1. 3050 * 3051 05375 140040 MLNN CRA CLEAR B 3052 05376 000201 IAB 3053 05377 101400 SMI CHECK MULTIPLICAND = MINUS LARGEST NEG. NO. 3054 05400 -0 01 05340 JMP* MPYS EXIT WITH MULTIPLICAND IN A MULT. IS LNN 3055 05401 0 02 05404 LDA COMM+1 MULTIPLICAND IS LNN, LOAD MULTIPLIER IN A 3056 05402 -0 01 05340 JMP* MPYS EXIT, MULTIPLICAND IS LNN 3057 * 3058 * 3059 05403 000000 COMM BSZ 2 3060 05405 000000 BSZ 10 3061 * 3062 * 3063 * 3064 * 3065 * DIVIDE ROUTINE 3066 * 3067 05417 0 000000 DIV DAC ** ENTRY 3068 05420 101400 SMI CHECK SIGN OF DIVIDEND 3069 05421 0 01 05455 JMP DIVB 3070 05422 140200 RCB RESET C BIT 3071 05423 140401 CMA ONE'S COMPLEMENT HI-ORDER 3072 05424 000201 IAB 3073 05425 140407 TCA TWO'S COMPLEMENT LOW ORDER 3074 05426 101040 SNZ IF LOWER ORDER=0 3075 05427 140600 SCB MUST TWO'S COMPLEMENT HI-ORDER 3076 05430 140100 SSP SET B SIGN PLUS 3077 05431 000201 IAB 3078 05432 141216 ACA