1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10 ; The following variables are defined in the data segment and are used as
11 ; parameter block structures for specific CAS routine calls. The
12 ; initialization of these variables will eventually occur by the dialog.
14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
16 PUBLIC QM_OPT1,QM_ID ;AN000;
17 PUBLIC WR_DRETLEN,WR_DRETOFF,WR_DATA2LEN ;AN000;
18 PUBLIC WR_MAXMEMPAR,WR_DATA2SEG,WR_DATA2OFF ;AN000;
19 PUBLIC WR_LVBMEM,WR_LVBSEG,WR_LVBOFF,WR_LVBLEN ;AN000;
20 PUBLIC WR_ERROR,PM_BASECHAR,PM_BASEATTR,QM_ACTIVEPAN ;AN000;
21 PUBLIC WR_DRETSEG,QM_OPT2 ;AN000;
22 PUBLIC CRD_CCBVECOFF,CRD_CCBVECSEG,INC_KS ;AN000;
23 PUBLIC IN_ICBID,WR_REFBUF ;AN000;
24 PUBLIC WR_HLPOPT,WR_HLPROW,WR_HCBCONT,WR_SCBID ;AN000;
25 PUBLIC IN_CCBVECOFF,IN_CCBVECSEG ;AN000;
26 PUBLIC WR_REFNUM,WR_REFOFF,WR_REFSEG,WR_REFCNT ;AN000;
27 PUBLIC WR_REFIELDCNT,WR_REFID ;AN000;
28 PUBLIC WR_MAXREFID ;AN000;
29 PUBLIC WR_MAXHELPSZ ;AN000;
30 PUBLIC HRD_BUFSEG ;AN000;
31 PUBLIC HRD_BUFOFF ;AN000;
32 PUBLIC HRD_BUFLEN ;AN000;
33 PUBLIC IN_CURNOR ;AN000;JW
35 DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000;
37 EXTRN WR_ICBVEC:WORD ;AN000;
38 EXTRN KD_BACKSPACE:BYTE ;AN000;
39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
41 ; PCGVIDO Parameter Block
43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44 GV_STAT1 DW 0 ;AN000;low bit flag indicating status
45 GV_STAT2 DW 0 ;AN000;high bit flag indicating status
46 GV_SCRWIDTH DW 0 ;AN000;# of attr and char in one line
47 GV_SCRLEN DW 0 ;AN000;# of bytes per video buffer page
48 GV_CURPAGENUM DB 0 ;AN000;current active page
49 GV_VIDMODE DB 0 ;AN000;current video state/mode
50 GV_BASE_6845 DW 0 ;AN000;base port address of 6845
51 GV_STAT_6845 DW 0 ;AN000;status port address of 6845
52 GV_PHYOFF DW 0 ;AN000;phy video buffer offset
53 GV_PHYOFFPAGE DW 0 ;AN000;phys vid buf off adj for page
54 GV_PHYSEG DW 0 ;AN000;phy video buffer segment
55 GV_OSLOGOFF DW 0 ;AN000;operating sys log vid buff os
56 GV_OSLOGSEG DW 0 ;AN000;operating sys log vid buff seg
57 GV_APLOGOFF DW 0 ;AN000;application log vid buf offset
58 GV_APLOGSEG DW 0 ;AN000;application log vid buf segment
59 GV_CSH DW 0 ;AN000;character height in scan lines
60 GV_CSW DW 0 ;AN000;character width in scan lines
61 GV_NUMLINES DW 0 ;AN000;number of rows in text screen
62 GV_CURPOS0 DW 0 ;AN000;cursor position for page 0 R/C
63 GV_CURPOS1 DW 0 ;AN000;cursor position for page 1
64 GV_CURPOS2 DW 0 ;AN000;cursor position for page 2
65 GV_CURPOS3 DW 0 ;AN000;cursor position for page 3
66 GV_CURPOS4 DW 0 ;AN000;cursor position for page 4
67 GV_CURPOS5 DW 0 ;AN000;cursor position for page 5
68 GV_CURPOS6 DW 0 ;AN000;cursor position for page 6
69 GV_CURPOS7 DW 0 ;AN000;cursor position for page 7
70 GV_CURMOD0 DW 0 ;AN000;cursor mode for page 0
71 GV_CURMOD1 DW 0 ;AN000;cursor mode for page 1
72 GV_CURMOD2 DW 0 ;AN000;cursor mode for page 2
73 GV_CURMOD3 DW 0 ;AN000;cursor mode for page 3
74 GV_CURMOD4 DW 0 ;AN000;cursor mode for page 4
75 GV_CURMOD5 DW 0 ;AN000;cursor mode for page 5
76 GV_CURMOD6 DW 0 ;AN000;cursor mode for page 6
77 GV_CURMOD7 DW 0 ;AN000;cursor mode for page 7
78 GV_CURROW DW 0 ;AN000;cursor row location
79 GV_CURCOL DW 0 ;AN000;cursor column location
80 GV_CURSTART DW 0 ;AN000;cursor size (starline)
81 GV_CUREND DW 0 ;AN000;cursor size (endline)
82 GV_CURWIDTH DW 0 ;AN000;cursor width
83 GV_CURATTR DW 0 ;AN000;cursor attribute
84 GV_COLORBITS DB 0 ;AN000;color bits (graphics mode)
85 GV_ERRCODE DW 0 ;AN000;error code
86 GV_RESERVED DB 40 DUP(0) ;AN000;reserved locations
87 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
89 ; PCINSTR parameter block
91 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
92 INS_OPT DW 0 ;AN000;option word
93 INS_KS DW 0 ;AN000;keystroke
94 INS_FLEN DW 0 ;AN000;length of find string
95 INS_FOFF DW 0 ;AN000;offset of find string
96 INS_FSEG DW 0 ;AN000;segment of find string
97 INS_SLEN DW 0 ;AN000;length of string to search
98 INS_SOFF DW 0 ;AN000;offset of string to search
99 INS_SSEG DW 0 ;AN000;segment of string to search
100 INS_SPOFF DW 0 ;AN000;position to start seach
101 INS_RSLT DW 0 ;AN000;result
102 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
104 ; PCHLPRD parameter block
106 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
107 HRD_OPT1 DW 0 ;AN000;option word
108 HRD_BUFLEN DW 0 ;AN000;length of avail buffer
109 HRD_BUFOFF DW 0 ;AN000;offset of buffer
110 HRD_BUFSEG DW 0 ;AN000;segment of buffer
111 HRD_ID DW 0 ;AN000;ID of help text
112 HRD_FILSPOFF DW WR_HLPBUF ;AN000;offset of filespec
113 HRD_FILSPSEG DW DATA ;AN000;segment of filespec
114 HRD_TOPICNUM DW 0 ;AN000;max num of helps
115 HRD_TOPICLEN DW 0 ;AN000;Length of longest topic
116 HRD_TOPICOFF DW 0 ;AN000;offset to table of offsets
117 HRD_TOPICSEG DW 0 ;AN000;segment to table of offsets
118 HRD_TEXTLEN DW 0 ;AN000;Length of help text
119 HRD_TEXTOFF DW 0 ;AN000;offset to help text
120 HRD_TEXTSEG DW 0 ;AN000;Segment to help text
121 HRD_ERROR DW 0 ;AN000;errors
122 HRD_DOSERROR DW 0 ;AN000;DOS error conditions
123 HRD_RESERVED DB 48 DUP(0) ;AN000;reserved for internal use
124 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
126 ; PCSCRRD parameter block
128 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
129 SRD_OPT1 DW 0 ;AN000;option word
130 SRD_BUFLEN DW 0 ;AN000;length of avail buffer
131 SRD_BUFOFF DW 0 ;AN000;offset of buffer
132 SRD_BUFSEG DW 0 ;AN000;segment of buffer
133 SRD_ID DW 0 ;AN000;ID number to read
134 SRD_FILSPEOFF DW WR_SCRBUF ;AN000;offset of filespec
135 SRD_FILSPESEG DW DATA ;AN000;segment of filespec
136 SRD_SCBVECNUM DW 0 ;AN000;num SCBs in vector
137 SRD_SCBVECOFF DW 0 ;AN000;offset of SCB vector
138 SRD_SCBVECSEG DW 0 ;AN000;segment of SCB vector
139 SRD_MAXNUMSCB DW 0 ;AN000;max # flds poss in memry at once
140 SRD_ERROR DW 0 ;AN000;errors
141 SRD_DOSERROR DW 0 ;AN000;DOS error conditions
142 SRD_RESERVED DB 50 DUP(0) ;AN000;reserved for internal use
143 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
145 ; PCINCHA parameter block
147 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
148 INC_OPT DW 0 ;AN000;option word
149 INC_STAT DW 0 ;AN000;status word
150 INC_KS DW 0 ;AN000;keystroke found
151 INC_TRANLEN DW 0 ;AN000;length of translation table
152 INC_TRANOFF DW 0 ;AN000;offset of translation table
153 INC_TRANSEG DW 0 ;AN000;segment of translation table
154 INC_DBCSLEN DW 0 ;AN000;length of DBCS table
155 INC_DBCSOFF DW 0 ;AN000;offset of DBCS table
156 INC_DBCSSEG DW 0 ;AN000;segment of DBCS table
157 INC_MONOOFF DW 0 ;AN000;offset of monocasing table
158 INC_MONOSEG DW 0 ;AN000;segment of monocasing table
159 INC_RESERVED DB 12 DUP(0) ;AN000;reserved for internal use
160 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
162 ; PCCLRRD parameter block
164 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
165 CRD_OPT1 DW 0 ;AN000;option word
166 CRD_BUFLEN DW 0 ;AN000;length of avail buffer
167 CRD_BUFOFF DW 0 ;AN000;offset of buffer
168 CRD_BUFSEG DW 0 ;AN000;segment of buffer
169 CRD_ID DW 0 ;AN000;color index ID number to read
170 CRD_FILSPEOFF DW WR_CLRBUF ;AN000;offset of filespec
171 CRD_FILSPESEG DW DATA ;AN000;segment of filespec
172 CRD_CCBVECLEN DW 0 ;AN000;length of index in bytes
173 CRD_CCBVECOFF DW 0 ;AN000;offset of color index
174 CRD_CCBVECSEG DW 0 ;AN000;segment of color index
175 CRD_ERROR DW 0 ;AN000;errors
176 CRD_DOSERROR DW 0 ;AN000;DOS error conditions
177 CRD_RESERVED DB 34 DUP(0) ;AN000;reserved for internal use
178 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
180 ; PCPANRD parameter block
182 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
183 PRD_OPT1 DW 0 ;AN000;option word
184 PRD_BUFLEN DW 0 ;AN000;length of avail buffer
185 PRD_BUFOFF DW 0 ;AN000;offset of buffer
186 PRD_BUFSEG DW 0 ;AN000;segment of buffer
187 PRD_ID DW 0 ;AN000;PCB number to read
188 PRD_FILSPELEN DW WR_PANLEN ;AN000;length of filespec
189 PRD_FILSPEOFF DW WR_PANBUF ;AN000;offset of filespec
190 PRD_FILSPESEG DW DATA ;AN000;segment of filespec
191 PRD_PCBVECNUM DW 0 ;AN000;num PCBs in vector
192 PRD_PCBVECOFF DW 0 ;AN000;offset of PCB vector
193 PRD_PCBVECSEG DW 0 ;AN000;segment of PCB vector
194 PRD_MAXNUMPAN DW 0 ;AN000;max # pans poss in memry at once
195 PRD_ERROR DW 0 ;AN000;errors
196 PRD_DOSERROR DW 0 ;AN000;DOS error conditions
197 PRD_RESERVED DB 48 DUP(0) ;AN000;reserved for internal use
198 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
200 ; PCDISPQ Parameter Block
202 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
203 QM_OPT1 DW 0 ;AN000;option word one
204 QM_OPT2 DW 0 ;AN000;option word two
205 QM_ID DW 0 ;AN000;parent/child PCB number
206 QM_ACTIVEPAN DW 0 ;AN000;current active parent panel
207 QM_COLOROVER DW 0 ;AN000;parent/child override color indx
208 QM_ROWOVER DW 0 ;AN000;parent/child override row
209 QM_COLUMOVER DW 0 ;AN000;parent/child override column
210 QM_MAXCHDQUE DW 0 ;AN000;max # of child queues to save
211 QM_MAXPANQUE DW 0 ;AN000;max # of panel queues to save
212 QM_MAXNUMCHD DW 0 ;AN000;max # of parent panels queued
213 QM_MAXNUMPAN DW 0 ;AN000;max # of child panels queued
214 QM_PCBVECNUM DW 0 ;AN000;number of PCB elements in vector
215 QM_PCBVECOFF DW 0 ;AN000;offset of PCB vector
216 QM_PCBVECSEG DW 0 ;AN000;segment of PCB vector
217 QM_BUFLEN DW 0 ;AN000;length of avail buffer
218 QM_BUFOFF DW 0 ;AN000;offset of buffer
219 QM_BUFSEG DW 0 ;AN000;segment of buffer
220 QM_PANQUENUM DW 0 ;AN000;returns number in parent PDQ
221 QM_PANQUEOFF DW 0 ;AN000;returns parent PDQ offset
222 QM_PANQUESEG DW 0 ;AN000;returns parent PDQ segment
223 QM_CHDQUENUM DW 0 ;AN000;returns number in child PDQ
224 QM_CHDQUEOFF DW 0 ;AN000;returns child PDQ offset
225 QM_CHDQUESEG DW 0 ;AN000;returns child PDQ segment
226 QM_RETKEYSLEN DW 0 ;AN000;active child keys buffer length
227 QM_RETKEYSOFF DW 0 ;AN000;active child keys buffer offset
228 QM_RETKEYSSEG DW 0 ;AN000;active child keys buffer segmente
229 QM_ERROR DW 0 ;AN000;returns error status
230 QM_RESERVED DB 66 DUP(0) ;AN000;reserved for internal use
231 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
233 ; PCPANEL Parameter Control Block
235 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
236 PM_OPT1 DW 0 ;AN000;option word
237 PM_PANPDQNUM DW 0 ;AN000;beg/ending parent PDQ number
238 PM_PANBRKOFF DW 0 ;AN000;panel off in lvb of break panel
239 PM_PANBRKID DW 0 ;AN000;ID number of break panel
240 PM_ACTIVEPAN DW 0 ;AN000;current active parent panel PCB
241 PM_BASECHAR DB 0 ;AN000;text background character
242 PM_BASEATTR DB 0 ;AN000;color attribute of back char
243 PM_PANQUENUM DW 0 ;AN000;number of panels in parent queue
244 PM_PANQUEOFF DW 0 ;AN000;offset address of parent queue
245 PM_PANQUESEG DW 0 ;AN000;segment address of parent queue
246 PM_CHDQUENUM DW 0 ;AN000;number panels in child queue
247 PM_CHDQUEOFF DW 0 ;AN000;offset of child queue
248 PM_CHDQUESEG DW 0 ;AN000;segment of child queue
249 PM_PCBVECNUM DW 0 ;AN000;number of index elements
250 PM_PCBVECOFF DW 0 ;AN000;off addr of vect pointing to pan
251 PM_PCBVECSEG DW 0 ;AN000;seg addr of vect pointing to pan
252 PM_CCBVECNUM DW 0 ;AN000;number color index table entries
253 PM_CCBVECOFF DW 0 ;AN000;offset addr of color index table
254 PM_CCBVECSEG DW 0 ;AN000;segment addr of color index tabl
255 PM_LVBLEN DW 0 ;AN000;number bytes in logical vid buf
256 PM_LVBOFF DW 0 ;AN000;offset of logical video buffer
257 PM_LVBSEG DW 0 ;AN000;segment of logical video buffer
258 PM_LVBWIDTH DW 0 ;AN000;width of log vid buf in bytes
259 PM_TRANS_C DB 0 ;AN000;character indicating trans field
260 PM_TRANS_A DB 0 ;AN000;attribute indicating trans field
261 PM_REFVECNUM DW 0 ;AN000;number refresh table entries
262 PM_REFVECOFF DW 0 ;AN000;offset of refresh table
263 PM_REFVECSEG DW 0 ;AN000;segment of refresh table
264 PM_ERROR DW 0 ;AN000;error conditions
265 PM_RESERVED DB 417 DUP (0) ;AN000;reserved for internal use
266 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
268 ; PCINPUT parameter block
270 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
271 IN_OPT DW IN_AMONO ;AN000;option word one
272 IN_ICBID DW 1 ;AN000;current input field to process
273 IN_ICBOFF DW 0 ;AN000;returned offset of current ICB
274 IN_ICBSEG DW 0 ;AN000;returned segment of current ICB
275 IN_ICBVECNUM DW 31 ;AN000;number of ICB entires in vector
276 IN_ICBVECOFF DW WR_ICBVEC ;AN000;offset of ICB vector
277 IN_ICBVECSEG DW DATA ;AN000;segment of ICB vector
278 IN_CCBVECOFF DW 0 ;AN000;offset of color index table
279 IN_CCBVECSEG DW 0 ;AN000;segment of color index table
280 IN_CURNOR DW 0607H ;AN000;normal cursor size
281 IN_CURINS DW 0207H ;AN000;cursor size in insert mode
282 IN_TRANLEN DW 0 ;AN000;length of key translation table
283 IN_TRANOFF DW 0 ;AN000;offset of key translation table
284 IN_TRANSEG DW 0 ;AN000;segment of key translation table
285 IN_MONOOFF DW 0 ;AN000;offset of monocasing table
286 IN_MONOSEG DW 0 ;AN000;segment of monocasing table
287 IN_DBCSLEN DW 0 ;AN000;length double byte range table
288 IN_DBCSOFF DW 0 ;AN000;offset double byte range table
289 IN_DBCSSEG DW 0 ;AN000;segment double byte range table
290 IN_KEYSOFF DW KD_BACKSPACE ;AN000;offset of keystroke definitions
291 IN_KEYSSEG DW DATA ;AN000;segment of keystroke definitions
292 IN_CAPROW DW 0 ;AN000;row of caps lock flag
293 IN_CAPCOL DW 0 ;AN000;col of caps lock flag
294 IN_CAPLEN DW 0 ;AN000;length of caps lock flag text
295 IN_CAPOFF DW 0 ;AN000;offset of caps lock flag text
296 IN_CAPSEG DW 0 ;AN000;segment of caps lock flag text
297 IN_INSROW DW 0 ;AN000;row of insert flag
298 IN_INSCOL DW 0 ;AN000;col of insert flag
299 IN_INSLEN DW 0 ;AN000;length of insert flag text
300 IN_INSOFF DW 0 ;AN000;offset of insert flag text
301 IN_INSSEG DW 0 ;AN000;segment of insert flag text
302 IN_NUMROW DW 0 ;AN000;row of num lock flag
303 IN_NUMCOL DW 0 ;AN000;col of num lock flag
304 IN_NUMLEN DW 0 ;AN000;length of num lock flag text
305 IN_NUMOFF DW 0 ;AN000;offset of num lock flag text
306 IN_NUMSEG DW 0 ;AN000;segment of num lock flag text
307 IN_SCRROW DW 0 ;AN000;row of scroll lock flag
308 IN_SCRCOL DW 0 ;AN000;col of scroll lock flag
309 IN_SCRLEN DW 0 ;AN000;length of scroll lock flag text
310 IN_SCROFF DW 0 ;AN000;offset of scroll lock flag text
311 IN_SCRSEG DW 0 ;AN000;segment of scroll lock flag text
312 IN_THOUSEP DB 0,0 ;AN000;thousands separator
313 IN_THOUPOS DW 0 ;AN000;space between thousnd separators
314 IN_DECSEP DB 0,0 ;AN000;decimal separator
315 IN_DELIMITEN DB '[]' ;AN000;left & right bracket char - on
316 IN_DELIMITEX DB ' ' ;AN000;left & right bracket char - off
317 IN_DELIMITDIR DB '<>' ;AN000;direction delimitors (horz wind)
318 IN_BORDEREN DB '�Ŀ�����' ;AN000;8 border char (�Ŀ�����) entry
319 IN_BORDEREX DB '12345678' ;AN000;8 border char (�Ŀ�����) exit
320 IN_LVBOFF DW 0 ;AN000;log vid buf offset override
321 IN_LVBSEG DW 0 ;AN000;log vid buf segment override
322 IN_CURINSOFF DW 0 ;AN000;offset insert cursor bit map (W)
323 IN_CURINSSEG DW 0 ;AN000;segment insert cursor bit map (W)
324 IN_CURRPLOFF DW 0 ;AN000;offset replace cursor bit map (W)
325 IN_CURRPLSEG DW 0 ;AN000;segment replace cursor bit map (W)
326 IN_DELOFF DW 0 ;AN000;offset delimiter bit maps =W
327 IN_DELSEG DW 0 ;AN000;segment delimiter bit maps =W
328 IN_ERROR DW 0 ;AN000;error word
329 IN_RESERVED DB 450 DUP(0) ;AN000;reserved for internal use
330 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
332 ; PCWWRAP parameter block
334 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
335 WWP_OPT1 DW 0 ;AN000;option word
336 WWP_SRCTXTLEN DW 0 ;AN000;the length of actual text
337 WWP_SRCTXTOFF DW 0 ;AN000;the offset to actual text
338 WWP_SRCTXTSEG DW 0 ;AN000;the segment to actual text
339 WWP_SRCBUFLEN DW 0 ;AN000;lenght of the entire buffer
340 WWP_DESBUFLEN DW 0 ;AN000;the length of dest buffer
341 WWP_DESBUFOFF DW 0 ;AN000;the offset to dest buffer
342 WWP_DESBUFSEG DW 0 ;AN000;the segment to dest buffer
343 WWP_WIDTH DW 53 ;AN000;width of the # of char on a line
344 WWP_NUMLINES DW 0 ;AN000;Number of actual line process
345 WWP_FORMAT DB '@' ;AN000;Used to indicate the begin formt
346 WWP_NOFORMAT DB '@' ;AN000;Used to indicate the format off
347 WWP_SRCHYSMB DB '#' ;AN000;Symbol that is used as hyphen
348 WWP_HYSYMBOL DB '-' ;AN000;Actual hyphen symbol
349 WWP_SPACESYM DB '&' ;AN000;symbol for padding spaces at EOL
350 WWP_ERROR DW 0 ;AN000;Internal error conditions
351 WWP_RESERVED DB 5 DUP(0) ;AN000;reserved for internal use
352 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
354 ; PCMBEEP parameter block
356 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
357 MB_FREQUENCY DW SND_FREQ ;AN000;beep frequency
358 MB_DURATION DW SND_DURA ;AN000;beep duration
359 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
361 ; Input field management internal variables:
363 ; Miscellaneous internal variables
365 WR_ICBID DW 0 ;AN000;general ICB ID number
366 WR_ICBVECOFF DW WR_ICBVEC ;AN000;ICB vector address
367 WR_ICBVECSEG DW DATA ;AN000;ICB vector address
369 ; Return key string internal variables:
370 ; Dynamic return key string variables to add to complete return string
372 WR_DRETLEN DW 0 ;AN000;dynamic return string length
373 WR_DRETOFF DW 0 ;AN000;dynamic return string offset
374 WR_DRETSEG DW 0 ;AN000;dynamic return string segment
376 ; Complete return key string buffer variables
378 WR_CRETLEN DW 0 ;AN000;current length of complete ret sg
379 WR_CRETOFF DW 0 ;AN000;current offset of complete ret sg
380 WR_CRETSEG DW 0 ;AN000;current segment of complete ret s
382 ; Help management internal variables:
384 ; Help options, status, filespec, and override variables
386 WR_HLPOPT DW 0 ;AN000;help options
387 WR_HLPPAN DW 0 ;AN000;help child panels that are active
388 WR_HLPDIS DW 0 ;AN000;help status
389 WR_HLPROW DW 0 ;AN000;help row override
390 WR_HLPCOL DW 0 ;AN000;help column override
392 ; Help text ID variables
394 WR_HCBCONT DW 0 ;AN000;current contextual help ID
395 WR_HCBHELP DW HCB_HELP ;AN000;help-on-help ID
396 WR_HCBKEYS DW HCB_KEYS ;AN000;help on keys ID
398 ; Help scroll ID variable
400 WR_SCBCONT DW SCR_CONTEXT_HLP ;AN000;scroll contextual help ID
401 WR_SCBINDX DW SCR_CONTEXT_HLP ;AN000;scroll indexed help ID
403 ; Help panel ID variables
405 WR_PCBHELP DW CHILD_F1HELP ;AN000;F1=Help
406 WR_PCBSWIT DW 0 ;AN000;F2=Switch
407 WR_PCBINDX DW 0 ;AN000;F5=Index
408 WR_PCBKEYS DW CHILD_F9KEYS ;AN000;F9=Keys
409 WR_PCBHPAN DW PAN_HPAN ;AN000;contextual help panel
410 WR_PCBQUIT DW CHILD_QUIT ;AN000;Esc=Quit
411 WR_PCBENTR DW CHILD_ENTER ;AN000;Enter
412 WR_PCBERROR DW ERR_BORDER ;AN000;Error panel
414 ; Help keystroke variables
416 WR_KEYHELP DW KEY_HELP ;AN000;F1=Help
417 WR_KEYSWIT DW KEY_SWIT ;AN000;F2=Switch
418 WR_KEYINDX DW KEY_INDX ;AN000;F5=Index
419 WR_KEYKEYS DW KEY_KEYS ;AN000;F9=Keys
420 WR_KEYSELT DW KEY_SELT ;AN000;Enter
421 WR_KEYQUIT DW KEY_QUIT ;AN000;Esc=Quit
423 WR_RETHLPBUF DB ESCAPE ;AN000;help dynamic return keys
424 WR_RETHLPLEN EQU ($-WR_RETHLPBUF) ;AN000;
425 ;-----------------------
427 ; Management internal variables:
429 WR_PANBUF LABEL BYTE ;AN000;
430 WR_SCRBUF LABEL BYTE ;AN000;
431 WR_CLRBUF DB 'SELECT.DAT',0 ;AN000;filespec
432 WR_CLRLEN EQU ($-WR_CLRBUF) ;AN000;
433 WR_SCRLEN EQU ($-WR_SCRBUF) ;AN000;
434 WR_PANLEN EQU ($-WR_PANBUF) ;AN000;
435 ;-----------------------
436 WR_HLPBUF DB 'SELECT.HLP',0 ;AN000;filespec
437 WR_HLPLEN EQU ($-WR_HLPBUF) ;AN000;
439 ; Panel Field Refresh Relationship Table
441 ; Format = DW Panel control block number
442 ; DW Total number of fields in this record
449 ; Panel Field Refresh Table Location
451 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
452 WR_REFNUM DW 1 ;AN000;number of PCB entries
453 WR_REFOFF DW WR_REFBUF ;AN000;offset of table
454 WR_REFSEG DW DATA ;AN000;segment of table
455 WR_REFCNT DW 0 ;AN000;refresh counter
457 WR_REFBUF DW 0 ;AN000; PCB number
458 WR_REFIELDCNT DW 0 ;AN000; #fields with this PCB
459 WR_REFID DW 0,0 ;AN000; Object ID 1, Field ID 1
460 DW 0,0 ;AN000; Object ID 2, Field ID 2
461 DW 0,0 ;AN000; Object ID 3, Field ID 3
462 DW 0,0 ;AN000; Object ID 4, Field ID 4
463 DW 0,0 ;AN000; Object ID 5, Field ID 5
464 DW 0,0 ;AN000; Object ID 6, Field ID 6
465 DW 0,0 ;AN000; Object ID 7, Field ID 7
466 DW 0,0 ;AN000; Object ID 8, Field ID 8
467 DW 0,0 ;AN000; Object ID 9, Field ID 9
468 DW 0,0 ;AN000; Object ID10, Field ID10
469 WR_MAXREFID EQU ($-WR_REFID)/2;AN000;
471 WR_SCBID DW 0 ;AN000;current PCSLCTP ID number
472 WR_ERROR DW 0 ;AN000;0= no error, 1= error condition
474 ; Memory allocation variables - needs to support multiple segment table
476 WR_DATA2SEG DW 0 ;AN000;segment of allocated buffer
477 WR_DATA2OFF DW 0 ;AN000;offset of allocated buffer
478 WR_DATA2LEN DW 0 ;AN000;length of allocated buffer
480 WR_LVBSEG DW 0 ;AN000;segment of LVB (logical video buffer)
481 WR_LVBOFF DW 0 ;AN000;offset of LVB
482 WR_LVBLEN DW 0 ;AN000;length of LVB
484 ; Maximum limits for data
486 WR_LVBMEM DW MAX_MEMLVB ;AN000;size of LVB in 16 byte paraghp
487 WR_MAXMEMPAR DW MAX_MEMPAR ;AN000;size of memory in 16 byte paraghp
488 WR_MAXRETKSZ DW MAX_RETKSZ ;AN000;max size of return key buffer
489 WR_MAXHELPSZ DW MAX_HELPSZ ;AN000;max size of help text buffer
490 WR_MAXPANNUM DW MAX_PANNUM ;AN000;max # of panels possible in memry
491 WR_MAXSCRNUM DW MAX_SCRNUM ;AN000;max # of scroll possible in memry
492 WR_MAXCHDQUE DW MAX_CHDQUE ;AN000;max # of child queues to save
493 WR_MAXPANQUE DW MAX_PANQUE ;AN000;max # of panel queues to save
494 WR_MAXNUMCHD DW MAX_NUMCHD ;AN000;max # of parent panels queued
495 WR_MAXNUMPAN DW MAX_NUMPAN ;AN000;max # of child panels queued
496 WR_MAXCLRECD DW MAX_CLRECD ;AN000;num # bytes per color record
498 LVB_INITED DB 0 ;AN000;flag for LVB allocated
499 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
projects / MS-DOS.git / blob