|
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 - metrics - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Horloge, seg_050214
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with System;
with Simple_Io;
procedure Horloge is
type Byte is new Natural range 0 .. 255;
for Byte'Size use 8;
Reg, Bidon : Byte;
for Reg use at System.Address'Ref (16#03020000#);
procedure Ecriture (B : Byte) is
B2 : Byte := B;
begin
for I in 1 .. 8 loop
Reg := B2 mod 2;
B2 := B2 / 2;
end loop;
end Ecriture;
begin
Bidon := Reg;
Ecriture (16#C5#);
Ecriture (16#3A#);
Ecriture (16#A3#);
Ecriture (16#5C#);
Ecriture (16#C5#);
Ecriture (16#3A#);
Ecriture (16#A3#);
Ecriture (16#5C#);
Reg := 0;
Reg := 0;
Reg := 0;
Reg := 1;
Reg := 12;
Reg := 18;
Reg := 12;
Reg := 16#95#;
loop
Bidon := Reg;
Ecriture (16#C5#);
Ecriture (16#3A#);
Ecriture (16#A3#);
Ecriture (16#5C#);
Ecriture (16#C5#);
Ecriture (16#3A#);
Ecriture (16#A3#);
Ecriture (16#5C#);
for I in 1 .. 8 loop
Simple_Io.Put_Line (Natural'Image (Natural (Reg)));
end loop;
end loop;
end Horloge;
pragma Main;
nblk1=6
nid=3
hdr6=4
[0x00] rec0=32 rec1=00 rec2=01 rec3=030
[0x01] rec0=0d rec1=00 rec2=02 rec3=000
[0x02] rec0=11 rec1=00 rec2=04 rec3=018
[0x03] rec0=0f rec1=00 rec2=03 rec3=05c
[0x04] rec0=0d rec1=00 rec2=02 rec3=000
[0x05] rec0=43 rec1=be rec2=9d rec3=251
tail 0x2154acad6877d6b8a9416 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 04 03 fc 80 37 4f 70 20 3d 3e 20 4d 6f 76 65 ┆ 7Op => Move┆
0x4: 0000 00 05 03 fc 80 10 20 4f 70 72 6e 64 5f 32 20 3d ┆ Oprnd_2 =┆
0x5: 0000 00 06 03 fc 80 2f 76 65 5f 42 2c 20 4f 70 72 6e ┆ /ve_B, Oprn┆
0x6: 0000 00 00 00 8a 80 2b 2c 20 4f 70 72 6e 64 5f 31 20 ┆ +, Oprnd_1 ┆