mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-01 14:50:10 +00:00
59 lines
906 B
Plaintext
59 lines
906 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
OBJ.New
|
||
*--------------------------------------
|
||
* hOBJ, Prop8, Value16
|
||
*--------------------------------------
|
||
OBJ.SetProp ldy #3
|
||
|
||
lda (pStack),y hOBJ
|
||
|
||
>SYSCALL2 GetMemPtr
|
||
>STYA ZPObjPtr
|
||
|
||
ldy #2
|
||
lda (pStack),y
|
||
|
||
tay
|
||
|
||
lda (ZPObjPtr),y
|
||
pha old value
|
||
>PULLA
|
||
sta (ZPObjPtr),y
|
||
|
||
iny
|
||
lda (ZPObjPtr),y
|
||
tax
|
||
>PULLA
|
||
sta (ZPObjPtr),y
|
||
|
||
txa
|
||
ply
|
||
|
||
>RET 2
|
||
*--------------------------------------
|
||
* hOBJ, Prop8
|
||
*--------------------------------------
|
||
OBJ.GetProp >PULLA
|
||
pha
|
||
|
||
>PULLA
|
||
>SYSCALL2 GetMemPtr
|
||
>STYA ZPObjPtr
|
||
|
||
ply
|
||
|
||
lda (ZPObjPtr),y
|
||
pha
|
||
iny
|
||
lda (ZPObjPtr),y
|
||
ply
|
||
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/libgui.s.obj
|
||
LOAD usr/src/lib/libgui.s
|
||
ASM
|