Apple-2-SW/SpriteGen
1
0
Fork 0
mirror of https://github.com/blondie7575/SpriteGen.git synced 2025-04-18 02:37:31 +00:00
Code Issues Projects Releases Wiki Activity
SpriteGen/hgrtest.lst

6536 lines
229 KiB
Plaintext
Raw Normal View History

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
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
007199 2 60 rts
00719A 2
00719A 2
00719A 2
00719A 2 BOX_GRN_SHIFT5:
00719A 2 A4 06 ldy PARAM0
00719C 2
00719C 2 A6 07 ldx PARAM1
00719E 2 BD DC 60 lda HGRROWS_H,x
0071A1 2 85 1A sta SCRATCH1
0071A3 2 BD 9C 61 lda HGRROWS_L,x
0071A6 2 85 19 sta SCRATCH0
0071A8 2 A4 06 ldy PARAM0
0071AA 2 B9 74 63 lda DIV7_2,y
0071AD 2 A8 tay
0071AE 2
0071AE 2 C8 iny
0071AF 2 A9 50 lda #%01010000
0071B1 2 11 19 ora (SCRATCH0),y
0071B3 2 91 19 sta (SCRATCH0),y
0071B5 2 C8 iny
0071B6 2 A9 0A lda #%00001010
0071B8 2 11 19 ora (SCRATCH0),y
0071BA 2 91 19 sta (SCRATCH0),y
0071BC 2 C8 iny
0071BD 2
0071BD 2 E8 inx
0071BE 2 BD DC 60 lda HGRROWS_H,x
0071C1 2 85 1A sta SCRATCH1
0071C3 2 BD 9C 61 lda HGRROWS_L,x
0071C6 2 85 19 sta SCRATCH0
0071C8 2 A4 06 ldy PARAM0
0071CA 2 B9 74 63 lda DIV7_2,y
0071CD 2 A8 tay
0071CE 2
0071CE 2 C8 iny
0071CF 2 A9 10 lda #%00010000
0071D1 2 11 19 ora (SCRATCH0),y
0071D3 2 91 19 sta (SCRATCH0),y
0071D5 2 C8 iny
0071D6 2 A9 08 lda #%00001000
0071D8 2 11 19 ora (SCRATCH0),y
0071DA 2 91 19 sta (SCRATCH0),y
0071DC 2 C8 iny
0071DD 2
0071DD 2 E8 inx
0071DE 2 BD DC 60 lda HGRROWS_H,x
0071E1 2 85 1A sta SCRATCH1
0071E3 2 BD 9C 61 lda HGRROWS_L,x
0071E6 2 85 19 sta SCRATCH0
0071E8 2 A4 06 ldy PARAM0
0071EA 2 B9 74 63 lda DIV7_2,y
0071ED 2 A8 tay
0071EE 2
0071EE 2 C8 iny
0071EF 2 A9 10 lda #%00010000
0071F1 2 11 19 ora (SCRATCH0),y
0071F3 2 91 19 sta (SCRATCH0),y
0071F5 2 C8 iny
0071F6 2 A9 08 lda #%00001000
0071F8 2 11 19 ora (SCRATCH0),y
0071FA 2 91 19 sta (SCRATCH0),y
0071FC 2 C8 iny
0071FD 2
0071FD 2 E8 inx
0071FE 2 BD DC 60 lda HGRROWS_H,x
007201 2 85 1A sta SCRATCH1
007203 2 BD 9C 61 lda HGRROWS_L,x
007206 2 85 19 sta SCRATCH0
007208 2 A4 06 ldy PARAM0
00720A 2 B9 74 63 lda DIV7_2,y
00720D 2 A8 tay
00720E 2
00720E 2 C8 iny
00720F 2 A9 10 lda #%00010000
007211 2 11 19 ora (SCRATCH0),y
007213 2 91 19 sta (SCRATCH0),y
007215 2 C8 iny
007216 2 A9 08 lda #%00001000
007218 2 11 19 ora (SCRATCH0),y
00721A 2 91 19 sta (SCRATCH0),y
00721C 2 C8 iny
00721D 2
00721D 2 E8 inx
00721E 2 BD DC 60 lda HGRROWS_H,x
007221 2 85 1A sta SCRATCH1
007223 2 BD 9C 61 lda HGRROWS_L,x
007226 2 85 19 sta SCRATCH0
007228 2 A4 06 ldy PARAM0
00722A 2 B9 74 63 lda DIV7_2,y
00722D 2 A8 tay
00722E 2
00722E 2 C8 iny
00722F 2 A9 10 lda #%00010000
007231 2 11 19 ora (SCRATCH0),y
007233 2 91 19 sta (SCRATCH0),y
007235 2 C8 iny
007236 2 A9 08 lda #%00001000
007238 2 11 19 ora (SCRATCH0),y
00723A 2 91 19 sta (SCRATCH0),y
00723C 2 C8 iny
00723D 2
00723D 2 E8 inx
00723E 2 BD DC 60 lda HGRROWS_H,x
007241 2 85 1A sta SCRATCH1
007243 2 BD 9C 61 lda HGRROWS_L,x
007246 2 85 19 sta SCRATCH0
007248 2 A4 06 ldy PARAM0
00724A 2 B9 74 63 lda DIV7_2,y
00724D 2 A8 tay
00724E 2
00724E 2 C8 iny
00724F 2 A9 10 lda #%00010000
007251 2 11 19 ora (SCRATCH0),y
007253 2 91 19 sta (SCRATCH0),y
007255 2 C8 iny
007256 2 A9 08 lda #%00001000
007258 2 11 19 ora (SCRATCH0),y
00725A 2 91 19 sta (SCRATCH0),y
00725C 2 C8 iny
00725D 2
00725D 2 E8 inx
00725E 2 BD DC 60 lda HGRROWS_H,x
007261 2 85 1A sta SCRATCH1
007263 2 BD 9C 61 lda HGRROWS_L,x
007266 2 85 19 sta SCRATCH0
007268 2 A4 06 ldy PARAM0
00726A 2 B9 74 63 lda DIV7_2,y
00726D 2 A8 tay
00726E 2
00726E 2 C8 iny
00726F 2 A9 10 lda #%00010000
007271 2 11 19 ora (SCRATCH0),y
007273 2 91 19 sta (SCRATCH0),y
007275 2 C8 iny
007276 2 A9 08 lda #%00001000
007278 2 11 19 ora (SCRATCH0),y
00727A 2 91 19 sta (SCRATCH0),y
00727C 2 C8 iny
00727D 2
00727D 2 E8 inx
00727E 2 BD DC 60 lda HGRROWS_H,x
007281 2 85 1A sta SCRATCH1
007283 2 BD 9C 61 lda HGRROWS_L,x
007286 2 85 19 sta SCRATCH0
007288 2 A4 06 ldy PARAM0
00728A 2 B9 74 63 lda DIV7_2,y
00728D 2 A8 tay
00728E 2
00728E 2 C8 iny
00728F 2 A9 50 lda #%01010000
007291 2 11 19 ora (SCRATCH0),y
007293 2 91 19 sta (SCRATCH0),y
007295 2 C8 iny
007296 2 A9 0A lda #%00001010
007298 2 11 19 ora (SCRATCH0),y
00729A 2 91 19 sta (SCRATCH0),y
00729C 2 C8 iny
00729D 2
00729D 2 7A FA 68 RESTORE_AXY
0072A0 2 60 rts
0072A1 2
0072A1 2
0072A1 2
0072A1 2 BOX_GRN_SHIFT6:
0072A1 2 A4 06 ldy PARAM0
0072A3 2
0072A3 2 A6 07 ldx PARAM1
0072A5 2 BD DC 60 lda HGRROWS_H,x
0072A8 2 85 1A sta SCRATCH1
0072AA 2 BD 9C 61 lda HGRROWS_L,x
0072AD 2 85 19 sta SCRATCH0
0072AF 2 A4 06 ldy PARAM0
0072B1 2 B9 74 63 lda DIV7_2,y
0072B4 2 A8 tay
0072B5 2
0072B5 2 C8 iny
0072B6 2 A9 40 lda #%01000000
0072B8 2 11 19 ora (SCRATCH0),y
0072BA 2 91 19 sta (SCRATCH0),y
0072BC 2 C8 iny
0072BD 2 A9 2A lda #%00101010
0072BF 2 11 19 ora (SCRATCH0),y
0072C1 2 91 19 sta (SCRATCH0),y
0072C3 2 C8 iny
0072C4 2
0072C4 2 E8 inx
0072C5 2 BD DC 60 lda HGRROWS_H,x
0072C8 2 85 1A sta SCRATCH1
0072CA 2 BD 9C 61 lda HGRROWS_L,x
0072CD 2 85 19 sta SCRATCH0
0072CF 2 A4 06 ldy PARAM0
0072D1 2 B9 74 63 lda DIV7_2,y
0072D4 2 A8 tay
0072D5 2
0072D5 2 C8 iny
0072D6 2 A9 40 lda #%01000000
0072D8 2 11 19 ora (SCRATCH0),y
0072DA 2 91 19 sta (SCRATCH0),y
0072DC 2 C8 iny
0072DD 2 A9 20 lda #%00100000
0072DF 2 11 19 ora (SCRATCH0),y
0072E1 2 91 19 sta (SCRATCH0),y
0072E3 2 C8 iny
0072E4 2
0072E4 2 E8 inx
0072E5 2 BD DC 60 lda HGRROWS_H,x
0072E8 2 85 1A sta SCRATCH1
0072EA 2 BD 9C 61 lda HGRROWS_L,x
0072ED 2 85 19 sta SCRATCH0
0072EF 2 A4 06 ldy PARAM0
0072F1 2 B9 74 63 lda DIV7_2,y
0072F4 2 A8 tay
0072F5 2
0072F5 2 C8 iny
0072F6 2 A9 40 lda #%01000000
0072F8 2 11 19 ora (SCRATCH0),y
0072FA 2 91 19 sta (SCRATCH0),y
0072FC 2 C8 iny
0072FD 2 A9 20 lda #%00100000
0072FF 2 11 19 ora (SCRATCH0),y
007301 2 91 19 sta (SCRATCH0),y
007303 2 C8 iny
007304 2
007304 2 E8 inx
007305 2 BD DC 60 lda HGRROWS_H,x
007308 2 85 1A sta SCRATCH1
00730A 2 BD 9C 61 lda HGRROWS_L,x
00730D 2 85 19 sta SCRATCH0
00730F 2 A4 06 ldy PARAM0
007311 2 B9 74 63 lda DIV7_2,y
007314 2 A8 tay
007315 2
007315 2 C8 iny
007316 2 A9 40 lda #%01000000
007318 2 11 19 ora (SCRATCH0),y
00731A 2 91 19 sta (SCRATCH0),y
00731C 2 C8 iny
00731D 2 A9 20 lda #%00100000
00731F 2 11 19 ora (SCRATCH0),y
007321 2 91 19 sta (SCRATCH0),y
007323 2 C8 iny
007324 2
007324 2 E8 inx
007325 2 BD DC 60 lda HGRROWS_H,x
007328 2 85 1A sta SCRATCH1
00732A 2 BD 9C 61 lda HGRROWS_L,x
00732D 2 85 19 sta SCRATCH0
00732F 2 A4 06 ldy PARAM0
007331 2 B9 74 63 lda DIV7_2,y
007334 2 A8 tay
007335 2
007335 2 C8 iny
007336 2 A9 40 lda #%01000000
007338 2 11 19 ora (SCRATCH0),y
00733A 2 91 19 sta (SCRATCH0),y
00733C 2 C8 iny
00733D 2 A9 20 lda #%00100000
00733F 2 11 19 ora (SCRATCH0),y
007341 2 91 19 sta (SCRATCH0),y
007343 2 C8 iny
007344 2
007344 2 E8 inx
007345 2 BD DC 60 lda HGRROWS_H,x
007348 2 85 1A sta SCRATCH1
00734A 2 BD 9C 61 lda HGRROWS_L,x
00734D 2 85 19 sta SCRATCH0
00734F 2 A4 06 ldy PARAM0
007351 2 B9 74 63 lda DIV7_2,y
007354 2 A8 tay
007355 2
007355 2 C8 iny
007356 2 A9 40 lda #%01000000
007358 2 11 19 ora (SCRATCH0),y
00735A 2 91 19 sta (SCRATCH0),y
00735C 2 C8 iny
00735D 2 A9 20 lda #%00100000
00735F 2 11 19 ora (SCRATCH0),y
007361 2 91 19 sta (SCRATCH0),y
007363 2 C8 iny
007364 2
007364 2 E8 inx
007365 2 BD DC 60 lda HGRROWS_H,x
007368 2 85 1A sta SCRATCH1
00736A 2 BD 9C 61 lda HGRROWS_L,x
00736D 2 85 19 sta SCRATCH0
00736F 2 A4 06 ldy PARAM0
007371 2 B9 74 63 lda DIV7_2,y
007374 2 A8 tay
007375 2
007375 2 C8 iny
007376 2 A9 40 lda #%01000000
007378 2 11 19 ora (SCRATCH0),y
00737A 2 91 19 sta (SCRATCH0),y
00737C 2 C8 iny
00737D 2 A9 20 lda #%00100000
00737F 2 11 19 ora (SCRATCH0),y
007381 2 91 19 sta (SCRATCH0),y
007383 2 C8 iny
007384 2
007384 2 E8 inx
007385 2 BD DC 60 lda HGRROWS_H,x
007388 2 85 1A sta SCRATCH1
00738A 2 BD 9C 61 lda HGRROWS_L,x
00738D 2 85 19 sta SCRATCH0
00738F 2 A4 06 ldy PARAM0
007391 2 B9 74 63 lda DIV7_2,y
007394 2 A8 tay
007395 2
007395 2 C8 iny
007396 2 A9 40 lda #%01000000
007398 2 11 19 ora (SCRATCH0),y
00739A 2 91 19 sta (SCRATCH0),y
00739C 2 C8 iny
00739D 2 A9 2A lda #%00101010
00739F 2 11 19 ora (SCRATCH0),y
0073A1 2 91 19 sta (SCRATCH0),y
0073A3 2 C8 iny
0073A4 2
0073A4 2 7A FA 68 RESTORE_AXY
0073A7 2 60 rts
0073A8 2
0073A8 2
0073A8 2
0073A8 2
0073A8 1 .include "spritegen6.s"
0073A8 2 BOX_ORG: ;4 bytes per row
0073A8 2 48 DA 5A SAVE_AXY
0073AB 2 A4 06 ldy PARAM0
0073AD 2 BE 00 64 ldx MOD7_2,y
0073B0 2 7C B3 73 jmp (BOX_ORG_JMP,x)
0073B3 2
0073B3 2 BOX_ORG_JMP:
0073B3 2 C1 73 .addr BOX_ORG_SHIFT0
0073B5 2 C8 74 .addr BOX_ORG_SHIFT1
0073B7 2 CF 75 .addr BOX_ORG_SHIFT2
0073B9 2 D6 76 .addr BOX_ORG_SHIFT3
0073BB 2 AD 77 .addr BOX_ORG_SHIFT4
0073BD 2 B4 78 .addr BOX_ORG_SHIFT5
0073BF 2 BB 79 .addr BOX_ORG_SHIFT6
0073C1 2
0073C1 2
0073C1 2 BOX_ORG_SHIFT0:
0073C1 2 A4 06 ldy PARAM0
0073C3 2
0073C3 2 A6 07 ldx PARAM1
0073C5 2 BD DC 60 lda HGRROWS_H,x
0073C8 2 85 1A sta SCRATCH1
0073CA 2 BD 9C 61 lda HGRROWS_L,x
0073CD 2 85 19 sta SCRATCH0
0073CF 2 A4 06 ldy PARAM0
0073D1 2 B9 74 63 lda DIV7_2,y
0073D4 2 A8 tay
0073D5 2
0073D5 2 A9 AA lda #%10101010
0073D7 2 11 19 ora (SCRATCH0),y
0073D9 2 91 19 sta (SCRATCH0),y
0073DB 2 C8 iny
0073DC 2 A9 81 lda #%10000001
0073DE 2 11 19 ora (SCRATCH0),y
0073E0 2 91 19 sta (SCRATCH0),y
0073E2 2 C8 iny
0073E3 2 C8 iny
0073E4 2
0073E4 2 E8 inx
0073E5 2 BD DC 60 lda HGRROWS_H,x
0073E8 2 85 1A sta SCRATCH1
0073EA 2 BD 9C 61 lda HGRROWS_L,x
0073ED 2 85 19 sta SCRATCH0
0073EF 2 A4 06 ldy PARAM0
0073F1 2 B9 74 63 lda DIV7_2,y
0073F4 2 A8 tay
0073F5 2
0073F5 2 A9 82 lda #%10000010
0073F7 2 11 19 ora (SCRATCH0),y
0073F9 2 91 19 sta (SCRATCH0),y
0073FB 2 C8 iny
0073FC 2 A9 81 lda #%10000001
0073FE 2 11 19 ora (SCRATCH0),y
007400 2 91 19 sta (SCRATCH0),y
007402 2 C8 iny
007403 2 C8 iny
007404 2
007404 2 E8 inx
007405 2 BD DC 60 lda HGRROWS_H,x
007408 2 85 1A sta SCRATCH1
00740A 2 BD 9C 61 lda HGRROWS_L,x
00740D 2 85 19 sta SCRATCH0
00740F 2 A4 06 ldy PARAM0
007411 2 B9 74 63 lda DIV7_2,y
007414 2 A8 tay
007415 2
007415 2 A9 82 lda #%10000010
007417 2 11 19 ora (SCRATCH0),y
007419 2 91 19 sta (SCRATCH0),y
00741B 2 C8 iny
00741C 2 A9 81 lda #%10000001
00741E 2 11 19 ora (SCRATCH0),y
007420 2 91 19 sta (SCRATCH0),y
007422 2 C8 iny
007423 2 C8 iny
007424 2
007424 2 E8 inx
007425 2 BD DC 60 lda HGRROWS_H,x
007428 2 85 1A sta SCRATCH1
00742A 2 BD 9C 61 lda HGRROWS_L,x
00742D 2 85 19 sta SCRATCH0
00742F 2 A4 06 ldy PARAM0
007431 2 B9 74 63 lda DIV7_2,y
007434 2 A8 tay
007435 2
007435 2 A9 82 lda #%10000010
007437 2 11 19 ora (SCRATCH0),y
007439 2 91 19 sta (SCRATCH0),y
00743B 2 C8 iny
00743C 2 A9 81 lda #%10000001
00743E 2 11 19 ora (SCRATCH0),y
007440 2 91 19 sta (SCRATCH0),y
007442 2 C8 iny
007443 2 C8 iny
007444 2
007444 2 E8 inx
007445 2 BD DC 60 lda HGRROWS_H,x
007448 2 85 1A sta SCRATCH1
00744A 2 BD 9C 61 lda HGRROWS_L,x
00744D 2 85 19 sta SCRATCH0
00744F 2 A4 06 ldy PARAM0
007451 2 B9 74 63 lda DIV7_2,y
007454 2 A8 tay
007455 2
007455 2 A9 82 lda #%10000010
007457 2 11 19 ora (SCRATCH0),y
007459 2 91 19 sta (SCRATCH0),y
00745B 2 C8 iny
00745C 2 A9 81 lda #%10000001
00745E 2 11 19 ora (SCRATCH0),y
007460 2 91 19 sta (SCRATCH0),y
007462 2 C8 iny
007463 2 C8 iny
007464 2
007464 2 E8 inx
007465 2 BD DC 60 lda HGRROWS_H,x
007468 2 85 1A sta SCRATCH1
00746A 2 BD 9C 61 lda HGRROWS_L,x
00746D 2 85 19 sta SCRATCH0
00746F 2 A4 06 ldy PARAM0
007471 2 B9 74 63 lda DIV7_2,y
007474 2 A8 tay
007475 2
007475 2 A9 82 lda #%10000010
007477 2 11 19 ora (SCRATCH0),y
007479 2 91 19 sta (SCRATCH0),y
00747B 2 C8 iny
00747C 2 A9 81 lda #%10000001
00747E 2 11 19 ora (SCRATCH0),y
007480 2 91 19 sta (SCRATCH0),y
007482 2 C8 iny
007483 2 C8 iny
007484 2
007484 2 E8 inx
007485 2 BD DC 60 lda HGRROWS_H,x
007488 2 85 1A sta SCRATCH1
00748A 2 BD 9C 61 lda HGRROWS_L,x
00748D 2 85 19 sta SCRATCH0
00748F 2 A4 06 ldy PARAM0
007491 2 B9 74 63 lda DIV7_2,y
007494 2 A8 tay
007495 2
007495 2 A9 82 lda #%10000010
007497 2 11 19 ora (SCRATCH0),y
007499 2 91 19 sta (SCRATCH0),y
00749B 2 C8 iny
00749C 2 A9 81 lda #%10000001
00749E 2 11 19 ora (SCRATCH0),y
0074A0 2 91 19 sta (SCRATCH0),y
0074A2 2 C8 iny
0074A3 2 C8 iny
0074A4 2
0074A4 2 E8 inx
0074A5 2 BD DC 60 lda HGRROWS_H,x
0074A8 2 85 1A sta SCRATCH1
0074AA 2 BD 9C 61 lda HGRROWS_L,x
0074AD 2 85 19 sta SCRATCH0
0074AF 2 A4 06 ldy PARAM0
0074B1 2 B9 74 63 lda DIV7_2,y
0074B4 2 A8 tay
0074B5 2
0074B5 2 A9 AA lda #%10101010
0074B7 2 11 19 ora (SCRATCH0),y
0074B9 2 91 19 sta (SCRATCH0),y
0074BB 2 C8 iny
0074BC 2 A9 81 lda #%10000001
0074BE 2 11 19 ora (SCRATCH0),y
0074C0 2 91 19 sta (SCRATCH0),y
0074C2 2 C8 iny
0074C3 2 C8 iny
0074C4 2
0074C4 2 7A FA 68 RESTORE_AXY
0074C7 2 60 rts
0074C8 2
0074C8 2
0074C8 2
0074C8 2 BOX_ORG_SHIFT1:
0074C8 2 A4 06 ldy PARAM0
0074CA 2
0074CA 2 A6 07 ldx PARAM1
0074CC 2 BD DC 60 lda HGRROWS_H,x
0074CF 2 85 1A sta SCRATCH1
0074D1 2 BD 9C 61 lda HGRROWS_L,x
0074D4 2 85 19 sta SCRATCH0
0074D6 2 A4 06 ldy PARAM0
0074D8 2 B9 74 63 lda DIV7_2,y
0074DB 2 A8 tay
0074DC 2
0074DC 2 A9 A8 lda #%10101000
0074DE 2 11 19 ora (SCRATCH0),y
0074E0 2 91 19 sta (SCRATCH0),y
0074E2 2 C8 iny
0074E3 2 A9 85 lda #%10000101
0074E5 2 11 19 ora (SCRATCH0),y
0074E7 2 91 19 sta (SCRATCH0),y
0074E9 2 C8 iny
0074EA 2 C8 iny
0074EB 2
0074EB 2 E8 inx
0074EC 2 BD DC 60 lda HGRROWS_H,x
0074EF 2 85 1A sta SCRATCH1
0074F1 2 BD 9C 61 lda HGRROWS_L,x
0074F4 2 85 19 sta SCRATCH0
0074F6 2 A4 06 ldy PARAM0
0074F8 2 B9 74 63 lda DIV7_2,y
0074FB 2 A8 tay
0074FC 2
0074FC 2 A9 88 lda #%10001000
0074FE 2 11 19 ora (SCRATCH0),y
007500 2 91 19 sta (SCRATCH0),y
007502 2 C8 iny
007503 2 A9 84 lda #%10000100
007505 2 11 19 ora (SCRATCH0),y
007507 2 91 19 sta (SCRATCH0),y
007509 2 C8 iny
00750A 2 C8 iny
00750B 2
00750B 2 E8 inx
00750C 2 BD DC 60 lda HGRROWS_H,x
00750F 2 85 1A sta SCRATCH1
007511 2 BD 9C 61 lda HGRROWS_L,x
007514 2 85 19 sta SCRATCH0
007516 2 A4 06 ldy PARAM0
007518 2 B9 74 63 lda DIV7_2,y
00751B 2 A8 tay
00751C 2
00751C 2 A9 88 lda #%10001000
00751E 2 11 19 ora (SCRATCH0),y
007520 2 91 19 sta (SCRATCH0),y
007522 2 C8 iny
007523 2 A9 84 lda #%10000100
007525 2 11 19 ora (SCRATCH0),y
007527 2 91 19 sta (SCRATCH0),y
007529 2 C8 iny
00752A 2 C8 iny
00752B 2
00752B 2 E8 inx
00752C 2 BD DC 60 lda HGRROWS_H,x
00752F 2 85 1A sta SCRATCH1
007531 2 BD 9C 61 lda HGRROWS_L,x
007534 2 85 19 sta SCRATCH0
007536 2 A4 06 ldy PARAM0
007538 2 B9 74 63 lda DIV7_2,y
00753B 2 A8 tay
00753C 2
00753C 2 A9 88 lda #%10001000
00753E 2 11 19 ora (SCRATCH0),y
007540 2 91 19 sta (SCRATCH0),y
007542 2 C8 iny
007543 2 A9 84 lda #%10000100
007545 2 11 19 ora (SCRATCH0),y
007547 2 91 19 sta (SCRATCH0),y
007549 2 C8 iny
00754A 2 C8 iny
00754B 2
00754B 2 E8 inx
00754C 2 BD DC 60 lda HGRROWS_H,x
00754F 2 85 1A sta SCRATCH1
007551 2 BD 9C 61 lda HGRROWS_L,x
007554 2 85 19 sta SCRATCH0
007556 2 A4 06 ldy PARAM0
007558 2 B9 74 63 lda DIV7_2,y
00755B 2 A8 tay
00755C 2
00755C 2 A9 88 lda #%10001000
00755E 2 11 19 ora (SCRATCH0),y
007560 2 91 19 sta (SCRATCH0),y
007562 2 C8 iny
007563 2 A9 84 lda #%10000100
007565 2 11 19 ora (SCRATCH0),y
007567 2 91 19 sta (SCRATCH0),y
007569 2 C8 iny
00756A 2 C8 iny
00756B 2
00756B 2 E8 inx
00756C 2 BD DC 60 lda HGRROWS_H,x
00756F 2 85 1A sta SCRATCH1
007571 2 BD 9C 61 lda HGRROWS_L,x
007574 2 85 19 sta SCRATCH0
007576 2 A4 06 ldy PARAM0
007578 2 B9 74 63 lda DIV7_2,y
00757B 2 A8 tay
00757C 2
00757C 2 A9 88 lda #%10001000
00757E 2 11 19 ora (SCRATCH0),y
007580 2 91 19 sta (SCRATCH0),y
007582 2 C8 iny
007583 2 A9 84 lda #%10000100
007585 2 11 19 ora (SCRATCH0),y
007587 2 91 19 sta (SCRATCH0),y
007589 2 C8 iny
00758A 2 C8 iny
00758B 2
00758B 2 E8 inx
00758C 2 BD DC 60 lda HGRROWS_H,x
00758F 2 85 1A sta SCRATCH1
007591 2 BD 9C 61 lda HGRROWS_L,x
007594 2 85 19 sta SCRATCH0
007596 2 A4 06 ldy PARAM0
007598 2 B9 74 63 lda DIV7_2,y
00759B 2 A8 tay
00759C 2
00759C 2 A9 88 lda #%10001000
00759E 2 11 19 ora (SCRATCH0),y
0075A0 2 91 19 sta (SCRATCH0),y
0075A2 2 C8 iny
0075A3 2 A9 84 lda #%10000100
0075A5 2 11 19 ora (SCRATCH0),y
0075A7 2 91 19 sta (SCRATCH0),y
0075A9 2 C8 iny
0075AA 2 C8 iny
0075AB 2
0075AB 2 E8 inx
0075AC 2 BD DC 60 lda HGRROWS_H,x
0075AF 2 85 1A sta SCRATCH1
0075B1 2 BD 9C 61 lda HGRROWS_L,x
0075B4 2 85 19 sta SCRATCH0
0075B6 2 A4 06 ldy PARAM0
0075B8 2 B9 74 63 lda DIV7_2,y
0075BB 2 A8 tay
0075BC 2
0075BC 2 A9 A8 lda #%10101000
0075BE 2 11 19 ora (SCRATCH0),y
0075C0 2 91 19 sta (SCRATCH0),y
0075C2 2 C8 iny
0075C3 2 A9 85 lda #%10000101
0075C5 2 11 19 ora (SCRATCH0),y
0075C7 2 91 19 sta (SCRATCH0),y
0075C9 2 C8 iny
0075CA 2 C8 iny
0075CB 2
0075CB 2 7A FA 68 RESTORE_AXY
0075CE 2 60 rts
0075CF 2
0075CF 2
0075CF 2
0075CF 2 BOX_ORG_SHIFT2:
0075CF 2 A4 06 ldy PARAM0
0075D1 2
0075D1 2 A6 07 ldx PARAM1
0075D3 2 BD DC 60 lda HGRROWS_H,x
0075D6 2 85 1A sta SCRATCH1
0075D8 2 BD 9C 61 lda HGRROWS_L,x
0075DB 2 85 19 sta SCRATCH0
0075DD 2 A4 06 ldy PARAM0
0075DF 2 B9 74 63 lda DIV7_2,y
0075E2 2 A8 tay
0075E3 2
0075E3 2 A9 A0 lda #%10100000
0075E5 2 11 19 ora (SCRATCH0),y
0075E7 2 91 19 sta (SCRATCH0),y
0075E9 2 C8 iny
0075EA 2 A9 95 lda #%10010101
0075EC 2 11 19 ora (SCRATCH0),y
0075EE 2 91 19 sta (SCRATCH0),y
0075F0 2 C8 iny
0075F1 2 C8 iny
0075F2 2
0075F2 2 E8 inx
0075F3 2 BD DC 60 lda HGRROWS_H,x
0075F6 2 85 1A sta SCRATCH1
0075F8 2 BD 9C 61 lda HGRROWS_L,x
0075FB 2 85 19 sta SCRATCH0
0075FD 2 A4 06 ldy PARAM0
0075FF 2 B9 74 63 lda DIV7_2,y
007602 2 A8 tay
007603 2
007603 2 A9 A0 lda #%10100000
007605 2 11 19 ora (SCRATCH0),y
007607 2 91 19 sta (SCRATCH0),y
007609 2 C8 iny
00760A 2 A9 90 lda #%10010000
00760C 2 11 19 ora (SCRATCH0),y
00760E 2 91 19 sta (SCRATCH0),y
007610 2 C8 iny
007611 2 C8 iny
007612 2
007612 2 E8 inx
007613 2 BD DC 60 lda HGRROWS_H,x
007616 2 85 1A sta SCRATCH1
007618 2 BD 9C 61 lda HGRROWS_L,x
00761B 2 85 19 sta SCRATCH0
00761D 2 A4 06 ldy PARAM0
00761F 2 B9 74 63 lda DIV7_2,y
007622 2 A8 tay
007623 2
007623 2 A9 A0 lda #%10100000
007625 2 11 19 ora (SCRATCH0),y
007627 2 91 19 sta (SCRATCH0),y
007629 2 C8 iny
00762A 2 A9 90 lda #%10010000
00762C 2 11 19 ora (SCRATCH0),y
00762E 2 91 19 sta (SCRATCH0),y
007630 2 C8 iny
007631 2 C8 iny
007632 2
007632 2 E8 inx
007633 2 BD DC 60 lda HGRROWS_H,x
007636 2 85 1A sta SCRATCH1
007638 2 BD 9C 61 lda HGRROWS_L,x
00763B 2 85 19 sta SCRATCH0
00763D 2 A4 06 ldy PARAM0
00763F 2 B9 74 63 lda DIV7_2,y
007642 2 A8 tay
007643 2
007643 2 A9 A0 lda #%10100000
007645 2 11 19 ora (SCRATCH0),y
007647 2 91 19 sta (SCRATCH0),y
007649 2 C8 iny
00764A 2 A9 90 lda #%10010000
00764C 2 11 19 ora (SCRATCH0),y
00764E 2 91 19 sta (SCRATCH0),y
007650 2 C8 iny
007651 2 C8 iny
007652 2
007652 2 E8 inx
007653 2 BD DC 60 lda HGRROWS_H,x
007656 2 85 1A sta SCRATCH1
007658 2 BD 9C 61 lda HGRROWS_L,x
00765B 2 85 19 sta SCRATCH0
00765D 2 A4 06 ldy PARAM0
00765F 2 B9 74 63 lda DIV7_2,y
007662 2 A8 tay
007663 2
007663 2 A9 A0 lda #%10100000
007665 2 11 19 ora (SCRATCH0),y
007667 2 91 19 sta (SCRATCH0),y
007669 2 C8 iny
00766A 2 A9 90 lda #%10010000
00766C 2 11 19 ora (SCRATCH0),y
00766E 2 91 19 sta (SCRATCH0),y
007670 2 C8 iny
007671 2 C8 iny
007672 2
007672 2 E8 inx
007673 2 BD DC 60 lda HGRROWS_H,x
007676 2 85 1A sta SCRATCH1
007678 2 BD 9C 61 lda HGRROWS_L,x
00767B 2 85 19 sta SCRATCH0
00767D 2 A4 06 ldy PARAM0
00767F 2 B9 74 63 lda DIV7_2,y
007682 2 A8 tay
007683 2
007683 2 A9 A0 lda #%10100000
007685 2 11 19 ora (SCRATCH0),y
007687 2 91 19 sta (SCRATCH0),y
007689 2 C8 iny
00768A 2 A9 90 lda #%10010000
00768C 2 11 19 ora (SCRATCH0),y
00768E 2 91 19 sta (SCRATCH0),y
007690 2 C8 iny
007691 2 C8 iny
007692 2
007692 2 E8 inx
007693 2 BD DC 60 lda HGRROWS_H,x
007696 2 85 1A sta SCRATCH1
007698 2 BD 9C 61 lda HGRROWS_L,x
00769B 2 85 19 sta SCRATCH0
00769D 2 A4 06 ldy PARAM0
00769F 2 B9 74 63 lda DIV7_2,y
0076A2 2 A8 tay
0076A3 2
0076A3 2 A9 A0 lda #%10100000
0076A5 2 11 19 ora (SCRATCH0),y
0076A7 2 91 19 sta (SCRATCH0),y
0076A9 2 C8 iny
0076AA 2 A9 90 lda #%10010000
0076AC 2 11 19 ora (SCRATCH0),y
0076AE 2 91 19 sta (SCRATCH0),y
0076B0 2 C8 iny
0076B1 2 C8 iny
0076B2 2
0076B2 2 E8 inx
0076B3 2 BD DC 60 lda HGRROWS_H,x
0076B6 2 85 1A sta SCRATCH1
0076B8 2 BD 9C 61 lda HGRROWS_L,x
0076BB 2 85 19 sta SCRATCH0
0076BD 2 A4 06 ldy PARAM0
0076BF 2 B9 74 63 lda DIV7_2,y
0076C2 2 A8 tay
0076C3 2
0076C3 2 A9 A0 lda #%10100000
0076C5 2 11 19 ora (SCRATCH0),y
0076C7 2 91 19 sta (SCRATCH0),y
0076C9 2 C8 iny
0076CA 2 A9 95 lda #%10010101
0076CC 2 11 19 ora (SCRATCH0),y
0076CE 2 91 19 sta (SCRATCH0),y
0076D0 2 C8 iny
0076D1 2 C8 iny
0076D2 2
0076D2 2 7A FA 68 RESTORE_AXY
0076D5 2 60 rts
0076D6 2
0076D6 2
0076D6 2
0076D6 2 BOX_ORG_SHIFT3:
0076D6 2 A4 06 ldy PARAM0
0076D8 2
0076D8 2 A6 07 ldx PARAM1
0076DA 2 BD DC 60 lda HGRROWS_H,x
0076DD 2 85 1A sta SCRATCH1
0076DF 2 BD 9C 61 lda HGRROWS_L,x
0076E2 2 85 19 sta SCRATCH0
0076E4 2 A4 06 ldy PARAM0
0076E6 2 B9 74 63 lda DIV7_2,y
0076E9 2 A8 tay
0076EA 2
0076EA 2 C8 iny
0076EB 2 A9 D5 lda #%11010101
0076ED 2 11 19 ora (SCRATCH0),y
0076EF 2 91 19 sta (SCRATCH0),y
0076F1 2 C8 iny
0076F2 2 C8 iny
0076F3 2
0076F3 2 E8 inx
0076F4 2 BD DC 60 lda HGRROWS_H,x
0076F7 2 85 1A sta SCRATCH1
0076F9 2 BD 9C 61 lda HGRROWS_L,x
0076FC 2 85 19 sta SCRATCH0
0076FE 2 A4 06 ldy PARAM0
007700 2 B9 74 63 lda DIV7_2,y
007703 2 A8 tay
007704 2
007704 2 C8 iny
007705 2 A9 C1 lda #%11000001
007707 2 11 19 ora (SCRATCH0),y
007709 2 91 19 sta (SCRATCH0),y
00770B 2 C8 iny
00770C 2 C8 iny
00770D 2
00770D 2 E8 inx
00770E 2 BD DC 60 lda HGRROWS_H,x
007711 2 85 1A sta SCRATCH1
007713 2 BD 9C 61 lda HGRROWS_L,x
007716 2 85 19 sta SCRATCH0
007718 2 A4 06 ldy PARAM0
00771A 2 B9 74 63 lda DIV7_2,y
00771D 2 A8 tay
00771E 2
00771E 2 C8 iny
00771F 2 A9 C1 lda #%11000001
007721 2 11 19 ora (SCRATCH0),y
007723 2 91 19 sta (SCRATCH0),y
007725 2 C8 iny
007726 2 C8 iny
007727 2
007727 2 E8 inx
007728 2 BD DC 60 lda HGRROWS_H,x
00772B 2 85 1A sta SCRATCH1
00772D 2 BD 9C 61 lda HGRROWS_L,x
007730 2 85 19 sta SCRATCH0
007732 2 A4 06 ldy PARAM0
007734 2 B9 74 63 lda DIV7_2,y
007737 2 A8 tay
007738 2
007738 2 C8 iny
007739 2 A9 C1 lda #%11000001
00773B 2 11 19 ora (SCRATCH0),y
00773D 2 91 19 sta (SCRATCH0),y
00773F 2 C8 iny
007740 2 C8 iny
007741 2
007741 2 E8 inx
007742 2 BD DC 60 lda HGRROWS_H,x
007745 2 85 1A sta SCRATCH1
007747 2 BD 9C 61 lda HGRROWS_L,x
00774A 2 85 19 sta SCRATCH0
00774C 2 A4 06 ldy PARAM0
00774E 2 B9 74 63 lda DIV7_2,y
007751 2 A8 tay
007752 2
007752 2 C8 iny
007753 2 A9 C1 lda #%11000001
007755 2 11 19 ora (SCRATCH0),y
007757 2 91 19 sta (SCRATCH0),y
007759 2 C8 iny
00775A 2 C8 iny
00775B 2
00775B 2 E8 inx
00775C 2 BD DC 60 lda HGRROWS_H,x
00775F 2 85 1A sta SCRATCH1
007761 2 BD 9C 61 lda HGRROWS_L,x
007764 2 85 19 sta SCRATCH0
007766 2 A4 06 ldy PARAM0
007768 2 B9 74 63 lda DIV7_2,y
00776B 2 A8 tay
00776C 2
00776C 2 C8 iny
00776D 2 A9 C1 lda #%11000001
00776F 2 11 19 ora (SCRATCH0),y
007771 2 91 19 sta (SCRATCH0),y
007773 2 C8 iny
007774 2 C8 iny
007775 2
007775 2 E8 inx
007776 2 BD DC 60 lda HGRROWS_H,x
007779 2 85 1A sta SCRATCH1
00777B 2 BD 9C 61 lda HGRROWS_L,x
00777E 2 85 19 sta SCRATCH0
007780 2 A4 06 ldy PARAM0
007782 2 B9 74 63 lda DIV7_2,y
007785 2 A8 tay
007786 2
007786 2 C8 iny
007787 2 A9 C1 lda #%11000001
007789 2 11 19 ora (SCRATCH0),y
00778B 2 91 19 sta (SCRATCH0),y
00778D 2 C8 iny
00778E 2 C8 iny
00778F 2
00778F 2 E8 inx
007790 2 BD DC 60 lda HGRROWS_H,x
007793 2 85 1A sta SCRATCH1
007795 2 BD 9C 61 lda HGRROWS_L,x
007798 2 85 19 sta SCRATCH0
00779A 2 A4 06 ldy PARAM0
00779C 2 B9 74 63 lda DIV7_2,y
00779F 2 A8 tay
0077A0 2
0077A0 2 C8 iny
0077A1 2 A9 D5 lda #%11010101
0077A3 2 11 19 ora (SCRATCH0),y
0077A5 2 91 19 sta (SCRATCH0),y
0077A7 2 C8 iny
0077A8 2 C8 iny
0077A9 2
0077A9 2 7A FA 68 RESTORE_AXY
0077AC 2 60 rts
0077AD 2
0077AD 2
0077AD 2
0077AD 2 BOX_ORG_SHIFT4:
0077AD 2 A4 06 ldy PARAM0
0077AF 2
0077AF 2 A6 07 ldx PARAM1
0077B1 2 BD DC 60 lda HGRROWS_H,x
0077B4 2 85 1A sta SCRATCH1
0077B6 2 BD 9C 61 lda HGRROWS_L,x
0077B9 2 85 19 sta SCRATCH0
0077BB 2 A4 06 ldy PARAM0
0077BD 2 B9 74 63 lda DIV7_2,y
0077C0 2 A8 tay
0077C1 2
0077C1 2 C8 iny
0077C2 2 A9 D4 lda #%11010100
0077C4 2 11 19 ora (SCRATCH0),y
0077C6 2 91 19 sta (SCRATCH0),y
0077C8 2 C8 iny
0077C9 2 A9 82 lda #%10000010
0077CB 2 11 19 ora (SCRATCH0),y
0077CD 2 91 19 sta (SCRATCH0),y
0077CF 2 C8 iny
0077D0 2
0077D0 2 E8 inx
0077D1 2 BD DC 60 lda HGRROWS_H,x
0077D4 2 85 1A sta SCRATCH1
0077D6 2 BD 9C 61 lda HGRROWS_L,x
0077D9 2 85 19 sta SCRATCH0
0077DB 2 A4 06 ldy PARAM0
0077DD 2 B9 74 63 lda DIV7_2,y
0077E0 2 A8 tay
0077E1 2
0077E1 2 C8 iny
0077E2 2 A9 84 lda #%10000100
0077E4 2 11 19 ora (SCRATCH0),y
0077E6 2 91 19 sta (SCRATCH0),y
0077E8 2 C8 iny
0077E9 2 A9 82 lda #%10000010
0077EB 2 11 19 ora (SCRATCH0),y
0077ED 2 91 19 sta (SCRATCH0),y
0077EF 2 C8 iny
0077F0 2
0077F0 2 E8 inx
0077F1 2 BD DC 60 lda HGRROWS_H,x
0077F4 2 85 1A sta SCRATCH1
0077F6 2 BD 9C 61 lda HGRROWS_L,x
0077F9 2 85 19 sta SCRATCH0
0077FB 2 A4 06 ldy PARAM0
0077FD 2 B9 74 63 lda DIV7_2,y
007800 2 A8 tay
007801 2
007801 2 C8 iny
007802 2 A9 84 lda #%10000100
007804 2 11 19 ora (SCRATCH0),y
007806 2 91 19 sta (SCRATCH0),y
007808 2 C8 iny
007809 2 A9 82 lda #%10000010
00780B 2 11 19 ora (SCRATCH0),y
00780D 2 91 19 sta (SCRATCH0),y
00780F 2 C8 iny
007810 2
007810 2 E8 inx
007811 2 BD DC 60 lda HGRROWS_H,x
007814 2 85 1A sta SCRATCH1
007816 2 BD 9C 61 lda HGRROWS_L,x
007819 2 85 19 sta SCRATCH0
00781B 2 A4 06 ldy PARAM0
00781D 2 B9 74 63 lda DIV7_2,y
007820 2 A8 tay
007821 2
007821 2 C8 iny
007822 2 A9 84 lda #%10000100
007824 2 11 19 ora (SCRATCH0),y
007826 2 91 19 sta (SCRATCH0),y
007828 2 C8 iny
007829 2 A9 82 lda #%10000010
00782B 2 11 19 ora (SCRATCH0),y
00782D 2 91 19 sta (SCRATCH0),y
00782F 2 C8 iny
007830 2
007830 2 E8 inx
007831 2 BD DC 60 lda HGRROWS_H,x
007834 2 85 1A sta SCRATCH1
007836 2 BD 9C 61 lda HGRROWS_L,x
007839 2 85 19 sta SCRATCH0
00783B 2 A4 06 ldy PARAM0
00783D 2 B9 74 63 lda DIV7_2,y
007840 2 A8 tay
007841 2
007841 2 C8 iny
007842 2 A9 84 lda #%10000100
007844 2 11 19 ora (SCRATCH0),y
007846 2 91 19 sta (SCRATCH0),y
007848 2 C8 iny
007849 2 A9 82 lda #%10000010
00784B 2 11 19 ora (SCRATCH0),y
00784D 2 91 19 sta (SCRATCH0),y
00784F 2 C8 iny
007850 2
007850 2 E8 inx
007851 2 BD DC 60 lda HGRROWS_H,x
007854 2 85 1A sta SCRATCH1
007856 2 BD 9C 61 lda HGRROWS_L,x
007859 2 85 19 sta SCRATCH0
00785B 2 A4 06 ldy PARAM0
00785D 2 B9 74 63 lda DIV7_2,y
007860 2 A8 tay
007861 2
007861 2 C8 iny
007862 2 A9 84 lda #%10000100
007864 2 11 19 ora (SCRATCH0),y
007866 2 91 19 sta (SCRATCH0),y
007868 2 C8 iny
007869 2 A9 82 lda #%10000010
00786B 2 11 19 ora (SCRATCH0),y
00786D 2 91 19 sta (SCRATCH0),y
00786F 2 C8 iny
007870 2
007870 2 E8 inx
007871 2 BD DC 60 lda HGRROWS_H,x
007874 2 85 1A sta SCRATCH1
007876 2 BD 9C 61 lda HGRROWS_L,x
007879 2 85 19 sta SCRATCH0
00787B 2 A4 06 ldy PARAM0
00787D 2 B9 74 63 lda DIV7_2,y
007880 2 A8 tay
007881 2
007881 2 C8 iny
007882 2 A9 84 lda #%10000100
007884 2 11 19 ora (SCRATCH0),y
007886 2 91 19 sta (SCRATCH0),y
007888 2 C8 iny
007889 2 A9 82 lda #%10000010
00788B 2 11 19 ora (SCRATCH0),y
00788D 2 91 19 sta (SCRATCH0),y
00788F 2 C8 iny
007890 2
007890 2 E8 inx
007891 2 BD DC 60 lda HGRROWS_H,x
007894 2 85 1A sta SCRATCH1
007896 2 BD 9C 61 lda HGRROWS_L,x
007899 2 85 19 sta SCRATCH0
00789B 2 A4 06 ldy PARAM0
00789D 2 B9 74 63 lda DIV7_2,y
0078A0 2 A8 tay
0078A1 2
0078A1 2 C8 iny
0078A2 2 A9 D4 lda #%11010100
0078A4 2 11 19 ora (SCRATCH0),y
0078A6 2 91 19 sta (SCRATCH0),y
0078A8 2 C8 iny
0078A9 2 A9 82 lda #%10000010
0078AB 2 11 19 ora (SCRATCH0),y
0078AD 2 91 19 sta (SCRATCH0),y
0078AF 2 C8 iny
0078B0 2
0078B0 2 7A FA 68 RESTORE_AXY
0078B3 2 60 rts
0078B4 2
0078B4 2
0078B4 2
0078B4 2 BOX_ORG_SHIFT5:
0078B4 2 A4 06 ldy PARAM0
0078B6 2
0078B6 2 A6 07 ldx PARAM1
0078B8 2 BD DC 60 lda HGRROWS_H,x
0078BB 2 85 1A sta SCRATCH1
0078BD 2 BD 9C 61 lda HGRROWS_L,x
0078C0 2 85 19 sta SCRATCH0
0078C2 2 A4 06 ldy PARAM0
0078C4 2 B9 74 63 lda DIV7_2,y
0078C7 2 A8 tay
0078C8 2
0078C8 2 C8 iny
0078C9 2 A9 D0 lda #%11010000
0078CB 2 11 19 ora (SCRATCH0),y
0078CD 2 91 19 sta (SCRATCH0),y
0078CF 2 C8 iny
0078D0 2 A9 8A lda #%10001010
0078D2 2 11 19 ora (SCRATCH0),y
0078D4 2 91 19 sta (SCRATCH0),y
0078D6 2 C8 iny
0078D7 2
0078D7 2 E8 inx
0078D8 2 BD DC 60 lda HGRROWS_H,x
0078DB 2 85 1A sta SCRATCH1
0078DD 2 BD 9C 61 lda HGRROWS_L,x
0078E0 2 85 19 sta SCRATCH0
0078E2 2 A4 06 ldy PARAM0
0078E4 2 B9 74 63 lda DIV7_2,y
0078E7 2 A8 tay
0078E8 2
0078E8 2 C8 iny
0078E9 2 A9 90 lda #%10010000
0078EB 2 11 19 ora (SCRATCH0),y
0078ED 2 91 19 sta (SCRATCH0),y
0078EF 2 C8 iny
0078F0 2 A9 88 lda #%10001000
0078F2 2 11 19 ora (SCRATCH0),y
0078F4 2 91 19 sta (SCRATCH0),y
0078F6 2 C8 iny
0078F7 2
0078F7 2 E8 inx
0078F8 2 BD DC 60 lda HGRROWS_H,x
0078FB 2 85 1A sta SCRATCH1
0078FD 2 BD 9C 61 lda HGRROWS_L,x
007900 2 85 19 sta SCRATCH0
007902 2 A4 06 ldy PARAM0
007904 2 B9 74 63 lda DIV7_2,y
007907 2 A8 tay
007908 2
007908 2 C8 iny
007909 2 A9 90 lda #%10010000
00790B 2 11 19 ora (SCRATCH0),y
00790D 2 91 19 sta (SCRATCH0),y
00790F 2 C8 iny
007910 2 A9 88 lda #%10001000
007912 2 11 19 ora (SCRATCH0),y
007914 2 91 19 sta (SCRATCH0),y
007916 2 C8 iny
007917 2
007917 2 E8 inx
007918 2 BD DC 60 lda HGRROWS_H,x
00791B 2 85 1A sta SCRATCH1
00791D 2 BD 9C 61 lda HGRROWS_L,x
007920 2 85 19 sta SCRATCH0
007922 2 A4 06 ldy PARAM0
007924 2 B9 74 63 lda DIV7_2,y
007927 2 A8 tay
007928 2
007928 2 C8 iny
007929 2 A9 90 lda #%10010000
00792B 2 11 19 ora (SCRATCH0),y
00792D 2 91 19 sta (SCRATCH0),y
00792F 2 C8 iny
007930 2 A9 88 lda #%10001000
007932 2 11 19 ora (SCRATCH0),y
007934 2 91 19 sta (SCRATCH0),y
007936 2 C8 iny
007937 2
007937 2 E8 inx
007938 2 BD DC 60 lda HGRROWS_H,x
00793B 2 85 1A sta SCRATCH1
00793D 2 BD 9C 61 lda HGRROWS_L,x
007940 2 85 19 sta SCRATCH0
007942 2 A4 06 ldy PARAM0
007944 2 B9 74 63 lda DIV7_2,y
007947 2 A8 tay
007948 2
007948 2 C8 iny
007949 2 A9 90 lda #%10010000
00794B 2 11 19 ora (SCRATCH0),y
00794D 2 91 19 sta (SCRATCH0),y
00794F 2 C8 iny
007950 2 A9 88 lda #%10001000
007952 2 11 19 ora (SCRATCH0),y
007954 2 91 19 sta (SCRATCH0),y
007956 2 C8 iny
007957 2
007957 2 E8 inx
007958 2 BD DC 60 lda HGRROWS_H,x
00795B 2 85 1A sta SCRATCH1
00795D 2 BD 9C 61 lda HGRROWS_L,x
007960 2 85 19 sta SCRATCH0
007962 2 A4 06 ldy PARAM0
007964 2 B9 74 63 lda DIV7_2,y
007967 2 A8 tay
007968 2
007968 2 C8 iny
007969 2 A9 90 lda #%10010000
00796B 2 11 19 ora (SCRATCH0),y
00796D 2 91 19 sta (SCRATCH0),y
00796F 2 C8 iny
007970 2 A9 88 lda #%10001000
007972 2 11 19 ora (SCRATCH0),y
007974 2 91 19 sta (SCRATCH0),y
007976 2 C8 iny
007977 2
007977 2 E8 inx
007978 2 BD DC 60 lda HGRROWS_H,x
00797B 2 85 1A sta SCRATCH1
00797D 2 BD 9C 61 lda HGRROWS_L,x
007980 2 85 19 sta SCRATCH0
007982 2 A4 06 ldy PARAM0
007984 2 B9 74 63 lda DIV7_2,y
007987 2 A8 tay
007988 2
007988 2 C8 iny
007989 2 A9 90 lda #%10010000
00798B 2 11 19 ora (SCRATCH0),y
00798D 2 91 19 sta (SCRATCH0),y
00798F 2 C8 iny
007990 2 A9 88 lda #%10001000
007992 2 11 19 ora (SCRATCH0),y
007994 2 91 19 sta (SCRATCH0),y
007996 2 C8 iny
007997 2
007997 2 E8 inx
007998 2 BD DC 60 lda HGRROWS_H,x
00799B 2 85 1A sta SCRATCH1
00799D 2 BD 9C 61 lda HGRROWS_L,x
0079A0 2 85 19 sta SCRATCH0
0079A2 2 A4 06 ldy PARAM0
0079A4 2 B9 74 63 lda DIV7_2,y
0079A7 2 A8 tay
0079A8 2
0079A8 2 C8 iny
0079A9 2 A9 D0 lda #%11010000
0079AB 2 11 19 ora (SCRATCH0),y
0079AD 2 91 19 sta (SCRATCH0),y
0079AF 2 C8 iny
0079B0 2 A9 8A lda #%10001010
0079B2 2 11 19 ora (SCRATCH0),y
0079B4 2 91 19 sta (SCRATCH0),y
0079B6 2 C8 iny
0079B7 2
0079B7 2 7A FA 68 RESTORE_AXY
0079BA 2 60 rts
0079BB 2
0079BB 2
0079BB 2
0079BB 2 BOX_ORG_SHIFT6:
0079BB 2 A4 06 ldy PARAM0
0079BD 2
0079BD 2 A6 07 ldx PARAM1
0079BF 2 BD DC 60 lda HGRROWS_H,x
0079C2 2 85 1A sta SCRATCH1
0079C4 2 BD 9C 61 lda HGRROWS_L,x
0079C7 2 85 19 sta SCRATCH0
0079C9 2 A4 06 ldy PARAM0
0079CB 2 B9 74 63 lda DIV7_2,y
0079CE 2 A8 tay
0079CF 2
0079CF 2 C8 iny
0079D0 2 A9 C0 lda #%11000000
0079D2 2 11 19 ora (SCRATCH0),y
0079D4 2 91 19 sta (SCRATCH0),y
0079D6 2 C8 iny
0079D7 2 A9 AA lda #%10101010
0079D9 2 11 19 ora (SCRATCH0),y
0079DB 2 91 19 sta (SCRATCH0),y
0079DD 2 C8 iny
0079DE 2
0079DE 2 E8 inx
0079DF 2 BD DC 60 lda HGRROWS_H,x
0079E2 2 85 1A sta SCRATCH1
0079E4 2 BD 9C 61 lda HGRROWS_L,x
0079E7 2 85 19 sta SCRATCH0
0079E9 2 A4 06 ldy PARAM0
0079EB 2 B9 74 63 lda DIV7_2,y
0079EE 2 A8 tay
0079EF 2
0079EF 2 C8 iny
0079F0 2 A9 C0 lda #%11000000
0079F2 2 11 19 ora (SCRATCH0),y
0079F4 2 91 19 sta (SCRATCH0),y
0079F6 2 C8 iny
0079F7 2 A9 A0 lda #%10100000
0079F9 2 11 19 ora (SCRATCH0),y
0079FB 2 91 19 sta (SCRATCH0),y
0079FD 2 C8 iny
0079FE 2
0079FE 2 E8 inx
0079FF 2 BD DC 60 lda HGRROWS_H,x
007A02 2 85 1A sta SCRATCH1
007A04 2 BD 9C 61 lda HGRROWS_L,x
007A07 2 85 19 sta SCRATCH0
007A09 2 A4 06 ldy PARAM0
007A0B 2 B9 74 63 lda DIV7_2,y
007A0E 2 A8 tay
007A0F 2
007A0F 2 C8 iny
007A10 2 A9 C0 lda #%11000000
007A12 2 11 19 ora (SCRATCH0),y
007A14 2 91 19 sta (SCRATCH0),y
007A16 2 C8 iny
007A17 2 A9 A0 lda #%10100000
007A19 2 11 19 ora (SCRATCH0),y
007A1B 2 91 19 sta (SCRATCH0),y
007A1D 2 C8 iny
007A1E 2
007A1E 2 E8 inx
007A1F 2 BD DC 60 lda HGRROWS_H,x
007A22 2 85 1A sta SCRATCH1
007A24 2 BD 9C 61 lda HGRROWS_L,x
007A27 2 85 19 sta SCRATCH0
007A29 2 A4 06 ldy PARAM0
007A2B 2 B9 74 63 lda DIV7_2,y
007A2E 2 A8 tay
007A2F 2
007A2F 2 C8 iny
007A30 2 A9 C0 lda #%11000000
007A32 2 11 19 ora (SCRATCH0),y
007A34 2 91 19 sta (SCRATCH0),y
007A36 2 C8 iny
007A37 2 A9 A0 lda #%10100000
007A39 2 11 19 ora (SCRATCH0),y
007A3B 2 91 19 sta (SCRATCH0),y
007A3D 2 C8 iny
007A3E 2
007A3E 2 E8 inx
007A3F 2 BD DC 60 lda HGRROWS_H,x
007A42 2 85 1A sta SCRATCH1
007A44 2 BD 9C 61 lda HGRROWS_L,x
007A47 2 85 19 sta SCRATCH0
007A49 2 A4 06 ldy PARAM0
007A4B 2 B9 74 63 lda DIV7_2,y
007A4E 2 A8 tay
007A4F 2
007A4F 2 C8 iny
007A50 2 A9 C0 lda #%11000000
007A52 2 11 19 ora (SCRATCH0),y
007A54 2 91 19 sta (SCRATCH0),y
007A56 2 C8 iny
007A57 2 A9 A0 lda #%10100000
007A59 2 11 19 ora (SCRATCH0),y
007A5B 2 91 19 sta (SCRATCH0),y
007A5D 2 C8 iny
007A5E 2
007A5E 2 E8 inx
007A5F 2 BD DC 60 lda HGRROWS_H,x
007A62 2 85 1A sta SCRATCH1
007A64 2 BD 9C 61 lda HGRROWS_L,x
007A67 2 85 19 sta SCRATCH0
007A69 2 A4 06 ldy PARAM0
007A6B 2 B9 74 63 lda DIV7_2,y
007A6E 2 A8 tay
007A6F 2
007A6F 2 C8 iny
007A70 2 A9 C0 lda #%11000000
007A72 2 11 19 ora (SCRATCH0),y
007A74 2 91 19 sta (SCRATCH0),y
007A76 2 C8 iny
007A77 2 A9 A0 lda #%10100000
007A79 2 11 19 ora (SCRATCH0),y
007A7B 2 91 19 sta (SCRATCH0),y
007A7D 2 C8 iny
007A7E 2
007A7E 2 E8 inx
007A7F 2 BD DC 60 lda HGRROWS_H,x
007A82 2 85 1A sta SCRATCH1
007A84 2 BD 9C 61 lda HGRROWS_L,x
007A87 2 85 19 sta SCRATCH0
007A89 2 A4 06 ldy PARAM0
007A8B 2 B9 74 63 lda DIV7_2,y
007A8E 2 A8 tay
007A8F 2
007A8F 2 C8 iny
007A90 2 A9 C0 lda #%11000000
007A92 2 11 19 ora (SCRATCH0),y
007A94 2 91 19 sta (SCRATCH0),y
007A96 2 C8 iny
007A97 2 A9 A0 lda #%10100000
007A99 2 11 19 ora (SCRATCH0),y
007A9B 2 91 19 sta (SCRATCH0),y
007A9D 2 C8 iny
007A9E 2
007A9E 2 E8 inx
007A9F 2 BD DC 60 lda HGRROWS_H,x
007AA2 2 85 1A sta SCRATCH1
007AA4 2 BD 9C 61 lda HGRROWS_L,x
007AA7 2 85 19 sta SCRATCH0
007AA9 2 A4 06 ldy PARAM0
007AAB 2 B9 74 63 lda DIV7_2,y
007AAE 2 A8 tay
007AAF 2
007AAF 2 C8 iny
007AB0 2 A9 C0 lda #%11000000
007AB2 2 11 19 ora (SCRATCH0),y
007AB4 2 91 19 sta (SCRATCH0),y
007AB6 2 C8 iny
007AB7 2 A9 AA lda #%10101010
007AB9 2 11 19 ora (SCRATCH0),y
007ABB 2 91 19 sta (SCRATCH0),y
007ABD 2 C8 iny
007ABE 2
007ABE 2 7A FA 68 RESTORE_AXY
007AC1 2 60 rts
007AC2 2
007AC2 2
007AC2 2
007AC2 2
007AC2 1 .include "spritegen7.s"
007AC2 2 BOX_BLU: ;4 bytes per row
007AC2 2 48 DA 5A SAVE_AXY
007AC5 2 A4 06 ldy PARAM0
007AC7 2 BE 00 64 ldx MOD7_2,y
007ACA 2 7C CD 7A jmp (BOX_BLU_JMP,x)
007ACD 2
007ACD 2 BOX_BLU_JMP:
007ACD 2 DB 7A .addr BOX_BLU_SHIFT0
007ACF 2 B2 7B .addr BOX_BLU_SHIFT1
007AD1 2 B9 7C .addr BOX_BLU_SHIFT2
007AD3 2 C0 7D .addr BOX_BLU_SHIFT3
007AD5 2 C7 7E .addr BOX_BLU_SHIFT4
007AD7 2 CE 7F .addr BOX_BLU_SHIFT5
007AD9 2 D5 80 .addr BOX_BLU_SHIFT6
007ADB 2
007ADB 2
007ADB 2 BOX_BLU_SHIFT0:
007ADB 2 A4 06 ldy PARAM0
007ADD 2
007ADD 2 A6 07 ldx PARAM1
007ADF 2 BD DC 60 lda HGRROWS_H,x
007AE2 2 85 1A sta SCRATCH1
007AE4 2 BD 9C 61 lda HGRROWS_L,x
007AE7 2 85 19 sta SCRATCH0
007AE9 2 A4 06 ldy PARAM0
007AEB 2 B9 74 63 lda DIV7_2,y
007AEE 2 A8 tay
007AEF 2
007AEF 2 A9 D5 lda #%11010101
007AF1 2 11 19 ora (SCRATCH0),y
007AF3 2 91 19 sta (SCRATCH0),y
007AF5 2 C8 iny
007AF6 2 C8 iny
007AF7 2 C8 iny
007AF8 2
007AF8 2 E8 inx
007AF9 2 BD DC 60 lda HGRROWS_H,x
007AFC 2 85 1A sta SCRATCH1
007AFE 2 BD 9C 61 lda HGRROWS_L,x
007B01 2 85 19 sta SCRATCH0
007B03 2 A4 06 ldy PARAM0
007B05 2 B9 74 63 lda DIV7_2,y
007B08 2 A8 tay
007B09 2
007B09 2 A9 C1 lda #%11000001
007B0B 2 11 19 ora (SCRATCH0),y
007B0D 2 91 19 sta (SCRATCH0),y
007B0F 2 C8 iny
007B10 2 C8 iny
007B11 2 C8 iny
007B12 2
007B12 2 E8 inx
007B13 2 BD DC 60 lda HGRROWS_H,x
007B16 2 85 1A sta SCRATCH1
007B18 2 BD 9C 61 lda HGRROWS_L,x
007B1B 2 85 19 sta SCRATCH0
007B1D 2 A4 06 ldy PARAM0
007B1F 2 B9 74 63 lda DIV7_2,y
007B22 2 A8 tay
007B23 2
007B23 2 A9 C1 lda #%11000001
007B25 2 11 19 ora (SCRATCH0),y
007B27 2 91 19 sta (SCRATCH0),y
007B29 2 C8 iny
007B2A 2 C8 iny
007B2B 2 C8 iny
007B2C 2
007B2C 2 E8 inx
007B2D 2 BD DC 60 lda HGRROWS_H,x
007B30 2 85 1A sta SCRATCH1
007B32 2 BD 9C 61 lda HGRROWS_L,x
007B35 2 85 19 sta SCRATCH0
007B37 2 A4 06 ldy PARAM0
007B39 2 B9 74 63 lda DIV7_2,y
007B3C 2 A8 tay
007B3D 2
007B3D 2 A9 C1 lda #%11000001
007B3F 2 11 19 ora (SCRATCH0),y
007B41 2 91 19 sta (SCRATCH0),y
007B43 2 C8 iny
007B44 2 C8 iny
007B45 2 C8 iny
007B46 2
007B46 2 E8 inx
007B47 2 BD DC 60 lda HGRROWS_H,x
007B4A 2 85 1A sta SCRATCH1
007B4C 2 BD 9C 61 lda HGRROWS_L,x
007B4F 2 85 19 sta SCRATCH0
007B51 2 A4 06 ldy PARAM0
007B53 2 B9 74 63 lda DIV7_2,y
007B56 2 A8 tay
007B57 2
007B57 2 A9 C1 lda #%11000001
007B59 2 11 19 ora (SCRATCH0),y
007B5B 2 91 19 sta (SCRATCH0),y
007B5D 2 C8 iny
007B5E 2 C8 iny
007B5F 2 C8 iny
007B60 2
007B60 2 E8 inx
007B61 2 BD DC 60 lda HGRROWS_H,x
007B64 2 85 1A sta SCRATCH1
007B66 2 BD 9C 61 lda HGRROWS_L,x
007B69 2 85 19 sta SCRATCH0
007B6B 2 A4 06 ldy PARAM0
007B6D 2 B9 74 63 lda DIV7_2,y
007B70 2 A8 tay
007B71 2
007B71 2 A9 C1 lda #%11000001
007B73 2 11 19 ora (SCRATCH0),y
007B75 2 91 19 sta (SCRATCH0),y
007B77 2 C8 iny
007B78 2 C8 iny
007B79 2 C8 iny
007B7A 2
007B7A 2 E8 inx
007B7B 2 BD DC 60 lda HGRROWS_H,x
007B7E 2 85 1A sta SCRATCH1
007B80 2 BD 9C 61 lda HGRROWS_L,x
007B83 2 85 19 sta SCRATCH0
007B85 2 A4 06 ldy PARAM0
007B87 2 B9 74 63 lda DIV7_2,y
007B8A 2 A8 tay
007B8B 2
007B8B 2 A9 C1 lda #%11000001
007B8D 2 11 19 ora (SCRATCH0),y
007B8F 2 91 19 sta (SCRATCH0),y
007B91 2 C8 iny
007B92 2 C8 iny
007B93 2 C8 iny
007B94 2
007B94 2 E8 inx
007B95 2 BD DC 60 lda HGRROWS_H,x
007B98 2 85 1A sta SCRATCH1
007B9A 2 BD 9C 61 lda HGRROWS_L,x
007B9D 2 85 19 sta SCRATCH0
007B9F 2 A4 06 ldy PARAM0
007BA1 2 B9 74 63 lda DIV7_2,y
007BA4 2 A8 tay
007BA5 2
007BA5 2 A9 D5 lda #%11010101
007BA7 2 11 19 ora (SCRATCH0),y
007BA9 2 91 19 sta (SCRATCH0),y
007BAB 2 C8 iny
007BAC 2 C8 iny
007BAD 2 C8 iny
007BAE 2
007BAE 2 7A FA 68 RESTORE_AXY
007BB1 2 60 rts
007BB2 2
007BB2 2
007BB2 2
007BB2 2 BOX_BLU_SHIFT1:
007BB2 2 A4 06 ldy PARAM0
007BB4 2
007BB4 2 A6 07 ldx PARAM1
007BB6 2 BD DC 60 lda HGRROWS_H,x
007BB9 2 85 1A sta SCRATCH1
007BBB 2 BD 9C 61 lda HGRROWS_L,x
007BBE 2 85 19 sta SCRATCH0
007BC0 2 A4 06 ldy PARAM0
007BC2 2 B9 74 63 lda DIV7_2,y
007BC5 2 A8 tay
007BC6 2
007BC6 2 A9 D4 lda #%11010100
007BC8 2 11 19 ora (SCRATCH0),y
007BCA 2 91 19 sta (SCRATCH0),y
007BCC 2 C8 iny
007BCD 2 A9 82 lda #%10000010
007BCF 2 11 19 ora (SCRATCH0),y
007BD1 2 91 19 sta (SCRATCH0),y
007BD3 2 C8 iny
007BD4 2 C8 iny
007BD5 2
007BD5 2 E8 inx
007BD6 2 BD DC 60 lda HGRROWS_H,x
007BD9 2 85 1A sta SCRATCH1
007BDB 2 BD 9C 61 lda HGRROWS_L,x
007BDE 2 85 19 sta SCRATCH0
007BE0 2 A4 06 ldy PARAM0
007BE2 2 B9 74 63 lda DIV7_2,y
007BE5 2 A8 tay
007BE6 2
007BE6 2 A9 84 lda #%10000100
007BE8 2 11 19 ora (SCRATCH0),y
007BEA 2 91 19 sta (SCRATCH0),y
007BEC 2 C8 iny
007BED 2 A9 82 lda #%10000010
007BEF 2 11 19 ora (SCRATCH0),y
007BF1 2 91 19 sta (SCRATCH0),y
007BF3 2 C8 iny
007BF4 2 C8 iny
007BF5 2
007BF5 2 E8 inx
007BF6 2 BD DC 60 lda HGRROWS_H,x
007BF9 2 85 1A sta SCRATCH1
007BFB 2 BD 9C 61 lda HGRROWS_L,x
007BFE 2 85 19 sta SCRATCH0
007C00 2 A4 06 ldy PARAM0
007C02 2 B9 74 63 lda DIV7_2,y
007C05 2 A8 tay
007C06 2
007C06 2 A9 84 lda #%10000100
007C08 2 11 19 ora (SCRATCH0),y
007C0A 2 91 19 sta (SCRATCH0),y
007C0C 2 C8 iny
007C0D 2 A9 82 lda #%10000010
007C0F 2 11 19 ora (SCRATCH0),y
007C11 2 91 19 sta (SCRATCH0),y
007C13 2 C8 iny
007C14 2 C8 iny
007C15 2
007C15 2 E8 inx
007C16 2 BD DC 60 lda HGRROWS_H,x
007C19 2 85 1A sta SCRATCH1
007C1B 2 BD 9C 61 lda HGRROWS_L,x
007C1E 2 85 19 sta SCRATCH0
007C20 2 A4 06 ldy PARAM0
007C22 2 B9 74 63 lda DIV7_2,y
007C25 2 A8 tay
007C26 2
007C26 2 A9 84 lda #%10000100
007C28 2 11 19 ora (SCRATCH0),y
007C2A 2 91 19 sta (SCRATCH0),y
007C2C 2 C8 iny
007C2D 2 A9 82 lda #%10000010
007C2F 2 11 19 ora (SCRATCH0),y
007C31 2 91 19 sta (SCRATCH0),y
007C33 2 C8 iny
007C34 2 C8 iny
007C35 2
007C35 2 E8 inx
007C36 2 BD DC 60 lda HGRROWS_H,x
007C39 2 85 1A sta SCRATCH1
007C3B 2 BD 9C 61 lda HGRROWS_L,x
007C3E 2 85 19 sta SCRATCH0
007C40 2 A4 06 ldy PARAM0
007C42 2 B9 74 63 lda DIV7_2,y
007C45 2 A8 tay
007C46 2
007C46 2 A9 84 lda #%10000100
007C48 2 11 19 ora (SCRATCH0),y
007C4A 2 91 19 sta (SCRATCH0),y
007C4C 2 C8 iny
007C4D 2 A9 82 lda #%10000010
007C4F 2 11 19 ora (SCRATCH0),y
007C51 2 91 19 sta (SCRATCH0),y
007C53 2 C8 iny
007C54 2 C8 iny
007C55 2
007C55 2 E8 inx
007C56 2 BD DC 60 lda HGRROWS_H,x
007C59 2 85 1A sta SCRATCH1
007C5B 2 BD 9C 61 lda HGRROWS_L,x
007C5E 2 85 19 sta SCRATCH0
007C60 2 A4 06 ldy PARAM0
007C62 2 B9 74 63 lda DIV7_2,y
007C65 2 A8 tay
007C66 2
007C66 2 A9 84 lda #%10000100
007C68 2 11 19 ora (SCRATCH0),y
007C6A 2 91 19 sta (SCRATCH0),y
007C6C 2 C8 iny
007C6D 2 A9 82 lda #%10000010
007C6F 2 11 19 ora (SCRATCH0),y
007C71 2 91 19 sta (SCRATCH0),y
007C73 2 C8 iny
007C74 2 C8 iny
007C75 2
007C75 2 E8 inx
007C76 2 BD DC 60 lda HGRROWS_H,x
007C79 2 85 1A sta SCRATCH1
007C7B 2 BD 9C 61 lda HGRROWS_L,x
007C7E 2 85 19 sta SCRATCH0
007C80 2 A4 06 ldy PARAM0
007C82 2 B9 74 63 lda DIV7_2,y
007C85 2 A8 tay
007C86 2
007C86 2 A9 84 lda #%10000100
007C88 2 11 19 ora (SCRATCH0),y
007C8A 2 91 19 sta (SCRATCH0),y
007C8C 2 C8 iny
007C8D 2 A9 82 lda #%10000010
007C8F 2 11 19 ora (SCRATCH0),y
007C91 2 91 19 sta (SCRATCH0),y
007C93 2 C8 iny
007C94 2 C8 iny
007C95 2
007C95 2 E8 inx
007C96 2 BD DC 60 lda HGRROWS_H,x
007C99 2 85 1A sta SCRATCH1
007C9B 2 BD 9C 61 lda HGRROWS_L,x
007C9E 2 85 19 sta SCRATCH0
007CA0 2 A4 06 ldy PARAM0
007CA2 2 B9 74 63 lda DIV7_2,y
007CA5 2 A8 tay
007CA6 2
007CA6 2 A9 D4 lda #%11010100
007CA8 2 11 19 ora (SCRATCH0),y
007CAA 2 91 19 sta (SCRATCH0),y
007CAC 2 C8 iny
007CAD 2 A9 82 lda #%10000010
007CAF 2 11 19 ora (SCRATCH0),y
007CB1 2 91 19 sta (SCRATCH0),y
007CB3 2 C8 iny
007CB4 2 C8 iny
007CB5 2
007CB5 2 7A FA 68 RESTORE_AXY
007CB8 2 60 rts
007CB9 2
007CB9 2
007CB9 2
007CB9 2 BOX_BLU_SHIFT2:
007CB9 2 A4 06 ldy PARAM0
007CBB 2
007CBB 2 A6 07 ldx PARAM1
007CBD 2 BD DC 60 lda HGRROWS_H,x
007CC0 2 85 1A sta SCRATCH1
007CC2 2 BD 9C 61 lda HGRROWS_L,x
007CC5 2 85 19 sta SCRATCH0
007CC7 2 A4 06 ldy PARAM0
007CC9 2 B9 74 63 lda DIV7_2,y
007CCC 2 A8 tay
007CCD 2
007CCD 2 A9 D0 lda #%11010000
007CCF 2 11 19 ora (SCRATCH0),y
007CD1 2 91 19 sta (SCRATCH0),y
007CD3 2 C8 iny
007CD4 2 A9 8A lda #%10001010
007CD6 2 11 19 ora (SCRATCH0),y
007CD8 2 91 19 sta (SCRATCH0),y
007CDA 2 C8 iny
007CDB 2 C8 iny
007CDC 2
007CDC 2 E8 inx
007CDD 2 BD DC 60 lda HGRROWS_H,x
007CE0 2 85 1A sta SCRATCH1
007CE2 2 BD 9C 61 lda HGRROWS_L,x
007CE5 2 85 19 sta SCRATCH0
007CE7 2 A4 06 ldy PARAM0
007CE9 2 B9 74 63 lda DIV7_2,y
007CEC 2 A8 tay
007CED 2
007CED 2 A9 90 lda #%10010000
007CEF 2 11 19 ora (SCRATCH0),y
007CF1 2 91 19 sta (SCRATCH0),y
007CF3 2 C8 iny
007CF4 2 A9 88 lda #%10001000
007CF6 2 11 19 ora (SCRATCH0),y
007CF8 2 91 19 sta (SCRATCH0),y
007CFA 2 C8 iny
007CFB 2 C8 iny
007CFC 2
007CFC 2 E8 inx
007CFD 2 BD DC 60 lda HGRROWS_H,x
007D00 2 85 1A sta SCRATCH1
007D02 2 BD 9C 61 lda HGRROWS_L,x
007D05 2 85 19 sta SCRATCH0
007D07 2 A4 06 ldy PARAM0
007D09 2 B9 74 63 lda DIV7_2,y
007D0C 2 A8 tay
007D0D 2
007D0D 2 A9 90 lda #%10010000
007D0F 2 11 19 ora (SCRATCH0),y
007D11 2 91 19 sta (SCRATCH0),y
007D13 2 C8 iny
007D14 2 A9 88 lda #%10001000
007D16 2 11 19 ora (SCRATCH0),y
007D18 2 91 19 sta (SCRATCH0),y
007D1A 2 C8 iny
007D1B 2 C8 iny
007D1C 2
007D1C 2 E8 inx
007D1D 2 BD DC 60 lda HGRROWS_H,x
007D20 2 85 1A sta SCRATCH1
007D22 2 BD 9C 61 lda HGRROWS_L,x
007D25 2 85 19 sta SCRATCH0
007D27 2 A4 06 ldy PARAM0
007D29 2 B9 74 63 lda DIV7_2,y
007D2C 2 A8 tay
007D2D 2
007D2D 2 A9 90 lda #%10010000
007D2F 2 11 19 ora (SCRATCH0),y
007D31 2 91 19 sta (SCRATCH0),y
007D33 2 C8 iny
007D34 2 A9 88 lda #%10001000
007D36 2 11 19 ora (SCRATCH0),y
007D38 2 91 19 sta (SCRATCH0),y
007D3A 2 C8 iny
007D3B 2 C8 iny
007D3C 2
007D3C 2 E8 inx
007D3D 2 BD DC 60 lda HGRROWS_H,x
007D40 2 85 1A sta SCRATCH1
007D42 2 BD 9C 61 lda HGRROWS_L,x
007D45 2 85 19 sta SCRATCH0
007D47 2 A4 06 ldy PARAM0
007D49 2 B9 74 63 lda DIV7_2,y
007D4C 2 A8 tay
007D4D 2
007D4D 2 A9 90 lda #%10010000
007D4F 2 11 19 ora (SCRATCH0),y
007D51 2 91 19 sta (SCRATCH0),y
007D53 2 C8 iny
007D54 2 A9 88 lda #%10001000
007D56 2 11 19 ora (SCRATCH0),y
007D58 2 91 19 sta (SCRATCH0),y
007D5A 2 C8 iny
007D5B 2 C8 iny
007D5C 2
007D5C 2 E8 inx
007D5D 2 BD DC 60 lda HGRROWS_H,x
007D60 2 85 1A sta SCRATCH1
007D62 2 BD 9C 61 lda HGRROWS_L,x
007D65 2 85 19 sta SCRATCH0
007D67 2 A4 06 ldy PARAM0
007D69 2 B9 74 63 lda DIV7_2,y
007D6C 2 A8 tay
007D6D 2
007D6D 2 A9 90 lda #%10010000
007D6F 2 11 19 ora (SCRATCH0),y
007D71 2 91 19 sta (SCRATCH0),y
007D73 2 C8 iny
007D74 2 A9 88 lda #%10001000
007D76 2 11 19 ora (SCRATCH0),y
007D78 2 91 19 sta (SCRATCH0),y
007D7A 2 C8 iny
007D7B 2 C8 iny
007D7C 2
007D7C 2 E8 inx
007D7D 2 BD DC 60 lda HGRROWS_H,x
007D80 2 85 1A sta SCRATCH1
007D82 2 BD 9C 61 lda HGRROWS_L,x
007D85 2 85 19 sta SCRATCH0
007D87 2 A4 06 ldy PARAM0
007D89 2 B9 74 63 lda DIV7_2,y
007D8C 2 A8 tay
007D8D 2
007D8D 2 A9 90 lda #%10010000
007D8F 2 11 19 ora (SCRATCH0),y
007D91 2 91 19 sta (SCRATCH0),y
007D93 2 C8 iny
007D94 2 A9 88 lda #%10001000
007D96 2 11 19 ora (SCRATCH0),y
007D98 2 91 19 sta (SCRATCH0),y
007D9A 2 C8 iny
007D9B 2 C8 iny
007D9C 2
007D9C 2 E8 inx
007D9D 2 BD DC 60 lda HGRROWS_H,x
007DA0 2 85 1A sta SCRATCH1
007DA2 2 BD 9C 61 lda HGRROWS_L,x
007DA5 2 85 19 sta SCRATCH0
007DA7 2 A4 06 ldy PARAM0
007DA9 2 B9 74 63 lda DIV7_2,y
007DAC 2 A8 tay
007DAD 2
007DAD 2 A9 D0 lda #%11010000
007DAF 2 11 19 ora (SCRATCH0),y
007DB1 2 91 19 sta (SCRATCH0),y
007DB3 2 C8 iny
007DB4 2 A9 8A lda #%10001010
007DB6 2 11 19 ora (SCRATCH0),y
007DB8 2 91 19 sta (SCRATCH0),y
007DBA 2 C8 iny
007DBB 2 C8 iny
007DBC 2
007DBC 2 7A FA 68 RESTORE_AXY
007DBF 2 60 rts
007DC0 2
007DC0 2
007DC0 2
007DC0 2 BOX_BLU_SHIFT3:
007DC0 2 A4 06 ldy PARAM0
007DC2 2
007DC2 2 A6 07 ldx PARAM1
007DC4 2 BD DC 60 lda HGRROWS_H,x
007DC7 2 85 1A sta SCRATCH1
007DC9 2 BD 9C 61 lda HGRROWS_L,x
007DCC 2 85 19 sta SCRATCH0
007DCE 2 A4 06 ldy PARAM0
007DD0 2 B9 74 63 lda DIV7_2,y
007DD3 2 A8 tay
007DD4 2
007DD4 2 A9 C0 lda #%11000000
007DD6 2 11 19 ora (SCRATCH0),y
007DD8 2 91 19 sta (SCRATCH0),y
007DDA 2 C8 iny
007DDB 2 A9 AA lda #%10101010
007DDD 2 11 19 ora (SCRATCH0),y
007DDF 2 91 19 sta (SCRATCH0),y
007DE1 2 C8 iny
007DE2 2 C8 iny
007DE3 2
007DE3 2 E8 inx
007DE4 2 BD DC 60 lda HGRROWS_H,x
007DE7 2 85 1A sta SCRATCH1
007DE9 2 BD 9C 61 lda HGRROWS_L,x
007DEC 2 85 19 sta SCRATCH0
007DEE 2 A4 06 ldy PARAM0
007DF0 2 B9 74 63 lda DIV7_2,y
007DF3 2 A8 tay
007DF4 2
007DF4 2 A9 C0 lda #%11000000
007DF6 2 11 19 ora (SCRATCH0),y
007DF8 2 91 19 sta (SCRATCH0),y
007DFA 2 C8 iny
007DFB 2 A9 A0 lda #%10100000
007DFD 2 11 19 ora (SCRATCH0),y
007DFF 2 91 19 sta (SCRATCH0),y
007E01 2 C8 iny
007E02 2 C8 iny
007E03 2
007E03 2 E8 inx
007E04 2 BD DC 60 lda HGRROWS_H,x
007E07 2 85 1A sta SCRATCH1
007E09 2 BD 9C 61 lda HGRROWS_L,x
007E0C 2 85 19 sta SCRATCH0
007E0E 2 A4 06 ldy PARAM0
007E10 2 B9 74 63 lda DIV7_2,y
007E13 2 A8 tay
007E14 2
007E14 2 A9 C0 lda #%11000000
007E16 2 11 19 ora (SCRATCH0),y
007E18 2 91 19 sta (SCRATCH0),y
007E1A 2 C8 iny
007E1B 2 A9 A0 lda #%10100000
007E1D 2 11 19 ora (SCRATCH0),y
007E1F 2 91 19 sta (SCRATCH0),y
007E21 2 C8 iny
007E22 2 C8 iny
007E23 2
007E23 2 E8 inx
007E24 2 BD DC 60 lda HGRROWS_H,x
007E27 2 85 1A sta SCRATCH1
007E29 2 BD 9C 61 lda HGRROWS_L,x
007E2C 2 85 19 sta SCRATCH0
007E2E 2 A4 06 ldy PARAM0
007E30 2 B9 74 63 lda DIV7_2,y
007E33 2 A8 tay
007E34 2
007E34 2 A9 C0 lda #%11000000
007E36 2 11 19 ora (SCRATCH0),y
007E38 2 91 19 sta (SCRATCH0),y
007E3A 2 C8 iny
007E3B 2 A9 A0 lda #%10100000
007E3D 2 11 19 ora (SCRATCH0),y
007E3F 2 91 19 sta (SCRATCH0),y
007E41 2 C8 iny
007E42 2 C8 iny
007E43 2
007E43 2 E8 inx
007E44 2 BD DC 60 lda HGRROWS_H,x
007E47 2 85 1A sta SCRATCH1
007E49 2 BD 9C 61 lda HGRROWS_L,x
007E4C 2 85 19 sta SCRATCH0
007E4E 2 A4 06 ldy PARAM0
007E50 2 B9 74 63 lda DIV7_2,y
007E53 2 A8 tay
007E54 2
007E54 2 A9 C0 lda #%11000000
007E56 2 11 19 ora (SCRATCH0),y
007E58 2 91 19 sta (SCRATCH0),y
007E5A 2 C8 iny
007E5B 2 A9 A0 lda #%10100000
007E5D 2 11 19 ora (SCRATCH0),y
007E5F 2 91 19 sta (SCRATCH0),y
007E61 2 C8 iny
007E62 2 C8 iny
007E63 2
007E63 2 E8 inx
007E64 2 BD DC 60 lda HGRROWS_H,x
007E67 2 85 1A sta SCRATCH1
007E69 2 BD 9C 61 lda HGRROWS_L,x
007E6C 2 85 19 sta SCRATCH0
007E6E 2 A4 06 ldy PARAM0
007E70 2 B9 74 63 lda DIV7_2,y
007E73 2 A8 tay
007E74 2
007E74 2 A9 C0 lda #%11000000
007E76 2 11 19 ora (SCRATCH0),y
007E78 2 91 19 sta (SCRATCH0),y
007E7A 2 C8 iny
007E7B 2 A9 A0 lda #%10100000
007E7D 2 11 19 ora (SCRATCH0),y
007E7F 2 91 19 sta (SCRATCH0),y
007E81 2 C8 iny
007E82 2 C8 iny
007E83 2
007E83 2 E8 inx
007E84 2 BD DC 60 lda HGRROWS_H,x
007E87 2 85 1A sta SCRATCH1
007E89 2 BD 9C 61 lda HGRROWS_L,x
007E8C 2 85 19 sta SCRATCH0
007E8E 2 A4 06 ldy PARAM0
007E90 2 B9 74 63 lda DIV7_2,y
007E93 2 A8 tay
007E94 2
007E94 2 A9 C0 lda #%11000000
007E96 2 11 19 ora (SCRATCH0),y
007E98 2 91 19 sta (SCRATCH0),y
007E9A 2 C8 iny
007E9B 2 A9 A0 lda #%10100000
007E9D 2 11 19 ora (SCRATCH0),y
007E9F 2 91 19 sta (SCRATCH0),y
007EA1 2 C8 iny
007EA2 2 C8 iny
007EA3 2
007EA3 2 E8 inx
007EA4 2 BD DC 60 lda HGRROWS_H,x
007EA7 2 85 1A sta SCRATCH1
007EA9 2 BD 9C 61 lda HGRROWS_L,x
007EAC 2 85 19 sta SCRATCH0
007EAE 2 A4 06 ldy PARAM0
007EB0 2 B9 74 63 lda DIV7_2,y
007EB3 2 A8 tay
007EB4 2
007EB4 2 A9 C0 lda #%11000000
007EB6 2 11 19 ora (SCRATCH0),y
007EB8 2 91 19 sta (SCRATCH0),y
007EBA 2 C8 iny
007EBB 2 A9 AA lda #%10101010
007EBD 2 11 19 ora (SCRATCH0),y
007EBF 2 91 19 sta (SCRATCH0),y
007EC1 2 C8 iny
007EC2 2 C8 iny
007EC3 2
007EC3 2 7A FA 68 RESTORE_AXY
007EC6 2 60 rts
007EC7 2
007EC7 2
007EC7 2
007EC7 2 BOX_BLU_SHIFT4:
007EC7 2 A4 06 ldy PARAM0
007EC9 2
007EC9 2 A6 07 ldx PARAM1
007ECB 2 BD DC 60 lda HGRROWS_H,x
007ECE 2 85 1A sta SCRATCH1
007ED0 2 BD 9C 61 lda HGRROWS_L,x
007ED3 2 85 19 sta SCRATCH0
007ED5 2 A4 06 ldy PARAM0
007ED7 2 B9 74 63 lda DIV7_2,y
007EDA 2 A8 tay
007EDB 2
007EDB 2 C8 iny
007EDC 2 A9 AA lda #%10101010
007EDE 2 11 19 ora (SCRATCH0),y
007EE0 2 91 19 sta (SCRATCH0),y
007EE2 2 C8 iny
007EE3 2 A9 81 lda #%10000001
007EE5 2 11 19 ora (SCRATCH0),y
007EE7 2 91 19 sta (SCRATCH0),y
007EE9 2 C8 iny
007EEA 2
007EEA 2 E8 inx
007EEB 2 BD DC 60 lda HGRROWS_H,x
007EEE 2 85 1A sta SCRATCH1
007EF0 2 BD 9C 61 lda HGRROWS_L,x
007EF3 2 85 19 sta SCRATCH0
007EF5 2 A4 06 ldy PARAM0
007EF7 2 B9 74 63 lda DIV7_2,y
007EFA 2 A8 tay
007EFB 2
007EFB 2 C8 iny
007EFC 2 A9 82 lda #%10000010
007EFE 2 11 19 ora (SCRATCH0),y
007F00 2 91 19 sta (SCRATCH0),y
007F02 2 C8 iny
007F03 2 A9 81 lda #%10000001
007F05 2 11 19 ora (SCRATCH0),y
007F07 2 91 19 sta (SCRATCH0),y
007F09 2 C8 iny
007F0A 2
007F0A 2 E8 inx
007F0B 2 BD DC 60 lda HGRROWS_H,x
007F0E 2 85 1A sta SCRATCH1
007F10 2 BD 9C 61 lda HGRROWS_L,x
007F13 2 85 19 sta SCRATCH0
007F15 2 A4 06 ldy PARAM0
007F17 2 B9 74 63 lda DIV7_2,y
007F1A 2 A8 tay
007F1B 2
007F1B 2 C8 iny
007F1C 2 A9 82 lda #%10000010
007F1E 2 11 19 ora (SCRATCH0),y
007F20 2 91 19 sta (SCRATCH0),y
007F22 2 C8 iny
007F23 2 A9 81 lda #%10000001
007F25 2 11 19 ora (SCRATCH0),y
007F27 2 91 19 sta (SCRATCH0),y
007F29 2 C8 iny
007F2A 2
007F2A 2 E8 inx
007F2B 2 BD DC 60 lda HGRROWS_H,x
007F2E 2 85 1A sta SCRATCH1
007F30 2 BD 9C 61 lda HGRROWS_L,x
007F33 2 85 19 sta SCRATCH0
007F35 2 A4 06 ldy PARAM0
007F37 2 B9 74 63 lda DIV7_2,y
007F3A 2 A8 tay
007F3B 2
007F3B 2 C8 iny
007F3C 2 A9 82 lda #%10000010
007F3E 2 11 19 ora (SCRATCH0),y
007F40 2 91 19 sta (SCRATCH0),y
007F42 2 C8 iny
007F43 2 A9 81 lda #%10000001
007F45 2 11 19 ora (SCRATCH0),y
007F47 2 91 19 sta (SCRATCH0),y
007F49 2 C8 iny
007F4A 2
007F4A 2 E8 inx
007F4B 2 BD DC 60 lda HGRROWS_H,x
007F4E 2 85 1A sta SCRATCH1
007F50 2 BD 9C 61 lda HGRROWS_L,x
007F53 2 85 19 sta SCRATCH0
007F55 2 A4 06 ldy PARAM0
007F57 2 B9 74 63 lda DIV7_2,y
007F5A 2 A8 tay
007F5B 2
007F5B 2 C8 iny
007F5C 2 A9 82 lda #%10000010
007F5E 2 11 19 ora (SCRATCH0),y
007F60 2 91 19 sta (SCRATCH0),y
007F62 2 C8 iny
007F63 2 A9 81 lda #%10000001
007F65 2 11 19 ora (SCRATCH0),y
007F67 2 91 19 sta (SCRATCH0),y
007F69 2 C8 iny
007F6A 2
007F6A 2 E8 inx
007F6B 2 BD DC 60 lda HGRROWS_H,x
007F6E 2 85 1A sta SCRATCH1
007F70 2 BD 9C 61 lda HGRROWS_L,x
007F73 2 85 19 sta SCRATCH0
007F75 2 A4 06 ldy PARAM0
007F77 2 B9 74 63 lda DIV7_2,y
007F7A 2 A8 tay
007F7B 2
007F7B 2 C8 iny
007F7C 2 A9 82 lda #%10000010
007F7E 2 11 19 ora (SCRATCH0),y
007F80 2 91 19 sta (SCRATCH0),y
007F82 2 C8 iny
007F83 2 A9 81 lda #%10000001
007F85 2 11 19 ora (SCRATCH0),y
007F87 2 91 19 sta (SCRATCH0),y
007F89 2 C8 iny
007F8A 2
007F8A 2 E8 inx
007F8B 2 BD DC 60 lda HGRROWS_H,x
007F8E 2 85 1A sta SCRATCH1
007F90 2 BD 9C 61 lda HGRROWS_L,x
007F93 2 85 19 sta SCRATCH0
007F95 2 A4 06 ldy PARAM0
007F97 2 B9 74 63 lda DIV7_2,y
007F9A 2 A8 tay
007F9B 2
007F9B 2 C8 iny
007F9C 2 A9 82 lda #%10000010
007F9E 2 11 19 ora (SCRATCH0),y
007FA0 2 91 19 sta (SCRATCH0),y
007FA2 2 C8 iny
007FA3 2 A9 81 lda #%10000001
007FA5 2 11 19 ora (SCRATCH0),y
007FA7 2 91 19 sta (SCRATCH0),y
007FA9 2 C8 iny
007FAA 2
007FAA 2 E8 inx
007FAB 2 BD DC 60 lda HGRROWS_H,x
007FAE 2 85 1A sta SCRATCH1
007FB0 2 BD 9C 61 lda HGRROWS_L,x
007FB3 2 85 19 sta SCRATCH0
007FB5 2 A4 06 ldy PARAM0
007FB7 2 B9 74 63 lda DIV7_2,y
007FBA 2 A8 tay
007FBB 2
007FBB 2 C8 iny
007FBC 2 A9 AA lda #%10101010
007FBE 2 11 19 ora (SCRATCH0),y
007FC0 2 91 19 sta (SCRATCH0),y
007FC2 2 C8 iny
007FC3 2 A9 81 lda #%10000001
007FC5 2 11 19 ora (SCRATCH0),y
007FC7 2 91 19 sta (SCRATCH0),y
007FC9 2 C8 iny
007FCA 2
007FCA 2 7A FA 68 RESTORE_AXY
007FCD 2 60 rts
007FCE 2
007FCE 2
007FCE 2
007FCE 2 BOX_BLU_SHIFT5:
007FCE 2 A4 06 ldy PARAM0
007FD0 2
007FD0 2 A6 07 ldx PARAM1
007FD2 2 BD DC 60 lda HGRROWS_H,x
007FD5 2 85 1A sta SCRATCH1
007FD7 2 BD 9C 61 lda HGRROWS_L,x
007FDA 2 85 19 sta SCRATCH0
007FDC 2 A4 06 ldy PARAM0
007FDE 2 B9 74 63 lda DIV7_2,y
007FE1 2 A8 tay
007FE2 2
007FE2 2 C8 iny
007FE3 2 A9 A8 lda #%10101000
007FE5 2 11 19 ora (SCRATCH0),y
007FE7 2 91 19 sta (SCRATCH0),y
007FE9 2 C8 iny
007FEA 2 A9 85 lda #%10000101
007FEC 2 11 19 ora (SCRATCH0),y
007FEE 2 91 19 sta (SCRATCH0),y
007FF0 2 C8 iny
007FF1 2
007FF1 2 E8 inx
007FF2 2 BD DC 60 lda HGRROWS_H,x
007FF5 2 85 1A sta SCRATCH1
007FF7 2 BD 9C 61 lda HGRROWS_L,x
007FFA 2 85 19 sta SCRATCH0
007FFC 2 A4 06 ldy PARAM0
007FFE 2 B9 74 63 lda DIV7_2,y
008001 2 A8 tay
008002 2
008002 2 C8 iny
008003 2 A9 88 lda #%10001000
008005 2 11 19 ora (SCRATCH0),y
008007 2 91 19 sta (SCRATCH0),y
008009 2 C8 iny
00800A 2 A9 84 lda #%10000100
00800C 2 11 19 ora (SCRATCH0),y
00800E 2 91 19 sta (SCRATCH0),y
008010 2 C8 iny
008011 2
008011 2 E8 inx
008012 2 BD DC 60 lda HGRROWS_H,x
008015 2 85 1A sta SCRATCH1
008017 2 BD 9C 61 lda HGRROWS_L,x
00801A 2 85 19 sta SCRATCH0
00801C 2 A4 06 ldy PARAM0
00801E 2 B9 74 63 lda DIV7_2,y
008021 2 A8 tay
008022 2
008022 2 C8 iny
008023 2 A9 88 lda #%10001000
008025 2 11 19 ora (SCRATCH0),y
008027 2 91 19 sta (SCRATCH0),y
008029 2 C8 iny
00802A 2 A9 84 lda #%10000100
00802C 2 11 19 ora (SCRATCH0),y
00802E 2 91 19 sta (SCRATCH0),y
008030 2 C8 iny
008031 2
008031 2 E8 inx
008032 2 BD DC 60 lda HGRROWS_H,x
008035 2 85 1A sta SCRATCH1
008037 2 BD 9C 61 lda HGRROWS_L,x
00803A 2 85 19 sta SCRATCH0
00803C 2 A4 06 ldy PARAM0
00803E 2 B9 74 63 lda DIV7_2,y
008041 2 A8 tay
008042 2
008042 2 C8 iny
008043 2 A9 88 lda #%10001000
008045 2 11 19 ora (SCRATCH0),y
008047 2 91 19 sta (SCRATCH0),y
008049 2 C8 iny
00804A 2 A9 84 lda #%10000100
00804C 2 11 19 ora (SCRATCH0),y
00804E 2 91 19 sta (SCRATCH0),y
008050 2 C8 iny
008051 2
008051 2 E8 inx
008052 2 BD DC 60 lda HGRROWS_H,x
008055 2 85 1A sta SCRATCH1
008057 2 BD 9C 61 lda HGRROWS_L,x
00805A 2 85 19 sta SCRATCH0
00805C 2 A4 06 ldy PARAM0
00805E 2 B9 74 63 lda DIV7_2,y
008061 2 A8 tay
008062 2
008062 2 C8 iny
008063 2 A9 88 lda #%10001000
008065 2 11 19 ora (SCRATCH0),y
008067 2 91 19 sta (SCRATCH0),y
008069 2 C8 iny
00806A 2 A9 84 lda #%10000100
00806C 2 11 19 ora (SCRATCH0),y
00806E 2 91 19 sta (SCRATCH0),y
008070 2 C8 iny
008071 2
008071 2 E8 inx
008072 2 BD DC 60 lda HGRROWS_H,x
008075 2 85 1A sta SCRATCH1
008077 2 BD 9C 61 lda HGRROWS_L,x
00807A 2 85 19 sta SCRATCH0
00807C 2 A4 06 ldy PARAM0
00807E 2 B9 74 63 lda DIV7_2,y
008081 2 A8 tay
008082 2
008082 2 C8 iny
008083 2 A9 88 lda #%10001000
008085 2 11 19 ora (SCRATCH0),y
008087 2 91 19 sta (SCRATCH0),y
008089 2 C8 iny
00808A 2 A9 84 lda #%10000100
00808C 2 11 19 ora (SCRATCH0),y
00808E 2 91 19 sta (SCRATCH0),y
008090 2 C8 iny
008091 2
008091 2 E8 inx
008092 2 BD DC 60 lda HGRROWS_H,x
008095 2 85 1A sta SCRATCH1
008097 2 BD 9C 61 lda HGRROWS_L,x
00809A 2 85 19 sta SCRATCH0
00809C 2 A4 06 ldy PARAM0
00809E 2 B9 74 63 lda DIV7_2,y
0080A1 2 A8 tay
0080A2 2
0080A2 2 C8 iny
0080A3 2 A9 88 lda #%10001000
0080A5 2 11 19 ora (SCRATCH0),y
0080A7 2 91 19 sta (SCRATCH0),y
0080A9 2 C8 iny
0080AA 2 A9 84 lda #%10000100
0080AC 2 11 19 ora (SCRATCH0),y
0080AE 2 91 19 sta (SCRATCH0),y
0080B0 2 C8 iny
0080B1 2
0080B1 2 E8 inx
0080B2 2 BD DC 60 lda HGRROWS_H,x
0080B5 2 85 1A sta SCRATCH1
0080B7 2 BD 9C 61 lda HGRROWS_L,x
0080BA 2 85 19 sta SCRATCH0
0080BC 2 A4 06 ldy PARAM0
0080BE 2 B9 74 63 lda DIV7_2,y
0080C1 2 A8 tay
0080C2 2
0080C2 2 C8 iny
0080C3 2 A9 A8 lda #%10101000
0080C5 2 11 19 ora (SCRATCH0),y
0080C7 2 91 19 sta (SCRATCH0),y
0080C9 2 C8 iny
0080CA 2 A9 85 lda #%10000101
0080CC 2 11 19 ora (SCRATCH0),y
0080CE 2 91 19 sta (SCRATCH0),y
0080D0 2 C8 iny
0080D1 2
0080D1 2 7A FA 68 RESTORE_AXY
0080D4 2 60 rts
0080D5 2
0080D5 2
0080D5 2
0080D5 2 BOX_BLU_SHIFT6:
0080D5 2 A4 06 ldy PARAM0
0080D7 2
0080D7 2 A6 07 ldx PARAM1
0080D9 2 BD DC 60 lda HGRROWS_H,x
0080DC 2 85 1A sta SCRATCH1
0080DE 2 BD 9C 61 lda HGRROWS_L,x
0080E1 2 85 19 sta SCRATCH0
0080E3 2 A4 06 ldy PARAM0
0080E5 2 B9 74 63 lda DIV7_2,y
0080E8 2 A8 tay
0080E9 2
0080E9 2 C8 iny
0080EA 2 A9 A0 lda #%10100000
0080EC 2 11 19 ora (SCRATCH0),y
0080EE 2 91 19 sta (SCRATCH0),y
0080F0 2 C8 iny
0080F1 2 A9 95 lda #%10010101
0080F3 2 11 19 ora (SCRATCH0),y
0080F5 2 91 19 sta (SCRATCH0),y
0080F7 2 C8 iny
0080F8 2
0080F8 2 E8 inx
0080F9 2 BD DC 60 lda HGRROWS_H,x
0080FC 2 85 1A sta SCRATCH1
0080FE 2 BD 9C 61 lda HGRROWS_L,x
008101 2 85 19 sta SCRATCH0
008103 2 A4 06 ldy PARAM0
008105 2 B9 74 63 lda DIV7_2,y
008108 2 A8 tay
008109 2
008109 2 C8 iny
00810A 2 A9 A0 lda #%10100000
00810C 2 11 19 ora (SCRATCH0),y
00810E 2 91 19 sta (SCRATCH0),y
008110 2 C8 iny
008111 2 A9 90 lda #%10010000
008113 2 11 19 ora (SCRATCH0),y
008115 2 91 19 sta (SCRATCH0),y
008117 2 C8 iny
008118 2
008118 2 E8 inx
008119 2 BD DC 60 lda HGRROWS_H,x
00811C 2 85 1A sta SCRATCH1
00811E 2 BD 9C 61 lda HGRROWS_L,x
008121 2 85 19 sta SCRATCH0
008123 2 A4 06 ldy PARAM0
008125 2 B9 74 63 lda DIV7_2,y
008128 2 A8 tay
008129 2
008129 2 C8 iny
00812A 2 A9 A0 lda #%10100000
00812C 2 11 19 ora (SCRATCH0),y
00812E 2 91 19 sta (SCRATCH0),y
008130 2 C8 iny
008131 2 A9 90 lda #%10010000
008133 2 11 19 ora (SCRATCH0),y
008135 2 91 19 sta (SCRATCH0),y
008137 2 C8 iny
008138 2
008138 2 E8 inx
008139 2 BD DC 60 lda HGRROWS_H,x
00813C 2 85 1A sta SCRATCH1
00813E 2 BD 9C 61 lda HGRROWS_L,x
008141 2 85 19 sta SCRATCH0
008143 2 A4 06 ldy PARAM0
008145 2 B9 74 63 lda DIV7_2,y
008148 2 A8 tay
008149 2
008149 2 C8 iny
00814A 2 A9 A0 lda #%10100000
00814C 2 11 19 ora (SCRATCH0),y
00814E 2 91 19 sta (SCRATCH0),y
008150 2 C8 iny
008151 2 A9 90 lda #%10010000
008153 2 11 19 ora (SCRATCH0),y
008155 2 91 19 sta (SCRATCH0),y
008157 2 C8 iny
008158 2
008158 2 E8 inx
008159 2 BD DC 60 lda HGRROWS_H,x
00815C 2 85 1A sta SCRATCH1
00815E 2 BD 9C 61 lda HGRROWS_L,x
008161 2 85 19 sta SCRATCH0
008163 2 A4 06 ldy PARAM0
008165 2 B9 74 63 lda DIV7_2,y
008168 2 A8 tay
008169 2
008169 2 C8 iny
00816A 2 A9 A0 lda #%10100000
00816C 2 11 19 ora (SCRATCH0),y
00816E 2 91 19 sta (SCRATCH0),y
008170 2 C8 iny
008171 2 A9 90 lda #%10010000
008173 2 11 19 ora (SCRATCH0),y
008175 2 91 19 sta (SCRATCH0),y
008177 2 C8 iny
008178 2
008178 2 E8 inx
008179 2 BD DC 60 lda HGRROWS_H,x
00817C 2 85 1A sta SCRATCH1
00817E 2 BD 9C 61 lda HGRROWS_L,x
008181 2 85 19 sta SCRATCH0
008183 2 A4 06 ldy PARAM0
008185 2 B9 74 63 lda DIV7_2,y
008188 2 A8 tay
008189 2
008189 2 C8 iny
00818A 2 A9 A0 lda #%10100000
00818C 2 11 19 ora (SCRATCH0),y
00818E 2 91 19 sta (SCRATCH0),y
008190 2 C8 iny
008191 2 A9 90 lda #%10010000
008193 2 11 19 ora (SCRATCH0),y
008195 2 91 19 sta (SCRATCH0),y
008197 2 C8 iny
008198 2
008198 2 E8 inx
008199 2 BD DC 60 lda HGRROWS_H,x
00819C 2 85 1A sta SCRATCH1
00819E 2 BD 9C 61 lda HGRROWS_L,x
0081A1 2 85 19 sta SCRATCH0
0081A3 2 A4 06 ldy PARAM0
0081A5 2 B9 74 63 lda DIV7_2,y
0081A8 2 A8 tay
0081A9 2
0081A9 2 C8 iny
0081AA 2 A9 A0 lda #%10100000
0081AC 2 11 19 ora (SCRATCH0),y
0081AE 2 91 19 sta (SCRATCH0),y
0081B0 2 C8 iny
0081B1 2 A9 90 lda #%10010000
0081B3 2 11 19 ora (SCRATCH0),y
0081B5 2 91 19 sta (SCRATCH0),y
0081B7 2 C8 iny
0081B8 2
0081B8 2 E8 inx
0081B9 2 BD DC 60 lda HGRROWS_H,x
0081BC 2 85 1A sta SCRATCH1
0081BE 2 BD 9C 61 lda HGRROWS_L,x
0081C1 2 85 19 sta SCRATCH0
0081C3 2 A4 06 ldy PARAM0
0081C5 2 B9 74 63 lda DIV7_2,y
0081C8 2 A8 tay
0081C9 2
0081C9 2 C8 iny
0081CA 2 A9 A0 lda #%10100000
0081CC 2 11 19 ora (SCRATCH0),y
0081CE 2 91 19 sta (SCRATCH0),y
0081D0 2 C8 iny
0081D1 2 A9 95 lda #%10010101
0081D3 2 11 19 ora (SCRATCH0),y
0081D5 2 91 19 sta (SCRATCH0),y
0081D7 2 C8 iny
0081D8 2
0081D8 2 7A FA 68 RESTORE_AXY
0081DB 2 60 rts
0081DC 2
0081DC 2
0081DC 2
0081DC 2
0081DC 1 .include "protogen.s"
0081DC 2 protogen:
0081DC 2
0081DC 2 A6 07 ldx PARAM1 ; 3
0081DE 2 BD DC 60 lda HGRROWS_H,x ; 4
0081E1 2 85 1A sta SCRATCH1 ; 3
0081E3 2 BD 9C 61 lda HGRROWS_L,x ; 4
0081E6 2 85 19 sta SCRATCH0 ; 3
0081E8 2 A4 06 ldy PARAM0 ; 3
0081EA 2
0081EA 2 A9 55 lda #%01010101 ; 2
0081EC 2 91 19 sta (SCRATCH0),y ; 6
0081EE 2 C8 iny ; 2
0081EF 2 A9 00 lda #%00000000 ; 2
0081F1 2 91 19 sta (SCRATCH0),y ; 6
0081F3 2 C8 iny ; 2
0081F4 2 A9 00 lda #%00000000 ; 2
0081F6 2 91 19 sta (SCRATCH0),y ; 6
0081F8 2 C8 iny ; 2
0081F9 2 A9 00 lda #%00000000 ; 2
0081FB 2 91 19 sta (SCRATCH0),y ; 6 58 cycles/row
0081FD 2
0081FD 2
0081FD 2 E8 inx
0081FE 2 BD DC 60 lda HGRROWS_H,x
008201 2 85 1A sta SCRATCH1
008203 2 BD 9C 61 lda HGRROWS_L,x
008206 2 85 19 sta SCRATCH0
008208 2 A4 06 ldy PARAM0
00820A 2
00820A 2 A9 41 lda #%01000001
00820C 2 91 19 sta (SCRATCH0),y
00820E 2 C8 iny
00820F 2 A9 00 lda #%00000000
008211 2 91 19 sta (SCRATCH0),y
008213 2 C8 iny
008214 2 A9 00 lda #%00000000
008216 2 91 19 sta (SCRATCH0),y
008218 2 C8 iny
008219 2 A9 00 lda #%00000000
00821B 2 91 19 sta (SCRATCH0),y
00821D 2
00821D 2
00821D 2 60 rts
00821E 2
00821E 1
00821E 1 ; Suppress some linker warnings - Must be the last thing in the file
00821E 1 .SEGMENT "ZPSAVE"
00821E 1 .SEGMENT "EXEHDR"
00821E 1 .SEGMENT "STARTUP"
00821E 1 .SEGMENT "INIT"
00821E 1 .SEGMENT "LOWCODE"
00821E 1
Reference in New Issue Copy Permalink