mirror of https://github.com/A2osX/A2osX.git
44 lines
608 B
Plaintext
44 lines
608 B
Plaintext
NEW
|
||
AUTO 3,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
|