; PROUT1.src
;
; EQUATES FOR SCREEN PRINTOUT
; ===========================


WORKIY	EQU	WORKSPACE+128	; IY accesses workspace
;
; Current window definition
; -------------------------
CURRENT	EQU	WORKIY-128
DFADD	EQU	128		; ws+00
DFCC	EQU	WORKIY-DFADD	; ws+00
POSN_X	EQU	126		; ws+02
POSN_Y	EQU	125		; ws+03
POSN	EQU	WORKIY-POSN_X	; ws+02
WIND_X	EQU	124		; ws+04
WIND_Y	EQU	123		; ws+05
WIND_W	EQU	122		; ws+06
WIND_H	EQU	121		; ws+07
COORDS	EQU	WORKIY-120	; ws+08
ATTR	EQU	118		; ws+0A
MASK	EQU	ATTR-1		; ws+0B - always after ATTR
PFLAG	EQU	MASK-1		; ws+0C - always after MASK
MODE	EQU	115		; ws+0D
; 2 spare

; Global display variables
; ------------------------
WIND_P	EQU	112		; ws+10
WIND_T	EQU	111		; ws+11
DATTR	EQU	110		; ws+12
BORDCR	EQU	109		; ws+13
COMDIST	EQU	108		; ws+14
FLAGS	EQU	107		; ws+15
FILL	EQU	106		; ws+16
; 1 spare
GRMEM	EQU	WORKIY-104	; ws+18

; VDU parameter queue
; -------------------
QBASE	EQU	WORKIY-96	; ws+20
QNUM	EQU	87		; ws+29
STORE	EQU	WORKIY-86	; ws+2A
; ws+2B
; ws+2C
; ws+2D
; ws+2E
; ws+2F

; Character set addresses
; -----------------------
CHARS	EQU	WORKIY-80	; ws+30
S_CHAR	EQU	WORKIY-78	; ws+32
R_CHAR	EQU	WORKIY-76	; ws+36
UDC	EQU	WORKIY-74	; ws+38
TCHARS	EQU	WORKIY-72	; ws+3A

; Bell parameters
; ---------------
BELLP	EQU	WORKIY-70	; ws+3C

; Extension vectors
; -----------------
VDU_V	EQU	WORKIY-64	; ws+40
ESC_V	EQU	WORKIY-62	; ws+42
ERR_V	EQU	WORKIY-60	; ws+44
SPR_V	EQU	WORKIY-58	; ws+46
CLI_V	EQU	WORKIY-56	; ws+48
BYTE_V	EQU	WORKIY-54	; ws+4A
WORD_V	EQU	WORKIY-52	; ws+4C
FILE_V	EQU	WORKIY-50	; ws+4E

; Window definitions
; ------------------
WBASE	EQU	WORKIY+0	; ws+80