RosettaCodeData/Task/Stack/Axe/stack.axe

15 lines
110 B
Plaintext

0→S
Lbl PUSH
r₁→{L₁+S}ʳ
S+2→S
Return
Lbl POP
S-2→S
{L₁+S}ʳ
Return
Lbl EMPTY
S≤≤0
Return