; 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)