Help with serial interface DS1302

;-------------------------- DEVICE DIRECTIVES --------------------------

        DEVICE        SX28,OSCHS3
        DEVICE        TURBO,STACKX,OPTIONX
        IRC_CAL        IRC_SLOW
        RESET        Initialize

;------------------------------ VARIABLES AND CONSTANTS ----------------
            
        ; General purpose temporary registers
        ; Used in timing loops and temporary storage where the W
        ; register is inappropriate.

        temp1    EQU    $08    
        temp2    EQU    $09    
        temp3    EQU    $0A

        ; Pins for general purpose serially-clocked communication

        PIN_CLOCK    =    0    ; clock pin
        PIN_IO        =    0    ; input/output pin

        BYTE_INPUT    EQU    $0B
        BYTE_OUTPUT    EQU    $0C

        ; DS timekeeping chip pin defintions

        DS_CLK    EQU    rc.2    ;pin 2 of port c, DS clock pin
        DS_IO    EQU    rc.1    ;pin 1 of port c, DS I/O pin
        DS_RST    EQU    rc.0    ;pin 0 of port c, DS reset (RST) pin.

        ; DS register address definitions (commands)
        ; start with seconds at 100000000 (0x80) and increment
        ; these are write addresses, to read add one, ex: seconds = 81h

        DS_REG_SECONDS    =    $80
        DS_REG_MINUTES    =    $82
        DS_REG_HOURS    =    $84
        DS_REG_DATE    =    $86
        DS_REG_MONTH    =    $88
        DS_REG_DAY    =    $8A
        DS_REG_YEAR    =    $8C
        DS_REG_CONTROL    =    $8E
        DS_REG_CHARGE    =    $90
        DS_REG_BURST    =    $BE    

;---------------------------- DEBUG SETTINGS ---------------------------

        FREQ     400_000
        WATCH    BYTE_INPUT,8,UBIN
        ;WATCH    temp3,8,UBIN
        ;WATCH    RC.1,8,UDEC

;------------------------ INITIALIZATION ROUTINE -----------------------

Initialize
        ;Configure port settings
        mov    rc, #%00000000        ;Port C output low
        mov    !rc,#%00000000        ;Port c output direction (all pins)
        clr BYTE_INPUT
        
        

;---------------------------- MAIN PROGRAM -----------------------------

Main        


        PIN_CLOCK = DS_CLK
        PIN_IO = DS_IO

        ;clear write protect register

        setb DS_RST
        mov BYTE_OUTPUT,#DS_REG_CONTROL
        call ByteOut
        mov BYTE_OUTPUT,#%00000000
        call ByteOut
        clrb DS_RST
        
        nop

        ;set seconds

        setb DS_RST
        mov BYTE_OUTPUT,#DS_REG_DATE
        call ByteOut
        mov BYTE_OUTPUT,#%00001100
        call ByteOut
        clrb DS_RST

        nop

        ;read seconds

        mov !rc,#%0000010   ; input redirection
        
        setb DS_RST         ; set device select
        mov BYTE_OUTPUT,#DS_REG_DATE + 1
        call ByteOut
        call ByteIn
        clrb DS_RST
        
;;;; SUB: ByteIn    
;;;; Clocks in a byte by generating clock on PIN_CLOCK and reading clocked pin on PIN_IO and
;;;; placing it in BYTE_INPUT. Data is valid on falling clock edge.
;;;; Setup: 
;;;; PIN_IO     Valid port pin representing serial device IO (must be set input on tristates)
;;;; PIN_CLOCK     Valid port pin representing serial device clock
;;;; BYTE_INPUT  Input byte storage

ByteIn         mov temp1,#9            ; setup counter for 9 (8 bits/byte jmp if not zero
:Nextbit    djnz temp1,:Clockbit           ; have we clocked in a full bit?
        mov temp1,#9                ; if we have, reset the counter for the next byte read
        ret                              ; if there is one, and return                
:Clockbit   setb PIN_CLOCK            ; set the clock high: 5V:70ns / 2.0V:280ns clk-data-hld
        clrb PIN_CLOCK                  ; put the clock low
        movb BYTE_INPUT.0,PIN_IO     ; put the bit in the byte
        rl BYTE_INPUT                   ; rotate the byte to the left
        jmp :Nextbit                     ; jump to the next bit in the byte
        
;;;; SUB: ByteOut    
;;;; Puts the register byte BYTE_OUTPUT onto the pin PIN_IO bit by bit, producing a rising edge
;;;; valid clock on PIN_CLOCK for each bit. Must be ran via a call statement.
;;;; Setup: 
;;;; PIN_IO     Valid port pin representing serial device IO (must be set to output on tristates)
;;;; PIN_CLOCK     Valid port pin representing serial device clock
;;;; BYTE_OUTPUT Byte to be clocked out
        
ByteOut       mov temp1,#9                          ; setup counter with 9 (8 bits/byte jmp if not zero)                        
        mov temp2,BYTE_OUTPUT        ; save the byte output in case it was needed by caller
:Nextbit    djnz temp1,:Clockbit             ; do we have more bits to clock out?
        mov temp1,#9                     ; if we don't reset the counter for the next byte
        mov BYTE_OUTPUT,temp2         ; Put the byte back in case the caller needs it 
        ret                                   ; if there is one, and return
:Clockbit   movb PIN_IO,BYTE_OUTPUT.0       ; put the LSB of the output byte to the output pin
        setb PIN_CLOCK                     ; put the clock high
        clrb PIN_CLOCK                      ; put the clock low    
        rr BYTE_OUTPUT                     ; rotate the byte to the right to get the next bit
        jmp :Nextbit                          ; jump to the next bit in the byte (if there is one)