File PT.TK

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

/******* 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
	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
	   HSP
	TAD PPCHAR
	6014+KL8P
	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