ВІДЕОПАМ’ЯТЬ

J:BYTE;

Dir:BOOLEAN;

PROCEDURE ReadScreenProp; ASSEMBLER;

ASM

{Reading properties of Video Mode}

PUSH DS

MOV AX,0040h

MOV DS,AX

MOV AX,DS:[004Ah]

XOR BX,BX

MOV BL,DS:[0084h]

INC BL

MOV DL,DS:[0062h]

POP DS

MOV Cols,AX

MOV Rows,BL

MUL BX

MOV PageSize,AX

MOV ActivePage,DL

END;

PROCEDURE ClearScreen; ASSEMBLER;

ASM

{Set cursor position}

PUSH DS

MOV AX,0040h