Directory of image this file is from
This file as a plain text file

[DECOUT
[OUTPUT OF DEC ARITH ROUTINES 
[TO E FORMAT CHAR STRINGS
[1L=#DIGITS:  EQUALS STATEMENT AT END OF PROGRAM
[JMP 1V
[ADDR INPUT STRING
[ADDR OUTPUT STRING
[XR 1,2,3
#1V CLR
ADD 0
ADA i
2
STA
1V+131 [RETURN
ADA i
-6002
STC 1
LDA 1
ADA i
-4000
STC 2 [INPUT STRING
LDA i1
ADD p-3
STC 1
SET i3
-1L [#DIGITS
LDA i2 [EXP WORD
ROL i1
SCR 1
[STORE MAN SIGN,SAVE EXP
JMP 1V+133
LDH i2
STH i1
XSK i3 [NO SKIP,1ST DIGIT
LDA i
64 [DEC PT
STH i 1
[STORE REST OF DIGITS
LDH i2
STH i1
XSK i3
JMP p-3
[STORE E
LDA i
30
STH i1
SET i3 [EXP DIGIT COUNTER
0
LDA i
-|EXP| [1V+46
ROL i1
SCR 1
APO i
COM
[STORE EXP SIGN, SAVES -|EXP|
JMP 1V+133
CLR
[EXTRACT DECIMAL EXP FROM BINARY
ADD 1V+46
[THOUSAND?
ADAi
1750
APOi
JMP p+7
STC 1V+46
ADD 1V+132 [1
STHi1
LDA
1V+46
JMP p+3
ADAi
-1750
[HUNDREDS
APO i [SKIP
XSK i3
ADA i
144
APO
JMP p-4
STC 1V+46
ADD 3
STH i1
SET i3
0
[CORRECT FOR OVERSHOOT
LDA i
-144
[TENS
ADD 1V+46
APO i [SKIP
XSK i3
ADA i
12
APO
JMP p-4
STC 1V+46
ADD 3
STH i1
[CORRECT
LDA i
-12
[ONES
ADD 1V+46
COM
STH i1
LDA i
77
STH i1
JMP RETURN [1V+131
1
STC 1V+46 [1V+133
LZE i
ADD p-3 [1
ADD 1V+46+4 [17,COM
STH i1
JMP 0
1L=10
[END DECOUT
[JAN 8|25|69
[MOD: MJM 3-11-70