Системное программное обеспечение. Рощин А.В. - 85 стр.

UptoLike

Составители: 

85
mov handle,ax ; Сохранение дескриптора файла
; Запись текста в файл
mov ah,40h ; Функция записи в файл
mov bx,handle ; Дескриптор файла
xor ch,ch
mov cl,buf+1 ; Длина записываемого текста
lea dx,buf+2 ; Адрес записываемого текста
int 21h
jc err1 ; Переход на вывод сообщения при ошибке
; Закрытие файла
mov ah,3eh ; Функция закрытия файла
mov bx,handle ; Дескриптор файла
int 21h
jc err1
int 20h ; Выход из программы
; Вывод сообщения при возникновении ошибки
err1: mov ah,9 ; Функция вывода строки на
экран
lea dx,meserr ; Адрес сообщения об ошибке
int 21h
int 20h
file db 'roschin.ie4',0
buf db 255,255 dup(0)
meserr db 'Error during program execution$'
handle dw ? ; Место для дескриптора файла
Start endp
Code ENDS
END Start
3.3 Работа с графикой
Задача 3.3.1. Написать программу, которая переключает ЭВМ в
графический режим CGA (4 цвета, 320 * 200 точек) и заполняет экранную
область (8000h байтов, начиная с адреса B800h) заданным значением
(color), выводит на середину экрана изображение мяча (4*4) точек и
обеспечивает его движение с отражением от краев экрана.
Assume CS: Code, DS: Code
screen_size equ 8000h ; Размер экрана в байтах
color equ 0 ; Цвет: 4 точки в байте, 55рголубой,
Code SEGMENT ;0ааh – сиреневый, 0ffh – белый
org 100h
Start proc near
mov ah,0 ; Функция установки видеорежима
mov al,4 ; Графический режим 4 цвета 320 * 200
int 10h
                                   85



      mov handle,ax ; Сохранение дескриптора файла
; Запись текста в файл
      mov ah,40h          ; Функция записи в файл
      mov bx,handle ; Дескриптор файла
      xor ch,ch
      mov cl,buf+1        ; Длина записываемого текста
      lea dx,buf+2        ; Адрес записываемого текста
      int   21h
      jc    err1          ; Переход на вывод сообщения при ошибке
; Закрытие файла
      mov ah,3eh          ; Функция закрытия файла
      mov bx,handle ; Дескриптор файла
      int   21h
      jc    err1
      int   20h           ; Выход из программы
; Вывод сообщения при возникновении ошибки
err1: mov ah,9            ; Функция вывода строки на экран
      lea dx,meserr ; Адрес сообщения об ошибке
      int   21h
      int   20h
file db     'roschin.ie4',0
buf db      255,255 dup(0)
meserr db 'Error during program execution$'
handle dw ? ; Место для дескриптора файла
Start endp
Code ENDS
      END Start


     3.3 Работа с графикой

      Задача 3.3.1. Написать программу, которая переключает ЭВМ в
графический режим CGA (4 цвета, 320 * 200 точек) и заполняет экранную
область (8000h байтов, начиная с адреса B800h) заданным значением
(color), выводит на середину экрана изображение мяча (4*4) точек и
обеспечивает его движение с отражением от краев экрана.
Assume CS: Code, DS: Code
screen_size equ 8000h      ; Размер экрана в байтах
color       equ 0    ; Цвет: 4 точки в байте, 55р – голубой,
Code SEGMENT         ;0ааh – сиреневый, 0ffh – белый
      org 100h
Start proc near
      mov ah,0 ; Функция установки видеорежима
      mov al,4 ; Графический режим 4 цвета 320 * 200
      int  10h