/DECTAPE DEVICE HANDLER

SDSS=6771
SDST=6772
SDSQ=6773
SDLC=6774
SDLD=6775
SDRC=6776
SDRD=6777


*2000


DTA0,	0
	CLL CLA CMA RTL
	DCA TRYCNT
	RDF
	TAD C6203
	DCA LEAVE
	TAD I DTA0
	DCA XFUNCT
	TAD XFUNCT
	AND C70
	TAD C6201
	DCA XFIELD
	ISZ DTA0
	TAD I DTA0
	DCA XBUFF
	ISZ DTA0
	TAD I DTA0
	DCA BLOCK
	ISZ DTA0
C6201,	CDF
	TAD XFUNCT
	AND N6700
	BSW CMA
	DCA PGCT
	JMP GOA

RWCOM,	SDST
	SZA CLA
	JMP TRY3

	ISZ BLOCK
	CLL

GOA,	ISZ PGCT
	JMP GO
EXIT,	ISZ DTA0
FATAL,	SDLC
LEAVE,	HLT
	JMP I DTA0

GO,	CLA CML RTR
	TAD C1000
	SDLC
	SDRC
	AND C100
	SZA CLA
	JMP FATAL

	JMS RDQUAD
	JMS RDQUAD
N7600,	7600
SRCH,	SDSS
	JMP SRCH
	SDRC
	CLL RTL
	AND C374
	TAD M110
	SNA
	JMP GO
	TAD M20
	SZA CLA
	JMP SRCH
	SDRD
	SZL
	TAD C3
	CMA
	TAD BLOCK
	CMA
	SNA
	JMP FOUND
M110,	CLA SNA SZL
	JMP SRCH
ENDZ,	JMP GO

TRY3,	ISZ TRYCNT
	JMP GO
	CLL CLA
	JMP FATAL


TRYCNT,	0
BLOCK,	0
C3,	3
M20,	-20
C374,	374
C100,	100
C1000,	1000
PGCT,	0
N6700,	6700
XFUNCT,	0
C70,	70
C6203,	6203


PAGE


FOUND,	SZL CLA
	JMP GO
XFIELD,	HLT
	TAD C7600
	DCA WORDS
REVGRD,	SDSS
	JMP REVGRD
	SDRC
	AND K77
	TAD CM32
	SZA CLA
	JMP REVGRD
	TAD XFUNCT
K7700,	SMA CLA
	JMP READ
WRITE,	SDRC
	AND C200
	CLL
	SZA CLA
	JMP FATAL
	JMS RDQUAD
C7600,	7600           /CLA AND CONST
	TAD C1400
	SDLC
	CMA CLA
	JMS WRQUAD
	CMA CLA
	DCA CHKSUM
WRLP,	TAD I XBUFF
	JMS WRQUAD
	ISZ XBUFF
K77,	77
	ISZ WORDS
	JMP WRLP
	JMS WRQUAD
	JMS GETCHK
	JMS WRQUAD
	JMS WRQUAD
	JMP RWCOM


READ,	JMS RDQUAD
	JMS RDQUAD
	JMS RDQUAD
	AND K77
	TAD K7700
	DCA CHKSUM
RDLP,	JMS RDQUAD
	JMS EQUFUN
	DCA I XBUFF
	ISZ XBUFF
C200,	200
	ISZ WORDS
	JMP RDLP
	JMS RDQUAD
	JMS EQUFUN
RDLP2,	JMS RDQUAD
	AND K7700
	JMS EQUFUN
	JMS GETCHK
	JMP RWCOM


WRQUAD,	0
	JMS EQUFUN
	SDSQ
	JMP .-1
	SDLD
	CLA
	JMP I WRQUAD


RDQUAD,	0
	SDSQ
	JMP .-1
	SDRD
	JMP I RDQUAD


EQUFUN,	0
	CMA
	DCA EQUTMP
	TAD EQUTMP
	AND CHKSUM
	CIA
	CLL RAL
	TAD EQUTMP
	TAD CHKSUM
	DCA CHKSUM
	TAD EQUTMP
	CMA
	JMP I EQUFUN


GETCHK,	0
	CLA
	TAD CHKSUM
	CLL CMA RTL
	RTL
	RTL
	JMS EQUFUN
	CLL CLA CML
	TAD CHKSUM
	AND K7700
	JMP I GETCHK

WORDS,	0
CM32,	-32
C1400,	1400
CHKSUM,	0
XBUFF,	0
EQUTMP,	0




$$$$$$$$$$$$$$$$$$$$$$