/TDLINE/
DLINE=0200
GXBUF=1400
GXDF=10
PGDF=00
*0600
TDLINE,
GXCLR, CLA CLL
 TAD (GXBUF-1)
 DCA 12
 TAD (-6200)
 DCA TCTR
 CDF GXDF
 DCA I 12
 ISZ TCTR
 JMP .-2
 CDF PGDF
GXDIS, 6156
 JMP .-1
 TAD (GXBUF)
 6150
 NOP
 NOP
 TAD (GXDF+0002)
 6151
GPARMS, CLA CLL
 TLS
 TAD (TPARMS-1)
 DCA 12
 TAD (-5)
 DCA TCTR
GPARM, DCA TTMP
GCHAR, KSF
 JMP .-1
 KRB
 TSF
 JMP .-1
 TLS
 DCA CHAR
 TAD CHAR
 TAD (-215)
 SZA CLA
 JMP GCHARX
 TAD (212)
 TSF
 JMP .-1
 TLS
 CLA CLL
GCHARX, TAD CHAR
 TAD (-272)
 SMA
 JMP DELIM
 TAD (12)
 SPA
 JMP DELIM
 DCA CHAR
 TAD TTMP
 CLL RTL
 TAD TTMP
 CLL RAL
 TAD CHAR
 JMP GPARM
DELIM, CLA CLL
 TAD TTMP
GPARMX, DCA I 12
 ISZ TCTR
 JMP GPARM
 TSF
 JMP .-1
 TAD (TPARMS-1)
 JMS I (DLINE)
 JMP GPARMS
TCTR, 0
TTMP, 0
CHAR, 0
TPARMS, 0
 0
 0
 0
 0
$