rev |
line source |
pascal@19515
|
1 ;***************************************************************
|
pascal@19515
|
2 ;****** This file is distributed under GPL
|
pascal@19515
|
3 ;***************************************************************
|
pascal@19515
|
4 ideal
|
pascal@21984
|
5 %PAGESIZE 1000
|
pascal@19515
|
6 %crefref
|
pascal@19515
|
7 %noincl
|
pascal@19515
|
8 %nomacs
|
pascal@19636
|
9 ifdef NO386
|
pascal@19636
|
10 p8086
|
pascal@19636
|
11 else
|
pascal@19515
|
12 p386
|
pascal@19636
|
13 endif
|
pascal@19515
|
14
|
pascal@19515
|
15 group DGROUP _TEXT,_DATA,_BSS
|
pascal@19515
|
16 assume cs:DGROUP,ds:DGROUP
|
pascal@19515
|
17
|
pascal@19515
|
18 segment _DATA byte public use16 'DATA'
|
pascal@19515
|
19
|
pascal@23996
|
20 loaderr db "Load failure",0
|
pascal@23983
|
21 msg_hang db "Himem broken",0
|
pascal@22668
|
22 vcpi_alloc_err db "VCPI"
|
pascal@22668
|
23 global overflow:byte
|
pascal@22668
|
24 overflow db "/"
|
pascal@23996
|
25 msg_malloc db "Out of memory"
|
pascal@23996
|
26 isorootofs dd 16*2048
|
pascal@19515
|
27
|
pascal@19515
|
28 ends _DATA
|
pascal@19515
|
29
|
pascal@19515
|
30 segment _BSS byte public use16 'BSS'
|
pascal@19515
|
31
|
pascal@23797
|
32 include "isostate.inc"
|
pascal@21747
|
33 public _isostate
|
pascal@21747
|
34 _isostate isostate <?>
|
pascal@21754
|
35 org $-7
|
pascal@24015
|
36 global buf4k:byte
|
pascal@24015
|
37 label buf4k byte
|
pascal@20538
|
38 _xfer_buf db 4096 dup (?)
|
pascal@19515
|
39 filecnt db ? ; in fact 0 minus file count...
|
pascal@19515
|
40 nextfilename dw ?
|
pascal@19515
|
41
|
pascal@19515
|
42 ends _BSS
|
pascal@19515
|
43
|
pascal@19515
|
44 segment _TEXT byte public use16 'CODE'
|
pascal@19515
|
45
|
pascal@19515
|
46 ;***************************************************************
|
pascal@20630
|
47 ;_fastcall void strcatb(bx:const char* a, ax:const char* b);
|
pascal@19538
|
48 ;***************************************************************
|
pascal@20528
|
49 global @strcatb$qpxzct1:near
|
pascal@20528
|
50 proc @strcatb$qpxzct1 near
|
pascal@19538
|
51
|
pascal@19538
|
52 push si
|
pascal@20794
|
53 xchg ax,si ; b
|
pascal@20794
|
54 dec bx
|
pascal@19538
|
55 @@catlp:
|
pascal@20794
|
56 inc bx
|
pascal@20794
|
57 cmp [byte bx],0 ; a=bx
|
pascal@19538
|
58 jne @@catlp
|
pascal@20794
|
59 db 0b8h,20h ; mov ax,??20h
|
pascal@19538
|
60 @@cpylp:
|
pascal@20794
|
61 lodsb
|
pascal@20794
|
62 mov [bx],al
|
pascal@20142
|
63 inc bx
|
pascal@20527
|
64 or al,al
|
pascal@19538
|
65 jne @@cpylp
|
pascal@19538
|
66 pop si
|
pascal@24015
|
67 catret:
|
pascal@20142
|
68 ret
|
pascal@19538
|
69
|
pascal@20528
|
70 endp @strcatb$qpxzct1
|
pascal@19538
|
71
|
pascal@19538
|
72
|
pascal@20146
|
73 p8086
|
pascal@20146
|
74
|
pascal@23996
|
75 opendos:
|
pascal@23996
|
76 ifdef LONG_FILENAME
|
pascal@24015
|
77 ;xchg ax,cx ; attributes
|
pascal@23996
|
78 mov ax,716Ch
|
pascal@23996
|
79 push bx si
|
pascal@23996
|
80 mov si,bx
|
pascal@23996
|
81 xor bx,bx ; R/O
|
pascal@23996
|
82 cwd ; action = open
|
pascal@23996
|
83 stc
|
pascal@23996
|
84 int 21h
|
pascal@23996
|
85 pop si dx
|
pascal@23996
|
86 jnc openok
|
pascal@23996
|
87 mov ax,3d00h ; read-only+compatibility
|
pascal@23996
|
88 else
|
pascal@23996
|
89 mov ah,3dh ; read-only+compatibility
|
pascal@23996
|
90 mov dx,bx
|
pascal@23996
|
91 endif
|
pascal@23996
|
92 ;mov cl,0 ; attribute mask
|
pascal@23996
|
93 call dos
|
pascal@24015
|
94 jc catret
|
pascal@23996
|
95 openok:
|
pascal@23984
|
96 xchg ax,bx
|
pascal@23996
|
97 mov ax,4202h
|
pascal@23996
|
98 cwd
|
pascal@23996
|
99 xor cx,cx
|
pascal@23996
|
100 int 21h
|
pascal@23996
|
101 mov [word _isostate.filesize],ax
|
pascal@23996
|
102 mov [(word _isostate.filesize)+2],dx
|
pascal@23984
|
103 xchg ax,bx
|
pascal@23996
|
104 ;xor cx,cx
|
pascal@23996
|
105 cwd
|
pascal@23996
|
106 call seeksetpos0 ; filepos = 0
|
pascal@23996
|
107 xchg ax,bx ; fd
|
pascal@23996
|
108 ret
|
pascal@20146
|
109
|
pascal@19538
|
110 ;***************************************************************
|
pascal@20630
|
111 ;_fastcall int open(bx:const char* name, int flags=O_RDONLY);
|
pascal@21757
|
112 ;_fastcall int openargs(bx:const char* name, int flags=O_RDONLY);
|
pascal@19515
|
113 ;***************************************************************
|
pascal@20538
|
114 global openargs:near ; openargs(bx)
|
pascal@20538
|
115 openargs:
|
pascal@20538
|
116 cmp [byte bx],'@'
|
pascal@20538
|
117 jne fail
|
pascal@20538
|
118 inc bx
|
pascal@20538
|
119
|
pascal@20528
|
120 global @open$qpxzc:near
|
pascal@23996
|
121 @open$qpxzc:
|
pascal@24015
|
122 ifdef LONG_FILENAME
|
pascal@24015
|
123 mov cx,[_isostate.fd]
|
pascal@24015
|
124 jcxz opendos
|
pascal@24015
|
125 xchg ax,cx
|
pascal@24015
|
126 else
|
pascal@23996
|
127 mov ax,[_isostate.fd]
|
pascal@23996
|
128 or ax,ax
|
pascal@23996
|
129 je opendos
|
pascal@24015
|
130 endif
|
pascal@23996
|
131 ifdef ISOHOOK
|
pascal@23996
|
132 cmp [byte bx],'!'
|
pascal@23996
|
133 je @readmenu$qv
|
pascal@23996
|
134 endif
|
pascal@23996
|
135 extrn @_isoopen$qv:near
|
pascal@23996
|
136 mov [word _isostate.filename2open],bx
|
pascal@23996
|
137 jmp @_isoopen$qv ; filepos = 0
|
pascal@19515
|
138
|
pascal@19515
|
139
|
pascal@19515
|
140 ;***************************************************************
|
pascal@20632
|
141 ;_fastcall int fileexist(bx:const char* name);
|
pascal@20632
|
142 ;***************************************************************
|
pascal@20632
|
143 global @fileexist$qpxzc:near
|
pascal@20632
|
144 @fileexist$qpxzc:
|
pascal@20632
|
145 call @open$qpxzc
|
pascal@20632
|
146 jc fail
|
pascal@20632
|
147
|
pascal@20632
|
148 ;***************************************************************
|
pascal@20630
|
149 ;_fastcall int close(ax:int fd);
|
pascal@19515
|
150 ;***************************************************************
|
pascal@20528
|
151 global @close$qi:near
|
pascal@20528
|
152 proc @close$qi near
|
pascal@19515
|
153
|
pascal@20540
|
154 global close:near ; close(ax)
|
pascal@19515
|
155 close:
|
pascal@23985
|
156 mov bh,3Eh
|
pascal@23996
|
157 mov cx,[_isostate.fd]
|
pascal@23996
|
158 jcxz dosbx
|
pascal@23996
|
159 jmp fail
|
pascal@19515
|
160
|
pascal@20528
|
161 endp @close$qi
|
pascal@19515
|
162
|
pascal@19515
|
163
|
pascal@19515
|
164 ;***************************************************************
|
pascal@23996
|
165 ;_fastcall int readrm(si:struct himem *m, ax:int sz);
|
pascal@19515
|
166 ;***************************************************************
|
pascal@20751
|
167 global @readrm$qp11image_himemi:near
|
pascal@20751
|
168 @readrm$qp11image_himemi:
|
pascal@20751
|
169 xchg ax,dx ; sz
|
pascal@23996
|
170 mov ax,[si] ; fd
|
pascal@23996
|
171 mov bx,[si-2] ; data
|
pascal@20528
|
172 proc @read$qipvi near
|
pascal@19515
|
173
|
pascal@20632
|
174 @read$dxbxax:
|
pascal@20538
|
175 xchg ax,bx ; fd
|
pascal@23996
|
176 @read$dxaxbx:
|
pascal@20538
|
177 xchg ax,dx ; data
|
pascal@20538
|
178 xchg ax,cx ; sz
|
pascal@20528
|
179 global @read$cxdxbx:near
|
pascal@20528
|
180 @read$cxdxbx:
|
pascal@23996
|
181 push bx
|
pascal@23996
|
182 mov bx,offset _isostate.filepos
|
pascal@23996
|
183 push cx
|
pascal@23996
|
184 mov cx,[bx-4] ; filesize
|
pascal@23996
|
185 sub cx,[bx] ; filepos
|
pascal@23996
|
186 mov ax,[bx-2]
|
pascal@23996
|
187 sbb ax,[bx+2]
|
pascal@23996
|
188 pop ax
|
pascal@23996
|
189 ja @@axok
|
pascal@23996
|
190 ;je @@rem
|
pascal@23996
|
191 ;xor ax,ax
|
pascal@23996
|
192 @@rem:
|
pascal@23996
|
193 cmp cx,ax
|
pascal@23996
|
194 jb @@cxok
|
pascal@23996
|
195 @@axok:
|
pascal@23996
|
196 xchg ax,cx
|
pascal@23996
|
197 @@cxok:
|
pascal@23996
|
198 add [bx],cx
|
pascal@23996
|
199 adc [(word bx)+2],0
|
pascal@23996
|
200 pop bx
|
pascal@23996
|
201 readfd:
|
pascal@20146
|
202 mov ah,3Fh
|
pascal@23996
|
203 ;jcxz fail
|
pascal@21628
|
204 dos:
|
pascal@21628
|
205 int 21h
|
pascal@21628
|
206 jnc doret
|
pascal@21628
|
207 fail:
|
pascal@21628
|
208 stc
|
pascal@21628
|
209 failifc:
|
pascal@21628
|
210 sbb ax,ax ; ax=-1 CF
|
pascal@21628
|
211 doret:
|
pascal@21628
|
212 ret
|
pascal@19515
|
213
|
pascal@20528
|
214 endp @read$qipvi
|
pascal@19515
|
215
|
pascal@19515
|
216 ;***************************************************************
|
pascal@22632
|
217 ;_fastcall long rewind(ax:int fd);
|
pascal@19515
|
218 ;***************************************************************
|
pascal@19899
|
219
|
pascal@22632
|
220 global @rewind$qi:near ; fd=ax
|
pascal@22632
|
221 proc @rewind$qi near
|
pascal@20542
|
222
|
pascal@23996
|
223 rewind:
|
pascal@23996
|
224 mov bx,offset _isostate.fileofs
|
pascal@23996
|
225 jmp lseek
|
pascal@19515
|
226
|
pascal@22632
|
227 endp @rewind$qi
|
pascal@19825
|
228
|
pascal@23996
|
229
|
pascal@23996
|
230 ifdef ISOHOOK
|
pascal@23996
|
231 ;***************************************************************
|
pascal@24015
|
232 ;_fastcall int:bx readmenu(void);
|
pascal@23996
|
233 ;***************************************************************
|
pascal@23996
|
234 proc @readmenu$qv near
|
pascal@23996
|
235
|
pascal@23996
|
236 mov dx,18
|
pascal@23996
|
237 xor cx,cx
|
pascal@23996
|
238 call seeksetpos0 ; filepos = 0
|
pascal@23996
|
239 mov dx,offset _isostate.filemod
|
pascal@23996
|
240 ; //magic = x->filemod;
|
pascal@23996
|
241 mov cl,10
|
pascal@23996
|
242 call readfd ; // read x->filemod + x->fileofs & x->filesize
|
pascal@23996
|
243 mov bx,offset _isostate.fileofs
|
pascal@23996
|
244 ; x->fileofs = 0x7FF0 - (x->filesize &= 0xFFFF);
|
pascal@23996
|
245 mov ax,7FF0h
|
pascal@23996
|
246 cwd
|
pascal@23996
|
247 mov [word bx+6],dx
|
pascal@23996
|
248 sub ax,[bx+4]
|
pascal@23996
|
249 mov [word bx+2],dx
|
pascal@23996
|
250 mov [bx],ax
|
pascal@23996
|
251 call isolseek ; filepos = 0
|
pascal@23996
|
252 xchg ax,bx ; fd
|
pascal@23996
|
253 ret
|
pascal@23996
|
254
|
pascal@23996
|
255 endp @readmenu$qv
|
pascal@23996
|
256 endif
|
pascal@23996
|
257
|
pascal@19825
|
258 ;***************************************************************
|
pascal@22749
|
259 ;_fastcall void isolseek(bx:const unsigned long *offset);
|
pascal@19825
|
260 ;***************************************************************
|
pascal@20528
|
261 global @isolseek$qpxul:near
|
pascal@20528
|
262 proc @isolseek$qpxul near
|
pascal@19825
|
263
|
pascal@20534
|
264 isolseek:
|
pascal@20632
|
265 mov ax,[_isostate.fd]
|
pascal@23996
|
266 lseek:
|
pascal@21984
|
267 les dx,[dword bx]
|
pascal@21984
|
268 mov cx,es
|
pascal@23996
|
269 seeksetpos0:
|
pascal@23996
|
270 xor bx,bx
|
pascal@23996
|
271 mov [word _isostate.filepos],bx
|
pascal@23996
|
272 mov [(word _isostate.filepos)+2],bx
|
pascal@23996
|
273 mov bh,42h ; bx=fd cx:dx=offset al=whence
|
pascal@23996
|
274 dosbx:
|
pascal@23996
|
275 xchg ax,bx
|
pascal@24015
|
276 jmp dos ; bx = fd
|
pascal@20534
|
277
|
pascal@20538
|
278 endp @isolseek$qpxul
|
pascal@20534
|
279
|
pascal@20534
|
280 ;***************************************************************
|
pascal@20630
|
281 ;_fastcall int isoreadsector(bx:const unsigned long *offset);
|
pascal@23996
|
282 ;_fastcall int isoreadrootsector(void);
|
pascal@20534
|
283 ;***************************************************************
|
pascal@23996
|
284 global @isoreadrootsector$qv:near
|
pascal@23996
|
285 @isoreadrootsector$qv:
|
pascal@23996
|
286 mov bx,offset isorootofs
|
pascal@20534
|
287 global @isoreadsector$qpxul:near
|
pascal@20534
|
288 proc @isoreadsector$qpxul near
|
pascal@20534
|
289
|
pascal@23996
|
290 call isolseek ; filepos = 0
|
pascal@22749
|
291 jc fail
|
pascal@23996
|
292 mov dh,10
|
pascal@23996
|
293 mov ax,offset _isostate.buffer
|
pascal@23996
|
294 jmp @read$dxaxbx ; read(fd,buffer,2560+)
|
pascal@20534
|
295
|
pascal@20534
|
296 endp @isoreadsector$qpxul
|
pascal@20534
|
297
|
pascal@21628
|
298
|
pascal@23999
|
299 ifdef ISOHOOK
|
pascal@21628
|
300 ;***************************************************************
|
pascal@23996
|
301 ;_fastcall int strhead(bx:const char* a, ax:const char* b);
|
pascal@21628
|
302 ;***************************************************************
|
pascal@23996
|
303 global @strhead$qpxzct1:near
|
pascal@23996
|
304 proc @strhead$qpxzct1 near
|
pascal@21628
|
305
|
pascal@23996
|
306 @@loop:
|
pascal@23996
|
307 xchg ax,bx
|
pascal@23996
|
308 mov dl,[bx] ; dl = *b++
|
pascal@23996
|
309 inc bx
|
pascal@23996
|
310 xchg ax,bx
|
pascal@23996
|
311 or dl,dl ; clear C
|
pascal@23996
|
312 jz failifc ; return 0
|
pascal@23996
|
313 xor dl,[bx] ; dl -= *a++
|
pascal@23996
|
314 jne fail ; return -1
|
pascal@23996
|
315 inc bx
|
pascal@23996
|
316 jmp @@loop
|
pascal@21628
|
317
|
pascal@23996
|
318 endp @strhead$qpxzct1
|
pascal@21628
|
319
|
pascal@21628
|
320
|
pascal@21628
|
321 ;***************************************************************
|
pascal@23996
|
322 ;_fastcall int strcmp(bx:const char* a, ax:const char* b);
|
pascal@21628
|
323 ;***************************************************************
|
pascal@23996
|
324 global @strcmp$qpxzct1:near
|
pascal@23996
|
325 proc @strcmp$qpxzct1 near
|
pascal@21628
|
326
|
pascal@23996
|
327 call @strhead$qpxzct1
|
pascal@23996
|
328 jne fail ; return -1
|
pascal@23996
|
329 xor dl,[bx] ; clear C
|
pascal@23996
|
330 jne fail ; return -1
|
pascal@23996
|
331 jmp failifc ; return 0
|
pascal@21628
|
332
|
pascal@23996
|
333 endp @strcmp$qpxzct1
|
pascal@21628
|
334
|
pascal@23999
|
335 else
|
pascal@23999
|
336
|
pascal@23999
|
337 ;***************************************************************
|
pascal@23999
|
338 ;_fastcall int strcmp(bx:const char* a, ax:const char* b);
|
pascal@23999
|
339 ;***************************************************************
|
pascal@23999
|
340 global @strcmp$qpxzct1:near
|
pascal@23999
|
341 proc @strcmp$qpxzct1 near
|
pascal@23999
|
342
|
pascal@23999
|
343 @@loop:
|
pascal@23999
|
344 xchg ax,bx
|
pascal@23999
|
345 mov dl,[bx] ; dl = *b++
|
pascal@23999
|
346 inc bx
|
pascal@23999
|
347 xchg ax,bx
|
pascal@23999
|
348 xor dl,[bx] ; dl ^= *a++
|
pascal@23999
|
349 jne fail ; return -1
|
pascal@23999
|
350 inc bx
|
pascal@23999
|
351 or dl,dl ; clear C
|
pascal@23999
|
352 jz failifc ; return 0
|
pascal@23999
|
353 jmp @@loop
|
pascal@23999
|
354
|
pascal@23999
|
355 endp @strcmp$qpxzct1
|
pascal@23999
|
356 endif
|
pascal@19515
|
357
|
pascal@20751
|
358 ;***************************************************************
|
pascal@23996
|
359 ;_fastcall const char **argstr(bx:const char *s, ax:const char keywords[], dx:const char **var);
|
pascal@23993
|
360 ;_fastcall unsigned long *argnum(bx:char *s, ax:const char keywords[], dx:unsigned long *var);
|
pascal@20751
|
361 ;***************************************************************
|
pascal@20751
|
362 global @argstr$qpxzcxt1ppxzc:near
|
pascal@20751
|
363 proc @argstr$qpxzcxt1ppxzc near
|
pascal@20751
|
364
|
pascal@21569
|
365 mov cl,2
|
pascal@21569
|
366 db 0a9h ; test ax,#
|
pascal@20751
|
367 global @argnum$qpzcxpxzcpul:near
|
pascal@20751
|
368 @argnum$qpzcxpxzcpul:
|
pascal@21569
|
369 mov cl,4
|
pascal@23993
|
370 push bx
|
pascal@21569
|
371 xchg ax,bx ; keywords -> bx
|
pascal@21569
|
372 xchg ax,cx ; s -> cx
|
pascal@21569
|
373 cbw ; argstr:0002 argnum:0004
|
pascal@21569
|
374 xchg ax,dx ; vars -> ax
|
pascal@20751
|
375 push si di
|
pascal@21569
|
376 xchg ax,di ; vars => di
|
pascal@20751
|
377 dec bx
|
pascal@20751
|
378 sub di,dx
|
pascal@23797
|
379 @@loop:
|
pascal@20751
|
380 mov si,cx ; s
|
pascal@20751
|
381 add di,dx
|
pascal@20751
|
382 @@match:
|
pascal@21569
|
383 lodsb ; *s++
|
pascal@23999
|
384 or al,20h ; locase
|
pascal@24014
|
385 cmp al,'/' ; 2f
|
pascal@24014
|
386 jne @@notopt
|
pascal@24014
|
387 mov al,'-'
|
pascal@24014
|
388 @@notopt:
|
pascal@24014
|
389 inc bx ; keywords++
|
pascal@20751
|
390 cmp al,[bx]
|
pascal@20751
|
391 je @@match
|
pascal@24014
|
392 cmp [byte bx],dh
|
pascal@24014
|
393 je @@lastal
|
pascal@24014
|
394 cmp [byte bx],'|'
|
pascal@24014
|
395 je @@testal
|
pascal@24014
|
396 jl @@notsw ; } ~ <del>
|
pascal@24014
|
397 cmp al,20h ; EOS or 20h
|
pascal@24014
|
398 jne @@loop ; assume [bx] = '|'
|
pascal@24014
|
399 @@notsw:
|
pascal@24015
|
400 mov al,-1
|
pascal@20751
|
401 jne @@notopt
|
pascal@24014
|
402 jmp @@setnum
|
pascal@23797
|
403 @@testal:
|
pascal@24015
|
404 cmp al,-1
|
pascal@24014
|
405 jz @@loop
|
pascal@24014
|
406 @@lastal:
|
pascal@24015
|
407 cmp al,'='
|
pascal@23996
|
408 xchg ax,cx ; return s if failure
|
pascal@23797
|
409 jne @@nokeyword
|
pascal@20751
|
410 dec dx
|
pascal@20751
|
411 dec dx
|
pascal@20751
|
412 je @@done
|
pascal@24015
|
413 @strtol$qpxzc:
|
pascal@24015
|
414 ifndef NO386
|
pascal@24015
|
415 xor ecx,ecx
|
pascal@24015
|
416 xor ebx,ebx
|
pascal@24015
|
417 else
|
pascal@24015
|
418 xor bx,bx
|
pascal@24015
|
419 xor cx,cx
|
pascal@24015
|
420 xor dx,dx
|
pascal@24015
|
421 endif
|
pascal@24015
|
422 lodsb
|
pascal@24015
|
423 or al,20h
|
pascal@24015
|
424 cmp al,'a'
|
pascal@24015
|
425 jb @@notvga
|
pascal@24015
|
426 sub al,'o'
|
pascal@24015
|
427 @@vgaloop:
|
pascal@24015
|
428 dec cx
|
pascal@24015
|
429 add al,6
|
pascal@24015
|
430 jnb @@vgaloop ; vga=normal,extended,ask
|
pascal@24015
|
431 @@vga:
|
pascal@24015
|
432 xchg ax,cx
|
pascal@24015
|
433 ;cwd
|
pascal@24015
|
434 jmp @@end
|
pascal@24015
|
435 @@endstrtol:
|
pascal@24015
|
436 mov cl,10
|
pascal@24015
|
437 cmp al,'k'-'a'+10
|
pascal@24015
|
438 je @@shift
|
pascal@24015
|
439 mov cl,20
|
pascal@24015
|
440 cmp al,'m'-'a'+10
|
pascal@24015
|
441 je @@shift
|
pascal@24015
|
442 mov cl,30
|
pascal@24015
|
443 cmp al,'g'-'a'+10
|
pascal@24015
|
444 ifndef NO386
|
pascal@24015
|
445 jne @@noshift
|
pascal@24015
|
446 @@shift:
|
pascal@24015
|
447 shl ebx,cl
|
pascal@24015
|
448 @@noshift:
|
pascal@24015
|
449 popf
|
pascal@24015
|
450 jnc @@end2
|
pascal@24015
|
451 neg ebx
|
pascal@24015
|
452 @@end2:
|
pascal@24015
|
453 push ebx
|
pascal@24015
|
454 pop ax
|
pascal@24015
|
455 pop dx
|
pascal@24015
|
456 else
|
pascal@24015
|
457 @@shift:
|
pascal@24015
|
458 xchg ax,bx
|
pascal@24015
|
459 jne @@noshift
|
pascal@24015
|
460 extrn N_LXLSH@:near
|
pascal@24015
|
461 call N_LXLSH@
|
pascal@24015
|
462 @@noshift:
|
pascal@24015
|
463 popf
|
pascal@24015
|
464 jne @@end
|
pascal@24015
|
465 not dx
|
pascal@24015
|
466 neg ax
|
pascal@24015
|
467 jne @@end
|
pascal@24015
|
468 inc dx
|
pascal@24015
|
469 @@end:
|
pascal@24015
|
470 endif
|
pascal@23999
|
471 @@setnum:
|
pascal@23993
|
472 xchg ax,si
|
pascal@20751
|
473 mov [di+2],dx
|
pascal@20751
|
474 @@done:
|
pascal@23993
|
475 mov [di],si
|
pascal@23993
|
476 xchg ax,di
|
pascal@20751
|
477 @@nokeyword:
|
pascal@23993
|
478 pop di si bx
|
pascal@20751
|
479 ret
|
pascal@20751
|
480
|
pascal@24015
|
481 @@notvga:
|
pascal@24015
|
482 mov cl,10 ; radix
|
pascal@24015
|
483 cmp al,'-'
|
pascal@24015
|
484 jne @@radixkeep
|
pascal@24015
|
485 lodsb
|
pascal@24015
|
486 @@radixkeep:
|
pascal@24015
|
487 pushf
|
pascal@24015
|
488 cmp al,'0'
|
pascal@24015
|
489 jne @@radixok
|
pascal@24015
|
490 mov cl,8
|
pascal@24015
|
491 lodsb
|
pascal@24015
|
492 or al,20h
|
pascal@24015
|
493 cmp al,'x'
|
pascal@24015
|
494 jne @@radixok
|
pascal@24015
|
495 mov cl,16
|
pascal@24015
|
496 @@strtollp:
|
pascal@24015
|
497 lodsb
|
pascal@24015
|
498 @@radixok:
|
pascal@24015
|
499 or al,20h
|
pascal@24015
|
500 sub al,'0'
|
pascal@24015
|
501 jb @@endstrtol
|
pascal@24015
|
502 cmp al,9
|
pascal@24015
|
503 jbe @@digitok
|
pascal@24015
|
504 cmp al,'a'-'0'
|
pascal@24015
|
505 jb @@endstrtol
|
pascal@24015
|
506 sub al,'a'-'0'-10
|
pascal@24015
|
507 @@digitok:
|
pascal@24015
|
508 cmp al,cl
|
pascal@24015
|
509 jae @@endstrtol
|
pascal@24015
|
510 cbw
|
pascal@24015
|
511 ifndef NO386
|
pascal@24015
|
512 cwde
|
pascal@24015
|
513 xchg eax,ebx
|
pascal@24015
|
514 mul ecx
|
pascal@24015
|
515 add ebx,eax
|
pascal@24015
|
516 else
|
pascal@24015
|
517 push ax
|
pascal@24015
|
518 xchg ax,dx
|
pascal@24015
|
519 mul cx
|
pascal@24015
|
520 xchg ax,bx
|
pascal@24015
|
521 mul cx
|
pascal@24015
|
522 add dx,bx
|
pascal@24015
|
523 pop bx
|
pascal@24015
|
524 add bx,ax
|
pascal@24015
|
525 adc dx,0
|
pascal@24015
|
526 endif
|
pascal@24015
|
527 jmp @@strtollp
|
pascal@24015
|
528
|
pascal@20751
|
529 endp @argstr$qpxzcxt1ppxzc
|
pascal@20751
|
530
|
pascal@23996
|
531 ;***************************************************************
|
pascal@23996
|
532 ;_fastcall void puts(bx:const char* s):
|
pascal@23996
|
533 ;***************************************************************
|
pascal@23996
|
534 global @puts$qpxzc:near
|
pascal@20751
|
535
|
pascal@23996
|
536 ; global puts:near ; puts(bx)
|
pascal@23996
|
537 @putsz:
|
pascal@23996
|
538 call @putc
|
pascal@23996
|
539 @puts$qpxzc:
|
pascal@23996
|
540 puts:
|
pascal@23996
|
541 mov dl,[bx]
|
pascal@23996
|
542 inc bx
|
pascal@23996
|
543 or dl,dl
|
pascal@23996
|
544 jne @putsz
|
pascal@23996
|
545 mov dl,10
|
pascal@23996
|
546 @putc:
|
pascal@23996
|
547 cmp dl,10
|
pascal@23996
|
548 jne @putcz
|
pascal@23996
|
549 call @putcz2
|
pascal@23996
|
550 @putcz2:
|
pascal@23996
|
551 xor dl,7 ; 10^13 1010^1101
|
pascal@23996
|
552 @putcz:
|
pascal@23996
|
553 mov ah,2
|
pascal@23996
|
554 do_int21h:
|
pascal@23996
|
555 int 21h
|
pascal@23996
|
556 ret
|
pascal@19515
|
557
|
pascal@19515
|
558
|
pascal@22152
|
559 include "himem.inc"
|
pascal@22152
|
560
|
pascal@19515
|
561 ;***************************************************************
|
pascal@20630
|
562 ;_fastcall char* malloc_or_die(ax:unsigned size);
|
pascal@19515
|
563 ;***************************************************************
|
pascal@21757
|
564 xchg_heap_top:
|
pascal@22668
|
565 xchg ax,[bx]
|
pascal@21757
|
566 ret
|
pascal@21757
|
567
|
pascal@20528
|
568 proc @malloc_or_die$qui near
|
pascal@19515
|
569
|
pascal@23996
|
570 malloc_or_die: ; ax = malloc_or_die(ax)
|
pascal@22668
|
571 extrn _heap_top
|
pascal@22668
|
572 mov bx,offset _heap_top
|
pascal@22668
|
573 add ax,[bx]
|
pascal@22668
|
574 jnc xchg_heap_top
|
pascal@20456
|
575 mov bx,offset msg_malloc
|
pascal@19515
|
576
|
pascal@20528
|
577 endp @malloc_or_die$qui
|
pascal@19515
|
578
|
pascal@19515
|
579
|
pascal@19515
|
580 ;***************************************************************
|
pascal@20630
|
581 ;_fastcall int die(bx:const char* msg);
|
pascal@22152
|
582 ;int exit(ax:int status);
|
pascal@22152
|
583 ;int abort(void);
|
pascal@19515
|
584 ;***************************************************************
|
pascal@20528
|
585 global @die$qpxzc:near
|
pascal@20528
|
586 proc @die$qpxzc near
|
pascal@20528
|
587 @die$qpxzc:
|
pascal@19515
|
588 global die:near ; die(bx)
|
pascal@19515
|
589 die:
|
pascal@19515
|
590 call puts
|
pascal@21984
|
591 global @exit$qv:near
|
pascal@21984
|
592 @exit$qv:
|
pascal@19538
|
593 _exit:
|
pascal@22152
|
594 extrn _imgs:image_himem
|
pascal@22152
|
595 mov cx,[(word _imgs.buf)+2] ; no_exit ?
|
pascal@21757
|
596 mov ah,4Ch
|
pascal@22152
|
597 jcxz do_int21h
|
pascal@19515
|
598 mov bx, offset msg_hang
|
pascal@19515
|
599 call puts
|
pascal@20486
|
600 ; global _abort:near
|
pascal@19515
|
601 _abort:
|
pascal@19515
|
602 cli
|
pascal@19515
|
603 hlt
|
pascal@20778
|
604 jmp _abort
|
pascal@19515
|
605
|
pascal@20528
|
606 endp @die$qpxzc
|
pascal@19515
|
607
|
pascal@22152
|
608 ;***************************************************************
|
pascal@23996
|
609 ;_fastcall void open_image(si:struct image_himem *m, ax:const char *name);
|
pascal@22152
|
610 ;***************************************************************
|
pascal@22152
|
611
|
pascal@23996
|
612 global @open_image$qp11image_himempxzc:near
|
pascal@23996
|
613 proc @open_image$qp11image_himempxzc near
|
pascal@23996
|
614
|
pascal@23996
|
615 mov [(image_himem si).state],ax
|
pascal@23996
|
616 push ax
|
pascal@23996
|
617 @@next:
|
pascal@23996
|
618 call next_chunk
|
pascal@23996
|
619 ifndef NO386
|
pascal@23996
|
620 add eax,3
|
pascal@23996
|
621 and al,0FCh
|
pascal@23996
|
622 add [(image_himem si).size],eax ; m->size += m->chunk_size
|
pascal@23996
|
623 or eax,eax
|
pascal@23996
|
624 else
|
pascal@23996
|
625 add ax,3
|
pascal@23996
|
626 adc dx,0
|
pascal@23996
|
627 and al,0FCh
|
pascal@23996
|
628 add [word (image_himem si).size],ax ; m->size += m->chunk_size
|
pascal@23996
|
629 adc [word ((image_himem si).size)+2],dx
|
pascal@23996
|
630 or ax,dx
|
pascal@23996
|
631 endif
|
pascal@23996
|
632 jnz @@next
|
pascal@23996
|
633 pop [(image_himem si).state]
|
pascal@23996
|
634
|
pascal@23996
|
635 endp @open_image$qp11image_himempxzc
|
pascal@22152
|
636
|
pascal@19515
|
637
|
pascal@19636
|
638 ;***************************************************************
|
pascal@23996
|
639 ;static long next_chunk(struct image_himem *si);
|
pascal@19636
|
640 ;***************************************************************
|
pascal@19636
|
641 proc next_chunk near
|
pascal@19636
|
642
|
pascal@23996
|
643 ifndef NO_CLOSE
|
pascal@23996
|
644 mov ax,[(image_himem si).fd]
|
pascal@19636
|
645 call close
|
pascal@23996
|
646 endif
|
pascal@19636
|
647 ifndef NO386
|
pascal@19636
|
648 xor eax,eax
|
pascal@19636
|
649 else
|
pascal@19636
|
650 xor ax,ax
|
pascal@20485
|
651 cwd
|
pascal@19636
|
652 endif
|
pascal@23996
|
653 mov [(image_himem si).fd],ax
|
pascal@23996
|
654 mov bx,[(image_himem si).state]
|
pascal@19636
|
655 cmp al,[bx] ; ""
|
pascal@19636
|
656 jz @@end
|
pascal@23996
|
657 dec bx
|
pascal@23996
|
658 push di
|
pascal@19636
|
659 @@scan:
|
pascal@23996
|
660 inc bx
|
pascal@23996
|
661 mov al,[bx]
|
pascal@23996
|
662 mov di,bx
|
pascal@23996
|
663 or al,al
|
pascal@19636
|
664 jz @@eos
|
pascal@23996
|
665 sub al,','
|
pascal@19636
|
666 jnz @@scan
|
pascal@23996
|
667 inc bx
|
pascal@19636
|
668 @@eos:
|
pascal@23996
|
669 xchg [(image_himem si).state],bx ; set start of string
|
pascal@23996
|
670 mov [current_file],bx
|
pascal@23996
|
671 xchg [di],ax ; set temp eos (ax == 0)
|
pascal@23996
|
672 push ax
|
pascal@23996
|
673 call @open$qpxzc
|
pascal@23996
|
674 pop [word di] ; restore string
|
pascal@23996
|
675 pop di
|
pascal@23996
|
676 jnc @@opened
|
pascal@23996
|
677 loadfailure:
|
pascal@23996
|
678 ;***************************************************************
|
pascal@23996
|
679 ;_fastcall void loadfailure(void);
|
pascal@23996
|
680 ;***************************************************************
|
pascal@23996
|
681 global @loadfailure$qv:near
|
pascal@23996
|
682 @loadfailure$qv:
|
pascal@23996
|
683 mov bx,0
|
pascal@23996
|
684 org $-2
|
pascal@23996
|
685 current_file dw ?
|
pascal@23996
|
686 call puts
|
pascal@23996
|
687 mov bx,offset loaderr
|
pascal@23996
|
688 jmpdie:
|
pascal@23996
|
689 jmp die
|
pascal@23996
|
690 @@opened:
|
pascal@23996
|
691 mov [(image_himem si).fd],ax
|
pascal@23996
|
692 ifndef NO_CLOSE
|
pascal@23996
|
693 mov [(image_himem si).fd2close],ax
|
pascal@23996
|
694 endif
|
pascal@19636
|
695 ifndef NO386
|
pascal@23996
|
696 mov eax,[_isostate.filesize]
|
pascal@19636
|
697 @@end:
|
pascal@23996
|
698 mov [(image_himem si).chunk_size],eax
|
pascal@19636
|
699 else
|
pascal@23996
|
700 mov ax,[word _isostate.filesize]
|
pascal@23996
|
701 mov dx,[(word _isostate.filesize)+2]
|
pascal@19636
|
702 @@end:
|
pascal@23996
|
703 mov [word (image_himem si).chunk_size],ax
|
pascal@23996
|
704 mov [word ((image_himem si).chunk_size)+2],dx
|
pascal@19636
|
705 endif
|
pascal@19636
|
706 ret
|
pascal@19636
|
707
|
pascal@19636
|
708 endp next_chunk
|
pascal@19636
|
709
|
pascal@23996
|
710 ;***************************************************************
|
pascal@19636
|
711
|
pascal@19571
|
712 struc data_himem ;struct data_himem {
|
pascal@24013
|
713 first dd ? ; 0 u32 first; *must* be the first one
|
pascal@24013
|
714 cacheidx dw ? ; 4 int cacheidx; quad *
|
pascal@24013
|
715 pageidx dw ? ; 6 int pageidx; byte *
|
pascal@19571
|
716 cache dd 1024 dup(?) ; 8 int cache;
|
pascal@19571
|
717 page dd 1024 dup(?) ;4104 int page;
|
pascal@24013
|
718 ends data_himem ;};
|
pascal@19571
|
719
|
pascal@19515
|
720 ;***************************************************************
|
pascal@23992
|
721 ;_fastcall u32* malloc_bufv_or_die(si:struct image_himem *m);
|
pascal@19538
|
722 ;***************************************************************
|
pascal@20528
|
723 global @malloc_bufv_or_die$qp11image_himem:near
|
pascal@20528
|
724 proc @malloc_bufv_or_die$qp11image_himem near
|
pascal@19538
|
725
|
pascal@19636
|
726 p386
|
pascal@19538
|
727 push si
|
pascal@24013
|
728 ;mov ecx,[(image_himem si).size]
|
pascal@24013
|
729 ;shr ecx,20 ; pages index size = size >> 20
|
pascal@24013
|
730 ;mov ax,cx
|
pascal@24013
|
731 ;add ax,size data_himem-4096
|
pascal@24013
|
732 mov ax,size data_himem
|
pascal@19571
|
733 call malloc_or_die
|
pascal@24013
|
734 ;mov cx,4096+4095 ; cnt = 1+(m->size+PAGE_MASK)/PAGE_SIZE;
|
pascal@24013
|
735 mov ecx,4096+4095 ; cnt = 1+(m->size+PAGE_MASK)/PAGE_SIZE;
|
pascal@19571
|
736 add ecx,[(image_himem si).size]
|
pascal@19571
|
737 shr ecx,12
|
pascal@19571
|
738 mov [curdata],ax
|
pascal@24013
|
739 mov [(image_himem si).bufv],ax ; update m->bufv
|
pascal@19571
|
740 xchg ax,si
|
pascal@19538
|
741 @@vcpi_alloc:
|
pascal@23996
|
742 mov ax,0DE04h ; allocate a 4K page => EDX
|
pascal@19538
|
743 int 67h
|
pascal@19538
|
744 or ah,ah
|
pascal@19538
|
745 mov bx,offset vcpi_alloc_err
|
pascal@23996
|
746 jnz jmpdie
|
pascal@19571
|
747 ; for (i = cnt-1; i >= 0; i--)
|
pascal@24015
|
748 ; if (edx < pm.fallback+pm.size) again
|
pascal@24015
|
749 mov bx,offset _imgs.fallback+size image_himem
|
pascal@24015
|
750 mov eax,[bx-2+6-size image_himem] ; pm.size
|
pascal@24015
|
751 add eax,[bx-2+2-size image_himem]
|
pascal@24015
|
752 cmp eax,edx ; pm.fallback+pm.size <= edx ?
|
pascal@24015
|
753 ja @@vcpi_alloc
|
pascal@19571
|
754 mov eax,ecx
|
pascal@19571
|
755 dec eax
|
pascal@19571
|
756 shl eax,12 ; i*_4k
|
pascal@19571
|
757 ; if (edx >= initrd.fallback+i*_4k && edx < initrd.fallback+initrd.size) again
|
pascal@24015
|
758 add eax,[bx-2+2] ; +initrd.fallback
|
pascal@19571
|
759 cmp eax,edx ; initrd.fallback+i*_4k > edx ?
|
pascal@19571
|
760 ja @@initrdok
|
pascal@24015
|
761 mov eax,[bx-2+6] ; initrd.size
|
pascal@24015
|
762 add eax,[bx-2+2] ; +initrd.fallback
|
pascal@19571
|
763 cmp eax,edx ; initrd.fallback+initrd.size > edx ?
|
pascal@24013
|
764 @@ja_vcpi_alloc:
|
pascal@19571
|
765 ja @@vcpi_alloc
|
pascal@19571
|
766 @@initrdok:
|
pascal@19571
|
767 cmp [(data_himem si).first],0
|
pascal@19571
|
768 jne @@notfirst
|
pascal@19571
|
769 mov [(data_himem si).first],edx
|
pascal@19571
|
770 @@notfirst:
|
pascal@19571
|
771 mov bx,[(data_himem si).cacheidx]
|
pascal@19571
|
772 cmp bh,4
|
pascal@19571
|
773 jae @@nextpage
|
pascal@19571
|
774 shl bx,2
|
pascal@19571
|
775 inc [(data_himem si).cacheidx]
|
pascal@24013
|
776 mov [(data_himem bx+si).cache],edx ; cache[cacheidx++] = edx
|
pascal@19571
|
777 loopd @@vcpi_alloc
|
pascal@19571
|
778 mov [(data_himem bx+si).cache],ecx ; last is 0
|
pascal@19571
|
779 @@nextpage:
|
pascal@19571
|
780 and [(data_himem si).cacheidx],0
|
pascal@19571
|
781 mov bx,[(data_himem si).pageidx]
|
pascal@19571
|
782 mov [(data_himem bx+si).page],edx
|
pascal@19571
|
783 add [(data_himem si).pageidx],4
|
pascal@19571
|
784 push cx
|
pascal@19571
|
785 lea cx,[(data_himem si).cache]
|
pascal@19571
|
786 ifdef NO386
|
pascal@19571
|
787 push edx
|
pascal@24015
|
788 pop ax ; to es:ax
|
pascal@24015
|
789 pop es
|
pascal@19571
|
790 endif
|
pascal@24015
|
791 call storepage ; storepage(edx/es:ax,cx)
|
pascal@19571
|
792 pop cx
|
pascal@19571
|
793 or ecx,ecx ; clear C
|
pascal@24013
|
794 jnz @@ja_vcpi_alloc
|
pascal@19571
|
795 mov [dword (data_himem si).cacheidx],ecx
|
pascal@19571
|
796 xchg ax,si
|
pascal@19538
|
797 pop si
|
pascal@19538
|
798 ret
|
pascal@19636
|
799 ifdef NO386
|
pascal@19636
|
800 p8086
|
pascal@19636
|
801 endif
|
pascal@19538
|
802
|
pascal@20528
|
803 endp @malloc_bufv_or_die$qp11image_himem
|
pascal@19538
|
804
|
pascal@19538
|
805
|
pascal@19538
|
806 ;***************************************************************
|
pascal@24013
|
807 ;_fastcall void memcpy_image_initrd(si:struct image_himem *m);
|
pascal@24013
|
808 ;_fastcall void memcpy_image_kernel(si:struct image_himem *m);
|
pascal@20630
|
809 ;_fastcall void memcpy_image(bx:struct image_himem *m);
|
pascal@19515
|
810 ;***************************************************************
|
pascal@24013
|
811 global @memcpy_image_initrd$qv:near
|
pascal@24013
|
812 @memcpy_image_initrd$qv:
|
pascal@24013
|
813 lea bx,[si+size image_himem]
|
pascal@23992
|
814 db 0A9h ; test ax,imm
|
pascal@24013
|
815 global @memcpy_image_kernel$qv:near
|
pascal@24013
|
816 @memcpy_image_kernel$qv:
|
pascal@23992
|
817 mov bx,si
|
pascal@20528
|
818 proc @memcpy_image$qp11image_himem near
|
pascal@19515
|
819
|
pascal@19571
|
820 ifndef NO386
|
pascal@19571
|
821 mov edx,[(image_himem bx).fallback]
|
pascal@19571
|
822 mov eax,[(image_himem bx).buf]
|
pascal@19571
|
823 cmp eax,edx ; if (m->fallback != m->buf)
|
pascal@19571
|
824 jz @@skip ; memcpy32(m->fallback,0,m->buf,m->size)
|
pascal@19571
|
825 mov ecx,[(image_himem bx).size]
|
pascal@19571
|
826 else
|
pascal@24015
|
827 les cx,[((image_himem bx).buf)]
|
pascal@21984
|
828 mov dx,es
|
pascal@24015
|
829 les ax,[((image_himem bx).fallback)]
|
pascal@19571
|
830 cmp ax,cx ; if (m->fallback != m->buf)
|
pascal@19571
|
831 jnz @@do
|
pascal@24015
|
832 cmp dx,[word ((image_himem bx).fallback)+2]
|
pascal@19571
|
833 jz @@skip ; memcpy32(m->fallback,0,m->buf,m->size)
|
pascal@19571
|
834 @@do:
|
pascal@24015
|
835 push [((image_himem bx).size)]
|
pascal@24015
|
836 xor bx,bx
|
pascal@24015
|
837 call_memcpy32: ; call_memcpy32(to=es:ax,fromseg=bx,fromofs=dx:cx,size)
|
pascal@24015
|
838 push dx ; [word ((image_himem bx).buf)+2]
|
pascal@24013
|
839 push cx ; [word ((image_himem bx).buf)]
|
pascal@24015
|
840 push bx
|
pascal@24015
|
841 push es ; push es:ax
|
pascal@19571
|
842 push ax
|
pascal@19571
|
843 jmp @@memcpy
|
pascal@24015
|
844 endif
|
pascal@20146
|
845 memcpy_imagez: ; memcpy_imagez(edx,eax,ecx)
|
pascal@19636
|
846 p386
|
pascal@19571
|
847 push ecx
|
pascal@19571
|
848 push eax
|
pascal@19571
|
849 push 0
|
pascal@24015
|
850 ifndef NO386
|
pascal@24015
|
851 call_memcpy32: ; call_memcpy32(to=edx,fromseg,fromofs,size)
|
pascal@24015
|
852 endif
|
pascal@19571
|
853 push edx
|
pascal@19636
|
854 ifdef NO386
|
pascal@19636
|
855 p8086
|
pascal@19636
|
856 endif
|
pascal@19571
|
857 @@memcpy:
|
pascal@20528
|
858 extrn memcpy32:near
|
pascal@20528
|
859 call near memcpy32
|
pascal@19571
|
860 @@skip:
|
pascal@19571
|
861 ret
|
pascal@19571
|
862
|
pascal@20528
|
863 endp @memcpy_image$qp11image_himem
|
pascal@19571
|
864
|
pascal@19571
|
865 ;***************************************************************
|
pascal@23992
|
866 ;_fastcall void storepage(di:u32 *dst);
|
pascal@19571
|
867 ;***************************************************************
|
pascal@20538
|
868 global @storepage$qpul:near
|
pascal@20538
|
869 proc @storepage$qpul near
|
pascal@19571
|
870
|
pascal@19571
|
871 ifndef NO386
|
pascal@23992
|
872 mov edx,[di]
|
pascal@19571
|
873 else
|
pascal@23992
|
874 les ax,[dword di]
|
pascal@19571
|
875 endif
|
pascal@20538
|
876 mov cx,offset _xfer_buf
|
pascal@20146
|
877 storepage: ; storepage(edx,cx)
|
pascal@19571
|
878 ifndef NO386
|
pascal@19571
|
879 push 0
|
pascal@19571
|
880 push 4096
|
pascal@19571
|
881 push 0
|
pascal@24015
|
882 push cx
|
pascal@24015
|
883 push ds ; call_memcpy32(to=edx,fromseg,fromofs,size)
|
pascal@19571
|
884 else
|
pascal@24015
|
885 xor dx,dx
|
pascal@24015
|
886 push dx ; 0
|
pascal@24015
|
887 mov bx,4096
|
pascal@24015
|
888 push bx ; 4096
|
pascal@24015
|
889 mov bx,ds ; call_memcpy32(to=es:ax,fromseg=bx,fromofs=dx:cx,size)
|
pascal@19571
|
890 endif
|
pascal@19571
|
891 jmp call_memcpy32
|
pascal@19571
|
892
|
pascal@20538
|
893 endp @storepage$qpul
|
pascal@19571
|
894
|
pascal@19571
|
895
|
pascal@19636
|
896 p386
|
pascal@19571
|
897 ;***************************************************************
|
pascal@23992
|
898 ;_fastcall void reset_bufv(di:u32 *p);
|
pascal@19571
|
899 ;***************************************************************
|
pascal@20528
|
900 global @reset_bufv$qpul:near
|
pascal@20528
|
901 proc @reset_bufv$qpul near
|
pascal@19571
|
902
|
pascal@23992
|
903 mov [curdata],di
|
pascal@24013
|
904 and [dword (data_himem di).cacheidx],0 ; and pageidx=0
|
pascal@19571
|
905 ret
|
pascal@19571
|
906
|
pascal@20528
|
907 endp @reset_bufv$qpul
|
pascal@19571
|
908
|
pascal@19571
|
909 ;***************************************************************
|
pascal@23992
|
910 ;u32* di=prev_bufv();
|
pascal@23992
|
911 ;u32* di=prev_bufv();
|
pascal@19571
|
912 ;***************************************************************
|
pascal@19571
|
913 global _prev_bufv:near
|
pascal@19571
|
914 global _next_bufv:near
|
pascal@19571
|
915 proc _prev_bufv near
|
pascal@19571
|
916
|
pascal@19571
|
917 stc
|
pascal@19571
|
918 db 73h ; jnc
|
pascal@19571
|
919 _next_bufv:
|
pascal@19571
|
920 clc
|
pascal@24013
|
921 push si
|
pascal@23992
|
922 mov bx,0
|
pascal@22176
|
923 org $-2
|
pascal@22176
|
924 curdata dw ?
|
pascal@19571
|
925 sbb ax,ax
|
pascal@20527
|
926 cmc
|
pascal@23992
|
927 adc ax,[(data_himem bx).cacheidx] ; -1/+1
|
pascal@24013
|
928 mov si,3ffh
|
pascal@24013
|
929 and si,ax
|
pascal@24013
|
930 mov [(data_himem bx).cacheidx],si
|
pascal@24013
|
931 shl si,2
|
pascal@19571
|
932 xor ecx,ecx
|
pascal@19571
|
933 test ax,0fc00h
|
pascal@24013
|
934 jz @@gotpage ; FFFF / 0400
|
pascal@24013
|
935 xchg al,ah ; FFFC / 0004
|
pascal@19571
|
936 and al,0fch
|
pascal@23992
|
937 add [(data_himem bx).pageidx],ax
|
pascal@23992
|
938 mov di,[(data_himem bx).pageidx]
|
pascal@23992
|
939 lea di,[(data_himem bx+di).page]
|
pascal@19571
|
940 mov edx,ds
|
pascal@19571
|
941 shl edx,4
|
pascal@23992
|
942 lea cx,[(data_himem bx).cache]
|
pascal@19571
|
943 add edx,ecx
|
pascal@23992
|
944 mov eax,[di]
|
pascal@19571
|
945 or eax,eax
|
pascal@24013
|
946 jz @@ret
|
pascal@24013
|
947 mov cx,4096 ; get page
|
pascal@24013
|
948 call memcpy_imagez ; memcpy_imagez(edx,eax,ecx)
|
pascal@19571
|
949 @@gotpage:
|
pascal@24013
|
950 lea ax,[(data_himem bx+si).cache]
|
pascal@24013
|
951 or si,[(data_himem bx).pageidx] ; !pageidx && !cacheidx
|
pascal@19571
|
952 jnz @@notfirst2
|
pascal@23992
|
953 xchg ax,bx ; &first
|
pascal@19571
|
954 @@notfirst2:
|
pascal@23992
|
955 xchg ax,di
|
pascal@24013
|
956 @@ret:
|
pascal@24013
|
957 pop si
|
pascal@19571
|
958 ret
|
pascal@19571
|
959
|
pascal@19571
|
960 endp _prev_bufv
|
pascal@19571
|
961
|
pascal@20146
|
962 ifdef NO386
|
pascal@20146
|
963 p8086
|
pascal@20146
|
964 endif
|
pascal@19571
|
965
|
pascal@19571
|
966 ;***************************************************************
|
pascal@23996
|
967 ;_fastcall int read_image(si:struct image_himem *m);
|
pascal@19515
|
968 ;***************************************************************
|
pascal@20538
|
969 global @read_image$qp11image_himem:near
|
pascal@20538
|
970 proc @read_image$qp11image_himem near
|
pascal@19515
|
971
|
pascal@23996
|
972 push di
|
pascal@23996
|
973 mov di,4096
|
pascal@23996
|
974 push di ; original size
|
pascal@19515
|
975 @@loop:
|
pascal@19538
|
976 ifndef NO386
|
pascal@23996
|
977 movzx ecx,di
|
pascal@23996
|
978 mov eax,[(image_himem si).chunk_size]
|
pascal@19538
|
979 cmp ecx,eax
|
pascal@19538
|
980 jb @@szok
|
pascal@19538
|
981 else
|
pascal@23996
|
982 mov cx,di
|
pascal@23996
|
983 mov ax,[word (image_himem si).chunk_size]
|
pascal@19538
|
984 cmp cx,ax
|
pascal@19515
|
985 jb @@szok
|
pascal@23996
|
986 cmp [word ((image_himem si).chunk_size)+2],0 ; hi m->chunk_size
|
pascal@19515
|
987 jne @@szok
|
pascal@20484
|
988 endif
|
pascal@19515
|
989 xchg ax,cx
|
pascal@19515
|
990 @@szok:
|
pascal@19538
|
991 jcxz image_done
|
pascal@20778
|
992 mov dx,offset _xfer_buf+4096
|
pascal@23996
|
993 sub dx,di
|
pascal@23996
|
994 mov bx,[si]
|
pascal@20528
|
995 call @read$cxdxbx
|
pascal@23806
|
996 jb image_done
|
pascal@19515
|
997 xor cx,cx
|
pascal@20539
|
998 cwd ; ax < 8000h
|
pascal@19538
|
999 ifndef NO386
|
pascal@19538
|
1000 cwde ; ax < 8000h
|
pascal@23996
|
1001 sub [(image_himem si).chunk_size],eax
|
pascal@20541
|
1002 xchg eax,ebx
|
pascal@19538
|
1003 else
|
pascal@23996
|
1004 sub [word (image_himem si).chunk_size],ax
|
pascal@20539
|
1005 xchg ax,bx
|
pascal@23996
|
1006 sbb [word ((image_himem si).chunk_size)+2],dx
|
pascal@19538
|
1007 jnz @@fill
|
pascal@23996
|
1008 cmp [word (image_himem si).chunk_size],dx
|
pascal@19538
|
1009 endif
|
pascal@19538
|
1010 jnz @@fill
|
pascal@20539
|
1011 dec cx
|
pascal@19515
|
1012 @@fill:
|
pascal@20539
|
1013 test bl,3
|
pascal@19515
|
1014 je @@filled
|
pascal@20539
|
1015 mov [bx+_xfer_buf],dh
|
pascal@20539
|
1016 inc bx
|
pascal@19515
|
1017 jmp @@fill
|
pascal@19515
|
1018 @@filled:
|
pascal@19538
|
1019 ifndef NO386
|
pascal@23996
|
1020 sub [(image_himem si).remaining],ebx
|
pascal@19538
|
1021 else
|
pascal@23996
|
1022 sub [word (image_himem si).remaining],bx
|
pascal@23996
|
1023 sbb [word ((image_himem si).remaining)+2],dx
|
pascal@19538
|
1024 endif
|
pascal@23996
|
1025 sub di,bx
|
pascal@19538
|
1026 pushf
|
pascal@20778
|
1027 jcxz @@same_chunk
|
pascal@20778
|
1028 call next_chunk
|
pascal@19538
|
1029 @@same_chunk:
|
pascal@19538
|
1030 popf
|
pascal@19538
|
1031 jnz @@loop
|
pascal@20484
|
1032 image_done:
|
pascal@20528
|
1033 pop ax ; original size
|
pascal@23996
|
1034 sub ax,di
|
pascal@23996
|
1035 pop di
|
pascal@20538
|
1036 ret
|
pascal@19515
|
1037
|
pascal@20538
|
1038 endp @read_image$qp11image_himem
|
pascal@19515
|
1039
|
pascal@19515
|
1040
|
pascal@19515
|
1041 ends _TEXT
|
pascal@19515
|
1042
|
pascal@19515
|
1043 end
|
pascal@19515
|
1044
|
pascal@19515
|
1045 ;###### END OF FILE ############################################
|
pascal@19825
|
1046
|