A2osX/SYS/KERNEL.S.STDLIB.txt

445 lines
8.1 KiB
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
2018-11-17 17:17:13 +00:00
PREFIX
2017-12-22 21:24:30 +00:00
AUTO 4,1
*/--------------------------------------
2018-06-18 15:48:00 +00:00
* # strtof
* Convert String to 40 bits Float
2018-10-04 15:30:14 +00:00
* ## C
2018-06-14 15:31:36 +00:00
* `float strtof (const char* str, char** endptr);`
2018-10-04 15:30:14 +00:00
* ## ASM
2018-06-14 15:31:36 +00:00
* **In:**
* `>PUSHWI EndPtr`
* `>LDYA str`
2018-06-18 15:48:00 +00:00
* `>SYSCALL strtof`
2018-10-11 15:23:06 +00:00
* ## RETURN VALUE
2018-06-14 15:31:36 +00:00
* On stack (float)
*\--------------------------------------
2018-06-18 15:48:00 +00:00
K.strtof >STYA TXTPTR Ptr to source string
2018-06-15 15:15:48 +00:00
>PULLW ZPPtr1
jsr K.AToF.I
lda TXTPTR
2018-06-15 15:15:48 +00:00
sta (ZPPtr1)
ldy #1
lda TXTPTR+1
2018-06-15 15:15:48 +00:00
sta (ZPPtr1),y
rts
*/--------------------------------------
2018-06-18 06:22:50 +00:00
* # AToF
* Convert String to 40 bits Float
2018-06-18 06:22:50 +00:00
* ## C
2018-06-14 15:31:36 +00:00
* `float atof (const char* str);`
2018-06-18 06:22:50 +00:00
* ## ASM
2018-06-14 15:31:36 +00:00
* **In:**
* `>LDYA str`
2018-06-18 15:48:00 +00:00
* `>SYSCALL atof`
2018-10-11 15:23:06 +00:00
* ## RETURN VALUE
2018-06-14 15:31:36 +00:00
* On stack (float)
*\--------------------------------------
2018-06-15 15:15:48 +00:00
K.AToF >STYA TXTPTR Ptr to source string
K.AToF.I jsr CHARGOT
2018-06-13 15:18:08 +00:00
ldx #ROM.FIN
2019-01-04 13:17:31 +00:00
jmp GP.RomCallPushFAC
*/--------------------------------------
2018-06-18 06:22:50 +00:00
* # StrToL/StrToUL
2018-06-14 15:31:36 +00:00
* Convert String to 32 bits (unsigned) int
2018-06-18 06:22:50 +00:00
* ## C
2018-06-14 15:31:36 +00:00
* `long strtol (const char* str, char** endptr, int base);`
2018-06-15 15:15:48 +00:00
* `unsigned long strtoul (const char* str, char** endptr, int base);`
2018-06-18 06:22:50 +00:00
* ## ASM
2018-06-14 15:31:36 +00:00
* **In:**
* `>PUSHB Base`
* `>PUSHWI EndPtr`
2018-06-18 15:48:00 +00:00
* `>LDYAI str`
* `>SYSCALL strtol`
2018-10-11 15:23:06 +00:00
* ## RETURN VALUE
2018-06-14 15:31:36 +00:00
* On stack (long)
*\--------------------------------------
K.StrToL sec Signed
.HS 90 BCC
K.StrToUL clc Unsigned
2018-06-15 15:15:48 +00:00
>STYA ZPPtr2
>PULLW ZPPtr1
>PULLA Base
jsr K.AToL.I
bcs K.StrToUL.rts
* clc
2018-12-21 14:32:45 +00:00
adc ZPPtr2
2018-06-15 15:15:48 +00:00
sta (ZPPtr1)
lda #0
adc ZPPtr2+1
ldy #1
2018-06-15 15:15:48 +00:00
sta (ZPPtr1),y
K.StrToUL.rts rts
*/--------------------------------------
2018-06-18 15:48:00 +00:00
* # atol
* Convert String to 32 bits long
2018-06-18 06:22:50 +00:00
* ## C
2018-06-15 15:15:48 +00:00
* `long atol ( const char * str );`
2018-06-18 06:22:50 +00:00
* ## ASM
2018-06-14 15:31:36 +00:00
* **In:**
2018-06-15 15:15:48 +00:00
* `>LDYA str`
2018-06-18 15:48:00 +00:00
* `>SYSCALL atol`
2018-10-11 15:23:06 +00:00
* ## RETURN VALUE
2018-06-15 15:15:48 +00:00
* On stack (long)
*\--------------------------------------
*STDLIB.32 .BS 4 32 bits max
STDLIB.32 .EQ FAC 32 bits max
*--------------------------------------
2018-06-15 15:15:48 +00:00
K.AToL >STYA ZPPtr2 C-String in Ptr2, Dst buffer in Ptr1
lda #10 base 10
sec signed
K.AToL.I jsr STDLIB.GetDec
bcs .9
phy Save Count processed
ldy #3
.3 lda STDLIB.32,y
2018-06-15 15:15:48 +00:00
>PUSHA
dey
bpl .3
pla
* clc
.9 rts
*/--------------------------------------
2018-06-18 15:48:00 +00:00
* # atoi
* Convert String to 16 bits int
2018-06-18 06:22:50 +00:00
* ## C
2018-06-15 15:15:48 +00:00
* `int atoi ( const char * str );`
2018-06-18 06:22:50 +00:00
* ## ASM
2018-06-14 15:31:36 +00:00
* **In:**
2018-06-18 15:48:00 +00:00
* `>LDYAI str`
* `>SYSCALL atoi`
2018-10-11 15:23:06 +00:00
* ## RETURN VALUE
2018-06-18 15:48:00 +00:00
* Y,A = int
*\--------------------------------------
2018-06-18 15:48:00 +00:00
K.atoi >STYA ZPPtr2
lda #10 base 10
sec signed
jsr STDLIB.GetDec
bcs .9
>LDYA STDLIB.32
.9 rts
*--------------------------------------
* Convert Hex int at ZPPtr2 to STDLIB.32
*--------------------------------------
STDLIB.GetHex lda (ZPPtr2)
beq .9
jsr MEM.IsHexDigit
bcs .9
jsr STDLIB.32.Clear
sta STDLIB.32
ldy #$ff
.1 iny
lda (ZPPtr2),y
beq .8
jsr MEM.IsHexDigit
bcs .8
pha
ldx #4
.2 jsr STDLIB.32.T2
bcs .99 overflow!!!
dex
bne .2
pla
ora STDLIB.32
sta STDLIB.32
bra .1
.8 clc
rts
.99 pla
.9 sec
rts
*--------------------------------------
* Convert Decimal int at ZPPtr2 to STDLIB.32
*--------------------------------------
STDLIB.GetDec jsr STDLIB.32.Clear
ldy #$ff
.1 iny
lda (ZPPtr2),y
beq .8
jsr MEM.IsDigit
bcs .8
phy Save Y, pointing to next char
jsr STDLIB.32.T10
ply
bcs .9
lda (ZPPtr2),y
and #$0F
* clc
adc STDLIB.32
sta STDLIB.32
bcc .1
inc STDLIB.32+1
bne .1
inc STDLIB.32+2
bne .1
inc STDLIB.32+3
bne .1 overflow!!!
* sec
rts
2018-11-12 14:48:28 +00:00
.8 tya
sec
beq .9
clc
.9 rts
*--------------------------------------
STDLIB.32.T10 ldx #3
.1 lda STDLIB.32,x save STDLIB.32 for 4+1
pha
dex
bpl .1
jsr STDLIB.32.T2 STDLIB.32 * 2 -> STDLIB.32
bcs STDLIB.32.9 overflow!!!
jsr STDLIB.32.T2 STDLIB.32 * 4 -> STDLIB.32
bcs STDLIB.32.9 overflow!!!
ldx #0
ldy #4
* clc
.2 pla STDLIB.32 * 4 + STDLIB.32 -> STDLIB.32
adc STDLIB.32,x
sta STDLIB.32,x
inx
dey
bne .2
bcs STDLIB.32.RTS overflow!!!
* STDLIB.32 * 2 -> STDLIB.32
STDLIB.32.T2 asl STDLIB.32
rol STDLIB.32+1
rol STDLIB.32+2
rol STDLIB.32+3
rts if CS, overflow!!!
STDLIB.32.9 pla discard saved STDLIB.32
pla
pla
pla
STDLIB.32.RTS rts
*--------------------------------------
STDLIB.32.Clear ldx #3
.1 stz STDLIB.32,x
dex
bpl .1
rts
*/--------------------------------------
2018-08-11 10:57:57 +00:00
* # RealPath
* Return the canonicalized absolute pathname
2018-06-18 15:48:00 +00:00
* ## C
2019-01-18 16:06:44 +00:00
* `unsigned short int realpath (const char* str, char *resolvedpath);`
2018-06-18 15:48:00 +00:00
* ## ASM
2018-06-18 08:44:02 +00:00
* **In:**
2019-01-18 16:06:44 +00:00
* `>PUSHWI resolvedpath`
2018-06-18 15:48:00 +00:00
* `>LDYA str`
* `>SYSCALL realpath`
2018-10-11 15:23:06 +00:00
* ## RETURN VALUE
2018-06-18 15:48:00 +00:00
* CC : success
* Y,A = Ptr to Full Path (C-String)
* X = hMem of Full Path
* CS : A = Error Code
*\--------------------------------------
2018-11-07 16:11:02 +00:00
K.realpath sec
.HS 90 BCC
2019-01-21 06:52:04 +00:00
STDLIB.realpath.I
clc
ror .82+1
2018-10-29 08:41:10 +00:00
2019-01-21 06:52:04 +00:00
>SYSCALL ExpandStr
bcs STDLIB.32.RTS
>STYA ZPPtr1
stx .99+1 save expanded buffer hMem
ldx #$ff
lda (ZPPtr1)
beq .1
cmp #'/' full path starting with '/'?
beq .3 yes, do not append to current prefix
.1 ldy #S.PS.hPREFIX
lda (pPs),y
2018-06-21 15:12:10 +00:00
jsr K.GetMemPtr
>STYA ZPPtr2
ldy #$ff
.2 iny
inx
2017-09-29 06:36:27 +00:00
lda (ZPPtr2),y
sta K.Buf256,x
bne .2
2017-09-29 06:36:27 +00:00
dex
.3 ldy #$ff
.4 iny
inx
lda (ZPPtr1),y
sta K.Buf256,x
bne .4
2018-11-27 16:22:15 +00:00
dex
2019-01-21 06:52:04 +00:00
beq .81 we have '/'....nothing to do...
2018-11-27 16:22:15 +00:00
*--------------------------------------
2019-01-23 16:26:48 +00:00
* X=LEN, K.Buf256 = /dir1/./../file(/)\0
2018-11-27 16:22:15 +00:00
*--------------------------------------
2019-01-23 16:26:48 +00:00
ldx #1 skip leading /
2018-11-27 16:22:15 +00:00
lda K.Buf256,x
.5 ldy #0 dot counter=0
2018-11-27 16:22:15 +00:00
.6 cmp #'/'
beq .8
2017-09-29 06:36:27 +00:00
cmp #'.'
bne .7
2017-09-29 06:36:27 +00:00
iny
.HS 2C BIT ABS, skip "LDY #0"
.7 ldy #0 not a dot....reset dot counter
2018-11-27 16:22:15 +00:00
inx
lda K.Buf256,x
2019-01-23 16:26:48 +00:00
bne .6 we have /dir\0
2017-09-29 06:36:27 +00:00
.8 tya
beq .80 Y was 0....nothing to do...
2018-11-27 16:22:15 +00:00
dey "./" ?
2017-09-29 06:36:27 +00:00
bne .9 no..
2018-11-27 16:22:15 +00:00
lda K.Buf256-2,x
2018-11-27 14:03:26 +00:00
cmp #'/' "/./" ?
bne .80
2018-11-27 16:22:15 +00:00
dex
dex
jsr K.RealPath.RemoveAtX we found "/./", remove,useless....
bra .80
2018-11-27 16:22:15 +00:00
.9 dey "../" ?
2019-01-21 06:52:04 +00:00
bne .99 ".../" ??!!...mmm...syntax error
2018-11-27 16:22:15 +00:00
lda K.Buf256-3,x
2018-11-27 14:03:26 +00:00
cmp #'/' "/../" ?
bne .80
2018-11-27 16:22:15 +00:00
dex
dex
dex
2018-11-27 14:03:26 +00:00
2018-11-27 16:22:15 +00:00
txa we found "/../"
2019-01-21 06:52:04 +00:00
beq .99 at the beginning of string...cannot remove /dir/..
2017-09-29 06:36:27 +00:00
jsr K.RealPath.RemoveAtX remove "/.."
.10 dex
lda K.Buf256,x go to "/dir"
2017-09-29 06:36:27 +00:00
cmp #'/'
bne .10
2017-09-29 06:36:27 +00:00
jsr K.RealPath.RemoveAtX ...remove "/dir"
2018-11-27 16:22:15 +00:00
.80 inx
lda K.Buf256,x
bne .5
2018-11-27 14:03:26 +00:00
*--------------------------------------
2019-01-21 06:52:04 +00:00
.81 jsr .99
.82 lda #$ff SELF MODIFIED
bpl .88
2018-11-07 16:11:02 +00:00
>LDYAI K.Buf256
2019-01-18 16:06:44 +00:00
>SYSCALL StrDup BANK 2
2018-12-20 16:23:43 +00:00
rts
2019-01-21 06:52:04 +00:00
.88 clc
rts
2018-11-07 16:11:02 +00:00
2019-01-21 06:52:04 +00:00
.99 lda #$ff SELF MODIFIED
jsr K.FreeMem
lda #E.BADPATH
sec
2018-11-07 16:11:02 +00:00
rts
*--------------------------------------
2017-09-29 06:36:27 +00:00
K.RealPath.RemoveAtX
txa X = "/something"
tay
.1 iny
lda K.Buf256,y
2019-01-23 16:26:48 +00:00
beq .2 found /something\0
2017-09-29 06:36:27 +00:00
cmp #'/'
2019-01-23 16:26:48 +00:00
bne .1 found /something/
2017-09-29 06:36:27 +00:00
2019-01-23 16:26:48 +00:00
.2 phx save X for exit
2017-09-29 06:36:27 +00:00
2019-01-23 16:26:48 +00:00
.3 iny K.Buf256,y=/ or 0
2017-09-29 06:36:27 +00:00
inx
2019-01-23 16:26:48 +00:00
lda K.Buf256-1,y
sta K.Buf256-1,x
2017-09-29 06:36:27 +00:00
bne .3
2019-01-23 16:26:48 +00:00
txa
bne .8
lda #'/' Make sure we have a least '/' in the buffer
sta K.Buf256
stz K.Buf256+1
2019-01-23 16:26:48 +00:00
.8 plx restore X
2017-09-29 06:36:27 +00:00
rts
*--------------------------------------
MAN
2018-11-17 17:17:13 +00:00
SAVE USR/SRC/SYS/KERNEL.S.STDLIB
LOAD USR/SRC/SYS/KERNEL.S
ASM