From f8e18b96cdda890ab1f015faec032ac016a23efc Mon Sep 17 00:00:00 2001
From: Klaus2m5 <K@2m5.de>
Date: Thu, 10 Dec 2015 12:12:13 +0100
Subject: [PATCH] update to error 245 (missing closing parenthesis)

error pointer now points to the matching opening parenthesis.
---
 vtl02sg.a65 | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/vtl02sg.a65 b/vtl02sg.a65
index 5308e2d..9016fed 100644
--- a/vtl02sg.a65
+++ b/vtl02sg.a65
@@ -168,7 +168,7 @@
 ;
 ;-----------------------------------------------------;
 ; VTL02 for the 2m5 emulated 6502 SBC
-; - released: 08-dec-2015
+; - released: 10-dec-2015
 ; - codename: speedy Gonzales
 ; - based on VTL02C, changes by Klaus2m5
 ;
@@ -1689,8 +1689,7 @@ synvlr:
     jsr  syn_evalp  ; evaluate array index
     lda  arg+3      ; test parenthesis matched
     beq  synaray
-    lda  #$f5       ; missing parenthesis
-    jsr  syn_err
+    jsr  syn_errp   ; missing closing parenthesis
     lda  #0         ; clear parenthesis match count
     sta  arg+3
 synaray:
@@ -1720,8 +1719,7 @@ syndbl2:
     lda  arg+3      ; matching parenthesis
     beq  synlp1
     bmi  synend     ; extra closing p. = comment
-    lda  #$f5       ; missing closing parenthesis
-    jsr  syn_err
+    jsr  syn_errp   ; missing closing parenthesis
     lda  #0         ; clear parenthesis match count
     sta  arg+3
     beq  synlp1
@@ -1857,6 +1855,10 @@ syn_err1:
     rts   
 
 syn_evalp:
+    lda  arg+3      ; is 1st opening parenthesis ?
+    bne  syn_evalp1
+    sty  arg+1      ; save pointer
+syn_evalp1:
     inc  arg+3      ; +1 open parenthesis
 syn_eval:
     jsr  syn_val
@@ -1891,6 +1893,17 @@ syn_evalx2:
 syn_evalx:
     rts
 
+syn_errp:
+    lda  arg        ; set open parenthesis error
+    bne  syn_errp1  ; skip if already set
+    lda  #$f5
+    sta  arg
+    dec  arg+1      ; pointer to opening parenthesis
+    lda  arg+1
+    sta  arg+2
+syn_errp1:
+    rts
+
 vld_ops:    
     db   "+-*/<=>[]{}&^",OP_OR
 vld_ops_x = * - vld_ops - 1