Category : Miscellaneous Language Source Code
Archive : A370.ZIP
Filename : TIMER.PRN
Output of file : TIMER.PRN contained in archive : A370.ZIP
A370 ASSEMBLER FOR 8086 MSDOS OPTIONS ON = LXACE
LOC ADR1 ADR2 LINE LABEL OP OPERANDS
000000 1 TITLE 'TIMER - TIME OF DAY SUBROUTINE'
000000 2 *
000000 3 * AUTHOR. DON HIGGINS
000000 4 * DATE. 04/01/85.
000000 5 * REMARKS. PC/370 SUBROUTINE FOR TIME OF DAT IN 100TH SECOND.
000000 6 *
000000 7 * THIS SUBROUTINE RETURNS THE TIME OF DAY IN 100TH OF A SECOND
000000 8 * IN R0 FOLLOWING CALL TO TIMER.
000000 9 *
000000 10 TIMER CSECT
000000 11 USING *,R15
000000 0A12 12 SVC 18 R0 = HOURS, MINUTES, SECONDS, 100TH SEC
000002 5000F030 0030 13 ST R0,WORK
000006 1B00 14 SR R0,R0
000008 4300F030 0030 15 IC R0,WORK R0=HOURS
00000C 4C00F03A 003A 16 MH R0,=H'60'
000010 1B11 17 SR R1,R1
000012 4310F031 0031 18 IC R1,WORK+1
000016 1A01 19 AR R0,R1 R0=60*HOURS+MINUTES
000018 4C00F03A 003A 20 MH R0,=H'60'
00001C 4310F032 0032 21 IC R1,WORK+2
000020 1A01 22 AR R0,R1 R0=60*(60*HOURS+MINUTES)+SECONDS
000022 4C00F038 0038 23 MH R0,=H'100'
000026 4310F033 0033 24 IC R1,WORK+3
00002A 1A01 25 AR R0,R1 R0=100*(60*(60*HOURS+MINUTES)+SECONDS)+100TH SEC
00002C 07FE 26 BR R14
00002E 0000000F 27 R15 EQU 15
00002E 0000000E 28 R14 EQU 14
00002E 00000001 29 R1 EQU 1
00002E 00000000 30 R0 EQU 0
000030 00000000 31 WORK DC F'0'
000038 32 END
000038 0064 32 H'100'
00003A 003C 32 H'60'
TIMER - TIME OF DAY SUBROUTINE PAGE 2
A370 ASSEMBLER FOR 8086 MSDOS OPTIONS ON = LXACE
LOC ADR1 ADR2 LINE LABEL OP OPERANDS
SYMBOL VALUE LENGTH TYPE ID DEF# XREF#
R0 00000000 00000001 ABS 00 00030 00025 00023 00022 00020 00019
00016 00015 00014 00014 00013
R1 00000001 00000001 ABS 00 00029 00025 00024 00022 00021 00019
00018 00017 00017
R14 0000000E 00000001 ABS 00 00028 00026
R15 0000000F 00000001 ABS 00 00027 00011
TIMER 00000000 0000003C CST 01 00010
WORK 00000030 00000004 REL 01 00031 00024 00021 00018 00015 00013
TIMER - TIME OF DAY SUBROUTINE PAGE 3
A370 ASSEMBLER FOR 8086 MSDOS OPTIONS ON = LXACE
LOC ADR1 ADR2 LINE LABEL OP OPERANDS
RELOCATION LISTING
SEG ADDRESS LENGTH SIGN RLD SEG
LITERAL CROSS REFERENCE
000038 32 H'100'
000038 32 00023
00003A 32 H'60'
00003A 32 00020 00016
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/