home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / utilitys / 93 / ppaccell / stopwatc.s < prev   
Encoding:
Text File  |  1987-10-12  |  738 b   |  44 lines
  1.     .text
  2.  
  3.     .globl _sttim,_gettim
  4. _sttim:
  5.  
  6.     pea    0            * go into supervisor mode
  7.     move.w    #$20,-(sp)        * Super(0)
  8.     trap    #1            * enter GEMDOS
  9.     addq.l     #6,sp            * restore stack
  10.  
  11.     move.l    $4ba,reftim
  12.  
  13.     move.l d0,-(sp)            * set SSP back
  14.     move.w #$20,-(sp)        * Super(savessp)
  15.     trap #1                * enter GEMDOS
  16.     addq.l #6,sp            * restore stack
  17.  
  18.     clr.l    d0
  19.     rts
  20.  
  21. _gettim:
  22.  
  23.     pea    0            * go into supervisor mode
  24.     move.w    #$20,-(sp)        * Super(0)
  25.     trap    #1            * enter GEMDOS
  26.     addq.l     #6,sp            * restore stack
  27.  
  28.     move.l    $4ba,tmp
  29.  
  30.     move.l d0,-(sp)            * set SSP back
  31.     move.w #$20,-(sp)        * Super(savessp)
  32.     trap #1                * enter GEMDOS
  33.     addq.l #6,sp            * restore stack
  34.  
  35.     move.l    tmp,d0
  36.     sub.l    reftim,d0
  37.  
  38.     rts
  39.  
  40.     .bss
  41. reftim    ds.l    1
  42. tmp    ds.l    1
  43.     .end
  44.