Category : Miscellaneous Language Source Code
Archive   : A370.ZIP
Filename : TIMER.ALC
*
* AUTHOR. DON HIGGINS
* DATE. 04/01/85.
* REMARKS. PC/370 SUBROUTINE FOR TIME OF DAT IN 100TH SECOND.
*
* THIS SUBROUTINE RETURNS THE TIME OF DAY IN 100TH OF A SECOND
* IN R0 FOLLOWING CALL TO TIMER.
*
TIMER CSECT
USING *,R15
SVC 18 R0 = HOURS, MINUTES, SECONDS, 100TH SEC
ST R0,WORK
SR R0,R0
IC R0,WORK R0=HOURS
MH R0,=H'60'
SR R1,R1
IC R1,WORK+1
AR R0,R1 R0=60*HOURS+MINUTES
MH R0,=H'60'
IC R1,WORK+2
AR R0,R1 R0=60*(60*HOURS+MINUTES)+SECONDS
MH R0,=H'100'
IC R1,WORK+3
AR R0,R1 R0=100*(60*(60*HOURS+MINUTES)+SECONDS)+100TH SEC
BR R14
R15 EQU 15
R14 EQU 14
R1 EQU 1
R0 EQU 0
WORK DC F'0'
END
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/