Sonic 1 prototype FCOL3.ASM source code fragment fixed

    ??????? fcol,fcolj,fcole

*cd_walk        equ 0*2
*cd_jump        equ 1*2
*cd_up          equ 2*2
*cd_down        equ 3*2

updotmax    equ -4
downdotmax  equ 4
jumpdotmax  equ 8

;sprvo      equ $1c     ;1
;sprho      equ $1d     ;1
;sprvs      equ $1e     ;1
;sprhs      equ $1f     ;1
;------------------------------------------------------------------------------
;   foot colition
;
;col:
    move.w  yposi(a0),d4
    move.b  sprvo(a0),d1
    add.b   sprvs(a0),d1
    ext.w   d1
    add.w   d1,d4
    move.w  xposi(a0),d5
    move.b  sprho(a0),d1
    ext.w   d1
    add.w   d1,d5
    move.w  xspeed(a0),scrhithz
.loop:
    move.w  d4,d2           ;
    move.w  d5,d3           ;
    moveq   #0,d0
    move.b  sprhs(a0),d0
    tst.w   xspeed(a0)
    bpl.b   .jump
*   btst.b  #cd_right,cddot(a0)
*   beq.b   .jump
    neg.w   d0
.jump:
    add.w   d0,d3
    bsr.w   scdchk          ;
    tst.w   d1
    beq.b   .end
    bpl.b   .down
.up:
    cmp.w   #updotmax,d1
    blt.b   .nomove
    add.w   d1,yposi(a0)
.end:
    rts
.nomove:
    bsr.b   hoseihsub
    bra.b   .loop
    move.w  #0,xspeed(a0)
    rts
.down:
    move.w  d1,d6
    swap    d6
.down2:
    move.w  d4,d2
    move.w  d6,d3
    moveq   #0,d0
    move.b  sprhs(a0),d0
    tst.w   xspeed(a0)
    bpl.b   .jump3
*   btst    #cd_left,cddot(a0)
*   bne.s   .jump3
    neg.w   d0
.jump3:
    add.w   d0,d3
    bsr.w   scdchk
    tst.w   d1
    beq.b   .end2
    bpl.b   .down1
.up2:
    cmp.w   #updotmax,d1
    blt.b   .nomove2
    add.w   d1,yposi(a0)
.end2:
    rts