Directory of image this file is from
This file as a plain text file
[DIVSUB [DIVIDE SUB- [ROUTINE FOR [SIGNED 23BIT [NO. BY A [SIGNED 11BIT [NUMBER. [MARK STEIN [DEC #3Q CLR [FORM RETURN ADD 0 STC 6Q ADD 1Q [DETERMINE [QUOTIENT SIGN BCO 4Q STC 5Q ADD 4Q AZE i [REJECT 0 DIV HLT APO JMP p+2 [MAKE DIVIS NEG COM ADA i 1 STA 6Q+6 STC 4Q ADD 1Q APO i JMP p+6 [MAKE DIVID POS COM STC 1Q ADD 2Q COM STC 2Q [RESET ROT CTR SET i 1 1763 CLR ADD 2Q [INITIAL ROT ROL i 1 STC 2Q ADD 1Q ROL i 1 STC 1Q LDA 5Q ROL i 1 #7Q LDA 2Q ROL i 1 STC 2Q XSK i 1 JMP 6Q+1 [ENOUGH ROT ADD 2Q APO i JMP p+5 COM ADA i 4000 STC 2Q #6Q EXIT [SUCCESSIVE [SUBTRACT LOOP ADD 1Q [ROT H-ORDER [DIVID. ROL i 1 STA 1Q LAM i 0 452 [DIVISIBLE-- [STORE REMAIND STC 1Q [NOT DIVISIBLE LDA 4Q STC p-5 JMP 7Q #5Q 0