Wacci Public Domain Disc 16 (UK) (Face A) (1994) [Original] [COMPILATION].dsk
Size : 512 (Real : 512)
000000: 00 44 45 4D 4F 31 20 20 20 50 41 53 00 00 00 08 .DEMO1 PAS....
000010: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 44 45 4D 4F 32 20 20 20 50 41 53 00 00 00 06 .DEMO2 PAS....
000030: 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 44 45 4D 4F 33 20 20 20 50 41 53 00 00 00 0C .DEMO3 PAS....
000050: 04 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 44 45 4D 4F 34 20 20 20 50 41 53 00 00 00 10 .DEMO4 PAS....
000070: 06 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 0E .DISC BAS....
000090: 08 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 45 51 20 20 20 20 20 20 50 41 53 00 00 00 09 .EQ PAS....
0000B0: 0A 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 46 57 44 20 20 20 20 20 50 41 53 00 00 00 03 .FWD PAS....
0000D0: 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 48 57 35 20 20 20 20 20 50 41 53 00 00 00 72 .HW5 PAS...r
0000F0: 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 00 ................
000100: 00 48 57 35 44 41 54 41 20 20 20 20 00 00 00 04 .HW5DATA ....
000110: 1C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 50 41 53 59 4E 54 41 58 44 4F 43 00 00 00 30 .PASYNTAXDOC...0
000130: 1D 1E 1F 20 21 22 00 00 00 00 00 00 00 00 00 00 ... !"..........
000140: 00 50 43 20 20 20 20 20 20 53 55 42 00 00 00 02 .PC SUB....
000150: 23 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #...............
000160: 00 50 46 45 54 20 20 20 20 43 4F 4D 00 00 00 36 .PFET COM...6
000170: 24 25 26 27 28 29 2A 00 00 00 00 00 00 00 00 00 $%&'()*.........
000180: 00 50 46 45 54 20 20 20 20 50 41 53 00 00 00 57 .PFET PAS...W
000190: 2B 2C 2D 2E 2F 30 31 32 33 34 35 00 00 00 00 00 +,-./012345.....
0001A0: 00 50 4C 41 59 44 41 54 41 20 20 20 00 00 00 01 .PLAYDATA ....
0001B0: 36 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6...............
0001C0: 00 50 4C 41 59 4B 41 4C 20 50 41 53 00 00 00 62 .PLAYKAL PAS...b
0001D0: 37 38 39 3A 3B 3C 3D 3E 3F 40 41 42 43 00 00 00 789:;<=>?@ABC...
0001E0: 00 50 4F 50 53 20 20 20 20 44 4F 43 00 00 00 0F .POPS DOC....
0001F0: 44 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 DE..............
Size : 512 (Real : 512)
000000: 6F 70 20 73 74 61 72 74 20 2A 29 20 20 0D 0A 20 op start *) ..
000010: 20 20 20 20 20 70 75 74 23 31 28 69 23 2C 31 33 put#1(i#,13
000020: 2C 31 30 29 3B 20 20 28 2A 20 70 75 74 20 69 73 ,10); (* put is
000030: 20 74 68 65 20 73 61 6D 65 20 61 74 20 77 72 69 the same at wri
000040: 74 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 te *)..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
000060: 2A 20 31 33 20 26 20 31 30 20 61 72 65 20 63 61 * 13 & 10 are ca
000070: 72 72 69 61 67 65 20 72 65 74 75 72 6E 20 26 20 rriage return &
000080: 6C 69 6E 65 20 66 65 65 64 20 2A 29 0D 0A 20 20 line feed *)..
000090: 20 20 20 20 69 3A 3D 69 2B 31 20 20 20 20 20 20 i:=i+1
0000A0: 20 20 20 20 20 20 28 2A 20 69 6E 63 72 65 61 73 (* increas
0000B0: 65 20 76 61 72 69 61 62 6C 65 20 63 6F 75 6E 74 e variable count
0000C0: 65 72 20 2A 29 0D 0A 20 20 20 20 75 6E 74 69 6C er *).. until
0000D0: 20 69 3E 31 30 20 20 20 20 20 20 20 20 20 20 28 i>10 (
0000E0: 2A 20 6C 6F 6F 70 20 65 6E 64 20 2A 29 0D 0A 20 * loop end *)..
0000F0: 20 65 6E 64 3B 20 20 20 20 20 20 20 20 20 20 20 end;
000100: 20 20 20 20 20 20 20 28 2A 20 65 6E 64 20 6F 66 (* end of
000110: 20 70 72 6F 63 65 64 75 72 65 20 63 61 6C 6C 65 procedure calle
000120: 64 20 27 63 6F 75 6E 74 65 72 27 20 2A 29 0D 0A d 'counter' *)..
000130: 0D 0A 62 65 67 69 6E 3B 20 20 20 20 20 20 20 20 ..begin;
000140: 20 20 20 20 20 20 20 20 20 20 28 2A 20 6D 61 69 (* mai
000150: 6E 20 70 72 6F 67 72 61 6D 6D 65 20 2A 29 0D 0A n programme *)..
000160: 20 20 63 6F 75 6E 74 65 72 20 20 20 20 20 20 20 counter
000170: 20 20 20 20 20 20 20 20 28 2A 20 63 61 6C 6C 20 (* call
000180: 74 68 65 20 64 65 63 6C 61 72 65 64 20 70 72 6F the declared pro
000190: 63 65 64 75 72 65 20 27 63 6F 75 6E 74 65 72 27 cedure 'counter'
0001A0: 20 2A 29 0D 0A 65 6E 64 2E 20 20 20 20 20 20 20 *)..end.
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
0001C0: 65 6E 64 20 6F 66 20 74 68 65 20 70 72 6F 67 72 end of the progr
0001D0: 61 6D 6D 65 20 2A 29 0D 0A 1A 20 63 6F 75 6E 74 amme *)... count
0001E0: 20 6F 6E 20 74 68 65 20 56 44 55 20 73 63 72 65 on the VDU scre
0001F0: 65 6E 0D 0A 0D 0A 20 20 70 6C 65 61 73 65 20 6E en.... please n
Size : 512 (Real : 512)
000000: 00 50 4F 57 54 57 4F 20 20 50 41 53 00 00 00 04 .POWTWO PAS....
000010: 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F...............
000020: 00 50 50 43 20 20 20 20 20 43 4F 4D 00 00 00 80 .PPC COM....
000030: 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 GHIJKLMNOPQRSTUV
000040: 00 50 50 43 20 20 20 20 20 43 4F 4D 01 00 00 00 .PPC COM....
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 50 50 43 20 20 20 20 20 44 4F 43 00 00 00 4E .PPC DOC...N
000070: 57 58 59 5A 5B 5C 5D 5E 5F 60 00 00 00 00 00 00 WXYZ[\]^_`......
000080: 00 50 50 43 20 20 20 20 20 50 41 53 00 00 00 80 .PPC PAS....
000090: 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 abcdefghijklmnop
0000A0: 00 50 50 43 20 20 20 20 20 50 41 53 01 00 00 4E .PPC PAS...N
0000B0: 71 72 73 74 75 76 77 78 79 7A 00 00 00 00 00 00 qrstuvwxyz......
0000C0: 00 50 53 54 41 43 4B 20 20 44 4F 43 00 00 00 09 .PSTACK DOC....
0000D0: 7B 7C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {|..............
0000E0: 00 52 45 47 45 4E 20 20 20 44 4F 43 00 00 00 14 .REGEN DOC....
0000F0: 7D 7E 7F 00 00 00 00 00 00 00 00 00 00 00 00 00 }~..............
000100: 00 52 54 50 20 20 20 20 20 41 53 4D 00 00 00 56 .RTP ASM...V
000110: 80 81 82 83 84 85 86 87 88 89 8A 00 00 00 00 00 ................
000120: 00 52 54 50 20 20 20 20 20 43 4F 4D 00 00 00 0A .RTP COM....
000130: 8B 8C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 53 54 49 52 4C 49 4E 47 50 41 53 00 00 00 06 .STIRLINGPAS....
000150: 8D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 54 45 53 54 45 52 20 20 50 41 53 00 00 00 1E .TESTER PAS....
000170: 8E 8F 90 91 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 56 41 4C 49 44 41 54 45 53 55 42 00 00 00 04 .VALIDATESUB....
000190: 92 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 28 2A 0D 0A 20 20 44 45 4D 4F 32 2E 50 41 53 20 (*.. DEMO2.PAS
000010: 0D 0A 20 20 0D 0A 20 20 74 68 65 20 63 6F 75 6E .. .. the coun
000020: 74 65 72 20 72 6F 75 74 69 6E 65 20 66 72 6F 6D ter routine from
000030: 20 64 65 6D 6F 31 20 0D 0A 0D 0A 20 20 70 6C 75 demo1 .... plu
000040: 73 0D 0A 0D 0A 20 20 61 20 73 69 6D 70 6C 65 20 s.... a simple
000050: 72 6F 75 74 69 6E 65 20 77 68 69 63 68 20 75 73 routine which us
000060: 65 73 20 74 68 65 20 66 6F 72 2E 2E 74 6F 20 72 es the for..to r
000070: 6F 75 74 69 6E 65 20 74 6F 20 64 69 73 70 6C 61 outine to displa
000080: 79 20 74 65 78 74 0D 0A 20 20 6F 6E 20 74 68 65 y text.. on the
000090: 20 56 44 55 20 73 63 72 65 65 6E 0D 0A 2A 29 0D VDU screen..*).
0000A0: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 63 6F 75 ...procedure cou
0000B0: 6E 74 65 72 3B 20 20 20 28 2A 20 61 73 20 65 78 nter; (* as ex
0000C0: 70 6C 61 69 6E 65 64 20 69 6E 20 64 65 6D 6F 31 plained in demo1
0000D0: 2E 70 61 73 20 2A 29 0D 0A 0D 0A 20 20 76 61 72 .pas *).... var
0000E0: 20 20 69 20 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 20 i : word;....
0000F0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 69 3A 3D 31 begin.. i:=1
000100: 3B 20 20 20 20 20 20 20 0D 0A 20 20 20 20 72 65 ; .. re
000110: 70 65 61 74 20 20 0D 0A 20 20 20 20 20 20 70 75 peat .. pu
000120: 74 23 31 28 69 23 2C 31 33 2C 31 30 29 3B 0D 0A t#1(i#,13,10);..
000130: 20 20 20 20 20 20 69 3A 3D 69 2B 31 20 20 20 20 i:=i+1
000140: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 75 .. u
000150: 6E 74 69 6C 20 69 3E 31 30 0D 0A 20 20 65 6E 64 ntil i>10.. end
000160: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 64 ;....procedure d
000170: 69 73 70 6C 61 79 74 65 78 74 3B 20 20 28 2A 20 isplaytext; (*
000180: 64 65 63 6C 61 72 65 20 61 6E 6F 74 68 65 72 20 declare another
000190: 70 72 6F 63 65 64 75 72 65 20 63 61 6C 6C 65 64 procedure called
0001A0: 20 27 64 69 73 70 6C 61 79 74 65 78 74 27 20 2A 'displaytext' *
0001B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 77 68 (* wh
0001D0: 69 63 68 20 64 65 6D 6F 6E 73 74 72 61 74 65 73 ich demonstrates
0001E0: 20 74 68 65 20 66 6F 72 2E 2E 74 6F 20 6C 6F 6F the for..to loo
0001F0: 70 20 2A 29 0D 0A 20 20 76 61 72 20 20 78 20 3A p *).. var x :
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 77 6F 72 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 word;.... begi
000010: 6E 0D 0A 0D 0A 20 20 20 20 66 6F 72 20 78 3A 3D n.... for x:=
000020: 31 20 74 6F 20 31 30 20 64 6F 20 70 75 74 23 31 1 to 10 do put#1
000030: 28 27 66 72 65 64 20 20 20 20 27 2C 31 33 2C 31 ('fred ',13,1
000040: 30 29 0D 0A 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 0).... end;....
000050: 62 65 67 69 6E 3B 20 20 20 20 20 20 20 20 20 20 begin;
000060: 28 2A 20 6D 61 69 6E 20 70 72 6F 67 72 61 6D 20 (* main program
000070: 6C 6F 6F 70 20 2A 29 0D 0A 0D 0A 20 20 63 6F 75 loop *).... cou
000080: 6E 74 65 72 3B 20 20 20 20 20 20 28 2A 20 70 65 nter; (* pe
000090: 72 66 6F 72 6D 20 74 68 65 20 70 72 6F 63 65 64 rform the proced
0000A0: 75 72 65 20 63 61 6C 6C 65 64 20 27 63 6F 75 6E ure called 'coun
0000B0: 74 65 72 27 20 2A 29 0D 0A 20 20 64 69 73 70 6C ter' *).. displ
0000C0: 61 79 74 65 78 74 20 20 20 28 2A 20 64 69 74 74 aytext (* ditt
0000D0: 6F 20 66 6F 72 20 27 64 69 73 70 6C 61 79 74 65 o for 'displayte
0000E0: 78 74 27 20 2A 29 0D 0A 0D 0A 65 6E 64 2E 0D 0A xt' *)....end...
0000F0: 1A 75 74 69 6E 65 20 74 6F 20 64 69 73 70 6C 61 .utine to displa
000100: 3B 20 20 20 20 20 20 20 0D 0A 20 20 20 20 72 65 ; .. re
000110: 70 65 61 74 20 20 0D 0A 20 20 20 20 20 20 70 75 peat .. pu
000120: 74 23 31 28 69 23 2C 31 33 2C 31 30 29 3B 0D 0A t#1(i#,13,10);..
000130: 20 20 20 20 20 20 69 3A 3D 69 2B 31 20 20 20 20 i:=i+1
000140: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 75 .. u
000150: 6E 74 69 6C 20 69 3E 31 30 0D 0A 20 20 65 6E 64 ntil i>10.. end
000160: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 64 ;....procedure d
000170: 69 73 70 6C 61 79 74 65 78 74 3B 20 20 28 2A 20 isplaytext; (*
000180: 64 65 63 6C 61 72 65 20 61 6E 6F 74 68 65 72 20 declare another
000190: 70 72 6F 63 65 64 75 72 65 20 63 61 6C 6C 65 64 procedure called
0001A0: 20 27 64 69 73 70 6C 61 79 74 65 78 74 27 20 2A 'displaytext' *
0001B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 77 68 (* wh
0001D0: 69 63 68 20 64 65 6D 6F 6E 73 74 72 61 74 65 73 ich demonstrates
0001E0: 20 74 68 65 20 66 6F 72 2E 2E 74 6F 20 6C 6F 6F the for..to loo
0001F0: 70 20 2A 29 0D 0A 20 20 76 61 72 20 20 78 20 3A p *).. var x :
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 28 2A 0D 0A 20 20 44 45 4D 4F 33 2E 50 41 53 0D (*.. DEMO3.PAS.
000010: 0A 20 20 0D 0A 20 20 6D 6F 72 65 20 62 69 74 73 . .. more bits
000020: 20 74 68 61 74 20 68 61 76 65 20 62 65 65 6E 20 that have been
000030: 61 64 64 65 64 20 74 6F 20 74 68 65 20 70 72 6F added to the pro
000040: 67 72 61 6D 2C 20 74 68 69 73 20 74 69 6D 65 20 gram, this time
000050: 77 65 27 76 65 20 61 64 64 65 64 20 73 6F 6D 65 we've added some
000060: 0D 0A 20 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 .. control code
000070: 73 2E 20 54 68 65 73 65 20 61 72 65 20 75 73 65 s. These are use
000080: 64 20 69 6E 20 65 78 61 63 74 6C 79 20 74 68 65 d in exactly the
000090: 20 73 61 6D 65 20 77 61 79 20 61 73 20 6F 75 74 same way as out
0000A0: 6C 69 6E 65 64 20 69 6E 20 79 6F 75 72 0D 0A 20 lined in your..
0000B0: 20 63 6F 6D 70 75 74 65 72 20 6D 61 6E 75 61 6C computer manual
0000C0: 2E 0D 0A 0D 0A 20 20 54 68 65 20 63 6F 64 65 73 ..... The codes
0000D0: 20 69 6E 20 74 68 69 73 20 70 72 6F 67 72 61 6D in this program
0000E0: 20 61 72 65 20 74 68 65 20 43 50 2F 4D 20 76 32 are the CP/M v2
0000F0: 2E 32 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 73 .2 control codes
000100: 2C 20 74 68 65 73 65 20 63 61 6E 20 65 61 73 69 , these can easi
000110: 6C 79 0D 0A 20 20 61 6C 74 65 72 65 64 20 66 6F ly.. altered fo
000120: 72 20 43 50 2F 4D 20 76 33 2E 31 20 28 70 6C 75 r CP/M v3.1 (plu
000130: 73 29 0D 0A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 s)..*)....proced
000140: 75 72 65 20 63 6F 75 6E 74 65 72 3B 20 20 20 28 ure counter; (
000150: 2A 20 61 73 20 65 78 70 6C 61 69 6E 65 64 20 69 * as explained i
000160: 6E 20 64 65 6D 6F 31 2E 70 61 73 20 2A 29 0D 0A n demo1.pas *)..
000170: 0D 0A 20 20 76 61 72 20 20 69 20 3A 20 77 6F 72 .. var i : wor
000180: 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 d;.... begin..
000190: 20 20 20 69 3A 3D 31 3B 20 20 20 20 20 20 20 0D i:=1; .
0001A0: 0A 20 20 20 20 72 65 70 65 61 74 20 20 0D 0A 20 . repeat ..
0001B0: 20 20 20 20 20 70 75 74 23 31 28 69 23 2C 31 33 put#1(i#,13
0001C0: 2C 31 30 29 3B 0D 0A 20 20 20 20 20 20 69 3A 3D ,10);.. i:=
0001D0: 69 2B 31 20 20 20 20 20 20 20 20 20 20 20 20 20 i+1
0001E0: 0D 0A 20 20 20 20 75 6E 74 69 6C 20 69 3E 31 30 .. until i>10
0001F0: 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 .. end;....proc
Size : 512 (Real : 512)
000000: 28 2A 0D 0A 20 20 44 45 4D 4F 31 2E 50 41 53 20 (*.. DEMO1.PAS
000010: 0D 0A 0D 0A 20 20 61 20 73 69 6D 70 6C 65 20 63 .... a simple c
000020: 6F 75 6E 74 20 72 6F 75 74 69 6E 65 20 77 68 69 ount routine whi
000030: 63 68 20 63 6F 75 6E 74 73 20 66 72 6F 6D 20 31 ch counts from 1
000040: 20 74 6F 20 31 30 20 61 6E 64 20 64 69 73 70 6C to 10 and displ
000050: 61 79 73 0D 0A 20 20 74 68 65 20 63 6F 75 6E 74 ays.. the count
000060: 20 6F 6E 20 74 68 65 20 56 44 55 20 73 63 72 65 on the VDU scre
000070: 65 6E 0D 0A 0D 0A 20 20 70 6C 65 61 73 65 20 6E en.... please n
000080: 6F 74 65 20 74 68 61 74 20 63 6F 6D 6D 65 6E 74 ote that comment
000090: 73 20 61 72 65 20 70 6C 61 63 65 64 20 77 69 74 s are placed wit
0000A0: 68 69 6E 20 74 68 65 20 62 72 61 63 6B 65 74 2C hin the bracket,
0000B0: 20 77 68 69 63 68 20 6D 75 73 74 20 62 65 0D 0A which must be..
0000C0: 20 20 66 6F 6C 6C 6F 77 65 64 20 62 79 20 74 68 followed by th
0000D0: 65 20 27 73 70 6C 61 74 27 0D 0A 0D 0A 20 20 49 e 'splat'.... I
0000E0: 20 77 69 6C 6C 20 61 64 64 20 61 64 64 69 74 69 will add additi
0000F0: 6F 6E 61 6C 20 72 6F 75 74 69 6E 65 73 20 74 6F onal routines to
000100: 20 74 68 69 73 20 65 78 61 6D 70 6C 65 20 70 72 this example pr
000110: 6F 67 72 61 6D 6D 65 20 61 6C 6F 6E 67 20 77 69 ogramme along wi
000120: 74 68 0D 0A 20 20 63 6F 6D 6D 65 6E 74 73 20 6F th.. comments o
000130: 6E 20 77 68 61 74 20 69 73 20 68 61 70 70 65 6E n what is happen
000140: 69 6E 67 0D 0A 0D 0A 2A 29 0D 0A 0D 0A 70 72 6F ing....*)....pro
000150: 63 65 64 75 72 65 20 63 6F 75 6E 74 65 72 3B 20 cedure counter;
000160: 20 20 20 20 20 28 2A 20 64 65 63 6C 61 72 65 20 (* declare
000170: 61 20 70 72 6F 63 65 64 75 72 65 20 63 61 6C 6C a procedure call
000180: 65 64 20 27 63 6F 75 6E 74 65 72 27 20 2A 29 0D ed 'counter' *).
000190: 0A 0D 0A 20 20 76 61 72 20 20 69 20 3A 20 77 6F ... var i : wo
0001A0: 72 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 6E 20 20 rd;.... begin
0001B0: 0D 0A 20 20 20 20 69 3A 3D 31 3B 20 20 20 20 20 .. i:=1;
0001C0: 20 20 20 20 20 20 20 20 20 20 28 2A 20 73 65 74 (* set
0001D0: 20 76 61 72 69 61 62 6C 65 20 74 6F 20 31 20 2A variable to 1 *
0001E0: 29 0D 0A 20 20 20 20 72 65 70 65 61 74 20 20 20 ).. repeat
0001F0: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 6C 6F (* lo
Size : 512 (Real : 512)
000000: 65 64 75 72 65 20 64 69 73 70 6C 61 79 66 72 65 edure displayfre
000010: 64 3B 20 20 28 2A 20 64 65 63 6C 61 72 65 20 61 d; (* declare a
000020: 6E 6F 74 68 65 72 20 70 72 6F 63 65 64 75 72 65 nother procedure
000030: 20 63 61 6C 6C 65 64 20 27 64 69 73 70 6C 61 79 called 'display
000040: 66 72 65 64 27 20 2A 29 0D 0A 20 20 20 20 20 20 fred' *)..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 28 2A 20 77 68 69 63 68 20 64 65 6D 6F 6E (* which demon
000070: 73 74 72 61 74 65 73 20 74 68 65 20 66 6F 72 2E strates the for.
000080: 2E 74 6F 20 6C 6F 6F 70 20 2A 29 0D 0A 20 20 76 .to loop *).. v
000090: 61 72 20 20 78 20 3A 20 77 6F 72 64 3B 0D 0A 0D ar x : word;...
0000A0: 0A 20 20 62 65 67 69 6E 0D 0A 0D 0A 20 20 20 20 . begin....
0000B0: 66 6F 72 20 78 3A 3D 31 20 74 6F 20 31 30 20 64 for x:=1 to 10 d
0000C0: 6F 20 70 75 74 23 31 28 27 66 72 65 64 20 20 20 o put#1('fred
0000D0: 20 27 2C 31 33 2C 31 30 29 0D 0A 0D 0A 20 20 65 ',13,10).... e
0000E0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
0000F0: 20 70 72 65 73 73 6B 65 79 3B 20 20 20 20 20 28 presskey; (
000100: 2A 20 6E 65 77 20 70 72 6F 63 65 64 75 72 65 20 * new procedure
000110: 27 70 72 65 73 73 6B 65 79 27 20 2A 29 0D 0A 0D 'presskey' *)...
000120: 0A 20 20 76 61 72 20 69 6E 6B 65 79 20 3A 20 77 . var inkey : w
000130: 6F 72 64 20 3B 20 20 20 20 28 2A 20 64 65 63 6C ord ; (* decl
000140: 61 72 65 20 61 20 76 61 72 69 61 62 6C 65 20 2A are a variable *
000150: 29 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D 0A 0D 0A ).... begin....
000160: 20 20 20 20 70 75 74 23 31 28 27 50 72 65 73 73 put#1('Press
000170: 20 61 6E 27 2C 27 79 20 6B 65 79 20 74 6F 27 2C an','y key to',
000180: 27 20 63 6F 6E 74 69 6E 75 27 2C 27 65 20 3A 20 ' continu','e :
000190: 20 20 20 20 27 29 3B 0D 0A 0D 0A 20 20 20 20 28 ');.... (
0001A0: 2A 0D 0A 20 20 20 20 20 20 50 6C 65 61 73 65 20 *.. Please
0001B0: 4E 6F 74 65 3A 20 77 68 65 6E 20 75 73 69 6E 67 Note: when using
0001C0: 20 74 68 65 20 50 55 54 20 63 6F 6D 6D 61 6E 64 the PUT command
0001D0: 2C 20 79 6F 75 20 63 61 6E 20 6F 6E 6C 79 20 6F , you can only o
0001E0: 75 74 70 75 74 20 61 20 0D 0A 20 20 20 20 20 20 utput a ..
0001F0: 6D 61 78 69 6D 75 6D 20 6F 66 20 38 20 63 68 61 maximum of 8 cha
Size : 512 (Real : 512)
000000: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
000010: 20 63 6F 6E 74 69 6E 75 65 3B 20 20 20 20 20 20 continue;
000020: 20 28 2A 20 61 20 76 61 72 69 61 74 69 6F 6E 20 (* a variation
000030: 6F 6E 20 70 72 65 73 73 20 61 20 6B 65 79 20 2A on press a key *
000040: 29 0D 0A 0D 0A 20 20 76 61 72 20 69 6E 6B 65 79 ).... var inkey
000050: 20 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 : integer;....
000060: 20 28 2A 0D 0A 20 20 20 20 69 66 20 79 6F 75 20 (*.. if you
000070: 77 61 6E 74 20 74 6F 20 75 73 65 20 61 20 27 76 want to use a 'v
000080: 61 72 69 61 62 6C 65 27 20 77 69 74 68 69 6E 20 ariable' within
000090: 61 20 70 72 6F 63 65 64 75 72 65 20 74 68 65 6E a procedure then
0000A0: 20 74 68 65 20 76 61 72 69 61 62 6C 65 0D 0A 20 the variable..
0000B0: 20 20 20 6D 75 73 74 20 62 65 20 64 65 63 6C 61 must be decla
0000C0: 72 65 64 20 61 73 3A 0D 0A 0D 0A 20 20 20 20 31 red as:.... 1
0000D0: 2E 20 50 61 72 74 20 6F 66 20 74 68 65 20 70 72 . Part of the pr
0000E0: 6F 63 65 64 75 72 65 20 64 65 63 6C 65 72 61 74 ocedure declerat
0000F0: 69 6F 6E 20 28 61 73 20 69 6E 20 74 68 69 73 20 ion (as in this
000100: 63 61 73 65 29 0D 0A 20 20 20 20 32 2E 20 44 65 case).. 2. De
000110: 63 6C 61 72 65 64 20 61 73 20 61 20 76 61 72 69 clared as a vari
000120: 61 62 6C 65 20 61 74 20 74 68 65 20 73 74 61 72 able at the star
000130: 74 20 6F 66 20 74 68 65 20 70 72 6F 67 72 61 6D t of the program
000140: 0D 0A 20 20 2A 29 0D 0A 0D 0A 20 20 62 65 67 69 .. *).... begi
000150: 6E 0D 0A 0D 0A 20 20 20 20 70 75 74 23 31 28 27 n.... put#1('
000160: 70 72 65 73 73 20 61 20 27 2C 27 6B 65 79 20 20 press a ','key
000170: 20 20 20 27 29 3B 0D 0A 20 20 20 20 67 65 74 23 ');.. get#
000180: 31 28 69 6E 6B 65 79 29 0D 0A 0D 0A 20 20 65 6E 1(inkey).... en
000190: 64 3B 0D 0A 0D 0A 62 65 67 69 6E 20 20 20 20 20 d;....begin
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 28 2A 20 6D 61 69 6E 20 70 72 6F 67 72 61 (* main progra
0001C0: 6D 20 6C 6F 6F 70 20 2A 29 0D 0A 0D 0A 20 20 63 m loop *).... c
0001D0: 6F 75 6E 74 65 72 3B 20 20 20 20 20 20 20 20 20 ounter;
0001E0: 20 20 20 20 20 20 20 20 20 28 2A 20 63 6F 75 6E (* coun
0001F0: 74 65 72 20 72 6F 75 74 69 6E 65 20 2A 29 0D 0A ter routine *)..
Size : 512 (Real : 512)
000000: 72 61 63 74 65 72 73 20 69 6E 20 61 20 27 73 74 racters in a 'st
000010: 72 69 6E 67 27 2C 20 69 66 20 79 6F 75 20 77 61 ring', if you wa
000020: 6E 74 20 6D 6F 72 65 20 74 68 61 6E 20 38 0D 0A nt more than 8..
000030: 20 20 20 20 20 20 63 68 61 72 61 63 74 65 72 73 characters
000040: 20 6F 66 20 74 65 78 74 20 74 68 65 6E 20 79 6F of text then yo
000050: 75 20 6D 75 73 74 20 75 73 65 20 73 65 76 65 72 u must use sever
000060: 61 6C 20 73 74 72 69 6E 67 73 2C 0D 0A 20 20 20 al strings,..
000070: 20 0D 0A 20 20 20 20 20 20 69 65 20 20 50 55 54 .. ie PUT
000080: 23 31 28 27 73 74 72 69 6E 67 27 2C 27 73 74 72 #1('string','str
000090: 69 6E 67 27 2C 27 73 74 72 69 6E 67 27 29 0D 0A ing','string')..
0000A0: 20 20 20 20 2A 29 0D 0A 0D 0A 20 20 20 20 67 65 *).... ge
0000B0: 74 23 31 28 69 6E 6B 65 79 29 3B 20 20 20 20 20 t#1(inkey);
0000C0: 20 20 20 20 28 2A 20 67 65 74 20 61 20 6B 65 79 (* get a key
0000D0: 70 72 65 73 73 20 2A 29 0D 0A 20 20 20 20 70 75 press *).. pu
0000E0: 74 23 31 28 31 32 29 20 20 20 20 20 20 20 20 20 t#1(12)
0000F0: 20 20 20 20 28 2A 20 63 6C 65 61 72 20 74 68 65 (* clear the
000100: 20 56 44 55 20 73 63 72 65 65 6E 20 2A 29 0D 0A VDU screen *)..
000110: 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 62 65 67 69 .. end;....begi
000120: 6E 3B 20 20 20 20 20 20 20 20 20 20 28 2A 20 6D n; (* m
000130: 61 69 6E 20 70 72 6F 67 72 61 6D 20 6C 6F 6F 70 ain program loop
000140: 20 2A 29 0D 0A 0D 0A 20 20 63 6F 75 6E 74 65 72 *).... counter
000150: 3B 20 20 20 20 20 20 28 2A 20 63 6F 75 6E 74 65 ; (* counte
000160: 72 20 72 6F 75 74 69 6E 65 20 2A 29 0D 0A 20 20 r routine *)..
000170: 70 72 65 73 73 6B 65 79 3B 20 20 20 20 20 28 2A presskey; (*
000180: 20 70 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 press a key to
000190: 63 6F 6E 74 69 6E 75 65 20 2A 29 0D 0A 20 20 64 continue *).. d
0001A0: 69 73 70 6C 61 79 66 72 65 64 3B 20 20 28 2A 20 isplayfred; (*
0001B0: 64 69 73 70 6C 61 79 20 66 72 65 64 20 72 6F 75 display fred rou
0001C0: 74 69 6E 65 20 2A 29 0D 0A 20 20 70 72 65 73 73 tine *).. press
0001D0: 6B 65 79 20 20 20 20 20 20 28 2A 20 70 72 65 73 key (* pres
0001E0: 73 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 s a key to conti
0001F0: 6E 75 65 20 2A 29 0D 0A 0D 0A 65 6E 64 2E 0D 0A nue *)....end...
Size : 512 (Real : 512)
000000: 20 20 70 72 65 73 73 6B 65 79 3B 20 20 20 20 20 presskey;
000010: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 70 (* p
000020: 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 6F ress a key to co
000030: 6E 74 69 6E 75 65 20 2A 29 0D 0A 20 20 64 69 73 ntinue *).. dis
000040: 70 6C 61 79 66 72 65 64 3B 20 20 20 20 20 20 20 playfred;
000050: 20 20 20 20 20 20 20 28 2A 20 64 69 73 70 6C 61 (* displa
000060: 79 20 66 72 65 64 20 72 6F 75 74 69 6E 65 20 2A y fred routine *
000070: 29 0D 0A 20 20 70 72 65 73 73 6B 65 79 3B 20 20 ).. presskey;
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
000090: 2A 20 70 72 65 73 73 20 61 20 6B 65 79 20 74 6F * press a key to
0000A0: 20 63 6F 6E 74 69 6E 75 65 20 2A 29 0D 0A 20 20 continue *)..
0000B0: 6D 6F 64 65 30 3B 20 20 20 20 20 20 20 20 20 20 mode0;
0000C0: 20 20 20 20 20 20 20 20 20 20 28 2A 20 63 68 61 (* cha
0000D0: 6E 67 65 20 6D 6F 64 65 20 74 6F 20 30 20 2A 29 nge mode to 0 *)
0000E0: 0D 0A 20 20 70 75 74 23 31 28 27 4D 6F 64 65 20 .. put#1('Mode
0000F0: 30 20 20 27 2C 31 33 2C 31 30 2C 31 30 29 3B 0D 0 ',13,10,10);.
000100: 0A 20 20 63 6F 6E 74 69 6E 75 65 3B 20 20 20 20 . continue;
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
000120: 77 61 69 74 20 66 6F 72 20 61 20 6B 65 79 20 70 wait for a key p
000130: 72 65 73 73 20 2A 29 0D 0A 20 20 6D 6F 64 65 31 ress *).. mode1
000140: 3B 0D 0A 20 20 70 75 74 23 31 28 27 4D 6F 64 65 ;.. put#1('Mode
000150: 20 31 20 20 27 2C 31 33 2C 31 30 2C 31 30 29 3B 1 ',13,10,10);
000160: 0D 0A 20 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 .. continue;..
000170: 20 6D 6F 64 65 32 3B 0D 0A 20 20 70 75 74 23 31 mode2;.. put#1
000180: 28 27 4D 6F 64 65 20 32 20 20 27 2C 31 33 2C 31 ('Mode 2 ',13,1
000190: 30 2C 31 30 29 3B 0D 0A 20 20 63 6F 6E 74 69 6E 0,10);.. contin
0001A0: 75 65 0D 0A 0D 0A 65 6E 64 2E 20 20 20 20 20 20 ue....end.
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 28 2A 20 65 6E 64 20 6F 66 20 6D 61 69 6E (* end of main
0001D0: 20 70 72 6F 67 72 61 6D 20 6C 6F 6F 70 20 2A 29 program loop *)
0001E0: 20 20 0D 0A 1A 6F 6E 74 72 6F 6C 20 63 6F 64 65 ...ontrol code
0001F0: 73 2E 20 54 68 65 73 65 20 61 72 65 20 75 73 65 s. These are use
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 00 .DISC BAS....
000010: 00 00 00 00 00 70 01 00 2F 06 00 00 00 00 00 00 .....p../.......
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 2F 06 00 54 03 20 61 6E 79 20 6B 65 79 20 74 6F /..T. any key to
000050: 20 63 6F 6E 74 69 6E 75 65 2E 2E 2E 2E 2E 00 10 continue.......
000060: 00 04 01 83 20 1C 18 BB 01 8A 01 84 01 B1 00 00 .... ...........
000070: 00 0D 1A 00 1A 00 00 0D 1A 00 1A 00 1A 6F 20 63 .............o c
000080: 23 00 0A 00 01 C0 20 57 41 43 43 49 20 43 4F 50 #..... WACCI COP
000090: 59 52 49 47 48 54 20 4E 4F 54 49 43 45 20 31 39 YRIGHT NOTICE 19
0000A0: 39 34 00 08 00 14 00 AD 20 10 00 3A 00 1E 00 BF 94...... ..:....
0000B0: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
0000C0: 20 20 20 20 20 20 20 20 20 20 20 57 41 43 43 49 WACCI
0000D0: 20 48 4F 4D 45 47 52 4F 57 4E 20 53 4F 46 54 57 HOMEGROWN SOFTW
0000E0: 41 52 45 22 00 07 00 28 00 BF 20 00 51 00 32 00 ARE"...(.. .Q.2.
0000F0: BF 20 22 54 68 65 20 57 41 43 43 49 20 4C 69 62 . "The WACCI Lib
000100: 72 61 72 79 20 63 6F 6E 73 69 73 74 73 20 6F 66 rary consists of
000110: 20 48 6F 6D 65 67 72 6F 77 6E 20 70 72 6F 67 72 Homegrown progr
000120: 61 6D 73 20 77 72 69 74 74 65 6E 2C 20 61 6E 64 ams written, and
000130: 20 64 6F 6E 61 74 65 64 20 74 6F 22 00 58 00 3C donated to".X.<
000140: 00 BF 20 22 74 68 65 20 63 6C 75 62 2C 20 62 79 .. "the club, by
000150: 20 6D 65 6D 62 65 72 73 20 6F 66 20 57 41 43 43 members of WACC
000160: 49 2E 20 54 68 65 20 48 6F 6D 65 67 72 6F 77 6E I. The Homegrown
000170: 20 4C 69 62 72 61 72 79 20 69 73 20 65 78 63 6C Library is excl
000180: 75 73 69 76 65 20 74 6F 20 57 41 43 43 49 2C 20 usive to WACCI,
000190: 61 6E 64 22 00 55 00 46 00 BF 20 22 75 6E 69 71 and".U.F.. "uniq
0001A0: 75 65 20 69 6E 20 74 68 65 20 43 50 43 20 77 6F ue in the CPC wo
0001B0: 72 6C 64 2E 20 49 6E 20 61 6C 6C 20 63 61 73 65 rld. In all case
0001C0: 73 2C 20 63 6F 70 79 72 69 67 68 74 20 69 73 20 s, copyright is
0001D0: 6A 65 61 6C 6F 75 73 6C 79 20 67 75 61 72 64 65 jealously guarde
0001E0: 64 20 62 79 20 74 68 65 22 00 4E 00 50 00 BF 20 d by the".N.P..
0001F0: 22 61 75 74 68 6F 72 73 2C 20 61 6E 64 20 74 68 "authors, and th
Size : 512 (Real : 512)
000000: 28 2A 0D 0A 20 20 44 45 4D 4F 34 2E 50 41 53 0D (*.. DEMO4.PAS.
000010: 0A 20 20 0D 0A 20 20 6D 6F 72 65 20 62 69 74 73 . .. more bits
000020: 20 74 68 61 74 20 68 61 76 65 20 62 65 65 6E 20 that have been
000030: 61 64 64 65 64 20 74 6F 20 74 68 65 20 70 72 6F added to the pro
000040: 67 72 61 6D 2C 20 74 68 69 73 20 74 69 6D 65 20 gram, this time
000050: 77 65 27 76 65 20 61 64 64 65 64 20 73 6F 6D 65 we've added some
000060: 0D 0A 20 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 .. control code
000070: 73 2E 20 54 68 65 73 65 20 61 72 65 20 75 73 65 s. These are use
000080: 64 20 69 6E 20 65 78 61 63 74 6C 79 20 74 68 65 d in exactly the
000090: 20 73 61 6D 65 20 77 61 79 20 61 73 20 6F 75 74 same way as out
0000A0: 6C 69 6E 65 64 20 69 6E 20 79 6F 75 72 0D 0A 20 lined in your..
0000B0: 20 63 6F 6D 70 75 74 65 72 20 6D 61 6E 75 61 6C computer manual
0000C0: 2E 0D 0A 0D 0A 20 20 54 68 65 20 63 6F 64 65 73 ..... The codes
0000D0: 20 69 6E 20 74 68 69 73 20 70 72 6F 67 72 61 6D in this program
0000E0: 20 61 72 65 20 74 68 65 20 43 50 2F 4D 20 76 32 are the CP/M v2
0000F0: 2E 32 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 73 .2 control codes
000100: 2C 20 74 68 65 73 65 20 63 61 6E 20 65 61 73 69 , these can easi
000110: 6C 79 0D 0A 20 20 61 6C 74 65 72 65 64 20 66 6F ly.. altered fo
000120: 72 20 43 50 2F 4D 20 76 33 2E 31 20 28 70 6C 75 r CP/M v3.1 (plu
000130: 73 29 0D 0A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 s)..*)....proced
000140: 75 72 65 20 63 6F 75 6E 74 65 72 3B 0D 0A 0D 0A ure counter;....
000150: 20 20 76 61 72 20 20 69 20 3A 20 77 6F 72 64 3B var i : word;
000160: 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 .... begin..
000170: 20 69 3A 3D 31 3B 20 20 20 20 20 20 20 0D 0A 20 i:=1; ..
000180: 20 20 20 72 65 70 65 61 74 20 20 0D 0A 20 20 20 repeat ..
000190: 20 20 20 70 75 74 23 31 28 69 23 2C 31 33 2C 31 put#1(i#,13,1
0001A0: 30 29 3B 0D 0A 20 20 20 20 20 20 69 3A 3D 69 2B 0);.. i:=i+
0001B0: 31 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 1 ..
0001C0: 20 20 20 20 75 6E 74 69 6C 20 69 3E 31 30 0D 0A until i>10..
0001D0: 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 end;....proced
0001E0: 75 72 65 20 64 69 73 70 6C 61 79 66 72 65 64 3B ure displayfred;
0001F0: 0D 0A 0D 0A 20 20 76 61 72 20 20 78 20 3A 20 77 .... var x : w
Size : 512 (Real : 512)
000000: 65 73 65 20 70 72 6F 67 72 61 6D 73 20 6D 61 79 ese programs may
000010: 20 4E 4F 54 20 62 65 20 69 6E 63 6C 75 64 65 64 NOT be included
000020: 20 61 6E 20 61 6E 79 20 6F 74 68 65 72 20 73 6F an any other so
000030: 66 74 77 61 72 65 22 00 56 00 5A 00 BF 20 22 6C ftware".V.Z.. "l
000040: 69 62 72 61 72 69 65 73 20 77 69 74 68 6F 75 74 ibraries without
000050: 20 74 68 65 20 65 78 70 72 65 73 73 20 70 65 72 the express per
000060: 6D 69 73 73 69 6F 6E 20 61 6E 64 20 77 72 69 74 mission and writ
000070: 74 65 6E 20 63 6F 6E 73 65 6E 74 20 6F 66 20 62 ten consent of b
000080: 6F 74 68 20 57 41 43 43 49 20 55 4B 22 00 18 00 oth WACCI UK"...
000090: 64 00 BF 20 22 61 6E 64 20 74 68 65 20 41 55 54 d.. "and the AUT
0000A0: 48 4F 52 2E 22 00 07 00 6E 00 BF 20 00 4C 00 78 HOR."...n.. .L.x
0000B0: 00 BF 20 22 54 68 69 73 20 48 6F 6D 65 67 72 6F .. "This Homegro
0000C0: 77 6E 20 53 6F 66 74 77 61 72 65 20 69 73 20 4E wn Software is N
0000D0: 4F 54 20 50 75 62 6C 69 63 20 44 6F 6D 61 69 6E OT Public Domain
0000E0: 2C 20 61 6E 64 20 6D 61 79 20 6E 6F 74 20 62 65 , and may not be
0000F0: 20 66 72 65 65 6C 79 22 00 55 00 82 00 BF 20 22 freely".U.... "
000100: 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 68 distributed with
000110: 6F 75 74 20 62 72 65 61 63 68 20 6F 66 20 63 6F out breach of co
000120: 70 79 72 69 67 68 74 2E 20 49 6E 20 74 68 65 20 pyright. In the
000130: 69 6E 74 65 72 65 73 74 73 20 6F 66 20 74 68 65 interests of the
000140: 20 65 78 63 6C 75 73 69 76 69 74 79 22 00 4F 00 exclusivity".O.
000150: 8C 00 BF 20 22 70 75 72 63 68 61 73 65 72 73 20 ... "purchasers
000160: 61 72 65 20 70 6F 6C 69 74 65 6C 79 20 61 73 6B are politely ask
000170: 65 64 20 6E 6F 74 20 74 6F 20 70 61 73 73 20 74 ed not to pass t
000180: 68 69 73 20 73 6F 66 74 77 61 72 65 20 6F 6E 20 his software on
000190: 74 6F 20 66 72 69 65 6E 64 73 2E 22 00 56 00 96 to friends.".V..
0001A0: 00 BF 20 22 54 6F 20 64 6F 20 73 6F 20 77 6F 75 .. "To do so wou
0001B0: 6C 64 20 62 65 20 61 67 61 69 6E 73 74 20 74 68 ld be against th
0001C0: 65 20 69 6E 74 65 72 65 73 74 73 20 6F 66 20 74 e interests of t
0001D0: 68 65 20 63 6C 75 62 20 61 73 20 74 68 65 20 4C he club as the L
0001E0: 69 62 72 61 72 79 20 73 75 62 73 69 64 69 73 65 ibrary subsidise
0001F0: 73 22 00 2B 00 A0 00 BF 20 22 74 68 65 20 63 6F s".+.... "the co
Size : 512 (Real : 512)
000000: 6F 72 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D ord;.... begin.
000010: 0A 0D 0A 20 20 20 20 66 6F 72 20 78 3A 3D 31 20 ... for x:=1
000020: 74 6F 20 31 30 20 64 6F 20 70 75 74 23 31 28 27 to 10 do put#1('
000030: 66 72 65 64 20 20 20 20 27 2C 31 33 2C 31 30 29 fred ',13,10)
000040: 0D 0A 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 .... end;....pr
000050: 6F 63 65 64 75 72 65 20 70 72 65 73 73 6B 65 79 ocedure presskey
000060: 3B 0D 0A 0D 0A 20 20 76 61 72 20 69 6E 6B 65 79 ;.... var inkey
000070: 20 3A 20 77 6F 72 64 20 3B 0D 0A 0D 0A 20 20 62 : word ;.... b
000080: 65 67 69 6E 0D 0A 0D 0A 20 20 20 20 70 75 74 23 egin.... put#
000090: 31 28 27 50 72 65 73 73 20 61 6E 27 2C 27 79 20 1('Press an','y
0000A0: 6B 65 79 20 74 6F 27 2C 27 20 63 6F 6E 74 69 6E key to',' contin
0000B0: 75 27 2C 27 65 20 3A 20 20 20 20 20 27 29 3B 0D u','e : ');.
0000C0: 0A 20 20 20 20 67 65 74 23 31 28 69 6E 6B 65 79 . get#1(inkey
0000D0: 29 3B 0D 0A 20 20 20 20 70 75 74 23 31 28 31 32 );.. put#1(12
0000E0: 29 20 0D 0A 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A ) .... end;....
0000F0: 70 72 6F 63 65 64 75 72 65 20 6D 6F 64 65 30 3B procedure mode0;
000100: 20 20 20 20 20 20 20 20 20 20 28 2A 20 73 65 74 (* set
000110: 20 73 63 72 65 65 6E 20 6D 6F 64 65 20 74 6F 20 screen mode to
000120: 30 20 2A 29 0D 0A 0D 0A 20 20 62 65 67 69 6E 20 0 *).... begin
000130: 20 20 20 70 75 74 23 31 28 30 34 2C 30 30 29 20 put#1(04,00)
000140: 20 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F end;....pro
000150: 63 65 64 75 72 65 20 6D 6F 64 65 31 3B 20 20 20 cedure mode1;
000160: 20 20 20 20 20 20 20 28 2A 20 73 65 74 20 73 63 (* set sc
000170: 72 65 65 6E 20 6D 6F 64 65 20 74 6F 20 31 20 2A reen mode to 1 *
000180: 29 0D 0A 0D 0A 20 20 62 65 67 69 6E 20 20 20 20 ).... begin
000190: 70 75 74 23 31 28 30 34 2C 30 31 29 20 20 20 20 put#1(04,01)
0001A0: 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 end;....proced
0001B0: 75 72 65 20 6D 6F 64 65 32 3B 20 20 20 20 20 20 ure mode2;
0001C0: 20 20 20 20 28 2A 20 73 65 74 20 73 63 72 65 65 (* set scree
0001D0: 6E 20 6D 6F 64 65 20 74 6F 20 32 20 2A 29 0D 0A n mode to 2 *)..
0001E0: 0D 0A 20 20 62 65 67 69 6E 20 20 20 20 70 75 74 .. begin put
0001F0: 23 31 28 30 34 2C 30 32 29 20 20 20 20 20 20 65 #1(04,02) e
Size : 512 (Real : 512)
000000: 73 74 20 6F 66 20 70 72 6F 64 75 63 69 6E 67 20 st of producing
000010: 74 68 65 20 6D 61 67 61 7A 69 6E 65 2E 00 07 00 the magazine....
000020: BE 00 BF 20 00 58 00 C8 00 BF 20 22 20 20 20 20 ... .X.... "
000030: 20 20 43 68 61 69 72 6D 61 6E 20 26 20 4D 61 73 Chairman & Mas
000040: 74 65 72 20 50 44 20 4C 69 62 72 61 72 69 61 6E ter PD Librarian
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 53 75 62 73 63 72 69 70 74 69 6F 6E 73 Subscriptions
000070: 22 20 20 20 20 20 20 20 20 20 20 20 00 4F 00 CD " .O..
000080: 00 BF 22 20 20 20 20 20 20 4A 6F 68 6E 20 42 6F .." John Bo
000090: 77 6C 65 79 20 20 20 20 20 20 20 20 20 20 20 20 wley
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 50 61 75 6C 20 44 Paul D
0000C0: 77 65 72 72 79 68 6F 75 73 65 22 00 5C 00 D2 00 werryhouse".\...
0000D0: BF 20 22 20 20 20 20 20 20 39 37 20 54 69 72 72 . " 97 Tirr
0000E0: 69 6E 67 74 6F 6E 20 20 20 20 20 20 20 20 20 20 ington
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 37 20 42 72 75 6E 7 Brun
000110: 73 77 6F 6F 64 20 47 72 65 65 6E 22 20 20 20 20 swood Green"
000120: 20 20 20 20 20 20 20 00 53 00 DC 00 BF 20 22 20 .S.... "
000130: 20 20 20 20 20 42 72 65 74 74 6F 6E 20 20 20 20 Bretton
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 48 61 77 61 72 64 65 6E 22 20 Hawarden"
000170: 20 20 20 20 20 20 20 20 20 20 00 55 00 E6 00 BF .U....
000180: 20 22 20 20 20 20 20 20 50 65 74 65 72 62 6F 72 " Peterbor
000190: 6F 75 67 68 20 20 20 20 20 20 20 20 20 20 20 20 ough
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 20 20 20 46 6C 69 6E 74 73 68 Flintsh
0001C0: 69 72 65 22 20 20 20 20 20 20 20 20 20 20 20 00 ire" .
0001D0: 51 00 F0 00 BF 20 22 20 20 20 20 20 20 50 45 33 Q.... " PE3
0001E0: 20 39 58 54 20 20 20 20 20 20 20 20 20 20 20 20 9XT
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 CH
000010: 35 20 33 4A 41 22 20 20 20 20 20 20 20 20 20 20 5 3JA"
000020: 00 4D 00 F1 00 BF 01 BF 22 54 65 6C 65 3A 20 30 .M......"Tele: 0
000030: 31 37 33 33 20 37 30 32 31 35 38 20 20 20 20 20 1733 702158
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 30 31 32 34 34 20 35 33 34 39 34 32 22 00 07 00 01244 534942"...
000070: F5 00 BF 01 00 25 00 FA 00 BF 22 50 72 65 73 73 .....%...."Press
000080: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 any key to cont
000090: 69 6E 75 65 2E 2E 2E 2E 2E 00 10 00 04 01 83 20 inue...........
0000A0: 1C 18 BB 01 8A 01 84 01 B1 00 00 00 0D 1A 00 1A ................
0000B0: 00 00 0D 1A 00 1A 00 1A 6F 20 63 6F 6E 74 69 6E ........o contin
0000C0: 75 65 2E 2E 2E 2E 2E 00 0A 00 04 01 83 20 1C 18 ue........... ..
0000D0: BB 00 0C 00 0E 01 CA 22 64 69 73 63 32 00 00 00 ......."disc2...
0000E0: 0D 1A 00 1A 0D 0A 34 30 20 50 52 49 4E 54 20 0D ......40 PRINT .
0000F0: 0A 35 30 20 50 52 49 4E 54 20 22 54 68 65 20 57 .50 PRINT "The W
000100: 20 20 20 20 20 20 20 20 20 20 37 20 42 72 75 6E 7 Brun
000110: 73 77 6F 6F 64 20 47 72 65 65 6E 22 20 20 20 20 swood Green"
000120: 20 20 20 20 20 20 20 00 53 00 DC 00 BF 20 22 20 .S.... "
000130: 20 20 20 20 20 42 72 65 74 74 6F 6E 20 20 20 20 Bretton
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 48 61 77 61 72 64 65 6E 22 20 Hawarden"
000170: 20 20 20 20 20 20 20 20 20 20 00 55 00 E6 00 BF .U....
000180: 20 22 20 20 20 20 20 20 50 65 74 65 72 62 6F 72 " Peterbor
000190: 6F 75 67 68 20 20 20 20 20 20 20 20 20 20 20 20 ough
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 20 20 20 46 6C 69 6E 74 73 68 Flintsh
0001C0: 69 72 65 22 20 20 20 20 20 20 20 20 20 20 20 00 ire" .
0001D0: 51 00 F0 00 BF 20 22 20 20 20 20 20 20 50 45 33 Q.... " PE3
0001E0: 20 39 58 54 20 20 20 20 20 20 20 20 20 20 20 20 9XT
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 28 2A 20 66 6F 72 77 61 72 64 20 70 72 6F 63 65 (* forward proce
000010: 64 75 72 65 20 64 65 63 6C 61 72 61 74 69 6F 6E dure declaration
000020: 20 74 65 73 74 20 2A 29 0D 0A 70 72 6F 63 65 64 test *)..proced
000030: 75 72 65 20 62 3B 20 66 6F 72 77 61 72 64 3B 0D ure b; forward;.
000040: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 61 28 74 ...procedure a(t
000050: 68 69 73 2C 74 68 61 74 3A 77 6F 72 64 29 3B 0D his,that:word);.
000060: 0A 62 65 67 69 6E 0D 0A 09 74 68 69 73 3A 3D 74 .begin...this:=t
000070: 68 61 74 3B 0D 0A 09 74 68 61 74 3A 3D 74 68 69 hat;...that:=thi
000080: 73 3B 0D 0A 09 62 28 31 2C 32 29 3B 0D 0A 09 61 s;...b(1,2);...a
000090: 28 31 33 2C 31 33 29 3B 0D 0A 09 62 28 33 2C 34 (13,13);...b(3,4
0000A0: 29 0D 0A 65 6E 64 3B 20 28 2A 20 70 72 6F 63 75 )..end; (* procu
0000B0: 64 75 72 65 20 61 20 2A 29 0D 0A 0D 0A 70 72 6F dure a *)....pro
0000C0: 63 65 64 75 72 65 20 62 28 70 61 72 6D 31 2C 70 cedure b(parm1,p
0000D0: 61 72 6D 32 3A 77 6F 72 64 29 3B 20 62 61 63 6B arm2:word); back
0000E0: 77 61 72 64 3B 0D 0A 62 65 67 69 6E 0D 0A 09 70 ward;..begin...p
0000F0: 61 72 6D 31 3A 3D 70 61 72 6D 31 2A 70 61 72 6D arm1:=parm1*parm
000100: 32 3B 0D 0A 09 61 28 31 33 2C 31 33 29 3B 0D 0A 2;...a(13,13);..
000110: 09 62 28 35 2C 36 29 0D 0A 65 6E 64 2C 3B 20 28 .b(5,6)..end,; (
000120: 2A 20 70 72 6F 63 65 64 75 72 65 20 62 20 2A 29 * procedure b *)
000130: 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 6D 61 69 ....begin (* mai
000140: 6E 20 6C 69 6E 65 20 2A 29 0D 0A 61 28 37 2C 38 n line *)..a(7,8
000150: 29 3B 0D 0A 62 28 39 2C 31 30 29 0D 0A 65 6E 64 );..b(9,10)..end
000160: 2C 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ,...............
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 20 20 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 end; (* proced
000190: 75 72 65 20 74 72 79 20 2A 29 0D 0A 0D 0A 62 65 ure try *)....be
0001A0: 67 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 6E 65 gin (* main line
0001B0: 20 2A 29 0D 0A 66 6F 72 20 69 3A 3D 20 31 20 20 *)..for i:= 1
0001C0: 20 74 6F 20 38 20 20 64 6F 20 61 5B 69 5D 20 20 to 8 do a[i]
0001D0: 20 3A 3D 74 72 75 65 3B 0D 0A 66 6F 72 20 69 3A :=true;..for i:
0001E0: 3D 20 32 20 20 20 74 6F 20 31 36 20 64 6F 20 62 = 2 to 16 do b
0001F0: 5B 69 5D 20 20 20 3A 3D 74 72 75 65 3B 0D 0A 66 [i] :=true;..f
Size : 512 (Real : 512)
000000: 0D 0A 28 2A 0D 0A 09 50 72 69 6E 74 73 20 73 6F ..(*...Prints so
000010: 6C 75 74 69 6F 6E 73 20 74 6F 20 74 68 65 20 70 lutions to the p
000020: 72 6F 62 6C 65 6D 20 6F 66 20 70 6C 61 63 69 6E roblem of placin
000030: 67 20 65 69 67 68 74 20 71 75 65 65 6E 73 20 6F g eight queens o
000040: 6E 0D 0A 09 61 20 63 68 65 73 73 20 62 6F 61 72 n...a chess boar
000050: 64 20 69 6E 20 73 75 63 68 20 61 20 77 61 79 20 d in such a way
000060: 74 68 61 74 20 6E 6F 20 71 75 65 65 6E 20 63 68 that no queen ch
000070: 65 63 6B 73 20 61 67 61 69 6E 73 74 0D 0A 09 61 ecks against...a
000080: 6E 79 20 6F 74 68 65 72 20 71 75 65 65 6E 2E 20 ny other queen.
000090: 20 53 65 65 20 22 41 6C 67 6F 72 69 74 68 6D 73 See "Algorithms
0000A0: 2B 44 61 74 61 20 53 74 72 75 63 74 75 72 65 73 +Data Structures
0000B0: 20 3D 20 50 72 6F 67 72 61 6D 73 22 2C 0D 0A 09 = Programs",...
0000C0: 4E 69 6B 6C 61 75 73 20 57 69 72 74 68 2E 0D 0A Niklaus Wirth...
0000D0: 2A 29 0D 0A 0D 0A 74 79 70 65 0D 0A 20 20 20 62 *)....type.. b
0000E0: 6F 6F 6C 65 61 6E 20 3D 20 28 66 61 6C 73 65 2C oolean = (false,
0000F0: 20 74 72 75 65 29 3B 0D 0A 20 20 20 61 72 79 69 true);.. aryi
000100: 20 20 20 20 3D 20 61 72 72 61 79 5B 30 2E 2E 20 = array[0..
000110: 38 5D 20 6F 66 20 69 6E 74 65 67 65 72 3B 0D 0A 8] of integer;..
000120: 20 20 20 61 72 79 62 20 20 20 20 3D 20 61 72 72 aryb = arr
000130: 61 79 5B 30 2E 2E 31 36 5D 20 6F 66 20 62 6F 6F ay[0..16] of boo
000140: 6C 65 61 6E 3B 0D 0A 0D 0A 76 61 72 0D 0A 20 20 lean;....var..
000150: 20 69 20 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 20 i : integer;..
000160: 20 20 61 2C 20 62 2C 20 63 3A 20 61 72 79 62 3B a, b, c: aryb;
000170: 0D 0A 20 20 20 78 20 20 20 20 20 20 3A 20 61 72 .. x : ar
000180: 79 69 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 yi;....procedure
000190: 20 70 72 69 6E 74 3B 0D 0A 0D 0A 20 20 20 76 61 print;.... va
0001A0: 72 0D 0A 20 20 20 20 20 20 6B 20 3A 20 69 6E 74 r.. k : int
0001B0: 65 67 65 72 3B 0D 0A 0D 0A 20 20 20 62 65 67 69 eger;.... begi
0001C0: 6E 0D 0A 20 20 20 66 6F 72 20 6B 3A 3D 31 20 74 n.. for k:=1 t
0001D0: 6F 20 38 20 64 6F 20 70 75 74 23 30 28 78 5B 6B o 8 do put#0(x[k
0001E0: 5D 23 2C 27 20 27 29 3B 0D 0A 20 20 20 70 75 74 ]#,' ');.. put
0001F0: 23 30 28 31 33 2C 31 30 29 0D 0A 20 20 20 65 6E #0(13,10).. en
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 d; (* procedure
000010: 70 72 69 6E 74 20 2A 29 0D 0A 0D 0A 70 72 6F 63 print *)....proc
000020: 65 64 75 72 65 20 74 72 79 28 69 20 3A 20 69 6E edure try(i : in
000030: 74 65 67 65 72 29 3B 0D 0A 0D 0A 20 20 20 76 61 teger);.... va
000040: 72 0D 0A 20 20 20 20 20 20 6A 20 3A 20 69 6E 74 r.. j : int
000050: 65 67 65 72 3B 0D 0A 0D 0A 20 20 20 62 65 67 69 eger;.... begi
000060: 6E 0D 0A 20 20 20 66 6F 72 20 6A 3A 3D 31 20 74 n.. for j:=1 t
000070: 6F 20 38 20 64 6F 0D 0A 20 20 20 20 20 20 69 66 o 8 do.. if
000080: 20 28 61 5B 6A 5D 3D 74 72 75 65 29 20 61 6E 64 (a[j]=true) and
000090: 20 28 62 5B 69 2B 6A 5D 3D 74 72 75 65 29 20 61 (b[i+j]=true) a
0000A0: 6E 64 20 28 63 5B 69 2D 6A 2B 37 5D 3D 74 72 75 nd (c[i-j+7]=tru
0000B0: 65 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 e) then..
0000C0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
0000D0: 20 20 78 5B 69 5D 3A 3D 6A 3B 0D 0A 20 20 20 20 x[i]:=j;..
0000E0: 20 20 20 20 20 61 5B 6A 5D 3A 3D 66 61 6C 73 65 a[j]:=false
0000F0: 3B 20 62 5B 69 2B 6A 5D 3A 3D 66 61 6C 73 65 3B ; b[i+j]:=false;
000100: 20 63 5B 69 2D 6A 2B 37 5D 3A 3D 66 61 6C 73 65 c[i-j+7]:=false
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 69 ;.. if i
000120: 3C 38 20 74 68 65 6E 20 74 72 79 28 69 2B 31 29 <8 then try(i+1)
000130: 20 65 6C 73 65 20 70 72 69 6E 74 3B 0D 0A 20 20 else print;..
000140: 20 20 20 20 20 20 20 61 5B 6A 5D 3A 3D 74 72 75 a[j]:=tru
000150: 65 3B 20 62 5B 69 2B 6A 5D 3A 3D 74 72 75 65 3B e; b[i+j]:=true;
000160: 20 63 5B 69 2D 6A 2B 37 5D 3A 3D 74 72 75 65 0D c[i-j+7]:=true.
000170: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 . end..
000180: 20 20 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 end; (* proced
000190: 75 72 65 20 74 72 79 20 2A 29 0D 0A 0D 0A 62 65 ure try *)....be
0001A0: 67 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 6E 65 gin (* main line
0001B0: 20 2A 29 0D 0A 66 6F 72 20 69 3A 3D 20 31 20 20 *)..for i:= 1
0001C0: 20 74 6F 20 38 20 20 64 6F 20 61 5B 69 5D 20 20 to 8 do a[i]
0001D0: 20 3A 3D 74 72 75 65 3B 0D 0A 66 6F 72 20 69 3A :=true;..for i:
0001E0: 3D 20 32 20 20 20 74 6F 20 31 36 20 64 6F 20 62 = 2 to 16 do b
0001F0: 5B 69 5D 20 20 20 3A 3D 74 72 75 65 3B 0D 0A 66 [i] :=true;..f
Size : 512 (Real : 512)
000000: 0D 0A 28 2A 0D 0A 74 69 74 6C 65 20 20 20 20 6D ..(*..title m
000010: 65 73 73 61 67 65 20 64 65 63 6F 64 69 6E 67 20 essage decoding
000020: 62 79 20 6F 70 74 69 6D 61 6C 20 62 69 6E 61 72 by optimal binar
000030: 79 20 73 65 61 72 63 68 20 74 72 65 65 20 62 75 y search tree bu
000040: 69 6C 64 69 6E 67 0D 0A 20 20 20 20 20 20 20 20 ilding..
000050: 20 75 73 69 6E 67 20 74 68 65 20 68 75 2D 74 75 using the hu-tu
000060: 63 6B 65 72 20 61 6C 67 6F 72 69 74 68 6D 0D 0A cker algorithm..
000070: 20 20 20 20 20 20 20 20 20 63 73 20 33 32 31 20 cs 321
000080: 68 6F 6D 65 77 6F 72 6B 20 35 0D 0A 61 75 74 68 homework 5..auth
000090: 6F 72 20 20 20 72 6F 62 65 72 74 20 61 2E 20 76 or robert a. v
0000A0: 61 6E 20 76 61 6C 7A 61 68 20 20 20 30 33 2F 33 an valzah 03/3
0000B0: 31 2F 38 30 0D 0A 0D 0A 0D 0A 74 68 69 73 20 20 1/80......this
0000C0: 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 62 75 69 program will bui
0000D0: 6C 64 20 61 6E 20 6F 70 74 69 6D 61 6C 20 62 69 ld an optimal bi
0000E0: 6E 61 72 79 20 73 65 61 72 63 68 20 74 72 65 65 nary search tree
0000F0: 20 67 69 76 65 6E 0D 0A 61 20 73 65 74 20 6F 66 given..a set of
000100: 20 63 68 61 72 61 63 74 65 72 73 20 61 6E 64 20 characters and
000110: 66 72 65 71 75 65 6E 63 69 65 73 20 6F 66 20 6F frequencies of o
000120: 63 63 75 72 61 6E 63 65 2E 20 20 74 68 65 20 20 ccurance. the
000130: 74 72 65 65 0D 0A 69 73 20 63 6F 6E 73 74 72 75 tree..is constru
000140: 63 74 65 64 20 75 73 69 6E 67 20 74 68 65 20 68 cted using the h
000150: 75 2D 74 75 63 6B 65 72 20 61 6C 67 6F 72 69 74 u-tucker algorit
000160: 68 6D 20 28 73 65 65 20 6B 6E 75 74 68 2C 20 74 hm (see knuth, t
000170: 68 65 0D 0A 61 72 74 20 6F 66 20 63 6F 6D 70 75 he..art of compu
000180: 74 65 72 20 70 72 6F 67 72 61 6D 6D 69 6E 67 2C ter programming,
000190: 20 76 6F 6C 75 6D 65 20 33 2F 73 6F 72 74 69 6E volume 3/sortin
0001A0: 67 20 61 6E 64 20 73 65 61 72 63 68 69 6E 67 2C g and searching,
0001B0: 0D 0A 70 70 2E 20 20 34 33 39 2D 34 34 36 29 2E ..pp. 439-446).
0001C0: 20 20 61 6E 20 69 6E 70 75 74 20 73 65 71 75 65 an input seque
0001D0: 6E 63 65 20 6F 66 20 31 27 73 20 61 6E 64 20 30 nce of 1's and 0
0001E0: 27 73 20 69 73 20 74 68 65 6E 20 64 65 2D 0D 0A 's is then de-..
0001F0: 63 6F 64 65 64 20 69 6E 74 6F 20 61 20 73 65 71 coded into a seq
Size : 512 (Real : 512)
000000: 6F 72 20 69 3A 3D 20 30 2D 37 20 74 6F 20 37 20 or i:= 0-7 to 7
000010: 20 64 6F 20 63 5B 69 2B 37 5D 20 3A 3D 74 72 75 do c[i+7] :=tru
000020: 65 3B 0D 0A 0D 0A 74 72 79 28 31 29 0D 0A 65 6E e;....try(1)..en
000030: 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A d...............
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 20 28 61 5B 6A 5D 3D 74 72 75 65 29 20 61 6E 64 (a[j]=true) and
000090: 20 28 62 5B 69 2B 6A 5D 3D 74 72 75 65 29 20 61 (b[i+j]=true) a
0000A0: 6E 64 20 28 63 5B 69 2D 6A 2B 37 5D 3D 74 72 75 nd (c[i-j+7]=tru
0000B0: 65 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 e) then..
0000C0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
0000D0: 20 20 78 5B 69 5D 3A 3D 6A 3B 0D 0A 20 20 20 20 x[i]:=j;..
0000E0: 20 20 20 20 20 61 5B 6A 5D 3A 3D 66 61 6C 73 65 a[j]:=false
0000F0: 3B 20 62 5B 69 2B 6A 5D 3A 3D 66 61 6C 73 65 3B ; b[i+j]:=false;
000100: 20 63 5B 69 2D 6A 2B 37 5D 3A 3D 66 61 6C 73 65 c[i-j+7]:=false
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 69 ;.. if i
000120: 3C 38 20 74 68 65 6E 20 74 72 79 28 69 2B 31 29 <8 then try(i+1)
000130: 20 65 6C 73 65 20 70 72 69 6E 74 3B 0D 0A 20 20 else print;..
000140: 20 20 20 20 20 20 20 61 5B 6A 5D 3A 3D 74 72 75 a[j]:=tru
000150: 65 3B 20 62 5B 69 2B 6A 5D 3A 3D 74 72 75 65 3B e; b[i+j]:=true;
000160: 20 63 5B 69 2D 6A 2B 37 5D 3A 3D 74 72 75 65 0D c[i-j+7]:=true.
000170: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 . end..
000180: 20 20 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 end; (* proced
000190: 75 72 65 20 74 72 79 20 2A 29 0D 0A 0D 0A 62 65 ure try *)....be
0001A0: 67 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 6E 65 gin (* main line
0001B0: 20 2A 29 0D 0A 66 6F 72 20 69 3A 3D 20 31 20 20 *)..for i:= 1
0001C0: 20 74 6F 20 38 20 20 64 6F 20 61 5B 69 5D 20 20 to 8 do a[i]
0001D0: 20 3A 3D 74 72 75 65 3B 0D 0A 66 6F 72 20 69 3A :=true;..for i:
0001E0: 3D 20 32 20 20 20 74 6F 20 31 36 20 64 6F 20 62 = 2 to 16 do b
0001F0: 5B 69 5D 20 20 20 3A 3D 74 72 75 65 3B 0D 0A 66 [i] :=true;..f
Size : 512 (Real : 512)
000000: 75 65 6E 63 65 20 6F 66 20 63 68 61 72 61 63 74 uence of charact
000010: 65 72 73 20 20 75 73 69 6E 67 20 20 74 68 69 73 ers using this
000020: 20 20 74 72 65 65 2E 20 20 74 68 65 0D 0A 72 65 tree. the..re
000030: 73 75 6C 74 69 6E 67 20 6D 65 73 73 61 67 65 20 sulting message
000040: 69 73 20 70 72 69 6E 74 65 64 2E 0D 0A 2A 29 0D is printed...*).
000050: 0A 0D 0A 0D 0A 63 6F 6E 73 74 0D 0A 20 20 20 6E .....const.. n
000060: 6D 61 78 20 20 20 20 20 3D 20 33 30 3B 20 28 2A max = 30; (*
000070: 20 6D 61 78 20 6E 75 6D 62 65 72 20 6F 66 20 63 max number of c
000080: 68 61 72 61 63 74 65 72 73 20 2A 29 0D 0A 20 20 haracters *)..
000090: 20 72 6C 20 20 20 20 20 20 20 3D 20 39 3B 20 20 rl = 9;
0000A0: 28 2A 20 72 65 63 6F 72 64 20 6C 65 6E 67 74 68 (* record length
0000B0: 20 69 6E 20 77 6F 72 64 73 20 2A 29 0D 0A 20 20 in words *)..
0000C0: 20 64 69 6D 20 20 20 20 20 20 3D 20 38 31 30 3B dim = 810;
0000D0: 28 2A 20 6E 6D 61 78 20 2A 20 72 6C 20 2A 20 33 (* nmax * rl * 3
0000E0: 20 2A 29 0D 0A 20 20 20 63 68 61 72 20 20 20 20 *).. char
0000F0: 20 3D 20 30 3B 20 20 28 2A 20 63 68 61 72 61 63 = 0; (* charac
000100: 74 65 72 20 76 61 6C 75 65 20 6F 66 66 73 65 74 ter value offset
000110: 20 2A 29 0D 0A 20 20 20 66 72 65 71 20 20 20 20 *).. freq
000120: 20 3D 20 31 3B 20 20 28 2A 20 63 68 61 72 61 63 = 1; (* charac
000130: 74 65 72 20 66 72 65 71 75 65 6E 63 65 20 6F 66 ter frequence of
000140: 66 73 65 74 20 2A 29 0D 0A 20 20 20 6C 73 74 20 fset *).. lst
000150: 20 20 20 20 20 3D 20 32 3B 20 20 28 2A 20 70 6F = 2; (* po
000160: 69 6E 74 65 72 20 74 6F 20 6C 65 66 74 20 20 73 inter to left s
000170: 75 62 74 72 65 65 20 6F 66 66 73 65 74 20 2A 29 ubtree offset *)
000180: 0D 0A 20 20 20 72 73 74 20 20 20 20 20 20 3D 20 .. rst =
000190: 33 3B 20 20 28 2A 20 70 6F 69 6E 74 65 72 20 74 3; (* pointer t
0001A0: 6F 20 72 69 67 68 74 20 73 75 62 74 72 65 65 20 o right subtree
0001B0: 6F 66 66 73 65 74 20 2A 29 0D 0A 20 20 20 6C 66 offset *).. lf
0001C0: 6F 72 73 74 20 20 20 3D 20 34 3B 20 20 28 2A 20 orst = 4; (*
0001D0: 70 6F 69 6E 74 65 72 20 74 6F 20 6C 65 66 74 20 pointer to left
0001E0: 20 62 72 6F 74 68 65 72 20 6F 66 66 73 65 74 20 brother offset
0001F0: 2A 29 0D 0A 20 20 20 72 66 6F 72 73 74 20 20 20 *).. rforst
Size : 512 (Real : 512)
000000: 5D 3A 3D 63 68 3B 0D 0A 20 20 20 20 20 20 68 5B ]:=ch;.. h[
000010: 70 2B 66 72 65 71 20 20 5D 3A 3D 66 72 71 3B 0D p+freq ]:=frq;.
000020: 0A 20 20 20 20 20 20 68 5B 70 2B 6C 73 74 20 20 . h[p+lst
000030: 20 5D 3A 3D 6E 69 6C 3B 20 20 28 2A 20 6C 65 61 ]:=nil; (* lea
000040: 76 65 73 20 68 61 76 65 20 6E 6F 20 73 75 62 74 ves have no subt
000050: 72 65 65 73 20 2A 29 0D 0A 20 20 20 20 20 20 68 rees *).. h
000060: 5B 70 2B 72 73 74 20 20 20 5D 3A 3D 6E 69 6C 3B [p+rst ]:=nil;
000070: 0D 0A 20 20 20 20 20 20 68 5B 70 2B 6C 66 6F 72 .. h[p+lfor
000080: 73 74 5D 3A 3D 70 72 65 76 3B 20 28 2A 20 6C 69 st]:=prev; (* li
000090: 6E 6B 20 74 6F 20 6C 61 73 74 20 6E 6F 64 65 20 nk to last node
0000A0: 72 65 61 64 20 63 72 65 61 74 65 64 20 2A 29 0D read created *).
0000B0: 0A 20 20 20 20 20 20 68 5B 70 2B 6C 65 78 70 20 . h[p+lexp
0000C0: 20 5D 3A 3D 70 72 65 76 3B 20 28 2A 20 70 72 65 ]:=prev; (* pre
0000D0: 64 65 63 65 73 73 6F 72 20 69 73 20 61 6C 73 6F decessor is also
0000E0: 20 6C 61 73 74 20 6E 6F 64 65 20 63 72 65 61 74 last node creat
0000F0: 65 64 20 2A 29 0D 0A 20 20 20 20 20 20 69 66 20 ed *).. if
000100: 28 70 72 65 76 3C 3E 6E 69 6C 29 20 74 68 65 6E (prev<>nil) then
000110: 20 62 65 67 69 6E 20 28 2A 20 6F 6E 20 61 6C 6C begin (* on all
000120: 20 62 75 74 20 66 69 72 73 74 20 6E 6F 64 65 20 but first node
000130: 2E 20 2E 20 2E 20 2A 29 0D 0A 20 20 20 20 20 20 . . . *)..
000140: 20 20 20 68 5B 70 72 65 76 2B 72 66 6F 72 73 74 h[prev+rforst
000150: 20 20 5D 3A 3D 70 3B 20 20 20 28 2A 20 6D 61 6B ]:=p; (* mak
000160: 65 20 70 72 65 76 69 6F 75 73 20 72 69 67 68 74 e previous right
000170: 20 66 6F 72 65 73 74 20 70 6F 69 6E 74 65 72 20 forest pointer
000180: 61 6E 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 and *)..
000190: 20 68 5B 70 72 65 76 2B 6C 65 78 73 20 20 20 20 h[prev+lexs
0001A0: 5D 3A 3D 70 20 20 20 20 28 2A 20 6C 65 78 69 63 ]:=p (* lexic
0001B0: 6F 67 72 61 70 68 69 63 20 73 75 63 63 65 73 73 ographic success
0001C0: 6F 72 20 70 6F 69 6E 74 20 74 6F 20 74 68 65 20 or point to the
0001D0: 6E 65 77 20 6E 6F 64 65 20 2A 29 0D 0A 20 20 20 new node *)..
0001E0: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
0001F0: 20 20 70 72 65 76 3A 3D 70 3B 0D 0A 20 20 20 20 prev:=p;..
Size : 512 (Real : 512)
000000: 3D 20 35 3B 20 20 28 2A 20 70 6F 69 6E 74 65 72 = 5; (* pointer
000010: 20 74 6F 20 72 69 67 68 74 20 62 72 6F 74 68 65 to right brothe
000020: 72 20 6F 66 66 73 65 74 20 2A 29 0D 0A 20 20 20 r offset *)..
000030: 6C 65 76 20 20 20 20 20 20 3D 20 36 3B 20 20 28 lev = 6; (
000040: 2A 20 6E 6F 64 65 20 6C 65 76 65 6C 20 6E 75 6D * node level num
000050: 62 65 72 20 2A 29 0D 0A 20 20 20 6C 65 78 70 20 ber *).. lexp
000060: 20 20 20 20 3D 20 37 3B 20 20 28 2A 20 70 6F 69 = 7; (* poi
000070: 6E 74 65 72 20 74 6F 20 6C 65 78 69 63 6F 67 72 nter to lexicogr
000080: 61 70 68 69 63 20 70 72 65 64 65 63 65 73 73 6F aphic predecesso
000090: 72 20 2A 29 0D 0A 20 20 20 6C 65 78 73 20 20 20 r *).. lexs
0000A0: 20 20 3D 20 38 3B 20 20 28 2A 20 70 6F 69 6E 74 = 8; (* point
0000B0: 65 72 20 74 6F 20 6C 65 78 69 63 6F 67 72 61 70 er to lexicograp
0000C0: 68 69 63 20 73 75 63 63 65 73 73 6F 72 20 2A 29 hic successor *)
0000D0: 0D 0A 0D 0A 20 20 20 6E 69 6C 20 20 20 20 20 20 .... nil
0000E0: 3D 20 30 3B 20 20 28 2A 20 7A 65 72 6F 74 68 20 = 0; (* zeroth
0000F0: 65 6C 65 6D 65 6E 74 20 6E 65 76 65 72 20 75 73 element never us
000100: 65 64 20 2A 29 0D 0A 20 20 20 73 65 6E 74 20 20 ed *).. sent
000110: 20 20 20 3D 20 27 24 27 3B 28 2A 20 73 65 6E 74 = '$';(* sent
000120: 69 6E 61 6C 20 63 68 61 72 61 63 74 65 72 20 2A inal character *
000130: 29 0D 0A 20 20 20 6D 61 78 69 6E 74 20 20 20 3D ).. maxint =
000140: 20 33 32 37 36 37 3B 20 28 2A 20 6B 6C 75 64 67 32767; (* kludg
000150: 65 20 63 61 75 73 65 20 6E 6F 74 20 64 65 66 69 e cause not defi
000160: 6E 65 64 20 62 79 20 63 6F 6D 70 69 6C 65 72 20 ned by compiler
000170: 2A 29 0D 0A 0D 0A 74 79 70 65 0D 0A 20 20 20 61 *)....type.. a
000180: 72 79 20 20 20 20 20 20 3D 20 61 72 72 61 79 5B ry = array[
000190: 30 2E 2E 64 69 6D 5D 20 6F 66 20 77 6F 72 64 3B 0..dim] of word;
0001A0: 0D 0A 20 20 20 62 6F 6F 6C 65 61 6E 20 20 3D 20 .. boolean =
0001B0: 28 66 61 6C 73 65 2C 20 74 72 75 65 29 3B 20 28 (false, true); (
0001C0: 2A 20 6B 6C 75 64 67 65 20 74 69 6C 6C 20 63 6F * kludge till co
0001D0: 6D 70 69 6C 65 72 20 69 73 20 64 6F 6E 65 20 2A mpiler is done *
0001E0: 29 0D 0A 20 20 20 0D 0A 76 61 72 20 20 20 20 20 ).. ..var
0001F0: 20 20 20 20 28 2A 20 67 6C 6F 62 61 6C 20 76 61 (* global va
Size : 512 (Real : 512)
000000: 20 20 72 65 61 64 6E 6F 64 65 0D 0A 20 20 20 75 readnode.. u
000010: 6E 74 69 6C 20 28 63 68 3D 73 65 6E 74 29 3B 0D ntil (ch=sent);.
000020: 0A 0D 0A 20 20 20 28 2A 20 64 6F 6E 65 20 72 65 ... (* done re
000030: 61 64 69 6E 67 20 6E 6F 64 65 73 20 2A 29 0D 0A ading nodes *)..
000040: 20 20 20 72 6D 6F 73 74 3A 3D 70 3B 20 20 20 20 rmost:=p;
000050: 20 20 20 20 20 20 28 2A 20 72 65 63 6F 72 64 20 (* record
000060: 70 6F 69 6E 74 65 72 20 74 6F 20 72 69 67 68 74 pointer to right
000070: 20 6D 6F 73 74 20 6E 6F 64 65 20 2A 29 0D 0A 20 most node *)..
000080: 20 20 68 5B 70 2B 72 66 6F 72 73 74 5D 3A 3D 6E h[p+rforst]:=n
000090: 69 6C 3B 20 20 28 2A 20 72 69 67 68 74 20 6D 6F il; (* right mo
0000A0: 73 74 20 6E 6F 64 65 20 68 61 73 20 6E 6F 20 72 st node has no r
0000B0: 69 67 68 74 20 62 72 6F 74 68 65 72 20 2A 29 0D ight brother *).
0000C0: 0A 20 20 20 68 5B 70 2B 6C 65 78 73 20 20 5D 3A . h[p+lexs ]:
0000D0: 3D 6E 69 6C 20 20 20 28 2A 20 72 69 67 68 74 20 =nil (* right
0000E0: 6D 6F 73 74 20 6E 6F 64 65 20 68 61 73 20 6E 6F most node has no
0000F0: 20 6C 65 78 69 63 6F 67 72 61 70 68 69 63 20 73 lexicographic s
000100: 75 63 63 65 73 73 6F 72 20 2A 29 0D 0A 20 20 20 uccessor *)..
000110: 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 end; (* procedur
000120: 65 20 72 65 61 64 74 72 65 65 20 2A 29 0D 0A 0D e readtree *)...
000130: 0A 0D 0A 28 2A 0D 0A 67 69 76 65 6E 20 61 20 66 ...(*..given a f
000140: 6F 72 65 73 74 20 6F 66 20 74 72 65 65 73 20 28 orest of trees (
000150: 61 6C 6C 20 6C 65 61 76 65 73 20 77 68 65 6E 20 all leaves when
000160: 77 65 20 73 74 61 72 74 29 2C 20 62 75 69 6C 64 we start), build
000170: 20 74 68 65 6D 0D 0A 69 6E 74 6F 20 20 61 20 20 them..into a
000180: 73 69 6E 67 6C 65 20 74 72 65 65 20 75 73 69 6E single tree usin
000190: 67 20 70 68 61 73 65 20 31 20 6F 66 20 74 68 65 g phase 1 of the
0001A0: 20 68 75 2D 74 75 63 6B 65 72 20 61 6C 67 6F 72 hu-tucker algor
0001B0: 69 74 68 6D 2E 0D 0A 74 68 65 20 72 6F 6F 74 20 ithm...the root
0001C0: 6F 66 20 74 68 65 20 72 65 73 75 6C 74 61 6E 74 of the resultant
0001D0: 20 74 72 65 65 20 77 69 6C 6C 20 62 65 20 69 6E tree will be in
0001E0: 20 6C 6D 6F 73 74 20 6F 6E 20 65 78 69 74 2E 0D lmost on exit..
0001F0: 0A 0D 0A 74 68 65 20 61 6C 67 6F 72 69 74 68 6D ...the algorithm
Size : 512 (Real : 512)
000000: 72 69 61 62 6C 65 73 20 2A 29 0D 0A 20 20 20 68 riables *).. h
000010: 20 20 20 20 20 20 20 20 3A 20 61 72 79 3B 20 20 : ary;
000020: 28 2A 20 74 68 65 20 68 65 61 70 20 2A 29 0D 0A (* the heap *)..
000030: 20 20 20 68 70 20 20 20 20 20 20 20 3A 20 77 6F hp : wo
000040: 72 64 3B 20 28 2A 20 74 68 65 20 68 65 61 70 20 rd; (* the heap
000050: 70 6F 69 6E 74 65 72 20 2A 29 0D 0A 20 20 20 6C pointer *).. l
000060: 6D 6F 73 74 2C 0D 0A 20 20 20 72 6D 6F 73 74 20 most,.. rmost
000070: 20 20 20 3A 20 77 6F 72 64 3B 20 28 2A 20 6C 65 : word; (* le
000080: 66 74 20 61 6E 64 20 72 69 67 68 74 20 6D 6F 73 ft and right mos
000090: 74 20 65 6E 64 73 20 6F 66 20 74 68 65 20 6C 69 t ends of the li
0000A0: 73 74 20 2A 29 0D 0A 20 20 20 6C 65 78 66 69 72 st *).. lexfir
0000B0: 73 74 20 3A 20 77 6F 72 64 3B 20 28 2A 20 70 6F st : word; (* po
0000C0: 69 6E 74 65 72 20 74 6F 20 66 69 72 73 74 20 6E inter to first n
0000D0: 6F 64 65 20 69 6E 20 6C 65 78 20 6F 72 64 65 72 ode in lex order
0000E0: 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 *)....procedure
0000F0: 20 6E 65 77 28 76 61 72 20 70 3A 77 6F 72 64 29 new(var p:word)
000100: 3B 0D 0A 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 ;.... begin..
000110: 20 20 68 70 3A 3D 68 70 2B 31 3B 0D 0A 20 20 20 hp:=hp+1;..
000120: 70 3A 3D 68 70 2A 72 6C 3B 0D 0A 20 20 20 69 66 p:=hp*rl;.. if
000130: 20 28 70 3E 64 69 6D 2D 72 6C 29 0D 0A 20 20 20 (p>dim-rl)..
000140: 20 20 20 74 68 65 6E 20 70 75 74 23 31 28 27 68 then put#1('h
000150: 65 61 70 6F 76 65 72 27 29 0D 0A 20 20 20 65 6E eapover').. en
000160: 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 d; (* procedure
000170: 6E 65 77 20 2A 29 0D 0A 0D 0A 0D 0A 28 2A 0D 0A new *)......(*..
000180: 72 65 61 64 20 20 61 20 20 73 65 71 75 65 6E 63 read a sequenc
000190: 65 20 6F 66 20 63 68 61 72 61 63 74 65 72 73 20 e of characters
0001A0: 61 6E 64 20 77 65 69 67 68 74 73 20 66 72 6F 6D and weights from
0001B0: 20 74 68 65 20 73 74 61 6E 64 61 72 64 0D 0A 69 the standard..i
0001C0: 6E 70 75 74 20 66 69 6C 65 20 61 6E 64 20 63 72 nput file and cr
0001D0: 65 61 74 65 20 61 20 6E 6F 64 65 20 66 6F 72 20 eate a node for
0001E0: 65 61 63 68 20 20 70 61 69 72 2E 20 20 74 68 65 each pair. the
0001F0: 20 20 6E 6F 64 65 73 20 20 61 72 65 0D 0A 6C 69 nodes are..li
Size : 512 (Real : 512)
000000: 20 69 73 20 69 6D 70 6C 65 6D 65 6E 74 65 64 20 is implemented
000010: 75 73 69 6E 67 20 74 77 6F 20 69 6E 74 65 72 6E using two intern
000020: 61 6C 20 70 72 6F 63 65 64 75 72 65 73 2E 74 68 al procedures.th
000030: 65 0D 0A 66 69 72 73 74 20 28 70 69 63 6B 6C 72 e..first (picklr
000040: 29 20 63 68 6F 6F 73 65 73 20 74 77 6F 20 20 74 ) chooses two t
000050: 72 65 65 73 20 20 66 6F 72 20 20 63 6F 6D 62 69 rees for combi
000060: 6E 61 74 69 6F 6E 2C 20 20 61 6E 64 20 20 74 68 nation, and th
000070: 65 0D 0A 73 65 63 6F 6E 64 20 20 28 63 6F 6D 62 e..second (comb
000080: 69 6E 65 6C 72 29 20 20 63 6F 6D 62 69 6E 65 73 inelr) combines
000090: 20 74 68 65 20 74 77 6F 20 63 68 6F 73 65 6E 20 the two chosen
0000A0: 74 72 65 65 73 20 74 6F 20 66 6F 72 6D 20 6E 65 trees to form ne
0000B0: 77 0D 0A 69 6E 74 65 72 6E 61 6C 20 6E 6F 64 65 w..internal node
0000C0: 20 69 6E 20 74 68 65 20 66 69 6E 61 6C 20 20 74 in the final t
0000D0: 72 65 65 2E 20 20 74 68 69 73 20 20 70 72 6F 63 ree. this proc
0000E0: 65 73 73 20 20 69 73 20 20 72 65 70 65 61 74 65 ess is repeate
0000F0: 64 0D 0A 75 6E 69 74 6C 20 74 68 65 20 66 6F 72 d..unitl the for
000100: 65 73 74 20 63 6F 6E 74 61 69 6E 73 20 6F 6E 6C est contains onl
000110: 79 20 6F 6E 65 20 74 72 65 65 2E 0D 0A 2A 29 0D y one tree...*).
000120: 0A 70 72 6F 63 65 64 75 72 65 20 62 75 69 6C 64 .procedure build
000130: 31 74 72 65 65 3B 0D 0A 0D 0A 20 20 20 76 61 72 1tree;.... var
000140: 20 6C 65 66 74 2C 20 72 69 74 65 20 3A 20 77 6F left, rite : wo
000150: 72 64 3B 20 28 2A 20 70 6F 69 6E 74 65 72 73 20 rd; (* pointers
000160: 74 6F 20 6E 6F 64 65 73 20 74 6F 20 62 65 20 63 to nodes to be c
000170: 6F 6D 62 69 6E 65 64 20 2A 29 0D 0A 0D 0A 0D 0A ombined *)......
000180: 20 20 20 28 2A 0D 0A 20 20 20 70 69 63 6B 20 20 (*.. pick
000190: 74 77 6F 20 20 74 72 65 65 73 20 66 72 6F 6D 20 two trees from
0001A0: 74 68 65 20 66 6F 72 65 73 74 20 77 68 69 63 68 the forest which
0001B0: 20 73 61 74 69 73 66 79 20 74 68 65 20 66 6F 6C satisfy the fol
0001C0: 6C 6F 77 69 6E 67 0D 0A 20 20 20 72 75 6C 65 73 lowing.. rules
0001D0: 3A 0D 0A 0D 0A 20 20 20 6C 65 74 20 69 20 61 6E :.... let i an
0001E0: 64 20 6A 20 62 65 20 70 6F 69 6E 74 65 72 73 20 d j be pointers
0001F0: 74 6F 20 74 68 65 20 6C 65 66 74 20 61 6E 64 20 to the left and
Size : 512 (Real : 512)
000000: 6E 6B 65 64 20 69 6E 74 6F 20 61 20 64 6F 75 62 nked into a doub
000010: 6C 79 20 6C 69 6E 6B 65 64 20 6C 69 73 74 20 74 ly linked list t
000020: 6F 20 66 6F 72 6D 20 61 20 66 6F 72 65 73 74 20 o form a forest
000030: 61 73 20 74 68 65 79 20 61 72 65 0D 0A 72 65 61 as they are..rea
000040: 64 2E 0D 0A 2A 29 0D 0A 70 72 6F 63 65 64 75 72 d...*)..procedur
000050: 65 20 72 65 61 64 74 72 65 65 3B 0D 0A 0D 0A 20 e readtree;....
000060: 20 20 76 61 72 0D 0A 20 20 20 20 20 20 63 68 20 var.. ch
000070: 20 3A 20 77 6F 72 64 3B 20 20 28 2A 20 6E 6F 64 : word; (* nod
000080: 65 20 76 61 6C 75 65 20 2A 29 0D 0A 20 20 20 20 e value *)..
000090: 20 20 66 72 71 20 3A 20 77 6F 72 64 3B 20 20 28 frq : word; (
0000A0: 2A 20 66 72 65 71 75 65 6E 63 79 20 2A 29 0D 0A * frequency *)..
0000B0: 20 20 20 20 20 20 70 20 20 20 3A 20 77 6F 72 64 p : word
0000C0: 3B 20 20 28 2A 20 70 6F 69 6E 74 65 72 20 74 6F ; (* pointer to
0000D0: 20 6E 65 77 20 6E 6F 64 65 20 2A 29 0D 0A 20 20 new node *)..
0000E0: 20 20 20 20 70 72 65 76 3A 20 77 6F 72 64 3B 20 prev: word;
0000F0: 20 28 2A 20 70 6F 69 6E 74 65 72 20 74 6F 20 70 (* pointer to p
000100: 72 65 76 69 6F 75 73 20 6E 6F 64 65 20 72 65 61 revious node rea
000110: 64 20 28 66 6F 72 20 6C 69 6E 6B 69 6E 67 29 20 d (for linking)
000120: 2A 29 0D 0A 0D 0A 20 20 20 70 72 6F 63 65 64 75 *).... procedu
000130: 72 65 20 72 65 61 64 6E 6F 64 65 3B 0D 0A 0D 0A re readnode;....
000140: 20 20 20 20 20 20 76 61 72 0D 0A 20 20 20 20 20 var..
000150: 20 20 20 20 63 20 3A 20 77 6F 72 64 3B 0D 0A 0D c : word;...
000160: 0A 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 . begin..
000170: 20 20 20 20 67 65 74 23 30 28 63 68 29 3B 20 20 get#0(ch);
000180: 20 20 28 2A 20 67 65 74 20 6E 6F 64 65 20 76 61 (* get node va
000190: 6C 75 65 20 63 68 61 72 61 63 74 65 72 20 2A 29 lue character *)
0001A0: 0D 0A 20 20 20 20 20 20 69 66 20 28 63 68 3C 3E .. if (ch<>
0001B0: 73 65 6E 74 29 0D 0A 20 20 20 20 20 20 20 20 20 sent)..
0001C0: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 then begin..
0001D0: 20 20 20 20 20 20 20 20 67 65 74 23 30 28 63 29 get#0(c)
0001E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 ;.. w
0001F0: 68 69 6C 65 20 28 63 3D 27 20 27 29 20 64 6F 20 hile (c=' ') do
Size : 512 (Real : 512)
000000: 72 69 67 68 74 20 74 72 65 65 73 0D 0A 0D 0A 20 right trees....
000010: 20 20 69 29 20 20 20 6E 6F 20 65 78 74 65 72 6E i) no extern
000020: 61 6C 20 6E 6F 64 65 73 20 6F 63 63 75 72 20 62 al nodes occur b
000030: 65 74 77 65 65 6E 20 69 20 61 6E 64 20 6A 2E 0D etween i and j..
000040: 0A 0D 0A 20 20 20 69 69 29 20 20 74 68 65 20 20 ... ii) the
000050: 73 75 6D 20 6F 66 20 74 68 65 20 77 65 69 67 68 sum of the weigh
000060: 74 73 20 6F 66 20 69 20 61 6E 64 20 6A 20 69 73 ts of i and j is
000070: 20 6D 69 6E 69 6D 61 6C 20 66 6F 72 20 61 6C 6C minimal for all
000080: 20 69 0D 0A 20 20 20 20 20 20 20 20 61 6E 64 20 i.. and
000090: 6A 20 73 61 74 69 73 66 79 69 6E 67 20 72 75 6C j satisfying rul
0000A0: 65 20 28 69 29 2E 0D 0A 0D 0A 20 20 20 69 69 69 e (i)..... iii
0000B0: 29 20 74 68 65 20 20 69 6E 64 65 78 20 69 20 69 ) the index i i
0000C0: 73 20 6D 69 6E 69 6D 61 6C 20 66 6F 72 20 61 6C s minimal for al
0000D0: 6C 20 69 20 73 61 74 69 73 66 79 69 6E 67 20 72 l i satisfying r
0000E0: 75 6C 65 73 20 28 69 29 2C 0D 0A 20 20 20 20 20 ules (i),..
0000F0: 20 20 20 28 69 69 29 2E 0D 0A 0D 0A 20 20 20 69 (ii)..... i
000100: 76 29 20 20 74 68 65 20 20 69 6E 64 65 78 20 6A v) the index j
000110: 20 69 73 20 6D 69 6E 69 6D 61 6C 20 66 6F 72 20 is minimal for
000120: 61 6C 6C 20 6A 20 73 61 74 69 73 66 79 69 6E 67 all j satisfying
000130: 20 72 75 6C 65 73 20 28 69 29 2C 0D 0A 20 20 20 rules (i),..
000140: 20 20 20 20 20 28 69 69 29 2C 20 28 69 69 69 29 (ii), (iii)
000150: 2E 0D 0A 0D 0A 20 20 20 70 6F 69 6E 74 65 72 73 ..... pointers
000160: 20 74 6F 20 74 68 65 20 74 77 6F 20 74 72 65 65 to the two tree
000170: 73 20 63 68 6F 73 65 6E 20 77 69 6C 6C 20 62 65 s chosen will be
000180: 20 6C 65 66 74 20 20 69 6E 20 20 6C 65 66 74 20 left in left
000190: 20 61 6E 64 0D 0A 20 20 20 72 69 74 65 20 28 72 and.. rite (r
0001A0: 65 73 70 65 63 74 69 76 6C 79 29 2E 0D 0A 0D 0A espectivly).....
0001B0: 20 20 20 6F 6E 65 20 20 69 6E 74 65 72 6E 61 6C one internal
0001C0: 20 20 70 72 6F 63 65 64 75 72 65 20 20 69 73 20 procedure is
0001D0: 75 73 65 64 20 74 6F 20 63 6F 6D 70 61 72 65 20 used to compare
0001E0: 74 68 65 20 6D 69 6E 69 6D 75 6D 20 73 75 6D 0D the minimum sum.
0001F0: 0A 20 20 20 66 6F 75 6E 64 20 73 6F 20 66 61 72 . found so far
Size : 512 (Real : 512)
000000: 67 65 74 23 30 28 63 29 3B 0D 0A 20 20 20 20 20 get#0(c);..
000010: 20 20 20 20 20 20 20 66 72 71 3A 3D 30 3B 0D 0A frq:=0;..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6C whil
000030: 65 20 28 63 3E 3D 27 30 27 29 20 61 6E 64 20 28 e (c>='0') and (
000040: 63 3C 3D 27 39 27 29 20 64 6F 20 62 65 67 69 6E c<='9') do begin
000050: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000060: 20 66 72 71 3A 3D 66 72 71 2A 31 30 2B 63 2D 27 frq:=frq*10+c-'
000070: 30 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0';..
000080: 20 20 20 20 67 65 74 23 30 28 63 29 0D 0A 20 20 get#0(c)..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
0000A0: 20 28 2A 20 77 68 69 6C 65 20 2A 29 0D 0A 20 20 (* while *)..
0000B0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A end;..
0000C0: 20 20 20 20 20 20 72 65 70 65 61 74 20 67 65 74 repeat get
0000D0: 23 30 28 63 29 20 75 6E 74 69 6C 20 28 63 3D 31 #0(c) until (c=1
0000E0: 30 29 20 28 2A 20 69 67 6E 6F 72 65 20 74 69 6C 0) (* ignore til
0000F0: 6C 20 6C 66 20 66 6F 75 6E 64 20 2A 29 0D 0A 20 l lf found *)..
000100: 20 20 20 20 20 65 6E 64 3B 20 28 2A 20 72 65 61 end; (* rea
000110: 64 6E 6F 64 65 20 2A 29 0D 0A 0D 0A 20 20 20 62 dnode *).... b
000120: 65 67 69 6E 0D 0A 20 20 20 72 65 61 64 6E 6F 64 egin.. readnod
000130: 65 3B 20 20 20 20 20 20 20 20 28 2A 20 72 65 61 e; (* rea
000140: 64 6C 6E 28 63 68 2C 20 66 72 71 29 3B 20 2A 29 dln(ch, frq); *)
000150: 0D 0A 20 20 20 70 72 65 76 3A 3D 6E 69 6C 3B 20 .. prev:=nil;
000160: 20 20 20 20 20 20 28 2A 20 6E 6F 20 6C 65 66 74 (* no left
000170: 20 66 6F 72 65 73 74 20 66 6F 72 20 66 69 72 73 forest for firs
000180: 74 20 6E 6F 64 65 20 2A 29 0D 0A 20 20 20 72 65 t node *).. re
000190: 70 65 61 74 0D 0A 20 20 20 20 20 20 6E 65 77 28 peat.. new(
0001A0: 76 61 72 20 70 29 3B 0D 0A 20 20 20 20 20 20 69 var p);.. i
0001B0: 66 20 28 70 72 65 76 3D 6E 69 6C 29 20 74 68 65 f (prev=nil) the
0001C0: 6E 20 6C 6D 6F 73 74 3A 3D 70 3B 20 28 2A 20 72 n lmost:=p; (* r
0001D0: 65 63 6F 72 64 20 70 6F 69 6E 74 65 72 20 74 6F ecord pointer to
0001E0: 20 66 69 72 73 74 20 6E 6F 64 65 20 2A 29 0D 0A first node *)..
0001F0: 20 20 20 20 20 20 68 5B 70 2B 63 68 61 72 20 20 h[p+char
Size : 512 (Real : 512)
000000: 20 61 67 61 69 6E 73 74 20 74 68 65 20 73 75 6D against the sum
000010: 20 6F 66 20 74 68 65 20 66 72 65 71 75 65 6E 63 of the frequenc
000020: 69 65 73 20 6F 66 20 74 68 65 20 74 72 65 65 73 ies of the trees
000030: 0D 0A 20 20 20 75 6E 64 65 72 20 63 6F 6E 73 69 .. under consi
000040: 64 65 72 61 74 69 6F 6E 2E 0D 0A 20 20 20 2A 29 deration... *)
000050: 0D 0A 20 20 20 70 72 6F 63 65 64 75 72 65 20 70 .. procedure p
000060: 69 63 6B 6C 72 3B 0D 0A 0D 0A 20 20 20 20 20 20 icklr;....
000070: 76 61 72 20 69 2C 6A 20 3A 20 77 6F 72 64 3B 20 var i,j : word;
000080: 28 2A 20 70 6F 69 6E 74 65 72 73 20 74 6F 20 6C (* pointers to l
000090: 65 66 74 20 61 6E 64 20 72 69 67 68 74 20 6E 6F eft and right no
0000A0: 64 65 73 20 77 68 69 63 68 0D 0A 20 20 20 20 20 des which..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 61 72 65 20 6D 69 6E 69 6E are minin
0000D0: 69 6D 75 6D 20 70 61 69 72 20 63 61 6E 64 69 64 imum pair candid
0000E0: 61 74 65 73 20 2A 29 0D 0A 20 20 20 20 20 20 20 ates *)..
0000F0: 20 20 20 6D 69 6E 73 75 6D 20 3A 20 77 6F 72 64 minsum : word
000100: 3B 20 28 2A 20 6D 69 6E 69 6E 69 6D 75 6D 20 73 ; (* mininimum s
000110: 75 6D 20 66 6F 75 6E 64 20 73 6F 20 66 61 72 20 um found so far
000120: 2A 29 0D 0A 0D 0A 0D 0A 20 20 20 20 20 20 28 2A *)...... (*
000130: 0D 0A 20 20 20 20 20 20 63 6F 6D 70 61 72 65 20 .. compare
000140: 20 74 68 65 20 73 75 6D 20 6F 66 20 74 68 65 20 the sum of the
000150: 66 72 65 71 75 65 6E 63 69 65 73 20 6F 66 20 6E frequencies of n
000160: 6F 64 65 73 20 69 20 61 6E 64 20 6A 2E 20 20 69 odes i and j. i
000170: 66 0D 0A 20 20 20 20 20 20 74 68 65 69 72 20 73 f.. their s
000180: 75 6D 20 69 73 20 6C 65 73 73 20 74 68 61 6E 20 um is less than
000190: 74 68 65 20 6D 69 6E 69 6D 75 6D 20 20 66 6F 75 the minimum fou
0001A0: 6E 64 20 20 73 6F 20 20 66 61 72 2C 20 20 74 68 nd so far, th
0001B0: 65 6E 0D 0A 20 20 20 20 20 20 72 65 63 6F 72 64 en.. record
0001C0: 20 20 74 68 65 20 20 6E 65 77 20 20 6D 69 6E 69 the new mini
0001D0: 6D 75 6D 20 28 69 6E 20 6D 69 6E 73 75 6D 29 20 mum (in minsum)
0001E0: 61 6E 64 20 74 68 65 20 70 6F 73 69 74 69 6F 6E and the position
0001F0: 20 6F 66 0D 0A 20 20 20 20 20 20 69 20 61 6E 64 of.. i and
Size : 512 (Real : 512)
000000: 77 20 6E 6F 64 65 20 2A 29 0D 0A 20 20 20 20 20 w node *)..
000010: 20 69 66 20 28 68 5B 6C 65 66 74 2B 6C 66 6F 72 if (h[left+lfor
000020: 73 74 5D 3C 3E 6E 69 6C 29 0D 0A 20 20 20 20 20 st]<>nil)..
000030: 20 20 20 20 74 68 65 6E 20 68 5B 68 5B 6C 65 66 then h[h[lef
000040: 74 2B 6C 66 6F 72 73 74 20 5D 2B 72 66 6F 72 73 t+lforst ]+rfors
000050: 74 20 5D 3A 3D 6E 65 77 6E 3B 0D 0A 20 20 20 20 t ]:=newn;..
000060: 20 20 68 5B 68 5B 6C 65 66 74 2B 72 66 6F 72 73 h[h[left+rfors
000070: 74 20 5D 2B 6C 66 6F 72 73 74 20 5D 3A 3D 6E 65 t ]+lforst ]:=ne
000080: 77 6E 3B 0D 0A 0D 0A 20 20 20 20 20 20 28 2A 20 wn;.... (*
000090: 64 65 6C 65 74 65 20 72 69 74 65 20 6E 6F 64 65 delete rite node
0000A0: 20 2A 29 0D 0A 20 20 20 20 20 20 68 5B 68 5B 72 *).. h[h[r
0000B0: 69 74 65 2B 6C 66 6F 72 73 74 20 5D 2B 72 66 6F ite+lforst ]+rfo
0000C0: 72 73 74 20 5D 3A 3D 68 5B 72 69 74 65 2B 72 66 rst ]:=h[rite+rf
0000D0: 6F 72 73 74 5D 3B 0D 0A 20 20 20 20 20 20 69 66 orst];.. if
0000E0: 20 28 68 5B 72 69 74 65 2B 72 66 6F 72 73 74 5D (h[rite+rforst]
0000F0: 3C 3E 6E 69 6C 29 20 20 20 20 20 20 20 28 2A 20 <>nil) (*
000100: 72 69 74 65 20 68 61 73 20 61 20 72 69 67 68 74 rite has a right
000110: 20 6E 65 69 67 68 62 6F 72 20 2A 29 0D 0A 20 20 neighbor *)..
000120: 20 20 20 20 20 20 20 74 68 65 6E 20 68 5B 68 5B then h[h[
000130: 72 69 74 65 2B 72 66 6F 72 73 74 20 5D 2B 6C 66 rite+rforst ]+lf
000140: 6F 72 73 74 20 5D 3A 3D 68 5B 72 69 74 65 2B 6C orst ]:=h[rite+l
000150: 66 6F 72 73 74 5D 3B 0D 0A 0D 0A 20 20 20 20 20 forst];....
000160: 20 28 2A 20 75 70 64 61 74 65 20 6C 65 66 74 6D (* update leftm
000170: 6F 73 74 20 61 6E 64 20 72 69 67 68 74 6D 6F 73 ost and rightmos
000180: 74 20 70 6F 69 6E 74 65 72 73 20 2A 29 0D 0A 20 t pointers *)..
000190: 20 20 20 20 20 69 66 20 28 6C 6D 6F 73 74 3D 6C if (lmost=l
0001A0: 65 66 74 29 20 74 68 65 6E 20 6C 6D 6F 73 74 3A eft) then lmost:
0001B0: 3D 6E 65 77 6E 3B 0D 0A 20 20 20 20 20 20 69 66 =newn;.. if
0001C0: 20 28 72 6D 6F 73 74 3D 72 69 74 65 29 20 74 68 (rmost=rite) th
0001D0: 65 6E 20 72 6D 6F 73 74 3A 3D 68 5B 72 69 74 65 en rmost:=h[rite
0001E0: 2B 6C 66 6F 72 73 74 5D 0D 0A 20 20 20 20 20 20 +lforst]..
0001F0: 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 end; (* procedur
Size : 512 (Real : 512)
000000: 20 6A 20 61 73 20 74 68 65 20 74 77 6F 20 62 65 j as the two be
000010: 73 74 20 63 61 6E 64 69 64 61 74 65 73 20 66 6F st candidates fo
000020: 72 20 63 6F 6D 62 69 6E 69 6E 67 2E 0D 0A 20 20 r combining...
000030: 20 20 20 20 2A 29 0D 0A 20 20 20 20 20 20 70 72 *).. pr
000040: 6F 63 65 64 75 72 65 20 74 61 6B 65 6D 69 6E 3B ocedure takemin;
000050: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 .... beg
000060: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 in.. if
000070: 28 68 5B 69 2B 66 72 65 71 5D 2B 68 5B 6A 2B 66 (h[i+freq]+h[j+f
000080: 72 65 71 5D 3C 6D 69 6E 73 75 6D 29 20 74 68 65 req]<minsum) the
000090: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 n begin..
0000A0: 20 20 20 20 20 6D 69 6E 73 75 6D 3A 3D 68 5B 69 minsum:=h[i
0000B0: 2B 66 72 65 71 5D 2B 68 5B 6A 2B 66 72 65 71 5D +freq]+h[j+freq]
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 72 ;.. r
0000D0: 69 74 65 3A 3D 6A 3B 20 6C 65 66 74 3A 3D 69 0D ite:=j; left:=i.
0000E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 . end
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 20 .. end;
000100: 28 2A 20 70 72 6F 63 65 64 75 72 65 20 74 61 6B (* procedure tak
000110: 65 6D 69 6E 20 2A 29 0D 0A 0D 0A 0D 0A 20 20 20 emin *)......
000120: 20 20 20 62 65 67 69 6E 20 28 2A 20 70 72 6F 63 begin (* proc
000130: 65 64 75 72 65 20 70 69 63 6B 6C 72 20 2A 29 0D edure picklr *).
000140: 0A 20 20 20 20 20 20 69 3A 3D 6C 6D 6F 73 74 3B . i:=lmost;
000150: 20 20 20 20 20 20 20 20 20 28 2A 20 73 74 61 72 (* star
000160: 74 20 77 69 74 68 20 6C 65 66 74 6D 6F 73 74 20 t with leftmost
000170: 74 72 65 65 20 69 6E 20 66 6F 72 65 73 74 20 2A tree in forest *
000180: 29 0D 0A 20 20 20 20 20 20 6D 69 6E 73 75 6D 3A ).. minsum:
000190: 3D 6D 61 78 69 6E 74 3B 0D 0A 20 20 20 20 20 20 =maxint;..
0001A0: 77 68 69 6C 65 20 28 68 5B 69 2B 72 66 6F 72 73 while (h[i+rfors
0001B0: 74 5D 3C 3E 6E 69 6C 29 20 64 6F 20 62 65 67 69 t]<>nil) do begi
0001C0: 6E 20 28 2A 20 6D 6F 72 65 20 69 27 73 20 74 6F n (* more i's to
0001D0: 20 74 65 73 74 20 2A 29 0D 0A 20 20 20 20 20 20 test *)..
0001E0: 20 20 20 6A 3A 3D 20 68 5B 69 2B 72 66 6F 72 73 j:= h[i+rfors
0001F0: 74 5D 3B 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 t];....
Size : 512 (Real : 512)
000000: 65 20 63 6F 6D 62 69 6E 65 6C 72 20 2A 29 0D 0A e combinelr *)..
000010: 0D 0A 0D 0A 20 20 20 62 65 67 69 6E 20 28 2A 20 .... begin (*
000020: 70 72 6F 63 65 64 75 72 65 20 62 75 69 6C 64 31 procedure build1
000030: 74 72 65 65 20 2A 29 0D 0A 20 20 20 72 65 70 65 tree *).. repe
000040: 61 74 0D 0A 20 20 20 20 20 20 70 69 63 6B 6C 72 at.. picklr
000050: 3B 0D 0A 20 20 20 20 20 20 63 6F 6D 62 69 6E 65 ;.. combine
000060: 6C 72 3B 0D 0A 20 20 20 20 20 20 70 75 74 23 31 lr;.. put#1
000070: 28 27 2E 27 29 3B 20 20 20 20 20 20 28 2A 20 73 ('.'); (* s
000080: 68 6F 77 20 70 72 6F 67 72 65 73 73 20 6F 6E 20 how progress on
000090: 73 63 72 65 65 6E 20 2E 20 2E 20 2E 20 2A 29 0D screen . . . *).
0000A0: 0A 20 20 20 75 6E 74 69 6C 20 28 6C 6D 6F 73 74 . until (lmost
0000B0: 3D 72 6D 6F 73 74 29 20 28 2A 20 6F 6E 6C 79 20 =rmost) (* only
0000C0: 6F 6E 65 20 6E 6F 64 65 20 6C 65 66 74 20 2A 29 one node left *)
0000D0: 0D 0A 20 20 20 65 6E 64 3B 20 28 2A 20 70 72 6F .. end; (* pro
0000E0: 63 65 64 75 72 65 20 62 75 69 6C 64 31 74 72 65 cedure build1tre
0000F0: 65 20 2A 29 0D 0A 0D 0A 0D 0A 28 2A 0D 0A 67 69 e *)......(*..gi
000100: 76 65 6E 20 74 68 65 20 74 72 65 65 20 62 75 69 ven the tree bui
000110: 6C 74 20 69 6E 20 70 68 61 73 65 20 31 2C 20 74 lt in phase 1, t
000120: 72 61 76 65 72 73 65 20 69 74 20 28 69 6E 20 6F raverse it (in o
000130: 72 64 65 72 20 77 69 6C 6C 20 64 6F 29 0D 0A 61 rder will do)..a
000140: 6E 64 20 20 61 73 73 69 67 6E 20 20 61 20 6C 65 nd assign a le
000150: 76 65 6C 20 74 6F 20 65 61 63 68 20 6E 6F 64 65 vel to each node
000160: 2E 20 20 74 68 65 6E 20 72 65 74 75 72 6E 20 74 . then return t
000170: 6F 20 74 68 65 20 6F 72 69 67 69 6E 61 6C 0D 0A o the original..
000180: 66 6F 72 65 73 74 20 6F 66 20 74 72 65 65 73 20 forest of trees
000190: 28 61 6C 6C 20 6C 65 61 76 65 73 20 77 68 65 6E (all leaves when
0001A0: 20 77 65 20 73 74 61 72 74 29 2C 20 62 75 69 6C we start), buil
0001B0: 64 20 74 68 65 6D 20 20 69 6E 74 6F 20 20 61 0D d them into a.
0001C0: 0A 73 69 6E 67 6C 65 20 74 72 65 65 20 75 73 69 .single tree usi
0001D0: 6E 67 20 70 68 61 73 65 20 33 20 6F 66 20 74 68 ng phase 3 of th
0001E0: 65 20 68 75 2D 74 75 63 6B 65 72 20 61 6C 67 6F e hu-tucker algo
0001F0: 72 69 74 68 6D 2E 20 20 74 68 65 20 72 6F 6F 74 rithm. the root
Size : 512 (Real : 512)
000000: 28 2A 20 63 6F 6D 70 61 72 65 20 74 6F 20 69 6E (* compare to in
000010: 74 65 72 6E 61 6C 20 6E 6F 64 65 73 20 74 69 6C ternal nodes til
000020: 6C 20 65 78 65 74 65 72 6E 61 6C 20 69 73 20 66 l exeternal is f
000030: 6F 75 6E 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 ound *)..
000040: 20 20 77 68 69 6C 65 20 28 68 5B 6A 2B 63 68 61 while (h[j+cha
000050: 72 5D 3D 73 65 6E 74 29 20 64 6F 20 62 65 67 69 r]=sent) do begi
000060: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74 n.. t
000070: 61 6B 65 6D 69 6E 3B 0D 0A 20 20 20 20 20 20 20 akemin;..
000080: 20 20 20 20 20 6A 3A 3D 68 5B 6A 2B 72 66 6F 72 j:=h[j+rfor
000090: 73 74 5D 20 28 2A 20 6F 6E 20 74 6F 20 74 68 65 st] (* on to the
0000A0: 20 6E 65 78 74 20 74 72 65 65 20 2A 29 0D 0A 20 next tree *)..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D end;.
0000C0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 28 2A 20 6A ... (* j
0000D0: 20 6E 6F 77 20 70 6F 69 6E 74 73 20 74 6F 20 6F now points to o
0000E0: 6E 6C 79 20 65 78 74 65 72 6E 61 6C 20 6E 6F 64 nly external nod
0000F0: 65 20 63 61 6E 64 69 64 61 74 65 20 2A 29 0D 0A e candidate *)..
000100: 20 20 20 20 20 20 20 20 20 74 61 6B 65 6D 69 6E takemin
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 69 3A 3D 68 ;.. i:=h
000120: 5B 69 2B 72 66 6F 72 73 74 20 5D 20 20 20 20 20 [i+rforst ]
000130: 28 2A 20 6D 6F 76 65 20 74 6F 20 6E 65 78 74 20 (* move to next
000140: 74 72 65 65 20 69 6E 20 66 6F 72 65 73 74 20 2A tree in forest *
000150: 29 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 20 ).. end
000160: 28 2A 20 77 68 69 6C 65 20 6E 6F 74 20 6F 75 74 (* while not out
000170: 20 6F 66 20 69 27 73 20 2A 29 0D 0A 20 20 20 20 of i's *)..
000180: 20 20 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 end; (* proced
000190: 75 72 65 20 70 69 63 6B 6C 72 20 2A 29 0D 0A 0D ure picklr *)...
0001A0: 0A 0D 0A 20 20 20 28 2A 0D 0A 20 20 20 63 6F 6D ... (*.. com
0001B0: 62 69 6E 65 20 20 74 68 65 20 74 77 6F 20 74 72 bine the two tr
0001C0: 65 65 73 20 70 6F 69 6E 74 65 64 20 74 6F 20 62 ees pointed to b
0001D0: 79 20 6C 65 66 74 20 61 6E 64 20 72 69 74 65 20 y left and rite
0001E0: 74 6F 20 66 6F 72 6D 20 61 0D 0A 20 20 20 6E 65 to form a.. ne
0001F0: 77 20 69 6E 74 65 72 6E 61 6C 20 6E 6F 64 65 20 w internal node
Size : 512 (Real : 512)
000000: 0D 0A 6F 66 20 74 68 65 20 72 65 73 75 6C 74 61 ..of the resulta
000010: 6E 74 20 74 72 65 65 20 77 69 6C 6C 20 62 65 20 nt tree will be
000020: 69 6E 20 6C 65 78 66 69 72 73 74 20 6F 6E 20 65 in lexfirst on e
000030: 78 69 74 2E 0D 0A 0D 0A 74 68 65 20 20 61 6C 67 xit.....the alg
000040: 6F 72 69 74 68 6D 20 20 69 73 20 20 69 6D 70 6C orithm is impl
000050: 65 6D 65 6E 74 65 64 20 20 75 73 69 6E 67 20 74 emented using t
000060: 77 6F 20 69 6E 74 65 72 6E 61 6C 20 70 72 6F 63 wo internal proc
000070: 65 64 75 72 65 73 2E 0D 0A 74 68 65 20 66 69 72 edures...the fir
000080: 73 74 20 28 70 69 63 6B 6C 72 29 20 63 68 6F 6F st (picklr) choo
000090: 73 65 73 20 74 77 6F 20 74 72 65 65 73 20 66 6F ses two trees fo
0000A0: 72 20 63 6F 6D 62 69 6E 61 74 69 6F 6E 2C 20 20 r combination,
0000B0: 61 6E 64 20 20 74 68 65 0D 0A 73 65 63 6F 6E 64 and the..second
0000C0: 20 20 28 63 6F 6D 62 69 6E 65 6C 72 29 20 63 6F (combinelr) co
0000D0: 6D 62 69 6E 65 73 20 74 68 65 20 74 77 6F 20 63 mbines the two c
0000E0: 68 6F 73 65 6E 20 74 72 65 65 73 20 74 6F 20 66 hosen trees to f
0000F0: 6F 72 6D 20 61 20 6E 65 77 0D 0A 69 6E 74 65 72 orm a new..inter
000100: 6E 61 6C 20 6E 6F 64 65 20 69 6E 20 74 68 65 20 nal node in the
000110: 20 66 69 6E 61 6C 20 20 74 72 65 65 2E 20 20 74 final tree. t
000120: 68 69 73 20 20 70 72 6F 63 65 73 73 20 20 69 73 his process is
000130: 20 20 72 65 70 65 61 74 65 64 0D 0A 75 6E 69 74 repeated..unit
000140: 6C 20 74 68 65 20 66 6F 72 65 73 74 20 63 6F 6E l the forest con
000150: 74 61 69 6E 73 20 6F 6E 6C 79 20 6F 6E 65 20 74 tains only one t
000160: 72 65 65 2E 0D 0A 0D 0A 74 68 65 20 20 70 72 6F ree.....the pro
000170: 63 65 64 75 72 65 20 20 75 73 65 64 20 20 69 73 cedure used is
000180: 20 76 65 72 79 20 73 69 6D 69 6C 61 72 20 74 6F very similar to
000190: 20 74 68 61 74 20 75 73 65 64 20 74 6F 20 62 75 that used to bu
0001A0: 69 6C 64 20 74 68 65 0D 0A 74 72 65 65 20 69 6E ild the..tree in
0001B0: 20 70 68 61 73 65 20 31 2E 0D 0A 2A 29 0D 0A 70 phase 1...*)..p
0001C0: 72 6F 63 65 64 75 72 65 20 62 75 69 6C 64 33 74 rocedure build3t
0001D0: 72 65 65 3B 0D 0A 0D 0A 20 20 20 76 61 72 20 6D ree;.... var m
0001E0: 61 78 6C 65 76 20 3A 20 77 6F 72 64 3B 20 28 2A axlev : word; (*
0001F0: 20 6C 61 72 67 65 73 74 20 6C 65 76 65 6C 20 69 largest level i
Size : 512 (Real : 512)
000000: 69 6E 20 74 68 65 20 66 69 6E 61 6C 20 20 74 72 in the final tr
000010: 65 65 2E 20 20 6C 69 6E 6B 20 20 74 68 69 73 20 ee. link this
000020: 20 6E 65 77 20 20 6E 6F 64 65 0D 0A 20 20 20 69 new node.. i
000030: 6E 74 6F 20 20 74 68 65 20 20 65 78 69 73 74 69 nto the existi
000040: 6E 67 20 20 66 6F 72 65 73 74 20 20 69 6E 20 70 ng forest in p
000050: 6C 61 63 65 20 6F 66 20 74 68 65 20 6C 65 66 74 lace of the left
000060: 20 74 72 65 65 2E 20 20 74 68 65 0D 0A 20 20 20 tree. the..
000070: 72 69 74 65 20 74 72 65 65 20 69 73 20 20 64 65 rite tree is de
000080: 6C 65 74 65 64 20 20 66 72 6F 6D 20 20 74 68 65 leted from the
000090: 20 20 66 6F 72 65 73 74 2E 20 20 70 6F 69 6E 74 forest. point
0000A0: 65 72 73 20 20 74 6F 20 20 74 68 65 0D 0A 20 20 ers to the..
0000B0: 20 6C 65 66 74 6D 6F 73 74 20 20 61 6E 64 20 20 leftmost and
0000C0: 72 69 67 68 74 6D 6F 73 74 20 20 28 6C 6D 6F 73 rightmost (lmos
0000D0: 74 20 61 6E 64 20 72 6D 6F 73 74 2C 20 72 65 73 t and rmost, res
0000E0: 70 65 63 74 69 76 6C 79 29 20 61 72 65 0D 0A 20 pectivly) are..
0000F0: 20 20 75 70 64 61 74 65 64 20 69 6E 20 74 68 65 updated in the
000100: 20 70 72 6F 63 65 73 73 2E 20 20 74 68 65 20 66 process. the f
000110: 72 65 71 75 65 6E 63 79 20 6F 66 20 74 68 65 20 requency of the
000120: 6E 65 77 20 20 6E 65 77 20 20 6E 6F 64 65 0D 0A new new node..
000130: 20 20 20 62 65 63 6F 6D 65 73 20 74 68 65 20 73 becomes the s
000140: 75 6D 20 6F 66 20 74 68 65 20 66 72 65 71 75 65 um of the freque
000150: 6E 63 69 65 73 20 6F 66 20 69 74 73 20 6F 66 66 ncies of its off
000160: 73 70 72 69 6E 67 2E 0D 0A 20 20 20 2A 29 0D 0A spring... *)..
000170: 20 20 20 70 72 6F 63 65 64 75 72 65 20 63 6F 6D procedure com
000180: 62 69 6E 65 6C 72 3B 0D 0A 0D 0A 20 20 20 20 20 binelr;....
000190: 20 76 61 72 20 6E 65 77 6E 20 3A 20 77 6F 72 64 var newn : word
0001A0: 3B 20 28 2A 20 70 6F 69 6E 74 65 72 20 74 6F 20 ; (* pointer to
0001B0: 6E 65 77 20 6E 6F 64 65 20 63 72 65 61 74 65 64 new node created
0001C0: 20 2A 29 0D 0A 0D 0A 20 20 20 20 20 20 62 65 67 *).... beg
0001D0: 69 6E 0D 0A 20 20 20 20 20 20 6E 65 77 28 76 61 in.. new(va
0001E0: 72 20 6E 65 77 6E 29 3B 20 20 28 2A 20 67 65 74 r newn); (* get
0001F0: 20 70 6F 69 6E 74 65 72 20 74 6F 20 6E 65 77 20 pointer to new
Size : 512 (Real : 512)
000000: 6E 20 74 72 65 65 20 2A 29 0D 0A 20 20 20 20 20 n tree *)..
000010: 20 20 70 69 63 6B 6C 65 76 3A 20 77 6F 72 64 3B picklev: word;
000020: 20 28 2A 20 6C 65 76 65 6C 20 6F 66 20 6E 6F 64 (* level of nod
000030: 65 20 6E 6F 77 20 62 65 69 6E 67 20 70 69 63 6B e now being pick
000040: 65 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 6C 65 ed *).. le
000050: 66 74 20 3A 20 77 6F 72 64 3B 20 20 20 28 2A 20 ft : word; (*
000060: 6C 65 66 74 20 6D 6F 73 74 20 6E 6F 64 65 20 74 left most node t
000070: 6F 20 62 65 20 72 65 70 6C 61 63 65 64 20 2A 29 o be replaced *)
000080: 0D 0A 0D 0A 0D 0A 20 20 20 28 2A 0D 0A 20 20 20 ...... (*..
000090: 73 65 74 6C 65 76 20 20 77 69 6C 6C 20 20 74 72 setlev will tr
0000A0: 61 76 65 72 73 65 20 20 74 68 65 20 20 74 72 65 averse the tre
0000B0: 65 20 20 67 65 6E 65 72 61 74 65 64 20 20 69 6E e generated in
0000C0: 20 70 68 61 73 65 20 31 20 61 6E 64 0D 0A 20 20 phase 1 and..
0000D0: 20 61 73 73 69 67 6E 20 6C 65 76 65 6C 73 20 74 assign levels t
0000E0: 6F 20 20 65 61 63 68 20 20 6F 66 20 20 74 68 65 o each of the
0000F0: 20 20 6E 6F 64 65 73 2E 20 20 61 6C 73 6F 2C 20 nodes. also,
000100: 20 74 68 65 20 20 64 65 65 70 65 73 74 0D 0A 20 the deepest..
000110: 20 20 6C 65 76 65 6C 20 72 65 61 63 68 65 64 20 level reached
000120: 77 69 6C 6C 20 62 65 20 72 65 63 6F 72 64 65 64 will be recorded
000130: 20 69 6E 20 6D 61 78 6C 65 76 20 6F 6E 20 65 78 in maxlev on ex
000140: 69 74 2E 0D 0A 20 20 20 2A 29 0D 0A 20 20 20 70 it... *).. p
000150: 72 6F 63 65 64 75 72 65 20 73 65 74 6C 65 76 3B rocedure setlev;
000160: 0D 0A 0D 0A 0D 0A 20 20 20 20 20 20 28 2A 0D 0A ...... (*..
000170: 20 20 20 20 20 20 74 72 61 76 65 72 73 65 20 20 traverse
000180: 61 20 20 6E 6F 64 65 20 20 6F 66 20 20 61 20 20 a node of a
000190: 74 72 65 65 20 20 70 6F 69 6E 74 65 64 20 20 74 tree pointed t
0001A0: 6F 20 20 62 79 20 74 68 65 20 66 69 72 73 74 0D o by the first.
0001B0: 0A 20 20 20 20 20 20 61 72 67 75 6D 65 6E 74 2C . argument,
0001C0: 20 61 73 73 69 67 6E 69 6E 67 20 69 74 20 74 68 assigning it th
0001D0: 65 20 6C 65 76 65 6C 20 20 70 61 73 73 65 64 20 e level passed
0001E0: 20 69 6E 20 20 74 68 65 20 20 73 65 63 6F 6E 64 in the second
0001F0: 0D 0A 20 20 20 20 20 20 61 72 67 75 6D 65 6E 74 .. argument
Size : 512 (Real : 512)
000000: 6E 6F 64 65 20 6F 6E 20 68 65 61 70 20 2A 29 0D node on heap *).
000010: 0A 20 20 20 20 20 20 68 5B 6E 65 77 6E 2B 63 68 . h[newn+ch
000020: 61 72 5D 3A 3D 73 65 6E 74 3B 20 20 28 2A 20 69 ar]:=sent; (* i
000030: 6E 69 74 20 61 6C 6C 20 69 6E 74 65 72 6E 61 6C nit all internal
000040: 20 6E 6F 64 65 73 20 74 6F 20 73 65 6E 74 20 63 nodes to sent c
000050: 68 61 72 20 2A 29 0D 0A 20 20 20 20 20 20 68 5B har *).. h[
000060: 6E 65 77 6E 2B 66 72 65 71 5D 3A 3D 68 5B 6C 65 newn+freq]:=h[le
000070: 66 74 2B 66 72 65 71 5D 2B 68 5B 72 69 74 65 2B ft+freq]+h[rite+
000080: 66 72 65 71 5D 3B 0D 0A 0D 0A 20 20 20 20 20 20 freq];....
000090: 28 2A 20 6C 69 6E 6B 20 74 6F 20 6C 65 66 74 20 (* link to left
0000A0: 61 6E 64 20 72 69 67 68 74 20 73 75 62 74 72 65 and right subtre
0000B0: 65 73 20 28 6F 66 66 73 70 72 69 6E 67 29 20 2A es (offspring) *
0000C0: 29 0D 0A 20 20 20 20 20 20 68 5B 6E 65 77 6E 2B ).. h[newn+
0000D0: 6C 73 74 5D 3A 3D 6C 65 66 74 3B 0D 0A 20 20 20 lst]:=left;..
0000E0: 20 20 20 68 5B 6E 65 77 6E 2B 72 73 74 5D 3A 3D h[newn+rst]:=
0000F0: 72 69 74 65 3B 0D 0A 0D 0A 20 20 20 20 20 20 28 rite;.... (
000100: 2A 20 6C 69 6E 6B 20 6E 65 77 20 6E 6F 64 65 20 * link new node
000110: 69 6E 74 6F 20 74 68 65 20 66 6F 72 65 73 74 20 into the forest
000120: 69 6E 20 70 6C 61 63 65 20 6F 66 20 6F 6C 64 20 in place of old
000130: 6C 65 66 74 20 2A 29 0D 0A 20 20 20 20 20 20 28 left *).. (
000140: 2A 20 66 69 72 73 74 2C 20 6D 61 6B 65 20 6E 65 * first, make ne
000150: 77 20 6E 6F 64 65 20 74 6F 20 70 6F 69 6E 74 20 w node to point
000160: 74 6F 20 69 74 73 20 6E 65 69 67 68 62 6F 72 73 to its neighbors
000170: 20 69 6E 20 74 68 65 20 66 6F 72 65 73 74 20 2A in the forest *
000180: 29 0D 0A 20 20 20 20 20 20 68 5B 6E 65 77 6E 2B ).. h[newn+
000190: 6C 66 6F 72 73 74 20 5D 3A 3D 68 5B 6C 65 66 74 lforst ]:=h[left
0001A0: 2B 6C 66 6F 72 73 74 5D 3B 0D 0A 20 20 20 20 20 +lforst];..
0001B0: 20 68 5B 6E 65 77 6E 2B 72 66 6F 72 73 74 20 5D h[newn+rforst ]
0001C0: 3A 3D 68 5B 6C 65 66 74 2B 72 66 6F 72 73 74 5D :=h[left+rforst]
0001D0: 3B 0D 0A 0D 0A 20 20 20 20 20 20 28 2A 20 73 65 ;.... (* se
0001E0: 63 6F 6E 64 2C 20 6D 61 6B 65 20 6E 65 69 67 68 cond, make neigh
0001F0: 62 6F 72 73 20 70 6F 69 6E 74 20 74 6F 20 6E 65 bors point to ne
Size : 512 (Real : 512)
000000: 2E 0D 0A 20 20 20 20 20 20 2A 29 0D 0A 20 20 20 ... *)..
000010: 20 20 20 70 72 6F 63 65 64 75 72 65 20 74 72 61 procedure tra
000020: 76 69 6E 6F 72 64 28 70 20 3A 20 77 6F 72 64 20 vinord(p : word
000030: 20 3B 20 20 63 75 72 6C 65 76 20 3A 20 77 6F 72 ; curlev : wor
000040: 64 29 3B 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 d);....
000050: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
000060: 69 66 20 28 70 3C 3E 6E 69 6C 29 20 74 68 65 6E if (p<>nil) then
000070: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
000080: 20 20 20 20 69 66 20 28 63 75 72 6C 65 76 3E 6D if (curlev>m
000090: 61 78 6C 65 76 29 20 74 68 65 6E 20 6D 61 78 6C axlev) then maxl
0000A0: 65 76 3A 3D 63 75 72 6C 65 76 3B 0D 0A 20 20 20 ev:=curlev;..
0000B0: 20 20 20 20 20 20 20 20 20 74 72 61 76 69 6E 6F travino
0000C0: 72 64 28 68 5B 70 2B 6C 73 74 5D 2C 20 63 75 72 rd(h[p+lst], cur
0000D0: 6C 65 76 2B 31 29 3B 0D 0A 20 20 20 20 20 20 20 lev+1);..
0000E0: 20 20 20 20 20 68 5B 70 2B 6C 65 76 5D 3A 3D 63 h[p+lev]:=c
0000F0: 75 72 6C 65 76 3B 0D 0A 20 20 20 20 20 20 20 20 urlev;..
000100: 20 20 20 20 74 72 61 76 69 6E 6F 72 64 28 68 5B travinord(h[
000110: 70 2B 72 73 74 5D 2C 20 63 75 72 6C 65 76 2B 31 p+rst], curlev+1
000120: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 ).. e
000130: 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 nd.. end
000140: 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 74 ; (* procedure t
000150: 72 61 76 69 6E 6F 72 64 20 2A 29 0D 0A 0D 0A 0D ravinord *).....
000160: 0A 20 20 20 20 20 20 62 65 67 69 6E 20 20 28 2A . begin (*
000170: 20 70 72 6F 63 65 64 75 72 65 20 73 65 74 6C 65 procedure setle
000180: 76 20 2A 29 0D 0A 20 20 20 20 20 20 6D 61 78 6C v *).. maxl
000190: 65 76 3A 3D 30 3B 0D 0A 20 20 20 20 20 20 74 72 ev:=0;.. tr
0001A0: 61 76 69 6E 6F 72 64 28 6C 6D 6F 73 74 2C 20 30 avinord(lmost, 0
0001B0: 29 20 28 2A 20 72 6F 6F 74 20 69 73 20 6C 65 66 ) (* root is lef
0001C0: 74 6D 6F 73 74 20 6E 6F 64 65 20 2A 29 0D 0A 20 tmost node *)..
0001D0: 20 20 20 20 20 65 6E 64 3B 20 28 2A 20 70 72 6F end; (* pro
0001E0: 63 65 64 75 72 65 20 73 65 74 6C 65 76 20 2A 29 cedure setlev *)
0001F0: 0D 0A 0D 0A 0D 0A 20 20 20 28 2A 0D 0A 20 20 20 ...... (*..
Size : 512 (Real : 512)
000000: 6C 69 6E 6B 20 6E 65 77 20 6E 6F 64 65 20 69 6E link new node in
000010: 20 70 6C 61 63 65 20 6F 66 20 6C 65 66 74 20 6E place of left n
000020: 6F 64 65 20 66 72 6F 6D 20 6C 65 66 74 20 2A 29 ode from left *)
000030: 0D 0A 20 20 20 20 20 20 69 66 20 28 68 5B 6C 65 .. if (h[le
000040: 66 74 2B 6C 65 78 70 5D 3C 3E 6E 69 6C 29 20 74 ft+lexp]<>nil) t
000050: 68 65 6E 20 28 2A 20 6C 65 66 74 20 68 61 73 20 hen (* left has
000060: 61 20 6C 65 78 20 70 72 65 64 65 63 65 73 73 6F a lex predecesso
000070: 72 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 68 r *).. h
000080: 5B 68 5B 6C 65 66 74 2B 6C 65 78 70 5D 2B 6C 65 [h[left+lexp]+le
000090: 78 73 5D 3A 3D 6E 65 77 6E 3B 0D 0A 20 20 20 20 xs]:=newn;..
0000A0: 20 20 69 66 20 28 68 5B 72 69 74 65 2B 6C 65 78 if (h[rite+lex
0000B0: 73 5D 3C 3E 6E 69 6C 29 20 74 68 65 6E 20 28 2A s]<>nil) then (*
0000C0: 20 72 69 67 68 74 20 68 61 73 20 61 20 6C 65 78 right has a lex
0000D0: 20 73 75 63 63 65 73 73 6F 72 20 2A 29 0D 0A 20 successor *)..
0000E0: 20 20 20 20 20 20 20 20 68 5B 68 5B 72 69 74 65 h[h[rite
0000F0: 2B 6C 65 78 73 5D 2B 6C 65 78 70 5D 3A 3D 6E 65 +lexs]+lexp]:=ne
000100: 77 6E 3B 0D 0A 0D 0A 20 20 20 20 20 20 69 66 20 wn;.... if
000110: 28 6C 65 66 74 3D 6C 65 78 66 69 72 73 74 29 20 (left=lexfirst)
000120: 74 68 65 6E 20 28 2A 20 6E 65 77 20 6E 6F 64 65 then (* new node
000130: 20 62 65 63 6F 6D 65 73 20 6C 65 78 20 66 69 72 becomes lex fir
000140: 73 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 st *)..
000150: 6C 65 78 66 69 72 73 74 3A 3D 6E 65 77 6E 0D 0A lexfirst:=newn..
000160: 20 20 20 20 20 20 65 6E 64 3B 20 28 2A 20 70 72 end; (* pr
000170: 6F 63 65 64 75 72 65 20 63 6F 6D 62 69 6E 65 6C ocedure combinel
000180: 72 20 2A 29 0D 0A 0D 0A 0D 0A 20 20 20 62 65 67 r *)...... beg
000190: 69 6E 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 in (* procedure
0001A0: 62 75 69 6C 64 33 74 72 65 65 20 2A 29 0D 0A 20 build3tree *)..
0001B0: 20 20 73 65 74 6C 65 76 3B 20 28 2A 20 63 6F 6D setlev; (* com
0001C0: 70 75 74 65 20 6E 6F 64 65 20 6C 65 76 65 6C 73 pute node levels
0001D0: 20 2A 29 0D 0A 20 20 20 70 75 74 23 31 28 31 33 *).. put#1(13
0001E0: 2C 31 30 29 3B 0D 0A 20 20 20 70 75 74 23 31 28 ,10);.. put#1(
0001F0: 27 6D 61 78 6C 65 76 20 3D 27 2C 6D 61 78 6C 65 'maxlev =',maxle
Size : 512 (Real : 512)
000000: 70 69 63 6B 20 20 74 77 6F 20 20 74 72 65 65 73 pick two trees
000010: 20 66 72 6F 6D 20 74 68 65 20 66 6F 72 65 73 74 from the forest
000020: 20 77 68 69 63 68 20 73 61 74 69 73 66 79 20 74 which satisfy t
000030: 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 0D 0A 20 20 he following..
000040: 20 72 75 6C 65 73 3A 0D 0A 0D 0A 20 20 20 6C 65 rules:.... le
000050: 74 20 69 20 61 6E 64 20 6A 20 62 65 20 70 6F 69 t i and j be poi
000060: 6E 74 65 72 73 20 74 6F 20 74 68 65 20 6C 65 66 nters to the lef
000070: 74 20 61 6E 64 20 72 69 67 68 74 20 74 72 65 65 t and right tree
000080: 73 3A 0D 0A 0D 0A 20 20 20 69 27 29 20 20 20 74 s:.... i') t
000090: 68 65 20 20 74 72 65 65 73 20 20 69 20 20 61 6E he trees i an
0000A0: 64 20 20 6A 20 20 6D 75 73 74 20 62 65 20 61 64 d j must be ad
0000B0: 6A 61 63 65 6E 74 20 69 6E 20 74 68 65 20 77 6F jacent in the wo
0000C0: 72 6B 69 6E 67 0D 0A 20 20 20 20 20 20 20 20 20 rking..
0000D0: 73 65 71 75 65 6E 63 65 2E 0D 0A 0D 0A 20 20 20 sequence.....
0000E0: 69 69 27 29 20 20 74 68 65 20 20 6C 65 76 65 6C ii') the level
0000F0: 73 20 20 6F 66 20 20 74 72 65 65 73 20 20 69 20 s of trees i
000100: 20 61 6E 64 20 6A 20 6D 75 73 74 20 62 65 20 6D and j must be m
000110: 61 78 69 6D 61 6C 20 61 6D 6F 6E 67 0D 0A 20 20 aximal among..
000120: 20 20 20 20 20 20 20 61 6C 6C 20 72 65 6D 61 69 all remai
000130: 6E 69 6E 67 20 6C 65 76 65 6C 73 2E 0D 0A 0D 0A ning levels.....
000140: 20 20 20 69 69 69 27 29 20 74 68 65 20 20 69 6E iii') the in
000150: 64 65 78 20 20 69 20 20 69 73 20 20 6D 69 6E 69 dex i is mini
000160: 6D 61 6C 20 20 66 6F 72 20 61 6C 6C 20 69 20 61 mal for all i a
000170: 6E 64 20 6A 20 73 61 74 69 73 66 79 69 6E 67 0D nd j satisfying.
000180: 0A 20 20 20 20 20 20 20 20 20 72 75 6C 65 73 20 . rules
000190: 28 69 27 29 2C 20 28 69 69 27 29 2E 0D 0A 0D 0A (i'), (ii').....
0001A0: 20 20 20 61 20 70 6F 69 6E 74 65 72 20 74 6F 20 a pointer to
0001B0: 74 68 65 20 6C 65 66 74 20 6D 6F 73 74 20 63 68 the left most ch
0001C0: 6F 73 65 6E 20 77 69 6C 6C 20 62 65 20 6C 65 66 osen will be lef
0001D0: 74 20 69 6E 20 6C 65 66 74 2E 20 20 74 68 65 0D t in left. the.
0001E0: 0A 20 20 20 72 69 67 68 74 20 74 72 65 65 20 63 . right tree c
0001F0: 68 6F 73 65 6E 20 69 73 20 69 74 73 20 6C 65 78 hosen is its lex
Size : 512 (Real : 512)
000000: 76 23 2C 31 33 2C 31 30 29 3B 0D 0A 20 20 20 70 v#,13,10);.. p
000010: 69 63 6B 6C 65 76 3A 3D 6D 61 78 6C 65 76 3B 0D icklev:=maxlev;.
000020: 0A 20 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 . repeat..
000030: 20 20 70 69 63 6B 6C 72 3B 0D 0A 20 20 20 20 20 picklr;..
000040: 20 63 6F 6D 62 69 6E 65 6C 72 3B 0D 0A 20 20 20 combinelr;..
000050: 20 20 20 70 75 74 23 31 28 27 2E 27 29 20 20 20 put#1('.')
000060: 20 20 20 28 2A 20 73 68 6F 77 20 70 72 6F 67 72 (* show progr
000070: 65 73 73 20 6F 6E 20 73 63 72 65 65 6E 20 2E 20 ess on screen .
000080: 2E 20 2E 20 2A 29 0D 0A 20 20 20 75 6E 74 69 6C . . *).. until
000090: 20 28 70 69 63 6B 6C 65 76 3C 3D 31 29 20 28 2A (picklev<=1) (*
0000A0: 20 74 72 75 65 20 77 68 65 6E 20 61 6C 6C 20 6E true when all n
0000B0: 6F 64 65 73 20 68 61 76 65 20 62 65 65 6E 20 70 odes have been p
0000C0: 69 63 6B 65 64 20 2A 29 0D 0A 20 20 20 65 6E 64 icked *).. end
0000D0: 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 62 ; (* procedure b
0000E0: 75 69 6C 64 33 74 72 65 65 20 2A 29 0D 0A 0D 0A uild3tree *)....
0000F0: 0D 0A 28 2A 0D 0A 64 65 63 6F 64 65 20 20 61 20 ..(*..decode a
000100: 20 73 65 71 75 65 6E 63 65 20 6F 66 20 31 27 73 sequence of 1's
000110: 20 61 6E 20 30 27 73 20 72 65 61 64 20 66 72 6F an 0's read fro
000120: 6D 20 74 68 65 20 73 74 61 6E 64 61 72 64 20 69 m the standard i
000130: 6E 70 75 74 0D 0A 66 69 6C 65 20 69 6E 74 6F 20 nput..file into
000140: 61 20 73 65 71 75 65 6E 63 65 20 6F 66 20 63 68 a sequence of ch
000150: 61 72 61 63 74 65 72 73 20 77 72 69 74 74 65 6E aracters written
000160: 20 74 6F 20 73 74 61 6E 64 61 72 64 20 6F 75 74 to standard out
000170: 70 75 74 2E 0D 0A 74 68 69 73 20 69 73 20 64 6F put...this is do
000180: 6E 65 20 62 79 20 73 74 61 72 74 69 6E 67 20 61 ne by starting a
000190: 74 20 74 68 65 20 72 6F 6F 74 20 61 6E 64 20 74 t the root and t
0001A0: 61 6B 69 6E 67 20 61 20 6C 65 66 74 20 20 77 68 aking a left wh
0001B0: 65 6E 20 61 0D 0A 7A 65 72 6F 20 20 69 73 20 20 en a..zero is
0001C0: 72 65 61 64 2C 20 61 20 72 69 67 68 74 20 77 68 read, a right wh
0001D0: 65 6E 20 61 20 6F 6E 65 20 69 73 20 72 65 61 64 en a one is read
0001E0: 2E 20 20 74 68 69 73 20 69 73 20 63 6F 6E 74 69 . this is conti
0001F0: 6E 75 65 64 0D 0A 75 6E 69 74 6C 20 61 20 6C 65 nued..unitl a le
Size : 512 (Real : 512)
000000: 69 63 6F 67 72 61 70 68 69 63 20 73 75 63 63 65 icographic succe
000010: 73 73 6F 72 2E 0D 0A 20 20 20 2A 29 0D 0A 20 20 ssor... *)..
000020: 20 70 72 6F 63 65 64 75 72 65 20 70 69 63 6B 6C procedure pickl
000030: 72 3B 0D 0A 0D 0A 20 20 20 20 20 20 76 61 72 20 r;.... var
000040: 70 69 63 6B 65 64 20 20 3A 20 62 6F 6F 6C 65 61 picked : boolea
000050: 6E 3B 20 28 2A 20 74 72 75 65 20 69 66 20 6F 6E n; (* true if on
000060: 65 20 70 69 63 6B 65 64 20 6F 6E 20 74 68 69 73 e picked on this
000070: 20 6C 65 76 20 65 6C 20 2A 29 0D 0A 20 20 20 20 lev el *)..
000080: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 70 begin.. p
000090: 69 63 6B 65 64 3A 3D 66 61 6C 73 65 3B 0D 0A 20 icked:=false;..
0000A0: 20 20 20 20 20 77 68 69 6C 65 20 28 70 69 63 6B while (pick
0000B0: 65 64 3D 66 61 6C 73 65 29 20 64 6F 20 62 65 67 ed=false) do beg
0000C0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 6C 65 66 in.. lef
0000D0: 74 3A 3D 6C 65 78 66 69 72 73 74 3B 20 28 2A 20 t:=lexfirst; (*
0000E0: 73 74 61 72 74 20 77 69 74 68 20 66 69 72 73 74 start with first
0000F0: 20 6E 6F 64 65 20 69 6E 20 6C 65 78 69 63 6F 67 node in lexicog
000100: 72 61 70 68 69 63 20 6F 72 64 65 72 20 2A 29 0D raphic order *).
000110: 0A 20 20 20 20 20 20 20 20 20 77 68 69 6C 65 20 . while
000120: 28 6C 65 66 74 3C 3E 6E 69 6C 29 20 61 6E 64 20 (left<>nil) and
000130: 28 70 69 63 6B 65 64 3C 3E 74 72 75 65 29 20 64 (picked<>true) d
000140: 6F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 o.. i
000150: 66 20 28 68 5B 6C 65 66 74 2B 6C 65 76 5D 3D 70 f (h[left+lev]=p
000160: 69 63 6B 6C 65 76 29 0D 0A 20 20 20 20 20 20 20 icklev)..
000170: 20 20 20 20 20 20 20 20 20 74 68 65 6E 20 70 69 then pi
000180: 63 6B 65 64 3A 3D 74 72 75 65 0D 0A 20 20 20 20 cked:=true..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 else
0001A0: 20 6C 65 66 74 3A 3D 68 5B 6C 65 66 74 2B 6C 65 left:=h[left+le
0001B0: 78 73 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 69 xs];.. i
0001C0: 66 20 28 70 69 63 6B 65 64 3D 66 61 6C 73 65 29 f (picked=false)
0001D0: 20 74 68 65 6E 20 70 69 63 6B 6C 65 76 3A 3D 70 then picklev:=p
0001E0: 69 63 6B 6C 65 76 2D 31 0D 0A 20 20 20 20 20 20 icklev-1..
0001F0: 20 20 20 65 6E 64 20 28 2A 20 77 68 69 6C 65 20 end (* while
Size : 512 (Real : 512)
000000: 61 66 20 69 73 20 72 65 61 63 68 65 64 2C 20 77 af is reached, w
000010: 68 65 6E 20 74 68 65 20 63 68 61 72 61 63 74 65 hen the characte
000020: 72 20 69 6E 20 20 74 68 61 74 20 20 6C 65 61 66 r in that leaf
000030: 20 20 69 73 0D 0A 70 72 69 6E 74 65 64 2E 20 20 is..printed.
000040: 74 68 69 73 20 70 72 6F 63 65 73 73 20 69 73 20 this process is
000050: 72 65 70 65 61 74 65 64 20 75 6E 74 69 6C 20 65 repeated until e
000060: 6E 64 2D 6F 66 2D 66 69 6C 65 20 69 73 20 66 6F nd-of-file is fo
000070: 75 6E 64 2E 0D 0A 2A 29 0D 0A 70 72 6F 63 65 64 und...*)..proced
000080: 75 72 65 20 64 65 63 6F 64 65 3B 0D 0A 0D 0A 20 ure decode;....
000090: 20 20 76 61 72 20 65 6F 66 20 3A 20 62 6F 6F 6C var eof : bool
0000A0: 65 61 6E 3B 0D 0A 20 20 20 20 20 20 20 63 68 20 ean;.. ch
0000B0: 20 3A 20 77 6F 72 64 3B 20 20 20 28 2A 20 6C 61 : word; (* la
0000C0: 73 74 20 6F 6E 65 20 6F 72 20 7A 65 72 6F 20 72 st one or zero r
0000D0: 65 61 64 20 66 72 6F 6D 20 69 6E 70 75 74 20 2A ead from input *
0000E0: 29 0D 0A 20 20 20 20 20 20 20 70 20 20 20 3A 20 ).. p :
0000F0: 77 6F 72 64 3B 20 20 20 28 2A 20 70 6F 69 6E 74 word; (* point
000100: 65 72 20 75 73 65 64 20 74 6F 20 74 72 61 76 65 er used to trave
000110: 72 73 65 20 74 72 65 65 20 2A 29 0D 0A 0D 0A 0D rse tree *).....
000120: 0A 20 20 20 70 72 6F 63 65 64 75 72 65 20 67 65 . procedure ge
000130: 74 6F 7A 3B 0D 0A 0D 0A 20 20 20 20 20 20 62 65 toz;.... be
000140: 67 69 6E 0D 0A 20 20 20 20 20 20 67 65 74 23 30 gin.. get#0
000150: 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 77 68 69 (ch);.. whi
000160: 6C 65 20 28 63 68 3D 31 33 29 20 6F 72 20 28 63 le (ch=13) or (c
000170: 68 3D 31 30 29 20 6F 72 20 28 63 68 3D 27 20 27 h=10) or (ch=' '
000180: 29 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 67 ) do.. g
000190: 65 74 23 30 28 63 68 29 3B 0D 0A 20 20 20 20 20 et#0(ch);..
0001A0: 20 69 66 20 28 63 68 3D 32 36 29 20 74 68 65 6E if (ch=26) then
0001B0: 20 65 6F 66 3A 3D 74 72 75 65 0D 0A 20 20 20 20 eof:=true..
0001C0: 20 20 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 end; (* proced
0001D0: 75 72 65 20 67 65 74 6F 7A 20 2A 29 0D 0A 0D 0A ure getoz *)....
0001E0: 0D 0A 20 20 20 62 65 67 69 6E 20 28 2A 20 70 72 .. begin (* pr
0001F0: 6F 64 65 63 75 72 65 20 64 65 63 6F 64 65 20 2A odecure decode *
Size : 512 (Real : 512)
000000: 2A 29 0D 0A 20 20 20 20 20 20 65 6E 64 3B 20 28 *).. end; (
000010: 2A 20 70 72 6F 63 65 64 75 72 65 20 70 69 63 6B * procedure pick
000020: 6C 72 20 2A 29 0D 0A 0D 0A 0D 0A 20 20 20 28 2A lr *)...... (*
000030: 0D 0A 20 20 20 63 6F 6D 62 69 6E 65 20 20 74 68 .. combine th
000040: 65 20 20 74 72 65 65 20 20 70 6F 69 6E 74 65 64 e tree pointed
000050: 20 74 6F 20 62 79 20 6C 65 66 74 20 61 6E 64 20 to by left and
000060: 69 74 73 20 6C 65 78 69 63 6F 67 72 61 70 68 69 its lexicographi
000070: 63 0D 0A 20 20 20 73 75 63 63 65 73 73 6F 72 20 c.. successor
000080: 74 6F 20 66 6F 72 6D 20 61 20 6E 65 77 20 69 6E to form a new in
000090: 74 65 72 6E 61 6C 20 6E 6F 64 65 20 20 69 6E 20 ternal node in
0000A0: 20 74 68 65 20 20 66 69 6E 61 6C 20 20 74 72 65 the final tre
0000B0: 65 2E 0D 0A 20 20 20 6C 69 6E 6B 20 20 74 68 69 e... link thi
0000C0: 73 20 6E 65 77 20 6E 6F 64 65 20 69 6E 74 6F 20 s new node into
0000D0: 74 68 65 20 65 78 69 73 74 69 6E 67 20 6C 65 78 the existing lex
0000E0: 69 63 6F 67 72 61 70 68 69 63 20 73 65 71 75 65 icographic seque
0000F0: 6E 63 65 0D 0A 20 20 20 69 6E 20 70 6C 61 63 65 nce.. in place
000100: 20 6F 66 20 74 68 65 20 6C 65 66 74 20 74 72 65 of the left tre
000110: 65 20 61 6E 64 20 69 74 73 20 73 75 63 63 65 73 e and its succes
000120: 73 6F 72 2E 20 20 74 68 65 20 70 6F 69 6E 74 65 sor. the pointe
000130: 72 20 74 6F 0D 0A 20 20 20 74 68 65 20 66 69 72 r to.. the fir
000140: 73 74 20 6E 6F 64 65 20 69 6E 20 74 68 65 20 73 st node in the s
000150: 65 71 75 65 6E 63 65 20 28 6C 65 78 66 69 72 73 equence (lexfirs
000160: 74 29 2C 20 69 73 20 75 70 64 61 74 65 64 20 69 t), is updated i
000170: 6E 20 74 68 65 0D 0A 20 20 20 70 72 6F 63 65 73 n the.. proces
000180: 73 2E 0D 0A 20 20 20 2A 29 0D 0A 20 20 20 70 72 s... *).. pr
000190: 6F 63 65 64 75 72 65 20 63 6F 6D 62 69 6E 65 6C ocedure combinel
0001A0: 72 3B 0D 0A 0D 0A 20 20 20 20 20 20 76 61 72 20 r;.... var
0001B0: 6E 65 77 6E 20 3A 20 77 6F 72 64 3B 20 28 2A 20 newn : word; (*
0001C0: 70 6F 69 6E 74 65 72 20 74 6F 20 6E 65 77 20 6E pointer to new n
0001D0: 6F 64 65 20 63 72 65 61 74 65 64 20 2A 29 0D 0A ode created *)..
0001E0: 20 20 20 20 20 20 20 20 20 20 72 69 74 65 20 3A rite :
0001F0: 20 77 6F 72 64 3B 20 28 2A 20 70 6F 69 6E 74 65 word; (* pointe
Size : 512 (Real : 512)
000000: 29 0D 0A 20 20 20 70 75 74 23 31 28 31 33 2C 31 ).. put#1(13,1
000010: 30 29 3B 0D 0A 20 20 20 70 75 74 23 31 28 27 64 0);.. put#1('d
000020: 65 63 6F 64 65 64 20 27 2C 20 27 6D 65 73 73 61 ecoded ', 'messa
000030: 67 65 20 20 27 2C 31 33 2C 31 30 29 3B 0D 0A 20 ge ',13,10);..
000040: 20 20 65 6F 66 3A 3D 66 61 6C 73 65 3B 0D 0A 20 eof:=false;..
000050: 20 20 67 65 74 6F 7A 3B 0D 0A 20 20 20 77 68 69 getoz;.. whi
000060: 6C 65 20 28 65 6F 66 3D 66 61 6C 73 65 29 20 64 le (eof=false) d
000070: 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 70 o begin.. p
000080: 3A 3D 6C 65 78 66 69 72 73 74 3B 20 20 20 20 20 :=lexfirst;
000090: 20 28 2A 20 73 74 61 72 74 20 61 74 20 72 6F 6F (* start at roo
0000A0: 74 20 6F 66 20 70 68 61 73 65 20 33 20 74 72 65 t of phase 3 tre
0000B0: 65 20 2A 29 0D 0A 20 20 20 20 20 20 77 68 69 6C e *).. whil
0000C0: 65 20 28 68 5B 70 2B 63 68 61 72 5D 3D 73 65 6E e (h[p+char]=sen
0000D0: 74 29 20 64 6F 20 62 65 67 69 6E 20 28 2A 20 77 t) do begin (* w
0000E0: 68 69 6C 65 20 61 74 20 69 6E 74 65 72 6E 61 6C hile at internal
0000F0: 20 6E 6F 64 65 20 2A 29 0D 0A 20 20 20 20 20 20 node *)..
000100: 20 20 20 69 66 20 28 63 68 3D 27 30 27 29 0D 0A if (ch='0')..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6E then
000120: 20 70 3A 3D 68 5B 70 2B 6C 73 74 5D 20 20 28 2A p:=h[p+lst] (*
000130: 20 6C 65 66 74 20 20 74 75 72 6E 20 2A 29 0D 0A left turn *)..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 else
000150: 20 70 3A 3D 68 5B 70 2B 72 73 74 5D 3B 20 28 2A p:=h[p+rst]; (*
000160: 20 72 69 67 68 74 20 74 75 72 6E 20 2A 29 0D 0A right turn *)..
000170: 20 20 20 20 20 20 20 20 20 67 65 74 6F 7A 0D 0A getoz..
000180: 20 20 20 20 20 20 20 20 20 65 6E 64 3B 20 28 2A end; (*
000190: 20 77 68 69 6C 65 20 61 74 20 69 6E 74 65 72 6E while at intern
0001A0: 61 6C 20 6E 6F 64 65 20 2A 29 0D 0A 20 20 20 20 al node *)..
0001B0: 20 20 70 75 74 23 31 28 68 5B 70 2B 63 68 61 72 put#1(h[p+char
0001C0: 5D 29 0D 0A 20 20 20 20 20 20 65 6E 64 20 28 2A ]).. end (*
0001D0: 20 77 68 69 6C 65 20 6E 6F 74 20 65 6F 66 20 2A while not eof *
0001E0: 29 0D 0A 20 20 20 65 6E 64 3B 20 28 2A 20 70 72 ).. end; (* pr
0001F0: 6F 63 65 64 75 72 65 20 64 65 63 6F 64 65 20 2A ocedure decode *
Size : 512 (Real : 512)
000000: 72 20 74 6F 20 72 69 67 68 74 20 6E 6F 64 65 20 r to right node
000010: 62 65 69 6E 67 20 63 6F 6D 62 69 6E 65 64 20 2A being combined *
000020: 29 0D 0A 0D 0A 20 20 20 20 20 20 62 65 67 69 6E ).... begin
000030: 0D 0A 20 20 20 20 20 20 6E 65 77 28 76 61 72 20 .. new(var
000040: 6E 65 77 6E 29 3B 0D 0A 20 20 20 20 20 20 72 69 newn);.. ri
000050: 74 65 3A 3D 68 5B 6C 65 66 74 2B 6C 65 78 73 5D te:=h[left+lexs]
000060: 3B 20 28 2A 20 72 69 67 68 74 20 6E 6F 64 65 20 ; (* right node
000070: 69 73 20 61 6C 6C 77 61 79 73 20 6E 65 78 74 20 is allways next
000080: 69 6E 20 6C 65 78 20 6F 72 64 65 72 20 2A 29 0D in lex order *).
000090: 0A 20 20 20 20 20 20 68 5B 6E 65 77 6E 2B 63 68 . h[newn+ch
0000A0: 61 72 5D 3A 3D 73 65 6E 74 3B 20 28 2A 20 69 6E ar]:=sent; (* in
0000B0: 69 74 20 61 6C 6C 20 69 6E 74 65 72 6E 61 6C 20 it all internal
0000C0: 6E 6F 64 65 73 20 74 6F 20 73 65 6E 74 20 63 68 nodes to sent ch
0000D0: 61 72 20 2A 29 0D 0A 0D 0A 20 20 20 20 20 20 28 ar *).... (
0000E0: 2A 20 6C 69 6E 6B 20 6C 65 66 74 20 61 6E 64 20 * link left and
0000F0: 72 69 67 68 74 20 73 75 62 74 72 65 65 73 20 74 right subtrees t
000100: 6F 20 6E 65 77 20 6E 6F 64 65 20 2A 29 0D 0A 20 o new node *)..
000110: 20 20 20 20 20 68 5B 6E 65 77 6E 2B 6C 73 74 5D h[newn+lst]
000120: 3A 3D 6C 65 66 74 3B 0D 0A 20 20 20 20 20 20 68 :=left;.. h
000130: 5B 6E 65 77 6E 2B 72 73 74 5D 3A 3D 72 69 74 65 [newn+rst]:=rite
000140: 3B 0D 0A 0D 0A 20 20 20 20 20 20 28 2A 20 6C 65 ;.... (* le
000150: 76 65 6C 20 6F 66 20 6E 65 77 20 6E 6F 64 65 20 vel of new node
000160: 69 73 20 6F 6E 65 20 6C 65 73 73 20 74 68 61 6E is one less than
000170: 20 6C 65 76 65 6C 20 6F 66 20 69 74 73 20 6F 66 level of its of
000180: 66 73 70 72 69 6E 67 20 2A 29 0D 0A 20 20 20 20 fspring *)..
000190: 20 20 68 5B 6E 65 77 6E 2B 6C 65 76 5D 3A 3D 68 h[newn+lev]:=h
0001A0: 5B 6C 65 66 74 2B 6C 65 76 5D 2D 31 3B 0D 0A 20 [left+lev]-1;..
0001B0: 20 20 20 20 20 68 5B 6E 65 77 6E 2B 6C 65 78 73 h[newn+lexs
0001C0: 5D 3A 3D 68 5B 72 69 74 65 2B 6C 65 78 73 5D 3B ]:=h[rite+lexs];
0001D0: 0D 0A 20 20 20 20 20 20 68 5B 6E 65 77 6E 2B 6C .. h[newn+l
0001E0: 65 78 70 5D 3A 3D 68 5B 6C 65 66 74 2B 6C 65 78 exp]:=h[left+lex
0001F0: 70 5D 3B 0D 0A 0D 0A 20 20 20 20 20 20 28 2A 20 p];.... (*
Size : 512 (Real : 512)
000000: 29 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 6D 61 )....begin (* ma
000010: 69 6E 20 6C 69 6E 65 20 2A 29 0D 0A 20 20 20 68 in line *).. h
000020: 70 3A 3D 30 3B 20 28 2A 20 69 6E 69 74 69 61 6C p:=0; (* initial
000030: 69 7A 65 20 68 65 61 70 20 70 6F 69 6E 74 65 72 ize heap pointer
000040: 20 2A 29 0D 0A 20 20 20 72 65 61 64 74 72 65 65 *).. readtree
000050: 3B 0D 0A 20 20 20 6C 65 78 66 69 72 73 74 3A 3D ;.. lexfirst:=
000060: 6C 6D 6F 73 74 3B 20 28 2A 20 66 69 72 73 74 20 lmost; (* first
000070: 6E 6F 64 65 20 69 6E 20 6C 65 78 20 6F 72 64 65 node in lex orde
000080: 72 20 69 73 20 6C 65 66 74 6D 6F 73 74 20 2A 29 r is leftmost *)
000090: 0D 0A 20 20 20 62 75 69 6C 64 31 74 72 65 65 3B .. build1tree;
0000A0: 0D 0A 20 20 20 62 75 69 6C 64 33 74 72 65 65 3B .. build3tree;
0000B0: 0D 0A 20 20 20 64 65 63 6F 64 65 0D 0A 65 6E 64 .. decode..end
0000C0: 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 20 20 20 69 66 20 28 63 68 3D 27 30 27 29 0D 0A if (ch='0')..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6E then
000120: 20 70 3A 3D 68 5B 70 2B 6C 73 74 5D 20 20 28 2A p:=h[p+lst] (*
000130: 20 6C 65 66 74 20 20 74 75 72 6E 20 2A 29 0D 0A left turn *)..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 else
000150: 20 70 3A 3D 68 5B 70 2B 72 73 74 5D 3B 20 28 2A p:=h[p+rst]; (*
000160: 20 72 69 67 68 74 20 74 75 72 6E 20 2A 29 0D 0A right turn *)..
000170: 20 20 20 20 20 20 20 20 20 67 65 74 6F 7A 0D 0A getoz..
000180: 20 20 20 20 20 20 20 20 20 65 6E 64 3B 20 28 2A end; (*
000190: 20 77 68 69 6C 65 20 61 74 20 69 6E 74 65 72 6E while at intern
0001A0: 61 6C 20 6E 6F 64 65 20 2A 29 0D 0A 20 20 20 20 al node *)..
0001B0: 20 20 70 75 74 23 31 28 68 5B 70 2B 63 68 61 72 put#1(h[p+char
0001C0: 5D 29 0D 0A 20 20 20 20 20 20 65 6E 64 20 28 2A ]).. end (*
0001D0: 20 77 68 69 6C 65 20 6E 6F 74 20 65 6F 66 20 2A while not eof *
0001E0: 29 0D 0A 20 20 20 65 6E 64 3B 20 28 2A 20 70 72 ).. end; (* pr
0001F0: 6F 63 65 64 75 72 65 20 64 65 63 6F 64 65 20 2A ocedure decode *
Size : 512 (Real : 512)
000000: 2D 7C 20 20 7C 0D 0A 09 7C 09 09 09 09 09 09 20 -| |...|......
000010: 20 20 20 20 7C 0D 0A 09 7C 09 09 09 09 09 09 20 |...|......
000020: 20 20 20 20 7C 0D 0A 09 7C 2D 2D 3E 20 20 27 20 |...|--> '
000030: 20 2D 2D 3E 20 63 68 61 72 61 63 74 65 72 20 2D --> character -
000040: 2D 3E 20 20 27 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D -> ' ---------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C 0D 0A -------------|..
000060: 0D 0A 0D 0A 73 69 6D 70 6C 65 20 74 79 70 65 0D ....simple type.
000070: 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .---------------
000080: 2D 3E 20 74 79 70 65 20 69 64 65 6E 74 69 66 69 -> type identifi
000090: 65 72 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D er -------------
0000A0: 2D 2D 2D 3E 0D 0A 09 7C 09 09 09 09 20 20 20 20 --->...|....
0000B0: 20 20 20 5E 0D 0A 09 7C 2D 2D 3E 20 20 28 20 20 ^...|--> (
0000C0: 2D 2D 2D 2D 3E 20 69 64 65 6E 74 69 66 69 65 72 ----> identifier
0000D0: 20 2D 2D 2D 2D 2D 3E 20 20 29 20 20 2D 2D 7C 0D -----> ) --|.
0000E0: 0A 09 7C 09 20 20 20 5E 09 09 20 20 20 20 7C 09 ..|. ^.. |.
0000F0: 20 20 20 20 20 20 20 7C 0D 0A 09 7C 09 20 20 20 |...|.
000100: 7C 2D 2D 2D 2D 2D 2D 20 20 2C 20 20 3C 2D 2D 2D |------ , <---
000110: 2D 7C 09 20 20 20 20 20 20 20 7C 0D 0A 09 7C 09 -|. |...|.
000120: 09 09 09 20 20 20 20 20 20 20 7C 0D 0A 09 7C 2D ... |...|-
000130: 2D 3E 20 63 6F 6E 73 74 61 6E 74 20 2D 2D 3E 20 -> constant -->
000140: 20 2E 2E 20 20 2D 2D 3E 20 63 6F 6E 73 74 61 6E .. --> constan
000150: 74 20 2D 2D 2D 7C 0D 0A 0D 0A 0D 0A 74 79 70 65 t ---|......type
000160: 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..--------------
000170: 2D 2D 3E 20 73 69 6D 70 6C 65 20 74 79 70 65 20 --> simple type
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 3E 0D 0A 09 7C 09 09 09 09 09 09 5E 0D 0A 09 7C >...|......^...|
0001B0: 2D 2D 3E 20 41 52 52 41 59 20 2D 2D 3E 20 20 5B --> ARRAY --> [
0001C0: 20 20 2D 2D 3E 20 73 69 6D 70 6C 65 20 74 79 70 --> simple typ
0001D0: 65 20 2D 2D 3E 20 20 5D 20 2D 2D 7C 20 20 20 7C e --> ] --| |
0001E0: 0D 0A 09 09 09 09 09 09 20 20 20 20 7C 20 20 20 ........ |
0001F0: 7C 0D 0A 09 20 20 20 7C 2D 2D 2D 2D 2D 2D 2D 2D |... |--------
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 7C 20 20 20 7C 0D 0A 09 20 20 20 7C 09 09 09 09 | |... |....
000030: 09 09 7C 0D 0A 09 20 20 20 7C 2D 2D 3E 20 4F 46 ..|... |--> OF
000040: 20 2D 2D 3E 20 73 69 6D 70 6C 65 20 74 79 70 65 --> simple type
000050: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000060: 2D 2D 2D 2D 2D 2D 7C 0D 0A 0D 0A 0D 0A 76 61 72 ------|......var
000070: 69 61 62 6C 65 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D iable..---------
000080: 2D 2D 2D 3E 20 76 61 72 69 61 62 6C 65 20 69 64 ---> variable id
000090: 65 6E 74 69 66 69 65 72 20 2D 2D 2D 2D 2D 2D 2D entifier -------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 3E 0D 0A 09 09 09 09 20 20 20 20 ----->......
0000C0: 7C 09 20 20 7C 0D 0A 09 7C 2D 2D 2D 2D 2D 2D 2D |. |...|-------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 2D 2D 2D 2D 7C 09 20 20 7C 0D 0A 09 7C 09 09 09 ----|. |...|...
0000F0: 09 20 20 7C 0D 0A 09 7C 2D 2D 3E 20 20 5B 20 20 . |...|--> [
000100: 2D 2D 3E 20 65 78 70 72 65 73 73 69 6F 6E 20 2D --> expression -
000110: 2D 3E 20 20 5D 20 20 2D 2D 7C 0D 0A 0D 0A 0D 0A -> ] --|......
000120: 66 61 63 74 6F 72 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D factor..--------
000130: 2D 2D 2D 2D 3E 20 20 27 20 20 2D 2D 2D 2D 2D 3E ----> ' ----->
000140: 20 63 68 61 72 61 63 74 65 72 20 2D 2D 2D 2D 2D character -----
000150: 3E 20 20 27 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D > ' ----------
000160: 2D 2D 2D 2D 2D 2D 3E 0D 0A 09 7C 09 20 20 20 20 ------>...|.
000170: 5E 09 09 20 20 20 20 20 7C 09 09 09 7C 0D 0A 09 ^.. |...|...
000180: 7C 09 20 20 20 20 7C 2D 2D 2D 2D 2D 2D 2D 2D 2D |. |---------
000190: 2D 2D 2D 2D 2D 2D 2D 7C 09 09 09 7C 0D 0A 09 7C -------|...|...|
0001A0: 09 09 09 09 09 09 7C 0D 0A 09 7C 2D 2D 3E 20 76 ......|...|--> v
0001B0: 61 72 69 61 62 6C 65 20 2D 2D 2D 2D 2D 2D 2D 2D ariable --------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 7C 0D 0A 09 7C 09 --------->|...|.
0001E0: 09 09 09 09 09 7C 0D 0A 09 7C 2D 2D 3E 20 66 75 .....|...|--> fu
0001F0: 6E 63 74 69 6F 6E 20 69 64 65 6E 74 69 66 69 65 nction identifie
Size : 512 (Real : 512)
000000: 41 20 20 36 32 32 0D 0A 42 20 20 31 33 32 0D 0A A 622..B 132..
000010: 43 20 20 33 31 31 0D 0A 44 20 20 32 39 37 0D 0A C 311..D 297..
000020: 45 20 20 31 30 35 33 0D 0A 46 20 20 31 36 38 0D E 1053..F 168.
000030: 0A 47 20 20 31 36 35 0D 0A 48 20 20 33 36 33 0D .G 165..H 363.
000040: 0A 49 20 20 36 31 34 0D 0A 4A 20 20 20 20 36 0D .I 614..J 6.
000050: 0A 4B 20 20 20 33 31 0D 0A 4C 20 20 33 30 37 0D .K 31..L 307.
000060: 0A 4D 20 20 32 34 38 0D 0A 4E 20 20 35 37 33 0D .M 248..N 573.
000070: 0A 4F 20 20 36 30 36 0D 0A 50 20 20 31 38 39 0D .O 606..P 189.
000080: 0A 51 20 20 20 31 30 0D 0A 52 20 20 35 38 37 0D .Q 10..R 587.
000090: 0A 53 20 20 35 38 31 0D 0A 54 20 20 37 36 38 0D .S 581..T 768.
0000A0: 0A 55 20 20 32 32 37 0D 0A 56 20 20 20 37 30 0D .U 227..V 70.
0000B0: 0A 57 20 20 31 31 33 0D 0A 58 20 20 20 32 35 0D .W 113..X 25.
0000C0: 0A 59 20 20 31 30 37 0D 0A 5A 20 20 20 20 36 0D .Y 107..Z 6.
0000D0: 0A 20 20 31 38 32 31 0D 0A 24 0D 0A 30 30 30 30 . 1821..$..0000
0000E0: 31 31 31 31 30 30 31 31 31 31 30 31 30 30 31 30 1111001111010010
0000F0: 31 30 30 30 31 30 31 30 31 31 30 30 30 31 31 31 1000101011000111
000100: 31 30 31 30 30 30 31 31 30 31 30 30 30 30 30 31 1010001101000001
000110: 31 30 31 31 31 31 30 31 31 31 0D 0A 30 31 30 30 1011110111..0100
000120: 30 30 31 30 30 30 31 31 30 31 31 31 30 31 31 31 0010001101110111
000130: 30 31 31 30 30 30 30 31 31 30 31 30 30 31 31 30 0110000110100110
000140: 31 31 30 30 31 30 30 30 31 30 30 30 31 31 31 31 1100100010001111
000150: 31 0D 0A 31 30 30 30 31 31 30 31 31 30 30 30 30 1..1000110110000
000160: 31 31 30 31 30 31 31 31 31 31 30 30 30 31 30 30 1101011111000100
000170: 31 30 30 31 31 31 31 0D 0A 31 30 31 31 30 31 31 1001111..1011011
000180: 30 30 31 30 30 31 30 30 30 30 31 31 30 31 31 31 0010010000110111
000190: 31 31 31 31 30 31 31 31 31 30 31 31 31 30 30 30 1111011110111000
0001A0: 31 30 30 31 30 31 30 31 30 30 30 31 31 30 31 31 1001010100011011
0001B0: 30 31 30 31 31 31 31 31 31 0D 0A 30 30 30 31 31 010111111..00011
0001C0: 31 30 30 30 30 31 30 30 30 31 0D 0A 1A 1A 1A 1A 1000010001......
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 72 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D r --------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 3E 7C 0D 0A 09 7C 09 09 -------->|...|..
000020: 09 20 20 20 7C 09 09 09 7C 0D 0A 09 7C 20 20 7C . |...|...| |
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 7C 09 09 09 7C 0D 0A 09 7C -------|...|...|
000050: 20 20 7C 09 09 09 09 09 09 7C 0D 0A 09 7C 20 20 |......|...|
000060: 7C 2D 2D 3E 20 20 28 20 20 2D 2D 2D 2D 2D 3E 20 |--> ( ----->
000070: 65 78 70 72 65 73 73 69 6F 6E 20 2D 2D 2D 2D 2D expression -----
000080: 3E 20 20 29 20 20 2D 2D 2D 2D 2D 2D 3E 7C 0D 0A > ) ------>|..
000090: 09 7C 09 20 20 20 20 20 20 5E 09 09 09 7C 09 09 .|. ^...|..
0000A0: 7C 0D 0A 09 7C 09 20 20 20 20 20 20 7C 2D 2D 2D |...|. |---
0000B0: 2D 2D 20 20 2C 20 20 3C 2D 2D 2D 2D 2D 2D 7C 09 -- , <------|.
0000C0: 09 7C 0D 0A 09 7C 09 09 09 09 09 09 7C 0D 0A 09 .|...|......|...
0000D0: 7C 2D 2D 3E 20 20 28 20 20 2D 2D 3E 20 65 78 70 |--> ( --> exp
0000E0: 72 65 73 73 69 6F 6E 20 2D 2D 3E 20 20 29 20 20 ression --> )
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E --------------->
000100: 7C 0D 0A 09 7C 09 09 09 09 09 09 7C 0D 0A 09 7C |...|......|...|
000110: 2D 2D 3E 20 63 6F 6E 73 74 61 6E 74 20 2D 2D 2D --> constant ---
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C ---------------|
000140: 0D 0A 0D 0A 0D 0A 74 65 72 6D 0D 0A 2D 2D 2D 2D ......term..----
000150: 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 66 61 63 74 6F 72 --------> factor
000160: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 3E 0D 0A 09 5E 09 09 09 20 7C 0D 0A 09 7C 2D ->...^... |...|-
000190: 2D 20 66 61 63 74 6F 72 20 3C 2D 2D 2D 2D 2D 20 - factor <-----
0001A0: 20 2A 20 20 3C 2D 2D 7C 0D 0A 09 09 20 20 20 20 * <--|....
0001B0: 20 20 5E 09 09 20 7C 0D 0A 09 09 20 20 20 20 20 ^.. |....
0001C0: 20 7C 2D 2D 20 20 2F 20 20 3C 2D 2D 7C 0D 0A 09 |-- / <--|...
0001D0: 09 20 20 20 20 20 20 7C 2D 2D 20 41 4E 44 20 3C . |-- AND <
0001E0: 2D 2D 7C 0D 0A 0D 0A 73 69 6D 70 6C 65 20 65 78 --|....simple ex
0001F0: 70 72 65 73 73 69 6F 6E 0D 0A 2D 2D 2D 2D 2D 2D pression..------
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 3E 20 20 2B 20 20 2D 2D 2D 2D 2D -----> + -----
000010: 2D 2D 3E 20 74 65 72 6D 20 2D 2D 2D 2D 2D 2D 2D --> term -------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 0D 0A 09 7C 09 20 --------->...|.
000040: 20 20 5E 20 5E 09 09 09 20 20 20 20 7C 0D 0A 09 ^ ^... |...
000050: 7C 2D 2D 3E 20 20 2D 20 20 2D 2D 7C 20 7C 2D 2D |--> - --| |--
000060: 20 74 65 72 6D 20 3C 2D 2D 2D 2D 2D 20 20 2B 20 term <----- +
000070: 20 3C 2D 2D 7C 0D 0A 09 09 09 09 20 5E 09 20 20 <--|...... ^.
000080: 20 20 7C 0D 0A 09 09 09 09 20 7C 2D 2D 20 20 2D |...... |-- -
000090: 20 20 3C 2D 2D 7C 0D 0A 09 09 09 09 20 7C 2D 2D <--|...... |--
0000A0: 20 20 4F 52 20 3C 2D 2D 7C 0D 0A 0D 0A 0D 0A 65 OR <--|......e
0000B0: 78 70 72 65 73 73 69 6F 6E 0D 0A 2D 2D 2D 2D 2D xpression..-----
0000C0: 2D 2D 2D 2D 2D 2D 3E 20 73 69 6D 70 6C 65 20 65 ------> simple e
0000D0: 78 70 72 65 73 73 69 6F 6E 20 2D 2D 2D 2D 2D 2D xpression ------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 3E 0D 0A 09 09 09 09 7C 09 09 09 09 20 20 20 20 >......|....
000110: 5E 0D 0A 09 09 09 09 7C 2D 2D 3E 20 20 3D 20 20 ^......|--> =
000120: 2D 2D 2D 2D 2D 3E 20 73 69 6D 70 6C 65 20 65 78 -----> simple ex
000130: 70 72 65 73 73 69 6F 6E 20 2D 2D 7C 0D 0A 09 09 pression --|....
000140: 09 09 7C 09 20 20 20 5E 0D 0A 09 09 09 09 7C 2D ..|. ^......|-
000150: 2D 3E 20 20 3C 20 20 2D 2D 7C 0D 0A 09 09 09 09 -> < --|......
000160: 7C 2D 2D 3E 20 20 3E 20 20 2D 2D 7C 0D 0A 09 09 |--> > --|....
000170: 09 09 7C 2D 2D 3E 20 20 3C 3E 20 2D 2D 7C 0D 0A ..|--> <> --|..
000180: 09 09 09 09 7C 2D 2D 3E 20 20 3C 3D 20 2D 2D 7C ....|--> <= --|
000190: 0D 0A 09 09 09 09 7C 2D 2D 3E 20 20 3E 3D 20 2D ......|--> >= -
0001A0: 2D 7C 0D 0A 0D 0A 0D 0A 70 61 72 61 6D 65 74 65 -|......paramete
0001B0: 72 20 6C 69 73 74 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D r list..--------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 20 20 20 50 41 53 59 4E PASYN
000020: 54 41 58 2E 44 4F 43 0D 0A 0D 0A 0D 0A 55 50 50 TAX.DOC......UPP
000030: 45 52 20 43 41 53 45 20 6D 65 61 6E 73 20 74 68 ER CASE means th
000040: 61 74 20 74 68 69 73 20 72 65 73 65 72 76 65 64 at this reserved
000050: 20 77 6F 72 64 20 6D 75 73 74 20 61 70 70 65 61 word must appea
000060: 72 20 6C 69 74 65 72 61 6C 79 2E 0D 0A 0D 0A 0D r literaly......
000070: 0A 0D 0A 69 64 65 6E 74 69 66 69 65 72 0D 0A 2D ...identifier..-
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 6C 65 74 -----------> let
000090: 74 65 72 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ter ------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 0D 0A 09 ------------>...
0000B0: 09 09 5E 09 20 20 20 20 20 20 7C 0D 0A 09 09 09 ..^. |.....
0000C0: 7C 2D 2D 20 6C 65 74 74 65 72 20 3C 2D 2D 7C 0D |-- letter <--|.
0000D0: 0A 09 09 09 7C 2D 2D 20 64 69 67 69 74 20 20 3C ....|-- digit <
0000E0: 2D 2D 7C 0D 0A 0D 0A 0D 0A 6E 75 6D 62 65 72 0D --|......number.
0000F0: 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 64 .------------> d
000100: 69 67 69 74 20 2D 2D 2D 2D 2D 2D 2D 2D 3E 0D 0A igit -------->..
000110: 09 5E 09 20 20 20 20 20 20 20 20 7C 0D 0A 09 7C .^. |...|
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C ---------------|
000130: 0D 0A 0D 0A 0D 0A 63 6F 6E 73 74 61 6E 74 0D 0A ......constant..
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 6E 75 6D -----------> num
000150: 62 65 72 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ber ------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 2D 3E 0D 0A 09 7C 09 09 09 09 09 09 20 20 20 -->...|......
000190: 20 20 5E 0D 0A 09 7C 2D 2D 3E 20 63 6F 6E 73 74 ^...|--> const
0001A0: 61 6E 74 20 69 64 65 6E 74 69 66 69 65 72 20 2D ant identifier -
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C 0D 0A 09 7C -----------|...|
0001D0: 09 09 09 20 20 20 5E 09 09 09 20 20 7C 20 20 7C ... ^... | |
0001E0: 0D 0A 09 7C 09 09 09 20 20 20 7C 2D 2D 20 63 6F ...|... |-- co
0001F0: 6E 73 74 61 6E 74 20 3C 2D 2D 20 20 2B 20 20 2D nstant <-- + -
Size : 512 (Real : 512)
000000: 2D 2D 3E 0D 0A 20 7C 09 09 09 09 09 09 09 09 20 -->.. |........
000010: 20 7C 0D 0A 20 7C 2D 2D 3E 20 28 20 2D 2D 2D 2D |.. |--> ( ----
000020: 2D 3E 20 69 64 65 6E 74 69 66 69 65 72 20 2D 2D -> identifier --
000030: 2D 2D 2D 3E 20 3A 20 2D 2D 3E 20 74 79 70 65 20 ---> : --> type
000040: 69 64 65 6E 74 69 66 69 65 72 20 2D 2D 2D 2D 2D identifier -----
000050: 3E 20 29 20 2D 2D 7C 0D 0A 09 20 5E 20 5E 09 09 > ) --|... ^ ^..
000060: 20 20 20 20 7C 09 09 09 09 20 7C 0D 0A 09 20 7C |.... |... |
000070: 20 7C 2D 2D 2D 2D 2D 20 20 2C 20 20 3C 2D 2D 2D |----- , <---
000080: 2D 2D 7C 09 09 09 09 20 7C 0D 0A 09 20 7C 09 09 --|.... |... |..
000090: 09 09 09 09 20 7C 0D 0A 09 20 7C 2D 2D 2D 2D 2D .... |... |-----
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 20 20 3B 20 20 3C 2D 2D 2D 2D 2D 2D 2D 2D -- ; <--------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C 0D 0A 0D 0A 0D ----------|.....
0000D0: 0A 0D 0A 73 74 61 74 65 6D 65 6E 74 0D 0A 2D 2D ...statement..--
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000120: 2D 2D 2D 3E 0D 0A 20 7C 09 09 09 09 09 09 09 09 --->.. |........
000130: 20 20 5E 0D 0A 20 7C 2D 2D 2D 2D 2D 3E 20 76 61 ^.. |-----> va
000140: 72 69 61 62 6C 65 20 2D 2D 2D 2D 2D 2D 2D 2D 2D riable ---------
000150: 2D 2D 2D 2D 2D 2D 2D 3E 20 20 3A 3D 20 20 2D 2D -------> := --
000160: 3E 20 65 78 70 72 65 73 73 69 6F 6E 20 2D 2D 2D > expression ---
000170: 2D 2D 2D 2D 2D 2D 3E 7C 0D 0A 20 7C 20 20 7C 09 ------>|.. | |.
000180: 09 09 20 20 20 20 20 20 20 5E 09 09 09 09 20 20 .. ^....
000190: 7C 0D 0A 20 7C 20 20 7C 2D 2D 3E 20 66 75 6E 63 |.. | |--> func
0001A0: 74 69 6F 6E 20 69 64 65 6E 74 69 66 69 65 72 20 tion identifier
0001B0: 2D 2D 7C 09 09 09 09 20 20 7C 0D 0A 20 7C 09 09 --|.... |.. |..
0001C0: 09 09 09 09 09 09 20 20 7C 0D 0A 20 7C 2D 2D 3E ...... |.. |-->
0001D0: 20 70 72 6F 63 65 64 75 72 65 20 69 64 65 6E 74 procedure ident
0001E0: 69 66 69 65 72 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ifier ----------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 43 4F 4E 53 54 20 2D 2D 2D 2D 2D 3E 20 69 64 65 CONST -----> ide
000010: 6E 74 69 66 69 65 72 20 2D 2D 3E 20 20 3D 20 20 ntifier --> =
000020: 2D 2D 3E 20 63 6F 6E 73 74 61 6E 74 20 2D 2D 7C --> constant --|
000030: 0D 0A 09 7C 09 20 20 20 20 20 5E 09 09 09 09 09 ...|. ^.....
000040: 20 20 20 20 7C 0D 0A 09 7C 09 20 20 20 20 20 7C |...|. |
000050: 09 09 09 09 09 20 20 20 20 7C 0D 0A 09 7C 3C 2D ..... |...|<-
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000080: 2D 2D 2D 2D 20 20 3B 20 20 3C 2D 2D 2D 2D 2D 2D ---- ; <------
000090: 2D 7C 0D 0A 09 7C 0D 0A 09 7C 2D 2D 3E 20 54 59 -|...|...|--> TY
0000A0: 50 45 20 2D 2D 2D 2D 2D 2D 3E 20 69 64 65 6E 74 PE ------> ident
0000B0: 69 66 69 65 72 20 2D 2D 3E 20 20 3D 20 20 2D 2D ifier --> = --
0000C0: 3E 20 74 79 70 65 20 2D 2D 2D 2D 2D 2D 7C 0D 0A > type ------|..
0000D0: 09 7C 09 20 20 20 20 20 5E 09 09 09 09 09 20 20 .|. ^.....
0000E0: 20 20 7C 0D 0A 09 7C 09 20 20 20 20 20 7C 09 09 |...|. |..
0000F0: 09 09 09 20 20 20 20 7C 0D 0A 09 7C 3C 2D 2D 2D ... |...|<---
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000120: 2D 2D 20 20 3B 20 20 3C 2D 2D 2D 2D 2D 2D 2D 7C -- ; <-------|
000130: 0D 0A 09 7C 0D 0A 09 7C 2D 2D 3E 20 56 41 52 20 ...|...|--> VAR
000140: 2D 2D 2D 2D 2D 2D 2D 3E 20 69 64 65 6E 74 69 66 -------> identif
000150: 69 65 72 20 2D 2D 2D 2D 2D 3E 20 20 3A 20 20 2D ier -----> : -
000160: 2D 3E 20 74 79 70 65 20 69 64 65 6E 74 69 66 69 -> type identifi
000170: 65 72 20 2D 2D 2D 7C 0D 0A 09 7C 09 20 20 20 20 er ---|...|.
000180: 20 5E 09 09 20 20 20 20 20 20 20 7C 09 09 20 20 ^.. |..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 7C 0D 0A |..
0001A0: 09 7C 09 20 20 20 20 20 7C 3C 2D 2D 2D 2D 2D 20 .|. |<-----
0001B0: 20 2C 20 20 2D 2D 2D 2D 2D 2D 7C 09 09 20 20 20 , ------|..
0001C0: 20 09 20 20 20 20 20 20 20 7C 0D 0A 09 7C 09 20 . |...|.
0001D0: 20 20 20 20 5E 09 09 09 09 09 20 20 20 20 09 20 ^..... .
0001E0: 20 20 20 20 20 20 7C 0D 0A 09 7C 3C 2D 2D 2D 2D |...|<----
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 7C 0D 0A ------------>|..
000010: 20 7C 09 09 09 20 20 20 20 20 7C 09 09 09 09 09 |... |.....
000020: 20 20 7C 0D 0A 20 7C 20 20 7C 3C 2D 2D 2D 2D 2D |.. | |<-----
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 7C 09 09 09 09 09 20 20 7C 0D 0A 20 7C 20 --|..... |.. |
000050: 20 7C 09 09 09 09 09 09 09 09 20 20 7C 0D 0A 20 |........ |..
000060: 7C 20 20 7C 2D 2D 3E 20 20 28 20 20 2D 2D 2D 2D | |--> ( ----
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 -------------->
000080: 65 78 70 72 65 73 73 69 6F 6E 20 2D 2D 2D 2D 2D expression -----
000090: 3E 20 20 29 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D > ) ----------
0000A0: 3E 7C 0D 0A 20 7C 09 20 20 20 20 20 20 20 7C 09 >|.. |. |.
0000B0: 20 20 5E 20 5E 09 09 20 20 20 20 20 20 7C 09 09 ^ ^.. |..
0000C0: 09 20 20 7C 0D 0A 20 7C 09 20 20 20 20 20 20 20 . |.. |.
0000D0: 7C 2D 2D 3E 20 56 41 52 20 2D 2D 7C 20 7C 2D 2D |--> VAR --| |--
0000E0: 2D 2D 2D 2D 20 20 2C 20 20 3C 2D 2D 2D 2D 2D 7C ---- , <-----|
0000F0: 09 09 09 20 20 7C 0D 0A 20 7C 09 09 09 09 09 09 ... |.. |......
000100: 09 09 20 20 7C 0D 0A 20 7C 2D 2D 3E 20 42 45 47 .. |.. |--> BEG
000110: 49 4E 20 2D 2D 2D 2D 2D 3E 20 73 74 61 74 65 6D IN -----> statem
000120: 65 6E 74 20 2D 2D 2D 2D 2D 3E 20 45 4E 44 20 2D ent -----> END -
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 3E 7C 0D 0A 20 7C 09 20 -------->|.. |.
000150: 20 20 20 20 20 5E 09 09 20 20 20 20 20 20 20 7C ^.. |
000160: 09 09 09 09 20 20 7C 0D 0A 20 7C 09 20 20 20 20 .... |.. |.
000170: 20 20 7C 2D 2D 2D 2D 2D 20 20 3B 20 20 3C 2D 2D |----- ; <--
000180: 2D 2D 2D 7C 09 09 09 09 20 20 7C 0D 0A 20 7C 09 ---|.... |.. |.
000190: 09 09 09 09 09 09 09 20 20 7C 0D 0A 20 7C 2D 2D ....... |.. |--
0001A0: 3E 20 49 46 20 2D 2D 3E 20 65 78 70 72 65 73 73 > IF --> express
0001B0: 69 6F 6E 20 2D 2D 3E 20 54 48 45 4E 20 2D 2D 3E ion --> THEN -->
0001C0: 20 73 74 61 74 65 6D 65 6E 74 20 2D 2D 2D 2D 2D statement -----
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 7C 0D ------------->|.
0001E0: 0A 20 7C 09 09 09 09 09 20 20 20 20 20 20 20 20 . |.....
0001F0: 20 7C 09 09 20 20 7C 0D 0A 20 7C 09 09 09 09 20 |.. |.. |....
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C 0D 0A 09 7C 0D 0A ---------|...|..
000030: 09 7C 3C 2D 2D 2D 2D 2D 20 20 3B 20 20 3C 2D 2D .|<----- ; <--
000040: 2D 2D 2D 20 62 6C 6F 63 6B 20 3C 2D 2D 2D 2D 2D --- block <-----
000050: 20 20 3B 20 20 3C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ; <----------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C 0D 0A 09 7C 09 ----------|...|.
000070: 09 09 09 09 09 09 20 7C 0D 0A 09 7C 2D 2D 2D 2D ...... |...|----
000080: 2D 3E 20 70 72 6F 63 65 64 75 72 65 20 2D 2D 2D -> procedure ---
000090: 2D 2D 3E 20 69 64 65 6E 74 69 66 69 65 72 20 2D --> identifier -
0000A0: 2D 3E 20 70 61 72 61 6D 65 74 65 72 20 6C 69 73 -> parameter lis
0000B0: 74 20 2D 2D 7C 0D 0A 09 7C 20 20 7C 09 09 20 20 t --|...| |..
0000C0: 20 20 5E 0D 0A 09 7C 20 20 7C 2D 2D 3E 20 66 75 ^...| |--> fu
0000D0: 6E 63 74 69 6F 6E 20 2D 2D 2D 7C 0D 0A 09 7C 0D nction ---|...|.
0000E0: 0A 09 7C 2D 2D 3E 20 62 65 67 69 6E 20 2D 2D 2D ..|--> begin ---
0000F0: 2D 2D 3E 20 73 74 61 74 65 6D 65 6E 74 20 2D 2D --> statement --
000100: 2D 2D 2D 3E 20 65 6E 64 20 2D 2D 2D 2D 2D 2D 2D ---> end -------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 0D 0A ------------->..
000120: 09 09 20 20 20 20 20 5E 09 09 20 20 20 20 20 20 .. ^..
000130: 7C 0D 0A 09 09 20 20 20 20 20 7C 2D 2D 2D 2D 2D |.... |-----
000140: 20 20 3B 20 20 3C 2D 2D 2D 2D 2D 7C 0D 0A 0D 0A ; <-----|....
000150: 0D 0A 70 72 6F 67 72 61 6D 0D 0A 2D 2D 2D 2D 2D ..program..-----
000160: 2D 2D 2D 2D 2D 2D 2D 3E 20 62 6C 6F 63 6B 20 2D -------> block -
000170: 2D 3E 20 20 2E 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D -> . ---------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E --------------->
0001A0: 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 ......** END OF
0001B0: 46 49 4C 45 20 2A 2A 0D 0A 1A 69 74 65 72 61 6C FILE **...iteral
0001C0: 79 2E 0D 0A 0D 0A 0D 0A 0D 0A 69 64 65 6E 74 69 y.........identi
0001D0: 66 69 65 72 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D fier..----------
0001E0: 2D 2D 3E 20 6C 65 74 74 65 72 20 2D 2D 2D 2D 2D --> letter -----
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 7C 3C 2D 2D 2D 2D 2D 2D 2D 2D |<--------
000010: 7C 09 09 20 20 7C 0D 0A 20 7C 09 09 09 09 20 20 |.. |.. |....
000020: 20 20 20 20 20 7C 09 09 09 20 20 7C 0D 0A 20 7C |... |.. |
000030: 09 09 09 09 20 20 20 20 20 20 20 7C 2D 2D 3E 20 .... |-->
000040: 45 4C 53 45 20 2D 2D 3E 20 73 74 61 74 65 6D 65 ELSE --> stateme
000050: 6E 74 20 2D 2D 3E 7C 0D 0A 20 7C 09 09 09 09 09 nt -->|.. |.....
000060: 09 09 09 20 20 7C 0D 0A 20 7C 2D 2D 3E 20 43 41 ... |.. |--> CA
000070: 53 45 20 2D 2D 3E 20 65 78 70 72 65 73 73 69 6F SE --> expressio
000080: 6E 20 2D 2D 3E 20 4F 46 20 2D 2D 2D 2D 2D 2D 2D n --> OF -------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 3E 20 45 4E 44 20 2D 2D 3E 7C 0D 0A 20 7C 09 -> END -->|.. |.
0000B0: 09 09 09 20 20 20 7C 09 09 20 20 20 20 20 20 5E ... |.. ^
0000C0: 09 09 20 20 7C 0D 0A 20 7C 20 20 7C 3C 2D 2D 2D .. |.. | |<---
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7C 09 09 20 20 20 ----------|..
0000F0: 20 20 20 7C 09 09 20 20 7C 0D 0A 20 7C 20 20 7C |.. |.. | |
000100: 09 09 09 09 09 20 20 09 20 20 20 20 20 20 7C 09 ..... . |.
000110: 09 20 20 7C 0D 0A 20 7C 20 20 7C 2D 2D 2D 2D 2D . |.. | |-----
000120: 3E 20 63 6F 6E 73 74 61 6E 74 20 2D 2D 3E 20 3A > constant --> :
000130: 20 2D 2D 3E 20 73 74 61 74 65 6D 65 6E 74 20 2D --> statement -
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 7C 09 09 20 ----------->|..
000150: 20 7C 0D 0A 20 7C 20 20 20 20 20 5E 09 09 09 09 |.. | ^....
000160: 20 20 20 7C 20 7C 09 20 20 20 20 20 20 7C 09 09 | |. |..
000170: 20 20 7C 0D 0A 20 7C 20 20 20 20 20 7C 2D 2D 2D |.. | |---
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 3B 20 ------------ ;
000190: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
0001A0: 7C 20 7C 20 20 20 20 20 20 20 20 7C 09 09 20 20 | | |..
0001B0: 7C 0D 0A 20 7C 09 09 09 09 09 20 20 20 20 20 7C |.. |..... |
0001C0: 20 20 20 20 20 20 20 20 7C 09 09 20 20 7C 0D 0A |.. |..
0001D0: 20 7C 09 09 7C 3C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..|<----------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 7C 20 20 20 20 20 20 20 20 7C 09 09 20 20 7C -| |.. |
Size : 512 (Real : 512)
000000: 70 70 63 20 20 24 31 2E 70 61 73 20 74 65 6D 70 ppc $1.pas temp
000010: 66 69 6C 65 2E 70 63 6F 0D 0A 70 66 65 74 20 74 file.pco..pfet t
000020: 65 6D 70 66 69 6C 65 2E 70 63 6F 20 74 65 6D 70 empfile.pco temp
000030: 66 69 6C 65 2E 6F 62 6A 0D 0A 70 69 70 20 20 24 file.obj..pip $
000040: 31 2E 63 6F 6D 3D 72 74 70 2E 63 6F 6D 2C 74 65 1.com=rtp.com,te
000050: 6D 70 66 69 6C 65 2E 6F 62 6A 5B 6F 76 5D 0D 0A mpfile.obj[ov]..
000060: 65 72 61 20 20 74 65 6D 70 66 69 6C 65 2E 70 63 era tempfile.pc
000070: 6F 0D 0A 65 72 61 20 20 74 65 6D 70 66 69 6C 65 o..era tempfile
000080: 2E 6F 62 6A 0D 0A 1A 20 20 20 24 24 24 FF 00 FF .obj... $$$...
000090: 66 69 6C 65 2E 70 63 6F 0D 0A 70 66 65 74 20 74 file.pco..pfet t
0000A0: 65 6D 70 66 69 6C 65 2E 70 63 6F 20 74 65 6D 70 empfile.pco temp
0000B0: 66 69 6C 65 2E 6F 62 6A 0D 0A 70 69 70 20 20 24 file.obj..pip $
0000C0: 31 2E 63 6F 6D 3D 72 74 70 2E 63 6F 6D 2C 74 65 1.com=rtp.com,te
0000D0: 6D 70 66 69 6C 65 2E 6F 62 6A 5B 6F 76 5D 0D 0A mpfile.obj[ov]..
0000E0: 65 72 61 20 20 74 65 6D 70 66 69 6C 65 2E 70 63 era tempfile.pc
0000F0: 6F 0D 0A 65 72 61 20 20 74 65 6D 70 66 69 6C 65 o..era tempfile
000100: 2D 2D 2D 3E 20 65 6E 64 20 2D 2D 2D 2D 2D 2D 2D ---> end -------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 0D 0A ------------->..
000120: 09 09 20 20 20 20 20 5E 09 09 20 20 20 20 20 20 .. ^..
000130: 7C 0D 0A 09 09 20 20 20 20 20 7C 2D 2D 2D 2D 2D |.... |-----
000140: 20 20 3B 20 20 3C 2D 2D 2D 2D 2D 7C 0D 0A 0D 0A ; <-----|....
000150: 0D 0A 70 72 6F 67 72 61 6D 0D 0A 2D 2D 2D 2D 2D ..program..-----
000160: 2D 2D 2D 2D 2D 2D 2D 3E 20 62 6C 6F 63 6B 20 2D -------> block -
000170: 2D 3E 20 20 2E 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D -> . ---------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E --------------->
0001A0: 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 ......** END OF
0001B0: 46 49 4C 45 20 2A 2A 0D 0A 1A 69 74 65 72 61 6C FILE **...iteral
0001C0: 79 2E 0D 0A 0D 0A 0D 0A 0D 0A 69 64 65 6E 74 69 y.........identi
0001D0: 66 69 65 72 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D fier..----------
0001E0: 2D 2D 3E 20 6C 65 74 74 65 72 20 2D 2D 2D 2D 2D --> letter -----
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 0D 0A 20 7C 09 09 7C 09 09 09 09 20 20 20 20 20 .. |..|....
000010: 20 7C 09 09 20 20 7C 0D 0A 20 7C 09 09 7C 2D 2D |.. |.. |..|--
000020: 3E 20 45 4C 53 45 20 2D 2D 3E 20 73 74 61 74 65 > ELSE --> state
000030: 6D 65 6E 74 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ment -----------
000040: 2D 2D 3E 7C 09 09 20 20 7C 0D 0A 20 7C 09 09 09 -->|.. |.. |...
000050: 09 09 09 09 09 20 20 7C 0D 0A 20 7C 2D 2D 3E 20 ..... |.. |-->
000060: 57 48 49 4C 45 20 2D 2D 3E 20 65 78 70 72 65 73 WHILE --> expres
000070: 73 69 6F 6E 20 2D 2D 3E 20 44 4F 20 2D 2D 3E 20 sion --> DO -->
000080: 73 74 61 74 65 6D 65 6E 74 20 2D 2D 2D 2D 2D 2D statement ------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 7C 0D 0A 20 ----------->|..
0000A0: 7C 09 09 09 09 09 09 09 09 20 20 7C 0D 0A 20 7C |........ |.. |
0000B0: 2D 2D 3E 20 52 45 50 45 41 54 20 2D 2D 2D 2D 2D --> REPEAT -----
0000C0: 3E 20 73 74 61 74 65 6D 65 6E 74 20 2D 2D 2D 2D > statement ----
0000D0: 2D 3E 20 55 4E 54 49 4C 20 2D 2D 3E 20 65 78 70 -> UNTIL --> exp
0000E0: 72 65 73 73 69 6F 6E 20 2D 2D 2D 2D 2D 2D 2D 3E ression ------->
0000F0: 7C 0D 0A 20 7C 09 20 20 20 20 20 20 20 5E 09 09 |.. |. ^..
000100: 7C 09 09 09 09 20 20 7C 0D 0A 20 7C 09 20 20 20 |.... |.. |.
000110: 20 20 20 20 7C 2D 2D 2D 2D 2D 20 20 3B 20 20 3C |----- ; <
000120: 2D 2D 2D 2D 2D 7C 09 09 09 09 20 20 7C 0D 0A 20 -----|.... |..
000130: 7C 09 09 09 09 09 09 09 09 20 20 7C 0D 0A 20 7C |........ |.. |
000140: 2D 2D 3E 20 47 45 54 20 2D 2D 3E 20 20 23 20 20 --> GET --> #
000150: 2D 2D 3E 20 63 6F 6E 73 74 61 6E 74 20 2D 2D 3E --> constant -->
000160: 20 20 28 20 20 2D 2D 3E 20 76 61 72 69 61 62 6C ( --> variabl
000170: 65 20 2D 2D 3E 20 20 29 20 20 2D 2D 2D 2D 2D 3E e --> ) ----->
000180: 7C 0D 0A 20 7C 09 09 09 09 09 09 09 09 20 20 7C |.. |........ |
000190: 0D 0A 20 7C 2D 2D 3E 20 50 55 54 20 2D 2D 3E 20 .. |--> PUT -->
0001A0: 20 23 20 20 2D 2D 3E 20 63 6F 6E 73 74 61 6E 74 # --> constant
0001B0: 20 2D 2D 3E 20 20 28 20 20 2D 2D 7C 09 09 09 20 --> ( --|...
0001C0: 20 7C 0D 0A 20 7C 09 09 09 09 09 20 7C 09 09 09 |.. |..... |...
0001D0: 20 20 7C 0D 0A 20 7C 09 09 20 20 20 7C 3C 2D 2D |.. |.. |<--
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 7C 09 09 09 20 20 7C 0D 0A 20 7C 09 09 20 --|... |.. |..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 7C 09 09 09 09 09 09 20 20 7C 0D 0A 20 7C |...... |.. |
000010: 09 09 20 20 20 7C 2D 2D 2D 2D 2D 3E 20 65 78 70 .. |-----> exp
000020: 72 65 73 73 69 6F 6E 20 2D 2D 2D 2D 2D 2D 2D 2D ression --------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 20 29 20 -----------> )
000040: 20 2D 2D 3E 7C 0D 0A 20 7C 09 09 20 20 20 20 20 -->|.. |..
000050: 20 5E 09 09 09 7C 09 20 20 20 5E 20 20 7C 09 09 ^...|. ^ |..
000060: 20 20 7C 0D 0A 20 7C 09 09 20 20 20 20 20 20 7C |.. |.. |
000070: 09 09 09 7C 2D 2D 3E 20 20 23 20 20 2D 2D 7C 20 ...|--> # --|
000080: 20 7C 09 09 20 20 7C 0D 0A 20 7C 09 09 20 20 20 |.. |.. |..
000090: 20 20 20 7C 09 09 09 09 20 20 20 20 20 20 7C 09 |.... |.
0000A0: 09 20 20 7C 0D 0A 20 7C 09 09 20 20 20 20 20 20 . |.. |..
0000B0: 7C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 2C 20 20 |---------- ,
0000C0: 3C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D <---------------
0000D0: 7C 09 09 20 20 7C 0D 0A 20 7C 09 09 09 09 09 09 |.. |.. |......
0000E0: 09 09 20 20 7C 0D 0A 20 7C 2D 2D 3E 20 46 4F 52 .. |.. |--> FOR
0000F0: 20 2D 2D 3E 20 76 61 72 69 61 62 6C 65 20 69 64 --> variable id
000100: 65 6E 74 69 66 69 65 72 20 2D 2D 3E 20 20 3A 3D entifier --> :=
000110: 20 20 2D 2D 3E 20 65 78 70 72 65 73 73 69 6F 6E --> expression
000120: 20 2D 2D 7C 09 20 20 7C 0D 0A 09 09 09 09 09 09 --|. |........
000130: 09 20 20 20 20 7C 09 20 20 7C 0D 0A 09 20 7C 3C . |. |... |<
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 7C 09 20 20 7C 0D 0A 09 20 7C 09 09 09 09 09 -|. |... |.....
000180: 09 09 20 20 7C 0D 0A 09 20 7C 2D 2D 2D 2D 2D 3E .. |... |----->
000190: 20 44 4F 57 4E 54 4F 20 2D 2D 2D 2D 2D 3E 20 65 DOWNTO -----> e
0001A0: 78 70 72 65 73 73 69 6F 6E 20 2D 2D 3E 20 44 4F xpression --> DO
0001B0: 20 2D 2D 3E 20 73 74 61 74 65 6D 65 6E 74 20 2D --> statement -
0001C0: 2D 3E 7C 0D 0A 09 20 20 20 20 7C 09 09 20 20 5E ->|... |.. ^
0001D0: 0D 0A 09 20 20 20 20 7C 2D 2D 2D 2D 3E 20 54 4F ... |----> TO
0001E0: 20 2D 2D 2D 2D 7C 0D 0A 0D 0A 0D 0A 62 6C 6F 63 ----|......bloc
0001F0: 6B 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 k..----------->
Size : 512 (Real : 512)
000000: C3 5A 01 C3 F3 01 C3 FF 01 C3 A3 02 C3 AE 02 C3 .Z..............
000010: 0F 01 C3 D3 02 C3 15 01 C3 18 01 C3 1B 01 C3 1E ................
000020: 01 C3 DC 02 C3 F4 02 C3 2D 03 C3 3A 03 C3 4D 03 ........-..:..M.
000030: C3 5C 03 C3 7A 03 C3 86 03 C3 9C 03 C3 3C 01 C3 .\..z........<..
000040: 3F 01 C3 B3 03 C3 C1 03 C3 D4 03 00 00 52 54 50 ?............RTP
000050: 20 52 45 56 20 30 30 2E 38 52 2A 06 00 2E 00 F9 REV 00.8R*.....
000060: 22 4B 01 CD 6C 01 CD B2 01 C3 00 06 3A 5D 00 06 "K..l.......:]..
000070: FF FE 20 CA 7C 01 FE 3F CA 7C 01 04 78 32 27 04 .. .|..?.|..x2'.
000080: 21 DE 03 11 5C 00 CD A7 01 3A 6D 00 06 FF FE 20 !...\....:m....
000090: CA 99 01 FE 3F CA 99 01 04 78 32 28 04 21 01 04 ....?....x2(.!..
0000A0: 11 6C 00 CD A7 01 C9 06 0C 1A 77 13 23 05 C2 A9 .l........w.#...
0000B0: 01 C9 3A 27 04 B7 C2 CF 01 AF 32 FE 03 11 DE 03 ..:'......2.....
0000C0: 0E 0F CD 05 00 3C CA 17 03 21 AF 04 22 2B 04 3A .....<...!.."+.:
0000D0: 28 04 B7 C0 11 01 04 0E 13 CD 05 00 11 01 04 0E (...............
0000E0: 16 CD 05 00 3C CA 17 03 AF 32 21 04 21 AF 04 22 ....<....2!.!.."
0000F0: 2D 04 C9 2A 4B 01 5E 23 56 EB 3D C2 F6 01 C9 E1 -..*K.^#V.=.....
000100: D1 E3 7A AC F2 0C 02 7A 17 3E FF C9 7A 94 C0 7B ..z....z.>..z..{
000110: 95 C9 3A 27 04 B7 C2 24 02 3A 2A 04 B7 C2 24 02 ..:'...$.:*...$.
000120: CD 2A 02 C9 0E 01 CD 05 00 C9 2A 2B 04 7D FE AF .*........*+.}..
000130: C2 52 02 11 2F 04 0E 1A CD 05 00 0E 14 11 DE 03 .R../...........
000140: CD 05 00 B7 C2 17 03 11 80 00 0E 1A CD 05 00 21 ...............!
000150: 2F 04 7E 23 22 2B 04 C9 4F 3A 28 04 B7 C2 6C 02 /.~#"+..O:(...l.
000160: 3A 29 04 B7 C2 6C 02 79 CD 73 02 C9 59 0E 02 CD :)...l.y.s..Y...
000170: 05 00 C9 F5 2A 2D 04 7D FE 2F C2 9C 02 11 AF 04 ....*-.}./......
000180: 0E 1A CD 05 00 11 01 04 0E 15 CD 05 00 B7 C2 17 ................
000190: 03 11 80 00 0E 1A CD 05 00 21 AF 04 F1 77 23 22 .........!...w#"
0001A0: 2D 04 C9 32 2A 04 CD 12 02 6F 26 00 E3 E9 32 29 -..2*....o&...2)
0001B0: 04 E1 E3 7D CD 58 02 C9 01 F6 FF 11 FF FF 09 13 ...}.X..........
0001C0: DA BE 02 3E 0A 85 F5 EB 7C B5 C4 BB 02 F1 C6 30 ...>....|......0
0001D0: C3 58 02 32 29 04 E1 E3 CD B8 02 C9 32 29 04 16 .X.2).......2)..
0001E0: 04 E1 E3 D5 E5 7D CD 58 02 E1 7C CD 58 02 D1 15 .....}.X..|.X...
0001F0: C2 E1 02 C9 3A 28 04 B7 C2 00 00 3E 1A CD 73 02 ....:(.....>..s.
Size : 512 (Real : 512)
000000: E5 2A AC 71 E5 21 00 01 E5 CD 39 01 11 C6 06 3E .*.q.!....9....>
000010: 01 CD 45 01 21 08 00 39 F9 C3 48 01 2A B8 71 E5 ..E.!..9..H.*.q.
000020: E1 E5 E5 21 00 00 E5 CD 06 01 C2 4D 0B 21 C6 00 ...!.......M.!..
000030: E5 21 FF 00 E5 21 3F 00 E5 21 9F 00 E5 11 C6 06 .!...!?..!......
000040: 3E 01 CD 45 01 21 08 00 39 F9 C3 8C 0C E1 E5 E5 >..E.!..9.......
000050: 21 01 00 E5 CD 06 01 C2 76 0B 21 C6 00 E5 21 FF !.......v.!...!.
000060: 00 E5 21 9F 00 E5 11 75 06 3E 01 CD 45 01 21 06 ..!....u.>..E.!.
000070: 00 39 F9 C3 8C 0C E1 E5 E5 21 02 00 E5 CD 06 01 .9.......!......
000080: C2 E0 0B 21 3E 00 E5 21 00 00 E5 11 34 06 3E 01 ...!>..!....4.>.
000090: CD 45 01 33 33 33 33 21 DA 00 E5 2A AE 71 E5 21 .E.3333!...*.q.!
0000A0: 07 00 E5 D1 E1 19 E5 11 5B 07 3E 01 CD 45 01 33 ........[.>..E.3
0000B0: 33 33 33 21 CA 00 E5 2A AE 71 E5 21 04 00 E5 D1 333!...*.q.!....
0000C0: E1 19 E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 21 ....[.>..E.3333!
0000D0: 3D 00 E5 11 03 06 3E 01 CD 45 01 33 33 C3 8C 0C =.....>..E.33...
0000E0: E1 E5 E5 21 03 00 E5 CD 06 01 C2 4A 0C 21 3E 00 ...!.......J.!>.
0000F0: E5 21 00 00 E5 11 34 06 3E 01 CD 45 01 33 33 33 .!....4.>..E.333
000100: 33 21 CA 00 E5 2A AE 71 E5 21 06 00 E5 D1 E1 19 3!...*.q.!......
000110: E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 21 D2 00 ..[.>..E.3333!..
000120: E5 2A AE 71 E5 21 04 00 E5 D1 E1 19 E5 11 5B 07 .*.q.!........[.
000130: 3E 01 CD 45 01 33 33 33 33 21 3D 00 E5 11 03 06 >..E.3333!=.....
000140: 3E 01 CD 45 01 33 33 C3 8C 0C E1 E5 E5 21 04 00 >..E.33......!..
000150: E5 CD 06 01 C2 68 0C 21 9F 00 E5 11 03 06 3E 01 .....h.!......>.
000160: CD 45 01 33 33 C3 8C 0C E1 E5 E5 21 05 00 E5 CD .E.33......!....
000170: 06 01 C2 8C 0C 21 3F 00 E5 21 9F 00 E5 11 34 06 .....!?..!....4.
000180: 3E 01 CD 45 01 33 33 33 33 C3 8C 0C 33 33 C3 48 >..E.3333...33.H
000190: 01 2A A8 71 E5 E1 E5 E5 21 03 00 E5 CD 06 01 C2 .*.q....!.......
0001A0: C7 0C 21 21 00 E5 2A AC 71 E5 11 5B 07 3E 01 CD ..!!..*.q..[.>..
0001B0: 45 01 33 33 33 33 21 E5 00 E5 11 03 06 3E 01 CD E.3333!......>..
0001C0: 45 01 33 33 C3 63 19 E1 E5 E5 21 04 00 E5 CD 06 E.33.c....!.....
0001D0: 01 C2 70 0F 2A AC 71 E5 E1 E5 E5 21 00 00 E5 CD ..p.*.q....!....
0001E0: 06 01 C2 FC 0C 21 C3 00 E5 21 48 01 E5 11 5B 07 .....!...!H...[.
0001F0: 3E 01 CD 45 01 33 33 33 33 C3 6B 0F E1 E5 E5 21 >..E.3333.k....!
Size : 512 (Real : 512)
000000: 3A 2D 04 FE B0 C2 FB 02 11 01 04 0E 10 CD 05 00 :-..............
000010: 3C CA 17 03 C3 00 00 11 22 03 0E 09 CD 05 00 C3 <.......".......
000020: 00 00 64 69 73 6B 20 65 72 72 6F 72 24 E1 3E 04 ..disk error$.>.
000030: 56 23 5E 23 D5 3D C2 30 03 E9 01 07 00 09 C1 3E V#^#.=.0.......>
000040: 04 56 2B 5E 2B D5 3D C2 41 03 60 69 E9 C1 3E 04 .V+^+.=.A.`i..>.
000050: D1 73 23 72 23 3D C2 50 03 60 69 E9 21 12 00 39 .s#r#=.P.`i.!..9
000060: E5 11 F8 FF 19 EB 19 EB 0E 08 1A BE C2 75 03 23 .............u.#
000070: 13 0D C2 6A 03 E1 D1 F9 EB E9 E1 D1 E3 AF 93 5F ...j..........._
000080: 9A 93 57 19 E3 E9 E1 D1 E3 C5 44 4D 21 00 00 79 ..W.......DM!..y
000090: B0 CA 99 03 0B 19 C3 8F 03 C1 E3 E9 E1 D1 E3 C5 ................
0000A0: AF 93 5F 9A 93 57 01 FF FF 03 19 DA A9 03 60 69 .._..W........`i
0000B0: C1 E3 E9 2A 4B 01 E5 E5 21 00 00 39 22 4B 01 EB ...*K...!..9"K..
0000C0: E9 2A 4B 01 E5 D5 CD F6 01 E3 EB 21 00 00 39 22 .*K........!..9"
0000D0: 4B 01 EB E9 2A 4B 01 F9 F1 E1 22 4B 01 C9 00 00 K...*K...."K....
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 02 00 E5 CD 06 01 C2 29 0D 21 D1 00 E5 21 E1 00 .......).!...!..
000010: E5 21 19 00 E5 21 E5 00 E5 11 C6 06 3E 01 CD 45 .!...!......>..E
000020: 01 21 08 00 39 F9 C3 6B 0F E1 E5 E5 21 03 00 E5 .!..9..k....!...
000030: CD 06 01 C2 4D 0D 21 CD 00 E5 21 33 01 E5 11 5B ....M.!...!3...[
000040: 07 3E 01 CD 45 01 33 33 33 33 C3 6B 0F E1 E5 E5 .>..E.3333.k....
000050: 21 04 00 E5 CD 06 01 C2 71 0D 21 CD 00 E5 21 36 !.......q.!...!6
000060: 01 E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 C3 6B ...[.>..E.3333.k
000070: 0F E1 E5 E5 21 05 00 E5 CD 06 01 C2 95 0D 21 CD ....!.........!.
000080: 00 E5 21 39 01 E5 11 5B 07 3E 01 CD 45 01 33 33 ..!9...[.>..E.33
000090: 33 33 C3 6B 0F E1 E5 E5 21 08 00 E5 CD 06 01 C2 33.k....!.......
0000A0: B5 0D 11 36 09 3E 01 CD 45 01 21 00 00 E5 E1 22 ...6.>..E.!...."
0000B0: B8 71 C3 6B 0F E1 E5 E5 21 09 00 E5 CD 06 01 C2 .q.k....!.......
0000C0: D5 0D 11 36 09 3E 01 CD 45 01 21 01 00 E5 E1 22 ...6.>..E.!...."
0000D0: B8 71 C3 6B 0F E1 E5 E5 21 0A 00 E5 CD 06 01 C2 .q.k....!.......
0000E0: F5 0D 11 36 09 3E 01 CD 45 01 21 02 00 E5 E1 22 ...6.>..E.!...."
0000F0: B8 71 C3 6B 0F E1 E5 E5 21 0B 00 E5 CD 06 01 C2 .q.k....!.......
000100: 15 0E 11 36 09 3E 01 CD 45 01 21 03 00 E5 E1 22 ...6.>..E.!...."
000110: B8 71 C3 6B 0F E1 E5 E5 21 0C 00 E5 CD 06 01 C2 .q.k....!.......
000120: 35 0E 11 36 09 3E 01 CD 45 01 21 04 00 E5 E1 22 5..6.>..E.!...."
000130: B8 71 C3 6B 0F E1 E5 E5 21 0D 00 E5 CD 06 01 C2 .q.k....!.......
000140: 55 0E 11 36 09 3E 01 CD 45 01 21 05 00 E5 E1 22 U..6.>..E.!...."
000150: B8 71 C3 6B 0F E1 E5 E5 21 0E 00 E5 CD 06 01 C2 .q.k....!.......
000160: 89 0E 11 1C 0B 3E 01 CD 45 01 21 D1 00 E5 21 B2 .....>..E.!...!.
000170: 00 E5 11 34 06 3E 01 CD 45 01 33 33 33 33 21 01 ...4.>..E.3333!.
000180: 00 E5 E1 22 B8 71 C3 6B 0F E1 E5 E5 21 0F 00 E5 ...".q.k....!...
000190: CD 06 01 C2 BD 0E 11 1C 0B 3E 01 CD 45 01 21 D1 .........>..E.!.
0001A0: 00 E5 21 A2 00 E5 11 34 06 3E 01 CD 45 01 33 33 ..!....4.>..E.33
0001B0: 33 33 21 01 00 E5 E1 22 B8 71 C3 6B 0F E1 E5 E5 33!....".q.k....
0001C0: 21 13 00 E5 CD 06 01 C2 EE 0E 21 E1 00 E5 21 23 !.........!...!#
0001D0: 00 E5 21 E5 00 E5 11 75 06 3E 01 CD 45 01 21 06 ..!....u.>..E.!.
0001E0: 00 39 F9 21 01 00 E5 E1 22 B8 71 C3 6B 0F E1 E5 .9.!....".q.k...
0001F0: E5 21 14 00 E5 CD 06 01 C2 17 0F 21 E1 00 E5 21 .!.........!...!
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: C3 4C 1A 2A AE 71 E5 21 01 00 E5 D1 E1 19 E5 E1 .L.*.q.!........
000110: 22 AE 71 2A B6 71 E5 21 02 00 E5 CD 06 01 C2 31 ".q*.q.!.......1
000120: 06 01 06 00 2A 4B 01 09 5E 23 56 D5 3E 00 CD 0C ....*K..^#V.>...
000130: 01 C3 48 01 2A AE 71 E5 21 02 00 E5 D1 E1 19 E5 ..H.*.q.!.......
000140: E1 22 AE 71 2A B6 71 E5 21 02 00 E5 CD 06 01 C2 .".q*.q.!.......
000150: 72 06 01 08 00 2A 4B 01 09 5E 23 56 D5 3E 00 CD r....*K..^#V.>..
000160: 0C 01 01 06 00 2A 4B 01 09 5E 23 56 D5 3E 00 CD .....*K..^#V.>..
000170: 0C 01 C3 48 01 2A AE 71 E5 21 03 00 E5 D1 E1 19 ...H.*.q.!......
000180: E5 E1 22 AE 71 2A B6 71 E5 21 02 00 E5 CD 06 01 ..".q*.q.!......
000190: C2 C3 06 01 0A 00 2A 4B 01 09 5E 23 56 D5 3E 00 ......*K..^#V.>.
0001A0: CD 0C 01 01 08 00 2A 4B 01 09 5E 23 56 D5 3E 00 ......*K..^#V.>.
0001B0: CD 0C 01 01 06 00 2A 4B 01 09 5E 23 56 D5 3E 00 ......*K..^#V.>.
0001C0: CD 0C 01 C3 48 01 2A AE 71 E5 21 04 00 E5 D1 E1 ....H.*.q.!.....
0001D0: 19 E5 E1 22 AE 71 2A B6 71 E5 21 02 00 E5 CD 06 ...".q*.q.!.....
0001E0: 01 C2 24 07 01 0C 00 2A 4B 01 09 5E 23 56 D5 3E ..$....*K..^#V.>
0001F0: 00 CD 0C 01 01 0A 00 2A 4B 01 09 5E 23 56 D5 3E .......*K..^#V.>
Size : 512 (Real : 512)
000000: 2B 00 E5 21 E5 00 E5 11 75 06 3E 01 CD 45 01 21 +..!....u.>..E.!
000010: 06 00 39 F9 C3 6B 0F E1 E5 E5 21 15 00 E5 CD 06 ..9..k....!.....
000020: 01 C2 40 0F 21 E1 00 E5 21 E5 00 E5 21 E5 00 E5 ..@.!...!...!...
000030: 11 75 06 3E 01 CD 45 01 21 06 00 39 F9 C3 6B 0F .u.>..E.!..9..k.
000040: CD 27 01 20 52 50 4F 20 44 41 42 3E 01 CD 21 01 .'. RPO DAB>..!.
000050: 2A AC 71 E5 3E 01 CD 12 01 21 0D 00 E5 3E 01 CD *.q.>....!...>..
000060: 0C 01 21 0A 00 E5 3E 01 CD 0C 01 33 33 C3 63 19 ..!...>....33.c.
000070: E1 E5 E5 21 05 00 E5 CD 06 01 C2 E0 0F 2A AA 71 ...!.........*.q
000080: E5 21 FF 00 E5 CD 06 01 C2 B8 0F 21 2A 00 E5 2A .!.........!*..*
000090: AC 71 E5 2A B4 71 E5 D1 E1 19 E5 11 5B 07 3E 01 .q.*.q......[.>.
0000A0: CD 45 01 33 33 33 33 21 E5 00 E5 11 03 06 3E 01 .E.3333!......>.
0000B0: CD 45 01 33 33 C3 DD 0F 11 72 09 3E 01 CD 45 01 .E.33....r.>..E.
0000C0: 21 5E 00 E5 21 23 00 E5 21 56 00 E5 21 D5 00 E5 !^..!#..!V..!...
0000D0: 11 C6 06 3E 01 CD 45 01 21 08 00 39 F9 C3 63 19 ...>..E.!..9..c.
0000E0: E1 E5 E5 21 06 00 E5 CD 06 01 C2 50 10 2A AA 71 ...!.......P.*.q
0000F0: E5 21 FF 00 E5 CD 06 01 C2 28 10 21 E1 00 E5 11 .!.......(.!....
000100: 03 06 3E 01 CD 45 01 33 33 21 22 00 E5 2A AC 71 ..>..E.33!"..*.q
000110: E5 2A B4 71 E5 D1 E1 19 E5 11 5B 07 3E 01 CD 45 .*.q......[.>..E
000120: 01 33 33 33 33 C3 4D 10 11 72 09 3E 01 CD 45 01 .3333.M..r.>..E.
000130: 21 D1 00 E5 21 73 00 E5 21 23 00 E5 21 72 00 E5 !...!s..!#..!r..
000140: 11 C6 06 3E 01 CD 45 01 21 08 00 39 F9 C3 63 19 ...>..E.!..9..c.
000150: E1 E5 E5 21 00 00 E5 CD 06 01 C2 CD 10 21 11 00 ...!.........!..
000160: E5 3B 3B 2A AC 71 E5 11 67 0A 3E 01 CD 45 01 33 .;;*.q..g.>..E.3
000170: 33 11 5B 07 3E 01 CD 45 01 33 33 33 33 2A AA 71 3.[.>..E.3333*.q
000180: E5 21 00 00 E5 CD 06 01 C2 A2 10 21 CD 00 E5 21 .!.........!...!
000190: 42 01 E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 C3 B...[.>..E.3333.
0001A0: CA 10 21 3E 00 E5 2A AA 71 E5 11 34 06 3E 01 CD ..!>..*.q..4.>..
0001B0: 45 01 33 33 33 33 21 CD 00 E5 21 45 01 E5 11 5B E.3333!...!E...[
0001C0: 07 3E 01 CD 45 01 33 33 33 33 C3 63 19 E1 E5 E5 .>..E.3333.c....
0001D0: 21 07 00 E5 CD 06 01 C2 B5 11 2A AC 71 E5 21 00 !.........*.q.!.
0001E0: 00 E5 21 04 00 E5 CD 33 01 CD 06 01 3E 00 CA F4 ..!....3....>...
0001F0: 10 D2 F5 10 3D F5 2A AC 71 E5 21 04 00 E5 CD 06 ....=.*.q.!.....
Size : 512 (Real : 512)
000000: 00 CD 0C 01 01 08 00 2A 4B 01 09 5E 23 56 D5 3E .......*K..^#V.>
000010: 00 CD 0C 01 01 06 00 2A 4B 01 09 5E 23 56 D5 3E .......*K..^#V.>
000020: 00 CD 0C 01 C3 48 01 01 06 00 2A 4B 01 09 5E 23 .....H....*K..^#
000030: 56 D5 11 03 06 3E 01 CD 45 01 33 33 01 06 00 2A V....>..E.33...*
000040: 4B 01 09 5E 23 56 D5 21 00 01 E5 CD 39 01 11 03 K..^#V.!....9...
000050: 06 3E 01 CD 45 01 33 33 C3 48 01 01 08 00 2A 4B .>..E.33.H....*K
000060: 01 09 5E 23 56 D5 11 03 06 3E 01 CD 45 01 33 33 ..^#V....>..E.33
000070: 01 06 00 2A 4B 01 09 5E 23 56 D5 11 27 07 3E 01 ...*K..^#V..'.>.
000080: CD 45 01 33 33 C3 48 01 2A B6 71 E5 21 01 00 E5 .E.33.H.*.q.!...
000090: CD 06 01 C2 35 08 2A B2 71 E5 21 88 13 E5 CD 06 ....5.*.q.!.....
0000A0: 01 D2 B4 07 CD 27 01 52 45 56 4F 20 44 43 2A 3E .....'.REVO DC*>
0000B0: 01 CD 21 01 3E 00 CD 09 01 E1 22 A8 71 3E 00 CD ..!.>.....".q>..
0000C0: 09 01 E1 22 AA 71 2A B2 71 E5 2A A8 71 E5 2A AA ...".q*.q.*.q.*.
0000D0: 71 E5 21 00 01 E5 CD 36 01 D1 E1 19 E5 21 84 23 q.!....6.....!.#
0000E0: D1 C1 09 09 73 23 72 3E 00 CD 09 01 E1 22 BA 71 ....s#r>.....".q
0000F0: 3E 00 CD 09 01 E1 22 BC 71 2A BA 71 E5 2A BC 71 >.....".q*.q.*.q
000100: E5 21 00 01 E5 CD 36 01 D1 E1 19 E5 E1 22 AC 71 .!....6......".q
000110: 2A B2 71 E5 2A AC 71 E5 21 96 4A D1 C1 09 09 73 *.q.*.q.!.J....s
000120: 23 72 2A B2 71 E5 21 01 00 E5 D1 E1 19 E5 E1 22 #r*.q.!........"
000130: B2 71 C3 8E 08 2A B0 71 E5 21 84 23 D1 19 19 5E .q...*.q.!.#...^
000140: 23 56 D5 E1 22 AC 71 2A AC 71 E5 21 00 01 E5 CD #V..".q*.q.!....
000150: 39 01 E1 22 AA 71 2A AC 71 E5 2A AA 71 E5 21 00 9..".q*.q.*.q.!.
000160: 01 E5 CD 36 01 CD 33 01 E1 22 A8 71 2A B0 71 E5 ...6..3..".q*.q.
000170: 21 96 4A D1 19 19 5E 23 56 D5 E1 22 AC 71 2A B0 !.J...^#V..".q*.
000180: 71 E5 21 01 00 E5 D1 E1 19 E5 E1 22 B0 71 C3 48 q.!........".q.H
000190: 01 3B 3B 21 00 00 E5 01 FE FF 2A 4B 01 09 D1 73 .;;!......*K...s
0001A0: 23 72 21 F4 01 E5 E1 E5 E5 01 FE FF 2A 4B 01 09 #r!.........*K..
0001B0: 5E 23 56 D5 CD 06 01 CA BD 08 D2 31 09 21 50 00 ^#V........1.!P.
0001C0: E5 3E 01 CD 0C 01 01 FE FF 2A 4B 01 09 5E 23 56 .>.......*K..^#V
0001D0: D5 21 B0 1B D1 19 19 5E 23 56 D5 3E 01 CD 12 01 .!.....^#V.>....
0001E0: 21 20 00 E5 3E 01 CD 0C 01 01 FE FF 2A 4B 01 09 ! ..>.......*K..
0001F0: 5E 23 56 D5 21 9A 1F D1 19 19 5E 23 56 D5 3E 01 ^#V.!.....^#V.>.
Size : 512 (Real : 512)
000000: 01 3F 9F D1 A2 CA 83 11 21 01 00 E5 E1 22 C4 71 .?......!....".q
000010: 2A AC 71 E5 E1 E5 E5 2A C4 71 E5 CD 06 01 CA 24 *.q....*.q.....$
000020: 11 D2 40 11 21 3B 00 E5 11 03 06 3E 01 CD 45 01 ..@.!;.....>..E.
000030: 33 33 2A C4 71 E5 E1 23 E5 E1 22 C4 71 C3 14 11 33*.q..#..".q...
000040: 33 33 21 00 00 E5 21 01 00 E5 CD 33 01 E1 22 C4 33!...!....3..".
000050: 71 2A AC 71 E5 E1 E5 E5 2A C4 71 E5 CD 06 01 DA q*.q....*.q.....
000060: 7E 11 21 33 00 E5 11 03 06 3E 01 CD 45 01 33 33 ~.!3.....>..E.33
000070: 2A C4 71 E5 E1 2B E5 E1 22 C4 71 C3 55 11 33 33 *.q..+..".q.U.33
000080: C3 B2 11 21 21 00 E5 21 00 00 E5 2A AC 71 E5 CD ...!!..!...*.q..
000090: 33 01 11 5B 07 3E 01 CD 45 01 33 33 33 33 21 39 3..[.>..E.3333!9
0000A0: 00 E5 21 F9 00 E5 11 34 06 3E 01 CD 45 01 33 33 ..!....4.>..E.33
0000B0: 33 33 C3 63 19 E1 E5 E5 21 02 00 E5 CD 06 01 C2 33.c....!.......
0000C0: E5 11 21 C3 00 E5 3B 3B 2A AC 71 E5 11 67 0A 3E ..!...;;*.q..g.>
0000D0: 01 CD 45 01 33 33 11 5B 07 3E 01 CD 45 01 33 33 ..E.33.[.>..E.33
0000E0: 33 33 C3 63 19 E1 E5 E5 21 01 00 E5 CD 06 01 C2 33.c....!.......
0000F0: 57 13 2A B8 71 E5 E1 E5 E5 21 00 00 E5 CD 06 01 W.*.q....!......
000100: C2 26 12 21 C2 00 E5 3B 3B 2A AC 71 E5 11 67 0A .&.!...;;*.q..g.
000110: 3E 01 CD 45 01 33 33 11 5B 07 3E 01 CD 45 01 33 >..E.33.[.>..E.3
000120: 33 33 33 C3 52 13 E1 E5 E5 21 01 00 E5 CD 06 01 333.R....!......
000130: C2 56 12 21 CA 00 E5 3B 3B 2A AC 71 E5 11 67 0A .V.!...;;*.q..g.
000140: 3E 01 CD 45 01 33 33 11 5B 07 3E 01 CD 45 01 33 >..E.33.[.>..E.3
000150: 33 33 33 C3 52 13 E1 E5 E5 21 02 00 E5 CD 06 01 333.R....!......
000160: C2 A6 12 21 DA 00 E5 3B 3B 2A AC 71 E5 11 67 0A ...!...;;*.q..g.
000170: 3E 01 CD 45 01 33 33 11 5B 07 3E 01 CD 45 01 33 >..E.33.[.>..E.3
000180: 33 33 33 21 CA 00 E5 3B 3B 2A AC 71 E5 11 67 0A 333!...;;*.q..g.
000190: 3E 01 CD 45 01 33 33 11 5B 07 3E 01 CD 45 01 33 >..E.33.[.>..E.3
0001A0: 33 33 33 C3 52 13 E1 E5 E5 21 03 00 E5 CD 06 01 333.R....!......
0001B0: C2 F2 12 21 CA 00 E5 2A AE 71 E5 21 06 00 E5 D1 ...!...*.q.!....
0001C0: E1 19 E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 21 ....[.>..E.3333!
0001D0: D2 00 E5 3B 3B 2A AC 71 E5 11 67 0A 3E 01 CD 45 ...;;*.q..g.>..E
0001E0: 01 33 33 11 5B 07 3E 01 CD 45 01 33 33 33 33 C3 .33.[.>..E.3333.
0001F0: 52 13 E1 E5 E5 21 04 00 E5 CD 06 01 C2 22 13 21 R....!.......".!
Size : 512 (Real : 512)
000000: CD 12 01 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 ...!...>....!...
000010: 3E 01 CD 0C 01 01 FE FF 2A 4B 01 09 5E 23 56 D5 >.......*K..^#V.
000020: E1 23 E5 01 FE FF 2A 4B 01 09 D1 73 23 72 C3 A6 .#....*K...s#r..
000030: 08 33 33 C3 48 01 2A AA 71 E5 21 00 00 E5 CD 06 .33.H.*.q.!.....
000040: 01 C2 5B 09 21 CD 00 E5 21 06 01 E5 11 5B 07 3E ..[.!...!....[.>
000050: 01 CD 45 01 33 33 33 33 C3 6F 09 21 CD 00 E5 21 ..E.3333.o.!...!
000060: 30 01 E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 C3 0...[.>..E.3333.
000070: 48 01 3B 3B 2A AA 71 E5 01 FE FF 2A 4B 01 09 D1 H.;;*.q....*K...
000080: 73 23 72 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 00 s#r...*K..^#V.!.
000090: 00 E5 CD 06 01 C2 D8 09 21 01 00 E5 21 00 00 E5 ........!...!...
0000A0: 2A AC 71 E5 CD 33 01 11 5B 07 3E 01 CD 45 01 33 *.q..3..[.>..E.3
0000B0: 33 33 33 21 2A 00 E5 21 4B 01 E5 11 5B 07 3E 01 333!*..!K...[.>.
0000C0: CD 45 01 33 33 33 33 21 09 00 E5 11 03 06 3E 01 .E.3333!......>.
0000D0: CD 45 01 33 33 C3 64 0A 01 FE FF 2A 4B 01 09 5E .E.33.d....*K..^
0000E0: 23 56 D5 21 FF 00 E5 CD 06 01 C2 0C 0A 21 21 00 #V.!.........!!.
0000F0: E5 2A AC 71 E5 2A B4 71 E5 D1 E1 19 E5 11 5B 07 .*.q.*.q......[.
000100: 3E 01 CD 45 01 33 33 33 33 C3 64 0A 21 3E 00 E5 >..E.3333.d.!>..
000110: 01 FE FF 2A 4B 01 09 5E 23 56 D5 11 34 06 3E 01 ...*K..^#V..4.>.
000120: CD 45 01 33 33 33 33 21 CD 00 E5 21 03 01 E5 11 .E.3333!...!....
000130: 5B 07 3E 01 CD 45 01 33 33 33 33 21 11 00 E5 21 [.>..E.3333!...!
000140: 00 00 E5 2A AC 71 E5 CD 33 01 11 5B 07 3E 01 CD ...*.q..3..[.>..
000150: 45 01 33 33 33 33 21 19 00 E5 11 03 06 3E 01 CD E.3333!......>..
000160: 45 01 33 33 C3 48 01 2A B6 71 E5 21 02 00 E5 CD E.33.H.*.q.!....
000170: 06 01 C2 F2 0A 01 06 00 2A 4B 01 09 5E 23 56 D5 ........*K..^#V.
000180: 21 9A 1F D1 19 19 5E 23 56 D5 21 00 00 E5 CD 06 !.....^#V.!.....
000190: 01 CA B7 0A 01 06 00 2A 4B 01 09 5E 23 56 D5 21 .......*K..^#V.!
0001A0: 9A 1F D1 19 19 5E 23 56 D5 01 08 00 2A 4B 01 09 .....^#V....*K..
0001B0: D1 73 23 72 C3 F2 0A 21 50 00 E5 3E 01 CD 0C 01 .s#r...!P..>....
0001C0: 01 06 00 2A 4B 01 09 5E 23 56 D5 3E 01 CD 12 01 ...*K..^#V.>....
0001D0: CD 27 01 44 4E 49 46 45 44 4E 55 3E 01 CD 21 01 .'.DNIFEDNU>..!.
0001E0: 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E 01 CD !...>....!...>..
0001F0: 0C 01 C3 48 01 2A A8 71 E5 2A AA 71 E5 2A AC 71 ...H.*.q.*.q.*.q
Size : 512 (Real : 512)
000000: D2 00 E5 3B 3B 2A AC 71 E5 11 67 0A 3E 01 CD 45 ...;;*.q..g.>..E
000010: 01 33 33 11 5B 07 3E 01 CD 45 01 33 33 33 33 C3 .33.[.>..E.3333.
000020: 52 13 E1 E5 E5 21 05 00 E5 CD 06 01 C2 52 13 21 R....!.......R.!
000030: DA 00 E5 3B 3B 2A AC 71 E5 11 67 0A 3E 01 CD 45 ...;;*.q..g.>..E
000040: 01 33 33 11 5B 07 3E 01 CD 45 01 33 33 33 33 C3 .33.[.>..E.3333.
000050: 52 13 33 33 C3 63 19 E1 E5 E5 21 10 00 E5 CD 06 R.33.c....!.....
000060: 01 C2 7D 13 11 1C 0B 3E 01 CD 45 01 21 F5 00 E5 ..}....>..E.!...
000070: 11 03 06 3E 01 CD 45 01 33 33 C3 63 19 E1 E5 E5 ...>..E.33.c....
000080: 21 08 00 E5 CD 06 01 C2 C4 13 21 3E 00 E5 2A AA !.........!>..*.
000090: 71 E5 11 34 06 3E 01 CD 45 01 33 33 33 33 21 CD q..4.>..E.3333!.
0000A0: 00 E5 21 09 01 E5 21 03 00 E5 2A AC 71 E5 CD 36 ..!...!...*.q..6
0000B0: 01 D1 E1 19 E5 11 5B 07 3E 01 CD 45 01 33 33 33 ......[.>..E.333
0000C0: 33 C3 63 19 E1 E5 E5 21 09 00 E5 CD 06 01 C2 12 3.c....!........
0000D0: 14 11 72 09 3E 01 CD 45 01 21 D1 00 E5 21 19 00 ..r.>..E.!...!..
0000E0: E5 21 19 00 E5 21 5E 00 E5 11 C6 06 3E 01 CD 45 .!...!^.....>..E
0000F0: 01 21 08 00 39 F9 21 23 00 E5 21 56 00 E5 21 D5 .!..9.!#..!V..!.
000100: 00 E5 11 75 06 3E 01 CD 45 01 21 06 00 39 F9 C3 ...u.>..E.!..9..
000110: 63 19 E1 E5 E5 21 0A 00 E5 CD 06 01 C2 60 14 11 c....!.......`..
000120: 72 09 3E 01 CD 45 01 21 D1 00 E5 21 C1 00 E5 21 r.>..E.!...!...!
000130: 09 00 E5 21 09 00 E5 11 C6 06 3E 01 CD 45 01 21 ...!......>..E.!
000140: 08 00 39 F9 21 73 00 E5 21 23 00 E5 21 72 00 E5 ..9.!s..!#..!r..
000150: 11 75 06 3E 01 CD 45 01 21 06 00 39 F9 C3 63 19 .u.>..E.!..9..c.
000160: E1 E5 E5 21 1F 00 E5 CD 06 01 C2 9B 14 21 E1 00 ...!.........!..
000170: E5 21 29 00 E5 21 D1 00 E5 21 19 00 E5 11 C6 06 .!)..!...!......
000180: 3E 01 CD 45 01 21 08 00 39 F9 21 E5 00 E5 11 03 >..E.!..9.!.....
000190: 06 3E 01 CD 45 01 33 33 C3 63 19 E1 E5 E5 21 11 .>..E.33.c....!.
0001A0: 00 E5 CD 06 01 C2 CC 14 11 72 09 3E 01 CD 45 01 .........r.>..E.
0001B0: 21 56 00 E5 21 D5 00 E5 21 33 00 E5 11 75 06 3E !V..!...!3...u.>
0001C0: 01 CD 45 01 21 06 00 39 F9 C3 63 19 E1 E5 E5 21 ..E.!..9..c....!
0001D0: 12 00 E5 CD 06 01 C2 FD 14 11 72 09 3E 01 CD 45 ..........r.>..E
0001E0: 01 21 D1 00 E5 21 3B 00 E5 21 73 00 E5 11 75 06 .!...!;..!s...u.
0001F0: 3E 01 CD 45 01 21 06 00 39 F9 C3 63 19 E1 E5 E5 >..E.!..9..c....
Size : 512 (Real : 512)
000000: 28 2A 0D 0A 20 20 54 49 54 4C 45 09 09 50 41 53 (*.. TITLE..PAS
000010: 43 41 4C 20 46 41 53 54 20 45 58 45 43 55 54 49 CAL FAST EXECUTI
000020: 4F 4E 20 54 52 41 4E 53 4C 41 54 4F 52 0D 0A 20 ON TRANSLATOR..
000030: 20 46 49 4C 45 4E 41 4D 45 09 50 46 45 54 2E 50 FILENAME.PFET.P
000040: 41 53 0D 0A 20 20 41 55 54 48 4F 52 09 52 6F 62 AS.. AUTHOR.Rob
000050: 65 72 74 20 41 2E 20 56 61 6E 20 56 61 6C 7A 61 ert A. Van Valza
000060: 68 20 20 31 30 2F 30 36 2F 37 39 0D 0A 20 20 4C h 10/06/79.. L
000070: 41 53 54 20 52 45 56 49 53 4F 52 09 52 2E 41 2E AST REVISOR.R.A.
000080: 56 2E 20 20 30 31 2F 31 34 2F 38 30 0D 0A 20 20 V. 01/14/80..
000090: 52 45 41 53 4F 4E 09 72 65 70 61 69 72 65 64 20 REASON.repaired
0000A0: 62 75 67 20 69 6E 20 61 73 74 6F 69 20 63 6F 64 bug in astoi cod
0000B0: 65 0D 0A 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 0D 0A e..*)....const..
0000C0: 09 76 68 75 09 3D 20 30 3B 09 28 2A 20 76 65 72 .vhu.= 0;.(* ver
0000D0: 73 69 6F 6E 20 6E 75 6D 62 65 72 20 68 75 6E 64 sion number hund
0000E0: 72 65 64 73 20 2A 29 0D 0A 09 76 74 6E 09 3D 20 reds *)...vtn.=
0000F0: 30 3B 09 28 2A 20 74 65 6E 73 20 2A 29 0D 0A 09 0;.(* tens *)...
000100: 76 75 6E 09 3D 20 38 3B 09 28 2A 20 75 6E 69 74 vun.= 8;.(* unit
000110: 73 20 2A 29 0D 0A 09 64 65 76 72 65 6C 09 3D 20 s *)...devrel.=
000120: 27 72 27 3B 09 28 2A 20 64 65 76 65 6C 6F 70 6D 'r';.(* developm
000130: 65 6E 74 20 6F 72 20 72 65 6C 65 61 73 65 20 76 ent or release v
000140: 65 72 73 69 6F 6E 20 2A 29 0D 0A 09 6E 6C 61 62 ersion *)...nlab
000150: 09 3D 20 35 30 30 3B 09 28 2A 20 6D 61 78 20 6E .= 500;.(* max n
000160: 75 6D 62 65 72 20 6F 66 20 70 2D 6C 61 62 65 6C umber of p-label
000170: 73 20 2A 29 0D 0A 09 63 6F 64 65 6D 61 78 09 3D s *)...codemax.=
000180: 20 35 30 30 30 3B 09 28 2A 20 6D 61 78 20 6E 75 5000;.(* max nu
000190: 6D 62 65 72 20 6F 66 20 70 2D 69 6E 73 74 72 75 mber of p-instru
0001A0: 63 74 69 6F 6E 73 20 2A 29 0D 0A 09 6F 63 6F 64 ctions *)...ocod
0001B0: 65 09 3D 20 31 35 33 36 3B 09 28 2A 20 6F 62 6A e.= 1536;.(* obj
0001C0: 65 63 74 20 63 6F 64 65 20 62 61 73 65 20 61 64 ect code base ad
0001D0: 64 72 65 73 73 20 2A 29 0D 0A 09 72 74 70 6F 72 dress *)...rtpor
0001E0: 67 09 3D 20 32 35 36 3B 09 28 2A 20 72 75 6E 20 g.= 256;.(* run
0001F0: 74 69 6D 65 20 70 61 63 6B 61 67 65 20 62 61 73 time package bas
Size : 512 (Real : 512)
000000: 21 1B 00 E5 CD 06 01 C2 2A 15 21 E1 00 E5 21 56 !.......*.!...!V
000010: 00 E5 21 D5 00 E5 21 33 00 E5 11 C6 06 3E 01 CD ..!...!3.....>..
000020: 45 01 21 08 00 39 F9 C3 63 19 E1 E5 E5 21 1C 00 E.!..9..c....!..
000030: E5 CD 06 01 C2 57 15 21 D1 00 E5 21 3B 00 E5 21 .....W.!...!;..!
000040: E1 00 E5 21 73 00 E5 11 C6 06 3E 01 CD 45 01 21 ...!s.....>..E.!
000050: 08 00 39 F9 C3 63 19 E1 E5 E5 21 21 00 E5 CD 06 ..9..c....!!....
000060: 01 C2 84 15 21 E1 00 E5 21 D1 00 E5 21 19 00 E5 ....!...!...!...
000070: 21 E5 00 E5 11 C6 06 3E 01 CD 45 01 21 08 00 39 !......>..E.!..9
000080: F9 C3 63 19 E1 E5 E5 21 13 00 E5 CD 06 01 C2 CE ..c....!........
000090: 15 11 72 09 3E 01 CD 45 01 21 D1 00 E5 21 19 00 ..r.>..E.!...!..
0000A0: E5 21 5E 00 E5 11 75 06 3E 01 CD 45 01 21 06 00 .!^...u.>..E.!..
0000B0: 39 F9 21 16 00 E5 21 00 00 E5 21 D5 00 E5 11 75 9.!...!...!....u
0000C0: 06 3E 01 CD 45 01 21 06 00 39 F9 C3 63 19 E1 E5 .>..E.!..9..c...
0000D0: E5 21 14 00 E5 CD 06 01 C2 03 16 11 72 09 3E 01 .!..........r.>.
0000E0: CD 45 01 21 D1 00 E5 21 C1 00 E5 21 09 00 E5 21 .E.!...!...!...!
0000F0: 73 00 E5 11 C6 06 3E 01 CD 45 01 21 08 00 39 F9 s.....>..E.!..9.
000100: C3 63 19 E1 E5 E5 21 0B 00 E5 CD 06 01 C2 47 16 .c....!.......G.
000110: 21 CD 00 E5 21 27 01 E5 11 5B 07 3E 01 CD 45 01 !...!'...[.>..E.
000120: 33 33 33 33 11 88 07 3E 01 CD 45 01 11 F5 0A 3E 3333...>..E....>
000130: 01 CD 45 01 11 88 07 3E 01 CD 45 01 11 F5 0A 3E ..E....>..E....>
000140: 01 CD 45 01 C3 63 19 E1 E5 E5 21 0C 00 E5 CD 06 ..E..c....!.....
000150: 01 C2 73 16 11 72 09 3E 01 CD 45 01 21 CD 00 E5 ..s..r.>..E.!...
000160: 21 2A 01 E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 !*...[.>..E.3333
000170: C3 63 19 E1 E5 E5 21 0D 00 E5 CD 06 01 C2 9F 16 .c....!.........
000180: 11 72 09 3E 01 CD 45 01 21 CD 00 E5 21 2D 01 E5 .r.>..E.!...!-..
000190: 11 5B 07 3E 01 CD 45 01 33 33 33 33 C3 63 19 E1 .[.>..E.3333.c..
0001A0: E5 E5 21 20 00 E5 CD 06 01 C2 E5 16 21 E1 00 E5 ..! ........!...
0001B0: 21 29 00 E5 21 29 00 E5 21 29 00 E5 11 C6 06 3E !)..!)..!).....>
0001C0: 01 CD 45 01 21 08 00 39 F9 21 D1 00 E5 21 19 00 ..E.!..9.!...!..
0001D0: E5 21 E5 00 E5 11 75 06 3E 01 CD 45 01 21 06 00 .!....u.>..E.!..
0001E0: 39 F9 C3 63 19 E1 E5 E5 21 1D 00 E5 CD 06 01 C2 9..c....!.......
0001F0: 17 17 21 E1 00 E5 11 03 06 3E 01 CD 45 01 33 33 ..!......>..E.33
Size : 512 (Real : 512)
000000: 65 20 61 64 64 72 65 73 73 20 2A 29 0D 0A 0D 0A e address *)....
000010: 09 28 2A 20 72 75 6E 74 69 6D 65 20 70 61 63 6B .(* runtime pack
000020: 61 67 65 20 65 6E 74 72 79 20 70 6F 69 6E 74 73 age entry points
000030: 20 2A 29 0D 0A 09 62 61 73 65 09 3D 20 72 74 70 *)...base.= rtp
000040: 6F 72 67 2B 33 3B 09 63 6D 70 72 09 3D 20 62 61 org+3;.cmpr.= ba
000050: 73 65 2B 33 3B 0D 0A 09 63 73 70 62 61 73 65 09 se+3;...cspbase.
000060: 3D 20 63 6D 70 72 2B 33 3B 09 73 70 61 6C 69 74 = cmpr+3;.spalit
000070: 09 3D 20 63 73 70 62 61 73 65 2B 33 30 3B 0D 0A .= cspbase+30;..
000080: 09 73 70 61 6C 6F 64 09 3D 20 73 70 61 6C 69 74 .spalod.= spalit
000090: 2B 33 3B 09 73 70 61 73 74 6F 09 3D 20 73 70 61 +3;.spasto.= spa
0000A0: 6C 6F 64 2B 33 3B 0D 0A 09 61 63 6D 70 72 09 3D lod+3;...acmpr.=
0000B0: 20 73 70 61 73 74 6F 2B 33 3B 09 6F 70 72 33 09 spasto+3;.opr3.
0000C0: 3D 20 61 63 6D 70 72 2B 33 3B 0D 0A 09 6F 70 72 = acmpr+3;...opr
0000D0: 34 09 3D 20 6F 70 72 33 2B 33 3B 09 6F 70 72 35 4.= opr3+3;.opr5
0000E0: 09 3D 20 6F 70 72 34 2B 33 3B 0D 0A 09 6F 70 72 .= opr4+3;...opr
0000F0: 31 34 09 3D 20 6F 70 72 35 2B 33 3B 09 6F 70 72 14.= opr5+3;.opr
000100: 31 35 09 3D 20 6F 70 72 31 34 2B 33 3B 0D 0A 09 15.= opr14+3;...
000110: 73 70 63 61 6C 30 09 3D 20 6F 70 72 31 35 2B 33 spcal0.= opr15+3
000120: 3B 09 73 70 63 61 6C 09 3D 20 73 70 63 61 6C 30 ;.spcal.= spcal0
000130: 2B 33 3B 0D 0A 09 73 70 72 65 74 09 3D 20 73 70 +3;...spret.= sp
000140: 63 61 6C 2B 33 3B 09 62 72 09 3D 20 73 70 72 65 cal+3;.br.= spre
000150: 74 2B 33 3B 0D 0A 0D 0A 09 28 2A 20 38 30 38 30 t+3;.....(* 8080
000160: 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 20 2A 29 instructions *)
000170: 0D 0A 09 6C 68 6C 64 09 3D 20 34 32 3B 09 73 68 ...lhld.= 42;.sh
000180: 6C 64 09 3D 20 33 34 3B 0D 0A 09 70 75 73 68 68 ld.= 34;...pushh
000190: 09 3D 20 32 32 39 3B 09 70 75 73 68 64 09 3D 20 .= 229;.pushd.=
0001A0: 32 31 33 3B 0D 0A 09 70 75 73 68 62 09 3D 20 31 213;...pushb.= 1
0001B0: 39 37 3B 09 70 75 73 68 70 73 77 09 3D 20 32 34 97;.pushpsw.= 24
0001C0: 35 3B 0D 0A 09 70 6F 70 68 09 3D 20 32 32 35 3B 5;...poph.= 225;
0001D0: 09 70 6F 70 64 09 3D 20 32 30 39 3B 0D 0A 09 70 .popd.= 209;...p
0001E0: 6F 70 62 09 3D 20 31 39 33 3B 0D 0A 0D 0A 09 73 opb.= 193;.....s
0001F0: 70 68 6C 09 3D 20 32 34 39 3B 09 70 63 68 6C 09 phl.= 249;.pchl.
Size : 512 (Real : 512)
000000: 21 CD 00 E5 21 2A 01 E5 11 5B 07 3E 01 CD 45 01 !...!*...[.>..E.
000010: 33 33 33 33 C3 63 19 E1 E5 E5 21 1E 00 E5 CD 06 3333.c....!.....
000020: 01 C2 88 17 21 21 00 E5 21 08 00 E5 11 5B 07 3E ....!!..!....[.>
000030: 01 CD 45 01 33 33 33 33 21 39 00 E5 21 7E 00 E5 ..E.3333!9..!~..
000040: 21 23 00 E5 21 66 00 E5 11 C6 06 3E 01 CD 45 01 !#..!f.....>..E.
000050: 21 08 00 39 F9 21 6F 00 E5 11 03 06 3E 01 CD 45 !..9.!o.....>..E
000060: 01 33 33 21 CD 00 E5 21 2D 01 E5 11 5B 07 3E 01 .33!...!-...[.>.
000070: CD 45 01 33 33 33 33 21 E1 00 E5 11 03 06 3E 01 .E.3333!......>.
000080: CD 45 01 33 33 C3 63 19 E1 E5 E5 21 0E 00 E5 CD .E.33.c....!....
000090: 06 01 C2 E6 17 11 72 09 3E 01 CD 45 01 21 D1 00 ......r.>..E.!..
0000A0: E5 21 EB 00 E5 21 29 00 E5 11 75 06 3E 01 CD 45 .!...!)...u.>..E
0000B0: 01 21 06 00 39 F9 21 29 00 E5 21 29 00 E5 21 19 .!..9.!)..!)..!.
0000C0: 00 E5 11 75 06 3E 01 CD 45 01 21 06 00 39 F9 21 ...u.>..E.!..9.!
0000D0: CD 00 E5 21 2A 01 E5 11 5B 07 3E 01 CD 45 01 33 ...!*...[.>..E.3
0000E0: 33 33 33 C3 63 19 E1 E5 E5 21 0F 00 E5 CD 06 01 333.c....!......
0000F0: C2 8C 18 11 72 09 3E 01 CD 45 01 21 EB 00 E5 11 ....r.>..E.!....
000100: 03 06 3E 01 CD 45 01 33 33 21 21 00 E5 21 08 00 ..>..E.33!!..!..
000110: E5 11 5B 07 3E 01 CD 45 01 33 33 33 33 21 39 00 ..[.>..E.3333!9.
000120: E5 21 7E 00 E5 21 23 00 E5 21 66 00 E5 11 C6 06 .!~..!#..!f.....
000130: 3E 01 CD 45 01 21 08 00 39 F9 21 6F 00 E5 21 29 >..E.!..9.!o..!)
000140: 00 E5 21 29 00 E5 11 75 06 3E 01 CD 45 01 21 06 ..!)...u.>..E.!.
000150: 00 39 F9 21 29 00 E5 21 19 00 E5 11 34 06 3E 01 .9.!)..!....4.>.
000160: CD 45 01 33 33 33 33 21 CD 00 E5 21 2D 01 E5 11 .E.3333!...!-...
000170: 5B 07 3E 01 CD 45 01 33 33 33 33 21 E1 00 E5 11 [.>..E.3333!....
000180: 03 06 3E 01 CD 45 01 33 33 C3 63 19 E1 E5 E5 21 ..>..E.33.c....!
000190: 18 00 E5 CD 06 01 C2 B2 18 11 72 09 3E 01 CD 45 ..........r.>..E
0001A0: 01 21 E5 00 E5 11 03 06 3E 01 CD 45 01 33 33 C3 .!......>..E.33.
0001B0: 63 19 E1 E5 E5 21 19 00 E5 CD 06 01 C2 ED 18 21 c....!.........!
0001C0: E1 00 E5 21 5E 00 E5 21 23 00 E5 21 56 00 E5 11 ...!^..!#..!V...
0001D0: C6 06 3E 01 CD 45 01 21 08 00 39 F9 21 D5 00 E5 ..>..E.!..9.!...
0001E0: 11 03 06 3E 01 CD 45 01 33 33 C3 63 19 E1 E5 E5 ...>..E.33.c....
0001F0: 21 1A 00 E5 CD 06 01 C2 28 19 21 D1 00 E5 21 E1 !.......(.!...!.
Size : 512 (Real : 512)
000000: 3D 20 32 33 33 3B 0D 0A 09 78 63 68 67 09 3D 20 = 233;...xchg.=
000010: 32 33 35 3B 09 78 74 68 6C 09 3D 20 32 32 37 3B 235;.xthl.= 227;
000020: 0D 0A 0D 0A 09 64 61 64 68 09 3D 20 34 31 3B 09 .....dadh.= 41;.
000030: 64 61 64 73 70 09 3D 20 35 37 3B 0D 0A 09 64 61 dadsp.= 57;...da
000040: 64 64 09 3D 20 32 35 3B 09 64 61 64 62 09 3D 20 dd.= 25;.dadb.=
000050: 39 3B 0D 0A 0D 0A 09 63 61 6C 6C 09 3D 20 32 30 9;.....call.= 20
000060: 35 3B 09 6A 6D 70 09 3D 20 31 39 35 3B 0D 0A 09 5;.jmp.= 195;...
000070: 6A 7A 09 3D 20 32 30 32 3B 09 6A 6E 7A 09 3D 20 jz.= 202;.jnz.=
000080: 31 39 34 3B 0D 0A 09 6A 6E 63 09 3D 20 32 31 30 194;...jnc.= 210
000090: 3B 09 6A 63 09 3D 20 32 31 38 3B 0D 0A 0D 0A 09 ;.jc.= 218;.....
0000A0: 6D 76 69 61 09 3D 20 36 32 3B 09 61 64 69 09 3D mvia.= 62;.adi.=
0000B0: 20 31 39 38 3B 0D 0A 09 6D 76 69 64 09 3D 20 32 198;...mvid.= 2
0000C0: 32 3B 0D 0A 0D 0A 09 6C 78 69 68 09 3D 20 33 33 2;.....lxih.= 33
0000D0: 3B 09 6C 78 69 64 09 3D 20 31 37 3B 0D 0A 09 6C ;.lxid.= 17;...l
0000E0: 78 69 62 09 3D 20 31 3B 0D 0A 0D 0A 09 6D 6F 76 xib.= 1;.....mov
0000F0: 65 6D 09 3D 20 39 34 3B 09 6D 6F 76 64 6D 09 3D em.= 94;.movdm.=
000100: 20 38 36 3B 0D 0A 09 6D 6F 76 6D 65 09 3D 20 31 86;...movme.= 1
000110: 31 35 3B 09 6D 6F 76 6D 64 09 3D 20 31 31 34 3B 15;.movmd.= 114;
000120: 0D 0A 09 6D 6F 76 62 68 09 3D 20 36 38 3B 09 6D ...movbh.= 68;.m
000130: 6F 76 63 6C 09 3D 20 37 37 3B 0D 0A 09 6D 6F 76 ovcl.= 77;...mov
000140: 61 6D 09 3D 20 31 32 36 3B 09 6D 6F 76 68 6D 09 am.= 126;.movhm.
000150: 3D 20 31 30 32 3B 0D 0A 09 6D 6F 76 6C 61 09 3D = 102;...movla.=
000160: 20 31 31 31 3B 09 6D 6F 76 61 65 09 3D 20 31 32 111;.movae.= 12
000170: 33 3B 0D 0A 09 63 6D 63 09 3D 20 36 33 3B 09 73 3;...cmc.= 63;.s
000180: 62 62 61 09 3D 20 31 35 39 3B 0D 0A 09 64 63 72 bba.= 159;...dcr
000190: 61 09 3D 20 36 31 3B 09 6F 72 61 64 09 3D 20 31 a.= 61;.orad.= 1
0001A0: 37 38 3B 0D 0A 09 61 6E 61 64 09 3D 20 31 36 32 78;...anad.= 162
0001B0: 3B 0D 0A 0D 0A 09 69 6E 78 73 70 09 3D 20 35 31 ;.....inxsp.= 51
0001C0: 3B 09 64 63 78 73 70 09 3D 20 35 39 3B 0D 0A 09 ;.dcxsp.= 59;...
0001D0: 64 63 78 68 09 3D 20 34 33 3B 09 69 6E 78 68 09 dcxh.= 43;.inxh.
0001E0: 3D 20 33 35 3B 0D 0A 74 79 70 65 0D 0A 09 70 6F = 35;..type...po
0001F0: 70 73 09 3D 20 28 20 28 2A 20 70 2D 6F 70 20 63 ps.= ( (* p-op c
Size : 512 (Real : 512)
000000: 00 E5 21 73 00 E5 21 23 00 E5 11 C6 06 3E 01 CD ..!s..!#.....>..
000010: 45 01 21 08 00 39 F9 21 72 00 E5 11 03 06 3E 01 E.!..9.!r.....>.
000020: CD 45 01 33 33 C3 63 19 E1 E5 E5 21 17 00 E5 CD .E.33.c....!....
000030: 06 01 C2 38 19 C3 63 19 CD 27 01 50 4F 2D 50 20 ...8..c..'.PO-P
000040: 44 41 42 3E 01 CD 21 01 2A A8 71 E5 3E 01 CD 12 DAB>..!.*.q.>...
000050: 01 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E 01 .!...>....!...>.
000060: CD 0C 01 33 33 C3 48 01 01 06 00 2A 4B 01 09 5E ...33.H....*K..^
000070: 23 56 D5 E1 22 B6 71 21 00 06 E5 E1 22 AE 71 11 #V..".q!....".q.
000080: 88 07 3E 01 CD 45 01 2A A8 71 E5 21 16 00 E5 CD ..>..E.*.q.!....
000090: 06 01 CA A0 19 11 91 0C 3E 01 CD 45 01 C3 25 1A ........>..E..%.
0000A0: 2A B6 71 E5 21 01 00 E5 CD 06 01 C2 E4 19 2A AC *.q.!.........*.
0000B0: 71 E5 21 F4 01 E5 CD 06 01 D2 CF 19 CD 27 01 52 q.!..........'.R
0000C0: 45 56 4F 20 42 4C 2A 3E 01 CD 21 01 C3 E1 19 2A EVO BL*>..!....*
0000D0: AC 71 E5 2A AE 71 E5 21 9A 1F D1 C1 09 09 73 23 .q.*.q.!......s#
0000E0: 72 C3 25 1A 2A AC 71 E5 21 9A 1F D1 19 19 5E 23 r.%.*.q.!.....^#
0000F0: 56 D5 2A AE 71 E5 CD 06 01 CA 25 1A CD 27 01 52 V.*.q.....%..'.R
000100: 45 20 45 53 41 48 50 3E 01 CD 21 01 CD 27 01 50 E ESAHP>..!..'.P
000110: 20 20 20 20 52 4F 52 3E 01 CD 21 01 2A AC 71 E5 ROR>..!.*.q.
000120: 3E 01 CD 12 01 2A A8 71 E5 21 17 00 E5 CD 06 01 >....*.q.!......
000130: C2 7F 19 2A B6 71 E5 21 01 00 E5 CD 06 01 C2 49 ...*.q.!.......I
000140: 1A 2A AE 71 E5 E1 22 B4 71 C3 48 01 CD 27 01 56 .*.q..".q.H..'.V
000150: 45 52 20 54 45 46 50 3E 01 CD 21 01 21 20 00 E5 ER TEFP>..!.! ..
000160: 3E 01 CD 0C 01 21 00 00 E5 3E 01 CD 12 01 21 2E >....!...>....!.
000170: 00 E5 3E 01 CD 0C 01 21 00 00 E5 3E 01 CD 12 01 ..>....!...>....
000180: 21 08 00 E5 3E 01 CD 12 01 21 52 00 E5 3E 01 CD !...>....!R..>..
000190: 0C 01 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E ..!...>....!...>
0001A0: 01 CD 0C 01 21 00 00 E5 E1 22 B2 71 21 F4 01 E5 ....!....".q!...
0001B0: E1 E5 E5 2A B2 71 E5 CD 06 01 CA C0 1A D2 E0 1A ...*.q..........
0001C0: 2A B2 71 E5 21 00 00 E5 21 9A 1F D1 C1 09 09 73 *.q.!...!......s
0001D0: 23 72 2A B2 71 E5 E1 23 E5 E1 22 B2 71 C3 B0 1A #r*.q..#..".q...
0001E0: 33 33 21 00 00 E5 E1 22 B2 71 CD 27 01 20 20 31 33!....".q.'. 1
0001F0: 20 53 53 41 50 3E 01 CD 21 01 21 0D 00 E5 3E 01 SSAP>..!.!...>.
Size : 512 (Real : 512)
000000: 6F 64 65 73 20 2A 29 0D 0A 09 09 63 61 6C 2C 20 odes *)....cal,
000010: 6A 70 63 2C 20 6A 75 6D 70 2C 20 6C 69 74 2C 20 jpc, jump, lit,
000020: 6F 70 72 2C 20 6C 6F 64 2C 20 73 74 6F 2C 20 69 opr, lod, sto, i
000030: 6E 74 2C 0D 0A 09 09 63 73 70 2C 20 6C 6F 64 78 nt,....csp, lodx
000040: 2C 20 73 74 6F 78 2C 20 61 6C 69 74 2C 20 61 6C , stox, alit, al
000050: 6F 64 2C 20 61 73 74 6F 2C 0D 0A 09 09 61 6C 6F od, asto,....alo
000060: 64 78 2C 20 61 73 74 6F 78 2C 20 70 73 68 66 2C dx, astox, pshf,
000070: 20 63 6C 6F 64 2C 20 63 73 74 6F 2C 0D 0A 09 09 clod, csto,....
000080: 63 6C 6F 64 78 2C 20 63 73 74 6F 78 2C 20 68 61 clodx, cstox, ha
000090: 6C 74 2C 20 6C 61 62 2C 0D 0A 09 09 70 65 6F 66 lt, lab,....peof
0000A0: 2C 20 28 2A 20 65 6E 64 20 6F 66 20 70 2D 63 6F , (* end of p-co
0000B0: 64 65 20 66 69 6C 65 20 2A 29 0D 0A 09 09 6C 61 de file *)....la
0000C0: 61 2C 20 6C 6F 64 69 2C 20 73 74 6F 69 2C 20 63 a, lodi, stoi, c
0000D0: 6C 6F 64 69 2C 20 63 73 74 6F 69 2C 20 61 6C 6F lodi, cstoi, alo
0000E0: 64 69 2C 20 61 73 74 6F 69 2C 0D 0A 09 09 69 6E di, astoi,....in
0000F0: 64 78 2C 20 61 69 6E 64 78 2C 20 63 69 6E 64 78 dx, aindx, cindx
000100: 0D 0A 09 09 29 3B 0D 0A 09 66 66 6C 61 67 73 09 ....);...fflags.
000110: 3D 20 28 20 28 2A 20 66 6C 61 67 73 20 73 65 74 = ( (* flags set
000120: 20 77 68 65 6E 20 63 6F 6E 64 69 74 69 6F 6E 20 when condition
000130: 69 73 20 66 61 6C 73 65 20 2A 29 0D 0A 09 09 69 is false *)....i
000140: 66 6E 7A 2C 20 69 66 7A 2C 20 69 66 63 7A 2C 20 fnz, ifz, ifcz,
000150: 69 66 7A 6E 63 2C 20 69 66 6E 63 2C 20 69 66 63 ifznc, ifnc, ifc
000160: 0D 0A 09 09 29 3B 0D 0A 09 6C 61 62 74 79 70 09 ....);...labtyp.
000170: 3D 20 61 72 72 61 79 5B 30 2E 2E 6E 6C 61 62 5D = array[0..nlab]
000180: 20 6F 66 20 77 6F 72 64 3B 0D 0A 09 63 6F 64 74 of word;...codt
000190: 79 70 09 3D 20 61 72 72 61 79 5B 30 2E 2E 63 6F yp.= array[0..co
0001A0: 64 65 6D 61 78 5D 20 6F 66 20 77 6F 72 64 3B 0D demax] of word;.
0001B0: 0A 0D 0A 76 61 72 0D 0A 09 6C 61 62 65 6C 09 3A ...var...label.:
0001C0: 20 6C 61 62 74 79 70 3B 09 28 2A 20 6C 61 62 65 labtyp;.(* labe
0001D0: 6C 20 70 2D 61 64 64 72 65 73 73 65 73 20 2A 29 l p-addresses *)
0001E0: 0D 0A 09 61 64 72 09 3A 20 6C 61 62 74 79 70 3B ...adr.: labtyp;
0001F0: 09 28 2A 20 6C 61 62 65 6C 20 38 30 38 30 20 61 .(* label 8080 a
Size : 512 (Real : 512)
000000: CD 0C 01 21 0A 00 E5 3E 01 CD 0C 01 21 01 00 E5 ...!...>....!...
000010: 11 68 19 CD 42 01 33 33 2A B2 71 E5 3E 01 CD 12 .h..B.33*.q.>...
000020: 01 CD 27 01 53 45 44 4F 43 2D 50 20 3E 01 CD 21 ..'.SEDOC-P >..!
000030: 01 CD 27 01 20 20 20 44 41 45 52 20 3E 01 CD 21 ..'. DAER >..!
000040: 01 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E 01 .!...>....!...>.
000050: CD 0C 01 21 00 00 E5 E1 22 B0 71 CD 27 01 20 20 ...!....".q.'.
000060: 32 20 53 53 41 50 3E 01 CD 21 01 21 0D 00 E5 3E 2 SSAP>..!.!...>
000070: 01 CD 0C 01 21 0A 00 E5 3E 01 CD 0C 01 21 02 00 ....!...>....!..
000080: E5 11 68 19 CD 42 01 33 33 CD 27 01 20 20 20 21 ..h..B.33.'. !
000090: 45 4E 4F 44 3E 01 CD 21 01 21 0D 00 E5 3E 01 CD ENOD>..!.!...>..
0000A0: 0C 01 21 0A 00 E5 3E 01 CD 0C 01 3E 00 CD 24 01 ..!...>....>..$.
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 45 20 45 53 41 48 50 3E 01 CD 21 01 CD 27 01 50 E ESAHP>..!..'.P
000110: 20 20 20 20 52 4F 52 3E 01 CD 21 01 2A AC 71 E5 ROR>..!.*.q.
000120: 3E 01 CD 12 01 2A A8 71 E5 21 17 00 E5 CD 06 01 >....*.q.!......
000130: C2 7F 19 2A B6 71 E5 21 01 00 E5 CD 06 01 C2 49 ...*.q.!.......I
000140: 1A 2A AE 71 E5 E1 22 B4 71 C3 48 01 CD 27 01 56 .*.q..".q.H..'.V
000150: 45 52 20 54 45 46 50 3E 01 CD 21 01 21 20 00 E5 ER TEFP>..!.! ..
000160: 3E 01 CD 0C 01 21 00 00 E5 3E 01 CD 12 01 21 2E >....!...>....!.
000170: 00 E5 3E 01 CD 0C 01 21 00 00 E5 3E 01 CD 12 01 ..>....!...>....
000180: 21 08 00 E5 3E 01 CD 12 01 21 52 00 E5 3E 01 CD !...>....!R..>..
000190: 0C 01 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E ..!...>....!...>
0001A0: 01 CD 0C 01 21 00 00 E5 E1 22 B2 71 21 F4 01 E5 ....!....".q!...
0001B0: E1 E5 E5 2A B2 71 E5 CD 06 01 CA C0 1A D2 E0 1A ...*.q..........
0001C0: 2A B2 71 E5 21 00 00 E5 21 9A 1F D1 C1 09 09 73 *.q.!...!......s
0001D0: 23 72 2A B2 71 E5 E1 23 E5 E1 22 B2 71 C3 B0 1A #r*.q..#..".q...
0001E0: 33 33 21 00 00 E5 E1 22 B2 71 CD 27 01 20 20 31 33!....".q.'. 1
0001F0: 20 53 53 41 50 3E 01 CD 21 01 21 0D 00 E5 3E 01 SSAP>..!.!...>.
Size : 512 (Real : 512)
000000: 64 64 72 65 73 73 65 73 20 2A 29 0D 0A 09 66 6C ddresses *)...fl
000010: 61 09 3A 20 63 6F 64 74 79 70 3B 09 28 2A 20 70 a.: codtyp;.(* p
000020: 2D 63 6F 64 65 20 66 75 6E 63 74 69 6F 6E 20 26 -code function &
000030: 20 6C 65 76 65 6C 20 2A 29 0D 0A 09 61 61 09 3A level *)...aa.:
000040: 20 63 6F 64 74 79 70 3B 09 28 2A 20 70 2D 63 6F codtyp;.(* p-co
000050: 64 65 20 61 64 64 72 65 73 73 20 2A 29 0D 0A 09 de address *)...
000060: 66 09 3A 20 77 6F 72 64 3B 09 09 28 2A 20 63 75 f.: word;..(* cu
000070: 72 72 65 6E 74 20 69 6E 73 74 72 75 63 74 69 6F rrent instructio
000080: 6E 20 66 75 6E 63 74 69 6F 6E 20 2A 29 0D 0A 09 n function *)...
000090: 6C 09 3A 20 77 6F 72 64 3B 09 09 28 2A 20 63 75 l.: word;..(* cu
0000A0: 72 72 65 6E 74 20 69 6E 73 74 72 75 63 74 69 6F rrent instructio
0000B0: 6E 20 6C 65 76 65 6C 20 2A 29 0D 0A 09 61 09 3A n level *)...a.:
0000C0: 20 77 6F 72 64 3B 09 09 28 2A 20 63 75 72 72 65 word;..(* curre
0000D0: 6E 74 20 69 6E 73 74 72 75 63 74 69 6F 6E 20 61 nt instruction a
0000E0: 64 64 72 65 73 73 20 2A 29 0D 0A 09 63 6F 61 09 ddress *)...coa.
0000F0: 3A 20 77 6F 72 64 3B 09 09 28 2A 20 63 6F 64 65 : word;..(* code
000100: 20 6F 75 74 20 61 64 64 72 65 73 73 20 2A 29 0D out address *).
000110: 0A 09 63 78 09 3A 20 77 6F 72 64 3B 09 09 28 2A ..cx.: word;..(*
000120: 20 70 2D 63 6F 64 65 20 61 72 72 61 79 20 69 6E p-code array in
000130: 64 65 78 20 2A 29 0D 0A 09 63 69 78 09 3A 20 77 dex *)...cix.: w
000140: 6F 72 64 3B 09 09 28 2A 20 6E 75 6D 62 65 72 20 ord;..(* number
000150: 6F 66 20 70 2D 63 6F 64 65 73 20 72 65 61 64 20 of p-codes read
000160: 2A 29 0D 0A 09 67 6C 72 61 6D 09 3A 20 77 6F 72 *)...glram.: wor
000170: 64 3B 09 09 28 2A 20 62 61 73 65 20 61 64 64 72 d;..(* base addr
000180: 65 73 73 20 6F 66 20 67 6C 6F 62 61 6C 20 72 61 ess of global ra
000190: 6D 20 2A 29 0D 0A 09 70 61 73 73 09 3A 20 77 6F m *)...pass.: wo
0001A0: 72 64 3B 09 09 28 2A 20 70 61 73 73 20 6E 75 6D rd;..(* pass num
0001B0: 62 65 72 20 2A 29 0D 0A 09 6C 66 6C 09 3A 20 66 ber *)...lfl.: f
0001C0: 66 6C 61 67 73 3B 09 28 2A 20 66 6C 61 67 73 20 flags;.(* flags
0001D0: 73 65 74 20 77 68 65 6E 20 6C 61 73 74 0D 0A 09 set when last...
0001E0: 09 09 09 74 72 61 6E 73 6C 61 74 65 64 20 63 6F ...translated co
0001F0: 6E 64 69 74 69 6F 6E 61 6C 20 69 73 0D 0A 09 09 nditional is....
Size : 512 (Real : 512)
000000: 6E 64 27 2C 31 33 2C 31 30 29 0D 0A 09 65 6E 64 nd',13,10)...end
000010: 3B 20 28 2A 20 65 69 65 69 61 64 72 20 2A 29 0D ; (* eieiadr *).
000020: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 64 77 32 ...procedure dw2
000030: 3B 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 63 6F ;.....begin...co
000040: 34 62 28 66 2C 20 6C 2C 20 61 2C 20 61 2F 32 35 4b(f, l, a, a/25
000050: 36 29 0D 0A 09 65 6E 64 3B 20 28 2A 20 64 77 32 6)...end; (* dw2
000060: 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 *)....procedure
000070: 20 66 6C 61 67 74 6F 61 3B 0D 0A 0D 0A 09 62 65 flagtoa;.....be
000080: 67 69 6E 0D 0A 09 63 61 73 65 20 6C 66 6C 20 6F gin...case lfl o
000090: 66 0D 0A 09 69 66 6E 7A 3A 09 62 65 67 69 6E 0D f...ifnz:.begin.
0000A0: 0A 09 09 63 6F 34 62 28 61 64 69 2C 20 32 35 35 ...co4b(adi, 255
0000B0: 2C 20 63 6D 63 2C 20 73 62 62 61 29 0D 0A 09 09 , cmc, sbba)....
0000C0: 65 6E 64 3B 20 28 2A 20 69 66 6E 7A 20 2A 29 0D end; (* ifnz *).
0000D0: 0A 09 69 66 7A 3A 09 62 65 67 69 6E 0D 0A 09 09 ..ifz:.begin....
0000E0: 63 6F 33 62 28 61 64 69 2C 20 32 35 35 2C 20 73 co3b(adi, 255, s
0000F0: 62 62 61 29 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 bba)....end; (*
000100: 69 66 7A 20 2A 29 0D 0A 09 69 66 63 7A 3A 09 62 ifz *)...ifcz:.b
000110: 65 67 69 6E 0D 0A 09 09 63 6F 32 62 28 6D 76 69 egin....co2b(mvi
000120: 61 2C 20 30 29 3B 0D 0A 09 09 63 6F 6F 70 61 64 a, 0);....coopad
000130: 28 6A 63 2C 63 6F 61 2B 37 29 3B 20 63 6F 6F 70 (jc,coa+7); coop
000140: 61 64 28 6A 7A 2C 63 6F 61 2B 34 29 3B 20 63 6F ad(jz,coa+4); co
000150: 31 62 28 64 63 72 61 29 0D 0A 09 09 65 6E 64 3B 1b(dcra)....end;
000160: 20 28 2A 20 69 66 63 7A 20 2A 29 0D 0A 09 69 66 (* ifcz *)...if
000170: 7A 6E 63 3A 09 62 65 67 69 6E 0D 0A 09 09 63 6F znc:.begin....co
000180: 32 62 28 6D 76 69 61 2C 20 30 29 3B 0D 0A 09 09 2b(mvia, 0);....
000190: 63 6F 6F 70 61 64 28 6A 7A 2C 63 6F 61 2B 36 29 coopad(jz,coa+6)
0001A0: 3B 20 63 6F 6F 70 61 64 28 6A 6E 63 2C 63 6F 61 ; coopad(jnc,coa
0001B0: 2B 34 29 3B 20 63 6F 31 62 28 64 63 72 61 29 0D +4); co1b(dcra).
0001C0: 0A 09 09 65 6E 64 3B 20 28 2A 20 69 66 7A 6E 63 ...end; (* ifznc
0001D0: 20 2A 29 0D 0A 09 69 66 6E 63 3A 09 63 6F 31 62 *)...ifnc:.co1b
0001E0: 28 73 62 62 61 29 3B 0D 0A 09 69 66 63 3A 09 62 (sbba);...ifc:.b
0001F0: 65 67 69 6E 0D 0A 09 09 63 6F 32 62 28 63 6D 63 egin....co2b(cmc
Size : 512 (Real : 512)
000000: 09 09 66 61 6C 73 65 20 2A 29 0D 0A 09 0D 0A 09 ..false *)......
000010: 28 2A 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 (* global variab
000020: 6C 65 73 20 66 6F 72 20 70 72 6F 63 65 64 75 72 les for procedur
000030: 65 20 67 65 74 70 63 64 20 66 6F 72 20 73 70 65 e getpcd for spe
000040: 65 64 20 2A 29 0D 0A 09 61 64 6C 6F 2C 20 61 64 ed *)...adlo, ad
000050: 68 69 09 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 28 hi.: word;.....(
000060: 2A 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C * global variabl
000070: 65 73 20 66 6F 72 20 66 75 6E 63 74 69 6F 6E 20 es for function
000080: 65 69 65 69 61 64 72 20 66 6F 72 20 73 70 65 65 eieiadr for spee
000090: 64 20 2A 29 0D 0A 09 65 69 69 2C 20 65 69 6A 2C d *)...eii, eij,
0000A0: 20 65 69 6B 09 3A 20 77 6F 72 64 3B 0D 0A 0D 0A eik.: word;....
0000B0: 09 28 2A 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 .(* global varia
0000C0: 62 6C 65 73 20 66 6F 72 20 70 72 6F 63 65 64 75 bles for procedu
0000D0: 72 65 20 74 72 61 6E 73 20 66 6F 72 20 73 70 65 re trans for spe
0000E0: 65 64 20 2A 29 0D 0A 09 74 72 61 6E 73 69 09 3A ed *)...transi.:
0000F0: 20 77 6F 72 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 word;....proced
000100: 75 72 65 20 63 6F 31 62 28 63 68 3A 20 77 6F 72 ure co1b(ch: wor
000110: 64 29 3B 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 d);.....begin...
000120: 63 6F 61 3A 3D 63 6F 61 2B 31 3B 0D 0A 09 69 66 coa:=coa+1;...if
000130: 20 70 61 73 73 3D 32 20 74 68 65 6E 20 70 75 74 pass=2 then put
000140: 23 30 28 63 68 29 0D 0A 09 65 6E 64 3B 20 28 2A #0(ch)...end; (*
000150: 20 63 6F 31 62 20 2A 29 0D 0A 0D 0A 70 72 6F 63 co1b *)....proc
000160: 65 64 75 72 65 20 63 6F 32 62 28 63 31 2C 63 32 edure co2b(c1,c2
000170: 3A 20 77 6F 72 64 29 3B 0D 0A 0D 0A 09 62 65 67 : word);.....beg
000180: 69 6E 0D 0A 09 63 6F 61 3A 3D 63 6F 61 2B 32 3B in...coa:=coa+2;
000190: 0D 0A 09 69 66 20 70 61 73 73 3D 32 20 74 68 65 ...if pass=2 the
0001A0: 6E 20 70 75 74 23 30 28 63 31 2C 63 32 29 0D 0A n put#0(c1,c2)..
0001B0: 09 65 6E 64 3B 20 28 2A 20 63 6F 32 62 20 2A 29 .end; (* co2b *)
0001C0: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 63 6F ....procedure co
0001D0: 33 62 28 63 31 2C 63 32 2C 63 33 3A 20 77 6F 72 3b(c1,c2,c3: wor
0001E0: 64 29 3B 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 d);.....begin...
0001F0: 63 6F 61 3A 3D 63 6F 61 2B 33 3B 0D 0A 09 69 66 coa:=coa+3;...if
Size : 512 (Real : 512)
000000: 2C 20 73 62 62 61 29 0D 0A 09 09 65 6E 64 20 28 , sbba)....end (
000010: 2A 20 69 66 63 20 2A 29 0D 0A 09 65 6E 64 20 28 * ifc *)...end (
000020: 2A 20 63 61 73 65 20 6C 66 6C 20 6F 66 20 2A 29 * case lfl of *)
000030: 0D 0A 09 65 6E 64 3B 20 28 2A 20 66 6C 61 67 74 ...end; (* flagt
000040: 6F 61 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 oa *)....procedu
000050: 72 65 20 74 72 61 6E 73 3B 0D 0A 0D 0A 09 62 65 re trans;.....be
000060: 67 69 6E 0D 0A 09 63 61 73 65 20 66 20 6F 66 0D gin...case f of.
000070: 0A 09 6C 69 74 3A 09 62 65 67 69 6E 0D 0A 09 09 ..lit:.begin....
000080: 63 6F 6F 70 61 64 28 6C 78 69 68 2C 61 29 3B 20 coopad(lxih,a);
000090: 63 6F 31 62 28 70 75 73 68 68 29 0D 0A 09 09 65 co1b(pushh)....e
0000A0: 6E 64 3B 0D 0A 09 6F 70 72 3A 09 63 61 73 65 20 nd;...opr:.case
0000B0: 61 20 6F 66 0D 0A 09 09 30 3A 09 28 2A 20 70 72 a of....0:.(* pr
0000C0: 6F 63 65 64 75 72 65 20 72 65 74 75 72 6E 20 2A ocedure return *
0000D0: 29 0D 0A 09 09 09 63 6F 6F 70 61 64 28 6A 6D 70 ).....coopad(jmp
0000E0: 2C 73 70 72 65 74 29 3B 0D 0A 09 09 32 3A 09 28 ,spret);....2:.(
0000F0: 2A 20 28 74 6F 70 29 3D 28 74 6F 70 29 2B 28 74 * (top)=(top)+(t
000100: 6F 70 2D 31 29 20 2A 29 0D 0A 09 09 09 62 65 67 op-1) *).....beg
000110: 69 6E 0D 0A 09 09 09 63 6F 34 62 28 70 6F 70 64 in.....co4b(popd
000120: 2C 20 70 6F 70 68 2C 20 64 61 64 64 2C 20 70 75 , poph, dadd, pu
000130: 73 68 68 29 0D 0A 09 09 09 65 6E 64 3B 20 28 2A shh).....end; (*
000140: 20 63 61 73 65 20 6F 70 72 20 73 75 62 20 2A 29 case opr sub *)
000150: 0D 0A 09 09 33 3A 09 28 2A 20 28 74 6F 70 29 3D ....3:.(* (top)=
000160: 28 74 6F 70 29 2D 28 74 6F 70 2D 31 29 20 2A 29 (top)-(top-1) *)
000170: 0D 0A 09 09 09 63 6F 6F 70 61 64 28 63 61 6C 6C .....coopad(call
000180: 2C 6F 70 72 33 29 3B 0D 0A 09 09 34 3A 09 28 2A ,opr3);....4:.(*
000190: 20 6D 75 6C 74 69 70 6C 79 20 2A 29 0D 0A 09 09 multiply *)....
0001A0: 09 63 6F 6F 70 61 64 28 63 61 6C 6C 2C 6F 70 72 .coopad(call,opr
0001B0: 34 29 3B 0D 0A 09 09 35 3A 09 28 2A 20 64 69 76 4);....5:.(* div
0001C0: 69 64 65 20 2A 29 0D 0A 09 09 09 63 6F 6F 70 61 ide *).....coopa
0001D0: 64 28 63 61 6C 6C 2C 6F 70 72 35 29 3B 0D 0A 09 d(call,opr5);...
0001E0: 09 38 3A 09 62 65 67 69 6E 20 28 2A 20 28 74 6F .8:.begin (* (to
0001F0: 70 29 3D 28 74 6F 70 2D 31 29 20 63 6F 6E 64 69 p)=(top-1) condi
Size : 512 (Real : 512)
000000: 20 70 61 73 73 3D 32 20 74 68 65 6E 20 70 75 74 pass=2 then put
000010: 23 30 28 63 31 2C 63 32 2C 63 33 29 0D 0A 09 65 #0(c1,c2,c3)...e
000020: 6E 64 3B 20 28 2A 20 63 6F 33 62 20 2A 29 0D 0A nd; (* co3b *)..
000030: 0D 0A 70 72 6F 63 65 64 75 72 65 20 63 6F 34 62 ..procedure co4b
000040: 28 63 31 2C 63 32 2C 63 33 2C 63 34 3A 20 77 6F (c1,c2,c3,c4: wo
000050: 72 64 29 3B 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A rd);.....begin..
000060: 09 63 6F 61 3A 3D 63 6F 61 2B 34 3B 0D 0A 09 69 .coa:=coa+4;...i
000070: 66 20 70 61 73 73 3D 32 20 74 68 65 6E 20 70 75 f pass=2 then pu
000080: 74 23 30 28 63 31 2C 63 32 2C 63 33 2C 63 34 29 t#0(c1,c2,c3,c4)
000090: 0D 0A 09 65 6E 64 3B 20 28 2A 20 63 6F 34 62 20 ...end; (* co4b
0000A0: 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 *)....procedure
0000B0: 63 6F 61 64 28 61 64 3A 20 77 6F 72 64 29 3B 0D coad(ad: word);.
0000C0: 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 63 6F 31 62 ....begin...co1b
0000D0: 28 61 64 29 3B 20 63 6F 31 62 28 61 64 2F 32 35 (ad); co1b(ad/25
0000E0: 36 29 0D 0A 09 65 6E 64 3B 20 28 2A 20 63 6F 61 6)...end; (* coa
0000F0: 64 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 d *)....procedur
000100: 65 20 63 6F 6F 70 61 64 28 6F 70 2C 61 64 3A 20 e coopad(op,ad:
000110: 77 6F 72 64 29 3B 0D 0A 0D 0A 09 62 65 67 69 6E word);.....begin
000120: 0D 0A 09 63 6F 31 62 28 6F 70 29 3B 20 63 6F 61 ...co1b(op); coa
000130: 64 28 61 64 29 0D 0A 09 65 6E 64 3B 20 28 2A 20 d(ad)...end; (*
000140: 63 6F 6F 70 61 64 20 2A 29 0D 0A 0D 0A 70 72 6F coopad *)....pro
000150: 63 65 64 75 72 65 20 67 65 74 70 63 64 3B 20 28 cedure getpcd; (
000160: 2A 20 67 65 74 20 6E 65 78 74 20 70 2D 63 6F 64 * get next p-cod
000170: 65 20 74 6F 20 66 2C 20 6C 2C 20 61 6E 64 20 61 e to f, l, and a
000180: 20 2A 29 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 *).....begin...
000190: 69 66 20 70 61 73 73 3D 31 20 74 68 65 6E 20 62 if pass=1 then b
0001A0: 65 67 69 6E 0D 0A 09 09 69 66 20 63 69 78 3E 63 egin....if cix>c
0001B0: 6F 64 65 6D 61 78 20 74 68 65 6E 20 70 75 74 23 odemax then put#
0001C0: 31 28 27 2A 63 64 20 6F 76 65 72 27 29 3B 0D 0A 1('*cd over');..
0001D0: 09 09 67 65 74 23 30 28 66 29 3B 0D 0A 09 09 67 ..get#0(f);....g
0001E0: 65 74 23 30 28 6C 29 3B 0D 0A 09 09 66 6C 61 5B et#0(l);....fla[
0001F0: 63 69 78 5D 3A 3D 66 2B 6C 2A 32 35 36 3B 0D 0A cix]:=f+l*256;..
Size : 512 (Real : 512)
000000: 74 69 6F 6E 61 6C 20 2A 29 0D 0A 09 09 09 67 65 tional *).....ge
000010: 6E 63 6D 70 3B 20 6C 66 6C 3A 3D 69 66 6E 7A 0D ncmp; lfl:=ifnz.
000020: 0A 09 09 09 65 6E 64 3B 20 28 2A 20 6F 70 72 20 ....end; (* opr
000030: 38 20 2A 29 0D 0A 09 09 39 3A 09 62 65 67 69 6E 8 *)....9:.begin
000040: 20 28 2A 20 28 74 6F 70 29 3C 3E 28 74 6F 70 2D (* (top)<>(top-
000050: 31 29 20 63 6F 6E 64 74 69 6F 6E 61 6C 20 2A 29 1) condtional *)
000060: 0D 0A 09 09 09 67 65 6E 63 6D 70 3B 20 6C 66 6C .....gencmp; lfl
000070: 3A 3D 69 66 7A 0D 0A 09 09 09 65 6E 64 3B 20 28 :=ifz.....end; (
000080: 2A 20 6F 70 72 20 39 20 2A 29 0D 0A 09 09 31 30 * opr 9 *)....10
000090: 3A 09 62 65 67 69 6E 20 28 2A 20 28 74 6F 70 29 :.begin (* (top)
0000A0: 3C 28 74 6F 70 2D 31 29 20 63 6F 6E 64 69 74 69 <(top-1) conditi
0000B0: 6E 61 6C 20 2A 29 0D 0A 09 09 09 67 65 6E 63 6D nal *).....gencm
0000C0: 70 3B 20 6C 66 6C 3A 3D 69 66 63 7A 0D 0A 09 09 p; lfl:=ifcz....
0000D0: 09 65 6E 64 3B 20 28 2A 20 6F 70 72 20 31 30 20 .end; (* opr 10
0000E0: 2A 29 0D 0A 09 09 31 31 3A 09 62 65 67 69 6E 20 *)....11:.begin
0000F0: 28 2A 20 28 74 6F 70 2D 31 29 3E 3D 28 74 6F 70 (* (top-1)>=(top
000100: 29 20 63 6F 6E 64 69 74 6F 6E 61 6C 20 2A 29 0D ) conditonal *).
000110: 0A 09 09 09 67 65 6E 63 6D 70 3B 20 6C 66 6C 3A ....gencmp; lfl:
000120: 3D 69 66 7A 6E 63 0D 0A 09 09 09 65 6E 64 3B 20 =ifznc.....end;
000130: 28 2A 20 6F 70 72 20 31 31 20 2A 29 0D 0A 09 09 (* opr 11 *)....
000140: 31 32 3A 09 62 65 67 69 6E 20 28 2A 20 28 74 6F 12:.begin (* (to
000150: 70 2D 31 29 3E 28 74 6F 70 29 20 63 6F 6E 64 69 p-1)>(top) condi
000160: 74 69 6F 6E 6C 61 20 2A 29 0D 0A 09 09 09 67 65 tionla *).....ge
000170: 6E 63 6D 70 3B 20 6C 66 6C 3A 3D 69 66 6E 63 0D ncmp; lfl:=ifnc.
000180: 0A 09 09 09 65 6E 64 3B 20 28 2A 20 6F 70 72 20 ....end; (* opr
000190: 31 32 20 2A 29 0D 0A 09 09 31 33 3A 09 62 65 67 12 *)....13:.beg
0001A0: 69 6E 20 28 2A 20 28 74 6F 70 2D 31 29 3C 3D 28 in (* (top-1)<=(
0001B0: 74 6F 70 29 20 63 6F 6E 64 69 74 69 6F 6E 61 6C top) conditional
0001C0: 20 2A 29 0D 0A 09 09 09 67 65 6E 63 6D 70 3B 20 *).....gencmp;
0001D0: 6C 66 6C 3A 3D 69 66 63 0D 0A 09 09 09 65 6E 64 lfl:=ifc.....end
0001E0: 3B 20 28 2A 20 6F 70 72 20 31 33 20 2A 29 0D 0A ; (* opr 13 *)..
0001F0: 09 09 31 34 3A 09 62 65 67 69 6E 20 28 2A 20 28 ..14:.begin (* (
Size : 512 (Real : 512)
000000: 09 09 67 65 74 23 30 28 61 64 6C 6F 29 3B 20 67 ..get#0(adlo); g
000010: 65 74 23 30 28 61 64 68 69 29 3B 0D 0A 09 09 61 et#0(adhi);....a
000020: 3A 3D 61 64 6C 6F 2B 61 64 68 69 2A 32 35 36 3B :=adlo+adhi*256;
000030: 0D 0A 09 09 61 61 5B 63 69 78 5D 3A 3D 61 3B 0D ....aa[cix]:=a;.
000040: 0A 09 09 63 69 78 3A 3D 63 69 78 2B 31 0D 0A 09 ...cix:=cix+1...
000050: 09 65 6E 64 0D 0A 09 65 6C 73 65 20 62 65 67 69 .end...else begi
000060: 6E 20 28 2A 20 6D 75 73 74 20 62 65 20 70 61 73 n (* must be pas
000070: 73 20 32 20 2A 29 0D 0A 09 09 61 3A 3D 66 6C 61 s 2 *)....a:=fla
000080: 5B 63 78 5D 3B 20 28 2A 20 75 73 65 20 61 20 61 [cx]; (* use a a
000090: 73 20 61 20 74 65 6D 70 20 2A 29 0D 0A 09 09 6C s a temp *)....l
0000A0: 3A 3D 61 2F 32 35 36 3B 20 66 3A 3D 61 2D 6C 2A :=a/256; f:=a-l*
0000B0: 32 35 36 3B 0D 0A 09 09 61 3A 3D 61 61 5B 63 78 256;....a:=aa[cx
0000C0: 5D 3B 0D 0A 09 09 63 78 3A 3D 63 78 2B 31 0D 0A ];....cx:=cx+1..
0000D0: 09 09 65 6E 64 0D 0A 09 65 6E 64 3B 20 28 2A 20 ..end...end; (*
0000E0: 67 65 74 70 63 64 20 2A 29 0D 0A 0D 0A 70 72 6F getpcd *)....pro
0000F0: 63 65 64 75 72 65 20 77 72 73 79 6D 3B 0D 0A 0D cedure wrsym;...
000100: 0A 09 76 61 72 20 09 69 09 3A 20 77 6F 72 64 3B ..var .i.: word;
000110: 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 66 6F 72 .....begin...for
000120: 20 69 3A 3D 30 20 74 6F 20 6E 6C 61 62 20 64 6F i:=0 to nlab do
000130: 20 62 65 67 69 6E 0D 0A 09 09 70 75 74 23 31 28 begin....put#1(
000140: 27 50 27 2C 6C 61 62 65 6C 5B 69 5D 23 29 3B 0D 'P',label[i]#);.
000150: 0A 09 09 70 75 74 23 31 28 27 20 27 2C 61 64 72 ...put#1(' ',adr
000160: 5B 69 5D 23 29 3B 0D 0A 09 09 70 75 74 23 31 28 [i]#);....put#1(
000170: 31 33 2C 31 30 29 0D 0A 09 09 65 6E 64 0D 0A 09 13,10)....end...
000180: 65 6E 64 3B 20 28 2A 20 77 72 73 79 6D 20 2A 29 end; (* wrsym *)
000190: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 67 65 ....procedure ge
0001A0: 6E 63 6D 70 3B 0D 0A 0D 0A 09 62 65 67 69 6E 0D ncmp;.....begin.
0001B0: 0A 09 69 66 20 6C 3D 30 0D 0A 09 09 74 68 65 6E ..if l=0....then
0001C0: 20 63 6F 6F 70 61 64 28 63 61 6C 6C 2C 63 6D 70 coopad(call,cmp
0001D0: 72 29 0D 0A 09 09 65 6C 73 65 20 63 6F 6F 70 61 r)....else coopa
0001E0: 64 28 63 61 6C 6C 2C 61 63 6D 70 72 29 0D 0A 09 d(call,acmpr)...
0001F0: 65 6E 64 3B 20 28 2A 20 67 65 6E 63 6D 70 20 2A end; (* gencmp *
Size : 512 (Real : 512)
000000: 74 6F 70 29 3D 28 74 6F 70 2D 31 29 20 6F 72 20 top)=(top-1) or
000010: 28 74 6F 70 29 20 2A 29 0D 0A 09 09 09 66 6C 61 (top) *).....fla
000020: 67 74 6F 61 3B 20 63 6F 32 62 28 70 6F 70 64 2C gtoa; co2b(popd,
000030: 20 6F 72 61 64 29 3B 0D 0A 09 09 09 6C 66 6C 3A orad);.....lfl:
000040: 3D 69 66 7A 0D 0A 09 09 09 65 6E 64 3B 20 28 2A =ifz.....end; (*
000050: 20 6F 70 72 20 31 34 20 2A 29 0D 0A 09 09 31 35 opr 14 *)....15
000060: 3A 09 62 65 67 69 6E 20 28 2A 20 28 74 6F 70 29 :.begin (* (top)
000070: 3D 28 74 6F 70 2D 31 29 20 61 6E 64 20 28 74 6F =(top-1) and (to
000080: 70 29 20 2A 29 0D 0A 09 09 09 66 6C 61 67 74 6F p) *).....flagto
000090: 61 3B 20 63 6F 32 62 28 70 6F 70 64 2C 20 61 6E a; co2b(popd, an
0000A0: 61 64 29 3B 0D 0A 09 09 09 6C 66 6C 3A 3D 69 66 ad);.....lfl:=if
0000B0: 7A 0D 0A 09 09 09 65 6E 64 3B 20 28 2A 20 6F 70 z.....end; (* op
0000C0: 72 20 31 35 20 2A 29 0D 0A 09 09 31 39 3A 09 62 r 15 *)....19:.b
0000D0: 65 67 69 6E 20 28 2A 20 69 6E 63 72 65 6D 65 6E egin (* incremen
0000E0: 74 20 28 74 6F 70 29 20 2A 29 0D 0A 09 09 09 63 t (top) *).....c
0000F0: 6F 33 62 28 70 6F 70 68 2C 20 69 6E 78 68 2C 20 o3b(poph, inxh,
000100: 70 75 73 68 68 29 3B 0D 0A 09 09 09 6C 66 6C 3A pushh);.....lfl:
000110: 3D 69 66 7A 0D 0A 09 09 09 65 6E 64 3B 20 28 2A =ifz.....end; (*
000120: 20 6F 70 72 20 31 39 20 2A 29 0D 0A 09 09 32 30 opr 19 *)....20
000130: 3A 09 62 65 67 69 6E 20 28 2A 20 64 65 63 72 65 :.begin (* decre
000140: 6D 65 6E 74 20 28 74 6F 70 29 20 2A 29 0D 0A 09 ment (top) *)...
000150: 09 09 63 6F 33 62 28 70 6F 70 68 2C 20 64 63 78 ..co3b(poph, dcx
000160: 68 2C 20 70 75 73 68 68 29 0D 0A 09 09 09 65 6E h, pushh).....en
000170: 64 3B 20 28 2A 20 6F 70 72 20 32 30 20 2A 29 0D d; (* opr 20 *).
000180: 0A 09 09 32 31 3A 09 62 65 67 69 6E 20 28 2A 20 ...21:.begin (*
000190: 63 6F 70 79 20 28 74 6F 70 29 20 2A 29 0D 0A 09 copy (top) *)...
0001A0: 09 09 63 6F 33 62 28 70 6F 70 68 2C 20 70 75 73 ..co3b(poph, pus
0001B0: 68 68 2C 20 70 75 73 68 68 29 0D 0A 09 09 09 65 hh, pushh).....e
0001C0: 6E 64 20 28 2A 20 63 61 73 65 20 6F 70 72 20 32 nd (* case opr 2
0001D0: 31 20 2A 29 0D 0A 09 09 65 6C 73 65 09 70 75 74 1 *)....else.put
0001E0: 23 31 28 27 62 61 64 20 6F 70 72 20 27 2C 61 23 #1('bad opr ',a#
0001F0: 2C 31 33 2C 31 30 29 0D 0A 09 09 65 6E 64 3B 20 ,13,10)....end;
Size : 512 (Real : 512)
000000: 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 76 )....procedure v
000010: 61 72 61 64 72 3B 0D 0A 0D 0A 09 76 61 72 09 6C aradr;.....var.l
000020: 65 76 09 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 62 ev.: word;.....b
000030: 65 67 69 6E 0D 0A 09 6C 65 76 3A 3D 6C 3B 0D 0A egin...lev:=l;..
000040: 09 69 66 20 6C 65 76 3D 30 20 74 68 65 6E 20 62 .if lev=0 then b
000050: 65 67 69 6E 20 28 2A 20 6C 6F 63 61 6C 20 72 65 egin (* local re
000060: 66 20 2A 29 0D 0A 09 09 63 6F 6F 70 61 64 28 6C f *)....coopad(l
000070: 78 69 62 2C 30 2D 61 29 3B 0D 0A 09 09 63 6F 6F xib,0-a);....coo
000080: 70 61 64 28 6C 68 6C 64 2C 62 72 29 3B 20 63 6F pad(lhld,br); co
000090: 31 62 28 64 61 64 62 29 0D 0A 09 09 65 6E 64 0D 1b(dadb)....end.
0000A0: 0A 09 65 6C 73 65 20 69 66 20 6C 65 76 3D 32 35 ..else if lev=25
0000B0: 35 20 74 68 65 6E 20 28 2A 20 67 6C 6F 62 61 6C 5 then (* global
0000C0: 20 72 65 66 20 2A 29 0D 0A 09 09 63 6F 6F 70 61 ref *)....coopa
0000D0: 64 28 6C 78 69 68 2C 61 2B 67 6C 72 61 6D 29 0D d(lxih,a+glram).
0000E0: 0A 09 65 6C 73 65 20 62 65 67 69 6E 20 28 2A 20 ..else begin (*
0000F0: 69 6E 74 65 72 6D 65 64 69 61 74 65 20 72 65 66 intermediate ref
000100: 20 2A 29 0D 0A 09 09 63 6F 32 62 28 6D 76 69 61 *)....co2b(mvia
000110: 2C 6C 65 76 29 3B 0D 0A 09 09 63 6F 6F 70 61 64 ,lev);....coopad
000120: 28 63 61 6C 6C 2C 62 61 73 65 29 3B 20 63 6F 6F (call,base); coo
000130: 70 61 64 28 6C 78 69 64 2C 30 2D 61 29 3B 0D 0A pad(lxid,0-a);..
000140: 09 09 63 6F 31 62 28 64 61 64 64 29 0D 0A 09 09 ..co1b(dadd)....
000150: 65 6E 64 0D 0A 09 65 6E 64 3B 20 28 2A 20 76 61 end...end; (* va
000160: 72 61 64 72 20 2A 29 0D 0A 0D 0A 66 75 6E 63 74 radr *)....funct
000170: 69 6F 6E 20 65 69 65 69 61 64 72 28 70 61 64 3A ion eieiadr(pad:
000180: 20 77 6F 72 64 20 28 2A 20 70 2D 63 6F 64 65 20 word (* p-code
000190: 61 64 64 72 65 73 73 20 2A 29 20 29 3B 0D 0A 0D address *) );...
0001A0: 0A 09 62 65 67 69 6E 0D 0A 09 69 66 20 70 61 73 ..begin...if pas
0001B0: 73 3D 32 20 74 68 65 6E 0D 0A 09 09 69 66 20 61 s=2 then....if a
0001C0: 64 72 5B 70 61 64 5D 3C 3E 30 20 74 68 65 6E 20 dr[pad]<>0 then
0001D0: 65 69 65 69 61 64 72 3A 3D 61 64 72 5B 70 61 64 eieiadr:=adr[pad
0001E0: 5D 0D 0A 09 09 65 6C 73 65 20 70 75 74 23 31 28 ]....else put#1(
0001F0: 27 50 27 2C 70 61 64 23 2C 27 75 6E 64 65 66 69 'P',pad#,'undefi
Size : 512 (Real : 512)
000000: 28 2A 20 63 61 73 65 20 6F 70 72 20 2A 29 0D 0A (* case opr *)..
000010: 09 6C 6F 64 3A 09 62 65 67 69 6E 0D 0A 09 09 69 .lod:.begin....i
000020: 66 20 6C 3D 32 35 35 20 74 68 65 6E 20 62 65 67 f l=255 then beg
000030: 69 6E 20 28 2A 20 67 6C 6F 62 61 6C 20 6C 6F 64 in (* global lod
000040: 20 2A 29 0D 0A 09 09 09 63 6F 6F 70 61 64 28 6C *).....coopad(l
000050: 68 6C 64 2C 61 2B 67 6C 72 61 6D 29 3B 0D 0A 09 hld,a+glram);...
000060: 09 09 63 6F 31 62 28 70 75 73 68 68 29 0D 0A 09 ..co1b(pushh)...
000070: 09 09 65 6E 64 20 28 2A 20 67 6C 6F 62 61 6C 20 ..end (* global
000080: 2A 29 0D 0A 09 09 65 6C 73 65 20 62 65 67 69 6E *)....else begin
000090: 20 28 2A 20 69 6E 74 65 72 6D 65 64 69 61 74 65 (* intermediate
0000A0: 20 74 6F 20 6C 6F 63 61 6C 20 2A 29 0D 0A 09 09 to local *)....
0000B0: 09 76 61 72 61 64 72 3B 20 63 6F 34 62 28 6D 6F .varadr; co4b(mo
0000C0: 76 65 6D 2C 20 69 6E 78 68 2C 20 6D 6F 76 64 6D vem, inxh, movdm
0000D0: 2C 20 70 75 73 68 64 29 3B 0D 0A 09 09 09 65 6E , pushd);.....en
0000E0: 64 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 63 61 73 d....end; (* cas
0000F0: 65 20 6C 6F 64 20 2A 29 0D 0A 09 73 74 6F 3A 09 e lod *)...sto:.
000100: 62 65 67 69 6E 0D 0A 09 09 69 66 20 6C 3D 32 35 begin....if l=25
000110: 35 20 74 68 65 6E 20 62 65 67 69 6E 20 28 2A 20 5 then begin (*
000120: 67 6C 6F 62 61 6C 20 73 74 6F 20 2A 29 0D 0A 09 global sto *)...
000130: 09 09 63 6F 31 62 28 70 6F 70 68 29 3B 0D 0A 09 ..co1b(poph);...
000140: 09 09 63 6F 6F 70 61 64 28 73 68 6C 64 2C 61 2B ..coopad(shld,a+
000150: 67 6C 72 61 6D 29 0D 0A 09 09 09 65 6E 64 0D 0A glram).....end..
000160: 09 09 65 6C 73 65 20 62 65 67 69 6E 20 28 2A 20 ..else begin (*
000170: 69 6E 74 65 72 6D 65 64 69 61 74 65 20 74 6F 20 intermediate to
000180: 6C 6F 63 61 6C 20 2A 29 0D 0A 09 09 09 76 61 72 local *).....var
000190: 61 64 72 3B 20 63 6F 34 62 28 70 6F 70 64 2C 20 adr; co4b(popd,
0001A0: 6D 6F 76 6D 65 2C 20 69 6E 78 68 2C 20 6D 6F 76 movme, inxh, mov
0001B0: 6D 64 29 0D 0A 09 09 09 65 6E 64 0D 0A 09 09 65 md).....end....e
0001C0: 6E 64 3B 20 28 2A 20 73 74 6F 20 2A 29 0D 0A 09 nd; (* sto *)...
0001D0: 63 61 6C 3A 09 62 65 67 69 6E 0D 0A 09 09 63 6F cal:.begin....co
0001E0: 6F 70 61 64 28 6C 78 69 64 2C 65 69 65 69 61 64 opad(lxid,eieiad
0001F0: 72 28 61 29 29 3B 0D 0A 09 09 69 66 20 6C 3D 30 r(a));....if l=0
Size : 512 (Real : 512)
000000: 6E 64 3B 20 28 2A 20 61 73 74 6F 20 2A 29 0D 0A nd; (* asto *)..
000010: 09 61 69 6E 64 78 3A 09 62 65 67 69 6E 0D 0A 09 .aindx:.begin...
000020: 09 63 6F 34 62 28 70 6F 70 68 2C 20 64 61 64 68 .co4b(poph, dadh
000030: 2C 20 64 61 64 68 2C 20 64 61 64 68 29 3B 0D 0A , dadh, dadh);..
000040: 09 09 63 6F 33 62 28 70 6F 70 64 2C 20 64 61 64 ..co3b(popd, dad
000050: 64 2C 20 70 75 73 68 68 29 0D 0A 09 09 65 6E 64 d, pushh)....end
000060: 3B 20 28 2A 20 63 61 73 65 20 61 69 6E 64 78 20 ; (* case aindx
000070: 2A 29 0D 0A 09 61 6C 6F 64 69 3A 09 62 65 67 69 *)...alodi:.begi
000080: 6E 20 28 2A 20 61 6C 66 61 20 6C 6F 61 64 20 69 n (* alfa load i
000090: 6E 64 69 72 65 63 74 20 2A 29 0D 0A 09 09 63 6F ndirect *)....co
0000A0: 31 62 28 70 6F 70 68 29 3B 20 63 6F 6F 70 61 64 1b(poph); coopad
0000B0: 28 63 61 6C 6C 2C 73 70 61 6C 6F 64 29 0D 0A 09 (call,spalod)...
0000C0: 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 61 6C .end; (* case al
0000D0: 6F 64 69 20 2A 29 0D 0A 09 61 73 74 6F 69 3A 09 odi *)...astoi:.
0000E0: 62 65 67 69 6E 20 28 2A 20 61 6C 66 61 20 73 74 begin (* alfa st
0000F0: 6F 72 65 20 69 6E 64 69 72 65 63 74 20 2A 29 0D ore indirect *).
000100: 0A 09 09 63 6F 6F 70 61 64 28 6C 78 69 68 2C 38 ...coopad(lxih,8
000110: 29 3B 0D 0A 09 09 63 6F 34 62 28 64 61 64 73 70 );....co4b(dadsp
000120: 2C 20 6D 6F 76 61 6D 2C 20 69 6E 78 68 2C 20 6D , movam, inxh, m
000130: 6F 76 68 6D 29 3B 0D 0A 09 09 63 6F 31 62 28 6D ovhm);....co1b(m
000140: 6F 76 6C 61 29 3B 20 63 6F 6F 70 61 64 28 63 61 ovla); coopad(ca
000150: 6C 6C 2C 73 70 61 73 74 6F 29 3B 0D 0A 09 09 63 ll,spasto);....c
000160: 6F 31 62 28 70 6F 70 68 29 0D 0A 09 09 65 6E 64 o1b(poph)....end
000170: 3B 20 28 2A 20 63 61 73 65 20 61 73 74 6F 69 20 ; (* case astoi
000180: 2A 29 0D 0A 09 61 6C 6F 64 78 3A 09 62 65 67 69 *)...alodx:.begi
000190: 6E 0D 0A 09 09 76 61 72 61 64 72 3B 20 63 6F 33 n....varadr; co3
0001A0: 62 28 70 6F 70 64 2C 20 78 63 68 67 2C 20 64 61 b(popd, xchg, da
0001B0: 64 68 29 3B 0D 0A 09 09 63 6F 33 62 28 64 61 64 dh);....co3b(dad
0001C0: 68 2C 20 64 61 64 68 2C 20 64 61 64 64 29 3B 0D h, dadh, dadd);.
0001D0: 0A 09 09 63 6F 6F 70 61 64 28 63 61 6C 6C 2C 73 ...coopad(call,s
0001E0: 70 61 6C 6F 64 29 0D 0A 09 09 65 6E 64 3B 20 28 palod)....end; (
0001F0: 2A 20 61 6C 6F 64 78 20 2A 29 0D 0A 09 61 73 74 * alodx *)...ast
Size : 512 (Real : 512)
000000: 0D 0A 09 09 09 74 68 65 6E 20 63 6F 6F 70 61 64 .....then coopad
000010: 28 63 61 6C 6C 2C 73 70 63 61 6C 30 29 0D 0A 09 (call,spcal0)...
000020: 09 09 65 6C 73 65 20 62 65 67 69 6E 0D 0A 09 09 ..else begin....
000030: 09 09 63 6F 32 62 28 6D 76 69 61 2C 20 6C 29 3B ..co2b(mvia, l);
000040: 0D 0A 09 09 09 09 63 6F 6F 70 61 64 28 63 61 6C ......coopad(cal
000050: 6C 2C 73 70 63 61 6C 29 0D 0A 09 09 09 09 65 6E l,spcal)......en
000060: 64 3B 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 63 61 d;....end; (* ca
000070: 6C 20 2A 29 0D 0A 09 69 6E 74 3A 09 62 65 67 69 l *)...int:.begi
000080: 6E 0D 0A 09 09 69 66 20 28 61 3E 3D 30 2D 34 29 n....if (a>=0-4)
000090: 20 61 6E 64 20 28 61 3C 3D 34 29 20 74 68 65 6E and (a<=4) then
0000A0: 20 62 65 67 69 6E 0D 0A 09 09 09 66 6F 72 20 74 begin.....for t
0000B0: 72 61 6E 73 69 3A 3D 20 31 20 74 6F 20 61 20 64 ransi:= 1 to a d
0000C0: 6F 0D 0A 09 09 09 09 63 6F 31 62 28 64 63 78 73 o......co1b(dcxs
0000D0: 70 29 3B 0D 0A 09 09 09 66 6F 72 20 74 72 61 6E p);.....for tran
0000E0: 73 69 3A 3D 20 30 2D 31 20 64 6F 77 6E 74 6F 20 si:= 0-1 downto
0000F0: 61 20 64 6F 0D 0A 09 09 09 09 63 6F 31 62 28 69 a do......co1b(i
000100: 6E 78 73 70 29 0D 0A 09 09 09 65 6E 64 0D 0A 09 nxsp).....end...
000110: 09 65 6C 73 65 20 62 65 67 69 6E 0D 0A 09 09 09 .else begin.....
000120: 63 6F 6F 70 61 64 28 6C 78 69 68 2C 30 2D 61 29 coopad(lxih,0-a)
000130: 3B 0D 0A 09 09 09 63 6F 32 62 28 64 61 64 73 70 ;.....co2b(dadsp
000140: 2C 20 73 70 68 6C 29 0D 0A 09 09 09 65 6E 64 0D , sphl).....end.
000150: 0A 09 09 65 6E 64 3B 20 28 2A 20 69 6E 74 20 2A ...end; (* int *
000160: 29 0D 0A 09 6A 75 6D 70 3A 09 62 65 67 69 6E 0D )...jump:.begin.
000170: 0A 09 09 63 6F 6F 70 61 64 28 6A 6D 70 2C 65 69 ...coopad(jmp,ei
000180: 65 69 61 64 72 28 61 29 29 0D 0A 09 09 65 6E 64 eiadr(a))....end
000190: 3B 20 28 2A 20 6A 75 6D 70 20 2A 29 0D 0A 09 6A ; (* jump *)...j
0001A0: 70 63 3A 09 62 65 67 69 6E 0D 0A 09 09 63 61 73 pc:.begin....cas
0001B0: 65 20 6C 66 6C 20 6F 66 0D 0A 09 09 69 66 6E 7A e lfl of....ifnz
0001C0: 3A 09 63 6F 6F 70 61 64 28 6A 6E 7A 2C 65 69 65 :.coopad(jnz,eie
0001D0: 69 61 64 72 28 61 29 29 3B 0D 0A 09 09 69 66 7A iadr(a));....ifz
0001E0: 3A 09 63 6F 6F 70 61 64 28 6A 7A 2C 65 69 65 69 :.coopad(jz,eiei
0001F0: 61 64 72 28 61 29 29 3B 0D 0A 09 09 69 66 63 7A adr(a));....ifcz
Size : 512 (Real : 512)
000000: 6F 78 3A 09 62 65 67 69 6E 0D 0A 09 09 76 61 72 ox:.begin....var
000010: 61 64 72 3B 20 63 6F 31 62 28 78 63 68 67 29 3B adr; co1b(xchg);
000020: 20 63 6F 6F 70 61 64 28 6C 78 69 68 2C 38 29 3B coopad(lxih,8);
000030: 0D 0A 09 09 63 6F 34 62 28 64 61 64 73 70 2C 20 ....co4b(dadsp,
000040: 6D 6F 76 61 6D 2C 20 69 6E 78 68 2C 20 6D 6F 76 movam, inxh, mov
000050: 68 6D 29 3B 0D 0A 09 09 63 6F 33 62 28 6D 6F 76 hm);....co3b(mov
000060: 6C 61 2C 20 64 61 64 68 2C 20 64 61 64 68 29 3B la, dadh, dadh);
000070: 0D 0A 09 09 63 6F 32 62 28 64 61 64 68 2C 20 64 ....co2b(dadh, d
000080: 61 64 64 29 3B 20 63 6F 6F 70 61 64 28 63 61 6C add); coopad(cal
000090: 6C 2C 73 70 61 73 74 6F 29 3B 0D 0A 09 09 63 6F l,spasto);....co
0000A0: 31 62 28 70 6F 70 68 29 0D 0A 09 09 65 6E 64 3B 1b(poph)....end;
0000B0: 20 28 2A 20 63 61 73 65 20 61 73 74 6F 78 20 2A (* case astox *
0000C0: 29 0D 0A 09 6C 61 61 3A 09 62 65 67 69 6E 0D 0A )...laa:.begin..
0000D0: 09 09 76 61 72 61 64 72 3B 20 63 6F 31 62 28 70 ..varadr; co1b(p
0000E0: 75 73 68 68 29 0D 0A 09 09 65 6E 64 3B 20 28 2A ushh)....end; (*
0000F0: 20 63 61 73 65 20 6C 61 61 20 2A 29 0D 0A 09 6C case laa *)...l
000100: 6F 64 69 3A 09 62 65 67 69 6E 20 28 2A 20 6C 6F odi:.begin (* lo
000110: 61 64 20 77 6F 72 64 20 69 6E 64 69 72 65 63 74 ad word indirect
000120: 20 2A 29 0D 0A 09 09 63 6F 34 62 28 70 6F 70 68 *)....co4b(poph
000130: 2C 6D 6F 76 65 6D 2C 69 6E 78 68 2C 6D 6F 76 64 ,movem,inxh,movd
000140: 6D 29 3B 0D 0A 09 09 63 6F 31 62 28 70 75 73 68 m);....co1b(push
000150: 64 29 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 63 61 d)....end; (* ca
000160: 73 65 20 6C 6F 64 69 20 2A 29 0D 0A 09 73 74 6F se lodi *)...sto
000170: 69 3A 09 62 65 67 69 6E 20 28 2A 20 73 74 6F 72 i:.begin (* stor
000180: 65 20 77 6F 72 64 20 69 6E 64 69 72 65 63 74 20 e word indirect
000190: 2A 29 0D 0A 09 09 63 6F 34 62 28 70 6F 70 64 2C *)....co4b(popd,
0001A0: 70 6F 70 68 2C 6D 6F 76 6D 65 2C 69 6E 78 68 29 poph,movme,inxh)
0001B0: 3B 0D 0A 09 09 63 6F 31 62 28 6D 6F 76 6D 64 29 ;....co1b(movmd)
0001C0: 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 ....end; (* case
0001D0: 20 73 74 6F 69 20 2A 29 0D 0A 09 70 65 6F 66 3A stoi *)...peof:
0001E0: 09 62 65 67 69 6E 20 28 2A 20 64 6F 20 6E 6F 74 .begin (* do not
0001F0: 68 69 6E 67 20 2A 29 0D 0A 09 09 65 6E 64 20 28 hing *)....end (
Size : 512 (Real : 512)
000000: 3A 09 62 65 67 69 6E 0D 0A 09 09 09 63 6F 6F 70 :.begin.....coop
000010: 61 64 28 6A 63 2C 65 69 65 69 61 64 72 28 61 29 ad(jc,eieiadr(a)
000020: 29 3B 0D 0A 09 09 09 63 6F 6F 70 61 64 28 6A 7A );.....coopad(jz
000030: 2C 65 69 65 69 61 64 72 28 61 29 29 0D 0A 09 09 ,eieiadr(a))....
000040: 09 65 6E 64 3B 20 28 2A 20 69 66 63 7A 20 2A 29 .end; (* ifcz *)
000050: 0D 0A 09 09 69 66 7A 6E 63 3A 09 62 65 67 69 6E ....ifznc:.begin
000060: 0D 0A 09 09 09 63 6F 6F 70 61 64 28 6A 7A 2C 63 .....coopad(jz,c
000070: 6F 61 2B 36 29 3B 0D 0A 09 09 09 63 6F 6F 70 61 oa+6);.....coopa
000080: 64 28 6A 6E 63 2C 65 69 65 69 61 64 72 28 61 29 d(jnc,eieiadr(a)
000090: 29 0D 0A 09 09 09 65 6E 64 3B 20 28 2A 20 69 66 ).....end; (* if
0000A0: 7A 6E 63 20 2A 29 0D 0A 09 09 69 66 6E 63 3A 09 znc *)....ifnc:.
0000B0: 63 6F 6F 70 61 64 28 6A 6E 63 2C 65 69 65 69 61 coopad(jnc,eieia
0000C0: 64 72 28 61 29 29 3B 0D 0A 09 09 69 66 63 3A 09 dr(a));....ifc:.
0000D0: 63 6F 6F 70 61 64 28 6A 63 2C 65 69 65 69 61 64 coopad(jc,eieiad
0000E0: 72 28 61 29 29 0D 0A 09 09 65 6E 64 20 28 2A 20 r(a))....end (*
0000F0: 63 61 73 65 20 6C 66 6C 20 6F 66 20 2A 29 0D 0A case lfl of *)..
000100: 09 09 65 6E 64 3B 20 28 2A 20 6A 70 63 20 2A 29 ..end; (* jpc *)
000110: 0D 0A 09 70 73 68 66 3A 09 62 65 67 69 6E 0D 0A ...pshf:.begin..
000120: 09 09 66 6C 61 67 74 6F 61 3B 20 63 6F 31 62 28 ..flagtoa; co1b(
000130: 70 75 73 68 70 73 77 29 0D 0A 09 09 65 6E 64 3B pushpsw)....end;
000140: 20 28 2A 20 70 75 73 68 66 20 2A 29 0D 0A 09 63 (* pushf *)...c
000150: 73 70 3A 09 62 65 67 69 6E 0D 0A 09 09 63 6F 32 sp:.begin....co2
000160: 62 28 6D 76 69 61 2C 20 6C 29 3B 0D 0A 09 09 63 b(mvia, l);....c
000170: 6F 6F 70 61 64 28 63 61 6C 6C 2C 63 73 70 62 61 oopad(call,cspba
000180: 73 65 2B 33 2A 61 29 0D 0A 09 09 65 6E 64 3B 20 se+3*a)....end;
000190: 28 2A 20 63 73 70 20 2A 29 0D 0A 09 6C 6F 64 78 (* csp *)...lodx
0001A0: 3A 09 62 65 67 69 6E 0D 0A 09 09 76 61 72 61 64 :.begin....varad
0001B0: 72 3B 20 63 6F 34 62 28 70 6F 70 64 2C 20 64 61 r; co4b(popd, da
0001C0: 64 64 2C 20 64 61 64 64 2C 20 6D 6F 76 65 6D 29 dd, dadd, movem)
0001D0: 3B 0D 0A 09 09 63 6F 33 62 28 69 6E 78 68 2C 20 ;....co3b(inxh,
0001E0: 6D 6F 76 64 6D 2C 20 70 75 73 68 64 29 0D 0A 09 movdm, pushd)...
0001F0: 09 65 6E 64 3B 20 28 2A 20 6C 6F 64 78 20 2A 29 .end; (* lodx *)
Size : 512 (Real : 512)
000000: 2A 20 63 61 73 65 20 70 65 6F 66 20 2A 29 0D 0A * case peof *)..
000010: 09 65 6C 73 65 09 70 75 74 23 31 28 27 62 61 64 .else.put#1('bad
000020: 20 70 2D 6F 70 27 2C 66 23 2C 31 33 2C 31 30 29 p-op',f#,13,10)
000030: 0D 0A 09 65 6E 64 20 28 2A 20 63 61 73 65 20 66 ...end (* case f
000040: 20 6F 66 20 2A 29 0D 0A 09 65 6E 64 3B 20 28 2A of *)...end; (*
000050: 20 74 72 61 6E 73 20 2A 29 0D 0A 0D 0A 70 72 6F trans *)....pro
000060: 63 65 64 75 72 65 20 70 61 73 73 31 32 28 70 73 cedure pass12(ps
000070: 3A 20 77 6F 72 64 29 3B 0D 0A 0D 0A 09 62 65 67 : word);.....beg
000080: 69 6E 0D 0A 09 70 61 73 73 3A 3D 70 73 3B 0D 0A in...pass:=ps;..
000090: 09 63 6F 61 3A 3D 6F 63 6F 64 65 3B 0D 0A 09 72 .coa:=ocode;...r
0000A0: 65 70 65 61 74 0D 0A 09 09 67 65 74 70 63 64 3B epeat....getpcd;
0000B0: 0D 0A 09 09 69 66 20 66 3C 3E 6C 61 62 20 74 68 ....if f<>lab th
0000C0: 65 6E 20 74 72 61 6E 73 0D 0A 09 09 65 6C 73 65 en trans....else
0000D0: 20 69 66 20 70 61 73 73 3D 31 20 74 68 65 6E 0D if pass=1 then.
0000E0: 0A 09 09 09 09 69 66 20 61 3E 6E 6C 61 62 20 74 .....if a>nlab t
0000F0: 68 65 6E 20 70 75 74 23 31 28 27 2A 6C 62 20 6F hen put#1('*lb o
000100: 76 65 72 27 29 0D 0A 09 09 09 09 65 6C 73 65 20 ver')......else
000110: 61 64 72 5B 61 5D 3A 3D 63 6F 61 0D 0A 09 09 09 adr[a]:=coa.....
000120: 65 6C 73 65 20 28 2A 20 70 61 73 73 20 3D 20 32 else (* pass = 2
000130: 20 2A 29 0D 0A 09 09 09 09 69 66 20 61 64 72 5B *)......if adr[
000140: 61 5D 3C 3E 63 6F 61 20 74 68 65 6E 0D 0A 09 09 a]<>coa then....
000150: 09 09 09 70 75 74 23 31 28 27 50 68 61 73 65 20 ...put#1('Phase
000160: 65 72 27 2C 0D 0A 09 09 09 09 09 27 72 6F 72 20 er',.......'ror
000170: 20 20 20 50 27 2C 61 23 29 0D 0A 09 75 6E 74 69 P',a#)...unti
000180: 6C 20 66 3D 70 65 6F 66 3B 0D 0A 09 69 66 20 70 l f=peof;...if p
000190: 61 73 73 3D 31 20 74 68 65 6E 20 67 6C 72 61 6D ass=1 then glram
0001A0: 3A 3D 63 6F 61 0D 0A 09 65 6E 64 3B 20 28 2A 20 :=coa...end; (*
0001B0: 70 61 73 73 31 32 20 2A 29 0D 0A 0D 0A 62 65 67 pass12 *)....beg
0001C0: 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 6E 65 20 in (* main line
0001D0: 2A 29 0D 0A 09 28 2A 20 7A 65 72 6F 20 61 6C 6C *)...(* zero all
0001E0: 20 61 64 64 72 65 73 73 65 73 20 66 6F 72 20 75 addresses for u
0001F0: 6E 64 65 66 69 6E 65 64 20 6C 61 62 65 6C 20 64 ndefined label d
Size : 512 (Real : 512)
000000: 0D 0A 09 73 74 6F 78 3A 09 62 65 67 69 6E 0D 0A ...stox:.begin..
000010: 09 09 76 61 72 61 64 72 3B 20 63 6F 34 62 28 70 ..varadr; co4b(p
000020: 6F 70 64 2C 20 70 6F 70 62 2C 20 64 61 64 62 2C opd, popb, dadb,
000030: 20 64 61 64 62 29 3B 0D 0A 09 09 63 6F 33 62 28 dadb);....co3b(
000040: 6D 6F 76 6D 65 2C 20 69 6E 78 68 2C 20 6D 6F 76 movme, inxh, mov
000050: 6D 64 29 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 73 md)....end; (* s
000060: 74 6F 78 20 2A 29 0D 0A 09 69 6E 64 78 3A 09 62 tox *)...indx:.b
000070: 65 67 69 6E 20 28 2A 20 69 6E 64 65 78 20 77 6F egin (* index wo
000080: 72 64 20 61 72 72 61 79 20 2A 29 0D 0A 09 09 63 rd array *)....c
000090: 6F 34 62 28 70 6F 70 68 2C 20 64 61 64 68 2C 20 o4b(poph, dadh,
0000A0: 70 6F 70 64 2C 20 64 61 64 64 29 3B 0D 0A 09 09 popd, dadd);....
0000B0: 63 6F 31 62 28 70 75 73 68 68 29 0D 0A 09 09 65 co1b(pushh)....e
0000C0: 6E 64 3B 20 28 2A 20 63 61 73 65 20 69 6E 64 78 nd; (* case indx
0000D0: 20 2A 29 0D 0A 09 63 6C 6F 64 3A 09 62 65 67 69 *)...clod:.begi
0000E0: 6E 0D 0A 09 09 76 61 72 61 64 72 3B 20 63 6F 33 n....varadr; co3
0000F0: 62 28 6D 6F 76 64 6D 2C 20 70 75 73 68 64 2C 20 b(movdm, pushd,
000100: 69 6E 78 73 70 29 3B 0D 0A 09 09 65 6E 64 3B 20 inxsp);....end;
000110: 28 2A 20 63 6C 6F 64 20 2A 29 0D 0A 09 63 73 74 (* clod *)...cst
000120: 6F 3A 09 62 65 67 69 6E 0D 0A 09 09 76 61 72 61 o:.begin....vara
000130: 64 72 3B 20 63 6F 33 62 28 70 6F 70 64 2C 20 64 dr; co3b(popd, d
000140: 63 78 73 70 2C 20 6D 6F 76 6D 65 29 0D 0A 09 09 cxsp, movme)....
000150: 65 6E 64 3B 20 28 2A 20 63 73 74 6F 20 2A 29 0D end; (* csto *).
000160: 0A 09 63 6C 6F 64 69 3A 09 62 65 67 69 6E 20 28 ..clodi:.begin (
000170: 2A 20 63 68 61 72 61 63 74 65 72 20 6C 6F 61 64 * character load
000180: 20 69 6E 64 69 72 65 63 74 20 2A 29 0D 0A 09 09 indirect *)....
000190: 63 6F 34 62 28 70 6F 70 68 2C 20 6D 6F 76 64 6D co4b(poph, movdm
0001A0: 2C 20 70 75 73 68 64 2C 20 69 6E 78 73 70 29 0D , pushd, inxsp).
0001B0: 0A 09 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 ...end; (* case
0001C0: 63 6C 6F 64 69 20 2A 29 0D 0A 09 63 73 74 6F 69 clodi *)...cstoi
0001D0: 3A 09 62 65 67 69 6E 20 28 2A 20 63 68 61 72 61 :.begin (* chara
0001E0: 63 74 65 72 20 73 74 6F 72 65 20 69 6E 64 69 72 cter store indir
0001F0: 65 63 74 20 2A 29 0D 0A 09 09 63 6F 34 62 28 70 ect *)....co4b(p
Size : 512 (Real : 512)
000000: 65 74 65 63 74 69 6F 6E 20 2A 29 0D 0A 09 28 2A etection *)...(*
000010: 20 75 73 65 20 63 69 78 20 61 73 20 74 65 6D 70 use cix as temp
000020: 20 69 6E 64 65 78 20 2A 29 0D 0A 09 70 75 74 23 index *)...put#
000030: 31 28 27 70 66 65 74 20 72 65 76 27 2C 27 20 27 1('pfet rev',' '
000040: 2C 76 68 75 23 2C 27 2E 27 2C 76 74 6E 23 2C 76 ,vhu#,'.',vtn#,v
000050: 75 6E 23 2C 64 65 76 72 65 6C 2C 31 33 2C 31 30 un#,devrel,13,10
000060: 29 3B 0D 0A 09 66 6F 72 20 63 69 78 3A 3D 30 20 );...for cix:=0
000070: 74 6F 20 6E 6C 61 62 20 64 6F 20 61 64 72 5B 63 to nlab do adr[c
000080: 69 78 5D 3A 3D 30 3B 0D 0A 09 63 69 78 3A 3D 30 ix]:=0;...cix:=0
000090: 3B 0D 0A 09 70 75 74 23 31 28 27 50 61 73 73 20 ;...put#1('Pass
0000A0: 31 20 20 27 2C 31 33 2C 31 30 29 3B 0D 0A 09 70 1 ',13,10);...p
0000B0: 61 73 73 31 32 28 31 29 3B 0D 0A 09 70 75 74 23 ass12(1);...put#
0000C0: 31 28 63 69 78 23 2C 27 20 70 2D 63 6F 64 65 73 1(cix#,' p-codes
0000D0: 27 2C 20 27 20 72 65 61 64 20 20 20 27 2C 31 33 ', ' read ',13
0000E0: 2C 31 30 29 3B 0D 0A 09 63 78 3A 3D 30 3B 0D 0A ,10);...cx:=0;..
0000F0: 09 70 75 74 23 31 28 27 50 61 73 73 20 32 20 20 .put#1('Pass 2
000100: 27 2C 31 33 2C 31 30 29 3B 0D 0A 09 70 61 73 73 ',13,10);...pass
000110: 31 32 28 32 29 3B 0D 0A 09 70 75 74 23 31 28 27 12(2);...put#1('
000120: 64 6F 6E 65 21 20 20 20 27 2C 31 33 2C 31 30 29 done! ',13,10)
000130: 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A ..end...........
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 6C 20 66 3D 70 65 6F 66 3B 0D 0A 09 69 66 20 70 l f=peof;...if p
000190: 61 73 73 3D 31 20 74 68 65 6E 20 67 6C 72 61 6D ass=1 then glram
0001A0: 3A 3D 63 6F 61 0D 0A 09 65 6E 64 3B 20 28 2A 20 :=coa...end; (*
0001B0: 70 61 73 73 31 32 20 2A 29 0D 0A 0D 0A 62 65 67 pass12 *)....beg
0001C0: 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 6E 65 20 in (* main line
0001D0: 2A 29 0D 0A 09 28 2A 20 7A 65 72 6F 20 61 6C 6C *)...(* zero all
0001E0: 20 61 64 64 72 65 73 73 65 73 20 66 6F 72 20 75 addresses for u
0001F0: 6E 64 65 66 69 6E 65 64 20 6C 61 62 65 6C 20 64 ndefined label d
Size : 512 (Real : 512)
000000: 6F 70 64 2C 20 64 63 78 73 70 2C 20 70 6F 70 68 opd, dcxsp, poph
000010: 2C 20 6D 6F 76 6D 65 29 0D 0A 09 09 65 6E 64 3B , movme)....end;
000020: 20 28 2A 20 63 61 73 65 20 63 73 74 6F 69 20 2A (* case cstoi *
000030: 29 0D 0A 09 63 69 6E 64 78 3A 09 62 65 67 69 6E )...cindx:.begin
000040: 20 28 2A 20 63 68 61 72 61 63 74 65 72 20 61 72 (* character ar
000050: 72 61 79 20 69 6E 64 65 78 20 2A 29 0D 0A 09 09 ray index *)....
000060: 63 6F 34 62 28 70 6F 70 68 2C 20 70 6F 70 64 2C co4b(poph, popd,
000070: 20 64 61 64 64 2C 20 70 75 73 68 68 29 0D 0A 09 dadd, pushh)...
000080: 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 63 69 .end; (* case ci
000090: 6E 64 78 20 2A 29 0D 0A 09 63 6C 6F 64 78 3A 09 ndx *)...clodx:.
0000A0: 62 65 67 69 6E 0D 0A 09 09 76 61 72 61 64 72 3B begin....varadr;
0000B0: 20 63 6F 33 62 28 70 6F 70 64 2C 20 64 61 64 64 co3b(popd, dadd
0000C0: 2C 20 6D 6F 76 65 6D 29 3B 0D 0A 09 09 63 6F 33 , movem);....co3
0000D0: 62 28 6D 76 69 64 2C 20 30 2C 20 70 75 73 68 64 b(mvid, 0, pushd
0000E0: 29 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 63 6C 6F )....end; (* clo
0000F0: 64 78 20 2A 29 0D 0A 09 63 73 74 6F 78 3A 09 62 dx *)...cstox:.b
000100: 65 67 69 6E 0D 0A 09 09 76 61 72 61 64 72 3B 20 egin....varadr;
000110: 63 6F 34 62 28 70 6F 70 64 2C 20 70 6F 70 62 2C co4b(popd, popb,
000120: 20 64 61 64 62 2C 20 6D 6F 76 6D 65 29 0D 0A 09 dadb, movme)...
000130: 09 65 6E 64 3B 20 28 2A 20 63 73 74 6F 78 20 2A .end; (* cstox *
000140: 29 0D 0A 09 61 6C 69 74 3A 09 62 65 67 69 6E 0D )...alit:.begin.
000150: 0A 09 09 63 6F 6F 70 61 64 28 63 61 6C 6C 2C 73 ...coopad(call,s
000160: 70 61 6C 69 74 29 3B 0D 0A 09 09 67 65 74 70 63 palit);....getpc
000170: 64 3B 20 64 77 32 3B 0D 0A 09 09 67 65 74 70 63 d; dw2;....getpc
000180: 64 3B 20 64 77 32 0D 0A 09 09 65 6E 64 3B 0D 0A d; dw2....end;..
000190: 09 61 6C 6F 64 3A 09 62 65 67 69 6E 0D 0A 09 09 .alod:.begin....
0001A0: 76 61 72 61 64 72 3B 20 63 6F 6F 70 61 64 28 63 varadr; coopad(c
0001B0: 61 6C 6C 2C 73 70 61 6C 6F 64 29 0D 0A 09 09 65 all,spalod)....e
0001C0: 6E 64 3B 20 28 2A 20 61 6C 6F 64 20 2A 29 0D 0A nd; (* alod *)..
0001D0: 09 61 73 74 6F 3A 09 62 65 67 69 6E 0D 0A 09 09 .asto:.begin....
0001E0: 76 61 72 61 64 72 3B 20 63 6F 6F 70 61 64 28 63 varadr; coopad(c
0001F0: 61 6C 6C 2C 73 70 61 73 74 6F 29 0D 0A 09 09 65 all,spasto)....e
Size : 512 (Real : 512)
000000: 30 32 35 31 31 33 31 31 31 33 30 32 35 31 32 32 0251131113025122
000010: 32 31 33 32 31 36 31 31 31 31 32 30 32 32 32 32 2132161111202222
000020: 32 32 30 32 32 32 32 32 32 32 0D 0A 1A 1A 1A 1A 2202222222......
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 69 78 5D 3A 3D 30 3B 0D 0A 09 63 69 78 3A 3D 30 ix]:=0;...cix:=0
000090: 3B 0D 0A 09 70 75 74 23 31 28 27 50 61 73 73 20 ;...put#1('Pass
0000A0: 31 20 20 27 2C 31 33 2C 31 30 29 3B 0D 0A 09 70 1 ',13,10);...p
0000B0: 61 73 73 31 32 28 31 29 3B 0D 0A 09 70 75 74 23 ass12(1);...put#
0000C0: 31 28 63 69 78 23 2C 27 20 70 2D 63 6F 64 65 73 1(cix#,' p-codes
0000D0: 27 2C 20 27 20 72 65 61 64 20 20 20 27 2C 31 33 ', ' read ',13
0000E0: 2C 31 30 29 3B 0D 0A 09 63 78 3A 3D 30 3B 0D 0A ,10);...cx:=0;..
0000F0: 09 70 75 74 23 31 28 27 50 61 73 73 20 32 20 20 .put#1('Pass 2
000100: 27 2C 31 33 2C 31 30 29 3B 0D 0A 09 70 61 73 73 ',13,10);...pass
000110: 31 32 28 32 29 3B 0D 0A 09 70 75 74 23 31 28 27 12(2);...put#1('
000120: 64 6F 6E 65 21 20 20 20 27 2C 31 33 2C 31 30 29 done! ',13,10)
000130: 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A ..end...........
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 6C 20 66 3D 70 65 6F 66 3B 0D 0A 09 69 66 20 70 l f=peof;...if p
000190: 61 73 73 3D 31 20 74 68 65 6E 20 67 6C 72 61 6D ass=1 then glram
0001A0: 3A 3D 63 6F 61 0D 0A 09 65 6E 64 3B 20 28 2A 20 :=coa...end; (*
0001B0: 70 61 73 73 31 32 20 2A 29 0D 0A 0D 0A 62 65 67 pass12 *)....beg
0001C0: 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 6E 65 20 in (* main line
0001D0: 2A 29 0D 0A 09 28 2A 20 7A 65 72 6F 20 61 6C 6C *)...(* zero all
0001E0: 20 61 64 64 72 65 73 73 65 73 20 66 6F 72 20 75 addresses for u
0001F0: 6E 64 65 66 69 6E 65 64 20 6C 61 62 65 6C 20 64 ndefined label d
Size : 512 (Real : 512)
000000: 20 70 72 6F 63 65 64 75 72 65 20 73 65 74 62 64 procedure setbd
000010: 20 2A 29 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 *)....function
000020: 6D 69 6E 28 78 2C 20 79 20 3A 20 69 6E 74 65 67 min(x, y : integ
000030: 65 72 29 3B 0D 0A 0D 0A 20 20 20 62 65 67 69 6E er);.... begin
000040: 0D 0A 20 20 20 69 66 20 28 78 3C 79 29 0D 0A 20 .. if (x<y)..
000050: 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 6D 69 then.. mi
000060: 6E 3A 3D 78 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 n:=x.. else..
000070: 20 20 20 20 20 6D 69 6E 3A 3D 79 0D 0A 20 20 20 min:=y..
000080: 65 6E 64 3B 20 28 2A 20 66 75 6E 63 74 69 6F 6E end; (* function
000090: 20 6D 69 6E 20 2A 29 0D 0A 0D 0A 66 75 6E 63 74 min *)....funct
0000A0: 69 6F 6E 20 6D 61 78 28 78 2C 20 79 20 3A 20 69 ion max(x, y : i
0000B0: 6E 74 65 67 65 72 29 3B 0D 0A 0D 0A 20 20 20 62 nteger);.... b
0000C0: 65 67 69 6E 0D 0A 20 20 20 69 66 20 28 78 3E 79 egin.. if (x>y
0000D0: 29 0D 0A 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 ).. then..
0000E0: 20 20 6D 61 78 3A 3D 78 0D 0A 20 20 20 65 6C 73 max:=x.. els
0000F0: 65 0D 0A 20 20 20 20 20 20 6D 61 78 3A 3D 79 0D e.. max:=y.
000100: 0A 20 20 20 65 6E 64 3B 20 28 2A 20 66 75 6E 63 . end; (* func
000110: 74 69 6F 6E 20 6D 61 78 20 2A 29 0D 0A 0D 0A 70 tion max *)....p
000120: 72 6F 63 65 64 75 72 65 20 67 65 74 72 6F 6F 74 rocedure getroot
000130: 3B 0D 0A 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 ;.... begin..
000140: 20 20 67 65 74 23 30 28 63 68 29 3B 20 73 65 74 get#0(ch); set
000150: 62 64 28 31 2C 20 72 6C 65 66 74 20 20 2C 63 68 bd(1, rleft ,ch
000160: 2D 27 30 27 29 3B 0D 0A 20 20 20 67 65 74 23 30 -'0');.. get#0
000170: 28 63 68 29 3B 20 73 65 74 62 64 28 31 2C 20 72 (ch); setbd(1, r
000180: 72 69 67 68 74 20 2C 63 68 2D 27 30 27 29 3B 0D right ,ch-'0');.
000190: 0A 20 20 20 67 65 74 23 30 28 63 68 29 3B 20 73 . get#0(ch); s
0001A0: 65 74 62 64 28 31 2C 20 72 6B 61 6C 20 20 20 2C etbd(1, rkal ,
0001B0: 63 68 2D 27 30 27 29 3B 0D 0A 20 20 20 67 65 74 ch-'0');.. get
0001C0: 23 30 28 63 68 29 3B 20 73 65 74 62 64 28 31 2C #0(ch); setbd(1,
0001D0: 20 62 6C 65 66 74 20 20 2C 63 68 2D 27 30 27 29 bleft ,ch-'0')
0001E0: 3B 0D 0A 20 20 20 67 65 74 23 30 28 63 68 29 3B ;.. get#0(ch);
0001F0: 20 73 65 74 62 64 28 31 2C 20 62 72 69 67 68 74 setbd(1, bright
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 2C 63 68 2D 27 30 27 29 3B 0D 0A 20 20 20 67 ,ch-'0');.. g
000010: 65 74 23 30 28 63 68 29 3B 20 73 65 74 62 64 28 et#0(ch); setbd(
000020: 31 2C 20 62 6B 61 6C 20 20 20 2C 63 68 2D 27 30 1, bkal ,ch-'0
000030: 27 29 3B 0D 0A 20 20 20 67 65 74 23 30 28 63 68 ');.. get#0(ch
000040: 29 3B 20 73 65 74 62 64 28 31 2C 20 74 75 72 6E ); setbd(1, turn
000050: 20 20 20 2C 63 68 2D 27 30 27 29 3B 0D 0A 20 20 ,ch-'0');..
000060: 20 73 65 74 62 64 28 31 2C 20 6F 75 74 63 6F 6D setbd(1, outcom
000070: 20 2C 20 64 72 61 77 29 3B 0D 0A 20 20 20 73 65 , draw);.. se
000080: 74 62 64 28 31 2C 20 62 65 73 70 61 74 20 2C 20 tbd(1, bespat ,
000090: 6F 66 66 62 65 73 70 61 74 29 0D 0A 20 20 20 65 offbespat).. e
0000A0: 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 nd; (* procedure
0000B0: 20 67 65 74 72 6F 6F 74 20 2A 29 0D 0A 0D 0A 70 getroot *)....p
0000C0: 72 6F 63 65 64 75 72 65 20 70 72 74 72 6F 77 28 rocedure prtrow(
0000D0: 72 6F 77 20 3A 20 69 6E 74 65 67 65 72 29 3B 0D row : integer);.
0000E0: 0A 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 ... begin..
0000F0: 70 75 74 23 30 28 31 33 2C 31 30 29 3B 0D 0A 20 put#0(13,10);..
000100: 20 20 70 75 74 23 30 28 27 20 27 2C 20 27 20 27 put#0(' ', ' '
000110: 2C 20 62 6F 61 72 64 28 72 6F 77 2C 20 62 72 69 , board(row, bri
000120: 67 68 74 29 23 2C 0D 0A 20 20 20 20 20 20 20 20 ght)#,..
000130: 20 27 20 27 2C 20 27 20 27 2C 20 62 6F 61 72 64 ' ', ' ', board
000140: 28 72 6F 77 2C 20 62 6C 65 66 74 20 29 23 2C 20 (row, bleft )#,
000150: 31 33 2C 31 30 29 3B 0D 0A 0D 0A 20 20 20 70 75 13,10);.... pu
000160: 74 23 30 28 62 6F 61 72 64 28 72 6F 77 2C 20 62 t#0(board(row, b
000170: 6B 61 6C 29 23 2C 20 27 20 27 29 3B 0D 0A 20 20 kal)#, ' ');..
000180: 20 69 66 20 62 6F 61 72 64 28 72 6F 77 2C 20 6F if board(row, o
000190: 75 74 63 6F 6D 29 3D 72 77 69 6E 0D 0A 20 20 20 utcom)=rwin..
0001A0: 20 20 20 74 68 65 6E 20 70 75 74 23 30 28 27 72 then put#0('r
0001B0: 27 2C 20 27 65 27 2C 20 27 64 27 2C 20 27 20 27 ', 'e', 'd', ' '
0001C0: 29 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 69 66 ).. else if
0001D0: 20 62 6F 61 72 64 28 72 6F 77 2C 20 6F 75 74 63 board(row, outc
0001E0: 6F 6D 29 3D 64 72 61 77 0D 0A 20 20 20 20 20 20 om)=draw..
0001F0: 20 20 20 20 20 20 20 20 74 68 65 6E 20 70 75 74 then put
Size : 512 (Real : 512)
000000: 63 6F 6E 73 74 0D 0A 20 20 20 28 2A 20 27 43 4F const.. (* 'CO
000010: 4E 53 54 41 4E 54 27 20 56 41 52 49 41 42 4C 45 NSTANT' VARIABLE
000020: 53 20 55 53 45 44 20 54 4F 20 52 45 46 45 52 45 S USED TO REFERE
000030: 4E 43 45 20 43 4F 4C 53 20 4F 46 20 42 4F 41 52 NCE COLS OF BOAR
000040: 44 20 2A 29 0D 0A 20 20 20 52 4C 45 46 54 20 20 D *).. RLEFT
000050: 3D 20 30 3B 20 28 2A 20 53 54 4F 4E 45 53 20 49 = 0; (* STONES I
000060: 4E 20 52 45 44 27 53 20 4C 45 46 54 20 50 49 54 N RED'S LEFT PIT
000070: 20 2A 29 0D 0A 20 20 20 52 52 49 47 48 54 20 3D *).. RRIGHT =
000080: 20 31 3B 20 28 2A 20 53 54 4F 4E 45 53 20 49 4E 1; (* STONES IN
000090: 20 52 45 44 27 53 20 52 49 47 48 54 20 50 49 54 RED'S RIGHT PIT
0000A0: 20 2A 29 0D 0A 20 20 20 52 4B 41 4C 20 20 20 3D *).. RKAL =
0000B0: 20 32 3B 20 28 2A 20 53 54 4F 4E 45 53 20 49 4E 2; (* STONES IN
0000C0: 20 52 45 44 27 53 20 4B 41 4C 41 48 20 2A 29 0D RED'S KALAH *).
0000D0: 0A 20 20 20 42 4C 45 46 54 20 20 3D 20 33 3B 20 . BLEFT = 3;
0000E0: 28 2A 20 53 54 4F 4E 45 53 20 49 4E 20 42 4C 55 (* STONES IN BLU
0000F0: 45 27 53 20 4C 45 46 54 20 50 49 54 20 2A 29 0D E'S LEFT PIT *).
000100: 0A 20 20 20 42 52 49 47 48 54 20 3D 20 34 3B 20 . BRIGHT = 4;
000110: 28 2A 20 53 54 4F 4E 45 53 20 49 4E 20 42 4C 55 (* STONES IN BLU
000120: 45 27 53 20 52 49 47 48 54 20 50 49 54 20 2A 29 E'S RIGHT PIT *)
000130: 0D 0A 20 20 20 42 4B 41 4C 20 20 20 3D 20 35 3B .. BKAL = 5;
000140: 20 28 2A 20 53 54 4F 4E 45 53 20 49 4E 20 42 4C (* STONES IN BL
000150: 55 45 27 53 20 4B 41 4C 41 48 20 2A 29 0D 0A 20 UE'S KALAH *)..
000160: 20 20 54 55 52 4E 20 20 20 3D 20 36 3B 20 28 2A TURN = 6; (*
000170: 20 2D 31 20 4D 45 41 4E 53 20 52 45 44 27 53 20 -1 MEANS RED'S
000180: 54 55 52 4E 2C 20 31 20 4D 45 41 4E 53 20 42 4C TURN, 1 MEANS BL
000190: 55 45 27 53 20 54 55 52 4E 20 2A 29 0D 0A 20 20 UE'S TURN *)..
0001A0: 20 4C 53 4F 4E 20 20 20 3D 20 37 3B 20 28 2A 20 LSON = 7; (*
0001B0: 52 4F 57 20 4E 55 4D 42 45 52 20 4F 46 20 4C 45 ROW NUMBER OF LE
0001C0: 46 54 20 53 4F 4E 20 2A 29 0D 0A 20 20 20 52 53 FT SON *).. RS
0001D0: 4F 4E 20 20 20 3D 20 38 3B 20 28 2A 20 52 4F 57 ON = 8; (* ROW
0001E0: 20 4E 55 4D 42 45 52 20 4F 46 20 52 49 47 48 54 NUMBER OF RIGHT
0001F0: 20 53 4F 4E 20 2A 29 0D 0A 20 20 20 42 45 53 50 SON *).. BESP
Size : 512 (Real : 512)
000000: 23 30 28 27 64 27 2C 20 27 72 27 2C 20 27 61 27 #0('d', 'r', 'a'
000010: 2C 20 27 77 27 29 0D 0A 20 20 20 20 20 20 20 20 , 'w')..
000020: 20 20 20 20 20 20 65 6C 73 65 20 70 75 74 23 30 else put#0
000030: 28 27 62 27 2C 20 27 6C 27 2C 20 27 75 27 2C 20 ('b', 'l', 'u',
000040: 27 65 27 29 3B 0D 0A 20 20 20 70 75 74 23 30 28 'e');.. put#0(
000050: 27 20 27 2C 20 62 6F 61 72 64 28 72 6F 77 2C 20 ' ', board(row,
000060: 72 6B 61 6C 29 23 2C 20 27 20 27 29 3B 0D 0A 0D rkal)#, ' ');...
000070: 0A 20 20 20 69 66 20 28 62 6F 61 72 64 28 72 6F . if (board(ro
000080: 77 2C 20 62 65 73 70 61 74 29 3D 6F 6E 62 65 73 w, bespat)=onbes
000090: 70 61 74 29 0D 0A 20 20 20 74 68 65 6E 0D 0A 20 pat).. then..
0000A0: 20 20 20 20 20 70 75 74 23 30 28 27 74 68 69 73 put#0('this
0000B0: 20 62 6F 61 27 2C 0D 0A 20 20 20 20 20 20 20 20 boa',..
0000C0: 20 20 20 20 27 72 64 20 69 73 20 6F 6E 27 2C 0D 'rd is on',.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 27 20 74 . ' t
0000E0: 68 65 20 62 65 73 27 2C 0D 0A 20 20 20 20 20 20 he bes',..
0000F0: 20 20 20 20 20 20 27 74 20 70 6F 73 73 69 62 27 't possib'
000100: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 27 ,.. '
000110: 6C 65 20 70 61 74 68 2E 27 29 3B 0D 0A 20 20 20 le path.');..
000120: 70 75 74 23 30 28 31 33 2C 31 30 29 3B 0D 0A 0D put#0(13,10);...
000130: 0A 20 20 20 70 75 74 23 30 28 27 20 27 2C 20 27 . put#0(' ', '
000140: 20 27 2C 20 62 6F 61 72 64 28 72 6F 77 2C 20 72 ', board(row, r
000150: 6C 65 66 74 20 29 23 2C 0D 0A 20 20 20 20 20 20 left )#,..
000160: 20 20 20 27 20 27 2C 20 27 20 27 2C 20 62 6F 61 ' ', ' ', boa
000170: 72 64 28 72 6F 77 2C 20 72 72 69 67 68 74 29 23 rd(row, rright)#
000180: 2C 20 31 33 2C 31 30 29 0D 0A 20 20 20 65 6E 64 , 13,10).. end
000190: 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 70 ; (* procedure p
0001A0: 72 74 72 6F 77 20 2A 29 0D 0A 0D 0A 70 72 6F 63 rtrow *)....proc
0001B0: 65 64 75 72 65 20 63 6F 6D 70 63 6F 6E 66 28 66 edure compconf(f
0001C0: 61 74 68 65 72 2C 20 73 6F 6E 2C 20 73 6F 75 72 ather, son, sour
0001D0: 63 70 69 74 20 3A 20 69 6E 74 65 67 65 72 29 3B cpit : integer);
0001E0: 0D 0A 0D 0A 20 20 20 76 61 72 0D 0A 20 20 20 20 .... var..
0001F0: 20 20 73 6F 77 6F 70 70 2C 0D 0A 20 20 20 20 20 sowopp,..
Size : 512 (Real : 512)
000000: 41 54 20 3D 20 39 3B 20 28 2A 20 31 20 4D 45 41 AT = 9; (* 1 MEA
000010: 4E 53 20 4F 4E 20 42 45 53 54 20 50 41 54 48 2C NS ON BEST PATH,
000020: 20 30 20 49 46 20 4E 4F 54 20 2A 29 0D 0A 20 20 0 IF NOT *)..
000030: 20 4F 55 54 43 4F 4D 20 3D 20 31 30 3B 20 28 2A OUTCOM = 10; (*
000040: 20 30 20 4D 45 41 4E 53 20 62 6C 75 65 20 57 49 0 MEANS blue WI
000050: 4E 2C 20 31 20 4D 45 41 4E 53 20 44 52 41 57 2C N, 1 MEANS DRAW,
000060: 20 32 20 4D 45 41 4E 53 20 72 65 64 20 57 49 4E 2 MEANS red WIN
000070: 20 2A 29 0D 0A 20 20 20 6E 63 6F 6C 73 20 20 3D *).. ncols =
000080: 20 31 31 3B 20 28 2A 20 6E 75 6D 62 65 72 20 6F 11; (* number o
000090: 66 20 63 6F 6C 75 6D 6E 73 20 69 6E 20 62 64 20 f columns in bd
0000A0: 6D 61 74 72 69 78 20 2A 29 0D 0A 20 20 20 72 77 matrix *).. rw
0000B0: 69 6E 20 20 20 3D 20 32 3B 20 20 28 2A 20 6F 75 in = 2; (* ou
0000C0: 74 63 6F 6D 20 76 61 6C 75 65 20 66 6F 72 20 72 tcom value for r
0000D0: 65 64 20 20 77 69 6E 20 2A 29 0D 0A 20 20 20 64 ed win *).. d
0000E0: 72 61 77 20 20 20 3D 20 31 3B 20 20 28 2A 20 6F raw = 1; (* o
0000F0: 75 74 63 6F 6D 20 76 61 6C 75 65 20 66 6F 72 20 utcom value for
000100: 64 72 61 77 20 2A 29 0D 0A 20 20 20 62 77 69 6E draw *).. bwin
000110: 20 20 20 3D 20 30 3B 20 20 28 2A 20 6F 75 74 63 = 0; (* outc
000120: 6F 6D 20 76 61 6C 75 65 20 66 6F 72 20 62 6C 75 om value for blu
000130: 65 20 77 69 6E 20 2A 29 0D 0A 20 20 20 72 74 75 e win *).. rtu
000140: 72 6E 20 20 3D 20 30 3B 20 20 28 2A 20 74 75 72 rn = 0; (* tur
000150: 6E 20 76 61 6C 75 65 20 66 6F 72 20 72 65 64 27 n value for red'
000160: 73 20 20 74 75 72 6E 20 2A 29 0D 0A 20 20 20 62 s turn *).. b
000170: 74 75 72 6E 20 20 3D 20 31 3B 20 20 28 2A 20 74 turn = 1; (* t
000180: 75 72 6E 20 76 61 6C 75 65 20 66 6F 72 20 62 6C urn value for bl
000190: 75 65 27 73 20 74 75 72 6E 20 2A 29 0D 0A 20 20 ue's turn *)..
0001A0: 20 6C 65 66 74 20 20 20 3D 20 30 3B 20 20 28 2A left = 0; (*
0001B0: 20 6D 6F 76 65 20 66 72 6F 6D 20 6C 65 66 74 20 move from left
0001C0: 20 70 69 74 20 2A 29 0D 0A 20 20 20 72 69 67 68 pit *).. righ
0001D0: 74 20 20 3D 20 31 3B 20 20 28 2A 20 6D 6F 76 65 t = 1; (* move
0001E0: 20 66 72 6F 6D 20 72 69 67 68 74 20 70 69 74 20 from right pit
0001F0: 2A 29 0D 0A 20 20 20 6F 66 66 62 65 73 70 61 74 *).. offbespat
Size : 512 (Real : 512)
000000: 20 6D 6F 76 69 6E 67 20 3A 20 62 6F 6F 6C 65 61 moving : boolea
000010: 6E 3B 0D 0A 20 20 20 20 20 20 66 72 6F 6D 70 69 n;.. frompi
000020: 74 2C 0D 0A 20 20 20 20 20 20 74 6F 70 69 74 2C t,.. topit,
000030: 0D 0A 20 20 20 20 20 20 73 6F 77 73 74 6F 6E 2C .. sowston,
000040: 0D 0A 20 20 20 20 20 20 70 74 75 72 6E 2C 20 20 .. pturn,
000050: 28 2A 20 72 74 75 72 6E 20 69 66 20 72 65 64 20 (* rturn if red
000060: 70 6C 61 79 65 72 73 20 74 75 72 6E 2C 20 62 74 players turn, bt
000070: 75 72 6E 20 6F 74 68 65 72 77 69 73 65 20 2A 29 urn otherwise *)
000080: 0D 0A 20 20 20 20 20 20 69 20 20 20 20 20 20 3A .. i :
000090: 20 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 20 integer;....
0000A0: 62 65 67 69 6E 0D 0A 20 20 20 70 74 75 72 6E 3A begin.. pturn:
0000B0: 3D 62 6F 61 72 64 28 66 61 74 68 65 72 2C 20 74 =board(father, t
0000C0: 75 72 6E 29 3B 0D 0A 20 20 20 69 66 20 28 70 74 urn);.. if (pt
0000D0: 75 72 6E 3D 62 74 75 72 6E 29 20 74 68 65 6E 0D urn=bturn) then.
0000E0: 0A 20 20 20 20 20 20 69 66 20 28 73 6F 75 72 63 . if (sourc
0000F0: 70 69 74 3D 6C 65 66 74 29 20 74 68 65 6E 0D 0A pit=left) then..
000100: 20 20 20 20 20 20 20 20 20 66 72 6F 6D 70 69 74 frompit
000110: 3A 3D 62 6C 65 66 74 0D 0A 20 20 20 20 20 20 65 :=bleft.. e
000120: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 66 72 lse.. fr
000130: 6F 6D 70 69 74 3A 3D 62 72 69 67 68 74 0D 0A 20 ompit:=bright..
000140: 20 20 65 6C 73 65 20 20 28 2A 20 6D 75 73 74 20 else (* must
000150: 62 65 20 72 65 64 27 73 20 74 75 72 6E 20 2A 29 be red's turn *)
000160: 0D 0A 20 20 20 20 20 20 69 66 20 28 73 6F 75 72 .. if (sour
000170: 63 70 69 74 3D 6C 65 66 74 29 20 74 68 65 6E 0D cpit=left) then.
000180: 0A 20 20 20 20 20 20 20 20 20 66 72 6F 6D 70 69 . frompi
000190: 74 3A 3D 72 6C 65 66 74 0D 0A 20 20 20 20 20 20 t:=rleft..
0001A0: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 66 else.. f
0001B0: 72 6F 6D 70 69 74 3A 3D 72 72 69 67 68 74 3B 0D rompit:=rright;.
0001C0: 0A 28 2A 20 70 75 74 23 30 28 27 66 72 6F 6D 70 .(* put#0('fromp
0001D0: 69 74 3D 27 2C 66 72 6F 6D 70 69 74 23 2C 31 33 it=',frompit#,13
0001E0: 2C 31 30 29 3B 0D 0A 2A 29 0D 0A 20 20 20 66 6F ,10);..*).. fo
0001F0: 72 20 69 3A 3D 72 6C 65 66 74 20 74 6F 20 6F 75 r i:=rleft to ou
Size : 512 (Real : 512)
000000: 20 3D 20 30 3B 20 28 2A 20 62 65 73 70 61 74 20 = 0; (* bespat
000010: 76 61 6C 75 65 20 69 66 20 6E 6F 64 65 20 69 73 value if node is
000020: 20 6F 66 66 20 62 65 73 74 20 70 61 74 68 20 2A off best path *
000030: 29 0D 0A 20 20 20 6F 6E 62 65 73 70 61 74 20 20 ).. onbespat
000040: 3D 20 31 3B 20 28 2A 20 62 65 73 70 61 74 20 76 = 1; (* bespat v
000050: 61 6C 75 65 20 69 66 20 6E 6F 64 65 20 69 73 20 alue if node is
000060: 6F 6E 20 20 62 65 73 74 20 70 61 74 68 20 2A 29 on best path *)
000070: 0D 0A 0D 0A 0D 0A 74 79 70 65 0D 0A 20 20 20 61 ......type.. a
000080: 72 79 20 3D 20 61 72 72 61 79 5B 30 2E 2E 31 30 ry = array[0..10
000090: 30 30 5D 20 6F 66 20 69 6E 74 65 67 65 72 3B 0D 00] of integer;.
0000A0: 0A 20 20 20 62 6F 6F 6C 65 61 6E 20 3D 20 28 66 . boolean = (f
0000B0: 61 6C 73 65 2C 20 74 72 75 65 29 3B 0D 0A 0D 0A alse, true);....
0000C0: 76 61 72 0D 0A 20 20 20 63 68 20 3A 20 69 6E 74 var.. ch : int
0000D0: 65 67 65 72 3B 0D 0A 20 20 20 62 64 20 3A 20 61 eger;.. bd : a
0000E0: 72 79 3B 0D 0A 20 20 20 6E 65 78 74 20 3A 20 69 ry;.. next : i
0000F0: 6E 74 65 67 65 72 3B 20 28 2A 20 72 6F 77 20 6E nteger; (* row n
000100: 75 6D 62 65 72 20 6F 66 20 6E 65 78 74 20 22 66 umber of next "f
000110: 72 65 65 22 20 72 6F 77 20 69 6E 20 61 72 72 61 ree" row in arra
000120: 79 20 62 6F 61 72 64 20 2A 29 0D 0A 0D 0A 66 75 y board *)....fu
000130: 6E 63 74 69 6F 6E 20 62 6F 61 72 64 28 72 6F 77 nction board(row
000140: 2C 20 63 6F 6C 20 3A 20 69 6E 74 65 67 65 72 29 , col : integer)
000150: 3B 0D 0A 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 ;.... begin..
000160: 20 20 62 6F 61 72 64 20 3A 3D 20 62 64 5B 72 6F board := bd[ro
000170: 77 2A 6E 63 6F 6C 73 20 2B 20 63 6F 6C 5D 0D 0A w*ncols + col]..
000180: 20 20 20 65 6E 64 3B 20 28 2A 20 66 75 6E 63 74 end; (* funct
000190: 69 6F 6E 20 62 6F 61 72 64 20 2A 29 0D 0A 0D 0A ion board *)....
0001A0: 70 72 6F 63 65 64 75 72 65 20 73 65 74 62 64 28 procedure setbd(
0001B0: 72 6F 77 2C 20 63 6F 6C 2C 20 76 61 6C 20 3A 20 row, col, val :
0001C0: 69 6E 74 65 67 65 72 29 3B 0D 0A 0D 0A 20 20 20 integer);....
0001D0: 62 65 67 69 6E 0D 0A 20 20 20 62 64 5B 72 6F 77 begin.. bd[row
0001E0: 2A 6E 63 6F 6C 73 20 2B 20 63 6F 6C 5D 20 3A 3D *ncols + col] :=
0001F0: 20 76 61 6C 0D 0A 20 20 20 65 6E 64 3B 20 28 2A val.. end; (*
Size : 512 (Real : 512)
000000: 74 63 6F 6D 20 64 6F 20 20 28 2A 20 63 6F 70 79 tcom do (* copy
000010: 20 66 61 74 68 65 72 20 62 6F 61 72 64 20 74 6F father board to
000020: 20 73 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 20 73 son *).. s
000030: 65 74 62 64 28 73 6F 6E 2C 20 69 2C 20 62 6F 61 etbd(son, i, boa
000040: 72 64 28 66 61 74 68 65 72 2C 20 69 29 29 3B 0D rd(father, i));.
000050: 0A 0D 0A 20 20 20 28 2A 20 74 65 73 74 20 69 66 ... (* test if
000060: 20 61 62 6C 65 20 74 6F 20 6D 6F 76 65 20 2A 29 able to move *)
000070: 0D 0A 20 20 20 69 66 20 28 62 6F 61 72 64 28 66 .. if (board(f
000080: 61 74 68 65 72 2C 20 66 72 6F 6D 70 69 74 29 3D ather, frompit)=
000090: 30 29 20 28 2A 20 69 66 20 66 72 6F 6D 70 69 74 0) (* if frompit
0000A0: 20 68 61 73 20 6E 6F 20 73 74 6F 6E 65 73 20 2A has no stones *
0000B0: 29 0D 0A 20 20 20 6F 72 20 28 62 6F 61 72 64 28 ).. or (board(
0000C0: 66 61 74 68 65 72 2C 20 62 6B 61 6C 29 3E 36 29 father, bkal)>6)
0000D0: 20 20 20 20 28 2A 20 6F 72 20 62 6C 75 65 20 68 (* or blue h
0000E0: 61 73 20 77 6F 6E 20 2A 29 0D 0A 20 20 20 6F 72 as won *).. or
0000F0: 20 28 62 6F 61 72 64 28 66 61 74 68 65 72 2C 20 (board(father,
000100: 72 6B 61 6C 29 3E 36 29 20 20 20 20 28 2A 20 6F rkal)>6) (* o
000110: 72 20 72 65 64 20 68 61 73 20 77 6F 6E 20 2A 29 r red has won *)
000120: 0D 0A 20 20 20 74 68 65 6E 20 20 20 20 20 20 20 .. then
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 28 2A 20 75 6E 61 62 6C 65 20 74 6F 20 6D 6F 76 (* unable to mov
000150: 65 20 2A 29 0D 0A 20 20 20 20 20 20 73 65 74 62 e *).. setb
000160: 64 28 73 6F 6E 2C 20 74 75 72 6E 2C 20 62 6F 61 d(son, turn, boa
000170: 72 64 28 66 61 74 68 65 72 2C 20 74 75 72 6E 29 rd(father, turn)
000180: 29 0D 0A 20 20 20 65 6C 73 65 20 20 20 20 20 20 ).. else
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 28 2A 20 73 74 69 6C 6C 20 68 61 76 65 20 6D (* still have m
0001B0: 6F 76 65 20 6C 65 66 74 20 2A 29 0D 0A 20 20 20 ove left *)..
0001C0: 20 20 20 69 66 20 28 62 6F 61 72 64 28 66 61 74 if (board(fat
0001D0: 68 65 72 2C 20 74 75 72 6E 29 3D 72 74 75 72 6E her, turn)=rturn
0001E0: 29 0D 0A 20 20 20 20 20 20 74 68 65 6E 20 73 65 ).. then se
0001F0: 74 62 64 28 73 6F 6E 2C 20 74 75 72 6E 2C 20 62 tbd(son, turn, b
Size : 512 (Real : 512)
000000: 29 3D 33 29 29 0D 0A 20 20 20 20 20 20 20 20 20 )=3))..
000010: 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 then..
000020: 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 begin..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 se
000040: 74 62 64 28 73 6F 6E 2C 20 62 6B 61 6C 2C 20 62 tbd(son, bkal, b
000050: 6F 61 72 64 28 73 6F 6E 2C 20 62 6B 61 6C 29 2B oard(son, bkal)+
000060: 62 6F 61 72 64 28 73 6F 6E 2C 20 72 6C 65 66 74 board(son, rleft
000070: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ));..
000080: 20 20 20 20 73 65 74 62 64 28 73 6F 6E 2C 20 72 setbd(son, r
000090: 6C 65 66 74 2C 20 30 29 0D 0A 20 20 20 20 20 20 left, 0)..
0000A0: 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 end..
0000B0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A end;..
0000C0: 20 20 20 20 20 20 20 20 20 69 66 20 28 70 74 75 if (ptu
0000D0: 72 6E 3D 72 74 75 72 6E 29 20 61 6E 64 20 28 28 rn=rturn) and ((
0000E0: 74 6F 70 69 74 3D 62 6C 65 66 74 29 20 6F 72 20 topit=bleft) or
0000F0: 28 74 6F 70 69 74 3D 62 72 69 67 68 74 29 29 0D (topit=bright)).
000100: 0A 20 20 20 20 20 20 20 20 20 74 68 65 6E 0D 0A . then..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 begi
000120: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 n.. s
000130: 65 74 62 64 28 73 6F 6E 2C 20 72 6B 61 6C 2C 20 etbd(son, rkal,
000140: 62 6F 61 72 64 28 73 6F 6E 2C 20 72 6B 61 6C 29 board(son, rkal)
000150: 2B 62 6F 61 72 64 28 73 6F 6E 2C 20 74 6F 70 69 +board(son, topi
000160: 74 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 t));..
000170: 20 20 73 65 74 62 64 28 73 6F 6E 2C 20 74 6F 70 setbd(son, top
000180: 69 74 2C 20 30 29 3B 0D 0A 20 20 20 20 20 20 20 it, 0);..
000190: 20 20 20 20 20 69 66 20 28 74 6F 70 69 74 3D 62 if (topit=b
0001A0: 72 69 67 68 74 29 20 61 6E 64 0D 0A 20 20 20 20 right) and..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 28 28 62 6F 61 ((boa
0001C0: 72 64 28 73 6F 6E 2C 20 62 6C 65 66 74 29 3D 32 rd(son, bleft)=2
0001D0: 29 20 6F 72 20 28 62 6F 61 72 64 28 73 6F 6E 2C ) or (board(son,
0001E0: 20 62 6C 65 66 74 29 3D 33 29 29 0D 0A 20 20 20 bleft)=3))..
0001F0: 20 20 20 20 20 20 20 20 20 74 68 65 6E 0D 0A 20 then..
Size : 512 (Real : 512)
000000: 74 75 72 6E 29 0D 0A 20 20 20 20 20 20 65 6C 73 turn).. els
000010: 65 20 73 65 74 62 64 28 73 6F 6E 2C 20 74 75 72 e setbd(son, tur
000020: 6E 2C 20 72 74 75 72 6E 29 3B 0D 0A 0D 0A 20 20 n, rturn);....
000030: 20 6D 6F 76 69 6E 67 3A 3D 74 72 75 65 3B 0D 0A moving:=true;..
000040: 20 20 20 77 68 69 6C 65 20 28 6D 6F 76 69 6E 67 while (moving
000050: 3D 74 72 75 65 29 20 64 6F 20 62 65 67 69 6E 0D =true) do begin.
000060: 0A 20 20 20 20 20 20 73 6F 77 73 74 6F 6E 3A 3D . sowston:=
000070: 62 6F 61 72 64 28 73 6F 6E 2C 20 66 72 6F 6D 70 board(son, fromp
000080: 69 74 29 3B 0D 0A 28 2A 20 20 20 20 70 75 74 23 it);..(* put#
000090: 30 28 27 73 6F 77 73 74 6F 6E 3D 27 2C 73 6F 77 0('sowston=',sow
0000A0: 73 74 6F 6E 23 2C 31 33 2C 31 30 29 3B 0D 0A 2A ston#,13,10);..*
0000B0: 29 20 20 20 20 73 65 74 62 64 28 73 6F 6E 2C 20 ) setbd(son,
0000C0: 66 72 6F 6D 70 69 74 2C 20 30 29 3B 0D 0A 20 20 frompit, 0);..
0000D0: 20 20 20 20 74 6F 70 69 74 3A 3D 66 72 6F 6D 70 topit:=fromp
0000E0: 69 74 3B 0D 0A 20 20 20 20 20 20 73 6F 77 6F 70 it;.. sowop
0000F0: 70 3A 3D 66 61 6C 73 65 3B 0D 0A 0D 0A 20 20 20 p:=false;....
000100: 20 20 20 77 68 69 6C 65 20 28 73 6F 77 73 74 6F while (sowsto
000110: 6E 3E 30 29 20 64 6F 20 62 65 67 69 6E 0D 0A 20 n>0) do begin..
000120: 20 20 20 20 20 20 20 20 74 6F 70 69 74 3A 3D 74 topit:=t
000130: 6F 70 69 74 2B 31 3B 0D 0A 28 2A 20 20 20 20 20 opit+1;..(*
000140: 20 20 70 75 74 23 30 28 27 74 6F 70 69 74 3D 20 put#0('topit=
000150: 27 2C 74 6F 70 69 74 23 2C 31 33 2C 31 30 29 3B ',topit#,13,10);
000160: 0D 0A 2A 29 20 20 20 20 20 20 20 69 66 20 28 74 ..*) if (t
000170: 6F 70 69 74 3E 62 6B 61 6C 29 20 74 68 65 6E 0D opit>bkal) then.
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 . top
000190: 69 74 3A 3D 72 6C 65 66 74 3B 0D 0A 20 20 20 20 it:=rleft;..
0001A0: 20 20 20 20 20 69 66 20 28 74 6F 70 69 74 3D 72 if (topit=r
0001B0: 6B 61 6C 29 20 61 6E 64 20 28 70 74 75 72 6E 3D kal) and (pturn=
0001C0: 62 74 75 72 6E 29 20 74 68 65 6E 0D 0A 20 20 20 bturn) then..
0001D0: 20 20 20 20 20 20 20 20 20 74 6F 70 69 74 3A 3D topit:=
0001E0: 62 6C 65 66 74 3B 0D 0A 20 20 20 20 20 20 20 20 bleft;..
0001F0: 20 69 66 20 28 74 6F 70 69 74 3D 62 6B 61 6C 29 if (topit=bkal)
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 be
000010: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
000020: 20 20 20 20 73 65 74 62 64 28 73 6F 6E 2C 20 72 setbd(son, r
000030: 6B 61 6C 2C 20 62 6F 61 72 64 28 73 6F 6E 2C 20 kal, board(son,
000040: 72 6B 61 6C 29 2B 62 6F 61 72 64 28 73 6F 6E 2C rkal)+board(son,
000050: 20 62 6C 65 66 74 29 29 3B 0D 0A 20 20 20 20 20 bleft));..
000060: 20 20 20 20 20 20 20 20 20 20 73 65 74 62 64 28 setbd(
000070: 73 6F 6E 2C 20 62 6C 65 66 74 2C 20 30 29 0D 0A son, bleft, 0)..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
000090: 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nd..
0000A0: 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 65 6E end.. en
0000B0: 64 0D 0A 20 20 20 20 20 20 65 6E 64 20 28 2A 20 d.. end (*
0000C0: 77 68 69 6C 65 20 6D 6F 76 69 6E 67 3D 74 72 75 while moving=tru
0000D0: 65 20 2A 29 0D 0A 20 20 20 65 6E 64 3B 20 28 2A e *).. end; (*
0000E0: 20 70 72 6F 63 65 64 75 72 65 20 63 6F 6D 70 63 procedure compc
0000F0: 6F 6E 66 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 onf *)....proced
000100: 75 72 65 20 67 72 6F 77 74 72 65 65 28 72 6F 6F ure growtree(roo
000110: 74 20 3A 20 69 6E 74 65 67 65 72 29 3B 0D 0A 0D t : integer);...
000120: 0A 20 20 20 62 65 67 69 6E 0D 0A 28 2A 20 70 75 . begin..(* pu
000130: 74 23 30 28 27 67 72 6F 77 74 72 65 65 27 2C 72 t#0('growtree',r
000140: 6F 6F 74 23 2C 31 33 2C 31 30 29 3B 0D 0A 2A 29 oot#,13,10);..*)
000150: 20 63 6F 6D 70 63 6F 6E 66 28 72 6F 6F 74 2C 20 compconf(root,
000160: 6E 65 78 74 2C 20 6C 65 66 74 29 3B 20 28 2A 20 next, left); (*
000170: 61 74 74 65 6D 70 74 20 74 6F 20 67 72 6F 77 20 attempt to grow
000180: 6C 65 66 74 20 73 6F 6E 20 2A 29 0D 0A 20 20 20 left son *)..
000190: 69 66 20 28 62 6F 61 72 64 28 72 6F 6F 74 2C 20 if (board(root,
0001A0: 74 75 72 6E 29 3C 3E 62 6F 61 72 64 28 6E 65 78 turn)<>board(nex
0001B0: 74 2C 20 74 75 72 6E 29 29 0D 0A 20 20 20 74 68 t, turn)).. th
0001C0: 65 6E 20 28 2A 20 74 68 65 72 65 20 69 73 20 61 en (* there is a
0001D0: 20 6C 65 66 74 20 73 6F 6E 20 2A 29 0D 0A 20 20 left son *)..
0001E0: 20 20 20 20 62 65 67 69 6E 0D 0A 28 2A 20 20 20 begin..(*
0001F0: 20 70 75 74 23 30 28 27 6C 65 66 74 73 6F 6E 20 put#0('leftson
Size : 512 (Real : 512)
000000: 20 61 6E 64 20 28 70 74 75 72 6E 3D 72 74 75 72 and (pturn=rtur
000010: 6E 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 n) then..
000020: 20 20 20 20 20 74 6F 70 69 74 3A 3D 72 6C 65 66 topit:=rlef
000030: 74 3B 0D 0A 0D 0A 28 2A 20 20 20 20 20 20 20 70 t;....(* p
000040: 75 74 23 30 28 27 74 6F 70 69 74 3D 20 27 2C 74 ut#0('topit= ',t
000050: 6F 70 69 74 23 2C 31 33 2C 31 30 29 3B 0D 0A 2A opit#,13,10);..*
000060: 29 0D 0A 20 20 20 20 20 20 20 20 20 28 2A 20 73 ).. (* s
000070: 65 74 20 73 6F 77 6F 70 70 20 74 6F 20 74 72 75 et sowopp to tru
000080: 65 20 69 66 20 73 6F 77 69 6E 67 20 69 6E 74 6F e if sowing into
000090: 20 6F 70 70 6F 6E 65 6E 74 73 20 70 69 74 73 20 opponents pits
0000A0: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 *).. if
0000B0: 28 70 74 75 72 6E 3D 62 74 75 72 6E 29 20 74 68 (pturn=bturn) th
0000C0: 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 en..
0000D0: 69 66 20 28 74 6F 70 69 74 3D 72 6C 65 66 74 29 if (topit=rleft)
0000E0: 20 6F 72 20 28 74 6F 70 69 74 3D 72 72 69 67 68 or (topit=rrigh
0000F0: 74 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 t) then..
000100: 20 20 20 20 20 20 20 20 73 6F 77 6F 70 70 3A 3D sowopp:=
000110: 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 true;..
000120: 69 66 20 28 70 74 75 72 6E 3D 72 74 75 72 6E 29 if (pturn=rturn)
000130: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 then..
000140: 20 20 20 69 66 20 28 74 6F 70 69 74 3D 62 6C 65 if (topit=ble
000150: 66 74 29 20 6F 72 20 28 74 6F 70 69 74 3D 62 72 ft) or (topit=br
000160: 69 67 68 74 29 20 74 68 65 6E 0D 0A 20 20 20 20 ight) then..
000170: 20 20 20 20 20 20 20 20 20 20 20 73 6F 77 6F 70 sowop
000180: 70 3A 3D 74 72 75 65 3B 0D 0A 0D 0A 20 20 20 20 p:=true;....
000190: 20 20 20 20 20 73 65 74 62 64 28 73 6F 6E 2C 20 setbd(son,
0001A0: 74 6F 70 69 74 2C 20 62 6F 61 72 64 28 73 6F 6E topit, board(son
0001B0: 2C 74 6F 70 69 74 29 2B 31 29 3B 20 28 2A 20 73 ,topit)+1); (* s
0001C0: 6F 77 20 61 20 73 74 6F 6E 65 20 2A 29 0D 0A 20 ow a stone *)..
0001D0: 20 20 20 20 20 20 20 20 73 6F 77 73 74 6F 6E 3A sowston:
0001E0: 3D 73 6F 77 73 74 6F 6E 2D 31 20 20 28 2A 20 6E =sowston-1 (* n
0001F0: 75 6D 62 65 72 20 74 6F 20 73 6F 77 20 69 73 20 umber to sow is
Size : 512 (Real : 512)
000000: 27 2C 31 33 2C 31 30 29 3B 0D 0A 20 20 20 20 20 ',13,10);..
000010: 20 70 72 74 72 6F 77 28 6E 65 78 74 29 3B 0D 0A prtrow(next);..
000020: 2A 29 20 20 20 20 73 65 74 62 64 28 72 6F 6F 74 *) setbd(root
000030: 2C 20 6C 73 6F 6E 2C 20 6E 65 78 74 29 3B 20 28 , lson, next); (
000040: 2A 20 6C 69 6E 6B 20 73 6F 6E 20 74 6F 20 66 61 * link son to fa
000050: 74 68 65 72 20 2A 29 0D 0A 20 20 20 20 20 20 6E ther *).. n
000060: 65 78 74 3A 3D 6E 65 78 74 2B 31 3B 0D 0A 20 20 ext:=next+1;..
000070: 20 20 20 20 67 72 6F 77 74 72 65 65 28 6E 65 78 growtree(nex
000080: 74 2D 31 29 0D 0A 20 20 20 20 20 20 65 6E 64 0D t-1).. end.
000090: 0A 20 20 20 65 6C 73 65 20 28 2A 20 74 68 65 72 . else (* ther
0000A0: 65 20 69 73 20 6E 6F 74 20 6C 65 66 74 20 73 6F e is not left so
0000B0: 6E 20 2A 29 0D 0A 20 20 20 20 20 20 73 65 74 62 n *).. setb
0000C0: 64 28 72 6F 6F 74 2C 20 6C 73 6F 6E 2C 20 30 29 d(root, lson, 0)
0000D0: 3B 0D 0A 0D 0A 20 20 20 63 6F 6D 70 63 6F 6E 66 ;.... compconf
0000E0: 28 72 6F 6F 74 2C 20 6E 65 78 74 2C 20 72 69 67 (root, next, rig
0000F0: 68 74 29 3B 20 28 2A 20 61 74 74 65 6D 70 74 20 ht); (* attempt
000100: 74 6F 20 67 72 6F 77 20 72 69 67 68 74 20 73 6F to grow right so
000110: 6E 20 2A 29 0D 0A 20 20 20 69 66 20 28 62 6F 61 n *).. if (boa
000120: 72 64 28 72 6F 6F 74 2C 20 74 75 72 6E 29 3C 3E rd(root, turn)<>
000130: 62 6F 61 72 64 28 6E 65 78 74 2C 20 74 75 72 6E board(next, turn
000140: 29 29 0D 0A 20 20 20 74 68 65 6E 20 28 2A 20 74 )).. then (* t
000150: 68 65 72 65 20 69 73 20 61 20 72 69 67 68 74 20 here is a right
000160: 73 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 20 62 65 son *).. be
000170: 67 69 6E 0D 0A 28 2A 20 20 20 20 70 75 74 23 30 gin..(* put#0
000180: 28 27 72 69 67 68 74 73 6F 6E 27 2C 31 33 2C 31 ('rightson',13,1
000190: 30 29 3B 0D 0A 20 20 20 20 20 20 70 72 74 72 6F 0);.. prtro
0001A0: 77 28 6E 65 78 74 29 3B 0D 0A 2A 29 20 20 20 20 w(next);..*)
0001B0: 73 65 74 62 64 28 72 6F 6F 74 2C 20 72 73 6F 6E setbd(root, rson
0001C0: 2C 20 6E 65 78 74 29 3B 20 28 2A 20 6C 69 6E 6B , next); (* link
0001D0: 20 73 6F 6E 20 74 6F 20 66 61 74 68 65 72 20 2A son to father *
0001E0: 29 0D 0A 20 20 20 20 20 20 6E 65 78 74 3A 3D 6E ).. next:=n
0001F0: 65 78 74 2B 31 3B 0D 0A 20 20 20 20 20 20 67 72 ext+1;.. gr
Size : 512 (Real : 512)
000000: 6F 6E 65 20 6C 65 73 73 20 6E 6F 77 20 2A 29 0D one less now *).
000010: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 20 28 . end; (
000020: 2A 20 77 68 69 6C 65 20 73 6F 77 73 74 6F 6E 3E * while sowston>
000030: 30 20 2A 29 0D 0A 0D 0A 20 20 20 20 20 20 28 2A 0 *).... (*
000040: 20 63 68 65 63 6B 20 66 6F 72 20 67 6F 20 61 67 check for go ag
000050: 61 69 6E 2C 20 73 65 74 20 6D 6F 76 69 6E 67 20 ain, set moving
000060: 2A 29 0D 0A 20 20 20 20 20 20 69 66 20 28 73 6F *).. if (so
000070: 77 6F 70 70 3D 74 72 75 65 29 20 61 6E 64 20 28 wopp=true) and (
000080: 62 6F 61 72 64 28 73 6F 6E 2C 20 74 6F 70 69 74 board(son, topit
000090: 29 20 3E 20 31 29 20 74 68 65 6E 0D 0A 20 20 20 ) > 1) then..
0000A0: 20 20 20 20 20 20 69 66 20 28 20 28 70 74 75 72 if ( (ptur
0000B0: 6E 3D 62 74 75 72 6E 29 20 61 6E 64 20 28 28 74 n=bturn) and ((t
0000C0: 6F 70 69 74 3D 62 6C 65 66 74 29 20 6F 72 20 28 opit=bleft) or (
0000D0: 74 6F 70 69 74 3D 62 72 69 67 68 74 29 29 20 29 topit=bright)) )
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 6F 72 20 28 20 .. or (
0000F0: 28 70 74 75 72 6E 3D 72 74 75 72 6E 29 20 61 6E (pturn=rturn) an
000100: 64 20 28 28 74 6F 70 69 74 3D 72 6C 65 66 74 29 d ((topit=rleft)
000110: 20 6F 72 20 28 74 6F 70 69 74 3D 72 72 69 67 68 or (topit=rrigh
000120: 74 29 29 20 29 0D 0A 20 20 20 20 20 20 20 20 20 t)) )..
000130: 20 20 20 74 68 65 6E 20 28 2A 20 20 61 20 67 6F then (* a go
000140: 20 61 67 61 69 6E 20 6D 6F 76 65 20 2A 29 0D 0A again move *)..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 b
000160: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
000170: 20 20 20 20 20 20 20 20 6D 6F 76 69 6E 67 3A 3D moving:=
000180: 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 true;..
000190: 20 20 20 20 20 20 20 20 20 66 72 6F 6D 70 69 74 frompit
0001A0: 3A 3D 74 6F 70 69 74 0D 0A 20 20 20 20 20 20 20 :=topit..
0001B0: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
0001C0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6D 6F mo
0001E0: 76 69 6E 67 3A 3D 66 61 6C 73 65 20 28 2A 20 6E ving:=false (* n
0001F0: 6F 74 20 61 20 67 6F 20 61 67 61 69 6E 20 6D 6F ot a go again mo
Size : 512 (Real : 512)
000000: 6F 77 74 72 65 65 28 6E 65 78 74 2D 31 29 0D 0A owtree(next-1)..
000010: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 65 6C end.. el
000020: 73 65 20 28 2A 20 74 68 65 72 65 20 69 73 20 6E se (* there is n
000030: 6F 20 72 69 67 68 74 20 73 6F 6E 20 2A 29 0D 0A o right son *)..
000040: 20 20 20 20 20 20 73 65 74 62 64 28 72 6F 6F 74 setbd(root
000050: 2C 20 72 73 6F 6E 2C 20 30 29 0D 0A 20 20 20 65 , rson, 0).. e
000060: 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 nd; (* procedure
000070: 20 67 72 6F 77 74 72 65 65 20 2A 29 0D 0A 0D 0A growtree *)....
000080: 70 72 6F 63 65 64 75 72 65 20 70 72 74 74 72 65 procedure prttre
000090: 65 28 72 6F 6F 74 20 3A 20 69 6E 74 65 67 65 72 e(root : integer
0000A0: 29 3B 0D 0A 0D 0A 20 20 20 62 65 67 69 6E 0D 0A );.... begin..
0000B0: 20 20 20 69 66 20 28 72 6F 6F 74 3C 3E 30 29 0D if (root<>0).
0000C0: 0A 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 . then..
0000D0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 70 72 74 begin.. prt
0000E0: 74 72 65 65 28 62 6F 61 72 64 28 72 6F 6F 74 2C tree(board(root,
0000F0: 20 6C 73 6F 6E 29 29 3B 20 28 2A 20 70 72 69 6E lson)); (* prin
000100: 74 20 6C 65 66 74 20 20 73 75 62 74 72 65 65 20 t left subtree
000110: 2A 29 0D 0A 20 20 20 20 20 20 70 72 74 72 6F 77 *).. prtrow
000120: 20 28 72 6F 6F 74 29 3B 20 28 2A 20 70 72 69 6E (root); (* prin
000130: 74 20 74 68 65 20 6E 6F 64 65 20 2A 29 0D 0A 20 t the node *)..
000140: 20 20 20 20 20 70 72 74 74 72 65 65 28 62 6F 61 prttree(boa
000150: 72 64 28 72 6F 6F 74 2C 20 72 73 6F 6E 29 29 20 rd(root, rson))
000160: 20 28 2A 20 70 72 69 6E 74 20 72 69 67 68 74 20 (* print right
000170: 73 75 62 74 72 65 65 20 2A 29 0D 0A 20 20 20 20 subtree *)..
000180: 20 20 65 6E 64 0D 0A 20 20 20 65 6E 64 3B 20 28 end.. end; (
000190: 2A 20 70 72 6F 63 65 64 75 72 65 20 70 72 74 74 * procedure prtt
0001A0: 72 65 65 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 ree *)....proced
0001B0: 75 72 65 20 66 69 6E 64 6F 75 74 28 72 6F 6F 74 ure findout(root
0001C0: 20 3A 20 69 6E 74 65 67 65 72 29 3B 0D 0A 0D 0A : integer);....
0001D0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 69 66 20 begin.. if
0001E0: 28 72 6F 6F 74 3C 3E 30 29 0D 0A 20 20 20 74 68 (root<>0).. th
0001F0: 65 6E 0D 0A 20 20 20 20 20 20 62 65 67 69 6E 0D en.. begin.
Size : 512 (Real : 512)
000000: 76 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 ve *)..
000010: 65 6C 73 65 20 28 2A 20 6E 6F 74 20 61 20 67 6F else (* not a go
000020: 20 61 67 61 69 6E 20 6D 6F 76 65 20 2A 29 0D 0A again move *)..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 6D 6F 76 69 movi
000040: 6E 67 3A 3D 66 61 6C 73 65 3B 0D 0A 0D 0A 20 20 ng:=false;....
000050: 20 20 20 20 28 2A 20 63 68 65 63 6B 20 66 6F 72 (* check for
000060: 20 63 61 70 74 75 72 65 20 2A 29 0D 0A 20 20 20 capture *)..
000070: 20 20 20 69 66 20 28 62 6F 61 72 64 28 73 6F 6E if (board(son
000080: 2C 20 74 6F 70 69 74 29 3D 32 29 20 6F 72 20 28 , topit)=2) or (
000090: 62 6F 61 72 64 28 73 6F 6E 20 2C 74 6F 70 69 74 board(son ,topit
0000A0: 29 3D 33 29 0D 0A 20 20 20 20 20 20 74 68 65 6E )=3).. then
0000B0: 20 20 28 2A 20 63 61 70 74 75 72 65 20 70 6F 73 (* capture pos
0000C0: 73 69 62 6C 65 20 2A 29 0D 0A 20 20 20 20 20 20 sible *)..
0000D0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
0000E0: 20 20 20 69 66 20 28 70 74 75 72 6E 3D 62 74 75 if (pturn=btu
0000F0: 72 6E 29 20 61 6E 64 20 28 28 74 6F 70 69 74 3D rn) and ((topit=
000100: 72 6C 65 66 74 29 20 6F 72 20 28 74 6F 70 69 74 rleft) or (topit
000110: 3D 72 72 69 67 68 74 29 29 0D 0A 20 20 20 20 20 =rright))..
000120: 20 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 then..
000130: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
000140: 20 20 20 20 20 20 20 20 20 73 65 74 62 64 28 73 setbd(s
000150: 6F 6E 2C 20 62 6B 61 6C 2C 20 62 6F 61 72 64 28 on, bkal, board(
000160: 73 6F 6E 2C 20 62 6B 61 6C 29 2B 62 6F 61 72 64 son, bkal)+board
000170: 28 73 6F 6E 2C 20 74 6F 70 69 74 29 29 3B 0D 0A (son, topit));..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 62 setb
000190: 64 28 73 6F 6E 2C 20 74 6F 70 69 74 2C 20 30 29 d(son, topit, 0)
0001A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 ;.. i
0001B0: 66 20 28 74 6F 70 69 74 3D 72 72 69 67 68 74 29 f (topit=rright)
0001C0: 20 61 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 and..
0001D0: 20 20 20 20 20 28 28 62 6F 61 72 64 28 73 6F 6E ((board(son
0001E0: 2C 20 72 6C 65 66 74 29 3D 32 29 20 6F 72 20 28 , rleft)=2) or (
0001F0: 62 6F 61 72 64 28 73 6F 6E 2C 20 72 6C 65 66 74 board(son, rleft
Size : 512 (Real : 512)
000000: 0A 0D 0A 20 20 20 20 20 20 28 2A 20 69 6E 69 74 ... (* init
000010: 20 61 6C 6C 20 6E 6F 64 65 73 20 74 6F 20 22 6F all nodes to "o
000020: 66 66 20 62 65 73 74 20 70 61 74 68 22 20 2A 29 ff best path" *)
000030: 0D 0A 20 20 20 20 20 20 73 65 74 62 64 28 72 6F .. setbd(ro
000040: 6F 74 2C 20 6F 75 74 63 6F 6D 2C 20 6F 66 66 62 ot, outcom, offb
000050: 65 73 70 61 74 29 3B 0D 0A 0D 0A 20 20 20 20 20 espat);....
000060: 20 66 69 6E 64 6F 75 74 28 62 6F 61 72 64 28 72 findout(board(r
000070: 6F 6F 74 2C 20 6C 73 6F 6E 29 29 3B 20 28 2A 20 oot, lson)); (*
000080: 66 69 6E 64 20 6F 75 74 63 6F 6D 65 20 6F 66 20 find outcome of
000090: 6C 65 66 74 20 20 73 75 62 74 72 65 65 20 2A 29 left subtree *)
0000A0: 0D 0A 20 20 20 20 20 20 66 69 6E 64 6F 75 74 28 .. findout(
0000B0: 62 6F 61 72 64 28 72 6F 6F 74 2C 20 72 73 6F 6E board(root, rson
0000C0: 29 29 3B 20 28 2A 20 66 69 6E 64 20 6F 75 74 63 )); (* find outc
0000D0: 6F 6D 65 20 6F 66 20 72 69 67 68 74 20 73 75 62 ome of right sub
0000E0: 74 72 65 65 20 2A 29 0D 0A 0D 0A 20 20 20 20 20 tree *)....
0000F0: 20 28 2A 20 64 65 74 65 72 6D 69 6E 65 20 6F 75 (* determine ou
000100: 74 63 6F 6D 65 20 6F 66 20 66 61 74 68 65 72 20 tcome of father
000110: 2A 29 0D 0A 20 20 20 20 20 20 28 2A 20 66 69 72 *).. (* fir
000120: 73 74 2C 20 73 65 65 20 69 66 20 68 65 20 68 61 st, see if he ha
000130: 73 20 61 6E 79 20 73 6F 6E 73 20 2A 29 0D 0A 20 s any sons *)..
000140: 20 20 20 20 20 69 66 20 28 62 6F 61 72 64 28 72 if (board(r
000150: 6F 6F 74 2C 20 6C 73 6F 6E 29 3D 30 29 20 61 6E oot, lson)=0) an
000160: 64 20 28 62 6F 61 72 64 28 72 6F 6F 74 2C 20 72 d (board(root, r
000170: 73 6F 6E 29 3D 30 29 0D 0A 20 20 20 20 20 20 74 son)=0).. t
000180: 68 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 hen
000190: 20 20 20 20 20 20 28 2A 20 68 65 20 68 61 73 20 (* he has
0001A0: 6E 6F 20 73 6F 6E 73 20 2A 29 0D 0A 20 20 20 20 no sons *)..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 28 2A 20 64 65 74 65 (* dete
0001D0: 72 6D 69 6E 65 20 6F 75 74 63 6F 6D 65 20 66 72 rmine outcome fr
0001E0: 6F 6D 20 70 69 74 73 20 2A 29 0D 0A 20 20 20 20 om pits *)..
0001F0: 20 20 20 20 20 69 66 20 28 62 6F 61 72 64 28 72 if (board(r
Size : 512 (Real : 512)
000000: 20 28 2A 20 72 6F 6F 74 20 68 61 73 20 6E 6F 20 (* root has no
000010: 6C 65 66 74 20 73 6F 6E 20 2A 29 0D 0A 20 20 20 left son *)..
000020: 20 20 20 20 20 20 70 3A 3D 62 6F 61 72 64 28 70 p:=board(p
000030: 2C 20 72 73 6F 6E 29 20 20 20 20 28 2A 20 6D 6F , rson) (* mo
000040: 76 65 20 6F 6E 20 72 69 67 68 74 20 73 6F 6E 20 ve on right son
000050: 2A 29 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A *).. else..
000060: 20 20 20 20 20 20 20 20 20 69 66 20 28 62 6F 61 if (boa
000070: 72 64 28 70 2C 20 72 73 6F 6E 29 3D 30 29 0D 0A rd(p, rson)=0)..
000080: 20 20 20 20 20 20 20 20 20 74 68 65 6E 20 28 2A then (*
000090: 20 72 6F 6F 74 20 68 61 73 20 6E 6F 20 72 69 67 root has no rig
0000A0: 68 74 20 73 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 ht son *)..
0000B0: 20 20 20 20 20 20 20 70 3A 3D 62 6F 61 72 64 28 p:=board(
0000C0: 70 2C 20 6C 73 6F 6E 29 20 20 20 28 2A 20 6D 6F p, lson) (* mo
0000D0: 76 65 20 6F 6E 20 74 6F 20 6C 65 66 74 20 73 6F ve on to left so
0000E0: 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 65 n *).. e
0000F0: 6C 73 65 20 28 2A 20 72 6F 6F 74 20 68 61 73 20 lse (* root has
000100: 62 6F 74 68 20 73 6F 6E 73 20 2A 29 0D 0A 20 20 both sons *)..
000110: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 62 6F if (bo
000120: 61 72 64 28 70 2C 20 74 75 72 6E 29 3D 62 74 75 ard(p, turn)=btu
000130: 72 6E 29 20 20 28 2A 20 69 66 20 62 6C 75 65 27 rn) (* if blue'
000140: 73 20 74 75 72 6E 20 2A 29 0D 0A 20 20 20 20 20 s turn *)..
000150: 20 20 20 20 20 20 20 74 68 65 6E 20 28 2A 20 73 then (* s
000160: 65 65 20 69 66 20 6C 65 66 74 20 6F 75 74 63 6F ee if left outco
000170: 6D 20 69 73 20 62 65 74 74 65 72 20 74 68 61 6E m is better than
000180: 20 72 69 67 68 74 20 2A 29 0D 0A 20 20 20 20 20 right *)..
000190: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 20 20 if (
0001A0: 20 20 62 6F 61 72 64 28 20 62 6F 61 72 64 28 70 board( board(p
0001B0: 2C 20 6C 73 6F 6E 29 2C 20 6F 75 74 63 6F 6D 29 , lson), outcom)
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 20 20 20 20 20 20 3C 3D 20 62 6F 61 72 64 28 20 <= board(
0001E0: 62 6F 61 72 64 28 70 2C 20 72 73 6F 6E 29 2C 20 board(p, rson),
0001F0: 6F 75 74 63 6F 6D 29 0D 0A 20 20 20 20 20 20 20 outcom)..
Size : 512 (Real : 512)
000000: 6F 6F 74 2C 20 62 6B 61 6C 29 3E 36 29 0D 0A 20 oot, bkal)>6)..
000010: 20 20 20 20 20 20 20 20 74 68 65 6E 20 20 20 20 then
000020: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 62 (* b
000030: 6C 75 65 20 68 61 73 20 77 6F 6E 20 2A 29 0D 0A lue has won *)..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 62 setb
000050: 64 28 72 6F 6F 74 2C 20 6F 75 74 63 6F 6D 2C 20 d(root, outcom,
000060: 62 77 69 6E 29 0D 0A 20 20 20 20 20 20 20 20 20 bwin)..
000070: 65 6C 73 65 20 28 2A 20 65 69 74 68 65 72 20 72 else (* either r
000080: 65 64 20 77 69 6E 20 6F 72 20 64 72 61 77 20 2A ed win or draw *
000090: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 ).. i
0000A0: 66 20 28 62 6F 61 72 64 28 72 6F 6F 74 2C 20 72 f (board(root, r
0000B0: 6B 61 6C 29 3E 36 29 0D 0A 20 20 20 20 20 20 20 kal)>6)..
0000C0: 20 20 20 20 20 74 68 65 6E 20 20 20 20 20 20 20 then
0000D0: 20 20 20 20 20 20 20 28 2A 20 72 65 64 20 68 61 (* red ha
0000E0: 73 20 77 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 20 s won *)..
0000F0: 20 20 20 20 20 20 20 20 20 73 65 74 62 64 28 72 setbd(r
000100: 6F 6F 74 2C 20 6F 75 74 63 6F 6D 2C 20 72 77 69 oot, outcom, rwi
000110: 6E 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 n)..
000120: 65 6C 73 65 20 20 20 20 20 20 20 20 20 20 20 20 else
000130: 20 20 28 2A 20 6E 65 69 74 68 65 72 20 77 6F 6E (* neither won
000140: 2C 20 74 68 65 72 65 66 6F 72 65 20 64 72 61 77 , therefore draw
000150: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
000160: 20 20 20 20 73 65 74 62 64 28 72 6F 6F 74 2C 20 setbd(root,
000170: 6F 75 74 63 6F 6D 2C 20 64 72 61 77 29 0D 0A 0D outcom, draw)...
000180: 0A 20 20 20 20 20 20 65 6C 73 65 20 20 20 20 20 . else
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
0001A0: 2A 20 68 65 20 68 61 73 20 61 74 20 6C 65 61 73 * he has at leas
0001B0: 74 20 6F 6E 65 20 73 6F 6E 20 2A 29 0D 0A 20 20 t one son *)..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 64 (* d
0001E0: 65 74 65 72 6D 69 6E 65 20 6F 75 74 63 6F 6D 65 etermine outcome
0001F0: 20 66 72 6F 6D 20 73 6F 6E 73 20 2A 29 0D 0A 20 from sons *)..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 29 0D 0A 20 20 )..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 the
000020: 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n
000030: 20 20 28 2A 20 6C 65 66 74 20 20 69 73 20 62 65 (* left is be
000040: 74 74 65 72 20 6F 72 20 3D 20 2A 29 0D 0A 20 20 tter or = *)..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 70 3A 3D 62 6F 61 72 64 28 70 2C 20 6C 73 6F 6E p:=board(p, lson
000070: 29 20 28 2A 20 67 6F 20 6C 65 66 74 20 20 20 20 ) (* go left
000080: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 *)..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 els
0000A0: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e
0000B0: 20 20 28 2A 20 72 69 67 68 74 20 69 73 20 62 65 (* right is be
0000C0: 74 74 65 72 20 20 20 20 20 20 2A 29 0D 0A 20 20 tter *)..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 70 3A 3D 62 6F 61 72 64 28 70 2C 20 72 73 6F 6E p:=board(p, rson
0000F0: 29 20 28 2A 20 67 6F 20 72 69 67 68 74 20 20 20 ) (* go right
000100: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 *)..
000110: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 28 else (
000120: 2A 20 69 74 20 6D 75 73 74 20 62 65 20 72 65 64 * it must be red
000130: 27 73 20 74 75 72 6E 20 2A 29 0D 0A 20 20 20 20 's turn *)..
000140: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 20 if (
000150: 20 20 20 62 6F 61 72 64 28 20 62 6F 61 72 64 28 board( board(
000160: 70 2C 20 6C 73 6F 6E 29 2C 20 6F 75 74 63 6F 6D p, lson), outcom
000170: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
000180: 20 20 20 20 20 20 20 3E 3D 20 62 6F 61 72 64 28 >= board(
000190: 20 62 6F 61 72 64 28 70 2C 20 72 73 6F 6E 29 2C board(p, rson),
0001A0: 20 6F 75 74 63 6F 6D 29 0D 0A 20 20 20 20 20 20 outcom)..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 29 0D 0A 20 )..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 th
0001D0: 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 en
0001E0: 20 20 20 28 2A 20 6C 65 66 74 20 20 69 73 20 62 (* left is b
0001F0: 65 74 74 65 72 20 6F 72 20 3D 20 2A 29 0D 0A 20 etter or = *)..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 69 66 20 28 62 6F 61 72 if (boar
000010: 64 28 72 6F 6F 74 2C 20 6C 73 6F 6E 29 3D 30 29 d(root, lson)=0)
000020: 20 20 28 2A 20 69 66 20 6E 6F 20 6C 65 66 74 20 (* if no left
000030: 73 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 son *)..
000040: 20 74 68 65 6E 20 20 20 20 20 20 20 20 20 20 20 then
000050: 20 20 20 20 20 20 28 2A 20 6F 75 74 63 6F 6D 65 (* outcome
000060: 20 69 73 20 66 72 6F 6D 20 72 69 67 68 74 20 73 is from right s
000070: 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 on *)..
000080: 20 20 20 73 65 74 62 64 28 72 6F 6F 74 2C 20 6F setbd(root, o
000090: 75 74 63 6F 6D 2C 0D 0A 20 20 20 20 20 20 20 20 utcom,..
0000A0: 20 20 20 20 20 20 20 62 6F 61 72 64 28 20 62 6F board( bo
0000B0: 61 72 64 28 72 6F 6F 74 2C 20 72 73 6F 6E 29 2C ard(root, rson),
0000C0: 20 6F 75 74 63 6F 6D 29 0D 0A 20 20 20 20 20 20 outcom)..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 29 0D 0A 20 20 )..
0000E0: 20 20 20 20 20 20 20 65 6C 73 65 20 20 20 20 20 else
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 28 2A 20 68 65 20 68 61 73 20 61 20 6C 65 66 (* he has a lef
000110: 74 20 73 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 20 t son *)..
000120: 20 20 20 20 20 20 69 66 20 28 62 6F 61 72 64 28 if (board(
000130: 72 6F 6F 74 2C 20 72 73 6F 6E 29 3D 30 29 20 28 root, rson)=0) (
000140: 2A 20 69 66 20 6E 6F 20 72 69 67 68 74 20 73 6F * if no right so
000150: 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 n *)..
000160: 20 20 74 68 65 6E 20 20 20 20 20 20 20 20 20 20 then
000170: 20 20 28 2A 20 6F 75 74 63 6F 6D 65 20 69 73 20 (* outcome is
000180: 66 72 6F 6D 20 6C 65 66 74 20 73 6F 6E 20 2A 29 from left son *)
000190: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001A0: 20 73 65 74 62 64 28 72 6F 6F 74 2C 20 6F 75 74 setbd(root, out
0001B0: 63 6F 6D 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 com,..
0001C0: 20 20 20 20 20 20 20 20 62 6F 61 72 64 28 20 62 board( b
0001D0: 6F 61 72 64 28 72 6F 6F 74 2C 20 6C 73 6F 6E 29 oard(root, lson)
0001E0: 2C 20 6F 75 74 63 6F 6D 29 0D 0A 20 20 20 20 20 , outcom)..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 )
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 70 3A 3D 62 6F 61 72 64 28 70 2C 20 6C 73 6F p:=board(p, lso
000020: 6E 29 20 28 2A 20 67 6F 20 6C 65 66 74 20 20 20 n) (* go left
000030: 20 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 *)..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
000050: 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 se
000060: 20 20 20 28 2A 20 72 69 67 68 74 20 69 73 20 62 (* right is b
000070: 65 74 74 65 72 20 72 6F 20 3D 20 2A 29 0D 0A 20 etter ro = *)..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 70 3A 3D 62 6F 61 72 64 28 70 2C 20 72 73 6F p:=board(p, rso
0000A0: 6E 29 20 28 2A 20 67 6F 20 72 69 67 68 74 20 20 n) (* go right
0000B0: 20 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 *)..
0000C0: 20 20 20 20 20 65 6E 64 3B 20 28 2A 20 77 68 69 end; (* whi
0000D0: 6C 65 20 6E 6F 74 20 61 20 6C 65 61 66 20 2A 29 le not a leaf *)
0000E0: 0D 0A 20 20 20 73 65 74 62 64 28 70 2C 20 62 65 .. setbd(p, be
0000F0: 73 70 61 74 2C 20 6F 6E 62 65 73 70 61 74 29 20 spat, onbespat)
000100: 20 28 2A 20 66 69 6E 61 6C 20 6C 65 61 66 20 69 (* final leaf i
000110: 73 20 6F 6E 20 62 65 73 74 20 70 61 74 68 20 2A s on best path *
000120: 29 0D 0A 20 20 20 65 6E 64 3B 20 28 2A 20 70 72 ).. end; (* pr
000130: 6F 63 65 64 75 72 65 20 66 69 6E 64 62 65 73 70 ocedure findbesp
000140: 61 74 20 2A 29 0D 0A 0D 0A 62 65 67 69 6E 20 28 at *)....begin (
000150: 2A 20 6D 61 69 6E 20 6C 69 6E 65 20 2A 29 0D 0A * main line *)..
000160: 67 65 74 72 6F 6F 74 3B 0D 0A 77 68 69 6C 65 20 getroot;..while
000170: 28 63 68 2D 27 30 27 3C 3E 32 29 20 64 6F 20 20 (ch-'0'<>2) do
000180: 28 2A 20 64 6F 20 77 68 69 6C 65 20 6E 6F 74 20 (* do while not
000190: 65 6F 66 20 2A 29 0D 0A 0D 0A 20 20 20 62 65 67 eof *).... beg
0001A0: 69 6E 0D 0A 20 20 20 70 75 74 23 30 28 31 33 2C in.. put#0(13,
0001B0: 31 30 2C 31 33 2C 31 30 29 3B 0D 0A 20 20 20 70 10,13,10);.. p
0001C0: 75 74 23 30 28 27 72 6F 6F 74 20 62 6F 61 27 2C ut#0('root boa',
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 27 72 64 20 69 .. 'rd i
0001E0: 73 20 20 20 27 29 3B 0D 0A 20 20 20 70 72 74 72 s ');.. prtr
0001F0: 6F 77 28 31 29 3B 0D 0A 0D 0A 20 20 20 6E 65 78 ow(1);.... nex
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6C .. el
000010: 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 se
000020: 20 20 20 20 20 28 2A 20 68 65 20 68 61 73 20 62 (* he has b
000030: 6F 74 68 20 73 6F 6E 73 20 2A 29 0D 0A 20 20 20 oth sons *)..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
000050: 62 6F 61 72 64 28 72 6F 6F 74 2C 20 74 75 72 6E board(root, turn
000060: 29 3D 62 74 75 72 6E 29 0D 0A 20 20 20 20 20 20 )=bturn)..
000070: 20 20 20 20 20 20 20 20 20 74 68 65 6E 20 20 20 then
000080: 20 28 2A 20 6F 75 74 63 6F 6D 65 20 69 73 20 6D (* outcome is m
000090: 69 6E 69 6D 75 6D 20 6F 66 20 73 6F 6E 73 27 20 inimum of sons'
0000A0: 6F 75 74 63 6F 6D 65 73 20 2A 29 0D 0A 20 20 20 outcomes *)..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
0000C0: 65 74 62 64 28 72 6F 6F 74 2C 20 6F 75 74 63 6F etbd(root, outco
0000D0: 6D 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 m,..
0000E0: 20 20 20 20 20 20 20 20 20 6D 69 6E 28 62 6F 61 min(boa
0000F0: 72 64 28 20 62 6F 61 72 64 28 72 6F 6F 74 2C 20 rd( board(root,
000100: 6C 73 6F 6E 29 2C 20 6F 75 74 63 6F 6D 29 2C 0D lson), outcom),.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000120: 20 20 20 20 20 20 20 20 20 20 62 6F 61 72 64 28 board(
000130: 20 62 6F 61 72 64 28 72 6F 6F 74 2C 20 72 73 6F board(root, rso
000140: 6E 29 2C 20 6F 75 74 63 6F 6D 29 0D 0A 20 20 20 n), outcom)..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 29 0D 0A 20 20 20 20 20 20 20 20 )..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 )
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000190: 20 65 6C 73 65 20 20 20 20 28 2A 20 6F 75 74 63 else (* outc
0001A0: 6F 6D 65 20 69 73 20 6D 61 78 69 6D 75 6D 20 6F ome is maximum o
0001B0: 66 20 73 6F 6E 73 27 20 6F 75 74 63 6F 6D 65 73 f sons' outcomes
0001C0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
0001D0: 20 20 20 20 20 20 20 73 65 74 62 64 28 72 6F 6F setbd(roo
0001E0: 74 2C 20 6F 75 74 63 6F 6D 2C 0D 0A 20 20 20 20 t, outcom,..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 74 3A 3D 32 3B 20 28 2A 20 72 6F 77 20 32 20 69 t:=2; (* row 2 i
000010: 73 20 66 69 72 73 74 20 66 72 65 65 20 72 6F 77 s first free row
000020: 20 2A 29 0D 0A 20 20 20 67 72 6F 77 74 72 65 65 *).. growtree
000030: 28 31 29 3B 0D 0A 20 20 20 66 69 6E 64 6F 75 74 (1);.. findout
000040: 28 31 29 3B 0D 0A 20 20 20 66 69 6E 64 62 65 73 (1);.. findbes
000050: 70 61 74 3B 0D 0A 20 20 20 70 75 74 23 30 28 31 pat;.. put#0(1
000060: 33 2C 31 30 2C 31 33 2C 31 30 29 3B 0D 0A 20 20 3,10,13,10);..
000070: 20 70 75 74 23 30 28 27 6F 75 74 70 75 74 20 74 put#0('output t
000080: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 72 65 ',.. 're
000090: 65 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 70 72 e ');.. pr
0000A0: 74 74 72 65 65 28 31 29 3B 0D 0A 20 20 20 67 65 ttree(1);.. ge
0000B0: 74 72 6F 6F 74 0D 0A 20 20 20 65 6E 64 0D 0A 0D troot.. end...
0000C0: 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A .end............
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 20 28 2A 20 66 69 6E 61 6C 20 6C 65 61 66 20 69 (* final leaf i
000110: 73 20 6F 6E 20 62 65 73 74 20 70 61 74 68 20 2A s on best path *
000120: 29 0D 0A 20 20 20 65 6E 64 3B 20 28 2A 20 70 72 ).. end; (* pr
000130: 6F 63 65 64 75 72 65 20 66 69 6E 64 62 65 73 70 ocedure findbesp
000140: 61 74 20 2A 29 0D 0A 0D 0A 62 65 67 69 6E 20 28 at *)....begin (
000150: 2A 20 6D 61 69 6E 20 6C 69 6E 65 20 2A 29 0D 0A * main line *)..
000160: 67 65 74 72 6F 6F 74 3B 0D 0A 77 68 69 6C 65 20 getroot;..while
000170: 28 63 68 2D 27 30 27 3C 3E 32 29 20 64 6F 20 20 (ch-'0'<>2) do
000180: 28 2A 20 64 6F 20 77 68 69 6C 65 20 6E 6F 74 20 (* do while not
000190: 65 6F 66 20 2A 29 0D 0A 0D 0A 20 20 20 62 65 67 eof *).... beg
0001A0: 69 6E 0D 0A 20 20 20 70 75 74 23 30 28 31 33 2C in.. put#0(13,
0001B0: 31 30 2C 31 33 2C 31 30 29 3B 0D 0A 20 20 20 70 10,13,10);.. p
0001C0: 75 74 23 30 28 27 72 6F 6F 74 20 62 6F 61 27 2C ut#0('root boa',
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 27 72 64 20 69 .. 'rd i
0001E0: 73 20 20 20 27 29 3B 0D 0A 20 20 20 70 72 74 72 s ');.. prtr
0001F0: 6F 77 28 31 29 3B 0D 0A 0D 0A 20 20 20 6E 65 78 ow(1);.... nex
Size : 512 (Real : 512)
000000: 20 6D 61 78 28 62 6F 61 72 64 20 28 62 6F 61 72 max(board (boar
000010: 64 28 72 6F 6F 74 2C 20 6C 73 6F 6E 29 2C 20 6F d(root, lson), o
000020: 75 74 63 6F 6D 29 2C 0D 0A 20 20 20 20 20 20 20 utcom),..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 62 6F 61 72 64 20 28 62 6F 61 72 64 28 72 board (board(r
000050: 6F 6F 74 2C 20 72 73 6F 6E 29 2C 20 6F 75 74 63 oot, rson), outc
000060: 6F 6D 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 om)..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0D 0A )..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 29 0D 0A 20 20 20 20 20 20 )..
0000A0: 65 6E 64 20 28 2A 20 69 66 20 72 6F 6F 74 3C 3E end (* if root<>
0000B0: 30 20 2A 29 0D 0A 20 20 20 65 6E 64 3B 20 28 2A 0 *).. end; (*
0000C0: 20 70 72 6F 63 65 64 75 72 65 20 66 69 6E 64 6F procedure findo
0000D0: 75 74 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 ut *)....procedu
0000E0: 72 65 20 66 69 6E 64 62 65 73 70 61 74 3B 0D 0A re findbespat;..
0000F0: 0D 0A 20 20 20 76 61 72 0D 0A 20 20 20 20 20 20 .. var..
000100: 70 20 3A 20 69 6E 74 65 67 65 72 3B 20 20 28 2A p : integer; (*
000110: 20 77 6F 72 6B 20 70 6F 69 6E 74 65 72 20 75 73 work pointer us
000120: 65 64 20 74 6F 20 74 72 61 76 65 72 73 65 20 74 ed to traverse t
000130: 72 65 65 20 2A 29 0D 0A 0D 0A 20 20 20 62 65 67 ree *).... beg
000140: 69 6E 0D 0A 20 20 20 70 3A 3D 31 3B 0D 0A 20 20 in.. p:=1;..
000150: 20 28 2A 20 6C 6F 6F 70 20 75 6E 69 74 6C 20 6C (* loop unitl l
000160: 65 61 66 20 69 73 20 66 6F 75 6E 64 20 2A 29 0D eaf is found *).
000170: 0A 20 20 20 77 68 69 6C 65 20 28 62 6F 61 72 64 . while (board
000180: 28 70 2C 20 6C 73 6F 6E 29 3C 3E 30 29 20 6F 72 (p, lson)<>0) or
000190: 20 28 62 6F 61 72 64 28 70 2C 20 72 73 6F 6E 29 (board(p, rson)
0001A0: 3C 3E 30 29 20 64 6F 0D 0A 20 20 20 20 20 20 62 <>0) do.. b
0001B0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 73 65 74 62 egin.. setb
0001C0: 64 28 70 2C 20 62 65 73 70 61 74 2C 20 6F 6E 62 d(p, bespat, onb
0001D0: 65 73 70 61 74 29 3B 0D 0A 20 20 20 20 20 20 69 espat);.. i
0001E0: 66 20 28 62 6F 61 72 64 28 70 2C 20 6C 73 6F 6E f (board(p, lson
0001F0: 29 3D 30 29 0D 0A 20 20 20 20 20 20 74 68 65 6E )=0).. then
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 28 2A 20 64 65 63 69 6D 61 6C 20 72 65 70 72 65 (* decimal repre
000010: 73 65 6E 74 61 74 6F 6E 20 6F 66 20 6E 65 67 61 sentaton of nega
000020: 74 69 76 65 20 70 6F 77 65 72 73 20 6F 66 20 32 tive powers of 2
000030: 20 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 20 6E 3D 31 *)....const n=1
000040: 30 3B 0D 0A 0D 0A 74 79 70 65 20 64 69 67 69 74 0;....type digit
000050: 20 20 3D 20 30 2E 2E 39 3B 0D 0A 20 20 20 20 20 = 0..9;..
000060: 64 69 67 74 79 70 20 3D 20 61 72 72 61 79 5B 31 digtyp = array[1
000070: 2E 2E 6E 5D 20 6F 66 20 64 69 67 69 74 3B 0D 0A ..n] of digit;..
000080: 0D 0A 76 61 72 20 69 2C 6B 2C 72 3A 20 69 6E 74 ..var i,k,r: int
000090: 65 67 65 72 3B 0D 0A 20 20 20 20 64 20 3A 20 64 eger;.. d : d
0000A0: 69 67 74 79 70 3B 0D 0A 0D 0A 62 65 67 69 6E 20 igtyp;....begin
0000B0: 66 6F 72 20 6B 3A 3D 31 20 74 6F 20 6E 20 64 6F for k:=1 to n do
0000C0: 0D 0A 20 20 20 62 65 67 69 6E 20 70 75 74 23 30 .. begin put#0
0000D0: 28 27 2E 27 29 3B 20 72 3A 3D 30 3B 0D 0A 20 20 ('.'); r:=0;..
0000E0: 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 for i:=1 to
0000F0: 6B 2D 31 20 64 6F 0D 0A 20 20 20 20 20 20 62 65 k-1 do.. be
000100: 67 69 6E 20 72 3A 3D 31 30 2A 72 2B 64 5B 69 5D gin r:=10*r+d[i]
000110: 3B 20 64 5B 69 5D 3A 3D 72 2F 32 3B 0D 0A 20 20 ; d[i]:=r/2;..
000120: 20 20 20 20 20 20 20 20 20 20 72 3A 3D 72 2D 32 r:=r-2
000130: 2A 64 5B 69 5D 3B 20 70 75 74 23 30 28 64 5B 69 *d[i]; put#0(d[i
000140: 5D 2B 27 30 27 29 0D 0A 20 20 20 20 20 20 65 6E ]+'0').. en
000150: 64 3B 0D 0A 20 20 20 20 20 20 64 5B 6B 5D 3A 3D d;.. d[k]:=
000160: 35 3B 20 70 75 74 23 30 28 27 35 27 2C 31 33 2C 5; put#0('5',13,
000170: 31 30 29 0D 0A 20 20 20 65 6E 64 0D 0A 65 6E 64 10).. end..end
000180: 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000190: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 0D 0A 54 68 69 73 20 66 69 6C 65 20 64 65 73 63 ..This file desc
000010: 69 62 65 73 20 74 68 65 20 66 75 6E 63 74 69 6F ibes the functio
000020: 6E 20 6F 66 20 65 61 63 68 20 6F 66 20 74 68 65 n of each of the
000030: 20 70 2D 6F 70 20 63 6F 64 65 73 2C 20 61 73 20 p-op codes, as
000040: 62 65 73 74 20 49 0D 0A 63 61 6E 20 72 65 6D 65 best I..can reme
000050: 6D 62 65 72 20 74 68 65 6D 20 77 68 69 6C 65 20 mber them while
000060: 6C 6F 6F 6B 69 6E 67 20 61 74 20 6D 79 20 6E 6F looking at my no
000070: 74 65 73 20 61 6E 64 20 63 6F 64 65 20 6F 66 20 tes and code of
000080: 6F 76 65 72 20 61 20 79 65 61 72 0D 0A 61 67 6F over a year..ago
000090: 2E 20 20 28 53 6F 72 72 79 2C 20 69 74 27 73 20 . (Sorry, it's
0000A0: 74 68 65 20 62 65 73 74 20 49 20 63 61 6E 20 6F the best I can o
0000B0: 66 66 65 72 20 79 6F 75 2E 29 0D 0A 0D 0A 45 6E ffer you.)....En
0000C0: 74 65 72 65 64 20 30 32 2F 32 30 2F 38 31 2C 20 tered 02/20/81,
0000D0: 66 72 6F 6D 20 6E 6F 74 65 73 20 64 61 74 65 64 from notes dated
0000E0: 20 30 39 2F 30 31 2F 37 39 0D 0A 0D 0A 54 68 65 09/01/79....The
0000F0: 20 63 6F 6D 70 69 6C 65 72 20 64 6F 65 73 20 6E compiler does n
000100: 6F 74 20 67 65 6E 65 72 61 74 65 20 61 6C 6C 20 ot generate all
000110: 6F 66 20 74 68 65 20 70 2D 63 6F 64 65 73 20 67 of the p-codes g
000120: 69 76 65 6E 20 68 65 72 65 2E 20 20 53 6F 6D 65 iven here. Some
000130: 0D 0A 77 65 72 65 20 66 6F 72 20 70 6C 61 6E 65 ..were for plane
000140: 64 20 65 6E 68 61 6E 63 65 6D 65 6E 74 73 20 74 d enhancements t
000150: 68 61 74 20 6E 65 76 65 72 20 77 65 72 65 20 66 hat never were f
000160: 69 6E 69 73 68 65 64 2E 20 20 53 69 6D 69 6C 61 inished. Simila
000170: 72 6C 61 79 2C 0D 0A 74 68 65 20 74 72 61 6E 73 rlay,..the trans
000180: 6C 61 74 6F 72 20 28 70 66 65 74 29 20 77 69 6C lator (pfet) wil
000190: 6C 20 74 72 61 6E 73 6C 61 74 65 20 6D 61 6E 79 l translate many
0001A0: 20 70 2D 63 6F 64 65 73 20 74 68 61 74 20 74 68 p-codes that th
0001B0: 65 20 63 6F 6D 70 69 6C 65 72 0D 0A 70 72 65 73 e compiler..pres
0001C0: 65 6E 74 6C 79 20 64 6F 65 73 20 6E 6F 74 20 67 ently does not g
0001D0: 65 6E 65 72 61 74 65 2E 20 20 54 68 65 72 65 20 enerate. There
0001E0: 6D 61 79 20 62 65 20 73 6F 6D 65 20 70 2D 63 6F may be some p-co
0001F0: 64 65 73 20 69 74 20 64 6F 65 73 0D 0A 67 65 6E des it does..gen
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 65 72 61 74 65 20 74 68 61 74 20 61 72 65 20 6E erate that are n
000010: 6F 74 20 6C 69 73 74 65 64 20 68 65 72 65 2C 20 ot listed here,
000020: 62 75 74 20 74 68 69 73 20 69 73 20 74 68 65 20 but this is the
000030: 62 75 6C 6B 20 6F 66 20 74 68 65 0D 0A 75 73 65 bulk of the..use
000040: 66 75 6C 6C 20 6F 6E 65 73 20 61 6E 64 20 77 69 full ones and wi
000050: 6C 6C 20 67 69 76 65 20 79 6F 75 20 74 68 65 20 ll give you the
000060: 67 65 6E 65 72 61 6C 20 69 64 65 61 2E 0D 0A 0D general idea....
000070: 0A 0D 0A 0D 0A 6C 69 74 09 30 2C 63 09 70 75 73 .....lit.0,c.pus
000080: 68 20 77 6F 72 64 20 63 6F 6E 73 74 61 6E 74 20 h word constant
000090: 63 20 69 6E 74 6F 20 73 74 61 63 6B 0D 0A 0D 0A c into stack....
0000A0: 6F 70 72 09 6E 2C 6D 09 70 65 72 66 6F 72 6D 20 opr.n,m.perform
0000B0: 6F 70 65 72 61 74 69 6F 6E 20 6D 20 6F 6E 20 74 operation m on t
0000C0: 6F 70 20 6F 66 20 73 74 61 63 6B 0D 0A 09 09 65 op of stack....e
0000D0: 6C 65 6D 65 6E 74 28 73 29 20 6F 66 20 74 79 70 lement(s) of typ
0000E0: 65 20 6E 2C 20 77 68 65 72 65 20 6E 3D 30 20 69 e n, where n=0 i
0000F0: 73 20 77 6F 72 64 2C 20 6E 3D 31 20 69 73 20 61 s word, n=1 is a
000100: 6C 66 61 0D 0A 0D 0A 6C 6F 64 09 6C 2C 61 09 70 lfa....lod.l,a.p
000110: 75 73 68 20 77 6F 72 64 20 61 74 20 6C 2B 61 20 ush word at l+a
000120: 69 6E 74 6F 20 73 74 61 63 6B 0D 0A 0D 0A 73 74 into stack....st
000130: 6F 09 6C 2C 61 09 70 6F 20 73 74 61 63 6B 20 69 o.l,a.po stack i
000140: 6E 74 6F 20 6C 2B 61 0D 0A 0D 0A 63 61 6C 09 6C nto l+a....cal.l
000150: 2C 61 09 63 61 6C 6C 20 72 6F 75 74 69 6E 65 20 ,a.call routine
000160: 61 74 20 70 20 6C 61 62 65 6C 20 61 2C 20 6C 65 at p label a, le
000170: 76 65 6C 20 6C 20 61 77 61 79 0D 0A 0D 0A 69 6E vel l away....in
000180: 74 09 30 2C 6E 09 61 64 64 20 6E 20 74 6F 20 73 t.0,n.add n to s
000190: 74 61 63 6B 20 70 6F 69 6E 74 65 72 0D 0A 0D 0A tack pointer....
0001A0: 6A 75 6D 70 09 30 2C 61 09 6A 75 6D 70 20 74 6F jump.0,a.jump to
0001B0: 20 70 20 6C 61 62 65 6C 20 61 0D 0A 0D 0A 6A 70 p label a....jp
0001C0: 63 09 63 2C 61 09 6A 75 6D 70 20 74 6F 20 70 20 c.c,a.jump to p
0001D0: 6C 61 62 65 6C 20 61 20 61 66 74 65 72 20 70 6F label a after po
0001E0: 70 70 69 6E 67 20 73 74 61 63 6B 0D 0A 09 09 63 pping stack....c
0001F0: 3D 30 20 6A 75 6D 70 20 69 66 20 28 74 6F 70 29 =0 jump if (top)
Size : 512 (Real : 512)
000000: C3 5A 01 C3 F3 01 C3 FF 01 C3 A3 02 C3 AE 02 C3 .Z..............
000010: 0F 01 C3 D3 02 C3 15 01 C3 18 01 C3 1B 01 C3 1E ................
000020: 01 C3 DC 02 C3 F4 02 C3 2D 03 C3 3A 03 C3 4D 03 ........-..:..M.
000030: C3 5C 03 C3 7A 03 C3 86 03 C3 9C 03 C3 3C 01 C3 .\..z........<..
000040: 3F 01 C3 B3 03 C3 C1 03 C3 D4 03 00 00 52 54 50 ?............RTP
000050: 20 52 45 56 20 30 30 2E 38 52 2A 06 00 2E 00 F9 REV 00.8R*.....
000060: 22 4B 01 CD 6C 01 CD B2 01 C3 00 06 3A 5D 00 06 "K..l.......:]..
000070: FF FE 20 CA 7C 01 FE 3F CA 7C 01 04 78 32 27 04 .. .|..?.|..x2'.
000080: 21 DE 03 11 5C 00 CD A7 01 3A 6D 00 06 FF FE 20 !...\....:m....
000090: CA 99 01 FE 3F CA 99 01 04 78 32 28 04 21 01 04 ....?....x2(.!..
0000A0: 11 6C 00 CD A7 01 C9 06 0C 1A 77 13 23 05 C2 A9 .l........w.#...
0000B0: 01 C9 3A 27 04 B7 C2 CF 01 AF 32 FE 03 11 DE 03 ..:'......2.....
0000C0: 0E 0F CD 05 00 3C CA 17 03 21 AF 04 22 2B 04 3A .....<...!.."+.:
0000D0: 28 04 B7 C0 11 01 04 0E 13 CD 05 00 11 01 04 0E (...............
0000E0: 16 CD 05 00 3C CA 17 03 AF 32 21 04 21 AF 04 22 ....<....2!.!.."
0000F0: 2D 04 C9 2A 4B 01 5E 23 56 EB 3D C2 F6 01 C9 E1 -..*K.^#V.=.....
000100: D1 E3 7A AC F2 0C 02 7A 17 3E FF C9 7A 94 C0 7B ..z....z.>..z..{
000110: 95 C9 3A 27 04 B7 C2 24 02 3A 2A 04 B7 C2 24 02 ..:'...$.:*...$.
000120: CD 2A 02 C9 0E 01 CD 05 00 C9 2A 2B 04 7D FE AF .*........*+.}..
000130: C2 52 02 11 2F 04 0E 1A CD 05 00 0E 14 11 DE 03 .R../...........
000140: CD 05 00 B7 C2 17 03 11 80 00 0E 1A CD 05 00 21 ...............!
000150: 2F 04 7E 23 22 2B 04 C9 4F 3A 28 04 B7 C2 6C 02 /.~#"+..O:(...l.
000160: 3A 29 04 B7 C2 6C 02 79 CD 73 02 C9 59 0E 02 CD :)...l.y.s..Y...
000170: 05 00 C9 F5 2A 2D 04 7D FE 2F C2 9C 02 11 AF 04 ....*-.}./......
000180: 0E 1A CD 05 00 11 01 04 0E 15 CD 05 00 B7 C2 17 ................
000190: 03 11 80 00 0E 1A CD 05 00 21 AF 04 F1 77 23 22 .........!...w#"
0001A0: 2D 04 C9 32 2A 04 CD 12 02 6F 26 00 E3 E9 32 29 -..2*....o&...2)
0001B0: 04 E1 E3 7D CD 58 02 C9 01 F6 FF 11 FF FF 09 13 ...}.X..........
0001C0: DA BE 02 3E 0A 85 F5 EB 7C B5 C4 BB 02 F1 C6 30 ...>....|......0
0001D0: C3 58 02 32 29 04 E1 E3 CD B8 02 C9 32 29 04 16 .X.2).......2)..
0001E0: 04 E1 E3 D5 E5 7D CD 58 02 E1 7C CD 58 02 D1 15 .....}.X..|.X...
0001F0: C2 E1 02 C9 3A 28 04 B7 C2 00 00 3E 1A CD 73 02 ....:(.....>..s.
Size : 512 (Real : 512)
000000: 3D 66 61 6C 73 65 2C 20 63 3D 31 20 6A 75 6D 70 =false, c=1 jump
000010: 20 69 66 20 28 74 6F 70 29 3D 74 72 75 65 0D 0A if (top)=true..
000020: 0D 0A 63 73 70 09 30 2C 6E 09 63 61 6C 6C 20 73 ..csp.0,n.call s
000030: 74 61 6E 64 61 72 64 20 70 72 6F 63 65 64 75 72 tandard procedur
000040: 65 20 6E 0D 0A 0D 0A 6C 6F 64 78 09 6C 2C 61 09 e n....lodx.l,a.
000050: 70 75 73 68 20 77 6F 72 64 20 61 74 20 6C 2B 61 push word at l+a
000060: 2B 28 74 6F 70 29 20 69 6E 74 6F 20 73 74 61 63 +(top) into stac
000070: 6B 0D 0A 0D 0A 73 74 6F 78 09 6C 2C 61 09 70 6F k....stox.l,a.po
000080: 70 20 73 74 61 63 6B 20 69 6E 74 6F 20 6C 2B 61 p stack into l+a
000090: 2B 28 74 6F 70 2D 31 29 0D 0A 0D 0A 61 6C 69 74 +(top-1)....alit
0000A0: 09 30 2C 30 09 70 75 73 68 20 61 6C 66 61 20 77 .0,0.push alfa w
0000B0: 68 69 63 68 20 66 6F 6C 6C 6F 77 73 20 28 6E 65 hich follows (ne
0000C0: 78 74 20 32 20 70 2D 6F 70 73 20 6F 72 20 38 20 xt 2 p-ops or 8
0000D0: 62 79 74 65 73 29 0D 0A 09 09 69 6E 74 6F 20 73 bytes)....into s
0000E0: 74 61 63 6B 2C 20 6D 73 62 79 74 65 20 66 6F 6C tack, msbyte fol
0000F0: 6C 6F 77 73 20 66 69 72 73 74 20 28 6D 61 79 20 lows first (may
000100: 68 61 76 65 20 63 68 61 6E 67 65 64 29 0D 0A 0D have changed)...
000110: 0A 61 6C 6F 64 09 6C 2C 61 09 70 75 73 68 20 61 .alod.l,a.push a
000120: 6C 66 61 20 61 74 20 6C 2B 61 20 69 6E 74 6F 20 lfa at l+a into
000130: 73 74 61 63 6B 0D 0A 0D 0A 61 73 74 6F 09 6C 2C stack....asto.l,
000140: 61 09 70 6F 70 20 61 6C 66 61 20 66 72 6F 6D 20 a.pop alfa from
000150: 73 74 61 63 6B 20 69 6E 74 6F 20 6C 2B 61 0D 0A stack into l+a..
000160: 0D 0A 61 6C 6F 64 78 09 6C 2C 61 09 70 75 73 68 ..alodx.l,a.push
000170: 20 61 6C 66 61 20 61 74 20 6C 2B 61 2B 28 74 6F alfa at l+a+(to
000180: 70 29 20 74 6F 20 73 74 61 63 6B 0D 0A 0D 0A 61 p) to stack....a
000190: 73 74 6F 78 09 6C 2C 61 09 70 6F 70 20 61 6C 66 stox.l,a.pop alf
0001A0: 61 20 66 72 6F 6D 20 73 74 61 63 6B 20 69 6E 74 a from stack int
0001B0: 6F 20 6C 2B 61 2B 28 74 6F 70 2D 35 29 0D 0A 0D o l+a+(top-5)...
0001C0: 0A 70 73 68 66 09 30 2C 30 09 70 75 73 68 20 74 .pshf.0,0.push t
0001D0: 72 75 65 20 6F 72 20 66 61 6C 73 65 20 69 6E 74 rue or false int
0001E0: 6F 20 73 74 61 63 6B 20 62 61 73 65 64 20 6F 6E o stack based on
0001F0: 20 72 65 73 75 6C 74 0D 0A 09 09 6F 66 20 6C 61 result....of la
Size : 512 (Real : 512)
000000: 3A 2D 04 FE B0 C2 FB 02 11 01 04 0E 10 CD 05 00 :-..............
000010: 3C CA 17 03 C3 00 00 11 22 03 0E 09 CD 05 00 C3 <.......".......
000020: 00 00 64 69 73 6B 20 65 72 72 6F 72 24 E1 3E 04 ..disk error$.>.
000030: 56 23 5E 23 D5 3D C2 30 03 E9 01 07 00 09 C1 3E V#^#.=.0.......>
000040: 04 56 2B 5E 2B D5 3D C2 41 03 60 69 E9 C1 3E 04 .V+^+.=.A.`i..>.
000050: D1 73 23 72 23 3D C2 50 03 60 69 E9 21 12 00 39 .s#r#=.P.`i.!..9
000060: E5 11 F8 FF 19 EB 19 EB 0E 08 1A BE C2 75 03 23 .............u.#
000070: 13 0D C2 6A 03 E1 D1 F9 EB E9 E1 D1 E3 AF 93 5F ...j..........._
000080: 9A 93 57 19 E3 E9 E1 D1 E3 C5 44 4D 21 00 00 79 ..W.......DM!..y
000090: B0 CA 99 03 0B 19 C3 8F 03 C1 E3 E9 E1 D1 E3 C5 ................
0000A0: AF 93 5F 9A 93 57 01 FF FF 03 19 DA A9 03 60 69 .._..W........`i
0000B0: C1 E3 E9 2A 4B 01 E5 E5 21 00 00 39 22 4B 01 EB ...*K...!..9"K..
0000C0: E9 2A 4B 01 E5 D5 CD F6 01 E3 EB 21 00 00 39 22 .*K........!..9"
0000D0: 4B 01 EB E9 2A 4B 01 F9 F1 E1 22 4B 01 C9 00 00 K...*K...."K....
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 73 74 20 63 6F 6E 64 69 74 69 6F 6E 61 6C 20 65 st conditional e
000010: 78 65 63 75 74 65 64 0D 0A 0D 0A 6C 61 61 09 6C xecuted....laa.l
000020: 2C 61 09 6C 6F 61 64 20 61 62 73 6F 6C 75 74 65 ,a.load absolute
000030: 20 6D 61 63 68 69 6E 65 20 61 64 64 72 65 73 73 machine address
000040: 20 6F 66 20 6C 2C 61 20 69 6E 74 6F 20 73 74 61 of l,a into sta
000050: 63 6B 0D 0A 09 09 75 73 65 64 20 66 6F 72 20 76 ck....used for v
000060: 61 72 20 70 61 72 61 6D 65 74 65 72 73 0D 0A 0D ar parameters...
000070: 0A 6C 6F 64 69 09 30 2C 30 09 6C 6F 61 64 20 77 .lodi.0,0.load w
000080: 6F 72 64 20 70 6F 69 6E 74 65 64 20 74 6F 20 62 ord pointed to b
000090: 79 20 74 6F 70 20 6F 66 20 73 74 61 63 6B 20 69 y top of stack i
0000A0: 6E 74 6F 20 73 74 61 63 6B 0D 0A 09 09 70 6F 70 nto stack....pop
0000B0: 73 20 61 64 64 72 65 73 73 20 66 69 72 73 74 0D s address first.
0000C0: 0A 0D 0A 73 74 6F 69 09 30 2C 30 09 73 74 6F 72 ...stoi.0,0.stor
0000D0: 65 20 77 6F 72 64 20 6F 6E 20 74 6F 70 20 6F 66 e word on top of
0000E0: 20 73 74 61 63 6B 20 61 74 20 61 64 64 72 65 73 stack at addres
0000F0: 73 20 6F 6E 20 28 74 6F 70 2D 31 29 0D 0A 0D 0A s on (top-1)....
000100: 6C 61 62 09 30 2C 6E 09 64 65 66 69 6E 65 73 20 lab.0,n.defines
000110: 74 68 65 20 70 20 6C 61 62 65 6C 20 6E 0D 0A 1A the p label n...
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 70 29 20 74 6F 20 73 74 61 63 6B 0D 0A 0D 0A 61 p) to stack....a
000190: 73 74 6F 78 09 6C 2C 61 09 70 6F 70 20 61 6C 66 stox.l,a.pop alf
0001A0: 61 20 66 72 6F 6D 20 73 74 61 63 6B 20 69 6E 74 a from stack int
0001B0: 6F 20 6C 2B 61 2B 28 74 6F 70 2D 35 29 0D 0A 0D o l+a+(top-5)...
0001C0: 0A 70 73 68 66 09 30 2C 30 09 70 75 73 68 20 74 .pshf.0,0.push t
0001D0: 72 75 65 20 6F 72 20 66 61 6C 73 65 20 69 6E 74 rue or false int
0001E0: 6F 20 73 74 61 63 6B 20 62 61 73 65 64 20 6F 6E o stack based on
0001F0: 20 72 65 73 75 6C 74 0D 0A 09 09 6F 66 20 6C 61 result....of la
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: C3 64 37 21 01 00 E5 E1 22 6D 56 21 3E 00 E5 3E .d7!...."mV!>..>
000110: 01 CD 0C 01 21 3E 00 E5 3E 01 CD 0C 01 01 06 00 ....!>..>.......
000120: 2A 4B 01 09 5E 23 56 D5 3E 01 CD 12 01 21 07 00 *K..^#V.>....!..
000130: E5 3E 01 CD 0C 01 21 3C 00 E5 3E 01 CD 0C 01 21 .>....!<..>....!
000140: 3C 00 E5 3E 01 CD 0C 01 C3 48 01 3E 00 CD 09 01 <..>.....H.>....
000150: E1 22 4B 56 2A 6F 56 E5 21 0D 00 E5 CD 06 01 CA ."KV*oV.!.......
000160: 6B 06 2A 4B 56 E5 3E 01 CD 0C 01 2A 4B 56 E5 21 k.*KV.>....*KV.!
000170: 61 00 E5 CD 06 01 CA 7C 06 D2 8B 06 2A 4B 56 E5 a......|....*KV.
000180: 21 20 00 E5 CD 33 01 E1 22 4B 56 2A 4B 56 E5 21 ! ...3.."KV*KV.!
000190: 20 00 E5 CD 06 01 DA 13 07 CA 13 07 2A 4B 56 E5 ...........*KV.
0001A0: 21 0D 00 E5 CD 06 01 C2 0B 07 3E 00 CD 09 01 E1 !.........>.....
0001B0: 22 4B 56 2A 6F 56 E5 21 0D 00 E5 CD 06 01 CA CA "KV*oV.!........
0001C0: 06 2A 4B 56 E5 3E 01 CD 0C 01 2A 6D 56 E5 21 01 .*KV.>....*mV.!.
0001D0: 00 E5 CD 06 01 C2 0B 07 21 00 00 E5 E1 22 6D 56 ........!...."mV
0001E0: CD 27 01 2A 2A 2A 2A 2A 2A 2A 2A 3E 01 CD 21 01 .'.********>..!.
0001F0: 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E 01 CD !...>....!...>..
Size : 512 (Real : 512)
000000: 01 33 33 33 33 01 FE FF 2A 4B 01 09 5E 23 56 D5 .3333...*K..^#V.
000010: 3B 3B 11 77 0D 3E 01 CD 45 01 21 95 51 D1 C1 09 ;;.w.>..E.!.Q...
000020: 09 73 23 72 C3 48 01 3B 3B 21 07 00 E5 3E 02 CD .s#r.H.;;!...>..
000030: 03 01 11 FE FF 19 D1 73 23 72 2A 4D 56 E5 21 01 .......s#r*MV.!.
000040: 00 E5 CD 06 01 C2 C2 10 3B 3B 11 1D 0C 3E 03 CD ........;;...>..
000050: 45 01 01 FE FF 2A 4B 01 09 D1 73 23 72 01 FE FF E....*K...s#r...
000060: 2A 4B 01 09 5E 23 56 D5 21 E1 4C D1 19 19 5E 23 *K..^#V.!.L...^#
000070: 56 D5 21 07 00 E5 CD 06 01 C6 FF 3F 9F F5 01 FE V.!........?....
000080: FF 2A 4B 01 09 5E 23 56 D5 21 E1 4C D1 19 19 5E .*K..^#V.!.L...^
000090: 23 56 D5 21 06 00 E5 CD 06 01 C6 FF 3F 9F D1 B2 #V.!........?...
0000A0: CA 14 10 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 E1 ......*K..^#V.!.
0000B0: 4C D1 19 19 5E 23 56 D5 3E 02 CD 03 01 11 FE FF L...^#V.>.......
0000C0: 19 D1 73 23 72 01 FE FF 2A 4B 01 09 5E 23 56 D5 ..s#r...*K..^#V.
0000D0: 21 95 51 D1 19 19 5E 23 56 D5 3E 02 CD 03 01 11 !.Q...^#V.>.....
0000E0: FC FF 19 D1 73 23 72 01 FE FF 2A 4B 01 09 5E 23 ....s#r...*K..^#
0000F0: 56 D5 21 EF 53 D1 19 19 5E 23 56 D5 3E 02 CD 03 V.!.S...^#V.>...
000100: 01 11 FA FF 19 D1 73 23 72 11 16 07 3E 03 CD 45 ......s#r...>..E
000110: 01 C3 BF 10 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 .......*K..^#V.!
000120: E1 4C D1 19 19 5E 23 56 D5 21 01 00 E5 CD 06 01 .L...^#V.!......
000130: C2 B1 10 3B 3B 11 77 0D 3E 02 CD 45 01 01 FE FF ...;;.w.>..E....
000140: 2A 4B 01 09 D1 73 23 72 21 0F 00 E5 21 14 00 E5 *K...s#r!...!...
000150: 11 E1 0A 3E 03 CD 45 01 33 33 33 33 21 0F 00 E5 ...>..E.3333!...
000160: 21 14 00 E5 11 E1 0A 3E 03 CD 45 01 33 33 33 33 !......>..E.3333
000170: 3B 3B 11 77 0D 3E 02 CD 45 01 01 FE FF 2A 4B 01 ;;.w.>..E....*K.
000180: 09 5E 23 56 D5 CD 33 01 21 01 00 E5 D1 E1 19 E5 .^#V..3.!.......
000190: 3E 02 CD 03 01 11 FC FF 19 D1 73 23 72 21 02 00 >.........s#r!..
0001A0: E5 3E 02 CD 03 01 11 FA FF 19 D1 73 23 72 C3 BF .>.........s#r..
0001B0: 10 21 67 00 E5 11 03 06 3E 03 CD 45 01 33 33 C3 .!g.....>..E.33.
0001C0: 0C 12 2A 4D 56 E5 21 0B 00 E5 CD 06 01 C2 91 11 ..*MV.!.........
0001D0: 21 00 00 E5 01 FE FF 2A 4B 01 09 D1 73 23 72 11 !......*K...s#r.
0001E0: 16 07 3E 03 CD 45 01 21 01 00 E5 21 02 00 E5 11 ..>..E.!...!....
0001F0: E1 0A 3E 03 CD 45 01 33 33 33 33 21 51 56 CD 2A ..>..E.3333!QV.*
Size : 512 (Real : 512)
000000: 0C 01 3E 01 CD 09 01 E1 22 4B 56 21 20 00 E5 E1 ..>....."KV! ...
000010: 22 4B 56 C3 48 01 2A 4B 56 E5 21 20 00 E5 CD 06 "KV.H.*KV.! ....
000020: 01 C2 2D 07 11 4B 06 CD 42 01 C3 16 07 2A 4B 56 ..-..K..B....*KV
000030: E5 21 41 00 E5 CD 06 01 3E 00 CA 40 07 D2 41 07 .!A.....>..@..A.
000040: 3D F5 2A 4B 56 E5 21 5A 00 E5 CD 06 01 3F 9F D1 =.*KV.!Z.....?..
000050: A2 CA 62 09 21 00 00 E5 E1 22 75 56 2A 75 56 E5 ..b.!...."uV*uV.
000060: 21 08 00 E5 CD 06 01 DA 8F 07 CA 8F 07 2A 75 56 !............*uV
000070: E5 2A 4B 56 E5 21 59 56 D1 C1 09 09 73 23 72 2A .*KV.!YV....s#r*
000080: 75 56 E5 21 01 00 E5 D1 E1 19 E5 E1 22 75 56 11 uV.!........"uV.
000090: 4B 06 CD 42 01 2A 4B 56 E5 21 41 00 E5 CD 06 01 K..B.*KV.!A.....
0000A0: 3E 00 DA A9 07 CA A9 07 3D F5 2A 4B 56 E5 21 5A >.......=.*KV.!Z
0000B0: 00 E5 CD 06 01 9F D1 B2 C6 FF 9F F5 2A 4B 56 E5 ............*KV.
0000C0: 21 30 00 E5 CD 06 01 3E 00 DA D0 07 CA D0 07 3D !0.....>.......=
0000D0: F5 2A 4B 56 E5 21 39 00 E5 CD 06 01 9F D1 B2 C6 .*KV.!9.........
0000E0: FF 9F D1 A2 CA 5C 07 2A 75 56 E5 21 08 00 E5 CD .....\.*uV.!....
0000F0: 06 01 DA 1D 08 CA 1D 08 2A 75 56 E5 21 20 00 E5 ........*uV.! ..
000100: 21 59 56 D1 C1 09 09 73 23 72 2A 75 56 E5 21 01 !YV....s#r*uV.!.
000110: 00 E5 D1 E1 19 E5 E1 22 75 56 C3 E7 07 21 00 00 ......."uV...!..
000120: E5 E1 22 77 56 21 00 00 E5 E1 22 73 56 21 03 00 .."wV!...."sV!..
000130: E5 E1 E5 E5 2A 73 56 E5 CD 06 01 CA 41 08 D2 9C ....*sV.....A...
000140: 08 2A 73 56 E5 2A 77 56 E5 21 59 56 D1 19 19 5E .*sV.*wV.!YV...^
000150: 23 56 D5 2A 77 56 E5 21 01 00 E5 D1 E1 19 E5 21 #V.*wV.!.......!
000160: 59 56 D1 19 19 5E 23 56 D5 21 00 01 E5 CD 36 01 YV...^#V.!....6.
000170: D1 E1 19 E5 21 51 56 D1 C1 09 09 73 23 72 2A 77 ....!QV....s#r*w
000180: 56 E5 21 02 00 E5 D1 E1 19 E5 E1 22 77 56 2A 73 V.!........"wV*s
000190: 56 E5 E1 23 E5 E1 22 73 56 C3 31 08 33 33 21 01 V..#.."sV.1.33!.
0001A0: 00 E5 E1 22 73 56 21 1D 00 E5 E1 22 77 56 2A 73 ..."sV!...."wV*s
0001B0: 56 E5 2A 77 56 E5 D1 E1 19 E5 21 02 00 E5 CD 39 V.*wV.....!....9
0001C0: 01 E1 22 75 56 21 51 56 CD 2A 01 2A 75 56 E5 21 .."uV!QV.*.*uV.!
0001D0: E7 40 D1 EB 29 29 29 19 CD 2A 01 CD 30 01 DA F0 .@..)))..*..0...
0001E0: 08 2A 75 56 E5 21 01 00 E5 CD 33 01 E1 22 77 56 .*uV.!....3.."wV
0001F0: 21 51 56 CD 2A 01 2A 75 56 E5 21 E7 40 D1 EB 29 !QV.*.*uV.!.@..)
Size : 512 (Real : 512)
000000: 01 21 01 00 E5 21 02 00 E5 01 FE FF 2A 4B 01 09 .!...!......*K..
000010: 5E 23 56 D5 21 00 00 E5 11 63 0B 3E 03 CD 45 01 ^#V.!....c.>..E.
000020: 21 10 00 39 F9 01 FE FF 2A 4B 01 09 5E 23 56 D5 !..9....*K..^#V.
000030: 21 01 00 E5 D1 E1 19 E5 01 FE FF 2A 4B 01 09 D1 !..........*K...
000040: 73 23 72 2A 4D 56 E5 21 0D 00 E5 CD 06 01 CA DF s#r*MV.!........
000050: 10 01 FE FF 2A 4B 01 09 5E 23 56 D5 3E 02 CD 03 ....*K..^#V.>...
000060: 01 11 FC FF 19 D1 73 23 72 21 02 00 E5 3E 02 CD ......s#r!...>..
000070: 03 01 11 FA FF 19 D1 73 23 72 21 0C 00 E5 21 04 .......s#r!...!.
000080: 00 E5 11 E1 0A 3E 03 CD 45 01 33 33 33 33 C3 0C .....>..E.3333..
000090: 12 3B 3B 11 77 0D 3E 02 CD 45 01 01 FE FF 2A 4B .;;.w.>..E....*K
0000A0: 01 09 D1 73 23 72 21 0F 00 E5 21 14 00 E5 11 E1 ...s#r!...!.....
0000B0: 0A 3E 03 CD 45 01 33 33 33 33 21 0F 00 E5 21 14 .>..E.3333!...!.
0000C0: 00 E5 11 E1 0A 3E 03 CD 45 01 33 33 33 33 3B 3B .....>..E.3333;;
0000D0: 11 77 0D 3E 02 CD 45 01 01 FE FF 2A 4B 01 09 5E .w.>..E....*K..^
0000E0: 23 56 D5 CD 33 01 21 01 00 E5 D1 E1 19 E5 3E 02 #V..3.!.......>.
0000F0: CD 03 01 11 FC FF 19 D1 73 23 72 21 02 00 E5 3E ........s#r!...>
000100: 02 CD 03 01 11 FA FF 19 D1 73 23 72 C3 48 01 3B .........s#r.H.;
000110: 3B 2A 4D 56 E5 21 15 00 E5 CD 06 01 CA 28 12 11 ;*MV.!.......(..
000120: 27 0F CD 42 01 C3 E3 12 11 16 07 3E 02 CD 45 01 '..B.......>..E.
000130: 21 10 00 E5 21 0B 00 E5 11 E1 0A 3E 02 CD 45 01 !...!......>..E.
000140: 33 33 33 33 11 27 0F CD 42 01 3E 01 CD 03 01 11 3333.'..B.>.....
000150: FC FF 19 5E 23 56 D5 01 FE FF 2A 4B 01 09 D1 73 ...^#V....*K...s
000160: 23 72 21 11 00 E5 21 0C 00 E5 11 E1 0A 3E 02 CD #r!...!......>..
000170: 45 01 33 33 33 33 21 24 00 E5 21 08 00 E5 11 E1 E.3333!$..!.....
000180: 0A 3E 02 CD 45 01 33 33 33 33 11 27 0F CD 42 01 .>..E.3333.'..B.
000190: 21 06 00 E5 3E 01 CD 03 01 11 FE FF 19 D1 73 23 !...>.........s#
0001A0: 72 3E 01 CD 03 01 11 FA FF 19 5E 23 56 D5 3E 01 r>........^#V.>.
0001B0: CD 03 01 11 FC FF 19 D1 73 23 72 3E 01 CD 03 01 ........s#r>....
0001C0: 11 FA FF 19 5E 23 56 D5 01 FE FF 2A 4B 01 09 5E ....^#V....*K..^
0001D0: 23 56 D5 CD 36 01 3E 01 CD 03 01 11 FA FF 19 D1 #V..6.>.........
0001E0: 73 23 72 C3 48 01 21 F8 FF 39 F9 21 01 00 E5 21 s#r.H.!..9.!...!
0001F0: 02 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 ......>..E.3333!
Size : 512 (Real : 512)
000000: 29 29 19 CD 2A 01 CD 30 01 CA 0F 09 D2 1F 09 2A ))..*..0.......*
000010: 75 56 E5 21 01 00 E5 D1 E1 19 E5 E1 22 73 56 2A uV.!........"sV*
000020: 73 56 E5 2A 77 56 E5 CD 06 01 D2 AE 08 2A 73 56 sV.*wV.......*sV
000030: E5 21 01 00 E5 CD 33 01 2A 77 56 E5 CD 06 01 D2 .!....3.*wV.....
000040: 57 09 2A 75 56 E5 21 AB 40 D1 19 19 5E 23 56 D5 W.*uV.!.@...^#V.
000050: E1 22 4D 56 C3 5F 09 21 01 00 E5 E1 22 4D 56 C3 ."MV._.!...."MV.
000060: DE 0A 2A 4B 56 E5 21 30 00 E5 CD 06 01 3E 00 CA ..*KV.!0.....>..
000070: 75 09 D2 76 09 3D F5 2A 4B 56 E5 21 39 00 E5 CD u..v.=.*KV.!9...
000080: 06 01 3F 9F D1 A2 CA E6 09 21 00 00 E5 E1 22 4F ..?......!...."O
000090: 56 21 02 00 E5 E1 22 4D 56 2A 4F 56 E5 21 0A 00 V!...."MV*OV.!..
0000A0: E5 CD 36 01 2A 4B 56 E5 21 30 00 E5 CD 33 01 D1 ..6.*KV.!0...3..
0000B0: E1 19 E5 E1 22 4F 56 11 4B 06 CD 42 01 2A 4B 56 ...."OV.K..B.*KV
0000C0: E5 21 30 00 E5 CD 06 01 3E 00 DA D1 09 CA D1 09 .!0.....>.......
0000D0: 3D F5 2A 4B 56 E5 21 39 00 E5 CD 06 01 9F D1 B2 =.*KV.!9........
0000E0: CA 99 09 C3 DE 0A 2A 4B 56 E5 21 28 00 E5 CD 06 ......*KV.!(....
0000F0: 01 C2 4C 0A 11 4B 06 CD 42 01 2A 4B 56 E5 21 2A ..L..K..B.*KV.!*
000100: 00 E5 CD 06 01 C2 41 0A 11 4B 06 CD 42 01 2A 4B ......A..K..B.*K
000110: 56 E5 21 2A 00 E5 CD 06 01 C2 08 0A 11 4B 06 CD V.!*.........K..
000120: 42 01 2A 4B 56 E5 21 29 00 E5 CD 06 01 C2 08 0A B.*KV.!)........
000130: 11 4B 06 CD 42 01 11 16 07 3E 01 CD 45 01 C3 49 .K..B....>..E..I
000140: 0A 21 0B 00 E5 E1 22 4D 56 C3 DE 0A 2A 4B 56 E5 .!...."MV...*KV.
000150: 21 27 00 E5 CD 06 01 C2 C6 0A 21 03 00 E5 E1 22 !'........!...."
000160: 4D 56 21 00 00 E5 E1 22 75 56 11 4B 06 CD 42 01 MV!...."uV.K..B.
000170: 2A 75 56 E5 2A 4B 56 E5 21 D7 42 D1 C1 09 09 73 *uV.*KV.!.B....s
000180: 23 72 2A 75 56 E5 21 01 00 E5 D1 E1 19 E5 E1 22 #r*uV.!........"
000190: 75 56 2A 4B 56 E5 21 27 00 E5 CD 06 01 C2 6A 0A uV*KV.!'......j.
0001A0: 11 4B 06 CD 42 01 2A 4B 56 E5 21 27 00 E5 CD 06 .K..B.*KV.!'....
0001B0: 01 CA 6A 0A 2A 75 56 E5 21 01 00 E5 CD 33 01 E1 ..j.*uV.!....3..
0001C0: 22 49 56 C3 DE 0A 2A 4B 56 E5 21 D7 41 D1 19 19 "IV...*KV.!.A...
0001D0: 5E 23 56 D5 E1 22 4D 56 11 4B 06 CD 42 01 C3 48 ^#V.."MV.K..B..H
0001E0: 01 2A 4D 56 E5 01 08 00 2A 4B 01 09 5E 23 56 D5 .*MV....*K..^#V.
0001F0: CD 06 01 CA 0E 0B 01 06 00 2A 4B 01 09 5E 23 56 .........*K..^#V
Size : 512 (Real : 512)
000000: 51 56 CD 2A 01 01 F8 FF 2A 4B 01 09 CD 2D 01 21 QV.*....*K...-.!
000010: 08 00 E5 21 10 00 E5 11 E1 0A 3E 02 CD 45 01 33 ...!......>..E.3
000020: 33 33 33 11 0F 12 3E 01 CD 45 01 01 F8 FF 2A 4B 333...>..E....*K
000030: 01 09 CD 2A 01 3E 01 CD 03 01 11 FE FF 19 5E 23 ...*.>........^#
000040: 56 D5 3E 01 CD 03 01 11 08 00 19 5E 23 56 D5 3E V.>........^#V.>
000050: 01 CD 03 01 11 FC FF 19 5E 23 56 D5 3E 01 CD 03 ........^#V.>...
000060: 01 11 FA FF 19 5E 23 56 D5 11 63 0B 3E 02 CD 45 .....^#V..c.>..E
000070: 01 21 10 00 39 F9 C3 48 01 21 F6 FF 39 F9 21 01 .!..9..H.!..9.!.
000080: 00 E5 21 02 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 ..!......>..E.33
000090: 33 33 21 51 56 CD 2A 01 21 00 00 E5 3E 01 CD 03 33!QV.*.!...>...
0000A0: 01 11 08 00 19 5E 23 56 D5 21 00 00 E5 21 00 00 .....^#V.!...!..
0000B0: E5 11 63 0B 3E 02 CD 45 01 21 10 00 39 F9 2A 69 ..c.>..E.!..9.*i
0000C0: 56 E5 01 FC FF 2A 4B 01 09 D1 73 23 72 2A 4D 56 V....*K...s#r*MV
0000D0: E5 21 0D 00 E5 CD 06 01 C2 26 14 11 16 07 3E 02 .!.......&....>.
0000E0: CD 45 01 21 01 00 E5 21 02 00 E5 11 E1 0A 3E 02 .E.!...!......>.
0000F0: CD 45 01 33 33 33 33 21 51 56 CD 2A 01 21 00 00 .E.3333!QV.*.!..
000100: E5 3E 01 CD 03 01 11 08 00 19 5E 23 56 D5 21 00 .>........^#V.!.
000110: 00 E5 21 00 00 E5 11 63 0B 3E 02 CD 45 01 21 10 ..!....c.>..E.!.
000120: 00 39 F9 C3 CD 13 21 12 00 E5 21 05 00 E5 11 E1 .9....!...!.....
000130: 0A 3E 02 CD 45 01 33 33 33 33 21 01 00 E5 21 02 .>..E.3333!...!.
000140: 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 33 33 3B 3B .....>..E.3333;;
000150: 11 1D 0C 3E 02 CD 45 01 01 FE FF 2A 4B 01 09 D1 ...>..E....*K...
000160: 73 23 72 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 EF s#r...*K..^#V.!.
000170: 53 D1 19 19 5E 23 56 D5 01 FA FF 2A 4B 01 09 D1 S...^#V....*K...
000180: 73 23 72 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 E1 s#r...*K..^#V.!.
000190: 4C D1 19 19 5E 23 56 D5 01 F8 FF 2A 4B 01 09 D1 L...^#V....*K...
0001A0: 73 23 72 01 F8 FF 2A 4B 01 09 5E 23 56 D5 21 07 s#r...*K..^#V.!.
0001B0: 00 E5 CD 06 01 C2 E0 14 21 04 00 E5 01 F8 FF 2A ........!......*
0001C0: 4B 01 09 D1 73 23 72 01 FA FF 2A 4B 01 09 5E 23 K...s#r...*K..^#
0001D0: 56 D5 01 F6 FF 2A 4B 01 09 D1 73 23 72 C3 2B 15 V....*K...s#r.+.
0001E0: 01 F8 FF 2A 4B 01 09 5E 23 56 D5 21 06 00 E5 CD ...*K..^#V.!....
0001F0: 06 01 C2 1D 15 21 05 00 E5 01 F8 FF 2A 4B 01 09 .....!......*K..
Size : 512 (Real : 512)
000000: D5 11 03 06 3E 01 CD 45 01 33 33 C3 16 0B 11 16 ....>..E.33.....
000010: 07 3E 01 CD 45 01 C3 48 01 01 0A 00 2A 4B 01 09 .>..E..H....*K..
000020: 5E 23 56 D5 3E 00 CD 0C 01 01 08 00 2A 4B 01 09 ^#V.>.......*K..
000030: 5E 23 56 D5 3E 00 CD 0C 01 01 06 00 2A 4B 01 09 ^#V.>.......*K..
000040: 5E 23 56 D5 3E 00 CD 0C 01 01 06 00 2A 4B 01 09 ^#V.>.......*K..
000050: 5E 23 56 D5 21 00 01 E5 CD 39 01 3E 00 CD 0C 01 ^#V.!....9.>....
000060: C3 48 01 2A 69 56 E5 21 01 00 E5 D1 E1 19 E5 E1 .H.*iV.!........
000070: 22 69 56 2A 69 56 E5 21 2C 01 E5 CD 06 01 D2 94 "iV*iV.!,.......
000080: 0B CD 27 01 52 45 56 4F 20 59 53 2A 3E 01 CD 21 ..'.REVO YS*>..!
000090: 01 C3 1A 0C 2A 69 56 E5 01 0E 00 2A 4B 01 09 CD ....*iV....*K...
0000A0: 2A 01 21 79 43 EB 21 08 00 39 7E 23 66 6F 29 29 *.!yC.!..9~#fo))
0000B0: 29 19 CD 2D 01 E1 2A 69 56 E5 01 0C 00 2A 4B 01 )..-..*iV....*K.
0000C0: 09 5E 23 56 D5 21 E1 4C D1 C1 09 09 73 23 72 2A .^#V.!.L....s#r*
0000D0: 69 56 E5 01 0A 00 2A 4B 01 09 5E 23 56 D5 21 3B iV....*K..^#V.!;
0000E0: 4F D1 C1 09 09 73 23 72 2A 69 56 E5 01 08 00 2A O....s#r*iV....*
0000F0: 4B 01 09 5E 23 56 D5 21 95 51 D1 C1 09 09 73 23 K..^#V.!.Q....s#
000100: 72 2A 69 56 E5 01 06 00 2A 4B 01 09 5E 23 56 D5 r*iV....*K..^#V.
000110: 21 EF 53 D1 C1 09 09 73 23 72 C3 48 01 21 00 00 !.S....s#r.H.!..
000120: E5 21 51 56 CD 2A 01 21 79 43 EB 21 08 00 39 7E .!QV.*.!yC.!..9~
000130: 23 66 6F 29 29 29 19 CD 2D 01 E1 2A 69 56 E5 E1 #fo)))..-..*iV..
000140: 22 79 56 2A 79 56 E5 21 79 43 D1 EB 29 29 29 19 "yV*yV.!yC..))).
000150: CD 2A 01 21 51 56 CD 2A 01 CD 30 01 CA 71 0C 2A .*.!QV.*..0..q.*
000160: 79 56 E5 21 01 00 E5 CD 33 01 E1 22 79 56 C3 43 yV.!....3.."yV.C
000170: 0C 2A 79 56 E5 21 00 00 E5 CD 06 01 C2 8D 0C 21 .*yV.!.........!
000180: 68 00 E5 11 03 06 3E 01 CD 45 01 33 33 2A 79 56 h.....>..E.33*yV
000190: E5 01 06 00 2A 4B 01 09 D1 73 23 72 C3 48 01 2A ....*K...s#r.H.*
0001A0: 6B 56 E5 21 01 00 E5 D1 E1 19 E5 E1 22 6B 56 2A kV.!........"kV*
0001B0: 6B 56 E5 01 06 00 2A 4B 01 09 D1 73 23 72 C3 48 kV....*K...s#r.H
0001C0: 01 3B 3B 01 06 00 2A 4B 01 09 5E 23 56 D5 21 3B .;;...*K..^#V.!;
0001D0: 4F D1 19 19 5E 23 56 D5 01 FE FF 2A 4B 01 09 D1 O...^#V....*K...
0001E0: 73 23 72 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 01 s#r...*K..^#V.!.
0001F0: 00 E5 CD 06 01 C2 2C 0D 01 08 00 2A 4B 01 09 5E ......,....*K..^
Size : 512 (Real : 512)
000000: D1 73 23 72 01 FE FF 2A 4B 01 09 5E 23 56 D5 01 .s#r...*K..^#V..
000010: F6 FF 2A 4B 01 09 D1 73 23 72 C3 2B 15 21 67 00 ..*K...s#r.+.!g.
000020: E5 11 03 06 3E 02 CD 45 01 33 33 01 FC FF 2A 4B ....>..E.33...*K
000030: 01 09 5E 23 56 D5 01 FE FF 2A 4B 01 09 D1 73 23 ..^#V....*K...s#
000040: 72 2A 69 56 E5 E1 E5 E5 01 FE FF 2A 4B 01 09 5E r*iV.......*K..^
000050: 23 56 D5 CD 06 01 CA 5C 15 D2 4E 16 01 FE FF 2A #V.....\..N....*
000060: 4B 01 09 5E 23 56 D5 01 F8 FF 2A 4B 01 09 5E 23 K..^#V....*K..^#
000070: 56 D5 21 E1 4C D1 C1 09 09 73 23 72 01 FE FF 2A V.!.L....s#r...*
000080: 4B 01 09 5E 23 56 D5 01 F6 FF 2A 4B 01 09 5E 23 K..^#V....*K..^#
000090: 56 D5 21 EF 53 D1 C1 09 09 73 23 72 3E 01 CD 03 V.!.S....s#r>...
0000A0: 01 11 08 00 19 5E 23 56 D5 21 01 00 E5 CD 06 01 .....^#V.!......
0000B0: C2 D8 15 01 FE FF 2A 4B 01 09 5E 23 56 D5 3E 01 ......*K..^#V.>.
0000C0: CD 03 01 11 F8 FF 19 5E 23 56 D5 21 95 51 D1 C1 .......^#V.!.Q..
0000D0: 09 09 73 23 72 C3 09 16 01 FE FF 2A 4B 01 09 5E ..s#r......*K..^
0000E0: 23 56 D5 3E 01 CD 03 01 11 F8 FF 19 5E 23 56 D5 #V.>........^#V.
0000F0: 01 FA FF 2A 4B 01 09 5E 23 56 D5 D1 E1 19 E5 21 ...*K..^#V.....!
000100: 95 51 D1 C1 09 09 73 23 72 3E 01 CD 03 01 11 F8 .Q....s#r>......
000110: FF 19 5E 23 56 D5 01 FA FF 2A 4B 01 09 5E 23 56 ..^#V....*K..^#V
000120: D5 D1 E1 19 E5 3E 01 CD 03 01 11 F8 FF 19 D1 73 .....>.........s
000130: 23 72 01 FE FF 2A 4B 01 09 5E 23 56 D5 E1 23 E5 #r...*K..^#V..#.
000140: 01 FE FF 2A 4B 01 09 D1 73 23 72 C3 45 15 33 33 ...*K...s#r.E.33
000150: C3 48 01 3B 3B 11 16 07 3E 03 CD 45 01 2A 4D 56 .H.;;...>..E.*MV
000160: E5 21 0B 00 E5 CD 06 01 C2 60 17 11 16 07 3E 03 .!.......`....>.
000170: CD 45 01 2A 4D 56 E5 21 2F 00 E5 CD 06 01 CA B5 .E.*MV.!/.......
000180: 16 21 03 00 E5 11 04 20 3E 01 CD 45 01 2A 4D 56 .!..... >..E.*MV
000190: E5 21 0D 00 E5 CD 06 01 C2 B2 16 11 16 07 3E 03 .!............>.
0001A0: CD 45 01 21 03 00 E5 11 04 20 3E 01 CD 45 01 C3 .E.!..... >..E..
0001B0: 8D 16 C3 4C 17 11 16 07 3E 03 CD 45 01 21 01 00 ...L....>..E.!..
0001C0: E5 21 02 00 E5 11 E1 0A 3E 03 CD 45 01 33 33 33 .!......>..E.333
0001D0: 33 3B 3B 11 1D 0C 3E 03 CD 45 01 01 FE FF 2A 4B 3;;...>..E....*K
0001E0: 01 09 D1 73 23 72 01 FE FF 2A 4B 01 09 5E 23 56 ...s#r...*K..^#V
0001F0: D5 21 E1 4C D1 19 19 5E 23 56 D5 21 08 00 E5 CD .!.L...^#V.!....
Size : 512 (Real : 512)
000000: 23 56 D5 21 FF 00 E5 01 06 00 2A 4B 01 09 5E 23 #V.!......*K..^#
000010: 56 D5 21 95 51 D1 19 19 5E 23 56 D5 11 19 0B 3E V.!.Q...^#V....>
000020: 02 CD 45 01 21 06 00 39 F9 C3 74 0D 01 08 00 2A ..E.!..9..t....*
000030: 4B 01 09 5E 23 56 D5 3E 01 CD 03 01 11 08 00 19 K..^#V.>........
000040: 5E 23 56 D5 01 FE FF 2A 4B 01 09 5E 23 56 D5 CD ^#V....*K..^#V..
000050: 33 01 01 06 00 2A 4B 01 09 5E 23 56 D5 21 95 51 3....*K..^#V.!.Q
000060: D1 19 19 5E 23 56 D5 11 19 0B 3E 02 CD 45 01 21 ...^#V....>..E.!
000070: 06 00 39 F9 C3 48 01 3B 3B 2A 4D 56 E5 E1 E5 E5 ..9..H.;;*MV....
000080: 21 02 00 E5 CD 06 01 C2 A4 0D 2A 4F 56 E5 01 06 !.........*OV...
000090: 00 2A 4B 01 09 D1 73 23 72 11 16 07 3E 02 CD 45 .*K...s#r...>..E
0000A0: 01 C3 A4 0E E1 E5 E5 21 03 00 E5 CD 06 01 C2 D5 .......!........
0000B0: 0D 21 00 00 E5 21 D7 42 D1 19 19 5E 23 56 D5 01 .!...!.B...^#V..
0000C0: 06 00 2A 4B 01 09 D1 73 23 72 11 16 07 3E 02 CD ..*K...s#r...>..
0000D0: 45 01 C3 A4 0E E1 E5 E5 21 01 00 E5 CD 06 01 C2 E.......!.......
0000E0: 96 0E 3B 3B 11 1D 0C 3E 02 CD 45 01 01 FE FF 2A ..;;...>..E....*
0000F0: 4B 01 09 D1 73 23 72 01 FE FF 2A 4B 01 09 5E 23 K...s#r...*K..^#
000100: 56 D5 21 E1 4C D1 19 19 5E 23 56 D5 21 01 00 E5 V.!.L...^#V.!...
000110: CD 06 01 CA 24 0E 21 67 00 E5 11 03 06 3E 02 CD ....$.!g.....>..
000120: 45 01 33 33 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 E.33...*K..^#V.!
000130: 95 51 D1 19 19 5E 23 56 D5 01 06 00 2A 4B 01 09 .Q...^#V....*K..
000140: D1 73 23 72 11 16 07 3E 02 CD 45 01 2A 4D 56 E5 .s#r...>..E.*MV.
000150: 21 04 00 E5 CD 06 01 C2 93 0E 11 16 07 3E 02 CD !............>..
000160: 45 01 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 95 51 E....*K..^#V.!.Q
000170: D1 19 19 5E 23 56 D5 3B 3B 11 77 0D 3E 01 CD 45 ...^#V.;;.w.>..E
000180: 01 D1 E1 19 E5 01 06 00 2A 4B 01 09 D1 73 23 72 ........*K...s#r
000190: C3 4C 0E C3 A4 0E 21 32 00 E5 11 03 06 3E 02 CD .L....!2.....>..
0001A0: 45 01 33 33 33 33 C3 48 01 3B 3B 21 01 00 E5 21 E.3333.H.;;!...!
0001B0: 02 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 ......>..E.3333!
0001C0: 51 56 CD 2A 01 21 01 00 E5 21 00 00 E5 21 00 00 QV.*.!...!...!..
0001D0: E5 21 00 00 E5 11 63 0B 3E 02 CD 45 01 21 10 00 .!....c.>..E.!..
0001E0: 39 F9 2A 69 56 E5 01 FE FF 2A 4B 01 09 D1 73 23 9.*iV....*K...s#
0001F0: 72 21 08 00 E5 21 10 00 E5 11 E1 0A 3E 02 CD 45 r!...!......>..E
Size : 512 (Real : 512)
000000: 06 01 C2 23 17 21 05 00 E5 01 FE FF 2A 4B 01 09 ...#.!......*K..
000010: 5E 23 56 D5 11 C1 0C 3E 02 CD 45 01 33 33 33 33 ^#V....>..E.3333
000020: C3 3E 17 21 18 00 E5 01 FE FF 2A 4B 01 09 5E 23 .>.!......*K..^#
000030: 56 D5 11 C1 0C 3E 02 CD 45 01 33 33 33 33 2A 4D V....>..E.3333*M
000040: 56 E5 21 0D 00 E5 CD 06 01 CA B5 16 21 0C 00 E5 V.!.........!...
000050: 21 04 00 E5 11 E1 0A 3E 03 CD 45 01 33 33 33 33 !......>..E.3333
000060: 21 00 00 E5 3E 02 CD 03 01 11 08 00 19 5E 23 56 !...>........^#V
000070: D5 01 06 00 2A 4B 01 09 5E 23 56 D5 21 3B 4F D1 ....*K..^#V.!;O.
000080: 19 19 5E 23 56 D5 CD 33 01 01 06 00 2A 4B 01 09 ..^#V..3....*K..
000090: 5E 23 56 D5 21 95 51 D1 19 19 5E 23 56 D5 11 19 ^#V.!.Q...^#V...
0000A0: 0B 3E 03 CD 45 01 21 06 00 39 F9 21 07 00 E5 21 .>..E.!..9.!...!
0000B0: 00 00 E5 21 00 00 E5 01 06 00 2A 4B 01 09 5E 23 ...!......*K..^#
0000C0: 56 D5 21 EF 53 D1 19 19 5E 23 56 D5 CD 33 01 11 V.!.S...^#V..3..
0000D0: 19 0B 3E 03 CD 45 01 21 06 00 39 F9 C3 48 01 3E ..>..E.!..9..H.>
0000E0: 01 CD 03 01 11 06 00 19 5E 23 56 D5 21 03 00 E5 ........^#V.!...
0000F0: CD 06 01 C2 11 18 01 06 00 2A 4B 01 09 5E 23 56 .........*K..^#V
000100: D5 3E 01 CD 03 01 11 06 00 19 D1 73 23 72 C3 3D .>.........s#r.=
000110: 18 3E 01 CD 03 01 11 06 00 19 5E 23 56 D5 01 06 .>........^#V...
000120: 00 2A 4B 01 09 5E 23 56 D5 CD 06 01 CA 3D 18 21 .*K..^#V.....=.!
000130: 81 00 E5 11 03 06 3E 04 CD 45 01 33 33 C3 48 01 ......>..E.33.H.
000140: 3B 3B 3B 3B 2A 4D 56 E5 E1 E5 E5 21 02 00 E5 CD ;;;;*MV....!....
000150: 06 01 C2 87 18 21 03 00 E5 21 00 00 E5 2A 4F 56 .....!...!...*OV
000160: E5 11 19 0B 3E 06 CD 45 01 21 06 00 39 F9 21 00 ....>..E.!..9.!.
000170: 00 E5 11 DF 17 3E 03 CD 45 01 33 33 11 16 07 3E .....>..E.33...>
000180: 06 CD 45 01 C3 81 1D E1 E5 E5 21 03 00 E5 CD 06 ..E.......!.....
000190: 01 C2 A8 19 2A 49 56 E5 21 01 00 E5 CD 06 01 C2 ....*IV.!.......
0001A0: D6 18 21 03 00 E5 21 00 00 E5 21 00 00 E5 21 D7 ..!...!...!...!.
0001B0: 42 D1 19 19 5E 23 56 D5 11 19 0B 3E 06 CD 45 01 B...^#V....>..E.
0001C0: 21 06 00 39 F9 21 00 00 E5 11 DF 17 3E 03 CD 45 !..9.!......>..E
0001D0: 01 33 33 C3 9D 19 21 01 00 E5 11 DF 17 3E 03 CD .33...!......>..
0001E0: 45 01 33 33 21 0B 00 E5 21 00 00 E5 21 00 00 E5 E.33!...!...!...
0001F0: 11 19 0B 3E 06 CD 45 01 21 06 00 39 F9 21 07 00 ...>..E.!..9.!..
Size : 512 (Real : 512)
000000: 2A 4B 01 09 5E 23 56 D5 21 0B 00 E5 11 19 0B 3E *K..^#V.!......>
000010: 03 CD 45 01 21 06 00 39 F9 C3 42 21 11 8C 1E CD ..E.!..9..B!....
000020: 42 01 21 04 00 E5 01 06 00 2A 4B 01 09 5E 23 56 B.!......*K..^#V
000030: D5 21 0C 00 E5 11 19 0B 3E 03 CD 45 01 21 06 00 .!......>..E.!..
000040: 39 F9 C3 81 21 2A 4D 56 E5 21 08 00 E5 CD 06 01 9...!*MV.!......
000050: C2 81 21 11 16 07 3E 03 CD 45 01 11 8C 1E CD 42 ..!...>..E.....B
000060: 01 21 04 00 E5 01 06 00 2A 4B 01 09 5E 23 56 D5 .!......*K..^#V.
000070: 21 08 00 E5 11 19 0B 3E 03 CD 45 01 21 06 00 39 !......>..E.!..9
000080: F9 01 06 00 2A 4B 01 09 5E 23 56 D5 E1 22 71 56 ....*K..^#V.."qV
000090: C3 48 01 21 F4 FF 39 F9 2A 4D 56 E5 E1 E5 E5 21 .H.!..9.*MV....!
0000A0: 01 00 E5 CD 06 01 C2 65 25 3B 3B 11 1D 0C 3E 02 .......e%;;...>.
0000B0: CD 45 01 01 FE FF 2A 4B 01 09 D1 73 23 72 01 FE .E....*K...s#r..
0000C0: FF 2A 4B 01 09 5E 23 56 D5 21 E1 4C D1 19 19 5E .*K..^#V.!.L...^
0000D0: 23 56 D5 E1 E5 E5 21 05 00 E5 CD 06 01 C2 F3 22 #V....!........"
0000E0: 11 16 07 3E 02 CD 45 01 21 10 00 E5 21 0B 00 E5 ...>..E.!...!...
0000F0: 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 00 00 E5 ...>..E.3333!...
000100: 11 04 20 CD 42 01 33 33 21 11 00 E5 21 0C 00 E5 .. .B.33!...!...
000110: 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 12 00 E5 ...>..E.3333!...
000120: 21 33 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 33 33 !3.....>..E.3333
000130: 21 08 00 E5 21 33 00 E5 11 E1 0A 3E 02 CD 45 01 !...!3.....>..E.
000140: 33 33 33 33 21 03 00 E5 11 04 20 CD 42 01 33 33 3333!..... .B.33
000150: 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 EF 53 D1 19 ...*K..^#V.!.S..
000160: 19 5E 23 56 D5 21 95 51 D1 19 19 5E 23 56 D5 E1 .^#V.!.Q...^#V..
000170: E5 E5 21 01 00 E5 CD 06 01 C2 8E 22 21 14 00 E5 ..!........"!...
000180: 01 F6 FF 2A 4B 01 09 D1 73 23 72 C3 CC 22 E1 E5 ...*K...s#r.."..
000190: E5 21 02 00 E5 CD 06 01 C2 AD 22 21 0A 00 E5 01 .!........"!....
0001A0: F6 FF 2A 4B 01 09 D1 73 23 72 C3 CC 22 E1 E5 E5 ..*K...s#r.."...
0001B0: 21 08 00 E5 CD 06 01 C2 CC 22 21 0F 00 E5 01 F6 !........"!.....
0001C0: FF 2A 4B 01 09 D1 73 23 72 C3 CC 22 33 33 01 F6 .*K...s#r.."33..
0001D0: FF 2A 4B 01 09 5E 23 56 D5 01 FE FF 2A 4B 01 09 .*K..^#V....*K..
0001E0: 5E 23 56 D5 11 C1 0C 3E 01 CD 45 01 33 33 33 33 ^#V....>..E.3333
0001F0: C3 60 25 E1 E5 E5 21 08 00 E5 CD 06 01 C2 73 23 .`%...!.......s#
Size : 512 (Real : 512)
000000: E5 21 D7 42 D1 19 19 5E 23 56 D5 21 06 00 E5 21 .!.B...^#V.!...!
000010: D7 42 D1 19 19 5E 23 56 D5 21 05 00 E5 21 D7 42 .B...^#V.!...!.B
000020: D1 19 19 5E 23 56 D5 21 04 00 E5 21 D7 42 D1 19 ...^#V.!...!.B..
000030: 19 5E 23 56 D5 21 00 01 E5 CD 36 01 D1 E1 19 E5 .^#V.!....6.....
000040: 11 19 0B 3E 06 CD 45 01 21 06 00 39 F9 21 03 00 ...>..E.!..9.!..
000050: E5 21 D7 42 D1 19 19 5E 23 56 D5 21 02 00 E5 21 .!.B...^#V.!...!
000060: D7 42 D1 19 19 5E 23 56 D5 21 01 00 E5 21 D7 42 .B...^#V.!...!.B
000070: D1 19 19 5E 23 56 D5 21 00 00 E5 21 D7 42 D1 19 ...^#V.!...!.B..
000080: 19 5E 23 56 D5 21 00 01 E5 CD 36 01 D1 E1 19 E5 .^#V.!....6.....
000090: 11 19 0B 3E 06 CD 45 01 21 06 00 39 F9 11 16 07 ...>..E.!..9....
0000A0: 3E 06 CD 45 01 C3 81 1D E1 E5 E5 21 0B 00 E5 CD >..E.......!....
0000B0: 06 01 C2 F9 19 11 16 07 3E 06 CD 45 01 3E 03 CD ........>..E.>..
0000C0: 03 01 11 06 00 19 5E 23 56 D5 11 04 20 3E 04 CD ......^#V... >..
0000D0: 45 01 33 33 2A 71 56 E5 11 DF 17 3E 03 CD 45 01 E.33*qV....>..E.
0000E0: 33 33 21 0C 00 E5 21 04 00 E5 11 E1 0A 3E 06 CD 33!...!......>..
0000F0: 45 01 33 33 33 33 C3 81 1D E1 E5 E5 21 01 00 E5 E.3333......!...
000100: CD 06 01 C2 73 1D 3B 3B 11 1D 0C 3E 06 CD 45 01 ....s.;;...>..E.
000110: 01 FE FF 2A 4B 01 09 D1 73 23 72 01 FE FF 2A 4B ...*K...s#r...*K
000120: 01 09 5E 23 56 D5 21 E1 4C D1 19 19 5E 23 56 D5 ..^#V.!.L...^#V.
000130: E1 E5 E5 21 05 00 E5 CD 06 01 C2 48 1B 11 16 07 ...!.......H....
000140: 3E 06 CD 45 01 21 10 00 E5 21 0B 00 E5 11 E1 0A >..E.!...!......
000150: 3E 06 CD 45 01 33 33 33 33 21 00 00 E5 11 04 20 >..E.3333!.....
000160: 3E 04 CD 45 01 33 33 21 11 00 E5 21 0C 00 E5 11 >..E.33!...!....
000170: E1 0A 3E 06 CD 45 01 33 33 33 33 01 FE FF 2A 4B ..>..E.3333...*K
000180: 01 09 5E 23 56 D5 21 EF 53 D1 19 19 5E 23 56 D5 ..^#V.!.S...^#V.
000190: 21 95 51 D1 19 19 5E 23 56 D5 E1 E5 E5 21 02 00 !.Q...^#V....!..
0001A0: E5 CD 06 01 C2 C7 1A 21 09 00 E5 01 FC FF 2A 4B .......!......*K
0001B0: 01 09 D1 73 23 72 21 00 00 E5 11 DF 17 3E 03 CD ...s#r!......>..
0001C0: 45 01 33 33 C3 21 1B E1 E5 E5 21 08 00 E5 CD 06 E.33.!....!.....
0001D0: 01 C2 F4 1A 21 0E 00 E5 01 FC FF 2A 4B 01 09 D1 ....!......*K...
0001E0: 73 23 72 21 01 00 E5 11 DF 17 3E 03 CD 45 01 33 s#r!......>..E.3
0001F0: 33 C3 21 1B E1 E5 E5 21 01 00 E5 CD 06 01 C2 21 3.!....!.......!
Size : 512 (Real : 512)
000000: 11 16 07 3E 02 CD 45 01 21 05 00 E5 01 FE FF 2A ...>..E.!......*
000010: 4B 01 09 5E 23 56 D5 11 C1 0C 3E 01 CD 45 01 33 K..^#V....>..E.3
000020: 33 33 33 21 12 00 E5 21 33 00 E5 11 E1 0A 3E 02 333!...!3.....>.
000030: CD 45 01 33 33 33 33 21 08 00 E5 21 33 00 E5 11 .E.3333!...!3...
000040: E1 0A 3E 02 CD 45 01 33 33 33 33 21 03 00 E5 11 ..>..E.3333!....
000050: 04 20 CD 42 01 33 33 21 1A 00 E5 21 00 00 E5 21 . .B.33!...!...!
000060: 00 00 E5 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 ......>..E.!..9.
000070: C3 60 25 E1 E5 E5 21 04 00 E5 CD 06 01 C2 AB 24 .`%...!........$
000080: 11 16 07 3E 02 CD 45 01 2A 4D 56 E5 21 10 00 E5 ...>..E.*MV.!...
000090: CD 06 01 C2 BE 23 11 16 07 3E 02 CD 45 01 21 03 .....#...>..E.!.
0000A0: 00 E5 11 04 20 CD 42 01 33 33 21 11 00 E5 21 0C .... .B.33!...!.
0000B0: 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 12 .....>..E.3333!.
0000C0: 00 E5 21 33 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 ..!3.....>..E.33
0000D0: 33 33 21 08 00 E5 21 33 00 E5 11 E1 0A 3E 02 CD 33!...!3.....>..
0000E0: 45 01 33 33 33 33 21 03 00 E5 11 04 20 CD 42 01 E.3333!..... .B.
0000F0: 33 33 2A 71 56 E5 21 00 00 E5 CD 06 01 C2 77 24 33*qV.!.......w$
000100: 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 EF 53 D1 19 ...*K..^#V.!.S..
000110: 19 5E 23 56 D5 E1 E5 E5 21 08 00 E5 CD 06 01 C2 .^#V....!.......
000120: 34 24 21 0A 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 4$!......*K...s#
000130: 72 C3 72 24 E1 E5 E5 21 02 00 E5 CD 06 01 C2 53 r.r$...!.......S
000140: 24 21 06 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 72 $!......*K...s#r
000150: C3 72 24 E1 E5 E5 21 01 00 E5 CD 06 01 C2 72 24 .r$...!.......r$
000160: 21 12 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 72 C3 !......*K...s#r.
000170: 72 24 33 33 C3 86 24 21 0D 00 E5 01 F6 FF 2A 4B r$33..$!......*K
000180: 01 09 D1 73 23 72 01 F6 FF 2A 4B 01 09 5E 23 56 ...s#r...*K..^#V
000190: D5 01 FE FF 2A 4B 01 09 5E 23 56 D5 11 C1 0C 3E ....*K..^#V....>
0001A0: 01 CD 45 01 33 33 33 33 C3 60 25 E1 E5 E5 21 02 ..E.3333.`%...!.
0001B0: 00 E5 CD 06 01 C2 CE 24 01 FE FF 2A 4B 01 09 5E .......$...*K..^
0001C0: 23 56 D5 11 53 16 CD 42 01 33 33 C3 60 25 E1 E5 #V..S..B.33.`%..
0001D0: E5 21 03 00 E5 CD 06 01 C2 52 25 11 16 07 3E 02 .!.......R%...>.
0001E0: CD 45 01 21 12 00 E5 21 33 00 E5 11 E1 0A 3E 02 .E.!...!3.....>.
0001F0: CD 45 01 33 33 33 33 21 08 00 E5 21 33 00 E5 11 .E.3333!...!3...
Size : 512 (Real : 512)
000000: 1B 21 13 00 E5 01 FC FF 2A 4B 01 09 D1 73 23 72 .!......*K...s#r
000010: 21 00 00 E5 11 DF 17 3E 03 CD 45 01 33 33 C3 21 !......>..E.33.!
000020: 1B 33 33 01 FC FF 2A 4B 01 09 5E 23 56 D5 01 FE .33...*K..^#V...
000030: FF 2A 4B 01 09 5E 23 56 D5 11 C1 0C 3E 05 CD 45 .*K..^#V....>..E
000040: 01 33 33 33 33 C3 6E 1D E1 E5 E5 21 01 00 E5 CD .3333.n....!....
000050: 06 01 C2 98 1B 21 03 00 E5 21 00 00 E5 01 FE FF .....!...!......
000060: 2A 4B 01 09 5E 23 56 D5 21 95 51 D1 19 19 5E 23 *K..^#V.!.Q...^#
000070: 56 D5 11 19 0B 3E 06 CD 45 01 21 06 00 39 F9 21 V....>..E.!..9.!
000080: 00 00 E5 11 DF 17 3E 03 CD 45 01 33 33 11 16 07 ......>..E.33...
000090: 3E 06 CD 45 01 C3 6E 1D E1 E5 E5 21 08 00 E5 CD >..E..n....!....
0000A0: 06 01 C2 F2 1B 11 16 07 3E 06 CD 45 01 21 05 00 ........>..E.!..
0000B0: E5 01 FE FF 2A 4B 01 09 5E 23 56 D5 11 C1 0C 3E ....*K..^#V....>
0000C0: 05 CD 45 01 33 33 33 33 21 19 00 E5 21 00 00 E5 ..E.3333!...!...
0000D0: 21 00 00 E5 11 19 0B 3E 06 CD 45 01 21 06 00 39 !......>..E.!..9
0000E0: F9 21 00 00 E5 11 DF 17 3E 03 CD 45 01 33 33 C3 .!......>..E.33.
0000F0: 6E 1D E1 E5 E5 21 04 00 E5 CD 06 01 C2 22 1D 11 n....!......."..
000100: 16 07 3E 06 CD 45 01 01 FE FF 2A 4B 01 09 5E 23 ..>..E....*K..^#
000110: 56 D5 21 EF 53 D1 19 19 5E 23 56 D5 E1 E5 E5 21 V.!.S...^#V....!
000120: 02 00 E5 CD 06 01 C2 49 1C 21 05 00 E5 01 FC FF .......I.!......
000130: 2A 4B 01 09 D1 73 23 72 21 00 00 E5 11 DF 17 3E *K...s#r!......>
000140: 03 CD 45 01 33 33 C3 FB 1C E1 E5 E5 21 08 00 E5 ..E.33......!...
000150: CD 06 01 C2 CE 1C 2A 4D 56 E5 21 10 00 E5 CD 06 ......*MV.!.....
000160: 01 C2 AE 1C 11 16 07 3E 06 CD 45 01 21 00 00 E5 .......>..E.!...
000170: 11 04 20 3E 04 CD 45 01 33 33 21 11 00 E5 21 0C .. >..E.33!...!.
000180: 00 E5 11 E1 0A 3E 06 CD 45 01 33 33 33 33 21 09 .....>..E.3333!.
000190: 00 E5 01 FC FF 2A 4B 01 09 D1 73 23 72 21 00 00 .....*K...s#r!..
0001A0: E5 11 DF 17 3E 03 CD 45 01 33 33 C3 CB 1C 21 0C ....>..E.33...!.
0001B0: 00 E5 01 FC FF 2A 4B 01 09 D1 73 23 72 21 01 00 .....*K...s#r!..
0001C0: E5 11 DF 17 3E 03 CD 45 01 33 33 C3 FB 1C E1 E5 ....>..E.33.....
0001D0: E5 21 01 00 E5 CD 06 01 C2 FB 1C 21 11 00 E5 01 .!.........!....
0001E0: FC FF 2A 4B 01 09 D1 73 23 72 21 00 00 E5 11 DF ..*K...s#r!.....
0001F0: 17 3E 03 CD 45 01 33 33 C3 FB 1C 33 33 01 FC FF .>..E.33...33...
Size : 512 (Real : 512)
000000: E1 0A 3E 02 CD 45 01 33 33 33 33 21 03 00 E5 11 ..>..E.3333!....
000010: 04 20 CD 42 01 33 33 21 06 00 E5 21 00 00 E5 21 . .B.33!...!...!
000020: 00 00 E5 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 EF ......*K..^#V.!.
000030: 53 D1 19 19 5E 23 56 D5 CD 33 01 21 06 00 E5 CD S...^#V..3.!....
000040: 33 01 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 C3 3....>..E.!..9..
000050: 60 25 21 67 00 E5 11 03 06 3E 02 CD 45 01 33 33 `%!g.....>..E.33
000060: 33 33 C3 B7 2E E1 E5 E5 21 21 00 E5 CD 06 01 C2 33......!!......
000070: 90 26 11 16 07 3E 02 CD 45 01 21 03 00 E5 11 04 .&...>..E.!.....
000080: 20 CD 42 01 33 33 21 2B 00 E5 21 34 00 E5 11 E1 .B.33!+..!4....
000090: 0A 3E 02 CD 45 01 33 33 33 33 3B 3B 11 9F 0C 3E .>..E.3333;;...>
0000A0: 02 CD 45 01 01 FA FF 2A 4B 01 09 D1 73 23 72 21 ..E....*K...s#r!
0000B0: 01 00 E5 21 00 00 E5 01 FA FF 2A 4B 01 09 5E 23 ...!......*K..^#
0000C0: 56 D5 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 11 V....>..E.!..9..
0000D0: 93 21 3E 01 CD 45 01 2A 4D 56 E5 21 1C 00 E5 CD .!>..E.*MV.!....
0000E0: 06 01 C2 6D 26 3B 3B 11 9F 0C 3E 02 CD 45 01 01 ...m&;;...>..E..
0000F0: FC FF 2A 4B 01 09 D1 73 23 72 21 02 00 E5 21 00 ..*K...s#r!...!.
000100: 00 E5 01 FC FF 2A 4B 01 09 5E 23 56 D5 11 19 0B .....*K..^#V....
000110: 3E 02 CD 45 01 21 06 00 39 F9 21 16 00 E5 21 00 >..E.!..9.!...!.
000120: 00 E5 01 FA FF 2A 4B 01 09 5E 23 56 D5 11 19 0B .....*K..^#V....
000130: 3E 02 CD 45 01 21 06 00 39 F9 11 16 07 3E 02 CD >..E.!..9....>..
000140: 45 01 11 93 21 3E 01 CD 45 01 21 16 00 E5 21 00 E...!>..E.!...!.
000150: 00 E5 01 FC FF 2A 4B 01 09 5E 23 56 D5 11 19 0B .....*K..^#V....
000160: 3E 02 CD 45 01 21 06 00 39 F9 C3 8D 26 21 16 00 >..E.!..9...&!..
000170: E5 21 00 00 E5 01 FA FF 2A 4B 01 09 5E 23 56 D5 .!......*K..^#V.
000180: 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 C3 B7 2E ...>..E.!..9....
000190: E1 E5 E5 21 1E 00 E5 CD 06 01 C2 38 29 11 16 07 ...!.......8)...
0001A0: 3E 02 CD 45 01 21 01 00 E5 21 02 00 E5 11 E1 0A >..E.!...!......
0001B0: 3E 02 CD 45 01 33 33 33 33 3B 3B 11 1D 0C 3E 02 >..E.3333;;...>.
0001C0: CD 45 01 01 FE FF 2A 4B 01 09 D1 73 23 72 21 12 .E....*K...s#r!.
0001D0: 00 E5 21 33 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 ..!3.....>..E.33
0001E0: 33 33 21 08 00 E5 21 33 00 E5 11 E1 0A 3E 02 CD 33!...!3.....>..
0001F0: 45 01 33 33 33 33 21 03 00 E5 11 04 20 CD 42 01 E.3333!..... .B.
Size : 512 (Real : 512)
000000: 2A 4B 01 09 5E 23 56 D5 01 FE FF 2A 4B 01 09 5E *K..^#V....*K..^
000010: 23 56 D5 11 C1 0C 3E 05 CD 45 01 33 33 33 33 C3 #V....>..E.3333.
000020: 6E 1D E1 E5 E5 21 03 00 E5 CD 06 01 C2 6E 1D 21 n....!.......n.!
000030: 07 00 E5 21 00 00 E5 21 02 00 E5 11 19 0B 3E 06 ...!...!......>.
000040: CD 45 01 21 06 00 39 F9 01 FE FF 2A 4B 01 09 5E .E.!..9....*K..^
000050: 23 56 D5 11 53 16 3E 04 CD 45 01 33 33 21 00 00 #V..S.>..E.33!..
000060: E5 11 DF 17 3E 03 CD 45 01 33 33 C3 6E 1D 33 33 ....>..E.33.n.33
000070: C3 81 1D 21 3A 00 E5 11 03 06 3E 06 CD 45 01 33 ...!:.....>..E.3
000080: 33 33 33 C3 48 01 3B 3B 11 40 18 CD 42 01 2A 4D 333.H.;;.@..B.*M
000090: 56 E5 21 06 00 E5 CD 06 01 C6 FF 3F 9F F5 2A 4D V.!........?..*M
0000A0: 56 E5 21 07 00 E5 CD 06 01 C6 FF 3F 9F D1 B2 C6 V.!........?....
0000B0: FF 9F F5 2A 4D 56 E5 21 14 00 E5 CD 06 01 C6 FF ...*MV.!........
0000C0: 3F 9F D1 B2 CA 89 1E 2A 4D 56 E5 21 14 00 E5 CD ?......*MV.!....
0000D0: 06 01 C2 EE 1D 21 10 00 E5 21 00 00 E5 21 00 00 .....!...!...!..
0000E0: E5 11 19 0B 3E 05 CD 45 01 21 06 00 39 F9 2A 4D ....>..E.!..9.*M
0000F0: 56 E5 01 FE FF 2A 4B 01 09 D1 73 23 72 11 16 07 V....*K...s#r...
000100: 3E 05 CD 45 01 11 40 18 CD 42 01 01 FE FF 2A 4B >..E..@..B....*K
000110: 01 09 5E 23 56 D5 21 06 00 E5 CD 06 01 C2 3C 1E ..^#V.!.......<.
000120: 21 04 00 E5 21 00 00 E5 21 04 00 E5 11 19 0B 3E !...!...!......>
000130: 05 CD 45 01 21 06 00 39 F9 C3 86 1E 01 FE FF 2A ..E.!..9.......*
000140: 4B 01 09 5E 23 56 D5 21 07 00 E5 CD 06 01 C2 6D K..^#V.!.......m
000150: 1E 21 04 00 E5 21 00 00 E5 21 05 00 E5 11 19 0B .!...!...!......
000160: 3E 05 CD 45 01 21 06 00 39 F9 C3 86 1E 21 04 00 >..E.!..9....!..
000170: E5 21 00 00 E5 21 0F 00 E5 11 19 0B 3E 05 CD 45 .!...!......>..E
000180: 01 21 06 00 39 F9 C3 8E 1D C3 48 01 3B 3B 2A 4D .!..9.....H.;;*M
000190: 56 E5 21 04 00 E5 CD 06 01 C6 FF 3F 9F F5 2A 4D V.!........?..*M
0001A0: 56 E5 21 05 00 E5 CD 06 01 C6 FF 3F 9F D1 B2 CA V.!........?....
0001B0: 00 1F 2A 4D 56 E5 01 FE FF 2A 4B 01 09 D1 73 23 ..*MV....*K...s#
0001C0: 72 11 16 07 3E 04 CD 45 01 11 86 1D CD 42 01 01 r...>..E.....B..
0001D0: FE FF 2A 4B 01 09 5E 23 56 D5 21 05 00 E5 CD 06 ..*K..^#V.!.....
0001E0: 01 C2 FD 1E 21 04 00 E5 21 00 00 E5 21 01 00 E5 ....!...!...!...
0001F0: 11 19 0B 3E 04 CD 45 01 21 06 00 39 F9 C3 06 1F ...>..E.!..9....
Size : 512 (Real : 512)
000000: 33 33 21 06 00 E5 01 FE FF 2A 4B 01 09 5E 23 56 33!......*K..^#V
000010: D5 11 C1 0C 3E 01 CD 45 01 33 33 33 33 2A 4D 56 ....>..E.3333*MV
000020: E5 21 2C 00 E5 CD 06 01 C2 54 27 11 16 07 3E 02 .!,......T'...>.
000030: CD 45 01 21 13 00 E5 01 F4 FF 2A 4B 01 09 D1 73 .E.!......*K...s
000040: 23 72 21 0B 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 #r!......*K...s#
000050: 72 C3 99 27 2A 4D 56 E5 21 1B 00 E5 CD 06 01 C2 r..'*MV.!.......
000060: 8B 27 11 16 07 3E 02 CD 45 01 21 14 00 E5 01 F4 .'...>..E.!.....
000070: FF 2A 4B 01 09 D1 73 23 72 21 0D 00 E5 01 F6 FF .*K...s#r!......
000080: 2A 4B 01 09 D1 73 23 72 C3 99 27 21 37 00 E5 11 *K...s#r..'!7...
000090: 03 06 3E 02 CD 45 01 33 33 21 03 00 E5 11 04 20 ..>..E.33!.....
0000A0: CD 42 01 33 33 21 1A 00 E5 21 36 00 E5 11 E1 0A .B.33!...!6.....
0000B0: 3E 02 CD 45 01 33 33 33 33 3B 3B 11 9F 0C 3E 02 >..E.3333;;...>.
0000C0: CD 45 01 01 F8 FF 2A 4B 01 09 D1 73 23 72 21 16 .E....*K...s#r!.
0000D0: 00 E5 21 00 00 E5 01 F8 FF 2A 4B 01 09 5E 23 56 ..!......*K..^#V
0000E0: D5 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 21 04 ....>..E.!..9.!.
0000F0: 00 E5 21 00 00 E5 21 15 00 E5 11 19 0B 3E 02 CD ..!...!......>..
000100: 45 01 21 06 00 39 F9 21 05 00 E5 01 FE FF 2A 4B E.!..9.!......*K
000110: 01 09 5E 23 56 D5 11 C1 0C 3E 01 CD 45 01 33 33 ..^#V....>..E.33
000120: 33 33 21 04 00 E5 21 00 00 E5 01 F6 FF 2A 4B 01 33!...!......*K.
000130: 09 5E 23 56 D5 11 19 0B 3E 02 CD 45 01 21 06 00 .^#V....>..E.!..
000140: 39 F9 3B 3B 11 9F 0C 3E 02 CD 45 01 01 FC FF 2A 9.;;...>..E....*
000150: 4B 01 09 D1 73 23 72 21 01 00 E5 21 00 00 E5 01 K...s#r!...!....
000160: FC FF 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD ..*K..^#V....>..
000170: 45 01 21 06 00 39 F9 11 93 21 3E 01 CD 45 01 21 E.!..9...!>..E.!
000180: 05 00 E5 01 FE FF 2A 4B 01 09 5E 23 56 D5 11 C1 ......*K..^#V...
000190: 0C 3E 01 CD 45 01 33 33 33 33 21 04 00 E5 21 00 .>..E.3333!...!.
0001A0: 00 E5 01 F4 FF 2A 4B 01 09 5E 23 56 D5 11 19 0B .....*K..^#V....
0001B0: 3E 02 CD 45 01 21 06 00 39 F9 21 06 00 E5 01 FE >..E.!..9.!.....
0001C0: FF 2A 4B 01 09 5E 23 56 D5 11 C1 0C 3E 01 CD 45 .*K..^#V....>..E
0001D0: 01 33 33 33 33 21 02 00 E5 21 00 00 E5 01 F8 FF .3333!...!......
0001E0: 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD 45 01 *K..^#V....>..E.
0001F0: 21 06 00 39 F9 21 16 00 E5 21 00 00 E5 01 FC FF !..9.!...!......
Size : 512 (Real : 512)
000000: 11 86 1D CD 42 01 2A 4D 56 E5 21 04 00 E5 CD 06 ....B.*MV.!.....
000010: 01 C6 FF 3F 9F F5 2A 4D 56 E5 21 05 00 E5 CD 06 ...?..*MV.!.....
000020: 01 C6 FF 3F 9F D1 B2 C6 FF 9F F5 2A 4D 56 E5 21 ...?.......*MV.!
000030: 25 00 E5 CD 06 01 C6 FF 3F 9F D1 B2 CA 01 20 2A %.......?..... *
000040: 4D 56 E5 21 25 00 E5 CD 06 01 C2 66 1F 21 10 00 MV.!%......f.!..
000050: E5 21 00 00 E5 21 00 00 E5 11 19 0B 3E 04 CD 45 .!...!......>..E
000060: 01 21 06 00 39 F9 2A 4D 56 E5 01 FE FF 2A 4B 01 .!..9.*MV....*K.
000070: 09 D1 73 23 72 11 16 07 3E 04 CD 45 01 11 86 1D ..s#r...>..E....
000080: CD 42 01 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 04 .B....*K..^#V.!.
000090: 00 E5 CD 06 01 C2 B4 1F 21 04 00 E5 21 00 00 E5 ........!...!...
0000A0: 21 02 00 E5 11 19 0B 3E 04 CD 45 01 21 06 00 39 !......>..E.!..9
0000B0: F9 C3 FE 1F 01 FE FF 2A 4B 01 09 5E 23 56 D5 21 .......*K..^#V.!
0000C0: 05 00 E5 CD 06 01 C2 E5 1F 21 04 00 E5 21 00 00 .........!...!..
0000D0: E5 21 03 00 E5 11 19 0B 3E 04 CD 45 01 21 06 00 .!......>..E.!..
0000E0: 39 F9 C3 FE 1F 21 04 00 E5 21 00 00 E5 21 0E 00 9....!...!...!..
0000F0: E5 11 19 0B 3E 04 CD 45 01 21 06 00 39 F9 C3 06 ....>..E.!..9...
000100: 1F C3 48 01 11 8C 1E CD 42 01 2A 4D 56 E5 21 09 ..H.....B.*MV.!.
000110: 00 E5 CD 06 01 C2 C7 20 11 16 07 3E 03 CD 45 01 ....... ...>..E.
000120: 2A 4D 56 E5 21 08 00 E5 CD 06 01 C2 5F 20 11 16 *MV.!......._ ..
000130: 07 3E 03 CD 45 01 11 8C 1E CD 42 01 21 04 00 E5 .>..E.....B.!...
000140: 01 06 00 2A 4B 01 09 5E 23 56 D5 21 0D 00 E5 11 ...*K..^#V.!....
000150: 19 0B 3E 03 CD 45 01 21 06 00 39 F9 C3 C4 20 2A ..>..E.!..9... *
000160: 4D 56 E5 21 0A 00 E5 CD 06 01 C2 9E 20 11 16 07 MV.!........ ...
000170: 3E 03 CD 45 01 11 8C 1E CD 42 01 21 04 00 E5 01 >..E.....B.!....
000180: 06 00 2A 4B 01 09 5E 23 56 D5 21 09 00 E5 11 19 ..*K..^#V.!.....
000190: 0B 3E 03 CD 45 01 21 06 00 39 F9 C3 C4 20 11 8C .>..E.!..9... ..
0001A0: 1E CD 42 01 21 04 00 E5 01 06 00 2A 4B 01 09 5E ..B.!......*K..^
0001B0: 23 56 D5 21 0A 00 E5 11 19 0B 3E 03 CD 45 01 21 #V.!......>..E.!
0001C0: 06 00 39 F9 C3 81 21 2A 4D 56 E5 21 0A 00 E5 CD ..9...!*MV.!....
0001D0: 06 01 C2 45 21 11 16 07 3E 03 CD 45 01 2A 4D 56 ...E!...>..E.*MV
0001E0: E5 21 08 00 E5 CD 06 01 C2 1C 21 11 16 07 3E 03 .!........!...>.
0001F0: CD 45 01 11 8C 1E CD 42 01 21 04 00 E5 01 06 00 .E.....B.!......
Size : 512 (Real : 512)
000000: 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD 45 01 *K..^#V....>..E.
000010: 21 06 00 39 F9 21 07 00 E5 21 00 00 E5 21 00 00 !..9.!...!...!..
000020: E5 21 02 00 E5 CD 33 01 11 19 0B 3E 02 CD 45 01 .!....3....>..E.
000030: 21 06 00 39 F9 C3 B7 2E E1 E5 E5 21 2A 00 E5 CD !..9.......!*...
000040: 06 01 C2 DB 29 3B 3B 11 9F 0C 3E 02 CD 45 01 01 ....);;...>..E..
000050: F8 FF 2A 4B 01 09 D1 73 23 72 21 16 00 E5 21 00 ..*K...s#r!...!.
000060: 00 E5 01 F8 FF 2A 4B 01 09 5E 23 56 D5 11 19 0B .....*K..^#V....
000070: 3E 02 CD 45 01 21 06 00 39 F9 11 16 07 3E 02 CD >..E.!..9....>..
000080: 45 01 11 93 21 3E 01 CD 45 01 2A 4D 56 E5 21 0E E...!>..E.*MV.!.
000090: 00 E5 CD 06 01 CA 7A 29 21 2E 00 E5 21 35 00 E5 ......z)!...!5..
0000A0: 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 03 00 E5 ...>..E.3333!...
0000B0: 11 04 20 CD 42 01 33 33 21 01 00 E5 21 00 00 E5 .. .B.33!...!...
0000C0: 01 F8 FF 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 ...*K..^#V....>.
0000D0: CD 45 01 21 06 00 39 F9 C3 B7 2E E1 E5 E5 21 17 .E.!..9.......!.
0000E0: 00 E5 CD 06 01 C2 B0 2B 11 16 07 3E 02 CD 45 01 .......+...>..E.
0000F0: 21 03 00 E5 11 04 20 CD 42 01 33 33 2A 4D 56 E5 !..... .B.33*MV.
000100: 21 24 00 E5 CD 06 01 CA 18 2A 21 08 00 E5 11 03 !$.......*!.....
000110: 06 3E 02 CD 45 01 33 33 3B 3B 11 9F 0C 3E 02 CD .>..E.33;;...>..
000120: 45 01 01 FC FF 2A 4B 01 09 D1 73 23 72 11 16 07 E....*K...s#r...
000130: 3E 02 CD 45 01 21 04 00 E5 21 00 00 E5 21 15 00 >..E.!...!...!..
000140: E5 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 21 03 ....>..E.!..9.!.
000150: 00 E5 21 00 00 E5 3B 3B 11 77 0D 3E 01 CD 45 01 ..!...;;.w.>..E.
000160: 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 21 12 00 ...>..E.!..9.!..
000170: E5 21 05 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 33 .!......>..E.333
000180: 33 21 04 00 E5 21 00 00 E5 21 08 00 E5 11 19 0B 3!...!...!......
000190: 3E 02 CD 45 01 21 06 00 39 F9 3B 3B 11 9F 0C 3E >..E.!..9.;;...>
0001A0: 02 CD 45 01 01 FA FF 2A 4B 01 09 D1 73 23 72 21 ..E....*K...s#r!
0001B0: 01 00 E5 21 00 00 E5 01 FA FF 2A 4B 01 09 5E 23 ...!......*K..^#
0001C0: 56 D5 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 11 V....>..E.!..9..
0001D0: 93 21 3E 01 CD 45 01 21 02 00 E5 21 00 00 E5 01 .!>..E.!...!....
0001E0: FC FF 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD ..*K..^#V....>..
0001F0: 45 01 21 06 00 39 F9 21 16 00 E5 21 00 00 E5 01 E.!..9.!...!....
Size : 512 (Real : 512)
000000: 16 07 3E 01 CD 45 01 21 51 56 CD 2A 01 01 F4 FF ..>..E.!QV.*....
000010: 2A 4B 01 09 5E 23 56 D5 01 08 00 2A 4B 01 09 5E *K..^#V....*K..^
000020: 23 56 D5 3B 3B 11 9F 0C 3E 01 CD 45 01 21 00 00 #V.;;...>..E.!..
000030: E5 11 63 0B 3E 01 CD 45 01 21 10 00 39 F9 21 01 ..c.>..E.!..9.!.
000040: 00 E5 21 02 00 E5 11 E1 0A 3E 01 CD 45 01 33 33 ..!......>..E.33
000050: 33 33 2A 69 56 E5 01 F0 FF 2A 4B 01 09 D1 73 23 33*iV....*K...s#
000060: 72 21 00 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 72 r!......*K...s#r
000070: 2A 4D 56 E5 21 0B 00 E5 CD 06 01 C2 84 33 11 BC *MV.!........3..
000080: 2E CD 42 01 01 F0 FF 2A 4B 01 09 5E 23 56 D5 01 ..B....*K..^#V..
000090: F6 FF 2A 4B 01 09 5E 23 56 D5 21 EF 53 D1 C1 09 ..*K..^#V.!.S...
0000A0: 09 73 23 72 21 0E 00 E5 21 0E 00 E5 11 E1 0A 3E .s#r!...!......>
0000B0: 01 CD 45 01 33 33 33 33 21 51 56 CD 2A 01 CD 27 ..E.3333!QV.*..'
0000C0: 01 20 44 52 41 57 52 4F 46 CD 30 01 C2 DA 33 11 . DRAWROF.0...3.
0000D0: 16 07 3E 01 CD 45 01 C3 2B 35 21 51 56 CD 2A 01 ..>..E..+5!QV.*.
0000E0: CD 27 01 44 52 41 57 4B 43 41 42 CD 30 01 C2 08 .'.DRAWKCAB.0...
0000F0: 35 11 16 07 3E 01 CD 45 01 21 0E 00 E5 21 0E 00 5...>..E.!...!..
000100: E5 11 E1 0A 3E 01 CD 45 01 33 33 33 33 21 01 00 ....>..E.3333!..
000110: E5 01 EE FF 2A 4B 01 09 D1 73 23 72 01 F0 FF 2A ....*K...s#r...*
000120: 4B 01 09 5E 23 56 D5 21 79 43 D1 EB 29 29 29 19 K..^#V.!yC..))).
000130: CD 2A 01 21 51 56 CD 2D 01 21 51 56 CD 2A 01 01 .*.!QV.-.!QV.*..
000140: EE FF 2A 4B 01 09 5E 23 56 D5 21 79 43 D1 EB 29 ..*K..^#V.!yC..)
000150: 29 29 19 CD 2A 01 CD 30 01 CA 7D 34 01 EE FF 2A ))..*..0..}4...*
000160: 4B 01 09 5E 23 56 D5 21 01 00 E5 D1 E1 19 E5 01 K..^#V.!........
000170: EE FF 2A 4B 01 09 D1 73 23 72 C3 39 34 01 EE FF ..*K...s#r.94...
000180: 2A 4B 01 09 5E 23 56 D5 CD 27 01 2A 2A 2A 2A 2A *K..^#V..'.*****
000190: 2A 2A 2A 21 79 43 EB 21 08 00 39 7E 23 66 6F 29 ***!yC.!..9~#fo)
0001A0: 29 29 19 CD 2D 01 E1 01 F0 FF 2A 4B 01 09 5E 23 ))..-.....*K..^#
0001B0: 56 D5 01 EE FF 2A 4B 01 09 5E 23 56 D5 21 95 51 V....*K..^#V.!.Q
0001C0: D1 19 19 5E 23 56 D5 21 95 51 D1 C1 09 09 73 23 ...^#V.!.Q....s#
0001D0: 72 01 08 00 2A 4B 01 09 5E 23 56 D5 21 01 00 E5 r...*K..^#V.!...
0001E0: D1 E1 19 E5 01 EE FF 2A 4B 01 09 5E 23 56 D5 21 .......*K..^#V.!
0001F0: 95 51 D1 19 19 5E 23 56 D5 11 CF 31 3E 01 CD 45 .Q...^#V...1>..E
Size : 512 (Real : 512)
000000: FA FF 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD ..*K..^#V....>..
000010: 45 01 21 06 00 39 F9 2A 4D 56 E5 21 1C 00 E5 CD E.!..9.*MV.!....
000020: 06 01 C6 FF 3F 9F F5 2A 4D 56 E5 21 1D 00 E5 CD ....?..*MV.!....
000030: 06 01 C6 FF 3F 9F D1 B2 CA 2D 2A 2A 4D 56 E5 21 ....?....-**MV.!
000040: 1C 00 E5 CD 06 01 C2 59 2B 11 16 07 3E 02 CD 45 .......Y+...>..E
000050: 01 11 93 21 3E 01 CD 45 01 21 1D 00 E5 21 0D 00 ...!>..E.!...!..
000060: E5 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 16 00 ....>..E.3333!..
000070: E5 21 00 00 E5 01 FC FF 2A 4B 01 09 5E 23 56 D5 .!......*K..^#V.
000080: 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 21 07 00 ...>..E.!..9.!..
000090: E5 21 00 00 E5 21 00 00 E5 21 02 00 E5 CD 33 01 .!...!...!....3.
0000A0: 11 19 0B 3E 02 CD 45 01 21 06 00 39 F9 C3 B7 2E ...>..E.!..9....
0000B0: E1 E5 E5 21 20 00 E5 CD 06 01 C2 7D 2C 11 16 07 ...! ......},...
0000C0: 3E 02 CD 45 01 21 13 00 E5 21 63 00 E5 11 E1 0A >..E.!...!c.....
0000D0: 3E 02 CD 45 01 33 33 33 33 3B 3B 11 77 0D 3E 01 >..E.3333;;.w.>.
0000E0: CD 45 01 01 FE FF 2A 4B 01 09 D1 73 23 72 21 0B .E....*K...s#r!.
0000F0: 00 E5 21 09 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 ..!......>..E.33
000100: 33 33 21 01 00 E5 21 02 00 E5 11 E1 0A 3E 02 CD 33!...!......>..
000110: 45 01 33 33 33 33 21 08 00 E5 01 FE FF 2A 4B 01 E.3333!......*K.
000120: 09 5E 23 56 D5 21 00 00 E5 11 19 0B 3E 02 CD 45 .^#V.!......>..E
000130: 01 21 06 00 39 F9 3B 3B 11 1D 0C 3E 02 CD 45 01 .!..9.;;...>..E.
000140: 01 FE FF 2A 4B 01 09 D1 73 23 72 21 06 00 E5 01 ...*K...s#r!....
000150: FE FF 2A 4B 01 09 5E 23 56 D5 11 C1 0C 3E 01 CD ..*K..^#V....>..
000160: 45 01 33 33 33 33 21 0C 00 E5 21 04 00 E5 11 E1 E.3333!...!.....
000170: 0A 3E 02 CD 45 01 33 33 33 33 C3 B7 2E E1 E5 E5 .>..E.3333......
000180: 21 28 00 E5 CD 06 01 C2 8B 2D 11 16 07 3E 02 CD !(.......-...>..
000190: 45 01 21 13 00 E5 21 63 00 E5 11 E1 0A 3E 02 CD E.!...!c.....>..
0001A0: 45 01 33 33 33 33 3B 3B 11 77 0D 3E 01 CD 45 01 E.3333;;.w.>..E.
0001B0: 01 FE FF 2A 4B 01 09 D1 73 23 72 2A 4D 56 E5 21 ...*K...s#r*MV.!
0001C0: 0B 00 E5 CD 06 01 CA D7 2C 21 09 00 E5 11 03 06 ........,!......
0001D0: 3E 02 CD 45 01 33 33 11 16 07 3E 02 CD 45 01 21 >..E.33...>..E.!
0001E0: 03 00 E5 11 04 20 CD 42 01 33 33 2A 71 56 E5 21 ..... .B.33*qV.!
0001F0: 00 00 E5 CD 06 01 C2 0B 2D 21 01 00 E5 01 F6 FF ........-!......
Size : 512 (Real : 512)
000000: 01 33 33 33 33 C3 2B 35 01 08 00 2A 4B 01 09 5E .3333.+5...*K..^
000010: 23 56 D5 21 01 00 E5 D1 E1 19 E5 2A 6B 56 E5 11 #V.!.......*kV..
000020: CF 31 3E 01 CD 45 01 33 33 33 33 01 F0 FF 2A 4B .1>..E.3333...*K
000030: 01 09 5E 23 56 D5 E1 22 69 56 21 0E 00 E5 21 0E ..^#V.."iV!...!.
000040: 00 E5 11 E1 0A 3E 01 CD 45 01 33 33 33 33 C3 AC .....>..E.3333..
000050: 32 21 16 00 E5 21 11 00 E5 11 E1 0A 3E 01 CD 45 2!...!......>..E
000060: 01 33 33 33 33 21 16 00 E5 21 00 00 E5 01 06 00 .3333!...!......
000070: 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 01 CD 45 01 *K..^#V....>..E.
000080: 21 06 00 39 F9 01 08 00 2A 4B 01 09 5E 23 56 D5 !..9....*K..^#V.
000090: 21 01 00 E5 CD 06 01 CA BA 35 21 07 00 E5 21 00 !........5!...!.
0000A0: 00 E5 01 F8 FF 2A 4B 01 09 5E 23 56 D5 11 19 0B .....*K..^#V....
0000B0: 3E 01 CD 45 01 21 06 00 39 F9 11 93 21 CD 42 01 >..E.!..9...!.B.
0000C0: 2A 4D 56 E5 21 0E 00 E5 CD 06 01 C2 DF 35 11 16 *MV.!........5..
0000D0: 07 3E 01 CD 45 01 11 93 21 CD 42 01 C3 C0 35 01 .>..E...!.B...5.
0000E0: 08 00 2A 4B 01 09 5E 23 56 D5 21 01 00 E5 CD 06 ..*K..^#V.!.....
0000F0: 01 CA 0D 36 21 04 00 E5 21 00 00 E5 21 00 00 E5 ...6!...!...!...
000100: 11 19 0B 3E 01 CD 45 01 21 06 00 39 F9 21 1D 00 ...>..E.!..9.!..
000110: E5 21 0D 00 E5 11 E1 0A 3E 01 CD 45 01 33 33 33 .!......>..E.333
000120: 33 2A 4D 56 E5 21 0D 00 E5 CD 06 01 C2 52 37 11 3*MV.!.......R7.
000130: 16 07 3E 01 CD 45 01 21 01 00 E5 01 F0 FF 2A 4B ..>..E.!......*K
000140: 01 09 D1 73 23 72 2A 69 56 E5 E1 E5 E5 01 F0 FF ...s#r*iV.......
000150: 2A 4B 01 09 5E 23 56 D5 CD 06 01 CA 61 36 D2 50 *K..^#V.....a6.P
000160: 37 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E 01 7!...>....!...>.
000170: CD 0C 01 01 F0 FF 2A 4B 01 09 5E 23 56 D5 3E 01 ......*K..^#V.>.
000180: CD 12 01 21 20 00 E5 3E 01 CD 0C 01 01 F0 FF 2A ...! ..>.......*
000190: 4B 01 09 5E 23 56 D5 21 79 43 D1 EB 29 29 29 19 K..^#V.!yC..))).
0001A0: CD 2A 01 3E 01 CD 21 01 21 20 00 E5 3E 01 CD 0C .*.>..!.! ..>...
0001B0: 01 01 F0 FF 2A 4B 01 09 5E 23 56 D5 21 E1 4C D1 ....*K..^#V.!.L.
0001C0: 19 19 5E 23 56 D5 3E 01 CD 12 01 21 20 00 E5 3E ..^#V.>....! ..>
0001D0: 01 CD 0C 01 01 F0 FF 2A 4B 01 09 5E 23 56 D5 21 .......*K..^#V.!
0001E0: 3B 4F D1 19 19 5E 23 56 D5 3E 01 CD 12 01 21 20 ;O...^#V.>....!
0001F0: 00 E5 3E 01 CD 0C 01 01 F0 FF 2A 4B 01 09 5E 23 ..>.......*K..^#
Size : 512 (Real : 512)
000000: 2A 4B 01 09 D1 73 23 72 C3 1A 2D 21 08 00 E5 01 *K...s#r..-!....
000010: F6 FF 2A 4B 01 09 D1 73 23 72 2A 4D 56 E5 21 13 ..*K...s#r*MV.!.
000020: 00 E5 CD 06 01 C2 3F 2D 11 16 07 3E 02 CD 45 01 ......?-...>..E.
000030: 21 03 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 72 21 !......*K...s#r!
000040: 08 00 E5 01 FE FF 2A 4B 01 09 5E 23 56 D5 01 F6 ......*K..^#V...
000050: FF 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD 45 .*K..^#V....>..E
000060: 01 21 06 00 39 F9 2A 4D 56 E5 21 0D 00 E5 CD 06 .!..9.*MV.!.....
000070: 01 CA D7 2C 21 0C 00 E5 21 04 00 E5 11 E1 0A 3E ...,!...!......>
000080: 02 CD 45 01 33 33 33 33 C3 B7 2E E1 E5 E5 21 16 ..E.3333......!.
000090: 00 E5 CD 06 01 C2 CD 2D 11 16 07 3E 02 CD 45 01 .......-...>..E.
0000A0: 11 93 21 3E 01 CD 45 01 2A 4D 56 E5 21 0E 00 E5 ..!>..E.*MV.!...
0000B0: CD 06 01 CA 98 2D 21 1D 00 E5 21 0D 00 E5 11 E1 .....-!...!.....
0000C0: 0A 3E 02 CD 45 01 33 33 33 33 C3 B7 2E E1 E5 E5 .>..E.3333......
0000D0: 21 30 00 E5 CD 06 01 C2 B7 2E 11 16 07 3E 02 CD !0...........>..
0000E0: 45 01 3B 3B 11 9F 0C 3E 02 CD 45 01 01 F8 FF 2A E.;;...>..E....*
0000F0: 4B 01 09 D1 73 23 72 21 16 00 E5 21 00 00 E5 01 K...s#r!...!....
000100: F8 FF 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD ..*K..^#V....>..
000110: 45 01 21 06 00 39 F9 21 03 00 E5 11 04 20 CD 42 E.!..9.!..... .B
000120: 01 33 33 3B 3B 11 9F 0C 3E 02 CD 45 01 01 FC FF .33;;...>..E....
000130: 2A 4B 01 09 D1 73 23 72 21 01 00 E5 21 00 00 E5 *K...s#r!...!...
000140: 01 FC FF 2A 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 ...*K..^#V....>.
000150: CD 45 01 21 06 00 39 F9 21 1A 00 E5 21 36 00 E5 .E.!..9.!...!6..
000160: 11 E1 0A 3E 02 CD 45 01 33 33 33 33 11 93 21 3E ...>..E.3333..!>
000170: 01 CD 45 01 21 02 00 E5 21 00 00 E5 01 F8 FF 2A ..E.!...!......*
000180: 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD 45 01 21 K..^#V....>..E.!
000190: 06 00 39 F9 21 16 00 E5 21 00 00 E5 01 FC FF 2A ..9.!...!......*
0001A0: 4B 01 09 5E 23 56 D5 11 19 0B 3E 02 CD 45 01 21 K..^#V....>..E.!
0001B0: 06 00 39 F9 C3 B7 2E 33 33 C3 48 01 21 F6 FF 39 ..9....33.H.!..9
0001C0: F9 2A 69 56 E5 01 FE FF 2A 4B 01 09 D1 73 23 72 .*iV....*K...s#r
0001D0: 2A 69 56 E5 01 FC FF 2A 4B 01 09 D1 73 23 72 21 *iV....*K...s#r!
0001E0: 00 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 72 11 16 ......*K...s#r..
0001F0: 07 3E 02 CD 45 01 2A 4D 56 E5 21 2F 00 E5 CD 06 .>..E.*MV.!/....
Size : 512 (Real : 512)
000000: 56 D5 21 95 51 D1 19 19 5E 23 56 D5 3E 01 CD 12 V.!.Q...^#V.>...
000010: 01 21 20 00 E5 3E 01 CD 0C 01 01 F0 FF 2A 4B 01 .! ..>.......*K.
000020: 09 5E 23 56 D5 21 EF 53 D1 19 19 5E 23 56 D5 3E .^#V.!.S...^#V.>
000030: 01 CD 12 01 01 F0 FF 2A 4B 01 09 5E 23 56 D5 E1 .......*K..^#V..
000040: 23 E5 01 F0 FF 2A 4B 01 09 D1 73 23 72 C3 4A 36 #....*K...s#r.J6
000050: 33 33 01 F2 FF 2A 4B 01 09 5E 23 56 D5 E1 22 69 33...*K..^#V.."i
000060: 56 C3 48 01 21 00 00 E5 E1 22 4B 56 21 7F 00 E5 V.H.!...."KV!...
000070: E1 E5 E5 2A 4B 56 E5 CD 06 01 CA 80 37 D2 A0 37 ...*KV......7..7
000080: 2A 4B 56 E5 21 00 00 E5 21 D7 41 D1 C1 09 09 73 *KV.!...!.A....s
000090: 23 72 2A 4B 56 E5 E1 23 E5 E1 22 4B 56 C3 70 37 #r*KV..#.."KV.p7
0000A0: 33 33 21 2B 00 E5 21 04 00 E5 21 D7 41 D1 C1 09 33!+..!...!.A...
0000B0: 09 73 23 72 21 2D 00 E5 21 05 00 E5 21 D7 41 D1 .s#r!-..!...!.A.
0000C0: C1 09 09 73 23 72 21 2A 00 E5 21 06 00 E5 21 D7 ...s#r!*..!...!.
0000D0: 41 D1 C1 09 09 73 23 72 21 2F 00 E5 21 07 00 E5 A....s#r!/..!...
0000E0: 21 D7 41 D1 C1 09 09 73 23 72 21 3A 00 E5 21 12 !.A....s#r!:..!.
0000F0: 00 E5 21 D7 41 D1 C1 09 09 73 23 72 21 3B 00 E5 ..!.A....s#r!;..
000100: 21 0E 00 E5 21 D7 41 D1 C1 09 09 73 23 72 21 3D !...!.A....s#r!=
000110: 00 E5 21 08 00 E5 21 D7 41 D1 C1 09 09 73 23 72 ..!...!.A....s#r
000120: 21 23 00 E5 21 13 00 E5 21 D7 41 D1 C1 09 09 73 !#..!...!.A....s
000130: 23 72 21 3C 00 E5 21 09 00 E5 21 D7 41 D1 C1 09 #r!<..!...!.A...
000140: 09 73 23 72 21 3E 00 E5 21 0A 00 E5 21 D7 41 D1 .s#r!>..!...!.A.
000150: C1 09 09 73 23 72 21 28 00 E5 21 0B 00 E5 21 D7 ...s#r!(..!...!.
000160: 41 D1 C1 09 09 73 23 72 21 29 00 E5 21 0C 00 E5 A....s#r!)..!...
000170: 21 D7 41 D1 C1 09 09 73 23 72 21 5B 00 E5 21 10 !.A....s#r![..!.
000180: 00 E5 21 D7 41 D1 C1 09 09 73 23 72 21 5D 00 E5 ..!.A....s#r!]..
000190: 21 11 00 E5 21 D7 41 D1 C1 09 09 73 23 72 21 2E !...!.A....s#r!.
0001A0: 00 E5 21 0F 00 E5 21 D7 41 D1 C1 09 09 73 23 72 ..!...!.A....s#r
0001B0: 21 2C 00 E5 21 0D 00 E5 21 D7 41 D1 C1 09 09 73 !,..!...!.A....s
0001C0: 23 72 21 01 00 E5 CD 27 01 20 20 20 20 20 44 4E #r!....'. DN
0001D0: 41 21 E7 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 A!.@.!..9~#fo)))
0001E0: 19 CD 2D 01 E1 21 01 00 E5 21 14 00 E5 21 AB 40 ..-..!...!...!.@
0001F0: D1 C1 09 09 73 23 72 21 02 00 E5 CD 27 01 20 20 ....s#r!....'.
Size : 512 (Real : 512)
000000: 01 C2 1B 2F 11 16 07 3E 02 CD 45 01 21 08 00 E5 .../...>..E.!...
000010: 01 F6 FF 2A 4B 01 09 D1 73 23 72 21 01 00 E5 21 ...*K...s#r!...!
000020: 02 00 E5 11 E1 0A 3E 02 CD 45 01 33 33 33 33 21 ......>..E.3333!
000030: 51 56 CD 2A 01 21 00 00 E5 3E 01 CD 03 01 11 08 QV.*.!...>......
000040: 00 19 5E 23 56 D5 21 01 00 E5 D1 E1 19 E5 21 00 ..^#V.!.......!.
000050: 00 E5 21 00 00 E5 11 63 0B 3E 02 CD 45 01 21 10 ..!....c.>..E.!.
000060: 00 39 F9 2A 4D 56 E5 21 0D 00 E5 CD 06 01 CA EE .9.*MV.!........
000070: 2E 21 12 00 E5 21 05 00 E5 11 E1 0A 3E 02 CD 45 .!...!......>..E
000080: 01 33 33 33 33 21 01 00 E5 21 02 00 E5 11 E1 0A .3333!...!......
000090: 3E 02 CD 45 01 33 33 33 33 3B 3B 11 1D 0C 3E 02 >..E.3333;;...>.
0000A0: CD 45 01 01 FA FF 2A 4B 01 09 D1 73 23 72 01 F6 .E....*K...s#r..
0000B0: FF 2A 4B 01 09 5E 23 56 D5 21 00 00 E5 CD 06 01 .*K..^#V.!......
0000C0: C2 03 30 01 FA FF 2A 4B 01 09 5E 23 56 D5 21 E1 ..0...*K..^#V.!.
0000D0: 4C D1 19 19 5E 23 56 D5 21 07 00 E5 CD 06 01 C2 L...^#V.!.......
0000E0: F4 2F 21 04 00 E5 01 F6 FF 2A 4B 01 09 D1 73 23 ./!......*K...s#
0000F0: 72 C3 03 30 21 05 00 E5 01 F6 FF 2A 4B 01 09 D1 r..0!......*K...
000100: 73 23 72 01 FC FF 2A 4B 01 09 5E 23 56 D5 21 01 s#r...*K..^#V.!.
000110: 00 E5 D1 E1 19 E5 01 F8 FF 2A 4B 01 09 D1 73 23 .........*K...s#
000120: 72 2A 69 56 E5 E1 E5 E5 01 F8 FF 2A 4B 01 09 5E r*iV.......*K..^
000130: 23 56 D5 CD 06 01 CA 3C 30 D2 17 31 01 F8 FF 2A #V.....<0..1...*
000140: 4B 01 09 5E 23 56 D5 01 F6 FF 2A 4B 01 09 5E 23 K..^#V....*K..^#
000150: 56 D5 21 E1 4C D1 C1 09 09 73 23 72 01 F8 FF 2A V.!.L....s#r...*
000160: 4B 01 09 5E 23 56 D5 01 FA FF 2A 4B 01 09 5E 23 K..^#V....*K..^#
000170: 56 D5 21 EF 53 D1 19 19 5E 23 56 D5 21 EF 53 D1 V.!.S...^#V.!.S.
000180: C1 09 09 73 23 72 01 F8 FF 2A 4B 01 09 5E 23 56 ...s#r...*K..^#V
000190: D5 3E 01 CD 03 01 11 F6 FF 19 5E 23 56 D5 01 FA .>........^#V...
0001A0: FF 2A 4B 01 09 5E 23 56 D5 21 EF 53 D1 19 19 5E .*K..^#V.!.S...^
0001B0: 23 56 D5 D1 E1 19 E5 21 06 00 E5 CD 33 01 21 95 #V.....!....3.!.
0001C0: 51 D1 C1 09 09 73 23 72 3E 01 CD 03 01 11 F6 FF Q....s#r>.......
0001D0: 19 5E 23 56 D5 01 FA FF 2A 4B 01 09 5E 23 56 D5 .^#V....*K..^#V.
0001E0: 21 EF 53 D1 19 19 5E 23 56 D5 D1 E1 19 E5 3E 01 !.S...^#V.....>.
0001F0: CD 03 01 11 F6 FF 19 D1 73 23 72 01 F8 FF 2A 4B ........s#r...*K
Size : 512 (Real : 512)
000000: 20 59 41 52 52 41 21 E7 40 EB 21 08 00 39 7E 23 YARRA!.@.!..9~#
000010: 66 6F 29 29 29 19 CD 2D 01 E1 21 02 00 E5 21 15 fo)))..-..!...!.
000020: 00 E5 21 AB 40 D1 C1 09 09 73 23 72 21 03 00 E5 ..!.@....s#r!...
000030: CD 27 01 20 20 20 4E 49 47 45 42 21 E7 40 EB 21 .'. NIGEB!.@.!
000040: 08 00 39 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 ..9~#fo)))..-..!
000050: 03 00 E5 21 16 00 E5 21 AB 40 D1 C1 09 09 73 23 ...!...!.@....s#
000060: 72 21 04 00 E5 CD 27 01 20 20 20 20 45 53 41 43 r!....'. ESAC
000070: 21 E7 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 19 !.@.!..9~#fo))).
000080: CD 2D 01 E1 21 04 00 E5 21 17 00 E5 21 AB 40 D1 .-..!...!...!.@.
000090: C1 09 09 73 23 72 21 05 00 E5 CD 27 01 20 20 20 ...s#r!....'.
0000A0: 54 53 4E 4F 43 21 E7 40 EB 21 08 00 39 7E 23 66 TSNOC!.@.!..9~#f
0000B0: 6F 29 29 29 19 CD 2D 01 E1 21 05 00 E5 21 18 00 o)))..-..!...!..
0000C0: E5 21 AB 40 D1 C1 09 09 73 23 72 21 06 00 E5 CD .!.@....s#r!....
0000D0: 27 01 20 20 20 20 20 56 49 44 21 E7 40 EB 21 08 '. VID!.@.!.
0000E0: 00 39 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 06 .9~#fo)))..-..!.
0000F0: 00 E5 21 19 00 E5 21 AB 40 D1 C1 09 09 73 23 72 ..!...!.@....s#r
000100: 21 07 00 E5 CD 27 01 20 20 20 20 20 20 4F 44 21 !....'. OD!
000110: E7 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 19 CD .@.!..9~#fo)))..
000120: 2D 01 E1 21 07 00 E5 21 1A 00 E5 21 AB 40 D1 C1 -..!...!...!.@..
000130: 09 09 73 23 72 21 08 00 E5 CD 27 01 20 20 4F 54 ..s#r!....'. OT
000140: 4E 57 4F 44 21 E7 40 EB 21 08 00 39 7E 23 66 6F NWOD!.@.!..9~#fo
000150: 29 29 29 19 CD 2D 01 E1 21 08 00 E5 21 1B 00 E5 )))..-..!...!...
000160: 21 AB 40 D1 C1 09 09 73 23 72 21 09 00 E5 CD 27 !.@....s#r!....'
000170: 01 20 20 20 20 45 53 4C 45 21 E7 40 EB 21 08 00 . ESLE!.@.!..
000180: 39 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 09 00 9~#fo)))..-..!..
000190: E5 21 1C 00 E5 21 AB 40 D1 C1 09 09 73 23 72 21 .!...!.@....s#r!
0001A0: 0A 00 E5 CD 27 01 20 20 20 20 20 44 4E 45 21 E7 ....'. DNE!.
0001B0: 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 19 CD 2D @.!..9~#fo)))..-
0001C0: 01 E1 21 0A 00 E5 21 1D 00 E5 21 AB 40 D1 C1 09 ..!...!...!.@...
0001D0: 09 73 23 72 21 0B 00 E5 CD 27 01 20 20 20 20 20 .s#r!....'.
0001E0: 52 4F 46 21 E7 40 EB 21 08 00 39 7E 23 66 6F 29 ROF!.@.!..9~#fo)
0001F0: 29 29 19 CD 2D 01 E1 21 0B 00 E5 21 1E 00 E5 21 ))..-..!...!...!
Size : 512 (Real : 512)
000000: 01 09 5E 23 56 D5 E1 23 E5 01 F8 FF 2A 4B 01 09 ..^#V..#....*K..
000010: D1 73 23 72 C3 25 30 33 33 2A 4D 56 E5 21 0E 00 .s#r.%033*MV.!..
000020: E5 CD 06 01 CA D0 2E 01 FE FF 2A 4B 01 09 5E 23 ..........*K..^#
000030: 56 D5 21 01 00 E5 D1 E1 19 E5 01 F8 FF 2A 4B 01 V.!..........*K.
000040: 09 D1 73 23 72 2A 69 56 E5 E1 E5 E5 01 F8 FF 2A ..s#r*iV.......*
000050: 4B 01 09 5E 23 56 D5 CD 06 01 CA 60 31 D2 B6 31 K..^#V.....`1..1
000060: 01 F8 FF 2A 4B 01 09 5E 23 56 D5 01 F8 FF 2A 4B ...*K..^#V....*K
000070: 01 09 5E 23 56 D5 21 95 51 D1 19 19 5E 23 56 D5 ..^#V.!.Q...^#V.
000080: 3E 01 CD 03 01 11 F6 FF 19 5E 23 56 D5 CD 33 01 >........^#V..3.
000090: 21 95 51 D1 C1 09 09 73 23 72 01 F8 FF 2A 4B 01 !.Q....s#r...*K.
0000A0: 09 5E 23 56 D5 E1 23 E5 01 F8 FF 2A 4B 01 09 D1 .^#V..#....*K...
0000B0: 73 23 72 C3 49 31 33 33 21 0C 00 E5 21 04 00 E5 s#r.I133!...!...
0000C0: 11 E1 0A 3E 02 CD 45 01 33 33 33 33 C3 48 01 21 ...>..E.3333.H.!
0000D0: EE FF 39 F9 21 00 00 E5 01 F8 FF 2A 4B 01 09 D1 ..9.!......*K...
0000E0: 73 23 72 2A 69 56 E5 01 F2 FF 2A 4B 01 09 D1 73 s#r*iV....*K...s
0000F0: 23 72 2A 4D 56 E5 21 18 00 E5 CD 06 01 C2 30 32 #r*MV.!.......02
000100: 11 16 07 3E 01 CD 45 01 11 A9 0E CD 42 01 21 0E ...>..E.....B.!.
000110: 00 E5 21 0E 00 E5 11 E1 0A 3E 01 CD 45 01 33 33 ..!......>..E.33
000120: 33 33 2A 4D 56 E5 21 01 00 E5 CD 06 01 CA 08 32 33*MV.!........2
000130: 2A 4D 56 E5 21 2D 00 E5 CD 06 01 C2 6E 32 11 16 *MV.!-......n2..
000140: 07 3E 01 CD 45 01 11 E6 12 CD 42 01 21 0E 00 E5 .>..E.....B.!...
000150: 21 0E 00 E5 11 E1 0A 3E 01 CD 45 01 33 33 33 33 !......>..E.3333
000160: 2A 4D 56 E5 21 01 00 E5 CD 06 01 CA 46 32 2A 4D *MV.!.......F2*M
000170: 56 E5 21 2F 00 E5 CD 06 01 C2 AC 32 11 16 07 3E V.!/.......2...>
000180: 01 CD 45 01 11 79 13 CD 42 01 21 0E 00 E5 21 0E ..E..y..B.!...!.
000190: 00 E5 11 E1 0A 3E 01 CD 45 01 33 33 33 33 2A 4D .....>..E.3333*M
0001A0: 56 E5 21 01 00 E5 CD 06 01 CA 84 32 2A 4D 56 E5 V.!........2*MV.
0001B0: 21 26 00 E5 CD 06 01 C6 FF 3F 9F F5 2A 4D 56 E5 !&.......?..*MV.
0001C0: 21 1F 00 E5 CD 06 01 C6 FF 3F 9F D1 B2 CA 51 35 !........?....Q5
0001D0: 2A 4D 56 E5 21 26 00 E5 CD 06 01 C2 F0 32 21 02 *MV.!&.......2!.
0001E0: 00 E5 01 F4 FF 2A 4B 01 09 D1 73 23 72 C3 FF 32 .....*K...s#r..2
0001F0: 21 03 00 E5 01 F4 FF 2A 4B 01 09 D1 73 23 72 11 !......*K...s#r.
Size : 512 (Real : 512)
000000: AB 40 D1 C1 09 09 73 23 72 21 0C 00 E5 CD 27 01 .@....s#r!....'.
000010: 4E 4F 49 54 43 4E 55 46 21 E7 40 EB 21 08 00 39 NOITCNUF!.@.!..9
000020: 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 0C 00 E5 ~#fo)))..-..!...
000030: 21 1F 00 E5 21 AB 40 D1 C1 09 09 73 23 72 21 0D !...!.@....s#r!.
000040: 00 E5 CD 27 01 20 20 20 20 20 54 45 47 21 E7 40 ...'. TEG!.@
000050: EB 21 08 00 39 7E 23 66 6F 29 29 29 19 CD 2D 01 .!..9~#fo)))..-.
000060: E1 21 0D 00 E5 21 20 00 E5 21 AB 40 D1 C1 09 09 .!...! ..!.@....
000070: 73 23 72 21 0E 00 E5 CD 27 01 20 20 20 20 20 20 s#r!....'.
000080: 46 49 21 E7 40 EB 21 08 00 39 7E 23 66 6F 29 29 FI!.@.!..9~#fo))
000090: 29 19 CD 2D 01 E1 21 0E 00 E5 21 21 00 E5 21 AB )..-..!...!!..!.
0000A0: 40 D1 C1 09 09 73 23 72 21 0F 00 E5 CD 27 01 20 @....s#r!....'.
0000B0: 20 20 20 20 44 4F 4D 21 E7 40 EB 21 08 00 39 7E DOM!.@.!..9~
0000C0: 23 66 6F 29 29 29 19 CD 2D 01 E1 21 0F 00 E5 21 #fo)))..-..!...!
0000D0: 22 00 E5 21 AB 40 D1 C1 09 09 73 23 72 21 10 00 "..!.@....s#r!..
0000E0: E5 CD 27 01 20 20 20 20 20 54 4F 4E 21 E7 40 EB ..'. TON!.@.
0000F0: 21 08 00 39 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 !..9~#fo)))..-..
000100: 21 10 00 E5 21 23 00 E5 21 AB 40 D1 C1 09 09 73 !...!#..!.@....s
000110: 23 72 21 11 00 E5 CD 27 01 20 20 20 20 20 20 46 #r!....'. F
000120: 4F 21 E7 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 O!.@.!..9~#fo)))
000130: 19 CD 2D 01 E1 21 11 00 E5 21 24 00 E5 21 AB 40 ..-..!...!$..!.@
000140: D1 C1 09 09 73 23 72 21 12 00 E5 CD 27 01 20 20 ....s#r!....'.
000150: 20 20 20 20 52 4F 21 E7 40 EB 21 08 00 39 7E 23 RO!.@.!..9~#
000160: 66 6F 29 29 29 19 CD 2D 01 E1 21 12 00 E5 21 25 fo)))..-..!...!%
000170: 00 E5 21 AB 40 D1 C1 09 09 73 23 72 21 13 00 E5 ..!.@....s#r!...
000180: CD 27 01 52 55 44 45 43 4F 52 50 21 E7 40 EB 21 .'.RUDECORP!.@.!
000190: 08 00 39 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 ..9~#fo)))..-..!
0001A0: 13 00 E5 21 26 00 E5 21 AB 40 D1 C1 09 09 73 23 ...!&..!.@....s#
0001B0: 72 21 14 00 E5 CD 27 01 20 4D 41 52 47 4F 52 50 r!....'. MARGORP
0001C0: 21 E7 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 19 !.@.!..9~#fo))).
0001D0: CD 2D 01 E1 21 14 00 E5 21 27 00 E5 21 AB 40 D1 .-..!...!'..!.@.
0001E0: C1 09 09 73 23 72 21 15 00 E5 CD 27 01 20 20 20 ...s#r!....'.
0001F0: 20 20 54 55 50 21 E7 40 EB 21 08 00 39 7E 23 66 TUP!.@.!..9~#f
Size : 512 (Real : 512)
000000: 61 20 33 32 6B 20 43 50 2F 4D 20 61 6E 64 20 6D a 32k CP/M and m
000010: 69 67 68 74 20 77 6F 72 6B 20 69 6E 20 32 34 6B ight work in 24k
000020: 2C 20 62 75 74 0D 0A 74 68 65 72 65 20 61 72 65 , but..there are
000030: 20 6E 6F 20 6D 65 6D 6F 72 79 20 6F 76 65 72 66 no memory overf
000040: 6C 6F 77 20 63 68 65 63 6B 73 2E 20 20 49 66 20 low checks. If
000050: 69 74 20 68 61 6E 67 73 20 6F 72 20 73 6F 6D 65 it hangs or some
000060: 74 68 69 6E 67 2C 20 79 6F 75 0D 0A 70 72 6F 62 thing, you..prob
000070: 61 62 6C 79 20 64 6F 6E 27 74 20 68 61 76 65 20 ably don't have
000080: 65 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 2E 0D 0A enough memory...
000090: 0D 0A 4F 6E 20 67 6F 6F 64 20 73 69 7A 65 64 20 ..On good sized
0000A0: 70 72 6F 67 72 61 6D 73 2C 20 74 68 65 20 63 6F programs, the co
0000B0: 6D 70 69 6C 65 72 20 6D 61 6E 61 67 65 73 20 74 mpiler manages t
0000C0: 6F 20 67 65 74 20 61 62 6F 75 74 20 33 30 30 2D o get about 300-
0000D0: 34 30 30 0D 0A 6C 69 6E 65 73 20 6F 66 20 50 61 400..lines of Pa
0000E0: 73 63 61 6C 20 74 72 61 6E 73 6C 61 74 65 64 20 scal translated
0000F0: 74 6F 20 6F 62 6A 65 63 74 20 70 65 72 20 6D 69 to object per mi
000100: 6E 75 74 65 2E 20 20 54 68 65 73 65 20 66 69 67 nute. These fig
000110: 75 72 65 73 20 77 65 72 65 0D 0A 74 61 6B 65 6E ures were..taken
000120: 20 6F 6E 20 6D 79 20 73 79 73 74 65 6D 20 77 69 on my system wi
000130: 74 68 20 32 6D 48 7A 20 5A 2D 38 30 2C 20 38 22 th 2mHz Z-80, 8"
000140: 20 64 69 73 6B 2C 20 72 75 6E 6E 69 6E 67 20 75 disk, running u
000150: 6E 64 65 72 20 53 50 45 45 44 2E 0D 0A 43 6F 6D nder SPEED...Com
000160: 70 69 6C 61 74 69 6F 6E 20 73 70 65 65 64 20 77 pilation speed w
000170: 69 6C 6C 20 66 61 6C 6C 20 74 6F 20 6C 65 73 73 ill fall to less
000180: 20 74 68 61 6E 20 68 61 6C 66 20 74 68 69 73 20 than half this
000190: 72 61 74 65 20 77 69 74 68 6F 75 74 20 53 50 45 rate without SPE
0001A0: 45 44 2C 0D 0A 74 68 75 73 20 53 50 45 45 44 20 ED,..thus SPEED
0001B0: 69 73 20 73 74 72 6F 6E 67 6C 79 20 72 65 63 6F is strongly reco
0001C0: 6D 6D 65 6E 64 65 64 2E 20 20 54 68 69 73 20 69 mmended. This i
0001D0: 73 20 70 61 72 74 69 63 75 6C 61 72 6C 79 20 74 s particularly t
0001E0: 72 75 65 20 69 66 0D 0A 79 6F 75 20 75 73 65 20 rue if..you use
0001F0: 74 68 65 20 73 75 62 6D 69 74 20 66 69 6C 65 20 the submit file
Size : 512 (Real : 512)
000000: 6F 29 29 29 19 CD 2D 01 E1 21 15 00 E5 21 28 00 o)))..-..!...!(.
000010: E5 21 AB 40 D1 C1 09 09 73 23 72 21 16 00 E5 CD .!.@....s#r!....
000020: 27 01 20 20 44 52 4F 43 45 52 21 E7 40 EB 21 08 '. DROCER!.@.!.
000030: 00 39 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 16 .9~#fo)))..-..!.
000040: 00 E5 21 29 00 E5 21 AB 40 D1 C1 09 09 73 23 72 ..!)..!.@....s#r
000050: 21 17 00 E5 CD 27 01 20 20 54 41 45 50 45 52 21 !....'. TAEPER!
000060: E7 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 19 CD .@.!..9~#fo)))..
000070: 2D 01 E1 21 17 00 E5 21 2A 00 E5 21 AB 40 D1 C1 -..!...!*..!.@..
000080: 09 09 73 23 72 21 18 00 E5 CD 27 01 20 20 20 20 ..s#r!....'.
000090: 4E 45 48 54 21 E7 40 EB 21 08 00 39 7E 23 66 6F NEHT!.@.!..9~#fo
0000A0: 29 29 29 19 CD 2D 01 E1 21 18 00 E5 21 2B 00 E5 )))..-..!...!+..
0000B0: 21 AB 40 D1 C1 09 09 73 23 72 21 19 00 E5 CD 27 !.@....s#r!....'
0000C0: 01 20 20 20 20 20 20 4F 54 21 E7 40 EB 21 08 00 . OT!.@.!..
0000D0: 39 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 19 00 9~#fo)))..-..!..
0000E0: E5 21 2C 00 E5 21 AB 40 D1 C1 09 09 73 23 72 21 .!,..!.@....s#r!
0000F0: 1A 00 E5 CD 27 01 20 20 20 20 45 50 59 54 21 E7 ....'. EPYT!.
000100: 40 EB 21 08 00 39 7E 23 66 6F 29 29 29 19 CD 2D @.!..9~#fo)))..-
000110: 01 E1 21 1A 00 E5 21 2D 00 E5 21 AB 40 D1 C1 09 ..!...!-..!.@...
000120: 09 73 23 72 21 1B 00 E5 CD 27 01 20 20 20 4C 49 .s#r!....'. LI
000130: 54 4E 55 21 E7 40 EB 21 08 00 39 7E 23 66 6F 29 TNU!.@.!..9~#fo)
000140: 29 29 19 CD 2D 01 E1 21 1B 00 E5 21 2E 00 E5 21 ))..-..!...!...!
000150: AB 40 D1 C1 09 09 73 23 72 21 1C 00 E5 CD 27 01 .@....s#r!....'.
000160: 20 20 20 20 20 52 41 56 21 E7 40 EB 21 08 00 39 RAV!.@.!..9
000170: 7E 23 66 6F 29 29 29 19 CD 2D 01 E1 21 1C 00 E5 ~#fo)))..-..!...
000180: 21 2F 00 E5 21 AB 40 D1 C1 09 09 73 23 72 21 1D !/..!.@....s#r!.
000190: 00 E5 CD 27 01 20 20 20 45 4C 49 48 57 21 E7 40 ...'. ELIHW!.@
0001A0: EB 21 08 00 39 7E 23 66 6F 29 29 29 19 CD 2D 01 .!..9~#fo)))..-.
0001B0: E1 21 1D 00 E5 21 30 00 E5 21 AB 40 D1 C1 09 09 .!...!0..!.@....
0001C0: 73 23 72 21 00 00 E5 E1 22 6D 56 21 00 00 E5 E1 s#r!...."mV!....
0001D0: 22 69 56 CD 27 01 20 56 45 52 20 43 50 50 3E 01 "iV.'. VER CPP>.
0001E0: CD 21 01 21 00 00 E5 3E 01 CD 12 01 21 2E 00 E5 .!.!...>....!...
0001F0: 3E 01 CD 0C 01 21 00 00 E5 3E 01 CD 12 01 21 08 >....!...>....!.
Size : 512 (Real : 512)
000000: 74 6F 20 64 6F 20 74 68 65 20 63 6F 6D 70 69 6C to do the compil
000010: 61 74 69 6F 6E 2E 20 20 54 68 65 20 72 75 6E 20 ation. The run
000020: 74 69 6D 65 20 70 61 63 6B 61 67 65 0D 0A 64 6F time package..do
000030: 65 73 20 6F 6E 6C 79 20 73 69 6E 67 6C 65 20 73 es only single s
000040: 65 63 74 6F 72 20 64 69 73 6B 20 62 75 66 66 65 ector disk buffe
000050: 72 69 6E 67 20 61 6E 64 20 74 68 69 73 20 74 6F ring and this to
000060: 6F 20 6D 61 6B 65 73 20 53 50 45 45 44 0D 0A 76 o makes SPEED..v
000070: 65 72 79 20 69 6D 70 6F 72 74 61 6E 74 2E 0D 0A ery important...
000080: 0D 0A 0D 0A 0D 0A 48 6F 77 20 69 74 20 61 6C 6C ......How it all
000090: 20 77 6F 72 6B 73 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D works..========
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 54 68 65 20 70 72 ========..The pr
0000B0: 6F 67 72 61 6D 20 50 50 43 2E 43 4F 4D 20 74 61 ogram PPC.COM ta
0000C0: 6B 65 73 20 79 6F 75 72 20 50 61 73 63 61 6C 20 kes your Pascal
0000D0: 73 6F 75 72 63 65 20 61 6E 64 20 6D 61 6B 65 73 source and makes
0000E0: 20 61 20 73 69 6E 67 6C 65 20 70 61 73 73 0D 0A a single pass..
0000F0: 6F 76 65 72 20 69 74 20 74 72 61 6E 73 6C 61 74 over it translat
000100: 69 6E 67 20 69 74 20 74 6F 20 61 20 73 6F 72 74 ing it to a sort
000110: 20 6F 66 20 70 2D 63 6F 64 65 20 61 73 20 69 74 of p-code as it
000120: 20 67 6F 65 73 2E 20 20 54 68 69 73 20 70 2D 63 goes. This p-c
000130: 6F 64 65 20 69 73 0D 0A 77 72 69 74 74 65 6E 20 ode is..written
000140: 74 6F 20 64 69 73 6B 2E 20 20 50 46 45 54 2E 43 to disk. PFET.C
000150: 4F 4D 20 72 65 61 64 73 20 74 68 65 20 70 2D 63 OM reads the p-c
000160: 6F 64 65 20 66 69 6C 65 20 6F 6E 20 69 74 73 20 ode file on its
000170: 66 69 72 73 74 20 70 61 73 73 2C 0D 0A 61 73 73 first pass,..ass
000180: 69 67 6E 69 6E 67 20 38 30 38 30 20 61 64 64 72 igning 8080 addr
000190: 65 73 73 65 73 20 74 6F 20 61 6C 6C 20 70 2D 63 esses to all p-c
0001A0: 6F 64 65 20 6C 61 62 65 6C 73 20 61 6E 64 20 73 ode labels and s
0001B0: 74 6F 72 69 6E 67 20 74 68 65 20 70 2D 63 6F 64 toring the p-cod
0001C0: 65 0D 0A 69 6E 20 6D 65 6D 6F 72 79 20 66 6F 72 e..in memory for
0001D0: 20 74 68 65 20 73 65 63 6F 6E 64 20 70 61 73 73 the second pass
0001E0: 2E 20 20 4F 6E 20 69 74 73 20 73 65 63 6F 6E 64 . On its second
0001F0: 20 70 61 73 73 2C 20 50 46 45 54 20 72 65 61 64 pass, PFET read
Size : 512 (Real : 512)
000000: 00 E5 3E 01 CD 12 01 21 52 00 E5 3E 01 CD 0C 01 ..>....!R..>....
000010: 21 0D 00 E5 3E 01 CD 0C 01 21 0A 00 E5 3E 01 CD !...>....!...>..
000020: 0C 01 CD 27 01 3F 47 4E 49 54 53 49 4C 3E 01 CD ...'.?GNITSIL>..
000030: 21 01 3E 01 CD 09 01 E1 22 6F 56 CD 27 01 20 52 !.>....."oV.'. R
000040: 45 47 45 54 4E 49 21 07 00 E5 21 00 00 E5 21 00 EGETNI!...!...!.
000050: 00 E5 21 02 00 E5 11 63 0B CD 42 01 21 10 00 39 ..!....c..B.!..9
000060: F9 CD 27 01 20 20 20 20 52 41 48 43 21 07 00 E5 ..'. RAHC!...
000070: 21 00 00 E5 21 00 00 E5 21 01 00 E5 11 63 0B CD !...!...!....c..
000080: 42 01 21 10 00 39 F9 CD 27 01 20 4E 41 45 4C 4F B.!..9..'. NAELO
000090: 4F 42 21 07 00 E5 21 00 00 E5 21 00 00 E5 21 02 OB!...!...!...!.
0000A0: 00 E5 11 63 0B CD 42 01 21 10 00 39 F9 CD 27 01 ...c..B.!..9..'.
0000B0: 20 20 20 20 45 54 59 42 21 07 00 E5 21 00 00 E5 ETYB!...!...
0000C0: 21 00 00 E5 21 01 00 E5 11 63 0B CD 42 01 21 10 !...!....c..B.!.
0000D0: 00 39 F9 CD 27 01 20 20 20 20 44 52 4F 57 21 07 .9..'. DROW!.
0000E0: 00 E5 21 00 00 E5 21 00 00 E5 21 02 00 E5 11 63 ..!...!...!....c
0000F0: 0B CD 42 01 21 10 00 39 F9 CD 27 01 20 20 20 20 ..B.!..9..'.
000100: 41 46 4C 41 21 07 00 E5 21 00 00 E5 21 00 00 E5 AFLA!...!...!...
000110: 21 08 00 E5 11 63 0B CD 42 01 21 10 00 39 F9 21 !....c..B.!..9.!
000120: 20 00 E5 E1 22 4B 56 11 16 07 CD 42 01 21 01 00 ..."KV....B.!..
000130: E5 E1 22 6B 56 21 02 00 E5 21 00 00 E5 21 01 00 .."kV!...!...!..
000140: E5 11 19 0B CD 42 01 21 06 00 39 F9 21 01 00 E5 .....B.!..9.!...
000150: 21 01 00 E5 11 CF 31 CD 42 01 33 33 33 33 21 08 !.....1.B.3333!.
000160: 00 E5 21 00 00 E5 21 09 00 E5 11 19 0B CD 42 01 ..!...!.......B.
000170: 21 06 00 39 F9 21 17 00 E5 21 00 00 E5 21 00 00 !..9.!...!...!..
000180: E5 11 19 0B CD 42 01 21 06 00 39 F9 2A 4D 56 E5 .....B.!..9.*MV.
000190: 21 0F 00 E5 CD 06 01 CA A6 40 21 14 00 E5 11 03 !........@!.....
0001A0: 06 CD 42 01 33 33 3E 00 CD 24 01 1A 1A 1A 1A 1A ..B.33>..$......
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 73 20 74 68 65 0D 0A 70 2D 63 6F 64 65 20 66 72 s the..p-code fr
000010: 6F 6D 20 6D 65 6D 6F 72 79 20 61 6E 64 20 67 65 om memory and ge
000020: 6E 65 72 61 74 65 73 20 74 68 65 20 61 63 74 75 nerates the actu
000030: 61 6C 20 38 30 38 30 20 6F 62 6A 65 63 74 20 63 al 8080 object c
000040: 6F 64 65 2E 20 20 54 68 69 73 0D 0A 63 6F 64 65 ode. This..code
000050: 20 69 73 20 77 72 69 74 74 65 6E 20 74 6F 20 61 is written to a
000060: 20 64 69 73 6B 20 66 69 6C 65 2E 20 20 54 68 65 disk file. The
000070: 20 6C 61 73 74 20 73 74 65 70 20 69 6E 20 63 6F last step in co
000080: 6D 70 69 6C 61 74 69 6F 6E 20 69 73 20 74 6F 0D mpilation is to.
000090: 0A 6C 69 6E 6B 20 74 68 65 20 67 65 6E 65 72 61 .link the genera
0000A0: 74 65 64 20 6F 62 6A 65 63 74 20 63 6F 64 65 20 ted object code
0000B0: 74 6F 20 74 68 65 20 72 75 6E 20 74 69 6D 65 20 to the run time
0000C0: 70 61 63 6B 61 67 65 2E 20 20 54 68 69 73 20 69 package. This i
0000D0: 73 20 64 6F 6E 65 0D 0A 62 79 20 73 69 6D 70 6C s done..by simpl
0000E0: 79 20 75 73 69 6E 67 20 50 49 50 20 74 6F 20 63 y using PIP to c
0000F0: 6F 6E 63 61 74 65 6E 61 74 65 20 74 68 65 20 72 oncatenate the r
000100: 75 6E 20 74 69 6D 65 20 70 61 63 6B 61 67 65 20 un time package
000110: 61 6E 64 20 74 68 65 20 6F 62 6A 65 63 74 0D 0A and the object..
000120: 66 69 6C 65 20 66 72 6F 6D 20 50 46 45 54 20 74 file from PFET t
000130: 6F 20 70 72 6F 64 75 63 65 20 61 6E 20 65 78 65 o produce an exe
000140: 63 75 74 61 62 6C 65 20 2E 43 4F 4D 20 66 69 6C cutable .COM fil
000150: 65 2E 20 20 54 68 65 20 63 6F 6D 70 69 6C 65 72 e. The compiler
000160: 20 28 50 50 43 29 0D 0A 69 73 20 77 72 69 74 74 (PPC)..is writt
000170: 65 6E 20 69 6E 20 50 61 73 63 61 6C 2C 20 61 73 en in Pascal, as
000180: 20 69 73 20 74 68 65 20 70 2D 63 6F 64 65 20 74 is the p-code t
000190: 72 61 6E 73 6C 61 74 6F 72 20 28 50 46 45 54 29 ranslator (PFET)
0001A0: 2E 20 20 54 68 65 20 72 75 6E 20 74 69 6D 65 0D . The run time.
0001B0: 0A 70 61 63 6B 61 67 65 20 69 73 20 77 72 69 74 .package is writ
0001C0: 74 65 6E 20 69 6E 20 61 73 73 65 6D 62 6C 65 72 ten in assembler
0001D0: 2E 0D 0A 0D 0A 0D 0A 0D 0A 44 69 66 66 65 72 65 .........Differe
0001E0: 6E 63 65 73 20 66 72 6F 6D 20 22 73 74 61 6E 64 nces from "stand
0001F0: 61 72 64 22 20 50 61 73 63 61 6C 0D 0A 3D 3D 3D ard" Pascal..===
Size : 512 (Real : 512)
000000: 0D 0A 09 09 09 50 50 43 20 55 73 65 72 73 20 4D .....PPC Users M
000010: 61 6E 75 61 6C 0D 0A 0D 0A 0D 0A 48 6F 77 20 74 anual......How t
000020: 6F 20 75 73 65 20 74 68 65 20 63 6F 6D 70 69 6C o use the compil
000030: 65 72 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D er..============
000040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 ===========....I
000050: 66 20 79 6F 75 20 68 61 76 65 20 61 20 66 69 6C f you have a fil
000060: 65 20 6E 61 6D 65 64 20 64 6F 67 2E 70 61 73 20 e named dog.pas
000070: 61 6E 64 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 and you want to
000080: 63 6F 6D 70 69 6C 65 20 69 74 2C 20 79 6F 75 27 compile it, you'
000090: 64 0D 0A 6A 75 73 74 20 74 79 70 65 0D 0A 0D 0A d..just type....
0000A0: 09 73 75 62 6D 69 74 20 70 63 20 64 6F 67 0D 0A .submit pc dog..
0000B0: 0D 0A 54 68 65 20 63 6F 6D 70 69 6C 65 72 20 77 ..The compiler w
0000C0: 69 6C 6C 20 61 73 6B 20 22 4C 49 53 54 49 4E 47 ill ask "LISTING
0000D0: 3F 22 2E 20 20 59 6F 75 20 72 65 70 6C 79 20 77 ?". You reply w
0000E0: 69 74 68 20 61 20 73 69 6E 67 6C 65 20 63 68 61 ith a single cha
0000F0: 72 61 63 74 65 72 3B 0D 0A 63 61 72 72 69 61 67 racter;..carriag
000100: 65 20 72 65 74 75 72 6E 20 6D 65 61 6E 73 20 6E e return means n
000110: 6F 20 6C 69 73 74 69 6E 67 2C 20 61 6E 79 20 6F o listing, any o
000120: 74 68 65 72 20 63 68 61 72 61 63 74 65 72 20 6D ther character m
000130: 65 61 6E 73 20 79 65 73 20 6C 69 73 74 69 6E 67 eans yes listing
000140: 2E 0D 0A 54 68 65 20 6C 69 73 74 69 6E 67 20 77 ...The listing w
000150: 69 6C 6C 20 62 65 20 73 65 6E 74 20 74 6F 20 74 ill be sent to t
000160: 68 65 20 63 6F 6E 73 6F 6C 65 20 61 73 20 74 68 he console as th
000170: 65 20 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 70 72 e compilation pr
000180: 6F 63 65 65 64 73 2E 0D 0A 41 6E 79 20 65 72 72 oceeds...Any err
000190: 6F 72 73 20 64 65 74 65 63 74 65 64 20 69 6E 20 ors detected in
0001A0: 74 68 65 20 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 the compilation
0001B0: 61 72 65 20 66 6C 61 67 67 65 64 20 69 6E 20 74 are flagged in t
0001C0: 68 69 73 20 6C 69 73 74 69 6E 67 2E 0D 0A 41 74 his listing...At
0001D0: 20 73 6F 6D 65 20 70 6F 69 6E 74 20 28 68 6F 70 some point (hop
0001E0: 65 66 75 6C 6C 79 20 72 65 61 73 6F 6E 61 62 6C efully reasonabl
0001F0: 79 20 6E 65 61 72 20 74 6F 20 74 68 65 20 70 6F y near to the po
Size : 512 (Real : 512)
000000: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
000020: 0A 0D 0A 54 68 69 73 20 73 65 63 74 69 6F 6E 20 ...This section
000030: 77 69 6C 6C 20 64 65 74 61 69 6C 20 74 68 65 20 will detail the
000040: 77 61 79 73 20 69 6E 20 77 68 69 63 68 20 70 70 ways in which pp
000050: 63 20 64 65 76 69 61 74 65 73 20 66 72 6F 6D 20 c deviates from
000060: 73 74 61 6E 64 61 72 64 0D 0A 50 61 73 63 61 6C standard..Pascal
000070: 20 61 73 20 64 65 66 69 6E 65 64 20 69 6E 20 22 as defined in "
000080: 50 61 73 63 61 6C 20 55 73 65 72 20 4D 61 6E 75 Pascal User Manu
000090: 61 6C 20 61 6E 64 20 52 65 70 6F 72 74 22 2C 20 al and Report",
0000A0: 73 65 63 6F 6E 64 20 65 64 2E 2C 20 4B 2E 0D 0A second ed., K...
0000B0: 4A 65 6E 73 65 6E 20 61 6E 64 20 4E 2E 20 57 69 Jensen and N. Wi
0000C0: 72 74 68 2E 0D 0A 0D 0A 0D 0A 54 77 6F 20 61 64 rth.......Two ad
0000D0: 64 69 74 69 6F 6E 61 6C 20 72 65 73 65 72 76 65 ditional reserve
0000E0: 64 20 77 6F 72 64 73 20 68 61 76 65 20 62 65 65 d words have bee
0000F0: 6E 20 64 65 66 69 6E 65 64 3A 20 20 67 65 74 20 n defined: get
000100: 61 6E 64 20 70 75 74 2E 0D 0A 54 68 65 20 66 6F and put...The fo
000110: 6C 6C 6F 77 69 6E 67 20 77 6F 72 64 73 20 61 72 llowing words ar
000120: 65 20 6E 6F 74 20 6E 6F 77 20 63 6F 6E 73 69 64 e not now consid
000130: 65 72 65 64 20 72 65 73 65 72 76 65 64 2C 20 62 ered reserved, b
000140: 75 74 20 61 72 65 0D 0A 69 6E 20 73 74 61 6E 64 ut are..in stand
000150: 61 72 64 20 50 61 73 63 61 6C 2C 20 73 6F 20 74 ard Pascal, so t
000160: 68 65 79 20 73 68 6F 75 6C 64 20 62 65 20 61 76 hey should be av
000170: 6F 69 64 65 64 3A 20 20 66 69 6C 65 2C 20 67 6F oided: file, go
000180: 74 6F 2C 20 69 6E 2C 20 6C 61 62 65 6C 2C 0D 0A to, in, label,..
000190: 6E 69 6C 2C 20 70 61 63 6B 65 64 2C 20 73 65 74 nil, packed, set
0001A0: 2C 20 61 6E 64 20 77 69 74 68 2E 0D 0A 0D 0A 54 , and with.....T
0001B0: 68 65 20 41 53 43 49 49 20 74 61 62 20 63 68 61 he ASCII tab cha
0001C0: 72 61 63 74 65 72 20 69 73 20 61 6E 20 61 63 63 racter is an acc
0001D0: 65 70 74 61 62 6C 65 20 77 68 69 74 65 20 73 70 eptable white sp
0001E0: 61 63 65 20 63 68 61 72 61 63 74 65 72 2E 0D 0A ace character...
0001F0: 0D 0A 43 6F 6D 6D 65 6E 74 73 20 61 72 65 20 62 ..Comments are b
Size : 512 (Real : 512)
000000: 69 6E 74 20 6F 66 20 69 6E 66 72 61 63 74 69 6F int of infractio
000010: 6E 29 0D 0A 74 68 65 20 65 72 72 6F 72 20 6E 75 n)..the error nu
000020: 6D 62 65 72 20 77 69 6C 6C 20 62 65 20 69 6E 73 mber will be ins
000030: 65 72 74 65 64 20 69 6E 74 6F 20 74 68 65 20 6C erted into the l
000040: 69 73 74 69 6E 67 2C 20 65 6E 63 6C 6F 73 65 64 isting, enclosed
000050: 20 69 6E 20 22 3E 3E 22 0D 0A 61 6E 64 20 22 3C in ">>"..and "<
000060: 3C 22 2E 20 20 54 68 65 20 6C 69 6E 65 20 66 6F <". The line fo
000070: 6C 6C 6F 77 69 6E 67 20 61 6E 20 65 72 72 6F 72 llowing an error
000080: 20 77 69 6C 6C 20 73 74 61 72 74 20 77 69 74 68 will start with
000090: 20 22 2A 2A 2A 2A 2A 2A 2A 2A 22 0D 0A 61 6E 64 "********"..and
0000A0: 20 6F 74 68 65 72 77 69 73 65 20 62 65 20 62 6C otherwise be bl
0000B0: 61 6E 6B 20 74 6F 20 63 61 6C 6C 20 61 74 74 65 ank to call atte
0000C0: 6E 74 69 6F 6E 20 74 6F 20 74 68 65 20 65 72 72 ntion to the err
0000D0: 6F 72 2E 20 20 54 68 65 20 63 6F 6D 70 69 6C 65 or. The compile
0000E0: 72 0D 0A 77 69 6C 6C 20 61 6C 73 6F 20 77 61 69 r..will also wai
0000F0: 74 20 66 6F 72 20 61 20 73 69 6E 67 6C 65 20 63 t for a single c
000100: 68 61 72 61 63 74 65 72 20 66 72 6F 6D 20 74 68 haracter from th
000110: 65 20 63 6F 6E 73 6F 6C 65 20 62 65 66 6F 72 65 e console before
000120: 0D 0A 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 63 6F ..compilation co
000130: 6E 74 69 6E 75 65 73 2E 20 20 54 68 69 73 20 69 ntinues. This i
000140: 73 20 73 6F 20 70 65 6F 70 6C 65 20 77 69 74 68 s so people with
000150: 20 63 72 74 27 73 20 63 61 6E 20 73 65 65 20 74 crt's can see t
000160: 68 65 0D 0A 65 72 72 6F 72 2E 20 20 45 72 72 6F he..error. Erro
000170: 72 20 6E 75 6D 62 65 72 73 20 73 68 6F 75 6C 64 r numbers should
000180: 20 62 65 20 6C 6F 6F 6B 65 64 20 75 70 20 69 6E be looked up in
000190: 20 4A 65 6E 73 65 6E 20 61 6E 64 20 57 69 72 74 Jensen and Wirt
0001A0: 68 20 28 73 65 65 0D 0A 62 65 6C 6F 77 29 2E 20 h (see..below).
0001B0: 20 45 72 72 6F 72 20 6E 75 6D 62 65 72 20 39 39 Error number 99
0001C0: 20 69 73 20 70 6F 75 6E 64 20 73 69 67 6E 20 28 is pound sign (
0001D0: 22 23 22 29 20 65 78 70 65 63 74 65 64 2E 0D 0A "#") expected...
0001E0: 0D 0A 54 68 65 20 63 6F 6D 70 69 6C 65 72 20 73 ..The compiler s
0001F0: 68 6F 75 6C 64 20 77 6F 72 6B 20 77 69 74 68 20 hould work with
Size : 512 (Real : 512)
000000: 65 67 75 6E 20 77 69 74 68 20 74 68 65 20 73 65 egun with the se
000010: 71 75 65 6E 63 65 20 22 28 2A 22 20 61 6E 64 20 quence "(*" and
000020: 65 6E 64 65 64 20 77 69 74 68 20 22 2A 29 22 2E ended with "*)".
000030: 0D 0A 0D 0A 49 64 65 6E 74 69 66 69 65 72 73 20 ....Identifiers
000040: 6D 61 79 20 62 65 20 76 65 72 79 20 6C 6F 6E 67 may be very long
000050: 2C 20 62 75 74 20 6F 6E 6C 79 20 74 68 65 20 66 , but only the f
000060: 69 72 73 74 20 38 20 61 72 65 20 73 69 67 6E 69 irst 8 are signi
000070: 66 69 63 61 6E 74 2E 0D 0A 0D 0A 0D 0A 54 68 65 ficant.......The
000080: 20 64 61 74 61 20 74 79 70 65 20 42 6F 6F 6C 65 data type Boole
000090: 61 6E 20 69 73 20 6E 6F 74 20 73 75 70 70 6F 72 an is not suppor
0000A0: 74 65 64 2E 20 20 52 65 6C 61 74 69 6F 6E 61 6C ted. Relational
0000B0: 20 61 6E 64 20 6C 6F 67 69 63 61 6C 0D 0A 6F 70 and logical..op
0000C0: 65 72 61 74 6F 72 73 20 6D 61 79 20 62 65 20 75 erators may be u
0000D0: 73 65 64 20 6F 6E 6C 79 20 69 6E 20 69 66 20 73 sed only in if s
0000E0: 74 61 74 65 6D 65 6E 74 73 2E 20 20 54 68 65 20 tatements. The
0000F0: 62 6F 6F 6C 65 61 6E 20 63 6F 6E 73 74 61 6E 74 boolean constant
000100: 0D 0A 69 64 65 6E 74 69 66 69 65 72 73 20 74 72 ..identifiers tr
000110: 75 65 20 61 6E 64 20 66 61 6C 73 65 20 61 72 65 ue and false are
000120: 20 6E 6F 74 20 64 65 66 69 6E 65 64 2E 20 20 54 not defined. T
000130: 68 65 20 6E 6F 74 20 6F 70 65 72 61 74 6F 72 20 he not operator
000140: 69 73 0D 0A 6E 6F 74 20 69 6D 70 6C 65 6D 65 6E is..not implemen
000150: 74 65 64 2E 20 20 54 68 65 73 65 20 61 72 65 20 ted. These are
000160: 74 68 65 20 6C 65 67 61 6C 20 72 65 6C 61 74 69 the legal relati
000170: 6F 6E 61 6C 20 61 6E 64 20 6C 6F 67 69 63 61 6C onal and logical
000180: 0D 0A 6F 70 65 72 61 74 6F 72 73 3A 20 20 3D 2C ..operators: =,
000190: 20 3C 3E 2C 20 3C 2C 20 3C 3D 2C 20 3E 3D 2C 20 <>, <, <=, >=,
0001A0: 3E 2C 20 61 6E 64 2C 20 61 6E 64 20 6F 72 2E 0D >, and, and or..
0001B0: 0A 0D 0A 54 68 65 20 64 61 74 61 20 74 79 70 65 ...The data type
0001C0: 20 69 6E 74 65 67 65 72 20 69 73 20 61 76 61 69 integer is avai
0001D0: 6C 61 62 6C 65 2E 20 20 56 61 6C 75 65 73 20 6D lable. Values m
0001E0: 75 73 74 20 62 65 20 69 6E 20 74 68 65 20 72 61 ust be in the ra
0001F0: 6E 67 65 20 2D 33 32 37 36 38 20 74 6F 0D 0A 33 nge -32768 to..3
Size : 512 (Real : 512)
000000: 73 73 69 6F 6E 73 20 74 6F 20 6D 61 6B 65 20 63 ssions to make c
000010: 6F 64 69 6E 67 20 74 68 65 0D 0A 74 72 61 6E 73 oding the..trans
000020: 6C 61 74 6F 72 20 65 61 73 69 65 72 2E 20 20 53 lator easier. S
000030: 65 65 20 74 68 65 20 73 79 6E 74 61 78 20 67 72 ee the syntax gr
000040: 61 70 68 73 20 74 6F 20 73 65 65 20 77 68 65 72 aphs to see wher
000050: 65 20 74 68 65 73 65 20 63 61 6E 20 62 65 0D 0A e these can be..
000060: 75 73 65 64 2E 0D 0A 0D 0A 56 61 72 69 61 62 6C used.....Variabl
000070: 65 20 64 65 63 6C 61 72 61 74 69 6F 6E 73 20 68 e declarations h
000080: 61 76 65 20 74 68 65 20 72 65 73 74 72 69 63 74 ave the restrict
000090: 69 6F 6E 20 74 68 61 74 20 74 68 65 20 74 79 70 ion that the typ
0000A0: 65 20 6D 75 73 74 20 62 65 0D 0A 61 20 74 79 70 e must be..a typ
0000B0: 65 20 69 64 65 6E 74 69 66 69 65 72 20 61 6E 64 e identifier and
0000C0: 20 6D 61 79 20 6E 6F 74 20 62 65 20 61 20 63 6F may not be a co
0000D0: 6D 70 6C 65 78 20 74 79 70 65 2E 20 20 54 68 75 mplex type. Thu
0000E0: 73 0D 0A 0D 0A 09 76 61 72 20 6D 6F 6E 74 68 73 s.....var months
0000F0: 20 3A 20 61 72 72 61 79 20 5B 20 31 20 2E 2E 20 : array [ 1 ..
000100: 31 32 20 5D 20 6F 66 20 69 6E 74 65 67 65 72 3B 12 ] of integer;
000110: 0D 0A 0D 0A 69 73 20 69 6C 6C 65 67 61 6C 2C 20 ....is illegal,
000120: 77 68 69 6C 65 0D 0A 0D 0A 09 74 79 70 65 20 6D while.....type m
000130: 74 68 61 72 72 61 79 20 3D 20 61 72 72 61 79 20 tharray = array
000140: 5B 20 31 20 2E 2E 20 31 32 20 5D 20 6F 66 20 69 [ 1 .. 12 ] of i
000150: 6E 74 65 67 65 72 3B 0D 0A 09 76 61 72 20 20 6D nteger;...var m
000160: 6F 6E 74 68 73 20 3A 20 6D 74 68 61 72 72 61 79 onths : mtharray
000170: 3B 0D 0A 0D 0A 69 73 20 6C 65 67 61 6C 2E 0D 0A ;....is legal...
000180: 0D 0A 49 6E 20 74 68 69 73 20 69 6D 70 6C 65 6D ..In this implem
000190: 65 6E 74 61 74 69 6F 6E 2C 20 66 75 6E 63 74 69 entation, functi
0001A0: 6F 6E 73 20 63 61 6E 20 72 65 74 75 72 6E 20 6F ons can return o
0001B0: 6E 6C 79 20 69 6E 74 65 67 65 72 20 76 61 6C 75 nly integer valu
0001C0: 65 73 2E 0D 0A 54 68 69 73 20 6D 61 6B 65 73 20 es...This makes
0001D0: 69 74 20 75 6E 6E 65 63 65 73 73 61 72 79 20 28 it unnecessary (
0001E0: 61 6E 64 20 69 6C 6C 65 67 61 6C 29 20 74 6F 20 and illegal) to
0001F0: 67 69 76 65 20 61 20 66 75 6E 63 74 69 6F 6E 20 give a function
Size : 512 (Real : 512)
000000: 32 37 36 37 2E 20 20 54 68 65 72 65 20 61 72 65 2767. There are
000010: 20 6E 6F 20 73 74 61 6E 64 61 72 64 20 66 75 6E no standard fun
000020: 63 74 69 6F 6E 73 20 73 75 63 68 20 61 73 20 61 ctions such as a
000030: 62 73 2C 20 73 71 72 2C 20 74 72 75 6E 63 2C 20 bs, sqr, trunc,
000040: 65 74 63 2E 0D 0A 54 68 65 20 63 6F 6E 73 74 61 etc...The consta
000050: 6E 74 20 6D 61 78 69 6E 74 20 69 73 20 6E 6F 74 nt maxint is not
000060: 20 64 65 66 69 6E 65 64 20 62 79 20 74 68 65 20 defined by the
000070: 63 6F 6D 70 69 6C 65 72 2E 20 20 54 68 65 20 74 compiler. The t
000080: 79 70 65 20 69 6E 74 65 67 65 72 20 69 73 0D 0A ype integer is..
000090: 69 64 65 6E 74 69 63 61 6C 20 74 6F 20 74 79 70 identical to typ
0000A0: 65 20 77 6F 72 64 2E 20 20 54 68 65 20 66 6F 6C e word. The fol
0000B0: 6C 6F 77 69 6E 67 20 6F 70 65 72 61 74 69 6F 6E lowing operation
0000C0: 73 20 61 72 65 20 64 65 66 69 6E 65 64 20 6F 6E s are defined on
0000D0: 20 69 6E 74 65 67 65 72 73 3A 0D 0A 0D 0A 09 2A integers:.....*
0000E0: 09 6D 75 6C 74 69 70 6C 79 0D 0A 09 2F 09 64 69 .multiply.../.di
0000F0: 76 69 64 65 20 61 6E 64 20 74 72 75 6E 63 61 74 vide and truncat
000100: 65 20 28 77 68 79 20 75 73 65 20 64 69 76 3F 20 e (why use div?
000110: 69 6E 74 27 73 20 61 72 65 20 61 6C 6C 20 79 6F int's are all yo
000120: 75 27 76 65 20 67 6F 74 21 29 0D 0A 09 2B 09 61 u've got!)...+.a
000130: 64 64 0D 0A 09 2D 09 73 75 62 74 72 61 63 74 0D dd...-.subtract.
000140: 0A 0D 0A 4D 75 6C 74 69 70 6C 69 63 61 74 69 6F ...Multiplicatio
000150: 6E 20 61 6E 64 20 64 69 76 69 73 69 6F 6E 20 61 n and division a
000160: 72 65 20 70 72 65 73 65 6E 74 6C 79 20 69 6D 70 re presently imp
000170: 6C 65 6D 65 6E 74 65 64 20 77 69 74 68 20 72 65 lemented with re
000180: 70 65 61 74 65 64 0D 0A 61 64 64 69 74 69 6F 6E peated..addition
000190: 20 61 6E 64 20 73 75 62 74 72 61 63 74 69 6F 6E and subtraction
0001A0: 20 28 67 61 67 21 29 2E 20 20 54 68 69 73 20 6D (gag!). This m
0001B0: 61 6B 65 73 20 74 68 65 20 6F 72 64 65 72 20 6F akes the order o
0001C0: 66 20 74 68 65 20 6F 70 65 72 61 6E 64 73 0D 0A f the operands..
0001D0: 63 72 69 74 69 63 61 6C 2E 20 20 49 66 20 6F 6E critical. If on
0001E0: 65 20 6F 70 65 72 61 6E 64 20 69 73 20 6C 69 6B e operand is lik
0001F0: 65 6C 79 20 74 6F 20 62 65 20 6C 65 73 73 20 74 ely to be less t
Size : 512 (Real : 512)
000000: 72 65 74 75 72 6E 20 74 79 70 65 0D 0A 69 6E 20 return type..in
000010: 74 68 65 20 66 75 6E 63 74 69 6F 6E 20 64 65 63 the function dec
000020: 6C 61 72 61 74 69 6F 6E 2E 0D 0A 0D 0A 0D 0A 54 laration.......T
000030: 68 65 20 63 61 73 65 20 73 74 61 74 65 6D 65 6E he case statemen
000040: 74 20 69 73 20 6C 69 6D 69 74 65 64 20 69 6E 20 t is limited in
000050: 74 68 61 74 20 69 74 20 63 61 6E 6E 6F 74 20 61 that it cannot a
000060: 63 63 65 70 74 20 6D 75 6C 74 69 70 6C 65 20 63 ccept multiple c
000070: 61 73 65 0D 0A 6C 61 62 65 6C 73 20 6F 6E 20 74 ase..labels on t
000080: 68 65 20 73 61 6D 65 20 73 74 61 74 65 6D 65 6E he same statemen
000090: 74 2E 20 20 4F 6E 20 74 68 65 20 6F 74 68 65 72 t. On the other
0000A0: 20 68 61 6E 64 2C 20 69 74 20 68 61 73 20 62 65 hand, it has be
0000B0: 65 6E 20 65 78 74 65 6E 64 65 64 0D 0A 74 6F 20 en extended..to
0000C0: 61 6C 6C 6F 77 20 61 6E 20 65 6C 73 65 20 73 74 allow an else st
0000D0: 61 74 65 6D 65 6E 74 20 77 68 69 63 68 20 69 73 atement which is
0000E0: 20 65 78 65 63 75 74 65 64 20 77 68 65 6E 20 6E executed when n
0000F0: 6F 6E 65 20 6F 66 20 74 68 65 20 63 61 73 65 0D one of the case.
000100: 0A 6C 61 62 65 6C 73 20 6D 61 74 63 68 20 74 68 .labels match th
000110: 65 20 65 78 70 72 65 73 73 69 6F 6E 20 76 61 6C e expression val
000120: 75 65 2E 20 20 53 65 65 20 74 68 65 20 73 79 6E ue. See the syn
000130: 74 61 78 20 67 72 61 70 68 73 20 66 6F 72 20 74 tax graphs for t
000140: 68 65 20 73 79 6E 74 61 78 2E 0D 0A 0D 0A 0D 0A he syntax.......
000150: 53 69 6E 67 6C 65 20 64 69 6D 65 6E 73 69 6F 6E Single dimension
000160: 61 6C 20 61 72 72 61 79 73 20 6F 66 20 69 6E 74 al arrays of int
000170: 65 67 65 72 73 20 61 6E 64 20 61 6C 66 61 73 20 egers and alfas
000180: 28 74 68 65 20 74 77 6F 20 22 62 75 69 6C 74 2D (the two "built-
000190: 69 6E 22 20 74 79 70 65 73 29 0D 0A 61 72 65 20 in" types)..are
0001A0: 61 6C 6C 6F 77 65 64 2E 20 20 59 6F 75 20 63 61 allowed. You ca
0001B0: 6E 20 61 6C 73 6F 20 64 65 63 6C 61 72 65 20 61 n also declare a
0001C0: 72 72 61 79 73 20 6F 66 20 73 75 62 72 61 6E 67 rrays of subrang
0001D0: 65 20 6F 72 20 65 6E 75 6D 65 72 61 74 65 64 20 e or enumerated
0001E0: 74 79 70 65 73 2C 0D 0A 62 75 74 20 74 68 65 73 types,..but thes
0001F0: 65 20 61 72 65 20 74 72 65 61 74 65 64 20 61 73 e are treated as
Size : 512 (Real : 512)
000000: 68 61 6E 20 74 68 65 20 6F 74 68 65 72 2C 20 70 han the other, p
000010: 75 74 20 74 68 65 0D 0A 6C 65 73 73 65 72 20 6F ut the..lesser o
000020: 70 65 72 61 6E 64 20 6F 6E 20 74 68 65 20 6C 65 perand on the le
000030: 66 74 20 6F 66 20 74 68 65 20 6D 75 6C 74 69 70 ft of the multip
000040: 6C 69 63 61 74 69 6F 6E 20 73 79 6D 62 6F 6C 20 lication symbol
000050: 66 6F 72 20 62 65 73 74 20 73 70 65 65 64 2E 0D for best speed..
000060: 0A 44 69 76 69 64 69 6E 67 20 61 20 6C 61 72 67 .Dividing a larg
000070: 65 20 6E 75 6D 62 65 72 20 62 79 20 6F 6E 65 20 e number by one
000080: 74 61 6B 65 73 20 61 20 6C 6F 6E 67 20 74 69 6D takes a long tim
000090: 65 20 2D 2D 20 64 69 76 69 64 69 6E 67 20 69 74 e -- dividing it
0000A0: 20 62 79 20 7A 65 72 6F 0D 0A 74 61 6B 65 73 20 by zero..takes
0000B0: 66 6F 72 65 76 65 72 21 20 20 28 49 74 27 73 20 forever! (It's
0000C0: 6E 6F 74 20 74 68 61 74 20 49 27 6D 20 6E 6F 74 not that I'm not
0000D0: 20 61 77 61 72 65 20 6F 66 20 74 68 65 20 73 68 aware of the sh
0000E0: 69 66 74 6E 67 20 6D 65 74 68 6F 64 73 0D 0A 6F iftng methods..o
0000F0: 66 20 64 69 76 69 73 69 6F 6E 20 61 6E 64 20 6D f division and m
000100: 75 6C 74 69 70 6C 69 63 61 74 69 6F 6E 2C 20 69 ultiplication, i
000110: 74 27 73 20 6A 75 73 74 20 74 68 61 74 20 49 20 t's just that I
000120: 77 61 6E 74 65 64 20 73 6F 6D 65 74 68 69 6E 67 wanted something
000130: 20 71 75 69 63 6B 0D 0A 61 6E 64 20 64 69 64 6E quick..and didn
000140: 27 74 20 66 65 65 6C 20 6C 69 6B 65 20 6C 6F 6F 't feel like loo
000150: 6B 69 6E 67 20 75 70 20 74 68 65 20 67 6F 6F 64 king up the good
000160: 20 72 6F 75 74 69 6E 65 73 2E 20 20 49 27 76 65 routines. I've
000170: 20 6E 65 76 65 72 20 66 65 6C 74 0D 0A 74 68 65 never felt..the
000180: 20 6E 65 65 64 20 74 6F 20 72 65 70 6C 61 63 65 need to replace
000190: 20 74 68 65 73 65 20 72 6F 75 74 69 6E 65 73 20 these routines
0001A0: 77 69 74 68 20 74 68 65 20 67 6F 6F 64 20 6F 6E with the good on
0001B0: 65 73 2E 29 0D 0A 0D 0A 41 6C 73 6F 20 6E 6F 74 es.)....Also not
0001C0: 65 20 74 68 61 74 20 74 68 65 72 65 20 69 73 20 e that there is
0001D0: 6E 6F 20 69 6E 74 65 67 65 72 20 6E 65 67 61 74 no integer negat
0001E0: 69 6F 6E 2E 20 20 49 66 20 79 6F 75 20 77 61 6E ion. If you wan
0001F0: 74 20 6E 65 67 61 74 69 76 65 20 6F 6E 65 2C 0D t negative one,.
Size : 512 (Real : 512)
000000: 20 61 72 72 61 79 73 20 6F 66 20 69 6E 74 65 67 arrays of integ
000010: 65 72 73 20 61 6E 64 20 74 61 6B 65 20 74 68 65 ers and take the
000020: 20 73 61 6D 65 20 61 6D 6F 75 6E 74 20 6F 66 0D same amount of.
000030: 0A 73 74 6F 72 61 67 65 2E 20 20 4F 66 20 63 6F .storage. Of co
000040: 75 72 73 65 2C 20 61 72 72 61 79 73 20 6F 66 20 urse, arrays of
000050: 61 72 72 61 79 73 20 61 72 65 20 6E 6F 74 20 61 arrays are not a
000060: 6C 6C 6F 77 65 64 2C 20 61 73 20 74 68 61 74 20 llowed, as that
000070: 77 6F 75 6C 64 0D 0A 62 65 20 6D 6F 72 65 20 74 would..be more t
000080: 68 61 6E 20 6F 6E 65 20 64 69 6D 65 6E 73 69 6F han one dimensio
000090: 6E 2E 0D 0A 0D 0A 49 66 20 61 20 73 69 6D 70 6C n.....If a simpl
0000A0: 65 20 61 6C 66 61 20 76 61 72 69 61 62 6C 65 20 e alfa variable
0000B0: 61 70 70 65 61 72 73 20 77 69 74 68 20 61 20 73 appears with a s
0000C0: 75 62 73 63 72 69 70 74 20 61 66 74 65 72 20 69 ubscript after i
0000D0: 74 2C 20 69 74 20 69 73 0D 0A 74 72 65 61 74 65 t, it is..treate
0000E0: 64 20 61 73 20 74 68 6F 75 67 68 20 69 74 20 77 d as though it w
0000F0: 65 72 65 20 61 6E 20 61 72 72 61 79 20 6F 66 20 ere an array of
000100: 69 6E 74 65 67 65 72 73 2E 20 20 54 68 69 73 20 integers. This
000110: 66 61 63 74 20 63 61 6E 20 62 65 20 75 73 65 64 fact can be used
000120: 0D 0A 74 6F 20 67 65 74 20 61 74 20 74 68 65 20 ..to get at the
000130: 69 6E 64 69 76 69 64 75 61 6C 20 63 68 61 72 61 individual chara
000140: 63 74 65 72 73 20 6F 66 20 61 6E 20 61 6C 66 61 cters of an alfa
000150: 20 76 61 72 69 61 62 6C 65 2E 20 20 46 6F 72 20 variable. For
000160: 65 78 61 6D 70 6C 65 2C 0D 0A 69 66 20 22 61 22 example,..if "a"
000170: 20 69 73 20 61 20 73 69 6D 70 6C 65 20 28 6E 6F is a simple (no
000180: 74 20 61 6E 20 61 72 72 61 79 29 20 61 6C 66 61 t an array) alfa
000190: 20 76 61 72 69 61 62 6C 65 2C 20 74 68 65 6E 20 variable, then
0001A0: 61 5B 30 5D 20 72 65 66 65 72 73 20 74 6F 0D 0A a[0] refers to..
0001B0: 74 68 65 20 66 69 72 73 74 20 74 77 6F 20 63 68 the first two ch
0001C0: 61 72 61 63 74 65 72 73 2E 20 20 54 68 65 20 6C aracters. The l
0001D0: 65 61 73 74 20 73 69 67 6E 69 66 69 63 61 6E 74 east significant
0001E0: 20 65 69 67 68 74 20 62 69 74 73 20 77 6F 75 6C eight bits woul
0001F0: 64 0D 0A 63 6F 6E 74 61 69 6E 20 74 68 65 20 66 d..contain the f
Size : 512 (Real : 512)
000000: 0A 77 72 69 74 65 20 69 74 20 61 73 20 30 2D 31 .write it as 0-1
000010: 2E 0D 0A 0D 0A 54 68 65 20 74 79 70 65 20 72 65 .....The type re
000020: 61 6C 20 69 73 20 6E 6F 74 20 73 75 70 70 6F 72 al is not suppor
000030: 74 65 64 2E 0D 0A 0D 0A 54 68 65 20 74 79 70 65 ted.....The type
000040: 20 63 68 61 72 20 69 73 20 6E 6F 74 20 73 75 70 char is not sup
000050: 70 6F 72 74 65 64 2C 20 62 75 74 20 73 65 65 20 ported, but see
000060: 74 79 70 65 20 61 6C 66 61 20 62 65 6C 6F 77 2E type alfa below.
000070: 0D 0A 0D 0A 54 68 65 20 74 79 70 65 20 61 6C 66 ....The type alf
000080: 61 20 63 61 6E 20 68 6F 6C 64 20 65 69 67 68 74 a can hold eight
000090: 20 63 68 61 72 61 63 74 65 72 65 72 73 2E 20 20 characterers.
0000A0: 41 6C 66 61 73 20 63 61 6E 20 62 65 20 61 73 73 Alfas can be ass
0000B0: 69 67 6E 65 64 20 61 6E 64 0D 0A 63 6F 6D 70 61 igned and..compa
0000C0: 72 65 64 20 6A 75 73 74 20 6C 69 6B 65 20 69 6E red just like in
0000D0: 74 65 67 65 72 73 20 28 6A 75 73 74 20 64 6F 6E tegers (just don
0000E0: 27 74 20 74 72 79 20 74 6F 20 64 6F 20 6D 61 74 't try to do mat
0000F0: 68 20 6F 6E 20 74 68 65 6D 21 29 2E 0D 0A 41 6C h on them!)...Al
000100: 6C 20 72 65 6C 61 74 69 6F 6E 61 6C 20 6F 70 65 l relational ope
000110: 72 61 74 6F 72 73 20 61 72 65 20 64 65 66 69 6E rators are defin
000120: 65 64 20 75 73 69 6E 67 20 74 68 65 20 41 53 43 ed using the ASC
000130: 49 49 20 63 6F 6C 6C 61 74 69 6E 67 20 73 65 71 II collating seq
000140: 75 65 6E 63 65 2E 0D 0A 4C 65 6E 67 74 68 20 63 uence...Length c
000150: 61 6E 27 74 20 65 6E 74 65 72 20 69 6E 74 6F 20 an't enter into
000160: 74 68 65 20 63 6F 6D 70 61 72 69 6F 73 6E 20 62 the compariosn b
000170: 65 63 61 75 73 65 20 61 6C 66 61 73 20 61 72 65 ecause alfas are
000180: 20 61 6C 77 61 79 73 20 65 69 67 68 74 0D 0A 63 always eight..c
000190: 68 61 72 61 63 74 65 72 73 20 6C 6F 6E 67 20 28 haracters long (
0001A0: 69 74 27 73 20 75 70 20 74 6F 20 79 6F 75 20 74 it's up to you t
0001B0: 6F 20 73 75 70 70 6C 79 20 70 61 64 64 69 6E 67 o supply padding
0001C0: 29 2E 20 20 41 6C 66 61 73 20 6D 61 79 20 62 65 ). Alfas may be
0001D0: 20 70 61 73 73 65 64 0D 0A 61 73 20 70 61 72 61 passed..as para
0001E0: 6D 65 74 65 72 73 2E 0D 0A 0D 0A 0D 0A 53 69 6E meters.......Sin
0001F0: 63 65 20 66 69 6C 65 73 20 61 72 65 20 6E 6F 74 ce files are not
Size : 512 (Real : 512)
000000: 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 61 irst character a
000010: 6E 64 20 74 68 65 20 6D 6F 73 74 20 73 69 67 6E nd the most sign
000020: 69 66 69 63 61 6E 74 20 65 69 67 68 74 20 62 69 ificant eight bi
000030: 74 73 20 77 6F 75 6C 64 0D 0A 63 6F 6E 74 61 69 ts would..contai
000040: 6E 20 74 68 65 20 73 65 63 6F 6E 64 20 63 68 61 n the second cha
000050: 72 61 63 74 65 72 2E 0D 0A 0D 0A 0D 0A 52 65 63 racter.......Rec
000060: 6F 72 64 20 74 79 70 65 73 20 61 72 65 20 6E 6F ord types are no
000070: 74 20 61 6C 6C 6F 77 65 64 2E 20 20 54 68 65 72 t allowed. Ther
000080: 65 66 6F 72 65 2C 20 74 68 65 72 65 20 69 73 20 efore, there is
000090: 6E 6F 20 6E 65 65 64 20 66 6F 72 20 61 20 77 69 no need for a wi
0000A0: 74 68 0D 0A 73 74 61 74 65 6D 65 6E 74 2E 0D 0A th..statement...
0000B0: 0D 0A 0D 0A 54 68 65 72 65 20 69 73 20 6E 6F 20 ....There is no
0000C0: 73 65 74 20 74 79 70 65 2E 20 20 28 48 6F 77 65 set type. (Howe
0000D0: 76 65 72 2C 20 69 74 20 73 68 6F 75 6C 64 6E 27 ver, it shouldn'
0000E0: 74 20 62 65 20 74 6F 6F 20 68 61 72 64 20 74 6F t be too hard to
0000F0: 20 69 6D 70 6C 65 6D 65 6E 74 0D 0A 61 20 36 34 implement..a 64
000100: 2D 62 69 74 20 73 65 74 20 74 79 70 65 20 75 73 -bit set type us
000110: 69 6E 67 20 74 68 65 20 70 2D 69 6E 73 74 72 75 ing the p-instru
000120: 63 74 69 6F 6E 73 20 61 6C 72 65 61 64 79 20 61 ctions already a
000130: 72 6F 75 6E 64 20 66 6F 72 20 61 6C 66 61 0D 0A round for alfa..
000140: 76 61 72 69 61 62 6C 65 73 20 2E 20 2E 20 2E 20 variables . . .
000150: 29 2E 0D 0A 0D 0A 0D 0A 54 68 65 72 65 20 61 72 ).......There ar
000160: 65 20 6E 6F 20 70 6F 69 6E 74 65 72 20 74 79 70 e no pointer typ
000170: 65 73 2C 20 61 6E 64 20 63 6F 6E 73 65 71 75 65 es, and conseque
000180: 6E 74 6C 79 2C 20 6E 6F 20 6E 65 77 20 66 75 6E ntly, no new fun
000190: 63 74 69 6F 6E 2E 0D 0A 0D 0A 0D 0A 54 68 65 72 ction.......Ther
0001A0: 65 20 61 72 65 20 6E 6F 20 66 69 6C 65 73 20 61 e are no files a
0001B0: 6E 64 20 6E 6F 20 72 65 61 64 20 6F 72 20 77 72 nd no read or wr
0001C0: 69 74 65 20 73 74 61 74 65 6D 65 6E 74 73 2E 20 ite statements.
0001D0: 20 41 6C 6C 20 69 6E 70 75 74 20 61 6E 64 0D 0A All input and..
0001E0: 6F 75 74 70 75 74 20 69 73 20 64 6F 6E 65 20 77 output is done w
0001F0: 69 74 68 20 74 68 65 20 70 75 74 20 61 6E 64 20 ith the put and
Size : 512 (Real : 512)
000000: 20 73 75 70 70 6F 72 74 65 64 2C 20 74 68 65 20 supported, the
000010: 70 72 6F 67 72 61 6D 20 68 65 61 64 69 6E 67 20 program heading
000020: 69 73 20 6E 6F 74 20 6E 65 65 64 65 64 2C 20 61 is not needed, a
000030: 6E 64 0D 0A 69 6E 20 66 61 63 74 2C 20 69 73 20 nd..in fact, is
000040: 6E 6F 74 20 61 6C 6C 6F 77 65 64 2E 20 20 54 68 not allowed. Th
000050: 65 20 66 69 72 73 74 20 74 68 69 6E 67 20 74 68 e first thing th
000060: 65 20 63 6F 6D 70 69 6C 65 72 20 65 78 70 65 63 e compiler expec
000070: 74 73 20 74 6F 20 73 65 65 0D 0A 61 72 65 20 74 ts to see..are t
000080: 68 65 20 67 6C 6F 62 61 6C 20 63 6F 6E 73 74 61 he global consta
000090: 6E 74 20 64 65 63 6C 61 72 61 74 69 6F 6E 73 2E nt declarations.
0000A0: 0D 0A 0D 0A 47 6F 74 6F 20 73 74 61 74 65 6D 65 ....Goto stateme
0000B0: 6E 74 73 20 61 72 65 20 6E 6F 74 20 73 75 70 70 nts are not supp
0000C0: 6F 72 74 65 64 2C 20 74 68 65 72 65 66 6F 72 65 orted, therefore
0000D0: 20 6C 61 62 65 6C 20 64 65 63 6C 61 72 61 74 69 label declarati
0000E0: 6F 6E 73 20 61 72 65 20 6E 6F 74 0D 0A 6E 65 65 ons are not..nee
0000F0: 64 65 64 20 61 6E 64 20 6E 6F 74 20 70 65 72 6D ded and not perm
000100: 69 74 74 65 64 2E 0D 0A 0D 0A 43 6F 6E 73 74 61 itted.....Consta
000110: 6E 74 20 64 65 63 6C 61 72 61 74 69 6F 6E 73 20 nt declarations
000120: 61 72 65 20 70 72 65 74 74 79 20 6D 75 63 68 20 are pretty much
000130: 74 68 65 20 73 61 6D 65 20 61 73 20 69 6E 20 72 the same as in r
000140: 65 67 75 6C 61 72 20 50 61 73 63 61 6C 2C 0D 0A egular Pascal,..
000150: 65 78 63 65 70 74 20 74 68 61 74 20 6C 65 61 64 except that lead
000160: 69 6E 67 20 73 69 67 6E 73 20 61 72 65 20 6E 6F ing signs are no
000170: 74 20 61 6C 6C 6F 77 65 64 20 61 6E 64 20 63 68 t allowed and ch
000180: 61 72 61 63 74 65 72 20 63 6F 6E 73 74 61 6E 74 aracter constant
000190: 73 0D 0A 63 61 6E 20 62 65 20 6F 6E 6C 79 20 6F s..can be only o
0001A0: 6E 65 20 63 68 61 72 61 63 74 65 72 20 69 6E 20 ne character in
0001B0: 6C 65 6E 67 74 68 2E 20 20 41 20 6D 69 6E 6F 72 length. A minor
0001C0: 20 65 78 74 65 6E 73 69 6F 6E 20 69 73 20 74 68 extension is th
0001D0: 61 74 20 49 20 70 75 74 0D 0A 69 6E 20 6C 69 6D at I put..in lim
0001E0: 69 74 65 64 20 63 6F 6D 70 69 6C 65 20 74 69 6D ited compile tim
0001F0: 65 20 63 6F 6E 73 74 61 6E 74 20 65 78 70 72 65 e constant expre
Size : 512 (Real : 512)
000000: 67 65 74 20 73 74 61 74 65 6D 65 6E 74 73 2E 20 get statements.
000010: 20 54 68 65 73 65 20 61 72 65 20 6F 6E 6C 79 20 These are only
000020: 76 61 67 75 65 6C 79 0D 0A 73 69 6D 69 6C 61 72 vaguely..similar
000030: 20 74 6F 20 74 68 65 20 73 74 61 6E 64 61 72 64 to the standard
000040: 20 50 61 73 63 61 6C 20 70 75 74 20 61 6E 64 20 Pascal put and
000050: 67 65 74 2E 20 20 47 45 54 23 30 20 67 65 74 73 get. GET#0 gets
000060: 20 6F 6E 65 20 63 68 61 72 61 63 74 65 72 0D 0A one character..
000070: 66 72 6F 6D 20 74 68 65 20 69 6E 70 75 74 20 66 from the input f
000080: 69 6C 65 2E 20 20 50 55 54 23 30 20 73 65 6E 64 ile. PUT#0 send
000090: 73 20 69 74 73 20 6F 75 74 70 75 74 20 74 6F 20 s its output to
0000A0: 74 68 65 20 6F 75 74 70 75 74 20 66 69 6C 65 2E the output file.
0000B0: 20 20 50 55 54 23 31 0D 0A 73 65 6E 64 73 20 69 PUT#1..sends i
0000C0: 74 73 20 6F 75 74 70 75 74 20 75 6E 63 6F 6E 64 ts output uncond
0000D0: 69 74 69 6F 6E 61 6C 6C 79 20 74 6F 20 74 68 65 itionally to the
0000E0: 20 63 6F 6E 73 6F 6C 65 2E 20 20 54 68 65 20 61 console. The a
0000F0: 72 67 75 6D 65 6E 74 73 20 74 6F 20 74 68 65 0D rguments to the.
000100: 0A 70 75 74 20 73 74 61 74 65 6D 65 6E 74 73 20 .put statements
000110: 63 6F 6E 73 69 73 74 20 6F 66 20 61 20 73 65 72 consist of a ser
000120: 69 65 73 20 6F 66 20 65 78 70 72 65 73 73 69 6F ies of expressio
000130: 6E 73 20 73 65 70 61 72 61 74 65 64 20 62 79 20 ns separated by
000140: 63 6F 6D 6D 61 73 2E 0D 0A 49 66 20 61 6E 20 65 commas...If an e
000150: 78 70 72 65 73 73 69 6F 6E 20 65 76 61 6C 75 61 xpression evalua
000160: 74 65 73 20 74 6F 20 61 6E 20 61 6C 66 61 2C 20 tes to an alfa,
000170: 61 6C 6C 20 65 69 67 68 74 20 63 68 61 72 61 63 all eight charac
000180: 74 65 72 73 20 6F 66 20 74 68 65 20 61 6C 66 61 ters of the alfa
000190: 0D 0A 61 72 65 20 70 72 69 6E 74 65 64 2E 20 20 ..are printed.
0001A0: 49 6E 74 65 67 65 72 20 65 78 70 72 65 73 73 69 Integer expressi
0001B0: 6F 6E 73 20 66 6F 6C 6C 6F 77 65 64 20 62 79 20 ons followed by
0001C0: 61 20 70 6F 75 6E 64 20 73 69 67 6E 20 28 27 23 a pound sign ('#
0001D0: 27 29 20 77 69 6C 6C 0D 0A 70 72 69 6E 74 20 74 ') will..print t
0001E0: 68 65 20 64 65 63 69 6D 61 6C 20 76 61 6C 75 65 he decimal value
0001F0: 20 6F 66 20 74 68 65 20 65 78 70 72 65 73 73 69 of the expressi
Size : 512 (Real : 512)
000000: 28 2A 0D 0A 20 20 54 49 54 4C 45 09 09 50 61 73 (*.. TITLE..Pas
000010: 63 61 6C 20 50 61 73 63 61 6C 20 43 6F 6D 70 69 cal Pascal Compi
000020: 6C 65 72 20 28 70 61 73 63 61 6C 20 73 65 6C 66 ler (pascal self
000030: 20 63 6F 6D 70 69 6C 65 72 29 0D 0A 20 20 46 49 compiler).. FI
000040: 4C 45 4E 41 4D 45 09 50 50 43 2E 50 41 53 0D 0A LENAME.PPC.PAS..
000050: 20 20 41 55 54 48 4F 52 09 52 6F 62 65 72 74 20 AUTHOR.Robert
000060: 41 2E 20 56 61 6E 20 56 61 6C 7A 61 68 20 20 20 A. Van Valzah
000070: 39 2F 30 31 2F 37 39 0D 0A 20 20 4C 41 53 54 20 9/01/79.. LAST
000080: 52 45 56 49 53 4F 52 09 52 2E 20 41 2E 20 56 2E REVISOR.R. A. V.
000090: 20 20 30 31 2F 30 35 2F 38 30 0D 0A 20 20 52 45 01/05/80.. RE
0000A0: 41 53 4F 4E 09 72 65 70 61 69 72 65 64 20 62 75 ASON.repaired bu
0000B0: 67 20 69 6E 20 76 61 72 20 70 61 72 61 6D 65 74 g in var paramet
0000C0: 65 72 73 0D 0A 2A 29 0D 0A 0D 0A 28 2A 0D 0A 54 ers..*)....(*..T
0000D0: 68 69 73 20 69 73 20 61 20 73 69 6E 67 6C 65 20 his is a single
0000E0: 70 61 73 73 20 70 61 73 63 61 6C 20 73 75 62 73 pass pascal subs
0000F0: 65 74 20 63 6F 6D 70 69 6C 65 72 2E 20 20 53 6F et compiler. So
000100: 75 72 63 65 20 63 6F 64 65 0D 0A 69 73 20 72 65 urce code..is re
000110: 61 64 20 66 72 6F 6D 20 74 68 65 20 69 6E 70 75 ad from the inpu
000120: 74 20 64 65 76 69 63 65 20 61 6E 64 20 61 20 6C t device and a l
000130: 69 73 74 69 6E 67 20 69 73 20 70 72 6F 64 75 63 isting is produc
000140: 65 64 2E 0D 0A 41 20 6C 61 62 65 6C 20 61 64 64 ed...A label add
000150: 72 65 73 73 65 64 20 70 2D 63 6F 64 65 20 69 73 ressed p-code is
000160: 20 75 73 65 64 20 73 6F 20 74 68 61 74 20 66 6F used so that fo
000170: 72 77 61 72 64 20 72 65 66 65 72 65 6E 63 65 73 rward references
000180: 0D 0A 61 72 65 20 6E 6F 20 70 72 6F 62 6C 65 6D ..are no problem
000190: 2E 20 20 54 68 65 20 75 73 65 20 6F 66 20 74 68 . The use of th
0001A0: 65 73 65 73 20 6C 61 62 65 6C 73 20 72 65 6D 6F eses labels remo
0001B0: 76 65 73 20 74 68 65 20 6E 65 65 64 20 66 6F 72 ves the need for
0001C0: 0D 0A 22 62 61 63 6B 70 6C 75 67 67 69 6E 67 22 .."backplugging"
0001D0: 2C 20 61 6E 64 20 77 69 74 68 20 69 74 2C 20 74 , and with it, t
0001E0: 68 65 20 6E 65 65 64 20 74 6F 20 6B 65 65 70 20 he need to keep
0001F0: 74 68 65 20 67 65 6E 65 72 61 74 65 64 0D 0A 70 the generated..p
Size : 512 (Real : 512)
000000: 6F 6E 2E 20 20 49 66 20 6E 6F 20 70 6F 75 6E 64 on. If no pound
000010: 20 73 69 67 6E 20 66 6F 6C 6C 6F 77 73 0D 0A 74 sign follows..t
000020: 68 65 20 65 78 70 72 65 73 73 69 6F 6E 2C 20 74 he expression, t
000030: 68 65 20 6C 6F 77 20 65 69 67 68 74 20 62 69 74 he low eight bit
000040: 73 20 6F 66 20 74 68 65 20 65 78 70 72 65 73 73 s of the express
000050: 69 6F 6E 20 61 72 65 20 73 65 6E 74 20 61 73 20 ion are sent as
000060: 6F 6E 65 0D 0A 63 68 61 72 61 63 74 65 72 2E 20 one..character.
000070: 20 54 68 65 20 69 6E 70 75 74 20 61 6E 64 20 6F The input and o
000080: 75 74 70 75 74 20 66 69 6C 65 73 20 6D 65 6E 74 utput files ment
000090: 69 6F 6E 65 64 20 61 62 6F 76 65 20 63 61 6E 20 ioned above can
0000A0: 62 65 20 65 69 74 68 65 72 0D 0A 64 69 73 6B 20 be either..disk
0000B0: 66 69 6C 65 73 20 6F 72 20 63 6F 6E 73 6F 6C 65 files or console
0000C0: 20 69 6E 70 75 74 20 61 6E 64 20 6F 75 74 70 75 input and outpu
0000D0: 74 2E 20 20 57 68 69 63 68 20 69 73 20 75 73 65 t. Which is use
0000E0: 64 20 64 65 70 65 6E 64 73 20 6F 6E 20 77 68 61 d depends on wha
0000F0: 74 0D 0A 69 73 20 74 79 70 65 64 20 6F 6E 20 74 t..is typed on t
000100: 68 65 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 he command line
000110: 66 6F 6C 6C 6F 77 69 6E 67 20 74 68 65 20 63 6F following the co
000120: 6D 70 69 6C 65 64 20 2E 63 6F 6D 20 66 69 6C 65 mpiled .com file
000130: 20 77 68 65 6E 20 69 74 0D 0A 69 73 20 65 78 65 when it..is exe
000140: 63 75 74 65 64 2E 20 20 49 66 20 74 68 65 20 66 cuted. If the f
000150: 69 72 73 74 20 66 69 6C 65 6E 61 6D 65 20 66 6F irst filename fo
000160: 6C 6C 6F 77 69 6E 67 20 74 68 65 20 2E 63 6F 6D llowing the .com
000170: 20 66 69 6C 65 20 6E 61 6D 65 20 69 73 0D 0A 62 file name is..b
000180: 6C 61 6E 6B 20 6F 72 20 27 2A 27 2C 20 74 68 65 lank or '*', the
000190: 6E 20 69 6E 70 75 74 20 63 68 61 72 61 63 74 65 n input characte
0001A0: 72 73 20 61 72 65 20 74 61 6B 65 6E 20 66 72 6F rs are taken fro
0001B0: 6D 20 74 68 65 20 63 6F 6E 73 6F 6C 65 2E 20 20 m the console.
0001C0: 49 66 0D 0A 69 74 20 69 73 20 74 68 65 20 6E 61 If..it is the na
0001D0: 6D 65 20 6F 66 20 61 20 64 69 73 6B 20 66 69 6C me of a disk fil
0001E0: 65 2C 20 74 68 65 6E 20 69 6E 70 75 74 20 63 6F e, then input co
0001F0: 6D 65 73 20 66 72 6F 6D 20 74 68 61 74 20 64 69 mes from that di
Size : 512 (Real : 512)
000000: 2D 63 6F 64 65 73 20 61 72 6F 75 6E 64 20 69 6E -codes around in
000010: 20 63 6F 72 65 2E 20 20 54 68 69 73 20 63 75 74 core. This cut
000020: 73 20 64 6F 77 6E 20 6F 6E 20 6D 65 6D 6F 72 79 s down on memory
000030: 20 72 65 71 75 69 72 65 6D 65 6E 74 73 0D 0A 61 requirements..a
000040: 6E 64 20 61 6C 6C 6F 77 73 20 74 68 65 20 63 6F nd allows the co
000050: 6D 70 69 6C 65 72 20 74 6F 20 77 72 69 74 65 20 mpiler to write
000060: 74 68 65 20 70 2D 63 6F 64 65 20 74 6F 20 64 69 the p-code to di
000070: 73 6B 20 61 73 20 69 74 20 69 73 0D 0A 67 65 6E sk as it is..gen
000080: 65 72 61 74 65 64 2E 20 20 54 68 65 20 6F 76 65 erated. The ove
000090: 72 61 6C 6C 20 64 65 73 69 67 6E 20 75 73 65 73 rall design uses
0000A0: 20 72 65 63 75 72 73 69 76 65 20 64 65 73 63 65 recursive desce
0000B0: 6E 74 20 77 68 65 72 65 0D 0A 65 76 65 72 20 70 nt where..ever p
0000C0: 6F 73 73 69 62 6C 65 2E 0D 0A 0D 0A 69 6E 74 65 ossible.....inte
0000D0: 72 6E 61 6C 20 73 74 72 75 63 74 75 72 65 0D 0A rnal structure..
0000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000F0: 3D 3D 0D 0A 54 68 65 20 63 6F 6D 70 69 6C 65 72 ==..The compiler
000100: 20 63 61 6E 20 62 65 20 62 72 6F 6B 65 6E 20 64 can be broken d
000110: 6F 77 6E 20 69 6E 74 6F 20 74 68 65 20 6D 61 6A own into the maj
000120: 6F 72 20 66 75 6E 63 74 69 6F 6E 61 6C 20 75 6E or functional un
000130: 69 74 73 0D 0A 73 68 6F 77 6E 20 69 6E 20 74 68 its..shown in th
000140: 65 20 74 61 62 6C 65 20 62 65 6C 6F 77 2E 20 20 e table below.
000150: 49 6E 20 74 68 69 73 20 63 6F 6D 70 69 6C 65 72 In this compiler
000160: 2C 20 63 6F 64 65 20 67 65 6E 65 72 61 74 69 6F , code generatio
000170: 6E 20 69 73 0D 0A 72 6F 6C 6C 65 64 20 72 69 67 n is..rolled rig
000180: 68 74 20 69 6E 20 77 69 74 68 20 74 68 65 20 70 ht in with the p
000190: 61 72 73 69 6E 67 20 72 6F 75 74 69 6E 65 73 2E arsing routines.
0001A0: 20 20 41 73 20 73 6F 6F 6E 20 61 73 20 61 20 76 As soon as a v
0001B0: 61 6C 69 64 0D 0A 63 6F 6E 73 74 72 75 63 74 20 alid..construct
0001C0: 69 73 20 72 65 63 6F 67 6E 69 7A 65 64 2C 20 63 is recognized, c
0001D0: 6F 64 65 20 66 6F 72 20 69 74 20 69 73 20 65 6D ode for it is em
0001E0: 69 74 74 65 64 2E 0D 0A 0D 0A 42 6C 6F 63 6B 20 itted.....Block
0001F0: 6E 65 73 74 69 6E 67 20 61 6E 64 20 66 75 6E 63 nesting and func
Size : 512 (Real : 512)
000000: 73 6B 20 66 69 6C 65 2E 0D 0A 41 20 73 69 6D 69 sk file...A simi
000010: 6C 61 72 20 72 75 6C 65 20 61 70 70 6C 69 65 73 lar rule applies
000020: 20 74 6F 20 74 68 65 20 73 65 63 6F 6E 64 20 66 to the second f
000030: 69 6C 65 6E 61 6D 65 20 66 6F 6C 6C 6F 77 69 6E ilename followin
000040: 67 20 74 68 65 20 63 6F 6D 6D 61 6E 64 0D 0A 61 g the command..a
000050: 6E 64 20 74 68 65 20 64 65 73 74 69 6E 79 20 6F nd the destiny o
000060: 66 20 74 68 65 20 6F 75 74 70 75 74 20 63 68 61 f the output cha
000070: 72 61 63 74 65 72 73 2E 0D 0A 0D 0A 0D 0A 56 61 racters.......Va
000080: 72 20 70 61 72 61 6D 65 74 65 72 73 20 61 72 65 r parameters are
000090: 20 64 69 66 66 65 72 65 6E 74 20 69 6E 20 74 68 different in th
0000A0: 61 74 20 69 66 20 6F 6E 65 20 70 61 72 61 6D 65 at if one parame
0000B0: 74 65 72 20 74 6F 20 61 20 70 72 6F 63 65 64 75 ter to a procedu
0000C0: 72 65 0D 0A 69 73 20 74 6F 20 62 65 20 76 61 72 re..is to be var
0000D0: 2C 20 74 68 65 6E 20 61 6C 6C 20 70 61 72 61 6D , then all param
0000E0: 65 74 65 72 73 20 6D 75 73 74 20 62 65 20 76 61 eters must be va
0000F0: 72 20 70 61 72 61 6D 65 74 65 72 73 2E 20 20 54 r parameters. T
000100: 68 69 73 20 69 73 0D 0A 61 20 73 69 6C 6C 79 20 his is..a silly
000110: 72 65 73 74 72 69 63 74 69 6F 6E 20 74 68 61 74 restriction that
000120: 20 73 68 6F 75 6C 64 20 62 65 20 65 61 73 69 6C should be easil
000130: 79 20 72 65 6D 6F 76 65 64 20 62 79 20 61 6E 79 y removed by any
000140: 20 74 61 6C 65 6E 74 65 64 0D 0A 63 6F 6D 70 69 talented..compi
000150: 6C 65 72 20 68 61 63 6B 65 72 2E 20 20 54 68 65 ler hacker. The
000160: 72 65 20 69 73 20 61 20 61 6C 73 6F 20 61 20 73 re is a also a s
000170: 6D 61 6C 6C 20 6B 6C 75 64 67 65 20 74 6F 20 6D mall kludge to m
000180: 61 6B 65 20 74 68 65 20 63 6F 6D 70 69 6C 65 72 ake the compiler
000190: 27 73 0D 0A 6A 6F 62 20 65 61 73 69 65 72 3B 20 's..job easier;
0001A0: 20 74 68 65 20 77 6F 72 64 20 76 61 72 20 6D 75 the word var mu
0001B0: 73 74 20 61 70 70 65 61 72 20 69 6E 20 74 68 65 st appear in the
0001C0: 20 63 61 6C 6C 20 74 6F 20 61 6C 6C 20 70 72 6F call to all pro
0001D0: 63 65 64 75 72 65 73 0D 0A 77 69 74 68 20 76 61 cedures..with va
0001E0: 72 20 70 61 72 61 6D 65 74 65 72 73 2C 20 61 73 r parameters, as
0001F0: 20 77 65 6C 6C 20 61 73 20 69 6E 20 74 68 65 20 well as in the
Size : 512 (Real : 512)
000000: 74 69 6F 6E 20 69 73 20 73 68 6F 77 6E 20 62 65 tion is shown be
000010: 6C 6F 77 2E 0D 0A 0D 0A 09 46 55 4E 43 54 49 4F low......FUNCTIO
000020: 4E 09 09 52 4F 55 54 49 4E 45 20 4E 41 4D 45 0D N..ROUTINE NAME.
000030: 0A 09 3D 3D 3D 3D 3D 3D 3D 3D 09 09 3D 3D 3D 3D ..========..====
000040: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 09 65 72 72 6F 72 ========...error
000050: 20 70 72 6F 63 65 73 73 69 6E 67 09 65 72 72 6F processing.erro
000060: 72 2C 20 74 65 73 74 0D 0A 09 73 79 6D 62 6F 6C r, test...symbol
000070: 20 74 61 62 6C 65 20 72 6F 75 74 69 6E 65 73 09 table routines.
000080: 65 6E 74 65 72 2C 20 70 6F 73 69 74 69 6F 6E 0D enter, position.
000090: 0A 09 74 6F 6B 65 6E 20 73 63 61 6E 6E 65 72 09 ..token scanner.
0000A0: 09 67 65 74 73 79 6D 0D 0A 09 20 20 63 68 61 72 .getsym... char
0000B0: 20 73 63 61 6E 6E 65 72 09 09 67 65 74 63 68 2C scanner..getch,
0000C0: 20 67 65 74 6C 69 6E 65 2C 20 65 74 63 2E 0D 0A getline, etc...
0000D0: 09 73 65 6D 61 6E 74 69 63 20 72 6F 75 74 69 6E .semantic routin
0000E0: 65 73 09 62 6C 6F 63 6B 0D 0A 09 20 20 64 65 63 es.block... dec
0000F0: 6C 61 72 69 74 69 76 65 09 09 63 6F 6E 73 74 2C laritive..const,
000100: 20 74 79 70 2C 20 76 61 72 20 64 63 6C 0D 0A 09 typ, var dcl...
000110: 20 20 73 74 61 74 65 6D 65 6E 74 20 73 63 61 6E statement scan
000120: 6E 65 72 09 73 74 61 74 65 6D 65 6E 74 0D 0A 09 ner.statement...
000130: 20 20 20 20 65 78 70 72 65 73 73 69 6F 6E 20 73 expression s
000140: 63 61 6E 6E 65 72 09 65 70 78 72 65 73 73 69 6F canner.epxressio
000150: 6E 2C 20 73 65 78 70 2C 20 74 65 72 6D 2C 20 66 n, sexp, term, f
000160: 61 63 74 6F 72 0D 0A 6D 61 69 6E 20 6C 69 6E 65 actor..main line
000170: 0D 0A 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 0D 0A 09 ..*)....const...
000180: 76 68 75 09 3D 20 30 3B 09 28 2A 20 76 65 72 73 vhu.= 0;.(* vers
000190: 69 6F 6E 20 6E 75 6D 62 65 72 20 68 75 6E 64 72 ion number hundr
0001A0: 65 64 73 20 2A 29 0D 0A 09 76 74 6E 09 3D 20 30 eds *)...vtn.= 0
0001B0: 3B 09 28 2A 20 74 65 6E 73 20 2A 29 0D 0A 09 76 ;.(* tens *)...v
0001C0: 75 6E 09 3D 20 38 3B 09 28 2A 20 75 6E 69 74 73 un.= 8;.(* units
0001D0: 20 2A 29 0D 0A 09 64 65 76 72 65 6C 09 3D 20 27 *)...devrel.= '
0001E0: 72 27 3B 09 28 2A 20 64 65 76 65 6C 6F 70 6D 65 r';.(* developme
0001F0: 6E 74 20 6F 72 20 72 65 6C 65 61 73 65 20 76 65 nt or release ve
Size : 512 (Real : 512)
000000: 64 65 63 6C 61 72 61 74 69 6F 6E 2E 20 20 54 68 declaration. Th
000010: 69 73 20 69 73 20 76 65 72 79 0D 0A 65 61 73 79 is is very..easy
000020: 20 74 6F 20 66 6F 72 67 65 74 20 61 6E 20 61 20 to forget an a
000030: 72 65 61 6C 20 6E 75 69 73 61 6E 63 65 20 61 74 real nuisance at
000040: 20 74 69 6D 65 73 2E 20 20 53 6F 6D 65 62 6F 64 times. Somebod
000050: 79 20 70 6C 65 61 73 65 20 66 69 78 2E 0D 0A 0D y please fix....
000060: 0A 0D 0A 49 74 20 69 73 20 70 6F 73 73 69 62 6C ...It is possibl
000070: 65 20 74 6F 20 66 6F 72 77 61 72 64 20 64 65 63 e to forward dec
000080: 6C 61 72 65 20 70 72 6F 63 65 64 75 72 65 73 20 lare procedures
000090: 61 6E 20 66 75 6E 63 74 69 6F 6E 73 2C 20 62 75 an functions, bu
0000A0: 74 20 61 73 0D 0A 77 69 74 68 20 76 61 72 20 70 t as..with var p
0000B0: 61 72 61 6D 65 74 65 72 73 2C 20 74 68 65 72 65 arameters, there
0000C0: 20 69 73 20 61 20 6D 69 6E 6F 72 20 73 79 6E 74 is a minor synt
0000D0: 61 63 74 69 63 20 6B 6C 75 64 67 65 20 74 6F 20 actic kludge to
0000E0: 6D 61 6B 65 20 74 68 65 0D 0A 63 6F 6D 70 69 6C make the..compil
0000F0: 65 72 27 73 20 6C 69 66 65 20 65 61 73 69 65 72 er's life easier
000100: 2E 20 20 54 68 65 20 66 6F 72 77 61 72 64 20 70 . The forward p
000110: 61 72 74 20 69 73 20 68 61 6E 64 6C 65 64 20 69 art is handled i
000120: 6E 20 74 68 65 20 6E 6F 72 6D 61 6C 0D 0A 77 61 n the normal..wa
000130: 79 20 65 78 63 65 70 74 20 74 68 61 74 20 79 6F y except that yo
000140: 75 20 44 2D 4F 2D 4E 2D 27 2D 54 20 67 69 76 65 u D-O-N-'-T give
000150: 20 74 68 65 20 70 61 72 61 6D 65 74 65 72 20 6C the parameter l
000160: 69 73 74 20 28 74 68 65 20 63 6F 6D 70 69 6C 65 ist (the compile
000170: 72 0D 0A 6E 65 76 65 72 20 63 68 65 63 6B 73 20 r..never checks
000180: 70 72 6F 63 65 64 75 72 65 20 63 61 6C 6C 73 20 procedure calls
000190: 61 67 61 69 6E 73 74 20 74 68 65 69 72 20 64 65 against their de
0001A0: 63 6C 61 72 61 74 69 6F 6E 73 20 61 6E 79 77 61 clarations anywa
0001B0: 79 21 29 2E 0D 0A 57 68 65 6E 20 79 6F 75 20 61 y!)...When you a
0001C0: 63 74 75 61 6C 6C 79 20 77 61 6E 74 20 74 6F 20 ctually want to
0001D0: 64 65 63 6C 61 72 65 20 74 68 65 20 70 72 6F 63 declare the proc
0001E0: 65 64 75 72 65 2C 20 75 73 65 20 74 68 65 20 66 edure, use the f
0001F0: 6F 72 6D 0D 0A 0D 0A 09 70 72 6F 63 65 64 75 72 orm.....procedur
Size : 512 (Real : 512)
000000: 72 73 69 6F 6E 20 2A 29 0D 0A 09 6E 6F 72 77 09 rsion *)...norw.
000010: 3D 20 32 39 3B 09 28 2A 20 6E 75 6D 62 65 72 20 = 29;.(* number
000020: 6F 66 20 72 65 73 65 72 76 65 64 20 77 6F 72 64 of reserved word
000030: 73 20 2A 29 0D 0A 09 61 6C 09 3D 20 38 3B 09 28 s *)...al.= 8;.(
000040: 2A 20 6C 65 6E 67 74 68 20 6F 66 20 69 64 65 6E * length of iden
000050: 74 69 66 69 65 72 73 20 2A 29 0D 0A 09 61 6C 6D tifiers *)...alm
000060: 31 09 3D 20 37 3B 09 28 2A 20 6C 65 6E 67 74 68 1.= 7;.(* length
000070: 20 6F 66 20 69 64 20 6D 69 6E 75 73 20 31 20 2A of id minus 1 *
000080: 29 0D 0A 09 6C 6C 65 6E 09 3D 20 38 30 3B 09 28 )...llen.= 80;.(
000090: 2A 20 6D 61 78 20 69 6E 70 75 74 20 6C 69 6E 65 * max input line
0000A0: 20 6C 65 6E 67 74 68 20 2A 29 0D 0A 09 73 79 6D length *)...sym
0000B0: 61 78 09 3D 20 33 30 30 3B 09 28 2A 20 6D 61 78 ax.= 300;.(* max
0000C0: 20 6E 75 6D 62 65 72 20 6F 66 20 73 79 6D 62 6F number of symbo
0000D0: 6C 20 74 61 62 6C 65 20 65 6E 74 72 79 73 20 2A l table entrys *
0000E0: 29 0D 0A 09 6F 72 64 6D 69 6E 63 68 61 72 20 3D )...ordminchar =
0000F0: 20 30 3B 09 28 2A 20 6D 69 6E 69 6D 75 6D 20 6C 0;.(* minimum l
000100: 65 67 61 6C 20 63 68 61 72 20 6F 72 64 20 76 61 egal char ord va
000110: 6C 75 65 20 2A 29 0D 0A 09 6F 72 64 6D 61 78 63 lue *)...ordmaxc
000120: 68 61 72 20 3D 20 31 32 37 3B 20 28 2A 20 6D 61 har = 127; (* ma
000130: 78 69 6D 75 6D 20 6C 65 67 61 6C 20 63 68 61 72 ximum legal char
000140: 20 6F 72 64 20 76 61 6C 75 65 20 2A 29 0D 0A 09 ord value *)...
000150: 69 6E 74 73 69 7A 65 09 3D 20 32 3B 09 28 2A 20 intsize.= 2;.(*
000160: 73 69 7A 65 20 6F 66 20 69 6E 74 65 67 65 72 20 size of integer
000170: 69 6E 20 73 74 61 63 6B 20 75 6E 69 74 73 20 2A in stack units *
000180: 29 0D 0A 09 63 68 61 72 73 69 7A 65 20 3D 20 31 )...charsize = 1
000190: 3B 09 28 2A 20 73 69 7A 65 20 6F 66 20 63 68 61 ;.(* size of cha
0001A0: 72 61 63 74 65 72 20 2A 29 0D 0A 09 62 6F 6F 6C racter *)...bool
0001B0: 73 69 7A 65 20 3D 20 32 3B 09 28 2A 20 73 69 7A size = 2;.(* siz
0001C0: 65 20 6F 66 20 62 6F 6F 6C 65 61 6E 20 2A 29 0D e of boolean *).
0001D0: 0A 09 61 6C 66 61 73 69 7A 65 20 3D 20 38 3B 09 ..alfasize = 8;.
0001E0: 28 2A 20 73 69 7A 65 20 6F 66 20 61 6C 66 61 20 (* size of alfa
0001F0: 2A 29 0D 0A 09 74 72 75 65 09 3D 20 31 3B 09 28 *)...true.= 1;.(
Size : 512 (Real : 512)
000000: 65 20 66 6F 6F 28 3C 72 65 61 6C 20 70 61 72 61 e foo(<real para
000010: 6D 65 74 65 72 20 6C 69 73 74 3E 29 3B 20 62 61 meter list>); ba
000020: 63 6B 77 61 72 64 3B 0D 0A 0D 0A 54 68 69 73 20 ckward;....This
000030: 67 69 76 65 73 20 74 68 65 20 63 6F 6D 70 69 6C gives the compil
000040: 65 72 20 61 20 68 69 6E 74 20 69 74 20 63 61 6E er a hint it can
000050: 27 74 20 6D 69 73 73 20 74 68 61 74 20 74 68 69 't miss that thi
000060: 73 20 70 72 6F 63 65 64 75 72 65 0D 0A 77 61 73 s procedure..was
000070: 20 66 6F 72 77 61 72 64 20 64 65 63 6C 61 72 65 forward declare
000080: 64 20 65 61 72 6C 69 65 72 21 0D 0A 1A 1A 1A 1A d earlier!......
000090: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 2E 20 20 54 68 65 20 66 6F 72 77 61 72 64 20 70 . The forward p
000110: 61 72 74 20 69 73 20 68 61 6E 64 6C 65 64 20 69 art is handled i
000120: 6E 20 74 68 65 20 6E 6F 72 6D 61 6C 0D 0A 77 61 n the normal..wa
000130: 79 20 65 78 63 65 70 74 20 74 68 61 74 20 79 6F y except that yo
000140: 75 20 44 2D 4F 2D 4E 2D 27 2D 54 20 67 69 76 65 u D-O-N-'-T give
000150: 20 74 68 65 20 70 61 72 61 6D 65 74 65 72 20 6C the parameter l
000160: 69 73 74 20 28 74 68 65 20 63 6F 6D 70 69 6C 65 ist (the compile
000170: 72 0D 0A 6E 65 76 65 72 20 63 68 65 63 6B 73 20 r..never checks
000180: 70 72 6F 63 65 64 75 72 65 20 63 61 6C 6C 73 20 procedure calls
000190: 61 67 61 69 6E 73 74 20 74 68 65 69 72 20 64 65 against their de
0001A0: 63 6C 61 72 61 74 69 6F 6E 73 20 61 6E 79 77 61 clarations anywa
0001B0: 79 21 29 2E 0D 0A 57 68 65 6E 20 79 6F 75 20 61 y!)...When you a
0001C0: 63 74 75 61 6C 6C 79 20 77 61 6E 74 20 74 6F 20 ctually want to
0001D0: 64 65 63 6C 61 72 65 20 74 68 65 20 70 72 6F 63 declare the proc
0001E0: 65 64 75 72 65 2C 20 75 73 65 20 74 68 65 20 66 edure, use the f
0001F0: 6F 72 6D 0D 0A 0D 0A 09 70 72 6F 63 65 64 75 72 orm.....procedur
Size : 512 (Real : 512)
000000: 2A 20 6B 6C 75 64 67 65 20 75 6E 74 69 6C 20 69 * kludge until i
000010: 6D 70 6C 65 6D 65 6E 74 65 64 20 69 6E 20 63 6F mplemented in co
000020: 6D 70 69 6C 65 72 20 2A 29 0D 0A 09 66 61 6C 73 mpiler *)...fals
000030: 65 09 3D 20 30 3B 0D 0A 0D 0A 74 79 70 65 09 73 e.= 0;....type.s
000040: 79 6D 62 6F 6C 09 3D 20 28 09 28 2A 20 73 79 6D ymbol.= (.(* sym
000050: 62 6F 6C 20 74 6F 6B 65 6E 73 20 2A 29 0D 0A 09 bol tokens *)...
000060: 09 6E 75 6C 2C 20 69 64 65 6E 74 2C 20 6E 75 6D .nul, ident, num
000070: 62 65 72 2C 20 63 68 61 72 63 6F 6E 2C 0D 0A 09 ber, charcon,...
000080: 09 70 6C 75 73 2C 20 6D 69 6E 75 73 2C 20 74 69 .plus, minus, ti
000090: 6D 65 73 2C 0D 0A 09 09 73 6C 61 73 68 2C 20 65 mes,....slash, e
0000A0: 71 6C 2C 20 6C 73 73 2C 20 67 74 72 2C 20 6C 70 ql, lss, gtr, lp
0000B0: 61 72 65 6E 2C 20 72 70 61 72 65 6E 2C 0D 0A 09 aren, rparen,...
0000C0: 09 63 6F 6D 6D 61 2C 20 73 65 6D 69 63 6F 6C 6F .comma, semicolo
0000D0: 6E 2C 20 70 65 72 69 6F 64 2C 20 6C 62 72 61 63 n, period, lbrac
0000E0: 6B 2C 20 72 62 72 61 63 6B 2C 0D 0A 09 09 63 6F k, rbrack,....co
0000F0: 6C 6F 6E 2C 20 70 6F 75 6E 64 2C 0D 0A 09 09 61 lon, pound,....a
000100: 6E 64 73 79 6D 2C 20 61 72 72 61 79 73 79 6D 2C ndsym, arraysym,
000110: 0D 0A 09 09 62 65 67 69 6E 73 79 6D 2C 20 63 61 ....beginsym, ca
000120: 73 65 73 79 6D 2C 20 63 6F 6E 73 74 73 79 6D 2C sesym, constsym,
000130: 0D 0A 09 09 64 69 76 73 79 6D 2C 20 64 6F 73 79 ....divsym, dosy
000140: 6D 2C 20 64 6F 77 6E 74 6F 73 79 6D 2C 20 65 6C m, downtosym, el
000150: 73 65 73 79 6D 2C 0D 0A 09 09 65 6E 64 73 79 6D sesym,....endsym
000160: 2C 20 66 6F 72 73 79 6D 2C 20 66 75 6E 63 73 79 , forsym, funcsy
000170: 6D 2C 20 67 65 74 73 79 2C 0D 0A 09 09 69 66 73 m, getsy,....ifs
000180: 79 6D 2C 20 6D 6F 64 73 79 6D 2C 20 6E 6F 74 73 ym, modsym, nots
000190: 79 6D 2C 20 6F 66 73 79 6D 2C 0D 0A 09 09 6F 72 ym, ofsym,....or
0001A0: 73 79 6D 2C 20 70 72 6F 63 73 79 6D 2C 20 70 72 sym, procsym, pr
0001B0: 6F 67 73 79 6D 2C 20 70 75 74 73 79 6D 2C 20 72 ogsym, putsym, r
0001C0: 65 63 6F 72 64 73 79 6D 2C 0D 0A 09 09 72 65 70 ecordsym,....rep
0001D0: 65 61 74 73 79 6D 2C 20 74 68 65 6E 73 79 6D 2C eatsym, thensym,
0001E0: 20 74 6F 73 79 6D 2C 20 74 79 70 65 73 79 6D 2C tosym, typesym,
0001F0: 0D 0A 09 09 75 6E 74 69 6C 73 79 6D 2C 20 76 61 ....untilsym, va
Size : 512 (Real : 512)
000000: 6E 64 65 78 20 6F 66 20 73 79 6D 62 6F 6C 20 74 ndex of symbol t
000010: 61 62 6C 65 20 65 6E 74 72 79 20 66 6F 72 0D 0A able entry for..
000020: 09 20 20 64 65 63 6C 61 72 65 64 20 74 79 70 65 . declared type
000030: 20 6F 66 20 61 72 72 61 79 2E 20 20 74 68 69 73 of array. this
000040: 20 69 73 20 61 20 6B 6C 75 64 67 65 20 74 6F 20 is a kludge to
000050: 73 61 76 65 0D 0A 09 20 20 73 79 6D 62 6F 6C 20 save... symbol
000060: 74 61 62 6C 65 20 73 70 61 63 65 2E 0D 0A 09 2A table space....*
000070: 29 0D 0A 0D 0A 09 28 2A 20 67 6C 6F 62 61 6C 20 ).....(* global
000080: 73 63 61 6E 6E 65 72 20 72 65 73 75 6C 74 20 76 scanner result v
000090: 61 72 69 61 62 6C 65 73 20 2A 29 0D 0A 09 63 63 ariables *)...cc
0000A0: 6C 65 6E 09 3A 20 77 6F 72 64 3B 09 09 28 2A 20 len.: word;..(*
0000B0: 6C 65 6E 67 74 68 20 6F 66 20 6C 61 73 74 20 63 length of last c
0000C0: 68 61 72 61 63 74 65 72 0D 0A 09 09 09 09 20 20 haracter......
0000D0: 20 63 6F 6E 73 74 61 6E 74 20 2A 29 0D 0A 09 63 constant *)...c
0000E0: 68 09 3A 20 77 6F 72 64 3B 09 09 28 2A 20 6C 61 h.: word;..(* la
0000F0: 73 74 20 63 68 61 72 61 63 74 65 72 20 72 65 61 st character rea
000100: 64 20 2A 29 0D 0A 09 73 79 6D 09 3A 20 73 79 6D d *)...sym.: sym
000110: 62 6F 6C 3B 09 28 2A 20 6C 61 73 74 20 73 79 6D bol;.(* last sym
000120: 62 6F 6C 20 72 65 61 64 20 2A 29 0D 0A 09 6E 75 bol read *)...nu
000130: 6D 09 3A 20 77 6F 72 64 3B 09 09 28 2A 20 6C 61 m.: word;..(* la
000140: 73 74 20 6E 75 6D 62 65 72 20 72 65 61 64 20 2A st number read *
000150: 29 0D 0A 09 69 64 09 3A 20 61 6C 66 61 3B 09 09 )...id.: alfa;..
000160: 28 2A 20 6C 61 73 74 20 69 64 65 6E 74 69 66 69 (* last identifi
000170: 65 72 20 72 65 61 64 20 2A 29 0D 0A 0D 0A 09 28 er read *).....(
000180: 2A 20 74 65 6D 70 20 75 73 65 64 20 69 6E 20 67 * temp used in g
000190: 65 74 73 79 6D 20 2A 29 0D 0A 09 61 77 09 3A 20 etsym *)...aw.:
0001A0: 61 6C 61 74 79 70 3B 0D 0A 0D 0A 09 28 2A 20 67 alatyp;.....(* g
0001B0: 6C 6F 62 61 6C 20 70 6F 69 6E 74 65 72 73 20 2A lobal pointers *
0001C0: 29 0D 0A 09 74 78 09 3A 20 77 6F 72 64 3B 09 09 )...tx.: word;..
0001D0: 28 2A 20 69 6E 64 65 78 20 6F 66 20 6C 61 73 74 (* index of last
0001E0: 20 73 74 20 65 6E 74 72 79 20 2A 29 0D 0A 09 6E st entry *)...n
0001F0: 6C 09 3A 20 77 6F 72 64 3B 09 09 28 2A 20 6C 61 l.: word;..(* la
Size : 512 (Real : 512)
000000: 72 73 79 6D 2C 20 77 68 69 6C 65 73 79 6D 0D 0A rsym, whilesym..
000010: 09 09 29 3B 0D 0A 09 6F 62 6A 65 63 74 09 3D 20 ..);...object.=
000020: 28 20 28 2A 20 74 79 70 65 73 20 6F 66 20 73 79 ( (* types of sy
000030: 6D 62 6F 6C 20 74 61 62 6C 65 20 65 6E 74 72 79 mbol table entry
000040: 73 20 2A 29 0D 0A 09 09 6E 6F 74 79 70 65 2C 20 s *)....notype,
000050: 63 6F 6E 73 74 61 6E 74 2C 20 70 72 6F 7A 65 64 constant, prozed
000060: 75 72 65 2C 20 66 75 6E 6B 74 69 6F 6E 2C 0D 0A ure, funktion,..
000070: 09 09 73 69 6D 70 76 61 72 2C 20 61 72 72 61 79 ..simpvar, array
000080: 76 61 72 2C 20 74 69 70 65 2C 20 73 69 6D 70 74 var, tipe, simpt
000090: 79 70 65 2C 20 76 61 72 70 61 72 6D 0D 0A 09 09 ype, varparm....
0000A0: 29 3B 0D 0A 09 70 6F 70 73 09 3D 20 28 20 28 2A );...pops.= ( (*
0000B0: 20 70 2D 6F 70 20 63 6F 64 65 73 20 2A 29 0D 0A p-op codes *)..
0000C0: 09 09 63 61 6C 2C 20 6A 70 63 2C 20 6A 6D 70 2C ..cal, jpc, jmp,
0000D0: 20 6C 69 74 2C 20 6F 70 72 2C 20 6C 6F 64 2C 20 lit, opr, lod,
0000E0: 73 74 6F 2C 20 69 6E 74 2C 0D 0A 09 09 63 73 70 sto, int,....csp
0000F0: 2C 20 6C 6F 64 78 2C 20 73 74 6F 78 2C 20 61 6C , lodx, stox, al
000100: 69 74 2C 20 61 6C 6F 64 2C 20 61 73 74 6F 2C 0D it, alod, asto,.
000110: 0A 09 09 61 6C 6F 64 78 2C 20 61 73 74 6F 78 2C ...alodx, astox,
000120: 20 70 73 68 66 2C 20 63 6C 6F 64 2C 20 63 73 74 pshf, clod, cst
000130: 6F 2C 0D 0A 09 09 63 6C 6F 64 78 2C 20 63 73 74 o,....clodx, cst
000140: 6F 78 2C 20 68 61 6C 74 2C 20 6C 61 62 2C 0D 0A ox, halt, lab,..
000150: 09 09 70 65 6F 66 2C 20 28 2A 20 65 6E 64 20 6F ..peof, (* end o
000160: 66 20 70 2D 63 6F 64 65 20 66 69 6C 65 20 2A 29 f p-code file *)
000170: 0D 0A 09 09 6C 61 61 2C 20 6C 6F 64 69 2C 20 73 ....laa, lodi, s
000180: 74 6F 69 2C 20 63 6C 6F 64 69 2C 20 63 73 74 6F toi, clodi, csto
000190: 69 2C 20 61 6C 6F 64 69 2C 20 61 73 74 6F 69 2C i, alodi, astoi,
0001A0: 0D 0A 09 09 69 6E 64 78 2C 20 61 69 6E 64 78 2C ....indx, aindx,
0001B0: 20 63 69 6E 64 78 0D 0A 09 09 29 3B 0D 0A 09 65 cindx....);...e
0001C0: 78 70 74 79 70 09 3D 20 28 20 28 2A 20 70 6F 73 xptyp.= ( (* pos
0001D0: 73 69 62 6C 65 20 65 78 70 72 65 73 73 69 6F 6E sible expression
0001E0: 20 74 79 70 65 73 20 2A 29 0D 0A 09 09 77 75 72 types *)....wur
0001F0: 64 2C 20 61 6C 70 68 61 2C 20 63 68 61 72 73 2C d, alpha, chars,
Size : 512 (Real : 512)
000000: 73 74 20 61 73 73 69 67 6E 65 64 20 6C 61 62 65 st assigned labe
000010: 6C 20 6E 75 6D 62 65 72 20 2A 29 0D 0A 0D 0A 09 l number *).....
000020: 65 72 72 66 6C 61 67 09 3A 20 77 6F 72 64 3B 09 errflag.: word;.
000030: 09 28 2A 20 65 72 72 6F 72 20 6F 63 63 75 72 65 .(* error occure
000040: 64 20 69 6E 20 6C 61 73 74 20 6C 69 6E 65 20 2A d in last line *
000050: 29 0D 0A 09 6C 69 73 74 69 6E 67 09 3A 20 77 6F )...listing.: wo
000060: 72 64 3B 09 09 28 2A 20 31 33 20 69 66 20 6E 6F rd;..(* 13 if no
000070: 20 6C 69 73 74 69 6E 67 20 77 61 6E 74 65 64 20 listing wanted
000080: 2A 29 0D 0A 0D 0A 09 65 72 65 73 74 79 70 09 3A *).....erestyp.:
000090: 20 65 78 70 74 79 70 3B 09 28 2A 20 72 65 73 75 exptyp;.(* resu
0000A0: 6C 74 20 74 79 70 65 20 6F 66 20 65 78 70 72 65 lt type of expre
0000B0: 73 73 69 6F 6E 20 2A 29 0D 0A 0D 0A 09 28 2A 20 ssion *).....(*
0000C0: 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 73 global variables
0000D0: 20 66 6F 72 20 70 72 6F 63 65 64 75 72 65 20 67 for procedure g
0000E0: 65 74 73 79 6D 20 66 6F 72 20 73 70 65 65 64 20 etsym for speed
0000F0: 2A 29 0D 0A 09 67 73 69 2C 20 67 73 6B 2C 20 67 *)...gsi, gsk, g
000100: 73 6A 09 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 28 sj.: word;.....(
000110: 2A 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C * global variabl
000120: 65 73 20 66 6F 72 20 66 75 6E 63 74 69 6F 6E 20 es for function
000130: 70 6F 73 69 74 69 6F 6E 20 66 6F 72 20 73 70 65 position for spe
000140: 65 64 20 2A 29 0D 0A 09 70 6F 73 69 09 3A 20 77 ed *)...posi.: w
000150: 6F 72 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ord;....procedur
000160: 65 20 65 72 72 6F 72 28 6E 3A 20 77 6F 72 64 29 e error(n: word)
000170: 3B 20 28 2A 20 70 61 72 61 6D 65 74 65 72 20 69 ; (* parameter i
000180: 73 20 65 72 72 6F 72 20 6E 75 6D 62 65 72 20 2A s error number *
000190: 29 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 65 72 ).....begin...er
0001A0: 72 66 6C 61 67 3A 3D 74 72 75 65 3B 0D 0A 09 70 rflag:=true;...p
0001B0: 75 74 23 31 28 27 3E 27 2C 27 3E 27 2C 6E 23 2C ut#1('>','>',n#,
0001C0: 37 2C 27 3C 27 2C 27 3C 27 29 0D 0A 09 65 6E 64 7,'<','<')...end
0001D0: 3B 0D 0A 0D 0A 28 2A 20 73 63 61 6E 20 6E 65 78 ;....(* scan nex
0001E0: 74 20 74 6F 6B 65 6E 20 66 72 6F 6D 20 69 6E 70 t token from inp
0001F0: 75 74 20 73 74 72 65 61 6D 2E 20 20 73 65 74 20 ut stream. set
Size : 512 (Real : 512)
000000: 20 64 6F 6E 74 63 61 72 65 0D 0A 09 09 29 3B 0D dontcare....);.
000010: 0A 0D 0A 09 28 2A 20 64 65 66 69 6E 65 20 61 6C ....(* define al
000020: 6C 20 61 72 72 61 79 20 74 79 70 65 73 20 6E 65 l array types ne
000030: 65 64 65 64 0D 0A 09 74 68 69 73 20 69 73 20 61 eded...this is a
000040: 20 74 65 6D 70 6F 72 61 72 79 20 6B 6C 75 64 67 temporary kludg
000050: 65 20 75 6E 74 69 6C 20 74 68 65 20 63 6F 6D 70 e until the comp
000060: 69 6C 65 72 0D 0A 09 77 69 6C 6C 20 61 63 63 65 iler...will acce
000070: 70 74 20 61 72 72 61 79 73 20 69 6E 20 76 61 72 pt arrays in var
000080: 20 64 65 63 6C 61 72 61 74 69 6F 6E 73 0D 0A 09 declarations...
000090: 2A 29 0D 0A 0D 0A 09 72 77 77 74 79 70 09 3D 20 *).....rwwtyp.=
0000A0: 61 72 72 61 79 5B 30 2E 2E 6E 6F 72 77 5D 20 20 array[0..norw]
0000B0: 20 6F 66 20 77 6F 72 64 3B 0D 0A 09 72 77 61 74 of word;...rwat
0000C0: 79 70 09 3D 20 61 72 72 61 79 5B 30 2E 2E 6E 6F yp.= array[0..no
0000D0: 72 77 5D 20 20 20 6F 66 20 61 6C 66 61 3B 0D 0A rw] of alfa;..
0000E0: 09 61 6C 61 74 79 70 09 3D 20 61 72 72 61 79 5B .alatyp.= array[
0000F0: 30 2E 2E 61 6C 6D 31 5D 20 20 20 20 6F 66 20 77 0..alm1] of w
000100: 6F 72 64 3B 0D 0A 09 63 68 61 74 79 70 09 3D 20 ord;...chatyp.=
000110: 61 72 72 61 79 5B 6F 72 64 6D 69 6E 63 68 61 72 array[ordminchar
000120: 2E 2E 6F 72 64 6D 61 78 63 68 61 72 5D 20 6F 66 ..ordmaxchar] of
000130: 20 77 6F 72 64 3B 0D 0A 09 6C 69 6E 65 74 79 70 word;...linetyp
000140: 09 3D 20 61 72 72 61 79 5B 30 2E 2E 6C 6C 65 6E .= array[0..llen
000150: 5D 20 20 20 6F 66 20 77 6F 72 64 3B 0D 0A 09 73 ] of word;...s
000160: 74 61 74 79 70 09 3D 20 61 72 72 61 79 5B 30 2E tatyp.= array[0.
000170: 2E 73 79 6D 61 78 5D 20 20 6F 66 20 61 6C 66 61 .symax] of alfa
000180: 3B 0D 0A 09 73 74 77 74 79 70 09 3D 20 61 72 72 ;...stwtyp.= arr
000190: 61 79 5B 30 2E 2E 73 79 6D 61 78 5D 20 20 6F 66 ay[0..symax] of
0001A0: 20 77 6F 72 64 3B 0D 0A 09 0D 0A 76 61 72 0D 0A word;.....var..
0001B0: 09 28 2A 20 69 6E 64 65 78 65 64 20 62 79 20 72 .(* indexed by r
0001C0: 65 73 65 72 76 65 64 20 77 6F 72 64 20 6E 75 6D eserved word num
0001D0: 62 65 72 20 2A 29 0D 0A 09 77 73 79 6D 09 3A 20 ber *)...wsym.:
0001E0: 72 77 77 74 79 70 3B 09 28 2A 20 67 69 76 65 73 rwwtyp;.(* gives
0001F0: 20 74 6F 6B 65 6E 20 6F 66 20 74 79 70 65 20 73 token of type s
Size : 512 (Real : 512)
000000: 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 73 global variables
000010: 0D 0A 62 61 73 65 64 20 6F 6E 20 72 65 73 75 6C ..based on resul
000020: 74 20 6F 66 20 73 63 61 6E 2E 0D 0A 74 6F 6B 65 t of scan...toke
000030: 6E 20 73 63 61 6E 65 64 0D 0A 3D 3D 3D 3D 3D 3D n scaned..======
000040: 3D 3D 3D 3D 3D 3D 0D 0A 69 64 65 6E 74 69 66 69 ======..identifi
000050: 65 72 09 73 79 6D 3D 69 64 65 6E 74 2C 20 69 64 er.sym=ident, id
000060: 3D 3C 76 61 6C 75 65 20 6F 66 20 69 64 65 6E 74 =<value of ident
000070: 69 66 69 65 72 3E 0D 0A 6E 75 6D 62 65 72 09 09 ifier>..number..
000080: 73 79 6D 3D 6E 75 6D 62 65 72 2C 20 6E 75 6D 3D sym=number, num=
000090: 3C 76 61 6C 75 65 20 6F 66 20 6E 75 6D 62 65 72 <value of number
0000A0: 3E 0D 0A 63 68 61 72 61 63 74 65 72 20 63 6F 6E >..character con
0000B0: 73 74 09 73 79 6D 3D 63 68 61 72 63 6F 6E 2C 20 st.sym=charcon,
0000C0: 63 63 6C 65 6E 3D 3C 6C 65 6E 67 74 68 20 6F 66 cclen=<length of
0000D0: 20 63 6F 6E 73 74 61 6E 74 3E 2C 0D 0A 09 09 63 constant>,....c
0000E0: 63 6F 6E 3D 3C 63 68 61 72 61 63 74 65 72 73 20 con=<characters
0000F0: 6F 66 20 63 6F 6E 73 74 61 6E 74 3E 0D 0A 73 70 of constant>..sp
000100: 65 63 69 61 6C 20 73 79 6D 62 6F 6C 09 73 79 6D ecial symbol.sym
000110: 3D 3C 74 6F 6B 65 6E 20 66 6F 72 20 73 70 65 63 =<token for spec
000120: 69 61 6C 20 73 79 6D 62 6F 6C 3E 0D 0A 72 65 73 ial symbol>..res
000130: 72 65 76 65 64 20 77 6F 72 64 09 73 79 6D 3D 3C reved word.sym=<
000140: 74 6F 6B 65 6E 20 66 6F 72 20 72 65 73 65 72 76 token for reserv
000150: 65 64 20 77 6F 72 64 3E 0D 0A 2A 29 0D 0A 0D 0A ed word>..*)....
000160: 70 72 6F 63 65 64 75 72 65 20 67 65 74 73 79 6D procedure getsym
000170: 3B 0D 0A 09 0D 0A 09 28 2A 20 73 65 65 20 67 6C ;......(* see gl
000180: 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 73 20 66 obal variables f
000190: 6F 72 20 6C 6F 63 61 6C 20 76 61 72 20 64 65 63 or local var dec
0001A0: 6C 61 72 61 74 69 6F 6E 20 2A 29 0D 0A 0D 0A 09 laration *).....
0001B0: 70 72 6F 63 65 64 75 72 65 20 67 65 74 63 68 3B procedure getch;
0001C0: 0D 0A 09 0D 0A 09 09 62 65 67 69 6E 0D 0A 09 09 .......begin....
0001D0: 67 65 74 23 30 28 63 68 29 3B 0D 0A 09 09 69 66 get#0(ch);....if
0001E0: 20 6C 69 73 74 69 6E 67 3C 3E 31 33 20 74 68 65 listing<>13 the
0001F0: 6E 20 70 75 74 23 31 28 63 68 29 3B 0D 0A 09 09 n put#1(ch);....
Size : 512 (Real : 512)
000000: 79 6D 62 6F 6C 20 2A 29 0D 0A 09 72 77 6F 72 64 ymbol *)...rword
000010: 09 3A 20 72 77 61 74 79 70 3B 09 28 2A 20 68 6F .: rwatyp;.(* ho
000020: 6C 64 73 20 72 65 73 65 72 76 65 64 20 77 6F 72 lds reserved wor
000030: 64 20 69 6E 20 6F 72 64 65 72 20 2A 29 0D 0A 0D d in order *)...
000040: 0A 09 28 2A 20 69 6E 64 65 78 65 64 20 62 79 20 ..(* indexed by
000050: 61 73 63 69 69 20 63 68 61 72 61 63 74 65 72 20 ascii character
000060: 76 61 6C 75 65 20 2A 29 0D 0A 09 73 73 79 6D 09 value *)...ssym.
000070: 3A 20 63 68 61 74 79 70 3B 09 28 2A 20 67 69 76 : chatyp;.(* giv
000080: 65 73 20 74 6F 6B 65 6E 20 6F 66 20 74 79 70 65 es token of type
000090: 20 73 79 62 6F 6C 20 2A 29 0D 0A 0D 0A 09 28 2A sybol *).....(*
0000A0: 20 69 6E 64 65 78 65 64 20 62 79 20 63 68 61 72 indexed by char
0000B0: 61 63 74 65 72 20 6E 75 6D 62 65 72 20 30 20 2E acter number 0 .
0000C0: 2E 20 2A 29 0D 0A 09 63 63 6F 6E 09 3A 20 6C 69 . *)...ccon.: li
0000D0: 6E 65 74 79 70 3B 09 28 2A 20 6C 61 73 74 20 63 netyp;.(* last c
0000E0: 68 61 72 61 63 74 65 72 20 63 6F 6E 73 74 61 6E haracter constan
0000F0: 74 20 72 65 61 64 20 2A 29 0D 0A 0D 0A 09 28 2A t read *).....(*
000100: 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 2A 29 symbol table *)
000110: 0D 0A 09 28 2A 20 69 6E 64 65 78 65 64 20 62 79 ...(* indexed by
000120: 20 74 78 20 2A 29 0D 0A 09 73 74 6E 61 6D 65 09 tx *)...stname.
000130: 3A 20 73 74 61 74 79 70 3B 09 28 2A 20 73 79 6D : statyp;.(* sym
000140: 62 6F 6C 20 74 61 62 6C 65 20 65 6E 74 72 79 20 bol table entry
000150: 6E 61 6D 65 20 2A 29 0D 0A 09 73 74 6B 69 6E 64 name *)...stkind
000160: 09 3A 20 73 74 77 74 79 70 3B 09 28 2A 20 73 79 .: stwtyp;.(* sy
000170: 6D 62 6F 6C 20 74 61 62 6C 65 20 65 6E 74 72 79 mbol table entry
000180: 20 6B 69 6E 64 20 2A 29 0D 0A 09 73 74 6C 65 76 kind *)...stlev
000190: 09 3A 20 73 74 77 74 79 70 3B 09 28 2A 20 73 79 .: stwtyp;.(* sy
0001A0: 6D 62 6F 6C 20 74 61 62 6C 65 20 65 6E 74 72 79 mbol table entry
0001B0: 20 6C 65 76 65 6C 20 2A 29 0D 0A 09 73 74 61 64 level *)...stad
0001C0: 72 09 3A 20 73 74 77 74 79 70 3B 09 28 2A 20 73 r.: stwtyp;.(* s
0001D0: 79 6D 62 6F 6C 20 74 61 62 6C 65 20 61 64 64 72 ymbol table addr
0001E0: 65 73 73 20 2A 29 0D 0A 09 73 74 6C 65 6E 09 3A ess *)...stlen.:
0001F0: 20 73 74 77 74 79 70 3B 09 28 2A 20 73 79 6D 62 stwtyp;.(* symb
Size : 512 (Real : 512)
000000: 69 66 20 63 68 3E 3D 39 37 20 74 68 65 6E 20 63 if ch>=97 then c
000010: 68 3A 3D 63 68 2D 33 32 3B 0D 0A 09 09 69 66 20 h:=ch-32;....if
000020: 63 68 3C 33 32 20 74 68 65 6E 20 62 65 67 69 6E ch<32 then begin
000030: 20 28 2A 20 74 68 69 73 20 69 73 20 66 6F 72 20 (* this is for
000040: 73 70 65 65 64 20 2A 29 0D 0A 09 09 09 69 66 20 speed *).....if
000050: 63 68 3D 31 33 20 74 68 65 6E 20 62 65 67 69 6E ch=13 then begin
000060: 0D 0A 09 09 09 09 28 2A 20 67 65 74 20 26 20 69 ......(* get & i
000070: 67 6E 6F 72 65 20 74 68 65 20 6C 69 6E 65 20 66 gnore the line f
000080: 65 65 64 20 2A 29 0D 0A 09 09 09 09 67 65 74 23 eed *)......get#
000090: 30 28 63 68 29 3B 20 69 66 20 6C 69 73 74 69 6E 0(ch); if listin
0000A0: 67 3C 3E 31 33 20 74 68 65 6E 0D 0A 09 09 09 09 g<>13 then......
0000B0: 20 20 70 75 74 23 31 28 63 68 29 3B 0D 0A 09 09 put#1(ch);....
0000C0: 09 09 69 66 20 65 72 72 66 6C 61 67 3D 74 72 75 ..if errflag=tru
0000D0: 65 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 e then begin....
0000E0: 09 09 20 20 65 72 72 66 6C 61 67 3A 3D 66 61 6C .. errflag:=fal
0000F0: 73 65 3B 0D 0A 09 09 09 09 20 20 70 75 74 23 31 se;...... put#1
000100: 28 27 2A 2A 2A 2A 2A 2A 2A 2A 27 2C 31 33 2C 31 ('********',13,1
000110: 30 29 3B 0D 0A 09 09 09 09 20 20 67 65 74 23 31 0);...... get#1
000120: 28 63 68 29 0D 0A 09 09 09 09 20 20 65 6E 64 0D (ch)...... end.
000130: 0A 09 09 09 09 65 6E 64 3B 0D 0A 09 09 09 63 68 .....end;.....ch
000140: 3A 3D 33 32 0D 0A 09 09 09 65 6E 64 0D 0A 09 09 :=32.....end....
000150: 65 6E 64 3B 20 28 2A 20 67 65 74 63 68 20 2A 29 end; (* getch *)
000160: 0D 0A 09 0D 0A 09 62 65 67 69 6E 20 28 2A 20 67 ......begin (* g
000170: 65 74 73 79 6D 20 2A 29 0D 0A 09 77 68 69 6C 65 etsym *)...while
000180: 20 63 68 3D 27 20 27 20 64 6F 20 67 65 74 63 68 ch=' ' do getch
000190: 3B 0D 0A 09 69 66 20 28 63 68 3E 3D 27 41 27 29 ;...if (ch>='A')
0001A0: 20 61 6E 64 20 28 63 68 3C 3D 27 5A 27 29 20 74 and (ch<='Z') t
0001B0: 68 65 6E 0D 0A 09 09 62 65 67 69 6E 20 28 2A 20 hen....begin (*
0001C0: 69 64 20 6F 72 20 72 65 73 65 72 76 65 64 20 77 id or reserved w
0001D0: 6F 72 64 20 2A 29 0D 0A 09 09 67 73 6B 3A 3D 30 ord *)....gsk:=0
0001E0: 3B 0D 0A 09 09 72 65 70 65 61 74 09 69 66 20 67 ;....repeat.if g
0001F0: 73 6B 3C 61 6C 20 74 68 65 6E 0D 0A 09 09 09 09 sk<al then......
Size : 512 (Real : 512)
000000: 6F 6C 20 74 61 62 6C 65 20 6C 65 6E 67 74 68 20 ol table length
000010: 2A 29 0D 0A 09 28 2A 20 73 74 6E 61 6D 65 20 61 *)...(* stname a
000020: 6C 6C 77 61 79 73 20 63 6F 6E 74 61 69 6E 73 20 llways contains
000030: 6E 61 6D 65 2C 20 63 6F 6E 74 65 6E 74 73 20 6F name, contents o
000040: 66 20 73 74 6B 69 6E 64 0D 0A 09 20 20 64 65 74 f stkind... det
000050: 65 72 6D 69 6E 65 73 20 6D 65 61 6E 69 6E 67 20 ermines meaning
000060: 6F 66 20 6F 74 68 65 72 20 61 72 72 61 79 73 3A of other arrays:
000070: 0D 0A 09 20 20 73 74 6B 69 6E 64 09 73 74 6C 65 ... stkind.stle
000080: 76 09 09 73 74 61 64 72 09 09 73 74 6C 65 6E 0D v..stadr..stlen.
000090: 0A 09 20 20 3D 3D 3D 3D 3D 3D 09 3D 3D 3D 3D 3D .. ======.=====
0000A0: 09 09 3D 3D 3D 3D 3D 09 09 3D 3D 3D 3D 3D 0D 0A ..=====..=====..
0000B0: 09 20 20 63 6F 6E 73 74 61 6E 74 09 30 3D 64 65 . constant.0=de
0000C0: 63 6C 61 72 65 64 09 63 6F 6E 73 74 20 76 61 6C clared.const val
0000D0: 75 65 09 2D 2D 0D 0A 09 09 09 31 3D 73 63 61 6C ue.--.....1=scal
0000E0: 61 72 20 65 6C 65 6D 65 6E 74 0D 0A 09 20 20 70 ar element... p
0000F0: 72 6F 7A 65 64 75 72 65 09 6C 65 78 69 63 61 6C rozedure.lexical
000100: 20 6C 65 76 65 6C 09 6C 61 62 65 6C 20 6E 75 6D level.label num
000110: 62 65 72 09 70 61 72 6D 20 6C 65 6E 0D 0A 09 20 ber.parm len...
000120: 20 66 75 6E 6B 74 69 6F 6E 09 22 09 09 22 09 09 funktion.".."..
000130: 22 0D 0A 09 20 20 73 69 6D 70 76 61 72 09 6C 65 "... simpvar.le
000140: 78 69 63 61 6C 20 6C 65 76 65 6C 09 73 74 61 63 xical level.stac
000150: 6B 20 64 69 73 70 09 6C 65 6E 67 74 68 0D 0A 09 k disp.length...
000160: 20 20 61 72 72 61 79 76 61 72 09 6C 65 78 69 63 arrayvar.lexic
000170: 61 6C 20 6C 65 76 65 6C 09 62 61 73 65 20 73 74 al level.base st
000180: 61 63 6B 20 64 69 73 70 09 74 79 70 65 20 70 74 ack disp.type pt
000190: 72 0D 0A 09 20 20 73 69 6D 70 74 79 70 65 09 2D r... simptype.-
0001A0: 2D 09 09 63 61 72 64 69 6E 61 6C 69 74 79 09 6C -..cardinality.l
0001B0: 65 6E 67 74 68 0D 0A 09 20 20 74 69 70 65 09 09 ength... tipe..
0001C0: 30 3D 61 72 72 61 79 09 09 65 6C 65 6D 65 6E 74 0=array..element
0001D0: 20 6C 65 6E 67 74 68 09 74 6F 74 61 6C 20 6C 65 length.total le
0001E0: 6E 67 74 68 0D 0A 0D 0A 09 20 20 6E 6F 74 65 73 ngth..... notes
0001F0: 3A 20 20 74 79 70 65 20 70 74 72 20 69 73 20 69 : type ptr is i
Size : 512 (Real : 512)
000000: 62 65 67 69 6E 0D 0A 09 09 09 09 61 77 5B 67 73 begin......aw[gs
000010: 6B 5D 3A 3D 63 68 3B 20 67 73 6B 3A 3D 67 73 6B k]:=ch; gsk:=gsk
000020: 2B 31 0D 0A 09 09 09 09 65 6E 64 3B 0D 0A 09 09 +1......end;....
000030: 09 67 65 74 63 68 0D 0A 09 09 75 6E 74 69 6C 20 .getch....until
000040: 28 28 63 68 3C 27 41 27 29 6F 72 28 63 68 3E 27 ((ch<'A')or(ch>'
000050: 5A 27 29 29 61 6E 64 28 28 63 68 3C 27 30 27 29 Z'))and((ch<'0')
000060: 6F 72 28 63 68 3E 27 39 27 29 29 3B 0D 0A 09 09 or(ch>'9'));....
000070: 28 2A 20 62 6C 61 6E 6B 20 72 65 6D 61 69 6E 64 (* blank remaind
000080: 65 72 20 6F 66 20 61 77 20 2A 29 0D 0A 09 09 77 er of aw *)....w
000090: 68 69 6C 65 20 67 73 6B 3C 61 6C 20 64 6F 20 62 hile gsk<al do b
0000A0: 65 67 69 6E 20 61 77 5B 67 73 6B 5D 3A 3D 27 20 egin aw[gsk]:='
0000B0: 27 3B 20 67 73 6B 3A 3D 67 73 6B 2B 31 20 65 6E '; gsk:=gsk+1 en
0000C0: 64 3B 0D 0A 09 09 28 2A 20 70 61 63 6B 20 61 77 d;....(* pack aw
0000D0: 20 77 6F 72 64 20 61 72 72 61 79 20 69 6E 74 6F word array into
0000E0: 20 61 20 61 6C 66 61 20 73 69 6D 70 6C 65 20 76 a alfa simple v
0000F0: 61 72 69 61 62 6C 65 20 2A 29 0D 0A 09 09 67 73 ariable *)....gs
000100: 6A 3A 3D 30 3B 0D 0A 09 09 66 6F 72 20 67 73 69 j:=0;....for gsi
000110: 3A 3D 30 20 74 6F 20 33 20 64 6F 20 62 65 67 69 :=0 to 3 do begi
000120: 6E 0D 0A 09 09 09 69 64 5B 67 73 69 5D 3A 3D 61 n.....id[gsi]:=a
000130: 77 5B 67 73 6A 5D 2B 61 77 5B 67 73 6A 2B 31 5D w[gsj]+aw[gsj+1]
000140: 2A 32 35 36 3B 0D 0A 09 09 09 67 73 6A 3A 3D 67 *256;.....gsj:=g
000150: 73 6A 2B 32 0D 0A 09 09 09 65 6E 64 3B 0D 0A 09 sj+2.....end;...
000160: 09 28 2A 20 70 65 72 66 6F 72 6D 20 62 69 6E 61 .(* perform bina
000170: 72 79 20 73 65 61 72 63 68 20 66 6F 72 20 73 79 ry search for sy
000180: 6D 62 6F 6C 20 69 6E 20 72 77 6F 72 64 20 2A 29 mbol in rword *)
000190: 0D 0A 09 09 67 73 69 3A 3D 31 3B 20 67 73 6A 3A ....gsi:=1; gsj:
0001A0: 3D 6E 6F 72 77 3B 0D 0A 09 09 72 65 70 65 61 74 =norw;....repeat
0001B0: 09 67 73 6B 3A 3D 28 67 73 69 2B 67 73 6A 29 2F .gsk:=(gsi+gsj)/
0001C0: 32 3B 0D 0A 09 09 09 69 66 20 69 64 3C 3D 72 77 2;.....if id<=rw
0001D0: 6F 72 64 5B 67 73 6B 5D 20 74 68 65 6E 20 67 73 ord[gsk] then gs
0001E0: 6A 3A 3D 67 73 6B 2D 31 3B 0D 0A 09 09 09 69 66 j:=gsk-1;.....if
0001F0: 20 69 64 3E 3D 72 77 6F 72 64 5B 67 73 6B 5D 20 id>=rword[gsk]
Size : 512 (Real : 512)
000000: 77 6F 72 64 29 3B 0D 0A 0D 0A 09 76 61 72 09 28 word);.....var.(
000010: 2A 20 76 61 6C 75 65 73 20 72 65 74 75 72 6E 65 * values returne
000020: 64 20 62 79 20 74 79 70 20 2A 29 0D 0A 09 09 74 d by typ *)....t
000030: 74 79 70 65 09 3A 20 6F 62 6A 65 63 74 3B 20 28 type.: object; (
000040: 2A 20 74 79 70 65 20 74 79 70 65 20 28 73 69 6D * type type (sim
000050: 70 6C 65 20 6F 72 20 6E 6F 74 29 20 2A 29 0D 0A ple or not) *)..
000060: 09 09 74 61 64 72 09 3A 20 77 6F 72 64 3B 0D 0A ..tadr.: word;..
000070: 09 09 74 6C 65 6E 09 3A 20 77 6F 72 64 3B 0D 0A ..tlen.: word;..
000080: 0D 0A 09 09 64 78 09 3A 20 77 6F 72 64 3B 20 28 ....dx.: word; (
000090: 2A 20 64 61 74 61 20 61 6C 6C 6F 63 61 74 69 6F * data allocatio
0000A0: 6E 20 69 6E 64 65 78 20 2A 29 0D 0A 09 09 70 78 n index *)....px
0000B0: 09 3A 20 77 6F 72 64 3B 20 28 2A 20 70 61 72 61 .: word; (* para
0000C0: 6D 65 74 65 72 20 61 6C 6C 6F 63 61 74 69 6F 6E meter allocation
0000D0: 20 69 6E 64 65 78 20 2A 29 0D 0A 09 09 62 74 79 index *)....bty
0000E0: 70 65 09 3A 20 6F 62 6A 65 63 74 3B 20 28 2A 20 pe.: object; (*
0000F0: 62 6C 6F 63 6B 20 74 79 70 65 20 28 66 75 6E 63 block type (func
000100: 20 6F 72 20 70 72 6F 63 29 20 2A 29 0D 0A 09 09 or proc) *)....
000110: 74 78 30 09 3A 20 77 6F 72 64 3B 09 28 2A 20 74 tx0.: word;.(* t
000120: 61 62 6C 65 20 69 6E 64 65 78 20 61 74 20 73 74 able index at st
000130: 61 72 74 20 6F 66 20 62 6C 6F 63 6B 20 2A 29 0D art of block *).
000140: 0A 09 09 74 78 31 09 3A 20 77 6F 72 64 3B 09 28 ...tx1.: word;.(
000150: 2A 20 74 61 62 6C 65 20 69 6E 64 65 78 20 61 74 * table index at
000160: 20 73 74 61 72 74 20 6F 66 0D 0A 09 09 09 09 6E start of......n
000170: 65 73 74 65 64 20 70 72 6F 63 2F 66 75 6E 63 20 ested proc/func
000180: 2A 29 0D 0A 09 09 69 09 3A 20 77 6F 72 64 3B 09 *)....i.: word;.
000190: 28 2A 20 74 65 6D 70 20 75 73 65 64 20 69 6E 20 (* temp used in
0001A0: 66 77 64 20 72 65 66 20 2A 29 0D 0A 0D 0A 09 28 fwd ref *).....(
0001B0: 2A 20 65 6D 69 74 20 74 68 65 20 70 2D 69 6E 73 * emit the p-ins
0001C0: 74 72 75 63 74 69 6F 6E 20 70 61 73 73 65 64 20 truction passed
0001D0: 69 6E 20 74 68 65 20 66 69 72 73 74 20 61 72 67 in the first arg
0001E0: 75 6D 65 6E 74 2C 0D 0A 09 74 61 6B 69 6E 67 20 ument,...taking
0001F0: 74 68 65 20 6C 65 76 65 6C 20 61 6E 64 20 61 64 the level and ad
Size : 512 (Real : 512)
000000: 74 68 65 6E 20 67 73 69 3A 3D 67 73 6B 2B 31 0D then gsi:=gsk+1.
000010: 0A 09 09 75 6E 74 69 6C 20 67 73 69 3E 67 73 6A ...until gsi>gsj
000020: 3B 0D 0A 09 09 69 66 20 67 73 69 2D 31 3E 67 73 ;....if gsi-1>gs
000030: 6A 20 74 68 65 6E 20 73 79 6D 3A 3D 77 73 79 6D j then sym:=wsym
000040: 5B 67 73 6B 5D 20 65 6C 73 65 20 73 79 6D 3A 3D [gsk] else sym:=
000050: 69 64 65 6E 74 0D 0A 09 09 65 6E 64 0D 0A 09 65 ident....end...e
000060: 6C 73 65 20 69 66 20 28 63 68 3E 3D 27 30 27 29 lse if (ch>='0')
000070: 20 61 6E 64 20 28 63 68 3C 3D 27 39 27 29 20 74 and (ch<='9') t
000080: 68 65 6E 20 62 65 67 69 6E 20 28 2A 20 6E 75 6D hen begin (* num
000090: 62 65 72 20 2A 29 0D 0A 09 09 6E 75 6D 3A 3D 30 ber *)....num:=0
0000A0: 3B 20 73 79 6D 3A 3D 6E 75 6D 62 65 72 3B 0D 0A ; sym:=number;..
0000B0: 09 09 72 65 70 65 61 74 20 6E 75 6D 3A 3D 6E 75 ..repeat num:=nu
0000C0: 6D 2A 31 30 2B 28 63 68 2D 27 30 27 29 3B 20 67 m*10+(ch-'0'); g
0000D0: 65 74 63 68 0D 0A 09 09 75 6E 74 69 6C 20 28 63 etch....until (c
0000E0: 68 3C 27 30 27 29 20 6F 72 20 28 63 68 3E 27 39 h<'0') or (ch>'9
0000F0: 27 29 0D 0A 09 09 65 6E 64 0D 0A 09 65 6C 73 65 ')....end...else
000100: 20 69 66 20 63 68 3D 27 28 27 20 74 68 65 6E 20 if ch='(' then
000110: 62 65 67 69 6E 0D 0A 09 09 67 65 74 63 68 3B 0D begin....getch;.
000120: 0A 09 09 69 66 20 63 68 3D 27 2A 27 20 74 68 65 ...if ch='*' the
000130: 6E 20 62 65 67 69 6E 20 28 2A 20 69 6E 73 69 64 n begin (* insid
000140: 65 20 6F 66 20 63 6F 6D 6D 65 6E 74 20 2A 29 0D e of comment *).
000150: 0A 09 09 09 72 65 70 65 61 74 0D 0A 09 09 09 09 ....repeat......
000160: 72 65 70 65 61 74 0D 0A 09 09 09 09 09 67 65 74 repeat.......get
000170: 63 68 0D 0A 09 09 09 09 75 6E 74 69 6C 20 63 68 ch......until ch
000180: 3D 27 2A 27 3B 0D 0A 09 09 09 09 67 65 74 63 68 ='*';......getch
000190: 0D 0A 09 09 09 75 6E 74 69 6C 20 63 68 3D 27 29 .....until ch=')
0001A0: 27 3B 0D 0A 09 09 09 67 65 74 63 68 3B 0D 0A 09 ';.....getch;...
0001B0: 09 09 67 65 74 73 79 6D 0D 0A 09 09 09 65 6E 64 ..getsym.....end
0001C0: 0D 0A 09 09 65 6C 73 65 0D 0A 09 09 09 73 79 6D ....else.....sym
0001D0: 3A 3D 6C 70 61 72 65 6E 0D 0A 09 09 65 6E 64 0D :=lparen....end.
0001E0: 0A 09 65 6C 73 65 20 69 66 20 63 68 3D 27 27 27 ..else if ch='''
0001F0: 27 20 74 68 65 6E 20 62 65 67 69 6E 20 28 2A 20 ' then begin (*
Size : 512 (Real : 512)
000000: 64 72 65 73 73 20 66 72 6F 6D 20 74 68 65 20 73 dress from the s
000010: 79 6D 62 6F 6C 20 74 61 62 6C 65 0D 0A 09 65 6E ymbol table...en
000020: 74 72 79 20 70 61 73 73 65 64 20 69 6E 20 74 68 try passed in th
000030: 65 20 73 65 63 6F 6E 64 20 61 72 67 75 6D 65 6E e second argumen
000040: 74 2E 0D 0A 09 2A 29 0D 0A 09 70 72 6F 63 65 64 t....*)...proced
000050: 75 72 65 20 67 65 6E 6C 65 76 28 6F 70 3A 20 70 ure genlev(op: p
000060: 6F 70 73 3B 20 69 3A 20 77 6F 72 64 29 3B 0D 0A ops; i: word);..
000070: 0D 0A 09 09 76 61 72 09 73 74 6C 09 3A 20 77 6F ....var.stl.: wo
000080: 72 64 3B 0D 0A 0D 0A 09 09 62 65 67 69 6E 0D 0A rd;......begin..
000090: 09 09 73 74 6C 3A 3D 73 74 6C 65 76 5B 69 5D 3B ..stl:=stlev[i];
0000A0: 0D 0A 09 09 69 66 20 73 74 6C 3D 31 20 28 2A 20 ....if stl=1 (*
0000B0: 6F 6E 6C 79 20 69 66 20 67 6C 6F 62 61 6C 20 76 only if global v
0000C0: 61 72 69 61 62 6C 65 20 72 65 66 20 2A 29 0D 0A ariable ref *)..
0000D0: 09 09 09 74 68 65 6E 20 67 65 6E 28 6F 70 2C 32 ...then gen(op,2
0000E0: 35 35 2C 73 74 61 64 72 5B 69 5D 29 0D 0A 09 09 55,stadr[i])....
0000F0: 09 65 6C 73 65 20 67 65 6E 28 6F 70 2C 6C 65 76 .else gen(op,lev
000100: 2D 73 74 6C 2C 73 74 61 64 72 5B 69 5D 29 0D 0A -stl,stadr[i])..
000110: 09 09 65 6E 64 3B 20 28 2A 20 67 65 6E 6C 65 76 ..end; (* genlev
000120: 20 2A 29 0D 0A 0D 0A 09 66 75 6E 63 74 69 6F 6E *).....function
000130: 20 63 6F 6D 70 63 6F 6E 3B 20 28 2A 20 72 65 74 compcon; (* ret
000140: 75 72 6E 65 64 20 76 61 6C 75 65 20 69 73 20 61 urned value is a
000150: 20 63 6F 6D 70 69 6C 65 20 74 69 6D 65 20 63 6F compile time co
000160: 6E 73 74 61 6E 74 20 2A 29 0D 0A 0D 0A 09 09 76 nstant *)......v
000170: 61 72 20 09 69 09 3A 20 77 6F 72 64 3B 0D 0A 0D ar .i.: word;...
000180: 0A 09 09 62 65 67 69 6E 0D 0A 09 09 63 61 73 65 ...begin....case
000190: 20 73 79 6D 20 6F 66 0D 0A 09 09 6E 75 6D 62 65 sym of....numbe
0001A0: 72 3A 09 62 65 67 69 6E 20 63 6F 6D 70 63 6F 6E r:.begin compcon
0001B0: 3A 3D 6E 75 6D 3B 20 67 65 74 73 79 6D 20 65 6E :=num; getsym en
0001C0: 64 3B 0D 0A 09 09 63 68 61 72 63 6F 6E 3A 20 62 d;....charcon: b
0001D0: 65 67 69 6E 20 63 6F 6D 70 63 6F 6E 3A 3D 63 63 egin compcon:=cc
0001E0: 6F 6E 5B 30 5D 3B 20 67 65 74 73 79 6D 20 65 6E on[0]; getsym en
0001F0: 64 3B 0D 0A 09 09 69 64 65 6E 74 3A 09 62 65 67 d;....ident:.beg
Size : 512 (Real : 512)
000000: 63 68 61 72 61 63 74 65 72 20 63 6F 6E 73 74 61 character consta
000010: 6E 74 20 2A 29 0D 0A 09 09 73 79 6D 3A 3D 63 68 nt *)....sym:=ch
000020: 61 72 63 6F 6E 3B 20 67 73 6B 3A 3D 30 3B 0D 0A arcon; gsk:=0;..
000030: 09 09 72 65 70 65 61 74 0D 0A 09 09 09 72 65 70 ..repeat.....rep
000040: 65 61 74 0D 0A 09 09 09 09 67 65 74 63 68 3B 0D eat......getch;.
000050: 0A 09 09 09 09 63 63 6F 6E 5B 67 73 6B 5D 3A 3D .....ccon[gsk]:=
000060: 63 68 3B 20 67 73 6B 3A 3D 67 73 6B 2B 31 0D 0A ch; gsk:=gsk+1..
000070: 09 09 09 75 6E 74 69 6C 20 63 68 3D 27 27 27 27 ...until ch=''''
000080: 3B 0D 0A 09 09 09 67 65 74 63 68 0D 0A 09 09 75 ;.....getch....u
000090: 6E 74 69 6C 20 63 68 3C 3E 27 27 27 27 3B 0D 0A ntil ch<>'''';..
0000A0: 09 09 63 63 6C 65 6E 3A 3D 67 73 6B 2D 31 0D 0A ..cclen:=gsk-1..
0000B0: 09 09 65 6E 64 0D 0A 09 65 6C 73 65 20 62 65 67 ..end...else beg
0000C0: 69 6E 20 28 2A 20 73 70 65 63 69 61 6C 20 73 79 in (* special sy
0000D0: 6D 62 6F 6C 20 2A 29 0D 0A 09 09 73 79 6D 3A 3D mbol *)....sym:=
0000E0: 73 73 79 6D 5B 63 68 5D 3B 20 67 65 74 63 68 0D ssym[ch]; getch.
0000F0: 0A 09 09 65 6E 64 0D 0A 65 6E 64 3B 20 28 2A 20 ...end..end; (*
000100: 67 65 74 73 79 6D 20 2A 29 0D 0A 0D 0A 28 2A 20 getsym *)....(*
000110: 74 65 73 74 20 66 6F 72 20 70 72 65 73 65 6E 74 test for present
000120: 20 73 79 6D 62 6F 6C 20 65 71 75 61 6C 20 74 6F symbol equal to
000130: 20 66 69 72 73 74 20 61 72 67 75 6D 65 6E 74 2C first argument,
000140: 20 65 72 72 6F 72 0D 0A 6E 75 6D 62 65 72 20 6F error..number o
000150: 66 20 73 65 63 6F 6E 64 20 61 72 67 75 6D 65 6E f second argumen
000160: 74 20 69 73 20 69 73 73 75 65 64 20 69 66 20 6E t is issued if n
000170: 6F 74 2E 20 20 61 6C 73 6F 20 67 65 74 73 20 6E ot. also gets n
000180: 65 78 74 0D 0A 73 79 6D 62 6F 6C 20 69 66 20 64 ext..symbol if d
000190: 65 73 69 72 65 64 20 73 79 6D 62 6F 6C 20 77 61 esired symbol wa
0001A0: 73 20 70 72 65 73 65 6E 74 0D 0A 2A 29 0D 0A 70 s present..*)..p
0001B0: 72 6F 63 65 64 75 72 65 20 74 65 73 74 28 73 31 rocedure test(s1
0001C0: 2C 20 65 72 72 6E 3A 20 77 6F 72 64 29 3B 0D 0A , errn: word);..
0001D0: 0D 0A 09 62 65 67 69 6E 0D 0A 09 69 66 20 73 79 ...begin...if sy
0001E0: 6D 3C 3E 73 31 20 74 68 65 6E 0D 0A 09 09 65 72 m<>s1 then....er
0001F0: 72 6F 72 28 65 72 72 6E 29 0D 0A 09 65 6C 73 65 ror(errn)...else
Size : 512 (Real : 512)
000000: 69 6E 0D 0A 09 09 09 69 3A 3D 70 6F 73 69 74 69 in.....i:=positi
000010: 6F 6E 3B 0D 0A 09 09 09 69 66 20 73 74 6B 69 6E on;.....if stkin
000020: 64 5B 69 5D 3C 3E 63 6F 6E 73 74 61 6E 74 20 74 d[i]<>constant t
000030: 68 65 6E 20 65 72 72 6F 72 28 31 30 33 29 3B 0D hen error(103);.
000040: 0A 09 09 09 63 6F 6D 70 63 6F 6E 3A 3D 73 74 61 ....compcon:=sta
000050: 64 72 5B 69 5D 3B 0D 0A 09 09 09 67 65 74 73 79 dr[i];.....getsy
000060: 6D 3B 0D 0A 09 09 09 77 68 69 6C 65 20 73 79 6D m;.....while sym
000070: 3D 70 6C 75 73 20 64 6F 20 62 65 67 69 6E 0D 0A =plus do begin..
000080: 09 09 09 09 67 65 74 73 79 6D 3B 0D 0A 09 09 09 ....getsym;.....
000090: 09 63 6F 6D 70 63 6F 6E 3A 3D 73 74 61 64 72 5B .compcon:=stadr[
0000A0: 69 5D 2B 63 6F 6D 70 63 6F 6E 0D 0A 09 09 09 09 i]+compcon......
0000B0: 65 6E 64 0D 0A 09 09 09 65 6E 64 20 28 2A 20 63 end.....end (* c
0000C0: 61 73 65 20 69 64 65 6E 74 20 2A 29 0D 0A 09 09 ase ident *)....
0000D0: 65 6C 73 65 09 65 72 72 6F 72 28 35 30 29 0D 0A else.error(50)..
0000E0: 09 09 65 6E 64 20 28 2A 20 63 61 73 65 20 73 79 ..end (* case sy
0000F0: 6D 20 6F 66 20 2A 29 0D 0A 09 09 65 6E 64 3B 20 m of *)....end;
000100: 28 2A 20 66 75 6E 63 74 69 6F 6E 20 63 6F 6D 70 (* function comp
000110: 63 6F 6E 20 2A 29 0D 0A 0D 0A 09 70 72 6F 63 65 con *).....proce
000120: 64 75 72 65 20 63 6F 6E 73 74 64 63 6C 3B 0D 0A dure constdcl;..
000130: 0D 0A 09 09 76 61 72 09 63 74 78 09 3A 20 77 6F ....var.ctx.: wo
000140: 72 64 3B 0D 0A 0D 0A 09 09 62 65 67 69 6E 0D 0A rd;......begin..
000150: 09 09 74 65 73 74 28 69 64 65 6E 74 2C 32 29 3B ..test(ident,2);
000160: 0D 0A 09 09 65 6E 74 65 72 28 69 64 2C 63 6F 6E ....enter(id,con
000170: 73 74 61 6E 74 2C 30 2C 30 2C 30 29 3B 0D 0A 09 stant,0,0,0);...
000180: 09 63 74 78 3A 3D 74 78 3B 0D 0A 09 09 74 65 73 .ctx:=tx;....tes
000190: 74 28 65 71 6C 2C 31 36 29 3B 0D 0A 09 09 73 74 t(eql,16);....st
0001A0: 61 64 72 5B 63 74 78 5D 3A 3D 63 6F 6D 70 63 6F adr[ctx]:=compco
0001B0: 6E 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 63 6F 6E n....end; (* con
0001C0: 73 74 64 63 6C 20 2A 29 0D 0A 0D 0A 09 70 72 6F stdcl *).....pro
0001D0: 63 65 64 75 72 65 20 74 79 70 3B 0D 0A 0D 0A 09 cedure typ;.....
0001E0: 09 76 61 72 09 73 63 61 72 64 09 3A 20 77 6F 72 .var.scard.: wor
0001F0: 64 3B 20 28 2A 20 61 72 72 61 79 20 73 75 62 73 d; (* array subs
Size : 512 (Real : 512)
000000: 0D 0A 09 09 67 65 74 73 79 6D 0D 0A 09 65 6E 64 ....getsym...end
000010: 3B 0D 0A 0D 0A 28 2A 20 65 6D 69 74 20 74 68 65 ;....(* emit the
000020: 20 70 2D 69 6E 73 74 72 75 63 74 69 6F 6E 20 70 p-instruction p
000030: 61 73 73 65 64 20 69 6E 20 74 68 65 20 61 72 67 assed in the arg
000040: 75 6D 65 6E 74 73 2E 0D 0A 2A 29 0D 0A 70 72 6F uments...*)..pro
000050: 63 65 64 75 72 65 20 67 65 6E 28 6F 70 3A 20 70 cedure gen(op: p
000060: 6F 70 73 3B 20 6C 65 76 2C 61 64 72 3A 20 77 6F ops; lev,adr: wo
000070: 72 64 29 3B 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A rd);.....begin..
000080: 09 70 75 74 23 30 28 6F 70 2C 20 6C 65 76 2C 20 .put#0(op, lev,
000090: 61 64 72 2C 20 61 64 72 2F 32 35 36 29 0D 0A 09 adr, adr/256)...
0000A0: 65 6E 64 3B 20 28 2A 20 67 65 6E 20 2A 29 0D 0A end; (* gen *)..
0000B0: 0D 0A 28 2A 20 65 6E 74 65 72 20 61 6E 20 69 64 ..(* enter an id
0000C0: 65 6E 74 69 66 69 65 72 20 69 6E 74 6F 20 74 68 entifier into th
0000D0: 65 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 77 e symbol table w
0000E0: 69 74 68 20 74 68 65 0D 0A 61 74 74 72 69 62 75 ith the..attribu
0000F0: 74 65 73 20 70 61 73 73 65 64 20 61 73 20 61 72 tes passed as ar
000100: 67 75 6D 65 6E 74 73 0D 0A 2A 29 0D 0A 70 72 6F guments..*)..pro
000110: 63 65 64 75 72 65 20 65 6E 74 65 72 28 6E 61 6D cedure enter(nam
000120: 3A 20 61 6C 66 61 3B 20 6B 69 6E 64 2C 6C 65 76 : alfa; kind,lev
000130: 2C 61 64 72 2C 6C 65 6E 3A 20 77 6F 72 64 29 3B ,adr,len: word);
000140: 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 74 78 3A .....begin...tx:
000150: 3D 74 78 2B 31 3B 0D 0A 09 69 66 20 74 78 3E 73 =tx+1;...if tx>s
000160: 79 6D 61 78 20 74 68 65 6E 20 70 75 74 23 31 28 ymax then put#1(
000170: 27 2A 53 59 20 4F 56 45 52 27 29 0D 0A 09 65 6C '*SY OVER')...el
000180: 73 65 20 62 65 67 69 6E 0D 0A 09 09 73 74 6E 61 se begin....stna
000190: 6D 65 5B 74 78 5D 3A 3D 6E 61 6D 3B 20 73 74 6B me[tx]:=nam; stk
0001A0: 69 6E 64 5B 74 78 5D 3A 3D 6B 69 6E 64 3B 0D 0A ind[tx]:=kind;..
0001B0: 09 09 73 74 6C 65 76 5B 74 78 5D 3A 3D 6C 65 76 ..stlev[tx]:=lev
0001C0: 3B 20 73 74 61 64 72 5B 74 78 5D 3A 3D 61 64 72 ; stadr[tx]:=adr
0001D0: 3B 0D 0A 09 09 73 74 6C 65 6E 5B 74 78 5D 3A 3D ;....stlen[tx]:=
0001E0: 6C 65 6E 0D 0A 09 09 65 6E 64 0D 0A 09 65 6E 64 len....end...end
0001F0: 3B 20 28 2A 20 65 6E 74 65 72 20 2A 29 0D 0A 0D ; (* enter *)...
Size : 512 (Real : 512)
000000: 63 72 69 70 74 20 63 61 72 64 69 6E 61 6C 69 74 cript cardinalit
000010: 79 20 2A 29 0D 0A 0D 0A 09 09 70 72 6F 63 65 64 y *)......proced
000020: 75 72 65 20 73 74 79 70 3B 0D 0A 0D 0A 09 09 09 ure styp;.......
000030: 76 61 72 09 69 09 3A 20 77 6F 72 64 3B 0D 0A 0D var.i.: word;...
000040: 0A 09 09 09 62 65 67 69 6E 0D 0A 09 09 09 74 74 ....begin.....tt
000050: 79 70 65 3A 3D 73 69 6D 70 74 79 70 65 3B 0D 0A ype:=simptype;..
000060: 09 09 09 69 66 20 73 79 6D 3D 69 64 65 6E 74 20 ...if sym=ident
000070: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 09 then begin......
000080: 69 3A 3D 70 6F 73 69 74 69 6F 6E 3B 0D 0A 09 09 i:=position;....
000090: 09 09 69 66 20 28 73 74 6B 69 6E 64 5B 69 5D 3D ..if (stkind[i]=
0000A0: 73 69 6D 70 74 79 70 65 29 20 6F 72 0D 0A 09 09 simptype) or....
0000B0: 09 09 20 20 20 28 73 74 6B 69 6E 64 5B 69 5D 3D .. (stkind[i]=
0000C0: 74 69 70 65 29 20 74 68 65 6E 20 62 65 67 69 6E tipe) then begin
0000D0: 0D 0A 09 09 09 09 20 20 74 74 79 70 65 3A 3D 73 ...... ttype:=s
0000E0: 74 6B 69 6E 64 5B 69 5D 3B 0D 0A 09 09 09 09 20 tkind[i];......
0000F0: 20 74 61 64 72 3A 3D 73 74 61 64 72 5B 69 5D 3B tadr:=stadr[i];
000100: 0D 0A 09 09 09 09 20 20 74 6C 65 6E 3A 3D 73 74 ...... tlen:=st
000110: 6C 65 6E 5B 69 5D 3B 0D 0A 09 09 09 09 20 20 67 len[i];...... g
000120: 65 74 73 79 6D 0D 0A 09 09 09 09 20 20 65 6E 64 etsym...... end
000130: 0D 0A 09 09 09 09 65 6C 73 65 20 69 66 20 73 74 ......else if st
000140: 6B 69 6E 64 5B 69 5D 3D 63 6F 6E 73 74 61 6E 74 kind[i]=constant
000150: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 then begin.....
000160: 09 20 20 69 3A 3D 63 6F 6D 70 63 6F 6E 3B 0D 0A . i:=compcon;..
000170: 09 09 09 09 20 20 74 65 73 74 28 70 65 72 69 6F .... test(perio
000180: 64 2C 32 30 29 3B 20 74 65 73 74 28 70 65 72 69 d,20); test(peri
000190: 6F 64 2C 32 30 29 3B 0D 0A 09 09 09 09 20 20 74 od,20);...... t
0001A0: 61 64 72 3A 3D 63 6F 6D 70 63 6F 6E 2D 69 2B 31 adr:=compcon-i+1
0001B0: 3B 20 74 6C 65 6E 3A 3D 69 6E 74 73 69 7A 65 0D ; tlen:=intsize.
0001C0: 0A 09 09 09 09 20 20 65 6E 64 0D 0A 09 09 09 09 ..... end......
0001D0: 65 6C 73 65 20 65 72 72 6F 72 28 31 30 33 29 0D else error(103).
0001E0: 0A 09 09 09 09 65 6E 64 0D 0A 09 09 09 65 6C 73 .....end.....els
0001F0: 65 20 69 66 20 73 79 6D 3D 6C 70 61 72 65 6E 20 e if sym=lparen
Size : 512 (Real : 512)
000000: 0A 28 2A 20 72 65 74 75 72 6E 73 20 74 68 65 20 .(* returns the
000010: 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 69 6E 64 symbol table ind
000020: 65 78 20 6F 66 20 74 68 65 20 69 64 65 6E 74 69 ex of the identi
000030: 66 69 65 72 20 69 6E 20 69 64 2E 0D 0A 67 69 76 fier in id...giv
000040: 65 73 20 65 72 72 6F 72 20 31 30 34 20 69 66 20 es error 104 if
000050: 6E 6F 74 20 66 6F 75 6E 64 20 61 6E 64 20 72 65 not found and re
000060: 74 75 72 6E 73 20 30 2E 0D 0A 2A 29 0D 0A 66 75 turns 0...*)..fu
000070: 6E 63 74 69 6F 6E 20 70 6F 73 69 74 69 6F 6E 3B nction position;
000080: 0D 0A 09 0D 0A 09 28 2A 20 73 65 65 20 67 6C 6F ......(* see glo
000090: 62 61 6C 20 76 61 72 69 61 62 6C 65 73 20 66 6F bal variables fo
0000A0: 72 20 6C 6F 63 61 6C 20 76 61 72 20 64 65 63 6C r local var decl
0000B0: 61 72 61 74 69 6F 6E 20 2A 29 0D 0A 0D 0A 09 62 aration *).....b
0000C0: 65 67 69 6E 0D 0A 09 73 74 6E 61 6D 65 5B 30 5D egin...stname[0]
0000D0: 3A 3D 69 64 3B 0D 0A 09 70 6F 73 69 3A 3D 74 78 :=id;...posi:=tx
0000E0: 3B 0D 0A 09 77 68 69 6C 65 20 73 74 6E 61 6D 65 ;...while stname
0000F0: 5B 70 6F 73 69 5D 3C 3E 69 64 20 64 6F 20 70 6F [posi]<>id do po
000100: 73 69 3A 3D 70 6F 73 69 2D 31 3B 0D 0A 09 69 66 si:=posi-1;...if
000110: 20 70 6F 73 69 3D 30 20 74 68 65 6E 20 65 72 72 posi=0 then err
000120: 6F 72 28 31 30 34 29 3B 0D 0A 09 70 6F 73 69 74 or(104);...posit
000130: 69 6F 6E 3A 3D 70 6F 73 69 0D 0A 09 65 6E 64 3B ion:=posi...end;
000140: 20 28 2A 20 70 6F 73 69 74 69 6F 6E 20 2A 29 0D (* position *).
000150: 0A 0D 0A 28 2A 20 72 65 74 75 72 6E 73 20 74 68 ...(* returns th
000160: 65 20 6E 65 78 74 20 61 76 61 69 6C 61 62 6C 65 e next available
000170: 20 6C 61 62 65 6C 20 6E 75 6D 62 65 72 20 2A 29 label number *)
000180: 0D 0A 66 75 6E 63 74 69 6F 6E 20 6E 6C 61 62 3B ..function nlab;
000190: 0D 0A 0D 0A 09 62 65 67 69 6E 0D 0A 09 6E 6C 3A .....begin...nl:
0001A0: 3D 6E 6C 2B 31 3B 20 6E 6C 61 62 3A 3D 6E 6C 0D =nl+1; nlab:=nl.
0001B0: 0A 09 65 6E 64 3B 0D 0A 0D 0A 28 2A 20 73 65 6D ..end;....(* sem
0001C0: 61 6E 74 69 63 20 72 6F 75 74 69 6E 65 20 74 6F antic routine to
0001D0: 20 63 6F 6D 70 69 6C 65 20 61 20 62 6C 6F 63 6B compile a block
0001E0: 20 2A 29 0D 0A 70 72 6F 63 65 64 75 72 65 20 62 *)..procedure b
0001F0: 6C 6F 63 6B 28 6C 65 76 2C 20 70 6C 61 62 3A 20 lock(lev, plab:
Size : 512 (Real : 512)
000000: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 09 then begin......
000010: 69 3A 3D 30 3B 0D 0A 09 09 09 09 72 65 70 65 61 i:=0;......repea
000020: 74 0D 0A 09 09 09 09 20 20 67 65 74 73 79 6D 3B t...... getsym;
000030: 0D 0A 09 09 09 09 20 20 74 65 73 74 28 69 64 65 ...... test(ide
000040: 6E 74 2C 32 29 3B 0D 0A 09 09 09 09 20 20 65 6E nt,2);...... en
000050: 74 65 72 28 69 64 2C 63 6F 6E 73 74 61 6E 74 2C ter(id,constant,
000060: 69 6E 74 73 69 7A 65 2C 69 2C 30 29 3B 0D 0A 09 intsize,i,0);...
000070: 09 09 09 20 20 69 3A 3D 69 2B 31 0D 0A 09 09 09 ... i:=i+1.....
000080: 09 75 6E 74 69 6C 20 73 79 6D 3C 3E 63 6F 6D 6D .until sym<>comm
000090: 61 3B 0D 0A 09 09 09 09 74 61 64 72 3A 3D 69 3B a;......tadr:=i;
0000A0: 20 74 6C 65 6E 3A 3D 69 6E 74 73 69 7A 65 3B 0D tlen:=intsize;.
0000B0: 0A 09 09 09 09 74 65 73 74 28 72 70 61 72 65 6E .....test(rparen
0000C0: 2C 34 29 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 09 ,4)......end....
0000D0: 09 65 6C 73 65 20 62 65 67 69 6E 0D 0A 09 09 09 .else begin.....
0000E0: 09 69 3A 3D 63 6F 6D 70 63 6F 6E 3B 0D 0A 09 09 .i:=compcon;....
0000F0: 09 09 74 65 73 74 28 70 65 72 69 6F 64 2C 32 30 ..test(period,20
000100: 29 3B 0D 0A 09 09 09 09 74 65 73 74 28 70 65 72 );......test(per
000110: 69 6F 64 2C 32 30 29 3B 0D 0A 09 09 09 09 74 61 iod,20);......ta
000120: 64 72 3A 3D 63 6F 6D 70 63 6F 6E 2D 69 2B 31 3B dr:=compcon-i+1;
000130: 20 74 6C 65 6E 3A 3D 69 6E 74 73 69 7A 65 0D 0A tlen:=intsize..
000140: 09 09 09 09 65 6E 64 0D 0A 09 09 09 65 6E 64 3B ....end.....end;
000150: 20 28 2A 20 73 74 79 70 20 2A 29 0D 0A 0D 0A 09 (* styp *).....
000160: 09 62 65 67 69 6E 20 28 2A 20 74 79 70 20 2A 29 .begin (* typ *)
000170: 0D 0A 09 09 69 66 20 73 79 6D 3C 3E 61 72 72 61 ....if sym<>arra
000180: 79 73 79 6D 20 74 68 65 6E 20 73 74 79 70 0D 0A ysym then styp..
000190: 09 09 65 6C 73 65 20 62 65 67 69 6E 0D 0A 09 09 ..else begin....
0001A0: 09 67 65 74 73 79 6D 3B 20 74 65 73 74 28 6C 62 .getsym; test(lb
0001B0: 72 61 63 6B 2C 31 31 29 3B 0D 0A 09 09 09 73 74 rack,11);.....st
0001C0: 79 70 3B 20 73 63 61 72 64 3A 3D 74 61 64 72 3B yp; scard:=tadr;
0001D0: 20 28 2A 20 73 61 76 65 20 73 75 62 73 63 72 69 (* save subscri
0001E0: 70 74 20 63 61 72 64 69 6E 61 6C 69 74 79 20 2A pt cardinality *
0001F0: 29 0D 0A 09 09 09 74 65 73 74 28 72 62 72 61 63 ).....test(rbrac
Size : 512 (Real : 512)
000000: 70 09 3A 20 73 79 6D 62 6F 6C 3B 0D 0A 0D 0A 09 p.: symbol;.....
000010: 09 70 72 6F 63 65 64 75 72 65 20 74 65 72 6D 3B .procedure term;
000020: 0D 0A 0D 0A 09 09 76 61 72 09 6D 75 6C 6F 70 09 ......var.mulop.
000030: 3A 20 73 79 6D 62 6F 6C 3B 0D 0A 0D 0A 09 09 70 : symbol;......p
000040: 72 6F 63 65 64 75 72 65 20 66 61 63 74 6F 72 3B rocedure factor;
000050: 0D 0A 0D 0A 09 09 09 76 61 72 09 69 09 3A 20 77 .......var.i.: w
000060: 6F 72 64 3B 0D 0A 09 09 09 09 6F 70 09 3A 20 70 ord;......op.: p
000070: 6F 70 73 3B 0D 0A 0D 0A 09 09 09 62 65 67 69 6E ops;.......begin
000080: 20 28 2A 20 66 61 63 74 6F 72 20 2A 29 0D 0A 09 (* factor *)...
000090: 09 09 63 61 73 65 20 73 79 6D 20 6F 66 0D 0A 09 ..case sym of...
0000A0: 09 09 6E 75 6D 62 65 72 3A 09 62 65 67 69 6E 20 ..number:.begin
0000B0: 28 2A 20 6C 6F 61 64 20 63 6F 6E 73 74 61 6E 74 (* load constant
0000C0: 20 2A 29 0D 0A 09 09 09 09 67 65 6E 28 6C 69 74 *)......gen(lit
0000D0: 2C 30 2C 6E 75 6D 29 3B 0D 0A 09 09 09 09 63 68 ,0,num);......ch
0000E0: 65 74 79 70 28 77 75 72 64 29 3B 0D 0A 09 09 09 etyp(wurd);.....
0000F0: 09 67 65 74 73 79 6D 0D 0A 09 09 09 09 65 6E 64 .getsym......end
000100: 3B 20 28 2A 20 63 61 73 65 20 6E 75 6D 62 65 72 ; (* case number
000110: 20 2A 29 0D 0A 09 09 09 63 68 61 72 63 6F 6E 3A *).....charcon:
000120: 20 62 65 67 69 6E 20 28 2A 20 6C 6F 61 64 20 73 begin (* load s
000130: 74 72 69 6E 67 20 6C 69 74 65 72 61 6C 20 2A 29 tring literal *)
000140: 0D 0A 09 09 09 09 69 66 20 63 63 6C 65 6E 3D 31 ......if cclen=1
000150: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 then begin.....
000160: 09 09 67 65 6E 28 6C 69 74 2C 30 2C 63 63 6F 6E ..gen(lit,0,ccon
000170: 5B 30 5D 29 3B 0D 0A 09 09 09 09 09 63 68 65 74 [0]);.......chet
000180: 79 70 28 77 75 72 64 29 20 65 6E 64 0D 0A 09 09 yp(wurd) end....
000190: 09 09 65 6C 73 65 20 62 65 67 69 6E 0D 0A 09 09 ..else begin....
0001A0: 09 09 09 63 68 65 74 79 70 28 61 6C 70 68 61 29 ...chetyp(alpha)
0001B0: 3B 0D 0A 09 09 09 09 09 67 65 6E 28 61 6C 69 74 ;.......gen(alit
0001C0: 2C 30 2C 30 29 3B 0D 0A 09 09 09 09 09 67 65 6E ,0,0);.......gen
0001D0: 28 63 63 6F 6E 5B 37 5D 2C 63 63 6F 6E 5B 36 5D (ccon[7],ccon[6]
0001E0: 2C 0D 0A 09 09 09 09 09 20 63 63 6F 6E 5B 35 5D ,....... ccon[5]
0001F0: 2B 63 63 6F 6E 5B 34 5D 2A 32 35 36 29 3B 0D 0A +ccon[4]*256);..
Size : 512 (Real : 512)
000000: 6B 2C 31 32 29 3B 0D 0A 09 09 09 74 65 73 74 28 k,12);.....test(
000010: 6F 66 73 79 6D 2C 38 29 3B 20 73 74 79 70 3B 0D ofsym,8); styp;.
000020: 0A 09 09 09 74 74 79 70 65 3A 3D 74 69 70 65 3B ....ttype:=tipe;
000030: 0D 0A 09 09 09 74 61 64 72 3A 3D 74 6C 65 6E 3B .....tadr:=tlen;
000040: 20 74 6C 65 6E 3A 3D 74 6C 65 6E 2A 73 63 61 72 tlen:=tlen*scar
000050: 64 0D 0A 09 09 09 65 6E 64 0D 0A 09 09 65 6E 64 d.....end....end
000060: 3B 20 28 2A 20 74 79 70 20 2A 29 0D 0A 0D 0A 09 ; (* typ *).....
000070: 70 72 6F 63 65 64 75 72 65 20 74 79 70 65 64 63 procedure typedc
000080: 6C 3B 0D 0A 0D 0A 09 09 76 61 72 09 74 69 64 09 l;......var.tid.
000090: 3A 20 61 6C 66 61 3B 20 28 2A 20 74 79 70 65 20 : alfa; (* type
0000A0: 69 64 65 6E 74 69 66 65 72 20 2A 29 0D 0A 0D 0A identifer *)....
0000B0: 09 09 62 65 67 69 6E 0D 0A 09 09 74 65 73 74 28 ..begin....test(
0000C0: 69 64 65 6E 74 2C 32 29 3B 0D 0A 09 09 74 69 64 ident,2);....tid
0000D0: 3A 3D 69 64 3B 0D 0A 09 09 74 65 73 74 28 65 71 :=id;....test(eq
0000E0: 6C 2C 31 36 29 3B 0D 0A 09 09 74 79 70 3B 0D 0A l,16);....typ;..
0000F0: 09 09 65 6E 74 65 72 28 74 69 64 2C 74 74 79 70 ..enter(tid,ttyp
000100: 65 2C 6C 65 76 2C 74 61 64 72 2C 74 6C 65 6E 29 e,lev,tadr,tlen)
000110: 0D 0A 09 09 65 6E 64 3B 20 28 2A 20 74 79 70 64 ....end; (* typd
000120: 63 6C 20 2A 29 0D 0A 0D 0A 09 70 72 6F 63 65 64 cl *).....proced
000130: 75 72 65 20 76 61 72 64 63 6C 3B 0D 0A 0D 0A 09 ure vardcl;.....
000140: 09 76 61 72 09 69 09 3A 20 77 6F 72 64 3B 0D 0A .var.i.: word;..
000150: 09 09 09 74 78 30 09 3A 20 77 6F 72 64 3B 0D 0A ...tx0.: word;..
000160: 09 09 09 74 6C 65 6E 09 3A 20 77 6F 72 64 3B 20 ...tlen.: word;
000170: 28 2A 20 74 6F 74 61 6C 20 6C 65 6E 67 74 68 20 (* total length
000180: 2A 29 0D 0A 09 09 09 76 6B 69 6E 64 09 3A 20 77 *).....vkind.: w
000190: 6F 72 64 3B 20 28 2A 20 76 61 72 69 61 62 6C 65 ord; (* variable
0001A0: 20 74 79 70 65 20 2A 29 0D 0A 09 09 09 6C 65 6E type *).....len
0001B0: 09 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 09 62 65 .: word;......be
0001C0: 67 69 6E 0D 0A 09 09 74 65 73 74 28 69 64 65 6E gin....test(iden
0001D0: 74 2C 32 29 3B 0D 0A 09 09 65 6E 74 65 72 28 69 t,2);....enter(i
0001E0: 64 2C 6E 6F 74 79 70 65 2C 6C 65 76 2C 30 2C 30 d,notype,lev,0,0
0001F0: 29 3B 0D 0A 09 09 74 78 30 3A 3D 74 78 3B 0D 0A );....tx0:=tx;..
Size : 512 (Real : 512)
000000: 09 09 09 09 09 67 65 6E 28 63 63 6F 6E 5B 33 5D .....gen(ccon[3]
000010: 2C 63 63 6F 6E 5B 32 5D 2C 0D 0A 09 09 09 09 09 ,ccon[2],.......
000020: 20 63 63 6F 6E 5B 31 5D 2B 63 63 6F 6E 5B 30 5D ccon[1]+ccon[0]
000030: 2A 32 35 36 29 0D 0A 09 09 09 09 09 65 6E 64 3B *256).......end;
000040: 0D 0A 09 09 09 09 67 65 74 73 79 6D 0D 0A 09 09 ......getsym....
000050: 09 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 63 ..end; (* case c
000060: 68 61 72 63 6F 6E 20 2A 29 0D 0A 09 09 09 6C 70 harcon *).....lp
000070: 61 72 65 6E 3A 09 62 65 67 69 6E 20 28 2A 20 67 aren:.begin (* g
000080: 65 74 20 73 75 62 20 65 78 70 72 65 73 73 69 6F et sub expressio
000090: 6E 20 2A 29 0D 0A 09 09 09 09 67 65 74 73 79 6D n *)......getsym
0000A0: 3B 20 65 78 70 72 65 73 73 69 6F 6E 28 65 74 79 ; expression(ety
0000B0: 70 29 3B 0D 0A 09 09 09 09 63 68 65 74 79 70 28 p);......chetyp(
0000C0: 65 72 65 73 74 79 70 29 3B 0D 0A 09 09 09 09 74 erestyp);......t
0000D0: 65 73 74 28 72 70 61 72 65 6E 2C 34 29 0D 0A 09 est(rparen,4)...
0000E0: 09 09 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 ...end; (* case
0000F0: 6C 70 61 72 65 6E 20 2A 29 0D 0A 09 09 09 69 64 lparen *).....id
000100: 65 6E 74 3A 09 62 65 67 69 6E 0D 0A 09 09 09 09 ent:.begin......
000110: 69 3A 3D 70 6F 73 69 74 69 6F 6E 3B 0D 0A 09 09 i:=position;....
000120: 09 09 63 61 73 65 20 73 74 6B 69 6E 64 5B 69 5D ..case stkind[i]
000130: 20 6F 66 0D 0A 09 09 09 09 61 72 72 61 79 76 61 of......arrayva
000140: 72 3A 20 62 65 67 69 6E 20 28 2A 20 69 6E 64 65 r: begin (* inde
000150: 78 20 69 6E 74 6F 20 61 72 72 61 79 20 76 61 72 x into array var
000160: 20 2A 29 0D 0A 09 09 09 09 20 20 67 65 74 73 79 *)...... getsy
000170: 6D 3B 0D 0A 09 09 09 09 20 20 74 65 73 74 28 6C m;...... test(l
000180: 62 72 61 63 6B 2C 31 31 29 3B 0D 0A 09 09 09 09 brack,11);......
000190: 20 20 65 78 70 72 65 73 73 69 6F 6E 28 77 75 72 expression(wur
0001A0: 64 29 3B 0D 0A 09 09 09 09 20 20 74 65 73 74 28 d);...... test(
0001B0: 72 62 72 61 63 6B 2C 31 32 29 3B 0D 0A 09 09 09 rbrack,12);.....
0001C0: 09 20 20 63 61 73 65 20 73 74 61 64 72 5B 73 74 . case stadr[st
0001D0: 6C 65 6E 5B 69 5D 5D 20 6F 66 0D 0A 09 09 09 09 len[i]] of......
0001E0: 20 20 69 6E 74 73 69 7A 65 3A 20 62 65 67 69 6E intsize: begin
0001F0: 0D 0A 09 09 09 09 20 20 20 20 6F 70 3A 3D 6C 6F ...... op:=lo
Size : 512 (Real : 512)
000000: 09 09 77 68 69 6C 65 20 73 79 6D 3D 63 6F 6D 6D ..while sym=comm
000010: 61 20 64 6F 20 62 65 67 69 6E 0D 0A 09 09 09 67 a do begin.....g
000020: 65 74 73 79 6D 3B 0D 0A 09 09 09 74 65 73 74 28 etsym;.....test(
000030: 69 64 65 6E 74 2C 32 29 3B 0D 0A 09 09 09 65 6E ident,2);.....en
000040: 74 65 72 28 69 64 2C 6E 6F 74 79 70 65 2C 6C 65 ter(id,notype,le
000050: 76 2C 30 2C 30 29 0D 0A 09 09 09 65 6E 64 3B 0D v,0,0).....end;.
000060: 0A 09 09 74 65 73 74 28 63 6F 6C 6F 6E 2C 35 29 ...test(colon,5)
000070: 3B 0D 0A 09 09 74 65 73 74 28 69 64 65 6E 74 2C ;....test(ident,
000080: 32 29 3B 0D 0A 09 09 69 3A 3D 70 6F 73 69 74 69 2);....i:=positi
000090: 6F 6E 3B 0D 0A 09 09 74 6C 65 6E 3A 3D 73 74 6C on;....tlen:=stl
0000A0: 65 6E 5B 69 5D 3B 20 28 2A 20 74 6F 74 61 6C 20 en[i]; (* total
0000B0: 6C 65 6E 67 74 68 20 6F 66 20 76 61 72 69 61 62 length of variab
0000C0: 6C 65 20 2A 29 0D 0A 09 09 76 6B 69 6E 64 3A 3D le *)....vkind:=
0000D0: 73 74 6B 69 6E 64 5B 69 5D 3B 0D 0A 09 09 69 66 stkind[i];....if
0000E0: 20 76 6B 69 6E 64 3D 73 69 6D 70 74 79 70 65 20 vkind=simptype
0000F0: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 76 then begin.....v
000100: 6B 69 6E 64 3A 3D 73 69 6D 70 76 61 72 3B 0D 0A kind:=simpvar;..
000110: 09 09 09 6C 65 6E 3A 3D 74 6C 65 6E 0D 0A 09 09 ...len:=tlen....
000120: 09 65 6E 64 0D 0A 09 09 65 6C 73 65 20 69 66 20 .end....else if
000130: 76 6B 69 6E 64 3D 74 69 70 65 20 74 68 65 6E 20 vkind=tipe then
000140: 62 65 67 69 6E 0D 0A 09 09 09 76 6B 69 6E 64 3A begin.....vkind:
000150: 3D 61 72 72 61 79 76 61 72 3B 0D 0A 09 09 09 6C =arrayvar;.....l
000160: 65 6E 3A 3D 69 20 28 2A 20 70 6F 69 6E 74 65 72 en:=i (* pointer
000170: 20 74 6F 20 61 72 72 61 79 20 74 79 70 65 20 69 to array type i
000180: 6E 66 6F 20 2A 29 0D 0A 09 09 09 65 6E 64 0D 0A nfo *).....end..
000190: 09 09 65 6C 73 65 20 65 72 72 6F 72 28 31 30 33 ..else error(103
0001A0: 29 3B 0D 0A 09 09 66 6F 72 20 69 3A 3D 74 78 30 );....for i:=tx0
0001B0: 20 74 6F 20 74 78 20 64 6F 20 62 65 67 69 6E 0D to tx do begin.
0001C0: 0A 09 09 09 73 74 6B 69 6E 64 5B 69 5D 3A 3D 76 ....stkind[i]:=v
0001D0: 6B 69 6E 64 3B 20 73 74 6C 65 6E 5B 69 5D 3A 3D kind; stlen[i]:=
0001E0: 6C 65 6E 3B 0D 0A 09 09 09 69 66 20 6C 65 76 3D len;.....if lev=
0001F0: 31 20 74 68 65 6E 20 73 74 61 64 72 5B 69 5D 3A 1 then stadr[i]:
Size : 512 (Real : 512)
000000: 64 78 3B 20 63 68 65 74 79 70 28 77 75 72 64 29 dx; chetyp(wurd)
000010: 20 65 6E 64 3B 0D 0A 09 09 09 09 20 20 61 6C 66 end;...... alf
000020: 61 73 69 7A 65 3A 20 62 65 67 69 6E 0D 0A 09 09 asize: begin....
000030: 09 09 20 20 20 20 6F 70 3A 3D 61 6C 6F 64 78 3B .. op:=alodx;
000040: 20 63 68 65 74 79 70 28 61 6C 70 68 61 29 20 65 chetyp(alpha) e
000050: 6E 64 3B 0D 0A 09 09 09 09 20 20 63 68 61 72 73 nd;...... chars
000060: 69 7A 65 3A 20 62 65 67 69 6E 0D 0A 09 09 09 09 ize: begin......
000070: 20 20 20 20 6F 70 3A 3D 63 6C 6F 64 78 3B 20 63 op:=clodx; c
000080: 68 65 74 79 70 28 77 75 72 64 29 20 65 6E 64 0D hetyp(wurd) end.
000090: 0A 09 09 09 09 20 20 65 6E 64 3B 20 28 2A 20 63 ..... end; (* c
0000A0: 61 73 65 20 2A 29 0D 0A 09 09 09 09 20 20 67 65 ase *)...... ge
0000B0: 6E 6C 65 76 28 6F 70 2C 69 29 3B 0D 0A 09 09 09 nlev(op,i);.....
0000C0: 09 20 20 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 . end; (* case
0000D0: 61 72 72 61 79 76 61 72 20 2A 29 0D 0A 09 09 09 arrayvar *).....
0000E0: 09 63 6F 6E 73 74 61 6E 74 3A 20 62 65 67 69 6E .constant: begin
0000F0: 20 28 2A 20 6C 6F 61 64 20 63 6F 6E 73 74 61 6E (* load constan
000100: 74 20 2A 29 0D 0A 09 09 09 09 20 20 67 65 6E 28 t *)...... gen(
000110: 6C 69 74 2C 30 2C 73 74 61 64 72 5B 69 5D 29 3B lit,0,stadr[i]);
000120: 0D 0A 09 09 09 09 20 20 63 68 65 74 79 70 28 77 ...... chetyp(w
000130: 75 72 64 29 3B 0D 0A 09 09 09 09 20 20 67 65 74 urd);...... get
000140: 73 79 6D 0D 0A 09 09 09 09 20 20 65 6E 64 3B 20 sym...... end;
000150: 28 2A 20 63 61 73 65 20 63 6F 6E 73 74 61 6E 74 (* case constant
000160: 20 2A 29 0D 0A 09 09 09 09 76 61 72 70 61 72 6D *)......varparm
000170: 3A 20 62 65 67 69 6E 20 28 2A 20 6C 6F 61 64 20 : begin (* load
000180: 66 72 6F 6D 20 76 61 72 20 70 61 72 61 6D 65 74 from var paramet
000190: 65 72 20 2A 29 0D 0A 09 09 09 09 20 20 67 65 74 er *)...... get
0001A0: 73 79 6D 3B 20 67 65 6E 6C 65 76 28 6C 6F 64 2C sym; genlev(lod,
0001B0: 69 29 3B 0D 0A 09 09 09 09 20 20 67 65 6E 28 6C i);...... gen(l
0001C0: 6F 64 69 2C 30 2C 30 29 3B 0D 0A 09 09 09 09 20 odi,0,0);......
0001D0: 20 63 68 65 74 79 70 28 77 75 72 64 29 0D 0A 09 chetyp(wurd)...
0001E0: 09 09 09 20 20 65 6E 64 3B 20 28 2A 20 63 61 73 ... end; (* cas
0001F0: 65 20 76 61 72 70 61 72 6D 20 2A 29 0D 0A 09 09 e varparm *)....
Size : 512 (Real : 512)
000000: 3D 64 78 0D 0A 09 09 09 65 6C 73 65 09 73 74 61 =dx.....else.sta
000010: 64 72 5B 69 5D 3A 3D 64 78 2B 74 6C 65 6E 3B 0D dr[i]:=dx+tlen;.
000020: 0A 09 09 09 64 78 3A 3D 64 78 2B 74 6C 65 6E 0D ....dx:=dx+tlen.
000030: 0A 09 09 09 65 6E 64 0D 0A 09 09 65 6E 64 3B 20 ....end....end;
000040: 28 2A 20 76 61 72 64 63 6C 20 2A 29 0D 0A 0D 0A (* vardcl *)....
000050: 09 70 72 6F 63 65 64 75 72 65 20 73 74 61 74 65 .procedure state
000060: 6D 65 6E 74 3B 0D 0A 0D 0A 09 09 76 61 72 09 69 ment;......var.i
000070: 2C 20 65 6C 61 62 2C 20 66 6C 61 62 2C 20 74 6C , elab, flab, tl
000080: 61 62 2C 20 6F 70 2C 20 75 70 64 6E 09 3A 20 77 ab, op, updn.: w
000090: 6F 72 64 3B 0D 0A 0D 0A 09 09 70 72 6F 63 65 64 ord;......proced
0000A0: 75 72 65 20 65 78 70 72 65 73 73 69 6F 6E 3B 20 ure expression;
0000B0: 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 09 09 70 72 forward;......pr
0000C0: 6F 63 65 64 75 72 65 20 63 61 6C 6C 28 69 3A 20 ocedure call(i:
0000D0: 77 6F 72 64 29 3B 0D 0A 0D 0A 09 09 76 61 72 09 word);......var.
0000E0: 6A 09 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 09 62 j.: word;......b
0000F0: 65 67 69 6E 0D 0A 09 09 67 65 74 73 79 6D 3B 0D egin....getsym;.
000100: 0A 09 09 69 66 20 73 79 6D 3D 6C 70 61 72 65 6E ...if sym=lparen
000110: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 then begin.....
000120: 67 65 74 73 79 6D 3B 0D 0A 09 09 09 69 66 20 73 getsym;.....if s
000130: 79 6D 3C 3E 76 61 72 73 79 6D 20 74 68 65 6E 20 ym<>varsym then
000140: 62 65 67 69 6E 0D 0A 09 09 09 09 65 78 70 72 65 begin......expre
000150: 73 73 69 6F 6E 28 64 6F 6E 74 63 61 72 65 29 3B ssion(dontcare);
000160: 0D 0A 09 09 09 09 77 68 69 6C 65 20 73 79 6D 3D ......while sym=
000170: 63 6F 6D 6D 61 20 64 6F 20 62 65 67 69 6E 0D 0A comma do begin..
000180: 09 09 09 09 20 20 67 65 74 73 79 6D 3B 0D 0A 09 .... getsym;...
000190: 09 09 09 20 20 65 78 70 72 65 73 73 69 6F 6E 28 ... expression(
0001A0: 64 6F 6E 74 63 61 72 65 29 0D 0A 09 09 09 09 20 dontcare)......
0001B0: 20 65 6E 64 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 end......end...
0001C0: 09 09 65 6C 73 65 20 28 2A 20 70 72 6F 63 65 64 ..else (* proced
0001D0: 75 72 65 20 68 61 73 20 76 61 72 20 70 61 72 61 ure has var para
0001E0: 6D 65 74 65 72 73 20 2A 29 0D 0A 09 09 09 09 72 meters *)......r
0001F0: 65 70 65 61 74 0D 0A 09 09 09 09 20 20 67 65 74 epeat...... get
Size : 512 (Real : 512)
000000: 09 09 73 69 6D 70 76 61 72 3A 20 62 65 67 69 6E ..simpvar: begin
000010: 20 28 2A 20 6C 6F 61 64 20 66 72 6F 6D 20 73 69 (* load from si
000020: 6D 70 6C 65 20 76 61 72 20 2A 29 0D 0A 09 09 09 mple var *).....
000030: 09 20 20 67 65 74 73 79 6D 3B 0D 0A 09 09 09 09 . getsym;......
000040: 20 20 63 61 73 65 20 73 74 6C 65 6E 5B 69 5D 20 case stlen[i]
000050: 6F 66 0D 0A 09 09 09 09 20 20 69 6E 74 73 69 7A of...... intsiz
000060: 65 3A 20 20 62 65 67 69 6E 0D 0A 09 09 09 09 20 e: begin......
000070: 20 20 20 6F 70 3A 3D 6C 6F 64 3B 20 63 68 65 74 op:=lod; chet
000080: 79 70 28 77 75 72 64 29 20 65 6E 64 3B 0D 0A 09 yp(wurd) end;...
000090: 09 09 09 20 20 61 6C 66 61 73 69 7A 65 3A 20 0D ... alfasize: .
0000A0: 0A 09 09 09 09 20 20 20 20 69 66 20 73 79 6D 3D ..... if sym=
0000B0: 6C 62 72 61 63 6B 20 74 68 65 6E 20 62 65 67 69 lbrack then begi
0000C0: 6E 0D 0A 09 09 09 09 20 20 20 20 20 20 67 65 74 n...... get
0000D0: 73 79 6D 3B 20 65 78 70 72 65 73 73 69 6F 6E 28 sym; expression(
0000E0: 77 75 72 64 29 3B 0D 0A 09 09 09 09 20 20 20 20 wurd);......
0000F0: 20 20 74 65 73 74 28 72 62 72 61 63 6B 2C 31 32 test(rbrack,12
000100: 29 3B 20 6F 70 3A 3D 6C 6F 64 78 3B 0D 0A 09 09 ); op:=lodx;....
000110: 09 09 20 20 20 20 20 20 63 68 65 74 79 70 28 77 .. chetyp(w
000120: 75 72 64 29 20 65 6E 64 0D 0A 09 09 09 09 20 20 urd) end......
000130: 20 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A 09 09 else begin....
000140: 09 09 20 20 20 20 20 20 6F 70 3A 3D 61 6C 6F 64 .. op:=alod
000150: 3B 20 63 68 65 74 79 70 28 61 6C 70 68 61 29 0D ; chetyp(alpha).
000160: 0A 09 09 09 09 20 20 20 20 20 20 65 6E 64 3B 0D ..... end;.
000170: 0A 09 09 09 09 20 20 63 68 61 72 73 69 7A 65 3A ..... charsize:
000180: 20 62 65 67 69 6E 0D 0A 09 09 09 09 20 20 20 20 begin......
000190: 6F 70 3A 3D 63 6C 6F 64 3B 20 63 68 65 74 79 70 op:=clod; chetyp
0001A0: 28 77 75 72 64 29 20 65 6E 64 0D 0A 09 09 09 09 (wurd) end......
0001B0: 20 20 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 73 end; (* case s
0001C0: 74 6C 65 6E 5B 69 5D 20 2A 29 0D 0A 09 09 09 09 tlen[i] *)......
0001D0: 20 20 67 65 6E 6C 65 76 28 6F 70 2C 69 29 0D 0A genlev(op,i)..
0001E0: 09 09 09 09 20 20 65 6E 64 3B 20 28 2A 20 63 61 .... end; (* ca
0001F0: 73 65 20 73 69 6D 70 76 61 72 20 2A 29 0D 0A 09 se simpvar *)...
Size : 512 (Real : 512)
000000: 73 79 6D 3B 20 74 65 73 74 28 69 64 65 6E 74 2C sym; test(ident,
000010: 32 29 3B 0D 0A 09 09 09 09 20 20 6A 3A 3D 70 6F 2);...... j:=po
000020: 73 69 74 69 6F 6E 3B 0D 0A 09 09 09 09 20 20 69 sition;...... i
000030: 66 20 73 74 6B 69 6E 64 5B 6A 5D 3D 76 61 72 70 f stkind[j]=varp
000040: 61 72 6D 0D 0A 09 09 09 09 20 20 20 20 74 68 65 arm...... the
000050: 6E 20 67 65 6E 6C 65 76 28 6C 6F 64 2C 6A 29 0D n genlev(lod,j).
000060: 0A 09 09 09 09 20 20 20 20 65 6C 73 65 20 67 65 ..... else ge
000070: 6E 6C 65 76 28 6C 61 61 2C 6A 29 0D 0A 09 09 09 nlev(laa,j).....
000080: 09 75 6E 74 69 6C 20 73 79 6D 3C 3E 63 6F 6D 6D .until sym<>comm
000090: 61 3B 0D 0A 09 09 09 74 65 73 74 28 72 70 61 72 a;.....test(rpar
0000A0: 65 6E 2C 34 29 0D 0A 09 09 09 65 6E 64 3B 0D 0A en,4).....end;..
0000B0: 09 09 67 65 6E 28 63 61 6C 2C 6C 65 76 2D 73 74 ..gen(cal,lev-st
0000C0: 6C 65 76 5B 69 5D 2C 73 74 61 64 72 5B 69 5D 29 lev[i],stadr[i])
0000D0: 3B 0D 0A 09 09 67 65 6E 28 69 6E 74 2C 30 2C 30 ;....gen(int,0,0
0000E0: 2D 73 74 6C 65 6E 5B 69 5D 29 0D 0A 09 09 65 6E -stlen[i])....en
0000F0: 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 d; (* procedure
000100: 63 61 6C 6C 20 2A 29 0D 0A 0D 0A 09 09 70 72 6F call *)......pro
000110: 63 65 64 75 72 65 20 65 78 70 72 65 73 73 69 6F cedure expressio
000120: 6E 28 65 74 79 70 3A 20 65 78 70 74 79 70 29 3B n(etyp: exptyp);
000130: 20 62 61 63 6B 77 61 72 64 3B 0D 0A 0D 0A 09 09 backward;......
000140: 70 72 6F 63 65 64 75 72 65 20 63 68 65 74 79 70 procedure chetyp
000150: 28 64 65 73 74 79 70 3A 20 65 78 70 74 79 70 29 (destyp: exptyp)
000160: 3B 0D 0A 0D 0A 09 09 09 62 65 67 69 6E 0D 0A 09 ;.......begin...
000170: 09 09 69 66 20 65 74 79 70 3D 64 6F 6E 74 63 61 ..if etyp=dontca
000180: 72 65 20 74 68 65 6E 0D 0A 09 09 09 09 65 74 79 re then......ety
000190: 70 3A 3D 64 65 73 74 79 70 0D 0A 09 09 09 65 6C p:=destyp.....el
0001A0: 73 65 20 69 66 20 65 74 79 70 3C 3E 64 65 73 74 se if etyp<>dest
0001B0: 79 70 20 74 68 65 6E 0D 0A 09 09 09 09 65 72 72 yp then......err
0001C0: 6F 72 28 31 32 39 29 0D 0A 09 09 09 65 6E 64 3B or(129).....end;
0001D0: 20 28 2A 20 63 68 65 74 79 70 20 2A 29 0D 0A 0D (* chetyp *)...
0001E0: 0A 09 09 70 72 6F 63 65 64 75 72 65 20 73 65 78 ...procedure sex
0001F0: 70 3B 0D 0A 0D 0A 09 09 76 61 72 09 61 64 64 6F p;......var.addo
Size : 512 (Real : 512)
000000: 09 09 09 66 75 6E 6B 74 69 6F 6E 3A 20 62 65 67 ...funktion: beg
000010: 69 6E 20 28 2A 20 66 75 6E 63 74 69 6F 6E 20 72 in (* function r
000020: 65 66 65 72 65 6E 63 65 20 2A 29 0D 0A 09 09 09 eference *).....
000030: 09 20 20 20 20 67 65 6E 28 69 6E 74 2C 30 2C 69 . gen(int,0,i
000040: 6E 74 73 69 7A 65 29 3B 0D 0A 09 09 09 09 20 20 ntsize);......
000050: 20 20 63 61 6C 6C 28 69 29 3B 0D 0A 09 09 09 09 call(i);......
000060: 20 20 20 20 63 68 65 74 79 70 28 77 75 72 64 29 chetyp(wurd)
000070: 0D 0A 09 09 09 09 20 20 65 6E 64 20 28 2A 20 63 ...... end (* c
000080: 61 73 65 20 66 75 6E 6B 74 69 6F 6E 20 2A 29 0D ase funktion *).
000090: 0A 09 09 09 09 65 6E 64 20 28 2A 20 63 61 73 65 .....end (* case
0000A0: 20 73 74 6B 69 6E 64 5B 69 5D 20 6F 66 20 2A 29 stkind[i] of *)
0000B0: 0D 0A 09 09 09 09 65 6E 64 20 28 2A 20 63 61 73 ......end (* cas
0000C0: 65 20 69 64 65 6E 74 20 2A 29 0D 0A 09 09 09 65 e ident *).....e
0000D0: 6C 73 65 09 65 72 72 6F 72 28 35 38 29 0D 0A 09 lse.error(58)...
0000E0: 09 09 65 6E 64 20 28 2A 20 63 61 73 65 20 73 79 ..end (* case sy
0000F0: 6D 20 6F 66 20 2A 29 0D 0A 09 09 09 65 6E 64 3B m of *).....end;
000100: 20 28 2A 20 66 61 63 74 6F 72 20 2A 29 0D 0A 0D (* factor *)...
000110: 0A 09 09 09 62 65 67 69 6E 20 28 2A 20 74 65 72 ....begin (* ter
000120: 6D 20 2A 29 0D 0A 09 09 09 66 61 63 74 6F 72 3B m *).....factor;
000130: 0D 0A 09 09 09 77 68 69 6C 65 20 28 73 79 6D 3D .....while (sym=
000140: 74 69 6D 65 73 29 20 6F 72 20 28 73 79 6D 3D 73 times) or (sym=s
000150: 6C 61 73 68 29 20 6F 72 0D 0A 09 09 09 09 28 73 lash) or......(s
000160: 79 6D 3D 61 6E 64 73 79 6D 29 20 64 6F 20 62 65 ym=andsym) do be
000170: 67 69 6E 0D 0A 09 09 09 09 69 66 20 73 79 6D 3D gin......if sym=
000180: 61 6E 64 73 79 6D 20 74 68 65 6E 0D 0A 09 09 09 andsym then.....
000190: 09 09 67 65 6E 28 70 73 68 66 2C 30 2C 30 29 3B ..gen(pshf,0,0);
0001A0: 0D 0A 09 09 09 09 6D 75 6C 6F 70 3A 3D 73 79 6D ......mulop:=sym
0001B0: 3B 0D 0A 09 09 09 09 67 65 74 73 79 6D 3B 20 66 ;......getsym; f
0001C0: 61 63 74 6F 72 3B 0D 0A 09 09 09 09 69 66 20 6D actor;......if m
0001D0: 75 6C 6F 70 3D 74 69 6D 65 73 20 74 68 65 6E 20 ulop=times then
0001E0: 67 65 6E 28 6F 70 72 2C 30 2C 34 29 0D 0A 09 09 gen(opr,0,4)....
0001F0: 09 09 65 6C 73 65 20 69 66 20 6D 75 6C 6F 70 3D ..else if mulop=
Size : 512 (Real : 512)
000000: 20 20 61 6C 66 61 73 69 7A 65 3A 20 6F 70 3A 3D alfasize: op:=
000010: 73 74 6F 78 3B 0D 0A 09 09 09 09 20 20 69 6E 74 stox;...... int
000020: 73 69 7A 65 3A 20 20 6F 70 3A 3D 73 74 6F 3B 0D size: op:=sto;.
000030: 0A 09 09 09 09 20 20 63 68 61 72 73 69 7A 65 3A ..... charsize:
000040: 20 6F 70 3A 3D 63 73 74 6F 0D 0A 09 09 09 09 20 op:=csto......
000050: 20 65 6E 64 20 28 2A 20 63 61 73 65 20 73 74 6C end (* case stl
000060: 65 6E 5B 69 5D 20 6F 66 20 2A 29 0D 0A 09 09 09 en[i] of *).....
000070: 09 65 6C 73 65 20 6F 70 3A 3D 61 73 74 6F 3B 0D .else op:=asto;.
000080: 0A 09 09 09 09 67 65 6E 6C 65 76 28 6F 70 2C 69 .....genlev(op,i
000090: 29 0D 0A 09 09 09 09 65 6E 64 3B 20 28 2A 20 63 )......end; (* c
0000A0: 61 73 65 20 73 69 6D 70 76 61 72 20 2A 29 0D 0A ase simpvar *)..
0000B0: 09 09 09 70 72 6F 7A 65 64 75 72 65 3A 20 62 65 ...prozedure: be
0000C0: 67 69 6E 20 28 2A 20 70 72 6F 63 65 64 75 72 65 gin (* procedure
0000D0: 20 63 61 6C 6C 20 2A 29 0D 0A 09 09 09 09 63 61 call *)......ca
0000E0: 6C 6C 28 69 29 0D 0A 09 09 09 09 65 6E 64 3B 20 ll(i)......end;
0000F0: 28 2A 20 63 61 73 65 20 70 72 6F 7A 65 64 75 72 (* case prozedur
000100: 65 20 2A 29 0D 0A 09 09 09 66 75 6E 6B 74 69 6F e *).....funktio
000110: 6E 3A 20 62 65 67 69 6E 20 28 2A 20 66 75 6E 63 n: begin (* func
000120: 74 69 6F 6E 20 72 65 74 75 72 6E 20 76 61 6C 75 tion return valu
000130: 65 20 2A 29 0D 0A 09 09 09 09 67 65 74 73 79 6D e *)......getsym
000140: 3B 0D 0A 09 09 09 09 74 65 73 74 28 63 6F 6C 6F ;......test(colo
000150: 6E 2C 35 31 29 3B 20 74 65 73 74 28 65 71 6C 2C n,51); test(eql,
000160: 35 31 29 3B 0D 0A 09 09 09 09 65 78 70 72 65 73 51);......expres
000170: 73 69 6F 6E 28 64 6F 6E 74 63 61 72 65 29 3B 0D sion(dontcare);.
000180: 0A 09 09 09 09 67 65 6E 28 73 74 6F 2C 30 2C 30 .....gen(sto,0,0
000190: 2D 73 74 6C 65 6E 5B 69 5D 2D 36 29 0D 0A 09 09 -stlen[i]-6)....
0001A0: 09 09 65 6E 64 20 28 2A 20 63 61 73 65 20 66 75 ..end (* case fu
0001B0: 6E 6B 74 69 6F 6E 20 2A 29 0D 0A 09 09 09 65 6C nktion *).....el
0001C0: 73 65 20 65 72 72 6F 72 28 31 30 33 29 0D 0A 09 se error(103)...
0001D0: 09 09 65 6E 64 20 28 2A 20 63 61 73 65 20 73 74 ..end (* case st
0001E0: 6B 69 6E 64 5B 69 5D 20 2A 29 0D 0A 09 09 09 65 kind[i] *).....e
0001F0: 6E 64 3B 20 28 2A 20 63 61 73 65 20 69 64 65 6E nd; (* case iden
Size : 512 (Real : 512)
000000: 73 6C 61 73 68 20 74 68 65 6E 20 67 65 6E 28 6F slash then gen(o
000010: 70 72 2C 30 2C 35 29 0D 0A 09 09 09 09 65 6C 73 pr,0,5)......els
000020: 65 20 67 65 6E 28 6F 70 72 2C 30 2C 31 35 29 0D e gen(opr,0,15).
000030: 0A 09 09 09 09 65 6E 64 0D 0A 09 09 09 65 6E 64 .....end.....end
000040: 3B 20 28 2A 20 74 65 72 6D 20 2A 29 0D 0A 0D 0A ; (* term *)....
000050: 09 09 09 62 65 67 69 6E 20 28 2A 20 73 65 78 70 ...begin (* sexp
000060: 20 2A 29 0D 0A 09 09 09 69 66 20 28 73 79 6D 3D *).....if (sym=
000070: 70 6C 75 73 29 20 6F 72 20 28 73 79 6D 3D 6D 69 plus) or (sym=mi
000080: 6E 75 73 29 20 74 68 65 6E 20 62 65 67 69 6E 0D nus) then begin.
000090: 0A 09 09 09 09 61 64 64 6F 70 3A 3D 73 79 6D 3B .....addop:=sym;
0000A0: 20 67 65 74 73 79 6D 3B 20 74 65 72 6D 3B 0D 0A getsym; term;..
0000B0: 09 09 09 09 69 66 20 61 64 64 6F 70 3D 6D 69 6E ....if addop=min
0000C0: 75 73 20 74 68 65 6E 20 67 65 6E 28 6F 70 72 2C us then gen(opr,
0000D0: 30 2C 31 29 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 0,1)......end...
0000E0: 09 09 65 6C 73 65 20 74 65 72 6D 3B 0D 0A 09 09 ..else term;....
0000F0: 09 77 68 69 6C 65 20 28 73 79 6D 3D 70 6C 75 73 .while (sym=plus
000100: 29 20 6F 72 20 28 73 79 6D 3D 6D 69 6E 75 73 29 ) or (sym=minus)
000110: 20 6F 72 0D 0A 09 09 09 09 28 73 79 6D 3D 6F 72 or......(sym=or
000120: 73 79 6D 29 20 64 6F 20 62 65 67 69 6E 0D 0A 09 sym) do begin...
000130: 09 09 09 69 66 20 73 79 6D 3D 6F 72 73 79 6D 20 ...if sym=orsym
000140: 74 68 65 6E 0D 0A 09 09 09 09 09 67 65 6E 28 70 then.......gen(p
000150: 73 68 66 2C 30 2C 30 29 3B 0D 0A 09 09 09 09 61 shf,0,0);......a
000160: 64 64 6F 70 3A 3D 73 79 6D 3B 20 67 65 74 73 79 ddop:=sym; getsy
000170: 6D 3B 20 74 65 72 6D 3B 0D 0A 09 09 09 09 69 66 m; term;......if
000180: 20 61 64 64 6F 70 3D 70 6C 75 73 20 74 68 65 6E addop=plus then
000190: 20 67 65 6E 28 6F 70 72 2C 30 2C 32 29 0D 0A 09 gen(opr,0,2)...
0001A0: 09 09 09 65 6C 73 65 20 69 66 20 61 64 64 6F 70 ...else if addop
0001B0: 3D 6D 69 6E 75 73 20 74 68 65 6E 20 67 65 6E 28 =minus then gen(
0001C0: 6F 70 72 2C 30 2C 33 29 0D 0A 09 09 09 09 65 6C opr,0,3)......el
0001D0: 73 65 20 67 65 6E 28 6F 70 72 2C 30 2C 31 34 29 se gen(opr,0,14)
0001E0: 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 09 09 65 6E ......end.....en
0001F0: 64 3B 20 28 2A 20 73 65 78 70 20 2A 29 0D 0A 0D d; (* sexp *)...
Size : 512 (Real : 512)
000000: 74 20 2A 29 0D 0A 09 09 69 66 73 79 6D 3A 09 62 t *)....ifsym:.b
000010: 65 67 69 6E 20 67 65 74 73 79 6D 3B 20 65 78 70 egin getsym; exp
000020: 72 65 73 73 69 6F 6E 28 64 6F 6E 74 63 61 72 65 ression(dontcare
000030: 29 3B 0D 0A 09 09 09 74 65 73 74 28 74 68 65 6E );.....test(then
000040: 73 79 6D 2C 35 32 29 3B 0D 0A 09 09 09 66 6C 61 sym,52);.....fla
000050: 62 3A 3D 6E 6C 61 62 3B 20 67 65 6E 28 6A 70 63 b:=nlab; gen(jpc
000060: 2C 30 2C 66 6C 61 62 29 3B 0D 0A 09 09 09 73 74 ,0,flab);.....st
000070: 61 74 65 6D 65 6E 74 3B 0D 0A 09 09 09 69 66 20 atement;.....if
000080: 73 79 6D 3D 65 6C 73 65 73 79 6D 20 74 68 65 6E sym=elsesym then
000090: 20 62 65 67 69 6E 0D 0A 09 09 09 09 65 6C 61 62 begin......elab
0000A0: 3A 3D 6E 6C 61 62 3B 20 67 65 6E 28 6A 6D 70 2C :=nlab; gen(jmp,
0000B0: 30 2C 65 6C 61 62 29 3B 0D 0A 09 09 09 09 67 65 0,elab);......ge
0000C0: 6E 28 6C 61 62 2C 30 2C 66 6C 61 62 29 3B 0D 0A n(lab,0,flab);..
0000D0: 09 09 09 09 67 65 74 73 79 6D 3B 0D 0A 09 09 09 ....getsym;.....
0000E0: 09 73 74 61 74 65 6D 65 6E 74 3B 0D 0A 09 09 09 .statement;.....
0000F0: 09 67 65 6E 28 6C 61 62 2C 30 2C 65 6C 61 62 29 .gen(lab,0,elab)
000100: 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 09 09 65 6C ......end.....el
000110: 73 65 20 67 65 6E 28 6C 61 62 2C 30 2C 66 6C 61 se gen(lab,0,fla
000120: 62 29 0D 0A 09 09 09 65 6E 64 3B 20 28 2A 20 63 b).....end; (* c
000130: 61 73 65 20 69 66 73 79 6D 20 2A 29 0D 0A 09 09 ase ifsym *)....
000140: 66 6F 72 73 79 6D 3A 09 62 65 67 69 6E 20 67 65 forsym:.begin ge
000150: 74 73 79 6D 3B 0D 0A 09 09 09 74 65 73 74 28 69 tsym;.....test(i
000160: 64 65 6E 74 2C 32 29 3B 20 69 3A 3D 70 6F 73 69 dent,2); i:=posi
000170: 74 69 6F 6E 3B 0D 0A 09 09 09 74 65 73 74 28 63 tion;.....test(c
000180: 6F 6C 6F 6E 2C 35 31 29 3B 20 74 65 73 74 28 65 olon,51); test(e
000190: 71 6C 2C 35 31 29 3B 0D 0A 09 09 09 65 78 70 72 ql,51);.....expr
0001A0: 65 73 73 69 6F 6E 28 64 6F 6E 74 63 61 72 65 29 ession(dontcare)
0001B0: 3B 0D 0A 09 09 09 67 65 6E 6C 65 76 28 73 74 6F ;.....genlev(sto
0001C0: 2C 69 29 3B 0D 0A 09 09 09 69 66 20 73 79 6D 3D ,i);.....if sym=
0001D0: 74 6F 73 79 6D 20 74 68 65 6E 20 62 65 67 69 6E tosym then begin
0001E0: 0D 0A 09 09 09 09 67 65 74 73 79 6D 3B 20 75 70 ......getsym; up
0001F0: 64 6E 3A 3D 31 39 3B 20 6F 70 3A 3D 31 31 20 65 dn:=19; op:=11 e
Size : 512 (Real : 512)
000000: 0A 09 09 09 62 65 67 69 6E 20 28 2A 20 65 78 70 ....begin (* exp
000010: 72 65 73 73 69 6F 6E 20 2A 29 0D 0A 09 09 09 73 ression *).....s
000020: 65 78 70 3B 0D 0A 09 09 09 69 66 20 73 79 6D 3D exp;.....if sym=
000030: 6C 73 73 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A lss then begin..
000040: 09 09 09 09 67 65 74 73 79 6D 3B 0D 0A 09 09 09 ....getsym;.....
000050: 09 69 66 20 73 79 6D 3D 65 71 6C 20 74 68 65 6E .if sym=eql then
000060: 20 62 65 67 69 6E 0D 0A 09 09 09 09 09 67 65 74 begin.......get
000070: 73 79 6D 3B 20 73 65 78 70 3B 0D 0A 09 09 09 09 sym; sexp;......
000080: 09 67 65 6E 28 6F 70 72 2C 65 74 79 70 2C 31 33 .gen(opr,etyp,13
000090: 29 20 65 6E 64 0D 0A 09 09 09 09 65 6C 73 65 20 ) end......else
0000A0: 69 66 20 73 79 6D 3D 67 74 72 20 74 68 65 6E 20 if sym=gtr then
0000B0: 62 65 67 69 6E 0D 0A 09 09 09 09 09 67 65 74 73 begin.......gets
0000C0: 79 6D 3B 20 73 65 78 70 3B 0D 0A 09 09 09 09 09 ym; sexp;.......
0000D0: 67 65 6E 28 6F 70 72 2C 65 74 79 70 2C 39 29 20 gen(opr,etyp,9)
0000E0: 65 6E 64 0D 0A 09 09 09 09 65 6C 73 65 20 62 65 end......else be
0000F0: 67 69 6E 0D 0A 09 09 09 09 09 73 65 78 70 3B 20 gin.......sexp;
000100: 67 65 6E 28 6F 70 72 2C 65 74 79 70 2C 31 30 29 gen(opr,etyp,10)
000110: 20 65 6E 64 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 end......end...
000120: 09 09 65 6C 73 65 20 69 66 20 73 79 6D 3D 67 74 ..else if sym=gt
000130: 72 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 r then begin....
000140: 09 09 67 65 74 73 79 6D 3B 0D 0A 09 09 09 09 69 ..getsym;......i
000150: 66 20 73 79 6D 3D 65 71 6C 20 74 68 65 6E 20 62 f sym=eql then b
000160: 65 67 69 6E 0D 0A 09 09 09 09 09 67 65 74 73 79 egin.......getsy
000170: 6D 3B 20 73 65 78 70 3B 0D 0A 09 09 09 09 09 67 m; sexp;.......g
000180: 65 6E 28 6F 70 72 2C 65 74 79 70 2C 31 31 29 20 en(opr,etyp,11)
000190: 65 6E 64 0D 0A 09 09 09 09 65 6C 73 65 20 62 65 end......else be
0001A0: 67 69 6E 0D 0A 09 09 09 09 09 73 65 78 70 3B 20 gin.......sexp;
0001B0: 67 65 6E 28 6F 70 72 2C 65 74 79 70 2C 31 32 29 gen(opr,etyp,12)
0001C0: 20 65 6E 64 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 end......end...
0001D0: 09 09 65 6C 73 65 20 69 66 20 73 79 6D 3D 65 71 ..else if sym=eq
0001E0: 6C 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 l then begin....
0001F0: 09 09 67 65 74 73 79 6D 3B 20 73 65 78 70 3B 20 ..getsym; sexp;
Size : 512 (Real : 512)
000000: 6E 64 0D 0A 09 09 09 65 6C 73 65 20 69 66 20 73 nd.....else if s
000010: 79 6D 3D 64 6F 77 6E 74 6F 73 79 6D 20 74 68 65 ym=downtosym the
000020: 6E 20 62 65 67 69 6E 0D 0A 09 09 09 09 67 65 74 n begin......get
000030: 73 79 6D 3B 20 75 70 64 6E 3A 3D 32 30 3B 20 6F sym; updn:=20; o
000040: 70 3A 3D 31 33 20 65 6E 64 0D 0A 09 09 09 65 6C p:=13 end.....el
000050: 73 65 20 65 72 72 6F 72 28 35 35 29 3B 0D 0A 09 se error(55);...
000060: 09 09 65 78 70 72 65 73 73 69 6F 6E 28 64 6F 6E ..expression(don
000070: 74 63 61 72 65 29 3B 0D 0A 09 09 09 74 65 73 74 tcare);.....test
000080: 28 64 6F 73 79 6D 2C 35 34 29 3B 0D 0A 09 09 09 (dosym,54);.....
000090: 74 6C 61 62 3A 3D 6E 6C 61 62 3B 20 67 65 6E 28 tlab:=nlab; gen(
0000A0: 6C 61 62 2C 30 2C 74 6C 61 62 29 3B 0D 0A 09 09 lab,0,tlab);....
0000B0: 09 67 65 6E 28 6F 70 72 2C 30 2C 32 31 29 3B 0D .gen(opr,0,21);.
0000C0: 0A 09 09 09 67 65 6E 6C 65 76 28 6C 6F 64 2C 69 ....genlev(lod,i
0000D0: 29 3B 0D 0A 09 09 09 67 65 6E 28 6F 70 72 2C 30 );.....gen(opr,0
0000E0: 2C 6F 70 29 3B 0D 0A 09 09 09 65 6C 61 62 3A 3D ,op);.....elab:=
0000F0: 6E 6C 61 62 3B 20 67 65 6E 28 6A 70 63 2C 30 2C nlab; gen(jpc,0,
000100: 65 6C 61 62 29 3B 0D 0A 09 09 09 73 74 61 74 65 elab);.....state
000110: 6D 65 6E 74 3B 0D 0A 09 09 09 67 65 6E 6C 65 76 ment;.....genlev
000120: 28 6C 6F 64 2C 69 29 3B 0D 0A 09 09 09 67 65 6E (lod,i);.....gen
000130: 28 6F 70 72 2C 30 2C 75 70 64 6E 29 3B 0D 0A 09 (opr,0,updn);...
000140: 09 09 67 65 6E 6C 65 76 28 73 74 6F 2C 69 29 3B ..genlev(sto,i);
000150: 0D 0A 09 09 09 67 65 6E 28 6A 6D 70 2C 30 2C 74 .....gen(jmp,0,t
000160: 6C 61 62 29 3B 0D 0A 09 09 09 67 65 6E 28 6C 61 lab);.....gen(la
000170: 62 2C 30 2C 65 6C 61 62 29 3B 20 67 65 6E 28 69 b,0,elab); gen(i
000180: 6E 74 2C 30 2C 30 2D 69 6E 74 73 69 7A 65 29 0D nt,0,0-intsize).
000190: 0A 09 09 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 ....end; (* case
0001A0: 20 66 6F 72 73 79 6D 20 2A 29 0D 0A 09 09 72 65 forsym *)....re
0001B0: 70 65 61 74 73 79 6D 3A 20 62 65 67 69 6E 0D 0A peatsym: begin..
0001C0: 09 09 09 74 6C 61 62 3A 3D 6E 6C 61 62 3B 20 67 ...tlab:=nlab; g
0001D0: 65 6E 28 6C 61 62 2C 30 2C 74 6C 61 62 29 3B 0D en(lab,0,tlab);.
0001E0: 0A 09 09 09 72 65 70 65 61 74 0D 0A 09 09 09 09 ....repeat......
0001F0: 67 65 74 73 79 6D 3B 20 73 74 61 74 65 6D 65 6E getsym; statemen
Size : 512 (Real : 512)
000000: 67 65 6E 28 6F 70 72 2C 65 74 79 70 2C 38 29 20 gen(opr,etyp,8)
000010: 65 6E 64 3B 0D 0A 09 09 09 65 72 65 73 74 79 70 end;.....erestyp
000020: 3A 3D 65 74 79 70 0D 0A 09 09 09 65 6E 64 3B 20 :=etyp.....end;
000030: 28 2A 20 65 78 70 72 65 73 73 69 6F 6E 20 2A 29 (* expression *)
000040: 0D 0A 0D 0A 09 09 62 65 67 69 6E 20 28 2A 20 73 ......begin (* s
000050: 74 61 74 65 6D 65 6E 74 20 2A 29 0D 0A 09 09 63 tatement *)....c
000060: 61 73 65 20 73 79 6D 20 6F 66 0D 0A 09 09 69 64 ase sym of....id
000070: 65 6E 74 3A 09 62 65 67 69 6E 20 28 2A 20 63 6F ent:.begin (* co
000080: 75 6C 64 20 62 65 20 61 6E 79 74 68 69 6E 67 20 uld be anything
000090: 2A 29 0D 0A 09 09 09 69 3A 3D 70 6F 73 69 74 69 *).....i:=positi
0000A0: 6F 6E 3B 0D 0A 09 09 09 63 61 73 65 20 73 74 6B on;.....case stk
0000B0: 69 6E 64 5B 69 5D 20 6F 66 0D 0A 09 09 09 61 72 ind[i] of.....ar
0000C0: 72 61 79 76 61 72 3A 20 62 65 67 69 6E 20 28 2A rayvar: begin (*
0000D0: 20 61 72 72 61 79 20 61 73 73 69 67 6E 6D 65 6E array assignmen
0000E0: 74 20 2A 29 0D 0A 09 09 09 09 67 65 74 73 79 6D t *)......getsym
0000F0: 3B 20 74 65 73 74 28 6C 62 72 61 63 6B 2C 31 31 ; test(lbrack,11
000100: 29 3B 0D 0A 09 09 09 09 65 78 70 72 65 73 73 69 );......expressi
000110: 6F 6E 28 77 75 72 64 29 3B 0D 0A 09 09 09 09 74 on(wurd);......t
000120: 65 73 74 28 72 62 72 61 63 6B 2C 31 32 29 3B 0D est(rbrack,12);.
000130: 0A 09 09 09 09 74 65 73 74 28 63 6F 6C 6F 6E 2C .....test(colon,
000140: 35 31 29 3B 20 74 65 73 74 28 65 71 6C 2C 35 31 51); test(eql,51
000150: 29 3B 0D 0A 09 09 09 09 65 78 70 72 65 73 73 69 );......expressi
000160: 6F 6E 28 64 6F 6E 74 63 61 72 65 29 3B 0D 0A 09 on(dontcare);...
000170: 09 09 09 63 61 73 65 20 73 74 61 64 72 5B 73 74 ...case stadr[st
000180: 6C 65 6E 5B 69 5D 5D 20 6F 66 0D 0A 09 09 09 09 len[i]] of......
000190: 63 68 61 72 73 69 7A 65 3A 20 6F 70 3A 3D 63 73 charsize: op:=cs
0001A0: 74 6F 78 3B 0D 0A 09 09 09 09 69 6E 74 73 69 7A tox;......intsiz
0001B0: 65 3A 20 20 6F 70 3A 3D 73 74 6F 78 3B 0D 0A 09 e: op:=stox;...
0001C0: 09 09 09 61 6C 66 61 73 69 7A 65 3A 20 6F 70 3A ...alfasize: op:
0001D0: 3D 61 73 74 6F 78 0D 0A 09 09 09 09 65 6E 64 3B =astox......end;
0001E0: 20 28 2A 20 63 61 73 65 20 73 74 61 64 72 5B 73 (* case stadr[s
0001F0: 74 6C 65 6E 5B 69 5D 5D 20 6F 66 20 2A 29 0D 0A tlen[i]] of *)..
Size : 512 (Real : 512)
000000: 74 0D 0A 09 09 09 75 6E 74 69 6C 20 73 79 6D 3C t.....until sym<
000010: 3E 73 65 6D 69 63 6F 6C 6F 6E 3B 0D 0A 09 09 09 >semicolon;.....
000020: 74 65 73 74 28 75 6E 74 69 6C 73 79 6D 2C 35 33 test(untilsym,53
000030: 29 3B 20 65 78 70 72 65 73 73 69 6F 6E 28 64 6F ); expression(do
000040: 6E 74 63 61 72 65 29 3B 0D 0A 09 09 09 67 65 6E ntcare);.....gen
000050: 28 6A 70 63 2C 30 2C 74 6C 61 62 29 0D 0A 09 09 (jpc,0,tlab)....
000060: 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 72 65 .end; (* case re
000070: 70 65 61 74 73 79 6D 20 2A 29 0D 0A 09 09 63 61 peatsym *)....ca
000080: 73 65 73 79 6D 3A 20 62 65 67 69 6E 0D 0A 09 09 sesym: begin....
000090: 09 67 65 74 73 79 6D 3B 20 65 78 70 72 65 73 73 .getsym; express
0000A0: 69 6F 6E 28 64 6F 6E 74 63 61 72 65 29 3B 0D 0A ion(dontcare);..
0000B0: 09 09 09 69 66 20 73 79 6D 3C 3E 6F 66 73 79 6D ...if sym<>ofsym
0000C0: 20 74 68 65 6E 20 65 72 72 6F 72 28 38 29 3B 0D then error(8);.
0000D0: 0A 09 09 09 65 6C 61 62 3A 3D 6E 6C 61 62 3B 20 ....elab:=nlab;
0000E0: 28 2A 20 65 6E 64 20 6C 61 62 65 6C 20 2A 29 0D (* end label *).
0000F0: 0A 09 09 09 72 65 70 65 61 74 0D 0A 09 09 09 09 ....repeat......
000100: 67 65 74 73 79 6D 3B 0D 0A 09 09 09 09 67 65 6E getsym;......gen
000110: 28 6F 70 72 2C 30 2C 32 31 29 3B 20 28 2A 20 64 (opr,0,21); (* d
000120: 75 70 20 2A 29 0D 0A 09 09 09 09 67 65 6E 28 6C up *)......gen(l
000130: 69 74 2C 30 2C 63 6F 6D 70 63 6F 6E 29 3B 0D 0A it,0,compcon);..
000140: 09 09 09 09 74 65 73 74 28 63 6F 6C 6F 6E 2C 35 ....test(colon,5
000150: 29 3B 0D 0A 09 09 09 09 67 65 6E 28 6F 70 72 2C );......gen(opr,
000160: 30 2C 38 29 3B 20 28 2A 20 65 71 75 61 6C 20 72 0,8); (* equal r
000170: 65 6C 6F 70 20 2A 29 0D 0A 09 09 09 09 66 6C 61 elop *)......fla
000180: 62 3A 3D 6E 6C 61 62 3B 20 67 65 6E 28 6A 70 63 b:=nlab; gen(jpc
000190: 2C 30 2C 66 6C 61 62 29 3B 0D 0A 09 09 09 09 73 ,0,flab);......s
0001A0: 74 61 74 65 6D 65 6E 74 3B 0D 0A 09 09 09 09 67 tatement;......g
0001B0: 65 6E 28 6A 6D 70 2C 30 2C 65 6C 61 62 29 3B 0D en(jmp,0,elab);.
0001C0: 0A 09 09 09 09 67 65 6E 28 6C 61 62 2C 30 2C 66 .....gen(lab,0,f
0001D0: 6C 61 62 29 0D 0A 09 09 09 75 6E 74 69 6C 20 28 lab).....until (
0001E0: 73 79 6D 3D 65 6C 73 65 73 79 6D 29 20 6F 72 20 sym=elsesym) or
0001F0: 28 73 79 6D 3D 65 6E 64 73 79 6D 29 3B 0D 0A 09 (sym=endsym);...
Size : 512 (Real : 512)
000000: 09 09 09 09 67 65 6E 6C 65 76 28 6F 70 2C 69 29 ....genlev(op,i)
000010: 0D 0A 09 09 09 09 65 6E 64 3B 20 28 2A 20 63 61 ......end; (* ca
000020: 73 65 20 61 72 72 61 79 76 61 72 20 2A 29 0D 0A se arrayvar *)..
000030: 09 09 09 76 61 72 70 61 72 6D 3A 20 62 65 67 69 ...varparm: begi
000040: 6E 20 28 2A 20 76 61 72 20 70 61 72 61 6D 65 74 n (* var paramet
000050: 65 72 20 61 73 73 69 67 6E 6D 65 6E 74 20 2A 29 er assignment *)
000060: 0D 0A 09 09 09 09 67 65 74 73 79 6D 3B 20 67 65 ......getsym; ge
000070: 6E 6C 65 76 28 6C 6F 64 2C 69 29 3B 0D 0A 09 09 nlev(lod,i);....
000080: 09 09 74 65 73 74 28 63 6F 6C 6F 6E 2C 35 31 29 ..test(colon,51)
000090: 3B 20 74 65 73 74 28 65 71 6C 2C 35 31 29 3B 0D ; test(eql,51);.
0000A0: 0A 09 09 09 09 65 78 70 72 65 73 73 69 6F 6E 28 .....expression(
0000B0: 64 6F 6E 74 63 61 72 65 29 3B 0D 0A 09 09 09 09 dontcare);......
0000C0: 67 65 6E 28 73 74 6F 69 2C 30 2C 30 29 0D 0A 09 gen(stoi,0,0)...
0000D0: 09 09 09 65 6E 64 3B 20 28 2A 20 63 61 73 65 20 ...end; (* case
0000E0: 76 61 72 70 61 72 6D 20 2A 29 0D 0A 09 09 09 73 varparm *).....s
0000F0: 69 6D 70 76 61 72 3A 20 62 65 67 69 6E 20 28 2A impvar: begin (*
000100: 20 73 69 6D 70 6C 65 20 76 61 72 69 61 62 6C 65 simple variable
000110: 20 61 73 73 69 67 6E 6D 65 6E 74 20 2A 29 0D 0A assignment *)..
000120: 09 09 09 09 67 65 74 73 79 6D 3B 0D 0A 09 09 09 ....getsym;.....
000130: 09 69 66 20 73 79 6D 3D 6C 62 72 61 63 6B 20 74 .if sym=lbrack t
000140: 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 09 20 hen begin......
000150: 20 67 65 74 73 79 6D 3B 20 65 78 70 72 65 73 73 getsym; express
000160: 69 6F 6E 28 64 6F 6E 74 63 61 72 65 29 3B 0D 0A ion(dontcare);..
000170: 09 09 09 09 20 20 74 65 73 74 28 72 62 72 61 63 .... test(rbrac
000180: 6B 2C 31 32 29 20 65 6E 64 3B 0D 0A 09 09 09 09 k,12) end;......
000190: 74 65 73 74 28 63 6F 6C 6F 6E 2C 35 31 29 3B 20 test(colon,51);
0001A0: 74 65 73 74 28 65 71 6C 2C 35 31 29 3B 0D 0A 09 test(eql,51);...
0001B0: 09 09 09 65 78 70 72 65 73 73 69 6F 6E 28 64 6F ...expression(do
0001C0: 6E 74 63 61 72 65 29 3B 0D 0A 09 09 09 09 69 66 ntcare);......if
0001D0: 20 65 72 65 73 74 79 70 3D 77 75 72 64 20 74 68 erestyp=wurd th
0001E0: 65 6E 0D 0A 09 09 09 09 20 20 63 61 73 65 20 73 en...... case s
0001F0: 74 6C 65 6E 5B 69 5D 20 6F 66 0D 0A 09 09 09 09 tlen[i] of......
Size : 512 (Real : 512)
000000: 09 09 69 66 20 73 79 6D 3D 65 6C 73 65 73 79 6D ..if sym=elsesym
000010: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 09 then begin.....
000020: 09 67 65 74 73 79 6D 3B 0D 0A 09 09 09 09 73 74 .getsym;......st
000030: 61 74 65 6D 65 6E 74 0D 0A 09 09 09 09 65 6E 64 atement......end
000040: 3B 0D 0A 09 09 09 74 65 73 74 28 65 6E 64 73 79 ;.....test(endsy
000050: 6D 2C 31 33 29 3B 0D 0A 09 09 09 67 65 6E 28 6C m,13);.....gen(l
000060: 61 62 2C 30 2C 65 6C 61 62 29 3B 0D 0A 09 09 09 ab,0,elab);.....
000070: 67 65 6E 28 69 6E 74 2C 30 2C 30 2D 69 6E 74 73 gen(int,0,0-ints
000080: 69 7A 65 29 0D 0A 09 09 09 65 6E 64 3B 20 28 2A ize).....end; (*
000090: 20 63 61 73 65 20 63 61 73 65 73 79 6D 20 2A 29 case casesym *)
0000A0: 0D 0A 09 09 67 65 74 73 79 3A 09 62 65 67 69 6E ....getsy:.begin
0000B0: 0D 0A 09 09 09 67 65 74 73 79 6D 3B 20 74 65 73 .....getsym; tes
0000C0: 74 28 70 6F 75 6E 64 2C 39 39 29 3B 0D 0A 09 09 t(pound,99);....
0000D0: 09 69 3A 3D 63 6F 6D 70 63 6F 6E 3B 0D 0A 09 09 .i:=compcon;....
0000E0: 09 74 65 73 74 28 6C 70 61 72 65 6E 2C 39 29 3B .test(lparen,9);
0000F0: 20 74 65 73 74 28 69 64 65 6E 74 2C 32 29 3B 0D test(ident,2);.
000100: 0A 09 09 09 67 65 6E 28 63 73 70 2C 69 2C 30 29 ....gen(csp,i,0)
000110: 3B 0D 0A 09 09 09 69 3A 3D 70 6F 73 69 74 69 6F ;.....i:=positio
000120: 6E 3B 0D 0A 09 09 09 67 65 6E 6C 65 76 28 73 74 n;.....genlev(st
000130: 6F 2C 69 29 3B 0D 0A 09 09 09 74 65 73 74 28 72 o,i);.....test(r
000140: 70 61 72 65 6E 2C 34 29 0D 0A 09 09 09 65 6E 64 paren,4).....end
000150: 3B 20 28 2A 20 63 61 73 65 20 67 65 74 73 79 20 ; (* case getsy
000160: 2A 29 0D 0A 09 09 70 75 74 73 79 6D 3A 09 62 65 *)....putsym:.be
000170: 67 69 6E 0D 0A 09 09 09 67 65 74 73 79 6D 3B 0D gin.....getsym;.
000180: 0A 09 09 09 74 65 73 74 28 70 6F 75 6E 64 2C 39 ....test(pound,9
000190: 39 29 3B 0D 0A 09 09 09 69 3A 3D 63 6F 6D 70 63 9);.....i:=compc
0001A0: 6F 6E 3B 0D 0A 09 09 09 69 66 20 73 79 6D 3C 3E on;.....if sym<>
0001B0: 6C 70 61 72 65 6E 20 74 68 65 6E 20 65 72 72 6F lparen then erro
0001C0: 72 28 39 29 3B 0D 0A 09 09 09 72 65 70 65 61 74 r(9);.....repeat
0001D0: 0D 0A 09 09 09 09 67 65 74 73 79 6D 3B 20 65 78 ......getsym; ex
0001E0: 70 72 65 73 73 69 6F 6E 28 64 6F 6E 74 63 61 72 pression(dontcar
0001F0: 65 29 3B 0D 0A 09 09 09 09 69 66 20 65 72 65 73 e);......if eres
Size : 512 (Real : 512)
000000: 69 63 6F 6C 6F 6E 2C 31 34 29 3B 0D 0A 09 09 69 icolon,14);....i
000010: 66 20 69 64 3D 27 46 4F 52 57 41 52 44 20 27 0D f id='FORWARD '.
000020: 0A 09 09 74 68 65 6E 20 67 65 74 73 79 6D 0D 0A ...then getsym..
000030: 09 09 65 6C 73 65 0D 0A 09 09 09 69 66 20 69 64 ..else.....if id
000040: 3D 27 42 41 43 4B 57 41 52 44 27 20 74 68 65 6E ='BACKWARD' then
000050: 20 62 65 67 69 6E 0D 0A 09 09 09 09 67 65 74 73 begin......gets
000060: 79 6D 3B 0D 0A 09 09 09 09 74 65 73 74 28 73 65 ym;......test(se
000070: 6D 69 63 6F 6C 6F 6E 2C 31 34 29 3B 0D 0A 09 09 micolon,14);....
000080: 09 09 69 3A 3D 31 3B 20 69 64 3A 3D 73 74 6E 61 ..i:=1; id:=stna
000090: 6D 65 5B 74 78 31 5D 3B 0D 0A 09 09 09 09 77 68 me[tx1];......wh
0000A0: 69 6C 65 20 69 64 3C 3E 73 74 6E 61 6D 65 5B 69 ile id<>stname[i
0000B0: 5D 20 64 6F 0D 0A 09 09 09 09 09 69 3A 3D 69 2B ] do.......i:=i+
0000C0: 31 3B 0D 0A 09 09 09 09 73 74 6E 61 6D 65 5B 69 1;......stname[i
0000D0: 5D 3A 3D 27 2A 2A 2A 2A 2A 2A 2A 2A 27 3B 0D 0A ]:='********';..
0000E0: 09 09 09 09 73 74 61 64 72 5B 74 78 31 5D 3A 3D ....stadr[tx1]:=
0000F0: 73 74 61 64 72 5B 69 5D 3B 0D 0A 09 09 09 09 62 stadr[i];......b
000100: 6C 6F 63 6B 28 6C 65 76 2B 31 2C 73 74 61 64 72 lock(lev+1,stadr
000110: 5B 69 5D 29 0D 0A 09 09 09 09 65 6E 64 0D 0A 09 [i])......end...
000120: 09 09 65 6C 73 65 0D 0A 09 09 09 09 62 6C 6F 63 ..else......bloc
000130: 6B 28 6C 65 76 2B 31 2C 6E 6C 29 3B 0D 0A 09 09 k(lev+1,nl);....
000140: 74 78 3A 3D 74 78 31 3B 20 28 2A 20 6C 65 61 76 tx:=tx1; (* leav
000150: 65 20 6F 6E 6C 79 20 70 72 6F 63 20 6E 61 6D 65 e only proc name
000160: 20 69 6E 20 74 61 62 6C 65 20 2A 29 0D 0A 09 09 in table *)....
000170: 74 65 73 74 28 73 65 6D 69 63 6F 6C 6F 6E 2C 31 test(semicolon,1
000180: 34 29 0D 0A 09 09 65 6E 64 3B 0D 0A 09 74 65 73 4)....end;...tes
000190: 74 28 62 65 67 69 6E 73 79 6D 2C 31 37 29 3B 0D t(beginsym,17);.
0001A0: 0A 09 67 65 6E 28 6C 61 62 2C 30 2C 70 6C 61 62 ..gen(lab,0,plab
0001B0: 29 3B 0D 0A 09 69 66 20 6C 65 76 3C 3E 31 20 74 );...if lev<>1 t
0001C0: 68 65 6E 20 67 65 6E 28 69 6E 74 2C 30 2C 64 78 hen gen(int,0,dx
0001D0: 29 3B 0D 0A 09 73 74 61 74 65 6D 65 6E 74 3B 0D );...statement;.
0001E0: 0A 09 77 68 69 6C 65 20 73 79 6D 3D 73 65 6D 69 ..while sym=semi
0001F0: 63 6F 6C 6F 6E 20 64 6F 20 62 65 67 69 6E 0D 0A colon do begin..
Size : 512 (Real : 512)
000000: 74 79 70 3D 77 75 72 64 20 74 68 65 6E 20 6F 70 typ=wurd then op
000010: 3A 3D 31 0D 0A 09 09 09 09 65 6C 73 65 20 6F 70 :=1......else op
000020: 3A 3D 38 3B 0D 0A 09 09 09 09 69 66 20 73 79 6D :=8;......if sym
000030: 3D 70 6F 75 6E 64 20 74 68 65 6E 20 62 65 67 69 =pound then begi
000040: 6E 0D 0A 09 09 09 09 09 67 65 74 73 79 6D 3B 20 n.......getsym;
000050: 6F 70 3A 3D 33 20 65 6E 64 3B 0D 0A 09 09 09 09 op:=3 end;......
000060: 67 65 6E 28 63 73 70 2C 69 2C 6F 70 29 0D 0A 09 gen(csp,i,op)...
000070: 09 09 75 6E 74 69 6C 20 73 79 6D 3C 3E 63 6F 6D ..until sym<>com
000080: 6D 61 3B 0D 0A 09 09 09 74 65 73 74 28 72 70 61 ma;.....test(rpa
000090: 72 65 6E 2C 34 29 0D 0A 09 09 09 65 6E 64 3B 20 ren,4).....end;
0000A0: 28 2A 20 63 61 73 65 20 70 75 74 73 79 6D 20 2A (* case putsym *
0000B0: 29 0D 0A 09 09 62 65 67 69 6E 73 79 6D 3A 20 62 )....beginsym: b
0000C0: 65 67 69 6E 0D 0A 09 09 09 72 65 70 65 61 74 0D egin.....repeat.
0000D0: 0A 09 09 09 09 67 65 74 73 79 6D 3B 20 73 74 61 .....getsym; sta
0000E0: 74 65 6D 65 6E 74 0D 0A 09 09 09 75 6E 74 69 6C tement.....until
0000F0: 20 73 79 6D 3C 3E 73 65 6D 69 63 6F 6C 6F 6E 3B sym<>semicolon;
000100: 0D 0A 09 09 09 74 65 73 74 28 65 6E 64 73 79 6D .....test(endsym
000110: 2C 31 33 29 0D 0A 09 09 09 65 6E 64 3B 20 28 2A ,13).....end; (*
000120: 20 63 61 73 65 20 62 65 67 69 6E 73 79 6D 20 2A case beginsym *
000130: 29 0D 0A 09 09 77 68 69 6C 65 73 79 6D 3A 20 62 )....whilesym: b
000140: 65 67 69 6E 0D 0A 09 09 09 67 65 74 73 79 6D 3B egin.....getsym;
000150: 0D 0A 09 09 09 74 6C 61 62 3A 3D 6E 6C 61 62 3B .....tlab:=nlab;
000160: 20 67 65 6E 28 6C 61 62 2C 30 2C 74 6C 61 62 29 gen(lab,0,tlab)
000170: 3B 0D 0A 09 09 09 65 78 70 72 65 73 73 69 6F 6E ;.....expression
000180: 28 64 6F 6E 74 63 61 72 65 29 3B 0D 0A 09 09 09 (dontcare);.....
000190: 65 6C 61 62 3A 3D 6E 6C 61 62 3B 0D 0A 09 09 09 elab:=nlab;.....
0001A0: 67 65 6E 28 6A 70 63 2C 30 2C 65 6C 61 62 29 3B gen(jpc,0,elab);
0001B0: 0D 0A 09 09 09 74 65 73 74 28 64 6F 73 79 6D 2C .....test(dosym,
0001C0: 35 34 29 3B 0D 0A 09 09 09 73 74 61 74 65 6D 65 54);.....stateme
0001D0: 6E 74 3B 0D 0A 09 09 09 67 65 6E 28 6A 6D 70 2C nt;.....gen(jmp,
0001E0: 30 2C 74 6C 61 62 29 3B 20 67 65 6E 28 6C 61 62 0,tlab); gen(lab
0001F0: 2C 30 2C 65 6C 61 62 29 3B 0D 0A 09 09 09 65 6E ,0,elab);.....en
Size : 512 (Real : 512)
000000: 09 09 67 65 74 73 79 6D 3B 0D 0A 09 09 73 74 61 ..getsym;....sta
000010: 74 65 6D 65 6E 74 0D 0A 09 09 65 6E 64 3B 0D 0A tement....end;..
000020: 09 69 66 20 6C 65 76 3C 3E 31 20 74 68 65 6E 20 .if lev<>1 then
000030: 67 65 6E 28 6F 70 72 2C 30 2C 30 29 3B 0D 0A 09 gen(opr,0,0);...
000040: 74 65 73 74 28 65 6E 64 73 79 6D 2C 31 33 29 3B test(endsym,13);
000050: 0D 0A 09 69 66 20 73 79 6D 3D 63 6F 6D 6D 61 20 ...if sym=comma
000060: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 09 09 67 65 then begin....ge
000070: 74 73 79 6D 3B 0D 0A 09 09 66 6F 72 20 74 78 31 tsym;....for tx1
000080: 3A 3D 31 20 74 6F 20 74 78 20 64 6F 0D 0A 09 09 :=1 to tx do....
000090: 09 70 75 74 23 31 28 31 33 2C 31 30 2C 74 78 31 .put#1(13,10,tx1
0000A0: 23 2C 20 27 20 27 2C 73 74 6E 61 6D 65 5B 74 78 #, ' ',stname[tx
0000B0: 31 5D 2C 0D 0A 09 09 09 27 20 27 2C 73 74 6B 69 1],.....' ',stki
0000C0: 6E 64 5B 74 78 31 5D 23 2C 20 27 20 27 2C 73 74 nd[tx1]#, ' ',st
0000D0: 6C 65 76 5B 74 78 31 5D 23 2C 0D 0A 09 09 09 27 lev[tx1]#,.....'
0000E0: 20 27 2C 20 73 74 61 64 72 5B 74 78 31 5D 23 2C ', stadr[tx1]#,
0000F0: 20 27 20 27 2C 73 74 6C 65 6E 5B 74 78 31 5D 23 ' ',stlen[tx1]#
000100: 29 0D 0A 09 09 65 6E 64 3B 0D 0A 09 74 78 3A 3D )....end;...tx:=
000110: 74 78 30 0D 0A 09 65 6E 64 3B 20 28 2A 20 62 6C tx0...end; (* bl
000120: 6F 63 6B 20 2A 29 0D 0A 0D 0A 09 62 65 67 69 6E ock *).....begin
000130: 20 28 2A 20 6D 61 69 6E 20 6C 69 6E 65 20 2A 29 (* main line *)
000140: 0D 0A 09 28 2A 20 69 6E 69 74 20 73 70 65 63 69 ...(* init speci
000150: 61 6C 20 73 79 6D 62 6F 6C 20 74 6F 6B 65 6E 20 al symbol token
000160: 61 72 72 61 79 20 2A 29 0D 0A 09 66 6F 72 20 63 array *)...for c
000170: 68 3A 3D 6F 72 64 6D 69 6E 63 68 61 72 20 74 6F h:=ordminchar to
000180: 20 6F 72 64 6D 61 78 63 68 61 72 20 64 6F 20 73 ordmaxchar do s
000190: 73 79 6D 5B 63 68 5D 3A 3D 6E 75 6C 3B 0D 0A 09 sym[ch]:=nul;...
0001A0: 73 73 79 6D 5B 27 2B 27 5D 3A 3D 70 6C 75 73 3B ssym['+']:=plus;
0001B0: 09 73 73 79 6D 5B 27 2D 27 5D 3A 3D 6D 69 6E 75 .ssym['-']:=minu
0001C0: 73 3B 0D 0A 09 73 73 79 6D 5B 27 2A 27 5D 3A 3D s;...ssym['*']:=
0001D0: 74 69 6D 65 73 3B 09 73 73 79 6D 5B 27 2F 27 5D times;.ssym['/']
0001E0: 3A 3D 73 6C 61 73 68 3B 0D 0A 09 73 73 79 6D 5B :=slash;...ssym[
0001F0: 27 3A 27 5D 3A 3D 63 6F 6C 6F 6E 3B 09 73 73 79 ':']:=colon;.ssy
Size : 512 (Real : 512)
000000: 64 20 28 2A 20 63 61 73 65 20 77 68 69 6C 65 73 d (* case whiles
000010: 79 6D 20 2A 29 0D 0A 09 09 65 6E 64 20 28 2A 20 ym *)....end (*
000020: 63 61 73 65 20 2A 29 0D 0A 09 09 65 6E 64 3B 20 case *)....end;
000030: 28 2A 20 73 74 61 74 65 6D 65 6E 74 20 2A 29 0D (* statement *).
000040: 0A 0D 0A 09 28 2A 20 73 63 61 6E 20 61 20 70 61 ....(* scan a pa
000050: 72 61 6D 65 74 65 72 20 6C 69 73 74 20 66 6F 72 rameter list for
000060: 20 61 20 66 75 6E 63 20 6F 72 20 70 72 6F 63 20 a func or proc
000070: 63 61 6C 6C 20 61 6E 64 0D 0A 09 61 6C 6C 6F 63 call and...alloc
000080: 61 74 65 20 76 61 72 69 61 62 6C 65 73 20 66 6F ate variables fo
000090: 72 20 70 61 72 61 6D 65 74 65 72 73 0D 0A 09 2A r parameters...*
0000A0: 29 0D 0A 09 70 72 6F 63 65 64 75 72 65 20 70 6C )...procedure pl
0000B0: 69 73 74 3B 0D 0A 0D 0A 09 09 76 61 72 09 74 78 ist;......var.tx
0000C0: 30 2C 20 74 78 31 2C 20 69 2C 20 6A 09 3A 20 77 0, tx1, i, j.: w
0000D0: 6F 72 64 3B 0D 0A 09 09 09 70 74 79 70 09 09 3A ord;.....ptyp..:
0000E0: 20 6F 62 6A 65 63 74 3B 0D 0A 0D 0A 09 09 62 65 object;......be
0000F0: 67 69 6E 0D 0A 09 09 74 78 30 3A 3D 74 78 3B 0D gin....tx0:=tx;.
000100: 0A 09 09 72 65 70 65 61 74 0D 0A 09 09 09 74 78 ...repeat.....tx
000110: 31 3A 3D 74 78 3B 0D 0A 09 09 09 70 74 79 70 3A 1:=tx;.....ptyp:
000120: 3D 6E 6F 74 79 70 65 3B 0D 0A 09 09 09 72 65 70 =notype;.....rep
000130: 65 61 74 0D 0A 09 09 09 09 67 65 74 73 79 6D 3B eat......getsym;
000140: 0D 0A 09 09 09 09 69 66 20 73 79 6D 3D 76 61 72 ......if sym=var
000150: 73 79 6D 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A sym then begin..
000160: 09 09 09 09 09 67 65 74 73 79 6D 3B 20 70 74 79 .....getsym; pty
000170: 70 3A 3D 76 61 72 70 61 72 6D 0D 0A 09 09 09 09 p:=varparm......
000180: 09 65 6E 64 3B 0D 0A 09 09 09 09 74 65 73 74 28 .end;......test(
000190: 69 64 65 6E 74 2C 32 29 3B 0D 0A 09 09 09 09 65 ident,2);......e
0001A0: 6E 74 65 72 28 69 64 2C 6E 6F 74 79 70 65 2C 6C nter(id,notype,l
0001B0: 65 76 2B 31 2C 30 2C 30 29 0D 0A 09 09 09 75 6E ev+1,0,0).....un
0001C0: 74 69 6C 20 73 79 6D 3C 3E 63 6F 6D 6D 61 3B 0D til sym<>comma;.
0001D0: 0A 09 09 09 74 65 73 74 28 63 6F 6C 6F 6E 2C 35 ....test(colon,5
0001E0: 29 3B 0D 0A 09 09 09 74 65 73 74 28 69 64 65 6E );.....test(iden
0001F0: 74 2C 32 29 3B 0D 0A 09 09 09 69 3A 3D 70 6F 73 t,2);.....i:=pos
Size : 512 (Real : 512)
000000: 6D 5B 27 3B 27 5D 3A 3D 73 65 6D 69 63 6F 6C 6F m[';']:=semicolo
000010: 6E 3B 0D 0A 09 73 73 79 6D 5B 27 3D 27 5D 3A 3D n;...ssym['=']:=
000020: 65 71 6C 3B 09 09 73 73 79 6D 5B 27 23 27 5D 3A eql;..ssym['#']:
000030: 3D 70 6F 75 6E 64 3B 0D 0A 09 73 73 79 6D 5B 27 =pound;...ssym['
000040: 3C 27 5D 3A 3D 6C 73 73 3B 09 09 73 73 79 6D 5B <']:=lss;..ssym[
000050: 27 3E 27 5D 3A 3D 67 74 72 3B 0D 0A 09 73 73 79 '>']:=gtr;...ssy
000060: 6D 5B 27 28 27 5D 3A 3D 6C 70 61 72 65 6E 3B 09 m['(']:=lparen;.
000070: 73 73 79 6D 5B 27 29 27 5D 3A 3D 72 70 61 72 65 ssym[')']:=rpare
000080: 6E 3B 0D 0A 09 73 73 79 6D 5B 27 5B 27 5D 3A 3D n;...ssym['[']:=
000090: 6C 62 72 61 63 6B 3B 09 73 73 79 6D 5B 27 5D 27 lbrack;.ssym[']'
0000A0: 5D 3A 3D 72 62 72 61 63 6B 3B 0D 0A 09 73 73 79 ]:=rbrack;...ssy
0000B0: 6D 5B 27 2E 27 5D 3A 3D 70 65 72 69 6F 64 3B 09 m['.']:=period;.
0000C0: 73 73 79 6D 5B 27 2C 27 5D 3A 3D 63 6F 6D 6D 61 ssym[',']:=comma
0000D0: 3B 0D 0A 0D 0A 09 28 2A 20 69 6E 69 74 20 72 65 ;.....(* init re
0000E0: 73 65 72 76 65 64 20 77 6F 72 64 20 61 72 72 61 served word arra
0000F0: 79 73 20 2A 29 0D 0A 09 28 2A 20 6D 75 73 74 20 ys *)...(* must
000100: 62 65 20 69 6E 20 61 6C 70 61 68 62 65 74 69 63 be in alpahbetic
000110: 61 6C 20 6F 72 64 65 72 20 66 6F 72 20 62 69 6E al order for bin
000120: 61 72 79 20 73 65 61 72 63 68 20 2A 29 0D 0A 09 ary search *)...
000130: 72 77 6F 72 64 5B 20 31 5D 3A 3D 27 41 4E 44 20 rword[ 1]:='AND
000140: 20 20 20 20 27 3B 09 77 73 79 6D 5B 20 31 5D 3A ';.wsym[ 1]:
000150: 3D 61 6E 64 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 =andsym;...rword
000160: 5B 20 32 5D 3A 3D 27 41 52 52 41 59 20 20 20 27 [ 2]:='ARRAY '
000170: 3B 09 77 73 79 6D 5B 20 32 5D 3A 3D 61 72 72 61 ;.wsym[ 2]:=arra
000180: 79 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 5B 20 33 ysym;...rword[ 3
000190: 5D 3A 3D 27 42 45 47 49 4E 20 20 20 27 3B 09 77 ]:='BEGIN ';.w
0001A0: 73 79 6D 5B 20 33 5D 3A 3D 62 65 67 69 6E 73 79 sym[ 3]:=beginsy
0001B0: 6D 3B 0D 0A 09 72 77 6F 72 64 5B 20 34 5D 3A 3D m;...rword[ 4]:=
0001C0: 27 43 41 53 45 20 20 20 20 27 3B 09 77 73 79 6D 'CASE ';.wsym
0001D0: 5B 20 34 5D 3A 3D 63 61 73 65 73 79 6D 3B 0D 0A [ 4]:=casesym;..
0001E0: 09 72 77 6F 72 64 5B 20 35 5D 3A 3D 27 43 4F 4E .rword[ 5]:='CON
0001F0: 53 54 20 20 20 27 3B 09 77 73 79 6D 5B 20 35 5D ST ';.wsym[ 5]
Size : 512 (Real : 512)
000000: 69 74 69 6F 6E 3B 0D 0A 09 09 09 69 66 20 70 74 ition;.....if pt
000010: 79 70 3D 6E 6F 74 79 70 65 20 74 68 65 6E 0D 0A yp=notype then..
000020: 09 09 09 09 69 66 20 73 74 6B 69 6E 64 5B 69 5D ....if stkind[i]
000030: 3D 73 69 6D 70 74 79 70 65 0D 0A 09 09 09 09 09 =simptype.......
000040: 74 68 65 6E 20 70 74 79 70 3A 3D 73 69 6D 70 76 then ptyp:=simpv
000050: 61 72 0D 0A 09 09 09 09 09 65 6C 73 65 20 70 74 ar.......else pt
000060: 79 70 3A 3D 61 72 72 61 79 76 61 72 3B 0D 0A 09 yp:=arrayvar;...
000070: 09 09 66 6F 72 20 6A 3A 3D 74 78 31 2B 31 20 74 ..for j:=tx1+1 t
000080: 6F 20 74 78 20 64 6F 20 62 65 67 69 6E 0D 0A 09 o tx do begin...
000090: 09 09 09 73 74 6B 69 6E 64 5B 6A 5D 3A 3D 70 74 ...stkind[j]:=pt
0000A0: 79 70 3B 0D 0A 09 09 09 09 73 74 6C 65 6E 5B 6A yp;......stlen[j
0000B0: 5D 3A 3D 73 74 6C 65 6E 5B 69 5D 3B 0D 0A 09 09 ]:=stlen[i];....
0000C0: 09 09 73 74 61 64 72 5B 6A 5D 3A 3D 70 78 2B 73 ..stadr[j]:=px+s
0000D0: 74 6C 65 6E 5B 69 5D 2D 36 3B 0D 0A 09 09 09 09 tlen[i]-6;......
0000E0: 70 78 3A 3D 70 78 2B 73 74 6C 65 6E 5B 69 5D 0D px:=px+stlen[i].
0000F0: 0A 09 09 09 09 65 6E 64 3B 0D 0A 09 09 75 6E 74 .....end;....unt
000100: 69 6C 20 73 79 6D 3C 3E 73 65 6D 69 63 6F 6C 6F il sym<>semicolo
000110: 6E 3B 0D 0A 09 09 66 6F 72 20 6A 3A 3D 74 78 30 n;....for j:=tx0
000120: 2B 31 20 74 6F 20 74 78 20 64 6F 0D 0A 09 09 09 +1 to tx do.....
000130: 73 74 61 64 72 5B 6A 5D 3A 3D 73 74 61 64 72 5B stadr[j]:=stadr[
000140: 6A 5D 2D 70 78 3B 0D 0A 09 09 74 65 73 74 28 72 j]-px;....test(r
000150: 70 61 72 65 6E 2C 34 29 0D 0A 09 09 65 6E 64 3B paren,4)....end;
000160: 20 28 2A 20 70 6C 69 73 74 20 2A 29 0D 0A 0D 0A (* plist *)....
000170: 09 62 65 67 69 6E 20 28 2A 20 62 6C 6F 63 6B 20 .begin (* block
000180: 2A 29 0D 0A 09 64 78 3A 3D 30 3B 20 74 78 30 3A *)...dx:=0; tx0:
000190: 3D 74 78 3B 0D 0A 09 69 66 20 73 79 6D 3D 63 6F =tx;...if sym=co
0001A0: 6E 73 74 73 79 6D 20 74 68 65 6E 20 62 65 67 69 nstsym then begi
0001B0: 6E 0D 0A 09 09 67 65 74 73 79 6D 3B 0D 0A 09 09 n....getsym;....
0001C0: 72 65 70 65 61 74 0D 0A 09 09 09 63 6F 6E 73 74 repeat.....const
0001D0: 64 63 6C 3B 0D 0A 09 09 09 74 65 73 74 28 73 65 dcl;.....test(se
0001E0: 6D 69 63 6F 6C 6F 6E 2C 31 34 29 0D 0A 09 09 75 micolon,14)....u
0001F0: 6E 74 69 6C 20 73 79 6D 3C 3E 69 64 65 6E 74 0D ntil sym<>ident.
Size : 512 (Real : 512)
000000: 3A 3D 63 6F 6E 73 74 73 79 6D 3B 0D 0A 09 72 77 :=constsym;...rw
000010: 6F 72 64 5B 20 36 5D 3A 3D 27 44 49 56 20 20 20 ord[ 6]:='DIV
000020: 20 20 27 3B 09 77 73 79 6D 5B 20 36 5D 3A 3D 64 ';.wsym[ 6]:=d
000030: 69 76 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 5B 20 ivsym;...rword[
000040: 37 5D 3A 3D 27 44 4F 20 20 20 20 20 20 27 3B 09 7]:='DO ';.
000050: 77 73 79 6D 5B 20 37 5D 3A 3D 64 6F 73 79 6D 3B wsym[ 7]:=dosym;
000060: 0D 0A 09 72 77 6F 72 64 5B 20 38 5D 3A 3D 27 44 ...rword[ 8]:='D
000070: 4F 57 4E 54 4F 20 20 27 3B 09 77 73 79 6D 5B 20 OWNTO ';.wsym[
000080: 38 5D 3A 3D 64 6F 77 6E 74 6F 73 79 6D 3B 0D 0A 8]:=downtosym;..
000090: 09 72 77 6F 72 64 5B 20 39 5D 3A 3D 27 45 4C 53 .rword[ 9]:='ELS
0000A0: 45 20 20 20 20 27 3B 09 77 73 79 6D 5B 20 39 5D E ';.wsym[ 9]
0000B0: 3A 3D 65 6C 73 65 73 79 6D 3B 0D 0A 09 72 77 6F :=elsesym;...rwo
0000C0: 72 64 5B 31 30 5D 3A 3D 27 45 4E 44 20 20 20 20 rd[10]:='END
0000D0: 20 27 3B 09 77 73 79 6D 5B 31 30 5D 3A 3D 65 6E ';.wsym[10]:=en
0000E0: 64 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 5B 31 31 dsym;...rword[11
0000F0: 5D 3A 3D 27 46 4F 52 20 20 20 20 20 27 3B 09 77 ]:='FOR ';.w
000100: 73 79 6D 5B 31 31 5D 3A 3D 66 6F 72 73 79 6D 3B sym[11]:=forsym;
000110: 0D 0A 09 72 77 6F 72 64 5B 31 32 5D 3A 3D 27 46 ...rword[12]:='F
000120: 55 4E 43 54 49 4F 4E 27 3B 09 77 73 79 6D 5B 31 UNCTION';.wsym[1
000130: 32 5D 3A 3D 66 75 6E 63 73 79 6D 3B 0D 0A 09 72 2]:=funcsym;...r
000140: 77 6F 72 64 5B 31 33 5D 3A 3D 27 47 45 54 20 20 word[13]:='GET
000150: 20 20 20 27 3B 09 77 73 79 6D 5B 31 33 5D 3A 3D ';.wsym[13]:=
000160: 67 65 74 73 79 3B 0D 0A 09 72 77 6F 72 64 5B 31 getsy;...rword[1
000170: 34 5D 3A 3D 27 49 46 20 20 20 20 20 20 27 3B 09 4]:='IF ';.
000180: 77 73 79 6D 5B 31 34 5D 3A 3D 69 66 73 79 6D 3B wsym[14]:=ifsym;
000190: 0D 0A 09 72 77 6F 72 64 5B 31 35 5D 3A 3D 27 4D ...rword[15]:='M
0001A0: 4F 44 20 20 20 20 20 27 3B 09 77 73 79 6D 5B 31 OD ';.wsym[1
0001B0: 35 5D 3A 3D 6D 6F 64 73 79 6D 3B 0D 0A 09 72 77 5]:=modsym;...rw
0001C0: 6F 72 64 5B 31 36 5D 3A 3D 27 4E 4F 54 20 20 20 ord[16]:='NOT
0001D0: 20 20 27 3B 09 77 73 79 6D 5B 31 36 5D 3A 3D 6E ';.wsym[16]:=n
0001E0: 6F 74 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 5B 31 otsym;...rword[1
0001F0: 37 5D 3A 3D 27 4F 46 20 20 20 20 20 20 27 3B 09 7]:='OF ';.
Size : 512 (Real : 512)
000000: 0A 09 09 65 6E 64 3B 0D 0A 09 69 66 20 73 79 6D ...end;...if sym
000010: 3D 74 79 70 65 73 79 6D 20 74 68 65 6E 20 62 65 =typesym then be
000020: 67 69 6E 0D 0A 09 09 67 65 74 73 79 6D 3B 0D 0A gin....getsym;..
000030: 09 09 72 65 70 65 61 74 0D 0A 09 09 09 74 79 70 ..repeat.....typ
000040: 65 64 63 6C 3B 0D 0A 09 09 09 74 65 73 74 28 73 edcl;.....test(s
000050: 65 6D 69 63 6F 6C 6F 6E 2C 31 34 29 0D 0A 09 09 emicolon,14)....
000060: 75 6E 74 69 6C 20 73 79 6D 3C 3E 69 64 65 6E 74 until sym<>ident
000070: 0D 0A 09 09 65 6E 64 3B 0D 0A 09 69 66 20 73 79 ....end;...if sy
000080: 6D 3D 76 61 72 73 79 6D 20 74 68 65 6E 20 62 65 m=varsym then be
000090: 67 69 6E 0D 0A 09 09 67 65 74 73 79 6D 3B 0D 0A gin....getsym;..
0000A0: 09 09 72 65 70 65 61 74 0D 0A 09 09 09 76 61 72 ..repeat.....var
0000B0: 64 63 6C 3B 0D 0A 09 09 09 74 65 73 74 28 73 65 dcl;.....test(se
0000C0: 6D 69 63 6F 6C 6F 6E 2C 31 34 29 0D 0A 09 09 75 micolon,14)....u
0000D0: 6E 74 69 6C 20 73 79 6D 3C 3E 69 64 65 6E 74 0D ntil sym<>ident.
0000E0: 0A 09 09 65 6E 64 3B 0D 0A 09 77 68 69 6C 65 20 ...end;...while
0000F0: 28 73 79 6D 3D 70 72 6F 63 73 79 6D 29 20 6F 72 (sym=procsym) or
000100: 20 28 73 79 6D 3D 66 75 6E 63 73 79 6D 29 20 64 (sym=funcsym) d
000110: 6F 20 62 65 67 69 6E 0D 0A 09 09 69 66 20 73 79 o begin....if sy
000120: 6D 3D 70 72 6F 63 73 79 6D 0D 0A 09 09 09 74 68 m=procsym.....th
000130: 65 6E 20 62 74 79 70 65 3A 3D 70 72 6F 7A 65 64 en btype:=prozed
000140: 75 72 65 0D 0A 09 09 09 65 6C 73 65 20 62 74 79 ure.....else bty
000150: 70 65 3A 3D 66 75 6E 6B 74 69 6F 6E 3B 0D 0A 09 pe:=funktion;...
000160: 09 67 65 74 73 79 6D 3B 0D 0A 09 09 65 6E 74 65 .getsym;....ente
000170: 72 28 69 64 2C 62 74 79 70 65 2C 6C 65 76 2C 6E r(id,btype,lev,n
000180: 6C 61 62 2C 30 29 3B 0D 0A 09 09 74 65 73 74 28 lab,0);....test(
000190: 69 64 65 6E 74 2C 32 29 3B 0D 0A 09 09 74 78 31 ident,2);....tx1
0001A0: 3A 3D 74 78 3B 20 70 78 3A 3D 30 3B 0D 0A 09 09 :=tx; px:=0;....
0001B0: 69 66 20 73 79 6D 3D 6C 70 61 72 65 6E 20 74 68 if sym=lparen th
0001C0: 65 6E 20 70 6C 69 73 74 3B 0D 0A 09 09 73 74 6C en plist;....stl
0001D0: 65 6E 5B 74 78 31 5D 3A 3D 70 78 3B 20 28 2A 20 en[tx1]:=px; (*
0001E0: 61 72 67 20 6C 65 6E 20 69 6E 74 6F 20 70 72 6F arg len into pro
0001F0: 63 20 2A 29 0D 0A 09 09 74 65 73 74 28 73 65 6D c *)....test(sem
Size : 512 (Real : 512)
000000: 77 73 79 6D 5B 31 37 5D 3A 3D 6F 66 73 79 6D 3B wsym[17]:=ofsym;
000010: 0D 0A 09 72 77 6F 72 64 5B 31 38 5D 3A 3D 27 4F ...rword[18]:='O
000020: 52 20 20 20 20 20 20 27 3B 09 77 73 79 6D 5B 31 R ';.wsym[1
000030: 38 5D 3A 3D 6F 72 73 79 6D 3B 0D 0A 09 72 77 6F 8]:=orsym;...rwo
000040: 72 64 5B 31 39 5D 3A 3D 27 50 52 4F 43 45 44 55 rd[19]:='PROCEDU
000050: 52 27 3B 09 77 73 79 6D 5B 31 39 5D 3A 3D 70 72 R';.wsym[19]:=pr
000060: 6F 63 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 5B 32 ocsym;...rword[2
000070: 30 5D 3A 3D 27 50 52 4F 47 52 41 4D 20 27 3B 09 0]:='PROGRAM ';.
000080: 77 73 79 6D 5B 32 30 5D 3A 3D 70 72 6F 67 73 79 wsym[20]:=progsy
000090: 6D 3B 0D 0A 09 72 77 6F 72 64 5B 32 31 5D 3A 3D m;...rword[21]:=
0000A0: 27 50 55 54 20 20 20 20 20 27 3B 09 77 73 79 6D 'PUT ';.wsym
0000B0: 5B 32 31 5D 3A 3D 70 75 74 73 79 6D 3B 0D 0A 09 [21]:=putsym;...
0000C0: 72 77 6F 72 64 5B 32 32 5D 3A 3D 27 52 45 43 4F rword[22]:='RECO
0000D0: 52 44 20 20 27 3B 09 77 73 79 6D 5B 32 32 5D 3A RD ';.wsym[22]:
0000E0: 3D 72 65 63 6F 72 64 73 79 6D 3B 0D 0A 09 72 77 =recordsym;...rw
0000F0: 6F 72 64 5B 32 33 5D 3A 3D 27 52 45 50 45 41 54 ord[23]:='REPEAT
000100: 20 20 27 3B 09 77 73 79 6D 5B 32 33 5D 3A 3D 72 ';.wsym[23]:=r
000110: 65 70 65 61 74 73 79 6D 3B 0D 0A 09 72 77 6F 72 epeatsym;...rwor
000120: 64 5B 32 34 5D 3A 3D 27 54 48 45 4E 20 20 20 20 d[24]:='THEN
000130: 27 3B 09 77 73 79 6D 5B 32 34 5D 3A 3D 74 68 65 ';.wsym[24]:=the
000140: 6E 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 5B 32 35 nsym;...rword[25
000150: 5D 3A 3D 27 54 4F 20 20 20 20 20 20 27 3B 09 77 ]:='TO ';.w
000160: 73 79 6D 5B 32 35 5D 3A 3D 74 6F 73 79 6D 3B 0D sym[25]:=tosym;.
000170: 0A 09 72 77 6F 72 64 5B 32 36 5D 3A 3D 27 54 59 ..rword[26]:='TY
000180: 50 45 20 20 20 20 27 3B 09 77 73 79 6D 5B 32 36 PE ';.wsym[26
000190: 5D 3A 3D 74 79 70 65 73 79 6D 3B 0D 0A 09 72 77 ]:=typesym;...rw
0001A0: 6F 72 64 5B 32 37 5D 3A 3D 27 55 4E 54 49 4C 20 ord[27]:='UNTIL
0001B0: 20 20 27 3B 09 77 73 79 6D 5B 32 37 5D 3A 3D 75 ';.wsym[27]:=u
0001C0: 6E 74 69 6C 73 79 6D 3B 0D 0A 09 72 77 6F 72 64 ntilsym;...rword
0001D0: 5B 32 38 5D 3A 3D 27 56 41 52 20 20 20 20 20 27 [28]:='VAR '
0001E0: 3B 09 77 73 79 6D 5B 32 38 5D 3A 3D 76 61 72 73 ;.wsym[28]:=vars
0001F0: 79 6D 3B 0D 0A 09 72 77 6F 72 64 5B 32 39 5D 3A ym;...rword[29]:
Size : 512 (Real : 512)
000000: 72 69 61 62 6C 65 20 31 20 7C 0D 0A 09 20 20 32 riable 1 |... 2
000010: 20 7C 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F |______________
000020: 5F 5F 5F 5F 7C 0D 0A 09 09 0D 0A 09 5E 5E 5E 20 ____|.......^^^
000030: 6F 66 66 73 65 74 73 20 66 72 6F 6D 20 42 52 20 offsets from BR
000040: 28 62 61 73 65 20 72 65 67 69 73 74 65 72 29 0D (base register).
000050: 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 ____________|...
000090: 20 20 20 20 7C 20 66 75 6E 63 74 69 6F 6E 20 76 | function v
0000A0: 61 6C 75 65 20 20 20 7C 20 20 20 20 66 75 6E 63 alue | func
0000B0: 74 69 6F 6E 20 72 65 74 75 72 6E 20 76 61 6C 75 tion return valu
0000C0: 65 0D 0A 09 2D 31 30 20 7C 5F 5F 5F 5F 5F 5F 5F e...-10 |_______
0000D0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 20 ___________|...
0000E0: 2D 39 20 7C 20 70 61 72 61 6D 65 74 65 72 20 31 -9 | parameter 1
0000F0: 20 20 20 20 20 20 7C 0D 0A 09 20 2D 38 20 7C 5F |... -8 |_
000100: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
000110: 5F 7C 0D 0A 09 20 2D 37 20 7C 20 70 61 72 61 6D _|... -7 | param
000120: 65 74 65 72 20 32 20 20 20 20 20 20 7C 0D 0A 09 eter 2 |...
000130: 20 2D 36 20 7C 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F -6 |___________
000140: 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 20 2D 35 20 7C _______|... -5 |
000150: 20 72 65 74 75 72 6E 20 61 64 64 72 65 73 73 20 return address
000160: 20 20 7C 0D 0A 09 20 2D 34 20 7C 5F 5F 5F 5F 5F |... -4 |_____
000170: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A _____________|..
000180: 09 20 2D 33 20 7C 20 64 79 6E 61 6D 69 63 20 6C . -3 | dynamic l
000190: 69 6E 6B 20 20 20 20 20 7C 0D 0A 09 20 2D 32 20 ink |... -2
0001A0: 7C 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F |_______________
0001B0: 5F 5F 5F 7C 0D 0A 09 20 2D 31 20 7C 20 73 74 61 ___|... -1 | sta
0001C0: 74 69 63 20 6C 69 6E 6B 20 20 20 20 20 20 7C 0D tic link |.
0001D0: 0A 42 52 20 2D 3E 09 20 20 30 20 7C 5F 5F 5F 5F .BR ->. 0 |____
0001E0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D ______________|.
0001F0: 0A 09 20 20 31 20 7C 20 6C 6F 63 61 6C 20 76 61 .. 1 | local va
Size : 512 (Real : 512)
000000: 3D 27 57 48 49 4C 45 20 20 20 27 3B 09 77 73 79 ='WHILE ';.wsy
000010: 6D 5B 32 39 5D 3A 3D 77 68 69 6C 65 73 79 6D 3B m[29]:=whilesym;
000020: 0D 0A 0D 0A 09 65 72 72 66 6C 61 67 3A 3D 66 61 .....errflag:=fa
000030: 6C 73 65 3B 20 28 2A 20 63 6C 65 61 72 20 6C 69 lse; (* clear li
000040: 6E 65 20 65 72 72 6F 72 20 66 6C 61 67 20 2A 29 ne error flag *)
000050: 0D 0A 09 74 78 3A 3D 30 3B 20 28 2A 20 69 6E 69 ...tx:=0; (* ini
000060: 74 20 74 61 62 6C 65 20 70 6F 69 6E 74 65 72 73 t table pointers
000070: 20 2A 29 0D 0A 09 70 75 74 23 31 28 27 70 70 63 *)...put#1('ppc
000080: 20 72 65 76 20 27 2C 76 68 75 23 2C 27 2E 27 2C rev ',vhu#,'.',
000090: 76 74 6E 23 2C 76 75 6E 23 2C 64 65 76 72 65 6C vtn#,vun#,devrel
0000A0: 2C 31 33 2C 31 30 29 3B 0D 0A 09 70 75 74 23 31 ,13,10);...put#1
0000B0: 28 27 4C 69 73 74 69 6E 67 3F 27 29 3B 20 67 65 ('Listing?'); ge
0000C0: 74 23 31 28 6C 69 73 74 69 6E 67 29 3B 0D 0A 0D t#1(listing);...
0000D0: 0A 09 28 2A 20 64 65 66 69 6E 65 20 73 74 61 6E ..(* define stan
0000E0: 64 61 72 64 20 74 79 70 65 20 69 64 65 6E 74 69 dard type identi
0000F0: 66 69 65 72 73 20 2A 29 0D 0A 09 65 6E 74 65 72 fiers *)...enter
000100: 28 27 49 4E 54 45 47 45 52 20 27 2C 73 69 6D 70 ('INTEGER ',simp
000110: 74 79 70 65 2C 30 2C 30 2C 69 6E 74 73 69 7A 65 type,0,0,intsize
000120: 29 3B 0D 0A 09 65 6E 74 65 72 28 27 43 48 41 52 );...enter('CHAR
000130: 20 20 20 20 27 2C 73 69 6D 70 74 79 70 65 2C 30 ',simptype,0
000140: 2C 30 2C 63 68 61 72 73 69 7A 65 29 3B 0D 0A 09 ,0,charsize);...
000150: 65 6E 74 65 72 28 27 42 4F 4F 4C 45 41 4E 20 27 enter('BOOLEAN '
000160: 2C 73 69 6D 70 74 79 70 65 2C 30 2C 30 2C 62 6F ,simptype,0,0,bo
000170: 6F 6C 73 69 7A 65 29 3B 0D 0A 09 65 6E 74 65 72 olsize);...enter
000180: 28 27 42 59 54 45 20 20 20 20 27 2C 73 69 6D 70 ('BYTE ',simp
000190: 74 79 70 65 2C 30 2C 30 2C 63 68 61 72 73 69 7A type,0,0,charsiz
0001A0: 65 29 3B 0D 0A 09 65 6E 74 65 72 28 27 57 4F 52 e);...enter('WOR
0001B0: 44 20 20 20 20 27 2C 73 69 6D 70 74 79 70 65 2C D ',simptype,
0001C0: 30 2C 30 2C 69 6E 74 73 69 7A 65 29 3B 0D 0A 09 0,0,intsize);...
0001D0: 65 6E 74 65 72 28 27 41 4C 46 41 20 20 20 20 27 enter('ALFA '
0001E0: 2C 73 69 6D 70 74 79 70 65 2C 30 2C 30 2C 61 6C ,simptype,0,0,al
0001F0: 66 61 73 69 7A 65 29 3B 0D 0A 09 63 68 3A 3D 27 fasize);...ch:='
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 27 3B 20 28 2A 20 69 6E 69 74 20 74 68 65 20 '; (* init the
000010: 63 68 61 72 61 63 74 65 72 20 73 63 61 6E 6E 65 character scanne
000020: 72 20 2A 29 0D 0A 09 67 65 74 73 79 6D 3B 0D 0A r *)...getsym;..
000030: 09 6E 6C 3A 3D 31 3B 20 67 65 6E 28 6A 6D 70 2C .nl:=1; gen(jmp,
000040: 30 2C 31 29 3B 0D 0A 09 62 6C 6F 63 6B 28 31 2C 0,1);...block(1,
000050: 31 29 3B 0D 0A 09 67 65 6E 28 63 73 70 2C 30 2C 1);...gen(csp,0,
000060: 39 29 3B 0D 0A 09 67 65 6E 28 70 65 6F 66 2C 30 9);...gen(peof,0
000070: 2C 30 29 3B 0D 0A 09 69 66 20 73 79 6D 3C 3E 20 ,0);...if sym<>
000080: 70 65 72 69 6F 64 20 74 68 65 6E 20 65 72 72 6F period then erro
000090: 72 28 32 30 29 0D 0A 65 6E 64 2E 0D 0A 65 6F 66 r(20)..end...eof
0000A0: 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 28 27 49 4E 54 45 47 45 52 20 27 2C 73 69 6D 70 ('INTEGER ',simp
000110: 74 79 70 65 2C 30 2C 30 2C 69 6E 74 73 69 7A 65 type,0,0,intsize
000120: 29 3B 0D 0A 09 65 6E 74 65 72 28 27 43 48 41 52 );...enter('CHAR
000130: 20 20 20 20 27 2C 73 69 6D 70 74 79 70 65 2C 30 ',simptype,0
000140: 2C 30 2C 63 68 61 72 73 69 7A 65 29 3B 0D 0A 09 ,0,charsize);...
000150: 65 6E 74 65 72 28 27 42 4F 4F 4C 45 41 4E 20 27 enter('BOOLEAN '
000160: 2C 73 69 6D 70 74 79 70 65 2C 30 2C 30 2C 62 6F ,simptype,0,0,bo
000170: 6F 6C 73 69 7A 65 29 3B 0D 0A 09 65 6E 74 65 72 olsize);...enter
000180: 28 27 42 59 54 45 20 20 20 20 27 2C 73 69 6D 70 ('BYTE ',simp
000190: 74 79 70 65 2C 30 2C 30 2C 63 68 61 72 73 69 7A type,0,0,charsiz
0001A0: 65 29 3B 0D 0A 09 65 6E 74 65 72 28 27 57 4F 52 e);...enter('WOR
0001B0: 44 20 20 20 20 27 2C 73 69 6D 70 74 79 70 65 2C D ',simptype,
0001C0: 30 2C 30 2C 69 6E 74 73 69 7A 65 29 3B 0D 0A 09 0,0,intsize);...
0001D0: 65 6E 74 65 72 28 27 41 4C 46 41 20 20 20 20 27 enter('ALFA '
0001E0: 2C 73 69 6D 70 74 79 70 65 2C 30 2C 30 2C 61 6C ,simptype,0,0,al
0001F0: 66 61 73 69 7A 65 29 3B 0D 0A 09 63 68 3A 3D 27 fasize);...ch:='
Size : 512 (Real : 512)
000000: 0D 0A 4E 6F 74 65 73 20 6F 6E 20 72 65 67 65 6E ..Notes on regen
000010: 65 72 61 74 69 6E 67 20 74 68 65 20 63 6F 6D 70 erating the comp
000020: 69 6C 65 72 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D iler..==========
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000040: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 0D 0A 57 68 ========......Wh
000050: 65 6E 20 72 65 61 73 73 65 6D 62 6C 69 6E 67 20 en reassembling
000060: 74 68 65 20 72 75 6E 74 69 6D 65 20 70 61 63 6B the runtime pack
000070: 61 67 65 2C 20 64 6F 20 6E 6F 74 20 75 73 65 20 age, do not use
000080: 4C 4F 41 44 20 74 6F 20 63 72 65 61 74 65 20 52 LOAD to create R
000090: 54 50 2E 43 4F 4D 2E 0D 0A 49 6E 73 74 65 61 64 TP.COM...Instead
0000A0: 2C 20 79 6F 75 20 6D 75 73 74 20 75 73 65 20 61 , you must use a
0000B0: 20 64 65 62 75 67 67 65 72 20 61 6E 64 20 64 6F debugger and do
0000C0: 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 3A 0D the following:.
0000D0: 0A 0D 0A 31 29 20 41 73 73 65 6D 62 6C 65 20 52 ...1) Assemble R
0000E0: 54 50 2E 41 53 4D 20 74 6F 20 70 72 6F 64 75 63 TP.ASM to produc
0000F0: 65 20 52 54 50 2E 48 45 58 2E 20 20 4D 61 6B 65 e RTP.HEX. Make
000100: 20 6E 6F 74 65 20 6F 66 20 74 68 65 20 66 69 6E note of the fin
000110: 61 6C 20 63 6F 64 65 0D 0A 20 20 20 61 64 64 72 al code.. addr
000120: 65 73 73 20 70 72 69 6E 74 65 64 20 62 79 20 74 ess printed by t
000130: 68 65 20 61 73 73 65 6D 62 6C 65 72 2E 20 20 52 he assembler. R
000140: 54 50 2E 43 4F 4D 20 73 68 6F 75 6C 64 20 67 6F TP.COM should go
000150: 20 75 70 20 74 6F 20 74 68 69 73 0D 0A 20 20 20 up to this..
000160: 61 64 64 72 65 73 73 20 6D 69 6E 75 73 20 31 2E address minus 1.
000170: 0D 0A 0D 0A 32 29 20 46 69 72 65 20 75 70 20 79 ....2) Fire up y
000180: 6F 75 72 20 66 61 76 6F 72 69 74 65 20 64 65 62 our favorite deb
000190: 75 67 67 65 72 20 28 44 44 54 20 77 69 6C 6C 20 ugger (DDT will
0001A0: 64 6F 29 2E 0D 0A 0D 0A 33 29 20 46 69 6C 6C 20 do).....3) Fill
0001B0: 6D 65 6D 6F 72 79 20 77 69 74 68 20 30 27 73 2E memory with 0's.
0001C0: 20 20 31 30 30 68 20 2D 20 31 30 30 30 68 20 73 100h - 1000h s
0001D0: 68 6F 75 6C 64 20 64 6F 2E 0D 0A 0D 0A 34 29 20 hould do.....4)
0001E0: 4E 6F 77 20 79 6F 75 20 63 61 6E 20 72 65 61 64 Now you can read
0001F0: 20 69 6E 20 52 54 50 2E 48 45 58 2C 20 73 74 61 in RTP.HEX, sta
Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 54 68 65 20 72 75 6E 74 69 6D 65 20 ....The runtime
000010: 73 74 61 63 6B 20 69 73 20 6B 65 70 74 20 6F 6E stack is kept on
000020: 20 74 68 65 20 38 30 38 30 20 6D 61 63 68 69 6E the 8080 machin
000030: 65 20 73 74 61 63 6B 2E 0D 0A 0D 0A 49 6E 20 61 e stack.....In a
000040: 6C 6C 20 64 69 61 67 72 61 6D 73 20 62 65 6C 6F ll diagrams belo
000050: 77 2C 20 74 68 65 20 68 69 67 68 65 73 74 20 6D w, the highest m
000060: 65 6D 6F 72 79 20 61 64 64 72 65 73 73 20 69 73 emory address is
000070: 20 61 74 20 74 68 65 20 54 2D 4F 2D 50 0D 0A 6F at the T-O-P..o
000080: 66 20 74 68 65 20 64 69 61 67 72 61 6D 2E 0D 0A f the diagram...
000090: 0D 0A 09 09 63 68 61 72 09 09 77 6F 72 64 09 09 ....char..word..
0000A0: 61 6C 66 61 20 28 30 31 32 33 34 35 36 37 29 0D alfa (01234567).
0000B0: 0A 09 09 3D 3D 3D 3D 09 09 3D 3D 3D 3D 09 09 3D ...====..====..=
0000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A ==============..
0000D0: 09 09 09 09 09 09 37 0D 0A 09 09 09 09 09 09 36 ......7........6
0000E0: 0D 0A 09 09 09 09 09 09 35 0D 0A 09 09 09 09 09 ........5.......
0000F0: 09 34 0D 0A 09 09 09 09 09 09 33 0D 0A 09 09 09 .4........3.....
000100: 09 09 09 32 0D 0A 09 09 09 09 48 09 09 31 0D 0A ...2......H..1..
000110: 70 6F 69 6E 74 65 72 20 74 6F 20 2D 3E 09 78 09 pointer to ->.x.
000120: 09 4C 09 09 30 0D 0A 0D 0A 0D 0A 09 20 20 20 20 .L..0.......
000130: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
000140: 5F 5F 5F 5F 0D 0A 09 20 2D 35 20 7C 20 72 65 74 ____... -5 | ret
000150: 75 72 6E 20 61 64 64 72 65 73 73 20 20 20 7C 0D urn address |.
000160: 0A 09 20 2D 34 20 7C 5F 5F 5F 5F 5F 5F 5F 5F 5F .. -4 |_________
000170: 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 20 2D 33 _________|... -3
000180: 20 7C 20 64 79 6E 61 6D 69 63 20 6C 69 6E 6B 20 | dynamic link
000190: 20 20 20 20 7C 0D 0A 09 20 2D 32 20 7C 5F 5F 5F |... -2 |___
0001A0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C _______________|
0001B0: 0D 0A 09 20 2D 31 20 7C 20 73 74 61 74 69 63 20 ... -1 | static
0001C0: 6C 69 6E 6B 20 20 20 20 20 20 7C 0D 0A 42 52 20 link |..BR
0001D0: 2D 3E 09 20 20 30 20 7C 5F 5F 5F 5F 5F 5F 5F 5F ->. 0 |________
0001E0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 20 20 __________|...
0001F0: 31 20 7C 20 6C 6F 63 61 6C 20 76 61 72 69 61 62 1 | local variab
Size : 512 (Real : 512)
000000: 72 74 69 6E 67 20 61 74 20 31 30 30 68 2E 0D 0A rting at 100h...
000010: 0D 0A 35 29 20 42 6F 6F 74 20 62 61 63 6B 20 74 ..5) Boot back t
000020: 6F 20 74 68 65 20 43 43 50 2E 0D 0A 0D 0A 36 29 o the CCP.....6)
000030: 20 53 61 76 65 20 6D 65 6D 6F 72 79 20 75 70 20 Save memory up
000040: 74 6F 20 6F 6E 65 20 62 79 74 65 20 62 65 6C 6F to one byte belo
000050: 77 20 74 68 65 20 66 69 6E 61 6C 20 63 6F 64 65 w the final code
000060: 20 61 64 64 72 65 73 73 20 70 72 69 6E 74 65 64 address printed
000070: 20 62 79 0D 0A 20 20 20 74 68 65 20 61 73 73 65 by.. the asse
000080: 6D 62 6C 65 72 2E 20 20 46 27 72 69 6E 73 74 61 mbler. F'rinsta
000090: 6E 63 65 20 69 66 20 30 36 30 30 20 77 61 73 20 nce if 0600 was
0000A0: 6C 61 73 74 20 61 64 64 72 65 73 73 2C 20 74 79 last address, ty
0000B0: 70 65 0D 0A 20 20 20 22 53 41 56 45 20 35 20 52 pe.. "SAVE 5 R
0000C0: 54 50 2E 43 4F 4D 22 2E 0D 0A 0D 0A 54 68 69 73 TP.COM".....This
0000D0: 20 70 72 6F 63 65 64 75 72 65 20 6D 75 73 74 20 procedure must
0000E0: 62 65 20 66 6F 6C 6C 6F 77 65 64 20 73 6F 20 74 be followed so t
0000F0: 68 61 74 20 50 49 50 20 63 61 6E 20 62 65 20 75 hat PIP can be u
000100: 73 65 64 20 74 6F 20 63 6F 6E 63 61 74 65 6E 61 sed to concatena
000110: 74 65 0D 0A 74 68 65 20 72 75 6E 74 69 6D 65 20 te..the runtime
000120: 70 61 63 6B 61 67 65 20 61 6E 64 20 74 68 65 20 package and the
000130: 6F 62 6A 65 63 74 20 63 6F 64 65 20 70 72 6F 64 object code prod
000140: 75 63 65 64 20 62 79 20 74 68 65 20 63 6F 6D 70 uced by the comp
000150: 69 6C 65 72 2E 0D 0A 49 74 20 77 69 6C 6C 20 61 iler...It will a
000160: 6C 73 6F 20 6D 61 6B 65 20 79 6F 75 72 20 6C 69 lso make your li
000170: 66 65 20 61 20 6C 6F 74 20 65 61 73 69 65 72 20 fe a lot easier
000180: 77 68 65 6E 20 75 73 69 6E 67 20 43 4F 4D 50 41 when using COMPA
000190: 52 45 2E 43 4F 4D 20 74 6F 0D 0A 63 6F 6D 70 61 RE.COM to..compa
0001A0: 72 65 20 70 61 72 65 6E 74 73 20 61 6E 64 20 63 re parents and c
0001B0: 68 69 6C 64 65 72 6E 20 28 73 68 6F 75 6C 64 20 hildern (should
0001C0: 79 6F 75 20 65 76 65 72 20 74 72 79 20 61 6E 64 you ever try and
0001D0: 20 65 78 74 65 6E 64 20 74 68 65 20 63 6F 6D 70 extend the comp
0001E0: 69 6C 65 72 29 2E 0D 0A 0D 0A 0D 0A 49 66 20 79 iler).......If y
0001F0: 6F 75 20 6D 61 6B 65 20 63 68 61 6E 67 65 73 20 ou make changes
Size : 512 (Real : 512)
000000: 6C 65 20 31 20 7C 0D 0A 09 20 20 32 20 7C 20 20 le 1 |... 2 |
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 7C 0D 0A 09 20 20 2E 20 7C 20 20 20 20 20 20 20 |... . |
000030: 20 20 20 20 20 20 20 20 20 20 20 7C 0D 0A 09 20 |...
000040: 20 2E 20 7C 20 20 20 20 20 20 20 20 20 20 20 20 . |
000050: 20 20 20 20 20 20 7C 0D 0A 09 20 20 2E 20 7C 20 |... . |
000060: 6C 6F 63 61 6C 20 76 61 72 69 61 62 6C 65 20 6E local variable n
000070: 20 7C 0D 0A 09 20 20 6E 20 7C 5F 5F 5F 5F 5F 5F |... n |______
000080: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 ____________|...
000090: 20 20 20 20 7C 20 66 75 6E 63 74 69 6F 6E 20 76 | function v
0000A0: 61 6C 75 65 20 20 20 7C 20 20 20 20 66 75 6E 63 alue | func
0000B0: 74 69 6F 6E 20 72 65 74 75 72 6E 20 76 61 6C 75 tion return valu
0000C0: 65 0D 0A 09 2D 31 30 20 7C 5F 5F 5F 5F 5F 5F 5F e...-10 |_______
0000D0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 20 ___________|...
0000E0: 2D 39 20 7C 20 70 61 72 61 6D 65 74 65 72 20 31 -9 | parameter 1
0000F0: 20 20 20 20 20 20 7C 0D 0A 09 20 2D 38 20 7C 5F |... -8 |_
000100: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
000110: 5F 7C 0D 0A 09 20 2D 37 20 7C 20 70 61 72 61 6D _|... -7 | param
000120: 65 74 65 72 20 32 20 20 20 20 20 20 7C 0D 0A 09 eter 2 |...
000130: 20 2D 36 20 7C 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F -6 |___________
000140: 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A 09 20 2D 35 20 7C _______|... -5 |
000150: 20 72 65 74 75 72 6E 20 61 64 64 72 65 73 73 20 return address
000160: 20 20 7C 0D 0A 09 20 2D 34 20 7C 5F 5F 5F 5F 5F |... -4 |_____
000170: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D 0A _____________|..
000180: 09 20 2D 33 20 7C 20 64 79 6E 61 6D 69 63 20 6C . -3 | dynamic l
000190: 69 6E 6B 20 20 20 20 20 7C 0D 0A 09 20 2D 32 20 ink |... -2
0001A0: 7C 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F |_______________
0001B0: 5F 5F 5F 7C 0D 0A 09 20 2D 31 20 7C 20 73 74 61 ___|... -1 | sta
0001C0: 74 69 63 20 6C 69 6E 6B 20 20 20 20 20 20 7C 0D tic link |.
0001D0: 0A 42 52 20 2D 3E 09 20 20 30 20 7C 5F 5F 5F 5F .BR ->. 0 |____
0001E0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 7C 0D ______________|.
0001F0: 0A 09 20 20 31 20 7C 20 6C 6F 63 61 6C 20 76 61 .. 1 | local va
Size : 512 (Real : 512)
000000: 74 6F 20 70 70 63 2E 70 61 73 20 6F 72 20 70 66 to ppc.pas or pf
000010: 65 74 2E 70 61 73 2C 20 79 6F 75 27 6C 6C 20 77 et.pas, you'll w
000020: 61 6E 74 20 74 6F 20 62 65 20 73 75 72 65 0D 0A ant to be sure..
000030: 74 68 61 74 20 74 68 65 20 6E 65 77 20 63 6F 6D that the new com
000040: 70 69 6C 65 72 20 69 73 20 63 61 70 61 62 6C 65 piler is capable
000050: 20 6F 66 20 63 6F 6D 70 69 6C 69 6E 67 20 69 74 of compiling it
000060: 73 65 6C 66 2E 20 20 49 6E 20 67 65 6E 65 74 69 self. In geneti
000070: 63 73 2C 0D 0A 74 68 69 73 20 77 6F 75 6C 64 20 cs,..this would
000080: 62 65 20 6C 69 6B 65 20 6D 61 6B 69 6E 67 20 73 be like making s
000090: 75 72 65 20 74 68 61 74 20 79 6F 75 72 20 63 68 ure that your ch
0000A0: 69 6C 64 72 65 6E 20 61 72 65 20 6E 6F 74 20 73 ildren are not s
0000B0: 74 65 72 69 6C 65 2E 0D 0A 54 68 65 20 66 69 6C terile...The fil
0000C0: 65 20 76 61 6C 69 64 61 74 65 2E 73 75 62 20 73 e validate.sub s
0000D0: 68 6F 75 6C 64 20 68 65 6C 70 20 6D 61 6B 65 20 hould help make
0000E0: 73 75 72 65 20 79 6F 75 20 64 6F 6E 27 74 20 68 sure you don't h
0000F0: 61 76 65 20 73 74 65 72 69 6C 65 0D 0A 63 68 69 ave sterile..chi
000100: 6C 64 72 65 6E 2E 20 20 49 74 20 75 73 65 73 20 ldren. It uses
000110: 61 20 22 6B 6E 6F 77 20 66 65 72 74 69 6C 65 22 a "know fertile"
000120: 20 63 6F 6D 70 69 6C 65 72 20 28 70 70 63 2E 63 compiler (ppc.c
000130: 6F 6D 2C 20 70 66 65 74 2E 63 6F 6D 29 20 74 6F om, pfet.com) to
000140: 0D 0A 63 6F 6D 70 69 6C 65 20 74 68 65 20 6E 65 ..compile the ne
000150: 77 20 70 70 63 2E 70 61 73 20 61 6E 64 20 70 66 w ppc.pas and pf
000160: 65 74 2E 70 61 73 2E 20 20 54 68 65 20 72 65 73 et.pas. The res
000170: 75 6C 74 69 6E 67 20 63 6F 6D 70 69 6C 65 72 20 ulting compiler
000180: 69 73 20 74 68 65 6E 0D 0A 75 73 65 64 20 74 6F is then..used to
000190: 20 63 6F 6D 70 69 6C 65 20 70 70 63 2E 70 61 73 compile ppc.pas
0001A0: 20 61 6E 64 20 70 66 65 74 2E 70 61 73 20 61 67 and pfet.pas ag
0001B0: 61 69 6E 2E 20 20 54 68 65 20 72 65 73 75 6C 74 ain. The result
0001C0: 73 20 6F 66 20 74 68 69 73 0D 0A 73 65 63 6F 6E s of this..secon
0001D0: 64 20 63 6F 6D 70 69 6C 61 74 6F 6E 20 61 72 65 d compilaton are
0001E0: 20 63 6F 6D 70 61 72 65 64 20 74 6F 20 74 68 65 compared to the
0001F0: 20 72 65 73 75 6C 74 73 20 6F 66 20 74 68 65 20 results of the
Size : 512 (Real : 512)
000000: 62 61 73 65 0D 0A 09 6A 6D 70 09 63 6D 70 72 0D base...jmp.cmpr.
000010: 0A 09 6A 6D 70 09 63 73 70 30 0D 0A 09 6A 6D 70 ..jmp.csp0...jmp
000020: 09 63 73 70 31 0D 0A 09 6A 6D 70 09 24 0D 0A 09 .csp1...jmp.$...
000030: 6A 6D 70 09 63 73 70 33 0D 0A 09 6A 6D 70 09 24 jmp.csp3...jmp.$
000040: 0D 0A 09 6A 6D 70 09 24 0D 0A 09 6A 6D 70 09 24 ...jmp.$...jmp.$
000050: 0D 0A 09 6A 6D 70 09 24 0D 0A 09 6A 6D 70 09 63 ...jmp.$...jmp.c
000060: 73 70 38 0D 0A 09 6A 6D 70 09 63 73 70 39 0D 0A sp8...jmp.csp9..
000070: 09 6A 6D 70 09 73 70 61 6C 69 74 0D 0A 09 6A 6D .jmp.spalit...jm
000080: 70 09 73 70 61 6C 6F 64 0D 0A 09 6A 6D 70 09 73 p.spalod...jmp.s
000090: 70 61 73 74 6F 0D 0A 09 6A 6D 70 09 61 63 6D 70 pasto...jmp.acmp
0000A0: 72 0D 0A 09 6A 6D 70 09 6F 70 72 33 0D 0A 09 6A r...jmp.opr3...j
0000B0: 6D 70 09 6F 70 72 34 0D 0A 09 6A 6D 70 09 6F 70 mp.opr4...jmp.op
0000C0: 72 35 0D 0A 09 6A 6D 70 09 24 0D 0A 09 6A 6D 70 r5...jmp.$...jmp
0000D0: 09 24 0D 0A 09 6A 6D 70 09 73 70 63 61 6C 30 0D .$...jmp.spcal0.
0000E0: 0A 09 6A 6D 70 09 73 70 63 61 6C 0D 0A 09 6A 6D ..jmp.spcal...jm
0000F0: 70 09 73 70 72 65 74 0D 0A 62 72 09 64 73 09 32 p.spret..br.ds.2
000100: 0D 0A 3B 0D 0A 3B 20 69 6E 73 65 72 74 20 76 65 ..;..; insert ve
000110: 72 73 69 6F 6E 20 6E 75 6D 62 65 72 20 69 6E 20 rsion number in
000120: 6F 62 6A 65 63 74 0D 0A 3B 0D 0A 09 64 62 09 27 object..;...db.'
000130: 52 54 50 20 52 45 56 20 27 0D 0A 09 64 62 09 76 RTP REV '...db.v
000140: 68 75 2B 27 30 27 2C 20 76 74 6E 2B 27 30 27 2C hu+'0', vtn+'0',
000150: 20 27 2E 27 2C 20 76 75 6E 2B 27 30 27 2C 20 64 '.', vun+'0', d
000160: 65 76 72 65 6C 0D 0A 3B 0D 0A 3B 20 73 74 61 72 evrel..;..; star
000170: 74 75 70 20 73 65 74 73 20 75 70 20 74 68 65 20 tup sets up the
000180: 69 2F 6F 20 61 6E 64 20 73 74 61 63 6B 73 20 62 i/o and stacks b
000190: 65 66 6F 72 65 20 74 72 61 6E 73 66 65 72 69 6E efore transferin
0001A0: 67 20 74 6F 0D 0A 3B 20 74 68 65 20 6F 62 6A 65 g to..; the obje
0001B0: 63 74 20 63 6F 64 65 20 66 6F 72 20 65 78 65 63 ct code for exec
0001C0: 75 74 69 6F 6E 0D 0A 3B 0D 0A 73 74 61 72 74 75 ution..;..startu
0001D0: 70 3A 0D 0A 09 6C 68 6C 64 09 36 09 3B 73 65 74 p:...lhld.6.;set
0001E0: 20 73 74 61 63 6B 20 75 6E 64 65 72 20 62 64 6F stack under bdo
0001F0: 73 0D 0A 09 6D 76 69 09 6C 2C 30 0D 0A 09 73 70 s...mvi.l,0...sp
Size : 512 (Real : 512)
000000: 66 69 72 73 74 2E 20 20 49 66 20 74 68 65 79 0D first. If they.
000010: 0A 6D 61 74 63 68 2C 20 69 74 20 69 73 20 73 61 .match, it is sa
000020: 66 65 20 74 6F 20 65 72 61 73 65 20 74 68 65 20 fe to erase the
000030: 22 6B 6E 6F 77 6E 20 66 65 72 74 69 6C 65 22 20 "known fertile"
000040: 63 6F 6D 70 69 6C 65 72 20 62 65 63 61 75 73 65 compiler because
000050: 20 79 6F 75 0D 0A 6E 6F 77 20 6B 6E 6F 77 20 74 you..now know t
000060: 68 61 74 20 79 6F 75 20 68 61 76 65 20 61 20 63 hat you have a c
000070: 6F 6D 70 69 6C 65 72 20 77 68 69 63 68 20 63 61 ompiler which ca
000080: 6E 20 72 65 70 72 6F 64 75 63 65 20 69 74 73 65 n reproduce itse
000090: 6C 66 2E 20 20 49 66 0D 0A 74 68 65 79 20 6D 69 lf. If..they mi
0000A0: 73 63 6F 6D 70 61 72 65 2C 20 79 6F 75 27 64 20 scompare, you'd
0000B0: 62 65 74 74 65 72 20 66 69 6E 64 20 6F 75 74 20 better find out
0000C0: 77 68 79 20 61 6E 64 20 66 69 78 20 69 74 20 62 why and fix it b
0000D0: 65 66 6F 72 65 20 65 72 61 73 69 6E 67 0D 0A 74 efore erasing..t
0000E0: 68 65 20 70 61 72 65 6E 74 73 2E 20 20 59 6F 75 he parents. You
0000F0: 20 73 68 6F 75 6C 64 20 61 6C 73 6F 20 6E 6F 74 should also not
000100: 65 20 74 68 61 74 20 74 68 69 73 20 74 65 73 74 e that this test
000110: 20 6F 6E 6C 79 20 67 75 61 72 61 6E 74 65 65 73 only guarantees
000120: 0D 0A 74 68 61 74 20 79 6F 75 27 6C 6C 20 62 65 ..that you'll be
000130: 20 61 62 6C 65 20 74 6F 20 63 6F 6E 74 69 6E 75 able to continu
000140: 65 20 74 6F 20 75 73 65 20 74 68 65 20 63 6F 6D e to use the com
000150: 70 69 6C 65 72 20 74 6F 20 63 6F 6D 70 69 6C 65 piler to compile
000160: 20 69 74 73 65 6C 66 2E 0D 0A 49 74 20 64 6F 65 itself...It doe
000170: 73 20 4E 2D 4F 2D 54 20 67 75 61 72 61 6E 74 65 s N-O-T guarante
000180: 65 20 74 68 61 74 20 79 6F 75 27 76 65 20 67 6F e that you've go
000190: 74 20 61 20 66 75 6C 6C 79 20 66 75 6E 63 74 69 t a fully functi
0001A0: 6F 6E 61 6C 20 63 6F 6D 70 69 6C 65 72 2C 0D 0A onal compiler,..
0001B0: 62 65 63 61 75 73 65 20 74 68 65 20 63 6F 6D 70 because the comp
0001C0: 69 6C 69 6E 67 20 74 68 65 20 63 6F 6D 70 69 6C iling the compil
0001D0: 65 72 20 64 6F 65 73 20 6E 6F 74 20 65 78 65 72 er does not exer
0001E0: 63 69 73 65 20 61 6C 6C 20 66 75 6E 63 74 69 6F cise all functio
0001F0: 6E 73 0D 0A 6F 66 20 74 68 65 20 63 6F 6D 70 69 ns..of the compi
Size : 512 (Real : 512)
000000: 68 6C 0D 0A 09 73 68 6C 64 09 62 72 09 3B 69 6E hl...shld.br.;in
000010: 74 69 20 62 61 73 65 20 72 65 67 0D 0A 09 63 61 ti base reg...ca
000020: 6C 6C 09 73 65 74 69 6F 09 3B 73 65 74 20 63 69 ll.setio.;set ci
000030: 66 6C 61 67 20 61 6E 64 20 63 6F 66 6C 61 67 0D flag and coflag.
000040: 0A 09 63 61 6C 6C 09 6F 70 65 6E 66 09 3B 6F 70 ..call.openf.;op
000050: 65 6E 20 66 69 6C 65 73 20 69 66 20 6E 65 65 64 en files if need
000060: 65 64 0D 0A 09 6A 6D 70 09 6F 63 6F 64 65 09 3B ed...jmp.ocode.;
000070: 76 65 63 74 6F 72 20 74 6F 20 67 65 6E 65 72 61 vector to genera
000080: 74 65 64 20 6F 62 6A 65 63 74 20 63 6F 64 65 0D ted object code.
000090: 0A 3B 0D 0A 3B 20 73 65 74 69 6F 20 73 65 74 73 .;..; setio sets
0000A0: 20 63 69 66 6C 61 67 20 74 6F 20 30 66 66 68 20 ciflag to 0ffh
0000B0: 28 74 72 75 65 29 20 69 66 20 69 6E 70 75 74 20 (true) if input
0000C0: 69 73 20 74 6F 20 63 6F 6D 65 20 66 72 6F 6D 0D is to come from.
0000D0: 0A 3B 20 74 68 65 20 63 6F 6E 73 6F 6C 65 20 28 .; the console (
0000E0: 61 73 20 6F 70 70 6F 73 65 64 20 74 6F 20 30 68 as opposed to 0h
0000F0: 20 69 66 20 69 74 20 69 73 20 74 6F 20 63 6F 6D if it is to com
000100: 65 20 66 72 6F 6D 20 64 69 73 6B 29 0D 0A 3B 20 e from disk)..;
000110: 61 6E 64 20 6C 69 6B 65 77 69 73 65 20 66 6F 72 and likewise for
000120: 20 63 6F 66 6C 61 67 20 66 6F 72 20 63 6F 6E 73 coflag for cons
000130: 6F 6C 65 20 6F 75 74 70 75 74 0D 0A 3B 0D 0A 73 ole output..;..s
000140: 65 74 69 6F 3A 0D 0A 09 6C 64 61 09 35 64 68 09 etio:...lda.5dh.
000150: 3B 66 69 72 73 74 20 6E 61 6D 65 20 62 79 74 65 ;first name byte
000160: 20 6F 66 20 66 63 62 31 0D 0A 09 6D 76 69 09 62 of fcb1...mvi.b
000170: 2C 30 66 66 68 09 3B 70 72 65 70 61 72 65 20 63 ,0ffh.;prepare c
000180: 69 66 6C 61 67 20 76 61 6C 75 65 0D 0A 09 63 70 iflag value...cp
000190: 69 09 27 20 27 09 3B 62 6C 61 6E 6B 20 6D 65 61 i.' '.;blank mea
0001A0: 6E 73 20 63 6F 6E 73 6F 6C 65 20 69 6E 0D 0A 09 ns console in...
0001B0: 6A 7A 09 73 65 74 31 0D 0A 09 63 70 69 09 27 3F jz.set1...cpi.'?
0001C0: 27 09 3B 3F 20 6D 65 61 6E 73 20 63 6F 6E 73 6F '.;? means conso
0001D0: 6C 65 20 69 6E 20 74 6F 6F 0D 0A 09 6A 7A 09 73 le in too...jz.s
0001E0: 65 74 31 0D 0A 09 69 6E 72 09 62 09 3B 72 65 67 et1...inr.b.;reg
0001F0: 20 62 20 3D 20 30 0D 0A 73 65 74 31 3A 0D 0A 09 b = 0..set1:...
Size : 512 (Real : 512)
000000: 6C 65 72 2E 0D 0A 0D 0A 41 66 74 65 72 20 6D 61 ler.....After ma
000010: 6B 69 6E 67 20 61 6E 79 20 63 68 61 6E 67 65 73 king any changes
000020: 20 74 6F 20 74 68 65 20 63 6F 6D 70 69 6C 65 72 to the compiler
000030: 2C 20 79 6F 75 27 6C 6C 20 70 72 6F 62 61 62 6C , you'll probabl
000040: 79 20 77 61 6E 74 20 74 6F 0D 0A 6D 61 6B 65 20 y want to..make
000050: 73 75 72 65 20 74 68 61 74 20 79 6F 75 20 63 61 sure that you ca
000060: 6E 20 73 74 69 6C 6C 20 63 6F 6D 70 69 6C 65 20 n still compile
000070: 61 6E 64 20 65 78 65 63 75 74 65 20 74 65 73 74 and execute test
000080: 65 72 2E 70 61 73 2E 20 20 54 68 69 73 0D 0A 74 er.pas. This..t
000090: 65 73 74 20 64 6F 65 73 6E 27 74 20 74 65 73 74 est doesn't test
0000A0: 20 61 6C 6C 20 66 75 6E 63 74 69 6F 6E 73 20 6F all functions o
0000B0: 66 20 74 68 65 20 63 6F 6D 70 69 6C 65 72 20 65 f the compiler e
0000C0: 69 74 68 65 72 2C 20 62 75 74 20 70 61 73 73 69 ither, but passi
0000D0: 6E 67 0D 0A 74 65 73 74 65 72 20 69 73 20 67 6F ng..tester is go
0000E0: 6F 64 20 73 69 67 6E 20 74 68 61 74 20 79 6F 75 od sign that you
0000F0: 20 68 61 76 65 6E 27 74 20 62 72 6F 6B 65 6E 20 haven't broken
000100: 61 6E 79 74 68 69 6E 67 20 6D 61 6A 6F 72 2E 20 anything major.
000110: 20 42 79 20 74 68 65 0D 0A 77 61 79 2C 20 69 74 By the..way, it
000120: 20 69 73 20 6E 6F 72 6D 61 6C 20 74 6F 20 67 65 is normal to ge
000130: 74 20 61 20 66 65 77 20 74 79 70 65 20 6D 69 73 t a few type mis
000140: 73 6D 61 74 63 68 20 65 72 72 6F 72 73 20 77 68 smatch errors wh
000150: 69 6C 65 20 63 6F 6D 70 69 6C 69 6E 67 0D 0A 74 ile compiling..t
000160: 65 73 74 65 72 2E 20 20 41 20 6E 65 77 20 76 65 ester. A new ve
000170: 72 73 69 6F 6E 20 6F 66 20 74 68 65 20 63 6F 6D rsion of the com
000180: 70 69 6C 65 72 20 77 68 69 63 68 20 69 73 20 73 piler which is s
000190: 6D 61 72 74 65 72 20 61 62 6F 75 74 20 74 79 70 marter about typ
0001A0: 65 0D 0A 63 68 65 63 6B 69 6E 67 20 77 6F 75 6C e..checking woul
0001B0: 64 20 70 72 65 76 65 6E 74 20 74 68 65 73 65 20 d prevent these
0001C0: 6D 65 73 73 61 67 65 73 2E 0D 0A 1A 1A 1A 1A 1A messages........
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 6D 6F 76 09 61 2C 62 09 3B 67 65 74 20 63 69 66 mov.a,b.;get cif
000010: 6C 61 67 20 76 61 6C 75 65 0D 0A 09 73 74 61 09 lag value...sta.
000020: 63 69 66 6C 61 67 09 3B 73 74 6F 72 65 20 69 74 ciflag.;store it
000030: 0D 0A 09 6C 78 69 09 68 2C 69 66 63 62 09 3B 63 ...lxi.h,ifcb.;c
000040: 6F 70 79 20 66 69 72 73 74 20 6E 61 6D 65 20 69 opy first name i
000050: 6E 74 6F 20 69 6E 70 75 74 20 66 63 62 0D 0A 09 nto input fcb...
000060: 6C 78 69 09 64 2C 35 63 68 0D 0A 09 63 61 6C 6C lxi.d,5ch...call
000070: 09 63 6F 70 79 6E 61 6D 0D 0A 09 6C 64 61 09 36 .copynam...lda.6
000080: 64 68 09 3B 67 65 74 20 66 69 72 73 74 20 6E 61 dh.;get first na
000090: 6D 65 20 62 79 74 65 20 6F 66 20 66 63 62 32 0D me byte of fcb2.
0000A0: 0A 09 6D 76 69 09 62 2C 30 66 66 68 09 3B 73 61 ..mvi.b,0ffh.;sa
0000B0: 6D 65 20 61 73 20 61 62 6F 76 65 0D 0A 09 63 70 me as above...cp
0000C0: 69 09 27 20 27 0D 0A 09 6A 7A 09 73 65 74 32 0D i.' '...jz.set2.
0000D0: 0A 09 63 70 69 09 27 3F 27 0D 0A 09 6A 7A 09 73 ..cpi.'?'...jz.s
0000E0: 65 74 32 0D 0A 09 69 6E 72 09 62 0D 0A 73 65 74 et2...inr.b..set
0000F0: 32 3A 0D 0A 09 6D 6F 76 09 61 2C 62 0D 0A 09 73 2:...mov.a,b...s
000100: 74 61 09 63 6F 66 6C 61 67 0D 0A 09 6C 78 69 09 ta.coflag...lxi.
000110: 68 2C 6F 66 63 62 09 3B 63 6F 70 79 20 73 65 63 h,ofcb.;copy sec
000120: 6F 6E 64 20 6E 61 6D 65 20 69 6E 74 6F 20 6F 75 ond name into ou
000130: 74 70 75 74 20 66 63 62 0D 0A 09 6C 78 69 09 64 tput fcb...lxi.d
000140: 2C 36 63 68 0D 0A 09 63 61 6C 6C 09 63 6F 70 79 ,6ch...call.copy
000150: 6E 61 6D 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 20 nam...ret..;..;
000160: 63 6F 70 79 6E 61 6D 20 6D 6F 76 65 73 20 61 20 copynam moves a
000170: 66 69 6C 65 20 6E 61 6D 65 20 66 72 6F 6D 20 64 file name from d
000180: 65 20 74 6F 20 68 6C 2E 0D 0A 3B 20 63 6C 6F 62 e to hl...; clob
000190: 62 65 72 73 20 72 65 67 20 68 6C 2C 20 64 65 2C bers reg hl, de,
0001A0: 20 62 2C 20 61 2E 0D 0A 3B 0D 0A 63 6F 70 79 6E b, a...;..copyn
0001B0: 61 6D 3A 0D 0A 09 6D 76 69 09 62 2C 31 32 09 3B am:...mvi.b,12.;
0001C0: 66 69 6C 65 6E 61 6D 65 20 6C 65 6E 67 74 68 0D filename length.
0001D0: 0A 63 6E 31 3A 0D 0A 09 6C 64 61 78 09 64 09 3B .cn1:...ldax.d.;
0001E0: 67 65 74 20 66 72 6F 6D 20 73 6F 75 72 63 65 0D get from source.
0001F0: 0A 09 6D 6F 76 09 6D 2C 61 09 3B 70 75 74 20 74 ..mov.m,a.;put t
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 6F 20 64 65 73 74 0D 0A 09 69 6E 78 09 64 0D 0A o dest...inx.d..
000010: 09 69 6E 78 09 68 0D 0A 09 64 63 72 09 62 0D 0A .inx.h...dcr.b..
000020: 09 6A 6E 7A 09 63 6E 31 0D 0A 09 72 65 74 0D 0A .jnz.cn1...ret..
000030: 3B 0D 0A 3B 20 6F 70 65 6E 66 20 6F 70 65 6E 73 ;..; openf opens
000040: 20 74 68 65 20 66 69 6C 65 20 6E 61 6D 65 20 69 the file name i
000050: 6E 20 66 63 62 31 20 66 6F 72 20 69 6E 70 75 74 n fcb1 for input
000060: 20 69 66 20 63 69 66 6C 61 67 20 69 73 0D 0A 3B if ciflag is..;
000070: 20 66 61 6C 73 65 20 61 6E 64 20 6F 70 65 6E 73 false and opens
000080: 20 74 68 65 20 6E 61 6D 65 20 69 6E 20 66 63 62 the name in fcb
000090: 32 20 66 6F 72 20 6F 75 74 70 75 74 20 69 66 20 2 for output if
0000A0: 63 6F 66 6C 61 67 20 69 73 0D 0A 3B 20 66 61 6C coflag is..; fal
0000B0: 73 65 0D 0A 3B 0D 0A 6F 70 65 6E 66 3A 0D 0A 09 se..;..openf:...
0000C0: 6C 64 61 09 63 69 66 6C 61 67 09 3B 67 65 74 20 lda.ciflag.;get
0000D0: 63 69 66 6C 61 67 0D 0A 09 6F 72 61 09 61 0D 0A ciflag...ora.a..
0000E0: 09 6A 6E 7A 09 6F 70 31 09 3B 73 6B 69 70 20 6F .jnz.op1.;skip o
0000F0: 70 65 6E 20 69 66 20 74 72 75 65 0D 0A 09 78 72 pen if true...xr
000100: 61 09 61 09 3B 7A 61 70 20 66 63 62 6E 72 0D 0A a.a.;zap fcbnr..
000110: 09 73 74 61 09 69 66 63 62 2B 33 32 0D 0A 09 6C .sta.ifcb+32...l
000120: 78 69 09 64 2C 69 66 63 62 0D 0A 09 6D 76 69 09 xi.d,ifcb...mvi.
000130: 63 2C 6F 70 65 6E 0D 0A 09 63 61 6C 6C 09 62 64 c,open...call.bd
000140: 6F 73 0D 0A 09 69 6E 72 09 61 0D 0A 09 6A 7A 09 os...inr.a...jz.
000150: 64 69 73 6B 65 72 72 09 3B 6E 6F 74 20 66 6F 75 diskerr.;not fou
000160: 6E 64 0D 0A 09 6C 78 69 09 68 2C 69 62 75 66 2B nd...lxi.h,ibuf+
000170: 38 30 68 20 3B 69 6E 69 74 20 69 6E 70 75 74 20 80h ;init input
000180: 62 75 66 66 65 72 20 70 6F 69 6E 74 65 72 0D 0A buffer pointer..
000190: 09 73 68 6C 64 09 69 70 74 72 0D 0A 6F 70 31 3A .shld.iptr..op1:
0001A0: 0D 0A 09 6C 64 61 09 63 6F 66 6C 61 67 09 3B 67 ...lda.coflag.;g
0001B0: 65 74 20 63 6F 66 6C 61 67 0D 0A 09 6F 72 61 09 et coflag...ora.
0001C0: 61 0D 0A 09 72 6E 7A 09 09 3B 73 6B 69 70 20 6F a...rnz..;skip o
0001D0: 70 65 6E 20 69 66 20 74 72 75 65 0D 0A 09 6C 78 pen if true...lx
0001E0: 69 09 64 2C 6F 66 63 62 0D 0A 09 6D 76 69 09 63 i.d,ofcb...mvi.c
0001F0: 2C 64 65 6C 65 74 65 0D 0A 09 63 61 6C 6C 09 62 ,delete...call.b
Size : 512 (Real : 512)
000000: 3B 0D 0A 3B 20 54 49 54 4C 45 09 09 50 41 53 43 ;..; TITLE..PASC
000010: 41 4C 20 52 55 4E 54 49 4D 45 20 4D 4F 44 55 4C AL RUNTIME MODUL
000020: 45 0D 0A 3B 20 46 49 4C 45 4E 41 4D 45 09 52 54 E..; FILENAME.RT
000030: 50 2E 41 53 4D 0D 0A 3B 20 41 55 54 48 4F 52 09 P.ASM..; AUTHOR.
000040: 52 6F 62 65 72 74 20 41 2E 20 56 61 6E 20 56 61 Robert A. Van Va
000050: 6C 7A 61 68 20 20 20 38 2F 33 30 2F 37 39 0D 0A lzah 8/30/79..
000060: 3B 20 4C 41 53 54 20 52 45 56 49 53 45 44 09 31 ; LAST REVISED.1
000070: 32 2F 31 30 2F 37 39 20 20 20 52 2E 41 2E 56 2E 2/10/79 R.A.V.
000080: 0D 0A 3B 20 52 45 41 53 4F 4E 09 63 68 61 6E 67 ..; REASON.chang
000090: 65 64 20 65 6E 74 72 79 20 6F 66 20 73 70 61 6C ed entry of spal
0000A0: 6F 64 20 66 6F 72 20 68 6C 3D 6C 73 62 79 74 65 od for hl=lsbyte
0000B0: 20 6F 66 20 61 6C 66 61 0D 0A 3B 0D 0A 3B 0D 0A of alfa..;..;..
0000C0: 76 68 75 09 65 71 75 09 30 09 3B 76 65 72 69 73 vhu.equ.0.;veris
0000D0: 69 6F 6E 20 6E 75 6D 62 65 72 20 68 75 6E 64 72 ion number hundr
0000E0: 65 64 73 0D 0A 76 74 6E 09 65 71 75 09 30 09 3B eds..vtn.equ.0.;
0000F0: 76 65 72 73 69 6F 6E 20 6E 75 6D 62 65 72 20 74 version number t
000100: 65 6E 73 0D 0A 76 75 6E 09 65 71 75 09 38 09 3B ens..vun.equ.8.;
000110: 76 65 72 73 69 6F 6E 20 6E 75 6D 62 65 72 20 75 version number u
000120: 6E 69 74 73 0D 0A 64 65 76 72 65 6C 09 65 71 75 nits..devrel.equ
000130: 09 27 52 27 09 3B 64 65 76 65 6C 6F 70 6D 65 6E .'R'.;developmen
000140: 74 20 6F 72 20 72 65 6C 65 61 73 65 20 76 65 72 t or release ver
000150: 73 69 6F 6E 0D 0A 3B 0D 0A 62 64 6F 73 09 65 71 sion..;..bdos.eq
000160: 75 09 35 0D 0A 6F 70 65 6E 09 65 71 75 09 31 35 u.5..open.equ.15
000170: 0D 0A 63 6C 6F 73 65 09 65 71 75 09 31 36 0D 0A ..close.equ.16..
000180: 64 65 6C 65 74 65 09 65 71 75 09 31 39 0D 0A 72 delete.equ.19..r
000190: 65 61 64 72 65 63 09 65 71 75 09 32 30 0D 0A 77 eadrec.equ.20..w
0001A0: 72 69 74 65 72 65 63 20 65 71 75 09 32 31 0D 0A riterec equ.21..
0001B0: 6D 61 6B 65 09 65 71 75 09 32 32 0D 0A 73 65 74 make.equ.22..set
0001C0: 64 6D 61 09 65 71 75 09 32 36 0D 0A 3B 0D 0A 72 dma.equ.26..;..r
0001D0: 6F 6D 6F 72 67 09 65 71 75 09 31 30 30 68 0D 0A omorg.equ.100h..
0001E0: 09 6F 72 67 09 72 6F 6D 6F 72 67 0D 0A 09 6A 6D .org.romorg...jm
0001F0: 70 09 73 74 61 72 74 75 70 0D 0A 09 6A 6D 70 09 p.startup...jmp.
Size : 512 (Real : 512)
000000: 64 6F 73 0D 0A 09 6C 78 69 09 64 2C 6F 66 63 62 dos...lxi.d,ofcb
000010: 0D 0A 09 6D 76 69 09 63 2C 6D 61 6B 65 0D 0A 09 ...mvi.c,make...
000020: 63 61 6C 6C 09 62 64 6F 73 0D 0A 09 69 6E 72 09 call.bdos...inr.
000030: 61 0D 0A 09 6A 7A 09 64 69 73 6B 65 72 72 09 3B a...jz.diskerr.;
000040: 6E 6F 20 69 64 72 65 63 74 6F 72 79 20 73 70 61 no idrectory spa
000050: 63 65 0D 0A 09 78 72 61 09 61 09 3B 7A 61 70 20 ce...xra.a.;zap
000060: 66 63 62 6E 72 0D 0A 09 73 74 61 09 6F 66 63 62 fcbnr...sta.ofcb
000070: 2B 33 32 0D 0A 09 6C 78 69 09 68 2C 6F 62 75 66 +32...lxi.h,obuf
000080: 09 3B 69 6E 69 74 20 6F 75 74 70 75 74 20 62 75 .;init output bu
000090: 66 66 65 72 20 70 6F 69 6E 74 65 72 0D 0A 09 73 ffer pointer...s
0000A0: 68 6C 64 09 6F 70 74 72 0D 0A 09 72 65 74 0D 0A hld.optr...ret..
0000B0: 3B 0D 0A 3B 20 62 61 73 65 20 66 6F 6C 6C 6F 77 ;..; base follow
0000C0: 20 73 74 61 74 69 63 20 6C 69 6E 6B 73 20 62 61 static links ba
0000D0: 63 6B 20 72 65 67 20 61 20 6C 65 76 65 6C 73 2C ck reg a levels,
0000E0: 20 72 65 74 75 72 6E 20 62 61 73 65 0D 0A 3B 20 return base..;
0000F0: 69 6E 20 72 65 67 20 68 6C 0D 0A 3B 0D 0A 62 61 in reg hl..;..ba
000100: 73 65 3A 0D 0A 09 6C 68 6C 64 09 62 72 09 3B 73 se:...lhld.br.;s
000110: 74 61 72 74 20 77 69 74 68 20 63 75 72 72 65 6E tart with curren
000120: 74 20 62 61 73 65 0D 0A 66 6F 6C 6C 6F 77 3A 0D t base..follow:.
000130: 0A 09 6D 6F 76 09 65 2C 6D 09 3B 67 65 74 20 61 ..mov.e,m.;get a
000140: 20 6C 69 6E 6B 20 74 6F 20 72 65 67 20 64 65 0D link to reg de.
000150: 0A 09 69 6E 78 09 68 0D 0A 09 6D 6F 76 09 64 2C ..inx.h...mov.d,
000160: 6D 0D 0A 09 78 63 68 67 09 09 3B 6C 69 6E 6B 20 m...xchg..;link
000170: 74 6F 20 72 65 67 20 68 6C 0D 0A 09 64 63 72 09 to reg hl...dcr.
000180: 61 09 3B 65 6E 6F 75 67 68 20 6C 69 6E 6B 73 20 a.;enough links
000190: 66 6F 6C 6C 6F 77 65 64 3F 0D 0A 09 6A 6E 7A 09 followed?...jnz.
0001A0: 66 6F 6C 6C 6F 77 09 3B 6E 6F 0D 0A 09 72 65 74 follow.;no...ret
0001B0: 09 09 3B 79 65 73 0D 0A 3B 0D 0A 3B 20 63 6D 70 ..;yes..;..; cmp
0001C0: 72 20 69 73 20 63 61 6C 6C 65 64 20 74 6F 20 73 r is called to s
0001D0: 65 74 20 66 6C 61 67 73 20 6C 69 6B 65 20 28 74 et flags like (t
0001E0: 6F 70 29 2D 28 74 6F 70 2D 31 29 20 62 65 66 6F op)-(top-1) befo
0001F0: 72 65 0D 0A 3B 20 74 68 65 20 63 61 6C 6C 20 74 re..; the call t
Size : 512 (Real : 512)
000000: 72 65 61 64 20 61 20 63 68 61 72 61 63 74 65 72 read a character
000010: 20 61 6E 64 20 70 75 73 68 20 69 74 20 74 6F 20 and push it to
000020: 73 74 61 63 6B 0D 0A 3B 0D 0A 63 73 70 30 3A 0D stack..;..csp0:.
000030: 0A 09 73 74 61 09 69 64 65 76 09 3B 73 61 76 65 ..sta.idev.;save
000040: 20 69 6E 70 75 74 20 64 65 76 69 63 65 0D 0A 09 input device...
000050: 63 61 6C 6C 09 67 65 74 73 0D 0A 09 6D 6F 76 09 call.gets...mov.
000060: 6C 2C 61 0D 0A 09 6D 76 69 09 68 2C 30 0D 0A 09 l,a...mvi.h,0...
000070: 78 74 68 6C 0D 0A 09 70 63 68 6C 0D 0A 3B 0D 0A xthl...pchl..;..
000080: 3B 20 63 73 70 31 20 70 6F 70 20 73 74 61 63 6B ; csp1 pop stack
000090: 20 61 6E 64 20 77 72 69 74 65 20 69 74 20 61 73 and write it as
0000A0: 20 61 20 63 68 61 72 61 63 74 65 72 0D 0A 3B 0D a character..;.
0000B0: 0A 63 73 70 31 3A 0D 0A 09 73 74 61 09 6F 64 65 .csp1:...sta.ode
0000C0: 76 09 3B 73 61 76 65 20 6F 75 74 70 75 74 20 64 v.;save output d
0000D0: 65 76 69 63 65 20 66 6F 72 20 70 75 74 64 0D 0A evice for putd..
0000E0: 09 70 6F 70 09 68 09 3B 63 73 70 31 20 72 65 74 .pop.h.;csp1 ret
0000F0: 75 72 6E 20 61 64 64 72 65 73 73 20 74 6F 20 72 urn address to r
000100: 65 67 20 68 6C 0D 0A 09 78 74 68 6C 09 09 3B 72 eg hl...xthl..;r
000110: 65 74 75 72 6E 20 61 64 72 20 74 6F 20 73 74 61 eturn adr to sta
000120: 63 6B 2C 20 28 74 6F 70 29 20 74 6F 20 72 65 67 ck, (top) to reg
000130: 20 68 6C 0D 0A 09 6D 6F 76 09 61 2C 6C 09 3B 63 hl...mov.a,l.;c
000140: 68 61 72 20 74 6F 20 72 65 67 20 61 20 66 6F 72 har to reg a for
000150: 20 70 75 74 64 0D 0A 09 63 61 6C 6C 09 70 75 74 putd...call.put
000160: 64 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 20 70 72 d...ret..;..; pr
000170: 74 68 6C 20 70 72 69 6E 74 73 20 74 68 65 20 63 thl prints the c
000180: 6F 6E 74 65 6E 74 73 20 6F 66 20 72 65 67 20 68 ontents of reg h
000190: 6C 20 61 73 20 61 20 64 65 63 69 6D 61 6C 20 6E l as a decimal n
0001A0: 75 6D 62 65 72 0D 0A 3B 20 6F 6E 20 74 68 65 20 umber..; on the
0001B0: 70 61 73 63 61 6C 20 6F 75 74 70 75 74 20 66 69 pascal output fi
0001C0: 6C 65 0D 0A 3B 0D 0A 70 72 74 68 6C 3A 0D 0A 09 le..;..prthl:...
0001D0: 6C 78 69 09 62 2C 2D 31 30 09 3B 64 69 76 69 73 lxi.b,-10.;divis
0001E0: 6F 72 0D 0A 73 65 74 75 70 3A 0D 0A 09 6C 78 69 or..setup:...lxi
0001F0: 09 64 2C 2D 31 09 3B 71 75 6F 74 69 65 6E 74 0D .d,-1.;quotient.
Size : 512 (Real : 512)
000000: 6F 20 63 6D 70 72 0D 0A 3B 20 72 65 74 75 72 6E o cmpr..; return
000010: 73 20 72 65 67 20 61 20 6E 6F 6E 20 7A 65 72 6F s reg a non zero
000020: 20 69 66 20 7A 65 72 6F 20 66 6C 61 67 20 69 73 if zero flag is
000030: 20 72 65 73 65 74 0D 0A 3B 0D 0A 63 6D 70 72 3A reset..;..cmpr:
000040: 0D 0A 09 70 6F 70 09 68 09 3B 63 6D 70 72 20 72 ...pop.h.;cmpr r
000050: 65 74 75 72 6E 20 61 64 64 72 65 73 73 20 74 6F eturn address to
000060: 20 72 65 67 20 68 6C 0D 0A 09 70 6F 70 09 64 09 reg hl...pop.d.
000070: 3B 28 74 6F 70 29 20 74 6F 20 72 65 67 20 64 65 ;(top) to reg de
000080: 0D 0A 09 78 74 68 6C 09 09 3B 28 74 6F 70 2D 31 ...xthl..;(top-1
000090: 29 20 74 6F 20 72 65 67 20 68 6C 2C 20 72 65 74 ) to reg hl, ret
0000A0: 75 72 6E 20 61 64 64 72 65 73 73 20 74 6F 20 73 urn address to s
0000B0: 74 61 63 6B 0D 0A 09 6D 6F 76 09 61 2C 64 09 3B tack...mov.a,d.;
0000C0: 63 6F 6D 70 61 72 65 20 73 69 67 6E 73 0D 0A 09 compare signs...
0000D0: 78 72 61 09 68 0D 0A 09 6A 70 09 73 61 6D 73 69 xra.h...jp.samsi
0000E0: 6E 09 3B 73 61 6D 65 20 73 69 67 6E 20 2D 20 75 n.;same sign - u
0000F0: 6E 73 69 67 6E 65 64 20 63 6F 6D 70 61 72 65 20 nsigned compare
000100: 6F 6B 0D 0A 09 6D 6F 76 09 61 2C 64 09 3B 6F 70 ok...mov.a,d.;op
000110: 70 6F 73 69 74 65 20 73 69 67 6E 0D 0A 09 72 61 posite sign...ra
000120: 6C 0D 0A 09 6D 76 69 09 61 2C 30 66 66 68 09 3B l...mvi.a,0ffh.;
000130: 72 65 74 75 72 6E 20 6E 6F 6E 7A 65 72 6F 20 76 return nonzero v
000140: 61 6C 75 65 0D 0A 09 72 65 74 0D 0A 73 61 6D 73 alue...ret..sams
000150: 69 6E 3A 0D 0A 09 6D 6F 76 09 61 2C 64 09 3B 63 in:...mov.a,d.;c
000160: 6F 6D 70 72 65 20 6D 73 62 27 73 0D 0A 09 73 75 ompre msb's...su
000170: 62 09 68 0D 0A 09 72 6E 7A 0D 0A 09 6D 6F 76 09 b.h...rnz...mov.
000180: 61 2C 65 0D 0A 09 73 75 62 09 6C 0D 0A 09 72 65 a,e...sub.l...re
000190: 74 0D 0A 3B 0D 0A 3B 20 67 65 74 73 20 67 65 74 t..;..; gets get
0001A0: 73 20 61 20 63 68 61 72 61 63 74 65 72 20 66 72 s a character fr
0001B0: 6F 6D 20 74 68 65 20 70 61 73 61 63 6C 20 69 6E om the pasacl in
0001C0: 70 75 74 20 66 69 6C 65 2E 20 20 69 74 0D 0A 3B put file. it..;
0001D0: 20 63 6F 6D 65 73 20 66 72 6F 6D 20 74 68 65 20 comes from the
0001E0: 63 6F 6E 73 6F 6C 65 20 69 66 20 63 69 66 6C 61 console if cifla
0001F0: 67 20 69 73 20 74 72 75 65 2C 20 65 6C 73 65 20 g is true, else
Size : 512 (Real : 512)
000000: 0A 73 75 62 31 30 3A 0D 0A 09 64 61 64 09 62 09 .sub10:...dad.b.
000010: 3B 64 69 76 69 64 65 20 62 79 20 63 6F 6E 74 69 ;divide by conti
000020: 6E 75 65 64 20 73 75 62 74 72 61 63 74 69 6F 6E nued subtraction
000030: 0D 0A 09 69 6E 78 09 64 09 3B 75 70 64 61 74 65 ...inx.d.;update
000040: 20 71 75 6F 74 69 65 6E 74 0D 0A 09 6A 63 09 73 quotient...jc.s
000050: 75 62 31 30 09 3B 6B 65 65 70 20 64 69 76 69 64 ub10.;keep divid
000060: 69 6E 67 20 74 69 6C 6C 20 75 6E 64 65 72 20 64 ing till under d
000070: 72 61 66 74 0D 0A 09 6D 76 69 09 61 2C 31 30 09 raft...mvi.a,10.
000080: 3B 67 65 74 20 72 65 6D 61 69 6E 64 65 72 20 74 ;get remainder t
000090: 6F 20 72 65 67 20 61 0D 0A 09 61 64 64 09 6C 0D o reg a...add.l.
0000A0: 0A 09 70 75 73 68 09 70 73 77 09 3B 73 61 76 65 ..push.psw.;save
0000B0: 20 6F 6E 20 73 74 61 63 6B 0D 0A 09 78 63 68 67 on stack...xchg
0000C0: 09 09 3B 71 75 6F 74 69 65 6E 74 20 74 6F 20 72 ..;quotient to r
0000D0: 65 67 20 68 6C 0D 0A 09 6D 6F 76 09 61 2C 68 09 eg hl...mov.a,h.
0000E0: 3B 61 6E 79 20 64 69 67 69 74 73 20 6C 65 66 74 ;any digits left
0000F0: 3F 0D 0A 09 6F 72 61 09 6C 0D 0A 09 63 6E 7A 09 ?...ora.l...cnz.
000100: 73 65 74 75 70 09 3B 79 65 73 20 2D 20 72 65 63 setup.;yes - rec
000110: 75 72 73 65 20 74 6F 20 70 72 69 6E 74 20 6E 65 urse to print ne
000120: 78 74 20 64 69 67 69 74 0D 0A 09 70 6F 70 09 70 xt digit...pop.p
000130: 73 77 09 3B 6E 6F 20 2D 20 67 65 74 20 64 69 67 sw.;no - get dig
000140: 69 74 73 20 74 6F 20 70 72 69 6E 74 20 66 72 6F its to print fro
000150: 6D 0D 0A 09 61 64 69 09 27 30 27 09 3B 73 74 61 m...adi.'0'.;sta
000160: 63 6B 20 69 6E 20 72 65 76 65 72 73 65 20 6F 72 ck in reverse or
000170: 64 65 72 20 26 20 63 6F 6E 76 65 72 74 0D 0A 09 der & convert...
000180: 6A 6D 70 09 70 75 74 64 09 3B 74 6F 20 61 73 63 jmp.putd.;to asc
000190: 69 69 20 61 6E 64 20 70 72 69 6E 74 20 27 65 6D ii and print 'em
0001A0: 0D 0A 3B 0D 0A 3B 20 63 73 70 33 20 70 6F 70 73 ..;..; csp3 pops
0001B0: 20 74 68 65 20 73 74 61 63 6B 20 61 6E 64 20 77 the stack and w
0001C0: 72 69 74 65 73 20 69 74 20 61 73 20 61 20 64 65 rites it as a de
0001D0: 63 69 6D 61 6C 20 6E 75 6D 62 65 72 20 74 6F 0D cimal number to.
0001E0: 0A 3B 20 74 68 65 20 70 61 73 63 61 6C 20 6F 75 .; the pascal ou
0001F0: 74 70 75 74 20 66 69 6C 65 0D 0A 3B 0D 0A 63 73 tput file..;..cs
Size : 512 (Real : 512)
000000: 66 72 6F 6D 20 64 69 73 6B 2E 0D 0A 3B 20 63 68 from disk...; ch
000010: 61 72 20 72 65 74 75 72 6E 65 64 20 69 6E 20 72 ar returned in r
000020: 65 67 20 61 2E 0D 0A 3B 0D 0A 67 65 74 73 3A 0D eg a...;..gets:.
000030: 0A 09 6C 64 61 09 63 69 66 6C 61 67 0D 0A 09 6F ..lda.ciflag...o
000040: 72 61 09 61 0D 0A 09 6A 6E 7A 09 63 69 09 3B 69 ra.a...jnz.ci.;i
000050: 6E 20 66 72 6F 6D 20 63 6F 6E 73 6F 6C 65 0D 0A n from console..
000060: 09 6C 64 61 09 69 64 65 76 0D 0A 09 6F 72 61 09 .lda.idev...ora.
000070: 61 0D 0A 09 6A 6E 7A 09 63 69 0D 0A 09 63 61 6C a...jnz.ci...cal
000080: 6C 09 69 64 69 73 6B 63 68 09 3B 69 6E 74 70 75 l.idiskch.;intpu
000090: 74 20 64 69 73 6B 20 63 68 61 72 61 63 74 65 72 t disk character
0000A0: 0D 0A 09 72 65 74 0D 0A 63 69 3A 0D 0A 09 6D 76 ...ret..ci:...mv
0000B0: 69 09 63 2C 31 0D 0A 09 63 61 6C 6C 09 62 64 6F i.c,1...call.bdo
0000C0: 73 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 20 69 64 s...ret..;..; id
0000D0: 69 73 6B 63 68 20 67 65 74 73 20 61 20 63 68 61 iskch gets a cha
0000E0: 72 61 63 74 65 72 20 66 72 6F 6D 20 74 68 65 20 racter from the
0000F0: 69 6E 70 75 74 20 64 69 73 6B 20 66 69 6C 65 20 input disk file
000100: 74 6F 20 72 65 67 20 61 0D 0A 3B 0D 0A 69 64 69 to reg a..;..idi
000110: 73 6B 63 68 3A 0D 0A 09 6C 68 6C 64 09 69 70 74 skch:...lhld.ipt
000120: 72 0D 0A 09 6D 6F 76 09 61 2C 6C 0D 0A 09 63 70 r...mov.a,l...cp
000130: 69 09 28 69 62 75 66 2B 38 30 68 29 20 61 6E 64 i.(ibuf+80h) and
000140: 20 30 66 66 68 0D 0A 09 6A 6E 7A 09 6E 6F 72 65 0ffh...jnz.nore
000150: 61 64 09 3B 64 6F 6E 74 20 68 61 76 65 20 74 6F ad.;dont have to
000160: 20 72 65 61 64 20 72 65 63 6F 72 64 0D 0A 09 6C read record...l
000170: 78 69 09 64 2C 69 62 75 66 0D 0A 09 6D 76 69 09 xi.d,ibuf...mvi.
000180: 63 2C 73 65 74 64 6D 61 0D 0A 09 63 61 6C 6C 09 c,setdma...call.
000190: 62 64 6F 73 0D 0A 09 6D 76 69 09 63 2C 72 65 61 bdos...mvi.c,rea
0001A0: 64 72 65 63 0D 0A 09 6C 78 69 09 64 2C 69 66 63 drec...lxi.d,ifc
0001B0: 62 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 0D 0A 09 b...call.bdos...
0001C0: 6F 72 61 09 61 0D 0A 09 6A 6E 7A 09 64 69 73 6B ora.a...jnz.disk
0001D0: 65 72 72 0D 0A 09 6C 78 69 09 64 2C 38 30 68 09 err...lxi.d,80h.
0001E0: 3B 72 65 73 74 6F 72 65 20 64 6D 61 20 61 64 64 ;restore dma add
0001F0: 72 65 73 73 0D 0A 09 6D 76 69 09 63 2C 73 65 74 ress...mvi.c,set
Size : 512 (Real : 512)
000000: 70 33 3A 0D 0A 09 73 74 61 09 6F 64 65 76 09 3B p3:...sta.odev.;
000010: 73 61 76 65 20 6F 75 74 70 75 74 20 64 65 76 69 save output devi
000020: 63 65 20 66 6F 72 20 70 75 74 64 0D 0A 09 70 6F ce for putd...po
000030: 70 09 68 09 3B 67 65 74 20 72 65 74 75 72 6E 20 p.h.;get return
000040: 61 64 64 72 65 73 73 20 74 6F 20 72 65 67 20 68 address to reg h
000050: 6C 0D 0A 09 78 74 68 6C 09 09 3B 28 74 6F 70 29 l...xthl..;(top)
000060: 20 74 6F 20 72 65 67 20 68 6C 2C 20 72 65 74 75 to reg hl, retu
000070: 72 6E 20 61 64 64 72 65 73 73 20 62 61 63 6B 20 rn address back
000080: 74 6F 20 73 74 61 63 6B 0D 0A 09 63 61 6C 6C 09 to stack...call.
000090: 70 72 74 68 6C 09 3B 70 72 69 6E 74 0D 0A 09 72 prthl.;print...r
0000A0: 65 74 0D 0A 3B 0D 0A 3B 20 63 73 70 38 20 70 72 et..;..; csp8 pr
0000B0: 69 6E 74 73 20 74 68 65 20 61 6C 66 61 20 76 61 ints the alfa va
0000C0: 72 69 61 62 6C 65 20 6F 6E 20 74 68 65 20 73 74 riable on the st
0000D0: 61 63 6B 0D 0A 3B 0D 0A 63 73 70 38 3A 0D 0A 09 ack..;..csp8:...
0000E0: 73 74 61 09 6F 64 65 76 09 3B 73 61 76 65 20 6F sta.odev.;save o
0000F0: 75 74 70 75 74 20 64 65 76 69 63 65 20 66 6F 72 utput device for
000100: 20 70 75 74 64 0D 0A 09 6D 76 69 09 64 2C 34 09 putd...mvi.d,4.
000110: 3B 6E 75 6D 62 65 72 20 6F 66 20 77 6F 72 64 73 ;number of words
000120: 20 74 6F 20 70 6F 70 0D 0A 63 73 70 38 31 3A 0D to pop..csp81:.
000130: 0A 09 70 6F 70 09 68 09 3B 74 6F 70 20 77 6F 72 ..pop.h.;top wor
000140: 64 20 66 72 6F 6D 20 73 74 61 63 6B 20 74 6F 20 d from stack to
000150: 68 6C 0D 0A 09 78 74 68 6C 0D 0A 09 70 75 73 68 hl...xthl...push
000160: 09 64 09 3B 73 61 76 65 20 77 6F 72 64 20 63 6F .d.;save word co
000170: 75 6E 74 0D 0A 09 70 75 73 68 09 68 09 3B 73 61 unt...push.h.;sa
000180: 76 65 20 6D 73 20 63 68 61 72 20 6F 66 20 77 6F ve ms char of wo
000190: 72 64 0D 0A 09 6D 6F 76 09 61 2C 6C 09 3B 70 72 rd...mov.a,l.;pr
0001A0: 69 6E 74 20 6C 73 20 63 68 61 72 20 6F 66 20 77 int ls char of w
0001B0: 6F 72 64 0D 0A 09 63 61 6C 6C 09 70 75 74 64 0D ord...call.putd.
0001C0: 0A 09 70 6F 70 09 68 09 3B 67 65 74 20 77 6F 72 ..pop.h.;get wor
0001D0: 64 20 61 67 61 69 6E 0D 0A 09 6D 6F 76 09 61 2C d again...mov.a,
0001E0: 68 09 3B 70 72 69 6E 74 20 6D 73 20 63 68 61 72 h.;print ms char
0001F0: 20 6F 66 20 77 6F 72 64 0D 0A 09 63 61 6C 6C 09 of word...call.
Size : 512 (Real : 512)
000000: 64 6D 61 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 0D dma...call.bdos.
000010: 0A 09 6C 78 69 09 68 2C 69 62 75 66 0D 0A 6E 6F ..lxi.h,ibuf..no
000020: 72 65 61 64 3A 0D 0A 09 6D 6F 76 09 61 2C 6D 09 read:...mov.a,m.
000030: 3B 67 65 74 20 63 68 61 72 61 63 74 65 72 0D 0A ;get character..
000040: 09 69 6E 78 09 68 0D 0A 09 73 68 6C 64 09 69 70 .inx.h...shld.ip
000050: 74 72 09 3B 75 70 64 61 74 65 20 70 6F 69 6E 74 tr.;update point
000060: 65 72 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 3B 20 70 er...ret..;..; p
000070: 75 74 64 20 70 75 74 73 20 61 20 63 68 61 72 61 utd puts a chara
000080: 63 74 65 72 20 74 6F 20 74 68 65 20 70 61 73 63 cter to the pasc
000090: 61 6C 20 6F 75 74 70 75 74 20 66 69 6C 65 2E 20 al output file.
0000A0: 20 69 74 20 67 6F 65 73 0D 0A 3B 20 74 6F 20 74 it goes..; to t
0000B0: 68 65 20 63 6F 6E 73 6F 6C 65 20 69 66 20 63 6F he console if co
0000C0: 66 6C 61 67 20 69 73 20 74 72 75 65 2C 20 65 6C flag is true, el
0000D0: 73 65 20 74 6F 20 74 68 65 20 64 69 73 6B 2E 0D se to the disk..
0000E0: 0A 3B 20 63 68 61 72 20 69 73 20 70 61 73 73 65 .; char is passe
0000F0: 64 20 69 6E 20 72 65 67 20 61 2E 0D 0A 3B 0D 0A d in reg a...;..
000100: 70 75 74 64 3A 0D 0A 09 6D 6F 76 09 63 2C 61 09 putd:...mov.c,a.
000110: 3B 73 61 76 65 20 63 68 61 72 20 77 68 69 6C 65 ;save char while
000120: 20 74 65 73 74 69 6E 67 20 63 6F 66 6C 61 67 0D testing coflag.
000130: 0A 09 6C 64 61 09 63 6F 66 6C 61 67 0D 0A 09 6F ..lda.coflag...o
000140: 72 61 09 61 0D 0A 09 6A 6E 7A 09 63 6F 09 3B 6F ra.a...jnz.co.;o
000150: 75 74 20 74 6F 20 63 6F 6E 73 6F 6C 65 0D 0A 09 ut to console...
000160: 6C 64 61 09 6F 64 65 76 09 3B 67 65 74 20 6F 75 lda.odev.;get ou
000170: 74 70 75 74 20 64 65 76 69 63 65 0D 0A 09 6F 72 tput device...or
000180: 61 09 61 0D 0A 09 6A 6E 7A 09 63 6F 09 3B 6F 6E a.a...jnz.co.;on
000190: 6C 79 20 64 65 76 69 63 65 20 7A 65 72 6F 20 63 ly device zero c
0001A0: 61 6E 20 67 6F 20 74 6F 20 64 69 73 6B 0D 0A 09 an go to disk...
0001B0: 6D 6F 76 09 61 2C 63 09 3B 67 65 74 20 63 68 61 mov.a,c.;get cha
0001C0: 72 61 63 74 65 72 20 62 61 63 6B 0D 0A 09 63 61 racter back...ca
0001D0: 6C 6C 09 6F 64 69 73 6B 63 68 09 3B 6F 75 74 20 ll.odiskch.;out
0001E0: 74 6F 20 64 69 73 6B 0D 0A 09 72 65 74 0D 0A 63 to disk...ret..c
0001F0: 6F 3A 0D 0A 09 6D 6F 76 09 65 2C 63 09 3B 67 65 o:...mov.e,c.;ge
Size : 512 (Real : 512)
000000: 70 75 74 64 0D 0A 09 70 6F 70 09 64 09 3B 67 65 putd...pop.d.;ge
000010: 74 20 77 6F 72 64 20 63 6F 75 6E 74 0D 0A 09 64 t word count...d
000020: 63 72 09 64 09 3B 64 6F 65 6E 20 61 6C 6C 20 34 cr.d.;doen all 4
000030: 20 77 6F 72 64 73 3F 0D 0A 09 6A 6E 7A 09 63 73 words?...jnz.cs
000040: 70 38 31 09 3B 6E 6F 70 65 0D 0A 09 72 65 74 0D p81.;nope...ret.
000050: 0A 3B 0D 0A 3B 20 63 73 70 39 20 72 65 74 75 72 .;..; csp9 retur
000060: 6E 73 20 63 6F 6E 74 72 6F 6C 20 74 6F 20 74 68 ns control to th
000070: 65 20 6F 70 65 72 61 74 69 6E 67 20 73 79 73 74 e operating syst
000080: 65 6D 20 28 62 6F 6F 74 73 29 0D 0A 3B 0D 0A 63 em (boots)..;..c
000090: 73 70 39 3A 0D 0A 09 6C 64 61 09 63 6F 66 6C 61 sp9:...lda.cofla
0000A0: 67 09 3B 77 61 73 20 6F 75 74 70 75 74 20 74 6F g.;was output to
0000B0: 20 63 6F 6E 73 6F 6C 65 3F 0D 0A 09 6F 72 61 09 console?...ora.
0000C0: 61 0D 0A 09 6A 6E 7A 09 30 09 3B 79 65 73 20 2D a...jnz.0.;yes -
0000D0: 20 6A 75 73 74 20 72 65 74 75 72 6E 20 74 6F 20 just return to
0000E0: 63 70 2F 6D 0D 0A 73 65 6F 66 3A 0D 0A 09 6D 76 cp/m..seof:...mv
0000F0: 69 09 61 2C 31 61 68 09 3B 73 65 6E 64 20 65 6F i.a,1ah.;send eo
000100: 66 20 63 68 61 72 61 63 74 65 72 0D 0A 09 63 61 f character...ca
000110: 6C 6C 09 6F 64 69 73 6B 63 68 0D 0A 09 6C 64 61 ll.odiskch...lda
000120: 09 6F 70 74 72 0D 0A 09 63 70 69 09 28 6F 62 75 .optr...cpi.(obu
000130: 66 2B 31 29 20 61 6E 64 20 30 66 66 68 0D 0A 09 f+1) and 0ffh...
000140: 6A 6E 7A 09 73 65 6F 66 09 3B 75 6E 74 69 6C 20 jnz.seof.;until
000150: 6C 61 73 74 20 72 65 63 6F 72 64 20 68 61 73 20 last record has
000160: 62 65 65 6E 20 77 72 69 74 74 65 6E 0D 0A 09 6C been written...l
000170: 78 69 09 64 2C 6F 66 63 62 0D 0A 09 6D 76 69 09 xi.d,ofcb...mvi.
000180: 63 2C 63 6C 6F 73 65 0D 0A 09 63 61 6C 6C 09 62 c,close...call.b
000190: 64 6F 73 09 3B 63 6C 6F 73 65 20 6F 75 74 70 75 dos.;close outpu
0001A0: 74 20 66 69 6C 65 0D 0A 09 69 6E 72 09 61 0D 0A t file...inr.a..
0001B0: 09 6A 7A 09 64 69 73 6B 65 72 72 0D 0A 09 6A 6D .jz.diskerr...jm
0001C0: 70 09 30 0D 0A 64 69 73 6B 65 72 72 3A 0D 0A 09 p.0..diskerr:...
0001D0: 6C 78 69 09 64 2C 65 72 72 6D 73 67 0D 0A 09 6D lxi.d,errmsg...m
0001E0: 76 69 09 63 2C 39 0D 0A 09 63 61 6C 6C 09 62 64 vi.c,9...call.bd
0001F0: 6F 73 0D 0A 09 6A 6D 70 09 30 0D 0A 65 72 72 6D os...jmp.0..errm
Size : 512 (Real : 512)
000000: 74 20 63 68 61 72 61 63 74 65 72 20 62 61 63 6B t character back
000010: 0D 0A 09 6D 76 69 09 63 2C 32 0D 0A 09 63 61 6C ...mvi.c,2...cal
000020: 6C 09 62 64 6F 73 0D 0A 09 72 65 74 0D 0A 3B 0D l.bdos...ret..;.
000030: 0A 3B 20 6F 64 69 73 6B 63 68 20 73 65 6E 64 73 .; odiskch sends
000040: 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 69 the character i
000050: 6E 20 72 65 67 20 74 6F 20 74 68 65 20 64 69 73 n reg to the dis
000060: 6B 20 6F 75 74 70 75 74 20 66 69 6C 65 0D 0A 3B k output file..;
000070: 0D 0A 6F 64 69 73 6B 63 68 3A 0D 0A 09 70 75 73 ..odiskch:...pus
000080: 68 09 70 73 77 0D 0A 09 6C 68 6C 64 09 6F 70 74 h.psw...lhld.opt
000090: 72 09 3B 73 65 65 20 69 66 20 70 61 73 74 20 65 r.;see if past e
0000A0: 6E 64 20 6F 66 20 6F 75 74 20 62 75 66 66 65 72 nd of out buffer
0000B0: 0D 0A 09 6D 6F 76 09 61 2C 6C 0D 0A 09 63 70 69 ...mov.a,l...cpi
0000C0: 09 28 6F 62 75 66 2B 38 30 68 29 20 61 6E 64 20 .(obuf+80h) and
0000D0: 30 66 66 68 0D 0A 09 6A 6E 7A 09 6E 6F 77 72 69 0ffh...jnz.nowri
0000E0: 74 65 09 3B 6E 6F 70 65 0D 0A 09 6C 78 69 09 64 te.;nope...lxi.d
0000F0: 2C 6F 62 75 66 0D 0A 09 6D 76 69 09 63 2C 73 65 ,obuf...mvi.c,se
000100: 74 64 6D 61 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 tdma...call.bdos
000110: 0D 0A 09 6C 78 69 09 64 2C 6F 66 63 62 0D 0A 09 ...lxi.d,ofcb...
000120: 6D 76 69 09 63 2C 77 72 69 74 65 72 65 63 0D 0A mvi.c,writerec..
000130: 09 63 61 6C 6C 09 62 64 6F 73 0D 0A 09 6F 72 61 .call.bdos...ora
000140: 09 61 0D 0A 09 6A 6E 7A 09 64 69 73 6B 65 72 72 .a...jnz.diskerr
000150: 0D 0A 09 6C 78 69 09 64 2C 38 30 68 09 3B 72 65 ...lxi.d,80h.;re
000160: 73 74 6F 72 65 20 64 6D 61 20 61 64 64 72 65 73 store dma addres
000170: 73 0D 0A 09 6D 76 69 09 63 2C 73 65 74 64 6D 61 s...mvi.c,setdma
000180: 0D 0A 09 63 61 6C 6C 09 62 64 6F 73 0D 0A 09 6C ...call.bdos...l
000190: 78 69 09 68 2C 6F 62 75 66 0D 0A 6E 6F 77 72 69 xi.h,obuf..nowri
0001A0: 74 65 3A 0D 0A 09 70 6F 70 09 70 73 77 0D 0A 09 te:...pop.psw...
0001B0: 6D 6F 76 09 6D 2C 61 09 3B 73 74 6F 72 65 20 69 mov.m,a.;store i
0001C0: 6E 20 62 75 66 66 65 72 0D 0A 09 69 6E 78 09 68 n buffer...inx.h
0001D0: 0D 0A 09 73 68 6C 64 09 6F 70 74 72 09 3B 73 61 ...shld.optr.;sa
0001E0: 76 65 20 6E 65 77 20 70 6F 69 6E 74 65 72 0D 0A ve new pointer..
0001F0: 09 72 65 74 0D 0A 3B 0D 0A 3B 20 63 73 70 30 20 .ret..;..; csp0
Size : 512 (Real : 512)
000000: 73 67 3A 09 64 62 09 27 64 69 73 6B 20 65 72 72 sg:.db.'disk err
000010: 6F 72 24 27 0D 0A 3B 0D 0A 3B 20 73 70 61 6C 69 or$'..;..; spali
000020: 74 20 74 61 6B 65 73 20 74 68 65 20 65 69 67 68 t takes the eigh
000030: 74 20 62 79 74 65 73 20 66 6F 6C 6C 6F 77 69 6E t bytes followin
000040: 67 20 74 68 65 20 63 61 6C 6C 20 74 6F 20 69 74 g the call to it
000050: 0D 0A 3B 20 61 6E 64 20 70 75 73 68 65 73 20 74 ..; and pushes t
000060: 68 65 6D 20 69 6E 74 6F 20 74 68 65 20 73 74 61 hem into the sta
000070: 63 6B 0D 0A 3B 0D 0A 73 70 61 6C 69 74 3A 0D 0A ck..;..spalit:..
000080: 09 70 6F 70 09 68 09 3B 72 65 74 75 72 6E 20 61 .pop.h.;return a
000090: 64 64 72 65 73 73 20 74 6F 20 72 65 67 20 68 6C ddress to reg hl
0000A0: 0D 0A 09 6D 76 69 09 61 2C 34 09 3B 65 69 67 68 ...mvi.a,4.;eigh
0000B0: 74 20 62 79 74 65 73 20 69 73 20 66 6F 75 72 20 t bytes is four
0000C0: 77 6F 72 64 73 0D 0A 6D 6F 72 61 6C 69 74 3A 0D words..moralit:.
0000D0: 0A 09 6D 6F 76 09 64 2C 6D 09 3B 67 65 74 20 61 ..mov.d,m.;get a
0000E0: 20 77 6F 72 64 20 66 72 6F 6D 20 63 6F 64 65 20 word from code
0000F0: 61 6E 64 20 2E 20 2E 20 2E 0D 0A 09 69 6E 78 09 and . . ....inx.
000100: 68 0D 0A 09 6D 6F 76 09 65 2C 6D 0D 0A 09 69 6E h...mov.e,m...in
000110: 78 09 68 0D 0A 09 70 75 73 68 09 64 09 3B 70 75 x.h...push.d.;pu
000120: 73 68 20 69 74 20 69 6E 74 6F 20 74 68 65 20 73 sh it into the s
000130: 74 61 63 6B 0D 0A 09 64 63 72 09 61 09 3B 64 6F tack...dcr.a.;do
000140: 6E 65 20 61 6C 6C 20 77 6F 72 64 73 3F 0D 0A 09 ne all words?...
000150: 6A 6E 7A 09 6D 6F 72 61 6C 69 74 09 3B 6E 6F 0D jnz.moralit.;no.
000160: 0A 09 70 63 68 6C 09 09 3B 72 65 74 75 72 6E 20 ..pchl..;return
000170: 74 6F 20 62 79 74 65 20 66 6F 6C 6C 6F 77 69 6E to byte followin
000180: 67 20 64 77 27 73 0D 0A 3B 0D 0A 3B 20 73 70 61 g dw's..;..; spa
000190: 6C 6F 64 20 65 6E 74 65 72 20 77 69 74 68 20 61 lod enter with a
0001A0: 20 70 6F 69 6E 74 65 72 20 74 6F 20 6C 73 62 79 pointer to lsby
0001B0: 74 65 20 28 66 69 72 73 74 20 63 68 61 72 61 63 te (first charac
0001C0: 74 65 72 29 0D 0A 3B 20 6F 66 20 61 6C 66 61 20 ter)..; of alfa
0001D0: 76 61 72 69 61 62 6C 65 20 61 6E 64 20 69 74 0D variable and it.
0001E0: 0A 3B 20 70 75 73 68 65 73 20 74 68 65 20 76 61 .; pushes the va
0001F0: 72 69 61 62 6C 65 20 69 6E 74 6F 20 74 68 65 20 riable into the
Size : 512 (Real : 512)
000000: 0D 0A 6D 6F 72 64 69 76 3A 0D 0A 09 69 6E 78 09 ..mordiv:...inx.
000010: 62 0D 0A 09 64 61 64 09 64 0D 0A 09 6A 63 09 6D b...dad.d...jc.m
000020: 6F 72 64 69 76 0D 0A 09 6D 6F 76 09 68 2C 62 0D ordiv...mov.h,b.
000030: 0A 09 6D 6F 76 09 6C 2C 63 0D 0A 09 70 6F 70 09 ..mov.l,c...pop.
000040: 62 0D 0A 09 78 74 68 6C 0D 0A 09 70 63 68 6C 0D b...xthl...pchl.
000050: 0A 3B 0D 0A 3B 20 63 61 6C 6C 20 68 65 72 65 20 .;..; call here
000060: 77 69 74 68 20 61 64 72 20 74 6F 20 63 61 6C 6C with adr to call
000070: 20 69 6E 20 72 65 67 20 64 65 0D 0A 3B 0D 0A 73 in reg de..;..s
000080: 70 63 61 6C 30 3A 0D 0A 09 6C 68 6C 64 09 62 72 pcal0:...lhld.br
000090: 0D 0A 09 70 75 73 68 09 68 09 3B 73 74 61 74 69 ...push.h.;stati
0000A0: 63 20 6C 69 6E 6B 0D 0A 09 70 75 73 68 09 68 09 c link...push.h.
0000B0: 3B 64 79 6E 61 6D 69 63 20 6C 69 6E 6B 0D 0A 09 ;dynamic link...
0000C0: 6C 78 69 09 68 2C 30 0D 0A 09 64 61 64 09 73 70 lxi.h,0...dad.sp
0000D0: 0D 0A 09 73 68 6C 64 09 62 72 0D 0A 09 78 63 68 ...shld.br...xch
0000E0: 67 09 09 3B 70 63 68 6C 20 74 6F 20 61 64 64 72 g..;pchl to addr
0000F0: 65 73 73 20 74 6F 20 63 61 6C 6C 0D 0A 09 70 63 ess to call...pc
000100: 68 6C 0D 0A 3B 0D 0A 3B 20 63 61 6C 6C 20 68 65 hl..;..; call he
000110: 72 65 20 77 69 74 68 20 6C 65 76 65 6C 20 64 69 re with level di
000120: 66 66 65 72 65 6E 63 65 20 69 6E 20 72 65 67 20 fference in reg
000130: 61 20 61 6E 64 0D 0A 3B 20 61 64 64 72 65 73 73 a and..; address
000140: 20 74 6F 20 63 61 6C 6C 20 69 6E 20 72 65 67 20 to call in reg
000150: 64 65 0D 0A 3B 0D 0A 73 70 63 61 6C 3A 0D 0A 09 de..;..spcal:...
000160: 6C 68 6C 64 09 62 72 09 3B 64 79 6E 61 6D 69 63 lhld.br.;dynamic
000170: 20 6C 69 6E 6B 0D 0A 09 70 75 73 68 09 68 0D 0A link...push.h..
000180: 09 70 75 73 68 09 64 09 3B 73 61 76 65 20 63 61 .push.d.;save ca
000190: 6C 6C 20 61 64 64 72 65 73 73 0D 0A 09 63 61 6C ll address...cal
0001A0: 6C 09 66 6F 6C 6C 6F 77 09 3B 67 65 74 20 73 74 l.follow.;get st
0001B0: 61 74 69 63 20 6C 69 6E 6B 0D 0A 09 78 74 68 6C atic link...xthl
0001C0: 09 09 3B 73 74 61 74 69 63 20 6C 69 6E 6B 20 74 ..;static link t
0001D0: 6F 20 73 74 61 63 6B 2C 20 63 61 6C 6C 20 61 64 o stack, call ad
0001E0: 64 72 65 73 73 73 20 74 6F 20 68 6C 0D 0A 09 78 dresss to hl...x
0001F0: 63 68 67 09 09 3B 63 61 6C 6C 20 61 64 64 72 65 chg..;call addre
Size : 512 (Real : 512)
000000: 73 74 61 63 6B 0D 0A 3B 0D 0A 73 70 61 6C 6F 64 stack..;..spalod
000010: 3A 0D 0A 09 6C 78 69 09 62 2C 37 09 3B 62 69 61 :...lxi.b,7.;bia
000020: 73 20 68 6C 20 74 6F 20 70 6F 69 6E 74 20 74 6F s hl to point to
000030: 20 6D 73 62 79 74 65 0D 0A 09 64 61 64 09 62 0D msbyte...dad.b.
000040: 0A 09 70 6F 70 09 62 09 3B 67 65 74 20 72 65 74 ..pop.b.;get ret
000050: 75 72 6E 20 61 64 64 72 65 73 73 20 74 6F 20 72 urn address to r
000060: 65 67 20 62 0D 0A 09 6D 76 69 09 61 2C 34 09 3B eg b...mvi.a,4.;
000070: 66 6F 75 72 20 77 6F 72 64 73 20 70 65 72 20 61 four words per a
000080: 6C 66 61 0D 0A 6D 6F 72 61 6C 6F 64 3A 0D 0A 09 lfa..moralod:...
000090: 6D 6F 76 09 64 2C 6D 09 3B 67 65 74 20 61 20 77 mov.d,m.;get a w
0000A0: 6F 72 64 20 66 72 6F 6D 20 74 68 65 20 61 6C 66 ord from the alf
0000B0: 61 0D 0A 09 64 63 78 09 68 0D 0A 09 6D 6F 76 09 a...dcx.h...mov.
0000C0: 65 2C 6D 0D 0A 09 64 63 78 09 68 0D 0A 09 70 75 e,m...dcx.h...pu
0000D0: 73 68 09 64 09 3B 61 6E 64 20 70 75 73 68 20 69 sh.d.;and push i
0000E0: 74 20 69 6E 74 6F 20 74 68 65 20 73 74 61 63 6B t into the stack
0000F0: 0D 0A 09 64 63 72 09 61 09 3B 64 6F 6E 65 20 61 ...dcr.a.;done a
000100: 6C 6C 20 77 6F 72 64 73 20 79 65 74 3F 0D 0A 09 ll words yet?...
000110: 6A 6E 7A 09 6D 6F 72 61 6C 6F 64 09 3B 6E 6F 0D jnz.moralod.;no.
000120: 0A 09 6D 6F 76 09 68 2C 62 09 3B 70 63 68 6C 20 ..mov.h,b.;pchl
000130: 74 6F 20 72 65 74 75 72 6E 20 61 64 64 72 65 73 to return addres
000140: 73 0D 0A 09 6D 6F 76 09 6C 2C 63 0D 0A 09 70 63 s...mov.l,c...pc
000150: 68 6C 0D 0A 3B 0D 0A 3B 20 73 70 61 73 74 6F 20 hl..;..; spasto
000160: 65 6E 74 65 72 20 77 69 74 68 20 72 65 67 20 68 enter with reg h
000170: 6C 20 70 6F 69 6E 74 69 6E 67 20 74 6F 20 6C 73 l pointing to ls
000180: 62 79 74 65 20 28 66 69 72 73 74 20 63 68 61 72 byte (first char
000190: 61 63 74 65 72 29 0D 0A 3B 20 6F 66 20 61 6E 20 acter)..; of an
0001A0: 61 6C 66 61 20 76 61 72 69 61 62 6C 65 2C 0D 0A alfa variable,..
0001B0: 3B 20 61 6E 20 61 6C 66 61 20 69 73 20 70 6F 70 ; an alfa is pop
0001C0: 70 65 64 20 66 72 6F 6D 20 74 68 65 20 73 74 61 ped from the sta
0001D0: 63 6B 20 61 6E 64 20 73 74 6F 72 65 64 20 61 74 ck and stored at
0001E0: 20 72 65 67 20 68 6C 0D 0A 3B 0D 0A 73 70 61 73 reg hl..;..spas
0001F0: 74 6F 3A 0D 0A 09 70 6F 70 09 62 09 3B 67 65 74 to:...pop.b.;get
Size : 512 (Real : 512)
000000: 73 73 20 74 6F 20 72 65 67 20 64 65 0D 0A 09 6C ss to reg de...l
000010: 78 69 09 68 2C 30 0D 0A 09 64 61 64 09 73 70 0D xi.h,0...dad.sp.
000020: 0A 09 73 68 6C 64 09 62 72 0D 0A 09 78 63 68 67 ..shld.br...xchg
000030: 09 09 3B 70 63 68 6C 20 74 6F 20 63 61 6C 6C 20 ..;pchl to call
000040: 61 64 64 72 65 73 73 0D 0A 09 70 63 68 6C 0D 0A address...pchl..
000050: 3B 0D 0A 3B 20 6A 75 6D 70 20 68 65 72 65 20 74 ;..; jump here t
000060: 6F 20 72 65 74 75 72 6E 20 66 72 6F 6D 20 61 20 o return from a
000070: 70 72 6F 63 65 64 75 72 65 0D 0A 3B 0D 0A 73 70 procedure..;..sp
000080: 72 65 74 3A 0D 0A 09 6C 68 6C 64 09 62 72 09 3B ret:...lhld.br.;
000090: 67 65 74 20 6F 6C 64 20 73 70 20 62 61 63 6B 0D get old sp back.
0000A0: 0A 09 73 70 68 6C 0D 0A 09 70 6F 70 09 70 73 77 ..sphl...pop.psw
0000B0: 09 3B 70 6F 70 20 61 6E 64 20 69 67 6E 6F 72 65 .;pop and ignore
0000C0: 20 73 74 61 74 69 63 20 6C 69 6E 6B 0D 0A 09 70 static link...p
0000D0: 6F 70 09 68 09 3B 64 79 6E 61 6D 69 63 20 6C 69 op.h.;dynamic li
0000E0: 6E 6B 0D 0A 09 73 68 6C 64 09 62 72 09 3B 72 65 nk...shld.br.;re
0000F0: 73 74 6F 72 65 20 62 61 73 65 20 72 65 67 69 73 store base regis
000100: 74 65 72 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 69 66 ter...ret..;..if
000110: 63 62 09 64 62 09 30 2C 30 2C 30 2C 30 2C 30 2C cb.db.0,0,0,0,0,
000120: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 0,0,0,0,0,0,0,0,
000130: 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64 62 0,0,0,0,0,0...db
000140: 09 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 .0,0,0,0,0,0,0,0
000150: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 ,0,0,0,0,0,0,0,0
000160: 20 3B 61 20 66 65 77 20 74 6F 6F 20 6D 61 6E 79 ;a few too many
000170: 0D 0A 6F 66 63 62 09 64 62 09 30 2C 30 2C 30 2C ..ofcb.db.0,0,0,
000180: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 0,0,0,0,0,0,0,0,
000190: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0,0,0,0,0,0,0,0.
0001A0: 0A 09 64 62 09 30 2C 30 2C 30 2C 30 2C 30 2C 30 ..db.0,0,0,0,0,0
0001B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 ,0,0,0,0,0,0,0,0
0001C0: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 63 69 66 6C ,0,0,0,0,0..cifl
0001D0: 61 67 09 64 62 09 30 0D 0A 63 6F 66 6C 61 67 09 ag.db.0..coflag.
0001E0: 64 62 09 30 0D 0A 6F 64 65 76 09 64 62 09 30 0D db.0..odev.db.0.
0001F0: 0A 69 64 65 76 09 64 62 09 30 0D 0A 3B 0D 0A 69 .idev.db.0..;..i
Size : 512 (Real : 512)
000000: 20 72 65 74 75 72 6E 20 61 64 64 72 65 73 73 0D return address.
000010: 0A 09 6D 76 69 09 61 2C 34 09 3B 66 6F 75 72 20 ..mvi.a,4.;four
000020: 77 6F 72 64 73 20 70 65 72 20 61 6C 66 61 0D 0A words per alfa..
000030: 6D 6F 72 61 73 74 6F 3A 0D 0A 09 70 6F 70 09 64 morasto:...pop.d
000040: 09 3B 67 65 74 20 61 20 77 6F 72 64 20 66 72 6F .;get a word fro
000050: 6D 20 74 68 65 20 73 74 61 63 6B 0D 0A 09 6D 6F m the stack...mo
000060: 76 09 6D 2C 65 09 3B 61 6E 64 20 73 74 6F 72 65 v.m,e.;and store
000070: 20 69 74 20 69 6E 74 6F 20 61 6C 66 61 0D 0A 09 it into alfa...
000080: 69 6E 78 09 68 0D 0A 09 6D 6F 76 09 6D 2C 64 0D inx.h...mov.m,d.
000090: 0A 09 69 6E 78 09 68 0D 0A 09 64 63 72 09 61 09 ..inx.h...dcr.a.
0000A0: 3B 64 6F 6E 65 20 61 6C 6C 20 77 6F 72 64 73 20 ;done all words
0000B0: 79 65 74 0D 0A 09 6A 6E 7A 09 6D 6F 72 61 73 74 yet...jnz.morast
0000C0: 6F 09 3B 6E 6F 0D 0A 09 6D 6F 76 09 68 2C 62 09 o.;no...mov.h,b.
0000D0: 3B 70 63 68 6C 20 74 6F 20 72 65 74 75 72 6E 20 ;pchl to return
0000E0: 61 64 64 72 65 73 73 0D 0A 09 6D 6F 76 09 6C 2C address...mov.l,
0000F0: 63 0D 0A 09 70 63 68 6C 0D 0A 3B 0D 0A 3B 20 61 c...pchl..;..; a
000100: 63 6D 70 72 20 63 6F 6D 70 61 72 65 73 20 74 77 cmpr compares tw
000110: 6F 20 61 6C 66 61 20 76 61 72 69 61 62 6C 65 73 o alfa variables
000120: 20 6F 6E 20 74 68 65 20 73 74 61 63 6B 2C 20 73 on the stack, s
000130: 65 74 73 20 66 6C 61 67 73 0D 0A 3B 20 6C 69 6B ets flags..; lik
000140: 65 20 28 74 6F 70 29 2D 28 74 6F 70 2D 31 29 0D e (top)-(top-1).
000150: 0A 3B 0D 0A 61 63 6D 70 72 3A 0D 0A 09 6C 78 69 .;..acmpr:...lxi
000160: 09 68 2C 31 38 09 3B 63 6F 6D 70 75 74 65 20 73 .h,18.;compute s
000170: 74 61 63 6B 20 70 6F 69 6E 74 65 72 20 61 66 74 tack pointer aft
000180: 65 72 0D 0A 09 64 61 64 09 73 70 09 3B 63 6F 6D er...dad.sp.;com
000190: 70 61 72 65 20 69 73 20 64 6F 6E 65 0D 0A 09 70 pare is done...p
0001A0: 75 73 68 09 68 09 3B 73 61 76 65 20 69 74 0D 0A ush.h.;save it..
0001B0: 09 6C 78 69 09 64 2C 2D 38 09 3B 63 6F 6D 70 75 .lxi.d,-8.;compu
0001C0: 74 65 20 61 64 64 72 65 73 73 20 6F 66 20 74 6F te address of to
0001D0: 70 2D 31 0D 0A 09 64 61 64 09 64 0D 0A 09 78 63 p-1...dad.d...xc
0001E0: 68 67 09 09 3B 74 6F 70 2D 31 20 70 74 72 20 74 hg..;top-1 ptr t
0001F0: 6F 20 72 65 67 20 64 65 0D 0A 09 64 61 64 09 64 o reg de...dad.d
Size : 512 (Real : 512)
000000: 70 74 72 09 64 73 09 32 0D 0A 6F 70 74 72 09 64 ptr.ds.2..optr.d
000010: 73 09 32 0D 0A 69 62 75 66 09 64 73 09 31 32 38 s.2..ibuf.ds.128
000020: 0D 0A 6F 62 75 66 09 64 73 09 31 32 38 0D 0A 3B ..obuf.ds.128..;
000030: 0D 0A 09 6F 72 67 09 28 28 24 2D 31 29 20 61 6E ...org.(($-1) an
000040: 64 20 30 66 66 30 30 68 29 20 2B 20 31 30 30 68 d 0ff00h) + 100h
000050: 0D 0A 6F 63 6F 64 65 3A 09 09 09 3B 73 74 61 72 ..ocode:...;star
000060: 74 20 6F 66 20 63 6F 6D 70 69 6C 65 64 20 63 6F t of compiled co
000070: 64 65 0D 0A 3B 0D 0A 09 65 6E 64 09 72 6F 6D 6F de..;...end.romo
000080: 72 67 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A rg..............
000090: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 74 65 72 0D 0A 09 72 65 74 0D 0A 3B 0D 0A 69 66 ter...ret..;..if
000110: 63 62 09 64 62 09 30 2C 30 2C 30 2C 30 2C 30 2C cb.db.0,0,0,0,0,
000120: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 0,0,0,0,0,0,0,0,
000130: 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 09 64 62 0,0,0,0,0,0...db
000140: 09 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 .0,0,0,0,0,0,0,0
000150: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 ,0,0,0,0,0,0,0,0
000160: 20 3B 61 20 66 65 77 20 74 6F 6F 20 6D 61 6E 79 ;a few too many
000170: 0D 0A 6F 66 63 62 09 64 62 09 30 2C 30 2C 30 2C ..ofcb.db.0,0,0,
000180: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 0,0,0,0,0,0,0,0,
000190: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0,0,0,0,0,0,0,0.
0001A0: 0A 09 64 62 09 30 2C 30 2C 30 2C 30 2C 30 2C 30 ..db.0,0,0,0,0,0
0001B0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 ,0,0,0,0,0,0,0,0
0001C0: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 63 69 66 6C ,0,0,0,0,0..cifl
0001D0: 61 67 09 64 62 09 30 0D 0A 63 6F 66 6C 61 67 09 ag.db.0..coflag.
0001E0: 64 62 09 30 0D 0A 6F 64 65 76 09 64 62 09 30 0D db.0..odev.db.0.
0001F0: 0A 69 64 65 76 09 64 62 09 30 0D 0A 3B 0D 0A 69 .idev.db.0..;..i
Size : 512 (Real : 512)
000000: 09 3B 74 6F 70 20 70 74 72 20 74 6F 20 72 65 67 .;top ptr to reg
000010: 20 68 6C 0D 0A 09 78 63 68 67 09 09 3B 74 6F 70 hl...xchg..;top
000020: 20 70 74 72 20 74 6F 20 72 65 67 20 64 65 2C 20 ptr to reg de,
000030: 74 6F 70 2D 31 20 74 6F 20 68 6C 0D 0A 09 6D 76 top-1 to hl...mv
000040: 69 09 63 2C 38 09 3B 63 68 61 72 73 20 70 65 72 i.c,8.;chars per
000050: 20 61 6C 66 61 0D 0A 6D 6F 72 61 63 6D 70 3A 0D alfa..moracmp:.
000060: 0A 09 6C 64 61 78 09 64 0D 0A 09 63 6D 70 09 6D ..ldax.d...cmp.m
000070: 0D 0A 09 6A 6E 7A 09 65 78 69 74 61 63 6D 09 3B ...jnz.exitacm.;
000080: 6D 69 73 63 6F 6D 70 61 72 65 20 2D 20 72 65 74 miscompare - ret
000090: 75 72 6E 20 77 69 74 68 20 66 6C 61 67 73 0D 0A urn with flags..
0000A0: 09 69 6E 78 09 68 0D 0A 09 69 6E 78 09 64 0D 0A .inx.h...inx.d..
0000B0: 09 64 63 72 09 63 0D 0A 09 6A 6E 7A 09 6D 6F 72 .dcr.c...jnz.mor
0000C0: 61 63 6D 70 09 3B 6E 6F 74 20 64 6F 6E 65 20 63 acmp.;not done c
0000D0: 6F 6D 70 61 72 69 6E 67 0D 0A 65 78 69 74 61 63 omparing..exitac
0000E0: 6D 3A 0D 0A 09 70 6F 70 09 68 09 3B 6E 65 77 20 m:...pop.h.;new
0000F0: 73 74 61 63 6B 20 70 6F 69 6E 74 65 72 20 74 6F stack pointer to
000100: 20 72 65 67 20 68 6C 0D 0A 09 70 6F 70 09 64 09 reg hl...pop.d.
000110: 3B 72 65 74 75 72 6E 20 61 64 64 72 65 73 73 20 ;return address
000120: 74 6F 20 72 65 67 20 64 65 0D 0A 09 73 70 68 6C to reg de...sphl
000130: 0D 0A 09 78 63 68 67 0D 0A 09 70 63 68 6C 0D 0A ...xchg...pchl..
000140: 3B 0D 0A 3B 20 6F 70 72 33 20 73 75 62 74 72 61 ;..; opr3 subtra
000150: 63 74 73 20 28 74 6F 70 29 20 66 72 6F 6D 20 28 cts (top) from (
000160: 74 6F 70 2D 31 29 0D 0A 3B 0D 0A 6F 70 72 33 3A top-1)..;..opr3:
000170: 0D 0A 09 70 6F 70 09 68 09 3B 72 65 74 75 72 6E ...pop.h.;return
000180: 20 61 64 64 72 65 73 73 20 74 6F 20 72 65 67 20 address to reg
000190: 68 6C 0D 0A 09 70 6F 70 09 64 09 3B 28 74 6F 70 hl...pop.d.;(top
0001A0: 29 20 74 6F 20 72 65 67 20 64 65 0D 0A 09 78 74 ) to reg de...xt
0001B0: 68 6C 09 09 3B 70 75 74 20 62 61 63 6B 20 72 65 hl..;put back re
0001C0: 74 75 72 6E 20 61 64 64 72 65 73 73 2C 20 28 74 turn address, (t
0001D0: 6F 70 2D 31 29 20 74 6F 20 68 6C 0D 0A 09 78 72 op-1) to hl...xr
0001E0: 61 09 61 09 3B 6E 65 67 61 74 65 20 72 65 67 20 a.a.;negate reg
0001F0: 64 65 2C 20 68 6F 6C 64 69 6E 67 20 28 74 6F 70 de, holding (top
Size : 512 (Real : 512)
000000: C3 5A 01 C3 F3 01 C3 FF 01 C3 A3 02 C3 AE 02 C3 .Z..............
000010: 0F 01 C3 D3 02 C3 15 01 C3 18 01 C3 1B 01 C3 1E ................
000020: 01 C3 DC 02 C3 F4 02 C3 2D 03 C3 3A 03 C3 4D 03 ........-..:..M.
000030: C3 5C 03 C3 7A 03 C3 86 03 C3 9C 03 C3 3C 01 C3 .\..z........<..
000040: 3F 01 C3 B3 03 C3 C1 03 C3 D4 03 00 00 52 54 50 ?............RTP
000050: 20 52 45 56 20 30 30 2E 38 52 2A 06 00 2E 00 F9 REV 00.8R*.....
000060: 22 4B 01 CD 6C 01 CD B2 01 C3 00 06 3A 5D 00 06 "K..l.......:]..
000070: FF FE 20 CA 7C 01 FE 3F CA 7C 01 04 78 32 27 04 .. .|..?.|..x2'.
000080: 21 DE 03 11 5C 00 CD A7 01 3A 6D 00 06 FF FE 20 !...\....:m....
000090: CA 99 01 FE 3F CA 99 01 04 78 32 28 04 21 01 04 ....?....x2(.!..
0000A0: 11 6C 00 CD A7 01 C9 06 0C 1A 77 13 23 05 C2 A9 .l........w.#...
0000B0: 01 C9 3A 27 04 B7 C2 CF 01 AF 32 FE 03 11 DE 03 ..:'......2.....
0000C0: 0E 0F CD 05 00 3C CA 17 03 21 AF 04 22 2B 04 3A .....<...!.."+.:
0000D0: 28 04 B7 C0 11 01 04 0E 13 CD 05 00 11 01 04 0E (...............
0000E0: 16 CD 05 00 3C CA 17 03 AF 32 21 04 21 AF 04 22 ....<....2!.!.."
0000F0: 2D 04 C9 2A 4B 01 5E 23 56 EB 3D C2 F6 01 C9 E1 -..*K.^#V.=.....
000100: D1 E3 7A AC F2 0C 02 7A 17 3E FF C9 7A 94 C0 7B ..z....z.>..z..{
000110: 95 C9 3A 27 04 B7 C2 24 02 3A 2A 04 B7 C2 24 02 ..:'...$.:*...$.
000120: CD 2A 02 C9 0E 01 CD 05 00 C9 2A 2B 04 7D FE AF .*........*+.}..
000130: C2 52 02 11 2F 04 0E 1A CD 05 00 0E 14 11 DE 03 .R../...........
000140: CD 05 00 B7 C2 17 03 11 80 00 0E 1A CD 05 00 21 ...............!
000150: 2F 04 7E 23 22 2B 04 C9 4F 3A 28 04 B7 C2 6C 02 /.~#"+..O:(...l.
000160: 3A 29 04 B7 C2 6C 02 79 CD 73 02 C9 59 0E 02 CD :)...l.y.s..Y...
000170: 05 00 C9 F5 2A 2D 04 7D FE 2F C2 9C 02 11 AF 04 ....*-.}./......
000180: 0E 1A CD 05 00 11 01 04 0E 15 CD 05 00 B7 C2 17 ................
000190: 03 11 80 00 0E 1A CD 05 00 21 AF 04 F1 77 23 22 .........!...w#"
0001A0: 2D 04 C9 32 2A 04 CD 12 02 6F 26 00 E3 E9 32 29 -..2*....o&...2)
0001B0: 04 E1 E3 7D CD 58 02 C9 01 F6 FF 11 FF FF 09 13 ...}.X..........
0001C0: DA BE 02 3E 0A 85 F5 EB 7C B5 C4 BB 02 F1 C6 30 ...>....|......0
0001D0: C3 58 02 32 29 04 E1 E3 CD B8 02 C9 32 29 04 16 .X.2).......2)..
0001E0: 04 E1 E3 D5 E5 7D CD 58 02 E1 7C CD 58 02 D1 15 .....}.X..|.X...
0001F0: C2 E1 02 C9 3A 28 04 B7 C2 00 00 3E 1A CD 73 02 ....:(.....>..s.
Size : 512 (Real : 512)
000000: 29 0D 0A 09 73 75 62 09 65 0D 0A 09 6D 6F 76 09 )...sub.e...mov.
000010: 65 2C 61 0D 0A 09 73 62 62 09 64 0D 0A 09 73 75 e,a...sbb.d...su
000020: 62 09 65 0D 0A 09 6D 6F 76 09 64 2C 61 0D 0A 09 b.e...mov.d,a...
000030: 64 61 64 09 64 09 3B 61 64 64 20 2D 28 74 6F 70 dad.d.;add -(top
000040: 29 20 74 6F 20 28 74 6F 70 2D 31 29 0D 0A 09 78 ) to (top-1)...x
000050: 74 68 6C 09 09 3B 6C 65 61 76 65 20 72 65 73 74 thl..;leave rest
000060: 75 6C 74 20 6F 6E 20 73 74 61 63 6B 20 61 6E 64 ult on stack and
000070: 20 72 65 74 75 72 6E 0D 0A 09 70 63 68 6C 09 09 return...pchl..
000080: 3B 61 64 64 72 65 73 73 20 69 6E 20 72 65 67 20 ;address in reg
000090: 68 6C 0D 0A 3B 0D 0A 3B 20 6F 70 72 34 20 6D 75 hl..;..; opr4 mu
0000A0: 6C 74 69 70 6C 79 20 28 74 6F 70 29 20 62 79 20 ltiply (top) by
0000B0: 28 74 6F 70 2D 31 29 0D 0A 3B 0D 0A 6F 70 72 34 (top-1)..;..opr4
0000C0: 3A 0D 0A 09 70 6F 70 09 68 0D 0A 09 70 6F 70 09 :...pop.h...pop.
0000D0: 64 0D 0A 09 78 74 68 6C 0D 0A 09 70 75 73 68 09 d...xthl...push.
0000E0: 62 0D 0A 09 6D 6F 76 09 62 2C 68 0D 0A 09 6D 6F b...mov.b,h...mo
0000F0: 76 09 63 2C 6C 0D 0A 09 6C 78 69 09 68 2C 30 0D v.c,l...lxi.h,0.
000100: 0A 6D 75 6C 6D 6F 72 3A 0D 0A 09 6D 6F 76 09 61 .mulmor:...mov.a
000110: 2C 63 0D 0A 09 6F 72 61 09 62 0D 0A 09 6A 7A 09 ,c...ora.b...jz.
000120: 6D 75 6C 64 6F 6E 65 0D 0A 09 64 63 78 09 62 0D muldone...dcx.b.
000130: 0A 09 64 61 64 09 64 0D 0A 09 6A 6D 70 09 6D 75 ..dad.d...jmp.mu
000140: 6C 6D 6F 72 0D 0A 6D 75 6C 64 6F 6E 65 3A 0D 0A lmor..muldone:..
000150: 09 70 6F 70 09 62 0D 0A 09 78 74 68 6C 0D 0A 09 .pop.b...xthl...
000160: 70 63 68 6C 0D 0A 3B 0D 0A 3B 20 6F 70 72 35 20 pchl..;..; opr5
000170: 64 69 76 69 64 65 73 20 28 74 6F 70 2D 31 29 20 divides (top-1)
000180: 62 79 20 28 74 6F 70 29 0D 0A 3B 0D 0A 6F 70 72 by (top)..;..opr
000190: 35 3A 0D 0A 09 70 6F 70 09 68 0D 0A 09 70 6F 70 5:...pop.h...pop
0001A0: 09 64 0D 0A 09 78 74 68 6C 0D 0A 09 70 75 73 68 .d...xthl...push
0001B0: 09 62 0D 0A 09 78 72 61 09 61 09 3B 6E 65 67 61 .b...xra.a.;nega
0001C0: 74 65 20 72 65 67 20 64 65 0D 0A 09 73 75 62 09 te reg de...sub.
0001D0: 65 0D 0A 09 6D 6F 76 09 65 2C 61 0D 0A 09 73 62 e...mov.e,a...sb
0001E0: 62 09 64 0D 0A 09 73 75 62 09 65 0D 0A 09 6D 6F b.d...sub.e...mo
0001F0: 76 09 64 2C 61 0D 0A 09 6C 78 69 09 62 2C 2D 31 v.d,a...lxi.b,-1
Size : 512 (Real : 512)
000000: 3A 2D 04 FE B0 C2 FB 02 11 01 04 0E 10 CD 05 00 :-..............
000010: 3C CA 17 03 C3 00 00 11 22 03 0E 09 CD 05 00 C3 <.......".......
000020: 00 00 64 69 73 6B 20 65 72 72 6F 72 24 E1 3E 04 ..disk error$.>.
000030: 56 23 5E 23 D5 3D C2 30 03 E9 01 07 00 09 C1 3E V#^#.=.0.......>
000040: 04 56 2B 5E 2B D5 3D C2 41 03 60 69 E9 C1 3E 04 .V+^+.=.A.`i..>.
000050: D1 73 23 72 23 3D C2 50 03 60 69 E9 21 12 00 39 .s#r#=.P.`i.!..9
000060: E5 11 F8 FF 19 EB 19 EB 0E 08 1A BE C2 75 03 23 .............u.#
000070: 13 0D C2 6A 03 E1 D1 F9 EB E9 E1 D1 E3 AF 93 5F ...j..........._
000080: 9A 93 57 19 E3 E9 E1 D1 E3 C5 44 4D 21 00 00 79 ..W.......DM!..y
000090: B0 CA 99 03 0B 19 C3 8F 03 C1 E3 E9 E1 D1 E3 C5 ................
0000A0: AF 93 5F 9A 93 57 01 FF FF 03 19 DA A9 03 60 69 .._..W........`i
0000B0: C1 E3 E9 2A 4B 01 E5 E5 21 00 00 39 22 4B 01 EB ...*K...!..9"K..
0000C0: E9 2A 4B 01 E5 D5 CD F6 01 E3 EB 21 00 00 39 22 .*K........!..9"
0000D0: 4B 01 EB E9 2A 4B 01 F9 F1 E1 22 4B 01 C9 00 00 K...*K...."K....
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 28 2A 0D 0A 20 20 54 49 54 4C 45 09 09 70 61 73 (*.. TITLE..pas
000010: 63 61 6C 20 63 6F 6D 70 69 6C 65 72 20 54 45 53 cal compiler TES
000020: 54 45 52 20 70 72 6F 67 72 61 6D 0D 0A 20 20 46 TER program.. F
000030: 49 4C 45 4E 41 4D 45 09 54 45 53 54 45 52 2E 50 ILENAME.TESTER.P
000040: 41 53 0D 0A 20 20 41 55 54 48 4F 52 09 52 6F 62 AS.. AUTHOR.Rob
000050: 65 72 74 20 41 2E 20 56 61 6E 20 56 61 6C 7A 61 ert A. Van Valza
000060: 68 20 20 20 30 31 2F 30 38 2F 38 30 0D 0A 20 20 h 01/08/80..
000070: 4C 41 53 54 20 52 45 56 49 53 45 44 09 52 2E 20 LAST REVISED.R.
000080: 41 2E 20 56 2E 20 20 20 20 30 31 2F 31 35 2F 38 A. V. 01/15/8
000090: 30 0D 0A 20 20 52 45 41 53 4F 4E 09 61 64 64 65 0.. REASON.adde
0000A0: 64 20 72 65 70 65 61 74 20 61 6E 64 20 77 68 69 d repeat and whi
0000B0: 6C 65 20 74 65 73 74 69 6E 67 0D 0A 2A 29 0D 0A le testing..*)..
0000C0: 0D 0A 28 2A 20 63 68 65 63 6B 20 74 68 61 74 20 ..(* check that
0000D0: 61 6C 6C 20 6C 65 67 61 6C 20 64 65 63 6C 61 72 all legal declar
0000E0: 61 74 6F 6E 20 73 79 6E 74 61 78 20 69 73 20 61 aton syntax is a
0000F0: 63 63 65 70 74 65 64 20 2A 29 20 0D 0A 28 2A 20 ccepted *) ..(*
000100: 73 65 6D 61 6E 74 69 63 73 20 63 61 6E 20 62 65 semantics can be
000110: 20 63 68 65 63 6B 65 64 20 6F 6E 6C 79 20 62 79 checked only by
000120: 20 69 6E 73 70 65 63 74 69 6F 6E 20 6F 66 20 74 inspection of t
000130: 68 65 0D 0A 20 20 20 67 65 6E 65 72 61 74 65 64 he.. generated
000140: 20 63 6F 64 65 20 2A 29 0D 0A 0D 0A 63 6F 6E 73 code *)....cons
000150: 74 0D 0A 09 63 31 09 3D 20 27 78 27 3B 0D 0A 09 t...c1.= 'x';...
000160: 63 32 09 3D 20 31 33 3B 0D 0A 09 63 33 09 3D 20 c2.= 13;...c3.=
000170: 63 32 3B 0D 0A 09 63 34 09 3D 20 63 33 2B 31 33 c2;...c4.= c3+13
000180: 3B 0D 0A 09 63 35 09 3D 20 63 32 2B 63 33 2B 63 ;...c5.= c2+c3+c
000190: 34 3B 0D 0A 09 61 6D 61 78 09 3D 20 35 31 33 3B 4;...amax.= 513;
0001A0: 20 28 2A 20 6D 61 78 20 61 72 72 61 79 20 73 75 (* max array su
0001B0: 62 73 72 69 70 74 20 74 65 73 74 65 64 20 2A 29 bsript tested *)
0001C0: 0D 0A 09 0D 0A 74 79 70 65 0D 0A 09 74 31 09 3D .....type...t1.=
0001D0: 20 63 31 2E 2E 63 32 3B 0D 0A 09 74 32 09 3D 20 c1..c2;...t2.=
0001E0: 30 20 2E 2E 63 32 3B 0D 0A 09 74 33 09 3D 20 63 0 ..c2;...t3.= c
0001F0: 31 2E 2E 39 39 3B 0D 0A 09 74 34 09 3D 20 74 33 1..99;...t4.= t3
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 3B 0D 0A 09 74 35 09 3D 20 28 7A 65 72 6F 2C 6F ;...t5.= (zero,o
000010: 6E 65 2C 74 77 6F 29 3B 0D 0A 09 74 36 09 3D 20 ne,two);...t6.=
000020: 30 2E 2E 39 39 3B 0D 0A 09 74 37 09 3D 20 61 72 0..99;...t7.= ar
000030: 72 61 79 20 5B 74 31 5D 20 6F 66 20 74 36 3B 0D ray [t1] of t6;.
000040: 0A 09 77 61 74 79 70 09 3D 20 61 72 72 61 79 20 ..watyp.= array
000050: 5B 30 2E 2E 61 6D 61 78 5D 20 6F 66 20 77 6F 72 [0..amax] of wor
000060: 64 3B 0D 0A 09 61 61 74 79 70 09 3D 20 61 72 72 d;...aatyp.= arr
000070: 61 79 20 5B 30 2E 2E 61 6D 61 78 5D 20 6F 66 20 ay [0..amax] of
000080: 61 6C 66 61 3B 0D 0A 0D 0A 76 61 72 0D 0A 09 76 alfa;....var...v
000090: 31 09 3A 20 74 31 3B 0D 0A 09 76 32 2C 76 33 09 1.: t1;...v2,v3.
0000A0: 3A 20 74 32 3B 0D 0A 09 76 34 09 3A 20 74 36 3B : t2;...v4.: t6;
0000B0: 0D 0A 09 67 69 09 3A 20 77 6F 72 64 3B 20 28 2A ...gi.: word; (*
0000C0: 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 global variable
0000D0: 73 20 75 73 65 64 20 62 65 6C 6F 77 20 2A 29 0D s used below *).
0000E0: 0A 09 67 6A 09 3A 20 77 6F 72 64 3B 0D 0A 09 67 ..gj.: word;...g
0000F0: 77 61 09 3A 20 77 61 74 79 70 3B 20 28 2A 20 67 wa.: watyp; (* g
000100: 6C 6F 62 61 6C 20 77 6F 72 64 20 61 72 72 61 79 lobal word array
000110: 20 2A 29 0D 0A 09 67 61 61 09 3A 20 61 61 74 79 *)...gaa.: aaty
000120: 70 3B 20 28 2A 20 67 6C 6F 62 61 6C 20 61 6C 66 p; (* global alf
000130: 61 20 61 72 72 61 79 20 2A 29 0D 0A 09 61 70 61 a array *)...apa
000140: 74 72 09 3A 20 61 6C 66 61 3B 09 20 28 2A 20 61 tr.: alfa;. (* a
000150: 6C 66 61 20 74 65 73 74 20 70 61 74 74 65 72 6E lfa test pattern
000160: 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 *)....procedure
000170: 20 66 6F 72 74 65 73 74 3B 0D 0A 0D 0A 09 76 61 fortest;.....va
000180: 72 09 69 20 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 r.i : word;.....
000190: 70 72 6F 63 65 64 75 72 65 20 63 72 6C 66 3B 20 procedure crlf;
0001A0: 28 2A 20 74 65 73 74 20 6E 65 73 74 65 64 20 70 (* test nested p
0001B0: 72 6F 63 65 64 75 72 65 73 20 2A 29 0D 0A 09 09 rocedures *)....
0001C0: 62 65 67 69 6E 20 70 75 74 23 31 28 31 33 2C 31 begin put#1(13,1
0001D0: 30 29 20 65 6E 64 3B 0D 0A 0D 0A 09 62 65 67 69 0) end;.....begi
0001E0: 6E 0D 0A 09 70 75 74 23 31 28 27 66 6F 72 20 74 n...put#1('for t
0001F0: 65 73 74 27 2C 31 33 2C 31 30 29 3B 0D 0A 09 70 est',13,10);...p
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 75 74 23 31 28 27 6C 63 6C 20 31 2D 31 30 27 29 ut#1('lcl 1-10')
000010: 3B 0D 0A 09 66 6F 72 20 69 3A 3D 31 20 74 6F 20 ;...for i:=1 to
000020: 31 30 20 64 6F 20 70 75 74 23 31 28 27 20 27 2C 10 do put#1(' ',
000030: 69 23 29 3B 0D 0A 09 63 72 6C 66 3B 0D 0A 09 70 i#);...crlf;...p
000040: 75 74 23 31 28 27 67 62 6C 20 31 2D 31 30 27 29 ut#1('gbl 1-10')
000050: 3B 0D 0A 09 66 6F 72 20 67 69 3A 3D 31 20 74 6F ;...for gi:=1 to
000060: 20 31 30 20 64 6F 20 70 75 74 23 31 28 27 20 27 10 do put#1(' '
000070: 2C 67 69 23 29 3B 0D 0A 09 63 72 6C 66 3B 0D 0A ,gi#);...crlf;..
000080: 09 70 75 74 23 31 28 27 6C 63 6C 20 31 30 2D 31 .put#1('lcl 10-1
000090: 27 29 3B 0D 0A 09 66 6F 72 20 69 3A 3D 31 30 20 ');...for i:=10
0000A0: 64 6F 77 6E 74 6F 20 31 20 64 6F 20 70 75 74 23 downto 1 do put#
0000B0: 31 28 27 20 27 2C 69 23 29 3B 0D 0A 09 63 72 6C 1(' ',i#);...crl
0000C0: 66 3B 0D 0A 09 65 6E 64 3B 20 28 2A 20 70 72 6F f;...end; (* pro
0000D0: 63 65 64 75 72 65 20 66 6F 72 74 65 73 74 20 2A cedure fortest *
0000E0: 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 72 )....procedure r
0000F0: 65 70 74 74 65 73 74 3B 0D 0A 0D 0A 09 76 61 72 epttest;.....var
000100: 09 69 20 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 62 .i : word;.....b
000110: 65 67 69 6E 0D 0A 09 70 75 74 23 31 28 27 72 70 egin...put#1('rp
000120: 74 20 31 2D 31 30 27 29 3B 0D 0A 09 69 3A 3D 31 t 1-10');...i:=1
000130: 3B 0D 0A 09 72 65 70 65 61 74 0D 0A 09 09 70 75 ;...repeat....pu
000140: 74 23 31 28 27 20 27 2C 69 23 29 3B 20 69 3A 3D t#1(' ',i#); i:=
000150: 69 2B 31 0D 0A 09 75 6E 74 69 6C 20 69 3E 31 30 i+1...until i>10
000160: 3B 0D 0A 09 70 75 74 23 31 28 31 33 2C 31 30 29 ;...put#1(13,10)
000170: 0D 0A 09 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 ...end; (* proce
000180: 64 75 72 65 20 72 65 70 74 74 65 73 74 20 2A 29 dure repttest *)
000190: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 77 68 ....procedure wh
0001A0: 69 6C 74 65 73 74 3B 0D 0A 0D 0A 09 76 61 72 09 iltest;.....var.
0001B0: 69 20 3A 20 77 6F 72 64 3B 0D 0A 0D 0A 09 62 65 i : word;.....be
0001C0: 67 69 6E 0D 0A 09 70 75 74 23 31 28 27 77 68 6C gin...put#1('whl
0001D0: 20 31 2D 31 30 27 29 3B 0D 0A 09 69 3A 3D 31 3B 1-10');...i:=1;
0001E0: 0D 0A 09 77 68 69 6C 65 20 69 3C 3D 31 30 20 64 ...while i<=10 d
0001F0: 6F 20 62 65 67 69 6E 0D 0A 09 09 70 75 74 23 31 o begin....put#1
Size : 512 (Real : 512)
000000: 76 61 72 20 6E 2C 6B 20 3A 20 69 6E 74 65 67 65 var n,k : intege
000010: 72 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 73 r;....function s
000020: 74 69 72 6C 69 6E 67 28 6E 2C 6B 20 3A 20 69 6E tirling(n,k : in
000030: 74 65 67 65 72 29 3B 0D 0A 0D 0A 20 20 20 62 65 teger);.... be
000040: 67 69 6E 0D 0A 20 20 20 69 66 20 28 6B 3D 31 29 gin.. if (k=1)
000050: 20 6F 72 20 28 6E 3D 6B 29 0D 0A 20 20 20 20 20 or (n=k)..
000060: 20 74 68 65 6E 20 73 74 69 72 6C 69 6E 67 3A 3D then stirling:=
000070: 31 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 73 74 1.. else st
000080: 69 72 6C 69 6E 67 3A 3D 73 74 69 72 6C 69 6E 67 irling:=stirling
000090: 28 6E 2D 31 2C 6B 2D 31 29 2B 6B 2A 73 74 69 72 (n-1,k-1)+k*stir
0000A0: 6C 69 6E 67 28 6E 2D 31 2C 6B 29 0D 0A 20 20 20 ling(n-1,k)..
0000B0: 65 6E 64 3B 20 28 2A 20 66 75 6E 63 74 69 6F 6E end; (* function
0000C0: 20 73 74 69 72 6C 69 6E 67 20 2A 29 0D 0A 0D 0A stirling *)....
0000D0: 62 65 67 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 begin (* main li
0000E0: 6E 65 20 2A 29 0D 0A 70 75 74 23 31 28 39 2C 39 ne *)..put#1(9,9
0000F0: 2C 39 2C 39 2C 39 2C 27 6B 27 2C 31 33 2C 31 30 ,9,9,9,'k',13,10
000100: 29 3B 20 28 2A 20 70 72 69 6E 74 20 63 65 6E 74 ); (* print cent
000110: 65 72 65 64 20 22 6B 22 20 2A 29 0D 0A 0D 0A 70 ered "k" *)....p
000120: 75 74 23 31 28 27 6E 27 2C 20 39 29 3B 20 20 20 ut#1('n', 9);
000130: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 70 72 (* pr
000140: 69 6E 74 20 63 6F 6C 75 6D 6E 20 68 65 61 64 69 int column headi
000150: 6E 67 73 20 2A 29 0D 0A 66 6F 72 20 6E 3A 3D 31 ngs *)..for n:=1
000160: 20 74 6F 20 31 30 20 64 6F 0D 0A 20 20 20 70 75 to 10 do.. pu
000170: 74 23 31 28 6E 23 2C 39 29 3B 0D 0A 70 75 74 23 t#1(n#,9);..put#
000180: 31 28 31 33 2C 20 31 30 29 3B 0D 0A 70 75 74 23 1(13, 10);..put#
000190: 31 28 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C 39 2C 1(9,'=',9,'=',9,
0001A0: 27 3D 27 2C 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C '=',9,'=',9,'=',
0001B0: 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C 39 2C 27 3D 9,'=',9,'=',9,'=
0001C0: 27 2C 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C 31 33 ',9,'=',9,'=',13
0001D0: 2C 31 30 29 3B 0D 0A 0D 0A 66 6F 72 20 6E 3A 3D ,10);....for n:=
0001E0: 31 20 74 6F 20 31 30 20 64 6F 20 62 65 67 69 6E 1 to 10 do begin
0001F0: 20 20 20 20 20 28 2A 20 70 72 69 6E 74 20 62 6F (* print bo
Size : 512 (Real : 512)
000000: 28 27 20 27 2C 69 23 29 3B 20 69 3A 3D 69 2B 31 (' ',i#); i:=i+1
000010: 20 65 6E 64 3B 0D 0A 09 70 75 74 23 31 28 31 33 end;...put#1(13
000020: 2C 31 30 29 0D 0A 09 65 6E 64 3B 20 28 2A 20 70 ,10)...end; (* p
000030: 72 6F 63 65 64 75 72 65 20 77 68 69 6C 74 65 73 rocedure whiltes
000040: 74 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 t *)....procedur
000050: 65 20 73 69 6D 70 76 61 72 3B 20 28 2A 20 74 65 e simpvar; (* te
000060: 73 74 20 73 69 6D 70 6C 65 20 76 61 72 69 61 62 st simple variab
000070: 6C 65 73 20 2A 29 0D 0A 0D 0A 09 76 61 72 09 69 les *).....var.i
000080: 2C 6A 20 3A 20 77 6F 72 64 3B 0D 0A 09 09 61 2C ,j : word;....a,
000090: 62 20 3A 20 61 6C 66 61 3B 0D 0A 0D 0A 09 62 65 b : alfa;.....be
0000A0: 67 69 6E 0D 0A 09 70 75 74 23 31 28 27 74 65 73 gin...put#1('tes
0000B0: 74 69 6E 67 20 27 2C 27 73 69 6D 70 76 61 72 73 ting ','simpvars
0000C0: 27 2C 31 33 2C 31 30 29 3B 0D 0A 09 69 3A 3D 35 ',13,10);...i:=5
0000D0: 31 33 3B 6A 3A 3D 31 30 32 37 3B 20 28 2A 20 61 13;j:=1027; (* a
0000E0: 64 6A 61 63 65 6E 74 20 76 61 72 73 20 75 6E 69 djacent vars uni
0000F0: 71 75 65 3F 20 2A 29 0D 0A 09 69 66 20 69 3C 3E que? *)...if i<>
000100: 35 31 33 20 74 68 65 6E 20 70 75 74 23 31 28 27 513 then put#1('
000110: 6E 6F 70 65 20 20 69 3D 27 2C 69 23 29 3B 0D 0A nope i=',i#);..
000120: 09 69 66 20 6A 3C 3E 31 30 32 37 20 74 68 65 6E .if j<>1027 then
000130: 20 70 75 74 23 31 28 27 6E 6F 70 65 20 20 6A 3D put#1('nope j=
000140: 27 2C 6A 23 29 3B 0D 0A 09 61 3A 3D 27 61 62 63 ',j#);...a:='abc
000150: 64 65 66 67 68 27 3B 0D 0A 09 69 66 20 61 3C 3E defgh';...if a<>
000160: 27 61 62 63 64 65 66 67 68 27 20 74 68 65 6E 20 'abcdefgh' then
000170: 70 75 74 23 31 28 27 61 6C 66 61 63 6D 70 72 27 put#1('alfacmpr'
000180: 29 3B 0D 0A 09 28 2A 20 74 65 73 74 20 73 69 6D );...(* test sim
000190: 70 6C 65 20 61 6C 66 61 20 73 75 62 73 63 72 69 ple alfa subscri
0001A0: 70 74 69 6E 67 20 68 61 63 6B 20 2A 29 0D 0A 09 pting hack *)...
0001B0: 61 5B 32 5D 3A 3D 27 35 27 2B 27 36 27 2A 32 35 a[2]:='5'+'6'*25
0001C0: 36 3B 20 28 2A 20 61 20 73 68 6F 75 6C 64 20 3D 6; (* a should =
0001D0: 20 27 61 62 63 64 35 36 67 68 27 20 2A 29 0D 0A 'abcd56gh' *)..
0001E0: 09 69 66 20 28 61 3C 3E 27 61 62 63 64 35 36 67 .if (a<>'abcd56g
0001F0: 68 27 29 20 6F 72 20 28 61 5B 32 5D 3C 3E 27 35 h') or (a[2]<>'5
Size : 512 (Real : 512)
000000: 64 79 20 6F 66 20 74 61 62 6C 65 20 2A 29 0D 0A dy of table *)..
000010: 20 20 20 70 75 74 23 31 28 6E 23 2C 20 27 3A 27 put#1(n#, ':'
000020: 2C 20 39 29 3B 0D 0A 20 20 20 66 6F 72 20 6B 3A , 9);.. for k:
000030: 3D 31 20 74 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 =1 to n do..
000040: 20 20 70 75 74 23 31 28 73 74 69 72 6C 69 6E 67 put#1(stirling
000050: 28 6E 2C 6B 29 23 2C 20 39 29 3B 0D 0A 20 20 20 (n,k)#, 9);..
000060: 70 75 74 23 31 28 31 33 2C 20 31 30 29 20 28 2A put#1(13, 10) (*
000070: 20 73 74 61 72 74 20 6E 65 77 20 6C 69 6E 65 20 start new line
000080: 2A 29 0D 0A 20 20 20 65 6E 64 0D 0A 65 6E 64 2E *).. end..end.
000090: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 29 3B 20 28 2A 20 70 72 69 6E 74 20 63 65 6E 74 ); (* print cent
000110: 65 72 65 64 20 22 6B 22 20 2A 29 0D 0A 0D 0A 70 ered "k" *)....p
000120: 75 74 23 31 28 27 6E 27 2C 20 39 29 3B 20 20 20 ut#1('n', 9);
000130: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 70 72 (* pr
000140: 69 6E 74 20 63 6F 6C 75 6D 6E 20 68 65 61 64 69 int column headi
000150: 6E 67 73 20 2A 29 0D 0A 66 6F 72 20 6E 3A 3D 31 ngs *)..for n:=1
000160: 20 74 6F 20 31 30 20 64 6F 0D 0A 20 20 20 70 75 to 10 do.. pu
000170: 74 23 31 28 6E 23 2C 39 29 3B 0D 0A 70 75 74 23 t#1(n#,9);..put#
000180: 31 28 31 33 2C 20 31 30 29 3B 0D 0A 70 75 74 23 1(13, 10);..put#
000190: 31 28 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C 39 2C 1(9,'=',9,'=',9,
0001A0: 27 3D 27 2C 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C '=',9,'=',9,'=',
0001B0: 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C 39 2C 27 3D 9,'=',9,'=',9,'=
0001C0: 27 2C 39 2C 27 3D 27 2C 39 2C 27 3D 27 2C 31 33 ',9,'=',9,'=',13
0001D0: 2C 31 30 29 3B 0D 0A 0D 0A 66 6F 72 20 6E 3A 3D ,10);....for n:=
0001E0: 31 20 74 6F 20 31 30 20 64 6F 20 62 65 67 69 6E 1 to 10 do begin
0001F0: 20 20 20 20 20 28 2A 20 70 72 69 6E 74 20 62 6F (* print bo
Size : 512 (Real : 512)
000000: 27 2B 27 36 27 2A 32 35 36 29 20 74 68 65 6E 0D '+'6'*256) then.
000010: 0A 09 09 70 75 74 23 31 28 27 61 6C 66 61 20 73 ...put#1('alfa s
000020: 75 62 27 29 0D 0A 09 65 6E 64 3B 20 28 2A 20 73 ub')...end; (* s
000030: 69 6D 70 76 61 72 20 2A 29 0D 0A 0D 0A 70 72 6F impvar *)....pro
000040: 63 65 64 75 72 65 20 61 72 79 74 65 73 74 3B 20 cedure arytest;
000050: 28 2A 20 74 65 73 74 20 61 72 72 61 79 20 76 61 (* test array va
000060: 72 69 61 62 6C 65 73 20 2A 29 0D 0A 0D 0A 09 76 riables *).....v
000070: 61 72 09 69 3A 20 77 6F 72 64 3B 20 28 2A 20 69 ar.i: word; (* i
000080: 6E 64 65 78 20 74 6F 20 74 65 73 74 20 61 72 72 ndex to test arr
000090: 61 79 73 20 2A 29 0D 0A 0D 0A 09 28 2A 20 72 65 ays *).....(* re
0000A0: 74 75 72 6E 20 77 6F 72 64 20 61 72 72 61 79 20 turn word array
0000B0: 74 65 73 74 20 64 61 74 61 20 62 61 73 65 64 20 test data based
0000C0: 6F 6E 20 73 75 62 73 63 72 69 70 74 20 2A 29 0D on subscript *).
0000D0: 0A 09 66 75 6E 63 74 69 6F 6E 20 70 61 74 74 65 ..function patte
0000E0: 72 6E 28 69 3A 20 77 6F 72 64 29 3B 0D 0A 0D 0A rn(i: word);....
0000F0: 09 09 62 65 67 69 6E 20 70 61 74 74 65 72 6E 3A ..begin pattern:
000100: 3D 61 6D 61 78 2D 69 2B 31 33 20 65 6E 64 3B 0D =amax-i+13 end;.
000110: 0A 0D 0A 09 70 72 6F 63 65 64 75 72 65 20 77 6F ....procedure wo
000120: 72 64 61 72 79 3B 20 28 2A 20 74 65 73 74 20 77 rdary; (* test w
000130: 6F 72 64 20 61 72 72 61 79 73 20 2A 29 0D 0A 0D ord arrays *)...
000140: 0A 09 09 76 61 72 09 6C 77 61 3A 20 77 61 74 79 ...var.lwa: waty
000150: 70 3B 20 28 2A 20 6C 6F 63 61 6C 20 77 6F 72 64 p; (* local word
000160: 20 61 72 72 61 79 20 2A 29 0D 0A 0D 0A 09 09 62 array *)......b
000170: 65 67 69 6E 0D 0A 09 09 70 75 74 23 31 28 27 6C egin....put#1('l
000180: 77 6F 72 64 61 72 79 27 29 3B 0D 0A 09 09 28 2A wordary');....(*
000190: 20 66 69 6C 6C 20 61 72 72 61 79 20 77 69 74 68 fill array with
0001A0: 20 74 65 73 74 20 70 61 74 74 65 72 6E 20 2A 29 test pattern *)
0001B0: 0D 0A 09 09 66 6F 72 20 69 3A 3D 30 20 74 6F 20 ....for i:=0 to
0001C0: 61 6D 61 78 20 64 6F 20 6C 77 61 5B 69 5D 3A 3D amax do lwa[i]:=
0001D0: 70 61 74 74 65 72 6E 28 69 29 3B 0D 0A 09 09 66 pattern(i);....f
0001E0: 6F 72 20 69 3A 3D 30 20 74 6F 20 61 6D 61 78 20 or i:=0 to amax
0001F0: 64 6F 0D 0A 09 09 20 20 69 66 20 6C 77 61 5B 69 do.... if lwa[i
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 5D 3C 3E 70 61 74 74 65 72 6E 28 69 29 20 74 68 ]<>pattern(i) th
000010: 65 6E 0D 0A 09 09 20 20 20 20 70 75 74 23 31 28 en.... put#1(
000020: 27 6C 77 61 20 66 61 69 6C 27 2C 69 23 29 3B 0D 'lwa fail',i#);.
000030: 0A 09 09 66 6F 72 20 69 3A 3D 30 20 74 6F 20 61 ...for i:=0 to a
000040: 6D 61 78 20 64 6F 20 67 77 61 5B 69 5D 3A 3D 70 max do gwa[i]:=p
000050: 61 74 74 65 72 6E 28 69 29 3B 0D 0A 09 09 66 6F attern(i);....fo
000060: 72 20 69 3A 3D 30 20 74 6F 20 61 6D 61 78 20 64 r i:=0 to amax d
000070: 6F 0D 0A 09 09 20 20 69 66 20 67 77 61 5B 69 5D o.... if gwa[i]
000080: 3C 3E 70 61 74 74 65 72 6E 28 69 29 20 74 68 65 <>pattern(i) the
000090: 6E 0D 0A 09 09 20 20 20 20 70 75 74 23 31 28 27 n.... put#1('
0000A0: 67 77 61 20 66 61 69 6C 20 27 2C 69 23 29 3B 0D gwa fail ',i#);.
0000B0: 0A 09 09 70 75 74 23 31 28 31 33 2C 31 30 29 0D ...put#1(13,10).
0000C0: 0A 09 09 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 ...end; (* proce
0000D0: 64 75 72 65 20 77 6F 72 64 61 72 79 20 2A 29 0D dure wordary *).
0000E0: 0A 0D 0A 09 70 72 6F 63 65 64 75 72 65 20 61 6C ....procedure al
0000F0: 66 61 61 72 79 3B 20 28 2A 20 74 65 73 74 20 61 faary; (* test a
000100: 6C 66 61 20 61 72 72 61 79 73 20 2A 29 0D 0A 0D lfa arrays *)...
000110: 0A 09 09 76 61 72 09 6C 61 61 3A 20 61 61 74 79 ...var.laa: aaty
000120: 70 3B 0D 0A 09 09 09 61 3A 20 61 6C 66 61 3B 0D p;.....a: alfa;.
000130: 0A 0D 0A 09 09 28 2A 20 72 65 74 75 72 6E 20 61 .....(* return a
000140: 6C 66 61 20 61 72 72 61 79 20 74 65 73 74 20 64 lfa array test d
000150: 61 74 61 20 62 61 73 65 64 20 69 6E 20 61 70 61 ata based in apa
000160: 74 72 20 2A 29 0D 0A 09 09 70 72 6F 63 65 64 75 tr *)....procedu
000170: 72 65 20 61 6C 66 61 70 61 74 72 28 69 3A 20 77 re alfapatr(i: w
000180: 6F 72 64 29 3B 0D 0A 0D 0A 09 09 09 62 65 67 69 ord);.......begi
000190: 6E 0D 0A 09 09 09 61 70 61 74 72 5B 33 5D 3A 3D n.....apatr[3]:=
0001A0: 69 2A 33 3B 0D 0A 09 09 09 61 70 61 74 72 5B 32 i*3;.....apatr[2
0001B0: 5D 3A 3D 69 2A 35 3B 0D 0A 09 09 09 61 70 61 74 ]:=i*5;.....apat
0001C0: 72 5B 31 5D 3A 3D 69 2A 37 3B 0D 0A 09 09 09 61 r[1]:=i*7;.....a
0001D0: 70 61 74 72 5B 30 5D 3A 3D 69 2A 39 0D 0A 09 09 patr[0]:=i*9....
0001E0: 09 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 .end; (* procedu
0001F0: 72 65 20 61 6C 66 61 70 61 74 72 20 2A 29 0D 0A re alfapatr *)..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 0D 0A 09 09 62 65 67 69 6E 20 28 2A 20 70 72 6F ....begin (* pro
000010: 63 65 64 75 72 65 20 61 6C 66 61 61 72 79 20 2A cedure alfaary *
000020: 29 0D 0A 09 09 70 75 74 23 31 28 31 33 2C 31 30 )....put#1(13,10
000030: 2C 27 6C 61 6C 66 61 61 72 79 27 29 3B 0D 0A 09 ,'lalfaary');...
000040: 09 66 6F 72 20 69 3A 3D 30 20 74 6F 20 61 6D 61 .for i:=0 to ama
000050: 78 20 64 6F 20 62 65 67 69 6E 0D 0A 09 09 20 20 x do begin....
000060: 70 75 74 23 31 28 27 2D 27 29 3B 0D 0A 09 09 20 put#1('-');....
000070: 20 61 6C 66 61 70 61 74 72 28 69 29 3B 20 6C 61 alfapatr(i); la
000080: 61 5B 69 5D 3A 3D 61 70 61 74 72 20 65 6E 64 3B a[i]:=apatr end;
000090: 0D 0A 09 09 66 6F 72 20 69 3A 3D 30 20 74 6F 20 ....for i:=0 to
0000A0: 61 6D 61 78 20 64 6F 20 62 65 67 69 6E 0D 0A 09 amax do begin...
0000B0: 09 20 20 61 6C 66 61 70 61 74 72 28 69 29 3B 0D . alfapatr(i);.
0000C0: 0A 09 09 20 20 69 66 20 6C 61 61 5B 69 5D 3C 3E ... if laa[i]<>
0000D0: 61 70 61 74 72 0D 0A 09 09 20 20 20 20 74 68 65 apatr.... the
0000E0: 6E 20 70 75 74 23 31 28 27 6C 61 61 20 66 61 69 n put#1('laa fai
0000F0: 6C 27 2C 69 23 29 0D 0A 09 09 20 20 20 20 65 6C l',i#).... el
000100: 73 65 20 70 75 74 23 31 28 27 2E 27 29 20 65 6E se put#1('.') en
000110: 64 3B 0D 0A 0D 0A 09 09 70 75 74 23 31 28 31 33 d;......put#1(13
000120: 2C 31 30 2C 27 67 61 6C 66 61 61 72 79 27 29 3B ,10,'galfaary');
000130: 0D 0A 09 09 66 6F 72 20 69 3A 3D 30 20 74 6F 20 ....for i:=0 to
000140: 61 6D 61 78 20 64 6F 20 62 65 67 69 6E 0D 0A 09 amax do begin...
000150: 09 20 20 70 75 74 23 31 28 27 2D 27 29 3B 0D 0A . put#1('-');..
000160: 09 09 20 20 61 6C 66 61 70 61 74 72 28 69 29 3B .. alfapatr(i);
000170: 20 67 61 61 5B 69 5D 3A 3D 61 70 61 74 72 20 65 gaa[i]:=apatr e
000180: 6E 64 3B 0D 0A 09 09 66 6F 72 20 69 3A 3D 30 20 nd;....for i:=0
000190: 74 6F 20 61 6D 61 78 20 64 6F 20 62 65 67 69 6E to amax do begin
0001A0: 0D 0A 09 09 20 20 61 6C 66 61 70 61 74 72 28 69 .... alfapatr(i
0001B0: 29 3B 0D 0A 09 09 20 20 69 66 20 67 61 61 5B 69 );.... if gaa[i
0001C0: 5D 3C 3E 61 70 61 74 72 0D 0A 09 09 20 20 20 20 ]<>apatr....
0001D0: 74 68 65 6E 20 70 75 74 23 31 28 27 67 61 61 20 then put#1('gaa
0001E0: 66 61 69 6C 27 2C 69 23 29 0D 0A 09 09 20 20 20 fail',i#)....
0001F0: 20 65 6C 73 65 20 70 75 74 23 31 28 27 2E 27 29 else put#1('.')
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 65 6E 64 3B 0D 0A 09 09 70 75 74 23 31 28 31 end;....put#1(1
000010: 33 2C 31 30 29 0D 0A 09 09 65 6E 64 3B 20 28 2A 3,10)....end; (*
000020: 20 70 72 6F 63 65 64 75 72 65 20 61 6C 66 61 61 procedure alfaa
000030: 72 79 20 2A 29 0D 0A 09 0D 0A 09 62 65 67 69 6E ry *)......begin
000040: 20 28 2A 20 70 72 6F 63 65 64 75 72 65 20 61 72 (* procedure ar
000050: 79 74 65 73 74 20 2A 29 0D 0A 09 77 6F 72 64 61 ytest *)...worda
000060: 72 79 3B 0D 0A 09 61 6C 66 61 61 72 79 0D 0A 09 ry;...alfaary...
000070: 65 6E 64 3B 20 28 2A 20 70 72 6F 63 65 64 75 72 end; (* procedur
000080: 65 20 61 72 79 74 65 73 74 20 2A 29 0D 0A 0D 0A e arytest *)....
000090: 62 65 67 69 6E 20 28 2A 20 6D 61 69 6E 20 6C 69 begin (* main li
0000A0: 6E 65 20 2A 29 0D 0A 66 6F 72 74 65 73 74 3B 0D ne *)..fortest;.
0000B0: 0A 72 65 70 74 74 65 73 74 3B 0D 0A 77 68 69 6C .repttest;..whil
0000C0: 74 65 73 74 3B 0D 0A 73 69 6D 70 76 61 72 3B 0D test;..simpvar;.
0000D0: 0A 61 72 79 74 65 73 74 0D 0A 65 6E 64 2E 0D 0A .arytest..end...
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 73 65 20 70 75 74 23 31 28 27 2E 27 29 20 65 6E se put#1('.') en
000110: 64 3B 0D 0A 0D 0A 09 09 70 75 74 23 31 28 31 33 d;......put#1(13
000120: 2C 31 30 2C 27 67 61 6C 66 61 61 72 79 27 29 3B ,10,'galfaary');
000130: 0D 0A 09 09 66 6F 72 20 69 3A 3D 30 20 74 6F 20 ....for i:=0 to
000140: 61 6D 61 78 20 64 6F 20 62 65 67 69 6E 0D 0A 09 amax do begin...
000150: 09 20 20 70 75 74 23 31 28 27 2D 27 29 3B 0D 0A . put#1('-');..
000160: 09 09 20 20 61 6C 66 61 70 61 74 72 28 69 29 3B .. alfapatr(i);
000170: 20 67 61 61 5B 69 5D 3A 3D 61 70 61 74 72 20 65 gaa[i]:=apatr e
000180: 6E 64 3B 0D 0A 09 09 66 6F 72 20 69 3A 3D 30 20 nd;....for i:=0
000190: 74 6F 20 61 6D 61 78 20 64 6F 20 62 65 67 69 6E to amax do begin
0001A0: 0D 0A 09 09 20 20 61 6C 66 61 70 61 74 72 28 69 .... alfapatr(i
0001B0: 29 3B 0D 0A 09 09 20 20 69 66 20 67 61 61 5B 69 );.... if gaa[i
0001C0: 5D 3C 3E 61 70 61 74 72 0D 0A 09 09 20 20 20 20 ]<>apatr....
0001D0: 74 68 65 6E 20 70 75 74 23 31 28 27 67 61 61 20 then put#1('gaa
0001E0: 66 61 69 6C 27 2C 69 23 29 0D 0A 09 09 20 20 20 fail',i#)....
0001F0: 20 65 6C 73 65 20 70 75 74 23 31 28 27 2E 27 29 else put#1('.')
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 70 70 63 20 70 70 63 2E 70 61 73 20 61 2E 70 63 ppc ppc.pas a.pc
000010: 6F 0D 0A 70 66 65 74 20 61 2E 70 63 6F 20 61 2E o..pfet a.pco a.
000020: 6F 63 6F 0D 0A 65 72 61 20 61 2E 70 63 6F 0D 0A oco..era a.pco..
000030: 70 69 70 20 70 70 63 6E 65 77 2E 63 6F 6D 3D 72 pip ppcnew.com=r
000040: 74 70 2E 63 6F 6D 2C 61 2E 6F 63 6F 5B 76 6F 0D tp.com,a.oco[vo.
000050: 0A 65 72 61 20 61 2E 6F 63 6F 0D 0A 70 70 63 20 .era a.oco..ppc
000060: 70 66 65 74 2E 70 61 73 20 61 2E 70 63 6F 0D 0A pfet.pas a.pco..
000070: 70 66 65 74 20 61 2E 70 63 6F 20 61 2E 6F 63 6F pfet a.pco a.oco
000080: 0D 0A 65 72 61 20 61 2E 70 63 6F 0D 0A 70 69 70 ..era a.pco..pip
000090: 20 70 66 65 74 6E 65 77 2E 63 6F 6D 3D 72 74 70 pfetnew.com=rtp
0000A0: 2E 63 6F 6D 2C 61 2E 6F 63 6F 5B 76 6F 0D 0A 65 .com,a.oco[vo..e
0000B0: 72 61 20 61 2E 6F 63 6F 0D 0A 70 70 63 6E 65 77 ra a.oco..ppcnew
0000C0: 20 70 70 63 2E 70 61 73 20 61 2E 70 63 6F 0D 0A ppc.pas a.pco..
0000D0: 70 66 65 74 6E 65 77 20 61 2E 70 63 6F 20 61 2E pfetnew a.pco a.
0000E0: 6F 63 6F 0D 0A 65 72 61 20 61 2E 70 63 6F 0D 0A oco..era a.pco..
0000F0: 70 69 70 20 70 70 63 73 65 6C 66 2E 63 6F 6D 3D pip ppcself.com=
000100: 72 74 70 2E 63 6F 6D 2C 61 2E 6F 63 6F 5B 76 6F rtp.com,a.oco[vo
000110: 0D 0A 65 72 61 20 61 2E 6F 63 6F 0D 0A 63 6F 6D ..era a.oco..com
000120: 70 61 72 65 20 70 70 63 73 65 6C 66 2E 63 6F 6D pare ppcself.com
000130: 20 70 70 63 6E 65 77 2E 63 6F 6D 0D 0A 70 70 63 ppcnew.com..ppc
000140: 6E 65 77 20 70 66 65 74 2E 70 61 73 20 61 2E 70 new pfet.pas a.p
000150: 63 6F 0D 0A 70 66 65 74 6E 65 77 20 61 2E 70 63 co..pfetnew a.pc
000160: 6F 20 61 2E 6F 63 6F 0D 0A 65 72 61 20 61 2E 70 o a.oco..era a.p
000170: 63 6F 0D 0A 70 69 70 20 70 66 65 74 73 65 6C 66 co..pip pfetself
000180: 2E 63 6F 6D 3D 72 74 70 2E 63 6F 6D 2C 61 2E 6F .com=rtp.com,a.o
000190: 63 6F 5B 76 6F 0D 0A 63 6F 6D 70 61 72 65 20 70 co[vo..compare p
0001A0: 66 65 74 73 65 6C 66 2E 63 6F 6D 20 70 66 65 74 fetself.com pfet
0001B0: 6E 65 77 2E 63 6F 6D 0D 0A 1A 1A 1A 1A 1A 1A 1A new.com.........
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan