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