|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 107520 (0x1a400)
Types: Ada Source
Notes: 03_class, FILE, Long Ada Source, R1k_Segment, e3_tag, package Syn, seg_0499e6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Syn is
procedure Evaluate_Syn (Ok : out Boolean);
end Syn;
nblk1=68
nid=68
hdr6=2
[0x00] rec0=05 rec1=00 rec2=01 rec3=000
[0x01] rec0=00 rec1=0f rec2=35 rec3=475
[0x02] rec0=0b rec1=00 rec2=00 rec3=004
[0x03] rec0=03 rec1=cd rec2=64 rec3=442
[0x04] rec0=c0 rec1=00 rec2=00 rec3=100
[0x05] rec0=42 rec1=fe rec2=39 rec3=050
[0x06] rec0=b8 rec1=c8 rec2=00 rec3=026
[0x07] rec0=48 rec1=5f rec2=c7 rec3=10a
[0x08] rec0=62 rec1=92 rec2=80 rec3=004
[0x09] rec0=c9 rec1=0b rec2=f8 rec3=721
[0x0a] rec0=49 rec1=f1 rec2=d0 rec3=000
[0x0b] rec0=99 rec1=00 rec2=00 rec3=000
[0x0c] rec0=24 rec1=00 rec2=10 rec3=09c
[0x0d] rec0=00 rec1=00 rec2=00 rec3=002
[0x0e] rec0=00 rec1=00 rec2=00 rec3=029
[0x0f] rec0=00 rec1=00 rec2=00 rec3=000
[0x10] rec0=00 rec1=00 rec2=00 rec3=000
[0x11] rec0=00 rec1=00 rec2=00 rec3=000
[0x12] rec0=00 rec1=00 rec2=00 rec3=000
[0x13] rec0=00 rec1=00 rec2=00 rec3=000
[0x14] rec0=00 rec1=00 rec2=00 rec3=000
[0x15] rec0=00 rec1=00 rec2=00 rec3=000
[0x16] rec0=00 rec1=00 rec2=00 rec3=000
[0x17] rec0=00 rec1=00 rec2=00 rec3=000
[0x18] rec0=00 rec1=00 rec2=00 rec3=000
[0x19] rec0=00 rec1=00 rec2=00 rec3=000
[0x1a] rec0=00 rec1=00 rec2=00 rec3=000
[0x1b] rec0=00 rec1=00 rec2=00 rec3=000
[0x1c] rec0=00 rec1=00 rec2=00 rec3=000
[0x1d] rec0=04 rec1=00 rec2=00 rec3=000
[0x1e] rec0=00 rec1=10 rec2=00 rec3=000
[0x1f] rec0=00 rec1=00 rec2=00 rec3=000
[0x20] rec0=8c rec1=00 rec2=00 rec3=000
[0x21] rec0=00 rec1=00 rec2=17 rec3=47a
[0x22] rec0=00 rec1=00 rec2=00 rec3=000
[0x23] rec0=00 rec1=00 rec2=00 rec3=01e
[0x24] rec0=6b rec1=1d rec2=42 rec3=600
[0x25] rec0=00 rec1=01 rec2=00 rec3=79a
[0x26] rec0=c9 rec1=10 rec2=b0 rec3=000
[0x27] rec0=00 rec1=40 rec2=10 rec3=5fc
[0x28] rec0=72 rec1=14 rec2=2e rec3=190
[0x29] rec0=00 rec1=09 rec2=92 rec3=0bf
[0x2a] rec0=8e rec1=42 rec2=98 rec3=525
[0x2b] rec0=00 rec1=01 rec2=32 rec3=217
[0x2c] rec0=f1 rec1=c8 rec2=52 rec3=3e3
[0x2d] rec0=a0 rec1=00 rec2=26 rec3=200
[0x2e] rec0=00 rec1=00 rec2=09 rec3=000
[0x2f] rec0=20 rec1=27 rec2=00 rec3=000
[0x30] rec0=00 rec1=00 rec2=80 rec3=000
[0x31] rec0=00 rec1=08 rec2=00 rec3=000
[0x32] rec0=00 rec1=00 rec2=00 rec3=000
[0x33] rec0=00 rec1=00 rec2=00 rec3=000
[0x34] rec0=00 rec1=00 rec2=00 rec3=000
[0x35] rec0=00 rec1=00 rec2=00 rec3=000
[0x36] rec0=00 rec1=00 rec2=00 rec3=000
[0x37] rec0=00 rec1=00 rec2=00 rec3=000
[0x38] rec0=00 rec1=00 rec2=00 rec3=000
[0x39] rec0=00 rec1=00 rec2=00 rec3=000
[0x3a] rec0=00 rec1=01 rec2=00 rec3=000
[0x3b] rec0=00 rec1=04 rec2=00 rec3=000
[0x3c] rec0=00 rec1=40 rec2=03 rec3=394
[0x3d] rec0=d4 rec1=00 rec2=00 rec3=000
[0x3e] rec0=32 rec1=00 rec2=00 rec3=000
[0x3f] rec0=00 rec1=00 rec2=00 rec3=000
[0x40] rec0=00 rec1=00 rec2=00 rec3=000
[0x41] rec0=00 rec1=00 rec2=00 rec3=000
[0x42] rec0=00 rec1=00 rec2=00 rec3=000
[0x43] rec0=00 rec1=00 rec2=00 rec3=000
[0x44] rec0=00 rec1=00 rec2=00 rec3=000
[0x45] rec0=00 rec1=00 rec2=00 rec3=000
[0x46] rec0=00 rec1=00 rec2=00 rec3=000
[0x47] rec0=00 rec1=00 rec2=00 rec3=000
[0x48] rec0=00 rec1=00 rec2=00 rec3=000
[0x49] rec0=00 rec1=00 rec2=00 rec3=000
[0x4a] rec0=00 rec1=00 rec2=00 rec3=000
[0x4b] rec0=00 rec1=00 rec2=00 rec3=000
[0x4c] rec0=00 rec1=08 rec2=00 rec3=000
[0x4d] rec0=00 rec1=00 rec2=20 rec3=000
[0x4e] rec0=00 rec1=00 rec2=00 rec3=000
[0x4f] rec0=01 rec1=18 rec2=00 rec3=000
[0x50] rec0=00 rec1=00 rec2=00 rec3=178
[0x51] rec0=f4 rec1=00 rec2=00 rec3=000
[0x52] rec0=00 rec1=00 rec2=00 rec3=000
[0x53] rec0=3c rec1=d6 rec2=3a rec3=42c
[0x54] rec0=00 rec1=00 rec2=02 rec3=00f
[0x55] rec0=35 rec1=92 rec2=21 rec3=300
[0x56] rec0=00 rec1=00 rec2=80 rec3=10b
[0x57] rec0=f8 rec1=e4 rec2=28 rec3=2e3
[0x58] rec0=20 rec1=00 rec2=13 rec3=121
[0x59] rec0=7f rec1=1c rec2=85 rec3=18a
[0x5a] rec0=4a rec1=00 rec2=02 rec3=324
[0x5b] rec0=2f rec1=e3 rec2=90 rec3=527
[0x5c] rec0=c7 rec1=40 rec2=00 rec3=264
[0x5d] rec0=00 rec1=00 rec2=00 rec3=090
[0x5e] rec0=00 rec1=40 rec2=4e rec3=000
[0x5f] rec0=00 rec1=00 rec2=01 rec3=000
[0x60] rec0=00 rec1=00 rec2=10 rec3=000
[0x61] rec0=00 rec1=00 rec2=00 rec3=000
[0x62] rec0=00 rec1=00 rec2=00 rec3=000
[0x63] rec0=00 rec1=00 rec2=00 rec3=000
tail 0x2174e08ce865f8aa41c1f 0x42a00088462060003
Free Block Chain:
0x68: 0000 00 67 03 b8 00 1a 20 20 20 20 20 20 20 20 20 20 ┆ g ┆
0x67: 0000 00 66 03 fa 80 19 73 5f 53 69 6d 70 6c 65 73 20 ┆ f s_Simples ┆
0x66: 0000 00 65 03 fc 80 14 74 20 4c 65 78 2e 49 73 5f 41 ┆ e t Lex.Is_A┆
0x65: 0000 00 64 03 fc 80 26 20 20 20 20 20 20 20 20 20 20 ┆ d & ┆
0x64: 0000 00 63 03 fc 80 13 61 63 74 2c 20 46 6f 6c 6c 6f ┆ c act, Follo┆
0x63: 0000 00 62 03 fc 00 00 00 00 4d 20 20 20 20 20 20 20 ┆ b M ┆
0x62: 0000 00 61 03 fa 80 12 20 20 20 20 20 20 20 20 20 20 ┆ a ┆
0x61: 0000 00 60 03 fc 80 39 20 20 20 20 20 20 20 20 20 20 ┆ ` 9 ┆
0x60: 0000 00 5f 03 fc 80 04 74 68 65 6e 04 00 15 20 20 20 ┆ _ then ┆
0x5f: 0000 00 5e 03 fc 80 08 3d 20 46 61 6c 73 65 3b 08 00 ┆ ^ = False; ┆
0x5e: 0000 00 5d 03 fc 80 16 20 20 20 20 69 66 20 6e 6f 74 ┆ ] if not┆
0x5d: 0000 00 5c 03 fc 80 0a 61 67 65 20 28 4f 6b 29 29 3b ┆ \ age (Ok));┆
0x5c: 0000 00 5b 03 fc 80 09 3d 20 49 64 20 74 68 65 6e 09 ┆ [ = Id then ┆
0x5b: 0000 00 5a 03 fc 80 14 72 6f 75 70 2c 20 41 5f 43 6f ┆ Z roup, A_Co┆
0x5a: 0000 00 59 03 fc 80 43 20 20 20 20 46 69 72 73 74 5f ┆ Y C First_┆
0x59: 0000 00 58 03 fc 80 1f 20 20 20 20 20 20 20 20 20 20 ┆ X ┆
0x58: 0000 00 57 03 fc 80 1a 6f 6c 6c 6f 77 5f 49 6e 73 74 ┆ W ollow_Inst┆
0x57: 0000 00 56 03 fc 80 0f 74 2e 4e 75 6c 6c 5f 4f 62 6a ┆ V t.Null_Obj┆
0x56: 0000 00 55 03 fc 80 12 20 20 20 20 20 20 4f 6b 20 3a ┆ U Ok :┆
0x55: 0000 00 54 03 fc 80 0b 69 73 74 2e 4f 62 6a 65 63 74 ┆ T ist.Object┆
0x54: 0000 00 53 03 fc 80 06 65 20 74 68 65 6e 06 00 15 20 ┆ S e then ┆
0x53: 0000 00 52 03 fc 00 31 20 20 20 20 20 20 20 20 20 20 ┆ R 1 ┆
0x52: 0000 00 51 03 fa 80 04 65 74 29 3b 04 00 1b 20 20 20 ┆ Q et); ┆
0x51: 0000 00 50 03 fc 80 07 65 6e 64 20 69 66 3b 07 00 14 ┆ P end if; ┆
0x50: 0000 00 4f 03 fc 80 09 67 65 72 27 56 61 6c 75 65 09 ┆ O ger'Value ┆
0x4f: 0000 00 4e 03 fc 80 05 72 73 20 3d 3e 05 00 1c 20 20 ┆ N rs => ┆
0x4e: 0000 00 4d 03 fc 80 1d 2c 20 46 6f 6c 6c 6f 77 5f 49 ┆ M , Follow_I┆
0x4d: 0000 00 4c 03 fc 80 08 20 20 20 20 65 6c 73 65 08 00 ┆ L else ┆
0x4c: 0000 00 4b 03 fc 80 0f 6a 65 74 2c 20 41 5f 44 65 74 ┆ K jet, A_Det┆
0x4b: 0000 00 4a 03 fc 80 34 20 20 20 20 20 20 20 45 72 72 ┆ J 4 Err┆
0x4a: 0000 00 49 03 fc 80 06 2c 20 4f 6b 29 3b 06 00 00 00 ┆ I , Ok); ┆
0x49: 0000 00 48 03 fc 00 1c 20 20 20 20 20 20 20 20 20 20 ┆ H ┆
0x48: 0000 00 47 03 fc 80 1d 20 20 20 20 20 20 20 20 20 20 ┆ G ┆
0x47: 0000 00 46 03 fc 80 05 72 73 20 3d 3e 05 00 1c 20 20 ┆ F rs => ┆
0x46: 0000 00 45 03 fc 80 12 20 20 20 20 20 20 20 20 20 20 ┆ E ┆
0x45: 0000 00 44 03 fc 80 0d 65 5f 56 61 6c 75 65 29 20 74 ┆ D e_Value) t┆
0x44: 0000 00 43 03 fc 80 2a 72 6f 72 2e 53 79 6e 20 28 50 ┆ C *ror.Syn (P┆
0x43: 0000 00 42 03 fc 80 16 20 20 20 20 20 20 20 20 20 20 ┆ B ┆
0x42: 0000 00 41 03 fc 80 0d 65 5f 56 61 6c 75 65 2c 20 4f ┆ A e_Value, O┆
0x41: 0000 00 40 03 fc 80 05 3e 20 22 20 26 05 00 2e 20 20 ┆ @ > " & . ┆
0x40: 0000 00 3f 03 fc 80 0e 5f 42 69 6e 61 72 79 5f 4b 69 ┆ ? _Binary_Ki┆
0x3f: 0000 00 3e 03 fc 80 02 6c 2c 02 00 47 20 20 20 20 20 ┆ > l, G ┆
0x3e: 0000 00 3d 03 fc 80 1c 70 72 65 73 73 69 6f 6e 5f 4e ┆ = pression_N┆
0x3d: 0000 00 3c 03 fc 80 0a 20 2d 2d 65 6e 64 20 69 66 3b ┆ < --end if;┆
0x3c: 0000 00 3b 03 fc 80 19 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x3b: 0000 00 3a 03 fc 80 16 20 20 20 20 69 66 20 6e 6f 74 ┆ : if not┆
0x3a: 0000 00 39 03 fc 80 01 3b 01 00 19 20 20 20 20 20 20 ┆ 9 ; ┆
0x39: 0000 00 38 03 fc 00 1b 20 20 20 20 20 20 20 20 20 20 ┆ 8 ┆
0x38: 0000 00 37 03 fc 80 02 29 3b 02 00 10 20 20 20 20 65 ┆ 7 ); e┆
0x37: 0000 00 36 03 fc 80 19 20 20 20 20 20 28 4d 6f 76 69 ┆ 6 (Movi┆
0x36: 0000 00 35 03 fc 80 24 6e 20 28 43 6c 6f 73 69 6e 67 ┆ 5 $n (Closing┆
0x35: 0000 00 34 03 fc 00 15 20 20 20 20 65 6e 64 20 46 69 ┆ 4 end Fi┆
0x34: 0000 00 33 03 fc 80 1a 64 65 74 61 69 6c 20 73 74 6f ┆ 3 detail sto┆
0x33: 0000 00 32 03 fc 80 08 6e 64 20 6c 6f 6f 70 3b 08 00 ┆ 2 nd loop; ┆
0x32: 0000 00 31 03 fc 80 1c 20 20 20 20 20 20 20 20 20 20 ┆ 1 ┆
0x31: 0000 00 30 03 fc 80 0c 20 20 20 20 20 65 6e 64 20 69 ┆ 0 end i┆
0x30: 0000 00 2f 03 fc 80 01 3b 01 00 00 00 00 34 20 20 20 ┆ / ; 4 ┆
0x2f: 0000 00 2e 03 fc 80 26 6e 74 69 66 69 65 72 5f 4c 69 ┆ . &ntifier_Li┆
0x2e: 0000 00 2d 03 fc 80 30 75 76 65 6d 65 6e 74 20 73 74 ┆ - 0uvement st┆
0x2d: 0000 00 2c 03 fc 80 22 20 20 20 20 20 20 20 20 20 20 ┆ , " ┆
0x2c: 0000 00 2b 03 fc 80 28 20 20 20 50 6c 61 63 65 5f 49 ┆ + ( Place_I┆
0x2b: 0000 00 2a 03 fc 80 03 6c 73 65 03 00 24 20 20 20 20 ┆ * lse $ ┆
0x2a: 0000 00 29 03 fc 80 4c 20 20 20 20 20 20 20 20 20 20 ┆ ) L ┆
0x29: 0000 00 28 03 fc 80 11 72 65 63 74 69 6f 6e 5f 49 6e ┆ ( rection_In┆
0x28: 0000 00 27 03 fc 80 2f 20 20 20 20 20 20 20 20 20 20 ┆ ' / ┆
0x27: 0000 00 26 03 fc 80 15 61 67 65 20 28 4c 69 74 65 72 ┆ & age (Liter┆
0x26: 0000 00 25 03 fc 00 40 20 20 20 20 20 20 20 20 20 20 ┆ % @ ┆
0x25: 0000 00 24 03 fc 80 1a 20 20 20 20 20 20 20 20 20 20 ┆ $ ┆
0x24: 0000 00 23 03 fc 80 34 20 20 20 20 20 54 65 78 74 5f ┆ # 4 Text_┆
0x23: 0000 00 22 03 fc 80 0c 5f 49 6e 64 65 78 20 3a 3d 20 ┆ " _Index := ┆
0x22: 0000 00 21 03 fc 80 23 20 20 20 20 20 20 20 20 20 20 ┆ ! # ┆
0x21: 0000 00 20 03 fc 80 10 73 65 5f 56 61 6c 75 65 29 20 ┆ se_Value) ┆
0x20: 0000 00 1f 03 fc 80 21 20 20 20 20 20 45 72 72 6f 72 ┆ ! Error┆
0x1f: 0000 00 1e 03 fc 80 0a 6c 6c 5f 4f 62 6a 65 63 74 3b ┆ ll_Object;┆
0x1e: 0000 00 1d 03 fc 80 0f 5f 49 6e 64 65 78 20 3d 20 30 ┆ _Index = 0┆
0x1d: 0000 00 1c 03 fc 80 3b 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x1c: 0000 00 1b 03 fc 80 34 4e 61 6d 65 20 3a 20 69 6e 20 ┆ 4Name : in ┆
0x1b: 0000 00 1a 03 fc 80 02 74 3b 02 00 26 20 20 20 20 20 ┆ t; & ┆
0x1a: 0000 00 19 03 fc 80 21 65 6e 74 69 66 69 65 72 5f 4c ┆ !entifier_L┆
0x19: 0000 00 18 03 fc 80 14 6e 65 20 28 22 6c 69 73 74 65 ┆ ne ("liste┆
0x18: 0000 00 17 03 fc 80 29 49 64 65 6e 74 69 66 69 65 72 ┆ )Identifier┆
0x17: 0000 00 16 03 fc 80 16 2c 20 46 6f 6c 6c 6f 77 5f 4c ┆ , Follow_L┆
0x16: 0000 00 15 03 fc 80 21 20 20 20 20 20 20 28 4c 65 78 ┆ ! (Lex┆
0x15: 0000 00 14 03 fc 80 0d 65 72 5f 4c 69 73 74 2e 56 61 ┆ er_List.Va┆
0x14: 0000 00 13 03 fc 00 1d 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13: 0000 00 12 03 f9 80 05 20 74 68 65 6e 05 00 31 20 20 ┆ then 1 ┆
0x12: 0000 00 11 03 fc 80 24 49 64 65 6e 74 69 66 69 65 72 ┆ $Identifier┆
0x11: 0000 00 10 03 fc 80 0a 3d 20 46 61 6c 73 65 3b 20 20 ┆ = False; ┆
0x10: 0000 00 0f 03 fc 80 12 20 20 20 20 20 20 20 20 20 4c ┆ L┆
0xf: 0000 00 0e 03 fc 80 03 78 74 3b 03 00 2a 20 20 20 20 ┆ xt; * ┆
0xe: 0000 00 0d 03 fc 80 13 5f 4c 6f 77 65 72 5f 43 61 73 ┆ _Lower_Cas┆
0xd: 0000 00 0c 03 fc 80 3e 55 6e 5f 4f 62 6a 65 74 20 28 ┆ >Un_Objet (┆
0xc: 0000 00 0b 03 fc 80 15 6d 70 6c 65 6d 65 6e 74 2e 46 ┆ mplement.F┆
0xb: 0000 00 0a 03 fc 80 2b 20 20 20 20 20 20 20 20 20 20 ┆ + ┆
0xa: 0000 00 09 03 fc 80 2b 20 20 20 20 20 20 20 20 20 20 ┆ + ┆
0x9: 0000 00 08 03 fc 80 1c 69 66 20 41 74 74 72 69 62 75 ┆ if Attribu┆
0x8: 0000 00 07 03 fc 00 36 20 20 20 20 20 20 20 20 20 20 ┆ 6 ┆
0x7: 0000 00 06 03 fc 80 0a 61 6c 75 65 29 20 74 68 65 6e ┆ alue) then┆
0x6: 0000 00 05 03 fc 80 38 70 72 6f 63 65 64 75 72 65 20 ┆ 8procedure ┆
0x5: 0000 00 04 03 fc 80 0a 20 65 6e 64 20 63 61 73 65 3b ┆ end case;┆
0x4: 0000 00 03 03 fc 80 2d 65 72 61 74 69 6f 6e 5f 4e 6f ┆ -eration_No┆
0x3: 0000 00 02 03 fc 80 19 20 20 20 20 20 20 20 69 66 20 ┆ if ┆
0x2: 0000 00 00 03 fc 80 04 67 65 29 3b 04 00 00 00 00 37 ┆ ge); 7┆