movlw movwf return

SampleAd call call

AdOone

btfsc

goto

call

return

BllOOOOOO ADCONO

SavePorts DoAd

ADCONO, (Ю

AdDone

ADOver

RestorePorts

clrf PORTJ bsf STATUS.RPO movlw OxOf

Next

movwf

movlw

call

return

movwf

decfsz

goto

return

TRISA STATUS, RPO ADCONO,ADON .125 Wait

ADCONO,GO

TempC TempC

Next

count

InitAd

equ 26 tentp equ 27 H byte equ 20 Lbyte equ 21 Ю equ 22 Й equ 23 fl2 equ 24 B2 BCD bcf STATUS, 0 movlw. 16 movwf count clrf Ю clrf Rl clrf R2 loopl6 rlf LJyte rlf HJyte rlf R2 rlf Rl

Тактирование АЦП от внутреннего RC-генератора.

Выполняем цикл преобразования.

Преобразование закончено? Если нет, ожидаем.

Устанавливаем флаг завершения преобразования. Восстанавливаем порты.

Выключаем светодиоды. Банк 1.

Переводим выходы порта В (высокоимпедансное). /

Банк 0. Включаем АЦП.

Начинаем преобразование.

Пересылаем в регистр temp.

в третье состояние

Назначаем ячейки ОЗУ (RAM).

Обнуляем бит переноса.

adjDEC

adjBCD

Проверяем, будет ли результат больше семи.

Проверяем, будет ли результат.больше семи. Сохраняем как HSD.

МИКРОКОМПЬЮТЕР, ПРОГРАММИРУЕМЫЙ НА BASIC

Последний из рассматриваемых примеров является не чем иным, как реализацией с помощью PIC-микроконтроллера 16С5Х настоящего микрокомпьютера, программируемого на Basic. Конечно, речь идет ни о QBasic, ни о Visual Basic, но используемый в микрокомпьютере Stamp язык имеет хорошую производительность и позволяет достичь высокой скорости работы различньгх устройств. Учитывая широкие возможности микрокомпьютера Stamp и все возрастающий интерес к нему, мы решили посвятить этому устройству отдельнто главу.

ПРИЛОЖЕНИЕ

ФАЙЛ ИДЕНТИФИКАТОРОВ

1и[ногочисленные листинги, представленные в этой книге, посредством директивы include используют файлы типовых идентификаторов PICREG.EQU и MPREG.H. Эти файлы идентичны, их содержимое приведено ниже.

В диалоговом окне ассемблера есть опция, запрещающая различение строчных и прописных букв в идентификаторах, и соответствующая ей директива (/I) для программ. Рекомендуем ее использовать, чтобы избежать проблем при ассемблировании, поскольку из-за различного происхождения файлов-источников, представленных в книге, обозначения некоторых стандартных идентификаторов иногда различаются (РОВТ Аили Port A, например).

Биты регистра состояния CARRY equ Ch ; Перенос - бит О регистра 3 (F3).