Loops/Downward for: Difference between revisions
Content deleted Content added
Line 52:
does not use GNU extensions
[]
c clears the stack
[~...]p
l<register>x executes the macro
Line 64:
c
[macro s(swap) - (a b : b a)]
[Sa Sb La Lb] ss
[macro d(2dup) - (a b : a b a b)]
[Sa d Sb La d Lb lsx] sd
[macro m(for) - ]
[lfx 1 - ldx !<m ] sm
| |||