
 .FULL
 .LOC 17600
DACX=701544
DACY=701524
TLS=700406
TSF=700401
KRB=700312
KSF=700301
 JMS R
 JMS CRLF
 TCA
 DAC ND
RL JMS R
 RTL
 RTL
 RTL
 DAC I
 LAC (240
 TLS
 TSF
 JMP .-1
 JMS R
 ADD I
 LAC (1
 DAC* I
 ISZ ND
 JMP RL
 JMS DISP
 JMS DISP
 JMS DISP
 HLT
R 0
 DZM ND
 JMS RD
 AND (7
 RTL
 RAL
 XOR ND
 DAC ND
 JMS RD
 AND (7
 RTL
 RAL
 XOR ND
 DAC ND
 JMS RD
 AND (7
 RTL
 RAL
 XOR ND
 DAC ND
 JMS RD
 AND (7
 XOR ND
 DAC ND
 LAC ND
 JMP* R
RD 0
 KSF
 JMP .-1
 KRB
 JMP* RD
DISP 0
 JMP* DISP
CRLF 0
 LAC (215
 TLS
 TSF
 JMP .-1
 LAC (212
 TLS
 TSF
 JMP .-1
 JMP* CRLF
I 0
ND 0
 .END
