+ ((MOV)
+ (case modifier
+ ((A) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'A-num) name))
+ ((B) ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'B-num) name))
+ ((AB) ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'A-num) name))
+ ((BA) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'B-num) name))
+ ((F) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'A-num) name)
+ ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'B-num) name))
+ ((X) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'B-num) name)
+ ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'A-num) name))
+ ((I) ((core-get B-pointer) 'copy-from! (core-get A-pointer) name)))
+ (list (addr+ ptr 1)))
+ ((ADD)
+ (case modifier
+ ((A))
+ ((B))
+ ((AB))
+ ((BA))
+ ((F))
+ ((X))))
+ ((SUB)
+ (case modifier
+ ((A))
+ ((B))
+ ((AB))
+ ((BA))
+ ((F))
+ ((X))))