home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC6.DMS / in.adf / libsrc.lha / LIBSRC / asctime.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-08  |  539 b   |  35 lines
  1. * Maxon C++:
  2. * Library-Modul "asctime"
  3. * Jens Gelhar 09.02.92, 04.08.94
  4.  
  5.     xdef    _asctime,asctime__PC02tm
  6.     xdef    _ctime,ctime__PCUi
  7.  
  8.     xref    strftime__PcUiPCcPC02tm,localtime__PCUi
  9.  
  10. _ctime:
  11. ctime__PCUi:
  12.     move.l    4(a7),-(a7)
  13.     jsr    localtime__PCUi
  14.     move.l    d0,(a7)
  15.     bsr.b    _asctime
  16.     addq.l    #4,a7
  17.     rts
  18.  
  19. _asctime:
  20. asctime__PC02tm:
  21.     move.l    4(a7),-(a7)
  22.     pea    formatstring(pc)
  23.     pea    30.w
  24.     pea    returnstring(pc)
  25.     jsr    strftime__PcUiPCcPC02tm
  26.     lea    4*4(a7),a7
  27.     move.l    #returnstring,d0
  28.     rts
  29.  
  30.  
  31. formatstring:    dc.b '%a %b %d %X %Y',10,0
  32. returnstring:    blk.b 30
  33.  
  34.     end
  35.