=DeaD= » 01 окт 2010, 22:26
Вот так тогда еще более улучшено и с группен-командами для дальнейшей реализации:
PinModeA0=In @ PMA0I @ выставляем порт A линию 0 в режим цифрового входа
PinModeA0=Out @ PMA0O @ выставляем порт A линию 0 в режим цифрового выхода
PinModeF0=ADC @ PMF0A @ выставляем порт F линию 0 в режим АЦП
PinGetA0 @ PGA0 @ читаем значение на линии 0 порта A
PinSetA0=1 @ PSA01 @ пишем значение в линию 0 порта A (если она настроена как вход - 1 включает подтяжку)
AdcRef=(Int|Ext|AVCC) @ AR(I|E|A) @ выставить источник опорного напряжения для АЦП - внутренний, питание, внешний
AdcBits=(8|10) @ AB(8|A) @ выбрать режим работы АЦП - 8 или 10 бит
PortModeF=I*O*AIOA @ OMF=I*O*AIOA @ выставляем режим работы порта F - биты 2,7 вход, биты 1,5 выход, биты 0,3 вход ацп, биты 4,6 без изменения
PortSetF=0011**01 @ OSF=0011**01 @ выставить у порта F линии 0,4,5 в высокий уровень, линии 1, 6 и 7 в низкий уровень, линии 2 и 3 оставить без изменения
PortGetF @ OGF @ получить побитовые значения со входа порта F