'PA1 4pin <---use FROM SW
'PA0 5pin <---
'PB1 13pin <---use TO TR1
'PB0 12pin <---use TO TR2

$regfile "ATtiny2313.dat"
$crystal = 1000000

Config Porta = Input
Config Portb = Output

Main:
Gosub Tr1_on
Gosub Tr2_off
Waitms 15
Gosub Tr1_off
Gosub Tr2_on
Waitms 15

Goto Main

Tr1_on:
Set Portb.1
Return

Tr1_off:
Reset Portb.1
Return

Tr2_on:
Set Portb.0
Return

Tr2_off:
Reset Portb.0
Return