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
1: \ misc-key.fs basic-io for misc processor 01feb97jaw 2: 3: 4: c: (key?) $ffff x@ 0<> ; 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: