Added file name to asma error printout.

This commit is contained in:
Andrew Alderwick 2021-10-07 22:58:50 +01:00
parent 5aca7e5070
commit 3967d27173
1 changed files with 6 additions and 3 deletions

View File

@ -60,17 +60,20 @@
)
@asma-print-error ( -- )
.File/name DEI2 ;asma-print-string JSR2
;&line ;asma-print-string JSR2
;asma/line LDA2 ;asma-print-short JSR2
#3a .Console/error DEO
#20 .Console/error DEO
;asma/error LDA2 ;asma-print-string JSR2
#3a .Console/error DEO
#20 .Console/error DEO
;asma/orig-token LDA2 ;asma-print-string JSR2
;&line ;asma-print-string JSR2
;asma/line LDA2 ;asma-print-short JSR2
#2e .Console/error DEO
#0a .Console/error DEO
JMP2r
&line 20 "on 20 "line 20 00
&line 20 "line 20 00
@asma-print-line-count ( -- )
;asma/log-level LDA #01 AND #00 EQU ,&skip JCN