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

⟦c4c8f3a56⟧

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

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 00e0       |    |		.CONST	0x00e0								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0041       | A  |		.CONST	0x0041								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4803       |H   |		Short_Literal	0x3
000d 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0012 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0014 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0016 00bf       |    |		Action	Accept_Activation
0017 0092 00c5  |    |		Action	Push_String_Extended,0xc5					; "CRASH_ANALYZER"
0019 4800       |H   |		Short_Literal	0x0
001a 0092 00c6  |    |		Action	Push_String_Extended,0xc6					; "INFO"
001c e002       |    |		Load	0x0,0x2
001d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
001e e002       |    |		Load	0x0,0x2
001f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0020 011e       |    |		Execute	Any,Convert
0021 4801       |H   |		Short_Literal	0x1
0022 0092 00c2  |    |		Action	Push_String_Extended,0xc2					; "WARNING"
0024 e002       |    |		Load	0x0,0x2
0025 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0026 e002       |    |		Load	0x0,0x2
0027 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0028 011e       |    |		Execute	Any,Convert
0029 4802       |H   |		Short_Literal	0x2
002a 0092 00c7  |    |		Action	Push_String_Extended,0xc7					; "ERROR"
002c e002       |    |		Load	0x0,0x2
002d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
002e e002       |    |		Load	0x0,0x2
002f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0030 011e       |    |		Execute	Any,Convert
0031 4803       |H   |		Short_Literal	0x3
0032 0092 00c4  |    |		Action	Push_String_Extended,0xc4					; "FATAL"
0034 e002       |    |		Load	0x0,0x2
0035 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0036 e002       |    |		Load	0x0,0x2
0037 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0038 011e       |    |		Execute	Any,Convert
0039 029d 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call
003b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0040 00c7       |    |		Action	Elaborate_Subprogram
0041			BODY_0008:
0041 00bc       |    |		Action	Signal_Activated
0042 00bb       |    |		Action	Signal_Completion
0043 0000 0000  |    |		.BLANK	0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4607       |F   |		Jump_Case	0x8
004c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
004d 7807       |x   |		Jump	0x55								; case 0x1
004e 780a       |x   |		Jump	0x59								; case 0x2
004f 780e       |x   |		Jump	0x5e								; case 0x3
0050 7811       |x   |		Jump	0x62								; case 0x4
0051 7812       |x   |		Jump	0x64								; case 0x5
0052 7813       |x   |		Jump	0x66								; case 0x6
0053 7816       |x   |		Jump	0x6a								; case 0x7
0054 4302       |C   |		.XXX[0x1]
0055 00da       |    |		Load_Top	At_Offset_2
0056 0091 00c1  |    |		Action	Push_String_Extended_Indexed,0xc1				; "MSG"
0058 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0059 00db       |    |		Load_Top	At_Offset_3
005a 00db       |    |		Load_Top	At_Offset_3
005b 00e0       |    |		Load_Encached	Standard_Cache
005c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
005d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
005e 00da       |    |		Load_Top	At_Offset_2
005f 00e0       |    |		Load_Encached	Standard_Cache
0060 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0061 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0062 00db       |    |		Load_Top	At_Offset_3
0063 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0064 00db       |    |		Load_Top	At_Offset_3
0065 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0066 e20d       |    |		Load	0x1,0xd
0067 00dc       |    |		Load_Top	At_Offset_4
0068 0267       | g  |		Execute	Discrete,Predecessor
0069 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006a e20d       |    |		Load	0x1,0xd
006b 00dc       |    |		Load_Top	At_Offset_4
006c 0268       | h  |		Execute	Discrete,Successor
006d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006e 0000 0000  |    |		.XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 e5fd       |    |		Load	0x2,-0x3
0074 6807       |h   |		Jump_Zero	0x7c
0075 00db       |    |		Load_Top	At_Offset_3
0076 e5fc       |    |		Load	0x2,-0x4
0077 8216       |    |		Call	0x1,0x16
0078 e211       |    |		Load	0x1,0x11
0079 e002       |    |		Load	0x0,0x2
007a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
007b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
007c 00db       |    |		Load_Top	At_Offset_3
007d 00db       |    |		Load_Top	At_Offset_3
007e e003       |    |		Load	0x0,0x3
007f 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0080 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0081 0000 0000  |    |		.BLANK	0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e5fd       |    |		Load	0x2,-0x3
008c 6807       |h   |		Jump_Zero	0x94
008d 00db       |    |		Load_Top	At_Offset_3
008e e5fc       |    |		Load	0x2,-0x4
008f 8216       |    |		Call	0x1,0x16
0090 e211       |    |		Load	0x1,0x11
0091 e002       |    |		Load	0x0,0x2
0092 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0093 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0094 00db       |    |		Load_Top	At_Offset_3
0095 00db       |    |		Load_Top	At_Offset_3
0096 e003       |    |		Load	0x0,0x3
0097 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0098 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0099 0000 0000  |    |		.BLANK	0000[0x7]
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 00db       |    |		Load_Top	At_Offset_3
00a4 6806       |h   |		Jump_Zero	0xab
00a5 e5fd       |    |		Load	0x2,-0x3
00a6 e5fe       |    |		Load	0x2,-0x2
00a7 00ea       |    |		Load_Encached	Null_String_Cache
00a8 e5ff       |    |		Load	0x2,-0x1
00a9 820f       |    |		Call	0x1,0xf
00aa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00ab 4801       |H   |		Short_Literal	0x1
00ac 00db       |    |		Load_Top	At_Offset_3
00ad e003       |    |		Load	0x0,0x3
00ae 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
00af 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
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 4603       |F   |		Jump_Case	0x4
00b5 7805       |x   |		Jump	0xbb								; case 0x0
00b6 7806       |x   |		Jump	0xbd								; case 0x1
00b7 7807       |x   |		Jump	0xbf								; case 0x2
00b8 7800       |x   |		Jump	0xb9								; case 0x3
00b9 e215       |    |		Load	0x1,0x15
00ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bb e212       |    |		Load	0x1,0x12
00bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bd e213       |    |		Load	0x1,0x13
00be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bf e214       |    |		Load	0x1,0x14
00c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c1 ; --------------------------------------------------------------------------------------
00c1 ; STRING TABLE
00c1 ; --------------------------------------------------------------------------------------
00c1 0010       |    |		.STRTAB	0x0010->0x00c9							; "MSG"
00c2 0011       |    |		.STRTAB	0x0011->0x00ca							; "WARNING"
00c3 0016       |    |		.STRTAB	0x0016->0x00ce							; "PROBLEM"
00c4 001b       |    |		.STRTAB	0x001b->0x00d1							; "FATAL"
00c5 001e       |    |		.STRTAB	0x001e->0x00d4							; "CRASH_ANALYZER"
00c6 002a       | *  |		.STRTAB	0x002a->0x00db							; "INFO"
00c7 002c       | ,  |		.STRTAB	0x002c->0x00dd							; "ERROR"
00c8 002f       | /  |		.STREND 0x002f->0x00df
00c9 4d53 4757  |MSGW|		.STRTAB_STRINGS
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x34d1,0x0000,0x0001,0x0000
00e6 04c1 2000  |    |		.XXX[0x7]
00e8 0000 2000  |    |
00ea 0000 4009  |  @ |
00ec 8000       |    |
00ed 0000 0000  |    |		.BLANK	0000[0x8]
00f5 0200 39d2  |  9 |		.XXX[0x25]
00f7 3e00 0000  |>   |
00f9 0010 0000  |    |
00fb 0024 0001  | $  |
00fd 3048 0000  |0H  |
00ff 0008 0000  |    |
0101 0010 0000  |    |
0103 0018 0002  |    |
0105 1430 002b  | 0 +|
0107 5d70 002b  |]p +|
0109 5868 002b  |Xh +|
010b a968 0015  | h  |
010d c404 0000  |    |
010f 2b81 9fca  |+   |
0111 9684 c000  |    |
0113 0000 0410  |    |
0115 42ae 3c17  |B < |
0117 a140 0002  | @  |
0119 4000       |@   |
011a 0000 0000  |    |		.BLANK	0000[0x4]
011e 45ee 8500  |E   |		.XXX[0xa]
0120 0000 4000  |  @ |
0122 45f0 8500  |E   |
0124 0000 4000  |  @ |
0126 0600 9800  |    |
0128 0000 0000  |    |		.BLANK	0000[0x4]
012c 117c 2140  | |!@|		.XXX[0x8]
012e 0000 1007  |    |
0130 f2a5 a130  |   0|
0132 0000 0001  |    |
0134 0000 0000  |    |		.BLANK	0000[0x6]
013a 2000 0000  |    |		.XXX[0x4]
013c 0001 8026  |   &|
013e 0000 0000  |    |		.BLANK	0000[0x8]
0146 0205 7199  |  q |		.XXX[0x5]
0148 cd0b 5400  |  T |
014a 0040       | @  |
014b 0000 0000  |    |		.BLANK	0000[0x5]
0150 0008 0000  |    |		.XXX[0x9]
0152 0000 0000  |    |
0154 0018 0002  |    |
0156 33b8 002b  |3  +|
0158 85f0       |    |
0159 0000 0000  |    |		.BLANK	0000[0x4]
015d 0015 d844  |   D|		.XXX[0xe]
015f 0000 b00d  |    |
0161 2065 e180  | e  |
0163 c716 c000  |    |
0165 0150 32f0  | P2 |
0167 d230 eda0  | 0  |
0169 0000 a000  |    |
016b 0000 0000  |    |		.BLANK	0000[0x4]
016f 828e 8580  |    |		.XXX[0x21]
0171 0000 4000  |  @ |
0173 8292 8580  |    |
0175 0000 4000  |  @ |
0177 0203 0802  |    |
0179 2091 8000  |    |
017b 0000 0000  |    |
017d 20a4 a160  |   `|
017f 0000 1008  |    |
0181 1978 6034  | x`4|
0183 eb40 0000  | @  |
0185 5000 0000  |P   |
0187 9000 0604  |    |
0189 0000 0000  |    |
018b 2000 0000  |    |
018d 4001 80c6  |@   |
018f 0088       |    |
0190 0000 0000  |    |		.BLANK	0000[0x7]
0197 0206 5e18  |  ^ |		.XXX[0x25]
0199 0d3a d000  | :  |
019b 0014 0000  |    |
019d 0024 0001  | $  |
019f 8100 0000  |    |
01a1 0008 0000  |    |
01a3 0010 0000  |    |
01a5 0018 0002  |    |
01a7 9250 002b  | P +|
01a9 ae70 002b  | p +|
01ab 80e8 002c  |   ,|
01ad 22e8 0015  |"   |
01af ec84 0000  |    |
01b1 c24a 2036  | J 6|
01b3 55db e000  |U   |
01b5 0000 0150  |   P|
01b7 1b2a edf0  | *  |
01b9 0000 0000  |    |
01bb a000       |    |
01bc 0000 0000  |    |		.BLANK	0000[0x4]
01c0 a394 8500  |    |		.XXX[0x9]
01c2 0000 4000  |  @ |
01c4 a396 8500  |    |
01c6 0000 4000  |  @ |
01c8 2600       |&   |
01c9 0000 0000  |    |		.BLANK	0000[0x5]
01ce 28e5 a140  |(  @|		.XXX[0x9]
01d0 0000 1008  |    |
01d2 0d95 76f8  |  v |
01d4 0000 0000  |    |
01d6 5000       |P   |
01d7 0000 0000  |    |		.BLANK	0000[0x5]
01dc 2000 0000  |    |		.XXX[0x4]
01de 0009 8000  |    |
01e0 0000 0000  |    |		.BLANK	0000[0x8]
01e8 0206 5e35  |  ^5|		.XXX[0x5]
01ea 448a 4800  |D H |
01ec 0014       |    |
01ed 0000 0000  |    |		.BLANK	0000[0x5]
01f2 0008 0000  |    |		.XXX[0x9]
01f4 0000 0000  |    |
01f6 0018 0002  |    |
01f8 b1d8 002b  |   +|
01fa d6f0       |    |
01fb 0000 0000  |    |		.BLANK	0000[0x4]
01ff 0016       |    |		.XXX[0x1]