[SUBROUTINE
[INTEGER DIVIDE
[ON ENTRY -
[DIVIDEND IN
[ACCUMULATOR,
[DIVISOR IN A
[LOCATION 7A.
[ON EXIT -
[QUOTIENT IN
[ACCUMULATOR,
[DIVISOR STILL
[IN LOC.7A,
[REMAINDER IN
[LOCATION 7B.
[NEEDS 100 OCT
[WORDS MEMORY.
$200
#7D STAi
0
APO
COM
ROL 1
STAi
0
LDAi
1777
STC p+36
ADD 0
STC p+64
STC p+17
ADD 7A
AZEi
JMP p+60
APOi
COM
STAi
0
CLR
ADD p-17
ROLi1
STC p-21
ADD p+3
ROLi1
STAi
0
ADD p-11
AZEi
COM
APO
JMP p+6
STC p-6
LDAi
1
ADM
p-37
SROi
1777
JMP p-24
LDA
p-51
APOi
JMP p+5
LDA
p-23
COM
JMP p+3
LDA
p-27
STC 7B
ADD p-63
BCO
7A
APOi
JMP p+5
LDA
p-64
COM
JMP p+3
LDA
p-70
JMP 0000
7A=176
7B=177