[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