mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:33:12 -06:00
a8a5a85c5c
Updated Cowgol disk image with the latest distribution from Ladislau Szilagyi. Co-Authored-By: ladislau szilagyi <87603175+Laci1953@users.noreply.github.com>
36 lines
649 B
Plaintext
36 lines
649 B
Plaintext
sub IsDigit(ch: uint8): (ret: uint8) is
|
|
# A=ch
|
|
@asm "jp __IsDigit";
|
|
end sub;
|
|
|
|
sub ToLower(c: uint8): (cc: uint8) is
|
|
# A=ch
|
|
@asm "jp __ToLower";
|
|
end sub;
|
|
|
|
sub CopyString(src: [uint8], dest: [uint8]) is
|
|
# HL=src
|
|
@asm "ld de,(", dest, ")"; # DE=dest
|
|
@asm "jp __CopyString";
|
|
end sub;
|
|
|
|
sub StrCmp(s1: [uint8], s2: [uint8]): (res: int8) is
|
|
# HL=s1
|
|
@asm "ld de,(", s2, ")"; # DE=s2
|
|
@asm "jp __StrCmp";
|
|
end sub;
|
|
|
|
sub StrICmp(s1: [uint8], s2: [uint8]): (res: int8) is
|
|
# HL=s1
|
|
@asm "ld de,(", s2, ")"; # DE=s2
|
|
@asm "jp __StrICmp";
|
|
end sub;
|
|
|
|
sub StrLen(s: [uint8]): (size: uint16) is
|
|
# HL = s
|
|
@asm "jp __StrLen";
|
|
end sub;
|
|
|
|
|
|
|