DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦b6359812e⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Ncd_R1000, seg_0042a6, separate Release

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

separate (Release)
package body Ncd_R1000 is
begin

    Keyboard_Sun_X11r3 :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; Sun X11R3"),
        Comment2   => Sun3_X11r3.Keyboard.Comment2,
        R1000_Dir  => Sun3_X11r3.Keyboard.R1000_Dir,
        Source_Dir => Sun3_X11r3.Keyboard.Source_Dir,
        Lines      => 70,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Sun_X11r3_Sparc :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; Sun X11R3"),
        Comment2   => Sun3_X11r3_Sparc.Keyboard.Comment2,
        R1000_Dir  => Sun3_X11r3_Sparc.Keyboard.R1000_Dir,
        Source_Dir => Sun3_X11r3_Sparc.Keyboard.Source_Dir,
        Lines      => 70,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Xnews_V2_0 :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; Sun X/NeWS"),
        Comment2   => News3_V2_0.Keyboard.Comment2,
        R1000_Dir  => News3_V2_0.Keyboard.R1000_Dir,
        Source_Dir => News3_V2_0.Keyboard.Source_Dir,
        Lines      => 70,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Xnews_V2_0_Sparc :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; Sun X/NeWS"),
        Comment2   => News3_V2_0_Sparc.Keyboard.Comment2,
        R1000_Dir  => News3_V2_0_Sparc.Keyboard.R1000_Dir,
        Source_Dir => News3_V2_0_Sparc.Keyboard.Source_Dir,
        Lines      => 70,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Aix3_1 :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; IBM AIX 3.1"),
        Comment2   => R6us_Aix3_1.Keyboard.Comment2,
        R1000_Dir  => R6us_Aix3_1.Keyboard.R1000_Dir,
        Source_Dir => R6us_Aix3_1.Keyboard.Source_Dir,
        Lines      => 70,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Vms5_1_Multinet203 :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; VMS 5.1"),
        Comment2   => Decus_Vms5_1_Multinet203.Keyboard.Comment2,
        R1000_Dir  => Decus_Vms5_1_Multinet203.Keyboard.R1000_Dir,
        Source_Dir => Decus_Vms5_1_Multinet203.Keyboard.Source_Dir,
        Lines      => 70,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Vms5_1_Wollongong502 :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; VMS 5.1"),
        Comment2   => Decus_Vms5_1_Wollongong502.Keyboard.Comment2,
        R1000_Dir  => Decus_Vms5_1_Wollongong502.Keyboard.R1000_Dir,
        Source_Dir => Decus_Vms5_1_Wollongong502.Keyboard.Source_Dir,
        Lines      => 70,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Hpux7_0 :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; HP-UX 7.0"),
        Comment2   => Hp46021a_Hpux7_0.Keyboard.Comment2,
        R1000_Dir  => Hp46021a_Hpux7_0.Keyboard.R1000_Dir,
        Source_Dir => Hp46021a_Hpux7_0.Keyboard.Source_Dir,
        Lines      => 60,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

    Keyboard_Sr10_2_Unix :=  
       (Name       => Hs ("XNCD"),
        Id         => Xncd_Id,
        Comment1   => Hs ("NCD; X Terminal; Apollo SR10.2 (BSD Unix)"),
        Comment2   => Apollo3_Sr10_2_Unix.Keyboard.Comment2,
        R1000_Dir  => Apollo3_Sr10_2_Unix.Keyboard.R1000_Dir,
        Source_Dir => Apollo3_Sr10_2_Unix.Keyboard.Source_Dir,
        Lines      => 60,
        Columns    => 80,  
        Tt_Extra   => null,
        Has_Source => True);

end Ncd_R1000;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1f rec1=00 rec2=01 rec3=00e
        [0x01] rec0=1a rec1=00 rec2=02 rec3=04c
        [0x02] rec0=19 rec1=00 rec2=03 rec3=052
        [0x03] rec0=19 rec1=00 rec2=04 rec3=02c
        [0x04] rec0=08 rec1=00 rec2=05 rec3=000
    tail 0x217000990815772f19688 0x42a00088462063203