improve error msg
This commit is contained in:
parent
77bc06332a
commit
7fce584588
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue