1WSEARCHNEXT/de
m (→Remarks) |
m (→ASM) |
||
| Line 87: | Line 87: | ||
= <span class="f_Header">ASM</span><br/> = | = <span class="f_Header">ASM</span><br/> = | ||
| − | + | Folgende Assembler-Routinen werden von der mcs.lib aufgerufen. | |
<span style="font-family: 'Arial'; color: #000000"> </span> | <span style="font-family: 'Arial'; color: #000000"> </span> | ||
| − | _1wire_Search_Next : ( | + | _1wire_Search_Next : (ruft auf _1WIRE, _ADJUST_PIN , _ADJUST_BIT_ADDRESS) |
| − | + | Übergebene Parameter : R24 : Pin-Nummer, R30 : Port , X : Adresse des Zielarrays | |
| − | + | Rückgabewert: keiner.. | |
<span style="font-family: 'Arial'; color: #000000"> </span> | <span style="font-family: 'Arial'; color: #000000"> </span> | ||
Revision as of 21:34, 19 February 2013
Contents |
Funktion
Liest die nächste ID vom 1-wire-Bus in eine Variable(Array).
Syntax
var2 = 1WSEARCHNEXT()
var2 = 1WSEARCHNEXT( port , pin)
Beschreibung
|
var2 |
Eine Variable oder Array mit mindestens 8 Byte Länge, in welche die 8-Byte-ID vom nächsten 1wire-Gerät am Bus übertragen wird. |
|
Port |
Der Name des PORT PINx Registers wie z.B. PINB oder PIND. |
|
Pin |
Die Pin-Nummer im Bereich von 0-7. Darf eine numerische Konstante oder Variable sein. |
Die 1wireSearchFirst() Funktion muss einmal aufgerufen werden, um den ID-Suchprozess zu starten. Nach der 1wireSearchFirst() Funktion können fortlaufend zusätzliche IDs mit der 1wSearchNext Funktion gesucht werden.
Ein String kann nicht zur Übertragung der Werte vom Bus benutzt werden, da eine Null als Wert in einem String als Ende-Zeichen interpretiert wird.
Am besten ist es, ein Byte-Array zu verwenden, wie im Code-Beispiel gezeigt.
Die 1wsearchnext Funktion benötigt 4 Bytes SRAM.
___1w_bitstorage , Byte zur Speicherung von Bits :
lastdeviceflag Bit 0
id_bit Bit 1
cmp_id_bit Bit 2
search_dir Bit 3
___1wid_bit_number, Byte
___1wlast_zero, Byte
___1wlast_discrepancy , Byte
ASM
Folgende Assembler-Routinen werden von der mcs.lib aufgerufen.
_1wire_Search_Next : (ruft auf _1WIRE, _ADJUST_PIN , _ADJUST_BIT_ADDRESS)
Übergebene Parameter : R24 : Pin-Nummer, R30 : Port , X : Adresse des Zielarrays
Rückgabewert: keiner..
See also
1WWRITE , 1WRESET , 1WREAD , 1WSEARCHFIRST, 1WIRECOUNT, Using the 1wire protocol
Example
'-------------------------------------------------------------------------------- 'name : 1wireSearch.bas 'copyright : (c) 1995-2005, MCS Electronics 'purpose : demonstrates 1wsearch 'micro : Mega48 'suited for demo : yes 'commercial addon needed : no '-------------------------------------------------------------------------------- $regfile = "m48def.dat" $crystal = 4000000 $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 'default use 10 for the SW stack $framesize = 40 'default use 40 for the frame space Config 1wire = Portb.0 'use this pin 'On the STK200 jumper B.0 must be inserted 'The following internal bytes are used by the scan routines '___1w_bitstorage , Byte used for bit storage : ' lastdeviceflag bit 0 ' id_bit bit 1 ' cmp_id_bit bit 2 ' search_dir bit 3 '___1wid_bit_number, Byte '___1wlast_zero, Byte '___1wlast_discrepancy , Byte '___1wire_data , string * 7 (8 bytes) '[DIM variables used] 'we need some space from at least 8 bytes to store the ID Dim Reg_no(8) As Byte 'we need a loop counter and a word/integer for counting the ID's on the bus Dim I As Byte , W As Word 'Now search for the first device on the bus Reg_no(1) = 1wsearchfirst() For I = 1 To 8 'print the number Print Hex(reg_no(i)); Next Print Do 'Now search for other devices Reg_no(1) = 1wsearchnext() For I = 1 To 8 Print Hex(reg_no(i)); Next Print Loop Until Err = 1 'When ERR = 1 is returned it means that no device is found anymore 'You could also count the number of devices W = 1wirecount() 'It is IMPORTANT that the 1wirecount function returns a word/integer 'So the result variable must be of the type word or integer 'But you may assign it to a byte or long too of course Print W 'as a bonus the next routine : ' first fill the array with an existing number Reg_no(1) = 1wsearchfirst() ' unremark next line to chance a byte to test the ERR flag 'Reg_no(1) = 2 'now verify if the number exists 1wverify Reg_no(1) Print Err 'err =1 when the ID passed n reg_no() does NOT exist ' optinal call it with pinnumber line 1wverify reg_no(1),pinb,1 'As for the other 1wire statements/functions, you can provide the port and pin number as anoption 'W = 1wirecount(pinb , 1) 'for example look at pin PINB.1 End
| Languages | English • Deutsch |
|---|