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
|
2017-08-23 15:05:29 +00:00
|
|
|
|
*/--------------------------------------
|
2018-06-18 15:48:00 +00:00
|
|
|
|
* # strtof
|
2017-08-25 15:02:16 +00:00
|
|
|
|
* 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)
|
2017-08-25 15:02:16 +00:00
|
|
|
|
*\--------------------------------------
|
2019-02-07 16:52:25 +00:00
|
|
|
|
K.strtof >STYA TXTPTR Ptr to source string
|
2018-06-15 15:15:48 +00:00
|
|
|
|
>PULLW ZPPtr1
|
|
|
|
|
|
2019-02-07 16:52:25 +00:00
|
|
|
|
jsr K.AToF.I
|
|
|
|
|
|
2017-10-17 15:40:21 +00:00
|
|
|
|
lda TXTPTR
|
2018-06-15 15:15:48 +00:00
|
|
|
|
sta (ZPPtr1)
|
2017-10-17 15:40:21 +00:00
|
|
|
|
ldy #1
|
2017-10-20 15:42:24 +00:00
|
|
|
|
lda TXTPTR+1
|
2018-06-15 15:15:48 +00:00
|
|
|
|
sta (ZPPtr1),y
|
2017-10-20 15:42:24 +00:00
|
|
|
|
rts
|
2017-08-25 15:02:16 +00:00
|
|
|
|
*/--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
* # AToF
|
2017-10-12 15:28:59 +00:00
|
|
|
|
* 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)
|
2017-08-23 15:05:29 +00:00
|
|
|
|
*\--------------------------------------
|
2018-06-15 15:15:48 +00:00
|
|
|
|
K.AToF >STYA TXTPTR Ptr to source string
|
|
|
|
|
|
|
|
|
|
K.AToF.I jsr CHARGOT
|
2017-10-12 15:28:59 +00:00
|
|
|
|
|
2018-06-13 15:18:08 +00:00
|
|
|
|
ldx #ROM.FIN
|
2019-01-04 13:17:31 +00:00
|
|
|
|
jmp GP.RomCallPushFAC
|
2017-10-10 15:40:23 +00:00
|
|
|
|
*/--------------------------------------
|
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)
|
2017-10-10 15:40:23 +00:00
|
|
|
|
*\--------------------------------------
|
2017-10-12 15:28:59 +00:00
|
|
|
|
K.StrToL sec Signed
|
|
|
|
|
.HS 90 BCC
|
|
|
|
|
K.StrToUL clc Unsigned
|
2019-01-26 14:01:05 +00:00
|
|
|
|
jsr MEM.SPtr2PPtr1
|
2017-10-12 15:28:59 +00:00
|
|
|
|
>PULLA Base
|
2017-10-23 15:39:19 +00:00
|
|
|
|
|
2017-10-12 15:28:59 +00:00
|
|
|
|
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)
|
2017-10-12 15:28:59 +00:00
|
|
|
|
lda #0
|
|
|
|
|
adc ZPPtr2+1
|
2017-10-20 15:42:24 +00:00
|
|
|
|
ldy #1
|
2018-06-15 15:15:48 +00:00
|
|
|
|
sta (ZPPtr1),y
|
2017-10-12 15:28:59 +00:00
|
|
|
|
|
|
|
|
|
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)
|
2017-10-12 15:28:59 +00:00
|
|
|
|
*\--------------------------------------
|
2018-05-23 15:27:37 +00:00
|
|
|
|
*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
|
2017-10-12 15:28:59 +00:00
|
|
|
|
|
|
|
|
|
lda #10 base 10
|
|
|
|
|
sec signed
|
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
K.AToL.I jsr STDLIB.GetDec
|
2017-10-12 15:28:59 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
phy Save Count processed
|
2017-10-23 15:39:19 +00:00
|
|
|
|
|
2017-10-12 15:28:59 +00:00
|
|
|
|
ldy #3
|
|
|
|
|
|
2017-10-17 15:40:21 +00:00
|
|
|
|
.3 lda STDLIB.32,y
|
2018-06-15 15:15:48 +00:00
|
|
|
|
>PUSHA
|
2017-10-12 15:28:59 +00:00
|
|
|
|
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
|
2017-10-10 15:40:23 +00:00
|
|
|
|
*\--------------------------------------
|
2018-06-18 15:48:00 +00:00
|
|
|
|
K.atoi >STYA ZPPtr2
|
2017-10-12 15:28:59 +00:00
|
|
|
|
lda #10 base 10
|
|
|
|
|
sec signed
|
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
jsr STDLIB.GetDec
|
2017-10-12 15:28:59 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
|
2017-10-17 15:40:21 +00:00
|
|
|
|
>LDYA STDLIB.32
|
2017-10-12 15:28:59 +00:00
|
|
|
|
.9 rts
|
2017-08-23 15:05:29 +00:00
|
|
|
|
*--------------------------------------
|
2018-05-25 15:09:14 +00:00
|
|
|
|
* Convert Hex int at ZPPtr2 to STDLIB.32
|
2017-08-24 06:47:31 +00:00
|
|
|
|
*--------------------------------------
|
2018-05-25 15:09:14 +00:00
|
|
|
|
STDLIB.GetHex lda (ZPPtr2)
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
jsr MEM.IsHexDigit
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
jsr STDLIB.32.Clear
|
|
|
|
|
|
|
|
|
|
sta STDLIB.32
|
|
|
|
|
|
2019-02-14 14:51:24 +00:00
|
|
|
|
ldy #0
|
2018-05-25 15:09:14 +00:00
|
|
|
|
|
|
|
|
|
.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
|
2019-02-21 11:34:28 +00:00
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
lda (ZPPtr2)
|
|
|
|
|
eor #'-'
|
|
|
|
|
bne .10
|
|
|
|
|
|
|
|
|
|
jsr MEM.NextCharPtr2 skip '-'
|
|
|
|
|
sec
|
|
|
|
|
|
|
|
|
|
.10 ror .80+1 set pos/neg flag
|
2019-02-14 14:51:24 +00:00
|
|
|
|
|
2017-10-10 15:40:23 +00:00
|
|
|
|
ldy #$ff
|
2017-10-09 15:30:48 +00:00
|
|
|
|
|
2017-10-10 15:40:23 +00:00
|
|
|
|
.1 iny
|
2017-10-12 15:28:59 +00:00
|
|
|
|
lda (ZPPtr2),y
|
2017-08-24 06:47:31 +00:00
|
|
|
|
beq .8
|
2017-10-10 15:40:23 +00:00
|
|
|
|
|
2018-04-17 15:25:45 +00:00
|
|
|
|
jsr MEM.IsDigit
|
2017-10-10 15:40:23 +00:00
|
|
|
|
bcs .8
|
2017-10-09 15:30:48 +00:00
|
|
|
|
|
2018-05-28 06:00:45 +00:00
|
|
|
|
phy Save Y, pointing to next char
|
2017-10-17 15:40:21 +00:00
|
|
|
|
jsr STDLIB.32.T10
|
2018-05-28 06:00:45 +00:00
|
|
|
|
ply
|
|
|
|
|
|
2017-10-12 15:28:59 +00:00
|
|
|
|
bcs .9
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
2017-10-12 15:28:59 +00:00
|
|
|
|
lda (ZPPtr2),y
|
2017-08-24 06:47:31 +00:00
|
|
|
|
and #$0F
|
2018-05-23 15:27:37 +00:00
|
|
|
|
|
|
|
|
|
* clc
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
2017-10-17 15:40:21 +00:00
|
|
|
|
adc STDLIB.32
|
|
|
|
|
sta STDLIB.32
|
2017-10-09 15:30:48 +00:00
|
|
|
|
bcc .1
|
2017-10-17 15:40:21 +00:00
|
|
|
|
inc STDLIB.32+1
|
2017-10-09 15:30:48 +00:00
|
|
|
|
bne .1
|
2017-10-17 15:40:21 +00:00
|
|
|
|
inc STDLIB.32+2
|
2017-08-24 06:47:31 +00:00
|
|
|
|
bne .1
|
2017-10-17 15:40:21 +00:00
|
|
|
|
inc STDLIB.32+3
|
2019-02-21 11:34:28 +00:00
|
|
|
|
bne .1 if 0, overflow!!!
|
2017-08-24 06:47:31 +00:00
|
|
|
|
|
2019-02-21 11:34:28 +00:00
|
|
|
|
.9 lda #E.INUM
|
2018-11-12 14:48:28 +00:00
|
|
|
|
sec
|
2019-02-21 11:34:28 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.8 tya no digit parsed...error
|
2018-11-12 14:48:28 +00:00
|
|
|
|
beq .9
|
|
|
|
|
|
2019-02-21 11:34:28 +00:00
|
|
|
|
.80 lda #$FF SELF MODIFIED
|
|
|
|
|
bpl .88
|
|
|
|
|
|
|
|
|
|
ldx #4
|
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
|
|
|
|
.81 lda STDLIB.32,y
|
|
|
|
|
eor #$ff
|
|
|
|
|
adc #0
|
|
|
|
|
sta STDLIB.32,y
|
|
|
|
|
iny
|
|
|
|
|
dex
|
|
|
|
|
bne .81
|
|
|
|
|
|
|
|
|
|
.88 clc
|
|
|
|
|
rts
|
2017-10-09 15:30:48 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-17 15:40:21 +00:00
|
|
|
|
STDLIB.32.T10 ldx #3
|
2017-10-09 15:30:48 +00:00
|
|
|
|
|
2017-10-17 15:40:21 +00:00
|
|
|
|
.1 lda STDLIB.32,x save STDLIB.32 for 4+1
|
2017-10-12 15:28:59 +00:00
|
|
|
|
pha
|
2017-10-09 15:30:48 +00:00
|
|
|
|
dex
|
|
|
|
|
bpl .1
|
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
jsr STDLIB.32.T2 STDLIB.32 * 2 -> STDLIB.32
|
|
|
|
|
bcs STDLIB.32.9 overflow!!!
|
2017-10-09 15:30:48 +00:00
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
jsr STDLIB.32.T2 STDLIB.32 * 4 -> STDLIB.32
|
|
|
|
|
bcs STDLIB.32.9 overflow!!!
|
2017-10-12 15:28:59 +00:00
|
|
|
|
|
|
|
|
|
ldx #0
|
2017-10-09 15:30:48 +00:00
|
|
|
|
ldy #4
|
|
|
|
|
|
2017-10-12 15:28:59 +00:00
|
|
|
|
* clc
|
|
|
|
|
|
2017-10-17 15:40:21 +00:00
|
|
|
|
.2 pla STDLIB.32 * 4 + STDLIB.32 -> STDLIB.32
|
|
|
|
|
adc STDLIB.32,x
|
|
|
|
|
sta STDLIB.32,x
|
2017-10-12 15:28:59 +00:00
|
|
|
|
inx
|
2017-10-09 15:30:48 +00:00
|
|
|
|
dey
|
|
|
|
|
bne .2
|
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
bcs STDLIB.32.RTS overflow!!!
|
2017-10-12 15:28:59 +00:00
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
* STDLIB.32 * 2 -> STDLIB.32
|
2018-05-23 15:27:37 +00:00
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
STDLIB.32.T2 asl STDLIB.32
|
2018-05-23 15:27:37 +00:00
|
|
|
|
rol STDLIB.32+1
|
|
|
|
|
rol STDLIB.32+2
|
|
|
|
|
rol STDLIB.32+3
|
2017-10-23 15:39:19 +00:00
|
|
|
|
rts if CS, overflow!!!
|
2017-10-09 15:30:48 +00:00
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
STDLIB.32.9 pla discard saved STDLIB.32
|
2017-10-09 15:30:48 +00:00
|
|
|
|
pla
|
2017-10-12 15:28:59 +00:00
|
|
|
|
pla
|
|
|
|
|
pla
|
2017-10-26 06:41:57 +00:00
|
|
|
|
|
2018-05-25 15:09:14 +00:00
|
|
|
|
STDLIB.32.RTS rts
|
2017-10-12 15:28:59 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-17 15:40:21 +00:00
|
|
|
|
STDLIB.32.Clear ldx #3
|
|
|
|
|
|
|
|
|
|
.1 stz STDLIB.32,x
|
2017-10-09 15:30:48 +00:00
|
|
|
|
dex
|
2017-10-12 15:28:59 +00:00
|
|
|
|
bpl .1
|
2017-10-09 15:30:48 +00:00
|
|
|
|
rts
|
2017-09-28 15:39:12 +00:00
|
|
|
|
*/--------------------------------------
|
2018-08-11 10:57:57 +00:00
|
|
|
|
* # RealPath
|
2017-09-28 15:39:12 +00:00
|
|
|
|
* 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
|
2017-09-28 15:39:12 +00:00
|
|
|
|
*\--------------------------------------
|
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-05-04 21:13:50 +00:00
|
|
|
|
ldx #SYS.ExpandStr
|
|
|
|
|
jsr K.SYSCALL.GoB
|
2019-01-21 06:52:04 +00:00
|
|
|
|
bcs STDLIB.32.RTS
|
2019-05-04 21:13:50 +00:00
|
|
|
|
|
2019-01-21 06:52:04 +00:00
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
stx .99+1 save expanded buffer hMem
|
|
|
|
|
|
2017-09-28 15:39:12 +00:00
|
|
|
|
ldx #$ff
|
|
|
|
|
|
|
|
|
|
lda (ZPPtr1)
|
2017-10-03 15:33:30 +00:00
|
|
|
|
beq .1
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
|
|
|
|
cmp #'/' full path starting with '/'?
|
2017-10-03 15:33:30 +00:00
|
|
|
|
beq .3 yes, do not append to current prefix
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
2017-10-03 15:33:30 +00:00
|
|
|
|
.1 ldy #S.PS.hPREFIX
|
2017-09-28 15:39:12 +00:00
|
|
|
|
lda (pPs),y
|
2018-06-21 15:12:10 +00:00
|
|
|
|
jsr K.GetMemPtr
|
2017-09-28 15:39:12 +00:00
|
|
|
|
>STYA ZPPtr2
|
|
|
|
|
|
|
|
|
|
ldy #$ff
|
|
|
|
|
|
2017-10-03 15:33:30 +00:00
|
|
|
|
.2 iny
|
2017-09-28 15:39:12 +00:00
|
|
|
|
inx
|
2017-09-29 06:36:27 +00:00
|
|
|
|
lda (ZPPtr2),y
|
2017-09-28 15:39:12 +00:00
|
|
|
|
sta K.Buf256,x
|
2017-10-03 15:33:30 +00:00
|
|
|
|
bne .2
|
2017-09-29 06:36:27 +00:00
|
|
|
|
|
|
|
|
|
dex
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
2017-10-03 15:33:30 +00:00
|
|
|
|
.3 ldy #$ff
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
2017-10-03 15:33:30 +00:00
|
|
|
|
.4 iny
|
2017-09-28 15:39:12 +00:00
|
|
|
|
inx
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta K.Buf256,x
|
2017-10-03 15:33:30 +00:00
|
|
|
|
bne .4
|
2018-11-27 16:22:15 +00:00
|
|
|
|
|
2017-09-29 14:57:20 +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
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
|
|
|
|
.5 ldy #0 dot counter=0
|
2018-11-27 16:22:15 +00:00
|
|
|
|
|
|
|
|
|
.6 cmp #'/'
|
2017-09-28 15:39:12 +00:00
|
|
|
|
beq .8
|
2017-09-29 06:36:27 +00:00
|
|
|
|
|
2017-09-28 15:39:12 +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-28 15:39:12 +00:00
|
|
|
|
|
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..
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
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....
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
|
|
|
|
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
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
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 "/.."
|
|
|
|
|
|
2017-10-03 15:33:30 +00:00
|
|
|
|
.10 dex
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
2017-09-29 14:57:20 +00:00
|
|
|
|
lda K.Buf256,x go to "/dir"
|
2017-09-29 06:36:27 +00:00
|
|
|
|
cmp #'/'
|
2017-10-03 15:33:30 +00:00
|
|
|
|
bne .10
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
2017-09-29 06:36:27 +00:00
|
|
|
|
jsr K.RealPath.RemoveAtX ...remove "/dir"
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
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-05-04 21:13:50 +00:00
|
|
|
|
ldx #SYS.StrDup BANK 2
|
|
|
|
|
jsr K.SYSCALL.GoB
|
2018-12-20 16:23:43 +00:00
|
|
|
|
rts
|
2017-09-28 15:39:12 +00:00
|
|
|
|
|
2019-01-21 06:52:04 +00:00
|
|
|
|
.88 clc
|
2017-09-28 15:39:12 +00:00
|
|
|
|
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-08-24 06:47:31 +00:00
|
|
|
|
*--------------------------------------
|
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
|
2017-10-03 15:33:30 +00:00
|
|
|
|
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
|
|
|
|
|
*--------------------------------------
|
2017-08-23 15:05:29 +00:00
|
|
|
|
MAN
|
2018-11-17 17:17:13 +00:00
|
|
|
|
SAVE USR/SRC/SYS/KERNEL.S.STDLIB
|
|
|
|
|
LOAD USR/SRC/SYS/KERNEL.S
|
2017-08-23 15:05:29 +00:00
|
|
|
|
ASM
|