1 | ow_Search_ROM_new: ;0xF0
|
2 | ldi DATA,0xF0
|
3 | rjmp ow_Search_new
|
4 |
|
5 | ow_Search_ROM_next: ;0xF0
|
6 | ldi Data,0xF0
|
7 | rjmp ow_Search_Next
|
8 |
|
9 | ow_Search_Alarm_next: ;0xEC
|
10 | ldi Data,0xEC
|
11 | rjmp ow_Search_next
|
12 |
|
13 | ow_Search_Alarm_new: ;0xEC
|
14 | ldi Data,0xEC
|
15 |
|
16 |
|
17 | ;** Funktion speichert die ID des gefundenen Slave ab Z **
|
18 | ow_Search_New: ;ersten Slave suchen
|
19 | clr Anzahl ;neue Suche, wir beginnen mit 0 beim Zählen
|
20 | ldi Kollision,0x00 ;auch das erste Bit kann verschieden sein, da nur bis 0x40 geprüft wird, sind wir mit 0xFF 'außen vor'
|
21 | ow_Search_Next: ;weiteren/nächsten Slave suchen
|
22 | sbrc rFlag,fLastSlave ;wurde beim letzten Mal der letzte Sensor gefunden?
|
23 | clr Anzahl ;Ja, dann Anzahl auf 0, da wir wieder vorne anfangen mit Suchen, Kollision müsste eh auf 00 stehen
|
24 | clr LastZero
|
25 | ldi Bitposition,1 ;1...64
|
26 | ldi ZL,LOW(ow_ID) ;Z auf ID-Speicher
|
27 | ldi ZH,HIGH(ow_ID)
|
28 | LD BitMaske,Z ;Erstes Byte vom alten Ergebnis einlesen
|
29 | rcall ow_Send_Byte ;Data senden
|
30 | ow_Search_next_Bit: ;** hier Bit
|
31 | rcall ow_Read_Bit ;lese IN-Bit
|
32 | nop ;wird für Simulator gebraucht, um ggf. CY umzudrehen
|
33 | nop ;wird für Simulator gebraucht, um ggf. CY umzudrehen
|
34 | brcc ow_INBIT_NULL
|
35 | SBR rFlag,(1<<fIN_BIT) ;setze gefundenes IN-Bit in Flag-Register
|
36 | ow_INBIT_NULL:
|
37 | rcall ow_Read_Bit ;** hier NICHT-Bit
|
38 | nop ;wird für Simulator gebraucht, um ggf. CY umzudrehen
|
39 | nop ;wird für Simulator gebraucht, um ggf. CY umzudrehen
|
40 | brcc ow_NOTINBIT_NULL
|
41 | SBR rFlag,(1<<fNOT_IN_BIT) ;setze gefundenes NOT-IN-Bit in Flag-Register
|
42 | ;Hier sind 1 oder 2 Bit gesetzt
|
43 | SBRC rFlag,fIN_BIT
|
44 | rjmp ow_Search_noSlave ;hier sind beide Flags gesetzt, somit kein Slave gefunden, Error
|
45 | ow_NOTINBIT_NULL:
|
46 | ;Hier ist maximal 1 Bit gesetzt
|
47 | SBRC rFlag,fIN_BIT
|
48 | rjmp ow_Verzweige_1 ;wenn IN-BIT gesetzt ist, verzweigen wir nach 1
|
49 | SBRC rFlag,fNOT_IN_BIT
|
50 | rjmp ow_Verzweige_0 ;wenn NOT-IN-BIT gesetzt ist, verzweigen wir nach 0
|
51 | ;Hier sind beide Bits nicht gesetzt, in bede Richtungen ist mindestens ein SLave vorhanden
|
52 | ;Last Zero setzen, wenn bei letzter 'Wahl' der 0-Weg eingeschlagen wurde
|
53 | CP BitPosition,Kollision ;sind wir an der letzten Kollision des letzten Durchgang?
|
54 | BREQ ow_Verzweige_1 ;ja, dieses Mal gehen wir den 1-Weg
|
55 | BRLO ow_letzteWahlbeibehalten ;bei = 1-Weg, bei > 0-Weg, bei < Bit aus alter ID nehmen
|
56 | ;Hier >, also 0-Weg wählen UND LastZero setzen
|
57 | MOV LastZero,BitPosition ;merken, daß wir bei Verzweigung einen 0-Weg gegangen sind
|
58 | rjmp ow_Verzweige_0
|
59 | ow_letzteWahlbeibehalten:
|
60 | ;Hier das Bit aus der vorhandenen ID auslesen
|
61 | sbrc BitMaske,0 ;steht im rechten Bit von Bitmaske
|
62 | rjmp ow_Verzweige_1 ;und wird letzendlich vom neu einzuschiebendem Bit ersetzt (bzw. bleibt)
|
63 | MOV LastZero,BitPosition ;merken, daß wir bei Verzweigung einen 0-Weg gegangen sind
|
64 | ow_Verzweige_0:
|
65 | rcall ow_Write_Bit_0
|
66 | CLC
|
67 | rjmp ow_Bitschieben
|
68 | ow_Verzweige_1:
|
69 | rcall ow_Write_Bit_1
|
70 | SEC
|
71 | ow_Bitschieben:
|
72 | ror BitMaske ;Carry (das Bit) von links in die Bitmaske schieben
|
73 | ow_After_Wahl:
|
74 | CBR rFlag,(1<<fNOT_IN_BIT)|(1<<fIN_BIT) ;Flags wieder löschen
|
75 | mov temp,BitPosition
|
76 | dec temp ;BitPosition von 1-64, bei -1 kann durch Prüfen der unteren 3 Bit auf =7 jedes 8.te Bit erkannt werden
|
77 | andi temp,0x07 ;untere 3 Bit maskieren
|
78 | cpi temp,7 ;sind 8 Bits eingelesen?
|
79 | BRNE ow_keine_7_bits
|
80 | ST Z+,BitMaske ;BitMaske spechern
|
81 | LD BitMaske,Z ;alte BitMaske einlesen
|
82 | ow_keine_7_bits:
|
83 | inc BitPosition
|
84 | cpi BitPosition,65
|
85 | BRNE ow_Search_Next_Bit
|
86 | ;Hier sind die 64 Bit ausgelesen und der Slave ausgewählt
|
87 | CLC ;kein Fehler
|
88 | rjmp ow_Search_Ende
|
89 | ow_Search_noSlave: ;Fehler: während Search antwortet der Slave nicht mehr
|
90 | SBRC rFlag,fSearch_noSlave
|
91 | SEC ;Carry setzen für 'Fehler gefunden'
|
92 | rjmp owSearch_fertig
|
93 | ow_Search_Ende:
|
94 | inc Anzahl
|
95 | MOV Kollision,LastZero ;letzte Verzweigung merken
|
96 | ;rcall tastout
|
97 | cpi Kollision,0 ;sind wir auf Null?
|
98 | brne clFlag
|
99 | sbr rFlag,(1<<fLastSlave) ;ja, dann haben wir den letzten Slave gefunden
|
100 | rjmp owSearch_fertig ;beim nächsten Aufruf von NEXT wird aber ebenfalls der erste Slave gefunden
|
101 | clFlag:
|
102 | cbr rFlag,(1<<fLastSlave) ;sonst nicht
|
103 | owSearch_fertig:
|
104 | ret
|
