#------------------------------------------------------------------------------
# Kurzanleitung zum System MESSDAT von C. Khnel
# beschrieben in 
# Khnel, Claus: Messen und Steuern mit FORTH auf dem Kleincomputer. 
# Brandenburgisches Verlagshaus, 1990 
#------------------------------------------------------------------------------


KC 85/3, Grundzustand

Modul M026 (FORTH) in Schacht 8

SWITCH 2 0 	( Basic aus )
SWITCH 8 C1     ( Forth auf Adr. C000 ein )
FORTH

-- UTIL.(F) ---------------------
				1 8 CSAVE UTIL
				EDITOR 1 EDIT, Ende mit Stop (Esc im Emulator)

1 8 CLOAD			von Kassette laden
FORGET FREE			bei wiederholtem Laden
1 LOAD
11512 Bytes frei.
UTIL wird compiliert...
UTIL ist compiliert.
11037 Bytes frei.		( nach 13 sek)
OK    


-- BASIS.(F) ---------------------

15 TEXTBUF
1 15 CLOAD			von Kassette laden
FORGET DLI			bei wiederholtem Laden
1 LOAD
7439 Bytes frei.
BASIS wird compiliert...
OFFSET MSG # 4
BASIS ist compiliert.
4144 Bytes frei.		( nach 30 sek)
OK    

-- TAPE.(F) ---------------------

1 4 CLOAD			von Kassette laden
1 LOAD
4144 Bytes frei.
TAPE wird compiliert...
TAPE ist compiliert.
3817 Bytes frei.		( nach 7 sek)
OK                

-- CNTRLDAT.(F) ---------------------

10 TEXTBUF
1 10 CLOAD			von Kassette laden
6387 Bytes frei.
CNTRLDAT wird compiliert...
CNTRLDAT ist compiliert.
5696 Bytes frei.		( nach 16 sek)
OK               

startet automatisch, sonst mit RUN Neustart

Rechteckschwingung, Amplitude 100 counts, Periode 1 s
10 #PAUSE !			60 ms Wartezyklus
46 LAENGE !			~ 1s/25ms = 40, gemessen und erhht auf 46
100 RECHTECK

FPLOT
NULLINIE

10 PERIODEN			Ausgabe 10s (nur, wenn auch DAU-Modul vorhanden ist!)

100 OFFSET			Verschieben um 100 nach oben
FPLOT



#------------------------------------------------------------------------------

alternativ anstelle CNTRLDAT.(F)

-- MESSDAT.(F) ---------------------

15 TEXTBUF
1 14 CLOAD			von Kassette laden
3817 Bytes frei.
MESSDAT wird compiliert...
MESSDAT ist compiliert.
753 Bytes frei.		       ( nach 27 sek)
OK               

startet automatisch, sonst mit RUN Neustart

4 textbuf

- berwachen von 4 Messstellen

1 2 CLOAD			KONTR.(F)
1 LOAD
20 #TAKT !
600 #TRIG !
KONTR

- Erfassung eines Werteverlaufs

1 1 CLOAD			LANG.(F)
1 LOAD
100 LAENGE !
10 #TAKT !
K3 LS

- Triggerung der Messwerterfassung

600 #TRIG !
100 LAENGE !
15 #PAUSE !
K1 AQUIRE

- Pretriggerung

1 3 CLOAD			PRETR.(F)
1 LOAD
200 LAENGE !
0 #PAUSE !
700 #TRIG !
K1 PRETR

Tipp: fr Testdaten
: ADU   1024 ZZ ;



#------------------------------------------------------------------------------

V. Pohlers, 23.03.2011
