needs tests/harness lib/str asm/x86d
testbegin

create asmbuf 16 allot

\ we don't compare the whole disasm line, only the "description" part.
: chk"
  [rcompile] " asmbuf begin n< swap c!+ eol? until drop ( str )
  asmbuf ['] dis1 capture ( expected a u )
  drop 9 + over c@ []>str #s= ;

\test warm up with easy patterns
chk"RET" $c3
chk"ADD  ESI,04" $83 $c6 $04

\test SIB with index register
chk"ADD  EAX,[ESI+EBP]" $03 $04 $2e

\test SIB with index register and scale
chk"ADD  EAX,[ESI+EBP*4]" $03 $04 $ae

\test LEA used to be printed backwards
chk"LEA  EDI,[EAX+08]" $8d $78 $08
testend