6502/VTL02
1
0
Fork 0
mirror of https://github.com/Klaus2m5/VTL02.git synced 2024-11-22 03:30:55 +00:00
Code Issues Projects Releases Wiki Activity

update to error 245 (missing closing parenthesis)

Browse Source 
error pointer now points to the matching opening parenthesis.
This commit is contained in:
Klaus2m5 2015-12-10 12:12:13 +01:00
parent 950d3a1c92
commit f8e18b96cd
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
vtl02sg.a65
View File

@ -168,7 +168,7 @@
; ;
;-----------------------------------------------------; ;-----------------------------------------------------;
; VTL02 for the 2m5 emulated 6502 SBC ; VTL02 for the 2m5 emulated 6502 SBC
; - released: 08-dec-2015 ; - released: 10-dec-2015
; - codename: speedy Gonzales ; - codename: speedy Gonzales
; - based on VTL02C, changes by Klaus2m5 ; - based on VTL02C, changes by Klaus2m5
; ;
@ -1689,8 +1689,7 @@ synvlr:
jsr syn_evalp ; evaluate array index jsr syn_evalp ; evaluate array index
lda arg+3 ; test parenthesis matched lda arg+3 ; test parenthesis matched
beq synaray beq synaray
lda #$f5 ; missing parenthesis jsr syn_errp ; missing closing parenthesis
jsr syn_err
lda #0 ; clear parenthesis match count lda #0 ; clear parenthesis match count
sta arg+3 sta arg+3
synaray: synaray:
@ -1720,8 +1719,7 @@ syndbl2:
lda arg+3 ; matching parenthesis lda arg+3 ; matching parenthesis
beq synlp1 beq synlp1
bmi synend ; extra closing p. = comment bmi synend ; extra closing p. = comment
lda #$f5 ; missing closing parenthesis jsr syn_errp ; missing closing parenthesis
jsr syn_err
lda #0 ; clear parenthesis match count lda #0 ; clear parenthesis match count
sta arg+3 sta arg+3
beq synlp1 beq synlp1
@ -1857,6 +1855,10 @@ syn_err1:
rts rts
syn_evalp: 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 inc arg+3 ; +1 open parenthesis
syn_eval: syn_eval:
jsr syn_val jsr syn_val
@ -1891,6 +1893,17 @@ syn_evalx2:
syn_evalx: syn_evalx:
rts 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: vld_ops:
db "+-*/<=>[]{}&^",OP_OR db "+-*/<=>[]{}&^",OP_OR
vld_ops_x = * - vld_ops - 1 vld_ops_x = * - vld_ops - 1