Mercurial > hgrepos > Python2 > PyMuPDF

comparison mupdf-source/thirdparty/libjpeg/jmemdosa.asm @ 2:b50eed0cc0ef upstream

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ADD: MuPDF v1.26.7: the MuPDF source as downloaded by a default build of PyMuPDF 1.26.4. The directory name has changed: no version number in the expanded directory now.
author Franz Glasner <fzglas.hg@dom66.de>
date Mon, 15 Sep 2025 11:43:07 +0200
parents
children
comparison
equal deleted inserted replaced
1:1d09e1dec1d9 2:b50eed0cc0ef
1 ;
2 ; jmemdosa.asm
3 ;
4 ; Copyright (C) 1992, Thomas G. Lane.
5 ; This file is part of the Independent JPEG Group's software.
6 ; For conditions of distribution and use, see the accompanying README file.
7 ;
8 ; This file contains low-level interface routines to support the MS-DOS
9 ; backing store manager (jmemdos.c). Routines are provided to access disk
10 ; files through direct DOS calls, and to access XMS and EMS drivers.
11 ;
12 ; This file should assemble with Microsoft's MASM or any compatible
13 ; assembler (including Borland's Turbo Assembler). If you haven't got
14 ; a compatible assembler, better fall back to jmemansi.c or jmemname.c.
15 ;
16 ; To minimize dependence on the C compiler's register usage conventions,
17 ; we save and restore all 8086 registers, even though most compilers only
18 ; require SI,DI,DS to be preserved. Also, we use only 16-bit-wide return
19 ; values, which everybody returns in AX.
20 ;
21 ; Based on code contributed by Ge' Weijers.
22 ;
23
24 JMEMDOSA_TXT segment byte public 'CODE'
25
26 assume cs:JMEMDOSA_TXT
27
28 public _jdos_open
29 public _jdos_close
30 public _jdos_seek
31 public _jdos_read
32 public _jdos_write
33 public _jxms_getdriver
34 public _jxms_calldriver
35 public _jems_available
36 public _jems_calldriver
37
38 ;
39 ; short far jdos_open (short far * handle, char far * filename)
40 ;
41 ; Create and open a temporary file
42 ;
43 _jdos_open proc far
44 push bp ; linkage
45 mov bp,sp
46 push si ; save all registers for safety
47 push di
48 push bx
49 push cx
50 push dx
51 push es
52 push ds
53 mov cx,0 ; normal file attributes
54 lds dx,dword ptr [bp+10] ; get filename pointer
55 mov ah,3ch ; create file
56 int 21h
57 jc open_err ; if failed, return error code
58 lds bx,dword ptr [bp+6] ; get handle pointer
59 mov word ptr [bx],ax ; save the handle
60 xor ax,ax ; return zero for OK
61 open_err: pop ds ; restore registers and exit
62 pop es
63 pop dx
64 pop cx
65 pop bx
66 pop di
67 pop si
68 pop bp
69 ret
70 _jdos_open endp
71
72
73 ;
74 ; short far jdos_close (short handle)
75 ;
76 ; Close the file handle
77 ;
78 _jdos_close proc far
79 push bp ; linkage
80 mov bp,sp
81 push si ; save all registers for safety
82 push di
83 push bx
84 push cx
85 push dx
86 push es
87 push ds
88 mov bx,word ptr [bp+6] ; file handle
89 mov ah,3eh ; close file
90 int 21h
91 jc close_err ; if failed, return error code
92 xor ax,ax ; return zero for OK
93 close_err: pop ds ; restore registers and exit
94 pop es
95 pop dx
96 pop cx
97 pop bx
98 pop di
99 pop si
100 pop bp
101 ret
102 _jdos_close endp
103
104
105 ;
106 ; short far jdos_seek (short handle, long offset)
107 ;
108 ; Set file position
109 ;
110 _jdos_seek proc far
111 push bp ; linkage
112 mov bp,sp
113 push si ; save all registers for safety
114 push di
115 push bx
116 push cx
117 push dx
118 push es
119 push ds
120 mov bx,word ptr [bp+6] ; file handle
121 mov dx,word ptr [bp+8] ; LS offset
122 mov cx,word ptr [bp+10] ; MS offset
123 mov ax,4200h ; absolute seek
124 int 21h
125 jc seek_err ; if failed, return error code
126 xor ax,ax ; return zero for OK
127 seek_err: pop ds ; restore registers and exit
128 pop es
129 pop dx
130 pop cx
131 pop bx
132 pop di
133 pop si
134 pop bp
135 ret
136 _jdos_seek endp
137
138
139 ;
140 ; short far jdos_read (short handle, void far * buffer, unsigned short count)
141 ;
142 ; Read from file
143 ;
144 _jdos_read proc far
145 push bp ; linkage
146 mov bp,sp
147 push si ; save all registers for safety
148 push di
149 push bx
150 push cx
151 push dx
152 push es
153 push ds
154 mov bx,word ptr [bp+6] ; file handle
155 lds dx,dword ptr [bp+8] ; buffer address
156 mov cx,word ptr [bp+12] ; number of bytes
157 mov ah,3fh ; read file
158 int 21h
159 jc read_err ; if failed, return error code
160 cmp ax,word ptr [bp+12] ; make sure all bytes were read
161 je read_ok
162 mov ax,1 ; else return 1 for not OK
163 jmp short read_err
164 read_ok: xor ax,ax ; return zero for OK
165 read_err: pop ds ; restore registers and exit
166 pop es
167 pop dx
168 pop cx
169 pop bx
170 pop di
171 pop si
172 pop bp
173 ret
174 _jdos_read endp
175
176
177 ;
178 ; short far jdos_write (short handle, void far * buffer, unsigned short count)
179 ;
180 ; Write to file
181 ;
182 _jdos_write proc far
183 push bp ; linkage
184 mov bp,sp
185 push si ; save all registers for safety
186 push di
187 push bx
188 push cx
189 push dx
190 push es
191 push ds
192 mov bx,word ptr [bp+6] ; file handle
193 lds dx,dword ptr [bp+8] ; buffer address
194 mov cx,word ptr [bp+12] ; number of bytes
195 mov ah,40h ; write file
196 int 21h
197 jc write_err ; if failed, return error code
198 cmp ax,word ptr [bp+12] ; make sure all bytes written
199 je write_ok
200 mov ax,1 ; else return 1 for not OK
201 jmp short write_err
202 write_ok: xor ax,ax ; return zero for OK
203 write_err: pop ds ; restore registers and exit
204 pop es
205 pop dx
206 pop cx
207 pop bx
208 pop di
209 pop si
210 pop bp
211 ret
212 _jdos_write endp
213
214
215 ;
216 ; void far jxms_getdriver (XMSDRIVER far *)
217 ;
218 ; Get the address of the XMS driver, or NULL if not available
219 ;
220 _jxms_getdriver proc far
221 push bp ; linkage
222 mov bp,sp
223 push si ; save all registers for safety
224 push di
225 push bx
226 push cx
227 push dx
228 push es
229 push ds
230 mov ax,4300h ; call multiplex interrupt with
231 int 2fh ; a magic cookie, hex 4300
232 cmp al,80h ; AL should contain hex 80
233 je xmsavail
234 xor dx,dx ; no XMS driver available
235 xor ax,ax ; return a nil pointer
236 jmp short xmsavail_done
237 xmsavail: mov ax,4310h ; fetch driver address with
238 int 2fh ; another magic cookie
239 mov dx,es ; copy address to dx:ax
240 mov ax,bx
241 xmsavail_done: les bx,dword ptr [bp+6] ; get pointer to return value
242 mov word ptr es:[bx],ax
243 mov word ptr es:[bx+2],dx
244 pop ds ; restore registers and exit
245 pop es
246 pop dx
247 pop cx
248 pop bx
249 pop di
250 pop si
251 pop bp
252 ret
253 _jxms_getdriver endp
254
255
256 ;
257 ; void far jxms_calldriver (XMSDRIVER, XMScontext far *)
258 ;
259 ; The XMScontext structure contains values for the AX,DX,BX,SI,DS registers.
260 ; These are loaded, the XMS call is performed, and the new values of the
261 ; AX,DX,BX registers are written back to the context structure.
262 ;
263 _jxms_calldriver proc far
264 push bp ; linkage
265 mov bp,sp
266 push si ; save all registers for safety
267 push di
268 push bx
269 push cx
270 push dx
271 push es
272 push ds
273 les bx,dword ptr [bp+10] ; get XMScontext pointer
274 mov ax,word ptr es:[bx] ; load registers
275 mov dx,word ptr es:[bx+2]
276 mov si,word ptr es:[bx+6]
277 mov ds,word ptr es:[bx+8]
278 mov bx,word ptr es:[bx+4]
279 call dword ptr [bp+6] ; call the driver
280 mov cx,bx ; save returned BX for a sec
281 les bx,dword ptr [bp+10] ; get XMScontext pointer
282 mov word ptr es:[bx],ax ; put back ax,dx,bx
283 mov word ptr es:[bx+2],dx
284 mov word ptr es:[bx+4],cx
285 pop ds ; restore registers and exit
286 pop es
287 pop dx
288 pop cx
289 pop bx
290 pop di
291 pop si
292 pop bp
293 ret
294 _jxms_calldriver endp
295
296
297 ;
298 ; short far jems_available (void)
299 ;
300 ; Have we got an EMS driver? (this comes straight from the EMS 4.0 specs)
301 ;
302 _jems_available proc far
303 push si ; save all registers for safety
304 push di
305 push bx
306 push cx
307 push dx
308 push es
309 push ds
310 mov ax,3567h ; get interrupt vector 67h
311 int 21h
312 push cs
313 pop ds
314 mov di,000ah ; check offs 10 in returned seg
315 lea si,ASCII_device_name ; against literal string
316 mov cx,8
317 cld
318 repe cmpsb
319 jne no_ems
320 mov ax,1 ; match, it's there
321 jmp short avail_done
322 no_ems: xor ax,ax ; it's not there
323 avail_done: pop ds ; restore registers and exit
324 pop es
325 pop dx
326 pop cx
327 pop bx
328 pop di
329 pop si
330 ret
331
332 ASCII_device_name db "EMMXXXX0"
333
334 _jems_available endp
335
336
337 ;
338 ; void far jems_calldriver (EMScontext far *)
339 ;
340 ; The EMScontext structure contains values for the AX,DX,BX,SI,DS registers.
341 ; These are loaded, the EMS trap is performed, and the new values of the
342 ; AX,DX,BX registers are written back to the context structure.
343 ;
344 _jems_calldriver proc far
345 push bp ; linkage
346 mov bp,sp
347 push si ; save all registers for safety
348 push di
349 push bx
350 push cx
351 push dx
352 push es
353 push ds
354 les bx,dword ptr [bp+6] ; get EMScontext pointer
355 mov ax,word ptr es:[bx] ; load registers
356 mov dx,word ptr es:[bx+2]
357 mov si,word ptr es:[bx+6]
358 mov ds,word ptr es:[bx+8]
359 mov bx,word ptr es:[bx+4]
360 int 67h ; call the EMS driver
361 mov cx,bx ; save returned BX for a sec
362 les bx,dword ptr [bp+6] ; get EMScontext pointer
363 mov word ptr es:[bx],ax ; put back ax,dx,bx
364 mov word ptr es:[bx+2],dx
365 mov word ptr es:[bx+4],cx
366 pop ds ; restore registers and exit
367 pop es
368 pop dx
369 pop cx
370 pop bx
371 pop di
372 pop si
373 pop bp
374 ret
375 _jems_calldriver endp
376
377 JMEMDOSA_TXT ends
378
379 end