+$/
[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 .+34
[DECODE NUM INTO 8I
JMP 8E+1
[OUTPUT
SET I10
-3
SET I11
8I-1
LDA I
240
STC .+14
LDA I11
AZE I
JMP .+10
ADA I
260
514
LDA I
260
STC .+3
JMP .+4
LDA I
240
514
XSK I10
JMP .-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 .+5
CLR
ADD 0
STC .+10
SET I10
-N
LDA I
240
514
XSK I10
JMP .-4
JMP 0
[
[DECODE OCTAL IN ACC
[ENTER AT 8D
#8D STA I
NUMBER
SCR 11
STC 8I
ADD .-3
SCR 6
BCL I
7770
STC 8I+1
ADD .-10
SCR 3
BCL I
7770
STC 8I+2
ADD .-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 .-1
ADD 0
STC .+33
SET I10
8I-4
SET I11
8I-1
SET I12
-4
CLR
STA I11
LDA 10
COM
ADM 
8E-1
AZE I
JMP .+3
APO
JMP .+5
LDA I
1
ADM 11
JMP .-13
LDA 10
ADM
8E-1
XSK I10
XSK I12
JMP .-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 .+57
LDA I
215
514
LDA I
275
514
CLR
STC 8N-1
SET I10
8N-5
SET I11
.+43
[WAIT FOR CHARACTER
KST
JMP .-1
KBD
SAE I
13
JMP .+2
JMP 8N+3
SAE I
14
JMP .+2
JMP .-12
SAE I
12
JMP .+2
JMP .+3
STA I11
JMP .-20
[ALL NUMBERS IN
[FORM DECIMAL WORD
LDA 11
ADM
8N-1
LDA
11
ADA I
-1
SAE I
.+11
JMP .+2
JMP .+5
STC 11
LDA 11
MUL I10
JMP .-15
[EXIT
LDA
8N-1
JMP 0
W1
W2
W3
W4
[END OF IOTTY