STTL	<PLTTEK - TEKTRONIX 4010-series Graphics Terminals>

TOPS20<;@!Before plotting, the terminal mode must be set up
;	@TERMINAL NO INDICATE	!Do not show Control-] as ^]
;	@TERMINAL FORMFEED	!Formfeed is needed to clear TEKTRONIX screen
;	@TERMINAL WIDTH 0	!Do not send free CRLF after 80 characters
;	@
;	@EXECUTE PLOTTING-PROGRAM.FOR,SYS:TEKPLT.REL
>  ;End TOPS20
;	  These routines will drive the following Tektronix terminals:
;	4006, 4010, 4012, 4014, 4015, 4016, 4025, and others.
;
;	The 4010 is a storage-tube device, all vectors and character data
;	remain on the screen until the entire screen is erased.  The
;	4025 is a raster scan device.  All terminals in the 4010 series
;	use the same set of commands for plotting, the 4014 and 4016 have
;	a larger screen and higher resolution.



SUBTTL	Revision History for PLTTEK.MAC

;Edit	  Date	   Who          Description
;----   ---------  ---  ----------------------------------------------------
; 500	26-Jul-82  JMS	Major changes.
;
; 510	22-Oct-82  JMS	Set up the 4025 terminal properly.
;
;End of Revision History for PLTTEK
	COMMENT &

ESCAPE-CONTROL-E (ENQ) requests a status report
ESCAPE-FORMFEED erases the screen.
ESCAPE-CONTROL-Z turns on the crosshairs (not on 4006 or 4025)
ESCAPE-A-E enables the interactive plotter
ESCAPE-A-F turns off the interactive plotter
ESCAPE-M-L-2 Selects color 2 for drawing lines on 4113
ESCAPE-M-T-: Selects color 10 for drawing text on 4113
CONTROL-] (GS) turns on plot mode, the first move will be with beam off.
CONTROL-UNDERLINE (US) turns off plot mode.  (CR also works for all but 4025.)
CONTROL-X switches HDSGVT from TEKTRONIX mode to NORMAL alpha mode.

The plot commands are characters which specify the absolute position to move
the beam.  All moves except the one immediately after the GS character
(Control-]) are with a visible trace.

For 4010-like devices - The positions are from 0 to 1023 for both X and Y,
although only 0 to 780 are visible for Y due to screen geometry.  The screen is
10.23 by 7.80 inches, and coordinates are sent as 1 to 4 characters.

For 4014-like devices - The positions are from 0 to 4096, but each movement
is a multiple of 4 positions unless the high-resolution LSBXY are sent.  This
makes it compatible with the 4010 in that a full sized plot fills the screen.

HIX,HIY = High-order 5 bits of position
LOX,LOY = Middle-order 5 bits of position
LSBXY   = Low-order 2 bits of X + low-order 2 bits of Y (4014 mode)

Hi Y	Lo Y	Hi X	LSBXY	Characters sent (Lo-X always sent)
----	----	----	-----	----------------------------------
Same	Same	Same	Same	                       Lo-X
Same	Same	Same	Diff	      LSB, Lo-Y,       Lo-X   4014
Same	Same	Diff	Same	           Lo-Y, Hi-X, Lo-X
Same	Same	Diff	Diff	      LSB, Lo-Y, Hi-X, Lo-X   4014
Same	Diff	Same	Same	           Lo-Y,       Lo-X
Same	Diff	Same	Diff	      LSB, Lo-Y,       Lo-X   4014
Same	Diff	Diff	Same	           Lo-Y, Hi-X, Lo-X
Same	Diff	Diff	Diff	      LSB, Lo-Y, Hi-X, Lo-X   4014
Diff	Same	Same	Same	Hi-Y,                  Lo-X
Diff	Same	Same	Diff	Hi-Y, LSB, Lo-Y,       Lo-X   4014
Diff	Same	Diff	Same	Hi-Y,      Lo-Y, Hi-X, Lo-X
Diff	Same	Diff	Diff	Hi-Y, LSB, Lo-Y, Hi-X, Lo-X   4014
Diff	Diff	Same	Same	Hi-Y,      Lo-Y,       Lo-X
Diff	Diff	Same	Diff	Hi-Y, LSB, Lo-Y,       Lo-X   4014
Diff	Diff	Diff	Same	Hi-y,      Lo-Y, Hi-X, Lo-X
Diff	Diff	Diff	Diff	Hi-y, LSB, Lo-Y, Hi-X, Lo-X   4014
Offset for byte:                  40  140   140    40   100

Note that LO-Y must be sent if HI-X has changed so that the TEKTRONIX knows that
the HI-X byte (in the range of 40-77 octal) is HI-X and not HI-Y.  LO-Y must
also be sent if LSBXY has changed, so that the 4010 will ignore LSBXY and
accept LO-Y.  The LSBXY byte is 140 + MARGIN*20 + LSBY*4 + LSBX.  (MARGIN=0)
&	;End of COMMENT
SUBTTL	PPDATA macro expansion

TEKBYT==INSVL.(^D36,IN.BYT)!INSVL.(.IOIMG,IN.MOD) ;1 byte per word, image mode
TEKFLG==SP.CLR!SP.PEN!SP.XHR	;Special routines are ERASE, NEWPEN, XHAIRS
TEKINY==<TEKINX==400.0>	;Increments per inch (100.0 for 4010)
TEKMAX==^D4095,,^D3120	;Max X and Y increments (1023 by 780)
TEKTYP==P4.TTY!3	;This is a graphics terminal, IPLT=3 for WHERE
TEKEXT=='TEK'		;Output extension

  DEFINE	LCDATA,<	;Local data
XBLOCK (TEKHIY,1)	;Must be in this order: HIY,LSB,LOY,HIX,LOX
XBLOCK (TEKLSB,1)	;Hi resolution (4014, 4016)
XBLOCK (TEKLOY,1)	;These 5 words
XBLOCK (TEKHIX,1)	; keep track of what has
XBLOCK (TEKLOX,1)	; been sent to the terminal
  >  ;End of DEFINE LCDATA




	PPDATA	(TEK)		;Expand data area
SUBTTL	Database

;Special characters
	TEK.AL==30	;Control-X for HDSGVT terminal (24 lines of 80 chars)
	TEK.XH==32	;ESCape Control-Z triggers the crosshairs
	TEK.GR==35	;Control-] starts graph mode, 1st move with beam off
	TEK.TX==37	;Control-_ restores text mode (34 lines of 74 chars)
ON4662:	BYTE (7) ESC,"A","E",0	;Enable 4662 interactive plotter
OF4662:	BYTE (7) ESC,"A","F",0	;Disable 4662 interactive plotter

;List of names for Tektronix terminals

	TK.RES==1B0	;Hi-res terminal (4014 or later)
	TK.WOR==1B1	;Must set up workspace (4025,4027)
	TK.PLO==1B2	;Interactive plotter (4662)
	TK.COL==1B3	;Color commands (4027,4113)
;*;	TK.VID==1B4	;Video (raster) display

DEFINE PLNAM$,<
 XX (   3,TEK, TK.WOR)	;Generic (IPLT=3 for subroutine WHERE)
 XX (4006,4006,0)	;11", no XHAIRS, no lowercase
 XX (4010,4010,0)	;11", no lowercase
 XX (4012,4012,0)	;11", standard storage tube with lowercase and XHAIRS
 XX (4014,4014,TK.RES)	;19", hi-res optional (4015=4014+APL)
 XX (4016,4016,TK.RES)	;25", hi-res
 XX (4025,4025,TK.WOR)	;12", raster scan, special setup, XHAIRS optional
 XX (4027,4027,TK.WOR!TK.COL);12", raster scan, color, special setup
 XX (4051,4051,0)	;11", hi-res, 8-bit computer
 XX (4052,4052,0)	;11", hi-res, 16-bit computer
 XX (4054,4054,TK.RES)	;19", hi-res, 16-bit computer
 XX (4112,4112,TK.RES!TK.COL);15", hi-res, raster scan, 8-level gray, picture segment
 XX (4113,4113,TK.RES!TK.COL);19", hi-res, raster scan, color, picture segment
 XX (4114,4114,TK.RES!TK.COL);19", hi-res, picture segment, remembers color
 XX (4662,4662,TK.RES!TK.COL!TK.PLO);Interactive plotter
 XX (4663,4663,TK.RES!TK.COL!TK.PLO);Interactive plotter
 XX (   3,HDSGVT,0)	;Human Design Systems, emulates TEK 4012
>  ;End of DEFINE PLNAM$

DEFINE XX(NUM,NAM,FLAG),<
	DEC	NUM
	ASCII  /NAM/
	EXP	FLAG>

TEKNAM:	PLNAM$		;Table of plotter types
TEKLEN==<.-TEKNAM>/3
SUBTTL	INItialize, FINish, and Pause


;Routine to initialize the Tektronix graphics terminal

TEKINI:	TXNN	P4,P4.TTY	;Output going to a TTY?
	 JRST	TEKCL1		;No, do not send initial ESC-FF
	MOVEI	T1,0		;Nothing special for 4010
	MOVE	T2,PLTTYP(P4)	;Does terminal require setup?
;*;	TXNE	T2,TK.WOR
	 MOVEI	T1,[ASCIZ /
!WORKSPACE 30
!GRAPHIC 1,29
!SHRINK
/]				;Set up the 4025 terminal
	TXNE	T2,TK.PLO	;4662 or 4663?
	 MOVEI	T1,ON4662	;Command to turn on the interactive plotter
	JUMPE	T1,TEKCLR	;Continue if nothing special
	PUSHJ	P,OUTSTG	;Send set-up command
	PFALL	TEKCLR		;Clear the screen

;Routine to clear the screen

TEKCLR:	MOVEI	T1,[BYTE (7)TEK.GR,ESC,FF,0]	;Escape-formfeed clears screen
	PUSHJ	P,OUTDMP	;Send string to terminal
	MOVEI	T1,^D750	;3/4 second
	TXNE	P4,P4.TTY	;Output to a TTY?
	 PUSHJ	P,TOWAIT	;Wait a bit for the screen to settle

TEKCL1:	SETZB	X,Y		;Clear coordinates
	DMOVEM	X,CURR.X(P4)	; ...
	DMOVEM	X,OLDP.X(P4)	; ...
	SETZB	T1,TEKHIY(P4)	;Pen is up, zero saved coords
	SETZM	TEKLSB(P4)	;(This is a
	SETZM	TEKLOY(P4)	; little faster
	SETZM	TEKHIX(P4)	; than a BLT)
	PJRST	TEKMOV		;Set graphics mode and go to (0,0)

		PAGE
;Finish plot by resetting to text mode at upper left corner

TEKFIN:	MOVEI	T1,[BYTE (7)TEK.GR,70,153,40,100,TEK.TX,TEK.AL,0]
	PUSHJ	P,OUTSTG	;Turn off graphics mode, position upper left
	MOVEI	T1,OF4662	;Disable interactive graphics plotter
	MOVX	T2,TK.PLO	;Is it a 4662 or 4663?
	TDNE	T2,PLTTYP(P4)
	 PUSHJ	P,OUTSTG
	PJRST	TTYDMP		;Empty the buffer

;Routine to cause plotter to pause and wait for a linefeed
;T1=-1 to pause, T1=0 to turn graphics off, T1=+1 to resume graphics

TEKPAS:	MOVE	T2,T1		;Save argument
	TXNN	P4,P4.TTY	;Output going to a TTY?
	 POPJ	P,		;No, cannot pause
	JUMPG	T2,TEKON	;Resume graphics if +1
	JUMPE	T2,TEKOFF	;Change to text mode if 0, pause if -1
;Pause and wait for a linefeed
	MOVEI	T1,[BYTE (7)TEK.TX,TEK.AL,7,0]	;Text mode, bell
	PUSHJ	P,OUTDMP	;Output it
	PUSHJ	P,INCHR		;Input a character
	PJRST	TEKPOS		;Reposition beam and return

TEKOFF:	MOVEI	T1,[BYTE (7) TEK.TX,TEK.AL,0]	;Set text mode
	MOVX	T2,TK.PLO	;Use other string for 4662 or 4663
	TDNE	T2,PLTTYP(P4)
	 MOVEI	T1,OF4662	;Set text mode
	PJRST	OUTDMP		;Tell terminal to turn off graphics
SUBTTL	TEKMOV - Move to beam to new position


;  Calling sequence:
;	DMOVE	X,(position in increments)
;	SETO	T1,	;-1 for pen down, 0 for pen up
;	PUSHJ	P,TEKMOV
;	 *return*

; * CALCULATE THE PLOT CHARACTERS TO ARRIVE AT IX,IY
; * ORDER IS HIY, LSBYX, LOY, HIX, LOX
;     KX=IX*KFACTR
;     KY=IY*KFACTR
;     IHIY =MOD(KY/128,32)+32
;     LSBYX=MOD(KY,4)*4+MOD(KX,4)+96
;     ILOY =MOD(KY/4,32)+96
;     IHIX =MOD(KX/128,32)+32
;     ILOX =MOD(KX/4,32)+64


TEKMOV:	MOVEM	T1,CURR.P(P4)	;Set pen up/down status
	DMOVEM	X,CURR.X(P4)	;Store position pen will be in
	JUMPL	T1,TEKDWN	;Continue if pen is down
	MOVEI	T1,TEK.GR	;Tell the TEKTRONIX we are entering graph mode
	PUSHJ	P,OUTBYT	;First movement after GRFMOD is always invisible

TEKDWN:	MOVE	T1,X		;Get coordinate
	IDIVI	T1,4		;Separate LSB
	MOVEI	T3,140(T2)	;Bits for LSB
	IDIVI	T1,40		;Split
	TRO	T1,40		;Bit for Hi-X
	TRO	T2,100		;Bit for Lo-X
	CAME	T1,TEKHIX(P4)	;Same as last time?
	 HRROM	T1,TEKHIX(P4)	;No, flag it
	HRROM	T2,TEKLOX(P4)	;Always output lo-X
	MOVE	T1,Y		;Get coordinate
	IDIVI	T1,4		;Separate LSB
	LSH	T2,2		;Shift over
	IOR	T3,T2		;Combine the X-LSB
	CAME	T3,TEKLSB(P4)	;Same as last time?
	 HRROM	T3,TEKLSB(P4)	;No, flag it
	MOVX	T2,TK.RES
	TDNN	T2,PLTTYP(P4)	;Output to hi-res terminal?
	 SETZM	TEKLSB(P4)	;No, don't waste bytes on 4010
	IDIVI	T1,40		;Split
	TRO	T1,40		;Bit for Hi-Y
	TRO	T2,140		;Bits for Lo-Y
	CAME	T1,TEKHIY(P4)	;Same as last time?
	 HRROM	T1,TEKHIY(P4)	;No, flag it
	CAME	T2,TEKLOY(P4)	;Same as last time?
	 HRROM	T2,TEKLOY(P4)	;No, flag it
	SKIPL	TEKHIX(P4)	;If hi-X changed,
	SKIPGE	TEKLSB(P4)	; or if LSB will be output,
	 HRROS	TEKLOY(P4)	; set to output lo-Y

	MOVEI	T2,TEKHIY(P4)	;Point to first byte
	HRLI	T2,-5		;Counter

TEKOUT:	HRRZ	T1,(T2)		;Get the byte
	SKIPGE	(T2)		;If this byte as changed,
	 PUSHJ	P,OUTBYT	; output it
	HRRZS	(T2)		;Reset to positive number
	AOBJN	T2,TEKOUT	;Loop for more

	POPJ	P,		;Return
SUBTTL	XHAIRS - allow the user the use the crosshairs

;  Calling sequence:
;	CALL XHAIRS (XPOS, YPOS, LETTER, ISTRNG)
;  ISTRNG is optional

TEKSPC:	TXNE	T1,SP.CLR	;Is this a call to ERASE?
	 JRST	TEKCLR		;Yes
	TXNE	T1,SP.XHR	;Call to XHAIRS?
	 JRST	TXHAIR		;Yes
;*;	TXNE	T1,SP.TTL	;Call to TITLE?
;*;	 JRST	TEKTTL		;Yes
	TXNN	T1,SP.PEN	;Call to XHAIRS?
	 POPJ	P,		;No

;Change pen color

TEKPEN:	MOVX	T2,TK.COL	;Can this device change colors?
	TDNN	T2,PLTTYP(P4)
	 POPJ	P,		;No
	MOVEI	T1,[BYTE (7)ESC,"M","L",0]
	PUSHJ	P,OUTSTG	;Start of <Set-Line-Index> command
	MOVE	T1,C.NPEN	;Get caller's argument
	CAIL	T1,1		;Within range of 1-16?
	CAILE	T1,^D16
	 SETOM	SAVE0		;No, return error
	MOVM	T0,T1		;Watch out for negative numbers
	IDIVI	T0,^D16		;Force T1 to be within range of 0 to 15
	DPB	T1,[POINTR CURR.P(P4),PN.COL] ;Save in case anyone cares
	ADDI	T1,"0"		;Convert to range of ASCII digits
	PUSHJ	P,OUTBYT	;Send the end of command
	PJRST	TEKPOS		;Reposition cursor and return


;Trigger the crosshairs

TXHAIR:	TXNN	P4,P4.TTY	;Output going to a TTY?
	 JRST	[ERRSTR	(MSG,<% XHAIRS works with Tektronix terminals only>)
		 PJRST	TRACE]  ;Trace back from PUSHJ P,%XHAIRS
TOPS10<	ND KLUDGE,-1>
TOPS20<	ND KLUDGE,0>
IFE KLUDGE,<
	MOVEI	T1,TEK.XH	;Command to trigger the crosshairs
	MOVEI	T2,TEMP		;Where to store the string
	MOVNI	T3,5		;Read 5 chars regardless of what they are
	PUSHJ	P,RDTBIN	;Prompt and read TTY in binary mode
>  ;End of IFE KLUDGE

IFN KLUDGE,<
if2,<printx % XHAIRS for TEKTRONIX is kludged up>
	MOVEI	T1,TEK.XH	;Display the crosshairs
	PUSHJ	P,OUTDMP	;Put in buffer
	PUSHJ	P,TTASCM	;Set TTY to ASCII mode
	PUSHJ	P,CLRIB		;Clear input buffer

;Nulls and Control-C can be read in Packed Image Mode

	MOVE	T1,BUFR.N(P4)	;Get channel number
	HRRI	T1,.FORED	;Set for input
	MOVEM	T1,FLP+.FOFNC
	MOVEI	T1,^D8		;8-bit bytes
	MOVEI	T2,.IOPIM	;Packed image mode
	PUSHJ	P,REOPEN	;PIM works for INCHR even with no input buffer

	MOVE	T1,[POINT 7,@3(L)] ;Put the characters in 4th arg
	HLRZ	T2,-1(L)	;Get the number of args
	CAIL	T2,-3		;Is it more than 3?
	 MOVE	T1,[POINT 7,TEMP] ;No, put chars in TEMP
	MOVEM	T1,HEADBP	;Store byte pointer
	SETZM	(T1)		;Clear the string
	SETZB	X,Y		;Clear position

;Read in 5 bytes from the terminal.  Single Control-C will not stop execution.

	PUSHJ	P,INCHR		;Get the first character from the TTY
	MOVEM	T1,@2(L)	;Store LETTER

	PUSHJ	P,INCHR		;Get Hi-X
	CAIN	T1,3		;Control-C as second character?
	 JRST	[ERRSTR	(NON,<^C>) ;Show that Control-C was noticed
		 MONRT.		  ;Quiet exit to monitor level
		 JRST	XHAIR1	] ;Allow ".CONTINUE"
	ANDI	T1,37		;Only 5 bits
	DPB	T1,[POINT 5,X,30];put in right position
	PUSHJ	P,INCHR		;Get Lo-X
	ANDI	T1,37		;Only 5 bits
	IORM	T1,X		;Finish X coord

	PUSHJ	P,INCHR		;Get Hi-Y
	ANDI	T1,37		;Only 5 bits
	DPB	T1,[POINT 5,Y,30];put in right position
	PUSHJ	P,INCHR		;Get Lo-Y
	ANDI	T1,37		;Only 5 bits
	IORM	T1,Y		;Finish Y coord

XHAIR1:	PUSHJ	P,OPNFIL	;Reset I/O to output
>  ;end of ifn KLUDGE

	PUSHJ	P,TEKPOS	;Return to previous position
	PUSHJ	P,RXHAR3	;Return arguments to caller
	JUMPE	T1,TEKCLR	;Erase the screen on a formfeed
	POPJ	P,		;Return from XHAIRS

RXHAR3:	PUSHJ	P,INC2FP	;Convert increments to floating-point
	MOVE	T1,@2(L)	;Get back first character
	CAIN	T1,FF		;Formfeed?
	 JRST	[SETZB	X,Y	  ;Yes, return zeros for all args
		 MOVEI	T1,0	  ;Flag to erase the screen
		 JRST	XHAIR2	] ;Store args and return
	CAIGE	T1,40		;Is it a control char?
	 JRST	XHAIR2		;Yes, don't justify
	ROT	T1,-7		;Shift the character into the right place
	OR	T1,[BYTE (7)0," "," "," "," "]
XHAIR2:	MOVEM	X,@0(L)		;Store X in the calling routine
	MOVEM	Y,@1(L)		;Store Y in the calling program
	MOVEM	T1,@2(L)	;Send the character to the caller
	POPJ	P,		;Return

;Routine to re-enable graphics

TEKON:	MOVEI	T1,ON4662	;Tell interactive plotter to turn itself on
	MOVX	T2,TK.PLO	;But only if 4662 or 4663
	TDNE	T2,PLTTYP(P4)
	 PUSHJ	P,OUTSTG
	PFALL	TEKPOS

;TEKPOS - Return to previous position.  Preserves X and Y accumulators

TEKPOS:	MOVEI	T1,TEK.GR	;Tell the TEKTRONIX
	PUSHJ	P,OUTBYT	; to switch to graphics mode
	MOVEI	T2,TEKHIY(P4)	;Point to data
	HRLI	T2,-5		;5 variables
TEKPO1:	SKIPE	T1,(T2)		;Get a byte
	 PUSHJ	P,OUTBYT	;Send to terminal
	AOBJN	T2,TEKPO1
	POPJ	P,

LITTEK:	LIT

		PAGE		;End of PLTTEK.MAC