improve error msg

This commit is contained in:
~d6 2022-03-08 23:31:12 -05:00
parent 77bc06332a
commit 7fce584588
1 changed files with 4 additions and 3 deletions

View File

@ -64,7 +64,7 @@
%cr { #0d18 DEO }
%ansi { #1b18 DEO #5b18 DEO }
%quit! { #01 .System/halt DEO }
%quit! { #01 .System/halt DEO BRK }
( zero page )
|0000
@ -157,7 +157,8 @@
;data .File/read DEO2
.File/success DEI2 #0000 GTH2 ,&ok JCN
;messages/input-error ;print JSR2 nl quit!
;messages/input-error ;print JSR2
;filename ;print JSR2 nl quit!
( calculate buffer limit address using start + size )
&ok .File/success DEI2 ;data ADD2 .buffer/limit STZ2
@ -825,7 +826,7 @@
DEOr JMP2r
( various string constants used as messages for the user )
@messages [ &input-error "input 20 "error 00
@messages [ &input-error "input 20 "error: 20 00
&bytes 20 "bytes, 00
&save-ok "saved 00
&save-failed "failed 00