mirror of
https://github.com/ctm/syn68k.git
synced 2024-11-25 07:32:17 +00:00
23 lines
787 B
Scheme
23 lines
787 B
Scheme
|
(include "68k.defines.scm")
|
||
|
|
|
||
|
|
(define (ADDB name bit_pattern expand amode src dst)
|
||
|
|
(defopcode name
|
||
|
|
(list 68000 amode () bit_pattern)
|
||
|
|
(list "-----" "-----" expand
|
||
|
|
(assign dst (+ dst src)))
|
||
|
|
(list "CNVXZ" "-----" dont_expand
|
||
|
|
(list
|
||
|
|
(assign tmp2.ub dst)
|
||
|
|
(assign ccv (& (~ (^ tmp2.ub src)) 0x80))
|
||
|
|
(ASSIGN_NNZ_BYTE (assign dst (assign tmp.uw (+ dst src))))
|
||
|
|
(assign ccx (assign ccc (>> tmp.uw 8)))
|
||
|
|
(assign ccv (& ccv (^ tmp.ub tmp2.ub)))))))
|
||
|
|
|
||
|
|
(define add_sub_expand (list "----xxx---00xxxx" ; [ad]n, [ad]n
|
||
|
|
"----xxx---010xxx" ; an@, [ad]n
|
||
|
|
"----xxx---101xxx")) ; an@(d16), [ad]n
|
||
|
|
|
||
|
|
(ADDB addb_dest_reg (list "1101ddd000mmmmmm") add_sub_expand
|
||
|
|
(intersect amode_all_combinations (not "xxxxxxxxxx001xxx")) ; no an
|
||
|
|
$2.mub $1.dub)
|