Spr_002: 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 #$6666 ; 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 *----------