/******* MULTI8 PTP DRIVER *******
/LAST EDIT: 31-DEC-75, JV
/LAST EDIT: 25-AUG-75, ELC

PPCHAR,	"P^100+"P&3777
PPWC,	200
PPCA,	0
PP,	DCA PPCHAR	/SAVE POINTER TO REQUEST
	TAD I PPCHAR	/FETCH FIRST ARGUMENT
	AND C3700	/GET LENGTH
	CIA		/WORDCOUNT IS NEGATIVE
	DCA PPWC
	AC4000
	TAD I PPCHAR	/GET FIELDBITS, R/W TO LINK
	AND C70
	TAD C6201
	DCA PPCDF
	ISZ PPCHAR	/ADVANCE POINTER TO BUFFERADDRESS
	TAD I PPCHAR
	DCA PPCA	/SET UP CURRENT ADDRESS
/IF BLOCK # = 0 , LEADER ?????
	CDTOIF
	CIF MONFLD
	JMS I ZRESERV	/GERESEV INTERRUPTSLOT
	   JMS ALARM	/NO SLOT AVAILABLE !
	JMS MONITOR
	   RETURN CONTINUE /GIVE INTERRUPT SLOT TO USER
	DCA PPRSLT	/AND COPY SLOT# IN ERRORRETURN
	SNL		/LINK STIL CONTAINS READ/WRITE BIT
	 JMP PPERR	/CAN'T READ FROM THE PUNCHER
PPCDF,	CDF		/OVERLAID WITH CDF TO BUFFER FIELD
PPLOOP,	TAD I PPCA	/FETCH A WORD
	JMS PPUNCH	/PUNCH THE FIRST PPCHAR
	TAD I PPCA
	ISZ PPCA
	AND C7400
	DCA PPCDF	/HOLD UPPER FOUR BITS
	TAD I PPCA	/SECOND WORD
	JMS PPUNCH
	TAD I PPCA
	ISZ PPCA
	AND C7400
	CLL RTR
	RTR
	TAD PPCDF	/ADD IN HIGHORDER BITS
	RTR
	RTR
	JMS PPUNCH
	ISZ PPWC
	 JMP PPLOOP
	TAD PPRSLT
	DCA PPSLOT
	JMS MONITOR
	   SIGNAL HALT
PPSLOT,	0

PPUNCH,	0
	JMS PPOUT
	AND (377
	TAD (-232
	SZA CLA
	 JMP I PPUNCH
	JMS PPOUT	/GIVE SOME TRAILER TAPE
	ISZ PPCNT
	 JMP PPEND
	TAD C17		/EXIT WITH STATUS 20 (EOFERR)
PPERR,	IAC	/TAD (HRDERR
	JMS MONITOR
	   SIGNAL HALT CLEAR SWPOUT
PPRSLT,	   0

PPOUT,	0
	DCA PPCHAR
PPEND,	JMS MONITOR
	   WAIT
	   PTP
	TAD PPCHAR
	6024		/PUNCH
	JMP I PPOUT

PPCNT,	-200		/200 BLANKS FOR TRAILER

$