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

⟦e16623571⟧

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

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 00e0       |    |		.CONST	0x00e0								; Offset to segment table (only in elab segments)
0007 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 000e       |    |		.CONST	0x000e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029c 0013  |    |		Declare_Subprogram	INIT_0010,For_Outer_Call,Visible
000d 00bf       |    |		Action	Accept_Activation
000e			BODY_0008:
000e 00bc       |    |		Action	Signal_Activated
000f 00bb       |    |		Action	Signal_Completion
0010 ; --------------------------------------------------------------------------------------
0010 ; SUBPROGRAM
0010 ; --------------------------------------------------------------------------------------
0010 0015       |    |		.CONST	0x0015								; Address of begin
0011 001a       |    |		.CONST	0x001a								; Address of exception handler
0012 0002       |    |		.CONST	0x0002								; Number of locals
0013			INIT_0010:
0013 029f 0023  |   #|		Declare_Subprogram	INIT_0020,For_Call
0015			BODY_0010:
0015 8402       |    |		Call	0x2,0x2
0016 7801       |x   |		Jump	0x18
0017 0003       |    |		.XXX[0x1]
0018 006f       | o  |		Action	Break_Unconditional
0019 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
001a			TRAP_0010:
001a 7801       |x   |		Jump	0x1c
001b 0003       |    |		.XXX[0x1]
001c 006f       | o  |		Action	Break_Unconditional
001d 00d8       |    |		Load_Top	At_Offset_0
001e 0100       |    |		Execute	Exception,Raise
001f 0000       |    |		.XXX[0x1]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 008a       |    |		.CONST	0x008a								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0011       |    |		.CONST	0x0011								; Number of locals
0023			INIT_0020:
0023 7801       |x   |		Jump	0x25
0024 0002       |    |		.XXX[0x1]
0025 006f       | o  |		Action	Break_Unconditional
0026 785c       |x\  |		Jump	0x83
0027 4800       |H   |		Short_Literal	0x0
0028 60b3       |`   |		Indirect_Literal	Discrete,0xdc,{0x0036690b, 0x000000b0}
0029 02a0       |    |		Declare_Subprogram	Null_Subprogram
002a 038e       |    |		Declare_Type	Package,Defined
002b 0387       |    |		Declare_Variable	Package
002c 00d8       |    |		Load_Top	At_Offset_0
002d 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
002e 60a9       |`   |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x00065804}
002f e002       |    |		Load	0x0,0x2
0030 e001       |    |		Load	0x0,0x1
0031 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0032 60a1       |`   |		Indirect_Literal	Discrete,0xd4,{0x00000000, 0x001a9404}
0033 e002       |    |		Load	0x0,0x2
0034 e001       |    |		Load	0x0,0x1
0035 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0036 6099       |`   |		Indirect_Literal	Discrete,0xd0,{0x00000000, 0x0036c804}
0037 e002       |    |		Load	0x0,0x2
0038 e001       |    |		Load	0x0,0x1
0039 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
003a 6091       |`   |		Indirect_Literal	Discrete,0xcc,{0x00000000, 0x003d4404}
003b e002       |    |		Load	0x0,0x2
003c e001       |    |		Load	0x0,0x1
003d 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
003e 6089       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x00372004}
003f e002       |    |		Load	0x0,0x2
0040 e001       |    |		Load	0x0,0x1
0041 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0042 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0043 6080       |`   |		Indirect_Literal	Discrete,0xc4,{0x00000000, 0x000b6004}
0044 e002       |    |		Load	0x0,0x2
0045 e001       |    |		Load	0x0,0x1
0046 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0047 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0048 6077       |`w  |		Indirect_Literal	Discrete,0xc0,{0x00000000, 0x003d4804}
0049 e002       |    |		Load	0x0,0x2
004a e001       |    |		Load	0x0,0x1
004b 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
004c 606f       |`o  |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x0004bc04}
004d e002       |    |		Load	0x0,0x2
004e e001       |    |		Load	0x0,0x1
004f 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0050 6067       |`g  |		Indirect_Literal	Discrete,0xb8,{0x00000000, 0x003e1004}
0051 e002       |    |		Load	0x0,0x2
0052 e001       |    |		Load	0x0,0x1
0053 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0054 605f       |`_  |		Indirect_Literal	Discrete,0xb4,{0x00000000, 0x00273404}
0055 e002       |    |		Load	0x0,0x2
0056 e001       |    |		Load	0x0,0x1
0057 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0058 6057       |`W  |		Indirect_Literal	Discrete,0xb0,{0x00000000, 0x00273004}
0059 e002       |    |		Load	0x0,0x2
005a e001       |    |		Load	0x0,0x1
005b 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
005c 604f       |`O  |		Indirect_Literal	Discrete,0xac,{0x00000000, 0x00373c04}
005d e002       |    |		Load	0x0,0x2
005e e001       |    |		Load	0x0,0x1
005f 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0060 6047       |`G  |		Indirect_Literal	Discrete,0xa8,{0x00000000, 0x000e3804}
0061 e002       |    |		Load	0x0,0x2
0062 e001       |    |		Load	0x0,0x1
0063 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0064 603f       |`?  |		Indirect_Literal	Discrete,0xa4,{0x00000000, 0x000e1804}
0065 e002       |    |		Load	0x0,0x2
0066 e001       |    |		Load	0x0,0x1
0067 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0068 e60d       |    |		Load	0x3,0xd
0069 6036       |`6  |		Indirect_Literal	Discrete,0xa0,{0x00000001, 0x00007715}
006a 4804       |H   |		Short_Literal	0x4
006b e609       |    |		Load	0x3,0x9
006c 6033       |`3  |		Indirect_Literal	Discrete,0xa0,{0x00000001, 0x00007715}
006d 4803       |H   |		Short_Literal	0x3
006e e608       |    |		Load	0x3,0x8
006f 6030       |`0  |		Indirect_Literal	Discrete,0xa0,{0x00000001, 0x00007715}
0070 4802       |H   |		Short_Literal	0x2
0071 602e       |`.  |		Indirect_Literal	Discrete,0xa0,{0x00000001, 0x00007715}
0072 4801       |H   |		Short_Literal	0x1
0073 e60a       |    |		Load	0x3,0xa
0074 e607       |    |		Load	0x3,0x7
0075 e606       |    |		Load	0x3,0x6
0076 e60b       |    |		Load	0x3,0xb
0077 e605       |    |		Load	0x3,0x5
0078 e611       |    |		Load	0x3,0x11
0079 e610       |    |		Load	0x3,0x10
007a e60f       |    |		Load	0x3,0xf
007b 6020       |`   |		Indirect_Literal	Discrete,0x9c,{0x000002fb, 0x0d0b0081}
007c e604       |    |		Load	0x3,0x4
007d 4815       |H   |		Short_Literal	0x15
007e e602       |    |		Load	0x3,0x2
007f 020e       |    |		Execute	Module,Augment_Imports
0080 e602       |    |		Load	0x3,0x2
0081 020f       |    |		Execute	Module,Activate
0082 7807       |x   |		Jump	BODY_0020
0083 6014       |`   |		Indirect_Literal	Discrete,0x98,{0x00000000, 0x00001f40}
0084 600f       |`   |		Indirect_Literal	Discrete,0x94,{0x00000000, 0x00190c04}
0085 e002       |    |		Load	0x0,0x2
0086 e001       |    |		Load	0x0,0x1
0087 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0088 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0089 7f9d       |    |		Jump	0x27
008a			BODY_0020:
008a e5fa       |    |		Load	0x2,-0x6
008b e5fb       |    |		Load	0x2,-0x5
008c e5fc       |    |		Load	0x2,-0x4
008d e5fd       |    |		Load	0x2,-0x3
008e e5fe       |    |		Load	0x2,-0x2
008f e5ff       |    |		Load	0x2,-0x1
0090 8603       |    |		Call	0x3,0x3
0091 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0092 0000 0000  |    |		.XXX[0x2]
0094 0000 0000  |    |		.LITERAL	{0x00000000, 0x00190c04}
0098 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001f40}
009c 0000 02fb  |    |		.LITERAL	{0x000002fb, 0x0d0b0081}
00a0 0000 0001  |    |		.LITERAL	{0x00000001, 0x00007715}
00a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e1804}
00a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e3804}
00ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x00373c04}
00b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00273004}
00b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00273404}
00b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x003e1004}
00bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0004bc04}
00c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d4804}
00c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000b6004}
00c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00372004}
00cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d4404}
00d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036c804}
00d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x001a9404}
00d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00065804}
00dc 0036 690b  | 6i |		.LITERAL	{0x0036690b, 0x000000b0}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Segment Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0028       | (  |		.XXX[0x1]
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x7715,0x0000,0x0001,0x0000
00ee 492e 482b  |I.H+|		.XXX[0x112]
00f0 4882 e001  |H   |
00f2 1824 492e  | $I.|
00f4 4831 4882  |H1H |
00f6 e001 1824  |   $|
00f8 492e 4805  |I.H |
00fa 4882 e001  |H   |
00fc 1824 492e  | $I.|
00fe 4812 4882  |H H |
0100 e001 1824  |   $|
0102 492e 4824  |I.H$|
0104 4882 e001  |H   |
0106 1824 492e  | $I.|
0108 4823 4882  |H#H |
010a e001 1824  |   $|
010c 4830 4882  |H0H |
010e e001 1829  |   )|
0110 486e 48d1  |HnH |
0112 4883 e001  |H   |
0114 1828 4886  | (H |
0116 4857 4883  |HWH |
0118 e001 1823  |   #|
011a 492e 4830  |I.H0|
011c 4883 e001  |H   |
011e 1824 492e  | $I.|
0120 480a 4883  |H H |
0122 e001 1824  |   $|
0124 492e 482b  |I.H+|
0126 4883 e001  |H   |
0128 1824 492e  | $I.|
012a 4831 4883  |H1H |
012c e001 1824  |   $|
012e 492e 4805  |I.H |
0130 4883 e001  |H   |
0132 1824 492e  | $I.|
0134 4812 4883  |H H |
0136 e001 1824  |   $|
0138 492e 4824  |I.H$|
013a 4883 e001  |H   |
013c 1824 492e  | $I.|
013e 4823 4883  |H#H |
0140 e001 1824  |   $|
0142 4830 4883  |H0H |
0144 e001 1829  |   )|
0146 4972 4858  |IrHX|
0148 4884 e001  |H   |
014a 1825 4971  | %Iq|
014c 4863 4884  |HcH |
014e e001 1825  |   %|
0150 4970 486e  |IpHn|
0152 4884 e001  |H   |
0154 1825 496b  | %Ik|
0156 4851 4884  |HQH |
0158 e001 1825  |   %|
015a 496a 4852  |IjHR|
015c 4884 e001  |H   |
015e 1825 4969  | %Ii|
0160 4859 4884  |HYH |
0162 e001 1825  |   %|
0164 4968 4869  |IhHi|
0166 4884 e001  |H   |
0168 1825 4967  | %Ig|
016a 4854 4884  |HTH |
016c e001 1825  |   %|
016e 4966 4861  |IfHa|
0170 4884 e001  |H   |
0172 1825 4871  | %Hq|
0174 48d7 4884  |H H |
0176 e001 1828  |   (|
0178 4870 486a  |HpHj|
017a 4884 e001  |H   |
017c 1823 486f  | #Ho|
017e 48d2 4884  |H H |
0180 e001 1828  |   (|
0182 486e 48d1  |HnH |
0184 4884 e001  |H   |
0186 1828 4886  | (H |
0188 4857 4884  |HWH |
018a e001 1823  |   #|
018c 4869 4867  |HiHg|
018e 4884 e001  |H   |
0190 1823 492e  | #I.|
0192 4830 4884  |H0H |
0194 e001 1824  |   $|
0196 492e 480a  |I.H |
0198 4884 e001  |H   |
019a 1824 492e  | $I.|
019c 482b 4884  |H+H |
019e e001 1824  |   $|
01a0 492e 4831  |I.H1|
01a2 4884 e001  |H   |
01a4 1824 492e  | $I.|
01a6 4805 4884  |H H |
01a8 e001 1824  |   $|
01aa 492e 4812  |I.H |
01ac 4884 e001  |H   |
01ae 1824 492e  | $I.|
01b0 4824 4884  |H$H |
01b2 e001 1824  |   $|
01b4 492e 4823  |I.H#|
01b6 4884 e001  |H   |
01b8 1824 4830  | $H0|
01ba 4884 e001  |H   |
01bc 1829 4976  | )Iv|
01be 485e 4885  |H^H |
01c0 e001 1825  |   %|
01c2 4974 485c  |ItH\|
01c4 4885 e001  |H   |
01c6 1825 4973  | %Is|
01c8 4856 4885  |HVH |
01ca e001 1825  |   %|
01cc 4972 4858  |IrHX|
01ce 4885 e001  |H   |
01d0 1825 4971  | %Iq|
01d2 4863 4885  |HcH |
01d4 e001 1825  |   %|
01d6 4970 486e  |IpHn|
01d8 4885 e001  |H   |
01da 1825 496b  | %Ik|
01dc 4851 4885  |HQH |
01de e001 1825  |   %|
01e0 496a 4852  |IjHR|
01e2 4885 e001  |H   |
01e4 1825 4969  | %Ii|
01e6 4859 4885  |HYH |
01e8 e001 1825  |   %|
01ea 4968 4869  |IhHi|
01ec 4885 e001  |H   |
01ee 1825 4967  | %Ig|
01f0 4854 4885  |HTH |
01f2 e001 1825  |   %|
01f4 4966 4861  |IfHa|
01f6 4885 e001  |H   |
01f8 1825 4872  | %Hr|
01fa 48d9 4885  |H H |
01fc e001 1828  |   (|
01fe 4871 48d7  |HqH |