DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦b5c6f2c60⟧ TextFile

    Length: 1612 (0x64c)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Z80_Defs;  
with Octet;
with Mot;

package Desassembleur is


    --TYPES -------------------------------------------------------------------

    type Mnemonic is
       (-- operations sur 8 bits
        Inc, Dec, Adc, Add, Sbc, Z80_And, Z80_Or, Z80_Xor, Neg, Sub, Cp,
        Rl, Rlc, Rr, Rrc, Sla, Sra, Srl, Rla, Rlca, Rld, Rra, Rrca, Rrd,
        --

        Inconnu, Bit, Call, Ccf, Cpd, Cpdr, Cpir, Cpi, Cpl, Daa, Di,
        Djnz, Ei, Ex, Exx, Halt, Im, Z80_In, Ind, Indr, Ini, Inir,
        Jp, Jr, Ld, Ldd, Lddr, Ldi, Ldir, Nop, Otdr, Otir, Z80_Out,
        Outd, Outi, Pop, Push, Res, Ret, Reti, Retn, Rst, Scf, Set);

    -- type Mnemonic is (Inconnu, Adc, Add, Z80_And, Bit, Call, Ccf, Cp, Cpd,
    --                    Cpdr, Cpir, Cpi, Cpl, Daa, Dec, Di, Djnz, Ei, Ex, Exx,
    --                    Halt, Im, Z80_In, Inc, Ind, Indr, Ini, Inir, Jp, Jr,
    --                    Ld, Ldd, Lddr, Ldi, Ldir, Neg, Nop, Z80_Or, Otdr, Otir,
    --                    Z80_Out, Outd, Outi, Pop, Push, Res, Ret, Reti, Retn,
    --                    Rl, Rla, Rlc, Rlca, Rld, Rr, Rra, Rrc, Rrca, Rrd,
    --                    Rst, Sbc, Scf, Set, Sla, Sra, Srl, Sub, Z80_Xor);

    type Instruction is
        record
            Mnemo : Mnemonic;
            Op_Gauche : Z80_Defs.Operande;
            Op_Droit : Z80_Defs.Operande;
            Donnee : Mot.T_Mot;  
        end record;


    -- PROCEDURES ----------------------------------------------------------

    function Traiter_Code (Code : Octet.T_Octet) return Boolean;
    function Instruction_Trouvee return Instruction;

end Desassembleur;