From 9b7f6b8937a0c7e647eec09f87c12b10de4f7ad8 Mon Sep 17 00:00:00 2001
From: Brooke Vibber <bvibber@pobox.com>
Date: Mon, 30 Dec 2024 14:22:03 -0800
Subject: [PATCH] add a viewport in the front spike

---
 mandel.s | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/mandel.s b/mandel.s
index 97a8863..9704a22 100644
--- a/mandel.s
+++ b/mandel.s
@@ -116,6 +116,13 @@ KEY_RIGHT = $87
 KEY_1     = $1f
 KEY_2     = $1e
 KEY_3     = $1a
+KEY_4     = 24
+KEY_5     = 29
+KEY_6     = 27
+KEY_7     = 51
+KEY_8     = 53
+KEY_9     = 48
+KEY_0     = 50
 
 .struct float48
     exponent .byte
@@ -279,16 +286,19 @@ viewport_zoom:
     .byte 1
     .byte 6
     .byte 8
+    .byte 6
 
 viewport_ox:
     .word $0000
     .word $f110
     .word $f110
+    .word $e400
 
 viewport_oy:
     .word $0000
     .word $fb60
     .word $fbe0
+    .word $0000
 
 ; 2 + 9 * byte cycles
 .macro add bytes, dest, arg1, arg2
@@ -1279,6 +1289,8 @@ skip_luma:
     beq two
     cpy #KEY_3
     beq three
+    cpy #KEY_4
+    beq four
  
 skip_char:
     lda #0
@@ -1316,6 +1328,9 @@ two:
     jmp load_key_viewport
 three:
     ldx #2
+    jmp load_key_viewport
+four:
+    ldx #3
     ; fall through
 load_key_viewport:
     jsr load_viewport