2022-12-07 07:02:29 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* NewBitmap (hWND, pBM, X, Y)
|
|
|
|
|
|
*--------------------------------------
|
2023-07-10 04:57:04 +00:00
|
|
|
|
BITMAP.New jsr OBJ.PullDXDY
|
2022-12-07 07:02:29 +00:00
|
|
|
|
>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
|
