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

[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.

[Shadow]

А зачем так сложно?

Procedure OS(x,y : Byte; S : String; c : Byte);Assembler;
Asm
  PUSH DS
  MOV AX,SS
  MOV DS,AX
  MOV AX,$B800

а кто будет на видео настраивать
типа
MOV es,ax

  MOV AL,[y]
  MOV BL,80
  MUL BL
  ADD AL,[x]
  CBW
  MOV DI,AX
  LEA SI,[s]
  MOV CL,[SI]
  XOR CH,CH
  INC SI
  MOV AH,[c]
  CLD
@@1:
  LODSB
  STOSW
  LOOP @@1
  POP DS
End;

Должно работать...

BlackShadow не работает
даже если и настроить то тоже не работает
аттрибуты вроде совпадают а вот коды символов и их расположение нет

Сообщение отредактировано: volvo - 6.11.2009 20:09