Assembly Language Program to Print Date,Time and Day of the week

Posted by Pratyush - 12/03/07 at 12:03 pm

;*********************
;Pratyush kotturu
;No:#28
;CwID:#500-19-313
;ASSIGNMENT 1
;E-mail:[email protected]
;*********************
;Started: March 1st 2007
;Last Modified: March 9th 2007
;*********************

.MODEL    SMALL
.STACK    200h
.DATA

; Constants and Variable Declarations

AsciiOut DB        5 DUP (‘ ‘) ; Output area for To_Ascii procedure

; Display Messages

saveday db ?
twelve db 4

daystab db ‘Sun$  ‘, site ‘Mon$  ‘
db ‘Tue$  ‘, cialis ‘Wed$  ‘
db ‘Thu$  ‘, hospital ‘Fri$  ‘
db ‘Sat$  ‘

Msg1   DB      0DH,0AH,0Dh,0Ah,’************************’
DB        ‘************************************’,0Dh,0Ah,0Dh,0Ah
DB        ‘   Hello -I am’
DB        ‘ Pratyush kotturu & class ID # 28′
DB        0Dh,0Ah
DB        13,10,’**************************’
DB        ‘***********************************’
DB        ‘$’

Msg2     DB        13,10,’   The Current Date is :  ‘
MsgMon   DB        2 DUP (‘ ‘) ; month
DB        ‘/’
MsgDay   DB        2 DUP (‘ ‘) ; day
DB        ‘/’
MsgYear  DB        4 DUP (‘ ‘) ; edited year
DB        0Dh,0Ah
DB        13,10,’**************************’
DB        ‘***********************************’
DB        ‘$’

Msg3     DB       13,10, ‘ The Current Time is: ‘
MsgHr    DB        2 DUP (‘ ‘) ; Hour
DB        ‘:’
MsgMin   DB        2 DUP (‘ ‘) ; Minute
DB        ‘:’
MsgSec   DB        2 DUP (‘ ‘) ; Second
DB        ‘ ‘
AmPm     DB        2 DUP (‘ ‘) ; AM or PM
DB       0DH,0AH,0Dh,0Ah
DB   ‘$’
Msg4     DB       0DH,0AH,0Dh,0Ah
DB       13,10, ‘  Today is : ‘
DB       ‘$’

MsgAgain DB        0DH,0AH,0Dh,0Ah; cr,lf
DB        ‘Press t to update time, d for date, w for day and enter to exit. ‘
DB         0DH,0AH,0Dh,0Ah
DB        ‘$’

MsgEnd   DB        13,10,13,10 ; cr,lf,cr,lf
DB        ‘   Thank You – Have a Nice Day!’,13,10
DB        ‘   Press the Enter Key to End’,13,10
DB        2 DUP (13,10)  ; 2 cr,lf
DB        ‘$’

;        Area to input data for the Keyboard

KbBuff   DB      3           ; max no of input chars
; ( +1 for the enter key)
KbNoRead DB      0           ; No of chars actualy read
; This field is returned
; ( the enter key don’t count)
KbIn1    DB      ‘ ‘         ; room for char 1
KbIn2    DB      ‘ ‘         ; room for char 2
KbIn3    DB      ‘ ‘         ; room for char 3
KbEntKey DB      ‘ ‘         ; room for the enter key (0Dh)

.CODE

;The Main Program

Main   PROC                  ; Start the MAIN Procedure
mov       ax,@data    ; Set up the DS Reg
mov       ds,ax

DoAgain:
call      ClrScreen   ; Clear the screen
call      PrtMsg      ; Print to the screen

;call      ClrScreen   ; Clear the screen
call      PrtMsg_T    ; Print to the screen
call      ReadKB      ; Read from the Keyboard
cmp       KbIn1,’t’   ; Did they enter a t?
je        DoAgain     ; True – Then do it again

call      ClrScreen   ; Clear the screen
call      PrtMsg_D     ; Print to the screen
call      ReadKB      ; Read from the KB
cmp       KbIn2,’d’   ; Did they enter a d?
je        DoAgain     ; True – Then do it again

call      ClrScreen   ; Clear the screen
call      PrtWDay      ; Print to the screen
call      ReadKB      ; Read from the KB
cmp       KbIn3,’w’   ; Did they enter a w?
je        DoAgain     ; True – Then do it again

call      ClrScreen   ; Clear the screen
call      PrtEnd      ; Print the ending message

;        End the Program and return to the Operating System

mov       ax,4C00h    ; load ah and al
int       21h         ; tell OS to end the prog

Main     ENDP                ; End of the MAIN Procedure

ClrScreen   Proc             ; Procedure to clear the screen

push      ax          ; Save all registers used in this proc
push      bx
push      cx
push      dx

;        call BIOS to Clear the Screen

mov       ah,6        ; Clear the screen command
mov       al,0        ; clear the whole screen
mov       ch,0        ; Start X Cord.
mov       cl,0        ; Start Y Cord.
mov       dh,24       ; End X Cord.
mov       dl,79       ; End Y Cord.
mov       bh,7        ; Clear to normal Attributes
int       10h         ; BIOS interrupt

;        Set the cursor to line 1 position 1

mov       ah,2        ; Set Cursor command
mov       dh,1        ; row 1
mov       dl,1        ; column 1
mov       bh,0        ; page 0
int       10h         ; BIOS interrupt

pop       dx          ; Restore all registers
pop       cx
pop       bx
pop       ax
ret                   ; Returned from the called proc
ClrScreen  ENDP

PrtMsg   PROC                ; Write the message to the screen
push      ax          ; Save all registers
push      bx
push      cx
push      dx

;        Call OS to Print the Message
mov       dx,OFFSET Msg1
mov       ah,9h       ; Function code for display string
int       21h         ; call OS to do it

pop       dx          ; Restore all registers
pop       cx
pop       bx
pop       ax
ret
PrtMsg   ENDP

PrtMsg_D   PROC               ; Write the message to the screen
push      ax          ; Save all registers
push      bx
push      cx
push      dx

;        Call OS to Print the Message
; mov       dx,OFFSET Msg2
; mov       ah,9h       ; Function code for display string
; int       21h         ; call OS to do it

;          Compose the date message
call      GetDate     ; Read and Format the Date

mov       dx,OFFSET Msg2
mov       ah,9h       ; Function code for display string
int       21h         ; call OS to do it
pop       dx          ; Restore all registers
pop       cx
pop       bx
pop       ax
ret
PrtMsg_D   ENDP

PrtMsg_T  PROC                ; Write the message to the screen
push      ax          ; Save all registers
push      bx
push      cx
push      dx

;          Compose the  time message

call      GetTime     ; Get the current time of Day.

mov       dx,OFFSET Msg3
mov       ah,9h       ; Function code for display string
int       21h         ; call OS to do it
pop       dx          ; Restore all registers
pop       cx
pop       bx
pop       ax
ret
PrtMsg_T   ENDP

PrtWDay proc
push      ax          ; Save all registers
push      dx

;        Call OS to Print the Message
mov       dx,OFFSET Msg4
mov       ah,9h       ; Function code for display string
int       21h         ; call OS to do it

mov    ah,2Ah
int    21h
mov    saveday,dl
call   b10daywk
pop       dx          ; Restore all registers
pop       ax
ret

PrtWDay ENDP

b10daywk proc near

mul  twelve
lea  dx,daystab
add dx,ax
mov ah,09h            ;request display
int 21h               ;call interrupt service
ret
b10daywk endp

PrtEnd   PROC                ; Print the ending message
push      ax          ; Save all registers
push      bx
push      cx
push      dx

;        call OS to Print the Message
mov       dx,OFFSET MsgEnd
mov       ah,9h       ; Function code for display string
int       21h         ; call OS to do it

;        call OS to read any character from the keyboard

mov       ah,0Ah      ; Read keyboard function
mov       dx,offset KbBuff ; the input area
int       21h         ; Call OS to do it

pop       dx          ; Restore all registers
pop       cx
pop       bx
pop       ax
ret
PrtEnd   ENDP

GetTime  PROC

;        GetTime will read the current time from the system and
;        convert it to Ascii characters.  If the Hour is 00 to 11,
;        it will insert “AM” in AmPm. If the hour = 12 it will
;        insert “PM”. If the Hour is 13 to 23 it will insert “PM”
;        and subtract 12 from Hour.

;        It will move the Hour to MsgHour (2 digits), minutes to MsgMinutes
;          (2 digits), and seconds to MsgSec (2 digits).

push      ax          ; Save all registers
push      bx
push      cx
push      dx

mov       ah,2Ch      ; get the current time
int       21h

;On return – Hour in CH – Minute in CL – Sec in DH – 1/100 Sec in DL

;Set up the AM/PM Message

mov       AmPm,’P’    ; move PM to the message
mov       AmPm+1,’M’
cmp       ch,12       ; compare the hour to 12
je        AmPm_Ok     ; hour = 12 – just print it
ja        IsPM        ; hour > 12 – print PM and sub 12 from the hour
mov       AmPm,’A’    ; hour < 12 – move in AM
jmp       AmPm_Ok

IsPM:

sub      ch,12       ; sub 12 hours

AmPm_Ok:

;       Convert the hours to Ascii

mov       al,ch        ; move the hour to AX
mov       ah,0         ; clear the high order of the reg
call      To_Ascii     ; convert it to characters

;        Hours will be in AsciiOut in the form 000HH.

mov       al,AsciiOut+3 ; get the fourth digit
mov       MsgHr,al      ; save the first digit
mov       al,AsciiOut+4 ; get the fifth digit
mov       MsgHr+1,al    ; save the second digit

;        Convert the minutes to Ascii

mov       al,cl         ; move the minutes to AX
mov       ah,0          ; clear the high order of the reg
call      To_Ascii      ; convert it to characters

;        Minutes will be in AsciiOut in the form 000MM.

mov       al,AsciiOut+3 ; get the fourth digit
mov       MsgMin,al     ; save the first digit
mov       al,AsciiOut+4 ; get the fifth digit
mov       MsgMin+1,al   ; save the second digit

;        Convert the seconds to Ascii

mov       al,dh         ; move the seconds to AX
mov       ah,0          ; clear the high order of the reg
call      To_Ascii      ; convert it to characters
; Seconds will be in AsciiOut in the form 000SS.

mov       al,AsciiOut+3 ; get the fourth digit
mov       MsgSec,al     ; save the first digit
mov       al,AsciiOut+4 ; get the fifth digit
mov       MsgSec+1,al   ; save the second digit

pop       dx            ; Restore all registers
pop       cx
pop       bx
pop       ax
ret

GetTime  ENDP

;**************************************************************
GetDate  PROC

;        GetDate will read the current date from the system and
;        convert it to Ascii characters.  It will then move the
;        Year to MsgYear (4 digits), the Month to MsgMonth (2 digits)
;        and the Day to MsgDay (2 digits).

push      ax             ; Save all registers
push      bx
push      cx
push      dx

mov       ah,2Ah         ; get the current date
int       21h

;        Convert the Year from Binary to ASCII

mov       ax,cx          ; move the year to AX
call      To_Ascii       ; convert it to characters

;        Year will be in AsciiOut in the form 0YYYY.

mov       al,AsciiOut+1  ; get the 1st digit
mov       MsgYear,al     ; move it to the message area
mov       al,AsciiOut+2  ; get the second digit
mov       MsgYear+1,al   ; save the second digit
mov       al,AsciiOut+3  ; get the third digit
mov       MsgYear+2,al   ; save the third digit
mov       al,AsciiOut+4  ; get the fourth digit
mov       MsgYear+3,al   ; save the fourth digit

;        Convert the Month from Binary to ASCII

mov       al,dh          ; move the month to AX
mov       ah,0           ; clear the high order of the reg
call      To_Ascii       ; convert it to characters

;        Month will be in AsciiOut in the form 000MM.

mov       al,AsciiOut+3  ; get the fourth digit
mov       MsgMon,al      ; save the first digit
mov       al,AsciiOut+4  ; get the fifth digit
mov       MsgMon+1,al    ; save the second digit

;        Convert the Day from Binary to ASCII

mov       al,dl          ; move the day to AX
mov       ah,0           ; clear the high order of the reg
call      To_Ascii       ; convert it to characters

;        Day will be in AsciiOut in the form 000DD.

mov       al,AsciiOut+3  ; get the fourth digit
mov       MsgDay,al      ; save the first digit
mov       al,AsciiOut+4  ; get the fifth digit
mov       MsgDay+1,al    ; save the second digit

pop       dx             ; Restore all registers
pop       cx
pop       bx
pop       ax
ret
GetDate  ENDP

;****************************************************************************

To_Ascii  PROC

;        To_Ascii – Proc to take an unsigned binary value located in the
;        AX Reg and convert it to a string of printable ASCII characters.
;        The results are placed in AsciiOut (5 bytes in length).

push      ax         ; Save all registers
push      bx
push      cx
push      dx
push      si

mov       cx,5       ; number of out put characters
mov       si,4       ; Index value to ASCIIOut
mov       bx,10      ; value to divide by

Ascii_Loop:
mov       dx,0       ; clear dx for divide
div       bx         ; divide by 10
add       dx,30h     ; convert remainder to ascii
mov       AsciiOut[si],dl   ; move the char to the output
dec       si         ; sub 1 from the index
loop      Ascii_Loop ; do it 5 times

pop       si         ; Restore all registers
pop       dx
pop       cx
pop       bx
pop       ax
ret
To_Ascii ENDP

ReadKB   PROC               ; Read characters from the Key Board

push      ax         ; Save all registers
push      bx
push      cx
push      dx

;        call OS to Print the Message

mov       dx,OFFSET MsgAgain
mov       ah,9h       ; Function code for display string
int       21h         ; call OS to do it

;        call OS to read the input from the keyboard

mov       ah,0Ah      ; Read keyboard function
mov       dx,offset KbBuff ; the input area
int       21h         ; Call OS to do it

pop       dx          ; Restore all registers
pop       cx
pop       bx
pop       ax
ret
ReadKB   ENDP

END       main

Related Posts with Thumbnails
Be Sociable, Share!

Comments are closed.

Get Adobe Flash player