diff --git a/femto.tal b/femto.tal index bdf4480..1c9420b 100644 --- a/femto.tal +++ b/femto.tal @@ -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