1379 lines
16 KiB
ArmAsm
1379 lines
16 KiB
ArmAsm
|
|
; This file was generated by HiSprite.py, a sprite compiler by Quinn Dunki.
|
|
; If you feel the need to modify this file, you are probably doing it wrong.
|
|
|
|
BOXW_MAG: ;6 bytes per row
|
|
SAVE_AXY
|
|
ldy PARAM0
|
|
ldx MOD7_2,y
|
|
jmp (BOXW_MAG_JMP,x)
|
|
|
|
BOXW_MAG_JMP:
|
|
.addr BOXW_MAG_SHIFT0
|
|
.addr BOXW_MAG_SHIFT1
|
|
.addr BOXW_MAG_SHIFT2
|
|
.addr BOXW_MAG_SHIFT3
|
|
.addr BOXW_MAG_SHIFT4
|
|
.addr BOXW_MAG_SHIFT5
|
|
.addr BOXW_MAG_SHIFT6
|
|
|
|
|
|
BOXW_MAG_SHIFT0:
|
|
ldy PARAM0
|
|
|
|
ldx PARAM1
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
|
|
BOXW_MAG_SHIFT1:
|
|
ldy PARAM0
|
|
|
|
ldx PARAM1
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
|
|
BOXW_MAG_SHIFT2:
|
|
ldy PARAM0
|
|
|
|
ldx PARAM1
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
|
|
BOXW_MAG_SHIFT3:
|
|
ldy PARAM0
|
|
|
|
ldx PARAM1
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01000101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01000101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
lda #%01000000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
|
|
BOXW_MAG_SHIFT4:
|
|
ldy PARAM0
|
|
|
|
ldx PARAM1
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
|
|
BOXW_MAG_SHIFT5:
|
|
ldy PARAM0
|
|
|
|
ldx PARAM1
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00101000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01000001
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00001000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00101000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00001010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
|
|
BOXW_MAG_SHIFT6:
|
|
ldy PARAM0
|
|
|
|
ldx PARAM1
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00000100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010100
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00100010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
inx
|
|
lda HGRROWS_H,x
|
|
sta SCRATCH1
|
|
lda HGRROWS_L,x
|
|
sta SCRATCH0
|
|
ldy PARAM0
|
|
lda DIV7_2,y
|
|
tay
|
|
|
|
iny
|
|
lda #%00100000
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%01010101
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
lda #%00101010
|
|
ora (SCRATCH0),y
|
|
sta (SCRATCH0),y
|
|
iny
|
|
iny
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
|