home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / tasmswan / version.asm < prev   
Assembly Source File  |  1989-07-13  |  430b  |  38 lines
  1. %TITLE  "Automatic program Version demo"
  2.  
  3.     IDEAL
  4.     DOSSEG
  5.     MODEL    small
  6.     STACK    256
  7.  
  8. cr    EQU    13
  9. lf    EQU    10
  10.  
  11.     DATASEG
  12.  
  13. exitCode    db    0
  14.  
  15. ident    db    cr,lf, ??Filename, '  ', ??Date, '  ', ??Time
  16.     db    cr,lf,0
  17.  
  18.  
  19.     CODESEG
  20.  
  21. ;------ From STRIO.OBJ
  22.  
  23.     EXTRN    StrWrite:proc
  24.  
  25. Start:
  26.     mov    ax,@data
  27.     mov    ds,ax
  28.     mov    es,ax
  29.     mov    di,OFFSET ident
  30.     call    StrWrite
  31.  
  32. Exit:
  33.     mov    ah,04Ch
  34.     mov    al,[exitCode]
  35.     int    21h
  36.  
  37.     END    Start
  38.