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
|