Библиотека Компэла 221
| f& Texas
[NSiraJMENTS
|
|
| ///. Интерфейс с внешними устройствами
|
|
| PUSH
| #00h
|
| • место для кода ошибки
|
|
| PUSH
| #000Bh
|
| • поместить адрес в стек
|
|
| PUSH
| #009h
|
| • поместить в стек
|
|
|
|
|
| • команду чтения напря-
|
|
|
|
|
| • жения батареи
|
|
| PUSH
| #00h
|
| • зарезервировать байт
|
|
|
|
|
| • для данных
|
|
| PUSH
| #00h
|
| • зарезервировать байт
|
|
|
|
|
| • для данных
|
|
| CALL
| #rwp
|
|
|
|
| POP
| RIO
|
| • поместить данные в R1C
|
|
| POP
| Rll
|
| • поместить данные в R11
|
|
| ADD
| #04h, SP
|
| • освободить место
|
|
|
|
|
| • команды и адреса
|
|
| POP
| R9
|
| • читать код ошибки
|
|
| CMP
| #00h, R9
|
|
|
|
| JZ
| skpl
|
| • повтор при неудаче
|
|
| RLA
| Rll
|
|
|
| RLA
| Rll
|
|
|
| RLA
| Rll
|
|
|
| RLA
| Rll
|
|
|
| RLA
| Rll
|
|
|
| RLA
| Rll
|
|
|
| RLA
| Rll
|
|
|
| RLA
| Rll
|
|
|
| XOR
| RIO, Rll
| ; объединить 2 байта
|
|
|
|
| ; данных
|
|
| MOV
| Rll, R12
|
|
|
| CALL
| #display
| ; вызов подпрограммы
|
|
|
|
| ; отображения
|
|
| XOR. В
| #40h, LCD1+3
|
| ; добавить
| децимальную точку
|
|
|
| MOV. В
| alcd+'U',
| LCD1+5
|
; вызов подпрограммы ; задержки производителя
| CALL
| #show clr
|
|
| PUSH
| #00h
| место для кода ошибки
|
| PUSH
| #000Bh
| поместить адрес в стек
|
| PUSH
| #0020h
| поместить в стек
|
|
|
| команду чтения имени
|
|
|
| производителя
|
| PUSH
| #block
| зарезервировать байт
|
|
|
| для данных
|