Лабораторная работа: Бібліотека ASM-86 для перегляду графіки в стандартах BMP та PCX

Додаток. Лістинг програми

uses crt;

var graphresult1,graphresult,i:integer; {результат чтения графики}

procedure setvideo(mode:byte);assembler;{устанавливает видеорежимы}

asm

mov ah,0 {функция установки видеорежема}

mov al,mode {номер режима}

int 10h {прерывание для работы с видеорежимами}

end;

{$L pcx.obj} {подключаем нашу библиотеку}

function LoadPcx(x,y:integer;s:string):integer;

external;{обьявляем функции, которые находятся в библиотеке}

function LoadBmp(x,y:integer;s:string):integer;{для чтения файлов .PCX, .BMP}

external;

begin {MAIN}

if paramcount=0 then

begin

setvideo($5f); {устанавливает видеорежим 640x480 256 цветов}

graphresult:=LoadPcx(1,1,'a1.pcx');{вызывает функцию для чтения .PCX

и возвращает результат чтения}

readln; {ждет нажатия Enter}

setvideo($5f);

graphresult1:=LoadBmp(1,1,'a3.bmp');

readln;

setvideo(3); {установка текстового видеорежима}

if graphresult<>0 then writeln('Ошибка чтения a1.pcx');

if graphresult1<>0 then writeln('Ошибка чтения a3.bmp');

end

else {paramcount - количество параметров}