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

⟦1ad23f24f⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0048       | H  |		.CONST	0x0048								; 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 0024       | $  |		.CONST	0x0024								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0003       |    |		.CONST	0x0003								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
001d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
001e 02c7       |    |		Declare_Variable	Any
001f 00d8       |    |		Load_Top	At_Offset_0
0020 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0021 e002       |    |		Load	0x0,0x2
0022 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0023 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0024			BODY_0018:
0024 e002       |    |		Load	0x0,0x2
0025 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0026 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0027 00da       |    |		Load_Top	At_Offset_2
0028 601b       |`   |		Indirect_Literal	Discrete,0x44,{0x00000000, 0x00004000}
0029 e003       |    |		Load	0x0,0x3
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b e004       |    |		Load	0x0,0x4
002c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002d e005       |    |		Load	0x0,0x5
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f 4801       |H   |		Short_Literal	0x1
0030 4800       |H   |		Short_Literal	0x0
0031 e004       |    |		Load	0x0,0x4
0032 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0033 e002       |    |		Load	0x0,0x2
0034 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0035 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0036 e5ff       |    |		Load	0x2,-0x1
0037 e002       |    |		Load	0x0,0x2
0038 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0039 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
003a c402       |    |		Store	0x2,0x2
003b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
003c 00d8       |    |		Load_Top	At_Offset_0
003d 0f00       |    |		Execute_Immediate	Equal,0x0
003e 00d9       |    |		Load_Top	At_Offset_1
003f 0f06       |    |		Execute_Immediate	Equal,0x6
0040 0278       | x  |		Execute	Discrete,Or
0041 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0042 0000 0000  |    |		.XXX[0x2]
0044 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b8a,0x0000,0x0001,0x0000
004e b915 4949  |  II|		.XXX[0x60]
0050 3d49 7d4d  |=I}M|
0052 5105 5155  |Q QU|
0054 4c01 fa40  |L  @|
0056 8c00 1d15  |    |
0058 6141 5539  |aAU9|
005a 1d14 5c00  |  \ |
005c 414d 5105  |AMQ |
005e 3911 0549  |9  I|
0060 10b9 093d  |   =|
0062 3d31 1505  |=1  |
0064 3858 0059  |8X Y|
0066 4d51 0539  |MQ 9|
0068 1105 4910  |  I |
006a b909 3d3d  |  ==|
006c 3115 0538  |1  8|
006e b919 0531  |   1|
0070 4d15 fa40  |M  @|
0072 8c00 1d3d  |   =|
0074 4151 253d  |AQ%=|
0076 394c 5c00  |9L\ |
0078 7949 1535  |yI 5|
007a 3d51 157d  |=Q }|
007c 3d41 1549  |=A I|
007e 0551 253d  | Q%=|
0080 394c b919  |9L  |
0082 3d49 357d  |=I5}|
0084 3d41 5125  |=AQ%|
0086 3d39 4c2c  |=9L,|
0088 0000 0000  |    |
008a 0003 6c01  |  l |
008c 3000 7549  |0 uI|
008e 1535 3d51  | 5=Q|
0090 157d 3d41  | }=A|
0092 1549 0551  | I Q|
0094 253d 394c  |%=9L|
0096 b955 394d  | U9M|
0098 5541 413d  |UAA=|
009a 4951 1510  |IQ  |
009c e198 5c00  |  \ |
009e 7549 1535  |uI 5|
00a0 3d51 157d  |=Q }|
00a2 3d41 1549  |=A I|
00a4 0551 253d  | Q%=|
00a6 394c b915  |9L  |
00a8 4949 3d49  |II=I|
00aa 7d2d 2539  |}-%9|
00ac 114c 0020  | L  |
00ae 0000 0000  |    |		.BLANK	0000[0x4]
00b2 2800 0001  |(   |		.XXX[0x14e]
00b4 4805 6c00  |H l |
00b6 6549 1535  |eI 5|
00b8 3d51 157d  |=Q }|
00ba 3d41 1549  |=A I|
00bc 0551 253d  | Q%=|
00be 394c b915  |9L  |
00c0 6115 0d55  |a  U|
00c2 5114 f5ee  |Q   |
00c4 51fa 408c  |Q @ |
00c6 001d 0d3d  |   =|
00c8 3535 0539  |55 9|
00ca 105c 007d  | \ }|
00cc 4915 353d  |I 5=|
00ce 5115 7d3d  |Q }=|
00d0 4115 4905  |A I |
00d2 5125 3d39  |Q%=9|
00d4 4cb9 0d3d  |L  =|
00d6 3535 0539  |55 9|
00d8 117d 2539  | }%9|
00da 4155 5001  |AUP |
00dc fa40 8c00  | @  |
00de 2925 397d  |)%9}|
00e0 0d3d 3951  | =9Q|
00e2 1561 505c  | aP\|
00e4 0065 4915  | eI |
00e6 353d 5115  |5=Q |
00e8 7d3d 4115  |}=A |
00ea 4905 5125  |I Q%|
00ec 3d39 4cb9  |=9L |
00ee 0d3d 3951  | =9Q|
00f0 1561 5001  | aP |
00f2 fa40 8c00  | @  |
00f4 193d 5551  | =UQ|
00f6 4155 505c  |AUP\|
00f8 008d 4915  |  I |
00fa 353d 5115  |5=Q |
00fc 7d3d 4115  |}=A |
00fe 4905 5125  |I Q%|
0100 3d39 4cb9  |=9L |
0102 4905 5125  |I Q%|
0104 3d39 0531  |=9 1|
0106 7d41 0551  |}A Q|
0108 2139 0535  |!9 5|
010a 1401 fa40  |   @|
010c 8c00 1515  |    |
010e 4949 3d48  |II=H|
0110 5c00 8d49  |\  I|
0112 1535 3d51  | 5=Q|
0114 157d 3d41  | }=A|
0116 1549 0551  | I Q|
0118 253d 394c  |%=9L|
011a b949 0551  | I Q|
011c 253d 3905  |%=9 |
011e 317d 4105  |1}A |
0120 5121 3905  |Q!9 |
0122 3514 01f6  |5   |
0124 4094 0019  |@   |
0126 4d51 0551  |MQ Q|
0128 554c 5c00  |UL\ |
012a 7949 1535  |yI 5|
012c 3d51 157d  |=Q }|
012e 3d41 1549  |=A I|
0130 0551 253d  | Q%=|
0132 394c b915  |9L  |
0134 4949 3d49  |II=I|
0136 7d4d 5105  |}MQ |
0138 5155 4c01  |QUL |
013a fa40 8c00  | @  |
013c 1d51 2535  | Q%5|
013e 153d 5550  | =UP|
0140 5c00 8549  |\  I|
0142 1535 3d51  | 5=Q|
0144 157d 3d41  | }=A|
0146 1549 0551  | I Q|
0148 253d 394c  |%=9L|
014a b90d 3d35  |  =5|
014c 3505 3911  |5 9 |
014e 7d51 2535  |}Q%5|
0150 153d 5550  | =UP|
0152 5800 7949  |X yI|
0154 1535 3d51  | 5=Q|
0156 157d 3d41  | }=A|
0158 1549 0551  | I Q|
015a 253d 394c  |%=9L|
015c b95d 0525  | ] %|
015e 517d 193d  |Q} =|
0160 4915 5915  |I Y |
0162 4800 0000  |H   |
0164 0188 04f4  |    |
0166 0055 4915  | UI |
0168 353d 5115  |5=Q |
016a 7d3d 4115  |}=A |
016c 4905 5125  |I Q%|
016e 3d39 4cb9  |=9L |
0170 4155 50f5  |AUP |
0172 ee51 fa40  | Q @|
0174 8c00 2519  |  % |
0176 493d 357d  |I=5}|
0178 1925 3114  | %1 |
017a 5c00 7d11  |\ } |
017c 1559 250d  | Y% |
017e 157d 2539  | }%9|
0180 1115 4115  |  A |
0182 3911 1539  |9  9|
0184 517d 253c  |Q}%<|
0186 b919 2531  |  %1|
0188 157d 5165  | }Qe|
018a 4114 01fa  |A   |
018c 408c 001d  |@   |
018e 513d 7d19  |Q=} |
0190 2531 145c  |%1 \|
0192 0085 4915  |  I |
0194 353d 5115  |5=Q |
0196 7d3d 4115  |}=A |
0198 4905 5125  |I Q%|
019a 3d39 4cb9  |=9L |
019c 4915 353d  |I 5=|
019e 5115 7d41  |Q }A|
01a0 0551 2139  | Q!9|
01a2 0535 1401  | 5  |
01a4 fa40 8c00  | @  |
01a6 2925 397d  |)%9}|
01a8 0d3d 3951  | =9Q|
01aa 1561 505c  | aP\|
01ac 0065 4915  | eI |
01ae 353d 5115  |5=Q |
01b0 7d3d 4115  |}=A |
01b2 4905 5125  |I Q%|
01b4 3d39 4cb9  |=9L |
01b6 0d3d 3951  | =9Q|
01b8 1561 5001  | aP |
01ba f640 9400  | @  |
01bc 194d 5105  | MQ |
01be 5155 4c5c  |QUL\|
01c0 0079 4915  | yI |
01c2 353d 5115  |5=Q |
01c4 7d3d 4115  |}=A |
01c6 4905 5125  |I Q%|
01c8 3d39 4cb9  |=9L |
01ca 1549 493d  | II=|
01cc 497d 4d51  |I}MQ|
01ce 0551 554c  | QUL|
01d0 01fa 408c  |  @ |
01d2 0019 0541  |   A|
01d4 4115 3910  |A 9 |
01d6 5c00 414d  |\ AM|
01d8 5105 3911  |Q 9 |
01da 0549 10b9  | I  |
01dc 093d 3d31  | ==1|
01de 1505 3858  |  8X|
01e0 0059 4d51  | YMQ|
01e2 0539 1105  | 9  |
01e4 4910 b909  |I   |
01e6 3d3d 3115  |==1 |
01e8 0538 b919  | 8  |
01ea 0531 4d15  | 1M |
01ec fa40 8c00  | @  |
01ee 1d3d 4151  | =AQ|
01f0 253d 394c  |%=9L|
01f2 5c00 7949  |\ yI|
01f4 1535 3d51  | 5=Q|
01f6 157d 3d41  | }=A|
01f8 1549 0551  | I Q|
01fa 253d 394c  |%=9L|
01fc b919 3d49  |  =I|
01fe 357d 3d41  |5}=A|