2020-11-19 15:34:02 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.Lookup >LDYA L.KEYWORDS
|
|
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
|
|
|
|
|
|
|
.1 ldy #$ff
|
|
|
|
|
|
|
|
|
|
|
|
.2 jsr .7 get next valid char in src text
|
|
|
|
|
|
bcs .3
|
|
|
|
|
|
|
|
|
|
|
|
.20 jsr ToUpperCase
|
|
|
|
|
|
eor (ZPPtr1),y match table char ?
|
|
|
|
|
|
asl compare only 7 bits
|
|
|
|
|
|
bne .4 no match...get next table keyword
|
|
|
|
|
|
|
|
|
|
|
|
bcc .2 not last char in this keyword
|
|
|
|
|
|
|
|
|
|
|
|
jsr .7 next char in text...
|
|
|
|
|
|
bcc .4 valid....failed
|
|
|
|
|
|
|
|
|
|
|
|
.8 tya Keyword Len
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
jsr NextKW
|
|
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.3 dey
|
|
|
|
|
|
lda (ZPPtr1),y was last char in this keyword ?
|
|
|
|
|
|
bmi .8
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
.41 jsr IncPtr1 skip chars to next keyword
|
|
|
|
|
|
|
|
|
|
|
|
.4 lda (ZPPtr1)
|
|
|
|
|
|
bpl .41
|
|
|
|
|
|
jsr IncPtr1
|
|
|
|
|
|
|
|
|
|
|
|
.6 inx
|
2020-12-02 15:22:57 +00:00
|
|
|
|
inx
|
2020-11-19 15:34:02 +00:00
|
|
|
|
lda (ZPPtr1) Array Ending 0, lookup failed
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
.9 sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.7 iny
|
2020-12-15 13:23:22 +00:00
|
|
|
|
lda (ZPCLBufPtr),y Get Src text char...
|
2020-11-19 15:34:02 +00:00
|
|
|
|
beq .9 end of text
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
jmp IsSpaceOrCR CS=end of valid chars
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-12-02 15:22:57 +00:00
|
|
|
|
KW.mDUP lda (pStack)
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
ora (pStack),y
|
|
|
|
|
|
bne KW.DUP
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-11-19 15:34:02 +00:00
|
|
|
|
KW.DUP lda pStack
|
2020-11-23 22:05:27 +00:00
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
|
|
cmp #$FF
|
2020-12-02 15:22:57 +00:00
|
|
|
|
bcs .9
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
2020-12-02 15:22:57 +00:00
|
|
|
|
cmp #2
|
2020-11-23 22:05:27 +00:00
|
|
|
|
bcc .99
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
>PUSHA
|
2020-12-02 15:22:57 +00:00
|
|
|
|
lda (pStack),y
|
2020-11-19 15:34:02 +00:00
|
|
|
|
>PUSHA
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
2020-11-23 22:05:27 +00:00
|
|
|
|
.9 lda #E.STACKERROR
|
2020-11-19 15:34:02 +00:00
|
|
|
|
sec
|
|
|
|
|
|
rts
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
|
|
|
|
|
.99 lda #E.STKOVERFLOW
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.DROP lda pStack
|
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
beq .9
|
|
|
|
|
|
inc pStack
|
2020-12-02 15:22:57 +00:00
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.9 lda #E.STACKERROR
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.SWAP ldy #3
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
|
|
dey #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack)
|
|
|
|
|
|
tax
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta (pStack)
|
|
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
|
sta (pStack),y #2
|
|
|
|
|
|
|
|
|
|
|
|
dey #1
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
tax
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
iny #3
|
|
|
|
|
|
txa
|
|
|
|
|
|
sta (pStack),y
|
2020-12-02 15:22:57 +00:00
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-12-02 15:22:57 +00:00
|
|
|
|
KW.OVER jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
cmp #2
|
|
|
|
|
|
bcc .99
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
ldy #3
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
>PUSHA
|
2020-12-02 15:22:57 +00:00
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
2020-12-02 15:22:57 +00:00
|
|
|
|
.99 lda #E.STKOVERFLOW
|
2020-11-19 15:34:02 +00:00
|
|
|
|
sec
|
2020-12-02 15:22:57 +00:00
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-12-02 15:22:57 +00:00
|
|
|
|
KW.ROT lda pStack
|
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
|
|
cmp #$FB
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #5
|
|
|
|
|
|
lda (pStack),y n1 HI
|
|
|
|
|
|
pha
|
|
|
|
|
|
dey
|
|
|
|
|
|
lda (pStack),y n1 LO
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
|
|
.1 dey
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
iny
|
|
|
|
|
|
iny
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
dey
|
|
|
|
|
|
dey
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta (pStack)
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.9 lda #E.STACKERROR
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.gR
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.Rg
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.R
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-19 15:34:02 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.Add jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
adc (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
adc (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.DAdd >FPU ADD32
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.Sub jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
sbc (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
sbc (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
2020-11-23 22:05:27 +00:00
|
|
|
|
KW.Mul jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
jsr KW.GetPtr1Ptr2Sign
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
|
|
|
|
|
stz ZPPtr3
|
|
|
|
|
|
stz ZPPtr3+1
|
|
|
|
|
|
|
|
|
|
|
|
ldx #16
|
|
|
|
|
|
|
|
|
|
|
|
.1 lsr ZPPtr2+1
|
|
|
|
|
|
ror ZPPtr2
|
|
|
|
|
|
bcc .2
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
lda ZPPtr1
|
|
|
|
|
|
adc ZPPtr3
|
|
|
|
|
|
sta ZPPtr3
|
|
|
|
|
|
|
|
|
|
|
|
lda ZPPtr1+1
|
|
|
|
|
|
adc ZPPtr3+1
|
|
|
|
|
|
sta ZPPtr3+1
|
|
|
|
|
|
|
|
|
|
|
|
.2 asl ZPPtr1
|
|
|
|
|
|
rol ZPPtr1+1
|
|
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
>LDYA ZPPtr3
|
|
|
|
|
|
jsr KW.PushWSigned
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.Div jsr KW.DivMoD.1
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>LDYA ZPPtr2
|
|
|
|
|
|
jsr KW.PushWSigned
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.Mod jsr KW.DivMoD.1
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHW ZPPtr3
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.DivMod jsr KW.DivMoD.1
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHW ZPPtr3
|
|
|
|
|
|
>LDYA ZPPtr2
|
|
|
|
|
|
jsr KW.PushWSigned
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.MulDivMod
|
|
|
|
|
|
*--------------------------------------
|
2020-11-23 22:05:27 +00:00
|
|
|
|
KW.MulDiv
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.DivMoD.1 jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
jsr KW.GetPtr1Ptr2Sign
|
|
|
|
|
|
|
|
|
|
|
|
stz ZPPtr3
|
|
|
|
|
|
stz ZPPtr3+1
|
|
|
|
|
|
|
|
|
|
|
|
ldx #16
|
|
|
|
|
|
|
|
|
|
|
|
.1 asl ZPPtr2
|
|
|
|
|
|
rol ZPPtr2+1
|
|
|
|
|
|
rol ZPPtr3
|
|
|
|
|
|
rol ZPPtr3+1
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
lda ZPPtr3
|
|
|
|
|
|
sbc ZPPtr1
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda ZPPtr3+1
|
|
|
|
|
|
sbc ZPPtr1+1
|
|
|
|
|
|
bcs .2
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
bra .8
|
|
|
|
|
|
|
|
|
|
|
|
.2 sta ZPPtr3+1
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta ZPPtr3
|
|
|
|
|
|
inc ZPPtr2
|
|
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.GetPtr1Ptr2Sign
|
|
|
|
|
|
>PULLW ZPPtr1
|
|
|
|
|
|
sta Sign
|
|
|
|
|
|
|
|
|
|
|
|
asl
|
|
|
|
|
|
bcc .1
|
|
|
|
|
|
|
|
|
|
|
|
lda ZPPtr1
|
|
|
|
|
|
clc
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #1
|
|
|
|
|
|
sta ZPPtr1
|
|
|
|
|
|
|
|
|
|
|
|
lda ZPPtr1+1
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta ZPPtr1+1
|
|
|
|
|
|
|
|
|
|
|
|
.1 >PULLW ZPPtr2
|
|
|
|
|
|
|
|
|
|
|
|
asl
|
|
|
|
|
|
bcc .8
|
|
|
|
|
|
|
|
|
|
|
|
lda ZPPtr2
|
|
|
|
|
|
clc
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #1
|
|
|
|
|
|
sta ZPPtr2
|
|
|
|
|
|
|
|
|
|
|
|
lda ZPPtr2+1
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta ZPPtr2+1
|
|
|
|
|
|
|
|
|
|
|
|
lda Sign
|
|
|
|
|
|
eor #$80
|
|
|
|
|
|
sta Sign
|
|
|
|
|
|
|
|
|
|
|
|
.8 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.PushWSigned bit Sign
|
|
|
|
|
|
bpl .8
|
|
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
|
tya
|
|
|
|
|
|
|
2020-11-23 22:05:27 +00:00
|
|
|
|
clc
|
2020-11-29 13:16:39 +00:00
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #1
|
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
|
|
|
|
|
|
.8 >PUSHYA
|
2020-11-23 22:05:27 +00:00
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.MAX jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack) LO
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
cmp (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
dey #1
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y HI
|
|
|
|
|
|
iny
|
|
|
|
|
|
iny #3
|
|
|
|
|
|
sbc (pStack),y
|
|
|
|
|
|
bcc .1
|
|
|
|
|
|
|
|
|
|
|
|
jsr KW.SWAP
|
|
|
|
|
|
|
|
|
|
|
|
.1 jmp KW.DROP
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.MIN jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack) LO
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
cmp (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
dey #1
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y HI
|
|
|
|
|
|
iny
|
|
|
|
|
|
iny #3
|
|
|
|
|
|
sbc (pStack),y
|
|
|
|
|
|
bcs .1
|
|
|
|
|
|
|
|
|
|
|
|
jsr KW.SWAP
|
|
|
|
|
|
|
|
|
|
|
|
.1 jmp KW.DROP
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.ABS ldy #1
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y HI
|
|
|
|
|
|
bpl .8
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack)
|
|
|
|
|
|
clc
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #1
|
|
|
|
|
|
sta (pStack)
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.DABS
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-19 15:34:02 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.MINUS lda (pStack) LO
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
sec
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack)
|
|
|
|
|
|
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
lda (pStack),y HI
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.DMINUS lda (pStack) LO
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
sec
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack)
|
|
|
|
|
|
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
lda (pStack),y HI
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.AND jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
and (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
and (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.OR jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
ora (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
ora (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.XOR jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
eor (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
eor (pStack)
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.LWR jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
cmp (pStack)
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
2020-12-02 15:22:57 +00:00
|
|
|
|
sbc (pStack)
|
2020-11-19 15:34:02 +00:00
|
|
|
|
inc pStack
|
|
|
|
|
|
|
2020-11-23 22:05:27 +00:00
|
|
|
|
ror
|
|
|
|
|
|
lda #0
|
2020-11-19 15:34:02 +00:00
|
|
|
|
sta (pStack)
|
2020-11-23 22:05:27 +00:00
|
|
|
|
ldy #1
|
|
|
|
|
|
sta (pStack),y
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.GTR jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
cmp (pStack)
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
2020-12-02 15:22:57 +00:00
|
|
|
|
sbc (pStack)
|
2020-11-19 15:34:02 +00:00
|
|
|
|
inc pStack
|
|
|
|
|
|
|
2020-11-23 22:05:27 +00:00
|
|
|
|
lda #0
|
|
|
|
|
|
ror
|
2020-11-19 15:34:02 +00:00
|
|
|
|
eor #$80
|
|
|
|
|
|
sta (pStack)
|
2020-11-23 22:05:27 +00:00
|
|
|
|
ldy #1
|
|
|
|
|
|
sta (pStack),y
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.EQ jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
sec
|
|
|
|
|
|
sbc (pStack)
|
|
|
|
|
|
tax
|
2020-11-26 19:47:57 +00:00
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
inc pStack
|
|
|
|
|
|
|
|
|
|
|
|
lda (pStack),y
|
2020-11-26 19:47:57 +00:00
|
|
|
|
sbc (pStack)
|
|
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
inc pStack
|
|
|
|
|
|
|
2020-11-26 19:47:57 +00:00
|
|
|
|
tay
|
|
|
|
|
|
bne .1
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
.HS 90 BCC
|
|
|
|
|
|
.1 clc
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
|
|
|
|
|
lda #0
|
2020-11-26 19:47:57 +00:00
|
|
|
|
sbc #0
|
2020-11-19 15:34:02 +00:00
|
|
|
|
sta (pStack)
|
2020-11-23 22:05:27 +00:00
|
|
|
|
ldy #1
|
|
|
|
|
|
sta (pStack),y
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
2020-11-23 22:05:27 +00:00
|
|
|
|
KW.NEGATIVE ldy #1
|
|
|
|
|
|
lda (pStack),y
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
2020-11-23 22:05:27 +00:00
|
|
|
|
asl
|
|
|
|
|
|
|
|
|
|
|
|
lda #0
|
2020-11-19 15:34:02 +00:00
|
|
|
|
ror
|
|
|
|
|
|
sta (pStack)
|
2020-11-23 22:05:27 +00:00
|
|
|
|
sta (pStack),y
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-11-23 22:05:27 +00:00
|
|
|
|
KW.ZERO clc
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
ora (pStack)
|
2020-11-19 15:34:02 +00:00
|
|
|
|
bne .9
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
|
|
|
|
|
.9 lda #0
|
2020-11-19 15:34:02 +00:00
|
|
|
|
ror
|
|
|
|
|
|
sta (pStack)
|
2020-11-23 22:05:27 +00:00
|
|
|
|
sta (pStack),y
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.. jsr KW.DUP
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
|
lda L.FMT.int16
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda L.FMT.int16+1
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
>PUSHBI 2
|
|
|
|
|
|
>SYSCALL PrintF
|
|
|
|
|
|
|
|
|
|
|
|
* clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW..R
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.D.
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.D.R
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-19 15:34:02 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.CR >PUSHW L.MSG.ECHOCRLF
|
|
|
|
|
|
>PUSHBI 0
|
|
|
|
|
|
>SYSCALL PrintF
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.SPACE lda #C.SPACE
|
|
|
|
|
|
>SYSCALL PutChar
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.SPACES >PULLA
|
|
|
|
|
|
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
|
|
.1 dec
|
|
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
|
|
lda #C.SPACE
|
|
|
|
|
|
>SYSCALL PutChar
|
|
|
|
|
|
pla
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.PRINT >LDYAI 256
|
|
|
|
|
|
>SYSCALL GetMem
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
|
phx
|
|
|
|
|
|
|
|
|
|
|
|
ldy #$ff
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.1 iny
|
|
|
|
|
|
lda (ZPCLBufPtr),y
|
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
|
|
sta (ZPPtr1),y
|
|
|
|
|
|
eor #'"
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
|
|
|
|
|
|
.2 sta (ZPPtr1),y
|
|
|
|
|
|
tya
|
|
|
|
|
|
adc ZPCLBufPtr
|
|
|
|
|
|
sta ZPCLBufPtr
|
|
|
|
|
|
bcc .3
|
|
|
|
|
|
|
|
|
|
|
|
inc ZPCLBufPtr+1
|
|
|
|
|
|
|
|
|
|
|
|
.3 >LDYA ZPPtr1
|
|
|
|
|
|
>SYSCALL PutS
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
2020-12-15 13:23:22 +00:00
|
|
|
|
>SYSCALL FreeMem
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.DUMP
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.TYPE
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.COUNT
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.TERMINAL
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-19 15:34:02 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.KEY >SYSCALL GetChar
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
2020-11-23 22:05:27 +00:00
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.EMIT >PULLA
|
|
|
|
|
|
>SYSCALL PutChar
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.EXPECT
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.WORD
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.NUMBER
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.STARTSTR
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.STRADD
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.STRDBL
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.SIGN
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.ENDSTR
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.HOLD
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.DECIMAL
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.HEX
|
|
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.OCTAL lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-19 15:34:02 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.FETCHW lda (pStack)
|
|
|
|
|
|
sta ZPAddrPtr
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
sta ZPAddrPtr+1
|
|
|
|
|
|
|
|
|
|
|
|
lda (ZPAddrPtr)
|
|
|
|
|
|
sta (pStack)
|
|
|
|
|
|
lda (ZPAddrPtr),y
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.STOREW jsr CheckStackPop4
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>PULLW ZPAddrPtr
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
sta (ZPAddrPtr)
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
sta (ZPAddrPtr),y
|
|
|
|
|
|
|
|
|
|
|
|
* clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.FETCHB >PULLW ZPAddrPtr
|
|
|
|
|
|
lda (ZPAddrPtr)
|
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.STOREB >PULLW ZPAddrPtr
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
sta (ZPAddrPtr)
|
|
|
|
|
|
clc
|
|
|
|
|
|
KW.STOREB.RTS rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.FETCHPRINTW jsr KW.FETCHW
|
|
|
|
|
|
bcs KW.STOREB.RTS
|
|
|
|
|
|
jmp KW..
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.ADDTOW jsr KW.FETCHW
|
|
|
|
|
|
bcs KW.STOREB.RTS
|
|
|
|
|
|
jsr KW.Add
|
|
|
|
|
|
bcs KW.STOREB.RTS
|
|
|
|
|
|
jmp KW.STOREW
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.CMOVE
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-19 15:34:02 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.FILL >PULLA
|
|
|
|
|
|
bra KW.FILL2
|
|
|
|
|
|
|
|
|
|
|
|
KW.ERASE lda #0
|
|
|
|
|
|
bra KW.FILL2
|
|
|
|
|
|
|
|
|
|
|
|
KW.BLANKS lda #C.SPACE
|
|
|
|
|
|
|
|
|
|
|
|
KW.FILL2 tax
|
|
|
|
|
|
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
|
|
>PULLW ZPAddrPtr
|
|
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
|
|
|
|
|
|
|
.1 dey
|
|
|
|
|
|
sta (ZPAddrPtr),y
|
|
|
|
|
|
cpy #0
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-11-23 22:05:27 +00:00
|
|
|
|
KW.HERE >PUSHW ZPDataPtr
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-12-02 15:22:57 +00:00
|
|
|
|
KW.PAD >PUSHW ZPOutputBufPtr
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
rts
|
2020-12-02 15:22:57 +00:00
|
|
|
|
|
|
|
|
|
|
KW.ALLOT.9 lda #E.STACKERROR
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.ALLOT lda #SYM.T.VAR
|
|
|
|
|
|
sta ZPType
|
|
|
|
|
|
|
|
|
|
|
|
lda pStack
|
|
|
|
|
|
beq KW.ALLOT.9
|
|
|
|
|
|
|
|
|
|
|
|
cmp #$FF
|
|
|
|
|
|
bcs KW.ALLOT.9
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHB.G hSList
|
|
|
|
|
|
>PUSHW ZPCLBufPtr
|
|
|
|
|
|
|
|
|
|
|
|
>SYSCALL SListNewKey
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>STYA ZPKeyID
|
|
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
|
jsr NextKW
|
|
|
|
|
|
|
|
|
|
|
|
>LDYA ZPDataPtr
|
|
|
|
|
|
>STYA ZPAddrPtr
|
|
|
|
|
|
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
clc
|
|
|
|
|
|
adc ZPDataPtr
|
|
|
|
|
|
sta ZPDataPtr
|
|
|
|
|
|
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
adc ZPDataPtr+1
|
|
|
|
|
|
sta ZPDataPtr+1
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHB.G hSList
|
|
|
|
|
|
>PUSHW ZPKeyID
|
|
|
|
|
|
>PUSHWI ZPType
|
|
|
|
|
|
>PUSHWI 4
|
|
|
|
|
|
>SYSCALL SListAddData
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.nCOMPILE
|
|
|
|
|
|
KW.QUOTE
|
|
|
|
|
|
KW.FORGET
|
|
|
|
|
|
KW.DEFINITIONS
|
|
|
|
|
|
KW.VOCABULARY
|
|
|
|
|
|
KW.FORTH
|
|
|
|
|
|
KW.EDITOR
|
|
|
|
|
|
KW.ASSEMBLER
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-26 19:47:57 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-12-02 15:22:57 +00:00
|
|
|
|
KW.VLIST bit bCompile
|
|
|
|
|
|
bpl .10
|
|
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
|
|
|
|
|
|
.10 stz ZPPtr2
|
|
|
|
|
|
stz ZPPtr2+1
|
|
|
|
|
|
|
|
|
|
|
|
.1 >LDYA ZPPtr2
|
|
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHB.G hSList
|
|
|
|
|
|
>PUSHW ZPPtr1
|
|
|
|
|
|
>PUSHW ZPOutputBufPtr
|
|
|
|
|
|
>SYSCALL SListGetByID
|
|
|
|
|
|
bcs .8
|
|
|
|
|
|
|
|
|
|
|
|
>STYA ZPPtr2 Save Next ID
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHB.G hSList
|
|
|
|
|
|
>PUSHW ZPPtr1 KeyID
|
|
|
|
|
|
>PUSHW ZPType
|
|
|
|
|
|
>PUSHWI 4
|
|
|
|
|
|
>PUSHWZ from Start
|
|
|
|
|
|
>SYSCALL SListGetData
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHW L.MSG.DUMP2
|
|
|
|
|
|
>PUSHW ZPOutputBufPtr
|
|
|
|
|
|
ldx #4
|
|
|
|
|
|
bit ZPType
|
|
|
|
|
|
bmi .2
|
|
|
|
|
|
dex
|
|
|
|
|
|
dex
|
|
|
|
|
|
bvs .2
|
|
|
|
|
|
dex
|
|
|
|
|
|
dex
|
|
|
|
|
|
.2 >PUSHW L.MSG.TYPES,x
|
|
|
|
|
|
>PUSHW ZPAddrPtr
|
|
|
|
|
|
>PUSHBI 6
|
|
|
|
|
|
>SYSCALL PrintF
|
|
|
|
|
|
jmp .1
|
|
|
|
|
|
|
|
|
|
|
|
KW.VC.9 lda #E.STACKERROR
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.VARIABLE lda #SYM.T.VAR
|
|
|
|
|
|
bra KM.VC
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.CONSTANT lda #SYM.T.CONST
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KM.VC sta ZPType
|
|
|
|
|
|
|
|
|
|
|
|
lda pStack
|
2020-12-02 15:22:57 +00:00
|
|
|
|
beq KW.VC.9
|
|
|
|
|
|
|
|
|
|
|
|
cmp #$FF
|
|
|
|
|
|
bcs KW.VC.9
|
2020-11-29 13:16:39 +00:00
|
|
|
|
|
2020-12-02 15:22:57 +00:00
|
|
|
|
>PUSHB.G hSList
|
2020-11-23 22:05:27 +00:00
|
|
|
|
>PUSHW ZPCLBufPtr
|
|
|
|
|
|
|
|
|
|
|
|
>SYSCALL SListNewKey
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>STYA ZPKeyID
|
|
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
|
jsr NextKW
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
bit ZPType
|
|
|
|
|
|
bvs .1
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
>PULLW ZPAddrPtr
|
|
|
|
|
|
|
|
|
|
|
|
bra .2
|
|
|
|
|
|
|
|
|
|
|
|
.1 >PULLA
|
|
|
|
|
|
sta (ZPDataPtr)
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
ldy #1
|
|
|
|
|
|
sta (ZPDataPtr),y
|
|
|
|
|
|
|
|
|
|
|
|
>LDYA ZPDataPtr
|
2020-11-23 22:05:27 +00:00
|
|
|
|
>STYA ZPAddrPtr
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda ZPDataPtr
|
|
|
|
|
|
clc
|
|
|
|
|
|
adc #2
|
|
|
|
|
|
sta ZPDataPtr
|
|
|
|
|
|
bcc .2
|
|
|
|
|
|
|
|
|
|
|
|
inc ZPDataPtr+1
|
|
|
|
|
|
|
|
|
|
|
|
.2 >PUSHB.G hSList
|
2020-11-23 22:05:27 +00:00
|
|
|
|
>PUSHW ZPKeyID
|
|
|
|
|
|
>PUSHWI ZPType
|
|
|
|
|
|
>PUSHWI 4
|
|
|
|
|
|
>SYSCALL SListAddData
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
2020-11-23 22:05:27 +00:00
|
|
|
|
.9 rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.BCOLON bit bCompile
|
|
|
|
|
|
bmi KW.COLON.SYN
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
|
|
|
|
|
>PUSHB.G hSList
|
2020-11-19 15:34:02 +00:00
|
|
|
|
>PUSHW ZPCLBufPtr
|
|
|
|
|
|
|
|
|
|
|
|
>SYSCALL SListNewKey
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
>STYA ZPKeyID
|
2020-11-29 13:16:39 +00:00
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
txa
|
|
|
|
|
|
jsr NextKW
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #SYM.T.CODE
|
2020-11-23 22:05:27 +00:00
|
|
|
|
sta ZPType
|
|
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
>LDYA ZPCodePtr
|
2020-11-23 22:05:27 +00:00
|
|
|
|
>STYA ZPAddrPtr
|
2020-11-19 15:34:02 +00:00
|
|
|
|
|
|
|
|
|
|
>PUSHB.G hSList
|
|
|
|
|
|
>PUSHW ZPKeyID
|
2020-11-23 22:05:27 +00:00
|
|
|
|
>PUSHWI ZPType
|
|
|
|
|
|
>PUSHWI 4
|
2020-11-19 15:34:02 +00:00
|
|
|
|
>SYSCALL SListAddData
|
|
|
|
|
|
bcs .9
|
2020-11-29 13:16:39 +00:00
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
ror bCompile
|
|
|
|
|
|
|
2020-11-19 15:34:02 +00:00
|
|
|
|
clc
|
|
|
|
|
|
.9 rts
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.COLON.SYN lda #E.SYN
|
2020-11-23 22:05:27 +00:00
|
|
|
|
sec
|
|
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
2020-11-29 13:16:39 +00:00
|
|
|
|
KW.ECOLON bit bCompile
|
|
|
|
|
|
bpl KW.COLON.SYN
|
|
|
|
|
|
|
|
|
|
|
|
lda #$60
|
2020-12-02 15:22:57 +00:00
|
|
|
|
jsr CP.Emit.Byte
|
2020-11-29 13:16:39 +00:00
|
|
|
|
|
|
|
|
|
|
stz bCompile
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.ACODE
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
KW.FCODE
|
2020-11-23 22:05:27 +00:00
|
|
|
|
|
2020-11-29 13:16:39 +00:00
|
|
|
|
lda #E.SYN
|
|
|
|
|
|
sec
|
2020-11-23 22:05:27 +00:00
|
|
|
|
rts
|
2020-11-19 15:34:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE usr/src/bin/forth.s.kw
|
|
|
|
|
|
LOAD usr/src/bin/forth.s
|
|
|
|
|
|
ASM
|
