wok annotate linld/stuff/src/CRTL.ASM @ rev 24015

Up tazinst (112)
author Pascal Bellard <pascal.bellard@slitaz.org>
date Thu Feb 25 10:56:54 2021 +0000 (2021-02-25)
parents c1844f1c4954
children 61df94a0fa43
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