home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / batch / library / batutl2 / chkdate.asm < prev    next >
Encoding:
Assembly Source File  |  1988-04-16  |  521 b   |  28 lines
  1. TITLE    CHKDATE    7-3-85    [4-16-88]
  2.  
  3. LF    EQU    0AH
  4. CR    EQU    0DH
  5. ;
  6. ;INITIAL VALUES :    CS:IP    0000:0100
  7. ;            SS:SP    0000:FFFF
  8. CodeSeg    SEGMENT
  9.     ASSUME DS:CodeSeg, SS:CodeSeg ,CS:CodeSeg ,ES:CodeSeg
  10.     ORG    100H
  11.  
  12. ChkDate    proc
  13.     MOV    AH,2AH        ;get system date
  14.     INT    21H
  15.     MOV    AX,4C00H    ;assume date is ok
  16.     CMP    CX,07BCH    ;year=1980?
  17.     JNZ    Exit        ; nope, ok
  18.     CMP    DX,0101H    ;1 Jan?
  19.     JNZ    Exit        ; nope, ok
  20.     inc    al        ;return Errorlevel = 1
  21. Exit:    INT    21H
  22.     INT    20H        ;return to DOS/batch file
  23. ChkDate    endp
  24.  
  25.     CodeSeg    ENDS
  26. ;
  27. END    ChkDate
  28.