solve initial vaule stack side effect

2021-06-05 18:10:38 +01:00 · 2021-06-05 18:10:38 +01:00 · e73660a042
parent 7138d12e8d
commit e73660a042
1 changed files with 1 additions and 1 deletions
--- 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