63 lines
1.4 KiB
PHP
63 lines
1.4 KiB
PHP
|
|
||
|
|
include '80386.inc'
|
||
|
|
|
||
|
|
purge loadall?
|
||
|
|
purge xbts?,ibts?
|
||
|
|
|
||
|
|
iterate <instr,ext>, cmpxchg,0B0h, xadd,0C0h
|
||
|
|
|
||
|
|
calminstruction instr? dest*,src*
|
||
|
|
call x86.parse_operand@dest, dest
|
||
|
|
call x86.parse_operand@src, src
|
||
|
|
check @src.type = 'reg' & ( @dest.type = 'reg' | @dest.type = 'mem' )
|
||
|
|
jyes xadd_rm_reg
|
||
|
|
err 'invalid combination of operands'
|
||
|
|
exit
|
||
|
|
xadd_rm_reg:
|
||
|
|
check @dest.size and not @src.size
|
||
|
|
jno size_ok
|
||
|
|
err 'operand sizes do not match'
|
||
|
|
size_ok:
|
||
|
|
check @src.size > 1
|
||
|
|
jno xadd_rm_reg_8bit
|
||
|
|
call x86.select_operand_prefix@dest, @src.size
|
||
|
|
xcall x86.store_instruction@dest, <0Fh,ext+1>,@src.rm
|
||
|
|
exit
|
||
|
|
xadd_rm_reg_8bit:
|
||
|
|
xcall x86.store_instruction@dest, <0Fh,ext>,@src.rm
|
||
|
|
end calminstruction
|
||
|
|
|
||
|
|
end iterate
|
||
|
|
|
||
|
|
calminstruction bswap? dest*
|
||
|
|
call x86.parse_operand@dest, dest
|
||
|
|
check @dest.type = 'reg' & @dest.size = 4
|
||
|
|
jyes operand_ok
|
||
|
|
err 'invalid operand'
|
||
|
|
exit
|
||
|
|
operand_ok:
|
||
|
|
call x86.store_operand_prefix, @dest.size
|
||
|
|
emit 1, 0Fh
|
||
|
|
emit 1, 0C8h + @dest.rm and 111b
|
||
|
|
end calminstruction
|
||
|
|
|
||
|
|
calminstruction invlpg? dest*
|
||
|
|
call x86.parse_operand@dest, dest
|
||
|
|
check @dest.type = 'mem'
|
||
|
|
jyes operand_ok
|
||
|
|
err 'invalid operand'
|
||
|
|
exit
|
||
|
|
operand_ok:
|
||
|
|
xcall x86.store_instruction@dest, <0Fh,1>,(7)
|
||
|
|
end calminstruction
|
||
|
|
|
||
|
|
iterate <instr,opcode>, invd,<0Fh,8>, wbinvd,<0Fh,9>
|
||
|
|
|
||
|
|
define x86.instr? db opcode
|
||
|
|
|
||
|
|
calminstruction instr?
|
||
|
|
assemble x86.instr?
|
||
|
|
end calminstruction
|
||
|
|
|
||
|
|
end iterate
|