mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-03 12:06:05 +00:00
48 lines
651 B
Plaintext
48 lines
651 B
Plaintext
|
NEW
|
|||
|
|
PREFIX /A2OSX.BUILD
|
|||
|
|
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 /A2OSX.SRC/LIB/LIBGUI.S.PAT
|
|||
|
|
LOAD /A2OSX.SRC/LIB/LIBGUI.S
|
|||
|
|
ASM
|