solve initial vaule stack side effect
This commit is contained in:
parent
7138d12e8d
commit
e73660a042
2
main.tal
2
main.tal
|
@ -162,7 +162,6 @@ RTN
|
||||||
;get-selected-addr JSR2 STA
|
;get-selected-addr JSR2 STA
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
( TODO fix leaving a 2B on the stack on the case of an initial value )
|
|
||||||
@handle-editing ( key -- )
|
@handle-editing ( key -- )
|
||||||
DUP #2b EQU ,&plus JCN
|
DUP #2b EQU ,&plus JCN
|
||||||
DUP #2d EQU ,&minus JCN
|
DUP #2d EQU ,&minus JCN
|
||||||
|
@ -178,6 +177,7 @@ RTN
|
||||||
LDA #01 ADD STH2r STA
|
LDA #01 ADD STH2r STA
|
||||||
RTN
|
RTN
|
||||||
&initial
|
&initial
|
||||||
|
POP
|
||||||
;set-initial-value JSR2
|
;set-initial-value JSR2
|
||||||
RTN
|
RTN
|
||||||
&minus
|
&minus
|
||||||
|
|
Reference in New Issue