summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/RESTORE/_MSGRET.ASM
diff options
context:
space:
mode:
authorGravatar Mark Zbikowski2024-04-25 21:24:10 +0100
committerGravatar Microsoft Open Source2024-04-25 22:32:27 +0000
commit2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch)
tree80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/CMD/RESTORE/_MSGRET.ASM
parentMerge pull request #430 from jpbaltazar/typoptbr (diff)
downloadms-dos-main.tar.gz
ms-dos-main.tar.xz
ms-dos-main.zip
MZ is back!HEADmain
Diffstat (limited to 'v4.0/src/CMD/RESTORE/_MSGRET.ASM')
-rw-r--r--v4.0/src/CMD/RESTORE/_MSGRET.ASM242
1 files changed, 242 insertions, 0 deletions
diff --git a/v4.0/src/CMD/RESTORE/_MSGRET.ASM b/v4.0/src/CMD/RESTORE/_MSGRET.ASM
new file mode 100644
index 0000000..92597f6
--- /dev/null
+++ b/v4.0/src/CMD/RESTORE/_MSGRET.ASM
@@ -0,0 +1,242 @@
1page 60,132
2name _msgret
3title C to Message Retriever
4;-------------------------------------------------------------------
5;
6; MODULE: _msgret
7;
8; PURPOSE: Supplies an interface between C programs and
9; the DOS 3.3 message retriever
10;
11; CALLING FORMAT:
12; sysloadmsg(&inregs,&outregs);
13; sysdispmsg(&inregs,&outregs);
14;
15; DATE: 5-21-87
16;
17;-------------------------------------------------------------------
18
19 INCLUDE SYSMSG.INC ;PERMIT SYSTEM MESSAGE HANDLER DEFINITION ;AN000;
20
21 MSG_UTILNAME <RESTORE> ;IDENTIFY THE COMPONENT ;AN000;
22
23 .8087
24_TEXT SEGMENT BYTE PUBLIC 'CODE'
25_TEXT ENDS
26_DATA SEGMENT WORD PUBLIC 'DATA'
27_DATA ENDS
28CONST SEGMENT WORD PUBLIC 'CONST'
29CONST ENDS
30_BSS SEGMENT WORD PUBLIC 'BSS'
31_BSS ENDS
32DGROUP GROUP CONST, _BSS, _DATA
33 ASSUME CS: _TEXT, DS: _TEXT, SS: DGROUP, ES: DGROUP
34
35
36 public _sysloadmsg
37 public _sysdispmsg
38
39;-------------------------------------------------------------------
40;-------------------------------------------------------------------
41
42_DATA segment
43.XLIST
44.XCREF
45 MSG_SERVICES <MSGDATA> ;DATA AREA FOR THE MESSAGE HANDLER ;AN000;
46.LIST
47.CREF
48_DATA ends
49
50
51_TEXT segment
52
53;-------------------------------------------------------------------
54 ;DEFAULT=CHECK DOS VERSION
55 ;DEFAULT=NEARmsg
56 ;DEFAULT=INPUTmsg
57 ;DEFAULT=NUMmsg
58 ;DEFAULT=NO TIMEmsg
59 ;DEFAULT=NO DATEmsg
60.XLIST
61.XCREF
62 MSG_SERVICES <LOADmsg,INPUTmsg,DISPLAYmsg,CHARmsg,NUMmsg,DATEmsg,FARmsg> ;AN000;6
63 MSG_SERVICES <RESTORE.CTL,RESTORE.CLA,RESTORE.CL1,RESTORE.CL2> ;AN000;6
64.LIST
65.CREF
66;-------------------------------------------------------------------
67
68_sysloadmsg proc near
69
70 push bp ; save user's base pointer
71 mov bp,sp ; set bp to current sp
72 push di ; save some registers
73 push si
74
75; copy C inregs into proper registers
76
77 mov di,[bp+4] ; fix di (arg 0)
78
79;-------------------------------------------------------------------
80
81 mov ax,[di+0ah] ; load di
82 push ax ; the di value from inregs is now on stack
83
84 mov ax,[di+00] ; get inregs.x.ax
85 mov bx,[di+02] ; get inregs.x.bx
86 mov cx,[di+04] ; get inregs.x.cx
87 mov dx,[di+06] ; get inregs.x.dx
88 mov si,[di+08] ; get inregs.x.si
89 pop di ; get inregs.x.di from stack
90
91 push bp ; save base pointer
92
93;-------------------------------------------------------------------
94 call sysloadmsg ; call the message retriever
95;-------------------------------------------------------------------
96
97 pop bp ; restore base pointer
98 push di ; the di value from call is now on stack
99 mov di,[bp+6] ; fix di (arg 1)
100
101 mov [di+00],ax ; load outregs.x.ax
102 mov [di+02],bx ; load outregs.x.bx
103 mov [di+04],cx ; load outregs.x.cx
104 mov [di+06],dx ; load outregs.x.dx
105 mov [di+08],si ; load outregs.x.si
106
107 lahf ; get flags into ax
108 mov al,ah ; move into low byte
109 mov [di+0ch],ax ; load outregs.x.cflag
110
111 pop ax ; get di from stack
112 mov [di+0ah],ax ; load outregs.x.di
113
114;-------------------------------------------------------------------
115
116 pop si ; restore registers
117 pop di
118 mov sp,bp ; restore sp
119 pop bp ; restore user's bp
120 ret
121
122_sysloadmsg endp
123
124
125;_sysgetmsg proc near
126;
127; push bp ; save user's base pointer
128; mov bp,sp ; set bp to current sp
129; push di ; save some registers
130; push si
131;
132;; copy C inregs into proper registers
133;
134; mov di,[bp+4] ; fix di (arg 0)
135;
136;;-------------------------------------------------------------------
137;
138; mov ax,[di+0ah] ; load di
139; push ax ; the di value from inregs is now on stack
140;
141; mov ax,[di+00] ; get inregs.x.ax
142; mov bx,[di+02] ; get inregs.x.bx
143; mov cx,[di+04] ; get inregs.x.cx
144; mov dx,[di+06] ; get inregs.x.dx
145; mov si,[di+08] ; get inregs.x.si
146; pop di ; get inregs.x.di from stack
147;
148; push bp ; save base pointer
149;
150;;-------------------------------------------------------------------
151; call sysgetmsg ; call the message retriever
152;;-------------------------------------------------------------------
153;
154; pop bp ; restore base pointer
155; push di ; the di value from call is now on stack
156; mov di,[bp+6] ; fix di (arg 1)
157;
158; mov [di+00],ax ; load outregs.x.ax
159; mov [di+02],bx ; load outregs.x.bx
160; mov [di+04],cx ; load outregs.x.cx
161; mov [di+06],dx ; load outregs.x.dx
162; mov [di+08],si ; load outregs.x.si
163;
164; lahf ; get flags into ax
165; mov al,ah ; move into low byte
166; mov [di+0ch],ax ; load outregs.x.cflag
167;
168; pop ax ; get di from stack
169; mov [di+0ah],ax ; load outregs.x.di
170;
171;;-------------------------------------------------------------------
172;
173; pop si ; restore registers
174; pop di
175; mov sp,bp ; restore sp
176; pop bp ; restore user's bp
177; ret
178;
179;_sysgetmsg endp
180
181_sysdispmsg proc near
182
183 push bp ; save user's base pointer
184 mov bp,sp ; set bp to current sp
185 push di ; save some registers
186 push si
187
188; copy C inregs into proper registers
189
190 mov di,[bp+4] ; fix di (arg 0)
191
192;-------------------------------------------------------------------
193
194 mov ax,[di+0ah] ; load di
195 push ax ; the di value from inregs is now on stack
196
197 mov ax,[di+00] ; get inregs.x.ax
198 mov bx,[di+02] ; get inregs.x.bx
199 mov cx,[di+04] ; get inregs.x.cx
200 mov dx,[di+06] ; get inregs.x.dx
201 mov si,[di+08] ; get inregs.x.si
202 pop di ; get inregs.x.di from stack
203
204 push bp ; save base pointer
205
206;-------------------------------------------------------------------
207 call sysdispmsg ; call the message retriever
208;-------------------------------------------------------------------
209
210 pop bp ; restore base pointer
211 push di ; the di value from call is now on stack
212 mov di,[bp+6] ; fix di (arg 1)
213
214 mov [di+00],ax ; load outregs.x.ax
215 mov [di+02],bx ; load outregs.x.bx
216 mov [di+04],cx ; load outregs.x.cx
217 mov [di+06],dx ; load outregs.x.dx
218 mov [di+08],si ; load outregs.x.si
219
220 lahf ; get flags into ax
221 mov al,ah ; move into low byte
222 mov [di+0ch],ax ; load outregs.x.cflag
223
224 pop ax ; get di from stack
225 mov [di+0ah],ax ; load outregs.x.di
226
227;-------------------------------------------------------------------
228
229 pop si ; restore registers
230 pop di
231 mov sp,bp ; restore sp
232 pop bp ; restore user's bp
233 ret
234
235_sysdispmsg endp
236
237include msgdcl.inc
238
239_TEXT ends ; end code segment
240 end
241
242 \ No newline at end of file
HIC SVNT DRACONES