File PP.TK

Directory of image this file is from
This file as a plain text file

/******* 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 UPPE	/SECOND WORD
	JMS PPUNCA
	AND C7400
	CLL RTRIN HIGHORDER BITS
	RTR 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 JM WITH STATUS 20 (EOFERR)R JMS MONITOR SIGPRSLT, 0 PPOUT, 0 MONITOR WAIT PTP TAD PPCHAR 6024 /PUNCH JMP I PPOUT PPCNT, -200 /200 BLANKS FOR TRAILER $



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search