Tastaturabfrage

;===================================================
;------ Experiment: Tastaturabfrage ----------------
;===================================================
;
            .GLOBAL PIOKEY
PIOKEY:     LD      A,0CFH      ;Modus 3
            OUT     (PIOAC),A
            LD      A,00001111B ;Eingang: Bit 0-3
            OUT     (PIOAC),A   ;Ausgang: Bit 4-7
            LD      A,00000111B ;keine Interrupts
            OUT     (PIOAC),A
;
$2          LD      B,4         ;4 Leitungen scannen
            LD      A,10H
            LD      (OUTPAT),A  ;Scanmuster ausgeben
            LD      HL,INPAT    ;Zeiger auf Bit-Feld
$1:         LD      A,(OUTPAT)  ;1 Leitung aktivieren
            OUT     (PIOAD),A
            ADD     A,A         ;nächste Leitung
            LD      (OUTPAT),A
            IN      A,(PIOAD)   ;Rückmeldung lesen
            AND     0FH
            LD      (HL),A      ;und speichern in
            INC     HL          ;  Bit-Feld
            DJNZ    $1
;
            LD      DE,INPAT    ;Auswertung
            LD      HL,0
            LD      B,4
$3:         ADD     HL,HL       ;Bits in HL setzen
            ADD     HL,HL
            ADD     HL,HL
            ADD     HL,HL
            LD      A,(DE)
            OR      L
            LD      L,A
            INC     DE
            DJNZ    $3
            CALL    DSPHL       ;Ergebnis anzeigen
            LD      HL,10000
            CALL    DELAY
            JR      $2
            RET
;
            .DATA
OUTPAT      DEFB    0           ;Ausgangsmuster
INPAT       DEFB    0,0,0,0     ;Eingangsmuster
            .CODE