/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1481

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 70 72 | 75 73 73 40 72 69 61 2e |From: pr|uss@ria.|
|00000010| 63 63 73 2e 75 77 6f 2e | 63 61 20 28 3f 20 70 72 |ccs.uwo.|ca (? pr|
|00000020| 75 73 73 29 0a 4e 65 77 | 73 67 72 6f 75 70 73 3a |uss).New|sgroups:|
|00000030| 20 61 6c 74 2e 73 6f 75 | 72 63 65 73 0a 53 75 62 | alt.sou|rces.Sub|
|00000040| 6a 65 63 74 3a 20 4d 69 | 6c 6c 69 73 65 63 6f 6e |ject: Mi|llisecon|
|00000050| 64 20 74 69 6d 69 6e 67 | 20 6f 6e 20 49 42 4d 2d |d timing| on IBM-|
|00000060| 63 6f 6d 70 61 74 69 62 | 6c 65 73 0a 4d 65 73 73 |compatib|les.Mess|
|00000070| 61 67 65 2d 49 44 3a 20 | 3c 35 30 37 40 72 69 61 |age-ID: |<507@ria|
|00000080| 2e 63 63 73 2e 75 77 6f | 2e 63 61 3e 0a 44 61 74 |.ccs.uwo|.ca>.Dat|
|00000090| 65 3a 20 31 38 20 4a 75 | 6e 20 39 30 20 32 30 3a |e: 18 Ju|n 90 20:|
|000000a0| 33 31 3a 35 33 20 47 4d | 54 0a 0a 49 27 76 65 20 |31:53 GM|T..I've |
|000000b0| 73 65 65 6e 20 61 20 6e | 75 6d 62 65 72 20 6f 66 |seen a n|umber of|
|000000c0| 20 71 75 65 72 69 65 73 | 20 61 62 6f 75 74 20 68 | queries| about h|
|000000d0| 6f 77 20 74 6f 20 64 6f | 20 6d 69 6c 6c 69 73 65 |ow to do| millise|
|000000e0| 63 6f 6e 64 20 74 69 6d | 69 6e 67 0a 66 72 6f 6d |cond tim|ing.from|
|000000f0| 20 54 75 72 62 6f 20 43 | 2e 0a 0a 42 65 6c 6f 77 | Turbo C|...Below|
|00000100| 20 69 73 20 61 20 73 69 | 6d 70 6c 65 20 6d 65 74 | is a si|mple met|
|00000110| 68 6f 64 20 62 61 73 65 | 64 20 6f 6e 20 6a 75 73 |hod base|d on jus|
|00000120| 74 20 74 77 65 61 6b 69 | 6e 67 20 74 68 65 20 63 |t tweaki|ng the c|
|00000130| 6c 6f 63 6b 20 66 72 65 | 71 75 65 6e 63 79 2e 0a |lock fre|quency..|
|00000140| 49 74 20 64 6f 65 73 20 | 6e 6f 74 20 77 6f 72 72 |It does |not worr|
|00000150| 79 20 61 62 6f 75 74 20 | 6b 65 65 70 69 6e 67 20 |y about |keeping |
|00000160| 63 6f 72 72 65 63 74 20 | 44 4f 53 20 74 69 6d 65 |correct |DOS time|
|00000170| 2c 20 6f 72 20 61 6e 79 | 74 68 69 6e 67 20 66 61 |, or any|thing fa|
|00000180| 6e 63 79 0a 6c 69 6b 65 | 20 73 63 72 65 65 6e 2d |ncy.like| screen-|
|00000190| 62 6c 61 6e 6b 65 72 73 | 20 67 6f 69 6e 67 20 77 |blankers| going w|
|000001a0| 69 6c 64 2e 2e 2e 20 20 | 74 68 69 73 20 69 73 20 |ild...  |this is |
|000001b0| 64 6f 6e 65 20 69 6e 20 | 6f 72 64 65 72 20 74 6f |done in |order to|
|000001c0| 20 61 6c 6c 6f 77 20 74 | 68 65 0a 75 73 65 20 6f | allow t|he.use o|
|000001d0| 66 20 74 68 65 20 54 75 | 72 62 6f 20 43 20 74 69 |f the Tu|rbo C ti|
|000001e0| 6d 65 72 2e 0a 0a 49 66 | 20 79 6f 75 20 6b 6e 6f |mer...If| you kno|
|000001f0| 77 20 66 6f 72 20 73 75 | 72 65 20 74 68 61 74 20 |w for su|re that |
|00000200| 79 6f 75 72 20 70 61 72 | 74 69 63 75 6c 61 72 20 |your par|ticular |
|00000210| 73 79 73 74 65 6d 27 73 | 20 44 4f 53 20 63 6c 6f |system's| DOS clo|
|00000220| 63 6b 20 69 73 20 42 49 | 4f 53 2d 63 6c 6f 63 6b |ck is BI|OS-clock|
|00000230| 0a 62 61 73 65 64 2c 20 | 74 68 65 6e 20 79 6f 75 |.based, |then you|
|00000240| 20 63 61 6e 20 61 6c 77 | 61 79 73 20 72 65 63 6f | can alw|ays reco|
|00000250| 72 64 20 74 68 65 20 6c | 65 6e 67 74 68 20 6f 66 |rd the l|ength of|
|00000260| 20 74 69 6d 65 20 74 68 | 61 74 20 74 68 65 20 61 | time th|at the a|
|00000270| 63 63 65 6c 65 72 61 74 | 65 64 0a 63 6c 6f 63 6b |ccelerat|ed.clock|
|00000280| 20 77 61 73 20 72 75 6e | 6e 69 6e 67 20 61 6e 64 | was run|ning and|
|00000290| 20 63 6f 72 72 65 63 74 | 20 74 68 65 20 44 4f 53 | correct| the DOS|
|000002a0| 20 63 6c 6f 63 6b 20 62 | 79 20 61 6e 20 61 70 70 | clock b|y an app|
|000002b0| 72 6f 70 72 69 61 74 65 | 20 61 6d 6f 75 6e 74 20 |ropriate| amount |
|000002c0| 77 68 65 6e 0a 66 69 6e | 69 73 68 65 64 2e 0a 0a |when.fin|ished...|
|000002d0| 0a 23 21 20 2f 62 69 6e | 2f 73 68 0a 23 20 54 68 |.#! /bin|/sh.# Th|
|000002e0| 69 73 20 69 73 20 61 20 | 73 68 65 6c 6c 20 61 72 |is is a |shell ar|
|000002f0| 63 68 69 76 65 2c 20 6d | 65 61 6e 69 6e 67 3a 0a |chive, m|eaning:.|
|00000300| 23 20 31 2e 20 52 65 6d | 6f 76 65 20 65 76 65 72 |# 1. Rem|ove ever|
|00000310| 79 74 68 69 6e 67 20 61 | 62 6f 76 65 20 74 68 65 |ything a|bove the|
|00000320| 20 23 21 20 2f 62 69 6e | 2f 73 68 20 6c 69 6e 65 | #! /bin|/sh line|
|00000330| 2e 0a 23 20 32 2e 20 53 | 61 76 65 20 74 68 65 20 |..# 2. S|ave the |
|00000340| 72 65 73 75 6c 74 69 6e | 67 20 74 65 78 74 20 69 |resultin|g text i|
|00000350| 6e 20 61 20 66 69 6c 65 | 2e 0a 23 20 33 2e 20 45 |n a file|..# 3. E|
|00000360| 78 65 63 75 74 65 20 74 | 68 65 20 66 69 6c 65 20 |xecute t|he file |
|00000370| 77 69 74 68 20 2f 62 69 | 6e 2f 73 68 20 28 6e 6f |with /bi|n/sh (no|
|00000380| 74 20 63 73 68 29 20 74 | 6f 20 63 72 65 61 74 65 |t csh) t|o create|
|00000390| 20 74 68 65 20 66 69 6c | 65 73 3a 0a 23 09 63 5f | the fil|es:.#.c_|
|000003a0| 72 61 74 65 2e 63 0a 23 | 20 54 68 69 73 20 61 72 |rate.c.#| This ar|
|000003b0| 63 68 69 76 65 20 63 72 | 65 61 74 65 64 3a 20 57 |chive cr|eated: W|
|000003c0| 65 64 20 4a 75 6e 20 31 | 33 20 30 39 3a 35 35 3a |ed Jun 1|3 09:55:|
|000003d0| 34 34 20 31 39 39 30 0a | 65 78 70 6f 72 74 20 50 |44 1990.|export P|
|000003e0| 41 54 48 3b 20 50 41 54 | 48 3d 2f 62 69 6e 3a 24 |ATH; PAT|H=/bin:$|
|000003f0| 50 41 54 48 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |PATH.if |test -f |
|00000400| 27 63 5f 72 61 74 65 2e | 63 27 0a 74 68 65 6e 0a |'c_rate.|c'.then.|
|00000410| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 77 69 6c 6c |.echo sh|ar: will|
|00000420| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|00000430| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 22 27 |existing| file "'|
|00000440| 63 5f 72 61 74 65 2e 63 | 27 22 0a 65 6c 73 65 0a |c_rate.c|'".else.|
|00000450| 73 65 64 20 27 73 2f 5e | 58 78 2f 2f 27 20 3c 3c |sed 's/^|Xx//' <<|
|00000460| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 63 5f | \SHAR_E|OF > 'c_|
|00000470| 72 61 74 65 2e 63 27 0a | 58 78 2f 2a 20 68 65 72 |rate.c'.|Xx/* her|
|00000480| 65 20 79 6f 75 20 67 6f | 2e 20 20 66 6f 72 20 6d |e you go|.  for m|
|00000490| 69 6c 6c 69 73 65 63 6f | 6e 64 20 74 69 6d 69 6e |illiseco|nd timin|
|000004a0| 67 20 75 73 65 3a 0a 58 | 78 20 20 20 20 7b 0a 58 |g use:.X|x    {.X|
|000004b0| 78 20 20 20 20 20 74 69 | 6d 65 5f 74 20 74 3b 0a |x     ti|me_t t;.|
|000004c0| 58 78 20 20 20 20 20 73 | 65 74 5f 63 6c 6f 63 6b |Xx     s|et_clock|
|000004d0| 5f 66 72 65 71 75 65 6e | 63 79 28 31 30 30 2a 31 |_frequen|cy(100*1|
|000004e0| 30 30 30 6c 29 3b 0a 58 | 78 20 20 20 20 20 74 3d |000l);.X|x     t=|
|000004f0| 63 6c 6f 63 6b 28 29 3b | 0a 58 78 20 20 20 20 20 |clock();|.Xx     |
|00000500| 2e 2e 2e 20 65 76 65 6e | 74 73 20 74 6f 20 62 65 |... even|ts to be|
|00000510| 20 74 69 6d 65 64 20 2e | 2e 2e 0a 58 78 20 20 20 | timed .|...Xx   |
|00000520| 20 20 74 2d 3d 63 6c 6f | 63 6b 28 29 3b 0a 58 78 |  t-=clo|ck();.Xx|
|00000530| 20 20 20 20 20 73 65 74 | 5f 63 6c 6f 63 6b 5f 66 |     set|_clock_f|
|00000540| 72 65 71 75 65 6e 63 79 | 28 30 29 3b 0a 58 78 20 |requency|(0);.Xx |
|00000550| 20 20 20 7d 0a 58 78 20 | 20 20 74 69 6d 65 20 74 |   }.Xx |  time t|
|00000560| 20 69 73 20 69 6e 20 6d | 69 6c 6c 69 73 65 63 6f | is in m|illiseco|
|00000570| 6e 64 73 20 28 61 70 70 | 72 6f 78 69 6d 61 74 65 |nds (app|roximate|
|00000580| 6c 79 29 0a 58 78 20 2a | 2f 0a 58 78 0a 58 78 0a |ly).Xx *|/.Xx.Xx.|
|00000590| 58 78 23 69 6e 63 6c 75 | 64 65 20 3c 64 6f 73 2e |Xx#inclu|de <dos.|
|000005a0| 68 3e 0a 58 78 0a 58 78 | 75 6e 73 69 67 6e 65 64 |h>.Xx.Xx|unsigned|
|000005b0| 20 69 6e 74 20 5f 64 65 | 66 61 75 6c 74 5f 63 6c | int _de|fault_cl|
|000005c0| 6f 63 6b 3d 31 38 32 30 | 3b 20 20 20 20 2f 2a 20 |ock=1820|;    /* |
|000005d0| 64 65 66 61 75 6c 74 20 | 63 6c 6f 63 6b 20 72 61 |default |clock ra|
|000005e0| 74 65 20 2a 20 31 30 30 | 20 2a 2f 0a 58 78 20 20 |te * 100| */.Xx  |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 63 68 61 |        |  /* cha|
|00000610| 6e 67 65 20 74 6f 20 31 | 38 37 35 20 6f 6e 20 41 |nge to 1|875 on A|
|00000620| 54 26 54 20 36 33 30 30 | 20 73 79 73 74 65 6d 73 |T&T 6300| systems|
|00000630| 20 2a 2f 0a 58 78 0a 58 | 78 2f 2a 0a 58 78 20 2a | */.Xx.X|x/*.Xx *|
|00000640| 0a 58 78 20 2a 20 69 6e | 74 20 73 65 74 5f 63 6c |.Xx * in|t set_cl|
|00000650| 6f 63 6b 5f 66 72 65 71 | 75 65 6e 63 79 28 75 6e |ock_freq|uency(un|
|00000660| 73 69 67 6e 65 64 20 6c | 6f 6e 67 29 3b 0a 58 78 |signed l|ong);.Xx|
|00000670| 20 2a 20 20 20 20 53 65 | 74 73 20 74 68 65 20 63 | *    Se|ts the c|
|00000680| 6c 6f 63 6b 20 66 72 65 | 71 75 65 6e 63 79 20 74 |lock fre|quency t|
|00000690| 6f 20 61 70 70 72 6f 78 | 69 6d 61 74 65 6c 79 20 |o approx|imately |
|000006a0| 28 6c 6f 6e 67 2f 31 30 | 30 29 48 7a 2c 0a 58 78 |(long/10|0)Hz,.Xx|
|000006b0| 20 2a 20 20 20 20 75 73 | 69 6e 67 20 5f 63 6c 6f | *    us|ing _clo|
|000006c0| 63 6b 5f 72 61 74 65 28 | 29 2e 20 20 20 49 66 20 |ck_rate(|).   If |
|000006d0| 6c 6f 6e 67 3d 30 20 74 | 68 65 6e 20 74 68 65 20 |long=0 t|hen the |
|000006e0| 66 72 65 71 75 65 6e 63 | 79 20 69 73 20 72 65 73 |frequenc|y is res|
|000006f0| 65 74 20 65 78 61 63 74 | 6c 79 0a 58 78 20 2a 20 |et exact|ly.Xx * |
|00000700| 20 20 20 74 6f 20 5f 64 | 65 66 61 75 6c 74 5f 63 |   to _d|efault_c|
|00000710| 6c 6f 63 6b 2f 31 30 30 | 2e 20 20 52 65 74 75 72 |lock/100|.  Retur|
|00000720| 6e 73 20 31 20 69 66 20 | 73 75 63 63 65 73 73 66 |ns 1 if |successf|
|00000730| 75 6c 20 61 6e 64 20 30 | 20 6f 6e 20 65 72 72 6f |ul and 0| on erro|
|00000740| 72 2e 0a 58 78 20 2a 0a | 58 78 20 2a 20 76 6f 69 |r..Xx *.|Xx * voi|
|00000750| 64 20 5f 63 6c 6f 63 6b | 5f 72 61 74 65 28 75 6e |d _clock|_rate(un|
|00000760| 73 69 67 6e 65 64 20 69 | 6e 74 20 72 61 74 65 29 |signed i|nt rate)|
|00000770| 3b 0a 58 78 20 2a 20 20 | 20 20 53 65 74 73 20 74 |;.Xx *  |  Sets t|
|00000780| 68 65 20 63 6c 6f 63 6b | 20 66 72 65 71 75 65 6e |he clock| frequen|
|00000790| 63 79 20 74 6f 20 65 78 | 61 63 74 6c 79 0a 58 78 |cy to ex|actly.Xx|
|000007a0| 20 2a 20 20 20 20 20 20 | 20 20 28 64 6f 75 62 6c | *      |  (doubl|
|000007b0| 65 29 5f 64 65 66 61 75 | 6c 74 5f 63 6c 6f 63 6b |e)_defau|lt_clock|
|000007c0| 2a 72 61 74 65 2f 36 35 | 35 33 36 30 30 2e 20 48 |*rate/65|53600. H|
|000007d0| 7a 2e 0a 58 78 20 2a 0a | 58 78 20 2a 20 65 78 74 |z..Xx *.|Xx * ext|
|000007e0| 65 72 6e 20 75 6e 73 69 | 67 6e 65 64 20 69 6e 74 |ern unsi|gned int|
|000007f0| 20 5f 64 65 66 61 75 6c | 74 5f 63 6c 6f 63 6b 3b | _defaul|t_clock;|
|00000800| 0a 58 78 20 2a 20 20 20 | 20 54 68 65 20 73 74 61 |.Xx *   | The sta|
|00000810| 6e 64 61 72 64 20 63 6c | 6f 63 6b 20 66 72 65 71 |ndard cl|ock freq|
|00000820| 75 65 6e 63 79 20 2a 20 | 31 30 30 20 69 6e 20 48 |uency * |100 in H|
|00000830| 7a 2e 20 20 54 68 69 73 | 20 69 73 20 75 73 75 61 |z.  This| is usua|
|00000840| 6c 6c 79 20 31 38 32 30 | 2c 0a 58 78 20 2a 20 20 |lly 1820|,.Xx *  |
|00000850| 20 20 65 78 63 65 70 74 | 20 6f 6e 20 41 54 26 54 |  except| on AT&T|
|00000860| 20 36 33 30 30 20 2f 20 | 4f 6c 69 76 65 74 74 69 | 6300 / |Olivetti|
|00000870| 20 4d 32 34 2f 32 31 20 | 2f 20 58 65 72 6f 78 20 | M24/21 |/ Xerox |
|00000880| 50 43 20 73 79 73 74 65 | 6d 73 2c 20 77 68 65 72 |PC syste|ms, wher|
|00000890| 65 20 69 74 20 69 73 0a | 58 78 20 2a 20 20 20 20 |e it is.|Xx *    |
|000008a0| 31 38 37 35 2e 0a 58 78 | 20 2a 2f 0a 58 78 0a 58 |1875..Xx| */.Xx.X|
|000008b0| 78 76 6f 69 64 20 5f 63 | 6c 6f 63 6b 5f 72 61 74 |xvoid _c|lock_rat|
|000008c0| 65 28 75 6e 73 69 67 6e | 65 64 20 69 6e 74 20 72 |e(unsign|ed int r|
|000008d0| 61 74 65 29 0a 58 78 7b | 0a 58 78 20 6f 75 74 70 |ate).Xx{|.Xx outp|
|000008e0| 6f 72 74 62 28 30 78 34 | 33 2c 30 78 33 36 29 3b |ortb(0x4|3,0x36);|
|000008f0| 0a 58 78 20 6f 75 74 70 | 6f 72 74 62 28 30 78 34 |.Xx outp|ortb(0x4|
|00000900| 30 2c 72 61 74 65 25 32 | 35 36 29 3b 0a 58 78 20 |0,rate%2|56);.Xx |
|00000910| 6f 75 74 70 6f 72 74 62 | 28 30 78 34 30 2c 72 61 |outportb|(0x40,ra|
|00000920| 74 65 2f 32 35 36 29 3b | 0a 58 78 7d 0a 58 78 0a |te/256);|.Xx}.Xx.|
|00000930| 58 78 69 6e 74 20 73 65 | 74 5f 63 6c 6f 63 6b 5f |Xxint se|t_clock_|
|00000940| 66 72 65 71 75 65 6e 63 | 79 28 75 6e 73 69 67 6e |frequenc|y(unsign|
|00000950| 65 64 20 6c 6f 6e 67 20 | 66 72 65 71 29 0a 58 78 |ed long |freq).Xx|
|00000960| 7b 0a 58 78 20 69 66 28 | 66 72 65 71 3d 3d 30 29 |{.Xx if(|freq==0)|
|00000970| 20 7b 20 5f 63 6c 6f 63 | 6b 5f 72 61 74 65 28 30 | { _cloc|k_rate(0|
|00000980| 29 3b 20 72 65 74 75 72 | 6e 20 31 3b 20 7d 0a 58 |); retur|n 1; }.X|
|00000990| 78 20 69 66 28 66 72 65 | 71 3c 5f 64 65 66 61 75 |x if(fre|q<_defau|
|000009a0| 6c 74 5f 63 6c 6f 63 6b | 29 20 72 65 74 75 72 6e |lt_clock|) return|
|000009b0| 20 30 3b 20 20 20 2f 2a | 20 63 61 6e 27 74 20 73 | 0;   /*| can't s|
|000009c0| 6c 6f 77 20 74 68 65 20 | 63 6c 6f 63 6b 20 64 6f |low the |clock do|
|000009d0| 77 6e 2e 20 2a 2f 0a 58 | 78 20 5f 63 6c 6f 63 6b |wn. */.X|x _clock|
|000009e0| 5f 72 61 74 65 28 20 28 | 75 6e 73 69 67 6e 65 64 |_rate( (|unsigned|
|000009f0| 20 69 6e 74 29 20 28 28 | 36 35 35 33 36 6c 2a 5f | int) ((|65536l*_|
|00000a00| 64 65 66 61 75 6c 74 5f | 63 6c 6f 63 6b 2f 66 72 |default_|clock/fr|
|00000a10| 65 71 29 25 36 35 35 33 | 36 6c 29 20 29 3b 0a 58 |eq)%6553|6l) );.X|
|00000a20| 78 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2f |x       |       /|
|00000a30| 2a 20 54 68 65 20 73 65 | 74 74 69 6e 67 20 69 73 |* The se|tting is|
|00000a40| 20 65 78 61 63 74 20 77 | 68 65 6e 65 76 65 72 20 | exact w|henever |
|00000a50| 36 35 35 33 36 2e 30 2a | 5f 64 65 66 61 75 6c 74 |65536.0*|_default|
|00000a60| 5f 63 6c 6f 63 6b 2f 66 | 72 65 71 0a 58 78 20 20 |_clock/f|req.Xx  |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |        |       i|
|00000a80| 73 20 61 6e 20 69 6e 74 | 65 67 65 72 20 2a 2f 0a |s an int|eger */.|
|00000a90| 58 78 20 72 65 74 75 72 | 6e 20 31 3b 0a 58 78 7d |Xx retur|n 1;.Xx}|
|00000aa0| 0a 53 48 41 52 5f 45 4f | 46 0a 66 69 20 23 20 65 |.SHAR_EO|F.fi # e|
|00000ab0| 6e 64 20 6f 66 20 6f 76 | 65 72 77 72 69 74 69 6e |nd of ov|erwritin|
|00000ac0| 67 20 63 68 65 63 6b 0a | 23 09 45 6e 64 20 6f 66 |g check.|#.End of|
|00000ad0| 20 73 68 65 6c 6c 20 61 | 72 63 68 69 76 65 0a 65 | shell a|rchive.e|
|00000ae0| 78 69 74 20 30 0a       |                         |xit 0.  |        |
+--------+-------------------------+-------------------------+--------+--------+