CheckJoy
      lda #$02
      bit $dc00
      bne .NotDownPressed
      jsr PlayerMoveDown
NotDownPressed      ; UP
      lda #$01
      bit $dc00
      bne .NotUpPressed         ; bne $0b69
      lda UPRELEASED            ; $0ebd
      beq NotUpPressed
      lda #0
      sta UPRELEASED
      jsr PlayerJump

NotUpPressed
      lda #$04
      bit $dc00
      bne NotLeftPressed        ; bne 0b73
      jsr PlayerMoveLeft        ; jsr 0bae

NotLeftPressed
      lda #$08
      bit $dc00
      bne NotRightPressed       ; bne 0b7d
      jsr PlayerMoveRight       ; jsr 0c11

NotRightPressed
      lda #01
      sta UPRELEASED
      rts