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