|
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: 20480 (0x5000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Nombre_De_Mots, seg_040b64
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Nombre_De_Mots is
--type Numero is range 0 .. Integer'Last;
subtype Numero is Natural;
Nombre_Max_Mots : constant Numero := 4;
end Nombre_De_Mots;
nblk1=13
nid=2
hdr6=2
[0x00] rec0=09 rec1=00 rec2=01 rec3=000
[0x01] rec0=1d rec1=00 rec2=12 rec3=01a
[0x02] rec0=16 rec1=00 rec2=11 rec3=054
[0x03] rec0=22 rec1=00 rec2=10 rec3=008
[0x04] rec0=19 rec1=00 rec2=0f rec3=00a
[0x05] rec0=17 rec1=00 rec2=0e rec3=034
[0x06] rec0=1f rec1=00 rec2=0d rec3=040
[0x07] rec0=26 rec1=00 rec2=0c rec3=054
[0x08] rec0=1e rec1=00 rec2=0b rec3=082
[0x09] rec0=25 rec1=00 rec2=0a rec3=032
[0x0a] rec0=1e rec1=00 rec2=09 rec3=072
[0x0b] rec0=15 rec1=00 rec2=08 rec3=04a
[0x0c] rec0=14 rec1=00 rec2=07 rec3=046
[0x0d] rec0=15 rec1=00 rec2=06 rec3=07e
[0x0e] rec0=1d rec1=00 rec2=05 rec3=062
[0x0f] rec0=14 rec1=00 rec2=04 rec3=02c
[0x10] rec0=2b rec1=00 rec2=03 rec3=002
[0x11] rec0=24 rec1=00 rec2=02 rec3=000
[0x12] rec0=00 rec1=00 rec2=00 rec3=000
tail 0x21740f7da861180a9ea3d 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 03 01 a7 80 10 75 72 20 3a 20 69 6e 20 53 74 ┆ ur : in St┆
0x3: 0000 00 04 03 fc 80 0a 3a 3d 20 46 61 6c 73 65 3b 20 ┆ := False; ┆
0x4: 0000 00 05 03 fc 80 0b 5f 44 61 6e 73 5f 54 61 62 6c ┆ _Dans_Tabl┆
0x5: 0000 00 06 03 fc 80 16 3e 20 28 6e 65 77 20 53 74 72 ┆ > (new Str┆
0x6: 0000 00 07 03 fc 80 0a 70 74 65 75 72 20 2b 20 31 3b ┆ pteur + 1;┆
0x7: 0000 00 08 03 fc 80 2d 4d 6f 74 73 2e 56 61 6c 65 75 ┆ -Mots.Valeu┆
0x8: 0000 00 09 03 fc 00 3c 20 20 20 20 20 20 20 20 20 20 ┆ < ┆
0x9: 0000 00 0a 03 fb 80 1c 20 28 54 61 69 6c 6c 65 5f 54 ┆ (Taille_T┆
0xa: 0000 00 0b 03 fc 80 11 20 42 6f 6f 6c 65 61 6e 20 3a ┆ Boolean :┆
0xb: 0000 00 0c 03 fc 80 05 20 74 68 65 6e 05 00 3c 20 20 ┆ then < ┆
0xc: 0000 00 0e 03 fc 80 0d 6f 75 74 20 42 6f 6f 6c 65 61 ┆ out Boolea┆
0xe: 0000 00 0f 00 2f 80 09 73 2e 4e 75 6d 65 72 6f 3b 09 ┆ / s.Numero; ┆
0xf: 0000 00 10 03 fc 00 00 00 00 4e 2d 2d 2d 2d 2d 2d 2d ┆ N-------┆
0x10: 0000 00 11 03 fc 80 20 2c 20 4d 6f 74 5f 54 65 6d 70 ┆ , Mot_Temp┆
0x11: 0000 00 12 03 fc 80 1d 65 6e 61 6d 65 73 20 4e 75 6d ┆ enames Num┆
0x12: 0000 00 13 03 fc 80 2d 2e 4f 70 65 6e 20 28 54 68 65 ┆ -.Open (The┆
0x13: 0000 00 0d 03 fc 80 01 3b 01 00 37 20 20 20 20 20 20 ┆ ; 7 ┆
0xd: 0000 00 00 03 fc 80 05 64 20 69 66 3b 05 00 4a 20 20 ┆ d if; J ┆