home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CROSSASM / ASM370.ZIP / TIMER.ALC < prev   
Encoding:
Text File  |  1985-06-15  |  942 b   |  33 lines
  1.          TITLE 'TIMER - TIME OF DAY SUBROUTINE'
  2. *
  3. * AUTHOR.   DON HIGGINS
  4. * DATE.     04/01/85.
  5. * REMARKS.  PC/370 SUBROUTINE FOR TIME OF DAT IN 100TH SECOND.
  6. *
  7. *  THIS SUBROUTINE RETURNS THE TIME OF DAY IN 100TH OF A SECOND
  8. *  IN R0 FOLLOWING CALL TO TIMER.
  9. *
  10. TIMER    CSECT
  11.          USING *,R15
  12.          SVC   18      R0 = HOURS, MINUTES, SECONDS, 100TH SEC
  13.          ST    R0,WORK
  14.          SR    R0,R0
  15.          IC    R0,WORK   R0=HOURS
  16.          MH    R0,=H'60'
  17.          SR    R1,R1
  18.          IC    R1,WORK+1
  19.          AR    R0,R1     R0=60*HOURS+MINUTES
  20.          MH    R0,=H'60'
  21.          IC    R1,WORK+2
  22.          AR    R0,R1     R0=60*(60*HOURS+MINUTES)+SECONDS
  23.          MH    R0,=H'100'
  24.          IC    R1,WORK+3
  25.          AR    R0,R1     R0=100*(60*(60*HOURS+MINUTES)+SECONDS)+100TH SEC
  26.          BR    R14
  27. R15      EQU   15
  28. R14      EQU   14
  29. R1       EQU   1
  30. R0       EQU   0
  31. WORK     DC    F'0'
  32.          END
  33.