summaryrefslogtreecommitdiff
path: root/v4.0/src/INC/SHELLRD.INC
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/INC/SHELLRD.INC')
-rw-r--r--v4.0/src/INC/SHELLRD.INC5111
1 files changed, 5111 insertions, 0 deletions
diff --git a/v4.0/src/INC/SHELLRD.INC b/v4.0/src/INC/SHELLRD.INC
new file mode 100644
index 0000000..7d35d11
--- /dev/null
+++ b/v4.0/src/INC/SHELLRD.INC
@@ -0,0 +1,5111 @@
1;
2PAGE
3;-----------------------------------------------------------------------------+
4; :
5; Name: SHELLRD.INC :
6; :
7; Description: Include file for SHELLRD.ASM :
8; :
9; Revised: 04-21-88 :
10; :
11;-----------------------------------------------------------------------------+
12;
13PAGE
14;-----------------------------------------------------------------------------+
15; :
16; Name: INIT_GTEXT :
17; :
18; Description: Initialize the PCGRAPH parameter block with the PCB :
19; contained in AX. :
20; :
21; Entry: AX = Panel ID to initialize into PCGRAPH parameter :
22; block. :
23; :
24; Exit: ES:DI = Address of initialized PCGRAPH parameter :
25; block. :
26; :
27; Entry point: INIT_GTEXT :
28; :
29; Notes: None. :
30; :
31; Internal references: None. :
32; :
33; External references: None. :
34; :
35;-----------------------------------------------------------------------------+
36;
37INIT_GTEXT PROC NEAR
38;
39 CALL FAR PTR GET_PCB ;return panel address at ES:DI
40;
41 PUSH ES:[DI]+PCB_FLAGSEG ;flag string segment
42 PUSH ES:[DI]+PCB_FLAGOFF ;flag string offset
43 PUSH ES:[DI]+PCB_EXPANDSEG ;segment of text string
44 PUSH ES:[DI]+PCB_EXPANDOFF ;offset of text string
45 PUSH ES:[DI]+PCB_WIDTH ;width of panel
46 PUSH ES:[DI]+PCB_LROW ;lower right corner
47 PUSH ES:[DI]+PCB_UCOL ;column location of panel
48 PUSH ES:[DI]+PCB_UROW ;row location of panel
49 PUSH ES:[DI]+PCB_CCBID ;Index number of log color
50 MOV AL,ES:[DI]+PCB_OPT4
51;
52 LEA DI,GEN_DATA ;point graphics window structure
53 ; to data area
54 MOV [DI]+G_DRAWT_F,AL ;set flags
55 POP AX ;get color index
56 POP BX ;get upper row
57 MOV [DI]+G_DRAWTROWO,BX ;window row origin (top left)
58 POP [DI]+G_DRAWTCOLO ;window column origin
59 POP CX ;get lower row and calculate
60 SUB CX,BX ; number of lines in text panel
61 INC CX
62 MOV [DI]+G_DRAWTLINES,CX
63 POP [DI]+G_DRAWTLEN ;width of panel text
64;
65 POP WORD PTR [DI].G_DRAWTSTRING
66 ;panel text string address
67 POP WORD PTR [DI+2].G_DRAWTSTRING
68 POP WORD PTR [DI].G_DRAWTFLAGS
69 ;panel text flag string address
70 POP WORD PTR [DI+2].G_DRAWTFLAGS
71;
72 DEC [DI]+G_DRAWTROWO ;window row origin (top left)
73 DEC [DI]+G_DRAWTCOLO ;window column origin
74;
75 MOV BX,G_DRAWT_WA+G_DRAWT_WC+G_DRAWT_UA
76 CMP [DI]+G_DRAWT_F,0 ;check if source flags option used
77 JE IGT10
78;
79 CMP WORD PTR [DI].G_DRAWTFLAGS,0
80 JNE IGT10
81;
82 OR BX,G_DRAWT_UF ;set option to use source flags
83 ; option
84;
85IGT10: MOV [DI]+G_DRAWTOPT,BX ;option word
86 MOV [DI]+G_DRAWTSKIP,0 ;num bytes in source to next line
87;
88 PUSH ES ;save pointer to panel data
89 PUSH DI
90 CALL FAR PTR GET_COLOR ;get color attribute
91 MOV AL,ES:[DI]+CCB_A1 ;get normal panel color
92 POP DI ;point back to panel data
93 POP ES
94 MOV [DI]+G_DRAWT_A,AL ;window attribute
95 MOV [DI]+G_DRAWTOUT,AL ;outline color attribute
96;
97 MOV AX,DATA ;point to segment containing
98 MOV ES,AX ; general data area
99;
100 RET
101INIT_GTEXT ENDP
102;
103PAGE
104;-----------------------------------------------------------------------------+
105; :
106; Name: PROCESS_SCROLL :
107; :
108; Description: Highlight mouse fields in the specified range as :
109; the up and down arrows are used. The range of mouse :
110; fields to highlight are specified in AX and BX with :
111; intervening fields in consecutive order. The help :
112; ID for each selection is calculated from the values :
113; set to COM_HCBIDL and COM_HCBIDH. It is important :
114; that the help equates are in sequential order. :
115; :
116; 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� :
117; COM_HCBIDL 컴 1. First element to highlight 컴컴 AX :
118; � 2. : : � :
119; � 3. : : � :
120; COM_HCBIDH 컴 4. Last element to highlight 컴컴 BX :
121; 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� :
122; :
123; :
124; Entry: AX = First element to highlight :
125; BX = Last element to highlight :
126; :
127; COM_HCBIDL = First element help ID :
128; COM_HCBIDH = Last element help ID :
129; COM_HCBID = Set to desired help ID for all selections:
130; and set COM_HCBIDL and COM_HCBIDH to 0. :
131; :
132; COM_SCROPT = Set scroll option for multiple :
133; selections. COM_HCBID and COM_CURPUPF :
134; must be initialized before entry. :
135; :
136; Exit: COM_MOK 0= Mouse input :
137; 1= Keyboard input :
138; COM_KEY = Keystroke (keyboard or mouse value) :
139; COM_ROW = Row of mouse pointer (text coordinates) :
140; COM_COL = Column of mouse pointer (text coord) :
141; COM_POSITION = Line number of scroll bar element :
142; COM_CURRF = Current mouse field ID :
143; COM_DELTA = Scroll bar delta from current top :
144; element displayed in panel :
145; COM_HCBID = Current help equate :
146; :
147; :
148; Notes: None. :
149; :
150; Entry point: PROCESS_SCROLL :
151; :
152; Internal references: PCTRACK_CALL :
153; PCINPUT_CALL :
154; :
155; External references: None. :
156; :
157;-----------------------------------------------------------------------------+
158;
159PROCESS_SCROLL PROC FAR
160;
161 PUSH AX ;save registers
162 PUSH BX
163 PUSH CX
164 PUSH DX
165 PUSH DI
166 PUSH ES
167 PUSH SI
168 PUSH DS
169;
170; initialize first highlighted field
171;
172 MOV COM_HLPTEMP,0 ;set to unique scroll help
173;
174 CMP COM_HCBIDL,0 ;check if unique scroll item
175 JNE SI04 ; help option active
176;
177 CMP COM_HCBIDH,0
178 JNE SI04
179;
180 PUSH COM_HCBID ;set help ID
181 POP COM_HLPTEMP
182;
183SI04: MOV COM_FLDT,2 ;scroll field type
184;
185 MOV CX,BX ;calulate number of entries
186 SUB CX,AX ; in list
187 XOR CH,CH ;clear to zero
188 ADD CL,'1' ;adjust for string value
189 MOV COM_CNT,CX ;save value
190;
191 CMP COM_SCROPT,1 ;when using this option make
192 JNE SI05 ; sure starting help ID initializd
193 ; to COM_HCBID and the current
194 ; field to highlight COM_CURPUPF
195;
196 MOV DX,AX ;get first field
197 MOV AX,COM_CURPUPF ;make new mouse field the current
198 MOV COM_LASTF,AX ; field
199 JMP SI07
200;
201SI05: MOV CX,COM_HCBIDL ;initialize starting help ID
202 MOV COM_HCBID,CX
203;
204 MOV COM_CURPUPF,AX ;make new mouse field the current
205 MOV COM_LASTF,AX ; field
206 MOV DX,AX ;get first field
207;
208SI07: MOV CX,BX ;get last field
209 CALL FAR PTR LOC_MOUSEF ;get actual mouse field number
210 CALL FAR PTR MOUSE_OFF
211 CALL FAR PTR MOUSE_HIGH ;highlight mouse field
212 CALL FAR PTR MOUSE_ON
213;
214; Poll for keyboard or mouse input
215;
216SI10: CMP COM_HLPTEMP,0 ;check if single help ID selection
217 JE SI11 ; active
218;
219 MOV AX,COM_HLPTEMP ;set single help ID for all scroll
220 MOV COM_HCBID,AX ; selections
221;
222SI11: MOV AX,0 ;turn monocasing off
223 CALL FAR PTR PROCESS_KEY ;get keystroke
224
225 MOV BX,COM_KEY ;get keystroke
226;
227; Exit if mouse action
228;
229SI12: CMP COM_MOK,1 ;check if keyboard input
230 JE SI15
231;
232 CMP BX,ES:[DI]+KY_ENTER ;check if Enter pressed
233 JNE SI13
234;
235 CMP COM_SCROPT,1 ;is this the multiple select opt?
236 JE SI13 ;yes, jump out of procedure
237;
238 MOV AX,COM_CURPUPF ;get current highlighted field
239 CALL FAR PTR GET_MOUSEF ;get mouse structure
240;
241 MOV AX,ES:[DI]+MS_KEYS ;keystroke assigned to field
242 MOV COM_KEY,AX
243 MOV COM_MOK,0 ;set for keystroke input
244;
245SI13: JMP SIEXIT ;mouse action exit
246;
247; Process down arrow key
248;
249SI15: CMP BX,ES:[DI]+KY_DARROW ;check if up arrow pressed
250 JNE SI30
251;
252 CMP COM_CURPUPF,CX ;check if below last field
253 JAE SI20
254;
255 INC COM_HCBID ;point to next help equate
256 INC COM_CURPUPF ;no, point to next field
257 JMP SI45 ;now change highlight
258;
259SI20: PUSH COM_HCBIDL ;initialize help to first field
260 POP COM_HCBID
261 MOV COM_CURPUPF,DX ;yes, point to first field
262 JMP SI45 ;now change highlight
263;
264; process up arrow key
265;
266SI30: CMP BX,ES:[DI]+KY_UARROW ;check if up arrow pressed
267 JNE SI50
268;
269 CMP COM_CURPUPF,DX ;check if above first field
270 JBE SI40
271;
272 DEC COM_HCBID ;point to next help equate
273 DEC COM_CURPUPF ;no, point to previous field
274 JMP SI45
275;
276SI40: PUSH COM_HCBIDH ;initialize help to last field
277 POP COM_HCBID
278 MOV COM_CURPUPF,CX ;yes, point to last field
279;
280; Remove last field highlight and display new highlight
281;
282SI45: CALL FAR PTR MOUSE_OFF ;turn mouse pointer off
283;
284 MOV AX,COM_LASTF ;unhighlight last mouse field
285 CALL FAR PTR LOC_MOUSEF ;get actual field number
286 CALL FAR PTR MOUSE_UNHIGH
287;
288 MOV AX,COM_CURPUPF ;highlight current mouse field
289 CALL FAR PTR LOC_MOUSEF ;get actual field number
290 CALL FAR PTR MOUSE_HIGH
291;
292 CALL FAR PTR MOUSE_ON ;turn mouse pointer on
293;
294 MOV AX,COM_CURPUPF ;set last field as current
295 MOV COM_LASTF,AX
296 JMP SI10 ;poll for next keystroke
297;
298; Process Enter key
299;
300SI50: CMP BX,ES:[DI]+KY_ENTER ;check if Enter pressed
301 JNE SI60
302;
303 CMP COM_SCROPT,1 ;is this the multiple select opt?
304 JE SIEXIT ;yes, jump out of procedure
305;
306 MOV AX,COM_CURPUPF ;get current highlighted field
307 CALL FAR PTR GET_MOUSEF ;get mouse structure
308;
309 MOV AX,ES:[DI]+MS_KEYS ;keystroke assigned to field
310 MOV COM_KEY,AX
311 MOV COM_MOK,0 ;set for keystroke input
312 JMP SIEXIT ;exit process_scroll
313;
314; if escape key, exit
315;
316SI60: CMP BX,ES:[DI]+KY_CANCEL ;check if Escape pressed
317 JNE SI70
318;
319 JMP SIEXIT
320;
321; if not multiple select, exit on number
322;
323SI70: CMP COM_SCROPT,1 ;is this the multiple select opt?
324 JE SI90 ;yes, jump to check space bar
325;
326 CMP BX,'1' ;compare to a one
327 JB SI80
328;
329 CMP BX,COM_CNT ;compare to number of entries
330 JBE SIEXIT
331;
332SI80: JMP SI100 ;poll for next keystroke
333;
334; multiple select, exit on spacebar
335;
336SI90: CMP BX,ES:[DI]+KY_SELECT ;was this the space bar?
337 JE SIEXIT ;yes, exit routine
338;
339SI100: CALL FAR PTR PCMBEEP_CALL ;beep on unknown keystroke P*3940
340 JMP SI10 ;poll for next keystroke
341;
342; Unhighlight field before exit
343;
344SIEXIT: CALL FAR PTR MOUSE_OFF ;turn mouse pointer off
345 MOV AX,COM_CURPUPF ;get last field
346;
347 CALL FAR PTR LOC_MOUSEF
348 CALL FAR PTR MOUSE_UNHIGH ;unhighlight field before exit
349 CALL FAR PTR MOUSE_ON ;turn mouse point on
350;
351 MOV COM_FLDT,0 ;no field type
352;
353 POP DS ;restore registers
354 POP SI
355 POP ES
356 POP DI
357 POP DX
358 POP CX
359 POP BX
360 POP AX
361;
362 RET
363PROCESS_SCROLL ENDP
364;
365PAGE
366;-----------------------------------------------------------------------------+
367; :
368; Name: PROCESS_INPUT :
369; :
370; Description: Display input field contents relative to location of :
371; associated panel and optionally process keystroke :
372; before returning. :
373; :
374; Entry: COM_ICBID = Input field ID to process. :
375; COM_HCBID = Help ID assigned to input field. :
376; COM_INOPT 0= Display data entry :
377; 1= Do not display data entry (Password) :
378; :
379; Exit: ES:DI = Address of input field data :
380; CX = Length of data :
381; AX = Return key :
382; :
383; COM_MOK 0= Mouse input :
384; 1= Keyboard input :
385; COM_KEY = Keystroke (keyboard or mouse value) :
386; COM_ROW = Row of mouse pointer (text coordinates) :
387; COM_COL = Column of mouse pointer (text coord) :
388; COM_CURRF = Current mouse field ID :
389; COM_DELTA = Scroll bar delta from current top :
390; element displayed in panel :
391; :
392; :
393; Entry point: PROCESS_INPUT :
394; :
395; Notes: None. :
396; :
397; Internal references: GET_ICB = Get specified input control block. :
398; :
399; PCINPUT_CALL = Call to external CAS routine. :
400; :
401; External references: None. :
402; :
403;-----------------------------------------------------------------------------+
404;
405PROCESS_INPUT PROC FAR
406;
407 PUSH BX
408 PUSH DX
409;
410; initialize
411;
412 MOV COM_FLDT,1 ;input field
413;
414 MOV IN_CURNOR,0607H ;non-mono cursor size
415;
416 CMP GV_VIDMODE,7 ;check if mono mode
417 JNE PH03
418;
419 MOV IN_CURNOR,0C0DH ;mono cursor size
420;
421; remove mouse pointer
422;
423PH03: CALL FAR PTR MOUSE_OFF ;turn mouse pointer off
424;
425; locate specified input control block
426;
427 MOV AX,COM_ICBID ;get PCINPUT field
428 MOV IN_ICBID,AX
429 CALL FAR PTR GET_ICB ;ES:DI points to ICB
430;
431; initialize, display and exit field
432;
433 AND ES:[DI]+ICB_OPT1,NOT ICB_PSW
434 ;deactivate password option
435 CMP COM_INOPT,0 ;check if password option is on
436 JE PH04
437;
438 OR ES:[DI]+ICB_OPT1,ICB_PSW ;activate password option
439;
440PH04: AND ES:[DI]+ICB_STATUS,NOT ICB_DONE
441 AND ES:[DI]+ICB_STATUS,NOT ICB_SINS
442;
443 MOV ES:[DI]+ICB_CURCHAR,1
444;
445PH05: OR ES:[DI]+ICB_OPT4,ICB_INIT
446 AND ES:[DI]+ICB_OPT3,NOT ICB_KEY
447 CALL FAR PTR PCINPUT_CALL ;initialize field
448 AND ES:[DI]+ICB_OPT4,NOT ICB_INIT
449 OR ES:[DI]+ICB_OPT3,ICB_KEY
450 ;remove initialization option
451;
452; Process field
453;
454PH06: XOR AX,AX
455 OR ES:[DI]+ICB_OPT3,ICB_KEY
456 AND ES:[DI]+ICB_OPT4,NOT ICB_INIT
457 TEST ES:[DI]+ICB_OPT2,ICB_UPC ;check if monocasing option active
458 JE PH07
459;
460 MOV AX,0000000000000001B ;set monocasing option on
461;
462PH07: TEST IN_OPT,IN_UTRAN ;check if translation option actv
463 JE PH10
464;
465 MOV AX,0000000000000010B ;set translation option on
466;
467; display mouse pointer
468;
469PH10: CALL FAR PTR MOUSE_ON ;turn mouse pointer on
470;
471; Poll keyboard and mouse
472;
473 CALL FAR PTR PROCESS_KEY
474 MOV AX,COM_KEY ;get keystroke
475;
476 CMP COM_MOK, 0 ;mouse field?
477 JNE PH12 ;no, continue
478 CMP COM_RSTFLD, 0 ;restrict mouse field?
479 JE PH12 ;no, continue
480 CMP AH, 0 ;extended char?
481 JE PH12 ;no, continue
482 CMP AL,0 ;unrestricted extended char?
483 JE PH12 ;yes, continue
484 CMP AL, COM_RSTFLD ;mouse field in current set?
485 JNE PH11 ;no, return new field index
486 XOR AL, AL ;clear ID byte
487comment |
488 cmp ah, rtarrow ;
489 jne ph1005 ;
490 mov es,in_icbseg ;
491 mov di,in_icboff ;
492 inc es:[di]+icb_hrstart ;
493 INC ES:[DI]+ICB_CURCHAR ;
494 AND ES:[DI]+ICB_OPT3,NOT ICB_KEY
495 OR ES:[DI]+ICB_OPT4,ICB_INIT
496 jmp ph12 ;
497ph1005: cmp ah, lfarrow ;
498 jne ph12 ;
499 mov es,in_icbseg ;
500 mov di,in_icboff ;
501 dec es:[di]+icb_hrstart ;
502 DEC ES:[DI]+ICB_CURCHAR ;
503 AND ES:[DI]+ICB_OPT3,NOT ICB_KEY
504 OR ES:[DI]+ICB_OPT4,ICB_INIT
505 |
506 JMP PH12 ;continue
507PH11: XOR AH, AH ;clear keystroke byte
508;
509PH12: MOV COM_KEY, AX ;update keystroke
510 CALL FAR PTR MOUSE_OFF ;
511;
512; Pass keystroke to input field for processing
513;
514PH50: MOV ES,IN_ICBSEG ;point to current ICB
515 MOV DI,IN_ICBOFF
516 MOV ES:[DI]+ICB_KS,AX ;set keystroke to ICB
517;
518 CALL FAR PTR PCINPUT_CALL ;process input field
519;
520 MOV ES,IN_ICBSEG ;point to current ICB
521 MOV DI,IN_ICBOFF
522;
523 MOV AX,ES:[DI]+ICB_KS ;return keystroke
524;
525 TEST ES:[DI]+ICB_STATUS,ICB_DONE
526 jne ph51
527 jmp PH06 ;check for exit condition
528;
529ph51: CALL FAR PTR MOUSE_ON ;turn mouse pointer on
530 CALL FAR PTR CURSOROFF ;turn hardware cursor off
531 MOV COM_FLDT,0 ;no field type
532 MOV COM_INOPT,0 ;no password option
533;
534 MOV DX,ES:[DI]+ICB_OPT4 ;get option word 4
535;
536 PUSH ES:[DI]+ICB_ENDBYTE ;return length of data
537 PUSH ES:[DI]+ICB_FIELDOFF ;return offset of data
538 PUSH ES:[DI]+ICB_FIELDSEG ;return segment of data
539;
540 POP ES
541 POP DI
542 POP CX
543;
544 TEST DX,ICB_TRUN ;field is DOS pathname?
545 JZ PH60 ;no, continue
546;
547 MOV SI,DI ;save string offset
548 ADD DI,CX ;get end of string offset
549 MOV BYTE PTR ES:[DI],0 ;null-terminate pathname
550 MOV DI,SI ;restore string offset
551;
552 CALL TRUNC_NAME ;truncate DOS names & extensions
553 PUSH ES ;MJK005
554 PUSH DI ;MJK005
555 MOV ES,IN_ICBSEG ;point to current ICB ;MJK005
556 MOV DI,IN_ICBOFF ;MJK005
557 MOV ES:[DI]+ICB_ENDBYTE,CX ;return length of data ;MJK005
558 POP DI ;MJK005
559 POP ES ;MJK005
560;
561PH60: POP DX
562 POP BX
563;
564 RET
565PROCESS_INPUT ENDP
566;
567PAGE
568;-----------------------------------------------------------------------------+
569; :
570; Name: PROCESS_KEY :
571; :
572; Description: Poll keyboard then mouse return only if action :
573; occurs. :
574; :
575; Entry: AX 0000000000000001 = Monocasing :
576; 0000000000000010 = Translation table :
577; :
578; COM_HLPOPT = set to 10 to deactivate help :
579; COM_HCBID = Help ID assigned to input field. :
580; :
581; Exit: COM_MOK 0= Mouse input :
582; 1= Keyboard input :
583; COM_KEY = Keystroke (keyboard or mouse value) :
584; COM_ROW = Row of mouse pointer (text coordinates) :
585; COM_COL = Column of mouse pointer (text coord) :
586; COM_CURRF = Current mouse field ID :
587; COM_DELTA = Scroll bar delta from current top :
588; element displayed in panel :
589; :
590; COM_FLDT 0= no field used to determine if :
591; 1= input field cursor should be displayed :
592; 2= scroll field :
593; :
594; Entry point: PROCESS_KEY :
595; :
596; Notes: None. :
597; :
598; Internal references: PCTRACK_CALL = Call to external CAS routine. :
599; PCINPUT_CALL = Call to external CAS routine. :
600; :
601; External references: None. :
602; :
603;-----------------------------------------------------------------------------+
604;
605PROCESS_KEY PROC FAR
606;
607 PUSH AX ;save registers
608 PUSH BX
609 PUSH CX
610 PUSH DX
611;
612 MOV INC_KS,0 ;initialize to no keystroke
613 MOV INC_OPT,0
614;
615 TEST AX,0000000000000001B ;check if monocasing
616 JE PK05
617;
618 OR INC_OPT,INC_AMONO ;initialize to monocasing
619 CMP IN_MONOSEG,0 ;monocasing table gotten? P5197
620 JNE PK02 ;yes, don't get again P5197
621 CALL GET_MONO_DOS ;get DOS monocasing table P5197
622PK02: ; P5197
623 MOV BX,IN_MONOOFF ;get from PCINPUT control block
624 MOV INC_MONOOFF,BX ;set in PCINCHA control block
625 MOV BX,IN_MONOSEG ;get from PCINPUT control block
626 MOV INC_MONOSEG,BX ;set in PCINCHA control block
627;
628PK05: TEST AX,0000000000000010B ;check if translation table
629 JE PK10
630;
631 OR INC_OPT,INC_UTRAN ;initialize for translation table
632;
633; Poll keyboard for input
634;
635PK10: MOV KS_CHAR,0 ;clear out P*4663
636 TEST COM_PROCFLAG,COM_KPLOCK ;keyboard locked? P*4457
637 JZ PK17 ;no, get keystroke P*4457
638 IN AL,64H ;get keyboard lock bit P*4457
639 TEST AL,10H ;is keyboard locked? P*4457
640 JNZ PK15 ;OK, keyboard not locked P*4457
641 JMP PK40 ;check time/date P*4457
642PK15:
643 CALL INIT_MOUSE ;initialize mouse P*4457
644 CALL MOUSE_ON ;turn on mouse P*4457
645PK17: ; P*4457
646
647
648 MOV AH,1 ;keystroke status MJK013
649 TEST COM_PROCFLAG,COM_EXTKEYB ;extended keyboard? P*4732
650 JZ PK17_05 ;no, get normal keystroke P*4732
651 MOV AH,11H ;get extended keystroke P*4732
652PK17_05: ; P*4732
653 INT 16H ;is there any keystrokes? MJK013
654 JZ PK17_10 ;don't save keystroke P*4663
655 MOV KS_CHAR,AX ;save the keystroke MJK013
656PK17_10: ; P*4663
657;
658 CALL PCINCHA_CALL ;call CAS routine
659;
660 CMP INC_KS,0 ;check if keystroke returned
661 JE PK20 ;yes, pass to input field
662;
663 CMP INC_KS, 0003H ;ctrl/c or ctrl/break? P*4663
664 JNE PK18 ;no, continue P*4663
665 MOV AX, KS_CHAR ;get status keystroke P*4663
666 CMP AL, 03H ;same ASCII character? P*4663
667 JE PK19 ;yes, must be ctrl/c P*4663
668 MOV INC_KS, 0 ;ignore ctrl/break P*4663
669 JMP PK40 ;continue P*4663
670PK18: ; p*4663
671
672 CMP INC_KS, 6800H ;keystroke is alt-f1?
673
674 JNE PK19 ;no, continue
675 MOV INC_KS, 8500H ;translate to f11
676;
677PK19: CALL CHK_OVERRUN ;check for overrun keystrokes
678;
679 MOV COM_MOK,1 ;set to indicate keyboard
680 XOR AX,AX ;clear to zero
681 MOV COM_ROW,AX ; pointer row
682 MOV COM_COL,AX ; pointer column
683 MOV COM_DELTA,AX ; scroll bar delta
684 MOV AX,INC_KS ;set keystroke from keyboard
685 MOV COM_KEY,AX
686;
687 MOV AX,COM_CURRF ;sav field ID before help process
688 MOV COM_HELPF,AX
689;
690 JMP PK30
691;
692; Poll mouse for action
693;
694PK20: TEST COM_STATE,COM_MOUS ;check if mouse configured
695 JNE PK22 ; do call if no
696 JMP PK40 ; skip call if yes
697;
698PK22: LEA DI,GEN_DATA ;check mouse for button press
699 MOV [DI]+M_FUNC,M_GET
700 CALL FAR PTR PCTRACK_CALL
701;
702 XOR CH,CH ;clear to zero
703 XOR DH,DH ;clear to zero
704 MOV CL,[DI]+M_GETBUT ;get button pressed
705 MOV DL,[DI]+M_GETFIELD ;get field of current pointer
706;
707 CMP CL, 2 ;process keystroke
708 JNE PK24X
709;
710 TEST COM_STATE2,COM_ENHA
711 JZ PK24X
712;
713 MOV COM_BUT2,1
714 MOV CL, 1
715 JMP PK24
716;
717PK24X: MOV COM_BUT2,0
718 CMP CL,1 ;mouse configuration
719 JE PK24 ; 0= no button pressed
720;
721 CMP CL,4 ; 1= button 1 pressed
722 JE PK24 ; 2= button 2 pressed
723 ; 3= button 3 pressed
724 ; 4= double click button 1
725 JMP PK40
726;
727PK24: OR DL,DL ;check if pointer in active field
728 JNZ PK26 ; when button pressed, if not
729 JMP PK40 ; poll again
730;
731PK26: CMP GE_MODEL,MODEL_AT ;check if AT
732 JNE PK29
733;
734 CMP GE_SUBMODEL,SUBMD_AT ;make sure AT
735 JE PK28
736;
737 CMP GE_SUBMODEL,SUBMD_AS ;make sure AT/skyrocket
738 JNE PK29
739;
740PK28: CALL KEYLOCK ;check if keyboard on AT is
741 JNZ PK29
742;
743 JMP PK40 ; locked, poll again
744;
745PK29: MOV COM_MOK,0 ;set to indicate mouse
746 MOV AX,COM_CURRF ;sav field ID before help process
747 MOV COM_HELPF,AX
748 MOV COM_CURRF,DX ;set current field number
749 MOV AX,[DI]+M_GETROW ;get mouse pointer row where
750 MOV COM_ROW,AX ; button was pressed
751 MOV AX,[DI]+M_GETCOL ;get mouse pointer column where
752 MOV COM_COL,AX ; button was pressed
753 MOV AX,[DI]+M_GETFKEY ;get keystroke assigned to field
754 MOV COM_KEY,AX
755;
756 MOV AX,[DI]+M_GETDELTA ;scroll delta (if in sb field)
757 MOV COM_DELTA,AX
758 XOR CX,CX
759 MOV AX,[DI]+M_GETSPOS ;text row/col position in bar
760 MOV COM_POSITION,AX
761;
762; Check for help option before exit
763;
764PK30: CMP COM_HLPOPT,10 ;check if help deactivated
765 JE PKEXIT ;exit
766;
767 MOV AX,STR_TOTAL ;get keystroke structure
768 CALL FAR PTR GET_STRING ;structure at ES:DI
769;
770 MOV AX,COM_KEY ;get keystroke
771 CMP AX,ES:[DI]+KY_CHELP
772 JNE PKEXIT
773;
774 CALL FAR PTR CURSOROFF ;turn hardware cursor off
775 PUSH COM_HELPF ;save field ID before help process
776 CALL MANAGE_HELP ;process all types of help
777 POP COM_CURRF ;reset original field ID before hl
778;
779 CMP COM_FLDT,1 ;redisplay cursor if input field
780 JNE PK40
781;
782 CALL FAR PTR CURSORON ;turn hardware cursor on
783;
784; Check if date and time should be updated.
785;
786PK40: CALL DISP_DATETIME ;update date/time
787 JMP PK10
788;
789; Exit
790;
791PKEXIT: PUSH ES
792 PUSH DI
793 MOV AX, 40H
794 MOV ES, AX
795 MOV BX, 17H
796 MOV AL, ES:[BX]
797 XOR AH, AH
798 MOV COM_SHIFT, AX
799 POP DI
800 POP ES
801;
802 POP DX ;exit
803 POP CX
804 POP BX
805 POP AX
806;
807 RET
808PROCESS_KEY ENDP
809;
810PAGE
811;-----------------------------------------------------------------------------+
812; P5197 :
813; GET_MONO_DOS :
814; Get segment and offset of the DOS monocasing table and return it :
815; :
816; Entry: None :
817; :
818; Exit: None :
819; P5197 :
820;-----------------------------------------------------------------------------+
821GET_MONO_DOS PROC NEAR
822;
823 PUSH ES ; P5197
824 PUSH DI ; P5197
825 PUSH AX ; P5197
826;
827 MOV AH,65H ;extended country info P5197
828 MOV AL,04H ;get uppercase table ptrs P5197
829 MOV BX,-1 ;default code page P5197
830 MOV DX,-1 ;default country id P5197
831 MOV CX,05H ;# bytes returned P5197
832 PUSH DS
833 POP ES ;ES:DI ptrs to return buf P5197
834 MOV DI,OFFSET TEMP_WKA ;use as temp buffer P5197
835 INT 21H
836 JC GET_MONO_RET
837;
838 INC DI ;skip info id P5197
839;
840 MOV AX,WORD PTR [DI] ;get DOS mono table offset P5197
841 MOV IN_MONOOFF,AX ;save it P5197
842 ADD DI,2
843 MOV AX,WORD PTR [DI] ;get DOS mono table seg P5197
844 MOV IN_MONOSEG,AX ;save it P5197
845;
846GET_MONO_RET:
847 POP AX ; P5197
848 POP DI ;restore registers P5197
849 POP ES ; P5197
850;
851 RET ; P5197
852GET_MONO_DOS ENDP
853;
854PAGE
855;-----------------------------------------------------------------------------+
856; :
857; Name: CHK_OVERRUN :
858; :
859; Description: Check for multiple entries of cursor keys to :
860; eliminate overrun in typeamatic mode. :
861; :
862; Entry: INC_KS = Key stroke :
863; :
864; Exit: INC_KS = Returned keystroke :
865; :
866; Entry point: CHK_OVERRUN :
867; :
868; Notes: Duplicate cursor keystrokes are removed. :
869; :
870; Internal references: PCINCHA_CALL = Call to external CAS routine. :
871; :
872; External references: None. :
873; :
874;-----------------------------------------------------------------------------+
875;
876CHK_OVERRUN PROC NEAR
877;
878 PUSH CX
879 PUSH DI
880 PUSH ES
881;
882 MOV CX,KS_TABLE_LEN ;len of cursor keystroke table
883 ROR CX,1 ;set number of entries
884 MOV AX,DS ;get segment of table
885 MOV ES,AX ;set segment of table
886 MOV DI,OFFSET KS_TABLE ;offset of table
887 MOV AX,INC_KS ;current keystroke
888 CLD
889 REPNZ SCASW ;scan table for keystroke match
890 JNZ CHK_OVRET ;no match found
891;
892CHK_OV10: MOV AH,1 ;keystroke status
893 TEST COM_PROCFLAG,COM_EXTKEYB ;extended keyboard? P*4732
894 JZ CHK_OV20 ;no, get normal keystroke P*4732
895 MOV AH,11H ;get extended keystroke P*4732
896CHK_OV20: ; P*4732
897 INT 16H ;check for next keystroke
898 JZ CHK_OVRET ;no, keystroke available
899;
900 CMP AX,KS_CHAR ;is it the same as before MJK013
901 JNE CHK_OVRET ;no, return
902;
903 MOV AH,0 ;keystroke read
904 TEST COM_PROCFLAG,COM_EXTKEYB ;extended keyboard? P*4732
905 JZ CHK_OV30 ;no, get normal keystroke P*4732
906 MOV AH,10H ;get extended keystroke P*4732
907CHK_OV30: ; P*4732
908 INT 16H ;remove it
909 JMP CHK_OV10 ;check next keystroke
910;
911CHK_OVRET: POP ES
912 POP DI
913 POP CX
914;
915 RET
916CHK_OVERRUN ENDP
917;
918PAGE
919;-----------------------------------------------------------------------------+
920; :
921; Name: DISP_DATETIME :
922; :
923; Description: display the date and time on the display. :
924; :
925; Entry: COM_STATE2: :
926; COM_DATE = O - no date displayed :
927; 1 - display date and time :
928; :
929; Exit: Display updated :
930; :
931; Entry point: DISP_DATETIME :
932; :
933; Notes: None. :
934; :
935; Internal references: UPDATE_DISPLAY :
936; MOUSE_OFF :
937; MOUSE_ON :
938; :
939; External references: PCDATES_CALL = Call to external CAS routine. :
940; PCTIMES_CALL = Call to external CAS routine. :
941; :
942;-----------------------------------------------------------------------------+
943;
944DISP_DATETIME PROC NEAR
945;
946 PUSH AX ;save registers
947 PUSH BX
948 PUSH CX
949 PUSH DX
950 PUSH SI
951 PUSH DI
952 PUSH ES
953;
954 TEST COM_STATE2,COM_DATE ;is the date option active?
955 JNZ DT_02 ;yes, continue
956 JMP DT_RET ;return
957;
958; Set up to get the date and time.
959;
960DT_02: MOV DI,OFFSET TIME_WKA ;time workarea
961 MOV BX,DS:[DI+4] ;save currect seconds
962;
963 CALL PCDATES_CALL ;get date
964;
965 CALL PCTIMES_CALL ;get time
966;
967 TEST COM_PROCFLAG,COM_NODATE ;should date not be displayed?
968 JNZ DT_RET ;yes, return
969;
970 TEST COM_PROCFLAG,COM_PSCEXEC ;has PSC ended execution?
971 JZ DT_05 ;no, continue
972;
973 AND COM_PROCFLAG,NOT COM_PSCEXEC ;reset PSC ended execution
974 JMP DT_20 ;display time/date
975
976DT_05: MOV AX,COM_BASESCR ;get base screen
977 CMP AX,COM_BASE_WKA ;has it changed?
978 JE DT_10 ;no, see if time has changed
979;
980 MOV COM_BASE_WKA,AX ;save new base screen
981 JMP DT_20 ;continue
982;
983DT_10: CMP BX,DS:[DI+4] ;has the time minutes changed?
984 JE DT_RET ;no, don't update it
985;
986DT_20: MOV SI,PAN_ATITLE ;get panel id for moveg
987 MOV AX,1 ;row to display
988 MOV BX,3 ;column to display
989 MOV CX,LENGTH DATE_WKA ;len of date
990 MOV DX,OFFSET DATE_WKA
991 PUSH DS
992 POP ES
993;
994 CALL FAR PTR MOUSE_OFF ;turn mouse off
995;
996 PUSH AX ;
997 MOV AX, PAN_ATITLE ;set panel id
998 CALL FAR PTR GET_ATTR ;get color attr
999 AND AH, 0F0H ;mask off foreground
1000 CMP AH, 0F0H ;background is white?
1001 POP AX ;
1002 JNE DT_28 ;no, continue
1003 MOV MG_SOURCE_F,G_DRAWTUBOTM ;underline P*4816
1004DT_28:
1005
1006; CMP GV_VIDMODE,11H ;mode 11? P*4816
1007; JNE DT_30 ;no, don't underline P*4816
1008; MOV MG_SOURCE_F,G_DRAWTUBOTM ;underline P*4816
1009
1010
1011DT_30: ; P*4816
1012 CALL UPDATE_DISPLAY ;display date
1013;
1014 MOV BX,69 ;column to display
1015 MOV CX,LENGTH TIME_WKA ;len of time
1016 MOV DX,OFFSET TIME_WKA
1017;
1018 PUSH AX ;
1019 MOV AX, PAN_ATITLE ;set panel id
1020 CALL FAR PTR GET_ATTR ;get color attr
1021 AND AH, 0F0H ;mask off foreground
1022 CMP AH, 0F0H ;background is white?
1023 POP AX ;
1024 JNE DT_38 ;no, continue
1025 MOV MG_SOURCE_F,G_DRAWTUBOTM ;underline P*4816
1026DT_38:
1027
1028
1029; CMP GV_VIDMODE,11H ;mode 11? P*4816
1030; JNE DT_40 ;no, don't underline P*4816
1031; MOV MG_SOURCE_F,G_DRAWTUBOTM ;underline P*4816
1032DT_40: ; P*4816
1033 CALL UPDATE_DISPLAY ;display time
1034;
1035 CALL FAR PTR MOUSE_ON ;turn mouse on
1036;
1037DT_RET: POP ES ;restore registers
1038 POP DI
1039 POP SI
1040 POP DX
1041 POP CX
1042 POP BX
1043 POP AX
1044;
1045 RET
1046DISP_DATETIME ENDP
1047;
1048PAGE
1049;-----------------------------------------------------------------------------+
1050; :
1051; Name: KEYLOCK :
1052; :
1053; Description: Determine if AT keyboard lock is on. :
1054; :
1055; Entry: None. :
1056; :
1057; Exit: ZF = 1 : keyboard is locked :
1058; ZF = 0 : keyboard is unlocked :
1059; :
1060; Entry point: KEYLOCK :
1061; :
1062; Notes: None. :
1063; :
1064; Internal references: None. :
1065; :
1066; External references: None. :
1067; :
1068;-----------------------------------------------------------------------------+
1069;
1070KEYLOCK PROC NEAR
1071;
1072 PUSH BX
1073 PUSH CX
1074;
1075 CLI ;disable ints while checking kybd
1076 MOV AL,READ_KBD_INPT ;get kybd read input command
1077 OUT STATUS_PORT,AL ;issue the command
1078 SUB CX,CX ;cls controller count cmd issue
1079;
1080KEYLOCK10: IN AL,STATUS_PORT
1081 TEST AL,INPT_BUF_FULL
1082 LOOPNZ KEYLOCK10 ;wait for command to be accepted
1083 JNZ KEYLOCK50 ;exit if command not accepted
1084;
1085 SUB CX,CX
1086 MOV BL,6
1087;
1088KEYLOCK20: IN AL,STATUS_PORT
1089 TEST AL,OUTPT_BUF_FULL
1090 JNZ KEYLOCK30 ;branch if OBF
1091;
1092 LOOP KEYLOCK20 ;loop until response or timeout
1093 DEC BL ;timeout loop attempted six times
1094 JNZ KEYLOCK20
1095;
1096 INC BL ;set ZF = 0 if no response
1097 JMP KEYLOCK50
1098;
1099KEYLOCK30: IN AL,INPUT_PORT ;read keyboard input port
1100 TEST AL,KYBD_INH ;test to see if kybd lock is on
1101;
1102KEYLOCK50:
1103;
1104KEYLOCK60: STI ;enable ints
1105 POP CX ;restore regs
1106 POP BX
1107;
1108 RET ;Exit
1109KEYLOCK ENDP
1110;
1111PAGE
1112;-----------------------------------------------------------------------------+
1113; :
1114; Name: COMMAND_LINE :
1115; :
1116; Description: Command line dialog. :
1117; :
1118; Entry: COM_OLDCBKOFF = offset of original crtl+break :
1119; COM_OLDCBKSEG = segment of original crtl+break :
1120; COM_CMDBUF = required to invoke COMMAND.COM :
1121; COM_CMDINPBUF = command line input buffer :
1122; COM_CMDINPLEN = length of command line input buf :
1123; COM_CMDBUFLEN = length including '/C' :
1124; COM_CMDDRIVE = current drive and path to display :
1125; COM_CMDPATH for command line input prompt :
1126; KY_COMDLINE = command line Shift + F9 :
1127; KY_LASTCOMD = last command up arrow :
1128; KY_NEXTCOMD = next command dn arrow :
1129; Exit: :
1130; :
1131; Entry point: COMMAND_LINE :
1132; :
1133; Notes: Changed procedure to use a COMMAND.COM PSC execution. :
1134; :
1135; Internal references: PCTRACK_CALL :
1136; :
1137; External references: INT 21H AH=40H Write string to standard output. :
1138; INT 21H AH=25H Set interrupt vector address. :
1139; INT 21H AH=35H Get interrupt vector address. :
1140; INT 21H AH=49H Deallocate memory. :
1141; INT 21H AH=47H Read current directory. :
1142; INT 21H AH=19H Read current disk. :
1143; INT 21H AH=06H Write char to standard output. :
1144; INT 21H AH=4BH EXEC command line. :
1145; :
1146;-----------------------------------------------------------------------------+
1147;
1148COMMAND_LINE PROC FAR
1149
1150 TEST COM_STATE,COM_FLCL ;check if command line active
1151 JNE MC10
1152;
1153 CALL FAR PTR OPT_INACTIVE ;display error panel for inactive *PCR
1154 JMP MCEXIT ;exit
1155;
1156; save registers
1157;
1158MC10: CALL FAR PTR REMOVE_OLDPD ;remove last pull down panel
1159 MOV COM_CURPD,0
1160;
1161 PUSH AX
1162 PUSH BX
1163 PUSH CX
1164 PUSH DX
1165 PUSH BP
1166 PUSH SI
1167 PUSH DI
1168;
1169; disable mouse tracker
1170;
1171 CALL FAR PTR MOUSE_OFF ;turn mouse pointer off
1172 CALL FAR PTR DEL_MOUSEF ;delete all mouse fields
1173 CALL FAR PTR MOUSE_DIS ;disable mouse support
1174;
1175; Set current directory path
1176;
1177 CMP COM_CDIALOG,COM_APPMENU ;check if program menu dialog
1178 JNE MC20 ; don't ask for dir from DOS Serv
1179;
1180 JMP MC30
1181;
1182MC20: CMP COM_CDIALOG,COM_PAAB ;check if program menu dialog
1183 JE MC30 ; don't ask for dir from DOS Serv
1184;
1185 CMP COM_CDIALOG,COM_DCLR ;check if program menu dialog
1186 JE MC30 ; don't ask for dir from DOS Serv
1187;
1188 XOR AX,AX ;get current selected directory
1189 MOV AX,1 ;get current selected dir ;P*4245
1190 CALL RETURN_PATH ; in DOS services
1191;
1192 MOV BX,OFFSET FULLSPEC ;file name
1193 MOV DL,DS:BYTE PTR[BX] ;drive id
1194 CALL SET_DRIVE ;set to the drive
1195;
1196 PUSH DI
1197 MOV AH,0EH ;change to selected drive
1198 MOV DX,DATA
1199 MOV DS,DX
1200 LEA DI,FULLSPEC
1201 MOV DL,[DI]
1202 SUB DL,'A'
1203 INT 21H
1204 POP DI
1205;
1206 MOV AH,3BH ;change to selected directory
1207 MOV DX,DATA
1208 MOV DS,DX
1209 LEA DX,FULLSPEC
1210 INT 21H
1211;
1212; Move in COMSPEC to PSC workarea for new COMMAND.COM PSC execution.
1213;
1214MC30: MOV SI,OFFSET COM_PFILSPEC ;COMSPEC location
1215;
1216 mov dl, byte ptr [si] ;get drive letter of comspec
1217 call set_drive ;set logical drive
1218;
1219 MOV DI,OFFSET PEC_COM ;PSC workarea location
1220 MOV PEC_BYTE,0 ;clear length
1221;
1222MC40: MOV AL,DS:BYTE PTR [SI] ;get character
1223 CMP AL,0 ;end of string?
1224 JE MC50 ;yes, add parm sep char
1225;
1226 MOV DS:BYTE PTR [DI],AL ;put character in PSC workarea
1227 INC PEC_BYTE ;adjust length
1228 INC SI ;point to next COMSPEC char
1229 INC DI ;point to next PSC position
1230 JMP MC40 ;get next character
1231;
1232MC50: MOV DS:BYTE PTR [DI],PEC_SEP ;set parameter seperator char
1233 INC PEC_BYTE ;adjust length
1234 PUSH DS
1235 POP ES ;set segment of PSC workarea
1236 MOV DI,OFFSET PEC_TITLE ;set offset of PSC workarea
1237
1238 OR COM_PROCFLAG,COM_CMDPSC ;set COMMAND.COM PSC exec P*3748
1239 CALL FAR PTR PROCESS_PSC ;set up to process PSC
1240;
1241 POP DI ;restore registers
1242 POP SI
1243 POP BP
1244 POP DX
1245 POP CX
1246 POP BX
1247 POP AX
1248;
1249MCEXIT:
1250;
1251 RET
1252COMMAND_LINE ENDP
1253;
1254PAGE
1255;-----------------------------------------------------------------------------+
1256; :
1257; SET_DRIVE :
1258; :
1259; On a single drive system, set the logical to the physical drive. :
1260; :
1261; Entry: DL - Drive letter :
1262; :
1263; Exit: Logical drive set :
1264; :
1265; Notes: None :
1266; :
1267;-----------------------------------------------------------------------------+
1268;
1269SET_DRIVE PROC NEAR
1270
1271 PUSH BX ; P*4831
1272 PUSH DX ; P*4831
1273 PUSH AX ; P*4831
1274
1275 AND DL,0DFH ; convert it to P*4831
1276 SUB DL,40H ; an binary number. P*4831
1277 MOV BL,DL
1278 MOV AX,440FH ; I/O control P*4831
1279 INT 21H ; set logical drive letter P*4831
1280
1281 POP AX ; P*4831
1282 POP DX ; P*4831
1283 POP BX ; P*4831
1284 RET ; return to caller P*4831
1285
1286SET_DRIVE ENDP
1287;
1288PAGE
1289;-----------------------------------------------------------------------------+
1290; :
1291; Name: PCCLRRD_CALL :
1292; :
1293; Description: Call to PCCLRRD. :
1294; :
1295; Entry: PCCLRRD parameter block initialized. :
1296; :
1297; Exit: PCCLRRD parameter block initialized. :
1298; :
1299; Entry point: PCCLRRD_CALL :
1300; :
1301; Notes: None. :
1302; :
1303; Internal references: None. :
1304; :
1305; External references: None. :
1306; :
1307;-----------------------------------------------------------------------------+
1308;
1309PCCLRRD_CALL PROC NEAR ;*PCR (ENTIRE PROC)
1310;
1311 PUSH DS ;Set segment
1312 POP ES
1313;
1314 PUSH DS
1315 PUSH DI ;Save registers
1316;
1317 LEA DI,CRD_OPT1 ;Set DI to proper parameter block
1318 ; for call
1319IF CASRM
1320 MOV AH,00H ;Make call to CAS-RM
1321 MOV BX,CRD_RN ;Set cas routine number
1322 INT CASINT ;Call routine
1323ELSE
1324 CALL CLRRD
1325ENDIF
1326;
1327; copy the color index vector into buffer below clrrd buffer
1328;
1329 MOV AX,16 ;calc length of color read and
1330 MOV BX,MAX_COLRBUF ; write buffers
1331 MUL BX ;# paragraphs * 16 = # bytes
1332 SUB AX,500 ;leave room for safe buffer
1333 ADD AX,CRD_BUFOFF ;add current crd buf offset
1334 MOV DI,AX
1335 MOV SI,CRD_CCBVECOFF ;get source address
1336 MOV CRD_CCBVECOFF,DI ;set destination offset
1337;
1338 CMP CRD_ERROR,0 ;was there an error
1339 JNE CR_EXIT ;yes, don't overwrite
1340 CMP CRD_DOSERROR,0 ;was there an error
1341 JNE CR_EXIT ;yes, don't overwrite
1342;
1343 MOV ES,CRD_BUFSEG ;set destination segment
1344 MOV CX,CRD_CCBVECLEN ;get the length to move
1345 PUSH DS
1346 MOV AX,CRD_CCBVECSEG ;set source segment
1347 MOV DS,AX
1348;
1349 REP MOVSB ;move the data
1350 POP DS
1351;
1352CR_EXIT: POP DI ;Restore registers
1353 POP DS
1354;
1355 RET
1356PCCLRRD_CALL ENDP
1357;
1358PAGE
1359;-----------------------------------------------------------------------------+
1360; :
1361; Name: SET_DEFAULT :
1362; :
1363; Description: Set default value in specified ICB control block. :
1364; :
1365; Entry: ES:DI = Address of default value. :
1366; CX = Length of string. :
1367; AX = ICB number of input field. :
1368; :
1369; Exit: None. :
1370; :
1371; Entry point: None. :
1372; :
1373; Notes: None. :
1374; :
1375; Internal references: None. :
1376; :
1377; External references: None. :
1378; :
1379;-----------------------------------------------------------------------------+
1380;
1381SET_DEFAULT PROC FAR
1382;
1383 PUSH ES ;save default segment
1384 PUSH DI ;save default offset
1385;
1386 CALL FAR PTR GET_ICB ;get input control block
1387;
1388 MOV ES:[DI]+ICB_CURCHAR,1 ;reset starting cursor position
1389 MOV ES:[DI]+ICB_DEFLEN,CX ;set length
1390 POP ES:[DI]+ICB_DEFOFF ;offset
1391 POP ES:[DI]+ICB_DEFSEG ;segment
1392;
1393 RET
1394SET_DEFAULT ENDP
1395;
1396PAGE
1397;-----------------------------------------------------------------------------+
1398; :
1399; Name: GET_PCB :
1400; :
1401; Description: Return address of specified panel control block. :
1402; :
1403; Entry: AX = Number of PCB vector desired. :
1404; :
1405; COM_PCBVECSEG = PCB vector segment. :
1406; COM_PCBVECOFF = PCB vector offset. :
1407; COM_PCBVECLEN = number of bytes in each vector :
1408; :
1409; Exit: ES:DI = Address of specified PCB :
1410; :
1411; Entry point: :
1412; :
1413; Notes: None. :
1414; :
1415; Internal references: None. :
1416; :
1417; External references: None. :
1418; :
1419;-----------------------------------------------------------------------------+
1420;
1421GET_PCB PROC FAR
1422;
1423 PUSH AX
1424 PUSH BX
1425 PUSH CX
1426 PUSH DX
1427;
1428; read panel control block vector to obtain PCB address
1429;
1430 MOV BX,COM_PCBVECSEG ;get beginning PCB vector address
1431 MOV ES,BX
1432 MOV DI,COM_PCBVECOFF
1433;
1434 DEC AX ;make zero based
1435 MOV BX,COM_PCBVECLEN ;multiply PCB element length by
1436 ; desired vector number in BX
1437 MUL BX ; to determine offset into PCB vec
1438 ADD DI,AX ;add offset inside table
1439 MOV BX,ES:[DI] ;get actual PCB segment
1440 MOV CX,ES:[DI]+2 ;point past PCB seg to get PCB off
1441;
1442 MOV ES,BX ;set ES:DI to panel's actual
1443 MOV DI,CX ; PCB address
1444;
1445 POP DX
1446 POP CX
1447 POP BX
1448 POP AX
1449;
1450 RET
1451GET_PCB ENDP
1452;
1453PAGE
1454;-----------------------------------------------------------------------------+
1455; :
1456; Name: GET_SCB :
1457; :
1458; Description: Return address of specified scroll control block. :
1459; :
1460; Entry: AX = Number of SCB vector desired. :
1461; :
1462; COM_SCBVECSEG = SCB vector segment. :
1463; COM_SCBVECOFF = SCB vector offset. :
1464; COM_SCBVECLEN = number bytes in each vector :
1465; :
1466; Exit: ES:DI = Address of specified SCB :
1467; :
1468; Entry point: :
1469; :
1470; Notes: None. :
1471; :
1472; Internal references: None. :
1473; :
1474; External references: None. :
1475; :
1476;-----------------------------------------------------------------------------+
1477;
1478GET_SCB PROC NEAR
1479;
1480 PUSH AX
1481 PUSH BX
1482 PUSH CX
1483 PUSH DX
1484;
1485; read panel control block vector to obtain SCB address
1486;
1487 MOV BX,COM_SCBVECSEG ;get beginning SCB vector address
1488 MOV ES,BX
1489 MOV DI,COM_SCBVECOFF
1490;
1491 DEC AX ;make zero based
1492 MOV BX,COM_SCBVECLEN ;multiply SCB element length by
1493 ; desired vector number in BX
1494 MUL BX ; to determine offset into SCB vec
1495 ADD DI,AX ;add offset inside table
1496 MOV BX,ES:[DI] ;get actual SCB segment
1497 MOV CX,ES:[DI]+2 ;point past SCB seg to get SCB off
1498;
1499 MOV ES,BX ;set ES:DI to panel's actual
1500 MOV DI,CX ; PCB address
1501;
1502 POP DX
1503 POP CX
1504 POP BX
1505 POP AX
1506;
1507 RET
1508GET_SCB ENDP
1509;
1510PAGE
1511;-----------------------------------------------------------------------------+
1512; :
1513; Name: GET_ICB :
1514; :
1515; Description: Return address of specified input control block. :
1516; :
1517; Entry: AX = Number of ICB vector desired. :
1518; :
1519; COM_ICBVECSEG = ICB vector segment. :
1520; COM_ICBVECOFF = ICB vector offset. :
1521; COM_ICBVECLEN = vector length. :
1522; :
1523; Exit: ES:DI = Address of specified ICB :
1524; :
1525; Entry point: :
1526; :
1527; Notes: None. :
1528; :
1529; Internal references: None. :
1530; :
1531; External references: None. :
1532; :
1533;-----------------------------------------------------------------------------+
1534;
1535GET_ICB PROC FAR
1536;
1537 PUSH AX
1538 PUSH BX
1539 PUSH CX
1540 PUSH DX
1541;
1542; read input control block vector to obtain PCB address
1543;
1544 MOV BX,COM_ICBVECSEG ;get beginning ICB vector address
1545 MOV ES,BX
1546 MOV DI,COM_ICBVECOFF
1547;
1548 DEC AX ;make zero based
1549 MOV BX,COM_ICBVECLEN ;multiply ICB element length by
1550 ; desired vector number in BX
1551 MUL BX ; to determine offset into ICB vec
1552 ADD DI,AX ;add offset inside table
1553 MOV BX,ES:[DI] ;get actual ICB segment
1554 MOV CX,ES:[DI]+2 ;point past ICB seg to get ICB off
1555;
1556 MOV ES,BX ;set ES:DI to input's actual
1557 MOV DI,CX ; ICB address
1558;
1559 TEST COM_STATE,COM_TEXT ;check if in text mode
1560 JE GIEXIT
1561;
1562 AND ES:[DI]+ICB_OPT1,NOT ICB_BOX
1563 ;if in text mode deactivate box
1564 ; option
1565;
1566GIEXIT: POP DX
1567 POP CX
1568 POP BX
1569 POP AX
1570;
1571 RET
1572GET_ICB ENDP
1573;
1574PAGE
1575;-----------------------------------------------------------------------------+
1576; :
1577; Name: GET_ERROR :
1578; :
1579; Description: Return address of error message. :
1580; :
1581; Entry: AX = Number of vector desired. :
1582; :
1583; COM_ERRVECSEG = Error message vector segment. :
1584; COM_ERRVECOFF = Error message vector offset. :
1585; COM_ERRVECLEN = Length of each vector in bytes. :
1586; :
1587; Exit: ES:DI = Address of specified error message. :
1588; AX = length of error message. :
1589; :
1590; Entry point: GET_ERROR :
1591; :
1592; Notes: None. :
1593; :
1594; Internal references: None. :
1595; :
1596; External references: None. :
1597; :
1598;-----------------------------------------------------------------------------+
1599;
1600GET_ERROR PROC FAR
1601;
1602 PUSH BX
1603 PUSH CX
1604 PUSH DX
1605;
1606; read error message vector
1607;
1608 MOV BX,COM_ERRVECSEG ;get beginning vector address
1609 MOV ES,BX
1610 MOV DI,COM_ERRVECOFF
1611;
1612 DEC AX ;make zero based
1613 MOV BX,COM_ERRVECLEN ;multiply element length by
1614 ; desired vector number in BX
1615 MUL BX ; to determine offset into vector
1616 ADD DI,AX ;add offset inside table
1617 MOV CX,ES:[DI] ;get error text offset
1618 XOR AX,AX ;clear to zero
1619 MOV AL,ES:[DI]+2 ;get error text length
1620;
1621 MOV DI,CX ;set ES:DI to panel's actual
1622 ; PCB address
1623;
1624 POP DX
1625 POP CX
1626 POP BX
1627;
1628 RET
1629GET_ERROR ENDP
1630;
1631PAGE
1632;-----------------------------------------------------------------------------+
1633; :
1634; Name: GET_BUTTON :
1635; :
1636; Description: Return address of graphics button. :
1637; :
1638; Entry: AX = Number of vector desired. :
1639; :
1640; COM_BCBVECSEG = vector segment. :
1641; COM_BCBVECOFF = vector offset. :
1642; COM_BCBVECLEN = Length of each vector in bytes. :
1643; :
1644; Exit: ES:DI = Address of specified string. :
1645; :
1646; Entry point: GET_BUTTON :
1647; :
1648; Notes: None. :
1649; :
1650; Internal references: None. :
1651; :
1652; External references: None. :
1653; :
1654;-----------------------------------------------------------------------------+
1655;
1656GET_BUTTON PROC NEAR
1657;
1658 PUSH BX
1659 PUSH CX
1660 PUSH DX
1661;
1662; read keystroke vector
1663;
1664 MOV BX,COM_BCBVECSEG ;get beginning vector address
1665 MOV ES,BX
1666 MOV DI,COM_BCBVECOFF
1667;
1668 DEC AX ;make zero based
1669 MOV BX,COM_BCBVECLEN ;multiply element length by
1670 ; desired vector number in BX
1671 MUL BX ; to determine offset into vector
1672 ADD DI,AX ;add offset inside table
1673 MOV CX,ES:[DI] ;get text offset
1674 MOV DI,CX ;set ES:DI to actual data
1675;
1676 POP DX
1677 POP CX
1678 POP BX
1679;
1680 RET
1681GET_BUTTON ENDP
1682;
1683PAGE
1684;-----------------------------------------------------------------------------+
1685; :
1686; Name: GET_STRING :
1687; :
1688; Description: Return address of string. :
1689; :
1690; Entry: AX = Number of ICB vector desired. :
1691; :
1692; COM_STRVECSEG = String vector segment. :
1693; COM_STRVECOFF = String vector offset. :
1694; COM_STRVECLEN = Length of each vector in bytes. :
1695; :
1696; Exit: ES:DI = Address of specified string. :
1697; AX = length of string. :
1698; :
1699; Entry point: GET_STRING :
1700; :
1701; Notes: None. :
1702; :
1703; Internal references: None. :
1704; :
1705; External references: None. :
1706; :
1707;-----------------------------------------------------------------------------+
1708;
1709GET_STRING PROC FAR
1710;
1711 PUSH DX
1712 PUSH BX
1713 PUSH CX
1714;
1715; read error message vector
1716;
1717 MOV BX,COM_STRVECSEG ;get beginning vector address
1718 MOV ES,BX
1719 MOV DI,COM_STRVECOFF
1720;
1721 DEC AX ;make zero based
1722 MOV BX,COM_STRVECLEN ;multiply element length by
1723 ; desired vector number in BX
1724 MUL BX ; to determine offset into vector
1725 ADD DI,AX ;add offset inside table
1726 MOV CX,ES:[DI] ;get text offset
1727 XOR AX,AX ;clear to zero
1728 MOV AL,ES:[DI]+2 ;get text length
1729;
1730 MOV DI,CX ;set ES:DI to actual data
1731;
1732 POP CX
1733 POP BX
1734 POP DX
1735;
1736 RET
1737GET_STRING ENDP
1738;
1739PAGE
1740;-----------------------------------------------------------------------------+
1741; :
1742; Name: GET_ATTR :
1743; :
1744; Description: Returns the normal and highlight color attributes :
1745; of a specified panel. :
1746; :
1747; :
1748; Entry: AX = Panel ID number. :
1749; :
1750; Exit: AH = Panel's normal color attr :
1751; AL = Panel's highlight color attr :
1752; :
1753; Entry point: GET_ATTR :
1754; :
1755; Notes: None. :
1756; :
1757; Internal references: None. :
1758; :
1759; External references: None. :
1760; :
1761;-----------------------------------------------------------------------------+
1762;
1763GET_ATTR PROC FAR
1764;
1765 PUSH ES ;save registers
1766 PUSH DI
1767;
1768 CALL FAR PTR GET_PCB ;load the panel's PCB in ES:DI
1769 MOV AX,ES:[DI]+PCB_CCBID ;get panel's color index number
1770;
1771 CALL FAR PTR GET_COLOR ;load the color index
1772 MOV AH,ES:[DI]+CCB_A1 ;get the normal color attr
1773 MOV AL,ES:[DI]+CCB_A2 ;get the highlighted color attr
1774;
1775 POP DI ;restore registers
1776 POP ES
1777;
1778 RET
1779GET_ATTR ENDP
1780;
1781PAGE
1782;-----------------------------------------------------------------------------+
1783; :
1784; Name: GET_COLOR :
1785; :
1786; Description: Returns ES:DI pointing to color index specified in :
1787; AX. Use the CCB_PB to reference the desired color :
1788; attributes. :
1789; :
1790; Entry: AX = Color index to return. :
1791; CRD_CCBVECOFF = Offset of color index. :
1792; CRD_CCBVECSEG = Segment of color index. :
1793; :
1794; Exit: ES:DI = Address of color index :
1795; :
1796; Entry point: GET_COLOR :
1797; :
1798; Notes: None. :
1799; :
1800; Internal references: None. :
1801; :
1802; External references: None. :
1803; :
1804;-----------------------------------------------------------------------------+
1805;
1806GET_COLOR PROC FAR
1807;
1808 PUSH AX ;save registers
1809 PUSH BX
1810 PUSH DX
1811;
1812 DEC AX ; default index and make zero
1813 ; based
1814 PUSH CRD_CCBVECSEG ;get color index segment
1815 POP ES
1816;
1817 PUSH CRD_CCBVECOFF ;get color index offset
1818 POP DI
1819;
1820 MOV BX,COM_CCBLEN ;multiply CCB element length by
1821 MUL BX ; desired vector add offset
1822 ADD DI,AX ; to color index offset
1823;
1824 POP DX ;restore registers
1825 POP BX
1826 POP AX
1827;
1828 RET
1829GET_COLOR ENDP
1830;
1831PAGE
1832;-----------------------------------------------------------------------------+
1833; :
1834; Name: SET_SHLVMDOS :
1835; :
1836; Description: Set shell video mode from current DOS video mode. :
1837; :
1838; Entry: COM_STATE = Option word indicating invocation :
1839; parameters passed through PSP. :
1840; :
1841; Exit: PCGVIDO = Parmeter block initialized. :
1842; COM_DVIDMODE = Original DOS video mode. :
1843; COM_SVIDMODE = Current Shell video mode. :
1844; :
1845; Entry point: SET_SHLVMDOS :
1846; :
1847; Notes: None. :
1848; :
1849; Internal references: PCGVIDO_CALL :
1850; :
1851; External references: None. :
1852; :
1853;-----------------------------------------------------------------------------+
1854;
1855SET_SHLVMDOS PROC NEAR
1856;
1857 LEA DI,GEN_DATA ;load offset of PCGRAPH PB
1858 MOV [DI]+G_INITVFLAG,0 ;init to VGA hardware available
1859;
1860; Check if mode 10H requested
1861;
1862 TEST COM_STATE,COM_M10H ;check if graphics mode 10H
1863 JE VMD20 ; requested (EGA/VGA)
1864;
1865 TEST GV_STAT1,GV_256K ;256K memory on EGA card
1866 JNE VMD10
1867;
1868 MOV COM_ERRID,ERR_256K ;set error for less than 256KB
1869 JMP VMDEXIT ; available on graphics adaphter
1870;
1871VMD10: MOV AL,10H ;set for mode 10H
1872 JMP VMD60
1873;
1874; Check if mode 11H requested
1875;
1876VMD20: TEST COM_STATE,COM_M11H ;check if graphics mode 11H
1877 JE VMD40 ; requested (VGA/MCGA)
1878;
1879 TEST GV_STAT1,GV_EGAA ;check if VGA/EGA hardware avail
1880 JNE VMD30
1881;
1882 CMP GE_MODEL,MODEL_30 ;check for MCGA support
1883 JNE VMD30
1884;
1885 OR IN_OPT,IN_MCGA ;MCGA active
1886 MOV [DI]+G_INITVFLAG,G_INITNOVGA
1887 ;no VGA hardware available
1888;
1889VMD30: MOV AL,11H ;set for mode 11H
1890 JMP VMD60
1891;
1892; check if mode 12H requested
1893;
1894VMD40: TEST COM_STATE,COM_M12H ;check if graphics mode 12H
1895 JE VMD70
1896;
1897 TEST GV_STAT1,GV_256K ;256K memory on EGA card
1898 JNE VMD50
1899;
1900 MOV COM_ERRID,ERR_256K ;set error for less than 256KB
1901 JMP VMDEXIT ; available on graphics adaphter
1902;
1903VMD50: MOV AL,12H ;set for mode 12H
1904;
1905; set graphics video mode
1906;
1907VMD60: CMP AL,12H ;check for mode 12H
1908 JE VMD62
1909;
1910 CMP AL,11H ;check for mode 11H
1911 JE VMD62
1912;
1913 JMP VMD65 ;must be mode 10H
1914;
1915VMD62: CMP GE_MODEL,MODEL_30 ;check if model 30
1916 JE VMD65
1917;
1918 CMP GE_MODEL,MODEL_25 ;check if model 25
1919 JE VMD65
1920;
1921 PUSH AX
1922 MOV AX, 1A00H ;BIOS check display
1923 INT 10H
1924 CMP AL, 1AH ;VGA supported?
1925 POP AX
1926 JE VMD65 ;yes, continue
1927;
1928 MOV AL,0 ;set error in video mode
1929 JMP VMD80 ;exit
1930;
1931VMD65: MOV [DI]+G_INITVMODE,AL ;set desired graphics video mode
1932 MOV [DI]+G_FUNC,G_INIT ;initialize graphics support
1933 MOV BX,DATA ;point to general PCGRAPH
1934 MOV ES,BX ; initialize parameter block
1935 PUSH AX
1936 CALL PCGRAPH_CALL ;initialize graphics
1937 POP AX
1938 JMP VMD80
1939;
1940; set text video mode
1941;
1942VMD70: MOV AL,7 ;initialize
1943 CMP AL,COM_DVIDMODE ;if monochrome text mode is active
1944 JE VMD80 ; no need to set mode
1945;
1946 MOV AL,3
1947 CMP AL,COM_DVIDMODE ;if color text mode is active no
1948 JE VMD80 ; need to set mode
1949;
1950 XOR AH,AH ;set to color text mode
1951 PUSH AX ;save
1952 INT 10H
1953 POP AX ;restore
1954;
1955; read all video information and check if mode set successful
1956;
1957VMD80: CALL PCGVIDO_CALL ;get new video information and
1958 CMP AL,GV_VIDMODE ; check if mode set successful
1959 JE VMD100 ;yes
1960;
1961 MOV COM_ERRID,ERR_MODE ;requested video mode failed
1962 JMP VMDEXIT
1963;
1964VMD100: MOV COM_SVIDMODE,AL ;save current shell video mode
1965 cmp al, 7 ;monochrome text mode active?
1966 jne vmd101 ;no, continue
1967 and COM_STATE,not COM_FLCS ;inactivate color change
1968vmd101:
1969 CALL FAR PTR CURSOROFF ;deactive cursor
1970;
1971VMDEXIT: ;exit
1972;
1973 RET
1974SET_SHLVMDOS ENDP
1975;
1976PAGE
1977;-----------------------------------------------------------------------------+
1978; :
1979; Name: SET_DOSVMSHL :
1980; :
1981; Description: Set original DOS video mode from current shell mode :
1982; and disable mouse support :
1983; :
1984; Entry: PCGVIDO = Parmeter block initialized. :
1985; COM_DVIDMODE = Original DOS video mode. :
1986; COM_SVIDMODE = Current Shell video mode. :
1987; COM_STATE = Invocation options. :
1988; :
1989; Exit: PCGVIDO = Parmeter block initialized. :
1990; :
1991; Entry point: SET_DOSVMSHL :
1992; :
1993; Notes: None. :
1994; :
1995; Internal references: PCGVIDO_CALL :
1996; PCTRACK_CALL :
1997; :
1998; External references: None. :
1999; :
2000;-----------------------------------------------------------------------------+
2001;
2002SET_DOSVMSHL PROC NEAR
2003;
2004; Disable mouse support
2005;
2006 CALL FAR PTR MOUSE_DIS ;disable mouse support
2007;
2008; Check if shell is in text mode
2009;
2010VMS10: CMP COM_STATE,COM_TEXT
2011 JNE VMS20
2012;
2013; Terminate shell graphics mode and restore original DOS video mode
2014;
2015 LEA DI,GEN_DATA ;load offset of PCGRAPH PB
2016 MOV [DI]+G_FUNC,G_TERM ;terminate graphics support
2017 MOV BX,DATA ;point to general PCGRAPH
2018 MOV ES,BX ;initialize parameter block
2019 CALL PCGRAPH_CALL ;initialize graphics
2020 JMP VMSEXIT
2021;
2022; Shell is in text video mode, restore original DOS video mode
2023;
2024VMS20: MOV AL,COM_DVIDMODE ;if shell mode and DOS mode are
2025 XOR AH,AH ;shell and DOS modes are different
2026 INT 10H ; reset original DOS mode
2027;
2028; Exit
2029;
2030VMSEXIT: MOV AL,0 ;clear screen
2031 MOV CH,0
2032 MOV CL,0
2033 MOV DX,GV_NUMLINES ;set DH to bottom row
2034 MOV DL,80 ;set DL to screen width in chars
2035 MOV BH,07H ;set white on black color
2036 MOV AH,6
2037 INT 10H
2038;
2039 CALL FAR PTR CURSORON
2040 CALL PCGVIDO_CALL
2041;
2042 RET
2043SET_DOSVMSHL ENDP
2044;
2045PAGE
2046;-----------------------------------------------------------------------------+
2047; :
2048; Name: SET_CMDVMSHL :
2049; :
2050; Description: Set shell command line video mode from current shell :
2051; mode. :
2052; :
2053; Entry: PCGVIDO = Parmeter block initialized. :
2054; COM_DVIDMODE = Original DOS video mode. :
2055; COM_STATE = Invocation options. :
2056; :
2057; Exit: COM_CVIDMODE = Shell command line video mode. :
2058; PCGVIDO = Parmeter block initialized. :
2059; :
2060; Entry point: SET_CMDVMSHL :
2061; :
2062; Notes: None. :
2063; :
2064; Internal references: PCGVIDO_CALL :
2065; :
2066; External references: None. :
2067; :
2068;-----------------------------------------------------------------------------+
2069;
2070SET_CMDVMSHL PROC FAR
2071;
2072; Check if shell text mode is active
2073;
2074 CMP COM_STATE,COM_TEXT
2075 JE CMDEXIT
2076;
2077; Terminate shell graphics mode and restore original DOS video mode
2078;
2079 LEA DI,GEN_DATA ;load offset of PCGRAPH PB
2080 MOV [DI]+G_FUNC,G_TERM ;terminate graphics support
2081 MOV BX,DATA ;point to general PCGRAPH
2082 MOV ES,BX ;initialize parameter block
2083 CALL PCGRAPH_CALL ;initialize graphics
2084;
2085; Set shell command line to text video mode
2086;
2087 MOV AL,7 ;initialize to monochrome mode
2088 CMP COM_DVIDMODE,AL ;check if DOS video mode was
2089 JE CMD10 ; monochrome
2090;
2091 MOV AL,3 ;set color text mode
2092;
2093CMD10: XOR AH,AH ;set command line video mode
2094 INT 10H
2095;
2096; Exit
2097;
2098CMDEXIT: CALL PCGVIDO_CALL
2099;
2100 RET
2101SET_CMDVMSHL ENDP
2102;
2103PAGE
2104;-----------------------------------------------------------------------------+
2105; :
2106; Name: SET_SHLVMCMD :
2107; :
2108; Description: Set shell video mode from shell command line video :
2109; mode. :
2110; :
2111; Entry: COM_STATE = Option word indicating invocation :
2112; parameters passed through PSP. :
2113; :
2114; Exit: PCGVIDO = Parmeter block initialized. :
2115; COM_DVIDMODE = Original DOS video mode. :
2116; COM_SVIDMODE = Current Shell video mode. :
2117; :
2118; Entry point: SET_SHLVMCMD :
2119; :
2120; Notes: None. :
2121; :
2122; Internal references: PCGVIDO_CALL :
2123; :
2124; External references: None. :
2125; :
2126;-----------------------------------------------------------------------------+
2127;
2128SET_SHLVMCMD PROC FAR
2129;
2130; Check if shell graphics modes 10H, 11H, and 12H were active
2131;
2132 LEA DI,GEN_DATA ;load offset of PCGRAPH PB
2133 MOV [DI]+G_INITVFLAG,0
2134;
2135 TEST COM_STATE,COM_M11H ;check if graphics mode 11H
2136 JE SMC20 ; requested (VGA/MCGA)
2137;
2138 TEST GV_STAT1,GV_EGAA ;check if VGA/EGA hardware avail
2139 JNE SMC10
2140;
2141 CMP GE_MODEL,MODEL_30 ;check for MCGA support
2142 JNE SMC10
2143;
2144 OR IN_OPT,IN_MCGA ;MCGA active
2145 MOV [DI]+G_INITVFLAG,G_INITNOVGA
2146 ;no VGA hardware available
2147;
2148SMC10: MOV AL,11H ;set for mode 11H
2149 JMP SMC50
2150;
2151SMC20: CMP COM_SVIDMODE,10H ;check if mode 10 active
2152 JE SMC50
2153;
2154 CMP COM_SVIDMODE,12H ;check if mode 12 active
2155 JE SMC50
2156;
2157 MOV AH,0FH ;get current video mode
2158 INT 10H
2159;
2160 CMP AL,COM_SVIDMODE ;check if command line video mode
2161 JNE SMC30 ; changed and reset if yes
2162;
2163 JMP SMCEXIT
2164;
2165; Switch to monochrome monitor
2166;
2167SMC30: CMP COM_SVIDMODE,3H ;check if color mode should be set
2168 JE SMC40
2169;
2170 PUSH DS
2171;
2172 XOR AX,AX ;clear to zero
2173 MOV ES,AX ;point to BIOS data area and
2174 MOV DL,ES:[410H] ; get mode byte
2175 OR DL,00110000B
2176 MOV ES:[410H],DL
2177 XOR AH,AH ;set color monochrome mode
2178 MOV AL,7H
2179 INT 10H
2180;
2181 POP DS
2182;
2183 JMP SMCEXIT
2184;
2185; Switch to color monitor in text mode 80x25
2186;
2187SMC40: PUSH DS
2188;
2189 XOR AX,AX ;clear to zero
2190 MOV ES,AX ;point to BIOS data area and
2191 MOV DL,ES:[410H] ; get mode byte
2192 AND DL,11001111B
2193 OR DL,00100000B
2194 MOV ES:[410H],DL
2195 XOR AH,AH ;set color mode
2196 MOV AL,3H
2197 INT 10H
2198;
2199 POP DS
2200;
2201 JMP SMCEXIT
2202;
2203; Initialize shell graphics mode from shell command line text mode
2204;
2205SMC50: MOV AH,0FH ;get current video mode
2206 INT 10H
2207;
2208 CMP AL,7H ;check if command line mode set
2209 JNE SMC60 ; for monochrome, if yes reset to
2210 ; graphics monitor
2211;
2212 PUSH DS
2213;
2214 XOR AX,AX ;clear to zero
2215 MOV ES,AX ;point to BIOS data area and
2216 MOV DL,ES:[410H] ; get mode byte
2217 AND DL,11001111B
2218 OR DL,00100000B
2219 MOV ES:[410H],DL
2220 XOR AH,AH ;set color 80x25 mode before
2221 MOV AL,3H ; setting graphics mode
2222 INT 10H
2223;
2224 POP DS
2225;
2226SMC60: LEA DI,GEN_DATA ;load offset of PCGRAPH PB
2227 MOV AL,COM_SVIDMODE ;set the shell graphics video mode
2228 MOV [DI]+G_INITVMODE,AL
2229 MOV [DI]+G_FUNC,G_INIT ;initialize graphics support
2230 MOV BX,DATA ;point to general PCGRAPH
2231 MOV ES,BX ;initialize parameter block
2232 CALL PCGRAPH_CALL ;initialize graphics
2233;
2234; Exit
2235;
2236SMCEXIT: CALL PCGVIDO_CALL
2237;
2238 RET
2239SET_SHLVMCMD ENDP
2240;
2241PAGE
2242;-----------------------------------------------------------------------------+
2243; :
2244; Name: CURSOROFF :
2245; :
2246; Description: Deactivates hardware cursor from display. :
2247; :
2248; Entry: None :
2249; :
2250; Exit: None. :
2251; :
2252; Entry point: CURSOROFF :
2253; :
2254; Notes: None. :
2255; :
2256; Internal references: None. :
2257; :
2258; External references: None. :
2259; :
2260;-----------------------------------------------------------------------------+
2261;
2262CURSOROFF PROC FAR
2263;
2264 PUSH AX ;save registers
2265 PUSH BX
2266 PUSH CX
2267;
2268 MOV AH,3 ;function to get cursor info
2269 MOV BH,0 ;page zero
2270 INT 10H
2271 OR CH,20H ;set bit 6
2272 MOV AH,1 ;function to set cursor
2273 INT 10H
2274;
2275 POP CX ;restore registers
2276 POP BX
2277 POP AX
2278;
2279 RET
2280CURSOROFF ENDP
2281;
2282PAGE
2283;-----------------------------------------------------------------------------+
2284; :
2285; Name: CURSORON :
2286; :
2287; Description: Displays the hardare cursor. :
2288; :
2289; Entry: None. :
2290; :
2291; Exit: None. :
2292; :
2293; Entry point: CURSORON :
2294; :
2295; Notes: None. :
2296; :
2297; Internal references: None. :
2298; :
2299; External references: None. :
2300; :
2301;-----------------------------------------------------------------------------+
2302;
2303CURSORON PROC FAR
2304;
2305 PUSH AX ;save registers
2306 PUSH BX
2307 PUSH CX
2308 PUSH DX ;>>SN
2309;
2310 MOV AH,3 ;function to get cursor info
2311 MOV BH,0 ;page zero
2312 INT 10H
2313 AND CH,NOT 20H ;clear bit 6
2314 MOV AH,1 ;function to set cursor
2315 INT 10H
2316;
2317 POP DX ;>>SN
2318 POP CX ;restore registers
2319 POP BX
2320 POP AX
2321;
2322 RET
2323CURSORON ENDP
2324;
2325PAGE
2326;-----------------------------------------------------------------------------+
2327; :
2328; Name: PCINPUT_CALL :
2329; :
2330; Description: Call to PCINPUT. :
2331; :
2332; Entry: PCINPUT parameter block initialized. :
2333; :
2334; Exit: PCINPUT parameter block initialized. :
2335; :
2336; Entry point: PCINPUT_CALL :
2337; :
2338; Notes: None. :
2339; :
2340; Internal references: None. :
2341; :
2342; External references: None. :
2343; :
2344;-----------------------------------------------------------------------------+
2345;
2346PCINPUT_CALL PROC FAR
2347;
2348 PUSH DS ;set segment
2349 POP ES
2350;
2351 PUSH DS
2352 PUSH DI ;save registers
2353;
2354 TEST COM_STATE2,COM_DBCS ;check if DBCS option active
2355 JE INPT10
2356;
2357 OR IN_OPT,IN_DDBCS+IN_ADBCS ;activate DBCS
2358;
2359INPT10: LEA DI,IN_OPT ;set DI to proper parameter block
2360 ; for call
2361IF CASRM
2362 MOV AH,00H ;make call to CAS-RM
2363 MOV BX,IN_RN ;set CAS routine number
2364 INT CASINT ;call routine
2365ELSE
2366 CALL INPUT
2367ENDIF
2368 POP DI ;restore registers
2369 POP DS
2370;
2371 RET
2372PCINPUT_CALL ENDP
2373;
2374PAGE
2375;-----------------------------------------------------------------------------+
2376; :
2377; Name: PCINCHA_CALL :
2378; :
2379; Description: Call to PCINCHA. :
2380; :
2381; Entry: PCINCHA parameter block initialized. :
2382; :
2383; Exit: PCINCHA parameter block initialized. :
2384; :
2385; Entry point: PCINCHA_CALL :
2386; :
2387; Notes: None. :
2388; :
2389; Internal references: None. :
2390; :
2391; External references: None. :
2392; :
2393;-----------------------------------------------------------------------------+
2394;
2395PCINCHA_CALL PROC NEAR
2396;
2397 PUSH DS ;set segment
2398 POP ES
2399;
2400 PUSH DS
2401 PUSH DI ;save registers
2402;
2403 TEST COM_STATE2,COM_DBCS ;check if DBCS option active
2404 JE INCH10
2405;
2406 OR INC_OPT,INC_DDBCS ;activate DBCS
2407;
2408INCH10: LEA DI,INC_OPT ;set DI to proper parameter block
2409 ; for call
2410IF CASRM
2411 MOV AH,00H ;make call to CAS-RM
2412 MOV BX,INC_RN ;set CAS routine number
2413 INT CASINT ;call routine
2414ELSE
2415 CALL INCHA
2416ENDIF
2417 POP DI ;restore registers
2418 POP DS
2419;
2420 RET
2421PCINCHA_CALL ENDP
2422;
2423PAGE
2424;-----------------------------------------------------------------------------+
2425; :
2426; Name: PCDISPQ_CALL :
2427; :
2428; Description: Call to PCDISPQ. :
2429; :
2430; Entry: PCDISPQ parameter block initialized. :
2431; :
2432; Exit: PCDISPQ parameter block initialized. :
2433; :
2434; Entry point: PCDISPQ_CALL :
2435; :
2436; Notes: None. :
2437; :
2438; Internal references: None. :
2439; :
2440; External references: None. :
2441; :
2442;-----------------------------------------------------------------------------+
2443;
2444PCDISPQ_CALL PROC NEAR
2445;
2446 PUSH DS ;set segment
2447 POP ES
2448;
2449 PUSH DS
2450 PUSH DI ;save registers
2451;
2452 LEA DI,QM_OPT1 ;set DI to proper parameter block
2453 ; for call
2454IF CASRM
2455 MOV AH,00H ;make call to CAS-RM
2456 MOV BX,QM_RN ;set CAS routine number
2457 INT CASINT ;call routine
2458ELSE
2459 CALL DISPQ
2460ENDIF
2461 POP DI ;restore registers
2462 POP DS
2463;
2464 RET
2465PCDISPQ_CALL ENDP
2466;
2467PAGE
2468;-----------------------------------------------------------------------------+
2469; :
2470; Name: PCPANEL_CALL :
2471; :
2472; Description: Initialize for call to PCPANEL including refresh of :
2473; input and scroll fields in the logical video buffer :
2474; before display. :
2475; :
2476; Entry: PCPANEL parameter block initialized. :
2477; :
2478; AX 0= Logical video buffer mode write :
2479; 1= Direct video mode write :
2480; :
2481; Exit: PCPANEL parameter block initialized. :
2482; :
2483; Entry point: PCPANEL_CALL :
2484; :
2485; Notes: None. :
2486; :
2487; Internal references: None. :
2488; :
2489; External references: None. :
2490; :
2491;-----------------------------------------------------------------------------+
2492;
2493PCPANEL_CALL PROC NEAR
2494;
2495; initialize PCDISPQ info for PCPANEL call
2496;
2497 CMP AX,1 ;check if direct video buffer
2498 JE PP10 ; write option active
2499;
2500 MOV BX,QM_PANQUENUM
2501 MOV PM_PANQUENUM,BX ;number of panels in parent queue
2502;
2503 MOV BX,QM_CHDQUENUM
2504 MOV PM_CHDQUENUM,BX ;number panels in child queue
2505;
2506 MOV BX,QM_ACTIVEPAN
2507 MOV PM_ACTIVEPAN,BX ;active parent panel number
2508;
2509 MOV PM_OPT1,PM_DOA+PM_DOV+PM_DOQ+PM_CL
2510 MOV PM_PANPDQNUM,1 ;beg/ending parent PDQ number
2511 MOV PM_PANBRKOFF,0 ;panel off in lvb of break panel
2512;
2513; actual PCPANEL call
2514;
2515PP10: PUSH DS ;set segment
2516 POP ES
2517;
2518 PUSH DS
2519 PUSH DI ;save registers
2520;
2521 LEA DI,PM_OPT1 ;set DI to proper parameter block
2522 ; for call
2523IF CASRM
2524 MOV AH,00H ;make call to CAS-RM
2525 MOV BX,PM_RN ;set CAS routine number
2526 INT CASINT ;call routine
2527ELSE
2528 CALL PANEL
2529ENDIF
2530 POP DI ;restore registers
2531 POP DS
2532;
2533; Exit
2534;
2535PPEXIT: ;exit
2536;
2537 RET
2538PCPANEL_CALL ENDP
2539;
2540PAGE
2541;-----------------------------------------------------------------------------+
2542; :
2543; Name: PCMBEEP_CALL :
2544; :
2545; Description: Call to PCMBEEP. :
2546; :
2547; Entry: PCMBEEP parameter block initialized. :
2548; :
2549; Exit: PCMBEEP parameter block initialized. :
2550; :
2551; Entry point: PCMBEEP_CALL :
2552; :
2553; Notes: None. :
2554; :
2555; Internal references: None. :
2556; :
2557; External references: None. :
2558; :
2559;-----------------------------------------------------------------------------+
2560;
2561PCMBEEP_CALL PROC FAR
2562;
2563 TEST COM_STATE2,COM_SOUD ;check if sound is off
2564 JE BEXIT
2565;
2566 PUSH CX ;save registers
2567 PUSH DX
2568;
2569 PUSH DS ;set segment
2570 POP ES
2571;
2572 PUSH DS
2573 PUSH DI ;save registers
2574;
2575 LEA DI,MB_FREQUENCY ;set DI to proper parameter block
2576 ; for call
2577IF CASRM
2578 MOV AH,00H ;make call to CAS-RM
2579 MOV BX,MB_RN ;set CAS routine number
2580 INT CASINT ;call routine
2581ELSE
2582 CALL MBEEP
2583ENDIF
2584 POP DI ;restore registers
2585 POP DS
2586;
2587 POP DX ;restore registers
2588 POP CX
2589;
2590BEXIT:
2591;
2592 RET
2593PCMBEEP_CALL ENDP
2594;
2595PAGE
2596;-----------------------------------------------------------------------------+
2597; :
2598; Name: PCSLCTP_CALL :
2599
2600; :
2601; Description: Call to PCSLCTP. :
2602; :
2603; Entry: ES:DI = beginning address of PCSLCTP parameter block. :
2604; :
2605; Exit: PCSLCTP parameter block initialized. :
2606; :
2607; Entry point: PCSLCTP_CALL :
2608; :
2609; Notes: None. :
2610; :
2611; Internal references: None. :
2612; :
2613; External references: None. :
2614; :
2615;-----------------------------------------------------------------------------+
2616;
2617PCSLCTP_CALL PROC NEAR
2618;
2619; Initialize color index vector
2620;
2621 MOV AX,PM_CCBVECNUM ;set color index number
2622 MOV ES:[DI]+SCB_CCBVECNUM,AX
2623;
2624 MOV AX,CRD_CCBVECOFF ;set color index offset
2625 MOV ES:[DI]+SCB_CCBVECOFF,AX
2626;
2627 MOV AX,CRD_CCBVECSEG ;set color index segment
2628 MOV ES:[DI]+SCB_CCBVECSEG,AX
2629;
2630IF CASRM
2631 MOV AH,00H ;make call to CAS-RM
2632 MOV BX,SCB_RN ;set CAS routine number
2633 INT CASINT ;call slctopt
2634ELSE
2635 CALL SLCTP
2636ENDIF
2637;
2638 RET
2639PCSLCTP_CALL ENDP
2640;
2641PAGE
2642;-----------------------------------------------------------------------------+
2643; :
2644; Name: PCHLPRD_CALL :
2645; :
2646; Description: Call to PCHLPRD. :
2647; :
2648; Entry: PCHLPRD parameter block initialized. :
2649; :
2650; Exit: PCHLPRD parameter block initialized. :
2651; :
2652; Entry point: PCHLPRD_CALL :
2653; :
2654; Notes: None. :
2655; :
2656; Internal references: None. :
2657; :
2658; External references: None. :
2659; :
2660;-----------------------------------------------------------------------------+
2661;
2662PCHLPRD_CALL PROC NEAR
2663;
2664 PUSH DS ;set segment
2665 POP ES
2666;
2667 PUSH DS
2668 PUSH DI ;save registers
2669;
2670 LEA DI,HRD_OPT1 ;set DI to proper parameter block
2671 ; for call
2672IF CASRM
2673 MOV AH,00H ;make call to CAS-RM
2674 MOV BX,HRD_RN ;set CAS routine number
2675 INT CASINT ;call routine
2676ELSE
2677 CALL HLPRD
2678ENDIF
2679 POP DI ;restore registers
2680 POP DS
2681;
2682 RET
2683PCHLPRD_CALL ENDP
2684;
2685PAGE
2686;-----------------------------------------------------------------------------+
2687; :
2688; Name: PCINSTR_CALL :
2689; :
2690; Description: Call to PCINSTR. :
2691; :
2692; Entry: PCINSTR parameter block initialized. :
2693; :
2694; Exit: PCINSTR parameter block initialized. :
2695; :
2696; Entry point: PCINSTR_CALL :
2697; :
2698; Notes: None. :
2699; :
2700; Internal references: None. :
2701; :
2702; External references: None. :
2703; :
2704;-----------------------------------------------------------------------------+
2705;
2706PCINSTR_CALL PROC NEAR
2707;
2708 PUSH DS ;set segment
2709 POP ES
2710;
2711 PUSH DS
2712 PUSH DI ;save registers
2713;
2714 LEA DI,INS_OPT ;set DI to proper parameter block
2715 ; for call
2716IF CASRM
2717 MOV AH,00H ;make call to CAS-RM
2718 MOV BX,INS_RN ;set CAS routine number
2719 INT CASINT ;call routine
2720ELSE
2721 CALL INSTRN
2722ENDIF
2723 POP DI ;restore registers
2724 POP DS
2725;
2726 RET
2727PCINSTR_CALL ENDP
2728;
2729PAGE
2730;-----------------------------------------------------------------------------+
2731; :
2732; Name: PCGVIDO_CALL :
2733; :
2734; Description: Call to PCGVIDO. :
2735; :
2736; Entry: PCGVIDO parameter block initialized. :
2737; :
2738; Exit: PCGVIDO parameter block initialized. :
2739; :
2740; Entry point: PCGVIDO_CALL :
2741; :
2742; Notes: None. :
2743; :
2744; Internal references: None. :
2745; :
2746; External references: None. :
2747; :
2748;-----------------------------------------------------------------------------+
2749;
2750PCGVIDO_CALL PROC NEAR
2751;
2752 PUSH ES
2753;
2754 PUSH DS ;set segment
2755 POP ES
2756;
2757 PUSH DS
2758 PUSH DI ;save registers
2759;
2760 LEA DI,GV_STAT1 ;set DI to proper parameter block
2761 ; for call
2762;
2763IF CASRM
2764 MOV AH,00H ;make call to CAS-RM
2765 MOV BX,GV_RN ;set CAS routine number
2766 INT CASINT ;call routine
2767ELSE
2768 CALL GVIDO
2769ENDIF
2770 POP DI ;restore registers
2771 POP DS
2772;
2773 POP ES
2774;
2775 RET
2776PCGVIDO_CALL ENDP
2777;
2778PAGE
2779;-----------------------------------------------------------------------------+
2780; :
2781; Name: PCCLRWR_CALL :
2782; :
2783; Description: Call to PCCLRWR. :
2784; :
2785; Entry: PCCLRWR parameter block initialized. :
2786; :
2787; Exit: PCCLRWR parameter block initialized. :
2788; :
2789; Entry point: PCCLRWR_CALL :
2790; :
2791; Notes: None. :
2792; :
2793; Internal references: None. :
2794; :
2795; External references: None. :
2796; :
2797;-----------------------------------------------------------------------------+
2798;
2799PCCLRWR_CALL PROC NEAR
2800;
2801 PUSH DS ;set segment
2802 POP ES
2803;
2804 PUSH DS
2805 PUSH DI ;save registers
2806;
2807 LEA DI,CWR_OPT ;set DI to proper parameter block
2808 ; for call
2809IF CASRM
2810 MOV AH,00H ;make call to CAS-RM
2811 MOV BX,CWR_RN ;set CAS routine number
2812 INT CASINT ;call routine
2813ELSE
2814 CALL CLRWR
2815ENDIF
2816 POP DI ;restore registers
2817 POP DS
2818;
2819 RET
2820PCCLRWR_CALL ENDP
2821;
2822PAGE
2823;-----------------------------------------------------------------------------+
2824; :
2825; Name: PCCRITE_CALL :
2826; :
2827; Description: Call to PCCRITE. :
2828; :
2829; Entry: PCCRITE parameter block initialized. :
2830; :
2831; Exit: PCCRITE parameter block initialized. :
2832; :
2833; Entry point: PCCRITE_CALL :
2834; :
2835; Notes: None. :
2836; :
2837; Internal references: None. :
2838; :
2839; External references: None. :
2840; :
2841;-----------------------------------------------------------------------------+
2842;
2843PCCRITE_CALL PROC NEAR
2844;
2845 PUSH DS ;set segment
2846 POP ES
2847;
2848 PUSH DS
2849 PUSH DI ;save registers
2850;
2851 LEA DI,CE_OPT ;set DI to proper parameter block
2852 ; for call
2853;
2854IF CASRM
2855 MOV AH,00H ;make call to CAS-RM
2856 MOV BX,CE_RN ;set CAS routine number
2857 INT CASINT ;call routine
2858ELSE
2859 CALL CRITE
2860ENDIF
2861 POP DI ;restore registers
2862 POP DS
2863;
2864 RET
2865PCCRITE_CALL ENDP
2866;
2867PAGE
2868;-----------------------------------------------------------------------------+
2869; :
2870; Name: PCWWRAP_CALL :
2871; :
2872; Description: Call to PCWWRAP. :
2873; :
2874; Entry: PCWWRAP parameter block initialized. :
2875; :
2876; Exit: PCWWRAP parameter block initialized. :
2877; :
2878; Entry point: PCWWRAP_CALL :
2879; :
2880; Notes: None. :
2881; :
2882; Internal references: None. :
2883; :
2884; External references: None. :
2885; :
2886;-----------------------------------------------------------------------------+
2887;
2888PCWWRAP_CALL PROC NEAR
2889;
2890 PUSH DS ;set segment
2891 POP ES
2892;
2893 PUSH DS
2894 PUSH DI ;save registers
2895;
2896 LEA DI,WWP_OPT1 ;set DI to proper parameter block
2897 ; for call
2898;
2899IF CASRM
2900 MOV AH,00H ;make call to CAS-RM
2901 MOV BX,WWP_RN ;set CAS routine number
2902 INT CASINT ;call routine
2903ELSE
2904 CALL WWRAP
2905ENDIF
2906 POP DI ;restore registers
2907 POP DS
2908;
2909 RET
2910PCWWRAP_CALL ENDP
2911;
2912PAGE
2913;-----------------------------------------------------------------------------+
2914; :
2915; Name: PCTRACK_CALL :
2916; :
2917; Description: Call to PCTRACK. :
2918; :
2919; Entry: PCTRACK parameter block initialized. :
2920; :
2921; Exit: PCTRACK parameter block initialized. :
2922; :
2923; Entry point: PCTRACK_CALL :
2924; :
2925; Notes: None. :
2926; :
2927; Internal references: None. :
2928; :
2929; External references: None. :
2930; :
2931;-----------------------------------------------------------------------------+
2932;
2933PCTRACK_CALL PROC FAR
2934;
2935 PUSH DS
2936 PUSH DI ;save registers
2937;
2938 PUSH DS ;point to PCTRACK parameter block
2939 POP ES
2940;
2941IF CASRM
2942 MOV AH,00H ;make call to CAS-RM
2943 MOV BX,MS_RN ;set CAS routine number
2944 INT CASINT ;call routine
2945ELSE
2946 CALL TRACK
2947ENDIF
2948 POP DI ;restore registers
2949 POP DS
2950;
2951 RET
2952PCTRACK_CALL ENDP
2953;
2954PAGE
2955;-----------------------------------------------------------------------------+
2956; :
2957; Name: PCGRAPH_CALL :
2958; :
2959; Description: Call to PCGRAPH. :
2960; :
2961; Entry: PCGRAPH parameter block initialized. :
2962; :
2963; Exit: PCGRAPH parameter block initialized. :
2964; :
2965; Entry point: PCGRAPH_CALL :
2966; :
2967; Notes: None. :
2968; :
2969; Internal references: None. :
2970; :
2971; External references: None. :
2972; :
2973;-----------------------------------------------------------------------------+
2974;
2975PCGRAPH_CALL PROC NEAR
2976;
2977 PUSH DS
2978 PUSH DI ;save registers
2979;
2980IF CASRM
2981 MOV AH,00H ;make call to CAS-RM
2982 MOV BX,MS_RN ;set CAS routine number
2983 INT CASINT ;call routine
2984ELSE
2985 CALL GRAPH
2986ENDIF
2987 POP DI ;restore registers
2988 POP DS
2989;
2990 RET
2991PCGRAPH_CALL ENDP
2992;
2993PAGE
2994;-----------------------------------------------------------------------------+
2995; :
2996; Name: PCST2IN_CALL :
2997; :
2998; Description: Call to PCST2IN. :
2999; :
3000; Entry: PCST2IN parameter block initialized. :
3001; :
3002; Exit: PCST2IN parameter block initialized. :
3003; :
3004; Entry point: PCST2IN_CALL :
3005; :
3006; Notes: None. :
3007; :
3008; Internal references: None. :
3009; :
3010; External references: None. :
3011; :
3012;-----------------------------------------------------------------------------+
3013;
3014PCST2IN_CALL PROC NEAR
3015;
3016 PUSH DS ;set segment
3017 POP ES
3018;
3019 PUSH DS
3020 PUSH DI ;save registers
3021;
3022 LEA DI,ST2_OPT1 ;set DI to proper parameter block
3023 ; for call
3024;
3025IF CASRM
3026 MOV AH,00H ;make call to CAS-RM
3027 MOV BX,S2I_RN ;set CAS routine number
3028 INT CASINT ;call routine
3029ELSE
3030 CALL ST2IN
3031ENDIF
3032 POP DI ;restore registers
3033 POP DS
3034;
3035 RET
3036PCST2IN_CALL ENDP
3037;
3038PAGE
3039;-----------------------------------------------------------------------------+
3040; :
3041; Name: PCMOVEC_CALL :
3042; :
3043; Description: Call to PCMOVEC. :
3044; :
3045; Entry: PCMOVEC parameter block initialized. :
3046; :
3047; Exit: PCMOVEC parameter block initialized. :
3048; :
3049; Entry point: PCMOVEC_CALL :
3050; :
3051; Notes: None. :
3052; :
3053; Internal references: None. :
3054; :
3055; External references: None. :
3056; :
3057;-----------------------------------------------------------------------------+
3058;
3059PCMOVEC_CALL PROC NEAR
3060;
3061 PUSH DS ;set segment
3062 POP ES
3063;
3064 PUSH DS
3065 PUSH DI ;save registers
3066;
3067 LEA DI,MO_OPT ;set DI to proper parameter block
3068 ; for call
3069;
3070IF CASRM
3071 MOV AH,00H ;make call to CAS-RM
3072 MOV BX,MO_RN ;set CAS routine number
3073 INT CASINT ;call routine
3074ELSE
3075 CALL MOVEC
3076ENDIF
3077 POP DI ;restore registers
3078 POP DS
3079;
3080 RET
3081PCMOVEC_CALL ENDP
3082;
3083PAGE
3084;-----------------------------------------------------------------------------+
3085; :
3086; Name: SHELLDA_CALL :
3087; :
3088; Description: Call to SHELLDA. :
3089; :
3090; Entry: None :
3091; :
3092; Exit: None :
3093; :
3094; Entry point: SHELLDA_CALL :
3095; :
3096; Notes: None. :
3097; :
3098; Internal references: None. :
3099; :
3100; External references: None. :
3101; :
3102;-----------------------------------------------------------------------------+
3103;
3104SHELLDA_CALL PROC NEAR
3105;
3106 CALL SHELLDA
3107;
3108 RET
3109SHELLDA_CALL ENDP
3110;
3111PAGE
3112;-----------------------------------------------------------------------------+
3113; :
3114; PCROWCL_CALL :
3115; :
3116; Call to PCROWCL. :
3117; :
3118; Entry: PB initialized. :
3119; :
3120; Exit: None :
3121; :
3122; Notes: None :
3123; :
3124;-----------------------------------------------------------------------------+
3125;
3126PCROWCL_CALL PROC NEAR
3127
3128 PUSH ES
3129 PUSH DS ;set segment
3130 POP ES
3131
3132 PUSH DS
3133 PUSH DI ;save registers
3134
3135 LEA DI,CR_SCRWIDTH ;set DI to proper parameter block
3136 ; for call
3137IF CASRM
3138 MOV AH,00H ;make call to CAS-RM
3139 MOV BX,CR_RN ;set CAS routine number
3140 INT CASINT ;call routine
3141ELSE
3142 CALL ROWCL
3143ENDIF
3144 POP DI ;restore registers
3145 POP DS
3146 POP ES
3147;
3148 RET
3149PCROWCL_CALL ENDP
3150;
3151PAGE
3152;-----------------------------------------------------------------------------+
3153; :
3154; PCMOVEG_CALL :
3155; :
3156; Call to PCMOVEG. :
3157; :
3158; Entry: PB initialized. :
3159; :
3160; Exit: None :
3161; :
3162; Notes: None :
3163; :
3164;-----------------------------------------------------------------------------+
3165;
3166PCMOVEG_CALL PROC NEAR
3167
3168 PUSH ES
3169 PUSH DS ;set segment
3170 POP ES
3171
3172 PUSH DS
3173 PUSH DI ;save registers
3174
3175 LEA DI,MG_OPT ;set DI to proper parameter block
3176 ; for call
3177IF CASRM
3178 MOV AH,00H ;make call to CAS-RM
3179 MOV BX,MG_RN ;set CAS routine number
3180 INT CASINT ;call routine
3181ELSE
3182 CALL MOVEG
3183ENDIF
3184 POP DI ;restore registers
3185 POP DS
3186 POP ES
3187;
3188 RET
3189PCMOVEG_CALL ENDP
3190;
3191PAGE
3192;-----------------------------------------------------------------------------+
3193; :
3194; PCGEQUP_CALL :
3195; :
3196; Call to PCGEQUP. :
3197; :
3198; Entry: PB initialized. :
3199; :
3200; Exit: None :
3201; :
3202; Notes: None :
3203; :
3204;-----------------------------------------------------------------------------+
3205;
3206PCGEQUP_CALL PROC NEAR
3207
3208 PUSH ES
3209 PUSH DS ;set segment
3210 POP ES
3211
3212 PUSH DS
3213 PUSH DI ;save registers
3214
3215 LEA DI,GE_OPT ;set DI to proper parameter block
3216 ; for call
3217IF CASRM
3218 MOV AH,00H ;make call to CAS-RM
3219 MOV BX,MG_RN ;set CAS routine number
3220 INT CASINT ;call routine
3221ELSE
3222 CALL GEQUP
3223ENDIF
3224 POP DI ;restore registers
3225 POP DS
3226 POP ES
3227;
3228 RET
3229PCGEQUP_CALL ENDP
3230;
3231PAGE
3232;-----------------------------------------------------------------------------+
3233; :
3234; PCDATES_CALL :
3235; :
3236; Call to PCDATES. :
3237; :
3238; Entry: PB initialized. :
3239; :
3240; Exit: None :
3241; :
3242; Notes: None :
3243; :
3244;-----------------------------------------------------------------------------+
3245;
3246PCDATES_CALL PROC NEAR
3247
3248 PUSH ES
3249 PUSH DS ;set segment
3250 POP ES
3251
3252 PUSH DS
3253 PUSH DI ;save registers
3254
3255 LEA DI,DTS_OPT ;set DI to proper parameter block
3256 ; for call
3257IF CASRM
3258 MOV AH,00H ;make call to CAS-RM
3259 MOV BX,DTS_RN ;set CAS routine number
3260 INT CASINT ;call routine
3261ELSE
3262 CALL DATES
3263ENDIF
3264 POP DI ;restore registers
3265 POP DS
3266 POP ES
3267;
3268 RET
3269PCDATES_CALL ENDP
3270;
3271PAGE
3272;-----------------------------------------------------------------------------+
3273; :
3274; PCTIMES_CALL :
3275; :
3276; Call to PCTIMES. :
3277; :
3278; Entry: PB initialized. :
3279; :
3280; Exit: None :
3281; :
3282; Notes: None :
3283; :
3284;-----------------------------------------------------------------------------+
3285;
3286PCTIMES_CALL PROC NEAR
3287
3288 PUSH ES
3289 PUSH DS ;set segment
3290 POP ES
3291
3292 PUSH DS
3293 PUSH DI ;save registers
3294
3295 LEA DI,TMS_OPT ;set DI to proper parameter block
3296 ; for call
3297IF CASRM
3298 MOV AH,00H ;make call to CAS-RM
3299 MOV BX,TMS_RN ;set CAS routine number
3300 INT CASINT ;call routine
3301ELSE
3302 CALL TIMES
3303ENDIF
3304 POP DI ;restore registers
3305 POP DS
3306 POP ES
3307;
3308 RET
3309PCTIMES_CALL ENDP
3310;
3311PAGE
3312;-----------------------------------------------------------------------------+
3313; :
3314; Name: CHANGE_APPM :
3315; :
3316; Description: Display Application menu screen. :
3317; :
3318; Entry: None. :
3319; :
3320; Exit: COM_CDIALOG :
3321; :
3322; Entry point: CHANGE_APPM :
3323; :
3324; Notes: None. :
3325; :
3326; Internal references: None. :
3327; :
3328; External references: None. :
3329; :
3330;-----------------------------------------------------------------------------+
3331;
3332CHANGE_APPM PROC FAR
3333;
3334 TEST COM_STATE,COM_APPM ;check if app menu active
3335 JNE CAM10
3336;
3337 CALL FAR PTR OPT_INACTIVE ;display error panel for inactive *PCR
3338 JMP CAMEXIT
3339;
3340CAM10: MOV COM_HLPOPT2,0 ;set for normal shell help
3341 MOV COM_HCBIDAAB,HLP_AABPROGRAM
3342 MOV COM_HCBID,HLP_AABPROGRAM
3343;
3344 MOV AX,MFF_AABAOPT ;default to program menu AAB field
3345 CALL FAR PTR LOC_MOUSEF
3346 MOV COM_CURAABF,AX
3347;
3348 MOV APP_SKIN,0 ;set to reinitialize app menu fld
3349 MOV COM_CDIALOG,COM_PAAB ;set for menu action bar dialog
3350 MOV COM_BASESCR,COM_APPSCR ;initialize for display of DOS scr
3351;
3352CAMEXIT:
3353;
3354 RET
3355CHANGE_APPM ENDP
3356;
3357PAGE
3358;-----------------------------------------------------------------------------+
3359; :
3360; Name: ALLOCATE_BUFB :
3361; :
3362; Description: Allocate memory for directory and file buffers. :
3363; :
3364; Entry: COM_STATE2 = Invocation parameters. :
3365; COM_DFSIZE = Optional buffer override size in parags.:
3366; :
3367; MAX_DIR1BUF = Size of directory buffer 1 in paragraph :
3368; MAX_DIR2BUF = Size of directory buffer 2 in paragraph :
3369; MAX_DOSWBUF = Size of view, copy, move working buffer :
3370; MAX_EXECBUF = Size of app menu and/or command prompt :
3371; free space to be made avail to dos in :
3372; resident mode only. :
3373; :
3374; Allocated by one DOS call with COM_DATA4SEG as :
3375; starting segment. :
3376; :
3377; COM_DATA4LEN Optional DOS Services directory :
3378; COM_DATA4OFF list 1 buffer. :
3379; COM_DATA4SEG :
3380; :
3381; COM_DATA5LEN Optional DOS Services directory :
3382; COM_DATA5OFF list 2 buffer. :
3383; COM_DATA5SEG :
3384; :
3385; COM_DATA6LEN Optional DOS Services file list 1 :
3386; COM_DATA6OFF buffer :
3387; COM_DATA6SEG :
3388; :
3389; COM_DATA7LEN Optional DOS Services file list 2 :
3390; COM_DATA7OFF buffer :
3391; COM_DATA7SEG :
3392; :
3393; COM_DATA8LEN Optional DOS Services :
3394; COM_DATA8OFF buffer :
3395; COM_DATA8SEG :
3396; :
3397; Entry point: ALLOCATE_BUFB :
3398; :
3399; Notes: None. :
3400; :
3401; Internal references: None. :
3402; :
3403; External references: INT 21H 48H Allocate memory :
3404; :
3405;-----------------------------------------------------------------------------+
3406;
3407ALLOCATE_BUFB PROC FAR
3408;
3409 TEST COM_STATE,COM_DOSS ;check if DOS Services configured
3410 JNE AMB05 ;exit
3411;
3412 JMP AMBEXIT
3413;
3414; Determine avail memory, calc memory to allocate for shell functions
3415;
3416AMB05: MOV AH,48H ;find out how many parags are aval
3417 MOV BX,0FFFFH ; in BX on return
3418 INT 21H
3419;
3420; adjust for resident mode operation
3421;
3422 TEST COM_STATE,COM_RESS ;check if resident mode is active
3423 JE AMB11 ; if yes, check if prompt or menu
3424 ; options are active, if yes,
3425 ; reduce avail size by 64KB to
3426 ; allow room for command line
3427 ; or prog menu operation
3428;
3429AMB08: CMP BX,MAX_EXECBUF ;64K remaining?
3430 JB AMB_ERR ;no, error
3431;
3432 SUB BX,MAX_EXECBUF ;save 64KB for execution of
3433 ; command prompt or program menu
3434 ; only if in resident mode
3435;
3436AMB11: MOV CX,BX ;save avail paraghs for compare
3437;
3438 TEST COM_STATE,COM_RESS ;check if resident mode is active
3439 JNE AMB12 ; if yes, reserve room required
3440 ; memory for view, copy,,,
3441 ; if not, DOS funcs in shell will
3442 ; automatically allocate memory
3443 ; as needed
3444;
3445 CMP BX,MAX_DOSWBUF ;10K remaining?
3446 JB AMB_ERR ;no, error
3447;
3448 SUB BX,MAX_DOSWBUF ;reserve working memory for copy
3449 ; and view functions (10KB)
3450;
3451; Check for minimum storage to run DOS Services
3452;
3453AMB12: MOV TMP_DOSWBUF,MAX_DOSWBUF ;max work buffer
3454 MOV TMP_DIRBUF,MAX_DIR1BUF ;max directory buffer
3455;
3456 CALL CHK_MINDOS ;check for minimum DOS
3457 JNC AMB30 ;OK to allocate
3458;
3459 TEST COM_STATE2,COM_BUFO ;/B specified?
3460 JZ AMB14 ;no, try for minimum system
3461;
3462 CMP COM_DFSIZE,SM_FILEBUF ;User specified a small file buf?
3463 JA AMB_ERR ;no, /B just too large
3464;
3465AMB14: MOV TMP_DOSWBUF,MIN_DOSWBUF ;min work buffer
3466 MOV TMP_DIRBUF,MIN_DIR1BUF ;min directory buffer
3467 TEST COM_STATE,COM_RESS ;resident mode?
3468 JNZ AMB16 ;yes, no need to adjust avail stg
3469;
3470 ADD BX,MAX_DOSWBUF ;change from 16K
3471 SUB BX,MIN_DOSWBUF ; to 8K for View/Copy buffer
3472;
3473AMB16: CALL CHK_MINDOS ;check for absolutely minimum DOS
3474 JNC AMB30 ;OK to allocate
3475;
3476AMB_ERR: MOV COM_ERRID,ERR_INSM ;insufficent memory available
3477 JMP AMBEXIT
3478;
3479; Allocate required shell memory
3480;
3481AMB30: XOR AX,AX
3482 MOV AH,48H ;set allocate function number
3483 INT 21H ;allocate memory
3484 JNC AMB40 ;check for error
3485;
3486 MOV COM_ERRID,ERR_INSM ;insufficent memory available
3487 JMP AMBEXIT
3488;
3489; Check if resident mode active and preallocate working DOS buffers
3490;
3491AMB40: MOV CX,AX ;save beginning segment
3492;
3493 TEST COM_STATE,COM_RESS ;check if resident mode is active
3494 JE AMB70 ; if yes, pre-allocate required
3495 ; memory for view, copy,,,
3496 ; if not, DOS funcs in shell will
3497 ; automatically allocate memory
3498 ; as needed
3499;
3500 TEST COM_STATE,COM_APPM ;check if app menu active
3501 JNE AMB60
3502;
3503 MOV COM_DATA8SEG,CX ;set segment of DOS work buffer
3504 MOV COM_DATA8OFF,0 ;offset starts at zero
3505 MOV AX,TMP_DOSWBUF ;calculate length of buffer
3506 MOV BX,16 ; in bytes
3507 SUB COM_DFSIZE,AX ;adjust remaining paragraphs
3508 MUL BX
3509 MOV COM_DATA8LEN,AX
3510 ADD CX,MAX_DOSWBUF ;adjust segment
3511 JMP AMB70
3512;
3513AMB60: MOV AX,COM_DATA3SEG ;reuse app menu buffer
3514 MOV COM_DATA8SEG,AX ;set segment
3515 MOV AX,COM_DATA3OFF
3516 MOV COM_DATA8OFF,AX ;set offset
3517 MOV AX,COM_DATA3LEN ;set DOS working buffer size in
3518 MOV COM_DATA8LEN,AX ; bytes
3519;
3520; Use next available memory for dir buffer 1 and 2
3521;
3522AMB70: MOV COM_DATA4SEG,CX ;set segment of directory list 1
3523 MOV COM_DATA4OFF,0 ;offset starts at zero
3524 MOV AX,TMP_DIRBUF ;calculate length of buffer
3525 ADD CX,AX ;adjust new segment
3526 SUB COM_DFSIZE,AX ;adjust remaining paragraphs
3527 MOV BX,16
3528 MUL BX
3529 MOV COM_DATA4LEN,AX ;set length in paragraphs
3530;
3531 TEST COM_STATE,COM_DRV2 ;check if multiple drive display
3532 JE AMB80 ; active
3533;
3534 MOV COM_DATA5SEG,CX ;set segment of directory list 2
3535 MOV COM_DATA5OFF,0 ;offset starts at zero
3536 MOV AX,TMP_DIRBUF ;calculate length of buffer
3537 ADD CX,AX ;adjust new segment
3538 SUB COM_DFSIZE,AX ;adjust remaining paragraphs
3539 MOV BX,16
3540 MUL BX
3541 MOV COM_DATA5LEN,AX ;set length in paragraphs
3542;
3543; Use remaining memory for file buffers 1 and 2
3544;
3545AMB80: MOV COM_DATA6SEG,CX ;set segment of file buf 1
3546 MOV COM_DATA6OFF,0 ;offset starts at zero
3547;
3548 MOV AX,COM_DFSIZE ;get remaining buffer
3549;
3550 TEST COM_STATE,COM_DRV2 ;check if multiple drive display
3551 JE AMB90 ; active
3552;
3553 SHR AX,1 ;divide remaining buffer by 2
3554;
3555AMB90: MOV COM_DATA6LEN,AX ;set file buffer 1 len in paraghs
3556 ADD CX,AX ;adjust new segment
3557 SUB COM_DFSIZE,AX ;adjust remaining buffer paraghs
3558;
3559 TEST COM_STATE,COM_DRV2 ;check if multiple drive display
3560 JE AMBEXIT ; active
3561;
3562 MOV COM_DATA7SEG,CX ;set segment of file buf 2
3563 MOV COM_DATA7OFF,0 ;offset starts at zero
3564 MOV AX,COM_DFSIZE ;set # parags in file buf 2
3565 MOV COM_DATA7LEN,AX
3566;
3567AMBEXIT: ;exit
3568;
3569 RET
3570ALLOCATE_BUFB ENDP
3571;
3572PAGE
3573;
3574;-----------------------------------------------------------------------------+
3575; :
3576; Name: CHK_MINDOS :
3577; :
3578; Description: Check for enough storage to run minimum DOS Services. :
3579; :
3580; Entry: TMP_DOSWBUF - Size of DOS work buffer :
3581; TMP_DIRBUF - Size of DOS directory buffer :
3582; COM_DFSIZE - User specified file buffer size :
3583; BX - Maximum memory available :
3584; :
3585; Exit: Carry flag set :
3586; :
3587; Entry point: CHK_MINDOS :
3588; :
3589; Notes: None. :
3590; :
3591; Internal references: None :
3592; :
3593; External references: None :
3594; :
3595;-----------------------------------------------------------------------------+
3596;
3597CHK_MINDOS PROC NEAR
3598;
3599 XOR AX,AX ;clear out
3600 TEST COM_STATE,COM_RESS ;resident mode?
3601 JZ CHS14 ;no, storage already adjusted
3602;
3603 TEST COM_STATE,COM_APPM ;appl configured?
3604 JNZ CHS14 ;yes, reuse appl workarea
3605;
3606 ADD AX,TMP_DOSWBUF ;10K or 8K for View/Copy buffer
3607;
3608CHS14: ADD AX,TMP_DIRBUF ;8K or 4K for first dir buffer
3609 TEST COM_STATE,COM_DRV2 ;multiple buffers configured?
3610 JZ CHS16 ;no, no second buffer needed
3611;
3612 ADD AX,TMP_DIRBUF ;8K or 4K for second dir buffer
3613;
3614CHS16: TEST COM_STATE2,COM_BUFO ;/B specified?
3615 JZ CHS18 ;no, add in for min file buffer
3616;
3617 ADD AX,COM_DFSIZE ;update total storage needed
3618 CMP BX,AX ;is storage available?
3619 JA CHS17 ;yes
3620;
3621 SUB AX,COM_DFSIZE ;back out and use all of storage
3622 JMP CHS18 ;continue
3623
3624; JB CHS_ERR ;no, display error message
3625;
3626CHS17: MOV BX,AX ;set to allocate storage
3627 JMP CHS20
3628;
3629CHS18: ADD AX,MIN_FILEBUF ;minimun file buffer to alloc
3630 CMP BX,AX ;is storage available
3631 JB CHS_ERR ;no, display error message
3632;
3633CHS20: MOV COM_DFSIZE,BX ;set to allocate all avail storage
3634 JMP CHS_OK
3635;
3636CHS_ERR: STC ;error
3637 JMP CHS_RET
3638;
3639CHS_OK: CLC ;OK
3640
3641CHS_RET: ;exit
3642;
3643 RET
3644CHK_MINDOS ENDP
3645;
3646PAGE
3647;-----------------------------------------------------------------------------+
3648; :
3649; Name: MANAGE_ERROR :
3650; :
3651; Description: Manage error messages. :
3652; :
3653; Entry: COM_ERRID = ID number of error message. :
3654; :
3655; Exit: None. :
3656; :
3657; Entry point: MANAGE_ERROR :
3658; :
3659; Notes: None. :
3660; :
3661; Internal references: GET_ERROR :
3662; :
3663; External references: INT 21H AH=09H Print string to standard output. :
3664; :
3665;-----------------------------------------------------------------------------+
3666;
3667MANAGE_ERROR PROC NEAR
3668;
3669; Process critcal error messages before initialization is complete
3670;
3671 CALL SET_DOSVMSHL ;set DOS video mode from shell
3672 ; video mode
3673;
3674 MOV AX,COM_ERRID ;calculate offset into error
3675 CALL FAR PTR GET_ERROR
3676;
3677 PUSH DS ;save data segment address
3678;
3679 MOV CX,AX ;set message length
3680 MOV DX,DI ;set message offset
3681 MOV AX,ES ;set message segment
3682 MOV DS,AX
3683;
3684 XOR AX,AX ;clear to zero
3685 MOV AH,40H ;set print string function number
3686 MOV BX,1 ;standard output
3687 INT 21H ;print string
3688;
3689 MOV AH,06 ;print <CR> to screen
3690 MOV DL,CR
3691 INT 21H
3692;
3693 MOV AH,06 ;print <LF> to screen
3694 MOV DL,LF
3695 INT 21H
3696;
3697 POP DS ;restore data segment address
3698;
3699 RET
3700MANAGE_ERROR ENDP
3701;
3702PAGE
3703;-----------------------------------------------------------------------------+
3704; :
3705; Name: EXAMINE_PSP :
3706; :
3707; Description: Examine Program Segment Prefix string for current :
3708; SHELLRD.EXE invocation parameters. :
3709; :
3710; Entry: PSP initialized. :
3711; :
3712; Exit: COM_STATE = Option word indicating invocation :
3713; parameters passed through PSP. :
3714; :
3715; Label Bit Description :
3716; -------- --- ----------------------------------- :
3717; COM_APPM 0 0= Application menu not configured. :
3718; 1= Application menu configured. :
3719; COM_DOSS 1 0= DOS Services not configured. :
3720; 1= DOS Services configured. :
3721; COM_REFD 2 0= Do not refresh directory buffer :
3722; during command line or PEC execution:
3723; 1= Refresh directory buffer during :
3724; command line or PEC execution. :
3725; COM_RESS 3 0= Transient shell. :
3726; 1= Resident shell. :
3727; COM_AUTI 4 0= Automatic predefined menu :
3728; installation is not active. :
3729; 1= Automatic predefined menu :
3730; installation is active. :
3731; COM_DRV2 5 0= Multiple drive buffer not active. :
3732; 1= Multiple drive buffer active. :
3733; COM_FLCL 6 0= Command line access is not active. :
3734; 1= Command line access is active. :
3735; COM_FLMI 7 0= Maintain menu item access is not :
3736; active. :
3737; 1= Maintain menu item access is active.:
3738; COM_FLCS 8 0= Maintain color selections access is :
3739; not active. :
3740; 1= Maintain color selections access is :
3741; active. :
3742; COM_FLED 9 0= Exit to DOS is not active. :
3743; 1= Exit to DOS is active. :
3744; COM_MOUS 10 0= Mouse is not active. :
3745; 1= Mouse is active. :
3746; COM_LFMS 11 0= Right hand mouse. :
3747; 1= Left hand mouse. :
3748; COM_M10H 12 0= No function assigned. :
3749; 1= Graphics EGA mode 10H requested :
3750; COM_M11H 13 0= No function assigned. :
3751; 1= Graphics VGA/MCGA mode 11H requested:
3752; COM_M12H 14 0= No function assigned. :
3753; 1= Graphics VGA mode 12H requested :
3754; COM_TEXT 15 0= No function assigned. :
3755; 1= Text mode is requested. :
3756; :
3757; COM_STATE2 = Option word indicating invocation :
3758; parameters passed through PSP. :
3759; :
3760; Label Bit Description :
3761; -------- --- ----------------------------------- :
3762; COM_SOUD 0 0= Sound not active. :
3763; 1= Sound active. :
3764; :
3765; COM_NLS 1 0= Not active. :
3766; 1= NLS help index display option active:
3767; :
3768; COM_DFSAV 2 0= Not active. :
3769; 1= Directory and file save active. :
3770; :
3771; COM_BUFO 3 0= Not active. :
3772; 1= Dir/file buffer size override on. :
3773; :
3774; COM_DBCS 4 0= Not active. :
3775; 1= DBCS active. :
3776; :
3777; COM_DATE 5 0= Not active. :
3778; 1= Date/time active. :
3779; :
3780; COM_COM2 5 0= Not active. D491:
3781; 1= COM2 active. D491:
3782; :
3783; COM_DFSIZE = Size of DOS directory and file buffer :
3784; to allocate in paragraphs. Used only :
3785; if buffer override option is active :
3786; in COM_STATE2. :
3787; :
3788; COM_PSPOFF = Offset of SHELL.EXE PSP :
3789; COM_PSPSEG = Segment of SHELL.EXE PSP :
3790; :
3791; Entry point: EXAMINE_PSP :
3792; :
3793; Notes: EXAMINE_PSP is beginning overlay point for mouse :
3794; driver. :
3795; :
3796; Internal references: MANAGE_ERROR :
3797; PCINSTR_CALL :
3798; :
3799; External references: INT 21H 19H Return current drive :
3800; INT 21H 47H Return current path :
3801; :
3802;-----------------------------------------------------------------------------+
3803;
3804EXAMINE_PSP PROC NEAR
3805;
3806; Intialize to search PSP for invocation options
3807;
3808 MOV INS_OPT,0 ;set to find string
3809 MOV ES, COM_PSPSEG ;get PSP segment
3810 MOV DI, 80H ;get offset of PSP length byte
3811 MOV CL, ES:[DI] ;get PSP length byte
3812 CMP CL, 0 ;any command line options?
3813 JA EP03 ;yes, continue
3814 MOV COM_ERRID,ERR_PSP ;invalid psp command line
3815 JMP EPEXIT ;exit
3816EP03: XOR CH, CH ;clear high byte
3817 MOV SI, COM_PSPOFF ;set offset of PSP
3818 ADD SI, 81H ;get command line buffer
3819 LEA DI, EP_CMDLIN ;set offset of command line buffer
3820 MOV INS_SOFF, DI ;save offset of command buffer
3821 MOV INS_SSEG, DATA ;save segment of command buffer
3822 MOV ES, INS_SSEG ;set segment of command buffer
3823 mov dl, 0 ;init comment flag
3824 mov ins_slen, 0 ;init length of command search str
3825 mov com_cmdact, 0 ;init actual length of commands
3826 mov com_cmdnum, 0 ;init length of commands found
3827;
3828EP034: PUSH DS ;save data seg
3829 MOV DS, COM_PSPSEG ;PSP segment is source seg
3830 mov al, ds:[si] ;
3831 POP DS ;
3832;
3833 cmp al, ' ' ;
3834 jbe ep039 ;
3835;
3836 cmp al, '{' ;
3837 jne ep037 ;
3838 mov dl, 1 ;
3839 jmp ep039 ;
3840;
3841EP037: cmp al, '}' ;
3842 jne ep038 ;
3843 mov dl, 0 ;
3844 jmp ep039 ;
3845;
3846EP038: cmp dl, 1 ;
3847 je ep039 ;
3848;
3849 cmp al, 'a' ;
3850 jb ep0385 ;
3851 cmp al, 'z' ;
3852 ja ep0385 ;
3853 sub al, 32 ;
3854;
3855ep0385: mov es:[di], al ;
3856 inc ins_slen ;
3857 inc com_cmdact ;
3858 inc di ;
3859;
3860ep039: inc si ;
3861 loop ep034 ;
3862;
3863 MOV EP_ENDOFF, DI ;set offset of last byte in buffer
3864;
3865; Check for profile filename /PRO:filename.PRO
3866;
3867EP1900: XOR AX,AX ;get current drive
3868 MOV AH,19H
3869 INT 21H
3870 ADD AL,65 ;convert from # to alpha char
3871 MOV COM_RFILSPEC,AL ;complete current drive and path
3872;
3873 MOV AH,47H ;read current path
3874 MOV DL,0
3875 LEA SI,COM_RFILSPEC+3 ;point past C:\
3876 INT 21H
3877 JNC EP1910 ;check for error
3878;
3879 MOV COM_ERRID,ERR_BADD ;bad disk or drive door open
3880 JMP EPEXIT
3881;
3882EP1910: MOV AX,STR_PROFACT ;profile active
3883 CALL CHECK_STRING ;search for string
3884 CMP INS_RSLT,0 ;check if not found, error
3885 JG EP1920
3886;
3887 JMP EP05 ;profile not active get next var
3888;
3889EP1920: ADD COM_CMDNUM,AX
3890;
3891 PUSH INS_FOFF ;save invocation parameter offset
3892;
3893 MOV CX,INS_RSLT ;save starting search point
3894 ADD CX,INS_FLEN ;point past /PRO: to beginning of
3895 ; profile file name
3896;
3897 MOV AX,STR_PROEXT ;profile extension
3898 CALL FAR PTR GET_STRING
3899;
3900 MOV INS_FLEN,AX ;length of find string
3901 MOV INS_FOFF,DI ;offset of find string '.PRO'
3902 MOV INS_FSEG,ES ;segment of string
3903 CALL PCINSTR_CALL ;search for string
3904;
3905 POP INS_FOFF ;restore before exit
3906;
3907 CMP INS_RSLT,0
3908 JG EP1930
3909;
3910 MOV COM_ERRID,ERR_MOUS ;invalid profile file
3911 JMP EPEXIT
3912;
3913EP1930: PUSH SI
3914 PUSH DS
3915;
3916 MOV AX,INS_RSLT
3917 SUB AX,CX ;ending offset - starting offset
3918 ADD AX,INS_FLEN ; + length of extension = # bytes
3919 ; to move
3920 ADD COM_CMDNUM,AX ;
3921 MOV BX,INS_SOFF ;calculate offset of source strg
3922 ADD BX,CX ; to move
3923 DEC BX
3924;
3925 PUSH BX ;save source offset
3926 PUSH INS_SSEG ;save source segment
3927;
3928 MOV CX,AX ; = number of bytes to move
3929 LEA DI,COM_RFILSPEC ;get dest offset
3930;
3931 PUSH DS
3932 PUSH ES
3933 POP DS
3934 POP ES
3935;
3936EP1940: MOV AL,ES:[DI] ;locate end of drive and path
3937 CMP AL,0 ; in shell profile name buffer
3938 JE EP1980
3939;
3940 INC DI ;point to next character
3941 JMP EP1940
3942;
3943EP1980: CMP BYTE PTR ES:[DI-1],'\' ;check if root and skip add of
3944 JE EP1990 ; file separator
3945;
3946 MOV BYTE PTR ES:[DI],'\' ;add path and filename separator
3947 INC DI ;point to where filename goes
3948;
3949EP1990: POP DS ;now move profile filename string
3950 POP SI ; to end of profile buffer path
3951;
3952 REP MOVSB ;copy profile filespec
3953;
3954 POP DS
3955 POP SI
3956;
3957; Open profile file
3958;
3959 MOV AH, 3DH ;DOS open handle
3960 MOV AL, 010B ;open for read/write
3961 LEA DX, COM_RFILSPEC ;set offset of profile filename
3962 INT 21H ;open profile file
3963 JNC EP_1992 ;continue if no error
3964 MOV COM_ERRID,ERR_MOUS ;bad disk or drive door open
3965 JMP EPEXIT
3966;
3967; Read profile file to command buffer ;
3968;
3969ep_1992: mov dl, 0
3970 mov di, ep_endoff
3971 MOV BX, AX ;set file handle
3972;
3973ep_1993: push dx
3974 MOV AH, 3FH ;DOS read handle
3975 mov cx, 1
3976 lea dx, gen_data
3977 INT 21H ;read profile into buffer
3978 JNC EP_1994 ;continue if no error
3979 pop dx
3980 MOV COM_ERRID,ERR_MOUS ;bad disk or drive door open
3981 JMP EPEXIT
3982
3983EP_1994: ; ADD INS_SLEN, AX ;
3984
3985
3986epx034:
3987 cmp ax, 0 ;
3988 ja epx035
3989;
3990 pop dx
3991 jmp ep1995
3992;
3993epx035: pop dx
3994;
3995 mov al, byte ptr gen_data ;
3996;
3997 cmp al, ' ' ;
3998 jbe epx039 ;
3999;
4000 cmp al, '{' ;
4001 jne epx037 ;
4002 mov dl, 1 ;
4003 jmp epx039 ;
4004;
4005epx037: cmp al, '}' ;
4006 jne epx038 ;
4007 mov dl, 0 ;
4008 jmp epx039 ;
4009;
4010epx038: cmp dl, 1 ;
4011 je epx039 ;
4012;
4013 cmp al, 'a' ;
4014 jb epx0385 ;
4015 cmp al, 'z' ;
4016 ja epx0385 ;
4017 sub al, 32 ;
4018;
4019epx0385: mov [di], al ;
4020 inc ins_slen ;
4021 inc com_cmdact ;
4022 inc di ;
4023;
4024epx039: jmp ep_1993 ;
4025;
4026; Close profile handle
4027;
4028EP1995: MOV AH, 3EH ;
4029 INT 21H ;close handle
4030 JNC EP05 ;continue if no error
4031 MOV COM_ERRID,ERR_MOUS ;bad disk or drive door open
4032 JMP EPEXIT
4033;
4034; Convert command string alpha to upper case
4035;
4036EP05: MOV ES,INS_SSEG ;get PSP command line segment
4037 MOV DI,INS_SOFF ;point to PSP command line string
4038 MOV CX,INS_SLEN ;get length of PSP
4039;
4040 MOV COM_STATE, 0 ;
4041 MOV COM_STATE2,0 ;initialize to zero
4042;
4043 MOV AX,STR_CDON ;
4044 CALL CHECK_STRING ;
4045 CMP INS_RSLT,0 ;
4046 JE EP2510 ;
4047 ADD COM_CMDNUM,AX ;
4048 OR COM_CONFIRM, COM_CONFDEL ;
4049ep2510:
4050 MOV AX,STR_CDOFF ;
4051 CALL CHECK_STRING ;
4052 CMP INS_RSLT,0 ;
4053 JE EP2511 ;
4054 ADD COM_CMDNUM,AX ;
4055 AND COM_CONFIRM,NOT COM_CONFDEL
4056ep2511:
4057 MOV AX,STR_CRON ;
4058 CALL CHECK_STRING ;
4059 CMP INS_RSLT,0 ;
4060 JE EP2520 ;
4061 ADD COM_CMDNUM,AX ;
4062 OR COM_CONFIRM, COM_CONFREPL;
4063ep2520:
4064 MOV AX,STR_CROFF ;
4065 CALL CHECK_STRING ;
4066 CMP INS_RSLT,0 ;
4067 JE EP2521 ;
4068 ADD COM_CMDNUM,AX ;
4069 AND COM_CONFIRM,NOT COM_CONFREPL
4070ep2521:
4071 MOV AX,STR_ASON ;
4072 CALL CHECK_STRING ;
4073 CMP INS_RSLT,0 ;
4074 JE EP2530 ;
4075 ADD COM_CMDNUM,AX ;
4076 OR COM_CONFIRM, COM_ALLOWSEL;
4077ep2530:
4078 MOV AX,STR_ASOFF ;
4079 CALL CHECK_STRING ;
4080 CMP INS_RSLT,0 ;
4081 JE EP2540 ;
4082 ADD COM_CMDNUM,AX ;
4083 AND COM_CONFIRM,NOT COM_ALLOWSEL
4084ep2540:
4085 MOV AX,STR_SBNAME ;
4086 CALL CHECK_STRING ;
4087 CMP INS_RSLT,0 ;
4088 JE EP2550 ;
4089 ADD COM_CMDNUM,AX ;
4090 MOV SORTSTAT, SST_NAME ;
4091 JMP EP2590
4092ep2550:
4093 MOV AX,STR_SBEXT ;
4094 CALL CHECK_STRING ;
4095 CMP INS_RSLT,0 ;
4096 JE EP2560 ;
4097 ADD COM_CMDNUM,AX ;
4098 MOV SORTSTAT, SST_EXT ;
4099 JMP EP2590
4100ep2560:
4101 MOV AX,STR_SBSIZE ;
4102 CALL CHECK_STRING ;
4103 CMP INS_RSLT,0 ;
4104 JE EP2570 ;
4105 ADD COM_CMDNUM,AX ;
4106 MOV SORTSTAT, SST_SIZE ;
4107 JMP EP2590
4108ep2570:
4109 MOV AX,STR_SBDATE ;
4110 CALL CHECK_STRING ;
4111 CMP INS_RSLT,0 ;
4112 JE EP2580 ;
4113 ADD COM_CMDNUM,AX ;
4114 MOV SORTSTAT, SST_DATE ;
4115 JMP EP2590
4116ep2580:
4117 MOV AX,STR_SBDISK ;
4118 CALL CHECK_STRING ;
4119 CMP INS_RSLT,0 ;
4120 JE EP2590 ;
4121 ADD COM_CMDNUM,AX ;
4122 MOV SORTSTAT, 0 ;
4123ep2590:
4124;
4125; Check for NLS translation option for help index display
4126;
4127 MOV AX,STR_NLS ;NLS configured
4128 CALL CHECK_STRING ;search for string
4129 CMP INS_RSLT,0
4130 JE EP25
4131;
4132 ADD COM_CMDNUM,AX ;add length to found length
4133 OR COM_STATE2,COM_NLS ;app menu configured
4134;
4135; Check for application menu option
4136;
4137EP25: MOV AX,STR_APPMENU ;app menu configured
4138 CALL CHECK_STRING ;search for string
4139 CMP INS_RSLT,0
4140 JE EP30
4141;
4142 ADD COM_CMDNUM,AX
4143 OR COM_STATE,COM_APPM ;app menu configured
4144;
4145; Check for DOS Services option
4146;
4147EP30: MOV AX,STR_DOSSERV ;DOS services configured
4148 CALL CHECK_STRING ;search for string
4149 CMP INS_RSLT,0
4150 JE EP50
4151;
4152 ADD COM_CMDNUM,AX
4153 OR COM_STATE,COM_DOSS ;DOS services configured
4154;
4155; Check for transient mode operation
4156;
4157EP50: MOV AX,STR_TRANS ;transient shell configured
4158 CALL CHECK_STRING ;search for string
4159 CMP INS_RSLT,0
4160 JNE EP51
4161;
4162 OR COM_STATE,COM_RESS ;resident shell configured
4163 JMP EP60
4164;
4165EP51: ADD COM_CMDNUM,AX
4166;
4167; Check for hi-res graphics mode operation = Mode 10
4168;
4169EP60: MOV AX,STR_MODE10H ;graphics mode 10H
4170 CALL CHECK_STRING ;search for string
4171 CMP INS_RSLT,0
4172 JE EP62
4173;
4174 ADD COM_CMDNUM,AX
4175 OR COM_STATE,COM_M10H ;activate graphics mode flag
4176 JMP EP74
4177;
4178; Check for hi-res graphics mode operation = Mode 11
4179;
4180EP62: MOV AX,STR_MODE11H ;graphics mode 11H
4181 CALL CHECK_STRING ;search for string
4182 CMP INS_RSLT,0
4183 JE EP64
4184;
4185 ADD COM_CMDNUM,AX
4186 OR COM_STATE,COM_M11H ;activate graphics mode flag
4187 JMP EP74
4188;
4189; Check for hi-res graphics mode operation = Mode 12
4190;
4191EP64: MOV AX,STR_MODE12H ;graphics mode 12H
4192 CALL CHECK_STRING ;search for string
4193 CMP INS_RSLT,0
4194 JE EP65
4195;
4196 ADD COM_CMDNUM,AX
4197 OR COM_STATE,COM_M12H ;activate graphics mode flag
4198 JMP EP74
4199;
4200; Check for text mode operation = Mode 7 or 3
4201;
4202EP65: MOV AX,STR_TEXTS ;graphics mode 12H
4203 CALL CHECK_STRING ;search for string
4204 CMP INS_RSLT,0
4205 JE EP66
4206;
4207 ADD COM_CMDNUM,AX
4208 OR COM_STATE,COM_TEXT ;activate text mode flag
4209 JMP EP74
4210;
4211; User did not set desired video mode, default to highest available
4212;
4213EP66: CMP GE_MODEL,MODEL_30 ;check if model 25 and 30
4214 JNE EP68
4215;
4216 CMP GE_SUBMODEL,SUBMD_30
4217 JE EP67
4218;
4219 CMP GE_SUBMODEL,SUBMD_25
4220 JNE EP68
4221;
4222EP67: OR COM_STATE,COM_M11H ;default to mode 11H
4223 JMP EP74
4224;
4225; Check for VGA video
4226;
4227EP68: MOV AX,1A00H ;BIOS check display
4228 INT 10H ;
4229 CMP AL,1AH ;VGA supported?
4230 JNE EP686 ;no, continue
4231;
4232; VGA video, check for INFOWINDOW display
4233;
4234 CMP BL, 4 ;infowindow display?
4235 JNE EP685 ;no, continue
4236;
4237 OR COM_STATE, COM_M10H ;mode for VGA with infowindow
4238 JMP EP74 ;continue
4239;
4240; VGA video, non-INFOWINDOW, set highest available mode
4241;
4242EP685: MOV AH, 1BH
4243 MOV BX, 0
4244 PUSH DS
4245 POP ES
4246 LEA DI, GEN_DATA
4247 INT 10H
4248 PUSH ES:[DI]
4249 PUSH ES:[DI+2]
4250 POP ES
4251 POP DI
4252;
4253 TEST BYTE PTR ES:[DI+2], 00000100B
4254 JZ EP6851
4255 OR COM_STATE, COM_M12H
4256 JMP EP74
4257EP6851: TEST BYTE PTR ES:[DI+2], 00000010B
4258 JZ EP6852
4259 OR COM_STATE, COM_M11H
4260 JMP EP74
4261EP6852: TEST BYTE PTR ES:[DI+2], 00000001B
4262 JZ EP6853
4263 OR COM_STATE, COM_M10H
4264 JMP EP74
4265EP6853: OR COM_STATE, COM_TEXT
4266 JMP EP74
4267;
4268; Check for EGA video
4269;
4270EP686: MOV AH,12H ;BIOS alternate select
4271 MOV BL,10H ;return EGA info
4272 INT 10H ;
4273 CMP BL,10H ;EGA video?
4274 JNE EP687 ;yes, continue
4275;
4276; CGA or Monochrome video
4277;
4278 OR COM_STATE,COM_TEXT ;text mode operation
4279 JMP EP74 ;continue
4280;
4281; EGA video, check for sufficient memory for mode 10
4282;
4283EP687: CMP BL,3H ;256K available?
4284 JAE EP688 ;yes, continue
4285;
4286 OR COM_STATE,COM_TEXT ;ega has no memory for mode 10
4287 JMP EP74 ;continue
4288;
4289; EGA with 256K, check for cga or monochrome emulation
4290;
4291EP688: AND CL,1111B ;save registers
4292 CMP CL,9
4293 JE EP689
4294;
4295; EGA emulating CGA or Monochrome
4296;
4297 OR COM_STATE,COM_TEXT
4298 JMP EP74
4299;
4300; EGA in EGA mode
4301;
4302EP689: OR COM_STATE,COM_M10H
4303;
4304; Check for application main menu filename
4305;
4306EP74: TEST COM_STATE,COM_APPM ;if app menu not configured do not
4307 JNE EP75 ; search for app main menu filespc
4308;
4309 MOV AX,STR_APMFILE ;app main menu filename
4310 CALL CHECK_STRING ;search for string
4311 CALL PCINSTR_CALL
4312 CMP INS_RSLT,0 ;check if parameter found
4313 JG EP75
4314;
4315 JMP EP112 ;check next parameter
4316;
4317EP75: XOR AX,AX ;get current drive
4318 MOV AH,19H
4319 INT 21H
4320 ADD AL,65 ;convert from # to alpha char
4321 MOV APP_MFILSPEC,AL ;complete current drive and path
4322;
4323 MOV AH,47H ;read current path
4324 MOV DL,0
4325 LEA SI,APP_MFILSPEC+3 ;point past C:\
4326 INT 21H
4327 JNC EP78 ;check for error
4328;
4329 MOV COM_ERRID,ERR_BADD ;bad disk or drive door open
4330 JMP EPEXIT
4331;
4332EP78: MOV AX,STR_APMFILE ;app main menu filename
4333 CALL CHECK_STRING ;search for string
4334 CMP INS_RSLT,0
4335 JG EP80
4336;
4337 MOV AX,STR_APPMFILE ;default app menu filename
4338 CALL FAR PTR GET_STRING ;user did not supply new app menu
4339;
4340 PUSH SI ;save data segment
4341 PUSH DS
4342;
4343 PUSH DI ;save filename offset
4344 PUSH ES ;save filename segment
4345;
4346 JMP EP92 ; SHELL.MEU file instead
4347;
4348EP80: PUSH INS_FOFF ;save invocation parameter offset
4349 ADD COM_CMDNUM,AX
4350;
4351 MOV CX,INS_RSLT ;save starting search point
4352 ADD CX,INS_FLEN ;point past /MEU: to beginning of
4353 ; menu file name
4354 MOV AX,STR_AAPEXT ;main application menu extension
4355 CALL FAR PTR GET_STRING
4356;
4357 MOV INS_FLEN,AX ;length of string
4358 MOV INS_FOFF,DI ;offset of string '.MEU'
4359 MOV INS_FSEG,ES ;segment of string
4360 CALL PCINSTR_CALL ;search for string
4361;
4362 POP INS_FOFF
4363;
4364 CMP INS_RSLT,0
4365 JG EP90
4366;
4367 MOV COM_ERRID,ERR_APIF ;invalid main app menu filename
4368 JMP EPEXIT
4369;
4370EP90: PUSH SI ;save data segment
4371 PUSH DS
4372;
4373 MOV AX,INS_RSLT
4374 SUB AX,CX ;ending offset - starting offset
4375 ADD AX,INS_FLEN ; + length of extension = # bytes
4376 ; to move
4377 ADD COM_CMDNUM,AX
4378;
4379 MOV BX,INS_SOFF ;calculate offset of source strg
4380 ADD BX,CX ; to move
4381 DEC BX
4382;
4383 PUSH BX ;save source offset
4384 PUSH INS_SSEG ;save source segment
4385;
4386EP92: MOV CX,AX ; = number of bytes to move
4387 LEA DI,APP_MFILSPEC ;get dest offset
4388;
4389 PUSH DS
4390 PUSH ES
4391 POP DS
4392 POP ES
4393;
4394EP94: MOV AL,ES:[DI] ;locate end of drive and path
4395 CMP AL,0 ; in shell app menu file buffer
4396 JE EP98
4397;
4398 INC DI ;point to next character
4399 JMP EP94
4400;
4401EP98: CMP BYTE PTR ES:[DI-1],'\' ;check if root and skip add of
4402 JE EP99 ; file separator
4403;
4404 MOV BYTE PTR ES:[DI],'\' ;add path and filename separator
4405 INC DI ;point to where filename goes
4406;
4407EP99: POP DS ;now move shell menu filename to
4408 POP SI ; end of app menu file path
4409;
4410 REP MOVSB ;copy application menu filespec
4411;
4412 POP DS
4413 POP SI
4414;
4415; Move copy of menu filename to first menu buffer
4416;
4417EP100: MOV AX,STR_APMFILE ;app main menu filename
4418 CALL CHECK_STRING ;search for string
4419 CMP INS_RSLT,0
4420 JG EP103
4421;
4422 MOV AX,STR_APPMFILE ;default app menu filename
4423 CALL FAR PTR GET_STRING ;user did not supply new app menu
4424;
4425 PUSH SI ;save data segment
4426 PUSH DS
4427;
4428 PUSH DI ;save filename offset
4429 PUSH ES ;save filename segment
4430;
4431 JMP EP105 ; SHELL.MEU file instead
4432;
4433EP103: PUSH INS_FOFF ;save invocation parameter offset
4434;
4435 MOV CX,INS_RSLT ;save starting search point
4436 ADD CX,INS_FLEN ;point past /MEU: to beginning of
4437 ; menu file name
4438 MOV AX,STR_AAPEXT ;main application menu extension
4439 CALL FAR PTR GET_STRING
4440;
4441 MOV INS_FLEN,AX ;length of string
4442 MOV INS_FOFF,DI ;offset of string '.MEU'
4443 MOV INS_FSEG,ES ;segment of string
4444 CALL PCINSTR_CALL ;search for string
4445;
4446 POP INS_FOFF
4447;
4448 CMP INS_RSLT,0
4449 JG EP104
4450;
4451 MOV COM_ERRID,ERR_APIF ;invalid main app menu filename
4452 JMP EPEXIT
4453;
4454EP104: PUSH SI ;save data segment
4455 PUSH DS
4456;
4457 MOV AX,INS_RSLT
4458 SUB AX,CX ;ending offset - starting offset
4459 ADD AX,INS_FLEN ; + length of extension = # bytes
4460 ; to move
4461;
4462 MOV BX,INS_SOFF ;calculate offset of source strg
4463 ADD BX,CX ; to move
4464 DEC BX
4465;
4466 PUSH BX ;save source offset
4467 PUSH INS_SSEG ;save source segment
4468;
4469EP105: MOV CX,AX ; = number of bytes to move
4470 LEA DI,APP_MFILNAME ;get dest offset
4471;
4472 PUSH DS
4473 PUSH ES
4474 POP DS
4475 POP ES
4476;
4477EP108: POP DS ;now move shell menu filename to
4478 POP SI ; end of app menu file path
4479;
4480 REP MOVSB ;copy application menu filespec
4481;
4482 POP DS
4483 POP SI
4484;
4485; Check for color filename
4486;
4487EP112: XOR AX,AX ;get current drive
4488 MOV AH,19H
4489 INT 21H
4490 ADD AL,65 ;convert from # to alpha char
4491 MOV COM_CFILSPEC,AL ;complete current drive and path
4492;
4493 MOV AH,47H ;read current path
4494 MOV DL,0
4495 LEA SI,COM_CFILSPEC+3 ;point past C:\
4496 INT 21H
4497 JNC EP115 ;check for error
4498;
4499 MOV COM_ERRID,ERR_BADD ;bad disk or drive door open
4500 JMP EPEXIT
4501;
4502EP115: MOV AX,STR_CLFILE ;color filename
4503 CALL CHECK_STRING ;search for string
4504 CMP INS_RSLT,0 ;check if not found, error
4505 JG EP118
4506;
4507 MOV AX,STR_CLRFILE ;default color filename
4508 CALL FAR PTR GET_STRING ;user did not supply new app menu
4509;
4510 PUSH SI ;save data segment
4511 PUSH DS
4512;
4513 PUSH DI ;save offset of filename
4514 PUSH ES ;save segment of filename
4515;
4516 JMP EP122 ; SHELL.CLR file
4517;
4518EP118: PUSH INS_FOFF ;save invocation parameter offset
4519 ADD COM_CMDNUM,AX
4520;
4521 MOV CX,INS_RSLT ;save starting search point
4522 ADD CX,INS_FLEN ;point past /K: to beginning of
4523 ; color file name
4524;
4525 MOV AX,STR_CLREXT ;color profile extension
4526 CALL FAR PTR GET_STRING
4527;
4528 MOV INS_FLEN,AX ;length of find string
4529 MOV INS_FOFF,DI ;offset of find string '.CLR'
4530 MOV INS_FSEG,ES ;segment of string
4531 CALL PCINSTR_CALL ;search for string
4532;
4533 POP INS_FOFF ;restore before exit
4534;
4535 CMP INS_RSLT,0
4536 JG EP120
4537;
4538 MOV COM_ERRID,ERR_CLRF ;invalid user color profile
4539 JMP EPEXIT
4540;
4541EP120: PUSH SI
4542 PUSH DS
4543;
4544 MOV AX,INS_RSLT
4545 SUB AX,CX ;ending offset - starting offset
4546 ADD AX,INS_FLEN ; + length of extension = # bytes
4547 ; to move
4548 ADD COM_CMDNUM,AX
4549 MOV BX,INS_SOFF ;calculate offset of source strg
4550 ADD BX,CX ; to move
4551 DEC BX
4552;
4553 PUSH BX ;save source offset
4554 PUSH INS_SSEG ;save source segment
4555;
4556EP122: MOV CX,AX ; = number of bytes to move
4557 LEA DI,COM_CFILSPEC ;get dest offset
4558;
4559 PUSH DS
4560 PUSH ES
4561 POP DS
4562 POP ES
4563;
4564EP124: MOV AL,ES:[DI] ;locate end of drive and path
4565 CMP AL,0 ; in shell color file buffer
4566 JE EP128
4567;
4568 INC DI ;point to next character
4569 JMP EP124
4570;
4571EP128: CMP BYTE PTR ES:[DI-1],'\' ;check if root and skip add of
4572 JE EP129 ; file separator
4573;
4574 MOV BYTE PTR ES:[DI],'\' ;add path and filename separator
4575 INC DI ;point to where filename goes
4576;
4577EP129: POP DS ;now move color filename string
4578 POP SI ; to end of color buffer path
4579;
4580 REP MOVSB ;copy color index filespec
4581;
4582 POP DS
4583 POP SI
4584;
4585; Check for multiple DOS Service drive buffers
4586;
4587EP130: MOV AX,STR_MULTIPE ;multiple drive display
4588 CALL CHECK_STRING ;search for string
4589 CMP INS_RSLT,0
4590 JE EP140
4591;
4592 ADD COM_CMDNUM,AX
4593 OR COM_STATE,COM_DRV2
4594;
4595; Check for active maintain color option
4596;
4597EP140: MOV AX,STR_CLRACT ;color active
4598 CALL CHECK_STRING ;search for string
4599 CMP INS_RSLT,0 ;
4600 JE EP150 ;
4601;
4602 ADD COM_CMDNUM,AX
4603 OR COM_STATE,COM_FLCS ;maintain color is active
4604;
4605; Check for active maintain menu option
4606;
4607EP150: MOV AX,STR_MENUACT ;menu maintainance active
4608 CALL CHECK_STRING ;search for string
4609 CMP INS_RSLT,0
4610 JE EP160
4611;
4612 ADD COM_CMDNUM,AX
4613 OR COM_STATE,COM_FLMI ;maintain menu is active
4614;
4615; Check for active exit to DOS option
4616;
4617EP160: AND FLAG_FSEXIT, NOT DIT_L1 ;turn exit to DOS dither off start
4618 AND FLAG_FDEXIT, NOT DIT_L1 ;turn exit file system dither off
4619;
4620 MOV AX,STR_EXITDOS ;exit to DOS active
4621 CALL CHECK_STRING ;search for string
4622;
4623 OR FLAG_FSEXIT, DIT_L1 ;turn exit to DOS dither on start
4624;
4625 TEST COM_STATE,COM_APPM ;app menu configured
4626 JNZ EP161 ;
4627;
4628 OR FLAG_FDEXIT, DIT_L1 ;turn exit from file system dither
4629 ; on
4630;
4631EP161: CMP INS_RSLT,0
4632 JE EP170
4633;
4634 ADD COM_CMDNUM,AX
4635 OR COM_STATE,COM_FLED ;exit to DOS is active
4636;
4637 AND FLAG_FSEXIT, NOT DIT_L1 ;turn exit to DOS dither off start
4638 AND FLAG_FDEXIT, NOT DIT_L1 ;turn exit file system dither off
4639;
4640; Check for active command line option
4641;
4642EP170: MOV AX,STR_CMDLINE ;command line active
4643 CALL CHECK_STRING ;search for string
4644 CMP INS_RSLT,0
4645 JE EP180
4646;
4647 ADD COM_CMDNUM,AX
4648 OR COM_STATE,COM_FLCL ;command line is active
4649;
4650; Check for predefined menu installation option
4651;
4652EP180: MOV AX,STR_PREDACT ;predefined menu active
4653 CALL CHECK_STRING ;search for string
4654 CMP INS_RSLT,0
4655 JE EP190
4656;
4657 ADD COM_CMDNUM,AX
4658 OR COM_STATE,COM_AUTI ;predefined is active
4659;
4660; Check for mouse filename /MOS:filename.MOS
4661;
4662EP190: XOR AX,AX ;get current drive
4663 MOV AH,19H
4664 INT 21H
4665 ADD AL,65 ;convert from # to alpha char
4666 MOV COM_VFILSPEC,AL ;complete current drive and path
4667;
4668 MOV AH,47H ;read current path
4669 MOV DL,0
4670 LEA SI,COM_VFILSPEC+3 ;point past C:\
4671 INT 21H
4672 JNC EP191 ;check for error
4673;
4674 MOV COM_ERRID,ERR_BADD ;bad disk or drive door open
4675 JMP EPEXIT
4676;
4677EP191: MOV AX,STR_MOUSACT ;mouse active
4678 CALL CHECK_STRING ;search for string
4679 CMP INS_RSLT,0 ;check if not found, error
4680 JG EP192
4681;
4682 JMP EP200 ;mouse is not active get next var
4683;
4684EP192: OR COM_STATE,COM_MOUS ;mouse is active
4685 ADD COM_CMDNUM,AX
4686;
4687 PUSH INS_FOFF ;save invocation parameter offset
4688;
4689 MOV CX,INS_RSLT ;save starting search point
4690 ADD CX,INS_FLEN ;point past /MOS: to beginning of
4691 ; mouse file name
4692;
4693 MOV AX,STR_MOSEXT ;mouse extension
4694 CALL FAR PTR GET_STRING
4695;
4696 MOV INS_FLEN,AX ;length of find string
4697 MOV INS_FOFF,DI ;offset of find string '.MOS'
4698 MOV INS_FSEG,ES ;segment of string
4699 CALL PCINSTR_CALL ;search for string
4700;
4701 POP INS_FOFF ;restore before exit
4702;
4703 CMP INS_RSLT,0
4704 JG EP193
4705;
4706 MOV COM_ERRID,ERR_MOUS ;invalid mouse driver
4707 JMP EPEXIT
4708;
4709EP193: PUSH SI
4710 PUSH DS
4711;
4712 MOV AX,INS_RSLT
4713 SUB AX,CX ;ending offset - starting offset
4714 ADD AX,INS_FLEN ; + length of extension = # bytes
4715 ; to move
4716 ADD COM_CMDNUM,AX
4717 MOV BX,INS_SOFF ;calculate offset of source strg
4718 ADD BX,CX ; to move
4719 DEC BX
4720;
4721 PUSH BX ;save source offset
4722 PUSH INS_SSEG ;save source segment
4723;
4724 MOV CX,AX ; = number of bytes to move
4725 LEA DI,COM_VFILSPEC ;get dest offset
4726;
4727 PUSH DS
4728 PUSH ES
4729 POP DS
4730 POP ES
4731;
4732EP194: MOV AL,ES:[DI] ;locate end of drive and path
4733 CMP AL,0 ; in shell mouse file buffer
4734 JE EP198
4735;
4736 INC DI ;point to next character
4737 JMP EP194
4738;
4739EP198: CMP BYTE PTR ES:[DI-1],'\' ;check if root and skip add of
4740 JE EP199 ; file separator
4741;
4742 MOV BYTE PTR ES:[DI],'\' ;add path and filename separator
4743 INC DI ;point to where filename goes
4744;
4745EP199: POP DS ;now move mouse filename string
4746 POP SI ; to end of mouse buffer path
4747;
4748 REP MOVSB ;copy mouse index filespec
4749;
4750 POP DS
4751 POP SI
4752;
4753; Check for left hand mouse option
4754;
4755EP200: MOV AX,STR_LEFTACT ;left hand mouse
4756 CALL CHECK_STRING ;search for string
4757 CMP INS_RSLT,0
4758 JE EP205
4759;
4760 ADD COM_CMDNUM,AX
4761 OR COM_STATE,COM_LFMS ;left hand mouse
4762;
4763; Check for sound active option
4764;
4765EP205: MOV AX,STR_SOUDACT ;sound active
4766 CALL CHECK_STRING ;search for string
4767 CMP INS_RSLT,0
4768 JE EP207
4769;
4770 ADD COM_CMDNUM,AX
4771 OR COM_STATE2,COM_SOUD ;sound active
4772;
4773; Check for dir/file buffer save option
4774;
4775EP207: MOV AX,STR_DFSAVE ;check if option active
4776 CALL CHECK_STRING ;search for string
4777 CMP INS_RSLT,0
4778 JE EP210
4779;
4780 ADD COM_CMDNUM,AX
4781 OR COM_STATE2,COM_DFSAVE ;dir/file buffer save option
4782 ; active
4783;
4784; Save filespec of shell.hlp at COM_HFILSPEC
4785;
4786EP210: XOR AX,AX ;get current drive
4787 MOV AH,19H
4788 INT 21H
4789 ADD AL,65 ;convert from # to alpha char
4790 MOV COM_HFILSPEC,AL ;complete current drive and path
4791;
4792 MOV AH,47H ;read current path
4793 MOV DL,0
4794 LEA SI,COM_HFILSPEC+3 ;point past C:\
4795 INT 21H
4796 JNC EP250
4797;
4798 MOV COM_ERRID,ERR_BADD ;bad disk or drive door open
4799 JMP EPEXIT
4800;
4801EP250: LEA DI,COM_HFILSPEC ;get dest offset
4802;
4803 MOV AX,DS
4804 MOV ES,AX
4805;
4806EP260: MOV AL,ES:[DI] ;locate end of drive and path
4807 CMP AL,0 ; in shell help file buffer
4808 JE EP270
4809;
4810 INC DI ;point to next character
4811 JMP EP260
4812;
4813EP270: CMP BYTE PTR ES:[DI-1],'\' ;check if root and skip add of
4814 JE EP275 ; file separator
4815;
4816 MOV BYTE PTR ES:[DI],'\' ;add path and filename separator
4817 INC DI ;point to where filename goes
4818;
4819EP275: PUSH DS ;save register
4820;
4821 PUSH DI
4822 MOV AX,STR_HLPFILE ;default help text filename
4823 CALL FAR PTR GET_STRING
4824 MOV SI,DI ;get offset of SHELL.HLP
4825 MOV CX,AX ;get length
4826 POP DI
4827;
4828 PUSH ES ;set source segment
4829 POP DS
4830;
4831 REP MOVSB
4832;
4833 POP DS ;restore
4834;
4835; Check for associate filename /ASC:filename.ASC
4836;
4837EP300: XOR AX,AX ;get current drive
4838 MOV AH,19H
4839 INT 21H
4840 ADD AL,65 ;convert from # to alpha char
4841 MOV COM_AFILSPEC,AL ;complete current drive and path
4842;
4843 MOV AH,47H ;read current path
4844 MOV DL,0
4845 LEA SI,COM_AFILSPEC+3 ;point past C:\
4846 INT 21H
4847 JNC EP315 ;check for error
4848;
4849 MOV COM_ERRID,ERR_BADD ;bad disk or drive door open
4850 JMP EPEXIT
4851;
4852EP315: MOV AX,STR_ASOFILE ;associate filename /ASO
4853 CALL CHECK_STRING ;search for string
4854 CMP INS_RSLT,0 ;check if not found, error
4855 JG EP318
4856;
4857 MOV AX,STR_ASCEXT ;default associate filename
4858 CALL FAR PTR GET_STRING ;user did not supply new app menu
4859;
4860 PUSH SI ;save data segment
4861 PUSH DS
4862;
4863 PUSH DI ;save offset of filename
4864 PUSH ES ;save segment of filename
4865;
4866 JMP EP322 ; SHELL.ASO file
4867;
4868EP318: PUSH INS_FOFF ;save invocation parameter offset
4869 ADD COM_CMDNUM,AX
4870;
4871 MOV CX,INS_RSLT ;save starting search point
4872 ADD CX,INS_FLEN ;point past /ASO: to beginning of
4873 ; associate file name
4874;
4875 MOV AX,STR_ASOEXT ;assoicate profile extension
4876 CALL FAR PTR GET_STRING
4877;
4878 MOV INS_FLEN,AX ;length of find string
4879 MOV INS_FOFF,DI ;offset of find string '.ASO'
4880 MOV INS_FSEG,ES ;segment of string
4881 CALL PCINSTR_CALL ;search for string
4882;
4883 POP INS_FOFF ;restore before exit
4884;
4885 CMP INS_RSLT,0
4886 JG EP320
4887;
4888 MOV COM_ERRID,ERR_ASRF ;invalid user associate profile
4889 JMP EPEXIT
4890;
4891EP320: PUSH SI
4892 PUSH DS
4893;
4894 MOV AX,INS_RSLT
4895 SUB AX,CX ;ending offset - starting offset
4896 ADD AX,INS_FLEN ; + length of extension = # bytes
4897 ; to move
4898 ADD COM_CMDNUM,AX
4899 MOV BX,INS_SOFF ;calculate offset of source strg
4900 ADD BX,CX ; to move
4901 DEC BX
4902;
4903 PUSH BX ;save source offset
4904 PUSH INS_SSEG ;save source segment
4905;
4906EP322: MOV CX,AX ; = number of bytes to move
4907 LEA DI,COM_AFILSPEC ;get dest offset
4908;
4909 PUSH DS
4910 PUSH ES
4911 POP DS
4912 POP ES
4913;
4914EP324: MOV AL,ES:[DI] ;locate end of drive and path
4915 CMP AL,0 ; in shell associate file buffer
4916 JE EP328
4917;
4918 INC DI ;point to next character
4919 JMP EP324
4920;
4921EP328: CMP BYTE PTR ES:[DI-1],'\' ;check if root and skip add of
4922 JE EP329 ; file separator
4923;
4924 MOV BYTE PTR ES:[DI],'\' ;add path and filename separator
4925 INC DI ;point to where filename goes
4926;
4927EP329: POP DS ;now move filename string
4928 POP SI ; to end of buffer path
4929;
4930 REP MOVSB ;copy associate filespec
4931;
4932 POP DS
4933 POP SI
4934;
4935; Check for buffer size override
4936;
4937EP350: MOV AX,STR_BUFO ;buffer size override active
4938 CALL CHECK_STRING ;search for string
4939 CMP INS_RSLT,0
4940 JE EP390
4941;
4942 ADD COM_CMDNUM,AX
4943 MOV AX,INS_SSEG ;segment of PSP
4944 MOV ES,AX
4945 MOV BX,INS_SOFF ;offset of PSP
4946 ADD BX,INS_RSLT ;start of /B: parm
4947 ADD BX,INS_FLEN ;start of kilobyte value
4948 DEC BX ;adjust for zero offset
4949 PUSH BX
4950;
4951EP360: CMP ES:BYTE PTR[BX],'0' ;ASCII digit GE 0
4952 JB EP370 ;no, end of digits
4953;
4954 CMP ES:BYTE PTR[BX],'9' ;ASCII digit LE 9
4955 JA EP370 ;no, end of digits
4956;
4957 INC BX
4958 JMP EP360 ;check next digit
4959;
4960EP370: POP AX
4961 CMP AX,BX ;any digits?
4962 JE EP390 ;no, ignore /B parm
4963;
4964 MOV ST2_OPT1,ST2_DEC16BI+ST2_SETSTRLEN
4965 ;convert ASCII value
4966 MOV ST2_STRGSEG,ES ;segment of value
4967 MOV ST2_STRGOFF,AX ;offset of value
4968 SUB BX,AX ;calculate numbers of digits
4969 MOV ST2_STRGLEN,BX ;set length to convert
4970 ADD COM_CMDNUM,BX
4971;
4972 CALL PCST2IN_CALL ;convert the value
4973;
4974 TEST ST2_ERROR,ST2_OUTOFMEM ;value too large
4975 JNZ EP375 ;yes, set to fail during alloc
4976;
4977 CMP ST2_NUMH,0 ;value too large
4978 JNE EP375 ;yes, set to fail during alloc
4979;
4980 CMP ST2_NUML,960 ;value to large
4981 JB EP380 ;no, attempt to alloc it
4982;
4983EP375: MOV COM_DFSIZE,0F000H ;set to fail during alloc
4984 JMP EP385
4985
4986EP380: MOV AX,ST2_NUML ;get kilobyte value
4987 MOV BX,64 ;convert to paragraphs
4988 MUL BX ;kilo -> para
4989 MOV COM_DFSIZE,AX ;set value to allocate
4990
4991EP385: OR COM_STATE2,COM_BUFO ;buffer size override active
4992;
4993; Check if DBCS is active
4994;
4995EP390: MOV AX,STR_DBCS ;DBCS active
4996 CALL CHECK_STRING ;search for string
4997 CMP INS_RSLT,0
4998 JE EP395
4999;
5000 ADD COM_CMDNUM,AX
5001 OR COM_STATE2,COM_DBCS ;DBCS active
5002;
5003; Check for date/time active option
5004;
5005EP395: MOV AX,STR_DATE ;date active
5006 CALL CHECK_STRING ;search for string
5007 CMP INS_RSLT,0
5008 JE EP397
5009;
5010 ADD COM_CMDNUM,AX
5011 OR COM_STATE2,COM_DATE ;date/time active
5012;
5013; Check for COM2 active option
5014;
5015EP397: MOV AX,STR_COM2 ;COM2 active
5016 CALL CHECK_STRING ;search for string
5017 CMP INS_RSLT,0
5018 JE EP398
5019;
5020 ADD COM_CMDNUM,AX
5021 OR COM_STATE2,COM_COM2 ;COM2 active
5022;
5023; Check for enhancement activation
5024;
5025EP398: MOV AX,STR_ENH ;COM2 active
5026 CALL CHECK_STRING ;search for string
5027 CMP INS_RSLT,0 ;
5028;>>SN JE EP400
5029 JE EP399 ;>>SN
5030;
5031 ADD COM_CMDNUM,AX
5032 OR COM_STATE2,COM_ENHA ;COM2 active
5033; ;>>SN
5034; Check for Special Needs option ;>>SN
5035; ;>>SN
5036EP399: MOV AX, STR_SN ;>>SN
5037 CALL CHECK_STRING ;>>SN
5038 CMP INS_RSLT,0 ;>>SN
5039 JE EP400 ;>>SN
5040; ;>>SN
5041 ADD COM_CMDNUM, AX ;>>SN
5042 OR COM_STATE2,COM_SNA ;>>SN
5043;
5044; Check for invalid parameters
5045;
5046EP400:
5047 MOV AX, COM_CMDACT
5048 CMP AX, COM_CMDNUM
5049 JE EP405
5050;
5051 MOV COM_ERRID,ERR_BADCMD
5052 JMP EPEXIT
5053;
5054; Check for missing invocation parameter errors
5055;
5056EP405: TEST COM_STATE,COM_APPM
5057 JNE EP410
5058;
5059 TEST COM_STATE,COM_DOSS
5060 JNE EP410
5061;
5062 MOV COM_ERRID,ERR_NODA ;dos/app both not active
5063 JMP EPEXIT
5064;
5065; Turn off color selection if mode 11 active
5066;
5067EP410: TEST COM_STATE,COM_M11H ;
5068 JZ EPEXIT ;
5069;
5070 AND COM_STATE, NOT COM_FLCS ;
5071;
5072EPEXIT: ;exit
5073;
5074 RET
5075EXAMINE_PSP ENDP
5076;
5077PAGE
5078;-----------------------------------------------------------------------------+
5079; :
5080; Name: CHECK_STRING :
5081; :
5082; Description: Search for string identified by AX. :
5083; :
5084; Entry: AX = String ID. :
5085; :
5086; Exit: INS_RSLT = Offset into search string where match :
5087; found. :
5088; Entry point: CHECK_STRING :
5089; :
5090; Notes: None. :
5091; :
5092; Internal references: None. :
5093; :
5094; External references: None. :
5095; :
5096;-----------------------------------------------------------------------------+
5097;
5098CHECK_STRING PROC NEAR
5099;
5100 CALL FAR PTR GET_STRING ;get address and length of string
5101;
5102 MOV INS_SPOFF,0 ;start at beginning of command lin
5103 MOV INS_FLEN,AX ;set length of string to find
5104 MOV INS_FOFF,DI ;set offset of string to find
5105 MOV INS_FSEG,ES ;set segment of string to find
5106 CALL PCINSTR_CALL
5107;
5108CHKSEXIT: ;exit
5109;
5110 RET
5111CHECK_STRING ENDP
HIC SVNT DRACONES