2018-01-10 16:34:57 +00:00
|
|
|
|
NEW
|
2019-07-30 08:57:25 +00:00
|
|
|
|
AUTO 3,1
|
2018-01-10 16:34:57 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
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
|
2018-11-17 17:17:13 +00:00
|
|
|
|
SAVE USR/SRC/LIB/LIBGUI.S.PAT
|
|
|
|
|
|
LOAD USR/SRC/LIB/LIBGUI.S
|
2018-01-10 16:34:57 +00:00
|
|
|
|
ASM
|
