mirror of https://github.com/A2osX/A2osX.git
59 lines
874 B
Plaintext
59 lines
874 B
Plaintext
|
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
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.OOH
|
|||
|
sec
|
|||
|
.99 rts
|
|||
|
*--------------------------------------
|
|||
|
SCOPE.Close ldy ScopeIdx
|
|||
|
cpy #CC.ScopeIDs
|
|||
|
beq *
|
|||
|
|
|||
|
dey
|
|||
|
dey
|
|||
|
sty ScopeIdx
|
|||
|
|
|||
|
inc bLocalScope
|
|||
|
|
|||
|
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
|