+ ((JMZ)
+ (list (addr+ ptr
+ (if (case modifier
+ ((A BA)
+ (= 0 ((core-get A-ptr) 'A-num)))
+ ((B AB)
+ (= 0 ((core-get A-ptr) 'B-num)))
+ ((X I F)
+ (and (= 0 ((core-get A-ptr) 'A-num))
+ (= 0 ((core-get A-ptr) 'B-num)))))
+ ((core-get A-ptr) 'A-num)
+ 1))))
+ ((JMN)
+ (list (addr+ ptr
+ (if (not (case modifier
+ ((A BA)
+ (= 0 ((core-get A-ptr) 'A-num)))
+ ((B AB)
+ (= 0 ((core-get A-ptr) 'B-num)))
+ ((X I F)
+ (and (= 0 ((core-get A-ptr) 'A-num))
+ (= 0 ((core-get A-ptr) 'B-num))))))
+ ((core-get A-ptr) 'A-num)
+ 1))))