mirror of
https://github.com/A2osX/A2osX.git
synced 2025-04-13 04:37:54 +00:00
51 lines
968 B
Plaintext
51 lines
968 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
TAG.New >SS
|
||
>PUSHW.G CC.pTags
|
||
>PUSHW ZP.pLineBuf
|
||
>PUSHWI 0 ScopeID
|
||
>PUSHWI ZP.pLineBuf NextPtr
|
||
>KAPI SListNewKey
|
||
>SR
|
||
bcs .9
|
||
|
||
>STYA ZPPtr1 TagID
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
TAG.Store >SS
|
||
>PUSHW.G CC.pTags
|
||
>PUSHW ZPPtr1
|
||
>PUSHW ZP.pTypeBuf
|
||
>PUSHWI SYM
|
||
>KAPI SListAddData
|
||
>SR
|
||
rts
|
||
*--------------------------------------
|
||
TAG.Lookup >SS
|
||
>PUSHW.G CC.pTags
|
||
>PUSHW ZP.pLineBuf
|
||
>PUSHWI 0 ScopeID
|
||
>PUSHWI ZP.pLineBuf NextPtr
|
||
>KAPI SListLookup
|
||
>SR
|
||
bcs .9
|
||
|
||
>STYA ZPPtr1 Y,A = KeyID
|
||
|
||
>SS
|
||
>PUSHW.G CC.pTags
|
||
>PUSHW ZPPtr1
|
||
>PUSHW ZP.pTypeBuf
|
||
>PUSHWI 65535 all
|
||
>PUSHWZ From Start
|
||
>KAPI SListGetData
|
||
>SR
|
||
.9 rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/bin/cc.s.tag
|
||
LOAD usr/src/bin/cc.s
|
||
ASM
|