; ROM $00853A
  tst.w $026E(A6)
  bne.b skip
  nop
  neg.w D1
skip:
  lsr.w #1,D1
; addi.w #$0004,D1
; move.b D1,$0203(A6)
