mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-14 02:29:33 +00:00
54 lines
836 B
Plaintext
54 lines
836 B
Plaintext
|
NEW
|
|||
|
AUTO 3,1
|
|||
|
.LIST OFF
|
|||
|
*--------------------------------------
|
|||
|
* X = KW.ID
|
|||
|
*--------------------------------------
|
|||
|
CC.STMT.CPStmt lda LocalPtr Locals
|
|||
|
jsr CC.Push
|
|||
|
bcs .99
|
|||
|
|
|||
|
lda #0 bState
|
|||
|
jsr CC.Push
|
|||
|
bcs .99
|
|||
|
|
|||
|
txa
|
|||
|
jsr CC.Push
|
|||
|
bcs .99
|
|||
|
|
|||
|
lda #'}'
|
|||
|
jmp CC.Push
|
|||
|
|
|||
|
.99 rts
|
|||
|
*--------------------------------------
|
|||
|
CC.STMT.CPStmt.END
|
|||
|
jsr CC.Pop
|
|||
|
bcs .9
|
|||
|
|
|||
|
cmp #'}' must be '}' on stack....
|
|||
|
bne .9
|
|||
|
|
|||
|
jsr CC.Pop get stacked KW...
|
|||
|
tax
|
|||
|
|
|||
|
jsr CC.Pop bState
|
|||
|
|
|||
|
jsr CC.Pop Locals
|
|||
|
sta LocalPtr
|
|||
|
|
|||
|
txa
|
|||
|
bmi .5
|
|||
|
|
|||
|
jmp (J.CC.KW.END,x)
|
|||
|
|
|||
|
.5 jmp CC.F.Def.END
|
|||
|
|
|||
|
.9 lda #E.CSYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
MAN
|
|||
|
SAVE usr/src/bin/cc.s.stmt
|
|||
|
LOAD usr/src/bin/cc.s
|
|||
|
ASM
|