Return to key.fs CVS log | Up to [gforth] / gforth / arch / misc |
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 ;