add a viewport in the front spike

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