Path: utah-cs!ut-sally!husc6!cmcl2!rutgers!sunybcs!bingvaxu!leah!itsgw!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""$;'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>)(>071)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