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

[gogi73]

програмка по ассемблеру

задача :
вывести на экран текущее время и текущую дату.
использование 1ah прерывание и 2h макрос и 4h функции

Ребята помогите пожалуйста с задачкой....буду очень признателен....могу помочь финансово.....

[MalCer]

Вот как вывести дату:

model tiny
.186
.code
org 100h
begin:
;устанавливаем текстовый режим
  mov ax,3
  int 10h
;выводим сообщение
  mov ah,9
  mov dx,offset Data_x
  int 21h
;получаем дату
  mov ah,2ah
  int 21h
;вывод дня
  mov al,dl
  xor ah,ah
  call OutNumber
;вывод месяца
  mov al,dh
  xor ah,ah
  call OutNumber
;вывод года
  mov ax,cx
  call outNumber
;любая клавиша
  xor ax,ax
  int 16h
  ret
;подпограмма вывода числа в десятичной системе
outNumber:
  pusha
;устанавливаем систему и счетчик цифр
  mov bx,10
  xor cx,cx
;делим на основание системы
isDiv:  xor dx,dx
  div bx
;запоминаем в стеке и увеличиваем счетчик цифр в стеке
  push dx
  inc cx
;повторяем пока Ах не равно 0
  or ax,ax
  jnz isDiv
;извлекаем из сткека число
isOut:  pop ax
;переводим его в символ
  or ax,30h
;выводим
  int 29h
  loop isOut
;выводим разделяющий пробел
  mov al,20h
  int 29h
  popa
  ret
Data_x  db 10,13,'Data:$'
end begin

[DEADHUNT]

можно и напрямую через CMOS дату получить.

[gogi73]

Помогите пожалуйсто ещё вывести время на экран с описанием...

[Goodwin98]

Я прикрепил программу, которая показывает время и дату через прерывание 1ah и позволяет установить новые.

[gogi73]

Дружище спасибо тебе но файл не разорхивируеться выдаёт ошибку

[MalCer]

Вроде все нормально, у меня разархивировалось!

[MalCer]

вывести время на экран

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

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

Begin:

     mov ah,02ch
     int 1ah
     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

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
     clock db 'TekyLLLee Bpemy '
     time db 0,0,':',0,0,':',0,0,'$'
CSEG ends
end Begin

[аннна]

а как вывести еще день недели(словом)

[Adis]

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

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

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

Begin:

     mov ah,02ch
     int 1ah
     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

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
     clock db 'TekyLLLee Bpemy '
     time db 0,0,':',0,0,':',0,0,'$'
CSEG ends
end Begin

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