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

⟦c34154e4e⟧

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

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0120       |    |		.CONST	0x0120								; 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 00fb       |    |		.CONST	0x00fb								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x0142,0x8000,0x0000,0x0035,0x26a4,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000e 0129       | )  |		Execute	Any,Make_Visible
000f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x2 = 0xf,0xfffd
0010 4809       |H   |		Short_Literal	0x9
0011 e002       |    |		Load	0x0,0x2
0012 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0013 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0014 48f2       |H   |		Short_Literal	0xf2							; Debug Table 0x0.0x3 = 0x14,0xfffc
0015 48f9       |H   |		Short_Literal	0xf9
0016 e003       |    |		Load	0x0,0x3
0017 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0018 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0019 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x19,0xfffb
001b 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x1b,0xfffa
001d 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x6 = 0x1d,0xfff9
001e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1 = .DEBUG	0x001e,0x0152,0x8000,0x0000,0x0035,0x27b4,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x1e,0xffff
001f 4809       |H   |		Short_Literal	0x9
0020 e20d       |    |		Load	0x1,0xd
0021 02a0       |    |		Declare_Subprogram	Null_Subprogram
0022 4801       |H   |		Short_Literal	0x1
0023 035d       | ]  |		Declare_Type	Array,Defined
0024 00d8       |    |		Load_Top	At_Offset_0
0025 0337       | 7  |		Declare_Variable	Array
0026 00d8       |    |		Load_Top	At_Offset_0
0027 0337       | 7  |		Declare_Variable	Array
0028 e001       |    |		Load	0x0,0x1
0029 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
002a e001       |    |		Load	0x0,0x1
002b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002c 0119       |    |		Execute	Any,Check_In_Formal_Type
002d 4801       |H   |		Short_Literal	0x1
002e 00da       |    |		Load_Top	At_Offset_2
002f 01d6       |    |		Execute	Vector,Field_Write
0030 4801       |H   |		Short_Literal	0x1
0031 4802       |H   |		Short_Literal	0x2
0032 e004       |    |		Load	0x0,0x4
0033 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0034 0334       | 4  |		Declare_Variable	Array,With_Constraint
0035 48ff       |H   |		Short_Literal	0xff
0036 4801       |H   |		Short_Literal	0x1
0037 00da       |    |		Load_Top	At_Offset_2
0038 01d6       |    |		Execute	Vector,Field_Write
0039 48f2       |H   |		Short_Literal	0xf2
003a 4802       |H   |		Short_Literal	0x2
003b 00da       |    |		Load_Top	At_Offset_2
003c 01d6       |    |		Execute	Vector,Field_Write
003d e001       |    |		Load	0x0,0x1
003e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003f 0119       |    |		Execute	Any,Check_In_Formal_Type
0040 4802       |H   |		Short_Literal	0x2
0041 00da       |    |		Load_Top	At_Offset_2
0042 01d6       |    |		Execute	Vector,Field_Write
0043 4801       |H   |		Short_Literal	0x1
0044 4802       |H   |		Short_Literal	0x2
0045 e004       |    |		Load	0x0,0x4
0046 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0047 0334       | 4  |		Declare_Variable	Array,With_Constraint
0048 48ff       |H   |		Short_Literal	0xff
0049 4801       |H   |		Short_Literal	0x1
004a 00da       |    |		Load_Top	At_Offset_2
004b 01d6       |    |		Execute	Vector,Field_Write
004c 48f3       |H   |		Short_Literal	0xf3
004d 4802       |H   |		Short_Literal	0x2
004e 00da       |    |		Load_Top	At_Offset_2
004f 01d6       |    |		Execute	Vector,Field_Write
0050 e001       |    |		Load	0x0,0x1
0051 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0052 0119       |    |		Execute	Any,Check_In_Formal_Type
0053 4803       |H   |		Short_Literal	0x3
0054 00da       |    |		Load_Top	At_Offset_2
0055 01d6       |    |		Execute	Vector,Field_Write
0056 4801       |H   |		Short_Literal	0x1
0057 4802       |H   |		Short_Literal	0x2
0058 e004       |    |		Load	0x0,0x4
0059 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
005a 0334       | 4  |		Declare_Variable	Array,With_Constraint
005b 48ff       |H   |		Short_Literal	0xff
005c 4801       |H   |		Short_Literal	0x1
005d 00da       |    |		Load_Top	At_Offset_2
005e 01d6       |    |		Execute	Vector,Field_Write
005f 48f4       |H   |		Short_Literal	0xf4
0060 4802       |H   |		Short_Literal	0x2
0061 00da       |    |		Load_Top	At_Offset_2
0062 01d6       |    |		Execute	Vector,Field_Write
0063 e001       |    |		Load	0x0,0x1
0064 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0065 0119       |    |		Execute	Any,Check_In_Formal_Type
0066 4804       |H   |		Short_Literal	0x4
0067 00da       |    |		Load_Top	At_Offset_2
0068 01d6       |    |		Execute	Vector,Field_Write
0069 4801       |H   |		Short_Literal	0x1
006a 4802       |H   |		Short_Literal	0x2
006b e004       |    |		Load	0x0,0x4
006c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
006d 0334       | 4  |		Declare_Variable	Array,With_Constraint
006e 48ff       |H   |		Short_Literal	0xff
006f 4801       |H   |		Short_Literal	0x1
0070 00da       |    |		Load_Top	At_Offset_2
0071 01d6       |    |		Execute	Vector,Field_Write
0072 48f5       |H   |		Short_Literal	0xf5
0073 4802       |H   |		Short_Literal	0x2
0074 00da       |    |		Load_Top	At_Offset_2
0075 01d6       |    |		Execute	Vector,Field_Write
0076 e001       |    |		Load	0x0,0x1
0077 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0078 0119       |    |		Execute	Any,Check_In_Formal_Type
0079 4805       |H   |		Short_Literal	0x5
007a 00da       |    |		Load_Top	At_Offset_2
007b 01d6       |    |		Execute	Vector,Field_Write
007c 4801       |H   |		Short_Literal	0x1
007d 4802       |H   |		Short_Literal	0x2
007e e004       |    |		Load	0x0,0x4
007f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0080 0334       | 4  |		Declare_Variable	Array,With_Constraint
0081 48ff       |H   |		Short_Literal	0xff
0082 4801       |H   |		Short_Literal	0x1
0083 00da       |    |		Load_Top	At_Offset_2
0084 01d6       |    |		Execute	Vector,Field_Write
0085 48f6       |H   |		Short_Literal	0xf6
0086 4802       |H   |		Short_Literal	0x2
0087 00da       |    |		Load_Top	At_Offset_2
0088 01d6       |    |		Execute	Vector,Field_Write
0089 e001       |    |		Load	0x0,0x1
008a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008b 0119       |    |		Execute	Any,Check_In_Formal_Type
008c 4806       |H   |		Short_Literal	0x6
008d 00da       |    |		Load_Top	At_Offset_2
008e 01d6       |    |		Execute	Vector,Field_Write
008f 4801       |H   |		Short_Literal	0x1
0090 4802       |H   |		Short_Literal	0x2
0091 e004       |    |		Load	0x0,0x4
0092 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0093 0334       | 4  |		Declare_Variable	Array,With_Constraint
0094 48ff       |H   |		Short_Literal	0xff
0095 4801       |H   |		Short_Literal	0x1
0096 00da       |    |		Load_Top	At_Offset_2
0097 01d6       |    |		Execute	Vector,Field_Write
0098 48f7       |H   |		Short_Literal	0xf7
0099 4802       |H   |		Short_Literal	0x2
009a 00da       |    |		Load_Top	At_Offset_2
009b 01d6       |    |		Execute	Vector,Field_Write
009c e001       |    |		Load	0x0,0x1
009d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009e 0119       |    |		Execute	Any,Check_In_Formal_Type
009f 4807       |H   |		Short_Literal	0x7
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 01d6       |    |		Execute	Vector,Field_Write
00a2 4801       |H   |		Short_Literal	0x1
00a3 4802       |H   |		Short_Literal	0x2
00a4 e004       |    |		Load	0x0,0x4
00a5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00a6 0334       | 4  |		Declare_Variable	Array,With_Constraint
00a7 48ff       |H   |		Short_Literal	0xff
00a8 4801       |H   |		Short_Literal	0x1
00a9 00da       |    |		Load_Top	At_Offset_2
00aa 01d6       |    |		Execute	Vector,Field_Write
00ab 48f8       |H   |		Short_Literal	0xf8
00ac 4802       |H   |		Short_Literal	0x2
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 01d6       |    |		Execute	Vector,Field_Write
00af e001       |    |		Load	0x0,0x1
00b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b1 0119       |    |		Execute	Any,Check_In_Formal_Type
00b2 4808       |H   |		Short_Literal	0x8
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 01d6       |    |		Execute	Vector,Field_Write
00b5 4801       |H   |		Short_Literal	0x1
00b6 4802       |H   |		Short_Literal	0x2
00b7 e004       |    |		Load	0x0,0x4
00b8 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00b9 0334       | 4  |		Declare_Variable	Array,With_Constraint
00ba 48ff       |H   |		Short_Literal	0xff
00bb 4801       |H   |		Short_Literal	0x1
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 01d6       |    |		Execute	Vector,Field_Write
00be 48f9       |H   |		Short_Literal	0xf9
00bf 4802       |H   |		Short_Literal	0x2
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 01d6       |    |		Execute	Vector,Field_Write
00c2 e001       |    |		Load	0x0,0x1
00c3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c4 0119       |    |		Execute	Any,Check_In_Formal_Type
00c5 4809       |H   |		Short_Literal	0x9
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 01d6       |    |		Execute	Vector,Field_Write
00c8 00d9       |    |		Load_Top	At_Offset_1
00c9 01d4       |    |		Execute	Vector,Structure_Write
00ca 48f2       |H   |		Short_Literal	0xf2							; Debug Table 0x1.0x1 = 0xca,0xfffe
00cb 48f9       |H   |		Short_Literal	0xf9
00cc e002       |    |		Load	0x0,0x2
00cd 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
00ce 02a0       |    |		Declare_Subprogram	Null_Subprogram
00cf 4801       |H   |		Short_Literal	0x1
00d0 035d       | ]  |		Declare_Type	Array,Defined
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 0337       | 7  |		Declare_Variable	Array
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 0337       | 7  |		Declare_Variable	Array
00d5 4802       |H   |		Short_Literal	0x2
00d6 48f2       |H   |		Short_Literal	0xf2
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 01d6       |    |		Execute	Vector,Field_Write
00d9 4803       |H   |		Short_Literal	0x3
00da 48f3       |H   |		Short_Literal	0xf3
00db 00da       |    |		Load_Top	At_Offset_2
00dc 01d6       |    |		Execute	Vector,Field_Write
00dd 4804       |H   |		Short_Literal	0x4
00de 48f4       |H   |		Short_Literal	0xf4
00df 00da       |    |		Load_Top	At_Offset_2
00e0 01d6       |    |		Execute	Vector,Field_Write
00e1 4805       |H   |		Short_Literal	0x5
00e2 48f5       |H   |		Short_Literal	0xf5
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 01d6       |    |		Execute	Vector,Field_Write
00e5 4806       |H   |		Short_Literal	0x6
00e6 48f6       |H   |		Short_Literal	0xf6
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 01d6       |    |		Execute	Vector,Field_Write
00e9 4807       |H   |		Short_Literal	0x7
00ea 48f7       |H   |		Short_Literal	0xf7
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 01d6       |    |		Execute	Vector,Field_Write
00ed 4808       |H   |		Short_Literal	0x8
00ee 48f8       |H   |		Short_Literal	0xf8
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 4809       |H   |		Short_Literal	0x9
00f2 48f9       |H   |		Short_Literal	0xf9
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 01d4       |    |		Execute	Vector,Structure_Write
00f7 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x2 = 0xf7,0xfffd
00f8 00c7       |    |		Action	Elaborate_Subprogram
00f9 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x3 = 0xf9,0xfffc
00fa 00c7       |    |		Action	Elaborate_Subprogram
00fb			BODY_0008:
00fb 00bc       |    |		Action	Signal_Activated
00fc 00bb       |    |		Action	Signal_Completion
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0107       |    |		.CONST	0x0107								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x0103,0x015c,0x0002,0x0000,0x0035,0x26a4,0x0000,0x002e
													; Debug Table 0x2.0x0 = 0x103,0x1
0104 e215       |    |		Load	0x1,0x15
0105 01d7       |    |		Execute	Vector,Field_Read
0106 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0107			TRAP_0100:
0107 010e       |    |		Execute	Exception,Is_Constraint_Error
0108 6802       |h   |		Jump_Zero	0x10b
0109 600e       |`   |		Indirect_Literal	Discrete,0x118,{0x00000000, 0x3526a401}		; Debug Table 0x2.0x1 = 0x109,0x2
010a 0257       | W  |		Execute	Discrete,Raise
010b 0100       |    |		Execute	Exception,Raise
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0113,0x0162,0x0002,0x0000,0x0035,0x26a4,0x0000,0x003b
													; Debug Table 0x3.0x0 = 0x113,0x1
0114 e213       |    |		Load	0x1,0x13
0115 01d5       |    |		Execute	Vector,Field_Reference
0116 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0117 0000       |    |		.XXX[0x1]
0118 0000 0000  |    |		.LITERAL	{0x00000000, 0x3526a401}
011c 0000 0000  |    |		.BLANK	0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0003 0004  |    |		.CONST	0x0003,0x0004
0122 000b 0142  |   B|		.DEBUG	0x000b,0x0142,0x8000,0x0000,0x0035,0x26a4,0x0000,0x0009
012a 001e 0152  |   R|		.DEBUG	0x001e,0x0152,0x8000,0x0000,0x0035,0x27b4,0x0000,0x0007
0132 0103 015c  |   \|		.DEBUG	0x0103,0x015c,0x0002,0x0000,0x0035,0x26a4,0x0000,0x002e
013a 0113 0162  |   b|		.DEBUG	0x0113,0x0162,0x0002,0x0000,0x0035,0x26a4,0x0000,0x003b
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug3 Subtable 0x0
0142 ; --------------------------------------------------------------------------------------
0142 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
0144 000b ffff  |    |		.CONST	0x000b,0xffff
0146 000c fffe  |    |		.CONST	0x000c,0xfffe
0148 000f fffd  |    |		.CONST	0x000f,0xfffd
014a 0014 fffc  |    |		.CONST	0x0014,0xfffc
014c 0019 fffb  |    |		.CONST	0x0019,0xfffb
014e 001b fffa  |    |		.CONST	0x001b,0xfffa
0150 001d fff9  |    |		.CONST	0x001d,0xfff9
0152 ; --------------------------------------------------------------------------------------
0152 ; Debug3 Subtable 0x1
0152 ; --------------------------------------------------------------------------------------
0152 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0154 001e ffff  |    |		.CONST	0x001e,0xffff
0156 00ca fffe  |    |		.CONST	0x00ca,0xfffe
0158 00f7 fffd  |    |		.CONST	0x00f7,0xfffd
015a 00f9 fffc  |    |		.CONST	0x00f9,0xfffc
015c ; --------------------------------------------------------------------------------------
015c ; Debug3 Subtable 0x2
015c ; --------------------------------------------------------------------------------------
015c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
015e 0103 0001  |    |		.CONST	0x0103,0x0001
0160 0109 0002  |    |		.CONST	0x0109,0x0002
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x3
0162 ; --------------------------------------------------------------------------------------
0162 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0164 0113 0001  |    |		.CONST	0x0113,0x0001
0166 0000 0000  |    |		.BLANK	0000[0x9a]