Google
 

Trailing-Edge - PDP-10 Archives - BB-PBDEB-BB_1990 - 10,7/unsmon/pltser.mac
There are 10 other files named pltser.mac in the archive. Click here to see a list.
TITLE PLTSER - PLOTTER SERVICE ROUTINE - V052
SUBTTL T. EGGERS/GBH/TNM/RCC	25 OCTOBER 88

	SEARCH	F,S,DEVPRM
	$RELOC
	$HIGH

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
;  OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION
; 1973,1974,1975,1976,1977,1978,1979,1980,1982,1984,1986,1988.
;ALL RIGHTS RESERVED.

.CPYRT<1973,1988>


XP VPLTSR,052			;PUT VERSION NUMBER IN STORAGE MAP AND GLOB

PLTSER::ENTRY	PLTSER		;LOAD IF LIBRARY SEARCH
SUBTTL	DEVICE DEFINITIONS


;DATAO BITS
	PEN.UP==40		;LIFT THE PEN
	PEN.DN==20		;LOWER THE PEN
	NEG.X== 10		;ROLL DRUM BACK
	POS.X==  4		;ROLL DRUM FORWARD
	POS.Y==  2		;MOVE CARRIAGE LEFT
	NEG.Y==  1		;MOVE CARRIAGE RIGHT
;CONI BITS
	PLBUSY==20		;PLOTTER IS BUSY
	PLDONE==10		;PLOTTER DONE FLAG
	PLPICH== 7		;PI CHANNEL ASSIGNMENT
PLTUP==200000		;LIFT PEN WHEN OUTPUT FINISHED
SUBTTL	AUTOCONFIGURE


;DRIVER CHARARCTERISTICS
;	PLT	= PLTCNF
;	PLT	= PLOTTER
;	7	= MAXIMUM DEVICES IN SYSTEM
;	0	= KONTROLLER TYPE
;	0	= MAXIMUM DRIVES PER KONTROLLER
;	0	= HIGHEST DRIVE NUMBER ON KONTROLLER
;	MDSEC0	= SECTION FOR KDB/UDB
;	MDSEC0	= SECTION FOR DDB
DRVCHR	(PLT,PLT,7,0,0,0,MDSEC0,MDSEC0,<DR.GCC!DR.NET>)

	 .ORG	DEVLEN

PLTCSO:! BLOCK	1		;ADDRESS OF INTERRUPT CODE
PLTIOB:!			;START OF I/O INSTRUCTIONS
PLTCNO:! BLOCK	1		;CONO
PLTDTO:! BLOCK	1		;DATAO
PLTIOE:!			;END OF I/O INSTRUCTIONS
PLTLEN:!			;LENGTH OF PLT DDB

	 .ORG


	$LOW
PLTDDB:	DDBBEG	(PLT,PLTLEN)
	SETWRD	(DEVCHR,<4*HUNGST,,PLTSIZ##>)	;DEVCHR
	SETWRD	(DEVSER,<MCSEC0+PLTDSP>)	;DEVSER
	SETWRD	(DEVMOD,<DVOUT,,<1_A+1_AL+1_I+1_IB+1_B>>) ;DEVMOD
	SETWRD	(DEVTYP,<<.TYPLT*.TYEST>!.SPPLT,,0>) ;DEVTYP
	SETWRD	(DEVCPU,<PLTCHN##>)		;DEVCPU
	SETWRD	(PLTCNO,<CONO  000,(T1)>)	;CONO
	SETWRD	(PLTDTO,<DATAO 000,T1>)		;DATAO
	DDBEND
	$HIGH


;CONSO SKIP CHAIN CODE (AUTCON WILL FILL IN THE BLANKS)
PLTICD:	PHASE	0
	CONSO	000,0			;(00) SKIP IF INTERRUPT FOR THIS LPT
	JRST	.-1			;(01) GO TO NEXT SKIP CHAIN ELEMENT
PLTCTA:!SOSGE	DEVCTR			;(02) OUTPUT CHARACTERS LEFT?
	JRST	PLTINX			;(03) NO
	MOVEM	T1,PLTSV1		;(04) SAVE T1
PLTPTA:!ILDB	T1,DEVPTR		;(05) GET NEXT CHARACTER
	DATAO	000,T1			;(06) SEND TO PLOTTER
	MOVE	T1,PLTSV1		;(07) RESTORE T1
	XJEN	-1			;(10) DONE
PLTINX:!JSR	PIERR##			;(11) SAVE ACS AND SETUP PDL
	SKIPA	F,.+1			;(12) SET UP DDB ADDRESS
PLTDDA:!EXP	0			;(13) DDB ADDRESS
	XJRST	.+1			;(14) CALL INTERRUPT HANDLER
PLTICN:!EXP	0			;(15) INTERRUPT HANDLER ADDRESS
PLTSV1:!EXP	-1			;(16) STORAGE FOR AC T1
	DEPHASE
PLTICL==.-PLTICD			;LENGTH OF CONSO SKIP CHAIN CODE

EQUATE	(LOCAL,0,<PLTCKT,PLTKDB,PLTKLN,PLTUDB,PLTULN>)
EQUATE	(LOCAL,0,<PLTULB,PLTULP>)

PLXDSP:	DRVDSP	(PLT,PLTCHN##,PLTDDB,PLTLEN,URDDIA##)

;DEFAULT MONGEN'ED DEVICE TABLE
DEFMDT:	MDKL10	(7,140,0,0,<MD.KON>)	;DEVICE CODE 140
	MDKL10	(7,144,0,0,<MD.KON>)	;DEVICE CODE 144
	EXP	0
PLTCFG:	XMOVEI	T1,PLTMDT##	;MONGEN'ED DEVICE TABLE
	XMOVEI	T2,DEFMDT	;DEFAULT TABLE
	MOVNI	T3,1		;NO MASSBUS UNIT OR DRIVE INFORMATION
	MOVEI	T4,MD.KON	;MATCH ON KONTROLLER DEFINITION
	PUSHJ	P,AUTMDT##	;SCAN THE TABLES
	  JRST	CPOPJ1##	;NO MATCHES
	PUSH	P,T1		;SAVE MDT DATA
	MOVEI	T1,PLTIOB	;WORD CONTAINING AN I/O INSTRUCTION
	PUSHJ	P,AUTFND##	;SEE IF THERE'S ALREADY A DDB
	  JRST	PLTCF1		;JUST MAKE SURE THE NUMBERS ARE OK
	PUSHJ	P,AUTADN##	;ALLOCATE A DEVICE NUMBER
	HRLI	T1,'PLT'	;INCLUDE GENERIC DEVICE NAME
	SETZ	T2,		;LOCAL DEVICE
	PUSHJ	P,AUTDDB##	;CREATE A DDB
	  JRST	[POP	P,T1	;NO CORE
		 PJRST	AUTDDN##] ;DEALLOCATE DEVICE NUMBER
PLTCF1:	MOVSI	T1,-<PLTIOE-PLTIOB> ;-LENGTH
	XMOVEI	T2,PLTIOB(F)	;STARTING ADDRESS
	HRRZ	T3,.CPDVC##	;DEVICE CODE
	PUSHJ	P,AUTDVC##	;FILL IN DEVICE CODES
	SKIPE	PLTCSO(F)	;BEEN HERE BEFORE?
	JRST	PLTCF3		;THEN DON'T MESS WITH THE SKIP CHAIN
	MOVE	T1,F		;DATA BLOCK ADDRESS
	XMOVEI	T2,PLTINT	;INTERRUPT SERVICE
	PUSHJ	P,AUTICD##	;GENERATE INTERRUPT ROUTINES
	  SKIPA	T2,F		;NO CORE
	JRST	PLTCF2		;ONWARD
	MOVEI	T1,PLTLEN	;GET DDB LENGTH
	PUSHJ	P,AUTKIL##	;DELETE THE DDB
	PUSHJ	P,AUTDDN##	;DEALLOCATE DEVICE NUMBER
	JRST	TPOPJ##		;PHASE STACK AND RETURN
PLTCF2:	MOVEM	T1,PLTCSO(F)	;SAVE ADDRESS
	MOVEI	T2,DEVCTR(F)	;COUNTER ADDRESS
	HRRM	T2,PLTCTA(T1)	;RELOCATE DDB BYTE COUNTER
	MOVEI	T2,DEVPTR(F)	;BYTE POINTER ADDRESS
	HRRM	T2,PLTPTA(T1)	;RELOCATE DDB BYTE POINTER
	MOVEI	T2,PLTCHN##	;PI CHANNEL
	PUSHJ	P,AUTCSO##	;LINK INTO CONSO SKIP CHAIN
PLTCF3:	POP	P,T1		;GET MDT DATA BACK
	POPJ	P,		;ALL DONE
;DISPATCH TABLE

	JRST	CPOPJ1##	;IF YOU'RE ASKING, IT'S ONLINE
	JRST	ECOD2##		;SPECIAL ERROR STATUS
	JRST	REGSIZ##	;BUFFER LENGTH CAN BE GOTTEN FROM DDB
	JRST	PLTINI		;INITIALIZE
	JRST	PLTHNG		;HUNG DEVICE ERROR
PLTDSP:	JRST	PLTREL		;RELEAS
	JRST	PLTCLS		;CLOSE
	JRST	PLTOUT		;OUTPUT
	JRST	ILLINP##	;INPUT

PLTCLS:	TLO	S,PLTUP		;PLOTTER END FLAG SET
	MOVEM	S,DEVIOS(F)
	JRST	OUT##		;DO AN OUTPUT

PLTINI:	MOVEI	PLTDDB		;ADDRESS OF PROTOTYPE
	CAIN	T1,(F)		;IF CALLED FOR PROTOTYPE,
	JRST	CPOPJ1##	;HOLD OUT FOR A REAL PLOTTER
	AOS	(P)		;CALL FOR EACH PLOTTER (AS IF THERE WERE TWO)
PLTHNG:
PLTREL:	MOVEI	T1,0
	XCT	PLTCNO(F)	;DEASSIGN PI CHANNEL, CLEAR DONE
	HLLZS	@PLTCSO(F)	;REMOVE PLOTTER FROM DEVICE CHAIN
	POPJ	P,

;HERE BEGINS THE "OUTPUT" UUO

PLTOUT:	PUSHJ	P,PLTSET	;SETUP BYTE POINTER AND COUNTER
	PUSHJ	P,SETACT##	;SET DEVICE ACTIVE BIT
	TLO	S,IO
	MOVEI	T1,10
	HRRM	T1,@PLTCSO(F)	;PUT PLOTTER INTO DEVICE CHAIN
	MOVEI	T1,PLTCHN##	;GET INTERRUPT CHANNEL
	XCT	PLTCNO(F)	;ASSIGN PRIORITY CHANNEL
	TLZE	S,IOBEG		;FIRST OUTPUT UUO?
	TLZA	S,PLTUP		;YES, INIT "CLOSE" BIT
	TDZA	T1,T1		;NO, 1ST PLOT CHAR IS ZERO
	MOVEI	T1,PEN.UP	;START PLOT WITH PEN UP
	MOVEM	S,DEVIOS(F)
	XCT	PLTDTO(F)	;START PLOTTER BY SENDING PEN.UP OR A NO-OP
	POPJ	P,
;FROM HERE THROUGH PLTOFF IS INTERRUPT SERVICE

PLTINT:		;THE PLOTTER CODE IN COMDEV TAKES CARE OF PLOTTER
		;DATA INTERRUPTS THAT REQUIRE ONLY A CHARACTER THAT
		;IS READILY AVAILABLE. TO ADVANCE BUFFERS OR SHUT
		;DOWN THE PLOTTER, THE CODE HERE FOLLOWING IS CALLED.

	PUSHJ	P,IOSET##	;SETS UP R AND S
	PUSHJ	P,ADVBFE##	;ADVANCE AND LOOK AT NEXT BUFFER
	  JRST PLTOFF		;NO MORE DATA AVAILABLE
	PUSHJ	P,PLTSET	;SETUP BYTE POINTER AND COUNTER
PLT2:	PUSHJ	P,SETIOD##	;LET JOB START AGAIN
	JRST	STOIOS##	;EVENTUALLY DISMISS INTERRUPT. IF ADVBFE
				;FOUND MORE DATA (IT SKIPPED), ANOTHER
				;INTERRUPT WILL IMMEDIATELY OCCUR BUT
				;IT WILL BE HANDLED WITHOUT GOING TO PLTNXT

PLTOFF:	PUSHJ	P,PLTREL	;SHUT DOWN PLOTTER
	TRZ	S,IOACT
	MOVEI	T1,PEN.UP	;PEN UP COMMAND
	TLZE	S,PLTUP		;HAS THE "CLOSE" BEEN DONE?
	XCT	PLTDTO(F)	;YES, LIFT PEN
	JRST	PLT2

;THIS SUBROUTINE CALCULATES A BYTE POINTER AND A BYTE COUNTER FOR
;THE BUFFER TO BE OUTPUT.

PLTSET:	MOVEI	T1,@DEVOAD(F)	;GET ADDRESS OF CURRENT BUFFER
	ADD	T1,[POINT 6,1,35]	;CONVERT TO 6 BIT BYTE POINTER WITH
				;ADDRESS OF BUFFER WORD COUNT
	TRNN	S,16		;IS THIS A TEXT DATA MODE?
	HRLI	T1,(POINT 7,0,35)	;YES, CONVERT TO 7 BIT BYTE POINTER
	MOVEM	T1,DEVPTR(F)	;SAVE BYTE POINTER
	HRRZ	T1,@T1		;GET BUFFER WORD COUNT
	MOVEM	T1,DEVCTR(F)	;SAVE AS POSITIVE WORD COUNT
	MOVEI	T1,6		;IMAGE OR BIN MODES - 6 BYTES/WORD
	TRNN	S,16		;IS OUTPUT A TEXT MODE (0 OR 1)?
	MOVEI	T1,5		;YES, 5 BYTES/WORD
	IMULM	T1,DEVCTR(F)	;CHANGE WORD COUNT TO BYTE COUNT
	POPJ	P,		;RETURN

	LIT

PLTEND:	END