mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +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
|