pbp binary değer atama

Başlatan mikro29, 20 Ocak 2006, 15:46:51

mikro29

74hc165 de gelen binary'e değer atama işini nasıl yapabilirim
3 ad 74hc165 den gelen bilgiyi 3 digit nasıl yazdırabilirim...

mikro29

ADCON1 = 7 
OPTION_REG.7=0
BILGI VAR BYTE
BILGI1 VAR BYTE
BILGI2 VAR BYTE
BILGI3 VAR BYTE
BILGI4 VAR BYTE
BIRLER VAR WORD
ONLAR VAR WORD
YUZLER VAR WORD
SYMBOL D=PORTB.0
SYMBOL C=PORTB.1
SYMBOL A=PORTB.2

SYMBOL D1=PORTB.3
SYMBOL C1=PORTB.4
SYMBOL A1=PORTB.5

SYMBOL D2=PORTB.6
SYMBOL C2=PORTB.7
SYMBOL A2=PORTC.0

SYMBOL D3=PORTB.1
SYMBOL C3=PORTB.2
SYMBOL A3=PORTC.3

SYMBOL D4=PORTB.4
SYMBOL C4=PORTB.5
SYMBOL A4=PORTC.6

SAYI VAR WORD
SAYI=0
PORTB=0
PORTC=0
PORTD=0
BASLA:
SAYI=0
LOW A:PAUSEUS 1:HIGH A
SHIFTIN D,C,0,[BILGI]
GOSUB YAZDIR

LOW A1:PAUSEUS 1:HIGH A1
SHIFTIN D1,C1,0,[BILGI1]
GOSUB YAZDIR

LOW A2:PAUSEUS 1:HIGH A2
SHIFTIN D2,C2,0,[BILGI2]
GOSUB YAZDIR

LOW A3:PAUSEUS 1:HIGH A3
SHIFTIN D3,C3,0,[BILGI3]
GOSUB YAZDIR

LOW A4:PAUSEUS 1:HIGH A4
SHIFTIN D4,C4,0,[BILGI4]
GOSUB YAZDIR
GOTO BASLA
YAZDIR:
IF BILGI=%10000000 THEN
SAYI=001:GOSUB GOSTER
ENDIF
IF BILGI1=%01000000 THEN
SAYI=012:GOSUB GOSTER
ENDIF
GOTO BASLA
"

RETURN
GOSTER:
      BIRLER=SAYI DIG 0
      ONLAR= SAYI DIG 1
      YUZLER=SAYI DIG 2
    
      PORTD=240 | BIRLER         
      LOW PORTD.4
      PAUSE 1
      HIGH PORTD.4
      PAUSE 1
      
      PORTD=240 | ONLAR         
      LOW PORTD.5
      PAUSE 1
      HIGH PORTD.5
      PAUSE 1                                     
      
      PORTD=240 | YUZLER         
      LOW PORTD.6
      PAUSE 1
      HIGH PORTD.6
      PAUSE 1 
      GOTO BASLA