;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;	SEL-PAN.INC
;
;
FALSE = 0

;
;  Dialog Equates
;
;  These values will eventually be defined by the dialog.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.XLIST				;AN000;
LEFT_COL	EQU	8	;AN000;
SCR_CONT       EQU  1		;AN000;contextual helps
SCR_INDX       EQU  2		;AN000;indexed helps
SCR_MAIN       EQU  3		;AN000;main menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Help ID equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HCB_KEYS       EQU  1		;AN000;help on keys text
HCB_HELP       EQU  2		;AN000;help on help text
HCB_MAIN       EQU  3		;AN000;main menu help text
HCB_SAMP       EQU  4		;AN000;sample application help text
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Color index record equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
WHITE_BLUE	EQU	1	;AN000;
BLACK_WHITE	EQU	4	;AN000;
WHITE_RED	EQU	5	;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Color ID equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CLR_CLR 	EQU  1		;AN000;shipped text mode color index
CLR_MON 	EQU  2		;AN000;shipped monochrome color index
CLR_USE 	EQU  3		;AN000;user color index
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Sound equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SND_DURA	EQU  10000	;AN000;duration of error beep
SND_FREQ	EQU  440	;AN000;frequency of error beep
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Size equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MAX_MEMPAR	EQU  4000	;AN000;size of buffer in 16 byte paraghp
MAX_RETKSZ	EQU  512	;AN000;max # of bytes in return key buff
MAX_HELPSZ	EQU  5000	;AN000;max # of bytes in help text buff
MAX_PANNUM	EQU  98 	;AN000;max num of panels possible in mem
MAX_SCRNUM	EQU  28 	;AN000;max num of scroll possible in mem
MAX_CHDQUE	EQU  5		;AN000;max # of child queues to save
MAX_PANQUE	EQU  4		;AN000;max # of panel queues to save
MAX_NUMCHD	EQU  11 	;AN000;max # of parent panels queued
MAX_NUMPAN	EQU  10 	;AN000;max # of child panels queued
MAX_CLRECD	EQU  12 	;AN000;num of bytes per PCPANEL color rc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Keystroke equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
KEY_HELP	EQU  3B00H	;AN000;F1=Help
KEY_SWIT	EQU  3C00H	;AN000;F2=Switch
KEY_INDX	EQU  3F00H	;AN000;F5=Index
KEY_KEYS	EQU  4000H	;AN000;F7=Keys
KEY_SELT	EQU  000DH	;AN000;Enter
KEY_QUIT	EQU  001BH	;AN000;Esc=Quit
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANWR equates
;
;
; PCPANWR option bit equates (PWR_OPT1)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PWR_WRITEONE   EQU  0000000000000001B	     ;AN000;write pan specified by PWR_ID
PWR_WRITEALL   EQU  0000000000000010B	     ;AN000;write all pans to specified file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANWR error bit equates (PWR_ERROR)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PWR_BUFSIZE    EQU  0000000000000001B	     ;AN000;buffer size is too small
PWR_NOPANELS   EQU  0000000000000010B	     ;AN000;file does not contain panels
PWR_NOTCASFILE EQU  0000000000000100B	     ;AN000;CAS file obj list does not exist
PWR_PANELSFULL EQU  0000000000001000B	     ;AN000;panel vector is full
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANEL equates
;
;
; PCPANEL option bit equates (PM_OPT1)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PM_RF	       EQU  0000000000000001B	     ;AN000;do not refresh display
PM_SRF	       EQU  0000000000000010B	     ;AN000;selective PVB refresh from LVB
PM_BK	       EQU  0000000000000100B	     ;AN000;panel break function active
PM_CL	       EQU  0000000000001000B	     ;AN000;initialize LVB to base char/attr
PM_DOA	       EQU  0000000000010000B	     ;AN000;display childs in active parent
PM_DOV	       EQU  0000000000100000B	     ;AN000;use child row, col, color overrid
PM_DOQ	       EQU  0000000001000000B	     ;AN000;disp all child in parent chd tabl
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANEL error equates for (PM_ERROR)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PM_PANPDQ      EQU  0000000000000001B	     ;AN000;invalid parent PDQ or start num
PM_PCBVEC      EQU  0000000000000010B	     ;AN000;invalid PCB vector entry found
PM_UNKNPANS    EQU  0000000000000100B	     ;AN000;unknown panel source found
PM_CHDTAB      EQU  0000000000001000B	     ;AN000;set error with child table
PM_COLORX      EQU  0000000000010000B	     ;AN000;panel's color index out of range
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANEL Parent and Child Display Queue option bit equates (PT_OPT)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PT_BK	       EQU  0000000000000001B	     ;AN000;panel break on
PT_SRF	       EQU  0000000000000010B	     ;AN000;selective refresh of panel to PVB
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANEL Panel Control Block option equates for individual panels (PCB_OPT1)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PCB_CRE        EQU  0000000000000001B	     ;AN000;Create panel from scratch
PCB_CMP        EQU  0000000000000010B	     ;AN000;Use compress text form in memory
PCB_EXP        EQU  0000000000000100B	     ;AN000;Use expanded text form in memory
PCB_MXP        EQU  0000000000001000B	     ;AN000;Use mixed text/attr form in memoy
PCB_LB	       EQU  0000000000010000B	     ;AN000;Use logical border
PCB_ASZ        EQU  0000000000100000B	     ;AN000;Allow sizing of panel
PCB_ASC        EQU  0000000001000000B	     ;AN000;Allow scrolling of panel
PCB_LAB        EQU  0000000010000000B	     ;AN000;Use the defined panel label
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANEL Child information table option equates (CHILD_OPT)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CHD_ABS        EQU  0000000000000001B	     ;AN000;calc child pan pos from scr corne
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCCLRWR equates
;
; PCCLRWR error bit equates (CWR_ERROR)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CWR_BUFSIZE    EQU  0000000000000001B	     ;AN000;buffer size is too small
CWR_NOCOLORS   EQU  0000000000000010B	     ;AN000;file does not contain colors
CWR_NOTCASFILE EQU  0000000000000100B	     ;AN000;file object list does not exist
CWR_COLORSFULL EQU  0000000000001000B	     ;AN000;color vector is full
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSCRWR equates
;
;
; PCSCRWR option bit equates (SWR_OPT1)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SWR_WRITEONE   EQU  0000000000000001B	     ;AN000;write pan specified by SWR_ID
SWR_WRITEALL   EQU  0000000000000010B	     ;AN000;write all pans to specified file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSCRWR error bit equates (SWR_ERROR)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SWR_BUFSIZE    EQU  0000000000000001B	     ;AN000;buffer size is too small
SWR_NOFIELDS   EQU  0000000000000010B	     ;AN000;file does not contain fields
SWR_NOTCASFILE EQU  0000000000000100B	     ;AN000;file object list does not exist
SWR_FIELDSFULL EQU  0000000000001000B	     ;AN000;field vector is full
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSTRST equates
;
; PCSTRST equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SSC_TBSL       EQU  0000000000000001B	     ;AN000;use two byte string length
SSC_PTSB       EQU  0000000000000010B	     ;AN000;pointer points to string buffer
SSC_VTSAO      EQU  0000000000000100B	     ;AN000;vector table is string addr only
SSC_VTASO      EQU  0000000000001000B	     ;AN000;vector table addr is seg:offset
SSC_SLSB       EQU  0000000000010000B	     ;AN000;string length is in string buffer
SSC_SBTC       EQU  0000000000100000B	     ;AN000;string buffer has term. character
SSC_VTE        EQU  1			     ;AN000;error in vector table
SSC_SBE        EQU  2			     ;AN000;error in sting buffer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSLCTP equates
;
; PCSLCTP Option word one (SCB_OPT1)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SCB_UC	       EQU  0000000000000001B	     ;AN000;upper case option
SCB_WRAP       EQU  0000000000000010B	     ;AN000;wrap option
SCB_FRBF       EQU  0000000000000100B	     ;AN000;force return before first option
SCB_FRAL       EQU  0000000000001000B	     ;AN000;force return after last option
SCB_LL	       EQU  0000000000010000B	     ;AN000;lock line
SCB_UKS        EQU  0000000000100000B	     ;AN000;use keystroke
SCB_RD	       EQU  0000000001000000B	     ;AN000;return after display option
SCB_RUK        EQU  0000000010000000B	     ;AN000;return unused keys option
SCB_UI	       EQU  0000000100000000B	     ;AN000;use index option
SCB_TRN        EQU  0000001000000000B	     ;AN000;translate character
SCB_MON        EQU  0000010000000000B	     ;AN000;convert to upper case monocasing
SCB_DBCS       EQU  0000100000000000B	     ;AN000;check for double byte chars
SCB_TBL        EQU  0001000000000000B	     ;AN000;use given DBCS range table
SCB_DCHECK     EQU  0010000000000000B	     ;AN000;display check mark characters
SCB_DACTIVE    EQU  0100000000000000B	     ;AN000;display active string indicators
SCB_DPOINT     EQU  1000000000000000B	     ;AN000;display selection pointer string
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSLCTP Option word two (SCB_OPT2)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SCB_CS	       EQU  0000000000000001B	     ;AN000;clear screen on entry option
SCB_ROTN       EQU  0000000000000010B	     ;AN000;reset option to normal on return
SCB_UET        EQU  0000000000000100B	     ;AN000;use existing text option
SCB_CFO        EQU  0000000000001000B	     ;AN000;cursor follows option
SCB_LCOX       EQU  0000000000010000B	     ;AN000;leave cursor on exit
SCB_IPAGE      EQU  0000000000100000B	     ;AN000;instant paging
SCB_PM1        EQU  0000000001000000B	     ;AN000;paging is minus one line
SCB_UIND       EQU  0000000010000000B	     ;AN000;display up, dn, lf, rg indicators
SCB_UNCA       EQU  0000000100000000B	     ;AN000;use normal color array
SCB_DYN        EQU  0000001000000000B	     ;AN000;option array is dynamicly created
SCB_LANDR      EQU  0000010000000000B	     ;AN000;left and right scrolling active
SCB_CPHY       EQU  0000100000000000B	     ;AN000;color array is physical attributs
SCB_NUML       EQU  0001000000000000B	     ;AN000;generate num list in opt strings
SCB_SKIP       EQU  0010000000000000B	     ;AN000;skip inactive option strings
SCB_SHIGH      EQU  0100000000000000B	     ;AN000;highlight the selected opt strgs
SCB_AHIGH      EQU  1000000000000000B	     ;AN000;highlight the active option strgs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSLCTP Option word three (SCB_OPT3)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SCB_SELACT     EQU  0000000000000001B	     ;AN000;allow selection of inactive elem
SCB_SELEXC     EQU  0000000000000010B	     ;AN000;exclusive selection of one elemet
SCB_EXCSING    EQU  0000000000000100B	     ;AN000;one element is always selected
SCB_NUMUIND    EQU  0000000000001000B	     ;AN000;display line number count
SCB_CHIGH      EQU  0000000000010000B	     ;AN000;hilight cursored and selected stg
SCB_NUMS       EQU  0000000000100000B	     ;AN000;auto 0-9 number selection
SCB_FINDE      EQU  0000000001000000B	     ;AN000;auto character search
SCB_RELUIND    EQU  0000000010000000B	     ;AN000;rel row/col used w/dirct indicato
SCB_RELSCR     EQU  0000000100000000B	     ;AN000;rel row/col used w/scroll field
SCB_LVBOVR     EQU  0000001000000000B	     ;AN000;use video buffer seg:off override
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSLCTP Select Array Option (SCB_SELSEG:SCB_SELOFF)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SCB_SELECTON   EQU  0000000000000001B	     ;AN000;element selected
SCB_ACTIVEON   EQU  0000000000000010B	     ;AN000;element active
SCB_SKIPON     EQU  0000000000000100B	     ;AN000;element should be skipped
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCHLPWR equates
;
; PCHLPWR option bit equates (HWR_OPT1)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HWR_REPLACE    EQU  0000000000000001B	      ;AN000;Replace existing help text/topic
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCHLPWR error bit equates (HWR_ERROR)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HWR_BUFSIZE    EQU  0000000000000001B	      ;AN000;buffer size is too small
HWR_HELPUSED   EQU  0000000000000010B	      ;AN000;help ID already in use
HWR_INVALDID   EQU  0000000000000100B	      ;AN000;help ID is out of range
HWR_NOHLPOBJ   EQU  0000000000001000B	      ;AN000;no help object
HWR_NOTCASFILE EQU  0000000000010000B	      ;AN000;not a valid cas file
HWR_HELPSFULL  EQU  0000000000100000B	      ;AN000;help vector is full
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Internal equates
;
; internal equates
;
;;;;;;;;;;;;;;;;;;;;;;;;;
UPARROW EQU	72	;AN000;up arrow
DNARROW EQU	80	;AN000;down arrow
LFARROW EQU	75	;AN000;left arrow
RTARROW EQU	77	;AN000;right arrow
PGUP	EQU	73	;AN000;
PGDN	EQU	81	;AN000;
ESCAPE	EQU	27	;AN000;
ENTER	EQU	13	;AN000;
SPACE	EQU	32	;AN000;
F1	EQU	59	;AN000;
F2	EQU	60	;AN000;
F3	EQU	61	;AN000;
F4	EQU	62	;AN000;
F5	EQU	63	;AN000;
F6	EQU	64	;AN000;
F7	EQU	65	;AN000;
F8	EQU	66	;AN000;
F9	EQU	67	;AN000;
F10	EQU	68	;AN000;
.LIST			;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;
