SpriteGen/hgrtest.lst
Quinn Dunki 9a4c4b7b85 Initial commit
The sprite generator basically works for the four primary hires colors. The included sample program renders all the sample sprites in various places on screen.
2016-09-10 10:53:34 -07:00

6536 lines
229 KiB
Plaintext

ca65 V2.13.3 - (C) Copyright 1998-2012 Ullrich von Bassewitz
Main file : hgrtest.s
Current file: hgrtest.s
000000r 1 ;
000000r 1 ; hgrtest.s
000000r 1 ;
000000r 1 ; Created by Quinn Dunki on 7/19/16
000000r 1 ; Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.
000000r 1 ;
000000r 1
000000r 1
000000r 1 .org $6000
006000 1
006000 1 .include "macros.s"
006000 2 ;
006000 2 ; macros.s
006000 2 ; Generally useful macros for 6502 code
006000 2 ;
006000 2 ; Created by Quinn Dunki on 8/15/14.
006000 2 ; Copyright (c) 2014 One Girl, One Laptop Productions. All rights reserved.
006000 2 ;
006000 2
006000 2
006000 2 ; Macros
006000 2
006000 2 .macro SETSWITCH name ; Sets the named softswitch (assumes write method)
006000 2 sta name
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro SAVE_AXY ; Saves all registers
006000 2 pha
006000 2 phx
006000 2 phy
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro RESTORE_AXY ; Restores all registers
006000 2 ply
006000 2 plx
006000 2 pla
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro SAVE_AY ; Saves accumulator and Y index
006000 2 pha
006000 2 phy
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro RESTORE_AY ; Restores accumulator and Y index
006000 2 ply
006000 2 pla
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro SAVE_AX ; Saves accumulator and X index
006000 2 pha
006000 2 phx
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro RESTORE_AX ; Restores accumulator and X index
006000 2 plx
006000 2 pla
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro SAVE_XY ; Saves X and Y index
006000 2 phx
006000 2 phy
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro RESTORE_XY ; Restores X and Y index
006000 2 ply
006000 2 plx
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro SAVE_ZPP ; Saves Zero Page locations we use for parameters
006000 2 lda PARAM0
006000 2 pha
006000 2 lda PARAM1
006000 2 pha
006000 2 lda PARAM2
006000 2 pha
006000 2 lda PARAM3
006000 2 pha
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro RESTORE_ZPP ; Restores Zero Page locations we use for parameters
006000 2 pla
006000 2 sta PARAM3
006000 2 pla
006000 2 sta PARAM2
006000 2 pla
006000 2 sta PARAM1
006000 2 pla
006000 2 sta PARAM0
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro SAVE_ZPS ; Saves Zero Page locations we use for scratch
006000 2 lda SCRATCH0
006000 2 pha
006000 2 lda SCRATCH1
006000 2 pha
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro RESTORE_ZPS ; Restores Zero Page locations we use for scratch
006000 2 pla
006000 2 sta SCRATCH1
006000 2 pla
006000 2 sta SCRATCH0
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro PARAM16 addr
006000 2 lda #<addr
006000 2 sta PARAM0
006000 2 lda #>addr
006000 2 sta PARAM1
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro CALL16 func,addr
006000 2 PARAM16 addr
006000 2 jsr func
006000 2 .endmacro
006000 2
006000 2
006000 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
006000 2 ; Rendering macros
006000 2 ;
006000 2
006000 2
006000 2 .macro LDY_AVIEW
006000 2 asl ; Find our new view record
006000 2 asl
006000 2 asl
006000 2 asl ; Records are 16 bytes wide
006000 2 tay
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro LDY_ACTIVEVIEW
006000 2 lda WG_ACTIVEVIEW ; Find our new view record
006000 2 LDY_AVIEW
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro LDX_ACTIVEVIEW
006000 2 lda WG_ACTIVEVIEW ; Find our new view record
006000 2 asl
006000 2 asl
006000 2 asl
006000 2 asl ; Records are 16 bytes wide
006000 2 tax
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro LDY_FOCUSVIEW
006000 2 lda WG_FOCUSVIEW ; Find our new view record
006000 2 LDY_AVIEW
006000 2 .endmacro
006000 2
006000 2
006000 2 .macro VBL_SYNC ; Synchronize with vertical blanking
006000 2 lda #$80
006000 2 ;macroWaitVBLToFinish:
006000 2 ; bit RDVBLBAR
006000 2 ; bmi macroWaitVBLToFinish
006000 2 @macroWaitVBLToStart:
006000 2 ; bit RDVBLBAR
006000 2 ; bpl @macroWaitVBLToStart
006000 2 .endmacro
006000 2
006000 1
006000 1 ; Softswitches
006000 1 TEXT = $c050
006000 1 HIRES1 = $c057
006000 1 HIRES2 = $c058
006000 1
006000 1
006000 1 ; ROM entry points
006000 1 COUT = $fded
006000 1 ROMWAIT = $fca8
006000 1
006000 1 ; Zero page locations we use (unused by Monitor, Applesoft, or ProDOS)
006000 1 PARAM0 = $06
006000 1 PARAM1 = $07
006000 1 PARAM2 = $08
006000 1 PARAM3 = $09
006000 1 SCRATCH0 = $19
006000 1 SCRATCH1 = $1a
006000 1
006000 1 ; Macros
006000 1 .macro BLITBYTE xPos,yPos,addr
006000 1 lda #xPos
006000 1 sta PARAM0
006000 1 lda #yPos
006000 1 sta PARAM1
006000 1 lda #<addr
006000 1 sta PARAM2
006000 1 lda #>addr
006000 1 sta PARAM3
006000 1 jsr BlitSpriteOnByte
006000 1 .endmacro
006000 1
006000 1 .macro BLIT xPos,yPos,addr
006000 1 lda #xPos
006000 1 sta PARAM0
006000 1 lda #yPos
006000 1 sta PARAM1
006000 1 lda #<addr
006000 1 sta PARAM2
006000 1 lda #>addr
006000 1 sta PARAM3
006000 1 jsr BlitSprite
006000 1 .endmacro
006000 1
006000 1
006000 1 .macro WAIT
006000 1 lda #$80
006000 1 jsr $fca8
006000 1 .endmacro
006000 1
006000 1
006000 1
006000 1 main:
006000 1 20 A1 60 jsr EnableHires
006003 1
006003 1 A9 00 lda #$00
006005 1 20 AB 60 jsr LinearFill
006008 1
006008 1 .if 0
006008 1 stz PARAM0
006008 1 stz PARAM1
006008 1 jsr BOX_ORG_SHIFT0
006008 1 .endif
006008 1
006008 1 .if 1
006008 1
006008 1 A2 00 ldx #0
00600A 1 loop:
00600A 1 8A txa
00600B 1 0A asl
00600C 1 0A asl
00600D 1 85 06 sta PARAM0
00600F 1 A9 00 lda #0
006011 1 85 07 sta PARAM1
006013 1 20 74 65 jsr BOX_MAG
006016 1
006016 1 A9 58 lda #88
006018 1 85 07 sta PARAM1
00601A 1 20 8E 6C jsr BOX_GRN
00601D 1
00601D 1 A9 60 lda #96
00601F 1 85 07 sta PARAM1
006021 1 20 A8 73 jsr BOX_ORG
006024 1
006024 1 A9 B8 lda #184
006026 1 85 07 sta PARAM1
006028 1 20 C2 7A jsr BOX_BLU
00602B 1
00602B 1 E8 inx
00602C 1 E0 23 cpx #35
00602E 1 D0 DA bne loop
006030 1
006030 1 .endif
006030 1
006030 1
006030 1 .if 0
006030 1
006030 1 ldx #0
006030 1 loop:
006030 1 txa
006030 1 asl
006030 1 asl
006030 1 sta PARAM0
006030 1 lda #0
006030 1 sta PARAM1
006030 1 lda #<BOX_MAG_SHIFT0
006030 1 sta PARAM2
006030 1 lda #>BOX_MAG_SHIFT0
006030 1 sta PARAM3
006030 1 jsr BlitSprite
006030 1
006030 1 lda #88
006030 1 sta PARAM1
006030 1 lda #<BOX_GRN_SHIFT0
006030 1 sta PARAM2
006030 1 lda #>BOX_GRN_SHIFT0
006030 1 sta PARAM3
006030 1 jsr BlitSprite
006030 1
006030 1 lda #96
006030 1 sta PARAM1
006030 1 lda #<BOX_BLU_SHIFT0
006030 1 sta PARAM2
006030 1 lda #>BOX_BLU_SHIFT0
006030 1 sta PARAM3
006030 1 jsr BlitSprite
006030 1
006030 1 lda #184
006030 1 sta PARAM1
006030 1 lda #<BOX_ORG_SHIFT0
006030 1 sta PARAM2
006030 1 lda #>BOX_ORG_SHIFT0
006030 1 sta PARAM3
006030 1 jsr BlitSprite
006030 1
006030 1 ; lda #$ff
006030 1 ; jsr ROMWAIT
006030 1
006030 1 inx
006030 1 cpx #35
006030 1 bne loop
006030 1
006030 1 .endif
006030 1 .if 0
006030 1 BLITBYTE 0,80,BOX_MAG_SHIFT0_CHUNK0
006030 1 BLITBYTE 1,80,BOX_MAG_SHIFT0_CHUNK1
006030 1 BLITBYTE 2,80,BOX_MAG_SHIFT0_CHUNK2
006030 1
006030 1 BLITBYTE 0,90,BOX_MAG_SHIFT1_CHUNK0
006030 1 BLITBYTE 1,90,BOX_MAG_SHIFT1_CHUNK1
006030 1 BLITBYTE 2,90,BOX_MAG_SHIFT1_CHUNK2
006030 1
006030 1 BLITBYTE 0,100,BOX_MAG_SHIFT2_CHUNK0
006030 1 BLITBYTE 1,100,BOX_MAG_SHIFT2_CHUNK1
006030 1 BLITBYTE 2,100,BOX_MAG_SHIFT2_CHUNK2
006030 1
006030 1 BLITBYTE 0,110,BOX_MAG_SHIFT3_CHUNK0
006030 1 BLITBYTE 1,110,BOX_MAG_SHIFT3_CHUNK1
006030 1 BLITBYTE 2,110,BOX_MAG_SHIFT3_CHUNK2
006030 1
006030 1 BLITBYTE 0,120,BOX_MAG_SHIFT4_CHUNK0
006030 1 BLITBYTE 1,120,BOX_MAG_SHIFT4_CHUNK1
006030 1 BLITBYTE 2,120,BOX_MAG_SHIFT4_CHUNK2
006030 1
006030 1 BLITBYTE 0,130,BOX_MAG_SHIFT5_CHUNK0
006030 1 BLITBYTE 1,130,BOX_MAG_SHIFT5_CHUNK1
006030 1 BLITBYTE 2,130,BOX_MAG_SHIFT5_CHUNK2
006030 1
006030 1 BLITBYTE 0,140,BOX_MAG_SHIFT6_CHUNK0
006030 1 BLITBYTE 1,140,BOX_MAG_SHIFT6_CHUNK1
006030 1 BLITBYTE 2,140,BOX_MAG_SHIFT6_CHUNK2
006030 1
006030 1
006030 1
006030 1
006030 1 BLITBYTE 4,80,BOX_GRN_SHIFT0_CHUNK0
006030 1 BLITBYTE 5,80,BOX_GRN_SHIFT0_CHUNK1
006030 1 BLITBYTE 6,80,BOX_GRN_SHIFT0_CHUNK2
006030 1
006030 1 BLITBYTE 4,90,BOX_GRN_SHIFT1_CHUNK0
006030 1 BLITBYTE 5,90,BOX_GRN_SHIFT1_CHUNK1
006030 1 BLITBYTE 6,90,BOX_GRN_SHIFT1_CHUNK2
006030 1
006030 1 BLITBYTE 4,100,BOX_GRN_SHIFT2_CHUNK0
006030 1 BLITBYTE 5,100,BOX_GRN_SHIFT2_CHUNK1
006030 1 BLITBYTE 6,100,BOX_GRN_SHIFT2_CHUNK2
006030 1
006030 1 BLITBYTE 4,110,BOX_GRN_SHIFT3_CHUNK0
006030 1 BLITBYTE 5,110,BOX_GRN_SHIFT3_CHUNK1
006030 1 BLITBYTE 6,110,BOX_GRN_SHIFT3_CHUNK2
006030 1
006030 1 BLITBYTE 4,120,BOX_GRN_SHIFT4_CHUNK0
006030 1 BLITBYTE 5,120,BOX_GRN_SHIFT4_CHUNK1
006030 1 BLITBYTE 6,120,BOX_GRN_SHIFT4_CHUNK2
006030 1
006030 1 BLITBYTE 4,130,BOX_GRN_SHIFT5_CHUNK0
006030 1 BLITBYTE 5,130,BOX_GRN_SHIFT5_CHUNK1
006030 1 BLITBYTE 6,130,BOX_GRN_SHIFT5_CHUNK2
006030 1
006030 1 BLITBYTE 4,140,BOX_GRN_SHIFT6_CHUNK0
006030 1 BLITBYTE 5,140,BOX_GRN_SHIFT6_CHUNK1
006030 1 BLITBYTE 6,140,BOX_GRN_SHIFT6_CHUNK2
006030 1
006030 1 .endif
006030 1
006030 1
006030 1 .if 0
006030 1 BLITBYTE 20,80,MAG0
006030 1 BLITBYTE 21,80,MAG1
006030 1
006030 1 BLITBYTE 20,90,MAG2
006030 1 BLITBYTE 21,90,MAG3
006030 1
006030 1 BLITBYTE 20,100,MAG4
006030 1 BLITBYTE 21,100,MAG5
006030 1
006030 1 BLITBYTE 20,110,MAG6
006030 1 BLITBYTE 21,110,MAG7
006030 1
006030 1 BLITBYTE 21,120,MAG8
006030 1 BLITBYTE 22,120,MAG9
006030 1
006030 1 BLITBYTE 21,130,MAG10
006030 1 BLITBYTE 22,130,MAG11
006030 1
006030 1 BLITBYTE 21,140,MAG12
006030 1 BLITBYTE 22,140,MAG13
006030 1 .endif
006030 1
006030 1 .if 0
006030 1
006030 1 BLITBYTE 22,80,GRN0
006030 1 BLITBYTE 23,80,GRN1
006030 1
006030 1 BLITBYTE 22,90,GRN2
006030 1 BLITBYTE 23,90,GRN3
006030 1
006030 1 BLITBYTE 22,100,GRN4
006030 1 BLITBYTE 23,100,GRN5
006030 1
006030 1 BLITBYTE 22,110,GRN6
006030 1 BLITBYTE 23,110,GRN7
006030 1
006030 1 BLITBYTE 23,120,GRN8
006030 1 BLITBYTE 24,120,GRN9
006030 1
006030 1 BLITBYTE 23,130,GRN10
006030 1 BLITBYTE 24,130,GRN11
006030 1
006030 1 BLITBYTE 23,140,GRN12
006030 1 BLITBYTE 24,140,GRN13
006030 1 .endif
006030 1
006030 1
006030 1 .if 0
006030 1 BLITBYTE 20,80,BOX_MAG0
006030 1 BLITBYTE 21,80,BOX_MAG1
006030 1
006030 1 BLITBYTE 20,90,BOX_MAG2
006030 1 BLITBYTE 21,90,BOX_MAG3
006030 1
006030 1 BLITBYTE 20,100,BOX_MAG4
006030 1 BLITBYTE 21,100,BOX_MAG5
006030 1
006030 1 BLITBYTE 20,110,BOX_MAG6
006030 1 BLITBYTE 21,110,BOX_MAG7
006030 1
006030 1 BLITBYTE 21,120,BOX_MAG8
006030 1 BLITBYTE 22,120,BOX_MAG9
006030 1
006030 1 BLITBYTE 21,130,BOX_MAG10
006030 1 BLITBYTE 22,130,BOX_MAG11
006030 1
006030 1 BLITBYTE 21,140,BOX_MAG12
006030 1 BLITBYTE 22,140,BOX_MAG13
006030 1 .endif
006030 1
006030 1 .if 0
006030 1 BLITBYTE 20,80,BOX_GRN0
006030 1
006030 1 BLITBYTE 20,90,BOX_GRN1
006030 1 BLITBYTE 21,90,BOX_GRN2
006030 1
006030 1 BLITBYTE 20,100,BOX_GRN3
006030 1 BLITBYTE 21,100,BOX_GRN4
006030 1
006030 1 BLITBYTE 20,110,BOX_GRN5
006030 1 BLITBYTE 21,110,BOX_GRN6
006030 1
006030 1 BLITBYTE 21,120,BOX_GRN7
006030 1 BLITBYTE 22,120,BOX_GRN8
006030 1
006030 1 BLITBYTE 21,130,BOX_GRN9
006030 1 BLITBYTE 22,130,BOX_GRN10
006030 1
006030 1 BLITBYTE 21,140,BOX_GRN11
006030 1 BLITBYTE 22,140,BOX_GRN12
006030 1 .endif
006030 1
006030 1
006030 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
006030 1 .if 0
006030 1 BLITBYTE 20,80,BOX0
006030 1 WAIT
006030 1 BLITBYTE 20,80,BLACK
006030 1
006030 1 BLITBYTE 20,80,BOX1
006030 1 BLITBYTE 21,80,BOX2
006030 1 WAIT
006030 1 BLITBYTE 20,80,BLACK
006030 1 BLITBYTE 21,80,BLACK
006030 1
006030 1 BLITBYTE 20,80,BOX3
006030 1 BLITBYTE 21,80,BOX4
006030 1 WAIT
006030 1 BLITBYTE 20,80,BLACK
006030 1 BLITBYTE 21,80,BLACK
006030 1
006030 1 BLITBYTE 20,80,BOX5
006030 1 BLITBYTE 21,80,BOX6
006030 1 WAIT
006030 1 BLITBYTE 20,80,BLACK
006030 1 BLITBYTE 21,80,BLACK
006030 1
006030 1 BLITBYTE 21,80,BOX7
006030 1 BLITBYTE 22,80,BOX8
006030 1 WAIT
006030 1 BLITBYTE 21,80,BLACK
006030 1 BLITBYTE 22,80,BLACK
006030 1
006030 1 BLITBYTE 21,80,BOX9
006030 1 BLITBYTE 22,80,BOX10
006030 1 WAIT
006030 1 BLITBYTE 21,80,BLACK
006030 1 BLITBYTE 22,80,BLACK
006030 1
006030 1 BLITBYTE 21,80,BOX11
006030 1 BLITBYTE 22,80,BOX12
006030 1 WAIT
006030 1 BLITBYTE 21,80,BLACK
006030 1 BLITBYTE 22,80,BLACK
006030 1
006030 1 BLITBYTE 22,80,BOX0
006030 1 WAIT
006030 1 BLITBYTE 22,80,BLACK
006030 1
006030 1 jmp loop
006030 1 .endif
006030 1
006030 1
006030 1 60 rts
006031 1
006031 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
006031 1 ; BlitSprite
006031 1 ; Trashes everything, including parameters
006031 1 ; PARAM0: X Pos
006031 1 ; PARAM1: Y Pos
006031 1 ; PARAM2: Sprite Ptr LSB
006031 1 ; PARAM3: Sprite Ptr MSB
006031 1 ;
006031 1 BlitSprite:
006031 1 48 DA 5A SAVE_AXY
006034 1
006034 1 18 clc ; Compute sprite data base 2
006035 1 A6 06 ldx PARAM0 ; 3
006037 1 BD E8 62 lda HGRROWS_BITSHIFT_GRN,x ; 4
00603A 1 65 08 adc PARAM2 ; 3
00603C 1 85 08 sta PARAM2 ; 3
00603E 1 A9 00 lda #0 ; 2
006040 1 65 09 adc PARAM3 ; 3
006042 1 85 09 sta PARAM3 ; 3
006044 1
006044 1 A9 07 lda #7 ; 2
006046 1 85 19 sta SCRATCH0 ; Tracks row index 3
006048 1
006048 1 0A asl ; Multiply by byte width 2
006049 1 0A asl ; 2
00604A 1 85 1A sta SCRATCH1 ; Tracks total bytes 3
00604C 1 A0 00 ldy #0 ; 2
00604E 1 ; 37 cycles overhead
00604E 1
00604E 1 blitSprite_Yloop:
00604E 1 18 clc ; Calculate Y line on screen 2
00604F 1 A5 19 lda SCRATCH0 ; 3
006051 1 65 07 adc PARAM1 ; 3
006053 1 AA tax ; 2
006054 1
006054 1 BD DC 60 lda HGRROWS_H,x ; Compute hires row 4
006057 1 8D 70 60 sta blitSprite_smc+2 ; Self-modifying code 4
00605A 1 8D 73 60 sta blitSprite_smc+5 ; 4
00605D 1 BD 9C 61 lda HGRROWS_L,x ; 4
006060 1 8D 6F 60 sta blitSprite_smc+1 ; 4
006063 1 8D 72 60 sta blitSprite_smc+4 ; 4
006066 1
006066 1 A6 06 ldx PARAM0 ; Compute hires horizontal byte 3
006068 1 BD 5C 62 lda HGRROWS_GRN,x ; 4
00606B 1 AA tax ; 2
00606C 1
00606C 1 blitSprite_Xloop:
00606C 1 B1 08 lda (PARAM2),y ; 5
00606E 1
00606E 1 blitSprite_smc:
00606E 1 1D 00 20 ora $2000,x
006071 1 9D 00 20 sta $2000,x ; 5
006074 1 E8 inx ; 2
006075 1 C8 iny ; 2
006076 1 98 tya ; End of row? 2
006077 1 29 03 and #$03 ; If last two bits are zero, we've wrapped a row 2
006079 1 D0 F1 bne blitSprite_Xloop ; 2
00607B 1
00607B 1 C6 19 dec SCRATCH0 ; 5
00607D 1 10 CF bpl blitSprite_Yloop ; 3
00607F 1 ; 71 cycles per row
00607F 1 7A FA 68 RESTORE_AXY
006082 1 60 rts
006083 1
006083 1
006083 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
006083 1 ; BlitSpriteOnByte
006083 1 ; Trashes everything
006083 1 ; PARAM0: X Byte
006083 1 ; PARAM1: Y Pos
006083 1 ; PARAM2: Sprite Ptr MSB
006083 1 ; PARAM3: Sprite Ptr LSB
006083 1 ;
006083 1 BlitSpriteOnByte:
006083 1 A0 07 ldy #7
006085 1
006085 1 blitSpriteOnByte_loop:
006085 1 18 clc
006086 1 98 tya
006087 1 65 07 adc PARAM1 ; Calculate Y line
006089 1 AA tax
00608A 1
00608A 1 BD DC 60 lda HGRROWS_H,x ; Compute hires row
00608D 1 8D 9C 60 sta blitSpriteOnByte_smc+2
006090 1 BD 9C 61 lda HGRROWS_L,x
006093 1 8D 9B 60 sta blitSpriteOnByte_smc+1
006096 1
006096 1 A6 06 ldx PARAM0 ; Compute hires column
006098 1 B1 08 lda (PARAM2),y
00609A 1
00609A 1 blitSpriteOnByte_smc:
00609A 1 9D 00 20 sta $2000,x
00609D 1 88 dey
00609E 1 10 E5 bpl blitSpriteOnByte_loop
0060A0 1 60 rts
0060A1 1
0060A1 1
0060A1 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0060A1 1 ; EnableHires
0060A1 1 ; Trashes A
0060A1 1 ;
0060A1 1 EnableHires:
0060A1 1 AD 50 C0 lda TEXT
0060A4 1 AD 57 C0 lda HIRES1
0060A7 1 AD 58 C0 lda HIRES2
0060AA 1 60 rts
0060AB 1
0060AB 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0060AB 1 ; LinearFill
0060AB 1 ; A: Byte value to fill
0060AB 1 ; Trashes all registers
0060AB 1 ;
0060AB 1 LinearFill:
0060AB 1 A2 00 ldx #0
0060AD 1
0060AD 1 linearFill_outer:
0060AD 1 48 pha
0060AE 1 BD DC 60 lda HGRROWS_H,x
0060B1 1 8D BF 60 sta linearFill_inner+2
0060B4 1 BD 9C 61 lda HGRROWS_L,x
0060B7 1 8D BE 60 sta linearFill_inner+1
0060BA 1 68 pla
0060BB 1
0060BB 1 A0 27 ldy #39
0060BD 1 linearFill_inner:
0060BD 1 99 00 20 sta $2000,y
0060C0 1 88 dey
0060C1 1 10 FA bpl linearFill_inner
0060C3 1
0060C3 1 E8 inx
0060C4 1 E0 C0 cpx #192
0060C6 1 D0 E5 bne linearFill_outer
0060C8 1 60 rts
0060C9 1
0060C9 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0060C9 1 ; VenetianFill
0060C9 1 ; A: Byte value to fill
0060C9 1 ; Trashes all registers
0060C9 1 ;
0060C9 1 VenetianFill:
0060C9 1 A2 3F ldx #$3f
0060CB 1 venetianFill_outer:
0060CB 1 8E D2 60 stx venetianFill_inner+2
0060CE 1 A0 00 ldy #$00
0060D0 1 venetianFill_inner:
0060D0 1 99 00 20 sta $2000,y ; Upper byte of address is self-modified
0060D3 1 C8 iny
0060D4 1 D0 FA bne venetianFill_inner
0060D6 1 CA dex
0060D7 1 E0 1F cpx #$1f
0060D9 1 D0 F0 bne venetianFill_outer
0060DB 1 60 rts
0060DC 1
0060DC 1
0060DC 1 .include "hgrtable.s"
0060DC 2 ;
0060DC 2 ; hgrtable.s
0060DC 2 ;
0060DC 2 ; Created by Quinn Dunki on 7/19/16
0060DC 2 ; Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.
0060DC 2 ;
0060DC 2
0060DC 2 HGRROWS_H:
0060DC 2 20 .byte $20
0060DD 2 24 .byte $24
0060DE 2 28 .byte $28
0060DF 2 2C .byte $2C
0060E0 2 30 .byte $30
0060E1 2 34 .byte $34
0060E2 2 38 .byte $38
0060E3 2 3C .byte $3C
0060E4 2
0060E4 2 20 .byte $20
0060E5 2 24 .byte $24
0060E6 2 28 .byte $28
0060E7 2 2C .byte $2C
0060E8 2 30 .byte $30
0060E9 2 34 .byte $34
0060EA 2 38 .byte $38
0060EB 2 3C .byte $3C
0060EC 2
0060EC 2 21 .byte $21
0060ED 2 25 .byte $25
0060EE 2 29 .byte $29
0060EF 2 2D .byte $2D
0060F0 2 31 .byte $31
0060F1 2 35 .byte $35
0060F2 2 39 .byte $39
0060F3 2 3D .byte $3D
0060F4 2
0060F4 2 21 .byte $21
0060F5 2 25 .byte $25
0060F6 2 29 .byte $29
0060F7 2 2D .byte $2D
0060F8 2 31 .byte $31
0060F9 2 35 .byte $35
0060FA 2 39 .byte $39
0060FB 2 3D .byte $3D
0060FC 2
0060FC 2 22 .byte $22
0060FD 2 26 .byte $26
0060FE 2 2A .byte $2A
0060FF 2 2E .byte $2E
006100 2 32 .byte $32
006101 2 36 .byte $36
006102 2 3A .byte $3A
006103 2 3E .byte $3E
006104 2
006104 2 22 .byte $22
006105 2 26 .byte $26
006106 2 2A .byte $2A
006107 2 2E .byte $2E
006108 2 32 .byte $32
006109 2 36 .byte $36
00610A 2 3A .byte $3A
00610B 2 3E .byte $3E
00610C 2
00610C 2 23 .byte $23
00610D 2 27 .byte $27
00610E 2 2B .byte $2B
00610F 2 2F .byte $2F
006110 2 33 .byte $33
006111 2 37 .byte $37
006112 2 3B .byte $3B
006113 2 3F .byte $3F
006114 2
006114 2 23 .byte $23
006115 2 27 .byte $27
006116 2 2B .byte $2B
006117 2 2F .byte $2F
006118 2 33 .byte $33
006119 2 37 .byte $37
00611A 2 3B .byte $3B
00611B 2 3F .byte $3F
00611C 2 ;
00611C 2 20 .byte $20
00611D 2 24 .byte $24
00611E 2 28 .byte $28
00611F 2 2C .byte $2C
006120 2 30 .byte $30
006121 2 34 .byte $34
006122 2 38 .byte $38
006123 2 3C .byte $3C
006124 2
006124 2 20 .byte $20
006125 2 24 .byte $24
006126 2 28 .byte $28
006127 2 2C .byte $2C
006128 2 30 .byte $30
006129 2 34 .byte $34
00612A 2 38 .byte $38
00612B 2 3C .byte $3C
00612C 2
00612C 2 21 .byte $21
00612D 2 25 .byte $25
00612E 2 29 .byte $29
00612F 2 2D .byte $2D
006130 2 31 .byte $31
006131 2 35 .byte $35
006132 2 39 .byte $39
006133 2 3D .byte $3D
006134 2
006134 2 21 .byte $21
006135 2 25 .byte $25
006136 2 29 .byte $29
006137 2 2D .byte $2D
006138 2 31 .byte $31
006139 2 35 .byte $35
00613A 2 39 .byte $39
00613B 2 3D .byte $3D
00613C 2
00613C 2 22 .byte $22
00613D 2 26 .byte $26
00613E 2 2A .byte $2A
00613F 2 2E .byte $2E
006140 2 32 .byte $32
006141 2 36 .byte $36
006142 2 3A .byte $3A
006143 2 3E .byte $3E
006144 2
006144 2 22 .byte $22
006145 2 26 .byte $26
006146 2 2A .byte $2A
006147 2 2E .byte $2E
006148 2 32 .byte $32
006149 2 36 .byte $36
00614A 2 3A .byte $3A
00614B 2 3E .byte $3E
00614C 2
00614C 2 23 .byte $23
00614D 2 27 .byte $27
00614E 2 2B .byte $2B
00614F 2 2F .byte $2F
006150 2 33 .byte $33
006151 2 37 .byte $37
006152 2 3B .byte $3B
006153 2 3F .byte $3F
006154 2
006154 2 23 .byte $23
006155 2 27 .byte $27
006156 2 2B .byte $2B
006157 2 2F .byte $2F
006158 2 33 .byte $33
006159 2 37 .byte $37
00615A 2 3B .byte $3B
00615B 2 3F .byte $3F
00615C 2 ;;
00615C 2 20 .byte $20
00615D 2 24 .byte $24
00615E 2 28 .byte $28
00615F 2 2C .byte $2C
006160 2 30 .byte $30
006161 2 34 .byte $34
006162 2 38 .byte $38
006163 2 3C .byte $3C
006164 2
006164 2 20 .byte $20
006165 2 24 .byte $24
006166 2 28 .byte $28
006167 2 2C .byte $2C
006168 2 30 .byte $30
006169 2 34 .byte $34
00616A 2 38 .byte $38
00616B 2 3C .byte $3C
00616C 2
00616C 2 21 .byte $21
00616D 2 25 .byte $25
00616E 2 29 .byte $29
00616F 2 2D .byte $2D
006170 2 31 .byte $31
006171 2 35 .byte $35
006172 2 39 .byte $39
006173 2 3D .byte $3D
006174 2
006174 2 21 .byte $21
006175 2 25 .byte $25
006176 2 29 .byte $29
006177 2 2D .byte $2D
006178 2 31 .byte $31
006179 2 35 .byte $35
00617A 2 39 .byte $39
00617B 2 3D .byte $3D
00617C 2
00617C 2 22 .byte $22
00617D 2 26 .byte $26
00617E 2 2A .byte $2A
00617F 2 2E .byte $2E
006180 2 32 .byte $32
006181 2 36 .byte $36
006182 2 3A .byte $3A
006183 2 3E .byte $3E
006184 2
006184 2 22 .byte $22
006185 2 26 .byte $26
006186 2 2A .byte $2A
006187 2 2E .byte $2E
006188 2 32 .byte $32
006189 2 36 .byte $36
00618A 2 3A .byte $3A
00618B 2 3E .byte $3E
00618C 2
00618C 2 23 .byte $23
00618D 2 27 .byte $27
00618E 2 2B .byte $2B
00618F 2 2F .byte $2F
006190 2 33 .byte $33
006191 2 37 .byte $37
006192 2 3B .byte $3B
006193 2 3F .byte $3F
006194 2
006194 2 23 .byte $23
006195 2 27 .byte $27
006196 2 2B .byte $2B
006197 2 2F .byte $2F
006198 2 33 .byte $33
006199 2 37 .byte $37
00619A 2 3B .byte $3B
00619B 2 3F .byte $3F
00619C 2
00619C 2
00619C 2
00619C 2 HGRROWS_L:
00619C 2 00 .byte $00
00619D 2 00 .byte $00
00619E 2 00 .byte $00
00619F 2 00 .byte $00
0061A0 2 00 .byte $00
0061A1 2 00 .byte $00
0061A2 2 00 .byte $00
0061A3 2 00 .byte $00
0061A4 2
0061A4 2 80 .byte $80
0061A5 2 80 .byte $80
0061A6 2 80 .byte $80
0061A7 2 80 .byte $80
0061A8 2 80 .byte $80
0061A9 2 80 .byte $80
0061AA 2 80 .byte $80
0061AB 2 80 .byte $80
0061AC 2
0061AC 2 00 .byte $00
0061AD 2 00 .byte $00
0061AE 2 00 .byte $00
0061AF 2 00 .byte $00
0061B0 2 00 .byte $00
0061B1 2 00 .byte $00
0061B2 2 00 .byte $00
0061B3 2 00 .byte $00
0061B4 2
0061B4 2 80 .byte $80
0061B5 2 80 .byte $80
0061B6 2 80 .byte $80
0061B7 2 80 .byte $80
0061B8 2 80 .byte $80
0061B9 2 80 .byte $80
0061BA 2 80 .byte $80
0061BB 2 80 .byte $80
0061BC 2
0061BC 2 00 .byte $00
0061BD 2 00 .byte $00
0061BE 2 00 .byte $00
0061BF 2 00 .byte $00
0061C0 2 00 .byte $00
0061C1 2 00 .byte $00
0061C2 2 00 .byte $00
0061C3 2 00 .byte $00
0061C4 2
0061C4 2 80 .byte $80
0061C5 2 80 .byte $80
0061C6 2 80 .byte $80
0061C7 2 80 .byte $80
0061C8 2 80 .byte $80
0061C9 2 80 .byte $80
0061CA 2 80 .byte $80
0061CB 2 80 .byte $80
0061CC 2
0061CC 2 00 .byte $00
0061CD 2 00 .byte $00
0061CE 2 00 .byte $00
0061CF 2 00 .byte $00
0061D0 2 00 .byte $00
0061D1 2 00 .byte $00
0061D2 2 00 .byte $00
0061D3 2 00 .byte $00
0061D4 2
0061D4 2 80 .byte $80
0061D5 2 80 .byte $80
0061D6 2 80 .byte $80
0061D7 2 80 .byte $80
0061D8 2 80 .byte $80
0061D9 2 80 .byte $80
0061DA 2 80 .byte $80
0061DB 2 80 .byte $80
0061DC 2 ;
0061DC 2 28 .byte $28
0061DD 2 28 .byte $28
0061DE 2 28 .byte $28
0061DF 2 28 .byte $28
0061E0 2 28 .byte $28
0061E1 2 28 .byte $28
0061E2 2 28 .byte $28
0061E3 2 28 .byte $28
0061E4 2
0061E4 2 A8 .byte $A8
0061E5 2 A8 .byte $A8
0061E6 2 A8 .byte $A8
0061E7 2 A8 .byte $A8
0061E8 2 A8 .byte $A8
0061E9 2 A8 .byte $A8
0061EA 2 A8 .byte $A8
0061EB 2 A8 .byte $A8
0061EC 2
0061EC 2 28 .byte $28
0061ED 2 28 .byte $28
0061EE 2 28 .byte $28
0061EF 2 28 .byte $28
0061F0 2 28 .byte $28
0061F1 2 28 .byte $28
0061F2 2 28 .byte $28
0061F3 2 28 .byte $28
0061F4 2
0061F4 2 A8 .byte $A8
0061F5 2 A8 .byte $A8
0061F6 2 A8 .byte $A8
0061F7 2 A8 .byte $A8
0061F8 2 A8 .byte $A8
0061F9 2 A8 .byte $A8
0061FA 2 A8 .byte $A8
0061FB 2 A8 .byte $A8
0061FC 2
0061FC 2 28 .byte $28
0061FD 2 28 .byte $28
0061FE 2 28 .byte $28
0061FF 2 28 .byte $28
006200 2 28 .byte $28
006201 2 28 .byte $28
006202 2 28 .byte $28
006203 2 28 .byte $28
006204 2
006204 2 A8 .byte $A8
006205 2 A8 .byte $A8
006206 2 A8 .byte $A8
006207 2 A8 .byte $A8
006208 2 A8 .byte $A8
006209 2 A8 .byte $A8
00620A 2 A8 .byte $A8
00620B 2 A8 .byte $A8
00620C 2
00620C 2 28 .byte $28
00620D 2 28 .byte $28
00620E 2 28 .byte $28
00620F 2 28 .byte $28
006210 2 28 .byte $28
006211 2 28 .byte $28
006212 2 28 .byte $28
006213 2 28 .byte $28
006214 2
006214 2 A8 .byte $A8
006215 2 A8 .byte $A8
006216 2 A8 .byte $A8
006217 2 A8 .byte $A8
006218 2 A8 .byte $A8
006219 2 A8 .byte $A8
00621A 2 A8 .byte $A8
00621B 2 A8 .byte $A8
00621C 2 ;;
00621C 2 50 .byte $50
00621D 2 50 .byte $50
00621E 2 50 .byte $50
00621F 2 50 .byte $50
006220 2 50 .byte $50
006221 2 50 .byte $50
006222 2 50 .byte $50
006223 2 50 .byte $50
006224 2
006224 2 D0 .byte $D0
006225 2 D0 .byte $D0
006226 2 D0 .byte $D0
006227 2 D0 .byte $D0
006228 2 D0 .byte $D0
006229 2 D0 .byte $D0
00622A 2 D0 .byte $D0
00622B 2 D0 .byte $D0
00622C 2
00622C 2 50 .byte $50
00622D 2 50 .byte $50
00622E 2 50 .byte $50
00622F 2 50 .byte $50
006230 2 50 .byte $50
006231 2 50 .byte $50
006232 2 50 .byte $50
006233 2 50 .byte $50
006234 2
006234 2 D0 .byte $D0
006235 2 D0 .byte $D0
006236 2 D0 .byte $D0
006237 2 D0 .byte $D0
006238 2 D0 .byte $D0
006239 2 D0 .byte $D0
00623A 2 D0 .byte $D0
00623B 2 D0 .byte $D0
00623C 2
00623C 2 50 .byte $50
00623D 2 50 .byte $50
00623E 2 50 .byte $50
00623F 2 50 .byte $50
006240 2 50 .byte $50
006241 2 50 .byte $50
006242 2 50 .byte $50
006243 2 50 .byte $50
006244 2
006244 2 D0 .byte $D0
006245 2 D0 .byte $D0
006246 2 D0 .byte $D0
006247 2 D0 .byte $D0
006248 2 D0 .byte $D0
006249 2 D0 .byte $D0
00624A 2 D0 .byte $D0
00624B 2 D0 .byte $D0
00624C 2
00624C 2 50 .byte $50
00624D 2 50 .byte $50
00624E 2 50 .byte $50
00624F 2 50 .byte $50
006250 2 50 .byte $50
006251 2 50 .byte $50
006252 2 50 .byte $50
006253 2 50 .byte $50
006254 2
006254 2 D0 .byte $D0
006255 2 D0 .byte $D0
006256 2 D0 .byte $D0
006257 2 D0 .byte $D0
006258 2 D0 .byte $D0
006259 2 D0 .byte $D0
00625A 2 D0 .byte $D0
00625B 2 D0 .byte $D0
00625C 2
00625C 2
00625C 2
00625C 1 .include "hgrtable2.s"
00625C 2 HGRROWS_GRN:
00625C 2 00 .byte $00
00625D 2 00 .byte $00
00625E 2 00 .byte $00
00625F 2 00 .byte $00
006260 2 00 .byte $00
006261 2 00 .byte $00
006262 2 00 .byte $00
006263 2 02 .byte $02
006264 2 02 .byte $02
006265 2 02 .byte $02
006266 2 02 .byte $02
006267 2 02 .byte $02
006268 2 02 .byte $02
006269 2 02 .byte $02
00626A 2 04 .byte $04
00626B 2 04 .byte $04
00626C 2 04 .byte $04
00626D 2 04 .byte $04
00626E 2 04 .byte $04
00626F 2 04 .byte $04
006270 2 04 .byte $04
006271 2 06 .byte $06
006272 2 06 .byte $06
006273 2 06 .byte $06
006274 2 06 .byte $06
006275 2 06 .byte $06
006276 2 06 .byte $06
006277 2 06 .byte $06
006278 2 08 .byte $08
006279 2 08 .byte $08
00627A 2 08 .byte $08
00627B 2 08 .byte $08
00627C 2 08 .byte $08
00627D 2 08 .byte $08
00627E 2 08 .byte $08
00627F 2 0A .byte $0a
006280 2 0A .byte $0a
006281 2 0A .byte $0a
006282 2 0A .byte $0a
006283 2 0A .byte $0a
006284 2 0A .byte $0a
006285 2 0A .byte $0a
006286 2 0C .byte $0c
006287 2 0C .byte $0c
006288 2 0C .byte $0c
006289 2 0C .byte $0c
00628A 2 0C .byte $0c
00628B 2 0C .byte $0c
00628C 2 0C .byte $0c
00628D 2 0E .byte $0e
00628E 2 0E .byte $0e
00628F 2 0E .byte $0e
006290 2 0E .byte $0e
006291 2 0E .byte $0e
006292 2 0E .byte $0e
006293 2 0E .byte $0e
006294 2 10 .byte $10
006295 2 10 .byte $10
006296 2 10 .byte $10
006297 2 10 .byte $10
006298 2 10 .byte $10
006299 2 10 .byte $10
00629A 2 10 .byte $10
00629B 2 12 .byte $12
00629C 2 12 .byte $12
00629D 2 12 .byte $12
00629E 2 12 .byte $12
00629F 2 12 .byte $12
0062A0 2 12 .byte $12
0062A1 2 12 .byte $12
0062A2 2 14 .byte $14
0062A3 2 14 .byte $14
0062A4 2 14 .byte $14
0062A5 2 14 .byte $14
0062A6 2 14 .byte $14
0062A7 2 14 .byte $14
0062A8 2 14 .byte $14
0062A9 2 16 .byte $16
0062AA 2 16 .byte $16
0062AB 2 16 .byte $16
0062AC 2 16 .byte $16
0062AD 2 16 .byte $16
0062AE 2 16 .byte $16
0062AF 2 16 .byte $16
0062B0 2 18 .byte $18
0062B1 2 18 .byte $18
0062B2 2 18 .byte $18
0062B3 2 18 .byte $18
0062B4 2 18 .byte $18
0062B5 2 18 .byte $18
0062B6 2 18 .byte $18
0062B7 2 1A .byte $1a
0062B8 2 1A .byte $1a
0062B9 2 1A .byte $1a
0062BA 2 1A .byte $1a
0062BB 2 1A .byte $1a
0062BC 2 1A .byte $1a
0062BD 2 1A .byte $1a
0062BE 2 1C .byte $1c
0062BF 2 1C .byte $1c
0062C0 2 1C .byte $1c
0062C1 2 1C .byte $1c
0062C2 2 1C .byte $1c
0062C3 2 1C .byte $1c
0062C4 2 1C .byte $1c
0062C5 2 1E .byte $1e
0062C6 2 1E .byte $1e
0062C7 2 1E .byte $1e
0062C8 2 1E .byte $1e
0062C9 2 1E .byte $1e
0062CA 2 1E .byte $1e
0062CB 2 1E .byte $1e
0062CC 2 20 .byte $20
0062CD 2 20 .byte $20
0062CE 2 20 .byte $20
0062CF 2 20 .byte $20
0062D0 2 20 .byte $20
0062D1 2 20 .byte $20
0062D2 2 20 .byte $20
0062D3 2 22 .byte $22
0062D4 2 22 .byte $22
0062D5 2 22 .byte $22
0062D6 2 22 .byte $22
0062D7 2 22 .byte $22
0062D8 2 22 .byte $22
0062D9 2 22 .byte $22
0062DA 2 24 .byte $24
0062DB 2 24 .byte $24
0062DC 2 24 .byte $24
0062DD 2 24 .byte $24
0062DE 2 24 .byte $24
0062DF 2 24 .byte $24
0062E0 2 24 .byte $24
0062E1 2 26 .byte $26
0062E2 2 26 .byte $26
0062E3 2 26 .byte $26
0062E4 2 26 .byte $26
0062E5 2 26 .byte $26
0062E6 2 26 .byte $26
0062E7 2 26 .byte $26
0062E8 2
0062E8 2 HGRROWS_BITSHIFT_GRN:
0062E8 2 00 .byte $00
0062E9 2 20 .byte $20
0062EA 2 40 .byte $40
0062EB 2 60 .byte $60
0062EC 2 80 .byte $80
0062ED 2 A0 .byte $a0
0062EE 2 C0 .byte $c0
0062EF 2 00 .byte $00
0062F0 2 20 .byte $20
0062F1 2 40 .byte $40
0062F2 2 60 .byte $60
0062F3 2 80 .byte $80
0062F4 2 A0 .byte $a0
0062F5 2 C0 .byte $c0
0062F6 2 00 .byte $00
0062F7 2 20 .byte $20
0062F8 2 40 .byte $40
0062F9 2 60 .byte $60
0062FA 2 80 .byte $80
0062FB 2 A0 .byte $a0
0062FC 2 C0 .byte $c0
0062FD 2 00 .byte $00
0062FE 2 20 .byte $20
0062FF 2 40 .byte $40
006300 2 60 .byte $60
006301 2 80 .byte $80
006302 2 A0 .byte $a0
006303 2 C0 .byte $c0
006304 2 00 .byte $00
006305 2 20 .byte $20
006306 2 40 .byte $40
006307 2 60 .byte $60
006308 2 80 .byte $80
006309 2 A0 .byte $a0
00630A 2 C0 .byte $c0
00630B 2 00 .byte $00
00630C 2 20 .byte $20
00630D 2 40 .byte $40
00630E 2 60 .byte $60
00630F 2 80 .byte $80
006310 2 A0 .byte $a0
006311 2 C0 .byte $c0
006312 2 00 .byte $00
006313 2 20 .byte $20
006314 2 40 .byte $40
006315 2 60 .byte $60
006316 2 80 .byte $80
006317 2 A0 .byte $a0
006318 2 C0 .byte $c0
006319 2 00 .byte $00
00631A 2 20 .byte $20
00631B 2 40 .byte $40
00631C 2 60 .byte $60
00631D 2 80 .byte $80
00631E 2 A0 .byte $a0
00631F 2 C0 .byte $c0
006320 2 00 .byte $00
006321 2 20 .byte $20
006322 2 40 .byte $40
006323 2 60 .byte $60
006324 2 80 .byte $80
006325 2 A0 .byte $a0
006326 2 C0 .byte $c0
006327 2 00 .byte $00
006328 2 20 .byte $20
006329 2 40 .byte $40
00632A 2 60 .byte $60
00632B 2 80 .byte $80
00632C 2 A0 .byte $a0
00632D 2 C0 .byte $c0
00632E 2 00 .byte $00
00632F 2 20 .byte $20
006330 2 40 .byte $40
006331 2 60 .byte $60
006332 2 80 .byte $80
006333 2 A0 .byte $a0
006334 2 C0 .byte $c0
006335 2 00 .byte $00
006336 2 20 .byte $20
006337 2 40 .byte $40
006338 2 60 .byte $60
006339 2 80 .byte $80
00633A 2 A0 .byte $a0
00633B 2 C0 .byte $c0
00633C 2 00 .byte $00
00633D 2 20 .byte $20
00633E 2 40 .byte $40
00633F 2 60 .byte $60
006340 2 80 .byte $80
006341 2 A0 .byte $a0
006342 2 C0 .byte $c0
006343 2 00 .byte $00
006344 2 20 .byte $20
006345 2 40 .byte $40
006346 2 60 .byte $60
006347 2 80 .byte $80
006348 2 A0 .byte $a0
006349 2 C0 .byte $c0
00634A 2 00 .byte $00
00634B 2 20 .byte $20
00634C 2 40 .byte $40
00634D 2 60 .byte $60
00634E 2 80 .byte $80
00634F 2 A0 .byte $a0
006350 2 C0 .byte $c0
006351 2 00 .byte $00
006352 2 20 .byte $20
006353 2 40 .byte $40
006354 2 60 .byte $60
006355 2 80 .byte $80
006356 2 A0 .byte $a0
006357 2 C0 .byte $c0
006358 2 00 .byte $00
006359 2 20 .byte $20
00635A 2 40 .byte $40
00635B 2 60 .byte $60
00635C 2 80 .byte $80
00635D 2 A0 .byte $a0
00635E 2 C0 .byte $c0
00635F 2 00 .byte $00
006360 2 20 .byte $20
006361 2 40 .byte $40
006362 2 60 .byte $60
006363 2 80 .byte $80
006364 2 A0 .byte $a0
006365 2 C0 .byte $c0
006366 2 00 .byte $00
006367 2 20 .byte $20
006368 2 40 .byte $40
006369 2 60 .byte $60
00636A 2 80 .byte $80
00636B 2 A0 .byte $a0
00636C 2 C0 .byte $c0
00636D 2 00 .byte $00
00636E 2 20 .byte $20
00636F 2 40 .byte $40
006370 2 60 .byte $60
006371 2 80 .byte $80
006372 2 A0 .byte $a0
006373 2 C0 .byte $c0
006374 2
006374 1 .include "hgrtable3.s"
006374 2 DIV7_2:
006374 2 00 .byte $00
006375 2 00 .byte $00
006376 2 00 .byte $00
006377 2 00 .byte $00
006378 2 00 .byte $00
006379 2 00 .byte $00
00637A 2 00 .byte $00
00637B 2 02 .byte $02
00637C 2 02 .byte $02
00637D 2 02 .byte $02
00637E 2 02 .byte $02
00637F 2 02 .byte $02
006380 2 02 .byte $02
006381 2 02 .byte $02
006382 2 04 .byte $04
006383 2 04 .byte $04
006384 2 04 .byte $04
006385 2 04 .byte $04
006386 2 04 .byte $04
006387 2 04 .byte $04
006388 2 04 .byte $04
006389 2 06 .byte $06
00638A 2 06 .byte $06
00638B 2 06 .byte $06
00638C 2 06 .byte $06
00638D 2 06 .byte $06
00638E 2 06 .byte $06
00638F 2 06 .byte $06
006390 2 08 .byte $08
006391 2 08 .byte $08
006392 2 08 .byte $08
006393 2 08 .byte $08
006394 2 08 .byte $08
006395 2 08 .byte $08
006396 2 08 .byte $08
006397 2 0A .byte $0a
006398 2 0A .byte $0a
006399 2 0A .byte $0a
00639A 2 0A .byte $0a
00639B 2 0A .byte $0a
00639C 2 0A .byte $0a
00639D 2 0A .byte $0a
00639E 2 0C .byte $0c
00639F 2 0C .byte $0c
0063A0 2 0C .byte $0c
0063A1 2 0C .byte $0c
0063A2 2 0C .byte $0c
0063A3 2 0C .byte $0c
0063A4 2 0C .byte $0c
0063A5 2 0E .byte $0e
0063A6 2 0E .byte $0e
0063A7 2 0E .byte $0e
0063A8 2 0E .byte $0e
0063A9 2 0E .byte $0e
0063AA 2 0E .byte $0e
0063AB 2 0E .byte $0e
0063AC 2 10 .byte $10
0063AD 2 10 .byte $10
0063AE 2 10 .byte $10
0063AF 2 10 .byte $10
0063B0 2 10 .byte $10
0063B1 2 10 .byte $10
0063B2 2 10 .byte $10
0063B3 2 12 .byte $12
0063B4 2 12 .byte $12
0063B5 2 12 .byte $12
0063B6 2 12 .byte $12
0063B7 2 12 .byte $12
0063B8 2 12 .byte $12
0063B9 2 12 .byte $12
0063BA 2 14 .byte $14
0063BB 2 14 .byte $14
0063BC 2 14 .byte $14
0063BD 2 14 .byte $14
0063BE 2 14 .byte $14
0063BF 2 14 .byte $14
0063C0 2 14 .byte $14
0063C1 2 16 .byte $16
0063C2 2 16 .byte $16
0063C3 2 16 .byte $16
0063C4 2 16 .byte $16
0063C5 2 16 .byte $16
0063C6 2 16 .byte $16
0063C7 2 16 .byte $16
0063C8 2 18 .byte $18
0063C9 2 18 .byte $18
0063CA 2 18 .byte $18
0063CB 2 18 .byte $18
0063CC 2 18 .byte $18
0063CD 2 18 .byte $18
0063CE 2 18 .byte $18
0063CF 2 1A .byte $1a
0063D0 2 1A .byte $1a
0063D1 2 1A .byte $1a
0063D2 2 1A .byte $1a
0063D3 2 1A .byte $1a
0063D4 2 1A .byte $1a
0063D5 2 1A .byte $1a
0063D6 2 1C .byte $1c
0063D7 2 1C .byte $1c
0063D8 2 1C .byte $1c
0063D9 2 1C .byte $1c
0063DA 2 1C .byte $1c
0063DB 2 1C .byte $1c
0063DC 2 1C .byte $1c
0063DD 2 1E .byte $1e
0063DE 2 1E .byte $1e
0063DF 2 1E .byte $1e
0063E0 2 1E .byte $1e
0063E1 2 1E .byte $1e
0063E2 2 1E .byte $1e
0063E3 2 1E .byte $1e
0063E4 2 20 .byte $20
0063E5 2 20 .byte $20
0063E6 2 20 .byte $20
0063E7 2 20 .byte $20
0063E8 2 20 .byte $20
0063E9 2 20 .byte $20
0063EA 2 20 .byte $20
0063EB 2 22 .byte $22
0063EC 2 22 .byte $22
0063ED 2 22 .byte $22
0063EE 2 22 .byte $22
0063EF 2 22 .byte $22
0063F0 2 22 .byte $22
0063F1 2 22 .byte $22
0063F2 2 24 .byte $24
0063F3 2 24 .byte $24
0063F4 2 24 .byte $24
0063F5 2 24 .byte $24
0063F6 2 24 .byte $24
0063F7 2 24 .byte $24
0063F8 2 24 .byte $24
0063F9 2 26 .byte $26
0063FA 2 26 .byte $26
0063FB 2 26 .byte $26
0063FC 2 26 .byte $26
0063FD 2 26 .byte $26
0063FE 2 26 .byte $26
0063FF 2 26 .byte $26
006400 2
006400 2
006400 2 MOD7_2:
006400 2 00 .byte $00
006401 2 02 .byte $02
006402 2 04 .byte $04
006403 2 06 .byte $06
006404 2 08 .byte $08
006405 2 0A .byte $0a
006406 2 0C .byte $0c
006407 2 00 .byte $00
006408 2 02 .byte $02
006409 2 04 .byte $04
00640A 2 06 .byte $06
00640B 2 08 .byte $08
00640C 2 0A .byte $0a
00640D 2 0C .byte $0c
00640E 2 00 .byte $00
00640F 2 02 .byte $02
006410 2 04 .byte $04
006411 2 06 .byte $06
006412 2 08 .byte $08
006413 2 0A .byte $0a
006414 2 0C .byte $0c
006415 2 00 .byte $00
006416 2 02 .byte $02
006417 2 04 .byte $04
006418 2 06 .byte $06
006419 2 08 .byte $08
00641A 2 0A .byte $0a
00641B 2 0C .byte $0c
00641C 2 00 .byte $00
00641D 2 02 .byte $02
00641E 2 04 .byte $04
00641F 2 06 .byte $06
006420 2 08 .byte $08
006421 2 0A .byte $0a
006422 2 0C .byte $0c
006423 2 00 .byte $00
006424 2 02 .byte $02
006425 2 04 .byte $04
006426 2 06 .byte $06
006427 2 08 .byte $08
006428 2 0A .byte $0a
006429 2 0C .byte $0c
00642A 2 00 .byte $00
00642B 2 02 .byte $02
00642C 2 04 .byte $04
00642D 2 06 .byte $06
00642E 2 08 .byte $08
00642F 2 0A .byte $0a
006430 2 0C .byte $0c
006431 2 00 .byte $00
006432 2 02 .byte $02
006433 2 04 .byte $04
006434 2 06 .byte $06
006435 2 08 .byte $08
006436 2 0A .byte $0a
006437 2 0C .byte $0c
006438 2 00 .byte $00
006439 2 02 .byte $02
00643A 2 04 .byte $04
00643B 2 06 .byte $06
00643C 2 08 .byte $08
00643D 2 0A .byte $0a
00643E 2 0C .byte $0c
00643F 2 00 .byte $00
006440 2 02 .byte $02
006441 2 04 .byte $04
006442 2 06 .byte $06
006443 2 08 .byte $08
006444 2 0A .byte $0a
006445 2 0C .byte $0c
006446 2 00 .byte $00
006447 2 02 .byte $02
006448 2 04 .byte $04
006449 2 06 .byte $06
00644A 2 08 .byte $08
00644B 2 0A .byte $0a
00644C 2 0C .byte $0c
00644D 2 00 .byte $00
00644E 2 02 .byte $02
00644F 2 04 .byte $04
006450 2 06 .byte $06
006451 2 08 .byte $08
006452 2 0A .byte $0a
006453 2 0C .byte $0c
006454 2 00 .byte $00
006455 2 02 .byte $02
006456 2 04 .byte $04
006457 2 06 .byte $06
006458 2 08 .byte $08
006459 2 0A .byte $0a
00645A 2 0C .byte $0c
00645B 2 00 .byte $00
00645C 2 02 .byte $02
00645D 2 04 .byte $04
00645E 2 06 .byte $06
00645F 2 08 .byte $08
006460 2 0A .byte $0a
006461 2 0C .byte $0c
006462 2 00 .byte $00
006463 2 02 .byte $02
006464 2 04 .byte $04
006465 2 06 .byte $06
006466 2 08 .byte $08
006467 2 0A .byte $0a
006468 2 0C .byte $0c
006469 2 00 .byte $00
00646A 2 02 .byte $02
00646B 2 04 .byte $04
00646C 2 06 .byte $06
00646D 2 08 .byte $08
00646E 2 0A .byte $0a
00646F 2 0C .byte $0c
006470 2 00 .byte $00
006471 2 02 .byte $02
006472 2 04 .byte $04
006473 2 06 .byte $06
006474 2 08 .byte $08
006475 2 0A .byte $0a
006476 2 0C .byte $0c
006477 2 00 .byte $00
006478 2 02 .byte $02
006479 2 04 .byte $04
00647A 2 06 .byte $06
00647B 2 08 .byte $08
00647C 2 0A .byte $0a
00647D 2 0C .byte $0c
00647E 2 00 .byte $00
00647F 2 02 .byte $02
006480 2 04 .byte $04
006481 2 06 .byte $06
006482 2 08 .byte $08
006483 2 0A .byte $0a
006484 2 0C .byte $0c
006485 2 00 .byte $00
006486 2 02 .byte $02
006487 2 04 .byte $04
006488 2 06 .byte $06
006489 2 08 .byte $08
00648A 2 0A .byte $0a
00648B 2 0C .byte $0c
00648C 2
00648C 1 .include "spritedata0.s"
00648C 2 ;
00648C 2 ; spritedata.s
00648C 2 ;
00648C 2 ; Created by Quinn Dunki on 7/19/16
00648C 2 ; Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.
00648C 2 ;
00648C 2
00648C 2 MAG0:
00648C 2 55 .byte %01010101 ; Byte aligned
00648D 2 41 .byte %01000001 ; (reversed)
00648E 2 41 .byte %01000001
00648F 2 41 .byte %01000001 ;;;;;;;;;;;;;;;;;;;;
006490 2 41 .byte %01000001
006491 2 41 .byte %01000001
006492 2 41 .byte %01000001
006493 2 55 .byte %01010101
006494 2
006494 2 MAG1:
006494 2 00 .byte %00000000 ; Byte aligned
006495 2 00 .byte %00000000 ; (2nd byte, reversed)
006496 2 00 .byte %00000000
006497 2 00 .byte %00000000
006498 2 00 .byte %00000000
006499 2 00 .byte %00000000
00649A 2 00 .byte %00000000
00649B 2 00 .byte %00000000
00649C 2
00649C 2 MAG2:
00649C 2 54 .byte %01010100 ; One pixel shift
00649D 2 04 .byte %00000100 ; (reversed)
00649E 2 04 .byte %00000100
00649F 2 04 .byte %00000100
0064A0 2 04 .byte %00000100
0064A1 2 04 .byte %00000100
0064A2 2 04 .byte %00000100
0064A3 2 54 .byte %01010100
0064A4 2
0064A4 2 MAG3:
0064A4 2 02 .byte %00000010 ; One pixel shift
0064A5 2 02 .byte %00000010 ; (2nd byte, reversed)
0064A6 2 02 .byte %00000010
0064A7 2 02 .byte %00000010
0064A8 2 02 .byte %00000010
0064A9 2 02 .byte %00000010
0064AA 2 02 .byte %00000010
0064AB 2 02 .byte %00000010
0064AC 2
0064AC 2
0064AC 2 MAG4:
0064AC 2 50 .byte %01010000 ; Two pixel shift
0064AD 2 10 .byte %00010000 ; (reversed)
0064AE 2 10 .byte %00010000
0064AF 2 10 .byte %00010000
0064B0 2 10 .byte %00010000
0064B1 2 10 .byte %00010000
0064B2 2 10 .byte %00010000
0064B3 2 50 .byte %01010000
0064B4 2
0064B4 2 MAG5:
0064B4 2 0A .byte %00001010 ; Two pixel shift
0064B5 2 08 .byte %00001000 ; (2nd byte, reversed)
0064B6 2 08 .byte %00001000
0064B7 2 08 .byte %00001000
0064B8 2 08 .byte %00001000
0064B9 2 08 .byte %00001000
0064BA 2 08 .byte %00001000
0064BB 2 0A .byte %00001010
0064BC 2
0064BC 2
0064BC 2 MAG6:
0064BC 2 40 .byte %01000000 ; Three pixel shift
0064BD 2 40 .byte %01000000 ; (reversed)
0064BE 2 40 .byte %01000000
0064BF 2 40 .byte %01000000
0064C0 2 40 .byte %01000000
0064C1 2 40 .byte %01000000
0064C2 2 40 .byte %01000000
0064C3 2 40 .byte %01000000
0064C4 2
0064C4 2 MAG7:
0064C4 2 2A .byte %00101010 ; Three pixel shift
0064C5 2 20 .byte %00100000 ; (2nd byte, reversed)
0064C6 2 20 .byte %00100000
0064C7 2 20 .byte %00100000
0064C8 2 20 .byte %00100000
0064C9 2 20 .byte %00100000
0064CA 2 20 .byte %00100000
0064CB 2 2A .byte %00101010
0064CC 2
0064CC 2
0064CC 2 MAG8:
0064CC 2 2A .byte %00101010 ; Four pixel shift
0064CD 2 02 .byte %00000010 ; (reversed)
0064CE 2 02 .byte %00000010
0064CF 2 02 .byte %00000010
0064D0 2 02 .byte %00000010
0064D1 2 02 .byte %00000010
0064D2 2 02 .byte %00000010
0064D3 2 2A .byte %00101010
0064D4 2
0064D4 2 MAG9:
0064D4 2 01 .byte %00000001 ; Four pixel shift
0064D5 2 01 .byte %00000001 ; (2nd byte, reversed)
0064D6 2 01 .byte %00000001
0064D7 2 01 .byte %00000001
0064D8 2 01 .byte %00000001
0064D9 2 01 .byte %00000001
0064DA 2 01 .byte %00000001
0064DB 2 01 .byte %00000001
0064DC 2
0064DC 2
0064DC 2 MAG10:
0064DC 2 28 .byte %00101000 ; Five pixel shift
0064DD 2 08 .byte %00001000 ; (reversed)
0064DE 2 08 .byte %00001000
0064DF 2 08 .byte %00001000
0064E0 2 08 .byte %00001000
0064E1 2 08 .byte %00001000
0064E2 2 08 .byte %00001000
0064E3 2 28 .byte %00101000
0064E4 2
0064E4 2 MAG11:
0064E4 2 05 .byte %00000101 ; Five pixel shift
0064E5 2 04 .byte %00000100 ; (2nd byte, reversed)
0064E6 2 04 .byte %00000100
0064E7 2 04 .byte %00000100
0064E8 2 04 .byte %00000100
0064E9 2 04 .byte %00000100
0064EA 2 04 .byte %00000100
0064EB 2 05 .byte %00000101
0064EC 2
0064EC 2
0064EC 2 MAG12:
0064EC 2 20 .byte %00100000 ; Six pixel shift
0064ED 2 20 .byte %00100000 ; (2nd byte, reversed)
0064EE 2 20 .byte %00100000
0064EF 2 20 .byte %00100000
0064F0 2 20 .byte %00100000
0064F1 2 20 .byte %00100000
0064F2 2 20 .byte %00100000
0064F3 2 20 .byte %00100000
0064F4 2
0064F4 2 MAG13:
0064F4 2 15 .byte %00010101 ; Six pixel shift
0064F5 2 10 .byte %00010000 ; (reversed)
0064F6 2 10 .byte %00010000
0064F7 2 10 .byte %00010000
0064F8 2 10 .byte %00010000
0064F9 2 10 .byte %00010000
0064FA 2 10 .byte %00010000
0064FB 2 15 .byte %00010101
0064FC 2
0064FC 2
0064FC 2 BLACK:
0064FC 2 00 .byte %00000000
0064FD 2 00 .byte %00000000
0064FE 2 00 .byte %00000000
0064FF 2 00 .byte %00000000
006500 2 00 .byte %00000000
006501 2 00 .byte %00000000
006502 2 00 .byte %00000000
006503 2 00 .byte %00000000
006504 2
006504 1 .include "spritedata1.s"
006504 2 ;
006504 2 ; spritedata.s
006504 2 ;
006504 2 ; Created by Quinn Dunki on 7/19/16
006504 2 ; Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.
006504 2 ;
006504 2
006504 2 GRN0:
006504 2 2A .byte %00101010 ; Byte aligned
006505 2 02 .byte %00000010 ; (reversed)
006506 2 02 .byte %00000010
006507 2 02 .byte %00000010
006508 2 02 .byte %00000010
006509 2 02 .byte %00000010
00650A 2 02 .byte %00000010
00650B 2 2A .byte %00101010
00650C 2
00650C 2 GRN1:
00650C 2 01 .byte %00000001 ; Byte aligned
00650D 2 01 .byte %00000001 ; (2nd byte, reversed)
00650E 2 01 .byte %00000001
00650F 2 01 .byte %00000001
006510 2 01 .byte %00000001
006511 2 01 .byte %00000001
006512 2 01 .byte %00000001
006513 2 01 .byte %00000001
006514 2
006514 2 GRN2:
006514 2 28 .byte %00101000 ; One pixel shift
006515 2 08 .byte %00001000 ; (reversed)
006516 2 08 .byte %00001000
006517 2 08 .byte %00001000
006518 2 08 .byte %00001000
006519 2 08 .byte %00001000
00651A 2 08 .byte %00001000
00651B 2 28 .byte %00101000
00651C 2
00651C 2 GRN3:
00651C 2 05 .byte %00000101 ; One pixel shift
00651D 2 04 .byte %00000100 ; (2nd byte, reversed)
00651E 2 04 .byte %00000100
00651F 2 04 .byte %00000100
006520 2 04 .byte %00000100
006521 2 04 .byte %00000100
006522 2 04 .byte %00000100
006523 2 05 .byte %00000101
006524 2
006524 2
006524 2 GRN4:
006524 2 20 .byte %00100000 ; Two pixel shift
006525 2 20 .byte %00100000 ; (reversed)
006526 2 20 .byte %00100000
006527 2 20 .byte %00100000
006528 2 20 .byte %00100000
006529 2 20 .byte %00100000
00652A 2 20 .byte %00100000
00652B 2 20 .byte %00100000
00652C 2
00652C 2 GRN5:
00652C 2 15 .byte %00010101 ; Two pixel shift
00652D 2 10 .byte %00010000 ; (2nd byte, reversed)
00652E 2 10 .byte %00010000
00652F 2 10 .byte %00010000
006530 2 10 .byte %00010000
006531 2 10 .byte %00010000
006532 2 10 .byte %00010000
006533 2 15 .byte %00010101
006534 2
006534 2
006534 2 GRN6:
006534 2 00 .byte %00000000 ; Three pixel shift
006535 2 00 .byte %00000000 ; (reversed)
006536 2 00 .byte %00000000
006537 2 00 .byte %00000000
006538 2 00 .byte %00000000
006539 2 00 .byte %00000000
00653A 2 00 .byte %00000000
00653B 2 00 .byte %00000000
00653C 2
00653C 2 GRN7:
00653C 2 55 .byte %01010101 ; Three pixel shift
00653D 2 41 .byte %01000001 ; (2nd byte, reversed)
00653E 2 41 .byte %01000001
00653F 2 41 .byte %01000001 ;;;;;;;;;;;;;;;;;;;;
006540 2 41 .byte %01000001
006541 2 41 .byte %01000001
006542 2 41 .byte %01000001
006543 2 55 .byte %01010101
006544 2
006544 2
006544 2 GRN8:
006544 2 54 .byte %01010100 ; Four pixel shift
006545 2 04 .byte %00000100 ; (reversed)
006546 2 04 .byte %00000100
006547 2 04 .byte %00000100
006548 2 04 .byte %00000100
006549 2 04 .byte %00000100
00654A 2 04 .byte %00000100
00654B 2 54 .byte %01010100
00654C 2
00654C 2 GRN9:
00654C 2 02 .byte %00000010 ; Four pixel shift
00654D 2 02 .byte %00000010 ; (2nd byte, reversed)
00654E 2 02 .byte %00000010
00654F 2 02 .byte %00000010
006550 2 02 .byte %00000010
006551 2 02 .byte %00000010
006552 2 02 .byte %00000010
006553 2 02 .byte %00000010
006554 2
006554 2
006554 2 GRN10:
006554 2 50 .byte %01010000 ; Five pixel shift
006555 2 10 .byte %00010000 ; (reversed)
006556 2 10 .byte %00010000
006557 2 10 .byte %00010000
006558 2 10 .byte %00010000
006559 2 10 .byte %00010000
00655A 2 10 .byte %00010000
00655B 2 50 .byte %01010000
00655C 2
00655C 2 GRN11:
00655C 2 0A .byte %00001010 ; Five pixel shift
00655D 2 08 .byte %00001000 ; (2nd byte, reversed)
00655E 2 08 .byte %00001000
00655F 2 08 .byte %00001000
006560 2 08 .byte %00001000
006561 2 08 .byte %00001000
006562 2 08 .byte %00001000
006563 2 0A .byte %00001010
006564 2
006564 2
006564 2 GRN12:
006564 2 40 .byte %01000000 ; Six pixel shift
006565 2 40 .byte %01000000 ; (2nd byte, reversed)
006566 2 40 .byte %01000000
006567 2 40 .byte %01000000
006568 2 40 .byte %01000000
006569 2 40 .byte %01000000
00656A 2 40 .byte %01000000
00656B 2 40 .byte %01000000
00656C 2
00656C 2 GRN13:
00656C 2 2A .byte %00101010 ; Six pixel shift
00656D 2 20 .byte %00100000 ; (reversed)
00656E 2 20 .byte %00100000
00656F 2 20 .byte %00100000
006570 2 20 .byte %00100000
006571 2 20 .byte %00100000
006572 2 20 .byte %00100000
006573 2 2A .byte %00101010
006574 2
006574 2
006574 1 ;.include "spritegen0.s"
006574 1 ;.include "spritegen1.s"
006574 1 ;.include "spritegen2.s"
006574 1 ;.include "spritegen3.s"
006574 1 .include "spritegen4.s"
006574 2 BOX_MAG: ;4 bytes per row
006574 2 48 DA 5A SAVE_AXY
006577 2 A4 06 ldy PARAM0
006579 2 BE 00 64 ldx MOD7_2,y
00657C 2 7C 7F 65 jmp (BOX_MAG_JMP,x)
00657F 2
00657F 2 BOX_MAG_JMP:
00657F 2 8D 65 .addr BOX_MAG_SHIFT0
006581 2 64 66 .addr BOX_MAG_SHIFT1
006583 2 6B 67 .addr BOX_MAG_SHIFT2
006585 2 72 68 .addr BOX_MAG_SHIFT3
006587 2 79 69 .addr BOX_MAG_SHIFT4
006589 2 80 6A .addr BOX_MAG_SHIFT5
00658B 2 87 6B .addr BOX_MAG_SHIFT6
00658D 2
00658D 2
00658D 2 BOX_MAG_SHIFT0:
00658D 2 A4 06 ldy PARAM0
00658F 2
00658F 2 A6 07 ldx PARAM1
006591 2 BD DC 60 lda HGRROWS_H,x
006594 2 85 1A sta SCRATCH1
006596 2 BD 9C 61 lda HGRROWS_L,x
006599 2 85 19 sta SCRATCH0
00659B 2 A4 06 ldy PARAM0
00659D 2 B9 74 63 lda DIV7_2,y
0065A0 2 A8 tay
0065A1 2
0065A1 2 A9 55 lda #%01010101
0065A3 2 11 19 ora (SCRATCH0),y
0065A5 2 91 19 sta (SCRATCH0),y
0065A7 2 C8 iny
0065A8 2 C8 iny
0065A9 2 C8 iny
0065AA 2
0065AA 2 E8 inx
0065AB 2 BD DC 60 lda HGRROWS_H,x
0065AE 2 85 1A sta SCRATCH1
0065B0 2 BD 9C 61 lda HGRROWS_L,x
0065B3 2 85 19 sta SCRATCH0
0065B5 2 A4 06 ldy PARAM0
0065B7 2 B9 74 63 lda DIV7_2,y
0065BA 2 A8 tay
0065BB 2
0065BB 2 A9 41 lda #%01000001
0065BD 2 11 19 ora (SCRATCH0),y
0065BF 2 91 19 sta (SCRATCH0),y
0065C1 2 C8 iny
0065C2 2 C8 iny
0065C3 2 C8 iny
0065C4 2
0065C4 2 E8 inx
0065C5 2 BD DC 60 lda HGRROWS_H,x
0065C8 2 85 1A sta SCRATCH1
0065CA 2 BD 9C 61 lda HGRROWS_L,x
0065CD 2 85 19 sta SCRATCH0
0065CF 2 A4 06 ldy PARAM0
0065D1 2 B9 74 63 lda DIV7_2,y
0065D4 2 A8 tay
0065D5 2
0065D5 2 A9 41 lda #%01000001
0065D7 2 11 19 ora (SCRATCH0),y
0065D9 2 91 19 sta (SCRATCH0),y
0065DB 2 C8 iny
0065DC 2 C8 iny
0065DD 2 C8 iny
0065DE 2
0065DE 2 E8 inx
0065DF 2 BD DC 60 lda HGRROWS_H,x
0065E2 2 85 1A sta SCRATCH1
0065E4 2 BD 9C 61 lda HGRROWS_L,x
0065E7 2 85 19 sta SCRATCH0
0065E9 2 A4 06 ldy PARAM0
0065EB 2 B9 74 63 lda DIV7_2,y
0065EE 2 A8 tay
0065EF 2
0065EF 2 A9 41 lda #%01000001
0065F1 2 11 19 ora (SCRATCH0),y
0065F3 2 91 19 sta (SCRATCH0),y
0065F5 2 C8 iny
0065F6 2 C8 iny
0065F7 2 C8 iny
0065F8 2
0065F8 2 E8 inx
0065F9 2 BD DC 60 lda HGRROWS_H,x
0065FC 2 85 1A sta SCRATCH1
0065FE 2 BD 9C 61 lda HGRROWS_L,x
006601 2 85 19 sta SCRATCH0
006603 2 A4 06 ldy PARAM0
006605 2 B9 74 63 lda DIV7_2,y
006608 2 A8 tay
006609 2
006609 2 A9 41 lda #%01000001
00660B 2 11 19 ora (SCRATCH0),y
00660D 2 91 19 sta (SCRATCH0),y
00660F 2 C8 iny
006610 2 C8 iny
006611 2 C8 iny
006612 2
006612 2 E8 inx
006613 2 BD DC 60 lda HGRROWS_H,x
006616 2 85 1A sta SCRATCH1
006618 2 BD 9C 61 lda HGRROWS_L,x
00661B 2 85 19 sta SCRATCH0
00661D 2 A4 06 ldy PARAM0
00661F 2 B9 74 63 lda DIV7_2,y
006622 2 A8 tay
006623 2
006623 2 A9 41 lda #%01000001
006625 2 11 19 ora (SCRATCH0),y
006627 2 91 19 sta (SCRATCH0),y
006629 2 C8 iny
00662A 2 C8 iny
00662B 2 C8 iny
00662C 2
00662C 2 E8 inx
00662D 2 BD DC 60 lda HGRROWS_H,x
006630 2 85 1A sta SCRATCH1
006632 2 BD 9C 61 lda HGRROWS_L,x
006635 2 85 19 sta SCRATCH0
006637 2 A4 06 ldy PARAM0
006639 2 B9 74 63 lda DIV7_2,y
00663C 2 A8 tay
00663D 2
00663D 2 A9 41 lda #%01000001
00663F 2 11 19 ora (SCRATCH0),y
006641 2 91 19 sta (SCRATCH0),y
006643 2 C8 iny
006644 2 C8 iny
006645 2 C8 iny
006646 2
006646 2 E8 inx
006647 2 BD DC 60 lda HGRROWS_H,x
00664A 2 85 1A sta SCRATCH1
00664C 2 BD 9C 61 lda HGRROWS_L,x
00664F 2 85 19 sta SCRATCH0
006651 2 A4 06 ldy PARAM0
006653 2 B9 74 63 lda DIV7_2,y
006656 2 A8 tay
006657 2
006657 2 A9 55 lda #%01010101
006659 2 11 19 ora (SCRATCH0),y
00665B 2 91 19 sta (SCRATCH0),y
00665D 2 C8 iny
00665E 2 C8 iny
00665F 2 C8 iny
006660 2
006660 2 7A FA 68 RESTORE_AXY
006663 2 60 rts
006664 2
006664 2
006664 2
006664 2 BOX_MAG_SHIFT1:
006664 2 A4 06 ldy PARAM0
006666 2
006666 2 A6 07 ldx PARAM1
006668 2 BD DC 60 lda HGRROWS_H,x
00666B 2 85 1A sta SCRATCH1
00666D 2 BD 9C 61 lda HGRROWS_L,x
006670 2 85 19 sta SCRATCH0
006672 2 A4 06 ldy PARAM0
006674 2 B9 74 63 lda DIV7_2,y
006677 2 A8 tay
006678 2
006678 2 A9 54 lda #%01010100
00667A 2 11 19 ora (SCRATCH0),y
00667C 2 91 19 sta (SCRATCH0),y
00667E 2 C8 iny
00667F 2 A9 02 lda #%00000010
006681 2 11 19 ora (SCRATCH0),y
006683 2 91 19 sta (SCRATCH0),y
006685 2 C8 iny
006686 2 C8 iny
006687 2
006687 2 E8 inx
006688 2 BD DC 60 lda HGRROWS_H,x
00668B 2 85 1A sta SCRATCH1
00668D 2 BD 9C 61 lda HGRROWS_L,x
006690 2 85 19 sta SCRATCH0
006692 2 A4 06 ldy PARAM0
006694 2 B9 74 63 lda DIV7_2,y
006697 2 A8 tay
006698 2
006698 2 A9 04 lda #%00000100
00669A 2 11 19 ora (SCRATCH0),y
00669C 2 91 19 sta (SCRATCH0),y
00669E 2 C8 iny
00669F 2 A9 02 lda #%00000010
0066A1 2 11 19 ora (SCRATCH0),y
0066A3 2 91 19 sta (SCRATCH0),y
0066A5 2 C8 iny
0066A6 2 C8 iny
0066A7 2
0066A7 2 E8 inx
0066A8 2 BD DC 60 lda HGRROWS_H,x
0066AB 2 85 1A sta SCRATCH1
0066AD 2 BD 9C 61 lda HGRROWS_L,x
0066B0 2 85 19 sta SCRATCH0
0066B2 2 A4 06 ldy PARAM0
0066B4 2 B9 74 63 lda DIV7_2,y
0066B7 2 A8 tay
0066B8 2
0066B8 2 A9 04 lda #%00000100
0066BA 2 11 19 ora (SCRATCH0),y
0066BC 2 91 19 sta (SCRATCH0),y
0066BE 2 C8 iny
0066BF 2 A9 02 lda #%00000010
0066C1 2 11 19 ora (SCRATCH0),y
0066C3 2 91 19 sta (SCRATCH0),y
0066C5 2 C8 iny
0066C6 2 C8 iny
0066C7 2
0066C7 2 E8 inx
0066C8 2 BD DC 60 lda HGRROWS_H,x
0066CB 2 85 1A sta SCRATCH1
0066CD 2 BD 9C 61 lda HGRROWS_L,x
0066D0 2 85 19 sta SCRATCH0
0066D2 2 A4 06 ldy PARAM0
0066D4 2 B9 74 63 lda DIV7_2,y
0066D7 2 A8 tay
0066D8 2
0066D8 2 A9 04 lda #%00000100
0066DA 2 11 19 ora (SCRATCH0),y
0066DC 2 91 19 sta (SCRATCH0),y
0066DE 2 C8 iny
0066DF 2 A9 02 lda #%00000010
0066E1 2 11 19 ora (SCRATCH0),y
0066E3 2 91 19 sta (SCRATCH0),y
0066E5 2 C8 iny
0066E6 2 C8 iny
0066E7 2
0066E7 2 E8 inx
0066E8 2 BD DC 60 lda HGRROWS_H,x
0066EB 2 85 1A sta SCRATCH1
0066ED 2 BD 9C 61 lda HGRROWS_L,x
0066F0 2 85 19 sta SCRATCH0
0066F2 2 A4 06 ldy PARAM0
0066F4 2 B9 74 63 lda DIV7_2,y
0066F7 2 A8 tay
0066F8 2
0066F8 2 A9 04 lda #%00000100
0066FA 2 11 19 ora (SCRATCH0),y
0066FC 2 91 19 sta (SCRATCH0),y
0066FE 2 C8 iny
0066FF 2 A9 02 lda #%00000010
006701 2 11 19 ora (SCRATCH0),y
006703 2 91 19 sta (SCRATCH0),y
006705 2 C8 iny
006706 2 C8 iny
006707 2
006707 2 E8 inx
006708 2 BD DC 60 lda HGRROWS_H,x
00670B 2 85 1A sta SCRATCH1
00670D 2 BD 9C 61 lda HGRROWS_L,x
006710 2 85 19 sta SCRATCH0
006712 2 A4 06 ldy PARAM0
006714 2 B9 74 63 lda DIV7_2,y
006717 2 A8 tay
006718 2
006718 2 A9 04 lda #%00000100
00671A 2 11 19 ora (SCRATCH0),y
00671C 2 91 19 sta (SCRATCH0),y
00671E 2 C8 iny
00671F 2 A9 02 lda #%00000010
006721 2 11 19 ora (SCRATCH0),y
006723 2 91 19 sta (SCRATCH0),y
006725 2 C8 iny
006726 2 C8 iny
006727 2
006727 2 E8 inx
006728 2 BD DC 60 lda HGRROWS_H,x
00672B 2 85 1A sta SCRATCH1
00672D 2 BD 9C 61 lda HGRROWS_L,x
006730 2 85 19 sta SCRATCH0
006732 2 A4 06 ldy PARAM0
006734 2 B9 74 63 lda DIV7_2,y
006737 2 A8 tay
006738 2
006738 2 A9 04 lda #%00000100
00673A 2 11 19 ora (SCRATCH0),y
00673C 2 91 19 sta (SCRATCH0),y
00673E 2 C8 iny
00673F 2 A9 02 lda #%00000010
006741 2 11 19 ora (SCRATCH0),y
006743 2 91 19 sta (SCRATCH0),y
006745 2 C8 iny
006746 2 C8 iny
006747 2
006747 2 E8 inx
006748 2 BD DC 60 lda HGRROWS_H,x
00674B 2 85 1A sta SCRATCH1
00674D 2 BD 9C 61 lda HGRROWS_L,x
006750 2 85 19 sta SCRATCH0
006752 2 A4 06 ldy PARAM0
006754 2 B9 74 63 lda DIV7_2,y
006757 2 A8 tay
006758 2
006758 2 A9 54 lda #%01010100
00675A 2 11 19 ora (SCRATCH0),y
00675C 2 91 19 sta (SCRATCH0),y
00675E 2 C8 iny
00675F 2 A9 02 lda #%00000010
006761 2 11 19 ora (SCRATCH0),y
006763 2 91 19 sta (SCRATCH0),y
006765 2 C8 iny
006766 2 C8 iny
006767 2
006767 2 7A FA 68 RESTORE_AXY
00676A 2 60 rts
00676B 2
00676B 2
00676B 2
00676B 2 BOX_MAG_SHIFT2:
00676B 2 A4 06 ldy PARAM0
00676D 2
00676D 2 A6 07 ldx PARAM1
00676F 2 BD DC 60 lda HGRROWS_H,x
006772 2 85 1A sta SCRATCH1
006774 2 BD 9C 61 lda HGRROWS_L,x
006777 2 85 19 sta SCRATCH0
006779 2 A4 06 ldy PARAM0
00677B 2 B9 74 63 lda DIV7_2,y
00677E 2 A8 tay
00677F 2
00677F 2 A9 50 lda #%01010000
006781 2 11 19 ora (SCRATCH0),y
006783 2 91 19 sta (SCRATCH0),y
006785 2 C8 iny
006786 2 A9 0A lda #%00001010
006788 2 11 19 ora (SCRATCH0),y
00678A 2 91 19 sta (SCRATCH0),y
00678C 2 C8 iny
00678D 2 C8 iny
00678E 2
00678E 2 E8 inx
00678F 2 BD DC 60 lda HGRROWS_H,x
006792 2 85 1A sta SCRATCH1
006794 2 BD 9C 61 lda HGRROWS_L,x
006797 2 85 19 sta SCRATCH0
006799 2 A4 06 ldy PARAM0
00679B 2 B9 74 63 lda DIV7_2,y
00679E 2 A8 tay
00679F 2
00679F 2 A9 10 lda #%00010000
0067A1 2 11 19 ora (SCRATCH0),y
0067A3 2 91 19 sta (SCRATCH0),y
0067A5 2 C8 iny
0067A6 2 A9 08 lda #%00001000
0067A8 2 11 19 ora (SCRATCH0),y
0067AA 2 91 19 sta (SCRATCH0),y
0067AC 2 C8 iny
0067AD 2 C8 iny
0067AE 2
0067AE 2 E8 inx
0067AF 2 BD DC 60 lda HGRROWS_H,x
0067B2 2 85 1A sta SCRATCH1
0067B4 2 BD 9C 61 lda HGRROWS_L,x
0067B7 2 85 19 sta SCRATCH0
0067B9 2 A4 06 ldy PARAM0
0067BB 2 B9 74 63 lda DIV7_2,y
0067BE 2 A8 tay
0067BF 2
0067BF 2 A9 10 lda #%00010000
0067C1 2 11 19 ora (SCRATCH0),y
0067C3 2 91 19 sta (SCRATCH0),y
0067C5 2 C8 iny
0067C6 2 A9 08 lda #%00001000
0067C8 2 11 19 ora (SCRATCH0),y
0067CA 2 91 19 sta (SCRATCH0),y
0067CC 2 C8 iny
0067CD 2 C8 iny
0067CE 2
0067CE 2 E8 inx
0067CF 2 BD DC 60 lda HGRROWS_H,x
0067D2 2 85 1A sta SCRATCH1
0067D4 2 BD 9C 61 lda HGRROWS_L,x
0067D7 2 85 19 sta SCRATCH0
0067D9 2 A4 06 ldy PARAM0
0067DB 2 B9 74 63 lda DIV7_2,y
0067DE 2 A8 tay
0067DF 2
0067DF 2 A9 10 lda #%00010000
0067E1 2 11 19 ora (SCRATCH0),y
0067E3 2 91 19 sta (SCRATCH0),y
0067E5 2 C8 iny
0067E6 2 A9 08 lda #%00001000
0067E8 2 11 19 ora (SCRATCH0),y
0067EA 2 91 19 sta (SCRATCH0),y
0067EC 2 C8 iny
0067ED 2 C8 iny
0067EE 2
0067EE 2 E8 inx
0067EF 2 BD DC 60 lda HGRROWS_H,x
0067F2 2 85 1A sta SCRATCH1
0067F4 2 BD 9C 61 lda HGRROWS_L,x
0067F7 2 85 19 sta SCRATCH0
0067F9 2 A4 06 ldy PARAM0
0067FB 2 B9 74 63 lda DIV7_2,y
0067FE 2 A8 tay
0067FF 2
0067FF 2 A9 10 lda #%00010000
006801 2 11 19 ora (SCRATCH0),y
006803 2 91 19 sta (SCRATCH0),y
006805 2 C8 iny
006806 2 A9 08 lda #%00001000
006808 2 11 19 ora (SCRATCH0),y
00680A 2 91 19 sta (SCRATCH0),y
00680C 2 C8 iny
00680D 2 C8 iny
00680E 2
00680E 2 E8 inx
00680F 2 BD DC 60 lda HGRROWS_H,x
006812 2 85 1A sta SCRATCH1
006814 2 BD 9C 61 lda HGRROWS_L,x
006817 2 85 19 sta SCRATCH0
006819 2 A4 06 ldy PARAM0
00681B 2 B9 74 63 lda DIV7_2,y
00681E 2 A8 tay
00681F 2
00681F 2 A9 10 lda #%00010000
006821 2 11 19 ora (SCRATCH0),y
006823 2 91 19 sta (SCRATCH0),y
006825 2 C8 iny
006826 2 A9 08 lda #%00001000
006828 2 11 19 ora (SCRATCH0),y
00682A 2 91 19 sta (SCRATCH0),y
00682C 2 C8 iny
00682D 2 C8 iny
00682E 2
00682E 2 E8 inx
00682F 2 BD DC 60 lda HGRROWS_H,x
006832 2 85 1A sta SCRATCH1
006834 2 BD 9C 61 lda HGRROWS_L,x
006837 2 85 19 sta SCRATCH0
006839 2 A4 06 ldy PARAM0
00683B 2 B9 74 63 lda DIV7_2,y
00683E 2 A8 tay
00683F 2
00683F 2 A9 10 lda #%00010000
006841 2 11 19 ora (SCRATCH0),y
006843 2 91 19 sta (SCRATCH0),y
006845 2 C8 iny
006846 2 A9 08 lda #%00001000
006848 2 11 19 ora (SCRATCH0),y
00684A 2 91 19 sta (SCRATCH0),y
00684C 2 C8 iny
00684D 2 C8 iny
00684E 2
00684E 2 E8 inx
00684F 2 BD DC 60 lda HGRROWS_H,x
006852 2 85 1A sta SCRATCH1
006854 2 BD 9C 61 lda HGRROWS_L,x
006857 2 85 19 sta SCRATCH0
006859 2 A4 06 ldy PARAM0
00685B 2 B9 74 63 lda DIV7_2,y
00685E 2 A8 tay
00685F 2
00685F 2 A9 50 lda #%01010000
006861 2 11 19 ora (SCRATCH0),y
006863 2 91 19 sta (SCRATCH0),y
006865 2 C8 iny
006866 2 A9 0A lda #%00001010
006868 2 11 19 ora (SCRATCH0),y
00686A 2 91 19 sta (SCRATCH0),y
00686C 2 C8 iny
00686D 2 C8 iny
00686E 2
00686E 2 7A FA 68 RESTORE_AXY
006871 2 60 rts
006872 2
006872 2
006872 2
006872 2 BOX_MAG_SHIFT3:
006872 2 A4 06 ldy PARAM0
006874 2
006874 2 A6 07 ldx PARAM1
006876 2 BD DC 60 lda HGRROWS_H,x
006879 2 85 1A sta SCRATCH1
00687B 2 BD 9C 61 lda HGRROWS_L,x
00687E 2 85 19 sta SCRATCH0
006880 2 A4 06 ldy PARAM0
006882 2 B9 74 63 lda DIV7_2,y
006885 2 A8 tay
006886 2
006886 2 A9 40 lda #%01000000
006888 2 11 19 ora (SCRATCH0),y
00688A 2 91 19 sta (SCRATCH0),y
00688C 2 C8 iny
00688D 2 A9 2A lda #%00101010
00688F 2 11 19 ora (SCRATCH0),y
006891 2 91 19 sta (SCRATCH0),y
006893 2 C8 iny
006894 2 C8 iny
006895 2
006895 2 E8 inx
006896 2 BD DC 60 lda HGRROWS_H,x
006899 2 85 1A sta SCRATCH1
00689B 2 BD 9C 61 lda HGRROWS_L,x
00689E 2 85 19 sta SCRATCH0
0068A0 2 A4 06 ldy PARAM0
0068A2 2 B9 74 63 lda DIV7_2,y
0068A5 2 A8 tay
0068A6 2
0068A6 2 A9 40 lda #%01000000
0068A8 2 11 19 ora (SCRATCH0),y
0068AA 2 91 19 sta (SCRATCH0),y
0068AC 2 C8 iny
0068AD 2 A9 20 lda #%00100000
0068AF 2 11 19 ora (SCRATCH0),y
0068B1 2 91 19 sta (SCRATCH0),y
0068B3 2 C8 iny
0068B4 2 C8 iny
0068B5 2
0068B5 2 E8 inx
0068B6 2 BD DC 60 lda HGRROWS_H,x
0068B9 2 85 1A sta SCRATCH1
0068BB 2 BD 9C 61 lda HGRROWS_L,x
0068BE 2 85 19 sta SCRATCH0
0068C0 2 A4 06 ldy PARAM0
0068C2 2 B9 74 63 lda DIV7_2,y
0068C5 2 A8 tay
0068C6 2
0068C6 2 A9 40 lda #%01000000
0068C8 2 11 19 ora (SCRATCH0),y
0068CA 2 91 19 sta (SCRATCH0),y
0068CC 2 C8 iny
0068CD 2 A9 20 lda #%00100000
0068CF 2 11 19 ora (SCRATCH0),y
0068D1 2 91 19 sta (SCRATCH0),y
0068D3 2 C8 iny
0068D4 2 C8 iny
0068D5 2
0068D5 2 E8 inx
0068D6 2 BD DC 60 lda HGRROWS_H,x
0068D9 2 85 1A sta SCRATCH1
0068DB 2 BD 9C 61 lda HGRROWS_L,x
0068DE 2 85 19 sta SCRATCH0
0068E0 2 A4 06 ldy PARAM0
0068E2 2 B9 74 63 lda DIV7_2,y
0068E5 2 A8 tay
0068E6 2
0068E6 2 A9 40 lda #%01000000
0068E8 2 11 19 ora (SCRATCH0),y
0068EA 2 91 19 sta (SCRATCH0),y
0068EC 2 C8 iny
0068ED 2 A9 20 lda #%00100000
0068EF 2 11 19 ora (SCRATCH0),y
0068F1 2 91 19 sta (SCRATCH0),y
0068F3 2 C8 iny
0068F4 2 C8 iny
0068F5 2
0068F5 2 E8 inx
0068F6 2 BD DC 60 lda HGRROWS_H,x
0068F9 2 85 1A sta SCRATCH1
0068FB 2 BD 9C 61 lda HGRROWS_L,x
0068FE 2 85 19 sta SCRATCH0
006900 2 A4 06 ldy PARAM0
006902 2 B9 74 63 lda DIV7_2,y
006905 2 A8 tay
006906 2
006906 2 A9 40 lda #%01000000
006908 2 11 19 ora (SCRATCH0),y
00690A 2 91 19 sta (SCRATCH0),y
00690C 2 C8 iny
00690D 2 A9 20 lda #%00100000
00690F 2 11 19 ora (SCRATCH0),y
006911 2 91 19 sta (SCRATCH0),y
006913 2 C8 iny
006914 2 C8 iny
006915 2
006915 2 E8 inx
006916 2 BD DC 60 lda HGRROWS_H,x
006919 2 85 1A sta SCRATCH1
00691B 2 BD 9C 61 lda HGRROWS_L,x
00691E 2 85 19 sta SCRATCH0
006920 2 A4 06 ldy PARAM0
006922 2 B9 74 63 lda DIV7_2,y
006925 2 A8 tay
006926 2
006926 2 A9 40 lda #%01000000
006928 2 11 19 ora (SCRATCH0),y
00692A 2 91 19 sta (SCRATCH0),y
00692C 2 C8 iny
00692D 2 A9 20 lda #%00100000
00692F 2 11 19 ora (SCRATCH0),y
006931 2 91 19 sta (SCRATCH0),y
006933 2 C8 iny
006934 2 C8 iny
006935 2
006935 2 E8 inx
006936 2 BD DC 60 lda HGRROWS_H,x
006939 2 85 1A sta SCRATCH1
00693B 2 BD 9C 61 lda HGRROWS_L,x
00693E 2 85 19 sta SCRATCH0
006940 2 A4 06 ldy PARAM0
006942 2 B9 74 63 lda DIV7_2,y
006945 2 A8 tay
006946 2
006946 2 A9 40 lda #%01000000
006948 2 11 19 ora (SCRATCH0),y
00694A 2 91 19 sta (SCRATCH0),y
00694C 2 C8 iny
00694D 2 A9 20 lda #%00100000
00694F 2 11 19 ora (SCRATCH0),y
006951 2 91 19 sta (SCRATCH0),y
006953 2 C8 iny
006954 2 C8 iny
006955 2
006955 2 E8 inx
006956 2 BD DC 60 lda HGRROWS_H,x
006959 2 85 1A sta SCRATCH1
00695B 2 BD 9C 61 lda HGRROWS_L,x
00695E 2 85 19 sta SCRATCH0
006960 2 A4 06 ldy PARAM0
006962 2 B9 74 63 lda DIV7_2,y
006965 2 A8 tay
006966 2
006966 2 A9 40 lda #%01000000
006968 2 11 19 ora (SCRATCH0),y
00696A 2 91 19 sta (SCRATCH0),y
00696C 2 C8 iny
00696D 2 A9 2A lda #%00101010
00696F 2 11 19 ora (SCRATCH0),y
006971 2 91 19 sta (SCRATCH0),y
006973 2 C8 iny
006974 2 C8 iny
006975 2
006975 2 7A FA 68 RESTORE_AXY
006978 2 60 rts
006979 2
006979 2
006979 2
006979 2 BOX_MAG_SHIFT4:
006979 2 A4 06 ldy PARAM0
00697B 2
00697B 2 A6 07 ldx PARAM1
00697D 2 BD DC 60 lda HGRROWS_H,x
006980 2 85 1A sta SCRATCH1
006982 2 BD 9C 61 lda HGRROWS_L,x
006985 2 85 19 sta SCRATCH0
006987 2 A4 06 ldy PARAM0
006989 2 B9 74 63 lda DIV7_2,y
00698C 2 A8 tay
00698D 2
00698D 2 C8 iny
00698E 2 A9 2A lda #%00101010
006990 2 11 19 ora (SCRATCH0),y
006992 2 91 19 sta (SCRATCH0),y
006994 2 C8 iny
006995 2 A9 01 lda #%00000001
006997 2 11 19 ora (SCRATCH0),y
006999 2 91 19 sta (SCRATCH0),y
00699B 2 C8 iny
00699C 2
00699C 2 E8 inx
00699D 2 BD DC 60 lda HGRROWS_H,x
0069A0 2 85 1A sta SCRATCH1
0069A2 2 BD 9C 61 lda HGRROWS_L,x
0069A5 2 85 19 sta SCRATCH0
0069A7 2 A4 06 ldy PARAM0
0069A9 2 B9 74 63 lda DIV7_2,y
0069AC 2 A8 tay
0069AD 2
0069AD 2 C8 iny
0069AE 2 A9 02 lda #%00000010
0069B0 2 11 19 ora (SCRATCH0),y
0069B2 2 91 19 sta (SCRATCH0),y
0069B4 2 C8 iny
0069B5 2 A9 01 lda #%00000001
0069B7 2 11 19 ora (SCRATCH0),y
0069B9 2 91 19 sta (SCRATCH0),y
0069BB 2 C8 iny
0069BC 2
0069BC 2 E8 inx
0069BD 2 BD DC 60 lda HGRROWS_H,x
0069C0 2 85 1A sta SCRATCH1
0069C2 2 BD 9C 61 lda HGRROWS_L,x
0069C5 2 85 19 sta SCRATCH0
0069C7 2 A4 06 ldy PARAM0
0069C9 2 B9 74 63 lda DIV7_2,y
0069CC 2 A8 tay
0069CD 2
0069CD 2 C8 iny
0069CE 2 A9 02 lda #%00000010
0069D0 2 11 19 ora (SCRATCH0),y
0069D2 2 91 19 sta (SCRATCH0),y
0069D4 2 C8 iny
0069D5 2 A9 01 lda #%00000001
0069D7 2 11 19 ora (SCRATCH0),y
0069D9 2 91 19 sta (SCRATCH0),y
0069DB 2 C8 iny
0069DC 2
0069DC 2 E8 inx
0069DD 2 BD DC 60 lda HGRROWS_H,x
0069E0 2 85 1A sta SCRATCH1
0069E2 2 BD 9C 61 lda HGRROWS_L,x
0069E5 2 85 19 sta SCRATCH0
0069E7 2 A4 06 ldy PARAM0
0069E9 2 B9 74 63 lda DIV7_2,y
0069EC 2 A8 tay
0069ED 2
0069ED 2 C8 iny
0069EE 2 A9 02 lda #%00000010
0069F0 2 11 19 ora (SCRATCH0),y
0069F2 2 91 19 sta (SCRATCH0),y
0069F4 2 C8 iny
0069F5 2 A9 01 lda #%00000001
0069F7 2 11 19 ora (SCRATCH0),y
0069F9 2 91 19 sta (SCRATCH0),y
0069FB 2 C8 iny
0069FC 2
0069FC 2 E8 inx
0069FD 2 BD DC 60 lda HGRROWS_H,x
006A00 2 85 1A sta SCRATCH1
006A02 2 BD 9C 61 lda HGRROWS_L,x
006A05 2 85 19 sta SCRATCH0
006A07 2 A4 06 ldy PARAM0
006A09 2 B9 74 63 lda DIV7_2,y
006A0C 2 A8 tay
006A0D 2
006A0D 2 C8 iny
006A0E 2 A9 02 lda #%00000010
006A10 2 11 19 ora (SCRATCH0),y
006A12 2 91 19 sta (SCRATCH0),y
006A14 2 C8 iny
006A15 2 A9 01 lda #%00000001
006A17 2 11 19 ora (SCRATCH0),y
006A19 2 91 19 sta (SCRATCH0),y
006A1B 2 C8 iny
006A1C 2
006A1C 2 E8 inx
006A1D 2 BD DC 60 lda HGRROWS_H,x
006A20 2 85 1A sta SCRATCH1
006A22 2 BD 9C 61 lda HGRROWS_L,x
006A25 2 85 19 sta SCRATCH0
006A27 2 A4 06 ldy PARAM0
006A29 2 B9 74 63 lda DIV7_2,y
006A2C 2 A8 tay
006A2D 2
006A2D 2 C8 iny
006A2E 2 A9 02 lda #%00000010
006A30 2 11 19 ora (SCRATCH0),y
006A32 2 91 19 sta (SCRATCH0),y
006A34 2 C8 iny
006A35 2 A9 01 lda #%00000001
006A37 2 11 19 ora (SCRATCH0),y
006A39 2 91 19 sta (SCRATCH0),y
006A3B 2 C8 iny
006A3C 2
006A3C 2 E8 inx
006A3D 2 BD DC 60 lda HGRROWS_H,x
006A40 2 85 1A sta SCRATCH1
006A42 2 BD 9C 61 lda HGRROWS_L,x
006A45 2 85 19 sta SCRATCH0
006A47 2 A4 06 ldy PARAM0
006A49 2 B9 74 63 lda DIV7_2,y
006A4C 2 A8 tay
006A4D 2
006A4D 2 C8 iny
006A4E 2 A9 02 lda #%00000010
006A50 2 11 19 ora (SCRATCH0),y
006A52 2 91 19 sta (SCRATCH0),y
006A54 2 C8 iny
006A55 2 A9 01 lda #%00000001
006A57 2 11 19 ora (SCRATCH0),y
006A59 2 91 19 sta (SCRATCH0),y
006A5B 2 C8 iny
006A5C 2
006A5C 2 E8 inx
006A5D 2 BD DC 60 lda HGRROWS_H,x
006A60 2 85 1A sta SCRATCH1
006A62 2 BD 9C 61 lda HGRROWS_L,x
006A65 2 85 19 sta SCRATCH0
006A67 2 A4 06 ldy PARAM0
006A69 2 B9 74 63 lda DIV7_2,y
006A6C 2 A8 tay
006A6D 2
006A6D 2 C8 iny
006A6E 2 A9 2A lda #%00101010
006A70 2 11 19 ora (SCRATCH0),y
006A72 2 91 19 sta (SCRATCH0),y
006A74 2 C8 iny
006A75 2 A9 01 lda #%00000001
006A77 2 11 19 ora (SCRATCH0),y
006A79 2 91 19 sta (SCRATCH0),y
006A7B 2 C8 iny
006A7C 2
006A7C 2 7A FA 68 RESTORE_AXY
006A7F 2 60 rts
006A80 2
006A80 2
006A80 2
006A80 2 BOX_MAG_SHIFT5:
006A80 2 A4 06 ldy PARAM0
006A82 2
006A82 2 A6 07 ldx PARAM1
006A84 2 BD DC 60 lda HGRROWS_H,x
006A87 2 85 1A sta SCRATCH1
006A89 2 BD 9C 61 lda HGRROWS_L,x
006A8C 2 85 19 sta SCRATCH0
006A8E 2 A4 06 ldy PARAM0
006A90 2 B9 74 63 lda DIV7_2,y
006A93 2 A8 tay
006A94 2
006A94 2 C8 iny
006A95 2 A9 28 lda #%00101000
006A97 2 11 19 ora (SCRATCH0),y
006A99 2 91 19 sta (SCRATCH0),y
006A9B 2 C8 iny
006A9C 2 A9 05 lda #%00000101
006A9E 2 11 19 ora (SCRATCH0),y
006AA0 2 91 19 sta (SCRATCH0),y
006AA2 2 C8 iny
006AA3 2
006AA3 2 E8 inx
006AA4 2 BD DC 60 lda HGRROWS_H,x
006AA7 2 85 1A sta SCRATCH1
006AA9 2 BD 9C 61 lda HGRROWS_L,x
006AAC 2 85 19 sta SCRATCH0
006AAE 2 A4 06 ldy PARAM0
006AB0 2 B9 74 63 lda DIV7_2,y
006AB3 2 A8 tay
006AB4 2
006AB4 2 C8 iny
006AB5 2 A9 08 lda #%00001000
006AB7 2 11 19 ora (SCRATCH0),y
006AB9 2 91 19 sta (SCRATCH0),y
006ABB 2 C8 iny
006ABC 2 A9 04 lda #%00000100
006ABE 2 11 19 ora (SCRATCH0),y
006AC0 2 91 19 sta (SCRATCH0),y
006AC2 2 C8 iny
006AC3 2
006AC3 2 E8 inx
006AC4 2 BD DC 60 lda HGRROWS_H,x
006AC7 2 85 1A sta SCRATCH1
006AC9 2 BD 9C 61 lda HGRROWS_L,x
006ACC 2 85 19 sta SCRATCH0
006ACE 2 A4 06 ldy PARAM0
006AD0 2 B9 74 63 lda DIV7_2,y
006AD3 2 A8 tay
006AD4 2
006AD4 2 C8 iny
006AD5 2 A9 08 lda #%00001000
006AD7 2 11 19 ora (SCRATCH0),y
006AD9 2 91 19 sta (SCRATCH0),y
006ADB 2 C8 iny
006ADC 2 A9 04 lda #%00000100
006ADE 2 11 19 ora (SCRATCH0),y
006AE0 2 91 19 sta (SCRATCH0),y
006AE2 2 C8 iny
006AE3 2
006AE3 2 E8 inx
006AE4 2 BD DC 60 lda HGRROWS_H,x
006AE7 2 85 1A sta SCRATCH1
006AE9 2 BD 9C 61 lda HGRROWS_L,x
006AEC 2 85 19 sta SCRATCH0
006AEE 2 A4 06 ldy PARAM0
006AF0 2 B9 74 63 lda DIV7_2,y
006AF3 2 A8 tay
006AF4 2
006AF4 2 C8 iny
006AF5 2 A9 08 lda #%00001000
006AF7 2 11 19 ora (SCRATCH0),y
006AF9 2 91 19 sta (SCRATCH0),y
006AFB 2 C8 iny
006AFC 2 A9 04 lda #%00000100
006AFE 2 11 19 ora (SCRATCH0),y
006B00 2 91 19 sta (SCRATCH0),y
006B02 2 C8 iny
006B03 2
006B03 2 E8 inx
006B04 2 BD DC 60 lda HGRROWS_H,x
006B07 2 85 1A sta SCRATCH1
006B09 2 BD 9C 61 lda HGRROWS_L,x
006B0C 2 85 19 sta SCRATCH0
006B0E 2 A4 06 ldy PARAM0
006B10 2 B9 74 63 lda DIV7_2,y
006B13 2 A8 tay
006B14 2
006B14 2 C8 iny
006B15 2 A9 08 lda #%00001000
006B17 2 11 19 ora (SCRATCH0),y
006B19 2 91 19 sta (SCRATCH0),y
006B1B 2 C8 iny
006B1C 2 A9 04 lda #%00000100
006B1E 2 11 19 ora (SCRATCH0),y
006B20 2 91 19 sta (SCRATCH0),y
006B22 2 C8 iny
006B23 2
006B23 2 E8 inx
006B24 2 BD DC 60 lda HGRROWS_H,x
006B27 2 85 1A sta SCRATCH1
006B29 2 BD 9C 61 lda HGRROWS_L,x
006B2C 2 85 19 sta SCRATCH0
006B2E 2 A4 06 ldy PARAM0
006B30 2 B9 74 63 lda DIV7_2,y
006B33 2 A8 tay
006B34 2
006B34 2 C8 iny
006B35 2 A9 08 lda #%00001000
006B37 2 11 19 ora (SCRATCH0),y
006B39 2 91 19 sta (SCRATCH0),y
006B3B 2 C8 iny
006B3C 2 A9 04 lda #%00000100
006B3E 2 11 19 ora (SCRATCH0),y
006B40 2 91 19 sta (SCRATCH0),y
006B42 2 C8 iny
006B43 2
006B43 2 E8 inx
006B44 2 BD DC 60 lda HGRROWS_H,x
006B47 2 85 1A sta SCRATCH1
006B49 2 BD 9C 61 lda HGRROWS_L,x
006B4C 2 85 19 sta SCRATCH0
006B4E 2 A4 06 ldy PARAM0
006B50 2 B9 74 63 lda DIV7_2,y
006B53 2 A8 tay
006B54 2
006B54 2 C8 iny
006B55 2 A9 08 lda #%00001000
006B57 2 11 19 ora (SCRATCH0),y
006B59 2 91 19 sta (SCRATCH0),y
006B5B 2 C8 iny
006B5C 2 A9 04 lda #%00000100
006B5E 2 11 19 ora (SCRATCH0),y
006B60 2 91 19 sta (SCRATCH0),y
006B62 2 C8 iny
006B63 2
006B63 2 E8 inx
006B64 2 BD DC 60 lda HGRROWS_H,x
006B67 2 85 1A sta SCRATCH1
006B69 2 BD 9C 61 lda HGRROWS_L,x
006B6C 2 85 19 sta SCRATCH0
006B6E 2 A4 06 ldy PARAM0
006B70 2 B9 74 63 lda DIV7_2,y
006B73 2 A8 tay
006B74 2
006B74 2 C8 iny
006B75 2 A9 28 lda #%00101000
006B77 2 11 19 ora (SCRATCH0),y
006B79 2 91 19 sta (SCRATCH0),y
006B7B 2 C8 iny
006B7C 2 A9 05 lda #%00000101
006B7E 2 11 19 ora (SCRATCH0),y
006B80 2 91 19 sta (SCRATCH0),y
006B82 2 C8 iny
006B83 2
006B83 2 7A FA 68 RESTORE_AXY
006B86 2 60 rts
006B87 2
006B87 2
006B87 2
006B87 2 BOX_MAG_SHIFT6:
006B87 2 A4 06 ldy PARAM0
006B89 2
006B89 2 A6 07 ldx PARAM1
006B8B 2 BD DC 60 lda HGRROWS_H,x
006B8E 2 85 1A sta SCRATCH1
006B90 2 BD 9C 61 lda HGRROWS_L,x
006B93 2 85 19 sta SCRATCH0
006B95 2 A4 06 ldy PARAM0
006B97 2 B9 74 63 lda DIV7_2,y
006B9A 2 A8 tay
006B9B 2
006B9B 2 C8 iny
006B9C 2 A9 20 lda #%00100000
006B9E 2 11 19 ora (SCRATCH0),y
006BA0 2 91 19 sta (SCRATCH0),y
006BA2 2 C8 iny
006BA3 2 A9 15 lda #%00010101
006BA5 2 11 19 ora (SCRATCH0),y
006BA7 2 91 19 sta (SCRATCH0),y
006BA9 2 C8 iny
006BAA 2
006BAA 2 E8 inx
006BAB 2 BD DC 60 lda HGRROWS_H,x
006BAE 2 85 1A sta SCRATCH1
006BB0 2 BD 9C 61 lda HGRROWS_L,x
006BB3 2 85 19 sta SCRATCH0
006BB5 2 A4 06 ldy PARAM0
006BB7 2 B9 74 63 lda DIV7_2,y
006BBA 2 A8 tay
006BBB 2
006BBB 2 C8 iny
006BBC 2 A9 20 lda #%00100000
006BBE 2 11 19 ora (SCRATCH0),y
006BC0 2 91 19 sta (SCRATCH0),y
006BC2 2 C8 iny
006BC3 2 A9 10 lda #%00010000
006BC5 2 11 19 ora (SCRATCH0),y
006BC7 2 91 19 sta (SCRATCH0),y
006BC9 2 C8 iny
006BCA 2
006BCA 2 E8 inx
006BCB 2 BD DC 60 lda HGRROWS_H,x
006BCE 2 85 1A sta SCRATCH1
006BD0 2 BD 9C 61 lda HGRROWS_L,x
006BD3 2 85 19 sta SCRATCH0
006BD5 2 A4 06 ldy PARAM0
006BD7 2 B9 74 63 lda DIV7_2,y
006BDA 2 A8 tay
006BDB 2
006BDB 2 C8 iny
006BDC 2 A9 20 lda #%00100000
006BDE 2 11 19 ora (SCRATCH0),y
006BE0 2 91 19 sta (SCRATCH0),y
006BE2 2 C8 iny
006BE3 2 A9 10 lda #%00010000
006BE5 2 11 19 ora (SCRATCH0),y
006BE7 2 91 19 sta (SCRATCH0),y
006BE9 2 C8 iny
006BEA 2
006BEA 2 E8 inx
006BEB 2 BD DC 60 lda HGRROWS_H,x
006BEE 2 85 1A sta SCRATCH1
006BF0 2 BD 9C 61 lda HGRROWS_L,x
006BF3 2 85 19 sta SCRATCH0
006BF5 2 A4 06 ldy PARAM0
006BF7 2 B9 74 63 lda DIV7_2,y
006BFA 2 A8 tay
006BFB 2
006BFB 2 C8 iny
006BFC 2 A9 20 lda #%00100000
006BFE 2 11 19 ora (SCRATCH0),y
006C00 2 91 19 sta (SCRATCH0),y
006C02 2 C8 iny
006C03 2 A9 10 lda #%00010000
006C05 2 11 19 ora (SCRATCH0),y
006C07 2 91 19 sta (SCRATCH0),y
006C09 2 C8 iny
006C0A 2
006C0A 2 E8 inx
006C0B 2 BD DC 60 lda HGRROWS_H,x
006C0E 2 85 1A sta SCRATCH1
006C10 2 BD 9C 61 lda HGRROWS_L,x
006C13 2 85 19 sta SCRATCH0
006C15 2 A4 06 ldy PARAM0
006C17 2 B9 74 63 lda DIV7_2,y
006C1A 2 A8 tay
006C1B 2
006C1B 2 C8 iny
006C1C 2 A9 20 lda #%00100000
006C1E 2 11 19 ora (SCRATCH0),y
006C20 2 91 19 sta (SCRATCH0),y
006C22 2 C8 iny
006C23 2 A9 10 lda #%00010000
006C25 2 11 19 ora (SCRATCH0),y
006C27 2 91 19 sta (SCRATCH0),y
006C29 2 C8 iny
006C2A 2
006C2A 2 E8 inx
006C2B 2 BD DC 60 lda HGRROWS_H,x
006C2E 2 85 1A sta SCRATCH1
006C30 2 BD 9C 61 lda HGRROWS_L,x
006C33 2 85 19 sta SCRATCH0
006C35 2 A4 06 ldy PARAM0
006C37 2 B9 74 63 lda DIV7_2,y
006C3A 2 A8 tay
006C3B 2
006C3B 2 C8 iny
006C3C 2 A9 20 lda #%00100000
006C3E 2 11 19 ora (SCRATCH0),y
006C40 2 91 19 sta (SCRATCH0),y
006C42 2 C8 iny
006C43 2 A9 10 lda #%00010000
006C45 2 11 19 ora (SCRATCH0),y
006C47 2 91 19 sta (SCRATCH0),y
006C49 2 C8 iny
006C4A 2
006C4A 2 E8 inx
006C4B 2 BD DC 60 lda HGRROWS_H,x
006C4E 2 85 1A sta SCRATCH1
006C50 2 BD 9C 61 lda HGRROWS_L,x
006C53 2 85 19 sta SCRATCH0
006C55 2 A4 06 ldy PARAM0
006C57 2 B9 74 63 lda DIV7_2,y
006C5A 2 A8 tay
006C5B 2
006C5B 2 C8 iny
006C5C 2 A9 20 lda #%00100000
006C5E 2 11 19 ora (SCRATCH0),y
006C60 2 91 19 sta (SCRATCH0),y
006C62 2 C8 iny
006C63 2 A9 10 lda #%00010000
006C65 2 11 19 ora (SCRATCH0),y
006C67 2 91 19 sta (SCRATCH0),y
006C69 2 C8 iny
006C6A 2
006C6A 2 E8 inx
006C6B 2 BD DC 60 lda HGRROWS_H,x
006C6E 2 85 1A sta SCRATCH1
006C70 2 BD 9C 61 lda HGRROWS_L,x
006C73 2 85 19 sta SCRATCH0
006C75 2 A4 06 ldy PARAM0
006C77 2 B9 74 63 lda DIV7_2,y
006C7A 2 A8 tay
006C7B 2
006C7B 2 C8 iny
006C7C 2 A9 20 lda #%00100000
006C7E 2 11 19 ora (SCRATCH0),y
006C80 2 91 19 sta (SCRATCH0),y
006C82 2 C8 iny
006C83 2 A9 15 lda #%00010101
006C85 2 11 19 ora (SCRATCH0),y
006C87 2 91 19 sta (SCRATCH0),y
006C89 2 C8 iny
006C8A 2
006C8A 2 7A FA 68 RESTORE_AXY
006C8D 2 60 rts
006C8E 2
006C8E 2
006C8E 2
006C8E 2
006C8E 1 .include "spritegen5.s"
006C8E 2 BOX_GRN: ;4 bytes per row
006C8E 2 48 DA 5A SAVE_AXY
006C91 2 A4 06 ldy PARAM0
006C93 2 BE 00 64 ldx MOD7_2,y
006C96 2 7C 99 6C jmp (BOX_GRN_JMP,x)
006C99 2
006C99 2 BOX_GRN_JMP:
006C99 2 A7 6C .addr BOX_GRN_SHIFT0
006C9B 2 AE 6D .addr BOX_GRN_SHIFT1
006C9D 2 B5 6E .addr BOX_GRN_SHIFT2
006C9F 2 BC 6F .addr BOX_GRN_SHIFT3
006CA1 2 93 70 .addr BOX_GRN_SHIFT4
006CA3 2 9A 71 .addr BOX_GRN_SHIFT5
006CA5 2 A1 72 .addr BOX_GRN_SHIFT6
006CA7 2
006CA7 2
006CA7 2 BOX_GRN_SHIFT0:
006CA7 2 A4 06 ldy PARAM0
006CA9 2
006CA9 2 A6 07 ldx PARAM1
006CAB 2 BD DC 60 lda HGRROWS_H,x
006CAE 2 85 1A sta SCRATCH1
006CB0 2 BD 9C 61 lda HGRROWS_L,x
006CB3 2 85 19 sta SCRATCH0
006CB5 2 A4 06 ldy PARAM0
006CB7 2 B9 74 63 lda DIV7_2,y
006CBA 2 A8 tay
006CBB 2
006CBB 2 A9 2A lda #%00101010
006CBD 2 11 19 ora (SCRATCH0),y
006CBF 2 91 19 sta (SCRATCH0),y
006CC1 2 C8 iny
006CC2 2 A9 01 lda #%00000001
006CC4 2 11 19 ora (SCRATCH0),y
006CC6 2 91 19 sta (SCRATCH0),y
006CC8 2 C8 iny
006CC9 2 C8 iny
006CCA 2
006CCA 2 E8 inx
006CCB 2 BD DC 60 lda HGRROWS_H,x
006CCE 2 85 1A sta SCRATCH1
006CD0 2 BD 9C 61 lda HGRROWS_L,x
006CD3 2 85 19 sta SCRATCH0
006CD5 2 A4 06 ldy PARAM0
006CD7 2 B9 74 63 lda DIV7_2,y
006CDA 2 A8 tay
006CDB 2
006CDB 2 A9 02 lda #%00000010
006CDD 2 11 19 ora (SCRATCH0),y
006CDF 2 91 19 sta (SCRATCH0),y
006CE1 2 C8 iny
006CE2 2 A9 01 lda #%00000001
006CE4 2 11 19 ora (SCRATCH0),y
006CE6 2 91 19 sta (SCRATCH0),y
006CE8 2 C8 iny
006CE9 2 C8 iny
006CEA 2
006CEA 2 E8 inx
006CEB 2 BD DC 60 lda HGRROWS_H,x
006CEE 2 85 1A sta SCRATCH1
006CF0 2 BD 9C 61 lda HGRROWS_L,x
006CF3 2 85 19 sta SCRATCH0
006CF5 2 A4 06 ldy PARAM0
006CF7 2 B9 74 63 lda DIV7_2,y
006CFA 2 A8 tay
006CFB 2
006CFB 2 A9 02 lda #%00000010
006CFD 2 11 19 ora (SCRATCH0),y
006CFF 2 91 19 sta (SCRATCH0),y
006D01 2 C8 iny
006D02 2 A9 01 lda #%00000001
006D04 2 11 19 ora (SCRATCH0),y
006D06 2 91 19 sta (SCRATCH0),y
006D08 2 C8 iny
006D09 2 C8 iny
006D0A 2
006D0A 2 E8 inx
006D0B 2 BD DC 60 lda HGRROWS_H,x
006D0E 2 85 1A sta SCRATCH1
006D10 2 BD 9C 61 lda HGRROWS_L,x
006D13 2 85 19 sta SCRATCH0
006D15 2 A4 06 ldy PARAM0
006D17 2 B9 74 63 lda DIV7_2,y
006D1A 2 A8 tay
006D1B 2
006D1B 2 A9 02 lda #%00000010
006D1D 2 11 19 ora (SCRATCH0),y
006D1F 2 91 19 sta (SCRATCH0),y
006D21 2 C8 iny
006D22 2 A9 01 lda #%00000001
006D24 2 11 19 ora (SCRATCH0),y
006D26 2 91 19 sta (SCRATCH0),y
006D28 2 C8 iny
006D29 2 C8 iny
006D2A 2
006D2A 2 E8 inx
006D2B 2 BD DC 60 lda HGRROWS_H,x
006D2E 2 85 1A sta SCRATCH1
006D30 2 BD 9C 61 lda HGRROWS_L,x
006D33 2 85 19 sta SCRATCH0
006D35 2 A4 06 ldy PARAM0
006D37 2 B9 74 63 lda DIV7_2,y
006D3A 2 A8 tay
006D3B 2
006D3B 2 A9 02 lda #%00000010
006D3D 2 11 19 ora (SCRATCH0),y
006D3F 2 91 19 sta (SCRATCH0),y
006D41 2 C8 iny
006D42 2 A9 01 lda #%00000001
006D44 2 11 19 ora (SCRATCH0),y
006D46 2 91 19 sta (SCRATCH0),y
006D48 2 C8 iny
006D49 2 C8 iny
006D4A 2
006D4A 2 E8 inx
006D4B 2 BD DC 60 lda HGRROWS_H,x
006D4E 2 85 1A sta SCRATCH1
006D50 2 BD 9C 61 lda HGRROWS_L,x
006D53 2 85 19 sta SCRATCH0
006D55 2 A4 06 ldy PARAM0
006D57 2 B9 74 63 lda DIV7_2,y
006D5A 2 A8 tay
006D5B 2
006D5B 2 A9 02 lda #%00000010
006D5D 2 11 19 ora (SCRATCH0),y
006D5F 2 91 19 sta (SCRATCH0),y
006D61 2 C8 iny
006D62 2 A9 01 lda #%00000001
006D64 2 11 19 ora (SCRATCH0),y
006D66 2 91 19 sta (SCRATCH0),y
006D68 2 C8 iny
006D69 2 C8 iny
006D6A 2
006D6A 2 E8 inx
006D6B 2 BD DC 60 lda HGRROWS_H,x
006D6E 2 85 1A sta SCRATCH1
006D70 2 BD 9C 61 lda HGRROWS_L,x
006D73 2 85 19 sta SCRATCH0
006D75 2 A4 06 ldy PARAM0
006D77 2 B9 74 63 lda DIV7_2,y
006D7A 2 A8 tay
006D7B 2
006D7B 2 A9 02 lda #%00000010
006D7D 2 11 19 ora (SCRATCH0),y
006D7F 2 91 19 sta (SCRATCH0),y
006D81 2 C8 iny
006D82 2 A9 01 lda #%00000001
006D84 2 11 19 ora (SCRATCH0),y
006D86 2 91 19 sta (SCRATCH0),y
006D88 2 C8 iny
006D89 2 C8 iny
006D8A 2
006D8A 2 E8 inx
006D8B 2 BD DC 60 lda HGRROWS_H,x
006D8E 2 85 1A sta SCRATCH1
006D90 2 BD 9C 61 lda HGRROWS_L,x
006D93 2 85 19 sta SCRATCH0
006D95 2 A4 06 ldy PARAM0
006D97 2 B9 74 63 lda DIV7_2,y
006D9A 2 A8 tay
006D9B 2
006D9B 2 A9 2A lda #%00101010
006D9D 2 11 19 ora (SCRATCH0),y
006D9F 2 91 19 sta (SCRATCH0),y
006DA1 2 C8 iny
006DA2 2 A9 01 lda #%00000001
006DA4 2 11 19 ora (SCRATCH0),y
006DA6 2 91 19 sta (SCRATCH0),y
006DA8 2 C8 iny
006DA9 2 C8 iny
006DAA 2
006DAA 2 7A FA 68 RESTORE_AXY
006DAD 2 60 rts
006DAE 2
006DAE 2
006DAE 2
006DAE 2 BOX_GRN_SHIFT1:
006DAE 2 A4 06 ldy PARAM0
006DB0 2
006DB0 2 A6 07 ldx PARAM1
006DB2 2 BD DC 60 lda HGRROWS_H,x
006DB5 2 85 1A sta SCRATCH1
006DB7 2 BD 9C 61 lda HGRROWS_L,x
006DBA 2 85 19 sta SCRATCH0
006DBC 2 A4 06 ldy PARAM0
006DBE 2 B9 74 63 lda DIV7_2,y
006DC1 2 A8 tay
006DC2 2
006DC2 2 A9 28 lda #%00101000
006DC4 2 11 19 ora (SCRATCH0),y
006DC6 2 91 19 sta (SCRATCH0),y
006DC8 2 C8 iny
006DC9 2 A9 05 lda #%00000101
006DCB 2 11 19 ora (SCRATCH0),y
006DCD 2 91 19 sta (SCRATCH0),y
006DCF 2 C8 iny
006DD0 2 C8 iny
006DD1 2
006DD1 2 E8 inx
006DD2 2 BD DC 60 lda HGRROWS_H,x
006DD5 2 85 1A sta SCRATCH1
006DD7 2 BD 9C 61 lda HGRROWS_L,x
006DDA 2 85 19 sta SCRATCH0
006DDC 2 A4 06 ldy PARAM0
006DDE 2 B9 74 63 lda DIV7_2,y
006DE1 2 A8 tay
006DE2 2
006DE2 2 A9 08 lda #%00001000
006DE4 2 11 19 ora (SCRATCH0),y
006DE6 2 91 19 sta (SCRATCH0),y
006DE8 2 C8 iny
006DE9 2 A9 04 lda #%00000100
006DEB 2 11 19 ora (SCRATCH0),y
006DED 2 91 19 sta (SCRATCH0),y
006DEF 2 C8 iny
006DF0 2 C8 iny
006DF1 2
006DF1 2 E8 inx
006DF2 2 BD DC 60 lda HGRROWS_H,x
006DF5 2 85 1A sta SCRATCH1
006DF7 2 BD 9C 61 lda HGRROWS_L,x
006DFA 2 85 19 sta SCRATCH0
006DFC 2 A4 06 ldy PARAM0
006DFE 2 B9 74 63 lda DIV7_2,y
006E01 2 A8 tay
006E02 2
006E02 2 A9 08 lda #%00001000
006E04 2 11 19 ora (SCRATCH0),y
006E06 2 91 19 sta (SCRATCH0),y
006E08 2 C8 iny
006E09 2 A9 04 lda #%00000100
006E0B 2 11 19 ora (SCRATCH0),y
006E0D 2 91 19 sta (SCRATCH0),y
006E0F 2 C8 iny
006E10 2 C8 iny
006E11 2
006E11 2 E8 inx
006E12 2 BD DC 60 lda HGRROWS_H,x
006E15 2 85 1A sta SCRATCH1
006E17 2 BD 9C 61 lda HGRROWS_L,x
006E1A 2 85 19 sta SCRATCH0
006E1C 2 A4 06 ldy PARAM0
006E1E 2 B9 74 63 lda DIV7_2,y
006E21 2 A8 tay
006E22 2
006E22 2 A9 08 lda #%00001000
006E24 2 11 19 ora (SCRATCH0),y
006E26 2 91 19 sta (SCRATCH0),y
006E28 2 C8 iny
006E29 2 A9 04 lda #%00000100
006E2B 2 11 19 ora (SCRATCH0),y
006E2D 2 91 19 sta (SCRATCH0),y
006E2F 2 C8 iny
006E30 2 C8 iny
006E31 2
006E31 2 E8 inx
006E32 2 BD DC 60 lda HGRROWS_H,x
006E35 2 85 1A sta SCRATCH1
006E37 2 BD 9C 61 lda HGRROWS_L,x
006E3A 2 85 19 sta SCRATCH0
006E3C 2 A4 06 ldy PARAM0
006E3E 2 B9 74 63 lda DIV7_2,y
006E41 2 A8 tay
006E42 2
006E42 2 A9 08 lda #%00001000
006E44 2 11 19 ora (SCRATCH0),y
006E46 2 91 19 sta (SCRATCH0),y
006E48 2 C8 iny
006E49 2 A9 04 lda #%00000100
006E4B 2 11 19 ora (SCRATCH0),y
006E4D 2 91 19 sta (SCRATCH0),y
006E4F 2 C8 iny
006E50 2 C8 iny
006E51 2
006E51 2 E8 inx
006E52 2 BD DC 60 lda HGRROWS_H,x
006E55 2 85 1A sta SCRATCH1
006E57 2 BD 9C 61 lda HGRROWS_L,x
006E5A 2 85 19 sta SCRATCH0
006E5C 2 A4 06 ldy PARAM0
006E5E 2 B9 74 63 lda DIV7_2,y
006E61 2 A8 tay
006E62 2
006E62 2 A9 08 lda #%00001000
006E64 2 11 19 ora (SCRATCH0),y
006E66 2 91 19 sta (SCRATCH0),y
006E68 2 C8 iny
006E69 2 A9 04 lda #%00000100
006E6B 2 11 19 ora (SCRATCH0),y
006E6D 2 91 19 sta (SCRATCH0),y
006E6F 2 C8 iny
006E70 2 C8 iny
006E71 2
006E71 2 E8 inx
006E72 2 BD DC 60 lda HGRROWS_H,x
006E75 2 85 1A sta SCRATCH1
006E77 2 BD 9C 61 lda HGRROWS_L,x
006E7A 2 85 19 sta SCRATCH0
006E7C 2 A4 06 ldy PARAM0
006E7E 2 B9 74 63 lda DIV7_2,y
006E81 2 A8 tay
006E82 2
006E82 2 A9 08 lda #%00001000
006E84 2 11 19 ora (SCRATCH0),y
006E86 2 91 19 sta (SCRATCH0),y
006E88 2 C8 iny
006E89 2 A9 04 lda #%00000100
006E8B 2 11 19 ora (SCRATCH0),y
006E8D 2 91 19 sta (SCRATCH0),y
006E8F 2 C8 iny
006E90 2 C8 iny
006E91 2
006E91 2 E8 inx
006E92 2 BD DC 60 lda HGRROWS_H,x
006E95 2 85 1A sta SCRATCH1
006E97 2 BD 9C 61 lda HGRROWS_L,x
006E9A 2 85 19 sta SCRATCH0
006E9C 2 A4 06 ldy PARAM0
006E9E 2 B9 74 63 lda DIV7_2,y
006EA1 2 A8 tay
006EA2 2
006EA2 2 A9 28 lda #%00101000
006EA4 2 11 19 ora (SCRATCH0),y
006EA6 2 91 19 sta (SCRATCH0),y
006EA8 2 C8 iny
006EA9 2 A9 05 lda #%00000101
006EAB 2 11 19 ora (SCRATCH0),y
006EAD 2 91 19 sta (SCRATCH0),y
006EAF 2 C8 iny
006EB0 2 C8 iny
006EB1 2
006EB1 2 7A FA 68 RESTORE_AXY
006EB4 2 60 rts
006EB5 2
006EB5 2
006EB5 2
006EB5 2 BOX_GRN_SHIFT2:
006EB5 2 A4 06 ldy PARAM0
006EB7 2
006EB7 2 A6 07 ldx PARAM1
006EB9 2 BD DC 60 lda HGRROWS_H,x
006EBC 2 85 1A sta SCRATCH1
006EBE 2 BD 9C 61 lda HGRROWS_L,x
006EC1 2 85 19 sta SCRATCH0
006EC3 2 A4 06 ldy PARAM0
006EC5 2 B9 74 63 lda DIV7_2,y
006EC8 2 A8 tay
006EC9 2
006EC9 2 A9 20 lda #%00100000
006ECB 2 11 19 ora (SCRATCH0),y
006ECD 2 91 19 sta (SCRATCH0),y
006ECF 2 C8 iny
006ED0 2 A9 15 lda #%00010101
006ED2 2 11 19 ora (SCRATCH0),y
006ED4 2 91 19 sta (SCRATCH0),y
006ED6 2 C8 iny
006ED7 2 C8 iny
006ED8 2
006ED8 2 E8 inx
006ED9 2 BD DC 60 lda HGRROWS_H,x
006EDC 2 85 1A sta SCRATCH1
006EDE 2 BD 9C 61 lda HGRROWS_L,x
006EE1 2 85 19 sta SCRATCH0
006EE3 2 A4 06 ldy PARAM0
006EE5 2 B9 74 63 lda DIV7_2,y
006EE8 2 A8 tay
006EE9 2
006EE9 2 A9 20 lda #%00100000
006EEB 2 11 19 ora (SCRATCH0),y
006EED 2 91 19 sta (SCRATCH0),y
006EEF 2 C8 iny
006EF0 2 A9 10 lda #%00010000
006EF2 2 11 19 ora (SCRATCH0),y
006EF4 2 91 19 sta (SCRATCH0),y
006EF6 2 C8 iny
006EF7 2 C8 iny
006EF8 2
006EF8 2 E8 inx
006EF9 2 BD DC 60 lda HGRROWS_H,x
006EFC 2 85 1A sta SCRATCH1
006EFE 2 BD 9C 61 lda HGRROWS_L,x
006F01 2 85 19 sta SCRATCH0
006F03 2 A4 06 ldy PARAM0
006F05 2 B9 74 63 lda DIV7_2,y
006F08 2 A8 tay
006F09 2
006F09 2 A9 20 lda #%00100000
006F0B 2 11 19 ora (SCRATCH0),y
006F0D 2 91 19 sta (SCRATCH0),y
006F0F 2 C8 iny
006F10 2 A9 10 lda #%00010000
006F12 2 11 19 ora (SCRATCH0),y
006F14 2 91 19 sta (SCRATCH0),y
006F16 2 C8 iny
006F17 2 C8 iny
006F18 2
006F18 2 E8 inx
006F19 2 BD DC 60 lda HGRROWS_H,x
006F1C 2 85 1A sta SCRATCH1
006F1E 2 BD 9C 61 lda HGRROWS_L,x
006F21 2 85 19 sta SCRATCH0
006F23 2 A4 06 ldy PARAM0
006F25 2 B9 74 63 lda DIV7_2,y
006F28 2 A8 tay
006F29 2
006F29 2 A9 20 lda #%00100000
006F2B 2 11 19 ora (SCRATCH0),y
006F2D 2 91 19 sta (SCRATCH0),y
006F2F 2 C8 iny
006F30 2 A9 10 lda #%00010000
006F32 2 11 19 ora (SCRATCH0),y
006F34 2 91 19 sta (SCRATCH0),y
006F36 2 C8 iny
006F37 2 C8 iny
006F38 2
006F38 2 E8 inx
006F39 2 BD DC 60 lda HGRROWS_H,x
006F3C 2 85 1A sta SCRATCH1
006F3E 2 BD 9C 61 lda HGRROWS_L,x
006F41 2 85 19 sta SCRATCH0
006F43 2 A4 06 ldy PARAM0
006F45 2 B9 74 63 lda DIV7_2,y
006F48 2 A8 tay
006F49 2
006F49 2 A9 20 lda #%00100000
006F4B 2 11 19 ora (SCRATCH0),y
006F4D 2 91 19 sta (SCRATCH0),y
006F4F 2 C8 iny
006F50 2 A9 10 lda #%00010000
006F52 2 11 19 ora (SCRATCH0),y
006F54 2 91 19 sta (SCRATCH0),y
006F56 2 C8 iny
006F57 2 C8 iny
006F58 2
006F58 2 E8 inx
006F59 2 BD DC 60 lda HGRROWS_H,x
006F5C 2 85 1A sta SCRATCH1
006F5E 2 BD 9C 61 lda HGRROWS_L,x
006F61 2 85 19 sta SCRATCH0
006F63 2 A4 06 ldy PARAM0
006F65 2 B9 74 63 lda DIV7_2,y
006F68 2 A8 tay
006F69 2
006F69 2 A9 20 lda #%00100000
006F6B 2 11 19 ora (SCRATCH0),y
006F6D 2 91 19 sta (SCRATCH0),y
006F6F 2 C8 iny
006F70 2 A9 10 lda #%00010000
006F72 2 11 19 ora (SCRATCH0),y
006F74 2 91 19 sta (SCRATCH0),y
006F76 2 C8 iny
006F77 2 C8 iny
006F78 2
006F78 2 E8 inx
006F79 2 BD DC 60 lda HGRROWS_H,x
006F7C 2 85 1A sta SCRATCH1
006F7E 2 BD 9C 61 lda HGRROWS_L,x
006F81 2 85 19 sta SCRATCH0
006F83 2 A4 06 ldy PARAM0
006F85 2 B9 74 63 lda DIV7_2,y
006F88 2 A8 tay
006F89 2
006F89 2 A9 20 lda #%00100000
006F8B 2 11 19 ora (SCRATCH0),y
006F8D 2 91 19 sta (SCRATCH0),y
006F8F 2 C8 iny
006F90 2 A9 10 lda #%00010000
006F92 2 11 19 ora (SCRATCH0),y
006F94 2 91 19 sta (SCRATCH0),y
006F96 2 C8 iny
006F97 2 C8 iny
006F98 2
006F98 2 E8 inx
006F99 2 BD DC 60 lda HGRROWS_H,x
006F9C 2 85 1A sta SCRATCH1
006F9E 2 BD 9C 61 lda HGRROWS_L,x
006FA1 2 85 19 sta SCRATCH0
006FA3 2 A4 06 ldy PARAM0
006FA5 2 B9 74 63 lda DIV7_2,y
006FA8 2 A8 tay
006FA9 2
006FA9 2 A9 20 lda #%00100000
006FAB 2 11 19 ora (SCRATCH0),y
006FAD 2 91 19 sta (SCRATCH0),y
006FAF 2 C8 iny
006FB0 2 A9 15 lda #%00010101
006FB2 2 11 19 ora (SCRATCH0),y
006FB4 2 91 19 sta (SCRATCH0),y
006FB6 2 C8 iny
006FB7 2 C8 iny
006FB8 2
006FB8 2 7A FA 68 RESTORE_AXY
006FBB 2 60 rts
006FBC 2
006FBC 2
006FBC 2
006FBC 2 BOX_GRN_SHIFT3:
006FBC 2 A4 06 ldy PARAM0
006FBE 2
006FBE 2 A6 07 ldx PARAM1
006FC0 2 BD DC 60 lda HGRROWS_H,x
006FC3 2 85 1A sta SCRATCH1
006FC5 2 BD 9C 61 lda HGRROWS_L,x
006FC8 2 85 19 sta SCRATCH0
006FCA 2 A4 06 ldy PARAM0
006FCC 2 B9 74 63 lda DIV7_2,y
006FCF 2 A8 tay
006FD0 2
006FD0 2 C8 iny
006FD1 2 A9 55 lda #%01010101
006FD3 2 11 19 ora (SCRATCH0),y
006FD5 2 91 19 sta (SCRATCH0),y
006FD7 2 C8 iny
006FD8 2 C8 iny
006FD9 2
006FD9 2 E8 inx
006FDA 2 BD DC 60 lda HGRROWS_H,x
006FDD 2 85 1A sta SCRATCH1
006FDF 2 BD 9C 61 lda HGRROWS_L,x
006FE2 2 85 19 sta SCRATCH0
006FE4 2 A4 06 ldy PARAM0
006FE6 2 B9 74 63 lda DIV7_2,y
006FE9 2 A8 tay
006FEA 2
006FEA 2 C8 iny
006FEB 2 A9 41 lda #%01000001
006FED 2 11 19 ora (SCRATCH0),y
006FEF 2 91 19 sta (SCRATCH0),y
006FF1 2 C8 iny
006FF2 2 C8 iny
006FF3 2
006FF3 2 E8 inx
006FF4 2 BD DC 60 lda HGRROWS_H,x
006FF7 2 85 1A sta SCRATCH1
006FF9 2 BD 9C 61 lda HGRROWS_L,x
006FFC 2 85 19 sta SCRATCH0
006FFE 2 A4 06 ldy PARAM0
007000 2 B9 74 63 lda DIV7_2,y
007003 2 A8 tay
007004 2
007004 2 C8 iny
007005 2 A9 41 lda #%01000001
007007 2 11 19 ora (SCRATCH0),y
007009 2 91 19 sta (SCRATCH0),y
00700B 2 C8 iny
00700C 2 C8 iny
00700D 2
00700D 2 E8 inx
00700E 2 BD DC 60 lda HGRROWS_H,x
007011 2 85 1A sta SCRATCH1
007013 2 BD 9C 61 lda HGRROWS_L,x
007016 2 85 19 sta SCRATCH0
007018 2 A4 06 ldy PARAM0
00701A 2 B9 74 63 lda DIV7_2,y
00701D 2 A8 tay
00701E 2
00701E 2 C8 iny
00701F 2 A9 41 lda #%01000001
007021 2 11 19 ora (SCRATCH0),y
007023 2 91 19 sta (SCRATCH0),y
007025 2 C8 iny
007026 2 C8 iny
007027 2
007027 2 E8 inx
007028 2 BD DC 60 lda HGRROWS_H,x
00702B 2 85 1A sta SCRATCH1
00702D 2 BD 9C 61 lda HGRROWS_L,x
007030 2 85 19 sta SCRATCH0
007032 2 A4 06 ldy PARAM0
007034 2 B9 74 63 lda DIV7_2,y
007037 2 A8 tay
007038 2
007038 2 C8 iny
007039 2 A9 41 lda #%01000001
00703B 2 11 19 ora (SCRATCH0),y
00703D 2 91 19 sta (SCRATCH0),y
00703F 2 C8 iny
007040 2 C8 iny
007041 2
007041 2 E8 inx
007042 2 BD DC 60 lda HGRROWS_H,x
007045 2 85 1A sta SCRATCH1
007047 2 BD 9C 61 lda HGRROWS_L,x
00704A 2 85 19 sta SCRATCH0
00704C 2 A4 06 ldy PARAM0
00704E 2 B9 74 63 lda DIV7_2,y
007051 2 A8 tay
007052 2
007052 2 C8 iny
007053 2 A9 41 lda #%01000001
007055 2 11 19 ora (SCRATCH0),y
007057 2 91 19 sta (SCRATCH0),y
007059 2 C8 iny
00705A 2 C8 iny
00705B 2
00705B 2 E8 inx
00705C 2 BD DC 60 lda HGRROWS_H,x
00705F 2 85 1A sta SCRATCH1
007061 2 BD 9C 61 lda HGRROWS_L,x
007064 2 85 19 sta SCRATCH0
007066 2 A4 06 ldy PARAM0
007068 2 B9 74 63 lda DIV7_2,y
00706B 2 A8 tay
00706C 2
00706C 2 C8 iny
00706D 2 A9 41 lda #%01000001
00706F 2 11 19 ora (SCRATCH0),y
007071 2 91 19 sta (SCRATCH0),y
007073 2 C8 iny
007074 2 C8 iny
007075 2
007075 2 E8 inx
007076 2 BD DC 60 lda HGRROWS_H,x
007079 2 85 1A sta SCRATCH1
00707B 2 BD 9C 61 lda HGRROWS_L,x
00707E 2 85 19 sta SCRATCH0
007080 2 A4 06 ldy PARAM0
007082 2 B9 74 63 lda DIV7_2,y
007085 2 A8 tay
007086 2
007086 2 C8 iny
007087 2 A9 55 lda #%01010101
007089 2 11 19 ora (SCRATCH0),y
00708B 2 91 19 sta (SCRATCH0),y
00708D 2 C8 iny
00708E 2 C8 iny
00708F 2
00708F 2 7A FA 68 RESTORE_AXY
007092 2 60 rts
007093 2
007093 2
007093 2
007093 2 BOX_GRN_SHIFT4:
007093 2 A4 06 ldy PARAM0
007095 2
007095 2 A6 07 ldx PARAM1
007097 2 BD DC 60 lda HGRROWS_H,x
00709A 2 85 1A sta SCRATCH1
00709C 2 BD 9C 61 lda HGRROWS_L,x
00709F 2 85 19 sta SCRATCH0
0070A1 2 A4 06 ldy PARAM0
0070A3 2 B9 74 63 lda DIV7_2,y
0070A6 2 A8 tay
0070A7 2
0070A7 2 C8 iny
0070A8 2 A9 54 lda #%01010100
0070AA 2 11 19 ora (SCRATCH0),y
0070AC 2 91 19 sta (SCRATCH0),y
0070AE 2 C8 iny
0070AF 2 A9 02 lda #%00000010
0070B1 2 11 19 ora (SCRATCH0),y
0070B3 2 91 19 sta (SCRATCH0),y
0070B5 2 C8 iny
0070B6 2
0070B6 2 E8 inx
0070B7 2 BD DC 60 lda HGRROWS_H,x
0070BA 2 85 1A sta SCRATCH1
0070BC 2 BD 9C 61 lda HGRROWS_L,x
0070BF 2 85 19 sta SCRATCH0
0070C1 2 A4 06 ldy PARAM0
0070C3 2 B9 74 63 lda DIV7_2,y
0070C6 2 A8 tay
0070C7 2
0070C7 2 C8 iny
0070C8 2 A9 04 lda #%00000100
0070CA 2 11 19 ora (SCRATCH0),y
0070CC 2 91 19 sta (SCRATCH0),y
0070CE 2 C8 iny
0070CF 2 A9 02 lda #%00000010
0070D1 2 11 19 ora (SCRATCH0),y
0070D3 2 91 19 sta (SCRATCH0),y
0070D5 2 C8 iny
0070D6 2
0070D6 2 E8 inx
0070D7 2 BD DC 60 lda HGRROWS_H,x
0070DA 2 85 1A sta SCRATCH1
0070DC 2 BD 9C 61 lda HGRROWS_L,x
0070DF 2 85 19 sta SCRATCH0
0070E1 2 A4 06 ldy PARAM0
0070E3 2 B9 74 63 lda DIV7_2,y
0070E6 2 A8 tay
0070E7 2
0070E7 2 C8 iny
0070E8 2 A9 04 lda #%00000100
0070EA 2 11 19 ora (SCRATCH0),y
0070EC 2 91 19 sta (SCRATCH0),y
0070EE 2 C8 iny
0070EF 2 A9 02 lda #%00000010
0070F1 2 11 19 ora (SCRATCH0),y
0070F3 2 91 19 sta (SCRATCH0),y
0070F5 2 C8 iny
0070F6 2
0070F6 2 E8 inx
0070F7 2 BD DC 60 lda HGRROWS_H,x
0070FA 2 85 1A sta SCRATCH1
0070FC 2 BD 9C 61 lda HGRROWS_L,x
0070FF 2 85 19 sta SCRATCH0
007101 2 A4 06 ldy PARAM0
007103 2 B9 74 63 lda DIV7_2,y
007106 2 A8 tay
007107 2
007107 2 C8 iny
007108 2 A9 04 lda #%00000100
00710A 2 11 19 ora (SCRATCH0),y
00710C 2 91 19 sta (SCRATCH0),y
00710E 2 C8 iny
00710F 2 A9 02 lda #%00000010
007111 2 11 19 ora (SCRATCH0),y
007113 2 91 19 sta (SCRATCH0),y
007115 2 C8 iny
007116 2
007116 2 E8 inx
007117 2 BD DC 60 lda HGRROWS_H,x
00711A 2 85 1A sta SCRATCH1
00711C 2 BD 9C 61 lda HGRROWS_L,x
00711F 2 85 19 sta SCRATCH0
007121 2 A4 06 ldy PARAM0
007123 2 B9 74 63 lda DIV7_2,y
007126 2 A8 tay
007127 2
007127 2 C8 iny
007128 2 A9 04 lda #%00000100
00712A 2 11 19 ora (SCRATCH0),y
00712C 2 91 19 sta (SCRATCH0),y
00712E 2 C8 iny
00712F 2 A9 02 lda #%00000010
007131 2 11 19 ora (SCRATCH0),y
007133 2 91 19 sta (SCRATCH0),y
007135 2 C8 iny
007136 2
007136 2 E8 inx
007137 2 BD DC 60 lda HGRROWS_H,x
00713A 2 85 1A sta SCRATCH1
00713C 2 BD 9C 61 lda HGRROWS_L,x
00713F 2 85 19 sta SCRATCH0
007141 2 A4 06 ldy PARAM0
007143 2 B9 74 63 lda DIV7_2,y
007146 2 A8 tay
007147 2
007147 2 C8 iny
007148 2 A9 04 lda #%00000100
00714A 2 11 19 ora (SCRATCH0),y
00714C 2 91 19 sta (SCRATCH0),y
00714E 2 C8 iny
00714F 2 A9 02 lda #%00000010
007151 2 11 19 ora (SCRATCH0),y
007153 2 91 19 sta (SCRATCH0),y
007155 2 C8 iny
007156 2
007156 2 E8 inx
007157 2 BD DC 60 lda HGRROWS_H,x
00715A 2 85 1A sta SCRATCH1
00715C 2 BD 9C 61 lda HGRROWS_L,x
00715F 2 85 19 sta SCRATCH0
007161 2 A4 06 ldy PARAM0
007163 2 B9 74 63 lda DIV7_2,y
007166 2 A8 tay
007167 2
007167 2 C8 iny
007168 2 A9 04 lda #%00000100
00716A 2 11 19 ora (SCRATCH0),y
00716C 2 91 19 sta (SCRATCH0),y
00716E 2 C8 iny
00716F 2 A9 02 lda #%00000010
007171 2 11 19 ora (SCRATCH0),y
007173 2 91 19 sta (SCRATCH0),y
007175 2 C8 iny
007176 2
007176 2 E8 inx
007177 2 BD DC 60 lda HGRROWS_H,x
00717A 2 85 1A sta SCRATCH1
00717C 2 BD 9C 61 lda HGRROWS_L,x
00717F 2 85 19 sta SCRATCH0
007181 2 A4 06 ldy PARAM0
007183 2 B9 74 63 lda DIV7_2,y
007186 2 A8 tay
007187 2
007187 2 C8 iny
007188 2 A9 54 lda #%01010100
00718A 2 11 19 ora (SCRATCH0),y
00718C 2 91 19 sta (SCRATCH0),y
00718E 2 C8 iny
00718F 2 A9 02 lda #%00000010
007191 2 11 19 ora (SCRATCH0),y
007193 2 91 19 sta (SCRATCH0),y
007195 2 C8 iny
007196 2
007196 2 7A FA 68 RESTORE_AXY