$regfile = "attiny13.dat"
$hwstack = 3
$swstack = 2
$framesize = 3
$crystal = 1200000

Portb = 1
Config Portb = Output

Le1 Alias Portb.3
Le2 Alias Portb.4
Dat Alias Portb.0
Clk Alias Portb.2

Dim Data_byte As Byte
Dim I As Byte

Wait 1

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

 Le1 = 0
 Le2 = 0

Main:

 'Function Latch
 Data_byte = &H40
 Gosub Ser_out
 Data_byte = &H00
 Gosub Ser_out
 Data_byte = &H22
 Gosub Ser_out
 Gosub End_cmd

 'Reference Counter Latch
 Data_byte = &H00
 Gosub Ser_out
 Data_byte = &H00
 Gosub Ser_out
 Data_byte = &H10
 Gosub Ser_out
 Gosub End_cmd

 'AB Counter Latch
 Data_byte = &H00
 Gosub Ser_out
 Data_byte = &H1F
 Gosub Ser_out
 Data_byte = &H11
 Gosub Ser_out
 Gosub End_cmd

 'Function Latch
 Data_byte = &H40
 Gosub Ser_out
 Data_byte = &H00
 Gosub Ser_out
 Data_byte = &H22
 Gosub Ser_out
 Gosub End_cmd

 Goto _sleep

'*******************************************************************************
Ser_out:

For I = 7 To 0 Step -1
 Clk = 0
 Dat = Data_byte.i
 Clk = 1
Next
 Dat = 0
Return

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

End_cmd:

 Clk = 0
 Waitus 1
 Le1 = 1
 Le2 = 1
 Waitus 1
 Le1 = 0
 Le2 = 0

Return

'*******************************************************************************
_sleep:

Config Powermode = Powerdown
Return

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