A2osX/LIB/LIBGUI.S.PAT.txt
2019-07-30 10:57:25 +02:00

47 lines
626 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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