Відеопам'ять у текстовому режимі (+текстпрограми), Детальна інформація
Відеопам'ять у текстовому режимі (+текстпрограми)
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);
PutSymbol('V',$1E,3,1);
PutSymbol('I',$1E,3,2);
PutSymbol('D',$1E,3,3);
PutSymbol('E',$1E,3,4);
PutSymbol('O',$1E,3,5);
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);
PutSymbol('V',$1E,3,1);
PutSymbol('I',$1E,3,2);
PutSymbol('D',$1E,3,3);
PutSymbol('E',$1E,3,4);
PutSymbol('O',$1E,3,5);
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021