+$/
[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 .+2
[MAKE DIVIS NEG
COM
ADA I
1
STA
6Q+6
STC 4Q
ADD 1Q
APO I
JMP .+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 .+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 .-5
JMP 7Q
#5Q 0