gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.5, 1994/11/29 16:22:47	version 1.6, 1995/02/08 13:38:53
Line 191 VARIABLE C-Pass	Line 191 VARIABLE C-Pass
Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN	Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN
cell+ ;	cell+ ;

	: c-flit
	Display? IF dup f@ scratch represent 0=
	IF 2drop scratch 3 min 0 .string
	ELSE IF '- cemit THEN 1-
	scratch over c@ cemit '. cemit 1 /string 0 .string
	'E cemit
	dup abs 0 <# #S rot sign #> 0 .string bl cemit
	THEN THEN
	float+ ;

: c-s"	: c-s"
count 2dup + aligned -rot	count 2dup + aligned -rot
Display?	Display?
Line 373 VARIABLE C-Pass	Line 383 VARIABLE C-Pass

CREATE C-Table	CREATE C-Table
' lit A, ' c-lit A,	' lit A, ' c-lit A,
	' flit A, ' c-flit A,
' (s") A, ' c-s" A,	' (s") A, ' c-s" A,
' (.") A, ' c-." A,	' (.") A, ' c-." A,
' "lit A, ' c-c" A,	' "lit A, ' c-c" A,