[SQRT-1
[SUBROUTINE TO
[EXTRACT 12 BIT
[SQUARE ROOTS
[FROM 24 BIT
[VALUES. ON
[ENTRY THE MSB
[ARE IN 7S-2
[AND LSB ARE IN
[7S-1. ON EXIT
[ROOT IS IN 
[ACCUMULATOR.
[QWIKEXIT IF
[VALUE IS NEG.
000
000
2000
1000
400
200
100
40
20
10
4
2
1
0
LDAi
00
STC 16
LDAi
00
JMP 000
000
000
[ENTRY POINT
#7S LDA
0
STC 7S-3
ADD 7S-2
APO
JMP 7S-3
LDA
16
STC 7S-7
STC 7S-4
SETi16
7S-25
LDAi16
AZEi
JMP 7S-10
LDA
7S-4
BSE 16
STA
7S-4
MUL
4000+7S-4
COM
STC 7S-26
MSC 5
[ZTA
ROL 1
COM
STC 7S-25
ADD 7S-26
SCRi1
STC 7S-26
ADD 7S-25
RORi1
STC 7S-25
CLR
ADD 7S-1
LAM
7S-25
LDA
7S-2
LAM
7S-26
STC 0
LAM
7S-25
STC 0
LAM
7S-26
APOi
JMP 7S+14
AZE
JMP p+7
LDA
7S-25
AZE
JMP p+3
APO
JMP 7S-10
LDA
7S-4
BCL 16
STC 7S-4
JMP 7S+14
[END OF SUB