byte highbit lowbit yardım??

[faruk_zone]

bir sorum olacak

tek byte alanına 2 digit sayı yüklemek istiyorum örnek

sayı var byte[1]

sayı[0]=5
sayı[1]=6

kayit=(sayı[0]<<4)+(sayı[1])'burada 2 değişkeni birleştirip tek değişkene kaydettim

write 0,kayit 'eeproma kaydet
--------------daha sonra mesela cihaz kapandı tekrar açtık----------------

read 0,kayit

sayı[0]=kayit>>4
sayı[1]=kayit & $0f

hserout [#sayi[0],".",#sayi[1]]

bu şekilde yapmaya çalışıyorum ancak olmuyor nasıl yapıcam bunu yaw?

[ete]

Sayı VAR BYTE[1] komutunda 1 yerine 2 yaz ve o şekilde dene bakalım.

Doğru Program aşağıdaki gibi olmalı

SAYI var byte[2] 
KAYIT   VAR BYTE
X   VAR BYTE
TEMP VAR WORD

  
lcdout $FE,1 
pause 500 
SAYI[0]=5
SAYI[1]=6

KAYIT=SAYI[0]<<4
lcdout $fe,$80,"KAYIT=",BIN8 KAYIT
kayit=KAYIT+sayi[1]

lcdout $fe,$C0,"KAYIT=",BIN8 KAYIT,"  ",DEC KAYIT
SAYI[0]=(kayit & %11110000)>>4
SAYI[1]=(kayit & %00001111)
LCDOUT $FE,$94,"SAYI-0=",DEC SAYI[0]
LCDOUT $FE,$D4,"SAYI-1=",DEC SAYI[1]
end 

Ete