summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/REPLACE/_PARSE.ASM
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/REPLACE/_PARSE.ASM')
-rw-r--r--v4.0/src/CMD/REPLACE/_PARSE.ASM119
1 files changed, 119 insertions, 0 deletions
diff --git a/v4.0/src/CMD/REPLACE/_PARSE.ASM b/v4.0/src/CMD/REPLACE/_PARSE.ASM
new file mode 100644
index 0000000..2889797
--- /dev/null
+++ b/v4.0/src/CMD/REPLACE/_PARSE.ASM
@@ -0,0 +1,119 @@
1page 60,132 ;
2name _parse
3title C to PARSER interface
4;-------------------------------------------------------------------
5;
6; MODULE: _parse
7;
8; PURPOSE: Supplies an interface between C programs and
9; the DOS 3.3 parser
10;
11; CALLING FORMAT:
12; parse(&inregs,&outregs);
13;
14; DATE: 5-21-87
15;
16;-------------------------------------------------------------------
17
18; extrn sysparse:far
19
20 public _parse ;AN000;
21
22;-------------------------------------------------------------------
23
24; SET FOR REPLACE
25; -------------
26
27FarSW equ 0 ; make sysparse be a NEAR proc ;AN000;
28TimeSW equ 0 ; Check time format ;AN000;
29FileSW equ 1 ; Check file specification ;AN000;
30CAPSW equ 1 ; Perform CAPS if specified ;AN000;
31CmpxSW equ 0 ; Check complex list ;AN000;
32NumSW equ 0 ; Check numeric value ;AN000;
33KeySW equ 0 ; Support keywords ;AN000;
34SwSW equ 1 ; Support switches ;AN000;
35Val1SW equ 0 ; Support value definition 1 ;AN000;
36Val2SW equ 0 ; Support value definition 2 ;AN000;
37Val3SW equ 0 ; Support value definition 3 ;AN000;
38DrvSW equ 1 ; Support drive only format ;AN000;
39QusSW equ 0 ; Support quoted string format ;AN000;
40;-------------------------------------------------------------------
41
42DGROUP GROUP _DATA
43PGROUP GROUP _TEXT
44
45_DATA segment byte public 'DATA' ;AN000;
46BASESW = 1 ;SPECIFY, PSDATA POINTED TO BY "DS"
47INCSW = 0 ;PSDATA.INC IS ALREADY INCLUDED
48 INCLUDE PSDATA.INC ;PARSER'S WORK SPACE
49_DATA ends ;AN000;
50
51_TEXT segment byte public 'CODE' ;AN000;
52
53 ASSUME CS: PGROUP ;AN000;
54 ASSUME DS: DGROUP ;AN000;
55
56;-------------------------------------------------------------------
57 include parse.asm ; include the parser ;AN000;
58;-------------------------------------------------------------------
59
60_parse proc near ;AN000;
61
62 push bp ; save user's base pointer ;AN000;
63 mov bp,sp ; set bp to current sp ;AN000;
64 push di ; save some registers ;AN000;
65 push si ;AN000;
66
67; copy C inregs into proper registers
68
69 mov di,[bp+4] ; fix di (arg 0) ;AN000;
70
71;-------------------------------------------------------------------
72
73 mov ax,[di+0ah] ; load di ;AN000;
74 push ax ; the di value from inregs is now on stack;AN000;
75
76 mov ax,[di+00] ; get inregs.x.ax ;AN000;
77 mov bx,[di+02] ; get inregs.x.bx ;AN000;
78 mov cx,[di+04] ; get inregs.x.cx ;AN000;
79 mov dx,[di+06] ; get inregs.x.dx ;AN000;
80 mov si,[di+08] ; get inregs.x.si ;AN000;
81 pop di ; get inregs.x.di from stack ;AN000;
82
83 push bp ; save base pointer ;AN000;
84
85;-------------------------------------------------------------------
86 call sysparse ; call the parser ;AN000;
87;-------------------------------------------------------------------
88
89 pop bp ; restore base pointer ;AN000;
90 push di ; the di value from call is now on stack;AN000;
91 mov di,[bp+6] ; fix di (arg 1) ;AN000;
92
93 mov [di+00],ax ; load outregs.x.ax ;AN000;
94 mov [di+02],bx ; load outregs.x.bx ;AN000;
95 mov [di+04],cx ; load outregs.x.cx ;AN000;
96 mov [di+06],dx ; load outregs.x.dx ;AN000;
97 mov [di+08],si ; load outregs.x.si ;AN000;
98
99 lahf ; get flags into ax ;AN000;
100 mov al,ah ; move into low byte ;AN000;
101 mov [di+0ch],ax ; load outregs.x.cflag ;AN000;
102
103 pop ax ; get di from stack ;AN000;
104 mov [di+0ah],ax ; load outregs.x.di ;AN000;
105
106;-------------------------------------------------------------------
107
108 pop si ; restore registers ;AN000;
109 pop di ;AN000;
110 mov sp,bp ; restore sp ;AN000;
111 pop bp ; restore user's bp ;AN000;
112 ret ;AN000;
113
114_parse endp ;AN000;
115
116_TEXT ends ; end code segment ;AN000;
117 end ;AN000;
118
119 \ No newline at end of file
HIC SVNT DRACONES