[IODIS
[I|0 ROUTINES USING
[SCOPE DISPLAY
[ROUTINES AND ENTRY:
[#8D DECODE OCTAL
[#8E DECODE DECIMAL
[#8F DISPLAY NUMBER
[#8G DISDNO
[#8H DISPLAY POINTS
[#8J CURS
[#8K DHOR2
[#8L DHOR4
[#8M VERT
[DISPLAY [8F] USES
[8D OR 8E FOR INPUT
[
[DECODE OCTAL IN ACC
[ENTER AT 8D
#8D STA i
NUMBER
SCR 11
BCL i
7770
STC 8I
ADD p-5
SCR 6
BCL i
7770
STC 8I+1
ADD p-12
SCR 3
BCL i
7770
STC 8I+2
ADD p-17
BCL i
7770
STC 8I+3
JMP 0
[
[CONVERT OCTAL TO
[SEPARATED DECIMAL 
[N IN ACC
[USES i10,11,12
[ENTER AT 8E
NUMBER
#8E STC p-1
ADD 0
STC p+33
SET i10
8I-4
SET i11
8I-1
SET i12
-4
CLR
STA i11
LDA 10
COM
ADM 
8E-1
AZE i
JMP p+3
APO
JMP p+5
LDA i
1
ADM 11
JMP p-13
LDA 10
ADM
8E-1
XSK i10
XSK i12
JMP p-23
JMP 0
1750
144
12
1
#8I N1
N2
N3
N4
[
[DISPLAY 4 DIGITS
[STORED IN 8I
[X TO i1, Y TO ACC
[USES i1,10,11,12
[ENTER AT 8F
#8F STC p+20
ADD 0
STC p+23
SET i10
-4
SET i11
8I-1
LDA i11
ROL 1
ADA i
p+23
STC 12
ADD 8G+22
APO
JMP 8Y
LDA i
Y
DSC 12
DSC i12
XSK i10
JMP p+2
JMP 0
ADA i
4
STC p-10
ADD p-2
ADM
1
JMP 8F+7
[CHARACTER TABLE
4136
3641
2100
0177
4523
2151
4122
2651
2414
0477
5172
0651
1506
4225
4443
6050
5126
2651
5131
3452
0
0
[HALF SIZE CHAR
#8Y LDA
8F+20
SRO 12
DIS 1
ADD p+5
SRO i
3737
JMP p-5
LDA i
2
ADM 
1
SRO i
2525
JMP 8Y
XSK i12
SRO i
2525
JMP 8Y
LDA 
1
ADD 8Y+11
STC 1
XSK i10
JMP 8F+7
JMP 8F+25
[
[DISDNO
[DISPLAY DECIMAL
[NUMBER [DECODED]
[USES i1,10,11,12
[ENTER AT 8G
[CALLING SEQUENCE:
[   JMP 8G
[   [NUM]
[   X COORD
[   Y COORD
#8G LDA
0
BCL i 
6000
STA 
p+5
ADA i
JMP 0+3
STC p+21
SET i10
0
LDA 10
STC p+6
LDA i10
STC 1
LDA i10
STC p+5
LDA
NUM
JMP 8E
LDA i
Y
JMP 8F
CLR
STC p-6
JMP 0
[
[DISPLAY 2 QUARTERS
[FROM UMB
[ACC = FWA - 1
[USES i10,11
[ENTER AT 8H
#8H STC p+4
ADD 0
STC p+15
SET i10
0
SET i11
2777
LDA i10
NOP
ADA i
-377
DIS i11
NOP
XSK 11
JMP p-7
JMP 0
[
[CURS
[
[DISPLAY A CURSOR
[ACC[O-8]=FWA LIST
[ACC[9-11]=SAM POT
[ON RETURN, Y OF
[CURSOR TO ACC
[USES i10,11
[ENTER AT 8J
#8J STA i
ACC
BCL i
7770
ADA i
100
STC p+1
SAM 0
ADA i
400
STA
10
NOP [X SHIFT
STC 12
ADD 0
STC p+24
ADD 8J+1
BCL i
0007
ADD 10
STC p+2
LDA
0
NOP [Y SHIFT
ADA i
-340
SET i11
-10
DIS 12
ADA i
-4
XSK i11
JMP p-4
ADA i
400
JMP 0
[
[DHOR4
[HORIZ
[
[DISPLAY HORIZONTAL
[LINE AT ACC VALUE
[EVERY 4-TH POINT
[USES i10,11
[ENTER AT 8L
#8L ADA i
-377
STC p+6
ADD 0
STC p+16
SET i11
2777
LDA i
Y-VALUE
SET i10
-200
DIS i11
XSK i11
XSK i11
XSK i11
NOP
XSK i10
JMP p-6
JMP 0
[
[VERT
[
[DISPLAYS VERTICAL
[LINE AT ACC=X
[USES i10,11
[ENTER AT 8M
#8M STC 11
ADD 0
STC p+12
LDA i
-377
SET i10
-200
DIS 11
ADA i
4
XSK i10
JMP p-4
JMP 0
[END OF IODIS