CameraCD    equ 1

Sonic_CameraCD:
    if CameraCD=1
        tst.b   $39(a0)
        beq.s   @NotSpindash
        move.w  #$70,d1
        move.w  #$70,d0
        btst    #0,$22(a0)
        beq.s   @cont
        bne.s   @cont2
        rts

@NotSpindash
        tst.w   $10(a0)
        bmi.s   @Left
        cmpi.w  #$70,($FFFFFFF5).w
        ble     @Reset
        move.w  $10(a0),d0
        cmpi.w  #$180,d0
        bcs.s   @Reset
        divu.w  #$10,d0
        cmpi.w  #$70,d0
        bcs.s   @cont
        move.w  #$70,d0

@cont
        add.w   #$80,d0
        cmp.w   ($FFFFFFF5).w,d0
        beq.s   @Rts
        blt.s   @Sub
        bgt.s   @Add
        rts

@Left
        cmpi.w  #$90,($FFFFFFF5).w
        bge.s   @Reset
        cmpi.w  #$100,($FFFFF700).w     ; Если камера близко к старту уровня
        bcs.s   @Reset                  ; Cбросить смещение, иначе жуть какой баг будет.
        move.w  #$0,d1
        sub.w   $10(a0),d1
        ;move.w $10(a0),d1
        ;neg.w  d1
        cmpi.w  #$180,d1
        bcs.s   @Reset
        divu.w  #$10,d1
        cmpi.w  #$70,d1
        bcs.s   @cont2
        move.w  #$70,d1

@cont2
        move.w  #$80,d0
        sub.w   d1,d0
        cmp.w   ($FFFFFFF5).w,d0
        beq.s   @Rts
        blt.s   @Sub
        bgt.s   @Add
        rts

@Add
        addq.w  #1,($FFFFFFF5).w
        tst.b   $39(a0)
        beq.s   @Rts
        addq.w  #3,($FFFFFFF5).w
        rts

@Sub
        subq.w  #1,($FFFFFFF5).w
        tst.b   $39(a0)
        beq.s   @Rts
        subq.w  #3,($FFFFFFF5).w
        rts

@Reset
        cmpi.w  #$80,($FFFFFFF5).w
        beq.s   @Rts
        bcc.s   @Reset2
        addq.w  #6,($FFFFFFF5).w

@Reset2
        subq.w  #3,($FFFFFFF5).w

@Rts
        rts

    else
        tst.w   $10(a0)
        bmi.s   @Left

@Right
        cmpi.w  #$300,$10(a0)
        bcs.s   @Reset
        cmpi.w  #$F0,($FFFFFFF5).w
        bge.w   @Rts
        addq.w  #2,($FFFFFFF5).w        ; Скрорость, с которой камера начнёт смещаться
        bra.w   @Rts

@Left
        cmpi.w  #$80,($FFFFF700).w      ; Если камера близко к старту уровня
        bcs.s   @Reset                  ; Cбросить смещение, иначе жуть какой баг будет.
        cmpi.w  #$FC00,$10(a0)
        bcc.s   @Reset
        cmpi.w  #$10,($FFFFFFF5).w
        ble.w   @Rts
        subq.w  #2,($FFFFFFF5).w
        bra.w   @Rts

@Reset
        cmpi.w  #$80,($FFFFFFF5).w
        beq.s   @Rts
        bcc.s   @Reset2
        addq.w  #4,($FFFFFFF5).w

@Reset2
        subq.w  #2,($FFFFFFF5).w

@Rts
    endc
        rts