A2osX/LIB/LIBGUI.S.BM.txt

46 lines
801 B
Plaintext
Raw Permalink Normal View History

NEW
2019-07-30 08:57:25 +00:00
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
2020-06-30 15:32:23 +00:00
SAVE usr/src/lib/libgui.s.bm
LOAD usr/src/lib/libgui.s
ASM