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

⟦24b3df203⟧

    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 00d0       |    |		.CONST	0x00d0								; 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 004b       | K  |		.CONST	0x004b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x0112,0x8000,0x0000,0x0059,0xed35,0x0000,0x000e
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000d 0129       | )  |		Execute	Any,Make_Visible
000e e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0010 0129       | )  |		Execute	Any,Make_Visible
0011 4804       |H   |		Short_Literal	0x4							; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0013 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x3 = 0x13,0xfffc
0014 02a0       |    |		Declare_Subprogram	Null_Subprogram
0015 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0016 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x4 = 0x16,0xfffb
0017 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x17,0xfffa
0019 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x19,0xfff9
001b 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1b,0xfff8
001d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1d,0xfff7
001f 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1f,0xfff6
0021 60aa       |`   |		Indirect_Literal	Discrete,0xcc,{0x00000000, 0x0059ed35}		; Debug Table 0x0.0xa = 0x21,0xfff5
0022 488a       |H   |		Short_Literal	0x8a
0023 e20e       |    |		Load	0x1,0xe
0024 e003       |    |		Load	0x0,0x3
0025 0387       |    |		Declare_Variable	Package
0026 00d8       |    |		Load_Top	At_Offset_0
0027 020f       |    |		Execute	Module,Activate
0028 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0xb = 0x28,0xfff4
0029 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
002a e20f       |    |		Load	0x1,0xf
002b 0325       | %  |		Complete_Type	Record,By_Renaming
002c 00bf       |    |		Action	Accept_Activation
002d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1 = .DEBUG	0x002d,0x012c,0x8000,0x0000,0x0059,0xf535,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x2d,0xffff
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 6098       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x0059f535}		; Debug Table 0x1.0x1 = 0x2f,0xfffe
0030 4824       |H$  |		Short_Literal	0x24
0031 e20f       |    |		Load	0x1,0xf
0032 e210       |    |		Load	0x1,0x10
0033 e004       |    |		Load	0x0,0x4
0034 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0035 0387       |    |		Declare_Variable	Package
0036 00d8       |    |		Load_Top	At_Offset_0
0037 020f       |    |		Execute	Module,Activate
0038 e004       |    |		Load	0x0,0x4								; Debug Table 0x1.0x2 = 0x38,0xfffd
0039 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
003a 00c6       |    |		Action	Check_Subprogram_Elaborated
003b 00d9       |    |		Load_Top	At_Offset_1
003c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
003d 00da       |    |		Load_Top	At_Offset_2
003e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
003f 6088       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x0059f535}
0040 482d       |H-  |		Short_Literal	0x2d
0041 4800       |H   |		Short_Literal	0x0
0042 0007       |    |		Action	Break_Optional
0043 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x3 = 0x43,0xfffc
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x4 = 0x45,0xfffb
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x5 = 0x47,0xfffa
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x6 = 0x49,0xfff9
004a 00c7       |    |		Action	Elaborate_Subprogram
004b			BODY_0008:
004b 00bc       |    |		Action	Signal_Activated
004c 00bb       |    |		Action	Signal_Completion
004d 0000 0000  |    |		.XXX[0x3]
004f 0000       |    |
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 e216       |    |		Load	0x1,0x16							; Debug Table 0x2 = .DEBUG	0x0053,0x013c,0x0001,0x0000,0x0059,0xed35,0x0000,0x0029
													; Debug Table 0x2.0x0 = 0x53,0x1
0054 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0055 00db       |    |		Load_Top	At_Offset_3
0056 e216       |    |		Load	0x1,0x16
0057 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0058 00d1       |    |		Pop_Control	Pop_Count_1
0059 c5fe       |    |		Store	0x2,-0x2
005a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
005b 0000 0000  |    |		.BLANK	0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0065       | e  |		.CONST	0x0065								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0002       |    |		.CONST	0x0002								; Number of locals
0063			INIT_0060:
0063 e216       |    |		Load	0x1,0x16							; Debug Table 0x3 = .DEBUG	0x0063,0x0140,0x0001,0x0000,0x0059,0xed35,0x0000,0x0035
													; Debug Table 0x3.0x0 = 0x63,0xffff
0064 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0065			BODY_0060:
0065 e216       |    |		Load	0x1,0x16							; Debug Table 0x3.0x1 = 0x65,0x1
0066 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0067 e216       |    |		Load	0x1,0x16
0068 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0069 e5fd       |    |		Load	0x2,-0x3
006a e217       |    |		Load	0x1,0x17
006b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
006c e5fd       |    |		Load	0x2,-0x3
006d e217       |    |		Load	0x1,0x17
006e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
006f e218       |    |		Load	0x1,0x18
0070 e219       |    |		Load	0x1,0x19
0071 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0072 e004       |    |		Load	0x0,0x4
0073 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0074 e5fe       |    |		Load	0x2,-0x2
0075 e5ff       |    |		Load	0x2,-0x1
0076 e216       |    |		Load	0x1,0x16
0077 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0078 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0079 c5fc       |    |		Store	0x2,-0x4
007a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
007b 0000 0000  |    |		.BLANK	0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 e216       |    |		Load	0x1,0x16							; Debug Table 0x4 = .DEBUG	0x0083,0x0146,0x0001,0x0000,0x0059,0xed35,0x0000,0x004b
													; Debug Table 0x4.0x0 = 0x83,0x1
0084 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0085 e5fe       |    |		Load	0x2,-0x2
0086 e5ff       |    |		Load	0x2,-0x1
0087 e216       |    |		Load	0x1,0x16
0088 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0089 00d1       |    |		Pop_Control	Pop_Count_1
008a c5fd       |    |		Store	0x2,-0x3
008b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 e216       |    |		Load	0x1,0x16							; Debug Table 0x5 = .DEBUG	0x0093,0x014a,0x0001,0x0000,0x0059,0xed35,0x0000,0x005d
													; Debug Table 0x5.0x0 = 0x93,0x1
0094 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0095 00e3       |    |		Load_Encached	Natural_Cache
0096 e5ff       |    |		Load	0x2,-0x1
0097 e216       |    |		Load	0x1,0x16
0098 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0099 c5fe       |    |		Store	0x2,-0x2
009a c5fd       |    |		Store	0x2,-0x3
009b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009c 0000 0000  |    |		.BLANK	0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00af       |    |		.CONST	0x00af								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0006       |    |		.CONST	0x0006								; Number of locals
00a3			INIT_00a0:
00a3 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call				; Debug Table 0x6 = .DEBUG	0x00a3,0x014e,0x2801,0x0002,0x0059,0xed35,0x0000,0x006d
													; Debug Table 0x6.0x0 = 0xa3,0xffff
00a5 e216       |    |		Load	0x1,0x16							; Debug Table 0x6.0x1 = 0xa5,0xfffe
00a6 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
00a7 00c6       |    |		Action	Check_Subprogram_Elaborated
00a8 4802       |H   |		Short_Literal	0x2
00a9 4802       |H   |		Short_Literal	0x2
00aa 0099       |    |		Action	Reference_Dynamic
00ab 601c       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x0059f535}
00ac 48dd       |H   |		Short_Literal	0xdd
00ad 4806       |H   |		Short_Literal	0x6
00ae 0007       |    |		Action	Break_Optional
00af			BODY_00a0:
00af e216       |    |		Load	0x1,0x16							; Debug Table 0x6.0x2 = 0xaf,0x1
00b0 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00b1 e5fd       |    |		Load	0x2,-0x3
00b2 4803       |H   |		Short_Literal	0x3
00b3 4802       |H   |		Short_Literal	0x2
00b4 0099       |    |		Action	Reference_Dynamic
00b5 4804       |H   |		Short_Literal	0x4
00b6 4802       |H   |		Short_Literal	0x2
00b7 0099       |    |		Action	Reference_Dynamic
00b8 e216       |    |		Load	0x1,0x16
00b9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ba 00d1       |    |		Pop_Control	Pop_Count_1
00bb c5fc       |    |		Store	0x2,-0x4
00bc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x00c3,0x0156,0x0801,0x0002,0x0059,0xf535,0x0000,0x00c6
													; Debug Table 0x7.0x0 = 0xc3,0x1
00c4 e7fe       |    |		Load	0x3,-0x2
00c5 85fe       |    |		Call	0x2,-0x2
00c6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c7 0000       |    |		.XXX[0x1]
00c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0059f535}
00cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0059ed35}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0003 0008  |    |		.CONST	0x0003,0x0008
00d2 000b 0112  |    |		.DEBUG	0x000b,0x0112,0x8000,0x0000,0x0059,0xed35,0x0000,0x000e
00da 002d 012c  | - ,|		.DEBUG	0x002d,0x012c,0x8000,0x0000,0x0059,0xf535,0x0000,0x0007
00e2 0053 013c  | S <|		.DEBUG	0x0053,0x013c,0x0001,0x0000,0x0059,0xed35,0x0000,0x0029
00ea 0063 0140  | c @|		.DEBUG	0x0063,0x0140,0x0001,0x0000,0x0059,0xed35,0x0000,0x0035
00f2 0083 0146  |   F|		.DEBUG	0x0083,0x0146,0x0001,0x0000,0x0059,0xed35,0x0000,0x004b
00fa 0093 014a  |   J|		.DEBUG	0x0093,0x014a,0x0001,0x0000,0x0059,0xed35,0x0000,0x005d
0102 00a3 014e  |   N|		.DEBUG	0x00a3,0x014e,0x2801,0x0002,0x0059,0xed35,0x0000,0x006d
010a 00c3 0156  |   V|		.DEBUG	0x00c3,0x0156,0x0801,0x0002,0x0059,0xf535,0x0000,0x00c6
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x0
0112 ; --------------------------------------------------------------------------------------
0112 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
0114 000b ffff  |    |		.CONST	0x000b,0xffff
0116 000e fffe  |    |		.CONST	0x000e,0xfffe
0118 0011 fffd  |    |		.CONST	0x0011,0xfffd
011a 0013 fffc  |    |		.CONST	0x0013,0xfffc
011c 0016 fffb  |    |		.CONST	0x0016,0xfffb
011e 0017 fffa  |    |		.CONST	0x0017,0xfffa
0120 0019 fff9  |    |		.CONST	0x0019,0xfff9
0122 001b fff8  |    |		.CONST	0x001b,0xfff8
0124 001d fff7  |    |		.CONST	0x001d,0xfff7
0126 001f fff6  |    |		.CONST	0x001f,0xfff6
0128 0021 fff5  | !  |		.CONST	0x0021,0xfff5
012a 0028 fff4  | (  |		.CONST	0x0028,0xfff4
012c ; --------------------------------------------------------------------------------------
012c ; Debug3 Subtable 0x1
012c ; --------------------------------------------------------------------------------------
012c 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
012e 002d ffff  | -  |		.CONST	0x002d,0xffff
0130 002f fffe  | /  |		.CONST	0x002f,0xfffe
0132 0038 fffd  | 8  |		.CONST	0x0038,0xfffd
0134 0043 fffc  | C  |		.CONST	0x0043,0xfffc
0136 0045 fffb  | E  |		.CONST	0x0045,0xfffb
0138 0047 fffa  | G  |		.CONST	0x0047,0xfffa
013a 0049 fff9  | I  |		.CONST	0x0049,0xfff9
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x2
013c ; --------------------------------------------------------------------------------------
013c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
013e 0053 0001  | S  |		.CONST	0x0053,0x0001
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug3 Subtable 0x3
0140 ; --------------------------------------------------------------------------------------
0140 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0142 0063 ffff  | c  |		.CONST	0x0063,0xffff
0144 0065 0001  | e  |		.CONST	0x0065,0x0001
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug3 Subtable 0x4
0146 ; --------------------------------------------------------------------------------------
0146 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0148 0083 0001  |    |		.CONST	0x0083,0x0001
014a ; --------------------------------------------------------------------------------------
014a ; Debug3 Subtable 0x5
014a ; --------------------------------------------------------------------------------------
014a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
014c 0093 0001  |    |		.CONST	0x0093,0x0001
014e ; --------------------------------------------------------------------------------------
014e ; Debug3 Subtable 0x6
014e ; --------------------------------------------------------------------------------------
014e 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0150 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0152 00a5 fffe  |    |		.CONST	0x00a5,0xfffe
0154 00af 0001  |    |		.CONST	0x00af,0x0001
0156 ; --------------------------------------------------------------------------------------
0156 ; Debug3 Subtable 0x7
0156 ; --------------------------------------------------------------------------------------
0156 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0158 00c3 0001  |    |		.CONST	0x00c3,0x0001
015a 0000 0000  |    |		.BLANK	0000[0xa6]