/******* TOPS-8 PTP DRIVER *******
/LAST EDIT: 29-SEP-78, HOU
/LAST EDIT: 31-DEC-75, JV
/LAST EDIT: 25-AUG-75, ELC

PPCHAR,	TASKNA PD
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 FOUR BITS
	TAD I PPCA	H
	TAD I PPCA
	ISZ PPC
	RTR
	TAD PPCDF	/ADD I	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 PPEND
	TAD C17		/EXIT WPPERR,	IAC	/TAD (HRDERRL HALT CLEAR SWPOUT
PPRDCA PPCHAR
PPEND,	JMS MONITOR
	   WAIT
	   HSP
	TAD PPCHAR
	6014+KL8P
	JMP I PPOUT

PPCNT,	-200		/200 BLANKS FOR TRAILER

$