mirror of
https://github.com/blondie7575/GSCats.git
synced 2024-11-25 10:30:49 +00:00
220 lines
2.4 KiB
ArmAsm
220 lines
2.4 KiB
ArmAsm
Spr_000:
|
|
FASTGRAPHICS ; 16x16, 484 bytes, 710 cycles
|
|
clc
|
|
tya ; Y = Sprite Target Screen Address (upper left corner)
|
|
tcs ; New Stack address
|
|
ldx #$4444 ; Pattern #1 : 4
|
|
ldy #$0444 ; Pattern #2 : 2
|
|
lda #$4004 ; Pattern #3 : 2
|
|
tcd
|
|
;--
|
|
lda #$2633 ; Line 0
|
|
sta $A5,S
|
|
lda $A3,S
|
|
and #$F000
|
|
ora #$0226
|
|
sta $A3,S
|
|
sep #$20
|
|
.a8
|
|
lda $03,S
|
|
and #$F0
|
|
ora #$03
|
|
sta $03,S
|
|
lda $06,S
|
|
and #$F0
|
|
ora #$03
|
|
sta $06,S
|
|
lda $A7,S
|
|
and #$0F
|
|
ora #$20
|
|
sta $A7,S
|
|
rep #$30
|
|
.a16
|
|
tsc ; Line 2
|
|
adc #$0140
|
|
tcs
|
|
sep #$20
|
|
.a8
|
|
lda #$FF
|
|
sta $00,S
|
|
sta $A0,S
|
|
lda $07,S
|
|
and #$0F
|
|
ora #$20
|
|
sta $07,S
|
|
lda $A7,S
|
|
and #$0F
|
|
ora #$20
|
|
sta $A7,S
|
|
rep #$30
|
|
.a16
|
|
tsc
|
|
adc #$0006
|
|
tcs
|
|
pea $3533
|
|
pea $2425
|
|
tsc ; Line 3
|
|
adc #$00A4
|
|
tcs
|
|
sep #$20
|
|
.a8
|
|
lda #$23
|
|
sta $9A,S
|
|
lda $A1,S
|
|
and #$0F
|
|
ora #$30
|
|
sta $A1,S
|
|
rep #$30
|
|
.a16
|
|
pea $3434
|
|
pea $4423
|
|
tsc ; Line 4
|
|
adc #$00A4
|
|
tcs
|
|
lda $9C,S
|
|
and #$00F0
|
|
ora #$2303
|
|
sta $9C,S
|
|
sep #$20
|
|
.a8
|
|
lda #$24
|
|
sta $9A,S
|
|
rep #$30
|
|
.a16
|
|
phx
|
|
pea $4434
|
|
tsc ; Line 5
|
|
adc #$00A5
|
|
tcs
|
|
sep #$20
|
|
.a8
|
|
lda #$24
|
|
sta $99,S
|
|
lda $A0,S
|
|
and #$0F
|
|
ora #$30
|
|
sta $A0,S
|
|
rep #$30
|
|
.a16
|
|
pea $2340
|
|
phy
|
|
tsc ; Line 6
|
|
adc #$00A3
|
|
tcs
|
|
phd
|
|
pea $4433
|
|
tsc ; Line 7
|
|
adc #$00A5
|
|
tcs
|
|
sep #$20
|
|
.a8
|
|
lda $99,S
|
|
and #$F0
|
|
ora #$03
|
|
sta $99,S
|
|
rep #$30
|
|
.a16
|
|
pea $236F
|
|
pea $F64F
|
|
pea $2233
|
|
pea $3324
|
|
tsc ; Line 8
|
|
adc #$00A7
|
|
tcs
|
|
lda $9F,S
|
|
and #$0F00
|
|
ora #$3022
|
|
sta $9F,S
|
|
sep #$20
|
|
.a8
|
|
lda $9A,S
|
|
and #$F0
|
|
ora #$03
|
|
sta $9A,S
|
|
rep #$30
|
|
.a16
|
|
pea $F2FF
|
|
pea $2333
|
|
pea $3444
|
|
tsc ; Line 9
|
|
adc #$00A4
|
|
tcs
|
|
txa
|
|
sta $9E,S
|
|
lda $9C,S
|
|
and #$00F0
|
|
ora #$4403
|
|
sta $9C,S
|
|
lda $A0,S
|
|
and #$0F00
|
|
ora #$F03F
|
|
sta $A0,S
|
|
pea $FF43
|
|
phx
|
|
tsc ; Line 11
|
|
adc #$0140
|
|
tcs
|
|
lda #$4434
|
|
sta $02,S
|
|
lda #$2322
|
|
sta $A2,S
|
|
lda $00,S
|
|
and #$00F0
|
|
ora #$4403
|
|
sta $00,S
|
|
lda $04,S
|
|
and #$0F00
|
|
ora #$F043
|
|
sta $04,S
|
|
lda $A0,S
|
|
and #$00F0
|
|
ora #$4303
|
|
sta $A0,S
|
|
lda $A4,S
|
|
and #$0F00
|
|
ora #$3044
|
|
sta $A4,S
|
|
tsc ; Line 13
|
|
adc #$0140
|
|
tcs
|
|
lda $00,S
|
|
and #$00F0
|
|
ora #$3204
|
|
sta $00,S
|
|
lda $03,S
|
|
and #$00F0
|
|
ora #$4203
|
|
sta $03,S
|
|
lda $A0,S
|
|
and #$00F0
|
|
ora #$3203
|
|
sta $A0,S
|
|
lda $A3,S
|
|
and #$00F0
|
|
ora #$3203
|
|
sta $A3,S
|
|
sep #$20
|
|
.a8
|
|
lda $05,S
|
|
and #$0F
|
|
ora #$30
|
|
sta $05,S
|
|
rep #$30
|
|
.a16
|
|
tsc ; Line 15
|
|
adc #$0140
|
|
tcs
|
|
lda $00,S
|
|
and #$00F0
|
|
ora #$F30F
|
|
sta $00,S
|
|
lda $03,S
|
|
and #$00F0
|
|
ora #$F30F
|
|
sta $03,S
|
|
;--
|
|
SLOWGRAPHICS
|
|
rts
|
|
|
|
;------------------------------
|