Small-C 2.1 (UK) (128K) (Face 1B) (1985) [Original] [UTILITAIRE].dsk
Size : 512 (Real : 512)
000000: 60 69 E5 11 00 A8 01 33 00 ED B0 E1 11 00 A7 01 `i.....3........
000010: 33 00 ED B0 21 00 A0 22 04 A7 21 35 01 11 00 10 3...!.."..!5....
000020: 01 47 00 ED B0 0E 00 CD 1B A8 F3 D9 CB C9 CB 81 .G..............
000030: D9 FB C3 00 10 01 00 A0 11 14 00 3E 1C CD 1C 10 ...........>....
000040: 01 00 01 11 08 00 3E 0C CD 1C 10 01 00 A7 C3 00 ......>.........
000050: 01 32 3C 10 D5 C5 01 00 00 CD 1E A8 C1 CD 24 A8 .2<...........$.
000060: 21 80 00 09 E3 44 4D CD 21 A8 C5 CD 27 A8 E1 23 !....DM.!...'..#
000070: 3E 0C BD 28 05 E3 44 4D 18 E3 C1 C9 60 69 11 00 >..(..DM....`i..
000080: 05 01 33 00 ED B0 0E 42 11 00 00 21 00 03 CD 89 ..3....B...!....
000090: BE 30 06 CD 50 01 C3 03 05 CD 59 02 0D 0A 46 61 .0..P.....Y...Fa
0000A0: 69 6C 65 64 20 74 6F 20 6C 6F 61 64 20 74 68 65 iled to load the
0000B0: 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 configuration s
0000C0: 65 63 74 6F 72 0D 0A 0A 24 C3 03 05 CD 59 02 04 ector...$....Y..
0000D0: 02 24 2A 00 03 11 CB ED 19 7C B5 28 26 CD 59 02 .$*......|.(&.Y.
0000E0: 0D 0A 49 6C 6C 65 67 61 6C 20 63 6F 6E 66 69 67 ..Illegal config
0000F0: 75 72 61 74 69 6F 6E 20 73 65 63 74 6F 72 0D 0A uration sector..
000100: 0A 24 C9 2A 02 03 22 3D 02 2A 04 03 22 3F 02 3A .$.*.."=.*.."?.:
000110: 06 03 32 43 02 21 3D 02 CD 83 BE 3A 07 03 32 03 ..2C.!=....:..2.
000120: 00 3A 08 03 CD 80 BE 3A 09 03 CD 9E BE 21 0A 03 .:.....:.....!..
000130: CD A1 BE 21 64 03 CD 5F 02 7E 23 B7 28 0C 47 4E ...!d.._.~#.(.GN
000140: 23 E5 C5 CD 0F 05 C1 E1 10 F5 EB 21 27 BB CD 46 #..........!'..F
000150: 02 21 2D BB CD 46 02 21 33 BB CD 46 02 EB 7E 23 .!-..F.!3..F..~#
000160: B7 28 50 57 46 23 4E 23 E5 D5 C5 CD 0F BB C1 D1 .(PWF#N#........
000170: E1 38 3A CD 59 02 0D 0A 45 78 70 61 6E 73 69 6F .8:.Y...Expansio
000180: 6E 20 62 75 66 66 65 72 20 66 75 6C 6C 20 6F 72 n buffer full or
000190: 20 69 6C 6C 65 67 61 6C 20 74 6F 6B 65 6E 20 73 illegal token s
0001A0: 70 65 63 69 66 69 65 64 0D 0A 0A 24 C9 06 00 09 pecified...$....
0001B0: 15 20 B1 3A 16 03 C3 A4 BE 00 00 00 00 AF 1E 00 . .:............
0001C0: 01 03 1A 4F 13 B7 C8 1A 47 13 1A 13 E5 CD 6C 02 ...O....G.....l.
0001D0: E1 0D 20 F3 C9 E3 CD 5F 02 E3 C9 7E 23 FE 24 C8 .. ...._...~#.$.
0001E0: 4F E5 CD 0C 05 E1 18 F3 E9 CF CF CF CF CF CF CF O...............
0001F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
Size : 512 (Real : 512)
000000: 31 00 A0 0E 00 CD 1B A8 11 0A 00 19 5E 23 56 EB 1...........^#V.
000010: 11 F1 A1 01 0E 00 ED B0 21 00 00 ED 5B F1 A1 ED ........!...[...
000020: 4B FE A1 03 0B 78 B1 28 03 19 18 F8 22 EF A1 CD K....x.(...."...
000030: 70 A1 79 32 ED A1 01 80 00 CD 24 A8 11 80 00 ED p.y2......$.....
000040: 53 E5 A1 ED 4B FE A1 ED 43 E7 A1 CD 1E A8 0E 00 S...K...C.......
000050: C5 CD 21 A8 CD 27 A8 C1 CD 4B A1 38 3A 2A E5 A1 ..!..'...K.8:*..
000060: 11 04 00 B7 ED 52 22 E5 A1 28 10 38 0E 0C 3A F1 .....R"..(.8..:.
000070: A1 B9 20 DC ED 4B E7 A1 03 18 CC 21 93 A1 CD 87 .. ..K.....!....
000080: A1 CD 09 A8 CD 9B BE 9E BE 21 D4 A1 CD D4 BC 18 .........!......
000090: EA AF B8 20 0E 18 26 11 10 00 19 11 01 A2 D5 06 ... ..&.........
0000A0: 10 0E 00 3A F7 A1 16 00 5E 05 23 B7 28 03 56 05 ...:....^.#.(.V.
0000B0: 23 0C E3 73 23 72 23 E3 7A B3 20 D5 0D D1 79 B7 #..s#r#.z. ...y.
0000C0: CA 7B A0 32 00 A2 21 01 A2 E5 01 80 00 ED 43 EB .{.2..!.......C.
0000D0: A1 E1 5E 23 56 23 E5 CD E4 A0 21 00 A2 35 20 F1 ..^#V#....!..5 .
0000E0: E1 C3 00 01 EB 3A F3 A1 29 3D 20 FC ED 5B EF A1 .....:..)= ..[..
0000F0: 19 ED 5B F1 A1 AF ED 52 3C 28 04 30 F9 19 3D 2B ..[....R<(.0..=+
000100: 22 E9 A1 6F 26 00 22 E7 A1 4D 44 CD 1E A8 3A F4 "..o&."..MD...:.
000110: A1 3C 47 C5 3A F1 A1 47 3A E9 A1 3C B8 20 0D ED .<G.:..G:..<. ..
000120: 4B E7 A1 03 ED 43 E7 A1 CD 1E A8 AF 32 E9 A1 4F K....C......2..O
000130: 06 00 CD 21 A8 2A EB A1 11 80 00 19 22 EB A1 E5 ...!.*......"...
000140: C1 CD 24 A8 CD 27 A8 C1 10 C9 C9 C5 06 04 21 80 ..$..'........!.
000150: 00 E5 11 D9 A1 C5 06 0C 1A BE 20 09 23 13 10 F8 .......... .#...
000160: C1 E1 C1 37 C9 C1 E1 11 20 00 19 10 E4 C1 B7 C9 ...7.... .......
000170: 3A FA A1 CD 7B A1 3A FB A1 18 02 0E 00 06 08 CB :...{.:.........
000180: 17 30 01 0C 10 F9 C9 7E B7 C8 23 E5 4F CD 0C A8 .0.....~..#.O...
000190: E1 18 F4 24 4F 53 43 2E 53 59 53 20 77 75 72 64 ...$OSC.SYS wurd
0001A0: 65 20 6E 69 63 68 74 20 67 65 66 75 6E 64 65 6E e nicht gefunden
0001B0: 2E 0D 0A 42 41 53 49 43 3D 69 72 67 65 6E 64 65 ...BASIC=irgende
0001C0: 69 6E 65 20 54 61 73 74 65 20 64 72 75 65 63 6B ine Taste drueck
0001D0: 65 6E 20 00 42 41 53 49 C3 00 24 4F 53 43 20 20 en .BASI..$OSC
0001E0: 20 20 53 59 53 00 00 00 00 00 00 00 00 00 00 00 SYS...........
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 35 12 32 00 FA 00 0C 81 00 00 44 6A E1 44 6A E1 5.2.......Dj.Dj.
000010: 0D 00 0D 00 0D 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 24 00 00 00 00 00 00 40 1D 77 77 43 ....$......@.wwC
000070: 50 2F 4D 20 32 2E 32 20 2D 20 41 6D 73 74 72 61 P/M 2.2 - Amstra
000080: 64 20 43 6F 6E 73 75 6D 65 72 20 45 6C 65 63 74 d Consumer Elect
000090: 72 6F 6E 69 63 73 20 70 6C 63 0A 0D 24 00 00 00 ronics plc..$...
0000A0: 00 00 00 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 ............B...
0000B0: 4F 0B 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 4F O..........B...O
0000C0: 0B 00 08 08 09 01 0A 02 00 00 31 31 31 31 31 31 ..........111111
0000D0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0000E0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0000F0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000100: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000110: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000120: 31 31 31 31 31 31 31 31 31 31 01 66 32 32 32 32 1111111111.f2222
000130: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000140: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000150: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000160: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000170: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000180: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000190: 32 32 03 1C 33 33 33 33 33 33 33 33 33 33 33 33 22..333333333333
0001A0: 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 3333333333333333
0001B0: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
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 E5 E5 ................
Size : 512 (Real : 512)
000000: A3 1E FE 0F C2 8A 06 CD CF 15 01 06 1E CD 20 12 .............. .
000010: 3A A9 1E D6 01 C6 FF 9F F5 3A A8 1E D6 3D C6 FF :........:...=..
000020: 9F C1 48 B1 1F D2 AE 06 01 9D 04 CD AF 09 21 A7 ..H...........!.
000030: 1F 36 01 3A A7 1F 1F D2 BE 07 3A C0 1E 32 C1 1E .6.:......:..2..
000040: 01 06 1E CD 20 12 21 04 1E 36 00 3A A9 1E D6 02 .... .!..6.:....
000050: D6 01 9F F5 3A F5 1D 2F C1 48 A1 1F D2 ED 06 CD ....:../.H......
000060: 88 1C CD BE 18 21 A8 1E 36 FF C3 13 07 3A A9 1E .....!..6....:..
000070: D6 03 C6 FF 9F F5 3E 0A 21 A8 1E 96 9F 2F F5 3E ......>.!..../.>
000080: 05 96 9F C1 48 A1 C1 48 B1 1F D2 13 07 01 B0 04 ....H..H........
000090: CD AF 09 3A 04 1E 21 5E 1F B6 77 3A A8 1E 3C 32 ...:..!^..w:..<2
0000A0: A4 1E 3A A8 1E FE 13 C2 30 07 CD CF 15 C3 7D 07 ..:.....0.....}.
0000B0: 3A A8 1E FE 14 C2 40 07 0E 1A CD 45 0E C3 7D 07 :.....@....E..}.
0000C0: 3A A8 1E D6 05 9F 21 05 1E A6 1F D2 53 07 21 57 :.....!.....S.!W
0000D0: 1F 36 01 3A A3 1E FE 0A C2 7A 07 21 5D 1F 36 01 .6.:.....z.!].6.
0000E0: 3A 63 1F FE 00 C2 6D 07 21 63 1F 36 08 3A 5F 1F :c....m.!c.6.:_.
0000F0: FE 00 C2 7A 07 21 5F 1F 36 01 CD 6C 1A CD 12 19 ...z.!_.6..l....
000100: 01 06 1E CD 20 12 3A A9 1E D6 01 C6 FF 9F F5 3A .... .:........:
000110: A8 1E D6 2C C6 FF 9F F5 3A A8 1E D6 0D C6 FF 9F ...,....:.......
000120: C1 48 A1 C1 48 B1 1F D2 B0 07 01 BC 04 CD AF 09 .H..H...........
000130: 3A A8 1E D6 0D C6 FF 9F 32 A7 1F C3 B3 06 3A A3 :.......2.....:.
000140: 1E FE 0F C2 CE 07 0E 1A CD 45 0E CD CF 15 3A A3 .........E....:.
000150: 1E FE 00 C2 DB 07 0E 00 CD 31 19 3A A5 1E 32 CC .........1.:..2.
000160: 1E C3 14 05 FB 76 21 F2 1D 71 21 F2 07 E5 2A 38 .....v!..q!...*8
000170: 02 E9 C9 21 FB 07 E5 2A 36 02 E9 3A 09 01 C9 3E ...!...*6..:...>
000180: FA CD A6 1D 3E FA CD A6 1D C9 11 00 00 0E 03 CD ....>...........
000190: 05 00 C9 11 00 00 0E 01 CD 05 00 C9 21 AB 1E 71 ............!..q
0001A0: 3A AB 1E E6 7F 5F 16 00 0E 02 CD 05 00 C9 0E 0D :...._..........
0001B0: CD 1C 08 0E 0A CD 1C 08 C9 21 AD 1E 70 2B 71 CD .........!..p+q.
0001C0: 2E 08 2A AC 1E EB 0E 09 CD 05 00 C9 11 00 00 0E ..*.............
0001D0: 0C CD 05 00 C9 11 00 00 0E 0D CD 05 00 C9 21 AF ..............!.
0001E0: 1E 71 2A AF 1E 26 00 EB 0E 0E CD 05 00 C9 21 B1 .q*..&........!.
0001F0: 1E 70 2B 71 2A B0 1E EB 0E 0F CD 05 00 32 AE 1E .p+q*........2..
Size : 512 (Real : 512)
000000: 60 69 11 00 05 01 33 00 ED B0 0E 42 11 00 00 21 `i....3....B...!
000010: 00 03 CD 89 BE 30 06 CD 50 01 C3 03 05 CD 59 02 .....0..P.....Y.
000020: 0D 0A 46 61 69 6C 65 64 20 74 6F 20 6C 6F 61 64 ..Failed to load
000030: 20 74 68 65 20 63 6F 6E 66 69 67 75 72 61 74 69 the configurati
000040: 6F 6E 20 73 65 63 74 6F 72 0D 0A 0A 24 C3 03 05 on sector...$...
000050: CD 59 02 04 02 24 2A 00 03 11 CB ED 19 7C B5 28 .Y...$*......|.(
000060: 26 CD 59 02 0D 0A 49 6C 6C 65 67 61 6C 20 63 6F &.Y...Illegal co
000070: 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 65 63 74 nfiguration sect
000080: 6F 72 0D 0A 0A 24 C9 2A 02 03 22 3D 02 2A 04 03 or...$.*.."=.*..
000090: 22 3F 02 3A 06 03 32 43 02 21 3D 02 CD 83 BE 3A "?.:..2C.!=....:
0000A0: 07 03 32 03 00 3A 08 03 CD 80 BE 3A 09 03 CD 9E ..2..:.....:....
0000B0: BE 21 0A 03 CD A1 BE 21 64 03 CD 5F 02 7E 23 B7 .!.....!d.._.~#.
0000C0: 28 0C 47 4E 23 E5 C5 CD 0F 05 C1 E1 10 F5 EB 21 (.GN#..........!
0000D0: 27 BB CD 46 02 21 2D BB CD 46 02 21 33 BB CD 46 '..F.!-..F.!3..F
0000E0: 02 EB 7E 23 B7 28 50 57 46 23 4E 23 E5 D5 C5 CD ..~#.(PWF#N#....
0000F0: 0F BB C1 D1 E1 38 3A CD 59 02 0D 0A 45 78 70 61 .....8:.Y...Expa
000100: 6E 73 69 6F 6E 20 62 75 66 66 65 72 20 66 75 6C nsion buffer ful
000110: 6C 20 6F 72 20 69 6C 6C 65 67 61 6C 20 74 6F 6B l or illegal tok
000120: 65 6E 20 73 70 65 63 69 66 69 65 64 0D 0A 0A 24 en specified...$
000130: C9 06 00 09 15 20 B1 3A 16 03 C3 A4 BE 00 00 00 ..... .:........
000140: 00 AF 1E 00 01 03 1A 4F 13 B7 C8 1A 47 13 1A 13 .......O....G...
000150: E5 CD 6C 02 E1 0D 20 F3 C9 E3 CD 5F 02 E3 C9 7E ..l... ...._...~
000160: 23 FE 24 C8 4F E5 CD 0C 05 E1 18 F3 E9 CF CF CF #.$.O...........
000170: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000180: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000190: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
Size : 512 (Real : 512)
000000: C3 5C E1 C3 58 E1 7F 00 20 20 20 20 20 20 20 20 .\..X...
000010: 20 20 20 20 20 20 20 20 43 4F 50 59 52 49 47 48 COPYRIGH
000020: 54 20 28 43 29 20 31 39 37 39 2C 20 44 49 47 49 T (C) 1979, DIGI
000030: 54 41 4C 20 52 45 53 45 41 52 43 48 20 20 00 00 TAL RESEARCH ..
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 08 DE 00 00 5F 0E 02 C3 ............_...
000090: 05 00 C5 CD 8C DE C1 C9 3E 0D CD 92 DE 3E 0A C3 ........>....>..
0000A0: 92 DE 3E 20 C3 92 DE C5 CD 98 DE E1 7E B7 C8 23 ..> ........~..#
0000B0: E5 CD 8C DE E1 C3 AC DE 0E 0D C3 05 00 5F 0E 0E ............._..
0000C0: C3 05 00 CD 05 00 32 EE E5 3C C9 0E 0F C3 C3 DE ......2..<......
0000D0: AF 32 ED E5 11 CD E5 C3 CB DE 0E 10 C3 C3 DE 0E .2..............
0000E0: 11 C3 C3 DE 0E 12 C3 C3 DE 11 CD E5 C3 DF DE 0E ................
0000F0: 13 C3 05 00 CD 05 00 B7 C9 0E 14 C3 F4 DE 11 CD ................
000100: E5 C3 F9 DE 0E 15 C3 F4 DE 0E 16 C3 C3 DE 0E 17 ................
000110: C3 05 00 1E FF 0E 20 C3 05 00 CD 13 DF 87 87 87 ...... .........
000120: 87 21 EF E5 B6 32 04 00 C9 3A EF E5 32 04 00 C9 .!...2...:..2...
000130: FE 61 D8 FE 7B D0 E6 5F C9 3A AB E5 B7 CA 96 DF .a..{.._.:......
000140: 3A EF E5 B7 3E 00 C4 BD DE 11 AC E5 CD CB DE CA :...>...........
000150: 96 DF 3A BB E5 3D 32 CC E5 11 AC E5 CD F9 DE C2 ..:..=2.........
000160: 96 DF 11 07 DE 21 80 00 06 80 CD 42 E2 21 BA E5 .....!.....B.!..
000170: 36 00 23 35 11 AC E5 CD DA DE CA 96 DF 3A EF E5 6.#5.........:..
000180: B7 C4 BD DE 21 08 DE CD AC DE CD C2 DF CA A7 DF ....!...........
000190: CD DD DF C3 82 E1 CD DD DF CD 1A DF 0E 0A 11 06 ................
0001A0: DE CD 05 00 CD 29 DF 21 07 DE 46 23 78 B7 CA BA .....).!..F#x...
0001B0: DF 7E CD 30 DF 77 05 C3 AB DF 77 21 08 DE 22 88 .~.0.w....w!..".
0001C0: DE C9 0E 0B CD 05 00 B7 C8 0E 01 CD 05 00 B7 C9 ................
0001D0: 0E 19 C3 05 00 11 80 00 0E 1A C3 05 00 21 AB E5 .............!..
0001E0: 7E B7 C8 36 00 AF CD BD DE 11 AC E5 CD EF DE 3A ~..6...........:
0001F0: EF E5 C3 BD DE 11 28 E1 21 00 E6 06 06 1A BE C2 ......(.!.......
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: CF E1 13 23 05 C2 FD DF C9 CD 98 DE 2A 8A DE 7E ...#........*..~
000010: FE 20 CA 22 E0 B7 CA 22 E0 E5 CD 8C DE E1 23 C3 . ."..."......#.
000020: 0F E0 3E 3F CD 8C DE CD 98 DE CD DD DF C3 82 E1 ..>?............
000030: 1A B7 C8 FE 20 DA 09 E0 C8 FE 3D C8 FE 5F C8 FE .... .....=.._..
000040: 2E C8 FE 3A C8 FE 3B C8 FE 3C C8 FE 3E C8 C9 1A ...:..;..<..>...
000050: B7 C8 FE 20 C0 13 C3 4F E0 85 6F D0 24 C9 3E 00 ... ...O..o.$.>.
000060: 21 CD E5 CD 59 E0 E5 E5 AF 32 F0 E5 2A 88 DE EB !...Y....2..*...
000070: CD 4F E0 EB 22 8A DE EB E1 1A B7 CA 89 E0 DE 40 .O.."..........@
000080: 47 13 1A FE 3A CA 90 E0 1B 3A EF E5 77 C3 96 E0 G...:....:..w...
000090: 78 32 F0 E5 70 13 06 08 CD 30 E0 CA B9 E0 23 FE x2..p....0....#.
0000A0: 2A C2 A9 E0 36 3F C3 AB E0 77 13 05 C2 98 E0 CD *...6?...w......
0000B0: 30 E0 CA C0 E0 13 C3 AF E0 23 36 20 05 C2 B9 E0 0........#6 ....
0000C0: 06 03 FE 2E C2 E9 E0 13 CD 30 E0 CA E9 E0 23 FE .........0....#.
0000D0: 2A C2 D9 E0 36 3F C3 DB E0 77 13 05 C2 C8 E0 CD *...6?...w......
0000E0: 30 E0 CA F0 E0 13 C3 DF E0 23 36 20 05 C2 E9 E0 0........#6 ....
0000F0: 06 03 23 36 00 05 C2 F2 E0 EB 22 88 DE E1 01 0B ..#6......".....
000100: 00 23 7E FE 3F C2 09 E1 04 0D C2 01 E1 78 B7 C9 .#~.?........x..
000110: 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 DIR ERA TYPESAVE
000120: 52 45 4E 20 55 53 45 52 D0 16 04 00 00 00 21 10 REN USER......!.
000130: E1 0E 00 79 FE 06 D0 11 CE E5 06 04 1A BE C2 4F ...y...........O
000140: E1 13 23 05 C2 3C E1 1A FE 20 C2 54 E1 79 C9 23 ..#..<... .T.y.#
000150: 05 C2 4F E1 0C C3 33 E1 AF 32 07 DE 31 AB E5 C5 ..O...3..2..1...
000160: 79 1F 1F 1F 1F E6 0F 5F CD 15 DF CD B8 DE 32 AB y......_......2.
000170: E5 C1 79 E6 0F 32 EF E5 CD BD DE 3A 07 DE B7 C2 ..y..2.....:....
000180: 98 E1 31 AB E5 CD 98 DE CD D0 DF C6 41 CD 8C DE ..1.........A...
000190: 3E 3E CD 8C DE CD 39 DF 11 80 00 CD D8 DF CD D0 >>....9.........
0001A0: DF 32 EF E5 CD 5E E0 C4 09 E0 3A F0 E5 B7 C2 A5 .2...^....:.....
0001B0: E4 CD 2E E1 21 C1 E1 5F 16 00 19 19 7E 23 66 6F ....!.._....~#fo
0001C0: E9 77 E2 1F E3 5D E3 AD E3 10 E4 8E E4 A5 E4 21 .w...].........!
0001D0: F3 76 22 00 DE 21 00 DE E9 01 DF E1 C3 A7 DE 52 .v"..!.........R
0001E0: 45 41 44 20 45 52 52 4F 52 00 01 F0 E1 C3 A7 DE EAD ERROR.......
0001F0: 4E 4F 20 46 49 4C 45 00 CD 5E E0 3A F0 E5 B7 C2 NO FILE..^.:....
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: 09 E0 21 CE E5 01 0B 00 7E FE 20 CA 33 E2 23 D6 ..!.....~. .3.#.
000010: 30 FE 0A D2 09 E0 57 78 E6 E0 C2 09 E0 78 07 07 0.....Wx.....x..
000020: 07 80 DA 09 E0 80 DA 09 E0 82 DA 09 E0 47 0D C2 .............G..
000030: 08 E2 C9 7E FE 20 C2 09 E0 23 0D C2 33 E2 78 C9 ...~. ...#..3.x.
000040: 06 03 7E 12 23 13 05 C2 42 E2 C9 21 80 00 81 CD ..~.#...B..!....
000050: 59 E0 7E C9 AF 32 CD E5 3A F0 E5 B7 C8 3D 21 EF Y.~..2..:....=!.
000060: E5 BE C8 C3 BD DE 3A F0 E5 B7 C8 3D 21 EF E5 BE ......:....=!...
000070: C8 3A EF E5 C3 BD DE CD 5E E0 CD 54 E2 21 CE E5 .:......^..T.!..
000080: 7E FE 20 C2 8F E2 06 0B 36 3F 23 05 C2 88 E2 1E ~. .....6?#.....
000090: 00 D5 CD E9 DE CC EA E1 CA 1B E3 3A EE E5 0F 0F ...........:....
0000A0: 0F E6 60 4F 3E 0A CD 4B E2 17 DA 0F E3 D1 7B 1C ..`O>..K......{.
0000B0: D5 E6 03 F5 C2 CC E2 CD 98 DE C5 CD D0 DF C1 C6 ................
0000C0: 41 CD 92 DE 3E 3A CD 92 DE C3 D4 E2 CD A2 DE 3E A...>:.........>
0000D0: 3A CD 92 DE CD A2 DE 06 01 78 CD 4B E2 E6 7F FE :........x.K....
0000E0: 20 C2 F9 E2 F1 F5 FE 03 C2 F7 E2 3E 09 CD 4B E2 ..........>..K.
0000F0: E6 7F FE 20 CA 0E E3 3E 20 CD 92 DE 04 78 FE 0C ... ...> ....x..
000100: D2 0E E3 FE 09 C2 D9 E2 CD A2 DE C3 D9 E2 F1 CD ................
000110: C2 DF C2 1B E3 CD E4 DE C3 98 E2 D1 C3 86 E5 CD ................
000120: 5E E0 FE 0B C2 42 E3 01 52 E3 CD A7 DE CD 39 DF ^....B..R.....9.
000130: 21 07 DE 35 C2 82 E1 23 7E FE 59 C2 82 E1 23 22 !..5...#~.Y...#"
000140: 88 DE CD 54 E2 11 CD E5 CD EF DE 3C CC EA E1 C3 ...T.......<....
000150: 86 E5 41 4C 4C 20 28 59 2F 4E 29 3F 00 CD 5E E0 ..ALL (Y/N)?..^.
000160: C2 09 E0 CD 54 E2 CD D0 DE CA A7 E3 CD 98 DE 21 ....T..........!
000170: F1 E5 36 FF 21 F1 E5 7E FE 80 DA 87 E3 E5 CD FE ..6.!..~........
000180: DE E1 C2 A0 E3 AF 77 34 21 80 00 CD 59 E0 7E FE ......w4!...Y.~.
000190: 1A CA 86 E5 CD 8C DE CD C2 DF C2 86 E5 C3 74 E3 ..............t.
0001A0: 3D CA 86 E5 CD D9 E1 CD 66 E2 C3 09 E0 CD F8 E1 =.......f.......
0001B0: F5 CD 5E E0 C2 09 E0 CD 54 E2 11 CD E5 D5 CD EF ..^.....T.......
0001C0: DE D1 CD 09 DF CA FB E3 AF 32 ED E5 F1 6F 26 00 .........2...o&.
0001D0: 29 11 00 01 7C B5 CA F1 E3 2B E5 21 80 00 19 E5 )...|....+.!....
0001E0: CD D8 DF 11 CD E5 CD 04 DF D1 E1 C2 FB E3 C3 D4 ................
0001F0: E3 11 CD E5 CD DA DE 3C C2 01 E4 01 07 E4 CD A7 .......<........
Size : 512 (Real : 512)
000000: FF 22 EA F3 C9 2A C8 F3 EB 2A EA F3 23 22 EA F3 ."...*...*..#"..
000010: CD 95 EB D2 19 EC C3 FE EB 3A EA F3 E6 03 06 05 .........:......
000020: 87 05 C2 20 EC 32 E9 F3 B7 C0 C5 CD C3 E9 CD D4 ... .2..........
000030: EB C1 C3 9E EB 79 E6 07 3C 5F 57 79 0F 0F 0F E6 .....y..<_Wy....
000040: 1F 4F 78 87 87 87 87 87 B1 4F 78 0F 0F 0F E6 1F .Ox......Ox.....
000050: 47 2A BF F3 09 7E 07 1D C2 56 EC C9 D5 CD 35 EC G*...~...V....5.
000060: E6 FE C1 B1 0F 15 C2 64 EC 77 C9 CD 5E EB 11 10 .......d.w..^...
000070: 00 19 C5 0E 11 D1 0D C8 D5 3A DD F3 B7 CA 88 EC .........:......
000080: C5 E5 4E 06 00 C3 8E EC 0D C5 4E 23 46 E5 79 B0 ..N.......N#F.y.
000090: CA 9D EC 2A C6 F3 7D 91 7C 98 D4 5C EC E1 23 C1 ...*..}.|..\..#.
0000A0: C3 75 EC 2A C6 F3 0E 03 CD EA EA 23 44 4D 2A BF .u.*.......#DM*.
0000B0: F3 36 00 23 0B 78 B1 C2 B1 EC 2A CA F3 EB 2A BF .6.#.x....*...*.
0000C0: F3 73 23 72 CD A1 E9 2A B3 F3 36 03 23 36 00 CD .s#r...*..6.#6..
0000D0: FE EB 0E FF CD 05 EC CD F5 EB C8 CD 5E EB 3E E5 ............^.>.
0000E0: BE CA D2 EC 3A 41 E9 BE C2 F6 EC 23 7E D6 24 C2 ....:A.....#~.$.
0000F0: F6 EC 3D 32 45 E9 0E 01 CD 6B EC CD 8C EB C3 D2 ..=2E....k......
000100: EC 3A D4 F3 C3 01 E9 C5 F5 3A C5 F3 2F 47 79 A0 .:.......:../Gy.
000110: 4F F1 A0 91 E6 1F C1 C9 3E FF 32 D4 F3 21 D8 F3 O.......>.2..!..
000120: 71 2A 43 E9 22 D9 F3 CD FE EB CD A1 E9 0E 00 CD q*C."...........
000130: 05 EC CD F5 EB CA 94 ED 2A D9 F3 EB 1A FE E5 CA ........*.......
000140: 4A ED D5 CD 7F EB D1 D2 94 ED CD 5E EB 3A D8 F3 J..........^.:..
000150: 4F 06 00 79 B7 CA 83 ED 1A FE 3F CA 7C ED 78 FE O..y......?.|.x.
000160: 0D CA 7C ED FE 0C 1A CA 73 ED 96 E6 7F C2 2D ED ..|.....s.....-.
000170: C3 7C ED C5 4E CD 07 ED C1 C2 2D ED 13 23 04 0D .|..N.....-..#..
000180: C3 53 ED 3A EA F3 E6 03 32 45 E9 21 D4 F3 7E 17 .S.:....2E.!..~.
000190: D0 AF 77 C9 CD FE EB 3E FF C3 01 E9 CD 54 EB 0E ..w....>.....T..
0001A0: 0C CD 18 ED CD F5 EB C8 CD 44 EB CD 5E EB 36 E5 .........D..^.6.
0001B0: 0E 00 CD 6B EC CD C6 EB CD 2D ED C3 A4 ED 50 59 ...k.....-....PY
0001C0: 79 B0 CA D1 ED 0B D5 C5 CD 35 EC 1F D2 EC ED C1 y........5......
0001D0: D1 2A C6 F3 7B 95 7A 9C D2 F4 ED 13 C5 D5 42 4B .*..{.z.......BK
0001E0: CD 35 EC 1F D2 EC ED D1 C1 C3 C0 ED 17 3C CD 64 .5...........<.d
0001F0: EC E1 D1 C9 79 B0 C2 C0 ED 21 00 00 C9 0E 00 1E ....y....!......
Size : 512 (Real : 512)
000000: DE CD D5 DF C3 86 E5 4E 4F 20 53 50 41 43 45 00 .......NO SPACE.
000010: CD 5E E0 C2 09 E0 3A F0 E5 F5 CD 54 E2 CD E9 DE .^....:....T....
000020: C2 79 E4 21 CD E5 11 DD E5 06 10 CD 42 E2 2A 88 .y.!........B.*.
000030: DE EB CD 4F E0 FE 3D CA 3F E4 FE 5F C2 73 E4 EB ...O..=.?.._.s..
000040: 23 22 88 DE CD 5E E0 C2 73 E4 F1 47 21 F0 E5 7E #"...^..s..G!..~
000050: B7 CA 59 E4 B8 70 C2 73 E4 70 AF 32 CD E5 CD E9 ..Y..p.s.p.2....
000060: DE CA 6D E4 11 CD E5 CD 0E DF C3 86 E5 CD EA E1 ..m.............
000070: C3 86 E5 CD 66 E2 C3 09 E0 01 82 E4 CD A7 DE C3 ....f...........
000080: 86 E5 46 49 4C 45 20 45 58 49 53 54 53 00 CD F8 ..FILE EXISTS...
000090: E1 FE 10 D2 09 E0 5F 3A CE E5 FE 20 CA 09 E0 CD ......_:... ....
0000A0: 15 DF C3 89 E5 CD F5 DF 3A CE E5 FE 20 C2 C4 E4 ........:... ...
0000B0: 3A F0 E5 B7 CA 89 E5 3D 32 EF E5 CD 29 DF CD BD :......=2...)...
0000C0: DE C3 89 E5 11 D6 E5 1A FE 20 C2 09 E0 D5 CD 54 ......... .....T
0000D0: E2 D1 21 83 E5 CD 40 E2 CD D0 DE CA 6B E5 21 00 ..!...@.....k.!.
0000E0: 01 E5 EB CD D8 DF 11 CD E5 CD F9 DE C2 01 E5 E1 ................
0000F0: 11 80 00 19 11 00 DE 7D 93 7C 9A D2 71 E5 C3 E1 .......}.|..q...
000100: E4 E1 3D C2 71 E5 CD 66 E2 CD 5E E0 21 F0 E5 E5 ..=.q..f..^.!...
000110: 7E 32 CD E5 3E 10 CD 60 E0 E1 7E 32 DD E5 AF 32 ~2..>..`..~2...2
000120: ED E5 11 5C 00 21 CD E5 06 21 CD 42 E2 21 08 DE ...\.!...!.B.!..
000130: 7E B7 CA 3E E5 FE 20 CA 3E E5 23 C3 30 E5 06 00 ~..>.. .>.#.0...
000140: 11 81 00 7E 12 B7 CA 4F E5 04 23 13 C3 43 E5 78 ...~...O..#..C.x
000150: 32 80 00 CD 98 DE CD D5 DF CD 1A DF CD 00 01 31 2..............1
000160: AB E5 CD 29 DF CD BD DE C3 82 E1 CD 66 E2 C3 09 ...)........f...
000170: E0 01 7A E5 CD A7 DE C3 86 E5 42 41 44 20 4C 4F ..z.......BAD LO
000180: 41 44 00 43 4F 4D CD 66 E2 CD 5E E0 3A CE E5 D6 AD.COM.f..^.:...
000190: 20 21 F0 E5 B6 C2 09 E0 C3 82 E1 00 00 00 00 00 !..............
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 .............$$$
0001B0: 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 SUB........
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: 20 D5 06 00 2A 43 E9 09 EB CD 5E EB C1 CD 4F E9 ...*C....^...O.
000010: CD C3 E9 C3 C6 EB CD 54 EB 0E 0C CD 18 ED 2A 43 .......T......*C
000020: E9 7E 11 10 00 19 77 CD F5 EB C8 CD 44 EB 0E 10 .~....w.....D...
000030: 1E 0C CD 01 EE CD 2D ED C3 27 EE 0E 0C CD 18 ED ......-..'......
000040: CD F5 EB C8 0E 00 1E 0C CD 01 EE CD 2D ED C3 40 ............-..@
000050: EE 0E 0F CD 18 ED CD F5 EB C8 CD A6 EA 7E F5 E5 .............~..
000060: CD 5E EB EB 2A 43 E9 0E 20 D5 CD 4F E9 CD 78 EB .^..*C.. ..O..x.
000070: D1 21 0C 00 19 4E 21 0F 00 19 46 E1 F1 77 79 BE .!...N!...F..wy.
000080: 78 CA 8B EE 3E 00 DA 8B EE 3E 80 2A 43 E9 11 0F x...>....>.*C...
000090: 00 19 77 C9 7E 23 B6 2B C0 1A 77 13 23 1A 77 1B ..w.~#.+..w.#.w.
0000A0: 2B C9 AF 32 45 E9 32 EA F3 32 EB F3 CD 1E EB C0 +..2E.2..2......
0000B0: CD 69 EB E6 80 C0 0E 0F CD 18 ED CD F5 EB C8 01 .i..............
0000C0: 10 00 CD 5E EB 09 EB 2A 43 E9 09 0E 10 3A DD F3 ...^...*C....:..
0000D0: B7 CA E8 EE 7E B7 1A C2 DB EE 77 B7 C2 E1 EE 7E ....~.....w....~
0000E0: 12 BE C2 1F EF C3 FD EE CD 94 EE EB CD 94 EE EB ................
0000F0: 1A BE C2 1F EF 13 23 1A BE C2 1F EF 0D 13 23 0D ......#.......#.
000100: C2 CD EE 01 EC FF 09 EB 09 1A BE DA 17 EF 77 01 ..............w.
000110: 03 00 09 EB 09 7E 12 3E FF 32 D2 F3 C3 10 EE 21 .....~.>.2.....!
000120: 45 E9 35 C9 CD 54 EB 2A 43 E9 E5 21 AC F3 22 43 E.5..T.*C..!.."C
000130: E9 0E 01 CD 18 ED CD F5 EB E1 22 43 E9 C8 EB 21 .........."C...!
000140: 0F 00 19 0E 11 AF 77 23 0D C2 46 EF 21 0D 00 19 ......w#..F.!...
000150: 77 CD 8C EB CD FD ED C3 78 EB AF 32 D2 F3 CD A2 w.......x..2....
000160: EE CD F5 EB C8 2A 43 E9 01 0C 00 09 7E 3C E6 1F .....*C.....~<..
000170: 77 CA 83 EF 47 3A C5 F3 A0 21 D2 F3 A6 CA 8E EF w...G:...!......
000180: C3 AC EF 01 02 00 09 34 7E E6 0F CA B6 EF 0E 0F .......4~.......
000190: CD 18 ED CD F5 EB C2 AC EF 3A D3 F3 3C CA B6 EF .........:..<...
0001A0: CD 24 EF CD F5 EB CA B6 EF C3 AF EF CD 5A EE CD .$...........Z..
0001B0: BB EA AF C3 01 E9 CD 05 E9 C3 78 EB 3E 01 32 D5 ..........x.>.2.
0001C0: F3 3E FF 32 D3 F3 CD BB EA 3A E3 F3 21 E1 F3 BE .>.2.....:..!...
0001D0: DA E6 EF FE 80 C2 FB EF CD 5A EF AF 32 E3 F3 3A .........Z..2..:
0001E0: 45 E9 B7 C2 FB EF CD 77 EA CD 84 EA CA FB EF CD E......w........
0001F0: 8A EA CD D1 E9 CD B2 E9 C3 D2 EA C3 05 E9 3E 01 ..............>.
Size : 512 (Real : 512)
000000: D0 16 04 00 00 00 C3 11 E6 99 E6 A5 E6 AB E6 B1 ................
000010: E6 EB 22 43 E9 EB 7B 32 D6 F3 21 00 00 22 45 E9 .."C..{2..!.."E.
000020: 39 22 0F E9 31 41 E9 AF 32 E0 F3 32 DE F3 21 74 9"..1A..2..2..!t
000030: F3 E5 79 FE 29 D0 4B 21 47 E6 5F 16 00 19 19 5E ..y.).K!G._....^
000040: 23 56 2A 43 E9 EB E9 03 F4 C8 E8 90 E7 CE E8 12 #V*C............
000050: F4 0F F4 D4 E8 ED E8 F3 E8 F8 E8 E1 E7 FE E8 7E ...............~
000060: F2 83 F2 45 F2 9C F2 A5 F2 AB F2 C8 F2 D7 F2 E0 ...E............
000070: F2 E6 F2 EC F2 F5 F2 FE F2 04 F3 0A F3 11 F3 2C ...............,
000080: EB 17 F3 1D F3 26 F3 2D F3 41 F3 47 F3 4D F3 0E .....&.-.A.G.M..
000090: F2 53 F3 04 E9 04 E9 9B F3 21 CA E6 CD E5 E6 FE .S.......!......
0000A0: 03 CA 00 00 C9 21 D5 E6 C3 B4 E6 21 E1 E6 C3 B4 .....!.....!....
0000B0: E6 21 DC E6 CD E5 E6 C3 00 00 42 64 6F 73 20 45 .!........Bdos E
0000C0: 72 72 20 4F 6E 20 20 3A 20 24 42 61 64 20 53 65 rr On : $Bad Se
0000D0: 63 74 6F 72 24 53 65 6C 65 63 74 24 46 69 6C 65 ctor$Select$File
0000E0: 20 52 2F 4F 24 E5 CD C9 E7 3A 42 E9 C6 41 32 C6 R/O$....:B..A2.
0000F0: E6 01 BA E6 CD D3 E7 C1 CD D3 E7 21 0E E9 7E 36 ...........!..~6
000100: 00 B7 C0 C3 09 F4 CD FB E6 CD 14 E7 D8 F5 4F CD ..............O.
000110: 90 E7 F1 C9 FE 0D C8 FE 0A C8 FE 09 C8 FE 08 C8 ................
000120: FE 20 C9 3A 0E E9 B7 C2 45 E7 CD 06 F4 E6 01 C8 . .:....E.......
000130: CD 09 F4 FE 13 C2 42 E7 CD 09 F4 FE 03 CA 00 00 ......B.........
000140: AF C9 32 0E E9 3E 01 C9 3A 0A E9 B7 C2 62 E7 C5 ..2..>..:....b..
000150: CD 2A E7 C1 C5 CD 0C F4 C1 C5 3A 0D E9 B7 C4 0F .*........:.....
000160: F4 C1 79 21 0C E9 FE 7F C8 34 FE 20 D0 35 7E B7 ..y!.....4. .5~.
000170: C8 79 FE 08 C2 79 E7 35 C9 FE 0A C0 36 00 C9 79 .y...y.5....6..y
000180: CD 14 E7 D2 90 E7 F5 0E 5E CD 48 E7 F1 F6 40 4F ........^.H...@O
000190: 79 FE 09 C2 48 E7 0E 20 CD 48 E7 3A 0C E9 E6 07 y...H.. .H.:....
0001A0: C2 96 E7 C9 CD AC E7 0E 20 CD 0C F4 0E 08 C3 0C ........ .......
0001B0: F4 0E 23 CD 48 E7 CD C9 E7 3A 0C E9 21 0B E9 BE ..#.H....:..!...
0001C0: D0 0E 20 CD 48 E7 C3 B9 E7 0E 0D CD 48 E7 0E 0A .. .H.......H...
0001D0: C3 48 E7 0A FE 24 C8 03 C5 4F CD 90 E7 C1 C3 D3 .H...$...O......
0001E0: E7 3A 0C E9 32 0B E9 2A 43 E9 4E 23 E5 06 00 C5 .:..2..*C.N#....
0001F0: E5 CD FB E6 E6 7F E1 C1 FE 0D CA C1 E8 FE 0A CA ................
Size : 512 (Real : 512)
000000: 32 D5 F3 3E 00 32 D3 F3 CD 54 EB 2A 43 E9 CD 47 2..>.2...T.*C..G
000010: EB CD BB EA 3A E3 F3 FE 80 D2 05 E9 CD 77 EA CD ....:........w..
000020: 84 EA 0E 00 C2 6E F0 CD 3E EA 32 D7 F3 01 00 00 .....n..>.2.....
000030: B7 CA 3B F0 4F 0B CD 5E EA 44 4D CD BE ED 7D B4 ..;.O..^.DM...}.
000040: C2 48 F0 3E 02 C3 01 E9 22 E5 F3 EB 2A 43 E9 01 .H.>...."...*C..
000050: 10 00 09 3A DD F3 B7 3A D7 F3 CA 64 F0 CD 64 EB ...:...:...d..d.
000060: 73 C3 6C F0 4F 06 00 09 09 73 23 72 0E 02 3A 45 s.l.O....s#r..:E
000070: E9 B7 C0 C5 CD 8A EA 3A D5 F3 3D 3D C2 BB F0 C1 .......:..==....
000080: C5 79 3D 3D C2 BB F0 E5 2A B9 F3 57 77 23 14 F2 .y==....*..Ww#..
000090: 8C F0 CD E0 EB 2A E7 F3 0E 02 22 E5 F3 C5 CD D1 .....*....".....
0000A0: E9 C1 CD B8 E9 2A E5 F3 0E 00 3A C4 F3 47 A5 B8 .....*....:..G..
0000B0: 23 C2 9A F0 E1 22 E5 F3 CD DA EB CD D1 E9 C1 C5 #...."..........
0000C0: CD B8 E9 C1 3A E3 F3 21 E1 F3 BE DA D2 F0 77 34 ....:..!......w4
0000D0: 0E 02 00 00 21 00 DE F5 CD 69 EB E6 7F 77 F1 FE ....!....i...w..
0000E0: 7F C2 00 F1 3A D5 F3 FE 01 C2 00 F1 CD D2 EA CD ....:...........
0000F0: 5A EF 21 45 E9 7E B7 C2 FE F0 3D 32 E3 F3 36 00 Z.!E.~....=2..6.
000100: C3 D2 EA AF 32 D5 F3 C5 2A 43 E9 EB 21 21 00 19 ....2...*C..!!..
000110: 7E E6 7F F5 7E 17 23 7E 17 E6 1F 4F 7E 1F 1F 1F ~...~.#~...O~...
000120: 1F E6 0F 47 F1 23 6E 2C 2D 2E 06 C2 8B F1 21 20 ...G.#n,-.....!
000130: 00 19 77 21 0C 00 19 79 96 C2 47 F1 21 0E 00 19 ..w!...y..G.!...
000140: 78 96 E6 7F CA 7F F1 C5 D5 CD A2 EE D1 C1 2E 03 x...............
000150: 3A 45 E9 3C CA 84 F1 21 0C 00 19 71 21 0E 00 19 :E.<...!...q!...
000160: 70 CD 51 EE 3A 45 E9 3C C2 7F F1 C1 C5 2E 04 0C p.Q.:E.<........
000170: CA 84 F1 CD 24 EF 2E 05 3A 45 E9 3C CA 84 F1 C1 ....$...:E.<....
000180: AF C3 01 E9 E5 CD 69 EB 36 C0 E1 C1 7D 32 45 E9 ......i.6...}2E.
000190: C3 78 EB 0E FF CD 03 F1 CC C1 EF C9 0E 00 CD 03 .x..............
0001A0: F1 CC 03 F0 C9 EB 19 4E 06 00 21 0C 00 19 7E 0F .......N..!...~.
0001B0: E6 80 81 4F 3E 00 88 47 7E 0F E6 0F 80 47 21 0E ...O>..G~....G!.
0001C0: 00 19 7E 87 87 87 87 F5 80 47 F5 E1 7D E1 B5 E6 ..~......G..}...
0001D0: 01 C9 0E 0C CD 18 ED 2A 43 E9 11 21 00 19 E5 72 .......*C..!...r
0001E0: 23 72 23 72 CD F5 EB CA 0C F2 CD 5E EB 11 0F 00 #r#r.......^....
0001F0: CD A5 F1 E1 E5 5F 79 96 23 78 9E 23 7B 9E DA 06 ....._y.#x.#{...
Size : 512 (Real : 512)
000000: C1 E8 FE 08 C2 16 E8 78 B7 CA EF E7 05 3A 0C E9 .......x.....:..
000010: 32 0A E9 C3 70 E8 FE 7F C2 26 E8 3E 08 C3 07 E8 2...p....&.>....
000020: 7E 05 2B C3 A9 E8 FE 05 C2 37 E8 C5 E5 CD C9 E7 ~.+......7......
000030: AF 32 0B E9 C3 F1 E7 FE 10 C2 48 E8 E5 21 0D E9 .2........H..!..
000040: 3E 01 96 77 E1 C3 EF E7 FE 18 C2 5F E8 E1 3A 0B >..w......._..:.
000050: E9 21 0C E9 BE D2 E1 E7 35 CD A4 E7 C3 4E E8 FE .!......5....N..
000060: 15 C2 6B E8 CD B1 E7 E1 C3 E1 E7 FE 12 C2 A6 E8 ..k.............
000070: C5 CD B1 E7 C1 E1 E5 C5 78 B7 CA 8A E8 23 4E 05 ........x....#N.
000080: C5 E5 CD 7F E7 E1 C1 C3 78 E8 E5 3A 0A E9 B7 CA ........x..:....
000090: F1 E7 21 0C E9 96 32 0A E9 CD A4 E7 21 0A E9 35 ..!...2.....!..5
0000A0: C2 99 E8 C3 F1 E7 23 77 04 C5 E5 4F CD 7F E7 E1 ......#w...O....
0000B0: C1 7E FE 03 78 C2 BD E8 FE 01 CA 00 00 B9 DA EF .~..x...........
0000C0: E7 E1 70 0E 0D C3 48 E7 CD 06 E7 C3 01 E9 CD 15 ..p...H.........
0000D0: F4 C3 01 E9 79 3C CA E0 E8 3C CA 06 F4 C3 0C F4 ....y<...<......
0000E0: CD 06 F4 B7 CA 91 F3 CD 09 F4 C3 01 E9 3A 03 00 .............:..
0000F0: C3 01 E9 21 03 00 71 C9 EB 4D 44 C3 D3 E7 CD 23 ...!..q..MD....#
000100: E7 32 45 E9 C9 3E 01 C3 01 E9 00 00 00 00 00 00 .2E..>..........
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 21 0B E6 5E 23 56 EB E9 0C .......!..^#V...
000150: 0D C8 1A 77 13 23 C3 50 E9 3A 42 E9 4F CD 1B F4 ...w.#.P.:B.O...
000160: 7C B5 C8 5E 23 56 23 22 B3 F3 23 23 22 B5 F3 23 |..^#V#"..##"..#
000170: 23 22 B7 F3 23 23 EB 22 D0 F3 21 B9 F3 0E 08 CD #"..##."..!.....
000180: 4F E9 2A BB F3 EB 21 C1 F3 0E 0F CD 4F E9 2A C6 O.*...!.....O.*.
000190: F3 7C 21 DD F3 36 FF B7 CA 9D E9 36 00 3E FF B7 .|!..6.....6.>..
0001A0: C9 CD 18 F4 AF 2A B5 F3 77 23 77 2A B7 F3 77 23 .....*..w#w*..w#
0001B0: 77 C9 CD 27 F4 C3 BB E9 CD 2A F4 B7 C8 21 09 E6 w..'.....*...!..
0001C0: C3 4A E9 2A EA F3 0E 02 CD EA EA 22 E5 F3 22 EC .J.*......."..".
0001D0: F3 21 E5 F3 4E 23 46 2A B7 F3 5E 23 56 2A B5 F3 .!..N#F*..^#V*..
0001E0: 7E 23 66 6F 79 93 78 9A D2 FA E9 E5 2A C1 F3 7B ~#foy.x.....*..{
0001F0: 95 5F 7A 9C 57 E1 2B C3 E4 E9 E5 2A C1 F3 19 DA ._z.W.+....*....
Size : 512 (Real : 512)
000000: F2 73 2B 70 2B 71 CD 2D ED C3 E4 F1 E1 C9 2A 43 .s+p+q.-......*C
000010: E9 11 20 00 CD A5 F1 21 21 00 19 71 23 70 23 77 .. ....!!..q#p#w
000020: C9 2A AF F3 3A 42 E9 4F CD EA EA E5 EB CD 59 E9 .*..:B.O......Y.
000030: E1 CC 47 E9 7D 1F D8 2A AF F3 4D 44 CD 0B EB 22 ..G.}..*..MD..."
000040: AF F3 C3 A3 EC 3A D6 F3 21 42 E9 BE C8 77 C3 21 .....:..!B...w.!
000050: F2 3E FF 32 DE F3 2A 43 E9 7E E6 1F 3D 32 D6 F3 .>.2..*C.~..=2..
000060: FE 1E D2 75 F2 3A 42 E9 32 DF F3 7E 32 E0 F3 E6 ...u.:B.2..~2...
000070: E0 77 CD 45 F2 3A 41 E9 2A 43 E9 B6 77 C9 3E 22 .w.E.:A.*C..w.>"
000080: C3 01 E9 21 00 00 22 AD F3 22 AF F3 AF 32 42 E9 ...!..".."...2B.
000090: 21 80 00 22 B1 F3 CD DA EB C3 21 F2 CD 72 EB CD !.."......!..r..
0000A0: 51 F2 C3 51 EE CD 51 F2 C3 A2 EE 0E 00 EB 7E FE Q..Q..Q.......~.
0000B0: 3F CA C2 F2 CD A6 EA 7E FE 3F C4 72 EB CD 51 F2 ?......~.?.r..Q.
0000C0: 0E 0F CD 18 ED C3 E9 EB 2A D9 F3 22 43 E9 CD 51 ........*.."C..Q
0000D0: F2 CD 2D ED C3 E9 EB CD 51 F2 CD 9C ED C3 01 ED ..-.....Q.......
0000E0: CD 51 F2 C3 BC EF CD 51 F2 C3 FE EF CD 72 EB CD .Q.....Q.....r..
0000F0: 51 F2 C3 24 EF CD 51 F2 CD 16 EE C3 01 ED 2A AF Q..$..Q.......*.
000100: F3 C3 29 F3 3A 42 E9 C3 01 E9 EB 22 B1 F3 C3 DA ..).:B....."....
000110: EB 2A BF F3 C3 29 F3 2A AD F3 C3 29 F3 CD 51 F2 .*...).*...)..Q.
000120: CD 3B EE C3 01 ED 2A BB F3 22 45 E9 C9 3A D6 F3 .;....*.."E..:..
000130: FE FF C2 3B F3 3A 41 E9 C3 01 E9 E6 1F 32 41 E9 ...;.:A......2A.
000140: C9 CD 51 F2 C3 93 F1 CD 51 F2 C3 9C F1 CD 51 F2 ..Q.....Q.....Q.
000150: C3 D2 F1 2A 43 E9 7D 2F 5F 7C 2F 2A AF F3 A4 57 ...*C.}/_|/*...W
000160: 7D A3 5F 2A AD F3 EB 22 AF F3 7D A3 6F 7C A2 67 }._*..."..}.o|.g
000170: 22 AD F3 C9 3A DE F3 B7 CA 91 F3 2A 43 E9 36 00 "...:......*C.6.
000180: 3A E0 F3 B7 CA 91 F3 77 3A DF F3 32 D6 F3 CD 45 :......w:..2...E
000190: F2 2A 0F E9 F9 2A 45 E9 7D 44 C9 CD 51 F2 3E 02 .*...*E.}D..Q.>.
0001A0: 32 D5 F3 0E 00 CD 07 F1 CC 03 F0 C9 E5 00 00 00 2...............
0001B0: 00 80 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: 0F EA 79 95 78 9C DA 0F EA EB E1 23 C3 FA E9 E1 ..y.x......#....
000010: C5 D5 E5 EB 2A CE F3 19 44 4D CD 1E F4 D1 2A B5 ....*...DM....*.
000020: F3 73 23 72 D1 2A B7 F3 73 23 72 C1 79 93 4F 78 .s#r.*..s#r.y.Ox
000030: 9A 47 2A D0 F3 EB CD 30 F4 4D 44 C3 21 F4 21 C3 .G*....0.MD.!.!.
000040: F3 4E 3A E3 F3 B7 1F 0D C2 45 EA 47 3E 08 96 4F .N:......E.G>..O
000050: 3A E2 F3 0D CA 5C EA B7 17 C3 53 EA 80 C9 2A 43 :....\....S...*C
000060: E9 11 10 00 19 09 3A DD F3 B7 CA 71 EA 6E 26 00 ......:....q.n&.
000070: C9 09 5E 23 56 EB C9 CD 3E EA 4F 06 00 CD 5E EA ..^#V...>.O...^.
000080: 22 E5 F3 C9 2A E5 F3 7D B4 C9 3A C3 F3 2A E5 F3 "...*..}..:..*..
000090: 29 3D C2 90 EA 22 E7 F3 3A C4 F3 4F 3A E3 F3 A1 )=..."..:..O:...
0000A0: B5 6F 22 E5 F3 C9 2A 43 E9 11 0C 00 19 C9 2A 43 .o"...*C......*C
0000B0: E9 11 0F 00 19 EB 21 11 00 19 C9 CD AE EA 7E 32 ......!.......~2
0000C0: E3 F3 EB 7E 32 E1 F3 CD A6 EA 3A C5 F3 A6 32 E2 ...~2.....:...2.
0000D0: F3 C9 CD AE EA 3A D5 F3 FE 02 C2 DE EA AF 4F 3A .....:........O:
0000E0: E3 F3 81 77 EB 3A E1 F3 77 C9 0C 0D C8 7C B7 1F ...w.:..w....|..
0000F0: 67 7D 1F 6F C3 EB EA 0E 80 2A B9 F3 AF 86 23 0D g}.o.....*....#.
000100: C2 FD EA C9 0C 0D C8 29 C3 05 EB C5 3A 42 E9 4F .......)....:B.O
000110: 21 01 00 CD 04 EB C1 79 B5 6F 78 B4 67 C9 2A AD !......y.ox.g.*.
000120: F3 3A 42 E9 4F CD EA EA 7D E6 01 C9 21 AD F3 4E .:B.O...}...!..N
000130: 23 46 CD 0B EB 22 AD F3 2A C8 F3 23 EB 2A B3 F3 #F..."..*..#.*..
000140: 73 23 72 C9 CD 5E EB 11 09 00 19 7E 17 D0 21 0F s#r..^.....~..!.
000150: E6 C3 4A E9 CD 1E EB C8 21 0D E6 C3 4A E9 2A B9 ..J.....!...J.*.
000160: F3 3A E9 F3 85 6F D0 24 C9 2A 43 E9 11 0E 00 19 .:...o.$.*C.....
000170: 7E C9 CD 69 EB 36 00 C9 CD 69 EB F6 80 77 C9 2A ~..i.6...i...w.*
000180: EA F3 EB 2A B3 F3 7B 96 23 7A 9E C9 CD 7F EB D8 ...*..{.#z......
000190: 13 72 2B 73 C9 7B 95 6F 7A 9C 67 C9 0E FF 2A EC .r+s.{.oz.g...*.
0001A0: F3 EB 2A CC F3 CD 95 EB D0 C5 CD F7 EA 2A BD F3 ..*..........*..
0001B0: EB 2A EC F3 19 C1 0C CA C4 EB BE C8 CD 7F EB D0 .*..............
0001C0: CD 2C EB C9 77 C9 CD 9C EB CD E0 EB 0E 01 CD B8 .,..w...........
0001D0: E9 C3 DA EB CD E0 EB CD B2 E9 21 B1 F3 C3 E3 EB ..........!.....
0001E0: 21 B9 F3 4E 23 46 C3 24 F4 2A B9 F3 EB 2A B1 F3 !..N#F.$.*...*..
0001F0: 0E 80 C3 4F E9 21 EA F3 7E 23 BE C0 3C C9 21 FF ...O.!..~#..<.!.
Size : 512 (Real : 512)
000000: E5 50 49 50 20 20 20 20 20 43 4F 4D 00 00 00 3A .PIP COM...:
000010: 02 03 04 05 06 07 08 09 00 00 00 00 00 00 00 00 ................
000020: 00 43 43 20 20 20 20 20 20 41 52 43 00 00 00 80 .CC ARC....
000030: 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 ................
000040: 00 43 43 20 20 20 20 20 20 41 52 43 01 00 00 80 .CC ARC....
000050: 1A 1B 1C 1D 1E 1F 20 21 22 23 24 25 26 27 28 29 ...... !"#$%&'()
000060: 00 43 43 20 20 20 20 20 20 41 52 43 02 00 00 80 .CC ARC....
000070: 2A 2B 2C 2D 2E 2F 30 31 32 33 34 35 36 37 38 39 *+,-./0123456789
000080: 00 43 43 20 20 20 20 20 20 41 52 43 03 00 00 80 .CC ARC....
000090: 3A 3B 3C 3D 3E 3F 40 41 42 43 44 45 46 47 48 49 :;<=>?@ABCDEFGHI
0000A0: 00 43 43 20 20 20 20 20 20 41 52 43 04 00 00 15 .CC ARC....
0000B0: 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 00 JKL.............
0000C0: 00 43 4C 49 42 20 20 20 20 41 52 43 00 00 00 80 .CLIB ARC....
0000D0: 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 5B 5C MNOPQRSTUVWXYZ[\
0000E0: 00 43 4C 49 42 20 20 20 20 41 52 43 01 00 00 80 .CLIB ARC....
0000F0: 5D 5E 5F 60 61 62 63 64 65 66 67 68 69 6A 6B 6C ]^_`abcdefghijkl
000100: 00 43 4C 49 42 20 20 20 20 41 52 43 02 00 00 80 .CLIB ARC....
000110: 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A 7B 7C mnopqrstuvwxyz{|
000120: 00 43 4C 49 42 20 20 20 20 41 52 43 03 00 00 58 .CLIB ARC...X
000130: 7D 7E 7F 80 81 82 83 84 85 86 87 00 00 00 00 00 }~..............
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: 41 42 4F 52 54 45 44 24 42 41 44 20 50 41 52 41 ABORTED$BAD PARA
000010: 4D 45 54 45 52 24 49 4E 56 41 4C 49 44 20 55 53 METER$INVALID US
000020: 45 52 20 4E 55 4D 42 45 52 24 52 45 43 4F 52 44 ER NUMBER$RECORD
000030: 20 54 4F 4F 20 4C 4F 4E 47 24 49 4E 56 41 4C 49 TOO LONG$INVALI
000040: 44 20 44 49 47 49 54 24 45 4E 44 20 4F 46 20 46 D DIGIT$END OF F
000050: 49 4C 45 2C 20 43 54 4C 2D 5A 3F 24 43 48 45 43 ILE, CTL-Z?$CHEC
000060: 4B 53 55 4D 20 45 52 52 4F 52 24 43 4F 52 52 45 KSUM ERROR$CORRE
000070: 43 54 20 45 52 52 4F 52 2C 20 54 59 50 45 20 52 CT ERROR, TYPE R
000080: 45 54 55 52 4E 20 4F 52 20 43 54 4C 2D 5A 24 49 ETURN OR CTL-Z$I
000090: 4E 56 41 4C 49 44 20 46 4F 52 4D 41 54 24 48 45 NVALID FORMAT$HE
0000A0: 58 24 24 24 24 4E 4F 20 44 49 52 45 43 54 4F 52 X$$$$NO DIRECTOR
0000B0: 59 20 53 50 41 43 45 24 4E 4F 20 46 49 4C 45 24 Y SPACE$NO FILE$
0000C0: 43 4F 4D 24 53 54 41 52 54 20 4E 4F 54 20 46 4F COM$START NOT FO
0000D0: 55 4E 44 24 51 55 49 54 20 4E 4F 54 20 46 4F 55 UND$QUIT NOT FOU
0000E0: 4E 44 24 43 41 4E 4E 4F 54 20 43 4C 4F 53 45 20 ND$CANNOT CLOSE
0000F0: 44 45 53 54 49 4E 41 54 49 4F 4E 20 46 49 4C 45 DESTINATION FILE
000100: 24 44 45 53 54 49 4E 41 54 49 4F 4E 20 49 53 20 $DESTINATION IS
000110: 52 2F 4F 2C 20 44 45 4C 45 54 45 20 28 59 2F 4E R/O, DELETE (Y/N
000120: 29 3F 24 2A 2A 4E 4F 54 20 44 45 4C 45 54 45 44 )?$**NOT DELETED
000130: 2A 2A 24 24 24 24 24 24 24 4E 4F 54 20 46 4F 55 **$$$$$$$NOT FOU
000140: 4E 44 24 43 4F 50 59 49 4E 47 20 2D 24 52 45 51 ND$COPYING -$REQ
000150: 55 49 52 45 53 20 43 50 2F 4D 20 32 2E 30 20 4F UIRES CP/M 2.0 O
000160: 52 20 4E 45 57 45 52 20 46 4F 52 20 4F 50 45 52 R NEWER FOR OPER
000170: 41 54 49 4F 4E 2E 24 55 4E 52 45 43 4F 47 4E 49 ATION.$UNRECOGNI
000180: 5A 45 44 20 44 45 53 54 49 4E 41 54 49 4F 4E 24 ZED DESTINATION$
000190: 43 41 4E 4E 4F 54 20 57 52 49 54 45 24 49 4E 56 CANNOT WRITE$INV
0001A0: 41 4C 49 44 20 50 49 50 20 46 4F 52 4D 41 54 24 ALID PIP FORMAT$
0001B0: 43 41 4E 4E 4F 54 20 52 45 41 44 24 49 4E 56 41 CANNOT READ$INVA
0001C0: 4C 49 44 20 53 45 50 41 52 41 54 4F 52 24 31 F2 LID SEPARATOR$1.
0001D0: 1D 01 80 00 C5 1E 80 01 CC 1E CD 18 0A 3A CC 1E .............:..
0001E0: D6 00 D6 01 9F 32 A5 1E CD 4C 08 EB 3E 20 CD 84 .....2...L..> ..
0001F0: 1D D2 FD 04 01 4D 04 CD 39 08 CD 00 00 CD 16 09 .....M..9.......
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: 32 C0 1E 11 00 00 0E 19 CD 05 00 32 FC 1D 31 F2 2..........2..1.
000010: 1D CD 40 1A 3A C0 1E 32 C1 1E 21 6F 1F 36 00 2B ..@.:..2..!o.6.+
000020: 36 00 2B 36 00 21 A6 1E 36 01 23 36 00 21 F3 1D 6.+6.!..6.#6.!..
000030: 36 00 23 36 FE 3A A5 1E 1F D2 47 05 0E 2A CD 1C 6.#6.:....G..*..
000040: 08 CD 6F 09 CD 2E 08 21 4E 1F 36 FF 3A CC 1E FE ..o....!N.6.:...
000050: 00 C2 5E 05 2A FC 1D 4D CD 5E 08 CD 00 00 21 4B ..^.*..M.^....!K
000060: 1E 36 00 21 03 1E 36 00 21 A4 1E 36 00 2B 36 00 .6.!..6.!..6.+6.
000070: 01 27 1E CD 20 12 3A A9 1E FE 03 C2 81 05 C3 24 .'.. .:........$
000080: 06 3A A9 1E FE 04 C2 C3 05 3A 94 1F 3D 32 4B 1E .:.......:..=2K.
000090: CD 0C 1D 01 06 1E CD 20 12 3A A9 1E FE 02 CA A4 ....... .:......
0000A0: 05 CD 5C 18 3A F5 1D 1F D2 B7 05 01 5C 00 CD EE ..\.:.......\...
0000B0: 1C CD 78 1B C3 C0 05 01 27 1E CD EE 1C CD B2 1A ..x.....'.......
0000C0: C3 DB 07 3A A9 1E D6 02 C6 FF 9F 21 F5 1D B6 1F ...:.......!....
0000D0: D2 D6 05 CD 5C 18 CD A2 1C CD 0C 1D 01 06 1E CD ....\...........
0000E0: 20 12 3A A9 1E FE 04 C2 05 06 CD 88 1C CD C6 1C .:.............
0000F0: 01 27 1E C5 1E 21 01 06 1E CD 18 0A CD DF 1C CD .'...!..........
000100: B2 1A C3 DB 07 3A A9 1E FE 02 C2 24 06 CD 11 12 .....:.....$....
000110: 3A A8 1E FE 0D CA 1B 06 C3 24 06 CD 88 1C CD B2 :........$......
000120: 1A C3 DB 07 21 4E 1F 36 FF 01 27 1E CD 20 12 3A ....!N.6..'.. .:
000130: A9 1E D6 02 9F 21 F5 1D B6 1F D2 43 06 01 77 04 .....!.....C..w.
000140: CD AF 09 21 05 1E 36 00 3A A9 1E FE 02 C2 5E 06 ...!..6.:.....^.
000150: CD A2 1C CD 63 18 21 A8 1E 36 FF C3 7B 06 3A A8 ....c.!..6..{.:.
000160: 1E D6 13 9F 2F F5 3E 05 21 A8 1E 96 9F 2F C1 48 ..../.>.!..../.H
000170: B1 1F D2 7B 06 01 90 04 CD AF 09 3A A8 1E 3C 32 ...{.......:..<2
000180: A3 1E FE 0F C2 8A 06 CD CF 15 01 06 1E CD 20 12 .............. .
000190: 3A A9 1E D6 01 C6 FF 9F F5 3A A8 1E D6 3D C6 FF :........:...=..
0001A0: 9F C1 48 B1 1F D2 AE 06 01 9D 04 CD AF 09 21 A7 ..H...........!.
0001B0: 1F 36 01 3A A7 1F 1F D2 BE 07 3A C0 1E 32 C1 1E .6.:......:..2..
0001C0: 01 06 1E CD 20 12 21 04 1E 36 00 3A A9 1E D6 02 .... .!..6.:....
0001D0: D6 01 9F F5 3A F5 1D 2F C1 48 A1 1F D2 ED 06 CD ....:../.H......
0001E0: 88 1C CD BE 18 21 A8 1E 36 FF C3 13 07 3A A9 1E .....!..6....:..
0001F0: D6 03 C6 FF 9F F5 3E 0A 21 A8 1E 96 9F 2F F5 3E ......>.!..../.>
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: 05 96 9F C1 48 A1 C1 48 B1 1F D2 13 07 01 B0 04 ....H..H........
000010: CD AF 09 3A 5E 1F 21 04 1E B6 77 3A A8 1E 3C 32 ...:^.!...w:..<2
000020: A4 1E 3A A8 1E FE 13 C2 30 07 CD CF 15 C3 7D 07 ..:.....0.....}.
000030: 3A A8 1E FE 14 C2 40 07 0E 1A CD 45 0E C3 7D 07 :.....@....E..}.
000040: 3A A8 1E D6 05 9F 21 05 1E A6 1F D2 53 07 21 57 :.....!.....S.!W
000050: 1F 36 01 3A A3 1E FE 0A C2 7A 07 21 5D 1F 36 01 .6.:.....z.!].6.
000060: 3A 63 1F FE 00 C2 6D 07 21 63 1F 36 08 3A 5F 1F :c....m.!c.6.:_.
000070: FE 00 C2 7A 07 21 5F 1F 36 01 CD 6C 1A CD 12 19 ...z.!_.6..l....
000080: 01 06 1E CD 20 12 3A A9 1E D6 01 C6 FF 9F F5 3A .... .:........:
000090: A8 1E D6 2C C6 FF 9F F5 3A A8 1E D6 0D C6 FF 9F ...,....:.......
0000A0: C1 48 A1 C1 48 B1 1F D2 B0 07 01 BC 04 CD AF 09 .H..H...........
0000B0: 3A A8 1E D6 0D C6 FF 9F 32 A7 1F C3 B3 06 3A A3 :.......2.....:.
0000C0: 1E FE 0F C2 CE 07 0E 1A CD 45 0E CD CF 15 3A A3 .........E....:.
0000D0: 1E FE 00 C2 DB 07 0E 00 CD 31 19 3A A5 1E 32 CC .........1.:..2.
0000E0: 1E C3 14 05 FB 76 21 F2 1D 71 21 F2 07 E5 2A 38 .....v!..q!...*8
0000F0: 02 E9 C9 21 FB 07 E5 2A 36 02 E9 3A 09 01 C9 3E ...!...*6..:...>
000100: FA CD A6 1D 3E FA CD A6 1D C9 11 00 00 0E 03 CD ....>...........
000110: 05 00 C9 11 00 00 0E 01 CD 05 00 C9 21 AB 1E 71 ............!..q
000120: 3A AB 1E E6 7F 5F 16 00 0E 02 CD 05 00 C9 0E 0D :...._..........
000130: CD 1C 08 0E 0A CD 1C 08 C9 21 AD 1E 70 2B 71 CD .........!..p+q.
000140: 2E 08 2A AC 1E EB 0E 09 CD 05 00 C9 11 00 00 0E ..*.............
000150: 0C CD 05 00 C9 11 00 00 0E 0D CD 05 00 C9 21 AF ..............!.
000160: 1E 71 2A AF 1E 26 00 EB 0E 0E CD 05 00 C9 21 B1 .q*..&........!.
000170: 1E 70 2B 71 2A B0 1E EB 0E 0F CD 05 00 32 AE 1E .p+q*........2..
000180: C9 21 B3 1E 70 2B 71 2A B2 1E EB 0E 10 CD 05 00 .!..p+q*........
000190: 32 AE 1E C9 21 B5 1E 70 2B 71 2A B4 1E EB 0E 11 2...!..p+q*.....
0001A0: CD 05 00 32 AE 1E C9 11 00 00 0E 12 CD 05 00 32 ...2...........2
0001B0: AE 1E C9 21 B7 1E 70 2B 71 2A B6 1E EB 0E 13 CD ...!..p+q*......
0001C0: 05 00 C9 21 B9 1E 70 2B 71 2A B8 1E EB 0E 14 CD ...!..p+q*......
0001D0: 05 00 C9 21 BB 1E 70 2B 71 2A BA 1E EB 0E 15 CD ...!..p+q*......
0001E0: 05 00 C9 21 BD 1E 70 2B 71 2A BC 1E EB 0E 16 CD ...!..p+q*......
0001F0: 05 00 32 AE 1E C9 21 BF 1E 70 2B 71 2A BE 1E EB ..2...!..p+q*...
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: 0E 17 CD 05 00 C9 21 C3 1E 70 2B 71 2A C2 1E EB ......!..p+q*...
000010: 0E 1E CD 05 00 C9 11 FF 00 0E 20 CD 05 00 C9 21 .......... ....!
000020: C4 1E 71 2A C4 1E 26 00 EB 0E 20 CD 05 00 C9 2A ..q*..&... ....*
000030: C0 1E 4D CD 1F 09 C9 2A C1 1E 4D CD 1F 09 C9 21 ..M....*..M....!
000040: C6 1E 70 2B 71 2A C5 1E EB 0E 21 CD 05 00 C9 21 ..p+q*....!....!
000050: C8 1E 70 2B 71 2A C7 1E EB 0E 22 CD 05 00 C9 21 ..p+q*...."....!
000060: CA 1E 70 2B 71 2A C9 1E EB 0E 24 CD 05 00 C9 21 ..p+q*....$....!
000070: CB 1E 36 80 11 CB 1E 0E 0A CD 05 00 C9 11 00 00 ..6.............
000080: 0E 0B CD 05 00 C9 21 6B 1F 70 2B 71 2A 6A 1F EB ......!k.p+q*j..
000090: 0E 1A CD 05 00 C9 3E 0C D3 01 3E 08 D3 01 DB 01 ......>...>.....
0000A0: 07 07 07 1F DA AA 09 C3 9E 09 DB 03 E6 7F C9 21 ...............!
0000B0: 71 1F 70 2B 71 CD 2F 09 2A 70 1F 44 4D CD 39 08 q.p+q./.*p.DM.9.
0000C0: 0E 3A CD 1C 08 0E 20 CD 1C 08 3A 4D 1F 32 72 1F .:.... ...:M.2r.
0000D0: 3A 4E 1F 21 72 1F BE DA F8 09 21 CC 1E 3A 72 1F :N.!r.....!..:r.
0000E0: BE D2 F1 09 2A 72 1F 26 00 01 CD 1E 09 4E CD 1C ....*r.&.....N..
0000F0: 08 21 72 1F 34 C2 D0 09 21 CC 1E 36 00 01 3A 02 .!r.4...!..6..:.
000100: CD 94 08 3A AE 1E FE FF CA 11 0A 01 3A 02 CD B3 ...:........:...
000110: 08 CD 2E 08 C3 0E 05 C9 21 77 1F 73 2B 70 2B 71 ........!w.s+p+q
000120: 2B D1 C1 70 2B 71 D5 3A 77 1F 3D 32 77 1F FE FF +..p+q.:w.=2w...
000130: CA 4E 0A 2A 73 1F E5 2A 75 1F C1 0A 77 2A 73 1F .N.*s..*u...w*s.
000140: 23 22 73 1F 2A 75 1F 23 22 75 1F C3 27 0A C9 21 #"s.*u.#"u..'..!
000150: 00 00 22 9D 1E 2A 03 1E 4D CD 5E 08 CD 37 09 21 .."..*..M.^..7.!
000160: 78 1F 36 00 3A FB 1D 21 78 1F BE DA BE 0A 2A 9D x.6.:..!x.....*.
000170: 1E EB 2A 01 1E 19 44 4D CD 86 09 01 06 1E CD C3 ..*...DM........
000180: 08 32 79 1F FE 00 CA AD 0A 3A 79 1F FE 01 CA 97 .2y......:y.....
000190: 0A 01 94 02 CD AF 09 2A 9D 1E 22 9F 1E EB 2A 01 .......*.."...*.
0001A0: 1E 19 36 1A 3A FB 1D 32 78 1F C3 B7 0A 11 80 00 ..6.:..2x.......
0001B0: 2A 9D 1E 19 22 9D 1E 21 78 1F 34 C2 64 0A 21 00 *..."..!x.4.d.!.
0001C0: 00 22 9D 1E CD 2F 09 C9 0E 07 21 A1 1E CD 6A 1D .".../....!...j.
0001D0: 7D 3D 32 7C 1F FE FF C2 DB 0A C9 21 00 00 22 A1 }=2|.......!..".
0001E0: 1E 2A 4B 1E 4D CD 5E 08 01 27 1E CD 5F 09 21 7A .*K.M.^..'.._.!z
0001F0: 1F 36 00 3A 7C 1F 21 7A 1F BE DA 31 0B 2A A1 1E .6.:|.!z...1.*..
Size : 512 (Real : 512)
000000: C3 CE 04 C9 00 00 C9 00 00 1A 00 00 00 00 00 00 ................
000010: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000020: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000030: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000040: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000050: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000060: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000070: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000080: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000090: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
0000A0: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
0000B0: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
0000C0: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
0000D0: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
0000E0: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
0000F0: 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 (INP:/OUT:SPACE)
000100: 20 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 COPYRIGHT (C)
000110: 20 31 39 37 39 2C 20 44 49 47 49 54 41 4C 20 52 1979, DIGITAL R
000120: 45 53 45 41 52 43 48 2C 20 20 50 49 50 20 56 45 ESEARCH, PIP VE
000130: 52 53 20 31 2E 35 03 01 06 01 00 24 24 24 20 20 RS 1.5.....$$$
000140: 20 20 20 53 55 42 00 00 00 20 3D 2E 3A 2C 3C 3E SUB... =.:,<>
000150: 0D 5F 5B 5D 49 4E 50 49 52 44 50 54 52 55 52 31 ._[]INPIRDPTRUR1
000160: 55 52 32 52 44 52 4F 55 54 4C 50 54 55 4C 31 50 UR2RDROUTLPTUL1P
000170: 52 4E 4C 53 54 50 54 50 55 50 31 55 50 32 50 55 RNLSTPTPUP1UP2PU
000180: 4E 54 54 59 43 52 54 55 43 31 43 4F 4E 4E 55 4C NTTYCRTUC1CONNUL
000190: 45 4F 46 00 44 49 53 4B 20 52 45 41 44 20 45 52 EOF.DISK READ ER
0001A0: 52 4F 52 24 44 49 53 4B 20 57 52 49 54 45 20 45 ROR$DISK WRITE E
0001B0: 52 52 4F 52 24 56 45 52 49 46 59 20 45 52 52 4F RROR$VERIFY ERRO
0001C0: 52 24 4E 4F 54 20 41 20 43 48 41 52 41 43 54 45 R$NOT A CHARACTE
0001D0: 52 20 53 49 4E 4B 24 52 45 41 44 45 52 20 53 54 R SINK$READER ST
0001E0: 4F 50 50 49 4E 47 0D 0A 24 4E 4F 54 20 41 20 43 OPPING..$NOT A C
0001F0: 48 41 52 41 43 54 45 52 20 53 4F 55 52 43 45 24 HARACTER SOURCE$
Size : 512 (Real : 512)
000000: 01 CA 1F 09 22 7D 1F 2A 7D 1F 44 4D CD 86 09 01 ...."}.*}.DM....
000010: 27 1E CD D3 08 FE 00 CA 20 0B 01 A4 02 CD AF 09 '....... .......
000020: 11 80 00 2A A1 1E 19 22 A1 1E 21 7A 1F 34 C2 F3 ...*..."..!z.4..
000030: 0A 3A 65 1F 1F D2 C9 0B 21 00 00 22 A1 1E 01 80 .:e.....!.."....
000040: 00 CD 86 09 21 7A 1F 36 00 3A 7C 1F 21 7A 1F BE ....!z.6.:|.!z..
000050: DA C0 0B 01 27 1E CD 3F 09 D6 00 D6 01 9F 32 7F ....'..?......2.
000060: 1F 2A 48 1E 23 22 48 1E 21 7B 1F 36 00 3A 7B 1F .*H.#"H.!{.6.:{.
000070: D6 80 9F 21 7F 1F A6 1F D2 A2 0B 2A 7B 1F 26 00 ...!.......*{.&.
000080: 01 80 00 09 3A 7B 1F 11 A1 1E E5 CD 34 1D 01 CA ....:{......4...
000090: 1F 09 C1 0A 96 D6 01 9F 32 7F 1F 21 7B 1F 34 C3 ........2..!{.4.
0000A0: 6D 0B 11 80 00 2A A1 1E 19 22 A1 1E 3A 7F 1F 1F m....*..."..:...
0000B0: DA B9 0B 01 B5 02 CD AF 09 21 7A 1F 34 C2 49 0B .........!z.4.I.
0000C0: 01 27 1E CD D3 08 32 7F 1F 21 00 00 22 A1 1E C9 .'....2..!.."...
0000D0: 21 80 1F 71 3A 80 1F FE 20 DA F4 0B 21 F3 1D 34 !..q:... ...!..4
0000E0: 3E 00 21 53 1F BE D2 F4 0B 3A 53 1F 21 F3 1D BE >.!S.....:S.!...
0000F0: D2 F4 0B C9 3A 03 00 32 81 1F 2A A3 1E 4D 06 00 ....:..2..*..M..
000100: 21 DD 0C 09 09 5E 23 56 EB E9 01 FF 1D 11 A1 1E !....^#V........
000110: CD 8E 1D DA 19 0C CD C8 0A 2A A1 1E 01 CA 1F 09 .........*......
000120: 3A 80 1F 77 2A A1 1E 23 22 A1 1E C3 05 0D C3 3D :..w*..#"......=
000130: 0C C3 3D 0C C3 3D 0C C3 3D 0C C3 3D 0C 01 C2 02 ..=..=..=..=....
000140: CD AF 09 C3 05 0D 2A 80 1F 4D CD E6 07 C3 05 0D ......*..M......
000150: 21 03 00 36 80 C3 71 0C C3 05 0D 21 03 00 36 C0 !..6..q....!..6.
000160: C3 71 0C C3 05 0D 21 03 00 36 80 C3 71 0C C3 05 .q....!..6..q...
000170: 0D 2A 80 1F 26 00 EB 0E 05 CD 05 00 C3 05 0D 21 .*..&..........!
000180: 03 00 36 10 C3 A0 0C C3 05 0D 21 03 00 36 20 C3 ..6.......!..6 .
000190: A0 0C C3 05 0D 21 03 00 36 30 C3 A0 0C C3 05 0D .....!..60......
0001A0: 2A 80 1F 26 00 EB 0E 04 CD 05 00 C3 05 0D 21 03 *..&..........!.
0001B0: 00 36 00 C3 CF 0C C3 05 0D 21 03 00 36 01 C3 CF .6.......!..6...
0001C0: 0C C3 05 0D 21 03 00 36 03 C3 CF 0C C3 05 0D 2A ....!..6.......*
0001D0: 80 1F 26 00 EB 0E 02 CD 05 00 C3 05 0D 0A 0C 2E ..&.............
0001E0: 0C 31 0C 34 0C 37 0C 3A 0C 3D 0C 46 0C 50 0C 5B .1.4.7.:.=.F.P.[
0001F0: 0C 66 0C 71 0C 7F 0C 8A 0C 95 0C A0 0C AE 0C B9 .f.q............
Size : 512 (Real : 512)
000000: C3 B7 15 3A A8 1E D6 53 D6 01 9F F5 3A A8 1E D6 ...:...S....:...
000010: 51 D6 01 9F C1 48 B1 1F D2 49 15 3A 4E 1F 3C 32 Q....H...I.:N.<2
000020: 9F 1F CD F2 11 32 A8 1E D6 1A D6 01 9F F5 3A A8 .....2........:.
000030: 1E D6 0D D6 01 9F C1 48 B1 1F DA 40 15 C3 22 15 .......H...@..".
000040: CD F2 11 32 A8 1E C3 8D 15 CD F2 11 32 A8 1E D6 ...2........2...
000050: 30 32 9F 1F 4F 3E 09 B9 D2 63 15 21 9F 1F 36 01 02..O>...c.!..6.
000060: C3 8D 15 CD F2 11 32 A8 1E D6 30 32 99 1F 4F 3E ......2...02..O>
000070: 09 B9 DA 8D 15 2A 9F 1F 26 00 CD 4F 1D E5 2A 99 .....*..&..O..*.
000080: 1F 26 00 C1 09 EB 21 9F 1F 73 C3 63 15 2A 9E 1F .&....!..s.c.*..
000090: 26 00 01 50 1F 09 3A 9F 1F 77 3A 9E 1F FE 06 C2 &..P..:..w:.....
0000A0: B7 15 3E 1F 21 9F 1F BE D2 B1 15 01 16 03 CD AF ..>.!...........
0000B0: 09 3A 9F 1F 32 C1 1E C3 C2 14 CD F2 11 32 A8 1E .:..2........2..
0000C0: C9 3A A8 1E FE 5F C2 CE 15 21 A8 1E 36 3D C9 21 .:..._...!..6=.!
0000D0: A3 1F 36 00 3E 27 21 A3 1F BE DA E9 15 0E 00 CD ..6.>'!.........
0000E0: 45 0E 21 A3 1F 34 C2 D4 15 C9 21 A9 1F 70 2B 71 E.!..4....!..p+q
0000F0: 2A A8 1F E5 1E 03 01 30 1E CD 18 0A C9 21 AD 1F *......0.....!..
000100: 72 2B 73 2B 70 2B 71 2A AC 1F 7E FE 24 CA 37 16 r+s+p+q*..~.$.7.
000110: 2A AC 1F 3E 7F A6 2A AA 1F F5 3E 7F A6 C1 48 B9 *..>..*...>...H.
000120: CA 26 16 3E 00 C9 2A AA 1F 23 22 AA 1F 2A AC 1F .&.>..*..#"..*..
000130: 23 22 AC 1F C3 07 16 3E 01 C9 CD 0D 11 32 A8 1E #".....>.....2..
000140: 3A 04 1E 1F D2 52 16 01 9D 1E 11 9F 1E CD 8E 1D :....R..........
000150: 9F C9 3A A8 1E D6 1A D6 01 9F C9 21 AF 1F 36 01 ..:........!..6.
000160: 21 9C 1E 36 00 CD 3D 17 32 B5 1F FE 3A CA 99 16 !..6..=.2...:...
000170: 21 9C 1E 36 00 3A B5 1F FE 1A C2 93 16 01 48 03 !..6.:........H.
000180: CD 39 08 CD 13 08 FE 1A C2 8E 16 3E 01 C9 21 9C .9.........>..!.
000190: 1E 36 00 CD 2D 17 C3 65 16 21 B5 1F 36 00 CD BB .6..-..e.!..6...
0001A0: 17 32 B4 1F FE 00 C2 C7 16 CD 3D 17 32 B4 1F FE .2........=.2...
0001B0: 1A CA BA 16 CD 2D 17 C3 A9 16 3A AF 1F 1F D2 C4 .....-....:.....
0001C0: 16 3E 01 C9 3E 02 C9 CD C4 17 22 B7 1F CD BB 17 .>..>.....".....
0001D0: 32 B6 1F 3A B4 1F D6 00 C6 FF 9F 21 AF 1F A6 1F 2..:.......!....
0001E0: D2 F0 16 21 B4 1F 35 CD BB 17 32 B3 1F C3 D3 16 ...!..5...2.....
0001F0: CD AC 17 21 B5 1F 86 FE 00 CA 02 17 01 5C 03 CD ...!.........\..
Size : 512 (Real : 512)
000000: 0C C4 0C CF 0C 3A 81 1F 32 03 00 C9 21 82 1F 71 .....:..2...!..q
000010: 3A 82 1F FE 09 CA 22 0D 2A 82 1F 4D CD D0 0B C3 :.....".*..M....
000020: 6E 0D 3A 63 1F FE 00 C2 34 0D 2A 82 1F 4D CD D0 n.:c....4.*..M..
000030: 0B C3 6E 0D 3A F3 1D 32 83 1F 21 63 1F 3A 83 1F ..n.:..2..!c.:..
000040: BE DA 51 0D 21 63 1F 3A 83 1F 96 32 83 1F C3 3A ..Q.!c.:...2...:
000050: 0D 21 83 1F 3A 63 1F 96 77 3E 00 21 83 1F BE D2 .!..:c..w>.!....
000060: 6E 0D 21 83 1F 35 0E 20 CD D0 0B C3 59 0D 3A 82 n.!..5. ....Y.:.
000070: 1F FE 0D C2 7B 0D 21 F3 1D 36 00 C9 21 84 1F 71 ....{.!..6..!..q
000080: 3A 84 1F D6 00 D6 01 9F 21 6C 1F A6 77 1F D2 99 :.......!l..w...
000090: 0D 0E 20 CD 0C 0D C3 A2 0D 3A 84 1F C6 30 4F CD .. ......:...0O.
0000A0: 0C 0D C9 21 85 1F 71 3A 85 1F E6 F8 1F 1F 1F 1F ...!..q:........
0000B0: 4F CD 7C 0D 3A 85 1F E6 0F 4F CD 7C 0D C9 21 86 O.|.:....O.|..!.
0000C0: 1F 36 01 3A 5D 1F D6 01 D6 01 9F 32 6C 1F 3A 6F .6.:]......2l.:o
0000D0: 1F 86 27 32 6F 1F 3A 6E 1F CE 00 27 32 6E 1F 3A ..'2o.:n...'2n.:
0000E0: 6D 1F CE 00 27 32 6D 1F 2A 6D 1F 4D CD A3 0D 2A m...'2m.*m.M...*
0000F0: 6E 1F 4D CD A3 0D 2A 6F 1F 4D CD A3 0D 3A 5D 1F n.M...*o.M...:].
000100: FE 01 C2 12 0E 0E 3A CD 0C 0D 0E 20 CD 0C 0D C3 ......:.... ....
000110: 17 0E 0E 09 CD 0C 0D C9 2A A1 1E 7D E6 7F 32 89 ........*..}..2.
000120: 1F 11 80 FF CD 44 1D 22 87 1F CD C8 0A 2A 87 1F .....D.".....*..
000130: 01 CA 1F 09 E5 2A 89 1F EB CD 18 0A 2A 89 1F 26 .....*......*..&
000140: 00 22 A1 1E C9 21 8A 1F 71 3A 55 1F 1F D2 59 0E ."...!..q:U...Y.
000150: 3A 8A 1F FE 0C C2 59 0E C9 3A A6 1E 1F D2 A9 0E :.....Y..:......
000160: 3A 8A 1F FE 0C CA A9 0E 3A 5F 1F 32 8B 1F FE 00 :.......:_.2....
000170: CA 98 0E 3A 8B 1F FE 01 C2 80 0E 21 8B 1F 36 3C ...:.......!..6<
000180: 3A F4 1D 3C 32 F4 1D 21 8B 1F BE DA 98 0E 21 F4 :..<2..!......!.
000190: 1D 36 00 0E 0C CD 0C 0D 3E 00 21 5D 1F BE D2 A4 .6......>.!]....
0001A0: 0E CD BE 0D 21 A6 1E 36 00 3A 51 1F 1F D2 CC 0E ....!..6.:Q.....
0001B0: 3A 8A 1F D6 13 D6 01 9F F5 3A A3 1E D6 00 D6 01 :........:......
0001C0: 9F C1 48 A1 1F D2 CC 0E CD 18 0E C9 3A 8A 1F FE ..H.........:...
0001D0: 0C C2 D9 0E 21 F4 1D 36 00 2A 8A 1F 4D CD 0C 0D ....!..6.*..M...
0001E0: 3A 8A 1F FE 0A C2 ED 0E 21 A6 1E 36 01 C9 21 8C :.......!..6..!.
0001F0: 1F 71 3A 8C 1F D6 61 9F 2F F5 3E 7A 21 8C 1F 96 .q:...a./.>z!...
Size : 512 (Real : 512)
000000: 12 17 CD 2D 17 3A AF 1F 1F D2 0F 17 3E 00 C9 3E ...-.:......>..>
000010: 02 C9 21 B1 1F 70 2B 71 3A AF 1F 1F D2 2C 17 21 ..!..p+q:....,.!
000020: AF 1F 36 00 2A B0 1F 44 4D CD 39 08 C9 3A AE 1F ..6.*..DM.9..:..
000030: 1F D2 3C 17 21 AE 1F 36 00 CD 18 0E C9 3A AF 1F ..<.!..6.....:..
000040: 1F D2 7A 17 CD 0D 11 32 B2 1F FE 13 C2 57 17 21 ..z....2.....W.!
000050: AE 1F 36 01 C3 44 17 2A 9C 1E 26 00 01 4C 1E 09 ..6..D.*..&..L..
000060: 3A B2 1F 77 3A 9C 1E 3C 32 9C 1E FE 4F DA 76 17 :..w:..<2...O.v.
000070: 01 2A 03 CD 12 17 3A B2 1F C9 3E 1A C9 CD 3D 17 .*....:...>...=.
000080: 32 B9 1F D6 30 4F 3E 09 B9 DA 92 17 3A B9 1F D6 2...0O>.....:...
000090: 30 C9 3A B9 1F D6 41 4F 3E 05 B9 D2 A4 17 01 3A 0.:...AO>......:
0000A0: 03 CD 12 17 3A B9 1F D6 41 C6 0A C9 CD 7D 17 87 ....:...A....}..
0000B0: 87 87 87 F5 CD 7D 17 C1 48 B1 C9 CD AC 17 21 B5 .....}..H.....!.
0000C0: 1F 86 77 C9 CD BB 17 4F 06 00 60 69 0E 08 CD 64 ..w....O..`i...d
0000D0: 1D E5 CD BB 17 E1 CD 56 1D C9 CD 5B 16 32 BA 1F .......V...[.2..
0000E0: 4F 3E 01 B9 DA 32 18 3A BA 1F D6 01 D6 01 9F 21 O>...2.:.......!
0000F0: 58 1F A6 1F DA 1C 18 21 BB 1F 36 01 3A 9C 1E 21 X......!..6.:..!
000100: BB 1F BE DA 1C 18 3A BB 1F 3D 4F 06 00 21 4C 1E ......:..=O..!L.
000110: 09 4E CD 45 0E 21 BB 1F 34 C2 FC 17 0E 0D CD 45 .N.E.!..4......E
000120: 0E 0E 0A CD 45 0E 3A BA 1F FE 01 C2 2F 18 C9 C3 ....E.:...../...
000130: DA 17 CD 2E 08 2A 9C 1E 26 00 01 4C 1E 09 36 24 .....*..&..L..6$
000140: 01 4C 1E CD 39 08 01 6B 03 CD 39 08 CD 2E 08 CD .L..9..k..9.....
000150: 13 08 FE 1A C2 58 18 C9 C3 DA 17 C9 01 8F 03 CD .....X..........
000160: AF 09 C9 2A 4B 1E 4D CD 5E 08 11 9E 03 01 30 1E ...*K.M.^.....0.
000170: CD FD 15 32 05 1E 01 30 1E C5 1E 03 01 A4 1F CD ...2...0........
000180: 18 0A 3A 30 1E E6 7F 32 30 1E 3A 31 1E E6 7F 32 ..:0...20.:1...2
000190: 31 1E 01 A2 03 CD EA 15 01 27 1E CD B3 08 01 27 1........'.....'
0001A0: 1E CD E3 08 3A AE 1E FE FF C2 B2 18 01 A5 03 CD ....:...........
0001B0: AF 09 21 47 1E 36 00 21 00 00 22 A1 1E C9 21 FF ..!G.6.!.."...!.
0001C0: FF 22 9F 1E CD 37 09 2A 03 1E 4D CD 5E 08 01 06 ."...7.*..M.^...
0001D0: 1E CD 6E 08 CD 2F 09 3A 61 1F 2F F5 3A 10 1E 07 ..n../.:a./.:...
0001E0: C1 48 A1 1F D2 EC 18 21 AE 1E 36 FF 3A AE 1E FE .H.....!..6.:...
0001F0: FF C2 FA 18 01 B8 03 CD AF 09 21 26 1E 36 00 11 ..........!&.6..
Size : 512 (Real : 512)
000000: 9F 2F C1 48 A1 1F D2 11 0F 3A 8C 1F E6 5F 32 8C ./.H.....:..._2.
000010: 1F 3A 8C 1F C9 21 8D 1F 71 3A 8D 1F D6 41 9F 2F .:...!..q:...A./
000020: F5 3E 5A 21 8D 1F 96 9F 2F C1 48 A1 1F D2 38 0F .>Z!..../.H...8.
000030: 3A 8D 1F F6 20 32 8D 1F 3A 8D 1F C9 3A A4 1E 3D :... 2..:...:..=
000040: 4F 3E 05 B9 DA 6D 0F 3A 57 1F 21 51 1F B6 F5 CD O>...m.:W.!Q....
000050: 7D 09 C1 48 A1 1F D2 6D 0F CD 13 08 FE 1A C2 64 }..H...m.......d
000060: 0F 3E 1A C9 01 D7 02 CD 39 08 3E 13 C9 21 90 1F .>......9.>..!..
000070: 36 01 3A 03 00 32 8E 1F 2A A4 1E 4D 06 00 21 45 6.:..2..*..M..!E
000080: 10 09 09 5E 23 56 EB E9 01 FD 1D 11 9D 1E CD 8E ...^#V..........
000090: 1D DA 97 0F CD 4F 0A 2A 9D 1E EB 2A 01 1E 19 7E .....O.*...*...~
0000A0: 32 8F 1F 2A 9D 1E 23 22 9D 1E C3 6D 10 CD F3 07 2..*..#"...m....
0000B0: 32 8F 1F C3 6D 10 CD 96 09 32 8F 1F C3 6D 10 21 2...m....2...m.!
0000C0: 03 00 36 04 C3 E0 0F C3 6D 10 21 03 00 36 08 C3 ..6.....m.!..6..
0000D0: E0 0F C3 6D 10 21 03 00 36 0C C3 E0 0F C3 6D 10 ...m.!..6.....m.
0000E0: 11 00 00 0E 03 CD 05 00 E6 7F 32 8F 1F C3 6D 10 ..........2...m.
0000F0: C3 08 10 C3 08 10 C3 08 10 C3 08 10 C3 08 10 C3 ................
000100: 08 10 C3 08 10 C3 08 10 01 E9 02 CD AF 09 C3 6D ...............m
000110: 10 21 03 00 36 00 C3 32 10 C3 6D 10 21 03 00 36 .!..6..2..m.!..6
000120: 01 C3 32 10 C3 6D 10 21 03 00 36 03 C3 32 10 C3 ..2..m.!..6..2..
000130: 6D 10 21 90 1F 36 00 11 00 00 0E 01 CD 05 00 32 m.!..6.........2
000140: 8F 1F C3 6D 10 88 0F AD 0F B6 0F BF 0F CA 0F D5 ...m............
000150: 0F E0 0F F0 0F F3 0F F6 0F F9 0F FC 0F FF 0F 02 ................
000160: 10 05 10 08 10 11 10 1C 10 27 10 32 10 3A 8E 1F .........'.2.:..
000170: 32 03 00 3A 54 1F 1F D2 92 10 3A A3 1E 32 8E 1F 2..:T.....:..2..
000180: 21 A3 1E 36 13 2A 8F 1F 4D CD 45 0E 3A 8E 1F 32 !..6.*..M.E.:..2
000190: A3 1E 3A 90 1F 1F D2 DC 10 3A 04 1E 1F D2 B2 10 ..:......:......
0001A0: 3A A7 1E 3C 32 A7 1E D6 00 D6 01 9F 32 90 1F C3 :..<2.......2...
0001B0: BD 10 3A 8F 1F D6 0A D6 01 9F 32 90 1F 3A 90 1F ..:.......2..:..
0001C0: 1F D2 DC 10 CD 7D 09 1F D2 DC 10 CD 13 08 FE 1A .....}..........
0001D0: C2 D6 10 3E 1A C9 01 00 03 CD AF 09 3A 69 1F 1F ...>........:i..
0001E0: D2 EB 10 3A 8F 1F E6 7F 32 8F 1F 3A 64 1F 1F D2 ...:....2..:d...
0001F0: FA 10 2A 8F 1F 4D CD EE 0E C9 3A 5B 1F 1F D2 09 ..*..M....:[....
Size : 512 (Real : 512)
000000: C0 03 01 0F 1E CD FD 15 32 04 1E 2A FD 1D 22 9D ........2..*..".
000010: 1E C9 3E 00 21 62 1F BE D2 21 19 01 C4 03 CD AF ..>.!b...!......
000020: 09 3E 00 21 60 1F BE D2 30 19 01 D4 03 CD AF 09 .>.!`...0.......
000030: C9 21 BC 1F 71 3A BC 1F 1F D2 45 19 3A 13 1E 32 .!..q:....E.:..2
000040: 34 1E C3 4A 19 21 34 1E 36 00 2A A1 1E 7D E6 7F 4..J.!4.6.*..}..
000050: FE 00 CA 61 19 21 34 1E 34 0E 1A CD 45 0E C3 4A ...a.!4.4...E..J
000060: 19 CD 12 19 CD C8 0A 2A 4B 1E 4D CD 5E 08 01 27 .......*K.M.^..'
000070: 1E CD 81 08 3A AE 1E FE FF C2 82 19 01 E3 03 CD ....:...........
000080: AF 09 01 A4 1F CD EA 15 21 33 1E 36 00 01 27 1E ........!3.6..'.
000090: CD 6E 08 3A AE 1E FE FF CA E9 19 3A 30 1E 07 1F .n.:.......:0...
0000A0: D2 E3 19 3A 66 1F 1F DA D5 19 01 01 04 CD 39 08 ...:f.........9.
0000B0: CD 13 08 4F CD EE 0E FE 59 CA D2 19 01 23 04 CD ...O....Y....#..
0000C0: 39 08 CD 2E 08 01 33 04 CD EA 15 01 27 1E CD B3 9.....3.....'...
0000D0: 08 C9 CD 2E 08 3A 30 1E E6 7F 32 30 1E 01 27 1E .....:0...20..'.
0000E0: CD 06 09 01 27 1E CD B3 08 01 27 1E C5 1E 10 01 ....'.....'.....
0000F0: 37 1E CD 18 0A 01 36 04 CD EA 15 01 27 1E CD F6 7.....6.....'...
000100: 08 C9 0E 07 21 FF 1D CD 6A 1D 3E FF CD 41 1D 2B ....!...j.>..A.+
000110: EB 21 FB 1D 73 C9 21 CA 1F 22 01 1E 01 00 40 11 .!..s.!.."....@.
000120: FF 1D CD 93 1D DA 31 1A 21 80 7F 22 FF 1D C3 3C ......1.!.."...<
000130: 1A 2A FD 1D EB 2A FF 1D 19 22 FF 1D CD 02 1A C9 .*...*..."......
000140: 01 CA 1F 11 06 00 CD 93 1D 0E 01 E5 CD 6E 1D 01 .............n..
000150: CA 1F 09 22 01 1E 11 00 FF E1 CD 44 1D 0E 01 CD ...".......D....
000160: 6E 1D 22 FD 1D 22 FF 1D CD 02 1A C9 3A A4 1E D6 n.".."......:...
000170: 00 C6 FF 9F 21 51 1F A6 32 BD 1F 1F D2 82 1A CD ....!Q..2.......
000180: 16 1A 3A 58 1F 21 57 1F B6 1F D2 93 1A CD DA 17 ..:X.!W.........
000190: C3 A4 1A CD 3A 16 1F DA A4 1A 2A A8 1E 4D CD 45 ....:.....*..M.E
0001A0: 0E C3 93 1A 3A BD 1F 1F D2 B1 1A CD 18 0E CD 40 ....:..........@
0001B0: 1A C9 CD 40 1A 3A 4F 1F 32 4D 1F CD 63 18 CD BE ...@.:O.2M..c...
0001C0: 18 21 BE 1F 36 01 23 36 00 3E 19 21 BF 1F BE DA .!..6.#6.>.!....
0001D0: 29 1B 2A BF 1F 26 00 01 50 1F 09 7E FE 00 CA 22 ).*..&..P..~..."
0001E0: 1B 3A BF 1F D6 06 D6 01 9F F5 3A BF 1F D6 0E D6 .:........:.....
0001F0: 01 9F C1 48 B1 F5 3A BF 1F D6 11 D6 01 9F C1 48 ...H..:........H
Size : 512 (Real : 512)
000000: 11 2A 8F 1F 4D CD 15 0F C9 3A 8F 1F C9 3E 00 21 .*..M....:...>.!
000010: FA 1D BE D2 28 11 3A FA 1D 3D 32 FA 1D FE 01 C2 ....(.:..=2.....
000020: 25 11 3E 0A C9 3E 1A C9 3E 00 21 F8 1D BE D2 46 %.>..>..>.!....F
000030: 11 21 F8 1D 35 2B 4E 06 00 21 CD 1E 09 7E 32 91 .!..5+N..!...~2.
000040: 1F 21 F7 1D 34 C9 CD 3C 0F 32 91 1F FE 1A C2 54 .!..4..<.2.....T
000050: 11 3E 1A C9 3E 00 21 62 1F BE D2 7D 11 2A 62 1F .>..>.!b...}.*b.
000060: 4D CD AD 11 1F D2 7A 11 3A 62 1F 32 F7 1D 21 62 M.....z.:b.2..!b
000070: 1F 36 00 3A F9 1D 3C 32 F8 1D C3 A9 11 3E 00 21 .6.:..<2.....>.!
000080: 60 1F BE D2 A5 11 2A 60 1F 4D CD AD 11 1F D2 9E `.....*`.M......
000090: 11 21 60 1F 36 00 21 FA 1D 36 02 3E 0D C9 3A 91 .!`.6.!..6.>..:.
0000A0: 1F C9 C3 A9 11 3A 91 1F C9 C3 28 11 C9 21 92 1F .....:....(..!..
0000B0: 71 3A F9 1D 21 92 1F 86 77 4F 06 00 21 CD 1E 09 q:..!...wO..!...
0000C0: 7E 32 93 1F FE 1A C2 D9 11 2A 92 1F 26 00 01 CD ~2.......*..&...
0000D0: 1E 09 3A 91 1F 77 3E 01 C9 21 91 1F 3A 93 1F BE ..:..w>..!..:...
0000E0: C2 EA 11 21 F9 1D 34 C3 EF 11 21 F9 1D 36 00 3E ...!..4...!..6.>
0000F0: 00 C9 3A 4E 1F 3C 32 4E 1F 21 CC 1E BE DA 03 12 ..:N.<2N.!......
000100: 3E 0D C9 2A 4E 1F 26 00 01 CD 1E 09 4E CD EE 0E >..*N.&.....N...
000110: C9 CD F2 11 32 A8 1E FE 20 C2 1F 12 C3 11 12 C9 ....2... .......
000120: 21 96 1F 70 2B 71 21 F5 1D 36 00 21 A9 1E 36 00 !..p+q!..6.!..6.
000130: 2B 36 20 21 AA 1E 36 00 3A AA 1E FE 20 D2 53 12 +6 !..6.:... .S.
000140: 3A AA 1E FE 0B C2 4D 12 21 A8 1E 36 00 CD 67 14 :.....M.!..6..g.
000150: C3 38 12 CD 11 12 3A 4E 1F 32 4D 1F 2A A8 1E 4D .8....:N.2M.*..M
000160: CD 38 14 1F D2 70 12 CD C1 15 21 A9 1E 36 01 C9 .8...p....!..6..
000170: 21 94 1F 36 00 21 97 1F 36 00 3E 19 21 97 1F BE !..6.!..6.>.!...
000180: DA 95 12 2A 97 1F 26 00 01 50 1F 09 36 00 21 97 ...*..&..P..6.!.
000190: 1F 34 C2 7A 12 21 F6 1D 36 00 21 F8 1D 36 00 23 .4.z.!..6.!..6.#
0001A0: 36 00 23 36 00 21 AA 1E 36 00 2A A8 1E 4D CD 38 6.#6.!..6.*..M.8
0001B0: 14 1F DA DA 12 3A AA 1E FE 08 DA BE 12 C9 3A A8 .....:........:.
0001C0: 1E FE 2A C2 CE 12 0E 08 CD 87 14 C3 D1 12 CD 67 ..*............g
0001D0: 14 CD F2 11 32 A8 1E C3 AA 12 3A A8 1E FE 3A C2 ....2.....:...:.
0001E0: BF 13 3A 94 1F FE 00 CA EB 12 C9 3A AA 1E FE 01 ..:........:....
0001F0: C2 2C 13 0E 01 CD A1 14 D6 41 3C 32 94 1F 4F 3E .,.......A<2..O>
Size : 512 (Real : 512)
000000: B1 F5 3A BF 1F D6 15 D6 01 9F C1 48 B1 F5 3A BF ..:........H..:.
000010: 1F D6 16 D6 01 9F C1 48 B1 1F DA 22 1B 21 BE 1F .......H...".!..
000020: 36 00 21 BF 1F 34 C2 C9 1A 3A BE 1F 1F D2 5F 1B 6.!..4...:...._.
000030: CD 16 1A CD 6A 1B 1F DA 59 1B CD 4F 0A CD 6A 1B ....j...Y..O..j.
000040: 1F D2 4D 1B 2A 9F 1E 22 A1 1E C3 53 1B 2A FF 1D ..M.*.."...S.*..
000050: 22 A1 1E CD C8 0A C3 33 1B CD 40 1A C3 62 1B CD "......3..@..b..
000060: 6C 1A 2A BE 1F 4D CD 31 19 C9 01 FF FF 11 9F 1E l.*..M.1........
000070: CD 93 1D B5 C6 FF 9F C9 21 00 00 22 C0 1F 22 C4 ........!.."..".
000080: 1F CD 37 09 2A 03 1E 4D CD 5E 08 01 80 00 CD 86 ..7.*..M.^......
000090: 09 01 5C 00 CD 94 08 21 00 00 22 C2 1F 3A AE 1E ..\....!.."..:..
0000A0: D6 FF C6 FF 9F 01 C0 1F 11 C2 1F F5 CD 8E 1D 9F ................
0000B0: C1 48 A1 1F D2 C4 1B 2A C2 1F 23 22 C2 1F CD A7 .H.....*..#"....
0000C0: 08 C3 9D 1B CD 2F 09 3A AE 1E FE FF C2 E5 1B 3E ...../.:.......>
0000D0: 00 11 C4 1F CD 9B 1D B5 C2 E1 1B 01 39 04 CD AF ............9...
0000E0: 09 CD 2E 08 C9 2A C2 1F 23 22 C0 1F 3A AE 1E E6 .....*..#"..:...
0000F0: 03 87 87 87 87 87 5F 16 00 21 80 00 19 E5 1E 10 ......_..!......
000100: 01 27 1E CD 18 0A 21 27 1E 36 00 21 33 1E 36 00 .'....!'.6.!3.6.
000110: 01 27 1E C5 1E 10 01 06 1E CD 18 0A 3A 31 1E 07 .'..........:1..
000120: 2F 21 61 1F B6 1F D2 45 1C 2A C4 1F 23 22 C4 1F /!a....E.*..#"..
000130: 3E 01 CD 7A 1D B5 C2 3F 1C 01 43 04 CD 39 08 CD >..z...?..C..9..
000140: 49 1C CD B2 1A C3 81 1B C9 CD 2E 08 21 C6 1F 36 I...........!..6
000150: 01 3E 0B 21 C6 1F BE DA 87 1C 2A C6 1F 26 00 01 .>.!......*..&..
000160: 27 1E 09 7E 32 C7 1F FE 20 CA 80 1C 3A C6 1F FE '..~2... ...:...
000170: 09 C2 79 1C 0E 2E CD 1C 08 2A C7 1F 4D CD 1C 08 ..y......*..M...
000180: 21 C6 1F 34 C2 51 1C C9 3E 00 21 94 1F BE D2 9B !..4.Q..>.!.....
000190: 1C 3A 94 1F 3D 32 03 1E C3 A1 1C 3A FC 1D 32 03 .:..=2.....:..2.
0001A0: 1E C9 3A F6 1D 1F D2 AC 1C CD 5C 18 3E 00 21 94 ..:.......\.>.!.
0001B0: 1F BE D2 BF 1C 3A 94 1F 3D 32 4B 1E C3 C5 1C 3A .....:..=2K....:
0001C0: FC 1D 32 4B 1E C9 21 C0 1E 3A C1 1E BE CA D1 1C ..2K..!..:......
0001D0: C9 21 03 1E 3A 4B 1E BE C2 DE 1C CD 5C 18 C9 CD .!..:K......\...
0001E0: 11 12 3A A8 1E FE 0D CA ED 1C CD 5C 18 C9 21 C9 ..:........\..!.
0001F0: 1F 70 2B 71 CD 88 1C CD DF 1C 01 06 1E C5 2A C8 .p+q..........*.
Size : 512 (Real : 512)
000000: 1A B9 D2 06 13 C9 CD 11 12 2A A8 1E 4D CD 38 14 .........*..M.8.
000010: 1F D2 29 13 3A A8 1E FE 5B C2 1F 13 CD B1 14 21 ..).:...[......!
000020: 4E 1F 35 21 A9 1E 36 04 C9 C3 B1 13 3A AA 1E FE N.5!..6.....:...
000030: 03 CA 35 13 C9 21 A1 1F 36 FF 23 36 00 3E 14 21 ..5..!..6.#6.>.!
000040: A2 1F BE DA B0 13 21 A0 1F 36 00 3A A0 1F 3C 32 ......!..6.:..<2
000050: A0 1F 4F 3E 03 91 9F 2F F5 3A A0 1F 21 A1 1F 86 ..O>.../.:..!...
000060: 4F 06 00 21 54 02 09 E5 2A A0 1F 4D CD A1 14 E1 O..!T...*..M....
000070: 96 D6 01 9F C1 48 A1 1F D2 7E 13 C3 4B 13 3A A0 .....H...~..K.:.
000080: 1F FE 04 C2 A1 13 21 A9 1E 36 03 CD F2 11 FE 5B ......!..6.....[
000090: C2 96 13 CD B1 14 21 4E 1F 35 3A A2 1F 32 A8 1E ......!N.5:..2..
0000A0: C9 3A A1 1F C6 03 32 A1 1F 21 A2 1F 34 C2 3D 13 .:....2..!..4.=.
0000B0: C9 3A A8 1E FE 5B C2 BC 13 CD B1 14 C3 34 14 3A .:...[.......4.:
0000C0: AA 1E FE 00 C2 C8 13 C9 21 AA 1E 36 08 3A A8 1E ........!..6.:..
0000D0: FE 2E C2 02 14 CD F2 11 32 A8 1E 4F CD 38 14 1F ........2..O.8..
0000E0: DA 02 14 3A AA 1E FE 0B DA EC 13 C9 3A A8 1E FE ...:........:...
0000F0: 2A C2 FC 13 0E 0B CD 87 14 C3 FF 13 CD 67 14 C3 *............g..
000100: D5 13 3A A8 1E FE 5B C2 0D 14 CD B1 14 21 4E 1F ..:...[......!N.
000110: 35 21 A9 1E 36 02 3A 94 1F FE 00 C2 25 14 3A FC 5!..6.:.....%.:.
000120: 1D 3C 32 94 1F 2A 95 1F 36 00 01 20 00 2A 95 1F .<2..*..6.. .*..
000130: 09 36 00 C9 C3 A5 12 C9 21 9A 1F 71 21 9B 1F 36 .6......!..q!..6
000140: 00 3E 0A 21 9B 1F BE DA 64 14 2A 9B 1F 26 00 01 .>.!....d.*..&..
000150: 49 02 09 3A 9A 1F BE C2 5D 14 3E 01 C9 21 9B 1F I..:....].>..!..
000160: 34 C2 41 14 3E 00 C9 3A AA 1E 3C 32 AA 1E 4F 06 4.A.>..:..<2..O.
000170: 00 2A 95 1F 09 3A A8 1E 77 3A A8 1E FE 3F C2 86 .*...:..w:...?..
000180: 14 21 F5 1D 36 01 C9 21 9C 1F 71 21 A8 1E 36 3F .!..6..!..q!..6?
000190: 21 9C 1F 3A AA 1E BE D2 A0 14 CD 67 14 C3 90 14 !..:.......g....
0001A0: C9 21 9D 1F 71 2A 9D 1F 26 00 EB 2A 95 1F 19 7E .!..q*..&..*...~
0001B0: C9 21 F6 1D 36 01 3A C0 1E 32 C1 1E CD F2 11 32 .!..6.:..2.....2
0001C0: A8 1E 3A A8 1E D6 0D D6 01 9F F5 3A A8 1E D6 5D ..:........:...]
0001D0: D6 01 9F C1 48 B1 1F DA BA 15 3A A8 1E D6 41 32 ....H.....:...A2
0001E0: 9E 1F 4F 3E 19 B9 D2 03 15 3A A8 1E FE 20 C2 FA ..O>.....:... ..
0001F0: 14 CD F2 11 32 A8 1E C3 00 15 01 08 03 CD AF 09 ....2...........
Size : 512 (Real : 512)
000000: 1F 44 4D 1E 21 CD 18 0A CD C6 1C C9 01 06 1E CD .DM.!...........
000010: 20 12 3A A9 1E D6 01 D6 01 9F F5 3A A8 1E D6 3D .:........:...=
000020: D6 01 9F C1 48 A1 1F DA 2D 1D CD 5C 18 3A 4E 1F ....H...-..\.:N.
000030: 32 4F 1F C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C 67 2O..._.....o...g
000040: C9 5F 16 00 7B A5 6F 7A A4 67 C9 5E 23 56 EB 29 ._..{.oz.g.^#V.)
000050: E5 29 29 C1 09 C9 5F 16 00 7B B5 6F 7A B4 67 C9 .))..._..{.oz.g.
000060: 5E 23 56 EB 29 0D C2 64 1D C9 5E 23 56 EB 7C B7 ^#V.)..d..^#V.|.
000070: 1F 67 7D 1F 6F 0D C2 6E 1D C9 5F 16 00 7B 95 6F .g}.o..n.._..{.o
000080: 7A 9C 67 C9 4F 06 00 7B 91 6F 7A 98 67 C9 69 60 z.g.O..{.oz.g.i`
000090: 4E 23 46 1A 91 6F 13 1A 98 67 C9 6F 26 00 1A 95 N#F..o...g.o&...
0000A0: 6F 13 1A 9C 67 C9 06 0C 48 0D C2 A9 1D 3D C2 A8 o...g...H....=..
0000B0: 1D C9 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: 01 27 1E CD 18 0A 21 27 1E 36 00 21 33 1E 36 00 .'....!'.6.!3.6.
000110: 01 27 1E C5 1E 10 01 06 1E CD 18 0A 3A 31 1E 07 .'..........:1..
000120: 2F 21 61 1F B6 1F D2 45 1C 2A C4 1F 23 22 C4 1F /!a....E.*..#"..
000130: 3E 01 CD 7A 1D B5 C2 3F 1C 01 43 04 CD 39 08 CD >..z...?..C..9..
000140: 49 1C CD B2 1A C3 81 1B C9 CD 2E 08 21 C6 1F 36 I...........!..6
000150: 01 3E 0B 21 C6 1F BE DA 87 1C 2A C6 1F 26 00 01 .>.!......*..&..
000160: 27 1E 09 7E 32 C7 1F FE 20 CA 80 1C 3A C6 1F FE '..~2... ...:...
000170: 09 C2 79 1C 0E 2E CD 1C 08 2A C7 1F 4D CD 1C 08 ..y......*..M...
000180: 21 C6 1F 34 C2 51 1C C9 3E 00 21 94 1F BE D2 9B !..4.Q..>.!.....
000190: 1C 3A 94 1F 3D 32 03 1E C3 A1 1C 3A FC 1D 32 03 .:..=2.....:..2.
0001A0: 1E C9 3A F6 1D 1F D2 AC 1C CD 5C 18 3E 00 21 94 ..:.......\.>.!.
0001B0: 1F BE D2 BF 1C 3A 94 1F 3D 32 4B 1E C3 C5 1C 3A .....:..=2K....:
0001C0: FC 1D 32 4B 1E C9 21 C0 1E 3A C1 1E BE CA D1 1C ..2K..!..:......
0001D0: C9 21 03 1E 3A 4B 1E BE C2 DE 1C CD 5C 18 C9 CD .!..:K......\...
0001E0: 11 12 3A A8 1E FE 0D CA ED 1C CD 5C 18 C9 21 C9 ..:........\..!.
0001F0: 1F 70 2B 71 CD 88 1C CD DF 1C 01 06 1E C5 2A C8 .p+q..........*.
Size : 512 (Real : 512)
000000: 59 4D 54 42 53 5A 20 20 20 33 30 35 30 20 20 2F YMTBSZ 3050 /
000010: 2A 20 4E 55 4D 4C 4F 43 53 2A 53 59 4D 41 56 47 * NUMLOCS*SYMAVG
000020: 20 2B 20 4E 55 4D 47 4C 42 53 2A 53 59 4D 4D 41 + NUMGLBS*SYMMA
000030: 58 20 2A 2F 0D 0A 20 0D 0A 2F 2A 0D 0A 2A 2A 20 X */.. ../*..**
000040: 53 79 73 74 65 6D 20 77 69 64 65 20 6E 61 6D 65 System wide name
000050: 20 73 69 7A 65 20 28 66 6F 72 20 73 79 6D 62 6F size (for symbo
000060: 6C 73 29 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 ls)..*/..#define
000070: 20 4E 41 4D 45 53 49 5A 45 20 39 0D 0A 23 64 65 NAMESIZE 9..#de
000080: 66 69 6E 65 20 4E 41 4D 45 4D 41 58 20 20 38 0D fine NAMEMAX 8.
000090: 0A 20 0D 0A 2F 2A 0D 0A 2A 2A 20 70 6F 73 73 69 . ../*..** possi
0000A0: 62 6C 65 20 65 6E 74 72 69 65 73 20 66 6F 72 20 ble entries for
0000B0: 22 49 44 45 4E 54 22 0D 0A 2A 2F 0D 0A 23 64 65 "IDENT"..*/..#de
0000C0: 66 69 6E 65 20 4C 41 42 45 4C 20 20 20 20 30 0D fine LABEL 0.
0000D0: 0A 23 64 65 66 69 6E 65 20 56 41 52 49 41 42 4C .#define VARIABL
0000E0: 45 20 31 0D 0A 23 64 65 66 69 6E 65 20 41 52 52 E 1..#define ARR
0000F0: 41 59 20 20 20 20 32 0D 0A 23 64 65 66 69 6E 65 AY 2..#define
000100: 20 50 4F 49 4E 54 45 52 20 20 33 0D 0A 23 64 65 POINTER 3..#de
000110: 66 69 6E 65 20 46 55 4E 43 54 49 4F 4E 20 34 0D fine FUNCTION 4.
000120: 0A 20 0D 0A 2F 2A 0D 0A 2A 2A 20 70 6F 73 73 69 . ../*..** possi
000130: 62 6C 65 20 65 6E 74 72 69 65 73 20 66 6F 72 20 ble entries for
000140: 22 54 59 50 45 22 0D 0A 2A 2A 20 20 20 20 6C 6F "TYPE"..** lo
000150: 77 20 6F 72 64 65 72 20 32 20 62 69 74 73 20 6D w order 2 bits m
000160: 61 6B 65 20 74 79 70 65 20 75 6E 69 71 75 65 20 ake type unique
000170: 77 69 74 68 69 6E 20 6C 65 6E 67 74 68 0D 0A 2A within length..*
000180: 2A 20 20 20 20 68 69 67 68 20 6F 72 64 65 72 20 * high order
000190: 62 69 74 73 20 67 69 76 65 20 6C 65 6E 67 74 68 bits give length
0001A0: 20 6F 66 20 6F 62 6A 65 63 74 0D 0A 2A 2F 0D 0A of object..*/..
0001B0: 2F 2A 20 20 20 20 20 20 4C 41 42 45 4C 20 20 20 /* LABEL
0001C0: 30 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 43 43 0 */..#define CC
0001D0: 48 41 52 20 20 20 28 31 3C 3C 32 29 0D 0A 23 64 HAR (1<<2)..#d
0001E0: 65 66 69 6E 65 20 43 49 4E 54 20 20 20 20 28 42 efine CINT (B
0001F0: 50 57 3C 3C 32 29 0D 0A 20 0D 0A 2F 2A 0D 0A 2A PW<<2).. ../*..*
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: 2A 20 70 6F 73 73 69 62 6C 65 20 65 6E 74 72 69 * possible entri
000010: 65 73 20 66 6F 72 20 22 43 4C 41 53 53 22 0D 0A es for "CLASS"..
000020: 2A 2F 0D 0A 2F 2A 20 20 20 20 20 20 4C 41 42 45 */../* LABE
000030: 4C 20 20 20 20 20 30 20 2A 2F 0D 0A 23 64 65 66 L 0 */..#def
000040: 69 6E 65 20 53 54 41 54 49 43 20 20 20 20 31 0D ine STATIC 1.
000050: 0A 23 64 65 66 69 6E 65 20 41 55 54 4F 4D 41 54 .#define AUTOMAT
000060: 49 43 20 32 0D 0A 23 64 65 66 69 6E 65 20 45 58 IC 2..#define EX
000070: 54 45 52 4E 41 4C 20 20 33 0D 0A 23 64 65 66 69 TERNAL 3..#defi
000080: 6E 65 20 41 55 54 4F 45 58 54 20 20 20 34 0D 0A ne AUTOEXT 4..
000090: 0D 0A 2F 2A 0D 0A 2A 2A 20 22 73 77 69 74 63 68 ../*..** "switch
0000A0: 22 20 74 61 62 6C 65 0D 0A 2A 2F 0D 0A 23 64 65 " table..*/..#de
0000B0: 66 69 6E 65 20 53 57 53 49 5A 20 20 20 28 32 2A fine SWSIZ (2*
0000C0: 42 50 57 29 0D 0A 23 64 65 66 69 6E 65 20 53 57 BPW)..#define SW
0000D0: 54 41 42 53 5A 20 28 36 30 2A 53 57 53 49 5A 29 TABSZ (60*SWSIZ)
0000E0: 0D 0A 20 0D 0A 2F 2A 0D 0A 2A 2A 20 22 77 68 69 .. ../*..** "whi
0000F0: 6C 65 22 20 73 74 61 74 65 6D 65 6E 74 20 71 75 le" statement qu
000100: 65 75 65 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 eue..*/..#define
000110: 20 57 51 54 41 42 53 5A 20 20 33 30 0D 0A 23 64 WQTABSZ 30..#d
000120: 65 66 69 6E 65 20 57 51 53 49 5A 20 20 20 20 20 efine WQSIZ
000130: 33 0D 0A 23 64 65 66 69 6E 65 20 57 51 4D 41 58 3..#define WQMAX
000140: 20 20 20 28 77 71 2B 57 51 54 41 42 53 5A 2D 57 (wq+WQTABSZ-W
000150: 51 53 49 5A 29 0D 0A 20 0D 0A 2F 2A 0D 0A 2A 2A QSIZ).. ../*..**
000160: 20 65 6E 74 72 79 20 6F 66 66 73 65 74 73 20 69 entry offsets i
000170: 6E 20 77 68 69 6C 65 20 71 75 65 75 65 0D 0A 2A n while queue..*
000180: 2F 0D 0A 23 64 65 66 69 6E 65 20 57 51 53 50 20 /..#define WQSP
000190: 20 20 20 30 0D 0A 23 64 65 66 69 6E 65 20 57 51 0..#define WQ
0001A0: 4C 4F 4F 50 20 20 31 0D 0A 23 64 65 66 69 6E 65 LOOP 1..#define
0001B0: 20 57 51 45 58 49 54 20 20 32 0D 0A 20 0D 0A 2F WQEXIT 2.. ../
0001C0: 2A 0D 0A 2A 2A 20 6C 69 74 65 72 61 6C 20 70 6F *..** literal po
0001D0: 6F 6C 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 ol..*/..#define
0001E0: 4C 49 54 41 42 53 5A 20 38 30 30 0D 0A 23 64 65 LITABSZ 800..#de
0001F0: 66 69 6E 65 20 4C 49 54 4D 41 58 20 20 28 4C 49 fine LITMAX (LI
Size : 512 (Real : 512)
000000: 3E 3E 3E 20 53 54 44 49 4F 2E 48 20 32 39 36 0D >>> STDIO.H 296.
000010: 0A 2F 2A 0D 0A 2A 2A 20 53 54 44 49 4F 2E 48 20 ./*..** STDIO.H
000020: 2D 2D 20 53 74 61 6E 64 61 72 64 20 53 6D 61 6C -- Standard Smal
000030: 6C 2D 43 20 44 65 66 69 6E 69 74 69 6F 6E 73 0D l-C Definitions.
000040: 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 73 74 64 .*/..#define std
000050: 69 6E 20 20 20 20 30 0D 0A 23 64 65 66 69 6E 65 in 0..#define
000060: 20 73 74 64 6F 75 74 20 20 20 31 0D 0A 23 64 65 stdout 1..#de
000070: 66 69 6E 65 20 73 74 64 65 72 72 20 20 20 32 0D fine stderr 2.
000080: 0A 23 64 65 66 69 6E 65 20 45 52 52 20 20 20 28 .#define ERR (
000090: 2D 32 29 0D 0A 23 64 65 66 69 6E 65 20 45 4F 46 -2)..#define EOF
0000A0: 20 20 20 28 2D 31 29 0D 0A 23 64 65 66 69 6E 65 (-1)..#define
0000B0: 20 59 45 53 20 20 20 20 20 20 31 0D 0A 23 64 65 YES 1..#de
0000C0: 66 69 6E 65 20 4E 4F 20 20 20 20 20 20 20 30 0D fine NO 0.
0000D0: 0A 23 64 65 66 69 6E 65 20 4E 55 4C 4C 20 20 20 .#define NULL
0000E0: 20 20 30 0D 0A 23 64 65 66 69 6E 65 20 43 52 20 0..#define CR
0000F0: 20 20 20 20 20 31 33 0D 0A 23 64 65 66 69 6E 65 13..#define
000100: 20 4C 46 20 20 20 20 20 20 31 30 0D 0A 23 64 65 LF 10..#de
000110: 66 69 6E 65 20 42 45 4C 4C 20 20 20 20 20 37 0D fine BELL 7.
000120: 0A 23 64 65 66 69 6E 65 20 53 50 41 43 45 20 20 .#define SPACE
000130: 27 20 27 0D 0A 23 64 65 66 69 6E 65 20 4E 45 57 ' '..#define NEW
000140: 4C 49 4E 45 20 4C 46 0D 0A 3E 3E 3E 20 4E 4F 54 LINE LF..>>> NOT
000150: 49 43 45 2E 48 20 39 39 0D 0A 23 64 65 66 69 6E ICE.H 99..#defin
000160: 65 20 56 45 52 53 49 4F 4E 20 22 56 65 72 73 69 e VERSION "Versi
000170: 6F 6E 20 32 2E 31 20 28 52 65 76 2E 20 36 37 29 on 2.1 (Rev. 67)
000180: 5C 6E 22 0D 0A 23 64 65 66 69 6E 65 20 43 52 49 \n"..#define CRI
000190: 47 48 54 31 20 22 43 6F 70 79 72 69 67 68 74 20 GHT1 "Copyright
0001A0: 31 39 38 32 2C 20 31 39 38 33 20 4A 2E 20 45 2E 1982, 1983 J. E.
0001B0: 20 48 65 6E 64 72 69 78 5C 6E 5C 6E 22 0D 0A 3E Hendrix\n\n"..>
0001C0: 3E 3E 20 43 43 2E 44 45 46 20 32 37 37 30 0D 0A >> CC.DEF 2770..
0001D0: 2F 2A 0D 0A 2A 2A 20 53 6D 61 6C 6C 2D 43 20 43 /*..** Small-C C
0001E0: 6F 6D 70 69 6C 65 72 20 53 79 6D 62 6F 6C 20 44 ompiler Symbol D
0001F0: 65 66 69 6E 69 74 69 6F 6E 73 0D 0A 2A 2F 0D 0A efinitions..*/..
Size : 512 (Real : 512)
000000: 54 41 42 53 5A 2D 31 29 0D 0A 20 0D 0A 2F 2A 0D TABSZ-1).. ../*.
000010: 0A 2A 2A 20 69 6E 70 75 74 20 6C 69 6E 65 0D 0A .** input line..
000020: 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 4C 49 4E 45 */..#define LINE
000030: 4D 41 58 20 20 31 32 37 0D 0A 23 64 65 66 69 6E MAX 127..#defin
000040: 65 20 4C 49 4E 45 53 49 5A 45 20 31 32 38 0D 0A e LINESIZE 128..
000050: 0D 0A 2F 2A 0D 0A 2A 2A 20 6F 75 74 70 75 74 20 ../*..** output
000060: 73 74 61 67 69 6E 67 20 62 75 66 66 65 72 20 73 staging buffer s
000070: 69 7A 65 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 ize..*/..#define
000080: 20 53 54 41 47 45 53 49 5A 45 20 20 20 38 30 30 STAGESIZE 800
000090: 0D 0A 23 64 65 66 69 6E 65 20 53 54 41 47 45 4C ..#define STAGEL
0000A0: 49 4D 49 54 20 20 28 53 54 41 47 45 53 49 5A 45 IMIT (STAGESIZE
0000B0: 2D 31 29 0D 0A 20 0D 0A 2F 2A 0D 0A 2A 2A 20 6D -1).. ../*..** m
0000C0: 61 63 72 6F 20 28 64 65 66 69 6E 65 29 20 70 6F acro (define) po
0000D0: 6F 6C 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 ol..*/..#define
0000E0: 4D 41 43 4E 42 52 20 20 20 31 33 30 0D 0A 23 64 MACNBR 130..#d
0000F0: 65 66 69 6E 65 20 4D 41 43 4E 53 49 5A 45 20 28 efine MACNSIZE (
000100: 4D 41 43 4E 42 52 2A 28 4E 41 4D 45 53 49 5A 45 MACNBR*(NAMESIZE
000110: 2B 32 29 29 0D 0A 23 64 65 66 69 6E 65 20 4D 41 +2))..#define MA
000120: 43 4E 45 4E 44 20 20 28 6D 61 63 6E 2B 4D 41 43 CNEND (macn+MAC
000130: 4E 53 49 5A 45 29 0D 0A 23 64 65 66 69 6E 65 20 NSIZE)..#define
000140: 4D 41 43 51 53 49 5A 45 20 28 4D 41 43 4E 42 52 MACQSIZE (MACNBR
000150: 2A 37 29 0D 0A 23 64 65 66 69 6E 65 20 4D 41 43 *7)..#define MAC
000160: 4D 41 58 20 20 20 28 4D 41 43 51 53 49 5A 45 2D MAX (MACQSIZE-
000170: 31 29 0D 0A 20 0D 0A 2F 2A 0D 0A 2A 2A 20 73 74 1).. ../*..** st
000180: 61 74 65 6D 65 6E 74 20 74 79 70 65 73 0D 0A 2A atement types..*
000190: 2F 0D 0A 23 64 65 66 69 6E 65 20 53 54 49 46 20 /..#define STIF
0001A0: 20 20 20 20 20 31 0D 0A 23 64 65 66 69 6E 65 20 1..#define
0001B0: 53 54 57 48 49 4C 45 20 20 20 32 0D 0A 23 64 65 STWHILE 2..#de
0001C0: 66 69 6E 65 20 53 54 52 45 54 55 52 4E 20 20 33 fine STRETURN 3
0001D0: 0D 0A 23 64 65 66 69 6E 65 20 53 54 42 52 45 41 ..#define STBREA
0001E0: 4B 20 20 20 34 0D 0A 23 64 65 66 69 6E 65 20 53 K 4..#define S
0001F0: 54 43 4F 4E 54 20 20 20 20 35 0D 0A 23 64 65 66 TCONT 5..#def
Size : 512 (Real : 512)
000000: 0D 0A 2F 2A 0D 0A 2A 2A 20 63 6F 6D 70 69 6C 65 ../*..** compile
000010: 20 6F 70 74 69 6F 6E 73 0D 0A 2A 2F 0D 0A 23 64 options..*/..#d
000020: 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 09 2F efine NOCCARGC./
000030: 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F * no argument co
000040: 75 6E 74 73 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 unts */..#define
000050: 20 53 45 50 41 52 41 54 45 09 2F 2A 20 63 6F 6D SEPARATE./* com
000060: 70 69 6C 65 20 73 65 70 61 72 61 74 65 6C 79 20 pile separately
000070: 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 4F 50 54 49 */..#define OPTI
000080: 4D 49 5A 45 09 2F 2A 20 63 6F 6D 70 69 6C 65 20 MIZE./* compile
000090: 6F 75 74 70 75 74 20 6F 70 74 69 6D 69 7A 65 72 output optimizer
0000A0: 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 44 59 4E */..#define DYN
0000B0: 41 4D 49 43 20 09 2F 2A 20 61 6C 6C 6F 63 61 74 AMIC ./* allocat
0000C0: 65 20 6D 65 6D 6F 72 79 20 64 79 6E 61 6D 69 63 e memory dynamic
0000D0: 61 6C 6C 79 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 ally */..#define
0000E0: 20 43 4F 4C 09 09 2F 2A 20 74 65 72 6D 69 6E 61 COL../* termina
0000F0: 74 65 20 6C 61 62 65 6C 73 20 77 69 74 68 20 61 te labels with a
000100: 20 63 6F 6C 6F 6E 20 2A 2F 0D 0A 2F 2A 20 23 64 colon */../* #d
000110: 65 66 69 6E 65 20 55 50 50 45 52 09 2F 2A 20 66 efine UPPER./* f
000120: 6F 72 63 65 20 73 79 6D 62 6F 6C 73 20 74 6F 20 orce symbols to
000130: 75 70 70 65 72 20 63 61 73 65 20 2A 2F 0D 0A 23 upper case */..#
000140: 64 65 66 69 6E 65 20 4C 49 4E 4B 09 09 2F 2A 20 define LINK../*
000150: 77 69 6C 6C 20 75 73 65 20 77 69 74 68 20 6C 69 will use with li
000160: 6E 6B 69 6E 67 20 6C 6F 61 64 65 72 20 2A 2F 0D nking loader */.
000170: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 6D 61 63 68 69 6E .../*..** machin
000180: 65 20 64 65 70 65 6E 64 65 6E 74 20 70 61 72 61 e dependent para
000190: 6D 65 74 65 72 73 0D 0A 2A 2F 0D 0A 23 64 65 66 meters..*/..#def
0001A0: 69 6E 65 20 42 50 57 20 20 20 20 20 32 09 2F 2A ine BPW 2./*
0001B0: 20 62 79 74 65 73 20 70 65 72 20 77 6F 72 64 20 bytes per word
0001C0: 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 4C 42 50 57 */..#define LBPW
0001D0: 20 20 20 20 31 09 2F 2A 20 6C 6F 67 32 28 42 50 1./* log2(BP
0001E0: 57 29 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 53 W) */..#define S
0001F0: 42 50 43 20 20 20 20 31 09 2F 2A 20 73 74 61 63 BPC 1./* stac
Size : 512 (Real : 512)
000000: 69 6E 65 20 53 54 41 53 4D 20 20 20 20 20 36 0D ine STASM 6.
000010: 0A 23 64 65 66 69 6E 65 20 53 54 45 58 50 52 20 .#define STEXPR
000020: 20 20 20 37 0D 0A 23 64 65 66 69 6E 65 20 53 54 7..#define ST
000030: 44 4F 20 20 20 20 20 20 38 09 2F 2A 20 63 6F 6D DO 8./* com
000040: 70 69 6C 65 20 22 64 6F 22 20 6C 6F 67 69 63 20 pile "do" logic
000050: 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 53 54 46 4F */..#define STFO
000060: 52 20 20 20 20 20 39 09 2F 2A 20 63 6F 6D 70 69 R 9./* compi
000070: 6C 65 20 22 66 6F 72 22 20 6C 6F 67 69 63 20 2A le "for" logic *
000080: 2F 0D 0A 23 64 65 66 69 6E 65 20 53 54 53 57 49 /..#define STSWI
000090: 54 43 48 20 31 30 09 2F 2A 20 63 6F 6D 70 69 6C TCH 10./* compil
0000A0: 65 20 22 73 77 69 74 63 68 2F 63 61 73 65 2F 64 e "switch/case/d
0000B0: 65 66 61 75 6C 74 22 20 6C 6F 67 69 63 20 2A 2F efault" logic */
0000C0: 0D 0A 23 64 65 66 69 6E 65 20 53 54 43 41 53 45 ..#define STCASE
0000D0: 20 20 20 31 31 0D 0A 23 64 65 66 69 6E 65 20 53 11..#define S
0000E0: 54 44 45 46 20 20 20 20 31 32 0D 0A 23 64 65 66 TDEF 12..#def
0000F0: 69 6E 65 20 53 54 47 4F 54 4F 20 20 20 31 33 09 ine STGOTO 13.
000100: 2F 2A 20 63 6F 6D 70 69 6C 65 20 22 67 6F 74 6F /* compile "goto
000110: 22 20 6C 6F 67 69 63 20 2A 2F 0D 0A 23 64 65 66 " logic */..#def
000120: 69 6E 65 20 53 54 4C 41 42 45 4C 20 20 31 34 0D ine STLABEL 14.
000130: 0A 3E 3E 3E 20 43 43 31 2E 43 20 33 32 39 39 0D .>>> CC1.C 3299.
000140: 0A 2F 2A 0D 0A 2A 2A 20 53 6D 61 6C 6C 2D 43 20 ./*..** Small-C
000150: 43 6F 6D 70 69 6C 65 72 20 50 61 72 74 20 31 0D Compiler Part 1.
000160: 0A 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 3C 73 .*/..#include <s
000170: 74 64 69 6F 2E 68 3E 0D 0A 23 69 6E 63 6C 75 64 tdio.h>..#includ
000180: 65 20 22 6E 6F 74 69 63 65 2E 68 22 0D 0A 23 69 e "notice.h"..#i
000190: 6E 63 6C 75 64 65 20 22 63 63 2E 64 65 66 22 0D nclude "cc.def".
0001A0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 6D 69 73 63 65 6C .../*..** miscel
0001B0: 6C 61 6E 65 6F 75 73 20 73 74 6F 72 61 67 65 0D laneous storage.
0001C0: 0A 2A 2F 0D 0A 63 68 61 72 0D 0A 23 69 66 64 65 .*/..char..#ifde
0001D0: 66 20 4F 50 54 49 4D 49 5A 45 0D 0A 20 20 6F 70 f OPTIMIZE.. op
0001E0: 74 69 6D 69 7A 65 2C 09 2F 2A 20 6F 70 74 69 6D timize,./* optim
0001F0: 69 7A 65 20 6F 75 74 70 75 74 20 6F 66 20 73 74 ize output of st
Size : 512 (Real : 512)
000000: 6B 20 62 79 74 65 73 20 70 65 72 20 63 68 61 72 k bytes per char
000010: 61 63 74 65 72 20 2A 2F 0D 0A 23 64 65 66 69 6E acter */..#defin
000020: 65 20 45 52 52 43 4F 44 45 20 37 09 2F 2A 20 6F e ERRCODE 7./* o
000030: 70 20 73 79 73 20 72 65 74 75 72 6E 20 63 6F 64 p sys return cod
000040: 65 20 2A 2F 0D 0A 20 0D 0A 2F 2A 0D 0A 2A 2A 20 e */.. ../*..**
000050: 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 66 6F 72 symbol table for
000060: 6D 61 74 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 mat..*/..#define
000070: 20 49 44 45 4E 54 20 20 20 20 30 0D 0A 23 64 65 IDENT 0..#de
000080: 66 69 6E 65 20 54 59 50 45 20 20 20 20 20 31 0D fine TYPE 1.
000090: 0A 23 64 65 66 69 6E 65 20 43 4C 41 53 53 20 20 .#define CLASS
0000A0: 20 20 32 0D 0A 23 64 65 66 69 6E 65 20 4F 46 46 2..#define OFF
0000B0: 53 45 54 20 20 20 33 0D 0A 23 64 65 66 69 6E 65 SET 3..#define
0000C0: 20 4E 41 4D 45 20 20 20 20 20 35 0D 0A 23 64 65 NAME 5..#de
0000D0: 66 69 6E 65 20 4F 46 46 53 49 5A 45 20 28 4E 41 fine OFFSIZE (NA
0000E0: 4D 45 2D 4F 46 46 53 45 54 29 0D 0A 23 64 65 66 ME-OFFSET)..#def
0000F0: 69 6E 65 20 53 59 4D 41 56 47 20 20 31 30 0D 0A ine SYMAVG 10..
000100: 23 64 65 66 69 6E 65 20 53 59 4D 4D 41 58 20 20 #define SYMMAX
000110: 31 34 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 73 79 6D 14..../*..** sym
000120: 62 6F 6C 20 74 61 62 6C 65 20 70 61 72 61 6D 65 bol table parame
000130: 74 65 72 73 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E ters..*/..#defin
000140: 65 20 4E 55 4D 4C 4F 43 53 20 20 20 32 35 0D 0A e NUMLOCS 25..
000150: 23 64 65 66 69 6E 65 20 53 54 41 52 54 4C 4F 43 #define STARTLOC
000160: 20 20 73 79 6D 74 61 62 0D 0A 23 64 65 66 69 6E symtab..#defin
000170: 65 20 45 4E 44 4C 4F 43 20 20 20 28 73 79 6D 74 e ENDLOC (symt
000180: 61 62 2B 28 4E 55 4D 4C 4F 43 53 2A 53 59 4D 41 ab+(NUMLOCS*SYMA
000190: 56 47 29 29 0D 0A 23 64 65 66 69 6E 65 20 4E 55 VG))..#define NU
0001A0: 4D 47 4C 42 53 20 20 20 32 30 30 0D 0A 23 64 65 MGLBS 200..#de
0001B0: 66 69 6E 65 20 53 54 41 52 54 47 4C 42 20 20 45 fine STARTGLB E
0001C0: 4E 44 4C 4F 43 0D 0A 23 64 65 66 69 6E 65 20 45 NDLOC..#define E
0001D0: 4E 44 47 4C 42 20 20 20 28 45 4E 44 4C 4F 43 2B NDGLB (ENDLOC+
0001E0: 28 28 4E 55 4D 47 4C 42 53 2D 31 29 2A 53 59 4D ((NUMGLBS-1)*SYM
0001F0: 4D 41 58 29 29 0D 0A 23 64 65 66 69 6E 65 20 53 MAX))..#define S
Size : 512 (Real : 512)
000000: 61 67 69 6E 67 20 62 75 66 66 65 72 20 2A 2F 0D aging buffer */.
000010: 0A 23 65 6E 64 69 66 0D 0A 20 20 61 6C 61 72 6D .#endif.. alarm
000020: 2C 09 2F 2A 20 61 75 64 69 62 6C 65 20 61 6C 61 ,./* audible ala
000030: 72 6D 20 6F 6E 20 65 72 72 6F 72 73 3F 20 2A 2F rm on errors? */
000040: 0D 0A 20 20 6D 6F 6E 69 74 6F 72 2C 09 2F 2A 20 .. monitor,./*
000050: 6D 6F 6E 69 74 6F 72 20 66 75 6E 63 74 69 6F 6E monitor function
000060: 20 68 65 61 64 65 72 73 3F 20 2A 2F 0D 0A 20 20 headers? */..
000070: 70 61 75 73 65 2C 09 2F 2A 20 70 61 75 73 65 20 pause,./* pause
000080: 66 6F 72 20 6F 70 65 72 61 74 6F 72 20 6F 6E 20 for operator on
000090: 65 72 72 6F 72 73 3F 20 2A 2F 0D 0A 23 69 66 64 errors? */..#ifd
0000A0: 65 66 20 44 59 4E 41 4D 49 43 0D 0A 20 2A 73 74 ef DYNAMIC.. *st
0000B0: 61 67 65 2C 09 2F 2A 20 6F 75 74 70 75 74 20 73 age,./* output s
0000C0: 74 61 67 69 6E 67 20 62 75 66 66 65 72 20 2A 2F taging buffer */
0000D0: 0D 0A 20 2A 73 79 6D 74 61 62 2C 09 2F 2A 20 73 .. *symtab,./* s
0000E0: 79 6D 62 6F 6C 20 74 61 62 6C 65 20 2A 2F 0D 0A ymbol table */..
0000F0: 20 2A 6C 69 74 71 2C 09 09 2F 2A 20 6C 69 74 65 *litq,../* lite
000100: 72 61 6C 20 70 6F 6F 6C 20 2A 2F 0D 0A 20 2A 6D ral pool */.. *m
000110: 61 63 6E 2C 09 09 2F 2A 20 6D 61 63 72 6F 20 6E acn,../* macro n
000120: 61 6D 65 20 62 75 66 66 65 72 20 2A 2F 0D 0A 20 ame buffer */..
000130: 2A 6D 61 63 71 2C 09 09 2F 2A 20 6D 61 63 72 6F *macq,../* macro
000140: 20 73 74 72 69 6E 67 20 62 75 66 66 65 72 20 2A string buffer *
000150: 2F 0D 0A 20 2A 70 6C 69 6E 65 2C 09 2F 2A 20 70 /.. *pline,./* p
000160: 61 72 73 69 6E 67 20 62 75 66 66 65 72 20 2A 2F arsing buffer */
000170: 0D 0A 20 2A 6D 6C 69 6E 65 2C 09 2F 2A 20 6D 61 .. *mline,./* ma
000180: 63 72 6F 20 62 75 66 66 65 72 20 2A 2F 0D 0A 23 cro buffer */..#
000190: 65 6C 73 65 0D 0A 20 20 73 74 61 67 65 5B 53 54 else.. stage[ST
0001A0: 41 47 45 53 49 5A 45 5D 2C 0D 0A 20 20 73 79 6D AGESIZE],.. sym
0001B0: 74 61 62 5B 53 59 4D 54 42 53 5A 5D 2C 0D 0A 20 tab[SYMTBSZ],..
0001C0: 20 6C 69 74 71 5B 4C 49 54 41 42 53 5A 5D 2C 0D litq[LITABSZ],.
0001D0: 0A 20 20 6D 61 63 6E 5B 4D 41 43 4E 53 49 5A 45 . macn[MACNSIZE
0001E0: 5D 2C 0D 0A 20 20 6D 61 63 71 5B 4D 41 43 51 53 ],.. macq[MACQS
0001F0: 49 5A 45 5D 2C 0D 0A 20 20 70 6C 69 6E 65 5B 4C IZE],.. pline[L
Size : 512 (Real : 512)
000000: 2C 09 2F 2A 20 66 64 20 23 20 66 6F 72 20 6F 75 ,./* fd # for ou
000010: 74 70 75 74 20 66 69 6C 65 20 2A 2F 0D 0A 20 20 tput file */..
000020: 66 69 6C 65 73 2C 09 2F 2A 20 6E 6F 6E 2D 7A 65 files,./* non-ze
000030: 72 6F 20 69 66 20 66 69 6C 65 20 6C 69 73 74 20 ro if file list
000040: 73 70 65 63 69 66 69 65 64 20 6F 6E 20 63 6D 64 specified on cmd
000050: 20 6C 69 6E 65 20 2A 2F 0D 0A 20 20 66 69 6C 65 line */.. file
000060: 61 72 67 2C 09 2F 2A 20 63 75 72 20 66 69 6C 65 arg,./* cur file
000070: 20 61 72 67 20 69 6E 64 65 78 20 2A 2F 0D 0A 20 arg index */..
000080: 20 67 6C 62 66 6C 61 67 2C 09 2F 2A 20 6E 6F 6E glbflag,./* non
000090: 2D 7A 65 72 6F 20 69 66 20 69 6E 74 65 72 6E 61 -zero if interna
0000A0: 6C 20 67 6C 6F 62 61 6C 73 20 2A 2F 0D 0A 20 20 l globals */..
0000B0: 63 74 65 78 74 2C 09 2F 2A 20 6E 6F 6E 2D 7A 65 ctext,./* non-ze
0000C0: 72 6F 20 74 6F 20 69 6E 74 65 72 6D 69 78 20 63 ro to intermix c
0000D0: 2D 73 6F 75 72 63 65 20 2A 2F 0D 0A 20 20 63 63 -source */.. cc
0000E0: 6F 64 65 2C 09 2F 2A 20 6E 6F 6E 2D 7A 65 72 6F ode,./* non-zero
0000F0: 20 77 68 69 6C 65 20 70 61 72 73 69 6E 67 20 63 while parsing c
000100: 2D 63 6F 64 65 20 2A 2F 0D 0A 09 09 2F 2A 20 7A -code */..../* z
000110: 65 72 6F 20 77 68 65 6E 20 70 61 73 73 69 6E 67 ero when passing
000120: 20 61 73 73 65 6D 62 6C 79 20 63 6F 64 65 20 2A assembly code *
000130: 2F 0D 0A 20 20 6C 69 73 74 66 70 2C 09 2F 2A 20 /.. listfp,./*
000140: 66 69 6C 65 20 70 6F 69 6E 74 65 72 20 74 6F 20 file pointer to
000150: 6C 69 73 74 20 64 65 76 69 63 65 20 2A 2F 0D 0A list device */..
000160: 20 20 6C 61 73 74 73 74 2C 09 2F 2A 20 6C 61 73 lastst,./* las
000170: 74 20 65 78 65 63 75 74 65 64 20 73 74 61 74 65 t executed state
000180: 6D 65 6E 74 20 74 79 70 65 20 2A 2F 0D 0A 20 2A ment type */.. *
000190: 69 70 74 72 3B 09 09 2F 2A 20 77 6F 72 6B 20 70 iptr;../* work p
0001A0: 74 72 20 74 6F 20 61 6E 79 20 69 6E 74 20 62 75 tr to any int bu
0001B0: 66 66 65 72 20 2A 2F 0D 0A 0D 0A 23 69 6E 63 6C ffer */....#incl
0001C0: 75 64 65 20 22 63 63 31 31 2E 63 22 0D 0A 23 69 ude "cc11.c"..#i
0001D0: 6E 63 6C 75 64 65 20 22 63 63 31 32 2E 63 22 0D nclude "cc12.c".
0001E0: 0A 23 69 6E 63 6C 75 64 65 20 22 63 63 31 33 2E .#include "cc13.
0001F0: 63 22 0D 0A 0D 0A 23 69 66 6E 64 65 66 20 53 45 c"....#ifndef SE
Size : 512 (Real : 512)
000000: 49 4E 45 53 49 5A 45 5D 2C 0D 0A 20 20 6D 6C 69 INESIZE],.. mli
000010: 6E 65 5B 4C 49 4E 45 53 49 5A 45 5D 2C 0D 0A 20 ne[LINESIZE],..
000020: 20 73 77 71 5B 53 57 54 41 42 53 5A 5D 2C 0D 0A swq[SWTABSZ],..
000030: 23 65 6E 64 69 66 0D 0A 20 2A 6C 69 6E 65 2C 09 #endif.. *line,.
000040: 09 2F 2A 20 70 6F 69 6E 74 73 20 74 6F 20 70 6C ./* points to pl
000050: 69 6E 65 20 6F 72 20 6D 6C 69 6E 65 20 2A 2F 0D ine or mline */.
000060: 0A 20 2A 6C 70 74 72 2C 09 09 2F 2A 20 70 74 72 . *lptr,../* ptr
000070: 20 74 6F 20 65 69 74 68 65 72 20 2A 2F 0D 0A 20 to either */..
000080: 2A 67 6C 62 70 74 72 2C 09 2F 2A 20 70 74 72 73 *glbptr,./* ptrs
000090: 20 74 6F 20 6E 65 78 74 20 65 6E 74 72 69 65 73 to next entries
0000A0: 20 2A 2F 0D 0A 20 2A 6C 6F 63 70 74 72 2C 09 2F */.. *locptr,./
0000B0: 2A 20 70 74 72 20 74 6F 20 6E 65 78 74 20 6C 6F * ptr to next lo
0000C0: 63 61 6C 20 73 79 6D 62 6F 6C 20 2A 2F 0D 0A 20 cal symbol */..
0000D0: 2A 73 74 61 67 65 6E 65 78 74 2C 09 2F 2A 20 6E *stagenext,./* n
0000E0: 65 78 74 20 61 64 64 72 20 69 6E 20 73 74 61 67 ext addr in stag
0000F0: 65 20 2A 2F 0D 0A 20 2A 73 74 61 67 65 6C 61 73 e */.. *stagelas
000100: 74 2C 09 2F 2A 20 6C 61 73 74 20 61 64 64 72 20 t,./* last addr
000110: 69 6E 20 73 74 61 67 65 20 2A 2F 0D 0A 20 20 71 in stage */.. q
000120: 75 6F 74 65 5B 32 5D 2C 09 2F 2A 20 6C 69 74 65 uote[2],./* lite
000130: 72 61 6C 20 73 74 72 69 6E 67 20 66 6F 72 20 27 ral string for '
000140: 22 27 20 2A 2F 0D 0A 20 2A 63 70 74 72 2C 09 09 "' */.. *cptr,..
000150: 2F 2A 20 77 6F 72 6B 20 70 74 72 73 20 74 6F 20 /* work ptrs to
000160: 61 6E 79 20 63 68 61 72 20 62 75 66 66 65 72 20 any char buffer
000170: 2A 2F 0D 0A 20 2A 63 70 74 72 32 2C 0D 0A 20 2A */.. *cptr2,.. *
000180: 63 70 74 72 33 2C 0D 0A 20 20 6D 73 6E 61 6D 65 cptr3,.. msname
000190: 5B 4E 41 4D 45 53 49 5A 45 5D 2C 09 2F 2A 20 6D [NAMESIZE],./* m
0001A0: 61 63 72 6F 20 73 79 6D 62 6F 6C 20 6E 61 6D 65 acro symbol name
0001B0: 20 61 72 72 61 79 20 2A 2F 0D 0A 20 20 73 73 6E array */.. ssn
0001C0: 61 6D 65 5B 4E 41 4D 45 53 49 5A 45 5D 3B 09 2F ame[NAMESIZE];./
0001D0: 2A 20 73 74 61 74 69 63 20 73 79 6D 62 6F 6C 20 * static symbol
0001E0: 6E 61 6D 65 20 61 72 72 61 79 20 2A 2F 0D 0A 69 name array */..i
0001F0: 6E 74 0D 0A 23 69 66 64 65 66 20 53 54 47 4F 54 nt..#ifdef STGOT
Size : 512 (Real : 512)
000000: 50 41 52 41 54 45 0D 0A 23 69 6E 63 6C 75 64 65 PARATE..#include
000010: 20 22 63 63 32 31 2E 63 22 0D 0A 23 69 6E 63 6C "cc21.c"..#incl
000020: 75 64 65 20 22 63 63 32 32 2E 63 22 0D 0A 23 69 ude "cc22.c"..#i
000030: 6E 63 6C 75 64 65 20 22 63 63 33 31 2E 63 22 0D nclude "cc31.c".
000040: 0A 23 69 6E 63 6C 75 64 65 20 22 63 63 33 32 2E .#include "cc32.
000050: 63 22 0D 0A 23 69 6E 63 6C 75 64 65 20 22 63 63 c"..#include "cc
000060: 33 33 2E 63 22 0D 0A 23 69 6E 63 6C 75 64 65 20 33.c"..#include
000070: 22 63 63 34 31 2E 63 22 0D 0A 23 69 6E 63 6C 75 "cc41.c"..#inclu
000080: 64 65 20 22 63 63 34 32 2E 63 22 0D 0A 23 65 6E de "cc42.c"..#en
000090: 64 69 66 0D 0A 3E 3E 3E 20 43 43 31 31 2E 43 20 dif..>>> CC11.C
0000A0: 35 34 30 39 0D 0A 2F 2A 0D 0A 2A 2A 20 65 78 65 5409../*..** exe
0000B0: 63 75 74 69 6F 6E 20 62 65 67 69 6E 73 20 68 65 cution begins he
0000C0: 72 65 0D 0A 2A 2F 0D 0A 6D 61 69 6E 28 61 72 67 re..*/..main(arg
0000D0: 63 2C 20 61 72 67 76 29 20 69 6E 74 20 61 72 67 c, argv) int arg
0000E0: 63 2C 20 2A 61 72 67 76 3B 20 7B 0D 0A 20 20 61 c, *argv; {.. a
0000F0: 72 67 63 73 3D 61 72 67 63 3B 0D 0A 20 20 61 72 rgcs=argc;.. ar
000100: 67 76 73 3D 61 72 67 76 3B 0D 0A 20 20 66 70 75 gvs=argv;.. fpu
000110: 74 73 28 22 53 6D 61 6C 6C 2D 43 20 43 6F 6D 70 ts("Small-C Comp
000120: 69 6C 65 72 2C 20 22 2C 20 73 74 64 65 72 72 29 iler, ", stderr)
000130: 3B 20 66 70 75 74 73 28 56 45 52 53 49 4F 4E 2C ; fputs(VERSION,
000140: 20 73 74 64 65 72 72 29 3B 0D 0A 20 20 66 70 75 stderr);.. fpu
000150: 74 73 28 43 52 49 47 48 54 31 2C 20 73 74 64 65 ts(CRIGHT1, stde
000160: 72 72 29 3B 0D 0A 23 69 66 64 65 66 20 44 59 4E rr);..#ifdef DYN
000170: 41 4D 49 43 0D 0A 20 20 73 77 6E 65 78 74 3D 63 AMIC.. swnext=c
000180: 61 6C 6C 6F 63 28 53 57 54 41 42 53 5A 2C 20 31 alloc(SWTABSZ, 1
000190: 29 3B 0D 0A 20 20 73 77 65 6E 64 3D 73 77 6E 65 );.. swend=swne
0001A0: 78 74 2B 28 28 53 57 54 41 42 53 5A 2D 53 57 53 xt+((SWTABSZ-SWS
0001B0: 49 5A 29 3E 3E 31 29 3B 0D 0A 20 20 73 74 61 67 IZ)>>1);.. stag
0001C0: 65 3D 63 61 6C 6C 6F 63 28 53 54 41 47 45 53 49 e=calloc(STAGESI
0001D0: 5A 45 2C 20 31 29 3B 0D 0A 20 20 73 74 61 67 65 ZE, 1);.. stage
0001E0: 6C 61 73 74 3D 73 74 61 67 65 2B 53 54 41 47 45 last=stage+STAGE
0001F0: 4C 49 4D 49 54 3B 0D 0A 20 20 77 71 3D 63 61 6C LIMIT;.. wq=cal
Size : 512 (Real : 512)
000000: 4F 0D 0A 20 20 6E 6F 67 6F 2C 09 09 2F 2A 20 3E O.. nogo,../* >
000010: 20 30 20 64 69 73 61 62 6C 65 73 20 67 6F 74 6F 0 disables goto
000020: 20 73 74 61 74 65 6D 65 6E 74 73 20 2A 2F 0D 0A statements */..
000030: 20 20 6E 6F 6C 6F 63 2C 09 2F 2A 20 3E 20 30 20 noloc,./* > 0
000040: 64 69 73 61 62 6C 65 73 20 62 6C 6F 63 6B 20 6C disables block l
000050: 6F 63 61 6C 73 20 2A 2F 0D 0A 23 65 6E 64 69 66 ocals */..#endif
000060: 0D 0A 20 20 6F 70 5B 31 36 5D 2C 09 2F 2A 20 66 .. op[16],./* f
000070: 75 6E 63 74 69 6F 6E 20 61 64 64 72 65 73 73 65 unction addresse
000080: 73 20 6F 66 20 62 69 6E 61 72 79 20 6F 70 65 72 s of binary oper
000090: 61 74 6F 72 73 20 2A 2F 0D 0A 20 20 6F 70 32 5B ators */.. op2[
0000A0: 31 36 5D 2C 09 2F 2A 20 73 61 6D 65 20 66 6F 72 16],./* same for
0000B0: 20 75 6E 73 69 67 6E 65 64 20 6F 70 65 72 61 74 unsigned operat
0000C0: 6F 72 73 20 2A 2F 0D 0A 20 20 6F 70 69 6E 64 65 ors */.. opinde
0000D0: 78 2C 09 2F 2A 20 69 6E 64 65 78 20 74 6F 20 6D x,./* index to m
0000E0: 61 74 63 68 65 64 20 6F 70 65 72 61 74 6F 72 20 atched operator
0000F0: 2A 2F 0D 0A 20 20 6F 70 73 69 7A 65 2C 09 2F 2A */.. opsize,./*
000100: 20 73 69 7A 65 20 6F 66 20 6F 70 65 72 61 74 6F size of operato
000110: 72 20 69 6E 20 62 79 74 65 73 20 2A 2F 0D 0A 20 r in bytes */..
000120: 20 73 77 61 63 74 69 76 65 2C 09 2F 2A 20 74 72 swactive,./* tr
000130: 75 65 20 69 6E 73 69 64 65 20 61 20 73 77 69 74 ue inside a swit
000140: 63 68 20 2A 2F 0D 0A 20 20 73 77 64 65 66 61 75 ch */.. swdefau
000150: 6C 74 2C 09 2F 2A 20 64 65 66 61 75 6C 74 20 6C lt,./* default l
000160: 61 62 65 6C 20 23 2C 20 65 6C 73 65 20 30 20 2A abel #, else 0 *
000170: 2F 0D 0A 20 2A 73 77 6E 65 78 74 2C 09 2F 2A 20 /.. *swnext,./*
000180: 61 64 64 72 65 73 73 20 6F 66 20 6E 65 78 74 20 address of next
000190: 65 6E 74 72 79 20 2A 2F 0D 0A 20 2A 73 77 65 6E entry */.. *swen
0001A0: 64 2C 09 2F 2A 20 61 64 64 72 65 73 73 20 6F 66 d,./* address of
0001B0: 20 6C 61 73 74 20 74 61 62 6C 65 20 65 6E 74 72 last table entr
0001C0: 79 20 2A 2F 0D 0A 23 69 66 64 65 66 20 44 59 4E y */..#ifdef DYN
0001D0: 41 4D 49 43 0D 0A 20 2A 77 71 2C 09 09 2F 2A 20 AMIC.. *wq,../*
0001E0: 77 68 69 6C 65 20 71 75 65 75 65 20 2A 2F 0D 0A while queue */..
0001F0: 23 65 6C 73 65 0D 0A 20 20 77 71 5B 57 51 54 41 #else.. wq[WQTA
Size : 512 (Real : 512)
000000: 6C 6F 63 28 57 51 54 41 42 53 5A 2C 20 42 50 57 loc(WQTABSZ, BPW
000010: 29 3B 0D 0A 20 20 6C 69 74 71 3D 63 61 6C 6C 6F );.. litq=callo
000020: 63 28 4C 49 54 41 42 53 5A 2C 20 31 29 3B 0D 0A c(LITABSZ, 1);..
000030: 20 20 6D 61 63 6E 3D 63 61 6C 6C 6F 63 28 4D 41 macn=calloc(MA
000040: 43 4E 53 49 5A 45 2C 20 31 29 3B 0D 0A 20 20 6D CNSIZE, 1);.. m
000050: 61 63 71 3D 63 61 6C 6C 6F 63 28 4D 41 43 51 53 acq=calloc(MACQS
000060: 49 5A 45 2C 20 31 29 3B 0D 0A 20 20 70 6C 69 6E IZE, 1);.. plin
000070: 65 3D 63 61 6C 6C 6F 63 28 4C 49 4E 45 53 49 5A e=calloc(LINESIZ
000080: 45 2C 20 31 29 3B 0D 0A 20 20 6D 6C 69 6E 65 3D E, 1);.. mline=
000090: 63 61 6C 6C 6F 63 28 4C 49 4E 45 53 49 5A 45 2C calloc(LINESIZE,
0000A0: 20 31 29 3B 0D 0A 23 65 6C 73 65 0D 0A 20 20 73 1);..#else.. s
0000B0: 77 65 6E 64 3D 28 73 77 6E 65 78 74 3D 73 77 71 wend=(swnext=swq
0000C0: 29 2B 53 57 54 41 42 53 5A 2D 53 57 53 49 5A 3B )+SWTABSZ-SWSIZ;
0000D0: 0D 0A 20 20 73 74 61 67 65 6C 61 73 74 3D 73 74 .. stagelast=st
0000E0: 61 67 65 2B 53 54 41 47 45 4C 49 4D 49 54 3B 0D age+STAGELIMIT;.
0000F0: 0A 23 65 6E 64 69 66 0D 0A 20 20 73 77 61 63 74 .#endif.. swact
000100: 69 76 65 3D 09 09 2F 2A 20 6E 6F 74 20 69 6E 20 ive=../* not in
000110: 73 77 69 74 63 68 20 2A 2F 0D 0A 20 20 73 74 61 switch */.. sta
000120: 67 65 6E 65 78 74 3D 09 09 2F 2A 20 64 69 72 65 genext=../* dire
000130: 63 74 20 6F 75 74 70 75 74 20 6D 6F 64 65 20 2A ct output mode *
000140: 2F 0D 0A 20 20 69 66 6C 65 76 65 6C 3D 09 09 2F /.. iflevel=../
000150: 2A 20 23 69 66 2E 2E 2E 20 6E 65 73 74 69 6E 67 * #if... nesting
000160: 20 6C 65 76 65 6C 20 3D 20 30 20 2A 2F 0D 0A 20 level = 0 */..
000170: 20 73 6B 69 70 6C 65 76 65 6C 3D 09 09 2F 2A 20 skiplevel=../*
000180: 23 69 66 2E 2E 2E 20 6E 6F 74 20 65 6E 63 6F 75 #if... not encou
000190: 6E 74 65 72 65 64 20 2A 2F 0D 0A 20 20 6D 61 63 ntered */.. mac
0001A0: 70 74 72 3D 09 09 2F 2A 20 63 6C 65 61 72 20 74 ptr=../* clear t
0001B0: 68 65 20 6D 61 63 72 6F 20 70 6F 6F 6C 20 2A 2F he macro pool */
0001C0: 0D 0A 20 20 63 73 70 3D 09 09 09 2F 2A 20 73 74 .. csp=.../* st
0001D0: 61 63 6B 20 70 74 72 20 28 72 65 6C 61 74 69 76 ack ptr (relativ
0001E0: 65 29 20 2A 2F 0D 0A 20 20 65 72 72 66 6C 61 67 e) */.. errflag
0001F0: 3D 09 09 2F 2A 20 6E 6F 74 20 73 6B 69 70 70 69 =../* not skippi
Size : 512 (Real : 512)
000000: 42 53 5A 5D 2C 0D 0A 23 65 6E 64 69 66 0D 0A 20 BSZ],..#endif..
000010: 20 61 72 67 63 73 2C 09 2F 2A 20 73 74 61 74 69 argcs,./* stati
000020: 63 20 61 72 67 63 20 2A 2F 0D 0A 20 2A 61 72 67 c argc */.. *arg
000030: 76 73 2C 09 2F 2A 20 73 74 61 74 69 63 20 61 72 vs,./* static ar
000040: 67 76 20 2A 2F 0D 0A 20 2A 77 71 70 74 72 2C 09 gv */.. *wqptr,.
000050: 2F 2A 20 70 74 72 20 74 6F 20 6E 65 78 74 20 65 /* ptr to next e
000060: 6E 74 72 79 20 2A 2F 0D 0A 20 20 6C 69 74 70 74 ntry */.. litpt
000070: 72 2C 09 2F 2A 20 70 74 72 20 74 6F 20 6E 65 78 r,./* ptr to nex
000080: 74 20 65 6E 74 72 79 20 2A 2F 0D 0A 20 20 6D 61 t entry */.. ma
000090: 63 70 74 72 2C 09 2F 2A 20 6D 61 63 72 6F 20 62 cptr,./* macro b
0000A0: 75 66 66 65 72 20 69 6E 64 65 78 20 2A 2F 0D 0A uffer index */..
0000B0: 20 20 70 70 74 72 2C 09 09 2F 2A 20 70 74 72 20 pptr,../* ptr
0000C0: 74 6F 20 70 61 72 73 69 6E 67 20 62 75 66 66 65 to parsing buffe
0000D0: 72 20 2A 2F 0D 0A 20 20 6F 70 65 72 2C 09 09 2F r */.. oper,../
0000E0: 2A 20 61 64 64 72 65 73 73 20 6F 66 20 62 69 6E * address of bin
0000F0: 61 72 79 20 6F 70 65 72 61 74 6F 72 20 66 75 6E ary operator fun
000100: 63 74 69 6F 6E 20 2A 2F 0D 0A 20 20 63 68 2C 09 ction */.. ch,.
000110: 09 2F 2A 20 63 75 72 72 65 6E 74 20 63 68 61 72 ./* current char
000120: 61 63 74 65 72 20 6F 66 20 6C 69 6E 65 20 62 65 acter of line be
000130: 69 6E 67 20 73 63 61 6E 6E 65 64 20 2A 2F 0D 0A ing scanned */..
000140: 20 20 6E 63 68 2C 09 09 2F 2A 20 6E 65 78 74 20 nch,../* next
000150: 63 68 61 72 61 63 74 65 72 20 6F 66 20 6C 69 6E character of lin
000160: 65 20 62 65 69 6E 67 20 73 63 61 6E 6E 65 64 20 e being scanned
000170: 2A 2F 0D 0A 20 20 64 65 63 6C 61 72 65 64 2C 09 */.. declared,.
000180: 2F 2A 20 23 20 6F 66 20 6C 6F 63 61 6C 20 62 79 /* # of local by
000190: 74 65 73 20 64 65 63 6C 61 72 65 64 2C 20 65 6C tes declared, el
0001A0: 73 65 20 2D 31 20 77 68 65 6E 20 64 6F 6E 65 20 se -1 when done
0001B0: 2A 2F 0D 0A 20 20 69 66 6C 65 76 65 6C 2C 09 2F */.. iflevel,./
0001C0: 2A 20 23 69 66 2E 2E 2E 20 6E 65 73 74 20 6C 65 * #if... nest le
0001D0: 76 65 6C 20 2A 2F 0D 0A 20 20 73 6B 69 70 6C 65 vel */.. skiple
0001E0: 76 65 6C 2C 09 2F 2A 20 6C 65 76 65 6C 20 61 74 vel,./* level at
0001F0: 20 77 68 69 63 68 20 23 69 66 2E 2E 2E 20 73 6B which #if... sk
Size : 512 (Real : 512)
000000: 6E 67 20 65 72 72 6F 72 73 20 74 69 6C 6C 20 22 ng errors till "
000010: 3B 22 20 2A 2F 0D 0A 20 20 65 6F 66 3D 09 09 09 ;" */.. eof=...
000020: 2F 2A 20 6E 6F 74 20 65 6F 66 20 79 65 74 20 2A /* not eof yet *
000030: 2F 0D 0A 20 20 6E 63 6D 70 3D 09 09 09 2F 2A 20 /.. ncmp=.../*
000040: 6E 6F 74 20 69 6E 20 63 6F 6D 70 6F 75 6E 64 20 not in compound
000050: 73 74 61 74 65 6D 65 6E 74 20 2A 2F 0D 0A 20 20 statement */..
000060: 66 69 6C 65 73 3D 0D 0A 20 20 66 69 6C 65 61 72 files=.. filear
000070: 67 3D 0D 0A 20 20 71 75 6F 74 65 5B 31 5D 3D 30 g=.. quote[1]=0
000080: 3B 0D 0A 20 20 66 75 6E 63 31 3D 09 09 2F 2A 20 ;.. func1=../*
000090: 66 69 72 73 74 20 66 75 6E 63 74 69 6F 6E 20 2A first function *
0000A0: 2F 0D 0A 20 20 63 63 6F 64 65 3D 31 3B 09 09 2F /.. ccode=1;../
0000B0: 2A 20 65 6E 61 62 6C 65 20 70 72 65 70 72 6F 63 * enable preproc
0000C0: 65 73 73 69 6E 67 20 2A 2F 0D 0A 20 20 77 71 70 essing */.. wqp
0000D0: 74 72 3D 77 71 3B 09 09 2F 2A 20 63 6C 65 61 72 tr=wq;../* clear
0000E0: 20 77 68 69 6C 65 20 71 75 65 75 65 20 2A 2F 0D while queue */.
0000F0: 0A 20 20 71 75 6F 74 65 5B 30 5D 3D 27 22 27 3B . quote[0]='"';
000100: 09 09 2F 2A 20 66 61 6B 65 20 61 20 71 75 6F 74 ../* fake a quot
000110: 65 20 6C 69 74 65 72 61 6C 20 2A 2F 0D 0A 20 20 e literal */..
000120: 69 6E 70 75 74 3D 69 6E 70 75 74 32 3D 45 4F 46 input=input2=EOF
000130: 3B 0D 0A 20 20 61 73 6B 28 29 3B 09 09 2F 2A 20 ;.. ask();../*
000140: 67 65 74 20 75 73 65 72 20 6F 70 74 69 6F 6E 73 get user options
000150: 20 2A 2F 0D 0A 20 20 6F 70 65 6E 66 69 6C 65 28 */.. openfile(
000160: 29 3B 09 09 2F 2A 20 61 6E 64 20 69 6E 69 74 69 );../* and initi
000170: 61 6C 20 69 6E 70 75 74 20 66 69 6C 65 20 2A 2F al input file */
000180: 0D 0A 20 20 70 72 65 70 72 6F 63 65 73 73 28 29 .. preprocess()
000190: 3B 09 09 2F 2A 20 66 65 74 63 68 20 66 69 72 73 ;../* fetch firs
0001A0: 74 20 6C 69 6E 65 20 2A 2F 0D 0A 23 69 66 64 65 t line */..#ifde
0001B0: 66 20 44 59 4E 41 4D 49 43 0D 0A 20 20 73 79 6D f DYNAMIC.. sym
0001C0: 74 61 62 3D 63 61 6C 6C 6F 63 28 28 4E 55 4D 4C tab=calloc((NUML
0001D0: 4F 43 53 2A 53 59 4D 41 56 47 20 2B 20 4E 55 4D OCS*SYMAVG + NUM
0001E0: 47 4C 42 53 2A 53 59 4D 4D 41 58 29 2C 20 31 29 GLBS*SYMMAX), 1)
0001F0: 3B 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 6C 6F 63 ;..#endif.. loc
Size : 512 (Real : 512)
000000: 69 70 70 69 6E 67 20 73 74 61 72 74 65 64 20 2A ipping started *
000010: 2F 0D 0A 20 20 66 75 6E 63 31 2C 09 2F 2A 20 74 /.. func1,./* t
000020: 72 75 65 20 66 6F 72 20 66 69 72 73 74 20 66 75 rue for first fu
000030: 6E 63 74 69 6F 6E 20 2A 2F 0D 0A 20 20 6E 78 74 nction */.. nxt
000040: 6C 61 62 2C 09 2F 2A 20 6E 65 78 74 20 61 76 61 lab,./* next ava
000050: 69 6C 20 6C 61 62 65 6C 20 23 20 2A 2F 0D 0A 20 il label # */..
000060: 20 6C 69 74 6C 61 62 2C 09 2F 2A 20 6C 61 62 65 litlab,./* labe
000070: 6C 20 23 20 61 73 73 69 67 6E 65 64 20 74 6F 20 l # assigned to
000080: 6C 69 74 65 72 61 6C 20 70 6F 6F 6C 20 2A 2F 0D literal pool */.
000090: 0A 20 20 62 65 67 6C 61 62 2C 09 2F 2A 20 62 65 . beglab,./* be
0000A0: 67 69 6E 6E 69 6E 67 20 6C 61 62 65 6C 20 2D 2D ginning label --
0000B0: 20 66 69 72 73 74 20 66 75 6E 63 74 69 6F 6E 20 first function
0000C0: 2A 2F 0D 0A 20 20 63 73 70 2C 09 09 2F 2A 20 63 */.. csp,../* c
0000D0: 6F 6D 70 69 6C 65 72 20 72 65 6C 61 74 69 76 65 ompiler relative
0000E0: 20 73 74 6B 20 70 74 72 20 2A 2F 0D 0A 20 20 61 stk ptr */.. a
0000F0: 72 67 73 74 6B 2C 09 2F 2A 20 66 75 6E 63 74 69 rgstk,./* functi
000100: 6F 6E 20 61 72 67 20 73 70 20 2A 2F 0D 0A 20 20 on arg sp */..
000110: 61 72 67 74 6F 70 2C 0D 0A 20 20 6E 63 6D 70 2C argtop,.. ncmp,
000120: 09 09 2F 2A 20 23 20 6F 70 65 6E 20 63 6F 6D 70 ../* # open comp
000130: 6F 75 6E 64 20 73 74 61 74 65 6D 65 6E 74 73 20 ound statements
000140: 2A 2F 0D 0A 20 20 65 72 72 66 6C 61 67 2C 09 2F */.. errflag,./
000150: 2A 20 6E 6F 6E 2D 7A 65 72 6F 20 61 66 74 65 72 * non-zero after
000160: 20 31 73 74 20 65 72 72 6F 72 20 69 6E 20 73 74 1st error in st
000170: 61 74 65 6D 65 6E 74 20 2A 2F 0D 0A 20 20 65 6F atement */.. eo
000180: 66 2C 09 09 2F 2A 20 73 65 74 20 6E 6F 6E 2D 7A f,../* set non-z
000190: 65 72 6F 20 6F 6E 20 66 69 6E 61 6C 20 69 6E 70 ero on final inp
0001A0: 75 74 20 65 6F 66 20 2A 2F 0D 0A 20 20 69 6E 70 ut eof */.. inp
0001B0: 75 74 2C 09 2F 2A 20 66 64 20 23 20 66 6F 72 20 ut,./* fd # for
0001C0: 69 6E 70 75 74 20 66 69 6C 65 20 2A 2F 0D 0A 20 input file */..
0001D0: 20 69 6E 70 75 74 32 2C 09 2F 2A 20 66 64 20 23 input2,./* fd #
0001E0: 20 66 6F 72 20 22 69 6E 63 6C 75 64 65 22 20 66 for "include" f
0001F0: 69 6C 65 20 2A 2F 0D 0A 20 20 6F 75 74 70 75 74 ile */.. output
Size : 512 (Real : 512)
000000: 70 74 72 3D 53 54 41 52 54 4C 4F 43 3B 0D 0A 20 ptr=STARTLOC;..
000010: 20 67 6C 62 70 74 72 3D 53 54 41 52 54 47 4C 42 glbptr=STARTGLB
000020: 3B 0D 0A 20 20 67 6C 62 66 6C 61 67 3D 31 3B 0D ;.. glbflag=1;.
000030: 0A 20 20 63 74 65 78 74 3D 30 3B 0D 0A 20 20 68 . ctext=0;.. h
000040: 65 61 64 65 72 28 29 3B 09 09 2F 2A 20 69 6E 74 eader();../* int
000050: 72 6F 20 63 6F 64 65 20 2A 2F 0D 0A 20 20 73 65 ro code */.. se
000060: 74 6F 70 73 28 29 3B 09 09 2F 2A 20 73 65 74 20 tops();../* set
000070: 76 61 6C 75 65 73 20 69 6E 20 6F 70 20 61 72 72 values in op arr
000080: 61 79 73 20 2A 2F 0D 0A 20 20 70 61 72 73 65 28 ays */.. parse(
000090: 29 3B 09 09 2F 2A 20 70 72 6F 63 65 73 73 20 41 );../* process A
0000A0: 4C 4C 20 69 6E 70 75 74 20 2A 2F 0D 0A 20 20 6F LL input */.. o
0000B0: 75 74 73 69 64 65 28 29 3B 09 09 2F 2A 20 76 65 utside();../* ve
0000C0: 72 69 66 79 20 6F 75 74 73 69 64 65 20 61 6E 79 rify outside any
0000D0: 20 66 75 6E 63 74 69 6F 6E 20 2A 2F 0D 0A 20 20 function */..
0000E0: 74 72 61 69 6C 65 72 28 29 3B 09 09 2F 2A 20 66 trailer();../* f
0000F0: 6F 6C 6C 6F 77 2D 75 70 20 63 6F 64 65 20 2A 2F ollow-up code */
000100: 0D 0A 20 20 66 63 6C 6F 73 65 28 6F 75 74 70 75 .. fclose(outpu
000110: 74 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A t);.. }..../*..
000120: 2A 2A 20 70 72 6F 63 65 73 73 20 61 6C 6C 20 69 ** process all i
000130: 6E 70 75 74 20 74 65 78 74 0D 0A 2A 2A 0D 0A 2A nput text..**..*
000140: 2A 20 41 74 20 74 68 69 73 20 6C 65 76 65 6C 2C * At this level,
000150: 20 6F 6E 6C 79 20 73 74 61 74 69 63 20 64 65 63 only static dec
000160: 6C 61 72 61 74 69 6F 6E 73 2C 0D 0A 2A 2A 20 20 larations,..**
000170: 20 20 20 20 64 65 66 69 6E 65 73 2C 20 69 6E 63 defines, inc
000180: 6C 75 64 65 73 20 61 6E 64 20 66 75 6E 63 74 69 ludes and functi
000190: 6F 6E 0D 0A 2A 2A 20 20 20 20 20 20 64 65 66 69 on..** defi
0001A0: 6E 69 74 69 6F 6E 73 20 61 72 65 20 6C 65 67 61 nitions are lega
0001B0: 6C 2E 2E 2E 0D 0A 2A 2F 0D 0A 70 61 72 73 65 28 l.....*/..parse(
0001C0: 29 20 7B 0D 0A 20 20 77 68 69 6C 65 20 28 65 6F ) {.. while (eo
0001D0: 66 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 69 66 28 f==0) {.. if(
0001E0: 61 6D 61 74 63 68 28 22 65 78 74 65 72 6E 22 2C amatch("extern",
0001F0: 20 36 29 29 20 20 20 64 6F 64 65 63 6C 61 72 65 6)) dodeclare
Size : 512 (Real : 512)
000000: 65 66 20 4F 50 54 49 4D 49 5A 45 0D 0A 20 20 20 ef OPTIMIZE..
000010: 20 73 6F 75 74 28 22 20 5B 2D 6F 5D 22 2C 20 73 sout(" [-o]", s
000020: 74 64 65 72 72 29 3B 0D 0A 23 65 6E 64 69 66 0D tderr);..#endif.
000030: 0A 23 69 66 6E 64 65 66 20 4C 49 4E 4B 0D 0A 20 .#ifndef LINK..
000040: 20 20 20 73 6F 75 74 28 22 20 5B 2D 62 23 5D 22 sout(" [-b#]"
000050: 2C 20 73 74 64 65 72 72 29 3B 0D 0A 23 65 6E 64 , stderr);..#end
000060: 69 66 0D 0A 20 20 20 20 73 6F 75 74 28 4E 45 57 if.. sout(NEW
000070: 4C 49 4E 45 2C 20 73 74 64 65 72 72 29 3B 0D 0A LINE, stderr);..
000080: 20 20 20 20 61 62 6F 72 74 28 45 52 52 43 4F 44 abort(ERRCOD
000090: 45 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D E);.. }.. }.
0000A0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 69 6E 70 75 74 20 .../*..** input
0000B0: 61 6E 64 20 6F 75 74 70 75 74 20 66 69 6C 65 20 and output file
0000C0: 6F 70 65 6E 73 0D 0A 2A 2F 0D 0A 6F 70 65 6E 66 opens..*/..openf
0000D0: 69 6C 65 28 29 20 7B 09 09 2F 2A 20 65 6E 74 69 ile() {../* enti
0000E0: 72 65 20 66 75 6E 63 74 69 6F 6E 20 72 65 76 69 re function revi
0000F0: 73 65 64 20 2A 2F 0D 0A 20 20 63 68 61 72 20 6F sed */.. char o
000100: 75 74 66 6E 5B 31 35 5D 3B 0D 0A 20 20 69 6E 74 utfn[15];.. int
000110: 20 69 2C 20 6A 2C 20 65 78 74 3B 0D 0A 20 20 69 i, j, ext;.. i
000120: 6E 70 75 74 3D 45 4F 46 3B 0D 0A 20 20 77 68 69 nput=EOF;.. whi
000130: 6C 65 28 67 65 74 61 72 67 28 2B 2B 66 69 6C 65 le(getarg(++file
000140: 61 72 67 2C 20 70 6C 69 6E 65 2C 20 4C 49 4E 45 arg, pline, LINE
000150: 53 49 5A 45 2C 20 61 72 67 63 73 2C 20 61 72 67 SIZE, argcs, arg
000160: 76 73 29 21 3D 45 4F 46 29 20 7B 0D 0A 20 20 20 vs)!=EOF) {..
000170: 20 69 66 28 70 6C 69 6E 65 5B 30 5D 3D 3D 27 2D if(pline[0]=='-
000180: 27 29 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 ') continue;..
000190: 20 20 65 78 74 20 3D 20 4E 4F 3B 0D 0A 20 20 20 ext = NO;..
0001A0: 20 69 20 3D 20 2D 31 3B 0D 0A 20 20 20 20 6A 20 i = -1;.. j
0001B0: 3D 20 30 3B 0D 0A 20 20 20 20 77 68 69 6C 65 28 = 0;.. while(
0001C0: 70 6C 69 6E 65 5B 2B 2B 69 5D 29 20 7B 0D 0A 20 pline[++i]) {..
0001D0: 20 20 20 20 20 69 66 28 70 6C 69 6E 65 5B 69 5D if(pline[i]
0001E0: 20 3D 3D 20 27 2E 27 29 20 7B 65 78 74 20 3D 20 == '.') {ext =
0001F0: 59 45 53 3B 20 62 72 65 61 6B 3B 7D 0D 0A 20 20 YES; break;}..
Size : 512 (Real : 512)
000000: 28 45 58 54 45 52 4E 41 4C 29 3B 0D 0A 20 20 20 (EXTERNAL);..
000010: 20 65 6C 73 65 20 69 66 28 64 6F 64 65 63 6C 61 else if(dodecla
000020: 72 65 28 53 54 41 54 49 43 29 29 3B 0D 0A 20 20 re(STATIC));..
000030: 20 20 65 6C 73 65 20 69 66 28 6D 61 74 63 68 28 else if(match(
000040: 22 23 61 73 6D 22 29 29 20 20 20 20 64 6F 61 73 "#asm")) doas
000050: 6D 28 29 3B 0D 0A 20 20 20 20 65 6C 73 65 20 69 m();.. else i
000060: 66 28 6D 61 74 63 68 28 22 23 69 6E 63 6C 75 64 f(match("#includ
000070: 65 22 29 29 64 6F 69 6E 63 6C 75 64 65 28 29 3B e"))doinclude();
000080: 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 6D 61 .. else if(ma
000090: 74 63 68 28 22 23 64 65 66 69 6E 65 22 29 29 20 tch("#define"))
0000A0: 61 64 64 6D 61 63 28 29 3B 0D 0A 20 20 20 20 65 addmac();.. e
0000B0: 6C 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 lse
0000C0: 20 20 20 20 20 20 20 20 20 6E 65 77 66 75 6E 63 newfunc
0000D0: 28 29 3B 0D 0A 20 20 20 20 62 6C 61 6E 6B 73 28 ();.. blanks(
0000E0: 29 3B 09 09 2F 2A 20 66 6F 72 63 65 20 65 6F 66 );../* force eof
0000F0: 20 69 66 20 70 65 6E 64 69 6E 67 20 2A 2F 0D 0A if pending */..
000100: 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A }.. }..../*
000110: 0D 0A 2A 2A 20 64 75 6D 70 20 74 68 65 20 6C 69 ..** dump the li
000120: 74 65 72 61 6C 20 70 6F 6F 6C 0D 0A 2A 2F 0D 0A teral pool..*/..
000130: 64 75 6D 70 6C 69 74 73 28 73 69 7A 65 29 20 69 dumplits(size) i
000140: 6E 74 20 73 69 7A 65 3B 20 7B 0D 0A 20 20 69 6E nt size; {.. in
000150: 74 20 6A 2C 20 6B 3B 0D 0A 20 20 6B 3D 30 3B 0D t j, k;.. k=0;.
000160: 0A 20 20 77 68 69 6C 65 20 28 6B 3C 6C 69 74 70 . while (k<litp
000170: 74 72 29 20 7B 0D 0A 20 20 20 20 70 6F 6C 6C 28 tr) {.. poll(
000180: 31 29 3B 09 09 2F 2A 20 61 6C 6C 6F 77 20 70 72 1);../* allow pr
000190: 6F 67 72 61 6D 20 69 6E 74 65 72 72 75 70 74 69 ogram interrupti
0001A0: 6F 6E 20 2A 2F 0D 0A 20 20 20 20 64 65 66 73 74 on */.. defst
0001B0: 6F 72 61 67 65 28 73 69 7A 65 29 3B 0D 0A 20 20 orage(size);..
0001C0: 20 20 6A 3D 31 30 3B 0D 0A 20 20 20 20 77 68 69 j=10;.. whi
0001D0: 6C 65 28 6A 2D 2D 29 20 7B 0D 0A 20 20 20 20 20 le(j--) {..
0001E0: 20 6F 75 74 64 65 63 28 67 65 74 69 6E 74 28 6C outdec(getint(l
0001F0: 69 74 71 2B 6B 2C 20 73 69 7A 65 29 29 3B 0D 0A itq+k, size));..
Size : 512 (Real : 512)
000000: 20 20 20 20 69 66 28 6A 20 3C 20 31 30 29 20 6F if(j < 10) o
000010: 75 74 66 6E 5B 6A 2B 2B 5D 20 3D 20 70 6C 69 6E utfn[j++] = plin
000020: 65 5B 69 5D 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A e[i];.. }..
000030: 20 20 20 20 69 66 28 21 65 78 74 29 20 7B 0D 0A if(!ext) {..
000040: 20 20 20 20 20 20 73 74 72 63 70 79 28 70 6C 69 strcpy(pli
000050: 6E 65 20 2B 20 69 2C 20 22 2E 43 22 29 3B 0D 0A ne + i, ".C");..
000060: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 69 6E 70 }.. inp
000070: 75 74 20 3D 20 6D 75 73 74 6F 70 65 6E 28 70 6C ut = mustopen(pl
000080: 69 6E 65 2C 20 22 72 22 29 3B 0D 0A 20 20 20 20 ine, "r");..
000090: 69 66 28 21 66 69 6C 65 73 20 26 26 20 69 73 61 if(!files && isa
0000A0: 74 74 79 28 73 74 64 6F 75 74 29 29 20 7B 0D 0A tty(stdout)) {..
0000B0: 20 20 20 20 20 20 73 74 72 63 70 79 28 6F 75 74 strcpy(out
0000C0: 66 6E 20 2B 20 6A 2C 20 22 2E 4D 41 43 22 29 3B fn + j, ".MAC");
0000D0: 0D 0A 20 20 20 20 20 20 6F 75 74 70 75 74 20 3D .. output =
0000E0: 20 6D 75 73 74 6F 70 65 6E 28 6F 75 74 66 6E 2C mustopen(outfn,
0000F0: 20 22 77 22 29 3B 0D 0A 20 20 20 20 20 20 7D 0D "w");.. }.
000100: 0A 20 20 20 20 66 69 6C 65 73 3D 59 45 53 3B 0D . files=YES;.
000110: 0A 20 20 20 20 6B 69 6C 6C 28 29 3B 0D 0A 20 20 . kill();..
000120: 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 7D return;.. }
000130: 0D 0A 20 20 69 66 28 66 69 6C 65 73 2B 2B 29 20 .. if(files++)
000140: 65 6F 66 3D 59 45 53 3B 0D 0A 20 20 65 6C 73 65 eof=YES;.. else
000150: 20 69 6E 70 75 74 3D 73 74 64 69 6E 3B 0D 0A 20 input=stdin;..
000160: 20 6B 69 6C 6C 28 29 3B 0D 0A 20 20 7D 0D 0A 0D kill();.. }...
000170: 0A 2F 2A 0D 0A 2A 2A 20 6F 70 65 6E 20 61 20 66 ./*..** open a f
000180: 69 6C 65 20 77 69 74 68 20 65 72 72 6F 72 20 63 ile with error c
000190: 68 65 63 6B 69 6E 67 0D 0A 2A 2F 0D 0A 6D 75 73 hecking..*/..mus
0001A0: 74 6F 70 65 6E 28 66 6E 2C 20 6D 6F 64 65 29 20 topen(fn, mode)
0001B0: 63 68 61 72 20 2A 66 6E 2C 20 2A 6D 6F 64 65 3B char *fn, *mode;
0001C0: 20 7B 0D 0A 20 20 69 6E 74 20 66 64 3B 0D 0A 20 {.. int fd;..
0001D0: 20 69 66 28 66 64 20 3D 20 66 6F 70 65 6E 28 66 if(fd = fopen(f
0001E0: 6E 2C 20 6D 6F 64 65 29 29 20 72 65 74 75 72 6E n, mode)) return
0001F0: 20 66 64 3B 0D 0A 20 20 73 6F 75 74 28 22 6F 70 fd;.. sout("op
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 6B 3D 6B 2B 73 69 7A 65 3B 0D k=k+size;.
000010: 0A 20 20 20 20 20 20 69 66 20 28 28 6A 3D 3D 30 . if ((j==0
000020: 29 7C 28 6B 3E 3D 6C 69 74 70 74 72 29 29 20 7B )|(k>=litptr)) {
000030: 6E 6C 28 29 3B 20 62 72 65 61 6B 3B 7D 0D 0A 20 nl(); break;}..
000040: 20 20 20 20 20 6F 75 74 62 79 74 65 28 27 2C 27 outbyte(','
000050: 29 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 );.. }..
000060: 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A }.. }..../*..*
000070: 2A 20 64 75 6D 70 20 7A 65 72 6F 65 73 20 66 6F * dump zeroes fo
000080: 72 20 64 65 66 61 75 6C 74 20 69 6E 69 74 69 61 r default initia
000090: 6C 20 76 61 6C 75 65 73 0D 0A 2A 2F 0D 0A 64 75 l values..*/..du
0000A0: 6D 70 7A 65 72 6F 28 73 69 7A 65 2C 20 63 6F 75 mpzero(size, cou
0000B0: 6E 74 29 20 69 6E 74 20 73 69 7A 65 2C 20 63 6F nt) int size, co
0000C0: 75 6E 74 3B 20 7B 0D 0A 20 20 69 6E 74 20 6A 3B unt; {.. int j;
0000D0: 0D 0A 20 20 77 68 69 6C 65 20 28 63 6F 75 6E 74 .. while (count
0000E0: 20 3E 20 30 29 20 7B 0D 0A 20 20 20 20 70 6F 6C > 0) {.. pol
0000F0: 6C 28 31 29 3B 09 09 2F 2A 20 61 6C 6C 6F 77 20 l(1);../* allow
000100: 70 72 6F 67 72 61 6D 20 69 6E 74 65 72 72 75 70 program interrup
000110: 74 69 6F 6E 20 2A 2F 0D 0A 20 20 20 20 64 65 66 tion */.. def
000120: 73 74 6F 72 61 67 65 28 73 69 7A 65 29 3B 0D 0A storage(size);..
000130: 20 20 20 20 6A 3D 33 30 3B 0D 0A 20 20 20 20 77 j=30;.. w
000140: 68 69 6C 65 28 6A 2D 2D 29 20 7B 0D 0A 20 20 20 hile(j--) {..
000150: 20 20 20 6F 75 74 64 65 63 28 30 29 3B 0D 0A 20 outdec(0);..
000160: 20 20 20 20 20 69 66 20 28 28 2D 2D 63 6F 75 6E if ((--coun
000170: 74 20 3C 3D 20 30 29 7C 28 6A 3D 3D 30 29 29 20 t <= 0)|(j==0))
000180: 7B 6E 6C 28 29 3B 20 62 72 65 61 6B 3B 7D 0D 0A {nl(); break;}..
000190: 20 20 20 20 20 20 6F 75 74 62 79 74 65 28 27 2C outbyte(',
0001A0: 27 29 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 ');.. }..
0001B0: 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A }.. }..../*..
0001C0: 2A 2A 20 76 65 72 69 66 79 20 63 6F 6D 70 69 6C ** verify compil
0001D0: 65 20 65 6E 64 73 20 6F 75 74 73 69 64 65 20 61 e ends outside a
0001E0: 6E 79 20 66 75 6E 63 74 69 6F 6E 0D 0A 2A 2F 0D ny function..*/.
0001F0: 0A 6F 75 74 73 69 64 65 28 29 20 20 7B 0D 0A 20 .outside() {..
Size : 512 (Real : 512)
000000: 65 6E 20 65 72 72 6F 72 20 6F 6E 20 22 2C 20 73 en error on ", s
000010: 74 64 65 72 72 29 3B 0D 0A 20 20 6C 6F 75 74 28 tderr);.. lout(
000020: 66 6E 2C 20 73 74 64 65 72 72 29 3B 0D 0A 20 20 fn, stderr);..
000030: 61 62 6F 72 74 28 45 52 52 43 4F 44 45 29 3B 0D abort(ERRCODE);.
000040: 0A 20 20 7D 0D 0A 0D 0A 73 65 74 6F 70 73 28 29 . }....setops()
000050: 20 7B 0D 0A 20 20 6F 70 32 5B 20 30 5D 3D 20 20 {.. op2[ 0]=
000060: 20 20 20 6F 70 5B 20 30 5D 3D 20 20 66 66 6F 72 op[ 0]= ffor
000070: 3B 09 09 2F 2A 20 68 65 69 72 35 20 2A 2F 0D 0A ;../* heir5 */..
000080: 20 20 6F 70 32 5B 20 31 5D 3D 20 20 20 20 20 6F op2[ 1]= o
000090: 70 5B 20 31 5D 3D 20 66 66 78 6F 72 3B 09 09 2F p[ 1]= ffxor;../
0000A0: 2A 20 68 65 69 72 36 20 2A 2F 0D 0A 20 20 6F 70 * heir6 */.. op
0000B0: 32 5B 20 32 5D 3D 20 20 20 20 20 6F 70 5B 20 32 2[ 2]= op[ 2
0000C0: 5D 3D 20 66 66 61 6E 64 3B 09 09 2F 2A 20 68 65 ]= ffand;../* he
0000D0: 69 72 37 20 2A 2F 0D 0A 20 20 6F 70 32 5B 20 33 ir7 */.. op2[ 3
0000E0: 5D 3D 20 20 20 20 20 6F 70 5B 20 33 5D 3D 20 20 ]= op[ 3]=
0000F0: 66 66 65 71 3B 09 09 2F 2A 20 68 65 69 72 38 20 ffeq;../* heir8
000100: 2A 2F 0D 0A 20 20 6F 70 32 5B 20 34 5D 3D 20 20 */.. op2[ 4]=
000110: 20 20 20 6F 70 5B 20 34 5D 3D 20 20 66 66 6E 65 op[ 4]= ffne
000120: 3B 0D 0A 20 20 6F 70 32 5B 20 35 5D 3D 75 6C 65 ;.. op2[ 5]=ule
000130: 3B 20 6F 70 5B 20 35 5D 3D 20 20 66 66 6C 65 3B ; op[ 5]= ffle;
000140: 09 09 2F 2A 20 68 65 69 72 39 20 2A 2F 0D 0A 20 ../* heir9 */..
000150: 20 6F 70 32 5B 20 36 5D 3D 75 67 65 3B 20 6F 70 op2[ 6]=uge; op
000160: 5B 20 36 5D 3D 20 20 66 66 67 65 3B 0D 0A 20 20 [ 6]= ffge;..
000170: 6F 70 32 5B 20 37 5D 3D 75 6C 74 3B 20 6F 70 5B op2[ 7]=ult; op[
000180: 20 37 5D 3D 20 20 66 66 6C 74 3B 0D 0A 20 20 6F 7]= fflt;.. o
000190: 70 32 5B 20 38 5D 3D 75 67 74 3B 20 6F 70 5B 20 p2[ 8]=ugt; op[
0001A0: 38 5D 3D 20 20 66 66 67 74 3B 0D 0A 20 20 6F 70 8]= ffgt;.. op
0001B0: 32 5B 20 39 5D 3D 20 20 20 20 20 6F 70 5B 20 39 2[ 9]= op[ 9
0001C0: 5D 3D 20 66 66 61 73 72 3B 09 09 2F 2A 20 68 65 ]= ffasr;../* he
0001D0: 69 72 31 30 20 2A 2F 0D 0A 20 20 6F 70 32 5B 31 ir10 */.. op2[1
0001E0: 30 5D 3D 20 20 20 20 20 6F 70 5B 31 30 5D 3D 20 0]= op[10]=
0001F0: 66 66 61 73 6C 3B 0D 0A 20 20 6F 70 32 5B 31 31 ffasl;.. op2[11
Size : 512 (Real : 512)
000000: 20 69 66 20 28 6E 63 6D 70 29 20 65 72 72 6F 72 if (ncmp) error
000010: 28 22 6E 6F 20 63 6C 6F 73 69 6E 67 20 62 72 61 ("no closing bra
000020: 63 6B 65 74 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A cket");.. }....
000030: 2F 2A 0D 0A 2A 2A 20 67 65 74 20 72 75 6E 20 6F /*..** get run o
000040: 70 74 69 6F 6E 73 0D 0A 2A 2F 0D 0A 61 73 6B 28 ptions..*/..ask(
000050: 29 20 7B 0D 0A 20 20 69 6E 74 20 69 3B 0D 0A 20 ) {.. int i;..
000060: 20 69 3D 6C 69 73 74 66 70 3D 6E 78 74 6C 61 62 i=listfp=nxtlab
000070: 3D 30 3B 0D 0A 20 20 6F 75 74 70 75 74 3D 73 74 =0;.. output=st
000080: 64 6F 75 74 3B 0D 0A 23 69 66 64 65 66 20 4F 50 dout;..#ifdef OP
000090: 54 49 4D 49 5A 45 0D 0A 20 20 6F 70 74 69 6D 69 TIMIZE.. optimi
0000A0: 7A 65 3D 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 61 ze=..#endif.. a
0000B0: 6C 61 72 6D 3D 6D 6F 6E 69 74 6F 72 3D 70 61 75 larm=monitor=pau
0000C0: 73 65 3D 4E 4F 3B 0D 0A 20 20 6C 69 6E 65 3D 6D se=NO;.. line=m
0000D0: 6C 69 6E 65 3B 0D 0A 20 20 77 68 69 6C 65 28 67 line;.. while(g
0000E0: 65 74 61 72 67 28 2B 2B 69 2C 20 6C 69 6E 65 2C etarg(++i, line,
0000F0: 20 4C 49 4E 45 53 49 5A 45 2C 20 61 72 67 63 73 LINESIZE, argcs
000100: 2C 20 61 72 67 76 73 29 21 3D 45 4F 46 29 20 7B , argvs)!=EOF) {
000110: 0D 0A 20 20 20 20 69 66 28 6C 69 6E 65 5B 30 5D .. if(line[0]
000120: 21 3D 27 2D 27 29 20 63 6F 6E 74 69 6E 75 65 3B !='-') continue;
000130: 0D 0A 20 20 20 20 69 66 28 28 74 6F 75 70 70 65 .. if((touppe
000140: 72 28 6C 69 6E 65 5B 31 5D 29 3D 3D 27 4C 27 29 r(line[1])=='L')
000150: 26 28 69 73 64 69 67 69 74 28 6C 69 6E 65 5B 32 &(isdigit(line[2
000160: 5D 29 29 26 28 6C 69 6E 65 5B 33 5D 3C 3D 27 20 ]))&(line[3]<='
000170: 27 29 29 20 7B 0D 0A 20 20 20 20 20 20 6C 69 73 ')) {.. lis
000180: 74 66 70 3D 6C 69 6E 65 5B 32 5D 2D 27 30 27 3B tfp=line[2]-'0';
000190: 0D 0A 20 20 20 20 20 20 63 6F 6E 74 69 6E 75 65 .. continue
0001A0: 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 ;.. }..
0001B0: 69 66 28 6C 69 6E 65 5B 32 5D 3C 3D 27 20 27 29 if(line[2]<=' ')
0001C0: 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 74 6F 75 {.. if(tou
0001D0: 70 70 65 72 28 6C 69 6E 65 5B 31 5D 29 3D 3D 27 pper(line[1])=='
0001E0: 41 27 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 61 A') {.. a
0001F0: 6C 61 72 6D 3D 59 45 53 3B 0D 0A 20 20 20 20 20 larm=YES;..
Size : 512 (Real : 512)
000000: 5D 3D 20 20 20 20 20 6F 70 5B 31 31 5D 3D 20 66 ]= op[11]= f
000010: 66 61 64 64 3B 09 09 2F 2A 20 68 65 69 72 31 31 fadd;../* heir11
000020: 20 2A 2F 0D 0A 20 20 6F 70 32 5B 31 32 5D 3D 20 */.. op2[12]=
000030: 20 20 20 20 6F 70 5B 31 32 5D 3D 20 66 66 73 75 op[12]= ffsu
000040: 62 3B 0D 0A 20 20 6F 70 32 5B 31 33 5D 3D 20 20 b;.. op2[13]=
000050: 20 20 20 6F 70 5B 31 33 5D 3D 66 66 6D 75 6C 74 op[13]=ffmult
000060: 3B 09 09 2F 2A 20 68 65 69 72 31 32 20 2A 2F 0D ;../* heir12 */.
000070: 0A 20 20 6F 70 32 5B 31 34 5D 3D 20 20 20 20 20 . op2[14]=
000080: 6F 70 5B 31 34 5D 3D 20 66 66 64 69 76 3B 0D 0A op[14]= ffdiv;..
000090: 20 20 6F 70 32 5B 31 35 5D 3D 20 20 20 20 20 6F op2[15]= o
0000A0: 70 5B 31 35 5D 3D 20 66 66 6D 6F 64 3B 0D 0A 20 p[15]= ffmod;..
0000B0: 20 7D 0D 0A 0D 0A 3E 3E 3E 20 43 43 31 32 2E 43 }....>>> CC12.C
0000C0: 20 36 37 38 38 0D 0A 2F 2A 0D 0A 2A 2A 20 6F 70 6788../*..** op
0000D0: 65 6E 20 61 6E 20 69 6E 63 6C 75 64 65 20 66 69 en an include fi
0000E0: 6C 65 0D 0A 2A 2F 0D 0A 64 6F 69 6E 63 6C 75 64 le..*/..doinclud
0000F0: 65 28 29 20 20 7B 0D 0A 20 20 63 68 61 72 20 2A e() {.. char *
000100: 63 70 3B 0D 0A 20 20 62 6C 61 6E 6B 73 28 29 3B cp;.. blanks();
000110: 09 09 09 2F 2A 20 73 6B 69 70 20 6F 76 65 72 20 .../* skip over
000120: 74 6F 20 6E 61 6D 65 20 2A 2F 0D 0A 20 20 73 77 to name */.. sw
000130: 69 74 63 68 20 28 2A 6C 70 74 72 29 20 7B 0D 0A itch (*lptr) {..
000140: 20 20 20 20 63 61 73 65 20 27 22 27 3A 20 63 61 case '"': ca
000150: 73 65 20 27 3C 27 3A 20 63 70 20 3D 20 2B 2B 6C se '<': cp = ++l
000160: 70 74 72 3B 0D 0A 20 20 20 20 77 68 69 6C 65 28 ptr;.. while(
000170: 2A 63 70 29 20 7B 0D 0A 20 20 20 20 20 20 73 77 *cp) {.. sw
000180: 69 74 63 68 28 2A 63 70 29 20 7B 63 61 73 65 20 itch(*cp) {case
000190: 27 22 27 3A 20 63 61 73 65 20 27 3E 27 3A 20 2A '"': case '>': *
0001A0: 63 70 3D 4E 55 4C 4C 3B 7D 0D 0A 20 20 20 20 20 cp=NULL;}..
0001B0: 20 2B 2B 63 70 3B 0D 0A 20 20 20 20 20 20 7D 0D ++cp;.. }.
0001C0: 0A 20 20 20 20 7D 0D 0A 20 20 69 66 28 28 69 6E . }.. if((in
0001D0: 70 75 74 32 3D 66 6F 70 65 6E 28 6C 70 74 72 2C put2=fopen(lptr,
0001E0: 22 72 22 29 29 3D 3D 4E 55 4C 4C 29 20 7B 0D 0A "r"))==NULL) {..
0001F0: 20 20 20 20 69 6E 70 75 74 32 3D 45 4F 46 3B 0D input2=EOF;.
Size : 512 (Real : 512)
000000: 20 20 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 continue;..
000010: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 69 }.. i
000020: 66 28 74 6F 75 70 70 65 72 28 6C 69 6E 65 5B 31 f(toupper(line[1
000030: 5D 29 3D 3D 27 4D 27 29 20 7B 0D 0A 20 20 20 20 ])=='M') {..
000040: 20 20 20 20 6D 6F 6E 69 74 6F 72 3D 59 45 53 3B monitor=YES;
000050: 0D 0A 20 20 20 20 20 20 20 20 63 6F 6E 74 69 6E .. contin
000060: 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A ue;.. }..
000070: 23 69 66 64 65 66 20 4F 50 54 49 4D 49 5A 45 0D #ifdef OPTIMIZE.
000080: 0A 20 20 20 20 20 20 69 66 28 74 6F 75 70 70 65 . if(touppe
000090: 72 28 6C 69 6E 65 5B 31 5D 29 3D 3D 27 4F 27 29 r(line[1])=='O')
0000A0: 20 7B 0D 0A 20 20 20 20 20 20 20 20 6F 70 74 69 {.. opti
0000B0: 6D 69 7A 65 3D 59 45 53 3B 0D 0A 20 20 20 20 20 mize=YES;..
0000C0: 20 20 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 continue;..
0000D0: 20 20 20 20 20 20 7D 0D 0A 23 65 6E 64 69 66 0D }..#endif.
0000E0: 0A 20 20 20 20 20 20 69 66 28 74 6F 75 70 70 65 . if(touppe
0000F0: 72 28 6C 69 6E 65 5B 31 5D 29 3D 3D 27 50 27 29 r(line[1])=='P')
000100: 20 7B 0D 0A 20 20 20 20 20 20 20 20 70 61 75 73 {.. paus
000110: 65 3D 59 45 53 3B 0D 0A 20 20 20 20 20 20 20 20 e=YES;..
000120: 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 20 20 continue;..
000130: 20 20 20 7D 0D 0A 20 20 20 20 20 20 7D 0D 0A 23 }.. }..#
000140: 69 66 6E 64 65 66 20 4C 49 4E 4B 0D 0A 20 20 20 ifndef LINK..
000150: 20 69 66 28 74 6F 75 70 70 65 72 28 6C 69 6E 65 if(toupper(line
000160: 5B 31 5D 29 3D 3D 27 42 27 29 20 7B 0D 0A 20 20 [1])=='B') {..
000170: 20 20 20 20 62 75 6D 70 28 30 29 3B 20 62 75 6D bump(0); bum
000180: 70 28 32 29 3B 0D 0A 20 20 20 20 20 20 69 66 28 p(2);.. if(
000190: 6E 75 6D 62 65 72 28 26 6E 78 74 6C 61 62 29 29 number(&nxtlab))
0001A0: 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 20 continue;..
0001B0: 20 20 7D 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 20 }..#endif..
0001C0: 20 73 6F 75 74 28 22 75 73 61 67 65 3A 20 63 63 sout("usage: cc
0001D0: 20 5B 66 69 6C 65 5D 2E 2E 2E 20 5B 2D 6D 5D 20 [file]... [-m]
0001E0: 5B 2D 61 5D 20 5B 2D 70 5D 20 5B 2D 6C 23 5D 22 [-a] [-p] [-l#]"
0001F0: 2C 20 73 74 64 65 72 72 29 3B 0D 0A 23 69 66 64 , stderr);..#ifd
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 65 72 72 6F 72 28 22 6F 70 65 6E . error("open
000010: 20 66 61 69 6C 75 72 65 20 6F 6E 20 69 6E 63 6C failure on incl
000020: 75 64 65 20 66 69 6C 65 22 29 3B 0D 0A 20 20 20 ude file");..
000030: 20 7D 0D 0A 20 20 6B 69 6C 6C 28 29 3B 09 09 09 }.. kill();...
000040: 2F 2A 20 63 6C 65 61 72 20 72 65 73 74 20 6F 66 /* clear rest of
000050: 20 6C 69 6E 65 20 2A 2F 0D 0A 09 09 09 09 2F 2A line */....../*
000060: 20 73 6F 20 6E 65 78 74 20 72 65 61 64 20 77 69 so next read wi
000070: 6C 6C 20 63 6F 6D 65 20 66 72 6F 6D 20 2A 2F 0D ll come from */.
000080: 0A 09 09 09 09 2F 2A 20 6E 65 77 20 66 69 6C 65 ...../* new file
000090: 20 28 69 66 20 6F 70 65 6E 29 20 2A 2F 0D 0A 20 (if open) */..
0000A0: 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 }..../*..** tes
0000B0: 74 20 66 6F 72 20 67 6C 6F 62 61 6C 20 64 65 63 t for global dec
0000C0: 6C 61 72 61 74 69 6F 6E 73 0D 0A 2A 2F 0D 0A 64 larations..*/..d
0000D0: 6F 64 65 63 6C 61 72 65 28 63 6C 61 73 73 29 20 odeclare(class)
0000E0: 69 6E 74 20 63 6C 61 73 73 3B 20 7B 0D 0A 20 20 int class; {..
0000F0: 69 66 28 61 6D 61 74 63 68 28 22 63 68 61 72 22 if(amatch("char"
000100: 2C 34 29 29 20 7B 0D 0A 20 20 20 20 64 65 63 6C ,4)) {.. decl
000110: 67 6C 62 28 43 43 48 41 52 2C 20 63 6C 61 73 73 glb(CCHAR, class
000120: 29 3B 0D 0A 20 20 20 20 6E 73 28 29 3B 0D 0A 20 );.. ns();..
000130: 20 20 20 72 65 74 75 72 6E 20 31 3B 0D 0A 20 20 return 1;..
000140: 20 20 7D 0D 0A 20 20 65 6C 73 65 20 69 66 28 28 }.. else if((
000150: 61 6D 61 74 63 68 28 22 69 6E 74 22 2C 33 29 29 amatch("int",3))
000160: 7C 28 63 6C 61 73 73 3D 3D 45 58 54 45 52 4E 41 |(class==EXTERNA
000170: 4C 29 29 20 7B 0D 0A 20 20 20 20 64 65 63 6C 67 L)) {.. declg
000180: 6C 62 28 43 49 4E 54 2C 20 63 6C 61 73 73 29 3B lb(CINT, class);
000190: 0D 0A 20 20 20 20 6E 73 28 29 3B 0D 0A 20 20 20 .. ns();..
0001A0: 20 72 65 74 75 72 6E 20 31 3B 0D 0A 20 20 20 20 return 1;..
0001B0: 7D 0D 0A 20 20 72 65 74 75 72 6E 20 30 3B 0D 0A }.. return 0;..
0001C0: 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 64 65 }..../*..** de
0001D0: 6C 63 61 72 65 20 61 20 73 74 61 74 69 63 20 76 lcare a static v
0001E0: 61 72 69 61 62 6C 65 0D 0A 2A 2F 0D 0A 64 65 63 ariable..*/..dec
0001F0: 6C 67 6C 62 28 74 79 70 65 2C 20 63 6C 61 73 73 lglb(type, class
Size : 512 (Real : 512)
000000: 20 20 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 69 }.. else i
000010: 6E 69 74 28 73 69 7A 65 2C 20 69 64 65 6E 74 2C nit(size, ident,
000020: 20 26 64 69 6D 29 3B 0D 0A 20 20 20 20 7D 0D 0A &dim);.. }..
000030: 20 20 69 66 28 28 64 69 6D 20 3D 3D 20 2D 31 29 if((dim == -1)
000040: 26 28 64 69 6D 3D 3D 73 61 76 65 64 69 6D 29 29 &(dim==savedim))
000050: 20 7B 0D 0A 20 20 20 20 20 73 74 6F 77 6C 69 74 {.. stowlit
000060: 28 30 2C 20 73 69 7A 65 3D 42 50 57 29 3B 0D 0A (0, size=BPW);..
000070: 20 20 20 20 69 64 65 6E 74 3D 50 4F 49 4E 54 45 ident=POINTE
000080: 52 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 64 75 6D R;.. }.. dum
000090: 70 6C 69 74 73 28 73 69 7A 65 29 3B 0D 0A 20 20 plits(size);..
0000A0: 64 75 6D 70 7A 65 72 6F 28 73 69 7A 65 2C 20 64 dumpzero(size, d
0000B0: 69 6D 29 3B 0D 0A 20 20 72 65 74 75 72 6E 20 69 im);.. return i
0000C0: 64 65 6E 74 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A dent;.. }..../*
0000D0: 0D 0A 2A 2A 20 65 76 61 6C 75 61 74 65 20 6F 6E ..** evaluate on
0000E0: 65 20 69 6E 69 74 69 61 6C 69 7A 65 72 0D 0A 2A e initializer..*
0000F0: 2F 0D 0A 69 6E 69 74 28 73 69 7A 65 2C 20 69 64 /..init(size, id
000100: 65 6E 74 2C 20 64 69 6D 29 20 69 6E 74 20 73 69 ent, dim) int si
000110: 7A 65 2C 20 69 64 65 6E 74 2C 20 2A 64 69 6D 3B ze, ident, *dim;
000120: 20 7B 0D 0A 20 20 69 6E 74 20 76 61 6C 75 65 3B {.. int value;
000130: 0D 0A 20 20 69 66 28 71 73 74 72 28 26 76 61 6C .. if(qstr(&val
000140: 75 65 29 29 20 7B 0D 0A 20 20 20 20 69 66 28 28 ue)) {.. if((
000150: 69 64 65 6E 74 3D 3D 56 41 52 49 41 42 4C 45 29 ident==VARIABLE)
000160: 7C 28 73 69 7A 65 21 3D 31 29 29 0D 0A 20 20 20 |(size!=1))..
000170: 20 20 20 65 72 72 6F 72 28 22 6D 75 73 74 20 61 error("must a
000180: 73 73 69 67 6E 20 74 6F 20 63 68 61 72 20 70 6F ssign to char po
000190: 69 6E 74 65 72 20 6F 72 20 61 72 72 61 79 22 29 inter or array")
0001A0: 3B 0D 0A 20 20 20 20 2A 64 69 6D 20 3D 20 2A 64 ;.. *dim = *d
0001B0: 69 6D 20 2D 20 28 6C 69 74 70 74 72 20 2D 20 76 im - (litptr - v
0001C0: 61 6C 75 65 29 3B 0D 0A 20 20 20 20 69 66 28 69 alue);.. if(i
0001D0: 64 65 6E 74 3D 3D 50 4F 49 4E 54 45 52 29 20 70 dent==POINTER) p
0001E0: 6F 69 6E 74 28 29 3B 0D 0A 20 20 20 20 7D 0D 0A oint();.. }..
0001F0: 20 20 65 6C 73 65 20 69 66 28 63 6F 6E 73 74 65 else if(conste
Size : 512 (Real : 512)
000000: 29 20 20 69 6E 74 20 74 79 70 65 2C 20 63 6C 61 ) int type, cla
000010: 73 73 3B 20 7B 0D 0A 20 20 69 6E 74 20 6B 2C 20 ss; {.. int k,
000020: 6A 3B 0D 0A 20 20 77 68 69 6C 65 28 31 29 20 7B j;.. while(1) {
000030: 0D 0A 20 20 20 20 69 66 28 65 6E 64 73 74 28 29 .. if(endst()
000040: 29 20 72 65 74 75 72 6E 3B 09 09 09 2F 2A 20 64 ) return;.../* d
000050: 6F 20 6C 69 6E 65 20 2A 2F 0D 0A 20 20 20 20 69 o line */.. i
000060: 66 28 6D 61 74 63 68 28 22 28 2A 22 29 7C 6D 61 f(match("(*")|ma
000070: 74 63 68 28 22 2A 22 29 29 20 7B 0D 0A 20 20 20 tch("*")) {..
000080: 20 20 20 6A 3D 50 4F 49 4E 54 45 52 3B 0D 0A 20 j=POINTER;..
000090: 20 20 20 20 20 6B 3D 30 3B 0D 0A 20 20 20 20 20 k=0;..
0000A0: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 7B 0D 0A }.. else {..
0000B0: 20 20 20 20 20 20 6A 3D 56 41 52 49 41 42 4C 45 j=VARIABLE
0000C0: 3B 0D 0A 20 20 20 20 20 20 6B 3D 31 3B 0D 0A 20 ;.. k=1;..
0000D0: 20 20 20 20 20 7D 0D 0A 20 20 20 20 69 66 20 28 }.. if (
0000E0: 73 79 6D 6E 61 6D 65 28 73 73 6E 61 6D 65 2C 20 symname(ssname,
0000F0: 59 45 53 29 3D 3D 30 29 20 69 6C 6C 6E 61 6D 65 YES)==0) illname
000100: 28 29 3B 0D 0A 20 20 20 20 69 66 28 66 69 6E 64 ();.. if(find
000110: 67 6C 62 28 73 73 6E 61 6D 65 29 29 20 6D 75 6C glb(ssname)) mul
000120: 74 69 64 65 66 28 73 73 6E 61 6D 65 29 3B 0D 0A tidef(ssname);..
000130: 20 20 20 20 69 66 28 6D 61 74 63 68 28 22 29 22 if(match(")"
000140: 29 29 20 3B 0D 0A 20 20 20 20 69 66 28 6D 61 74 )) ;.. if(mat
000150: 63 68 28 22 28 29 22 29 29 20 6A 3D 46 55 4E 43 ch("()")) j=FUNC
000160: 54 49 4F 4E 3B 0D 0A 20 20 20 20 65 6C 73 65 20 TION;.. else
000170: 69 66 20 28 6D 61 74 63 68 28 22 5B 22 29 29 20 if (match("["))
000180: 7B 0D 0A 20 20 20 20 20 20 70 61 65 72 72 6F 72 {.. paerror
000190: 28 6A 29 3B 0D 0A 20 20 20 20 20 20 6B 3D 6E 65 (j);.. k=ne
0001A0: 65 64 73 75 62 28 29 3B 09 09 09 2F 2A 20 67 65 edsub();.../* ge
0001B0: 74 20 73 69 7A 65 20 2A 2F 0D 0A 20 20 20 20 20 t size */..
0001C0: 20 6A 3D 41 52 52 41 59 3B 09 09 09 09 2F 2A 20 j=ARRAY;..../*
0001D0: 21 30 3D 61 72 72 61 79 20 2A 2F 0D 0A 20 20 20 !0=array */..
0001E0: 20 20 20 7D 0D 0A 20 20 20 20 69 66 28 63 6C 61 }.. if(cla
0001F0: 73 73 3D 3D 45 58 54 45 52 4E 41 4C 29 20 65 78 ss==EXTERNAL) ex
Size : 512 (Real : 512)
000000: 78 70 72 28 26 76 61 6C 75 65 29 29 20 7B 0D 0A xpr(&value)) {..
000010: 20 20 20 20 69 66 28 69 64 65 6E 74 3D 3D 50 4F if(ident==PO
000020: 49 4E 54 45 52 29 20 65 72 72 6F 72 28 22 63 61 INTER) error("ca
000030: 6E 6E 6F 74 20 61 73 73 69 67 6E 20 74 6F 20 70 nnot assign to p
000040: 6F 69 6E 74 65 72 22 29 3B 0D 0A 20 20 20 20 73 ointer");.. s
000050: 74 6F 77 6C 69 74 28 76 61 6C 75 65 2C 20 73 69 towlit(value, si
000060: 7A 65 29 3B 0D 0A 20 20 20 20 2A 64 69 6D 20 3D ze);.. *dim =
000070: 20 2A 64 69 6D 20 2D 20 31 3B 0D 0A 20 20 20 20 *dim - 1;..
000080: 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A }.. }..../*..**
000090: 20 67 65 74 20 72 65 71 75 69 72 65 64 20 61 72 get required ar
0000A0: 72 61 79 20 73 69 7A 65 0D 0A 2A 2F 0D 0A 6E 65 ray size..*/..ne
0000B0: 65 64 73 75 62 28 29 20 20 7B 0D 0A 20 20 69 6E edsub() {.. in
0000C0: 74 20 76 61 6C 3B 0D 0A 20 20 69 66 28 6D 61 74 t val;.. if(mat
0000D0: 63 68 28 22 5D 22 29 29 20 72 65 74 75 72 6E 20 ch("]")) return
0000E0: 30 3B 09 2F 2A 20 6E 75 6C 6C 20 73 69 7A 65 20 0;./* null size
0000F0: 2A 2F 0D 0A 20 20 69 66 20 28 63 6F 6E 73 74 65 */.. if (conste
000100: 78 70 72 28 26 76 61 6C 29 3D 3D 30 29 20 76 61 xpr(&val)==0) va
000110: 6C 3D 31 3B 0D 0A 20 20 69 66 20 28 76 61 6C 3C l=1;.. if (val<
000120: 30 29 20 7B 0D 0A 20 20 20 20 65 72 72 6F 72 28 0) {.. error(
000130: 22 6E 65 67 61 74 69 76 65 20 73 69 7A 65 20 69 "negative size i
000140: 6C 6C 65 67 61 6C 22 29 3B 0D 0A 20 20 20 20 76 llegal");.. v
000150: 61 6C 20 3D 20 2D 76 61 6C 3B 0D 0A 20 20 20 20 al = -val;..
000160: 7D 0D 0A 20 20 6E 65 65 64 74 6F 6B 65 6E 28 22 }.. needtoken("
000170: 5D 22 29 3B 09 09 2F 2A 20 66 6F 72 63 65 20 73 ]");../* force s
000180: 69 6E 67 6C 65 20 64 69 6D 65 6E 73 69 6F 6E 20 ingle dimension
000190: 2A 2F 0D 0A 20 20 72 65 74 75 72 6E 20 76 61 6C */.. return val
0001A0: 3B 09 09 09 2F 2A 20 61 6E 64 20 72 65 74 75 72 ;.../* and retur
0001B0: 6E 20 73 69 7A 65 20 2A 2F 0D 0A 20 20 7D 0D 0A n size */.. }..
0001C0: 0D 0A 2F 2A 0D 0A 2A 2A 20 62 65 67 69 6E 20 61 ../*..** begin a
0001D0: 20 66 75 6E 63 74 69 6F 6E 0D 0A 2A 2A 0D 0A 2A function..**..*
0001E0: 2A 20 63 61 6C 6C 65 64 20 66 72 6F 6D 20 22 70 * called from "p
0001F0: 61 72 73 65 22 20 61 6E 64 20 74 72 69 65 73 20 arse" and tries
Size : 512 (Real : 512)
000000: 74 65 72 6E 61 6C 28 73 73 6E 61 6D 65 29 3B 0D ternal(ssname);.
000010: 0A 20 20 20 20 65 6C 73 65 20 69 66 28 6A 21 3D . else if(j!=
000020: 46 55 4E 43 54 49 4F 4E 29 20 6A 3D 69 6E 69 74 FUNCTION) j=init
000030: 69 61 6C 73 28 74 79 70 65 3E 3E 32 2C 20 6A 2C ials(type>>2, j,
000040: 20 6B 29 3B 0D 0A 20 20 20 20 61 64 64 73 79 6D k);.. addsym
000050: 28 73 73 6E 61 6D 65 2C 20 6A 2C 20 74 79 70 65 (ssname, j, type
000060: 2C 20 6B 2C 20 26 67 6C 62 70 74 72 2C 20 63 6C , k, &glbptr, cl
000070: 61 73 73 29 3B 0D 0A 20 20 20 20 69 66 20 28 6D ass);.. if (m
000080: 61 74 63 68 28 22 2C 22 29 3D 3D 30 29 20 72 65 atch(",")==0) re
000090: 74 75 72 6E 3B 09 09 2F 2A 20 6D 6F 72 65 3F 20 turn;../* more?
0000A0: 2A 2F 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A */.. }.. }..
0000B0: 0D 0A 2F 2A 0D 0A 2A 2A 20 64 65 63 6C 61 72 65 ../*..** declare
0000C0: 20 6C 6F 63 61 6C 20 76 61 72 69 61 62 6C 65 73 local variables
0000D0: 0D 0A 2A 2F 0D 0A 64 65 63 6C 6C 6F 63 28 74 79 ..*/..declloc(ty
0000E0: 70 29 20 20 69 6E 74 20 74 79 70 3B 20 20 7B 0D p) int typ; {.
0000F0: 0A 20 20 69 6E 74 20 6B 2C 6A 3B 0D 0A 20 20 69 . int k,j;.. i
000100: 66 28 73 77 61 63 74 69 76 65 29 20 65 72 72 6F f(swactive) erro
000110: 72 28 22 6E 6F 74 20 61 6C 6C 6F 77 65 64 20 69 r("not allowed i
000120: 6E 20 73 77 69 74 63 68 22 29 3B 0D 0A 23 69 66 n switch");..#if
000130: 64 65 66 20 53 54 47 4F 54 4F 0D 0A 20 20 69 66 def STGOTO.. if
000140: 28 6E 6F 6C 6F 63 29 20 65 72 72 6F 72 28 22 6E (noloc) error("n
000150: 6F 74 20 61 6C 6C 6F 77 65 64 20 77 69 74 68 20 ot allowed with
000160: 67 6F 74 6F 22 29 3B 0D 0A 23 65 6E 64 69 66 0D goto");..#endif.
000170: 0A 20 20 69 66 28 64 65 63 6C 61 72 65 64 20 3C . if(declared <
000180: 20 30 29 20 65 72 72 6F 72 28 22 6D 75 73 74 20 0) error("must
000190: 64 65 63 6C 61 72 65 20 66 69 72 73 74 20 69 6E declare first in
0001A0: 20 62 6C 6F 63 6B 22 29 3B 0D 0A 20 20 77 68 69 block");.. whi
0001B0: 6C 65 28 31 29 20 7B 0D 0A 20 20 20 20 77 68 69 le(1) {.. whi
0001C0: 6C 65 28 31 29 20 7B 0D 0A 20 20 20 20 20 20 69 le(1) {.. i
0001D0: 66 28 65 6E 64 73 74 28 29 29 20 72 65 74 75 72 f(endst()) retur
0001E0: 6E 3B 0D 0A 20 20 20 20 20 20 69 66 28 6D 61 74 n;.. if(mat
0001F0: 63 68 28 22 2A 22 29 29 20 6A 3D 50 4F 49 4E 54 ch("*")) j=POINT
Size : 512 (Real : 512)
000000: 74 6F 20 6D 61 6B 65 20 61 20 66 75 6E 63 74 69 to make a functi
000010: 6F 6E 0D 0A 2A 2A 20 6F 75 74 20 6F 66 20 74 68 on..** out of th
000020: 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 74 65 78 74 e following text
000030: 0D 0A 2A 2A 0D 0A 2A 2F 0D 0A 6E 65 77 66 75 6E ..**..*/..newfun
000040: 63 28 29 20 20 7B 0D 0A 20 20 63 68 61 72 20 2A c() {.. char *
000050: 70 74 72 3B 0D 0A 23 69 66 64 65 66 20 53 54 47 ptr;..#ifdef STG
000060: 4F 54 4F 0D 0A 20 20 6E 6F 67 6F 20 20 3D 09 09 OTO.. nogo =..
000070: 09 2F 2A 20 65 6E 61 62 6C 65 20 67 6F 74 6F 20 ./* enable goto
000080: 73 74 61 74 65 6D 65 6E 74 73 20 2A 2F 0D 0A 20 statements */..
000090: 20 6E 6F 6C 6F 63 20 3D 20 30 3B 09 09 09 2F 2A noloc = 0;.../*
0000A0: 20 65 6E 61 62 6C 65 20 62 6C 6F 63 6B 2D 6C 6F enable block-lo
0000B0: 63 61 6C 20 64 65 63 6C 61 72 61 74 69 6F 6E 73 cal declarations
0000C0: 20 2A 2F 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 6C */..#endif.. l
0000D0: 61 73 74 73 74 3D 09 09 09 2F 2A 20 6E 6F 20 73 astst=.../* no s
0000E0: 74 61 74 65 6D 65 6E 74 20 79 65 74 20 2A 2F 0D tatement yet */.
0000F0: 0A 20 20 6C 69 74 70 74 72 3D 30 3B 09 09 09 2F . litptr=0;.../
000100: 2A 20 63 6C 65 61 72 20 6C 69 74 20 70 6F 6F 6C * clear lit pool
000110: 20 2A 2F 0D 0A 20 20 6C 69 74 6C 61 62 3D 67 65 */.. litlab=ge
000120: 74 6C 61 62 65 6C 28 29 3B 09 09 2F 2A 20 6C 61 tlabel();../* la
000130: 62 65 6C 20 6E 65 78 74 20 6C 69 74 20 70 6F 6F bel next lit poo
000140: 6C 20 2A 2F 0D 0A 20 20 6C 6F 63 70 74 72 3D 53 l */.. locptr=S
000150: 54 41 52 54 4C 4F 43 3B 09 09 2F 2A 20 63 6C 65 TARTLOC;../* cle
000160: 61 72 20 6C 6F 63 61 6C 20 76 61 72 69 61 62 6C ar local variabl
000170: 65 73 20 2A 2F 0D 0A 20 20 69 66 28 6D 6F 6E 69 es */.. if(moni
000180: 74 6F 72 29 20 6C 6F 75 74 28 6C 69 6E 65 2C 20 tor) lout(line,
000190: 73 74 64 65 72 72 29 3B 0D 0A 20 20 69 66 20 28 stderr);.. if (
0001A0: 73 79 6D 6E 61 6D 65 28 73 73 6E 61 6D 65 2C 20 symname(ssname,
0001B0: 59 45 53 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 YES)==0) {..
0001C0: 65 72 72 6F 72 28 22 69 6C 6C 65 67 61 6C 20 66 error("illegal f
0001D0: 75 6E 63 74 69 6F 6E 20 6F 72 20 64 65 63 6C 61 unction or decla
0001E0: 72 61 74 69 6F 6E 22 29 3B 0D 0A 20 20 20 20 6B ration");.. k
0001F0: 69 6C 6C 28 29 3B 09 09 09 2F 2A 20 69 6E 76 61 ill();.../* inva
Size : 512 (Real : 512)
000000: 45 52 3B 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 ER;.. else
000010: 20 20 20 20 20 20 20 20 20 20 6A 3D 56 41 52 49 j=VARI
000020: 41 42 4C 45 3B 0D 0A 20 20 20 20 20 20 69 66 20 ABLE;.. if
000030: 28 73 79 6D 6E 61 6D 65 28 73 73 6E 61 6D 65 2C (symname(ssname,
000040: 20 59 45 53 29 3D 3D 30 29 20 69 6C 6C 6E 61 6D YES)==0) illnam
000050: 65 28 29 3B 0D 0A 20 20 20 20 20 20 2F 2A 20 6E e();.. /* n
000060: 6F 20 6D 75 6C 74 69 64 65 66 20 63 68 65 63 6B o multidef check
000070: 2C 20 62 6C 6F 63 6B 2D 6C 6F 63 61 6C 73 20 61 , block-locals a
000080: 72 65 20 74 6F 67 65 74 68 65 72 20 2A 2F 0D 0A re together */..
000090: 20 20 20 20 20 20 6B 3D 42 50 57 3B 0D 0A 20 20 k=BPW;..
0000A0: 20 20 20 20 69 66 20 28 6D 61 74 63 68 28 22 5B if (match("[
0000B0: 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 70 ")) {.. p
0000C0: 61 65 72 72 6F 72 28 6A 29 3B 0D 0A 20 20 20 20 aerror(j);..
0000D0: 20 20 20 20 69 66 28 6B 3D 6E 65 65 64 73 75 62 if(k=needsub
0000E0: 28 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 20 ()) {..
0000F0: 20 6A 3D 41 52 52 41 59 3B 0D 0A 20 20 20 20 20 j=ARRAY;..
000100: 20 20 20 20 20 69 66 28 74 79 70 3D 3D 43 49 4E if(typ==CIN
000110: 54 29 6B 3D 6B 3C 3C 4C 42 50 57 3B 0D 0A 20 20 T)k=k<<LBPW;..
000120: 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 }..
000130: 20 20 20 65 6C 73 65 20 7B 6A 3D 50 4F 49 4E 54 else {j=POINT
000140: 45 52 3B 20 6B 3D 42 50 57 3B 7D 0D 0A 20 20 20 ER; k=BPW;}..
000150: 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C }.. el
000160: 73 65 20 69 66 28 28 74 79 70 3D 3D 43 43 48 41 se if((typ==CCHA
000170: 52 29 26 28 6A 3D 3D 56 41 52 49 41 42 4C 45 29 R)&(j==VARIABLE)
000180: 29 20 6B 3D 53 42 50 43 3B 0D 0A 20 20 20 20 20 ) k=SBPC;..
000190: 20 64 65 63 6C 61 72 65 64 20 3D 20 64 65 63 6C declared = decl
0001A0: 61 72 65 64 20 2B 20 6B 3B 0D 0A 20 20 20 20 20 ared + k;..
0001B0: 20 61 64 64 73 79 6D 28 73 73 6E 61 6D 65 2C 20 addsym(ssname,
0001C0: 6A 2C 20 74 79 70 2C 20 63 73 70 20 2D 20 64 65 j, typ, csp - de
0001D0: 63 6C 61 72 65 64 2C 20 26 6C 6F 63 70 74 72 2C clared, &locptr,
0001E0: 20 41 55 54 4F 4D 41 54 49 43 29 3B 0D 0A 20 20 AUTOMATIC);..
0001F0: 20 20 20 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 break;..
Size : 512 (Real : 512)
000000: 6C 69 64 61 74 65 20 6C 69 6E 65 20 2A 2F 0D 0A lidate line */..
000010: 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 return;..
000020: 20 7D 0D 0A 20 20 69 66 28 66 75 6E 63 31 29 20 }.. if(func1)
000030: 7B 0D 0A 20 20 20 20 70 6F 73 74 6C 61 62 65 6C {.. postlabel
000040: 28 62 65 67 6C 61 62 29 3B 0D 0A 20 20 20 20 66 (beglab);.. f
000050: 75 6E 63 31 3D 30 3B 0D 0A 20 20 20 20 7D 0D 0A unc1=0;.. }..
000060: 20 20 69 66 28 70 74 72 3D 66 69 6E 64 67 6C 62 if(ptr=findglb
000070: 28 73 73 6E 61 6D 65 29 29 20 7B 09 2F 2A 20 61 (ssname)) {./* a
000080: 6C 72 65 61 64 79 20 69 6E 20 73 79 6D 62 6F 6C lready in symbol
000090: 20 74 61 62 6C 65 20 3F 20 2A 2F 0D 0A 20 20 20 table ? */..
0000A0: 20 69 66 28 70 74 72 5B 49 44 45 4E 54 5D 21 3D if(ptr[IDENT]!=
0000B0: 46 55 4E 43 54 49 4F 4E 29 20 20 20 20 20 20 20 FUNCTION)
0000C0: 6D 75 6C 74 69 64 65 66 28 73 73 6E 61 6D 65 29 multidef(ssname)
0000D0: 3B 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 70 ;.. else if(p
0000E0: 74 72 5B 4F 46 46 53 45 54 5D 3D 3D 46 55 4E 43 tr[OFFSET]==FUNC
0000F0: 54 49 4F 4E 29 20 6D 75 6C 74 69 64 65 66 28 73 TION) multidef(s
000100: 73 6E 61 6D 65 29 3B 0D 0A 20 20 20 20 65 6C 73 sname);.. els
000110: 65 20 7B 0D 0A 20 20 20 20 20 20 2F 2A 20 65 61 e {.. /* ea
000120: 72 6C 69 65 72 20 61 73 73 75 6D 65 64 20 74 6F rlier assumed to
000130: 20 62 65 20 61 20 66 75 6E 63 74 69 6F 6E 20 2A be a function *
000140: 2F 0D 0A 20 20 20 20 20 20 70 74 72 5B 4F 46 46 /.. ptr[OFF
000150: 53 45 54 5D 3D 46 55 4E 43 54 49 4F 4E 3B 0D 0A SET]=FUNCTION;..
000160: 20 20 20 20 20 20 70 74 72 5B 43 4C 41 53 53 5D ptr[CLASS]
000170: 3D 53 54 41 54 49 43 3B 0D 0A 20 20 20 20 20 20 =STATIC;..
000180: 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 }.. }.. else
000190: 0D 0A 20 20 20 20 61 64 64 73 79 6D 28 73 73 6E .. addsym(ssn
0001A0: 61 6D 65 2C 20 46 55 4E 43 54 49 4F 4E 2C 20 43 ame, FUNCTION, C
0001B0: 49 4E 54 2C 20 46 55 4E 43 54 49 4F 4E 2C 20 26 INT, FUNCTION, &
0001C0: 67 6C 62 70 74 72 2C 20 53 54 41 54 49 43 29 3B glbptr, STATIC);
0001D0: 0D 0A 20 20 69 66 28 6D 61 74 63 68 28 22 28 22 .. if(match("("
0001E0: 29 3D 3D 30 29 20 65 72 72 6F 72 28 22 6E 6F 20 )==0) error("no
0001F0: 6F 70 65 6E 20 70 61 72 65 6E 22 29 3B 0D 0A 20 open paren");..
Size : 512 (Real : 512)
000000: 20 20 7D 0D 0A 20 20 20 20 69 66 20 28 6D 61 74 }.. if (mat
000010: 63 68 28 22 2C 22 29 3D 3D 30 29 20 72 65 74 75 ch(",")==0) retu
000020: 72 6E 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D rn;.. }.. }.
000030: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 66 .../*..** test f
000040: 6F 72 20 70 6F 69 6E 74 65 72 20 61 72 72 61 79 or pointer array
000050: 20 28 75 6E 73 75 70 70 6F 72 74 65 64 29 0D 0A (unsupported)..
000060: 2A 2F 0D 0A 70 61 65 72 72 6F 72 28 6A 29 20 69 */..paerror(j) i
000070: 6E 74 20 6A 3B 20 7B 0D 0A 20 20 69 66 28 6A 3D nt j; {.. if(j=
000080: 3D 50 4F 49 4E 54 45 52 29 20 65 72 72 6F 72 28 =POINTER) error(
000090: 22 6E 6F 20 70 6F 69 6E 74 65 72 20 61 72 72 61 "no pointer arra
0000A0: 79 73 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A ys");.. }..../*
0000B0: 0D 0A 2A 2A 20 69 6E 69 74 69 61 6C 69 7A 65 20 ..** initialize
0000C0: 67 6C 6F 62 61 6C 20 6F 62 6A 65 63 74 73 0D 0A global objects..
0000D0: 2A 2F 0D 0A 69 6E 69 74 69 61 6C 73 28 73 69 7A */..initials(siz
0000E0: 65 2C 20 69 64 65 6E 74 2C 20 64 69 6D 29 20 69 e, ident, dim) i
0000F0: 6E 74 20 73 69 7A 65 2C 20 69 64 65 6E 74 2C 20 nt size, ident,
000100: 64 69 6D 3B 20 7B 0D 0A 20 20 69 6E 74 20 73 61 dim; {.. int sa
000110: 76 65 64 69 6D 3B 0D 0A 20 20 6C 69 74 70 74 72 vedim;.. litptr
000120: 3D 30 3B 0D 0A 20 20 69 66 28 64 69 6D 3D 3D 30 =0;.. if(dim==0
000130: 29 20 64 69 6D 20 3D 20 2D 31 3B 0D 0A 20 20 73 ) dim = -1;.. s
000140: 61 76 65 64 69 6D 3D 64 69 6D 3B 0D 0A 20 20 65 avedim=dim;.. e
000150: 6E 74 72 79 28 29 3B 0D 0A 20 20 69 66 28 6D 61 ntry();.. if(ma
000160: 74 63 68 28 22 3D 22 29 29 20 7B 0D 0A 20 20 20 tch("=")) {..
000170: 20 69 66 28 6D 61 74 63 68 28 22 7B 22 29 29 20 if(match("{"))
000180: 7B 0D 0A 20 20 20 20 20 20 77 68 69 6C 65 28 64 {.. while(d
000190: 69 6D 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 69 im) {.. i
0001A0: 6E 69 74 28 73 69 7A 65 2C 20 69 64 65 6E 74 2C nit(size, ident,
0001B0: 20 26 64 69 6D 29 3B 0D 0A 20 20 20 20 20 20 20 &dim);..
0001C0: 20 69 66 28 6D 61 74 63 68 28 22 2C 22 29 3D 3D if(match(",")==
0001D0: 30 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 0) break;..
0001E0: 20 20 20 7D 0D 0A 20 20 20 20 20 20 6E 65 65 64 }.. need
0001F0: 74 6F 6B 65 6E 28 22 7D 22 29 3B 0D 0A 20 20 20 token("}");..
Size : 512 (Real : 512)
000000: 20 65 6E 74 72 79 28 29 3B 0D 0A 20 20 6C 6F 63 entry();.. loc
000010: 70 74 72 3D 53 54 41 52 54 4C 4F 43 3B 0D 0A 20 ptr=STARTLOC;..
000020: 20 61 72 67 73 74 6B 3D 30 3B 09 09 09 2F 2A 20 argstk=0;.../*
000030: 69 6E 69 74 20 61 72 67 20 63 6F 75 6E 74 20 2A init arg count *
000040: 2F 0D 0A 20 20 77 68 69 6C 65 28 6D 61 74 63 68 /.. while(match
000050: 28 22 29 22 29 3D 3D 30 29 20 7B 09 2F 2A 20 74 (")")==0) {./* t
000060: 68 65 6E 20 63 6F 75 6E 74 20 61 72 67 73 20 2A hen count args *
000070: 2F 0D 0A 20 20 20 20 2F 2A 20 61 6E 79 20 6C 65 /.. /* any le
000080: 67 61 6C 20 6E 61 6D 65 20 62 75 6D 70 73 20 61 gal name bumps a
000090: 72 67 20 63 6F 75 6E 74 20 2A 2F 0D 0A 20 20 20 rg count */..
0000A0: 20 69 66 28 73 79 6D 6E 61 6D 65 28 73 73 6E 61 if(symname(ssna
0000B0: 6D 65 2C 20 59 45 53 29 29 20 7B 0D 0A 20 20 20 me, YES)) {..
0000C0: 20 20 20 69 66 28 66 69 6E 64 6C 6F 63 28 73 73 if(findloc(ss
0000D0: 6E 61 6D 65 29 29 20 6D 75 6C 74 69 64 65 66 28 name)) multidef(
0000E0: 73 73 6E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 20 ssname);..
0000F0: 65 6C 73 65 20 7B 0D 0A 20 20 20 20 20 20 20 20 else {..
000100: 61 64 64 73 79 6D 28 73 73 6E 61 6D 65 2C 20 30 addsym(ssname, 0
000110: 2C 20 30 2C 20 61 72 67 73 74 6B 2C 20 26 6C 6F , 0, argstk, &lo
000120: 63 70 74 72 2C 20 41 55 54 4F 4D 41 54 49 43 29 cptr, AUTOMATIC)
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 61 72 67 73 74 ;.. argst
000140: 6B 3D 61 72 67 73 74 6B 2B 42 50 57 3B 0D 0A 20 k=argstk+BPW;..
000150: 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 }..
000160: 7D 0D 0A 20 20 20 20 65 6C 73 65 20 7B 65 72 72 }.. else {err
000170: 6F 72 28 22 69 6C 6C 65 67 61 6C 20 61 72 67 75 or("illegal argu
000180: 6D 65 6E 74 20 6E 61 6D 65 22 29 3B 6A 75 6E 6B ment name");junk
000190: 28 29 3B 7D 0D 0A 20 20 20 20 62 6C 61 6E 6B 73 ();}.. blanks
0001A0: 28 29 3B 0D 0A 20 20 20 20 2F 2A 20 69 66 20 6E ();.. /* if n
0001B0: 6F 74 20 63 6C 6F 73 69 6E 67 20 70 61 72 65 6E ot closing paren
0001C0: 2C 20 73 68 6F 75 6C 64 20 62 65 20 63 6F 6D 6D , should be comm
0001D0: 61 20 2A 2F 0D 0A 20 20 20 20 69 66 28 73 74 72 a */.. if(str
0001E0: 65 71 28 6C 70 74 72 2C 22 29 22 29 3D 3D 30 29 eq(lptr,")")==0)
0001F0: 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 6D 61 74 {.. if(mat
Size : 512 (Real : 512)
000000: 20 6E 6F 67 6F 3D 64 65 63 6C 61 72 65 64 3B 09 nogo=declared;.
000010: 2F 2A 20 64 69 73 61 62 6C 65 20 67 6F 74 6F 20 /* disable goto
000020: 69 66 20 61 6E 79 20 2A 2F 0D 0A 23 65 6E 64 69 if any */..#endi
000030: 66 0D 0A 20 20 20 20 20 20 63 73 70 3D 6D 6F 64 f.. csp=mod
000040: 73 74 6B 28 63 73 70 20 2D 20 64 65 63 6C 61 72 stk(csp - declar
000050: 65 64 2C 20 4E 4F 29 3B 0D 0A 20 20 20 20 20 20 ed, NO);..
000060: 64 65 63 6C 61 72 65 64 20 3D 20 2D 31 3B 0D 0A declared = -1;..
000070: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 69 66 28 }.. if(
000080: 6D 61 74 63 68 28 22 7B 22 29 29 20 20 20 20 20 match("{"))
000090: 20 20 20 20 20 20 20 20 20 20 20 63 6F 6D 70 6F compo
0000A0: 75 6E 64 28 29 3B 0D 0A 20 20 20 20 65 6C 73 65 und();.. else
0000B0: 20 69 66 28 61 6D 61 74 63 68 28 22 69 66 22 2C if(amatch("if",
0000C0: 32 29 29 20 20 20 20 20 20 20 7B 64 6F 69 66 28 2)) {doif(
0000D0: 29 3B 09 09 6C 61 73 74 73 74 3D 53 54 49 46 3B );..lastst=STIF;
0000E0: 7D 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 61 }.. else if(a
0000F0: 6D 61 74 63 68 28 22 77 68 69 6C 65 22 2C 35 29 match("while",5)
000100: 29 20 20 20 20 7B 64 6F 77 68 69 6C 65 28 29 3B ) {dowhile();
000110: 09 09 6C 61 73 74 73 74 3D 53 54 57 48 49 4C 45 ..lastst=STWHILE
000120: 3B 7D 0D 0A 23 69 66 64 65 66 20 53 54 44 4F 0D ;}..#ifdef STDO.
000130: 0A 20 20 20 20 65 6C 73 65 20 69 66 28 61 6D 61 . else if(ama
000140: 74 63 68 28 22 64 6F 22 2C 32 29 29 20 20 20 20 tch("do",2))
000150: 20 20 20 7B 64 6F 64 6F 28 29 3B 09 09 6C 61 73 {dodo();..las
000160: 74 73 74 3D 53 54 44 4F 3B 7D 0D 0A 23 65 6E 64 tst=STDO;}..#end
000170: 69 66 0D 0A 23 69 66 64 65 66 20 53 54 46 4F 52 if..#ifdef STFOR
000180: 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 61 6D .. else if(am
000190: 61 74 63 68 28 22 66 6F 72 22 2C 33 29 29 09 20 atch("for",3)).
0001A0: 20 7B 64 6F 66 6F 72 28 29 3B 09 09 6C 61 73 74 {dofor();..last
0001B0: 73 74 3D 53 54 46 4F 52 3B 7D 0D 0A 23 65 6E 64 st=STFOR;}..#end
0001C0: 69 66 0D 0A 23 69 66 64 65 66 20 53 54 53 57 49 if..#ifdef STSWI
0001D0: 54 43 48 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 TCH.. else if
0001E0: 28 61 6D 61 74 63 68 28 22 73 77 69 74 63 68 22 (amatch("switch"
0001F0: 2C 36 29 29 09 20 20 7B 64 6F 73 77 69 74 63 68 ,6)). {doswitch
Size : 512 (Real : 512)
000000: 63 68 28 22 2C 22 29 3D 3D 30 29 20 65 72 72 6F ch(",")==0) erro
000010: 72 28 22 6E 6F 20 63 6F 6D 6D 61 22 29 3B 0D 0A r("no comma");..
000020: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 69 66 28 }.. if(
000030: 65 6E 64 73 74 28 29 29 20 62 72 65 61 6B 3B 0D endst()) break;.
000040: 0A 20 20 20 20 7D 0D 0A 20 20 63 73 70 3D 30 3B . }.. csp=0;
000050: 09 09 09 2F 2A 20 70 72 65 73 65 74 20 73 74 61 .../* preset sta
000060: 63 6B 20 70 74 72 20 2A 2F 0D 0A 20 20 61 72 67 ck ptr */.. arg
000070: 74 6F 70 3D 61 72 67 73 74 6B 3B 0D 0A 20 20 77 top=argstk;.. w
000080: 68 69 6C 65 28 61 72 67 73 74 6B 29 20 7B 0D 0A hile(argstk) {..
000090: 20 20 20 20 2F 2A 20 6E 6F 77 20 6C 65 74 20 75 /* now let u
0000A0: 73 65 72 20 64 65 63 6C 61 72 65 20 77 68 61 74 ser declare what
0000B0: 20 74 79 70 65 73 20 6F 66 20 74 68 69 6E 67 73 types of things
0000C0: 20 2A 2F 0D 0A 20 20 20 20 2F 2A 20 20 20 20 20 */.. /*
0000D0: 20 74 68 6F 73 65 20 61 72 67 75 6D 65 6E 74 73 those arguments
0000E0: 20 77 65 72 65 20 2A 2F 0D 0A 20 20 20 20 69 66 were */.. if
0000F0: 28 61 6D 61 74 63 68 28 22 63 68 61 72 22 2C 34 (amatch("char",4
000100: 29 29 20 20 20 20 20 7B 64 6F 61 72 67 73 28 43 )) {doargs(C
000110: 43 48 41 52 29 3B 6E 73 28 29 3B 7D 0D 0A 20 20 CHAR);ns();}..
000120: 20 20 65 6C 73 65 20 69 66 28 61 6D 61 74 63 68 else if(amatch
000130: 28 22 69 6E 74 22 2C 33 29 29 20 7B 64 6F 61 72 ("int",3)) {doar
000140: 67 73 28 43 49 4E 54 29 3B 6E 73 28 29 3B 7D 0D gs(CINT);ns();}.
000150: 0A 20 20 20 20 65 6C 73 65 20 7B 65 72 72 6F 72 . else {error
000160: 28 22 77 72 6F 6E 67 20 6E 75 6D 62 65 72 20 6F ("wrong number o
000170: 66 20 61 72 67 75 6D 65 6E 74 73 22 29 3B 62 72 f arguments");br
000180: 65 61 6B 3B 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 eak;}.. }..
000190: 73 74 61 74 65 6D 65 6E 74 28 29 3B 0D 0A 23 69 statement();..#i
0001A0: 66 64 65 66 20 53 54 47 4F 54 4F 0D 0A 20 20 69 fdef STGOTO.. i
0001B0: 66 28 6C 61 73 74 73 74 20 21 3D 20 53 54 52 45 f(lastst != STRE
0001C0: 54 55 52 4E 20 26 26 20 6C 61 73 74 73 74 20 21 TURN && lastst !
0001D0: 3D 20 53 54 47 4F 54 4F 29 20 66 66 72 65 74 28 = STGOTO) ffret(
0001E0: 29 3B 0D 0A 23 65 6C 73 65 0D 0A 20 20 69 66 28 );..#else.. if(
0001F0: 6C 61 73 74 73 74 20 21 3D 20 53 54 52 45 54 55 lastst != STRETU
Size : 512 (Real : 512)
000000: 28 29 3B 09 09 6C 61 73 74 73 74 3D 53 54 53 57 ();..lastst=STSW
000010: 49 54 43 48 3B 7D 0D 0A 20 20 20 20 65 6C 73 65 ITCH;}.. else
000020: 20 69 66 28 61 6D 61 74 63 68 28 22 63 61 73 65 if(amatch("case
000030: 22 2C 34 29 29 09 20 20 7B 64 6F 63 61 73 65 28 ",4)). {docase(
000040: 29 3B 09 09 6C 61 73 74 73 74 3D 53 54 43 41 53 );..lastst=STCAS
000050: 45 3B 7D 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 E;}.. else if
000060: 28 61 6D 61 74 63 68 28 22 64 65 66 61 75 6C 74 (amatch("default
000070: 22 2C 37 29 29 20 20 7B 64 6F 64 65 66 61 75 6C ",7)) {dodefaul
000080: 74 28 29 3B 09 09 6C 61 73 74 73 74 3D 53 54 44 t();..lastst=STD
000090: 45 46 3B 7D 0D 0A 23 65 6E 64 69 66 0D 0A 23 69 EF;}..#endif..#i
0000A0: 66 64 65 66 20 53 54 47 4F 54 4F 0D 0A 20 20 20 fdef STGOTO..
0000B0: 20 65 6C 73 65 20 69 66 28 61 6D 61 74 63 68 28 else if(amatch(
0000C0: 22 67 6F 74 6F 22 2C 20 34 29 29 09 20 20 7B 64 "goto", 4)). {d
0000D0: 6F 67 6F 74 6F 28 29 3B 09 09 6C 61 73 74 73 74 ogoto();..lastst
0000E0: 3D 53 54 47 4F 54 4F 3B 7D 0D 0A 20 20 20 20 65 =STGOTO;}.. e
0000F0: 6C 73 65 20 69 66 28 64 6F 6C 61 62 65 6C 28 29 lse if(dolabel()
000100: 29 09 09 09 09 09 6C 61 73 74 73 74 3D 53 54 4C ).....lastst=STL
000110: 41 42 45 4C 3B 0D 0A 23 65 6E 64 69 66 0D 0A 20 ABEL;..#endif..
000120: 20 20 20 65 6C 73 65 20 69 66 28 61 6D 61 74 63 else if(amatc
000130: 68 28 22 72 65 74 75 72 6E 22 2C 36 29 29 09 20 h("return",6)).
000140: 20 7B 64 6F 72 65 74 75 72 6E 28 29 3B 6E 73 28 {doreturn();ns(
000150: 29 3B 09 6C 61 73 74 73 74 3D 53 54 52 45 54 55 );.lastst=STRETU
000160: 52 4E 3B 7D 0D 0A 20 20 20 20 65 6C 73 65 20 69 RN;}.. else i
000170: 66 28 61 6D 61 74 63 68 28 22 62 72 65 61 6B 22 f(amatch("break"
000180: 2C 35 29 29 09 20 20 7B 64 6F 62 72 65 61 6B 28 ,5)). {dobreak(
000190: 29 3B 6E 73 28 29 3B 09 6C 61 73 74 73 74 3D 53 );ns();.lastst=S
0001A0: 54 42 52 45 41 4B 3B 7D 0D 0A 20 20 20 20 65 6C TBREAK;}.. el
0001B0: 73 65 20 69 66 28 61 6D 61 74 63 68 28 22 63 6F se if(amatch("co
0001C0: 6E 74 69 6E 75 65 22 2C 38 29 29 20 7B 64 6F 63 ntinue",8)) {doc
0001D0: 6F 6E 74 28 29 3B 6E 73 28 29 3B 09 6C 61 73 74 ont();ns();.last
0001E0: 73 74 3D 53 54 43 4F 4E 54 3B 7D 0D 0A 20 20 20 st=STCONT;}..
0001F0: 20 65 6C 73 65 20 69 66 28 6D 61 74 63 68 28 22 else if(match("
Size : 512 (Real : 512)
000000: 52 4E 29 20 66 66 72 65 74 28 29 3B 0D 0A 23 65 RN) ffret();..#e
000010: 6E 64 69 66 0D 0A 20 20 69 66 28 6C 69 74 70 74 ndif.. if(litpt
000020: 72 29 20 7B 0D 0A 20 20 20 20 70 72 69 6E 74 6C r) {.. printl
000030: 61 62 65 6C 28 6C 69 74 6C 61 62 29 3B 0D 0A 20 abel(litlab);..
000040: 20 20 20 63 6F 6C 28 29 3B 0D 0A 20 20 20 20 64 col();.. d
000050: 75 6D 70 6C 69 74 73 28 31 29 3B 09 09 2F 2A 20 umplits(1);../*
000060: 64 75 6D 70 20 6C 69 74 65 72 61 6C 73 20 2A 2F dump literals */
000070: 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A .. }.. }....
000080: 2F 2A 0D 0A 2A 2A 20 64 65 63 6C 61 72 65 20 61 /*..** declare a
000090: 72 67 75 6D 65 6E 74 20 74 79 70 65 73 0D 0A 2A rgument types..*
0000A0: 2A 0D 0A 2A 2A 20 63 61 6C 6C 65 64 20 66 72 6F *..** called fro
0000B0: 6D 20 22 6E 65 77 66 75 6E 63 22 20 74 68 69 73 m "newfunc" this
0000C0: 20 72 6F 75 74 69 6E 65 20 61 64 64 73 20 61 6E routine adds an
0000D0: 20 65 6E 74 72 79 20 69 6E 20 74 68 65 0D 0A 2A entry in the..*
0000E0: 2A 20 6C 6F 63 61 6C 20 73 79 6D 62 6F 6C 20 74 * local symbol t
0000F0: 61 62 6C 65 20 66 6F 72 20 65 61 63 68 20 6E 61 able for each na
000100: 6D 65 64 20 61 72 67 75 6D 65 6E 74 0D 0A 2A 2F med argument..*/
000110: 0D 0A 64 6F 61 72 67 73 28 74 29 20 69 6E 74 20 ..doargs(t) int
000120: 74 3B 20 7B 0D 0A 20 20 69 6E 74 20 6A 2C 20 6C t; {.. int j, l
000130: 65 67 61 6C 6E 61 6D 65 3B 0D 0A 20 20 63 68 61 egalname;.. cha
000140: 72 20 63 2C 20 2A 61 72 67 70 74 72 3B 0D 0A 20 r c, *argptr;..
000150: 20 77 68 69 6C 65 28 31 29 20 7B 0D 0A 20 20 20 while(1) {..
000160: 20 69 66 28 61 72 67 73 74 6B 3D 3D 30 29 20 72 if(argstk==0) r
000170: 65 74 75 72 6E 3B 09 2F 2A 20 6E 6F 20 61 72 67 eturn;./* no arg
000180: 75 6D 65 6E 74 73 20 2A 2F 0D 0A 20 20 20 20 69 uments */.. i
000190: 66 28 6D 61 74 63 68 28 22 28 2A 22 29 7C 6D 61 f(match("(*")|ma
0001A0: 74 63 68 28 22 2A 22 29 29 20 6A 3D 50 4F 49 4E tch("*")) j=POIN
0001B0: 54 45 52 3B 20 20 65 6C 73 65 20 6A 3D 56 41 52 TER; else j=VAR
0001C0: 49 41 42 4C 45 3B 0D 0A 20 20 20 20 69 66 28 28 IABLE;.. if((
0001D0: 6C 65 67 61 6C 6E 61 6D 65 3D 73 79 6D 6E 61 6D legalname=symnam
0001E0: 65 28 73 73 6E 61 6D 65 2C 20 59 45 53 29 29 3D e(ssname, YES))=
0001F0: 3D 30 29 20 69 6C 6C 6E 61 6D 65 28 29 3B 0D 0A =0) illname();..
Size : 512 (Real : 512)
000000: 3B 22 29 29 09 09 20 20 65 72 72 66 6C 61 67 3D ;")).. errflag=
000010: 30 3B 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 0;.. else if(
000020: 6D 61 74 63 68 28 22 23 61 73 6D 22 29 29 09 20 match("#asm")).
000030: 20 7B 64 6F 61 73 6D 28 29 3B 09 09 6C 61 73 74 {doasm();..last
000040: 73 74 3D 53 54 41 53 4D 3B 7D 0D 0A 20 20 20 20 st=STASM;}..
000050: 65 6C 73 65 09 09 09 20 20 7B 64 6F 65 78 70 72 else... {doexpr
000060: 28 29 3B 6E 73 28 29 3B 09 6C 61 73 74 73 74 3D ();ns();.lastst=
000070: 53 54 45 58 50 52 3B 7D 0D 0A 20 20 20 20 7D 0D STEXPR;}.. }.
000080: 0A 20 20 72 65 74 75 72 6E 20 6C 61 73 74 73 74 . return lastst
000090: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ;.. }..../*..**
0000A0: 20 73 65 6D 69 63 6F 6C 6F 6E 20 65 6E 66 6F 72 semicolon enfor
0000B0: 63 65 72 0D 0A 2A 2A 0D 0A 2A 2A 20 63 61 6C 6C cer..**..** call
0000C0: 65 64 20 77 68 65 6E 65 76 65 72 20 73 79 6E 74 ed whenever synt
0000D0: 61 78 20 72 65 71 75 69 72 65 73 20 61 20 73 65 ax requires a se
0000E0: 6D 69 63 6F 6C 6F 6E 0D 0A 2A 2F 0D 0A 6E 73 28 micolon..*/..ns(
0000F0: 29 20 20 7B 0D 0A 20 20 69 66 28 6D 61 74 63 68 ) {.. if(match
000100: 28 22 3B 22 29 3D 3D 30 29 20 65 72 72 6F 72 28 (";")==0) error(
000110: 22 6E 6F 20 73 65 6D 69 63 6F 6C 6F 6E 22 29 3B "no semicolon");
000120: 0D 0A 20 20 65 6C 73 65 20 65 72 72 66 6C 61 67 .. else errflag
000130: 3D 30 3B 0D 0A 20 20 7D 0D 0A 0D 0A 63 6F 6D 70 =0;.. }....comp
000140: 6F 75 6E 64 28 29 20 20 7B 0D 0A 20 20 69 6E 74 ound() {.. int
000150: 20 73 61 76 63 73 70 3B 0D 0A 20 20 63 68 61 72 savcsp;.. char
000160: 20 2A 73 61 76 6C 6F 63 3B 0D 0A 20 20 73 61 76 *savloc;.. sav
000170: 63 73 70 3D 63 73 70 3B 0D 0A 20 20 73 61 76 6C csp=csp;.. savl
000180: 6F 63 3D 6C 6F 63 70 74 72 3B 0D 0A 20 20 64 65 oc=locptr;.. de
000190: 63 6C 61 72 65 64 3D 30 3B 09 09 09 2F 2A 20 6D clared=0;.../* m
0001A0: 61 79 20 6E 6F 77 20 64 65 63 6C 61 72 65 20 6C ay now declare l
0001B0: 6F 63 61 6C 20 76 61 72 69 61 62 6C 65 73 20 2A ocal variables *
0001C0: 2F 0D 0A 20 20 2B 2B 6E 63 6D 70 3B 09 09 09 2F /.. ++ncmp;.../
0001D0: 2A 20 6E 65 77 20 6C 65 76 65 6C 20 6F 70 65 6E * new level open
0001E0: 20 2A 2F 0D 0A 20 20 77 68 69 6C 65 20 28 6D 61 */.. while (ma
0001F0: 74 63 68 28 22 7D 22 29 3D 3D 30 29 0D 0A 20 20 tch("}")==0)..
Size : 512 (Real : 512)
000000: 20 20 20 20 69 66 28 6D 61 74 63 68 28 22 29 22 if(match(")"
000010: 29 29 20 3B 0D 0A 20 20 20 20 69 66 28 6D 61 74 )) ;.. if(mat
000020: 63 68 28 22 28 29 22 29 29 20 3B 0D 0A 20 20 20 ch("()")) ;..
000030: 20 69 66 28 6D 61 74 63 68 28 22 5B 22 29 29 20 if(match("["))
000040: 7B 0D 0A 20 20 20 20 20 20 70 61 65 72 72 6F 72 {.. paerror
000050: 28 6A 29 3B 0D 0A 20 20 20 20 20 20 77 68 69 6C (j);.. whil
000060: 65 28 69 6E 62 79 74 65 28 29 21 3D 27 5D 27 29 e(inbyte()!=']')
000070: 20 69 66 28 65 6E 64 73 74 28 29 29 20 62 72 65 if(endst()) bre
000080: 61 6B 3B 09 2F 2A 20 73 6B 69 70 20 22 5B 2E 2E ak;./* skip "[..
000090: 2E 5D 22 20 2A 2F 0D 0A 20 20 20 20 20 20 6A 3D .]" */.. j=
0000A0: 50 4F 49 4E 54 45 52 3B 09 09 2F 2A 20 61 64 64 POINTER;../* add
0000B0: 20 65 6E 74 72 79 20 61 73 20 70 6F 69 6E 74 65 entry as pointe
0000C0: 72 20 2A 2F 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 r */.. }..
0000D0: 20 20 20 69 66 28 6C 65 67 61 6C 6E 61 6D 65 29 if(legalname)
0000E0: 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 61 72 67 {.. if(arg
0000F0: 70 74 72 3D 66 69 6E 64 6C 6F 63 28 73 73 6E 61 ptr=findloc(ssna
000100: 6D 65 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 me)) {..
000110: 2F 2A 20 61 64 64 20 64 65 74 61 69 6C 73 20 6F /* add details o
000120: 66 20 74 79 70 65 20 61 6E 64 20 61 64 64 72 65 f type and addre
000130: 73 73 20 2A 2F 0D 0A 20 20 20 20 20 20 20 20 61 ss */.. a
000140: 72 67 70 74 72 5B 49 44 45 4E 54 5D 3D 6A 3B 0D rgptr[IDENT]=j;.
000150: 0A 20 20 20 20 20 20 20 20 61 72 67 70 74 72 5B . argptr[
000160: 54 59 50 45 5D 3D 74 3B 0D 0A 20 20 20 20 20 20 TYPE]=t;..
000170: 20 20 70 75 74 69 6E 74 28 61 72 67 74 6F 70 2D putint(argtop-
000180: 67 65 74 69 6E 74 28 61 72 67 70 74 72 2B 4F 46 getint(argptr+OF
000190: 46 53 45 54 2C 20 4F 46 46 53 49 5A 45 29 2C 20 FSET, OFFSIZE),
0001A0: 61 72 67 70 74 72 2B 4F 46 46 53 45 54 2C 20 4F argptr+OFFSET, O
0001B0: 46 46 53 49 5A 45 29 3B 0D 0A 20 20 20 20 20 20 FFSIZE);..
0001C0: 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 }.. else
0001D0: 65 72 72 6F 72 28 22 6E 6F 74 20 61 6E 20 61 72 error("not an ar
0001E0: 67 75 6D 65 6E 74 22 29 3B 0D 0A 20 20 20 20 20 gument");..
0001F0: 20 7D 0D 0A 20 20 20 20 61 72 67 73 74 6B 3D 61 }.. argstk=a
Size : 512 (Real : 512)
000000: 20 20 69 66 28 65 6F 66 29 20 7B 0D 0A 20 20 20 if(eof) {..
000010: 20 20 20 65 72 72 6F 72 28 22 6E 6F 20 66 69 6E error("no fin
000020: 61 6C 20 7D 22 29 3B 0D 0A 20 20 20 20 20 20 62 al }");.. b
000030: 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A reak;.. }..
000040: 20 20 20 20 65 6C 73 65 20 73 74 61 74 65 6D 65 else stateme
000050: 6E 74 28 29 3B 09 09 2F 2A 20 64 6F 20 6F 6E 65 nt();../* do one
000060: 20 2A 2F 0D 0A 20 20 2D 2D 6E 63 6D 70 3B 09 09 */.. --ncmp;..
000070: 09 2F 2A 20 63 6C 6F 73 65 20 63 75 72 72 65 6E ./* close curren
000080: 74 20 6C 65 76 65 6C 20 2A 2F 0D 0A 2F 2A 35 35 t level */../*55
000090: 2A 2F 0D 0A 23 69 66 64 65 66 20 53 54 47 4F 54 */..#ifdef STGOT
0000A0: 4F 0D 0A 20 20 69 66 28 6C 61 73 74 73 74 20 21 O.. if(lastst !
0000B0: 3D 20 53 54 52 45 54 55 52 4E 20 26 26 20 6C 61 = STRETURN && la
0000C0: 73 74 73 74 20 21 3D 20 53 54 47 4F 54 4F 29 0D stst != STGOTO).
0000D0: 0A 23 65 6C 73 65 0D 0A 20 20 69 66 28 6C 61 73 .#else.. if(las
0000E0: 74 73 74 20 21 3D 20 53 54 52 45 54 55 52 4E 29 tst != STRETURN)
0000F0: 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 20 20 6D 6F ..#endif.. mo
000100: 64 73 74 6B 28 73 61 76 63 73 70 2C 20 4E 4F 29 dstk(savcsp, NO)
000110: 3B 09 09 2F 2A 20 64 65 6C 65 74 65 20 6C 6F 63 ;../* delete loc
000120: 61 6C 20 76 61 72 69 61 62 6C 65 20 73 70 61 63 al variable spac
000130: 65 20 2A 2F 0D 0A 20 20 63 73 70 3D 73 61 76 63 e */.. csp=savc
000140: 73 70 3B 0D 0A 2F 2A 35 35 2A 2F 0D 0A 23 69 66 sp;../*55*/..#if
000150: 64 65 66 20 53 54 47 4F 54 4F 0D 0A 20 20 63 70 def STGOTO.. cp
000160: 74 72 3D 73 61 76 6C 6F 63 3B 09 09 09 2F 2A 20 tr=savloc;.../*
000170: 72 65 74 61 69 6E 20 6C 61 62 65 6C 73 20 2A 2F retain labels */
000180: 0D 0A 20 20 77 68 69 6C 65 28 63 70 74 72 20 3C .. while(cptr <
000190: 20 6C 6F 63 70 74 72 29 20 7B 0D 0A 20 20 20 20 locptr) {..
0001A0: 63 70 74 72 32 3D 6E 65 78 74 73 79 6D 28 63 70 cptr2=nextsym(cp
0001B0: 74 72 29 3B 0D 0A 20 20 20 20 69 66 28 63 70 74 tr);.. if(cpt
0001C0: 72 5B 49 44 45 4E 54 5D 20 3D 3D 20 4C 41 42 45 r[IDENT] == LABE
0001D0: 4C 29 20 7B 0D 0A 20 20 20 20 20 20 77 68 69 6C L) {.. whil
0001E0: 65 28 63 70 74 72 20 3C 20 63 70 74 72 32 29 20 e(cptr < cptr2)
0001F0: 2A 73 61 76 6C 6F 63 2B 2B 20 3D 20 2A 63 70 74 *savloc++ = *cpt
Size : 512 (Real : 512)
000000: 72 67 73 74 6B 2D 42 50 57 3B 09 09 2F 2A 20 63 rgstk-BPW;../* c
000010: 6E 74 20 64 6F 77 6E 20 2A 2F 0D 0A 20 20 20 20 nt down */..
000020: 69 66 28 65 6E 64 73 74 28 29 29 72 65 74 75 72 if(endst())retur
000030: 6E 3B 0D 0A 20 20 20 20 69 66 28 6D 61 74 63 68 n;.. if(match
000040: 28 22 2C 22 29 3D 3D 30 29 20 65 72 72 6F 72 28 (",")==0) error(
000050: 22 6E 6F 20 63 6F 6D 6D 61 22 29 3B 0D 0A 20 20 "no comma");..
000060: 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 }.. }....>>>
000070: 43 43 31 33 2E 43 20 36 38 32 35 0D 0A 2F 2A 0D CC13.C 6825../*.
000080: 0A 2A 2A 20 73 74 61 74 65 6D 65 6E 74 20 70 61 .** statement pa
000090: 72 73 65 72 0D 0A 2A 2A 0D 0A 2A 2A 20 63 61 6C rser..**..** cal
0000A0: 6C 65 64 20 77 68 65 6E 65 76 65 72 20 73 79 6E led whenever syn
0000B0: 74 61 78 20 72 65 71 75 69 72 65 73 20 61 20 73 tax requires a s
0000C0: 74 61 74 65 6D 65 6E 74 0D 0A 2A 2A 20 20 74 68 tatement..** th
0000D0: 69 73 20 72 6F 75 74 69 6E 65 20 70 65 72 66 6F is routine perfo
0000E0: 72 6D 73 20 74 68 61 74 20 73 74 61 74 65 6D 65 rms that stateme
0000F0: 6E 74 0D 0A 2A 2A 20 20 61 6E 64 20 72 65 74 75 nt..** and retu
000100: 72 6E 73 20 61 20 6E 75 6D 62 65 72 20 74 65 6C rns a number tel
000110: 6C 69 6E 67 20 77 68 69 63 68 20 6F 6E 65 0D 0A ling which one..
000120: 2A 2F 0D 0A 73 74 61 74 65 6D 65 6E 74 28 29 20 */..statement()
000130: 7B 0D 0A 20 20 69 66 20 28 28 63 68 3D 3D 30 29 {.. if ((ch==0)
000140: 20 26 20 28 65 6F 66 29 29 20 72 65 74 75 72 6E & (eof)) return
000150: 3B 0D 0A 20 20 65 6C 73 65 20 69 66 28 61 6D 61 ;.. else if(ama
000160: 74 63 68 28 22 63 68 61 72 22 2C 34 29 29 20 20 tch("char",4))
000170: 7B 64 65 63 6C 6C 6F 63 28 43 43 48 41 52 29 3B {declloc(CCHAR);
000180: 6E 73 28 29 3B 7D 0D 0A 20 20 65 6C 73 65 20 69 ns();}.. else i
000190: 66 28 61 6D 61 74 63 68 28 22 69 6E 74 22 2C 33 f(amatch("int",3
0001A0: 29 29 20 20 20 7B 64 65 63 6C 6C 6F 63 28 43 49 )) {declloc(CI
0001B0: 4E 54 29 3B 6E 73 28 29 3B 7D 0D 0A 20 20 65 6C NT);ns();}.. el
0001C0: 73 65 20 7B 0D 0A 20 20 20 20 69 66 28 64 65 63 se {.. if(dec
0001D0: 6C 61 72 65 64 20 3E 3D 20 30 29 20 7B 0D 0A 23 lared >= 0) {..#
0001E0: 69 66 64 65 66 20 53 54 47 4F 54 4F 0D 0A 20 20 ifdef STGOTO..
0001F0: 20 20 20 20 69 66 28 6E 63 6D 70 20 3E 20 31 29 if(ncmp > 1)
Size : 512 (Real : 512)
000000: 72 2B 2B 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 r++;.. }..
000010: 20 20 20 65 6C 73 65 20 63 70 74 72 3D 63 70 74 else cptr=cpt
000020: 72 32 3B 0D 0A 20 20 20 20 7D 0D 0A 23 65 6E 64 r2;.. }..#end
000030: 69 66 0D 0A 20 20 6C 6F 63 70 74 72 3D 73 61 76 if.. locptr=sav
000040: 6C 6F 63 3B 09 09 2F 2A 20 64 65 6C 65 74 65 20 loc;../* delete
000050: 6C 6F 63 61 6C 20 73 79 6D 62 6F 6C 73 20 2A 2F local symbols */
000060: 0D 0A 20 20 64 65 63 6C 61 72 65 64 20 3D 20 2D .. declared = -
000070: 31 3B 09 09 2F 2A 20 6D 61 79 20 6E 6F 74 20 64 1;../* may not d
000080: 65 63 6C 61 72 65 20 76 61 72 69 61 62 6C 65 73 eclare variables
000090: 20 2A 2F 0D 0A 20 20 7D 0D 0A 0D 0A 64 6F 69 66 */.. }....doif
0000A0: 28 29 20 20 7B 0D 0A 20 20 69 6E 74 20 66 6C 61 () {.. int fla
0000B0: 62 31 2C 66 6C 61 62 32 3B 0D 0A 20 20 66 6C 61 b1,flab2;.. fla
0000C0: 62 31 3D 67 65 74 6C 61 62 65 6C 28 29 3B 09 09 b1=getlabel();..
0000D0: 2F 2A 20 67 65 74 20 6C 61 62 65 6C 20 66 6F 72 /* get label for
0000E0: 20 66 61 6C 73 65 20 62 72 61 6E 63 68 20 2A 2F false branch */
0000F0: 0D 0A 20 20 74 65 73 74 28 66 6C 61 62 31 2C 20 .. test(flab1,
000100: 59 45 53 29 3B 09 09 2F 2A 20 67 65 74 20 65 78 YES);../* get ex
000110: 70 72 65 73 73 69 6F 6E 2C 20 61 6E 64 20 62 72 pression, and br
000120: 61 6E 63 68 20 66 61 6C 73 65 20 2A 2F 0D 0A 20 anch false */..
000130: 20 73 74 61 74 65 6D 65 6E 74 28 29 3B 09 09 09 statement();...
000140: 2F 2A 20 69 66 20 74 72 75 65 2C 20 64 6F 20 61 /* if true, do a
000150: 20 73 74 61 74 65 6D 65 6E 74 20 2A 2F 0D 0A 20 statement */..
000160: 20 69 66 20 28 61 6D 61 74 63 68 28 22 65 6C 73 if (amatch("els
000170: 65 22 2C 34 29 3D 3D 30 29 20 7B 09 2F 2A 20 69 e",4)==0) {./* i
000180: 66 2E 2E 2E 65 6C 73 65 20 3F 20 2A 2F 0D 0A 20 f...else ? */..
000190: 20 20 20 2F 2A 20 73 69 6D 70 6C 65 20 22 69 66 /* simple "if
0001A0: 22 2E 2E 2E 70 72 69 6E 74 20 66 61 6C 73 65 20 "...print false
0001B0: 6C 61 62 65 6C 20 2A 2F 0D 0A 20 20 20 20 70 6F label */.. po
0001C0: 73 74 6C 61 62 65 6C 28 66 6C 61 62 31 29 3B 0D stlabel(flab1);.
0001D0: 0A 20 20 20 20 72 65 74 75 72 6E 3B 09 09 09 2F . return;.../
0001E0: 2A 20 61 6E 64 20 65 78 69 74 20 2A 2F 0D 0A 20 * and exit */..
0001F0: 20 20 20 7D 0D 0A 20 20 66 6C 61 62 32 3D 67 65 }.. flab2=ge
Size : 512 (Real : 512)
000000: 2F 2A 20 63 61 73 65 73 2C 20 65 74 63 2E 20 2A /* cases, etc. *
000010: 2F 0D 0A 20 20 6A 75 6D 70 28 77 71 5B 57 51 45 /.. jump(wq[WQE
000020: 58 49 54 5D 29 3B 0D 0A 20 20 70 6F 73 74 6C 61 XIT]);.. postla
000030: 62 65 6C 28 65 6E 64 6C 61 62 29 3B 0D 0A 20 20 bel(endlab);..
000040: 73 77 28 29 3B 09 09 09 09 2F 2A 20 6D 61 74 63 sw();..../* matc
000050: 68 20 63 61 73 65 73 20 2A 2F 0D 0A 20 20 77 68 h cases */.. wh
000060: 69 6C 65 28 73 77 70 74 72 20 3C 20 73 77 6E 65 ile(swptr < swne
000070: 78 74 29 20 7B 0D 0A 20 20 20 20 64 65 66 73 74 xt) {.. defst
000080: 6F 72 61 67 65 28 43 49 4E 54 3E 3E 32 29 3B 0D orage(CINT>>2);.
000090: 0A 20 20 20 20 70 72 69 6E 74 6C 61 62 65 6C 28 . printlabel(
0000A0: 2A 73 77 70 74 72 2B 2B 29 3B 09 2F 2A 20 63 61 *swptr++);./* ca
0000B0: 73 65 20 6C 61 62 65 6C 20 2A 2F 0D 0A 20 20 20 se label */..
0000C0: 20 6F 75 74 62 79 74 65 28 27 2C 27 29 3B 0D 0A outbyte(',');..
0000D0: 20 20 20 20 6F 75 74 64 65 63 28 2A 73 77 70 74 outdec(*swpt
0000E0: 72 2B 2B 29 3B 09 09 2F 2A 20 63 61 73 65 20 76 r++);../* case v
0000F0: 61 6C 75 65 20 2A 2F 0D 0A 20 20 20 20 6E 6C 28 alue */.. nl(
000100: 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 64 65 66 );.. }.. def
000110: 73 74 6F 72 61 67 65 28 43 49 4E 54 3E 3E 32 29 storage(CINT>>2)
000120: 3B 0D 0A 20 20 6F 75 74 64 65 63 28 30 29 3B 0D ;.. outdec(0);.
000130: 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 69 66 28 73 . nl();.. if(s
000140: 77 64 65 66 61 75 6C 74 29 20 6A 75 6D 70 28 73 wdefault) jump(s
000150: 77 64 65 66 61 75 6C 74 29 3B 0D 0A 20 20 70 6F wdefault);.. po
000160: 73 74 6C 61 62 65 6C 28 77 71 5B 57 51 45 58 49 stlabel(wq[WQEXI
000170: 54 5D 29 3B 0D 0A 20 20 64 65 6C 77 68 69 6C 65 T]);.. delwhile
000180: 28 29 3B 0D 0A 20 20 73 77 6E 65 78 74 3D 73 77 ();.. swnext=sw
000190: 6E 65 78 3B 0D 0A 20 20 73 77 64 65 66 61 75 6C nex;.. swdefaul
0001A0: 74 3D 73 77 64 65 66 3B 0D 0A 20 20 73 77 61 63 t=swdef;.. swac
0001B0: 74 69 76 65 3D 73 77 61 63 74 3B 0D 0A 20 20 7D tive=swact;.. }
0001C0: 0D 0A 0D 0A 64 6F 63 61 73 65 28 29 20 7B 0D 0A ....docase() {..
0001D0: 20 20 69 66 28 73 77 61 63 74 69 76 65 3D 3D 30 if(swactive==0
0001E0: 29 20 65 72 72 6F 72 28 22 6E 6F 74 20 69 6E 20 ) error("not in
0001F0: 73 77 69 74 63 68 22 29 3B 0D 0A 20 20 69 66 28 switch");.. if(
Size : 512 (Real : 512)
000000: 74 6C 61 62 65 6C 28 29 3B 0D 0A 23 69 66 64 65 tlabel();..#ifde
000010: 66 20 53 54 47 4F 54 4F 0D 0A 20 20 69 66 28 28 f STGOTO.. if((
000020: 6C 61 73 74 73 74 20 21 3D 20 53 54 52 45 54 55 lastst != STRETU
000030: 52 4E 29 26 28 6C 61 73 74 73 74 20 21 3D 20 53 RN)&(lastst != S
000040: 54 47 4F 54 4F 29 29 20 6A 75 6D 70 28 66 6C 61 TGOTO)) jump(fla
000050: 62 32 29 3B 0D 0A 23 65 6C 73 65 0D 0A 20 20 69 b2);..#else.. i
000060: 66 28 6C 61 73 74 73 74 20 21 3D 20 53 54 52 45 f(lastst != STRE
000070: 54 55 52 4E 29 20 6A 75 6D 70 28 66 6C 61 62 32 TURN) jump(flab2
000080: 29 3B 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 70 6F );..#endif.. po
000090: 73 74 6C 61 62 65 6C 28 66 6C 61 62 31 29 3B 09 stlabel(flab1);.
0000A0: 09 2F 2A 20 70 72 69 6E 74 20 66 61 6C 73 65 20 ./* print false
0000B0: 6C 61 62 65 6C 20 2A 2F 0D 0A 20 20 73 74 61 74 label */.. stat
0000C0: 65 6D 65 6E 74 28 29 3B 09 09 09 2F 2A 20 61 6E ement();.../* an
0000D0: 64 20 64 6F 20 22 65 6C 73 65 22 20 63 6C 61 75 d do "else" clau
0000E0: 73 65 20 2A 2F 0D 0A 20 20 70 6F 73 74 6C 61 62 se */.. postlab
0000F0: 65 6C 28 66 6C 61 62 32 29 3B 09 09 2F 2A 20 70 el(flab2);../* p
000100: 72 69 6E 74 20 74 72 75 65 20 6C 61 62 65 6C 20 rint true label
000110: 2A 2F 0D 0A 20 20 7D 0D 0A 0D 0A 64 6F 65 78 70 */.. }....doexp
000120: 72 28 29 20 7B 0D 0A 20 20 69 6E 74 20 63 6F 6E r() {.. int con
000130: 73 74 2C 20 76 61 6C 3B 0D 0A 20 20 63 68 61 72 st, val;.. char
000140: 20 2A 62 65 66 6F 72 65 2C 20 2A 73 74 61 72 74 *before, *start
000150: 3B 0D 0A 20 20 77 68 69 6C 65 28 31 29 20 7B 0D ;.. while(1) {.
000160: 0A 20 20 20 20 73 65 74 73 74 61 67 65 28 26 62 . setstage(&b
000170: 65 66 6F 72 65 2C 20 26 73 74 61 72 74 29 3B 0D efore, &start);.
000180: 0A 20 20 20 20 65 78 70 72 65 73 73 69 6F 6E 28 . expression(
000190: 26 63 6F 6E 73 74 2C 20 26 76 61 6C 29 3B 0D 0A &const, &val);..
0001A0: 20 20 20 20 63 6C 65 61 72 73 74 61 67 65 28 62 clearstage(b
0001B0: 65 66 6F 72 65 2C 20 73 74 61 72 74 29 3B 0D 0A efore, start);..
0001C0: 20 20 20 20 69 66 28 63 68 20 21 3D 20 27 2C 27 if(ch != ','
0001D0: 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 62 75 ) break;.. bu
0001E0: 6D 70 28 31 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 mp(1);.. }..
0001F0: 20 7D 0D 0A 0D 0A 64 6F 77 68 69 6C 65 28 29 20 }....dowhile()
Size : 512 (Real : 512)
000000: 73 77 6E 65 78 74 20 3E 20 73 77 65 6E 64 29 20 swnext > swend)
000010: 7B 0D 0A 20 20 20 20 65 72 72 6F 72 28 22 74 6F {.. error("to
000020: 6F 20 6D 61 6E 79 20 63 61 73 65 73 22 29 3B 0D o many cases");.
000030: 0A 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 . return;..
000040: 20 20 7D 0D 0A 20 20 70 6F 73 74 6C 61 62 65 6C }.. postlabel
000050: 28 2A 73 77 6E 65 78 74 2B 2B 20 3D 20 67 65 74 (*swnext++ = get
000060: 6C 61 62 65 6C 28 29 29 3B 0D 0A 20 20 63 6F 6E label());.. con
000070: 73 74 65 78 70 72 28 73 77 6E 65 78 74 2B 2B 29 stexpr(swnext++)
000080: 3B 0D 0A 20 20 6E 65 65 64 74 6F 6B 65 6E 28 22 ;.. needtoken("
000090: 3A 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 64 6F 64 :");.. }....dod
0000A0: 65 66 61 75 6C 74 28 29 20 7B 0D 0A 20 20 69 66 efault() {.. if
0000B0: 28 73 77 61 63 74 69 76 65 29 20 7B 0D 0A 20 20 (swactive) {..
0000C0: 20 20 69 66 28 73 77 64 65 66 61 75 6C 74 29 20 if(swdefault)
0000D0: 65 72 72 6F 72 28 22 6D 75 6C 74 69 70 6C 65 20 error("multiple
0000E0: 64 65 66 61 75 6C 74 73 22 29 3B 0D 0A 20 20 20 defaults");..
0000F0: 20 7D 0D 0A 20 20 65 6C 73 65 20 65 72 72 6F 72 }.. else error
000100: 28 22 6E 6F 74 20 69 6E 20 73 77 69 74 63 68 22 ("not in switch"
000110: 29 3B 0D 0A 20 20 6E 65 65 64 74 6F 6B 65 6E 28 );.. needtoken(
000120: 22 3A 22 29 3B 0D 0A 20 20 70 6F 73 74 6C 61 62 ":");.. postlab
000130: 65 6C 28 73 77 64 65 66 61 75 6C 74 3D 67 65 74 el(swdefault=get
000140: 6C 61 62 65 6C 28 29 29 3B 0D 0A 20 20 7D 0D 0A label());.. }..
000150: 23 65 6E 64 69 66 0D 0A 0D 0A 23 69 66 64 65 66 #endif....#ifdef
000160: 20 53 54 47 4F 54 4F 0D 0A 64 6F 67 6F 74 6F 28 STGOTO..dogoto(
000170: 29 20 7B 0D 0A 20 20 69 66 28 6E 6F 67 6F 20 3E ) {.. if(nogo >
000180: 20 30 29 20 65 72 72 6F 72 28 22 6E 6F 74 20 61 0) error("not a
000190: 6C 6C 6F 77 65 64 20 77 69 74 68 20 62 6C 6F 63 llowed with bloc
0001A0: 6B 2D 6C 6F 63 61 6C 73 22 29 3B 0D 0A 20 20 65 k-locals");.. e
0001B0: 6C 73 65 20 6E 6F 6C 6F 63 20 3D 20 31 3B 0D 0A lse noloc = 1;..
0001C0: 20 20 69 66 28 73 79 6D 6E 61 6D 65 28 73 73 6E if(symname(ssn
0001D0: 61 6D 65 2C 20 59 45 53 29 29 20 6A 75 6D 70 28 ame, YES)) jump(
0001E0: 61 64 64 6C 61 62 65 6C 28 29 29 3B 0D 0A 20 20 addlabel());..
0001F0: 65 6C 73 65 20 65 72 72 6F 72 28 22 62 61 64 20 else error("bad
Size : 512 (Real : 512)
000000: 20 7B 0D 0A 20 20 69 6E 74 20 77 71 5B 34 5D 3B {.. int wq[4];
000010: 09 09 09 2F 2A 20 61 6C 6C 6F 63 61 74 65 20 6C .../* allocate l
000020: 6F 63 61 6C 20 71 75 65 75 65 20 2A 2F 0D 0A 20 ocal queue */..
000030: 20 61 64 64 77 68 69 6C 65 28 77 71 29 3B 09 09 addwhile(wq);..
000040: 09 2F 2A 20 61 64 64 20 65 6E 74 72 79 20 74 6F ./* add entry to
000050: 20 71 75 65 75 65 20 66 6F 72 20 22 62 72 65 61 queue for "brea
000060: 6B 22 20 2A 2F 0D 0A 20 20 70 6F 73 74 6C 61 62 k" */.. postlab
000070: 65 6C 28 77 71 5B 57 51 4C 4F 4F 50 5D 29 3B 09 el(wq[WQLOOP]);.
000080: 2F 2A 20 6C 6F 6F 70 20 6C 61 62 65 6C 20 2A 2F /* loop label */
000090: 0D 0A 20 20 74 65 73 74 28 77 71 5B 57 51 45 58 .. test(wq[WQEX
0000A0: 49 54 5D 2C 20 59 45 53 29 3B 09 2F 2A 20 73 65 IT], YES);./* se
0000B0: 65 20 69 66 20 74 72 75 65 20 2A 2F 0D 0A 20 20 e if true */..
0000C0: 73 74 61 74 65 6D 65 6E 74 28 29 3B 09 09 09 2F statement();.../
0000D0: 2A 20 69 66 20 73 6F 2C 20 64 6F 20 61 20 73 74 * if so, do a st
0000E0: 61 74 65 6D 65 6E 74 20 2A 2F 0D 0A 20 20 6A 75 atement */.. ju
0000F0: 6D 70 28 77 71 5B 57 51 4C 4F 4F 50 5D 29 3B 09 mp(wq[WQLOOP]);.
000100: 09 2F 2A 20 6C 6F 6F 70 20 74 6F 20 6C 61 62 65 ./* loop to labe
000110: 6C 20 2A 2F 0D 0A 20 20 70 6F 73 74 6C 61 62 65 l */.. postlabe
000120: 6C 28 77 71 5B 57 51 45 58 49 54 5D 29 3B 09 2F l(wq[WQEXIT]);./
000130: 2A 20 65 78 69 74 20 6C 61 62 65 6C 20 2A 2F 0D * exit label */.
000140: 0A 20 20 64 65 6C 77 68 69 6C 65 28 29 3B 09 09 . delwhile();..
000150: 09 2F 2A 20 64 65 6C 65 74 65 20 71 75 65 75 65 ./* delete queue
000160: 20 65 6E 74 72 79 20 2A 2F 0D 0A 20 20 7D 0D 0A entry */.. }..
000170: 0D 0A 23 69 66 64 65 66 20 53 54 44 4F 0D 0A 64 ..#ifdef STDO..d
000180: 6F 64 6F 28 29 20 7B 0D 0A 20 20 69 6E 74 20 77 odo() {.. int w
000190: 71 5B 34 5D 2C 20 74 6F 70 3B 0D 0A 20 20 61 64 q[4], top;.. ad
0001A0: 64 77 68 69 6C 65 28 77 71 29 3B 0D 0A 20 20 70 dwhile(wq);.. p
0001B0: 6F 73 74 6C 61 62 65 6C 28 74 6F 70 3D 67 65 74 ostlabel(top=get
0001C0: 6C 61 62 65 6C 28 29 29 3B 0D 0A 20 20 73 74 61 label());.. sta
0001D0: 74 65 6D 65 6E 74 28 29 3B 0D 0A 20 20 6E 65 65 tement();.. nee
0001E0: 64 74 6F 6B 65 6E 28 22 77 68 69 6C 65 22 29 3B dtoken("while");
0001F0: 0D 0A 20 20 70 6F 73 74 6C 61 62 65 6C 28 77 71 .. postlabel(wq
Size : 512 (Real : 512)
000000: 6C 61 62 65 6C 22 29 3B 0D 0A 20 20 6E 73 28 29 label");.. ns()
000010: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 64 6F 6C 61 62 65 ;.. }....dolabe
000020: 6C 28 29 20 7B 0D 0A 20 20 63 68 61 72 20 2A 73 l() {.. char *s
000030: 61 76 65 6C 70 74 72 3B 0D 0A 20 20 62 6C 61 6E avelptr;.. blan
000040: 6B 73 28 29 3B 0D 0A 20 20 73 61 76 65 6C 70 74 ks();.. savelpt
000050: 72 3D 6C 70 74 72 3B 0D 0A 20 20 69 66 28 73 79 r=lptr;.. if(sy
000060: 6D 6E 61 6D 65 28 73 73 6E 61 6D 65 2C 20 59 45 mname(ssname, YE
000070: 53 29 29 20 7B 0D 0A 20 20 20 20 69 66 28 67 63 S)) {.. if(gc
000080: 68 28 29 3D 3D 27 3A 27 29 20 7B 0D 0A 20 20 20 h()==':') {..
000090: 20 20 20 70 6F 73 74 6C 61 62 65 6C 28 61 64 64 postlabel(add
0000A0: 6C 61 62 65 6C 28 29 29 3B 0D 0A 20 20 20 20 20 label());..
0000B0: 20 72 65 74 75 72 6E 20 31 3B 0D 0A 20 20 20 20 return 1;..
0000C0: 20 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 62 75 }.. else bu
0000D0: 6D 70 28 73 61 76 65 6C 70 74 72 2D 6C 70 74 72 mp(savelptr-lptr
0000E0: 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 );.. }.. ret
0000F0: 75 72 6E 20 30 3B 0D 0A 20 20 7D 0D 0A 0D 0A 61 urn 0;.. }....a
000100: 64 64 6C 61 62 65 6C 28 29 20 20 7B 0D 0A 20 20 ddlabel() {..
000110: 69 66 28 63 70 74 72 3D 66 69 6E 64 6C 6F 63 28 if(cptr=findloc(
000120: 73 73 6E 61 6D 65 29 29 20 7B 0D 0A 20 20 20 20 ssname)) {..
000130: 69 66 28 63 70 74 72 5B 49 44 45 4E 54 5D 21 3D if(cptr[IDENT]!=
000140: 4C 41 42 45 4C 29 20 65 72 72 6F 72 28 22 6E 6F LABEL) error("no
000150: 74 20 61 20 6C 61 62 65 6C 22 29 3B 0D 0A 20 20 t a label");..
000160: 20 20 7D 0D 0A 20 20 65 6C 73 65 20 63 70 74 72 }.. else cptr
000170: 3D 61 64 64 73 79 6D 28 73 73 6E 61 6D 65 2C 20 =addsym(ssname,
000180: 4C 41 42 45 4C 2C 20 4C 41 42 45 4C 2C 20 67 65 LABEL, LABEL, ge
000190: 74 6C 61 62 65 6C 28 29 2C 20 26 6C 6F 63 70 74 tlabel(), &locpt
0001A0: 72 2C 20 4C 41 42 45 4C 29 3B 0D 0A 20 20 72 65 r, LABEL);.. re
0001B0: 74 75 72 6E 20 28 67 65 74 69 6E 74 28 63 70 74 turn (getint(cpt
0001C0: 72 2B 4F 46 46 53 45 54 2C 20 4F 46 46 53 49 5A r+OFFSET, OFFSIZ
0001D0: 45 29 29 3B 0D 0A 20 20 7D 0D 0A 23 65 6E 64 69 E));.. }..#endi
0001E0: 66 0D 0A 0D 0A 64 6F 72 65 74 75 72 6E 28 29 20 f....doreturn()
0001F0: 20 7B 0D 0A 20 20 69 66 28 65 6E 64 73 74 28 29 {.. if(endst()
Size : 512 (Real : 512)
000000: 5B 57 51 4C 4F 4F 50 5D 29 3B 0D 0A 20 20 74 65 [WQLOOP]);.. te
000010: 73 74 28 77 71 5B 57 51 45 58 49 54 5D 2C 20 59 st(wq[WQEXIT], Y
000020: 45 53 29 3B 0D 0A 20 20 6A 75 6D 70 28 74 6F 70 ES);.. jump(top
000030: 29 3B 0D 0A 20 20 70 6F 73 74 6C 61 62 65 6C 28 );.. postlabel(
000040: 77 71 5B 57 51 45 58 49 54 5D 29 3B 0D 0A 20 20 wq[WQEXIT]);..
000050: 64 65 6C 77 68 69 6C 65 28 29 3B 0D 0A 20 20 6E delwhile();.. n
000060: 73 28 29 3B 0D 0A 20 20 7D 0D 0A 23 65 6E 64 69 s();.. }..#endi
000070: 66 0D 0A 0D 0A 23 69 66 64 65 66 20 53 54 46 4F f....#ifdef STFO
000080: 52 0D 0A 64 6F 66 6F 72 28 29 20 7B 0D 0A 20 20 R..dofor() {..
000090: 69 6E 74 20 77 71 5B 34 5D 2C 20 6C 61 62 31 2C int wq[4], lab1,
0000A0: 20 6C 61 62 32 3B 0D 0A 20 20 61 64 64 77 68 69 lab2;.. addwhi
0000B0: 6C 65 28 77 71 29 3B 0D 0A 20 20 6C 61 62 31 3D le(wq);.. lab1=
0000C0: 67 65 74 6C 61 62 65 6C 28 29 3B 0D 0A 20 20 6C getlabel();.. l
0000D0: 61 62 32 3D 67 65 74 6C 61 62 65 6C 28 29 3B 0D ab2=getlabel();.
0000E0: 0A 20 20 6E 65 65 64 74 6F 6B 65 6E 28 22 28 22 . needtoken("("
0000F0: 29 3B 0D 0A 20 20 69 66 28 6D 61 74 63 68 28 22 );.. if(match("
000100: 3B 22 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 64 ;")==0) {.. d
000110: 6F 65 78 70 72 28 29 3B 09 09 09 2F 2A 20 65 78 oexpr();.../* ex
000120: 70 72 20 31 20 2A 2F 0D 0A 20 20 20 20 6E 73 28 pr 1 */.. ns(
000130: 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 70 6F 73 );.. }.. pos
000140: 74 6C 61 62 65 6C 28 6C 61 62 31 29 3B 0D 0A 20 tlabel(lab1);..
000150: 20 69 66 28 6D 61 74 63 68 28 22 3B 22 29 3D 3D if(match(";")==
000160: 30 29 20 7B 0D 0A 20 20 20 20 74 65 73 74 28 77 0) {.. test(w
000170: 71 5B 57 51 45 58 49 54 5D 2C 20 4E 4F 29 3B 09 q[WQEXIT], NO);.
000180: 2F 2A 20 65 78 70 72 20 32 20 2A 2F 0D 0A 20 20 /* expr 2 */..
000190: 20 20 6E 73 28 29 3B 0D 0A 20 20 20 20 7D 0D 0A ns();.. }..
0001A0: 20 20 6A 75 6D 70 28 6C 61 62 32 29 3B 0D 0A 20 jump(lab2);..
0001B0: 20 70 6F 73 74 6C 61 62 65 6C 28 77 71 5B 57 51 postlabel(wq[WQ
0001C0: 4C 4F 4F 50 5D 29 3B 0D 0A 20 20 69 66 28 6D 61 LOOP]);.. if(ma
0001D0: 74 63 68 28 22 29 22 29 3D 3D 30 29 20 7B 0D 0A tch(")")==0) {..
0001E0: 20 20 20 20 64 6F 65 78 70 72 28 29 3B 09 09 09 doexpr();...
0001F0: 2F 2A 20 65 78 70 72 20 33 20 2A 2F 0D 0A 20 20 /* expr 3 */..
Size : 512 (Real : 512)
000000: 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 64 6F 65 78 ==0) {.. doex
000010: 70 72 28 29 3B 0D 0A 20 20 20 20 6D 6F 64 73 74 pr();.. modst
000020: 6B 28 30 2C 20 59 45 53 29 3B 0D 0A 20 20 20 20 k(0, YES);..
000030: 7D 0D 0A 20 20 65 6C 73 65 20 6D 6F 64 73 74 6B }.. else modstk
000040: 28 30 2C 20 4E 4F 29 3B 0D 0A 20 20 66 66 72 65 (0, NO);.. ffre
000050: 74 28 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 64 6F 62 t();.. }....dob
000060: 72 65 61 6B 28 29 20 20 7B 0D 0A 20 20 69 6E 74 reak() {.. int
000070: 20 2A 70 74 72 3B 0D 0A 20 20 69 66 20 28 28 70 *ptr;.. if ((p
000080: 74 72 3D 72 65 61 64 77 68 69 6C 65 28 77 71 70 tr=readwhile(wqp
000090: 74 72 29 29 3D 3D 30 29 20 72 65 74 75 72 6E 3B tr))==0) return;
0000A0: 0D 0A 20 20 6D 6F 64 73 74 6B 28 28 70 74 72 5B .. modstk((ptr[
0000B0: 57 51 53 50 5D 29 2C 20 4E 4F 29 3B 0D 0A 20 20 WQSP]), NO);..
0000C0: 6A 75 6D 70 28 70 74 72 5B 57 51 45 58 49 54 5D jump(ptr[WQEXIT]
0000D0: 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 64 6F 63 6F 6E );.. }....docon
0000E0: 74 28 29 20 20 7B 0D 0A 20 20 69 6E 74 20 2A 70 t() {.. int *p
0000F0: 74 72 3B 0D 0A 20 20 70 74 72 20 3D 20 77 71 70 tr;.. ptr = wqp
000100: 74 72 3B 0D 0A 20 20 77 68 69 6C 65 20 28 31 29 tr;.. while (1)
000110: 20 7B 0D 0A 20 20 20 20 69 66 20 28 28 70 74 72 {.. if ((ptr
000120: 3D 72 65 61 64 77 68 69 6C 65 28 70 74 72 29 29 =readwhile(ptr))
000130: 3D 3D 30 29 20 72 65 74 75 72 6E 3B 0D 0A 20 20 ==0) return;..
000140: 20 20 69 66 20 28 70 74 72 5B 57 51 4C 4F 4F 50 if (ptr[WQLOOP
000150: 5D 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 7D ]) break;.. }
000160: 0D 0A 20 20 6D 6F 64 73 74 6B 28 28 70 74 72 5B .. modstk((ptr[
000170: 57 51 53 50 5D 29 2C 20 4E 4F 29 3B 0D 0A 20 20 WQSP]), NO);..
000180: 6A 75 6D 70 28 70 74 72 5B 57 51 4C 4F 4F 50 5D jump(ptr[WQLOOP]
000190: 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 64 6F 61 73 6D );.. }....doasm
0001A0: 28 29 20 20 7B 0D 0A 20 20 63 63 6F 64 65 3D 30 () {.. ccode=0
0001B0: 3B 09 09 09 2F 2A 20 6D 61 72 6B 20 6D 6F 64 65 ;.../* mark mode
0001C0: 20 61 73 20 22 61 73 6D 22 20 2A 2F 0D 0A 20 20 as "asm" */..
0001D0: 77 68 69 6C 65 20 28 31 29 20 7B 0D 0A 20 20 20 while (1) {..
0001E0: 20 69 6E 6C 69 6E 65 28 29 3B 0D 0A 20 20 20 20 inline();..
0001F0: 69 66 20 28 6D 61 74 63 68 28 22 23 65 6E 64 61 if (match("#enda
Size : 512 (Real : 512)
000000: 20 20 6E 65 65 64 74 6F 6B 65 6E 28 22 29 22 29 needtoken(")")
000010: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 6A 75 6D 70 ;.. }.. jump
000020: 28 6C 61 62 31 29 3B 0D 0A 20 20 70 6F 73 74 6C (lab1);.. postl
000030: 61 62 65 6C 28 6C 61 62 32 29 3B 0D 0A 20 20 73 abel(lab2);.. s
000040: 74 61 74 65 6D 65 6E 74 28 29 3B 0D 0A 20 20 6A tatement();.. j
000050: 75 6D 70 28 77 71 5B 57 51 4C 4F 4F 50 5D 29 3B ump(wq[WQLOOP]);
000060: 0D 0A 20 20 70 6F 73 74 6C 61 62 65 6C 28 77 71 .. postlabel(wq
000070: 5B 57 51 45 58 49 54 5D 29 3B 0D 0A 20 20 64 65 [WQEXIT]);.. de
000080: 6C 77 68 69 6C 65 28 29 3B 0D 0A 20 20 7D 0D 0A lwhile();.. }..
000090: 23 65 6E 64 69 66 0D 0A 0D 0A 23 69 66 64 65 66 #endif....#ifdef
0000A0: 20 53 54 53 57 49 54 43 48 0D 0A 64 6F 73 77 69 STSWITCH..doswi
0000B0: 74 63 68 28 29 20 7B 0D 0A 20 20 69 6E 74 20 77 tch() {.. int w
0000C0: 71 5B 34 5D 2C 20 65 6E 64 6C 61 62 2C 20 73 77 q[4], endlab, sw
0000D0: 61 63 74 2C 20 73 77 64 65 66 2C 20 2A 73 77 6E act, swdef, *swn
0000E0: 65 78 2C 20 2A 73 77 70 74 72 3B 0D 0A 20 20 73 ex, *swptr;.. s
0000F0: 77 61 63 74 3D 73 77 61 63 74 69 76 65 3B 0D 0A wact=swactive;..
000100: 20 20 73 77 64 65 66 3D 73 77 64 65 66 61 75 6C swdef=swdefaul
000110: 74 3B 0D 0A 20 20 73 77 6E 65 78 3D 73 77 70 74 t;.. swnex=swpt
000120: 72 3D 73 77 6E 65 78 74 3B 0D 0A 20 20 61 64 64 r=swnext;.. add
000130: 77 68 69 6C 65 28 77 71 29 3B 0D 0A 20 20 2A 28 while(wq);.. *(
000140: 77 71 70 74 72 20 2B 20 57 51 4C 4F 4F 50 20 2D wqptr + WQLOOP -
000150: 20 57 51 53 49 5A 29 20 3D 20 30 3B 0D 0A 20 20 WQSIZ) = 0;..
000160: 6E 65 65 64 74 6F 6B 65 6E 28 22 28 22 29 3B 0D needtoken("(");.
000170: 0A 20 20 64 6F 65 78 70 72 28 29 3B 09 09 09 2F . doexpr();.../
000180: 2A 20 65 76 61 6C 75 61 74 65 20 73 77 69 74 63 * evaluate switc
000190: 68 20 65 78 70 72 65 73 73 69 6F 6E 20 2A 2F 0D h expression */.
0001A0: 0A 20 20 6E 65 65 64 74 6F 6B 65 6E 28 22 29 22 . needtoken(")"
0001B0: 29 3B 0D 0A 20 20 73 77 64 65 66 61 75 6C 74 3D );.. swdefault=
0001C0: 30 3B 0D 0A 20 20 73 77 61 63 74 69 76 65 3D 31 0;.. swactive=1
0001D0: 3B 0D 0A 20 20 6A 75 6D 70 28 65 6E 64 6C 61 62 ;.. jump(endlab
0001E0: 3D 67 65 74 6C 61 62 65 6C 28 29 29 3B 0D 0A 20 =getlabel());..
0001F0: 20 73 74 61 74 65 6D 65 6E 74 28 29 3B 09 09 09 statement();...
Size : 512 (Real : 512)
000000: 73 6D 22 29 29 20 62 72 65 61 6B 3B 0D 0A 20 20 sm")) break;..
000010: 20 20 69 66 28 65 6F 66 29 62 72 65 61 6B 3B 0D if(eof)break;.
000020: 0A 20 20 20 20 73 6F 75 74 28 6C 69 6E 65 2C 20 . sout(line,
000030: 6F 75 74 70 75 74 29 3B 0D 0A 20 20 20 20 7D 0D output);.. }.
000040: 0A 20 20 6B 69 6C 6C 28 29 3B 0D 0A 20 20 63 63 . kill();.. cc
000050: 6F 64 65 3D 31 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E ode=1;.. }....>
000060: 3E 3E 20 43 43 32 2E 43 20 37 30 33 0D 0A 2F 2A >> CC2.C 703../*
000070: 0D 0A 2A 2A 20 53 6D 61 6C 6C 2D 43 20 43 6F 6D ..** Small-C Com
000080: 70 69 6C 65 72 20 50 61 72 74 20 32 0D 0A 2A 2F piler Part 2..*/
000090: 0D 0A 23 69 6E 63 6C 75 64 65 20 3C 73 74 64 69 ..#include <stdi
0000A0: 6F 2E 68 3E 0D 0A 23 69 6E 63 6C 75 64 65 20 22 o.h>..#include "
0000B0: 63 63 2E 64 65 66 22 0D 0A 0D 0A 65 78 74 65 72 cc.def"....exter
0000C0: 6E 20 63 68 61 72 0D 0A 23 69 66 64 65 66 20 44 n char..#ifdef D
0000D0: 59 4E 41 4D 49 43 0D 0A 20 2A 73 79 6D 74 61 62 YNAMIC.. *symtab
0000E0: 2C 0D 0A 20 2A 73 74 61 67 65 2C 0D 0A 20 2A 6D ,.. *stage,.. *m
0000F0: 61 63 6E 2C 0D 0A 20 2A 6D 61 63 71 2C 0D 0A 20 acn,.. *macq,..
000100: 2A 70 6C 69 6E 65 2C 0D 0A 20 2A 6D 6C 69 6E 65 *pline,.. *mline
000110: 2C 0D 0A 23 65 6C 73 65 0D 0A 20 20 73 79 6D 74 ,..#else.. symt
000120: 61 62 5B 53 59 4D 54 42 53 5A 5D 2C 0D 0A 20 20 ab[SYMTBSZ],..
000130: 73 74 61 67 65 5B 53 54 41 47 45 53 49 5A 45 5D stage[STAGESIZE]
000140: 2C 0D 0A 20 20 6D 61 63 6E 5B 4D 41 43 4E 53 49 ,.. macn[MACNSI
000150: 5A 45 5D 2C 0D 0A 20 20 6D 61 63 71 5B 4D 41 43 ZE],.. macq[MAC
000160: 51 53 49 5A 45 5D 2C 0D 0A 20 20 70 6C 69 6E 65 QSIZE],.. pline
000170: 5B 4C 49 4E 45 53 49 5A 45 5D 2C 0D 0A 20 20 6D [LINESIZE],.. m
000180: 6C 69 6E 65 5B 4C 49 4E 45 53 49 5A 45 5D 2C 0D line[LINESIZE],.
000190: 0A 23 65 6E 64 69 66 0D 0A 23 69 66 64 65 66 20 .#endif..#ifdef
0001A0: 4F 50 54 49 4D 49 5A 45 0D 0A 20 20 6F 70 74 69 OPTIMIZE.. opti
0001B0: 6D 69 7A 65 2C 0D 0A 23 65 6E 64 69 66 0D 0A 20 mize,..#endif..
0001C0: 20 61 6C 61 72 6D 2C 20 2A 67 6C 62 70 74 72 2C alarm, *glbptr,
0001D0: 20 2A 6C 69 6E 65 2C 20 2A 6C 70 74 72 2C 20 2A *line, *lptr, *
0001E0: 63 70 74 72 2C 20 2A 63 70 74 72 32 2C 20 20 2A cptr, *cptr2, *
0001F0: 63 70 74 72 33 2C 0D 0A 20 2A 6C 6F 63 70 74 72 cptr3,.. *locptr
Size : 512 (Real : 512)
000000: 69 6E 64 20 6C 65 6E 67 74 68 20 62 79 74 65 20 ind length byte
000010: 2A 2F 0D 0A 20 20 72 65 74 75 72 6E 20 65 6E 74 */.. return ent
000020: 72 79 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A ry;.. }..../*..
000030: 2A 2A 20 67 65 74 20 69 6E 74 65 67 65 72 20 6F ** get integer o
000040: 66 20 6C 65 6E 67 74 68 20 6C 65 6E 20 66 72 6F f length len fro
000050: 6D 20 61 64 64 72 65 73 73 20 61 64 64 72 0D 0A m address addr..
000060: 2A 2A 20 28 62 79 74 65 20 73 65 71 75 65 6E 63 ** (byte sequenc
000070: 65 20 73 65 74 20 62 79 20 22 70 75 74 69 6E 74 e set by "putint
000080: 22 29 0D 0A 2A 2F 0D 0A 67 65 74 69 6E 74 28 61 ")..*/..getint(a
000090: 64 64 72 2C 20 6C 65 6E 29 20 63 68 61 72 20 2A ddr, len) char *
0000A0: 61 64 64 72 3B 20 69 6E 74 20 6C 65 6E 3B 20 7B addr; int len; {
0000B0: 0D 0A 20 20 69 6E 74 20 69 3B 0D 0A 20 20 69 20 .. int i;.. i
0000C0: 3D 20 2A 28 61 64 64 72 20 2B 20 2D 2D 6C 65 6E = *(addr + --len
0000D0: 29 3B 09 09 2F 2A 20 68 69 67 68 20 6F 72 64 65 );../* high orde
0000E0: 72 20 62 79 74 65 20 73 69 67 6E 20 65 78 74 65 r byte sign exte
0000F0: 6E 64 65 64 20 2A 2F 0D 0A 20 20 77 68 69 6C 65 nded */.. while
000100: 28 6C 65 6E 2D 2D 29 20 69 20 3D 20 28 69 20 3C (len--) i = (i <
000110: 3C 20 38 29 20 7C 20 2A 28 61 64 64 72 2B 6C 65 < 8) | *(addr+le
000120: 6E 29 26 32 35 35 3B 0D 0A 20 20 72 65 74 75 72 n)&255;.. retur
000130: 6E 20 69 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D n i;.. }..../*.
000140: 0A 2A 2A 20 70 75 74 20 69 6E 74 65 67 65 72 20 .** put integer
000150: 69 20 6F 66 20 6C 65 6E 67 74 68 20 6C 65 6E 20 i of length len
000160: 69 6E 74 6F 20 61 64 64 72 65 73 73 20 61 64 64 into address add
000170: 72 0D 0A 2A 2A 20 28 6C 6F 77 20 62 79 74 65 20 r..** (low byte
000180: 66 69 72 73 74 29 0D 0A 2A 2F 0D 0A 70 75 74 69 first)..*/..puti
000190: 6E 74 28 69 2C 20 61 64 64 72 2C 20 6C 65 6E 29 nt(i, addr, len)
0001A0: 20 63 68 61 72 20 2A 61 64 64 72 3B 20 69 6E 74 char *addr; int
0001B0: 20 69 2C 20 6C 65 6E 3B 20 7B 0D 0A 20 20 77 68 i, len; {.. wh
0001C0: 69 6C 65 28 6C 65 6E 2D 2D 29 20 7B 0D 0A 20 20 ile(len--) {..
0001D0: 20 20 2A 61 64 64 72 2B 2B 20 3D 20 69 3B 0D 0A *addr++ = i;..
0001E0: 20 20 20 20 69 20 3D 20 69 3E 3E 38 3B 0D 0A 20 i = i>>8;..
0001F0: 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D }.. }..../*.
Size : 512 (Real : 512)
000000: 2C 20 6D 73 6E 61 6D 65 5B 4E 41 4D 45 53 49 5A , msname[NAMESIZ
000010: 45 5D 2C 20 20 70 61 75 73 65 2C 20 20 71 75 6F E], pause, quo
000020: 74 65 5B 32 5D 2C 0D 0A 20 2A 73 74 61 67 65 6C te[2],.. *stagel
000030: 61 73 74 2C 20 2A 73 74 61 67 65 6E 65 78 74 3B ast, *stagenext;
000040: 0D 0A 65 78 74 65 72 6E 20 69 6E 74 0D 0A 23 69 ..extern int..#i
000050: 66 64 65 66 20 44 59 4E 41 4D 49 43 0D 0A 20 20 fdef DYNAMIC..
000060: 2A 77 71 2C 0D 0A 23 65 6C 73 65 0D 0A 20 20 77 *wq,..#else.. w
000070: 71 5B 57 51 54 41 42 53 5A 5D 2C 0D 0A 23 65 6E q[WQTABSZ],..#en
000080: 64 69 66 0D 0A 20 20 63 63 6F 64 65 2C 20 20 63 dif.. ccode, c
000090: 68 2C 20 20 63 73 70 2C 20 20 65 6F 66 2C 20 20 h, csp, eof,
0000A0: 65 72 72 66 6C 61 67 2C 20 20 69 66 6C 65 76 65 errflag, ifleve
0000B0: 6C 2C 0D 0A 20 20 69 6E 70 75 74 2C 20 20 69 6E l,.. input, in
0000C0: 70 75 74 32 2C 20 20 6C 69 73 74 66 70 2C 20 20 put2, listfp,
0000D0: 6D 61 63 70 74 72 2C 20 20 6E 63 68 2C 0D 0A 20 macptr, nch,..
0000E0: 20 6E 78 74 6C 61 62 2C 20 20 6F 70 5B 31 36 5D nxtlab, op[16]
0000F0: 2C 20 20 6F 70 69 6E 64 65 78 2C 20 20 6F 70 73 , opindex, ops
000100: 69 7A 65 2C 20 20 6F 75 74 70 75 74 2C 20 20 70 ize, output, p
000110: 70 74 72 2C 0D 0A 20 20 73 6B 69 70 6C 65 76 65 ptr,.. skipleve
000120: 6C 2C 20 20 2A 77 71 70 74 72 3B 0D 0A 0D 0A 23 l, *wqptr;....#
000130: 69 6E 63 6C 75 64 65 20 22 63 63 32 31 2E 63 22 include "cc21.c"
000140: 0D 0A 23 69 6E 63 6C 75 64 65 20 22 63 63 32 32 ..#include "cc22
000150: 2E 63 22 0D 0A 0D 0A 3E 3E 3E 20 43 43 32 31 2E .c"....>>> CC21.
000160: 43 20 34 33 37 31 0D 0A 6A 75 6E 6B 28 29 20 7B C 4371..junk() {
000170: 0D 0A 20 20 69 66 28 61 6E 28 69 6E 62 79 74 65 .. if(an(inbyte
000180: 28 29 29 29 20 77 68 69 6C 65 28 61 6E 28 63 68 ())) while(an(ch
000190: 29 29 20 67 63 68 28 29 3B 0D 0A 20 20 65 6C 73 )) gch();.. els
0001A0: 65 20 77 68 69 6C 65 28 61 6E 28 63 68 29 3D 3D e while(an(ch)==
0001B0: 30 29 20 7B 0D 0A 20 20 20 20 69 66 28 63 68 3D 0) {.. if(ch=
0001C0: 3D 30 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 =0) break;..
0001D0: 67 63 68 28 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 gch();.. }..
0001E0: 20 62 6C 61 6E 6B 73 28 29 3B 0D 0A 20 20 7D 0D blanks();.. }.
0001F0: 0A 0D 0A 65 6E 64 73 74 28 29 20 7B 0D 0A 20 20 ...endst() {..
Size : 512 (Real : 512)
000000: 0A 2A 2A 20 74 65 73 74 20 69 66 20 6E 65 78 74 .** test if next
000010: 20 69 6E 70 75 74 20 73 74 72 69 6E 67 20 69 73 input string is
000020: 20 6C 65 67 61 6C 20 73 79 6D 62 6F 6C 20 6E 61 legal symbol na
000030: 6D 65 0D 0A 2A 2F 0D 0A 73 79 6D 6E 61 6D 65 28 me..*/..symname(
000040: 73 6E 61 6D 65 2C 20 75 63 61 73 65 29 20 63 68 sname, ucase) ch
000050: 61 72 20 2A 73 6E 61 6D 65 3B 20 69 6E 74 20 75 ar *sname; int u
000060: 63 61 73 65 3B 20 7B 0D 0A 20 20 69 6E 74 20 6B case; {.. int k
000070: 3B 63 68 61 72 20 63 3B 0D 0A 20 20 62 6C 61 6E ;char c;.. blan
000080: 6B 73 28 29 3B 0D 0A 20 20 69 66 28 61 6C 70 68 ks();.. if(alph
000090: 61 28 63 68 29 3D 3D 30 29 20 72 65 74 75 72 6E a(ch)==0) return
0000A0: 20 28 2A 73 6E 61 6D 65 3D 30 29 3B 0D 0A 20 20 (*sname=0);..
0000B0: 6B 3D 30 3B 0D 0A 20 20 77 68 69 6C 65 28 61 6E k=0;.. while(an
0000C0: 28 63 68 29 29 20 7B 0D 0A 23 69 66 64 65 66 20 (ch)) {..#ifdef
0000D0: 55 50 50 45 52 0D 0A 20 20 20 20 69 66 28 75 63 UPPER.. if(uc
0000E0: 61 73 65 29 0D 0A 20 20 20 20 20 20 73 6E 61 6D ase).. snam
0000F0: 65 5B 6B 5D 3D 74 6F 75 70 70 65 72 28 67 63 68 e[k]=toupper(gch
000100: 28 29 29 3B 0D 0A 20 20 20 20 65 6C 73 65 0D 0A ());.. else..
000110: 23 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 73 6E #endif.. sn
000120: 61 6D 65 5B 6B 5D 3D 67 63 68 28 29 3B 0D 0A 20 ame[k]=gch();..
000130: 20 20 20 69 66 28 6B 3C 4E 41 4D 45 4D 41 58 29 if(k<NAMEMAX)
000140: 20 2B 2B 6B 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 ++k;.. }..
000150: 73 6E 61 6D 65 5B 6B 5D 3D 30 3B 0D 0A 20 20 72 sname[k]=0;.. r
000160: 65 74 75 72 6E 20 31 3B 0D 0A 20 20 7D 0D 0A 0D eturn 1;.. }...
000170: 0A 2F 2A 0D 0A 2A 2A 20 72 65 74 75 72 6E 20 6E ./*..** return n
000180: 65 78 74 20 61 76 61 69 6C 20 69 6E 74 65 72 6E ext avail intern
000190: 61 6C 20 6C 61 62 65 6C 20 6E 75 6D 62 65 72 0D al label number.
0001A0: 0A 2A 2F 0D 0A 67 65 74 6C 61 62 65 6C 28 29 20 .*/..getlabel()
0001B0: 7B 0D 0A 20 20 72 65 74 75 72 6E 28 2B 2B 6E 78 {.. return(++nx
0001C0: 74 6C 61 62 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F tlab);.. }..../
0001D0: 2A 0D 0A 2A 2A 20 70 6F 73 74 20 61 20 6C 61 62 *..** post a lab
0001E0: 65 6C 20 69 6E 20 74 68 65 20 70 72 6F 67 72 61 el in the progra
0001F0: 6D 0D 0A 2A 2F 0D 0A 70 6F 73 74 6C 61 62 65 6C m..*/..postlabel
Size : 512 (Real : 512)
000000: 62 6C 61 6E 6B 73 28 29 3B 0D 0A 20 20 72 65 74 blanks();.. ret
000010: 75 72 6E 20 28 28 73 74 72 65 71 28 6C 70 74 72 urn ((streq(lptr
000020: 2C 22 3B 22 29 7C 28 63 68 3D 3D 30 29 29 29 3B ,";")|(ch==0)));
000030: 0D 0A 20 20 7D 0D 0A 0D 0A 69 6C 6C 6E 61 6D 65 .. }....illname
000040: 28 29 20 7B 0D 0A 20 20 65 72 72 6F 72 28 22 69 () {.. error("i
000050: 6C 6C 65 67 61 6C 20 73 79 6D 62 6F 6C 22 29 3B llegal symbol");
000060: 0D 0A 20 20 6A 75 6E 6B 28 29 3B 0D 0A 20 20 7D .. junk();.. }
000070: 0D 0A 20 20 0D 0A 6D 75 6C 74 69 64 65 66 28 73 .. ..multidef(s
000080: 6E 61 6D 65 29 20 20 63 68 61 72 20 2A 73 6E 61 name) char *sna
000090: 6D 65 3B 20 7B 0D 0A 20 20 65 72 72 6F 72 28 22 me; {.. error("
0000A0: 61 6C 72 65 61 64 79 20 64 65 66 69 6E 65 64 22 already defined"
0000B0: 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 6E 65 65 64 74 );.. }....needt
0000C0: 6F 6B 65 6E 28 73 74 72 29 20 20 63 68 61 72 20 oken(str) char
0000D0: 2A 73 74 72 3B 20 7B 0D 0A 20 20 69 66 20 28 6D *str; {.. if (m
0000E0: 61 74 63 68 28 73 74 72 29 3D 3D 30 29 20 65 72 atch(str)==0) er
0000F0: 72 6F 72 28 22 6D 69 73 73 69 6E 67 20 74 6F 6B ror("missing tok
000100: 65 6E 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 6E 65 en");.. }....ne
000110: 65 64 6C 76 61 6C 28 29 20 7B 0D 0A 20 20 65 72 edlval() {.. er
000120: 72 6F 72 28 22 6D 75 73 74 20 62 65 20 6C 76 61 ror("must be lva
000130: 6C 75 65 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 66 lue");.. }....f
000140: 69 6E 64 67 6C 62 28 73 6E 61 6D 65 29 20 20 63 indglb(sname) c
000150: 68 61 72 20 2A 73 6E 61 6D 65 3B 20 7B 0D 0A 20 har *sname; {..
000160: 20 69 66 28 73 65 61 72 63 68 28 73 6E 61 6D 65 if(search(sname
000170: 2C 20 53 54 41 52 54 47 4C 42 2C 20 53 59 4D 4D , STARTGLB, SYMM
000180: 41 58 2C 20 45 4E 44 47 4C 42 2C 20 4E 55 4D 47 AX, ENDGLB, NUMG
000190: 4C 42 53 2C 20 4E 41 4D 45 29 29 0D 0A 20 20 20 LBS, NAME))..
0001A0: 20 72 65 74 75 72 6E 20 63 70 74 72 3B 0D 0A 20 return cptr;..
0001B0: 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 7D 0D return 0;.. }.
0001C0: 0A 0D 0A 66 69 6E 64 6C 6F 63 28 73 6E 61 6D 65 ...findloc(sname
0001D0: 29 20 20 63 68 61 72 20 2A 73 6E 61 6D 65 3B 20 ) char *sname;
0001E0: 20 7B 0D 0A 20 20 63 70 74 72 20 3D 20 6C 6F 63 {.. cptr = loc
0001F0: 70 74 72 20 2D 20 31 3B 09 09 2F 2A 20 73 65 61 ptr - 1;../* sea
Size : 512 (Real : 512)
000000: 28 6C 61 62 65 6C 29 20 69 6E 74 20 6C 61 62 65 (label) int labe
000010: 6C 3B 20 7B 0D 0A 20 20 70 72 69 6E 74 6C 61 62 l; {.. printlab
000020: 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 20 20 63 6F el(label);.. co
000030: 6C 28 29 3B 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 l();.. nl();..
000040: 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 70 72 69 }..../*..** pri
000050: 6E 74 20 73 70 65 63 69 66 69 65 64 20 6E 75 6D nt specified num
000060: 62 65 72 20 61 73 20 61 20 6C 61 62 65 6C 0D 0A ber as a label..
000070: 2A 2F 0D 0A 70 72 69 6E 74 6C 61 62 65 6C 28 6C */..printlabel(l
000080: 61 62 65 6C 29 20 20 69 6E 74 20 6C 61 62 65 6C abel) int label
000090: 3B 20 7B 0D 0A 20 20 6F 75 74 73 74 72 28 22 43 ; {.. outstr("C
0000A0: 43 22 29 3B 0D 0A 20 20 6F 75 74 64 65 63 28 6C C");.. outdec(l
0000B0: 61 62 65 6C 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F abel);.. }..../
0000C0: 2A 0D 0A 2A 2A 20 74 65 73 74 20 69 66 20 63 20 *..** test if c
0000D0: 69 73 20 61 6C 70 68 61 62 65 74 69 63 0D 0A 2A is alphabetic..*
0000E0: 2F 0D 0A 61 6C 70 68 61 28 63 29 20 20 63 68 61 /..alpha(c) cha
0000F0: 72 20 63 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E r c; {.. return
000100: 20 28 69 73 61 6C 70 68 61 28 63 29 20 7C 7C 20 (isalpha(c) ||
000110: 63 3D 3D 27 5F 27 29 3B 0D 0A 20 20 7D 0D 0A 0D c=='_');.. }...
000120: 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 69 66 20 ./*..** test if
000130: 67 69 76 65 6E 20 63 68 61 72 61 63 74 65 72 20 given character
000140: 69 73 20 61 6C 70 68 61 6E 75 6D 65 72 69 63 0D is alphanumeric.
000150: 0A 2A 2F 0D 0A 61 6E 28 63 29 20 20 63 68 61 72 .*/..an(c) char
000160: 20 63 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E 20 c; {.. return
000170: 28 61 6C 70 68 61 28 63 29 20 7C 7C 20 69 73 64 (alpha(c) || isd
000180: 69 67 69 74 28 63 29 29 3B 0D 0A 20 20 7D 0D 0A igit(c));.. }..
000190: 0D 0A 61 64 64 77 68 69 6C 65 28 70 74 72 29 20 ..addwhile(ptr)
0001A0: 20 69 6E 74 20 70 74 72 5B 5D 3B 20 7B 0D 0A 20 int ptr[]; {..
0001B0: 20 69 6E 74 20 6B 3B 0D 0A 20 20 70 74 72 5B 57 int k;.. ptr[W
0001C0: 51 53 50 5D 3D 63 73 70 3B 09 09 2F 2A 20 61 6E QSP]=csp;../* an
0001D0: 64 20 73 74 6B 20 70 74 72 20 2A 2F 0D 0A 20 20 d stk ptr */..
0001E0: 70 74 72 5B 57 51 4C 4F 4F 50 5D 3D 67 65 74 6C ptr[WQLOOP]=getl
0001F0: 61 62 65 6C 28 29 3B 09 2F 2A 20 61 6E 64 20 6C abel();./* and l
Size : 512 (Real : 512)
000000: 72 63 68 20 62 61 63 6B 77 61 72 64 20 66 6F 72 rch backward for
000010: 20 62 6C 6F 63 6B 20 6C 6F 63 61 6C 73 20 2A 2F block locals */
000020: 0D 0A 20 20 77 68 69 6C 65 28 63 70 74 72 20 3E .. while(cptr >
000030: 20 53 54 41 52 54 4C 4F 43 29 20 7B 0D 0A 20 20 STARTLOC) {..
000040: 20 20 63 70 74 72 20 3D 20 63 70 74 72 20 2D 20 cptr = cptr -
000050: 2A 63 70 74 72 3B 0D 0A 20 20 20 20 69 66 28 61 *cptr;.. if(a
000060: 73 74 72 65 71 28 73 6E 61 6D 65 2C 20 63 70 74 streq(sname, cpt
000070: 72 2C 20 4E 41 4D 45 4D 41 58 29 29 20 72 65 74 r, NAMEMAX)) ret
000080: 75 72 6E 20 28 63 70 74 72 20 2D 20 4E 41 4D 45 urn (cptr - NAME
000090: 29 3B 0D 0A 20 20 20 20 63 70 74 72 20 3D 20 63 );.. cptr = c
0000A0: 70 74 72 20 2D 20 4E 41 4D 45 20 2D 20 31 3B 0D ptr - NAME - 1;.
0000B0: 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E . }.. return
0000C0: 20 30 3B 0D 0A 20 20 7D 0D 0A 0D 0A 61 64 64 73 0;.. }....adds
0000D0: 79 6D 28 73 6E 61 6D 65 2C 20 69 64 2C 20 74 79 ym(sname, id, ty
0000E0: 70 2C 20 76 61 6C 75 65 2C 20 6C 67 70 74 72 70 p, value, lgptrp
0000F0: 74 72 2C 20 63 6C 61 73 73 29 0D 0A 20 20 63 68 tr, class).. ch
000100: 61 72 20 2A 73 6E 61 6D 65 2C 20 69 64 2C 20 74 ar *sname, id, t
000110: 79 70 3B 20 20 69 6E 74 20 76 61 6C 75 65 2C 20 yp; int value,
000120: 2A 6C 67 70 74 72 70 74 72 2C 20 63 6C 61 73 73 *lgptrptr, class
000130: 3B 20 7B 0D 0A 20 20 69 66 28 6C 67 70 74 72 70 ; {.. if(lgptrp
000140: 74 72 20 3D 3D 20 26 67 6C 62 70 74 72 29 20 7B tr == &glbptr) {
000150: 0D 0A 20 20 20 20 69 66 28 63 70 74 72 32 3D 66 .. if(cptr2=f
000160: 69 6E 64 67 6C 62 28 73 6E 61 6D 65 29 29 20 72 indglb(sname)) r
000170: 65 74 75 72 6E 20 63 70 74 72 32 3B 0D 0A 20 20 eturn cptr2;..
000180: 20 20 69 66 28 63 70 74 72 3D 3D 30 29 20 7B 0D if(cptr==0) {.
000190: 0A 20 20 20 20 20 20 65 72 72 6F 72 28 22 67 6C . error("gl
0001A0: 6F 62 61 6C 20 73 79 6D 62 6F 6C 20 74 61 62 6C obal symbol tabl
0001B0: 65 20 6F 76 65 72 66 6C 6F 77 22 29 3B 0D 0A 20 e overflow");..
0001C0: 20 20 20 20 20 72 65 74 75 72 6E 20 30 3B 0D 0A return 0;..
0001D0: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 7D 0D 0A }.. }..
0001E0: 20 20 65 6C 73 65 20 7B 0D 0A 20 20 20 20 69 66 else {.. if
0001F0: 28 6C 6F 63 70 74 72 20 3E 20 28 45 4E 44 4C 4F (locptr > (ENDLO
Size : 512 (Real : 512)
000000: 6F 6F 70 69 6E 67 20 6C 61 62 65 6C 20 2A 2F 0D ooping label */.
000010: 0A 20 20 70 74 72 5B 57 51 45 58 49 54 5D 3D 67 . ptr[WQEXIT]=g
000020: 65 74 6C 61 62 65 6C 28 29 3B 09 2F 2A 20 61 6E etlabel();./* an
000030: 64 20 65 78 69 74 20 6C 61 62 65 6C 20 2A 2F 0D d exit label */.
000040: 0A 20 20 69 66 20 28 77 71 70 74 72 3D 3D 57 51 . if (wqptr==WQ
000050: 4D 41 58 29 20 7B 0D 0A 20 20 20 20 65 72 72 6F MAX) {.. erro
000060: 72 28 22 74 6F 6F 20 6D 61 6E 79 20 61 63 74 69 r("too many acti
000070: 76 65 20 6C 6F 6F 70 73 22 29 3B 0D 0A 20 20 20 ve loops");..
000080: 20 61 62 6F 72 74 28 45 52 52 43 4F 44 45 29 3B abort(ERRCODE);
000090: 0D 0A 20 20 20 20 7D 0D 0A 20 20 6B 3D 30 3B 0D .. }.. k=0;.
0000A0: 0A 20 20 77 68 69 6C 65 20 28 6B 3C 57 51 53 49 . while (k<WQSI
0000B0: 5A 29 20 2A 77 71 70 74 72 2B 2B 20 3D 20 70 74 Z) *wqptr++ = pt
0000C0: 72 5B 6B 2B 2B 5D 3B 0D 0A 20 20 7D 0D 0A 0D 0A r[k++];.. }....
0000D0: 64 65 6C 77 68 69 6C 65 28 29 20 7B 0D 0A 20 20 delwhile() {..
0000E0: 69 66 20 28 77 71 70 74 72 20 3E 20 77 71 29 20 if (wqptr > wq)
0000F0: 77 71 70 74 72 3D 77 71 70 74 72 2D 57 51 53 49 wqptr=wqptr-WQSI
000100: 5A 3B 0D 0A 20 20 7D 0D 0A 0D 0A 72 65 61 64 77 Z;.. }....readw
000110: 68 69 6C 65 28 70 74 72 29 20 69 6E 74 20 2A 70 hile(ptr) int *p
000120: 74 72 3B 20 7B 0D 0A 20 20 69 66 20 28 70 74 72 tr; {.. if (ptr
000130: 20 3C 3D 20 77 71 29 20 7B 0D 0A 20 20 20 20 65 <= wq) {.. e
000140: 72 72 6F 72 28 22 6F 75 74 20 6F 66 20 63 6F 6E rror("out of con
000150: 74 65 78 74 22 29 3B 0D 0A 20 20 20 20 72 65 74 text");.. ret
000160: 75 72 6E 20 30 3B 0D 0A 20 20 20 20 7D 0D 0A 20 urn 0;.. }..
000170: 20 65 6C 73 65 20 72 65 74 75 72 6E 20 28 70 74 else return (pt
000180: 72 2D 57 51 53 49 5A 29 3B 0D 0A 20 7D 0D 0A 0D r-WQSIZ);.. }...
000190: 0A 77 68 69 74 65 28 29 20 7B 0D 0A 23 69 66 64 .white() {..#ifd
0001A0: 65 66 20 44 59 4E 41 4D 49 43 0D 0A 20 20 2F 2A ef DYNAMIC.. /*
0001B0: 20 74 65 73 74 20 66 6F 72 20 73 74 61 63 6B 2F test for stack/
0001C0: 70 72 6F 67 20 6F 76 65 72 6C 61 70 20 61 74 20 prog overlap at
0001D0: 64 65 65 70 65 73 74 20 6E 65 73 74 69 6E 67 20 deepest nesting
0001E0: 2A 2F 0D 0A 20 20 2F 2A 20 70 72 69 6D 61 72 79 */.. /* primary
0001F0: 20 2D 3E 20 73 79 6D 6E 61 6D 65 20 2D 3E 20 62 -> symname -> b
Size : 512 (Real : 512)
000000: 43 2D 53 59 4D 4D 41 58 29 29 20 7B 0D 0A 20 20 C-SYMMAX)) {..
000010: 20 20 20 20 65 72 72 6F 72 28 22 6C 6F 63 61 6C error("local
000020: 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 6F 76 symbol table ov
000030: 65 72 66 6C 6F 77 22 29 3B 0D 0A 20 20 20 20 20 erflow");..
000040: 20 61 62 6F 72 74 28 45 52 52 43 4F 44 45 29 3B abort(ERRCODE);
000050: 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 63 .. }.. c
000060: 70 74 72 20 3D 20 2A 6C 67 70 74 72 70 74 72 3B ptr = *lgptrptr;
000070: 0D 0A 20 20 20 20 7D 0D 0A 20 20 63 70 74 72 5B .. }.. cptr[
000080: 49 44 45 4E 54 5D 3D 69 64 3B 0D 0A 20 20 63 70 IDENT]=id;.. cp
000090: 74 72 5B 54 59 50 45 5D 3D 74 79 70 3B 0D 0A 20 tr[TYPE]=typ;..
0000A0: 20 63 70 74 72 5B 43 4C 41 53 53 5D 3D 63 6C 61 cptr[CLASS]=cla
0000B0: 73 73 3B 0D 0A 20 20 70 75 74 69 6E 74 28 76 61 ss;.. putint(va
0000C0: 6C 75 65 2C 20 63 70 74 72 2B 4F 46 46 53 45 54 lue, cptr+OFFSET
0000D0: 2C 20 4F 46 46 53 49 5A 45 29 3B 0D 0A 20 20 63 , OFFSIZE);.. c
0000E0: 70 74 72 33 20 3D 20 63 70 74 72 32 20 3D 20 63 ptr3 = cptr2 = c
0000F0: 70 74 72 20 2B 20 4E 41 4D 45 3B 0D 0A 20 20 77 ptr + NAME;.. w
000100: 68 69 6C 65 28 61 6E 28 2A 73 6E 61 6D 65 29 29 hile(an(*sname))
000110: 20 2A 63 70 74 72 32 2B 2B 20 3D 20 2A 73 6E 61 *cptr2++ = *sna
000120: 6D 65 2B 2B 3B 0D 0A 20 20 69 66 28 6C 67 70 74 me++;.. if(lgpt
000130: 72 70 74 72 20 3D 3D 20 26 6C 6F 63 70 74 72 29 rptr == &locptr)
000140: 20 7B 0D 0A 20 20 20 20 2A 63 70 74 72 32 20 3D {.. *cptr2 =
000150: 20 63 70 74 72 32 20 2D 20 63 70 74 72 33 3B 09 cptr2 - cptr3;.
000160: 2F 2A 20 73 65 74 20 6C 65 6E 67 74 68 20 2A 2F /* set length */
000170: 0D 0A 20 20 20 20 2A 6C 67 70 74 72 70 74 72 20 .. *lgptrptr
000180: 3D 20 2B 2B 63 70 74 72 32 3B 0D 0A 20 20 20 20 = ++cptr2;..
000190: 7D 0D 0A 20 20 72 65 74 75 72 6E 20 63 70 74 72 }.. return cptr
0001A0: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 6E 65 78 74 73 79 ;.. }....nextsy
0001B0: 6D 28 65 6E 74 72 79 29 20 63 68 61 72 20 2A 65 m(entry) char *e
0001C0: 6E 74 72 79 3B 20 7B 0D 0A 20 20 65 6E 74 72 79 ntry; {.. entry
0001D0: 20 3D 20 65 6E 74 72 79 20 2B 20 4E 41 4D 45 3B = entry + NAME;
0001E0: 0D 0A 20 20 77 68 69 6C 65 28 2A 65 6E 74 72 79 .. while(*entry
0001F0: 2B 2B 20 3E 3D 20 27 20 27 29 3B 09 2F 2A 20 66 ++ >= ' ');./* f
Size : 512 (Real : 512)
000000: 6C 61 6E 6B 73 20 2D 3E 20 77 68 69 74 65 20 2A lanks -> white *
000010: 2F 0D 0A 20 20 61 76 61 69 6C 28 59 45 53 29 3B /.. avail(YES);
000020: 09 09 2F 2A 20 61 62 6F 72 74 20 6F 6E 20 73 74 ../* abort on st
000030: 61 63 6B 20 6F 76 65 72 66 6C 6F 77 20 2A 2F 0D ack overflow */.
000040: 0A 23 65 6E 64 69 66 0D 0A 20 20 72 65 74 75 72 .#endif.. retur
000050: 6E 20 28 2A 6C 70 74 72 3C 3D 20 27 20 27 20 26 n (*lptr<= ' ' &
000060: 26 20 2A 6C 70 74 72 21 3D 4E 55 4C 4C 29 3B 0D & *lptr!=NULL);.
000070: 0A 20 20 7D 0D 0A 0D 0A 67 63 68 28 29 20 7B 0D . }....gch() {.
000080: 0A 20 20 69 6E 74 20 63 3B 0D 0A 20 20 69 66 28 . int c;.. if(
000090: 63 3D 63 68 29 20 62 75 6D 70 28 31 29 3B 0D 0A c=ch) bump(1);..
0000A0: 20 20 72 65 74 75 72 6E 20 63 3B 0D 0A 20 20 7D return c;.. }
0000B0: 0D 0A 0D 0A 62 75 6D 70 28 6E 29 20 69 6E 74 20 ....bump(n) int
0000C0: 6E 3B 20 7B 0D 0A 20 20 69 66 28 6E 29 20 6C 70 n; {.. if(n) lp
0000D0: 74 72 3D 6C 70 74 72 2B 6E 3B 0D 0A 20 20 65 6C tr=lptr+n;.. el
0000E0: 73 65 20 20 6C 70 74 72 3D 6C 69 6E 65 3B 0D 0A se lptr=line;..
0000F0: 20 20 69 66 28 63 68 3D 6E 63 68 20 3D 20 2A 6C if(ch=nch = *l
000100: 70 74 72 29 20 6E 63 68 20 3D 20 2A 28 6C 70 74 ptr) nch = *(lpt
000110: 72 2B 31 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 6B 69 r+1);.. }....ki
000120: 6C 6C 28 29 20 7B 0D 0A 20 20 2A 6C 69 6E 65 3D ll() {.. *line=
000130: 30 3B 0D 0A 20 20 62 75 6D 70 28 30 29 3B 0D 0A 0;.. bump(0);..
000140: 20 20 7D 0D 0A 0D 0A 69 6E 62 79 74 65 28 29 20 }....inbyte()
000150: 20 7B 0D 0A 20 20 77 68 69 6C 65 28 63 68 3D 3D {.. while(ch==
000160: 30 29 20 7B 0D 0A 20 20 20 20 69 66 20 28 65 6F 0) {.. if (eo
000170: 66 29 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 f) return 0;..
000180: 20 20 70 72 65 70 72 6F 63 65 73 73 28 29 3B 0D preprocess();.
000190: 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E . }.. return
0001A0: 20 67 63 68 28 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A gch();.. }....
0001B0: 69 6E 6C 69 6E 65 28 29 20 7B 09 09 09 2F 2A 20 inline() {.../*
0001C0: 6E 75 6D 65 72 6F 75 73 20 72 65 76 69 73 69 6F numerous revisio
0001D0: 6E 73 20 2A 2F 0D 0A 20 20 69 6E 74 20 6B 2C 75 ns */.. int k,u
0001E0: 6E 69 74 3B 0D 0A 20 20 70 6F 6C 6C 28 31 29 3B nit;.. poll(1);
0001F0: 09 09 09 2F 2A 20 61 6C 6C 6F 77 20 6F 70 65 72 .../* allow oper
Size : 512 (Real : 512)
000000: 20 77 68 69 6C 65 28 28 63 68 21 3D 33 39 29 7C while((ch!=39)|
000010: 28 28 2A 28 6C 70 74 72 2D 31 29 3D 3D 39 32 29 ((*(lptr-1)==92)
000020: 26 28 2A 28 6C 70 74 72 2D 32 29 21 3D 39 32 29 &(*(lptr-2)!=92)
000030: 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 69 66 )) {.. if
000040: 28 63 68 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 20 (ch==0) {..
000050: 20 20 20 20 20 65 72 72 6F 72 28 22 6E 6F 20 61 error("no a
000060: 70 6F 73 74 72 6F 70 68 65 22 29 3B 0D 0A 20 20 postrophe");..
000070: 20 20 20 20 20 20 20 20 62 72 65 61 6B 3B 0D 0A break;..
000080: 20 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 }..
000090: 20 20 20 20 20 6B 65 65 70 63 68 28 67 63 68 28 keepch(gch(
0000A0: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A ));.. }..
0000B0: 20 20 20 20 20 20 67 63 68 28 29 3B 0D 0A 20 20 gch();..
0000C0: 20 20 20 20 6B 65 65 70 63 68 28 33 39 29 3B 0D keepch(39);.
0000D0: 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 65 6C . }.. el
0000E0: 73 65 20 69 66 28 28 63 68 3D 3D 27 2F 27 29 26 se if((ch=='/')&
0000F0: 28 6E 63 68 3D 3D 27 2A 27 29 29 20 7B 0D 0A 20 (nch=='*')) {..
000100: 20 20 20 20 20 62 75 6D 70 28 32 29 3B 0D 0A 20 bump(2);..
000110: 20 20 20 20 20 77 68 69 6C 65 28 28 28 63 68 3D while(((ch=
000120: 3D 27 2A 27 29 26 28 6E 63 68 3D 3D 27 2F 27 29 ='*')&(nch=='/')
000130: 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 20 20 20 )==0) {..
000140: 20 69 66 28 63 68 29 20 62 75 6D 70 28 31 29 3B if(ch) bump(1);
000150: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 7B .. else {
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 69 66 6C 69 .. ifli
000170: 6E 65 28 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ne();..
000180: 20 69 66 28 65 6F 66 29 20 62 72 65 61 6B 3B 0D if(eof) break;.
000190: 0A 20 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 . }..
0001A0: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 62 }.. b
0001B0: 75 6D 70 28 32 29 3B 0D 0A 20 20 20 20 20 20 7D ump(2);.. }
0001C0: 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 61 6E .. else if(an
0001D0: 28 63 68 29 29 20 7B 0D 0A 20 20 20 20 20 20 6B (ch)) {.. k
0001E0: 3D 30 3B 0D 0A 20 20 20 20 20 20 77 68 69 6C 65 =0;.. while
0001F0: 28 28 61 6E 28 63 68 29 29 20 26 20 28 6B 3C 4E ((an(ch)) & (k<N
Size : 512 (Real : 512)
000000: 61 74 6F 72 20 69 6E 74 65 72 72 75 70 74 69 6F ator interruptio
000010: 6E 20 2A 2F 0D 0A 20 20 69 66 20 28 69 6E 70 75 n */.. if (inpu
000020: 74 3D 3D 45 4F 46 29 20 6F 70 65 6E 66 69 6C 65 t==EOF) openfile
000030: 28 29 3B 0D 0A 20 20 69 66 28 65 6F 66 29 20 72 ();.. if(eof) r
000040: 65 74 75 72 6E 3B 0D 0A 20 20 69 66 28 28 75 6E eturn;.. if((un
000050: 69 74 3D 69 6E 70 75 74 32 29 3D 3D 45 4F 46 29 it=input2)==EOF)
000060: 20 75 6E 69 74 3D 69 6E 70 75 74 3B 0D 0A 20 20 unit=input;..
000070: 69 66 28 66 67 65 74 73 28 6C 69 6E 65 2C 20 4C if(fgets(line, L
000080: 49 4E 45 4D 41 58 2C 20 75 6E 69 74 29 3D 3D 4E INEMAX, unit)==N
000090: 55 4C 4C 29 20 7B 0D 0A 20 20 20 20 66 63 6C 6F ULL) {.. fclo
0000A0: 73 65 28 75 6E 69 74 29 3B 0D 0A 20 20 20 20 69 se(unit);.. i
0000B0: 66 28 69 6E 70 75 74 32 21 3D 45 4F 46 29 20 69 f(input2!=EOF) i
0000C0: 6E 70 75 74 32 3D 45 4F 46 3B 0D 0A 20 20 20 20 nput2=EOF;..
0000D0: 65 6C 73 65 20 69 6E 70 75 74 3D 45 4F 46 3B 0D else input=EOF;.
0000E0: 0A 20 20 20 20 2A 6C 69 6E 65 3D 4E 55 4C 4C 3B . *line=NULL;
0000F0: 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 20 .. }.. else
000100: 69 66 28 6C 69 73 74 66 70 29 20 7B 0D 0A 20 20 if(listfp) {..
000110: 20 20 69 66 28 6C 69 73 74 66 70 3D 3D 6F 75 74 if(listfp==out
000120: 70 75 74 29 20 63 6F 75 74 28 27 3B 27 2C 20 6F put) cout(';', o
000130: 75 74 70 75 74 29 3B 0D 0A 20 20 20 20 73 6F 75 utput);.. sou
000140: 74 28 6C 69 6E 65 2C 20 6C 69 73 74 66 70 29 3B t(line, listfp);
000150: 0D 0A 20 20 20 20 7D 0D 0A 20 20 62 75 6D 70 28 .. }.. bump(
000160: 30 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 0);.. }....>>>
000170: 43 43 32 32 2E 43 20 36 38 36 36 0D 0A 69 66 6C CC22.C 6866..ifl
000180: 69 6E 65 28 29 20 7B 0D 0A 20 20 77 68 69 6C 65 ine() {.. while
000190: 28 31 29 20 7B 0D 0A 20 20 20 20 69 6E 6C 69 6E (1) {.. inlin
0001A0: 65 28 29 3B 0D 0A 20 20 20 20 69 66 28 65 6F 66 e();.. if(eof
0001B0: 29 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 69 ) return;.. i
0001C0: 66 28 6D 61 74 63 68 28 22 23 69 66 64 65 66 22 f(match("#ifdef"
0001D0: 29 29 20 7B 0D 0A 20 20 20 20 20 20 2B 2B 69 66 )) {.. ++if
0001E0: 6C 65 76 65 6C 3B 0D 0A 20 20 20 20 20 20 69 66 level;.. if
0001F0: 28 73 6B 69 70 6C 65 76 65 6C 29 20 63 6F 6E 74 (skiplevel) cont
Size : 512 (Real : 512)
000000: 41 4D 45 4D 41 58 29 29 20 7B 0D 0A 20 20 20 20 AMEMAX)) {..
000010: 20 20 20 20 6D 73 6E 61 6D 65 5B 6B 2B 2B 5D 3D msname[k++]=
000020: 63 68 3B 0D 0A 20 20 20 20 20 20 20 20 67 63 68 ch;.. gch
000030: 28 29 3B 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A ();.. }..
000040: 20 20 20 20 20 20 6D 73 6E 61 6D 65 5B 6B 5D 3D msname[k]=
000050: 30 3B 0D 0A 20 20 20 20 20 20 69 66 28 73 65 61 0;.. if(sea
000060: 72 63 68 28 6D 73 6E 61 6D 65 2C 20 6D 61 63 6E rch(msname, macn
000070: 2C 20 4E 41 4D 45 53 49 5A 45 2B 32 2C 20 4D 41 , NAMESIZE+2, MA
000080: 43 4E 45 4E 44 2C 20 4D 41 43 4E 42 52 2C 20 30 CNEND, MACNBR, 0
000090: 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 6B 3D )) {.. k=
0000A0: 67 65 74 69 6E 74 28 63 70 74 72 2B 4E 41 4D 45 getint(cptr+NAME
0000B0: 53 49 5A 45 2C 20 32 29 3B 0D 0A 20 20 20 20 20 SIZE, 2);..
0000C0: 20 20 20 77 68 69 6C 65 28 63 3D 6D 61 63 71 5B while(c=macq[
0000D0: 6B 2B 2B 5D 29 20 6B 65 65 70 63 68 28 63 29 3B k++]) keepch(c);
0000E0: 0D 0A 20 20 20 20 20 20 20 20 77 68 69 6C 65 28 .. while(
0000F0: 61 6E 28 63 68 29 29 20 67 63 68 28 29 3B 0D 0A an(ch)) gch();..
000100: 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 }..
000110: 20 65 6C 73 65 20 7B 0D 0A 20 20 20 20 20 20 20 else {..
000120: 20 6B 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 77 k=0;.. w
000130: 68 69 6C 65 28 63 3D 6D 73 6E 61 6D 65 5B 6B 2B hile(c=msname[k+
000140: 2B 5D 29 20 6B 65 65 70 63 68 28 63 29 3B 0D 0A +]) keepch(c);..
000150: 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 }..
000160: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 6B 65 65 }.. else kee
000170: 70 63 68 28 67 63 68 28 29 29 3B 0D 0A 20 20 20 pch(gch());..
000180: 20 7D 0D 0A 20 20 69 66 28 70 70 74 72 3E 3D 4C }.. if(pptr>=L
000190: 49 4E 45 4D 41 58 29 20 65 72 72 6F 72 28 22 6C INEMAX) error("l
0001A0: 69 6E 65 20 74 6F 6F 20 6C 6F 6E 67 22 29 3B 0D ine too long");.
0001B0: 0A 20 20 6B 65 65 70 63 68 28 30 29 3B 0D 0A 20 . keepch(0);..
0001C0: 20 6C 69 6E 65 3D 70 6C 69 6E 65 3B 0D 0A 20 20 line=pline;..
0001D0: 62 75 6D 70 28 30 29 3B 0D 0A 20 20 7D 0D 0A 0D bump(0);.. }...
0001E0: 0A 6E 6F 69 66 65 72 72 28 29 20 7B 0D 0A 20 20 .noiferr() {..
0001F0: 65 72 72 6F 72 28 22 6E 6F 20 6D 61 74 63 68 69 error("no matchi
Size : 512 (Real : 512)
000000: 69 6E 75 65 3B 0D 0A 20 20 20 20 20 20 73 79 6D inue;.. sym
000010: 6E 61 6D 65 28 6D 73 6E 61 6D 65 2C 20 4E 4F 29 name(msname, NO)
000020: 3B 0D 0A 20 20 20 20 20 20 69 66 28 73 65 61 72 ;.. if(sear
000030: 63 68 28 6D 73 6E 61 6D 65 2C 20 6D 61 63 6E 2C ch(msname, macn,
000040: 20 4E 41 4D 45 53 49 5A 45 2B 32 2C 20 4D 41 43 NAMESIZE+2, MAC
000050: 4E 45 4E 44 2C 20 4D 41 43 4E 42 52 2C 20 30 29 NEND, MACNBR, 0)
000060: 3D 3D 30 29 0D 0A 20 20 20 20 20 20 20 20 73 6B ==0).. sk
000070: 69 70 6C 65 76 65 6C 3D 69 66 6C 65 76 65 6C 3B iplevel=iflevel;
000080: 0D 0A 20 20 20 20 20 20 63 6F 6E 74 69 6E 75 65 .. continue
000090: 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 ;.. }..
0000A0: 69 66 28 6D 61 74 63 68 28 22 23 69 66 6E 64 65 if(match("#ifnde
0000B0: 66 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 2B 2B f")) {.. ++
0000C0: 69 66 6C 65 76 65 6C 3B 0D 0A 20 20 20 20 20 20 iflevel;..
0000D0: 69 66 28 73 6B 69 70 6C 65 76 65 6C 29 20 63 6F if(skiplevel) co
0000E0: 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 20 20 20 73 ntinue;.. s
0000F0: 79 6D 6E 61 6D 65 28 6D 73 6E 61 6D 65 2C 20 4E ymname(msname, N
000100: 4F 29 3B 0D 0A 20 20 20 20 20 20 69 66 28 73 65 O);.. if(se
000110: 61 72 63 68 28 6D 73 6E 61 6D 65 2C 20 6D 61 63 arch(msname, mac
000120: 6E 2C 20 4E 41 4D 45 53 49 5A 45 2B 32 2C 20 4D n, NAMESIZE+2, M
000130: 41 43 4E 45 4E 44 2C 20 4D 41 43 4E 42 52 2C 20 ACNEND, MACNBR,
000140: 30 29 29 0D 0A 20 20 20 20 20 20 20 20 73 6B 69 0)).. ski
000150: 70 6C 65 76 65 6C 3D 69 66 6C 65 76 65 6C 3B 0D plevel=iflevel;.
000160: 0A 20 20 20 20 20 20 63 6F 6E 74 69 6E 75 65 3B . continue;
000170: 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 69 .. }.. i
000180: 66 28 6D 61 74 63 68 28 22 23 65 6C 73 65 22 29 f(match("#else")
000190: 29 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 69 66 ) {.. if(if
0001A0: 6C 65 76 65 6C 29 20 7B 0D 0A 20 20 20 20 20 20 level) {..
0001B0: 20 20 69 66 28 73 6B 69 70 6C 65 76 65 6C 3D 3D if(skiplevel==
0001C0: 69 66 6C 65 76 65 6C 29 20 73 6B 69 70 6C 65 76 iflevel) skiplev
0001D0: 65 6C 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 65 el=0;.. e
0001E0: 6C 73 65 20 69 66 28 73 6B 69 70 6C 65 76 65 6C lse if(skiplevel
0001F0: 3D 3D 30 29 20 20 73 6B 69 70 6C 65 76 65 6C 3D ==0) skiplevel=
Size : 512 (Real : 512)
000000: 6E 67 20 23 69 66 2E 2E 2E 22 29 3B 0D 0A 20 20 ng #if...");..
000010: 65 72 72 66 6C 61 67 3D 30 3B 0D 0A 20 20 7D 0D errflag=0;.. }.
000020: 0A 0D 0A 61 64 64 6D 61 63 28 29 20 7B 0D 0A 20 ...addmac() {..
000030: 20 69 6E 74 20 6B 3B 0D 0A 20 20 69 66 28 73 79 int k;.. if(sy
000040: 6D 6E 61 6D 65 28 6D 73 6E 61 6D 65 2C 20 4E 4F mname(msname, NO
000050: 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 69 6C 6C )==0) {.. ill
000060: 6E 61 6D 65 28 29 3B 0D 0A 20 20 20 20 6B 69 6C name();.. kil
000070: 6C 28 29 3B 0D 0A 20 20 20 20 72 65 74 75 72 6E l();.. return
000080: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 6B 3D 30 3B ;.. }.. k=0;
000090: 0D 0A 20 20 69 66 28 73 65 61 72 63 68 28 6D 73 .. if(search(ms
0000A0: 6E 61 6D 65 2C 20 6D 61 63 6E 2C 20 4E 41 4D 45 name, macn, NAME
0000B0: 53 49 5A 45 2B 32 2C 20 4D 41 43 4E 45 4E 44 2C SIZE+2, MACNEND,
0000C0: 20 4D 41 43 4E 42 52 2C 20 30 29 3D 3D 30 29 20 MACNBR, 0)==0)
0000D0: 7B 0D 0A 20 20 20 20 69 66 28 63 70 74 72 32 3D {.. if(cptr2=
0000E0: 63 70 74 72 29 20 77 68 69 6C 65 28 2A 63 70 74 cptr) while(*cpt
0000F0: 72 32 2B 2B 20 3D 20 6D 73 6E 61 6D 65 5B 6B 2B r2++ = msname[k+
000100: 2B 5D 29 3B 0D 0A 20 20 20 20 65 6C 73 65 20 7B +]);.. else {
000110: 0D 0A 20 20 20 20 20 20 65 72 72 6F 72 28 22 6D .. error("m
000120: 61 63 72 6F 20 6E 61 6D 65 20 74 61 62 6C 65 20 acro name table
000130: 66 75 6C 6C 22 29 3B 0D 0A 20 20 20 20 20 20 72 full");.. r
000140: 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 7D 0D eturn;.. }.
000150: 0A 20 20 20 20 7D 0D 0A 20 20 70 75 74 69 6E 74 . }.. putint
000160: 28 6D 61 63 70 74 72 2C 20 63 70 74 72 2B 4E 41 (macptr, cptr+NA
000170: 4D 45 53 49 5A 45 2C 20 32 29 3B 0D 0A 20 20 77 MESIZE, 2);.. w
000180: 68 69 6C 65 28 77 68 69 74 65 28 29 29 20 67 63 hile(white()) gc
000190: 68 28 29 3B 0D 0A 20 20 77 68 69 6C 65 28 70 75 h();.. while(pu
0001A0: 74 6D 61 63 28 67 63 68 28 29 29 29 3B 0D 0A 20 tmac(gch()));..
0001B0: 20 69 66 28 6D 61 63 70 74 72 3E 3D 4D 41 43 4D if(macptr>=MACM
0001C0: 41 58 29 20 7B 0D 0A 20 20 20 20 65 72 72 6F 72 AX) {.. error
0001D0: 28 22 6D 61 63 72 6F 20 73 74 72 69 6E 67 20 71 ("macro string q
0001E0: 75 65 75 65 20 66 75 6C 6C 22 29 3B 20 61 62 6F ueue full"); abo
0001F0: 72 74 28 45 52 52 43 4F 44 45 29 3B 0D 0A 20 20 rt(ERRCODE);..
Size : 512 (Real : 512)
000000: 69 66 6C 65 76 65 6C 3B 0D 0A 20 20 20 20 20 20 iflevel;..
000010: 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 }.. else
000020: 6E 6F 69 66 65 72 72 28 29 3B 0D 0A 20 20 20 20 noiferr();..
000030: 20 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 continue;..
000040: 20 20 20 7D 0D 0A 20 20 20 20 69 66 28 6D 61 74 }.. if(mat
000050: 63 68 28 22 23 65 6E 64 69 66 22 29 29 20 7B 0D ch("#endif")) {.
000060: 0A 20 20 20 20 20 20 69 66 28 69 66 6C 65 76 65 . if(ifleve
000070: 6C 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 69 66 l) {.. if
000080: 28 73 6B 69 70 6C 65 76 65 6C 3D 3D 69 66 6C 65 (skiplevel==ifle
000090: 76 65 6C 29 20 73 6B 69 70 6C 65 76 65 6C 3D 30 vel) skiplevel=0
0000A0: 3B 0D 0A 20 20 20 20 20 20 20 20 2D 2D 69 66 6C ;.. --ifl
0000B0: 65 76 65 6C 3B 0D 0A 20 20 20 20 20 20 20 20 7D evel;.. }
0000C0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 6E 6F 69 .. else noi
0000D0: 66 65 72 72 28 29 3B 0D 0A 20 20 20 20 20 20 63 ferr();.. c
0000E0: 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 20 20 20 ontinue;..
0000F0: 7D 0D 0A 20 20 20 20 69 66 28 73 6B 69 70 6C 65 }.. if(skiple
000100: 76 65 6C 29 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A vel) continue;..
000110: 20 20 20 20 69 66 28 63 68 3D 3D 30 29 20 63 6F if(ch==0) co
000120: 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 20 62 72 65 ntinue;.. bre
000130: 61 6B 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D ak;.. }.. }.
000140: 0A 0D 0A 6B 65 65 70 63 68 28 63 29 20 20 63 68 ...keepch(c) ch
000150: 61 72 20 63 3B 20 7B 0D 0A 20 20 69 66 28 70 70 ar c; {.. if(pp
000160: 74 72 3C 4C 49 4E 45 4D 41 58 29 20 70 6C 69 6E tr<LINEMAX) plin
000170: 65 5B 2B 2B 70 70 74 72 5D 3D 63 3B 0D 0A 20 20 e[++pptr]=c;..
000180: 7D 0D 0A 0D 0A 70 72 65 70 72 6F 63 65 73 73 28 }....preprocess(
000190: 29 20 7B 0D 0A 20 20 69 6E 74 20 6B 3B 0D 0A 20 ) {.. int k;..
0001A0: 20 63 68 61 72 20 63 3B 0D 0A 20 20 69 66 28 63 char c;.. if(c
0001B0: 63 6F 64 65 29 20 7B 0D 0A 20 20 20 20 6C 69 6E code) {.. lin
0001C0: 65 3D 6D 6C 69 6E 65 3B 0D 0A 20 20 20 20 69 66 e=mline;.. if
0001D0: 6C 69 6E 65 28 29 3B 0D 0A 20 20 20 20 69 66 28 line();.. if(
0001E0: 65 6F 66 29 20 72 65 74 75 72 6E 3B 0D 0A 20 20 eof) return;..
0001F0: 20 20 7D 0D 0A 20 20 65 6C 73 65 20 7B 0D 0A 20 }.. else {..
Size : 512 (Real : 512)
000000: 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 70 75 74 6D }.. }....putm
000010: 61 63 28 63 29 20 20 63 68 61 72 20 63 3B 20 7B ac(c) char c; {
000020: 0D 0A 20 20 6D 61 63 71 5B 6D 61 63 70 74 72 5D .. macq[macptr]
000030: 3D 63 3B 0D 0A 20 20 69 66 28 6D 61 63 70 74 72 =c;.. if(macptr
000040: 3C 4D 41 43 4D 41 58 29 20 2B 2B 6D 61 63 70 74 <MACMAX) ++macpt
000050: 72 3B 0D 0A 20 20 72 65 74 75 72 6E 20 63 3B 0D r;.. return c;.
000060: 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 73 . }..../*..** s
000070: 65 61 72 63 68 20 66 6F 72 20 73 79 6D 62 6F 6C earch for symbol
000080: 20 6D 61 74 63 68 0D 0A 2A 2A 20 6F 6E 20 72 65 match..** on re
000090: 74 75 72 6E 20 63 70 74 72 20 70 6F 69 6E 74 73 turn cptr points
0000A0: 20 74 6F 20 73 6C 6F 74 20 66 6F 75 6E 64 20 6F to slot found o
0000B0: 72 20 65 6D 70 74 79 20 73 6C 6F 74 0D 0A 2A 2F r empty slot..*/
0000C0: 0D 0A 73 65 61 72 63 68 28 73 6E 61 6D 65 2C 20 ..search(sname,
0000D0: 62 75 66 2C 20 6C 65 6E 2C 20 65 6E 64 2C 20 6D buf, len, end, m
0000E0: 61 78 2C 20 6F 66 66 29 0D 0A 20 20 63 68 61 72 ax, off).. char
0000F0: 20 2A 73 6E 61 6D 65 2C 20 2A 62 75 66 2C 20 2A *sname, *buf, *
000100: 65 6E 64 3B 20 20 69 6E 74 20 6C 65 6E 2C 20 6D end; int len, m
000110: 61 78 2C 20 6F 66 66 3B 20 7B 0D 0A 20 20 63 70 ax, off; {.. cp
000120: 74 72 3D 63 70 74 72 32 3D 62 75 66 2B 28 28 68 tr=cptr2=buf+((h
000130: 61 73 68 28 73 6E 61 6D 65 29 25 28 6D 61 78 2D ash(sname)%(max-
000140: 31 29 29 2A 6C 65 6E 29 3B 0D 0A 20 20 77 68 69 1))*len);.. whi
000150: 6C 65 28 2A 63 70 74 72 20 21 3D 20 30 29 20 7B le(*cptr != 0) {
000160: 0D 0A 20 20 20 20 69 66 28 61 73 74 72 65 71 28 .. if(astreq(
000170: 73 6E 61 6D 65 2C 20 63 70 74 72 2B 6F 66 66 2C sname, cptr+off,
000180: 20 4E 41 4D 45 4D 41 58 29 29 20 72 65 74 75 72 NAMEMAX)) retur
000190: 6E 20 31 3B 0D 0A 20 20 20 20 69 66 28 28 63 70 n 1;.. if((cp
0001A0: 74 72 3D 63 70 74 72 2B 6C 65 6E 29 20 3E 3D 20 tr=cptr+len) >=
0001B0: 65 6E 64 29 20 63 70 74 72 3D 62 75 66 3B 0D 0A end) cptr=buf;..
0001C0: 20 20 20 20 69 66 28 63 70 74 72 20 3D 3D 20 63 if(cptr == c
0001D0: 70 74 72 32 29 20 72 65 74 75 72 6E 20 28 63 70 ptr2) return (cp
0001E0: 74 72 3D 30 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 tr=0);.. }..
0001F0: 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 7D 0D return 0;.. }.
Size : 512 (Real : 512)
000000: 20 20 20 6C 69 6E 65 3D 70 6C 69 6E 65 3B 0D 0A line=pline;..
000010: 20 20 20 20 69 6E 6C 69 6E 65 28 29 3B 0D 0A 20 inline();..
000020: 20 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 return;..
000030: 7D 0D 0A 20 20 70 70 74 72 20 3D 20 2D 31 3B 0D }.. pptr = -1;.
000040: 0A 20 20 77 68 69 6C 65 28 63 68 20 21 3D 20 4E . while(ch != N
000050: 45 57 4C 49 4E 45 20 26 26 20 63 68 29 20 7B 0D EWLINE && ch) {.
000060: 0A 20 20 20 20 69 66 28 77 68 69 74 65 28 29 29 . if(white())
000070: 20 7B 0D 0A 20 20 20 20 20 20 6B 65 65 70 63 68 {.. keepch
000080: 28 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 77 68 (' ');.. wh
000090: 69 6C 65 28 77 68 69 74 65 28 29 29 20 67 63 68 ile(white()) gch
0000A0: 28 29 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 ();.. }..
0000B0: 20 20 65 6C 73 65 20 69 66 28 63 68 3D 3D 27 22 else if(ch=='"
0000C0: 27 29 20 7B 0D 0A 20 20 20 20 20 20 6B 65 65 70 ') {.. keep
0000D0: 63 68 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 67 ch(ch);.. g
0000E0: 63 68 28 29 3B 0D 0A 20 20 20 20 20 20 77 68 69 ch();.. whi
0000F0: 6C 65 28 28 63 68 21 3D 27 22 27 29 7C 28 28 2A le((ch!='"')|((*
000100: 28 6C 70 74 72 2D 31 29 3D 3D 39 32 29 26 28 2A (lptr-1)==92)&(*
000110: 28 6C 70 74 72 2D 32 29 21 3D 39 32 29 29 29 20 (lptr-2)!=92)))
000120: 7B 0D 0A 20 20 20 20 20 20 20 20 69 66 28 63 68 {.. if(ch
000130: 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 ==0) {..
000140: 20 20 65 72 72 6F 72 28 22 6E 6F 20 71 75 6F 74 error("no quot
000150: 65 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 e");..
000160: 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 20 20 break;..
000170: 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 6B 65 65 }.. kee
000180: 70 63 68 28 67 63 68 28 29 29 3B 0D 0A 20 20 20 pch(gch());..
000190: 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 67 63 }.. gc
0001A0: 68 28 29 3B 0D 0A 20 20 20 20 20 20 6B 65 65 70 h();.. keep
0001B0: 63 68 28 27 22 27 29 3B 0D 0A 20 20 20 20 20 20 ch('"');..
0001C0: 7D 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 63 }.. else if(c
0001D0: 68 3D 3D 33 39 29 20 7B 0D 0A 20 20 20 20 20 20 h==39) {..
0001E0: 6B 65 65 70 63 68 28 33 39 29 3B 0D 0A 20 20 20 keepch(39);..
0001F0: 20 20 20 67 63 68 28 29 3B 0D 0A 20 20 20 20 20 gch();..
Size : 512 (Real : 512)
000000: 0A 0D 0A 68 61 73 68 28 73 6E 61 6D 65 29 20 63 ...hash(sname) c
000010: 68 61 72 20 2A 73 6E 61 6D 65 3B 20 7B 0D 0A 20 har *sname; {..
000020: 20 69 6E 74 20 69 2C 20 63 3B 0D 0A 20 20 69 3D int i, c;.. i=
000030: 30 3B 0D 0A 20 20 77 68 69 6C 65 28 63 20 3D 20 0;.. while(c =
000040: 2A 73 6E 61 6D 65 2B 2B 29 20 69 3D 28 69 3C 3C *sname++) i=(i<<
000050: 31 29 2B 63 3B 0D 0A 20 20 72 65 74 75 72 6E 20 1)+c;.. return
000060: 69 3B 0D 0A 20 20 7D 0D 0A 0D 0A 73 65 74 73 74 i;.. }....setst
000070: 61 67 65 28 62 65 66 6F 72 65 2C 20 73 74 61 72 age(before, star
000080: 74 29 20 69 6E 74 20 2A 62 65 66 6F 72 65 2C 20 t) int *before,
000090: 2A 73 74 61 72 74 3B 20 7B 0D 0A 20 20 69 66 28 *start; {.. if(
0000A0: 28 2A 62 65 66 6F 72 65 3D 73 74 61 67 65 6E 65 (*before=stagene
0000B0: 78 74 29 3D 3D 30 29 20 73 74 61 67 65 6E 65 78 xt)==0) stagenex
0000C0: 74 3D 73 74 61 67 65 3B 0D 0A 20 20 2A 73 74 61 t=stage;.. *sta
0000D0: 72 74 3D 73 74 61 67 65 6E 65 78 74 3B 0D 0A 20 rt=stagenext;..
0000E0: 20 7D 0D 0A 0D 0A 63 6C 65 61 72 73 74 61 67 65 }....clearstage
0000F0: 28 62 65 66 6F 72 65 2C 20 73 74 61 72 74 29 20 (before, start)
000100: 63 68 61 72 20 2A 62 65 66 6F 72 65 2C 20 2A 73 char *before, *s
000110: 74 61 72 74 3B 20 7B 0D 0A 20 20 2A 73 74 61 67 tart; {.. *stag
000120: 65 6E 65 78 74 3D 30 3B 0D 0A 20 20 69 66 28 73 enext=0;.. if(s
000130: 74 61 67 65 6E 65 78 74 3D 62 65 66 6F 72 65 29 tagenext=before)
000140: 20 72 65 74 75 72 6E 3B 0D 0A 20 20 69 66 28 73 return;.. if(s
000150: 74 61 72 74 29 20 7B 0D 0A 23 69 66 64 65 66 20 tart) {..#ifdef
000160: 4F 50 54 49 4D 49 5A 45 0D 0A 20 20 20 20 70 65 OPTIMIZE.. pe
000170: 65 70 68 6F 6C 65 28 73 74 61 72 74 29 3B 0D 0A ephole(start);..
000180: 23 65 6C 73 65 0D 0A 20 20 20 20 73 6F 75 74 28 #else.. sout(
000190: 73 74 61 72 74 2C 20 6F 75 74 70 75 74 29 3B 0D start, output);.
0001A0: 0A 23 65 6E 64 69 66 0D 0A 20 20 20 20 7D 0D 0A .#endif.. }..
0001B0: 20 20 7D 0D 0A 0D 0A 6F 75 74 64 65 63 28 6E 75 }....outdec(nu
0001C0: 6D 62 65 72 29 20 20 69 6E 74 20 6E 75 6D 62 65 mber) int numbe
0001D0: 72 3B 20 7B 0D 0A 20 20 69 6E 74 20 6B 2C 7A 73 r; {.. int k,zs
0001E0: 3B 0D 0A 20 20 63 68 61 72 20 63 2C 20 2A 71 2C ;.. char c, *q,
0001F0: 20 2A 72 3B 0D 0A 20 20 7A 73 20 3D 20 30 3B 0D *r;.. zs = 0;.
Size : 512 (Real : 512)
000000: 7D 0D 0A 20 20 69 66 20 28 61 6E 28 73 74 72 31 }.. if (an(str1
000010: 5B 6B 5D 29 29 72 65 74 75 72 6E 20 30 3B 0D 0A [k]))return 0;..
000020: 20 20 69 66 20 28 61 6E 28 73 74 72 32 5B 6B 5D if (an(str2[k]
000030: 29 29 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 72 ))return 0;.. r
000040: 65 74 75 72 6E 20 6B 3B 0D 0A 20 7D 0D 0A 0D 0A eturn k;.. }....
000050: 6D 61 74 63 68 28 6C 69 74 29 20 20 63 68 61 72 match(lit) char
000060: 20 2A 6C 69 74 3B 20 7B 0D 0A 20 20 69 6E 74 20 *lit; {.. int
000070: 6B 3B 0D 0A 20 20 62 6C 61 6E 6B 73 28 29 3B 0D k;.. blanks();.
000080: 0A 20 20 69 66 20 28 6B 3D 73 74 72 65 71 28 6C . if (k=streq(l
000090: 70 74 72 2C 6C 69 74 29 29 20 7B 0D 0A 20 20 20 ptr,lit)) {..
0000A0: 20 62 75 6D 70 28 6B 29 3B 0D 0A 20 20 20 20 72 bump(k);.. r
0000B0: 65 74 75 72 6E 20 31 3B 0D 0A 20 20 20 20 7D 0D eturn 1;.. }.
0000C0: 0A 20 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 . return 0;..
0000D0: 7D 0D 0A 0D 0A 61 6D 61 74 63 68 28 6C 69 74 2C }....amatch(lit,
0000E0: 6C 65 6E 29 20 20 63 68 61 72 20 2A 6C 69 74 3B len) char *lit;
0000F0: 69 6E 74 20 6C 65 6E 3B 20 7B 0D 0A 20 20 69 6E int len; {.. in
000100: 74 20 6B 3B 0D 0A 20 20 62 6C 61 6E 6B 73 28 29 t k;.. blanks()
000110: 3B 0D 0A 20 20 69 66 20 28 6B 3D 61 73 74 72 65 ;.. if (k=astre
000120: 71 28 6C 70 74 72 2C 6C 69 74 2C 6C 65 6E 29 29 q(lptr,lit,len))
000130: 20 7B 0D 0A 20 20 20 20 62 75 6D 70 28 6B 29 3B {.. bump(k);
000140: 0D 0A 20 20 20 20 77 68 69 6C 65 28 61 6E 28 63 .. while(an(c
000150: 68 29 29 20 69 6E 62 79 74 65 28 29 3B 0D 0A 20 h)) inbyte();..
000160: 20 20 20 72 65 74 75 72 6E 20 31 3B 0D 0A 20 20 return 1;..
000170: 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 30 3B }.. return 0;
000180: 0D 0A 20 7D 0D 0A 0D 0A 6E 65 78 74 6F 70 28 6C .. }....nextop(l
000190: 69 73 74 29 20 63 68 61 72 20 2A 6C 69 73 74 3B ist) char *list;
0001A0: 20 7B 0D 0A 20 20 63 68 61 72 20 6F 70 5B 34 5D {.. char op[4]
0001B0: 3B 0D 0A 20 20 6F 70 69 6E 64 65 78 3D 30 3B 0D ;.. opindex=0;.
0001C0: 0A 20 20 62 6C 61 6E 6B 73 28 29 3B 0D 0A 20 20 . blanks();..
0001D0: 77 68 69 6C 65 28 31 29 20 7B 0D 0A 20 20 20 20 while(1) {..
0001E0: 6F 70 73 69 7A 65 3D 30 3B 0D 0A 20 20 20 20 77 opsize=0;.. w
0001F0: 68 69 6C 65 28 2A 6C 69 73 74 20 3E 20 27 20 27 hile(*list > ' '
Size : 512 (Real : 512)
000000: 0A 20 20 6B 3D 31 30 30 30 30 3B 0D 0A 20 20 69 . k=10000;.. i
000010: 66 20 28 6E 75 6D 62 65 72 3C 30 29 20 7B 0D 0A f (number<0) {..
000020: 20 20 20 20 6E 75 6D 62 65 72 3D 28 2D 6E 75 6D number=(-num
000030: 62 65 72 29 3B 0D 0A 20 20 20 20 6F 75 74 62 79 ber);.. outby
000040: 74 65 28 27 2D 27 29 3B 0D 0A 20 20 20 20 7D 0D te('-');.. }.
000050: 0A 20 20 77 68 69 6C 65 20 28 6B 3E 3D 31 29 20 . while (k>=1)
000060: 7B 0D 0A 20 20 20 20 71 3D 30 3B 20 72 3D 6E 75 {.. q=0; r=nu
000070: 6D 62 65 72 3B 0D 0A 20 20 20 20 77 68 69 6C 65 mber;.. while
000080: 28 72 20 3E 3D 20 6B 29 20 7B 2B 2B 71 3B 20 72 (r >= k) {++q; r
000090: 20 2D 3D 20 6B 3B 7D 0D 0A 20 20 20 20 63 20 3D -= k;}.. c =
0000A0: 20 71 20 2B 20 27 30 27 3B 0D 0A 20 20 20 20 69 q + '0';.. i
0000B0: 66 20 28 28 63 21 3D 27 30 27 29 7C 28 6B 3D 3D f ((c!='0')|(k==
0000C0: 31 29 7C 28 7A 73 29 29 20 7B 0D 0A 20 20 20 20 1)|(zs)) {..
0000D0: 20 20 7A 73 3D 31 3B 0D 0A 20 20 20 20 20 20 6F zs=1;.. o
0000E0: 75 74 62 79 74 65 28 63 29 3B 0D 0A 20 20 20 20 utbyte(c);..
0000F0: 20 20 7D 0D 0A 20 20 20 20 6E 75 6D 62 65 72 3D }.. number=
000100: 72 3B 0D 0A 20 20 20 20 6B 3D 6B 2F 31 30 3B 0D r;.. k=k/10;.
000110: 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 6F . }.. }....o
000120: 6C 28 70 74 72 29 20 20 63 68 61 72 20 70 74 72 l(ptr) char ptr
000130: 5B 5D 3B 20 20 7B 0D 0A 20 20 6F 74 28 70 74 72 []; {.. ot(ptr
000140: 29 3B 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D );.. nl();.. }
000150: 0D 0A 0D 0A 6F 74 28 70 74 72 29 20 63 68 61 72 ....ot(ptr) char
000160: 20 70 74 72 5B 5D 3B 20 7B 0D 0A 20 20 6F 75 74 ptr[]; {.. out
000170: 73 74 72 28 70 74 72 29 3B 0D 0A 20 20 7D 0D 0A str(ptr);.. }..
000180: 0D 0A 6F 75 74 73 74 72 28 70 74 72 29 20 63 68 ..outstr(ptr) ch
000190: 61 72 20 70 74 72 5B 5D 3B 20 7B 0D 0A 20 20 70 ar ptr[]; {.. p
0001A0: 6F 6C 6C 28 31 29 3B 20 2F 2A 20 61 6C 6C 6F 77 oll(1); /* allow
0001B0: 20 70 72 6F 67 72 61 6D 20 69 6E 74 65 72 72 75 program interru
0001C0: 70 74 69 6F 6E 20 2A 2F 0D 0A 20 20 2F 2A 20 6D ption */.. /* m
0001D0: 75 73 74 20 77 6F 72 6B 20 77 69 74 68 20 73 79 ust work with sy
0001E0: 6D 62 6F 6C 20 74 61 62 6C 65 20 6E 61 6D 65 73 mbol table names
0001F0: 20 74 65 72 6D 69 6E 61 74 65 64 20 62 79 20 6C terminated by l
Size : 512 (Real : 512)
000000: 29 20 6F 70 5B 6F 70 73 69 7A 65 2B 2B 5D 20 3D ) op[opsize++] =
000010: 20 2A 6C 69 73 74 2B 2B 3B 0D 0A 20 20 20 20 6F *list++;.. o
000020: 70 5B 6F 70 73 69 7A 65 5D 3D 30 3B 0D 0A 20 20 p[opsize]=0;..
000030: 20 20 69 66 28 6F 70 73 69 7A 65 3D 73 74 72 65 if(opsize=stre
000040: 71 28 6C 70 74 72 2C 20 6F 70 29 29 0D 0A 20 20 q(lptr, op))..
000050: 20 20 20 20 69 66 28 28 2A 28 6C 70 74 72 2B 6F if((*(lptr+o
000060: 70 73 69 7A 65 29 20 21 3D 20 27 3D 27 29 26 0D psize) != '=')&.
000070: 0A 20 20 20 20 20 20 20 20 20 28 2A 28 6C 70 74 . (*(lpt
000080: 72 2B 6F 70 73 69 7A 65 29 20 21 3D 20 2A 28 6C r+opsize) != *(l
000090: 70 74 72 2B 6F 70 73 69 7A 65 2D 31 29 29 29 0D ptr+opsize-1))).
0000A0: 0A 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6E . return
0000B0: 20 31 3B 0D 0A 20 20 20 20 69 66 28 2A 6C 69 73 1;.. if(*lis
0000C0: 74 29 20 7B 0D 0A 20 20 20 20 20 20 2B 2B 6C 69 t) {.. ++li
0000D0: 73 74 3B 0D 0A 20 20 20 20 20 20 2B 2B 6F 70 69 st;.. ++opi
0000E0: 6E 64 65 78 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A ndex;.. }..
0000F0: 20 20 20 20 65 6C 73 65 20 72 65 74 75 72 6E 20 else return
000100: 30 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0;.. }.. }..
000110: 0D 0A 62 6C 61 6E 6B 73 28 29 20 7B 0D 0A 20 20 ..blanks() {..
000120: 77 68 69 6C 65 28 31 29 20 7B 0D 0A 20 20 20 20 while(1) {..
000130: 77 68 69 6C 65 28 63 68 29 20 7B 0D 0A 20 20 20 while(ch) {..
000140: 20 20 20 69 66 28 77 68 69 74 65 28 29 29 20 67 if(white()) g
000150: 63 68 28 29 3B 0D 0A 20 20 20 20 20 20 65 6C 73 ch();.. els
000160: 65 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 e return;..
000170: 20 7D 0D 0A 20 20 20 20 69 66 28 6C 69 6E 65 3D }.. if(line=
000180: 3D 6D 6C 69 6E 65 29 20 72 65 74 75 72 6E 3B 0D =mline) return;.
000190: 0A 20 20 20 20 70 72 65 70 72 6F 63 65 73 73 28 . preprocess(
0001A0: 29 3B 0D 0A 20 20 20 20 69 66 28 65 6F 66 29 62 );.. if(eof)b
0001B0: 72 65 61 6B 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 reak;.. }..
0001C0: 7D 0D 0A 0D 0A 3E 3E 3E 20 43 43 33 2E 43 20 33 }....>>> CC3.C 3
0001D0: 37 33 0D 0A 2F 2A 0D 0A 2A 2A 20 53 6D 61 6C 6C 73../*..** Small
0001E0: 2D 43 20 43 6F 6D 70 69 6C 65 72 20 50 61 72 74 -C Compiler Part
0001F0: 20 33 0D 0A 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 3..*/..#include
Size : 512 (Real : 512)
000000: 65 6E 67 74 68 20 2A 2F 0D 0A 20 20 77 68 69 6C ength */.. whil
000010: 65 28 2A 70 74 72 20 3E 3D 20 27 20 27 29 20 6F e(*ptr >= ' ') o
000020: 75 74 62 79 74 65 28 2A 70 74 72 2B 2B 29 3B 0D utbyte(*ptr++);.
000030: 0A 20 20 7D 0D 0A 0D 0A 6F 75 74 62 79 74 65 28 . }....outbyte(
000040: 63 29 20 63 68 61 72 20 63 3B 20 7B 0D 0A 20 20 c) char c; {..
000050: 69 66 28 73 74 61 67 65 6E 65 78 74 29 20 7B 0D if(stagenext) {.
000060: 0A 20 20 20 20 69 66 28 73 74 61 67 65 6E 65 78 . if(stagenex
000070: 74 3D 3D 73 74 61 67 65 6C 61 73 74 29 20 7B 0D t==stagelast) {.
000080: 0A 20 20 20 20 20 20 65 72 72 6F 72 28 22 73 74 . error("st
000090: 61 67 69 6E 67 20 62 75 66 66 65 72 20 6F 76 65 aging buffer ove
0000A0: 72 66 6C 6F 77 22 29 3B 0D 0A 20 20 20 20 20 20 rflow");..
0000B0: 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 20 return 0;..
0000C0: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 2A 73 74 }.. else *st
0000D0: 61 67 65 6E 65 78 74 2B 2B 20 3D 20 63 3B 0D 0A agenext++ = c;..
0000E0: 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 20 63 6F }.. else co
0000F0: 75 74 28 63 2C 6F 75 74 70 75 74 29 3B 0D 0A 20 ut(c,output);..
000100: 20 72 65 74 75 72 6E 20 63 3B 0D 0A 20 20 7D 0D return c;.. }.
000110: 0A 0D 0A 63 6F 75 74 28 63 2C 20 66 64 29 20 63 ...cout(c, fd) c
000120: 68 61 72 20 63 3B 20 69 6E 74 20 66 64 3B 20 7B har c; int fd; {
000130: 0D 0A 20 20 69 66 28 66 70 75 74 63 28 63 2C 20 .. if(fputc(c,
000140: 66 64 29 3D 3D 45 4F 46 29 20 78 6F 75 74 28 29 fd)==EOF) xout()
000150: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 73 6F 75 74 28 73 ;.. }....sout(s
000160: 74 72 69 6E 67 2C 20 66 64 29 20 63 68 61 72 20 tring, fd) char
000170: 2A 73 74 72 69 6E 67 3B 20 69 6E 74 20 66 64 3B *string; int fd;
000180: 20 7B 0D 0A 20 20 69 66 28 66 70 75 74 73 28 73 {.. if(fputs(s
000190: 74 72 69 6E 67 2C 20 66 64 29 3D 3D 45 4F 46 29 tring, fd)==EOF)
0001A0: 20 78 6F 75 74 28 29 3B 0D 0A 20 20 7D 0D 0A 0D xout();.. }...
0001B0: 0A 6C 6F 75 74 28 6C 69 6E 65 2C 20 66 64 29 20 .lout(line, fd)
0001C0: 63 68 61 72 20 2A 6C 69 6E 65 3B 20 69 6E 74 20 char *line; int
0001D0: 66 64 3B 20 7B 0D 0A 20 20 73 6F 75 74 28 6C 69 fd; {.. sout(li
0001E0: 6E 65 2C 20 66 64 29 3B 0D 0A 20 20 63 6F 75 74 ne, fd);.. cout
0001F0: 28 4E 45 57 4C 49 4E 45 2C 20 66 64 29 3B 0D 0A (NEWLINE, fd);..
Size : 512 (Real : 512)
000000: 20 3C 73 74 64 69 6F 2E 68 3E 0D 0A 23 69 6E 63 <stdio.h>..#inc
000010: 6C 75 64 65 20 22 63 63 2E 64 65 66 22 0D 0A 0D lude "cc.def"...
000020: 0A 65 78 74 65 72 6E 20 63 68 61 72 0D 0A 23 69 .extern char..#i
000030: 66 64 65 66 20 44 59 4E 41 4D 49 43 0D 0A 20 2A fdef DYNAMIC.. *
000040: 73 74 61 67 65 2C 0D 0A 20 2A 6C 69 74 71 2C 0D stage,.. *litq,.
000050: 0A 23 65 6C 73 65 0D 0A 20 20 73 74 61 67 65 5B .#else.. stage[
000060: 53 54 41 47 45 53 49 5A 45 5D 2C 0D 0A 20 20 6C STAGESIZE],.. l
000070: 69 74 71 5B 4C 49 54 41 42 53 5A 5D 2C 0D 0A 23 itq[LITABSZ],..#
000080: 65 6E 64 69 66 0D 0A 20 2A 67 6C 62 70 74 72 2C endif.. *glbptr,
000090: 20 2A 6C 70 74 72 2C 20 20 73 73 6E 61 6D 65 5B *lptr, ssname[
0000A0: 4E 41 4D 45 53 49 5A 45 5D 2C 20 20 71 75 6F 74 NAMESIZE], quot
0000B0: 65 5B 32 5D 2C 20 2A 73 74 61 67 65 6E 65 78 74 e[2], *stagenext
0000C0: 3B 0D 0A 65 78 74 65 72 6E 20 69 6E 74 0D 0A 20 ;..extern int..
0000D0: 20 63 68 2C 20 20 63 73 70 2C 20 20 6C 69 74 6C ch, csp, litl
0000E0: 61 62 2C 20 20 6C 69 74 70 74 72 2C 20 20 6E 63 ab, litptr, nc
0000F0: 68 2C 20 20 6F 70 5B 31 36 5D 2C 20 20 6F 70 32 h, op[16], op2
000100: 5B 31 36 5D 2C 0D 0A 20 20 6F 70 65 72 2C 20 20 [16],.. oper,
000110: 6F 70 69 6E 64 65 78 2C 20 20 6F 70 73 69 7A 65 opindex, opsize
000120: 3B 0D 0A 0D 0A 23 69 6E 63 6C 75 64 65 20 22 63 ;....#include "c
000130: 63 33 31 2E 63 22 0D 0A 23 69 6E 63 6C 75 64 65 c31.c"..#include
000140: 20 22 63 63 33 32 2E 63 22 0D 0A 23 69 6E 63 6C "cc32.c"..#incl
000150: 75 64 65 20 22 63 63 33 33 2E 63 22 0D 0A 0D 0A ude "cc33.c"....
000160: 3E 3E 3E 20 43 43 33 31 2E 43 20 36 36 38 30 0D >>> CC31.C 6680.
000170: 0A 2F 2A 0D 0A 2A 2A 20 6C 76 61 6C 5B 30 5D 20 ./*..** lval[0]
000180: 2D 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 20 61 - symbol table a
000190: 64 64 72 65 73 73 2C 20 65 6C 73 65 20 30 20 66 ddress, else 0 f
0001A0: 6F 72 20 63 6F 6E 73 74 61 6E 74 0D 0A 2A 2A 20 or constant..**
0001B0: 6C 76 61 6C 5B 31 5D 20 2D 20 74 79 70 65 20 6F lval[1] - type o
0001C0: 66 20 69 6E 64 69 72 65 63 74 20 6F 62 6A 20 74 f indirect obj t
0001D0: 6F 20 66 65 74 63 68 2C 20 65 6C 73 65 20 30 20 o fetch, else 0
0001E0: 66 6F 72 20 73 74 61 74 69 63 0D 0A 2A 2A 20 6C for static..** l
0001F0: 76 61 6C 5B 32 5D 20 2D 20 74 79 70 65 20 6F 66 val[2] - type of
Size : 512 (Real : 512)
000000: 20 20 7D 0D 0A 0D 0A 78 6F 75 74 28 29 20 7B 0D }....xout() {.
000010: 0A 20 20 66 70 75 74 73 28 22 6F 75 74 70 75 74 . fputs("output
000020: 20 65 72 72 6F 72 22 2C 20 73 74 64 65 72 72 29 error", stderr)
000030: 3B 0D 0A 20 20 61 62 6F 72 74 28 45 52 52 43 4F ;.. abort(ERRCO
000040: 44 45 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 6E 6C 28 DE);.. }....nl(
000050: 29 20 7B 0D 0A 20 20 6F 75 74 62 79 74 65 28 4E ) {.. outbyte(N
000060: 45 57 4C 49 4E 45 29 3B 0D 0A 20 20 7D 0D 0A 0D EWLINE);.. }...
000070: 0A 63 6F 6C 28 29 20 7B 0D 0A 23 69 66 64 65 66 .col() {..#ifdef
000080: 20 43 4F 4C 0D 0A 20 20 6F 75 74 62 79 74 65 28 COL.. outbyte(
000090: 27 3A 27 29 3B 0D 0A 23 65 6E 64 69 66 0D 0A 20 ':');..#endif..
0000A0: 20 7D 0D 0A 0D 0A 65 72 72 6F 72 28 6D 73 67 29 }....error(msg)
0000B0: 20 63 68 61 72 20 6D 73 67 5B 5D 3B 20 7B 0D 0A char msg[]; {..
0000C0: 20 20 69 66 28 65 72 72 66 6C 61 67 29 20 72 65 if(errflag) re
0000D0: 74 75 72 6E 3B 20 65 6C 73 65 20 65 72 72 66 6C turn; else errfl
0000E0: 61 67 3D 31 3B 0D 0A 20 20 6C 6F 75 74 28 6C 69 ag=1;.. lout(li
0000F0: 6E 65 2C 20 73 74 64 65 72 72 29 3B 0D 0A 20 20 ne, stderr);..
000100: 65 72 72 6F 75 74 28 6D 73 67 2C 20 73 74 64 65 errout(msg, stde
000110: 72 72 29 3B 0D 0A 20 20 69 66 28 61 6C 61 72 6D rr);.. if(alarm
000120: 29 20 66 70 75 74 63 28 37 2C 20 73 74 64 65 72 ) fputc(7, stder
000130: 72 29 3B 0D 0A 20 20 69 66 28 70 61 75 73 65 29 r);.. if(pause)
000140: 20 77 68 69 6C 65 28 66 67 65 74 63 28 73 74 64 while(fgetc(std
000150: 65 72 72 29 21 3D 4E 45 57 4C 49 4E 45 29 3B 0D err)!=NEWLINE);.
000160: 0A 20 20 69 66 28 6C 69 73 74 66 70 3E 30 29 20 . if(listfp>0)
000170: 65 72 72 6F 75 74 28 6D 73 67 2C 20 6C 69 73 74 errout(msg, list
000180: 66 70 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 65 72 72 fp);.. }....err
000190: 6F 75 74 28 6D 73 67 2C 20 66 70 29 20 63 68 61 out(msg, fp) cha
0001A0: 72 20 6D 73 67 5B 5D 3B 20 69 6E 74 20 66 70 3B r msg[]; int fp;
0001B0: 20 7B 0D 0A 20 20 69 6E 74 20 6B 3B 20 6B 3D 6C {.. int k; k=l
0001C0: 69 6E 65 2B 32 3B 0D 0A 20 20 77 68 69 6C 65 28 ine+2;.. while(
0001D0: 6B 2B 2B 20 3C 3D 20 6C 70 74 72 29 20 63 6F 75 k++ <= lptr) cou
0001E0: 74 28 27 20 27 2C 20 66 70 29 3B 0D 0A 20 20 6C t(' ', fp);.. l
0001F0: 6F 75 74 28 22 2F 5C 5C 22 2C 20 66 70 29 3B 0D out("/\\", fp);.
Size : 512 (Real : 512)
000000: 20 70 6F 69 6E 74 65 72 20 6F 72 20 61 72 72 61 pointer or arra
000010: 79 2C 20 65 6C 73 65 20 30 20 66 6F 72 20 61 6C y, else 0 for al
000020: 6C 20 6F 74 68 65 72 0D 0A 2A 2A 20 6C 76 61 6C l other..** lval
000030: 5B 33 5D 20 2D 20 74 72 75 65 20 69 66 20 63 6F [3] - true if co
000040: 6E 73 74 61 6E 74 20 65 78 70 72 65 73 73 69 6F nstant expressio
000050: 6E 0D 0A 2A 2A 20 6C 76 61 6C 5B 34 5D 20 2D 20 n..** lval[4] -
000060: 76 61 6C 75 65 20 6F 66 20 63 6F 6E 73 74 61 6E value of constan
000070: 74 20 65 78 70 72 65 73 73 69 6F 6E 20 28 2B 20 t expression (+
000080: 61 75 78 69 6C 69 61 72 79 20 75 73 65 73 29 0D auxiliary uses).
000090: 0A 2A 2A 20 6C 76 61 6C 5B 35 5D 20 2D 20 74 72 .** lval[5] - tr
0000A0: 75 65 20 69 66 20 73 65 63 6F 6E 64 61 72 79 20 ue if secondary
0000B0: 72 65 67 69 73 74 65 72 20 61 6C 74 65 72 65 64 register altered
0000C0: 0D 0A 2A 2A 20 6C 76 61 6C 5B 36 5D 20 2D 20 66 ..** lval[6] - f
0000D0: 75 6E 63 74 69 6F 6E 20 61 64 64 72 65 73 73 20 unction address
0000E0: 6F 66 20 68 69 67 68 65 73 74 2F 6C 61 73 74 20 of highest/last
0000F0: 62 69 6E 61 72 79 20 6F 70 65 72 61 74 6F 72 0D binary operator.
000100: 0A 2A 2A 20 6C 76 61 6C 5B 37 5D 20 2D 20 73 74 .** lval[7] - st
000110: 61 67 65 20 61 64 64 72 65 73 73 20 6F 66 20 22 age address of "
000120: 6F 70 65 72 20 30 22 20 63 6F 64 65 2C 20 65 6C oper 0" code, el
000130: 73 65 20 30 0D 0A 2A 2F 0D 0A 0D 0A 2F 2A 0D 0A se 0..*/..../*..
000140: 2A 2A 20 73 6B 69 6D 20 6F 76 65 72 20 74 65 72 ** skim over ter
000150: 6D 73 20 61 64 6A 6F 69 6E 69 6E 67 20 7C 7C 20 ms adjoining ||
000160: 61 6E 64 20 26 26 20 6F 70 65 72 61 74 6F 72 73 and && operators
000170: 0D 0A 2A 2F 0D 0A 73 6B 69 6D 28 6F 70 73 74 72 ..*/..skim(opstr
000180: 2C 20 74 65 73 74 66 75 6E 63 2C 20 64 72 6F 70 , testfunc, drop
000190: 76 61 6C 2C 20 65 6E 64 76 61 6C 2C 20 68 69 65 val, endval, hie
0001A0: 72 2C 20 6C 76 61 6C 29 0D 0A 20 20 63 68 61 72 r, lval).. char
0001B0: 20 2A 6F 70 73 74 72 3B 0D 0A 20 20 69 6E 74 20 *opstr;.. int
0001C0: 28 2A 74 65 73 74 66 75 6E 63 29 28 29 2C 20 64 (*testfunc)(), d
0001D0: 72 6F 70 76 61 6C 2C 20 65 6E 64 76 61 6C 2C 20 ropval, endval,
0001E0: 28 2A 68 69 65 72 29 28 29 2C 20 6C 76 61 6C 5B (*hier)(), lval[
0001F0: 5D 3B 20 7B 0D 0A 20 20 69 6E 74 20 6B 2C 20 68 ]; {.. int k, h
Size : 512 (Real : 512)
000000: 0A 20 20 73 6F 75 74 28 22 2A 2A 2A 2A 20 22 2C . sout("**** ",
000010: 20 66 70 29 3B 20 6C 6F 75 74 28 6D 73 67 2C 20 fp); lout(msg,
000020: 66 70 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 73 74 72 fp);.. }....str
000030: 65 71 28 73 74 72 31 2C 73 74 72 32 29 20 20 63 eq(str1,str2) c
000040: 68 61 72 20 73 74 72 31 5B 5D 2C 73 74 72 32 5B har str1[],str2[
000050: 5D 3B 20 7B 0D 0A 20 20 69 6E 74 20 6B 3B 0D 0A ]; {.. int k;..
000060: 20 20 6B 3D 30 3B 0D 0A 20 20 77 68 69 6C 65 20 k=0;.. while
000070: 28 73 74 72 32 5B 6B 5D 29 20 7B 0D 0A 20 20 20 (str2[k]) {..
000080: 20 69 66 20 28 28 73 74 72 31 5B 6B 5D 29 21 3D if ((str1[k])!=
000090: 28 73 74 72 32 5B 6B 5D 29 29 20 72 65 74 75 72 (str2[k])) retur
0000A0: 6E 20 30 3B 0D 0A 20 20 20 20 2B 2B 6B 3B 0D 0A n 0;.. ++k;..
0000B0: 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 }.. return
0000C0: 6B 3B 0D 0A 20 7D 0D 0A 0D 0A 61 73 74 72 65 71 k;.. }....astreq
0000D0: 28 73 74 72 31 2C 73 74 72 32 2C 6C 65 6E 29 20 (str1,str2,len)
0000E0: 20 63 68 61 72 20 73 74 72 31 5B 5D 2C 73 74 72 char str1[],str
0000F0: 32 5B 5D 3B 69 6E 74 20 6C 65 6E 3B 20 7B 0D 0A 2[];int len; {..
000100: 20 20 69 6E 74 20 6B 3B 0D 0A 20 20 6B 3D 30 3B int k;.. k=0;
000110: 0D 0A 20 20 77 68 69 6C 65 20 28 6B 3C 6C 65 6E .. while (k<len
000120: 29 20 7B 0D 0A 20 20 20 20 69 66 20 28 28 73 74 ) {.. if ((st
000130: 72 31 5B 6B 5D 29 21 3D 28 73 74 72 32 5B 6B 5D r1[k])!=(str2[k]
000140: 29 29 62 72 65 61 6B 3B 0D 0A 20 20 20 20 2F 2A ))break;.. /*
000150: 0D 0A 20 20 20 20 2A 2A 20 6D 75 73 74 20 64 65 .. ** must de
000160: 74 65 63 74 20 65 6E 64 20 6F 66 20 73 79 6D 62 tect end of symb
000170: 6F 6C 20 74 61 62 6C 65 20 6E 61 6D 65 73 20 74 ol table names t
000180: 65 72 6D 69 6E 61 74 65 64 20 62 79 0D 0A 20 20 erminated by..
000190: 20 20 2A 2A 20 73 79 6D 62 6F 6C 20 6C 65 6E 67 ** symbol leng
0001A0: 74 68 20 69 6E 20 62 69 6E 61 72 79 0D 0A 20 20 th in binary..
0001B0: 20 20 2A 2F 0D 0A 20 20 20 20 69 66 28 73 74 72 */.. if(str
0001C0: 31 5B 6B 5D 20 3C 20 27 20 27 29 20 62 72 65 61 1[k] < ' ') brea
0001D0: 6B 3B 0D 0A 20 20 20 20 69 66 28 73 74 72 32 5B k;.. if(str2[
0001E0: 6B 5D 20 3C 20 27 20 27 29 20 62 72 65 61 6B 3B k] < ' ') break;
0001F0: 0D 0A 20 20 20 20 2B 2B 6B 3B 0D 0A 20 20 20 20 .. ++k;..
Size : 512 (Real : 512)
000000: 69 74 73 2C 20 64 72 6F 70 6C 61 62 2C 20 65 6E its, droplab, en
000010: 64 6C 61 62 3B 0D 0A 20 20 68 69 74 73 3D 30 3B dlab;.. hits=0;
000020: 0D 0A 20 20 77 68 69 6C 65 28 31 29 20 7B 0D 0A .. while(1) {..
000030: 20 20 20 20 6B 3D 70 6C 6E 67 65 31 28 68 69 65 k=plnge1(hie
000040: 72 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 69 r, lval);.. i
000050: 66 28 6E 65 78 74 6F 70 28 6F 70 73 74 72 29 29 f(nextop(opstr))
000060: 20 7B 0D 0A 20 20 20 20 20 20 62 75 6D 70 28 6F {.. bump(o
000070: 70 73 69 7A 65 29 3B 0D 0A 20 20 20 20 20 20 69 psize);.. i
000080: 66 28 68 69 74 73 3D 3D 30 29 20 7B 0D 0A 20 20 f(hits==0) {..
000090: 20 20 20 20 20 20 68 69 74 73 3D 31 3B 0D 0A 20 hits=1;..
0000A0: 20 20 20 20 20 20 20 64 72 6F 70 6C 61 62 3D 67 droplab=g
0000B0: 65 74 6C 61 62 65 6C 28 29 3B 0D 0A 20 20 20 20 etlabel();..
0000C0: 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 64 72 6F }.. dro
0000D0: 70 6F 75 74 28 6B 2C 20 74 65 73 74 66 75 6E 63 pout(k, testfunc
0000E0: 2C 20 64 72 6F 70 6C 61 62 2C 20 6C 76 61 6C 29 , droplab, lval)
0000F0: 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 ;.. }..
000100: 65 6C 73 65 20 69 66 28 68 69 74 73 29 20 7B 0D else if(hits) {.
000110: 0A 20 20 20 20 20 20 64 72 6F 70 6F 75 74 28 6B . dropout(k
000120: 2C 20 74 65 73 74 66 75 6E 63 2C 20 64 72 6F 70 , testfunc, drop
000130: 6C 61 62 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 20 lab, lval);..
000140: 20 20 20 63 6F 6E 73 74 28 65 6E 64 76 61 6C 29 const(endval)
000150: 3B 0D 0A 20 20 20 20 20 20 6A 75 6D 70 28 65 6E ;.. jump(en
000160: 64 6C 61 62 3D 67 65 74 6C 61 62 65 6C 28 29 29 dlab=getlabel())
000170: 3B 0D 0A 20 20 20 20 20 20 70 6F 73 74 6C 61 62 ;.. postlab
000180: 65 6C 28 64 72 6F 70 6C 61 62 29 3B 0D 0A 20 20 el(droplab);..
000190: 20 20 20 20 63 6F 6E 73 74 28 64 72 6F 70 76 61 const(dropva
0001A0: 6C 29 3B 0D 0A 20 20 20 20 20 20 70 6F 73 74 6C l);.. postl
0001B0: 61 62 65 6C 28 65 6E 64 6C 61 62 29 3B 0D 0A 20 abel(endlab);..
0001C0: 20 20 20 20 20 6C 76 61 6C 5B 31 5D 3D 6C 76 61 lval[1]=lva
0001D0: 6C 5B 32 5D 3D 6C 76 61 6C 5B 33 5D 3D 6C 76 61 l[2]=lval[3]=lva
0001E0: 6C 5B 34 5D 3D 6C 76 61 6C 5B 37 5D 3D 30 3B 0D l[4]=lval[7]=0;.
0001F0: 0A 20 20 20 20 20 20 72 65 74 75 72 6E 20 30 3B . return 0;
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 73 6D 61 72 74 70 6F 70 28 6C smartpop(l
000010: 76 61 6C 32 2C 20 73 74 61 72 74 29 3B 0D 0A 20 val2, start);..
000020: 20 20 20 20 20 69 66 28 64 62 6C 74 65 73 74 28 if(dbltest(
000030: 6F 70 65 72 2C 20 6C 76 61 6C 2C 6C 76 61 6C 32 oper, lval,lval2
000040: 29 29 20 64 6F 75 62 6C 65 72 65 67 28 29 3B 0D )) doublereg();.
000050: 0A 20 20 20 20 20 20 69 66 28 64 62 6C 74 65 73 . if(dbltes
000060: 74 28 6F 70 65 72 2C 20 6C 76 61 6C 32 2C 6C 76 t(oper, lval2,lv
000070: 61 6C 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 al)) {..
000080: 73 77 61 70 28 29 3B 0D 0A 20 20 20 20 20 20 20 swap();..
000090: 20 64 6F 75 62 6C 65 72 65 67 28 29 3B 0D 0A 20 doublereg();..
0000A0: 20 20 20 20 20 20 20 69 66 28 6F 70 65 72 3D 3D if(oper==
0000B0: 66 66 73 75 62 29 20 73 77 61 70 28 29 3B 0D 0A ffsub) swap();..
0000C0: 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 }..
0000D0: 20 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 66 28 }.. }.. if(
0000E0: 6F 70 65 72 29 20 7B 0D 0A 20 20 20 20 69 66 28 oper) {.. if(
0000F0: 6C 76 61 6C 5B 33 5D 3D 6C 76 61 6C 5B 33 5D 26 lval[3]=lval[3]&
000100: 6C 76 61 6C 32 5B 33 5D 29 20 7B 0D 0A 20 20 20 lval2[3]) {..
000110: 20 20 20 6C 76 61 6C 5B 34 5D 3D 63 61 6C 63 28 lval[4]=calc(
000120: 6C 76 61 6C 5B 34 5D 2C 20 6F 70 65 72 2C 20 6C lval[4], oper, l
000130: 76 61 6C 32 5B 34 5D 29 3B 0D 0A 20 20 20 20 20 val2[4]);..
000140: 20 63 6C 65 61 72 73 74 61 67 65 28 62 65 66 6F clearstage(befo
000150: 72 65 2C 20 30 29 3B 20 20 0D 0A 20 20 20 20 20 re, 0); ..
000160: 20 6C 76 61 6C 5B 35 5D 3D 30 3B 0D 0A 20 20 20 lval[5]=0;..
000170: 20 20 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 7B }.. else {
000180: 0D 0A 20 20 20 20 20 20 69 66 28 28 6C 76 61 6C .. if((lval
000190: 5B 32 5D 3D 3D 30 29 26 28 6C 76 61 6C 32 5B 32 [2]==0)&(lval2[2
0001A0: 5D 3D 3D 30 29 29 20 7B 0D 0A 20 20 20 20 20 20 ]==0)) {..
0001B0: 20 20 28 2A 6F 70 65 72 29 28 29 3B 0D 0A 20 20 (*oper)();..
0001C0: 20 20 20 20 20 20 6C 76 61 6C 5B 36 5D 3D 6F 70 lval[6]=op
0001D0: 65 72 3B 09 09 09 2F 2A 20 69 64 65 6E 74 69 66 er;.../* identif
0001E0: 79 20 74 68 65 20 6F 70 65 72 61 74 6F 72 20 2A y the operator *
0001F0: 2F 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 /.. }..
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 65 .. }.. e
000010: 6C 73 65 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 20 lse return k;..
000020: 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D }.. }..../*.
000030: 0A 2A 2A 20 74 65 73 74 20 66 6F 72 20 65 61 72 .** test for ear
000040: 6C 79 20 64 72 6F 70 6F 75 74 20 66 72 6F 6D 20 ly dropout from
000050: 7C 7C 20 6F 72 20 26 26 20 65 76 61 6C 75 61 74 || or && evaluat
000060: 69 6F 6E 73 0D 0A 2A 2F 0D 0A 64 72 6F 70 6F 75 ions..*/..dropou
000070: 74 28 6B 2C 20 74 65 73 74 66 75 6E 63 2C 20 65 t(k, testfunc, e
000080: 78 69 74 31 2C 20 6C 76 61 6C 29 0D 0A 20 20 69 xit1, lval).. i
000090: 6E 74 20 6B 2C 20 28 2A 74 65 73 74 66 75 6E 63 nt k, (*testfunc
0000A0: 29 28 29 2C 20 65 78 69 74 31 2C 20 6C 76 61 6C )(), exit1, lval
0000B0: 5B 5D 3B 20 7B 0D 0A 20 20 69 66 28 6B 29 20 72 []; {.. if(k) r
0000C0: 76 61 6C 75 65 28 6C 76 61 6C 29 3B 0D 0A 20 20 value(lval);..
0000D0: 65 6C 73 65 20 69 66 28 6C 76 61 6C 5B 33 5D 29 else if(lval[3])
0000E0: 20 63 6F 6E 73 74 28 6C 76 61 6C 5B 34 5D 29 3B const(lval[4]);
0000F0: 0D 0A 20 20 28 2A 74 65 73 74 66 75 6E 63 29 28 .. (*testfunc)(
000100: 65 78 69 74 31 29 3B 09 09 2F 2A 20 6A 75 6D 70 exit1);../* jump
000110: 73 20 6F 6E 20 66 61 6C 73 65 20 2A 2F 0D 0A 20 s on false */..
000120: 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 70 6C 75 }..../*..** plu
000130: 6E 67 65 20 74 6F 20 61 20 6C 6F 77 65 72 20 6C nge to a lower l
000140: 65 76 65 6C 0D 0A 2A 2F 0D 0A 70 6C 6E 67 65 28 evel..*/..plnge(
000150: 6F 70 73 74 72 2C 20 6F 70 6F 66 66 2C 20 68 69 opstr, opoff, hi
000160: 65 72 2C 20 6C 76 61 6C 29 0D 0A 20 20 63 68 61 er, lval).. cha
000170: 72 20 2A 6F 70 73 74 72 3B 0D 0A 20 20 69 6E 74 r *opstr;.. int
000180: 20 6F 70 6F 66 66 2C 20 28 2A 68 69 65 72 29 28 opoff, (*hier)(
000190: 29 2C 20 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 ), lval[]; {..
0001A0: 69 6E 74 20 6B 2C 20 6C 76 61 6C 32 5B 38 5D 3B int k, lval2[8];
0001B0: 0D 0A 20 20 6B 3D 70 6C 6E 67 65 31 28 68 69 65 .. k=plnge1(hie
0001C0: 72 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 69 66 28 r, lval);.. if(
0001D0: 6E 65 78 74 6F 70 28 6F 70 73 74 72 29 3D 3D 30 nextop(opstr)==0
0001E0: 29 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 20 20 69 ) return k;.. i
0001F0: 66 28 6B 29 20 72 76 61 6C 75 65 28 6C 76 61 6C f(k) rvalue(lval
Size : 512 (Real : 512)
000000: 20 20 20 20 65 6C 73 65 20 7B 0D 0A 20 20 20 20 else {..
000010: 20 20 20 20 28 2A 6F 70 65 72 32 29 28 29 3B 0D (*oper2)();.
000020: 0A 20 20 20 20 20 20 20 20 6C 76 61 6C 5B 36 5D . lval[6]
000030: 3D 6F 70 65 72 32 3B 09 09 09 2F 2A 20 69 64 65 =oper2;.../* ide
000040: 6E 74 69 66 79 20 74 68 65 20 6F 70 65 72 61 74 ntify the operat
000050: 6F 72 20 2A 2F 0D 0A 20 20 20 20 20 20 20 20 7D or */.. }
000060: 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 69 .. }.. i
000070: 66 28 6F 70 65 72 3D 3D 66 66 73 75 62 29 20 7B f(oper==ffsub) {
000080: 0D 0A 20 20 20 20 20 20 69 66 28 28 6C 76 61 6C .. if((lval
000090: 5B 32 5D 3D 3D 43 49 4E 54 29 26 28 6C 76 61 6C [2]==CINT)&(lval
0000A0: 32 5B 32 5D 3D 3D 43 49 4E 54 29 29 20 7B 0D 0A 2[2]==CINT)) {..
0000B0: 20 20 20 20 20 20 20 20 73 77 61 70 28 29 3B 0D swap();.
0000C0: 0A 20 20 20 20 20 20 20 20 63 6F 6E 73 74 28 31 . const(1
0000D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 66 66 61 73 );.. ffas
0000E0: 72 28 29 3B 09 09 09 2F 2A 2A 20 64 69 76 20 62 r();.../** div b
0000F0: 79 20 32 20 2A 2A 2F 0D 0A 20 20 20 20 20 20 20 y 2 **/..
000100: 20 7D 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 }.. }..
000110: 20 69 66 28 28 6F 70 65 72 3D 3D 66 66 73 75 62 if((oper==ffsub
000120: 29 7C 28 6F 70 65 72 3D 3D 66 66 61 64 64 29 29 )|(oper==ffadd))
000130: 20 72 65 73 75 6C 74 28 6C 76 61 6C 2C 20 6C 76 result(lval, lv
000140: 61 6C 32 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 al2);.. }..
000150: 7D 0D 0A 0D 0A 63 61 6C 63 28 6C 65 66 74 2C 20 }....calc(left,
000160: 6F 70 65 72 2C 20 72 69 67 68 74 29 20 69 6E 74 oper, right) int
000170: 20 6C 65 66 74 2C 20 28 2A 6F 70 65 72 29 28 29 left, (*oper)()
000180: 2C 20 72 69 67 68 74 3B 20 7B 0D 0A 20 20 20 20 , right; {..
000190: 20 20 20 69 66 28 6F 70 65 72 20 3D 3D 20 20 66 if(oper == f
0001A0: 66 6F 72 29 20 72 65 74 75 72 6E 20 28 6C 65 66 for) return (lef
0001B0: 74 20 20 7C 20 20 72 69 67 68 74 29 3B 0D 0A 20 t | right);..
0001C0: 20 65 6C 73 65 20 69 66 28 6F 70 65 72 20 3D 3D else if(oper ==
0001D0: 20 66 66 78 6F 72 29 20 72 65 74 75 72 6E 20 28 ffxor) return (
0001E0: 6C 65 66 74 20 20 5E 20 20 72 69 67 68 74 29 3B left ^ right);
0001F0: 0D 0A 20 20 65 6C 73 65 20 69 66 28 6F 70 65 72 .. else if(oper
Size : 512 (Real : 512)
000000: 29 3B 0D 0A 20 20 77 68 69 6C 65 28 31 29 20 7B );.. while(1) {
000010: 0D 0A 20 20 20 20 69 66 28 6E 65 78 74 6F 70 28 .. if(nextop(
000020: 6F 70 73 74 72 29 29 20 7B 0D 0A 20 20 20 20 20 opstr)) {..
000030: 20 62 75 6D 70 28 6F 70 73 69 7A 65 29 3B 0D 0A bump(opsize);..
000040: 20 20 20 20 20 20 6F 70 69 6E 64 65 78 3D 6F 70 opindex=op
000050: 69 6E 64 65 78 2B 6F 70 6F 66 66 3B 0D 0A 20 20 index+opoff;..
000060: 20 20 20 20 70 6C 6E 67 65 32 28 6F 70 5B 6F 70 plnge2(op[op
000070: 69 6E 64 65 78 5D 2C 20 6F 70 32 5B 6F 70 69 6E index], op2[opin
000080: 64 65 78 5D 2C 20 68 69 65 72 2C 20 6C 76 61 6C dex], hier, lval
000090: 2C 20 6C 76 61 6C 32 29 3B 0D 0A 20 20 20 20 20 , lval2);..
0000A0: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 72 65 74 }.. else ret
0000B0: 75 72 6E 20 30 3B 0D 0A 20 20 20 20 7D 0D 0A 20 urn 0;.. }..
0000C0: 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 75 6E 61 }..../*..** una
0000D0: 72 79 20 70 6C 75 6E 67 65 20 74 6F 20 6C 6F 77 ry plunge to low
0000E0: 65 72 20 6C 65 76 65 6C 0D 0A 2A 2F 0D 0A 70 6C er level..*/..pl
0000F0: 6E 67 65 31 28 68 69 65 72 2C 20 6C 76 61 6C 29 nge1(hier, lval)
000100: 20 69 6E 74 20 28 2A 68 69 65 72 29 28 29 2C 20 int (*hier)(),
000110: 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 63 68 61 lval[]; {.. cha
000120: 72 20 2A 62 65 66 6F 72 65 2C 20 2A 73 74 61 72 r *before, *star
000130: 74 3B 0D 0A 20 20 69 6E 74 20 6B 3B 0D 0A 20 20 t;.. int k;..
000140: 73 65 74 73 74 61 67 65 28 26 62 65 66 6F 72 65 setstage(&before
000150: 2C 20 26 73 74 61 72 74 29 3B 0D 0A 20 20 6B 3D , &start);.. k=
000160: 28 2A 68 69 65 72 29 28 6C 76 61 6C 29 3B 0D 0A (*hier)(lval);..
000170: 20 20 69 66 28 6C 76 61 6C 5B 33 5D 29 20 63 6C if(lval[3]) cl
000180: 65 61 72 73 74 61 67 65 28 62 65 66 6F 72 65 2C earstage(before,
000190: 30 29 3B 09 2F 2A 20 6C 6F 61 64 20 63 6F 6E 73 0);./* load cons
0001A0: 74 61 6E 74 20 6C 61 74 65 72 20 2A 2F 0D 0A 20 tant later */..
0001B0: 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 20 20 7D 0D return k;.. }.
0001C0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 62 69 6E 61 72 79 .../*..** binary
0001D0: 20 70 6C 75 6E 67 65 20 74 6F 20 6C 6F 77 65 72 plunge to lower
0001E0: 20 6C 65 76 65 6C 0D 0A 2A 2F 0D 0A 70 6C 6E 67 level..*/..plng
0001F0: 65 32 28 6F 70 65 72 2C 20 6F 70 65 72 32 2C 20 e2(oper, oper2,
Size : 512 (Real : 512)
000000: 20 3D 3D 20 66 66 61 6E 64 29 20 72 65 74 75 72 == ffand) retur
000010: 6E 20 28 6C 65 66 74 20 20 26 20 20 72 69 67 68 n (left & righ
000020: 74 29 3B 0D 0A 20 20 65 6C 73 65 20 69 66 28 6F t);.. else if(o
000030: 70 65 72 20 3D 3D 20 20 66 66 65 71 29 20 72 65 per == ffeq) re
000040: 74 75 72 6E 20 28 6C 65 66 74 20 20 3D 3D 20 72 turn (left == r
000050: 69 67 68 74 29 3B 0D 0A 20 20 65 6C 73 65 20 69 ight);.. else i
000060: 66 28 6F 70 65 72 20 3D 3D 20 20 66 66 6E 65 29 f(oper == ffne)
000070: 20 72 65 74 75 72 6E 20 28 6C 65 66 74 20 20 21 return (left !
000080: 3D 20 72 69 67 68 74 29 3B 0D 0A 20 20 65 6C 73 = right);.. els
000090: 65 20 69 66 28 6F 70 65 72 20 3D 3D 20 20 66 66 e if(oper == ff
0000A0: 6C 65 29 20 72 65 74 75 72 6E 20 28 6C 65 66 74 le) return (left
0000B0: 20 20 3C 3D 20 72 69 67 68 74 29 3B 0D 0A 20 20 <= right);..
0000C0: 65 6C 73 65 20 69 66 28 6F 70 65 72 20 3D 3D 20 else if(oper ==
0000D0: 20 66 66 67 65 29 20 72 65 74 75 72 6E 20 28 6C ffge) return (l
0000E0: 65 66 74 20 20 3E 3D 20 72 69 67 68 74 29 3B 0D eft >= right);.
0000F0: 0A 20 20 65 6C 73 65 20 69 66 28 6F 70 65 72 20 . else if(oper
000100: 3D 3D 20 20 66 66 6C 74 29 20 72 65 74 75 72 6E == fflt) return
000110: 20 28 6C 65 66 74 20 20 3C 20 20 72 69 67 68 74 (left < right
000120: 29 3B 0D 0A 20 20 65 6C 73 65 20 69 66 28 6F 70 );.. else if(op
000130: 65 72 20 3D 3D 20 20 66 66 67 74 29 20 72 65 74 er == ffgt) ret
000140: 75 72 6E 20 28 6C 65 66 74 20 20 3E 20 20 72 69 urn (left > ri
000150: 67 68 74 29 3B 0D 0A 20 20 65 6C 73 65 20 69 66 ght);.. else if
000160: 28 6F 70 65 72 20 3D 3D 20 66 66 61 73 72 29 20 (oper == ffasr)
000170: 72 65 74 75 72 6E 20 28 6C 65 66 74 20 20 3E 3E return (left >>
000180: 20 72 69 67 68 74 29 3B 0D 0A 20 20 65 6C 73 65 right);.. else
000190: 20 69 66 28 6F 70 65 72 20 3D 3D 20 66 66 61 73 if(oper == ffas
0001A0: 6C 29 20 72 65 74 75 72 6E 20 28 6C 65 66 74 20 l) return (left
0001B0: 20 3C 3C 20 72 69 67 68 74 29 3B 0D 0A 20 20 65 << right);.. e
0001C0: 6C 73 65 20 69 66 28 6F 70 65 72 20 3D 3D 20 66 lse if(oper == f
0001D0: 66 61 64 64 29 20 72 65 74 75 72 6E 20 28 6C 65 fadd) return (le
0001E0: 66 74 20 20 2B 20 20 72 69 67 68 74 29 3B 0D 0A ft + right);..
0001F0: 20 20 65 6C 73 65 20 69 66 28 6F 70 65 72 20 3D else if(oper =
Size : 512 (Real : 512)
000000: 68 69 65 72 2C 20 6C 76 61 6C 2C 20 6C 76 61 6C hier, lval, lval
000010: 32 29 0D 0A 20 20 69 6E 74 20 28 2A 6F 70 65 72 2).. int (*oper
000020: 29 28 29 2C 28 2A 6F 70 65 72 32 29 28 29 2C 28 )(),(*oper2)(),(
000030: 2A 68 69 65 72 29 28 29 2C 6C 76 61 6C 5B 5D 2C *hier)(),lval[],
000040: 6C 76 61 6C 32 5B 5D 3B 20 7B 0D 0A 20 20 63 68 lval2[]; {.. ch
000050: 61 72 20 2A 62 65 66 6F 72 65 2C 20 2A 73 74 61 ar *before, *sta
000060: 72 74 3B 0D 0A 20 20 73 65 74 73 74 61 67 65 28 rt;.. setstage(
000070: 26 62 65 66 6F 72 65 2C 20 26 73 74 61 72 74 29 &before, &start)
000080: 3B 0D 0A 20 20 6C 76 61 6C 5B 35 5D 3D 31 3B 09 ;.. lval[5]=1;.
000090: 09 2F 2A 20 66 6C 61 67 20 73 65 63 6F 6E 64 61 ./* flag seconda
0000A0: 72 79 20 72 65 67 69 73 74 65 72 20 75 73 65 64 ry register used
0000B0: 20 2A 2F 0D 0A 20 20 6C 76 61 6C 5B 37 5D 3D 30 */.. lval[7]=0
0000C0: 3B 09 09 2F 2A 20 66 6C 61 67 20 61 73 20 6E 6F ;../* flag as no
0000D0: 74 20 22 2E 2E 2E 20 6F 70 65 72 20 30 22 20 73 t "... oper 0" s
0000E0: 79 6E 74 61 78 20 2A 2F 0D 0A 20 20 69 66 28 6C yntax */.. if(l
0000F0: 76 61 6C 5B 33 5D 29 20 7B 09 09 2F 2A 20 63 6F val[3]) {../* co
000100: 6E 73 74 61 6E 74 20 6F 6E 20 6C 65 66 74 20 73 nstant on left s
000110: 69 64 65 20 6E 6F 74 20 79 65 74 20 6C 6F 61 64 ide not yet load
000120: 65 64 20 2A 2F 0D 0A 20 20 20 20 69 66 28 70 6C ed */.. if(pl
000130: 6E 67 65 31 28 68 69 65 72 2C 20 6C 76 61 6C 32 nge1(hier, lval2
000140: 29 29 20 72 76 61 6C 75 65 28 6C 76 61 6C 32 29 )) rvalue(lval2)
000150: 3B 0D 0A 20 20 20 20 69 66 28 6C 76 61 6C 5B 34 ;.. if(lval[4
000160: 5D 3D 3D 30 29 20 6C 76 61 6C 5B 37 5D 3D 73 74 ]==0) lval[7]=st
000170: 61 67 65 6E 65 78 74 3B 0D 0A 20 20 20 20 63 6F agenext;.. co
000180: 6E 73 74 32 28 6C 76 61 6C 5B 34 5D 3C 3C 64 62 nst2(lval[4]<<db
000190: 6C 74 65 73 74 28 6F 70 65 72 2C 20 6C 76 61 6C ltest(oper, lval
0001A0: 32 2C 20 6C 76 61 6C 29 29 3B 0D 0A 20 20 20 20 2, lval));..
0001B0: 7D 0D 0A 20 20 65 6C 73 65 20 7B 09 09 2F 2A 20 }.. else {../*
0001C0: 6E 6F 6E 2D 63 6F 6E 73 74 61 6E 74 20 6F 6E 20 non-constant on
0001D0: 6C 65 66 74 20 73 69 64 65 20 2A 2F 0D 0A 20 20 left side */..
0001E0: 20 20 70 75 73 68 28 29 3B 0D 0A 20 20 20 20 69 push();.. i
0001F0: 66 28 70 6C 6E 67 65 31 28 68 69 65 72 2C 20 6C f(plnge1(hier, l
Size : 512 (Real : 512)
000000: 3D 20 66 66 73 75 62 29 20 72 65 74 75 72 6E 20 = ffsub) return
000010: 28 6C 65 66 74 20 20 2D 20 20 72 69 67 68 74 29 (left - right)
000020: 3B 0D 0A 20 20 65 6C 73 65 20 69 66 28 6F 70 65 ;.. else if(ope
000030: 72 20 3D 3D 66 66 6D 75 6C 74 29 20 72 65 74 75 r ==ffmult) retu
000040: 72 6E 20 28 6C 65 66 74 20 20 2A 20 20 72 69 67 rn (left * rig
000050: 68 74 29 3B 0D 0A 20 20 65 6C 73 65 20 69 66 28 ht);.. else if(
000060: 6F 70 65 72 20 3D 3D 20 66 66 64 69 76 29 20 72 oper == ffdiv) r
000070: 65 74 75 72 6E 20 28 6C 65 66 74 20 20 2F 20 20 eturn (left /
000080: 72 69 67 68 74 29 3B 0D 0A 20 20 65 6C 73 65 20 right);.. else
000090: 69 66 28 6F 70 65 72 20 3D 3D 20 66 66 6D 6F 64 if(oper == ffmod
0000A0: 29 20 72 65 74 75 72 6E 20 28 6C 65 66 74 20 20 ) return (left
0000B0: 25 20 20 72 69 67 68 74 29 3B 0D 0A 20 20 65 6C % right);.. el
0000C0: 73 65 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 se return 0;..
0000D0: 7D 0D 0A 0D 0A 65 78 70 72 65 73 73 69 6F 6E 28 }....expression(
0000E0: 63 6F 6E 73 74 2C 20 76 61 6C 29 20 69 6E 74 20 const, val) int
0000F0: 2A 63 6F 6E 73 74 2C 20 2A 76 61 6C 3B 20 20 7B *const, *val; {
000100: 0D 0A 20 20 69 6E 74 20 6C 76 61 6C 5B 38 5D 3B .. int lval[8];
000110: 0D 0A 20 20 69 66 28 68 69 65 72 31 28 6C 76 61 .. if(hier1(lva
000120: 6C 29 29 20 72 76 61 6C 75 65 28 6C 76 61 6C 29 l)) rvalue(lval)
000130: 3B 0D 0A 20 20 69 66 28 6C 76 61 6C 5B 33 5D 29 ;.. if(lval[3])
000140: 20 7B 0D 0A 20 20 20 20 2A 63 6F 6E 73 74 3D 31 {.. *const=1
000150: 3B 0D 0A 20 20 20 20 2A 76 61 6C 3D 6C 76 61 6C ;.. *val=lval
000160: 5B 34 5D 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 [4];.. }.. e
000170: 6C 73 65 20 2A 63 6F 6E 73 74 3D 30 3B 0D 0A 20 lse *const=0;..
000180: 20 7D 0D 0A 0D 0A 68 69 65 72 31 28 6C 76 61 6C }....hier1(lval
000190: 29 20 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 20 ) int lval[];
0001A0: 7B 0D 0A 20 20 69 6E 74 20 6B 2C 6C 76 61 6C 32 {.. int k,lval2
0001B0: 5B 38 5D 2C 20 6C 76 61 6C 33 5B 32 5D 2C 20 6F [8], lval3[2], o
0001C0: 70 65 72 3B 0D 0A 20 20 6B 3D 70 6C 6E 67 65 31 per;.. k=plnge1
0001D0: 28 68 69 65 72 33 2C 20 6C 76 61 6C 29 3B 0D 0A (hier3, lval);..
0001E0: 20 20 69 66 28 6C 76 61 6C 5B 33 5D 29 20 63 6F if(lval[3]) co
0001F0: 6E 73 74 28 6C 76 61 6C 5B 34 5D 29 3B 0D 0A 20 nst(lval[4]);..
Size : 512 (Real : 512)
000000: 76 61 6C 32 29 29 20 72 76 61 6C 75 65 28 6C 76 val2)) rvalue(lv
000010: 61 6C 32 29 3B 0D 0A 20 20 20 20 69 66 28 6C 76 al2);.. if(lv
000020: 61 6C 32 5B 33 5D 29 20 7B 09 2F 2A 20 63 6F 6E al2[3]) {./* con
000030: 73 74 61 6E 74 20 6F 6E 20 72 69 67 68 74 20 73 stant on right s
000040: 69 64 65 20 2A 2F 0D 0A 20 20 20 20 20 20 69 66 ide */.. if
000050: 28 6C 76 61 6C 32 5B 34 5D 3D 3D 30 29 20 6C 76 (lval2[4]==0) lv
000060: 61 6C 5B 37 5D 3D 73 74 61 72 74 3B 0D 0A 20 20 al[7]=start;..
000070: 20 20 20 20 69 66 28 6F 70 65 72 3D 3D 66 66 61 if(oper==ffa
000080: 64 64 29 20 7B 09 2F 2A 20 6D 61 79 20 74 65 73 dd) {./* may tes
000090: 74 20 6F 74 68 65 72 20 63 6F 6D 6D 75 74 61 74 t other commutat
0000A0: 69 76 65 20 6F 70 65 72 61 74 6F 72 73 20 2A 2F ive operators */
0000B0: 0D 0A 20 20 20 20 20 20 20 20 63 73 70 3D 63 73 .. csp=cs
0000C0: 70 2B 32 3B 0D 0A 20 20 20 20 20 20 20 20 63 6C p+2;.. cl
0000D0: 65 61 72 73 74 61 67 65 28 62 65 66 6F 72 65 2C earstage(before,
0000E0: 20 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 63 6F 0);.. co
0000F0: 6E 73 74 32 28 6C 76 61 6C 32 5B 34 5D 3C 3C 64 nst2(lval2[4]<<d
000100: 62 6C 74 65 73 74 28 6F 70 65 72 2C 20 6C 76 61 bltest(oper, lva
000110: 6C 2C 20 6C 76 61 6C 32 29 29 3B 0D 0A 09 09 09 l, lval2));.....
000120: 2F 2A 20 6C 6F 61 64 20 73 65 63 6F 6E 64 61 72 /* load secondar
000130: 79 20 2A 2F 0D 0A 20 20 20 20 20 20 20 20 7D 0D y */.. }.
000140: 0A 20 20 20 20 20 20 65 6C 73 65 20 7B 0D 0A 20 . else {..
000150: 20 20 20 20 20 20 20 63 6F 6E 73 74 28 6C 76 61 const(lva
000160: 6C 32 5B 34 5D 3C 3C 64 62 6C 74 65 73 74 28 6F l2[4]<<dbltest(o
000170: 70 65 72 2C 20 6C 76 61 6C 2C 20 6C 76 61 6C 32 per, lval, lval2
000180: 29 29 3B 0D 0A 09 09 09 2F 2A 20 6C 6F 61 64 20 ));...../* load
000190: 70 72 69 6D 61 72 79 20 2A 2F 0D 0A 20 20 20 20 primary */..
0001A0: 20 20 20 20 73 6D 61 72 74 70 6F 70 28 6C 76 61 smartpop(lva
0001B0: 6C 32 2C 20 73 74 61 72 74 29 3B 0D 0A 20 20 20 l2, start);..
0001C0: 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 7D 0D }.. }.
0001D0: 0A 20 20 20 20 65 6C 73 65 20 7B 09 09 2F 2A 20 . else {../*
0001E0: 6E 6F 6E 2D 63 6F 6E 73 74 61 6E 74 73 20 6F 6E non-constants on
0001F0: 20 62 6F 74 68 20 73 69 64 65 73 20 2A 2F 0D 0A both sides */..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 69 66 28 6D 61 74 63 68 28 22 if(match("
000010: 7C 3D 22 29 29 20 20 6F 70 65 72 3D 66 66 6F 72 |=")) oper=ffor
000020: 3B 0D 0A 20 20 65 6C 73 65 20 69 66 28 6D 61 74 ;.. else if(mat
000030: 63 68 28 22 5E 3D 22 29 29 20 20 6F 70 65 72 3D ch("^=")) oper=
000040: 66 66 78 6F 72 3B 0D 0A 20 20 65 6C 73 65 20 69 ffxor;.. else i
000050: 66 28 6D 61 74 63 68 28 22 26 3D 22 29 29 20 20 f(match("&="))
000060: 6F 70 65 72 3D 66 66 61 6E 64 3B 0D 0A 20 20 65 oper=ffand;.. e
000070: 6C 73 65 20 69 66 28 6D 61 74 63 68 28 22 2B 3D lse if(match("+=
000080: 22 29 29 20 20 6F 70 65 72 3D 66 66 61 64 64 3B ")) oper=ffadd;
000090: 0D 0A 20 20 65 6C 73 65 20 69 66 28 6D 61 74 63 .. else if(matc
0000A0: 68 28 22 2D 3D 22 29 29 20 20 6F 70 65 72 3D 66 h("-=")) oper=f
0000B0: 66 73 75 62 3B 0D 0A 20 20 65 6C 73 65 20 69 66 fsub;.. else if
0000C0: 28 6D 61 74 63 68 28 22 2A 3D 22 29 29 20 20 6F (match("*=")) o
0000D0: 70 65 72 3D 66 66 6D 75 6C 74 3B 0D 0A 20 20 65 per=ffmult;.. e
0000E0: 6C 73 65 20 69 66 28 6D 61 74 63 68 28 22 2F 3D lse if(match("/=
0000F0: 22 29 29 20 20 6F 70 65 72 3D 66 66 64 69 76 3B ")) oper=ffdiv;
000100: 0D 0A 20 20 65 6C 73 65 20 69 66 28 6D 61 74 63 .. else if(matc
000110: 68 28 22 25 3D 22 29 29 20 20 6F 70 65 72 3D 66 h("%=")) oper=f
000120: 66 6D 6F 64 3B 0D 0A 20 20 65 6C 73 65 20 69 66 fmod;.. else if
000130: 28 6D 61 74 63 68 28 22 3E 3E 3D 22 29 29 20 6F (match(">>=")) o
000140: 70 65 72 3D 66 66 61 73 72 3B 0D 0A 20 20 65 6C per=ffasr;.. el
000150: 73 65 20 69 66 28 6D 61 74 63 68 28 22 3C 3C 3D se if(match("<<=
000160: 22 29 29 20 6F 70 65 72 3D 66 66 61 73 6C 3B 0D ")) oper=ffasl;.
000170: 0A 20 20 65 6C 73 65 20 69 66 28 6D 61 74 63 68 . else if(match
000180: 28 22 3D 22 29 29 20 20 20 6F 70 65 72 3D 30 3B ("=")) oper=0;
000190: 0D 0A 20 20 65 6C 73 65 20 72 65 74 75 72 6E 20 .. else return
0001A0: 6B 3B 0D 0A 20 20 69 66 28 6B 3D 3D 30 29 20 7B k;.. if(k==0) {
0001B0: 0D 0A 20 20 20 20 6E 65 65 64 6C 76 61 6C 28 29 .. needlval()
0001C0: 3B 0D 0A 20 20 20 20 72 65 74 75 72 6E 20 30 3B ;.. return 0;
0001D0: 0D 0A 20 20 20 20 7D 0D 0A 20 20 6C 76 61 6C 33 .. }.. lval3
0001E0: 5B 30 5D 20 3D 20 6C 76 61 6C 5B 30 5D 3B 0D 0A [0] = lval[0];..
0001F0: 20 20 6C 76 61 6C 33 5B 31 5D 20 3D 20 6C 76 61 lval3[1] = lva
Size : 512 (Real : 512)
000000: 76 61 6C 29 3B 0D 0A 20 20 20 20 69 66 28 70 74 val);.. if(pt
000010: 72 3D 6C 76 61 6C 5B 30 5D 29 6C 76 61 6C 5B 31 r=lval[0])lval[1
000020: 5D 3D 70 74 72 5B 54 59 50 45 5D 3B 0D 0A 20 20 ]=ptr[TYPE];..
000030: 20 20 65 6C 73 65 20 6C 76 61 6C 5B 31 5D 3D 43 else lval[1]=C
000040: 49 4E 54 3B 0D 0A 20 20 20 20 6C 76 61 6C 5B 32 INT;.. lval[2
000050: 5D 3D 30 3B 09 09 2F 2A 20 66 6C 61 67 20 61 73 ]=0;../* flag as
000060: 20 6E 6F 74 20 70 6F 69 6E 74 65 72 20 6F 72 20 not pointer or
000070: 61 72 72 61 79 20 2A 2F 0D 0A 20 20 20 20 6C 76 array */.. lv
000080: 61 6C 5B 33 5D 3D 30 3B 09 09 2F 2A 20 66 6C 61 al[3]=0;../* fla
000090: 67 20 61 73 20 6E 6F 74 20 63 6F 6E 73 74 61 6E g as not constan
0000A0: 74 20 2A 2F 0D 0A 20 20 20 20 6C 76 61 6C 5B 34 t */.. lval[4
0000B0: 5D 3D 31 3B 09 09 2F 2A 20 6F 6D 69 74 20 72 76 ]=1;../* omit rv
0000C0: 61 6C 75 65 28 29 20 6F 6E 20 66 75 6E 63 20 63 alue() on func c
0000D0: 61 6C 6C 20 2A 2F 0D 0A 20 20 20 20 6C 76 61 6C all */.. lval
0000E0: 5B 37 5D 3D 30 3B 0D 0A 20 20 20 20 72 65 74 75 [7]=0;.. retu
0000F0: 72 6E 20 31 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 rn 1;.. }..
000100: 65 6C 73 65 20 69 66 28 6D 61 74 63 68 28 22 26 else if(match("&
000110: 22 29 29 20 7B 09 09 09 2F 2A 20 75 6E 61 72 79 ")) {.../* unary
000120: 20 26 20 2A 2F 0D 0A 20 20 20 20 69 66 28 68 69 & */.. if(hi
000130: 65 72 31 33 28 6C 76 61 6C 29 3D 3D 30 29 20 7B er13(lval)==0) {
000140: 0D 0A 20 20 20 20 20 20 65 72 72 6F 72 28 22 69 .. error("i
000150: 6C 6C 65 67 61 6C 20 61 64 64 72 65 73 73 22 29 llegal address")
000160: 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 72 6E 20 ;.. return
000170: 30 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 0;.. }..
000180: 20 70 74 72 3D 6C 76 61 6C 5B 30 5D 3B 0D 0A 20 ptr=lval[0];..
000190: 20 20 20 6C 76 61 6C 5B 32 5D 3D 70 74 72 5B 54 lval[2]=ptr[T
0001A0: 59 50 45 5D 3B 0D 0A 20 20 20 20 69 66 28 6C 76 YPE];.. if(lv
0001B0: 61 6C 5B 31 5D 29 20 72 65 74 75 72 6E 20 30 3B al[1]) return 0;
0001C0: 0D 0A 09 09 09 09 09 2F 2A 20 67 6C 6F 62 61 6C ......./* global
0001D0: 20 26 20 6E 6F 6E 2D 61 72 72 61 79 20 2A 2F 0D & non-array */.
0001E0: 0A 20 20 20 20 61 64 64 72 65 73 73 28 70 74 72 . address(ptr
0001F0: 29 3B 0D 0A 20 20 20 20 6C 76 61 6C 5B 31 5D 3D );.. lval[1]=
Size : 512 (Real : 512)
000000: 6C 5B 31 5D 3B 0D 0A 20 20 69 66 28 6C 76 61 6C l[1];.. if(lval
000010: 5B 31 5D 29 20 7B 0D 0A 20 20 20 20 69 66 28 6F [1]) {.. if(o
000020: 70 65 72 29 20 7B 0D 0A 20 20 20 20 20 20 70 75 per) {.. pu
000030: 73 68 28 29 3B 0D 0A 20 20 20 20 20 20 72 76 61 sh();.. rva
000040: 6C 75 65 28 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 lue(lval);..
000050: 20 20 7D 0D 0A 20 20 20 20 70 6C 6E 67 65 32 28 }.. plnge2(
000060: 6F 70 65 72 2C 20 6F 70 65 72 2C 20 68 69 65 72 oper, oper, hier
000070: 31 2C 20 6C 76 61 6C 2C 20 6C 76 61 6C 32 29 3B 1, lval, lval2);
000080: 0D 0A 20 20 20 20 69 66 28 6F 70 65 72 29 20 70 .. if(oper) p
000090: 6F 70 28 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 op();.. }..
0000A0: 65 6C 73 65 20 7B 0D 0A 20 20 20 20 69 66 28 6F else {.. if(o
0000B0: 70 65 72 29 20 7B 0D 0A 20 20 20 20 20 20 72 76 per) {.. rv
0000C0: 61 6C 75 65 28 6C 76 61 6C 29 3B 0D 0A 20 20 20 alue(lval);..
0000D0: 20 20 20 70 6C 6E 67 65 32 28 6F 70 65 72 2C 20 plnge2(oper,
0000E0: 6F 70 65 72 2C 20 68 69 65 72 31 2C 20 6C 76 61 oper, hier1, lva
0000F0: 6C 2C 20 6C 76 61 6C 32 29 3B 0D 0A 20 20 20 20 l, lval2);..
000100: 20 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 7B 0D }.. else {.
000110: 0A 20 20 20 20 20 20 69 66 28 68 69 65 72 31 28 . if(hier1(
000120: 6C 76 61 6C 32 29 29 20 72 76 61 6C 75 65 28 6C lval2)) rvalue(l
000130: 76 61 6C 32 29 3B 0D 0A 20 20 20 20 20 20 6C 76 val2);.. lv
000140: 61 6C 5B 35 5D 3D 6C 76 61 6C 32 5B 35 5D 3B 0D al[5]=lval2[5];.
000150: 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 7D 0D . }.. }.
000160: 0A 20 20 73 74 6F 72 65 28 6C 76 61 6C 33 29 3B . store(lval3);
000170: 0D 0A 20 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 .. return 0;..
000180: 20 7D 0D 0A 0D 0A 68 69 65 72 33 28 6C 76 61 6C }....hier3(lval
000190: 29 20 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 7B ) int lval[]; {
0001A0: 0D 0A 20 20 72 65 74 75 72 6E 20 73 6B 69 6D 28 .. return skim(
0001B0: 22 7C 7C 22 2C 20 65 71 30 2C 20 31 2C 20 30 2C "||", eq0, 1, 0,
0001C0: 20 68 69 65 72 34 2C 20 6C 76 61 6C 29 3B 0D 0A hier4, lval);..
0001D0: 20 20 7D 0D 0A 0D 0A 68 69 65 72 34 28 6C 76 61 }....hier4(lva
0001E0: 6C 29 20 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 l) int lval[];
0001F0: 7B 0D 0A 20 20 72 65 74 75 72 6E 20 73 6B 69 6D {.. return skim
Size : 512 (Real : 512)
000000: 70 74 72 5B 54 59 50 45 5D 3B 0D 0A 20 20 20 20 ptr[TYPE];..
000010: 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 7D return 0;.. }
000020: 0D 0A 20 20 65 6C 73 65 20 7B 0D 0A 20 20 20 20 .. else {..
000030: 6B 3D 68 69 65 72 31 34 28 6C 76 61 6C 29 3B 0D k=hier14(lval);.
000040: 0A 20 20 20 20 69 66 28 6D 61 74 63 68 28 22 2B . if(match("+
000050: 2B 22 29 29 20 7B 09 09 09 2F 2A 20 6C 76 61 6C +")) {.../* lval
000060: 2B 2B 20 2A 2F 0D 0A 20 20 20 20 20 20 69 66 28 ++ */.. if(
000070: 6B 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 20 20 20 k==0) {..
000080: 20 6E 65 65 64 6C 76 61 6C 28 29 3B 0D 0A 20 20 needlval();..
000090: 20 20 20 20 20 20 72 65 74 75 72 6E 20 30 3B 0D return 0;.
0000A0: 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 . }..
0000B0: 20 20 73 74 65 70 28 69 6E 63 2C 20 6C 76 61 6C step(inc, lval
0000C0: 29 3B 0D 0A 20 20 20 20 20 20 64 65 63 28 6C 76 );.. dec(lv
0000D0: 61 6C 5B 32 5D 3E 3E 32 29 3B 0D 0A 20 20 20 20 al[2]>>2);..
0000E0: 20 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 return 0;..
0000F0: 20 20 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 69 }.. else i
000100: 66 28 6D 61 74 63 68 28 22 2D 2D 22 29 29 20 7B f(match("--")) {
000110: 09 09 2F 2A 20 6C 76 61 6C 2D 2D 20 2A 2F 0D 0A ../* lval-- */..
000120: 20 20 20 20 20 20 69 66 28 6B 3D 3D 30 29 20 7B if(k==0) {
000130: 0D 0A 20 20 20 20 20 20 20 20 6E 65 65 64 6C 76 .. needlv
000140: 61 6C 28 29 3B 0D 0A 20 20 20 20 20 20 20 20 72 al();.. r
000150: 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 20 20 eturn 0;..
000160: 20 20 7D 0D 0A 20 20 20 20 20 20 73 74 65 70 28 }.. step(
000170: 64 65 63 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 20 dec, lval);..
000180: 20 20 20 69 6E 63 28 6C 76 61 6C 5B 32 5D 3E 3E inc(lval[2]>>
000190: 32 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 72 2);.. retur
0001A0: 6E 20 30 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 n 0;.. }..
0001B0: 20 20 20 65 6C 73 65 20 72 65 74 75 72 6E 20 6B else return k
0001C0: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D ;.. }.. }...
0001D0: 0A 68 69 65 72 31 34 28 6C 76 61 6C 29 20 20 69 .hier14(lval) i
0001E0: 6E 74 20 2A 6C 76 61 6C 3B 20 7B 0D 0A 20 20 69 nt *lval; {.. i
0001F0: 6E 74 20 6B 2C 20 63 6F 6E 73 74 2C 20 76 61 6C nt k, const, val
Size : 512 (Real : 512)
000000: 28 22 26 26 22 2C 20 6E 65 30 2C 20 30 2C 20 31 ("&&", ne0, 0, 1
000010: 2C 20 68 69 65 72 35 2C 20 6C 76 61 6C 29 3B 0D , hier5, lval);.
000020: 0A 20 20 7D 0D 0A 0D 0A 68 69 65 72 35 28 6C 76 . }....hier5(lv
000030: 61 6C 29 20 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B al) int lval[];
000040: 20 7B 0D 0A 20 20 72 65 74 75 72 6E 20 70 6C 6E {.. return pln
000050: 67 65 28 22 7C 22 2C 20 30 2C 20 68 69 65 72 36 ge("|", 0, hier6
000060: 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 7D 0D 0A 0D , lval);.. }...
000070: 0A 68 69 65 72 36 28 6C 76 61 6C 29 20 20 69 6E .hier6(lval) in
000080: 74 20 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 72 t lval[]; {.. r
000090: 65 74 75 72 6E 20 70 6C 6E 67 65 28 22 5E 22 2C eturn plnge("^",
0000A0: 20 31 2C 20 68 69 65 72 37 2C 20 6C 76 61 6C 29 1, hier7, lval)
0000B0: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 68 69 65 72 37 28 ;.. }....hier7(
0000C0: 6C 76 61 6C 29 20 20 69 6E 74 20 6C 76 61 6C 5B lval) int lval[
0000D0: 5D 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E 20 70 ]; {.. return p
0000E0: 6C 6E 67 65 28 22 26 22 2C 20 32 2C 20 68 69 65 lnge("&", 2, hie
0000F0: 72 38 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 7D 0D r8, lval);.. }.
000100: 0A 0D 0A 68 69 65 72 38 28 6C 76 61 6C 29 20 20 ...hier8(lval)
000110: 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 20 7B 0D 0A int lval[]; {..
000120: 20 20 72 65 74 75 72 6E 20 70 6C 6E 67 65 28 22 return plnge("
000130: 3D 3D 20 21 3D 22 2C 20 33 2C 20 68 69 65 72 39 == !=", 3, hier9
000140: 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 7D 0D 0A 0D , lval);.. }...
000150: 0A 68 69 65 72 39 28 6C 76 61 6C 29 20 20 69 6E .hier9(lval) in
000160: 74 20 6C 76 61 6C 5B 5D 3B 20 20 7B 0D 0A 20 20 t lval[]; {..
000170: 72 65 74 75 72 6E 20 70 6C 6E 67 65 28 22 3C 3D return plnge("<=
000180: 20 3E 3D 20 3C 20 3E 22 2C 20 35 2C 20 68 69 65 >= < >", 5, hie
000190: 72 31 30 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 7D r10, lval);.. }
0001A0: 0D 0A 0D 0A 68 69 65 72 31 30 28 6C 76 61 6C 29 ....hier10(lval)
0001B0: 20 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 20 7B int lval[]; {
0001C0: 0D 0A 20 20 72 65 74 75 72 6E 20 70 6C 6E 67 65 .. return plnge
0001D0: 28 22 3E 3E 20 3C 3C 22 2C 20 39 2C 20 68 69 65 (">> <<", 9, hie
0001E0: 72 31 31 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 7D r11, lval);.. }
0001F0: 0D 0A 0D 0A 68 69 65 72 31 31 28 6C 76 61 6C 29 ....hier11(lval)
Size : 512 (Real : 512)
000000: 2C 20 6C 76 61 6C 32 5B 38 5D 3B 0D 0A 20 20 63 , lval2[8];.. c
000010: 68 61 72 20 2A 70 74 72 2C 20 2A 62 65 66 6F 72 har *ptr, *befor
000020: 65 2C 20 2A 73 74 61 72 74 3B 0D 0A 20 20 6B 3D e, *start;.. k=
000030: 70 72 69 6D 61 72 79 28 6C 76 61 6C 29 3B 0D 0A primary(lval);..
000040: 20 20 70 74 72 3D 6C 76 61 6C 5B 30 5D 3B 0D 0A ptr=lval[0];..
000050: 20 20 62 6C 61 6E 6B 73 28 29 3B 0D 0A 20 20 69 blanks();.. i
000060: 66 28 28 63 68 3D 3D 27 5B 27 29 7C 28 63 68 3D f((ch=='[')|(ch=
000070: 3D 27 28 27 29 29 20 7B 0D 0A 20 20 20 20 6C 76 ='(')) {.. lv
000080: 61 6C 5B 35 5D 3D 31 3B 09 09 09 2F 2A 20 73 65 al[5]=1;.../* se
000090: 63 6F 6E 64 61 72 79 20 72 65 67 69 73 74 65 72 condary register
0000A0: 20 77 69 6C 6C 20 62 65 20 75 73 65 64 20 2A 2F will be used */
0000B0: 0D 0A 20 20 20 20 77 68 69 6C 65 28 31 29 20 7B .. while(1) {
0000C0: 0D 0A 20 20 20 20 20 20 69 66 28 6D 61 74 63 68 .. if(match
0000D0: 28 22 5B 22 29 29 20 7B 09 09 09 2F 2A 20 5B 73 ("[")) {.../* [s
0000E0: 75 62 73 63 72 69 70 74 5D 20 2A 2F 0D 0A 20 20 ubscript] */..
0000F0: 20 20 20 20 20 20 69 66 28 70 74 72 3D 3D 30 29 if(ptr==0)
000100: 20 7B 0D 0A 20 20 20 20 20 20 20 20 20 20 65 72 {.. er
000110: 72 6F 72 28 22 63 61 6E 27 74 20 73 75 62 73 63 ror("can't subsc
000120: 72 69 70 74 22 29 3B 0D 0A 20 20 20 20 20 20 20 ript");..
000130: 20 20 20 6A 75 6E 6B 28 29 3B 0D 0A 20 20 20 20 junk();..
000140: 20 20 20 20 20 20 6E 65 65 64 74 6F 6B 65 6E 28 needtoken(
000150: 22 5D 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 "]");..
000160: 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 return 0;..
000170: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 }..
000180: 20 65 6C 73 65 20 69 66 28 70 74 72 5B 49 44 45 else if(ptr[IDE
000190: 4E 54 5D 3D 3D 50 4F 49 4E 54 45 52 29 72 76 61 NT]==POINTER)rva
0001A0: 6C 75 65 28 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 lue(lval);..
0001B0: 20 20 20 20 65 6C 73 65 20 69 66 28 70 74 72 5B else if(ptr[
0001C0: 49 44 45 4E 54 5D 21 3D 41 52 52 41 59 29 20 7B IDENT]!=ARRAY) {
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 65 72 72 6F .. erro
0001E0: 72 28 22 63 61 6E 27 74 20 73 75 62 73 63 72 69 r("can't subscri
0001F0: 70 74 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 pt");..
Size : 512 (Real : 512)
000000: 20 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 20 7B int lval[]; {
000010: 0D 0A 20 20 72 65 74 75 72 6E 20 70 6C 6E 67 65 .. return plnge
000020: 28 22 2B 20 2D 22 2C 20 31 31 2C 20 68 69 65 72 ("+ -", 11, hier
000030: 31 32 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 7D 0D 12, lval);.. }.
000040: 0A 0D 0A 68 69 65 72 31 32 28 6C 76 61 6C 29 20 ...hier12(lval)
000050: 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 20 7B 0D int lval[]; {.
000060: 0A 20 20 72 65 74 75 72 6E 20 70 6C 6E 67 65 28 . return plnge(
000070: 22 2A 20 2F 20 25 22 2C 20 31 33 2C 20 68 69 65 "* / %", 13, hie
000080: 72 31 33 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 7D r13, lval);.. }
000090: 0D 0A 0D 0A 3E 3E 3E 20 43 43 33 32 2E 43 20 35 ....>>> CC32.C 5
0000A0: 30 36 35 0D 0A 68 69 65 72 31 33 28 6C 76 61 6C 065..hier13(lval
0000B0: 29 20 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 20 ) int lval[];
0000C0: 7B 0D 0A 20 20 69 6E 74 20 6B 3B 0D 0A 20 20 63 {.. int k;.. c
0000D0: 68 61 72 20 2A 70 74 72 3B 0D 0A 20 20 69 66 28 har *ptr;.. if(
0000E0: 6D 61 74 63 68 28 22 2B 2B 22 29 29 20 7B 09 09 match("++")) {..
0000F0: 09 2F 2A 20 2B 2B 6C 76 61 6C 20 2A 2F 0D 0A 20 ./* ++lval */..
000100: 20 20 20 69 66 28 68 69 65 72 31 33 28 6C 76 61 if(hier13(lva
000110: 6C 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 20 20 l)==0) {..
000120: 6E 65 65 64 6C 76 61 6C 28 29 3B 0D 0A 20 20 20 needlval();..
000130: 20 20 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 return 0;..
000140: 20 20 20 20 7D 0D 0A 20 20 20 20 73 74 65 70 28 }.. step(
000150: 69 6E 63 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 20 inc, lval);..
000160: 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 return 0;..
000170: 7D 0D 0A 20 20 65 6C 73 65 20 69 66 28 6D 61 74 }.. else if(mat
000180: 63 68 28 22 2D 2D 22 29 29 20 7B 09 09 2F 2A 20 ch("--")) {../*
000190: 2D 2D 6C 76 61 6C 20 2A 2F 0D 0A 20 20 20 20 69 --lval */.. i
0001A0: 66 28 68 69 65 72 31 33 28 6C 76 61 6C 29 3D 3D f(hier13(lval)==
0001B0: 30 29 20 7B 0D 0A 20 20 20 20 20 20 6E 65 65 64 0) {.. need
0001C0: 6C 76 61 6C 28 29 3B 0D 0A 20 20 20 20 20 20 72 lval();.. r
0001D0: 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 20 20 eturn 0;..
0001E0: 7D 0D 0A 20 20 20 20 73 74 65 70 28 64 65 63 2C }.. step(dec,
0001F0: 20 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 72 65 74 lval);.. ret
Size : 512 (Real : 512)
000000: 20 6B 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 k=0;..
000010: 20 7D 0D 0A 20 20 20 20 20 20 20 20 73 65 74 73 }.. sets
000020: 74 61 67 65 28 26 62 65 66 6F 72 65 2C 20 26 73 tage(&before, &s
000030: 74 61 72 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 tart);..
000040: 6C 76 61 6C 32 5B 33 5D 3D 30 3B 0D 0A 20 20 20 lval2[3]=0;..
000050: 20 20 20 20 20 70 6C 6E 67 65 32 28 30 2C 20 30 plnge2(0, 0
000060: 2C 20 68 69 65 72 31 2C 20 6C 76 61 6C 32 2C 20 , hier1, lval2,
000070: 6C 76 61 6C 32 29 3B 20 2F 2A 20 6C 76 61 6C 32 lval2); /* lval2
000080: 20 64 65 61 64 65 6E 64 20 2A 2F 0D 0A 20 20 20 deadend */..
000090: 20 20 20 20 20 6E 65 65 64 74 6F 6B 65 6E 28 22 needtoken("
0000A0: 5D 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 ]");.. if
0000B0: 28 6C 76 61 6C 32 5B 33 5D 29 20 7B 0D 0A 20 20 (lval2[3]) {..
0000C0: 20 20 20 20 20 20 20 20 63 6C 65 61 72 73 74 61 clearsta
0000D0: 67 65 28 62 65 66 6F 72 65 2C 20 30 29 3B 0D 0A ge(before, 0);..
0000E0: 20 20 20 20 20 20 20 20 20 20 69 66 28 6C 76 61 if(lva
0000F0: 6C 32 5B 34 5D 29 20 7B 0D 0A 20 20 20 20 20 20 l2[4]) {..
000100: 20 20 20 20 20 20 69 66 28 70 74 72 5B 54 59 50 if(ptr[TYP
000110: 45 5D 3D 3D 43 49 4E 54 29 20 63 6F 6E 73 74 32 E]==CINT) const2
000120: 28 6C 76 61 6C 32 5B 34 5D 3C 3C 4C 42 50 57 29 (lval2[4]<<LBPW)
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 ;.. e
000140: 6C 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 lse
000150: 20 20 20 63 6F 6E 73 74 32 28 6C 76 61 6C 32 5B const2(lval2[
000160: 34 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 4]);..
000170: 20 20 66 66 61 64 64 28 29 3B 0D 0A 20 20 20 20 ffadd();..
000180: 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 }..
000190: 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 }..
0001A0: 65 6C 73 65 20 7B 0D 0A 20 20 20 20 20 20 20 20 else {..
0001B0: 20 20 69 66 28 70 74 72 5B 54 59 50 45 5D 3D 3D if(ptr[TYPE]==
0001C0: 43 49 4E 54 29 20 64 6F 75 62 6C 65 72 65 67 28 CINT) doublereg(
0001D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 66 66 );.. ff
0001E0: 61 64 64 28 29 3B 0D 0A 20 20 20 20 20 20 20 20 add();..
0001F0: 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 6C 76 61 }.. lva
Size : 512 (Real : 512)
000000: 75 72 6E 20 30 3B 0D 0A 20 20 20 20 7D 0D 0A 20 urn 0;.. }..
000010: 20 65 6C 73 65 20 69 66 20 28 6D 61 74 63 68 28 else if (match(
000020: 22 7E 22 29 29 20 7B 09 09 2F 2A 20 7E 20 2A 2F "~")) {../* ~ */
000030: 0D 0A 20 20 20 20 69 66 28 68 69 65 72 31 33 28 .. if(hier13(
000040: 6C 76 61 6C 29 29 20 72 76 61 6C 75 65 28 6C 76 lval)) rvalue(lv
000050: 61 6C 29 3B 0D 0A 20 20 20 20 63 6F 6D 28 29 3B al);.. com();
000060: 0D 0A 20 20 20 20 6C 76 61 6C 5B 34 5D 20 3D 20 .. lval[4] =
000070: 7E 6C 76 61 6C 5B 34 5D 3B 0D 0A 20 20 20 20 72 ~lval[4];.. r
000080: 65 74 75 72 6E 20 28 6C 76 61 6C 5B 37 5D 3D 30 eturn (lval[7]=0
000090: 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 6C 73 );.. }.. els
0000A0: 65 20 69 66 20 28 6D 61 74 63 68 28 22 21 22 29 e if (match("!")
0000B0: 29 20 7B 09 09 2F 2A 20 21 20 2A 2F 0D 0A 20 20 ) {../* ! */..
0000C0: 20 20 69 66 28 68 69 65 72 31 33 28 6C 76 61 6C if(hier13(lval
0000D0: 29 29 20 72 76 61 6C 75 65 28 6C 76 61 6C 29 3B )) rvalue(lval);
0000E0: 0D 0A 20 20 20 20 6C 6E 65 67 28 29 3B 0D 0A 20 .. lneg();..
0000F0: 20 20 20 6C 76 61 6C 5B 34 5D 20 3D 20 21 6C 76 lval[4] = !lv
000100: 61 6C 5B 34 5D 3B 0D 0A 20 20 20 20 72 65 74 75 al[4];.. retu
000110: 72 6E 20 28 6C 76 61 6C 5B 37 5D 3D 30 29 3B 0D rn (lval[7]=0);.
000120: 0A 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 20 69 . }.. else i
000130: 66 20 28 6D 61 74 63 68 28 22 2D 22 29 29 20 7B f (match("-")) {
000140: 09 09 2F 2A 20 75 6E 61 72 79 20 2D 20 2A 2F 0D ../* unary - */.
000150: 0A 20 20 20 20 69 66 28 68 69 65 72 31 33 28 6C . if(hier13(l
000160: 76 61 6C 29 29 20 72 76 61 6C 75 65 28 6C 76 61 val)) rvalue(lva
000170: 6C 29 3B 0D 0A 20 20 20 20 6E 65 67 28 29 3B 0D l);.. neg();.
000180: 0A 20 20 20 20 6C 76 61 6C 5B 34 5D 20 3D 20 2D . lval[4] = -
000190: 6C 76 61 6C 5B 34 5D 3B 0D 0A 20 20 20 20 72 65 lval[4];.. re
0001A0: 74 75 72 6E 20 28 6C 76 61 6C 5B 37 5D 3D 30 29 turn (lval[7]=0)
0001B0: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 ;.. }.. else
0001C0: 20 69 66 28 6D 61 74 63 68 28 22 2A 22 29 29 20 if(match("*"))
0001D0: 7B 09 09 09 2F 2A 20 75 6E 61 72 79 20 2A 20 2A {.../* unary * *
0001E0: 2F 0D 0A 20 20 20 20 69 66 28 68 69 65 72 31 33 /.. if(hier13
0001F0: 28 6C 76 61 6C 29 29 20 72 76 61 6C 75 65 28 6C (lval)) rvalue(l
Size : 512 (Real : 512)
000000: 6C 5B 32 5D 3D 30 3B 0D 0A 20 20 20 20 20 20 20 l[2]=0;..
000010: 20 6C 76 61 6C 5B 31 5D 3D 70 74 72 5B 54 59 50 lval[1]=ptr[TYP
000020: 45 5D 3B 0D 0A 20 20 20 20 20 20 20 20 6B 3D 31 E];.. k=1
000030: 3B 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 ;.. }..
000040: 20 20 20 20 65 6C 73 65 20 69 66 28 6D 61 74 63 else if(matc
000050: 68 28 22 28 22 29 29 20 7B 09 09 2F 2A 20 66 75 h("(")) {../* fu
000060: 6E 63 74 69 6F 6E 28 2E 2E 2E 29 20 2A 2F 0D 0A nction(...) */..
000070: 20 20 20 20 20 20 20 20 69 66 28 70 74 72 3D 3D if(ptr==
000080: 30 29 20 63 61 6C 6C 66 75 6E 63 74 69 6F 6E 28 0) callfunction(
000090: 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 0);.. els
0000A0: 65 20 69 66 28 70 74 72 5B 49 44 45 4E 54 5D 21 e if(ptr[IDENT]!
0000B0: 3D 46 55 4E 43 54 49 4F 4E 29 20 7B 0D 0A 20 20 =FUNCTION) {..
0000C0: 20 20 20 20 20 20 20 20 69 66 28 6B 20 26 26 20 if(k &&
0000D0: 21 6C 76 61 6C 5B 34 5D 29 20 72 76 61 6C 75 65 !lval[4]) rvalue
0000E0: 28 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 20 20 20 (lval);..
0000F0: 20 20 20 63 61 6C 6C 66 75 6E 63 74 69 6F 6E 28 callfunction(
000100: 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 7D 0);.. }
000110: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 63 .. else c
000120: 61 6C 6C 66 75 6E 63 74 69 6F 6E 28 70 74 72 29 allfunction(ptr)
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 6B 3D 6C 76 61 ;.. k=lva
000140: 6C 5B 30 5D 3D 6C 76 61 6C 5B 33 5D 3D 6C 76 61 l[0]=lval[3]=lva
000150: 6C 5B 34 5D 3D 30 3B 0D 0A 20 20 20 20 20 20 20 l[4]=0;..
000160: 20 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 72 }.. else r
000170: 65 74 75 72 6E 20 6B 3B 0D 0A 20 20 20 20 20 20 eturn k;..
000180: 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 66 28 70 }.. }.. if(p
000190: 74 72 3D 3D 30 29 20 72 65 74 75 72 6E 20 6B 3B tr==0) return k;
0001A0: 0D 0A 20 20 69 66 28 70 74 72 5B 49 44 45 4E 54 .. if(ptr[IDENT
0001B0: 5D 3D 3D 46 55 4E 43 54 49 4F 4E 29 20 7B 0D 0A ]==FUNCTION) {..
0001C0: 20 20 20 20 61 64 64 72 65 73 73 28 70 74 72 29 address(ptr)
0001D0: 3B 0D 0A 20 20 20 20 6C 76 61 6C 5B 30 5D 3D 30 ;.. lval[0]=0
0001E0: 3B 0D 0A 20 20 20 20 72 65 74 75 72 6E 20 30 3B ;.. return 0;
0001F0: 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 .. }.. retur
Size : 512 (Real : 512)
000000: 20 26 26 20 28 6F 70 65 72 21 3D 66 66 73 75 62 && (oper!=ffsub
000010: 29 29 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 )) return 0;..
000020: 69 66 28 76 61 6C 31 5B 32 5D 21 3D 43 49 4E 54 if(val1[2]!=CINT
000030: 29 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 69 ) return 0;.. i
000040: 66 28 76 61 6C 32 5B 32 5D 29 20 72 65 74 75 72 f(val2[2]) retur
000050: 6E 20 30 3B 0D 0A 20 20 72 65 74 75 72 6E 20 31 n 0;.. return 1
000060: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ;.. }..../*..**
000070: 20 64 65 74 65 72 6D 69 6E 65 20 74 79 70 65 20 determine type
000080: 6F 66 20 62 69 6E 61 72 79 20 6F 70 65 72 61 74 of binary operat
000090: 69 6F 6E 0D 0A 2A 2F 0D 0A 72 65 73 75 6C 74 28 ion..*/..result(
0000A0: 6C 76 61 6C 2C 20 6C 76 61 6C 32 29 20 69 6E 74 lval, lval2) int
0000B0: 20 6C 76 61 6C 5B 5D 2C 20 6C 76 61 6C 32 5B 5D lval[], lval2[]
0000C0: 3B 20 7B 0D 0A 20 20 69 66 28 28 6C 76 61 6C 5B ; {.. if((lval[
0000D0: 32 5D 21 3D 30 29 26 28 6C 76 61 6C 32 5B 32 5D 2]!=0)&(lval2[2]
0000E0: 21 3D 30 29 29 20 7B 0D 0A 20 20 20 20 6C 76 61 !=0)) {.. lva
0000F0: 6C 5B 32 5D 3D 30 3B 0D 0A 20 20 20 20 7D 0D 0A l[2]=0;.. }..
000100: 20 20 65 6C 73 65 20 69 66 28 6C 76 61 6C 32 5B else if(lval2[
000110: 32 5D 29 20 7B 0D 0A 20 20 20 20 6C 76 61 6C 5B 2]) {.. lval[
000120: 30 5D 3D 6C 76 61 6C 32 5B 30 5D 3B 0D 0A 20 20 0]=lval2[0];..
000130: 20 20 6C 76 61 6C 5B 31 5D 3D 6C 76 61 6C 32 5B lval[1]=lval2[
000140: 31 5D 3B 0D 0A 20 20 20 20 6C 76 61 6C 5B 32 5D 1];.. lval[2]
000150: 3D 6C 76 61 6C 32 5B 32 5D 3B 0D 0A 20 20 20 20 =lval2[2];..
000160: 7D 0D 0A 20 20 7D 0D 0A 0D 0A 73 74 65 70 28 6F }.. }....step(o
000170: 70 65 72 2C 20 6C 76 61 6C 29 20 69 6E 74 20 28 per, lval) int (
000180: 2A 6F 70 65 72 29 28 29 2C 20 6C 76 61 6C 5B 5D *oper)(), lval[]
000190: 3B 20 7B 0D 0A 20 20 69 66 28 6C 76 61 6C 5B 31 ; {.. if(lval[1
0001A0: 5D 29 20 7B 0D 0A 20 20 20 20 69 66 28 6C 76 61 ]) {.. if(lva
0001B0: 6C 5B 35 5D 29 20 7B 0D 0A 20 20 20 20 20 20 70 l[5]) {.. p
0001C0: 75 73 68 28 29 3B 0D 0A 20 20 20 20 20 20 72 76 ush();.. rv
0001D0: 61 6C 75 65 28 6C 76 61 6C 29 3B 0D 0A 20 20 20 alue(lval);..
0001E0: 20 20 20 28 2A 6F 70 65 72 29 28 6C 76 61 6C 5B (*oper)(lval[
0001F0: 32 5D 3E 3E 32 29 3B 0D 0A 20 20 20 20 20 20 70 2]>>2);.. p
Size : 512 (Real : 512)
000000: 6E 20 6B 3B 0D 0A 20 20 7D 0D 0A 0D 0A 70 72 69 n k;.. }....pri
000010: 6D 61 72 79 28 6C 76 61 6C 29 20 20 69 6E 74 20 mary(lval) int
000020: 2A 6C 76 61 6C 3B 20 7B 0D 0A 20 20 63 68 61 72 *lval; {.. char
000030: 20 2A 70 74 72 2C 20 73 6E 61 6D 65 5B 4E 41 4D *ptr, sname[NAM
000040: 45 53 49 5A 45 5D 3B 0D 0A 20 20 69 6E 74 20 6B ESIZE];.. int k
000050: 3B 0D 0A 20 20 69 66 28 6D 61 74 63 68 28 22 28 ;.. if(match("(
000060: 22 29 29 20 7B 09 09 09 2F 2A 20 28 65 78 70 72 ")) {.../* (expr
000070: 65 73 73 69 6F 6E 2C 2E 2E 2E 29 20 2A 2F 0D 0A ession,...) */..
000080: 20 20 20 20 64 6F 20 6B 3D 68 69 65 72 31 28 6C do k=hier1(l
000090: 76 61 6C 29 3B 20 77 68 69 6C 65 28 6D 61 74 63 val); while(matc
0000A0: 68 28 22 2C 22 29 29 3B 0D 0A 20 20 20 20 6E 65 h(","));.. ne
0000B0: 65 64 74 6F 6B 65 6E 28 22 29 22 29 3B 0D 0A 20 edtoken(")");..
0000C0: 20 20 20 72 65 74 75 72 6E 20 6B 3B 0D 0A 20 20 return k;..
0000D0: 20 20 7D 0D 0A 20 20 70 75 74 69 6E 74 28 30 2C }.. putint(0,
0000E0: 20 6C 76 61 6C 2C 20 38 3C 3C 4C 42 50 57 29 3B lval, 8<<LBPW);
0000F0: 09 09 2F 2A 20 63 6C 65 61 72 20 6C 76 61 6C 20 ../* clear lval
000100: 61 72 72 61 79 20 2A 2F 0D 0A 20 20 69 66 28 73 array */.. if(s
000110: 79 6D 6E 61 6D 65 28 73 6E 61 6D 65 2C 20 59 45 ymname(sname, YE
000120: 53 29 29 20 7B 0D 0A 20 20 20 20 69 66 28 70 74 S)) {.. if(pt
000130: 72 3D 66 69 6E 64 6C 6F 63 28 73 6E 61 6D 65 29 r=findloc(sname)
000140: 29 20 7B 0D 0A 23 69 66 64 65 66 20 53 54 47 4F ) {..#ifdef STGO
000150: 54 4F 0D 0A 20 20 20 20 20 20 69 66 28 70 74 72 TO.. if(ptr
000160: 5B 49 44 45 4E 54 5D 3D 3D 4C 41 42 45 4C 29 20 [IDENT]==LABEL)
000170: 7B 0D 0A 20 20 20 20 20 20 20 20 65 78 70 65 72 {.. exper
000180: 72 28 29 3B 0D 0A 20 20 20 20 20 20 20 20 72 65 r();.. re
000190: 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 20 20 20 turn 0;..
0001A0: 20 7D 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 20 20 }..#endif..
0001B0: 20 20 67 65 74 6C 6F 63 28 70 74 72 29 3B 0D 0A getloc(ptr);..
0001C0: 20 20 20 20 20 20 6C 76 61 6C 5B 30 5D 3D 70 74 lval[0]=pt
0001D0: 72 3B 0D 0A 20 20 20 20 20 20 6C 76 61 6C 5B 31 r;.. lval[1
0001E0: 5D 3D 70 74 72 5B 54 59 50 45 5D 3B 0D 0A 20 20 ]=ptr[TYPE];..
0001F0: 20 20 20 20 69 66 28 70 74 72 5B 49 44 45 4E 54 if(ptr[IDENT
Size : 512 (Real : 512)
000000: 6F 70 28 29 3B 0D 0A 20 20 20 20 20 20 73 74 6F op();.. sto
000010: 72 65 28 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 20 re(lval);..
000020: 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 return;..
000030: 7D 0D 0A 20 20 20 20 65 6C 73 65 20 7B 0D 0A 20 }.. else {..
000040: 20 20 20 20 20 6D 6F 76 65 28 29 3B 0D 0A 20 20 move();..
000050: 20 20 20 20 6C 76 61 6C 5B 35 5D 3D 31 3B 0D 0A lval[5]=1;..
000060: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 7D 0D 0A }.. }..
000070: 20 20 72 76 61 6C 75 65 28 6C 76 61 6C 29 3B 0D rvalue(lval);.
000080: 0A 20 20 28 2A 6F 70 65 72 29 28 6C 76 61 6C 5B . (*oper)(lval[
000090: 32 5D 3E 3E 32 29 3B 0D 0A 20 20 73 74 6F 72 65 2]>>2);.. store
0000A0: 28 6C 76 61 6C 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A (lval);.. }....
0000B0: 73 74 6F 72 65 28 6C 76 61 6C 29 20 20 69 6E 74 store(lval) int
0000C0: 20 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 69 66 lval[]; {.. if
0000D0: 28 6C 76 61 6C 5B 31 5D 29 20 70 75 74 73 74 6B (lval[1]) putstk
0000E0: 28 6C 76 61 6C 29 3B 0D 0A 20 20 65 6C 73 65 20 (lval);.. else
0000F0: 20 20 20 20 20 20 20 70 75 74 6D 65 6D 28 6C 76 putmem(lv
000100: 61 6C 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 72 76 61 al);.. }....rva
000110: 6C 75 65 28 6C 76 61 6C 29 20 69 6E 74 20 6C 76 lue(lval) int lv
000120: 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 69 66 20 28 28 al[]; {.. if ((
000130: 6C 76 61 6C 5B 30 5D 21 3D 30 29 26 28 6C 76 61 lval[0]!=0)&(lva
000140: 6C 5B 31 5D 3D 3D 30 29 29 20 67 65 74 6D 65 6D l[1]==0)) getmem
000150: 28 6C 76 61 6C 29 3B 0D 0A 20 20 65 6C 73 65 20 (lval);.. else
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 69 6E 64 69 72 65 63 74 indirect
000180: 28 6C 76 61 6C 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A (lval);.. }....
000190: 74 65 73 74 28 6C 61 62 65 6C 2C 20 70 61 72 65 test(label, pare
0001A0: 6E 73 29 20 20 69 6E 74 20 6C 61 62 65 6C 2C 20 ns) int label,
0001B0: 70 61 72 65 6E 73 3B 20 20 7B 0D 0A 20 20 69 6E parens; {.. in
0001C0: 74 20 6C 76 61 6C 5B 38 5D 3B 0D 0A 20 20 63 68 t lval[8];.. ch
0001D0: 61 72 20 2A 62 65 66 6F 72 65 2C 20 2A 73 74 61 ar *before, *sta
0001E0: 72 74 3B 0D 0A 20 20 69 66 28 70 61 72 65 6E 73 rt;.. if(parens
0001F0: 29 20 6E 65 65 64 74 6F 6B 65 6E 28 22 28 22 29 ) needtoken("(")
Size : 512 (Real : 512)
000000: 5D 3D 3D 50 4F 49 4E 54 45 52 29 20 7B 0D 0A 20 ]==POINTER) {..
000010: 20 20 20 20 20 20 20 6C 76 61 6C 5B 31 5D 3D 43 lval[1]=C
000020: 49 4E 54 3B 0D 0A 20 20 20 20 20 20 20 20 6C 76 INT;.. lv
000030: 61 6C 5B 32 5D 3D 70 74 72 5B 54 59 50 45 5D 3B al[2]=ptr[TYPE];
000040: 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 .. }..
000050: 20 20 20 69 66 28 70 74 72 5B 49 44 45 4E 54 5D if(ptr[IDENT]
000060: 3D 3D 41 52 52 41 59 29 20 7B 0D 0A 20 20 20 20 ==ARRAY) {..
000070: 20 20 20 20 6C 76 61 6C 5B 32 5D 3D 70 74 72 5B lval[2]=ptr[
000080: 54 59 50 45 5D 3B 0D 0A 20 20 20 20 20 20 20 20 TYPE];..
000090: 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 20 20 20 return 0;..
0000A0: 20 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 }.. else
0000B0: 20 72 65 74 75 72 6E 20 31 3B 0D 0A 20 20 20 20 return 1;..
0000C0: 20 20 7D 0D 0A 20 20 20 20 69 66 28 70 74 72 3D }.. if(ptr=
0000D0: 66 69 6E 64 67 6C 62 28 73 6E 61 6D 65 29 29 0D findglb(sname)).
0000E0: 0A 20 20 20 20 20 20 69 66 28 70 74 72 5B 49 44 . if(ptr[ID
0000F0: 45 4E 54 5D 21 3D 46 55 4E 43 54 49 4F 4E 29 20 ENT]!=FUNCTION)
000100: 7B 0D 0A 20 20 20 20 20 20 20 20 6C 76 61 6C 5B {.. lval[
000110: 30 5D 3D 70 74 72 3B 0D 0A 20 20 20 20 20 20 20 0]=ptr;..
000120: 20 6C 76 61 6C 5B 31 5D 3D 30 3B 0D 0A 20 20 20 lval[1]=0;..
000130: 20 20 20 20 20 69 66 28 70 74 72 5B 49 44 45 4E if(ptr[IDEN
000140: 54 5D 21 3D 41 52 52 41 59 29 20 7B 0D 0A 20 20 T]!=ARRAY) {..
000150: 20 20 20 20 20 20 20 20 69 66 28 70 74 72 5B 49 if(ptr[I
000160: 44 45 4E 54 5D 3D 3D 50 4F 49 4E 54 45 52 29 20 DENT]==POINTER)
000170: 6C 76 61 6C 5B 32 5D 3D 70 74 72 5B 54 59 50 45 lval[2]=ptr[TYPE
000180: 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 72 65 ];.. re
000190: 74 75 72 6E 20 31 3B 0D 0A 20 20 20 20 20 20 20 turn 1;..
0001A0: 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 61 64 }.. ad
0001B0: 64 72 65 73 73 28 70 74 72 29 3B 0D 0A 20 20 20 dress(ptr);..
0001C0: 20 20 20 20 20 6C 76 61 6C 5B 31 5D 3D 6C 76 61 lval[1]=lva
0001D0: 6C 5B 32 5D 3D 70 74 72 5B 54 59 50 45 5D 3B 0D l[2]=ptr[TYPE];.
0001E0: 0A 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 20 . return
0001F0: 30 3B 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 0;.. }..
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 77 68 69 6C 65 28 31 29 20 7B 0D ;.. while(1) {.
000010: 0A 20 20 20 20 73 65 74 73 74 61 67 65 28 26 62 . setstage(&b
000020: 65 66 6F 72 65 2C 20 26 73 74 61 72 74 29 3B 0D efore, &start);.
000030: 0A 20 20 20 20 69 66 28 68 69 65 72 31 28 6C 76 . if(hier1(lv
000040: 61 6C 29 29 20 72 76 61 6C 75 65 28 6C 76 61 6C al)) rvalue(lval
000050: 29 3B 0D 0A 20 20 20 20 69 66 28 6D 61 74 63 68 );.. if(match
000060: 28 22 2C 22 29 29 20 63 6C 65 61 72 73 74 61 67 (",")) clearstag
000070: 65 28 62 65 66 6F 72 65 2C 20 73 74 61 72 74 29 e(before, start)
000080: 3B 0D 0A 20 20 20 20 65 6C 73 65 20 62 72 65 61 ;.. else brea
000090: 6B 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 66 28 k;.. }.. if(
0000A0: 70 61 72 65 6E 73 29 20 6E 65 65 64 74 6F 6B 65 parens) needtoke
0000B0: 6E 28 22 29 22 29 3B 0D 0A 20 20 69 66 28 6C 76 n(")");.. if(lv
0000C0: 61 6C 5B 33 5D 29 20 7B 09 09 09 2F 2A 20 63 6F al[3]) {.../* co
0000D0: 6E 73 74 61 6E 74 20 65 78 70 72 65 73 73 69 6F nstant expressio
0000E0: 6E 20 2A 2F 0D 0A 20 20 20 20 63 6C 65 61 72 73 n */.. clears
0000F0: 74 61 67 65 28 62 65 66 6F 72 65 2C 20 30 29 3B tage(before, 0);
000100: 0D 0A 20 20 20 20 69 66 28 6C 76 61 6C 5B 34 5D .. if(lval[4]
000110: 29 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 6A ) return;.. j
000120: 75 6D 70 28 6C 61 62 65 6C 29 3B 0D 0A 20 20 20 ump(label);..
000130: 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 7D 0D return;.. }.
000140: 0A 20 20 69 66 28 6C 76 61 6C 5B 37 5D 29 20 7B . if(lval[7]) {
000150: 09 09 09 2F 2A 20 73 74 61 67 65 20 61 64 64 72 .../* stage addr
000160: 65 73 73 20 6F 66 20 22 6F 70 65 72 20 30 22 20 ess of "oper 0"
000170: 63 6F 64 65 20 2A 2F 0D 0A 20 20 20 20 6F 70 65 code */.. ope
000180: 72 3D 6C 76 61 6C 5B 36 5D 3B 09 09 2F 2A 20 6F r=lval[6];../* o
000190: 70 65 72 61 74 6F 72 20 66 75 6E 63 74 69 6F 6E perator function
0001A0: 20 61 64 64 72 65 73 73 20 2A 2F 0D 0A 20 20 20 address */..
0001B0: 20 20 20 20 20 20 69 66 28 28 6F 70 65 72 3D 3D if((oper==
0001C0: 66 66 65 71 29 7C 0D 0A 20 20 20 20 20 20 20 20 ffeq)|..
0001D0: 20 20 20 20 28 6F 70 65 72 3D 3D 75 6C 65 29 29 (oper==ule))
0001E0: 20 7A 65 72 6F 6A 75 6D 70 28 65 71 30 2C 20 6C zerojump(eq0, l
0001F0: 61 62 65 6C 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 abel, lval);..
Size : 512 (Real : 512)
000000: 20 20 20 70 74 72 3D 61 64 64 73 79 6D 28 73 6E ptr=addsym(sn
000010: 61 6D 65 2C 46 55 4E 43 54 49 4F 4E 2C 43 49 4E ame,FUNCTION,CIN
000020: 54 2C 30 2C 26 67 6C 62 70 74 72 2C 41 55 54 4F T,0,&glbptr,AUTO
000030: 45 58 54 29 3B 0D 0A 20 20 20 20 6C 76 61 6C 5B EXT);.. lval[
000040: 30 5D 3D 70 74 72 3B 0D 0A 20 20 20 20 6C 76 61 0]=ptr;.. lva
000050: 6C 5B 31 5D 3D 30 3B 0D 0A 20 20 20 20 72 65 74 l[1]=0;.. ret
000060: 75 72 6E 20 30 3B 0D 0A 20 20 20 20 7D 0D 0A 20 urn 0;.. }..
000070: 20 69 66 28 63 6F 6E 73 74 61 6E 74 28 6C 76 61 if(constant(lva
000080: 6C 29 3D 3D 30 29 20 65 78 70 65 72 72 28 29 3B l)==0) experr();
000090: 0D 0A 20 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 .. return 0;..
0000A0: 20 7D 0D 0A 0D 0A 65 78 70 65 72 72 28 29 20 7B }....experr() {
0000B0: 0D 0A 20 20 65 72 72 6F 72 28 22 69 6E 76 61 6C .. error("inval
0000C0: 69 64 20 65 78 70 72 65 73 73 69 6F 6E 22 29 3B id expression");
0000D0: 0D 0A 20 20 63 6F 6E 73 74 28 30 29 3B 0D 0A 20 .. const(0);..
0000E0: 20 6A 75 6E 6B 28 29 3B 0D 0A 20 20 7D 0D 0A 20 junk();.. }..
0000F0: 0D 0A 63 61 6C 6C 66 75 6E 63 74 69 6F 6E 28 70 ..callfunction(p
000100: 74 72 29 20 20 63 68 61 72 20 2A 70 74 72 3B 20 tr) char *ptr;
000110: 7B 09 09 2F 2A 20 73 79 6D 62 6F 6C 20 74 61 62 {../* symbol tab
000120: 6C 65 20 65 6E 74 72 79 20 6F 72 20 30 20 2A 2F le entry or 0 */
000130: 0D 0A 20 20 69 6E 74 20 6E 61 72 67 73 2C 20 63 .. int nargs, c
000140: 6F 6E 73 74 2C 20 76 61 6C 3B 0D 0A 20 20 6E 61 onst, val;.. na
000150: 72 67 73 3D 30 3B 0D 0A 20 20 62 6C 61 6E 6B 73 rgs=0;.. blanks
000160: 28 29 3B 09 09 09 09 2F 2A 20 61 6C 72 65 61 64 ();..../* alread
000170: 79 20 73 61 77 20 6F 70 65 6E 20 70 61 72 65 6E y saw open paren
000180: 20 2A 2F 0D 0A 20 20 77 68 69 6C 65 28 73 74 72 */.. while(str
000190: 65 71 28 6C 70 74 72 2C 22 29 22 29 3D 3D 30 29 eq(lptr,")")==0)
0001A0: 20 7B 0D 0A 20 20 20 20 69 66 28 65 6E 64 73 74 {.. if(endst
0001B0: 28 29 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 ()) break;..
0001C0: 69 66 28 70 74 72 29 20 7B 0D 0A 20 20 20 20 20 if(ptr) {..
0001D0: 20 65 78 70 72 65 73 73 69 6F 6E 28 26 63 6F 6E expression(&con
0001E0: 73 74 2C 20 26 76 61 6C 29 3B 0D 0A 20 20 20 20 st, &val);..
0001F0: 20 20 70 75 73 68 28 29 3B 0D 0A 20 20 20 20 20 push();..
Size : 512 (Real : 512)
000000: 20 20 65 6C 73 65 20 69 66 28 28 6F 70 65 72 3D else if((oper=
000010: 3D 66 66 6E 65 29 7C 0D 0A 20 20 20 20 20 20 20 =ffne)|..
000020: 20 20 20 20 20 28 6F 70 65 72 3D 3D 75 67 74 29 (oper==ugt)
000030: 29 20 7A 65 72 6F 6A 75 6D 70 28 6E 65 30 2C 20 ) zerojump(ne0,
000040: 6C 61 62 65 6C 2C 20 6C 76 61 6C 29 3B 0D 0A 20 label, lval);..
000050: 20 20 20 65 6C 73 65 20 69 66 20 28 6F 70 65 72 else if (oper
000060: 3D 3D 66 66 67 74 29 20 7A 65 72 6F 6A 75 6D 70 ==ffgt) zerojump
000070: 28 67 74 30 2C 20 6C 61 62 65 6C 2C 20 6C 76 61 (gt0, label, lva
000080: 6C 29 3B 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 l);.. else if
000090: 20 28 6F 70 65 72 3D 3D 66 66 67 65 29 20 7A 65 (oper==ffge) ze
0000A0: 72 6F 6A 75 6D 70 28 67 65 30 2C 20 6C 61 62 65 rojump(ge0, labe
0000B0: 6C 2C 20 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 65 l, lval);.. e
0000C0: 6C 73 65 20 69 66 20 28 6F 70 65 72 3D 3D 75 67 lse if (oper==ug
0000D0: 65 29 20 20 63 6C 65 61 72 73 74 61 67 65 28 6C e) clearstage(l
0000E0: 76 61 6C 5B 37 5D 2C 30 29 3B 0D 0A 20 20 20 20 val[7],0);..
0000F0: 65 6C 73 65 20 69 66 20 28 6F 70 65 72 3D 3D 66 else if (oper==f
000100: 66 6C 74 29 20 7A 65 72 6F 6A 75 6D 70 28 6C 74 flt) zerojump(lt
000110: 30 2C 20 6C 61 62 65 6C 2C 20 6C 76 61 6C 29 3B 0, label, lval);
000120: 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 20 28 6F .. else if (o
000130: 70 65 72 3D 3D 75 6C 74 29 20 20 7A 65 72 6F 6A per==ult) zeroj
000140: 75 6D 70 28 75 6C 74 30 2C 20 6C 61 62 65 6C 2C ump(ult0, label,
000150: 20 6C 76 61 6C 29 3B 0D 0A 20 20 20 20 65 6C 73 lval);.. els
000160: 65 20 69 66 20 28 6F 70 65 72 3D 3D 66 66 6C 65 e if (oper==ffle
000170: 29 20 7A 65 72 6F 6A 75 6D 70 28 6C 65 30 2C 20 ) zerojump(le0,
000180: 6C 61 62 65 6C 2C 20 6C 76 61 6C 29 3B 0D 0A 20 label, lval);..
000190: 20 20 20 65 6C 73 65 20 20 20 20 20 20 20 20 20 else
0001A0: 20 20 20 20 20 20 20 20 74 65 73 74 6A 75 6D 70 testjump
0001B0: 28 6C 61 62 65 6C 29 3B 0D 0A 20 20 20 20 7D 0D (label);.. }.
0001C0: 0A 20 20 65 6C 73 65 20 74 65 73 74 6A 75 6D 70 . else testjump
0001D0: 28 6C 61 62 65 6C 29 3B 0D 0A 20 20 63 6C 65 61 (label);.. clea
0001E0: 72 73 74 61 67 65 28 62 65 66 6F 72 65 2C 20 73 rstage(before, s
0001F0: 74 61 72 74 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 63 tart);.. }....c
Size : 512 (Real : 512)
000000: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 7B 0D 0A }.. else {..
000010: 20 20 20 20 20 20 70 75 73 68 28 29 3B 0D 0A 20 push();..
000020: 20 20 20 20 20 65 78 70 72 65 73 73 69 6F 6E 28 expression(
000030: 26 63 6F 6E 73 74 2C 20 26 76 61 6C 29 3B 0D 0A &const, &val);..
000040: 20 20 20 20 20 20 73 77 61 70 73 74 6B 28 29 3B swapstk();
000050: 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 6E .. }.. n
000060: 61 72 67 73 3D 6E 61 72 67 73 2B 42 50 57 3B 09 args=nargs+BPW;.
000070: 09 09 2F 2A 20 63 6F 75 6E 74 20 61 72 67 73 2A ../* count args*
000080: 42 50 57 20 2A 2F 0D 0A 20 20 20 20 69 66 20 28 BPW */.. if (
000090: 6D 61 74 63 68 28 22 2C 22 29 3D 3D 30 29 20 62 match(",")==0) b
0000A0: 72 65 61 6B 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 reak;.. }..
0000B0: 6E 65 65 64 74 6F 6B 65 6E 28 22 29 22 29 3B 0D needtoken(")");.
0000C0: 0A 20 20 69 66 28 73 74 72 65 71 28 70 74 72 2B . if(streq(ptr+
0000D0: 4E 41 4D 45 2C 20 22 43 43 41 52 47 43 22 29 3D NAME, "CCARGC")=
0000E0: 3D 30 29 20 6C 6F 61 64 61 72 67 63 28 6E 61 72 =0) loadargc(nar
0000F0: 67 73 3E 3E 4C 42 50 57 29 3B 0D 0A 20 20 69 66 gs>>LBPW);.. if
000100: 28 70 74 72 29 20 66 66 63 61 6C 6C 28 70 74 72 (ptr) ffcall(ptr
000110: 2B 4E 41 4D 45 29 3B 0D 0A 20 20 65 6C 73 65 20 +NAME);.. else
000120: 63 61 6C 6C 73 74 6B 28 29 3B 0D 0A 20 20 63 73 callstk();.. cs
000130: 70 3D 6D 6F 64 73 74 6B 28 63 73 70 2B 6E 61 72 p=modstk(csp+nar
000140: 67 73 2C 20 59 45 53 29 3B 0D 0A 20 20 7D 0D 0A gs, YES);.. }..
000150: 0D 0A 3E 3E 3E 20 43 43 33 33 2E 43 20 34 31 35 ..>>> CC33.C 415
000160: 32 0D 0A 2F 2A 0D 0A 2A 2A 20 74 72 75 65 20 69 2../*..** true i
000170: 66 20 76 61 6C 31 20 2D 3E 20 69 6E 74 20 70 6F f val1 -> int po
000180: 69 6E 74 65 72 20 6F 72 20 69 6E 74 20 61 72 72 inter or int arr
000190: 61 79 20 61 6E 64 20 76 61 6C 32 20 6E 6F 74 20 ay and val2 not
0001A0: 70 74 72 20 6F 72 20 61 72 72 61 79 0D 0A 2A 2F ptr or array..*/
0001B0: 0D 0A 64 62 6C 74 65 73 74 28 6F 70 65 72 2C 20 ..dbltest(oper,
0001C0: 76 61 6C 31 2C 20 76 61 6C 32 29 20 69 6E 74 20 val1, val2) int
0001D0: 28 2A 6F 70 65 72 29 28 29 2C 20 76 61 6C 31 5B (*oper)(), val1[
0001E0: 5D 2C 20 76 61 6C 32 5B 5D 3B 20 7B 0D 0A 20 20 ], val2[]; {..
0001F0: 69 66 28 28 6F 70 65 72 21 3D 66 66 61 64 64 29 if((oper!=ffadd)
Size : 512 (Real : 512)
000000: 6F 6E 73 74 65 78 70 72 28 76 61 6C 29 20 69 6E onstexpr(val) in
000010: 74 20 2A 76 61 6C 3B 20 7B 0D 0A 20 20 69 6E 74 t *val; {.. int
000020: 20 63 6F 6E 73 74 3B 0D 0A 20 20 63 68 61 72 20 const;.. char
000030: 2A 62 65 66 6F 72 65 2C 20 2A 73 74 61 72 74 3B *before, *start;
000040: 0D 0A 20 20 73 65 74 73 74 61 67 65 28 26 62 65 .. setstage(&be
000050: 66 6F 72 65 2C 20 26 73 74 61 72 74 29 3B 0D 0A fore, &start);..
000060: 20 20 65 78 70 72 65 73 73 69 6F 6E 28 26 63 6F expression(&co
000070: 6E 73 74 2C 20 76 61 6C 29 3B 0D 0A 20 20 63 6C nst, val);.. cl
000080: 65 61 72 73 74 61 67 65 28 62 65 66 6F 72 65 2C earstage(before,
000090: 20 30 29 3B 09 2F 2A 20 73 63 72 61 74 63 68 20 0);./* scratch
0000A0: 67 65 6E 65 72 61 74 65 64 20 63 6F 64 65 20 2A generated code *
0000B0: 2F 0D 0A 20 20 69 66 28 63 6F 6E 73 74 3D 3D 30 /.. if(const==0
0000C0: 29 20 65 72 72 6F 72 28 22 6D 75 73 74 20 62 65 ) error("must be
0000D0: 20 63 6F 6E 73 74 61 6E 74 20 65 78 70 72 65 73 constant expres
0000E0: 73 69 6F 6E 22 29 3B 0D 0A 20 20 72 65 74 75 72 sion");.. retur
0000F0: 6E 20 63 6F 6E 73 74 3B 0D 0A 20 20 7D 0D 0A 0D n const;.. }...
000100: 0A 63 6F 6E 73 74 28 76 61 6C 29 20 69 6E 74 20 .const(val) int
000110: 76 61 6C 3B 20 7B 0D 0A 20 20 69 6D 6D 65 64 28 val; {.. immed(
000120: 29 3B 0D 0A 20 20 6F 75 74 64 65 63 28 76 61 6C );.. outdec(val
000130: 29 3B 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D );.. nl();.. }
000140: 0D 0A 0D 0A 63 6F 6E 73 74 32 28 76 61 6C 29 20 ....const2(val)
000150: 69 6E 74 20 76 61 6C 3B 20 7B 0D 0A 20 20 69 6D int val; {.. im
000160: 6D 65 64 32 28 29 3B 0D 0A 20 20 6F 75 74 64 65 med2();.. outde
000170: 63 28 76 61 6C 29 3B 0D 0A 20 20 6E 6C 28 29 3B c(val);.. nl();
000180: 0D 0A 20 20 7D 0D 0A 0D 0A 63 6F 6E 73 74 61 6E .. }....constan
000190: 74 28 6C 76 61 6C 29 20 20 69 6E 74 20 6C 76 61 t(lval) int lva
0001A0: 6C 5B 5D 3B 20 7B 0D 0A 20 20 6C 76 61 6C 3D 6C l[]; {.. lval=l
0001B0: 76 61 6C 2B 33 3B 0D 0A 20 20 2A 6C 76 61 6C 3D val+3;.. *lval=
0001C0: 31 3B 09 09 09 2F 2A 20 61 73 73 75 6D 65 20 69 1;.../* assume i
0001D0: 74 20 77 69 6C 6C 20 62 65 20 61 20 63 6F 6E 73 t will be a cons
0001E0: 74 61 6E 74 20 2A 2F 0D 0A 20 20 69 66 20 28 6E tant */.. if (n
0001F0: 75 6D 62 65 72 28 2B 2B 6C 76 61 6C 29 29 20 69 umber(++lval)) i
Size : 512 (Real : 512)
000000: 79 20 61 73 73 65 6D 62 6C 65 72 20 73 74 75 66 y assembler stuf
000010: 66 20 6E 65 65 64 65 64 20 61 74 20 74 68 65 20 f needed at the
000020: 65 6E 64 0D 0A 2A 2F 0D 0A 74 72 61 69 6C 65 72 end..*/..trailer
000030: 28 29 20 20 7B 20 20 0D 0A 23 69 66 6E 64 65 66 () { ..#ifndef
000040: 20 4C 49 4E 4B 0D 0A 20 20 69 66 28 28 62 65 67 LINK.. if((beg
000050: 6C 61 62 20 3D 3D 20 31 29 7C 28 62 65 67 6C 61 lab == 1)|(begla
000060: 62 20 3E 20 39 30 30 30 29 29 20 7B 0D 0A 20 20 b > 9000)) {..
000070: 20 20 2F 2A 20 69 6D 70 6C 65 6D 65 6E 74 61 74 /* implementat
000080: 69 6F 6E 20 64 65 70 65 6E 64 65 6E 74 20 74 72 ion dependent tr
000090: 61 69 6C 65 72 20 63 6F 64 65 20 67 6F 65 73 20 ailer code goes
0000A0: 68 65 72 65 20 2A 2F 0D 0A 20 20 20 20 7D 0D 0A here */.. }..
0000B0: 23 65 6C 73 65 0D 0A 20 20 63 68 61 72 20 2A 70 #else.. char *p
0000C0: 74 72 3B 0D 0A 20 20 63 70 74 72 3D 53 54 41 52 tr;.. cptr=STAR
0000D0: 54 47 4C 42 3B 0D 0A 20 20 77 68 69 6C 65 28 63 TGLB;.. while(c
0000E0: 70 74 72 3C 45 4E 44 47 4C 42 29 20 7B 0D 0A 20 ptr<ENDGLB) {..
0000F0: 20 20 20 69 66 28 63 70 74 72 5B 49 44 45 4E 54 if(cptr[IDENT
000100: 5D 3D 3D 46 55 4E 43 54 49 4F 4E 20 26 26 20 63 ]==FUNCTION && c
000110: 70 74 72 5B 43 4C 41 53 53 5D 3D 3D 41 55 54 4F ptr[CLASS]==AUTO
000120: 45 58 54 29 0D 0A 20 20 20 20 20 20 65 78 74 65 EXT).. exte
000130: 72 6E 61 6C 28 63 70 74 72 2B 4E 41 4D 45 29 3B rnal(cptr+NAME);
000140: 0D 0A 20 20 20 20 63 70 74 72 2B 3D 53 59 4D 4D .. cptr+=SYMM
000150: 41 58 3B 0D 0A 20 20 20 20 7D 0D 0A 23 69 66 64 AX;.. }..#ifd
000160: 65 66 20 55 50 50 45 52 0D 0A 20 20 69 66 28 28 ef UPPER.. if((
000170: 70 74 72 3D 66 69 6E 64 67 6C 62 28 22 4D 41 49 ptr=findglb("MAI
000180: 4E 22 29 29 20 26 26 20 28 70 74 72 5B 4F 46 46 N")) && (ptr[OFF
000190: 53 45 54 5D 3D 3D 46 55 4E 43 54 49 4F 4E 29 29 SET]==FUNCTION))
0001A0: 0D 0A 23 65 6C 73 65 0D 0A 20 20 69 66 28 28 70 ..#else.. if((p
0001B0: 74 72 3D 66 69 6E 64 67 6C 62 28 22 6D 61 69 6E tr=findglb("main
0001C0: 22 29 29 20 26 26 20 28 70 74 72 5B 4F 46 46 53 ")) && (ptr[OFFS
0001D0: 45 54 5D 3D 3D 46 55 4E 43 54 49 4F 4E 29 29 0D ET]==FUNCTION)).
0001E0: 0A 23 65 6E 64 69 66 0D 0A 20 20 20 20 65 78 74 .#endif.. ext
0001F0: 65 72 6E 61 6C 28 22 55 6C 69 6E 6B 22 29 3B 09 ernal("Ulink");.
Size : 512 (Real : 512)
000000: 6D 6D 65 64 28 29 3B 0D 0A 20 20 65 6C 73 65 20 mmed();.. else
000010: 69 66 20 28 70 73 74 72 28 6C 76 61 6C 29 29 20 if (pstr(lval))
000020: 69 6D 6D 65 64 28 29 3B 0D 0A 20 20 65 6C 73 65 immed();.. else
000030: 20 69 66 20 28 71 73 74 72 28 6C 76 61 6C 29 29 if (qstr(lval))
000040: 20 7B 0D 0A 20 20 20 20 2A 28 6C 76 61 6C 2D 31 {.. *(lval-1
000050: 29 3D 30 3B 09 09 2F 2A 20 6E 6F 70 65 2C 20 69 )=0;../* nope, i
000060: 74 27 73 20 61 20 73 74 72 69 6E 67 20 61 64 64 t's a string add
000070: 72 65 73 73 20 2A 2F 0D 0A 20 20 20 20 69 6D 6D ress */.. imm
000080: 65 64 28 29 3B 0D 0A 20 20 20 20 70 72 69 6E 74 ed();.. print
000090: 6C 61 62 65 6C 28 6C 69 74 6C 61 62 29 3B 0D 0A label(litlab);..
0000A0: 20 20 20 20 6F 75 74 62 79 74 65 28 27 2B 27 29 outbyte('+')
0000B0: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 ;.. }.. else
0000C0: 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 6F 75 return 0;.. ou
0000D0: 74 64 65 63 28 2A 6C 76 61 6C 29 3B 0D 0A 20 20 tdec(*lval);..
0000E0: 6E 6C 28 29 3B 0D 0A 20 20 72 65 74 75 72 6E 20 nl();.. return
0000F0: 31 3B 0D 0A 20 20 7D 0D 0A 0D 0A 6E 75 6D 62 65 1;.. }....numbe
000100: 72 28 76 61 6C 29 20 20 69 6E 74 20 76 61 6C 5B r(val) int val[
000110: 5D 3B 20 7B 0D 0A 20 20 69 6E 74 20 6B 2C 20 6D ]; {.. int k, m
000120: 69 6E 75 73 3B 0D 0A 20 20 6B 3D 6D 69 6E 75 73 inus;.. k=minus
000130: 3D 30 3B 0D 0A 20 20 77 68 69 6C 65 28 31 29 20 =0;.. while(1)
000140: 7B 0D 0A 20 20 20 20 69 66 28 6D 61 74 63 68 28 {.. if(match(
000150: 22 2B 22 29 29 20 3B 0D 0A 20 20 20 20 65 6C 73 "+")) ;.. els
000160: 65 20 69 66 28 6D 61 74 63 68 28 22 2D 22 29 29 e if(match("-"))
000170: 20 6D 69 6E 75 73 3D 31 3B 0D 0A 20 20 20 20 65 minus=1;.. e
000180: 6C 73 65 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 lse break;..
000190: 7D 0D 0A 20 20 69 66 28 69 73 64 69 67 69 74 28 }.. if(isdigit(
0001A0: 63 68 29 3D 3D 30 29 72 65 74 75 72 6E 20 30 3B ch)==0)return 0;
0001B0: 0D 0A 20 20 77 68 69 6C 65 20 28 69 73 64 69 67 .. while (isdig
0001C0: 69 74 28 63 68 29 29 20 6B 3D 6B 2A 31 30 2B 28 it(ch)) k=k*10+(
0001D0: 69 6E 62 79 74 65 28 29 2D 27 30 27 29 3B 0D 0A inbyte()-'0');..
0001E0: 20 20 69 66 20 28 6D 69 6E 75 73 29 20 6B 3D 28 if (minus) k=(
0001F0: 2D 6B 29 3B 0D 0A 20 20 76 61 6C 5B 30 5D 3D 6B -k);.. val[0]=k
Size : 512 (Real : 512)
000000: 2F 2A 20 6C 69 6E 6B 20 74 6F 20 6C 69 62 72 61 /* link to libra
000010: 72 79 20 66 75 6E 63 74 69 6F 6E 73 20 2A 2F 0D ry functions */.
000020: 0A 23 65 6E 64 69 66 0D 0A 20 20 6F 6C 28 22 45 .#endif.. ol("E
000030: 4E 44 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A ND");.. }..../*
000040: 0D 0A 2A 2A 20 6C 6F 61 64 20 23 20 61 72 67 73 ..** load # args
000050: 20 62 65 66 6F 72 65 20 66 75 6E 63 74 69 6F 6E before function
000060: 20 63 61 6C 6C 0D 0A 2A 2F 0D 0A 6C 6F 61 64 61 call..*/..loada
000070: 72 67 63 28 76 61 6C 29 20 69 6E 74 20 76 61 6C rgc(val) int val
000080: 3B 20 7B 0D 0A 20 20 69 66 28 73 65 61 72 63 68 ; {.. if(search
000090: 28 22 4E 4F 43 43 41 52 47 43 22 2C 20 6D 61 63 ("NOCCARGC", mac
0000A0: 6E 2C 20 4E 41 4D 45 53 49 5A 45 2B 32 2C 20 4D n, NAMESIZE+2, M
0000B0: 41 43 4E 45 4E 44 2C 20 4D 41 43 4E 42 52 2C 20 ACNEND, MACNBR,
0000C0: 30 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 69 66 0)==0) {.. if
0000D0: 28 76 61 6C 29 20 7B 0D 0A 20 20 20 20 20 20 6F (val) {.. o
0000E0: 74 28 22 4D 56 49 20 41 2C 22 29 3B 0D 0A 20 20 t("MVI A,");..
0000F0: 20 20 20 20 6F 75 74 64 65 63 28 76 61 6C 29 3B outdec(val);
000100: 0D 0A 20 20 20 20 20 20 6E 6C 28 29 3B 0D 0A 20 .. nl();..
000110: 20 20 20 20 20 7D 0D 0A 20 20 20 20 65 6C 73 65 }.. else
000120: 20 6F 6C 28 22 58 52 41 20 41 22 29 3B 0D 0A 20 ol("XRA A");..
000130: 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D }.. }..../*.
000140: 0A 2A 2A 20 64 65 63 6C 61 72 65 20 65 6E 74 72 .** declare entr
000150: 79 20 70 6F 69 6E 74 0D 0A 2A 2F 0D 0A 65 6E 74 y point..*/..ent
000160: 72 79 28 29 20 7B 0D 0A 20 20 6F 75 74 73 74 72 ry() {.. outstr
000170: 28 73 73 6E 61 6D 65 29 3B 0D 0A 20 20 63 6F 6C (ssname);.. col
000180: 28 29 3B 0D 0A 23 69 66 64 65 66 20 4C 49 4E 4B ();..#ifdef LINK
000190: 0D 0A 20 20 63 6F 6C 28 29 3B 0D 0A 23 65 6E 64 .. col();..#end
0001A0: 69 66 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D if.. nl();.. }
0001B0: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 64 65 63 6C 61 ..../*..** decla
0001C0: 72 65 20 65 78 74 65 72 6E 61 6C 20 72 65 66 65 re external refe
0001D0: 72 65 6E 63 65 0D 0A 2A 2F 0D 0A 65 78 74 65 72 rence..*/..exter
0001E0: 6E 61 6C 28 6E 61 6D 65 29 20 63 68 61 72 20 2A nal(name) char *
0001F0: 6E 61 6D 65 3B 20 7B 0D 0A 23 69 66 64 65 66 20 name; {..#ifdef
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 72 65 74 75 72 6E 20 31 3B 0D 0A ;.. return 1;..
000010: 20 20 7D 0D 0A 0D 0A 61 64 64 72 65 73 73 28 70 }....address(p
000020: 74 72 29 20 63 68 61 72 20 2A 70 74 72 3B 20 7B tr) char *ptr; {
000030: 0D 0A 20 20 69 6D 6D 65 64 28 29 3B 0D 0A 20 20 .. immed();..
000040: 6F 75 74 73 74 72 28 70 74 72 2B 4E 41 4D 45 29 outstr(ptr+NAME)
000050: 3B 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D 0D ;.. nl();.. }.
000060: 0A 0D 0A 70 73 74 72 28 76 61 6C 29 20 20 69 6E ...pstr(val) in
000070: 74 20 76 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 69 6E t val[]; {.. in
000080: 74 20 6B 3B 0D 0A 20 20 6B 3D 30 3B 0D 0A 20 20 t k;.. k=0;..
000090: 69 66 20 28 6D 61 74 63 68 28 22 27 22 29 3D 3D if (match("'")==
0000A0: 30 29 20 72 65 74 75 72 6E 20 30 3B 0D 0A 20 20 0) return 0;..
0000B0: 77 68 69 6C 65 28 63 68 21 3D 33 39 29 20 20 20 while(ch!=39)
0000C0: 20 6B 3D 28 6B 26 32 35 35 29 2A 32 35 36 20 2B k=(k&255)*256 +
0000D0: 20 28 6C 69 74 63 68 61 72 28 29 26 32 35 35 29 (litchar()&255)
0000E0: 3B 0D 0A 20 20 67 63 68 28 29 3B 0D 0A 20 20 76 ;.. gch();.. v
0000F0: 61 6C 5B 30 5D 3D 6B 3B 0D 0A 20 20 72 65 74 75 al[0]=k;.. retu
000100: 72 6E 20 31 3B 0D 0A 20 20 7D 0D 0A 0D 0A 71 73 rn 1;.. }....qs
000110: 74 72 28 76 61 6C 29 20 20 69 6E 74 20 76 61 6C tr(val) int val
000120: 5B 5D 3B 20 7B 0D 0A 20 20 63 68 61 72 20 63 3B []; {.. char c;
000130: 0D 0A 20 20 69 66 20 28 6D 61 74 63 68 28 71 75 .. if (match(qu
000140: 6F 74 65 29 3D 3D 30 29 20 72 65 74 75 72 6E 20 ote)==0) return
000150: 30 3B 0D 0A 20 20 76 61 6C 5B 30 5D 3D 6C 69 74 0;.. val[0]=lit
000160: 70 74 72 3B 0D 0A 20 20 77 68 69 6C 65 20 28 63 ptr;.. while (c
000170: 68 21 3D 27 22 27 29 20 7B 0D 0A 20 20 20 20 69 h!='"') {.. i
000180: 66 28 63 68 3D 3D 30 29 20 62 72 65 61 6B 3B 0D f(ch==0) break;.
000190: 0A 20 20 20 20 73 74 6F 77 6C 69 74 28 6C 69 74 . stowlit(lit
0001A0: 63 68 61 72 28 29 2C 20 31 29 3B 0D 0A 20 20 20 char(), 1);..
0001B0: 20 7D 0D 0A 20 20 67 63 68 28 29 3B 0D 0A 20 20 }.. gch();..
0001C0: 6C 69 74 71 5B 6C 69 74 70 74 72 2B 2B 5D 3D 30 litq[litptr++]=0
0001D0: 3B 0D 0A 20 20 72 65 74 75 72 6E 20 31 3B 0D 0A ;.. return 1;..
0001E0: 20 20 7D 0D 0A 0D 0A 73 74 6F 77 6C 69 74 28 76 }....stowlit(v
0001F0: 61 6C 75 65 2C 20 73 69 7A 65 29 20 69 6E 74 20 alue, size) int
Size : 512 (Real : 512)
000000: 4C 49 4E 4B 0D 0A 20 20 6F 74 28 22 45 58 54 20 LINK.. ot("EXT
000010: 22 29 3B 0D 0A 20 20 6F 6C 28 6E 61 6D 65 29 3B ");.. ol(name);
000020: 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 7D 0D 0A 0D ..#endif.. }...
000030: 0A 2F 2A 0D 0A 2A 2A 20 66 65 74 63 68 20 6F 62 ./*..** fetch ob
000040: 6A 65 63 74 20 69 6E 64 69 72 65 63 74 20 74 6F ject indirect to
000050: 20 70 72 69 6D 61 72 79 20 72 65 67 69 73 74 65 primary registe
000060: 72 0D 0A 2A 2F 0D 0A 69 6E 64 69 72 65 63 74 28 r..*/..indirect(
000070: 6C 76 61 6C 29 20 69 6E 74 20 6C 76 61 6C 5B 5D lval) int lval[]
000080: 3B 20 7B 0D 0A 20 20 69 66 28 6C 76 61 6C 5B 31 ; {.. if(lval[1
000090: 5D 3D 3D 43 43 48 41 52 29 20 66 66 63 61 6C 6C ]==CCHAR) ffcall
0000A0: 28 22 43 43 47 43 48 41 52 23 23 22 29 3B 0D 0A ("CCGCHAR##");..
0000B0: 20 20 65 6C 73 65 20 20 20 20 20 20 20 20 20 20 else
0000C0: 20 20 20 20 20 66 66 63 61 6C 6C 28 22 43 43 47 ffcall("CCG
0000D0: 49 4E 54 23 23 22 29 3B 0D 0A 20 20 7D 0D 0A 0D INT##");.. }...
0000E0: 0A 2F 2A 0D 0A 2A 2A 20 66 65 74 63 68 20 61 20 ./*..** fetch a
0000F0: 73 74 61 74 69 63 20 6D 65 6D 6F 72 79 20 63 65 static memory ce
000100: 6C 6C 20 69 6E 74 6F 20 70 72 69 6D 61 72 79 20 ll into primary
000110: 72 65 67 69 73 74 65 72 0D 0A 2A 2F 0D 0A 67 65 register..*/..ge
000120: 74 6D 65 6D 28 6C 76 61 6C 29 20 20 69 6E 74 20 tmem(lval) int
000130: 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 63 68 61 lval[]; {.. cha
000140: 72 20 2A 73 79 6D 3B 0D 0A 20 20 73 79 6D 3D 6C r *sym;.. sym=l
000150: 76 61 6C 5B 30 5D 3B 0D 0A 20 20 69 66 28 28 73 val[0];.. if((s
000160: 79 6D 5B 49 44 45 4E 54 5D 21 3D 50 4F 49 4E 54 ym[IDENT]!=POINT
000170: 45 52 29 26 28 73 79 6D 5B 54 59 50 45 5D 3D 3D ER)&(sym[TYPE]==
000180: 43 43 48 41 52 29 29 20 7B 0D 0A 20 20 20 20 6F CCHAR)) {.. o
000190: 74 28 22 4C 44 41 20 22 29 3B 0D 0A 20 20 20 20 t("LDA ");..
0001A0: 6F 75 74 73 74 72 28 73 79 6D 2B 4E 41 4D 45 29 outstr(sym+NAME)
0001B0: 3B 0D 0A 20 20 20 20 6E 6C 28 29 3B 0D 0A 20 20 ;.. nl();..
0001C0: 20 20 66 66 63 61 6C 6C 28 22 43 43 53 58 54 23 ffcall("CCSXT#
0001D0: 23 22 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 #");.. }.. e
0001E0: 6C 73 65 20 7B 0D 0A 20 20 20 20 6F 74 28 22 4C lse {.. ot("L
0001F0: 48 4C 44 20 22 29 3B 0D 0A 20 20 20 20 6F 75 74 HLD ");.. out
Size : 512 (Real : 512)
000000: 76 61 6C 75 65 2C 20 73 69 7A 65 3B 20 7B 0D 0A value, size; {..
000010: 20 20 69 66 28 28 6C 69 74 70 74 72 2B 73 69 7A if((litptr+siz
000020: 65 29 20 3E 3D 20 4C 49 54 4D 41 58 29 20 7B 0D e) >= LITMAX) {.
000030: 0A 20 20 20 20 65 72 72 6F 72 28 22 6C 69 74 65 . error("lite
000040: 72 61 6C 20 71 75 65 75 65 20 6F 76 65 72 66 6C ral queue overfl
000050: 6F 77 22 29 3B 20 61 62 6F 72 74 28 45 52 52 43 ow"); abort(ERRC
000060: 4F 44 45 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 ODE);.. }..
000070: 70 75 74 69 6E 74 28 76 61 6C 75 65 2C 20 6C 69 putint(value, li
000080: 74 71 2B 6C 69 74 70 74 72 2C 20 73 69 7A 65 29 tq+litptr, size)
000090: 3B 0D 0A 20 20 6C 69 74 70 74 72 3D 6C 69 74 70 ;.. litptr=litp
0000A0: 74 72 2B 73 69 7A 65 3B 0D 0A 20 20 7D 0D 0A 0D tr+size;.. }...
0000B0: 0A 2F 2A 0D 0A 2A 2A 20 72 65 74 75 72 6E 20 63 ./*..** return c
0000C0: 75 72 72 65 6E 74 20 6C 69 74 65 72 61 6C 20 63 urrent literal c
0000D0: 68 61 72 20 26 20 62 75 6D 70 20 6C 70 74 72 0D har & bump lptr.
0000E0: 0A 2A 2F 0D 0A 6C 69 74 63 68 61 72 28 29 20 7B .*/..litchar() {
0000F0: 0D 0A 20 20 69 6E 74 20 69 2C 20 6F 63 74 3B 0D .. int i, oct;.
000100: 0A 20 20 69 66 28 28 63 68 21 3D 39 32 29 7C 28 . if((ch!=92)|(
000110: 6E 63 68 3D 3D 30 29 29 20 72 65 74 75 72 6E 20 nch==0)) return
000120: 67 63 68 28 29 3B 0D 0A 20 20 67 63 68 28 29 3B gch();.. gch();
000130: 0D 0A 20 20 69 66 28 63 68 3D 3D 27 6E 27 29 20 .. if(ch=='n')
000140: 7B 67 63 68 28 29 3B 20 72 65 74 75 72 6E 20 4E {gch(); return N
000150: 45 57 4C 49 4E 45 3B 7D 0D 0A 20 20 69 66 28 63 EWLINE;}.. if(c
000160: 68 3D 3D 27 74 27 29 20 7B 67 63 68 28 29 3B 20 h=='t') {gch();
000170: 72 65 74 75 72 6E 20 20 39 3B 7D 20 2F 2A 20 48 return 9;} /* H
000180: 54 20 2A 2F 0D 0A 20 20 69 66 28 63 68 3D 3D 27 T */.. if(ch=='
000190: 62 27 29 20 7B 67 63 68 28 29 3B 20 72 65 74 75 b') {gch(); retu
0001A0: 72 6E 20 20 38 3B 7D 20 2F 2A 20 42 53 20 2A 2F rn 8;} /* BS */
0001B0: 0D 0A 20 20 69 66 28 63 68 3D 3D 27 66 27 29 20 .. if(ch=='f')
0001C0: 7B 67 63 68 28 29 3B 20 72 65 74 75 72 6E 20 31 {gch(); return 1
0001D0: 32 3B 7D 20 2F 2A 20 46 46 20 2A 2F 0D 0A 20 20 2;} /* FF */..
0001E0: 69 3D 33 3B 20 6F 63 74 3D 30 3B 0D 0A 20 20 77 i=3; oct=0;.. w
0001F0: 68 69 6C 65 28 28 28 69 2D 2D 29 3E 30 29 26 28 hile(((i--)>0)&(
Size : 512 (Real : 512)
000000: 73 74 72 28 73 79 6D 2B 4E 41 4D 45 29 3B 0D 0A str(sym+NAME);..
000010: 20 20 20 20 6E 6C 28 29 3B 0D 0A 20 20 20 20 7D nl();.. }
000020: 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 .. }..../*..**
000030: 66 65 74 63 68 20 61 64 64 72 20 6F 66 20 74 68 fetch addr of th
000040: 65 20 73 70 65 63 69 66 69 65 64 20 73 79 6D 62 e specified symb
000050: 6F 6C 20 69 6E 74 6F 20 70 72 69 6D 61 72 79 20 ol into primary
000060: 72 65 67 69 73 74 65 72 0D 0A 2A 2F 0D 0A 67 65 register..*/..ge
000070: 74 6C 6F 63 28 73 79 6D 29 20 20 63 68 61 72 20 tloc(sym) char
000080: 2A 73 79 6D 3B 20 7B 0D 0A 20 20 63 6F 6E 73 74 *sym; {.. const
000090: 28 67 65 74 69 6E 74 28 73 79 6D 2B 4F 46 46 53 (getint(sym+OFFS
0000A0: 45 54 2C 20 4F 46 46 53 49 5A 45 29 2D 63 73 70 ET, OFFSIZE)-csp
0000B0: 29 3B 0D 0A 20 20 6F 6C 28 22 44 41 44 20 53 50 );.. ol("DAD SP
0000C0: 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A ");.. }..../*..
0000D0: 2A 2A 20 73 74 6F 72 65 20 70 72 69 6D 61 72 79 ** store primary
0000E0: 20 72 65 67 69 73 74 65 72 20 69 6E 74 6F 20 73 register into s
0000F0: 74 61 74 69 63 20 63 65 6C 6C 0D 0A 2A 2F 0D 0A tatic cell..*/..
000100: 70 75 74 6D 65 6D 28 6C 76 61 6C 29 20 20 69 6E putmem(lval) in
000110: 74 20 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A 20 20 63 t lval[]; {.. c
000120: 68 61 72 20 2A 73 79 6D 3B 0D 0A 20 20 73 79 6D har *sym;.. sym
000130: 3D 6C 76 61 6C 5B 30 5D 3B 0D 0A 20 20 69 66 28 =lval[0];.. if(
000140: 28 73 79 6D 5B 49 44 45 4E 54 5D 21 3D 50 4F 49 (sym[IDENT]!=POI
000150: 4E 54 45 52 29 26 28 73 79 6D 5B 54 59 50 45 5D NTER)&(sym[TYPE]
000160: 3D 3D 43 43 48 41 52 29 29 20 7B 0D 0A 20 20 20 ==CCHAR)) {..
000170: 20 6F 6C 28 22 4D 4F 56 20 41 2C 4C 22 29 3B 0D ol("MOV A,L");.
000180: 0A 20 20 20 20 6F 74 28 22 53 54 41 20 22 29 3B . ot("STA ");
000190: 0D 0A 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 20 .. }.. else
0001A0: 6F 74 28 22 53 48 4C 44 20 22 29 3B 0D 0A 20 20 ot("SHLD ");..
0001B0: 6F 75 74 73 74 72 28 73 79 6D 2B 4E 41 4D 45 29 outstr(sym+NAME)
0001C0: 3B 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D 0D ;.. nl();.. }.
0001D0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 70 75 74 20 6F 6E .../*..** put on
0001E0: 20 74 68 65 20 73 74 61 63 6B 20 74 68 65 20 74 the stack the t
0001F0: 79 70 65 20 6F 62 6A 65 63 74 20 69 6E 20 70 72 ype object in pr
Size : 512 (Real : 512)
000000: 63 68 3E 3D 27 30 27 29 26 28 63 68 3C 3D 27 37 ch>='0')&(ch<='7
000010: 27 29 29 20 6F 63 74 3D 28 6F 63 74 3C 3C 33 29 ')) oct=(oct<<3)
000020: 2B 67 63 68 28 29 2D 27 30 27 3B 0D 0A 20 20 69 +gch()-'0';.. i
000030: 66 28 69 3D 3D 32 29 20 72 65 74 75 72 6E 20 67 f(i==2) return g
000040: 63 68 28 29 3B 20 65 6C 73 65 20 72 65 74 75 72 ch(); else retur
000050: 6E 20 6F 63 74 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E n oct;.. }....>
000060: 3E 3E 20 43 43 34 2E 43 20 32 34 34 0D 0A 2F 2A >> CC4.C 244../*
000070: 0D 0A 2A 2A 20 53 6D 61 6C 6C 2D 43 20 43 6F 6D ..** Small-C Com
000080: 70 69 6C 65 72 20 50 61 72 74 20 34 0D 0A 2A 2F piler Part 4..*/
000090: 0D 0A 23 69 6E 63 6C 75 64 65 20 3C 73 74 64 69 ..#include <stdi
0000A0: 6F 2E 68 3E 0D 0A 23 69 6E 63 6C 75 64 65 20 22 o.h>..#include "
0000B0: 63 63 2E 64 65 66 22 0D 0A 0D 0A 65 78 74 65 72 cc.def"....exter
0000C0: 6E 20 63 68 61 72 0D 0A 20 2A 6D 61 63 6E 2C 0D n char.. *macn,.
0000D0: 0A 20 2A 63 70 74 72 2C 20 2A 73 79 6D 74 61 62 . *cptr, *symtab
0000E0: 2C 0D 0A 23 69 66 64 65 66 20 4F 50 54 49 4D 49 ,..#ifdef OPTIMI
0000F0: 5A 45 0D 0A 20 6F 70 74 69 6D 69 7A 65 2C 0D 0A ZE.. optimize,..
000100: 23 65 6E 64 69 66 0D 0A 20 2A 73 74 61 67 65 6E #endif.. *stagen
000110: 65 78 74 2C 20 73 73 6E 61 6D 65 5B 4E 41 4D 45 ext, ssname[NAME
000120: 53 49 5A 45 5D 3B 0D 0A 65 78 74 65 72 6E 20 69 SIZE];..extern i
000130: 6E 74 0D 0A 20 62 65 67 6C 61 62 2C 20 20 63 73 nt.. beglab, cs
000140: 70 2C 20 6F 75 74 70 75 74 3B 0D 0A 0D 0A 23 69 p, output;....#i
000150: 6E 63 6C 75 64 65 20 22 63 63 34 31 2E 63 22 0D nclude "cc41.c".
000160: 0A 23 69 6E 63 6C 75 64 65 20 22 63 63 34 32 2E .#include "cc42.
000170: 63 22 0D 0A 3E 3E 3E 20 43 43 34 31 2E 43 20 35 c"..>>> CC41.C 5
000180: 31 39 36 0D 0A 2F 2A 0D 0A 2A 2A 20 70 72 69 6E 196../*..** prin
000190: 74 20 61 6C 6C 20 61 73 73 65 6D 62 6C 65 72 20 t all assembler
0001A0: 69 6E 66 6F 20 62 65 66 6F 72 65 20 61 6E 79 20 info before any
0001B0: 63 6F 64 65 20 69 73 20 67 65 6E 65 72 61 74 65 code is generate
0001C0: 64 0D 0A 2A 2F 0D 0A 68 65 61 64 65 72 28 29 20 d..*/..header()
0001D0: 20 7B 0D 0A 20 20 62 65 67 6C 61 62 3D 67 65 74 {.. beglab=get
0001E0: 6C 61 62 65 6C 28 29 3B 0D 0A 20 20 7D 0D 0A 0D label();.. }...
0001F0: 0A 2F 2A 0D 0A 2A 2A 20 70 72 69 6E 74 20 61 6E ./*..** print an
Size : 512 (Real : 512)
000000: 69 6D 61 72 79 20 72 65 67 69 73 74 65 72 0D 0A imary register..
000010: 2A 2F 0D 0A 70 75 74 73 74 6B 28 6C 76 61 6C 29 */..putstk(lval)
000020: 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A int lval[]; {..
000030: 20 20 69 66 28 6C 76 61 6C 5B 31 5D 3D 3D 43 43 if(lval[1]==CC
000040: 48 41 52 29 20 7B 0D 0A 20 20 20 20 6F 6C 28 22 HAR) {.. ol("
000050: 4D 4F 56 20 41 2C 4C 22 29 3B 0D 0A 20 20 20 20 MOV A,L");..
000060: 6F 6C 28 22 53 54 41 58 20 44 22 29 3B 0D 0A 20 ol("STAX D");..
000070: 20 20 20 7D 0D 0A 20 20 65 6C 73 65 20 66 66 63 }.. else ffc
000080: 61 6C 6C 28 22 43 43 50 49 4E 54 23 23 22 29 3B all("CCPINT##");
000090: 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 .. }..../*..**
0000A0: 6D 6F 76 65 20 70 72 69 6D 61 72 79 20 72 65 67 move primary reg
0000B0: 69 73 74 65 72 20 74 6F 20 73 65 63 6F 6E 64 61 ister to seconda
0000C0: 72 79 0D 0A 2A 2F 0D 0A 6D 6F 76 65 28 29 20 7B ry..*/..move() {
0000D0: 0D 0A 20 20 6F 6C 28 22 4D 4F 56 20 44 2C 48 22 .. ol("MOV D,H"
0000E0: 29 3B 0D 0A 20 20 6F 6C 28 22 4D 4F 56 20 45 2C );.. ol("MOV E,
0000F0: 4C 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D L");.. }..../*.
000100: 0A 2A 2A 20 73 77 61 70 20 70 72 69 6D 61 72 79 .** swap primary
000110: 20 61 6E 64 20 73 65 63 6F 6E 64 61 72 79 20 72 and secondary r
000120: 65 67 69 73 74 65 72 73 0D 0A 2A 2F 0D 0A 73 77 egisters..*/..sw
000130: 61 70 28 29 20 7B 0D 0A 20 20 6F 6C 28 22 58 43 ap() {.. ol("XC
000140: 48 47 3B 3B 22 29 3B 09 09 2F 2A 20 70 65 65 70 HG;;");../* peep
000150: 68 6F 6C 65 28 29 20 75 73 65 73 20 74 72 61 69 hole() uses trai
000160: 6C 69 6E 67 20 22 3B 3B 22 20 2A 2F 0D 0A 20 20 ling ";;" */..
000170: 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 70 61 72 74 }..../*..** part
000180: 69 61 6C 20 69 6E 73 74 72 75 63 74 69 6F 6E 20 ial instruction
000190: 74 6F 20 67 65 74 20 69 6D 6D 65 64 69 61 74 65 to get immediate
0001A0: 20 76 61 6C 75 65 0D 0A 2A 2A 20 69 6E 74 6F 20 value..** into
0001B0: 74 68 65 20 70 72 69 6D 61 72 79 20 72 65 67 69 the primary regi
0001C0: 73 74 65 72 0D 0A 2A 2F 0D 0A 69 6D 6D 65 64 28 ster..*/..immed(
0001D0: 29 20 7B 0D 0A 20 20 6F 74 28 22 4C 58 49 20 48 ) {.. ot("LXI H
0001E0: 2C 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D ,");.. }..../*.
0001F0: 0A 2A 2A 20 70 61 72 74 69 61 6C 20 69 6E 73 74 .** partial inst
Size : 512 (Real : 512)
000000: 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 .. }..../*..**
000010: 70 6F 69 6E 74 20 74 6F 20 66 6F 6C 6C 6F 77 69 point to followi
000020: 6E 67 20 6F 62 6A 65 63 74 28 73 29 0D 0A 2A 2F ng object(s)..*/
000030: 0D 0A 70 6F 69 6E 74 28 29 20 7B 0D 0A 20 20 6F ..point() {.. o
000040: 6C 28 22 44 57 20 24 2B 32 22 29 3B 0D 0A 20 20 l("DW $+2");..
000050: 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 6D 6F 64 69 }..../*..** modi
000060: 66 79 20 73 74 61 63 6B 20 70 6F 69 6E 74 65 72 fy stack pointer
000070: 20 74 6F 20 76 61 6C 75 65 20 67 69 76 65 6E 0D to value given.
000080: 0A 2A 2F 0D 0A 6D 6F 64 73 74 6B 28 6E 65 77 73 .*/..modstk(news
000090: 70 2C 20 73 61 76 65 29 20 20 69 6E 74 20 6E 65 p, save) int ne
0000A0: 77 73 70 2C 20 73 61 76 65 3B 20 7B 0D 0A 20 20 wsp, save; {..
0000B0: 69 6E 74 20 6B 3B 0D 0A 20 20 6B 3D 6E 65 77 73 int k;.. k=news
0000C0: 70 2D 63 73 70 3B 0D 0A 20 20 69 66 28 6B 3D 3D p-csp;.. if(k==
0000D0: 30 29 72 65 74 75 72 6E 20 6E 65 77 73 70 3B 0D 0)return newsp;.
0000E0: 0A 20 20 69 66 28 6B 3E 3D 30 29 20 7B 0D 0A 20 . if(k>=0) {..
0000F0: 20 20 20 69 66 28 6B 3C 37 29 20 7B 0D 0A 20 20 if(k<7) {..
000100: 20 20 20 20 69 66 28 6B 26 31 29 20 7B 0D 0A 20 if(k&1) {..
000110: 20 20 20 20 20 20 20 6F 6C 28 22 49 4E 58 20 53 ol("INX S
000120: 50 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 6B 2D P");.. k-
000130: 2D 3B 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 -;.. }..
000140: 20 20 20 20 20 77 68 69 6C 65 28 6B 29 20 7B 0D while(k) {.
000150: 0A 20 20 20 20 20 20 20 20 6F 6C 28 22 50 4F 50 . ol("POP
000160: 20 42 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 6B B");.. k
000170: 3D 6B 2D 42 50 57 3B 0D 0A 20 20 20 20 20 20 20 =k-BPW;..
000180: 20 7D 0D 0A 20 20 20 20 20 20 72 65 74 75 72 6E }.. return
000190: 20 6E 65 77 73 70 3B 0D 0A 20 20 20 20 20 20 7D newsp;.. }
0001A0: 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 66 28 6B 3C .. }.. if(k<
0001B0: 30 29 20 7B 0D 0A 20 20 20 20 69 66 28 6B 3E 2D 0) {.. if(k>-
0001C0: 37 29 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 6B 7) {.. if(k
0001D0: 26 31 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 6F &1) {.. o
0001E0: 6C 28 22 44 43 58 20 53 50 22 29 3B 0D 0A 20 20 l("DCX SP");..
0001F0: 20 20 20 20 20 20 6B 2B 2B 3B 0D 0A 20 20 20 20 k++;..
Size : 512 (Real : 512)
000000: 72 75 63 74 69 6F 6E 20 74 6F 20 67 65 74 20 69 ruction to get i
000010: 6D 6D 65 64 69 61 74 65 20 6F 70 65 72 61 6E 64 mmediate operand
000020: 0D 0A 2A 2A 20 69 6E 74 6F 20 73 65 63 6F 6E 64 ..** into second
000030: 61 72 79 20 72 65 67 69 73 74 65 72 0D 0A 2A 2F ary register..*/
000040: 0D 0A 69 6D 6D 65 64 32 28 29 20 7B 0D 0A 20 20 ..immed2() {..
000050: 6F 74 28 22 4C 58 49 20 44 2C 22 29 3B 0D 0A 20 ot("LXI D,");..
000060: 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 70 75 73 }..../*..** pus
000070: 68 20 70 72 69 6D 61 72 79 20 72 65 67 69 73 74 h primary regist
000080: 65 72 20 6F 6E 74 6F 20 73 74 61 63 6B 0D 0A 2A er onto stack..*
000090: 2F 0D 0A 70 75 73 68 28 29 20 7B 0D 0A 20 20 6F /..push() {.. o
0000A0: 6C 28 22 50 55 53 48 20 48 22 29 3B 0D 0A 20 20 l("PUSH H");..
0000B0: 63 73 70 3D 63 73 70 2D 42 50 57 3B 0D 0A 20 20 csp=csp-BPW;..
0000C0: 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 75 6E 70 75 }..../*..** unpu
0000D0: 73 68 20 6F 72 20 70 6F 70 20 61 73 20 72 65 71 sh or pop as req
0000E0: 75 69 72 65 64 0D 0A 2A 2F 0D 0A 73 6D 61 72 74 uired..*/..smart
0000F0: 70 6F 70 28 6C 76 61 6C 2C 20 73 74 61 72 74 29 pop(lval, start)
000100: 20 69 6E 74 20 6C 76 61 6C 5B 5D 3B 20 63 68 61 int lval[]; cha
000110: 72 20 2A 73 74 61 72 74 3B 20 7B 0D 0A 20 20 69 r *start; {.. i
000120: 66 28 6C 76 61 6C 5B 35 5D 29 20 20 70 6F 70 28 f(lval[5]) pop(
000130: 29 3B 09 09 2F 2A 20 73 65 63 6F 6E 64 61 72 79 );../* secondary
000140: 20 77 61 73 20 75 73 65 64 20 2A 2F 0D 0A 20 20 was used */..
000150: 65 6C 73 65 20 75 6E 70 75 73 68 28 73 74 61 72 else unpush(star
000160: 74 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A t);.. }..../*..
000170: 2A 2A 20 72 65 70 6C 61 63 65 20 61 20 70 75 73 ** replace a pus
000180: 68 20 77 69 74 68 20 61 20 73 77 61 70 0D 0A 2A h with a swap..*
000190: 2F 0D 0A 75 6E 70 75 73 68 28 64 65 73 74 29 20 /..unpush(dest)
0001A0: 63 68 61 72 20 2A 64 65 73 74 3B 20 7B 0D 0A 20 char *dest; {..
0001B0: 20 69 6E 74 20 69 3B 0D 0A 20 20 63 68 61 72 20 int i;.. char
0001C0: 2A 73 6F 75 72 3B 0D 0A 20 20 73 6F 75 72 3D 22 *sour;.. sour="
0001D0: 58 43 48 47 3B 3B 22 3B 09 09 2F 2A 20 70 65 65 XCHG;;";../* pee
0001E0: 70 68 6F 6C 65 28 29 20 75 73 65 73 20 74 72 61 phole() uses tra
0001F0: 69 6C 69 6E 67 20 22 3B 3B 22 20 2A 2F 0D 0A 20 iling ";;" */..
Size : 512 (Real : 512)
000000: 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 77 68 69 }.. whi
000010: 6C 65 28 6B 29 20 7B 0D 0A 20 20 20 20 20 20 20 le(k) {..
000020: 20 6F 6C 28 22 50 55 53 48 20 42 22 29 3B 0D 0A ol("PUSH B");..
000030: 20 20 20 20 20 20 20 20 6B 3D 6B 2B 42 50 57 3B k=k+BPW;
000040: 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 .. }..
000050: 20 20 20 72 65 74 75 72 6E 20 6E 65 77 73 70 3B return newsp;
000060: 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 7D .. }.. }
000070: 0D 0A 20 20 69 66 28 73 61 76 65 29 20 73 77 61 .. if(save) swa
000080: 70 28 29 3B 0D 0A 20 20 63 6F 6E 73 74 28 6B 29 p();.. const(k)
000090: 3B 0D 0A 20 20 6F 6C 28 22 44 41 44 20 53 50 22 ;.. ol("DAD SP"
0000A0: 29 3B 0D 0A 20 20 6F 6C 28 22 53 50 48 4C 22 29 );.. ol("SPHL")
0000B0: 3B 0D 0A 20 20 69 66 28 73 61 76 65 29 20 73 77 ;.. if(save) sw
0000C0: 61 70 28 29 3B 0D 0A 20 20 72 65 74 75 72 6E 20 ap();.. return
0000D0: 6E 65 77 73 70 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F newsp;.. }..../
0000E0: 2A 0D 0A 2A 2A 20 64 6F 75 62 6C 65 20 70 72 69 *..** double pri
0000F0: 6D 61 72 79 20 72 65 67 69 73 74 65 72 0D 0A 2A mary register..*
000100: 2F 0D 0A 64 6F 75 62 6C 65 72 65 67 28 29 20 7B /..doublereg() {
000110: 6F 6C 28 22 44 41 44 20 48 22 29 3B 7D 0D 0A 0D ol("DAD H");}...
000120: 0A 3E 3E 3E 20 43 43 34 32 2E 43 20 35 36 31 35 .>>> CC42.C 5615
000130: 0D 0A 2F 2A 0D 0A 2A 2A 20 61 64 64 20 70 72 69 ../*..** add pri
000140: 6D 61 72 79 20 61 6E 64 20 73 65 63 6F 6E 64 61 mary and seconda
000150: 72 79 20 72 65 67 69 73 74 65 72 73 20 28 72 65 ry registers (re
000160: 73 75 6C 74 20 69 6E 20 70 72 69 6D 61 72 79 29 sult in primary)
000170: 0D 0A 2A 2F 0D 0A 66 66 61 64 64 28 29 20 7B 6F ..*/..ffadd() {o
000180: 6C 28 22 44 41 44 20 44 22 29 3B 7D 0D 0A 0D 0A l("DAD D");}....
000190: 2F 2A 0D 0A 2A 2A 20 73 75 62 74 72 61 63 74 20 /*..** subtract
0001A0: 70 72 69 6D 61 72 79 20 66 72 6F 6D 20 73 65 63 primary from sec
0001B0: 6F 6E 64 61 72 79 20 72 65 67 69 73 74 65 72 20 ondary register
0001C0: 28 72 65 73 75 6C 74 20 69 6E 20 70 72 69 6D 61 (result in prima
0001D0: 72 79 29 0D 0A 2A 2F 0D 0A 66 66 73 75 62 28 29 ry)..*/..ffsub()
0001E0: 20 7B 66 66 63 61 6C 6C 28 22 43 43 53 55 42 23 {ffcall("CCSUB#
0001F0: 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 #");}..../*..**
Size : 512 (Real : 512)
000000: 20 77 68 69 6C 65 28 2A 73 6F 75 72 29 20 2A 64 while(*sour) *d
000010: 65 73 74 2B 2B 20 3D 20 2A 73 6F 75 72 2B 2B 3B est++ = *sour++;
000020: 0D 0A 20 20 73 6F 75 72 3D 73 74 61 67 65 6E 65 .. sour=stagene
000030: 78 74 3B 0D 0A 20 20 77 68 69 6C 65 28 2D 2D 73 xt;.. while(--s
000040: 6F 75 72 20 3E 20 64 65 73 74 29 20 7B 09 2F 2A our > dest) {./*
000050: 20 61 64 6A 75 73 74 20 73 74 61 63 6B 20 72 65 adjust stack re
000060: 66 65 72 65 6E 63 65 73 20 2A 2F 0D 0A 20 20 20 ferences */..
000070: 20 69 66 28 73 74 72 65 71 28 73 6F 75 72 2C 22 if(streq(sour,"
000080: 44 41 44 20 53 50 22 29 29 20 7B 0D 0A 20 20 20 DAD SP")) {..
000090: 20 20 20 2D 2D 73 6F 75 72 3B 0D 0A 20 20 20 20 --sour;..
0000A0: 20 20 69 3D 42 50 57 3B 0D 0A 20 20 20 20 20 20 i=BPW;..
0000B0: 77 68 69 6C 65 28 69 73 64 69 67 69 74 28 2A 28 while(isdigit(*(
0000C0: 2D 2D 73 6F 75 72 29 29 29 20 7B 0D 0A 20 20 20 --sour))) {..
0000D0: 20 20 20 20 20 69 66 28 28 2A 73 6F 75 72 20 3D if((*sour =
0000E0: 20 2A 73 6F 75 72 2D 69 29 20 3C 20 27 30 27 29 *sour-i) < '0')
0000F0: 20 7B 0D 0A 20 20 20 20 20 20 20 20 20 20 2A 73 {.. *s
000100: 6F 75 72 20 3D 20 2A 73 6F 75 72 2B 31 30 3B 0D our = *sour+10;.
000110: 0A 20 20 20 20 20 20 20 20 20 20 69 3D 31 3B 0D . i=1;.
000120: 0A 20 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 . }..
000130: 20 20 20 20 20 20 65 6C 73 65 20 69 3D 30 3B 0D else i=0;.
000140: 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 . }..
000150: 20 20 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 63 73 }.. }.. cs
000160: 70 3D 63 73 70 2B 42 50 57 3B 0D 0A 20 20 7D 0D p=csp+BPW;.. }.
000170: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 70 6F 70 20 73 74 .../*..** pop st
000180: 61 63 6B 20 74 6F 20 74 68 65 20 73 65 63 6F 6E ack to the secon
000190: 64 61 72 79 20 72 65 67 69 73 74 65 72 0D 0A 2A dary register..*
0001A0: 2F 0D 0A 70 6F 70 28 29 20 7B 0D 0A 20 20 6F 6C /..pop() {.. ol
0001B0: 28 22 50 4F 50 20 44 22 29 3B 0D 0A 20 20 63 73 ("POP D");.. cs
0001C0: 70 3D 63 73 70 2B 42 50 57 3B 0D 0A 20 20 7D 0D p=csp+BPW;.. }.
0001D0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 73 77 61 70 20 70 .../*..** swap p
0001E0: 72 69 6D 61 72 79 20 72 65 67 69 73 74 65 72 20 rimary register
0001F0: 61 6E 64 20 73 74 61 63 6B 0D 0A 2A 2F 0D 0A 73 and stack..*/..s
Size : 512 (Real : 512)
000000: 6D 75 6C 74 69 70 6C 79 20 70 72 69 6D 61 72 79 multiply primary
000010: 20 61 6E 64 20 73 65 63 6F 6E 64 61 72 79 20 72 and secondary r
000020: 65 67 69 73 74 65 72 73 20 28 72 65 73 75 6C 74 egisters (result
000030: 20 69 6E 20 70 72 69 6D 61 72 79 29 0D 0A 2A 2F in primary)..*/
000040: 0D 0A 66 66 6D 75 6C 74 28 29 20 7B 66 66 63 61 ..ffmult() {ffca
000050: 6C 6C 28 22 43 43 4D 55 4C 54 23 23 22 29 3B 7D ll("CCMULT##");}
000060: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 64 69 76 69 64 ..../*..** divid
000070: 65 20 73 65 63 6F 6E 64 61 72 79 20 62 79 20 70 e secondary by p
000080: 72 69 6D 61 72 79 20 72 65 67 69 73 74 65 72 0D rimary register.
000090: 0A 2A 2A 20 28 71 75 6F 74 69 65 6E 74 20 69 6E .** (quotient in
0000A0: 20 70 72 69 6D 61 72 79 2C 20 72 65 6D 61 69 6E primary, remain
0000B0: 64 65 72 20 69 6E 20 73 65 63 6F 6E 64 61 72 79 der in secondary
0000C0: 29 0D 0A 2A 2F 0D 0A 66 66 64 69 76 28 29 20 7B )..*/..ffdiv() {
0000D0: 66 66 63 61 6C 6C 28 22 43 43 44 49 56 23 23 22 ffcall("CCDIV##"
0000E0: 29 3B 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 72 65 );}..../*..** re
0000F0: 6D 61 69 6E 64 65 72 20 6F 66 20 73 65 63 6F 6E mainder of secon
000100: 64 61 72 79 2F 70 72 69 6D 61 72 79 0D 0A 2A 2A dary/primary..**
000110: 20 28 72 65 6D 61 69 6E 64 65 72 20 69 6E 20 70 (remainder in p
000120: 72 69 6D 61 72 79 2C 20 71 75 6F 74 69 65 6E 74 rimary, quotient
000130: 20 69 6E 20 73 65 63 6F 6E 64 61 72 79 29 0D 0A in secondary)..
000140: 2A 2F 0D 0A 66 66 6D 6F 64 28 29 20 7B 66 66 64 */..ffmod() {ffd
000150: 69 76 28 29 3B 73 77 61 70 28 29 3B 7D 0D 0A 0D iv();swap();}...
000160: 0A 2F 2A 0D 0A 2A 2A 20 69 6E 63 6C 75 73 69 76 ./*..** inclusiv
000170: 65 20 22 6F 72 22 20 70 72 69 6D 61 72 79 20 61 e "or" primary a
000180: 6E 64 20 73 65 63 6F 6E 64 61 72 79 20 72 65 67 nd secondary reg
000190: 69 73 74 65 72 73 0D 0A 2A 2A 20 28 72 65 73 75 isters..** (resu
0001A0: 6C 74 20 69 6E 20 70 72 69 6D 61 72 79 29 0D 0A lt in primary)..
0001B0: 2A 2F 0D 0A 66 66 6F 72 28 29 20 7B 66 66 63 61 */..ffor() {ffca
0001C0: 6C 6C 28 22 43 43 4F 52 23 23 22 29 3B 7D 0D 0A ll("CCOR##");}..
0001D0: 0D 0A 2F 2A 0D 0A 2A 2A 20 65 78 63 6C 75 73 69 ../*..** exclusi
0001E0: 76 65 20 22 6F 72 22 20 74 68 65 20 70 72 69 6D ve "or" the prim
0001F0: 61 72 79 20 61 6E 64 20 73 65 63 6F 6E 64 61 72 ary and secondar
Size : 512 (Real : 512)
000000: 77 61 70 73 74 6B 28 29 20 7B 0D 0A 20 20 6F 6C wapstk() {.. ol
000010: 28 22 58 54 48 4C 22 29 3B 0D 0A 20 20 7D 0D 0A ("XTHL");.. }..
000020: 0D 0A 2F 2A 0D 0A 2A 2A 20 70 72 6F 63 65 73 73 ../*..** process
000030: 20 73 77 69 74 63 68 20 73 74 61 74 65 6D 65 6E switch statemen
000040: 74 0D 0A 2A 2F 0D 0A 73 77 28 29 20 7B 0D 0A 20 t..*/..sw() {..
000050: 20 66 66 63 61 6C 6C 28 22 43 43 53 57 49 54 43 ffcall("CCSWITC
000060: 48 23 23 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F H##");.. }..../
000070: 2A 0D 0A 2A 2A 20 63 61 6C 6C 20 73 70 65 63 69 *..** call speci
000080: 66 69 65 64 20 73 75 62 72 6F 75 74 69 6E 65 20 fied subroutine
000090: 6E 61 6D 65 0D 0A 2A 2F 0D 0A 66 66 63 61 6C 6C name..*/..ffcall
0000A0: 28 73 6E 61 6D 65 29 20 20 63 68 61 72 20 2A 73 (sname) char *s
0000B0: 6E 61 6D 65 3B 20 7B 0D 0A 20 20 6F 74 28 22 43 name; {.. ot("C
0000C0: 41 4C 4C 20 22 29 3B 0D 0A 20 20 6F 75 74 73 74 ALL ");.. outst
0000D0: 72 28 73 6E 61 6D 65 29 3B 0D 0A 20 20 6E 6C 28 r(sname);.. nl(
0000E0: 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A );.. }..../*..*
0000F0: 2A 20 72 65 74 75 72 6E 20 66 72 6F 6D 20 73 75 * return from su
000100: 62 72 6F 75 74 69 6E 65 0D 0A 2A 2F 0D 0A 66 66 broutine..*/..ff
000110: 72 65 74 28 29 20 7B 0D 0A 20 20 6F 6C 28 22 52 ret() {.. ol("R
000120: 45 54 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A ET");.. }..../*
000130: 0D 0A 2A 2A 20 70 65 72 66 6F 72 6D 20 73 75 62 ..** perform sub
000140: 72 6F 75 74 69 6E 65 20 63 61 6C 6C 20 74 6F 20 routine call to
000150: 76 61 6C 75 65 20 6F 6E 20 73 74 61 63 6B 0D 0A value on stack..
000160: 2A 2F 0D 0A 63 61 6C 6C 73 74 6B 28 29 20 7B 0D */..callstk() {.
000170: 0A 20 20 66 66 63 61 6C 6C 28 22 43 43 44 43 41 . ffcall("CCDCA
000180: 4C 23 23 22 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F L##");.. }..../
000190: 2A 0D 0A 2A 2A 20 6A 75 6D 70 20 74 6F 20 69 6E *..** jump to in
0001A0: 74 65 72 6E 61 6C 20 6C 61 62 65 6C 20 6E 75 6D ternal label num
0001B0: 62 65 72 0D 0A 2A 2F 0D 0A 6A 75 6D 70 28 6C 61 ber..*/..jump(la
0001C0: 62 65 6C 29 20 20 69 6E 74 20 6C 61 62 65 6C 3B bel) int label;
0001D0: 20 7B 0D 0A 20 20 6F 74 28 22 4A 4D 50 20 22 29 {.. ot("JMP ")
0001E0: 3B 0D 0A 20 20 70 72 69 6E 74 6C 61 62 65 6C 28 ;.. printlabel(
0001F0: 6C 61 62 65 6C 29 3B 0D 0A 20 20 6E 6C 28 29 3B label);.. nl();
Size : 512 (Real : 512)
000000: 79 20 72 65 67 69 73 74 65 72 73 0D 0A 2A 2A 20 y registers..**
000010: 28 72 65 73 75 6C 74 20 69 6E 20 70 72 69 6D 61 (result in prima
000020: 72 79 29 0D 0A 2A 2F 0D 0A 66 66 78 6F 72 28 29 ry)..*/..ffxor()
000030: 20 7B 66 66 63 61 6C 6C 28 22 43 43 58 4F 52 23 {ffcall("CCXOR#
000040: 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 #");}..../*..**
000050: 22 61 6E 64 22 20 70 72 69 6D 61 72 79 20 61 6E "and" primary an
000060: 64 20 73 65 63 6F 6E 64 61 72 79 20 72 65 67 69 d secondary regi
000070: 73 74 65 72 73 0D 0A 2A 2A 20 28 72 65 73 75 6C sters..** (resul
000080: 74 20 69 6E 20 70 72 69 6D 61 72 79 29 0D 0A 2A t in primary)..*
000090: 2F 0D 0A 66 66 61 6E 64 28 29 20 7B 66 66 63 61 /..ffand() {ffca
0000A0: 6C 6C 28 22 43 43 41 4E 44 23 23 22 29 3B 7D 0D ll("CCAND##");}.
0000B0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 6C 6F 67 69 63 61 .../*..** logica
0000C0: 6C 20 6E 65 67 61 74 69 6F 6E 20 6F 66 20 70 72 l negation of pr
0000D0: 69 6D 61 72 79 20 72 65 67 69 73 74 65 72 0D 0A imary register..
0000E0: 2A 2F 0D 0A 6C 6E 65 67 28 29 20 7B 66 66 63 61 */..lneg() {ffca
0000F0: 6C 6C 28 22 43 43 4C 4E 45 47 23 23 22 29 3B 7D ll("CCLNEG##");}
000100: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 61 72 69 74 68 ..../*..** arith
000110: 6D 65 74 69 63 20 73 68 69 66 74 20 72 69 67 68 metic shift righ
000120: 74 20 73 65 63 6F 6E 64 61 72 79 20 72 65 67 69 t secondary regi
000130: 73 74 65 72 0D 0A 2A 2A 20 6E 75 6D 62 65 72 20 ster..** number
000140: 6F 66 20 62 69 74 73 20 67 69 76 65 6E 20 69 6E of bits given in
000150: 20 70 72 69 6D 61 72 79 20 72 65 67 69 73 74 65 primary registe
000160: 72 0D 0A 2A 2A 20 28 72 65 73 75 6C 74 20 69 6E r..** (result in
000170: 20 70 72 69 6D 61 72 79 29 0D 0A 2A 2F 0D 0A 66 primary)..*/..f
000180: 66 61 73 72 28 29 20 7B 66 66 63 61 6C 6C 28 22 fasr() {ffcall("
000190: 43 43 41 53 52 23 23 22 29 3B 7D 0D 0A 0D 0A 2F CCASR##");}..../
0001A0: 2A 0D 0A 2A 2A 20 61 72 69 74 68 6D 65 74 69 63 *..** arithmetic
0001B0: 20 73 68 69 66 74 20 6C 65 66 74 20 73 65 63 6F shift left seco
0001C0: 6E 64 61 72 79 20 72 65 67 69 73 74 65 72 0D 0A ndary register..
0001D0: 2A 2A 20 6E 75 6D 62 65 72 20 6F 66 20 62 69 74 ** number of bit
0001E0: 73 20 67 69 76 65 6E 20 69 6E 20 70 72 69 6D 61 s given in prima
0001F0: 72 79 20 72 65 67 69 73 74 65 72 0D 0A 2A 2A 20 ry register..**
Size : 512 (Real : 512)
000000: 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 .. }..../*..**
000010: 74 65 73 74 20 70 72 69 6D 61 72 79 20 72 65 67 test primary reg
000020: 69 73 74 65 72 20 61 6E 64 20 6A 75 6D 70 20 69 ister and jump i
000030: 66 20 66 61 6C 73 65 0D 0A 2A 2F 0D 0A 74 65 73 f false..*/..tes
000040: 74 6A 75 6D 70 28 6C 61 62 65 6C 29 20 20 69 6E tjump(label) in
000050: 74 20 6C 61 62 65 6C 3B 20 7B 0D 0A 20 20 6F 6C t label; {.. ol
000060: 28 22 4D 4F 56 20 41 2C 48 22 29 3B 0D 0A 20 20 ("MOV A,H");..
000070: 6F 6C 28 22 4F 52 41 20 4C 22 29 3B 0D 0A 20 20 ol("ORA L");..
000080: 6F 74 28 22 4A 5A 20 22 29 3B 0D 0A 20 20 70 72 ot("JZ ");.. pr
000090: 69 6E 74 6C 61 62 65 6C 28 6C 61 62 65 6C 29 3B intlabel(label);
0000A0: 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D 0D 0A .. nl();.. }..
0000B0: 0D 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 70 72 ../*..** test pr
0000C0: 69 6D 61 72 79 20 72 65 67 69 73 74 65 72 20 61 imary register a
0000D0: 67 61 69 6E 73 74 20 7A 65 72 6F 20 61 6E 64 20 gainst zero and
0000E0: 6A 75 6D 70 20 69 66 20 66 61 6C 73 65 0D 0A 2A jump if false..*
0000F0: 2F 0D 0A 7A 65 72 6F 6A 75 6D 70 28 6F 70 65 72 /..zerojump(oper
000100: 2C 20 6C 61 62 65 6C 2C 20 6C 76 61 6C 29 20 69 , label, lval) i
000110: 6E 74 20 28 2A 6F 70 65 72 29 28 29 2C 20 6C 61 nt (*oper)(), la
000120: 62 65 6C 2C 20 6C 76 61 6C 5B 5D 3B 20 7B 0D 0A bel, lval[]; {..
000130: 20 20 63 6C 65 61 72 73 74 61 67 65 28 6C 76 61 clearstage(lva
000140: 6C 5B 37 5D 2C 20 30 29 3B 09 2F 2A 20 70 75 72 l[7], 0);./* pur
000150: 67 65 20 63 6F 6E 76 65 6E 74 69 6F 6E 61 6C 20 ge conventional
000160: 63 6F 64 65 20 2A 2F 0D 0A 20 20 28 2A 6F 70 65 code */.. (*ope
000170: 72 29 28 6C 61 62 65 6C 29 3B 0D 0A 20 20 7D 0D r)(label);.. }.
000180: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 64 65 66 69 6E 65 .../*..** define
000190: 20 73 74 6F 72 61 67 65 20 61 63 63 6F 72 64 69 storage accordi
0001A0: 6E 67 20 74 6F 20 73 69 7A 65 0D 0A 2A 2F 0D 0A ng to size..*/..
0001B0: 64 65 66 73 74 6F 72 61 67 65 28 73 69 7A 65 29 defstorage(size)
0001C0: 20 69 6E 74 20 73 69 7A 65 3B 20 7B 0D 0A 20 20 int size; {..
0001D0: 69 66 28 73 69 7A 65 3D 3D 31 29 20 6F 74 28 22 if(size==1) ot("
0001E0: 44 42 20 22 29 3B 0D 0A 20 20 65 6C 73 65 20 20 DB ");.. else
0001F0: 20 20 20 20 20 20 6F 74 28 22 44 57 20 22 29 3B ot("DW ");
Size : 512 (Real : 512)
000000: 28 72 65 73 75 6C 74 20 69 6E 20 70 72 69 6D 61 (result in prima
000010: 72 79 29 0D 0A 2A 2F 0D 0A 66 66 61 73 6C 28 29 ry)..*/..ffasl()
000020: 20 7B 66 66 63 61 6C 6C 28 22 43 43 41 53 4C 23 {ffcall("CCASL#
000030: 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 #");}..../*..**
000040: 74 77 6F 27 73 20 63 6F 6D 70 6C 65 6D 65 6E 74 two's complement
000050: 20 70 72 69 6D 61 72 79 20 72 65 67 69 73 74 65 primary registe
000060: 72 0D 0A 2A 2F 0D 0A 6E 65 67 28 29 20 7B 66 66 r..*/..neg() {ff
000070: 63 61 6C 6C 28 22 43 43 4E 45 47 23 23 22 29 3B call("CCNEG##");
000080: 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 6F 6E 65 27 }..../*..** one'
000090: 73 20 63 6F 6D 70 6C 65 6D 65 6E 74 20 70 72 69 s complement pri
0000A0: 6D 61 72 79 20 72 65 67 69 73 74 65 72 0D 0A 2A mary register..*
0000B0: 2F 0D 0A 63 6F 6D 28 29 20 7B 66 66 63 61 6C 6C /..com() {ffcall
0000C0: 28 22 43 43 43 4F 4D 23 23 22 29 3B 7D 0D 0A 0D ("CCCOM##");}...
0000D0: 0A 2F 2A 0D 0A 2A 2A 20 69 6E 63 72 65 6D 65 6E ./*..** incremen
0000E0: 74 20 70 72 69 6D 61 72 79 20 72 65 67 69 73 74 t primary regist
0000F0: 65 72 20 62 79 20 6F 6E 65 20 6F 62 6A 65 63 74 er by one object
000100: 20 6F 66 20 77 68 61 74 65 76 65 72 20 73 69 7A of whatever siz
000110: 65 0D 0A 2A 2F 0D 0A 69 6E 63 28 6E 29 20 69 6E e..*/..inc(n) in
000120: 74 20 6E 3B 20 7B 0D 0A 20 20 77 68 69 6C 65 28 t n; {.. while(
000130: 31 29 20 7B 0D 0A 20 20 20 20 6F 6C 28 22 49 4E 1) {.. ol("IN
000140: 58 20 48 22 29 3B 0D 0A 20 20 20 20 69 66 28 2D X H");.. if(-
000150: 2D 6E 20 3C 20 31 29 20 62 72 65 61 6B 3B 0D 0A -n < 1) break;..
000160: 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A }.. }..../*
000170: 0D 0A 2A 2A 20 64 65 63 72 65 6D 65 6E 74 20 70 ..** decrement p
000180: 72 69 6D 61 72 79 20 72 65 67 69 73 74 65 72 20 rimary register
000190: 62 79 20 6F 6E 65 20 6F 62 6A 65 63 74 20 6F 66 by one object of
0001A0: 20 77 68 61 74 65 76 65 72 20 73 69 7A 65 0D 0A whatever size..
0001B0: 2A 2F 0D 0A 64 65 63 28 6E 29 20 69 6E 74 20 6E */..dec(n) int n
0001C0: 3B 20 7B 0D 0A 20 20 77 68 69 6C 65 28 31 29 20 ; {.. while(1)
0001D0: 7B 0D 0A 20 20 20 20 6F 6C 28 22 44 43 58 20 48 {.. ol("DCX H
0001E0: 22 29 3B 0D 0A 20 20 20 20 69 66 28 2D 2D 6E 20 ");.. if(--n
0001F0: 3C 20 31 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 < 1) break;..
Size : 512 (Real : 512)
000000: 20 20 20 69 66 28 73 74 72 65 71 28 70 74 72 2B if(streq(ptr+
000010: 32 39 2C 20 22 58 43 48 47 3B 3B 22 29 29 20 7B 29, "XCHG;;")) {
000020: 70 70 32 28 29 3B 70 74 72 3D 70 74 72 2B 33 36 pp2();ptr=ptr+36
000030: 3B 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 20 ;}.. else
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 7B 70 70 31 28 29 3B 70 74 72 {pp1();ptr
000060: 3D 70 74 72 2B 32 39 3B 7D 0D 0A 20 20 20 20 20 =ptr+29;}..
000070: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 28 }.. else if(
000080: 73 74 72 65 71 28 70 74 72 2C 22 4C 58 49 20 48 streq(ptr,"LXI H
000090: 2C 32 5C 6E 44 41 44 20 53 50 5C 6E 43 41 4C 4C ,2\nDAD SP\nCALL
0000A0: 20 43 43 47 49 4E 54 23 23 22 29 29 20 7B 0D 0A CCGINT##")) {..
0000B0: 20 20 20 20 20 20 69 66 28 73 74 72 65 71 28 70 if(streq(p
0000C0: 74 72 2B 32 39 2C 20 22 58 43 48 47 3B 3B 22 29 tr+29, "XCHG;;")
0000D0: 29 20 7B 70 70 33 28 70 70 32 29 3B 70 74 72 3D ) {pp3(pp2);ptr=
0000E0: 70 74 72 2B 33 36 3B 7D 0D 0A 20 20 20 20 20 20 ptr+36;}..
0000F0: 65 6C 73 65 20 20 20 20 20 20 20 20 20 20 20 20 else
000100: 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 70 33 {pp3
000110: 28 70 70 31 29 3B 70 74 72 3D 70 74 72 2B 32 39 (pp1);ptr=ptr+29
000120: 3B 7D 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 ;}.. }..
000130: 20 65 6C 73 65 20 69 66 28 6F 70 74 69 6D 69 7A else if(optimiz
000140: 65 29 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 73 e) {.. if(s
000150: 74 72 65 71 28 70 74 72 2C 20 22 44 41 44 20 53 treq(ptr, "DAD S
000160: 50 5C 6E 43 41 4C 4C 20 43 43 47 49 4E 54 23 23 P\nCALL CCGINT##
000170: 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 6F ")) {.. o
000180: 6C 28 22 43 41 4C 4C 20 43 43 44 53 47 49 23 23 l("CALL CCDSGI##
000190: 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 70 74 72 ");.. ptr
0001A0: 3D 70 74 72 2B 32 31 3B 0D 0A 20 20 20 20 20 20 =ptr+21;..
0001B0: 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 }.. else
0001C0: 69 66 28 73 74 72 65 71 28 70 74 72 2C 20 22 44 if(streq(ptr, "D
0001D0: 41 44 20 44 5C 6E 43 41 4C 4C 20 43 43 47 49 4E AD D\nCALL CCGIN
0001E0: 54 23 23 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 T##")) {..
0001F0: 20 20 6F 6C 28 22 43 41 4C 4C 20 43 43 44 44 47 ol("CALL CCDDG
Size : 512 (Real : 512)
000000: 20 7D 0D 0A 20 20 7D 0D 0A 20 0D 0A 2F 2A 0D 0A }.. }.. ../*..
000010: 2A 2A 20 74 65 73 74 20 66 6F 72 20 65 71 75 61 ** test for equa
000020: 6C 20 74 6F 0D 0A 2A 2F 0D 0A 66 66 65 71 28 29 l to..*/..ffeq()
000030: 20 20 7B 66 66 63 61 6C 6C 28 22 43 43 45 51 23 {ffcall("CCEQ#
000040: 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 #");}..../*..**
000050: 74 65 73 74 20 66 6F 72 20 65 71 75 61 6C 20 74 test for equal t
000060: 6F 20 7A 65 72 6F 0D 0A 2A 2F 0D 0A 65 71 30 28 o zero..*/..eq0(
000070: 6C 61 62 65 6C 29 20 69 6E 74 20 6C 61 62 65 6C label) int label
000080: 3B 20 7B 0D 0A 20 20 6F 6C 28 22 4D 4F 56 20 41 ; {.. ol("MOV A
000090: 2C 48 22 29 3B 0D 0A 20 20 6F 6C 28 22 4F 52 41 ,H");.. ol("ORA
0000A0: 20 4C 22 29 3B 0D 0A 20 20 6F 74 28 22 4A 4E 5A L");.. ot("JNZ
0000B0: 20 22 29 3B 0D 0A 20 20 70 72 69 6E 74 6C 61 62 ");.. printlab
0000C0: 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 20 20 6E 6C el(label);.. nl
0000D0: 28 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A ();.. }..../*..
0000E0: 2A 2A 20 74 65 73 74 20 66 6F 72 20 6E 6F 74 20 ** test for not
0000F0: 65 71 75 61 6C 20 74 6F 0D 0A 2A 2F 0D 0A 66 66 equal to..*/..ff
000100: 6E 65 28 29 20 20 7B 66 66 63 61 6C 6C 28 22 43 ne() {ffcall("C
000110: 43 4E 45 23 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A 0D CNE##");}..../*.
000120: 0A 2A 2A 20 74 65 73 74 20 66 6F 72 20 6E 6F 74 .** test for not
000130: 20 65 71 75 61 6C 20 74 6F 20 7A 65 72 6F 0D 0A equal to zero..
000140: 2A 2F 0D 0A 6E 65 30 28 6C 61 62 65 6C 29 20 69 */..ne0(label) i
000150: 6E 74 20 6C 61 62 65 6C 3B 20 7B 0D 0A 20 20 6F nt label; {.. o
000160: 6C 28 22 4D 4F 56 20 41 2C 48 22 29 3B 0D 0A 20 l("MOV A,H");..
000170: 20 6F 6C 28 22 4F 52 41 20 4C 22 29 3B 0D 0A 20 ol("ORA L");..
000180: 20 6F 74 28 22 4A 5A 20 22 29 3B 0D 0A 20 20 70 ot("JZ ");.. p
000190: 72 69 6E 74 6C 61 62 65 6C 28 6C 61 62 65 6C 29 rintlabel(label)
0001A0: 3B 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D 0D ;.. nl();.. }.
0001B0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 66 .../*..** test f
0001C0: 6F 72 20 6C 65 73 73 20 74 68 61 6E 20 28 73 69 or less than (si
0001D0: 67 6E 65 64 29 0D 0A 2A 2F 0D 0A 66 66 6C 74 28 gned)..*/..fflt(
0001E0: 29 20 20 7B 66 66 63 61 6C 6C 28 22 43 43 4C 54 ) {ffcall("CCLT
0001F0: 23 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ##");}..../*..**
Size : 512 (Real : 512)
000000: 49 23 23 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 I##");..
000010: 70 74 72 3D 70 74 72 2B 32 30 3B 0D 0A 20 20 20 ptr=ptr+20;..
000020: 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C }.. el
000030: 73 65 20 69 66 28 73 74 72 65 71 28 70 74 72 2C se if(streq(ptr,
000040: 20 22 44 41 44 20 53 50 5C 6E 43 41 4C 4C 20 43 "DAD SP\nCALL C
000050: 43 47 43 48 41 52 23 23 22 29 29 20 7B 0D 0A 20 CGCHAR##")) {..
000060: 20 20 20 20 20 20 20 6F 6C 28 22 43 41 4C 4C 20 ol("CALL
000070: 43 43 44 53 47 43 23 23 22 29 3B 0D 0A 20 20 20 CCDSGC##");..
000080: 20 20 20 20 20 70 74 72 3D 70 74 72 2B 32 32 3B ptr=ptr+22;
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 .. }..
0000A0: 20 20 20 20 20 65 6C 73 65 20 69 66 28 73 74 72 else if(str
0000B0: 65 71 28 70 74 72 2C 20 22 44 41 44 20 44 5C 6E eq(ptr, "DAD D\n
0000C0: 43 41 4C 4C 20 43 43 47 43 48 41 52 23 23 22 29 CALL CCGCHAR##")
0000D0: 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 6F 6C 28 ) {.. ol(
0000E0: 22 43 41 4C 4C 20 43 43 44 44 47 43 23 23 22 29 "CALL CCDDGC##")
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 70 74 72 3D 70 ;.. ptr=p
000100: 74 72 2B 32 31 3B 0D 0A 20 20 20 20 20 20 20 20 tr+21;..
000110: 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 69 66 }.. else if
000120: 28 73 74 72 65 71 28 70 74 72 2C 0D 0A 20 20 20 (streq(ptr,..
000130: 20 20 20 20 20 22 44 41 44 20 53 50 5C 6E 4D 4F "DAD SP\nMO
000140: 56 20 44 2C 48 5C 6E 4D 4F 56 20 45 2C 4C 5C 6E V D,H\nMOV E,L\n
000150: 43 41 4C 4C 20 43 43 47 49 4E 54 23 23 5C 6E 49 CALL CCGINT##\nI
000160: 4E 58 20 48 5C 6E 43 41 4C 4C 20 43 43 50 49 4E NX H\nCALL CCPIN
000170: 54 23 23 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 T##")) {..
000180: 20 20 6F 6C 28 22 43 41 4C 4C 20 43 43 49 4E 43 ol("CALL CCINC
000190: 49 23 23 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 I##");..
0001A0: 70 74 72 3D 70 74 72 2B 35 37 3B 0D 0A 20 20 20 ptr=ptr+57;..
0001B0: 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C }.. el
0001C0: 73 65 20 69 66 28 73 74 72 65 71 28 70 74 72 2C se if(streq(ptr,
0001D0: 0D 0A 20 20 20 20 20 20 20 20 22 44 41 44 20 53 .. "DAD S
0001E0: 50 5C 6E 4D 4F 56 20 44 2C 48 5C 6E 4D 4F 56 20 P\nMOV D,H\nMOV
0001F0: 45 2C 4C 5C 6E 43 41 4C 4C 20 43 43 47 49 4E 54 E,L\nCALL CCGINT
Size : 512 (Real : 512)
000000: 20 74 65 73 74 20 66 6F 72 20 6C 65 73 73 20 74 test for less t
000010: 68 61 6E 20 74 6F 20 7A 65 72 6F 0D 0A 2A 2F 0D han to zero..*/.
000020: 0A 6C 74 30 28 6C 61 62 65 6C 29 20 69 6E 74 20 .lt0(label) int
000030: 6C 61 62 65 6C 3B 20 7B 0D 0A 20 20 6F 6C 28 22 label; {.. ol("
000040: 58 52 41 20 41 22 29 3B 0D 0A 20 20 6F 6C 28 22 XRA A");.. ol("
000050: 4F 52 41 20 48 22 29 3B 0D 0A 20 20 6F 74 28 22 ORA H");.. ot("
000060: 4A 50 20 22 29 3B 0D 0A 20 20 70 72 69 6E 74 6C JP ");.. printl
000070: 61 62 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 20 20 abel(label);..
000080: 6E 6C 28 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A nl();.. }..../*
000090: 0D 0A 2A 2A 20 74 65 73 74 20 66 6F 72 20 6C 65 ..** test for le
0000A0: 73 73 20 74 68 61 6E 20 6F 72 20 65 71 75 61 6C ss than or equal
0000B0: 20 74 6F 20 28 73 69 67 6E 65 64 29 0D 0A 2A 2F to (signed)..*/
0000C0: 0D 0A 66 66 6C 65 28 29 20 20 7B 66 66 63 61 6C ..ffle() {ffcal
0000D0: 6C 28 22 43 43 4C 45 23 23 22 29 3B 7D 0D 0A 0D l("CCLE##");}...
0000E0: 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 66 6F 72 ./*..** test for
0000F0: 20 6C 65 73 73 20 74 68 61 6E 20 6F 72 20 65 71 less than or eq
000100: 75 61 6C 20 74 6F 20 7A 65 72 6F 0D 0A 2A 2F 0D ual to zero..*/.
000110: 0A 6C 65 30 28 6C 61 62 65 6C 29 20 69 6E 74 20 .le0(label) int
000120: 6C 61 62 65 6C 3B 20 7B 0D 0A 20 20 6F 6C 28 22 label; {.. ol("
000130: 4D 4F 56 20 41 2C 48 22 29 3B 0D 0A 20 20 6F 6C MOV A,H");.. ol
000140: 28 22 4F 52 41 20 4C 22 29 3B 0D 0A 20 20 6F 6C ("ORA L");.. ol
000150: 28 22 4A 5A 20 24 2B 38 22 29 3B 0D 0A 20 20 6F ("JZ $+8");.. o
000160: 6C 28 22 58 52 41 20 41 22 29 3B 0D 0A 20 20 6F l("XRA A");.. o
000170: 6C 28 22 4F 52 41 20 48 22 29 3B 0D 0A 20 20 6F l("ORA H");.. o
000180: 74 28 22 4A 50 20 22 29 3B 0D 0A 20 20 70 72 69 t("JP ");.. pri
000190: 6E 74 6C 61 62 65 6C 28 6C 61 62 65 6C 29 3B 0D ntlabel(label);.
0001A0: 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 7D 0D 0A 0D . nl();.. }...
0001B0: 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 66 6F 72 ./*..** test for
0001C0: 20 67 72 65 61 74 65 72 20 74 68 61 6E 20 28 73 greater than (s
0001D0: 69 67 6E 65 64 29 0D 0A 2A 2F 0D 0A 66 66 67 74 igned)..*/..ffgt
0001E0: 28 29 20 20 7B 66 66 63 61 6C 6C 28 22 43 43 47 () {ffcall("CCG
0001F0: 54 23 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A T##");}..../*..*
Size : 512 (Real : 512)
000000: 23 23 5C 6E 44 43 58 20 48 5C 6E 43 41 4C 4C 20 ##\nDCX H\nCALL
000010: 43 43 50 49 4E 54 23 23 22 29 29 20 7B 0D 0A 20 CCPINT##")) {..
000020: 20 20 20 20 20 20 20 6F 6C 28 22 43 41 4C 4C 20 ol("CALL
000030: 43 43 44 45 43 49 23 23 22 29 3B 0D 0A 20 20 20 CCDECI##");..
000040: 20 20 20 20 20 70 74 72 3D 70 74 72 2B 35 37 3B ptr=ptr+57;
000050: 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 .. }..
000060: 20 20 20 65 6C 73 65 20 69 66 28 73 74 72 65 71 else if(streq
000070: 28 70 74 72 2C 0D 0A 20 20 20 20 20 20 20 20 22 (ptr,.. "
000080: 44 41 44 20 53 50 5C 6E 4D 4F 56 20 44 2C 48 5C DAD SP\nMOV D,H\
000090: 6E 4D 4F 56 20 45 2C 4C 5C 6E 43 41 4C 4C 20 43 nMOV E,L\nCALL C
0000A0: 43 47 43 48 41 52 23 23 5C 6E 49 4E 58 20 48 5C CGCHAR##\nINX H\
0000B0: 6E 4D 4F 56 20 41 2C 4C 5C 6E 53 54 41 58 20 44 nMOV A,L\nSTAX D
0000C0: 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 6F ")) {.. o
0000D0: 6C 28 22 43 41 4C 4C 20 43 43 49 4E 43 43 23 23 l("CALL CCINCC##
0000E0: 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 70 74 72 ");.. ptr
0000F0: 3D 70 74 72 2B 35 39 3B 0D 0A 20 20 20 20 20 20 =ptr+59;..
000100: 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 }.. else
000110: 69 66 28 73 74 72 65 71 28 70 74 72 2C 0D 0A 20 if(streq(ptr,..
000120: 20 20 20 20 20 20 20 22 44 41 44 20 53 50 5C 6E "DAD SP\n
000130: 4D 4F 56 20 44 2C 48 5C 6E 4D 4F 56 20 45 2C 4C MOV D,H\nMOV E,L
000140: 5C 6E 43 41 4C 4C 20 43 43 47 43 48 41 52 23 23 \nCALL CCGCHAR##
000150: 5C 6E 44 43 58 20 48 5C 6E 4D 4F 56 20 41 2C 4C \nDCX H\nMOV A,L
000160: 5C 6E 53 54 41 58 20 44 22 29 29 20 7B 0D 0A 20 \nSTAX D")) {..
000170: 20 20 20 20 20 20 20 6F 6C 28 22 43 41 4C 4C 20 ol("CALL
000180: 43 43 44 45 43 43 23 23 22 29 3B 0D 0A 20 20 20 CCDECC##");..
000190: 20 20 20 20 20 70 74 72 3D 70 74 72 2B 35 39 3B ptr=ptr+59;
0001A0: 0D 0A 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 .. }..
0001B0: 20 20 20 65 6C 73 65 20 69 66 28 73 74 72 65 71 else if(streq
0001C0: 28 70 74 72 2C 20 22 44 41 44 20 44 5C 6E 50 4F (ptr, "DAD D\nPO
0001D0: 50 20 44 5C 6E 43 41 4C 4C 20 43 43 50 49 4E 54 P D\nCALL CCPINT
0001E0: 23 23 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 ##")) {..
0001F0: 20 6F 6C 28 22 43 41 4C 4C 20 43 44 50 44 50 49 ol("CALL CDPDPI
Size : 512 (Real : 512)
000000: 2A 20 74 65 73 74 20 66 6F 72 20 67 72 65 61 74 * test for great
000010: 65 72 20 74 68 61 6E 20 74 6F 20 7A 65 72 6F 0D er than to zero.
000020: 0A 2A 2F 0D 0A 67 74 30 28 6C 61 62 65 6C 29 20 .*/..gt0(label)
000030: 69 6E 74 20 6C 61 62 65 6C 3B 20 7B 0D 0A 20 20 int label; {..
000040: 6F 6C 28 22 58 52 41 20 41 22 29 3B 0D 0A 20 20 ol("XRA A");..
000050: 6F 6C 28 22 4F 52 41 20 48 22 29 3B 0D 0A 20 20 ol("ORA H");..
000060: 6F 74 28 22 4A 4D 20 22 29 3B 0D 0A 20 20 70 72 ot("JM ");.. pr
000070: 69 6E 74 6C 61 62 65 6C 28 6C 61 62 65 6C 29 3B intlabel(label);
000080: 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 6F 6C 28 .. nl();.. ol(
000090: 22 4F 52 41 20 4C 22 29 3B 0D 0A 20 20 6F 74 28 "ORA L");.. ot(
0000A0: 22 4A 5A 20 22 29 3B 0D 0A 20 20 70 72 69 6E 74 "JZ ");.. print
0000B0: 6C 61 62 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 20 label(label);..
0000C0: 20 6E 6C 28 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F nl();.. }..../
0000D0: 2A 0D 0A 2A 2A 20 74 65 73 74 20 66 6F 72 20 67 *..** test for g
0000E0: 72 65 61 74 65 72 20 74 68 61 6E 20 6F 72 20 65 reater than or e
0000F0: 71 75 61 6C 20 74 6F 20 28 73 69 67 6E 65 64 29 qual to (signed)
000100: 0D 0A 2A 2F 0D 0A 66 66 67 65 28 29 20 20 7B 66 ..*/..ffge() {f
000110: 66 63 61 6C 6C 28 22 43 43 47 45 23 23 22 29 3B fcall("CCGE##");
000120: 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 }..../*..** test
000130: 20 66 6F 72 20 67 74 65 61 74 65 72 20 74 68 61 for gteater tha
000140: 6E 20 6F 72 20 65 71 75 61 6C 20 74 6F 20 7A 65 n or equal to ze
000150: 72 6F 0D 0A 2A 2F 0D 0A 67 65 30 28 6C 61 62 65 ro..*/..ge0(labe
000160: 6C 29 20 69 6E 74 20 6C 61 62 65 6C 3B 20 7B 0D l) int label; {.
000170: 0A 20 20 6F 6C 28 22 58 52 41 20 41 22 29 3B 0D . ol("XRA A");.
000180: 0A 20 20 6F 6C 28 22 4F 52 41 20 48 22 29 3B 0D . ol("ORA H");.
000190: 0A 20 20 6F 74 28 22 4A 4D 20 22 29 3B 0D 0A 20 . ot("JM ");..
0001A0: 20 70 72 69 6E 74 6C 61 62 65 6C 28 6C 61 62 65 printlabel(labe
0001B0: 6C 29 3B 0D 0A 20 20 6E 6C 28 29 3B 0D 0A 20 20 l);.. nl();..
0001C0: 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 }..../*..** test
0001D0: 20 66 6F 72 20 6C 65 73 73 20 74 68 61 6E 20 28 for less than (
0001E0: 75 6E 73 69 67 6E 65 64 29 0D 0A 2A 2F 0D 0A 75 unsigned)..*/..u
0001F0: 6C 74 28 29 20 20 7B 66 66 63 61 6C 6C 28 22 43 lt() {ffcall("C
Size : 512 (Real : 512)
000000: 23 23 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 70 ##");.. p
000010: 74 72 3D 70 74 72 2B 32 36 3B 0D 0A 20 20 20 20 tr=ptr+26;..
000020: 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 65 6C 73 }.. els
000030: 65 20 69 66 28 73 74 72 65 71 28 70 74 72 2C 20 e if(streq(ptr,
000040: 22 44 41 44 20 44 5C 6E 50 4F 50 20 44 5C 6E 4D "DAD D\nPOP D\nM
000050: 4F 56 20 41 2C 4C 5C 6E 53 54 41 58 20 44 22 29 OV A,L\nSTAX D")
000060: 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 6F 6C 28 ) {.. ol(
000070: 22 43 41 4C 4C 20 43 44 50 44 50 43 23 23 22 29 "CALL CDPDPC##")
000080: 3B 0D 0A 20 20 20 20 20 20 20 20 70 74 72 3D 70 ;.. ptr=p
000090: 74 72 2B 32 37 3B 0D 0A 20 20 20 20 20 20 20 20 tr+27;..
0000A0: 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 69 66 }.. else if
0000B0: 28 73 74 72 65 71 28 70 74 72 2C 20 22 50 4F 50 (streq(ptr, "POP
0000C0: 20 44 5C 6E 43 41 4C 4C 20 43 43 50 49 4E 54 23 D\nCALL CCPINT#
0000D0: 23 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 #")) {..
0000E0: 6F 6C 28 22 43 41 4C 4C 20 43 43 50 44 50 49 23 ol("CALL CCPDPI#
0000F0: 23 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 70 74 #");.. pt
000100: 72 3D 70 74 72 2B 32 30 3B 0D 0A 20 20 20 20 20 r=ptr+20;..
000110: 20 20 20 7D 0D 0A 20 20 20 20 20 20 2F 2A 20 61 }.. /* a
000120: 64 64 69 74 69 6F 6E 61 6C 20 6F 70 74 69 6D 69 dditional optimi
000130: 7A 69 6E 67 20 6C 6F 67 69 63 20 67 6F 65 73 20 zing logic goes
000140: 68 65 72 65 20 2A 2F 0D 0A 20 20 20 20 20 20 65 here */.. e
000150: 6C 73 65 20 63 6F 75 74 28 2A 70 74 72 2B 2B 2C lse cout(*ptr++,
000160: 20 6F 75 74 70 75 74 29 3B 0D 0A 20 20 20 20 20 output);..
000170: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 63 6F 75 }.. else cou
000180: 74 28 2A 70 74 72 2B 2B 2C 20 6F 75 74 70 75 74 t(*ptr++, output
000190: 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A );.. }.. }..
0001A0: 0D 0A 70 70 31 28 29 20 7B 0D 0A 20 20 6F 6C 28 ..pp1() {.. ol(
0001B0: 22 50 4F 50 20 48 22 29 3B 0D 0A 20 20 6F 6C 28 "POP H");.. ol(
0001C0: 22 50 55 53 48 20 48 22 29 3B 0D 0A 20 20 7D 0D "PUSH H");.. }.
0001D0: 0A 0D 0A 70 70 32 28 29 20 7B 0D 0A 20 20 6F 6C ...pp2() {.. ol
0001E0: 28 22 50 4F 50 20 44 22 29 3B 0D 0A 20 20 6F 6C ("POP D");.. ol
0001F0: 28 22 50 55 53 48 20 44 22 29 3B 0D 0A 20 20 7D ("PUSH D");.. }
Size : 512 (Real : 512)
000000: 43 55 4C 54 23 23 22 29 3B 7D 0D 0A 0D 0A 2F 2A CULT##");}..../*
000010: 0D 0A 2A 2A 20 74 65 73 74 20 66 6F 72 20 6C 65 ..** test for le
000020: 73 73 20 74 68 61 6E 20 74 6F 20 7A 65 72 6F 20 ss than to zero
000030: 28 75 6E 73 69 67 6E 65 64 29 0D 0A 2A 2F 0D 0A (unsigned)..*/..
000040: 75 6C 74 30 28 6C 61 62 65 6C 29 20 69 6E 74 20 ult0(label) int
000050: 6C 61 62 65 6C 3B 20 7B 0D 0A 20 20 6F 74 28 22 label; {.. ot("
000060: 4A 4D 50 20 22 29 3B 0D 0A 20 20 70 72 69 6E 74 JMP ");.. print
000070: 6C 61 62 65 6C 28 6C 61 62 65 6C 29 3B 0D 0A 20 label(label);..
000080: 20 6E 6C 28 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F nl();.. }..../
000090: 2A 0D 0A 2A 2A 20 74 65 73 74 20 66 6F 72 20 6C *..** test for l
0000A0: 65 73 73 20 74 68 61 6E 20 6F 72 20 65 71 75 61 ess than or equa
0000B0: 6C 20 74 6F 20 28 75 6E 73 69 67 6E 65 64 29 0D l to (unsigned).
0000C0: 0A 2A 2F 0D 0A 75 6C 65 28 29 20 20 7B 66 66 63 .*/..ule() {ffc
0000D0: 61 6C 6C 28 22 43 43 55 4C 45 23 23 22 29 3B 7D all("CCULE##");}
0000E0: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 ..../*..** test
0000F0: 66 6F 72 20 67 72 65 61 74 65 72 20 74 68 61 6E for greater than
000100: 20 28 75 6E 73 69 67 6E 65 64 29 0D 0A 2A 2F 0D (unsigned)..*/.
000110: 0A 75 67 74 28 29 20 20 7B 66 66 63 61 6C 6C 28 .ugt() {ffcall(
000120: 22 43 43 55 47 54 23 23 22 29 3B 7D 0D 0A 0D 0A "CCUGT##");}....
000130: 2F 2A 0D 0A 2A 2A 20 74 65 73 74 20 66 6F 72 20 /*..** test for
000140: 67 72 65 61 74 65 72 20 74 68 61 6E 20 6F 72 20 greater than or
000150: 65 71 75 61 6C 20 74 6F 20 28 75 6E 73 69 67 6E equal to (unsign
000160: 65 64 29 0D 0A 2A 2F 0D 0A 75 67 65 28 29 20 20 ed)..*/..uge()
000170: 7B 66 66 63 61 6C 6C 28 22 43 43 55 47 45 23 23 {ffcall("CCUGE##
000180: 22 29 3B 7D 0D 0A 0D 0A 23 69 66 64 65 66 20 4F ");}....#ifdef O
000190: 50 54 49 4D 49 5A 45 0D 0A 70 65 65 70 68 6F 6C PTIMIZE..peephol
0001A0: 65 28 70 74 72 29 20 63 68 61 72 20 2A 70 74 72 e(ptr) char *ptr
0001B0: 3B 20 7B 0D 0A 20 20 77 68 69 6C 65 28 2A 70 74 ; {.. while(*pt
0001C0: 72 29 20 7B 0D 0A 20 20 20 20 69 66 28 73 74 72 r) {.. if(str
0001D0: 65 71 28 70 74 72 2C 22 4C 58 49 20 48 2C 30 5C eq(ptr,"LXI H,0\
0001E0: 6E 44 41 44 20 53 50 5C 6E 43 41 4C 4C 20 43 43 nDAD SP\nCALL CC
0001F0: 47 49 4E 54 23 23 22 29 29 20 7B 0D 0A 20 20 20 GINT##")) {..
Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 70 70 33 28 70 70 29 20 69 6E 74 20 ....pp3(pp) int
000010: 28 2A 70 70 29 28 29 3B 20 7B 0D 0A 20 20 6F 6C (*pp)(); {.. ol
000020: 28 22 50 4F 50 20 42 22 29 3B 0D 0A 20 20 28 2A ("POP B");.. (*
000030: 70 70 29 28 29 3B 0D 0A 20 20 6F 6C 28 22 50 55 pp)();.. ol("PU
000040: 53 48 20 42 22 29 3B 0D 0A 20 20 7D 0D 0A 23 65 SH B");.. }..#e
000050: 6E 64 69 66 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ndif............
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: 3B 0D 0A 20 20 20 20 20 20 20 20 70 74 72 3D 70 ;.. ptr=p
000090: 74 72 2B 32 37 3B 0D 0A 20 20 20 20 20 20 20 20 tr+27;..
0000A0: 7D 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 69 66 }.. else if
0000B0: 28 73 74 72 65 71 28 70 74 72 2C 20 22 50 4F 50 (streq(ptr, "POP
0000C0: 20 44 5C 6E 43 41 4C 4C 20 43 43 50 49 4E 54 23 D\nCALL CCPINT#
0000D0: 23 22 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 #")) {..
0000E0: 6F 6C 28 22 43 41 4C 4C 20 43 43 50 44 50 49 23 ol("CALL CCPDPI#
0000F0: 23 22 29 3B 0D 0A 20 20 20 20 20 20 20 20 70 74 #");.. pt
000100: 72 3D 70 74 72 2B 32 30 3B 0D 0A 20 20 20 20 20 r=ptr+20;..
000110: 20 20 20 7D 0D 0A 20 20 20 20 20 20 2F 2A 20 61 }.. /* a
000120: 64 64 69 74 69 6F 6E 61 6C 20 6F 70 74 69 6D 69 dditional optimi
000130: 7A 69 6E 67 20 6C 6F 67 69 63 20 67 6F 65 73 20 zing logic goes
000140: 68 65 72 65 20 2A 2F 0D 0A 20 20 20 20 20 20 65 here */.. e
000150: 6C 73 65 20 63 6F 75 74 28 2A 70 74 72 2B 2B 2C lse cout(*ptr++,
000160: 20 6F 75 74 70 75 74 29 3B 0D 0A 20 20 20 20 20 output);..
000170: 20 7D 0D 0A 20 20 20 20 65 6C 73 65 20 63 6F 75 }.. else cou
000180: 74 28 2A 70 74 72 2B 2B 2C 20 6F 75 74 70 75 74 t(*ptr++, output
000190: 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A );.. }.. }..
0001A0: 0D 0A 70 70 31 28 29 20 7B 0D 0A 20 20 6F 6C 28 ..pp1() {.. ol(
0001B0: 22 50 4F 50 20 48 22 29 3B 0D 0A 20 20 6F 6C 28 "POP H");.. ol(
0001C0: 22 50 55 53 48 20 48 22 29 3B 0D 0A 20 20 7D 0D "PUSH H");.. }.
0001D0: 0A 0D 0A 70 70 32 28 29 20 7B 0D 0A 20 20 6F 6C ...pp2() {.. ol
0001E0: 28 22 50 4F 50 20 44 22 29 3B 0D 0A 20 20 6F 6C ("POP D");.. ol
0001F0: 28 22 50 55 53 48 20 44 22 29 3B 0D 0A 20 20 7D ("PUSH D");.. }
Size : 512 (Real : 512)
000000: 3B 20 20 20 2F 2A 20 74 72 75 65 20 69 66 20 63 ; /* true if c
000010: 75 72 72 65 6E 74 20 62 75 66 66 65 72 20 65 6E urrent buffer en
000020: 64 73 20 66 69 6C 65 20 2A 2F 0D 0A 2F 2A 0D 0A ds file */../*..
000030: 2A 2A 20 61 75 78 62 75 66 20 2D 2D 20 61 6C 6C ** auxbuf -- all
000040: 6F 63 61 74 65 20 61 6E 20 61 75 78 69 6C 69 61 ocate an auxilia
000050: 72 79 20 69 6E 70 75 74 20 62 75 66 66 65 72 20 ry input buffer
000060: 66 6F 72 20 66 64 0D 0A 2A 2A 20 20 20 66 64 20 for fd..** fd
000070: 3D 20 66 69 6C 65 20 64 65 73 63 72 69 70 74 6F = file descripto
000080: 72 20 6F 66 20 61 6E 20 6F 70 65 6E 20 66 69 6C r of an open fil
000090: 65 0D 0A 2A 2A 20 73 69 7A 65 20 3D 20 73 69 7A e..** size = siz
0000A0: 65 20 6F 66 20 62 75 66 66 65 72 20 74 6F 20 62 e of buffer to b
0000B0: 65 20 61 6C 6C 6F 63 61 74 65 64 0D 0A 2A 2A 20 e allocated..**
0000C0: 52 65 74 75 72 6E 73 20 4E 55 4C 4C 20 6F 6E 20 Returns NULL on
0000D0: 73 75 63 63 65 73 73 2C 20 65 6C 73 65 20 45 52 success, else ER
0000E0: 52 2E 0D 0A 2A 2A 20 4E 6F 74 65 3A 20 55 6E 67 R...** Note: Ung
0000F0: 65 74 63 28 29 20 73 74 69 6C 6C 20 77 6F 72 6B etc() still work
000100: 73 2E 0D 0A 2A 2A 20 20 20 20 20 20 20 41 20 32 s...** A 2
000110: 6E 64 20 63 61 6C 6C 20 72 65 74 75 72 6E 73 20 nd call returns
000120: 45 52 52 2C 20 62 75 74 20 68 61 73 20 6E 6F 20 ERR, but has no
000130: 65 66 66 65 63 74 2E 0D 0A 2A 2A 20 20 20 20 20 effect...**
000140: 20 20 49 66 20 66 64 20 69 73 20 61 20 64 65 76 If fd is a dev
000150: 69 63 65 2C 20 62 75 66 66 65 72 20 69 73 20 61 ice, buffer is a
000160: 6C 6C 6F 63 61 74 65 64 20 62 75 74 20 69 67 6E llocated but ign
000170: 6F 72 65 64 2E 0D 0A 2A 2A 20 20 20 20 20 20 20 ored...**
000180: 42 75 66 66 65 72 20 73 74 61 79 73 20 61 6C 6C Buffer stays all
000190: 6F 63 61 74 65 64 20 77 68 65 6E 20 66 64 20 69 ocated when fd i
0001A0: 73 20 63 6C 6F 73 65 64 2E 0D 0A 2A 2A 20 20 20 s closed...**
0001B0: 20 20 20 20 44 6F 20 6E 6F 74 20 6D 69 78 20 72 Do not mix r
0001C0: 65 61 64 73 20 61 6E 64 20 77 72 69 74 65 73 20 eads and writes
0001D0: 6F 72 20 70 65 72 66 6F 72 6D 20 73 65 65 6B 73 or perform seeks
0001E0: 20 6F 6E 20 66 64 2E 0D 0A 2A 2F 0D 0A 61 75 78 on fd...*/..aux
0001F0: 62 75 66 28 66 64 2C 20 73 69 7A 65 29 20 69 6E buf(fd, size) in
Size : 512 (Real : 512)
000000: 3E 3E 3E 20 41 42 53 2E 43 20 31 31 36 0D 0A 2F >>> ABS.C 116../
000010: 2A 0D 0A 2A 2A 20 61 62 73 20 2D 2D 20 72 65 74 *..** abs -- ret
000020: 75 72 6E 73 20 61 62 73 6F 6C 75 74 65 20 76 61 urns absolute va
000030: 6C 75 65 20 6F 66 20 6E 62 72 0D 0A 2A 2F 0D 0A lue of nbr..*/..
000040: 61 62 73 28 6E 62 72 29 20 20 69 6E 74 20 6E 62 abs(nbr) int nb
000050: 72 3B 20 7B 0D 0A 20 20 69 66 28 6E 62 72 20 3C r; {.. if(nbr <
000060: 20 30 29 20 72 65 74 75 72 6E 20 28 2D 6E 62 72 0) return (-nbr
000070: 29 3B 0D 0A 20 20 72 65 74 75 72 6E 20 28 6E 62 );.. return (nb
000080: 72 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 41 54 r);.. }..>>> AT
000090: 4F 49 2E 43 20 33 30 38 0D 0A 23 64 65 66 69 6E OI.C 308..#defin
0000A0: 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E e NOCCARGC /* n
0000B0: 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 o argument count
0000C0: 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 2F 2A 0D passing */../*.
0000D0: 0A 2A 2A 20 61 74 6F 69 28 73 29 20 2D 20 63 6F .** atoi(s) - co
0000E0: 6E 76 65 72 74 20 73 20 74 6F 20 69 6E 74 65 67 nvert s to integ
0000F0: 65 72 2E 0D 0A 2A 2F 0D 0A 61 74 6F 69 28 73 29 er...*/..atoi(s)
000100: 20 63 68 61 72 20 2A 73 3B 20 7B 0D 0A 20 20 69 char *s; {.. i
000110: 6E 74 20 73 69 67 6E 2C 20 6E 3B 0D 0A 20 20 77 nt sign, n;.. w
000120: 68 69 6C 65 28 69 73 73 70 61 63 65 28 2A 73 29 hile(isspace(*s)
000130: 29 20 2B 2B 73 3B 0D 0A 20 20 73 69 67 6E 20 3D ) ++s;.. sign =
000140: 20 31 3B 0D 0A 20 20 73 77 69 74 63 68 28 2A 73 1;.. switch(*s
000150: 29 20 7B 0D 0A 20 20 20 20 63 61 73 65 20 27 2D ) {.. case '-
000160: 27 3A 20 73 69 67 6E 20 3D 20 2D 31 3B 0D 0A 20 ': sign = -1;..
000170: 20 20 20 63 61 73 65 20 27 2B 27 3A 20 2B 2B 73 case '+': ++s
000180: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 6E 20 3D 20 ;.. }.. n =
000190: 30 3B 0D 0A 20 20 77 68 69 6C 65 28 69 73 64 69 0;.. while(isdi
0001A0: 67 69 74 28 2A 73 29 29 20 6E 20 3D 20 31 30 20 git(*s)) n = 10
0001B0: 2A 20 6E 20 2B 20 2A 73 2B 2B 20 2D 20 27 30 27 * n + *s++ - '0'
0001C0: 3B 0D 0A 20 20 72 65 74 75 72 6E 20 28 73 69 67 ;.. return (sig
0001D0: 6E 20 2A 20 6E 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E n * n);.. }..>>
0001E0: 3E 20 41 54 4F 49 42 2E 43 20 34 38 34 0D 0A 23 > ATOIB.C 484..#
0001F0: 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 define NOCCARGC
Size : 512 (Real : 512)
000000: 74 20 66 64 3B 20 63 68 61 72 20 2A 73 69 7A 65 t fd; char *size
000010: 3B 20 7B 20 20 20 2F 2A 20 66 61 6B 65 20 75 6E ; { /* fake un
000020: 73 69 67 6E 65 64 20 2A 2F 0D 0A 20 20 69 66 28 signed */.. if(
000030: 21 55 6D 6F 64 65 28 66 64 29 20 7C 7C 20 21 73 !Umode(fd) || !s
000040: 69 7A 65 20 7C 7C 20 61 76 61 69 6C 28 4E 4F 29 ize || avail(NO)
000050: 20 3C 20 73 69 7A 65 20 20 20 7C 7C 20 55 78 73 < size || Uxs
000060: 69 7A 65 5B 66 64 5D 29 0D 0A 20 20 20 20 72 65 ize[fd]).. re
000070: 74 75 72 6E 20 28 45 52 52 29 3B 0D 0A 20 20 55 turn (ERR);.. U
000080: 78 61 64 64 72 5B 66 64 5D 20 3D 20 6D 61 6C 6C xaddr[fd] = mall
000090: 6F 63 28 73 69 7A 65 29 3B 20 55 78 69 6E 69 74 oc(size); Uxinit
0000A0: 28 66 64 29 3B 0D 0A 20 20 55 61 75 78 69 6E 20 (fd);.. Uauxin
0000B0: 3D 20 55 78 69 6E 69 74 3B 20 20 20 20 2F 2A 20 = Uxinit; /*
0000C0: 74 65 6C 6C 20 55 6F 70 65 6E 28 29 20 77 68 65 tell Uopen() whe
0000D0: 72 65 20 55 78 69 6E 69 74 28 29 20 69 73 20 2A re Uxinit() is *
0000E0: 2F 0D 0A 20 20 55 61 75 78 72 64 20 3D 20 55 78 /.. Uauxrd = Ux
0000F0: 72 65 61 64 3B 20 20 20 20 2F 2A 20 74 65 6C 6C read; /* tell
000100: 20 55 72 65 61 64 28 29 20 77 68 65 72 65 20 55 Uread() where U
000110: 78 72 65 61 64 28 29 20 69 73 20 2A 2F 0D 0A 20 xread() is */..
000120: 20 55 61 75 78 77 74 20 3D 20 55 78 77 72 69 74 Uauxwt = Uxwrit
000130: 65 3B 20 20 20 2F 2A 20 74 65 6C 6C 20 55 77 72 e; /* tell Uwr
000140: 69 74 65 28 29 20 77 68 65 72 65 20 55 78 77 72 ite() where Uxwr
000150: 69 74 65 28 29 20 69 73 20 2A 2F 0D 0A 20 20 55 ite() is */.. U
000160: 61 75 78 73 7A 20 3D 20 55 78 73 69 7A 65 3B 20 auxsz = Uxsize;
000170: 20 20 20 2F 2A 20 74 65 6C 6C 20 62 6F 74 68 20 /* tell both
000180: 77 68 65 72 65 20 55 78 73 69 7A 65 5B 5D 20 69 where Uxsize[] i
000190: 73 20 2A 2F 0D 0A 20 20 55 61 75 78 66 6C 20 3D s */.. Uauxfl =
0001A0: 20 55 78 66 6C 75 73 68 3B 20 20 20 2F 2A 20 74 Uxflush; /* t
0001B0: 65 6C 6C 20 66 66 6C 75 73 68 28 29 20 77 68 65 ell fflush() whe
0001C0: 72 65 20 55 78 66 6C 75 73 68 28 29 20 69 73 20 re Uxflush() is
0001D0: 2A 2F 0D 0A 20 20 55 78 73 69 7A 65 5B 66 64 5D */.. Uxsize[fd]
0001E0: 20 3D 20 73 69 7A 65 3B 20 20 2F 2A 20 74 65 6C = size; /* tel
0001F0: 6C 20 55 72 65 61 64 28 29 20 74 68 61 74 20 66 l Uread() that f
Size : 512 (Real : 512)
000000: 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 /* no argument
000010: 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F count passing */
000020: 0D 0A 2F 2A 0D 0A 2A 2A 20 61 74 6F 69 62 28 73 ../*..** atoib(s
000030: 2C 62 29 20 2D 20 43 6F 6E 76 65 72 74 20 73 20 ,b) - Convert s
000040: 74 6F 20 22 75 6E 73 69 67 6E 65 64 22 20 69 6E to "unsigned" in
000050: 74 65 67 65 72 20 69 6E 20 62 61 73 65 20 62 2E teger in base b.
000060: 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 ..**
000070: 20 20 4E 4F 54 45 3A 20 54 68 69 73 20 69 73 20 NOTE: This is
000080: 61 20 6E 6F 6E 2D 73 74 61 6E 64 61 72 64 20 66 a non-standard f
000090: 75 6E 63 74 69 6F 6E 2E 0D 0A 2A 2F 0D 0A 61 74 unction...*/..at
0000A0: 6F 69 62 28 73 2C 20 62 29 20 63 68 61 72 20 2A oib(s, b) char *
0000B0: 73 3B 20 69 6E 74 20 62 3B 20 7B 0D 0A 20 20 69 s; int b; {.. i
0000C0: 6E 74 20 6E 2C 20 64 69 67 69 74 3B 0D 0A 20 20 nt n, digit;..
0000D0: 6E 20 3D 20 30 3B 0D 0A 20 20 77 68 69 6C 65 28 n = 0;.. while(
0000E0: 69 73 73 70 61 63 65 28 2A 73 29 29 20 2B 2B 73 isspace(*s)) ++s
0000F0: 3B 0D 0A 20 20 77 68 69 6C 65 28 28 64 69 67 69 ;.. while((digi
000100: 74 20 3D 20 28 31 32 37 20 26 20 2A 73 2B 2B 29 t = (127 & *s++)
000110: 29 20 3E 3D 20 27 30 27 29 20 7B 0D 0A 20 20 20 ) >= '0') {..
000120: 20 69 66 28 64 69 67 69 74 20 3E 3D 20 27 61 27 if(digit >= 'a'
000130: 29 20 20 20 20 20 20 64 69 67 69 74 20 2D 3D 20 ) digit -=
000140: 38 37 3B 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 87;.. else if
000150: 28 64 69 67 69 74 20 3E 3D 20 27 41 27 29 20 64 (digit >= 'A') d
000160: 69 67 69 74 20 2D 3D 20 35 35 3B 0D 0A 20 20 20 igit -= 55;..
000170: 20 65 6C 73 65 20 20 20 20 20 20 20 20 20 20 20 else
000180: 20 20 20 20 20 20 20 64 69 67 69 74 20 2D 3D 20 digit -=
000190: 27 30 27 3B 0D 0A 20 20 20 20 69 66 28 64 69 67 '0';.. if(dig
0001A0: 69 74 20 3E 3D 20 62 29 20 62 72 65 61 6B 3B 0D it >= b) break;.
0001B0: 0A 20 20 20 20 6E 20 3D 20 62 20 2A 20 6E 20 2B . n = b * n +
0001C0: 20 64 69 67 69 74 3B 0D 0A 20 20 20 20 7D 0D 0A digit;.. }..
0001D0: 20 20 72 65 74 75 72 6E 20 28 6E 29 3B 0D 0A 20 return (n);..
0001E0: 20 7D 0D 0A 0D 0A 3E 3E 3E 20 41 55 58 42 55 46 }....>>> AUXBUF
0001F0: 2E 43 20 33 32 30 34 0D 0A 23 64 65 66 69 6E 65 .C 3204..#define
Size : 512 (Real : 512)
000000: 64 20 68 61 73 20 61 75 78 20 62 75 66 20 2A 2F d has aux buf */
000010: 0D 0A 20 20 72 65 74 75 72 6E 20 28 4E 55 4C 4C .. return (NULL
000020: 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A );.. }..../*..*
000030: 2A 20 49 6E 69 74 69 61 6C 69 7A 65 20 61 75 78 * Initialize aux
000040: 20 62 75 66 66 65 72 20 63 6F 6E 74 72 6F 6C 73 buffer controls
000050: 0D 0A 2A 2F 0D 0A 55 78 69 6E 69 74 28 66 64 29 ..*/..Uxinit(fd)
000060: 20 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 55 78 int fd; {.. Ux
000070: 6E 65 78 74 5B 66 64 5D 20 3D 20 55 78 65 6E 64 next[fd] = Uxend
000080: 5B 66 64 5D 20 3D 20 55 78 61 64 64 72 5B 66 64 [fd] = Uxaddr[fd
000090: 5D 3B 0D 0A 20 20 55 78 65 6F 66 5B 66 64 5D 20 ];.. Uxeof[fd]
0000A0: 3D 20 4E 4F 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A = NO;.. }..../*
0000B0: 0D 0A 2A 2A 20 46 69 6C 6C 20 62 75 66 66 65 72 ..** Fill buffer
0000C0: 20 69 66 20 6E 65 63 65 73 73 61 72 79 2C 20 61 if necessary, a
0000D0: 6E 64 20 72 65 74 75 72 6E 20 6E 65 78 74 20 62 nd return next b
0000E0: 79 74 65 2E 0D 0A 2A 2F 0D 0A 55 78 72 65 61 64 yte...*/..Uxread
0000F0: 28 66 64 29 20 69 6E 74 20 66 64 3B 20 7B 0D 0A (fd) int fd; {..
000100: 20 20 63 68 61 72 20 2A 70 74 72 3B 0D 0A 20 20 char *ptr;..
000110: 77 68 69 6C 65 28 59 45 53 29 20 7B 0D 0A 20 20 while(YES) {..
000120: 20 20 70 74 72 20 3D 20 55 78 6E 65 78 74 5B 66 ptr = Uxnext[f
000130: 64 5D 3B 0D 0A 20 20 20 20 69 66 28 70 74 72 20 d];.. if(ptr
000140: 3C 20 55 78 65 6E 64 5B 66 64 5D 29 20 7B 2B 2B < Uxend[fd]) {++
000150: 55 78 6E 65 78 74 5B 66 64 5D 3B 20 72 65 74 75 Uxnext[fd]; retu
000160: 72 6E 20 28 2A 70 74 72 29 3B 7D 0D 0A 20 20 20 rn (*ptr);}..
000170: 20 69 66 28 55 78 65 6F 66 5B 66 64 5D 29 20 7B if(Uxeof[fd]) {
000180: 55 73 65 74 65 6F 66 28 66 64 29 3B 20 72 65 74 Useteof(fd); ret
000190: 75 72 6E 20 28 45 4F 46 29 3B 7D 0D 0A 20 20 20 urn (EOF);}..
0001A0: 20 55 61 75 78 73 7A 20 3D 20 4E 55 4C 4C 3B 20 Uauxsz = NULL;
0001B0: 20 20 20 20 20 20 20 20 20 2F 2A 20 61 76 6F 69 /* avoi
0001C0: 64 20 72 65 63 75 72 73 69 76 65 20 6C 6F 6F 70 d recursive loop
0001D0: 20 2A 2F 0D 0A 20 20 20 20 55 78 65 6E 64 5B 66 */.. Uxend[f
0001E0: 64 5D 20 3D 20 55 78 61 64 64 72 5B 66 64 5D 0D d] = Uxaddr[fd].
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2B . +
Size : 512 (Real : 512)
000000: 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E 6F NOCCARGC /* no
000010: 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 20 argument count
000020: 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 passing */..#inc
000030: 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A 23 69 lude stdio.h..#i
000040: 6E 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 66 0D nclude clib.def.
000050: 0A 65 78 74 65 72 6E 20 69 6E 74 20 2A 55 61 75 .extern int *Uau
000060: 78 73 7A 2C 20 55 61 75 78 69 6E 2C 20 55 61 75 xsz, Uauxin, Uau
000070: 78 72 64 2C 20 55 61 75 78 77 74 2C 20 55 61 75 xrd, Uauxwt, Uau
000080: 78 66 6C 2C 20 55 73 74 61 74 75 73 5B 5D 3B 0D xfl, Ustatus[];.
000090: 0A 2F 2A 0D 0A 2A 2A 20 54 68 69 73 20 6D 6F 64 ./*..** This mod
0000A0: 75 6C 65 20 69 73 20 6C 6F 61 64 65 64 20 77 69 ule is loaded wi
0000B0: 74 68 20 61 20 70 72 6F 67 72 61 6D 20 6F 6E 6C th a program onl
0000C0: 79 20 69 66 20 61 75 78 62 75 66 28 29 0D 0A 2A y if auxbuf()..*
0000D0: 2A 20 69 73 20 63 61 6C 6C 65 64 2E 20 20 49 74 * is called. It
0000E0: 20 6C 69 6E 6B 73 20 74 6F 20 55 6F 70 65 6E 28 links to Uopen(
0000F0: 29 2C 20 55 72 65 61 64 28 29 2C 20 55 77 72 69 ), Uread(), Uwri
000100: 74 65 28 29 2C 20 61 6E 64 0D 0A 2A 2A 20 66 66 te(), and..** ff
000110: 6C 75 73 68 28 29 20 74 68 72 6F 75 67 68 20 55 lush() through U
000120: 61 75 78 73 7A 2C 20 55 61 75 78 69 6E 2C 20 55 auxsz, Uauxin, U
000130: 61 75 78 72 64 2C 20 55 61 75 78 77 74 2C 20 61 auxrd, Uauxwt, a
000140: 6E 64 20 55 61 75 78 66 6C 0D 0A 2A 2A 20 69 6E nd Uauxfl..** in
000150: 20 43 53 59 53 4C 49 42 2E 20 20 54 68 69 73 20 CSYSLIB. This
000160: 74 65 63 68 6E 69 71 75 65 20 72 65 64 75 63 65 technique reduce
000170: 73 20 74 68 65 20 6F 76 65 72 68 65 61 64 20 66 s the overhead f
000180: 6F 72 0D 0A 2A 2A 20 70 72 6F 67 72 61 6D 73 20 or..** programs
000190: 77 68 69 63 68 20 64 6F 6E 27 74 20 75 73 65 20 which don't use
0001A0: 61 75 78 69 6C 69 61 72 79 20 62 75 66 66 65 72 auxiliary buffer
0001B0: 69 6E 67 2E 20 20 50 72 65 73 75 6D 61 62 6C 79 ing. Presumably
0001C0: 2C 0D 0A 2A 2A 20 69 66 20 74 68 65 72 65 20 69 ,..** if there i
0001D0: 73 20 65 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 20 s enough memory
0001E0: 66 6F 72 20 65 78 74 72 61 20 62 75 66 66 65 72 for extra buffer
0001F0: 69 6E 67 2C 20 74 68 65 72 65 20 69 73 0D 0A 2A ing, there is..*
Size : 512 (Real : 512)
000000: 20 72 65 61 64 28 66 64 2C 20 55 78 6E 65 78 74 read(fd, Uxnext
000010: 5B 66 64 5D 3D 55 78 61 64 64 72 5B 66 64 5D 2C [fd]=Uxaddr[fd],
000020: 20 55 78 73 69 7A 65 5B 66 64 5D 29 3B 0D 0A 20 Uxsize[fd]);..
000030: 20 20 20 55 61 75 78 73 7A 20 3D 20 55 78 73 69 Uauxsz = Uxsi
000040: 7A 65 3B 20 20 20 20 20 20 20 20 2F 2A 20 72 65 ze; /* re
000050: 73 74 6F 72 65 20 55 61 75 78 73 7A 20 2A 2F 0D store Uauxsz */.
000060: 0A 20 20 20 20 69 66 28 66 65 6F 66 28 66 64 29 . if(feof(fd)
000070: 29 20 7B 55 78 65 6F 66 5B 66 64 5D 20 3D 20 59 ) {Uxeof[fd] = Y
000080: 45 53 3B 20 55 63 6C 72 65 6F 66 28 66 64 29 3B ES; Uclreof(fd);
000090: 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D }.. }.. }...
0000A0: 0A 2F 2A 0D 0A 2A 2A 20 45 6D 70 74 79 20 62 75 ./*..** Empty bu
0000B0: 66 66 65 72 20 69 66 20 6E 65 63 65 73 73 61 72 ffer if necessar
0000C0: 79 2C 20 61 6E 64 20 73 74 6F 72 65 20 63 68 20 y, and store ch
0000D0: 69 6E 20 62 75 66 66 65 72 2E 0D 0A 2A 2F 0D 0A in buffer...*/..
0000E0: 55 78 77 72 69 74 65 28 63 68 2C 20 66 64 29 20 Uxwrite(ch, fd)
0000F0: 69 6E 74 20 63 68 2C 20 66 64 3B 20 7B 0D 0A 20 int ch, fd; {..
000100: 20 63 68 61 72 20 2A 70 74 72 3B 0D 0A 20 20 77 char *ptr;.. w
000110: 68 69 6C 65 28 59 45 53 29 20 7B 0D 0A 20 20 20 hile(YES) {..
000120: 20 70 74 72 20 3D 20 55 78 6E 65 78 74 5B 66 64 ptr = Uxnext[fd
000130: 5D 3B 0D 0A 20 20 20 20 69 66 28 70 74 72 20 3C ];.. if(ptr <
000140: 20 28 55 78 61 64 64 72 5B 66 64 5D 20 2B 20 55 (Uxaddr[fd] + U
000150: 78 73 69 7A 65 5B 66 64 5D 29 29 0D 0A 20 20 20 xsize[fd]))..
000160: 20 20 20 7B 2A 70 74 72 20 3D 20 63 68 3B 20 2B {*ptr = ch; +
000170: 2B 55 78 6E 65 78 74 5B 66 64 5D 3B 20 72 65 74 +Uxnext[fd]; ret
000180: 75 72 6E 20 28 63 68 29 3B 7D 0D 0A 20 20 20 20 urn (ch);}..
000190: 69 66 28 55 78 66 6C 75 73 68 28 66 64 29 29 20 if(Uxflush(fd))
0001A0: 72 65 74 75 72 6E 20 28 45 4F 46 29 3B 0D 0A 20 return (EOF);..
0001B0: 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D }.. }..../*.
0001C0: 0A 2A 2A 20 46 6C 75 73 68 20 61 75 78 20 62 75 .** Flush aux bu
0001D0: 66 66 65 72 20 74 6F 20 66 69 6C 65 2E 0D 0A 2A ffer to file...*
0001E0: 2F 0D 0A 55 78 66 6C 75 73 68 28 66 64 29 20 69 /..Uxflush(fd) i
0001F0: 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 69 6E 74 20 nt fd; {.. int
Size : 512 (Real : 512)
000000: 2A 20 72 6F 6F 6D 20 74 6F 20 73 70 61 72 65 20 * room to spare
000010: 66 6F 72 20 74 68 69 73 20 6F 76 65 72 68 65 61 for this overhea
000020: 64 20 74 6F 6F 2E 20 20 41 20 62 75 67 20 69 6E d too. A bug in
000030: 20 73 6F 6D 65 0D 0A 2A 2A 20 76 65 72 73 69 6F some..** versio
000040: 6E 73 20 6F 66 20 53 6D 61 6C 6C 2D 43 20 62 65 ns of Small-C be
000050: 74 77 65 65 6E 20 32 2E 30 20 61 6E 64 20 32 2E tween 2.0 and 2.
000060: 31 20 6D 61 79 20 63 61 75 73 65 20 74 68 65 20 1 may cause the
000070: 63 61 6C 6C 73 0D 0A 2A 2A 20 74 6F 20 55 61 75 calls..** to Uau
000080: 78 72 64 2C 20 55 61 75 78 77 74 2C 20 61 6E 64 xrd, Uauxwt, and
000090: 20 55 61 75 78 66 6C 20 69 6E 20 55 72 65 61 64 Uauxfl in Uread
0000A0: 28 29 2C 20 55 77 72 69 74 65 28 29 2C 20 61 6E (), Uwrite(), an
0000B0: 64 0D 0A 2A 2A 20 66 66 6C 75 73 68 28 29 2C 20 d..** fflush(),
0000C0: 72 65 73 70 65 63 74 69 76 65 6C 79 2C 20 74 6F respectively, to
0000D0: 20 70 72 6F 64 75 63 65 20 62 61 64 20 63 6F 64 produce bad cod
0000E0: 65 2E 20 20 54 68 65 20 63 75 72 72 65 6E 74 0D e. The current.
0000F0: 0A 2A 2A 20 63 6F 6D 70 69 6C 65 72 20 63 6F 72 .** compiler cor
000100: 72 65 63 74 73 20 74 68 65 20 70 72 6F 62 6C 65 rects the proble
000110: 6D 2E 0D 0A 2A 2F 0D 0A 69 6E 74 0D 0A 20 20 55 m...*/..int.. U
000120: 78 73 69 7A 65 5B 4D 41 58 46 49 4C 45 53 5D 2C xsize[MAXFILES],
000130: 20 20 2F 2A 20 73 69 7A 65 20 6F 66 20 62 75 66 /* size of buf
000140: 66 65 72 20 2A 2F 0D 0A 20 20 55 78 61 64 64 72 fer */.. Uxaddr
000150: 5B 4D 41 58 46 49 4C 45 53 5D 2C 20 20 2F 2A 20 [MAXFILES], /*
000160: 61 75 78 20 62 75 66 66 65 72 20 61 64 64 72 65 aux buffer addre
000170: 73 73 20 2A 2F 0D 0A 20 20 55 78 6E 65 78 74 5B ss */.. Uxnext[
000180: 4D 41 58 46 49 4C 45 53 5D 2C 20 20 2F 2A 20 61 MAXFILES], /* a
000190: 64 64 72 65 73 73 20 6F 66 20 6E 65 78 74 20 62 ddress of next b
0001A0: 79 74 65 20 69 6E 20 62 75 66 66 65 72 20 2A 2F yte in buffer */
0001B0: 0D 0A 20 20 55 78 65 6E 64 5B 4D 41 58 46 49 4C .. Uxend[MAXFIL
0001C0: 45 53 5D 2C 20 20 20 2F 2A 20 61 64 64 72 65 73 ES], /* addres
0001D0: 73 20 6F 66 20 65 6E 64 2D 6F 66 2D 64 61 74 61 s of end-of-data
0001E0: 20 69 6E 20 62 75 66 66 65 72 20 2A 2F 0D 0A 20 in buffer */..
0001F0: 20 55 78 65 6F 66 5B 4D 41 58 46 49 4C 45 53 5D Uxeof[MAXFILES]
Size : 512 (Real : 512)
000000: 69 2C 20 6A 3B 0D 0A 20 20 69 20 3D 20 55 78 6E i, j;.. i = Uxn
000010: 65 78 74 5B 66 64 5D 20 2D 20 55 78 61 64 64 72 ext[fd] - Uxaddr
000020: 5B 66 64 5D 3B 0D 0A 20 20 55 61 75 78 73 7A 20 [fd];.. Uauxsz
000030: 3D 20 4E 55 4C 4C 3B 20 20 20 2F 2A 20 61 76 6F = NULL; /* avo
000040: 69 64 20 72 65 63 75 72 73 69 76 65 20 6C 6F 6F id recursive loo
000050: 70 20 2A 2F 0D 0A 20 20 6A 20 3D 20 77 72 69 74 p */.. j = writ
000060: 65 28 66 64 2C 20 55 78 6E 65 78 74 5B 66 64 5D e(fd, Uxnext[fd]
000070: 3D 55 78 61 64 64 72 5B 66 64 5D 2C 20 69 29 3B =Uxaddr[fd], i);
000080: 0D 0A 20 20 55 61 75 78 73 7A 20 3D 20 55 78 73 .. Uauxsz = Uxs
000090: 69 7A 65 3B 20 2F 2A 20 72 65 73 74 6F 72 65 20 ize; /* restore
0000A0: 55 61 75 78 73 7A 20 2A 2F 0D 0A 20 20 69 66 28 Uauxsz */.. if(
0000B0: 69 20 21 3D 20 6A 29 20 72 65 74 75 72 6E 20 28 i != j) return (
0000C0: 45 4F 46 29 3B 0D 0A 20 20 72 65 74 75 72 6E 20 EOF);.. return
0000D0: 28 4E 55 4C 4C 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E (NULL);.. }..>>
0000E0: 3E 20 41 56 41 49 4C 2E 43 20 33 39 39 0D 0A 23 > AVAIL.C 399..#
0000F0: 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 define NOCCARGC
000100: 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 /* no argument
000110: 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F count passing */
000120: 0D 0A 65 78 74 65 72 6E 20 63 68 61 72 20 2A 55 ..extern char *U
000130: 6D 65 6D 70 74 72 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 memptr;../*..**
000140: 52 65 74 75 72 6E 20 74 68 65 20 6E 75 6D 62 65 Return the numbe
000150: 72 20 6F 66 20 62 79 74 65 73 20 6F 66 20 61 76 r of bytes of av
000160: 61 69 6C 61 62 6C 65 20 6D 65 6D 6F 72 79 2E 0D ailable memory..
000170: 0A 2A 2A 20 49 6E 20 63 61 73 65 20 6F 66 20 61 .** In case of a
000180: 20 73 74 61 63 6B 20 6F 76 65 72 66 6C 6F 77 20 stack overflow
000190: 63 6F 6E 64 69 74 69 6F 6E 2C 20 69 66 20 27 61 condition, if 'a
0001A0: 62 6F 72 74 27 0D 0A 2A 2A 20 69 73 20 6E 6F 6E bort'..** is non
0001B0: 2D 7A 65 72 6F 20 74 68 65 20 70 72 6F 67 72 61 -zero the progra
0001C0: 6D 20 61 62 6F 72 74 73 20 77 69 74 68 20 61 6E m aborts with an
0001D0: 20 27 53 27 20 63 6C 75 65 2C 0D 0A 2A 2A 20 6F 'S' clue,..** o
0001E0: 74 68 65 72 77 69 73 65 20 7A 65 72 6F 20 69 73 therwise zero is
0001F0: 20 72 65 74 75 72 6E 65 64 2E 0D 0A 2A 2F 0D 0A returned...*/..
Size : 512 (Real : 512)
000000: 20 20 20 42 0D 0A 3B 0D 0A 3B 53 54 4F 52 45 20 B..;..;STORE
000010: 41 20 31 36 2D 42 49 54 20 49 4E 54 45 47 45 52 A 16-BIT INTEGER
000020: 20 49 4E 20 48 4C 20 41 54 20 54 48 45 20 41 44 IN HL AT THE AD
000030: 44 52 45 53 53 20 49 4E 20 44 45 0D 0A 43 43 50 DRESS IN DE..CCP
000040: 49 4E 54 3A 3A 0D 0A 50 49 4E 54 3A 20 20 20 4D INT::..PINT: M
000050: 4F 56 20 20 20 20 20 41 2C 4C 0D 0A 20 20 20 20 OV A,L..
000060: 20 20 20 20 53 54 41 58 20 20 20 20 44 0D 0A 20 STAX D..
000070: 20 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 44 INX D
000080: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
000090: 20 20 41 2C 48 0D 0A 20 20 20 20 20 20 20 20 53 A,H.. S
0000A0: 54 41 58 20 20 20 20 44 0D 0A 20 20 20 20 20 20 TAX D..
0000B0: 20 20 52 45 54 0D 0A 3B 0D 0A 3B 49 4E 43 4C 55 RET..;..;INCLU
0000C0: 53 49 56 45 20 22 4F 52 22 20 48 4C 20 41 4E 44 SIVE "OR" HL AND
0000D0: 20 44 45 20 49 4E 54 4F 20 48 4C 0D 0A 43 43 4F DE INTO HL..CCO
0000E0: 52 3A 3A 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 R::.. MOV
0000F0: 20 20 20 20 20 41 2C 4C 0D 0A 20 20 20 20 20 20 A,L..
000100: 20 20 4F 52 41 20 20 20 20 20 45 0D 0A 20 20 20 ORA E..
000110: 20 20 20 20 20 4D 4F 56 20 20 20 20 20 4C 2C 41 MOV L,A
000120: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
000130: 20 20 41 2C 48 0D 0A 20 20 20 20 20 20 20 20 4F A,H.. O
000140: 52 41 20 20 20 20 20 44 0D 0A 20 20 20 20 20 20 RA D..
000150: 20 20 4D 4F 56 20 20 20 20 20 48 2C 41 0D 0A 20 MOV H,A..
000160: 20 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B RET..;..;
000170: 45 58 43 4C 55 53 49 56 45 20 22 4F 52 22 20 48 EXCLUSIVE "OR" H
000180: 4C 20 41 4E 44 20 44 45 20 49 4E 54 4F 20 48 4C L AND DE INTO HL
000190: 0D 0A 43 43 58 4F 52 3A 3A 0D 0A 20 20 20 20 20 ..CCXOR::..
0001A0: 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 4C 0D 0A MOV A,L..
0001B0: 20 20 20 20 20 20 20 20 58 52 41 20 20 20 20 20 XRA
0001C0: 45 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 E.. MOV
0001D0: 20 20 20 4C 2C 41 0D 0A 20 20 20 20 20 20 20 20 L,A..
0001E0: 4D 4F 56 20 20 20 20 20 41 2C 48 0D 0A 20 20 20 MOV A,H..
0001F0: 20 20 20 20 20 58 52 41 20 20 20 20 20 44 0D 0A XRA D..
Size : 512 (Real : 512)
000000: 61 76 61 69 6C 28 61 62 6F 72 74 29 20 69 6E 74 avail(abort) int
000010: 20 61 62 6F 72 74 3B 20 7B 0D 0A 20 20 63 68 61 abort; {.. cha
000020: 72 20 78 3B 0D 0A 20 20 69 66 28 26 78 20 3C 20 r x;.. if(&x <
000030: 55 6D 65 6D 70 74 72 29 20 7B 0D 0A 20 20 20 20 Umemptr) {..
000040: 69 66 28 61 62 6F 72 74 29 20 65 78 69 74 28 27 if(abort) exit('
000050: 4D 27 29 3B 0D 0A 20 20 20 20 72 65 74 75 72 6E M');.. return
000060: 20 28 30 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 (0);.. }..
000070: 72 65 74 75 72 6E 20 28 26 78 20 2D 20 55 6D 65 return (&x - Ume
000080: 6D 70 74 72 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E mptr);.. }....>
000090: 3E 3E 20 43 41 4C 4C 2E 4D 41 43 20 38 34 38 37 >> CALL.MAC 8487
0000A0: 0D 0A 3B 0D 0A 3B 2D 2D 2D 2D 2D 20 43 41 4C 4C ..;..;----- CALL
0000B0: 3A 20 53 6D 61 6C 6C 2D 43 20 61 72 69 74 68 6D : Small-C arithm
0000C0: 65 74 69 63 20 61 6E 64 20 6C 6F 67 69 63 61 6C etic and logical
0000D0: 20 6C 69 62 72 61 72 79 0D 0A 3B 0D 0A 43 43 44 library..;..CCD
0000E0: 43 41 4C 3A 3A 0D 0A 20 20 20 20 20 20 20 20 50 CAL::.. P
0000F0: 43 48 4C 0D 0A 3B 0D 0A 43 43 44 44 47 43 3A 3A CHL..;..CCDDGC::
000100: 0D 0A 20 20 20 20 20 20 20 20 44 41 44 20 20 20 .. DAD
000110: 20 20 44 0D 0A 20 20 20 20 20 20 20 20 4A 4D 50 D.. JMP
000120: 20 20 20 20 20 43 43 47 43 48 41 52 0D 0A 3B 0D CCGCHAR..;.
000130: 0A 43 43 44 53 47 43 3A 3A 0D 0A 20 20 20 20 20 .CCDSGC::..
000140: 20 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 INX H..
000150: 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 48 0D INX H.
000160: 0A 20 20 20 20 20 20 20 20 44 41 44 20 20 20 20 . DAD
000170: 20 53 50 0D 0A 3B 0D 0A 3B 46 45 54 43 48 20 41 SP..;..;FETCH A
000180: 20 53 49 4E 47 4C 45 20 42 59 54 45 20 46 52 4F SINGLE BYTE FRO
000190: 4D 20 54 48 45 20 41 44 44 52 45 53 53 20 49 4E M THE ADDRESS IN
0001A0: 20 48 4C 20 41 4E 44 20 53 49 47 4E 20 49 4E 54 HL AND SIGN INT
0001B0: 4F 20 48 4C 0D 0A 43 43 47 43 48 41 52 3A 3A 0D O HL..CCGCHAR::.
0001C0: 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 . MOV
0001D0: 20 41 2C 4D 0D 0A 3B 0D 0A 3B 50 55 54 20 54 48 A,M..;..;PUT TH
0001E0: 45 20 41 43 43 55 4D 20 49 4E 54 4F 20 48 4C 20 E ACCUM INTO HL
0001F0: 41 4E 44 20 53 49 47 4E 20 45 58 54 45 4E 44 20 AND SIGN EXTEND
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 MOV
000010: 48 2C 41 0D 0A 20 20 20 20 20 20 20 20 52 45 54 H,A.. RET
000020: 0D 0A 3B 0D 0A 3B 22 41 4E 44 22 20 48 4C 20 41 ..;..;"AND" HL A
000030: 4E 44 20 44 45 20 49 4E 54 4F 20 48 4C 0D 0A 43 ND DE INTO HL..C
000040: 43 41 4E 44 3A 3A 0D 0A 20 20 20 20 20 20 20 20 CAND::..
000050: 4D 4F 56 20 20 20 20 20 41 2C 4C 0D 0A 20 20 20 MOV A,L..
000060: 20 20 20 20 20 41 4E 41 20 20 20 20 20 45 0D 0A ANA E..
000070: 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 MOV
000080: 4C 2C 41 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 L,A.. MOV
000090: 20 20 20 20 20 41 2C 48 0D 0A 20 20 20 20 20 20 A,H..
0000A0: 20 20 41 4E 41 20 20 20 20 20 44 0D 0A 20 20 20 ANA D..
0000B0: 20 20 20 20 20 4D 4F 56 20 20 20 20 20 48 2C 41 MOV H,A
0000C0: 0D 0A 20 20 20 20 20 20 20 20 52 45 54 0D 0A 3B .. RET..;
0000D0: 0D 0A 3B 49 4E 20 41 4C 4C 20 54 48 45 20 46 4F ..;IN ALL THE FO
0000E0: 4C 4C 4F 57 49 4E 47 20 43 4F 4D 50 41 52 45 20 LLOWING COMPARE
0000F0: 52 4F 55 54 49 4E 45 53 2C 20 48 4C 20 49 53 20 ROUTINES, HL IS
000100: 53 45 54 20 54 4F 20 31 20 49 46 20 54 48 45 0D SET TO 1 IF THE.
000110: 0A 3B 20 20 43 4F 4E 44 49 54 49 4F 4E 20 49 53 .; CONDITION IS
000120: 20 54 52 55 45 2C 20 4F 54 48 45 52 57 49 53 45 TRUE, OTHERWISE
000130: 20 49 54 20 49 53 20 53 45 54 20 54 4F 20 30 20 IT IS SET TO 0
000140: 28 5A 45 52 4F 29 2E 0D 0A 3B 0D 0A 3B 54 45 53 (ZERO)...;..;TES
000150: 54 20 49 46 20 48 4C 20 3D 20 44 45 0D 0A 3B 0D T IF HL = DE..;.
000160: 0A 43 43 45 51 3A 3A 0D 0A 20 20 20 20 20 20 20 .CCEQ::..
000170: 20 43 41 4C 4C 20 20 20 20 43 43 43 4D 50 0D 0A CALL CCCMP..
000180: 20 20 20 20 20 20 20 20 52 5A 0D 0A 20 20 20 20 RZ..
000190: 20 20 20 20 44 43 58 20 20 20 20 20 48 0D 0A 20 DCX H..
0001A0: 20 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B RET..;..;
0001B0: 54 45 53 54 20 49 46 20 44 45 20 21 3D 20 48 4C TEST IF DE != HL
0001C0: 0D 0A 43 43 4E 45 3A 3A 0D 0A 20 20 20 20 20 20 ..CCNE::..
0001D0: 20 20 43 41 4C 4C 20 20 20 20 43 43 43 4D 50 0D CALL CCCMP.
0001E0: 0A 20 20 20 20 20 20 20 20 52 4E 5A 0D 0A 20 20 . RNZ..
0001F0: 20 20 20 20 20 20 44 43 58 20 20 20 20 20 48 0D DCX H.
Size : 512 (Real : 512)
000000: 54 48 52 4F 55 47 48 20 48 2E 0D 0A 43 43 41 52 THROUGH H...CCAR
000010: 47 43 3A 3A 0D 0A 43 43 53 58 54 3A 3A 0D 0A 20 GC::..CCSXT::..
000020: 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 4C MOV L
000030: 2C 41 0D 0A 20 20 20 20 20 20 20 20 52 4C 43 0D ,A.. RLC.
000040: 0A 20 20 20 20 20 20 20 20 53 42 42 20 20 20 20 . SBB
000050: 20 41 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 A.. MOV
000060: 20 20 20 20 48 2C 41 0D 0A 20 20 20 20 20 20 20 H,A..
000070: 20 52 45 54 0D 0A 3B 0D 0A 43 43 44 44 47 49 3A RET..;..CCDDGI:
000080: 3A 0D 0A 20 20 20 20 20 20 20 20 44 41 44 20 20 :.. DAD
000090: 20 20 20 44 0D 0A 20 20 20 20 20 20 20 20 4A 4D D.. JM
0000A0: 50 20 20 20 20 20 43 43 47 49 4E 54 0D 0A 3B 0D P CCGINT..;.
0000B0: 0A 43 43 44 53 47 49 3A 3A 0D 0A 20 20 20 20 20 .CCDSGI::..
0000C0: 20 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 INX H..
0000D0: 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 48 0D INX H.
0000E0: 0A 20 20 20 20 20 20 20 20 44 41 44 20 20 20 20 . DAD
0000F0: 20 53 50 0D 0A 3B 0D 0A 3B 46 45 54 43 48 20 41 SP..;..;FETCH A
000100: 20 46 55 4C 4C 20 31 36 2D 42 49 54 20 49 4E 54 FULL 16-BIT INT
000110: 45 47 45 52 20 46 52 4F 4D 20 54 48 45 20 41 44 EGER FROM THE AD
000120: 44 52 45 53 53 20 49 4E 20 48 4C 20 49 4E 54 4F DRESS IN HL INTO
000130: 20 48 4C 0D 0A 43 43 47 49 4E 54 3A 3A 0D 0A 20 HL..CCGINT::..
000140: 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 MOV A
000150: 2C 4D 0D 0A 20 20 20 20 20 20 20 20 49 4E 58 20 ,M.. INX
000160: 20 20 20 20 48 0D 0A 20 20 20 20 20 20 20 20 4D H.. M
000170: 4F 56 20 20 20 20 20 48 2C 4D 0D 0A 20 20 20 20 OV H,M..
000180: 20 20 20 20 4D 4F 56 20 20 20 20 20 4C 2C 41 0D MOV L,A.
000190: 0A 20 20 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D . RET..;.
0001A0: 0A 43 43 44 45 43 43 3A 3A 0D 0A 20 20 20 20 20 .CCDECC::..
0001B0: 20 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 INX H..
0001C0: 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 48 0D INX H.
0001D0: 0A 20 20 20 20 20 20 20 20 44 41 44 20 20 20 20 . DAD
0001E0: 20 53 50 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 SP.. MOV
0001F0: 20 20 20 20 20 44 2C 48 0D 0A 20 20 20 20 20 20 D,H..
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D . RET..;.
000010: 0A 3B 54 45 53 54 20 49 46 20 44 45 20 3E 20 48 .;TEST IF DE > H
000020: 4C 20 28 53 49 47 4E 45 44 29 0D 0A 43 43 47 54 L (SIGNED)..CCGT
000030: 3A 3A 0D 0A 20 20 20 20 20 20 20 20 58 43 48 47 ::.. XCHG
000040: 0D 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 20 .. CALL
000050: 20 20 43 43 43 4D 50 0D 0A 20 20 20 20 20 20 20 CCCMP..
000060: 20 52 43 0D 0A 20 20 20 20 20 20 20 20 44 43 58 RC.. DCX
000070: 20 20 20 20 20 48 0D 0A 20 20 20 20 20 20 20 20 H..
000080: 52 45 54 0D 0A 3B 0D 0A 3B 54 45 53 54 20 49 46 RET..;..;TEST IF
000090: 20 44 45 20 3C 3D 20 48 4C 20 28 53 49 47 4E 45 DE <= HL (SIGNE
0000A0: 44 29 0D 0A 43 43 4C 45 3A 3A 0D 0A 20 20 20 20 D)..CCLE::..
0000B0: 20 20 20 20 43 41 4C 4C 20 20 20 20 43 43 43 4D CALL CCCM
0000C0: 50 0D 0A 20 20 20 20 20 20 20 20 52 5A 0D 0A 20 P.. RZ..
0000D0: 20 20 20 20 20 20 20 52 43 0D 0A 20 20 20 20 20 RC..
0000E0: 20 20 20 44 43 58 20 20 20 20 20 48 0D 0A 20 20 DCX H..
0000F0: 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 54 RET..;..;T
000100: 45 53 54 20 49 46 20 44 45 20 3E 3D 20 48 4C 20 EST IF DE >= HL
000110: 28 53 49 47 4E 45 44 29 0D 0A 43 43 47 45 3A 3A (SIGNED)..CCGE::
000120: 0D 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 20 .. CALL
000130: 20 20 43 43 43 4D 50 0D 0A 20 20 20 20 20 20 20 CCCMP..
000140: 20 52 4E 43 0D 0A 20 20 20 20 20 20 20 20 44 43 RNC.. DC
000150: 58 20 20 20 20 20 48 0D 0A 20 20 20 20 20 20 20 X H..
000160: 20 52 45 54 0D 0A 3B 0D 0A 3B 54 45 53 54 20 49 RET..;..;TEST I
000170: 46 20 44 45 20 3C 20 48 4C 20 28 53 49 47 4E 45 F DE < HL (SIGNE
000180: 44 29 0D 0A 43 43 4C 54 3A 3A 0D 0A 20 20 20 20 D)..CCLT::..
000190: 20 20 20 20 43 41 4C 4C 20 20 20 20 43 43 43 4D CALL CCCM
0001A0: 50 0D 0A 20 20 20 20 20 20 20 20 52 43 0D 0A 20 P.. RC..
0001B0: 20 20 20 20 20 20 20 44 43 58 20 20 20 20 20 48 DCX H
0001C0: 0D 0A 20 20 20 20 20 20 20 20 52 45 54 0D 0A 3B .. RET..;
0001D0: 0D 0A 3B 43 4F 4D 4D 4F 4E 20 52 4F 55 54 49 4E ..;COMMON ROUTIN
0001E0: 45 20 54 4F 20 50 45 52 46 4F 52 4D 20 41 20 53 E TO PERFORM A S
0001F0: 49 47 4E 45 44 20 43 4F 4D 50 41 52 45 20 4F 46 IGNED COMPARE OF
Size : 512 (Real : 512)
000000: 20 20 4D 4F 56 20 20 20 20 20 45 2C 4C 0D 0A 20 MOV E,L..
000010: 20 20 20 20 20 20 20 43 41 4C 4C 20 20 20 20 43 CALL C
000020: 43 47 43 48 41 52 0D 0A 20 20 20 20 20 20 20 20 CGCHAR..
000030: 44 43 58 20 20 20 20 20 48 0D 0A 20 20 20 20 20 DCX H..
000040: 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 4C 0D 0A MOV A,L..
000050: 20 20 20 20 20 20 20 20 53 54 41 58 20 20 20 20 STAX
000060: 44 0D 0A 20 20 20 20 20 20 20 20 52 45 54 0D 0A D.. RET..
000070: 3B 0D 0A 43 43 49 4E 43 43 3A 3A 0D 0A 20 20 20 ;..CCINCC::..
000080: 20 20 20 20 20 49 4E 58 20 20 20 20 20 48 0D 0A INX H..
000090: 20 20 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 INX
0000A0: 48 0D 0A 20 20 20 20 20 20 20 20 44 41 44 20 20 H.. DAD
0000B0: 20 20 20 53 50 0D 0A 20 20 20 20 20 20 20 20 4D SP.. M
0000C0: 4F 56 20 20 20 20 20 44 2C 48 0D 0A 20 20 20 20 OV D,H..
0000D0: 20 20 20 20 4D 4F 56 20 20 20 20 20 45 2C 4C 0D MOV E,L.
0000E0: 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 20 20 . CALL
0000F0: 20 43 43 47 43 48 41 52 0D 0A 20 20 20 20 20 20 CCGCHAR..
000100: 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 20 INX H..
000110: 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 4C MOV A,L
000120: 0D 0A 20 20 20 20 20 20 20 20 53 54 41 58 20 20 .. STAX
000130: 20 20 44 0D 0A 20 20 20 20 20 20 20 20 52 45 54 D.. RET
000140: 0D 0A 3B 0D 0A 43 44 50 44 50 43 3A 3A 0D 0A 20 ..;..CDPDPC::..
000150: 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 44 DAD D
000160: 0D 0A 43 43 50 44 50 43 3A 3A 0D 0A 20 20 20 20 ..CCPDPC::..
000170: 20 20 20 20 50 4F 50 20 20 20 20 20 42 20 20 20 POP B
000180: 20 20 20 20 3B 52 45 54 20 41 44 44 52 0D 0A 20 ;RET ADDR..
000190: 20 20 20 20 20 20 20 50 4F 50 20 20 20 20 20 44 POP D
0001A0: 0D 0A 20 20 20 20 20 20 20 20 50 55 53 48 20 20 .. PUSH
0001B0: 20 20 42 0D 0A 3B 0D 0A 3B 53 54 4F 52 45 20 41 B..;..;STORE A
0001C0: 20 53 49 4E 47 4C 45 20 42 59 54 45 20 46 52 4F SINGLE BYTE FRO
0001D0: 4D 20 48 4C 20 41 54 20 54 48 45 20 41 44 44 52 M HL AT THE ADDR
0001E0: 45 53 53 20 49 4E 20 44 45 0D 0A 43 43 50 43 48 ESS IN DE..CCPCH
0001F0: 41 52 3A 3A 0D 0A 50 43 48 41 52 3A 20 20 4D 4F AR::..PCHAR: MO
Size : 512 (Real : 512)
000000: 20 44 45 20 41 4E 44 20 48 4C 0D 0A 3B 20 54 48 DE AND HL..; TH
000010: 49 53 20 52 4F 55 54 49 4E 45 20 50 45 52 46 4F IS ROUTINE PERFO
000020: 52 4D 53 20 44 45 20 2D 20 48 4C 20 41 4E 44 20 RMS DE - HL AND
000030: 53 45 54 53 20 54 48 45 20 43 4F 4E 44 49 54 49 SETS THE CONDITI
000040: 4F 4E 53 3A 0D 0A 3B 20 43 41 52 52 59 20 52 45 ONS:..; CARRY RE
000050: 46 4C 45 43 54 53 20 53 49 47 4E 20 4F 46 20 44 FLECTS SIGN OF D
000060: 49 46 46 45 52 45 4E 43 45 20 28 53 45 54 20 4D IFFERENCE (SET M
000070: 45 41 4E 53 20 44 45 20 3C 20 48 4C 29 0D 0A 3B EANS DE < HL)..;
000080: 20 5A 45 52 4F 2F 4E 4F 4E 2D 5A 45 52 4F 20 53 ZERO/NON-ZERO S
000090: 45 54 20 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 ET ACCORDING TO
0000A0: 45 51 55 41 4C 49 54 59 2E 0D 0A 43 43 43 4D 50 EQUALITY...CCCMP
0000B0: 3A 3A 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 ::.. MOV
0000C0: 20 20 20 20 41 2C 48 20 20 20 20 20 3B 49 4E 56 A,H ;INV
0000D0: 45 52 54 20 53 49 47 4E 20 4F 46 20 48 4C 0D 0A ERT SIGN OF HL..
0000E0: 20 20 20 20 20 20 20 20 58 52 49 20 20 20 20 20 XRI
0000F0: 38 30 48 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 80H.. MOV
000100: 20 20 20 20 20 48 2C 41 0D 0A 20 20 20 20 20 20 H,A..
000110: 20 20 4D 4F 56 20 20 20 20 20 41 2C 44 20 20 20 MOV A,D
000120: 20 20 3B 49 4E 56 45 52 54 20 53 49 47 4E 20 4F ;INVERT SIGN O
000130: 46 20 44 45 0D 0A 20 20 20 20 20 20 20 20 58 52 F DE.. XR
000140: 49 20 20 20 20 20 38 30 48 0D 0A 20 20 20 20 20 I 80H..
000150: 20 20 20 43 4D 50 20 20 20 20 20 48 20 20 20 20 CMP H
000160: 20 20 20 3B 43 4F 4D 50 41 52 45 20 4D 53 42 53 ;COMPARE MSBS
000170: 0D 0A 20 20 20 20 20 20 20 20 4A 4E 5A 20 20 20 .. JNZ
000180: 20 20 43 43 43 4D 50 31 20 20 3B 44 4F 4E 45 20 CCCMP1 ;DONE
000190: 49 46 20 4E 45 51 0D 0A 20 20 20 20 20 20 20 20 IF NEQ..
0001A0: 4D 4F 56 20 20 20 20 20 41 2C 45 20 20 20 20 20 MOV A,E
0001B0: 3B 43 4F 4D 50 41 52 45 20 4C 53 42 53 0D 0A 20 ;COMPARE LSBS..
0001C0: 20 20 20 20 20 20 20 43 4D 50 20 20 20 20 20 4C CMP L
0001D0: 0D 0A 43 43 43 4D 50 31 3A 20 4C 58 49 20 48 2C ..CCCMP1: LXI H,
0001E0: 31 20 20 20 20 20 20 20 20 20 3B 50 52 45 53 45 1 ;PRESE
0001F0: 54 20 54 52 55 45 20 43 4F 4E 44 0D 0A 20 20 20 T TRUE COND..
Size : 512 (Real : 512)
000000: 56 20 20 20 20 20 41 2C 4C 0D 0A 20 20 20 20 20 V A,L..
000010: 20 20 20 53 54 41 58 20 20 20 20 44 0D 0A 20 20 STAX D..
000020: 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 43 43 RET..;..CC
000030: 44 45 43 49 3A 3A 0D 0A 20 20 20 20 20 20 20 20 DECI::..
000040: 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 20 20 20 INX H..
000050: 20 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 INX H..
000060: 20 20 20 20 20 20 44 41 44 20 20 20 20 20 53 50 DAD SP
000070: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
000080: 20 20 44 2C 48 0D 0A 20 20 20 20 20 20 20 20 4D D,H.. M
000090: 4F 56 20 20 20 20 20 45 2C 4C 0D 0A 20 20 20 20 OV E,L..
0000A0: 20 20 20 20 43 41 4C 4C 20 20 20 20 43 43 47 49 CALL CCGI
0000B0: 4E 54 0D 0A 20 20 20 20 20 20 20 20 44 43 58 20 NT.. DCX
0000C0: 20 20 20 20 48 0D 0A 20 20 20 20 20 20 20 20 4A H.. J
0000D0: 4D 50 20 20 20 20 20 43 43 50 49 4E 54 0D 0A 3B MP CCPINT..;
0000E0: 0D 0A 43 43 49 4E 43 49 3A 3A 0D 0A 20 20 20 20 ..CCINCI::..
0000F0: 20 20 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 INX H..
000100: 20 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 48 INX H
000110: 0D 0A 20 20 20 20 20 20 20 20 44 41 44 20 20 20 .. DAD
000120: 20 20 53 50 0D 0A 20 20 20 20 20 20 20 20 4D 4F SP.. MO
000130: 56 20 20 20 20 20 44 2C 48 0D 0A 20 20 20 20 20 V D,H..
000140: 20 20 20 4D 4F 56 20 20 20 20 20 45 2C 4C 0D 0A MOV E,L..
000150: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 20 20 20 CALL
000160: 43 43 47 49 4E 54 0D 0A 20 20 20 20 20 20 20 20 CCGINT..
000170: 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 20 20 20 INX H..
000180: 20 20 20 4A 4D 50 20 20 20 20 20 43 43 50 49 4E JMP CCPIN
000190: 54 0D 0A 3B 0D 0A 43 44 50 44 50 49 3A 3A 0D 0A T..;..CDPDPI::..
0001A0: 20 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 DAD
0001B0: 44 0D 0A 43 43 50 44 50 49 3A 3A 0D 0A 20 20 20 D..CCPDPI::..
0001C0: 20 20 20 20 20 50 4F 50 20 20 20 20 20 42 20 20 POP B
0001D0: 20 20 20 20 20 3B 52 45 54 20 41 44 44 52 0D 0A ;RET ADDR..
0001E0: 20 20 20 20 20 20 20 20 50 4F 50 20 20 20 20 20 POP
0001F0: 44 0D 0A 20 20 20 20 20 20 20 20 50 55 53 48 20 D.. PUSH
Size : 512 (Real : 512)
000000: 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 54 45 RET..;..;TE
000010: 53 54 20 49 46 20 44 45 20 3E 3D 20 48 4C 20 28 ST IF DE >= HL (
000020: 55 4E 53 49 47 4E 45 44 29 0D 0A 43 43 55 47 45 UNSIGNED)..CCUGE
000030: 3A 3A 0D 0A 20 20 20 20 20 20 20 20 43 41 4C 4C ::.. CALL
000040: 20 20 20 20 43 43 55 43 4D 50 0D 0A 20 20 20 20 CCUCMP..
000050: 20 20 20 20 52 4E 43 0D 0A 20 20 20 20 20 20 20 RNC..
000060: 20 44 43 58 20 20 20 20 20 48 0D 0A 20 20 20 20 DCX H..
000070: 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 54 45 53 RET..;..;TES
000080: 54 20 49 46 20 44 45 20 3C 20 48 4C 20 28 55 4E T IF DE < HL (UN
000090: 53 49 47 4E 45 44 29 0D 0A 43 43 55 4C 54 3A 3A SIGNED)..CCULT::
0000A0: 0D 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 20 .. CALL
0000B0: 20 20 43 43 55 43 4D 50 0D 0A 20 20 20 20 20 20 CCUCMP..
0000C0: 20 20 52 43 0D 0A 20 20 20 20 20 20 20 20 44 43 RC.. DC
0000D0: 58 20 20 20 20 20 48 0D 0A 20 20 20 20 20 20 20 X H..
0000E0: 20 52 45 54 0D 0A 3B 0D 0A 3B 54 45 53 54 20 49 RET..;..;TEST I
0000F0: 46 20 44 45 20 3E 20 48 4C 20 28 55 4E 53 49 47 F DE > HL (UNSIG
000100: 4E 45 44 29 0D 0A 43 43 55 47 54 3A 3A 0D 0A 20 NED)..CCUGT::..
000110: 20 20 20 20 20 20 20 58 43 48 47 0D 0A 20 20 20 XCHG..
000120: 20 20 20 20 20 43 41 4C 4C 20 20 20 20 43 43 55 CALL CCU
000130: 43 4D 50 0D 0A 20 20 20 20 20 20 20 20 52 43 0D CMP.. RC.
000140: 0A 20 20 20 20 20 20 20 20 44 43 58 20 20 20 20 . DCX
000150: 20 48 0D 0A 20 20 20 20 20 20 20 20 52 45 54 0D H.. RET.
000160: 0A 3B 0D 0A 3B 54 45 53 54 20 49 46 20 44 45 20 .;..;TEST IF DE
000170: 3C 3D 20 48 4C 20 28 55 4E 53 49 47 4E 45 44 29 <= HL (UNSIGNED)
000180: 0D 0A 43 43 55 4C 45 3A 3A 0D 0A 20 20 20 20 20 ..CCULE::..
000190: 20 20 20 43 41 4C 4C 20 20 20 20 43 43 55 43 4D CALL CCUCM
0001A0: 50 0D 0A 20 20 20 20 20 20 20 20 52 5A 0D 0A 20 P.. RZ..
0001B0: 20 20 20 20 20 20 20 52 43 0D 0A 20 20 20 20 20 RC..
0001C0: 20 20 20 44 43 58 20 20 20 20 20 48 0D 0A 20 20 DCX H..
0001D0: 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 43 RET..;..;C
0001E0: 4F 4D 4D 4F 4E 20 52 4F 55 54 49 4E 45 20 54 4F OMMON ROUTINE TO
0001F0: 20 50 45 52 46 4F 52 4D 20 55 4E 53 49 47 4E 45 PERFORM UNSIGNE
Size : 512 (Real : 512)
000000: 2C 30 0D 0A 43 43 44 49 56 31 3A 20 44 41 44 20 ,0..CCDIV1: DAD
000010: 20 20 20 20 48 0D 0A 20 20 20 20 20 20 20 20 43 H.. C
000020: 41 4C 4C 20 20 20 20 43 43 52 44 45 4C 0D 0A 20 ALL CCRDEL..
000030: 20 20 20 20 20 20 20 4A 5A 20 20 20 20 20 20 43 JZ C
000040: 43 44 49 56 32 0D 0A 20 20 20 20 20 20 20 20 43 CDIV2.. C
000050: 41 4C 4C 20 20 20 20 43 43 43 4D 50 42 43 44 45 ALL CCCMPBCDE
000060: 0D 0A 20 20 20 20 20 20 20 20 4A 4D 20 20 20 20 .. JM
000070: 20 20 43 43 44 49 56 32 0D 0A 20 20 20 20 20 20 CCDIV2..
000080: 20 20 4D 4F 56 20 20 20 20 20 41 2C 4C 0D 0A 20 MOV A,L..
000090: 20 20 20 20 20 20 20 4F 52 49 20 20 20 20 20 31 ORI 1
0000A0: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
0000B0: 20 20 4C 2C 41 0D 0A 20 20 20 20 20 20 20 20 4D L,A.. M
0000C0: 4F 56 20 20 20 20 20 41 2C 45 0D 0A 20 20 20 20 OV A,E..
0000D0: 20 20 20 20 53 55 42 20 20 20 20 20 43 0D 0A 20 SUB C..
0000E0: 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 45 MOV E
0000F0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 ,A.. MOV
000100: 20 20 20 20 41 2C 44 0D 0A 20 20 20 20 20 20 20 A,D..
000110: 20 53 42 42 20 20 20 20 20 42 0D 0A 20 20 20 20 SBB B..
000120: 20 20 20 20 4D 4F 56 20 20 20 20 20 44 2C 41 0D MOV D,A.
000130: 0A 43 43 44 49 56 32 3A 20 50 4F 50 20 20 20 20 .CCDIV2: POP
000140: 20 50 53 57 0D 0A 20 20 20 20 20 20 20 20 44 43 PSW.. DC
000150: 52 20 20 20 20 20 41 0D 0A 20 20 20 20 20 20 20 R A..
000160: 20 4A 5A 20 20 20 20 20 20 43 43 44 49 56 33 0D JZ CCDIV3.
000170: 0A 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 . PUSH
000180: 20 50 53 57 0D 0A 20 20 20 20 20 20 20 20 4A 4D PSW.. JM
000190: 50 20 20 20 20 20 43 43 44 49 56 31 0D 0A 43 43 P CCDIV1..CC
0001A0: 44 49 56 33 3A 20 50 4F 50 20 20 20 20 20 50 53 DIV3: POP PS
0001B0: 57 0D 0A 20 20 20 20 20 20 20 20 52 50 0D 0A 20 W.. RP..
0001C0: 20 20 20 20 20 20 20 43 41 4C 4C 20 20 20 20 43 CALL C
0001D0: 43 44 45 4E 45 47 0D 0A 20 20 20 20 20 20 20 20 CDENEG..
0001E0: 58 43 48 47 0D 0A 20 20 20 20 20 20 20 20 43 41 XCHG.. CA
0001F0: 4C 4C 20 20 20 20 43 43 44 45 4E 45 47 0D 0A 20 LL CCDENEG..
Size : 512 (Real : 512)
000000: 44 20 43 4F 4D 50 41 52 45 0D 0A 3B 20 43 41 52 D COMPARE..; CAR
000010: 52 59 20 53 45 54 20 49 46 20 44 45 20 3C 20 48 RY SET IF DE < H
000020: 4C 0D 0A 3B 20 5A 45 52 4F 2F 4E 4F 4E 5A 45 52 L..; ZERO/NONZER
000030: 4F 20 53 45 54 20 41 43 43 4F 52 44 49 4E 47 4C O SET ACCORDINGL
000040: 59 0D 0A 43 43 55 43 4D 50 3A 3A 0D 0A 20 20 20 Y..CCUCMP::..
000050: 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 44 MOV A,D
000060: 0D 0A 20 20 20 20 20 20 20 20 43 4D 50 20 20 20 .. CMP
000070: 20 20 48 0D 0A 20 20 20 20 20 20 20 20 4A 4E 5A H.. JNZ
000080: 20 20 20 20 20 55 43 4D 50 31 0D 0A 20 20 20 20 UCMP1..
000090: 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 45 0D MOV A,E.
0000A0: 0A 20 20 20 20 20 20 20 20 43 4D 50 20 20 20 20 . CMP
0000B0: 20 4C 0D 0A 55 43 4D 50 31 3A 20 20 4C 58 49 20 L..UCMP1: LXI
0000C0: 20 20 20 20 48 2C 31 0D 0A 20 20 20 20 20 20 20 H,1..
0000D0: 20 52 45 54 0D 0A 3B 0D 0A 3B 53 48 49 46 54 20 RET..;..;SHIFT
0000E0: 44 45 20 41 52 49 54 48 4D 45 54 49 43 41 4C 4C DE ARITHMETICALL
0000F0: 59 20 52 49 47 48 54 20 42 59 20 48 4C 20 41 4E Y RIGHT BY HL AN
000100: 44 20 52 45 54 55 52 4E 20 49 4E 20 48 4C 0D 0A D RETURN IN HL..
000110: 43 43 41 53 52 3A 3A 0D 0A 20 20 20 20 20 20 20 CCASR::..
000120: 20 58 43 48 47 0D 0A 20 20 20 20 20 20 20 20 44 XCHG.. D
000130: 43 52 20 20 20 20 20 45 0D 0A 20 20 20 20 20 20 CR E..
000140: 20 20 52 4D 0D 0A 20 20 20 20 20 20 20 20 4D 4F RM.. MO
000150: 56 20 20 20 20 20 41 2C 48 0D 0A 20 20 20 20 20 V A,H..
000160: 20 20 20 52 41 4C 0D 0A 20 20 20 20 20 20 20 20 RAL..
000170: 4D 4F 56 20 20 20 20 20 41 2C 48 0D 0A 20 20 20 MOV A,H..
000180: 20 20 20 20 20 52 41 52 0D 0A 20 20 20 20 20 20 RAR..
000190: 20 20 4D 4F 56 20 20 20 20 20 48 2C 41 0D 0A 20 MOV H,A..
0001A0: 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 MOV A
0001B0: 2C 4C 0D 0A 20 20 20 20 20 20 20 20 52 41 52 0D ,L.. RAR.
0001C0: 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 . MOV
0001D0: 20 4C 2C 41 0D 0A 20 20 20 20 20 20 20 20 4A 4D L,A.. JM
0001E0: 50 20 20 20 20 20 43 43 41 53 52 2B 31 0D 0A 3B P CCASR+1..;
0001F0: 0D 0A 3B 53 48 49 46 54 20 44 45 20 41 52 49 54 ..;SHIFT DE ARIT
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 58 43 48 47 0D 0A 20 20 20 XCHG..
000010: 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 4E 45 RET..;..;NE
000020: 47 41 54 45 20 54 48 45 20 49 4E 54 45 47 45 52 GATE THE INTEGER
000030: 20 49 4E 20 44 45 20 28 49 4E 54 45 52 4E 41 4C IN DE (INTERNAL
000040: 20 52 4F 55 54 49 4E 45 29 0D 0A 43 43 44 45 4E ROUTINE)..CCDEN
000050: 45 47 3A 20 4D 4F 56 20 20 20 20 41 2C 44 0D 0A EG: MOV A,D..
000060: 20 20 20 20 20 20 20 20 43 4D 41 0D 0A 20 20 20 CMA..
000070: 20 20 20 20 20 4D 4F 56 20 20 20 20 20 44 2C 41 MOV D,A
000080: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
000090: 20 20 41 2C 45 0D 0A 20 20 20 20 20 20 20 20 43 A,E.. C
0000A0: 4D 41 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 MA.. MOV
0000B0: 20 20 20 20 45 2C 41 0D 0A 20 20 20 20 20 20 20 E,A..
0000C0: 20 49 4E 58 20 20 20 20 20 44 0D 0A 20 20 20 20 INX D..
0000D0: 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 4E 45 47 RET..;..;NEG
0000E0: 41 54 45 20 54 48 45 20 49 4E 54 45 47 45 52 20 ATE THE INTEGER
0000F0: 49 4E 20 42 43 20 28 49 4E 54 45 52 4E 41 4C 20 IN BC (INTERNAL
000100: 52 4F 55 54 49 4E 45 29 0D 0A 43 43 42 43 4E 45 ROUTINE)..CCBCNE
000110: 47 3A 20 4D 4F 56 20 20 20 20 41 2C 42 0D 0A 20 G: MOV A,B..
000120: 20 20 20 20 20 20 20 43 4D 41 0D 0A 20 20 20 20 CMA..
000130: 20 20 20 20 4D 4F 56 20 20 20 20 20 42 2C 41 0D MOV B,A.
000140: 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 . MOV
000150: 20 41 2C 43 0D 0A 20 20 20 20 20 20 20 20 43 4D A,C.. CM
000160: 41 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 A.. MOV
000170: 20 20 20 43 2C 41 0D 0A 20 20 20 20 20 20 20 20 C,A..
000180: 49 4E 58 20 20 20 20 20 42 0D 0A 20 20 20 20 20 INX B..
000190: 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 52 4F 54 41 RET..;..;ROTA
0001A0: 54 45 20 44 45 20 4C 45 46 54 20 4F 4E 45 20 42 TE DE LEFT ONE B
0001B0: 49 54 20 28 49 4E 54 45 52 4E 41 4C 20 52 4F 55 IT (INTERNAL ROU
0001C0: 54 49 4E 45 29 0D 0A 43 43 52 44 45 4C 3A 20 4D TINE)..CCRDEL: M
0001D0: 4F 56 20 20 20 20 20 41 2C 45 0D 0A 20 20 20 20 OV A,E..
0001E0: 20 20 20 20 52 41 4C 0D 0A 20 20 20 20 20 20 20 RAL..
0001F0: 20 4D 4F 56 20 20 20 20 20 45 2C 41 0D 0A 20 20 MOV E,A..
Size : 512 (Real : 512)
000000: 48 4D 45 54 49 43 41 4C 4C 59 20 4C 45 46 54 20 HMETICALLY LEFT
000010: 42 59 20 48 4C 20 41 4E 44 20 52 45 54 55 52 4E BY HL AND RETURN
000020: 20 49 4E 20 48 4C 0D 0A 43 43 41 53 4C 3A 3A 0D IN HL..CCASL::.
000030: 0A 20 20 20 20 20 20 20 20 58 43 48 47 0D 0A 20 . XCHG..
000040: 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 45 DCR E
000050: 0D 0A 20 20 20 20 20 20 20 20 52 4D 0D 0A 20 20 .. RM..
000060: 20 20 20 20 20 20 44 41 44 20 20 20 20 20 48 0D DAD H.
000070: 0A 20 20 20 20 20 20 20 20 4A 4D 50 20 20 20 20 . JMP
000080: 20 43 43 41 53 4C 2B 31 0D 0A 3B 0D 0A 3B 53 55 CCASL+1..;..;SU
000090: 42 54 52 41 43 54 20 48 4C 20 46 52 4F 4D 20 44 BTRACT HL FROM D
0000A0: 45 20 41 4E 44 20 52 45 54 55 52 4E 20 49 4E 20 E AND RETURN IN
0000B0: 48 4C 0D 0A 43 43 53 55 42 3A 3A 0D 0A 20 20 20 HL..CCSUB::..
0000C0: 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 45 MOV A,E
0000D0: 0D 0A 20 20 20 20 20 20 20 20 53 55 42 20 20 20 .. SUB
0000E0: 20 20 4C 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 L.. MOV
0000F0: 20 20 20 20 20 4C 2C 41 0D 0A 20 20 20 20 20 20 L,A..
000100: 20 20 4D 4F 56 20 20 20 20 20 41 2C 44 0D 0A 20 MOV A,D..
000110: 20 20 20 20 20 20 20 53 42 42 20 20 20 20 20 48 SBB H
000120: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
000130: 20 20 48 2C 41 0D 0A 20 20 20 20 20 20 20 20 52 H,A.. R
000140: 45 54 0D 0A 3B 0D 0A 3B 46 4F 52 4D 20 54 48 45 ET..;..;FORM THE
000150: 20 54 57 4F 27 53 20 43 4F 4D 50 4C 45 4D 45 4E TWO'S COMPLEMEN
000160: 54 20 4F 46 20 48 4C 0D 0A 43 43 4E 45 47 3A 3A T OF HL..CCNEG::
000170: 0D 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 20 .. CALL
000180: 20 20 43 43 43 4F 4D 0D 0A 20 20 20 20 20 20 20 CCCOM..
000190: 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 20 20 INX H..
0001A0: 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 46 4F 52 RET..;..;FOR
0001B0: 4D 20 54 48 45 20 4F 4E 45 27 53 20 43 4F 4D 50 M THE ONE'S COMP
0001C0: 4C 45 4D 45 4E 54 20 4F 46 20 48 4C 0D 0A 43 43 LEMENT OF HL..CC
0001D0: 43 4F 4D 3A 3A 0D 0A 20 20 20 20 20 20 20 20 4D COM::.. M
0001E0: 4F 56 20 20 20 20 20 41 2C 48 0D 0A 20 20 20 20 OV A,H..
0001F0: 20 20 20 20 43 4D 41 0D 0A 20 20 20 20 20 20 20 CMA..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C MOV A,
000010: 44 0D 0A 20 20 20 20 20 20 20 20 52 41 4C 0D 0A D.. RAL..
000020: 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 MOV
000030: 44 2C 41 0D 0A 20 20 20 20 20 20 20 20 4F 52 41 D,A.. ORA
000040: 20 20 20 20 20 45 0D 0A 20 20 20 20 20 20 20 20 E..
000050: 52 45 54 0D 0A 3B 0D 0A 3B 43 4F 4D 50 41 52 45 RET..;..;COMPARE
000060: 20 42 43 20 54 4F 20 44 45 20 28 49 4E 54 45 52 BC TO DE (INTER
000070: 4E 41 4C 20 52 4F 55 54 49 4E 45 29 0D 0A 43 43 NAL ROUTINE)..CC
000080: 43 4D 50 42 43 44 45 3A 20 4D 4F 56 20 20 41 2C CMPBCDE: MOV A,
000090: 45 0D 0A 20 20 20 20 20 20 20 20 53 55 42 20 20 E.. SUB
0000A0: 20 20 20 43 0D 0A 20 20 20 20 20 20 20 20 4D 4F C.. MO
0000B0: 56 20 20 20 20 20 41 2C 44 0D 0A 20 20 20 20 20 V A,D..
0000C0: 20 20 20 53 42 42 20 20 20 20 20 42 0D 0A 20 20 SBB B..
0000D0: 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B 4C RET..;..;L
0000E0: 4F 47 49 43 41 4C 20 4E 45 47 41 54 49 4F 4E 0D OGICAL NEGATION.
0000F0: 0A 43 43 4C 4E 45 47 3A 3A 0D 0A 20 20 20 20 20 .CCLNEG::..
000100: 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 48 0D 0A MOV A,H..
000110: 20 20 20 20 20 20 20 20 4F 52 41 20 20 20 20 20 ORA
000120: 4C 0D 0A 20 20 20 20 20 20 20 20 4A 4E 5A 20 20 L.. JNZ
000130: 20 20 20 24 2B 36 0D 0A 20 20 20 20 20 20 20 20 $+6..
000140: 4D 56 49 20 20 20 20 20 4C 2C 31 0D 0A 20 20 20 MVI L,1..
000150: 20 20 20 20 20 52 45 54 0D 0A 20 20 20 20 20 20 RET..
000160: 20 20 4C 58 49 20 20 20 20 20 48 2C 30 0D 0A 20 LXI H,0..
000170: 20 20 20 20 20 20 20 52 45 54 0D 0A 3B 0D 0A 3B RET..;..;
000180: 20 45 58 45 43 55 54 45 20 22 53 57 49 54 43 48 EXECUTE "SWITCH
000190: 22 20 53 54 41 54 45 4D 45 4E 54 0D 0A 3B 0D 0A " STATEMENT..;..
0001A0: 3B 20 20 48 4C 20 20 3D 20 20 53 57 49 54 43 48 ; HL = SWITCH
0001B0: 20 56 41 4C 55 45 0D 0A 3B 20 28 53 50 29 20 2D VALUE..; (SP) -
0001C0: 3E 20 53 57 49 54 43 48 20 54 41 42 4C 45 0D 0A > SWITCH TABLE..
0001D0: 3B 20 20 20 20 20 20 20 20 20 44 57 20 41 44 44 ; DW ADD
0001E0: 52 31 2C 20 56 41 4C 55 45 31 0D 0A 3B 20 20 20 R1, VALUE1..;
0001F0: 20 20 20 20 20 20 44 57 20 41 44 44 52 32 2C 20 DW ADDR2,
Size : 512 (Real : 512)
000000: 20 4D 4F 56 20 20 20 20 20 48 2C 41 0D 0A 20 20 MOV H,A..
000010: 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C MOV A,
000020: 4C 0D 0A 20 20 20 20 20 20 20 20 43 4D 41 0D 0A L.. CMA..
000030: 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 MOV
000040: 4C 2C 41 0D 0A 20 20 20 20 20 20 20 20 52 45 54 L,A.. RET
000050: 0D 0A 3B 0D 0A 3B 4D 55 4C 54 49 50 4C 59 20 44 ..;..;MULTIPLY D
000060: 45 20 42 59 20 48 4C 20 41 4E 44 20 52 45 54 55 E BY HL AND RETU
000070: 52 4E 20 49 4E 20 48 4C 20 28 53 49 47 4E 45 44 RN IN HL (SIGNED
000080: 20 4D 55 4C 54 49 50 4C 59 29 0D 0A 43 43 4D 55 MULTIPLY)..CCMU
000090: 4C 54 3A 3A 0D 0A 4D 55 4C 54 3A 20 20 20 4D 4F LT::..MULT: MO
0000A0: 56 20 20 20 20 20 42 2C 48 0D 0A 20 20 20 20 20 V B,H..
0000B0: 20 20 20 4D 4F 56 20 20 20 20 20 43 2C 4C 0D 0A MOV C,L..
0000C0: 20 20 20 20 20 20 20 20 4C 58 49 20 20 20 20 20 LXI
0000D0: 48 2C 30 0D 0A 4D 55 4C 54 31 3A 20 20 4D 4F 56 H,0..MULT1: MOV
0000E0: 20 20 20 20 20 41 2C 43 0D 0A 20 20 20 20 20 20 A,C..
0000F0: 20 20 52 52 43 0D 0A 20 20 20 20 20 20 20 20 4A RRC.. J
000100: 4E 43 20 20 20 20 20 4D 55 4C 54 32 0D 0A 20 20 NC MULT2..
000110: 20 20 20 20 20 20 44 41 44 20 20 20 20 20 44 0D DAD D.
000120: 0A 4D 55 4C 54 32 3A 20 20 58 52 41 20 41 0D 0A .MULT2: XRA A..
000130: 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 MOV
000140: 41 2C 42 0D 0A 20 20 20 20 20 20 20 20 52 41 52 A,B.. RAR
000150: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
000160: 20 20 42 2C 41 0D 0A 20 20 20 20 20 20 20 20 4D B,A.. M
000170: 4F 56 20 20 20 20 20 41 2C 43 0D 0A 20 20 20 20 OV A,C..
000180: 20 20 20 20 52 41 52 0D 0A 20 20 20 20 20 20 20 RAR..
000190: 20 4D 4F 56 20 20 20 20 20 43 2C 41 0D 0A 20 20 MOV C,A..
0001A0: 20 20 20 20 20 20 4F 52 41 20 20 20 20 20 42 0D ORA B.
0001B0: 0A 20 20 20 20 20 20 20 20 52 5A 0D 0A 20 20 20 . RZ..
0001C0: 20 20 20 20 20 58 52 41 20 20 20 20 20 41 0D 0A XRA A..
0001D0: 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 20 20 MOV
0001E0: 41 2C 45 0D 0A 20 20 20 20 20 20 20 20 52 41 4C A,E.. RAL
0001F0: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
Size : 512 (Real : 512)
000000: 56 41 4C 55 45 32 0D 0A 3B 20 20 20 20 20 20 20 VALUE2..;
000010: 20 20 2E 2E 2E 0D 0A 3B 20 20 20 20 20 20 20 20 .....;
000020: 20 44 57 20 30 0D 0A 3B 20 20 20 20 20 20 20 20 DW 0..;
000030: 5B 4A 4D 50 20 64 65 66 61 75 6C 74 5D 0D 0A 3B [JMP default]..;
000040: 20 20 20 20 20 20 20 20 20 63 6F 6E 74 69 6E 75 continu
000050: 61 74 69 6F 6E 0D 0A 3B 0D 0A 43 43 53 57 49 54 ation..;..CCSWIT
000060: 43 48 3A 3A 0D 0A 20 20 20 20 20 20 20 20 58 43 CH::.. XC
000070: 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3B 44 HG ;D
000080: 45 20 3D 20 20 53 57 49 54 43 48 20 56 41 4C 55 E = SWITCH VALU
000090: 45 0D 0A 20 20 20 20 20 20 20 20 50 4F 50 20 20 E.. POP
0000A0: 20 20 20 48 20 20 20 20 20 20 20 3B 48 4C 20 2D H ;HL -
0000B0: 3E 20 53 57 49 54 43 48 20 54 41 42 4C 45 0D 0A > SWITCH TABLE..
0000C0: 53 57 4C 4F 4F 50 3A 20 4D 4F 56 20 20 20 20 20 SWLOOP: MOV
0000D0: 43 2C 4D 0D 0A 20 20 20 20 20 20 20 20 49 4E 58 C,M.. INX
0000E0: 20 20 20 20 20 48 0D 0A 20 20 20 20 20 20 20 20 H..
0000F0: 4D 4F 56 20 20 20 20 20 42 2C 4D 20 20 20 20 20 MOV B,M
000100: 3B 42 43 20 2D 3E 20 43 41 53 45 20 41 44 44 52 ;BC -> CASE ADDR
000110: 2C 20 45 4C 53 45 20 30 0D 0A 20 20 20 20 20 20 , ELSE 0..
000120: 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 20 20 INX H..
000130: 20 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 42 MOV A,B
000140: 0D 0A 20 20 20 20 20 20 20 20 4F 52 41 20 20 20 .. ORA
000150: 20 20 43 0D 0A 20 20 20 20 20 20 20 20 4A 5A 20 C.. JZ
000160: 20 20 20 20 20 53 57 45 4E 44 20 20 20 3B 44 45 SWEND ;DE
000170: 46 41 55 4C 54 20 4F 52 20 43 4F 4E 54 49 4E 55 FAULT OR CONTINU
000180: 41 54 49 4F 4E 20 43 4F 44 45 0D 0A 20 20 20 20 ATION CODE..
000190: 20 20 20 20 4D 4F 56 20 20 20 20 20 41 2C 4D 0D MOV A,M.
0001A0: 0A 20 20 20 20 20 20 20 20 49 4E 58 20 20 20 20 . INX
0001B0: 20 48 0D 0A 20 20 20 20 20 20 20 20 43 4D 50 20 H.. CMP
0001C0: 20 20 20 20 45 0D 0A 20 20 20 20 20 20 20 20 4D E.. M
0001D0: 4F 56 20 20 20 20 20 41 2C 4D 0D 0A 20 20 20 20 OV A,M..
0001E0: 20 20 20 20 49 4E 58 20 20 20 20 20 48 0D 0A 20 INX H..
0001F0: 20 20 20 20 20 20 20 4A 4E 5A 20 20 20 20 20 53 JNZ S
Size : 512 (Real : 512)
000000: 20 20 45 2C 41 0D 0A 20 20 20 20 20 20 20 20 4D E,A.. M
000010: 4F 56 20 20 20 20 20 41 2C 44 0D 0A 20 20 20 20 OV A,D..
000020: 20 20 20 20 52 41 4C 0D 0A 20 20 20 20 20 20 20 RAL..
000030: 20 4D 4F 56 20 20 20 20 20 44 2C 41 0D 0A 20 20 MOV D,A..
000040: 20 20 20 20 20 20 4F 52 41 20 20 20 20 20 45 0D ORA E.
000050: 0A 20 20 20 20 20 20 20 20 52 5A 0D 0A 20 20 20 . RZ..
000060: 20 20 20 20 20 4A 4D 50 20 20 20 20 20 4D 55 4C JMP MUL
000070: 54 31 0D 0A 3B 0D 0A 3B 44 49 56 49 44 45 20 44 T1..;..;DIVIDE D
000080: 45 20 42 59 20 48 4C 20 41 4E 44 20 52 45 54 55 E BY HL AND RETU
000090: 52 4E 20 51 55 4F 54 49 45 4E 54 20 49 4E 20 48 RN QUOTIENT IN H
0000A0: 4C 2C 20 52 45 4D 41 49 4E 44 45 52 20 49 4E 20 L, REMAINDER IN
0000B0: 44 45 20 28 53 49 47 4E 45 44 20 44 49 56 49 44 DE (SIGNED DIVID
0000C0: 45 29 0D 0A 43 43 44 49 56 3A 3A 0D 0A 44 49 56 E)..CCDIV::..DIV
0000D0: 3A 20 20 20 20 4D 4F 56 20 20 20 20 20 42 2C 48 : MOV B,H
0000E0: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
0000F0: 20 20 43 2C 4C 0D 0A 20 20 20 20 20 20 20 20 4D C,L.. M
000100: 4F 56 20 20 20 20 20 41 2C 44 0D 0A 20 20 20 20 OV A,D..
000110: 20 20 20 20 58 52 41 20 20 20 20 20 42 0D 0A 20 XRA B..
000120: 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 50 PUSH P
000130: 53 57 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 SW.. MOV
000140: 20 20 20 20 41 2C 44 0D 0A 20 20 20 20 20 20 20 A,D..
000150: 20 4F 52 41 20 20 20 20 20 41 0D 0A 20 20 20 20 ORA A..
000160: 20 20 20 20 43 4D 20 20 20 20 20 20 43 43 44 45 CM CCDE
000170: 4E 45 47 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 NEG.. MOV
000180: 20 20 20 20 20 41 2C 42 0D 0A 20 20 20 20 20 20 A,B..
000190: 20 20 4F 52 41 20 20 20 20 20 41 0D 0A 20 20 20 ORA A..
0001A0: 20 20 20 20 20 43 4D 20 20 20 20 20 20 43 43 42 CM CCB
0001B0: 43 4E 45 47 0D 0A 20 20 20 20 20 20 20 20 4D 56 CNEG.. MV
0001C0: 49 20 20 20 20 20 41 2C 31 36 0D 0A 20 20 20 20 I A,16..
0001D0: 20 20 20 20 50 55 53 48 20 20 20 20 50 53 57 0D PUSH PSW.
0001E0: 0A 20 20 20 20 20 20 20 20 58 43 48 47 0D 0A 20 . XCHG..
0001F0: 20 20 20 20 20 20 20 4C 58 49 20 20 20 20 20 44 LXI D
Size : 512 (Real : 512)
000000: 57 4C 4F 4F 50 0D 0A 20 20 20 20 20 20 20 20 43 WLOOP.. C
000010: 4D 50 20 20 20 20 20 44 0D 0A 20 20 20 20 20 20 MP D..
000020: 20 20 4A 4E 5A 20 20 20 20 20 53 57 4C 4F 4F 50 JNZ SWLOOP
000030: 0D 0A 20 20 20 20 20 20 20 20 4D 4F 56 20 20 20 .. MOV
000040: 20 20 48 2C 42 20 20 20 20 20 3B 43 41 53 45 20 H,B ;CASE
000050: 4D 41 54 43 48 45 44 0D 0A 20 20 20 20 20 20 20 MATCHED..
000060: 20 4D 4F 56 20 20 20 20 20 4C 2C 43 0D 0A 53 57 MOV L,C..SW
000070: 45 4E 44 3A 20 20 50 43 48 4C 0D 0A 3B 0D 0A 55 END: PCHL..;..U
000080: 65 6E 64 3A 20 6C 68 6C 64 20 20 36 20 20 20 20 end: lhld 6
000090: 20 20 20 20 20 20 20 3B 67 65 74 20 62 64 6F 73 ;get bdos
0000A0: 20 61 64 64 72 65 73 73 0D 0A 20 20 20 20 20 20 address..
0000B0: 73 70 68 6C 20 20 20 20 20 20 20 20 20 20 20 20 sphl
0000C0: 20 20 3B 75 73 65 20 66 6F 72 20 62 61 73 65 20 ;use for base
0000D0: 6F 66 20 73 74 61 63 6B 0D 0A 20 20 20 20 20 20 of stack..
0000E0: 6C 78 69 20 20 20 68 2C 55 65 6E 64 20 20 20 20 lxi h,Uend
0000F0: 20 20 3B 67 65 74 20 73 74 61 72 74 20 6F 66 20 ;get start of
000100: 66 72 65 65 20 6D 65 6D 6F 72 79 0D 0A 20 20 20 free memory..
000110: 20 20 20 73 68 6C 64 20 20 55 6D 65 6D 70 74 72 shld Umemptr
000120: 23 23 20 20 20 3B 75 73 65 20 66 6F 72 20 6D 65 ## ;use for me
000130: 6D 6F 72 79 20 61 6C 6C 6F 63 61 74 69 6F 6E 0D mory allocation.
000140: 0A 20 20 20 20 20 20 6A 6D 70 20 20 20 55 6D 61 . jmp Uma
000150: 69 6E 23 23 20 20 20 20 20 3B 70 61 72 73 65 20 in## ;parse
000160: 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 2C 20 65 78 command line, ex
000170: 65 63 75 74 65 20 70 72 6F 67 72 61 6D 0D 0A 20 ecute program..
000180: 20 20 20 20 20 65 6E 64 20 20 20 55 65 6E 64 20 end Uend
000190: 20 20 20 20 20 20 0D 0A 3E 3E 3E 20 43 41 4C 4C ..>>> CALL
0001A0: 4F 43 2E 43 20 33 36 30 0D 0A 23 64 65 66 69 6E OC.C 360..#defin
0001B0: 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E e NOCCARGC /* n
0001C0: 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 o argument count
0001D0: 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E passing */..#in
0001E0: 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A 2F clude stdio.h../
0001F0: 2A 0D 0A 2A 2A 20 43 6C 65 61 72 65 64 2D 6D 65 *..** Cleared-me
Size : 512 (Real : 512)
000000: 23 64 65 66 69 6E 65 20 47 45 54 50 4F 53 20 20 #define GETPOS
000010: 20 33 36 20 20 2F 2A 20 67 65 74 20 6E 75 6D 62 36 /* get numb
000020: 65 72 20 6F 66 20 63 75 72 72 65 6E 74 20 73 65 er of current se
000030: 63 74 6F 72 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 ctor */..#define
000040: 20 57 52 54 52 4E 44 20 20 20 34 30 20 20 2F 2A WRTRND 40 /*
000050: 20 77 72 69 74 65 20 73 65 63 74 6F 72 20 72 61 write sector ra
000060: 6E 64 6F 6D 6C 79 20 2A 2F 0D 0A 2F 2A 0D 0A 2A ndomly */../*..*
000070: 2A 20 44 65 76 69 63 65 20 63 6F 64 65 73 0D 0A * Device codes..
000080: 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 43 50 4D 43 */..#define CPMC
000090: 4F 4E 20 44 43 4F 4E 49 4F 20 2F 2A 20 63 6F 6E ON DCONIO /* con
0000A0: 73 6F 6C 65 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 sole */..#define
0000B0: 20 43 50 4D 52 44 52 20 52 44 52 49 4E 50 20 2F CPMRDR RDRINP /
0000C0: 2A 20 72 65 61 64 65 72 20 20 2A 2F 0D 0A 23 64 * reader */..#d
0000D0: 65 66 69 6E 65 20 43 50 4D 50 55 4E 20 50 55 4E efine CPMPUN PUN
0000E0: 4F 55 54 20 2F 2A 20 70 75 6E 63 68 20 20 20 2A OUT /* punch *
0000F0: 2F 0D 0A 23 64 65 66 69 6E 65 20 43 50 4D 4C 53 /..#define CPMLS
000100: 54 20 4C 53 54 4F 55 54 20 2F 2A 20 6C 69 73 74 T LSTOUT /* list
000110: 20 20 20 20 2A 2F 0D 0A 2F 2A 0D 0A 2A 2A 20 46 */../*..** F
000120: 69 6C 65 20 73 74 61 74 75 73 20 62 69 74 73 0D ile status bits.
000130: 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 52 44 42 .*/..#define RDB
000140: 49 54 20 20 20 20 20 20 31 20 20 2F 2A 20 6F 70 IT 1 /* op
000150: 65 6E 20 66 6F 72 20 72 65 61 64 20 2A 2F 0D 0A en for read */..
000160: 23 64 65 66 69 6E 65 20 57 52 54 42 49 54 20 20 #define WRTBIT
000170: 20 20 20 32 20 20 2F 2A 20 6F 70 65 6E 20 66 6F 2 /* open fo
000180: 72 20 77 72 69 74 65 20 2A 2F 0D 0A 23 64 65 66 r write */..#def
000190: 69 6E 65 20 45 4F 46 42 49 54 20 20 20 20 20 34 ine EOFBIT 4
0001A0: 20 20 2F 2A 20 65 6F 66 20 63 6F 6E 64 69 74 69 /* eof conditi
0001B0: 6F 6E 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 45 on */..#define E
0001C0: 52 52 42 49 54 20 20 20 20 20 38 20 20 2F 2A 20 RRBIT 8 /*
0001D0: 65 72 72 6F 72 20 63 6F 6E 64 69 74 69 6F 6E 20 error condition
0001E0: 2A 2F 0D 0A 2F 2A 0D 0A 2A 2A 20 41 53 43 49 49 */../*..** ASCII
0001F0: 20 63 68 61 72 61 63 74 65 72 73 0D 0A 2A 2F 0D characters..*/.
Size : 512 (Real : 512)
000000: 6D 6F 72 79 20 61 6C 6C 6F 63 61 74 69 6F 6E 20 mory allocation
000010: 6F 66 20 6E 20 69 74 65 6D 73 20 6F 66 20 73 69 of n items of si
000020: 7A 65 20 62 79 74 65 73 2E 0D 0A 2A 2A 20 6E 20 ze bytes...** n
000030: 20 20 20 20 3D 20 4E 75 6D 62 65 72 20 6F 66 20 = Number of
000040: 69 74 65 6D 73 20 74 6F 20 61 6C 6C 6F 63 61 74 items to allocat
000050: 65 20 73 70 61 63 65 20 66 6F 72 2E 0D 0A 2A 2A e space for...**
000060: 20 73 69 7A 65 20 20 3D 20 53 69 7A 65 20 6F 66 size = Size of
000070: 20 74 68 65 20 69 74 65 6D 73 20 69 6E 20 62 79 the items in by
000080: 74 65 73 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 tes...** Returns
000090: 20 74 68 65 20 61 64 64 72 65 73 73 20 6F 66 20 the address of
0000A0: 74 68 65 20 61 6C 6C 6F 63 61 74 65 64 20 62 6C the allocated bl
0000B0: 6F 63 6B 2C 0D 0A 2A 2A 20 65 6C 73 65 20 4E 55 ock,..** else NU
0000C0: 4C 4C 20 66 6F 72 20 66 61 69 6C 75 72 65 2E 0D LL for failure..
0000D0: 0A 2A 2F 0D 0A 63 61 6C 6C 6F 63 28 6E 2C 20 73 .*/..calloc(n, s
0000E0: 69 7A 65 29 20 63 68 61 72 20 2A 6E 2C 20 2A 73 ize) char *n, *s
0000F0: 69 7A 65 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E ize; {.. return
000100: 20 28 55 61 6C 6C 6F 63 28 6E 2A 73 69 7A 65 2C (Ualloc(n*size,
000110: 20 59 45 53 29 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E YES));.. }..>>
000120: 3E 20 43 4C 45 41 52 45 52 52 2E 43 20 32 30 36 > CLEARERR.C 206
000130: 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 ..#define NOCCAR
000140: 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 20 63 6F GC /* no arg co
000150: 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A unt passing */..
000160: 23 69 6E 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 #include stdio.h
000170: 0D 0A 23 69 6E 63 6C 75 64 65 20 63 6C 69 62 2E ..#include clib.
000180: 64 65 66 0D 0A 65 78 74 65 72 6E 20 69 6E 74 20 def..extern int
000190: 55 73 74 61 74 75 73 5B 5D 3B 0D 0A 2F 2A 0D 0A Ustatus[];../*..
0001A0: 2A 2A 20 43 6C 65 61 72 20 65 72 72 6F 72 20 73 ** Clear error s
0001B0: 74 61 74 75 73 20 66 6F 72 20 66 64 2E 0D 0A 2A tatus for fd...*
0001C0: 2F 0D 0A 63 6C 65 61 72 65 72 72 28 66 64 29 20 /..clearerr(fd)
0001D0: 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 69 66 28 int fd; {.. if(
0001E0: 55 6D 6F 64 65 28 66 64 29 29 20 55 73 74 61 74 Umode(fd)) Ustat
0001F0: 75 73 5B 66 64 5D 20 26 3D 20 7E 45 52 52 42 49 us[fd] &= ~ERRBI
Size : 512 (Real : 512)
000000: 0A 23 64 65 66 69 6E 65 20 41 42 4F 52 54 20 20 .#define ABORT
000010: 20 20 33 0D 0A 23 64 65 66 69 6E 65 20 52 55 42 3..#define RUB
000020: 20 20 20 20 20 20 38 0D 0A 23 64 65 66 69 6E 65 8..#define
000030: 20 50 41 55 53 45 20 20 20 31 39 0D 0A 23 64 65 PAUSE 19..#de
000040: 66 69 6E 65 20 57 49 50 45 20 20 20 20 32 34 0D fine WIPE 24.
000050: 0A 23 64 65 66 69 6E 65 20 44 45 4C 20 20 20 20 .#define DEL
000060: 31 32 37 0D 0A 3E 3E 3E 20 43 53 45 45 4B 2E 43 127..>>> CSEEK.C
000070: 20 39 30 38 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 908..#define NO
000080: 43 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 CCARGC /* no ar
000090: 67 75 6D 65 6E 74 20 63 6F 75 6E 74 20 70 61 73 gument count pas
0000A0: 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64 sing */..#includ
0000B0: 65 20 73 74 64 69 6F 2E 68 0D 0A 23 69 6E 63 6C e stdio.h..#incl
0000C0: 75 64 65 20 63 6C 69 62 2E 64 65 66 0D 0A 65 78 ude clib.def..ex
0000D0: 74 65 72 6E 20 69 6E 74 20 55 66 63 62 70 74 72 tern int Ufcbptr
0000E0: 5B 5D 2C 20 55 63 68 72 70 6F 73 5B 5D 2C 20 55 [], Uchrpos[], U
0000F0: 6E 65 78 74 63 5B 5D 3B 0D 0A 2F 2A 0D 0A 2A 2A nextc[];../*..**
000100: 20 50 6F 73 69 74 69 6F 6E 20 66 64 20 74 6F 20 Position fd to
000110: 74 68 65 20 31 32 38 2D 62 79 74 65 20 72 65 63 the 128-byte rec
000120: 6F 72 64 20 69 6E 64 69 63 61 74 65 64 20 62 79 ord indicated by
000130: 0D 0A 2A 2A 20 22 6F 66 66 73 65 74 22 20 72 65 ..** "offset" re
000140: 6C 61 74 69 76 65 20 74 6F 20 74 68 65 20 70 6F lative to the po
000150: 69 6E 74 20 69 6E 64 69 63 61 74 65 64 20 62 79 int indicated by
000160: 20 22 62 61 73 65 2E 22 0D 0A 2A 2A 20 0D 0A 2A "base."..** ..*
000170: 2A 20 20 20 20 20 42 41 53 45 20 20 20 20 20 4F * BASE O
000180: 46 46 53 45 54 2D 52 45 4C 41 54 49 56 45 2D 54 FFSET-RELATIVE-T
000190: 4F 0D 0A 2A 2A 20 20 20 20 20 20 20 30 20 20 20 O..** 0
0001A0: 20 20 20 66 69 72 73 74 20 72 65 63 6F 72 64 0D first record.
0001B0: 0A 2A 2A 20 20 20 20 20 20 20 31 20 20 20 20 20 .** 1
0001C0: 20 63 75 72 72 65 6E 74 20 72 65 63 6F 72 64 0D current record.
0001D0: 0A 2A 2A 20 20 20 20 20 20 20 32 20 20 20 20 20 .** 2
0001E0: 20 65 6E 64 20 6F 66 20 66 69 6C 65 20 28 6C 61 end of file (la
0001F0: 73 74 20 72 65 63 6F 72 64 20 2B 20 31 29 0D 0A st record + 1)..
Size : 512 (Real : 512)
000000: 54 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 43 T;.. }....>>> C
000010: 4C 49 42 2E 44 45 46 20 32 30 35 36 0D 0A 2F 2A LIB.DEF 2056../*
000020: 0D 0A 2A 2A 20 43 4C 49 42 2E 44 45 46 20 2D 2D ..** CLIB.DEF --
000030: 20 44 65 66 69 6E 69 74 69 6F 6E 73 20 66 6F 72 Definitions for
000040: 20 53 6D 61 6C 6C 2D 43 20 6C 69 62 72 61 72 79 Small-C library
000050: 20 66 75 6E 63 74 69 6F 6E 73 2E 0D 0A 2A 2A 0D functions...**.
000060: 0A 2A 2A 20 43 6F 70 79 72 69 67 68 74 20 31 39 .** Copyright 19
000070: 38 33 20 20 4C 2E 20 45 2E 20 50 61 79 6E 65 20 83 L. E. Payne
000080: 61 6E 64 20 4A 2E 20 45 2E 20 48 65 6E 64 72 69 and J. E. Hendri
000090: 78 0D 0A 2A 2F 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 x..*/..../*..**
0000A0: 44 65 66 69 6E 69 74 69 6F 6E 20 6F 66 20 43 50 Definition of CP
0000B0: 2F 4D 20 46 43 42 20 61 6E 64 20 61 64 64 69 74 /M FCB and addit
0000C0: 69 6F 6E 61 6C 20 70 61 72 61 6D 65 74 65 72 73 ional parameters
0000D0: 0D 0A 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 46 43 ..*/..#define FC
0000E0: 42 53 49 5A 45 20 20 20 33 36 20 20 2F 2A 20 73 BSIZE 36 /* s
0000F0: 69 7A 65 20 6F 66 20 66 69 6C 65 20 63 6F 6E 74 ize of file cont
000100: 72 6F 6C 20 62 6C 6F 63 6B 20 2A 2F 0D 0A 23 64 rol block */..#d
000110: 65 66 69 6E 65 20 44 52 49 56 45 20 20 20 20 20 efine DRIVE
000120: 20 30 20 20 2F 2A 20 43 50 2F 4D 20 64 72 69 76 0 /* CP/M driv
000130: 65 20 64 65 73 69 67 6E 61 74 6F 72 20 6F 66 66 e designator off
000140: 73 65 74 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 set */..#define
000150: 4E 41 4D 45 4F 46 46 20 20 20 20 31 20 20 2F 2A NAMEOFF 1 /*
000160: 20 43 50 2F 4D 20 66 69 6C 65 20 6E 61 6D 65 20 CP/M file name
000170: 6F 66 66 73 65 74 20 2A 2F 0D 0A 23 64 65 66 69 offset */..#defi
000180: 6E 65 20 4E 41 4D 45 4F 46 46 32 20 20 31 36 20 ne NAMEOFF2 16
000190: 20 2F 2A 20 43 50 2F 4D 20 32 6E 64 20 66 69 6C /* CP/M 2nd fil
0001A0: 65 20 6E 61 6D 65 20 6F 66 66 73 65 74 20 2A 2F e name offset */
0001B0: 0D 0A 23 64 65 66 69 6E 65 20 4E 41 4D 45 53 49 ..#define NAMESI
0001C0: 5A 45 20 20 20 38 20 20 2F 2A 20 43 50 2F 4D 20 ZE 8 /* CP/M
0001D0: 66 69 6C 65 20 6E 61 6D 65 20 73 69 7A 65 20 2A file name size *
0001E0: 2F 0D 0A 23 64 65 66 69 6E 65 20 54 59 50 45 4F /..#define TYPEO
0001F0: 46 46 20 20 20 20 39 20 20 2F 2A 20 43 50 2F 4D FF 9 /* CP/M
Size : 512 (Real : 512)
000000: 2A 2A 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 4E **..** Returns N
000010: 55 4C 4C 20 6F 6E 20 73 75 63 63 65 73 73 2C 20 ULL on success,
000020: 65 6C 73 65 20 45 4F 46 2E 0D 0A 2A 2F 0D 0A 63 else EOF...*/..c
000030: 73 65 65 6B 28 66 64 2C 20 6F 66 66 73 65 74 2C seek(fd, offset,
000040: 20 62 61 73 65 29 20 69 6E 74 20 66 64 2C 20 6F base) int fd, o
000050: 66 66 73 65 74 2C 20 62 61 73 65 3B 20 7B 0D 0A ffset, base; {..
000060: 20 20 69 6E 74 20 6F 6C 64 72 72 6E 2C 20 2A 72 int oldrrn, *r
000070: 72 6E 3B 0D 0A 20 20 69 66 28 21 55 6D 6F 64 65 rn;.. if(!Umode
000080: 28 66 64 29 20 7C 7C 20 69 73 61 74 74 79 28 66 (fd) || isatty(f
000090: 64 29 20 7C 7C 20 66 66 6C 75 73 68 28 66 64 29 d) || fflush(fd)
0000A0: 29 20 72 65 74 75 72 6E 20 28 45 4F 46 29 3B 0D ) return (EOF);.
0000B0: 0A 20 20 72 72 6E 20 3D 20 55 66 63 62 70 74 72 . rrn = Ufcbptr
0000C0: 5B 66 64 5D 20 2B 20 52 52 4E 4F 46 46 3B 0D 0A [fd] + RRNOFF;..
0000D0: 20 20 6F 6C 64 72 72 6E 20 3D 20 2A 72 72 6E 3B oldrrn = *rrn;
0000E0: 0D 0A 20 20 73 77 69 74 63 68 20 28 62 61 73 65 .. switch (base
0000F0: 29 20 7B 0D 0A 20 20 20 20 63 61 73 65 20 32 3A ) {.. case 2:
000100: 20 55 62 64 6F 73 28 50 4F 53 45 4E 44 2C 20 55 Ubdos(POSEND, U
000110: 66 63 62 70 74 72 5B 66 64 5D 29 3B 0D 0A 20 20 fcbptr[fd]);..
000120: 20 20 63 61 73 65 20 31 3A 20 2A 72 72 6E 20 2B case 1: *rrn +
000130: 3D 20 6F 66 66 73 65 74 3B 20 62 72 65 61 6B 3B = offset; break;
000140: 0D 0A 20 20 20 20 63 61 73 65 20 30 3A 20 2A 72 .. case 0: *r
000150: 72 6E 20 3D 20 6F 66 66 73 65 74 3B 20 20 62 72 rn = offset; br
000160: 65 61 6B 3B 0D 0A 20 20 20 20 64 65 66 61 75 6C eak;.. defaul
000170: 74 3A 20 72 65 74 75 72 6E 20 28 45 4F 46 29 3B t: return (EOF);
000180: 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 66 28 55 73 .. }.. if(Us
000190: 65 63 74 6F 72 28 66 64 2C 20 20 52 44 52 4E 44 ector(fd, RDRND
0001A0: 29 29 20 7B 0D 0A 20 20 20 20 2A 72 72 6E 20 3D )) {.. *rrn =
0001B0: 20 6F 6C 64 72 72 6E 3B 0D 0A 20 20 20 20 72 65 oldrrn;.. re
0001C0: 74 75 72 6E 20 28 45 4F 46 29 3B 0D 0A 20 20 20 turn (EOF);..
0001D0: 20 7D 0D 0A 20 20 55 63 68 72 70 6F 73 5B 66 64 }.. Uchrpos[fd
0001E0: 5D 20 3D 20 30 3B 0D 0A 20 20 55 6E 65 78 74 63 ] = 0;.. Unextc
0001F0: 5B 66 64 5D 20 3D 20 45 4F 46 3B 0D 0A 20 20 55 [fd] = EOF;.. U
Size : 512 (Real : 512)
000000: 20 66 69 6C 65 20 74 79 70 65 20 6F 66 66 73 65 file type offse
000010: 74 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 54 59 t */..#define TY
000020: 50 45 53 49 5A 45 20 20 20 33 20 20 2F 2A 20 43 PESIZE 3 /* C
000030: 50 2F 4D 20 66 69 6C 65 20 74 79 70 65 20 73 69 P/M file type si
000040: 7A 65 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 4E ze */..#define N
000050: 54 53 49 5A 45 20 20 20 20 31 31 20 20 2F 2A 20 TSIZE 11 /*
000060: 43 50 2F 4D 20 66 69 6C 65 20 6E 61 6D 65 20 26 CP/M file name &
000070: 20 74 79 70 65 20 73 69 7A 65 20 2A 2F 0D 0A 23 type size */..#
000080: 64 65 66 69 6E 65 20 52 52 4E 4F 46 46 20 20 20 define RRNOFF
000090: 20 33 33 20 20 2F 2A 20 43 50 2F 4D 20 72 61 6E 33 /* CP/M ran
0000A0: 64 6F 6D 20 72 65 63 6F 72 64 20 6E 75 6D 62 65 dom record numbe
0000B0: 72 20 6F 66 66 73 65 74 20 2A 2F 0D 0A 23 64 65 r offset */..#de
0000C0: 66 69 6E 65 20 43 50 4D 45 4F 46 20 20 20 20 32 fine CPMEOF 2
0000D0: 36 20 20 2F 2A 20 43 50 2F 4D 20 65 6E 64 2D 6F 6 /* CP/M end-o
0000E0: 66 2D 66 69 6C 65 20 62 79 74 65 20 2A 2F 0D 0A f-file byte */..
0000F0: 23 64 65 66 69 6E 65 20 42 55 46 53 49 5A 45 20 #define BUFSIZE
000100: 20 31 32 38 20 20 2F 2A 20 73 69 7A 65 20 6F 66 128 /* size of
000110: 20 49 2F 4F 20 62 75 66 66 65 72 20 2A 2F 0D 0A I/O buffer */..
000120: 23 64 65 66 69 6E 65 20 4D 41 58 46 49 4C 45 53 #define MAXFILES
000130: 20 20 31 30 20 20 2F 2A 20 6D 61 78 69 6D 75 6D 10 /* maximum
000140: 20 6F 70 65 6E 20 66 69 6C 65 73 20 2A 2F 0D 0A open files */..
000150: 2F 2A 0D 0A 2A 2A 20 43 50 2F 4D 20 66 75 6E 63 /*..** CP/M func
000160: 74 69 6F 6E 20 63 61 6C 6C 73 0D 0A 2A 2F 0D 0A tion calls..*/..
000170: 23 64 65 66 69 6E 65 20 47 4F 43 50 4D 20 20 20 #define GOCPM
000180: 20 20 30 20 20 2F 2A 20 67 6F 20 74 6F 20 43 50 0 /* go to CP
000190: 2F 4D 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 52 /M */..#define R
0001A0: 44 52 49 4E 50 20 20 20 20 33 20 20 2F 2A 20 72 DRINP 3 /* r
0001B0: 65 61 64 65 72 20 69 6E 70 75 74 20 2A 2F 0D 0A eader input */..
0001C0: 23 64 65 66 69 6E 65 20 50 55 4E 4F 55 54 20 20 #define PUNOUT
0001D0: 20 20 34 20 20 2F 2A 20 70 75 6E 63 68 20 6F 75 4 /* punch ou
0001E0: 74 70 75 74 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 tput */..#define
0001F0: 20 4C 53 54 4F 55 54 20 20 20 20 35 20 20 2F 2A LSTOUT 5 /*
Size : 512 (Real : 512)
000000: 63 6C 72 65 6F 66 28 66 64 29 3B 0D 0A 20 20 72 clreof(fd);.. r
000010: 65 74 75 72 6E 20 28 4E 55 4C 4C 29 3B 0D 0A 20 eturn (NULL);..
000020: 20 7D 0D 0A 0D 0A 3E 3E 3E 20 43 53 59 53 4C 49 }....>>> CSYSLI
000030: 42 2E 43 20 31 30 32 31 36 0D 0A 0D 0A 2F 2A 0D B.C 10216..../*.
000040: 0A 2A 2A 20 43 53 59 53 4C 49 42 20 2D 2D 20 53 .** CSYSLIB -- S
000050: 79 73 74 65 6D 2D 4C 65 76 65 6C 20 4C 69 62 72 ystem-Level Libr
000060: 61 72 79 20 46 75 6E 63 74 69 6F 6E 73 0D 0A 2A ary Functions..*
000070: 2F 0D 0A 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 /....#include st
000080: 64 69 6F 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 20 dio.h..#include
000090: 63 6C 69 62 2E 64 65 66 0D 0A 23 64 65 66 69 6E clib.def..#defin
0000A0: 65 20 4E 4F 43 43 41 52 47 43 20 20 20 20 2F 2A e NOCCARGC /*
0000B0: 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 no argument cou
0000C0: 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 nt passing */..#
0000D0: 64 65 66 69 6E 65 20 44 49 52 20 20 20 20 20 20 define DIR
0000E0: 20 20 20 2F 2A 20 63 6F 6D 70 69 6C 65 20 64 69 /* compile di
0000F0: 72 65 63 74 6F 72 79 20 6F 70 74 69 6F 6E 20 2A rectory option *
000100: 2F 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 2A 2A 2A 2A 2A /..../*..*******
000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 79 73 74 *********** Syst
000120: 65 6D 20 56 61 72 69 61 62 6C 65 73 20 2A 2A 2A em Variables ***
000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000140: 2A 0D 0A 2A 2F 0D 0A 0D 0A 69 6E 74 0D 0A 20 2A *..*/....int.. *
000150: 55 61 75 78 73 7A 2C 20 20 20 20 20 20 20 20 20 Uauxsz,
000160: 20 20 20 2F 2A 20 61 64 64 72 20 6F 66 20 55 78 /* addr of Ux
000170: 73 69 7A 65 5B 5D 20 69 6E 20 41 55 58 42 55 46 size[] in AUXBUF
000180: 20 2A 2F 0D 0A 20 20 55 61 75 78 69 6E 2C 20 20 */.. Uauxin,
000190: 20 20 20 20 20 20 20 20 20 20 2F 2A 20 61 64 64 /* add
0001A0: 72 20 6F 66 20 55 78 69 6E 69 74 28 29 20 69 6E r of Uxinit() in
0001B0: 20 41 55 58 42 55 46 20 2A 2F 0D 0A 20 20 55 61 AUXBUF */.. Ua
0001C0: 75 78 72 64 2C 20 20 20 20 20 20 20 20 20 20 20 uxrd,
0001D0: 20 2F 2A 20 61 64 64 72 20 6F 66 20 55 78 72 65 /* addr of Uxre
0001E0: 61 64 28 29 20 69 6E 20 41 55 58 42 55 46 20 2A ad() in AUXBUF *
0001F0: 2F 0D 0A 20 20 55 61 75 78 77 74 2C 20 20 20 20 /.. Uauxwt,
Size : 512 (Real : 512)
000000: 20 6C 69 73 74 20 6F 75 74 70 75 74 20 2A 2F 0D list output */.
000010: 0A 23 64 65 66 69 6E 65 20 44 43 4F 4E 49 4F 20 .#define DCONIO
000020: 20 20 20 36 20 20 2F 2A 20 64 69 72 65 63 74 20 6 /* direct
000030: 63 6F 6E 73 6F 6C 65 20 69 2F 6F 20 2A 2F 0D 0A console i/o */..
000040: 23 64 65 66 69 6E 65 20 4F 50 4E 46 49 4C 20 20 #define OPNFIL
000050: 20 31 35 20 20 2F 2A 20 6F 70 65 6E 20 66 69 6C 15 /* open fil
000060: 65 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 43 4C e */..#define CL
000070: 4F 46 49 4C 20 20 20 31 36 20 20 2F 2A 20 63 6C OFIL 16 /* cl
000080: 6F 73 65 20 66 69 6C 65 20 2A 2F 0D 0A 23 64 65 ose file */..#de
000090: 66 69 6E 65 20 46 4E 44 46 49 4C 20 20 20 31 37 fine FNDFIL 17
0000A0: 20 20 2F 2A 20 66 69 6E 64 20 66 69 72 73 74 20 /* find first
0000B0: 6F 63 63 75 72 72 65 6E 63 65 20 6F 66 20 61 20 occurrence of a
0000C0: 66 69 6C 65 20 2A 2F 0D 0A 23 64 65 66 69 6E 65 file */..#define
0000D0: 20 46 4E 44 4E 58 54 20 20 20 31 38 20 20 2F 2A FNDNXT 18 /*
0000E0: 20 66 69 6E 64 20 6E 65 78 74 20 6F 63 63 75 72 find next occur
0000F0: 72 65 6E 63 65 20 6F 66 20 61 20 66 69 6C 65 20 rence of a file
000100: 2A 2F 0D 0A 23 64 65 66 69 6E 65 20 44 45 4C 46 */..#define DELF
000110: 49 4C 20 20 20 31 39 20 20 2F 2A 20 64 65 6C 65 IL 19 /* dele
000120: 74 65 20 66 69 6C 65 20 2A 2F 0D 0A 23 64 65 66 te file */..#def
000130: 69 6E 65 20 4D 41 4B 46 49 4C 20 20 20 32 32 20 ine MAKFIL 22
000140: 20 2F 2A 20 6D 61 6B 65 20 66 69 6C 65 20 2A 2F /* make file */
000150: 0D 0A 23 64 65 66 69 6E 65 20 52 45 4E 41 4D 45 ..#define RENAME
000160: 20 20 20 32 33 20 20 2F 2A 20 72 65 6E 61 6D 65 23 /* rename
000170: 20 66 69 6C 65 20 2A 2F 0D 0A 23 64 65 66 69 6E file */..#defin
000180: 65 20 53 45 54 44 4D 41 20 20 20 32 36 20 20 2F e SETDMA 26 /
000190: 2A 20 73 65 74 20 64 6D 61 20 2A 2F 0D 0A 23 64 * set dma */..#d
0001A0: 65 66 69 6E 65 20 52 44 52 4E 44 20 20 20 20 33 efine RDRND 3
0001B0: 33 20 20 2F 2A 20 72 65 61 64 20 73 65 63 74 6F 3 /* read secto
0001C0: 72 20 72 61 6E 64 6F 6D 6C 79 20 2A 2F 0D 0A 23 r randomly */..#
0001D0: 64 65 66 69 6E 65 20 50 4F 53 45 4E 44 20 20 20 define POSEND
0001E0: 33 35 20 20 2F 2A 20 70 6F 73 69 74 69 6F 6E 20 35 /* position
0001F0: 66 69 6C 65 20 74 6F 20 65 6E 64 20 2A 2F 0D 0A file to end */..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 2F 2A 20 61 64 64 72 20 /* addr
000010: 6F 66 20 55 78 77 72 69 74 65 28 29 20 69 6E 20 of Uxwrite() in
000020: 41 55 58 42 55 46 20 2A 2F 0D 0A 20 20 55 61 75 AUXBUF */.. Uau
000030: 78 66 6C 2C 20 20 20 20 20 20 20 20 20 20 20 20 xfl,
000040: 2F 2A 20 61 64 64 72 20 6F 66 20 55 78 66 6C 75 /* addr of Uxflu
000050: 73 68 28 29 20 69 6E 20 41 55 58 42 55 46 20 2A sh() in AUXBUF *
000060: 2F 0D 0A 0D 0A 20 20 55 63 6E 74 3D 31 2C 20 20 /.... Ucnt=1,
000070: 20 20 20 20 20 20 20 20 20 20 2F 2A 20 61 72 67 /* arg
000080: 20 63 6F 75 6E 74 20 66 6F 72 20 6D 61 69 6E 20 count for main
000090: 2A 2F 0D 0A 20 20 55 76 65 63 5B 32 30 5D 2C 20 */.. Uvec[20],
0000A0: 20 20 20 20 20 20 20 20 20 2F 2A 20 61 72 67 20 /* arg
0000B0: 76 65 63 74 6F 72 73 20 66 6F 72 20 6D 61 69 6E vectors for main
0000C0: 20 2A 2F 0D 0A 0D 0A 20 20 55 73 74 61 74 75 73 */.... Ustatus
0000D0: 5B 4D 41 58 46 49 4C 45 53 5D 20 3D 20 7B 52 44 [MAXFILES] = {RD
0000E0: 42 49 54 2C 20 57 52 54 42 49 54 2C 20 52 44 42 BIT, WRTBIT, RDB
0000F0: 49 54 7C 57 52 54 42 49 54 7D 2C 0D 0A 20 20 20 IT|WRTBIT},..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 2F 2A 20 73 74 61 74 75 73 20 6F 66 20 72 /* status of r
000120: 65 73 70 65 63 74 69 76 65 20 66 69 6C 65 20 2A espective file *
000130: 2F 0D 0A 20 20 55 64 65 76 69 63 65 5B 4D 41 58 /.. Udevice[MAX
000140: 46 49 4C 45 53 5D 20 3D 20 7B 43 50 4D 43 4F 4E FILES] = {CPMCON
000150: 2C 20 43 50 4D 43 4F 4E 2C 20 43 50 4D 43 4F 4E , CPMCON, CPMCON
000160: 7D 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 },..
000170: 20 20 20 20 20 20 20 20 20 2F 2A 20 6E 6F 6E 2D /* non-
000180: 64 69 73 6B 20 64 65 76 69 63 65 20 61 73 73 69 disk device assi
000190: 67 6E 6D 65 6E 74 73 20 2A 2F 0D 0A 20 20 55 6E gnments */.. Un
0001A0: 65 78 74 63 5B 4D 41 58 46 49 4C 45 53 5D 20 20 extc[MAXFILES]
0001B0: 3D 20 7B 45 4F 46 2C 20 45 4F 46 2C 20 45 4F 46 = {EOF, EOF, EOF
0001C0: 7D 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 },..
0001D0: 20 20 20 20 20 20 20 20 20 2F 2A 20 70 69 67 65 /* pige
0001E0: 6F 6E 68 6F 6C 65 20 66 6F 72 20 75 6E 67 65 74 onhole for unget
0001F0: 63 20 62 79 74 65 73 20 2A 2F 0D 0A 20 20 55 66 c bytes */.. Uf
Size : 512 (Real : 512)
000000: 64 5D 3D 52 44 42 49 54 3B 20 20 72 65 74 75 72 d]=RDBIT; retur
000010: 6E 20 28 66 64 29 3B 0D 0A 20 20 20 20 7D 0D 0A n (fd);.. }..
000020: 20 20 69 66 28 73 74 72 63 6D 70 28 66 6E 2C 22 if(strcmp(fn,"
000030: 50 55 4E 3A 22 29 3D 3D 30 29 20 7B 0D 0A 20 20 PUN:")==0) {..
000040: 20 20 55 64 65 76 69 63 65 5B 66 64 5D 3D 43 50 Udevice[fd]=CP
000050: 4D 50 55 4E 3B 20 55 73 74 61 74 75 73 5B 66 64 MPUN; Ustatus[fd
000060: 5D 3D 57 52 54 42 49 54 3B 20 72 65 74 75 72 6E ]=WRTBIT; return
000070: 20 28 66 64 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 (fd);.. }..
000080: 20 69 66 28 73 74 72 63 6D 70 28 66 6E 2C 22 4C if(strcmp(fn,"L
000090: 53 54 3A 22 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 ST:")==0) {..
0000A0: 20 55 64 65 76 69 63 65 5B 66 64 5D 3D 43 50 4D Udevice[fd]=CPM
0000B0: 4C 53 54 3B 20 55 73 74 61 74 75 73 5B 66 64 5D LST; Ustatus[fd]
0000C0: 3D 57 52 54 42 49 54 3B 20 72 65 74 75 72 6E 20 =WRTBIT; return
0000D0: 28 66 64 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 (fd);.. }..
0000E0: 69 66 28 66 63 62 20 3D 20 55 66 63 62 70 74 72 if(fcb = Ufcbptr
0000F0: 5B 66 64 5D 29 20 70 61 64 28 66 63 62 2C 20 4E [fd]) pad(fcb, N
000100: 55 4C 4C 2C 20 46 43 42 53 49 5A 45 29 3B 0D 0A ULL, FCBSIZE);..
000110: 20 20 65 6C 73 65 20 7B 0D 0A 20 20 20 20 69 66 else {.. if
000120: 28 28 66 63 62 20 3D 20 55 66 63 62 70 74 72 5B ((fcb = Ufcbptr[
000130: 66 64 5D 20 3D 20 55 61 6C 6C 6F 63 28 46 43 42 fd] = Ualloc(FCB
000140: 53 49 5A 45 2C 20 59 45 53 29 29 20 3D 3D 20 4E SIZE, YES)) == N
000150: 55 4C 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 7C ULL.. |
000160: 7C 20 28 55 62 75 66 70 74 72 5B 66 64 5D 20 3D | (Ubufptr[fd] =
000170: 20 55 61 6C 6C 6F 63 28 42 55 46 53 49 5A 45 2C Ualloc(BUFSIZE,
000180: 20 59 45 53 29 29 20 3D 3D 20 4E 55 4C 4C 29 0D YES)) == NULL).
000190: 0A 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 20 . return
0001A0: 28 45 52 52 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 (ERR);.. }..
0001B0: 20 70 61 64 28 55 62 75 66 70 74 72 5B 66 64 5D pad(Ubufptr[fd]
0001C0: 2C 20 43 50 4D 45 4F 46 2C 20 42 55 46 53 49 5A , CPMEOF, BUFSIZ
0001D0: 45 29 3B 0D 0A 20 20 55 64 69 72 74 79 5B 66 64 E);.. Udirty[fd
0001E0: 5D 20 3D 20 55 64 65 76 69 63 65 5B 66 64 5D 20 ] = Udevice[fd]
0001F0: 3D 20 55 63 68 72 70 6F 73 5B 66 64 5D 20 3D 20 = Uchrpos[fd] =
Size : 512 (Real : 512)
000000: 63 62 70 74 72 5B 4D 41 58 46 49 4C 45 53 5D 2C cbptr[MAXFILES],
000010: 20 2F 2A 20 46 43 42 20 70 6F 69 6E 74 65 72 73 /* FCB pointers
000020: 20 66 6F 72 20 6F 70 65 6E 20 66 69 6C 65 73 20 for open files
000030: 2A 2F 0D 0A 20 20 55 62 75 66 70 74 72 5B 4D 41 */.. Ubufptr[MA
000040: 58 46 49 4C 45 53 5D 2C 20 2F 2A 20 62 75 66 66 XFILES], /* buff
000050: 65 72 20 70 6F 69 6E 74 65 72 73 20 66 6F 72 20 er pointers for
000060: 66 69 6C 65 73 20 2A 2F 0D 0A 20 20 55 63 68 72 files */.. Uchr
000070: 70 6F 73 5B 4D 41 58 46 49 4C 45 53 5D 2C 20 2F pos[MAXFILES], /
000080: 2A 20 63 68 61 72 61 63 74 65 72 20 70 6F 73 69 * character posi
000090: 74 69 6F 6E 20 69 6E 20 62 75 66 66 65 72 20 2A tion in buffer *
0000A0: 2F 0D 0A 20 20 55 64 69 72 74 79 5B 4D 41 58 46 /.. Udirty[MAXF
0000B0: 49 4C 45 53 5D 3B 20 20 2F 2A 20 22 74 72 75 65 ILES]; /* "true
0000C0: 22 20 69 66 20 63 68 61 6E 67 65 64 20 62 75 66 " if changed buf
0000D0: 66 65 72 20 2A 2F 0D 0A 0D 0A 63 68 61 72 0D 0A fer */....char..
0000E0: 20 2A 55 6D 65 6D 70 74 72 2C 20 20 20 20 20 20 *Umemptr,
0000F0: 20 20 20 20 20 2F 2A 20 70 6F 69 6E 74 65 72 20 /* pointer
000100: 74 6F 20 66 72 65 65 20 6D 65 6D 6F 72 79 2E 20 to free memory.
000110: 2A 2F 0D 0A 20 20 55 61 72 67 31 5B 5D 3D 22 2A */.. Uarg1[]="*
000120: 22 3B 20 20 20 20 20 20 20 2F 2A 20 66 69 72 73 "; /* firs
000130: 74 20 61 72 67 20 66 6F 72 20 6D 61 69 6E 20 2A t arg for main *
000140: 2F 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 2A 2A 2A 2A 2A /..../*..*******
000150: 2A 2A 2A 2A 2A 2A 2A 2A 20 53 79 73 74 65 6D 2D ******** System-
000160: 4C 65 76 65 6C 20 46 75 6E 63 74 69 6F 6E 73 20 Level Functions
000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000180: 2A 0D 0A 2A 2F 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 *..*/..../*..**
000190: 2D 2D 20 50 72 6F 63 65 73 73 20 43 6F 6D 6D 61 -- Process Comma
0001A0: 6E 64 20 4C 69 6E 65 2C 20 45 78 65 63 75 74 65 nd Line, Execute
0001B0: 20 6D 61 69 6E 28 29 2C 20 61 6E 64 20 45 78 69 main(), and Exi
0001C0: 74 20 74 6F 20 43 50 2F 4D 0D 0A 2A 2F 0D 0A 55 t to CP/M..*/..U
0001D0: 6D 61 69 6E 28 29 20 7B 0D 0A 20 20 55 70 61 72 main() {.. Upar
0001E0: 73 65 28 29 3B 0D 0A 20 20 6D 61 69 6E 28 55 63 se();.. main(Uc
0001F0: 6E 74 2C 55 76 65 63 29 3B 0D 0A 20 20 65 78 69 nt,Uvec);.. exi
Size : 512 (Real : 512)
000000: 30 3B 0D 0A 23 69 66 64 65 66 20 44 49 52 0D 0A 0;..#ifdef DIR..
000010: 20 20 69 66 28 66 6E 5B 31 5D 20 3D 3D 20 27 3A if(fn[1] == ':
000020: 27 20 26 26 20 66 6E 5B 32 5D 20 3D 3D 20 4E 55 ' && fn[2] == NU
000030: 4C 4C 29 20 7B 20 20 2F 2A 20 64 69 72 65 63 74 LL) { /* direct
000040: 6F 72 79 20 66 69 6C 65 20 2A 2F 0D 0A 20 20 20 ory file */..
000050: 20 70 61 64 28 66 63 62 2C 20 4E 55 4C 4C 2C 20 pad(fcb, NULL,
000060: 46 43 42 53 49 5A 45 29 3B 0D 0A 20 20 20 20 70 FCBSIZE);.. p
000070: 61 64 28 66 63 62 2B 4E 41 4D 45 4F 46 46 2C 20 ad(fcb+NAMEOFF,
000080: 27 3F 27 2C 20 4E 54 53 49 5A 45 29 3B 0D 0A 20 '?', NTSIZE);..
000090: 20 20 20 69 66 28 74 6F 75 70 70 65 72 28 66 6E if(toupper(fn
0000A0: 5B 30 5D 29 20 21 3D 20 27 58 27 29 20 2A 66 63 [0]) != 'X') *fc
0000B0: 62 20 3D 20 74 6F 75 70 70 65 72 28 66 6E 5B 30 b = toupper(fn[0
0000C0: 5D 29 20 2D 20 36 34 3B 0D 0A 20 20 20 20 55 63 ]) - 64;.. Uc
0000D0: 68 72 70 6F 73 5B 66 64 5D 20 3D 20 42 55 46 53 hrpos[fd] = BUFS
0000E0: 49 5A 45 3B 0D 0A 20 20 20 20 55 64 65 76 69 63 IZE;.. Udevic
0000F0: 65 5B 66 64 5D 20 3D 20 46 4E 44 46 49 4C 3B 0D e[fd] = FNDFIL;.
000100: 0A 20 20 20 20 55 73 74 61 74 75 73 5B 66 64 5D . Ustatus[fd]
000110: 20 3D 20 52 44 42 49 54 3B 0D 0A 20 20 20 20 72 = RDBIT;.. r
000120: 65 74 75 72 6E 20 28 66 64 29 3B 0D 0A 20 20 20 eturn (fd);..
000130: 20 7D 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 69 66 }..#endif.. if
000140: 28 21 55 6E 65 77 66 63 62 28 66 6E 2C 66 63 62 (!Unewfcb(fn,fcb
000150: 29 29 20 72 65 74 75 72 6E 20 28 45 52 52 29 3B )) return (ERR);
000160: 0D 0A 20 20 73 77 69 74 63 68 28 2A 6D 6F 64 65 .. switch(*mode
000170: 29 20 7B 0D 0A 20 20 20 20 63 61 73 65 20 27 72 ) {.. case 'r
000180: 27 3A 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 55 ': {.. if(U
000190: 62 64 6F 73 28 4F 50 4E 46 49 4C 2C 66 63 62 29 bdos(OPNFIL,fcb)
0001A0: 3D 3D 32 35 35 29 20 72 65 74 75 72 6E 20 28 45 ==255) return (E
0001B0: 52 52 29 3B 0D 0A 20 20 20 20 20 20 55 73 74 61 RR);.. Usta
0001C0: 74 75 73 5B 66 64 5D 20 3D 20 20 52 44 42 49 54 tus[fd] = RDBIT
0001D0: 3B 0D 0A 20 20 20 20 20 20 69 66 28 55 73 65 63 ;.. if(Usec
0001E0: 74 6F 72 28 66 64 2C 20 20 52 44 52 4E 44 29 29 tor(fd, RDRND))
0001F0: 20 55 73 65 74 65 6F 66 28 66 64 29 3B 0D 0A 20 Useteof(fd);..
Size : 512 (Real : 512)
000000: 74 28 30 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A t(0);.. }..../*
000010: 0D 0A 2A 2A 20 50 61 72 73 65 20 63 6F 6D 6D 61 ..** Parse comma
000020: 6E 64 20 6C 69 6E 65 20 61 6E 64 20 73 65 74 75 nd line and setu
000030: 70 20 61 72 67 63 20 61 6E 64 20 61 72 67 76 2E p argc and argv.
000040: 0D 0A 2A 2F 0D 0A 55 70 61 72 73 65 28 29 20 7B ..*/..Uparse() {
000050: 0D 0A 20 20 63 68 61 72 20 2A 63 6F 75 6E 74 2C .. char *count,
000060: 20 2A 70 74 72 3B 0D 0A 20 20 63 6F 75 6E 74 20 *ptr;.. count
000070: 3D 20 31 32 38 3B 20 20 2F 2A 20 43 50 2F 4D 20 = 128; /* CP/M
000080: 63 6F 6D 6D 61 6E 64 20 62 75 66 66 65 72 20 61 command buffer a
000090: 64 64 72 65 73 73 20 2A 2F 0D 0A 20 20 70 74 72 ddress */.. ptr
0000A0: 20 3D 20 55 61 6C 6C 6F 63 28 28 63 6F 75 6E 74 = Ualloc((count
0000B0: 20 3D 20 2A 63 6F 75 6E 74 26 32 35 35 29 2B 31 = *count&255)+1
0000C0: 2C 20 59 45 53 29 3B 0D 0A 20 20 73 74 72 6E 63 , YES);.. strnc
0000D0: 70 79 28 70 74 72 2C 20 31 32 39 2C 20 63 6F 75 py(ptr, 129, cou
0000E0: 6E 74 29 3B 0D 0A 20 20 55 76 65 63 5B 30 5D 3D nt);.. Uvec[0]=
0000F0: 55 61 72 67 31 3B 09 09 09 09 2F 2A 20 66 69 72 Uarg1;..../* fir
000100: 73 74 20 61 72 67 20 3D 20 22 2A 22 20 2A 2F 0D st arg = "*" */.
000110: 0A 20 20 77 68 69 6C 65 20 28 2A 70 74 72 29 20 . while (*ptr)
000120: 7B 0D 0A 20 20 20 20 69 66 28 69 73 73 70 61 63 {.. if(isspac
000130: 65 28 2A 70 74 72 29 29 20 7B 2B 2B 70 74 72 3B e(*ptr)) {++ptr;
000140: 20 63 6F 6E 74 69 6E 75 65 3B 7D 0D 0A 20 20 20 continue;}..
000150: 20 73 77 69 74 63 68 28 2A 70 74 72 29 20 7B 0D switch(*ptr) {.
000160: 0A 20 20 20 20 20 20 63 61 73 65 20 27 3C 27 3A . case '<':
000170: 20 70 74 72 20 3D 20 55 72 65 64 69 72 65 63 74 ptr = Uredirect
000180: 28 70 74 72 2C 20 22 72 22 2C 20 73 74 64 69 6E (ptr, "r", stdin
000190: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0001A0: 20 20 20 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 continue;..
0001B0: 20 20 20 20 20 63 61 73 65 20 27 3E 27 3A 20 69 case '>': i
0001C0: 66 28 2A 28 70 74 72 2B 31 29 20 3D 3D 20 27 3E f(*(ptr+1) == '>
0001D0: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
0001E0: 20 20 20 20 20 20 20 20 20 70 74 72 20 3D 20 55 ptr = U
0001F0: 72 65 64 69 72 65 63 74 28 70 74 72 2B 31 2C 20 redirect(ptr+1,
Size : 512 (Real : 512)
000000: 20 20 20 20 20 62 72 65 61 6B 3B 0D 0A 20 20 20 break;..
000010: 20 20 20 7D 0D 0A 20 20 20 20 63 61 73 65 20 27 }.. case '
000020: 77 27 3A 20 7B 0D 0A 20 20 20 20 20 20 69 66 28 w': {.. if(
000030: 55 62 64 6F 73 28 46 4E 44 46 49 4C 2C 66 63 62 Ubdos(FNDFIL,fcb
000040: 29 21 3D 32 35 35 29 20 55 62 64 6F 73 28 44 45 )!=255) Ubdos(DE
000050: 4C 46 49 4C 2C 66 63 62 29 3B 0D 0A 20 20 20 20 LFIL,fcb);..
000060: 63 72 65 61 74 65 3A 0D 0A 20 20 20 20 20 20 69 create:.. i
000070: 66 28 55 62 64 6F 73 28 4D 41 4B 46 49 4C 2C 66 f(Ubdos(MAKFIL,f
000080: 63 62 29 3D 3D 32 35 35 29 20 72 65 74 75 72 6E cb)==255) return
000090: 20 28 45 52 52 29 3B 0D 0A 20 20 20 20 20 20 55 (ERR);.. U
0000A0: 73 74 61 74 75 73 5B 66 64 5D 20 3D 20 45 4F 46 status[fd] = EOF
0000B0: 42 49 54 7C 57 52 54 42 49 54 3B 0D 0A 20 20 20 BIT|WRTBIT;..
0000C0: 20 20 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 break;..
0000D0: 20 7D 0D 0A 20 20 20 20 64 65 66 61 75 6C 74 3A }.. default:
0000E0: 20 7B 20 20 20 20 20 20 2F 2A 20 61 70 70 65 6E { /* appen
0000F0: 64 20 6D 6F 64 65 20 2A 2F 0D 0A 20 20 20 20 20 d mode */..
000100: 20 69 66 28 55 62 64 6F 73 28 4F 50 4E 46 49 4C if(Ubdos(OPNFIL
000110: 2C 66 63 62 29 3D 3D 32 35 35 29 20 67 6F 74 6F ,fcb)==255) goto
000120: 20 63 72 65 61 74 65 3B 0D 0A 20 20 20 20 20 20 create;..
000130: 55 73 74 61 74 75 73 5B 66 64 5D 20 3D 20 52 44 Ustatus[fd] = RD
000140: 42 49 54 3B 0D 0A 20 20 20 20 20 20 63 73 65 65 BIT;.. csee
000150: 6B 28 66 64 2C 20 2D 31 2C 20 32 29 3B 0D 0A 20 k(fd, -1, 2);..
000160: 20 20 20 20 20 77 68 69 6C 65 28 66 67 65 74 63 while(fgetc
000170: 28 66 64 29 21 3D 45 4F 46 29 20 3B 0D 0A 20 20 (fd)!=EOF) ;..
000180: 20 20 20 20 55 73 74 61 74 75 73 5B 66 64 5D 20 Ustatus[fd]
000190: 3D 20 45 4F 46 42 49 54 7C 57 52 54 42 49 54 3B = EOFBIT|WRTBIT;
0001A0: 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 7D .. }.. }
0001B0: 0D 0A 20 20 69 66 28 2A 28 6D 6F 64 65 2B 31 29 .. if(*(mode+1)
0001C0: 3D 3D 27 2B 27 29 20 55 73 74 61 74 75 73 5B 66 =='+') Ustatus[f
0001D0: 64 5D 20 7C 3D 20 52 44 42 49 54 7C 57 52 54 42 d] |= RDBIT|WRTB
0001E0: 49 54 3B 0D 0A 20 20 72 65 74 75 72 6E 20 28 66 IT;.. return (f
0001F0: 64 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A d);.. }..../*..
Size : 512 (Real : 512)
000000: 22 61 22 2C 20 73 74 64 6F 75 74 29 3B 0D 0A 20 "a", stdout);..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
000020: 6C 73 65 20 70 74 72 20 3D 20 55 72 65 64 69 72 lse ptr = Uredir
000030: 65 63 74 28 70 74 72 2C 20 20 20 22 77 22 2C 20 ect(ptr, "w",
000040: 73 74 64 6F 75 74 29 3B 0D 0A 20 20 20 20 20 20 stdout);..
000050: 20 20 20 20 20 20 20 20 20 20 63 6F 6E 74 69 6E contin
000060: 75 65 3B 0D 0A 20 20 20 20 20 20 64 65 66 61 75 ue;.. defau
000070: 6C 74 3A 20 20 69 66 28 55 63 6E 74 20 3C 20 32 lt: if(Ucnt < 2
000080: 30 29 20 55 76 65 63 5B 55 63 6E 74 2B 2B 5D 20 0) Uvec[Ucnt++]
000090: 3D 20 70 74 72 3B 0D 0A 20 20 20 20 20 20 20 20 = ptr;..
0000A0: 20 20 20 20 20 20 20 20 70 74 72 20 3D 20 55 66 ptr = Uf
0000B0: 69 65 6C 64 28 70 74 72 29 3B 0D 0A 20 20 20 20 ield(ptr);..
0000C0: 20 20 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D }.. }.. }.
0000D0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 49 73 6F 6C 61 74 .../*..** Isolat
0000E0: 65 20 6E 65 78 74 20 63 6F 6D 6D 61 6E 64 2D 6C e next command-l
0000F0: 69 6E 65 20 66 69 65 6C 64 2E 0D 0A 2A 2F 0D 0A ine field...*/..
000100: 55 66 69 65 6C 64 28 70 74 72 29 20 63 68 61 72 Ufield(ptr) char
000110: 20 2A 70 74 72 3B 20 7B 0D 0A 20 20 77 68 69 6C *ptr; {.. whil
000120: 65 28 2A 70 74 72 29 20 7B 0D 0A 20 20 20 20 69 e(*ptr) {.. i
000130: 66 28 69 73 73 70 61 63 65 28 2A 70 74 72 29 29 f(isspace(*ptr))
000140: 20 7B 0D 0A 20 20 20 20 20 20 2A 70 74 72 20 3D {.. *ptr =
000150: 20 4E 55 4C 4C 3B 0D 0A 20 20 20 20 20 20 72 65 NULL;.. re
000160: 74 75 72 6E 20 28 2B 2B 70 74 72 29 3B 0D 0A 20 turn (++ptr);..
000170: 20 20 20 20 20 7D 0D 0A 20 20 20 20 2B 2B 70 74 }.. ++pt
000180: 72 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 r;.. }.. ret
000190: 75 72 6E 20 28 70 74 72 29 3B 0D 0A 20 20 7D 0D urn (ptr);.. }.
0001A0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 52 65 64 69 72 65 .../*..** Redire
0001B0: 63 74 20 73 74 64 69 6E 20 6F 72 20 73 74 64 6F ct stdin or stdo
0001C0: 75 74 2E 0D 0A 2A 2F 0D 0A 55 72 65 64 69 72 65 ut...*/..Uredire
0001D0: 63 74 28 70 74 72 2C 20 6D 6F 64 65 2C 20 73 74 ct(ptr, mode, st
0001E0: 64 29 20 20 63 68 61 72 20 2A 70 74 72 2C 20 2A d) char *ptr, *
0001F0: 6D 6F 64 65 3B 20 69 6E 74 20 73 74 64 3B 20 7B mode; int std; {
Size : 512 (Real : 512)
000000: 2A 2A 20 43 72 65 61 74 65 20 43 50 2F 4D 20 66 ** Create CP/M f
000010: 69 6C 65 20 63 6F 6E 74 72 6F 6C 20 62 6C 6F 63 ile control bloc
000020: 6B 20 66 72 6F 6D 20 66 69 6C 65 20 6E 61 6D 65 k from file name
000030: 2E 20 0D 0A 2A 2A 20 45 6E 74 72 79 3A 20 66 6E . ..** Entry: fn
000040: 20 20 3D 20 4C 65 67 61 6C 20 43 50 2F 4D 20 66 = Legal CP/M f
000050: 69 6C 65 20 6E 61 6D 65 20 28 6E 75 6C 6C 20 74 ile name (null t
000060: 65 72 6D 69 6E 61 74 65 64 29 0D 0A 2A 2A 20 20 erminated)..**
000070: 20 20 20 20 20 20 20 20 20 20 20 20 4D 61 79 20 May
000080: 62 65 20 70 72 65 66 69 78 65 64 20 62 79 20 6C be prefixed by l
000090: 65 74 74 65 72 20 6F 66 20 64 72 69 76 65 2E 0D etter of drive..
0000A0: 0A 2A 2A 20 20 20 20 20 20 20 20 66 63 62 20 3D .** fcb =
0000B0: 20 50 6F 69 6E 74 65 72 20 74 6F 20 6D 65 6D 6F Pointer to memo
0000C0: 72 79 20 73 70 61 63 65 20 66 6F 72 20 43 50 2F ry space for CP/
0000D0: 4D 20 66 63 62 2E 0D 0A 2A 2A 20 52 65 74 75 72 M fcb...** Retur
0000E0: 6E 73 20 74 68 65 20 70 6F 69 6E 74 65 72 20 74 ns the pointer t
0000F0: 6F 20 74 68 65 20 66 63 62 2E 0D 0A 2A 2F 0D 0A o the fcb...*/..
000100: 55 6E 65 77 66 63 62 28 66 6E 2C 20 66 63 62 29 Unewfcb(fn, fcb)
000110: 20 63 68 61 72 20 2A 66 6E 2C 20 2A 66 63 62 3B char *fn, *fcb;
000120: 20 7B 0D 0A 20 20 63 68 61 72 20 2A 66 6E 70 74 {.. char *fnpt
000130: 72 3B 0D 0A 20 20 70 61 64 28 66 63 62 2B 31 2C r;.. pad(fcb+1,
000140: 20 53 50 41 43 45 2C 20 4E 54 53 49 5A 45 29 3B SPACE, NTSIZE);
000150: 0D 0A 20 20 69 66 28 2A 28 66 6E 20 2B 20 31 29 .. if(*(fn + 1)
000160: 20 3D 3D 20 27 3A 27 29 20 7B 0D 0A 20 20 20 20 == ':') {..
000170: 2A 66 63 62 20 3D 20 74 6F 75 70 70 65 72 28 2A *fcb = toupper(*
000180: 66 6E 29 20 2D 20 36 34 3B 0D 0A 20 20 20 20 66 fn) - 64;.. f
000190: 6E 70 74 72 20 3D 20 66 6E 20 2B 20 32 3B 0D 0A nptr = fn + 2;..
0001A0: 20 20 20 20 7D 0D 0A 20 20 65 6C 73 65 20 66 6E }.. else fn
0001B0: 70 74 72 20 3D 20 66 6E 3B 0D 0A 20 20 69 66 28 ptr = fn;.. if(
0001C0: 2A 66 6E 70 74 72 20 3D 3D 20 4E 55 4C 4C 29 20 *fnptr == NULL)
0001D0: 72 65 74 75 72 6E 20 28 4E 4F 29 3B 0D 0A 20 20 return (NO);..
0001E0: 66 6E 70 74 72 20 3D 20 55 6C 6F 61 64 66 6E 28 fnptr = Uloadfn(
0001F0: 66 63 62 20 2B 20 4E 41 4D 45 4F 46 46 2C 20 66 fcb + NAMEOFF, f
Size : 512 (Real : 512)
000000: 0D 0A 20 20 63 68 61 72 20 2A 66 6E 3B 0D 0A 20 .. char *fn;..
000010: 20 66 6E 20 3D 20 2B 2B 70 74 72 3B 0D 0A 20 20 fn = ++ptr;..
000020: 70 74 72 20 3D 20 55 66 69 65 6C 64 28 70 74 72 ptr = Ufield(ptr
000030: 29 3B 0D 0A 20 20 69 66 28 55 6F 70 65 6E 28 66 );.. if(Uopen(f
000040: 6E 2C 20 6D 6F 64 65 2C 20 73 74 64 29 3D 3D 45 n, mode, std)==E
000050: 52 52 29 20 65 78 69 74 28 27 52 27 29 3B 0D 0A RR) exit('R');..
000060: 20 20 72 65 74 75 72 6E 20 28 70 74 72 29 3B 0D return (ptr);.
000070: 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 2D . }..../*..** -
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 46 69 6C 65 ----------- File
000090: 20 4F 70 65 6E 0D 0A 2A 2F 0D 0A 0D 0A 2F 2A 0D Open..*/..../*.
0000A0: 0A 2A 2A 20 4F 70 65 6E 20 66 69 6C 65 20 6F 6E .** Open file on
0000B0: 20 73 70 65 63 69 66 69 65 64 20 66 64 2E 0D 0A specified fd...
0000C0: 2A 2F 0D 0A 55 6F 70 65 6E 28 66 6E 2C 20 6D 6F */..Uopen(fn, mo
0000D0: 64 65 2C 20 66 64 29 20 63 68 61 72 20 2A 66 6E de, fd) char *fn
0000E0: 2C 20 2A 6D 6F 64 65 3B 20 69 6E 74 20 66 64 3B , *mode; int fd;
0000F0: 20 7B 0D 0A 20 20 63 68 61 72 20 2A 66 63 62 3B {.. char *fcb;
000100: 0D 0A 20 20 69 66 28 21 73 74 72 63 68 72 28 22 .. if(!strchr("
000110: 72 77 61 22 2C 20 2A 6D 6F 64 65 29 29 20 72 65 rwa", *mode)) re
000120: 74 75 72 6E 20 28 45 52 52 29 3B 0D 0A 20 20 55 turn (ERR);.. U
000130: 6E 65 78 74 63 5B 66 64 5D 20 3D 20 45 4F 46 3B nextc[fd] = EOF;
000140: 0D 0A 20 20 69 66 28 55 61 75 78 69 6E 29 20 55 .. if(Uauxin) U
000150: 61 75 78 69 6E 28 66 64 29 3B 0D 0A 20 20 69 66 auxin(fd);.. if
000160: 28 73 74 72 63 6D 70 28 66 6E 2C 22 43 4F 4E 3A (strcmp(fn,"CON:
000170: 22 29 3D 3D 30 29 20 7B 0D 0A 20 20 20 20 55 64 ")==0) {.. Ud
000180: 65 76 69 63 65 5B 66 64 5D 3D 43 50 4D 43 4F 4E evice[fd]=CPMCON
000190: 3B 20 55 73 74 61 74 75 73 5B 66 64 5D 3D 52 44 ; Ustatus[fd]=RD
0001A0: 42 49 54 7C 57 52 54 42 49 54 3B 20 72 65 74 75 BIT|WRTBIT; retu
0001B0: 72 6E 20 28 66 64 29 3B 0D 0A 20 20 20 20 7D 0D rn (fd);.. }.
0001C0: 0A 20 20 69 66 28 73 74 72 63 6D 70 28 66 6E 2C . if(strcmp(fn,
0001D0: 22 52 44 52 3A 22 29 3D 3D 30 29 20 7B 0D 0A 20 "RDR:")==0) {..
0001E0: 20 20 20 55 64 65 76 69 63 65 5B 66 64 5D 3D 43 Udevice[fd]=C
0001F0: 50 4D 52 44 52 3B 20 55 73 74 61 74 75 73 5B 66 PMRDR; Ustatus[f
Size : 512 (Real : 512)
000000: 6E 70 74 72 2C 20 4E 41 4D 45 53 49 5A 45 29 3B nptr, NAMESIZE);
000010: 0D 0A 20 20 69 66 28 2A 66 6E 70 74 72 20 3D 3D .. if(*fnptr ==
000020: 20 27 2E 27 29 20 2B 2B 66 6E 70 74 72 3B 0D 0A '.') ++fnptr;..
000030: 20 20 65 6C 73 65 20 69 66 28 2A 66 6E 70 74 72 else if(*fnptr
000040: 29 20 72 65 74 75 72 6E 20 28 4E 4F 29 3B 0D 0A ) return (NO);..
000050: 20 20 66 6E 70 74 72 20 3D 20 55 6C 6F 61 64 66 fnptr = Uloadf
000060: 6E 28 66 63 62 20 2B 20 54 59 50 45 4F 46 46 2C n(fcb + TYPEOFF,
000070: 20 66 6E 70 74 72 2C 20 54 59 50 45 53 49 5A 45 fnptr, TYPESIZE
000080: 29 3B 0D 0A 20 20 69 66 28 2A 66 6E 70 74 72 29 );.. if(*fnptr)
000090: 20 72 65 74 75 72 6E 20 28 4E 4F 29 3B 0D 0A 20 return (NO);..
0000A0: 20 72 65 74 75 72 6E 20 28 59 45 53 29 3B 0D 0A return (YES);..
0000B0: 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 4C 6F }..../*..** Lo
0000C0: 61 64 20 69 6E 74 6F 20 66 63 62 20 61 6E 64 20 ad into fcb and
0000D0: 76 61 6C 69 64 61 74 65 20 66 69 6C 65 20 6E 61 validate file na
0000E0: 6D 65 2E 0D 0A 2A 2F 0D 0A 55 6C 6F 61 64 66 6E me...*/..Uloadfn
0000F0: 28 64 65 73 74 2C 20 73 6F 75 72 2C 20 6D 61 78 (dest, sour, max
000100: 29 20 63 68 61 72 20 2A 64 65 73 74 2C 20 2A 73 ) char *dest, *s
000110: 6F 75 72 3B 20 69 6E 74 20 6D 61 78 3B 20 7B 0D our; int max; {.
000120: 0A 20 20 77 68 69 6C 65 28 2A 73 6F 75 72 20 26 . while(*sour &
000130: 26 20 21 73 74 72 63 68 72 28 22 3C 3E 2E 2C 3B & !strchr("<>.,;
000140: 3A 3D 3F 2A 5B 5D 22 2C 20 2A 73 6F 75 72 29 29 :=?*[]", *sour))
000150: 20 7B 0D 0A 20 20 20 20 69 66 28 6D 61 78 2D 2D {.. if(max--
000160: 29 20 2A 64 65 73 74 2B 2B 20 3D 20 74 6F 75 70 ) *dest++ = toup
000170: 70 65 72 28 2A 73 6F 75 72 2B 2B 29 3B 0D 0A 20 per(*sour++);..
000180: 20 20 20 65 6C 73 65 20 62 72 65 61 6B 3B 0D 0A else break;..
000190: 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 }.. return
0001A0: 28 73 6F 75 72 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A (sour);.. }....
0001B0: 2F 2A 0D 0A 2A 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D /*..** ---------
0001C0: 2D 2D 2D 20 46 69 6C 65 20 49 6E 70 75 74 0D 0A --- File Input..
0001D0: 2A 2F 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 42 69 6E */..../*..** Bin
0001E0: 61 72 79 2D 73 74 72 65 61 6D 20 69 6E 70 75 74 ary-stream input
0001F0: 20 6F 66 20 6F 6E 65 20 62 79 74 65 20 66 72 6F of one byte fro
Size : 512 (Real : 512)
000000: 20 2A 62 75 66 6C 6F 63 3B 0D 0A 20 20 73 77 69 *bufloc;.. swi
000010: 74 63 68 20 28 55 6D 6F 64 65 28 66 64 29 29 20 tch (Umode(fd))
000020: 7B 0D 0A 20 20 20 20 64 65 66 61 75 6C 74 3A 20 {.. default:
000030: 55 73 65 74 65 72 72 28 66 64 29 3B 20 72 65 74 Useterr(fd); ret
000040: 75 72 6E 20 28 45 4F 46 29 3B 0D 0A 20 20 20 20 urn (EOF);..
000050: 63 61 73 65 20 57 52 54 42 49 54 3A 0D 0A 20 20 case WRTBIT:..
000060: 20 20 63 61 73 65 20 57 52 54 42 49 54 7C 52 44 case WRTBIT|RD
000070: 42 49 54 3A 0D 0A 20 20 20 20 63 61 73 65 20 57 BIT:.. case W
000080: 52 54 42 49 54 7C 45 4F 46 42 49 54 3A 0D 0A 20 RTBIT|EOFBIT:..
000090: 20 20 20 63 61 73 65 20 57 52 54 42 49 54 7C 45 case WRTBIT|E
0000A0: 4F 46 42 49 54 7C 52 44 42 49 54 3A 0D 0A 20 20 OFBIT|RDBIT:..
0000B0: 20 20 7D 0D 0A 20 20 73 77 69 74 63 68 28 55 64 }.. switch(Ud
0000C0: 65 76 69 63 65 5B 66 64 5D 29 20 7B 0D 0A 20 20 evice[fd]) {..
0000D0: 20 20 2F 2A 20 52 44 52 20 63 61 6E 27 74 20 6F /* RDR can't o
0000E0: 63 63 75 72 20 73 69 6E 63 65 20 69 74 20 69 73 ccur since it is
0000F0: 20 72 65 61 64 20 6D 6F 64 65 20 2A 2F 0D 0A 20 read mode */..
000100: 20 20 20 63 61 73 65 20 43 50 4D 43 4F 4E 3A 20 case CPMCON:
000110: 72 65 74 75 72 6E 20 28 55 63 6F 6E 6F 75 74 28 return (Uconout(
000120: 63 68 29 29 3B 0D 0A 20 20 20 20 63 61 73 65 20 ch));.. case
000130: 43 50 4D 50 55 4E 3A 0D 0A 20 20 20 20 63 61 73 CPMPUN:.. cas
000140: 65 20 43 50 4D 4C 53 54 3A 20 55 62 64 6F 73 28 e CPMLST: Ubdos(
000150: 55 64 65 76 69 63 65 5B 66 64 5D 2C 20 63 68 29 Udevice[fd], ch)
000160: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000170: 20 20 20 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 break;..
000180: 64 65 66 61 75 6C 74 3A 0D 0A 20 20 20 20 20 20 default:..
000190: 69 66 28 55 61 75 78 73 7A 20 26 26 20 55 61 75 if(Uauxsz && Uau
0001A0: 78 73 7A 5B 66 64 5D 29 20 72 65 74 75 72 6E 20 xsz[fd]) return
0001B0: 28 55 61 75 78 77 74 28 63 68 2C 20 66 64 29 29 (Uauxwt(ch, fd))
0001C0: 3B 0D 0A 20 20 20 20 20 20 69 66 28 55 63 68 72 ;.. if(Uchr
0001D0: 70 6F 73 5B 66 64 5D 3E 3D 42 55 46 53 49 5A 45 pos[fd]>=BUFSIZE
0001E0: 20 26 26 20 21 55 70 75 74 73 65 63 28 66 64 29 && !Uputsec(fd)
0001F0: 29 20 72 65 74 75 72 6E 20 28 45 4F 46 29 3B 0D ) return (EOF);.
Size : 512 (Real : 512)
000000: 6D 20 66 64 2E 0D 0A 2A 2F 0D 0A 55 72 65 61 64 m fd...*/..Uread
000010: 28 66 64 29 20 69 6E 74 20 66 64 3B 20 7B 0D 0A (fd) int fd; {..
000020: 20 20 63 68 61 72 20 2A 62 75 66 6C 6F 63 3B 0D char *bufloc;.
000030: 0A 20 20 69 6E 74 20 63 68 3B 0D 0A 20 20 73 77 . int ch;.. sw
000040: 69 74 63 68 20 28 55 6D 6F 64 65 28 66 64 29 29 itch (Umode(fd))
000050: 20 7B 0D 0A 20 20 20 20 64 65 66 61 75 6C 74 3A {.. default:
000060: 20 55 73 65 74 65 72 72 28 66 64 29 3B 20 72 65 Useterr(fd); re
000070: 74 75 72 6E 20 28 45 4F 46 29 3B 0D 0A 20 20 20 turn (EOF);..
000080: 20 63 61 73 65 20 52 44 42 49 54 3A 0D 0A 20 20 case RDBIT:..
000090: 20 20 63 61 73 65 20 52 44 42 49 54 7C 57 52 54 case RDBIT|WRT
0000A0: 42 49 54 3A 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 BIT:.. }.. i
0000B0: 66 28 28 63 68 20 3D 20 55 6E 65 78 74 63 5B 66 f((ch = Unextc[f
0000C0: 64 5D 29 20 21 3D 20 45 4F 46 29 20 7B 0D 0A 20 d]) != EOF) {..
0000D0: 20 20 20 55 6E 65 78 74 63 5B 66 64 5D 20 3D 20 Unextc[fd] =
0000E0: 45 4F 46 3B 0D 0A 20 20 20 20 72 65 74 75 72 6E EOF;.. return
0000F0: 20 28 63 68 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 (ch);.. }..
000100: 20 73 77 69 74 63 68 28 55 64 65 76 69 63 65 5B switch(Udevice[
000110: 66 64 5D 29 20 7B 0D 0A 20 20 20 20 2F 2A 20 50 fd]) {.. /* P
000120: 55 4E 20 26 20 4C 53 54 20 63 61 6E 27 74 20 6F UN & LST can't o
000130: 63 63 75 72 20 73 69 6E 63 65 20 74 68 65 79 20 ccur since they
000140: 61 72 65 20 77 72 69 74 65 20 6D 6F 64 65 20 2A are write mode *
000150: 2F 0D 0A 20 20 20 20 63 61 73 65 20 43 50 4D 43 /.. case CPMC
000160: 4F 4E 3A 20 72 65 74 75 72 6E 20 28 55 63 6F 6E ON: return (Ucon
000170: 69 6E 28 29 29 3B 0D 0A 20 20 20 20 63 61 73 65 in());.. case
000180: 20 43 50 4D 52 44 52 3A 20 72 65 74 75 72 6E 20 CPMRDR: return
000190: 28 55 62 64 6F 73 28 52 44 52 49 4E 50 2C 4E 55 (Ubdos(RDRINP,NU
0001A0: 4C 4C 29 29 3B 0D 0A 20 20 20 20 64 65 66 61 75 LL));.. defau
0001B0: 6C 74 3A 0D 0A 20 20 20 20 20 20 20 20 20 69 66 lt:.. if
0001C0: 28 55 61 75 78 73 7A 20 26 26 20 55 61 75 78 73 (Uauxsz && Uauxs
0001D0: 7A 5B 66 64 5D 29 20 72 65 74 75 72 6E 20 28 55 z[fd]) return (U
0001E0: 61 75 78 72 64 28 66 64 29 29 3B 0D 0A 20 20 20 auxrd(fd));..
0001F0: 20 20 20 20 20 20 69 66 28 55 63 68 72 70 6F 73 if(Uchrpos
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 62 75 66 6C 6F 63 20 3D 20 . bufloc =
000010: 55 62 75 66 70 74 72 5B 66 64 5D 20 2B 20 55 63 Ubufptr[fd] + Uc
000020: 68 72 70 6F 73 5B 66 64 5D 2B 2B 3B 0D 0A 20 20 hrpos[fd]++;..
000030: 20 20 20 20 2A 62 75 66 6C 6F 63 20 3D 20 63 68 *bufloc = ch
000040: 3B 0D 0A 20 20 20 20 20 20 55 64 69 72 74 79 5B ;.. Udirty[
000050: 66 64 5D 20 3D 20 59 45 53 3B 0D 0A 20 20 20 20 fd] = YES;..
000060: 7D 0D 0A 20 20 72 65 74 75 72 6E 20 28 63 68 29 }.. return (ch)
000070: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ;.. }..../*..**
000080: 20 43 6F 6E 73 6F 6C 65 20 63 68 61 72 61 63 74 Console charact
000090: 65 72 20 6F 75 74 70 75 74 2E 0D 0A 2A 2F 0D 0A er output...*/..
0000A0: 55 63 6F 6E 6F 75 74 28 63 68 29 20 69 6E 74 20 Uconout(ch) int
0000B0: 63 68 3B 20 7B 0D 0A 20 20 55 62 64 6F 73 28 44 ch; {.. Ubdos(D
0000C0: 43 4F 4E 49 4F 2C 20 63 68 29 3B 0D 0A 20 20 72 CONIO, ch);.. r
0000D0: 65 74 75 72 6E 20 28 63 68 29 3B 0D 0A 20 20 7D eturn (ch);.. }
0000E0: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 57 72 69 74 65 ..../*..** Write
0000F0: 20 6F 6E 65 20 73 65 63 74 6F 72 20 74 6F 20 66 one sector to f
000100: 64 2E 20 0D 0A 2A 2F 0D 0A 55 70 75 74 73 65 63 d. ..*/..Uputsec
000110: 28 66 64 29 20 69 6E 74 20 66 64 3B 20 7B 0D 0A (fd) int fd; {..
000120: 20 20 69 66 28 66 66 6C 75 73 68 28 66 64 29 29 if(fflush(fd))
000130: 20 72 65 74 75 72 6E 20 28 4E 4F 29 3B 0D 0A 20 return (NO);..
000140: 20 55 61 64 76 61 6E 63 65 28 66 64 29 3B 0D 0A Uadvance(fd);..
000150: 20 20 69 66 28 55 73 74 61 74 75 73 5B 66 64 5D if(Ustatus[fd]
000160: 26 45 4F 46 42 49 54 20 7C 7C 20 55 73 65 63 74 &EOFBIT || Usect
000170: 6F 72 28 66 64 2C 20 52 44 52 4E 44 29 29 0D 0A or(fd, RDRND))..
000180: 20 20 20 20 70 61 64 28 55 62 75 66 70 74 72 5B pad(Ubufptr[
000190: 66 64 5D 2C 20 43 50 4D 45 4F 46 2C 20 42 55 46 fd], CPMEOF, BUF
0001A0: 53 49 5A 45 29 3B 0D 0A 20 20 72 65 74 75 72 6E SIZE);.. return
0001B0: 20 28 59 45 53 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A (YES);.. }....
0001C0: 2F 2A 0D 0A 2A 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D /*..** ---------
0001D0: 2D 2D 2D 20 42 75 66 66 65 72 20 53 65 72 76 69 --- Buffer Servi
0001E0: 63 65 0D 0A 2A 2F 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ce..*/..../*..**
0001F0: 20 41 64 76 61 6E 63 65 20 74 6F 20 6E 65 78 74 Advance to next
Size : 512 (Real : 512)
000000: 5B 66 64 5D 3E 3D 42 55 46 53 49 5A 45 20 26 26 [fd]>=BUFSIZE &&
000010: 20 21 55 67 65 74 73 65 63 28 66 64 29 29 0D 0A !Ugetsec(fd))..
000020: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
000030: 6E 20 28 45 4F 46 29 3B 0D 0A 20 20 20 20 20 20 n (EOF);..
000040: 20 20 20 62 75 66 6C 6F 63 20 3D 20 55 62 75 66 bufloc = Ubuf
000050: 70 74 72 5B 66 64 5D 20 2B 20 55 63 68 72 70 6F ptr[fd] + Uchrpo
000060: 73 5B 66 64 5D 2B 2B 3B 0D 0A 20 20 20 20 20 20 s[fd]++;..
000070: 20 20 20 72 65 74 75 72 6E 20 28 2A 62 75 66 6C return (*bufl
000080: 6F 63 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D oc);.. }.. }
000090: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 43 6F 6E 73 6F ..../*..** Conso
0000A0: 6C 65 20 63 68 61 72 61 63 74 65 72 20 69 6E 70 le character inp
0000B0: 75 74 2E 0D 0A 2A 2F 0D 0A 55 63 6F 6E 69 6E 28 ut...*/..Uconin(
0000C0: 29 20 7B 0D 0A 20 20 69 6E 74 20 63 68 3B 0D 0A ) {.. int ch;..
0000D0: 20 20 77 68 69 6C 65 28 21 28 63 68 20 3D 20 55 while(!(ch = U
0000E0: 62 64 6F 73 28 44 43 4F 4E 49 4F 2C 20 32 35 35 bdos(DCONIO, 255
0000F0: 29 29 29 20 3B 0D 0A 20 20 73 77 69 74 63 68 28 ))) ;.. switch(
000100: 63 68 29 20 7B 0D 0A 20 20 20 20 63 61 73 65 20 ch) {.. case
000110: 41 42 4F 52 54 3A 20 65 78 69 74 28 30 29 3B 0D ABORT: exit(0);.
000120: 0A 20 20 20 20 63 61 73 65 20 20 20 20 4C 46 3A . case LF:
000130: 0D 0A 20 20 20 20 63 61 73 65 20 20 20 20 43 52 .. case CR
000140: 3A 20 55 63 6F 6E 6F 75 74 28 4C 46 29 3B 20 72 : Uconout(LF); r
000150: 65 74 75 72 6E 20 28 55 63 6F 6E 6F 75 74 28 43 eturn (Uconout(C
000160: 52 29 29 3B 0D 0A 20 20 20 20 63 61 73 65 20 20 R));.. case
000170: 20 44 45 4C 3A 20 63 68 20 3D 20 52 55 42 3B 0D DEL: ch = RUB;.
000180: 0A 20 20 20 20 20 20 20 64 65 66 61 75 6C 74 3A . default:
000190: 20 69 66 28 63 68 20 3C 20 33 32 29 20 7B 20 55 if(ch < 32) { U
0001A0: 63 6F 6E 6F 75 74 28 27 5E 27 29 3B 20 55 63 6F conout('^'); Uco
0001B0: 6E 6F 75 74 28 63 68 2B 36 34 29 3B 7D 0D 0A 20 nout(ch+64);}..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
0001D0: 6C 73 65 20 55 63 6F 6E 6F 75 74 28 63 68 29 3B lse Uconout(ch);
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 72 65 74 75 72 6E 20 28 63 68 29 3B 0D 0A return (ch);..
Size : 512 (Real : 512)
000000: 20 73 65 63 74 6F 72 2E 0D 0A 2A 2F 0D 0A 55 61 sector...*/..Ua
000010: 64 76 61 6E 63 65 28 66 64 29 20 69 6E 74 20 66 dvance(fd) int f
000020: 64 3B 20 7B 0D 0A 20 20 69 6E 74 20 2A 72 72 6E d; {.. int *rrn
000030: 3B 0D 0A 20 20 72 72 6E 20 3D 20 55 66 63 62 70 ;.. rrn = Ufcbp
000040: 74 72 5B 66 64 5D 20 2B 20 52 52 4E 4F 46 46 3B tr[fd] + RRNOFF;
000050: 0D 0A 20 20 2B 2B 28 2A 72 72 6E 29 3B 0D 0A 20 .. ++(*rrn);..
000060: 20 55 63 68 72 70 6F 73 5B 66 64 5D 20 3D 20 30 Uchrpos[fd] = 0
000070: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ;.. }..../*..**
000080: 20 53 65 63 74 6F 72 20 49 2F 4F 2E 0D 0A 2A 2F Sector I/O...*/
000090: 0D 0A 55 73 65 63 74 6F 72 28 66 64 2C 20 66 75 ..Usector(fd, fu
0000A0: 6E 63 29 20 69 6E 74 20 66 64 2C 20 66 75 6E 63 nc) int fd, func
0000B0: 3B 20 7B 0D 0A 20 20 69 6E 74 20 65 72 72 6F 72 ; {.. int error
0000C0: 3B 0D 0A 20 20 55 62 64 6F 73 28 53 45 54 44 4D ;.. Ubdos(SETDM
0000D0: 41 2C 20 55 62 75 66 70 74 72 5B 66 64 5D 29 3B A, Ubufptr[fd]);
0000E0: 0D 0A 20 20 65 72 72 6F 72 20 3D 20 55 62 64 6F .. error = Ubdo
0000F0: 73 28 66 75 6E 63 2C 20 55 66 63 62 70 74 72 5B s(func, Ufcbptr[
000100: 66 64 5D 29 3B 0D 0A 20 20 55 62 64 6F 73 28 53 fd]);.. Ubdos(S
000110: 45 54 44 4D 41 2C 20 31 32 38 29 3B 0D 0A 20 20 ETDMA, 128);..
000120: 55 64 69 72 74 79 5B 66 64 5D 20 3D 20 4E 4F 3B Udirty[fd] = NO;
000130: 0D 0A 20 20 72 65 74 75 72 6E 20 28 65 72 72 6F .. return (erro
000140: 72 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A r);.. }..../*..
000150: 2A 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 ** ------------
000160: 46 69 6C 65 20 53 74 61 74 75 73 0D 0A 2A 2F 0D File Status..*/.
000170: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 52 65 74 75 72 6E .../*..** Return
000180: 20 66 64 27 73 20 6F 70 65 6E 20 6D 6F 64 65 2C fd's open mode,
000190: 20 65 6C 73 65 20 4E 55 4C 4C 2E 0D 0A 2A 2F 0D else NULL...*/.
0001A0: 0A 55 6D 6F 64 65 28 66 64 29 20 63 68 61 72 20 .Umode(fd) char
0001B0: 2A 66 64 3B 20 7B 0D 0A 20 20 69 66 28 66 64 20 *fd; {.. if(fd
0001C0: 3C 20 4D 41 58 46 49 4C 45 53 29 20 72 65 74 75 < MAXFILES) retu
0001D0: 72 6E 20 28 55 73 74 61 74 75 73 5B 66 64 5D 29 rn (Ustatus[fd])
0001E0: 3B 0D 0A 20 20 72 65 74 75 72 6E 20 28 4E 55 4C ;.. return (NUL
0001F0: 4C 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A L);.. }..../*..
Size : 512 (Real : 512)
000000: 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A }.. }..../*
000010: 0D 0A 2A 2A 20 52 65 61 64 20 6F 6E 65 20 73 65 ..** Read one se
000020: 63 74 6F 72 20 66 72 6F 6D 20 66 64 2E 0D 0A 2A ctor from fd...*
000030: 2F 0D 0A 55 67 65 74 73 65 63 28 66 64 29 20 69 /..Ugetsec(fd) i
000040: 6E 74 20 66 64 3B 20 7B 0D 0A 23 69 66 64 65 66 nt fd; {..#ifdef
000050: 20 44 49 52 0D 0A 20 20 69 66 28 55 64 65 76 69 DIR.. if(Udevi
000060: 63 65 5B 66 64 5D 29 20 7B 20 20 20 20 20 20 20 ce[fd]) {
000070: 20 2F 2A 20 64 69 72 65 63 74 6F 72 79 20 66 69 /* directory fi
000080: 6C 65 20 2A 2F 0D 0A 20 20 20 20 63 68 61 72 20 le */.. char
000090: 2A 62 70 2C 20 2A 6E 61 6D 65 2C 20 2A 74 79 70 *bp, *name, *typ
0000A0: 65 2C 20 2A 65 6E 64 3B 0D 0A 20 20 20 20 55 62 e, *end;.. Ub
0000B0: 64 6F 73 28 53 45 54 44 4D 41 2C 20 31 32 38 29 dos(SETDMA, 128)
0000C0: 3B 0D 0A 20 20 20 20 69 66 28 28 6E 61 6D 65 20 ;.. if((name
0000D0: 3D 20 55 62 64 6F 73 28 55 64 65 76 69 63 65 5B = Ubdos(Udevice[
0000E0: 66 64 5D 2C 20 55 66 63 62 70 74 72 5B 66 64 5D fd], Ufcbptr[fd]
0000F0: 29 29 20 3D 3D 20 32 35 35 29 20 7B 0D 0A 20 20 )) == 255) {..
000100: 20 20 20 20 55 73 65 74 65 6F 66 28 66 64 29 3B Useteof(fd);
000110: 0D 0A 20 20 20 20 20 20 72 65 74 75 72 6E 20 28 .. return (
000120: 4E 4F 29 3B 0D 0A 20 20 20 20 20 20 7D 0D 0A 20 NO);.. }..
000130: 20 20 20 55 64 65 76 69 63 65 5B 66 64 5D 20 3D Udevice[fd] =
000140: 20 46 4E 44 4E 58 54 3B 0D 0A 20 20 20 20 6E 61 FNDNXT;.. na
000150: 6D 65 20 3D 20 28 6E 61 6D 65 20 3C 3C 20 35 29 me = (name << 5)
000160: 20 2B 20 28 31 32 38 20 2B 20 4E 41 4D 45 4F 46 + (128 + NAMEOF
000170: 46 29 3B 0D 0A 20 20 20 20 74 79 70 65 20 3D 20 F);.. type =
000180: 6E 61 6D 65 20 2B 20 4E 41 4D 45 53 49 5A 45 3B name + NAMESIZE;
000190: 0D 0A 20 20 20 20 65 6E 64 20 3D 20 6E 61 6D 65 .. end = name
0001A0: 20 2B 20 4E 54 53 49 5A 45 3B 0D 0A 20 20 20 20 + NTSIZE;..
0001B0: 62 70 20 3D 20 55 62 75 66 70 74 72 5B 66 64 5D bp = Ubufptr[fd]
0001C0: 20 2B 20 42 55 46 53 49 5A 45 3B 0D 0A 20 20 20 + BUFSIZE;..
0001D0: 20 2A 2D 2D 62 70 20 3D 20 43 52 3B 0D 0A 20 20 *--bp = CR;..
0001E0: 20 20 77 68 69 6C 65 28 2D 2D 65 6E 64 20 3E 3D while(--end >=
0001F0: 20 6E 61 6D 65 29 20 7B 20 2F 2A 20 70 75 74 20 name) { /* put
Size : 512 (Real : 512)
000000: 2A 2A 20 53 65 74 20 65 6F 66 20 73 74 61 74 75 ** Set eof statu
000010: 73 20 66 6F 72 20 66 64 20 61 6E 64 0D 0A 2A 2A s for fd and..**
000020: 20 64 69 73 61 62 6C 65 20 66 75 74 75 72 65 20 disable future
000030: 69 2F 6F 20 75 6E 6C 65 73 73 20 77 72 69 74 69 i/o unless writi
000040: 6E 67 20 69 73 20 61 6C 6C 6F 77 65 64 2E 0D 0A ng is allowed...
000050: 2A 2F 0D 0A 55 73 65 74 65 6F 66 28 66 64 29 20 */..Useteof(fd)
000060: 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 55 73 74 int fd; {.. Ust
000070: 61 74 75 73 5B 66 64 5D 20 7C 3D 20 45 4F 46 42 atus[fd] |= EOFB
000080: 49 54 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A IT;.. }..../*..
000090: 2A 2A 20 43 6C 65 61 72 20 65 6F 66 20 73 74 61 ** Clear eof sta
0000A0: 74 75 73 20 66 6F 72 20 66 64 2E 0D 0A 2A 2F 0D tus for fd...*/.
0000B0: 0A 55 63 6C 72 65 6F 66 28 66 64 29 20 69 6E 74 .Uclreof(fd) int
0000C0: 20 66 64 3B 20 7B 0D 0A 20 20 55 73 74 61 74 75 fd; {.. Ustatu
0000D0: 73 5B 66 64 5D 20 26 3D 20 7E 45 4F 46 42 49 54 s[fd] &= ~EOFBIT
0000E0: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ;.. }..../*..**
0000F0: 20 53 65 74 20 65 72 72 6F 72 20 73 74 61 74 75 Set error statu
000100: 73 20 66 6F 72 20 66 64 2E 0D 0A 2A 2F 0D 0A 55 s for fd...*/..U
000110: 73 65 74 65 72 72 28 66 64 29 20 69 6E 74 20 66 seterr(fd) int f
000120: 64 3B 20 7B 0D 0A 20 20 55 73 74 61 74 75 73 5B d; {.. Ustatus[
000130: 66 64 5D 20 7C 3D 20 45 52 52 42 49 54 3B 0D 0A fd] |= ERRBIT;..
000140: 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 2D 2D }..../*..** --
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 4D 65 6D 6F 72 ---------- Memor
000160: 79 20 41 6C 6C 6F 63 61 74 69 6F 6E 0D 0A 2A 2F y Allocation..*/
000170: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 41 6C 6C 6F 63 ..../*..** Alloc
000180: 61 74 65 20 6E 20 62 79 74 65 73 20 6F 66 20 28 ate n bytes of (
000190: 70 6F 73 73 69 62 6C 79 20 7A 65 72 6F 65 64 29 possibly zeroed)
0001A0: 20 6D 65 6D 6F 72 79 2E 0D 0A 2A 2A 20 45 6E 74 memory...** Ent
0001B0: 72 79 3A 20 6E 20 3D 20 53 69 7A 65 20 6F 66 20 ry: n = Size of
0001C0: 74 68 65 20 69 74 65 6D 73 20 69 6E 20 62 79 74 the items in byt
0001D0: 65 73 2E 0D 0A 2A 2A 20 20 20 20 63 6C 65 61 72 es...** clear
0001E0: 20 3D 20 22 74 72 75 65 22 20 69 66 20 63 6C 65 = "true" if cle
0001F0: 61 72 69 6E 67 20 69 73 20 64 65 73 69 72 65 64 aring is desired
Size : 512 (Real : 512)
000000: 66 69 6C 65 6E 61 6D 65 20 61 74 20 65 6E 64 20 filename at end
000010: 6F 66 20 62 75 66 66 65 72 20 2A 2F 0D 0A 20 20 of buffer */..
000020: 20 20 20 20 69 66 28 2A 65 6E 64 20 3D 3D 20 53 if(*end == S
000030: 50 41 43 45 29 20 63 6F 6E 74 69 6E 75 65 3B 0D PACE) continue;.
000040: 0A 20 20 20 20 20 20 2A 2D 2D 62 70 20 3D 20 2A . *--bp = *
000050: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 28 65 end;.. if(e
000060: 6E 64 20 3D 3D 20 74 79 70 65 29 20 2A 2D 2D 62 nd == type) *--b
000070: 70 20 3D 20 27 2E 27 3B 0D 0A 20 20 20 20 20 20 p = '.';..
000080: 7D 0D 0A 20 20 20 20 55 63 68 72 70 6F 73 5B 66 }.. Uchrpos[f
000090: 64 5D 20 3D 20 62 70 20 2D 20 55 62 75 66 70 74 d] = bp - Ubufpt
0000A0: 72 5B 66 64 5D 3B 0D 0A 20 20 20 20 72 65 74 75 r[fd];.. retu
0000B0: 72 6E 20 28 59 45 53 29 3B 0D 0A 20 20 20 20 7D rn (YES);.. }
0000C0: 0D 0A 23 65 6E 64 69 66 0D 0A 20 20 69 66 28 66 ..#endif.. if(f
0000D0: 66 6C 75 73 68 28 66 64 29 29 20 72 65 74 75 72 flush(fd)) retur
0000E0: 6E 20 28 4E 4F 29 3B 0D 0A 20 20 55 61 64 76 61 n (NO);.. Uadva
0000F0: 6E 63 65 28 66 64 29 3B 0D 0A 20 20 69 66 28 55 nce(fd);.. if(U
000100: 73 65 63 74 6F 72 28 66 64 2C 20 52 44 52 4E 44 sector(fd, RDRND
000110: 29 29 20 7B 0D 0A 20 20 20 20 70 61 64 28 55 62 )) {.. pad(Ub
000120: 75 66 70 74 72 5B 66 64 5D 2C 20 43 50 4D 45 4F ufptr[fd], CPMEO
000130: 46 2C 20 42 55 46 53 49 5A 45 29 3B 0D 0A 20 20 F, BUFSIZE);..
000140: 20 20 55 73 65 74 65 6F 66 28 66 64 29 3B 0D 0A Useteof(fd);..
000150: 20 20 20 20 72 65 74 75 72 6E 20 28 4E 4F 29 3B return (NO);
000160: 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 .. }.. retur
000170: 6E 20 28 59 45 53 29 3B 0D 0A 20 20 7D 0D 0A 0D n (YES);.. }...
000180: 0A 2F 2A 0D 0A 2A 2A 20 2D 2D 2D 2D 2D 2D 2D 2D ./*..** --------
000190: 2D 2D 2D 2D 20 46 69 6C 65 20 4F 75 74 70 75 74 ---- File Output
0001A0: 0D 0A 2A 2F 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 42 ..*/..../*..** B
0001B0: 69 6E 61 72 79 2D 53 74 72 65 61 6D 20 6F 75 74 inary-Stream out
0001C0: 70 75 74 20 6F 66 20 6F 6E 65 20 62 79 74 65 20 put of one byte
0001D0: 74 6F 20 66 64 2E 0D 0A 2A 2F 0D 0A 55 77 72 69 to fd...*/..Uwri
0001E0: 74 65 28 63 68 2C 20 66 64 29 20 69 6E 74 20 63 te(ch, fd) int c
0001F0: 68 2C 20 66 64 3B 20 7B 0D 0A 20 20 63 68 61 72 h, fd; {.. char
Size : 512 (Real : 512)
000000: 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 74 68 ...** Returns th
000010: 65 20 61 64 64 72 65 73 73 20 6F 66 20 74 68 65 e address of the
000020: 20 61 6C 6C 6F 63 61 74 65 64 20 62 6C 6F 63 6B allocated block
000030: 20 6F 66 20 6D 65 6D 6F 72 79 0D 0A 2A 2A 20 6F of memory..** o
000040: 72 20 4E 55 4C 4C 20 69 66 20 74 68 65 20 72 65 r NULL if the re
000050: 71 75 65 73 74 65 64 20 61 6D 6F 75 6E 74 20 6F quested amount o
000060: 66 20 73 70 61 63 65 20 69 73 20 6E 6F 74 20 61 f space is not a
000070: 76 61 69 6C 61 62 6C 65 2E 0D 0A 2A 2F 0D 0A 55 vailable...*/..U
000080: 61 6C 6C 6F 63 28 6E 2C 20 63 6C 65 61 72 29 20 alloc(n, clear)
000090: 63 68 61 72 20 2A 6E 3B 20 69 6E 74 20 63 6C 65 char *n; int cle
0000A0: 61 72 3B 20 7B 0D 0A 20 20 63 68 61 72 20 2A 6F ar; {.. char *o
0000B0: 6C 64 70 74 72 3B 0D 0A 20 20 69 66 28 6E 20 3C ldptr;.. if(n <
0000C0: 20 61 76 61 69 6C 28 59 45 53 29 29 20 7B 0D 0A avail(YES)) {..
0000D0: 20 20 20 20 69 66 28 63 6C 65 61 72 29 20 70 61 if(clear) pa
0000E0: 64 28 55 6D 65 6D 70 74 72 2C 20 4E 55 4C 4C 2C d(Umemptr, NULL,
0000F0: 20 6E 29 3B 0D 0A 20 20 20 20 6F 6C 64 70 74 72 n);.. oldptr
000100: 20 3D 20 55 6D 65 6D 70 74 72 3B 0D 0A 20 20 20 = Umemptr;..
000110: 20 55 6D 65 6D 70 74 72 20 2B 3D 20 6E 3B 0D 0A Umemptr += n;..
000120: 20 20 20 20 72 65 74 75 72 6E 20 28 6F 6C 64 70 return (oldp
000130: 74 72 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 tr);.. }.. r
000140: 65 74 75 72 6E 20 28 4E 55 4C 4C 29 3B 0D 0A 20 eturn (NULL);..
000150: 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 2D 2D 2D }..../*..** ---
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 43 50 2F 4D 20 49 --------- CP/M I
000170: 6E 74 65 72 66 61 63 65 0D 0A 2A 2F 0D 0A 0D 0A nterface..*/....
000180: 2F 2A 0D 0A 2A 2A 20 49 73 73 75 65 20 43 50 2F /*..** Issue CP/
000190: 4D 20 66 75 6E 63 74 69 6F 6E 20 61 6E 64 20 72 M function and r
0001A0: 65 74 75 72 6E 20 72 65 73 75 6C 74 2E 20 0D 0A eturn result. ..
0001B0: 2A 2A 20 45 6E 74 72 79 3A 20 63 20 20 3D 20 43 ** Entry: c = C
0001C0: 50 2F 4D 20 66 75 6E 63 74 69 6F 6E 20 63 6F 64 P/M function cod
0001D0: 65 20 28 72 65 67 69 73 74 65 72 20 43 29 0D 0A e (register C)..
0001E0: 2A 2A 20 20 20 20 20 20 20 20 64 65 20 3D 20 43 ** de = C
0001F0: 50 2F 4D 20 70 61 72 61 6D 65 74 65 72 20 28 72 P/M parameter (r
Size : 512 (Real : 512)
000000: 72 6E 20 69 6E 74 20 55 66 63 62 70 74 72 5B 5D rn int Ufcbptr[]
000010: 2C 20 55 73 74 61 74 75 73 5B 5D 2C 20 55 64 65 , Ustatus[], Ude
000020: 76 69 63 65 5B 5D 3B 0D 0A 66 63 6C 6F 73 65 28 vice[];..fclose(
000030: 66 64 29 20 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 fd) int fd; {..
000040: 20 69 66 28 21 55 6D 6F 64 65 28 66 64 29 29 20 if(!Umode(fd))
000050: 72 65 74 75 72 6E 20 28 45 52 52 29 3B 0D 0A 20 return (ERR);..
000060: 20 69 66 28 21 69 73 61 74 74 79 28 66 64 29 29 if(!isatty(fd))
000070: 20 7B 0D 0A 20 20 20 20 69 66 28 66 66 6C 75 73 {.. if(fflus
000080: 68 28 66 64 29 20 7C 7C 20 55 62 64 6F 73 28 43 h(fd) || Ubdos(C
000090: 4C 4F 46 49 4C 2C 55 66 63 62 70 74 72 5B 66 64 LOFIL,Ufcbptr[fd
0000A0: 5D 29 3D 3D 32 35 35 29 0D 0A 20 20 20 20 20 20 ])==255)..
0000B0: 72 65 74 75 72 6E 20 28 45 52 52 29 3B 0D 0A 20 return (ERR);..
0000C0: 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 28 }.. return (
0000D0: 55 73 74 61 74 75 73 5B 66 64 5D 3D 55 64 65 76 Ustatus[fd]=Udev
0000E0: 69 63 65 5B 66 64 5D 3D 4E 55 4C 4C 29 3B 0D 0A ice[fd]=NULL);..
0000F0: 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 46 45 4F 46 2E }....>>> FEOF.
000100: 43 20 32 36 34 0D 0A 23 64 65 66 69 6E 65 20 4E C 264..#define N
000110: 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 OCCARGC /* no a
000120: 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 20 70 61 rgument count pa
000130: 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 6C 75 ssing */..#inclu
000140: 64 65 20 63 6C 69 62 2E 64 65 66 0D 0A 65 78 74 de clib.def..ext
000150: 65 72 6E 20 69 6E 74 20 55 73 74 61 74 75 73 5B ern int Ustatus[
000160: 5D 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 54 65 73 74 20 ];../*..** Test
000170: 66 6F 72 20 65 6E 64 2D 6F 66 2D 66 69 6C 65 20 for end-of-file
000180: 73 74 61 74 75 73 2E 0D 0A 2A 2A 20 45 6E 74 72 status...** Entr
000190: 79 3A 20 66 64 20 3D 20 66 69 6C 65 20 64 65 73 y: fd = file des
0001A0: 63 72 69 70 74 6F 72 0D 0A 2A 2A 20 52 65 74 75 criptor..** Retu
0001B0: 72 6E 73 20 6E 6F 6E 2D 7A 65 72 6F 20 69 66 20 rns non-zero if
0001C0: 66 64 20 69 73 20 61 74 20 65 6F 66 2C 20 65 6C fd is at eof, el
0001D0: 73 65 20 7A 65 72 6F 2E 0D 0A 2A 2F 0D 0A 66 65 se zero...*/..fe
0001E0: 6F 66 28 66 64 29 20 69 6E 74 20 66 64 3B 20 7B of(fd) int fd; {
0001F0: 0D 0A 20 20 72 65 74 75 72 6E 20 28 55 73 74 61 .. return (Usta
Size : 512 (Real : 512)
000000: 65 67 69 73 74 65 72 20 44 45 20 6F 72 20 45 29 egister DE or E)
000010: 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 74 68 65 ..** Returns the
000020: 20 43 50 2F 4D 20 72 65 74 75 72 6E 20 63 6F 64 CP/M return cod
000030: 65 20 28 72 65 67 69 73 74 65 72 20 41 29 0D 0A e (register A)..
000040: 2A 2F 0D 0A 55 62 64 6F 73 28 63 2C 64 65 29 20 */..Ubdos(c,de)
000050: 69 6E 74 20 63 2C 64 65 3B 20 7B 0D 0A 23 61 73 int c,de; {..#as
000060: 6D 0D 0A 20 20 20 20 20 20 20 20 70 6F 70 20 20 m.. pop
000070: 20 20 20 68 20 20 20 20 20 20 20 3B 68 6F 6C 64 h ;hold
000080: 20 72 65 74 75 72 6E 20 61 64 64 72 65 73 73 0D return address.
000090: 0A 20 20 20 20 20 20 20 20 70 6F 70 20 20 20 20 . pop
0000A0: 20 64 20 20 20 20 20 20 20 3B 6C 6F 61 64 20 43 d ;load C
0000B0: 50 2F 4D 20 66 75 6E 63 74 69 6F 6E 20 70 61 72 P/M function par
0000C0: 61 6D 65 74 65 72 0D 0A 20 20 20 20 20 20 20 20 ameter..
0000D0: 70 6F 70 20 20 20 20 20 62 20 20 20 20 20 20 20 pop b
0000E0: 3B 6C 6F 61 64 20 43 50 2F 4D 20 66 75 6E 63 74 ;load CP/M funct
0000F0: 69 6F 6E 20 6E 75 6D 62 65 72 0D 0A 20 20 20 20 ion number..
000100: 20 20 20 20 70 75 73 68 20 20 20 20 62 20 20 20 push b
000110: 20 20 20 20 3B 72 65 73 74 6F 72 65 0D 0A 20 20 ;restore..
000120: 20 20 20 20 20 20 70 75 73 68 20 20 20 20 64 20 push d
000130: 20 20 20 20 20 20 3B 20 20 74 68 65 0D 0A 20 20 ; the..
000140: 20 20 20 20 20 20 70 75 73 68 20 20 20 20 68 20 push h
000150: 20 20 20 20 20 20 3B 20 20 20 20 20 73 74 61 63 ; stac
000160: 6B 0D 0A 20 20 20 20 20 20 20 20 63 61 6C 6C 20 k.. call
000170: 20 20 20 35 20 20 20 20 20 20 20 3B 63 61 6C 6C 5 ;call
000180: 20 62 64 6F 73 0D 0A 20 20 20 20 20 20 20 20 6D bdos.. m
000190: 76 69 20 20 20 20 20 68 2C 30 20 20 20 20 20 3B vi h,0 ;
0001A0: 0D 0A 20 20 20 20 20 20 20 20 6D 6F 76 20 20 20 .. mov
0001B0: 20 20 6C 2C 61 20 20 20 20 20 3B 72 65 74 75 72 l,a ;retur
0001C0: 6E 20 74 68 65 20 43 50 2F 4D 20 72 65 73 70 6F n the CP/M respo
0001D0: 6E 73 65 0D 0A 23 65 6E 64 61 73 6D 0D 0A 20 20 nse..#endasm..
0001E0: 7D 0D 0A 3E 3E 3E 20 43 54 45 4C 4C 2E 43 20 33 }..>>> CTELL.C 3
0001F0: 39 37 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 43 97..#define NOCC
Size : 512 (Real : 512)
000000: 74 75 73 5B 66 64 5D 20 26 20 45 4F 46 42 49 54 tus[fd] & EOFBIT
000010: 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 46 );.. }....>>> F
000020: 45 52 52 4F 52 2E 43 20 31 39 34 0D 0A 23 64 65 ERROR.C 194..#de
000030: 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F fine NOCCARGC /
000040: 2A 20 6E 6F 20 61 72 67 20 63 6F 75 6E 74 20 70 * no arg count p
000050: 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 6C assing */..#incl
000060: 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A 23 69 6E ude stdio.h..#in
000070: 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 66 0D 0A clude clib.def..
000080: 65 78 74 65 72 6E 20 55 73 74 61 74 75 73 5B 5D extern Ustatus[]
000090: 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 54 65 73 74 20 66 ;../*..** Test f
0000A0: 6F 72 20 65 72 72 6F 72 20 73 74 61 74 75 73 20 or error status
0000B0: 6F 6E 20 66 64 2E 0D 0A 2A 2F 0D 0A 66 65 72 72 on fd...*/..ferr
0000C0: 6F 72 28 66 64 29 20 69 6E 74 20 66 64 3B 20 7B or(fd) int fd; {
0000D0: 0D 0A 20 20 72 65 74 75 72 6E 20 28 55 73 74 61 .. return (Usta
0000E0: 74 75 73 5B 66 64 5D 20 26 20 45 52 52 42 49 54 tus[fd] & ERRBIT
0000F0: 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 46 46 4C );.. }..>>> FFL
000100: 55 53 48 2E 43 20 35 38 34 0D 0A 23 64 65 66 69 USH.C 584..#defi
000110: 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 ne NOCCARGC /*
000120: 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E no argument coun
000130: 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 t passing */..#i
000140: 6E 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A nclude stdio.h..
000150: 23 69 6E 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 #include clib.de
000160: 66 0D 0A 65 78 74 65 72 6E 20 69 6E 74 20 55 64 f..extern int Ud
000170: 69 72 74 79 5B 5D 2C 20 2A 55 61 75 78 73 7A 2C irty[], *Uauxsz,
000180: 20 55 61 75 78 66 6C 3B 0D 0A 2F 2A 0D 0A 2A 2A Uauxfl;../*..**
000190: 20 57 72 69 74 65 20 62 75 66 66 65 72 20 66 6F Write buffer fo
0001A0: 72 20 66 64 20 69 66 20 69 74 20 68 61 73 20 63 r fd if it has c
0001B0: 68 61 6E 67 65 73 2E 0D 0A 2A 2A 20 45 6E 74 72 hanges...** Entr
0001C0: 79 3A 20 66 64 20 3D 20 46 69 6C 65 20 64 65 73 y: fd = File des
0001D0: 63 72 69 70 74 6F 72 20 6F 66 20 70 65 72 74 69 criptor of perti
0001E0: 6E 65 6E 74 20 66 69 6C 65 2E 0D 0A 2A 2A 20 52 nent file...** R
0001F0: 65 74 75 72 6E 73 20 4E 55 4C 4C 20 6F 6E 20 73 eturns NULL on s
Size : 512 (Real : 512)
000000: 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 20 ARGC /* no arg
000010: 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F count passing */
000020: 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 6F ..#include stdio
000030: 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 20 63 6C 69 .h..#include cli
000040: 62 2E 64 65 66 0D 0A 65 78 74 65 72 6E 20 69 6E b.def..extern in
000050: 74 20 55 66 63 62 70 74 72 5B 5D 2C 20 55 63 68 t Ufcbptr[], Uch
000060: 72 70 6F 73 5B 5D 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 rpos[];../*..**
000070: 52 65 74 75 72 6E 20 6F 66 66 73 65 74 20 74 6F Return offset to
000080: 20 63 75 72 72 65 6E 74 20 31 32 38 2D 62 79 74 current 128-byt
000090: 65 20 72 65 63 6F 72 64 2E 0D 0A 2A 2F 0D 0A 63 e record...*/..c
0000A0: 74 65 6C 6C 28 66 64 29 20 69 6E 74 20 66 64 3B tell(fd) int fd;
0000B0: 20 7B 0D 0A 20 20 69 6E 74 20 2A 72 72 6E 3B 0D {.. int *rrn;.
0000C0: 0A 20 20 69 66 28 21 55 6D 6F 64 65 28 66 64 29 . if(!Umode(fd)
0000D0: 20 7C 7C 20 69 73 61 74 74 79 28 66 64 29 29 20 || isatty(fd))
0000E0: 72 65 74 75 72 6E 20 28 2D 31 29 3B 0D 0A 20 20 return (-1);..
0000F0: 72 72 6E 3D 55 66 63 62 70 74 72 5B 66 64 5D 2B rrn=Ufcbptr[fd]+
000100: 52 52 4E 4F 46 46 3B 0D 0A 20 20 72 65 74 75 72 RRNOFF;.. retur
000110: 6E 20 28 2A 72 72 6E 29 3B 0D 0A 20 20 7D 0D 0A n (*rrn);.. }..
000120: 2F 2A 0D 0A 2A 2A 20 52 65 74 75 72 6E 20 6F 66 /*..** Return of
000130: 66 73 65 74 20 74 6F 20 6E 65 78 74 20 63 68 61 fset to next cha
000140: 72 61 63 74 65 72 20 69 6E 20 63 75 72 72 65 6E racter in curren
000150: 74 20 62 75 66 66 65 72 2E 0D 0A 2A 2F 0D 0A 63 t buffer...*/..c
000160: 74 65 6C 6C 63 28 66 64 29 20 69 6E 74 20 66 64 tellc(fd) int fd
000170: 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E 20 28 55 ; {.. return (U
000180: 63 68 72 70 6F 73 5B 66 64 5D 29 3B 0D 0A 20 20 chrpos[fd]);..
000190: 7D 0D 0A 0D 0A 3E 3E 3E 20 44 54 4F 49 2E 43 20 }....>>> DTOI.C
0001A0: 34 31 37 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 417..#define NOC
0001B0: 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 CARGC /* no arg
0001C0: 75 6D 65 6E 74 20 63 6F 75 6E 74 20 70 61 73 73 ument count pass
0001D0: 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 ing */..#include
0001E0: 20 73 74 64 69 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A stdio.h../*..**
0001F0: 20 64 74 6F 69 20 2D 2D 20 63 6F 6E 76 65 72 74 dtoi -- convert
Size : 512 (Real : 512)
000000: 75 63 63 65 73 73 2C 20 6F 74 68 65 72 77 69 73 uccess, otherwis
000010: 65 20 45 4F 46 2E 0D 0A 2A 2A 20 52 65 74 75 72 e EOF...** Retur
000020: 6E 73 20 4E 55 4C 4C 20 69 66 20 66 69 6C 65 20 ns NULL if file
000030: 69 73 20 6F 70 65 6E 65 64 20 66 6F 72 20 69 6E is opened for in
000040: 70 75 74 20 6F 6E 6C 79 0D 0A 2A 2A 20 20 20 20 put only..**
000050: 20 20 20 20 20 6F 72 20 69 66 20 69 74 20 69 73 or if it is
000060: 20 6E 6F 74 20 61 20 64 69 73 6B 20 66 69 6C 65 not a disk file
000070: 2E 0D 0A 2A 2F 0D 0A 66 66 6C 75 73 68 28 66 64 ...*/..fflush(fd
000080: 29 20 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 69 ) int fd; {.. i
000090: 66 28 55 6D 6F 64 65 28 66 64 29 20 26 20 57 52 f(Umode(fd) & WR
0000A0: 54 42 49 54 29 20 7B 0D 0A 20 20 20 20 69 66 28 TBIT) {.. if(
0000B0: 28 55 61 75 78 73 7A 20 26 26 20 55 61 75 78 73 (Uauxsz && Uauxs
0000C0: 7A 5B 66 64 5D 20 26 26 20 55 61 75 78 66 6C 28 z[fd] && Uauxfl(
0000D0: 66 64 29 29 20 7C 7C 0D 0A 20 20 20 20 20 20 20 fd)) ||..
0000E0: 28 21 69 73 61 74 74 79 28 66 64 29 20 26 26 20 (!isatty(fd) &&
0000F0: 55 64 69 72 74 79 5B 66 64 5D 20 26 26 20 55 73 Udirty[fd] && Us
000100: 65 63 74 6F 72 28 66 64 2C 20 57 52 54 52 4E 44 ector(fd, WRTRND
000110: 29 29 29 20 7B 0D 0A 20 20 20 20 20 20 55 73 65 ))) {.. Use
000120: 74 65 72 72 28 66 64 29 3B 0D 0A 20 20 20 20 20 terr(fd);..
000130: 20 72 65 74 75 72 6E 20 28 45 52 52 29 3B 0D 0A return (ERR);..
000140: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 7D 0D 0A }.. }..
000150: 20 20 72 65 74 75 72 6E 20 28 4E 55 4C 4C 29 3B return (NULL);
000160: 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 46 47 45 .. }....>>> FGE
000170: 54 43 2E 43 20 37 36 31 0D 0A 23 64 65 66 69 6E TC.C 761..#defin
000180: 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E e NOCCARGC /* n
000190: 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 o argument count
0001A0: 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E passing */..#in
0001B0: 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A 23 clude stdio.h..#
0001C0: 69 6E 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 66 include clib.def
0001D0: 0D 0A 65 78 74 65 72 6E 20 69 6E 74 20 55 63 68 ..extern int Uch
0001E0: 72 70 6F 73 5B 5D 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 rpos[];../*..**
0001F0: 43 68 61 72 61 63 74 65 72 2D 73 74 72 65 61 6D Character-stream
Size : 512 (Real : 512)
000000: 20 73 69 67 6E 65 64 20 64 65 63 69 6D 61 6C 20 signed decimal
000010: 73 74 72 69 6E 67 20 74 6F 20 69 6E 74 65 67 65 string to intege
000020: 72 20 6E 62 72 0D 0A 2A 2A 20 20 20 20 20 20 20 r nbr..**
000030: 20 20 72 65 74 75 72 6E 73 20 66 69 65 6C 64 20 returns field
000040: 6C 65 6E 67 74 68 2C 20 65 6C 73 65 20 45 52 52 length, else ERR
000050: 20 6F 6E 20 65 72 72 6F 72 0D 0A 2A 2F 0D 0A 64 on error..*/..d
000060: 74 6F 69 28 64 65 63 73 74 72 2C 20 6E 62 72 29 toi(decstr, nbr)
000070: 20 20 63 68 61 72 20 2A 64 65 63 73 74 72 3B 20 char *decstr;
000080: 20 69 6E 74 20 2A 6E 62 72 3B 20 20 7B 0D 0A 20 int *nbr; {..
000090: 20 69 6E 74 20 6C 65 6E 2C 20 73 3B 0D 0A 20 20 int len, s;..
0000A0: 69 66 28 28 2A 64 65 63 73 74 72 29 3D 3D 27 2D if((*decstr)=='-
0000B0: 27 29 20 7B 73 3D 31 3B 20 2B 2B 64 65 63 73 74 ') {s=1; ++decst
0000C0: 72 3B 7D 20 65 6C 73 65 20 73 3D 30 3B 0D 0A 20 r;} else s=0;..
0000D0: 20 69 66 28 28 6C 65 6E 3D 75 74 6F 69 28 64 65 if((len=utoi(de
0000E0: 63 73 74 72 2C 20 6E 62 72 29 29 3C 30 29 20 72 cstr, nbr))<0) r
0000F0: 65 74 75 72 6E 20 45 52 52 3B 0D 0A 20 20 69 66 eturn ERR;.. if
000100: 28 2A 6E 62 72 3C 30 29 20 72 65 74 75 72 6E 20 (*nbr<0) return
000110: 45 52 52 3B 0D 0A 20 20 69 66 28 73 29 20 7B 2A ERR;.. if(s) {*
000120: 6E 62 72 20 3D 20 2D 2A 6E 62 72 3B 20 72 65 74 nbr = -*nbr; ret
000130: 75 72 6E 20 2B 2B 6C 65 6E 3B 7D 20 65 6C 73 65 urn ++len;} else
000140: 20 72 65 74 75 72 6E 20 6C 65 6E 3B 0D 0A 20 20 return len;..
000150: 7D 0D 0A 3E 3E 3E 20 45 58 49 54 2E 43 20 34 32 }..>>> EXIT.C 42
000160: 30 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 0..#define NOCCA
000170: 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 75 6D RGC /* no argum
000180: 65 6E 74 20 63 6F 75 6E 74 20 70 61 73 73 69 6E ent count passin
000190: 67 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 g */..#include s
0001A0: 74 64 69 6F 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 tdio.h..#include
0001B0: 20 63 6C 69 62 2E 64 65 66 0D 0A 2F 2A 0D 0A 2A clib.def../*..*
0001C0: 2A 20 43 6C 6F 73 65 20 61 6C 6C 20 6F 70 65 6E * Close all open
0001D0: 20 66 69 6C 65 73 20 61 6E 64 20 65 78 69 74 20 files and exit
0001E0: 74 6F 20 43 50 2F 4D 2E 20 0D 0A 2A 2A 20 45 6E to CP/M. ..** En
0001F0: 74 72 79 3A 20 65 72 72 63 6F 64 65 20 3D 20 43 try: errcode = C
Size : 512 (Real : 512)
000000: 20 69 6E 70 75 74 20 6F 66 20 6F 6E 65 20 63 68 input of one ch
000010: 61 72 61 63 74 65 72 20 66 72 6F 6D 20 66 64 2E aracter from fd.
000020: 0D 0A 2A 2A 20 45 6E 74 72 79 3A 20 66 64 20 3D ..** Entry: fd =
000030: 20 46 69 6C 65 20 64 65 73 63 72 69 70 74 6F 72 File descriptor
000040: 20 6F 66 20 70 65 72 74 69 6E 65 6E 74 20 66 69 of pertinent fi
000050: 6C 65 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 le...** Returns
000060: 74 68 65 20 6E 65 78 74 20 63 68 61 72 61 63 74 the next charact
000070: 65 72 20 6F 6E 20 73 75 63 63 65 73 73 2C 20 65 er on success, e
000080: 6C 73 65 20 45 4F 46 2E 0D 0A 2A 2F 0D 0A 66 67 lse EOF...*/..fg
000090: 65 74 63 28 66 64 29 20 69 6E 74 20 66 64 3B 20 etc(fd) int fd;
0000A0: 7B 0D 0A 20 20 69 6E 74 20 63 68 3B 0D 0A 20 20 {.. int ch;..
0000B0: 77 68 69 6C 65 28 31 29 20 7B 0D 0A 20 20 20 20 while(1) {..
0000C0: 73 77 69 74 63 68 28 63 68 20 3D 20 55 72 65 61 switch(ch = Urea
0000D0: 64 28 66 64 29 29 20 7B 0D 0A 20 20 20 20 20 20 d(fd)) {..
0000E0: 64 65 66 61 75 6C 74 3A 20 20 20 20 20 72 65 74 default: ret
0000F0: 75 72 6E 20 28 63 68 29 3B 0D 0A 20 20 20 20 20 urn (ch);..
000100: 20 63 61 73 65 20 43 50 4D 45 4F 46 3A 20 73 77 case CPMEOF: sw
000110: 69 74 63 68 28 55 63 68 72 70 6F 73 5B 66 64 5D itch(Uchrpos[fd]
000120: 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ) {..
000130: 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6C defaul
000140: 74 3A 20 2D 2D 55 63 68 72 70 6F 73 5B 66 64 5D t: --Uchrpos[fd]
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000160: 20 20 20 20 20 20 20 20 63 61 73 65 20 30 3A 0D case 0:.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000180: 20 20 20 20 20 20 63 61 73 65 20 42 55 46 53 49 case BUFSI
000190: 5A 45 3A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ZE:..
0001A0: 20 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 }..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 55 73 65 74 65 6F 66 28 66 64 29 3B 0D 0A 20 20 Useteof(fd);..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 72 65 74 75 72 6E 20 28 45 4F 46 29 3B 0D 0A return (EOF);..
0001F0: 20 20 20 20 20 20 63 61 73 65 20 43 52 3A 20 20 case CR:
Size : 512 (Real : 512)
000000: 68 61 72 61 63 74 65 72 20 74 6F 20 62 65 20 73 haracter to be s
000010: 65 6E 74 20 74 6F 20 73 74 64 65 72 72 2E 0D 0A ent to stderr...
000020: 2A 2A 20 52 65 74 75 72 6E 73 20 74 6F 20 43 50 ** Returns to CP
000030: 2F 4D 20 72 61 74 68 65 72 20 74 68 61 6E 20 74 /M rather than t
000040: 68 65 20 63 61 6C 6C 65 72 2E 0D 0A 2A 2F 0D 0A he caller...*/..
000050: 65 78 69 74 28 65 72 72 63 6F 64 65 29 20 63 68 exit(errcode) ch
000060: 61 72 20 65 72 72 63 6F 64 65 3B 20 7B 0D 0A 20 ar errcode; {..
000070: 20 69 6E 74 20 66 64 3B 0D 0A 20 20 69 66 28 65 int fd;.. if(e
000080: 72 72 63 6F 64 65 29 20 55 63 6F 6E 6F 75 74 28 rrcode) Uconout(
000090: 65 72 72 63 6F 64 65 29 3B 0D 0A 20 20 66 6F 72 errcode);.. for
0000A0: 28 66 64 3D 30 3B 20 66 64 20 3C 20 4D 41 58 46 (fd=0; fd < MAXF
0000B0: 49 4C 45 53 3B 20 66 63 6C 6F 73 65 28 66 64 2B ILES; fclose(fd+
0000C0: 2B 29 29 3B 0D 0A 20 20 55 62 64 6F 73 28 47 4F +));.. Ubdos(GO
0000D0: 43 50 4D 2C 4E 55 4C 4C 29 3B 0D 0A 20 20 7D 0D CPM,NULL);.. }.
0000E0: 0A 23 61 73 6D 0D 0A 61 62 6F 72 74 20 20 65 71 .#asm..abort eq
0000F0: 75 20 20 20 20 65 78 69 74 0D 0A 20 20 20 20 20 u exit..
000100: 20 20 65 6E 74 72 79 20 20 61 62 6F 72 74 0D 0A entry abort..
000110: 23 65 6E 64 61 73 6D 0D 0A 3E 3E 3E 20 46 43 4C #endasm..>>> FCL
000120: 4F 53 45 2E 43 20 34 34 32 0D 0A 23 64 65 66 69 OSE.C 442..#defi
000130: 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 ne NOCCARGC /*
000140: 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E no argument coun
000150: 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 t passing */..#i
000160: 6E 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A nclude stdio.h..
000170: 23 69 6E 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 #include clib.de
000180: 66 0D 0A 2F 2A 0D 0A 2A 2A 20 43 6C 6F 73 65 20 f../*..** Close
000190: 66 64 20 0D 0A 2A 2A 20 45 6E 74 72 79 3A 20 66 fd ..** Entry: f
0001A0: 64 20 3D 20 46 69 6C 65 20 64 65 73 63 72 69 70 d = File descrip
0001B0: 74 6F 72 20 66 6F 72 20 66 69 6C 65 20 74 6F 20 tor for file to
0001C0: 62 65 20 63 6C 6F 73 65 64 2E 0D 0A 2A 2A 20 52 be closed...** R
0001D0: 65 74 75 72 6E 73 20 4E 55 4C 4C 20 66 6F 72 20 eturns NULL for
0001E0: 73 75 63 63 65 73 73 2C 20 6F 74 68 65 72 77 69 success, otherwi
0001F0: 73 65 20 45 52 52 0D 0A 2A 2F 0D 0A 65 78 74 65 se ERR..*/..exte
Size : 512 (Real : 512)
000000: 20 20 20 72 65 74 75 72 6E 20 28 27 5C 6E 27 29 return ('\n')
000010: 3B 0D 0A 20 20 20 20 20 20 63 61 73 65 20 4C 46 ;.. case LF
000020: 3A 20 20 20 20 2F 2A 20 4E 4F 54 45 3A 20 55 63 : /* NOTE: Uc
000030: 6F 6E 69 6E 28 29 20 6D 61 70 73 20 4C 46 20 2D onin() maps LF -
000040: 3E 20 43 52 20 2A 2F 0D 0A 20 20 20 20 20 20 7D > CR */.. }
000050: 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D 0A 23 61 .. }.. }..#a
000060: 73 6D 0D 0A 67 65 74 63 20 65 71 75 20 20 20 66 sm..getc equ f
000070: 67 65 74 63 0D 0A 20 20 20 20 20 65 6E 74 72 79 getc.. entry
000080: 20 67 65 74 63 0D 0A 23 65 6E 64 61 73 6D 0D 0A getc..#endasm..
000090: 0D 0A 3E 3E 3E 20 46 47 45 54 53 2E 43 20 31 38 ..>>> FGETS.C 18
0000A0: 31 33 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 43 13..#define NOCC
0000B0: 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 20 ARGC /* no arg
0000C0: 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F count passing */
0000D0: 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 6F ..#include stdio
0000E0: 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 20 63 6C 69 .h..#include cli
0000F0: 62 2E 64 65 66 0D 0A 2F 2A 0D 0A 2A 2A 20 47 65 b.def../*..** Ge
000100: 74 73 20 61 6E 20 65 6E 74 69 72 65 20 73 74 72 ts an entire str
000110: 69 6E 67 20 28 69 6E 63 6C 75 64 69 6E 67 20 69 ing (including i
000120: 74 73 20 6E 65 77 6C 69 6E 65 0D 0A 2A 2A 20 74 ts newline..** t
000130: 65 72 6D 69 6E 61 74 6F 72 29 20 6F 72 20 73 69 erminator) or si
000140: 7A 65 2D 31 20 63 68 61 72 61 63 74 65 72 73 2C ze-1 characters,
000150: 20 77 68 69 63 68 65 76 65 72 20 63 6F 6D 65 73 whichever comes
000160: 0D 0A 2A 2A 20 66 69 72 73 74 2E 20 54 68 65 20 ..** first. The
000170: 69 6E 70 75 74 20 69 73 20 74 65 72 6D 69 6E 61 input is termina
000180: 74 65 64 20 62 79 20 61 20 6E 75 6C 6C 20 63 68 ted by a null ch
000190: 61 72 61 63 74 65 72 2E 0D 0A 2A 2A 20 45 6E 74 aracter...** Ent
0001A0: 72 79 3A 20 73 74 72 20 20 3D 20 50 6F 69 6E 74 ry: str = Point
0001B0: 65 72 20 74 6F 20 64 65 73 74 69 6E 61 74 69 6F er to destinatio
0001C0: 6E 20 62 75 66 66 65 72 2E 0D 0A 2A 2A 20 20 20 n buffer...**
0001D0: 20 20 20 20 20 73 69 7A 65 20 3D 20 53 69 7A 65 size = Size
0001E0: 20 6F 66 20 74 68 65 20 64 65 73 74 69 6E 61 74 of the destinat
0001F0: 69 6F 6E 20 62 75 66 66 65 72 2E 0D 0A 2A 2A 20 ion buffer...**
Size : 512 (Real : 512)
000000: 20 64 65 73 63 72 69 70 74 6F 72 20 6F 6E 20 73 descriptor on s
000010: 75 63 63 65 73 73 2C 20 65 6C 73 65 20 4E 55 4C uccess, else NUL
000020: 4C 2E 0D 0A 2A 2F 0D 0A 66 6F 70 65 6E 28 66 6E L...*/..fopen(fn
000030: 2C 20 6D 6F 64 65 29 20 63 68 61 72 20 2A 66 6E , mode) char *fn
000040: 2C 20 2A 6D 6F 64 65 3B 20 7B 0D 0A 20 20 69 6E , *mode; {.. in
000050: 74 20 66 64 3B 0D 0A 20 20 66 64 20 3D 20 30 3B t fd;.. fd = 0;
000060: 20 2F 2A 20 73 6B 69 70 20 73 74 64 69 6E 20 28 /* skip stdin (
000070: 3D 20 65 72 72 6F 72 20 72 65 74 75 72 6E 29 20 = error return)
000080: 2A 2F 0D 0A 20 20 77 68 69 6C 65 28 2B 2B 66 64 */.. while(++fd
000090: 20 3C 20 4D 41 58 46 49 4C 45 53 29 20 7B 0D 0A < MAXFILES) {..
0000A0: 20 20 20 20 69 66 28 55 6D 6F 64 65 28 66 64 29 if(Umode(fd)
0000B0: 20 3D 3D 20 4E 55 4C 4C 29 20 7B 0D 0A 20 20 20 == NULL) {..
0000C0: 20 20 20 69 66 28 55 6F 70 65 6E 28 66 6E 2C 20 if(Uopen(fn,
0000D0: 6D 6F 64 65 2C 20 66 64 29 21 3D 45 52 52 29 20 mode, fd)!=ERR)
0000E0: 72 65 74 75 72 6E 20 28 66 64 29 3B 0D 0A 20 20 return (fd);..
0000F0: 20 20 20 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 break;..
000100: 20 20 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 65 }.. }.. re
000110: 74 75 72 6E 20 28 4E 55 4C 4C 29 3B 0D 0A 20 20 turn (NULL);..
000120: 7D 0D 0A 0D 0A 3E 3E 3E 20 46 50 52 49 4E 54 46 }....>>> FPRINTF
000130: 2E 43 20 32 32 37 35 0D 0A 23 64 65 66 69 6E 65 .C 2275..#define
000140: 20 4E 4F 43 43 41 52 47 43 20 0D 0A 2F 2A 0D 0A NOCCARGC ../*..
000150: 2A 2A 20 59 65 73 2C 20 74 68 61 74 20 69 73 20 ** Yes, that is
000160: 63 6F 72 72 65 63 74 2E 20 20 41 6C 74 68 6F 75 correct. Althou
000170: 67 68 20 74 68 65 73 65 20 66 75 6E 63 74 69 6F gh these functio
000180: 6E 73 20 75 73 65 20 61 6E 0D 0A 2A 2A 20 61 72 ns use an..** ar
000190: 67 75 6D 65 6E 74 20 63 6F 75 6E 74 2C 20 74 68 gument count, th
0001A0: 65 79 20 64 6F 20 6E 6F 74 20 63 61 6C 6C 20 66 ey do not call f
0001B0: 75 6E 63 74 69 6F 6E 73 20 77 68 69 63 68 20 6E unctions which n
0001C0: 65 65 64 20 6F 6E 65 2E 0D 0A 2A 2F 0D 0A 23 69 eed one...*/..#i
0001D0: 6E 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A nclude stdio.h..
0001E0: 2F 2A 0D 0A 2A 2A 20 66 70 72 69 6E 74 66 28 66 /*..** fprintf(f
0001F0: 64 2C 20 63 74 6C 73 74 72 69 6E 67 2C 20 61 72 d, ctlstring, ar
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 66 64 20 20 20 3D 20 46 69 fd = Fi
000010: 6C 65 20 64 65 73 63 72 69 70 74 6F 72 20 6F 66 le descriptor of
000020: 20 70 65 72 74 69 6E 65 6E 74 20 66 69 6C 65 2E pertinent file.
000030: 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 73 74 72 ..** Returns str
000040: 20 6F 6E 20 73 75 63 63 65 73 73 2C 20 65 6C 73 on success, els
000050: 65 20 4E 55 4C 4C 2E 0D 0A 2A 2F 0D 0A 66 67 65 e NULL...*/..fge
000060: 74 73 28 73 74 72 2C 20 73 69 7A 65 2C 20 66 64 ts(str, size, fd
000070: 29 20 63 68 61 72 20 2A 73 74 72 3B 20 69 6E 74 ) char *str; int
000080: 20 73 69 7A 65 2C 20 66 64 3B 20 7B 0D 0A 20 20 size, fd; {..
000090: 72 65 74 75 72 6E 20 28 55 67 65 74 73 28 73 74 return (Ugets(st
0000A0: 72 2C 20 73 69 7A 65 2C 20 66 64 2C 20 31 29 29 r, size, fd, 1))
0000B0: 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A ;.. }..../*..**
0000C0: 20 47 65 74 73 20 61 6E 20 65 6E 74 69 72 65 20 Gets an entire
0000D0: 73 74 72 69 6E 67 20 66 72 6F 6D 20 73 74 64 69 string from stdi
0000E0: 6E 20 28 65 78 63 6C 75 64 69 6E 67 20 69 74 73 n (excluding its
0000F0: 20 6E 65 77 6C 69 6E 65 0D 0A 2A 2A 20 74 65 72 newline..** ter
000100: 6D 69 6E 61 74 6F 72 29 20 6F 72 20 73 69 7A 65 minator) or size
000110: 2D 31 20 63 68 61 72 61 63 74 65 72 73 2C 20 77 -1 characters, w
000120: 68 69 63 68 65 76 65 72 20 63 6F 6D 65 73 0D 0A hichever comes..
000130: 2A 2A 20 66 69 72 73 74 2E 20 54 68 65 20 69 6E ** first. The in
000140: 70 75 74 20 69 73 20 74 65 72 6D 69 6E 61 74 65 put is terminate
000150: 64 20 62 79 20 61 20 6E 75 6C 6C 20 63 68 61 72 d by a null char
000160: 61 63 74 65 72 2E 0D 0A 2A 2A 20 54 68 65 20 75 acter...** The u
000170: 73 65 72 20 62 75 66 66 65 72 20 6D 75 73 74 20 ser buffer must
000180: 62 65 20 6C 61 72 67 65 20 65 6E 6F 75 67 68 20 be large enough
000190: 74 6F 20 68 6F 6C 64 20 74 68 65 20 64 61 74 61 to hold the data
0001A0: 2E 0D 0A 2A 2A 20 45 6E 74 72 79 3A 20 73 74 72 ...** Entry: str
0001B0: 20 20 3D 20 50 6F 69 6E 74 65 72 20 74 6F 20 64 = Pointer to d
0001C0: 65 73 74 69 6E 61 74 69 6F 6E 20 62 75 66 66 65 estination buffe
0001D0: 72 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 73 r...** Returns s
0001E0: 74 72 20 6F 6E 20 73 75 63 63 65 73 73 2C 20 65 tr on success, e
0001F0: 6C 73 65 20 4E 55 4C 4C 2E 0D 0A 2A 2F 0D 0A 67 lse NULL...*/..g
Size : 512 (Real : 512)
000000: 67 2C 20 61 72 67 2C 20 2E 2E 2E 29 20 2D 20 46 g, arg, ...) - F
000010: 6F 72 6D 61 74 74 65 64 20 70 72 69 6E 74 2E 0D ormatted print..
000020: 0A 2A 2A 20 4F 70 65 72 61 74 65 73 20 61 73 20 .** Operates as
000030: 64 65 73 63 72 69 62 65 64 20 62 79 20 4B 65 72 described by Ker
000040: 6E 69 67 68 61 6E 20 26 20 52 69 74 63 68 69 65 nighan & Ritchie
000050: 2E 0D 0A 2A 2A 20 62 2C 20 63 2C 20 64 2C 20 6F ...** b, c, d, o
000060: 2C 20 73 2C 20 75 2C 20 61 6E 64 20 78 20 73 70 , s, u, and x sp
000070: 65 63 69 66 69 63 61 74 69 6F 6E 73 20 61 72 65 ecifications are
000080: 20 73 75 70 70 6F 72 74 65 64 2E 0D 0A 2A 2A 20 supported...**
000090: 4E 6F 74 65 3A 20 62 20 28 62 69 6E 61 72 79 29 Note: b (binary)
0000A0: 20 69 73 20 61 20 6E 6F 6E 2D 73 74 61 6E 64 61 is a non-standa
0000B0: 72 64 20 65 78 74 65 6E 73 69 6F 6E 2E 0D 0A 2A rd extension...*
0000C0: 2F 0D 0A 66 70 72 69 6E 74 66 28 61 72 67 63 29 /..fprintf(argc)
0000D0: 20 69 6E 74 20 61 72 67 63 3B 20 7B 0D 0A 20 20 int argc; {..
0000E0: 69 6E 74 20 2A 6E 78 74 61 72 67 3B 0D 0A 20 20 int *nxtarg;..
0000F0: 6E 78 74 61 72 67 20 3D 20 43 43 41 52 47 43 28 nxtarg = CCARGC(
000100: 29 20 2B 20 26 61 72 67 63 3B 0D 0A 20 20 72 65 ) + &argc;.. re
000110: 74 75 72 6E 28 55 70 72 69 6E 74 28 2A 28 2D 2D turn(Uprint(*(--
000120: 6E 78 74 61 72 67 29 2C 20 2D 2D 6E 78 74 61 72 nxtarg), --nxtar
000130: 67 29 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D g));.. }..../*.
000140: 0A 2A 2A 20 70 72 69 6E 74 66 28 63 74 6C 73 74 .** printf(ctlst
000150: 72 69 6E 67 2C 20 61 72 67 2C 20 61 72 67 2C 20 ring, arg, arg,
000160: 2E 2E 2E 29 20 2D 20 46 6F 72 6D 61 74 74 65 64 ...) - Formatted
000170: 20 70 72 69 6E 74 2E 0D 0A 2A 2A 20 4F 70 65 72 print...** Oper
000180: 61 74 65 73 20 61 73 20 64 65 73 63 72 69 62 65 ates as describe
000190: 64 20 62 79 20 4B 65 72 6E 69 67 68 61 6E 20 26 d by Kernighan &
0001A0: 20 52 69 74 63 68 69 65 2E 0D 0A 2A 2A 20 62 2C Ritchie...** b,
0001B0: 20 63 2C 20 64 2C 20 6F 2C 20 73 2C 20 75 2C 20 c, d, o, s, u,
0001C0: 61 6E 64 20 78 20 73 70 65 63 69 66 69 63 61 74 and x specificat
0001D0: 69 6F 6E 73 20 61 72 65 20 73 75 70 70 6F 72 74 ions are support
0001E0: 65 64 2E 0D 0A 2A 2A 20 4E 6F 74 65 3A 20 62 20 ed...** Note: b
0001F0: 28 62 69 6E 61 72 79 29 20 69 73 20 61 20 6E 6F (binary) is a no
Size : 512 (Real : 512)
000000: 65 74 73 28 73 74 72 29 20 63 68 61 72 20 2A 73 ets(str) char *s
000010: 74 72 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E 20 tr; {.. return
000020: 28 55 67 65 74 73 28 73 74 72 2C 20 33 32 37 36 (Ugets(str, 3276
000030: 37 2C 20 73 74 64 69 6E 2C 20 30 29 29 3B 0D 0A 7, stdin, 0));..
000040: 20 20 7D 0D 0A 0D 0A 55 67 65 74 73 28 73 74 72 }....Ugets(str
000050: 2C 20 73 69 7A 65 2C 20 66 64 2C 20 6E 6C 29 20 , size, fd, nl)
000060: 63 68 61 72 20 2A 73 74 72 3B 20 69 6E 74 20 73 char *str; int s
000070: 69 7A 65 2C 20 66 64 2C 20 6E 6C 3B 20 7B 0D 0A ize, fd, nl; {..
000080: 20 20 69 6E 74 20 62 61 63 6B 75 70 3B 0D 0A 20 int backup;..
000090: 20 63 68 61 72 20 2A 6E 65 78 74 3B 0D 0A 20 20 char *next;..
0000A0: 6E 65 78 74 20 3D 20 73 74 72 3B 0D 0A 20 20 77 next = str;.. w
0000B0: 68 69 6C 65 28 2D 2D 73 69 7A 65 20 3E 20 30 29 hile(--size > 0)
0000C0: 20 7B 0D 0A 20 20 20 20 73 77 69 74 63 68 20 28 {.. switch (
0000D0: 2A 6E 65 78 74 20 3D 20 66 67 65 74 63 28 66 64 *next = fgetc(fd
0000E0: 29 29 20 7B 0D 0A 20 20 20 20 20 20 63 61 73 65 )) {.. case
0000F0: 20 20 45 4F 46 3A 20 2A 6E 65 78 74 20 3D 20 4E EOF: *next = N
000100: 55 4C 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ULL;..
000110: 20 20 20 20 20 20 20 69 66 28 6E 65 78 74 20 3D if(next =
000120: 3D 20 73 74 72 29 20 72 65 74 75 72 6E 20 28 4E = str) return (N
000130: 55 4C 4C 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ULL);..
000140: 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 20 28 return (
000150: 73 74 72 29 3B 0D 0A 20 20 20 20 20 20 63 61 73 str);.. cas
000160: 65 20 27 5C 6E 27 3A 20 2A 28 6E 65 78 74 20 2B e '\n': *(next +
000170: 20 6E 6C 29 20 3D 20 4E 55 4C 4C 3B 0D 0A 20 20 nl) = NULL;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
000190: 65 74 75 72 6E 20 28 73 74 72 29 3B 0D 0A 20 20 eturn (str);..
0001A0: 20 20 20 20 63 61 73 65 20 20 52 55 42 3A 20 69 case RUB: i
0001B0: 66 28 6E 65 78 74 20 3E 20 73 74 72 29 20 62 61 f(next > str) ba
0001C0: 63 6B 75 70 20 3D 20 31 3B 20 65 6C 73 65 20 62 ckup = 1; else b
0001D0: 61 63 6B 75 70 20 3D 20 30 3B 0D 0A 20 20 20 20 ackup = 0;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6F 74 got
0001F0: 6F 20 62 61 63 6B 6F 75 74 3B 0D 0A 20 20 20 20 o backout;..
Size : 512 (Real : 512)
000000: 6E 2D 73 74 61 6E 64 61 72 64 20 65 78 74 65 6E n-standard exten
000010: 73 69 6F 6E 2E 0D 0A 2A 2F 0D 0A 70 72 69 6E 74 sion...*/..print
000020: 66 28 61 72 67 63 29 20 69 6E 74 20 61 72 67 63 f(argc) int argc
000030: 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E 28 55 70 ; {.. return(Up
000040: 72 69 6E 74 28 73 74 64 6F 75 74 2C 20 43 43 41 rint(stdout, CCA
000050: 52 47 43 28 29 20 2B 20 26 61 72 67 63 20 2D 20 RGC() + &argc -
000060: 31 29 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F 2A 0D 1));.. }..../*.
000070: 0A 2A 2A 20 55 70 72 69 6E 74 28 66 64 2C 20 63 .** Uprint(fd, c
000080: 74 6C 73 74 72 69 6E 67 2C 20 61 72 67 2C 20 61 tlstring, arg, a
000090: 72 67 2C 20 2E 2E 2E 29 0D 0A 2A 2A 20 43 61 6C rg, ...)..** Cal
0000A0: 6C 65 64 20 62 79 20 66 70 72 69 6E 74 66 28 29 led by fprintf()
0000B0: 20 61 6E 64 20 70 72 69 6E 74 66 28 29 2E 0D 0A and printf()...
0000C0: 2A 2F 0D 0A 55 70 72 69 6E 74 28 66 64 2C 20 6E */..Uprint(fd, n
0000D0: 78 74 61 72 67 29 20 69 6E 74 20 66 64 2C 20 2A xtarg) int fd, *
0000E0: 6E 78 74 61 72 67 3B 20 7B 0D 0A 20 20 69 6E 74 nxtarg; {.. int
0000F0: 20 20 61 72 67 2C 20 6C 65 66 74 2C 20 70 61 64 arg, left, pad
000100: 2C 20 63 63 2C 20 6C 65 6E 2C 20 6D 61 78 63 68 , cc, len, maxch
000110: 72 2C 20 77 69 64 74 68 3B 0D 0A 20 20 63 68 61 r, width;.. cha
000120: 72 20 2A 63 74 6C 2C 20 2A 73 70 74 72 2C 20 73 r *ctl, *sptr, s
000130: 74 72 5B 31 37 5D 3B 0D 0A 20 20 63 63 20 3D 20 tr[17];.. cc =
000140: 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0;
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 63 .. c
000170: 74 6C 20 3D 20 2A 6E 78 74 61 72 67 2D 2D 3B 20 tl = *nxtarg--;
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 77 68 69 .. whi
0001A0: 6C 65 28 2A 63 74 6C 29 20 7B 0D 0A 20 20 20 20 le(*ctl) {..
0001B0: 69 66 28 2A 63 74 6C 21 3D 27 25 27 29 20 7B 66 if(*ctl!='%') {f
0001C0: 70 75 74 63 28 2A 63 74 6C 2B 2B 2C 20 66 64 29 putc(*ctl++, fd)
0001D0: 3B 20 2B 2B 63 63 3B 20 63 6F 6E 74 69 6E 75 65 ; ++cc; continue
0001E0: 3B 7D 0D 0A 20 20 20 20 65 6C 73 65 20 2B 2B 63 ;}.. else ++c
0001F0: 74 6C 3B 0D 0A 20 20 20 20 69 66 28 2A 63 74 6C tl;.. if(*ctl
Size : 512 (Real : 512)
000000: 20 20 63 61 73 65 20 57 49 50 45 3A 20 62 61 63 case WIPE: bac
000010: 6B 75 70 20 3D 20 6E 65 78 74 20 2D 20 73 74 72 kup = next - str
000020: 3B 0D 0A 20 20 20 20 20 20 20 20 62 61 63 6B 6F ;.. backo
000030: 75 74 3A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ut:..
000040: 20 20 20 20 20 20 69 66 28 69 73 63 6F 6E 73 28 if(iscons(
000050: 66 64 29 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 fd)) {..
000060: 20 20 20 20 20 20 20 20 20 20 20 66 70 75 74 73 fputs
000070: 28 22 5C 62 20 5C 62 5C 62 20 5C 62 22 2C 20 73 ("\b \b\b \b", s
000080: 74 64 65 72 72 29 3B 0D 0A 20 20 20 20 20 20 20 tderr);..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 2B 2B 73 69 ++si
0000A0: 7A 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ze;..
0000B0: 20 20 20 20 20 20 20 20 77 68 69 6C 65 28 62 61 while(ba
0000C0: 63 6B 75 70 2D 2D 29 20 7B 0D 0A 20 20 20 20 20 ckup--) {..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 66 70 75 74 73 28 22 5C 62 20 5C 62 22 2C 20 73 fputs("\b \b", s
0000F0: 74 64 65 72 72 29 3B 0D 0A 20 20 20 20 20 20 20 tderr);..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
000110: 28 2A 2D 2D 6E 65 78 74 20 3C 20 33 32 29 20 66 (*--next < 32) f
000120: 70 75 74 73 28 22 5C 62 20 5C 62 22 2C 20 73 74 puts("\b \b", st
000130: 64 65 72 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 derr);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 2B 73 ++s
000150: 69 7A 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ize;..
000160: 20 20 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 }..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 20 continue;..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D }
0001A0: 0D 0A 20 20 20 20 20 20 20 20 64 65 66 61 75 6C .. defaul
0001B0: 74 3A 20 2B 2B 6E 65 78 74 3B 0D 0A 20 20 20 20 t: ++next;..
0001C0: 20 20 7D 0D 0A 20 20 20 20 7D 0D 0A 20 20 2A 6E }.. }.. *n
0001D0: 65 78 74 20 3D 20 4E 55 4C 4C 3B 0D 0A 20 20 72 ext = NULL;.. r
0001E0: 65 74 75 72 6E 20 28 73 74 72 29 3B 0D 0A 20 20 eturn (str);..
0001F0: 7D 0D 0A 0D 0A 3E 3E 3E 20 46 4F 50 45 4E 2E 43 }....>>> FOPEN.C
Size : 512 (Real : 512)
000000: 3D 3D 27 25 27 29 20 7B 66 70 75 74 63 28 2A 63 =='%') {fputc(*c
000010: 74 6C 2B 2B 2C 20 66 64 29 3B 20 2B 2B 63 63 3B tl++, fd); ++cc;
000020: 20 63 6F 6E 74 69 6E 75 65 3B 7D 0D 0A 20 20 20 continue;}..
000030: 20 69 66 28 2A 63 74 6C 3D 3D 27 2D 27 29 20 7B if(*ctl=='-') {
000040: 6C 65 66 74 20 3D 20 31 3B 20 2B 2B 63 74 6C 3B left = 1; ++ctl;
000050: 7D 20 65 6C 73 65 20 6C 65 66 74 20 3D 20 30 3B } else left = 0;
000060: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 69 66 28 .. if(
000070: 2A 63 74 6C 3D 3D 27 30 27 29 20 70 61 64 20 3D *ctl=='0') pad =
000080: 20 27 30 27 3B 20 65 6C 73 65 20 70 61 64 20 3D '0'; else pad =
000090: 20 27 20 27 3B 20 20 20 20 20 20 20 20 20 20 20 ' ';
0000A0: 0D 0A 20 20 20 20 69 66 28 69 73 64 69 67 69 74 .. if(isdigit
0000B0: 28 2A 63 74 6C 29 29 20 7B 0D 0A 20 20 20 20 20 (*ctl)) {..
0000C0: 20 77 69 64 74 68 20 3D 20 61 74 6F 69 28 63 74 width = atoi(ct
0000D0: 6C 2B 2B 29 3B 0D 0A 20 20 20 20 20 20 77 68 69 l++);.. whi
0000E0: 6C 65 28 69 73 64 69 67 69 74 28 2A 63 74 6C 29 le(isdigit(*ctl)
0000F0: 29 20 2B 2B 63 74 6C 3B 0D 0A 20 20 20 20 20 20 ) ++ctl;..
000100: 7D 0D 0A 20 20 20 20 65 6C 73 65 20 77 69 64 74 }.. else widt
000110: 68 20 3D 20 30 3B 0D 0A 20 20 20 20 69 66 28 2A h = 0;.. if(*
000120: 63 74 6C 3D 3D 27 2E 27 29 20 7B 20 20 20 20 20 ctl=='.') {
000130: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 6D .. m
000140: 61 78 63 68 72 20 3D 20 61 74 6F 69 28 2B 2B 63 axchr = atoi(++c
000150: 74 6C 29 3B 0D 0A 20 20 20 20 20 20 77 68 69 6C tl);.. whil
000160: 65 28 69 73 64 69 67 69 74 28 2A 63 74 6C 29 29 e(isdigit(*ctl))
000170: 20 2B 2B 63 74 6C 3B 0D 0A 20 20 20 20 20 20 7D ++ctl;.. }
000180: 0D 0A 20 20 20 20 65 6C 73 65 20 6D 61 78 63 68 .. else maxch
000190: 72 20 3D 20 30 3B 0D 0A 20 20 20 20 61 72 67 20 r = 0;.. arg
0001A0: 3D 20 2A 6E 78 74 61 72 67 2D 2D 3B 0D 0A 20 20 = *nxtarg--;..
0001B0: 20 20 73 70 74 72 20 3D 20 73 74 72 3B 0D 0A 20 sptr = str;..
0001C0: 20 20 20 73 77 69 74 63 68 28 2A 63 74 6C 2B 2B switch(*ctl++
0001D0: 29 20 7B 0D 0A 20 20 20 20 20 20 63 61 73 65 20 ) {.. case
0001E0: 27 63 27 3A 20 73 74 72 5B 30 5D 20 3D 20 61 72 'c': str[0] = ar
0001F0: 67 3B 20 73 74 72 5B 31 5D 20 3D 20 4E 55 4C 4C g; str[1] = NULL
Size : 512 (Real : 512)
000000: 20 37 37 31 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 771..#define NO
000010: 43 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 CCARGC /* no ar
000020: 67 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 g count passing
000030: 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 */..#include std
000040: 69 6F 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 20 63 io.h..#include c
000050: 6C 69 62 2E 64 65 66 0D 0A 2F 2A 0D 0A 2A 2A 20 lib.def../*..**
000060: 4F 70 65 6E 20 66 69 6C 65 20 69 6E 64 69 63 61 Open file indica
000070: 74 65 64 20 62 79 20 66 6E 2E 0D 0A 2A 2A 20 45 ted by fn...** E
000080: 6E 74 72 79 3A 20 66 6E 20 20 20 3D 20 4E 75 6C ntry: fn = Nul
000090: 6C 2D 74 65 72 6D 69 6E 61 74 65 64 20 43 50 2F l-terminated CP/
0000A0: 4D 20 66 69 6C 65 20 6E 61 6D 65 2E 0D 0A 2A 2A M file name...**
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
0000C0: 61 79 20 62 65 20 70 72 65 66 69 78 65 64 20 62 ay be prefixed b
0000D0: 79 20 6C 65 74 74 65 72 20 6F 66 20 64 69 72 76 y letter of dirv
0000E0: 65 2E 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 20 e...**
0000F0: 20 20 20 20 20 4D 61 79 20 62 65 20 6A 75 73 74 May be just
000100: 20 43 4F 4E 3A 2C 20 52 44 52 3A 2C 20 50 55 4E CON:, RDR:, PUN
000110: 3A 2C 20 6F 72 20 4C 53 54 3A 2E 0D 0A 2A 2A 20 :, or LST:...**
000120: 20 20 20 20 20 20 20 6D 6F 64 65 20 3D 20 22 61 mode = "a
000130: 22 20 20 2D 20 61 70 70 65 6E 64 0D 0A 2A 2A 20 " - append..**
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 "r
000150: 22 20 20 2D 20 72 65 61 64 0D 0A 2A 2A 20 20 20 " - read..**
000160: 20 20 20 20 20 20 20 20 20 20 20 20 22 77 22 20 "w"
000170: 20 2D 20 77 72 69 74 65 0D 0A 2A 2A 20 20 20 20 - write..**
000180: 20 20 20 20 20 20 20 20 20 20 20 22 61 2B 22 20 "a+"
000190: 2D 20 61 70 70 65 6E 64 20 75 70 64 61 74 65 0D - append update.
0001A0: 0A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 .**
0001B0: 20 20 22 72 2B 22 20 2D 20 72 65 61 64 20 20 20 "r+" - read
0001C0: 75 70 64 61 74 65 0D 0A 2A 2A 20 20 20 20 20 20 update..**
0001D0: 20 20 20 20 20 20 20 20 20 22 77 2B 22 20 2D 20 "w+" -
0001E0: 77 72 69 74 65 20 20 75 70 64 61 74 65 0D 0A 2A write update..*
0001F0: 2A 20 52 65 74 75 72 6E 73 20 61 20 66 69 6C 65 * Returns a file
Size : 512 (Real : 512)
000000: 3B 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 ; break;..
000010: 63 61 73 65 20 27 73 27 3A 20 73 70 74 72 20 3D case 's': sptr =
000020: 20 61 72 67 3B 20 20 20 20 20 20 20 20 62 72 65 arg; bre
000030: 61 6B 3B 0D 0A 20 20 20 20 20 20 63 61 73 65 20 ak;.. case
000040: 27 64 27 3A 20 69 74 6F 61 28 61 72 67 2C 73 74 'd': itoa(arg,st
000050: 72 29 3B 20 20 20 20 20 62 72 65 61 6B 3B 0D 0A r); break;..
000060: 20 20 20 20 20 20 63 61 73 65 20 27 62 27 3A 20 case 'b':
000070: 69 74 6F 61 62 28 61 72 67 2C 73 74 72 2C 32 29 itoab(arg,str,2)
000080: 3B 20 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 ; break;..
000090: 20 63 61 73 65 20 27 6F 27 3A 20 69 74 6F 61 62 case 'o': itoab
0000A0: 28 61 72 67 2C 73 74 72 2C 38 29 3B 20 20 62 72 (arg,str,8); br
0000B0: 65 61 6B 3B 0D 0A 20 20 20 20 20 20 63 61 73 65 eak;.. case
0000C0: 20 27 75 27 3A 20 69 74 6F 61 62 28 61 72 67 2C 'u': itoab(arg,
0000D0: 73 74 72 2C 31 30 29 3B 20 62 72 65 61 6B 3B 0D str,10); break;.
0000E0: 0A 20 20 20 20 20 20 63 61 73 65 20 27 78 27 3A . case 'x':
0000F0: 20 69 74 6F 61 62 28 61 72 67 2C 73 74 72 2C 31 itoab(arg,str,1
000100: 36 29 3B 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 6); break;..
000110: 20 20 64 65 66 61 75 6C 74 3A 20 20 72 65 74 75 default: retu
000120: 72 6E 20 28 63 63 29 3B 0D 0A 20 20 20 20 20 20 rn (cc);..
000130: 7D 0D 0A 20 20 20 20 6C 65 6E 20 3D 20 73 74 72 }.. len = str
000140: 6C 65 6E 28 73 70 74 72 29 3B 0D 0A 20 20 20 20 len(sptr);..
000150: 69 66 28 6D 61 78 63 68 72 20 26 26 20 6D 61 78 if(maxchr && max
000160: 63 68 72 3C 6C 65 6E 29 20 6C 65 6E 20 3D 20 6D chr<len) len = m
000170: 61 78 63 68 72 3B 0D 0A 20 20 20 20 69 66 28 77 axchr;.. if(w
000180: 69 64 74 68 3E 6C 65 6E 29 20 77 69 64 74 68 20 idth>len) width
000190: 3D 20 77 69 64 74 68 20 2D 20 6C 65 6E 3B 20 65 = width - len; e
0001A0: 6C 73 65 20 77 69 64 74 68 20 3D 20 30 3B 20 0D lse width = 0; .
0001B0: 0A 20 20 20 20 69 66 28 21 6C 65 66 74 29 20 77 . if(!left) w
0001C0: 68 69 6C 65 28 77 69 64 74 68 2D 2D 29 20 7B 66 hile(width--) {f
0001D0: 70 75 74 63 28 70 61 64 2C 66 64 29 3B 20 2B 2B putc(pad,fd); ++
0001E0: 63 63 3B 7D 0D 0A 20 20 20 20 77 68 69 6C 65 28 cc;}.. while(
0001F0: 6C 65 6E 2D 2D 29 20 7B 66 70 75 74 63 28 2A 73 len--) {fputc(*s
Size : 512 (Real : 512)
000000: 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F fine NOCCARGC /
000010: 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F * no argument co
000020: 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A unt passing */..
000030: 65 78 74 65 72 6E 20 63 68 61 72 20 2A 55 6D 65 extern char *Ume
000040: 6D 70 74 72 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 66 72 mptr;../*..** fr
000050: 65 65 28 70 74 72 29 20 2D 20 46 72 65 65 20 70 ee(ptr) - Free p
000060: 72 65 76 69 6F 75 73 6C 79 20 61 6C 6C 6F 63 61 reviously alloca
000070: 74 65 64 20 6D 65 6D 6F 72 79 20 62 6C 6F 63 6B ted memory block
000080: 2E 0D 0A 2A 2A 20 4D 65 6D 6F 72 79 20 6D 75 73 ...** Memory mus
000090: 74 20 62 65 20 66 72 65 65 64 20 69 6E 20 74 68 t be freed in th
0000A0: 65 20 72 65 76 65 72 73 65 20 6F 72 64 65 72 20 e reverse order
0000B0: 66 72 6F 6D 20 77 68 69 63 68 0D 0A 2A 2A 20 69 from which..** i
0000C0: 74 20 77 61 73 20 61 6C 6C 6F 63 61 74 65 64 2E t was allocated.
0000D0: 0D 0A 2A 2A 20 70 74 72 20 20 20 20 3D 20 56 61 ..** ptr = Va
0000E0: 6C 75 65 20 72 65 74 75 72 6E 65 64 20 62 79 20 lue returned by
0000F0: 63 61 6C 6C 6F 63 28 29 20 6F 72 20 6D 61 6C 6C calloc() or mall
000100: 6F 63 28 29 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E oc()...** Return
000110: 73 20 70 74 72 20 69 66 20 73 75 63 63 65 73 73 s ptr if success
000120: 66 75 6C 20 6F 72 20 4E 55 4C 4C 20 6F 74 68 65 ful or NULL othe
000130: 72 77 69 73 65 2E 0D 0A 2A 2F 0D 0A 66 72 65 65 rwise...*/..free
000140: 28 70 74 72 29 20 63 68 61 72 20 2A 70 74 72 3B (ptr) char *ptr;
000150: 20 7B 0D 0A 20 20 20 72 65 74 75 72 6E 20 28 55 {.. return (U
000160: 6D 65 6D 70 74 72 20 3D 20 70 74 72 29 3B 0D 0A memptr = ptr);..
000170: 20 20 20 7D 0D 0A 23 61 73 6D 0D 0A 63 66 72 65 }..#asm..cfre
000180: 65 20 20 65 71 75 20 20 20 20 66 72 65 65 0D 0A e equ free..
000190: 20 20 20 20 20 20 20 65 6E 74 72 79 20 20 63 66 entry cf
0001A0: 72 65 65 0D 0A 23 65 6E 64 61 73 6D 0D 0A 3E 3E ree..#endasm..>>
0001B0: 3E 20 46 52 45 4F 50 45 4E 2E 43 20 37 32 39 0D > FREOPEN.C 729.
0001C0: 0A 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 .#define NOCCARG
0001D0: 43 20 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E C /* no argumen
0001E0: 74 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 t count passing
0001F0: 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 */..#include std
Size : 512 (Real : 512)
000000: 70 74 72 2B 2B 2C 66 64 29 3B 20 2B 2B 63 63 3B ptr++,fd); ++cc;
000010: 20 7D 0D 0A 20 20 20 20 69 66 28 6C 65 66 74 29 }.. if(left)
000020: 20 77 68 69 6C 65 28 77 69 64 74 68 2D 2D 29 20 while(width--)
000030: 7B 66 70 75 74 63 28 70 61 64 2C 66 64 29 3B 20 {fputc(pad,fd);
000040: 2B 2B 63 63 3B 7D 20 20 0D 0A 20 20 20 20 7D 0D ++cc;} .. }.
000050: 0A 20 20 72 65 74 75 72 6E 28 63 63 29 3B 0D 0A . return(cc);..
000060: 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 46 50 55 54 43 }....>>> FPUTC
000070: 2E 43 20 35 37 34 0D 0A 23 64 65 66 69 6E 65 20 .C 574..#define
000080: 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 NOCCARGC /* no
000090: 61 72 67 20 63 6F 75 6E 74 20 70 61 73 73 69 6E arg count passin
0000A0: 67 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 g */..#include s
0000B0: 74 64 69 6F 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 tdio.h..#include
0000C0: 20 63 6C 69 62 2E 64 65 66 0D 0A 65 78 74 65 72 clib.def..exter
0000D0: 6E 20 69 6E 74 20 55 73 74 61 74 75 73 5B 5D 3B n int Ustatus[];
0000E0: 0D 0A 2F 2A 0D 0A 2A 2A 20 43 68 61 72 61 63 74 ../*..** Charact
0000F0: 65 72 2D 73 74 72 65 61 6D 20 6F 75 74 70 75 74 er-stream output
000100: 20 6F 66 20 61 20 63 68 61 72 61 63 74 65 72 20 of a character
000110: 74 6F 20 66 64 2E 0D 0A 2A 2A 20 45 6E 74 72 79 to fd...** Entry
000120: 3A 20 63 68 20 3D 20 43 68 61 72 61 63 74 65 72 : ch = Character
000130: 20 74 6F 20 77 72 69 74 65 2E 0D 0A 2A 2A 20 20 to write...**
000140: 20 20 20 20 20 20 66 64 20 3D 20 46 69 6C 65 20 fd = File
000150: 64 65 73 63 72 69 70 74 6F 72 20 6F 66 20 70 65 descriptor of pe
000160: 72 69 6E 65 6E 74 20 66 69 6C 65 2E 0D 0A 2A 2A rinent file...**
000170: 20 52 65 74 75 72 6E 73 20 63 68 61 72 61 63 74 Returns charact
000180: 65 72 20 77 72 69 74 74 65 6E 20 6F 6E 20 73 75 er written on su
000190: 63 63 65 73 73 2C 20 65 6C 73 65 20 45 4F 46 2E ccess, else EOF.
0001A0: 0D 0A 2A 2F 0D 0A 66 70 75 74 63 28 63 68 2C 20 ..*/..fputc(ch,
0001B0: 66 64 29 20 69 6E 74 20 63 68 2C 20 66 64 3B 20 fd) int ch, fd;
0001C0: 7B 0D 0A 20 20 73 77 69 74 63 68 28 63 68 29 20 {.. switch(ch)
0001D0: 7B 0D 0A 20 20 20 20 63 61 73 65 20 45 4F 46 3A {.. case EOF:
0001E0: 20 20 55 77 72 69 74 65 28 43 50 4D 45 4F 46 2C Uwrite(CPMEOF,
0001F0: 20 66 64 29 3B 20 62 72 65 61 6B 3B 0D 0A 20 20 fd); break;..
Size : 512 (Real : 512)
000000: 69 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A 20 43 6C 6F io.h../*..** Clo
000010: 73 65 20 70 72 65 76 69 6F 75 73 6C 79 20 6F 70 se previously op
000020: 65 6E 65 64 20 66 64 20 61 6E 64 20 72 65 6F 70 ened fd and reop
000030: 65 6E 20 69 74 2E 20 0D 0A 2A 2A 20 45 6E 74 72 en it. ..** Entr
000040: 79 3A 20 66 6E 20 20 20 3D 20 4E 75 6C 6C 2D 74 y: fn = Null-t
000050: 65 72 6D 69 6E 61 74 65 64 20 43 50 2F 4D 20 66 erminated CP/M f
000060: 69 6C 65 20 6E 61 6D 65 2E 0D 0A 2A 2A 20 20 20 ile name...**
000070: 20 20 20 20 20 20 20 20 20 20 20 20 4D 61 79 20 May
000080: 62 65 20 70 72 65 66 69 78 65 64 20 62 79 20 6C be prefixed by l
000090: 65 74 74 65 72 20 6F 66 20 64 72 69 76 65 2E 0D etter of drive..
0000A0: 0A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 .**
0000B0: 20 20 4D 61 79 20 62 65 20 6A 75 73 74 20 43 4F May be just CO
0000C0: 4E 3A 2C 20 52 44 52 3A 2C 20 50 55 4E 3A 2C 20 N:, RDR:, PUN:,
0000D0: 6F 72 20 4C 53 54 3A 2E 0D 0A 2A 2A 20 20 20 20 or LST:...**
0000E0: 20 20 20 20 6D 6F 64 65 20 3D 20 22 61 22 20 20 mode = "a"
0000F0: 2D 20 61 70 70 65 6E 64 0D 0A 2A 2A 20 20 20 20 - append..**
000100: 20 20 20 20 20 20 20 20 20 20 20 22 72 22 20 20 "r"
000110: 2D 20 72 65 61 64 0D 0A 2A 2A 20 20 20 20 20 20 - read..**
000120: 20 20 20 20 20 20 20 20 20 22 77 22 20 20 2D 20 "w" -
000130: 77 72 69 74 65 0D 0A 2A 2A 20 20 20 20 20 20 20 write..**
000140: 20 20 20 20 20 20 20 20 22 61 2B 22 20 2D 20 61 "a+" - a
000150: 70 70 65 6E 64 20 75 70 64 61 74 65 0D 0A 2A 2A ppend update..**
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
000170: 72 2B 22 20 2D 20 72 65 61 64 20 20 20 75 70 64 r+" - read upd
000180: 61 74 65 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 ate..**
000190: 20 20 20 20 20 20 22 77 2B 22 20 2D 20 77 72 69 "w+" - wri
0001A0: 74 65 20 20 75 70 64 61 74 65 0D 0A 2A 2A 20 20 te update..**
0001B0: 20 20 20 20 20 20 66 64 20 20 20 3D 20 46 69 6C fd = Fil
0001C0: 65 20 64 65 73 63 72 69 70 74 6F 72 20 6F 66 20 e descriptor of
0001D0: 70 65 72 74 69 6E 65 6E 74 20 66 69 6C 65 2E 0D pertinent file..
0001E0: 0A 2A 2A 20 52 65 74 75 72 6E 73 20 74 68 65 20 .** Returns the
0001F0: 6F 72 69 67 69 6E 61 6C 20 66 64 20 6F 6E 20 73 original fd on s
Size : 512 (Real : 512)
000000: 20 20 63 61 73 65 20 27 5C 6E 27 3A 20 55 77 72 case '\n': Uwr
000010: 69 74 65 28 43 52 2C 20 66 64 29 3B 20 55 77 72 ite(CR, fd); Uwr
000020: 69 74 65 28 4C 46 2C 20 66 64 29 3B 20 62 72 65 ite(LF, fd); bre
000030: 61 6B 3B 0D 0A 20 20 20 20 64 65 66 61 75 6C 74 ak;.. default
000040: 3A 20 20 20 55 77 72 69 74 65 28 63 68 2C 20 66 : Uwrite(ch, f
000050: 64 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 66 d);.. }.. if
000060: 28 55 73 74 61 74 75 73 5B 66 64 5D 20 26 20 45 (Ustatus[fd] & E
000070: 52 52 42 49 54 29 20 72 65 74 75 72 6E 20 28 45 RRBIT) return (E
000080: 4F 46 29 3B 0D 0A 20 20 72 65 74 75 72 6E 20 28 OF);.. return (
000090: 63 68 29 3B 0D 0A 20 20 7D 0D 0A 23 61 73 6D 0D ch);.. }..#asm.
0000A0: 0A 70 75 74 63 20 65 71 75 20 20 20 66 70 75 74 .putc equ fput
0000B0: 63 0D 0A 20 20 20 20 20 65 6E 74 72 79 20 70 75 c.. entry pu
0000C0: 74 63 0D 0A 23 65 6E 64 61 73 6D 0D 0A 3E 3E 3E tc..#endasm..>>>
0000D0: 20 46 50 55 54 53 2E 43 20 33 30 36 0D 0A 23 64 FPUTS.C 306..#d
0000E0: 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 efine NOCCARGC
0000F0: 2F 2A 20 6E 6F 20 61 72 67 20 63 6F 75 6E 74 20 /* no arg count
000100: 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 passing */..#inc
000110: 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A 23 69 lude stdio.h..#i
000120: 6E 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 66 0D nclude clib.def.
000130: 0A 2F 2A 0D 0A 2A 2A 20 57 72 69 74 65 20 61 20 ./*..** Write a
000140: 73 74 72 69 6E 67 20 74 6F 20 66 64 2E 20 0D 0A string to fd. ..
000150: 2A 2A 20 45 6E 74 72 79 3A 20 73 74 72 69 6E 67 ** Entry: string
000160: 20 3D 20 50 6F 69 6E 74 65 72 20 74 6F 20 6E 75 = Pointer to nu
000170: 6C 6C 2D 74 65 72 6D 69 6E 61 74 65 64 20 73 74 ll-terminated st
000180: 72 69 6E 67 2E 0D 0A 2A 2A 20 20 20 20 20 20 20 ring...**
000190: 20 66 64 20 20 20 20 20 3D 20 46 69 6C 65 20 64 fd = File d
0001A0: 65 73 63 72 69 70 74 6F 72 20 6F 66 20 70 65 72 escriptor of per
0001B0: 74 69 6E 65 6E 74 20 66 69 6C 65 2E 0D 0A 2A 2F tinent file...*/
0001C0: 0D 0A 66 70 75 74 73 28 73 74 72 69 6E 67 2C 66 ..fputs(string,f
0001D0: 64 29 20 63 68 61 72 20 2A 73 74 72 69 6E 67 3B d) char *string;
0001E0: 20 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 77 68 int fd; {.. wh
0001F0: 69 6C 65 28 2A 73 74 72 69 6E 67 29 20 66 70 75 ile(*string) fpu
Size : 512 (Real : 512)
000000: 75 63 63 65 73 73 2C 20 65 6C 73 65 20 4E 55 4C uccess, else NUL
000010: 4C 2E 0D 0A 2A 2F 0D 0A 66 72 65 6F 70 65 6E 28 L...*/..freopen(
000020: 66 6E 2C 20 6D 6F 64 65 2C 20 66 64 29 20 63 68 fn, mode, fd) ch
000030: 61 72 20 2A 66 6E 2C 20 2A 6D 6F 64 65 3B 20 69 ar *fn, *mode; i
000040: 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 69 66 28 66 nt fd; {.. if(f
000050: 63 6C 6F 73 65 28 66 64 29 29 20 72 65 74 75 72 close(fd)) retur
000060: 6E 20 28 4E 55 4C 4C 29 3B 0D 0A 20 20 69 66 28 n (NULL);.. if(
000070: 55 6F 70 65 6E 28 66 6E 2C 20 6D 6F 64 65 2C 20 Uopen(fn, mode,
000080: 66 64 29 3D 3D 45 52 52 29 20 72 65 74 75 72 6E fd)==ERR) return
000090: 20 28 4E 55 4C 4C 29 3B 0D 0A 20 20 72 65 74 75 (NULL);.. retu
0000A0: 72 6E 20 28 66 64 29 3B 0D 0A 20 20 7D 0D 0A 3E rn (fd);.. }..>
0000B0: 3E 3E 20 46 53 43 41 4E 46 2E 43 20 32 36 38 35 >> FSCANF.C 2685
0000C0: 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 ..#define NOCCAR
0000D0: 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 GC /* no argume
0000E0: 6E 74 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 nt count passing
0000F0: 20 2A 2F 0D 0A 2F 2A 0D 0A 2A 2A 20 59 65 73 2C */../*..** Yes,
000100: 20 74 68 61 74 20 69 73 20 63 6F 72 72 65 63 74 that is correct
000110: 2E 20 20 41 6C 74 68 6F 75 67 68 20 74 68 65 73 . Although thes
000120: 65 20 66 75 6E 63 74 69 6F 6E 73 20 75 73 65 20 e functions use
000130: 61 6E 0D 0A 2A 2A 20 61 72 67 75 6D 65 6E 74 20 an..** argument
000140: 63 6F 75 6E 74 2C 20 74 68 65 79 20 64 6F 20 6E count, they do n
000150: 6F 74 20 63 61 6C 6C 20 66 75 6E 63 74 69 6F 6E ot call function
000160: 73 20 77 68 69 63 68 20 6E 65 65 64 20 6F 6E 65 s which need one
000170: 2E 0D 0A 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 ...*/..#include
000180: 73 74 64 69 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A 20 stdio.h../*..**
000190: 66 73 63 61 6E 66 28 66 64 2C 20 63 74 6C 73 74 fscanf(fd, ctlst
0001A0: 72 69 6E 67 2C 20 61 72 67 2C 20 61 72 67 2C 20 ring, arg, arg,
0001B0: 2E 2E 2E 29 20 2D 20 46 6F 72 6D 61 74 74 65 64 ...) - Formatted
0001C0: 20 72 65 61 64 2E 0D 0A 2A 2A 20 4F 70 65 72 61 read...** Opera
0001D0: 74 65 73 20 61 73 20 64 65 73 63 72 69 62 65 64 tes as described
0001E0: 20 62 79 20 4B 65 72 6E 69 67 68 61 6E 20 26 20 by Kernighan &
0001F0: 52 69 74 63 68 69 65 2E 0D 0A 2A 2A 20 62 2C 20 Ritchie...** b,
Size : 512 (Real : 512)
000000: 74 63 28 2A 73 74 72 69 6E 67 2B 2B 2C 20 66 64 tc(*string++, fd
000010: 29 20 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 ) ;.. }....>>>
000020: 46 52 45 41 44 2E 43 20 39 32 36 0D 0A 23 64 65 FREAD.C 926..#de
000030: 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F fine NOCCARGC /
000040: 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F * no argument co
000050: 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A unt passing */..
000060: 23 69 6E 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 #include clib.de
000070: 66 0D 0A 65 78 74 65 72 6E 20 69 6E 74 20 55 73 f..extern int Us
000080: 74 61 74 75 73 5B 5D 3B 0D 0A 2F 2A 0D 0A 2A 2A tatus[];../*..**
000090: 20 49 74 65 6D 2D 73 74 72 65 61 6D 20 72 65 61 Item-stream rea
0000A0: 64 20 66 72 6F 6D 20 66 64 2E 0D 0A 2A 2A 20 45 d from fd...** E
0000B0: 6E 74 72 79 3A 20 62 75 66 20 3D 20 61 64 64 72 ntry: buf = addr
0000C0: 65 73 73 20 6F 66 20 74 61 72 67 65 74 20 62 75 ess of target bu
0000D0: 66 66 65 72 0D 0A 2A 2A 20 20 20 20 20 20 20 20 ffer..**
0000E0: 20 73 7A 20 3D 20 73 69 7A 65 20 6F 66 20 69 74 sz = size of it
0000F0: 65 6D 73 20 69 6E 20 62 79 74 65 73 0D 0A 2A 2A ems in bytes..**
000100: 20 20 20 20 20 20 20 20 20 20 6E 20 3D 20 6E 75 n = nu
000110: 6D 62 65 72 20 6F 66 20 69 74 65 6D 73 20 74 6F mber of items to
000120: 20 72 65 61 64 0D 0A 2A 2A 20 20 20 20 20 20 20 read..**
000130: 20 20 66 64 20 3D 20 66 69 6C 65 20 64 65 73 63 fd = file desc
000140: 72 69 70 74 6F 72 0D 0A 2A 2A 20 52 65 74 75 72 riptor..** Retur
000150: 6E 73 20 61 20 63 6F 75 6E 74 20 6F 66 20 74 68 ns a count of th
000160: 65 20 69 74 65 6D 73 20 61 63 74 75 61 6C 6C 79 e items actually
000170: 20 72 65 61 64 2E 0D 0A 2A 2A 20 55 73 65 20 66 read...** Use f
000180: 65 6F 66 28 29 20 61 6E 64 20 66 65 72 72 6F 72 eof() and ferror
000190: 28 29 20 74 6F 20 64 65 74 65 72 6D 69 6E 65 20 () to determine
0001A0: 66 69 6C 65 20 73 74 61 74 75 73 2E 0D 0A 2A 2F file status...*/
0001B0: 0D 0A 66 72 65 61 64 28 62 75 66 2C 20 73 7A 2C ..fread(buf, sz,
0001C0: 20 6E 2C 20 66 64 29 20 63 68 61 72 20 2A 62 75 n, fd) char *bu
0001D0: 66 3B 20 69 6E 74 20 73 7A 2C 20 6E 2C 20 66 64 f; int sz, n, fd
0001E0: 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E 20 28 72 ; {.. return (r
0001F0: 65 61 64 28 66 64 2C 20 62 75 66 2C 20 6E 2A 73 ead(fd, buf, n*s
Size : 512 (Real : 512)
000000: 63 2C 20 64 2C 20 6F 2C 20 73 2C 20 75 2C 20 61 c, d, o, s, u, a
000010: 6E 64 20 78 20 73 70 65 63 69 66 69 63 61 74 69 nd x specificati
000020: 6F 6E 73 20 61 72 65 20 73 75 70 70 6F 72 74 65 ons are supporte
000030: 64 2E 0D 0A 2A 2A 20 4E 6F 74 65 3A 20 62 20 28 d...** Note: b (
000040: 62 69 6E 61 72 79 29 20 69 73 20 61 20 6E 6F 6E binary) is a non
000050: 2D 73 74 61 6E 64 61 72 64 20 65 78 74 65 6E 73 -standard extens
000060: 69 6F 6E 2E 0D 0A 2A 2F 0D 0A 66 73 63 61 6E 66 ion...*/..fscanf
000070: 28 61 72 67 63 29 20 69 6E 74 20 61 72 67 63 3B (argc) int argc;
000080: 20 7B 0D 0A 20 20 69 6E 74 20 2A 6E 78 74 61 72 {.. int *nxtar
000090: 67 3B 0D 0A 20 20 6E 78 74 61 72 67 20 3D 20 43 g;.. nxtarg = C
0000A0: 43 41 52 47 43 28 29 20 2B 20 26 61 72 67 63 3B CARGC() + &argc;
0000B0: 0D 0A 20 20 72 65 74 75 72 6E 20 28 55 73 63 61 .. return (Usca
0000C0: 6E 28 2A 28 2D 2D 6E 78 74 61 72 67 29 2C 20 2D n(*(--nxtarg), -
0000D0: 2D 6E 78 74 61 72 67 29 29 3B 0D 0A 20 20 7D 0D -nxtarg));.. }.
0000E0: 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 73 63 61 6E 66 28 .../*..** scanf(
0000F0: 63 74 6C 73 74 72 69 6E 67 2C 20 61 72 67 2C 20 ctlstring, arg,
000100: 61 72 67 2C 20 2E 2E 2E 29 20 2D 20 46 6F 72 6D arg, ...) - Form
000110: 61 74 74 65 64 20 72 65 61 64 2E 0D 0A 2A 2A 20 atted read...**
000120: 4F 70 65 72 61 74 65 73 20 61 73 20 64 65 73 63 Operates as desc
000130: 72 69 62 65 64 20 62 79 20 4B 65 72 6E 69 67 68 ribed by Kernigh
000140: 61 6E 20 26 20 52 69 74 63 68 69 65 2E 0D 0A 2A an & Ritchie...*
000150: 2A 20 62 2C 20 63 2C 20 64 2C 20 6F 2C 20 73 2C * b, c, d, o, s,
000160: 20 75 2C 20 61 6E 64 20 78 20 73 70 65 63 69 66 u, and x specif
000170: 69 63 61 74 69 6F 6E 73 20 61 72 65 20 73 75 70 ications are sup
000180: 70 6F 72 74 65 64 2E 0D 0A 2A 2A 20 4E 6F 74 65 ported...** Note
000190: 3A 20 62 20 28 62 69 6E 61 72 79 29 20 69 73 20 : b (binary) is
0001A0: 61 20 6E 6F 6E 2D 73 74 61 6E 64 61 72 64 20 65 a non-standard e
0001B0: 78 74 65 6E 73 69 6F 6E 2E 0D 0A 2A 2F 0D 0A 73 xtension...*/..s
0001C0: 63 61 6E 66 28 61 72 67 63 29 20 69 6E 74 20 61 canf(argc) int a
0001D0: 72 67 63 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E rgc; {.. return
0001E0: 20 28 55 73 63 61 6E 28 73 74 64 69 6E 2C 20 43 (Uscan(stdin, C
0001F0: 43 41 52 47 43 28 29 20 2B 20 26 61 72 67 63 20 CARGC() + &argc
Size : 512 (Real : 512)
000000: 7A 29 2F 73 7A 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A z)/sz);.. }....
000010: 2F 2A 0D 0A 2A 2A 20 42 69 6E 61 72 79 2D 73 74 /*..** Binary-st
000020: 72 65 61 6D 20 72 65 61 64 20 66 72 6F 6D 20 66 ream read from f
000030: 64 2E 0D 0A 2A 2A 20 45 6E 74 72 79 3A 20 20 66 d...** Entry: f
000040: 64 20 3D 20 66 69 6C 65 20 64 65 73 63 72 69 70 d = file descrip
000050: 74 6F 72 0D 0A 2A 2A 20 20 20 20 20 20 20 20 62 tor..** b
000060: 75 66 20 3D 20 61 64 64 72 65 73 73 20 6F 66 20 uf = address of
000070: 74 61 72 67 65 74 20 62 75 66 66 65 72 0D 0A 2A target buffer..*
000080: 2A 20 20 20 20 20 20 20 20 20 20 6E 20 3D 20 6E * n = n
000090: 75 6D 62 65 72 20 6F 66 20 62 79 74 65 73 20 74 umber of bytes t
0000A0: 6F 20 72 65 61 64 0D 0A 2A 2A 20 52 65 74 75 72 o read..** Retur
0000B0: 6E 73 20 61 20 63 6F 75 6E 74 20 6F 66 20 74 68 ns a count of th
0000C0: 65 20 62 79 74 65 73 20 61 63 74 75 61 6C 6C 79 e bytes actually
0000D0: 20 72 65 61 64 2E 0D 0A 2A 2A 20 55 73 65 20 66 read...** Use f
0000E0: 65 6F 66 28 29 20 61 6E 64 20 66 65 72 72 6F 72 eof() and ferror
0000F0: 28 29 20 74 6F 20 64 65 74 65 72 6D 69 6E 65 20 () to determine
000100: 66 69 6C 65 20 73 74 61 74 75 73 2E 0D 0A 2A 2F file status...*/
000110: 0D 0A 72 65 61 64 28 66 64 2C 20 62 75 66 2C 20 ..read(fd, buf,
000120: 6E 29 20 69 6E 74 20 66 64 2C 20 6E 3B 20 63 68 n) int fd, n; ch
000130: 61 72 20 2A 62 75 66 3B 20 7B 0D 0A 20 20 63 68 ar *buf; {.. ch
000140: 61 72 20 2A 63 6E 74 3B 20 20 2F 2A 20 66 61 6B ar *cnt; /* fak
000150: 65 20 75 6E 73 69 67 6E 65 64 20 2A 2F 0D 0A 20 e unsigned */..
000160: 20 63 6E 74 20 3D 20 30 3B 0D 0A 20 20 77 68 69 cnt = 0;.. whi
000170: 6C 65 28 6E 2D 2D 29 20 7B 0D 0A 20 20 20 20 2A le(n--) {.. *
000180: 62 75 66 2B 2B 20 3D 20 55 72 65 61 64 28 66 64 buf++ = Uread(fd
000190: 29 3B 0D 0A 20 20 20 20 69 66 28 55 73 74 61 74 );.. if(Ustat
0001A0: 75 73 5B 66 64 5D 20 26 20 28 45 52 52 42 49 54 us[fd] & (ERRBIT
0001B0: 20 7C 20 45 4F 46 42 49 54 29 29 20 62 72 65 61 | EOFBIT)) brea
0001C0: 6B 3B 0D 0A 20 20 20 20 2B 2B 63 6E 74 3B 0D 0A k;.. ++cnt;..
0001D0: 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 }.. return
0001E0: 28 63 6E 74 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E (cnt);.. }..>>>
0001F0: 20 46 52 45 45 2E 43 20 34 31 37 0D 0A 23 64 65 FREE.C 417..#de
Size : 512 (Real : 512)
000000: 2D 20 31 29 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 2F - 1));.. }..../
000010: 2A 0D 0A 2A 2A 20 55 73 63 61 6E 28 66 64 2C 20 *..** Uscan(fd,
000020: 63 74 6C 73 74 72 69 6E 67 2C 20 61 72 67 2C 20 ctlstring, arg,
000030: 61 72 67 2C 20 2E 2E 2E 29 20 2D 20 46 6F 72 6D arg, ...) - Form
000040: 61 74 74 65 64 20 72 65 61 64 2E 0D 0A 2A 2A 20 atted read...**
000050: 43 61 6C 6C 65 64 20 62 79 20 66 73 63 61 6E 66 Called by fscanf
000060: 28 29 20 61 6E 64 20 73 63 61 6E 66 28 29 2E 0D () and scanf()..
000070: 0A 2A 2F 0D 0A 55 73 63 61 6E 28 66 64 2C 6E 78 .*/..Uscan(fd,nx
000080: 74 61 72 67 29 20 69 6E 74 20 66 64 2C 20 2A 6E targ) int fd, *n
000090: 78 74 61 72 67 3B 20 7B 0D 0A 20 20 63 68 61 72 xtarg; {.. char
0000A0: 20 2A 63 61 72 67 2C 20 2A 63 74 6C 2C 20 2A 75 *carg, *ctl, *u
0000B0: 6E 73 69 67 6E 65 64 3B 0D 0A 20 20 69 6E 74 20 nsigned;.. int
0000C0: 20 2A 6E 61 72 67 2C 20 77 61 73 74 2C 20 61 63 *narg, wast, ac
0000D0: 2C 20 77 69 64 74 68 2C 20 63 68 2C 20 63 6E 76 , width, ch, cnv
0000E0: 2C 20 62 61 73 65 2C 20 6F 76 66 6C 2C 20 73 69 , base, ovfl, si
0000F0: 67 6E 3B 0D 0A 20 20 61 63 20 3D 20 30 3B 0D 0A gn;.. ac = 0;..
000100: 20 20 63 74 6C 20 3D 20 2A 6E 78 74 61 72 67 2D ctl = *nxtarg-
000110: 2D 3B 0D 0A 20 20 77 68 69 6C 65 28 2A 63 74 6C -;.. while(*ctl
000120: 29 20 7B 0D 0A 20 20 20 20 69 66 28 69 73 73 70 ) {.. if(issp
000130: 61 63 65 28 2A 63 74 6C 29 29 20 7B 2B 2B 63 74 ace(*ctl)) {++ct
000140: 6C 3B 20 63 6F 6E 74 69 6E 75 65 3B 7D 0D 0A 20 l; continue;}..
000150: 20 20 20 69 66 28 2A 63 74 6C 2B 2B 20 21 3D 20 if(*ctl++ !=
000160: 27 25 27 29 20 63 6F 6E 74 69 6E 75 65 3B 0D 0A '%') continue;..
000170: 20 20 20 20 69 66 28 2A 63 74 6C 20 3D 3D 20 27 if(*ctl == '
000180: 2A 27 29 20 7B 6E 61 72 67 20 3D 20 63 61 72 67 *') {narg = carg
000190: 20 3D 20 26 77 61 73 74 3B 20 2B 2B 63 74 6C 3B = &wast; ++ctl;
0001A0: 7D 0D 0A 20 20 20 20 65 6C 73 65 20 20 20 20 20 }.. else
0001B0: 20 20 20 20 20 20 20 20 6E 61 72 67 20 3D 20 63 narg = c
0001C0: 61 72 67 20 3D 20 2A 6E 78 74 61 72 67 2D 2D 3B arg = *nxtarg--;
0001D0: 0D 0A 20 20 20 20 63 74 6C 20 2B 3D 20 75 74 6F .. ctl += uto
0001E0: 69 28 63 74 6C 2C 20 26 77 69 64 74 68 29 3B 0D i(ctl, &width);.
0001F0: 0A 20 20 20 20 69 66 28 21 77 69 64 74 68 29 20 . if(!width)
Size : 512 (Real : 512)
000000: 65 73 63 72 69 70 74 6F 72 0D 0A 2A 2A 20 20 20 escriptor..**
000010: 20 20 20 20 20 62 75 66 20 3D 20 61 64 64 72 65 buf = addre
000020: 73 73 20 6F 66 20 73 6F 75 72 63 65 20 62 75 66 ss of source buf
000030: 66 65 72 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 fer..**
000040: 20 6E 20 3D 20 6E 75 6D 62 65 72 20 6F 66 20 62 n = number of b
000050: 79 74 65 73 20 74 6F 20 77 72 69 74 65 0D 0A 2A ytes to write..*
000060: 2A 20 52 65 74 75 72 6E 73 20 61 20 63 6F 75 6E * Returns a coun
000070: 74 20 6F 66 20 74 68 65 20 62 79 74 65 73 20 61 t of the bytes a
000080: 63 74 75 61 6C 6C 79 20 77 72 69 74 74 65 6E 20 ctually written
000090: 6F 72 0D 0A 2A 2A 20 2D 31 20 69 66 20 61 6E 20 or..** -1 if an
0000A0: 65 72 72 6F 72 20 6F 63 63 75 72 72 65 64 2E 0D error occurred..
0000B0: 0A 2A 2A 20 4D 61 79 20 75 73 65 20 66 65 72 72 .** May use ferr
0000C0: 6F 72 28 29 2C 20 61 73 20 61 6C 77 61 79 73 2C or(), as always,
0000D0: 20 74 6F 20 64 65 74 65 63 74 20 65 72 72 6F 72 to detect error
0000E0: 73 2E 0D 0A 2A 2F 0D 0A 77 72 69 74 65 28 66 64 s...*/..write(fd
0000F0: 2C 20 62 75 66 2C 20 6E 29 20 69 6E 74 20 66 64 , buf, n) int fd
000100: 2C 20 6E 3B 20 63 68 61 72 20 2A 62 75 66 3B 20 , n; char *buf;
000110: 7B 0D 0A 20 20 63 68 61 72 20 2A 63 6E 74 3B 20 {.. char *cnt;
000120: 20 2F 2A 20 66 61 6B 65 20 75 6E 73 69 67 6E 65 /* fake unsigne
000130: 64 20 2A 2F 0D 0A 20 20 63 6E 74 20 3D 20 6E 3B d */.. cnt = n;
000140: 0D 0A 20 20 77 68 69 6C 65 28 63 6E 74 2D 2D 29 .. while(cnt--)
000150: 20 7B 0D 0A 20 20 20 20 55 77 72 69 74 65 28 2A {.. Uwrite(*
000160: 62 75 66 2B 2B 2C 20 66 64 29 3B 0D 0A 20 20 20 buf++, fd);..
000170: 20 69 66 28 55 73 74 61 74 75 73 5B 66 64 5D 20 if(Ustatus[fd]
000180: 26 20 45 52 52 42 49 54 29 20 72 65 74 75 72 6E & ERRBIT) return
000190: 20 28 2D 31 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 (-1);.. }..
0001A0: 20 72 65 74 75 72 6E 20 28 6E 29 3B 0D 0A 20 20 return (n);..
0001B0: 7D 0D 0A 3E 3E 3E 20 47 45 54 41 52 47 2E 43 20 }..>>> GETARG.C
0001C0: 36 36 39 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 669..#define NOC
0001D0: 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 CARGC /* no arg
0001E0: 75 6D 65 6E 74 20 63 6F 75 6E 74 20 70 61 73 73 ument count pass
0001F0: 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 ing */..#include
Size : 512 (Real : 512)
000000: 77 69 64 74 68 20 3D 20 33 32 37 36 37 3B 0D 0A width = 32767;..
000010: 20 20 20 20 69 66 28 21 28 63 6E 76 20 3D 20 2A if(!(cnv = *
000020: 63 74 6C 2B 2B 29 29 20 62 72 65 61 6B 3B 0D 0A ctl++)) break;..
000030: 20 20 20 20 77 68 69 6C 65 28 69 73 73 70 61 63 while(isspac
000040: 65 28 63 68 20 3D 20 66 67 65 74 63 28 66 64 29 e(ch = fgetc(fd)
000050: 29 29 20 3B 0D 0A 20 20 20 20 69 66 28 63 68 20 )) ;.. if(ch
000060: 3D 3D 20 45 4F 46 29 20 7B 69 66 28 61 63 29 20 == EOF) {if(ac)
000070: 62 72 65 61 6B 3B 20 65 6C 73 65 20 72 65 74 75 break; else retu
000080: 72 6E 28 45 4F 46 29 3B 7D 0D 0A 20 20 20 20 75 rn(EOF);}.. u
000090: 6E 67 65 74 63 28 63 68 2C 66 64 29 3B 0D 0A 20 ngetc(ch,fd);..
0000A0: 20 20 20 73 77 69 74 63 68 28 63 6E 76 29 20 7B switch(cnv) {
0000B0: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 27 63 27 .. case 'c'
0000C0: 3A 0D 0A 20 20 20 20 20 20 20 20 2A 63 61 72 67 :.. *carg
0000D0: 20 3D 20 66 67 65 74 63 28 66 64 29 3B 0D 0A 20 = fgetc(fd);..
0000E0: 20 20 20 20 20 20 20 62 72 65 61 6B 3B 0D 0A 20 break;..
0000F0: 20 20 20 20 20 63 61 73 65 20 27 73 27 3A 0D 0A case 's':..
000100: 20 20 20 20 20 20 20 20 77 68 69 6C 65 28 77 69 while(wi
000110: 64 74 68 2D 2D 29 20 7B 0D 0A 20 20 20 20 20 20 dth--) {..
000120: 20 20 20 20 69 66 28 28 2A 63 61 72 67 20 3D 20 if((*carg =
000130: 66 67 65 74 63 28 66 64 29 29 20 3D 3D 20 45 4F fgetc(fd)) == EO
000140: 46 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 F) break;..
000150: 20 20 20 20 20 69 66 28 69 73 73 70 61 63 65 28 if(isspace(
000160: 2A 63 61 72 67 29 29 20 62 72 65 61 6B 3B 0D 0A *carg)) break;..
000170: 20 20 20 20 20 20 20 20 20 20 69 66 28 63 61 72 if(car
000180: 67 20 21 3D 20 26 77 61 73 74 29 20 2B 2B 63 61 g != &wast) ++ca
000190: 72 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 7D rg;.. }
0001A0: 0D 0A 20 20 20 20 20 20 20 20 2A 63 61 72 67 20 .. *carg
0001B0: 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 62 72 = 0;.. br
0001C0: 65 61 6B 3B 0D 0A 20 20 20 20 20 20 64 65 66 61 eak;.. defa
0001D0: 75 6C 74 3A 0D 0A 20 20 20 20 20 20 20 20 73 77 ult:.. sw
0001E0: 69 74 63 68 28 63 6E 76 29 20 7B 0D 0A 20 20 20 itch(cnv) {..
0001F0: 20 20 20 20 20 20 20 63 61 73 65 20 27 62 27 3A case 'b':
Size : 512 (Real : 512)
000000: 20 73 74 64 69 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A stdio.h../*..**
000010: 20 47 65 74 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E Get command lin
000020: 65 20 61 72 67 75 6D 65 6E 74 2E 20 0D 0A 2A 2A e argument. ..**
000030: 20 45 6E 74 72 79 3A 20 6E 20 20 20 20 3D 20 4E Entry: n = N
000040: 75 6D 62 65 72 20 6F 66 20 74 68 65 20 61 72 67 umber of the arg
000050: 75 6D 65 6E 74 2E 0D 0A 2A 2A 20 20 20 20 20 20 ument...**
000060: 20 20 73 20 20 20 20 3D 20 44 65 73 74 69 6E 61 s = Destina
000070: 74 69 6F 6E 20 73 74 72 69 6E 67 20 70 6F 69 6E tion string poin
000080: 74 65 72 2E 0D 0A 2A 2A 20 20 20 20 20 20 20 20 ter...**
000090: 73 69 7A 65 20 3D 20 53 69 7A 65 20 6F 66 20 64 size = Size of d
0000A0: 65 73 74 69 6E 61 74 69 6F 6E 20 73 74 72 69 6E estination strin
0000B0: 67 2E 0D 0A 2A 2A 20 20 20 20 20 20 20 20 61 72 g...** ar
0000C0: 67 63 20 3D 20 41 72 67 75 6D 65 6E 74 20 63 6F gc = Argument co
0000D0: 75 6E 74 20 66 72 6F 6D 20 6D 61 69 6E 28 29 2E unt from main().
0000E0: 0D 0A 2A 2A 20 20 20 20 20 20 20 20 61 72 67 76 ..** argv
0000F0: 20 3D 20 41 72 67 75 6D 65 6E 74 20 76 65 63 74 = Argument vect
000100: 6F 72 28 73 29 20 66 72 6F 6D 20 6D 61 69 6E 28 or(s) from main(
000110: 29 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 6E )...** Returns n
000120: 75 6D 62 65 72 20 6F 66 20 63 68 61 72 61 63 74 umber of charact
000130: 65 72 73 20 6D 6F 76 65 64 20 6F 6E 20 73 75 63 ers moved on suc
000140: 63 65 73 73 2C 0D 0A 2A 2A 20 65 6C 73 65 20 45 cess,..** else E
000150: 4F 46 2E 0D 0A 2A 2F 0D 0A 67 65 74 61 72 67 28 OF...*/..getarg(
000160: 6E 2C 73 2C 73 69 7A 65 2C 61 72 67 63 2C 61 72 n,s,size,argc,ar
000170: 67 76 29 0D 0A 20 20 69 6E 74 20 6E 3B 20 63 68 gv).. int n; ch
000180: 61 72 20 2A 73 3B 20 69 6E 74 20 73 69 7A 65 2C ar *s; int size,
000190: 20 61 72 67 63 2C 20 61 72 67 76 5B 5D 3B 20 7B argc, argv[]; {
0001A0: 0D 0A 20 20 63 68 61 72 20 2A 73 74 72 3B 0D 0A .. char *str;..
0001B0: 20 20 69 6E 74 20 69 3B 0D 0A 20 20 69 66 28 6E int i;.. if(n
0001C0: 20 3C 20 30 20 7C 20 6E 20 3E 3D 20 61 72 67 63 < 0 | n >= argc
0001D0: 29 20 7B 0D 0A 20 20 20 20 2A 73 20 3D 20 4E 55 ) {.. *s = NU
0001E0: 4C 4C 3B 0D 0A 20 20 20 20 72 65 74 75 72 6E 20 LL;.. return
0001F0: 45 4F 46 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 69 EOF;.. }.. i
Size : 512 (Real : 512)
000000: 20 62 61 73 65 20 3D 20 20 32 3B 20 73 69 67 6E base = 2; sign
000010: 20 3D 20 31 3B 20 6F 76 66 6C 20 3D 20 33 32 37 = 1; ovfl = 327
000020: 36 37 3B 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 67; break;..
000030: 20 20 20 20 20 20 63 61 73 65 20 27 64 27 3A 20 case 'd':
000040: 62 61 73 65 20 3D 20 31 30 3B 20 73 69 67 6E 20 base = 10; sign
000050: 3D 20 30 3B 20 6F 76 66 6C 20 3D 20 20 33 32 37 = 0; ovfl = 327
000060: 36 3B 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 6; break;..
000070: 20 20 20 20 20 63 61 73 65 20 27 6F 27 3A 20 62 case 'o': b
000080: 61 73 65 20 3D 20 20 38 3B 20 73 69 67 6E 20 3D ase = 8; sign =
000090: 20 31 3B 20 6F 76 66 6C 20 3D 20 20 38 31 39 31 1; ovfl = 8191
0000A0: 3B 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 ; break;..
0000B0: 20 20 20 20 63 61 73 65 20 27 75 27 3A 20 62 61 case 'u': ba
0000C0: 73 65 20 3D 20 31 30 3B 20 73 69 67 6E 20 3D 20 se = 10; sign =
0000D0: 31 3B 20 6F 76 66 6C 20 3D 20 20 36 35 35 33 3B 1; ovfl = 6553;
0000E0: 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 20 break;..
0000F0: 20 20 20 63 61 73 65 20 27 78 27 3A 20 62 61 73 case 'x': bas
000100: 65 20 3D 20 31 36 3B 20 73 69 67 6E 20 3D 20 31 e = 16; sign = 1
000110: 3B 20 6F 76 66 6C 20 3D 20 20 34 30 39 35 3B 20 ; ovfl = 4095;
000120: 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 20 20 break;..
000130: 20 20 64 65 66 61 75 6C 74 3A 20 20 72 65 74 75 default: retu
000140: 72 6E 20 28 61 63 29 3B 0D 0A 20 20 20 20 20 20 rn (ac);..
000150: 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 2A }.. *
000160: 6E 61 72 67 20 3D 20 75 6E 73 69 67 6E 65 64 20 narg = unsigned
000170: 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 77 68 = 0;.. wh
000180: 69 6C 65 28 77 69 64 74 68 2D 2D 20 26 26 20 21 ile(width-- && !
000190: 69 73 73 70 61 63 65 28 63 68 3D 66 67 65 74 63 isspace(ch=fgetc
0001A0: 28 66 64 29 29 20 26 26 20 63 68 21 3D 45 4F 46 (fd)) && ch!=EOF
0001B0: 29 20 7B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 ) {.. i
0001C0: 66 28 21 73 69 67 6E 29 0D 0A 20 20 20 20 20 20 f(!sign)..
0001D0: 20 20 20 20 20 20 69 66 28 63 68 20 3D 3D 20 27 if(ch == '
0001E0: 2D 27 29 20 7B 73 69 67 6E 20 3D 20 2D 31 3B 20 -') {sign = -1;
0001F0: 63 6F 6E 74 69 6E 75 65 3B 7D 0D 0A 20 20 20 20 continue;}..
Size : 512 (Real : 512)
000000: 20 3D 20 30 3B 0D 0A 20 20 73 74 72 3D 61 72 67 = 0;.. str=arg
000010: 76 5B 6E 5D 3B 0D 0A 20 20 77 68 69 6C 65 28 69 v[n];.. while(i
000020: 3C 73 69 7A 65 29 20 7B 0D 0A 20 20 20 20 69 66 <size) {.. if
000030: 28 28 73 5B 69 5D 3D 73 74 72 5B 69 5D 29 3D 3D ((s[i]=str[i])==
000040: 4E 55 4C 4C 29 20 62 72 65 61 6B 3B 0D 0A 20 20 NULL) break;..
000050: 20 20 2B 2B 69 3B 0D 0A 20 20 20 20 7D 0D 0A 20 ++i;.. }..
000060: 20 73 5B 69 5D 3D 4E 55 4C 4C 3B 0D 0A 20 20 72 s[i]=NULL;.. r
000070: 65 74 75 72 6E 20 69 3B 0D 0A 20 20 7D 0D 0A 3E eturn i;.. }..>
000080: 3E 3E 20 47 45 54 43 48 41 52 2E 43 20 31 35 38 >> GETCHAR.C 158
000090: 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 ..#define NOCCAR
0000A0: 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 GC /* no argume
0000B0: 6E 74 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 nt count passing
0000C0: 20 2A 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 */..#include st
0000D0: 64 69 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A 20 47 65 dio.h../*..** Ge
0000E0: 74 20 6E 65 78 74 20 63 68 61 72 61 63 74 65 72 t next character
0000F0: 20 66 72 6F 6D 20 73 74 61 6E 64 61 72 64 20 69 from standard i
000100: 6E 70 75 74 2E 20 0D 0A 2A 2F 0D 0A 67 65 74 63 nput. ..*/..getc
000110: 68 61 72 28 29 20 7B 0D 0A 20 20 72 65 74 75 72 har() {.. retur
000120: 6E 20 28 66 67 65 74 63 28 73 74 64 69 6E 29 29 n (fgetc(stdin))
000130: 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 53 41 4C ;.. }..>>> ISAL
000140: 4E 55 4D 2E 43 20 31 36 33 0D 0A 2F 2A 0D 0A 2A NUM.C 163../*..*
000150: 2A 20 72 65 74 75 72 6E 20 27 74 72 75 65 27 20 * return 'true'
000160: 69 66 20 63 20 69 73 20 61 6C 70 68 61 6E 75 6D if c is alphanum
000170: 65 72 69 63 0D 0A 2A 2F 0D 0A 69 73 61 6C 6E 75 eric..*/..isalnu
000180: 6D 28 63 29 20 69 6E 74 20 63 3B 20 7B 0D 0A 20 m(c) int c; {..
000190: 20 72 65 74 75 72 6E 20 28 28 63 3C 3D 27 7A 27 return ((c<='z'
0001A0: 20 26 26 20 63 3E 3D 27 61 27 29 20 7C 7C 0D 0A && c>='a') ||..
0001B0: 20 20 20 20 20 20 20 20 20 20 28 63 3C 3D 27 5A (c<='Z
0001C0: 27 20 26 26 20 63 3E 3D 27 41 27 29 20 7C 7C 0D ' && c>='A') ||.
0001D0: 0A 20 20 20 20 20 20 20 20 20 20 28 63 3C 3D 27 . (c<='
0001E0: 39 27 20 26 26 20 63 3E 3D 27 30 27 29 29 3B 0D 9' && c>='0'));.
0001F0: 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 53 41 4C 50 48 . }..>>> ISALPH
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 65 6C 73 65 20 73 69 67 else sig
000010: 6E 20 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 n = 1;..
000020: 20 20 69 66 28 63 68 20 3C 20 27 30 27 29 20 72 if(ch < '0') r
000030: 65 74 75 72 6E 20 28 61 63 29 3B 0D 0A 20 20 20 eturn (ac);..
000040: 20 20 20 20 20 20 20 69 66 28 63 68 20 3E 3D 20 if(ch >=
000050: 27 61 27 29 20 20 20 20 20 20 63 68 20 2D 3D 20 'a') ch -=
000060: 38 37 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 65 87;.. e
000070: 6C 73 65 20 69 66 28 63 68 20 3E 3D 20 27 41 27 lse if(ch >= 'A'
000080: 29 20 63 68 20 2D 3D 20 35 35 3B 0D 0A 20 20 20 ) ch -= 55;..
000090: 20 20 20 20 20 20 20 65 6C 73 65 20 20 20 20 20 else
0000A0: 20 20 20 20 20 20 20 20 20 20 63 68 20 2D 3D 20 ch -=
0000B0: 27 30 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 '0';..
0000C0: 69 66 28 63 68 20 3E 3D 20 62 61 73 65 20 7C 7C if(ch >= base ||
0000D0: 20 75 6E 73 69 67 6E 65 64 20 3E 20 6F 76 66 6C unsigned > ovfl
0000E0: 29 20 72 65 74 75 72 6E 20 28 61 63 29 3B 0D 0A ) return (ac);..
0000F0: 20 20 20 20 20 20 20 20 20 20 75 6E 73 69 67 6E unsign
000100: 65 64 20 3D 20 75 6E 73 69 67 6E 65 64 20 2A 20 ed = unsigned *
000110: 62 61 73 65 20 2B 20 63 68 3B 0D 0A 20 20 20 20 base + ch;..
000120: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 }..
000130: 20 2A 6E 61 72 67 20 3D 20 73 69 67 6E 20 2A 20 *narg = sign *
000140: 75 6E 73 69 67 6E 65 64 3B 0D 0A 20 20 20 20 20 unsigned;..
000150: 20 7D 0D 0A 20 20 20 20 2B 2B 61 63 3B 20 20 20 }.. ++ac;
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 7D 0D 0A .. }..
000180: 20 20 72 65 74 75 72 6E 20 28 61 63 29 3B 0D 0A return (ac);..
000190: 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 46 57 52 49 54 }....>>> FWRIT
0001A0: 45 2E 43 20 39 39 38 0D 0A 23 64 65 66 69 6E 65 E.C 998..#define
0001B0: 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E 6F NOCCARGC /* no
0001C0: 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 20 argument count
0001D0: 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E 63 passing */..#inc
0001E0: 6C 75 64 65 20 63 6C 69 62 2E 64 65 66 0D 0A 65 lude clib.def..e
0001F0: 78 74 65 72 6E 20 69 6E 74 20 55 73 74 61 74 75 xtern int Ustatu
Size : 512 (Real : 512)
000000: 41 2E 43 20 31 31 39 0D 0A 2F 2A 0D 0A 2A 2A 20 A.C 119../*..**
000010: 72 65 74 75 72 6E 20 27 74 72 75 65 27 20 69 66 return 'true' if
000020: 20 63 20 69 73 20 61 6C 70 68 61 62 65 74 69 63 c is alphabetic
000030: 0D 0A 2A 2F 0D 0A 69 73 61 6C 70 68 61 28 63 29 ..*/..isalpha(c)
000040: 20 69 6E 74 20 63 3B 20 7B 0D 0A 20 20 72 65 74 int c; {.. ret
000050: 75 72 6E 20 28 28 63 3C 3D 27 7A 27 20 26 26 20 urn ((c<='z' &&
000060: 63 3E 3D 27 61 27 29 20 7C 7C 20 28 63 3C 3D 27 c>='a') || (c<='
000070: 5A 27 20 26 26 20 63 3E 3D 27 41 27 29 29 3B 0D Z' && c>='A'));.
000080: 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 53 41 53 43 49 . }..>>> ISASCI
000090: 49 2E 43 20 31 34 37 0D 0A 2F 2A 0D 0A 2A 2A 20 I.C 147../*..**
0000A0: 72 65 74 75 72 6E 20 27 74 72 75 65 27 20 69 66 return 'true' if
0000B0: 20 63 20 69 73 20 61 6E 20 41 53 43 49 49 20 63 c is an ASCII c
0000C0: 68 61 72 61 63 74 65 72 20 28 30 2D 31 32 37 29 haracter (0-127)
0000D0: 0D 0A 2A 2F 0D 0A 69 73 61 73 63 69 69 28 63 29 ..*/..isascii(c)
0000E0: 20 63 68 61 72 20 2A 63 3B 20 7B 0D 0A 20 20 2F char *c; {.. /
0000F0: 2A 20 63 20 69 73 20 61 20 73 69 6D 75 6C 61 74 * c is a simulat
000100: 65 64 20 75 6E 73 69 67 6E 65 64 20 69 6E 74 65 ed unsigned inte
000110: 67 65 72 20 2A 2F 0D 0A 20 20 72 65 74 75 72 6E ger */.. return
000120: 20 28 63 20 3C 3D 20 31 32 37 29 3B 0D 0A 20 20 (c <= 127);..
000130: 7D 0D 0A 3E 3E 3E 20 49 53 41 54 54 59 2E 43 20 }..>>> ISATTY.C
000140: 31 32 36 0D 0A 65 78 74 65 72 6E 20 69 6E 74 20 126..extern int
000150: 55 64 65 76 69 63 65 5B 5D 3B 0D 0A 2F 2A 0D 0A Udevice[];../*..
000160: 2A 2A 20 52 65 74 75 72 6E 20 22 74 72 75 65 22 ** Return "true"
000170: 20 69 66 20 66 64 20 69 73 20 61 20 64 65 76 69 if fd is a devi
000180: 63 65 2C 20 65 6C 73 65 20 22 66 61 6C 73 65 22 ce, else "false"
000190: 0D 0A 2A 2F 0D 0A 69 73 61 74 74 79 28 66 64 29 ..*/..isatty(fd)
0001A0: 20 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 72 65 int fd; {.. re
0001B0: 74 75 72 6E 20 28 55 64 65 76 69 63 65 5B 66 64 turn (Udevice[fd
0001C0: 5D 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 53 ]);.. }..>>> IS
0001D0: 43 4E 54 52 4C 2E 43 20 31 37 32 0D 0A 2F 2A 0D CNTRL.C 172../*.
0001E0: 0A 2A 2A 20 72 65 74 75 72 6E 20 27 74 72 75 65 .** return 'true
0001F0: 27 20 69 66 20 63 20 69 73 20 61 20 63 6F 6E 74 ' if c is a cont
Size : 512 (Real : 512)
000000: 73 5B 5D 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 49 74 65 s[];../*..** Ite
000010: 6D 2D 73 74 72 65 61 6D 20 77 72 69 74 65 20 74 m-stream write t
000020: 6F 20 66 64 2E 0D 0A 2A 2A 20 45 6E 74 72 79 3A o fd...** Entry:
000030: 20 62 75 66 20 3D 20 61 64 64 72 65 73 73 20 6F buf = address o
000040: 66 20 73 6F 75 72 63 65 20 62 75 66 66 65 72 0D f source buffer.
000050: 0A 2A 2A 20 20 20 20 20 20 20 20 20 73 7A 20 3D .** sz =
000060: 20 73 69 7A 65 20 6F 66 20 69 74 65 6D 73 20 69 size of items i
000070: 6E 20 62 79 74 65 73 0D 0A 2A 2A 20 20 20 20 20 n bytes..**
000080: 20 20 20 20 20 6E 20 3D 20 6E 75 6D 62 65 72 20 n = number
000090: 6F 66 20 69 74 65 6D 73 20 74 6F 20 77 72 69 74 of items to writ
0000A0: 65 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 66 64 e..** fd
0000B0: 20 3D 20 66 69 6C 65 20 64 65 73 63 72 69 70 74 = file descript
0000C0: 6F 72 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 61 or..** Returns a
0000D0: 20 63 6F 75 6E 74 20 6F 66 20 74 68 65 20 69 74 count of the it
0000E0: 65 6D 73 20 61 63 74 75 61 6C 6C 79 20 77 72 69 ems actually wri
0000F0: 74 74 65 6E 20 6F 72 0D 0A 2A 2A 20 7A 65 72 6F tten or..** zero
000100: 20 69 66 20 61 6E 20 65 72 72 6F 72 20 6F 63 63 if an error occ
000110: 75 72 72 65 64 2E 0D 0A 2A 2A 20 4D 61 79 20 75 urred...** May u
000120: 73 65 20 66 65 72 72 6F 72 28 29 2C 20 61 73 20 se ferror(), as
000130: 61 6C 77 61 79 73 2C 20 74 6F 20 64 65 74 65 63 always, to detec
000140: 74 20 65 72 72 6F 72 73 2E 0D 0A 2A 2F 0D 0A 66 t errors...*/..f
000150: 77 72 69 74 65 28 62 75 66 2C 20 73 7A 2C 20 6E write(buf, sz, n
000160: 2C 20 66 64 29 20 63 68 61 72 20 2A 62 75 66 3B , fd) char *buf;
000170: 20 69 6E 74 20 73 7A 2C 20 6E 2C 20 66 64 3B 20 int sz, n, fd;
000180: 7B 0D 0A 20 20 69 66 28 77 72 69 74 65 28 66 64 {.. if(write(fd
000190: 2C 20 62 75 66 2C 20 6E 2A 73 7A 29 20 3D 3D 20 , buf, n*sz) ==
0001A0: 2D 31 29 20 72 65 74 75 72 6E 20 28 30 29 3B 0D -1) return (0);.
0001B0: 0A 20 20 72 65 74 75 72 6E 20 28 6E 29 3B 0D 0A . return (n);..
0001C0: 20 20 7D 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 42 69 }..../*..** Bi
0001D0: 6E 61 72 79 2D 73 74 72 65 61 6D 20 77 72 69 74 nary-stream writ
0001E0: 65 20 74 6F 20 66 64 2E 0D 0A 2A 2A 20 45 6E 74 e to fd...** Ent
0001F0: 72 79 3A 20 20 66 64 20 3D 20 66 69 6C 65 20 64 ry: fd = file d
Size : 512 (Real : 512)
000000: 72 6F 6C 20 63 68 61 72 61 63 74 65 72 0D 0A 2A rol character..*
000010: 2A 20 28 30 2D 33 31 20 6F 72 20 31 32 37 29 0D * (0-31 or 127).
000020: 0A 2A 2F 0D 0A 69 73 63 6E 74 72 6C 28 63 29 20 .*/..iscntrl(c)
000030: 63 68 61 72 20 2A 63 3B 20 7B 0D 0A 20 20 2F 2A char *c; {.. /*
000040: 20 63 20 69 73 20 61 20 73 69 6D 75 6C 61 74 65 c is a simulate
000050: 64 20 75 6E 73 69 67 6E 65 64 20 69 6E 74 65 67 d unsigned integ
000060: 65 72 20 2A 2F 0D 0A 20 20 72 65 74 75 72 6E 20 er */.. return
000070: 28 28 63 20 3C 3D 20 33 31 29 20 7C 7C 20 28 63 ((c <= 31) || (c
000080: 20 3D 3D 20 31 32 37 29 29 3B 0D 0A 20 20 7D 0D == 127));.. }.
000090: 0A 3E 3E 3E 20 49 53 43 4F 4E 53 2E 43 20 31 35 .>>> ISCONS.C 15
0000A0: 37 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 7..#include stdi
0000B0: 6F 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 20 63 6C o.h..#include cl
0000C0: 69 62 2E 64 65 66 0D 0A 65 78 74 65 72 6E 20 69 ib.def..extern i
0000D0: 6E 74 20 55 64 65 76 69 63 65 5B 5D 3B 0D 0A 2F nt Udevice[];../
0000E0: 2A 0D 0A 2A 2A 20 44 65 74 65 72 6D 69 6E 65 20 *..** Determine
0000F0: 69 66 20 66 64 20 69 73 20 74 68 65 20 63 6F 6E if fd is the con
000100: 73 6F 6C 65 2E 0D 0A 2A 2F 0D 0A 69 73 63 6F 6E sole...*/..iscon
000110: 73 28 66 64 29 20 69 6E 74 20 66 64 3B 20 7B 0D s(fd) int fd; {.
000120: 0A 20 20 72 65 74 75 72 6E 20 28 55 64 65 76 69 . return (Udevi
000130: 63 65 5B 66 64 5D 20 3D 3D 20 43 50 4D 43 4F 4E ce[fd] == CPMCON
000140: 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 53 44 );.. }..>>> ISD
000150: 49 47 49 54 2E 43 20 31 30 30 0D 0A 2F 2A 0D 0A IGIT.C 100../*..
000160: 2A 2A 20 72 65 74 75 72 6E 20 27 74 72 75 65 27 ** return 'true'
000170: 20 69 66 20 63 20 69 73 20 61 20 64 65 63 69 6D if c is a decim
000180: 61 6C 20 64 69 67 69 74 0D 0A 2A 2F 0D 0A 69 73 al digit..*/..is
000190: 64 69 67 69 74 28 63 29 20 69 6E 74 20 63 3B 20 digit(c) int c;
0001A0: 7B 0D 0A 20 20 72 65 74 75 72 6E 20 28 63 3C 3D {.. return (c<=
0001B0: 27 39 27 20 26 26 20 63 3E 3D 27 30 27 29 3B 0D '9' && c>='0');.
0001C0: 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 53 47 52 41 50 . }..>>> ISGRAP
0001D0: 48 2E 43 20 31 31 35 0D 0A 2F 2A 0D 0A 2A 2A 20 H.C 115../*..**
0001E0: 72 65 74 75 72 6E 20 27 74 72 75 65 27 20 69 66 return 'true' if
0001F0: 20 63 20 69 73 20 61 20 67 72 61 70 68 69 63 20 c is a graphic
Size : 512 (Real : 512)
000000: 20 20 69 66 28 2A 70 74 72 20 3C 20 31 30 29 20 if(*ptr < 10)
000010: 2A 70 74 72 20 2B 3D 20 27 30 27 3B 20 65 6C 73 *ptr += '0'; els
000020: 65 20 2A 70 74 72 20 2B 3D 20 35 35 3B 0D 0A 20 e *ptr += 55;..
000030: 20 20 20 2B 2B 70 74 72 3B 0D 0A 20 20 20 20 7D ++ptr;.. }
000040: 20 77 68 69 6C 65 28 6E 20 2F 3D 20 62 29 3B 0D while(n /= b);.
000050: 0A 20 20 2A 70 74 72 20 3D 20 30 3B 0D 0A 20 20 . *ptr = 0;..
000060: 72 65 76 65 72 73 65 20 28 73 29 3B 0D 0A 20 20 reverse (s);..
000070: 7D 0D 0A 0D 0A 3E 3E 3E 20 49 54 4F 44 2E 43 20 }....>>> ITOD.C
000080: 36 32 30 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 620..#include st
000090: 64 69 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A 20 69 74 dio.h../*..** it
0000A0: 6F 64 20 2D 2D 20 63 6F 6E 76 65 72 74 20 6E 62 od -- convert nb
0000B0: 72 20 74 6F 20 73 69 67 6E 65 64 20 64 65 63 69 r to signed deci
0000C0: 6D 61 6C 20 73 74 72 69 6E 67 20 6F 66 20 77 69 mal string of wi
0000D0: 64 74 68 20 73 7A 0D 0A 2A 2A 20 20 20 20 20 20 dth sz..**
0000E0: 20 20 20 72 69 67 68 74 20 61 64 6A 75 73 74 65 right adjuste
0000F0: 64 2C 20 62 6C 61 6E 6B 20 66 69 6C 6C 65 64 3B d, blank filled;
000100: 20 72 65 74 75 72 6E 73 20 73 74 72 0D 0A 2A 2A returns str..**
000110: 0D 0A 2A 2A 20 20 20 20 20 20 20 20 69 66 20 73 ..** if s
000120: 7A 20 3E 20 30 20 74 65 72 6D 69 6E 61 74 65 20 z > 0 terminate
000130: 77 69 74 68 20 6E 75 6C 6C 20 62 79 74 65 0D 0A with null byte..
000140: 2A 2A 20 20 20 20 20 20 20 20 69 66 20 73 7A 20 ** if sz
000150: 3D 20 30 20 66 69 6E 64 20 65 6E 64 20 6F 66 20 = 0 find end of
000160: 73 74 72 69 6E 67 0D 0A 2A 2A 20 20 20 20 20 20 string..**
000170: 20 20 69 66 20 73 7A 20 3C 20 30 20 75 73 65 20 if sz < 0 use
000180: 6C 61 73 74 20 62 79 74 65 20 66 6F 72 20 64 61 last byte for da
000190: 74 61 0D 0A 2A 2F 0D 0A 69 74 6F 64 28 6E 62 72 ta..*/..itod(nbr
0001A0: 2C 20 73 74 72 2C 20 73 7A 29 20 20 69 6E 74 20 , str, sz) int
0001B0: 6E 62 72 3B 20 20 63 68 61 72 20 73 74 72 5B 5D nbr; char str[]
0001C0: 3B 20 20 69 6E 74 20 73 7A 3B 20 20 7B 0D 0A 20 ; int sz; {..
0001D0: 20 63 68 61 72 20 73 67 6E 3B 0D 0A 20 20 69 66 char sgn;.. if
0001E0: 28 6E 62 72 3C 30 29 20 7B 6E 62 72 20 3D 20 2D (nbr<0) {nbr = -
0001F0: 6E 62 72 3B 20 73 67 6E 3D 27 2D 27 3B 7D 0D 0A nbr; sgn='-';}..
Size : 512 (Real : 512)
000000: 63 68 61 72 61 63 74 65 72 0D 0A 2A 2A 20 28 33 character..** (3
000010: 33 2D 31 32 36 29 0D 0A 2A 2F 0D 0A 69 73 67 72 3-126)..*/..isgr
000020: 61 70 68 28 63 29 20 69 6E 74 20 63 3B 20 7B 0D aph(c) int c; {.
000030: 0A 20 20 72 65 74 75 72 6E 20 28 63 3E 3D 33 33 . return (c>=33
000040: 20 26 26 20 63 3C 3D 31 32 36 29 3B 0D 0A 20 20 && c<=126);..
000050: 7D 0D 0A 3E 3E 3E 20 49 53 4C 4F 57 45 52 2E 43 }..>>> ISLOWER.C
000060: 20 31 30 36 0D 0A 2F 2A 0D 0A 2A 2A 20 72 65 74 106../*..** ret
000070: 75 72 6E 20 27 74 72 75 65 27 20 69 66 20 63 20 urn 'true' if c
000080: 69 73 20 6C 6F 77 65 72 2D 63 61 73 65 20 61 6C is lower-case al
000090: 70 68 61 62 65 74 69 63 0D 0A 2A 2F 0D 0A 69 73 phabetic..*/..is
0000A0: 6C 6F 77 65 72 28 63 29 20 69 6E 74 20 63 3B 20 lower(c) int c;
0000B0: 7B 0D 0A 20 20 72 65 74 75 72 6E 20 28 63 3C 3D {.. return (c<=
0000C0: 27 7A 27 20 26 26 20 63 3E 3D 27 61 27 29 3B 0D 'z' && c>='a');.
0000D0: 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 53 50 52 49 4E . }..>>> ISPRIN
0000E0: 54 2E 43 20 31 31 37 0D 0A 2F 2A 0D 0A 2A 2A 20 T.C 117../*..**
0000F0: 72 65 74 75 72 6E 20 27 74 72 75 65 27 20 69 66 return 'true' if
000100: 20 63 20 69 73 20 61 20 70 72 69 6E 74 61 62 6C c is a printabl
000110: 65 20 63 68 61 72 61 63 74 65 72 0D 0A 2A 2A 20 e character..**
000120: 28 33 32 2D 31 32 36 29 0D 0A 2A 2F 0D 0A 69 73 (32-126)..*/..is
000130: 70 72 69 6E 74 28 63 29 20 69 6E 74 20 63 3B 20 print(c) int c;
000140: 7B 0D 0A 20 20 72 65 74 75 72 6E 20 28 63 3E 3D {.. return (c>=
000150: 33 32 20 26 26 20 63 3C 3D 31 32 36 29 3B 0D 0A 32 && c<=126);..
000160: 20 20 7D 0D 0A 3E 3E 3E 20 49 53 50 55 4E 43 54 }..>>> ISPUNCT
000170: 2E 43 20 32 30 36 0D 0A 23 64 65 66 69 6E 65 20 .C 206..#define
000180: 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 NOCCARGC /* no
000190: 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 20 70 argument count p
0001A0: 61 73 73 69 6E 67 20 2A 2F 0D 0A 2F 2A 0D 0A 2A assing */../*..*
0001B0: 2A 20 72 65 74 75 72 6E 20 27 74 72 75 65 27 20 * return 'true'
0001C0: 69 66 20 63 20 69 73 20 61 20 70 75 6E 63 74 75 if c is a punctu
0001D0: 61 74 69 6F 6E 20 63 68 61 72 61 63 74 65 72 0D ation character.
0001E0: 0A 2A 2A 20 28 61 6C 6C 20 62 75 74 20 63 6F 6E .** (all but con
0001F0: 74 72 6F 6C 20 61 6E 64 20 61 6C 70 68 61 6E 75 trol and alphanu
Size : 512 (Real : 512)
000000: 20 20 65 6C 73 65 20 73 67 6E 3D 27 20 27 3B 0D else sgn=' ';.
000010: 0A 20 20 69 66 28 73 7A 3E 30 29 20 73 74 72 5B . if(sz>0) str[
000020: 2D 2D 73 7A 5D 3D 4E 55 4C 4C 3B 0D 0A 20 20 65 --sz]=NULL;.. e
000030: 6C 73 65 20 69 66 28 73 7A 3C 30 29 20 73 7A 20 lse if(sz<0) sz
000040: 3D 20 2D 73 7A 3B 0D 0A 20 20 65 6C 73 65 20 77 = -sz;.. else w
000050: 68 69 6C 65 28 73 74 72 5B 73 7A 5D 21 3D 4E 55 hile(str[sz]!=NU
000060: 4C 4C 29 20 2B 2B 73 7A 3B 0D 0A 20 20 77 68 69 LL) ++sz;.. whi
000070: 6C 65 28 73 7A 29 20 7B 0D 0A 20 20 20 20 73 74 le(sz) {.. st
000080: 72 5B 2D 2D 73 7A 5D 3D 28 6E 62 72 25 31 30 2B r[--sz]=(nbr%10+
000090: 27 30 27 29 3B 0D 0A 20 20 20 20 69 66 28 28 6E '0');.. if((n
0000A0: 62 72 3D 6E 62 72 2F 31 30 29 3D 3D 30 29 20 62 br=nbr/10)==0) b
0000B0: 72 65 61 6B 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 reak;.. }..
0000C0: 69 66 28 73 7A 29 20 73 74 72 5B 2D 2D 73 7A 5D if(sz) str[--sz]
0000D0: 3D 73 67 6E 3B 0D 0A 20 20 77 68 69 6C 65 28 73 =sgn;.. while(s
0000E0: 7A 3E 30 29 20 73 74 72 5B 2D 2D 73 7A 5D 3D 27 z>0) str[--sz]='
0000F0: 20 27 3B 0D 0A 20 20 72 65 74 75 72 6E 20 73 74 ';.. return st
000100: 72 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 54 4F r;.. }..>>> ITO
000110: 4F 2E 43 20 35 34 30 0D 0A 2F 2A 0D 0A 2A 2A 20 O.C 540../*..**
000120: 69 74 6F 6F 20 2D 2D 20 63 6F 6E 76 65 72 74 73 itoo -- converts
000130: 20 6E 62 72 20 74 6F 20 6F 63 74 61 6C 20 73 74 nbr to octal st
000140: 72 69 6E 67 20 6F 66 20 6C 65 6E 67 74 68 20 73 ring of length s
000150: 7A 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 72 69 z..** ri
000160: 67 68 74 20 61 64 6A 75 73 74 65 64 20 61 6E 64 ght adjusted and
000170: 20 62 6C 61 6E 6B 20 66 69 6C 6C 65 64 2C 20 72 blank filled, r
000180: 65 74 75 72 6E 73 20 73 74 72 0D 0A 2A 2A 0D 0A eturns str..**..
000190: 2A 2A 20 20 20 20 20 20 20 20 69 66 20 73 7A 20 ** if sz
0001A0: 3E 20 30 20 74 65 72 6D 69 6E 61 74 65 20 77 69 > 0 terminate wi
0001B0: 74 68 20 6E 75 6C 6C 20 62 79 74 65 0D 0A 2A 2A th null byte..**
0001C0: 20 20 20 20 20 20 20 20 69 66 20 73 7A 20 3D 20 if sz =
0001D0: 30 20 66 69 6E 64 20 65 6E 64 20 6F 66 20 73 74 0 find end of st
0001E0: 72 69 6E 67 0D 0A 2A 2A 20 20 20 20 20 20 20 20 ring..**
0001F0: 69 66 20 73 7A 20 3C 20 30 20 75 73 65 20 6C 61 if sz < 0 use la
Size : 512 (Real : 512)
000000: 6D 65 72 69 63 29 0D 0A 2A 2F 0D 0A 69 73 70 75 meric)..*/..ispu
000010: 6E 63 74 28 63 29 20 69 6E 74 20 63 3B 20 7B 0D nct(c) int c; {.
000020: 0A 20 20 72 65 74 75 72 6E 20 28 21 69 73 61 6C . return (!isal
000030: 6E 75 6D 28 63 29 20 26 26 20 21 69 73 63 6E 74 num(c) && !iscnt
000040: 72 6C 28 63 29 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E rl(c));.. }..>>
000050: 3E 20 49 53 53 50 41 43 45 2E 43 20 31 38 30 0D > ISSPACE.C 180.
000060: 0A 2F 2A 0D 0A 2A 2A 20 72 65 74 75 72 6E 20 27 ./*..** return '
000070: 74 72 75 65 27 20 69 66 20 63 20 69 73 20 61 20 true' if c is a
000080: 77 68 69 74 65 2D 73 70 61 63 65 20 63 68 61 72 white-space char
000090: 61 63 74 65 72 0D 0A 2A 2F 0D 0A 69 73 73 70 61 acter..*/..isspa
0000A0: 63 65 28 63 29 20 69 6E 74 20 63 3B 20 7B 0D 0A ce(c) int c; {..
0000B0: 20 20 2F 2A 20 66 69 72 73 74 20 63 68 65 63 6B /* first check
0000C0: 20 67 69 76 65 73 20 71 75 69 63 6B 20 65 78 69 gives quick exi
0000D0: 74 20 69 6E 20 6D 6F 73 74 20 63 61 73 65 73 20 t in most cases
0000E0: 2A 2F 0D 0A 20 20 72 65 74 75 72 6E 28 63 3C 3D */.. return(c<=
0000F0: 27 20 27 20 26 26 20 28 63 3D 3D 27 20 27 20 7C ' ' && (c==' ' |
000100: 7C 20 28 63 3C 3D 31 33 20 26 26 20 63 3E 3D 39 | (c<=13 && c>=9
000110: 29 29 29 3B 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E )));.. }....>>>
000120: 20 49 53 55 50 50 45 52 2E 43 20 31 30 36 0D 0A ISUPPER.C 106..
000130: 2F 2A 0D 0A 2A 2A 20 72 65 74 75 72 6E 20 27 74 /*..** return 't
000140: 72 75 65 27 20 69 66 20 63 20 69 73 20 75 70 70 rue' if c is upp
000150: 65 72 2D 63 61 73 65 20 61 6C 70 68 61 62 65 74 er-case alphabet
000160: 69 63 0D 0A 2A 2F 0D 0A 69 73 75 70 70 65 72 28 ic..*/..isupper(
000170: 63 29 20 69 6E 74 20 63 3B 20 7B 0D 0A 20 20 72 c) int c; {.. r
000180: 65 74 75 72 6E 20 28 63 3C 3D 27 5A 27 20 26 26 eturn (c<='Z' &&
000190: 20 63 3E 3D 27 41 27 29 3B 0D 0A 20 20 7D 0D 0A c>='A');.. }..
0001A0: 3E 3E 3E 20 49 53 58 44 49 47 49 54 2E 43 20 31 >>> ISXDIGIT.C 1
0001B0: 39 33 0D 0A 2F 2A 0D 0A 2A 2A 20 72 65 74 75 72 93../*..** retur
0001C0: 6E 20 27 74 72 75 65 27 20 69 66 20 63 20 69 73 n 'true' if c is
0001D0: 20 61 20 68 65 78 61 64 65 63 69 6D 61 6C 20 64 a hexadecimal d
0001E0: 69 67 69 74 0D 0A 2A 2A 20 28 30 2D 39 2C 20 41 igit..** (0-9, A
0001F0: 2D 46 2C 20 6F 72 20 61 2D 66 29 0D 0A 2A 2F 0D -F, or a-f)..*/.
Size : 512 (Real : 512)
000000: 73 74 20 62 79 74 65 20 66 6F 72 20 64 61 74 61 st byte for data
000010: 0D 0A 2A 2F 0D 0A 69 74 6F 6F 28 6E 62 72 2C 20 ..*/..itoo(nbr,
000020: 73 74 72 2C 20 73 7A 29 20 20 69 6E 74 20 6E 62 str, sz) int nb
000030: 72 3B 20 20 63 68 61 72 20 73 74 72 5B 5D 3B 20 r; char str[];
000040: 20 69 6E 74 20 73 7A 3B 20 20 7B 0D 0A 20 20 69 int sz; {.. i
000050: 6E 74 20 64 69 67 69 74 3B 0D 0A 20 20 69 66 28 nt digit;.. if(
000060: 73 7A 3E 30 29 20 73 74 72 5B 2D 2D 73 7A 5D 3D sz>0) str[--sz]=
000070: 30 3B 0D 0A 20 20 65 6C 73 65 20 69 66 28 73 7A 0;.. else if(sz
000080: 3C 30 29 20 73 7A 20 3D 20 2D 73 7A 3B 0D 0A 20 <0) sz = -sz;..
000090: 20 65 6C 73 65 20 77 68 69 6C 65 28 73 74 72 5B else while(str[
0000A0: 73 7A 5D 21 3D 30 29 20 2B 2B 73 7A 3B 0D 0A 20 sz]!=0) ++sz;..
0000B0: 20 77 68 69 6C 65 28 73 7A 29 20 7B 0D 0A 20 20 while(sz) {..
0000C0: 20 20 64 69 67 69 74 3D 6E 62 72 26 37 3B 20 6E digit=nbr&7; n
0000D0: 62 72 3D 28 6E 62 72 3E 3E 33 29 26 38 31 39 31 br=(nbr>>3)&8191
0000E0: 3B 0D 0A 20 20 20 20 73 74 72 5B 2D 2D 73 7A 5D ;.. str[--sz]
0000F0: 3D 64 69 67 69 74 2B 34 38 3B 0D 0A 20 20 20 20 =digit+48;..
000100: 69 66 28 6E 62 72 3D 3D 30 29 20 62 72 65 61 6B if(nbr==0) break
000110: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 77 68 69 6C ;.. }.. whil
000120: 65 28 73 7A 29 20 73 74 72 5B 2D 2D 73 7A 5D 3D e(sz) str[--sz]=
000130: 27 20 27 3B 0D 0A 20 20 72 65 74 75 72 6E 20 73 ' ';.. return s
000140: 74 72 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 54 tr;.. }..>>> IT
000150: 4F 55 2E 43 20 36 31 38 0D 0A 23 69 6E 63 6C 75 OU.C 618..#inclu
000160: 64 65 20 73 74 64 69 6F 2E 68 0D 0A 2F 2A 0D 0A de stdio.h../*..
000170: 2A 2A 20 69 74 6F 75 20 2D 2D 20 63 6F 6E 76 65 ** itou -- conve
000180: 72 74 20 6E 62 72 20 74 6F 20 75 6E 73 69 67 6E rt nbr to unsign
000190: 65 64 20 64 65 63 69 6D 61 6C 20 73 74 72 69 6E ed decimal strin
0001A0: 67 20 6F 66 20 77 69 64 74 68 20 73 7A 0D 0A 2A g of width sz..*
0001B0: 2A 20 20 20 20 20 20 20 20 20 72 69 67 68 74 20 * right
0001C0: 61 64 6A 75 73 74 65 64 2C 20 62 6C 61 6E 6B 20 adjusted, blank
0001D0: 66 69 6C 6C 65 64 3B 20 72 65 74 75 72 6E 73 20 filled; returns
0001E0: 73 74 72 0D 0A 2A 2A 0D 0A 2A 2A 20 20 20 20 20 str..**..**
0001F0: 20 20 20 69 66 20 73 7A 20 3E 20 30 20 74 65 72 if sz > 0 ter
Size : 512 (Real : 512)
000000: 0A 69 73 78 64 69 67 69 74 28 63 29 20 69 6E 74 .isxdigit(c) int
000010: 20 63 3B 20 7B 0D 0A 20 20 72 65 74 75 72 6E 20 c; {.. return
000020: 28 28 63 3C 3D 27 66 27 20 26 26 20 63 3E 3D 27 ((c<='f' && c>='
000030: 61 27 29 20 7C 7C 0D 0A 20 20 20 20 20 20 20 20 a') ||..
000040: 20 20 28 63 3C 3D 27 46 27 20 26 26 20 63 3E 3D (c<='F' && c>=
000050: 27 41 27 29 20 7C 7C 0D 0A 20 20 20 20 20 20 20 'A') ||..
000060: 20 20 20 28 63 3C 3D 27 39 27 20 26 26 20 63 3E (c<='9' && c>
000070: 3D 27 30 27 29 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E ='0'));.. }..>>
000080: 3E 20 49 54 4F 41 2E 43 20 34 36 39 0D 0A 23 64 > ITOA.C 469..#d
000090: 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 efine NOCCARGC
0000A0: 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 /* no argument c
0000B0: 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D ount passing */.
0000C0: 0A 2F 2A 0D 0A 2A 2A 20 69 74 6F 61 28 6E 2C 73 ./*..** itoa(n,s
0000D0: 29 20 2D 20 43 6F 6E 76 65 72 74 20 6E 20 74 6F ) - Convert n to
0000E0: 20 63 68 61 72 61 63 74 65 72 73 20 69 6E 20 73 characters in s
0000F0: 20 0D 0A 2A 2F 0D 0A 69 74 6F 61 28 6E 2C 20 73 ..*/..itoa(n, s
000100: 29 20 63 68 61 72 20 2A 73 3B 20 69 6E 74 20 6E ) char *s; int n
000110: 3B 20 7B 0D 0A 20 20 69 6E 74 20 73 69 67 6E 3B ; {.. int sign;
000120: 0D 0A 20 20 63 68 61 72 20 2A 70 74 72 3B 0D 0A .. char *ptr;..
000130: 20 20 70 74 72 20 3D 20 73 3B 0D 0A 20 20 69 66 ptr = s;.. if
000140: 20 28 28 73 69 67 6E 20 3D 20 6E 29 20 3C 20 30 ((sign = n) < 0
000150: 29 20 2F 2A 20 72 65 63 6F 72 64 20 73 69 67 6E ) /* record sign
000160: 20 2A 2F 0D 0A 20 20 20 20 6E 20 3D 20 2D 6E 3B */.. n = -n;
000170: 20 20 20 20 20 2F 2A 20 6D 61 6B 65 20 6E 20 70 /* make n p
000180: 6F 73 69 74 69 76 65 20 2A 2F 0D 0A 20 20 64 6F ositive */.. do
000190: 20 7B 20 20 20 20 20 20 20 20 20 20 2F 2A 20 67 { /* g
0001A0: 65 6E 65 72 61 74 65 20 64 69 67 69 74 73 20 69 enerate digits i
0001B0: 6E 20 72 65 76 65 72 73 65 20 6F 72 64 65 72 20 n reverse order
0001C0: 2A 2F 0D 0A 20 20 20 20 2A 70 74 72 2B 2B 20 3D */.. *ptr++ =
0001D0: 20 6E 20 25 20 31 30 20 2B 20 27 30 27 3B 20 20 n % 10 + '0';
0001E0: 20 20 20 20 20 20 20 2F 2A 20 67 65 74 20 6E 65 /* get ne
0001F0: 78 74 20 64 69 67 69 74 20 2A 2F 0D 0A 20 20 20 xt digit */..
Size : 512 (Real : 512)
000000: 6D 69 6E 61 74 65 20 77 69 74 68 20 6E 75 6C 6C minate with null
000010: 20 62 79 74 65 0D 0A 2A 2A 20 20 20 20 20 20 20 byte..**
000020: 20 69 66 20 73 7A 20 3D 20 30 20 66 69 6E 64 20 if sz = 0 find
000030: 65 6E 64 20 6F 66 20 73 74 72 69 6E 67 0D 0A 2A end of string..*
000040: 2A 20 20 20 20 20 20 20 20 69 66 20 73 7A 20 3C * if sz <
000050: 20 30 20 75 73 65 20 6C 61 73 74 20 62 79 74 65 0 use last byte
000060: 20 66 6F 72 20 64 61 74 61 0D 0A 2A 2F 0D 0A 69 for data..*/..i
000070: 74 6F 75 28 6E 62 72 2C 20 73 74 72 2C 20 73 7A tou(nbr, str, sz
000080: 29 20 20 69 6E 74 20 6E 62 72 3B 20 20 63 68 61 ) int nbr; cha
000090: 72 20 73 74 72 5B 5D 3B 20 20 69 6E 74 20 73 7A r str[]; int sz
0000A0: 3B 20 20 7B 0D 0A 20 20 69 6E 74 20 6C 6F 77 62 ; {.. int lowb
0000B0: 69 74 3B 0D 0A 20 20 69 66 28 73 7A 3E 30 29 20 it;.. if(sz>0)
0000C0: 73 74 72 5B 2D 2D 73 7A 5D 3D 4E 55 4C 4C 3B 0D str[--sz]=NULL;.
0000D0: 0A 20 20 65 6C 73 65 20 69 66 28 73 7A 3C 30 29 . else if(sz<0)
0000E0: 20 73 7A 20 3D 20 2D 73 7A 3B 0D 0A 20 20 65 6C sz = -sz;.. el
0000F0: 73 65 20 77 68 69 6C 65 28 73 74 72 5B 73 7A 5D se while(str[sz]
000100: 21 3D 4E 55 4C 4C 29 20 2B 2B 73 7A 3B 0D 0A 20 !=NULL) ++sz;..
000110: 20 77 68 69 6C 65 28 73 7A 29 20 7B 0D 0A 20 20 while(sz) {..
000120: 20 20 6C 6F 77 62 69 74 3D 6E 62 72 26 31 3B 0D lowbit=nbr&1;.
000130: 0A 20 20 20 20 6E 62 72 3D 28 6E 62 72 3E 3E 31 . nbr=(nbr>>1
000140: 29 26 33 32 37 36 37 3B 20 20 2F 2A 20 64 69 76 )&32767; /* div
000150: 69 64 65 20 62 79 20 32 20 2A 2F 0D 0A 20 20 20 ide by 2 */..
000160: 20 73 74 72 5B 2D 2D 73 7A 5D 3D 28 28 6E 62 72 str[--sz]=((nbr
000170: 25 35 29 3C 3C 31 29 2B 6C 6F 77 62 69 74 2B 27 %5)<<1)+lowbit+'
000180: 30 27 3B 0D 0A 20 20 20 20 69 66 28 28 6E 62 72 0';.. if((nbr
000190: 3D 6E 62 72 2F 35 29 3D 3D 30 29 20 62 72 65 61 =nbr/5)==0) brea
0001A0: 6B 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 77 68 69 k;.. }.. whi
0001B0: 6C 65 28 73 7A 29 20 73 74 72 5B 2D 2D 73 7A 5D le(sz) str[--sz]
0001C0: 3D 27 20 27 3B 0D 0A 20 20 72 65 74 75 72 6E 20 =' ';.. return
0001D0: 73 74 72 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 49 str;.. }..>>> I
0001E0: 54 4F 58 2E 43 20 35 39 35 0D 0A 2F 2A 0D 0A 2A TOX.C 595../*..*
0001F0: 2A 20 69 74 6F 78 20 2D 2D 20 63 6F 6E 76 65 72 * itox -- conver
Size : 512 (Real : 512)
000000: 20 7D 20 77 68 69 6C 65 20 28 28 6E 20 3D 20 6E } while ((n = n
000010: 20 2F 20 31 30 29 20 3E 20 30 29 3B 20 20 20 20 / 10) > 0);
000020: 2F 2A 20 64 65 6C 65 74 65 20 69 74 20 2A 2F 0D /* delete it */.
000030: 0A 20 20 69 66 20 28 73 69 67 6E 20 3C 20 30 29 . if (sign < 0)
000040: 20 2A 70 74 72 2B 2B 20 3D 20 27 2D 27 3B 0D 0A *ptr++ = '-';..
000050: 20 20 2A 70 74 72 20 3D 20 27 5C 30 27 3B 0D 0A *ptr = '\0';..
000060: 20 20 72 65 76 65 72 73 65 28 73 29 3B 0D 0A 20 reverse(s);..
000070: 20 7D 0D 0A 3E 3E 3E 20 49 54 4F 41 42 2E 43 20 }..>>> ITOAB.C
000080: 34 37 35 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 475..#define NOC
000090: 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 CARGC /* no arg
0000A0: 75 6D 65 6E 74 20 63 6F 75 6E 74 20 70 61 73 73 ument count pass
0000B0: 69 6E 67 20 2A 2F 0D 0A 2F 2A 0D 0A 2A 2A 20 69 ing */../*..** i
0000C0: 74 6F 61 62 28 6E 2C 73 2C 62 29 20 2D 20 43 6F toab(n,s,b) - Co
0000D0: 6E 76 65 72 74 20 22 75 6E 73 69 67 6E 65 64 22 nvert "unsigned"
0000E0: 20 6E 20 74 6F 20 63 68 61 72 61 63 74 65 72 73 n to characters
0000F0: 20 69 6E 20 73 20 75 73 69 6E 67 20 62 61 73 65 in s using base
000100: 20 62 2E 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 b...**
000110: 20 20 20 20 20 20 20 4E 4F 54 45 3A 20 54 68 69 NOTE: Thi
000120: 73 20 69 73 20 61 20 6E 6F 6E 2D 73 74 61 6E 64 s is a non-stand
000130: 61 72 64 20 66 75 6E 63 74 69 6F 6E 2E 0D 0A 2A ard function...*
000140: 2F 0D 0A 69 74 6F 61 62 28 6E 2C 20 73 2C 20 62 /..itoab(n, s, b
000150: 29 20 69 6E 74 20 6E 3B 20 63 68 61 72 20 2A 73 ) int n; char *s
000160: 3B 20 69 6E 74 20 62 3B 20 7B 0D 0A 20 20 63 68 ; int b; {.. ch
000170: 61 72 20 2A 70 74 72 3B 0D 0A 20 20 69 6E 74 20 ar *ptr;.. int
000180: 6C 6F 77 62 69 74 3B 0D 0A 20 20 70 74 72 20 3D lowbit;.. ptr =
000190: 20 73 3B 0D 0A 20 20 62 20 3E 3E 3D 20 31 3B 0D s;.. b >>= 1;.
0001A0: 0A 20 20 64 6F 20 7B 0D 0A 20 20 20 20 6C 6F 77 . do {.. low
0001B0: 62 69 74 20 3D 20 6E 20 26 20 31 3B 0D 0A 20 20 bit = n & 1;..
0001C0: 20 20 6E 20 3D 20 28 6E 20 3E 3E 20 31 29 20 26 n = (n >> 1) &
0001D0: 20 33 32 37 36 37 3B 0D 0A 20 20 20 20 2A 70 74 32767;.. *pt
0001E0: 72 20 3D 20 28 28 6E 20 25 20 62 29 20 3C 3C 20 r = ((n % b) <<
0001F0: 31 29 20 2B 20 6C 6F 77 62 69 74 3B 0D 0A 20 20 1) + lowbit;..
Size : 512 (Real : 512)
000000: 74 73 20 6E 62 72 20 74 6F 20 68 65 78 20 73 74 ts nbr to hex st
000010: 72 69 6E 67 20 6F 66 20 6C 65 6E 67 74 68 20 73 ring of length s
000020: 7A 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 72 69 z..** ri
000030: 67 68 74 20 61 64 6A 75 73 74 65 64 20 61 6E 64 ght adjusted and
000040: 20 62 6C 61 6E 6B 20 66 69 6C 6C 65 64 2C 20 72 blank filled, r
000050: 65 74 75 72 6E 73 20 73 74 72 0D 0A 2A 2A 0D 0A eturns str..**..
000060: 2A 2A 20 20 20 20 20 20 20 20 69 66 20 73 7A 20 ** if sz
000070: 3E 20 30 20 74 65 72 6D 69 6E 61 74 65 20 77 69 > 0 terminate wi
000080: 74 68 20 6E 75 6C 6C 20 62 79 74 65 0D 0A 2A 2A th null byte..**
000090: 20 20 20 20 20 20 20 20 69 66 20 73 7A 20 3D 20 if sz =
0000A0: 30 20 66 69 6E 64 20 65 6E 64 20 6F 66 20 73 74 0 find end of st
0000B0: 72 69 6E 67 0D 0A 2A 2A 20 20 20 20 20 20 20 20 ring..**
0000C0: 69 66 20 73 7A 20 3C 20 30 20 75 73 65 20 6C 61 if sz < 0 use la
0000D0: 73 74 20 62 79 74 65 20 66 6F 72 20 64 61 74 61 st byte for data
0000E0: 0D 0A 2A 2F 0D 0A 69 74 6F 78 28 6E 62 72 2C 20 ..*/..itox(nbr,
0000F0: 73 74 72 2C 20 73 7A 29 20 20 69 6E 74 20 6E 62 str, sz) int nb
000100: 72 3B 20 20 63 68 61 72 20 73 74 72 5B 5D 3B 20 r; char str[];
000110: 20 69 6E 74 20 73 7A 3B 20 20 7B 0D 0A 20 20 69 int sz; {.. i
000120: 6E 74 20 64 69 67 69 74 2C 20 6F 66 66 73 65 74 nt digit, offset
000130: 3B 0D 0A 20 20 69 66 28 73 7A 3E 30 29 20 73 74 ;.. if(sz>0) st
000140: 72 5B 2D 2D 73 7A 5D 3D 30 3B 0D 0A 20 20 65 6C r[--sz]=0;.. el
000150: 73 65 20 69 66 28 73 7A 3C 30 29 20 73 7A 20 3D se if(sz<0) sz =
000160: 20 2D 73 7A 3B 0D 0A 20 20 65 6C 73 65 20 77 68 -sz;.. else wh
000170: 69 6C 65 28 73 74 72 5B 73 7A 5D 21 3D 30 29 20 ile(str[sz]!=0)
000180: 2B 2B 73 7A 3B 0D 0A 20 20 77 68 69 6C 65 28 73 ++sz;.. while(s
000190: 7A 29 20 7B 0D 0A 20 20 20 20 64 69 67 69 74 3D z) {.. digit=
0001A0: 6E 62 72 26 31 35 3B 20 6E 62 72 3D 28 6E 62 72 nbr&15; nbr=(nbr
0001B0: 3E 3E 34 29 26 34 30 39 35 3B 0D 0A 20 20 20 20 >>4)&4095;..
0001C0: 69 66 28 64 69 67 69 74 3C 31 30 29 20 6F 66 66 if(digit<10) off
0001D0: 73 65 74 3D 34 38 3B 20 65 6C 73 65 20 6F 66 66 set=48; else off
0001E0: 73 65 74 3D 35 35 3B 0D 0A 20 20 20 20 73 74 72 set=55;.. str
0001F0: 5B 2D 2D 73 7A 5D 3D 64 69 67 69 74 2B 6F 66 66 [--sz]=digit+off
Size : 512 (Real : 512)
000000: 65 2C 20 4E 4F 29 29 3B 0D 0A 20 20 7D 0D 0A 3E e, NO));.. }..>
000010: 3E 3E 20 4F 54 4F 49 2E 43 20 33 36 35 0D 0A 23 >> OTOI.C 365..#
000020: 69 6E 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D include stdio.h.
000030: 0A 2F 2A 0D 0A 2A 2A 20 6F 74 6F 69 20 2D 2D 20 ./*..** otoi --
000040: 63 6F 6E 76 65 72 74 20 75 6E 73 69 67 6E 65 64 convert unsigned
000050: 20 6F 63 74 61 6C 20 73 74 72 69 6E 67 20 74 6F octal string to
000060: 20 69 6E 74 65 67 65 72 20 6E 62 72 0D 0A 2A 2A integer nbr..**
000070: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6E return
000080: 73 20 66 69 65 6C 64 20 73 69 7A 65 2C 20 65 6C s field size, el
000090: 73 65 20 45 52 52 20 6F 6E 20 65 72 72 6F 72 0D se ERR on error.
0000A0: 0A 2A 2F 0D 0A 6F 74 6F 69 28 6F 63 74 73 74 72 .*/..otoi(octstr
0000B0: 2C 20 6E 62 72 29 20 20 63 68 61 72 20 2A 6F 63 , nbr) char *oc
0000C0: 74 73 74 72 3B 20 20 69 6E 74 20 2A 6E 62 72 3B tstr; int *nbr;
0000D0: 20 20 7B 0D 0A 20 20 69 6E 74 20 64 2C 74 3B 20 {.. int d,t;
0000E0: 64 3D 30 3B 0D 0A 20 20 2A 6E 62 72 3D 30 3B 0D d=0;.. *nbr=0;.
0000F0: 0A 20 20 77 68 69 6C 65 28 28 2A 6F 63 74 73 74 . while((*octst
000100: 72 3E 3D 27 30 27 29 26 28 2A 6F 63 74 73 74 72 r>='0')&(*octstr
000110: 3C 3D 27 37 27 29 29 20 7B 0D 0A 20 20 20 20 74 <='7')) {.. t
000120: 3D 2A 6E 62 72 3B 0D 0A 20 20 20 20 74 3D 28 74 =*nbr;.. t=(t
000130: 3C 3C 33 29 20 2B 20 28 2A 6F 63 74 73 74 72 2B <<3) + (*octstr+
000140: 2B 20 2D 20 27 30 27 29 3B 0D 0A 20 20 20 20 69 + - '0');.. i
000150: 66 20 28 28 74 3E 3D 30 29 26 28 2A 6E 62 72 3C f ((t>=0)&(*nbr<
000160: 30 29 29 20 72 65 74 75 72 6E 20 45 52 52 3B 0D 0)) return ERR;.
000170: 0A 20 20 20 20 64 2B 2B 3B 20 2A 6E 62 72 3D 74 . d++; *nbr=t
000180: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 ;.. }.. retu
000190: 72 6E 20 64 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 rn d;.. }..>>>
0001A0: 50 41 44 2E 43 20 32 30 35 0D 0A 23 64 65 66 69 PAD.C 205..#defi
0001B0: 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 ne NOCCARGC /*
0001C0: 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E no argument coun
0001D0: 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 2F 2A t passing */../*
0001E0: 0D 0A 2A 2A 20 50 6C 61 63 65 20 6E 20 6F 63 63 ..** Place n occ
0001F0: 75 72 72 65 6E 63 65 73 20 6F 66 20 63 68 20 61 urrences of ch a
Size : 512 (Real : 512)
000000: 73 65 74 3B 0D 0A 20 20 20 20 69 66 28 6E 62 72 set;.. if(nbr
000010: 3D 3D 30 29 20 62 72 65 61 6B 3B 0D 0A 20 20 20 ==0) break;..
000020: 20 7D 0D 0A 20 20 77 68 69 6C 65 28 73 7A 29 20 }.. while(sz)
000030: 73 74 72 5B 2D 2D 73 7A 5D 3D 27 20 27 3B 0D 0A str[--sz]=' ';..
000040: 20 20 72 65 74 75 72 6E 20 73 74 72 3B 0D 0A 20 return str;..
000050: 20 7D 0D 0A 3E 3E 3E 20 4C 45 46 54 2E 43 20 31 }..>>> LEFT.C 1
000060: 36 35 0D 0A 2F 2A 0D 0A 2A 2A 20 6C 65 66 74 20 65../*..** left
000070: 2D 2D 20 6C 65 66 74 20 61 64 6A 75 73 74 20 61 -- left adjust a
000080: 6E 64 20 6E 75 6C 6C 20 74 65 72 6D 69 6E 61 74 nd null terminat
000090: 65 20 61 20 73 74 72 69 6E 67 0D 0A 2A 2F 0D 0A e a string..*/..
0000A0: 6C 65 66 74 28 73 74 72 29 20 63 68 61 72 20 2A left(str) char *
0000B0: 73 74 72 3B 20 7B 0D 0A 20 20 63 68 61 72 20 2A str; {.. char *
0000C0: 73 74 72 32 3B 0D 0A 20 20 73 74 72 32 3D 73 74 str2;.. str2=st
0000D0: 72 3B 0D 0A 20 20 77 68 69 6C 65 28 2A 73 74 72 r;.. while(*str
0000E0: 32 3D 3D 27 20 27 29 20 2B 2B 73 74 72 32 3B 0D 2==' ') ++str2;.
0000F0: 0A 20 20 77 68 69 6C 65 28 2A 73 74 72 2B 2B 20 . while(*str++
000100: 3D 20 2A 73 74 72 32 2B 2B 29 3B 0D 0A 20 20 7D = *str2++);.. }
000110: 0D 0A 3E 3E 3E 20 4C 45 58 43 4D 50 2E 43 20 31 ..>>> LEXCMP.C 1
000120: 33 36 32 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 362..#define NOC
000130: 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 CARGC /* no arg
000140: 75 6D 65 6E 74 20 63 6F 75 6E 74 20 70 61 73 73 ument count pass
000150: 69 6E 67 20 2A 2F 0D 0A 2F 2A 0D 0A 2A 2A 20 6C ing */../*..** l
000160: 65 78 63 6D 70 28 73 2C 20 74 29 20 2D 20 52 65 excmp(s, t) - Re
000170: 74 75 72 6E 20 61 20 6E 75 6D 62 65 72 20 3C 30 turn a number <0
000180: 2C 20 30 2C 20 6F 72 3E 30 20 0D 0A 2A 2A 20 20 , 0, or>0 ..**
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 73 as
0001A0: 20 73 20 69 73 20 3C 2C 20 3D 2C 20 6F 72 20 3E s is <, =, or >
0001B0: 20 74 2E 0D 0A 2A 2F 0D 0A 6C 65 78 63 6D 70 28 t...*/..lexcmp(
0001C0: 73 2C 20 74 29 20 63 68 61 72 20 2A 73 2C 20 2A s, t) char *s, *
0001D0: 74 3B 20 7B 0D 0A 20 20 77 68 69 6C 65 28 6C 65 t; {.. while(le
0001E0: 78 6F 72 64 65 72 28 2A 73 2C 20 2A 74 29 20 3D xorder(*s, *t) =
0001F0: 3D 20 30 29 0D 0A 20 20 20 20 69 66 28 2A 73 2B = 0).. if(*s+
Size : 512 (Real : 512)
000000: 74 20 64 65 73 74 2E 0D 0A 2A 2F 0D 0A 70 61 64 t dest...*/..pad
000010: 28 64 65 73 74 2C 20 63 68 2C 20 6E 29 20 63 68 (dest, ch, n) ch
000020: 61 72 20 2A 64 65 73 74 2C 20 2A 6E 3B 20 69 6E ar *dest, *n; in
000030: 74 20 63 68 3B 20 7B 0D 0A 20 20 2F 2A 20 6E 20 t ch; {.. /* n
000040: 69 73 20 61 20 66 61 6B 65 20 75 6E 73 69 67 6E is a fake unsign
000050: 65 64 20 69 6E 74 65 67 65 72 20 2A 2F 0D 0A 20 ed integer */..
000060: 20 77 68 69 6C 65 28 6E 2D 2D 29 20 2A 64 65 73 while(n--) *des
000070: 74 2B 2B 20 3D 20 63 68 3B 0D 0A 20 20 7D 0D 0A t++ = ch;.. }..
000080: 3E 3E 3E 20 50 4F 4C 4C 2E 43 20 33 37 37 0D 0A >>> POLL.C 377..
000090: 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 #define NOCCARGC
0000A0: 20 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 /* no argument
0000B0: 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A count passing *
0000C0: 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 /..#include stdi
0000D0: 6F 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 20 63 6C o.h..#include cl
0000E0: 69 62 2E 64 65 66 0D 0A 2F 2A 0D 0A 2A 2A 20 50 ib.def../*..** P
0000F0: 6F 6C 6C 20 66 6F 72 20 63 6F 6E 73 6F 6C 65 20 oll for console
000100: 69 6E 70 75 74 20 6F 72 20 69 6E 74 65 72 72 75 input or interru
000110: 70 74 69 6F 6E 0D 0A 2A 2F 0D 0A 70 6F 6C 6C 28 ption..*/..poll(
000120: 70 61 75 73 65 29 20 69 6E 74 20 70 61 75 73 65 pause) int pause
000130: 3B 20 7B 0D 0A 20 20 69 6E 74 20 69 3B 0D 0A 20 ; {.. int i;..
000140: 20 69 20 3D 20 55 62 64 6F 73 28 44 43 4F 4E 49 i = Ubdos(DCONI
000150: 4F 2C 20 32 35 35 29 3B 0D 0A 20 20 69 66 28 70 O, 255);.. if(p
000160: 61 75 73 65 29 20 7B 0D 0A 20 20 20 20 69 66 28 ause) {.. if(
000170: 69 20 3D 3D 20 50 41 55 53 45 29 20 7B 0D 0A 20 i == PAUSE) {..
000180: 20 20 20 20 20 77 68 69 6C 65 28 21 28 69 20 3D while(!(i =
000190: 20 55 62 64 6F 73 28 44 43 4F 4E 49 4F 2C 20 32 Ubdos(DCONIO, 2
0001A0: 35 35 29 29 29 20 3B 0D 0A 20 20 20 20 20 20 69 55))) ;.. i
0001B0: 66 28 69 20 3D 3D 20 41 42 4F 52 54 29 20 65 78 f(i == ABORT) ex
0001C0: 69 74 28 30 29 3B 0D 0A 20 20 20 20 20 20 72 65 it(0);.. re
0001D0: 74 75 72 6E 20 28 30 29 3B 0D 0A 20 20 20 20 20 turn (0);..
0001E0: 20 7D 0D 0A 20 20 20 20 69 66 28 69 20 3D 3D 20 }.. if(i ==
0001F0: 41 42 4F 52 54 29 20 65 78 69 74 28 30 29 3B 0D ABORT) exit(0);.
Size : 512 (Real : 512)
000000: 2B 29 20 2B 2B 74 3B 0D 0A 20 20 20 20 65 6C 73 +) ++t;.. els
000010: 65 20 72 65 74 75 72 6E 20 28 30 29 3B 0D 0A 20 e return (0);..
000020: 20 72 65 74 75 72 6E 20 28 6C 65 78 6F 72 64 65 return (lexorde
000030: 72 28 2A 73 2C 20 2A 74 29 29 3B 0D 0A 20 20 7D r(*s, *t));.. }
000040: 0D 0A 0D 0A 2F 2A 0D 0A 2A 2A 20 6C 65 78 6F 72 ..../*..** lexor
000050: 64 65 72 28 63 31 2C 20 63 32 29 0D 0A 2A 2A 0D der(c1, c2)..**.
000060: 0A 2A 2A 20 52 65 74 75 72 6E 20 61 20 6E 65 67 .** Return a neg
000070: 61 74 69 76 65 2C 20 7A 65 72 6F 2C 20 6F 72 20 ative, zero, or
000080: 70 6F 73 69 74 69 76 65 20 6E 75 6D 62 65 72 20 positive number
000090: 69 66 0D 0A 2A 2A 20 63 31 20 69 73 20 6C 65 73 if..** c1 is les
0000A0: 73 20 74 68 61 6E 2C 20 65 71 75 61 6C 20 74 6F s than, equal to
0000B0: 2C 20 6F 72 20 67 72 65 61 74 65 72 20 74 68 61 , or greater tha
0000C0: 6E 20 63 32 2C 0D 0A 2A 2A 20 62 61 73 65 64 20 n c2,..** based
0000D0: 6F 6E 20 61 20 6C 65 78 69 63 6F 67 72 61 70 68 on a lexicograph
0000E0: 69 63 61 6C 20 28 64 69 63 74 69 6F 6E 61 72 79 ical (dictionary
0000F0: 20 6F 72 64 65 72 29 0D 0A 2A 2A 20 63 6F 6C 61 order)..** cola
000100: 74 69 6E 67 20 73 65 71 75 65 6E 63 65 2E 0D 0A ting sequence...
000110: 2A 2A 0D 0A 2A 2F 0D 0A 63 68 61 72 20 55 6C 65 **..*/..char Ule
000120: 78 5B 31 32 38 5D 20 3D 20 7B 0D 0A 20 20 20 20 x[128] = {..
000130: 20 2F 2A 2A 2A 2A 20 4E 55 4C 20 2D 20 2F 20 2A /**** NUL - / *
000140: 2A 2A 2A 2F 0D 0A 20 20 20 20 20 20 20 30 2C 20 ***/.. 0,
000150: 20 31 2C 20 20 32 2C 20 20 33 2C 20 20 34 2C 20 1, 2, 3, 4,
000160: 20 35 2C 20 20 36 2C 20 20 37 2C 20 20 38 2C 20 5, 6, 7, 8,
000170: 20 39 2C 0D 0A 20 20 20 20 20 20 31 30 2C 20 31 9,.. 10, 1
000180: 31 2C 20 31 32 2C 20 31 33 2C 20 31 34 2C 20 31 1, 12, 13, 14, 1
000190: 35 2C 20 31 36 2C 20 31 37 2C 20 31 38 2C 20 31 5, 16, 17, 18, 1
0001A0: 39 2C 0D 0A 20 20 20 20 20 20 32 30 2C 20 32 31 9,.. 20, 21
0001B0: 2C 20 32 32 2C 20 32 33 2C 20 32 34 2C 20 32 35 , 22, 23, 24, 25
0001C0: 2C 20 32 36 2C 20 32 37 2C 20 32 38 2C 20 32 39 , 26, 27, 28, 29
0001D0: 2C 0D 0A 20 20 20 20 20 20 33 30 2C 20 33 31 2C ,.. 30, 31,
0001E0: 20 33 32 2C 20 33 33 2C 20 33 34 2C 20 33 35 2C 32, 33, 34, 35,
0001F0: 20 33 36 2C 20 33 37 2C 20 33 38 2C 20 33 39 2C 36, 37, 38, 39,
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E . }.. return
000010: 20 28 69 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 (i);.. }..>>>
000020: 50 55 54 43 48 41 52 2E 43 20 31 36 39 0D 0A 23 PUTCHAR.C 169..#
000030: 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 define NOCCARGC
000040: 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 /* no argument
000050: 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F count passing */
000060: 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 6F ..#include stdio
000070: 2E 68 0D 0A 2F 2A 0D 0A 2A 2A 20 57 72 69 74 65 .h../*..** Write
000080: 20 63 68 61 72 61 63 74 65 72 20 74 6F 20 73 74 character to st
000090: 61 6E 64 61 72 64 20 6F 75 74 70 75 74 2E 20 0D andard output. .
0000A0: 0A 2A 2F 0D 0A 70 75 74 63 68 61 72 28 63 68 29 .*/..putchar(ch)
0000B0: 20 69 6E 74 20 63 68 3B 20 7B 0D 0A 20 20 72 65 int ch; {.. re
0000C0: 74 75 72 6E 20 28 66 70 75 74 63 28 63 68 2C 20 turn (fputc(ch,
0000D0: 73 74 64 6F 75 74 29 29 3B 0D 0A 20 20 7D 0D 0A stdout));.. }..
0000E0: 3E 3E 3E 20 50 55 54 53 2E 43 20 31 39 31 0D 0A >>> PUTS.C 191..
0000F0: 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 #define NOCCARGC
000100: 20 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 /* no argument
000110: 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A count passing *
000120: 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 /..#include stdi
000130: 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A 20 57 72 69 74 o.h../*..** Writ
000140: 65 20 73 74 72 69 6E 67 20 74 6F 20 73 74 61 6E e string to stan
000150: 64 61 72 64 20 6F 75 74 70 75 74 2E 20 0D 0A 2A dard output. ..*
000160: 2F 0D 0A 70 75 74 73 28 73 74 72 69 6E 67 29 20 /..puts(string)
000170: 63 68 61 72 20 2A 73 74 72 69 6E 67 3B 20 7B 0D char *string; {.
000180: 0A 20 20 66 70 75 74 73 28 73 74 72 69 6E 67 2C . fputs(string,
000190: 20 73 74 64 6F 75 74 29 3B 0D 0A 20 20 66 70 75 stdout);.. fpu
0001A0: 74 63 28 27 5C 6E 27 2C 20 73 74 64 6F 75 74 29 tc('\n', stdout)
0001B0: 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 52 45 4E 41 ;.. }..>>> RENA
0001C0: 4D 45 2E 43 20 35 33 39 0D 0A 23 64 65 66 69 6E ME.C 539..#defin
0001D0: 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 6E e NOCCARGC /* n
0001E0: 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E 74 o argument count
0001F0: 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 6E passing */..#in
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 34 30 2C 20 34 31 2C 20 .. 40, 41,
000010: 34 32 2C 20 34 33 2C 20 34 34 2C 20 34 35 2C 20 42, 43, 44, 45,
000020: 34 36 2C 20 34 37 2C 0D 0A 20 20 20 20 20 2F 2A 46, 47,.. /*
000030: 2A 2A 2A 20 30 2D 39 20 2A 2A 2A 2A 2F 0D 0A 20 *** 0-9 ****/..
000040: 20 20 20 20 20 36 35 2C 20 36 36 2C 20 36 37 2C 65, 66, 67,
000050: 20 36 38 2C 20 36 39 2C 20 37 30 2C 20 37 31 2C 68, 69, 70, 71,
000060: 20 37 32 2C 20 37 33 2C 20 37 34 2C 0D 0A 20 20 72, 73, 74,..
000070: 20 20 20 2F 2A 2A 2A 2A 20 3A 20 3B 20 3C 20 3D /**** : ; < =
000080: 20 3E 20 3F 20 40 20 2A 2A 2A 2A 2F 0D 0A 20 20 > ? @ ****/..
000090: 20 20 20 20 34 38 2C 20 34 39 2C 20 35 30 2C 20 48, 49, 50,
0000A0: 35 31 2C 20 35 32 2C 20 35 33 2C 20 35 34 2C 0D 51, 52, 53, 54,.
0000B0: 0A 20 20 20 20 20 2F 2A 2A 2A 2A 20 41 2D 5A 20 . /**** A-Z
0000C0: 2A 2A 2A 2A 2F 0D 0A 20 20 20 20 20 20 37 35 2C ****/.. 75,
0000D0: 20 37 36 2C 20 37 37 2C 20 37 38 2C 20 37 39 2C 76, 77, 78, 79,
0000E0: 20 38 30 2C 20 38 31 2C 20 38 32 2C 20 38 33 2C 80, 81, 82, 83,
0000F0: 20 38 34 2C 20 38 35 2C 20 38 36 2C 20 38 37 2C 84, 85, 86, 87,
000100: 0D 0A 20 20 20 20 20 20 38 38 2C 20 38 39 2C 20 .. 88, 89,
000110: 39 30 2C 20 39 31 2C 20 39 32 2C 20 39 33 2C 20 90, 91, 92, 93,
000120: 39 34 2C 20 39 35 2C 20 39 36 2C 20 39 37 2C 20 94, 95, 96, 97,
000130: 39 38 2C 20 39 39 2C 31 30 30 2C 0D 0A 20 20 20 98, 99,100,..
000140: 20 20 2F 2A 2A 2A 2A 20 5B 20 5C 20 5D 20 5E 20 /**** [ \ ] ^
000150: 55 20 60 20 2A 2A 2A 2A 2F 0D 0A 20 20 20 20 20 U ` ****/..
000160: 20 35 35 2C 20 35 36 2C 20 35 37 2C 20 35 38 2C 55, 56, 57, 58,
000170: 20 35 39 2C 20 36 30 2C 0D 0A 20 20 20 20 20 2F 59, 60,.. /
000180: 2A 2A 2A 2A 20 61 2D 7A 20 2A 2A 2A 2A 2F 0D 0A **** a-z ****/..
000190: 20 20 20 20 20 20 37 35 2C 20 37 36 2C 20 37 37 75, 76, 77
0001A0: 2C 20 37 38 2C 20 37 39 2C 20 38 30 2C 20 38 31 , 78, 79, 80, 81
0001B0: 2C 20 38 32 2C 20 38 33 2C 20 38 34 2C 20 38 35 , 82, 83, 84, 85
0001C0: 2C 20 38 36 2C 20 38 37 2C 0D 0A 20 20 20 20 20 , 86, 87,..
0001D0: 20 38 38 2C 20 38 39 2C 20 39 30 2C 20 39 31 2C 88, 89, 90, 91,
0001E0: 20 39 32 2C 20 39 33 2C 20 39 34 2C 20 39 35 2C 92, 93, 94, 95,
0001F0: 20 39 36 2C 20 39 37 2C 20 39 38 2C 20 39 39 2C 96, 97, 98, 99,
Size : 512 (Real : 512)
000000: 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A 23 clude stdio.h..#
000010: 69 6E 63 6C 75 64 65 20 63 6C 69 62 2E 64 65 66 include clib.def
000020: 0D 0A 2F 2A 0D 0A 2A 2A 20 52 65 6E 61 6D 65 20 ../*..** Rename
000030: 61 20 66 69 6C 65 2E 0D 0A 2A 2A 20 20 66 72 6F a file...** fro
000040: 6D 20 3D 20 61 64 64 72 65 73 73 20 6F 66 20 6F m = address of o
000050: 6C 64 20 66 69 6C 65 6E 61 6D 65 2E 0D 0A 2A 2A ld filename...**
000060: 20 20 20 20 74 6F 20 3D 20 61 64 64 72 65 73 73 to = address
000070: 20 6F 66 20 6E 65 77 20 66 69 6C 65 6E 61 6D 65 of new filename
000080: 2E 0D 0A 2A 2A 20 20 52 65 74 75 72 6E 73 20 4E ...** Returns N
000090: 55 4C 4C 20 6F 6E 20 73 75 63 63 65 73 73 2C 20 ULL on success,
0000A0: 65 6C 73 65 20 45 52 52 2E 0D 0A 2A 2F 0D 0A 72 else ERR...*/..r
0000B0: 65 6E 61 6D 65 28 66 72 6F 6D 2C 20 74 6F 29 20 ename(from, to)
0000C0: 63 68 61 72 20 2A 66 72 6F 6D 2C 20 2A 74 6F 3B char *from, *to;
0000D0: 20 7B 0D 0A 20 20 63 68 61 72 20 66 63 62 5B 46 {.. char fcb[F
0000E0: 43 42 53 49 5A 45 5D 3B 0D 0A 20 20 70 61 64 28 CBSIZE];.. pad(
0000F0: 66 63 62 2C 20 4E 55 4C 4C 2C 20 46 43 42 53 49 fcb, NULL, FCBSI
000100: 5A 45 29 3B 0D 0A 20 20 69 66 28 21 55 6E 65 77 ZE);.. if(!Unew
000110: 66 63 62 28 74 6F 2C 20 66 63 62 29 20 7C 7C 20 fcb(to, fcb) ||
000120: 55 62 64 6F 73 28 4F 50 4E 46 49 4C 2C 20 66 63 Ubdos(OPNFIL, fc
000130: 62 29 20 21 3D 20 32 35 35 29 20 7B 0D 0A 20 20 b) != 255) {..
000140: 20 20 55 62 64 6F 73 28 43 4C 4F 46 49 4C 2C 20 Ubdos(CLOFIL,
000150: 66 63 62 29 3B 0D 0A 20 20 20 20 72 65 74 75 72 fcb);.. retur
000160: 6E 20 28 45 52 52 29 3B 0D 0A 20 20 20 20 7D 0D n (ERR);.. }.
000170: 0A 20 20 69 66 28 55 6E 65 77 66 63 62 28 66 72 . if(Unewfcb(fr
000180: 6F 6D 2C 20 66 63 62 29 20 26 26 0D 0A 20 20 20 om, fcb) &&..
000190: 20 20 55 6E 65 77 66 63 62 28 74 6F 2C 20 66 63 Unewfcb(to, fc
0001A0: 62 2B 4E 41 4D 45 4F 46 46 32 29 20 26 26 0D 0A b+NAMEOFF2) &&..
0001B0: 20 20 20 20 20 55 62 64 6F 73 28 52 45 4E 41 4D Ubdos(RENAM
0001C0: 45 2C 20 66 63 62 29 20 21 3D 20 32 35 35 29 0D E, fcb) != 255).
0001D0: 0A 20 20 20 20 72 65 74 75 72 6E 20 28 4E 55 4C . return (NUL
0001E0: 4C 29 3B 0D 0A 20 20 72 65 74 75 72 6E 20 28 45 L);.. return (E
0001F0: 52 52 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 52 RR);.. }..>>> R
Size : 512 (Real : 512)
000000: 31 30 30 2C 0D 0A 20 20 20 20 20 2F 2A 2A 2A 2A 100,.. /****
000010: 20 7B 20 7C 20 7D 20 7E 20 2A 2A 2A 2A 2F 0D 0A { | } ~ ****/..
000020: 20 20 20 20 20 20 36 31 2C 20 36 32 2C 20 36 33 61, 62, 63
000030: 2C 20 36 34 2C 0D 0A 20 20 20 20 20 2F 2A 2A 2A , 64,.. /***
000040: 2A 20 44 45 4C 20 2A 2A 2A 2A 2F 0D 0A 20 20 20 * DEL ****/..
000050: 20 20 31 30 31 0D 0A 20 20 20 20 20 7D 3B 0D 0A 101.. };..
000060: 0D 0A 6C 65 78 6F 72 64 65 72 28 63 31 2C 20 63 ..lexorder(c1, c
000070: 32 29 20 63 68 61 72 20 63 31 2C 20 63 32 3B 20 2) char c1, c2;
000080: 7B 0D 0A 20 20 72 65 74 75 72 6E 28 55 6C 65 78 {.. return(Ulex
000090: 5B 63 31 5D 20 2D 20 55 6C 65 78 5B 63 32 5D 29 [c1] - Ulex[c2])
0000A0: 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 4C 49 4E 4B ;.. }..>>> LINK
0000B0: 2E 4D 41 43 20 33 30 0D 0A 55 6C 69 6E 6B 3A 3A .MAC 30..Ulink::
0000C0: 20 65 78 74 20 55 6D 61 69 6E 0D 0A 20 20 20 20 ext Umain..
0000D0: 20 20 20 20 65 6E 64 0D 0A 3E 3E 3E 20 4D 41 4C end..>>> MAL
0000E0: 4C 4F 43 2E 43 20 32 38 31 0D 0A 23 64 65 66 69 LOC.C 281..#defi
0000F0: 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 ne NOCCARGC /*
000100: 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E no argument coun
000110: 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 23 69 t passing */..#i
000120: 6E 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D 0A nclude stdio.h..
000130: 2F 2A 0D 0A 2A 2A 20 4D 65 6D 6F 72 79 20 61 6C /*..** Memory al
000140: 6C 6F 63 61 74 69 6F 6E 20 6F 66 20 73 69 7A 65 location of size
000150: 20 62 79 74 65 73 2E 0D 0A 2A 2A 20 73 69 7A 65 bytes...** size
000160: 20 20 3D 20 53 69 7A 65 20 6F 66 20 74 68 65 20 = Size of the
000170: 62 6C 6F 63 6B 20 69 6E 20 62 79 74 65 73 2E 0D block in bytes..
000180: 0A 2A 2A 20 52 65 74 75 72 6E 73 20 74 68 65 20 .** Returns the
000190: 61 64 64 72 65 73 73 20 6F 66 20 74 68 65 20 61 address of the a
0001A0: 6C 6C 6F 63 61 74 65 64 20 62 6C 6F 63 6B 2C 0D llocated block,.
0001B0: 0A 2A 2A 20 65 6C 73 65 20 4E 55 4C 4C 20 66 6F .** else NULL fo
0001C0: 72 20 66 61 69 6C 75 72 65 2E 0D 0A 2A 2F 0D 0A r failure...*/..
0001D0: 6D 61 6C 6C 6F 63 28 73 69 7A 65 29 20 63 68 61 malloc(size) cha
0001E0: 72 20 2A 73 69 7A 65 3B 20 7B 0D 0A 20 20 72 65 r *size; {.. re
0001F0: 74 75 72 6E 20 28 55 61 6C 6C 6F 63 28 73 69 7A turn (Ualloc(siz
Size : 512 (Real : 512)
000000: 45 56 45 52 53 45 2E 43 20 32 32 30 0D 0A 23 64 EVERSE.C 220..#d
000010: 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 efine NOCCARGC
000020: 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 /* no argument c
000030: 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D ount passing */.
000040: 0A 2F 2A 0D 0A 2A 2A 20 72 65 76 65 72 73 65 20 ./*..** reverse
000050: 73 74 72 69 6E 67 20 69 6E 20 70 6C 61 63 65 20 string in place
000060: 0D 0A 2A 2F 0D 0A 72 65 76 65 72 73 65 28 73 29 ..*/..reverse(s)
000070: 20 63 68 61 72 20 2A 73 3B 20 7B 0D 0A 20 20 63 char *s; {.. c
000080: 68 61 72 20 2A 6A 3B 0D 0A 20 20 69 6E 74 20 63 har *j;.. int c
000090: 3B 0D 0A 20 20 6A 20 3D 20 73 20 2B 20 73 74 72 ;.. j = s + str
0000A0: 6C 65 6E 28 73 29 20 2D 20 31 3B 0D 0A 20 20 77 len(s) - 1;.. w
0000B0: 68 69 6C 65 28 73 20 3C 20 6A 29 20 7B 0D 0A 20 hile(s < j) {..
0000C0: 20 20 20 63 20 3D 20 2A 73 3B 0D 0A 20 20 20 20 c = *s;..
0000D0: 2A 73 2B 2B 20 3D 20 2A 6A 3B 0D 0A 20 20 20 20 *s++ = *j;..
0000E0: 2A 6A 2D 2D 20 3D 20 63 3B 0D 0A 20 20 20 20 7D *j-- = c;.. }
0000F0: 0D 0A 20 20 7D 0D 0A 0D 0A 3E 3E 3E 20 52 45 57 .. }....>>> REW
000100: 49 4E 44 2E 43 20 31 33 38 0D 0A 23 64 65 66 69 IND.C 138..#defi
000110: 6E 65 20 4E 4F 43 43 41 52 47 43 20 20 2F 2A 20 ne NOCCARGC /*
000120: 6E 6F 20 61 72 67 75 6D 65 6E 74 20 63 6F 75 6E no argument coun
000130: 74 20 70 61 73 73 69 6E 67 20 2A 2F 0D 0A 2F 2A t passing */../*
000140: 0D 0A 2A 2A 20 52 65 77 69 6E 64 20 66 69 6C 65 ..** Rewind file
000150: 20 74 6F 20 62 65 67 69 6E 6E 69 6E 67 2E 20 0D to beginning. .
000160: 0A 2A 2F 0D 0A 72 65 77 69 6E 64 28 66 64 29 20 .*/..rewind(fd)
000170: 69 6E 74 20 66 64 3B 20 7B 0D 0A 20 20 72 65 74 int fd; {.. ret
000180: 75 72 6E 28 63 73 65 65 6B 28 66 64 2C 20 30 2C urn(cseek(fd, 0,
000190: 20 30 29 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 0));.. }..>>>
0001A0: 53 49 47 4E 2E 43 20 31 34 38 0D 0A 2F 2A 0D 0A SIGN.C 148../*..
0001B0: 2A 2A 20 73 69 67 6E 20 2D 2D 20 72 65 74 75 72 ** sign -- retur
0001C0: 6E 20 2D 31 2C 20 30 2C 20 2B 31 20 64 65 70 65 n -1, 0, +1 depe
0001D0: 6E 64 69 6E 67 20 6F 6E 20 74 68 65 20 73 69 67 nding on the sig
0001E0: 6E 20 6F 66 20 6E 62 72 0D 0A 2A 2F 0D 0A 73 69 n of nbr..*/..si
0001F0: 67 6E 28 6E 62 72 29 20 20 69 6E 74 20 6E 62 72 gn(nbr) int nbr
Size : 512 (Real : 512)
000000: 73 74 2C 20 73 6F 75 72 2C 20 6E 29 20 63 68 61 st, sour, n) cha
000010: 72 20 2A 64 65 73 74 2C 20 2A 73 6F 75 72 3B 20 r *dest, *sour;
000020: 69 6E 74 20 6E 3B 20 7B 0D 0A 20 20 63 68 61 72 int n; {.. char
000030: 20 2A 64 3B 0D 0A 20 20 64 20 3D 20 64 65 73 74 *d;.. d = dest
000040: 3B 0D 0A 20 20 77 68 69 6C 65 28 6E 2D 2D 20 3E ;.. while(n-- >
000050: 20 30 29 20 7B 0D 0A 20 20 20 20 69 66 28 2A 64 0) {.. if(*d
000060: 2B 2B 20 3D 20 2A 73 6F 75 72 2B 2B 29 20 63 6F ++ = *sour++) co
000070: 6E 74 69 6E 75 65 3B 0D 0A 20 20 20 20 77 68 69 ntinue;.. whi
000080: 6C 65 28 6E 2D 2D 20 3E 20 30 29 20 2A 64 2B 2B le(n-- > 0) *d++
000090: 20 3D 20 30 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 = 0;.. }..
0000A0: 2A 64 20 3D 20 30 3B 0D 0A 20 20 72 65 74 75 72 *d = 0;.. retur
0000B0: 6E 20 28 64 65 73 74 29 3B 0D 0A 20 20 7D 0D 0A n (dest);.. }..
0000C0: 3E 3E 3E 20 53 54 52 52 43 48 52 2E 43 20 33 31 >>> STRRCHR.C 31
0000D0: 34 0D 0A 2F 2A 0D 0A 2A 2A 20 73 74 72 72 63 68 4../*..** strrch
0000E0: 72 28 73 2C 63 29 20 2D 20 53 65 61 72 63 68 20 r(s,c) - Search
0000F0: 73 20 66 6F 72 20 72 69 67 68 74 6D 6F 73 74 20 s for rightmost
000100: 6F 63 63 75 72 72 61 6E 63 65 20 6F 66 20 63 2E occurrance of c.
000110: 0D 0A 2A 2A 20 73 20 20 20 20 20 20 3D 20 50 6F ..** s = Po
000120: 69 6E 74 65 72 20 74 6F 20 73 74 72 69 6E 67 20 inter to string
000130: 74 6F 20 62 65 20 73 65 61 72 63 68 65 64 2E 0D to be searched..
000140: 0A 2A 2A 20 63 20 20 20 20 20 20 3D 20 43 68 61 .** c = Cha
000150: 72 61 63 74 65 72 20 74 6F 20 73 65 61 72 63 68 racter to search
000160: 20 66 6F 72 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E for...** Return
000170: 73 20 70 6F 69 6E 74 65 72 20 74 6F 20 72 69 67 s pointer to rig
000180: 68 74 6D 6F 73 74 20 63 20 6F 72 20 4E 55 4C 4C htmost c or NULL
000190: 2E 0D 0A 2A 2F 0D 0A 73 74 72 72 63 68 72 28 73 ...*/..strrchr(s
0001A0: 2C 20 63 29 20 63 68 61 72 20 2A 73 2C 20 63 3B , c) char *s, c;
0001B0: 20 7B 0D 0A 20 20 63 68 61 72 20 2A 70 74 72 3B {.. char *ptr;
0001C0: 0D 0A 20 20 70 74 72 20 3D 20 30 3B 0D 0A 20 20 .. ptr = 0;..
0001D0: 77 68 69 6C 65 28 2A 73 29 20 7B 0D 0A 20 20 20 while(*s) {..
0001E0: 20 69 66 28 2A 73 3D 3D 63 29 20 70 74 72 20 3D if(*s==c) ptr =
0001F0: 20 73 3B 0D 0A 20 20 20 20 2B 2B 73 3B 0D 0A 20 s;.. ++s;..
Size : 512 (Real : 512)
000000: 3B 20 20 7B 0D 0A 20 20 69 66 28 6E 62 72 3E 30 ; {.. if(nbr>0
000010: 29 20 72 65 74 75 72 6E 20 31 3B 0D 0A 20 20 69 ) return 1;.. i
000020: 66 28 6E 62 72 3D 3D 30 29 20 72 65 74 75 72 6E f(nbr==0) return
000030: 20 30 3B 0D 0A 20 20 72 65 74 75 72 6E 20 2D 31 0;.. return -1
000040: 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 53 54 44 49 ;.. }..>>> STDI
000050: 4F 2E 48 20 32 39 36 0D 0A 2F 2A 0D 0A 2A 2A 20 O.H 296../*..**
000060: 53 54 44 49 4F 2E 48 20 2D 2D 20 53 74 61 6E 64 STDIO.H -- Stand
000070: 61 72 64 20 53 6D 61 6C 6C 2D 43 20 44 65 66 69 ard Small-C Defi
000080: 6E 69 74 69 6F 6E 73 0D 0A 2A 2F 0D 0A 23 64 65 nitions..*/..#de
000090: 66 69 6E 65 20 73 74 64 69 6E 20 20 20 20 30 0D fine stdin 0.
0000A0: 0A 23 64 65 66 69 6E 65 20 73 74 64 6F 75 74 20 .#define stdout
0000B0: 20 20 31 0D 0A 23 64 65 66 69 6E 65 20 73 74 64 1..#define std
0000C0: 65 72 72 20 20 20 32 0D 0A 23 64 65 66 69 6E 65 err 2..#define
0000D0: 20 45 52 52 20 20 20 28 2D 32 29 0D 0A 23 64 65 ERR (-2)..#de
0000E0: 66 69 6E 65 20 45 4F 46 20 20 20 28 2D 31 29 0D fine EOF (-1).
0000F0: 0A 23 64 65 66 69 6E 65 20 59 45 53 20 20 20 20 .#define YES
000100: 20 20 31 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 20 1..#define NO
000110: 20 20 20 20 20 20 30 0D 0A 23 64 65 66 69 6E 65 0..#define
000120: 20 4E 55 4C 4C 20 20 20 20 20 30 0D 0A 23 64 65 NULL 0..#de
000130: 66 69 6E 65 20 43 52 20 20 20 20 20 20 31 33 0D fine CR 13.
000140: 0A 23 64 65 66 69 6E 65 20 4C 46 20 20 20 20 20 .#define LF
000150: 20 31 30 0D 0A 23 64 65 66 69 6E 65 20 42 45 4C 10..#define BEL
000160: 4C 20 20 20 20 20 37 0D 0A 23 64 65 66 69 6E 65 L 7..#define
000170: 20 53 50 41 43 45 20 20 27 20 27 0D 0A 23 64 65 SPACE ' '..#de
000180: 66 69 6E 65 20 4E 45 57 4C 49 4E 45 20 4C 46 0D fine NEWLINE LF.
000190: 0A 3E 3E 3E 20 53 54 52 43 41 54 2E 43 20 31 37 .>>> STRCAT.C 17
0001A0: 35 0D 0A 2F 2A 0D 0A 2A 2A 20 63 6F 6E 63 61 74 5../*..** concat
0001B0: 65 6E 61 74 65 20 74 20 74 6F 20 65 6E 64 20 6F enate t to end o
0001C0: 66 20 73 20 0D 0A 2A 2A 20 73 20 6D 75 73 74 20 f s ..** s must
0001D0: 62 65 20 6C 61 72 67 65 20 65 6E 6F 75 67 68 0D be large enough.
0001E0: 0A 2A 2F 0D 0A 73 74 72 63 61 74 28 73 2C 20 74 .*/..strcat(s, t
0001F0: 29 20 63 68 61 72 20 2A 73 2C 20 2A 74 3B 20 7B ) char *s, *t; {
Size : 512 (Real : 512)
000000: 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 28 }.. return (
000010: 70 74 72 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 ptr);.. }..>>>
000020: 54 4F 41 53 43 49 49 2E 43 20 37 36 0D 0A 2F 2A TOASCII.C 76../*
000030: 0D 0A 2A 2A 20 72 65 74 75 72 6E 20 41 53 43 49 ..** return ASCI
000040: 49 20 65 71 75 69 76 61 6C 65 6E 74 20 6F 66 20 I equivalent of
000050: 63 0D 0A 2A 2F 0D 0A 74 6F 61 73 63 69 69 28 63 c..*/..toascii(c
000060: 29 20 69 6E 74 20 63 3B 20 7B 0D 0A 20 20 72 65 ) int c; {.. re
000070: 74 75 72 6E 20 28 63 29 3B 0D 0A 20 20 7D 0D 0A turn (c);.. }..
000080: 3E 3E 3E 20 54 4F 4C 4F 57 45 52 2E 43 20 31 33 >>> TOLOWER.C 13
000090: 30 0D 0A 2F 2A 0D 0A 2A 2A 20 72 65 74 75 72 6E 0../*..** return
0000A0: 20 6C 6F 77 65 72 2D 63 61 73 65 20 6F 66 20 63 lower-case of c
0000B0: 20 69 66 20 75 70 70 65 72 2D 63 61 73 65 2C 20 if upper-case,
0000C0: 65 6C 73 65 20 63 0D 0A 2A 2F 0D 0A 74 6F 6C 6F else c..*/..tolo
0000D0: 77 65 72 28 63 29 20 69 6E 74 20 63 3B 20 7B 0D wer(c) int c; {.
0000E0: 0A 20 20 69 66 28 63 3C 3D 27 5A 27 20 26 26 20 . if(c<='Z' &&
0000F0: 63 3E 3D 27 41 27 29 20 72 65 74 75 72 6E 20 28 c>='A') return (
000100: 63 2B 33 32 29 3B 0D 0A 20 20 72 65 74 75 72 6E c+32);.. return
000110: 20 28 63 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 (c);.. }..>>>
000120: 54 4F 55 50 50 45 52 2E 43 20 31 33 36 0D 0A 2F TOUPPER.C 136../
000130: 2A 0D 0A 2A 2A 20 72 65 74 75 72 6E 20 75 70 70 *..** return upp
000140: 65 72 2D 63 61 73 65 20 6F 66 20 63 20 69 66 20 er-case of c if
000150: 69 74 20 69 73 20 6C 6F 77 65 72 2D 63 61 73 65 it is lower-case
000160: 2C 20 65 6C 73 65 20 63 0D 0A 2A 2F 0D 0A 74 6F , else c..*/..to
000170: 75 70 70 65 72 28 63 29 20 69 6E 74 20 63 3B 20 upper(c) int c;
000180: 7B 0D 0A 20 20 69 66 28 63 3C 3D 27 7A 27 20 26 {.. if(c<='z' &
000190: 26 20 63 3E 3D 27 61 27 29 20 72 65 74 75 72 6E & c>='a') return
0001A0: 20 28 63 2D 33 32 29 3B 0D 0A 20 20 72 65 74 75 (c-32);.. retu
0001B0: 72 6E 20 28 63 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E rn (c);.. }..>>
0001C0: 3E 20 55 4E 47 45 54 43 2E 43 20 33 34 32 0D 0A > UNGETC.C 342..
0001D0: 23 64 65 66 69 6E 65 20 4E 4F 43 43 41 52 47 43 #define NOCCARGC
0001E0: 20 20 2F 2A 20 6E 6F 20 61 72 67 75 6D 65 6E 74 /* no argument
0001F0: 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A count passing *
Size : 512 (Real : 512)
000000: 0D 0A 20 20 63 68 61 72 20 2A 64 3B 0D 0A 20 20 .. char *d;..
000010: 64 20 3D 20 73 3B 0D 0A 20 20 2D 2D 73 3B 0D 0A d = s;.. --s;..
000020: 20 20 77 68 69 6C 65 20 28 2A 2B 2B 73 29 20 3B while (*++s) ;
000030: 0D 0A 20 20 77 68 69 6C 65 20 28 2A 73 2B 2B 20 .. while (*s++
000040: 3D 20 2A 74 2B 2B 29 20 3B 0D 0A 20 20 72 65 74 = *t++) ;.. ret
000050: 75 72 6E 28 64 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E urn(d);.. }..>>
000060: 3E 20 53 54 52 43 48 52 2E 43 20 31 37 36 0D 0A > STRCHR.C 176..
000070: 2F 2A 0D 0A 2A 2A 20 72 65 74 75 72 6E 20 70 6F /*..** return po
000080: 69 6E 74 65 72 20 74 6F 20 31 73 74 20 6F 63 63 inter to 1st occ
000090: 75 72 72 65 6E 63 65 20 6F 66 20 63 20 69 6E 20 urrence of c in
0000A0: 73 74 72 2C 20 65 6C 73 65 20 30 0D 0A 2A 2F 0D str, else 0..*/.
0000B0: 0A 73 74 72 63 68 72 28 73 74 72 2C 20 63 29 20 .strchr(str, c)
0000C0: 63 68 61 72 20 2A 73 74 72 2C 20 63 3B 20 7B 0D char *str, c; {.
0000D0: 0A 20 20 77 68 69 6C 65 28 2A 73 74 72 29 20 7B . while(*str) {
0000E0: 0D 0A 20 20 20 20 69 66 28 2A 73 74 72 20 3D 3D .. if(*str ==
0000F0: 20 63 29 20 72 65 74 75 72 6E 20 28 73 74 72 29 c) return (str)
000100: 3B 0D 0A 20 20 20 20 2B 2B 73 74 72 3B 0D 0A 20 ;.. ++str;..
000110: 20 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 28 }.. return (
000120: 30 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 53 54 0);.. }..>>> ST
000130: 52 43 4D 50 2E 43 20 31 38 35 0D 0A 2F 2A 0D 0A RCMP.C 185../*..
000140: 2A 2A 20 72 65 74 75 72 6E 20 3C 30 2C 20 20 20 ** return <0,
000150: 30 2C 20 20 3E 30 20 61 55 6F 72 64 69 6E 67 20 0, >0 aUording
000160: 74 6F 0D 0A 2A 2A 20 20 20 20 20 20 20 73 3C 74 to..** s<t
000170: 2C 20 73 3D 74 2C 20 73 3E 74 0D 0A 2A 2F 0D 0A , s=t, s>t..*/..
000180: 73 74 72 63 6D 70 28 73 2C 20 74 29 20 63 68 61 strcmp(s, t) cha
000190: 72 20 2A 73 2C 20 2A 74 3B 20 7B 0D 0A 20 20 77 r *s, *t; {.. w
0001A0: 68 69 6C 65 28 2A 73 20 3D 3D 20 2A 74 29 20 7B hile(*s == *t) {
0001B0: 0D 0A 20 20 20 20 69 66 28 2A 73 20 3D 3D 20 30 .. if(*s == 0
0001C0: 29 20 72 65 74 75 72 6E 20 28 30 29 3B 0D 0A 20 ) return (0);..
0001D0: 20 20 20 2B 2B 73 3B 20 2B 2B 74 3B 0D 0A 20 20 ++s; ++t;..
0001E0: 20 20 7D 0D 0A 20 20 72 65 74 75 72 6E 20 28 2A }.. return (*
0001F0: 73 20 2D 20 2A 74 29 3B 0D 0A 20 20 7D 0D 0A 0D s - *t);.. }...
Size : 512 (Real : 512)
000000: 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 /..#include stdi
000010: 6F 2E 68 0D 0A 65 78 74 65 72 6E 20 55 6E 65 78 o.h..extern Unex
000020: 74 63 5B 5D 3B 0D 0A 2F 2A 0D 0A 2A 2A 20 50 75 tc[];../*..** Pu
000030: 74 20 63 20 62 61 63 6B 20 69 6E 74 6F 20 66 69 t c back into fi
000040: 6C 65 20 66 64 2E 0D 0A 2A 2A 20 45 6E 74 72 79 le fd...** Entry
000050: 3A 20 20 63 20 3D 20 63 68 61 72 61 63 74 65 72 : c = character
000060: 20 74 6F 20 70 75 74 20 62 61 63 6B 0D 0A 2A 2A to put back..**
000070: 20 20 20 20 20 20 20 20 66 64 20 3D 20 66 69 6C fd = fil
000080: 65 20 64 65 73 63 72 69 70 74 6F 72 0D 0A 2A 2A e descriptor..**
000090: 20 52 65 74 75 72 6E 73 20 63 20 69 66 20 73 75 Returns c if su
0000A0: 63 63 65 73 73 66 75 6C 2C 20 65 6C 73 65 20 45 ccessful, else E
0000B0: 4F 46 2E 0D 0A 2A 2F 0D 0A 75 6E 67 65 74 63 28 OF...*/..ungetc(
0000C0: 63 2C 20 66 64 29 20 69 6E 74 20 63 2C 20 66 64 c, fd) int c, fd
0000D0: 3B 20 7B 0D 0A 20 20 69 66 28 21 55 6D 6F 64 65 ; {.. if(!Umode
0000E0: 28 66 64 29 20 7C 7C 20 55 6E 65 78 74 63 5B 66 (fd) || Unextc[f
0000F0: 64 5D 21 3D 45 4F 46 20 7C 7C 20 63 3D 3D 45 4F d]!=EOF || c==EO
000100: 46 29 20 72 65 74 75 72 6E 20 28 45 4F 46 29 3B F) return (EOF);
000110: 0D 0A 20 20 72 65 74 75 72 6E 20 28 55 6E 65 78 .. return (Unex
000120: 74 63 5B 66 64 5D 20 3D 20 63 29 3B 0D 0A 20 20 tc[fd] = c);..
000130: 7D 0D 0A 3E 3E 3E 20 55 4E 4C 49 4E 4B 2E 43 20 }..>>> UNLINK.C
000140: 34 37 37 0D 0A 23 64 65 66 69 6E 65 20 4E 4F 43 477..#define NOC
000150: 43 41 52 47 43 20 20 2F 2A 20 6E 6F 20 61 72 67 CARGC /* no arg
000160: 20 63 6F 75 6E 74 20 70 61 73 73 69 6E 67 20 2A count passing *
000170: 2F 0D 0A 23 69 6E 63 6C 75 64 65 20 73 74 64 69 /..#include stdi
000180: 6F 2E 68 0D 0A 23 69 6E 63 6C 75 64 65 20 63 6C o.h..#include cl
000190: 69 62 2E 64 65 66 0D 0A 2F 2A 0D 0A 2A 2A 20 55 ib.def../*..** U
0001A0: 6E 6C 69 6E 6B 20 28 64 65 6C 65 74 65 29 20 74 nlink (delete) t
0001B0: 68 65 20 6E 61 6D 65 64 20 66 69 6C 65 2E 20 0D he named file. .
0001C0: 0A 2A 2A 20 45 6E 74 72 79 3A 20 66 6E 20 3D 20 .** Entry: fn =
0001D0: 4E 75 6C 6C 2D 74 65 72 6D 69 6E 61 74 65 64 20 Null-terminated
0001E0: 43 50 2F 4D 20 66 69 6C 65 20 6E 61 6D 65 2E 0D CP/M file name..
0001F0: 0A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 .**
Size : 512 (Real : 512)
000000: 0A 3E 3E 3E 20 53 54 52 43 50 59 2E 43 20 31 31 .>>> STRCPY.C 11
000010: 31 0D 0A 2F 2A 0D 0A 2A 2A 20 63 6F 70 79 20 74 1../*..** copy t
000020: 20 74 6F 20 73 20 0D 0A 2A 2F 0D 0A 73 74 72 63 to s ..*/..strc
000030: 70 79 28 73 2C 20 74 29 20 63 68 61 72 20 2A 73 py(s, t) char *s
000040: 2C 20 2A 74 3B 20 7B 0D 0A 20 20 63 68 61 72 20 , *t; {.. char
000050: 2A 64 3B 0D 0A 20 20 64 20 3D 20 73 3B 0D 0A 20 *d;.. d = s;..
000060: 20 77 68 69 6C 65 20 28 2A 73 2B 2B 20 3D 20 2A while (*s++ = *
000070: 74 2B 2B 29 20 3B 0D 0A 20 20 72 65 74 75 72 6E t++) ;.. return
000080: 28 64 29 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 53 (d);.. }..>>> S
000090: 54 52 4C 45 4E 2E 43 20 31 31 33 0D 0A 2F 2A 0D TRLEN.C 113../*.
0000A0: 0A 2A 2A 20 72 65 74 75 72 6E 20 6C 65 6E 67 74 .** return lengt
0000B0: 68 20 6F 66 20 73 20 0D 0A 2A 2F 0D 0A 73 74 72 h of s ..*/..str
0000C0: 6C 65 6E 28 73 29 20 63 68 61 72 20 2A 73 3B 20 len(s) char *s;
0000D0: 7B 0D 0A 20 20 63 68 61 72 20 2A 74 3B 0D 0A 20 {.. char *t;..
0000E0: 20 74 20 3D 20 73 20 2D 20 31 3B 0D 0A 20 20 77 t = s - 1;.. w
0000F0: 68 69 6C 65 20 28 2A 2B 2B 74 29 20 3B 0D 0A 20 hile (*++t) ;..
000100: 20 72 65 74 75 72 6E 20 28 74 20 2D 20 73 29 3B return (t - s);
000110: 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 53 54 52 4E 43 .. }..>>> STRNC
000120: 41 54 2E 43 20 32 35 34 0D 0A 2F 2A 0D 0A 2A 2A AT.C 254../*..**
000130: 20 63 6F 6E 63 61 74 65 6E 61 74 65 20 6E 20 62 concatenate n b
000140: 79 74 65 73 20 6D 61 78 20 66 72 6F 6D 20 74 20 ytes max from t
000150: 74 6F 20 65 6E 64 20 6F 66 20 73 20 0D 0A 2A 2A to end of s ..**
000160: 20 73 20 6D 75 73 74 20 62 65 20 6C 61 72 67 65 s must be large
000170: 20 65 6E 6F 75 67 68 0D 0A 2A 2F 0D 0A 73 74 72 enough..*/..str
000180: 6E 63 61 74 28 73 2C 20 74 2C 20 6E 29 20 63 68 ncat(s, t, n) ch
000190: 61 72 20 2A 73 2C 20 2A 74 3B 20 69 6E 74 20 6E ar *s, *t; int n
0001A0: 3B 20 7B 0D 0A 20 20 63 68 61 72 20 2A 64 3B 0D ; {.. char *d;.
0001B0: 0A 20 20 64 20 3D 20 73 3B 0D 0A 20 20 2D 2D 73 . d = s;.. --s
0001C0: 3B 0D 0A 20 20 77 68 69 6C 65 28 2A 2B 2B 73 29 ;.. while(*++s)
0001D0: 20 3B 0D 0A 20 20 77 68 69 6C 65 28 6E 2D 2D 29 ;.. while(n--)
0001E0: 20 7B 0D 0A 20 20 20 20 69 66 28 2A 73 2B 2B 20 {.. if(*s++
0001F0: 3D 20 2A 74 2B 2B 29 20 63 6F 6E 74 69 6E 75 65 = *t++) continue
Size : 512 (Real : 512)
000000: 4D 61 79 20 62 65 20 70 72 65 66 69 78 65 64 20 May be prefixed
000010: 62 79 20 6C 65 74 74 65 72 20 6F 66 20 64 72 69 by letter of dri
000020: 76 65 2E 0D 0A 2A 2A 20 52 65 74 75 72 6E 73 20 ve...** Returns
000030: 4E 55 4C 4C 20 6F 6E 20 73 75 63 63 65 73 73 2C NULL on success,
000040: 20 65 6C 73 65 20 45 52 52 2E 0D 0A 2A 2F 0D 0A else ERR...*/..
000050: 75 6E 6C 69 6E 6B 28 66 6E 29 20 63 68 61 72 20 unlink(fn) char
000060: 2A 66 6E 3B 20 7B 0D 0A 20 20 63 68 61 72 20 66 *fn; {.. char f
000070: 63 62 5B 46 43 42 53 49 5A 45 5D 3B 0D 0A 20 20 cb[FCBSIZE];..
000080: 70 61 64 28 66 63 62 2C 20 4E 55 4C 4C 2C 20 46 pad(fcb, NULL, F
000090: 43 42 53 49 5A 45 29 3B 0D 0A 20 20 69 66 28 55 CBSIZE);.. if(U
0000A0: 6E 65 77 66 63 62 28 66 6E 2C 20 66 63 62 29 20 newfcb(fn, fcb)
0000B0: 26 26 20 55 62 64 6F 73 28 44 45 4C 46 49 4C 2C && Ubdos(DELFIL,
0000C0: 20 66 63 62 29 20 21 3D 20 32 35 35 29 0D 0A 20 fcb) != 255)..
0000D0: 20 20 20 72 65 74 75 72 6E 20 28 4E 55 4C 4C 29 return (NULL)
0000E0: 3B 0D 0A 20 20 72 65 74 75 72 6E 20 28 45 52 52 ;.. return (ERR
0000F0: 29 3B 0D 0A 20 20 7D 0D 0A 23 61 73 6D 0D 0A 64 );.. }..#asm..d
000100: 65 6C 65 74 65 20 20 65 71 75 20 20 20 20 75 6E elete equ un
000110: 6C 69 6E 6B 0D 0A 20 20 20 20 20 20 20 20 65 6E link.. en
000120: 74 72 79 20 20 64 65 6C 65 74 65 0D 0A 23 65 6E try delete..#en
000130: 64 61 73 6D 0D 0A 3E 3E 3E 20 55 54 4F 49 2E 43 dasm..>>> UTOI.C
000140: 20 33 36 32 0D 0A 23 69 6E 63 6C 75 64 65 20 73 362..#include s
000150: 74 64 69 6F 2E 68 0D 0A 2F 2A 0D 0A 2A 2A 20 75 tdio.h../*..** u
000160: 74 6F 69 20 2D 2D 20 63 6F 6E 76 65 72 74 20 75 toi -- convert u
000170: 6E 73 69 67 6E 65 64 20 64 65 63 69 6D 61 6C 20 nsigned decimal
000180: 73 74 72 69 6E 67 20 74 6F 20 69 6E 74 65 67 65 string to intege
000190: 72 20 6E 62 72 0D 0A 2A 2A 20 20 20 20 20 20 20 r nbr..**
0001A0: 20 20 20 72 65 74 75 72 6E 73 20 66 69 65 6C 64 returns field
0001B0: 20 73 69 7A 65 2C 20 65 6C 73 65 20 45 52 52 20 size, else ERR
0001C0: 6F 6E 20 65 72 72 6F 72 0D 0A 2A 2F 0D 0A 75 74 on error..*/..ut
0001D0: 6F 69 28 64 65 63 73 74 72 2C 20 6E 62 72 29 20 oi(decstr, nbr)
0001E0: 20 63 68 61 72 20 2A 64 65 63 73 74 72 3B 20 20 char *decstr;
0001F0: 69 6E 74 20 2A 6E 62 72 3B 20 20 7B 0D 0A 20 20 int *nbr; {..
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 72 65 74 75 72 6E 28 64 29 ;.. return(d)
000010: 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 2A 73 20 3D ;.. }.. *s =
000020: 20 30 3B 0D 0A 20 20 72 65 74 75 72 6E 28 64 29 0;.. return(d)
000030: 3B 0D 0A 20 20 7D 0D 0A 3E 3E 3E 20 53 54 52 4E ;.. }..>>> STRN
000040: 43 4D 50 2E 43 20 33 33 32 0D 0A 2F 2A 0D 0A 2A CMP.C 332../*..*
000050: 2A 20 73 74 72 6E 63 6D 70 28 73 2C 74 2C 6E 29 * strncmp(s,t,n)
000060: 20 2D 20 43 6F 6D 70 61 72 65 73 20 74 77 6F 20 - Compares two
000070: 73 74 72 69 6E 67 73 20 66 6F 72 20 61 74 20 6D strings for at m
000080: 6F 73 74 20 6E 0D 0A 2A 2A 20 20 20 20 20 20 20 ost n..**
000090: 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 61 chara
0000A0: 63 74 65 72 73 20 61 6E 64 20 72 65 74 75 72 6E cters and return
0000B0: 73 20 61 6E 20 69 6E 74 65 67 65 72 0D 0A 2A 2A s an integer..**
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 3E 30 2C 20 3D 30 2C 20 6F 72 20 3C 30 20 >0, =0, or <0
0000E0: 61 73 20 73 20 69 73 20 3E 74 2C 20 3D 74 2C 20 as s is >t, =t,
0000F0: 6F 72 20 3C 74 2E 0D 0A 2A 2F 0D 0A 73 74 72 6E or <t...*/..strn
000100: 63 6D 70 28 73 2C 20 74 2C 20 6E 29 20 63 68 61 cmp(s, t, n) cha
000110: 72 20 2A 73 2C 20 2A 74 3B 20 69 6E 74 20 6E 3B r *s, *t; int n;
000120: 20 7B 0D 0A 20 20 77 68 69 6C 65 28 6E 20 26 26 {.. while(n &&
000130: 20 2A 73 3D 3D 2A 74 29 20 7B 0D 0A 20 20 20 20 *s==*t) {..
000140: 69 66 20 28 2A 73 20 3D 3D 20 30 29 20 72 65 74 if (*s == 0) ret
000150: 75 72 6E 20 28 30 29 3B 0D 0A 20 20 20 20 2B 2B urn (0);.. ++
000160: 73 3B 20 2B 2B 74 3B 20 2D 2D 6E 3B 0D 0A 20 20 s; ++t; --n;..
000170: 20 20 7D 0D 0A 20 20 69 66 28 6E 29 20 72 65 74 }.. if(n) ret
000180: 75 72 6E 20 28 2A 73 20 2D 20 2A 74 29 3B 0D 0A urn (*s - *t);..
000190: 20 20 72 65 74 75 72 6E 20 28 30 29 3B 0D 0A 20 return (0);..
0001A0: 20 7D 0D 0A 3E 3E 3E 20 53 54 52 4E 43 50 59 2E }..>>> STRNCPY.
0001B0: 43 20 32 35 32 0D 0A 2F 2A 0D 0A 2A 2A 20 63 6F C 252../*..** co
0001C0: 70 79 20 6E 20 63 68 61 72 61 63 74 65 72 73 20 py n characters
0001D0: 66 72 6F 6D 20 73 6F 75 72 20 74 6F 20 64 65 73 from sour to des
0001E0: 74 20 28 6E 75 6C 6C 20 70 61 64 64 69 6E 67 29 t (null padding)
0001F0: 0D 0A 2A 2F 0D 0A 73 74 72 6E 63 70 79 28 64 65 ..*/..strncpy(de
Size : 512 (Real : 512)
000000: 69 6E 74 20 64 2C 74 3B 20 64 3D 30 3B 0D 0A 20 int d,t; d=0;..
000010: 20 2A 6E 62 72 3D 30 3B 0D 0A 20 20 77 68 69 6C *nbr=0;.. whil
000020: 65 28 28 2A 64 65 63 73 74 72 3E 3D 27 30 27 29 e((*decstr>='0')
000030: 26 28 2A 64 65 63 73 74 72 3C 3D 27 39 27 29 29 &(*decstr<='9'))
000040: 20 7B 0D 0A 20 20 20 20 74 3D 2A 6E 62 72 3B 74 {.. t=*nbr;t
000050: 3D 28 31 30 2A 74 29 20 2B 20 28 2A 64 65 63 73 =(10*t) + (*decs
000060: 74 72 2B 2B 20 2D 20 27 30 27 29 3B 0D 0A 20 20 tr++ - '0');..
000070: 20 20 69 66 20 28 28 74 3E 3D 30 29 26 28 2A 6E if ((t>=0)&(*n
000080: 62 72 3C 30 29 29 20 72 65 74 75 72 6E 20 45 52 br<0)) return ER
000090: 52 3B 0D 0A 20 20 20 20 64 2B 2B 3B 20 2A 6E 62 R;.. d++; *nb
0000A0: 72 3D 74 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 72 r=t;.. }.. r
0000B0: 65 74 75 72 6E 20 64 3B 0D 0A 20 20 7D 0D 0A 3E eturn d;.. }..>
0000C0: 3E 3E 20 58 54 4F 49 2E 43 20 37 32 39 0D 0A 23 >> XTOI.C 729..#
0000D0: 69 6E 63 6C 75 64 65 20 73 74 64 69 6F 2E 68 0D include stdio.h.
0000E0: 0A 2F 2A 0D 0A 2A 2A 20 78 74 6F 69 20 2D 2D 20 ./*..** xtoi --
0000F0: 63 6F 6E 76 65 72 74 20 68 65 78 20 73 74 72 69 convert hex stri
000100: 6E 67 20 74 6F 20 69 6E 74 65 67 65 72 20 6E 62 ng to integer nb
000110: 72 0D 0A 2A 2A 20 20 20 20 20 20 20 20 20 72 65 r..** re
000120: 74 75 72 6E 73 20 66 69 65 6C 64 20 73 69 7A 65 turns field size
000130: 2C 20 65 6C 73 65 20 45 52 52 20 6F 6E 20 65 72 , else ERR on er
000140: 72 6F 72 0D 0A 2A 2F 0D 0A 78 74 6F 69 28 68 65 ror..*/..xtoi(he
000150: 78 73 74 72 2C 20 6E 62 72 29 20 63 68 61 72 20 xstr, nbr) char
000160: 2A 68 65 78 73 74 72 3B 20 69 6E 74 20 2A 6E 62 *hexstr; int *nb
000170: 72 3B 20 7B 0D 0A 20 20 69 6E 74 20 64 2C 20 62 r; {.. int d, b
000180: 3B 20 20 63 68 61 72 20 2A 63 70 3B 0D 0A 20 20 ; char *cp;..
000190: 64 20 3D 20 2A 6E 62 72 20 3D 20 30 3B 20 63 70 d = *nbr = 0; cp
0001A0: 20 3D 20 68 65 78 73 74 72 3B 0D 0A 20 20 77 68 = hexstr;.. wh
0001B0: 69 6C 65 28 2A 63 70 20 3D 3D 20 27 30 27 29 20 ile(*cp == '0')
0001C0: 2B 2B 63 70 3B 0D 0A 20 20 77 68 69 6C 65 28 31 ++cp;.. while(1
0001D0: 29 20 7B 0D 0A 20 20 20 20 73 77 69 74 63 68 28 ) {.. switch(
0001E0: 2A 63 70 29 20 7B 0D 0A 20 20 20 20 20 20 63 61 *cp) {.. ca
0001F0: 73 65 20 27 30 27 3A 20 63 61 73 65 20 27 31 27 se '0': case '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: 3A 20 63 61 73 65 20 27 32 27 3A 0D 0A 20 20 20 : case '2':..
000010: 20 20 20 63 61 73 65 20 27 33 27 3A 20 63 61 73 case '3': cas
000020: 65 20 27 34 27 3A 20 63 61 73 65 20 27 35 27 3A e '4': case '5':
000030: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 27 36 27 .. case '6'
000040: 3A 20 63 61 73 65 20 27 37 27 3A 20 63 61 73 65 : case '7': case
000050: 20 27 38 27 3A 0D 0A 20 20 20 20 20 20 63 61 73 '8':.. cas
000060: 65 20 27 39 27 3A 20 20 20 20 20 20 20 20 20 20 e '9':
000070: 20 20 20 20 20 20 20 20 20 20 20 62 3D 34 38 3B b=48;
000080: 20 62 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 63 break;.. c
000090: 61 73 65 20 27 41 27 3A 20 63 61 73 65 20 27 42 ase 'A': case 'B
0000A0: 27 3A 20 63 61 73 65 20 27 43 27 3A 0D 0A 20 20 ': case 'C':..
0000B0: 20 20 20 20 63 61 73 65 20 27 44 27 3A 20 63 61 case 'D': ca
0000C0: 73 65 20 27 45 27 3A 20 63 61 73 65 20 27 46 27 se 'E': case 'F'
0000D0: 3A 20 62 3D 35 35 3B 20 62 72 65 61 6B 3B 0D 0A : b=55; break;..
0000E0: 20 20 20 20 20 20 63 61 73 65 20 27 61 27 3A 20 case 'a':
0000F0: 63 61 73 65 20 27 62 27 3A 20 63 61 73 65 20 27 case 'b': case '
000100: 63 27 3A 0D 0A 20 20 20 20 20 20 63 61 73 65 20 c':.. case
000110: 27 64 27 3A 20 63 61 73 65 20 27 65 27 3A 20 63 'd': case 'e': c
000120: 61 73 65 20 27 66 27 3A 20 62 3D 38 37 3B 20 62 ase 'f': b=87; b
000130: 72 65 61 6B 3B 0D 0A 20 20 20 20 20 20 20 64 65 reak;.. de
000140: 66 61 75 6C 74 3A 20 72 65 74 75 72 6E 20 28 63 fault: return (c
000150: 70 20 2D 20 68 65 78 73 74 72 29 3B 0D 0A 20 20 p - hexstr);..
000160: 20 20 20 20 7D 0D 0A 20 20 20 20 69 66 28 64 20 }.. if(d
000170: 3C 20 34 29 20 2B 2B 64 3B 20 65 6C 73 65 20 72 < 4) ++d; else r
000180: 65 74 75 72 6E 20 28 45 52 52 29 3B 0D 0A 20 20 eturn (ERR);..
000190: 20 20 2A 6E 62 72 20 3D 20 28 2A 6E 62 72 20 3C *nbr = (*nbr <
0001A0: 3C 20 34 29 20 2B 20 28 2A 63 70 2B 2B 20 2D 20 < 4) + (*cp++ -
0001B0: 62 29 3B 0D 0A 20 20 20 20 7D 0D 0A 20 20 7D 0D b);.. }.. }.
0001C0: 0A 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 ................
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 : 128 (Real : 128)
000000: 01 02 03 04 05 00 03 00 30 80 00 00 10 00 88 04 ........0.......
000010: 09 17 48 02 00 01 00 35 32 33 2D 30 33 37 43 20 ..H....523-037C
000020: 20 20 20 20 20 20 20 53 43 48 4E 45 49 44 45 52 SCHNEIDER
000030: 20 44 55 50 20 33 22 2D 31 30 30 2F 34 30 20 32 DUP 3"-100/40 2
000040: 53 20 44 44 20 53 53 00 00 20 20 20 20 20 20 20 S DD SS..
000050: 20 20 20 20 20 20 20 00 00 00 00 37 30 32 39 32 ....70292
000060: 2D 30 30 77 00 04 00 77 00 8E 01 00 00 00 00 00 -00w...w........
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan