Jak porównać numer ID iButton DS1990A z zapisanym w EEPROM?

$regfile = "2313DEF.dat"
$crystal = 4000000
$baud = 19200

Config 1wire = Portb.0

Dim Eepromadres As Byte
Dim Tempvalue As Byte
Dim R As Byte
Dim I As Byte
Dim Register_number(8) As Byte
Dim Button_number As Byte
Dim Temp As Byte
Dim Blokada As Bit

Declare Sub Rejestracja
Declare Sub Pauza
Declare Sub Autoryzacja


Readeeprom Tempvalue , 127
If Tempvalue <> 1 Then
Call Rejestracja
End If
Set Portd.5
If Pind.5 = 0 Then
Call Rejestracja
End If

'Glowna petla programu

Do
If Err = 0 Then
Call Autoryzacja
End If
Call Pauza
If Blokada = 1 Then
Print "PASTYLKA OK!"
Blokada = 0
End If


Loop

'PODPROGRAMY

Sub Rejestracja

Eepromadres = 1

Do
Register_number(1) = 1wsearchfirst()
If Err = 0 Then
For Temp = 1 To 8
Writeeeprom Register_number(temp) , Eepromadres
Incr Eepromadres
Print "pastylka" ; Eepromadres
Next Temp
End If
If Eepromadres > 80 Then
For R = 1 To 4
Next R
For R = 1 To 4
Next R
Exit Do
End If
Call Pauza
Loop

Tempvalue = 1
Writeeeprom Tempvalue , 127
End Sub

Sub Autoryzacja
Blokada = 0
1wreset
1wwrite &H33
For I = 1 To 8
Register_number(i) = 1wread()
Next I
Eepromadres = 1
For R = 1 To 10
For I = 1 To 8
Readeeprom Button_number , Eepromadres
If Button_number = Register_number(i) Then
Blokada = 1
Else
Blokada = 0
End If
Incr Eepromadres
Next I
Next R
End Sub

Sub Pauza
Waitms 250
End Sub

name onewire
$INCLUDE (ATMEL/REG8252.INC)
DQ EQU P3.6

org 0
ajmp start


ow_reset:
	CLR DQ
	MOV B, #0
	DJNZ B, $
	SETB DQ
	MOV B, #30
	DJNZ B, $
	MOV C, DQ
	MOV B, #0
	DJNZ B, $
	RET

ow_read_bit:
	CLR DQ
	SETB DQ
	MOV B, #5
	NOP
	DJNZ B, $
	MOV C, DQ
	MOV B, #60
	DJNZ B, $
	RET

ow_read:
	MOV R7, #8
	loop:
	CALL ow_read_bit
	RRC A
	DJNZ R7, loop
	RET

ow_write_bit:
	MOV B, #1
	CPL C
	MOV B.5, C
	CLR DQ
	DJNZ B, $
	SETB DQ
	JNC dalej
	RET
	dalej:
	MOV B, #30
	DJNZ B, $
	RET

ow_write:
	MOV R7, #8
	loop2:
	RRC A
	CALL ow_write_bit
	DJNZ R7, loop2
	RET

czekaj:
	MOV R1,#255
	L2:
	MOV R0,#255
	L1:	
	DJNZ R0,L1
	DJNZ R1,L2
	RET

start:
	CALL ow_reset
	MOV A, #0CCh
	CALL ow_write
	MOV A, #044h
	CALL ow_write
	CALL czekaj
	CALL czekaj
	
	CALL ow_reset
	MOV A, #0CCh
	CALL ow_write
	MOV A, #0BEh
	CALL ow_write
	CALL ow_read
	MOV R1, A
	CALL ow_read
	MOV R2, A
	
	MOV A, R1
	SWAP A
	ANL A, #15
	MOV R1, A
	MOV A , R2
	ANL A, #7
	SWAP A
	ORL A, R1
	CPL A	
	MOV P0, A
	AJMP start