snark13/Sprinter-SDCC
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
c71e249a4e8756d7638fc6b29ed06ab9ee127188
Sprinter-SDCC/third_party/solid-c/SRC/CLIB/STDLIB.ASM
T
snark13 c71e249a4e Add full compiler toolchain, libc, examples and reference docs 
First substantive commit: the entire Sprinter C compiler tree on top of
the bare README+gitignore initial commit.

What's in here:
  bin/sprinter-cc        — driver script invoking SDCC + linker + mkexe
  libc/                  — Sprinter-specific libc layer over ESTEX/BIOS
                           (conio, gfx, io, mem, stdio + headers)
  runtime/               — crt0 variants (default/small/banked/minimal)
                           + heap + bank trampolines
  toolchain/             — mkexe (SprintEXE packer, C + tests)
  examples/              — 30 demo programs (gfx, file I/O, env, time, …)
  lib/Makefile           — builds the libc archive (sprinter.lib)
  docs/                  — converted Sprinter manuals + asm reference samples
  third_party/           — solid-c reference compiler dump + sdcc setup script
  release_docs/          — packaging / release notes

gitignore overhaul:
  • Drop dangerous blanket patterns: *.asm (would hide docs/samples/*.asm)
    and *.exe (case-insensitive match was hiding third_party/solid-c/*.EXE
    on macOS APFS).  Replaced with examples/*/*.{asm,exe,…} and lib/*.lib.
  • Restore tracking of toolchain/mkexe/tests/{one,big}.bin — those are
    INPUT fixtures, not build outputs.
  • Collapse the duplicated SDCC/C/Sdcc sections into one section per
    concern (build outputs / vendored / OS-junk).
  • Add .sprinter-cc-*/, build/ (catches lib/build/ too), .claude/.

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
2026-06-03 16:13:21 +03:00

1486 lines
20 KiB
NASM
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
; ‚室ï騥 ä㭪樨:
;
; rand
; srand
; div
; atoi
; strtol
; qsort
; bsearch
; ?lauhl
; ?sauhl
; ?mulhd
; ?mulab
; ?dvnhd
; min
; max
; abs
; ?abshl
; ?neghl
; ?nothl
; ?dvihd
; ?dvbab
; ?slhb
; ?slab
; ?srnhb
; ?srihb
; ?srab
; ?cpshd
; setjmp
; longjmp
; hex8
; hex16
; hex32
; dec8
; dec16
; dec32
;
MODULE rand
;
; "stdlib.h"
; ”ã­ªæ¨ï srand ãáâ ­ ¢«¨¢ ¥â ­ ç «ì­ãî â®çªã ¤«ï £¥­¥à æ¨¨
; ¬­®¦¥á⢠ ¯á¥¢¤®á«ãç ©­ëå 楫ëå. ‚ ª ç¥á⢥  à£ã¬¥­â  seed
; ¤«ï ¯¥à¥ãáâ ­®¢ª¨ £¥­¥à â®à  ¨á¯®«ì§ã¥âáï 1. ‹î¡®¥ ¤à㣮¥
; §­ ç¥­¨¥ seed ãáâ ­ ¢«¨¢ ¥â £¥­¥à â®à ¢ ­ ç «ì­ãî á«ãç ©­ãî
; â®çªã.
; ‚®§¢à é ¥¬®£® §­ ç¥­¨ï ­¥â.
;
; void srand(seed)
;
srand_::
ld (seed+1),hl
ret
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢®§¢à é ¥â ¯á¥¢¤®á«ãç ©­®¥ 楫®¥ ¢ ¨­â¥à¢ «¥ 0..65535.
; �¥à¥¤ ¢ë§®¢®¬ rand, ¬®¦¥â ¡ëâì ¢ë§¢ ­  äã­ªæ¨ï srand ¤«ï ãáâ -
; ­®¢ª¨ ­ ç «ì­®© á«ãç ©­®© â®çª¨.
; ”ã­ªæ¨ï ¢®§¢à é ¥â ¯á¥¢¤®á«ãç ©­®¥ ç¨á«®.
;
; in: none
; out: hl=pseudo-random number, period 0..65535
;
; int rand()
;
rand_::
seed: ld de,0 ; seed is usually 0
ld a,d
ld h,e
ld l,253
or a
sbc hl,de
sbc a,0
sbc hl,de
ld d,0
sbc a,d
ld e,a
sbc hl,de
jr nc,rnd1
inc hl
rnd1: ld (seed+1),hl
ret
ENDMODULE
MODULE div
;
; "stdlib.h"
; ”ã­ªæ¨ï ¤¥«¨â num1 ­  num2, ¢®§¢à é ï ç áâ­®¥ ¨ ®áâ â®ª.
; ‚®§¢à é ¥â áâàãªâãàã ⨯  div_t, ®¯à¥¤¥«¥­­ãî ¢ "stdlib.h".
;
; struct divt *div(uint num1, uint num2)
;
div_::
call ?dvihd##
ld (quot),hl ; ç áâ­®¥
ld (rem),de ; ®áâ â®ª
ld hl,quot ; ¢¥à­ãâì  ¤à¥á áâàãªâãàë
ret
quot: dw 0 ; ç áâ­®¥
rem: dw 0 ; ®áâ â®ª
ENDMODULE
MODULE atoi
;
; "stdlib.h"
; ”ã­ªæ¨ï ¯à¥®¡à §ã¥â ᨬ¢®«ì­ãî áâபã string ¢ 楫®¥ §­ ç¥­¨¥.
; ˆá室­ ï áâப  string ¯à¥¤áâ ¢«ï¥â ᮡ®© ¯®á«¥¤®¢ â¥«ì­®áâì
; ᨬ¢®«®¢, ª®â®àë¥ ¬®£ãâ ¡ëâì ¨­â¥à¯à¥â¨à®¢ ­ë ª ª ç¨á«®¢®¥
; §­ ç¥­¨¥ ®¯à¥¤¥«¥­­®£® ⨯ . ”ã­ªæ¨ï ¯à¥ªà é ¥â ç⥭¨¥ ¨á室­®©
; áâப¨, ª ª ⮫쪮 ¯®ï¢¨âáï ¯¥à¢ë© ᨬ¢®«, ª®â®àë© ­¥ ¬®¦¥â ¡ëâì
; ¢®á¯à¨­ïâ ª ª ç áâì ç¨á«  (¨¬ ¬®¦¥â ¡ëâì ­ã«¥¢®© ᨬ¢®«, § ¢¥à-
; è î騩 áâபã).
; ”ã­ªæ¨ï ¢®§¢à é ¥â §­ ç¥­¨¥ int ⨯ .
; ‚®§¢à é ¥¬®¥ §­ ç¥­¨¥ à ¢­® 0, ¥á«¨ ¢å®¤ ­¥ ¬®¦¥â ¡ëâì ¯à¥®¡à -
; §®¢ ­ ¢ §­ ç¥­¨¥ ¤ ­­®£® ⨯ .
; ‚ á«ãç ¥ ¯¥à¥¯®«­¥­¨ï, ¢®§¢à é ¥¬®¥ §­ ç¥­¨¥ ­¥ ®¯à¥¤¥«¥­®.
;
; int atoi(*string)
;
atoi_::
ex de,hl ; de =  ¤à¥á string
xor a
ld (@3+1),a
ld h,a
ld l,a
ld a,(de)
cp "-"
jr z,@0
cp "+"
jr z,@1
jr @2
;
;@0: ld a,1
@0: ld (@3+1),a
@1: inc de
@2: ld a,(de) ; ⥪.  ¤à¥á string
cp "0"
jr c,@3
ld a,(de)
cp "9"+1
jr nc,@3
add hl,hl
ld c,l
ld b,h
add hl,hl
add hl,hl
add hl,bc
inc de
sub "0"
ld c,a
ld b,0
add hl,bc
jp @2
;
@3: ld a,0
or a
ret z
xor a
sub l
ld l,a
ld a,0
sbc a,h
ld h,a
ret
ENDMODULE
MODULE strtol
;
; "stdlib.h"
;
; int strtol(char *s, char **eptr, int base)
;
; char *s 㪠§ â¥«ì ­  áâபã
; char **eptr 㪠§ â¥«ì ­  ª®­¥æ ¯à®á¬®âà 
; int base ¨á¯®«ì§ã¥¬®¥ ®á­®¢ ­¨¥ ç¨á« 
;
; ”ã­ªæ¨ï ¯à¥®¡à §ã¥â ᨬ¢®«ì­ãî áâபã s ¢ long-§­ ç¥­¨¥, íª¢¨¢ «¥­â­®¥ ç¨á«ã
; á § ¤ ­­ë¬ base ®á­®¢ ­¨¥¬. ”ã­ªæ¨ï ¯à¥ªà é ¥â ç⥭¨¥ áâப¨, ª ª ⮫쪮
; ¢áâà¥â¨âáï ᨬ¢®«, ª®â®àë© ­¥ ¬®¦¥â ¡ëâì ç áâìî ç¨á«  - íâ® ¬®¦¥â ¡ëâì ­ã«¥-
; ¢®© ᨬ¢®« '\0' ¢ ª®­æ¥ áâப¨ ¨«¨ ¯¥à¢ë© æ¨ä஢®© ᨬ¢®«, ª®â®àë© ¡®«ìè¥
; ¨«¨ à ¢¥­ base. …᫨ eptr ­¥ à ¢¥­ NULL, *eptr 㪠§ë¢ ¥â ­  â®â ᨬ¢®«, ­ 
; ª®â®à®¬ ®áâ ­ ¢«¨¢ ¥âáï ¯à®á¬®âà.
; ”ã­ªæ¨ï strtol ¯à¥¤¯®« £ ¥â, çâ® s 㪠§ë¢ ¥â ­  áâபã á«¥¤ãî饩 áâàãªâãàë:
;
; [whitespace][sign][0][x][digits]
;
; …᫨ base «¥¦¨â ¬¥¦¤ã 2 ¨ 36, íâ® §­ ç¥­¨¥ ¨á¯®«ì§ã¥âáï ª ª ®á­®¢ ­¨¥ á¨á⥬ë
; áç¨á«¥­¨ï ¤ ­­®£® ç¨á« . …᫨ base à ¢­® 0, ­ ç «ì­ë¥ ᨬ¢®«ë áâப¨, ­ 
; ª®â®àë¥ ãª §ë¢ ¥â s, ¨á¯®«ì§ãîâáï ¤«ï ®¯à¥¤¥«¥­¨ï ®á­®¢ ­¨ï. …᫨ ¯¥à¢ë©
; ᨬ¢®« à ¢¥­ 0 ¨ ¢â®à®© - ®¤­  ¨§ æ¨äà ®â 1 ¤® 7, â® áâப  ¨­â¥à¯à¥â¨àã¥âáï
; ª ª ¢®á쬥à¨ç­®¥ 楫®¥. …᫨ ¯¥à¢ë© ᨬ¢®« à ¢¥­ 0,   ¢â®à®© 'x' ¨«¨ 'X',
; ⮣¤  áâப  ¯®­¨¬ ¥âáï ª ª è¥áâ­ ¤æ â¥à¨ç­®¥ 楫®¥. …᫨ ¯¥à¢ë© ᨬ¢®«
; ¯à¨­ ¤«¥¦¨â ª æ¨äà ¬ 1..9, â® áâப  ¯®­¨¬ ¥âáï ª ª ¤¥áïâ¨ç­®¥ 楫®¥.
; ”ã­ªæ¨ï strtol ¢®§¢à é ¥â §­ ç¥­¨¥ ¯à¥®¡à §®¢ ­­®© áâப¨, ¥á«¨ ­¥ ¡ë«®
; ¯¥à¥¯®«­¥­¨ï ¨«¨ ¯®â¥à¨ १ã«ìâ â .
;
strtol_::
ld (base),bc ; base
push de ; **eptr
ld (s@),hl ; *s
ex de,hl
xor a
ld (sig),a
ld h,a
ld l,a
ld (n@),hl
ld a,(de)
cp "-"
jr z,@4
cp "+"
jr z,@5
jr @6
;
@4: ld a,1
ld (sig),a
@5: inc de
ld (s@),de
@6: ld a,c
or b
jr nz,@7
ld a,(de)
cp "0"
jr nz,@8
ld bc,8
ld (base),bc
inc de
ld (s@),de
ld a,(de)
and 5Fh
cp "X"
jr nz,@10
ld bc,16
ld (base),bc
inc de
ld (s@),de
jr @10
;
@8: ld bc,10
ld (base),bc
jr @10
;
@7: ld a,c
sub 16
or b
jr nz,@10
ld a,(de)
cp "0"
jr nz,@10
ld hl,1
add hl,de
ld a,(hl)
and 5Fh
cp "X"
jr nz,@10
inc hl
ld (s@),hl
@10: ld e,c
ld d,b
ld hl,000Ah
call ?CPSHD##
jr nc,@12
ld a,"9"
jr @13
;
@12: ld a,c
add a,"0"
@13: ld (?16),a
ld e,c
ld d,b
ld hl,000Ah
call ?CPSHD##
jr nc,@14
ld a,c
add a,57h
jr @15
;
@14: ld a,(?16)
@15: ld (?17),a
@23: ld hl,(s@)
ld a,(hl)
inc hl
ld (s@),hl
call tolower_##
ld (?15),a
cp "0"
jr c,@18
ld hl,(?16)
cp l
jr c,@17
cp "a"
jr c,@18
ld hl,(?17)
cp l
jr nc,@18
@17: ld de,(base)
ld hl,(n@)
call ?MULHD##
ex de,hl
ld a,(?15)
cp "9"+1
jr nc,@19
ld hl,0-"0"
jr @20
;
@19: ld hl,0-"a"+10
@20: add hl,de
ld b,0
ld c,a
add hl,bc
add hl,de
ld (n@),hl
jr @23
;
@18: ld de,(s@)
pop hl
ld (hl),e
inc hl
ld (hl),d
ld a,(sig)
ld hl,(n@)
or a
ret z
xor a
sub l
ld l,a
ld a,0
sbc a,h
ld h,a
ret
dseg
s@: dw 0
base: dw 0
sig: db 0
n@: dw 0
?15: db 0
?16: db 0
?17: db 0
ENDMODULE
MODULE qsort
;-----------------------------------------------------------
; call from qsort
;-----------------------------------------------------------
_swp_: ld a,l
or h
ret z
ld a,(de)
ex af,af'
ld a,(bc)
ld (de),a
ex af,af'
ld (bc),a
inc de
inc bc
dec hl
jr _swp_
dseg
?7: dw 0
?10: dw 0
?9: dw 0
?11: dw 0
?12: dw 0
?13: dw 0
?18: dw 0
cseg
;
; "stdlib.h"
; ”ã­ªæ¨ï ॠ«¨§ã¥â ¡ëáâàãî á®àâ¨à®¢ªã â ¡«¨æë ¤ ­­ëå.
;
; void qsort(*base, nel, size, *compare)
;
; void *base; - 㪠§ â¥«ì ­  â ¡«¨æã
; unsigned nel; - ª®«¨ç¥á⢮ í«¥¬¥­â®¢ â ¡«¨æë
; unsigned size; - à §¬¥à ¢ ¡ ©â å í«¥¬¥­â  â ¡«¨æë
; int (*compare)(); - 㪠§ â¥«ì ­  äã­ªæ¨î áà ¢­¥­¨ï
;
; €à£ã¬¥­â compare ï¥âáï 㪠§ â¥«¥¬ ­  ¯à®æ¥¤ãàã, ¯®áâ ¢«ï¥¬ãî
; ¯®«ì§®¢ â¥«¥¬. ‚ ¯à®æ¥áᥠá®àâ¨à®¢ª¨, äã­ªæ¨ï qsort ¬®¦¥â ¢ë§ë¢ âì
; íâã ¯à®æ¥¤ãàã ®¤¨­ ¨«¨ ­¥áª®«ìª® à §, ¯à¨ ª ¦¤®¬ ¢ë§®¢¥ ¯¥à¥¤ ¢ ï
; 㪠§ â¥«¨ ­  ¤¢  í«¥¬¥­â  ¬ áᨢ . �à®æ¥¤ãà  compare ¤®«¦­  áà ¢-
; ­¨¢ âì í«¥¬¥­âë,   § â¥¬ ¢®§¢à é âì ®¤­® ¨§ á«¥¤ãîé¨å int-§­ ç¥­¨©:
;
; < 0 element1 < element2
; 0 element1 = element2
; > 0 element1 > element2
;
; �®á«¥ ®âà ¡®âª¨ ä㭪樨 qsort, â ¡«¨æ  ᮤ¥à¦¨â ®âá®àâ¨à®¢ ­­ë¥
; í«¥¬¥­âë.
; ‚ á«ãç ¥ ®è¨¡ª¨, ¢®§¢à é ¥¬®£® §­ ç¥­¨ï ­¥â.
;
qsort_::
ld (?7),hl ; base ?
ld hl,-80
add hl,sp
ld sp,hl
ld l,c ; size ?
ld h,b
ld (?9),hl
ex de,hl
ld (?10),hl ; nel ?
ld hl,(?7)
ex de,hl
ld hl,0
add hl,sp
ld (hl),e
inc hl
ld (hl),d
push de
ld e,c
ld d,b
push de
ld hl,(?10)
ex de,hl
ld hl,-1
add hl,de
pop de
call ?MULHD##
pop de
add hl,de
call ?SAUHL##
dw 42
;
ld hl,0
ld (?18),hl
@5: inc h
dec h
jp m,@3
push hl
add hl,hl
ex de,hl
ld hl,2
add hl,sp
add hl,de
ld c,(hl)
inc hl
ld b,(hl)
pop hl
add hl,hl
ex de,hl
ld hl,40
add hl,sp
add hl,de
ld a,c
sub (hl)
inc hl
ld a,b
sbc a,(hl)
jr c,@4
ld hl,(?18)
dec hl
ld (?18),hl
jr @5
;
@4: ld hl,(?18)
push hl
add hl,hl
ex de,hl
ld hl,2
add hl,sp
add hl,de
push hl
ld hl,(?9)
ld c,l
ld b,h
pop hl
ld a,(hl)
sub c
ld e,a
inc hl
ld a,(hl)
sbc a,b
ld d,a
ex de,hl
ld (?12),hl
pop hl
push hl
add hl,hl
ex de,hl
ld hl,42
add hl,sp
add hl,de
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
ld (?13),hl
ld (?11),hl
@12: ld hl,(?12)
ld de,(?13)
ld a,l
sub e
ld a,h
sbc a,d
jp nc,@6
ex de,hl
ld (?13),hl
ex de,hl
add hl,bc
push bc
@8: ld (?12),hl
push bc
push hl
ld hl,@1
push hl
call ?LAUHL##
dw 92+2
;
push hl
ld hl,(?11)
ex de,hl
ld hl,(?12)
ret
;
@1: pop de
pop bc
inc h
dec h
jp p,@7
ld hl,(?12)
add hl,bc
jr @8
;
@7: push bc
push de
ld hl,(?13)
ex de,hl
ld a,e
sub c
ld c,a
ld a,d
sbc a,b
ld b,a
ld l,c
ld h,b
ld (?13),hl
@10: ld hl,(?12)
ld a,l
sub c
ld a,h
sbc a,b
jr nc,@9
ld hl,@2
push bc
push hl
call ?LAUHL##
dw 94+2
;
push hl
ld hl,(?11)
ex de,hl
ld l,c
ld h,b
ret
;
@2: ex de,hl
ld hl,0000h
pop bc
call ?CPSHD##
jr nc,@9
ld hl,(?9)
ld a,c
sub l
ld c,a
ld a,b
sbc a,h
ld b,a
ld l,c
ld h,b
ld (?13),hl
jr @10
;
@9: pop de
pop hl
ld a,e
sub c
ld a,d
sbc a,b
jr nc,@11
call _swp_
@11: pop bc
jp @12
;
@6: ld (?12),hl
pop hl
ld (?18),hl
push hl
add hl,hl
ex de,hl
ld hl,42
add hl,sp
add hl,de
push bc
ld c,(hl)
inc hl
ld b,(hl)
ld hl,(?12)
ex de,hl
pop hl
push de
call _swp_
ld hl,(?18)
ld (?18),hl
add hl,hl
ex de,hl
ld hl,44
add hl,sp
add hl,de
pop bc
ld a,(hl)
sub c
ld e,a
inc hl
ld a,(hl)
sbc a,b
ld d,a
push de
ld hl,(?18)
add hl,hl
ex de,hl
ld hl,4
add hl,sp
add hl,de
ld e,(hl)
inc hl
ld d,(hl)
ld a,c
sub e
ld l,a
ld a,b
sbc a,d
ld h,a
pop de
call ?CPSHD##
jr nc,@13
ld l,c
ld h,b
ld (?12),hl
ld hl,(?18)
ld (?18),hl
push hl
add hl,hl
ex de,hl
ld hl,4
add hl,sp
add hl,de
ld c,(hl)
inc hl
ld b,(hl)
ld hl,(?18)
inc hl
add hl,hl
ex de,hl
ld hl,4
add hl,sp
add hl,de
ld (hl),c
inc hl
ld (hl),b
pop hl
ld (?18),hl
inc hl
add hl,hl
ex de,hl
ld hl,42
add hl,sp
add hl,de
push hl
ld hl,(?12)
ld c,l
ld b,h
ld hl,(?9)
ld a,c
sub l
ld e,a
ld a,b
sbc a,h
ld d,a
ld (?9),hl
pop hl
ld (hl),e
inc hl
ld (hl),d
ld l,c
ld h,b
ex de,hl
ld hl,(?9)
ex de,hl
add hl,de
push hl
ld hl,(?18)
add hl,hl
ex de,hl
ld hl,4
add hl,sp
add hl,de
pop de
ld (hl),e
inc hl
ld (hl),d
jr @14
;
@13: ld l,c
ld h,b
push bc
ex de,hl
ld hl,(?9)
ex de,hl
add hl,de
push hl
ld hl,(?18)
ld (?18),hl
inc hl
add hl,hl
push hl
ld hl,8
add hl,sp
ex de,hl
ld (?9),hl
ex de,hl
pop de
add hl,de
pop de
ld (hl),e
inc hl
ld (hl),d
ld hl,(?18)
push hl
add hl,hl
ex de,hl
ld hl,46
add hl,sp
add hl,de
ld c,(hl)
inc hl
ld b,(hl)
ld hl,(?18)
inc hl
add hl,hl
ex de,hl
ld hl,46
add hl,sp
add hl,de
ld (hl),c
inc hl
ld (hl),b
pop hl
add hl,hl
ex de,hl
ld hl,44
add hl,sp
add hl,de
pop bc
ex de,hl
ld hl,(?9)
ex de,hl
ld a,c
sub e
ld e,a
ld a,b
sbc a,d
ld d,a
ld (hl),e
inc hl
ld (hl),d
@14: pop hl
inc hl
ld (?18),hl
jp @5
;
@3: ld hl,80
add hl,sp
ld sp,hl
ret
ENDMODULE
MODULE bsearch
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢ë¯®«­ï¥â ¤¢®¨ç­ë© ¯®¨áª ¢ ®âá®àâ¨à®¢ ­­®¬ ¬ áᨢ¥.
;
; void *bsearch(*key, *base, num, size, *compare)
;
; char *key; - 㪠§ â¥«ì ­  ª«îç (áâபã) ¯®¨áª 
; char *base; - 㪠§ â¥«ì ­  ¬ áᨢ
; unsigned num; - ç¨á«® í«¥¬¥­â®¢ ¬ áᨢ 
; unsigned size; - à §¬¥à ª ¦¤®£® í«¥¬¥­â 
; int (*compare)(); - 㪠§ â¥«ì ­  äã­ªæ¨î áà ¢­¥­¨ï
;
; €à£ã¬¥­â compare ï¥âáï 㪠§ â¥«¥¬ ­  ¯à®æ¥¤ãàã, ¯®áâ ¢«ï¥¬ãî ¯®«ì§®-
; ¢ â¥«¥¬. ‚ ¯à®æ¥áᥠ¯®¨áª , äã­ªæ¨ï bsearch ¬®¦¥â ¢ë§ë¢ âì íâã ¯à®æ¥¤ãàã
; ®¤¨­ ¨«¨ ­¥áª®«ìª® à §, ¯à¨ ª ¦¤®¬ ¢ë§®¢¥ ¯¥à¥¤ ¢ ï 㪠§ â¥«¨ ­  ¤¢  í«¥-
; ¬¥­â  ¬ áᨢ . �à®æ¥¤ãà  compare ¤®«¦­  áà ¢­¨¢ âì í«¥¬¥­âë,   § â¥¬ ¢®§¢-
; à é âì ®¤­® ¨§ á«¥¤ãîé¨å int-§­ ç¥­¨©:
;
; < 0 element1 < element2
; 0 element1 = element2
; > 0 element1 > element2
;
; ”ã­ªæ¨ï bsearch ¢®§¢à é ¥â 㪠§ â¥«ì ­  ¯¥à¢®¥ ¢å®¦¤¥­¨¥ ª«îç 
; key ¢ ¬ áᨢ¥.
; ‚®§¢à é ¥âáï NULL, ¥á«¨ ª«îç  key ¢ ¬ áᨢ¥ ­¥â.
;
dseg
?33: dw 0
?37: dw 0
cseg
bsearch_::
ld (?33),hl
ex de,hl
ld (?37),hl
@18: ld a,c
or b
jr z,@16
ld hl,@15
push bc
push hl
ld hl,10
add hl,sp
ld e,(hl)
inc hl
ld d,(hl)
push de
ld de,(?37)
ld hl,(?33)
ret
@15: ld de,(?37)
pop bc
ld a,l
or h
jr nz,@17
ld hl,(?37)
ret
@17: push de
dec bc
ld hl,6
add hl,sp
ld e,(hl)
inc hl
ld d,(hl)
pop hl
add hl,de
ld (?37),hl
jr @18
;
@16: ld hl,0
ret
ENDMODULE
MODULE lauhl
;
; ‡ £à㧨âì hl ¨§ ...
;
?lauhl::
pop hl
ld e,(hl)
inc hl
ld d,(hl)
inc hl
push hl
ex de,hl
?laut::
add hl,sp
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ret
ENDMODULE
MODULE sauhl
;
; ‘®åà ­¨âì hl ¢ ...
;
?sauhl::
ex (sp),hl
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ex (sp),hl
?saut::
ex de,hl
add hl,sp
ld (hl),e
inc hl
ld (hl),d
ex de,hl
ret
ENDMODULE
MODULE mulhd
;
; “¬­®¦¥­¨¥ h * d = hl
; out: hl = १ã«ìâ â
;
?mulhd::
ld a,h
ld c,l
ld hl,0
ld b,16
@1: add hl,hl
rl c
rla
jr nc,@2
add hl,de
@2: djnz @1
ret
ENDMODULE
MODULE mulab
;
; “¬­®¦¥­¨¥ a * b
; out: a = १ã«ìâ â
;
?mulab::
ld h,a
xor a
ld l,b
ld b,8
@1: add a,a
rl h
jr nc,@2
add a,l
@2: djnz @1
ret
ENDMODULE
MODULE dvnhd
;
; �¥§§­ ª®¢®¥ ¤¥«¥­¨¥ hl / de
; out: hl,de = १ã«ìâ â
;
?dvnhd::
ld b,d
ld c,e
ld de,0
ld a,16
@1: ex af,af'
add hl,hl
rl e
rl d
jr c,@2
ld a,e
sub c
ld a,d
sbc a,b
jr c,@3
@2: or a
ex de,hl
sbc hl,bc
ex de,hl
inc l
@3: ex af,af'
dec a
jp nz,@1
ret
ENDMODULE
MODULE min
;
; "stdlib.h"
; ”ã­ªæ¨ï áà ¢­¨¢ ¥â ¤¢   à£ã¬¥­â  ¨ ¢o§¢à é ¥â
; §­ ç¥­¨¥ ­ ¨¬¥­ì襣o  à£ã¬¥­â .
; ’¨¯  à£ã¬¥­âo¢ ¨ ⨯ ¢o§¢à é ¥¬o£o §­ ç¥­¨ï
; o¤¨­ ªo¢.
;
; int min(int arg1, int arg2)
;
min_::
call ?cpshd## ; signed compare hl with de
ret c
ex de,hl
ret
ENDMODULE
MODULE max
;
; "stdlib.h"
; ”ã­ªæ¨ï áà ¢­¨¢ ¥â ¤¢   à£ã¬¥­â  ¨ ¢o§¢à é ¥â
; §­ ç¥­¨¥ ­ ¨¡®«ì襣®  à£ã¬¥­â .
; ’¨¯  à£ã¬¥­âo¢ ¨ ⨯ ¢o§¢à é ¥¬o£o §­ ç¥­¨ï
; o¤¨­ ªo¢.
;
; int max(int arg1, int arg2)
;
max_::
push hl
ex de,hl
pop de
call ?cpshd## ; signed compare hl with de
ret nc
ex de,hl
ret
ENDMODULE
MODULE abs
;
; "stdlib.h"
; ‚®§¢à é ¥â §­ ç¥­¨¥ n, à ¢­®¥  ¡á®«îâ­®© ¢¥«¨ç¨­¥ n
; in: hl = §­ ç¥­¨¥
; out: hl = १ã«ìâ â
;
; int abs(int n)
;
abs_::
?abshl::
bit 7,h
ret z
?neghl::
dec hl
?nothl::
ld a,l
cpl
ld l,a
ld a,h
cpl
ld h,a
ret
ENDMODULE
MODULE dvihd
;
; ‡­ ª®¢®¥ ¤¥«¥­¨¥ hl / de
; out: hl,de = १ã«ìâ â
;
?dvihd::
ld a,h
or a
push af ; reminder's sign
xor d
push af ; quotient's sign
call ?abshl##
ex de,hl
call ?abshl##
ex de,hl
call ?dvnhd##
pop af
call m,?neghl##
pop af
ret p
xor a
sub e
ld e,a
ld a,0
sbc a,d
ld d,a
ret
ENDMODULE
MODULE dvbab
;
; „¥«¥­¨¥ a / b
; out: b,a = १ã«ìâ â
;
?dvbab::
ld l,a
ld h,b
xor a
ld b,8
@1: sla l
rla
jr c,@2
cp h
jr c,@3
@2: sub h
inc l
@3: djnz @1
ld b,a
ld a,l
ret
ENDMODULE
MODULE slhb
;
; ‘¬¥é¥­¨¥ ¡¨â®¢ "hl" ¢«¥¢® ­  "b" à §
;
?slhb::
inc b
dec b
ret z
@1: add hl,hl
djnz @1
ret
ENDMODULE
MODULE slab
;
; ‘¬¥é¥­¨¥ ¡¨â®¢ "a" ¢«¥¢® ­  "b" à §
;
?slab::
inc b
dec b
ret z
@1: add a,a
djnz @1
ret
ENDMODULE
MODULE srnhb
;
; �¥§§­ ª®¢®¥ ᬥ饭¨¥ ¡¨â®¢ "hl" ¢¯à ¢® ­  "b" à §
;
?srnhb::
inc b
dec b
ret z
@1: srl h
rr l
djnz @1
ret
ENDMODULE
MODULE srihb
;
; ‡­ ª®¢®¥ ᬥ饭¨¥ ¡¨â®¢ "hl" ¢¯à ¢® ­  "b" à §
;
?srihb::
inc b
dec b
ret z
@1: sra h
rr l
djnz @1
ret
ENDMODULE
MODULE srab
;
; ‘¬¥é¥­¨¥ ¡¨â®¢ "a" ¢¯à ¢® ­  "b" à §
;
?srab::
inc b
dec b
ret z
@1: srl a
djnz @1
ret
ENDMODULE
MODULE cpshd
;
; ‡­ ª®¢®¥ áà ¢­¥­¨¥ hl á de
;
?cpshd::
ld a,h
xor d
jp p,@1
ld a,d
cp h
ret
@1: ld a,h
cp d
ret nz
ld a,l
cp e
ret
ENDMODULE
MODULE setjmp
;
; "setjmp.h"
; ”ã­ªæ¨ï setjmp á®åà ­ï¥â á®áâ®ï­¨¥ á⥪ , ª®â®àë© ¬®¦¥â ¡ëâì
; ¯®á«¥¤®¢ â¥«ì­® ¢®ááâ ­®¢«¥­ ¨á¯®«ì§®¢ ­¨¥¬ ä㭪樨 longjmp.
; ”㭪樨 setjmp ¨ longjmp ®¡¥á¯¥ç¨¢ îâ ¢®§¬®¦­®áâì ¢ë¯®«­¥­¨ï
; ­¥«®ª «ì­®£® (nonlocal) ¯¥à¥å®¤  ¨ ®¡ëç­® ¨á¯®«ì§ãîâáï ¤«ï ¯¥à¥-
; ¤ ç¨ ã¯à ¢«¥­¨ï ª ®¡à ¡®âª¥ ®è¨¡®ª ¤«ï ¢®ááâ ­®¢«¥­¨ï ª®¤  ¢
; à ­¥¥ ¢ë§¢ ­­®© ¯à®æ¥¤ãॠ(¡¥§ ¨á¯®«ì§®¢ ­¨ï ®¡ëç­®£® ¢ë§®¢ ),
; ¤«ï ¢®§¢à â  ãá«®¢­ëå ®¡®§­ ç¥­¨©. ‚맮¢ setjmp  ªâ¨¢¨§¨àã¥â
; á®åà ­¥­¨¥ ⥪ã饣® á®áâ®ï­¨ï á⥪  ¢ env. �®á«¥¤ãî騩 ¢ë§®¢
; longjmp ¢®ááâ ­ ¢«¨¢ ¥â á®åà ­¥­­®¥ á®áâ®ï­¨¥ ¨ ¢®§¢à é ¥â ã¯à ¢-
; «¥­¨¥ ­  㪠§ â¥«ì (â®çªã ¢å®¤ ), ­¥¯®á।á⢥­­® á«¥¤ãî騩 § 
; ᮮ⢥âáâ¢ãî騬 ¢ë§®¢®¬ setjmp.
;
; int setjmp(jmp_buf env)
;
setjmp_::
push ix
pop bc
push hl
pop iy
ld hl,2
add hl,sp
ld (iy+0),l ; SP value
ld (iy+1),h
ld (iy+2),c
ld (iy+3),b
pop hl
ld (iy+4),l
ld (iy+5),h
push hl
ld hl,0
ret
;
; void longjmp(jmp_buf env, int retval)
;
longjmp_::
push hl
pop iy
ld l,(iy+0)
ld h,(iy+1)
ld c,(iy+2)
ld b,(iy+3)
ld sp,hl
ld l,(iy+4)
ld h,(iy+5)
push hl
push bc
pop ix
ex de,hl
ld a,h
or l
ret nz
inc hl
ret
ENDMODULE
MODULE hex32
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢ë¢®¤¨â ¢ è¥áâ­ ¤æ â¥à¨ç­®¬ ä®à¬ â¥ §­ ç¥­¨ï
;  à£ã¬¥­â®¢ high ¨ low ª ª ®¤­® ç¨á«®.
; ‚®§¢à é ¥¬®£® §­ ç¥­¨ï ­¥â.
;
; void hex32(uint high, uint low)
;
hex32_::
push de
call hex16_##
pop hl
jp hex16_##
ENDMODULE
MODULE hex16
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢ë¢®¤¨â ¢ è¥áâ­ ¤æ â¥à¨ç­®¬ ä®à¬ â¥ §­ ç¥­¨¥ value.
; „¨ ¯ §®­ ¢ë¢®¤¨¬ëå §­ ç¥­¨© 0x0000..0xFFFF
; ‚®§¢à é ¥¬®£® §­ ç¥­¨ï ­¥â.
;
; void hex16(uint value)
;
hex16_::
ld a,h
push hl
call hex8_##
pop hl
ld a,l
jp hex8_##
ENDMODULE
MODULE hex8
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢ë¢®¤¨â ¢ è¥áâ­ ¤æ â¥à¨ç­®¬ ä®à¬ â¥ §­ ç¥­¨¥ value.
; „¨ ¯ §®­ ¢ë¢®¤¨¬ëå §­ ç¥­¨© 0x00..0xFF.
; ‚®§¢à é ¥¬®£® §­ ç¥­¨ï ­¥â.
;
; void hex8(char value)
;
hex8_::
push af
rra
rra
rra
rra
call @1
pop af
@1: and 0Fh
cp 9+1
sbc a,69h
daa
ld c,5Bh
rst 10h
ret
ENDMODULE
MODULE dec8
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢ë¢®¤¨â  à£ã¬¥­â value ¢ ¤¥áïâ¨ç­®¬ ä®à¬ â¥,
; ¡¥§ ¢¥¤ãé¨å ­ã«¥©.
; „¨ ¯ §®­ ¢ë¢®¤¨¬ëå §­ ç¥­¨© 0..255.
; ”ã­ªæ¨ï ­¥ ¢®§¢à é ¥â ­¨ª ª®£® §­ ç¥­¨ï.
;
; void dec8(char value)
;
dec8_::
push iy
ld l,a
ld h,0
ld iy,_@tmp_##
res 7,(iy+0)
jp __dec3_##
ENDMODULE
MODULE dec16
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢ë¢®¤¨â  à£ã¬¥­â value ¢ ¤¥áïâ¨ç­®¬ ä®à¬ â¥,
; ¡¥§ ¢¥¤ãé¨å ­ã«¥©.
; „¨ ¯ §®­ ¢ë¢®¤¨¬ëå §­ ç¥­¨© 0..65535.
; ”ã­ªæ¨ï ­¥ ¢®§¢à é ¥â ­¨ª ª®£® §­ ç¥­¨ï.
;
; void dec16(uint value)
;
dec16_::
push iy
exx
ld hl,0 ; áâ. à §àï¤
exx
ld iy,_@tmp_##
res 7,(iy+0)
jp __dec5_##
ENDMODULE
MODULE dec32
;
; "stdlib.h"
; ”ã­ªæ¨ï ¢ë¢®¤¨â  à£ã¬¥­âë high ¨ low ª ª ®¤­® §­ ç¥­¨¥.
; ‚뢮¤ ¯à®¨á室¨â ¢ ¤¥áïâ¨ç­®¬ ä®à¬ â¥, ¡¥§ ¢¥¤ãé¨å ­ã«¥©.
; „¨ ¯ §®­ ¢ë¢®¤¨¬ëå §­ ç¥­¨© 0...4 ¬«à¤.
; ”ã­ªæ¨ï ­¥ ¢®§¢à é ¥â ­¨ª ª®£® §­ ç¥­¨ï.
;
; void dec32(uint high, uint low)
;
dec32_::
push hl
exx
pop hl ; hl' = áâ. à §àï¤
exx
ex de,hl ; hl = ¬«. à §àï¤
push iy
ld de,0CA00h
exx
ld de,3B9Ah ; 1.000.000.000
exx
ld iy,_@tmp_
res 7,(iy+0)
call GetLenN32
ld de,0E100h
exx
ld de,05F5h ; 100.000.000
exx
call GetLenN32
ld de,9680h
exx
ld de,98h ; 10.000.000
exx
call GetLenN32
ld de,4240h
exx
ld de,0Fh ; 1.000.000
exx
call GetLenN32
ld de,86A0h
exx
ld de,1 ; 100.000
exx
call GetLenN32
__dec5_::
ld de,10000
exx
ld de,0 ; 10.000
exx
call GetLenN32
ld de,1000 ; 1.000
call GetLenN16
__dec3_::
ld de,100 ; 100
call GetLenN16
ld de,10 ; 10
call GetLenN16
ld a,l
add a,"0"
ld c,5Bh
rst 10h
pop iy
ret
_@tmp_::db 0
GetLenN32:
ld a,2Fh
and a
GetLenN321:
inc a
sbc hl,de
exx
sbc hl,de
exx
jp nc,GetLenN321
add hl,de
exx
adc hl,de
exx
jr GetLenN160
;
GetLenN16:
ld a,2Fh
and a
GetLenN161:
inc a
sbc hl,de
jp nc,GetLenN161
add hl,de
GetLenN160:
cp "0"
jr z,GetLenN162
set 7,(iy+0)
GetLenN162:
bit 7,(iy+0)
ret z ; ¡¥§ ¢¥¤ãé. ­ã«¥©
ld c,5Bh
rst 10h
ret
ENDMODULE
Reference in New Issue View Git Blame Copy Permalink