[OpenBIOS] Found out why replacing '\r' with '\n' works
Segher Boessenkool
segher at kernel.crashing.org
Mon Apr 18 04:36:15 CEST 2016
On Sun, Apr 17, 2016 at 08:36:28PM -0500, Segher Boessenkool wrote:
> hex
> 20 cells CREATE stash VARIABLE #stash #stash off
> : stash-push stash #stash cells + ! 1 stash +! ;
> : stash-pop -1 stash +! stash #stash cells + @ ;
> : >r state @ IF postpone >r EXIT THEN stash-push ;
> : r> state @ IF postpone r> EXIT THEN stash-pop ;
> : r@ state @ IF postpone r@ EXIT THEN stash-pop dup stash-push ;
With IMMEDIATE after these last three words, of course. Bah.
Segher
More information about the OpenBIOS
mailing list