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

⟦97d937ad6⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_191cd7

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0110       |    |		.CONST	0x0110								; 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 0058       | X  |		.CONST	0x0058								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001e       |    |		.CONST	0x001e								; Number of locals
000b			INIT_0008:
000b 6070       |`p  |		Indirect_Literal	Discrete,0x7c,{0xffffffff, 0x80000000}
000c 606b       |`k  |		Indirect_Literal	Discrete,0x78,{0x00000000, 0x7fffffff}
000d 00e5       |    |		Load_Encached	Long_Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f e002       |    |		Load	0x0,0x2
0010 e003       |    |		Load	0x0,0x3
0011 00da       |    |		Load_Top	At_Offset_2
0012 e004       |    |		Load	0x0,0x4
0013 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
0014 0386       |    |		Declare_Variable	Package,Visible
0015 00d8       |    |		Load_Top	At_Offset_0
0016 020f       |    |		Execute	Module,Activate
0017 4800       |H   |		Short_Literal	0x0
0018 605f       |`_  |		Indirect_Literal	Discrete,0x78,{0x00000000, 0x7fffffff}
0019 00db       |    |		Load_Top	At_Offset_3
001a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001b 4801       |H   |		Short_Literal	0x1
001c 605b       |`[  |		Indirect_Literal	Discrete,0x78,{0x00000000, 0x7fffffff}
001d e20d       |    |		Load	0x1,0xd
001e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001f 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
0021 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0023 6050       |`P  |		Indirect_Literal	Discrete,0x74,{0xffffffff, 0xffff8000}
0024 604b       |`K  |		Indirect_Literal	Discrete,0x70,{0x00000000, 0x00007fff}
0025 00e5       |    |		Load_Encached	Long_Integer_Cache
0026 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0027 4800       |H   |		Short_Literal	0x0
0028 6043       |`C  |		Indirect_Literal	Discrete,0x6c,{0x00000000, 0x0000ffff}
0029 00e5       |    |		Load_Encached	Long_Integer_Cache
002a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
002b 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
002d 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
002f 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0031 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0033 4f80       |O   |		Short_Literal	-0x80
0034 487f       |H   |		Short_Literal	0x7f
0035 00e5       |    |		Load_Encached	Long_Integer_Cache
0036 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0037 4800       |H   |		Short_Literal	0x0
0038 48ff       |H   |		Short_Literal	0xff
0039 00e5       |    |		Load_Encached	Long_Integer_Cache
003a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
003b 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
003d 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
003f 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0041 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0043 00bf       |    |		Action	Accept_Activation
0044 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0057 00c7       |    |		Action	Elaborate_Subprogram
0058			BODY_0008:
0058 00bc       |    |		Action	Signal_Activated
0059 00bb       |    |		Action	Signal_Completion
005a 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
0064 e5fe       |    |		Load	0x2,-0x2
0065 027d       | }  |		Execute	Discrete,Greater
0066 6802       |h   |		Jump_Zero	0x69
0067 00da       |    |		Load_Top	At_Offset_2
0068 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0069 00db       |    |		Load_Top	At_Offset_3
006a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
006b 0000       |    |		.XXX[0x1]
006c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0070 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
0074 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffff8000}
0078 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
007c ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000000}
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 00da       |    |		Load_Top	At_Offset_2
0084 e5fe       |    |		Load	0x2,-0x2
0085 027c       | |  |		Execute	Discrete,Less
0086 6802       |h   |		Jump_Zero	0x89
0087 00da       |    |		Load_Top	At_Offset_2
0088 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0089 00db       |    |		Load_Top	At_Offset_3
008a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
008b 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
0094 e5fe       |    |		Load	0x2,-0x2
0095 027d       | }  |		Execute	Discrete,Greater
0096 6802       |h   |		Jump_Zero	0x99
0097 00da       |    |		Load_Top	At_Offset_2
0098 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0099 00db       |    |		Load_Top	At_Offset_3
009a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
009b 0000 0000  |    |		.BLANK	0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 e5fe       |    |		Load	0x2,-0x2
00a5 027c       | |  |		Execute	Discrete,Less
00a6 6802       |h   |		Jump_Zero	0xa9
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00a9 00db       |    |		Load_Top	At_Offset_3
00aa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 027d       | }  |		Execute	Discrete,Greater
00b6 6802       |h   |		Jump_Zero	0xb9
00b7 00da       |    |		Load_Top	At_Offset_2
00b8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00bb 0000 0000  |    |		.BLANK	0000[0x5]
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
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 027c       | |  |		Execute	Discrete,Less
00c6 6802       |h   |		Jump_Zero	0xc9
00c7 00da       |    |		Load_Top	At_Offset_2
00c8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e5fe       |    |		Load	0x2,-0x2
00d5 027d       | }  |		Execute	Discrete,Greater
00d6 6802       |h   |		Jump_Zero	0xd9
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00d9 00db       |    |		Load_Top	At_Offset_3
00da 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00db 0000 0000  |    |		.BLANK	0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 e5fe       |    |		Load	0x2,-0x2
00e5 027c       | |  |		Execute	Discrete,Less
00e6 6802       |h   |		Jump_Zero	0xe9
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 e5fe       |    |		Load	0x2,-0x2
00f5 027d       | }  |		Execute	Discrete,Greater
00f6 6802       |h   |		Jump_Zero	0xf9
00f7 00da       |    |		Load_Top	At_Offset_2
00f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 e5fe       |    |		Load	0x2,-0x2
0105 027c       | |  |		Execute	Discrete,Less
0106 6802       |h   |		Jump_Zero	0x109
0107 00da       |    |		Load_Top	At_Offset_2
0108 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0109 00db       |    |		Load_Top	At_Offset_3
010a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010b 0000 0000  |    |		.BLANK	0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x4d0d,0x0000,0x0001,0x000c
0116 000b 0146  |   F|		.DBG4T	0x000b,0x0146,0x8000,0x0000
011a 0044 015b  | D [|		.DBG4T	0x0044,0x015b,0x8000,0x0000
011e 0063 0167  | c g|		.DBG4T	0x0063,0x0167,0x0002,0x0000
0122 0083 016c  |   l|		.DBG4T	0x0083,0x016c,0x0002,0x0000
0126 0093 0171  |   q|		.DBG4T	0x0093,0x0171,0x0002,0x0000
012a 00a3 0176  |   v|		.DBG4T	0x00a3,0x0176,0x0002,0x0000
012e 00b3 017b  |   {|		.DBG4T	0x00b3,0x017b,0x0002,0x0000
0132 00c3 0180  |    |		.DBG4T	0x00c3,0x0180,0x0002,0x0000
0136 00d3 0185  |    |		.DBG4T	0x00d3,0x0185,0x0002,0x0000
013a 00e3 018a  |    |		.DBG4T	0x00e3,0x018a,0x0002,0x0000
013e 00f3 018f  |    |		.DBG4T	0x00f3,0x018f,0x0002,0x0000
0142 0103 0194  |    |		.DBG4T	0x0103,0x0194,0x0002,0x0000
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug chain
0146 ; --------------------------------------------------------------------------------------
0146 0013 0000  |    |		.DBGLEN	0x0013,0x0000
0148 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0017,0x001b,0x001f,0x0021,0x0023,0x0027,0x002b,0x002d,0x002f,0x0031,0x0033,0x0037,0x003b,0x003d,0x003f,0x0041,0x0043
015b ; --------------------------------------------------------------------------------------
015b ; Debug chain
015b ; --------------------------------------------------------------------------------------
015b 000a 0000  |    |		.DBGLEN	0x000a,0x0000
015d 0044 0046  | D F|		.DBGLNO	0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056
0167 ; --------------------------------------------------------------------------------------
0167 ; Debug chain
0167 ; --------------------------------------------------------------------------------------
0167 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0169 0063 0067  | c g|		.DBGLNO	0x0063,0x0067,0x0069
016c ; --------------------------------------------------------------------------------------
016c ; Debug chain
016c ; --------------------------------------------------------------------------------------
016c 0000 0003  |    |		.DBGLEN	0x0000,0x0003
016e 0083 0087  |    |		.DBGLNO	0x0083,0x0087,0x0089
0171 ; --------------------------------------------------------------------------------------
0171 ; Debug chain
0171 ; --------------------------------------------------------------------------------------
0171 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0173 0093 0097  |    |		.DBGLNO	0x0093,0x0097,0x0099
0176 ; --------------------------------------------------------------------------------------
0176 ; Debug chain
0176 ; --------------------------------------------------------------------------------------
0176 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0178 00a3 00a7  |    |		.DBGLNO	0x00a3,0x00a7,0x00a9
017b ; --------------------------------------------------------------------------------------
017b ; Debug chain
017b ; --------------------------------------------------------------------------------------
017b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
017d 00b3 00b7  |    |		.DBGLNO	0x00b3,0x00b7,0x00b9
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug chain
0180 ; --------------------------------------------------------------------------------------
0180 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0182 00c3 00c7  |    |		.DBGLNO	0x00c3,0x00c7,0x00c9
0185 ; --------------------------------------------------------------------------------------
0185 ; Debug chain
0185 ; --------------------------------------------------------------------------------------
0185 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0187 00d3 00d7  |    |		.DBGLNO	0x00d3,0x00d7,0x00d9
018a ; --------------------------------------------------------------------------------------
018a ; Debug chain
018a ; --------------------------------------------------------------------------------------
018a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
018c 00e3 00e7  |    |		.DBGLNO	0x00e3,0x00e7,0x00e9
018f ; --------------------------------------------------------------------------------------
018f ; Debug chain
018f ; --------------------------------------------------------------------------------------
018f 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0191 00f3 00f7  |    |		.DBGLNO	0x00f3,0x00f7,0x00f9
0194 ; --------------------------------------------------------------------------------------
0194 ; Debug chain
0194 ; --------------------------------------------------------------------------------------
0194 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0196 0103 0107  |    |		.DBGLNO	0x0103,0x0107,0x0109
0199 0000 0000  |    |		.BLANK	0000[0x67]