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

⟦ba5283d94⟧

    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 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 00cc       |    |		.CONST	0x00cc								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; 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 60ed       |`   |		Indirect_Literal	Discrete,0x100,{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 4800       |H   |		Short_Literal	0x0
0018 480f       |H   |		Short_Literal	0xf
0019 00e5       |    |		Load_Encached	Long_Integer_Cache
001a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001b 4801       |H   |		Short_Literal	0x1
001c 481e       |H   |		Short_Literal	0x1e
001d 00e9       |    |		Load_Encached	String_Cache
001e 035c       | \  |		Declare_Type	Array,Constrained,Visible
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 e20e       |    |		Load	0x1,0xe
0037 e20d       |    |		Load	0x1,0xd
0038 00d8       |    |		Load_Top	At_Offset_0
0039 02a0       |    |		Declare_Subprogram	Null_Subprogram
003a 4803       |H   |		Short_Literal	0x3
003b 032e       | .  |		Declare_Type	Record,Defined,Visible
003c c214       |    |		Store	0x1,0x14
003d 4807       |H   |		Short_Literal	0x7
003e 4800       |H   |		Short_Literal	0x0
003f 487f       |H   |		Short_Literal	0x7f
0040 00e5       |    |		Load_Encached	Long_Integer_Cache
0041 03fc       |    |		QQ_Declare_Type	Discrete,XXX
0042 c215       |    |		Store	0x1,0x15
0043 4804       |H   |		Short_Literal	0x4
0044 4800       |H   |		Short_Literal	0x0
0045 480f       |H   |		Short_Literal	0xf
0046 00e5       |    |		Load_Encached	Long_Integer_Cache
0047 03fc       |    |		QQ_Declare_Type	Discrete,XXX
0048 c216       |    |		Store	0x1,0x16
0049 4805       |H   |		Short_Literal	0x5
004a 4800       |H   |		Short_Literal	0x0
004b 481f       |H   |		Short_Literal	0x1f
004c 00e5       |    |		Load_Encached	Long_Integer_Cache
004d 03fc       |    |		QQ_Declare_Type	Discrete,XXX
004e c217       |    |		Store	0x1,0x17
004f e20e       |    |		Load	0x1,0xe
0050 e215       |    |		Load	0x1,0x15
0051 e216       |    |		Load	0x1,0x16
0052 e217       |    |		Load	0x1,0x17
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 4804       |H   |		Short_Literal	0x4
0055 032e       | .  |		Declare_Type	Record,Defined,Visible
0056 c218       |    |		Store	0x1,0x18
0057 480c       |H   |		Short_Literal	0xc
0058 4800       |H   |		Short_Literal	0x0
0059 60a2       |`   |		Indirect_Literal	Discrete,0xfc,{0x00000000, 0x00000fff}
005a 00e5       |    |		Load_Encached	Long_Integer_Cache
005b 03fc       |    |		QQ_Declare_Type	Discrete,XXX
005c c219       |    |		Store	0x1,0x19
005d e219       |    |		Load	0x1,0x19
005e 00e1       |    |		Load_Encached	Boolean_Cache
005f 00e1       |    |		Load_Encached	Boolean_Cache
0060 00e1       |    |		Load_Encached	Boolean_Cache
0061 00e1       |    |		Load_Encached	Boolean_Cache
0062 02a0       |    |		Declare_Subprogram	Null_Subprogram
0063 4805       |H   |		Short_Literal	0x5
0064 032e       | .  |		Declare_Type	Record,Defined,Visible
0065 c21a       |    |		Store	0x1,0x1a
0066 4800       |H   |		Short_Literal	0x0
0067 4802       |H   |		Short_Literal	0x2
0068 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
006a 03fe       |    |		Declare_Type	Discrete,Defined,Visible
006b c21b       |    |		Store	0x1,0x1b
006c 00e3       |    |		Load_Encached	Natural_Cache
006d 4801       |H   |		Short_Literal	0x1
006e 487e       |H~  |		Short_Literal	0x7e
006f 00e9       |    |		Load_Encached	String_Cache
0070 035c       | \  |		Declare_Type	Array,Constrained,Visible
0071 02a0       |    |		Declare_Subprogram	Null_Subprogram
0072 4802       |H   |		Short_Literal	0x2
0073 032e       | .  |		Declare_Type	Record,Defined,Visible
0074 c21c       |    |		Store	0x1,0x1c
0075 4800       |H   |		Short_Literal	0x0
0076 6081       |`   |		Indirect_Literal	Discrete,0xf8,{0x00000000, 0x00004000}
0077 00e5       |    |		Load_Encached	Long_Integer_Cache
0078 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0079 c21d       |    |		Store	0x1,0x1d
007a 4800       |H   |		Short_Literal	0x0
007b 49ff       |I   |		Short_Literal	0x1ff
007c 00e5       |    |		Load_Encached	Long_Integer_Cache
007d 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
007e c21e       |    |		Store	0x1,0x1e
007f 4801       |H   |		Short_Literal	0x1
0080 4a00       |J   |		Short_Literal	0x200
0081 00e5       |    |		Load_Encached	Long_Integer_Cache
0082 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0083 c21f       |    |		Store	0x1,0x1f
0084 00e2       |    |		Load_Encached	Integer_Cache
0085 e20e       |    |		Load	0x1,0xe
0086 02a0       |    |		Declare_Subprogram	Null_Subprogram
0087 4802       |H   |		Short_Literal	0x2
0088 032e       | .  |		Declare_Type	Record,Defined,Visible
0089 c220       |    |		Store	0x1,0x20
008a e20e       |    |		Load	0x1,0xe
008b 00d8       |    |		Load_Top	At_Offset_0
008c 02a0       |    |		Declare_Subprogram	Null_Subprogram
008d 4802       |H   |		Short_Literal	0x2
008e 032e       | .  |		Declare_Type	Record,Defined,Visible
008f c221       | !  |		Store	0x1,0x21
0090 4800       |H   |		Short_Literal	0x0
0091 4805       |H   |		Short_Literal	0x5
0092 e221       | !  |		Load	0x1,0x21
0093 02a0       |    |		Declare_Subprogram	Null_Subprogram
0094 4801       |H   |		Short_Literal	0x1
0095 035e       | ^  |		Declare_Type	Array,Defined,Visible
0096 c222       | "  |		Store	0x1,0x22
0097 e20e       |    |		Load	0x1,0xe
0098 e222       | "  |		Load	0x1,0x22
0099 e218       |    |		Load	0x1,0x18
009a e21a       |    |		Load	0x1,0x1a
009b 02a0       |    |		Declare_Subprogram	Null_Subprogram
009c 4804       |H   |		Short_Literal	0x4
009d 032e       | .  |		Declare_Type	Record,Defined,Visible
009e c223       | #  |		Store	0x1,0x23
009f 4801       |H   |		Short_Literal	0x1
00a0 481e       |H   |		Short_Literal	0x1e
00a1 e001       |    |		Load	0x0,0x1
00a2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00a3 035c       | \  |		Declare_Type	Array,Constrained,Visible
00a4 e20e       |    |		Load	0x1,0xe
00a5 e223       | #  |		Load	0x1,0x23
00a6 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a7 4803       |H   |		Short_Literal	0x3
00a8 032e       | .  |		Declare_Type	Record,Defined,Visible
00a9 c224       | $  |		Store	0x1,0x24
00aa 4809       |H   |		Short_Literal	0x9
00ab 032b       | +  |		Declare_Type	Record,Incomplete,Visible
00ac c225       | %  |		Store	0x1,0x25
00ad 00db       |    |		Load_Top	At_Offset_3
00ae 02a0       |    |		Declare_Subprogram	Null_Subprogram
00af 4818       |H   |		Short_Literal	0x18
00b0 03d6       |    |		Declare_Type	Access,Defined,Visible
00b1 c226       | &  |		Store	0x1,0x26
00b2 4801       |H   |		Short_Literal	0x1
00b3 481e       |H   |		Short_Literal	0x1e
00b4 e001       |    |		Load	0x0,0x1
00b5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00b6 035c       | \  |		Declare_Type	Array,Constrained,Visible
00b7 e20e       |    |		Load	0x1,0xe
00b8 e223       | #  |		Load	0x1,0x23
00b9 e20e       |    |		Load	0x1,0xe
00ba 00e2       |    |		Load_Encached	Integer_Cache
00bb e226       | &  |		Load	0x1,0x26
00bc e21d       |    |		Load	0x1,0x1d
00bd 00e2       |    |		Load_Encached	Integer_Cache
00be 00e1       |    |		Load_Encached	Boolean_Cache
00bf 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c0 e225       | %  |		Load	0x1,0x25
00c1 0326       | &  |		Complete_Type	Record,By_Defining
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 03c4       |    |		Complete_Type	Access,By_Component_Completion
00c4 4800       |H   |		Short_Literal	0x0
00c5 480f       |H   |		Short_Literal	0xf
00c6 e224       | $  |		Load	0x1,0x24
00c7 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c8 4801       |H   |		Short_Literal	0x1
00c9 035e       | ^  |		Declare_Type	Array,Defined,Visible
00ca c227       | '  |		Store	0x1,0x27
00cb 00bf       |    |		Action	Accept_Activation
00cc			BODY_0008:
00cc 00bc       |    |		Action	Signal_Activated
00cd 00bb       |    |		Action	Signal_Completion
00ce 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
00d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00d5 7806       |x   |		Jump	0xdc								; case 0x1
00d6 7809       |x   |		Jump	0xe0								; case 0x2
00d7 780d       |x   |		Jump	0xe5								; case 0x3
00d8 7810       |x   |		Jump	0xe9								; case 0x4
00d9 7811       |x   |		Jump	0xeb								; case 0x5
00da 7812       |x   |		Jump	0xed								; case 0x6
00db 7815       |x   |		Jump	0xf1								; case 0x7
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 0091 0104  |    |		Action	Push_String_Extended_Indexed,0x104				; "UNKNOWN"
00df 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e0 00db       |    |		Load_Top	At_Offset_3
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 00e0       |    |		Load_Encached	Standard_Cache
00e3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 00e0       |    |		Load_Encached	Standard_Cache
00e7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00eb 00db       |    |		Load_Top	At_Offset_3
00ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ed e21b       |    |		Load	0x1,0x1b
00ee 00dc       |    |		Load_Top	At_Offset_4
00ef 0267       | g  |		Execute	Discrete,Predecessor
00f0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f1 e21b       |    |		Load	0x1,0x1b
00f2 00dc       |    |		Load_Top	At_Offset_4
00f3 0268       | h  |		Execute	Discrete,Successor
00f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
00fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000fff}
0100 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0104 ; --------------------------------------------------------------------------------------
0104 ; STRING TABLE
0104 ; --------------------------------------------------------------------------------------
0104 0008       |    |		.STRTAB	0x0008->0x0108							; "UNKNOWN"
0105 000d       |    |		.STRTAB	0x000d->0x010b							; "M100"
0106 000f       |    |		.STRTAB	0x000f->0x010d							; "M200"
0107 0011       |    |		.STREND 0x0011->0x010f
0108 554e 4b4e  |UNKN|		.STRTAB_STRINGS
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x0e67,0x0000,0x0001,0x0000
0116 0000 0000  |    |		.BLANK	0000[0xea]