'       ***********************
'       *  Der erste Schritt  *
'       ***********************
; Ds Programm printet Hallo und beendet dann
; Der allgemeine Ablauf ist so:
; Programm in einem Teexteditor bearbeiten
; dann auf die Zielhardware übertragen und testen.
; Man hat parallel immer Progtool und Editor offen

; Am schnellsten geht die Uebertragung mit ctrl<C> kopieren
; und shift<Ins> (oder <ctrl>V) ins Progtool einladen

'==================== Beginn ===========================
120 MTOP=3FFFH                  'nur bei akkugepuffertem RAM nötig
130 STRING 500,16               'Platz für 39 Strings   16 Zeichen
140 GOSUB 10000                 'Initialsierung
; -----------------------------------------------------------------------
;                       Hauptmenu
; -----------------------------------------------------------------------
1000 INIT OUT,0:INIT INP,0	; umschalten auf PC
1010 ?"Hallo"
1020 ?"Das Programm ist zu Ende"
1030 END
; -----------------------------------------------------------------------
;                       Initialisierung
; -----------------------------------------------------------------------
; im Folgenden ein Beispiels-Initialisierung. Wichtig sind die Adressen
; ADR und ADEPRO, sowie die Zahl der Var. VARANZAHL
;
10000 CLOCK 1:TIME=0            ' starte Zeit, nur wenn nötig
;Initialisierung des Displays 
10010 INIT DISP                 ; Display initialisieren
10012 INIT INP,3                ; Eingabe von Fronttastatur 42TE
10015 INIT OUT,1                ; Ausgabe auf Display
' wieder gemeinsam weiter
10050 CLS:? CHR(5),             ; screen clear, Cursor aus
10060 P. "**** MOTRON ****"
10070 P. "*Steuersysteme *",
; -------------- Konstanten definieren -----------------------
; diese Konstanten sind je nach Controller anders
; Der Zahlenwert entspricht der Bitnummer 
10170 A0=0			; Ausgang 0
10180 A1=1			; Ausgang 1
10190 A2=2			; Ausgang 2
10200 A3=3			; Ausgang 3
10210 A4=4			; Ausgang 4
10220 A5=5			; Ausgang 5
10230 A6=6			; Ausgang 6
10240 A7=7			; Ausgang 7
10250 END0=0			; Endschalter 1
10260 END1=4			; Endschalter 2
10270 STRG=5			; Eingang "Störung Endstufe"
10280 E0=8			; Eingang 0
10290 E1=9			; Eingang 1
10300 E2=10			; Eingang 2
10310 E3=11			; Eingang 3
10320 E4=12			; Eingang 4
10330 E5=13			; Eingang 5
10340 E6=14			; Eingang 6
10350 E7=15			; Eingang 7
10352 E8=20			; Eingang 8
10355 E9=21			; Eingang 9
10360 LEDR=159			; Leuchtdiode rot
10370 LEDG=158			; Leuchtdiode grün
10400 RETURN

