Вывести время в консольку

[Rin]

Добрый день. Народ, с Наступающим НГ!!!

вот нерабочий код:

mov ah,2ch ; получить время
int 21h

mov dx,ch 
mov ah,9 ; вывести строку
int 21h

mov dx,cl 
mov ah,9 ; вывести строку
int 21h

ругается на mov dx,ch и mov dx,cl .
почему не хочет из регистра в регистр инфу кидать не понимаю.

[Stilet]

ругается на mov dx,ch и mov dx,cl .

Потому что разные размеры регистров.

mov dx,cx

[Ant1971on]

Размерность приемника и источника должна быть одинаковой. Попробуйте класть ch и cl в dl и выводить на экран с помощью 02h.

[Rin]

stilet
что то я не совсем понял , что это , но это точно не то, что надо))))
закатал так:

 mov ah,2ch ; получить время
  int 21h

  mov dx,cx
  mov ah,9 ; вывести строку
  int 21h

в картинке то, что получилось))


Ant1971on
а не получится, пробовал. Да и потом подумал, что выводит то он один символ, а в часах и минутах по 2 символа.

PS: хорошо, что windows ещё работает))) ну на фиг эти эксперименты!

[Stilet]

Не-е-е-е)))))
Мало получить время, его еще нужно из числа привести в строку, чтоб распечатать на экране. Это ты только 25% написал кода )
поищи примеры как переводить число в строку на асме.

[Rin]

ага, вот оно чё значит. ну это можно. в стандартном модуле delphi есть функция перевода числа в строку на assembler`e ))

[Stilet]

Вот именно. Только учти - она 32итная, а твоя программа 16 битная если не ошибаюсь.

[Rin]

короче не получилось из SysUtils вытащить ассемблеровскую процедуру, т.к. inttostr вызывает ещё одну asm процедуру, та в свою очередьещё парочку уже из другого модуля, которые используют вперемешку asm и delphi. Да , у меня 16-разрядная прога. Поэтому все регистры без приставки "Е". Хотя пора бы уже использовать приставку "R")) поищу перевод циферок в строку и выложу рез-т.)

[Rin]

Сделал вот так =)

inttostr proc
@:      mov     al, timer
        aam
        mov     bh, al
        mov     al, ah
        aam
        mov     bl, al
        mov     dl, ah
        mov     ah, 02h
        add     dl, 30h
        add     bx, 3030h
        cmp     dl, 30h
        je      @1
        int     21h
        jmp     @2
@1:     cmp     bl, 30h
        je      @3
@2:     mov     dl, bl
        int     21h
@3:     mov     dl, bh
        int     21h
ret
inttostr endp

time proc
mov ah,2ch ; получить время
int 21h


mov timer,ch  ; в описании переменных :  timer db ? 
call inttostr

lea dx,simvol ; в описании переменных : sivol DB ':$'
   mov ah,9
   int 21h 

mov timer,cl
call inttostr

   ret
Time endp

ну и в программе

call time

естественно =)