mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-04 19:05:42 +00:00
9a7d20a7e1
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
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
|