[THIS PROGRAM WILL DECODE  BCD CHARACTERS ON LINC TAPE
[AND PUNCH THEM OUT IN ASCII CODE ON TELETYPE
[2=CTR FOR DATA WORDS IN ANY ONE BLOCK
[3=CTR FOR LEADER|TRAILER GENERATION
CLR
JMP 5A
SNS 0 [WAITING FOR START
JMP p-1
LDA i
1000
STC 1A
LDA i
#1J 1000
1J
STC 1C
ADA i
400
STC 1B
SET i 2
-110
RDC u
#1A 1000 [1XXX,   1=QN     XXX=BLK NO.
LDA [LOAD DATA WORD
#1B 400 [DATA PTR
SAE i [DOES DATA WORD = 7777
7777
JMP p+2 [NO , NOT 7777
JMP 4A [YES, JMP OUT
SAE [HAS DATA WORD BEEN DECODED
#1C 1000
JMP p+2 [NO
JMP 2A [YES
STC 1T [STORE DATA WORD IN TEMRORARY LOCATION
ADD 1K
ADM [INCREMENT #1C
1C
ADD 1L
APO i
HLT  [DATA WORD NOT DECODED
LDA [RESTORE DATA WORD IN A REG
1T
JMP 1C-1
#2A LDA i
100
ADM [ADD 100 TO ADDRESS OF BCD CODE
1C
LDA
1C
STC 2B
LDA
#2B 0
OPR 14 [TYPE AND PUNCH OUT CODE
XSK i 2 [END OF DATA BLK
JMP 3A [NO
JMP 3B [YES
#3A LDA [INCREMENT DATA PTR
1B
ADD 2K
STC 1B
ADD 1J
STC 1C [REINITIALIZE DECODER PTR
JMP 1B-1
#3B LDA i
215
OPR 14
LDA i 
212
OPR 14
LDA [INCREMENT BLK NO.
1A
ADD 1K
STC 1A
JMP 1J-1
#4A JMP 5A
HLT
#5A SET 17 [GENERATE LEADER|TRAILER
0
SET i 3
-100
LDA i
200
OPR 14 [TYPE AND PUNCH LEADER
XSK i 3
JMP p-2
JMP 17
#2K 0002
#1L -1055
#1K 0001
#1T 0000 [TEMP
$1000 [BCD TABLE
0120 [1
0220 [2
0320 [3
0420 [4
0520 [5
0620 [6
0720 [7
1020 [8
1120 [9
1220 [0
1320 [=
6020 [+
6120 [A
6220 [B
6320 [C
6420 [D
6520 [E
6620 [F
6720 [G
7020 [H
7120 [I
7320 [.
7420 [R PARENTHESIS
4020 [-
4120 [J
4220 [K
4320 [L
4420 M
4520 [N
4620 [O
4720 [P
5020 [Q
5120 [R
5320 [DOLLAR SIGN
5420 [ASTERISK
2120 [|
2220 [S
2320 [T
2420 [U
2520 [V
2620 [W
2720 [X
3020 [Y
3120 [Z
3320 [,
3420 [L PARENTHESIS
$1100 [ASCII CODE TABLE
261 [1
262 [2
263 [3
264 [4
265 [5
266 [6
267 [7
270 [8
271 [9
260 [0
275 [=
253 [+
301 [A
302 [B
303 [C
304 [D
305 [E
306 [F
307 [G
310 [H
311 [I
256 [.
251 [R PARENTHESIS
255 [-
312 [J
313 [K
314 [L
315 [M
316 [N
317 [O
320 [P
321 [Q
322 [R
244 [DOLLAR SIGN
252 [ASTERISK
257 [|
323 [S
324 [T
325 [U
326 [V
327 [W
330 [X
331 [Y
332 [Z
254 [,
250 [L PARENTHESIS