home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / mslang / biosasm / int.for < prev    next >
Encoding:
Text File  |  1991-08-05  |  1.4 KB  |  32 lines
  1. c INT.FOR  A sample program which uses the INT 21, function 2A
  2. c  to get the system date.
  3. c NOTE:
  4. c THIS PROGRAM, ITS USE, OPERATION AND SUPPORT IS PROVIDED "AS
  5. c IS," WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
  6. c INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  7. c MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE
  8. c ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THIS PROGRAM
  9. c IS WITH THE USER.  IN NO EVENT SHALL MICROSOFT BE LIABLE FOR ANY
  10. c DAMAGES INCLUDING, WITHOUT LIMITATION, ANY LOST PROFITS, LOST
  11. c SAVINGS OR OTHER INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
  12. c FROM THE USE OR INABILITY TO USE SUCH PROGRAM, EVEN IF
  13. c MICROSOFT HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES
  14. c OR FOR ANY CLAIM BY ANY OTHER PARTY.                               
  15. c
  16.  
  17.        INCLUDE 'interrpt.inc' 
  18.        gethibyte (dataword) = dataword / 256   ! statement functions from
  19.        getlobyte (dataword) = iand(dataword , 255)   ! include file
  20.  
  21.        inregs.ax=#2a00                    ! Function number 
  22.        intnum=#21                         ! Interrupt number
  23.        call interrupt(intnum,inregs,outregs)        ! Call MS-DOS interrupt
  24.  
  25.        write (*,*) 'Using INT 21, function 2A '
  26.        write (*,*) '  Month= ', gethibyte(outregs.dx)  ! High byte is month
  27.        write (*,*) '  Day  = ', getlobyte(outregs.dx)  ! Low byte is day
  28.        write (*,*) '  Year = ', outregs.cx ! Year 
  29.  
  30.        end
  31. 
  32.