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