;File: kpoll01.asm                       08.06.91/kn
;Das Programm dient der prinzipiellen Darstellung des
;Polling-Verfahrens.
;In einer Schleife wird ein Eingabekanal periodisch
;abgefragt und auf das anliegende Datenwort entsprechend
;reagiert.
;Version 1.0
;Datenteil---------------------------------------------
;
piobd    equ  05h          ;Portadresse B fr Daten
piobc    equ  07h          ;Portadresse B fr Steuerwort
pioac    equ  06h          ;Portadresse A fr Steuerwort
pioad    equ  04h          ;Portadresse A fr Daten
outcon   equ  0fh          ;Steuerwort fr Ausgabeport
incon    equ  4fh          ;Steuerwort fr Eingabeport
;
;Programmteil--------------------------------------------
;
initpio: ld   A,incon      ;Steuerwort fr Eingabe
         out  (pioac),a    ;in Kontrollregister A schreiben
polling: in   a,(pioad)    ;Eingaberegister Port A auslesen
         bit  0,a          ;Bit 0 auf Wert 0 abtesten
         jr   z,polling    ;Rcksprung zur erneuten Abfrage
;
;Hauptprogramm===========================================
start:   ld   a,01h        ;
init:    ld   b,08h        ;zur Besch„ftigung der CPU
         ld   hl,1900h     ;ohne eigenen Sinn
loop1:   ld   (hl),a       ;
         inc  hl           ;
         dec  b            ;
         jr   nz,loop1     ;
         inc  a            ;
         jr   init         ;
;
final:   nop               ;No operation
         halt              ;Programmstop
;Hauptprogrammende======================================
;
         END
;
;-------------------------------------------------------
;Erklaerungen
;keine
