'**************************************************************************
'*                                                                        *
'*                    Programm: Port_Ausgabe_2.Amos                       *
'*                                                                        *
'*                    © 1993,94,95 Andreas Heinrich                       *
'*                                                                        *
'**************************************************************************
'
'
'        Dieses Programm schreibt an Port 3 den Wert der Variable N
'                   N kann über Input eingegeben werden.
'
'
'**************************************************************************
'
'  A=Port selektieren
'  N=Wert an diesem Port geben
   Global A,N
   Hide
'
'
A=3 : Rem       Ausgabeport 3 wird ausgewählt -> IC 4
N=0 : Rem       Wert 0 in N
'
INIT : Rem      Nach dem einschalten einmal aufrufen
'
'**************************** Hauptprogramm *******************************
'
'
'
Do
Print
Print "   Gebe eine Zahl ein: ";
'
'     Die Zahl sollte natürlich im 8 Bit - Bereich liegen. ( 0 - 255 )
'
Input N
SCHREIBEN
Loop
'
'
'************************** Proceduren ********************************
'
Procedure SCHREIBEN
'
Poke 12570624,248+A : Rem  Adresse A selektieren
Poke 12575489,255 : Rem    Port als Ausgang schalten
Poke 12574977,N : Rem      Wert N schreiben
Poke 12570624,255 : Rem    Ready LED einschalten
'
End Proc
'
Procedure INIT
'
Poke 12571136,199 : Rem    Busy,P-aus und SEL=Bitmuster Ausgabe
Poke 12570624,255 : Rem    Adresse 7 selektieren (Ready LED ein)
Poke 12575489,0 : Rem      Port als Eingang schalten
'
End Proc
'