Get DOS Date

From CometWiki

Get DOS Date

Syntax:

 DOSMS(AX-value,BX-value,CX-value,DX-value) EXCP=statement-label  

Entry:

 AX-value = "@2A00@"
 BX-value = "@0000@"
 CX-value = "@0000@"
 DX-value = "@0000@"

Return:

 The CX register contains the year (1980 to 2099; in hex -- see conversion note below).
                                                                                                                        .
 Byte 2 of the DX register (i.e., the DH byte) contains the month (1 to 12; in hex).
                                                                                                                         .
 Byte 1 of the DX register (i.e., the DL byte) contains the day (1 to 31; in hex).
                                                                                                                         .
 Byte 1 of the AX register (i.e., the AL byte) contains the weekday number (0 = Sunday, 1 = Monday, 2 = Tuesday, etc.; in
 hex).

Discussion:
The DOSMS function call can be used to get the DOS system date. This function requires that the AX-value be set to "@2A00@", and that the other entry values be set to null.
After the function is executed, the DOS date is returned in the registers as described above. Note that the values are returned in hex and must be converted to decimal for meaningful use.

Special note:
The CX register returns the year portion of the DOS system date. In order to get the correct year, you must first reverse the order of the bytes in the CX register, and then convert to decimal. This is demonstrated in the following sample program.

Example:

 ! S SDATE,DSK
 ! O DATE,DSK
 ! L T00,E
 ! R QMONITOR
 !
 !==========  GET DOS DATE =======================================
 !
 LENGTH 2 & LOCAL AX$,BX$,CX$,DX$          ! Define registers
            LOCAL MONTH$,DAYNUM$,WEEKDAY$  ! Define date variables
 LENGTH 4 & LOCAL YEAR$                    ! Define year
 LENGTH 1 & LOCAL AL$,CH$,CL$,DH$,DL$      ! Define sub-registers
 LENGTH 4.0 & LOCAL YEAR                   ! Define numeric year
 LENGTH 2.0 & LOCAL MONTH,DAYNUM,WEEKDAY   ! Define numeric dates
 !
 100 FORMAT (ET)                           ! Screen format
 !
 CLEAR                        ! Initialize all variables
 !
 AX$="@2A00@"                 ! Set AX register for "GET DATE"
 BX$="@0000@"                 ! Set BX register to null
 CX$="@0000@"                 ! Set CX register to null
 DX$="@0000@"                 ! Set DX register to null
 !
 DOSMS(AX$,BX$,CX$,DX$)       ! Perform DOSMS system call
 !
 YEAR$ = CX$                  ! Year (hex) = CX register
 MONTH$= SUB(DX$,2,1)         ! Month (hex) = DH byte of DX
 DAYNUM$= SUB(DX$,1,1)        ! Day (hex) = DL byte of DX register
 WEEKDAY$=SUB(AX$,1,1)        ! Weekday (hex) = AL byte of AX
 !
 CH$ = SUB(CX$,2,1)           ! Get CH byte from CX (year)
 CL$ = SUB(CX$,1,1)           ! Get CL byte from CX (year)
 YEAR$ = CH$ + CL$            ! Recombine CH and CL bytes
 !
 MONTH$   = "@00@" + MONTH$   ! Add leading null byte to MONTH$
 DAYNUM$  = "@00@" + DAYNUM$  ! Add leading null byte to DAYNUM$
 WEEKDAY$ = "@00@" + WEEKDAY$ ! Add leading null byte to WEEKDAY$
 !
 YEAR = HEXDEC(YEAR$)         ! Convert hex YEAR$ to decimal YEAR
 MONTH= HEXDEC(MONTH$)        ! Convert hex MONTH$ to decimal
 DAYNUM = HEXDEC(DAYNUM$)     ! Convert hex DAYNUM$ to decimal
 WEEKDAY= HEXDEC(WEEKDAY$)    ! Convert hex WEEKDAY$ to decimal
 !
 PRINT (0,100)                ! Set typewriter mode
 !
 PRINT (0) "YEAR:      ";YEAR
 PRINT (0) "MONTH:     ";MONTH
 PRINT (0) "DAY        ";DAYNUM
 PRINT (0) "WEEKDAY # :";WEEKDAY
 INPUT (0) ""
 RUN "QMONITOR"
 END