Das ist nicht schön von sirpete ... [Archiv] - ProgForum.com

Import-Script

13.03.2003, 22:15

Moin Peter, rein zufällig habe ich gerade gesehen das eine Beispiel-Routine die der Batronix-Software beiliegt eigentlich von mir ist. Das ist ja auch nicht schlimm, aber wenn Du schon meine Sachen verteilst könntest Du wenigstens Deine eigenen Kommentare dazu schreiben. Vor einiger Zeit hatte ich Dir mal eben genau mein Programm und die Erklärung zu seriellen EEPROM's gemailt. Deine Fragen von damals stehen im Forum Archiv. Schön wie sich alles wiederfindet. Ich bin stolz auf Dich... Gruß Winnie Hier beide Versionen: 1. Deine 2. meine ; 24C16 Ansteuerung von Peter Max, bei Fragen u. Verbesserungsvorschlägen, ; bitte eine email an <a href="mailto:sirpete@web.de">sirpete@web.de</a> ; Diese INCLUDE-Datei, steuert den I²C-Bus. Optimiert für den 24C16, ; lässt sich aber einfach auf alle beliebigen I²C-Bausteine übertragen. ; ; ; Wichtig!! ; ; Der 24C16 hat eine 11Bit Adressierung, die folgendermaßen aussieht: ; Device-Address | Word-Address | Data | ; 1 0 1 0 P2 P1 P0 R/-W | A7 A6 A5 A4 A3 A2 A1 A0 | B7 B6 B5 B4 B3 B2 B1 B0 | ; ^ ^ ^ | ^ | ^ | ; Device Page Modus | Addresse in der Page | Zu schreibendes Byte | ; ; ; Benötigte Daten: ; SDA - > BIT - Portpin für SDA-Leitung. ; SCL - > BIT - Portpin für SCL-Leitung. ; I2C_befehl - > Wert einer Speicherstelle die ein Baustein Adressiert. ; Adresse - > Wert einer Speicherstelle, die die WordAdresse enthält. ; Wert - > Wert einer Speicherstelle, die die zu schreibenden Daten enthält. ; ; Die Befehle der INCLUDE-Datei: ; wert_lesen - > Schreibt Inhalt von "Wert" im Adressierte Baustein u. an die in "Adresse" Stehendestelle ; wert_schreiben - > Liest Inhalt vom Adressierten Baustein und Adresse in den Akku ; ; Unabhängig von den vorhergehenden Befehlen: ; Startbedingung_erzeugen - > Sendet Startsingnal am I²C-Bus ; Stopbedingung_erzeugen - > Sendet Stopsignal am I²C-Bus ; Acknowledge - > Sendet Acknowledge am I²C-Bus ; No_Acknoeledge - > Sendet NoAcknowledge am I²C-Bus Startbedingung_erzeugen: SETB SDA 'Vorbereitung zur Startbedingung' SETB SCL JNB SDA,Bus_belegt 'Ist der Datenbus frei?' JNB SCL,Bus_belegt 'Ist der Datenbus frei?' NOP NOP CLR SDA 'SCL high / SDA geht auf low' CALL 5µs CLR SCL CLR C JMP I2C_zurück Bus_belegt: SETB C 'Setze Carry BIT wenn Datenbus besetzt.' 'Wird aber in diesem Programm nicht abgefragt,' 'da nur ein I2C Baustein angeschlossen.' I2C_zurück: RET Acknowledge: 'BIT vom I2C-Baustein (hier EEPROM)' CLR SDA 'zur Bestätigung, dass das' NOP 'Datenwort korrekt angekommen ist. NOP SETB SCL CALL 5µs CLR SCL RET No_Acknowledge: 'siehe oben, nur diametral' SETB SDA NOP NOP SETB SCL CALL 5µs CLR SCL RET Stopbedingung_erzeugen: CLR SDA 'Vorbereitung zur Stopbedingung' NOP NOP SETB SCL 'SCL high / SDA geht auf high' CALL 5µs SETB SDA RET 8_Bits_senden: 'Daten sind im AKKU' PUSH B 'Rette Inhalt von B auf den Stack.' MOV B,#8 'Wird in diesem Programm eigentlich' 'nicht benötigt, nur zum "Angewöhnen"' 8_Bits: 'für später :-)' RLC A 'Schiebe den Akkuinhalt nach links' MOV SDA,C 'durch das Carry Flag um ihn Bitweise' NOP 'zu senden.' SETB SCL CALL 5µs CLR SCL DJNZ B,8_Bits 'Hole Acknowledge BIT vom Slave (9. BIT, Empfangsbestätigung)' SETB SDA RLC A 'Stellt Ausgangs Wert von Akku und C wieder her NOP SETB SCL CALL 5µs MOV C,SDA CLR SCL POP B 'Stelle B wieder her (vom Stack holen)' RET 8_Bits_lesen: 'Daten in den Akku lesen' SETB SDA PUSH B 'siehe oben' MOV B,#8 8_Bits_1: NOP NOP NOP SETB SCL NOP NOP NOP 'Die Daten aus dem I2C-Baustein werden' MOV C,SDA 'in das Carry Flag geschrieben und' RLC A 'nach links in den Akku geschoben.' CLR SCL DJNZ B,8_Bits_1 POP B 'siehe oben' RET wert_lesen: '"Dummy write" siehe Datenblatt.' CALL startbedingung_erzeugen MOV A,I2C_Befehl DEC A CALL 8_Bits_senden MOV A,Adresse CALL 8_Bits_senden 'Speicher auslesen ab Adresse (hier Adresse 00 siehe oben)' CALL startbedingung_erzeugen MOV A,I2C_Befehl CALL 8_Bits_senden CALL 8_Bits_lesen CALL No_Acknowledge CALL stopbedingung_erzeugen RET wert_speichern: CALL Startbedingung_erzeugen MOV A,I2C_Befehl CALL 8_Bits_senden CALL 5µs MOV A,Adresse CALL 8_Bits_senden CALL 5µs MOV A,Wert CALL 8_Bits_senden CALL 5µs CALL Stopbedingung_erzeugen RET 5µs: 'Zeitverzögerung von ca. 5µs incl. CALL u. RET' NOP NOP RET ****************************************** 'Belichtungs - Timer für Platinenbelichtungsgerät' 'Auch als Küchen - Timer zu benutzen.' 'Speichert eingestellte Zeit und zeigt sie beim erneuten' 'Starten bzw. Zeitablauf (00.00) sofort an.' 'Countdown - Zeiten zwischen 59 Minuten und 59 Sekunden' 'bis 1 Sekunde in 1er Sekundenschritten einstellbar.' 'Nach Zeitablauf wird wieder die gespeicherte Zeit für' 'erneuten Start eingestellt.' 'Vier Tasten: Minuten minus, Sekunden minus, Start und Stop.' 'Vierstellige 7-Segment-Anzeige.' 'Mein erstes Mikrocontroller Projekt.' '(C) Wilfried Brozio Mai / Juni 2001' INCLUDE 89C2051.mc LJMP Initialisierung'Überspringe feste Sprungadressen.' '50ms Zeitbasis für Timer / Sekunden genaue Zeit' (000Bh): 'Einsprungadresse Interrupt Timer 0' MOV A,TL0 'Grundeinstellung Timer 0 Low Byte' ADD A,#B3h 'A = TL0 = Zeit seit Überlauf + Grundeinstellung B0+3' MOV TL0,A 'Akkuinhalt in Timer 0 low Byte (TL0)' MOV TH0,#3Ch 'Grundeinstellung Timer 0 High Byte' 'Routine zum Countdown der Uhrzeit' DJNZ R6,stop1 'R6 = R6 - 1, wenn nicht 0 dann springe.' MOV R6,#%20'Interruptzähler (20*50ms = 1000ms = 1Sekunde)' DEC R3 'R3 = R3 - 1' IF R3 = #FFh THEN 'R3 übergelaufen?' MOV R3,#09 'dann R3 = 09' DEC R2 'R2 = R2 - 1' END IF IF R2 = #FFh THEN 'R2 übergelaufen?' MOV R2,#05 'dann R2 = 05' DEC R1 'R1 = R1 - 1' END IF IF R1 = #FFh THEN 'R1 übergelaufen?' MOV R1,#09 'R1 = 09' DEC R0 'R0 = R0 - 1' END IF CJNE R0,#00,stop1 'R0 = 10er Minute' CJNE R1,#00,stop1 'R1 = 1er Minute' CJNE R2,#00,stop1 'R2 = 10er Sekunden' CJNE R3,#00,stop1 'R3 = 1er Sekunden' SETB D5h 'Setze Flag BIT D5h im PSW' RETI Ende: CLR TR0 'Timer 0 aus' SETB P3.7 'Relais aus' LCALL speicher_lesen 'Hole Zeit aus dem Speicher.' LJMP Tasten stop1: RETI Initialisierung: MOV Port1,#FFh 'Setze Port 1 auf 1111 1111.' MOV Port3,#%240 'Setze Port 3 auf 1111 0000.' MOV R6,#%20 'R6 = Interruptzähler' MOV SP,#20h 'Stack hochsetzen. In diesem Programm' 'eigentlich nicht nötig, DA nur Register Bank 0 benutzt wird.' 'Timer Grundeinstellung' MOV TMOD,#01h 'Timer 0 Modus = 1 MOV TH0,#3Ch 'High Byte von Timer 0 setzen MOV TL0,#B0h 'Low Byte von Timer 0 setzen SETB EA 'Interruptbehandlung aktivieren SETB ET0 'Interrupt für Timer 0 aktivieren 'Zum Speichern' lesen EQU !10100001'Basisadresse 1010 EEPROM, 0001 lesen' schreiben EQU !10100000'1010 Basis EEPROM, 0000 schreiben' Adresse EQU 00h 'Startadresse 00h im EEPROM' SDA EQU P1.7 'Portpin P1.7 wird SDA zugewiesen' SCL EQU P1.6 'Portpin P1.6 wird SCL zugewiesen' 'I2C-Bus initialisieren' SETB SCL 'Setzte Daten und Clock Leitung' SETB SDA 'auf high' LCALL speicher_lesen 'lies den aktuellen Speicherinhalt' LJMP Tasten 'Frage Tasten ab' speicher_lesen: 'auszulesende Adresse schreiben' SETB SCL SETB SDA '"Dummy write" Weil nur ein 24C16 EEPROM vorhanden war, sonst' 'bei z. B. 24C01 EEPROM's enfällt, siehe Datenblatt.' LCALL startbedingung_erzeugen MOV A,#schreiben LCALL 8_Bits_senden MOV A,#Adresse LCALL 8_Bits_senden 'Speicher auslesen ab Adresse (hier Adresse 00 siehe oben)' LCALL startbedingung_erzeugen MOV A,#lesen LCALL 8_Bits_senden LCALL 8_Bits_lesen MOV R0,A LCALL Acknowledge LCALL 8_Bits_lesen MOV R1,A LCALL Acknowledge LCALL 8_Bits_lesen MOV R2,A LCALL Acknowledge LCALL 8_Bits_lesen MOV R3,A LCALL No_Acknowledge LCALL stopbedingung_erzeugen RET Start: LCALL Zeit_speichern 'eingestellte Zeit speichern' SETB TR0 'Timer 0 start' CLR P3.7 'Relais ein' CLR D1h 'Lösche Verzögerungs BIT im PSW' LJMP Countdown 'Zähle rückwärts' 'Routine zum Minuten einstellen' Minuten: CLR P1.4 'Lösche Taster-BIT zur Entprellung' DEC R1 'R1 = R1 - 1' LCALL Refresh IF R1 = #FFh THEN 'Ist R1 übergelaufen?' MOV R1,#09 'Dann setze R1 auf 09. DEC R0 'R0 = R0 - 1' LCALL Refresh END IF IF R0 = #FFh THEN 'Ist R0 übergelaufen?' MOV R0,#05 'Dann setze R0 auf 05. LCALL Refresh END IF SETB P1.4 'Setze wieder Taster-Bit' JB D1h,Tasten 'Ist BIT D1 gesetzt? Dann schnell zählen.' PUSH B 'Rette B auf den Stack.' MOV B,#03h 'Schreibe 03 ins B Register' 'Warte ob Taste etwas länger gedrückt wird, dann zähle' 'schneller rückwärts.' warte_1: LCALL Refresh MOV R7,#05 'Schreibe 05 in Register R7.' warte_2: LCALL Refresh DJNZ R7,warte_2 'Springe zu warte_2 bis R7 = 0.' DJNZ B,warte_1 'Springe zu warte_1 bis B = 0.' SETB D1h 'Setze BIT D1h zum schnell zählen.' POP B 'Stelle B wieder her.' LJMP Tasten Tasten: LCALL Refresh 'Anzeige auffrischen, aktualisieren' JNB P1.4,Minuten 'Minuten einstellen' LCALL Refresh JNB P1.5,Sekunden 'Sekunden einstellen' LCALL Refresh JNB P3.4,Start 'Start des Timers' IF BIT P1.4 THEN CLR D1h'Lösche BIT D1h im PSW, wenn P1.4 high' IF BIT P1.5 THEN CLR D1h'Lösche BIT D1h im PSW, wenn P1.5 high' LJMP Tasten 'Routine zum Sekunden einstellen' Sekunden: CLR P1.5 'Lösche Taster-BIT zur Entprellung' DEC R3 'R3 = R3 - 1' LCALL Refresh IF R3 = #FFh THEN 'Ist R3 übergelaufen?' MOV R3,#09 'Dann setze R3 auf 09. DEC R2 'R2 = R2 - 1' LCALL Refresh END IF IF R2 = #FFh THEN 'Ist R2 übergelaufen?' MOV R2,#05 'Dann setze R2 auf 05. LCALL Refresh END IF SETB P1.5 'Setze wieder Taster-BIT.' JB D1h,Tasten 'Ist BIT D1 gesetzt? Dann schnell zählen.' PUSH B 'Rette B auf den Stack.' MOV B,#03h 'Schreibe 03 ins B Register' 'Warte ob Taste etwas länger gedrückt wird, dann zähle' 'schneller rückwärts.' warte_3: LCALL Refresh MOV R7,#05 'Schreibe 05 in Register R7.' warte_4: LCALL Refresh DJNZ R7,warte_4 'Springe zu warte_4 bis R7 = 0.' DJNZ B,warte_3 'Springe zu warte_3 bis B = 0.' SETB D1h 'Setze BIT D1h zum schnell zählen.' POP B 'Stelle B wieder her' LJMP Tasten 'Vorzeitiges Anhalten des Timers und Rücksprung auf' 'voreingestellte Zeit "Clocktus Interruptus":-)' stop: CLR TR0 'Timer 0 aus' SETB P3.7 'Relais aus' CLR D5h 'Flag D5h löschen' LCALL speicher_lesen 'Zeit auf Start stellen' LJMP Tasten 'Zähle rückwärts' Countdown: LCALL Refresh JB D5h,STOP 'Ist Flag BIT D5h gesetzt, dann Stop' JNB P3.5,STOP 'Timer Countdown Abbruch' LJMP Countdown'Springe zu Countdown, bis D5h = 1, oder P3.5 = 0.' 'Eingestellte Zeit speichern ab Adresse 00 (siehe oben)' Zeit_speichern: LCALL Startbedingung_erzeugen MOV A,#schreiben LCALL 8_Bits_senden MOV A,#Adresse LCALL 8_Bits_senden MOV A,R0 LCALL 8_Bits_senden MOV A,R1 LCALL 8_Bits_senden MOV A,R2 LCALL 8_Bits_senden MOV A,R3 LCALL 8_Bits_senden LCALL Stopbedingung_erzeugen RET 'Routinen zum Anzeigen und aktualisieren der Zeit' Refresh: MOV A,R0 'Schreibe Wert von R0 in den Akku' LCALL Schiebe 'und zeige ihn in "Anzeige 1 an.' LCALL Anzeige_1 MOV A,R1 'Schreibe Wert von R1 in den Akku' LCALL Schiebe 'und zeige ihn in "Anzeige 2 an.' LCALL Anzeige_2 MOV A,R2 'Schreibe Wert von R2 in den Akku' LCALL Schiebe 'und zeige ihn in "Anzeige 3 an.' LCALL Anzeige_3 MOV A,R3 'Schreibe Wert von R3 in den Akku' LCALL Schiebe 'und zeige ihn in "Anzeige 4 an.' LCALL Anzeige_4 RET Schiebe: RRC A 'Schiebe den Akkuinhalt um eine Stelle' MOV P3.0,C 'nach rechts ins Carry Flag und schreibe' RRC A 'den Inhalt des Carry Flag in BIT P3.0' MOV P3.1,C 'bis BIT P3.3 des Port 3.' RRC A 'Hierdurch steht die Binäre 4 BIT' MOV P3.2,C 'Information an den Eingängen des IC 4511' RRC A 'und kann durch den BCD / 7-Segment-' MOV P3.3,C 'Dekoder (4511) zur Anzeige gebracht' RET 'werden.' Anzeige_1: 'Lösche BIT P1.0 in Port 1 und schalte' CLR P1.0 'dadurch den Transistor (für ca. 5ms,' LCALL 1ms 'nicht genau) der ersten Anzeige durch.' SETB P1.0 'Dann setze das BIT wieder und sperre' RET 'damit den Transistor.' Anzeige_2: 'wie bei Anzeige_1, aber BIT P1.1' CLR P1.1 LCALL 1ms SETB P1.1 RET Anzeige_3: 'wie bei Anzeige_1, aber BIT P1.2' CLR P1.2 LCALL 1ms SETB P1.2 RET Anzeige_4: 'wie bei Anzeige_1, aber BIT P1.3' CLR P1.3 LCALL 1ms SETB P1.3 RET 'Verzögerungs Routine für Anzeige' 'Zeitverzögerung entspricht ungefähr 5ms' 1ms: MOV R4,#%10 'Schreibe 10 in Register R4.' eins: MOV R5,#%250 'Schreibe 250 in Register R5.' zwei: DJNZ R5,zwei 'Springe zu zwei bis R5 = 0.' DJNZ R4,eins 'Springe zu eins bis R4 = 0.' NOP RET 'Routinen zum speichern und lesen der Zeit,' 'sowie Routinen zur Steuerung des I2C Busses.' Startbedingung_erzeugen: SETB SDA 'Vorbereitung zur Startbedingung' SETB SCL JNB SDA,Bus_frei 'Ist der Datenbus frei?' JNB SCL,Bus_frei 'Ist der Datenbus frei?' NOP CLR SDA 'SCL high / SDA geht auf low' LCALL 5µs CLR SCL CLR C JMP I2C_zurück Bus_frei: SETB C 'Setze Carry BIT wenn Datenbus besetzt.' 'Wird aber in diesem Programm nicht abgefragt,' 'da nur ein I2C Baustein angeschlossen.' I2C_zurück: RET Stopbedingung_erzeugen: CLR SDA 'Vorbereitung zur Stopbedingung' NOP NOP SETB SCL 'SCL high / SDA geht auf high' LCALL 5µs SETB SDA RET Acknowledge: 'BIT vom I2C-Baustein (hier EEPROM)' CLR SDA 'zur Bestätigung, dass das' NOP 'Datenwort korrekt angekommen ist. NOP SETB SCL LCALL 5µs CLR SCL RET No_Acknowledge: 'siehe oben, nur diametral' SETB SDA NOP NOP SETB SCL LCALL 5µs CLR SCL RET 'Daten sind im AKKU' 8_Bits_senden: PUSH B 'Rette Inhalt von B auf den Stack.' MOV B,#8 'Wird in diesem Programm eigentlich' 'nicht benötigt, nur zum "Angewöhnen"' 8_Bits: 'für später :-)' RLC A 'Schiebe den Akkuinhalt nach links' MOV SDA,C 'durch das Carry Flag um ihn Bitweise' NOP 'zu senden.' SETB SCL LCALL 5µs CLR SCL DJNZ B,8_Bits 'Hole Acknowledge BIT vom Slave (9. BIT, Empfangsbestätigung)' SETB SDA NOP NOP SETB SCL LCALL 5µs MOV C,SDA CLR SCL POP B 'Stelle B wieder her (vom Stack holen)' RET 'Daten in den Akku lesen' 8_Bits_lesen: SETB SDA PUSH B 'siehe oben' MOV B,#8 8_Bits_1: NOP NOP NOP SETB SCL NOP NOP 'Die Daten aus dem I2C-Baustein werden' MOV C,SDA 'in das Carry Flag geschrieben und' RLC A 'nach links in den Akku geschoben.' CLR SCL DJNZ B,8_Bits_1 POP B 'siehe oben' RET 'Zeitverzögerung von ca. 5µs.' 5µs: NOP NOP NOP NOP NOP RET

Import-Script

14.03.2003, 18:15

Hi Winnie, ich kann gut nachvollziehen was in dir vorging, als du das bemerkt hast. Da investiert man immerhin ein paar Stunden um ein kleines Programm zu schreiben, gibt es grosszügig an andere weiter und irgendjemand streicht plötzlich die Lorbeeren für sich ein. Das ist mir einmal auf der Arbeit passiert. Ein Kollege hat dann für "seinen" Verbesserungsvorschlag eine Prämie bekommen. Da dachte ich dann im Stillen: Na vielen Dank auch! Seitdem gebe ich ungern Quellcodes raus. Im Prinzip ging es mir gar nicht um die Prämie, ich war nur über die Dreistigkeit ziemlich entäuscht.

Import-Script

14.03.2003, 19:14

Hallo winnie, hätte ja nicht ahnen können, dass ich dich so sehr damit verletzte, wenn ich mir das im nachhinein überlege hast du eigenlich garnciht so unrecht. nur wie du selber siehst habe ich auch informationen dazu gelegt, die bei dir nicht vorkommen, desweitern habe ich mich auch sehr lange damit beschäftigt. Ich sahs persönlich auch stunden lang an der Routine zur ansteuerung des 1-wire dallas buses und und der 4 Bit LCD ansteuerung. welche ich auch mit hilfe von bücher, internet seiten und Maxim-heften (dallas) erstellt habe. habe jedoch auch "selber" daran gearbeitet in form von tests und aufbauten der hardware. zum thema kommentare einfach mit übernommen, wieso sollte ich sie nochmal schreiben, wenn sie schon da sind. naja, wie dem auch sei, es war eigentlich nicht der sins in irgend einer form eine arbeit als meine auszugeben, wollte im prinzip auch nciht das rad neu erfinden, wollte lediglich damit ausdrücken das diese datei von mir zusammengestellt wurde, und für fragen bereitstehen.

Import-Script

14.03.2003, 23:07

Hallo Peter, ist schon in Ordnung, hast mich ja nicht verletzt. Kam mir nur alles sehr seltsam vor. Aber wie dem auch sei ist es nun geklärt und vielleicht kann jemand was damit anfangen. Deshlab haben wir ja auch dieses Forum. Gruß Winnie

Import-Script

17.03.2003, 10:48

Hallo Winnie, soll ich die Beispielroutinen aus der Software nehmen oder darf ich diese drin lassen? Ich wusste seinerzeit nicht, dass die von Dir kommen. Peter hatte mir diese zur Einbindung zugeschickt... Grüße André

Import-Script

17.03.2003, 16:32

Hallo André, vielen Dank für die Nachfrage, aber da es sich hier ja um ein Forum handelt wo allen geholfen werden soll lass sie einfach drin. Ich suchte nur letztens was um eine Frage hier im Forum beantworten zu können, da bin ich zufällig drüber gestolpert. Versteht sich das ich nicht begeistert war aber immerhin sind diese Routinen ja auch nicht so toll. Hauptsächlich die Art und Weise wie der Kollege das handhabt hat mich irgendwie irritiert oder schockiert!? Vielleicht kannst Du Dich noch dran erinnern als ich eben zur Erstellung des gesamten Programms bei Dir nachfragte ob ich Teile Deiner Zeit-Routine übernehmen darf. Das war für Dich selbstverständlich, da sie ohnehin bei der gekauften oder auch Demo-Version der Batronix-Software beiliegen. Großartig ändern kann man da ohnehin nichts, aber trotzdem bin ich der Meinung das man ja wenigstens nachfragt, insbesondere wenn man es dann -wie der Kollege- unter eigenem Namen verteilt. Na ja, wie dem auch sei habe ich meinem 'Ärger' luft gemacht und das Thema ist für mich erledigt. Nochmals danke für die Nachfrage und lass alles wie es ist. Gruß Winnie