summaryrefslogtreecommitdiff
path: root/v4.0/src/SELECT/SEL-PAN.INC
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/SELECT/SEL-PAN.INC')
-rw-r--r--v4.0/src/SELECT/SEL-PAN.INC307
1 files changed, 307 insertions, 0 deletions
diff --git a/v4.0/src/SELECT/SEL-PAN.INC b/v4.0/src/SELECT/SEL-PAN.INC
new file mode 100644
index 0000000..684993b
--- /dev/null
+++ b/v4.0/src/SELECT/SEL-PAN.INC
@@ -0,0 +1,307 @@
1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2;
3;
4; SEL-PAN.INC
5;
6;
7FALSE = 0
8
9;
10; Dialog Equates
11;
12; These values will eventually be defined by the dialog.
13;
14;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
15.XLIST ;AN000;
16LEFT_COL EQU 8 ;AN000;
17SCR_CONT EQU 1 ;AN000;contextual helps
18SCR_INDX EQU 2 ;AN000;indexed helps
19SCR_MAIN EQU 3 ;AN000;main menu
20;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
21;
22; Help ID equates
23;
24;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
25HCB_KEYS EQU 1 ;AN000;help on keys text
26HCB_HELP EQU 2 ;AN000;help on help text
27HCB_MAIN EQU 3 ;AN000;main menu help text
28HCB_SAMP EQU 4 ;AN000;sample application help text
29;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30;
31; Color index record equates
32;
33;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
34WHITE_BLUE EQU 1 ;AN000;
35BLACK_WHITE EQU 4 ;AN000;
36WHITE_RED EQU 5 ;AN000;
37;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
38;
39; Color ID equates
40;
41;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42CLR_CLR EQU 1 ;AN000;shipped text mode color index
43CLR_MON EQU 2 ;AN000;shipped monochrome color index
44CLR_USE EQU 3 ;AN000;user color index
45;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
46;
47; Sound equates
48;
49;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
50SND_DURA EQU 10000 ;AN000;duration of error beep
51SND_FREQ EQU 440 ;AN000;frequency of error beep
52;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
53;
54; Size equates
55;
56;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
57MAX_MEMPAR EQU 4000 ;AN000;size of buffer in 16 byte paraghp
58MAX_RETKSZ EQU 512 ;AN000;max # of bytes in return key buff
59MAX_HELPSZ EQU 5000 ;AN000;max # of bytes in help text buff
60MAX_PANNUM EQU 98 ;AN000;max num of panels possible in mem
61MAX_SCRNUM EQU 28 ;AN000;max num of scroll possible in mem
62MAX_CHDQUE EQU 5 ;AN000;max # of child queues to save
63MAX_PANQUE EQU 4 ;AN000;max # of panel queues to save
64MAX_NUMCHD EQU 11 ;AN000;max # of parent panels queued
65MAX_NUMPAN EQU 10 ;AN000;max # of child panels queued
66MAX_CLRECD EQU 12 ;AN000;num of bytes per PCPANEL color rc
67;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
68;
69; Keystroke equates
70;
71;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
72KEY_HELP EQU 3B00H ;AN000;F1=Help
73KEY_SWIT EQU 3C00H ;AN000;F2=Switch
74KEY_INDX EQU 3F00H ;AN000;F5=Index
75KEY_KEYS EQU 4000H ;AN000;F7=Keys
76KEY_SELT EQU 000DH ;AN000;Enter
77KEY_QUIT EQU 001BH ;AN000;Esc=Quit
78;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
79;
80; PCPANWR equates
81;
82;
83; PCPANWR option bit equates (PWR_OPT1)
84;
85;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
86PWR_WRITEONE EQU 0000000000000001B ;AN000;write pan specified by PWR_ID
87PWR_WRITEALL EQU 0000000000000010B ;AN000;write all pans to specified file
88;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
89;
90; PCPANWR error bit equates (PWR_ERROR)
91;
92;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
93PWR_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
94PWR_NOPANELS EQU 0000000000000010B ;AN000;file does not contain panels
95PWR_NOTCASFILE EQU 0000000000000100B ;AN000;CAS file obj list does not exist
96PWR_PANELSFULL EQU 0000000000001000B ;AN000;panel vector is full
97;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
98;
99; PCPANEL equates
100;
101;
102; PCPANEL option bit equates (PM_OPT1)
103;
104;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
105PM_RF EQU 0000000000000001B ;AN000;do not refresh display
106PM_SRF EQU 0000000000000010B ;AN000;selective PVB refresh from LVB
107PM_BK EQU 0000000000000100B ;AN000;panel break function active
108PM_CL EQU 0000000000001000B ;AN000;initialize LVB to base char/attr
109PM_DOA EQU 0000000000010000B ;AN000;display childs in active parent
110PM_DOV EQU 0000000000100000B ;AN000;use child row, col, color overrid
111PM_DOQ EQU 0000000001000000B ;AN000;disp all child in parent chd tabl
112;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
113;
114; PCPANEL error equates for (PM_ERROR)
115;
116;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
117PM_PANPDQ EQU 0000000000000001B ;AN000;invalid parent PDQ or start num
118PM_PCBVEC EQU 0000000000000010B ;AN000;invalid PCB vector entry found
119PM_UNKNPANS EQU 0000000000000100B ;AN000;unknown panel source found
120PM_CHDTAB EQU 0000000000001000B ;AN000;set error with child table
121PM_COLORX EQU 0000000000010000B ;AN000;panel's color index out of range
122;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
123;
124; PCPANEL Parent and Child Display Queue option bit equates (PT_OPT)
125;
126;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
127PT_BK EQU 0000000000000001B ;AN000;panel break on
128PT_SRF EQU 0000000000000010B ;AN000;selective refresh of panel to PVB
129;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
130;
131; PCPANEL Panel Control Block option equates for individual panels (PCB_OPT1)
132;
133;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
134PCB_CRE EQU 0000000000000001B ;AN000;Create panel from scratch
135PCB_CMP EQU 0000000000000010B ;AN000;Use compress text form in memory
136PCB_EXP EQU 0000000000000100B ;AN000;Use expanded text form in memory
137PCB_MXP EQU 0000000000001000B ;AN000;Use mixed text/attr form in memoy
138PCB_LB EQU 0000000000010000B ;AN000;Use logical border
139PCB_ASZ EQU 0000000000100000B ;AN000;Allow sizing of panel
140PCB_ASC EQU 0000000001000000B ;AN000;Allow scrolling of panel
141PCB_LAB EQU 0000000010000000B ;AN000;Use the defined panel label
142;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
143;
144; PCPANEL Child information table option equates (CHILD_OPT)
145;
146;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
147CHD_ABS EQU 0000000000000001B ;AN000;calc child pan pos from scr corne
148;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
149;
150; PCCLRWR equates
151;
152; PCCLRWR error bit equates (CWR_ERROR)
153;
154;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
155CWR_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
156CWR_NOCOLORS EQU 0000000000000010B ;AN000;file does not contain colors
157CWR_NOTCASFILE EQU 0000000000000100B ;AN000;file object list does not exist
158CWR_COLORSFULL EQU 0000000000001000B ;AN000;color vector is full
159;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
160;
161; PCSCRWR equates
162;
163;
164; PCSCRWR option bit equates (SWR_OPT1)
165;
166;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
167SWR_WRITEONE EQU 0000000000000001B ;AN000;write pan specified by SWR_ID
168SWR_WRITEALL EQU 0000000000000010B ;AN000;write all pans to specified file
169;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
170;
171; PCSCRWR error bit equates (SWR_ERROR)
172;
173;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
174SWR_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
175SWR_NOFIELDS EQU 0000000000000010B ;AN000;file does not contain fields
176SWR_NOTCASFILE EQU 0000000000000100B ;AN000;file object list does not exist
177SWR_FIELDSFULL EQU 0000000000001000B ;AN000;field vector is full
178;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
179;
180; PCSTRST equates
181;
182; PCSTRST equates
183;
184;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
185SSC_TBSL EQU 0000000000000001B ;AN000;use two byte string length
186SSC_PTSB EQU 0000000000000010B ;AN000;pointer points to string buffer
187SSC_VTSAO EQU 0000000000000100B ;AN000;vector table is string addr only
188SSC_VTASO EQU 0000000000001000B ;AN000;vector table addr is seg:offset
189SSC_SLSB EQU 0000000000010000B ;AN000;string length is in string buffer
190SSC_SBTC EQU 0000000000100000B ;AN000;string buffer has term. character
191SSC_VTE EQU 1 ;AN000;error in vector table
192SSC_SBE EQU 2 ;AN000;error in sting buffer
193;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
194;
195; PCSLCTP equates
196;
197; PCSLCTP Option word one (SCB_OPT1)
198;
199;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
200SCB_UC EQU 0000000000000001B ;AN000;upper case option
201SCB_WRAP EQU 0000000000000010B ;AN000;wrap option
202SCB_FRBF EQU 0000000000000100B ;AN000;force return before first option
203SCB_FRAL EQU 0000000000001000B ;AN000;force return after last option
204SCB_LL EQU 0000000000010000B ;AN000;lock line
205SCB_UKS EQU 0000000000100000B ;AN000;use keystroke
206SCB_RD EQU 0000000001000000B ;AN000;return after display option
207SCB_RUK EQU 0000000010000000B ;AN000;return unused keys option
208SCB_UI EQU 0000000100000000B ;AN000;use index option
209SCB_TRN EQU 0000001000000000B ;AN000;translate character
210SCB_MON EQU 0000010000000000B ;AN000;convert to upper case monocasing
211SCB_DBCS EQU 0000100000000000B ;AN000;check for double byte chars
212SCB_TBL EQU 0001000000000000B ;AN000;use given DBCS range table
213SCB_DCHECK EQU 0010000000000000B ;AN000;display check mark characters
214SCB_DACTIVE EQU 0100000000000000B ;AN000;display active string indicators
215SCB_DPOINT EQU 1000000000000000B ;AN000;display selection pointer string
216;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
217;
218; PCSLCTP Option word two (SCB_OPT2)
219;
220;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
221SCB_CS EQU 0000000000000001B ;AN000;clear screen on entry option
222SCB_ROTN EQU 0000000000000010B ;AN000;reset option to normal on return
223SCB_UET EQU 0000000000000100B ;AN000;use existing text option
224SCB_CFO EQU 0000000000001000B ;AN000;cursor follows option
225SCB_LCOX EQU 0000000000010000B ;AN000;leave cursor on exit
226SCB_IPAGE EQU 0000000000100000B ;AN000;instant paging
227SCB_PM1 EQU 0000000001000000B ;AN000;paging is minus one line
228SCB_UIND EQU 0000000010000000B ;AN000;display up, dn, lf, rg indicators
229SCB_UNCA EQU 0000000100000000B ;AN000;use normal color array
230SCB_DYN EQU 0000001000000000B ;AN000;option array is dynamicly created
231SCB_LANDR EQU 0000010000000000B ;AN000;left and right scrolling active
232SCB_CPHY EQU 0000100000000000B ;AN000;color array is physical attributs
233SCB_NUML EQU 0001000000000000B ;AN000;generate num list in opt strings
234SCB_SKIP EQU 0010000000000000B ;AN000;skip inactive option strings
235SCB_SHIGH EQU 0100000000000000B ;AN000;highlight the selected opt strgs
236SCB_AHIGH EQU 1000000000000000B ;AN000;highlight the active option strgs
237;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
238;
239; PCSLCTP Option word three (SCB_OPT3)
240;
241;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
242SCB_SELACT EQU 0000000000000001B ;AN000;allow selection of inactive elem
243SCB_SELEXC EQU 0000000000000010B ;AN000;exclusive selection of one elemet
244SCB_EXCSING EQU 0000000000000100B ;AN000;one element is always selected
245SCB_NUMUIND EQU 0000000000001000B ;AN000;display line number count
246SCB_CHIGH EQU 0000000000010000B ;AN000;hilight cursored and selected stg
247SCB_NUMS EQU 0000000000100000B ;AN000;auto 0-9 number selection
248SCB_FINDE EQU 0000000001000000B ;AN000;auto character search
249SCB_RELUIND EQU 0000000010000000B ;AN000;rel row/col used w/dirct indicato
250SCB_RELSCR EQU 0000000100000000B ;AN000;rel row/col used w/scroll field
251SCB_LVBOVR EQU 0000001000000000B ;AN000;use video buffer seg:off override
252;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
253;
254; PCSLCTP Select Array Option (SCB_SELSEG:SCB_SELOFF)
255;
256;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
257SCB_SELECTON EQU 0000000000000001B ;AN000;element selected
258SCB_ACTIVEON EQU 0000000000000010B ;AN000;element active
259SCB_SKIPON EQU 0000000000000100B ;AN000;element should be skipped
260;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
261;
262; PCHLPWR equates
263;
264; PCHLPWR option bit equates (HWR_OPT1)
265;
266;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
267HWR_REPLACE EQU 0000000000000001B ;AN000;Replace existing help text/topic
268;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
269;
270; PCHLPWR error bit equates (HWR_ERROR)
271;
272;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
273HWR_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
274HWR_HELPUSED EQU 0000000000000010B ;AN000;help ID already in use
275HWR_INVALDID EQU 0000000000000100B ;AN000;help ID is out of range
276HWR_NOHLPOBJ EQU 0000000000001000B ;AN000;no help object
277HWR_NOTCASFILE EQU 0000000000010000B ;AN000;not a valid cas file
278HWR_HELPSFULL EQU 0000000000100000B ;AN000;help vector is full
279;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
280;
281; Internal equates
282;
283; internal equates
284;
285;;;;;;;;;;;;;;;;;;;;;;;;;
286UPARROW EQU 72 ;AN000;up arrow
287DNARROW EQU 80 ;AN000;down arrow
288LFARROW EQU 75 ;AN000;left arrow
289RTARROW EQU 77 ;AN000;right arrow
290PGUP EQU 73 ;AN000;
291PGDN EQU 81 ;AN000;
292ESCAPE EQU 27 ;AN000;
293ENTER EQU 13 ;AN000;
294SPACE EQU 32 ;AN000;
295F1 EQU 59 ;AN000;
296F2 EQU 60 ;AN000;
297F3 EQU 61 ;AN000;
298F4 EQU 62 ;AN000;
299F5 EQU 63 ;AN000;
300F6 EQU 64 ;AN000;
301F7 EQU 65 ;AN000;
302F8 EQU 66 ;AN000;
303F9 EQU 67 ;AN000;
304F10 EQU 68 ;AN000;
305.LIST ;AN000;
306;;;;;;;;;;;;;;;;;;;;;;;;;
307 \ No newline at end of file
HIC SVNT DRACONES