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

sc-im: replaced released version by development version
author Hans-G?nter Theisgen
date Fri Apr 26 08:13:41 2024 +0100 (2 weeks ago)
parents e4805f18eb64
children
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