![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fax16.asm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / ntddk / src / vdd / appints / fax16|
Return to fax16.asm CVS log | Up to [WindowsNT SDKs] / ntddk / src / vdd / appints / fax16 |
1.1 root 1: name faxdrv
2: title 'FAX16 - Stub driver for Application based intercept under NT'
3:
4: ;
5: ; fax16.asm: This is a very simple DOS stub device driver for NTVDM.
6: ; It shows how to use application based intercept services
7: ; provided by NTVDM. FAX32.dll is its DLL which will be loaded
8: ; in the NTVDM process by this stub device driver.
9: ;
10: ; This driver only has meaningful code for init,read and write.
11: ; Rest all command codes always succeed. We are assuming here
12: ; that the 16 bit fax application for this stub device driver
13: ; opens this device and just make read and write calls. The
14: ; meaning of read is to get a fax message and write means
15: ; send a message
16:
17: _TEXT segment byte public 'CODE'
18:
19: assume cs:_TEXT,ds:_TEXT,es:NOTHING
20:
21: org 0
22:
23: include isvbop.inc
24:
25: MaxCmd equ 24 ; Maximum allowed command
26:
27: ; VDD Command codes
28:
29: OpGet equ 1 ; Read a FAX
30: OpSend equ 2 ; Send a FAX
31:
32: Header: ; Fax Device Header
33: DD -1
34: DW 0c840h
35: DW FaxStrat
36: DW FaxIntr
37: DB 'FAXDRV00'
38:
39: RHPtr DD ? ; Pointer to Request Header
40:
41: Dispatch: ; Interrupt routine command code
42: DW Init
43: DW MediaChk
44: DW BuildBPB
45: DW IoctlRd
46: DW Read
47: DW NdRead
48: DW InpStat
49: DW InpFlush
50: DW Write
51: DW WriteVfy
52: DW OutStat
53: DW OutFlush
54: DW IoctlWt
55: DW DevOpen
56: DW DevClose
57: DW RemMedia
58: DW OutBusy
59: DW Error
60: DW Error
61: DW GenIOCTL
62: DW Error
63: DW Error
64: DW Error
65: DW GetLogDev
66: DW SetLogDev
67:
68: DllName DB "FAX32.DLL",0
69: InitFunc DB "FAXVDDRegisterInit",0
70: DispFunc DB "FAXVDDDispatch",0
71:
72: F32Mes DB "We are called from 32 staff", 10, 13, "$"
73:
74: hVDD DW ?
75:
76: FaxStrat proc far ; Strategy Routine
77:
78: mov word ptr cs:[RhPtr],bx
79: mov word ptr cs:[RhPtr+2],es
80: ret
81:
82: FaxStrat endp
83:
84: FaxIntr proc far ; INterrupt routine
85:
86: push ax ; Save registers
87: push bx
88: push cx
89: push dx
90: push ds
91: push es
92: push di
93: push si
94: push bp
95:
96: push cs
97: pop ds ; DS = CS
98:
99: les di,[RHPtr] ; ES:DI = request header
100:
101: mov bl,es:[di+2]
102: xor bh,bh ; BX = command code
103: cmp bx,MaxCmd
104: jle FIntr1
105:
106: call Error ; Unknown command
107: jmp FIntr2
108:
109: FIntr1:
110: shl bx,1
111: call word ptr [bx+Dispatch] ; call command routine
112: les di,[RhPtr] ; ES:DI = request header
113:
114: FIntr2:
115: or ax,0100h ; Set Done bit in the status
116: mov es:[di+3],ax ; Store the status
117:
118: pop bp ; restore registers
119: pop si
120: pop di
121: pop es
122: pop ds
123: pop dx
124: pop cx
125: pop bx
126: pop ax
127:
128: ret
129:
130:
131: MediaChk proc near
132: xor ax,ax
133: ret
134: MediaChk endp
135:
136: BuildBPB proc near
137: xor ax,ax
138: ret
139: BuildBPB endp
140:
141: IoctlRd proc near
142: xor ax,ax
143: ret
144: IoctlRd endp
145:
146: Read proc near
147: push es
148: push di ; Save Request Header add
149:
150: mov bx,word ptr es:[di+14] ; buffer offset
151: mov ax,word ptr es:[di+16] ; buffer segment
152: mov cx,word ptr es:[di+18] ; buffer length
153:
154: mov es,ax ; es:bx is the buffer where
155: ; fax has to be read from
156: ; the NT device driver
157:
158: mov ax,word ptr cs:[hVDD] ; VDD handle returned by
159: ; register module
160: mov dx,OpGet ; Read the fax command
161:
162: DispatchCall
163:
164: pop di
165: pop es
166:
167: jnc rOK ; NC -> Success and CX has
168: ; the count read.
169:
170: call Error ; Operation Failed
171: ret
172:
173: rOK:
174: mov word ptr es:[di+12],cx ; return in header how much
175: ; was read
176: xor ax,ax
177: ret
178: Read endp
179:
180: NdRead proc near
181: xor ax,ax
182: ret
183: NdRead endp
184:
185: InpStat proc near
186: xor ax,ax
187: ret
188: InpStat endp
189:
190: InpFlush proc near
191: xor ax,ax
192: ret
193: InpFlush endp
194:
195: Write proc near
196: push es
197: push di ; Save Request Header add
198:
199: mov bx,word ptr es:[di+14] ; buffer offset
200: mov ax,word ptr es:[di+16] ; buffer segment
201: mov cx,word ptr es:[di+18] ; buffer length
202:
203: mov es,ax ; es:bx is the FAX message where
204: ; to be send by NT device
205: ; driver
206:
207: mov ax,word ptr cs:[hVDD] ; VDD handle returned by
208: ; register module
209: mov dx,OpSend ; Send the fax command
210:
211: DispatchCall
212:
213: pop di
214: pop es
215:
216: jnc wOK ; NC -> Success and CX has
217: ; the count read.
218:
219: call Error ; Operation Failed
220: ret
221:
222: wOK:
223: mov word ptr es:[di+12],cx ; return in header how much
224: ; was actually written
225: xor ax,ax
226: ret
227: Write endp
228:
229: WriteVfy proc near
230: xor ax,ax
231: ret
232: WriteVfy endp
233:
234: OutStat proc near
235: xor ax,ax
236: ret
237: OutStat endp
238:
239: OutFlush proc near
240: xor ax,ax
241: ret
242: OutFlush endp
243:
244: IoctlWt proc near
245: xor ax,ax
246: ret
247: IoctlWt endp
248:
249: DevOpen proc near
250: xor ax,ax
251: ret
252: DevOpen endp
253:
254: DevClose proc near
255: xor ax,ax
256: ret
257: DevClose endp
258:
259: RemMedia proc near
260: xor ax,ax
261: ret
262: RemMedia endp
263:
264: OutBusy proc near
265: xor ax,ax
266: ret
267: OutBusy endp
268:
269: GenIOCTL proc near
270: xor ax,ax
271: ret
272: GenIOCTL endp
273:
274: GetLogDev proc near
275: xor ax,ax
276: ret
277: GetLogDev endp
278:
279: SetLogDev proc near
280: xor ax,ax
281: ret
282: SetLogDev endp
283:
284: Error proc near
285: mov ax,8003h ; Bad Command Code
286: ret
287: Error endp
288: ;
289: ;
290: ; This function is a sample sub that calling from 32-bits part of VDD
291: ;
292: From32Sub proc near
293:
294: push cs
295: pop ds
296: mov dx, offset F32mes
297: mov ah, 09h
298: int 21h
299: VDDUnSimulate16
300: ret
301:
302: From32Sub endp
303:
304: Init proc near
305: push es
306: push di ; Save Request Header add
307:
308: push ds
309: pop es
310:
311: ; Load fax32.dll
312: mov si, offset DllName ; ds:si = fax32.dll
313: mov di, offset InitFunc ; es:di = init routine
314: mov bx, offset DispFunc ; ds:bx = dispatch routine
315: mov ax, offset From32Sub ; ds:ax = From32Sub
316:
317:
318: RegisterModule
319: jnc saveHVDD ; NC -> Success
320:
321: call Error ; Indicate failure
322:
323: pop di
324: pop es
325: mov byte ptr es:[di+13],0 ; unit supported 0
326: mov word ptr es:[di+14],offset Header ; Unload this device
327: mov word ptr es:[di+16],cs
328: mov si, offset Header
329: and [si+4],8FFFh ; clear bit 15 for failure
330: ret
331:
332: saveHVDD:
333: mov [hVDD],ax
334:
335: pop di
336: pop es
337: mov word ptr es:[di+14],offset Init ; Free Memory address
338: mov word ptr es:[di+16],cs
339:
340: xor ax,ax ; return success
341: ret
342: Init endp
343:
344: FaxIntr endp
345:
346: _TEXT ends
347:
348: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.