Библиотека Компэла

MOV #OOOFh, R11 ; счётчик на ?50 мкс

swaita MOV.В IN, RIO ; проверка шины

DEC Rll

JZ busy

AND.В #SDA, RIO ; проверка SCL

JZ swaita

BIS.В #SDA, DIR ; перевести SDA в «О»

BIC.B #SCL, DIR ; перевести SCL в «1»

MOV #000Fh, Rll ; счётчик на ?50 мкс

swait MOV.В IN, RIO ; проверка шины

DEC Rll

JZ busy

AND.В #SCL, RIO ; проверка SCL

JZ swait

BIS.В #SCL, DIR ; перевести SCL в «0»

BIC.B #SDA, DIR ; «отпустить» SDA

RET

.-- очистка ЖКИ--------------------------------------

show clr

MOV #15, r5 ; очистка дисплейной

; памяти show_clrl

MOV.b #0, LCDl-l(r5)

DEC r5

JNZ show_clrl

RET

*********************************

; Определения для ЖКИ ******************************************************

LCD_TYPE

;-- ЖКИ модуля STK/EVK--------------------------------

a .equ Olh

b .equ 02h

с .equ lOh

d .equ 04h

e .equ 8Oh

f .equ 20h

g .equ 08h

h .equ 4Oh

;-- Определения символов------------------------------

LCD_Tab .byte a+b+c+d+e+f ; отображает "О"

.byte b+c ; отображает "1"

.byte a+b+d+e+g ; отображает "2"