mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-24 14:31:05 +00:00
165 lines
2.1 KiB
Plaintext
165 lines
2.1 KiB
Plaintext
|
NEW
|
|||
|
|
AUTO 3,1
|
|||
|
|
*--------------------------------------
|
|||
|
|
*
|
|||
|
|
*
|
|||
|
|
*
|
|||
|
|
*--------------------------------------
|
|||
|
|
X.STRESC >STYA ZPPtr1 In
|
|||
|
|
>STYA ZPPtr2 Out
|
|||
|
|
|
|||
|
|
ldy #0
|
|||
|
|
|
|||
|
|
.1 lda (ZPPtr1)
|
|||
|
|
beq .8
|
|||
|
|
|
|||
|
|
jsr X.STRESC.IncPtr1
|
|||
|
|
|
|||
|
|
cmp #'\'
|
|||
|
|
bne .6
|
|||
|
|
|
|||
|
|
lda (ZPPtr1)
|
|||
|
|
beq .7
|
|||
|
|
|
|||
|
|
ldx #X.STRESC.EscCharsCnt-1
|
|||
|
|
|
|||
|
|
.2 cmp X.STRESC.EscChars,x
|
|||
|
|
beq .5
|
|||
|
|
|
|||
|
|
dex
|
|||
|
|
bpl .2
|
|||
|
|
|
|||
|
|
stz ZPTmpByte
|
|||
|
|
|
|||
|
|
jsr X.STRESC.ToUC
|
|||
|
|
cmp #'X'
|
|||
|
|
bne .3
|
|||
|
|
|
|||
|
|
.20 jsr X.STRESC.IncPtr1
|
|||
|
|
|
|||
|
|
lda (ZPPtr1)
|
|||
|
|
beq .40
|
|||
|
|
|
|||
|
|
jsr X.STRESC.IsHex
|
|||
|
|
bcs .40
|
|||
|
|
|
|||
|
|
asl ZPTmpByte
|
|||
|
|
asl ZPTmpByte
|
|||
|
|
asl ZPTmpByte
|
|||
|
|
asl ZPTmpByte
|
|||
|
|
ora ZPTmpByte
|
|||
|
|
sta ZPTmpByte
|
|||
|
|
bra .20
|
|||
|
|
|
|||
|
|
.3 jsr X.STRESC.IsOct
|
|||
|
|
bcs .40
|
|||
|
|
|
|||
|
|
jsr X.STRESC.IncPtr1
|
|||
|
|
|
|||
|
|
asl ZPTmpByte
|
|||
|
|
asl ZPTmpByte
|
|||
|
|
asl ZPTmpByte
|
|||
|
|
ora ZPTmpByte
|
|||
|
|
sta ZPTmpByte
|
|||
|
|
lda (ZPPtr1)
|
|||
|
|
bne .3
|
|||
|
|
|
|||
|
|
.40 lda ZPTmpByte
|
|||
|
|
bra .6
|
|||
|
|
|
|||
|
|
.4 tax
|
|||
|
|
|
|||
|
|
lda #'\'
|
|||
|
|
sta (ZPPtr2),y
|
|||
|
|
iny
|
|||
|
|
|
|||
|
|
txa
|
|||
|
|
bra .6
|
|||
|
|
|
|||
|
|
.5 lda X.STRESC.EscCodes,x
|
|||
|
|
jsr X.STRESC.IncPtr1
|
|||
|
|
|
|||
|
|
.6 sta (ZPPtr2),y
|
|||
|
|
iny
|
|||
|
|
bra .1
|
|||
|
|
|
|||
|
|
.7 lda #'\'
|
|||
|
|
sta (ZPPtr2),y
|
|||
|
|
iny
|
|||
|
|
lda #0
|
|||
|
|
|
|||
|
|
.8 sta (ZPPtr2),y
|
|||
|
|
|
|||
|
|
>LDYA ZPPtr2
|
|||
|
|
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
X.STRESC.IncPtr1
|
|||
|
|
inc ZPPtr1
|
|||
|
|
bne .8
|
|||
|
|
|
|||
|
|
inc ZPPtr1+1
|
|||
|
|
|
|||
|
|
.8 rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
X.STRESC.ToUC cmp #'a'
|
|||
|
|
bcc .8
|
|||
|
|
|
|||
|
|
cmp #'z'+1
|
|||
|
|
bcs .8
|
|||
|
|
|
|||
|
|
eor #$20
|
|||
|
|
|
|||
|
|
.8 rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
X.STRESC.IsOct cmp #'0'
|
|||
|
|
bcc .9
|
|||
|
|
|
|||
|
|
cmp #'7'+1
|
|||
|
|
bcs .9
|
|||
|
|
|
|||
|
|
and #%00000111
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
.9 sec
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
X.STRESC.IsHex cmp #'0'
|
|||
|
|
bcc .9
|
|||
|
|
|
|||
|
|
cmp #'9'+1
|
|||
|
|
bcc .8
|
|||
|
|
|
|||
|
|
cmp #'A'
|
|||
|
|
bcc .9
|
|||
|
|
|
|||
|
|
cmp #'Z'+1
|
|||
|
|
bcc .7
|
|||
|
|
|
|||
|
|
cmp #'a'
|
|||
|
|
bcc .9
|
|||
|
|
|
|||
|
|
cmp #'z'+1
|
|||
|
|
bcc .9
|
|||
|
|
|
|||
|
|
* sec
|
|||
|
|
|
|||
|
|
sbc #$20
|
|||
|
|
|
|||
|
|
.7 sec
|
|||
|
|
sbc #'A'-10
|
|||
|
|
|
|||
|
|
.8 and #$0F
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
.9 sec
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE usr/src/shared/x.stresc.s
|
|||
|
|
ASM
|