Видеопамяти пять
Страница: [1] [2] [3] [4] [5] [6]
POP DS
END;
PROCEDURE PutSymbol (Character: CHAR; Attr: BYTE; PosX, PosY: BYTE) ASSEMBLER;
ASM
MOV CH, Attr
MOV CL, Character
XOR AX, AX
MOV AL, PosY
MOV BX, Cols
ADD BX, BX
MUL BX
XOR BX, BX
MOV BL, PosX
ADD BL, PosX
ADD AX, BX
MOV ChOff, AX
MOV BX, VOffset
ADD BX, ChOff
PUSH DS
MOV AX, 0B800h
MOV DS, AX
MOV WORD PTR DS: BX, CX
POP DS
END;
BEGIN
Dir: = TRUE;
ReadScreenProp;
ClearScreen;
{WriteLn (PageSize, '', VOffset, '', ActivePage, '', Cols, '', Rows, '', ChOff);}
PutSymbol ('', $ 0000,0,0);
Страница: [1] [2] [3] [4] [5] [6]
версия для печати
Читайте также:
— Экономическая мысль в России
— Биография Евгения Маланюка
— Преобразование и сохранение естественной среды обитания человека
— Экологические проблемы окружающей среды
— История возникновения ЭВМ
|
|