commit 9fe75ac071f656cef8dd0135d5edca314f8a9bc1 parent 7b8d03c725398caa9fc0b36599f7cc8e6c1e983e Author: Henry Wilson <m3henry@googlemail.com> Date: Mon, 19 Jun 2017 16:54:01 +0100 return stack documentation Diffstat:
| M | main.s | | | 28 | ++++++++++++++-------------- |
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/main.s b/main.s @@ -264,9 +264,9 @@ _dotdot: forthword const stack do equal if 1f - do pushret - do _dotdot - do popret + do pushret # Top of stack + do _dotdot # + do popret # const '\t' do emit do dup @@ -328,20 +328,20 @@ quadcmp: forthword do drop do true endword -1: do pushret - do dup2 - do indneq - if 0f - do inc - do swap - do inc - do swap - do popret +1: do pushret # Count + do dup2 # + do indneq # + if 0f # + do inc # + do swap # + do inc # + do swap # + do popret # do dec goto 2b -0: do drop2 - do popret +0: do drop2 # (Count) + do popret # do drop do false endword