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

⟦6bc31a21c⟧

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

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 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0017       |    |		.CONST	0x0017								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4805       |H   |		Short_Literal	0x5
000d 029f 0023  |   #|		Declare_Subprogram	INIT_0020,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 e001       |    |		Load	0x0,0x1
0011 0129       | )  |		Execute	Any,Make_Visible
0012 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
0014 00bf       |    |		Action	Accept_Activation
0015 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0016 00c7       |    |		Action	Elaborate_Subprogram
0017			BODY_0008:
0017 00bc       |    |		Action	Signal_Activated
0018 00bb       |    |		Action	Signal_Completion
0019 0000 0000  |    |		.BLANK	0000[0x7]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023       | #  |		.CONST	0x0023								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0001       |    |		.CONST	0x0001								; Number of locals
0023			BODY_0020:
0023			INIT_0020:
0023 4607       |F   |		Jump_Case	0x8
0024 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0025 7806       |x   |		Jump	0x2c								; case 0x1
0026 7809       |x   |		Jump	0x30								; case 0x2
0027 780d       |x   |		Jump	0x35								; case 0x3
0028 7810       |x   |		Jump	0x39								; case 0x4
0029 7811       |x   |		Jump	0x3b								; case 0x5
002a 7812       |x   |		Jump	0x3d								; case 0x6
002b 7815       |x   |		Jump	0x41								; case 0x7
002c 00da       |    |		Load_Top	At_Offset_2
002d 0091 00fb  |    |		Action	Push_String_Extended_Indexed,0xfb				; "M100"
002f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0030 00db       |    |		Load_Top	At_Offset_3
0031 00db       |    |		Load_Top	At_Offset_3
0032 00e0       |    |		Load_Encached	Standard_Cache
0033 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0034 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0035 00da       |    |		Load_Top	At_Offset_2
0036 00e0       |    |		Load_Encached	Standard_Cache
0037 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0038 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0039 00db       |    |		Load_Top	At_Offset_3
003a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
003b 00db       |    |		Load_Top	At_Offset_3
003c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
003d e20d       |    |		Load	0x1,0xd
003e 00dc       |    |		Load_Top	At_Offset_4
003f 0267       | g  |		Execute	Discrete,Predecessor
0040 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0041 e20d       |    |		Load	0x1,0xd
0042 00dc       |    |		Load_Top	At_Offset_4
0043 0268       | h  |		Execute	Discrete,Successor
0044 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0045 0000 0000  |    |		.XXX[0x3]
0047 0000       |    |
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 00b0       |    |		.CONST	0x00b0								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0016       |    |		.CONST	0x0016								; Number of locals
004b			INIT_0048:
004b e20d       |    |		Load	0x1,0xd
004c 0007       |    |		Action	Break_Optional
004d e002       |    |		Load	0x0,0x2
004e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004f 0604       |    |		Execute_Immediate	Set_Value_Unchecked,0x4
0050 00e2       |    |		Load_Encached	Integer_Cache
0051 4800       |H   |		Short_Literal	0x0
0052 49ff       |I   |		Short_Literal	0x1ff
0053 e002       |    |		Load	0x0,0x2
0054 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0055 02a0       |    |		Declare_Subprogram	Null_Subprogram
0056 4801       |H   |		Short_Literal	0x1
0057 035d       | ]  |		Declare_Type	Array,Defined
0058 00d8       |    |		Load_Top	At_Offset_0
0059 0337       | 7  |		Declare_Variable	Array
005a 4801       |H   |		Short_Literal	0x1
005b 480a       |H   |		Short_Literal	0xa
005c e002       |    |		Load	0x0,0x2
005d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
005e 02a0       |    |		Declare_Subprogram	Null_Subprogram
005f 4801       |H   |		Short_Literal	0x1
0060 035d       | ]  |		Declare_Type	Array,Defined
0061 4800       |H   |		Short_Literal	0x0
0062 4801       |H   |		Short_Literal	0x1
0063 e002       |    |		Load	0x0,0x2
0064 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0065 02a0       |    |		Declare_Subprogram	Null_Subprogram
0066 4801       |H   |		Short_Literal	0x1
0067 035d       | ]  |		Declare_Type	Array,Defined
0068 4800       |H   |		Short_Literal	0x0
0069 4803       |H   |		Short_Literal	0x3
006a e002       |    |		Load	0x0,0x2
006b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
006c 02a0       |    |		Declare_Subprogram	Null_Subprogram
006d 4801       |H   |		Short_Literal	0x1
006e 035d       | ]  |		Declare_Type	Array,Defined
006f 4800       |H   |		Short_Literal	0x0
0070 4803       |H   |		Short_Literal	0x3
0071 e002       |    |		Load	0x0,0x2
0072 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0073 02a0       |    |		Declare_Subprogram	Null_Subprogram
0074 4801       |H   |		Short_Literal	0x1
0075 035d       | ]  |		Declare_Type	Array,Defined
0076 4801       |H   |		Short_Literal	0x1
0077 4804       |H   |		Short_Literal	0x4
0078 e002       |    |		Load	0x0,0x2
0079 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
007a 02a0       |    |		Declare_Subprogram	Null_Subprogram
007b 4801       |H   |		Short_Literal	0x1
007c 035d       | ]  |		Declare_Type	Array,Defined
007d 4800       |H   |		Short_Literal	0x0
007e 4812       |H   |		Short_Literal	0x12
007f 00da       |    |		Load_Top	At_Offset_2
0080 02a0       |    |		Declare_Subprogram	Null_Subprogram
0081 4801       |H   |		Short_Literal	0x1
0082 035d       | ]  |		Declare_Type	Array,Defined
0083 4800       |H   |		Short_Literal	0x0
0084 4802       |H   |		Short_Literal	0x2
0085 e002       |    |		Load	0x0,0x2
0086 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0087 02a0       |    |		Declare_Subprogram	Null_Subprogram
0088 4801       |H   |		Short_Literal	0x1
0089 035d       | ]  |		Declare_Type	Array,Defined
008a 4801       |H   |		Short_Literal	0x1
008b 49ae       |I   |		Short_Literal	0x1ae
008c e002       |    |		Load	0x0,0x2
008d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
008e 02a0       |    |		Declare_Subprogram	Null_Subprogram
008f 4801       |H   |		Short_Literal	0x1
0090 035d       | ]  |		Declare_Type	Array,Defined
0091 e407       |    |		Load	0x2,0x7
0092 e408       |    |		Load	0x2,0x8
0093 e409       |    |		Load	0x2,0x9
0094 e40a       |    |		Load	0x2,0xa
0095 e40c       |    |		Load	0x2,0xc
0096 e002       |    |		Load	0x0,0x2
0097 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0098 e002       |    |		Load	0x0,0x2
0099 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
009a e408       |    |		Load	0x2,0x8
009b e002       |    |		Load	0x0,0x2
009c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
009d e002       |    |		Load	0x0,0x2
009e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
009f e40d       |    |		Load	0x2,0xd
00a0 e40e       |    |		Load	0x2,0xe
00a1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a2 480c       |H   |		Short_Literal	0xc
00a3 032d       | -  |		Declare_Type	Record,Defined
00a4 a003       |    |		Store_Unchecked	0x0,0x3
00a5 00c6       |    |		Action	Check_Subprogram_Elaborated
00a6 e405       |    |		Load	0x2,0x5
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 e004       |    |		Load	0x0,0x4
00a9 e005       |    |		Load	0x0,0x5
00aa 4814       |H   |		Short_Literal	0x14
00ab 0007       |    |		Action	Break_Optional
00ac e40f       |    |		Load	0x2,0xf
00ad 0322       | "  |		Declare_Variable	Record
00ae 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
00b0			BODY_0048:
00b0 8416       |    |		Call	0x2,0x16
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
00b3 0b00       |    |		Execute_Immediate	Case_Compare,0x0
00b4 7008       |p   |		Jump_Nonzero	0xbd
00b5 0b02       |    |		Execute_Immediate	Case_Compare,0x2
00b6 700a       |p   |		Jump_Nonzero	0xc1
00b7 0b03       |    |		Execute_Immediate	Case_Compare,0x3
00b8 700c       |p   |		Jump_Nonzero	0xc5
00b9 0f04       |    |		Execute_Immediate	Equal,0x4
00ba 7014       |p   |		Jump_Nonzero	0xcf
00bb e20e       |    |		Load	0x1,0xe
00bc 0257       | W  |		Execute	Discrete,Raise
00bd 00d1       |    |		Pop_Control	Pop_Count_1
00be 4800       |H   |		Short_Literal	0x0
00bf a402       |    |		Store_Unchecked	0x2,0x2
00c0 7816       |x   |		Jump	0xd7
00c1 00d1       |    |		Pop_Control	Pop_Count_1
00c2 4801       |H   |		Short_Literal	0x1
00c3 a402       |    |		Store_Unchecked	0x2,0x2
00c4 7812       |x   |		Jump	0xd7
00c5 00d1       |    |		Pop_Control	Pop_Count_1
00c6 00d9       |    |		Load_Top	At_Offset_1
00c7 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
00c8 7003       |p   |		Jump_Nonzero	0xcc
00c9 4802       |H   |		Short_Literal	0x2
00ca a402       |    |		Store_Unchecked	0x2,0x2
00cb 780b       |x   |		Jump	0xd7
00cc 4803       |H   |		Short_Literal	0x3
00cd a402       |    |		Store_Unchecked	0x2,0x2
00ce 7808       |x   |		Jump	0xd7
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
00d1 7003       |p   |		Jump_Nonzero	0xd5
00d2 4804       |H   |		Short_Literal	0x4
00d3 a402       |    |		Store_Unchecked	0x2,0x2
00d4 7802       |x   |		Jump	0xd7
00d5 4805       |H   |		Short_Literal	0x5
00d6 a402       |    |		Store_Unchecked	0x2,0x2
00d7 e402       |    |		Load	0x2,0x2
00d8 00ca       |    |		Action	Exit_Nullary_Function
00d9 0000 0000  |    |		.BLANK	0000[0x7]
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 00cf       |    |		Action	Mark_Auxiliary
00e4 49ff       |I   |		Short_Literal	0x1ff
00e5 4800       |H   |		Short_Literal	0x0
00e6 0007       |    |		Action	Break_Optional
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 e403       |    |		Load	0x2,0x3
00e9 e002       |    |		Load	0x0,0x2
00ea 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec e406       |    |		Load	0x2,0x6
00ed 01d6       |    |		Execute	Vector,Field_Write
00ee 00c8       |    |		Action	Pop_Auxiliary_Range
00ef 3ff7       |?   |		Loop_Increasing	0xe7
00f0 00ce       |    |		Action	Pop_Auxiliary
00f1 e406       |    |		Load	0x2,0x6
00f2 e410       |    |		Load	0x2,0x10
00f3 e411       |    |		Load	0x2,0x11
00f4 4812       |H   |		Short_Literal	0x12
00f5 4802       |H   |		Short_Literal	0x2
00f6 0099       |    |		Action	Reference_Dynamic
00f7 8003       |    |		Call	0x0,0x3
00f8 e415       |    |		Load	0x2,0x15
00f9 017d       | }  |		Execute	Record,Structure_Write
00fa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00fb ; --------------------------------------------------------------------------------------
00fb ; STRING TABLE
00fb ; --------------------------------------------------------------------------------------
00fb 000e       |    |		.STRTAB	0x000e->0x0102							; "M100"
00fc 0010       |    |		.STRTAB	0x0010->0x0104							; "M200"
00fd 0012       |    |		.STRTAB	0x0012->0x0106							; "M300S"
00fe 0015       |    |		.STRTAB	0x0015->0x0108							; "M300C"
00ff 0018       |    |		.STRTAB	0x0018->0x010b							; "M400S"
0100 001b       |    |		.STRTAB	0x001b->0x010d							; "M400C"
0101 001e       |    |		.STREND 0x001e->0x0110
0102 4d31 3030  |M100|		.STRTAB_STRINGS
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x6cb6,0x0000,0x0001,0x0000
0116 4520 0120  |E   |		.XXX[0x73]
0118 0780 3cd0  |  < |
011a 0c07 5920  |  Y |
011c 0300 4b80  |  K |
011e 1c60 c514  | `  |
0120 0d20 0380  |    |
0122 10e0 2520  |  % |
0124 0380 10e0  |    |
0126 2b80 1460  |+  `|
0128 4920 0120  |I   |
012a 0780 3cd0  |  < |
012c 0c07 5914  |  Y |
012e 0c17 8c00  |    |
0130 1000 0797  |    |
0132 f918 09e0  |    |
0134 21e0 c9e0  |!   |
0136 0120 0380  |    |
0138 1460 5521  | `U!|
013a 8600 0914  |    |
013c 0d21 8600  | !  |
013e 0d20 0380  |    |
0140 1460 5780  | `W |
0142 286c bc02  |(l  |
0144 4825 5b80  |H%[ |
0146 2c6c 4b80  |,lK |
0148 3060 f803  |0`  |
014a 6380 3060  |c 0`|
014c f5c0 0f80  |    |
014e 346c 9c09  |4l  |
0150 5c60 6380  |\`c |
0152 10e0 0380  |    |
0154 10f0 01c0  |    |
0156 2002 4825  |  H%|
0158 5f80 4c60  |_ L`|
015a 3921 8600  |9!  |
015c 0921 8600  | !  |
015e 0f97 ff80  |    |
0160 1460 3d20  | `= |
0162 0380 1460  |   `|
0164 5521 8600  |U!  |
0166 0914 0d20  |    |
0168 0380 1460  |   `|
016a 5780 286c  |W (l|
016c bc02 4825  |  H%|
016e 5b80 2c6c  |[ ,l|
0170 4b80 3060  |K 0`|
0172 f803 6380  |  c |
0174 3060 f5c0  |0`  |
0176 0f80 346c  |  4l|
0178 9c09 5c60  |  \`|
017a 6380 10e0  |c   |
017c 0380 10f0  |    |
017e 01c0 2002  |    |
0180 4825 5f80  |H%_ |
0182 4c60 3921  |L`9!|
0184 8600 0921  |   !|
0186 8600 0d14  |    |
0188 0c00       |    |
0189 0000 0000  |    |		.BLANK	0000[0x5]
018e 0019 0c00  |    |		.XXX[0x6c]
0190 1000 0797  |    |
0192 f918 09e0  |    |
0194 21e0 61e0  |! a |
0196 0120 0380  |    |
0198 1460 5521  | `U!|
019a 8a00 0914  |    |
019c 0d21 8a00  | !  |
019e 0d20 0380  |    |
01a0 1460 5520  | `U |
01a2 0780 10e0  |    |
01a4 1397 ff80  |    |
01a6 1460 3d20  | `= |
01a8 0380 1460  |   `|
01aa 5521 8a00  |U!  |
01ac 0914 0d20  |    |
01ae 0380 1460  |   `|
01b0 5520 0780  |U   |
01b2 10e0 1114  |    |
01b4 0c00 0000  |    |
01b6 0019 ac00  |    |
01b8 1000 0797  |    |
01ba f918 09e0  |    |
01bc 31e0 9de0  |1   |
01be 0397 fb97  |    |
01c0 fe08 9520  |    |
01c2 0520 0380  |    |
01c4 20f0 0f80  |    |
01c6 1860 6114  | `a |
01c8 0d21 9200  | !  |
01ca 0d20 0520  |    |
01cc 0380 20f0  |    |
01ce 1380 1860  |   `|
01d0 6120 0380  |a   |
01d2 10e0 2780  |  ' |
01d4 1460 4920  | `I |
01d6 0780 10e0  |    |
01d8 2b97 fb97  |+   |
01da fe08 9520  |    |
01dc 0520 0380  |    |
01de 20f0 0f80  |    |
01e0 1860 6121  | `a!|
01e2 9200 0914  |    |
01e4 0d20 0520  |    |
01e6 0380 20f0  |    |
01e8 1380 1860  |   `|
01ea 6120 0380  |a   |
01ec 10e0 2780  |  ' |
01ee 1460 4920  | `I |
01f0 0780 10e0  |    |
01f2 2921 8780  |)!  |
01f4 10e0 7b97  |  { |
01f6 fb97 fe08  |    |
01f8 9514 0c00  |    |
01fa 0000 0000  |    |		.BLANK	0000[0x4]
01fe 001a f400  |    |		.XXX[0x2]