; Naam     : CHLOOK
; Functie  : Kijkt of de toets ingedrukt is aangegeven door A
; Invoer   : A - xTTT RRRR
;                 ЦЦЦ ЦЦЦЦ
;                 ЦЦЦ УУУУУУУУУУУ Rijnummer (0-10)
;                 УУУУУУУУУУУУУУУ Bit nummer (0-7)
; Uitvoer  : Zero & P flag gezet als toets is ingedrukt
; Verandert: alles
; Opmerking: Interrupts worden wel disabled maar niet enabled
; Extra    : РРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРР
;            ЦRijЦBit 7 ЦBit 6 ЦBit 5 ЦBit 4 ЦBit 3 ЦBit 2 ЦBit 1 ЦBit 0о
;            лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;            Ц 0 Ц7     Ц6     Ц5     Ц4     Ц3     Ц2     Ц1     Ц0    о
;            Ц 1 Ц;     Ц]     Ц[     Ц\     Ц=     Ц-     Ц9     Ц8    о
;            Ц 2 ЦB     ЦA     ЦACCENTЦ/     Ц.     Ц,     Ц'     Ц`    о
;            Ц 3 ЦJ     ЦI     ЦH     ЦG     ЦF     ЦE     ЦD     ЦC    о
;            Ц 4 ЦR     ЦQ     ЦP     ЦO     ЦN     ЦM     ЦL     ЦK    о
;            Ц 5 ЦZ     ЦY     ЦX     ЦW     ЦV     ЦU     ЦT     ЦS    о
;            Ц 6 ЦF3    ЦF2    ЦF1    ЦCODE  ЦCAPS  ЦGRPH  ЦCTRL  ЦSHIFTо
;            Ц 7 ЦRET   ЦSEL   ЦBS    ЦSTOP  ЦTAB   ЦESC   ЦF5    ЦF4   о
;            Ц 8 ЦRIGHT ЦDOWN  ЦUP    ЦLEFT  ЦDEL   ЦINS   ЦHOME  ЦSPACEоРРРРРРР
;            Ц 9 Ц4     Ц3     Ц2     Ц1     Ц0     Цvrij  Цvrij  Цvrij о Nume-о
;            Ц10 Ц.     Ц,     Ц-     Ц9     Ц8     Ц7     Ц6     Ц5    о riek!о
;            УУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУУ
CHLOOK: PUSH  AF
        AND   0FH
        LD    C,A
        POP   AF
        SRL   A
        SRL   A
        SRL   A
        SRL   A
        INC   A
        LD    B,A
        LD    A,10000000B
CHLOK1: RLCA
        DJNZ  CHLOK1
        LD    B,A
        DI
        IN    A,(0AAH)
        AND   0F0H
        ADD   A,C
        OUT   (0AAH),A
        IN    A,(0A9H)
        AND   B
        RET
A,(0AAH)
        AND   0F0H
        ADD   A,C
        OUT   (0AAH),A
        IN    A,(0A9H)
