Diff for /gforth/ec/dotx.fs between versions 1.2 and 1.3

version 1.2, 1998/12/08 22:02:59 version 1.3, 1999/05/20 13:38:29
Line 1 Line 1
 \ ???  \ dotx.fs a always (simple) hexadecimal .s
   
 \ Copyright (C) 1998 Free Software Foundation, Inc.  \ Copyright (C) 1998 Free Software Foundation, Inc.
   
Line 18 Line 18
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
 \ for 16 bit machines only  
   
   \ this is much simpler than the things needed for . and .s
   \ so if you are debugging primitives and you don't get .s
   \ to work use this version.
   
 [IFUNDEF] 8>>  [IFUNDEF] 8>>
 : 8>> 8 rshift ;  : 8>> 8 rshift ;
Line 30 Line 34
    IF        IF   
         [ char A char 9 - 1- ] Literal +          [ char A char 9 - 1- ] Literal +
    THEN      THEN 
   '0 + (emit) ;    [char] 0 + (emit) ;
   
 : .w  : .w
         dup 8>> 2/ 2/ 2/ 2/ .digit          dup 8>> 2/ 2/ 2/ 2/ .digit
Line 41 Line 45
 : .x      : .x    
         dup 8>> 8>> .w .w $20 (emit) ;          dup 8>> 8>> .w .w $20 (emit) ;
   
 \ !! depth reibauen  
   
 : .sx  : .sx
   \ SP@ SP0 @ swap - 2/   
   depth    depth
   dup '< emit .x '> emit dup    dup [char] < emit .x [char] > emit dup
   0 ?DO dup pick .x 1- LOOP drop ;    0 ?DO dup pick .x 1- LOOP drop ;

Removed from v.1.2  
changed lines
  Added in v.1.3


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