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

⟦e75814a2c⟧

    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 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 00a3       |    |		.CONST	0x00a3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0026       | &  |		.CONST	0x0026								; Number of locals
000b			INIT_0008:
000b 4808       |H   |		Short_Literal	0x8
000c 4800       |H   |		Short_Literal	0x0
000d 48ff       |H   |		Short_Literal	0xff
000e 00e5       |    |		Load_Encached	Long_Integer_Cache
000f 03fc       |    |		QQ_Declare_Type	Discrete,XXX
0010 4810       |H   |		Short_Literal	0x10
0011 4800       |H   |		Short_Literal	0x0
0012 60c5       |`   |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x0000ffff}
0013 00e5       |    |		Load_Encached	Long_Integer_Cache
0014 03fc       |    |		QQ_Declare_Type	Discrete,XXX
0015 00d8       |    |		Load_Top	At_Offset_0
0016 0129       | )  |		Execute	Any,Make_Visible
0017 00d8       |    |		Load_Top	At_Offset_0
0018 0129       | )  |		Execute	Any,Make_Visible
0019 4800       |H   |		Short_Literal	0x0
001a 480f       |H   |		Short_Literal	0xf
001b 00e5       |    |		Load_Encached	Long_Integer_Cache
001c 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001d 4801       |H   |		Short_Literal	0x1
001e 481e       |H   |		Short_Literal	0x1e
001f 00e9       |    |		Load_Encached	String_Cache
0020 035c       | \  |		Declare_Type	Array,Constrained,Visible
0021 e20e       |    |		Load	0x1,0xe
0022 e20d       |    |		Load	0x1,0xd
0023 00d8       |    |		Load_Top	At_Offset_0
0024 02a0       |    |		Declare_Subprogram	Null_Subprogram
0025 4803       |H   |		Short_Literal	0x3
0026 032e       | .  |		Declare_Type	Record,Defined,Visible
0027 4807       |H   |		Short_Literal	0x7
0028 4800       |H   |		Short_Literal	0x0
0029 487f       |H   |		Short_Literal	0x7f
002a 00e5       |    |		Load_Encached	Long_Integer_Cache
002b 03fc       |    |		QQ_Declare_Type	Discrete,XXX
002c 4804       |H   |		Short_Literal	0x4
002d 4800       |H   |		Short_Literal	0x0
002e 480f       |H   |		Short_Literal	0xf
002f 00e5       |    |		Load_Encached	Long_Integer_Cache
0030 03fc       |    |		QQ_Declare_Type	Discrete,XXX
0031 4805       |H   |		Short_Literal	0x5
0032 4800       |H   |		Short_Literal	0x0
0033 481f       |H   |		Short_Literal	0x1f
0034 00e5       |    |		Load_Encached	Long_Integer_Cache
0035 03fc       |    |		QQ_Declare_Type	Discrete,XXX
0036 e20e       |    |		Load	0x1,0xe
0037 00db       |    |		Load_Top	At_Offset_3
0038 00db       |    |		Load_Top	At_Offset_3
0039 00db       |    |		Load_Top	At_Offset_3
003a 02a0       |    |		Declare_Subprogram	Null_Subprogram
003b 4804       |H   |		Short_Literal	0x4
003c 032e       | .  |		Declare_Type	Record,Defined,Visible
003d 480c       |H   |		Short_Literal	0xc
003e 4800       |H   |		Short_Literal	0x0
003f 6094       |`   |		Indirect_Literal	Discrete,0xd4,{0x00000000, 0x00000fff}
0040 00e5       |    |		Load_Encached	Long_Integer_Cache
0041 03fc       |    |		QQ_Declare_Type	Discrete,XXX
0042 00d8       |    |		Load_Top	At_Offset_0
0043 00e1       |    |		Load_Encached	Boolean_Cache
0044 00e1       |    |		Load_Encached	Boolean_Cache
0045 00e1       |    |		Load_Encached	Boolean_Cache
0046 00e1       |    |		Load_Encached	Boolean_Cache
0047 02a0       |    |		Declare_Subprogram	Null_Subprogram
0048 4805       |H   |		Short_Literal	0x5
0049 032e       | .  |		Declare_Type	Record,Defined,Visible
004a 4800       |H   |		Short_Literal	0x0
004b 4802       |H   |		Short_Literal	0x2
004c 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
004e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
004f 00e3       |    |		Load_Encached	Natural_Cache
0050 4801       |H   |		Short_Literal	0x1
0051 487e       |H~  |		Short_Literal	0x7e
0052 00e9       |    |		Load_Encached	String_Cache
0053 035c       | \  |		Declare_Type	Array,Constrained,Visible
0054 02a0       |    |		Declare_Subprogram	Null_Subprogram
0055 4802       |H   |		Short_Literal	0x2
0056 032e       | .  |		Declare_Type	Record,Defined,Visible
0057 4800       |H   |		Short_Literal	0x0
0058 6077       |`w  |		Indirect_Literal	Discrete,0xd0,{0x00000000, 0x00004000}
0059 00e5       |    |		Load_Encached	Long_Integer_Cache
005a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
005b 4800       |H   |		Short_Literal	0x0
005c 49ff       |I   |		Short_Literal	0x1ff
005d 00e5       |    |		Load_Encached	Long_Integer_Cache
005e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
005f 4801       |H   |		Short_Literal	0x1
0060 4a00       |J   |		Short_Literal	0x200
0061 00e5       |    |		Load_Encached	Long_Integer_Cache
0062 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0063 00e2       |    |		Load_Encached	Integer_Cache
0064 e20e       |    |		Load	0x1,0xe
0065 02a0       |    |		Declare_Subprogram	Null_Subprogram
0066 4802       |H   |		Short_Literal	0x2
0067 032e       | .  |		Declare_Type	Record,Defined,Visible
0068 e20e       |    |		Load	0x1,0xe
0069 00d8       |    |		Load_Top	At_Offset_0
006a 02a0       |    |		Declare_Subprogram	Null_Subprogram
006b 4802       |H   |		Short_Literal	0x2
006c 032e       | .  |		Declare_Type	Record,Defined,Visible
006d 4800       |H   |		Short_Literal	0x0
006e 4805       |H   |		Short_Literal	0x5
006f 00da       |    |		Load_Top	At_Offset_2
0070 02a0       |    |		Declare_Subprogram	Null_Subprogram
0071 4801       |H   |		Short_Literal	0x1
0072 035e       | ^  |		Declare_Type	Array,Defined,Visible
0073 e20e       |    |		Load	0x1,0xe
0074 00d9       |    |		Load_Top	At_Offset_1
0075 e217       |    |		Load	0x1,0x17
0076 e219       |    |		Load	0x1,0x19
0077 02a0       |    |		Declare_Subprogram	Null_Subprogram
0078 4804       |H   |		Short_Literal	0x4
0079 032e       | .  |		Declare_Type	Record,Defined,Visible
007a 4801       |H   |		Short_Literal	0x1
007b 481e       |H   |		Short_Literal	0x1e
007c e001       |    |		Load	0x0,0x1
007d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
007e 035c       | \  |		Declare_Type	Array,Constrained,Visible
007f e20e       |    |		Load	0x1,0xe
0080 00da       |    |		Load_Top	At_Offset_2
0081 02a0       |    |		Declare_Subprogram	Null_Subprogram
0082 4803       |H   |		Short_Literal	0x3
0083 032e       | .  |		Declare_Type	Record,Defined,Visible
0084 4809       |H   |		Short_Literal	0x9
0085 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0086 00d8       |    |		Load_Top	At_Offset_0
0087 02a0       |    |		Declare_Subprogram	Null_Subprogram
0088 4818       |H   |		Short_Literal	0x18
0089 03d6       |    |		Declare_Type	Access,Defined,Visible
008a 4801       |H   |		Short_Literal	0x1
008b 481e       |H   |		Short_Literal	0x1e
008c e001       |    |		Load	0x0,0x1
008d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
008e 035c       | \  |		Declare_Type	Array,Constrained,Visible
008f e20e       |    |		Load	0x1,0xe
0090 e222       | "  |		Load	0x1,0x22
0091 e20e       |    |		Load	0x1,0xe
0092 00e2       |    |		Load_Encached	Integer_Cache
0093 e225       | %  |		Load	0x1,0x25
0094 e21c       |    |		Load	0x1,0x1c
0095 00e2       |    |		Load_Encached	Integer_Cache
0096 00e1       |    |		Load_Encached	Boolean_Cache
0097 02a0       |    |		Declare_Subprogram	Null_Subprogram
0098 e224       | $  |		Load	0x1,0x24
0099 0326       | &  |		Complete_Type	Record,By_Defining
009a 00d8       |    |		Load_Top	At_Offset_0
009b 03c4       |    |		Complete_Type	Access,By_Component_Completion
009c 4800       |H   |		Short_Literal	0x0
009d 480f       |H   |		Short_Literal	0xf
009e e223       | #  |		Load	0x1,0x23
009f 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a0 4801       |H   |		Short_Literal	0x1
00a1 035e       | ^  |		Declare_Type	Array,Defined,Visible
00a2 00bf       |    |		Action	Accept_Activation
00a3			BODY_0008:
00a3 00bc       |    |		Action	Signal_Activated
00a4 00bb       |    |		Action	Signal_Completion
00a5 0000 0000  |    |		.XXX[0x3]
00a7 0000       |    |
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 4607       |F   |		Jump_Case	0x8
00ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ad 7806       |x   |		Jump	0xb4								; case 0x1
00ae 7809       |x   |		Jump	0xb8								; case 0x2
00af 780d       |x   |		Jump	0xbd								; case 0x3
00b0 7810       |x   |		Jump	0xc1								; case 0x4
00b1 7811       |x   |		Jump	0xc3								; case 0x5
00b2 7812       |x   |		Jump	0xc5								; case 0x6
00b3 7815       |x   |		Jump	0xc9								; case 0x7
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 0091 00dc  |    |		Action	Push_String_Extended_Indexed,0xdc				; "UNKNOWN"
00b7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 00e0       |    |		Load_Encached	Standard_Cache
00bb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00bd 00da       |    |		Load_Top	At_Offset_2
00be 00e0       |    |		Load_Encached	Standard_Cache
00bf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db       |    |		Load_Top	At_Offset_3
00c2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c5 e21a       |    |		Load	0x1,0x1a
00c6 00dc       |    |		Load_Top	At_Offset_4
00c7 0267       | g  |		Execute	Discrete,Predecessor
00c8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c9 e21a       |    |		Load	0x1,0x1a
00ca 00dc       |    |		Load_Top	At_Offset_4
00cb 0268       | h  |		Execute	Discrete,Successor
00cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
00d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000fff}
00d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
00dc ; --------------------------------------------------------------------------------------
00dc ; STRING TABLE
00dc ; --------------------------------------------------------------------------------------
00dc 0008       |    |		.STRTAB	0x0008->0x00e0							; "UNKNOWN"
00dd 000d       |    |		.STRTAB	0x000d->0x00e3							; "M100"
00de 000f       |    |		.STRTAB	0x000f->0x00e5							; "M200"
00df 0011       |    |		.STREND 0x0011->0x00e7
00e0 554e 4b4e  |UNKN|		.STRTAB_STRINGS
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0x8b1b,0x0000,0x0001,0x0000
00ee 0000 0000  |    |		.BLANK	0000[0x13]
0101 0020 0500  |    |		.XXX[0xc]
0103 0000 0000  |    |
0105 0000 4000  |  @ |
0107 0002 2000  |    |
0109 0000 0100  |    |
010b 0000 0a00  |    |
010d 0000 0000  |    |		.BLANK	0000[0x2d]
013a 0004 00a0  |    |		.XXX[0xc]
013c 0000 0000  |    |
013e 0000 0800  |    |
0140 0000 4400  |  D |
0142 0000 0020  |    |
0144 0000 0140  |   @|
0146 0000 0000  |    |		.BLANK	0000[0x2e]
0174 8014 0000  |    |		.XXX[0xb]
0176 0000 0000  |    |
0178 0100 0000  |    |
017a 0880 0000  |    |
017c 0004 0000  |    |
017e 0028       | (  |
017f 0000 0000  |    |		.BLANK	0000[0x2e]
01ad 1002 8000  |    |		.XXX[0xb]
01af 0000 0000  |    |
01b1 0020 0000  |    |
01b3 0110 0000  |    |
01b5 0000 8000  |    |
01b7 0005       |    |
01b8 0000 0000  |    |		.BLANK	0000[0x48]