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
46 lines
801 B
Plaintext
46 lines
801 B
Plaintext
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
|