File:  [gforth] / gforth / arch / misc / key.fs
Revision 1.2: download - view: text, annotated - select for diffs
Fri Dec 11 22:54:29 1998 UTC (25 years, 3 months ago) by pazsan
Branches: MAIN
CVS tags: v0-6-2, v0-6-1, v0-6-0, v0-5-0, v0-4-0, HEAD
Added further options to shrink a kernel down
Cleaned up conditional primitives (works now for C-generated part, too)
Cleaned up mach files for embedded architectures
Cleaned up options in the kernel

\ misc-key.fs basic-io for misc processor		01feb97jaw


c: (key?) $ffff x@ 0<> ;

c: (key)  BEGIN key? UNTIL $fffe x@ ;

c: (emit) $fffc x! ;

c: (type)  BEGIN  dup  WHILE
    >r dup c@ (emit) 1+ r> 1-  REPEAT  2drop ;
\ bounds ?DO i c@ emit LOOP ;



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