llvm
Clyne 2 years ago
parent bf9f8a902b
commit 0ede616831
Signed by: clyne
GPG Key ID: 3267C8EBF3F9AFC7

@ -86,7 +86,7 @@ yes 6.1.1680 I
yes 6.1.1700 IF
yes 6.1.1710 IMMEDIATE (as "imm")
yes 6.1.1720 INVERT
6.1.1730 J
yes 6.1.1730 J
yes 6.1.1750 KEY
6.1.1760 LEAVE
yes 6.1.1780 LITERAL

@ -70,6 +70,7 @@
postpone unloop ; imm
: loop 1 postpone literal postpone +loop ; imm
: i postpone r@ ; imm
: j postpone 2r> postpone r@ ['] -rot , postpone 2>r ; imm
: align here 1 & if 1 allot then ;
: aligned dup 1 & if 1+ then ;

Loading…
Cancel
Save