Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6466/src/kernel
Modified Files:
gkernel.f
Log Message:
arm: minor mods to disassembler; show offsets as signed hex
Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** gkernel.f 1 Feb 2007 23:02:02 -0000 1.31
--- gkernel.f 13 Mar 2007 23:49:34 -0000 1.32
***************
*** 3354,3358 ****
--- 3354,3362 ----
mov eax, esi
next;
+
+ : base@ ( n -- base n ) base @ ;
+ : base! ( base -- ) base ! ;
+ : (.$) ( -- ) [char] $ emit ;
: "HOLD ( addr len -- ) dup negate hld +! hld @ swap move ;
: #s ( d1 -- d2 ) begin # 2dup or 0= until ;
***************
*** 3364,3372 ****
: u. ( u -- ) 0 d. ;
: u.r ( u w -- ) 0 swap d.r ;
! : h. ( u -- ) base @ swap hex u. base ! ;
: ? ( addr -- ) @ . ;
: .id ( nfa -- ) count type space ;
! : 10. ( u -- ) base @ swap decimal . base ! ; \ display number in decimal
! : $. ( u -- ) [char] $ emit h. ; \ display $hex
\ -------------------- Header structure as of Aug 2005 ----------------------
--- 3368,3377 ----
: u. ( u -- ) 0 d. ;
: u.r ( u w -- ) 0 swap d.r ;
! : h. ( u -- ) base@ swap hex u. base! ;
: ? ( addr -- ) @ . ;
: .id ( nfa -- ) count type space ;
! : 10. ( n -- ) base@ swap decimal . base! ; \ display number in decimal
! : $. ( u -- ) (.$) h. ; \ display $hex
! : $s. ( n -- ) (.$) base@ swap hex . base! ; \ display signed $hex
\ -------------------- Header structure as of Aug 2005 ----------------------
|
