[TD TEST
$20
LDAi
60
OPR 5
#1C SETi1
777
SETi2
3377
#1A LDAi2
DISi1
SXLi5
JMP 1B
KSTi
JMP 1D
XSKi1
JMP 1A
JMP 1C
[ONES TO TWOS
#6A AZEi
CLR
APO
ADD p+2
JMP 0
1
-1
[TWOS TO ONES
#6B APO
ADD p-2
JMP 0
[COMPLETION
#1B LDAi
60
OPR 5
OPR 6   [CLEAR RESIDUAL RESTART LEVEL IF ANY
SETi1
3377
OPRi6
COM
SNSi0
JMP p+2
ROL 4
SCR 4
JMP 6B
STAi1
XSK 1
JMP 1B+6
JMP 20
[KST
#1D KBDi
SHDi
"D'    [D
JMP 1C-3
SHDi
"R'    [R
JMP 1E
RSW
OPR 5
JMP 1D
[RESET
#1E LDAi
0003
OPR 5
JMP 1D
$400 
SXL i6
JMP 2A
SXL 5
JMP 400
LDAi
60
OPR 5
OPR 6
CLR
STC 10
JMP 400
#2A OPRi6
COM
ROL 4
SCR 4
SAEi
145
JMP p+2
JMP p+4
SAEi
1
JMP 500
#5A LDAi
1
ADM
10
JMP 400
[END TDTEST
$500
STAi12
XSK 10
JMP 5A
HLT
SETi12
3777
CLR
STAi12
XSK 12
JMP p-2
JMP 400
[LAST MOD 31 OCT 69