home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol045 / rsxtim.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  463 b   |  22 lines
  1.     .TITLE    ITIME
  2.     .SBTTL    RSX11M TIME ROUTINE
  3. ;
  4. ;ITIME--    RETURN TIME OF DAY
  5. ;CALLED BY--
  6. ;
  7. ;    CALL    ITIME(HOURS,MINUTES,SECONDS)
  8. ;
  9.     .MCALL    GTIM$S
  10.     .GLOBL    ITIME
  11. ;
  12. ITIME:    SUB    #16.,SP        ;CREATE 16 BYTE BUFFER ON STACK.
  13.     MOV    SP,R0        ;SAVE ADDRESS IN R0.
  14.     GTIM$S    R0        ;GET TIME PARAMETERS.
  15.     MOV    G.TIHR(R0),@2(R5)    ;GET HOURS.
  16.     MOV    G.TIMI(R0),@4(R5)    ;GET MINUTES.
  17.     MOV    G.TISC(R0),@6(R5)    ;GET SECONDS.
  18.     ADD    #16.,SP        ;RELEASE BUFFER.
  19.     RTS    PC        ;RETURN.
  20. ;
  21.     .END
  22.