diff --git a/main.tal b/main.tal index 879fe27..e8d25a6 100644 --- a/main.tal +++ b/main.tal @@ -162,7 +162,6 @@ RTN ;get-selected-addr JSR2 STA RTN -( TODO fix leaving a 2B on the stack on the case of an initial value ) @handle-editing ( key -- ) DUP #2b EQU ,&plus JCN DUP #2d EQU ,&minus JCN @@ -178,6 +177,7 @@ RTN LDA #01 ADD STH2r STA RTN &initial + POP ;set-initial-value JSR2 RTN &minus