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