A2osX/BIN/CC.S.SCOPE.txt

NEW
  AUTO 3,1
*--------------------------------------
SCOPE.New		ldy ScopeIdx
				cpy #CC.ScopeIDs+SCOPE.MAX*2
				bcs .9

				iny
				iny
				sty ScopeIdx

				>INCW.G CC.ScopeID
				
				>LDA.G CC.ScopeID
				
				ldy ScopeIdx
				sta (pData),y
				
				>LDA.G CC.ScopeID+1

				ldy ScopeIdx
				iny
				sta (pData),y

				dec bLocalScope
				
				stz LocalFrame

				.DO _DBG_SCOPE=1
				>PUSHW L.MSG.DEBUG.SCIN
				jsr SCOPE.Push
				
				lda ScopeIdx
				sec
				sbc #CC.ScopeIDs
				lsr
				>PUSHA
				
				>PUSHB LocalPtr
				>PUSHB LocalFrame
				>PUSHBI 5
				>SYSCALL PrintF
*				>DEBUG
				.FIN

				clc
				rts

.9				lda #E.OOH
				sec
.99				rts
*--------------------------------------
SCOPE.Close		.DO _DBG_SCOPE=1
				>PUSHW L.MSG.DEBUG.SCOUT
				jsr SCOPE.Push
				.FIN
				
				ldy ScopeIdx
				cpy #CC.ScopeIDs
				beq *

				dey
				dey
				sty ScopeIdx

				inc bLocalScope

				.DO _DBG_SCOPE=1
				
				lda ScopeIdx
				sec
				sbc #CC.ScopeIDs
				lsr
				>PUSHA
				
				>PUSHB LocalPtr
				>PUSHB LocalFrame
				jsr SCOPE.Push
				>PUSHBI 7
				>SYSCALL PrintF

				.FIN
				
				clc

.99				rts
*--------------------------------------
SCOPE.Push		ldy ScopeIdx

SCOPE.PushY		iny
				lda (pData),y
				>PUSHA
				dey
				lda (pData),y
				>PUSHA
				rts
*--------------------------------------
MAN
SAVE usr/src/bin/cc.s.scope
LOAD usr/src/bin/cc.s
ASM