|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Desassembleur, seg_00f4d8
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1a rec1=00 rec2=01 rec3=018
[0x01] rec0=13 rec1=00 rec2=02 rec3=000
tail 0x2150b563a822b4fe79fcd 0x42a00088462060003