mov bp,offset mes1 ;

call symv ;вывод на экран строки симв.

;

call nklav ;идентиф. нажатой клавиши

call clsym ;стирание из буфера символа

;

call clear ;ярко-белые симв. на синем

;

mov cx,len2 ;

mov dh,10 ;

mov dl,23 ;

mov bp,offset mes2 ;

call symv ;вывод на экран строки симв.

;

mov cx,len3 ;

mov dh,12 ;

mov dl,23 ;

mov bp,offset mes3 ;

call symv ;вывод на экран строки симв.

;

nrv2: call nklav ;идентиф. нажатой клавиши

;

cmp ah,02h ;

je nrv3 ;

cmp ah,03h ;

je nrv10 ;

call clsym ;

jmp nrv2 ;

nrv10: jmp nrv6 ;

;

nrv3: call clear ;ярко-белые симв. на синем

call clsym ;стирание из буфера символа

;

mov cx,len4 ;

mov dh,0 ;

mov dl,10 ;

mov bp,offset mes4 ;

call symv ;вывод на экран строки симв.

;

mov ah,06h ;функция задания окна

mov al,0 ;режим создания

mov bh,2Fh ;атрибут символов - з/ярко-б

mov ch,1 ;верхняя Y-координата

mov cl,0 ;левая Х-координата

mov dh,24 ;нижняя Y-координата

mov dl,79 ;правая Х-координата

int 10h ;прерывание BIOS

;

mov ah,02 ;

mov bh,0 ;

mov dh,1 ;

mov dl,0 ;

int 10h ;

;Запись символов в буфер(buf1)

mov ah,3Fh ;

mov bx,0 ;

mov cx,100 ;

mov dx,offset buf1 ;

int 21h ;

;

mov lensym,ax ;

inc lensym ;

call nrv11 ;Состояние ACK,BUSY

mov si,0 ;

dlsh: dec lensym ;

mov al,offset buf1[si] ;

mov dx,378h ;

out dx,al ;Выставление данных

mov dx,1000 ;

call delay

mov dx,37Ah

mov al,00001001b

out dx,al ;Выставляем строб

mov dx,1000

call delay

mov dx,37Ah

mov al,00001000b

out dx,al ;Снимаем строб

cmp lensym,0

jz kon

inc si

call nrv11

jmp dlsh

;Передача в принтер символа конца строки

kon: call nrv11

mov al,10

mov dx,1000

call delay

mov dx,378h

out dx,al

mov dx,1000

call delay

mov dx,37Ah

mov al,00001000b

out dx,al

mov dx,1000

call delay

mov dx,37Ah

mov al,00001001b

out dx,al

mov dx,10000

call delay

mov al,13

mov dx,378h

out dx,al

mov dx,10000

call delay

mov dx,37Ah

mov al,00001000b

out dx,al

mov dx,10000

call delay

mov dx,37Ah

mov al,00001001b

out dx,al

jmp nrv6

;

nrv6: mov ax,0003h

int 10h

;

call clsym

ret

;

;ПП Экран: ярко-белые символы на синем фоне.---------------------------------

clear: mov ah,06h ;функция задания окна

mov al,0 ;режим создания

mov bh,1Fh ;атрибут символов - c/ярко-б

mov ch,0 ;верхняя Y-координата

mov cl,0 ;левая Х-координата

mov dh,24 ;нижняя Y-координата

mov dl,79 ;правая Х-координата

int 10h ;прерывание BIOS

ret

;ПП. Вывод на экран строки символов.-----------------------------------------

symv: mov ah,13h

mov al,0

mov bh,0

mov bl,1Fh

push ds

pop es

int 10h

ret

;ПП. Идентификация нажатой клавиши.------------------------------------------

nklav: lahf

or ah,01000000b

sahf

nrv1: mov ah,11h

int 16h

jz nrv1

ret

;ПП. Стирание из буфера символа.---------------------------------------------

clsym: mov ax,0C00h

int 21h

ret

;ПП. Задержка----------------------------------------------------------------

delay: mov ah,86h

mov cx,0

int 15h

ret

;ПП. Проверка регистра состояния---------------------------------------------

nrv11: mov cx,1000

nrv112: push cx

mov dx,379h

in al,dx

mov ack,al

mov busy,al

and ack,40h

cmp ack,40h

jne nrv111

and busy,80h

cmp busy,80h

jne nrv111

nrv111: pop cx

loop nrv112

ret

;ДАННЫЕ.---------------------------------------------------------------------

mes1 db 'ПРОГРАММА - "PRINT"'

len1=$-mes1

mes2 db '1. Вывод на печать данных из буфера.'

len2=$-mes2

mes3 db '2. Выход из программы.'

len3=$-mes3

mes4 db 'Наберите выводимый на печать текст с помощью клавиатуры.'

len4=$-mes4

buf1 db 100 dup('*')

lensym dw 0

ack db ?

busy db ?

;----------------------------------------------------------------------------

end start

Задание 7. Исследовать режим тестирования СОМ. Написать программу на ассемблере.

.model tiny ;модель памяти, исп. для СОМ

.code ;начало сегмента кода

org 100h ;нач. знач. счетчика - 100Н

;Начало основной программы---------------------------------------------------

start: call clear ;ярко-белые симв. на синем

;

mov cx,len1 ;

mov dh,10 ;

mov dl,27 ;

mov bp,offset mes1 ;

call symv ;вывод на экран строки симв.

;

call nklav ;идентиф. нажатой клавиши

call clsym ;стирание из буфера символа

;

call clear ;ярко-белые симв. на синем

;

mov cx,len2 ;

mov dh,10 ;

mov dl,23 ;

mov bp,offset mes2 ;

call symv ;вывод на экран строки симв.

;

mov cx,len3 ;

mov dh,12 ;

mov dl,23 ;

mov bp,offset mes3 ;

call symv ;вывод на экран строки симв.

;

nrv2: call nklav ;идентиф. нажатой клавиши

;

cmp ah,02h ;

je nrv3 ;

cmp ah,03h ;

je nrv10 ;

call clsym ;

jmp nrv2 ;

nrv10: jmp nrv6 ;

;

nrv3: call clear ;ярко-белые симв. на синем

call clsym ;стирание из буфера символа

;

mov cx,len4 ;

mov dh,0 ;

mov dl,10 ;

mov bp,offset mes4 ;

call symv ;вывод на экран строки симв.

;

mov ah,06h ;функция задания окна

mov al,0 ;режим создания

mov bh,2Fh ;атрибут символов - з/ярко-б

mov ch,1 ;верхняя Y-координата

mov cl,0 ;левая Х-координата

mov dh,24 ;нижняя Y-координата

mov dl,79 ;правая Х-координата

int 10h ;прерывание BIOS

;

mov ah,02

mov bh,0

mov dh,1

mov dl,0

int 10h

;

mov ah,3Fh

mov bx,0

mov cx,100

mov dx,offset buf1

int 21h

;ИнициалицацияСОМ1

initcom1 proc

mov ax,40h

mov es,ax

mov dx,es:[0]

add dx,3

mov al,10000000b

out dx,al

dec dx

dec dx

mov al,0

out dx,al

dec dx

mov al,0C0h

out dx,al

ret

initcom1 endp

;Инициализация регистра контроля линии

initrg proc

add dx,3

mov al,00000000b

or al,00000011b

or al,00000000b

or al,00000000b

out dx,al

inc dx

mov al,10h

out dx,al

sub dx,3

mov al,0

out dx,al

ret

initrg endp

;ГотовностьСОМ1

check proc

try: mov dx,es:[0]

add dx,5

in al,dx

test al,1Eh

jz m0

lea dx,error

mov cx,len5