вывод на экран текущее время и дату

[Goodwin98]

Сообщение от Adis

тут процедура bcd_asc насколько понял переводит из двоичной в 10 неправильно

Может стоило проверить, перед тем, как такие выводы делать в теме которой три года ?

[Adis]

.286
.model small
.stack 100h
.data
    clock db 'TekyLLLee Bpemy '
    time db 0,0,':',0,0,':',0,0,'$'
.code
  bcd_asc proc

      mov ah, al
      and ah, 0fh
      add ah,'0'
      and al, 0f0h
      shr al, 4
      add al,'0'
      ret
  bcd_asc endp

  startupcode
  mov ah, 02ch
  int 21h
  mov al, ch
  call bcd_asc
  mov word ptr time, ax
  mov al, cl
  call bcd_asc
  mov word ptr time + 3, ax
  mov al, dh
  call bcd_asc
  mov word ptr time + 6, ax

  mov ah, 09h
  mov dx, offset clock
  int 21h
  mov ah,4ch
  int   21h    

END

переделал вот в exe. с 1ah прерыванием вообще не работает: показывает
TekyLLLee Bpemy 00:??:0>

а с 21h прерыванием показывается так:
0::28:09
иногда так: 0::2::0;
в чем может быть проблема?
делаю все это на тасме.

[Serge_Bliznykov]

скомпилировал пример в COM
вроде бы всё работает нормально.

проверяйте:
GETIME.rar

[Adis]

нашел ошибку -

mov ah,02ch
int 1ah

заменил на

mov ah,02h

и все заработало. спасибо.

[Serge_Bliznykov]

Сообщение от MalCer

Вот так еще можно

Код:

.386
CSEG segment use16
assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG
org 100h

Begin:

     mov ah,02ch
     int 1ah

ага. Вы абсолютно правы. там опечатка!

Странно, что я исправил ошибку в данном коде (судя по дате файла ещё 21.06.2011) и не выложил исправленный исходник. Думаю, что выложил, но в какой-то другой аналогичной теме..

[Adis]

нужно вывести месяц словом.

числом я вывожу через функцию 04h прерывания 1ah.
в dh - в bsd формате месяц.

я думал сделать так:

...
Month db 'January$  ', 'February$  ', 'March$    ' ...
...
mov    dx, offset Message + 10*(ratio-1)
...

где ratio сод-т значание от 1 - 12

но оказ-ся такое не прокатит. тогда как быть?


добавлено позже:

оказ-ся, такой вариант прокатывает:

mov si, 5
mov ah, Message[si]
mov string, ah
mov    ah, 9     
mov    dx, offset string

[Adis]

.MODEL SMALL
.STACK 100h
.DATA
    Message  DB 'September$', 'October$', 'November$'
    string db ?
.CODE
    mov ax, @Data
    mov ds, ax    
    mov si, 10
    mov ah, Message[si]
    mov string, ah
    mov    ah, 9     
    mov    dx, offset string
    int    21h
    mov    ah, 4ch
    int    21h
END

выводит только один символ. как мне вывести из Message только October?
и вообщем, что делает вот это: mov ah, Message[si] ?

[Goodwin98]

Может стоит вычислить отдельно и по частям ?

mov    dx, offset Message + 10*(ratio-1)

[Adis]

.MODEL SMALL
.STACK 100h
.DATA
    Month db 'January$  '
             db 'February$ '
             db 'March$    '
             db 'April$    '
             db 'May$      '
             db 'June$     '
             db 'July$     '
             db 'August$   '
             db 'September$'
             db 'October$  '
             db 'November$ '
             db 'December$ '    
.CODE
    mov ax, @Data    
    mov ds, ax
    ;mov ah, 04h         ;получение даты
    ;int 1ah 
    ;после этого в dh - месяц в bcd формате

    ;мне как то нужно dh в hex или двоичный вид перевести
    

    mov bl, 3 ; номер месяца [от 1 - 12]
    mov ax, 10
    mul bx    
    mov cx, ax
    sub cx, 10
    mov ah, 9
    mov dx, offset Month
  myloop:    
    inc dx
    loop myloop
    int 21h
    mov    ah, 4ch
    int    21h
END

Вообщем, выводит месяц словом. Единственная проблема dh - в BCD формате. Нужно в hex или binary перевести. Помогите плиз. Хотя бы алгоритм бы мне..

[Goodwin98]

Так в этой теме же все есть, в предыдущих постах