Ькзпшмичта ///- Интерфейс с внешними устройствами
POIE .equ 015h
PODIR .equ 012h
POIN .equ OlOh
POOUT .equ Ollh
; port 2
P2IN .equ 028h
P2OUT .equ 029h
P2IE .equ 02Dh
P2SEL .equ 02Eh
P2DIR .equ 02Ah
SDA .equ 020h
SCL .equ 080h
DNC .equ OAOh
OUT .equ P2OUT
DIR .equ P2DIR
IN .equ P2IN
LCD1 .equ 031h
LCDM .equ 030h
IE1 .equ Oh
IE2 .equ Olh
IFG1 .equ 02h
IFG2 .equ 03h
block .equ 0550h
alcd .equ 0B500h ; Размещение таблицы
; символов ASCII для ЖКИ
******************************************************
; Reset : Initialize processor ******************************************************
.sect "MAIN",RAM_orig RESET
MOV #SP_orig,SP ; Инициализация указа-
; теля стека ******************************************************
; Начало пользовательской программы ******************************************************
repeat
CMP.В #0FFh, R8
JNZ skp
INC.В R7 ; инкремент старшего
; байта значения ; для протокола записи слова
MOV.B #00h, R8 skp
INC.В R8 ; инкремент значения
220 Библиотека Компэла