gforth: gforth/locals-test.fs

-version 1.5, Mon Oct 24 19:16:01 1994 UTC
+version 1.6, Wed Jan 25 18:53:50 1995 UTC
  Line 287
  Line 287
  Line 287
 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
+{ a }  ." after }" cr
+{ b -- } ." after --" cr
+ ;
+ .s cr
  bye

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.5
 


changed lines


 
Added in v.1.6
 Legend:



Removed from v.1.5
 


changed lines


 
Added in v.1.6
-Removed from v.1.5
+Added in v.1.6