A2osX/SYS/KERNEL.S.STDLIB.txt

426 lines
7.7 KiB
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
PREFIX /A2OSX.BUILD
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-06-18 15:48:00 +00:00
* ##C
2018-06-14 15:31:36 +00:00
* `float strtof (const char* str, char** endptr);`
2018-06-18 15:48:00 +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-06-14 15:31:36 +00:00
* **Out:**
* 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-06-14 15:31:36 +00:00
* **Out:**
* 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
2018-06-15 15:15:48 +00:00
**** DUP code in MATH.Go ****
2018-06-13 15:18:08 +00:00
jsr GP.ROMCALL
2018-06-15 15:15:48 +00:00
lda pStack
sec
sbc #5
sta pStack
sta FORPNT Ptr to dst buffer
lda pStack+1
sta FORPNT+1
2018-06-13 15:18:08 +00:00
ldx #ROM.GETFAC
jsr GP.ROMCALL
2018-06-15 15:15:48 +00:00
clc
rts
*/--------------------------------------
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-06-14 15:31:36 +00:00
* **Out:**
* 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
K.StrToUL.Exit 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-06-14 15:31:36 +00:00
* **Out:**
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-06-14 15:31:36 +00:00
* **Out:**
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
.8 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-06-18 15:48:00 +00:00
* # realpath
* Return the canonicalized absolute pathname
2018-06-18 15:48:00 +00:00
* ## C
* `unsigned short int realpath (const char* str);`
* ## ASM
2018-06-18 08:44:02 +00:00
* **In:**
2018-06-18 15:48:00 +00:00
* `>LDYA str`
* `>SYSCALL realpath`
2018-06-18 08:44:02 +00:00
* **Out:**
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-06-18 15:48:00 +00:00
K.realpath >STYA ZPPtr1
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
2017-09-29 06:36:27 +00:00
*--------------------------------------
* X=LEN, K.Buf256 = /dir1../file(/) /x0
dex
beq .89 we have '/'....nothing to do...
2017-09-29 06:36:27 +00:00
lda K.Buf256,x Skip any / at the end of string....
cmp #'/'
bne .5
dex
.5 ldy #0 dot counter=0
.6 lda K.Buf256,x
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
txa
beq .89
dex
bra .6 always, should end with a '/'
2017-09-29 06:36:27 +00:00
.8 tya
beq .80 Y was 0....nothing to do...
dey "/." ?
bne .9 no..
2017-09-29 06:36:27 +00:00
jsr K.RealPath.RemoveAtX we found "/.", remove,useless....
bra .80
2017-09-29 06:36:27 +00:00
.9 dey "/.." ?
bne .90 "/..." ??!!...mmm...syntax error
2017-09-29 06:36:27 +00:00
txa we found "/.."
beq .90 at the beginning of string...cannot remove /dir/..
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"
.80 txa
beq .89 Empty path!!! go put back "/" an exit
dex
bra .5
.89 >LDYAI K.Buf256
jmp K.NewStr.YA
.90 lda #K.E.SYN
sec
rts
*--------------------------------------
2017-09-29 06:36:27 +00:00
K.RealPath.RemoveAtX
txa X = "/something"
tay
.1 iny
lda K.Buf256,y
beq .2
cmp #'/'
bne .1
.2 phx
.3 lda K.Buf256,y
sta K.Buf256,x
beq .4
2017-09-29 06:36:27 +00:00
iny
inx
bne .3
.4 txa
bne .8
lda #'/' Make sure we have a least '/' in the buffer
sta K.Buf256
stz K.Buf256+1
2017-09-29 06:36:27 +00:00
.8 plx
rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.STDLIB
LOAD /A2OSX.SRC/SYS/KERNEL.S
ASM