A2osX/LIB/LIBGUI.S.PAT.txt

44 lines
608 B
Plaintext
Raw Permalink Normal View History

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