gforth/arch/r8c/prim.fs - diff

Return to prim.fs CVS log

Up to [gforth] / gforth / arch / r8c

version 1.26, 2006/03/26 22:54:19	version 1.27, 2006/04/01 17:30:32
Line 635 end-code	Line 635 end-code
Code (key) ( -- char ) \ get character	Code (key) ( -- char ) \ get character
tos push.w:g	tos push.w:g
BEGIN 3 , $AD btst:g 0<> UNTIL	BEGIN 3 , $AD btst:g 0<> UNTIL
$AE , tos mov.w:g	$AE , tos mov.w:g r0h , r0h xor.b
next,	next,
End-Code	End-Code

Line 775 end-code	Line 775 end-code
: refill-loop ( -- )	: refill-loop ( -- )
BEGIN 3 emit refill WHILE interpret REPEAT ;	BEGIN 3 emit refill WHILE interpret REPEAT ;
: included ( addr u -- ) echo off	: included ( addr u -- ) echo off
2 emit dup emit type ['] refill-loop catch	2 emit dup $20 + emit type ['] refill-loop catch
dup IF 4 emit THEN echo on throw ;	dup IF 4 emit THEN echo on throw ;
: include ( "file" -- ) parse-name included ;	: include ( "file" -- ) parse-name included ;
: empty ( -- ) $2800 flash-off $2000 flash-off ;	: empty ( -- ) $2800 flash-off $2000 flash-off
	forth-wordlist ram-mirror + ram-start - @ forth-wordlist !
	normal-dp ram-mirror + ram-start - @ normal-dp ! $2000 flash-dp ! ;

: (bye) ( 0 -- ) \ back to DOS	: (bye) ( 0 -- ) \ back to DOS
drop 5 emit ;	drop 5 emit ;