keyLoop:
    
;check keys: group 2, clear
    ld a,$FD        ;grupo 2
    out (1),a       ;puerto 1: el teclado
    in a,(1)
    cp 191          ;clear
    jp z,quit

;#################
;#JUST FOR DEBUG
;#################
    ld a,$BF        ;grupo 7
    out (1),a
    in a,(1)
    cp 223          ;2nd
    jp nz,dontMovePlayer
    call movePlayer
dontMovePlayer:
;#################

;check keys: group 7, alpha
    ld a,$DF        ;grupo 6
    out (1),a
    in a,(1)
    cp $7F          ;Alpha
    jr nz,start

;check for arrow keys
    ld a,$FE
    out (1),a
    in a,(1)
    rra
    push af
        call nc,mapDown
    pop af
    rra
    push af
        call nc,mapLeft
    pop af
    rra
    push af
        call nc,mapRight
    pop af
    rra
    call nc,mapUp
;   jp start