FUNKAMATEUR – Bauelementeinformation SL (1)610C SL (1)

Listing 1: Die Software zur Ansteuerung des ML 2035/36
über die Centronics-Schnittstelle eines PC
‘**************************************************************
‘ SOFTWARE ZUR ANSTEUERUNG DES ML 2036
‘ PROGRAMMIERSPRACHE: POWERBASIC
‘ ANSCHLUß AN CENTRONICSPORT LPT1
‘ Anschlüsse ML2036 LPT1 (oder 2)
‘ PD Datenbit 7 (Pin 9)
‘ SID Datenbit D0 (Pin 2)
‘ SCK Strobe (Pin 1)
‘ LATI AUTOFEED (Pin 14)
‘**************************************************************
cls
print “ **** SOFTWARE ZUR ANSTEUERUNG DES ML 2036 **** “
print
shared LPTXD%, LPTXC%
shared FOUT
call portadresse ‘ Portadresse wählen
print
‘ Hier kann das Hauptprogramm stehen
‘ z.B.
do
cls
print “ Funktionswahl “
print “ 1 – Ausgabe einer konstanten Frequenz “
print “ 2 – Wobbeln “
print “ 3 – Programmende “
input “ Ihre Wahl (1, 2 oder 3) ? “, FKT
select case FKT
case 1
call EINE.FREQUENZ (FOUT)
case 2
call WOBBELN
case 3
end ‘ Programmende
end select
loop
‘-------------------------------------------------------------------------------
SUB WOBBELN
input “untere Frequenz ? “, FMIN
input “obere Frequenz ? “, FMAX
input “Zeit in Sekunden bis zum nächsten Frequenzwechsel ? “, t
do
print “ich wobble, Abbruch mit einer Taste“
for i= FMIN to FMAX STEP 0.5
FOUT = i
call SCHIEBEREGISTER (FOUT)
delay t
if instat then i=FMAX ‘ Test, ob Taste
next i
loop until instat ‘ Tastendruck beendet
TASTE$=INKEY$ ‘ Wobbelfunktion
END SUB
‘-------------------------------------------------------------------------------
SUB EINE.FREQUENZ (FOUT)
FREQUENZ:
input “Frequenz 0...32767.5 Hz (0,5-Hz-Schritte) ? “, FOUT
if FOUT < 0 then goto FREQUENZ ‘ testen auf Grenzwert
if FOUT >32767.5 then goto FREQUENZ
call SCHIEBEREGISTER (FOUT)
END SUB
END
‘-------------------------------------------------------------------------------
SUB SCHIEBEREGISTER (FOUT)
SCKHIGH% = 0 ‘ negiert
SCKLOW% = 1
LATIHIGH% = 1 ‘ verknüpft mit SCK, damit SCK
LATILOW% = 3 ‘ bei LATI nicht beeinflußt wird
SR& = FOUT*2 ‘ entspricht FOUT * 2^23/FCLKIN mit FCLKIN= 4194304 (Hz)
‘ als Taktfrequenz SR=Schieberegisterwert des ML2035
SRBYTE?=bits?(SR&) ‘ niederwertiges Byte abschneiden
SRBYTE?=SRBYTE? AND 127 ‘ PD-Bit auf Low halten
out LPTXD%, SRBYTE?
out LPTXC%, SCKLOW%
out LPTXC%, SCKHIGH% ‘ SCK takten, Bit übernehmen
out LPTXC%, SCKLOW%
for i=1 to 15 ‘ jetzt noch 15* schieben
shift right SR&,1 ‘ macht dann 16 Bit
SRBYTE?=bits?(SR&)
SRBYTE?=SRBYTE? AND 127
out LPTXD%, SRBYTE?
out LPTXC%, SCKLOW% ‘ SCK takten, Bit übernehmen
out LPTXC%, SCKHIGH%
out LPTXC%, SCKLOW%
next i
out LPTXC%, LATIHIGH%
out LPTXC%, LATILOW% ‘ LATI takten, Daten in
out LPTXC%, LATIHIGH% ‘ ML2036-LATCH übernehmen
END SUB
‘-------------------------------------------------------------------------------
SUB PORTADRESSE
PORT:
LPT1D%=&H378
LPT1C%=&H37A
LPT2D%=&H278
LPT2C%=&H27A
input “LPT1 oder LPT2 benutzen (1 oder 2 eingeben) ? “,LPT
if LPT < 1 or LPT > 2 then goto PORT
if LPT = 1 then LPTXD% = LPT1D% : LPTXC% = LPT1C%
if LPT = 2 then LPTXD% = LPT2D% : LPTXC% = LPT2C%
END SUB
‘-------------------------------------------------------------------------------
Listing 2: Unterprogramm für die 8031/51-Familie
; ======== MODUL für ML2035/2036 ========
Praktische Elektronik
; Funktion : serielles Interface für programmierbare
; Sinusgeneratoren ML2035 und ML 2036
; Prozessor : 80C31 / 80C32 und kompatible
; EPROM : ab 0000H ...
; RAM : kein externer RAM erforderlich
; Anschlüsse :
; Controller Port1 ML2035 / ML2036
; P1.7 PD
; P1.0 SID
; P1.1 SCK
; P1.2 LATI
; Register : Register der aktiven Bank
; R0 Low-Byte für Frequenz
; R1 High-Byte für Frequenz
; R3 Bitzähler (16 Bit)
; Vereinbarungen
; Spezialfunktionsregister SFR:
ACC equ 0E0H ; Akku
P1 equ 090H ; Port 1
SP equ 081H ; Stackpointer
;
LFREQ equ 11H ; Low- und Highbyte Frequenz
HFREQ equ 22H ; werden hier nur zu Testzwecken festgelegt,
; sonst kommen diese Werte von anderen Programmteilen
.org $0 ; Startadresse
ljmp START
; hier folgen die Startadressen für die Interrupts
; ...
; -------------------------------------------------------------------------------
; Programmstart ab 100H, irgendwo muß es ja losgehen
.org 100H
START mov SP,#40H ; Stackpointer —> oberer RAM
; Port 1 initialisieren, zur Übersichtlichkeit einzeln
clr P1.0 ; Datenbit = 0
clr P1.1 ; SCK = 0
clr P1.2 ; LATI = 0
clr P1.7 ; PD = 0 —> aktiv
; ... hier stehen evtl. andere Programmteile
; -------------------------------------------------------------------------------
; Hauptprogramm zur Demonstration als unendliche Schleife
ML2036 lcall POWDN ; ML2036 in Power-down-Modus
; ... hier können noch andere Befehle stehen
lcall NOTPDN ; Power-down aufheben
; zur Demonstration laden wir hier R0 und R1 mit Direktwerten
mov R0,LFREQ ; Lowbyte für Frequenz in R0
mov R1,HFREQ ; Highbyte für Frequenz in R1
lcall SERIF ; Unterprogr. zur Übergabe der
; Frequenzdaten aufrufen
; ... hier können noch andere Befehle stehen
sjmp ML2036 ; relativer Sprung zurück
; -------------------------------------------------------------------------------
; serielles Interface
SERIF mov R3,#10H ; Bytezähler auf 8 für Low-Byte
mov ACC,R0 ; Lowbyte holen
LBYTE clr P1.0
jnb ACC.0,TAKT1 ; teste Akkubit 0, Sprung bei Low
setb P1.0 ; Akkubit war H —> P1.0 kopieren
TAKT1 setb P1.1 ; SCK takten
clr P1.1
rr A ; Akkuinhalt schieben
djnz R3, LBYTE ; Bitzähler erniedrigen und Sprung zurück,
; wenn noch nicht 0, das ganze nochmal für Highbyte
mov R3,#10H ; Bytezähler auf 8 für High-Byte
mov ACC,R1 ; Highbyte holen
HBYTE clr P1.0
jnb ACC.0,TAKT2 ; teste Akkubit 0, Sprung bei Low
setb P1.0 ; Akkubit war H —> P1.0 kopieren
TAKT2 setb P1.1 ; SCK takten
clr P1.1
rr A ; Akkuinhalt schieben
djnz R3, LBYTE ; Bitzähler erniedrigen und Sprung zurück,
; wenn noch nicht 0, alle Bits übergeben,
; in Latch des ML2036 schreiben
setb P1.2 ; LATI takten
clr P1.2
ret
; -------------------------------------------------------------------------------
; die Unterprogramme zur Power-down-Steuerung
POWDN setb P1.7 ; Power down PD auf H
mov R0,00H ; 0000H als PD-Wert
mov R1,00H
lcall serif ; serielles Interface
ret
NOTPDN clr P1.7 ; ML 2036 aktivieren PD auf Low
ret
; -------------------------------------------------------------------------------
FA 4/95 • 385