From a0c5444604e2e733646a1386aaeeefc6784b12a0 Mon Sep 17 00:00:00 2001
From: Daniel Serpell <daniel.serpell@gmail.com>
Date: Thu, 22 Feb 2018 00:24:45 -0300
Subject: [PATCH] Optimize 3 more bytes.

---
 src/alloc.asm | 4 +++-
 src/parse.asm | 2 --
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/alloc.asm b/src/alloc.asm
index 8dae0e3..c3bc6bf 100644
--- a/src/alloc.asm
+++ b/src/alloc.asm
@@ -150,11 +150,13 @@ loop:
         sty     alloc_size
         iny
         sty     alloc_size+1
-        jmp     add_pointers
+        bne     add_pointers
 .endproc
 
         ; Increase program memory area by A (size in bytes)
 .proc alloc_prog
+        .importzp       opos
+        lda     opos
         ; Move from "prog_end", up by "alloc_size"
         ldx     #prog_end - mem_start
         jsr     alloc_area_8
diff --git a/src/parse.asm b/src/parse.asm
index 2bf099a..cc763ef 100644
--- a/src/parse.asm
+++ b/src/parse.asm
@@ -134,7 +134,6 @@ ok_loop:
         bne     parser_error
 ok:     lda     #TOK_END
         jsr     emit_const
-        lda     opos
         jsr     alloc_prog
         clc
         bcc     restore_stack   ; exit
@@ -341,7 +340,6 @@ pexit_ok:
         bne     set_parse_error
 line_ok:
         ; Increases output buffer
-        lda     opos
         jsr     alloc_prog
         jmp     parse_line