mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-04 03:05:43 +00:00
50 lines
1.2 KiB
Plaintext
50 lines
1.2 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST ON
|
||
.OP 65C02
|
||
.OR $2000
|
||
.TF lib/string.o
|
||
*--------------------------------------
|
||
.INB inc/macros.i
|
||
.INB inc/a2osx.i
|
||
*--------------------------------------
|
||
.DA #0 KERNEL
|
||
*--------------------------------------
|
||
>PSTR "strlen"
|
||
.DA CODE.strlen
|
||
>PSTR "strdup"
|
||
.DA CODE.strdup
|
||
>PSTR "strupr"
|
||
.DA CODE.strupr
|
||
>PSTR "strlwr"
|
||
.DA CODE.strlwr
|
||
.DA 0
|
||
*--------------------------------------
|
||
CODE.strlen .DA #CODE.strlen.L
|
||
>SYSCALL strlen
|
||
CODE.strlen.L .EQ *-CODE.strlen
|
||
rts
|
||
*--------------------------------------
|
||
*--------------------------------------
|
||
*--------------------------------------
|
||
CODE.strdup .DA #CODE.strdup.L
|
||
>SYSCALL strdup
|
||
CODE.strdup.L .EQ *-CODE.strdup
|
||
rts
|
||
*--------------------------------------
|
||
CODE.strupr .DA #CODE.strupr.L
|
||
>SYSCALL strupr
|
||
CODE.strupr.L .EQ *-CODE.strupr
|
||
rts
|
||
*--------------------------------------
|
||
CODE.strlwr .DA #CODE.strlwr.L
|
||
>SYSCALL strlwr
|
||
CODE.strlwr.L .EQ *-CODE.strlwr
|
||
rts
|
||
*--------------------------------------
|
||
*--------------------------------------
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/string.o.s
|
||
ASM
|