A2osX/LIB/LIBGUI.S.BM.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

46 lines
801 B
Plaintext
Raw Permalink 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
*--------------------------------------
BM.YA2CB.cache >STYA ZPBMPtr
>STYA CB.Cache+S.CB.SrcPtr
lda #S.CB.CMD.BITBLT
sta CB.Cache+S.CB.CMD
lda #S.CB.OP.MASK+S.CB.OP.ORA
sta CB.Cache+S.CB.OP
ldx #S.CB.M.MONO
lda (ZPBMPtr) #S.BM.F
cmp #S.BM.F.BBP4
bne .1
lda #S.CB.OP.COLOR
tsb CB.Cache+S.CB.OP
lda CB.Cache+S.CB.X1
and PREFS.BestViewedX
sta CB.Cache+S.CB.X1
ldx #S.CB.M.C16
.1 stx CB.Cache+S.CB.M
jsr CB.ResetSrcXY
ldy #S.BM.W+3
ldx #3
.2 lda (ZPBMPtr),y
sta CB.Cache+S.CB.SrcW,x
dey
dex
bpl .2
rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.bm
LOAD usr/src/lib/libgui.s
ASM