...
|
...
|
@@ -71,7 +71,7 @@
|
71
|
71
|
|
72
|
72
|
@asma-print-line-count ( -- )
|
73
|
73
|
;asma/log-level LDA #01 AND #00 EQU ,&skip JCN
|
74
|
|
- ;asma/line LDA2 ;asma-print-short JSR2
|
|
74
|
+ ;asma/lines LDA2 ;asma-print-short JSR2
|
75
|
75
|
;&lines ;asma-print-string JSR2
|
76
|
76
|
&skip
|
77
|
77
|
JMP2r
|
...
|
...
|
@@ -254,7 +254,9 @@ include projects/library/file-read-chunks.tal
|
254
|
254
|
#00 OVR2 STA
|
255
|
255
|
STH2r ,asma-assemble-token JSR ( end-chunk* ws-char* not-newline / line^ )
|
256
|
256
|
asma-IF-ERROR ,&error JCN
|
257
|
|
- JMP INC2r ( end-chunk* ws-char* / line^ )
|
|
257
|
+ ,¬-newline JCN
|
|
258
|
+ ,asma/lines LDR2 INC2 ,asma/lines STR2
|
|
259
|
+ ¬-newline ( end-chunk* ws-char* / line^ )
|
258
|
260
|
;asma/break LDA ,&break JCN
|
259
|
261
|
INC2 STH2k ( end-chunk* start-of-token* / line^ start-of-token* )
|
260
|
262
|
,&loop JMP
|
...
|
...
|
@@ -281,7 +283,7 @@ include projects/library/file-read-chunks.tal
|
281
|
283
|
STH2r ;asma-read-buffer JMP2r
|
282
|
284
|
|
283
|
285
|
@asma [
|
284
|
|
- &pass $1 &state $1 &line $2 &break $1 &eof $1
|
|
286
|
+ &pass $1 &state $1 &line $2 &lines $2 &break $1 &eof $1
|
285
|
287
|
&token $2 &orig-token $2
|
286
|
288
|
&addr $2 &written-addr $2 &flush-fn $2
|
287
|
289
|
&src-filename $2 &dest-filename $2
|