AB16-CCT4

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

3129 * LOOP FOR DIVISION 3130 05506 0412 77 DIVY LLR 1 MOVE DIVIDEND 1 POSITION TO THE LEFT 3131 05507 100400 SPL TEST SIGN POSITION FOR SPILL 3132 05510 0 01 05515 JMP DIVU MINUS SUBTRACT DIVIDEND IS GREATER 3133 05511 0 11 05524 CAS COMN COMPARE DIVIDEND AND DIVISOR 3134 05512 0 01 05515 JMP DIVU IF GREATER SUBTRACT 3135 05513 0 01 05515 JMP DIVU EQUAL SUBTRACT 3136 05514 0 01 05517 JMP DIVH INDEX AND LOOP 3137 05515 0 07 05524 DIVU SUB COMN 3138 05516 140500 SSM PUT-1-BIT IN QUOTIENT LOOP 3139 05517 0 12 05526 DIVH IRS COMN+2 3140 05520 0 01 05506 JMP DIVY 3141 05521 0412 77 LLR 1 RESET SIGN BITS 3142 05522 0404 77 LGR 1 3143 05523 -0 01 05475 JMP* DIVS 3144 * 3145 05524 000000 COMN BSZ 3 3146 * 3147 * 3148 * 3149 * DETERMINE HIGHEST SECTOR IN MEMORY 3150 * 3151 05527 0 000000 HSEC DAC ** 3152 05530 000013 EXA 3153 05531 140040 CRA 3154 05532 0 04 00462 STA TMP1+1 3155 05533 0 06 05773 HSE1 ADD ='10000 3156 05534 0 12 00462 IRS TMP1+1 3157 05535 0 04 00461 STA TMP1 3158 05536 -0 04 00461 STA* TMP1 3159 05537 140040 CRA 3160 05540 0 04 00000 STA 0 3161 05541 -0 02 00461 LDA* TMP1 3162 05542 100040 SZE HIGHEST ADDRESS REACHED 3163 05543 0 01 05533 JMP HSE1 IF NOT, DO ANOTHER TIME 3164 05544 000021 RMP 3165 05545 0 02 00461 LDA TMP1 3166 05546 0 07 05754 SUB =1 HIGHEST ADDRESS 3167 05547 0404 67 LGR 9 3168 05550 0 04 00464 STA HISC HIGHEST SECTOR 3169 * 3170 05551 0 02 00521 LDA CNTZ DAC OF TIME COMPENS. TABLE 3171 05552 0 06 00462 ADD TMP1+1 3172 05553 0 04 00462 STA TMP1+1 3173 05554 -0 02 00462 LDA* TMP1+1 GET THE COMPENS. FACTOR 3174 05555 0 04 00455 STA CNTY 3175 05556 0 02 05753 LDA ='101000 3176 05557 0 04 00145 STA IN00 3177 05560 -0 01 05527 JMP* HSEC 3178 *