brooke/mandel-6502
1
0
Fork 1
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix panning for 32-bi

Browse source
This commit is contained in:
Brooke Vibber 2024-12-31 14:45:38 -08:00
parent cc83c76706
commit 7985ea9a39
1 changed files with 23 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
mandel.s
View file

@ -1341,12 +1341,15 @@ skip_luma:
cpy #KEY_MINUS cpy #KEY_MINUS
beq minus beq minus
; temp = $0010 << (8 - zoom) ; temp+temp2 = $00010000 << (8 - zoom)
lda #$10
sta temp
lda #$00 lda #$00
sta temp
sta temp + 1 sta temp + 1
scale_zoom temp lda #$01
sta temp + 2
lda #$00
sta temp + 3
scale_zoom temp + 2
cpy #KEY_UP cpy #KEY_UP
beq up beq up
@ -1356,14 +1359,7 @@ skip_luma:
beq left beq left
cpy #KEY_RIGHT cpy #KEY_RIGHT
beq right beq right
cpy #KEY_1 jmp number_keys
beq one
cpy #KEY_2
beq two
cpy #KEY_3
beq three
cpy #KEY_4
beq four
skip_char: skip_char:
lda #0 lda #0
@ -1382,17 +1378,28 @@ minus:
dec zoom dec zoom
jmp done jmp done
up: up:
sub16 oy, oy, temp sub32 oy, oy, temp
jmp done jmp done
down: down:
add16 oy, oy, temp add32 oy, oy, temp
jmp done jmp done
left: left:
sub16 ox, ox, temp sub32 ox, ox, temp
jmp done jmp done
right: right:
add16 ox, ox, temp add32 ox, ox, temp
jmp done jmp done
number_keys:
cpy #KEY_1
beq one
cpy #KEY_2
beq two
cpy #KEY_3
beq three
cpy #KEY_4
beq four
one: one:
ldx #0 ldx #0
jmp load_key_viewport jmp load_key_viewport