blob: 684993bb24ce47309e5690eebb42abc3b434bf8f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
; 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;
;;;;;;;;;;;;;;;;;;;;;;;;;
|
