![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to locals-test.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to locals-test.fs CVS log | Up to [gforth] / gforth |
| version 1.5, 1994/10/24 19:16:01 | version 1.6, 1995/01/25 18:53:50 |
|---|---|
| Line 287 teststrcmp1 | Line 287 teststrcmp1 |
| 1 2 3 4 puke . . . . cr | 1 2 3 4 puke . . . . cr |
| \ just some other stuff | |
| : life1 { b0 b1 b23 old -- new } | |
| b23 invert old b1 b0 xor and old invert b1 and b0 and or and ; | |
| : life2 { b0 b1 b23 old -- new } | |
| b0 b1 or old b0 xor b1 xor b23 or invert and ; | |
| $5555 $3333 $0f0f $00ff life1 . | |
| $5555 $3333 $0f0f $00ff life2 . | |
| .s | |
| cr | |
| : test | |
| 1 { a } ." after }" cr | |
| 2 { b -- } ." after --" cr | |
| ; | |
| .s cr | |
| bye | bye |