пытаюсь освоить .

решил написать програмку индикатор напряжения на свои БП .

12ф675 нужно связать с 16ф84 пока ничего толком на железе не получается ( причем в протеусе индикация осуществляется 0-999)

DEFINE DEBUG_REG gpio
DEFINE DEBUG_bit 2
DEFINE DEBUG_BAUD 9600
DEFINE DEBUG_PACING 1000
low gpio
m1 var Byte
seg var Byte
x var Word
m var Word
mask var Byte
digit var Byte
digit1 var Byte
digit2 var Byte
digit3 var Byte
trisio = %00000100
loop:
for x=0 to 999
digit1 = x / 100
digit = digit1
seg=%00000001
gosub getmask
m = x Mod 100
digit2 = m / 10
digit = digit2
seg=%00000010
Gosub getmask
digit3 = m Mod 10
digit = digit3
seg=%00000100
Gosub getmask
next x
goto loop
End
getmask:
Lookup digit,[$40,$79,$24,$30,$19,$12,$02,$78,$00,$18],mask
Pause 500
debug mask,seg
Return

16ф84

прием и отображение .

DEFINE DEBUGIN_REG portA
DEFINE DEBUGIN_bit 4
DEFINE DEBUGIN_BAUD 9600
DEFINE DEBUGIN_PACING 1000
x var byte
seg var byte
LOW PORTA
LOW PORTB
TRISA = %10000000
TRISB = %00000000
loop:
debugin 1000,loop,[x,seg]
porta=seg
portb=x
pause 100
goto loop

на сегментах отображаются кракозябы какието

вот я и думаю хдеж у меня ошибка

а вобще я запутолся скореи всего ..... это уже третии вариант схемы пытаюсь реализовать .
первыи был на двух пиках и 74hc164 , потом на одном пике и 139 и 164 , ....

в строке локуп возможно не те коды поставил , но это не долго исправить . проблема в самои передаче я думаю

и ишо путаю команду отключения компроматора и выбор портов анало\ цифров

кнопки обзор не бачу у себи , есть ток -- просмотреть - добавить ответ - отменить

resultat.lowbyte=adresl

resultat.highbyte=adresh

serout GPIO.2,1200,[resultat]

Можно и так

ктонить может привести пример организации программного (UART) в PIC12F675 ?

ADCON0.1=1
if ADCON0.1=1 then goto loop
loop1:
ADRH=%00000011: ADRL=%00000011- загнал чтоб отследить что передается (подключил к терминалке порт пика )
serout2 GPIO.2, 9600, [ ADRH,ADRL]
pause 10
Goto loop1

ну в 84 вроде все впорядке если тут задать переменые то отобразится верныи результат на сегментах

loop:
Serin2 porta.3,9600,[ADRH,ADRL]
ADRH=ADRH<<8
x= ADRH+ADRL
loop3:
digit1 = x / 100
digit = digit1
Gosub getmask
porta = %11111110
portb = mask
Pause 5
loop2:
m = x // 100
digit2 = m / 10
digit = digit2
Gosub getmask
porta = %11111101
portb = mask
Pause 5
loop1:
digit3 = m // 10
digit = digit3
Gosub getmask
porta = %11111011
portb = mask
Pause 5
Goto loop
getmask:
Lookup digit,[$C0,$F9,$A4,$B0,$99,$92,$82,$F8,$80,$90],mask
Pause 1
return
End

чувствую что нужно использовать прерывание( TMRO) но незнаю как их использовать и как с ними работать