[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