' Emulation eines DS2501 aus Dell Notebook netzteilen


' Entwicklung basiert auf folgenden Quellen :

' Dallas DS 2501/02 Datasheet
' Webseite Wolfgang Pöllinger -> www.wpö.de
' Webseite http://www.howtofixcomputers.com/forums/dell/dell-pa-10-ac-adapter-center-pin-108608.html
' Webseite http://www.laptop-junction.com/toast/content/inside-dell-ac-power-adapter-mystery-revealed
' Webseite http://www.ringwelt.de/computer/pc/dell-d600-mit-12v-netzteil.html
' Webseite http://bascom.at.ua/publ/1-1-0-1


'  Attiny 13 V  ---   UB = 3,6 Volt  -- 78L05 + 2x 1n4148 an dessen Ausgang --  gespeist aus 19 Volt von Dell
'  1Wire an Pin2 = PB3

'
'
'
'
'               + VCC +3,6
'                  +
'                  |
'                 .-.
'                 | | 4k7
'                 | |
'                 '-'
'                  | ___
'  Dell 1 Wire  o--o|___|---------> PB3

'                    220R
'
'
'

' (created by AACircuit v1.28.6 beta 04/19/05 www.tech-chat.de)




$crystal = 9600000
$regfile = "attiny13.dat"


$hwstack = 32
$swstack = 8
$framesize = 16


Dim Incommand(2) As Byte
Dim Bytedat As Byte
Dim Bytedatbuffer As Byte

Dim I As Byte
Dim B As Byte
Dim Crc As Byte
Dim Bufstart As Byte



' Commands

Const Skip_rom = &HCC
Const Read_rom = &H33
Const Read_mem = &HF0

' we use port b .3
Const Dqpin = 3
Const Ipin = 0                                              ' value in DDRB for input
Const Opin = 1                                              ' value in DDRB for output
Dq Alias Pinb.dqpin



' Timings

Const Owpresent = 150
Const Owpause = 50
Const Owstrobe = 15
Const Owdata = 25

' Timer Delays

Const T1reset = 60
Const Timeout = 120

' ***********************  TIMER and ISR
Config Timer0 = Timer , Prescale = 64
Stop Timer0
Enable Timer0
On Timer0 Isr Nosave
Timer_t0 Alias Tcnt0
'***************************************




Mainloop:
Waitreset:

    Disable Interrupts
    Timer_t0 = 0

Waitfall:

L1:
    sbis pinb, DqPin
    rjmp L1
L2:
    sbic pinb, DqPin
    rjmp L2

    Start Timer0

Rwaitrise:

L01:
    sbic pinb, DqPin
    rjmp L01
L02:
    sbis pinb, DqPin
    rjmp L02

    Stop Timer0

    If Timer_t0 < T1reset Then Goto Waitreset
    If Timer_t0 > Timeout Then Goto Waitreset


Sendpresense:
    Waitus Owpause

    Ddrb.dqpin = Opin

    Waitus Owpresent
    Ddrb.dqpin = Ipin
    Timer_t0 = 0
    Enable Interrupts

Readb:

    Gosub Readbyte

Readb1:

    If Bytedat = Read_rom Then Goto Readrom


    If Bytedat = Skip_rom Then
     Crc = 0
     For B = 1 To 2
     Gosub Readbyte
     Incommand(b) = Bytedat
     Bytedatbuffer = Crc Xor Incommand(b)

      Crc = Crc8(bytedatbuffer , 1)
     Next B


     Gosub Readbyte                                         ' empty read for high adress
     'Bytedatbuffer = Crc Xor 00
     Bytedat = Crc8(crc , 1)
     Gosub Sendbyte



     If Incommand(1) = Read_mem Then Goto Readmem



    End If
    Goto Waitreset
End

Readrom:
       For B = 0 To 7
       Bytedat = Lookup(b , Rom)
       Gosub Sendbyte
       Next B
Goto Waitreset
'----------------------------------
'================================
Readbyte:
         For I = 0 To 7

L11:
    sbis pinb, DqPin
    rjmp L11
L12:
    sbic pinb, DqPin
    rjmp L12
         Timer_t0 = 256 - T1reset
         Start Timer0

         Rotate Bytedat , Right
         Waitus Owstrobe


         Bytedat.7 = Dq

         Next I
         Stop Timer0
Return
'----------------------------------
Sendbyte:
       Bytedatbuffer = Bytedat
        For I = 0 To 7

L21:
    sbis pinb, DqPin
    rjmp L21
L22:
    sbic pinb, DqPin
    rjmp L22
           Timer_t0 = 256 - T1reset
           Start Timer0

           If Bytedat.0 = 0 Then Ddrb.dqpin = Opin
           Waitus Owdata
           Ddrb.dqpin = Ipin

           Rotate Bytedat , Right

        Next I
        Bytedat = Bytedatbuffer
        Stop Timer0
Return
'-----------------------------------

Readmem:
Crc = 0
Bufstart = Incommand(2)

     For B = Bufstart To 63
     Bytedat = Lookup(b , Mem1)
     'Print Hex(bytedat)
    Bytedatbuffer = Crc Xor Bytedat

 Crc = Crc8(bytedatbuffer , 1)
     Gosub Sendbyte
     Next B

 Bytedat = Crc

 Gosub Sendbyte

 Goto Waitreset


' ***********************  isr
Isr:

    If Dq = 0 Then                                          ' Das ist Strange mit den Goto aus der Isr rauszugehen.
                                                            'aber es läuft
    Timer_t0 = T1reset

    Goto Rwaitrise
    Else
    Goto Waitreset
    End If

Return

'******************************





'*************** ROM **************************
Rom:
Data &H11 , &HB4 , &H91 , &H2F , &H05 , &H00 , &H00 , &HB8



'*************** mem 1 **************************
' Settings für 90 Watt Netzteil

Mem1:

Data &H44 , &H45 , &H4C , &H4C , &H30 , &H30 , &H41 , &H43
Data &H30 , &H39 , &H30 , &H31 , &H39 , &H35 , &H30 , &H34
Data &H36 , &H43 , &H4E , &H30 , &H43 , &H38 , &H30 , &H32
Data &H33 , &H34 , &H38 , &H36 , &H36 , &H31 , &H36 , &H31
Data &H52 , &H32 , &H33 , &H48 , &H38 , &H41 , &H30 , &H33
Data &H4D , &H7C , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF