Annotation of gforth/arch/misc/key.fs, revision 1.2

1.1       pazsan      1: \ misc-key.fs basic-io for misc processor              01feb97jaw
                      2: 
                      3: 
1.2     ! pazsan      4: c: (key?) $ffff x@ 0<> ;
1.1       pazsan      5: 
                      6: c: (key)  BEGIN key? UNTIL $fffe x@ ;
                      7: 
                      8: c: (emit) $fffc x! ;
                      9: 
                     10: c: (type)  BEGIN  dup  WHILE
                     11:     >r dup c@ (emit) 1+ r> 1-  REPEAT  2drop ;
                     12: \ bounds ?DO i c@ emit LOOP ;
                     13: 
                     14: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>