mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-07 17:29:34 +00:00
CC:wip
This commit is contained in:
parent
8aa2269c99
commit
90dfba3e88
Binary file not shown.
|
@ -333,7 +333,7 @@ CODE.CSSelect clc
|
||||||
|
|
||||||
>PUSHB.G CC.hOutFile
|
>PUSHB.G CC.hOutFile
|
||||||
>PUSHWZ
|
>PUSHWZ
|
||||||
>DEBUG
|
* >DEBUG
|
||||||
lda ZPCCCode+1
|
lda ZPCCCode+1
|
||||||
sec
|
sec
|
||||||
sbc #$20
|
sbc #$20
|
||||||
|
@ -351,7 +351,7 @@ CODE.DSSelect clc
|
||||||
|
|
||||||
>PUSHB.G CC.hOutFile
|
>PUSHB.G CC.hOutFile
|
||||||
>PUSHWZ
|
>PUSHWZ
|
||||||
>DEBUG
|
* >DEBUG
|
||||||
lda PCC.FH+PCC.FH.CONST
|
lda PCC.FH+PCC.FH.CONST
|
||||||
clc
|
clc
|
||||||
adc ZPCCConst
|
adc ZPCCConst
|
||||||
|
|
|
@ -128,7 +128,7 @@ CORE.CompileLine
|
||||||
|
|
||||||
jmp DIR
|
jmp DIR
|
||||||
|
|
||||||
.1 bit DirState FALSE state
|
.1 >LDA.G CC.DirState FALSE state
|
||||||
bmi .8
|
bmi .8
|
||||||
|
|
||||||
cmp #'/'
|
cmp #'/'
|
||||||
|
@ -212,7 +212,8 @@ CORE.CompileStmt
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.Comments jsr CC.GetNextChar TODO : /* ... */
|
CORE.Comments jsr CC.GetNextChar
|
||||||
|
|
||||||
cmp #'/'
|
cmp #'/'
|
||||||
beq .8 // skip line.....
|
beq .8 // skip line.....
|
||||||
|
|
||||||
|
@ -232,7 +233,7 @@ CORE.Comments jsr CC.GetNextChar TODO : /* ... */
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
jmp CC.GetNextChar
|
jmp CC.GetNextChar
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
@ -246,6 +247,8 @@ CORE.SkipLine jsr CC.GetNextChar
|
||||||
cmp #C.CR
|
cmp #C.CR
|
||||||
bne CORE.SkipLine
|
bne CORE.SkipLine
|
||||||
|
|
||||||
|
jsr CC.GetNextChar
|
||||||
|
|
||||||
clc
|
clc
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
|
@ -33,8 +33,6 @@ DECL.TYPEDEF jsr CORE.GetNCharNB
|
||||||
cmp #';'
|
cmp #';'
|
||||||
bne .98
|
bne .98
|
||||||
|
|
||||||
jsr CORE.GetNCharNB skip ';'
|
|
||||||
|
|
||||||
jmp SYM.Store
|
jmp SYM.Store
|
||||||
|
|
||||||
.98 lda #E.CSYN
|
.98 lda #E.CSYN
|
||||||
|
|
|
@ -141,28 +141,32 @@ DIR.IFNDEF clc
|
||||||
eor ZPPtr1
|
eor ZPPtr1
|
||||||
asl
|
asl
|
||||||
|
|
||||||
lda DirState
|
>LDA.G CC.DirState
|
||||||
rol
|
rol
|
||||||
ora #1
|
ora #1
|
||||||
sta DirState
|
sta (pData),y
|
||||||
|
>DEC.G CC.DirDepth
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DIR.ELSE lda DirState
|
DIR.ELSE >LDA.G CC.DirDepth
|
||||||
beq DIR.ESYN
|
beq DIR.ESYN
|
||||||
|
|
||||||
|
>LDA.G CC.DirState
|
||||||
eor #$80
|
eor #$80
|
||||||
sta DirState
|
sta (pData),y
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DIR.ENDIF lda DirState
|
DIR.ENDIF >LDA.G CC.DirDepth
|
||||||
beq DIR.ESYN
|
beq DIR.ESYN
|
||||||
|
|
||||||
|
dec
|
||||||
|
sta (pData),y
|
||||||
|
|
||||||
and #$FE
|
>LDA.G CC.DirState
|
||||||
sec
|
|
||||||
asl
|
asl
|
||||||
sta DirState
|
sta (pData),y
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -409,7 +409,7 @@ EXP.GetChar ldy ZPPtr2+1
|
||||||
EXP.AddConstCharP
|
EXP.AddConstCharP
|
||||||
lda ZPCCConst
|
lda ZPCCConst
|
||||||
ldx ZPCCConst+1
|
ldx ZPCCConst+1
|
||||||
|
>DEBUG
|
||||||
jsr CODE.LDAXI
|
jsr CODE.LDAXI
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
|
|
|
@ -117,7 +117,7 @@ ExpState .BS 1
|
||||||
ExpState.AonStack .EQ $20
|
ExpState.AonStack .EQ $20
|
||||||
ExpState.AinPTR .EQ $40
|
ExpState.AinPTR .EQ $40
|
||||||
ExpState.VonStack .EQ $80
|
ExpState.VonStack .EQ $80
|
||||||
DirState .BS 1
|
* .BS 1
|
||||||
ZS.END .ED
|
ZS.END .ED
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* File Header (16 Bytes)
|
* File Header (16 Bytes)
|
||||||
|
@ -1140,6 +1140,9 @@ CC.hDefineBuf .BS 1
|
||||||
CC.hDefines .BS 1
|
CC.hDefines .BS 1
|
||||||
CC.SaveDefine .BS 2
|
CC.SaveDefine .BS 2
|
||||||
|
|
||||||
|
CC.DirState .BS 1
|
||||||
|
CC.DirDepth .BS 1
|
||||||
|
|
||||||
CC.hTags .BS 1
|
CC.hTags .BS 1
|
||||||
CC.hScopeStk .BS 1
|
CC.hScopeStk .BS 1
|
||||||
CC.hStmtStk .BS 1
|
CC.hStmtStk .BS 1
|
||||||
|
|
Loading…
Reference in New Issue
Block a user