d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more readable error messages

This commit is contained in:
Erik Osheim 2022-04-12 12:15:42 -04:00
parent 0d138b5bee
commit 0e551183ac
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
femto.tal
View File

@ -22,6 +22,7 @@
%sp { #2018 DEO }
%nl { #0a18 DEO }
%cr { #0d18 DEO }
%crlf { cr nl }
%ansi { #1b18 DEO #5b18 DEO }
( emit macros )
@ -171,8 +172,9 @@
.File/success DEI2 #0000 EQU2 .state/modified STZ
.File/success DEI2 #ce81 LTH2 ,&ok JCN
crlf
;messages/input-error ;print JSR2
;filename ;print JSR2 nl quit!
;filename ;print JSR2 crlf quit!
( calculate buffer limit address using start + size )
&ok .File/success DEI2 ;data ADD2 .buffer/limit STZ2
@ -1368,7 +1370,7 @@
,&loop JMP
&eol INC2r
STH2kr .term/rows LDZ2 GTH2 ,&done JCN
cr nl INC2 ,&bol JMP
crlf INC2 ,&bol JMP
&do-tab ;emit-tab JSR2 INC2
.config/tab-width LDZ2 ,&x LDR2 ADD2 ,&x STR2
,&loop JMP
@ -1377,7 +1379,7 @@
;emit-red JSR2
&eof-loop
STH2kr .term/rows LDZ2 GTH2 ,&done JCN
cr nl
crlf
lmargin ;term-move-right JSR2
emit-~ INC2r
,&eof-loop JMP