Browse code
Added file name to asma error printout.
Andrew Alderwick authored on 07/10/2021 21:58:50
Showing 1 changed files
| ... | ... |
@@ -60,17 +60,20 @@ |
| 60 | 60 |
) |
| 61 | 61 |
|
| 62 | 62 |
@asma-print-error ( -- ) |
| 63 |
+ .File/name DEI2 ;asma-print-string JSR2 |
|
| 64 |
+ ;&line ;asma-print-string JSR2 |
|
| 65 |
+ ;asma/line LDA2 ;asma-print-short JSR2 |
|
| 66 |
+ #3a .Console/error DEO |
|
| 67 |
+ #20 .Console/error DEO |
|
| 63 | 68 |
;asma/error LDA2 ;asma-print-string JSR2 |
| 64 | 69 |
#3a .Console/error DEO |
| 65 | 70 |
#20 .Console/error DEO |
| 66 | 71 |
;asma/orig-token LDA2 ;asma-print-string JSR2 |
| 67 |
- ;&line ;asma-print-string JSR2 |
|
| 68 |
- ;asma/line LDA2 ;asma-print-short JSR2 |
|
| 69 | 72 |
#2e .Console/error DEO |
| 70 | 73 |
#0a .Console/error DEO |
| 71 | 74 |
JMP2r |
| 72 | 75 |
|
| 73 |
- &line 20 "on 20 "line 20 00 |
|
| 76 |
+ &line 20 "line 20 00 |
|
| 74 | 77 |
|
| 75 | 78 |
@asma-print-line-count ( -- ) |
| 76 | 79 |
;asma/log-level LDA #01 AND #00 EQU ,&skip JCN |