mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-03 12:06:05 +00:00
48 lines
632 B
Plaintext
48 lines
632 B
Plaintext
NEW
|
||
PREFIX
|
||
AUTO 4,1
|
||
*--------------------------------------
|
||
GetMPattern
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
GetCPattern tax
|
||
and #$f
|
||
sta D
|
||
asl
|
||
asl
|
||
asl
|
||
asl
|
||
ora D
|
||
tay
|
||
|
||
txa
|
||
and #$f0
|
||
sta D
|
||
lsr
|
||
lsr
|
||
lsr
|
||
lsr
|
||
ora D
|
||
|
||
ldx #7
|
||
|
||
.1 sta PAT.Buf+S.BM,x
|
||
dex
|
||
pha
|
||
tya
|
||
sta PAT.Buf+S.BM,x
|
||
pla
|
||
dex
|
||
bpl .1
|
||
|
||
lda #S.BM.F.BBP1
|
||
sta PAT.Buf+S.BM.F
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/LIB/LIBGUI.S.PAT
|
||
LOAD USR/SRC/LIB/LIBGUI.S
|
||
ASM
|