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

⟦4983ee463⟧

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

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 0050       | P  |		.CONST	0x0050								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0021       | !  |		.CONST	0x0021								; Address of begin
0019 0031       | 1  |		.CONST	0x0031								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e e001       |    |		Load	0x0,0x1
001f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0020 a402       |    |		Store_Unchecked	0x2,0x2
0021			BODY_0018:
0021 e5fa       |    |		Load	0x2,-0x6
0022 e001       |    |		Load	0x0,0x1
0023 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0024 e001       |    |		Load	0x0,0x1
0025 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0026 e5fb       |    |		Load	0x2,-0x5
0027 e5fc       |    |		Load	0x2,-0x4
0028 e5fd       |    |		Load	0x2,-0x3
0029 e5fe       |    |		Load	0x2,-0x2
002a e5ff       |    |		Load	0x2,-0x1
002b e002       |    |		Load	0x0,0x2
002c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
002d 00d8       |    |		Load_Top	At_Offset_0
002e e001       |    |		Load	0x0,0x1
002f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0030 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0031			TRAP_0018:
0031 0007       |    |		Action	Break_Optional
0032 e001       |    |		Load	0x0,0x1
0033 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0034 4808       |H   |		Short_Literal	0x8
0035 4801       |H   |		Short_Literal	0x1
0036 4801       |H   |		Short_Literal	0x1
0037 e003       |    |		Load	0x0,0x3
0038 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0039 e004       |    |		Load	0x0,0x4
003a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
003b e001       |    |		Load	0x0,0x1
003c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
003d e001       |    |		Load	0x0,0x1
003e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
003f 6805       |h   |		Jump_Zero	0x45
0040 00d9       |    |		Load_Top	At_Offset_1
0041 e001       |    |		Load	0x0,0x1
0042 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0043 00d8       |    |		Load_Top	At_Offset_0
0044 0101       |    |		Execute	Exception,Reraise
0045 00d9       |    |		Load_Top	At_Offset_1
0046 e001       |    |		Load	0x0,0x1
0047 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0048 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; Debug Table
0050 ; --------------------------------------------------------------------------------------
0050 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x4215,0x0000,0x0001,0x0000
0056 4d51 0539  |MQ 9|		.XXX[0x4c]
0058 1105 4910  |  I |
005a b909 3d3d  |  ==|
005c 3115 0538  |1  8|
005e 5800 554d  |X UM|
0060 5105 3911  |Q 9 |
0062 0549 10b9  | I  |
0064 093d 3d31  | ==1|
0066 1505 38b9  |  8 |
0068 5149 5514  |QIU |
006a 0000 0000  |    |
006c 2c00 0000  |,   |
006e a800 9105  |    |
0070 417d 4d0d  |A}M |
0072 4915 1539  |I  9|
0074 7d41 493d  |}AI=|
0076 0d15 1155  |   U|
0078 4915 4cb9  |I L |
007a 0541 7d4d  | A}M|
007c 0d49 1515  | I  |
007e 397d 4915  |9}I |
0080 4d15 50f5  |M P |
0082 ee50 0000  | P  |
0084 0000 2000  |    |
0086 0001 e400  |    |
0088 7105 417d  |q A}|
008a 4d0d 4915  |M I |
008c 1539 7d41  | 9}A|
008e 493d 0d15  |I=  |
0090 1155 4915  | UI |
0092 4cb9 4d41  |L MA|
0094 050d 14e0  |    |
0096 c0e5 985c  |   \|
0098 003d 4d51  | =MQ|
009a 0539 1105  | 9  |
009c 4910 b94d  |I  M|
009e 5149 2539  |QI%9|
00a0 1d8d 8420  |    |
00a2 0000 0000  |    |		.BLANK	0000[0x4]
00a6 0420 0000  |    |		.XXX[0x8]
00a8 0000 0000  |    |
00aa 0001 4006  |  @ |
00ac 9e29 8420  | )  |
00ae 0000 0000  |    |		.BLANK	0000[0x4]
00b2 0420 0000  |    |		.XXX[0xfe]
00b4 0000 0000  |    |
00b6 0001 4030  |  @0|
00b8 0059 4d51  | YMQ|
00ba 0539 1105  | 9  |
00bc 4910 b90d  |I   |
00be 2105 4905  |! I |
00c0 0d51 1548  | Q H|
00c2 b89c 809c  |    |
00c4 0000 0048  |   H|
00c6 0000 0138  |   8|
00c8 0091 0541  |   A|
00ca 7d4d 0d49  |}M I|
00cc 1515 397d  |  9}|
00ce 4149 3d0d  |AI= |
00d0 1511 5549  |  UI|
00d2 154c b905  | L  |
00d4 417d 1125  |A} %|
00d6 4d41 3105  |MA1 |
00d8 657d 5115  |e}Q |
00da 6150 f5ee  |aP  |
00dc 51fa 408c  |Q @ |
00de 0031 1125  | 1 %|
00e0 4d41 3105  |MA1 |
00e2 657d 3125  |e}1%|
00e4 3914 5c00  |9 \ |
00e6 3d4d 5105  |=MQ |
00e8 3911 0549  |9  I|
00ea 10b9 4d51  |  MQ|
00ec 4925 391c  |I%9 |
00ee 0000 0000  |    |
00f0 0050 0000  | P  |
00f2 02ec 0091  |    |
00f4 0541 7d4d  | A}M|
00f6 0d49 1515  | I  |
00f8 397d 4149  |9}AI|
00fa 3d0d 1511  |=   |
00fc 5549 154c  |UI L|
00fe b905 417d  |  A}|
0100 1125 4d41  | %MA|
0102 3105 657d  |1 e}|
0104 5d25 1114  |]%  |
0106 f5ee 51fa  |  Q |
0108 408c 000d  |@   |
010a 493d 5c5c  |I=\\|
010c 0041 4d51  | AMQ|
010e 0539 1105  | 9  |
0110 4910 b925  |I  %|
0112 3951 151d  |9Q  |
0114 1548 01fa  | H  |
0116 408c 000d  |@   |
0118 0d3d 305c  | =0\|
011a 0041 4d51  | AMQ|
011c 0539 1105  | 9  |
011e 4910 b925  |I  %|
0120 3951 151d  |9Q  |
0122 1548 01fa  | H  |
0124 408c 0011  |@   |
0126 2125 3124  |!%1$|
0128 5c00 414d  |\ AM|
012a 5105 3911  |Q 9 |
012c 0549 10b9  | I  |
012e 093d 3d31  | ==1|
0130 1505 3858  |  8X|
0132 0059 4d51  | YMQ|
0134 0539 1105  | 9  |
0136 4910 b909  |I   |
0138 3d3d 3115  |==1 |
013a 0538 b919  | 8  |
013c 0531 4d15  | 1M |
013e fa40 8c00  | @  |
0140 3111 254d  |1 %M|
0142 4131 0565  |A1 e|
0144 7d31 2539  |}1%9|
0146 145c 003d  | \ =|
0148 4d51 0539  |MQ 9|
014a 1105 4910  |  I |
014c b94d 5149  | MQI|
014e 2539 1c00  |%9  |
0150 0000 0000  |    |
0152 3000 0001  |0   |
0154 d000 b105  |    |
0156 417d 4d0d  |A}M |
0158 4915 1539  |I  9|
015a 7d41 493d  |}AI=|
015c 0d15 1155  |   U|
015e 4915 4cb9  |I L |
0160 0541 7d4d  | A}M|
0162 0d49 1515  | I  |
0164 397d 4d0d  |9}M |
0166 493d 3131  |I=11|
0168 7d49 151d  |}I  |
016a 253d 38f5  |%=8 |
016c ee51 fa40  | Q @|
016e 8c00 254d  |  %M|
0170 5105 4951  |Q IQ|
0172 7d49 3d5c  |}I=\|
0174 5c00 414d  |\ AM|
0176 5105 3911  |Q 9 |
0178 0549 10b9  | I  |
017a 2539 5115  |%9Q |
017c 1d15 4801  |  H |
017e fa40 8c00  | @  |
0180 1d15 3911  |  9 |
0182 7d49 3d5c  |}I=\|
0184 5c00 414d  |\ AM|
0186 5105 3911  |Q 9 |
0188 0549 10b9  | I  |
018a 2539 5115  |%9Q |
018c 1d15 4800  |  H |
018e 0000 0000  |    |
0190 1000 0001  |    |
0192 1000 8905  |    |
0194 417d 4d0d  |A}M |
0196 4915 1539  |I  9|
0198 7d41 493d  |}AI=|
019a 0d15 1155  |   U|
019c 4915 4cb9  |I L |
019e 0541 7d49  | A}I|
01a0 3d5d 7d3d  |=]}=|
01a2 1919 4d15  |  M |
01a4 50e5 985c  |P  \|
01a6 0041 4d51  | AMQ|
01a8 0539 1105  | 9  |
01aa 4910 b925  |I  %|
01ac 3951 151d  |9Q  |
01ae 1548 0020  | H  |
01b0 0000 0000  |    |		.BLANK	0000[0x6]
01b6 0400 0000  |    |		.XXX[0x4a]
01b8 6000 5105  |` Q |
01ba 417d 4d0d  |A}M |
01bc 4915 1539  |I  9|
01be 7d41 493d  |}AI=|
01c0 0d15 1155  |   U|
01c2 4915 4cf9  |I L |
01c4 f000 0000  |    |
01c6 7400 0003  |t   |
01c8 4800 c905  |H   |
01ca 417d 4d0d  |A}M |
01cc 4915 1539  |I  9|
01ce 7d41 493d  |}AI=|
01d0 0d15 1155  |   U|
01d2 4915 4cb9  |I L |
01d4 0541 7d1d  | A} |
01d6 1551 7d55  | Q}U|
01d8 4d15 497d  |M I}|
01da 4915 4d41  |I MA|
01dc 3d39 4d15  |=9M |
01de 7d5d 2551  |}]%Q|
01e0 217d 153d  |!} =|
01e2 18f5 ee51  |   Q|
01e4 fe40 9000  | @  |
01e6 2d49 154d  |-I M|
01e8 413d 394d  |A=9M|
01ea 157d 2538  | }%8|
01ec 5c00 3d4d  |\ =M|
01ee 5105 3911  |Q 9 |
01f0 0549 10b9  | I  |
01f2 4d51 4925  |MQI%|
01f4 391c 01fe  |9   |
01f6 4090 001d  |@   |
01f8 4d25 6915  |M%i |
01fa 7d25 385c  |}%8\|
01fc 0041 4d51  | AMQ|
01fe 0539 1105  | 9  |