مشكلة في ربط Seven Segment Display مع Atmega16

'code in bascom AVR
B = D / 10	'first digit
C = D Mod 10 '2nd digit
Portc.3 = 0  'disable digit 1
Portc.2 = 1  'enable digit 0
S = C
Gosub Convert 'subroutine to 

output the displayed number to 

port "D"
Waitms 5	
 Portc.2 = 0  'disable digit 0
Portc.3 = 1  'enable digit 1
S = B
Gosub Convert	'output the 

displayed number to port "D"
Waitms 5
Convert:
Select Case S
Case 0 : Portd = 1
Case 1 : Portd = 79
Case 2 : Portd = 18
Case 3 : Portd = 6
Case 4 : Portd = 76
Case 5 : Portd = 36
Case 6 : Portd = 32
Case 7 : Portd = 15
Case 8 : Portd = 0
Case 9 : Portd = 4
End Select
Return

وشكراً جزيلآ