Path: utzoo!mnetor!uunet!steinmetz!davidsen
From: davidsen@steinmetz.steinmetz.UUCP (William E. Davidsen Jr)
Newsgroups: comp.binaries.ibm.pc
Subject: Sleep functions for MSDOS
Message-ID: <8178@steinmetz.steinmetz.UUCP>
Date: 11 Dec 87 17:32:09 GMT
Organization: GE Corp. R & D, Schenectady,NY
Lines: 105
Keywords: sleep, DOS
Recently I got a sleep function for MSC from the net. It was useful for
some things, and worked reliably. A friend is writing a piano simulation
for DOS, and needs a milisecond delay routine. Since the hardware clock
is too coarse for this, it requires a software timer which doesn't go
well between machines of differing speeds.
What I have written is an msleep routine which calibrates itself on the
first call, and then provides accurate milisecond sleeps. There is a
builtin test routine. If you run it, remember that the length of the
bell tone will add about 400ms to the delay.
This includes the original sleep source as well as what I added. Full
credit for everything but the msleep routine goes to the original
author.
begin 666 sleep.arc
M&@AS;&5E<"YC %EF P Z%P4 (,"C0^1=/+ *8/0
M#(@Y=.34&4-'P1X0 4$X;%,&!)HW;!#* 3GPHALZ1M_4D;.CZ4*H;1;6H5.F
MJL&K-\N,\>H4*IHY8JOV 4$E29,B+ BV??L%"A4I54?67%CT2!$J7^8620 #
MCXPQ"1($'5I43IDX=3+E2Q(G5!(7EA$C<5"P=-Z &!.&
M#1L0FZG,#AG0(X@S9>A\88S"
M30KG@NO>!>'&Z\>""EU+9!QSYLV<.^E,+>H&Q)V&:%9/=?Q4:!JB(.K,67@&
M-N>R9:11R$I )UTU%FG0'9V2<%=57LT50=#$($@11%'3.&48V?,
M0=:%#[6W88<@2)53&2'F]94;(+*$A@MAQ-<#"'X!)IB+9>%@ PJQ>09:7"8L
M%".1*L:8 H]NM.##45.!<&.2+,KHPAAHD-6D#UFYL5514J:X58PM7)%2:5(<)YID@&.::>'&Z@ ,.2"O0ATAQLE%$&'"C@
M<1U8>%!H57UIC!A1&F=D9I&(30DV(0B0/!#4&/.541]C(#@VQAMR6$2;56'"
M0-:"T]U7!@HF6$>61#>ZX8*:/-Z!1AJ)@H!"&BB!X&B%H!(@++%%HXN
M"H(9K-(K459LI*$F1&1(1)M!.(7AT)K%N='?JA="=:.L337<7W%OP,&I09ZZ
M$4-<;LA %E@(L1%&'F1991,*$-?7P\3R_A34'6$TM&^_81!G''(+(WD:NMK;AZW"VY)9\41.- PJA!PN""MP
M)T/78V3>@K&GI\ZUFJQSQW6=L8N>QLJD)SLHV&*S?J,-10]0%1QR7&4&"B+$
M$#>J)4YXG@N"5P"+M^E]
MNU6NUB8ZP1D+#="
M0>U4A[O6J0Y^()B='F& .JKU,8 (O!H&4:!!$ PO>"LX7O)NN$#H.1""+BZ(F1SB:DI)AVZ!8%T&\2(;
M#7>C=I&1EB\@FM'2>$;'F9&77U2C&S$71T*MBR1FJ$D"J%"$*5!A)"792%%X
M@!,R/*0E+VE#S0*5.6;Y*U&+ B%9Q*"2.:# !BRXP9+N]437 .Z<[WIG\FS)
MSI6\,YZV;!.4
MCD40;086/)AP84.,=]!419-6@1F2,)UFA7L7A$.V;%FD;0K";9J.9-Z,J=,&
M)IVC:=ZX43RGSAB^83JFV?K81<0J 2'7H(Z($^V\2>.T-1P4<\J,43JQ
MX=;<8W; !D&DC-$\'G545T;J9E;1^D1U]Y[
M\6VH )QWT5G?0Y>)(>0-7I!F5-]C080Y7M5]<95&*EU1T\8<1H&2'&]P8<
M"ARVEE-?]A0&"";9 5.5_>71)H,IO7%'1V;*-E >)$T&1D!WZ.F61?MMAE5^UBKTAAAKU@A J"$*ZL4:(
M4KJ%97H]]?O&&?_.H1A39&3HILG*FC7$&VW H:Q'4U)4Q!14H!JK0Z ..^I:
M;;QAEA-OO+3?4=A>JD"3='QT:I,&=21E2C)9^D9]\96Y8YUDH)EC3(N^U61*
MZ8YK6-5+Q0120CU)52>?#GF8@!A!LE%E&!A?=VH,,KQPPPLXW*! E54<; .
MAR>>FQM 6!79'#&X4(=GG";PPD@O3+3'Z YMQ0>_>ADEQAQ]@!#"'"\U5!D=
M>H3@^1N@AT &XK1M/GD04D 1!.8?M0W$&66TX+D+/,$11D1/D&22&RBEM5"2
MW4$R0&\&$^_1'P0:PB
M4YZ7A ..N$)_1Y@!-J\ 7,0T@'C:O "&L# !O3KW_] @+X!L(%A+9"2RF 2
M@M1!@@-0"(,0C,,&"** !C&H00I < ,!JU@%(G
M4Y!^$3)ER@"N4WY@.&CAFX7\K@24,' +/8]"LF4-G#0 #GMF026/G=_ V==C ;A.&-6PQ
M9-[, 9#@RYDR=+[02=.FC''6='#8,%[P(!S4;W<0
M)620T5$"AG[^_I'A0G_Z*0 @0(B"((+$.$7X( !&DA&&6R$D0=^9("0GH%$
M4&@AAB"P\<8;<,SQPH8 3%CAA25DB&*'*X(H(HDFH@A) 56 4H]D&56Q"#NX
M< .AD98T0Y+#1BA#Q0*$D.%+B$ 41 (P"#$&+.(% 8H8<8\*Y"1R@)9<
M&F%/(D<(0&:7^:!)P)I&X(.F 2L LT@Y70SC(Y ,#)G1,4;0DY&2^%"9T95J
M&L%/(F:NLP&AAEI)3*+VY* H'>XLHBBC]OP3J*8$6$H/'^?>>N%C@)P"A
M%+> 7@ 0,< Z=P2P#$&%(?. +C&"A&D52*JJ3^,JK.. L >.JFFZECJ#Z:M
M K"(!;$RRDXB5K@SB!OL!#"(%^X L( P=%R 2WR92 &%INPLDFTTX$0CC;I5
MKG.-DO!$BB@NI]WC!CV+(,,O /[RLP(R SAASPI.$.N$.@LDTTBJRZZ[[L K;]0 V(LOT0/["[# _;IA,,(*
M,^PPQ!)3;#'&-1/L!LZX6+&UI&]:?#0N6 @P=M,V/'UUI%,#4'6L6(\Q^94&
MX++KYF5W+JT1!!Q=)=YH9[MMM]^&.RX=$IP+P-%SOQNO-/::JN>/,P!3Y= S
M@^T0E#+MC O&?#\?]NG$$( ++@M4/^7UD1I? "?1 (.E8@8$@W5C!@R#3I
M&U),^X;L$G\K])]B!0&&W&%% 8:0@Q4,8(PT=,(89>B$(;!@!0$8@PH'?,(!
MEZ! )/S/$$,8H#& <$ >*# %#31&"3I1"'M8(0&%:,?_"F&, 19C&)THQB](
M*(L3%@(5#2P&*6+XB1AN@H286.$D7 @) ,20$23,@Q4&4 @UY- ,),Q"#JM
MP@P*H!@_(.$";*B8 A!C&YT@QC4Z08ADG) 0MS@A,5P11E2$L8?$^"$A@D@
M0KSAC%TX8Q3V1P@-6$$!A#C _M!11)T ( !#80YK0A&?ZEPG._;Q#D2 HQXX
3*.$N7TB/01 2B8QH0A'QD14: -!1
end
--
bill davidsen (wedu@ge-crd.arpa)
{uunet | philabs | seismo}!steinmetz!crdos1!davidsen
"Stupidity, like virtue, is its own reward" -me