Sonsivri
 
*
Welcome, Guest. Please login or register.
Did you miss your activation email?
December 08, 2016, 06:56:01 06:56


Login with username, password and session length


Pages: [1]
Print
Author Topic: Proton emulated DS2423 counter (work in progress)  (Read 1809 times)
0 Members and 1 Guest are viewing this topic.
xtal
Inactive

Offline Offline

Posts: 4

Thank You
-Given: 0
-Receive: 9


« on: June 29, 2013, 02:17:03 14:17 »

Here is an emulated DS2423  counter I'm working on .......
It does appear to have a problem I've been unable to find...
It wants to hang after running about 3 days...

Its written for Proton basic..... and is still a work in progress
some of the code may be usefull to some one wanting to make
their own slave.....I would have attatched as zip, but couldn't figure out how..




 
Code:
Device = 12F1822          ' PROTON BASIC
Declare Create_Coff = On  ' use with mplab sim to debug
' V1a 1st working 12F1822 @ 16mhz
' V1b 1st working 12F1822 @ 16mhz  + ctrs
' V1c use 32mhz   
' V2  attempt to use TIC int
' V2b
' V2c  use count/reset method ~ 10ms - not any mods to reset loop
' V2d   try mod reset loop to chk gp0/gp1
' V2d1   use tmr1 as external ctr RA5 input
' V3    TMR1 ctr working
' V4       use GP0 as DQ   GP2 as ctr B
' V5        changed RMT1
' V6  = V5      -- cleanup ----
' V6b/c              need to implement WDT  use ready loop to reset
' V6c              make GP1/RA1 output add led RDY pulse
'                  RA2 must have 3.9k 39k .1u
' V6f
             

'CONFIG intrc_osc_noclkout,mclre_off,pwrte_on,bod_off,wdt_off,fcmen_off,ieso_off
' intrc_ocs_noclkout 0x3FFC
' mclre_off          0x3FDF -> 3FDC
' pwrte_on                   0x3FEF -> 3FCC
' bod_off                            0x3CFF -> 3CCC
' wdt_off                                    0x3FF7 -> 3CC4
' fcmem_off                                          0x37FF -> 34C4
' ieso_off                                                   0x3BFF -> 30C4
'  __cfig            0x30C4 
'Config 0x30c2 ' MIKE       ' same as above

'Config HS_OSC,mclre_off,pwrte_on,bod_off,wdt_off,fcmen_off,ieso_off
Config1 fosc_intosc,mclre_off,pwrte_on,boren_off,wdte_on,fcmen_off,ieso_off,clkouten_off
''Config2 LVP_OFF, PLLEN_on, wrt_off,stvren_off
Config2 LVP_OFF, PLLEN_on, wrt_off,stvren_off

Declare Xtal 32  'using internal 16
''Declare Xtal 32   '' not sure since using PLL
'-----------------------------------------------------------------------
' FOSC = 32/4 =8mhz ~ 125ns cycle  *16 = 2us step  *64 = 8us step
'  TMR0  1:2 - 1:256     *32 = 4us step
'  TMR1  -16 bit
'  TMR2  prescale 1,4,16,64    postscale 0-F  1:1-1:16  T2CON.2=1 on
'        T2CON<1:0>            T2CON<6:3>                               
'-----------------------------------------------------------------------
                 
EData $08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08
EData $08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08                 
EData $09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09
EData $09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09,$09
EData $0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a
EData $0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a                 
EData $0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b
EData $0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b,$0b
EData $0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c
EData $0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c,$0c
EData $0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d
EData $0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d
EData $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
EData $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
EData $0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f
'EData "165-9a"
EData "V6g---"
EData $0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f

'------------------------------------------------------------------------------
'                                  PIC12F1882
'                                    __    __
'                                   |  \__/  |
' +5v ---                       Vdd |1      8| Vss                         --- 0v
' ctrA in -->  RA5/T1CKI/OSC1/CLKIN |2      7| RA0/AN0/CIN+/ICSPDAT/ULPWU  <--> DQ
'         RA4/AN3/!T1G/OSC2/CLKOUT/ |3      6| RA1/AN1/CIN-/Vref/ICSPCLK   <-->
'  reset ctrs -->     RA3/!MCLR/Vpp |4      5| RA2/AN2/T0CKI/INT/COUT/CCP1 <--ctrB in 
'                                   |________|
'
'   ______
'  |      |----DQ---------------\ \---------------------------------------|
'  | DS   |----0V----------------\ \--------------------------------|     |
'  |9490R |                                       ____________      |     |
'  |      |----+5V ---------------\ \------------|1 Vdd  8 Vss|-----|     |
'  |      |                                      |            |  //////   |
'  |------|                                      |            |           |
'  | PC   |  +5---xxxx---|------|---xxxx-----|---|2 RA5  7 RA0|-----------|
'  |______|              |      |            |   |            |
'                ctrA - SW   .1uf-cap    .1uf-cap|            |
'                        |      |            |   |            | 
'                      ///////////////////////// |            |
'            +5---------|>|---------xxxx---------|3 RA4  6 RA1|--- unused         
'                         led        2.7k        |            |
'                                                |            |
'                      |---------|----xxxx-------|4 RA3  5 RA2|---xxxx-----|-------|-----xxxx--+5            |
'                      |         |     1k        |____________|    3.9k    |       |     39k
'             ctr Reset SW   .1uf-cap                              ctrB - SW   .1uf-cap
'                      |         |                                         |       |
'                   //////////////////                                  ///////////////
'               Adjust/Rework debounce filters as needed ..........
'------------------------------------------------------------------------------
Symbol FamilyCode = $1D                 ' Family code - serial# - CRC
Symbol Sn5 = $0
Symbol Sn4 = $0
Symbol Sn3 = $0                         ' of this particular device
Symbol Sn2 = $0
Symbol Sn1 = $0
Symbol Sn0 = $0
Symbol FamilyCRC = $C3                  ' we could maybe auto gen this within pgm
'------------------------------------------------------------------------------
Symbol Hi=1
Symbol Lo=0
Symbol Wire = PORTA.0
Symbol SW0 = PORTA.3
'Symbol SetWire = INDF0.2
'----------------------------------------------------------------------
Dim TXB As Byte
Dim CRAP As Byte
Dim I As Byte
Dim I1 As Byte
Dim  RXB As Byte
Dim CMD As Byte
'======================================================================
Dim CRCData As Byte
Dim CRCLo As Byte
Dim CRCHi As Byte
Dim CRC As CRCLo
Dim Temp As Byte
Dim Index As Byte
'============================
Dim X As Byte
Dim Y As Byte   
Dim Acnt[4]  As Byte
Dim Bcnt[4]  As Byte
Dim M12cnt[4]  As Byte
Dim M13cnt[4]  As Byte
Dim TA1 As  Byte       ' lsb
Dim TA2 As  Byte       ' msb
Dim E_S As Byte
Dim WTA1 As Byte
Dim WTA2 As Byte
Dim WE_S As Byte
Dim AA As  E_S.7
Dim Pf As  E_S.5
Dim PGA As Byte          ' page address
Dim SPO As Byte          ' scratch pad address
Dim SPAD[34] As Byte     ' 32 + 2

Dim ACT As Byte
Dim BCT As Byte
 
 Dim BitCnt As Byte
 Dim TIC As Byte
 
 Symbol TICK = TIC.0
 Symbol Allow = TIC.1
 Symbol Slots = TIC.2
 Symbol Flag  = TIC
 Symbol Last4 = TIC.3
'-------------------------------------------------------
'  Defines after  Dim's
'-------------------------------------------------------
Symbol RPF = Flag.7      ' rcv partial flag 
 
Symbol bounce = 100       ' 255-105=150 *70us=10.8 ms     

Symbol WPUEN = OPTION_REG,7

 On_Hardware_Interrupt GoTo int
 
 GoTo main
'=============================================================================
int:         
'============================================================================= 
'       RA2  external  rising edge schmitt trigger .1cap   
'-----------------------------------------------------------------------------
Asm       
         Btfss   INTCON,1   ' INTF  gp2 int
          Retfie
         Bcf     INTCON,1   ' Clr INTF
         Incf    BCT,f                               
         Retfie         
EndAsm
'------------------------------------------------------------------------------
Asm
check:   
           Movf   BCT,w
           Btfsc  STATUS,2    ' w = Zero
            Return
           Addwf  Bcnt +0,f
           Btfss  STATUS,0    ' carry = 1
            GoTo  check1 
           Call   Binc1
check1:    Clrf   BCT                                   
         Return 
EndAsm                 
' ----------------------------------------------------------------------------
Asm
Ainc:         Incfsz  Acnt +0,f
               Return                          '
              Incfsz  Acnt +1,f                '\
               Return                          ' \     
              Incfsz  Acnt +2,f                '  >  increment Acount
               Return                          ' /
              Incf    Acnt +3,f                '/
EndAsm                                         '
             Return                            '
'------------------------------------------------------------------------------             
Asm
Binc:         Incfsz  Bcnt +0,f
               Return                          '
Binc1:        Incfsz  Bcnt +1,f                '\
               Return                          ' \     
              Incfsz  Bcnt +2,f                '  >  increment Bcount
               Return                          ' /
              Incf    Bcnt +3,f                '/
EndAsm                                         '
             Return                            '
'==============================================================================
 main:      ' 32/4=8 =>.125 *16 = 2us step for TMR2 1:16
'------------------------------------------------------------------------------   
      BSR = 1                        ' bank 1
      'OSCCON = %01111000            ' 16 mhz internal
      OSCCON = %11110000             ' 8 mhz internal  8x4=32 pll
      OSCTUNE = 0x0  ''f             ' SET TMR2, TMR1, TMR2     
      'OPTION_REG = %10000011        ' !PU  1:16 = 8 US RESOLUTION 8MHZ xtal
      'OPTION_REG = %10000100        ' !PU  1:32 = 8 US RESOLUTION 16MHZ xtal
      'OPTION_REG = %00000011        ' PU  1:16 @ 4 US step RESOLUTION 16MHZ xtal   
      OPTION_REG = %01000111         ' PU 1:256 --> 64 * 256 = 16.384ms to ovflo
                                     '  intdg bit 6 = 1 
      TRISA = %00101101              ' gp0, 2,3, 5 input    1,4 outputs
      WDTCON = %00011000             ' wdt 4 seconds time out
'--------------------------------------------------------------------------------       
      BSR = 3
      ANSELA = 0                      ' all digital
'--------------------------------------------------------------------------------     
      BSR = 4
      WPUA = %00001001                ' weak pullup port A
'--------------------------------------------------------------------------------
      BSR = 7
      IOCAP = 0  '3                      ' RA0-1  pin change rising edge detect
      IOCAN = 0   ' no detect falling edge
      IOCAF = 0   ' pins that changed       
'------------------------------------------------------------------------------   
      BSR = 0                      ' bank 0
'------------------------------------------------------------------------------
   ' TMR0 = 0                     ' 2US RESOLUTION 1:4 PRESCALE
                                  ' 001-1:4 010-1:8 011-1:16
   ' intcon.T0IE = 0              ' DISABLE TIMER 0 INTERRUPT
'==============================================================================
' T1CON  cc pp t x u s                 ' pp = 1:1,2,4,8                     
'==============================================================================
   T1CON = %10000101             ' 10-RA5[TKCI] extinput 00-1:1 0-osc disabled
   T1GCON = $00                  ' 1-no sync ext clk 0-ukn 1 enb TMR1
'==============================================================================
'  Main Timing counter  TMR2  00000S00-1:1  01-1:4  10-1:16  11-1:64  S-strt/stop
'==============================================================================   
   T2CON = %00000010                 ' set TMR2   1:16  4 us/step[16mosc]
   T2CON.2 = 1                       ' start TMR2   
'==============================================================================
   '  SET ADC                        ' SELECT CHANNEL 0
   '  ANSELA = 0 '0X51                ' FOSC/16[8mhz clock] & GP0[51h]
   '  ADCON0 = 0X81                  ' RJustify, Vdd ref, AN0-000,
'==============================================================================
CRAP = PORTA                                                    '
INTCON.0 = 0    ' IOCIF 
INTCON.1 = 0    ' INTF
INTCON.2 = 0    ' T0IF
INTCON.3 = 0    ' IOCIE 
INTCON.4 = 0    ' INTE   allow RA2 pin int
INTCON.5 = 0    ' T0IE
INTCON.6 = 0    ' PEIE
PORTA=0
PIE1=0
PIE2=0
   
INTCON = $90     ' GIE & INTE
'================================================================================================       
E_S = $1F    '\
TA1 = $A0    ' |- preset values
TA2 = $01    '/
 
GoSub ClrReg '    clear counters 
GoTo  Wait_IP
 
'================================================================================================                                                               
'================================================================================================
'            changed for step = 2us
'================================================================================================
'================================================================================================
Wait_IP:    ''INTCON.7 = 0                                         ' dis able GIE
            TMR2 = 0
           ' TTCT = 0          ' total time cnt = 0
            FSR0H=0
'------------------------------------------------------------------------------------------------               
            BSR=1             ' bank1
            TRISA.0=1         ' > -- float
            BSR=0             ' bank0           
'------------------------------------------------------------------------------------------------
           '' INTCON.3=1        ' enb INTE         
'------------------------------------------------------------------------------------------------
'  may need to mod ewrite to gosub check at 64 us intervals  ****************
'------------------------------------------------------------------------------------------------               
            If Flag.6 = 1 Then GoTo LateWrite     ' used for eeprom write
'------------------------------------------------------------------------------------------------           
Wait_IPa:   If TMR2 = 70/2 Then
               TMR2 = 0
               GoSub check         ' 70 us elapsed
            EndIf
            Clrwdt
            If Wire = Hi Then GoTo Wait_IPa       ' could be high long time                                     
'---------------------------------------------------
'  wire gone low reset timer
'---------------------------------------------------           
Wait_IPa1:  TMR2 = 0                              ' preset tmro
            If PORTA.4=1 Then
               PORTA.4=0
            Else
               PORTA.4=1
            EndIf
'----------------------------------------------------                 
Wait_IP64:  If Wire = Hi Then GoTo Wait_IP        ' hi before 480 us           
          '  If TMR2 = 70/2 Then GoSub check
          '  If TMR2 = 140/2 Then GoSub check
            If TMR2 = 210/2 Then GoSub check           
            If PORTA.3 = 0 Then GoSub ClrReg      ' ================             
         '   If TMR2 = 280/2 Then GoSub check
         '   If TMR2 = 350/2 Then GoSub check
            If TMR2 = 420/2 Then GoSub check
            If TMR2 < 480/2 Then GoTo Wait_IP64   ' < 480 us                           
            TMR2 = 0         
'-------------------------------------------------------------------------------
'          Update A-Counter      rising edge  -  use .1 cap on RA5/GP5
'                                schmitt trigger input
'-------------------------------------------------------------------------------
            Acnt[0] = TMR1L
            Acnt[1] = TMR1H                              '
            If PIR1.0 = 0 Then GoTo Wait_IPx
               PIR1.0 = 0
        Asm       
            Incfsz  Acnt +2,f                '  >  increment Acount
               GoTo Wait_IPx                         ' /
            Incf    Acnt +3,f                '/
        EndAsm                           
            ' if  pinchang int then                                                           
Wait_IPx:   If Wire = Hi Then GoTo E0 
            If PORTA.3 = 0 Then GoSub ClrReg      ' ================             
           ' If TMR2 = 70/2 Then GoSub check
           ' If TMR2 = 140/2 Then GoSub check
            If TMR2 = 210/2 Then GoSub check
           ' If TMR2 = 280/2 Then GoSub check
           ' If TMR2 = 350/2 Then GoSub check
            If TMR2 = 420/2 Then GoSub check                       
            If TMR2 < 480/2 Then GoTo Wait_IPx    ' < 480 us
            GoTo Wait_IP                          ' possible stuck low                         
E0:         TMR2=0                                ' set TMR2                                                                                           
E1:         If TMR2.3=0 Then GoTo E1              ' 8*2=16 dly 16*2=32us **************
             GoSub  check
'----------------------------------------------------------------------------------             
            PORTA.0=0         ' insure latch bit = 0
            BSR=1             ' bank1
            TRISA.0=0         ' DQ = output = 0 since PORTA.0=0
            BSR=0             ' bank 0
'----------------------------------------------------------------------------------         
            TMR2=0                                               ' set TMR2                                                                             
E2:         If TMR2 = 70/2 Then GoSub check
            If TMR2 = 140/2 Then GoSub check     
            If TMR2 < 180/2 Then GoTo E2                      '' 180us presence
'----------------------------------------------------------------------------------                   
E2a:        BSR=1             ' bank1
            TRISA.0=1         ' float
            BSR=0             ' bank 0
'----------------------------------------------------------------------------------
           '' INTCON.7 = 1      ' enable GIE
E3:         If Wire = Lo Then GoTo E3 End If                     ' wait until wire is high
'================================================================================================
' get cmd byte 8 bits from MASTER
'-------------------------------------------------------------------------------------------------         
 Fetch:     GoSub RX8
'---------------------------------------------------------------------------------
 Fetch1:    If RXB = $55 Then GoTo MatchRom End If               ' match sdr rtn
            If RXB = $F0 Then GoTo SearchRom End If              ' search
            If RXB = $CC Then GoTo Funct_CMD  End If             ' SkipRom cmd
            If RXB = $33 Then GoTo ReadRom End If                ' 1 slave online   rtn fc,sn,crc
            'If RXB = $EC Then GoTo ConditionalSearchRom End If  ' search
            'If RXB = $3C Then GoTo OverdriveSkipRom End If      ' search
            'If RXB = $69 Then GoTo OverdriveMatchRom End If     ' search
            GoTo Wait_IP
            'if RXB = $EC then goto AlarmRom end if              ' modified search
            'if RXB = $FF then goto ReadRom end if               ' 1 slave online   rtn fc,sn,crc
            'goto Wait_IP                                        ' main
'=================================================================================
RX8:      '  FSR0L = $8C
         '  INTCON.7 = 0
            GoSub RX1                                            ' Recieve bit 0
            GoSub RX1                                            ' Recieve bit 1
            GoSub RX1                                            ' Recieve bit 2
            GoSub RX1                                            ' Recieve bit 3
            GoSub RX1                                            ' Recieve bit 4
            GoSub RX1                                            ' Recieve bit 5
            GoSub RX1                                            ' Recieve bit 6
            GoSub RX1                                            ' Recieve bit 7
         '   INTCON.7 = 1
            Return
'=================================================================================
RX1:        RXB = RXB >> 1                          ' this shifts in a 0 bit ??
RX2:        If Wire = Hi Then GoTo RX2 End If
            TMR2 = 0                                ' 
x1:         If TMR2 < 7 Then GoTo x1                ' 7*2us < 14 us
x2:            If Wire = Hi Then                    '  look for 1 during 14-32 us
                 RXB.7=1                            '    14-32 us window
                 Return                             '
               EndIf                                '
X2x:        If TMR2.4=0 Then GoTo x2 End If         ' 2^4 = 32us                     
X3:         If Wire = Hi Then Return   
X4:         If TMR2.6 = 0 Then GoTo X3 End If       ' 2^6 = 64*2 = 128 must be interupt
'------------------------------------------------------------------------------------------
            GoTo Wait_IP64                          ' trash stack ie circular on/off  03/12
'==================================================================================
ReadRom:    GoSub WSN                               ' wire  hi & $33 cmd decoded                                       
            GoTo Funct_CMD
'==================================================================================
MatchRom:   GoSub RX8                               ' wire hi  & $55 cmd decoded
            If RXB <> FamilyCode Then GoTo Wait_IP  '0   FC  20 1D         
            GoSub RX8
            If RXB <> Sn5 Then GoTo Wait_IP         '1       0               
            GoSub RX8
            If RXB <> Sn4 Then GoTo Wait_IP         '2       0
            GoSub RX8
            If RXB <> Sn3 Then GoTo Wait_IP         '3       0
            GoSub RX8
            If RXB <> Sn2 Then GoTo Wait_IP         '4       0
            GoSub RX8
            If RXB <> Sn1 Then GoTo Wait_IP         '5       0
            GoSub RX8
            If RXB <> Sn0 Then GoTo Wait_IP         '6       0
            GoSub RX8
            If RXB <> FamilyCRC Then GoTo Wait_IP   '7  crc EF  C3
            GoTo Funct_CMD
'===================================================================================
SkipRom:    GoTo Funct_CMD                     ' wire is hi  & $F0 cmd decoded   
'===================================================================================
SearchRom:  TXB = FamilyCode
            GoSub SR8
            TXB = Sn5
            GoSub SR8
            TXB = Sn4
            GoSub SR8
            TXB = Sn3
            GoSub SR8
            TXB = Sn2
            GoSub SR8
            TXB = Sn1
            GoSub SR8
            TXB = Sn0
            GoSub SR8
            TXB = FamilyCRC
            GoSub SR8
            GoTo Wait_IP
'===================================================================================
Funct_CMD:  FSR0L = $8C                          ' wire is hi  & $CC cmd decoded
            'RXB = 0                            ' clear old data
            GoSub RX1                          ' Recieve bit 0
            GoSub RX1                          ' Recieve bit 1
            GoSub RX1                          ' Recieve bit 2
            GoSub RX1                          ' Recieve bit 3
            GoSub RX1                          ' Recieve bit 4
            GoSub RX1                          ' Recieve bit 5
            GoSub RX1                          ' Recieve bit 6
            GoSub RX1                          ' Recieve bit 7 
            'GoSub RX8                         ' get function byte 
           
Fcmd:       If Wire = Lo Then GoTo Fcmd
            GoTo Fcmd1
Fcmd1:      GoTo Fcmd2   
       
Fcmd2:      If RXB = $AA Then GoTo Rd_2423_SP             
            If RXB = $55 Then GoTo Copy_SP
            If RXB = $A5 Then GoTo READ_Mem  ''Read_2423_ctr
            If RXB = $F0 Then GoTo READ_Mem  ''Rd_2423_M
            If RXB = $0F Then GoTo Wr_2423_SP
            If RXB = $5A Then GoTo Copy_SP
             
'-------------------------------------------------------------------
            GoTo Wait_IP                      ' no valid cmd
'=========================================================================================
ClrReg:  Str M12cnt = $0,$0,$0,$0
         Str M13cnt = $0,$0,$0,$0
         Str Acnt = $0,$0,$0,$0
         Str Bcnt = $0,$0,$0,$0
         TMR1L = 0
         TMR1H = 0
         ' ACT = 0
         BCT = 0
         Return                       
'=========================================================================================
 RD_PWR:    TXB=$00                           ' FF   +5 powered
            GoSub TX8
            GoTo Wait_IP
'===========================================================================
  WSN:      TXB = FamilyCode                  ' $1D            ' Family code
            GoSub TX8
            TXB = Sn5                         ' 0              ' SN lsb
            GoSub TX8
            TXB = Sn4                         ' 0              ' SN
            GoSub TX8
            TXB = Sn3                         ' 0              ' SN
            GoSub TX8
            TXB = Sn2                         ' 0              ' SN
            GoSub TX8
            TXB = Sn1                         ' 0              ' SN
            GoSub TX8
            TXB = Sn0                         ' 0              ' SN msb
            GoSub TX8
            TXB = FamilyCRC                   ' $C3            ' CRC
            GoSub TX8       
            Return               
'===================================================================
'        TRANSMIT 32 0 bits
'===================================================================
TX32z:      TXB =0
            CRCData=0
            GoSub TX8
            GoSub XCRC16LU
            TXB =0
            CRCData=0
            GoSub TX8
            GoSub XCRC16LU
            TXB =0
            CRCData=0
            GoSub TX8
            GoSub XCRC16LU
            TXB =0
            CRCData=0
            GoSub TX8
            GoSub XCRC16LU   
            Return
'======================================================================
'        TRANSMIT INVERTED CRC & EXIT
'======================================================================         
 TxINVcrc:  TXB=CRCLo ^ $FF                   ' invert crc
            GoSub TX8                         '
            TXB= CRCHi ^ $FF                  ' invert crc                     
            GoSub TX8   
            GoTo Wait_IP       
'======================================================================
'        TRANSMIT INVERTED CRC  & RETURN
'======================================================================         
 TXcrc:     TXB=CRCLo ^ $FF                   ' invert crc
            GoSub TX8                         '
            TXB= CRCHi ^ $FF                  ' invert crc                     
            GoSub TX8
            CRCLo=0
            CRCHi=0   
            Return                     
'=======================================================================
'              Transmit 8 bits of byte TXB
'=======================================================================
 TX8:       FSR0L = $8C
            If TXB.0=0 Then GoSub TX1L
            If TXB.0=1 Then GoSub TX1H
            If TXB.1=0 Then GoSub TX1L
            If TXB.1=1 Then GoSub TX1H
            If TXB.2=0 Then GoSub TX1L
            If TXB.2=1 Then GoSub TX1H
            If TXB.3=0 Then GoSub TX1L
            If TXB.3=1 Then GoSub TX1H
            If TXB.4=0 Then GoSub TX1L
            If TXB.4=1 Then GoSub TX1H
            If TXB.5=0 Then GoSub TX1L
            If TXB.5=1 Then GoSub TX1H
            If TXB.6=0 Then GoSub TX1L
            If TXB.6=1 Then GoSub TX1H
            If TXB.7=0 Then GoSub TX1L
            If TXB.7=1 Then GoSub TX1H
            Return
'======================================================================
'    Transmit search bit 0
'======================================================================
SR0:        GoSub TX1L
            GoSub TX1H
            GoSub RX1
            If RXB.7=1 Then GoTo Wait_IP End If        ' error trash stack
            Return
'=================================================================
'     Transmit search bit 1
'=================================================================
SR1:        GoSub TX1H
            GoSub TX1L
            GoSub RX1
            If RXB.7=0 Then GoTo Wait_IP End If        ' error trash stack
            Return
'================================================================
'     Transmit search bits
'================================================================
SR8:        FSR0L = $8C
            If TXB.0=0 Then GoSub SR0       
            If TXB.0=1 Then GoSub SR1
            If TXB.1=0 Then GoSub SR0
            If TXB.1=1 Then GoSub SR1
            If TXB.2=0 Then GoSub SR0
            If TXB.2=1 Then GoSub SR1
            If TXB.3=0 Then GoSub SR0
            If TXB.3=1 Then GoSub SR1
            If TXB.4=0 Then GoSub SR0
            If TXB.4=1 Then GoSub SR1
            If TXB.5=0 Then GoSub SR0
            If TXB.5=1 Then GoSub SR1
            If TXB.6=0 Then GoSub SR0
            If TXB.6=1 Then GoSub SR1
            If TXB.7=0 Then GoSub SR0
            If TXB.7=1 Then GoSub SR1
            Return
'=========================================================================================
'              need revisit timing  4us step
'=========================================================================================
TX1H:       BSR=1                                      ' bank1
            TRISA.0=1                                  ' DQ = float-pullup
            BSR=0                                      ' bank 0
TX1H1:      If Wire = Hi Then GoTo TX1H1               '
            TMR2=0                                     ' master strobed wire low Start Slot           
Te:         If Wire = Lo Then GoTo TeL                 '                            '
TeH:        If TMR2.4 = 0 Then GoTo TeH                ' 2^4 = 16 *2 = 32us
             Return                                    ' wire Hi return after 32 us
TeL:        If TMR2.5=0 Then GoTo Te                   ' 32*2us = 64us  LIMIT slot to 64us
            GoTo Wait_IP64                             ' error trash return
'=========================================================================================
TX1L:       If Wire = Hi Then GoTo TX1L End If         ' wait master strobe wire low         
            PORTA.0=0                                  ' insure 0 bit
            BSR=1                                      ' bank1
            TRISA.0=0                                  ' DQ = output = 0 since PORTA.0=0
            BSR=0                                      ' bank 0           
            TMR2=0                                     ' Clear TMR2   hold for 56us
Tb:         If TMR2 < 44/2 Then GoTo Tb End If         ' TMR2 < 24=48us  25*2=50us  30*2=60us
            BSR=1                                      ' bank1
            TRISA.0=1                                  ' DQ = float-pullup
            BSR=0                                      ' bank 0                                                                     
Tc:         If Wire = Hi Then Return                   ' Ensure wire hi before return 
            If TMR2.5=0 Then GoTo Tc End If            ' 1-2-4-8-16-32 *2=64
            GoTo Wait_IP64                             ' error trash return
'========================================================================================
'             Copy Scratch Pad to Memory
'  EEprom write delay is 10ms / char therfor causing OneWireViewer to miss copy complete
'   routine termiates after authorization then copys to mem at 1st reset
'========================================================================================                 
Copy_SP:    If E_S > $1F Then GoTo Wait_IP             ' CURRENT error AA or PF flags are set                   
            GoSub RX8                                  '   
            If WTA1 <> RXB Then GoTo Wait_IP           ' TA1 mismatch --> exit
            GoSub RX8                                  '   
 
« Last Edit: June 29, 2013, 07:22:53 19:22 by Wizpic » Logged
Parmin
Hero Member
*****
Offline Offline

Posts: 544

Thank You
-Given: 357
-Receive: 126


Very Wise (and grouchy) Old Man


« Reply #1 on: July 01, 2013, 12:54:55 00:54 »

Don't have time to check your program,
It sounds like your problem is stack problem.
 See if all gosubs have returns and do not jump to another place unless it return first.


Btw. Welcome!
Put a post in the intro area.
Logged

If I have said something that offends you, please let me know, so I can say it again later.
towlerg
V.I.P
Active Member
*****
Offline Offline

Posts: 136

Thank You
-Given: 282
-Receive: 48

What is this for?


« Reply #2 on: July 19, 2013, 12:11:33 00:11 »

Hi Xtal,

did you try the Proton board? Les doesn't bite anymore, well not so hard anyway. To attach files, use the reply button, attachment dialog at bottom.
« Last Edit: July 19, 2013, 12:17:20 00:17 by towlerg » Logged

Win 7 Ult x86 SP1 on HP6910p
pickit2
Moderator
Hero Member
*****
Offline Offline

Posts: 3816

Thank You
-Given: 567
-Receive: 2049


There is no evidence that I muted SoNsIvRi


« Reply #3 on: July 19, 2013, 01:43:50 01:43 »

What version of Proton?
compiling your code with 3.5.5.4 I get errors.
Logged

Note: If you have no posts other than, I want or reporting a dead link Then you can't complain If I remove your post So Stop Leeching
xtal
Inactive

Offline Offline

Posts: 4

Thank You
-Given: 0
-Receive: 9


« Reply #4 on: August 22, 2013, 10:46:38 22:46 »

how can I reidentify an area of ram ? in proton basic ....

Dim SPAD[34] as byte                                 I want to also want to use this area as a word array but cannot figure it out 

ie Dim RamW[1] as word Alias SPAD()    of course this does not work.....

Posted on: August 22, 2013, 10:28:47 22:28 - Automerged

using 3.5.5.5

attached latest file,, reworked timing ,, using 32mhz PLL

trying to organize better so other slaves can be made easily ....
Logged
xtal
Inactive

Offline Offline

Posts: 4

Thank You
-Given: 0
-Receive: 9


« Reply #5 on: August 30, 2013, 12:14:07 00:14 »

I've been trying to get a 12f1822 to work like a ds2450,,,,,using the previous code modified for new Family code, and read/write/convert
code...  using snipit from Tiny_ds2450.bas, read/write and altered the adc part...for 4 channels
I figure it is taking about 200us max to adc the 4 channels.....

Using ibuttonviewer with usb9097 adapter all appears to work properly.....
Using Onewireviewer with usb9097 adapter all appears to work proberly....

chaining to a Linkusb I buttonviewer  works properly...

Onewireviewer with Linkusb will read/write aok but fails with crc error when attempt adc view .....
The crc-code has to be correct / or would not work with
I'm not sure if the convert is followed by a read memoy or if it is convert, reset,read   Sad

There is apparently some suttle timing issue I'm missing  Huh
Logged
Pages: [1]
Print
Jump to:  


DISCLAIMER
WE DONT HOST ANY ILLEGAL FILES ON THE SERVER
USE CONTACT US TO REPORT ILLEGAL FILES
ADMINISTRATORS CANNOT BE HELD RESPONSIBLE FOR USERS POSTS AND LINKS

... Copyright 2003-2999 Sonsivri.to ...
Powered by SMF 1.1.18 | SMF © 2006-2009, Simple Machines LLC | HarzeM Dilber MC