mirror of
https://github.com/A2osX/A2osX.git
synced 2025-03-01 13:30:54 +00:00
53 lines
970 B
Plaintext
53 lines
970 B
Plaintext
|
NEW
|
|||
|
|
AUTO 3,1
|
|||
|
|
*--------------------------------------
|
|||
|
|
* NewBitmap (hWND, pBM, X, Y)
|
|||
|
|
*--------------------------------------
|
|||
|
|
BITMAP.New >PULLW DY
|
|||
|
|
>PULLW DX
|
|||
|
|
>PULLW ZPBMPtr
|
|||
|
|
jsr OBJ.PullHWND
|
|||
|
|
|
|||
|
|
BITMAP.New.I lda #S.OBJ.T.BITMAP
|
|||
|
|
jsr OBJ.New
|
|||
|
|
bcs .9 ZPObjPtr
|
|||
|
|
|
|||
|
|
phx hOBJ
|
|||
|
|
|
|||
|
|
jsr OBJ.SetDXDYX1Y1
|
|||
|
|
|
|||
|
|
ldy #S.BITMAP.pBM
|
|||
|
|
lda ZPBMPtr
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
iny
|
|||
|
|
lda ZPBMPtr+1
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
|
|||
|
|
pla hOBJ
|
|||
|
|
jmp WND.AddChild.I
|
|||
|
|
|
|||
|
|
.9 rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
BITMAP.Enter
|
|||
|
|
BITMAP.Leave
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
* ZPWNDPtr
|
|||
|
|
* ZPObjPtr
|
|||
|
|
*--------------------------------------
|
|||
|
|
BITMAP.fPaint jsr CB.GetObjX1Y1
|
|||
|
|
|
|||
|
|
ldy #S.BITMAP.pBM
|
|||
|
|
jsr OBJ.GetPtr
|
|||
|
|
|
|||
|
|
jsr BM.YA2CB.cache
|
|||
|
|
|
|||
|
|
jsr CB.ToGlobal
|
|||
|
|
jmp CB.Write
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE usr/src/lib/libgui.s.bitmap
|
|||
|
|
LOAD usr/src/lib/libgui.s
|
|||
|
|
ASM
|