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