[Wisp-cvs] wisp/users/dig i8086.tran,1.6,1.7 ia32.tran,1.15,1.16

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv2790

Modified Files:
	i8086.tran ia32.tran 
Log Message:
introduced the |$-pw,| word

Index: i8086.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/i8086.tran,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- i8086.tran	17 May 2003 09:47:27 -0000	1.6
+++ i8086.tran	17 May 2003 09:55:40 -0000	1.7
@@ -28,4 +28,6 @@
 :[ reg16/32 ] $push $osize minor #o120 + b, ;
 :[ lit      ] $push #x68 b, pw, ;
 
+:[ lit ] $call #xe8 b, pw-size - $-pw, ;
+
 \ vim: ft=tran

Index: ia32.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/ia32.tran,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- ia32.tran	17 May 2003 09:48:57 -0000	1.15
+++ ia32.tran	17 May 2003 09:55:40 -0000	1.16
@@ -16,11 +16,9 @@
 :[ reg32 ] $osize ;         \ or $o32
 :[ reg16 ] $osize #x66 b, ; \ or $o16
 
-:[ ] pw, t, ; \ Processor Word for ia32 is tetra
+\ Processor Word for ia32 is tetra
+:[ ] pw, t, ;
 :[ ] pw-size 4 ;
-
-\ These instructions are not completely operand width portable:
-
-:[ lit ] $call #xe8 b, pw-size - $-t, ;
+:[ ] $-pw, $-t, ;
 
 \ vim: ft=tran