gforth/kernal.fs - diff

Return to kernal.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/Attic/kernal.fs between versions 1.22 and 1.24

version 1.22, 1994/10/24 19:16:00	version 1.24, 1994/11/15 15:55:39
Line 1	Line 1
\ KERNAL.FS ANS figFORTH kernal 17dec92py	\ KERNAL.FS GNU FORTH kernal 17dec92py
\ $ID:	\ $ID:
\ Idea and implementation: Bernd Paysan (py)	\ Idea and implementation: Bernd Paysan (py)
\ Copyright 1992 by the ANSI figForth Development Group	\ Copyright 1992 by the ANSI figForth Development Group
Line 244 decimal	Line 244 decimal
Create spaces bl 80 times \ times from target compiler! 11may93jaw	Create spaces bl 80 times \ times from target compiler! 11may93jaw
DOES> ( u -- ) swap	DOES> ( u -- ) swap
0 max 0 ?DO I' I - &80 min 2dup type +LOOP drop ;	0 max 0 ?DO I' I - &80 min 2dup type +LOOP drop ;
	Create backspaces 08 80 times \ times from target compiler! 11may93jaw
	DOES> ( u -- ) swap
	0 max 0 ?DO I' I - &80 min 2dup type +LOOP drop ;
hex	hex
: space 1 spaces ;	: space 1 spaces ;

Line 1038 Variable warnings G -1 warnings T !	Line 1041 Variable warnings G -1 warnings T !

: bell #bell emit ;	: bell #bell emit ;

: backspaces 0 ?DO #bs emit LOOP ;	\ : backspaces 0 ?DO #bs emit LOOP ;
: >string ( span addr pos1 -- span addr pos1 addr2 len )	: >string ( span addr pos1 -- span addr pos1 addr2 len )
over 3 pick 2 pick chars /string ;	over 3 pick 2 pick chars /string ;
: type-rest ( span addr pos1 -- span addr pos1 back )	: type-rest ( span addr pos1 -- span addr pos1 back )
Line 1401 Variable argc	Line 1404 Variable argc
THEN	THEN
+LOOP ;	+LOOP ;

	Defer 'cold ' noop IS 'cold

: cold ( -- )	: cold ( -- )
	'cold
pathstring 2@ process-path pathdirs 2!	pathstring 2@ process-path pathdirs 2!
argc @ 1 >	argc @ 1 >
IF	IF

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

Removed from v.1.22
changed lines
	Added in v.1.24