*0

CONTRQ,	-221
CONTRZ,	-232


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

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

	JMS RESTOR

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

TEM,	0
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


	JMS RESTOR
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-1
	TAD CONTRZ
	TAD TEM
	SNA CLA
	JMP ERASE

	TAD LIM
	CMA
	TAD POI
	SNA CLA
	JMP FULL
	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


NBUFM1,	BUFF-1
CONTRR,	-222


FULL,	TAD N335
	JMS WRITE
	JMP INLOOP


ERASE,	TAD LIM
	DCA POI
	JMP INLOOP


PAGE

BCKGOA,	4207
	1010
	0
	64
	HLT
WAYOUT,	5314


RESTOR,	0
	CDF 10
	CIF 0
	JMS I SYSI
	4210
	0
	50
	HLT
	JMP I RESTOR


BUFF,