|
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┆