Use PRINT_ARG for passing argument to RTAB.

Author: dmsc

src/interp/atari/print_tab.asm

@@ -39,7 +39,7 @@
         sbc     COLCRS
         bcs     ok
 rep:
-        adc     tmp2
+        adc     PRINT_ARG
         bcc     rep
 
 ok:
@@ -52,7 +52,7 @@ ok:
 .endproc
 
 .proc   EXE_PRINT_TAB   ; PRINT TAB up to column N
-        sta     tmp2
+        sta     PRINT_ARG
         jsr     do_tab
         jmp     next_instruction
 .endproc
@@ -61,16 +61,13 @@ ok:
         sta     tmp1    ; Save AX (string address)
         stx     tmp1+1
 
-        lda     stack_l, y      ; Get TAB position
-        sta     tmp2
-
         ldy     #0
         sec
+        lda     PRINT_ARG       ; Get TAB position
         sbc     (tmp1), y       ; subtract string length
 
         jsr     do_tab
 
-        inc     sptr
         ldy     #0              ; Print color = 0
         sty     PRINT_ARG
         jmp     print_str_tmp1  ; Print string in tmp1

src/syntax/basic.syn

@@ -290,8 +290,7 @@ PRINT_SEP_EOL:
         "Tab" T_EXPR emit TOK_PRINT_TAB
         # Right-TAB is complicated because we need to apply it to the *next*
         # parameter, so we read that parameter and the next optional separator:
-        "RTab" T_EXPR emit TOK_PUSH \
-               PRINT_ONE emit { TOK_PRINT_RTAB } PRINT_SEP_EOL
+        "RTab" T_EXPR emit { TOK_BYTE_POKE, PRINT_ARG } PRINT_ONE emit { TOK_PRINT_RTAB } PRINT_SEP_EOL
         "," emit { TOK_BYTE, 10, TOK_PRINT_TAB }
         ";"
         E_EOL emit { TOK_BYTE_PUT, ATEOL }