Google
 

Trailing-Edge - PDP-10 Archives - cuspmar86binsrc_2of2_bb-fp63a-sb - 10,7/galaxy/lptspl/lptlp5.mac
There are 10 other files named lptlp5.mac in the archive. Click here to see a list.
TITLE	LPTLP5 - LP05 class printer driver for LPTSPL-10
SUBTTL	D. Mastrovito/DPM	12-SEP-85

;
;
;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984,1985,1986.
;			ALL RIGHTS RESERVED.
;
;     THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
;     AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
;     AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS
;     SOFTWARE  OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
;     OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.  NO  TITLE  TO
;     AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
;
;     THE INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE
;     WITHOUT  NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;     BY DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
;     OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT SUPPLIED BY
;     DIGITAL.
;

	SEARCH	GLXMAC			;SEARCH GALAXY PARAMETERS
	SEARCH	QSRMAC			;SEARCH QUASAR PARAMETERS
	SEARCH	ORNMAC			;SEARCH ORION/OPR PARAMETERS
	SEARCH	LPTMAC			;SEARCH LPTSPL PARAMETERS
	PROLOG	(LPTLP5)

IF2,<PRINTX Assembling GALAXY-10 LPTLP5>

	LP5EDT==2

	SALL				;FOR CLEAN LISTINGS
	.DIRECT	FLBLST			;FOR CLEANER LISTINGS

	ENTRY	LPTLP5			;LOAD IF LIBRARY SEARCH
SUBTTL	Revision History

	COMMENT \

1	Create this module.
2	Make this module handle spooling to tape as well.
	GCO 10340 6-Dec-85 /NT

\ ;End Revision history
SUBTTL	LPTLP5 - Dispatch table


; This module will drive any LP05 class printer.

LPTLP5::DEVDSP	(LP5,<LP05>)

LP5STS==LPTSTS##			;DEVICE STATUS TEXT


; Driver specific per-job data
	 .ORG	J$DWDS			;DEFINE WORDS STARTING AT J$DWDS
LP5SIZ:!				;END OF DRIVER SPECIFIC DATA
	 .ORG

IF2,<
	IFL <DRVWDS-<LP5SIZ-J$DWDS>>,<
	PRINTX ? LP05 driver definitions overflow storage
	>
> ;END IF2
SUBTTL	LP5INX - Initialization


LP5INX:	JUMPE	M,.RETT			;RETURN IF LPTSPL INITIALIZATION
	MOVE	S1,STREAM##		;GET STREAM NUMBER
	MOVE	S1,JOBOBA##(S1)		;AND THE OBJECT BLOCK
	MOVE	S1,OBJ.ND(S1)		;GET STATION NUMBER
	PUSHJ	P,LPTANF##		;MUST BE ANF-10
	JUMPF	INIT.1			;ELSE RETURN
	SKIPN	S1,SUP.ST(M)		;GET DEVICE NAME IF ANY
	MOVSI	S1,'LPT'		;ELSE WANT A NORMAL LPT
	PUSHJ	P,LPTDVN##		;GENERATE DEVICE NAME
	MOVE	T1,J$LDEV(J)		;GET DEVICE NAME
	DEVCHR	T1,UU.PHY		;GET DEVICE CHARACTERISTICS
	TXNN	T1,DV.LPT		;PROPER DEVICE TYPE?
	JRST	INIT.1			;NOT FOR US
	MOVE	T1,[2,,T2]		;SET UP UUO AC
	MOVEI	T2,.DFHCW		;FUNCTION CODE
	MOVE	T3,J$LDEV(J)		;DEVICE NAME
	DEVOP.	T1,UU.PHY		;READ HARDWARE CHARACTERISTICS
	  SETZ	T1,			;FAILED??
	LOAD	T1,T1,DF.CLU		;GET THE UNIT TYPE
	CAIE	T1,.DFUFG		;LP05 CLASS PRINTER?
	JRST	INIT.1			;TRY ANOTHER DRIVER
	MOVE	T1,['LP05  ']		;UNIT TYPE IDENTIFIER
	MOVEM	T1,J$LTYP(J)		;SAVE PRINTER CLASS FOR QUASAR
	HRLZI	T1,LPTLP5		;POINT TO DISPATCH TABLE
	HRRI	T1,J$$DEV(J)		;MAKE A BLT POINTER
	BLT	T1,J$$DND(J)		;COPY INTO JOB STORAGE AREA
	SETOM	J$POSF(J)		;LP05 DOES POSITIONING
	SETOM	J$FFDF(J)		;LP05 DOES FORM FEEDS
	SETOM	J$MNTF(J)		;LP05 SUPPORTS MOUNTABLE FORMS
	MOVEI	S1,%RSUOK		;LOAD THE CODE
	$RETT				;RETURN

INIT.1:	MOVNI	S1,1			;-1 MEANS DEVICE NOT FOR US
	$RETF				;RETURN

INIT.2:	SKIPA	S1,[%RSUNA]		;UNIT NOT AVAILABLE
INIT.3:	MOVEI	S1,%RSUDE		;UNIT WILL NEVER BE AVAILABLE
	$RETF				;RETURN
SUBTTL	LP5IPC - Special IPCF message processing


LP5IPC:	MOVNI	S1,1			;WE HAVE NO SPECIAL MESSAGES
	$RETF				;RETURN
SUBTTL	LP5SCD - Scheduler call


LP5SCD:	$RETT				;RETURN
SUBTTL	LP5WAK - Wakeup time check


LP5WAK:	$RETT				;RETURN
SUBTTL	LP5OPX - OPEN device


LP5OPX:	MOVX	T1,IO.SFF+.IOASC	;ASCII MODE + SUPPRESS FORM FEED
	PUSHJ	P,LPTOPN##		;SETUP I/O, OPEN CHANNEL, ETC.
	JUMPF	OPEN.1			;CAN'T HAVE IT RIGHT NOW
	PUSHJ	P,LPTHDW##		;SETUP HARDWARE CHARACTERISTICS
	PUSHJ	P,INTCNL##		;CONNECT TO INTERRUPT SYSTEM
	JUMPF	OPEN.2			;GIVE UP
	TXO	S,INTRPT		;INDICATE WE'RE CONNECTED
	MOVEI	S1,%RSUOK		;LOAD THE CODE
	$RETT				;RETURN

OPEN.1:	SKIPA	S1,[%RSUNA]		;UNIT NOT AVAILABLE
OPEN.2:	MOVEI	S1,%RSUDE		;UNIT WILL NEVER BE AVAILABLE
	$RETF				;RETURN
SUBTTL	LP5CLS - CLOSE device


LP5CLS:	TXZE	S,INTRPT		;ARE WE CONNECTED TO INTRPT SYSTEM?
	PUSHJ	P,INTDCL##		;YES,,RELEASE THE INTERRUPTS
	MOVE	S1,J$LCHN(J)		;GET THE CHANNEL
	SKIPE	J$LREM(J)		;ARE WE USING A REMOTE PRINTER?
	JRST	CLOS.1			;YES--ISSUE A CLOSE/RELEASE
	RESDV.	S1,			;RESET THE CHANNEL
	  JFCL				;IGNORE ANY ERRORS
	$RETT				;AND RETURN

CLOS.1:	LSH	S1,^D23			;POSITION THE CHANNEL NUMBER
	TLO	S1,(CLOSE 0,0)		;MAKE IT A CLOSE UUO
	XCT	S1			;CLOSE THE MAG TAPE
	MOVE	S1,J$LCHN(J)		;GET THE CHANNEL NUMBER AGAIN
	LSH	S1,^D23			;POSITION IT
	TLO	S1,(RELEASE 0,0)	;MAKE IT A RELEASE UUO
	XCT	S1			;RELEASE THE DEVICE
	$RETT				;AND RETURN
SUBTTL	LP5FLS - Flush a job


LP5FLS:	PJRST	LPTFLS##		;CALL COMMON FLUSH ROUTINE
SUBTTL	LP5FVU - Load VFU


LP5VFU:	SKIPN	J$LDVF(J)		;PRINTER HAVE A VFU?
	$RETT				;NOTHING TO DO
	MOVEI	S1,1			;FLAG TO LOAD
	PJRST	LPTVFU##		;LOAD THE VFU AND RETURN
SUBTTL	LP5RAM - Load RAM


LP5RAM:	SKIPE	J$LREM(J)		;IS THIS A REMOTE LPT ???
	$RETT				;YES,,RETURN NOW !!!
	MOVE	S1,J$LCLS(J)		;GET THE CONTROLLER CLASS
	CAIE	S1,.DFS20		;IS THIS A CONSOLE FRONT END LPT ???
	$RETT				;NO,,THEN WE DONT LOAD THE RAM
	PJRST	LPTRAM##		;CALL COMMON ROUTINE AND RETURN
SUBTTL	LP5LER - File LOOKUP error processing


LP5LER:	PJRST	LPTLER##		;CALL COMMON ERROR ROUTINE
SUBTTL	LP5IER - File input error processing


LP5IER:	PJRST	LPTIER##		;CALL COMMON ERROR ROUTINE
SUBTTL	LP5OUT - Output a buffer


LP5OUT:	PJRST	LPTOUT##		;CALL COMMON OUTPUT ROUTINE
SUBTTL	LP5OER - Output error processing


LP5OER:	PJRST	LPTOER##		;CALL COMMON ERROR ROUTINE
SUBTTL	LP5EOX - Output EOF processing


LP5EOX:	$RETT				;NOTHING TO DO
SUBTTL	LP5BJB - Begining of job


LP5BJB:	$RETT				;RETURN
SUBTTL	LP5EJB - End of job


LP5EJB:	$RETT				;RETURN
SUBTTL	LP5BFL - Begining of file


LP5BFL:	$RETT				;RETURN
SUBTTL	LP5EFL - End of file


LP5EFL:	$RETT				;RETURN
SUBTTL	LP5BAN - Banner initialization


LP5BAN:	$RETT				;RETURN
SUBTTL	LP5HDR - Header initialization


LP5HDR:	$RETT				;RETURN
SUBTTL	LP5WID - Header width initialization


LP5WID:	$RETT				;RETURN
SUBTTL	LP5RUL - Ruler processing

LP5RUL:	PJRST	LPTRUL##		;PRINT STANDARD RULER
SUBTTL	LP5SHT - Stream shutdown


LP5SHT:	$RETT				;RETURN
SUBTTL	LP5CHR - Character translator


LP5CHR:	$RETT				;RETURN
SUBTTL	Literal pool


LP5LIT:	LIT

LP5END::!END