напрямую с памятью в тескст режиме, вывод строки Опции

[Shadow]

ПРИВЕТ!!! ALL!!
================
ВОт реализовано позиционирование сама строка
и атрибуты
==================

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.

[FreeMan]

Я уже почитал в TechHelp'e, но всё-равно спасибо!