Minor size optimizations to the parser, 8 bytes less.

Author: dmsc

src/actions.asm

@@ -660,11 +660,8 @@ ret:    rts
         sta     loop_stk - 1, y
         pla
         asl     ; Check BIT 6
-        bmi     xit
-::inc_opos_2:
-        jsr     parser_inc_opos
-        jsr     parser_inc_opos
-xit:    clc
+        bpl     emit_AX
+        clc
         rts     ; C is cleared on exit!
 .endproc
 
@@ -759,10 +756,11 @@ move:
 .endproc
 
 .proc   E_POP_WHILE
+        ; Skip over jump (position + 2)
+        jsr     emit_AX
         ; Pop saved "jump to end" position
         lda     #LT_WHILE_2
-        ; Save current position + 2 (skip over jump)
-        jsr     inc_opos_2
+        ; Save current position
         jsr     pop_patch_codep
         ; Pop saved "loop reentry" position
         lda     #LT_WHILE_1

src/interp/clearmem.asm

@@ -120,16 +120,14 @@ saved_cpu_stack:
         tya
         inx
         ldy     alloc_size
-        beq     nxt
-;        .byte   $2C   ; Skip 2 bytes over next "DEC"
-        bne     loop    ; Prefer branch, is faster
+        jmp     nxt     ; Start loop
 
 pgloop: dec     move_dest+1
 loop:   dey
         sta     (move_dest), y
-        bne     loop
+nxt:    bne     loop
 
-nxt:    dex
+        dex
         bne     pgloop
 
         rts

src/parse.asm

@@ -148,7 +148,7 @@ parse_eof:
         ;lda     #TOK_END       ; Already A=0 from above
         .assert TOK_END = 0, error, "Parser depends on TOK_END = 0"
         clc
-        jmp     emit_const      ; Exit after emit
+        bcc     emit_const      ; Exit after emit
 
 .proc parser_fetch
         inc     pptr