home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / MPWPascal / PExamples / TestPerf.p < prev    next >
MacBinary  |  1988-11-30  |  6.4 KB  |  [TEXT/MPS ]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert bsdiff patch (other/bsdiffPatch) ext Unsupported
1% dexvert imgdiff patch (other/imgdiffPatch) ext Unsupported
1% dexvert WSUS Patch Storage File (other/wsusPatchStorageFile) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Wed Nov 30 12:00:00 1988, modified Wed Nov 30 12:00:00 1988, creator 'MPS ', type ASCII, 5558 bytes "TestPerf.p" , at 0x1636 643 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 54 65 73 74 50 65 | 72 66 2e 70 00 00 00 00 |..TestPe|rf.p....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 15 b6 00 | 00 02 83 9f b9 d9 90 9f |........|........|
|00000060| b9 d9 90 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3b fc 00 00 |........|....;...|
|00000080| 7b 5b 6e 2b 2c 75 2b 2c | 72 2b 2c 64 2b 2c 23 2b |{[n+,u+,|r+,d+,#+|
|00000090| 2c 6a 3d 31 33 2d 2f 34 | 30 2f 31 6f 2c 74 3d 32 |,j=13-/4|0/1o,t=2|
|000000a0| 2c 6f 3d 39 35 5d 20 50 | 61 73 4d 61 74 20 66 6f |,o=95] P|asMat fo|
|000000b0| 72 6d 61 74 74 69 6e 67 | 20 6f 70 74 69 6f 6e 73 |rmatting| options|
|000000c0| 7d 0d 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.{-----|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000110| 2d 0d 46 49 4c 45 20 54 | 65 73 74 50 65 72 66 2e |-.FILE T|estPerf.|
|00000120| 70 0d 20 43 6f 70 79 72 | 69 67 68 74 20 41 70 70 |p. Copyr|ight App|
|00000130| 6c 65 20 43 6f 6d 70 75 | 74 65 72 2c 20 49 6e 63 |le Compu|ter, Inc|
|00000140| 2e 20 31 39 38 35 2d 31 | 39 38 37 0d 20 41 6c 6c |. 1985-1|987. All|
|00000150| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|00000160| 2e 0d 0d 4e 41 4d 45 0d | 20 20 54 65 73 74 50 65 |...NAME.| TestPe|
|00000170| 72 66 0d 0d 44 45 53 43 | 52 49 50 54 49 4f 4e 0d |rf..DESC|RIPTION.|
|00000180| 20 20 54 68 69 73 20 73 | 6d 61 6c 6c 20 74 6f 6f | This s|mall too|
|00000190| 6c 20 64 65 6d 6f 6e 73 | 74 72 61 74 65 73 20 74 |l demons|trates t|
|000001a0| 68 65 20 75 73 65 20 6f | 66 20 74 68 65 20 70 65 |he use o|f the pe|
|000001b0| 72 66 6f 72 6d 61 6e 63 | 65 20 61 6e 61 6c 79 73 |rformanc|e analys|
|000001c0| 69 73 20 74 6f 6f 6c 73 | 2e 0d 2d 2d 2d 2d 2d 2d |is tools|..------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 50 52 4f 47 52 41 |--------|}.PROGRA|
|00000220| 4d 20 54 65 73 74 50 65 | 72 66 3b 0d 0d 20 7b 24 |M TestPe|rf;.. {$|
|00000230| 53 45 54 43 20 64 6f 50 | 65 72 66 6f 72 6d 20 3a |SETC doP|erform :|
|00000240| 3d 20 74 72 75 65 7d 20 | 7b 73 65 74 20 74 6f 20 |= true} |{set to |
|00000250| 66 61 6c 73 65 20 74 6f | 20 6f 6d 69 74 20 50 65 |false to| omit Pe|
|00000260| 72 66 6f 72 6d 20 74 6f | 6f 6c 73 20 77 68 65 6e |rform to|ols when|
|00000270| 20 64 65 62 75 67 67 69 | 6e 67 2e 20 7d 0d 0d 20 | debuggi|ng. }.. |
|00000280| 7b 24 5a 2a 7d 0d 0d 20 | 20 55 53 45 53 20 4d 65 |{$Z*}.. | USES Me|
|00000290| 6d 54 79 70 65 73 2c 20 | 0d 09 09 7b 24 49 46 43 |mTypes, |...{$IFC|
|000002a0| 20 64 6f 50 65 72 66 6f | 72 6d 7d 0d 09 09 50 65 | doPerfo|rm}...Pe|
|000002b0| 72 66 2c 0d 09 09 7b 24 | 45 4e 44 43 7d 0d 20 20 |rf,...{$|ENDC}. |
|000002c0| 20 20 7b 6e 65 65 64 65 | 64 20 66 6f 72 20 77 61 | {neede|d for wa|
|000002d0| 73 74 65 20 70 72 6f 63 | 65 64 75 72 65 73 2c 20 |ste proc|edures, |
|000002e0| 62 75 74 20 6e 6f 74 20 | 66 6f 72 20 50 65 72 66 |but not |for Perf|
|000002f0| 2e 70 3a 7d 0d 20 20 20 | 20 20 20 20 51 75 69 63 |.p:}. | Quic|
|00000300| 6b 44 72 61 77 3b 0d 0d | 09 09 7b 24 49 46 43 20 |kDraw;..|..{$IFC |
|00000310| 64 6f 50 65 72 66 6f 72 | 6d 7d 0d 20 20 56 41 52 |doPerfor|m}. VAR|
|00000320| 0d 20 20 20 20 54 68 65 | 50 47 6c 6f 62 61 6c 73 |. The|PGlobals|
|00000330| 3a 20 54 50 32 50 65 72 | 66 47 6c 6f 62 61 6c 73 |: TP2Per|fGlobals|
|00000340| 3b 0d 09 09 7b 24 45 4e | 44 43 7d 0d 09 09 0d 20 |;...{$EN|DC}.... |
|00000350| 20 20 20 7b 5b 6a 3d 30 | 5d 20 50 61 73 4d 61 74 | {[j=0|] PasMat|
|00000360| 20 66 6f 72 6d 61 74 74 | 69 6e 67 20 6f 70 74 69 | formatt|ing opti|
|00000370| 6f 6e 7d 0d 0d 20 20 20 | 20 7b 20 54 68 65 73 65 |on}.. | { These|
|00000380| 20 61 72 65 20 73 6f 6d | 65 20 70 72 6f 63 65 64 | are som|e proced|
|00000390| 75 72 65 73 20 74 68 61 | 74 20 22 77 61 73 74 65 |ures tha|t "waste|
|000003a0| 22 20 74 69 6d 65 20 28 | 57 29 20 69 6e 20 64 69 |" time (|W) in di|
|000003b0| 66 66 65 72 65 6e 74 20 | 61 6d 6f 75 6e 74 73 2e |fferent |amounts.|
|000003c0| 20 7d 0d 0d 20 20 20 20 | 7b 20 46 69 72 73 74 2c | }.. |{ First,|
|000003d0| 20 73 6f 6d 65 20 70 72 | 6f 63 65 64 75 72 65 73 | some pr|ocedures|
|000003e0| 20 74 68 61 74 20 77 61 | 73 74 65 20 74 69 6d 65 | that wa|ste time|
|000003f0| 20 69 6e 20 43 4f 44 45 | 20 73 65 67 6d 65 6e 74 | in CODE| segment|
|00000400| 73 3a 20 7d 0d 0d 20 20 | 20 20 7b 24 53 20 53 45 |s: }.. | {$S SE|
|00000410| 47 31 7d 0d 0d 20 20 50 | 52 4f 43 45 44 55 52 45 |G1}.. P|ROCEDURE|
|00000420| 20 57 35 30 30 41 3b 0d | 0d 20 20 20 20 56 41 52 | W500A;.|. VAR|
|00000430| 0d 20 20 20 20 20 20 69 | 3a 20 69 6e 74 65 67 65 |. i|: intege|
|00000440| 72 3b 0d 20 20 20 20 20 | 20 6a 75 6e 6b 2c 20 6a |r;. | junk, j|
|00000450| 75 6e 6b 31 2c 20 6a 75 | 6e 6b 32 3a 20 7b 69 6e |unk1, ju|nk2: {in|
|00000460| 74 65 67 65 72 7d 20 6c | 6f 6e 67 69 6e 74 3b 0d |teger} l|ongint;.|
|00000470| 0d 20 20 20 20 42 45 47 | 49 4e 0d 20 20 20 20 20 |. BEG|IN. |
|00000480| 20 46 4f 52 20 69 20 3a | 3d 20 31 20 54 4f 20 35 | FOR i :|= 1 TO 5|
|00000490| 30 30 20 44 4f 0d 20 20 | 20 20 20 20 20 20 42 45 |00 DO. | BE|
|000004a0| 47 49 4e 0d 20 20 20 20 | 20 20 20 20 6a 75 6e 6b |GIN. | junk|
|000004b0| 20 3a 3d 20 31 3b 0d 20 | 20 20 20 20 20 20 20 6a | := 1;. | j|
|000004c0| 75 6e 6b 31 20 3a 3d 20 | 6a 75 6e 6b 20 2a 20 35 |unk1 := |junk * 5|
|000004d0| 3b 0d 20 20 20 20 20 20 | 20 20 6a 75 6e 6b 32 20 |;. | junk2 |
|000004e0| 3a 3d 20 28 6a 75 6e 6b | 20 2b 20 6a 75 6e 6b 31 |:= (junk| + junk1|
|000004f0| 29 20 2a 20 35 3b 0d 20 | 20 20 20 20 20 20 20 45 |) * 5;. | E|
|00000500| 4e 44 3b 0d 20 20 20 20 | 45 4e 44 3b 20 20 20 20 |ND;. |END; |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 7b 57 35 30 30 | | {W500|
|00000530| 41 7d 0d 0d 20 20 50 52 | 4f 43 45 44 55 52 45 20 |A}.. PR|OCEDURE |
|00000540| 57 31 30 30 3b 0d 0d 20 | 20 20 20 56 41 52 0d 20 |W100;.. | VAR. |
|00000550| 20 20 20 20 20 69 3a 20 | 69 6e 74 65 67 65 72 3b | i: |integer;|
|00000560| 0d 20 20 20 20 20 20 6a | 75 6e 6b 2c 20 6a 75 6e |. j|unk, jun|
|00000570| 6b 31 2c 20 6a 75 6e 6b | 32 3a 20 7b 69 6e 74 65 |k1, junk|2: {inte|
|00000580| 67 65 72 7d 20 6c 6f 6e | 67 69 6e 74 3b 0d 0d 20 |ger} lon|gint;.. |
|00000590| 20 20 20 42 45 47 49 4e | 0d 20 20 20 20 20 20 46 | BEGIN|. F|
|000005a0| 4f 52 20 69 20 3a 3d 20 | 31 20 54 4f 20 31 30 30 |OR i := |1 TO 100|
|000005b0| 20 44 4f 0d 20 20 20 20 | 20 20 20 20 42 45 47 49 | DO. | BEGI|
|000005c0| 4e 0d 20 20 20 20 20 20 | 20 20 6a 75 6e 6b 20 3a |N. | junk :|
|000005d0| 3d 20 31 3b 0d 20 20 20 | 20 20 20 20 20 6a 75 6e |= 1;. | jun|
|000005e0| 6b 31 20 3a 3d 20 6a 75 | 6e 6b 20 2a 20 35 3b 0d |k1 := ju|nk * 5;.|
|000005f0| 20 20 20 20 20 20 20 20 | 6a 75 6e 6b 32 20 3a 3d | |junk2 :=|
|00000600| 20 28 6a 75 6e 6b 20 2b | 20 6a 75 6e 6b 31 29 20 | (junk +| junk1) |
|00000610| 2a 20 35 3b 0d 20 20 20 | 20 20 20 20 20 45 4e 44 |* 5;. | END|
|00000620| 3b 0d 20 20 20 20 45 4e | 44 3b 20 20 20 20 20 20 |;. EN|D; |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000640| 20 20 20 20 20 20 20 20 | 20 7b 57 31 30 30 7d 0d | | {W100}.|
|00000650| 0d 20 20 50 52 4f 43 45 | 44 55 52 45 20 57 31 35 |. PROCE|DURE W15|
|00000660| 30 30 3b 0d 0d 20 20 20 | 20 56 41 52 0d 20 20 20 |00;.. | VAR. |
|00000670| 20 20 20 69 3a 20 69 6e | 74 65 67 65 72 3b 0d 20 | i: in|teger;. |
|00000680| 20 20 20 20 20 6a 75 6e | 6b 2c 20 6a 75 6e 6b 31 | jun|k, junk1|
|00000690| 2c 20 6a 75 6e 6b 32 3a | 20 7b 69 6e 74 65 67 65 |, junk2:| {intege|
|000006a0| 72 7d 20 6c 6f 6e 67 69 | 6e 74 3b 0d 0d 20 20 20 |r} longi|nt;.. |
|000006b0| 20 42 45 47 49 4e 0d 20 | 20 20 20 20 20 46 4f 52 | BEGIN. | FOR|
|000006c0| 20 69 20 3a 3d 20 31 20 | 54 4f 20 31 35 30 30 20 | i := 1 |TO 1500 |
|000006d0| 44 4f 0d 20 20 20 20 20 | 20 20 20 42 45 47 49 4e |DO. | BEGIN|
|000006e0| 0d 20 20 20 20 20 20 20 | 20 6a 75 6e 6b 20 3a 3d |. | junk :=|
|000006f0| 20 31 3b 0d 20 20 20 20 | 20 20 20 20 6a 75 6e 6b | 1;. | junk|
|00000700| 31 20 3a 3d 20 6a 75 6e | 6b 20 2a 20 35 3b 0d 20 |1 := jun|k * 5;. |
|00000710| 20 20 20 20 20 20 20 6a | 75 6e 6b 32 20 3a 3d 20 | j|unk2 := |
|00000720| 28 6a 75 6e 6b 20 2b 20 | 6a 75 6e 6b 31 29 20 2a |(junk + |junk1) *|
|00000730| 20 35 3b 0d 20 20 20 20 | 20 20 20 20 45 4e 44 3b | 5;. | END;|
|00000740| 0d 20 20 20 20 45 4e 44 | 3b 20 20 20 20 20 20 20 |. END|; |
|00000750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000760| 20 20 20 20 20 20 20 20 | 7b 57 31 35 30 30 7d 0d | |{W1500}.|
|00000770| 0d 20 20 7b 24 53 20 53 | 45 47 32 7d 0d 0d 20 20 |. {$S S|EG2}.. |
|00000780| 50 52 4f 43 45 44 55 52 | 45 20 57 61 73 74 65 3b |PROCEDUR|E Waste;|
|00000790| 0d 0d 20 20 20 20 56 41 | 52 0d 20 20 20 20 20 20 |.. VA|R. |
|000007a0| 69 3a 20 69 6e 74 65 67 | 65 72 3b 0d 20 20 20 20 |i: integ|er;. |
|000007b0| 20 20 6a 75 6e 6b 2c 20 | 6a 75 6e 6b 31 2c 20 6a | junk, |junk1, j|
|000007c0| 75 6e 6b 32 3a 20 7b 69 | 6e 74 65 67 65 72 7d 20 |unk2: {i|nteger} |
|000007d0| 6c 6f 6e 67 69 6e 74 3b | 0d 0d 20 20 20 20 42 45 |longint;|.. BE|
|000007e0| 47 49 4e 0d 20 20 20 20 | 20 20 46 4f 52 20 69 20 |GIN. | FOR i |
|000007f0| 3a 3d 20 31 20 54 4f 20 | 31 20 44 4f 0d 20 20 20 |:= 1 TO |1 DO. |
|00000800| 20 20 20 20 20 42 45 47 | 49 4e 0d 20 20 20 20 20 | BEG|IN. |
|00000810| 20 20 20 6a 75 6e 6b 20 | 3a 3d 20 31 3b 0d 20 20 | junk |:= 1;. |
|00000820| 20 20 20 20 20 20 6a 75 | 6e 6b 31 20 3a 3d 20 6a | ju|nk1 := j|
|00000830| 75 6e 6b 20 2a 20 35 3b | 0d 20 20 20 20 20 20 20 |unk * 5;|. |
|00000840| 20 6a 75 6e 6b 32 20 3a | 3d 20 28 6a 75 6e 6b 20 | junk2 :|= (junk |
|00000850| 2b 20 6a 75 6e 6b 31 29 | 20 2a 20 35 3b 0d 20 20 |+ junk1)| * 5;. |
|00000860| 20 20 20 20 20 20 45 4e | 44 3b 0d 20 20 20 20 45 | EN|D;. E|
|00000870| 4e 44 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ND; | |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000890| 20 20 7b 57 61 73 74 65 | 7d 0d 0d 20 20 50 52 4f | {Waste|}.. PRO|
|000008a0| 43 45 44 55 52 45 20 57 | 35 30 30 42 77 69 74 68 |CEDURE W|500Bwith|
|000008b0| 41 56 65 72 79 4c 6f 6e | 67 4e 61 6d 65 3b 0d 0d |AVeryLon|gName;..|
|000008c0| 20 20 20 20 56 41 52 0d | 20 20 20 20 20 20 69 3a | VAR.| i:|
|000008d0| 20 69 6e 74 65 67 65 72 | 3b 0d 20 20 20 20 20 20 | integer|;. |
|000008e0| 6a 75 6e 6b 2c 20 6a 75 | 6e 6b 31 2c 20 6a 75 6e |junk, ju|nk1, jun|
|000008f0| 6b 32 3a 20 7b 69 6e 74 | 65 67 65 72 7d 20 6c 6f |k2: {int|eger} lo|
|00000900| 6e 67 69 6e 74 3b 0d 0d | 20 20 20 20 42 45 47 49 |ngint;..| BEGI|
|00000910| 4e 0d 20 20 20 20 20 20 | 46 4f 52 20 69 20 3a 3d |N. |FOR i :=|
|00000920| 20 31 20 54 4f 20 35 30 | 30 20 44 4f 0d 20 20 20 | 1 TO 50|0 DO. |
|00000930| 20 20 20 20 20 42 45 47 | 49 4e 0d 20 20 20 20 20 | BEG|IN. |
|00000940| 20 20 20 6a 75 6e 6b 20 | 3a 3d 20 31 3b 0d 20 20 | junk |:= 1;. |
|00000950| 20 20 20 20 20 20 6a 75 | 6e 6b 31 20 3a 3d 20 6a | ju|nk1 := j|
|00000960| 75 6e 6b 20 2a 20 35 3b | 0d 20 20 20 20 20 20 20 |unk * 5;|. |
|00000970| 20 6a 75 6e 6b 32 20 3a | 3d 20 28 6a 75 6e 6b 20 | junk2 :|= (junk |
|00000980| 2b 20 6a 75 6e 6b 31 29 | 20 2a 20 35 3b 0d 20 20 |+ junk1)| * 5;. |
|00000990| 20 20 20 20 20 20 45 4e | 44 3b 0d 20 20 20 20 45 | EN|D;. E|
|000009a0| 4e 44 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ND; | |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009c0| 20 20 7b 57 35 30 30 42 | 77 69 74 68 41 56 65 72 | {W500B|withAVer|
|000009d0| 79 4c 6f 6e 67 4e 61 6d | 65 7d 0d 0d 20 20 7b 20 |yLongNam|e}.. { |
|000009e0| 53 65 63 6f 6e 64 2c 20 | 73 6f 6d 65 20 70 72 6f |Second, |some pro|
|000009f0| 63 65 64 75 72 65 73 20 | 74 68 61 74 20 77 61 73 |cedures |that was|
|00000a00| 74 65 20 74 69 6d 65 20 | 69 6e 20 52 4f 4d 3a 20 |te time |in ROM: |
|00000a10| 7d 0d 0d 20 20 7b 24 53 | 20 52 4f 4d 53 45 47 31 |}.. {$S| ROMSEG1|
|00000a20| 7d 0d 0d 20 20 50 52 4f | 43 45 44 55 52 45 20 52 |}.. PRO|CEDURE R|
|00000a30| 4f 4d 57 35 30 30 41 3b | 0d 0d 20 20 20 20 56 41 |OMW500A;|.. VA|
|00000a40| 52 0d 20 20 20 20 20 20 | 69 3a 20 69 6e 74 65 67 |R. |i: integ|
|00000a50| 65 72 3b 0d 20 20 20 20 | 20 20 6a 75 6e 6b 2c 20 |er;. | junk, |
|00000a60| 6a 75 6e 6b 31 2c 20 6a | 75 6e 6b 32 3a 20 72 65 |junk1, j|unk2: re|
|00000a70| 63 74 3b 0d 20 20 20 20 | 20 20 64 6f 6e 74 43 61 |ct;. | dontCa|
|00000a80| 72 65 3a 20 42 6f 6f 6c | 65 61 6e 3b 0d 0d 20 20 |re: Bool|ean;.. |
|00000a90| 20 20 42 45 47 49 4e 0d | 20 20 20 20 20 20 46 4f | BEGIN.| FO|
|00000aa0| 52 20 69 20 3a 3d 20 31 | 20 54 4f 20 35 30 30 20 |R i := 1| TO 500 |
|00000ab0| 44 4f 0d 20 20 20 20 20 | 20 20 20 42 45 47 49 4e |DO. | BEGIN|
|00000ac0| 0d 20 20 20 20 20 20 20 | 20 53 65 74 52 65 63 74 |. | SetRect|
|00000ad0| 28 6a 75 6e 6b 2c 20 31 | 30 30 2c 20 32 30 30 2c |(junk, 1|00, 200,|
|00000ae0| 20 33 30 30 2c 20 34 30 | 30 29 3b 0d 20 20 20 20 | 300, 40|0);. |
|00000af0| 20 20 20 20 53 65 74 52 | 65 63 74 28 6a 75 6e 6b | SetR|ect(junk|
|00000b00| 31 2c 20 32 30 30 2c 20 | 33 30 30 2c 20 34 30 30 |1, 200, |300, 400|
|00000b10| 2c 20 35 30 30 29 3b 0d | 20 20 20 20 20 20 20 20 |, 500);.| |
|00000b20| 64 6f 6e 74 43 61 72 65 | 20 3a 3d 20 53 65 63 74 |dontCare| := Sect|
|00000b30| 52 65 63 74 28 6a 75 6e | 6b 2c 20 6a 75 6e 6b 31 |Rect(jun|k, junk1|
|00000b40| 2c 20 6a 75 6e 6b 32 29 | 3b 0d 20 20 20 20 20 20 |, junk2)|;. |
|00000b50| 20 20 45 4e 44 3b 0d 20 | 20 20 20 45 4e 44 3b 20 | END;. | END; |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7b 52 | | {R|
|00000b80| 4f 4d 57 35 30 30 41 7d | 0d 0d 20 20 50 52 4f 43 |OMW500A}|.. PROC|
|00000b90| 45 44 55 52 45 20 52 4f | 4d 57 31 30 30 3b 0d 0d |EDURE RO|MW100;..|
|00000ba0| 20 20 20 20 56 41 52 0d | 20 20 20 20 20 20 69 3a | VAR.| i:|
|00000bb0| 20 69 6e 74 65 67 65 72 | 3b 0d 20 20 20 20 20 20 | integer|;. |
|00000bc0| 6a 75 6e 6b 2c 20 6a 75 | 6e 6b 31 2c 20 6a 75 6e |junk, ju|nk1, jun|
|00000bd0| 6b 32 3a 20 72 65 63 74 | 3b 0d 20 20 20 20 20 20 |k2: rect|;. |
|00000be0| 64 6f 6e 74 43 61 72 65 | 3a 20 42 6f 6f 6c 65 61 |dontCare|: Boolea|
|00000bf0| 6e 3b 0d 0d 20 20 20 20 | 42 45 47 49 4e 0d 20 20 |n;.. |BEGIN. |
|00000c00| 20 20 20 20 46 4f 52 20 | 69 20 3a 3d 20 31 20 54 | FOR |i := 1 T|
|00000c10| 4f 20 31 30 30 20 44 4f | 0d 20 20 20 20 20 20 20 |O 100 DO|. |
|00000c20| 20 42 45 47 49 4e 0d 20 | 20 20 20 20 20 20 20 53 | BEGIN. | S|
|00000c30| 65 74 52 65 63 74 28 6a | 75 6e 6b 2c 20 31 30 30 |etRect(j|unk, 100|
|00000c40| 2c 20 32 30 30 2c 20 33 | 30 30 2c 20 34 30 30 29 |, 200, 3|00, 400)|
|00000c50| 3b 0d 20 20 20 20 20 20 | 20 20 53 65 74 52 65 63 |;. | SetRec|
|00000c60| 74 28 6a 75 6e 6b 31 2c | 20 32 30 30 2c 20 33 30 |t(junk1,| 200, 30|
|00000c70| 30 2c 20 34 30 30 2c 20 | 35 30 30 29 3b 0d 20 20 |0, 400, |500);. |
|00000c80| 20 20 20 20 20 20 64 6f | 6e 74 43 61 72 65 20 3a | do|ntCare :|
|00000c90| 3d 20 53 65 63 74 52 65 | 63 74 28 6a 75 6e 6b 2c |= SectRe|ct(junk,|
|00000ca0| 20 6a 75 6e 6b 31 2c 20 | 6a 75 6e 6b 32 29 3b 0d | junk1, |junk2);.|
|00000cb0| 20 20 20 20 20 20 20 20 | 45 4e 44 3b 0d 20 20 20 | |END;. |
|00000cc0| 20 45 4e 44 3b 20 20 20 | 20 20 20 20 20 20 20 20 | END; | |
|00000cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ce0| 20 20 20 20 7b 52 4f 4d | 57 31 30 30 7d 0d 0d 20 | {ROM|W100}.. |
|00000cf0| 20 50 52 4f 43 45 44 55 | 52 45 20 52 4f 4d 57 31 | PROCEDU|RE ROMW1|
|00000d00| 35 30 30 3b 0d 0d 20 20 | 20 20 56 41 52 0d 20 20 |500;.. | VAR. |
|00000d10| 20 20 20 20 69 3a 20 69 | 6e 74 65 67 65 72 3b 0d | i: i|nteger;.|
|00000d20| 20 20 20 20 20 20 6a 75 | 6e 6b 2c 20 6a 75 6e 6b | ju|nk, junk|
|00000d30| 31 2c 20 6a 75 6e 6b 32 | 3a 20 72 65 63 74 3b 0d |1, junk2|: rect;.|
|00000d40| 20 20 20 20 20 20 64 6f | 6e 74 43 61 72 65 3a 20 | do|ntCare: |
|00000d50| 42 6f 6f 6c 65 61 6e 3b | 0d 0d 20 20 20 20 42 45 |Boolean;|.. BE|
|00000d60| 47 49 4e 0d 20 20 20 20 | 20 20 46 4f 52 20 69 20 |GIN. | FOR i |
|00000d70| 3a 3d 20 31 20 54 4f 20 | 31 35 30 30 20 44 4f 0d |:= 1 TO |1500 DO.|
|00000d80| 20 20 20 20 20 20 20 20 | 42 45 47 49 4e 0d 20 20 | |BEGIN. |
|00000d90| 20 20 20 20 20 20 53 65 | 74 52 65 63 74 28 6a 75 | Se|tRect(ju|
|00000da0| 6e 6b 2c 20 31 30 30 2c | 20 32 30 30 2c 20 33 30 |nk, 100,| 200, 30|
|00000db0| 30 2c 20 34 30 30 29 3b | 0d 20 20 20 20 20 20 20 |0, 400);|. |
|00000dc0| 20 53 65 74 52 65 63 74 | 28 6a 75 6e 6b 31 2c 20 | SetRect|(junk1, |
|00000dd0| 32 30 30 2c 20 33 30 30 | 2c 20 34 30 30 2c 20 35 |200, 300|, 400, 5|
|00000de0| 30 30 29 3b 0d 20 20 20 | 20 20 20 20 20 64 6f 6e |00);. | don|
|00000df0| 74 43 61 72 65 20 3a 3d | 20 53 65 63 74 52 65 63 |tCare :=| SectRec|
|00000e00| 74 28 6a 75 6e 6b 2c 20 | 6a 75 6e 6b 31 2c 20 6a |t(junk, |junk1, j|
|00000e10| 75 6e 6b 32 29 3b 0d 20 | 20 20 20 20 20 20 20 45 |unk2);. | E|
|00000e20| 4e 44 3b 0d 20 20 20 20 | 45 4e 44 3b 20 20 20 20 |ND;. |END; |
|00000e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 7b 52 4f 4d 57 | | {ROMW|
|00000e50| 31 35 30 30 7d 0d 0d 20 | 20 7b 24 53 20 52 4f 4d |1500}.. | {$S ROM|
|00000e60| 53 45 47 32 7d 0d 0d 20 | 20 50 52 4f 43 45 44 55 |SEG2}.. | PROCEDU|
|00000e70| 52 45 20 52 4f 4d 57 61 | 73 74 65 3b 0d 0d 20 20 |RE ROMWa|ste;.. |
|00000e80| 20 20 56 41 52 0d 20 20 | 20 20 20 20 69 3a 20 69 | VAR. | i: i|
|00000e90| 6e 74 65 67 65 72 3b 0d | 20 20 20 20 20 20 6a 75 |nteger;.| ju|
|00000ea0| 6e 6b 2c 20 6a 75 6e 6b | 31 2c 20 6a 75 6e 6b 32 |nk, junk|1, junk2|
|00000eb0| 3a 20 72 65 63 74 3b 0d | 20 20 20 20 20 20 64 6f |: rect;.| do|
|00000ec0| 6e 74 43 61 72 65 3a 20 | 42 6f 6f 6c 65 61 6e 3b |ntCare: |Boolean;|
|00000ed0| 0d 0d 20 20 20 20 42 45 | 47 49 4e 0d 20 20 20 20 |.. BE|GIN. |
|00000ee0| 20 20 46 4f 52 20 69 20 | 3a 3d 20 31 20 54 4f 20 | FOR i |:= 1 TO |
|00000ef0| 31 20 44 4f 0d 20 20 20 | 20 20 20 20 20 42 45 47 |1 DO. | BEG|
|00000f00| 49 4e 0d 20 20 20 20 20 | 20 20 20 53 65 74 52 65 |IN. | SetRe|
|00000f10| 63 74 28 6a 75 6e 6b 2c | 20 31 30 30 2c 20 32 30 |ct(junk,| 100, 20|
|00000f20| 30 2c 20 33 30 30 2c 20 | 34 30 30 29 3b 0d 20 20 |0, 300, |400);. |
|00000f30| 20 20 20 20 20 20 53 65 | 74 52 65 63 74 28 6a 75 | Se|tRect(ju|
|00000f40| 6e 6b 31 2c 20 32 30 30 | 2c 20 33 30 30 2c 20 34 |nk1, 200|, 300, 4|
|00000f50| 30 30 2c 20 35 30 30 29 | 3b 0d 20 20 20 20 20 20 |00, 500)|;. |
|00000f60| 20 20 64 6f 6e 74 43 61 | 72 65 20 3a 3d 20 53 65 | dontCa|re := Se|
|00000f70| 63 74 52 65 63 74 28 6a | 75 6e 6b 2c 20 6a 75 6e |ctRect(j|unk, jun|
|00000f80| 6b 31 2c 20 6a 75 6e 6b | 32 29 3b 0d 20 20 20 20 |k1, junk|2);. |
|00000f90| 20 20 20 20 45 4e 44 3b | 0d 20 20 20 20 45 4e 44 | END;|. END|
|00000fa0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fc0| 7b 52 4f 4d 57 61 73 74 | 65 7d 0d 0d 20 20 50 52 |{ROMWast|e}.. PR|
|00000fd0| 4f 43 45 44 55 52 45 20 | 52 4f 4d 57 35 30 30 42 |OCEDURE |ROMW500B|
|00000fe0| 3b 0d 0d 20 20 20 20 56 | 41 52 0d 20 20 20 20 20 |;.. V|AR. |
|00000ff0| 20 69 3a 20 69 6e 74 65 | 67 65 72 3b 0d 20 20 20 | i: inte|ger;. |
|00001000| 20 20 20 6a 75 6e 6b 2c | 20 6a 75 6e 6b 31 2c 20 | junk,| junk1, |
|00001010| 6a 75 6e 6b 32 3a 20 72 | 65 63 74 3b 0d 20 20 20 |junk2: r|ect;. |
|00001020| 20 20 20 64 6f 6e 74 43 | 61 72 65 3a 20 42 6f 6f | dontC|are: Boo|
|00001030| 6c 65 61 6e 3b 0d 0d 20 | 20 20 20 42 45 47 49 4e |lean;.. | BEGIN|
|00001040| 0d 20 20 20 20 20 20 46 | 4f 52 20 69 20 3a 3d 20 |. F|OR i := |
|00001050| 31 20 54 4f 20 35 30 30 | 20 44 4f 0d 20 20 20 20 |1 TO 500| DO. |
|00001060| 20 20 20 20 42 45 47 49 | 4e 0d 20 20 20 20 20 20 | BEGI|N. |
|00001070| 20 20 53 65 74 52 65 63 | 74 28 6a 75 6e 6b 2c 20 | SetRec|t(junk, |
|00001080| 31 30 30 2c 20 32 30 30 | 2c 20 33 30 30 2c 20 34 |100, 200|, 300, 4|
|00001090| 30 30 29 3b 0d 20 20 20 | 20 20 20 20 20 53 65 74 |00);. | Set|
|000010a0| 52 65 63 74 28 6a 75 6e | 6b 31 2c 20 32 30 30 2c |Rect(jun|k1, 200,|
|000010b0| 20 33 30 30 2c 20 34 30 | 30 2c 20 35 30 30 29 3b | 300, 40|0, 500);|
|000010c0| 0d 20 20 20 20 20 20 20 | 20 64 6f 6e 74 43 61 72 |. | dontCar|
|000010d0| 65 20 3a 3d 20 53 65 63 | 74 52 65 63 74 28 6a 75 |e := Sec|tRect(ju|
|000010e0| 6e 6b 2c 20 6a 75 6e 6b | 31 2c 20 6a 75 6e 6b 32 |nk, junk|1, junk2|
|000010f0| 29 3b 0d 20 20 20 20 20 | 20 20 20 45 4e 44 3b 0d |);. | END;.|
|00001100| 20 20 20 20 45 4e 44 3b | 20 20 20 20 20 20 20 20 | END;| |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001120| 20 20 20 20 20 20 20 7b | 52 4f 4d 57 35 30 30 42 | {|ROMW500B|
|00001130| 7d 0d 0d 20 20 56 41 52 | 0d 20 20 20 20 72 65 70 |}.. VAR|. rep|
|00001140| 65 61 74 73 3a 20 69 6e | 74 65 67 65 72 3b 0d 0d |eats: in|teger;..|
|00001150| 20 20 42 45 47 49 4e 0d | 0d 09 09 7b 24 49 46 43 | BEGIN.|...{$IFC|
|00001160| 20 64 6f 50 65 72 66 6f | 72 6d 7d 0d 20 20 20 20 | doPerfo|rm}. |
|00001170| 54 68 65 50 47 6c 6f 62 | 61 6c 73 20 3a 3d 20 4e |ThePGlob|als := N|
|00001180| 49 4c 3b 0d 20 20 20 20 | 49 46 20 4e 4f 54 20 49 |IL;. |IF NOT I|
|00001190| 6e 69 74 50 65 72 66 28 | 54 68 65 50 47 6c 6f 62 |nitPerf(|ThePGlob|
|000011a0| 61 6c 73 2c 0d 09 09 09 | 09 09 09 09 09 09 09 34 |als,....|.......4|
|000011b0| 20 09 09 09 7b 6d 73 7d | 2c 0d 09 09 09 09 09 09 | ...{ms}|,.......|
|000011c0| 09 09 09 09 32 09 09 09 | 09 7b 62 79 74 65 73 7d |....2...|.{bytes}|
|000011d0| 2c 0d 09 09 09 09 09 09 | 09 09 09 09 74 72 75 65 |,.......|....true|
|000011e0| 2c 09 09 7b 6d 65 61 73 | 75 72 65 20 52 4f 4d 20 |,..{meas|ure ROM |
|000011f0| 63 6f 64 65 7d 0d 09 09 | 09 09 09 09 09 09 09 09 |code}...|........|
|00001200| 74 72 75 65 2c 20 09 7b | 6d 65 61 73 75 72 65 20 |true, .{|measure |
|00001210| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 63 6f 64 65 |applicat|ion code|
|00001220| 7d 0d 09 09 09 09 09 09 | 09 09 09 09 27 43 4f 44 |}.......|....'COD|
|00001230| 45 27 2c 09 7b 73 65 67 | 6d 65 6e 74 73 20 74 6f |E',.{seg|ments to|
|00001240| 20 6d 65 61 73 75 72 65 | 7d 0d 09 09 09 09 09 09 | measure|}.......|
|00001250| 09 09 09 09 30 2c 09 09 | 09 7b 6c 65 74 20 74 68 |....0,..|.{let th|
|00001260| 65 20 70 65 72 66 6f 72 | 6d 61 6e 63 65 20 74 6f |e perfor|mance to|
|00001270| 6f 6c 73 20 63 61 6c 63 | 75 6c 61 74 65 20 74 68 |ols calc|ulate th|
|00001280| 65 20 52 4f 4d 20 69 64 | 7d 0d 09 09 09 09 09 09 |e ROM id|}.......|
|00001290| 09 09 09 09 27 27 2c 09 | 09 09 7b 6c 65 74 20 74 |....'',.|..{let t|
|000012a0| 68 65 20 70 65 72 66 6f | 72 6d 61 6e 63 65 20 74 |he perfo|rmance t|
|000012b0| 6f 6f 6c 73 20 66 69 6e | 64 20 74 68 65 20 52 4f |ools fin|d the RO|
|000012c0| 4d 20 6e 61 6d 65 7d 0d | 20 20 20 20 20 20 20 20 |M name}.| |
|000012d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 66 61 6c 73 | | fals|
|000012e0| 65 2c 09 7b 64 6f 6e 27 | 74 20 6d 65 61 73 75 72 |e,.{don'|t measur|
|000012f0| 65 20 52 41 4d 7d 0d 09 | 09 09 09 09 09 09 09 09 |e RAM}..|........|
|00001300| 09 30 20 09 09 09 7b 6c | 6f 77 20 52 41 4d 7d 2c |.0 ...{l|ow RAM},|
|00001310| 0d 09 09 09 09 09 09 09 | 09 09 09 24 31 46 46 46 |........|...$1FFF|
|00001320| 46 46 09 7b 68 69 67 68 | 20 52 41 4d 20 28 32 4d |FF.{high| RAM (2M|
|00001330| 29 7d 2c 0d 20 20 20 20 | 20 20 20 09 09 09 09 09 |)},. | .....|
|00001340| 09 09 31 36 09 09 09 7b | 64 65 66 61 75 6c 74 7d |..16...{|default}|
|00001350| 20 29 20 54 48 45 4e 0d | 20 20 20 20 20 20 20 20 | ) THEN.| |
|00001360| 42 45 47 49 4e 0d 20 20 | 20 20 20 20 20 20 77 72 |BEGIN. | wr|
|00001370| 69 74 65 6c 6e 28 27 45 | 72 72 6f 72 73 20 64 75 |iteln('E|rrors du|
|00001380| 72 69 6e 67 20 49 6e 69 | 74 50 65 72 66 2e 27 29 |ring Ini|tPerf.')|
|00001390| 3b 0d 20 20 20 20 20 20 | 20 20 45 78 69 74 28 54 |;. | Exit(T|
|000013a0| 65 73 74 50 65 72 66 29 | 3b 0d 20 20 20 20 20 20 |estPerf)|;. |
|000013b0| 20 20 45 4e 44 3b 0d 09 | 09 09 09 0d 20 20 20 20 | END;..|.... |
|000013c0| 49 46 20 50 65 72 66 43 | 6f 6e 74 72 6f 6c 28 54 |IF PerfC|ontrol(T|
|000013d0| 68 65 50 47 6c 6f 62 61 | 6c 73 2c 20 74 72 75 65 |hePGloba|ls, true|
|000013e0| 29 20 54 48 45 4e 20 7b | 74 75 72 6e 20 6f 6e 2c |) THEN {|turn on,|
|000013f0| 20 74 68 72 6f 77 20 61 | 77 61 79 20 6f 6c 64 20 | throw a|way old |
|00001400| 73 74 61 74 65 7d 20 3b | 0d 09 09 7b 24 45 4e 44 |state} ;|...{$END|
|00001410| 43 7d 0d 0d 20 20 20 20 | 46 4f 52 20 72 65 70 65 |C}.. |FOR repe|
|00001420| 61 74 73 20 3a 3d 20 31 | 20 54 4f 20 35 20 44 4f |ats := 1| TO 5 DO|
|00001430| 0d 20 20 20 20 20 20 42 | 45 47 49 4e 0d 20 20 20 |. B|EGIN. |
|00001440| 20 20 20 7b 20 77 61 73 | 74 65 20 73 6f 6d 65 20 | { was|te some |
|00001450| 74 69 6d 65 20 69 6e 20 | 75 73 65 72 20 43 6f 64 |time in |user Cod|
|00001460| 65 2f 4d 55 4c 34 20 7d | 0d 20 20 20 20 20 20 57 |e/MUL4 }|. W|
|00001470| 61 73 74 65 3b 0d 20 20 | 20 20 20 20 57 31 30 30 |aste;. | W100|
|00001480| 3b 0d 20 20 20 20 20 20 | 57 35 30 30 41 3b 0d 20 |;. |W500A;. |
|00001490| 20 20 20 20 20 57 35 30 | 30 42 77 69 74 68 41 56 | W50|0BwithAV|
|000014a0| 65 72 79 4c 6f 6e 67 4e | 61 6d 65 3b 0d 20 20 20 |eryLongN|ame;. |
|000014b0| 20 20 20 57 31 35 30 30 | 3b 0d 0d 20 20 20 20 20 | W1500|;.. |
|000014c0| 20 7b 20 77 61 73 74 65 | 20 73 6f 6d 65 20 74 69 | { waste| some ti|
|000014d0| 6d 65 20 69 6e 20 52 4f | 4d 20 63 61 6c 6c 73 3a |me in RO|M calls:|
|000014e0| 20 7d 0d 20 20 20 20 20 | 20 52 4f 4d 57 61 73 74 | }. | ROMWast|
|000014f0| 65 3b 0d 20 20 20 20 20 | 20 52 4f 4d 57 31 30 30 |e;. | ROMW100|
|00001500| 3b 0d 20 20 20 20 20 20 | 52 4f 4d 57 35 30 30 41 |;. |ROMW500A|
|00001510| 3b 0d 20 20 20 20 20 20 | 52 4f 4d 57 35 30 30 42 |;. |ROMW500B|
|00001520| 3b 0d 20 20 20 20 20 20 | 52 4f 4d 57 31 35 30 30 |;. |ROMW1500|
|00001530| 3b 0d 20 20 20 20 20 20 | 45 4e 44 3b 0d 0d 09 09 |;. |END;....|
|00001540| 7b 24 49 46 43 20 64 6f | 50 65 72 66 6f 72 6d 7d |{$IFC do|Perform}|
|00001550| 0d 20 20 20 20 49 46 20 | 50 65 72 66 43 6f 6e 74 |. IF |PerfCont|
|00001560| 72 6f 6c 28 54 68 65 50 | 47 6c 6f 62 61 6c 73 2c |rol(TheP|Globals,|
|00001570| 20 66 61 6c 73 65 29 20 | 54 48 45 4e 20 7b 74 75 | false) |THEN {tu|
|00001580| 72 6e 20 6f 66 66 2c 20 | 74 68 72 6f 77 20 61 77 |rn off, |throw aw|
|00001590| 61 79 20 6f 6c 64 20 73 | 74 61 74 65 7d 20 3b 0d |ay old s|tate} ;.|
|000015a0| 0d 20 20 20 20 49 46 20 | 50 65 72 66 44 75 6d 70 |. IF |PerfDump|
|000015b0| 28 54 68 65 50 47 6c 6f | 62 61 6c 73 2c 20 27 50 |(ThePGlo|bals, 'P|
|000015c0| 65 72 66 6f 72 6d 2e 6f | 75 74 27 2c 20 66 61 6c |erform.o|ut', fal|
|000015d0| 73 65 2c 20 38 30 29 20 | 3c 3e 20 30 20 54 48 45 |se, 80) |<> 0 THE|
|000015e0| 4e 0d 20 20 20 20 20 20 | 77 72 69 74 65 6c 6e 28 |N. |writeln(|
|000015f0| 27 45 72 72 6f 72 73 20 | 64 75 72 69 6e 67 20 64 |'Errors |during d|
|00001600| 75 6d 70 2e 27 29 3b 0d | 0d 20 20 20 20 54 65 72 |ump.');.|. Ter|
|00001610| 6d 50 65 72 66 28 54 68 | 65 50 47 6c 6f 62 61 6c |mPerf(Th|ePGlobal|
|00001620| 73 29 3b 0d 09 09 7b 24 | 45 4e 44 43 7d 0d 0d 20 |s);...{$|ENDC}.. |
|00001630| 20 45 4e 44 2e 0d 00 00 | 00 00 00 00 00 00 00 00 | END....|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 00 00 01 00 00 00 02 31 | 00 00 01 31 00 00 00 52 |.......1|...1...R|
|00001690| 00 00 0e 17 0a 51 75 69 | 63 6b 45 71 75 2e 61 2e |.....Qui|ckEqu.a.|
|000016a0| 02 00 00 00 54 45 58 54 | 4d 50 53 20 01 00 00 80 |....TEXT|MPS ....|
|000016b0| 0a 54 65 73 74 50 65 72 | 66 2e 70 50 02 00 00 00 |.TestPer|f.pP....|
|000016c0| 54 45 58 54 4d 50 53 20 | 01 00 00 64 01 20 00 af |TEXTMPS |...d. ..|
|000016d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 64 01 20 |..TEXTMP|S ...d. |
|000016e0| 00 af 62 7f 00 00 00 00 | 00 00 00 00 00 00 00 00 |..b.....|........|
|000016f0| 00 00 9f b9 93 40 00 00 | 15 b6 00 00 02 83 00 00 |.....@..|........|
|00001700| 00 00 00 00 00 00 10 00 | 00 00 0e 17 0a 53 41 4e |........|.....SAN|
|00001710| 45 4d 61 63 73 2e 61 2e | 02 00 00 00 54 45 58 54 |EMacs.a.|....TEXT|
|00001720| 4d 50 53 20 01 00 00 40 | 01 00 0e 17 00 00 11 da |MPS ...@|........|
|00001730| 00 00 00 00 47 8f 00 00 | 48 00 00 00 00 00 01 7e |....G...|H......~|
|00001740| 00 00 02 00 9b 83 8a b0 | 9b 83 ae 35 02 36 00 00 |........|...5.6..|
|00001750| 42 8a 75 5e 00 01 46 78 | 00 00 00 00 00 00 00 00 |B.u^..Fx|........|
|00001760| 00 00 5f 60 00 24 00 00 | 00 00 00 00 00 00 5e fe |.._`.$..|......^.|
|00001770| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 0f 00 |........|........|
|00001780| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 03 |...H..Mo|naco....|
|00001790| 00 1f 7f ff 7f ff 00 00 | 00 38 7f ff 7f ff 00 00 |........|.8......|
|000017a0| 00 30 00 00 ed ba 00 06 | 00 02 00 31 00 0a 01 49 |.0......|...1...I|
|000017b0| 01 ea 00 31 00 0a 01 49 | 01 ea 9f 8a a5 f4 00 00 |...1...I|........|
|000017c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 c4 |........|........|
|000017d0| 00 0b 00 00 01 a2 00 00 | 01 aa 09 54 65 73 74 50 |........|...TestP|
|000017e0| 65 72 66 00 00 00 03 a1 | 00 00 03 a6 05 57 35 30 |erf.....|.....W50|
|000017f0| 30 41 00 00 04 c0 00 00 | 04 c4 05 57 31 30 30 00 |0A......|...W100.|
|00001800| 00 00 05 dd 00 00 05 e2 | 05 57 31 35 30 30 00 00 |........|.W1500..|
|00001810| 07 0a 00 00 07 0f 05 57 | 61 73 74 65 00 00 08 27 |.......W|aste...'|
|00001820| 00 00 08 3d 17 57 35 30 | 30 42 77 69 74 68 41 56 |...=.W50|0BwithAV|
|00001830| 65 72 79 4c 6f 6e 67 4e | 61 6d 65 00 00 00 09 af |eryLongN|ame.....|
|00001840| 00 00 09 b7 09 52 4f 4d | 57 35 30 30 41 00 00 00 |.....ROM|W500A...|
|00001850| 0b 16 00 00 0b 1d 07 52 | 4f 4d 57 31 30 30 00 00 |.......R|OMW100..|
|00001860| 0c 7b 00 00 0c 83 09 52 | 4f 4d 57 31 35 30 30 00 |.{.....R|OMW1500.|
|00001870| 00 00 0d f3 00 00 0d fb | 09 52 4f 4d 57 61 73 74 |........|.ROMWast|
|00001880| 65 00 00 00 0f 58 00 00 | 0f 60 09 52 4f 4d 57 35 |e....X..|.`.ROMW5|
|00001890| 30 30 42 00 00 00 00 19 | 03 00 80 00 00 00 03 33 |00B.....|.......3|
|000018a0| 2e 30 0e 4d 50 57 20 50 | 61 73 63 61 6c 20 33 2e |.0.MPW P|ascal 3.|
|000018b0| 30 00 00 01 00 00 00 02 | 31 00 00 01 31 00 00 00 |0.......|1...1...|
|000018c0| 52 00 21 64 f4 06 9e 00 | 00 00 1c 00 52 00 01 4d |R.!d....|....R..M|
|000018d0| 50 53 52 00 01 00 12 76 | 65 72 73 00 00 00 2a 03 |PSR....v|ers...*.|
|000018e0| ed ff ff 00 00 00 00 00 | 00 00 00 03 ef ff ff 00 |........|........|
|000018f0| 00 00 4c 00 00 00 00 00 | 02 ff ff 20 00 01 14 00 |..L.....|... ....|
|00001900| 21 64 04 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |!d......|........|
|00001910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+