home *** CD-ROM | disk | FTP | other *** search
- '**************************************
- '
- ' C-Control/BASIC OUTHC573.BAS
- '
- ' Aufgabe:
- '
- ' - Porterweiterung fⁿr 32 Ausgaenge
- ' - 74HC573-Adressierung ⁿber P9...P12
- '
- '**************************************
- ' --- Definitionen --------------------
-
- define Bus byteport[1]
- define Latch1 port[9]
- define Latch2 port[10]
- define Latch3 port[11]
- define Latch4 port[12]
- define Adresse byte
- define Daten byte
-
- ' --- Programmoperationen -------------
-
- Bus = OFF
- Latch1 = OFF
- Latch2 = OFF
- Latch3 = OFF
- Latch4 = OFF
- #Loop
- print "Adresse 0...3, Daten 0...255"
- input Adresse
- input Daten
- on Adresse gosub Aus1, Aus2, Aus3, Aus4
- print Adresse, Daten, "OK"
- goto Loop 'Endlosschleife
-
- #Aus1
- Bus = Daten
- pulse Latch1
- return
-
- #Aus2
- Bus = Daten
- pulse Latch2
- return
-
- #Aus3
- Bus = Daten
- pulse Latch3
- return
-
- #Aus4
- Bus = Daten
- pulse Latch4
- return
- end
-
-
-
-
-
-