/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume8 / prof.msc

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 6d 69 73 63 0a 73 75 |.sources|.misc.su|
|00000020| 62 6a 65 63 74 3a 20 76 | 30 38 69 30 30 32 3a 20 |bject: v|08i002: |
|00000030| 41 20 43 20 65 78 65 63 | 75 74 69 6f 6e 20 70 72 |A C exec|ution pr|
|00000040| 6f 66 69 6c 65 72 20 66 | 6f 72 20 4d 53 2d 44 4f |ofiler f|or MS-DO|
|00000050| 53 0a 46 72 6f 6d 3a 20 | 61 6c 6c 62 65 72 79 40 |S.From: |allbery@|
|00000060| 75 75 6e 65 74 2e 55 55 | 2e 4e 45 54 20 28 42 72 |uunet.UU|.NET (Br|
|00000070| 61 6e 64 6f 6e 20 53 2e | 20 41 6c 6c 62 65 72 79 |andon S.| Allbery|
|00000080| 20 2d 20 63 6f 6d 70 2e | 73 6f 75 72 63 65 73 2e | - comp.|sources.|
|00000090| 6d 69 73 63 29 0a 52 65 | 70 6c 79 2d 54 6f 3a 20 |misc).Re|ply-To: |
|000000a0| 64 69 6f 6d 69 64 69 73 | 40 65 63 72 63 76 61 78 |diomidis|@ecrcvax|
|000000b0| 2e 55 55 43 50 20 28 22 | 44 69 6f 6d 69 64 69 73 |.UUCP ("|Diomidis|
|000000c0| 20 53 70 69 6e 65 6c 6c | 69 73 22 29 0a 0a 50 6f | Spinell|is")..Po|
|000000d0| 73 74 69 6e 67 2d 6e 75 | 6d 62 65 72 3a 20 56 6f |sting-nu|mber: Vo|
|000000e0| 6c 75 6d 65 20 38 2c 20 | 49 73 73 75 65 20 32 0a |lume 8, |Issue 2.|
|000000f0| 53 75 62 6d 69 74 74 65 | 64 2d 62 79 3a 20 64 69 |Submitte|d-by: di|
|00000100| 6f 6d 69 64 69 73 40 65 | 63 72 63 76 61 78 2e 55 |omidis@e|crcvax.U|
|00000110| 55 43 50 20 28 22 44 69 | 6f 6d 69 64 69 73 20 53 |UCP ("Di|omidis S|
|00000120| 70 69 6e 65 6c 6c 69 73 | 22 29 0a 41 72 63 68 69 |pinellis|").Archi|
|00000130| 76 65 2d 6e 61 6d 65 3a | 20 70 72 6f 66 2e 6d 73 |ve-name:| prof.ms|
|00000140| 63 0a 0a 5b 2e 2e 2e 73 | 6f 20 68 6f 77 20 61 62 |c..[...s|o how ab|
|00000150| 6f 75 74 20 61 20 54 75 | 72 62 6f 20 43 20 76 65 |out a Tu|rbo C ve|
|00000160| 72 73 69 6f 6e 3f 20 20 | 2b 2b 62 73 61 5d 0a 0a |rsion?  |++bsa]..|
|00000170| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|00000180| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000190| 68 69 76 65 2c 20 6d 65 | 61 6e 69 6e 67 3a 0a 23 |hive, me|aning:.#|
|000001a0| 20 31 2e 20 52 65 6d 6f | 76 65 20 65 76 65 72 79 | 1. Remo|ve every|
|000001b0| 74 68 69 6e 67 20 61 62 | 6f 76 65 20 74 68 65 20 |thing ab|ove the |
|000001c0| 23 21 20 2f 62 69 6e 2f | 73 68 20 6c 69 6e 65 2e |#! /bin/|sh line.|
|000001d0| 0a 23 20 32 2e 20 53 61 | 76 65 20 74 68 65 20 72 |.# 2. Sa|ve the r|
|000001e0| 65 73 75 6c 74 69 6e 67 | 20 74 65 78 74 20 69 6e |esulting| text in|
|000001f0| 20 61 20 66 69 6c 65 2e | 0a 23 20 33 2e 20 45 78 | a file.|.# 3. Ex|
|00000200| 65 63 75 74 65 20 74 68 | 65 20 66 69 6c 65 20 77 |ecute th|e file w|
|00000210| 69 74 68 20 2f 62 69 6e | 2f 73 68 20 28 6e 6f 74 |ith /bin|/sh (not|
|00000220| 20 63 73 68 29 20 74 6f | 20 63 72 65 61 74 65 20 | csh) to| create |
|00000230| 74 68 65 20 66 69 6c 65 | 73 3a 0a 23 09 52 45 41 |the file|s:.#.REA|
|00000240| 44 4d 45 0a 23 09 4d 61 | 6b 65 66 69 6c 65 0a 23 |DME.#.Ma|kefile.#|
|00000250| 09 70 72 6f 66 2e 63 0a | 23 09 70 72 6f 66 70 72 |.prof.c.|#.profpr|
|00000260| 74 2e 63 0a 23 09 74 65 | 73 74 2e 63 0a 23 20 54 |t.c.#.te|st.c.# T|
|00000270| 68 69 73 20 61 72 63 68 | 69 76 65 20 63 72 65 61 |his arch|ive crea|
|00000280| 74 65 64 3a 20 4d 6f 6e | 20 41 75 67 20 31 34 20 |ted: Mon| Aug 14 |
|00000290| 31 36 3a 34 36 3a 34 38 | 20 31 39 38 39 0a 65 78 |16:46:48| 1989.ex|
|000002a0| 70 6f 72 74 20 50 41 54 | 48 3b 20 50 41 54 48 3d |port PAT|H; PATH=|
|000002b0| 2f 62 69 6e 3a 24 50 41 | 54 48 0a 69 66 20 74 65 |/bin:$PA|TH.if te|
|000002c0| 73 74 20 2d 66 20 27 52 | 45 41 44 4d 45 27 0a 74 |st -f 'R|EADME'.t|
|000002d0| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|000002e0| 77 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |will not| over-wr|
|000002f0| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00000300| 65 20 22 27 52 45 41 44 | 4d 45 27 22 0a 65 6c 73 |e "'READ|ME'".els|
|00000310| 65 0a 73 65 64 20 27 73 | 2f 5e 58 2f 2f 27 20 3c |e.sed 's|/^X//' <|
|00000320| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 52 |< \SHAR_|EOF > 'R|
|00000330| 45 41 44 4d 45 27 0a 58 | 49 6e 63 6c 75 64 65 64 |EADME'.X|Included|
|00000340| 20 68 65 72 65 20 69 73 | 20 74 68 65 20 73 6f 75 | here is| the sou|
|00000350| 72 63 65 20 66 6f 72 20 | 61 6e 20 65 78 65 63 75 |rce for |an execu|
|00000360| 74 69 6f 6e 20 70 72 6f | 66 69 6c 69 6e 67 20 73 |tion pro|filing s|
|00000370| 79 73 74 65 6d 20 74 68 | 61 74 20 63 61 6e 0a 58 |ystem th|at can.X|
|00000380| 62 65 20 75 73 65 64 20 | 77 69 74 68 20 74 68 65 |be used |with the|
|00000390| 20 4d 69 63 72 6f 73 6f | 66 74 20 43 20 6f 72 20 | Microso|ft C or |
|000003a0| 74 68 65 20 4d 69 63 72 | 6f 73 6f 66 74 20 51 75 |the Micr|osoft Qu|
|000003b0| 69 63 6b 20 43 20 63 6f | 6d 70 69 6c 65 72 2e 20 |ick C co|mpiler. |
|000003c0| 20 49 74 0a 58 67 69 76 | 65 73 20 74 68 65 20 74 | It.Xgiv|es the t|
|000003d0| 69 6d 65 20 70 65 72 63 | 65 6e 74 61 67 65 20 61 |ime perc|entage a|
|000003e0| 20 70 72 6f 67 72 61 6d | 20 73 70 65 6e 64 73 20 | program| spends |
|000003f0| 69 6e 20 64 69 66 66 65 | 72 65 6e 74 20 66 75 6e |in diffe|rent fun|
|00000400| 63 74 69 6f 6e 73 2e 20 | 20 49 74 0a 58 69 73 20 |ctions. | It.Xis |
|00000410| 61 6e 20 69 6e 64 69 73 | 70 65 6e 73 61 62 6c 65 |an indis|pensable|
|00000420| 20 74 6f 6f 6c 20 77 68 | 65 6e 20 74 72 79 69 6e | tool wh|en tryin|
|00000430| 67 20 74 6f 20 6f 70 74 | 69 6d 69 73 65 20 61 20 |g to opt|imise a |
|00000440| 70 72 6f 67 72 61 6d 2e | 20 20 54 68 65 20 73 79 |program.|  The sy|
|00000450| 73 74 65 6d 0a 58 68 61 | 73 20 62 65 65 6e 20 74 |stem.Xha|s been t|
|00000460| 65 73 74 65 64 20 77 69 | 74 68 20 4d 69 63 72 6f |ested wi|th Micro|
|00000470| 73 6f 66 74 20 43 20 56 | 65 72 73 69 6f 6e 20 35 |soft C V|ersion 5|
|00000480| 2e 30 30 2e 0a 58 0a 58 | 49 6e 20 6f 72 64 65 72 |.00..X.X|In order|
|00000490| 20 74 6f 20 75 73 65 20 | 74 68 65 20 70 72 6f 66 | to use |the prof|
|000004a0| 69 6c 65 72 20 66 69 72 | 73 74 20 63 72 65 61 74 |iler fir|st creat|
|000004b0| 65 20 74 68 65 20 6f 62 | 6a 65 63 74 20 66 69 6c |e the ob|ject fil|
|000004c0| 65 73 20 73 70 72 6f 66 | 2e 6f 62 6a 2c 0a 58 6c |es sprof|.obj,.Xl|
|000004d0| 70 72 6f 66 2e 6f 62 6a | 2c 20 6d 70 72 6f 66 2e |prof.obj|, mprof.|
|000004e0| 6f 62 6a 20 61 6e 64 20 | 63 70 72 6f 66 2e 6f 62 |obj and |cprof.ob|
|000004f0| 6a 20 62 79 20 74 79 70 | 69 6e 67 20 60 60 6d 61 |j by typ|ing ``ma|
|00000500| 6b 65 27 27 2e 20 20 54 | 68 65 20 6d 61 6b 65 66 |ke''.  T|he makef|
|00000510| 69 6c 65 0a 58 73 75 70 | 70 6c 69 65 64 20 65 78 |ile.Xsup|plied ex|
|00000520| 70 65 63 74 73 20 61 20 | 55 6e 2a 78 20 63 6f 6d |pects a |Un*x com|
|00000530| 70 61 74 69 62 6c 65 20 | 6c 69 6e 6b 65 72 2c 20 |patible |linker, |
|00000540| 73 6f 20 69 66 20 79 6f | 75 20 61 72 65 20 75 73 |so if yo|u are us|
|00000550| 69 6e 67 20 74 68 65 20 | 6f 6e 65 0a 58 74 68 61 |ing the |one.Xtha|
|00000560| 74 20 63 61 6d 65 20 77 | 69 74 68 20 74 68 65 20 |t came w|ith the |
|00000570| 63 6f 6d 70 69 6c 65 72 | 20 64 6f 20 74 68 65 20 |compiler| do the |
|00000580| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 73 20 62 79 20 |compilat|ions by |
|00000590| 68 61 6e 64 2e 0a 58 0a | 58 43 6f 6d 70 69 6c 65 |hand..X.|XCompile|
|000005a0| 20 79 6f 75 72 20 70 72 | 6f 67 72 61 6d 20 69 6e | your pr|ogram in|
|000005b0| 20 73 75 63 68 20 61 20 | 77 61 79 20 61 73 20 74 | such a |way as t|
|000005c0| 6f 20 63 72 65 61 74 65 | 20 61 20 6c 69 6e 6b 65 |o create| a linke|
|000005d0| 72 20 6d 61 70 20 66 69 | 6c 65 2e 20 20 54 6f 0a |r map fi|le.  To.|
|000005e0| 58 64 6f 20 74 68 69 73 | 20 6c 69 6e 6b 20 79 6f |Xdo this| link yo|
|000005f0| 75 72 20 70 72 6f 67 72 | 61 6d 20 77 69 74 68 20 |ur progr|am with |
|00000600| 74 68 65 20 2d 46 6d 20 | 6f 70 74 69 6f 6e 20 6f |the -Fm |option o|
|00000610| 66 20 63 6c 20 6f 72 20 | 74 68 65 20 2f 4d 41 50 |f cl or |the /MAP|
|00000620| 20 6f 70 74 69 6f 6e 0a | 58 6f 66 20 74 68 65 20 | option.|Xof the |
|00000630| 6c 69 6e 6b 65 72 2e 20 | 20 54 68 65 20 61 70 70 |linker. | The app|
|00000640| 72 6f 70 72 69 61 74 65 | 20 5b 73 6c 6d 63 5d 70 |ropriate| [slmc]p|
|00000650| 72 6f 66 2e 6f 62 6a 20 | 6d 6f 64 75 6c 65 20 68 |rof.obj |module h|
|00000660| 61 73 20 74 6f 20 62 65 | 20 6c 69 6e 6b 65 64 0a |as to be| linked.|
|00000670| 58 74 6f 67 65 74 68 65 | 72 20 77 69 74 68 20 74 |Xtogethe|r with t|
|00000680| 68 65 20 72 65 73 74 20 | 6f 66 20 74 68 65 20 70 |he rest |of the p|
|00000690| 72 6f 67 72 61 6d 2e 20 | 20 54 68 65 20 66 69 72 |rogram. | The fir|
|000006a0| 73 74 20 6c 65 74 74 65 | 72 20 6f 66 20 74 68 65 |st lette|r of the|
|000006b0| 20 6d 6f 64 75 6c 65 0a | 58 69 6e 64 69 63 61 74 | module.|Xindicat|
|000006c0| 65 73 20 74 68 65 20 6d | 65 6d 6f 72 79 20 6d 6f |es the m|emory mo|
|000006d0| 64 65 6c 20 69 6e 20 75 | 73 65 2e 20 20 54 68 65 |del in u|se.  The|
|000006e0| 20 70 72 6f 67 72 61 6d | 20 73 68 6f 75 6c 64 20 | program| should |
|000006f0| 63 61 6c 6c 20 74 68 65 | 0a 58 66 75 6e 63 74 69 |call the|.Xfuncti|
|00000700| 6f 6e 20 70 72 6f 66 5f | 73 74 61 72 74 28 20 61 |on prof_|start( a|
|00000710| 72 67 76 5b 30 5d 20 29 | 20 66 6f 72 20 76 65 72 |rgv[0] )| for ver|
|00000720| 73 69 6f 6e 73 20 6f 66 | 20 4d 53 2d 44 4f 53 20 |sions of| MS-DOS |
|00000730| 61 62 6f 76 65 20 6f 72 | 20 65 71 75 61 6c 20 74 |above or| equal t|
|00000740| 6f 0a 58 33 2e 30 30 20 | 6f 72 20 70 72 6f 66 5f |o.X3.00 |or prof_|
|00000750| 73 74 61 72 74 28 20 2e | 6d 61 70 20 66 69 6c 65 |start( .|map file|
|00000760| 20 6e 61 6d 65 20 29 20 | 66 6f 72 20 4d 53 2d 44 | name ) |for MS-D|
|00000770| 4f 53 20 76 65 72 73 69 | 6f 6e 73 20 62 65 66 6f |OS versi|ons befo|
|00000780| 72 65 20 33 2e 30 30 20 | 69 6e 0a 58 6f 72 64 65 |re 3.00 |in.Xorde|
|00000790| 72 20 74 6f 20 73 74 61 | 72 74 20 70 72 6f 66 69 |r to sta|rt profi|
|000007a0| 6c 69 6e 67 2e 20 57 68 | 65 6e 20 74 68 65 20 70 |ling. Wh|en the p|
|000007b0| 72 6f 67 72 61 6d 20 66 | 69 6e 69 73 68 65 73 20 |rogram f|inishes |
|000007c0| 74 68 65 20 70 72 6f 66 | 69 6c 65 72 0a 58 61 75 |the prof|iler.Xau|
|000007d0| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 20 70 72 6f 64 |tomatica|lly prod|
|000007e0| 75 63 65 73 20 61 20 70 | 72 6f 66 2e 6f 75 74 20 |uces a p|rof.out |
|000007f0| 66 69 6c 65 20 74 68 61 | 74 20 63 6f 6e 74 61 69 |file tha|t contai|
|00000800| 6e 73 20 74 68 65 20 6e | 61 6d 65 73 20 6f 66 20 |ns the n|ames of |
|00000810| 61 6c 6c 0a 58 70 75 62 | 6c 69 63 20 73 79 6d 62 |all.Xpub|lic symb|
|00000820| 6f 6c 73 20 61 6e 64 20 | 74 68 65 20 6e 75 6d 62 |ols and |the numb|
|00000830| 65 72 20 6f 66 20 68 69 | 74 73 20 66 6f 72 20 65 |er of hi|ts for e|
|00000840| 61 63 68 20 6f 6e 65 2e | 0a 58 0a 58 59 6f 75 20 |ach one.|.X.XYou |
|00000850| 63 61 6e 20 72 65 61 64 | 20 74 68 65 20 72 65 73 |can read| the res|
|00000860| 75 6c 74 73 20 64 69 72 | 65 63 74 6c 79 20 66 72 |ults dir|ectly fr|
|00000870| 6f 6d 20 74 68 65 20 70 | 72 6f 66 2e 6f 75 74 20 |om the p|rof.out |
|00000880| 66 69 6c 65 2c 20 6f 72 | 20 79 6f 75 20 63 61 6e |file, or| you can|
|00000890| 0a 58 73 75 6d 6d 61 72 | 69 7a 65 20 74 68 65 6d |.Xsummar|ize them|
|000008a0| 20 75 73 69 6e 67 20 70 | 72 6f 66 70 72 74 2e 20 | using p|rofprt. |
|000008b0| 20 50 72 6f 66 70 72 74 | 20 72 65 61 64 73 20 74 | Profprt| reads t|
|000008c0| 68 65 20 70 72 6f 66 2e | 6f 75 74 20 66 69 6c 65 |he prof.|out file|
|000008d0| 20 28 6f 72 0a 58 61 6e | 6f 74 68 65 72 20 66 69 | (or.Xan|other fi|
|000008e0| 6c 65 20 69 66 20 73 70 | 65 63 69 66 69 65 64 29 |le if sp|ecified)|
|000008f0| 20 61 6e 64 20 70 72 6f | 64 75 63 65 73 20 61 20 | and pro|duces a |
|00000900| 6c 69 73 74 20 6f 66 20 | 68 69 74 73 20 61 6e 64 |list of |hits and|
|00000910| 20 70 65 72 63 65 6e 74 | 61 67 65 73 0a 58 66 6f | percent|ages.Xfo|
|00000920| 72 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 73 20 |r the fu|nctions |
|00000930| 66 6f 72 20 77 68 69 63 | 68 20 68 69 74 73 20 77 |for whic|h hits w|
|00000940| 65 72 65 20 72 65 63 6f | 72 64 65 64 2e 20 49 66 |ere reco|rded. If|
|00000950| 20 67 69 76 65 6e 20 61 | 20 2d 68 20 6f 70 74 69 | given a| -h opti|
|00000960| 6f 6e 20 69 74 0a 58 61 | 6c 73 6f 20 70 72 6f 64 |on it.Xa|lso prod|
|00000970| 75 63 65 73 20 61 20 68 | 69 73 74 6f 67 72 61 6d |uces a h|istogram|
|00000980| 20 6f 66 20 74 68 65 20 | 72 65 6c 61 74 69 76 65 | of the |relative|
|00000990| 20 74 69 6d 69 6e 67 73 | 2e 0a 58 0a 58 41 20 73 | timings|..X.XA s|
|000009a0| 6d 61 6c 6c 20 74 65 73 | 74 20 70 72 6f 67 72 61 |mall tes|t progra|
|000009b0| 6d 20 69 73 20 69 6e 63 | 6c 75 64 65 64 20 74 6f |m is inc|luded to|
|000009c0| 20 63 68 65 63 6b 20 74 | 68 65 20 70 72 6f 66 69 | check t|he profi|
|000009d0| 6c 65 72 20 66 75 6e 63 | 74 69 6f 6e 69 6e 67 2e |ler func|tioning.|
|000009e0| 20 49 74 0a 58 67 65 6e | 65 72 61 6c 6c 79 20 66 | It.Xgen|erally f|
|000009f0| 6f 75 6e 64 20 74 68 65 | 20 70 72 6f 66 69 6c 65 |ound the| profile|
|00000a00| 72 20 72 65 73 75 6c 74 | 73 20 74 6f 20 62 65 20 |r result|s to be |
|00000a10| 77 69 74 68 69 6e 20 31 | 25 20 6f 66 20 74 68 65 |within 1|% of the|
|00000a20| 20 65 78 70 65 63 74 65 | 64 0a 58 72 65 73 75 6c | expecte|d.Xresul|
|00000a30| 74 73 20 6f 6e 20 61 6e | 20 38 4d 48 7a 20 50 43 |ts on an| 8MHz PC|
|00000a40| 2e 0a 58 0a 58 54 68 65 | 20 70 72 6f 66 69 6c 65 |..X.XThe| profile|
|00000a50| 72 20 69 73 20 61 6c 6c | 20 77 72 69 74 74 65 6e |r is all| written|
|00000a60| 20 69 6e 20 43 20 75 74 | 69 6c 69 7a 69 6e 67 20 | in C ut|ilizing |
|00000a70| 74 68 65 20 61 62 69 6c | 69 74 79 20 74 6f 20 63 |the abil|ity to c|
|00000a80| 72 65 61 74 65 0a 58 69 | 6e 74 65 72 72 75 70 74 |reate.Xi|nterrupt|
|00000a90| 20 68 61 6e 64 6c 65 72 | 73 20 69 6e 20 43 2e 20 | handler|s in C. |
|00000aa0| 49 74 20 66 69 6e 64 73 | 20 74 68 65 20 61 64 64 |It finds| the add|
|00000ab0| 72 65 73 73 65 73 20 6f | 66 20 74 68 65 20 66 75 |resses o|f the fu|
|00000ac0| 6e 63 74 69 6f 6e 73 20 | 66 72 6f 6d 0a 58 74 68 |nctions |from.Xth|
|00000ad0| 65 20 6c 69 6e 6b 65 72 | 20 6d 61 70 20 66 69 6c |e linker| map fil|
|00000ae0| 65 2e 20 20 49 74 20 73 | 68 6f 75 6c 64 20 6e 6f |e.  It s|hould no|
|00000af0| 74 20 62 65 20 76 65 72 | 79 20 68 61 72 64 20 74 |t be ver|y hard t|
|00000b00| 6f 20 6d 6f 64 69 66 79 | 20 74 68 65 20 73 6f 75 |o modify| the sou|
|00000b10| 72 63 65 0a 58 66 6f 72 | 20 6f 74 68 65 72 20 63 |rce.Xfor| other c|
|00000b20| 6f 6d 70 69 6c 65 72 73 | 2e 20 20 4b 65 65 70 20 |ompilers|.  Keep |
|00000b30| 69 6e 20 6d 69 6e 64 20 | 74 68 61 74 20 66 75 6e |in mind |that fun|
|00000b40| 63 74 69 6f 6e 73 20 64 | 65 63 6c 61 72 65 64 20 |ctions d|eclared |
|00000b50| 61 73 20 73 74 61 74 69 | 63 0a 58 61 72 65 20 6e |as stati|c.Xare n|
|00000b60| 6f 74 20 69 6e 63 6c 75 | 64 65 64 20 69 6e 20 74 |ot inclu|ded in t|
|00000b70| 68 65 20 6d 61 70 20 66 | 69 6c 65 2c 20 74 68 75 |he map f|ile, thu|
|00000b80| 73 20 77 69 6c 6c 20 6e | 6f 74 20 62 65 20 70 72 |s will n|ot be pr|
|00000b90| 6f 66 69 6c 65 64 20 61 | 6e 64 20 70 6c 61 6e 0a |ofiled a|nd plan.|
|00000ba0| 58 61 63 63 6f 72 64 69 | 6e 67 6c 79 2e 20 20 4f |Xaccordi|ngly.  O|
|00000bb0| 6e 65 20 73 6f 6c 75 74 | 69 6f 6e 20 69 73 20 74 |ne solut|ion is t|
|00000bc0| 6f 20 63 6f 6d 70 69 6c | 65 20 77 69 74 68 20 2d |o compil|e with -|
|00000bd0| 44 73 74 61 74 69 63 3d | 20 69 66 20 74 68 65 20 |Dstatic=| if the |
|00000be0| 6e 61 6d 69 6e 67 0a 58 | 73 63 68 65 6d 65 20 75 |naming.X|scheme u|
|00000bf0| 73 65 64 20 61 6c 6c 6f | 77 73 20 69 74 2e 20 20 |sed allo|ws it.  |
|00000c00| 50 61 79 20 61 74 74 65 | 6e 74 69 6f 6e 20 74 6f |Pay atte|ntion to|
|00000c10| 20 71 75 61 6e 74 69 7a | 61 74 69 6f 6e 20 65 72 | quantiz|ation er|
|00000c20| 72 6f 72 73 20 61 6e 64 | 20 74 6f 0a 58 65 72 72 |rors and| to.Xerr|
|00000c30| 6f 72 73 20 64 75 65 20 | 74 6f 20 69 6e 63 6f 72 |ors due |to incor|
|00000c40| 72 65 63 74 6c 79 20 73 | 70 65 63 69 66 69 65 64 |rectly s|pecified|
|00000c50| 20 62 6f 75 6e 64 61 72 | 69 65 73 2e 20 50 6f 72 | boundar|ies. Por|
|00000c60| 74 69 6f 6e 73 20 6f 66 | 20 74 68 65 20 63 6f 64 |tions of| the cod|
|00000c70| 65 0a 58 74 68 61 74 20 | 61 72 65 20 65 78 65 63 |e.Xthat |are exec|
|00000c80| 75 74 65 64 20 77 69 74 | 68 20 69 6e 74 65 72 72 |uted wit|h interr|
|00000c90| 75 70 74 73 20 64 69 73 | 61 62 6c 65 64 20 77 69 |upts dis|abled wi|
|00000ca0| 6c 6c 20 6e 6f 74 20 62 | 65 20 70 72 6f 66 69 6c |ll not b|e profil|
|00000cb0| 65 64 2e 0a 58 0a 58 44 | 69 6f 6d 69 64 69 73 20 |ed..X.XD|iomidis |
|00000cc0| 44 2e 20 53 70 69 6e 65 | 6c 6c 69 73 20 28 64 64 |D. Spine|llis (dd|
|00000cd0| 73 40 63 63 2e 69 63 2e | 61 63 2e 75 6b 29 0a 58 |s@cc.ic.|ac.uk).X|
|00000ce0| 4d 79 72 73 69 6e 69 73 | 20 31 0a 58 47 52 2d 31 |Myrsinis| 1.XGR-1|
|00000cf0| 34 35 20 36 32 20 4b 69 | 66 69 73 69 61 0a 58 47 |45 62 Ki|fisia.XG|
|00000d00| 52 45 45 43 45 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |REECE.SH|AR_EOF.i|
|00000d10| 66 20 74 65 73 74 20 32 | 34 36 35 20 2d 6e 65 20 |f test 2|465 -ne |
|00000d20| 22 60 77 63 20 2d 63 20 | 3c 20 27 52 45 41 44 4d |"`wc -c |< 'READM|
|00000d30| 45 27 60 22 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |E'`".the|n..echo |
|00000d40| 73 68 61 72 3a 20 65 72 | 72 6f 72 20 74 72 61 6e |shar: er|ror tran|
|00000d50| 73 6d 69 74 74 69 6e 67 | 20 22 27 52 45 41 44 4d |smitting| "'READM|
|00000d60| 45 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |E'" '(sh|ould hav|
|00000d70| 65 20 62 65 65 6e 20 32 | 34 36 35 20 63 68 61 72 |e been 2|465 char|
|00000d80| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 20 23 |acters)'|.fi.fi #|
|00000d90| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|00000da0| 69 6e 67 20 63 68 65 63 | 6b 0a 69 66 20 74 65 73 |ing chec|k.if tes|
|00000db0| 74 20 2d 66 20 27 4d 61 | 6b 65 66 69 6c 65 27 0a |t -f 'Ma|kefile'.|
|00000dc0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|00000dd0| 20 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | will no|t over-w|
|00000de0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|00000df0| 6c 65 20 22 27 4d 61 6b | 65 66 69 6c 65 27 22 0a |le "'Mak|efile'".|
|00000e00| 65 6c 73 65 0a 73 65 64 | 20 27 73 2f 5e 58 2f 2f |else.sed| 's/^X//|
|00000e10| 27 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |' << \SH|AR_EOF >|
|00000e20| 20 27 4d 61 6b 65 66 69 | 6c 65 27 0a 58 23 0a 58 | 'Makefi|le'.X#.X|
|00000e30| 23 20 4d 61 6b 65 66 69 | 6c 65 20 66 6f 72 20 74 |# Makefi|le for t|
|00000e40| 68 65 20 70 72 6f 66 69 | 6c 65 72 0a 58 23 0a 58 |he profi|ler.X#.X|
|00000e50| 23 20 28 43 29 20 43 6f | 70 79 72 69 67 68 74 20 |# (C) Co|pyright |
|00000e60| 31 39 38 38 2c 20 31 39 | 38 39 20 44 69 6f 6d 69 |1988, 19|89 Diomi|
|00000e70| 64 69 73 20 44 2e 20 53 | 70 69 6e 65 6c 6c 69 73 |dis D. S|pinellis|
|00000e80| 2e 20 41 6c 6c 20 72 69 | 67 68 74 73 20 72 65 73 |. All ri|ghts res|
|00000e90| 65 72 76 65 64 2e 0a 58 | 23 20 53 65 65 20 74 68 |erved..X|# See th|
|00000ea0| 65 20 66 69 6c 65 20 70 | 72 6f 66 70 72 74 2e 63 |e file p|rofprt.c|
|00000eb0| 20 66 6f 72 20 64 69 73 | 74 72 69 62 75 74 69 6f | for dis|tributio|
|00000ec0| 6e 20 64 65 74 61 69 6c | 73 2e 0a 58 23 0a 58 23 |n detail|s..X#.X#|
|00000ed0| 20 59 6f 75 20 6e 65 65 | 64 20 61 20 55 6e 69 2a | You nee|d a Uni*|
|00000ee0| 78 20 63 6f 6d 70 61 74 | 69 62 6c 65 20 6d 61 6b |x compat|ible mak|
|00000ef0| 65 20 70 72 6f 67 72 61 | 6d 20 74 6f 20 75 73 65 |e progra|m to use|
|00000f00| 20 74 68 69 73 20 6d 61 | 6b 65 66 69 6c 65 2e 20 | this ma|kefile. |
|00000f10| 0a 58 23 20 4d 69 63 72 | 6f 73 6f 66 74 20 6d 61 |.X# Micr|osoft ma|
|00000f20| 6b 65 20 77 69 6c 6c 20 | 70 72 6f 62 61 62 6c 79 |ke will |probably|
|00000f30| 20 6e 6f 74 20 77 6f 72 | 6b 2e 0a 58 0a 58 23 20 | not wor|k..X.X# |
|00000f40| 44 65 62 75 67 67 69 6e | 67 20 66 6c 61 67 73 0a |Debuggin|g flags.|
|00000f50| 58 23 43 46 4c 41 47 53 | 3d 2d 4f 64 20 2d 57 33 |X#CFLAGS|=-Od -W3|
|00000f60| 20 2d 71 63 20 2d 5a 69 | 20 2d 44 44 45 42 55 47 | -qc -Zi| -DDEBUG|
|00000f70| 0a 58 23 20 50 72 6f 64 | 75 63 74 69 6f 6e 20 66 |.X# Prod|uction f|
|00000f80| 6c 61 67 73 0a 58 43 46 | 4c 41 47 53 3d 2d 4f 78 |lags.XCF|LAGS=-Ox|
|00000f90| 20 2d 57 33 0a 58 0a 58 | 43 43 3d 63 6c 0a 58 23 | -W3.X.X|CC=cl.X#|
|00000fa0| 43 43 3d 71 63 6c 0a 58 | 0a 58 61 6c 6c 3a 20 6c |CC=qcl.X|.Xall: l|
|00000fb0| 70 72 6f 66 2e 6f 62 6a | 20 6d 70 72 6f 66 2e 6f |prof.obj| mprof.o|
|00000fc0| 62 6a 20 63 70 72 6f 66 | 2e 6f 62 6a 20 73 70 72 |bj cprof|.obj spr|
|00000fd0| 6f 66 2e 6f 62 6a 20 70 | 72 6f 66 70 72 74 2e 65 |of.obj p|rofprt.e|
|00000fe0| 78 65 0a 58 0a 58 74 65 | 73 74 2e 65 78 65 3a 20 |xe.X.Xte|st.exe: |
|00000ff0| 74 65 73 74 2e 6f 62 6a | 20 73 70 72 6f 66 2e 6f |test.obj| sprof.o|
|00001000| 62 6a 0a 58 09 24 28 43 | 43 29 20 2d 46 6d 20 24 |bj.X.$(C|C) -Fm $|
|00001010| 28 43 46 4c 41 47 53 29 | 20 74 65 73 74 2e 6f 62 |(CFLAGS)| test.ob|
|00001020| 6a 20 73 70 72 6f 66 2e | 6f 62 6a 0a 58 0a 58 6c |j sprof.|obj.X.Xl|
|00001030| 70 72 6f 66 2e 6f 62 6a | 3a 20 70 72 6f 66 2e 63 |prof.obj|: prof.c|
|00001040| 0a 58 09 24 28 43 43 29 | 20 2d 41 4c 20 24 28 43 |.X.$(CC)| -AL $(C|
|00001050| 46 4c 41 47 53 29 20 2d | 63 20 2d 46 6f 6c 70 72 |FLAGS) -|c -Folpr|
|00001060| 6f 66 2e 6f 62 6a 20 70 | 72 6f 66 2e 63 0a 58 0a |of.obj p|rof.c.X.|
|00001070| 58 63 70 72 6f 66 2e 6f | 62 6a 3a 20 70 72 6f 66 |Xcprof.o|bj: prof|
|00001080| 2e 63 0a 58 09 24 28 43 | 43 29 20 2d 41 43 20 24 |.c.X.$(C|C) -AC $|
|00001090| 28 43 46 4c 41 47 53 29 | 20 2d 63 20 2d 46 6f 63 |(CFLAGS)| -c -Foc|
|000010a0| 70 72 6f 66 2e 6f 62 6a | 20 70 72 6f 66 2e 63 0a |prof.obj| prof.c.|
|000010b0| 58 0a 58 6d 70 72 6f 66 | 2e 6f 62 6a 3a 20 70 72 |X.Xmprof|.obj: pr|
|000010c0| 6f 66 2e 63 0a 58 09 24 | 28 43 43 29 20 2d 41 4d |of.c.X.$|(CC) -AM|
|000010d0| 20 24 28 43 46 4c 41 47 | 53 29 20 2d 63 20 2d 46 | $(CFLAG|S) -c -F|
|000010e0| 6f 6d 70 72 6f 66 2e 6f | 62 6a 20 70 72 6f 66 2e |omprof.o|bj prof.|
|000010f0| 63 0a 58 0a 58 73 70 72 | 6f 66 2e 6f 62 6a 3a 20 |c.X.Xspr|of.obj: |
|00001100| 70 72 6f 66 2e 63 0a 58 | 09 24 28 43 43 29 20 2d |prof.c.X|.$(CC) -|
|00001110| 41 53 20 24 28 43 46 4c | 41 47 53 29 20 2d 63 20 |AS $(CFL|AGS) -c |
|00001120| 2d 46 6f 73 70 72 6f 66 | 2e 6f 62 6a 20 70 72 6f |-Fosprof|.obj pro|
|00001130| 66 2e 63 0a 58 0a 58 74 | 65 73 74 2e 6f 62 6a 3a |f.c.X.Xt|est.obj:|
|00001140| 20 74 65 73 74 2e 63 0a | 58 09 24 28 43 43 29 20 | test.c.|X.$(CC) |
|00001150| 2d 41 53 20 2d 63 20 74 | 65 73 74 2e 63 0a 58 0a |-AS -c t|est.c.X.|
|00001160| 58 70 72 6f 66 70 72 74 | 2e 65 78 65 3a 20 70 72 |Xprofprt|.exe: pr|
|00001170| 6f 66 70 72 74 2e 63 0a | 58 09 24 28 43 43 29 20 |ofprt.c.|X.$(CC) |
|00001180| 24 28 43 46 4c 41 47 53 | 29 20 70 72 6f 66 70 72 |$(CFLAGS|) profpr|
|00001190| 74 2e 63 0a 58 0a 58 74 | 65 73 74 3a 20 74 65 73 |t.c.X.Xt|est: tes|
|000011a0| 74 2e 65 78 65 0a 58 09 | 74 65 73 74 0a 58 0a 58 |t.exe.X.|test.X.X|
|000011b0| 69 6e 73 74 61 6c 6c 3a | 0a 58 09 63 6f 70 79 20 |install:|.X.copy |
|000011c0| 6c 70 72 6f 66 2e 6f 62 | 6a 20 24 24 4c 49 42 0a |lprof.ob|j $$LIB.|
|000011d0| 58 09 63 6f 70 79 20 63 | 70 72 6f 66 2e 6f 62 6a |X.copy c|prof.obj|
|000011e0| 20 24 24 4c 49 42 0a 58 | 09 63 6f 70 79 20 6d 70 | $$LIB.X|.copy mp|
|000011f0| 72 6f 66 2e 6f 62 6a 20 | 24 24 4c 49 42 0a 58 09 |rof.obj |$$LIB.X.|
|00001200| 63 6f 70 79 20 73 70 72 | 6f 66 2e 6f 62 6a 20 24 |copy spr|of.obj $|
|00001210| 24 4c 49 42 0a 58 0a 58 | 63 6c 65 61 6e 3a 0a 58 |$LIB.X.X|clean:.X|
|00001220| 09 72 6d 20 2d 66 20 2a | 2e 65 78 65 20 2a 2e 6f |.rm -f *|.exe *.o|
|00001230| 62 6a 20 2a 2e 6d 61 70 | 20 70 72 6f 66 2e 6f 75 |bj *.map| prof.ou|
|00001240| 74 0a 58 0a 58 73 68 61 | 72 3a 0a 58 09 73 68 61 |t.X.Xsha|r:.X.sha|
|00001250| 72 20 2d 70 58 20 2d 63 | 20 52 45 41 44 4d 45 20 |r -pX -c| README |
|00001260| 4d 61 6b 65 66 69 6c 65 | 20 70 72 6f 66 2e 63 20 |Makefile| prof.c |
|00001270| 70 72 6f 66 70 72 74 2e | 63 20 74 65 73 74 2e 63 |profprt.|c test.c|
|00001280| 20 3e 70 72 6f 66 2e 73 | 68 61 72 0a 53 48 41 52 | >prof.s|har.SHAR|
|00001290| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 31 30 36 |_EOF.if |test 106|
|000012a0| 36 20 2d 6e 65 20 22 60 | 77 63 20 2d 63 20 3c 20 |6 -ne "`|wc -c < |
|000012b0| 27 4d 61 6b 65 66 69 6c | 65 27 60 22 0a 74 68 65 |'Makefil|e'`".the|
|000012c0| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 65 72 |n..echo |shar: er|
|000012d0| 72 6f 72 20 74 72 61 6e | 73 6d 69 74 74 69 6e 67 |ror tran|smitting|
|000012e0| 20 22 27 4d 61 6b 65 66 | 69 6c 65 27 22 20 27 28 | "'Makef|ile'" '(|
|000012f0| 73 68 6f 75 6c 64 20 68 | 61 76 65 20 62 65 65 6e |should h|ave been|
|00001300| 20 31 30 36 36 20 63 68 | 61 72 61 63 74 65 72 73 | 1066 ch|aracters|
|00001310| 29 27 0a 66 69 0a 66 69 | 20 23 20 65 6e 64 20 6f |)'.fi.fi| # end o|
|00001320| 66 20 6f 76 65 72 77 72 | 69 74 69 6e 67 20 63 68 |f overwr|iting ch|
|00001330| 65 63 6b 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |eck.if t|est -f '|
|00001340| 70 72 6f 66 2e 63 27 0a | 74 68 65 6e 0a 09 65 63 |prof.c'.|then..ec|
|00001350| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|00001360| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00001370| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 70 72 6f |sting fi|le "'pro|
|00001380| 66 2e 63 27 22 0a 65 6c | 73 65 0a 73 65 64 20 27 |f.c'".el|se.sed '|
|00001390| 73 2f 5e 58 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |s/^X//' |<< \SHAR|
|000013a0| 5f 45 4f 46 20 3e 20 27 | 70 72 6f 66 2e 63 27 0a |_EOF > '|prof.c'.|
|000013b0| 58 2f 2a 0a 58 20 2a 20 | 41 20 43 20 70 72 6f 67 |X/*.X * |A C prog|
|000013c0| 72 61 6d 20 70 72 6f 66 | 69 6c 65 72 2e 20 0a 58 |ram prof|iler. .X|
|000013d0| 20 2a 0a 58 20 2a 20 28 | 43 29 20 43 6f 70 79 72 | *.X * (|C) Copyr|
|000013e0| 69 67 68 74 20 31 39 38 | 38 2c 20 31 39 38 39 20 |ight 198|8, 1989 |
|000013f0| 44 69 6f 6d 69 64 69 73 | 20 44 2e 20 53 70 69 6e |Diomidis| D. Spin|
|00001400| 65 6c 6c 69 73 2e 20 41 | 6c 6c 20 72 69 67 68 74 |ellis. A|ll right|
|00001410| 73 20 72 65 73 65 72 76 | 65 64 2e 0a 58 20 2a 20 |s reserv|ed..X * |
|00001420| 0a 58 20 2a 20 52 65 64 | 69 73 74 72 69 62 75 74 |.X * Red|istribut|
|00001430| 69 6f 6e 20 61 6e 64 20 | 75 73 65 20 69 6e 20 73 |ion and |use in s|
|00001440| 6f 75 72 63 65 20 61 6e | 64 20 62 69 6e 61 72 79 |ource an|d binary|
|00001450| 20 66 6f 72 6d 73 20 61 | 72 65 20 70 65 72 6d 69 | forms a|re permi|
|00001460| 74 74 65 64 0a 58 20 2a | 20 70 72 6f 76 69 64 65 |tted.X *| provide|
|00001470| 64 20 74 68 61 74 20 74 | 68 65 20 61 62 6f 76 65 |d that t|he above|
|00001480| 20 63 6f 70 79 72 69 67 | 68 74 20 6e 6f 74 69 63 | copyrig|ht notic|
|00001490| 65 20 61 6e 64 20 74 68 | 69 73 20 70 61 72 61 67 |e and th|is parag|
|000014a0| 72 61 70 68 20 61 72 65 | 0a 58 20 2a 20 64 75 70 |raph are|.X * dup|
|000014b0| 6c 69 63 61 74 65 64 20 | 69 6e 20 61 6c 6c 20 73 |licated |in all s|
|000014c0| 75 63 68 20 66 6f 72 6d | 73 20 61 6e 64 20 74 68 |uch form|s and th|
|000014d0| 61 74 20 61 6e 79 20 64 | 6f 63 75 6d 65 6e 74 61 |at any d|ocumenta|
|000014e0| 74 69 6f 6e 2c 0a 58 20 | 2a 20 61 64 76 65 72 74 |tion,.X |* advert|
|000014f0| 69 73 69 6e 67 20 6d 61 | 74 65 72 69 61 6c 73 2c |ising ma|terials,|
|00001500| 20 61 6e 64 20 6f 74 68 | 65 72 20 6d 61 74 65 72 | and oth|er mater|
|00001510| 69 61 6c 73 20 72 65 6c | 61 74 65 64 20 74 6f 20 |ials rel|ated to |
|00001520| 73 75 63 68 0a 58 20 2a | 20 64 69 73 74 72 69 62 |such.X *| distrib|
|00001530| 75 74 69 6f 6e 20 61 6e | 64 20 75 73 65 20 61 63 |ution an|d use ac|
|00001540| 6b 6e 6f 77 6c 65 64 67 | 65 20 74 68 61 74 20 74 |knowledg|e that t|
|00001550| 68 65 20 73 6f 66 74 77 | 61 72 65 20 77 61 73 20 |he softw|are was |
|00001560| 64 65 76 65 6c 6f 70 65 | 64 0a 58 20 2a 20 62 79 |develope|d.X * by|
|00001570| 20 44 69 6f 6d 69 64 69 | 73 20 53 70 69 6e 65 6c | Diomidi|s Spinel|
|00001580| 6c 69 73 2e 0a 58 20 2a | 20 0a 58 20 2a 20 54 48 |lis..X *| .X * TH|
|00001590| 49 53 20 53 4f 46 54 57 | 41 52 45 20 49 53 20 50 |IS SOFTW|ARE IS P|
|000015a0| 52 4f 56 49 44 45 44 20 | 60 60 41 53 20 49 53 27 |ROVIDED |``AS IS'|
|000015b0| 27 20 41 4e 44 20 57 49 | 54 48 4f 55 54 20 41 4e |' AND WI|THOUT AN|
|000015c0| 59 20 45 58 50 52 45 53 | 53 20 4f 52 0a 58 20 2a |Y EXPRES|S OR.X *|
|000015d0| 20 49 4d 50 4c 49 45 44 | 20 57 41 52 52 41 4e 54 | IMPLIED| WARRANT|
|000015e0| 49 45 53 2c 20 49 4e 43 | 4c 55 44 49 4e 47 2c 20 |IES, INC|LUDING, |
|000015f0| 57 49 54 48 4f 55 54 20 | 4c 49 4d 49 54 41 54 49 |WITHOUT |LIMITATI|
|00001600| 4f 4e 2c 20 54 48 45 20 | 49 4d 50 4c 49 45 44 0a |ON, THE |IMPLIED.|
|00001610| 58 20 2a 20 57 41 52 52 | 41 4e 54 49 45 53 20 4f |X * WARR|ANTIES O|
|00001620| 46 20 4d 45 52 43 48 41 | 4e 54 49 42 49 4c 49 54 |F MERCHA|NTIBILIT|
|00001630| 59 20 41 4e 44 20 46 49 | 54 4e 45 53 53 20 46 4f |Y AND FI|TNESS FO|
|00001640| 52 20 41 20 50 41 52 54 | 49 43 55 4c 41 52 20 50 |R A PART|ICULAR P|
|00001650| 55 52 50 4f 53 45 2e 0a | 58 20 2a 0a 58 20 2a 20 |URPOSE..|X *.X * |
|00001660| 41 75 74 68 6f 72 3a 20 | 44 69 6f 6d 69 64 69 73 |Author: |Diomidis|
|00001670| 20 44 2e 20 53 70 69 6e | 65 6c 6c 69 73 20 28 64 | D. Spin|ellis (d|
|00001680| 64 73 40 63 63 2e 69 63 | 2e 61 63 2e 75 6b 29 0a |ds@cc.ic|.ac.uk).|
|00001690| 58 20 2a 09 20 20 20 4d | 79 72 73 69 6e 69 73 20 |X *.   M|yrsinis |
|000016a0| 31 0a 58 20 2a 09 20 20 | 20 47 52 2d 31 34 35 20 |1.X *.  | GR-145 |
|000016b0| 36 32 20 4b 69 66 69 73 | 69 61 0a 58 20 2a 09 20 |62 Kifis|ia.X *. |
|000016c0| 20 20 47 52 45 45 43 45 | 0a 58 20 2a 0a 58 20 2a |  GREECE|.X *.X *|
|000016d0| 20 24 48 65 61 64 65 72 | 3a 20 50 52 4f 46 2e 43 | $Header|: PROF.C|
|000016e0| 5e 76 20 31 2e 31 20 38 | 38 2f 31 31 2f 32 30 20 |^v 1.1 8|8/11/20 |
|000016f0| 31 37 3a 33 33 3a 31 36 | 20 64 64 73 20 52 65 6c |17:33:16| dds Rel|
|00001700| 20 24 0a 58 20 2a 0a 58 | 20 2a 20 24 4c 6f 67 3a | $.X *.X| * $Log:|
|00001710| 09 50 52 4f 46 2e 43 5e | 76 20 24 0a 58 20 2a 20 |.PROF.C^|v $.X * |
|00001720| 52 65 76 69 73 69 6f 6e | 20 31 2e 31 20 20 38 38 |Revision| 1.1  88|
|00001730| 2f 31 31 2f 32 30 20 20 | 31 37 3a 33 33 3a 31 36 |/11/20  |17:33:16|
|00001740| 20 20 64 64 73 0a 58 20 | 2a 20 49 6e 69 74 69 61 |  dds.X |* Initia|
|00001750| 6c 20 72 65 76 69 73 69 | 6f 6e 0a 58 20 2a 20 0a |l revisi|on.X * .|
|00001760| 58 20 2a 2f 0a 58 0a 58 | 23 69 6e 63 6c 75 64 65 |X */.X.X|#include|
|00001770| 20 3c 73 74 64 64 65 66 | 2e 68 3e 0a 58 23 69 6e | <stddef|.h>.X#in|
|00001780| 63 6c 75 64 65 20 3c 73 | 74 64 6c 69 62 2e 68 3e |clude <s|tdlib.h>|
|00001790| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 64 69 |.X#inclu|de <stdi|
|000017a0| 6f 2e 68 3e 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |o.h>.X#i|nclude <|
|000017b0| 73 74 72 69 6e 67 2e 68 | 3e 0a 58 23 69 6e 63 6c |string.h|>.X#incl|
|000017c0| 75 64 65 20 3c 64 6f 73 | 2e 68 3e 0a 58 0a 58 2f |ude <dos|.h>.X.X/|
|000017d0| 2a 20 4c 69 6e 6b 65 72 | 20 6f 75 74 70 75 74 20 |* Linker| output |
|000017e0| 6d 61 78 69 6d 75 6d 20 | 6c 69 6e 65 20 6c 65 6e |maximum |line len|
|000017f0| 67 74 68 20 2a 2f 0a 58 | 23 64 65 66 69 6e 65 20 |gth */.X|#define |
|00001800| 4c 49 4e 45 4c 45 4e 20 | 31 32 39 0a 58 2f 2a 20 |LINELEN |129.X/* |
|00001810| 4c 69 6e 6b 65 72 20 6f | 75 74 70 75 74 20 6d 61 |Linker o|utput ma|
|00001820| 78 69 6d 75 6d 20 73 79 | 6d 62 6f 6c 20 6c 65 6e |ximum sy|mbol len|
|00001830| 67 74 68 20 2a 2f 0a 58 | 23 64 65 66 69 6e 65 20 |gth */.X|#define |
|00001840| 53 54 52 4c 45 4e 09 36 | 35 0a 58 0a 58 2f 2a 20 |STRLEN.6|5.X.X/* |
|00001850| 45 6e 74 72 69 65 73 20 | 63 61 6e 20 62 65 20 61 |Entries |can be a|
|00001860| 62 73 6f 6c 75 74 65 20 | 6f 72 20 72 65 6c 6f 63 |bsolute |or reloc|
|00001870| 61 74 61 62 6c 65 20 2a | 2f 0a 58 65 6e 75 6d 20 |atable *|/.Xenum |
|00001880| 72 65 6c 6f 63 61 74 69 | 6f 6e 20 7b 20 61 62 73 |relocati|on { abs|
|00001890| 6f 6c 75 74 65 2c 20 72 | 65 6c 6f 63 61 74 61 62 |olute, r|elocatab|
|000018a0| 6c 65 20 7d 3b 0a 58 0a | 58 2f 2a 20 46 75 6e 63 |le };.X.|X/* Func|
|000018b0| 74 69 6f 6e 20 70 72 6f | 74 6f 74 79 70 65 73 20 |tion pro|totypes |
|000018c0| 2a 2f 0a 58 73 74 61 74 | 69 63 20 76 6f 69 64 20 |*/.Xstat|ic void |
|000018d0| 61 64 64 5f 70 72 6f 63 | 28 63 68 61 72 20 2a 20 |add_proc|(char * |
|000018e0| 6e 61 6d 65 2c 20 75 6e | 73 69 67 6e 65 64 20 6c |name, un|signed l|
|000018f0| 6f 6e 67 20 61 64 64 72 | 2c 20 65 6e 75 6d 20 72 |ong addr|, enum r|
|00001900| 65 6c 6f 63 61 74 69 6f | 6e 20 72 65 6c 29 3b 0a |elocatio|n rel);.|
|00001910| 58 73 74 61 74 69 63 20 | 76 6f 69 64 20 61 64 6a |Xstatic |void adj|
|00001920| 75 73 74 5f 70 72 6f 63 | 28 6c 6f 6e 67 20 6d 61 |ust_proc|(long ma|
|00001930| 69 6e 5f 6f 66 66 73 65 | 74 29 3b 0a 58 73 74 61 |in_offse|t);.Xsta|
|00001940| 74 69 63 20 76 6f 69 64 | 20 69 6e 73 74 61 6c 6c |tic void| install|
|00001950| 5f 69 6e 74 28 76 6f 69 | 64 29 3b 0a 58 73 74 61 |_int(voi|d);.Xsta|
|00001960| 74 69 63 20 69 6e 74 20 | 70 72 6f 66 5f 65 6e 64 |tic int |prof_end|
|00001970| 28 76 6f 69 64 29 3b 0a | 58 73 74 61 74 69 63 20 |(void);.|Xstatic |
|00001980| 76 6f 69 64 20 2a 20 78 | 6d 61 6c 6c 6f 63 28 73 |void * x|malloc(s|
|00001990| 69 7a 65 5f 74 20 73 69 | 7a 65 29 3b 0a 58 73 74 |ize_t si|ze);.Xst|
|000019a0| 61 74 69 63 20 76 6f 69 | 64 20 2a 20 78 72 65 61 |atic voi|d * xrea|
|000019b0| 6c 6c 6f 63 28 76 6f 69 | 64 20 2a 20 62 75 66 66 |lloc(voi|d * buff|
|000019c0| 65 72 2c 20 73 69 7a 65 | 5f 74 20 73 69 7a 65 29 |er, size|_t size)|
|000019d0| 3b 0a 58 73 74 61 74 69 | 63 20 63 68 61 72 20 2a |;.Xstati|c char *|
|000019e0| 20 73 74 72 73 61 76 65 | 28 63 68 61 72 20 2a 20 | strsave|(char * |
|000019f0| 73 74 72 69 6e 67 29 3b | 0a 58 73 74 61 74 69 63 |string);|.Xstatic|
|00001a00| 20 76 6f 69 64 20 69 6e | 74 65 72 72 75 70 74 20 | void in|terrupt |
|00001a10| 66 61 72 20 74 69 6d 65 | 72 5f 68 61 6e 64 6c 65 |far time|r_handle|
|00001a20| 72 28 69 6e 74 20 65 73 | 2c 69 6e 74 20 64 73 2c |r(int es|,int ds,|
|00001a30| 69 6e 74 20 64 69 2c 69 | 6e 74 20 73 69 2c 69 6e |int di,i|nt si,in|
|00001a40| 74 20 62 70 2c 0a 58 09 | 09 69 6e 74 20 73 70 2c |t bp,.X.|.int sp,|
|00001a50| 69 6e 74 20 62 78 2c 69 | 6e 74 20 64 78 2c 69 6e |int bx,i|nt dx,in|
|00001a60| 74 20 63 78 2c 69 6e 74 | 20 61 78 2c 69 6e 74 20 |t cx,int| ax,int |
|00001a70| 69 70 2c 69 6e 74 20 63 | 73 2c 69 6e 74 20 66 6c |ip,int c|s,int fl|
|00001a80| 61 67 73 29 3b 0a 58 76 | 6f 69 64 20 6d 61 69 6e |ags);.Xv|oid main|
|00001a90| 28 69 6e 74 20 61 72 67 | 63 2c 20 63 68 61 72 20 |(int arg|c, char |
|00001aa0| 2a 61 72 67 76 5b 5d 29 | 3b 0a 58 23 69 66 64 65 |*argv[])|;.X#ifde|
|00001ab0| 66 20 44 45 42 55 47 0a | 58 73 74 61 74 69 63 20 |f DEBUG.|Xstatic |
|00001ac0| 76 6f 69 64 20 64 75 6d | 70 5f 74 61 62 6c 65 28 |void dum|p_table(|
|00001ad0| 76 6f 69 64 29 3b 0a 58 | 73 74 61 74 69 63 20 76 |void);.X|static v|
|00001ae0| 6f 69 64 20 74 65 73 74 | 5f 73 65 61 72 63 68 28 |oid test|_search(|
|00001af0| 76 6f 69 64 29 3b 0a 58 | 73 74 61 74 69 63 20 76 |void);.X|static v|
|00001b00| 6f 69 64 20 64 69 73 70 | 28 6c 6f 6e 67 20 6e 29 |oid disp|(long n)|
|00001b10| 3b 0a 58 23 65 6e 64 69 | 66 0a 58 0a 58 73 74 61 |;.X#endi|f.X.Xsta|
|00001b20| 74 69 63 20 63 68 61 72 | 20 72 63 73 69 64 5b 5d |tic char| rcsid[]|
|00001b30| 20 3d 20 22 24 48 65 61 | 64 65 72 3a 20 50 52 4f | = "$Hea|der: PRO|
|00001b40| 46 2e 43 5e 76 20 31 2e | 31 20 38 38 2f 31 31 2f |F.C^v 1.|1 88/11/|
|00001b50| 32 30 20 31 37 3a 33 33 | 3a 31 36 20 64 64 73 20 |20 17:33|:16 dds |
|00001b60| 52 65 6c 20 24 22 3b 0a | 58 0a 58 76 6f 69 64 20 |Rel $";.|X.Xvoid |
|00001b70| 0a 58 70 72 6f 66 5f 73 | 74 61 72 74 28 63 68 61 |.Xprof_s|tart(cha|
|00001b80| 72 20 2a 20 61 72 67 76 | 30 29 0a 58 7b 0a 58 09 |r * argv|0).X{.X.|
|00001b90| 46 49 4c 45 20 2a 66 3b | 0a 58 09 73 74 61 74 69 |FILE *f;|.X.stati|
|00001ba0| 63 20 63 68 61 72 20 66 | 6e 61 6d 65 5b 36 35 5d |c char f|name[65]|
|00001bb0| 3b 0a 58 09 73 74 61 74 | 69 63 20 63 68 61 72 20 |;.X.stat|ic char |
|00001bc0| 6c 69 6e 65 5b 4c 49 4e | 45 4c 45 4e 5d 3b 0a 58 |line[LIN|ELEN];.X|
|00001bd0| 09 73 74 61 74 69 63 20 | 63 68 61 72 20 73 74 72 |.static |char str|
|00001be0| 31 5b 53 54 52 4c 45 4e | 5d 2c 20 73 74 72 32 5b |1[STRLEN|], str2[|
|00001bf0| 53 54 52 4c 45 4e 5d 2c | 20 73 74 72 33 5b 53 54 |STRLEN],| str3[ST|
|00001c00| 52 4c 45 4e 5d 2c 20 73 | 74 72 34 5b 53 54 52 4c |RLEN], s|tr4[STRL|
|00001c10| 45 4e 5d 2c 20 0a 58 09 | 09 20 20 20 20 73 74 72 |EN], .X.|.    str|
|00001c20| 35 5b 53 54 52 4c 45 4e | 5d 3b 0a 58 09 65 6e 75 |5[STRLEN|];.X.enu|
|00001c30| 6d 20 7b 73 65 61 72 63 | 68 73 65 67 73 2c 20 73 |m {searc|hsegs, s|
|00001c40| 63 61 6e 73 65 67 73 2c | 20 73 65 61 72 63 68 70 |cansegs,| searchp|
|00001c50| 72 6f 63 73 2c 20 73 63 | 61 6e 70 72 6f 63 73 20 |rocs, sc|anprocs |
|00001c60| 7d 20 73 74 61 74 65 3b | 0a 58 09 73 74 61 74 69 |} state;|.X.stati|
|00001c70| 63 20 63 68 61 72 20 2a | 73 74 61 74 65 5f 65 72 |c char *|state_er|
|00001c80| 72 73 5b 5d 20 3d 20 7b | 0a 58 09 09 22 73 74 61 |rs[] = {|.X.."sta|
|00001c90| 72 74 20 6f 66 20 73 65 | 67 6d 65 6e 74 20 64 65 |rt of se|gment de|
|00001ca0| 66 69 6e 69 74 69 6f 6e | 73 22 2c 0a 58 09 09 22 |finition|s",.X.."|
|00001cb0| 45 4e 44 43 4f 44 45 20 | 73 65 67 6d 65 6e 74 20 |ENDCODE |segment |
|00001cc0| 64 65 66 69 6e 69 74 69 | 6f 6e 22 2c 0a 58 09 09 |definiti|on",.X..|
|00001cd0| 22 74 68 65 20 60 60 50 | 75 62 6c 69 63 73 20 62 |"the ``P|ublics b|
|00001ce0| 79 20 56 61 6c 75 65 27 | 27 20 6c 69 6e 65 22 2c |y Value'|' line",|
|00001cf0| 0a 58 09 09 22 61 64 64 | 72 65 73 73 20 67 72 65 |.X.."add|ress gre|
|00001d00| 61 74 65 72 20 74 68 61 | 6e 20 45 4e 44 43 4f 44 |ater tha|n ENDCOD|
|00001d10| 45 20 77 61 73 20 66 6f | 75 6e 64 22 0a 58 09 7d |E was fo|und".X.}|
|00001d20| 3b 0a 58 09 75 6e 73 69 | 67 6e 65 64 20 69 6e 74 |;.X.unsi|gned int|
|00001d30| 20 73 65 67 2c 20 6f 66 | 66 3b 0a 58 09 75 6e 73 | seg, of|f;.X.uns|
|00001d40| 69 67 6e 65 64 20 6c 6f | 6e 67 20 65 6e 64 63 6f |igned lo|ng endco|
|00001d50| 64 65 3b 0a 58 09 69 6e | 74 20 6c 69 6e 65 6e 75 |de;.X.in|t linenu|
|00001d60| 6d 20 3d 20 30 3b 0a 58 | 09 75 6e 73 69 67 6e 65 |m = 0;.X|.unsigne|
|00001d70| 64 20 6c 6f 6e 67 20 6d | 61 69 6e 5f 61 64 64 72 |d long m|ain_addr|
|00001d80| 2c 20 61 64 64 72 3b 0a | 58 09 6c 6f 6e 67 20 6d |, addr;.|X.long m|
|00001d90| 61 69 6e 5f 6f 66 66 73 | 65 74 20 3d 20 2d 31 3b |ain_offs|et = -1;|
|00001da0| 0a 58 09 76 6f 69 64 20 | 66 61 72 20 2a 20 6d 61 |.X.void |far * ma|
|00001db0| 69 6e 5f 70 3b 0a 58 0a | 58 09 2f 2a 20 46 69 6e |in_p;.X.|X./* Fin|
|00001dc0| 64 20 74 68 65 20 61 64 | 64 72 65 73 73 20 6f 66 |d the ad|dress of|
|00001dd0| 20 6d 61 69 6e 20 74 6f | 20 61 64 6a 75 73 74 20 | main to| adjust |
|00001de0| 65 76 65 72 79 74 68 69 | 6e 67 20 65 6c 73 65 20 |everythi|ng else |
|00001df0| 2a 2f 0a 58 09 6d 61 69 | 6e 5f 70 20 3d 20 28 76 |*/.X.mai|n_p = (v|
|00001e00| 6f 69 64 20 66 61 72 20 | 2a 29 6d 61 69 6e 3b 0a |oid far |*)main;.|
|00001e10| 58 09 6d 61 69 6e 5f 61 | 64 64 72 20 3d 20 28 28 |X.main_a|ddr = ((|
|00001e20| 75 6e 73 69 67 6e 65 64 | 20 6c 6f 6e 67 29 46 50 |unsigned| long)FP|
|00001e30| 5f 53 45 47 28 6d 61 69 | 6e 5f 70 29 20 3c 3c 20 |_SEG(mai|n_p) << |
|00001e40| 34 29 20 2b 20 0a 58 09 | 09 20 20 20 20 20 28 75 |4) + .X.|.     (u|
|00001e50| 6e 73 69 67 6e 65 64 20 | 6c 6f 6e 67 29 46 50 5f |nsigned |long)FP_|
|00001e60| 4f 46 46 28 6d 61 69 6e | 5f 70 29 3b 0a 58 09 23 |OFF(main|_p);.X.#|
|00001e70| 69 66 64 65 66 20 44 45 | 42 55 47 0a 58 09 70 72 |ifdef DE|BUG.X.pr|
|00001e80| 69 6e 74 66 28 22 6d 61 | 69 6e 3d 25 30 38 6c 78 |intf("ma|in=%08lx|
|00001e90| 5c 6e 22 2c 20 6d 61 69 | 6e 5f 61 64 64 72 29 3b |\n", mai|n_addr);|
|00001ea0| 0a 58 09 23 65 6e 64 69 | 66 0a 58 0a 58 09 61 64 |.X.#endi|f.X.X.ad|
|00001eb0| 64 5f 70 72 6f 63 28 22 | 44 4f 53 22 2c 20 30 6c |d_proc("|DOS", 0l|
|00001ec0| 2c 20 61 62 73 6f 6c 75 | 74 65 29 3b 0a 58 09 73 |, absolu|te);.X.s|
|00001ed0| 74 72 63 70 79 28 66 6e | 61 6d 65 2c 20 61 72 67 |trcpy(fn|ame, arg|
|00001ee0| 76 30 29 3b 0a 58 09 73 | 74 72 63 70 79 28 73 74 |v0);.X.s|trcpy(st|
|00001ef0| 72 72 63 68 72 28 66 6e | 61 6d 65 2c 20 27 2e 27 |rrchr(fn|ame, '.'|
|00001f00| 29 2c 20 22 2e 4d 41 50 | 22 29 3b 0a 58 0a 58 09 |), ".MAP|");.X.X.|
|00001f10| 69 66 20 28 28 66 20 3d | 20 66 6f 70 65 6e 28 66 |if ((f =| fopen(f|
|00001f20| 6e 61 6d 65 2c 20 22 72 | 22 29 29 20 3d 3d 20 4e |name, "r|")) == N|
|00001f30| 55 4c 4c 29 20 7b 0a 58 | 09 09 70 65 72 72 6f 72 |ULL) {.X|..perror|
|00001f40| 28 66 6e 61 6d 65 29 3b | 0a 58 09 09 65 78 69 74 |(fname);|.X..exit|
|00001f50| 28 31 29 3b 0a 58 09 7d | 0a 58 0a 58 09 73 74 61 |(1);.X.}|.X.X.sta|
|00001f60| 74 65 20 3d 20 73 65 61 | 72 63 68 73 65 67 73 3b |te = sea|rchsegs;|
|00001f70| 0a 58 09 77 68 69 6c 65 | 20 28 66 67 65 74 73 28 |.X.while| (fgets(|
|00001f80| 6c 69 6e 65 2c 20 4c 49 | 4e 45 4c 45 4e 2c 20 66 |line, LI|NELEN, f|
|00001f90| 29 29 20 7b 0a 58 09 09 | 6c 69 6e 65 6e 75 6d 2b |)) {.X..|linenum+|
|00001fa0| 2b 3b 0a 58 09 09 73 77 | 69 74 63 68 20 28 73 74 |+;.X..sw|itch (st|
|00001fb0| 61 74 65 29 20 7b 0a 58 | 09 09 63 61 73 65 20 73 |ate) {.X|..case s|
|00001fc0| 65 61 72 63 68 73 65 67 | 73 20 3a 0a 58 09 09 09 |earchseg|s :.X...|
|00001fd0| 69 66 20 28 73 73 63 61 | 6e 66 28 6c 69 6e 65 2c |if (ssca|nf(line,|
|00001fe0| 20 22 20 25 73 20 25 73 | 20 25 73 20 25 73 20 25 | " %s %s| %s %s %|
|00001ff0| 73 20 22 2c 20 0a 58 09 | 09 09 09 20 20 20 73 74 |s ", .X.|...   st|
|00002000| 72 31 2c 20 73 74 72 32 | 2c 20 73 74 72 33 2c 20 |r1, str2|, str3, |
|00002010| 73 74 72 34 2c 20 73 74 | 72 35 29 20 3d 3d 20 35 |str4, st|r5) == 5|
|00002020| 20 26 26 20 0a 58 09 09 | 09 09 20 20 20 73 74 72 | && .X..|..   str|
|00002030| 63 6d 70 28 73 74 72 31 | 2c 20 22 53 74 61 72 74 |cmp(str1|, "Start|
|00002040| 22 29 20 3d 3d 20 30 20 | 26 26 20 0a 58 09 09 09 |") == 0 |&& .X...|
|00002050| 09 20 20 20 73 74 72 63 | 6d 70 28 73 74 72 32 2c |.   strc|mp(str2,|
|00002060| 20 22 53 74 6f 70 22 29 | 20 3d 3d 20 30 20 26 26 | "Stop")| == 0 &&|
|00002070| 20 0a 58 09 09 09 09 20 | 20 20 73 74 72 63 6d 70 | .X.... |  strcmp|
|00002080| 28 73 74 72 33 2c 20 22 | 4c 65 6e 67 74 68 22 29 |(str3, "|Length")|
|00002090| 20 3d 3d 20 30 20 26 26 | 20 0a 58 09 09 09 09 20 | == 0 &&| .X.... |
|000020a0| 20 20 73 74 72 63 6d 70 | 28 73 74 72 34 2c 20 22 |  strcmp|(str4, "|
|000020b0| 4e 61 6d 65 22 29 20 3d | 3d 20 30 20 26 26 20 0a |Name") =|= 0 && .|
|000020c0| 58 09 09 09 09 20 20 20 | 73 74 72 63 6d 70 28 73 |X....   |strcmp(s|
|000020d0| 74 72 35 2c 20 22 43 6c | 61 73 73 22 29 20 3d 3d |tr5, "Cl|ass") ==|
|000020e0| 20 30 29 0a 58 09 09 09 | 09 73 74 61 74 65 20 3d | 0).X...|.state =|
|000020f0| 20 73 63 61 6e 73 65 67 | 73 3b 0a 58 09 09 09 62 | scanseg|s;.X...b|
|00002100| 72 65 61 6b 3b 0a 58 09 | 09 63 61 73 65 20 73 63 |reak;.X.|.case sc|
|00002110| 61 6e 73 65 67 73 20 3a | 0a 58 09 09 09 69 66 20 |ansegs :|.X...if |
|00002120| 28 73 73 63 61 6e 66 28 | 6c 69 6e 65 2c 20 22 20 |(sscanf(|line, " |
|00002130| 25 6c 78 48 20 25 2a 6c | 78 48 20 25 2a 6c 78 48 |%lxH %*l|xH %*lxH|
|00002140| 20 25 2a 73 20 25 73 20 | 22 2c 20 0a 58 09 09 09 | %*s %s |", .X...|
|00002150| 09 20 20 20 26 65 6e 64 | 63 6f 64 65 2c 20 73 74 |.   &end|code, st|
|00002160| 72 31 29 20 21 3d 20 32 | 29 20 7b 0a 58 09 09 09 |r1) != 2|) {.X...|
|00002170| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,|
|00002180| 20 0a 58 09 09 09 09 09 | 22 25 73 28 25 64 29 20 | .X.....|"%s(%d) |
|00002190| 3a 20 55 6e 61 62 6c 65 | 20 74 6f 20 70 61 72 73 |: Unable| to pars|
|000021a0| 65 20 6c 69 6e 65 20 3a | 20 25 73 5c 6e 22 2c 20 |e line :| %s\n", |
|000021b0| 0a 58 09 09 09 09 09 66 | 6e 61 6d 65 2c 20 6c 69 |.X.....f|name, li|
|000021c0| 6e 65 6e 75 6d 2c 20 6c | 69 6e 65 29 3b 0a 58 09 |nenum, l|ine);.X.|
|000021d0| 09 09 09 65 78 69 74 28 | 31 29 3b 0a 58 09 09 09 |...exit(|1);.X...|
|000021e0| 7d 0a 58 09 09 09 69 66 | 20 28 73 74 72 63 6d 70 |}.X...if| (strcmp|
|000021f0| 28 73 74 72 31 2c 20 22 | 45 4e 44 43 4f 44 45 22 |(str1, "|ENDCODE"|
|00002200| 29 20 3d 3d 20 30 29 0a | 58 09 09 09 09 73 74 61 |) == 0).|X....sta|
|00002210| 74 65 20 3d 20 73 65 61 | 72 63 68 70 72 6f 63 73 |te = sea|rchprocs|
|00002220| 3b 0a 58 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |;.X...br|eak;.X..|
|00002230| 63 61 73 65 20 73 65 61 | 72 63 68 70 72 6f 63 73 |case sea|rchprocs|
|00002240| 20 3a 0a 58 09 09 09 69 | 66 20 28 73 73 63 61 6e | :.X...i|f (sscan|
|00002250| 66 28 6c 69 6e 65 2c 20 | 22 20 25 73 20 25 73 20 |f(line, |" %s %s |
|00002260| 25 73 20 25 73 20 22 2c | 20 73 74 72 31 2c 20 73 |%s %s ",| str1, s|
|00002270| 74 72 32 2c 20 73 74 72 | 33 2c 20 0a 58 09 09 09 |tr2, str|3, .X...|
|00002280| 09 20 20 20 73 74 72 34 | 29 20 3d 3d 20 34 20 26 |.   str4|) == 4 &|
|00002290| 26 20 0a 58 09 09 09 09 | 20 20 20 73 74 72 63 6d |& .X....|   strcm|
|000022a0| 70 28 73 74 72 31 2c 20 | 22 41 64 64 72 65 73 73 |p(str1, |"Address|
|000022b0| 22 29 20 3d 3d 20 30 20 | 26 26 20 0a 58 09 09 09 |") == 0 |&& .X...|
|000022c0| 09 20 20 20 73 74 72 63 | 6d 70 28 73 74 72 32 2c |.   strc|mp(str2,|
|000022d0| 20 22 50 75 62 6c 69 63 | 73 22 29 20 3d 3d 20 30 | "Public|s") == 0|
|000022e0| 20 26 26 20 0a 58 09 09 | 09 09 20 20 20 73 74 72 | && .X..|..   str|
|000022f0| 63 6d 70 28 73 74 72 33 | 2c 20 22 62 79 22 29 20 |cmp(str3|, "by") |
|00002300| 3d 3d 20 30 20 26 26 20 | 0a 58 09 09 09 09 20 20 |== 0 && |.X....  |
|00002310| 20 73 74 72 63 6d 70 28 | 73 74 72 34 2c 20 22 56 | strcmp(|str4, "V|
|00002320| 61 6c 75 65 22 29 20 3d | 3d 20 30 29 0a 58 09 09 |alue") =|= 0).X..|
|00002330| 09 09 73 74 61 74 65 20 | 3d 20 73 63 61 6e 70 72 |..state |= scanpr|
|00002340| 6f 63 73 3b 0a 58 09 09 | 09 62 72 65 61 6b 3b 0a |ocs;.X..|.break;.|
|00002350| 58 09 09 63 61 73 65 20 | 73 63 61 6e 70 72 6f 63 |X..case |scanproc|
|00002360| 73 20 3a 0a 58 09 09 09 | 69 66 20 28 2a 6c 69 6e |s :.X...|if (*lin|
|00002370| 65 20 3d 3d 20 27 5c 6e | 27 20 7c 7c 20 73 73 63 |e == '\n|' || ssc|
|00002380| 61 6e 66 28 6c 69 6e 65 | 2c 20 22 20 25 78 3a 25 |anf(line|, " %x:%|
|00002390| 78 20 41 62 73 20 25 73 | 20 22 2c 20 0a 58 09 09 |x Abs %s| ", .X..|
|000023a0| 09 09 09 09 20 20 20 20 | 26 73 65 67 2c 20 26 6f |....    |&seg, &o|
|000023b0| 66 66 2c 20 73 74 72 31 | 29 20 3d 3d 20 33 29 0a |ff, str1|) == 3).|
|000023c0| 58 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |X....bre|ak;.X...|
|000023d0| 69 66 20 28 73 73 63 61 | 6e 66 28 6c 69 6e 65 2c |if (ssca|nf(line,|
|000023e0| 20 22 20 25 78 3a 25 78 | 20 25 73 20 22 2c 20 26 | " %x:%x| %s ", &|
|000023f0| 73 65 67 2c 20 26 6f 66 | 66 2c 20 73 74 72 31 29 |seg, &of|f, str1)|
|00002400| 20 21 3d 20 33 29 20 7b | 0a 58 09 09 09 09 66 70 | != 3) {|.X....fp|
|00002410| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 20 0a 58 |rintf(st|derr, .X|
|00002420| 09 09 09 09 09 22 25 73 | 28 25 64 29 20 3a 20 55 |....."%s|(%d) : U|
|00002430| 6e 61 62 6c 65 20 74 6f | 20 70 61 72 73 65 20 6c |nable to| parse l|
|00002440| 69 6e 65 20 3a 20 25 73 | 5c 6e 22 2c 20 0a 58 09 |ine : %s|\n", .X.|
|00002450| 09 09 09 09 66 6e 61 6d | 65 2c 20 6c 69 6e 65 6e |....fnam|e, linen|
|00002460| 75 6d 2c 20 6c 69 6e 65 | 29 3b 0a 58 09 09 09 09 |um, line|);.X....|
|00002470| 65 78 69 74 28 31 29 3b | 0a 58 09 09 09 7d 0a 58 |exit(1);|.X...}.X|
|00002480| 09 09 09 61 64 64 72 20 | 3d 20 28 28 75 6e 73 69 |...addr |= ((unsi|
|00002490| 67 6e 65 64 20 6c 6f 6e | 67 29 73 65 67 20 3c 3c |gned lon|g)seg <<|
|000024a0| 20 34 29 20 2b 20 28 75 | 6e 73 69 67 6e 65 64 20 | 4) + (u|nsigned |
|000024b0| 6c 6f 6e 67 29 6f 66 66 | 3b 0a 58 09 09 09 69 66 |long)off|;.X...if|
|000024c0| 20 28 73 74 72 63 6d 70 | 28 73 74 72 31 2c 20 22 | (strcmp|(str1, "|
|000024d0| 5f 6d 61 69 6e 22 29 20 | 3d 3d 20 30 29 0a 58 09 |_main") |== 0).X.|
|000024e0| 09 09 09 6d 61 69 6e 5f | 6f 66 66 73 65 74 20 3d |...main_|offset =|
|000024f0| 20 61 64 64 72 3b 0a 58 | 09 09 09 61 64 64 5f 70 | addr;.X|...add_p|
|00002500| 72 6f 63 28 73 74 72 31 | 2c 20 61 64 64 72 20 2b |roc(str1|, addr +|
|00002510| 20 6d 61 69 6e 5f 61 64 | 64 72 2c 20 72 65 6c 6f | main_ad|dr, relo|
|00002520| 63 61 74 61 62 6c 65 29 | 3b 0a 58 09 09 09 69 66 |catable)|;.X...if|
|00002530| 20 28 61 64 64 72 20 3e | 20 65 6e 64 63 6f 64 65 | (addr >| endcode|
|00002540| 29 20 7b 0a 58 09 09 09 | 09 2f 2a 0a 58 09 09 09 |) {.X...|./*.X...|
|00002550| 09 20 2a 20 41 64 64 20 | 68 65 72 65 20 69 6e 20 |. * Add |here in |
|00002560| 61 73 63 65 6e 64 69 6e | 67 20 6f 72 64 65 72 20 |ascendin|g order |
|00002570| 61 6e 79 20 69 6d 70 6f | 72 74 61 6e 74 0a 58 09 |any impo|rtant.X.|
|00002580| 09 09 09 20 2a 20 6d 65 | 6d 6f 72 79 20 62 6f 75 |... * me|mory bou|
|00002590| 6e 64 73 2e 20 4f 6e 65 | 20 69 64 65 61 20 77 6f |nds. One| idea wo|
|000025a0| 75 6c 64 20 62 65 20 74 | 6f 20 70 61 72 74 69 74 |uld be t|o partit|
|000025b0| 69 6f 6e 0a 58 09 09 09 | 09 20 2a 20 74 68 65 20 |ion.X...|. * the |
|000025c0| 42 49 4f 53 20 69 6e 20 | 74 61 73 6b 73 20 65 2e |BIOS in |tasks e.|
|000025d0| 67 2e 20 70 72 69 6e 74 | 65 72 2c 20 73 63 72 65 |g. print|er, scre|
|000025e0| 65 6e 20 65 74 63 2e 0a | 58 09 09 09 09 20 2a 2f |en etc..|X.... */|
|000025f0| 0a 58 09 09 09 09 61 64 | 64 5f 70 72 6f 63 28 22 |.X....ad|d_proc("|
|00002600| 55 4e 4b 4f 57 4e 22 2c | 20 61 64 64 72 20 2b 20 |UNKOWN",| addr + |
|00002610| 6d 61 69 6e 5f 61 64 64 | 72 20 2b 20 31 2c 20 0a |main_add|r + 1, .|
|00002620| 58 09 09 09 09 09 20 20 | 72 65 6c 6f 63 61 74 61 |X.....  |relocata|
|00002630| 62 6c 65 29 3b 0a 58 09 | 09 09 09 61 64 64 5f 70 |ble);.X.|...add_p|
|00002640| 72 6f 63 28 22 45 47 41 | 5f 42 49 4f 53 22 2c 20 |roc("EGA|_BIOS", |
|00002650| 30 78 63 30 30 30 30 6c | 2c 20 61 62 73 6f 6c 75 |0xc0000l|, absolu|
|00002660| 74 65 29 3b 0a 58 09 09 | 09 09 61 64 64 5f 70 72 |te);.X..|..add_pr|
|00002670| 6f 63 28 22 46 44 49 53 | 4b 5f 42 49 4f 53 22 2c |oc("FDIS|K_BIOS",|
|00002680| 20 30 78 63 38 30 30 30 | 6c 2c 20 61 62 73 6f 6c | 0xc8000|l, absol|
|00002690| 75 74 65 29 3b 0a 58 09 | 09 09 09 61 64 64 5f 70 |ute);.X.|...add_p|
|000026a0| 72 6f 63 28 22 53 59 53 | 54 45 4d 5f 52 4f 4d 22 |roc("SYS|TEM_ROM"|
|000026b0| 2c 20 30 78 66 30 30 30 | 30 6c 2c 20 61 62 73 6f |, 0xf000|0l, abso|
|000026c0| 6c 75 74 65 29 3b 0a 58 | 09 09 09 09 61 64 64 5f |lute);.X|....add_|
|000026d0| 70 72 6f 63 28 22 53 59 | 53 54 45 4d 5f 42 49 4f |proc("SY|STEM_BIO|
|000026e0| 53 22 2c 20 30 78 66 65 | 30 30 30 6c 2c 20 61 62 |S", 0xfe|000l, ab|
|000026f0| 73 6f 6c 75 74 65 29 3b | 0a 58 09 09 09 09 61 64 |solute);|.X....ad|
|00002700| 64 5f 70 72 6f 63 28 22 | 4f 55 54 45 52 5f 53 50 |d_proc("|OUTER_SP|
|00002710| 41 43 45 22 2c 20 28 75 | 6e 73 69 67 6e 65 64 20 |ACE", (u|nsigned |
|00002720| 6c 6f 6e 67 29 2d 31 6c | 2c 20 0a 58 09 09 09 09 |long)-1l|, .X....|
|00002730| 09 20 20 61 62 73 6f 6c | 75 74 65 29 3b 0a 58 09 |.  absol|ute);.X.|
|00002740| 09 09 09 66 63 6c 6f 73 | 65 28 66 29 3b 0a 58 09 |...fclos|e(f);.X.|
|00002750| 09 09 09 69 66 20 28 6d | 61 69 6e 5f 6f 66 66 73 |...if (m|ain_offs|
|00002760| 65 74 20 3d 3d 20 2d 31 | 29 20 7b 0a 58 09 09 09 |et == -1|) {.X...|
|00002770| 09 09 66 70 75 74 73 28 | 22 5f 6d 61 69 6e 20 61 |..fputs(|"_main a|
|00002780| 64 64 72 65 73 73 20 6e | 6f 74 20 66 6f 75 6e 64 |ddress n|ot found|
|00002790| 5c 6e 22 2c 20 0a 58 09 | 09 09 09 09 20 20 20 20 |\n", .X.|....    |
|000027a0| 20 20 73 74 64 65 72 72 | 29 3b 0a 58 09 09 09 09 |  stderr|);.X....|
|000027b0| 09 65 78 69 74 28 31 29 | 3b 0a 58 09 09 09 09 7d |.exit(1)|;.X....}|
|000027c0| 0a 58 09 09 09 09 61 64 | 6a 75 73 74 5f 70 72 6f |.X....ad|just_pro|
|000027d0| 63 28 6d 61 69 6e 5f 6f | 66 66 73 65 74 29 3b 0a |c(main_o|ffset);.|
|000027e0| 58 09 09 09 09 69 66 20 | 28 6f 6e 65 78 69 74 28 |X....if |(onexit(|
|000027f0| 70 72 6f 66 5f 65 6e 64 | 29 20 3d 3d 20 4e 55 4c |prof_end|) == NUL|
|00002800| 4c 29 20 7b 0a 58 09 09 | 09 09 09 66 70 75 74 73 |L) {.X..|...fputs|
|00002810| 28 22 6f 6e 65 78 69 74 | 20 66 61 69 6c 65 64 5c |("onexit| failed\|
|00002820| 6e 22 2c 20 73 74 64 65 | 72 72 29 3b 0a 58 09 09 |n", stde|rr);.X..|
|00002830| 09 09 09 65 78 69 74 28 | 31 29 3b 0a 58 09 09 09 |...exit(|1);.X...|
|00002840| 09 7d 0a 58 09 09 09 09 | 23 69 66 64 65 66 20 44 |.}.X....|#ifdef D|
|00002850| 45 42 55 47 0a 58 09 09 | 09 09 64 75 6d 70 5f 74 |EBUG.X..|..dump_t|
|00002860| 61 62 6c 65 28 29 3b 0a | 58 09 09 09 09 74 65 73 |able();.|X....tes|
|00002870| 74 5f 73 65 61 72 63 68 | 28 29 3b 0a 58 09 09 09 |t_search|();.X...|
|00002880| 09 23 65 6e 64 69 66 0a | 58 09 09 09 09 69 6e 73 |.#endif.|X....ins|
|00002890| 74 61 6c 6c 5f 69 6e 74 | 28 29 3b 0a 58 09 09 09 |tall_int|();.X...|
|000028a0| 09 72 65 74 75 72 6e 20 | 3b 0a 58 09 09 09 7d 0a |.return |;.X...}.|
|000028b0| 58 09 09 7d 0a 58 09 7d | 0a 58 09 2f 2a 20 53 6f |X..}.X.}|.X./* So|
|000028c0| 6d 65 74 68 69 6e 67 20 | 77 65 6e 74 20 77 72 6f |mething |went wro|
|000028d0| 6e 67 20 2a 2f 0a 58 09 | 66 70 72 69 6e 74 66 28 |ng */.X.|fprintf(|
|000028e0| 73 74 64 65 72 72 2c 20 | 22 25 73 28 25 64 29 20 |stderr, |"%s(%d) |
|000028f0| 45 4f 46 20 72 65 61 63 | 68 65 64 20 62 65 66 6f |EOF reac|hed befo|
|00002900| 72 65 20 25 73 5c 6e 22 | 2c 20 66 6e 61 6d 65 2c |re %s\n"|, fname,|
|00002910| 20 6c 69 6e 65 6e 75 6d | 2c 20 0a 58 09 09 73 74 | linenum|, .X..st|
|00002920| 61 74 65 5f 65 72 72 73 | 5b 73 74 61 74 65 5d 29 |ate_errs|[state])|
|00002930| 3b 0a 58 09 65 78 69 74 | 28 31 29 3b 0a 58 7d 0a |;.X.exit|(1);.X}.|
|00002940| 58 0a 58 2f 2a 20 54 68 | 65 20 73 74 72 75 63 74 |X.X/* Th|e struct|
|00002950| 75 72 65 20 77 68 65 72 | 65 20 70 72 6f 63 65 64 |ure wher|e proced|
|00002960| 75 72 65 73 20 61 72 65 | 20 6b 65 70 74 20 2a 2f |ures are| kept */|
|00002970| 0a 58 73 74 61 74 69 63 | 20 73 74 72 75 63 74 20 |.Xstatic| struct |
|00002980| 70 72 6f 63 5f 64 61 74 | 61 20 7b 0a 58 09 75 6e |proc_dat|a {.X.un|
|00002990| 73 69 67 6e 65 64 20 6c | 6f 6e 67 20 61 64 64 72 |signed l|ong addr|
|000029a0| 20 3b 09 09 09 2f 2a 20 | 50 72 6f 63 65 64 75 72 | ;.../* |Procedur|
|000029b0| 65 20 73 74 61 72 74 20 | 61 64 64 72 65 73 73 20 |e start |address |
|000029c0| 2a 2f 0a 58 09 75 6e 73 | 69 67 6e 65 64 20 6c 6f |*/.X.uns|igned lo|
|000029d0| 6e 67 20 63 6f 75 6e 74 | 20 3b 09 09 09 2f 2a 20 |ng count| ;.../* |
|000029e0| 48 69 74 20 63 6f 75 6e | 74 20 73 65 74 20 62 79 |Hit coun|t set by|
|000029f0| 20 69 6e 74 65 72 72 75 | 70 74 20 2a 2f 0a 58 09 | interru|pt */.X.|
|00002a00| 63 68 61 72 20 2a 6e 61 | 6d 65 20 3b 09 09 09 09 |char *na|me ;....|
|00002a10| 2f 2a 20 50 72 6f 63 65 | 64 75 72 65 20 6e 61 6d |/* Proce|dure nam|
|00002a20| 65 20 2a 2f 0a 58 09 65 | 6e 75 6d 20 72 65 6c 6f |e */.X.e|num relo|
|00002a30| 63 61 74 69 6f 6e 20 72 | 65 6c 20 3b 09 09 09 2f |cation r|el ;.../|
|00002a40| 2a 20 52 65 6c 6f 63 61 | 74 69 6f 6e 20 74 79 70 |* Reloca|tion typ|
|00002a50| 65 20 2a 2f 0a 58 7d 20 | 2a 70 72 6f 63 73 3b 0a |e */.X} |*procs;.|
|00002a60| 58 0a 58 2f 2a 20 4e 75 | 6d 62 65 72 20 6f 66 20 |X.X/* Nu|mber of |
|00002a70| 70 72 6f 63 65 64 75 72 | 65 73 20 61 6e 64 20 61 |procedur|es and a|
|00002a80| 6c 6c 6f 63 61 74 65 64 | 20 6d 65 6d 6f 72 79 20 |llocated| memory |
|00002a90| 2a 2f 0a 58 73 74 61 74 | 69 63 20 69 6e 74 20 70 |*/.Xstat|ic int p|
|00002aa0| 72 6f 63 6e 75 6d 2c 20 | 70 72 6f 63 61 6c 6c 6f |rocnum, |procallo|
|00002ab0| 63 3b 0a 58 0a 58 2f 2a | 20 53 69 7a 65 20 6f 66 |c;.X.X/*| Size of|
|00002ac0| 20 6d 65 6d 6f 72 79 20 | 61 6c 6c 6f 63 61 74 69 | memory |allocati|
|00002ad0| 6f 6e 20 63 68 75 6e 6b | 20 2a 2f 0a 58 23 64 65 |on chunk| */.X#de|
|00002ae0| 66 69 6e 65 20 42 4c 4b | 09 33 30 0a 58 0a 58 2f |fine BLK|.30.X.X/|
|00002af0| 2a 20 44 65 66 69 6e 65 | 20 61 20 70 72 6f 63 65 |* Define| a proce|
|00002b00| 64 75 72 65 20 2a 2f 0a | 58 73 74 61 74 69 63 20 |dure */.|Xstatic |
|00002b10| 76 6f 69 64 20 0a 58 61 | 64 64 5f 70 72 6f 63 28 |void .Xa|dd_proc(|
|00002b20| 63 68 61 72 20 2a 20 6e | 61 6d 65 2c 20 75 6e 73 |char * n|ame, uns|
|00002b30| 69 67 6e 65 64 20 6c 6f | 6e 67 20 61 64 64 72 2c |igned lo|ng addr,|
|00002b40| 20 65 6e 75 6d 20 72 65 | 6c 6f 63 61 74 69 6f 6e | enum re|location|
|00002b50| 20 72 65 6c 29 0a 58 7b | 0a 58 09 69 66 20 28 70 | rel).X{|.X.if (p|
|00002b60| 72 6f 63 73 20 3d 3d 20 | 4e 55 4c 4c 29 20 7b 0a |rocs == |NULL) {.|
|00002b70| 58 09 09 70 72 6f 63 73 | 20 3d 20 78 6d 61 6c 6c |X..procs| = xmall|
|00002b80| 6f 63 28 73 69 7a 65 6f | 66 28 73 74 72 75 63 74 |oc(sizeo|f(struct|
|00002b90| 20 70 72 6f 63 5f 64 61 | 74 61 29 20 2a 20 42 4c | proc_da|ta) * BL|
|00002ba0| 4b 29 3b 0a 58 09 09 70 | 72 6f 63 61 6c 6c 6f 63 |K);.X..p|rocalloc|
|00002bb0| 20 3d 20 42 4c 4b 3b 0a | 58 09 7d 0a 58 09 70 72 | = BLK;.|X.}.X.pr|
|00002bc0| 6f 63 73 5b 70 72 6f 63 | 6e 75 6d 5d 2e 61 64 64 |ocs[proc|num].add|
|00002bd0| 72 20 3d 20 61 64 64 72 | 3b 0a 58 09 70 72 6f 63 |r = addr|;.X.proc|
|00002be0| 73 5b 70 72 6f 63 6e 75 | 6d 5d 2e 63 6f 75 6e 74 |s[procnu|m].count|
|00002bf0| 20 3d 20 30 6c 3b 0a 58 | 09 70 72 6f 63 73 5b 70 | = 0l;.X|.procs[p|
|00002c00| 72 6f 63 6e 75 6d 5d 2e | 6e 61 6d 65 20 3d 20 73 |rocnum].|name = s|
|00002c10| 74 72 73 61 76 65 28 6e | 61 6d 65 29 3b 0a 58 09 |trsave(n|ame);.X.|
|00002c20| 70 72 6f 63 73 5b 70 72 | 6f 63 6e 75 6d 5d 2e 72 |procs[pr|ocnum].r|
|00002c30| 65 6c 20 3d 20 72 65 6c | 3b 0a 58 09 70 72 6f 63 |el = rel|;.X.proc|
|00002c40| 6e 75 6d 2b 2b 3b 0a 58 | 09 69 66 20 28 70 72 6f |num++;.X|.if (pro|
|00002c50| 63 6e 75 6d 20 3e 3d 20 | 70 72 6f 63 61 6c 6c 6f |cnum >= |procallo|
|00002c60| 63 29 20 7b 0a 58 09 09 | 70 72 6f 63 61 6c 6c 6f |c) {.X..|procallo|
|00002c70| 63 20 2b 3d 20 42 4c 4b | 3b 0a 58 09 09 70 72 6f |c += BLK|;.X..pro|
|00002c80| 63 73 20 3d 20 78 72 65 | 61 6c 6c 6f 63 28 70 72 |cs = xre|alloc(pr|
|00002c90| 6f 63 73 2c 20 73 69 7a | 65 6f 66 28 73 74 72 75 |ocs, siz|eof(stru|
|00002ca0| 63 74 20 70 72 6f 63 5f | 64 61 74 61 29 20 2a 20 |ct proc_|data) * |
|00002cb0| 0a 58 09 09 09 09 20 20 | 70 72 6f 63 61 6c 6c 6f |.X....  |procallo|
|00002cc0| 63 29 3b 0a 58 09 7d 0a | 58 7d 0a 58 0a 58 2f 2a |c);.X.}.|X}.X.X/*|
|00002cd0| 20 0a 58 20 2a 20 41 64 | 6a 75 73 74 20 64 6f 77 | .X * Ad|just dow|
|00002ce0| 6e 77 61 72 64 73 20 74 | 68 65 20 6d 65 6d 6f 72 |nwards t|he memor|
|00002cf0| 79 20 61 6c 6c 6f 63 61 | 74 65 64 20 66 6f 72 20 |y alloca|ted for |
|00002d00| 70 72 6f 63 65 64 75 72 | 65 20 64 61 74 61 20 73 |procedur|e data s|
|00002d10| 74 6f 72 61 67 65 20 0a | 58 20 2a 20 61 6e 64 20 |torage .|X * and |
|00002d20| 73 75 62 74 72 61 63 74 | 20 6d 61 69 6e 5f 6f 66 |subtract| main_of|
|00002d30| 66 73 65 74 2e 0a 58 20 | 2a 2f 0a 58 73 74 61 74 |fset..X |*/.Xstat|
|00002d40| 69 63 20 76 6f 69 64 0a | 58 61 64 6a 75 73 74 5f |ic void.|Xadjust_|
|00002d50| 70 72 6f 63 28 6c 6f 6e | 67 20 6d 61 69 6e 5f 6f |proc(lon|g main_o|
|00002d60| 66 66 73 65 74 29 0a 58 | 7b 0a 58 09 73 74 72 75 |ffset).X|{.X.stru|
|00002d70| 63 74 20 70 72 6f 63 5f | 64 61 74 61 20 2a 70 70 |ct proc_|data *pp|
|00002d80| 3b 0a 58 0a 58 09 78 72 | 65 61 6c 6c 6f 63 28 70 |;.X.X.xr|ealloc(p|
|00002d90| 72 6f 63 73 2c 20 73 69 | 7a 65 6f 66 28 73 74 72 |rocs, si|zeof(str|
|00002da0| 75 63 74 20 70 72 6f 63 | 5f 64 61 74 61 29 20 2a |uct proc|_data) *|
|00002db0| 20 70 72 6f 63 6e 75 6d | 29 3b 0a 58 09 66 6f 72 | procnum|);.X.for|
|00002dc0| 20 28 70 70 20 3d 20 70 | 72 6f 63 73 20 3b 20 70 | (pp = p|rocs ; p|
|00002dd0| 70 20 3c 20 26 70 72 6f | 63 73 5b 70 72 6f 63 6e |p < &pro|cs[procn|
|00002de0| 75 6d 5d 20 3b 20 70 70 | 2b 2b 29 0a 58 09 09 69 |um] ; pp|++).X..i|
|00002df0| 66 20 28 70 70 2d 3e 72 | 65 6c 20 3d 3d 20 72 65 |f (pp->r|el == re|
|00002e00| 6c 6f 63 61 74 61 62 6c | 65 29 0a 58 09 09 09 70 |locatabl|e).X...p|
|00002e10| 70 2d 3e 61 64 64 72 20 | 2d 3d 20 6d 61 69 6e 5f |p->addr |-= main_|
|00002e20| 6f 66 66 73 65 74 3b 0a | 58 7d 0a 58 0a 58 2f 2a |offset;.|X}.X.X/*|
|00002e30| 20 54 69 6d 65 72 20 69 | 6e 74 65 72 72 75 70 74 | Timer i|nterrupt|
|00002e40| 20 28 44 6f 20 6e 6f 74 | 20 75 73 65 20 30 78 31 | (Do not| use 0x1|
|00002e50| 63 20 73 69 6e 63 65 20 | 69 74 20 69 73 20 61 6c |c since |it is al|
|00002e60| 77 61 79 73 20 63 61 6c | 6c 65 64 20 66 72 6f 6d |ways cal|led from|
|00002e70| 20 42 49 4f 53 29 20 2a | 2f 0a 58 23 64 65 66 69 | BIOS) *|/.X#defi|
|00002e80| 6e 65 20 54 49 4d 45 52 | 5f 49 4e 54 09 38 0a 58 |ne TIMER|_INT.8.X|
|00002e90| 0a 58 2f 2a 20 4f 6c 64 | 20 74 69 6d 65 72 20 68 |.X/* Old| timer h|
|00002ea0| 61 6e 64 6c 65 72 20 74 | 6f 20 63 68 61 69 6e 20 |andler t|o chain |
|00002eb0| 74 6f 20 2a 2f 0a 58 73 | 74 61 74 69 63 20 76 6f |to */.Xs|tatic vo|
|00002ec0| 69 64 20 28 69 6e 74 65 | 72 72 75 70 74 20 66 61 |id (inte|rrupt fa|
|00002ed0| 72 20 2a 20 6f 6c 64 5f | 74 69 6d 65 72 5f 68 61 |r * old_|timer_ha|
|00002ee0| 6e 64 6c 65 72 29 28 76 | 6f 69 64 29 3b 0a 58 0a |ndler)(v|oid);.X.|
|00002ef0| 58 2f 2a 20 44 69 73 61 | 62 6c 65 20 74 69 6d 65 |X/* Disa|ble time|
|00002f00| 72 20 68 61 6e 64 6c 65 | 72 20 61 6e 64 20 70 72 |r handle|r and pr|
|00002f10| 69 6e 74 20 74 68 65 20 | 70 72 6f 66 69 6c 69 6e |int the |profilin|
|00002f20| 67 20 72 65 73 75 6c 74 | 73 20 2a 2f 0a 58 73 74 |g result|s */.Xst|
|00002f30| 61 74 69 63 20 69 6e 74 | 0a 58 70 72 6f 66 5f 65 |atic int|.Xprof_e|
|00002f40| 6e 64 28 76 6f 69 64 29 | 0a 58 7b 0a 58 09 72 65 |nd(void)|.X{.X.re|
|00002f50| 67 69 73 74 65 72 20 69 | 3b 0a 58 09 46 49 4c 45 |gister i|;.X.FILE|
|00002f60| 20 2a 66 3b 0a 58 0a 58 | 09 5f 64 6f 73 5f 73 65 | *f;.X.X|._dos_se|
|00002f70| 74 76 65 63 74 28 54 49 | 4d 45 52 5f 49 4e 54 2c |tvect(TI|MER_INT,|
|00002f80| 20 6f 6c 64 5f 74 69 6d | 65 72 5f 68 61 6e 64 6c | old_tim|er_handl|
|00002f90| 65 72 29 3b 0a 58 09 69 | 66 20 28 28 66 20 3d 20 |er);.X.i|f ((f = |
|00002fa0| 66 6f 70 65 6e 28 22 70 | 72 6f 66 2e 6f 75 74 22 |fopen("p|rof.out"|
|00002fb0| 2c 20 22 77 22 29 29 20 | 3d 3d 20 4e 55 4c 4c 29 |, "w")) |== NULL)|
|00002fc0| 20 7b 0a 58 09 09 70 65 | 72 72 6f 72 28 22 70 72 | {.X..pe|rror("pr|
|00002fd0| 6f 66 2e 6f 75 74 22 29 | 3b 0a 58 09 09 72 65 74 |of.out")|;.X..ret|
|00002fe0| 75 72 6e 20 31 3b 0a 58 | 09 7d 0a 58 09 66 6f 72 |urn 1;.X|.}.X.for|
|00002ff0| 20 28 69 20 3d 20 30 20 | 3b 20 69 20 3c 20 70 72 | (i = 0 |; i < pr|
|00003000| 6f 63 6e 75 6d 20 3b 20 | 69 2b 2b 29 0a 58 09 09 |ocnum ; |i++).X..|
|00003010| 66 70 72 69 6e 74 66 28 | 66 2c 20 22 25 73 20 25 |fprintf(|f, "%s %|
|00003020| 6c 64 5c 6e 22 2c 20 70 | 72 6f 63 73 5b 69 5d 2e |ld\n", p|rocs[i].|
|00003030| 6e 61 6d 65 2c 20 70 72 | 6f 63 73 5b 69 5d 2e 63 |name, pr|ocs[i].c|
|00003040| 6f 75 6e 74 29 3b 0a 58 | 09 66 63 6c 6f 73 65 28 |ount);.X|.fclose(|
|00003050| 66 29 3b 0a 58 09 72 65 | 74 75 72 6e 20 30 3b 0a |f);.X.re|turn 0;.|
|00003060| 58 7d 0a 58 0a 58 2f 2a | 20 41 6c 6c 6f 63 61 74 |X}.X.X/*| Allocat|
|00003070| 65 20 6d 65 6d 6f 72 79 | 20 77 69 74 68 20 65 72 |e memory| with er|
|00003080| 72 6f 72 20 63 68 65 63 | 6b 69 6e 67 2e 20 2a 2f |ror chec|king. */|
|00003090| 0a 58 73 74 61 74 69 63 | 20 76 6f 69 64 20 2a 20 |.Xstatic| void * |
|000030a0| 0a 58 78 6d 61 6c 6c 6f | 63 28 73 69 7a 65 5f 74 |.Xxmallo|c(size_t|
|000030b0| 20 73 69 7a 65 29 0a 58 | 7b 0a 58 09 76 6f 69 64 | size).X|{.X.void|
|000030c0| 20 2a 20 70 3b 0a 58 0a | 58 09 69 66 20 28 28 70 | * p;.X.|X.if ((p|
|000030d0| 20 3d 20 6d 61 6c 6c 6f | 63 28 73 69 7a 65 29 29 | = mallo|c(size))|
|000030e0| 20 3d 3d 20 4e 55 4c 4c | 29 20 7b 0a 58 09 09 66 | == NULL|) {.X..f|
|000030f0| 70 75 74 73 28 22 50 72 | 6f 66 69 6c 65 72 20 3a |puts("Pr|ofiler :|
|00003100| 20 4f 75 74 20 6f 66 20 | 6d 65 6d 6f 72 79 5c 6e | Out of |memory\n|
|00003110| 22 2c 20 73 74 64 65 72 | 72 29 3b 0a 58 09 09 65 |", stder|r);.X..e|
|00003120| 78 69 74 28 31 29 3b 0a | 58 09 7d 0a 58 09 72 65 |xit(1);.|X.}.X.re|
|00003130| 74 75 72 6e 20 70 3b 0a | 58 7d 0a 58 0a 58 2f 2a |turn p;.|X}.X.X/*|
|00003140| 20 52 65 61 6c 6c 6f 63 | 61 74 65 20 6d 65 6d 6f | Realloc|ate memo|
|00003150| 72 79 20 77 69 74 68 20 | 65 72 72 6f 72 20 63 68 |ry with |error ch|
|00003160| 65 63 6b 69 6e 67 2e 20 | 20 2a 2f 0a 58 73 74 61 |ecking. | */.Xsta|
|00003170| 74 69 63 20 76 6f 69 64 | 20 2a 20 0a 58 78 72 65 |tic void| * .Xxre|
|00003180| 61 6c 6c 6f 63 28 76 6f | 69 64 20 2a 20 62 75 66 |alloc(vo|id * buf|
|00003190| 66 65 72 2c 20 73 69 7a | 65 5f 74 20 73 69 7a 65 |fer, siz|e_t size|
|000031a0| 29 0a 58 7b 0a 58 09 76 | 6f 69 64 20 2a 20 70 3b |).X{.X.v|oid * p;|
|000031b0| 0a 58 0a 58 0a 58 09 69 | 66 20 28 28 70 20 3d 20 |.X.X.X.i|f ((p = |
|000031c0| 72 65 61 6c 6c 6f 63 28 | 62 75 66 66 65 72 2c 20 |realloc(|buffer, |
|000031d0| 73 69 7a 65 29 29 20 3d | 3d 20 4e 55 4c 4c 29 20 |size)) =|= NULL) |
|000031e0| 7b 0a 58 09 09 66 70 75 | 74 73 28 22 50 72 6f 66 |{.X..fpu|ts("Prof|
|000031f0| 69 6c 65 72 20 3a 20 4f | 75 74 20 6f 66 20 6d 65 |iler : O|ut of me|
|00003200| 6d 6f 72 79 5c 6e 22 2c | 20 73 74 64 65 72 72 29 |mory\n",| stderr)|
|00003210| 3b 0a 58 09 09 65 78 69 | 74 28 31 29 3b 0a 58 09 |;.X..exi|t(1);.X.|
|00003220| 7d 0a 58 09 72 65 74 75 | 72 6e 20 70 3b 0a 58 7d |}.X.retu|rn p;.X}|
|00003230| 0a 58 0a 58 2f 2a 20 53 | 61 76 65 20 61 20 73 74 |.X.X/* S|ave a st|
|00003240| 72 69 6e 67 20 69 6e 20 | 61 6c 6c 6f 63 61 74 65 |ring in |allocate|
|00003250| 64 20 6d 65 6d 6f 72 79 | 20 2a 2f 0a 58 73 74 61 |d memory| */.Xsta|
|00003260| 74 69 63 20 63 68 61 72 | 20 2a 20 0a 58 73 74 72 |tic char| * .Xstr|
|00003270| 73 61 76 65 28 63 68 61 | 72 20 2a 20 73 74 72 69 |save(cha|r * stri|
|00003280| 6e 67 29 0a 58 7b 0a 58 | 09 72 65 74 75 72 6e 20 |ng).X{.X|.return |
|00003290| 73 74 72 63 70 79 28 78 | 6d 61 6c 6c 6f 63 28 73 |strcpy(x|malloc(s|
|000032a0| 74 72 6c 65 6e 28 73 74 | 72 69 6e 67 29 20 2b 20 |trlen(st|ring) + |
|000032b0| 31 29 2c 20 73 74 72 69 | 6e 67 29 3b 0a 58 7d 0a |1), stri|ng);.X}.|
|000032c0| 58 0a 58 2f 2a 20 54 68 | 65 20 74 69 6d 65 72 20 |X.X/* Th|e timer |
|000032d0| 69 6e 74 65 72 72 75 70 | 74 20 68 61 6e 64 6c 65 |interrup|t handle|
|000032e0| 72 20 2a 2f 0a 58 73 74 | 61 74 69 63 20 76 6f 69 |r */.Xst|atic voi|
|000032f0| 64 20 69 6e 74 65 72 72 | 75 70 74 20 66 61 72 20 |d interr|upt far |
|00003300| 0a 58 74 69 6d 65 72 5f | 68 61 6e 64 6c 65 72 28 |.Xtimer_|handler(|
|00003310| 65 73 2c 64 73 2c 64 69 | 2c 73 69 2c 62 70 2c 73 |es,ds,di|,si,bp,s|
|00003320| 70 2c 62 78 2c 64 78 2c | 63 78 2c 61 78 2c 69 70 |p,bx,dx,|cx,ax,ip|
|00003330| 2c 63 73 2c 66 6c 61 67 | 73 29 0a 58 7b 0a 58 09 |,cs,flag|s).X{.X.|
|00003340| 6c 6f 6e 67 20 61 64 64 | 72 3b 0a 58 09 69 6e 74 |long add|r;.X.int|
|00003350| 20 6c 6f 77 65 72 2c 20 | 75 70 70 65 72 2c 20 6d | lower, |upper, m|
|00003360| 69 64 64 6c 65 3b 0a 58 | 0a 58 09 61 64 64 72 20 |iddle;.X|.X.addr |
|00003370| 3d 20 28 28 75 6e 73 69 | 67 6e 65 64 20 6c 6f 6e |= ((unsi|gned lon|
|00003380| 67 29 63 73 20 3c 3c 20 | 34 29 20 2b 20 28 75 6e |g)cs << |4) + (un|
|00003390| 73 69 67 6e 65 64 20 6c | 6f 6e 67 29 69 70 3b 0a |signed l|ong)ip;.|
|000033a0| 58 0a 58 09 23 69 66 64 | 65 66 20 44 45 42 55 47 |X.X.#ifd|ef DEBUG|
|000033b0| 0a 58 09 64 69 73 70 28 | 61 64 64 72 29 3b 0a 58 |.X.disp(|addr);.X|
|000033c0| 09 23 65 6e 64 69 66 0a | 58 09 2f 2a 20 0a 58 09 |.#endif.|X./* .X.|
|000033d0| 20 2a 20 50 72 65 63 6f | 6e 64 69 74 69 6f 6e 20 | * Preco|ndition |
|000033e0| 3a 20 0a 58 09 20 2a 20 | 7b 20 61 5b 6b 5d 20 3c |: .X. * |{ a[k] <|
|000033f0| 20 61 5b 6b 2b 31 5d 20 | 26 20 30 20 3c 3d 20 6b | a[k+1] |& 0 <= k|
|00003400| 20 3c 3d 20 70 72 6f 63 | 6e 75 6d 20 26 20 61 5b | <= proc|num & a[|
|00003410| 30 5d 20 3c 3d 20 61 64 | 64 72 20 3c 20 61 5b 70 |0] <= ad|dr < a[p|
|00003420| 72 6f 63 6e 75 6d 5d 20 | 7d 0a 58 09 20 2a 2f 0a |rocnum] |}.X. */.|
|00003430| 58 09 6c 6f 77 65 72 20 | 3d 20 30 3b 0a 58 09 75 |X.lower |= 0;.X.u|
|00003440| 70 70 65 72 20 3d 20 70 | 72 6f 63 6e 75 6d 20 2d |pper = p|rocnum -|
|00003450| 20 32 3b 0a 58 09 2f 2a | 0a 58 09 20 2a 20 49 6e | 2;.X./*|.X. * In|
|00003460| 76 61 72 69 61 6e 74 20 | 3a 0a 58 09 20 2a 20 7b |variant |:.X. * {|
|00003470| 20 61 5b 6c 5d 20 3c 3d | 20 61 64 64 72 20 3c 20 | a[l] <=| addr < |
|00003480| 61 5b 75 5d 20 7d 0a 58 | 09 20 2a 20 56 61 72 69 |a[u] }.X|. * Vari|
|00003490| 61 6e 74 20 3a 0a 58 09 | 20 2a 20 7b 20 75 20 2d |ant :.X.| * { u -|
|000034a0| 20 6c 20 7d 0a 58 09 20 | 2a 2f 0a 58 09 77 68 69 | l }.X. |*/.X.whi|
|000034b0| 6c 65 20 28 75 70 70 65 | 72 20 2d 20 6c 6f 77 65 |le (uppe|r - lowe|
|000034c0| 72 20 3e 20 31 29 20 7b | 0a 58 09 09 6d 69 64 64 |r > 1) {|.X..midd|
|000034d0| 6c 65 20 3d 20 28 6c 6f | 77 65 72 20 2b 20 75 70 |le = (lo|wer + up|
|000034e0| 70 65 72 29 20 2f 20 32 | 3b 0a 58 09 09 2f 2a 0a |per) / 2|;.X../*.|
|000034f0| 58 09 09 20 2a 20 6d 20 | 3d 20 6c 20 2b 20 28 75 |X.. * m |= l + (u|
|00003500| 20 2d 20 6c 29 20 2f 20 | 32 20 3d 20 28 75 20 2b | - l) / |2 = (u +|
|00003510| 20 6c 29 20 2f 20 32 0a | 58 09 09 20 2a 20 6d 20 | l) / 2.|X.. * m |
|00003520| 3d 20 6c 20 2b 20 28 75 | 20 2d 20 6c 29 20 2f 20 |= l + (u| - l) / |
|00003530| 32 20 26 20 75 20 2d 20 | 6c 20 3e 20 31 20 69 6d |2 & u - |l > 1 im|
|00003540| 70 6c 69 65 73 20 6c 20 | 3c 20 6d 20 3c 20 75 20 |plies l |< m < u |
|00003550| 61 73 3a 0a 58 09 09 20 | 2a 20 6d 20 3d 20 28 75 |as:.X.. |* m = (u|
|00003560| 20 2b 20 6c 29 20 2f 20 | 32 20 3c 20 28 75 20 2b | + l) / |2 < (u +|
|00003570| 20 75 29 20 2f 20 32 20 | 3d 20 75 20 69 6d 70 6c | u) / 2 |= u impl|
|00003580| 69 65 73 20 6d 20 3c 20 | 75 0a 58 09 09 20 2a 20 |ies m < |u.X.. * |
|00003590| 6d 20 3d 20 6c 20 2b 20 | 28 75 20 2d 20 6c 29 20 |m = l + |(u - l) |
|000035a0| 2f 20 32 20 3e 3d 20 6c | 20 2b 20 31 20 69 6d 70 |/ 2 >= l| + 1 imp|
|000035b0| 6c 69 65 73 20 6d 20 3e | 20 6c 0a 58 09 09 20 2a |lies m >| l.X.. *|
|000035c0| 2f 0a 58 09 09 69 66 20 | 28 70 72 6f 63 73 5b 6d |/.X..if |(procs[m|
|000035d0| 69 64 64 6c 65 5d 2e 61 | 64 64 72 20 3c 3d 20 61 |iddle].a|ddr <= a|
|000035e0| 64 64 72 29 0a 58 09 09 | 09 6c 6f 77 65 72 20 3d |ddr).X..|.lower =|
|000035f0| 20 6d 69 64 64 6c 65 3b | 0a 58 09 09 65 6c 73 65 | middle;|.X..else|
|00003600| 0a 58 09 09 09 75 70 70 | 65 72 20 3d 20 6d 69 64 |.X...upp|er = mid|
|00003610| 64 6c 65 3b 0a 58 09 7d | 0a 58 09 2f 2a 0a 58 09 |dle;.X.}|.X./*.X.|
|00003620| 20 2a 20 50 6f 73 74 63 | 6f 6e 64 69 74 69 6f 6e | * Postc|ondition|
|00003630| 20 3a 0a 58 09 20 2a 20 | 7b 20 61 5b 66 5d 20 3c | :.X. * |{ a[f] <|
|00003640| 3d 20 61 64 64 72 20 3c | 20 61 5b 66 20 2b 20 31 |= addr <| a[f + 1|
|00003650| 5d 20 7d 20 77 68 69 63 | 68 20 63 61 6e 20 62 65 |] } whic|h can be|
|00003660| 20 65 78 70 72 65 73 73 | 65 64 20 61 73 3a 0a 58 | express|ed as:.X|
|00003670| 09 20 2a 20 7b 20 61 5b | 6c 5d 20 3c 3d 20 61 64 |. * { a[|l] <= ad|
|00003680| 64 72 20 3c 20 61 5b 75 | 5d 20 26 20 75 20 3d 20 |dr < a[u|] & u = |
|00003690| 6c 20 2b 20 31 20 7d 0a | 58 09 20 2a 2f 0a 58 09 |l + 1 }.|X. */.X.|
|000036a0| 70 72 6f 63 73 5b 6c 6f | 77 65 72 5d 2e 63 6f 75 |procs[lo|wer].cou|
|000036b0| 6e 74 2b 2b 3b 0a 58 09 | 28 2a 6f 6c 64 5f 74 69 |nt++;.X.|(*old_ti|
|000036c0| 6d 65 72 5f 68 61 6e 64 | 6c 65 72 29 28 29 3b 0a |mer_hand|ler)();.|
|000036d0| 58 09 2f 2a 20 53 69 6c | 65 6e 63 65 20 77 61 72 |X./* Sil|ence war|
|000036e0| 6e 69 6e 67 73 20 2a 2f | 0a 58 09 28 76 6f 69 64 |nings */|.X.(void|
|000036f0| 29 28 65 73 2c 64 73 2c | 64 69 2c 73 69 2c 62 70 |)(es,ds,|di,si,bp|
|00003700| 2c 73 70 2c 62 78 2c 64 | 78 2c 63 78 2c 61 78 2c |,sp,bx,d|x,cx,ax,|
|00003710| 69 70 2c 63 73 2c 66 6c | 61 67 73 29 3b 0a 58 7d |ip,cs,fl|ags);.X}|
|00003720| 0a 58 0a 58 2f 2a 20 49 | 6e 73 74 61 6c 6c 20 74 |.X.X/* I|nstall t|
|00003730| 68 65 20 69 6e 74 65 72 | 72 75 70 74 20 64 72 69 |he inter|rupt dri|
|00003740| 76 65 72 20 2a 2f 0a 58 | 73 74 61 74 69 63 20 76 |ver */.X|static v|
|00003750| 6f 69 64 0a 58 69 6e 73 | 74 61 6c 6c 5f 69 6e 74 |oid.Xins|tall_int|
|00003760| 28 76 6f 69 64 29 0a 58 | 7b 0a 58 09 6f 6c 64 5f |(void).X|{.X.old_|
|00003770| 74 69 6d 65 72 5f 68 61 | 6e 64 6c 65 72 20 3d 20 |timer_ha|ndler = |
|00003780| 5f 64 6f 73 5f 67 65 74 | 76 65 63 74 28 54 49 4d |_dos_get|vect(TIM|
|00003790| 45 52 5f 49 4e 54 29 3b | 0a 58 09 5f 64 6f 73 5f |ER_INT);|.X._dos_|
|000037a0| 73 65 74 76 65 63 74 28 | 54 49 4d 45 52 5f 49 4e |setvect(|TIMER_IN|
|000037b0| 54 2c 20 74 69 6d 65 72 | 5f 68 61 6e 64 6c 65 72 |T, timer|_handler|
|000037c0| 29 3b 0a 58 7d 0a 58 0a | 58 23 69 66 64 65 66 20 |);.X}.X.|X#ifdef |
|000037d0| 44 45 42 55 47 0a 58 0a | 58 2f 2a 20 56 65 72 79 |DEBUG.X.|X/* Very|
|000037e0| 20 66 61 73 74 20 64 69 | 73 70 6c 61 79 20 6f 66 | fast di|splay of|
|000037f0| 20 61 20 6e 75 6d 62 65 | 72 20 6f 6e 20 74 68 65 | a numbe|r on the|
|00003800| 20 73 63 72 65 65 6e 2e | 20 28 44 65 66 69 6e 65 | screen.| (Define|
|00003810| 20 4d 44 41 20 66 6f 72 | 20 6d 6f 6e 6f 20 61 64 | MDA for| mono ad|
|00003820| 61 70 74 65 72 29 20 2a | 2f 0a 58 0a 58 23 69 66 |apter) *|/.X.X#if|
|00003830| 64 65 66 20 4d 44 41 0a | 58 23 64 65 66 69 6e 65 |def MDA.|X#define|
|00003840| 20 52 45 47 45 4e 5f 42 | 41 53 45 20 30 78 62 30 | REGEN_B|ASE 0xb0|
|00003850| 30 30 30 30 30 30 0a 58 | 23 65 6c 73 65 20 2f 2a |000000.X|#else /*|
|00003860| 20 43 47 41 20 2a 2f 0a | 58 23 64 65 66 69 6e 65 | CGA */.|X#define|
|00003870| 20 52 45 47 45 4e 5f 42 | 41 53 45 20 30 78 62 38 | REGEN_B|ASE 0xb8|
|00003880| 30 30 30 30 30 30 0a 58 | 23 65 6e 64 69 66 0a 58 |000000.X|#endif.X|
|00003890| 0a 58 73 74 61 74 69 63 | 20 76 6f 69 64 0a 58 64 |.Xstatic| void.Xd|
|000038a0| 69 73 70 28 6c 6f 6e 67 | 20 6e 29 0a 58 7b 0a 58 |isp(long| n).X{.X|
|000038b0| 09 72 65 67 69 73 74 65 | 72 20 69 3b 0a 58 09 63 |.registe|r i;.X.c|
|000038c0| 68 61 72 20 66 61 72 20 | 2a 20 73 62 20 3d 20 28 |har far |* sb = (|
|000038d0| 63 68 61 72 20 66 61 72 | 20 2a 29 28 52 45 47 45 |char far| *)(REGE|
|000038e0| 4e 5f 42 41 53 45 20 2b | 20 32 30 29 3b 0a 58 0a |N_BASE +| 20);.X.|
|000038f0| 58 09 66 6f 72 20 28 69 | 20 3d 20 30 20 3b 20 69 |X.for (i| = 0 ; i|
|00003900| 20 3c 20 38 20 3b 20 69 | 2b 2b 29 20 7b 0a 58 09 | < 8 ; i|++) {.X.|
|00003910| 09 2a 73 62 20 3d 20 22 | 30 31 32 33 34 35 36 37 |.*sb = "|01234567|
|00003920| 38 39 61 62 63 64 65 66 | 22 5b 6e 20 25 20 31 36 |89abcdef|"[n % 16|
|00003930| 5d 3b 0a 58 09 09 6e 20 | 2f 3d 20 31 36 3b 0a 58 |];.X..n |/= 16;.X|
|00003940| 09 09 73 62 20 2d 3d 20 | 32 3b 0a 58 09 7d 0a 58 |..sb -= |2;.X.}.X|
|00003950| 7d 0a 58 0a 58 2f 2a 20 | 54 65 73 74 20 74 68 65 |}.X.X/* |Test the|
|00003960| 20 62 69 6e 61 72 79 20 | 73 65 61 72 63 68 20 61 | binary |search a|
|00003970| 6c 67 6f 72 69 74 68 6d | 20 2a 2f 0a 58 73 74 61 |lgorithm| */.Xsta|
|00003980| 74 69 63 20 76 6f 69 64 | 0a 58 70 72 5f 6e 61 6d |tic void|.Xpr_nam|
|00003990| 65 28 6c 6f 6e 67 20 61 | 64 64 72 29 0a 58 7b 0a |e(long a|ddr).X{.|
|000039a0| 58 09 69 6e 74 20 6c 6f | 77 65 72 2c 20 75 70 70 |X.int lo|wer, upp|
|000039b0| 65 72 2c 20 6d 69 64 64 | 6c 65 3b 0a 58 0a 58 09 |er, midd|le;.X.X.|
|000039c0| 2f 2a 20 0a 58 09 20 2a | 20 50 72 65 63 6f 6e 64 |/* .X. *| Precond|
|000039d0| 69 74 69 6f 6e 20 3a 20 | 0a 58 09 20 2a 20 7b 20 |ition : |.X. * { |
|000039e0| 61 5b 6b 5d 20 3c 20 61 | 5b 6b 2b 31 5d 20 26 20 |a[k] < a|[k+1] & |
|000039f0| 30 20 3c 3d 20 6b 20 3c | 3d 20 70 72 6f 63 6e 75 |0 <= k <|= procnu|
|00003a00| 6d 20 26 20 61 5b 30 5d | 20 3c 3d 20 61 64 64 72 |m & a[0]| <= addr|
|00003a10| 20 3c 20 61 5b 70 72 6f | 63 6e 75 6d 5d 20 7d 0a | < a[pro|cnum] }.|
|00003a20| 58 09 20 2a 2f 0a 58 09 | 6c 6f 77 65 72 20 3d 20 |X. */.X.|lower = |
|00003a30| 30 3b 0a 58 09 75 70 70 | 65 72 20 3d 20 70 72 6f |0;.X.upp|er = pro|
|00003a40| 63 6e 75 6d 20 2d 20 32 | 3b 0a 58 09 2f 2a 0a 58 |cnum - 2|;.X./*.X|
|00003a50| 09 20 2a 20 49 6e 76 61 | 72 69 61 6e 74 20 3a 0a |. * Inva|riant :.|
|00003a60| 58 09 20 2a 20 7b 20 61 | 5b 6c 5d 20 3c 3d 20 61 |X. * { a|[l] <= a|
|00003a70| 64 64 72 20 3c 20 61 5b | 75 5d 20 7d 0a 58 09 20 |ddr < a[|u] }.X. |
|00003a80| 2a 20 56 61 72 69 61 6e | 74 20 3a 0a 58 09 20 2a |* Varian|t :.X. *|
|00003a90| 20 7b 20 75 20 2d 20 6c | 20 7d 0a 58 09 20 2a 2f | { u - l| }.X. */|
|00003aa0| 0a 58 09 77 68 69 6c 65 | 20 28 75 70 70 65 72 20 |.X.while| (upper |
|00003ab0| 2d 20 6c 6f 77 65 72 20 | 3e 20 31 29 20 7b 0a 58 |- lower |> 1) {.X|
|00003ac0| 09 09 6d 69 64 64 6c 65 | 20 3d 20 28 6c 6f 77 65 |..middle| = (lowe|
|00003ad0| 72 20 2b 20 75 70 70 65 | 72 29 20 2f 20 32 3b 0a |r + uppe|r) / 2;.|
|00003ae0| 58 09 09 2f 2a 0a 58 09 | 09 20 2a 20 6d 20 3d 20 |X../*.X.|. * m = |
|00003af0| 6c 20 2b 20 28 75 20 2d | 20 6c 29 20 2f 20 32 20 |l + (u -| l) / 2 |
|00003b00| 3d 20 28 75 20 2b 20 6c | 29 20 2f 20 32 0a 58 09 |= (u + l|) / 2.X.|
|00003b10| 09 20 2a 20 6d 20 3d 20 | 6c 20 2b 20 28 75 20 2d |. * m = |l + (u -|
|00003b20| 20 6c 29 20 2f 20 32 20 | 26 20 75 20 2d 20 6c 20 | l) / 2 |& u - l |
|00003b30| 3e 20 31 20 69 6d 70 6c | 69 65 73 20 6c 20 3c 20 |> 1 impl|ies l < |
|00003b40| 6d 20 3c 20 75 20 61 73 | 3a 0a 58 09 09 20 2a 20 |m < u as|:.X.. * |
|00003b50| 6d 20 3d 20 28 75 20 2b | 20 6c 29 20 2f 20 32 20 |m = (u +| l) / 2 |
|00003b60| 3c 20 28 75 20 2b 20 75 | 29 20 2f 20 32 20 3d 20 |< (u + u|) / 2 = |
|00003b70| 75 20 69 6d 70 6c 69 65 | 73 20 6d 20 3c 20 75 0a |u implie|s m < u.|
|00003b80| 58 09 09 20 2a 20 6d 20 | 3d 20 6c 20 2b 20 28 75 |X.. * m |= l + (u|
|00003b90| 20 2d 20 6c 29 20 2f 20 | 32 20 3e 3d 20 6c 20 2b | - l) / |2 >= l +|
|00003ba0| 20 31 20 69 6d 70 6c 69 | 65 73 20 6d 20 3e 20 6c | 1 impli|es m > l|
|00003bb0| 0a 58 09 09 20 2a 2f 0a | 58 09 09 69 66 20 28 70 |.X.. */.|X..if (p|
|00003bc0| 72 6f 63 73 5b 6d 69 64 | 64 6c 65 5d 2e 61 64 64 |rocs[mid|dle].add|
|00003bd0| 72 20 3c 3d 20 61 64 64 | 72 29 0a 58 09 09 09 6c |r <= add|r).X...l|
|00003be0| 6f 77 65 72 20 3d 20 6d | 69 64 64 6c 65 3b 0a 58 |ower = m|iddle;.X|
|00003bf0| 09 09 65 6c 73 65 0a 58 | 09 09 09 75 70 70 65 72 |..else.X|...upper|
|00003c00| 20 3d 20 6d 69 64 64 6c | 65 3b 0a 58 09 09 70 72 | = middl|e;.X..pr|
|00003c10| 69 6e 74 66 28 22 25 35 | 64 20 25 35 64 20 25 35 |intf("%5|d %5d %5|
|00003c20| 64 5c 6e 22 2c 20 6c 6f | 77 65 72 2c 20 6d 69 64 |d\n", lo|wer, mid|
|00003c30| 64 6c 65 2c 20 75 70 70 | 65 72 29 3b 0a 58 09 7d |dle, upp|er);.X.}|
|00003c40| 0a 58 09 2f 2a 0a 58 09 | 20 2a 20 50 6f 73 74 63 |.X./*.X.| * Postc|
|00003c50| 6f 6e 64 69 74 69 6f 6e | 20 3a 0a 58 09 20 2a 20 |ondition| :.X. * |
|00003c60| 7b 20 61 5b 66 5d 20 3c | 3d 20 61 64 64 72 20 3c |{ a[f] <|= addr <|
|00003c70| 20 61 5b 66 20 2b 20 31 | 5d 20 7d 20 77 68 69 63 | a[f + 1|] } whic|
|00003c80| 68 20 63 61 6e 20 62 65 | 20 65 78 70 72 65 73 73 |h can be| express|
|00003c90| 65 64 20 61 73 3a 0a 58 | 09 20 2a 20 7b 20 61 5b |ed as:.X|. * { a[|
|00003ca0| 6c 5d 20 3c 3d 20 61 64 | 64 72 20 3c 20 61 5b 75 |l] <= ad|dr < a[u|
|00003cb0| 5d 20 26 20 75 20 3d 20 | 6c 20 2b 20 31 20 7d 0a |] & u = |l + 1 }.|
|00003cc0| 58 09 20 2a 2f 0a 58 09 | 70 75 74 73 28 70 72 6f |X. */.X.|puts(pro|
|00003cd0| 63 73 5b 6c 6f 77 65 72 | 5d 2e 6e 61 6d 65 29 3b |cs[lower|].name);|
|00003ce0| 0a 58 7d 0a 58 0a 58 2f | 2a 20 49 6e 74 65 72 61 |.X}.X.X/|* Intera|
|00003cf0| 63 74 20 77 69 74 68 20 | 74 68 65 20 75 73 65 72 |ct with |the user|
|00003d00| 20 74 65 73 74 69 6e 67 | 20 74 68 65 20 73 65 61 | testing| the sea|
|00003d10| 72 63 68 20 61 6c 67 6f | 72 69 74 68 6d 20 2a 2f |rch algo|rithm */|
|00003d20| 0a 58 73 74 61 74 69 63 | 20 76 6f 69 64 0a 58 74 |.Xstatic| void.Xt|
|00003d30| 65 73 74 5f 73 65 61 72 | 63 68 28 29 0a 58 7b 0a |est_sear|ch().X{.|
|00003d40| 58 09 63 68 61 72 20 62 | 75 66 66 5b 38 30 5d 3b |X.char b|uff[80];|
|00003d50| 0a 58 09 6c 6f 6e 67 20 | 61 64 64 72 3b 0a 58 0a |.X.long |addr;.X.|
|00003d60| 58 09 70 75 74 73 28 22 | 45 6e 74 65 72 20 2d 31 |X.puts("|Enter -1|
|00003d70| 20 74 6f 20 66 69 6e 69 | 73 68 22 29 3b 0a 58 09 | to fini|sh");.X.|
|00003d80| 64 6f 7b 0a 58 09 09 67 | 65 74 73 28 62 75 66 66 |do{.X..g|ets(buff|
|00003d90| 29 3b 0a 58 09 09 73 73 | 63 61 6e 66 28 62 75 66 |);.X..ss|canf(buf|
|00003da0| 66 2c 20 22 20 25 6c 78 | 20 22 2c 20 26 61 64 64 |f, " %lx| ", &add|
|00003db0| 72 29 3b 0a 58 09 09 70 | 72 5f 6e 61 6d 65 28 61 |r);.X..p|r_name(a|
|00003dc0| 64 64 72 29 3b 0a 58 09 | 7d 20 77 68 69 6c 65 20 |ddr);.X.|} while |
|00003dd0| 28 61 64 64 72 20 21 3d | 20 2d 31 6c 29 3b 0a 58 |(addr !=| -1l);.X|
|00003de0| 7d 0a 58 0a 58 2f 2a 20 | 44 75 6d 70 20 74 68 65 |}.X.X/* |Dump the|
|00003df0| 20 70 72 6f 63 65 64 75 | 72 65 20 74 61 62 6c 65 | procedu|re table|
|00003e00| 20 2a 2f 0a 58 73 74 61 | 74 69 63 20 76 6f 69 64 | */.Xsta|tic void|
|00003e10| 0a 58 64 75 6d 70 5f 74 | 61 62 6c 65 28 29 0a 58 |.Xdump_t|able().X|
|00003e20| 7b 0a 58 09 73 74 72 75 | 63 74 20 70 72 6f 63 5f |{.X.stru|ct proc_|
|00003e30| 64 61 74 61 20 2a 70 64 | 3b 0a 58 0a 58 09 66 6f |data *pd|;.X.X.fo|
|00003e40| 72 20 28 70 64 20 3d 20 | 70 72 6f 63 73 20 3b 20 |r (pd = |procs ; |
|00003e50| 70 64 20 3c 20 26 70 72 | 6f 63 73 5b 70 72 6f 63 |pd < &pr|ocs[proc|
|00003e60| 6e 75 6d 5d 20 3b 20 70 | 64 2b 2b 29 0a 58 09 09 |num] ; p|d++).X..|
|00003e70| 70 72 69 6e 74 66 28 22 | 25 30 38 6c 78 20 20 20 |printf("|%08lx   |
|00003e80| 20 25 73 5c 6e 22 2c 20 | 70 64 2d 3e 61 64 64 72 | %s\n", |pd->addr|
|00003e90| 2c 20 70 64 2d 3e 6e 61 | 6d 65 29 3b 0a 58 7d 0a |, pd->na|me);.X}.|
|00003ea0| 58 23 65 6e 64 69 66 0a | 53 48 41 52 5f 45 4f 46 |X#endif.|SHAR_EOF|
|00003eb0| 0a 69 66 20 74 65 73 74 | 20 31 30 35 36 30 20 2d |.if test| 10560 -|
|00003ec0| 6e 65 20 22 60 77 63 20 | 2d 63 20 3c 20 27 70 72 |ne "`wc |-c < 'pr|
|00003ed0| 6f 66 2e 63 27 60 22 0a | 74 68 65 6e 0a 09 65 63 |of.c'`".|then..ec|
|00003ee0| 68 6f 20 73 68 61 72 3a | 20 65 72 72 6f 72 20 74 |ho shar:| error t|
|00003ef0| 72 61 6e 73 6d 69 74 74 | 69 6e 67 20 22 27 70 72 |ransmitt|ing "'pr|
|00003f00| 6f 66 2e 63 27 22 20 27 | 28 73 68 6f 75 6c 64 20 |of.c'" '|(should |
|00003f10| 68 61 76 65 20 62 65 65 | 6e 20 31 30 35 36 30 20 |have bee|n 10560 |
|00003f20| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 66 69 0a |characte|rs)'.fi.|
|00003f30| 66 69 20 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi # end| of over|
|00003f40| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 69 66 |writing |check.if|
|00003f50| 20 74 65 73 74 20 2d 66 | 20 27 70 72 6f 66 70 72 | test -f| 'profpr|
|00003f60| 74 2e 63 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |t.c'.the|n..echo |
|00003f70| 73 68 61 72 3a 20 77 69 | 6c 6c 20 6e 6f 74 20 6f |shar: wi|ll not o|
|00003f80| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00003f90| 6e 67 20 66 69 6c 65 20 | 22 27 70 72 6f 66 70 72 |ng file |"'profpr|
|00003fa0| 74 2e 63 27 22 0a 65 6c | 73 65 0a 73 65 64 20 27 |t.c'".el|se.sed '|
|00003fb0| 73 2f 5e 58 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |s/^X//' |<< \SHAR|
|00003fc0| 5f 45 4f 46 20 3e 20 27 | 70 72 6f 66 70 72 74 2e |_EOF > '|profprt.|
|00003fd0| 63 27 0a 58 2f 2a 0a 58 | 20 2a 20 50 72 69 6e 74 |c'.X/*.X| * Print|
|00003fe0| 20 61 6e 20 61 6e 61 6c | 79 73 69 73 20 6f 66 20 | an anal|ysis of |
|00003ff0| 74 68 65 20 70 72 6f 66 | 69 6c 65 72 20 72 65 73 |the prof|iler res|
|00004000| 75 6c 74 73 2e 0a 58 20 | 2a 0a 58 20 2a 20 28 43 |ults..X |*.X * (C|
|00004010| 29 20 43 6f 70 79 72 69 | 67 68 74 20 31 39 38 38 |) Copyri|ght 1988|
|00004020| 2c 20 31 39 38 39 20 44 | 69 6f 6d 69 64 69 73 20 |, 1989 D|iomidis |
|00004030| 44 2e 20 53 70 69 6e 65 | 6c 6c 69 73 2e 20 41 6c |D. Spine|llis. Al|
|00004040| 6c 20 72 69 67 68 74 73 | 20 72 65 73 65 72 76 65 |l rights| reserve|
|00004050| 64 2e 0a 58 20 2a 20 53 | 65 65 20 74 68 65 20 66 |d..X * S|ee the f|
|00004060| 69 6c 65 20 70 72 6f 66 | 70 72 74 2e 63 20 66 6f |ile prof|prt.c fo|
|00004070| 72 20 64 69 73 74 72 69 | 62 75 74 69 6f 6e 20 64 |r distri|bution d|
|00004080| 65 74 61 69 6c 73 2e 0a | 58 20 2a 20 0a 58 20 2a |etails..|X * .X *|
|00004090| 20 54 68 65 20 63 6f 64 | 65 20 63 6f 6e 74 61 69 | The cod|e contai|
|000040a0| 6e 65 64 20 68 65 72 65 | 69 6e 20 69 73 20 6e 6f |ned here|in is no|
|000040b0| 74 20 6f 70 74 69 6d 61 | 6c 2e 20 49 74 20 69 73 |t optima|l. It is|
|000040c0| 20 67 69 76 65 6e 20 61 | 73 20 61 20 73 75 62 73 | given a|s a subs|
|000040d0| 74 69 74 75 74 65 0a 58 | 20 2a 20 66 6f 72 20 61 |titute.X| * for a|
|000040e0| 20 74 65 6e 20 6c 69 6e | 65 20 61 77 6b 20 73 63 | ten lin|e awk sc|
|000040f0| 72 69 70 74 20 74 68 61 | 74 20 68 61 64 20 74 68 |ript tha|t had th|
|00004100| 65 20 73 61 6d 65 20 66 | 75 6e 63 74 69 6f 6e 61 |e same f|unctiona|
|00004110| 6c 69 74 79 2e 0a 58 20 | 2a 0a 58 20 2a 20 24 48 |lity..X |*.X * $H|
|00004120| 65 61 64 65 72 3a 20 50 | 52 4f 46 50 52 54 2e 43 |eader: P|ROFPRT.C|
|00004130| 5e 76 20 31 2e 31 20 38 | 38 2f 31 31 2f 32 30 20 |^v 1.1 8|8/11/20 |
|00004140| 31 37 3a 33 36 3a 31 32 | 20 64 64 73 20 52 65 6c |17:36:12| dds Rel|
|00004150| 20 24 0a 58 20 2a 0a 58 | 20 2a 20 24 4c 6f 67 3a | $.X *.X| * $Log:|
|00004160| 09 50 52 4f 46 50 52 54 | 2e 43 5e 76 20 24 0a 58 |.PROFPRT|.C^v $.X|
|00004170| 20 2a 20 52 65 76 69 73 | 69 6f 6e 20 31 2e 31 20 | * Revis|ion 1.1 |
|00004180| 20 38 38 2f 31 31 2f 32 | 30 20 20 31 37 3a 33 36 | 88/11/2|0  17:36|
|00004190| 3a 31 32 20 20 64 64 73 | 0a 58 20 2a 20 49 6e 69 |:12  dds|.X * Ini|
|000041a0| 74 69 61 6c 20 72 65 76 | 69 73 69 6f 6e 0a 58 20 |tial rev|ision.X |
|000041b0| 2a 20 0a 58 20 2a 2f 0a | 58 0a 58 23 69 6e 63 6c |* .X */.|X.X#incl|
|000041c0| 75 64 65 20 3c 73 74 64 | 64 65 66 2e 68 3e 0a 58 |ude <std|def.h>.X|
|000041d0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 6c 69 62 |#include| <stdlib|
|000041e0| 2e 68 3e 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 73 |.h>.X#in|clude <s|
|000041f0| 74 64 69 6f 2e 68 3e 0a | 58 0a 58 0a 58 2f 2a 20 |tdio.h>.|X.X.X/* |
|00004200| 50 72 6f 66 69 6c 65 72 | 20 6f 75 74 70 75 74 20 |Profiler| output |
|00004210| 6d 61 78 69 6d 75 6d 20 | 6c 69 6e 65 20 6c 65 6e |maximum |line len|
|00004220| 67 74 68 20 2a 2f 0a 58 | 23 64 65 66 69 6e 65 20 |gth */.X|#define |
|00004230| 4c 49 4e 45 4c 45 4e 20 | 31 32 39 0a 58 0a 58 2f |LINELEN |129.X.X/|
|00004240| 2a 20 4c 69 6e 6b 65 72 | 20 6f 75 74 70 75 74 20 |* Linker| output |
|00004250| 6d 61 78 69 6d 75 6d 20 | 73 79 6d 62 6f 6c 20 6c |maximum |symbol l|
|00004260| 65 6e 67 74 68 20 2a 2f | 0a 58 23 64 65 66 69 6e |ength */|.X#defin|
|00004270| 65 20 53 54 52 4c 45 4e | 09 36 35 0a 58 0a 58 63 |e STRLEN|.65.X.Xc|
|00004280| 68 61 72 20 2a 41 72 67 | 76 30 20 3b 0a 58 0a 58 |har *Arg|v0 ;.X.X|
|00004290| 73 74 61 74 69 63 20 63 | 68 61 72 20 72 63 73 69 |static c|har rcsi|
|000042a0| 64 5b 5d 20 3d 20 22 24 | 48 65 61 64 65 72 3a 20 |d[] = "$|Header: |
|000042b0| 50 52 4f 46 50 52 54 2e | 43 5e 76 20 31 2e 31 20 |PROFPRT.|C^v 1.1 |
|000042c0| 38 38 2f 31 31 2f 32 30 | 20 31 37 3a 33 36 3a 31 |88/11/20| 17:36:1|
|000042d0| 32 20 64 64 73 20 52 65 | 6c 20 24 22 20 3b 0a 58 |2 dds Re|l $" ;.X|
|000042e0| 0a 58 73 74 61 74 69 63 | 20 76 6f 69 64 20 75 73 |.Xstatic| void us|
|000042f0| 61 67 65 28 76 6f 69 64 | 29 20 3b 0a 58 0a 58 0a |age(void|) ;.X.X.|
|00004300| 58 73 74 61 74 69 63 20 | 76 6f 69 64 0a 58 75 73 |Xstatic |void.Xus|
|00004310| 61 67 65 28 29 0a 58 7b | 0a 58 09 66 70 72 69 6e |age().X{|.X.fprin|
|00004320| 74 66 28 73 74 64 65 72 | 72 2c 20 22 55 73 61 67 |tf(stder|r, "Usag|
|00004330| 65 20 3a 20 25 73 20 5b | 2d 68 5d 20 5b 66 69 6c |e : %s [|-h] [fil|
|00004340| 65 5d 22 2c 20 41 72 67 | 76 30 29 3b 0a 58 09 65 |e]", Arg|v0);.X.e|
|00004350| 78 69 74 28 31 29 3b 0a | 58 7d 0a 58 0a 58 76 6f |xit(1);.|X}.X.Xvo|
|00004360| 69 64 0a 58 6d 61 69 6e | 28 69 6e 74 20 61 72 67 |id.Xmain|(int arg|
|00004370| 63 2c 20 63 68 61 72 20 | 2a 61 72 67 76 5b 5d 29 |c, char |*argv[])|
|00004380| 0a 58 7b 0a 58 09 46 49 | 4c 45 20 20 20 20 20 20 |.X{.X.FI|LE      |
|00004390| 20 20 20 20 20 2a 66 3b | 0a 58 09 6c 6f 6e 67 20 |     *f;|.X.long |
|000043a0| 20 20 20 20 20 20 20 20 | 20 20 20 74 2c 20 74 6f |        |   t, to|
|000043b0| 74 61 6c 20 3d 20 30 2c | 20 6d 61 78 20 3d 20 2d |tal = 0,| max = -|
|000043c0| 31 3b 0a 58 09 73 74 61 | 74 69 63 20 63 68 61 72 |1;.X.sta|tic char|
|000043d0| 20 20 20 20 20 6c 69 6e | 65 5b 4c 49 4e 45 4c 45 |     lin|e[LINELE|
|000043e0| 4e 5d 2c 20 73 74 72 5b | 53 54 52 4c 45 4e 5d 3b |N], str[|STRLEN];|
|000043f0| 0a 58 09 63 68 61 72 20 | 20 20 20 20 20 20 20 20 |.X.char |        |
|00004400| 20 20 2a 66 6e 61 6d 65 | 20 3d 20 22 70 72 6f 66 |  *fname| = "prof|
|00004410| 2e 6f 75 74 22 3b 0a 58 | 09 69 6e 74 20 20 20 20 |.out";.X|.int    |
|00004420| 20 20 20 20 20 20 20 20 | 20 68 69 73 74 6f 20 3d |        | histo =|
|00004430| 20 30 2c 20 66 6e 61 6d | 65 5f 67 69 76 65 6e 20 | 0, fnam|e_given |
|00004440| 3d 20 30 3b 0a 58 09 72 | 65 67 69 73 74 65 72 20 |= 0;.X.r|egister |
|00004450| 20 20 20 20 20 20 20 69 | 3b 0a 58 0a 58 09 41 72 |       i|;.X.X.Ar|
|00004460| 67 76 30 20 3d 20 61 72 | 67 76 5b 30 5d 3b 0a 58 |gv0 = ar|gv[0];.X|
|00004470| 0a 58 09 77 68 69 6c 65 | 20 28 61 72 67 63 20 3e |.X.while| (argc >|
|00004480| 20 31 29 0a 58 09 09 73 | 77 69 74 63 68 20 28 2a | 1).X..s|witch (*|
|00004490| 61 72 67 76 5b 31 5d 29 | 20 7b 0a 58 09 09 63 61 |argv[1])| {.X..ca|
|000044a0| 73 65 20 27 2d 27 3a 0a | 58 09 09 09 69 66 20 28 |se '-':.|X...if (|
|000044b0| 61 72 67 76 5b 31 5d 5b | 31 5d 20 3d 3d 20 27 68 |argv[1][|1] == 'h|
|000044c0| 27 29 20 7b 0a 58 09 09 | 09 09 68 69 73 74 6f 2b |') {.X..|..histo+|
|000044d0| 2b 3b 0a 58 09 09 09 09 | 61 72 67 63 2d 2d 3b 0a |+;.X....|argc--;.|
|000044e0| 58 09 09 09 09 61 72 67 | 76 2b 2b 3b 0a 58 09 09 |X....arg|v++;.X..|
|000044f0| 09 7d 20 65 6c 73 65 0a | 58 09 09 09 09 75 73 61 |.} else.|X....usa|
|00004500| 67 65 28 29 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b |ge();.X.|..break;|
|00004510| 0a 58 09 09 64 65 66 61 | 75 6c 74 3a 0a 58 09 09 |.X..defa|ult:.X..|
|00004520| 09 69 66 20 28 66 6e 61 | 6d 65 5f 67 69 76 65 6e |.if (fna|me_given|
|00004530| 29 0a 58 09 09 09 09 75 | 73 61 67 65 28 29 3b 0a |).X....u|sage();.|
|00004540| 58 09 09 09 65 6c 73 65 | 20 7b 0a 58 09 09 09 09 |X...else| {.X....|
|00004550| 66 6e 61 6d 65 5f 67 69 | 76 65 6e 2b 2b 3b 0a 58 |fname_gi|ven++;.X|
|00004560| 09 09 09 09 66 6e 61 6d | 65 20 3d 20 61 72 67 76 |....fnam|e = argv|
|00004570| 5b 31 5d 3b 0a 58 09 09 | 09 09 61 72 67 63 2d 2d |[1];.X..|..argc--|
|00004580| 3b 0a 58 09 09 09 09 61 | 72 67 76 2b 2b 3b 0a 58 |;.X....a|rgv++;.X|
|00004590| 09 09 09 7d 0a 58 09 09 | 09 62 72 65 61 6b 3b 0a |...}.X..|.break;.|
|000045a0| 58 09 09 7d 0a 58 0a 58 | 09 69 66 20 28 28 66 20 |X..}.X.X|.if ((f |
|000045b0| 3d 20 66 6f 70 65 6e 28 | 66 6e 61 6d 65 2c 20 22 |= fopen(|fname, "|
|000045c0| 72 22 29 29 20 3d 3d 20 | 4e 55 4c 4c 29 20 7b 0a |r")) == |NULL) {.|
|000045d0| 58 09 09 70 65 72 72 6f | 72 28 66 6e 61 6d 65 29 |X..perro|r(fname)|
|000045e0| 3b 0a 58 09 09 65 78 69 | 74 28 31 29 3b 0a 58 09 |;.X..exi|t(1);.X.|
|000045f0| 7d 0a 58 09 66 6f 72 20 | 28 69 20 3d 20 31 3b 20 |}.X.for |(i = 1; |
|00004600| 66 67 65 74 73 28 6c 69 | 6e 65 2c 20 4c 49 4e 45 |fgets(li|ne, LINE|
|00004610| 4c 45 4e 2c 20 66 29 3b | 20 69 2b 2b 29 20 7b 0a |LEN, f);| i++) {.|
|00004620| 58 09 09 69 66 20 28 73 | 73 63 61 6e 66 28 6c 69 |X..if (s|scanf(li|
|00004630| 6e 65 2c 20 22 20 25 2a | 73 20 25 6c 64 20 22 2c |ne, " %*|s %ld ",|
|00004640| 20 26 74 29 20 21 3d 20 | 31 29 20 7b 0a 58 09 09 | &t) != |1) {.X..|
|00004650| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,|
|00004660| 20 22 25 73 20 3a 20 45 | 72 72 6f 72 20 69 6e 20 | "%s : E|rror in |
|00004670| 72 65 61 64 69 6e 67 20 | 25 73 28 25 64 29 5c 6e |reading |%s(%d)\n|
|00004680| 22 2c 20 0a 58 09 09 09 | 09 41 72 67 76 30 2c 20 |", .X...|.Argv0, |
|00004690| 66 6e 61 6d 65 2c 20 69 | 29 3b 0a 58 09 09 09 65 |fname, i|);.X...e|
|000046a0| 78 69 74 28 31 29 3b 0a | 58 09 09 7d 0a 58 09 09 |xit(1);.|X..}.X..|
|000046b0| 74 6f 74 61 6c 20 2b 3d | 20 74 3b 0a 58 09 09 69 |total +=| t;.X..i|
|000046c0| 66 20 28 74 20 3e 20 6d | 61 78 29 0a 58 09 09 09 |f (t > m|ax).X...|
|000046d0| 6d 61 78 20 3d 20 74 3b | 0a 58 09 7d 0a 58 09 69 |max = t;|.X.}.X.i|
|000046e0| 66 20 28 74 6f 74 61 6c | 20 3d 3d 20 30 29 20 7b |f (total| == 0) {|
|000046f0| 0a 58 09 09 66 70 72 69 | 6e 74 66 28 73 74 64 65 |.X..fpri|ntf(stde|
|00004700| 72 72 2c 20 22 25 73 20 | 3a 20 4e 6f 20 68 69 74 |rr, "%s |: No hit|
|00004710| 73 20 66 6f 75 6e 64 5c | 6e 22 2c 20 41 72 67 76 |s found\|n", Argv|
|00004720| 30 29 3b 0a 58 09 09 65 | 78 69 74 28 31 29 3b 0a |0);.X..e|xit(1);.|
|00004730| 58 09 7d 0a 58 09 28 76 | 6f 69 64 29 20 72 65 77 |X.}.X.(v|oid) rew|
|00004740| 69 6e 64 28 66 29 3b 0a | 58 09 77 68 69 6c 65 20 |ind(f);.|X.while |
|00004750| 28 66 67 65 74 73 28 6c | 69 6e 65 2c 20 4c 49 4e |(fgets(l|ine, LIN|
|00004760| 45 4c 45 4e 2c 20 66 29 | 29 20 7b 0a 58 09 09 28 |ELEN, f)|) {.X..(|
|00004770| 76 6f 69 64 29 20 73 73 | 63 61 6e 66 28 6c 69 6e |void) ss|canf(lin|
|00004780| 65 2c 20 22 20 25 73 20 | 25 6c 64 20 22 2c 20 73 |e, " %s |%ld ", s|
|00004790| 74 72 2c 20 26 74 29 3b | 0a 58 09 09 69 66 20 28 |tr, &t);|.X..if (|
|000047a0| 74 29 20 7b 0a 58 09 09 | 09 70 72 69 6e 74 66 28 |t) {.X..|.printf(|
|000047b0| 22 25 2d 32 30 73 20 25 | 35 2e 32 6c 66 25 25 20 |"%-20s %|5.2lf%% |
|000047c0| 22 2c 20 2a 73 74 72 20 | 3d 3d 20 27 5f 27 20 3f |", *str |== '_' ?|
|000047d0| 20 73 74 72 20 2b 20 31 | 20 3a 20 0a 58 09 09 09 | str + 1| : .X...|
|000047e0| 20 20 20 20 20 20 20 73 | 74 72 2c 20 28 64 6f 75 |       s|tr, (dou|
|000047f0| 62 6c 65 29 20 74 20 2f | 20 28 64 6f 75 62 6c 65 |ble) t /| (double|
|00004800| 29 20 74 6f 74 61 6c 20 | 2a 20 31 30 30 2e 30 29 |) total |* 100.0)|
|00004810| 3b 0a 58 09 09 09 69 66 | 20 28 68 69 73 74 6f 29 |;.X...if| (histo)|
|00004820| 0a 58 09 09 09 09 66 6f | 72 20 28 69 20 3d 20 30 |.X....fo|r (i = 0|
|00004830| 3b 20 69 20 3c 20 28 69 | 6e 74 29 20 28 28 64 6f |; i < (i|nt) ((do|
|00004840| 75 62 6c 65 29 20 74 20 | 2f 20 0a 58 09 09 09 09 |uble) t |/ .X....|
|00004850| 09 20 20 20 20 28 64 6f | 75 62 6c 65 29 20 6d 61 |.    (do|uble) ma|
|00004860| 78 20 2a 20 35 30 29 3b | 20 69 2b 2b 29 0a 58 09 |x * 50);| i++).X.|
|00004870| 09 09 09 09 70 75 74 63 | 68 61 72 28 27 2a 27 29 |....putc|har('*')|
|00004880| 3b 0a 58 09 09 09 70 75 | 74 63 68 61 72 28 27 5c |;.X...pu|tchar('\|
|00004890| 6e 27 29 3b 0a 58 09 09 | 7d 0a 58 09 7d 0a 58 09 |n');.X..|}.X.}.X.|
|000048a0| 65 78 69 74 28 30 29 3b | 0a 58 7d 0a 53 48 41 52 |exit(0);|.X}.SHAR|
|000048b0| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 32 31 35 |_EOF.if |test 215|
|000048c0| 36 20 2d 6e 65 20 22 60 | 77 63 20 2d 63 20 3c 20 |6 -ne "`|wc -c < |
|000048d0| 27 70 72 6f 66 70 72 74 | 2e 63 27 60 22 0a 74 68 |'profprt|.c'`".th|
|000048e0| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 65 |en..echo| shar: e|
|000048f0| 72 72 6f 72 20 74 72 61 | 6e 73 6d 69 74 74 69 6e |rror tra|nsmittin|
|00004900| 67 20 22 27 70 72 6f 66 | 70 72 74 2e 63 27 22 20 |g "'prof|prt.c'" |
|00004910| 27 28 73 68 6f 75 6c 64 | 20 68 61 76 65 20 62 65 |'(should| have be|
|00004920| 65 6e 20 32 31 35 36 20 | 63 68 61 72 61 63 74 65 |en 2156 |characte|
|00004930| 72 73 29 27 0a 66 69 0a | 66 69 20 23 20 65 6e 64 |rs)'.fi.|fi # end|
|00004940| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00004950| 63 68 65 63 6b 0a 69 66 | 20 74 65 73 74 20 2d 66 |check.if| test -f|
|00004960| 20 27 74 65 73 74 2e 63 | 27 0a 74 68 65 6e 0a 09 | 'test.c|'.then..|
|00004970| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|00004980| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00004990| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 74 |xisting |file "'t|
|000049a0| 65 73 74 2e 63 27 22 0a | 65 6c 73 65 0a 73 65 64 |est.c'".|else.sed|
|000049b0| 20 27 73 2f 5e 58 2f 2f | 27 20 3c 3c 20 5c 53 48 | 's/^X//|' << \SH|
|000049c0| 41 52 5f 45 4f 46 20 3e | 20 27 74 65 73 74 2e 63 |AR_EOF >| 'test.c|
|000049d0| 27 0a 58 2f 2a 0a 58 20 | 2a 20 41 20 71 75 69 63 |'.X/*.X |* A quic|
|000049e0| 6b 20 61 6e 64 20 64 69 | 72 74 79 20 74 65 73 74 |k and di|rty test|
|000049f0| 20 70 72 6f 67 72 61 6d | 2e 20 4a 75 73 74 20 77 | program|. Just w|
|00004a00| 61 72 6d 73 20 75 70 20 | 74 68 65 20 43 50 55 2e |arms up |the CPU.|
|00004a10| 0a 58 20 2a 20 41 75 74 | 68 6f 72 3a 20 44 69 6f |.X * Aut|hor: Dio|
|00004a20| 6d 69 64 69 73 20 44 2e | 20 53 70 69 6e 65 6c 6c |midis D.| Spinell|
|00004a30| 69 73 0a 58 20 2a 2f 0a | 58 0a 58 76 6f 6c 61 74 |is.X */.|X.Xvolat|
|00004a40| 69 6c 65 20 69 6e 74 20 | 71 3b 0a 58 0a 58 23 64 |ile int |q;.X.X#d|
|00004a50| 65 66 69 6e 65 20 70 72 | 6f 63 28 78 2c 6e 29 20 |efine pr|oc(x,n) |
|00004a60| 5c 0a 58 76 6f 69 64 20 | 5c 0a 58 78 28 29 5c 0a |\.Xvoid |\.Xx()\.|
|00004a70| 58 7b 5c 0a 58 09 6c 6f | 6e 67 20 69 3b 5c 0a 58 |X{\.X.lo|ng i;\.X|
|00004a80| 09 72 65 67 69 73 74 65 | 72 20 6a 3b 5c 0a 58 09 |.registe|r j;\.X.|
|00004a90| 66 6f 72 20 28 69 20 3d | 20 30 3b 20 69 20 3c 20 |for (i =| 0; i < |
|00004aa0| 6e 3b 20 69 2b 2b 29 5c | 0a 58 09 09 66 6f 72 20 |n; i++)\|.X..for |
|00004ab0| 28 6a 20 3d 20 30 3b 20 | 6a 20 3c 20 31 35 3b 20 |(j = 0; |j < 15; |
|00004ac0| 6a 2b 2b 29 5c 0a 58 09 | 09 09 71 20 3d 20 6a 3b |j++)\.X.|..q = j;|
|00004ad0| 5c 0a 58 7d 0a 58 09 09 | 0a 58 70 72 6f 63 28 61 |\.X}.X..|.Xproc(a|
|00004ae0| 2c 20 31 30 30 30 30 29 | 0a 58 70 72 6f 63 28 62 |, 10000)|.Xproc(b|
|00004af0| 2c 20 34 30 30 30 29 0a | 58 70 72 6f 63 28 63 2c |, 4000).|Xproc(c,|
|00004b00| 20 32 30 30 30 30 29 0a | 58 70 72 6f 63 28 64 2c | 20000).|Xproc(d,|
|00004b10| 20 36 30 30 30 29 0a 58 | 0a 58 76 6f 69 64 0a 58 | 6000).X|.Xvoid.X|
|00004b20| 6d 61 69 6e 28 69 6e 74 | 20 61 72 67 63 2c 20 63 |main(int| argc, c|
|00004b30| 68 61 72 20 2a 61 72 67 | 76 5b 5d 29 0a 58 7b 0a |har *arg|v[]).X{.|
|00004b40| 58 09 70 72 6f 66 5f 73 | 74 61 72 74 28 61 72 67 |X.prof_s|tart(arg|
|00004b50| 76 5b 30 5d 29 3b 0a 58 | 0a 58 09 61 28 29 3b 0a |v[0]);.X|.X.a();.|
|00004b60| 58 09 62 28 29 3b 0a 58 | 09 63 28 29 3b 0a 58 09 |X.b();.X|.c();.X.|
|00004b70| 64 28 29 3b 0a 58 09 61 | 28 29 3b 0a 58 09 61 28 |d();.X.a|();.X.a(|
|00004b80| 29 3b 0a 58 7d 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |);.X}.SH|AR_EOF.i|
|00004b90| 66 20 74 65 73 74 20 34 | 30 31 20 2d 6e 65 20 22 |f test 4|01 -ne "|
|00004ba0| 60 77 63 20 2d 63 20 3c | 20 27 74 65 73 74 2e 63 |`wc -c <| 'test.c|
|00004bb0| 27 60 22 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |'`".then|..echo s|
|00004bc0| 68 61 72 3a 20 65 72 72 | 6f 72 20 74 72 61 6e 73 |har: err|or trans|
|00004bd0| 6d 69 74 74 69 6e 67 20 | 22 27 74 65 73 74 2e 63 |mitting |"'test.c|
|00004be0| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00004bf0| 20 62 65 65 6e 20 34 30 | 31 20 63 68 61 72 61 63 | been 40|1 charac|
|00004c00| 74 65 72 73 29 27 0a 66 | 69 0a 66 69 20 23 20 65 |ters)'.f|i.fi # e|
|00004c10| 6e 64 20 6f 66 20 6f 76 | 65 72 77 72 69 74 69 6e |nd of ov|erwritin|
|00004c20| 67 20 63 68 65 63 6b 0a | 23 09 45 6e 64 20 6f 66 |g check.|#.End of|
|00004c30| 20 73 68 65 6c 6c 20 61 | 72 63 68 69 76 65 0a 65 | shell a|rchive.e|
|00004c40| 78 69 74 20 30 0a 0a    |                         |xit 0.. |        |
+--------+-------------------------+-------------------------+--------+--------+