; 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)

; ROM $0084D4
  jmp $0FD100 ; sub.w $0088(A6),D2
  nop         ; move.b $0002(A6),D3

; ROM $FD100
  sub.w $0088(A6),D2

  tst.w $026E(A6)
  beq.b skip

  btst #2,$0002(A6) ; Left
  beq.b next
  bra.b change
next:
  btst #3,$0002(A6) ; Right
  beq.b skip
change:
  eori.b #$0C,$0002(A6) ; Swap

skip:
  move.b $0002(A6),D3
  jmp $0084DC
