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

⟦4345bbf2c⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0028       | (  |		.CONST	0x0028								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001a       |    |		.CONST	0x001a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 0092 001c  |    |		Action	Push_String_Extended,0x1c					; "DICTIONARY"
													; Debug Table 0x0 = .DEBUG	0x000b,0x0032,0x8000,0x0000,0x005a,0x6775,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 0129       | )  |		Execute	Any,Make_Visible
000e e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0010 e002       |    |		Load	0x0,0x2
0011 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0012 011e       |    |		Execute	Any,Convert
0013 0129       | )  |		Execute	Any,Make_Visible
0014 e003       |    |		Load	0x0,0x3								; Debug Table 0x0.0x2 = 0x14,0xfffd
0015 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0016 e002       |    |		Load	0x0,0x2
0017 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0018 03f0       |    |		Declare_Variable	Discrete,Visible,With_Value
0019 00bf       |    |		Action	Accept_Activation
001a			BODY_0008:
001a 00bc       |    |		Action	Signal_Activated
001b 00bb       |    |		Action	Signal_Completion
001c ; --------------------------------------------------------------------------------------
001c ; STRING TABLE
001c ; --------------------------------------------------------------------------------------
001c 0004       |    |		.STRTAB	0x0004->0x001e							; "DICTIONARY"
001d 000c       |    |		.STREND 0x000c->0x0023
001e 4449 4354  |DICT|		.STRTAB_STRINGS
0023 0000 0000  |    |		.BLANK	0000[0x5]
0028 ; --------------------------------------------------------------------------------------
0028 ; Debug Table
0028 ; --------------------------------------------------------------------------------------
0028 0003 0001  |    |		.CONST	0x0003,0x0001
002a 000b 0032  |   2|		.DEBUG	0x000b,0x0032,0x8000,0x0000,0x005a,0x6775,0x0000,0x0009
0032 ; --------------------------------------------------------------------------------------
0032 ; Debug3 Subtable 0x0
0032 ; --------------------------------------------------------------------------------------
0032 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
0034 000b ffff  |    |		.CONST	0x000b,0xffff
0036 000e fffe  |    |		.CONST	0x000e,0xfffe
0038 0014 fffd  |    |		.CONST	0x0014,0xfffd
003a 0000 0000  |    |		.BLANK	0000[0x1c6]