[IOTTY
[I|0 ROUTINES USING
[TELETYPE
[ROUTINES AND ENTRY:
[#8A TYPE OUT
[#8B OUTPUT CR|LF
[#8C OUTPUT N SPACES
[#8D DECODE OCTAL
[#8E DECODE DECIMAL
[#8N TYPEIN
[
[TYPE OUT
[ACC = NUM
[SUPRESS LEADING
[ZEROES
[USES i10,11
[ENTER AT 8A
#8A STC 8E-1
ADD 0
STC p+34
[DECODE NUM INTO 8I
JMP 8E+1
[OUTPUT
SET i10
-3
SET i11
8I-1
LDA i
240
STC p+14
LDA i11
AZE i
JMP p+10
ADA i
260
514
LDA i
260
STC p+3
JMP p+4
LDA i
240
514
XSK i10
JMP p-16
LDA i11
ADA i
260 
514
JMP 0
[
[OUTPUT CR|LF
[ENTER AT 8B
#8B LDA i
212
514
LDA i
215
514
JMP 0
[
[OUTPUT N SPACES
[ACC = N
[USES i10
[ENTER AT 8C
#8C COM
STC p+5
CLR
ADD 0
STC p+10
SET i10
-N
LDA i
240
514
XSK i10
JMP p-4
JMP 0
[
[DECODE OCTAL IN ACC
[ENTER AT 8D
#8D STA i
NUMBER
SCR 11
STC 8I
ADD p-3
SCR 6
BCL i
7770
STC 8I+1
ADD p-10
SCR 3
BCL i
7770
STC 8I+2
ADD p-15
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
[
[TYPEIN
[
[INPUT 4-DIGIT 
[DECIMAL NUMBER
[FROM TYPEWRITER
[EXIT WITH ACC=NUM
[USES i10,11
[ENTER AT 8N
12
144
1750
WORD
#8N LDA
0
STC p+57
LDA i
215
514
LDA i
275
514
CLR
STC 8N-1
SET i10
8N-5
SET i11
p+43
[WAIT FOR CHARACTER
KST
JMP p-1
KBD
SAE i
13
JMP p+2
JMP 8N+3
SAE i
14
JMP p+2
JMP p-12
SAE i
12
JMP p+2
JMP p+3
STA i11
JMP p-20
[ALL NUMBERS IN
[FORM DECIMAL WORD
LDA 11
ADM
8N-1
LDA
11
ADA i
-1
SAE i
p+11
JMP p+2
JMP p+5
STC 11
LDA 11
MUL i10
JMP p-15
[EXIT
LDA
8N-1
JMP 0
W1
W2
W3
W4
[END OF IOTTY