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
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;
; DATA.MAC
;
;
; Define data segment
;
; The following variables are defined in the data segment and are used as
; parameter block structures for specific CAS routine calls. The
; initialization of these variables will eventually occur by the dialog.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
PUBLIC QM_OPT1,QM_ID ;AN000;
PUBLIC WR_DRETLEN,WR_DRETOFF,WR_DATA2LEN ;AN000;
PUBLIC WR_MAXMEMPAR,WR_DATA2SEG,WR_DATA2OFF ;AN000;
PUBLIC WR_LVBMEM,WR_LVBSEG,WR_LVBOFF,WR_LVBLEN ;AN000;
PUBLIC WR_ERROR,PM_BASECHAR,PM_BASEATTR,QM_ACTIVEPAN ;AN000;
PUBLIC WR_DRETSEG,QM_OPT2 ;AN000;
PUBLIC CRD_CCBVECOFF,CRD_CCBVECSEG,INC_KS ;AN000;
PUBLIC IN_ICBID,WR_REFBUF ;AN000;
PUBLIC WR_HLPOPT,WR_HLPROW,WR_HCBCONT,WR_SCBID ;AN000;
PUBLIC IN_CCBVECOFF,IN_CCBVECSEG ;AN000;
PUBLIC WR_REFNUM,WR_REFOFF,WR_REFSEG,WR_REFCNT ;AN000;
PUBLIC WR_REFIELDCNT,WR_REFID ;AN000;
PUBLIC WR_MAXREFID ;AN000;
PUBLIC WR_MAXHELPSZ ;AN000;
PUBLIC HRD_BUFSEG ;AN000;
PUBLIC HRD_BUFOFF ;AN000;
PUBLIC HRD_BUFLEN ;AN000;
PUBLIC IN_CURNOR ;AN000;JW
;
DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000;
;
EXTRN WR_ICBVEC:WORD ;AN000;
EXTRN KD_BACKSPACE:BYTE ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCGVIDO Parameter Block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GV_STAT1 DW 0 ;AN000;low bit flag indicating status
GV_STAT2 DW 0 ;AN000;high bit flag indicating status
GV_SCRWIDTH DW 0 ;AN000;# of attr and char in one line
GV_SCRLEN DW 0 ;AN000;# of bytes per video buffer page
GV_CURPAGENUM DB 0 ;AN000;current active page
GV_VIDMODE DB 0 ;AN000;current video state/mode
GV_BASE_6845 DW 0 ;AN000;base port address of 6845
GV_STAT_6845 DW 0 ;AN000;status port address of 6845
GV_PHYOFF DW 0 ;AN000;phy video buffer offset
GV_PHYOFFPAGE DW 0 ;AN000;phys vid buf off adj for page
GV_PHYSEG DW 0 ;AN000;phy video buffer segment
GV_OSLOGOFF DW 0 ;AN000;operating sys log vid buff os
GV_OSLOGSEG DW 0 ;AN000;operating sys log vid buff seg
GV_APLOGOFF DW 0 ;AN000;application log vid buf offset
GV_APLOGSEG DW 0 ;AN000;application log vid buf segment
GV_CSH DW 0 ;AN000;character height in scan lines
GV_CSW DW 0 ;AN000;character width in scan lines
GV_NUMLINES DW 0 ;AN000;number of rows in text screen
GV_CURPOS0 DW 0 ;AN000;cursor position for page 0 R/C
GV_CURPOS1 DW 0 ;AN000;cursor position for page 1
GV_CURPOS2 DW 0 ;AN000;cursor position for page 2
GV_CURPOS3 DW 0 ;AN000;cursor position for page 3
GV_CURPOS4 DW 0 ;AN000;cursor position for page 4
GV_CURPOS5 DW 0 ;AN000;cursor position for page 5
GV_CURPOS6 DW 0 ;AN000;cursor position for page 6
GV_CURPOS7 DW 0 ;AN000;cursor position for page 7
GV_CURMOD0 DW 0 ;AN000;cursor mode for page 0
GV_CURMOD1 DW 0 ;AN000;cursor mode for page 1
GV_CURMOD2 DW 0 ;AN000;cursor mode for page 2
GV_CURMOD3 DW 0 ;AN000;cursor mode for page 3
GV_CURMOD4 DW 0 ;AN000;cursor mode for page 4
GV_CURMOD5 DW 0 ;AN000;cursor mode for page 5
GV_CURMOD6 DW 0 ;AN000;cursor mode for page 6
GV_CURMOD7 DW 0 ;AN000;cursor mode for page 7
GV_CURROW DW 0 ;AN000;cursor row location
GV_CURCOL DW 0 ;AN000;cursor column location
GV_CURSTART DW 0 ;AN000;cursor size (starline)
GV_CUREND DW 0 ;AN000;cursor size (endline)
GV_CURWIDTH DW 0 ;AN000;cursor width
GV_CURATTR DW 0 ;AN000;cursor attribute
GV_COLORBITS DB 0 ;AN000;color bits (graphics mode)
GV_ERRCODE DW 0 ;AN000;error code
GV_RESERVED DB 40 DUP(0) ;AN000;reserved locations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCINSTR parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INS_OPT DW 0 ;AN000;option word
INS_KS DW 0 ;AN000;keystroke
INS_FLEN DW 0 ;AN000;length of find string
INS_FOFF DW 0 ;AN000;offset of find string
INS_FSEG DW 0 ;AN000;segment of find string
INS_SLEN DW 0 ;AN000;length of string to search
INS_SOFF DW 0 ;AN000;offset of string to search
INS_SSEG DW 0 ;AN000;segment of string to search
INS_SPOFF DW 0 ;AN000;position to start seach
INS_RSLT DW 0 ;AN000;result
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCHLPRD parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HRD_OPT1 DW 0 ;AN000;option word
HRD_BUFLEN DW 0 ;AN000;length of avail buffer
HRD_BUFOFF DW 0 ;AN000;offset of buffer
HRD_BUFSEG DW 0 ;AN000;segment of buffer
HRD_ID DW 0 ;AN000;ID of help text
HRD_FILSPOFF DW WR_HLPBUF ;AN000;offset of filespec
HRD_FILSPSEG DW DATA ;AN000;segment of filespec
HRD_TOPICNUM DW 0 ;AN000;max num of helps
HRD_TOPICLEN DW 0 ;AN000;Length of longest topic
HRD_TOPICOFF DW 0 ;AN000;offset to table of offsets
HRD_TOPICSEG DW 0 ;AN000;segment to table of offsets
HRD_TEXTLEN DW 0 ;AN000;Length of help text
HRD_TEXTOFF DW 0 ;AN000;offset to help text
HRD_TEXTSEG DW 0 ;AN000;Segment to help text
HRD_ERROR DW 0 ;AN000;errors
HRD_DOSERROR DW 0 ;AN000;DOS error conditions
HRD_RESERVED DB 48 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCSCRRD parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SRD_OPT1 DW 0 ;AN000;option word
SRD_BUFLEN DW 0 ;AN000;length of avail buffer
SRD_BUFOFF DW 0 ;AN000;offset of buffer
SRD_BUFSEG DW 0 ;AN000;segment of buffer
SRD_ID DW 0 ;AN000;ID number to read
SRD_FILSPEOFF DW WR_SCRBUF ;AN000;offset of filespec
SRD_FILSPESEG DW DATA ;AN000;segment of filespec
SRD_SCBVECNUM DW 0 ;AN000;num SCBs in vector
SRD_SCBVECOFF DW 0 ;AN000;offset of SCB vector
SRD_SCBVECSEG DW 0 ;AN000;segment of SCB vector
SRD_MAXNUMSCB DW 0 ;AN000;max # flds poss in memry at once
SRD_ERROR DW 0 ;AN000;errors
SRD_DOSERROR DW 0 ;AN000;DOS error conditions
SRD_RESERVED DB 50 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCINCHA parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_OPT DW 0 ;AN000;option word
INC_STAT DW 0 ;AN000;status word
INC_KS DW 0 ;AN000;keystroke found
INC_TRANLEN DW 0 ;AN000;length of translation table
INC_TRANOFF DW 0 ;AN000;offset of translation table
INC_TRANSEG DW 0 ;AN000;segment of translation table
INC_DBCSLEN DW 0 ;AN000;length of DBCS table
INC_DBCSOFF DW 0 ;AN000;offset of DBCS table
INC_DBCSSEG DW 0 ;AN000;segment of DBCS table
INC_MONOOFF DW 0 ;AN000;offset of monocasing table
INC_MONOSEG DW 0 ;AN000;segment of monocasing table
INC_RESERVED DB 12 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCCLRRD parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CRD_OPT1 DW 0 ;AN000;option word
CRD_BUFLEN DW 0 ;AN000;length of avail buffer
CRD_BUFOFF DW 0 ;AN000;offset of buffer
CRD_BUFSEG DW 0 ;AN000;segment of buffer
CRD_ID DW 0 ;AN000;color index ID number to read
CRD_FILSPEOFF DW WR_CLRBUF ;AN000;offset of filespec
CRD_FILSPESEG DW DATA ;AN000;segment of filespec
CRD_CCBVECLEN DW 0 ;AN000;length of index in bytes
CRD_CCBVECOFF DW 0 ;AN000;offset of color index
CRD_CCBVECSEG DW 0 ;AN000;segment of color index
CRD_ERROR DW 0 ;AN000;errors
CRD_DOSERROR DW 0 ;AN000;DOS error conditions
CRD_RESERVED DB 34 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANRD parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PRD_OPT1 DW 0 ;AN000;option word
PRD_BUFLEN DW 0 ;AN000;length of avail buffer
PRD_BUFOFF DW 0 ;AN000;offset of buffer
PRD_BUFSEG DW 0 ;AN000;segment of buffer
PRD_ID DW 0 ;AN000;PCB number to read
PRD_FILSPELEN DW WR_PANLEN ;AN000;length of filespec
PRD_FILSPEOFF DW WR_PANBUF ;AN000;offset of filespec
PRD_FILSPESEG DW DATA ;AN000;segment of filespec
PRD_PCBVECNUM DW 0 ;AN000;num PCBs in vector
PRD_PCBVECOFF DW 0 ;AN000;offset of PCB vector
PRD_PCBVECSEG DW 0 ;AN000;segment of PCB vector
PRD_MAXNUMPAN DW 0 ;AN000;max # pans poss in memry at once
PRD_ERROR DW 0 ;AN000;errors
PRD_DOSERROR DW 0 ;AN000;DOS error conditions
PRD_RESERVED DB 48 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCDISPQ Parameter Block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
QM_OPT1 DW 0 ;AN000;option word one
QM_OPT2 DW 0 ;AN000;option word two
QM_ID DW 0 ;AN000;parent/child PCB number
QM_ACTIVEPAN DW 0 ;AN000;current active parent panel
QM_COLOROVER DW 0 ;AN000;parent/child override color indx
QM_ROWOVER DW 0 ;AN000;parent/child override row
QM_COLUMOVER DW 0 ;AN000;parent/child override column
QM_MAXCHDQUE DW 0 ;AN000;max # of child queues to save
QM_MAXPANQUE DW 0 ;AN000;max # of panel queues to save
QM_MAXNUMCHD DW 0 ;AN000;max # of parent panels queued
QM_MAXNUMPAN DW 0 ;AN000;max # of child panels queued
QM_PCBVECNUM DW 0 ;AN000;number of PCB elements in vector
QM_PCBVECOFF DW 0 ;AN000;offset of PCB vector
QM_PCBVECSEG DW 0 ;AN000;segment of PCB vector
QM_BUFLEN DW 0 ;AN000;length of avail buffer
QM_BUFOFF DW 0 ;AN000;offset of buffer
QM_BUFSEG DW 0 ;AN000;segment of buffer
QM_PANQUENUM DW 0 ;AN000;returns number in parent PDQ
QM_PANQUEOFF DW 0 ;AN000;returns parent PDQ offset
QM_PANQUESEG DW 0 ;AN000;returns parent PDQ segment
QM_CHDQUENUM DW 0 ;AN000;returns number in child PDQ
QM_CHDQUEOFF DW 0 ;AN000;returns child PDQ offset
QM_CHDQUESEG DW 0 ;AN000;returns child PDQ segment
QM_RETKEYSLEN DW 0 ;AN000;active child keys buffer length
QM_RETKEYSOFF DW 0 ;AN000;active child keys buffer offset
QM_RETKEYSSEG DW 0 ;AN000;active child keys buffer segmente
QM_ERROR DW 0 ;AN000;returns error status
QM_RESERVED DB 66 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCPANEL Parameter Control Block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PM_OPT1 DW 0 ;AN000;option word
PM_PANPDQNUM DW 0 ;AN000;beg/ending parent PDQ number
PM_PANBRKOFF DW 0 ;AN000;panel off in lvb of break panel
PM_PANBRKID DW 0 ;AN000;ID number of break panel
PM_ACTIVEPAN DW 0 ;AN000;current active parent panel PCB
PM_BASECHAR DB 0 ;AN000;text background character
PM_BASEATTR DB 0 ;AN000;color attribute of back char
PM_PANQUENUM DW 0 ;AN000;number of panels in parent queue
PM_PANQUEOFF DW 0 ;AN000;offset address of parent queue
PM_PANQUESEG DW 0 ;AN000;segment address of parent queue
PM_CHDQUENUM DW 0 ;AN000;number panels in child queue
PM_CHDQUEOFF DW 0 ;AN000;offset of child queue
PM_CHDQUESEG DW 0 ;AN000;segment of child queue
PM_PCBVECNUM DW 0 ;AN000;number of index elements
PM_PCBVECOFF DW 0 ;AN000;off addr of vect pointing to pan
PM_PCBVECSEG DW 0 ;AN000;seg addr of vect pointing to pan
PM_CCBVECNUM DW 0 ;AN000;number color index table entries
PM_CCBVECOFF DW 0 ;AN000;offset addr of color index table
PM_CCBVECSEG DW 0 ;AN000;segment addr of color index tabl
PM_LVBLEN DW 0 ;AN000;number bytes in logical vid buf
PM_LVBOFF DW 0 ;AN000;offset of logical video buffer
PM_LVBSEG DW 0 ;AN000;segment of logical video buffer
PM_LVBWIDTH DW 0 ;AN000;width of log vid buf in bytes
PM_TRANS_C DB 0 ;AN000;character indicating trans field
PM_TRANS_A DB 0 ;AN000;attribute indicating trans field
PM_REFVECNUM DW 0 ;AN000;number refresh table entries
PM_REFVECOFF DW 0 ;AN000;offset of refresh table
PM_REFVECSEG DW 0 ;AN000;segment of refresh table
PM_ERROR DW 0 ;AN000;error conditions
PM_RESERVED DB 417 DUP (0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCINPUT parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IN_OPT DW IN_AMONO ;AN000;option word one
IN_ICBID DW 1 ;AN000;current input field to process
IN_ICBOFF DW 0 ;AN000;returned offset of current ICB
IN_ICBSEG DW 0 ;AN000;returned segment of current ICB
IN_ICBVECNUM DW 31 ;AN000;number of ICB entires in vector
IN_ICBVECOFF DW WR_ICBVEC ;AN000;offset of ICB vector
IN_ICBVECSEG DW DATA ;AN000;segment of ICB vector
IN_CCBVECOFF DW 0 ;AN000;offset of color index table
IN_CCBVECSEG DW 0 ;AN000;segment of color index table
IN_CURNOR DW 0607H ;AN000;normal cursor size
IN_CURINS DW 0207H ;AN000;cursor size in insert mode
IN_TRANLEN DW 0 ;AN000;length of key translation table
IN_TRANOFF DW 0 ;AN000;offset of key translation table
IN_TRANSEG DW 0 ;AN000;segment of key translation table
IN_MONOOFF DW 0 ;AN000;offset of monocasing table
IN_MONOSEG DW 0 ;AN000;segment of monocasing table
IN_DBCSLEN DW 0 ;AN000;length double byte range table
IN_DBCSOFF DW 0 ;AN000;offset double byte range table
IN_DBCSSEG DW 0 ;AN000;segment double byte range table
IN_KEYSOFF DW KD_BACKSPACE ;AN000;offset of keystroke definitions
IN_KEYSSEG DW DATA ;AN000;segment of keystroke definitions
IN_CAPROW DW 0 ;AN000;row of caps lock flag
IN_CAPCOL DW 0 ;AN000;col of caps lock flag
IN_CAPLEN DW 0 ;AN000;length of caps lock flag text
IN_CAPOFF DW 0 ;AN000;offset of caps lock flag text
IN_CAPSEG DW 0 ;AN000;segment of caps lock flag text
IN_INSROW DW 0 ;AN000;row of insert flag
IN_INSCOL DW 0 ;AN000;col of insert flag
IN_INSLEN DW 0 ;AN000;length of insert flag text
IN_INSOFF DW 0 ;AN000;offset of insert flag text
IN_INSSEG DW 0 ;AN000;segment of insert flag text
IN_NUMROW DW 0 ;AN000;row of num lock flag
IN_NUMCOL DW 0 ;AN000;col of num lock flag
IN_NUMLEN DW 0 ;AN000;length of num lock flag text
IN_NUMOFF DW 0 ;AN000;offset of num lock flag text
IN_NUMSEG DW 0 ;AN000;segment of num lock flag text
IN_SCRROW DW 0 ;AN000;row of scroll lock flag
IN_SCRCOL DW 0 ;AN000;col of scroll lock flag
IN_SCRLEN DW 0 ;AN000;length of scroll lock flag text
IN_SCROFF DW 0 ;AN000;offset of scroll lock flag text
IN_SCRSEG DW 0 ;AN000;segment of scroll lock flag text
IN_THOUSEP DB 0,0 ;AN000;thousands separator
IN_THOUPOS DW 0 ;AN000;space between thousnd separators
IN_DECSEP DB 0,0 ;AN000;decimal separator
IN_DELIMITEN DB '[]' ;AN000;left & right bracket char - on
IN_DELIMITEX DB ' ' ;AN000;left & right bracket char - off
IN_DELIMITDIR DB '<>' ;AN000;direction delimitors (horz wind)
IN_BORDEREN DB '�Ŀ�����' ;AN000;8 border char (�Ŀ�����) entry
IN_BORDEREX DB '12345678' ;AN000;8 border char (�Ŀ�����) exit
IN_LVBOFF DW 0 ;AN000;log vid buf offset override
IN_LVBSEG DW 0 ;AN000;log vid buf segment override
IN_CURINSOFF DW 0 ;AN000;offset insert cursor bit map (W)
IN_CURINSSEG DW 0 ;AN000;segment insert cursor bit map (W)
IN_CURRPLOFF DW 0 ;AN000;offset replace cursor bit map (W)
IN_CURRPLSEG DW 0 ;AN000;segment replace cursor bit map (W)
IN_DELOFF DW 0 ;AN000;offset delimiter bit maps =W
IN_DELSEG DW 0 ;AN000;segment delimiter bit maps =W
IN_ERROR DW 0 ;AN000;error word
IN_RESERVED DB 450 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCWWRAP parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
WWP_OPT1 DW 0 ;AN000;option word
WWP_SRCTXTLEN DW 0 ;AN000;the length of actual text
WWP_SRCTXTOFF DW 0 ;AN000;the offset to actual text
WWP_SRCTXTSEG DW 0 ;AN000;the segment to actual text
WWP_SRCBUFLEN DW 0 ;AN000;lenght of the entire buffer
WWP_DESBUFLEN DW 0 ;AN000;the length of dest buffer
WWP_DESBUFOFF DW 0 ;AN000;the offset to dest buffer
WWP_DESBUFSEG DW 0 ;AN000;the segment to dest buffer
WWP_WIDTH DW 53 ;AN000;width of the # of char on a line
WWP_NUMLINES DW 0 ;AN000;Number of actual line process
WWP_FORMAT DB '@' ;AN000;Used to indicate the begin formt
WWP_NOFORMAT DB '@' ;AN000;Used to indicate the format off
WWP_SRCHYSMB DB '#' ;AN000;Symbol that is used as hyphen
WWP_HYSYMBOL DB '-' ;AN000;Actual hyphen symbol
WWP_SPACESYM DB '&' ;AN000;symbol for padding spaces at EOL
WWP_ERROR DW 0 ;AN000;Internal error conditions
WWP_RESERVED DB 5 DUP(0) ;AN000;reserved for internal use
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PCMBEEP parameter block
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MB_FREQUENCY DW SND_FREQ ;AN000;beep frequency
MB_DURATION DW SND_DURA ;AN000;beep duration
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Input field management internal variables:
;
; Miscellaneous internal variables
;
WR_ICBID DW 0 ;AN000;general ICB ID number
WR_ICBVECOFF DW WR_ICBVEC ;AN000;ICB vector address
WR_ICBVECSEG DW DATA ;AN000;ICB vector address
;
; Return key string internal variables:
; Dynamic return key string variables to add to complete return string
;
WR_DRETLEN DW 0 ;AN000;dynamic return string length
WR_DRETOFF DW 0 ;AN000;dynamic return string offset
WR_DRETSEG DW 0 ;AN000;dynamic return string segment
;
; Complete return key string buffer variables
;
WR_CRETLEN DW 0 ;AN000;current length of complete ret sg
WR_CRETOFF DW 0 ;AN000;current offset of complete ret sg
WR_CRETSEG DW 0 ;AN000;current segment of complete ret s
;
; Help management internal variables:
;
; Help options, status, filespec, and override variables
;
WR_HLPOPT DW 0 ;AN000;help options
WR_HLPPAN DW 0 ;AN000;help child panels that are active
WR_HLPDIS DW 0 ;AN000;help status
WR_HLPROW DW 0 ;AN000;help row override
WR_HLPCOL DW 0 ;AN000;help column override
;
; Help text ID variables
;
WR_HCBCONT DW 0 ;AN000;current contextual help ID
WR_HCBHELP DW HCB_HELP ;AN000;help-on-help ID
WR_HCBKEYS DW HCB_KEYS ;AN000;help on keys ID
;
; Help scroll ID variable
;
WR_SCBCONT DW SCR_CONTEXT_HLP ;AN000;scroll contextual help ID
WR_SCBINDX DW SCR_CONTEXT_HLP ;AN000;scroll indexed help ID
;
; Help panel ID variables
;
WR_PCBHELP DW CHILD_F1HELP ;AN000;F1=Help
WR_PCBSWIT DW 0 ;AN000;F2=Switch
WR_PCBINDX DW 0 ;AN000;F5=Index
WR_PCBKEYS DW CHILD_F9KEYS ;AN000;F9=Keys
WR_PCBHPAN DW PAN_HPAN ;AN000;contextual help panel
WR_PCBQUIT DW CHILD_QUIT ;AN000;Esc=Quit
WR_PCBENTR DW CHILD_ENTER ;AN000;Enter
WR_PCBERROR DW ERR_BORDER ;AN000;Error panel
;
; Help keystroke variables
;
WR_KEYHELP DW KEY_HELP ;AN000;F1=Help
WR_KEYSWIT DW KEY_SWIT ;AN000;F2=Switch
WR_KEYINDX DW KEY_INDX ;AN000;F5=Index
WR_KEYKEYS DW KEY_KEYS ;AN000;F9=Keys
WR_KEYSELT DW KEY_SELT ;AN000;Enter
WR_KEYQUIT DW KEY_QUIT ;AN000;Esc=Quit
WR_RETHLPBUF DB ESCAPE ;AN000;help dynamic return keys
WR_RETHLPLEN EQU ($-WR_RETHLPBUF) ;AN000;
;-----------------------
;
; Management internal variables:
;
WR_PANBUF LABEL BYTE ;AN000;
WR_SCRBUF LABEL BYTE ;AN000;
WR_CLRBUF DB 'SELECT.DAT',0 ;AN000;filespec
WR_CLRLEN EQU ($-WR_CLRBUF) ;AN000;
WR_SCRLEN EQU ($-WR_SCRBUF) ;AN000;
WR_PANLEN EQU ($-WR_PANBUF) ;AN000;
;-----------------------
WR_HLPBUF DB 'SELECT.HLP',0 ;AN000;filespec
WR_HLPLEN EQU ($-WR_HLPBUF) ;AN000;
;
; Panel Field Refresh Relationship Table
;
; Format = DW Panel control block number
; DW Total number of fields in this record
; DW Object type ID
; DW Field ID
;
; DW Object type ID
; DW Field ID
;
; Panel Field Refresh Table Location
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
WR_REFNUM DW 1 ;AN000;number of PCB entries
WR_REFOFF DW WR_REFBUF ;AN000;offset of table
WR_REFSEG DW DATA ;AN000;segment of table
WR_REFCNT DW 0 ;AN000;refresh counter
WR_REFBUF DW 0 ;AN000; PCB number
WR_REFIELDCNT DW 0 ;AN000; #fields with this PCB
WR_REFID DW 0,0 ;AN000; Object ID 1, Field ID 1
DW 0,0 ;AN000; Object ID 2, Field ID 2
DW 0,0 ;AN000; Object ID 3, Field ID 3
DW 0,0 ;AN000; Object ID 4, Field ID 4
DW 0,0 ;AN000; Object ID 5, Field ID 5
DW 0,0 ;AN000; Object ID 6, Field ID 6
DW 0,0 ;AN000; Object ID 7, Field ID 7
DW 0,0 ;AN000; Object ID 8, Field ID 8
DW 0,0 ;AN000; Object ID 9, Field ID 9
DW 0,0 ;AN000; Object ID10, Field ID10
WR_MAXREFID EQU ($-WR_REFID)/2;AN000;
WR_SCBID DW 0 ;AN000;current PCSLCTP ID number
WR_ERROR DW 0 ;AN000;0= no error, 1= error condition
;
; Memory allocation variables - needs to support multiple segment table
;
WR_DATA2SEG DW 0 ;AN000;segment of allocated buffer
WR_DATA2OFF DW 0 ;AN000;offset of allocated buffer
WR_DATA2LEN DW 0 ;AN000;length of allocated buffer
;
WR_LVBSEG DW 0 ;AN000;segment of LVB (logical video buffer)
WR_LVBOFF DW 0 ;AN000;offset of LVB
WR_LVBLEN DW 0 ;AN000;length of LVB
;
; Maximum limits for data
;
WR_LVBMEM DW MAX_MEMLVB ;AN000;size of LVB in 16 byte paraghp
WR_MAXMEMPAR DW MAX_MEMPAR ;AN000;size of memory in 16 byte paraghp
WR_MAXRETKSZ DW MAX_RETKSZ ;AN000;max size of return key buffer
WR_MAXHELPSZ DW MAX_HELPSZ ;AN000;max size of help text buffer
WR_MAXPANNUM DW MAX_PANNUM ;AN000;max # of panels possible in memry
WR_MAXSCRNUM DW MAX_SCRNUM ;AN000;max # of scroll possible in memry
WR_MAXCHDQUE DW MAX_CHDQUE ;AN000;max # of child queues to save
WR_MAXPANQUE DW MAX_PANQUE ;AN000;max # of panel queues to save
WR_MAXNUMCHD DW MAX_NUMCHD ;AN000;max # of parent panels queued
WR_MAXNUMPAN DW MAX_NUMPAN ;AN000;max # of child panels queued
WR_MAXCLRECD DW MAX_CLRECD ;AN000;num # bytes per color record
LVB_INITED DB 0 ;AN000;flag for LVB allocated
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DATA ENDS ;AN000;
PAGE ;AN000;
|
