*0


READ,	0
NKSF,	KSF
	JMP .-1
NKRB,	KRB
	JMP I READ


WRITE,	0
	TSF
	JMP .-1
	TLS
	JMP I WRITE


*14



INPUT,	BCKGOA-1
OUTPUT,	7735
LIM,	BUFF
POI,	BUFF


START,	KSF
	SKP CLA
	JMP NEXT
CONTIN,	TAD LIM
	CIA
	TAD POI
	SNA CLA
	JMP NODRIV

	TAD I POI
	CDF 0
	DCA I CHARI
	TAD N5322
	DCA I N7706
	TAD N1313
	DCA I N7716
	CDF 10

	TAD POI
	TAD NM377
	SPA CLA
	JMP .+3
	TAD NBUFM1
	DCA POI

	CIF 0
	JMS I SYSI
	4210
	0
	50
	HLT

OUTLOP,	CDF 10
	TAD I INPUT
	CDF 0
	DCA I OUTPUT
	ISZ COUNT
	JMP OUTLOP
	CDF CIF 0
	JMP I RETURN

BCKGOA,	4207
	1010
	0
	64
	HLT
WAYOUT,	5314

COUNT,	-6
SYSI,	7607
N5322,	5322
N7706,	7706
N1313,	1313
N7716,	7716
NM377,	-377
CHARI,	7713
RETURN,	7736
NM215,	-215
N212,	212
N5306,	5306
N333,	333
N335,	335


NODRIV,	TAD N5306
	DCA WAYOUT
	TAD N335
	JMS WRITE
	CLA
	CDF 0
	TAD NKSF
	DCA I N7706
	TAD N5322
	DCA I CHARI
	TAD NKRB
	DCA I N7716
	JMP OUTLOP



NEXT,	KRS
	TAD NM200
	SZA CLA
	JMP NODRIV+5
	TAD N333
	JMS WRITE
	KCC

INLOOP,	JMS READ
	DCA TEM
	TAD TEM
	TAD CONTRR
	SNA CLA
	JMP CONTIN
	TAD TEM
	TAD CONTRQ
	SNA CLA
	JMP NODRIV

	TAD LIM
	CMA
	TAD POI
	SNA CLA
	JMP NODRIV
	TAD TEM
	JMS WRITE

	TAD NM215
	SZA CLA
	JMP NOTCRT
	TAD N212
	JMS WRITE
NM200,	7600	/AND CLA

NOTCRT,	TAD TEM
	DCA I LIM
	TAD LIM
	TAD NM377
	SPA CLA
	JMP INLOOP
	TAD NBUFM1
	DCA LIM
	JMP INLOOP



TEM,	0
NBUFM1,	BUFF-1
CONTRR,	-222
CONTRQ,	-221


BUFF,


"T;"H;"I;"S;" ;"I;"S;" ;"D;"R;"I;"V;"E;" ;"M;"O;"D;"E;