;	STORAGE LAYOUTS AND EQUATES FOR VTAM/BATRUN.
;
;       Copyright [c] Noel Alaska Systems Technology, 1983.

	UNIVERSAL

	ASECT
	NOSYM
	MAYCREF
	S..RDX=10
	RADIX	8

;	T$AB is a bit I define in terminal status word that tells VTAM
;	'func' keys will be used for alt escape, tchar, and pchar.  So
;	it will 'passthru' ^G, ^[,  and ^_ to the controlled job, only
;	recognizing them when the parity bit is set -  which the input
;	routine of this driver does when it translates the func keys.

T$AB	=	^O02000

	COPY	HPOSTF

; Bitmap of defined functions for VOUT

VS.1	=	^B1111111001111111	;   0 -  15 [15 -> 0  left -> right]
VS.2	=	^B1111000111100001	;  16 -  31
VS.3	=	^B1111111111001111	;  32 -  47
VS.4	=	^B1000000000111111	;  48 -  63	
VS.5	=	^B1111111111111111	;  64 -  79
VS.6	=	^B0000000000000000	;  80 -  95
VS.7	=	^B1100000000000000	;  96 - 111
VS.8	=	^B0000000000111011	; 112 - 127
VS.9	=	^B1111111111110011	; 128 - 143
VS.A	=	^B0000000111111111	; 144 - 159
VS.B	=	^B1111111100000000	; 160 - 175
VS.C	=	^B1111111111111111	; 176 - 191


; ----- ----- defines layout for gotten storage ----- -----
	.=0
JLNK:	BLKL	1			; link to next "JOB" memory
JTDV:	BLKL	1			; JOBS TDV pointer
JIDV:	BLKL	1			; JOBS IDV pointer
JTRM:	BLKL	1			; JOBS TRMDEF pointer
JJCB:	BLKL	1			; JOBS JCB pointer
JJNM:	BLKL	1			; JOBS "job number"
JQUE:	BLKL	1			; JOBS hpo entry
JDDB:	BLKB	104.			; JOBS LOG DDB
	BLKL	3			; extra room for RENAME, other stuff
JEXT:	BLKB	1			; start of non-common area

	.=JEXT				; "fixed" extension
JSTAT:	BLKL	1			; status flags for VTAM
DIDW	=	1			;   "DID SOME WORK"
CTLMOD	=	2			;   "REAL TERMINAL IN CTL MODE"
DETACH	=	4			;   "REAL TERMINAL NOT THERE"
VQUIET	=	10			;   "DON'T BEEP IN STATUS"
DSPLOW	=	20			;   "STATUS DISPLAY LOW INTENSITY"
DSPUPT	=	40			;   "A DISPLAY UPDATE HAS OCCURRED"
INHELP	=	100			;   "HELP SCREEN IS UP"
TEMPX	=	20000			;   "INCORE STUFF OK TO RESTART"
AUTO	=	40000			;   "DOING AN AUTOMATIC JOB ACQUIRE"
MATCH	=	100000			;   "JUST A WORK FLAG"
VNOISE	=	200000			;   "BEEP UNTIL CLEAR"
L25OK	=	400000			;   "OK to use line 25 calls"
BADENA	=	1000000			;   "CRT 255.,13. doesn't work right"
JCUR:	BLKL	1			; current jobs JOB mem addr
JME:	BLKL	1			; slot for this job
CMAX:	BLKL	1			; number of columns on real crt
RMAX:	BLKL	1			; number of rows    on real crt
CNTTRM:	BLKL	1			; count of # TRM log files open
TRMBAS:	BLKL	1			; address of TRM fixed area
OSTACK:	BLKL	1			; entry stack pointer
VIDV:	BLKL	1			; address of VTAM.IDV
QBAS:	BLKL	1			; address of HPO queue
VTDV:	BLKL	1			; address of VTAM.TDV 
VCLK:	BLKL	1			; address of HIRES clock
VTCDFL:	BLKL	1			; default VCRT cursor attr (VTCURA)
NFRAM:	BLKL	1			; status display # frames
CFRAM:	BLKL	1			; status display current frame
DDATE:	BLKL	1			; status display date
DTIME:	BLKL	1			; status display time
ZTIME:	BLKL	1			; status display update time
DFMEM:	BLKL	1			; status display VTAM free memory
DCURS:	BLKL	1			; status display input cursor addr
L2CNT:	BLKL	1			; LOOP2 max input counter
L2INI	=	40.			;   (input up to this many chars)
AESC:	BLKB	1			; alternate ESCAPE char for Image mode
DAESC:	BLKB	1			; status display alternate ESCAPE
PCHR:	BLKB	1			; picture request character
DPCHR:	BLKB	1			; status display pic rqst char
TCHR:	BLKB	1			; job toggle char
DTCHR:	BLKB	1			; status display job toggle char
JWRK:	BLKB	8.			; work area
JINPUT:	BLKB	80.			; command input line
	EVEN
FLONG	=	.			; length of gotton memory - fixed

	.=JEXT				; "JOB"   extension
	BLKL	1			; status flags for job (symbolic "JSTAT")
CUR	=	1			;   "THIS IS CURRENT JOB"
RUNON	=	2			;   "OUTPUT SENT TO LOG EVEN IF NOT CUR"
IMILG	=	4			;   "LOG OUTPUT WHEN IN IMAGE MODE"
LOGOP	=	10			;   "THE LOG FILE IS OPEN"
MOVIE	=	20			;   "THE LOG FILE IS A MOVIE"
LINPT	=	40			;   "THE LOG FILE IS INPUT ONLY"
VCON	=	100			;   "VIRTUAL SCREEN IS ALLOCATED"
ME	=	200			;   "THIS JOB IS ME!"
VGUARD	=	400			;   "THIS JOB IS GUARDED"
PROTEC	=	1000			;   "FIELD PROTECT ENABLED"
AUXON	=	2000			;   "AN AUXILARY TERMINAL INUSE"
VALLOC	=	40000			;   "AVAILABLE FOR AUTO-ACQUIRE"
VACT	=	100000			;   "THIS JOB IS ACTIVE TO THIS VTAM"
FUNSEQ	=	200000			;   "IN FUNCTION KEY DEFINE"
FUNCTP	=	400000			;   "ESCAPE  FOR KEY DEFINE"
JFRAM:	BLKL	1			; status display frame
DJOB:	BLKL	3			; status display job bits
DTRM:	BLKL	1			; status display TRMDEF name
DDVC:	BLKW	1			; status display login device
DDRV:	BLKW	1			; status display login drive
DUSR:	BLKW	1			; status display PPN
DMEM:	BLKL	1			; status display job memory
DSTA:	BLKW	1			; status display program status
DPRG:	BLKL	1			; status display program name
DFLG:	BLKL	1			; status display vtam status
VNAME:	BLKL	1			; RAD50 default name log
AUXTRM:	BLKL	1			; addr of trmdef for aux term
VSCR:	BLKL	1			; address of virtual screen
VTCUR:	BLKL	2			; current column:row of virtual screen
COL	=	VTCUR
ROW	=	VTCUR+4
VTCURA:	BLKL	1			; current cursor address atributes
CURALI	=	1			;   "LOW INTENSTIY"
CURAGR	=	2			;   "ALT CHAR SET - GRAPHICS"
CURAG2	=	4			;   "TCRT 38-53 graphic"
CURA4	=	10			;    reserved (tcrt 110-111)
CURA5	=	20			;    reserved (tcrt 112-113)
CURA6	=	40			;    reserved (tcrt 114-115)
CURA7	=	100			;    reserved (tcrt 116-117)
CURA8	=	200			;    reserved (tcrt 118-119)
;
CSTED	=	400			;   "CURSOR STEADY"
CBLNK	=	1000			;   "CURSOR BLINKS"
CSOLID	=	2000			;   "CURSOR IS SOLID"
CUNDER	=	4000			;   "CURSOR IS UNDERLINE"
CLICK	=	10000			;   "KEY CLICKS"
NORREV	=	20000			;   "NORMAL/REVERSE"
;
L25	=	100000			;   "AT LINE 25"
;
WORKLI	=	10000000		; work flag for at low intense	
WORKGR	=	20000000		; work flag for at graphics
WORKPO	=	40000000		; work flag for positioning
;
; ------------------------------------------------------------------------
; following equates refer not to VTCURA but to bits in attribute bytes   |
; using character positions on the virtual screen (ala Televideo 950).   |
BLANK	=	1			;   "BLANK FIELD"		 |
BLINK	=	2			;   "BLINKING FIELD"		 |
UNDER	=	4			;   "UNDERLINED FIELD"		 |
REVER	=	10			;   "REVERSE-VIDEO FIELD"	 |
VAB5	=	20			;   reserved (tcrt 120-121)	 |
VAB6	=	40			;   reserved (tcrt 122-123)	 |
VAB7	=	100			;   reserved (tcrt 124-125)	 |
; they are stuck here merely to be "near" the low-intensity equate.	 |
; ------------------------------------------------------------------------
JVCNT:	BLKL	1			; count of VTAM.TDV ctl chars pending
JVCHR:	BLKB	6			; buffer of pending VTAM.TDV chars
PICPRE:	BLKL	1			; prefix for pictures (ASCII)
PICNUM:	BLKL	1			; current picture number
	EVEN
JLONG	=	.			; length of gotten memory - JOB

	.=JEXT
	BLKL	1			; status flags for trm (symbolic "JSTAT")
AUXON	=	2000			;   "AN AUXILARY TERMINAL"
REMOTE	=	4000			;   "A DETACHED TERM TO REMOTE"
TSTOR:	BLKL	1			; storage addr if relevent
TA5:	BLKL	1			; 'A5' of job area if aux term
TADDR:	BLKL	1			; TRMDEF addr
	EVEN
TLONG	=	.			; length of gotten memory - TRM

	COPY	VMACS

	SYM
	PSECT
	CREF
	RADIX	S..RDX
	.=0
	PAGE