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

⟦26e821afe⟧

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

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 0080       |    |		.CONST	0x0080								; 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 002a       | *  |		.CONST	0x002a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0 = .DEBUG	0x000b,0x00b2,0x8000,0x0000,0x0056,0xef85,0x0000,0x000c
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
000d 00c4       |    |		Action	Make_Default							; Debug Table 0x0.0x3 = 0xd,0xfffc
000e 4804       |H   |		Short_Literal	0x4							; Debug Table 0x0.0x4 = 0xe,0xfffb
000f 601c       |`   |		Indirect_Literal	Discrete,0x2c,{0x00493c0e, 0x00000330}
0010 02a0       |    |		Declare_Subprogram	Null_Subprogram
0011 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0012 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x0.0x5 = 0x12,0xfffa
0013 e001       |    |		Load	0x0,0x1
0014 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 e20d       |    |		Load	0x1,0xd
0017 0326       | &  |		Complete_Type	Record,By_Defining
0018 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x0.0x6 = 0x18,0xfff9
0019 0322       | "  |		Declare_Variable	Record
001a 00f0       |    |		Load_Encached	Segment_Cache
001b 00d9       |    |		Load_Top	At_Offset_1
001c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
001d 4800       |H   |		Short_Literal	0x0
001e 00d9       |    |		Load_Top	At_Offset_1
001f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0020 0129       | )  |		Execute	Any,Make_Visible
0021 c20e       |    |		Store	0x1,0xe
0022 00bf       |    |		Action	Accept_Activation
0023 e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x0023,0x00c2,0x8000,0x0000,0x0056,0xf3b5,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x23,0xffff
													; Debug Table 0x1.0x1 = 0x23,0xfffe
0024 00b6       |    |		Action	Make_Scope
0025 4802       |H   |		Short_Literal	0x2
0026 00db       |    |		Load_Top	At_Offset_3
0027 020e       |    |		Execute	Module,Augment_Imports
0028 00d8       |    |		Load_Top	At_Offset_0
0029 020d       |    |		Execute	Module,Elaborate
002a			BODY_0008:
002a 00bc       |    |		Action	Signal_Activated
002b 00bb       |    |		Action	Signal_Completion
002c 0049 3c0e  | I< |		.LITERAL	{0x00493c0e, 0x00000330}
0030 004d 0004  | M  |		.XXX[0x3]
0032 0018       |    |
0033 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2 = .DEBUG	0x0033,0x00c8,0x4000,0x0000,0x0056,0xef85,0x0000,0x0023
													; Debug Table 0x2.0x0 = 0x33,0xffff
0035 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x1 = 0x35,0xfffe
0037 00bf       |    |		Action	Accept_Activation
0038 603f       |`?  |		Indirect_Literal	Discrete,0x78,{0x00000000, 0x0056f3b5}		; Debug Table 0x3 = .DEBUG	0x0038,0x00ce,0x4000,0x0000,0x0056,0xf3b5,0x0000,0x0008
													; Debug Table 0x3.0x0 = 0x38,0xffff
0039 4809       |H   |		Short_Literal	0x9
003a e20f       |    |		Load	0x1,0xf
003b e210       |    |		Load	0x1,0x10
003c e001       |    |		Load	0x0,0x1
003d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
003e 0387       |    |		Declare_Variable	Package
003f 00d8       |    |		Load_Top	At_Offset_0
0040 020f       |    |		Execute	Module,Activate
0041 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x1 = 0x41,0xfffe
0042 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0043 00c6       |    |		Action	Check_Subprogram_Elaborated
0044 e20f       |    |		Load	0x1,0xf
0045 e210       |    |		Load	0x1,0x10
0046 6031       |`1  |		Indirect_Literal	Discrete,0x78,{0x00000000, 0x0056f3b5}
0047 4812       |H   |		Short_Literal	0x12
0048 4800       |H   |		Short_Literal	0x0
0049 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x3.0x2 = 0x49,0xfffd
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x3.0x3 = 0x4b,0xfffc
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 00bc       |    |		Action	Signal_Activated
004e 00bb       |    |		Action	Signal_Completion
004f 0000       |    |		.XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x0053,0x00d8,0x1002,0x0000,0x0056,0xef85,0x0000,0x0033
													; Debug Table 0x4.0x0 = 0x53,0x1
0054 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0055 00db       |    |		Load_Top	At_Offset_3
0056 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0057 e214       |    |		Load	0x1,0x14
0058 e215       |    |		Load	0x1,0x15
0059 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005a e001       |    |		Load	0x0,0x1
005b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
005c e210       |    |		Load	0x1,0x10
005d 0213       |    |		Execute	Heap_Access,Check_In_Type
005e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
005f 0000       |    |		.XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e002       |    |		Load	0x0,0x2								; Debug Table 0x5 = .DEBUG	0x0063,0x00dc,0x1002,0x0000,0x0056,0xef85,0x0000,0x003c
													; Debug Table 0x5.0x0 = 0x63,0x1
0064 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0065 0322       | "  |		Declare_Variable	Record
0066 00db       |    |		Load_Top	At_Offset_3
0067 e210       |    |		Load	0x1,0x10
0068 0213       |    |		Execute	Heap_Access,Check_In_Type
0069 e213       |    |		Load	0x1,0x13
006a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
006b 00d9       |    |		Load_Top	At_Offset_1
006c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
006d 00db       |    |		Load_Top	At_Offset_3
006e e210       |    |		Load	0x1,0x10
006f 0213       |    |		Execute	Heap_Access,Check_In_Type
0070 e213       |    |		Load	0x1,0x13
0071 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0072 00d9       |    |		Load_Top	At_Offset_1
0073 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0074 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056f3b5}
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; Debug Table
0080 ; --------------------------------------------------------------------------------------
0080 0003 0006  |    |		.CONST	0x0003,0x0006
0082 000b 00b2  |    |		.DEBUG	0x000b,0x00b2,0x8000,0x0000,0x0056,0xef85,0x0000,0x000c
008a 0023 00c2  | #  |		.DEBUG	0x0023,0x00c2,0x8000,0x0000,0x0056,0xf3b5,0x0000,0x0003
0092 0033 00c8  | 3  |		.DEBUG	0x0033,0x00c8,0x4000,0x0000,0x0056,0xef85,0x0000,0x0023
009a 0038 00ce  | 8  |		.DEBUG	0x0038,0x00ce,0x4000,0x0000,0x0056,0xf3b5,0x0000,0x0008
00a2 0053 00d8  | S  |		.DEBUG	0x0053,0x00d8,0x1002,0x0000,0x0056,0xef85,0x0000,0x0033
00aa 0063 00dc  | c  |		.DEBUG	0x0063,0x00dc,0x1002,0x0000,0x0056,0xef85,0x0000,0x003c
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug3 Subtable 0x0
00b2 ; --------------------------------------------------------------------------------------
00b2 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
00b4 000b ffff  |    |		.CONST	0x000b,0xffff
00b6 000b fffe  |    |		.CONST	0x000b,0xfffe
00b8 000b fffd  |    |		.CONST	0x000b,0xfffd
00ba 000d fffc  |    |		.CONST	0x000d,0xfffc
00bc 000e fffb  |    |		.CONST	0x000e,0xfffb
00be 0012 fffa  |    |		.CONST	0x0012,0xfffa
00c0 0018 fff9  |    |		.CONST	0x0018,0xfff9
00c2 ; --------------------------------------------------------------------------------------
00c2 ; Debug3 Subtable 0x1
00c2 ; --------------------------------------------------------------------------------------
00c2 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
00c4 0023 ffff  | #  |		.CONST	0x0023,0xffff
00c6 0023 fffe  | #  |		.CONST	0x0023,0xfffe
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug3 Subtable 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
00ca 0033 ffff  | 3  |		.CONST	0x0033,0xffff
00cc 0035 fffe  | 5  |		.CONST	0x0035,0xfffe
00ce ; --------------------------------------------------------------------------------------
00ce ; Debug3 Subtable 0x3
00ce ; --------------------------------------------------------------------------------------
00ce 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
00d0 0038 ffff  | 8  |		.CONST	0x0038,0xffff
00d2 0041 fffe  | A  |		.CONST	0x0041,0xfffe
00d4 0049 fffd  | I  |		.CONST	0x0049,0xfffd
00d6 004b fffc  | K  |		.CONST	0x004b,0xfffc
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug3 Subtable 0x4
00d8 ; --------------------------------------------------------------------------------------
00d8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00da 0053 0001  | S  |		.CONST	0x0053,0x0001
00dc ; --------------------------------------------------------------------------------------
00dc ; Debug3 Subtable 0x5
00dc ; --------------------------------------------------------------------------------------
00dc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00de 0063 0001  | c  |		.CONST	0x0063,0x0001
00e0 0000 0000  |    |		.BLANK	0000[0x120]