A2osX/LIB/LIBGUI.S.BITMAP.txt
burniouf 9a7d20a7e1 ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip
2022-12-07 08:02:29 +01:00

53 lines
970 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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