Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

_New / for lab2 / PRG00012

.DOC
Скачиваний:
5
Добавлен:
16.04.2013
Размер:
23.55 Кб
Скачать

(????????)

.model small

.code

.startup

push ds

pop es

mov ax, 0600h

mov dx, 0FFFFh

mov cx, 0

mov bh, 00000111b

int 10h

mov ax, 1300h

mov bx, 00011011b

mov cx, mes_len

mov dx, 090Fh

lea bp, message

int 10h

mov ax, 1300h

mov cx, mes_len

mov dx, 0A0fh

int 10h

mov ax, 1300h

mov cx, mes_len

mov dx, 0b0fh

int 10h

mov ax, 1300h

mov cx, mes_len

mov dx, 0c0fh

int 10h

mov ax, 1300h

mov cx, mes_len

mov dx, 0d0fh

int 10h

lNext: xor ax, ax

int 16h

cmp al, 27

je lExit

cmp al, 'q'

je lDown

cmp al, 'z'

je lUp

jmp lNext

lDown: xor cx, cx

mov dx, 1950h

mov ax, 0701h

mov bh, 00000111b

int 10h

jmp lNext

lUp: xor cx, cx

mov dx, 1950h

mov ax, 0601h

mov bh, 00000111b

int 10h

jmp lNext

lExit: .exit 0

.data

message db ' >*< scrolling text window on the screen >*< '

mes_len dw $-message

.stack 128

end

Соседние файлы в папке for lab2