Hope someone finds it useful.
Code: Select all
LBL "STKINIT"
18.00001
STO 19
RTN
LBL "STKPUSH"
RDN
XEQ "PUSH"
RDN
XEQ "PUSH"
RDN
XEQ "PUSH"
RDN
LASTX
XEQ "PUSH"
RDN
RTN
LBL "STKPOP"
XEQ "POP"
STO L
RDN
XEQ "POP"
XEQ "POP"
XEQ "POP"
R^
RTN
LBL "PUSH"
STO IND 19
DSE 19
RTN
LBL "POP"
ISG 19
ENTER ; Never runs this line!
RCL IND 19
RTN