summaryrefslogtreecommitdiff
path: root/v4.0/src/SELECT/PCEQUATE.INC
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/SELECT/PCEQUATE.INC')
-rw-r--r--v4.0/src/SELECT/PCEQUATE.INC451
1 files changed, 451 insertions, 0 deletions
diff --git a/v4.0/src/SELECT/PCEQUATE.INC b/v4.0/src/SELECT/PCEQUATE.INC
new file mode 100644
index 0000000..8faf0d5
--- /dev/null
+++ b/v4.0/src/SELECT/PCEQUATE.INC
@@ -0,0 +1,451 @@
1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2;
3; PCSCRRD option bit equates (SRD_OPT1)
4;
5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6SRD_INITIAL EQU 0000000000000001B ;AN000;initialize SCB and filespec buff
7SRD_READONE EQU 0000000000000010B ;AN000;read field specified by SRD_ID
8SRD_APPEND EQU 0000000000000100B ;AN000;match field ID are issued new ID
9SRD_READALL EQU 0000000000001000B ;AN000;read all FLDS in specified file
10SRD_ALLOCRES EQU 0000000000010000B ;AN000;allocate reserved PCSLCTP space
11;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12;
13; PCSCRRD error bit equates (SRD_ERROR)
14;
15;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
16SRD_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
17SRD_NOFIELDS EQU 0000000000000010B ;AN000;file does not contain fields
18SRD_NOTCASFILE EQU 0000000000000100B ;AN000;file object list does not exist
19SRD_FIELDSFULL EQU 0000000000001000B ;AN000;max num FLDS read into SCB vect
20SRD_NOINITIAL EQU 0000000000010000B ;AN000;make initialize call first
21SRD_NOFIELDID EQU 0000000000100000B ;AN000;specified field ID not found
22;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
23;
24; PCHLPRD option bit equates (HRD_OPT1)
25;
26;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27HRD_TOPIC EQU 0000000000000001B ;AN000;process help TOPIC(S) index
28HRD_TEXT EQU 0000000000000010B ;AN000;process HELP or ERROR text
29HRD_DISPID EQU 0000000000000100B ;AN000;display unique id on topic list
30;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
31;
32; PCHLPRD error bit equates (HRD_ERROR)
33;
34;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
35HRD_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
36HRD_NOHLPOBJ EQU 0000000000000010B ;AN000;file does not contain helps
37HRD_NOOBJLST EQU 0000000000000100B ;AN000;file object list does not exist
38HRD_NOHELPID EQU 0000000000001000B ;AN000;requested id was not found
39HRD_NOTCASFILE EQU 0000000000010000B ;AN000;not a valid cas file
40;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
41;
42; PCSTRST equates
43;
44;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
45SSC_TBSL EQU 0000000000000001B ;AN000;use two byte string length
46SSC_PTSB EQU 0000000000000010B ;AN000;pointer points to string buffer
47SSC_VTSAO EQU 0000000000000100B ;AN000;vector table is string addr only
48SSC_VTASO EQU 0000000000001000B ;AN000;vector table addr is seg:offset
49SSC_SLSB EQU 0000000000010000B ;AN000;string length is in string buffer
50SSC_SBTC EQU 0000000000100000B ;AN000;string buffer has term. character
51SSC_VTE EQU 1 ;AN000;error in vector table
52SSC_SBE EQU 2 ;AN000;error in string buffer
53;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
54;
55; PCSLCTP Option word one (SCB_OPT1)
56;
57;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
58SCB_UC EQU 0000000000000001B ;AN000;upper case option
59SCB_WRAP EQU 0000000000000010B ;AN000;wrap option
60SCB_FRBF EQU 0000000000000100B ;AN000;force return before first option
61SCB_FRAL EQU 0000000000001000B ;AN000;force return after last option
62SCB_LL EQU 0000000000010000B ;AN000;lock line
63SCB_UKS EQU 0000000000100000B ;AN000;use keystroke
64SCB_RD EQU 0000000001000000B ;AN000;return after display option
65SCB_RUK EQU 0000000010000000B ;AN000;return unused keys option
66SCB_UI EQU 0000000100000000B ;AN000;use index option
67SCB_TRN EQU 0000001000000000B ;AN000;translate character
68SCB_MON EQU 0000010000000000B ;AN000;convert to upper case monocasing
69SCB_DBCS EQU 0000100000000000B ;AN000;check for double byte chars
70SCB_TBL EQU 0001000000000000B ;AN000;use given DBCS range table
71SCB_DCHECK EQU 0010000000000000B ;AN000;display check mark characters
72SCB_DACTIVE EQU 0100000000000000B ;AN000;display active string indicators
73SCB_DPOINT EQU 1000000000000000B ;AN000;display selection pointer string
74;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
75;
76; PCSLCTP Option word two (SCB_OPT2)
77;
78;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
79SCB_CS EQU 0000000000000001B ;AN000;clear screen on entry option
80SCB_ROTN EQU 0000000000000010B ;AN000;reset option to normal on return
81SCB_UET EQU 0000000000000100B ;AN000;use existing text option
82SCB_CFO EQU 0000000000001000B ;AN000;cursor follows option
83SCB_LCOX EQU 0000000000010000B ;AN000;leave cursor on exit
84SCB_IPAGE EQU 0000000000100000B ;AN000;instant paging
85SCB_PM1 EQU 0000000001000000B ;AN000;paging is minus one line
86SCB_UIND EQU 0000000010000000B ;AN000;display up, dn, lf, rg indicators
87SCB_UNCA EQU 0000000100000000B ;AN000;use normal color array
88SCB_DYN EQU 0000001000000000B ;AN000;option array is dynamicly created
89SCB_LANDR EQU 0000010000000000B ;AN000;left and right scrolling active
90SCB_CPHY EQU 0000100000000000B ;AN000;color array is physical attributs
91SCB_NUML EQU 0001000000000000B ;AN000;generate num list in opt strings
92SCB_SKIP EQU 0010000000000000B ;AN000;skip inactive option strings
93SCB_SHIGH EQU 0100000000000000B ;AN000;highlight the selected opt strgs
94SCB_AHIGH EQU 1000000000000000B ;AN000;highlight the active option strgs
95;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
96;
97; PCSLCTP Option word three (SCB_OPT3)
98;
99;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
100SCB_SELACT EQU 0000000000000001B ;AN000;allow selection of inactive elem
101SCB_SELEXC EQU 0000000000000010B ;AN000;exclusive selection of one elemet
102SCB_EXCSING EQU 0000000000000100B ;AN000;one element is always selected
103SCB_NUMUIND EQU 0000000000001000B ;AN000;display line number count
104SCB_CHIGH EQU 0000000000010000B ;AN000;hilight cursored and selected stg
105SCB_NUMS EQU 0000000000100000B ;AN000;auto 0-9 number selection
106SCB_FINDE EQU 0000000001000000B ;AN000;auto character search
107SCB_RELUIND EQU 0000000010000000B ;AN000;rel row/col used w/dirct indicato
108SCB_RELSCR EQU 0000000100000000B ;AN000;rel row/col used w/scroll field
109SCB_LVBOVR EQU 0000001000000000B ;AN000;use video buffer seg:off override
110SCB_FM EQU 0000010000000000B ;AN000;make call to dynamic format rout
111;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
112;
113; PCSLCTP Select Array Option (SCB_SELSEG:SCB_SELOFF)
114;
115;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
116SCB_SELECTON EQU 0000000000000001B ;AN000;element selected
117SCB_ACTIVEON EQU 0000000000000010B ;AN000;element active
118SCB_SKIPON EQU 0000000000000100B ;AN000;element should be skipped
119;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
120;
121; PCINCHA option equates (INC_OPT)
122;
123;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
124INC_KWAIT EQU 0000000000000001B ;keystroke
125INC_UTRAN EQU 0000000000000010B ;translate keys using user table
126INC_UDBCS EQU 0000000000000100B ;DBCS processed using user table
127INC_DDBCS EQU 0000000000001000B ;DBCS processed using DOS table
128INC_UMONO EQU 0000000000010000B ;monocase keys using user table
129INC_AMONO EQU 0000000000100000B ;monocase keys using USA algorithm
130INC_RSCAN EQU 0000000001000000B ;return scan codes for norm chars
131;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
132;
133; PCINCHA option equates (INC_STAT)
134;
135;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
136INC_KFND EQU 0000000000000001B ;AN000;character found in buffer
137INC_DBCS EQU 0000000000000010B ;AN000;character found is double byte
138;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
139;
140; PCCLRRD error bit equates (CRD_ERROR)
141;
142;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
143CRD_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
144CRD_NOCOLORS EQU 0000000000000010B ;AN000;file does not contain colors
145CRD_NOTCASFILE EQU 0000000000000100B ;AN000;file object list does not exist
146CRD_IDNOTFOUND EQU 0000000000001000B ;AN000;color index ID not found
147;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
148;
149; PCPANRD option bit equates (PRD_OPT1)
150;
151;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
152PRD_INITIAL EQU 0000000000000001B ;AN000;initialize PCB and filespec buff
153PRD_READONE EQU 0000000000000010B ;AN000;read pan specified by PRD_ID
154PRD_APPEND EQU 0000000000000100B ;AN000;match pans ID are issued new ID
155PRD_READALL EQU 0000000000001000B ;AN000;read all pans in specified file
156PRD_SIZEMALL EQU 0000000000010000B ;AN000;reserve space for panel sizing
157;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
158;
159; PCPANRD error bit equates (PRD_ERROR)
160;
161;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
162PRD_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
163PRD_NOPANELS EQU 0000000000000010B ;AN000;file does not contain panels
164PRD_NOTCASFILE EQU 0000000000000100B ;AN000;file object list does not exist
165PRD_PANELSFULL EQU 0000000000001000B ;AN000;max num pans read into PCB vect
166PRD_NOINITIAL EQU 0000000000010000B ;AN000;make initialize call first
167PRD_NOPANELID EQU 0000000000100000B ;AN000;specified panel ID not found
168;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
169;
170; PCDISPQ option equates (QM_OPT1)
171;
172;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
173QM_INIT EQU 0000000000000001B ;AN000;Initialize working buffer
174QM_PUSHCHD EQU 0000000000000010B ;AN000;Add child number
175QM_RVMCHD EQU 0000000000000100B ;AN000;Remove specific child number
176QM_POPCHD EQU 0000000000001000B ;AN000;Pop (n) number of child cur queue
177QM_PUSHPAN EQU 0000000000010000B ;AN000;Add panel number
178QM_RVMPAN EQU 0000000000100000B ;AN000;Remove specific panel number
179QM_POPPAN EQU 0000000001000000B ;AN000;Pop (n) number of panls cur queue
180QM_PUSHCQU EQU 0000000010000000B ;AN000;Push current child queue
181QM_POPCQU EQU 0000000100000000B ;AN000;Pop last child queue
182QM_PUSHPQU EQU 0000001000000000B ;AN000;Push current panel queue
183QM_POPPQU EQU 0000010000000000B ;AN000;Pop last panel queue pushed
184QM_CLSCHD EQU 0000100000000000B ;AN000;Clear current child queue.
185QM_CLSPAN EQU 0001000000000000B ;AN000;Clear current panel queue.
186;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
187; PCDISPQ option equates (QM_OPT2)
188;
189;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
190QM_BREAKON EQU 0000000000000001B ;AN000;break option is on
191QM_BREAKOFF EQU 0000000000000010B ;AN000;break option is off
192QM_SRFON EQU 0000000000000100B ;AN000;selected refresh option is on
193QM_SRFOFF EQU 0000000000001000B ;AN000;selected refresh option is off
194;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
195;
196; PCDISPQ error equates (QM_ERROR)
197;
198;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
199QM_ERRMP EQU 0000000000000001B ;AN000;max number of panels added
200QM_ERRMC EQU 0000000000000010B ;AN000;max number of childs added
201QM_ERRMPQ EQU 0000000000000100B ;AN000;max number of panel queues pushed
202QM_ERRMCQ EQU 0000000000001000B ;AN000;max number of child queues pushed
203QM_ERROP EQU 0000000000010000B ;AN000;max number of panel queues popped
204QM_ERROC EQU 0000000000100000B ;AN000;max number of child queues popped
205QM_ERRBU EQU 0000000001000000B ;AN000;inadequate buffer size avail
206QM_ERRPN EQU 0000000010000000B ;AN000;specified panel not found
207QM_ERRCN EQU 0000000100000000B ;AN000;specified child not found
208;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
209;
210; PCPANEL option bit equates (PM_OPT1)
211;
212;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
213PM_RF EQU 0000000000000001B ;AN000;do not refresh display
214PM_SRF EQU 0000000000000010B ;AN000;selective PVB refresh from LVB
215PM_BK EQU 0000000000000100B ;AN000;panel break function active
216PM_CL EQU 0000000000001000B ;AN000;initialize LVB to base char/attr
217PM_DOA EQU 0000000000010000B ;AN000;display childs in active parent
218PM_DOV EQU 0000000000100000B ;AN000;use child row, col, color overrid
219PM_DOQ EQU 0000000001000000B ;AN000;disp all child in parent chd tabl
220;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
221;
222; PCPANEL error equates for (PM_ERROR)
223;
224;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
225PM_PANPDQ EQU 0000000000000001B ;AN000;invalid parent PDQ or start num
226PM_PCBVEC EQU 0000000000000010B ;AN000;invalid PCB vector entry found
227PM_UNKNPANS EQU 0000000000000100B ;AN000;unknown panel source found
228PM_CHDTAB EQU 0000000000001000B ;AN000;set error with child table
229PM_COLORX EQU 0000000000010000B ;AN000;panel's color index out of range
230;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
231;
232; PCPANEL Parent and Child Display Queue option bit equates (PT_OPT)
233;
234;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
235PT_BK EQU 0000000000000001B ;AN000;panel break on
236PT_SRF EQU 0000000000000010B ;AN000;selective refresh of panel to PVB
237;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
238;
239; PCPANEL Panel Control Block option equates for individual panels (PCB_OPT1)
240;
241;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
242PCB_CRE EQU 0000000000000001B ;AN000;Create panel from scratch
243PCB_CMP EQU 0000000000000010B ;AN000;Use compress text form in memory
244PCB_EXP EQU 0000000000000100B ;AN000;Use expanded text form in memory
245PCB_MXP EQU 0000000000001000B ;AN000;Use mixed text/attr form in memoy
246PCB_LB EQU 0000000000010000B ;AN000;Use logical border
247PCB_ASZ EQU 0000000000100000B ;AN000;Allow sizing of panel
248PCB_ASC EQU 0000000001000000B ;AN000;Allow scrolling of panel
249PCB_LAB EQU 0000000010000000B ;AN000;Use the defined panel label
250PCB_DTB EQU 0000000100000000B ;AN000;Draw top border (graphics only)
251PCB_DBB EQU 0000001000000000B ;AN000;Draw bottom border (graphic only)
252PCB_DLB EQU 0000010000000000B ;AN000;Draw left border (graphics only)
253PCB_DRB EQU 0000100000000000B ;AN000;Draw right border (graphics only)
254PCB_DSHADOW EQU 0001000000000000B ;AN000;Draw shadow (graphics only)
255PCB_PELCOORD EQU 0010000000000000B ;AN000;row/col in pel coordinates (grap)
256;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
257;
258; PCINSTR option bit equates (INS_OPT)
259;
260;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
261INS_FKS EQU 0000000000000001B ;AN000;find keystroke
262;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
263;
264; PCGVIDO Status equates (GV_STAT1)
265;
266;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
267GV_TV EQU 0000000000000001B ;AN000;TopView is present
268GV_CGA EQU 0000000000000010B ;AN000;CGA is present
269GV_EGA EQU 0000000000000100B ;AN000;EGA is present
270GV_PGA EQU 0000000000001000B ;AN000;PGA is present
271GV_MGA EQU 0000000000010000B ;AN000;MGA is present
272GV_EGAA EQU 0000000000100000B ;AN000;EGA is active card
273GV_CGAA EQU 0000000001000000B ;AN000;CGA is active card
274GV_EGACM EQU 0000000010000000B ;AN000;EGA is set to monochrome
275GV_PGAEM EQU 0000000100000000B ;AN000;PGA is in color emulation mode
276GV_HS EQU 0000001000000000B ;AN000;display requires sync check 1=Y
277GV_64K EQU 0000010000000000B ;AN000; 64K memory on EGA card
278GV_128K EQU 0000100000000000B ;AN000;128K memory on EGA card
279GV_192K EQU 0001000000000000B ;AN000;192K memory on EGA card
280GV_256K EQU 0010000000000000B ;AN000;256K memory on EGA card
281GV_UM EQU 0100000000000000B ;AN000;error unknown moniter or config
282;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
283;
284; PCGVIDO Status equates (GV_STAT2)
285;
286;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
287GV_TVW EQU 0000000000000001B ;AN000;App is 'well behaved' under TV
288GV_P5140 EQU 0000000000000010B ;AN000;P12 with LCD
289GV_P5153 EQU 0000000000000100B ;AN000;P12 with color
290GV_P5151 EQU 0000000000001000B ;AN000;P12 with monochrome
291GV_COLOR EQU 0000000000010000B ;AN000;color mode
292GV_TEXTGRAPH EQU 0000000000100000B ;AN000;graphics mode
293GV_MONOP EQU 0000000001000000B ;AN000;monochrome adapter is primary
294GV_CGAP EQU 0000000010000000B ;AN000;CGA adapter is primary card
295GV_EGAP EQU 0000000100000000B ;AN000;EGA adapter is primary card
296GV_TURBOP EQU 0000001000000000B ;AN000;Turbo graphics adapter is primary
297;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
298;
299; PCINPUT option equates.
300;
301;
302; PCINPUT Option equates (IN_OPT)
303;
304;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
305IN_UTRAN EQU 0000000000000001B ;AN000;translate keys using user table
306IN_ADBCS EQU 0000000000000010B ;AN000;DBCS option active
307IN_UDBCS EQU 0000000000000100B ;AN000;DBCS processed using user table
308IN_DDBCS EQU 0000000000001000B ;AN000;DBCS processed using DOS table
309IN_UMONO EQU 0000000000010000B ;AN000;monocase keys using user table
310IN_AMONO EQU 0000000000100000B ;AN000;monocase keys using USA algorithm
311IN_LICBX EQU 0000000001000000B ;AN000;load ICB off:seg and exit
312IN_LVBOV EQU 0000000010000000B ;AN000;use video buffer seg:off override
313 ;
314IN_RANG EQU 0000000000000001B ;AN000;ICB ID out of vector range
315;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
316;
317; Input Field Control Block Equates
318;
319; ICB_OPT1 Option word one equates
320;
321;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
322ICB_ECL EQU 0000000000000001B ;AN000;set specified color on entry
323ICB_XCL EQU 0000000000000010B ;AN000;set specified color on exit
324ICB_USC EQU 0000000000000100B ;AN000;use color attribute string
325ICB_BEN EQU 0000000000001000B ;AN000;display entry delimiters
326ICB_BEX EQU 0000000000010000B ;AN000;display exit delimiters
327ICB_BOX EQU 0000000000100000B ;AN000;display border delimiters
328ICB_MUS EQU 0000000001000000B ;AN000;plus and minus display active
329ICB_SMU EQU 0000000010000000B ;AN000;starting default is negative
330ICB_OUT EQU 0000000100000000B ;AN000;display default and accept input
331ICB_CLR EQU 0000001000000000B ;AN000;clear default on first entry
332ICB_PSW EQU 0000010000000000B ;AN000;password
333ICB_RJU EQU 0000100000000000B ;AN000;right justification is activated
334ICB_SWK EQU 0001000000000000B ;AN000;switch entry dir key active
335ICB_RTA EQU 0010000000000000B ;AN000;right arrow editing
336ICB_LFA EQU 0100000000000000B ;AN000;left arrow editing
337ICB_BKS EQU 1000000000000000B ;AN000;backspace editing
338;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
339;
340; ICB_OPT2 Option word two equates
341;
342;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
343ICB_INS EQU 0000000000000001B ;AN000;insert key editing
344ICB_DEL EQU 0000000000000010B ;AN000;delete key editing
345ICB_HOM EQU 0000000000000100B ;AN000;home key editing
346ICB_CTE EQU 0000000000001000B ;AN000;control + end key editing
347ICB_END EQU 0000000000010000B ;AN000;end key editing
348ICB_AXC EQU 0000000000100000B ;AN000;auto enter on cursor
349ICB_AXD EQU 0000000001000000B ;AN000;auto enter on data
350ICB_CSW EQU 0000000010000000B ;AN000;wrap the cursor end to end
351ICB_UPC EQU 0000000100000000B ;AN000;lower case to upper conversion
352ICB_UFK EQU 0000001000000000B ;AN000;use supplied keystroke as 1 key
353ICB_UDO EQU 0000010000000000B ;AN000;undo key replaces default
354ICB_TSD EQU 0000100000000000B ;AN000;thousands separators during inpu
355ICB_TSA EQU 0001000000000000B ;AN000;thousands separators after entry
356ICB_TSR EQU 0010000000000000B ;AN000;return thousand separators
357ICB_PAD EQU 0100000000000000B ;AN000;pad zeros to precision
358ICB_WRP EQU 1000000000000000B ;AN000;word wrap in windowed field
359;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
360;
361; ICB_OPT3 Option word three equates
362;
363;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
364ICB_WIN EQU 0000000000000001B ;AN000;windowing wrap of field
365ICB_WAE EQU 0000000000000010B ;AN000;up and down arrow editing
366ICB_TBX EQU 0000000000000100B ;AN000;exit if arrows reach top/bottom
367ICB_HOR EQU 0000000000001000B ;AN000;horizontial windowing
368ICB_WHM EQU 0000000000010000B ;AN000;full window Home key
369ICB_WEN EQU 0000000000100000B ;AN000;full window End key
370ICB_WCE EQU 0000000001000000B ;AN000;full window Ctrl-End key
371ICB_WDL EQU 0000000010000000B ;AN000;full window Delete key
372ICB_WAR EQU 0000000100000000B ;AN000;full window arrow keys
373ICB_WBS EQU 0000001000000000B ;AN000;full window backspace key
374ICB_FGS EQU 0000010000000000B ;AN000;use the ICB_STATUS status values
375ICB_SCR EQU 0000100000000000B ;AN000;display of scroll flag active
376ICB_NUM EQU 0001000000000000B ;AN000;display of numlock flag active
377ICB_CAP EQU 0010000000000000B ;AN000;display of caps flag active
378ICB_FIN EQU 0100000000000000B ;AN000;display of insert flag active
379;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
380;
381; ICB_STATUS status word equates
382;
383;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
384ICB_SDEF EQU 0000000000000001B ;AN000;default value changed
385ICB_SMUS EQU 0000000000000010B ;AN000;minus sign active
386ICB_SPUS EQU 0000000000000100B ;AN000;plus sign active
387ICB_STRU EQU 0000000000001000B ;AN000;default value was truncated
388ICB_SSCR EQU 0000000000010000B ;AN000;scroll lock flag on at exit/entry
389ICB_SNUM EQU 0000000000100000B ;AN000;num lock flag on at exit/entry
390ICB_SCAP EQU 0000000001000000B ;AN000;caps lock flag on at exit/entry
391ICB_SINS EQU 0000000010000000B ;AN000;insert flag on at exit/entry
392;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
393;
394; PCWWRAP option bit equates (WWP_OPT1)
395;
396;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
397WWP_LEFTJUST EQU 0000000000000001B ;AN000;process with left straight edge
398WWP_RIGHTJUST EQU 0000000000000010B ;AN000;process with right straight edge
399WWP_LEFTNRIGHT EQU 0000000000000100B ;AN000;process with left and right edge
400WWP_HYPHEN EQU 0000000000001000B ;AN000;hyphenate word(s)
401WWP_DESTBUFFER EQU 0000000000010000B ;AN000;Use specified destination buffer
402WWP_SRCBUFFER EQU 0000000000100000B ;AN000;Use the same buf as the text
403;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
404;
405; PCWWRAP error bit equates (WWP_ERROR)
406;
407;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
408WWP_BUFSIZE EQU 0000000000000001B ;AN000;buffer size is too small
409WWP_DUPSYMBOL EQU 0000000000000010B ;AN000;WWP_HYSMBOL and WWP_SRCHYSMB
410 ; are set to same character
411WWP_LONGWORD EQU 0000000000000100B ;AN000;word is longer than WWP_WIDTH
412WWP_NOBUFFER EQU 0000000000001000B ;AN000;no address to src or dest buf
413WWP_NOJUSTOPT EQU 0000000000010000B ;AN000;no justification option was set
414;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
415;
416; Help options (WR_HLPOPT, WR_HLPPAN, WR_HLPDIS)
417;
418;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
419HLP_CONT EQU 0000000000000001B ;AN000;contextual help
420HLP_KEYS EQU 0000000000000010B ;AN000;keys help
421HLP_HELP EQU 0000000000000100B ;AN000;help-on-help
422HLP_INDX EQU 0000000000001000B ;AN000;help index
423HLP_OVER EQU 0000000000010000B ;AN000;help row and column overrides
424;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
425;
426; Internal equates
427;
428;
429; Internal keystroke equates
430;
431;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
432UPARROW EQU 72*256 ;AN000;up arrow
433DNARROW EQU 80*256 ;AN000;down arrow
434LFARROW EQU 75*256 ;AN000;left arrow
435RTARROW EQU 77*256 ;AN000;right arrow
436PGUP EQU 73 ;AN000;
437PGDN EQU 81 ;AN000;
438ESCAPE EQU 27 ;AN000;
439ENTER EQU 13 ;AN000;
440SPACE EQU 32 ;AN000;
441TAB EQU 9 ;AN000;
442F1 EQU 59 ;AN000;
443F2 EQU 60 ;AN000;
444F3 EQU 61 ;AN000;
445F4 EQU 62 ;AN000;
446F5 EQU 63 ;AN000;
447F6 EQU 64 ;AN000;
448F7 EQU 65 ;AN000;
449F8 EQU 66 ;AN000;
450F9 EQU 67 ;AN000;
451F10 EQU 68 ;AN000;
HIC SVNT DRACONES