Библиотека Компэла
Ькзпшмичта ///■ Интерфейс с внешними устройствами
| equ | 080h |
| equ | OAOh |
| equ | P2OUT |
| equ | P2DIR |
| equ | P2IN |
| equ | 031h |
| equ | 030h |
| equ | Oh |
| equ | Olh |
| equ | 02h |
| equ | 03h |
| equ | 0500h |
SCL
DNC
OUT
DIR
IN
LCD1
LCDM
IE1
IE2
IFG1
IFG2
address .equ 0500h ; Адрес в ОЗУ для
; переменной сканирова-
; ния
****************************************************** ; Reset : Инициализация процессора
.sect "MAIN",RAM_orig RESET
MOV #SP_orig,SP ; Инициализация указа-
; теля стека ******************************************************
; Начало пользовательской программы ******************************************************
CALL #show_clr ; Сброс адреса res MOV.В #00FFh, address ; адрес начина-
; ется с OxFF
; Начало цикла перебора адресов retry
INC.В address ; переход к следующему ; адресу из OxFF в ОхОС
СМР.В #080h, address ; адрес = 80?
JZ res ; сброс адреса по
; переполнению ; пауза
MOV #02Fh, R7 ; цикл паузы dela2 MOV #031Fh, R6 dela DEC R6
JNZ dela
DEC R7
JNZ dela2 ; Отображение сканируемого адреса
MOV #0000h, R5 ; очистка(убедиться,что