mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +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
|