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

⟦9ba9076d8⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 00e8       |    |		.CONST	0x00e8								; 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 004c       | L  |		.CONST	0x004c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 4800       |H   |		Short_Literal	0x0
0013 4803       |H   |		Short_Literal	0x3
0014 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0016 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0017 c210       |    |		Store	0x1,0x10
0018 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
001a c211       |    |		Store	0x1,0x11
001b 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
001d c212       |    |		Store	0x1,0x12
001e 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0020 c213       |    |		Store	0x1,0x13
0021 00bf       |    |		Action	Accept_Activation
0022 0092 00cd  |    |		Action	Push_String_Extended,0xcd					; "CRASH_ANALYZER"
0024 4800       |H   |		Short_Literal	0x0
0025 0092 00ce  |    |		Action	Push_String_Extended,0xce					; "INFO"
0027 e001       |    |		Load	0x0,0x1
0028 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0029 e001       |    |		Load	0x0,0x1
002a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002b 011e       |    |		Execute	Any,Convert
002c 4801       |H   |		Short_Literal	0x1
002d 0092 00ca  |    |		Action	Push_String_Extended,0xca					; "WARNING"
002f e001       |    |		Load	0x0,0x1
0030 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0031 e001       |    |		Load	0x0,0x1
0032 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0033 011e       |    |		Execute	Any,Convert
0034 4802       |H   |		Short_Literal	0x2
0035 0092 00cf  |    |		Action	Push_String_Extended,0xcf					; "ERROR"
0037 e001       |    |		Load	0x0,0x1
0038 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0039 e001       |    |		Load	0x0,0x1
003a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003b 011e       |    |		Execute	Any,Convert
003c 4803       |H   |		Short_Literal	0x3
003d 0092 00cc  |    |		Action	Push_String_Extended,0xcc					; "FATAL"
003f e001       |    |		Load	0x0,0x1
0040 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0041 e001       |    |		Load	0x0,0x1
0042 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0043 011e       |    |		Execute	Any,Convert
0044 029d 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call
0046 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004b 00c7       |    |		Action	Elaborate_Subprogram
004c			BODY_0008:
004c 00bc       |    |		Action	Signal_Activated
004d 00bb       |    |		Action	Signal_Completion
004e 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
0054 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0055 7806       |x   |		Jump	0x5c								; case 0x1
0056 7809       |x   |		Jump	0x60								; case 0x2
0057 780d       |x   |		Jump	0x65								; case 0x3
0058 7810       |x   |		Jump	0x69								; case 0x4
0059 7811       |x   |		Jump	0x6b								; case 0x5
005a 7812       |x   |		Jump	0x6d								; case 0x6
005b 7815       |x   |		Jump	0x71								; case 0x7
005c 00da       |    |		Load_Top	At_Offset_2
005d 0091 00c9  |    |		Action	Push_String_Extended_Indexed,0xc9				; "MSG"
005f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0060 00db       |    |		Load_Top	At_Offset_3
0061 00db       |    |		Load_Top	At_Offset_3
0062 00e0       |    |		Load_Encached	Standard_Cache
0063 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0064 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0065 00da       |    |		Load_Top	At_Offset_2
0066 00e0       |    |		Load_Encached	Standard_Cache
0067 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0068 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0069 00db       |    |		Load_Top	At_Offset_3
006a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006b 00db       |    |		Load_Top	At_Offset_3
006c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006d e210       |    |		Load	0x1,0x10
006e 00dc       |    |		Load_Top	At_Offset_4
006f 0267       | g  |		Execute	Discrete,Predecessor
0070 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0071 e210       |    |		Load	0x1,0x10
0072 00dc       |    |		Load_Top	At_Offset_4
0073 0268       | h  |		Execute	Discrete,Successor
0074 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e5fd       |    |		Load	0x2,-0x3
007c 6807       |h   |		Jump_Zero	0x84
007d 00db       |    |		Load_Top	At_Offset_3
007e e5fc       |    |		Load	0x2,-0x4
007f 8219       |    |		Call	0x1,0x19
0080 e214       |    |		Load	0x1,0x14
0081 e001       |    |		Load	0x0,0x1
0082 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0083 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0084 00db       |    |		Load_Top	At_Offset_3
0085 00db       |    |		Load_Top	At_Offset_3
0086 e002       |    |		Load	0x0,0x2
0087 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0088 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0089 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fd       |    |		Load	0x2,-0x3
0094 6807       |h   |		Jump_Zero	0x9c
0095 00db       |    |		Load_Top	At_Offset_3
0096 e5fc       |    |		Load	0x2,-0x4
0097 8219       |    |		Call	0x1,0x19
0098 e214       |    |		Load	0x1,0x14
0099 e001       |    |		Load	0x0,0x1
009a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
009b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
009c 00db       |    |		Load_Top	At_Offset_3
009d 00db       |    |		Load_Top	At_Offset_3
009e e002       |    |		Load	0x0,0x2
009f 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00a0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00db       |    |		Load_Top	At_Offset_3
00ac 6806       |h   |		Jump_Zero	0xb3
00ad e5fd       |    |		Load	0x2,-0x3
00ae e5fe       |    |		Load	0x2,-0x2
00af 00ea       |    |		Load_Encached	Null_String_Cache
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 8212       |    |		Call	0x1,0x12
00b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00b3 4801       |H   |		Short_Literal	0x1
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 e002       |    |		Load	0x0,0x2
00b6 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
00b7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 4603       |F   |		Jump_Case	0x4
00bd 7805       |x   |		Jump	0xc3								; case 0x0
00be 7806       |x   |		Jump	0xc5								; case 0x1
00bf 7807       |x   |		Jump	0xc7								; case 0x2
00c0 7800       |x   |		Jump	0xc1								; case 0x3
00c1 e218       |    |		Load	0x1,0x18
00c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c3 e215       |    |		Load	0x1,0x15
00c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c5 e216       |    |		Load	0x1,0x16
00c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c7 e217       |    |		Load	0x1,0x17
00c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c9 ; --------------------------------------------------------------------------------------
00c9 ; STRING TABLE
00c9 ; --------------------------------------------------------------------------------------
00c9 0010       |    |		.STRTAB	0x0010->0x00d1							; "MSG"
00ca 0011       |    |		.STRTAB	0x0011->0x00d2							; "WARNING"
00cb 0016       |    |		.STRTAB	0x0016->0x00d6							; "PROBLEM"
00cc 001b       |    |		.STRTAB	0x001b->0x00d9							; "FATAL"
00cd 001e       |    |		.STRTAB	0x001e->0x00dc							; "CRASH_ANALYZER"
00ce 002a       | *  |		.STRTAB	0x002a->0x00e3							; "INFO"
00cf 002c       | ,  |		.STRTAB	0x002c->0x00e5							; "ERROR"
00d0 002f       | /  |		.STREND 0x002f->0x00e7
00d1 4d53 4757  |MSGW|		.STRTAB_STRINGS
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x6b2d,0x0000,0x0001,0x0000
00ee 0000 0000  |    |		.BLANK	0000[0x25]
0113 0395       |    |		.XXX[0x1]
0114 0000 0000  |    |		.BLANK	0000[0x60]
0174 cd2d aead  | -  |		.XXX[0x77]
0176 a40c 2c6c  |  ,l|
0178 6cae 6e64  |l nd|
017a 0c6d 8c2e  | m .|
017c 6e64 0ccd  |nd  |
017e ee44 0ecd  | D  |
0180 2cae e744  |,  D|
0182 0404 088c  |    |
0184 aecc ad8d  |    |
0186 ee0c ae40  |   @|
0188 0000 0a00  |    |
018a 0000 06e9  |    |
018c ad2d cd2d  | - -|
018e aead a40c  |    |
0190 2c6c 6cae  |,ll |
0192 6e64 0c6d  |nd m|
0194 8c2e 6e64  | .nd|
0196 0ccd ee44  |   D|
0198 0cad cc6d  |   m|
019a 8dee 6d2d  |  m-|
019c cce4 0e6e  |   n|
019e ac4e 6f2e  | No.|
01a0 6e8c ada7  |n   |
01a2 4408 8cae  |D   |
01a4 ccad 8dee  |    |
01a6 0cae 4000  |  @ |
01a8 0009 c000  |    |
01aa 0007 2404  |  $ |
01ac 09ad 2dcd  |  - |
01ae 2dae ada4  |-   |
01b0 0c2c 6c6c  | ,ll|
01b2 ae6e 640c  | nd |
01b4 6d8c 2e6e  |m .n|
01b6 640c cdee  |d   |
01b8 440c adcc  |D   |
01ba 6d8d ee6d  |m  m|
01bc 2dcc e40e  |-   |
01be 6eac 4e6f  |n No|
01c0 2e6e 8cad  |.n  |
01c2 a744 088c  | D  |
01c4 aecc ad8d  |    |
01c6 ee0c ae40  |   @|
01c8 0000 09c0  |    |
01ca 0000 0724  |   $|
01cc 0409 ad2d  |   -|
01ce cd2d aead  | -  |
01d0 a40c 2c6c  |  ,l|
01d2 6cae 6e64  |l nd|
01d4 0c6d 8c2e  | m .|
01d6 6e64 0ccd  |nd  |
01d8 ee44 0cad  | D  |
01da cc6d 8dee  | m  |
01dc 6d2d cce4  |m-  |
01de 0e6e ac4e  | n N|
01e0 6f2e 6e8c  |o.n |
01e2 ada7 4408  |  D |
01e4 8cae ccad  |    |
01e6 8dee 0cae  |    |
01e8 4000 0000  |@   |
01ea 2000       |    |
01eb 0000 0000  |    |		.BLANK	0000[0x4]
01ef 0001       |    |		.XXX[0x1]
01f0 0000 0000  |    |		.BLANK	0000[0x4]
01f4 e000 0001  |    |		.XXX[0xc]
01f6 4000 0005  |@   |
01f8 486d 0cac  |Hm  |
01fa 6d6b e9ee  |mk  |
01fc ae84 0744  |   D|
01fe 0c6d edce  | m  |