A2osX/BIN/CC.S.STMT.txt
2022-06-12 22:42:22 +02:00

55 lines
871 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
* 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
*--------------------------------------
CC.CPS.New
*--------------------------------------
MAN
SAVE usr/src/bin/cc.s.stmt
LOAD usr/src/bin/cc.s
ASM