gforth/arch/386/disasm.fs - diff

Return to disasm.fs CVS log

Up to [gforth] / gforth / arch / 386

version 1.5, 2000/12/02 21:31:48	version 1.6, 2003/05/08 08:49:24
Line 976 str scs scas	Line 976 str scs scas
S" fcmovb fcmove fcmovbefcmovu ??? ??? ??? ??? "	S" fcmovb fcmove fcmovbefcmovu ??? ??? ??? ??? "
7 ss. ;	7 ss. ;

: fda ( addr op -- )	: fda ( addr op -- addr' )
drop count dup $c0 <	drop count dup $c0 < IF ( addr1 op1 )
IF dup falu3 .s" dword " mod-r/m	dup falu3 .s" dword " mod-r/m
ELSE $e9 =	ELSE
IF .s" fucompp" drop	dup $e9 = IF ( addr1 op1 )
ELSE dup fcmova sti.	drop .s" fucompp"
THEN	ELSE
THEN ;	dup fcmova sti.
	THEN
	THEN ;

: falu7 ( op -- )	: falu7 ( op -- )
3 rshift 7 and	3 rshift 7 and