mirror of
https://github.com/blondie7575/GSCats.git
synced 2024-06-03 09:29:29 +00:00
137 lines
1.4 KiB
Plaintext
137 lines
1.4 KiB
Plaintext
Spr_001:
|
|
clc ; 16x16, 185 bytes, 439 cycles
|
|
sei ; Disable Interrupts
|
|
phd ; Backup Direct Page
|
|
tsc ; Backup Stack
|
|
sta StackAddress
|
|
ldal $e1c068 ; Direct Page and Stack in Bank 01/
|
|
ora #$0030
|
|
stal $e1c068
|
|
tya ; Y = Sprite Target Screen Address (upper left corner)
|
|
tcs ; New Stack address
|
|
ldx #$FFFF ; Pattern #1 : 112
|
|
*----------
|
|
tsc
|
|
adc #$0007
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 1
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 2
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 3
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 4
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 5
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 6
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 7
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 8
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 9
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 10
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 11
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 12
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 13
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 14
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
tsc ; Line 15
|
|
adc #$00A8
|
|
tcs
|
|
phx
|
|
phx
|
|
phx
|
|
phx
|
|
*----------
|
|
ldal $e1C068 ; Direct Page and Stack in Bank 00/
|
|
and #$ffcf
|
|
stal $e1c068
|
|
lda StackAddress ; Restore Stack
|
|
tcs
|
|
pld ; Restore Direct Page
|
|
cli ; Enable Interrupts
|
|
rtl
|
|
|
|
*----------
|