================
ВОт реализовано позиционирование сама строка
и атрибуты
==================
Procedure InitTV; assembler;
asm
mov ax,0003h
int 10h
end;
Procedure WK;Assembler;
asm
mov ax,0
int 16h
xor ax,ax
end;
Procedure OS(x,y : Byte; S : String; c : Byte);
Begin
asm
push ds
mov ax,ss
mov ds,ax
lea si,y
mov ax,80
mov cx,[si]
mul cx
lea si,x
mov cx,[si]
add ax,cx
mov cx,0002h
mul cx
mov di,ax
mov ax,0b800h
mov es,ax
lea si,S
mov ah,0
mov al,[si]
mov cx,ax
inc si
@out:
mov al,[si] {Symbol}
mov ah,c {attribut}
inc si {nex symbol}
mov es:[di],ax {to video memory}
inc di {movenau to video memory}
inc di {increment 2 se also for 1 symbol 2 byte memory}
loop @out
pop ds
end;
end;
BEGIN
InitTV;
OS(36,10,'Hello',254);
WK;
END.