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