CHRO00,	0
	DCA	CHR
	JMP I	.+1
CHRRET,	CHRO01
	TAD	CHR
	JMP I	CHRO00

CHRO01,	TAD	CHR200
	DCA	CHRCNT

CHRO02,	JMS	CHRDSK
	TAD	CHR
	AND	CHR377
	RTL
	RTL
	AND	CH7760
	JMS	CHRWRT
	JMS	CHRRET
	TAD	CHR
	AND	CHR377
	RTR
	RTR
	AND	CHR017
	TAD	CHRBUF
	JMS	CHRWRT
	JMS	CHRDSK
	TAD	CHR
	AND	CHR377
	RTR
	RTR
	RAR
	AND	CH7400
	JMS	CHRWRT
	JMS	CHRRET
	TAD	CHR
	AND	CHR377
	TAD	CHRBUF
	JMS	CHRWRT
	ISZ	CHRCNT
	JMP	CHRWAT
	JMS	CHRRET
	TAD	CHRXDT
	EXT
	SZA
	HLT
	JMP	CHRO01

CHRWAT,	JMS	CHRRET
	JMP	CHRO02

CHRWRT,	0
	DCA	CHRBUF
	STA
	DCA	CHRWDT+3
	TAD	CHRCHR
	DCA	CHRWDT+4
	DCA	CHRWDT+6
	TAD	CHRWDT
	WFILE
	TAD	CHRWDT+6
	SZA
	HLT
	JMP I	CHRWRT

CHRDSK,	0
	ISZ	CHRWDT+5
	SKP
	ISZ	CHRWDT+1
	NOP
	JMP I	CHRDSK

CHR,	0
CHRBUF,	0
CHRCNT,	0
CHRTM0,	0
CHRTM1,	0
CHRCHR,	CHRBUF-1
CHR377,	377
CHR200,	-200
CH7400,	7400
CH7760,	7760
CHR017,	17

CHRXDT,	.+1
	2
	1

CHRWDT,	.+1
	-1
	2
	-1
	CHRBUF-1
	-1
	0

$