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

⟦c87539182⟧

    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 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 e001       |    |		Load	0x0,0x1
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 e001       |    |		Load	0x0,0x1
0022 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0023 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0024			BODY_0018:
0024 e001       |    |		Load	0x0,0x1
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 e002       |    |		Load	0x0,0x2
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b e003       |    |		Load	0x0,0x3
002c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002d e004       |    |		Load	0x0,0x4
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f 4801       |H   |		Short_Literal	0x1
0030 4800       |H   |		Short_Literal	0x0
0031 e003       |    |		Load	0x0,0x3
0032 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0033 e001       |    |		Load	0x0,0x1
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 e001       |    |		Load	0x0,0x1
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 0000  |    |		.DEBUG4	0x0004,0x0000,0x77d8,0x0000,0x0001,0x0000
004e 3104 c400  |1   |		.XXX[0x1b2]
0050 1555 7ccc  | U| |
0052 c4d0 c400  |    |
0054 3121 5539  |1!U9|
0056 1d05 4955  |  IU|
0058 3531 0555  |51 U|
005a 50c4 0019  |P   |
005c 3d1d 3d39  |= =9|
005e 152c c400  | ,  |
0060 150d 0549  |   I|
0062 3d38 c400  |=8  |
0064 1915 3511  |  5 |
0066 054d 20c4  | M  |
0068 0015 557c  |  U||
006a ccc8 c4c4  |    |
006c 0015 557c  |  U||
006e ccc8 c8c4  |    |
0070 0015 557c  |  U||
0072 ccc8 ccc4  |    |
0074 0015 557c  |  U||
0076 ccc8 d0c4  |    |
0078 0015 557c  |  U||
007a ccc8 d4c4  |    |
007c 0015 557c  |  U||
007e ccc8 d8c4  |    |
0080 0015 557c  |  U||
0082 ccc8 dcc4  |    |
0084 0015 557c  |  U||
0086 cccc c0c4  |    |
0088 0015 557c  |  U||
008a cccc c4c4  |    |
008c 0015 557c  |  U||
008e cccc c8c4  |    |
0090 0015 557c  |  U||
0092 cccc ccc4  |    |
0094 0015 557c  |  U||
0096 cccc d0c4  |    |
0098 0015 557c  |  U||
009a cccc d4c4  |    |
009c 0015 557c  |  U||
009e cccc d8c4  |    |
00a0 0015 557c  |  U||
00a2 cccc dcc4  |    |
00a4 0015 557c  |  U||
00a6 ccd0 c0c4  |    |
00a8 0019 0d05  |    |
00aa 417d 0514  |A}  |
00ac c400 1555  |   U|
00ae 7ccc d0c8  ||   |
00b0 c400 2d3d  |  -=|
00b2 4911 1915  |I   |
00b4 3525 3925  |5%9%|
00b6 3914 c400  |9   |
00b8 1555 7ccc  | U| |
00ba d0d0 c400  |    |
00bc 1555 7ccc  | U| |
00be d0d4 c400  |    |
00c0 1555 7ccc  | U| |
00c2 d0d8 c400  |    |
00c4 1555 7ccc  | U| |
00c6 d0dc c400  |    |
00c8 290d 0541  |)  A|
00ca 7d31 4d31  |}1M1|
00cc 054d 20c4  | M  |
00ce 0029 0d05  | )  |
00d0 417d 3d4d  |A}=M|
00d2 3105 4d20  |1 M |
00d4 c400 190d  |    |
00d6 0541 7d3d  | A}=|
00d8 14c4 0031  |   1|
00da 3d49 1135  |=I 5|
00dc 054d 0d55  | M U|
00de 3125 3914  |1%9 |
00e0 c400 1555  |   U|
00e2 7ccc d4d0  ||   |
00e4 c400 1555  |   U|
00e6 7ccc d4d4  ||   |
00e8 c400 1555  |   U|
00ea 7ccc d4d8  ||   |
00ec c400 1555  |   U|
00ee 7ccc d4dc  ||   |
00f0 c400 1555  |   U|
00f2 7ccc d8c0  ||   |
00f4 c400 2131  |  !1|
00f6 3d5d 1549  |=] I|
00f8 7d05 14c4  |}   |
00fa 0015 557c  |  U||
00fc ccd8 c8c4  |    |
00fe 0015 557c  |  U||
0100 ccd8 ccc4  |    |
0102 0015 557c  |  U||
0104 ccd8 d0c4  |    |
0106 0021 113d  | ! =|
0108 5131 154d  |Q1 M|
010a 4d24 c400  |M$  |
010c 1555 7ccc  | U| |
010e d8d8 c400  |    |
0110 1555 7ccc  | U| |
0112 d8dc c400  |    |
0114 3131 3d5d  |11=]|
0116 1549 7d31  | I}1|
0118 4d31 054d  |M1 M|
011a 20c4 0031  |   1|
011c 313d 5d15  |1=] |
011e 497d 3d4d  |I}=M|
0120 3105 4d20  |1 M |
0122 c400 2131  |  !1|
0124 3d5d 1549  |=] I|
0126 7d3d 14c4  |}=  |
0128 0029 1d15  | )  |
012a 4935 0539  |I5 9|
012c 1109 314c  |  1L|
012e c400 1555  |   U|
0130 7ccc dcd0  ||   |
0132 c400 1555  |   U|
0134 7ccc dcd4  ||   |
0136 c400 1555  |   U|
0138 7ccc dcd8  ||   |
013a c400 1555  |   U|
013c 7ccc dcdc  ||   |
013e c400 290d  |  ) |
0140 0541 7d05  | A} |
0142 050d 5551  |  UQ|
0144 14c4 003d  |   =|
0146 0d05 417d  |  A}|
0148 050d 2549  |  %I|
014a 0d55 3519  | U5 |
014c 3115 60c4  |1 ` |
014e 0035 0d05  | 5  |
0150 417d 0511  |A}  |
0152 2515 4915  |% I |
0154 4d25 4cc4  |M%L |
0156 0029 0d05  | )  |
0158 417d 051d  |A}  |
015a 4905 5914  |I Y |
015c c400 250d  |  % |
015e 0541 7d05  | A} |
0160 4925 391c  |I%9 |
0162 c400 290d  |  ) |
0164 0541 7d05  | A} |
0166 5125 3111  |Q%1 |
0168 14c4 0031  |   1|
016a 0d05 417d  |  A}|
016c 0d0d 1511  |    |
016e 2531 3104  |%11 |
0170 c400 290d  |  ) |
0172 0541 7d15  | A} |
0174 050d 5551  |  UQ|
0176 14c4 003d  |   =|
0178 0d05 417d  |  A}|
017a 150d 2549  |  %I|
017c 0d55 3519  | U5 |
017e 3115 60c4  |1 ` |
0180 0035 0d05  | 5  |
0182 417d 1511  |A}  |
0184 2515 4915  |% I |
0186 4d25 4cc4  |M%L |
0188 0029 0d05  | )  |
018a 417d 151d  |A}  |
018c 4905 5914  |I Y |
018e c400 290d  |  ) |
0190 0541 7d25  | A}%|
0192 050d 5551  |  UQ|
0194 14c4 003d  |   =|
0196 0d05 417d  |  A}|
0198 250d 2549  |% %I|
019a 0d55 3519  | U5 |
019c 3115 60c4  |1 ` |
019e 0035 0d05  | 5  |
01a0 417d 2511  |A}% |
01a2 2515 4915  |% I |
01a4 4d25 4cc4  |M%L |
01a6 0029 0d05  | )  |
01a8 417d 251d  |A}% |
01aa 4905 5914  |I Y |
01ac c400 290d  |  ) |
01ae 0541 7d39  | A}9|
01b0 5125 3111  |Q%1 |
01b2 14c4 0029  |   )|
01b4 0d05 417d  |  A}|
01b6 3d05 0d55  |=  U|
01b8 5114 c400  |Q   |
01ba 3d0d 0541  |=  A|
01bc 7d3d 0d25  |}= %|
01be 490d 5535  |I U5|
01c0 1931 1560  | 1 `|
01c2 c400 350d  |  5 |
01c4 0541 7d3d  | A}=|
01c6 1125 1549  | % I|
01c8 154d 254c  | M%L|
01ca c400 290d  |  ) |
01cc 0541 7d3d  | A}=|
01ce 1d49 0559  | I Y|
01d0 14c4 0029  |   )|
01d2 0d05 417d  |  A}|
01d4 3d51 2531  |=Q%1|
01d6 1114 c400  |    |
01d8 290d 0541  |)  A|
01da 7d4d 0d05  |}M  |
01dc 493d 38c4  |I=8 |
01de 0029 0d05  | )  |
01e0 417d 5505  |A}U |
01e2 0d55 5114  | UQ |
01e4 c400 3d0d  |  = |
01e6 0541 7d55  | A}U|
01e8 0d25 490d  | %I |
01ea 5535 1931  |U5 1|
01ec 1560 c400  | `  |
01ee 350d 0541  |5  A|
01f0 7d55 1125  |}U %|
01f2 1549 154d  | I M|
01f4 254c c400  |%L  |
01f6 290d 0541  |)  A|
01f8 7d55 1d49  |}U I|
01fa 0559 14c4  | Y  |
01fc 0035 0d05  | 5  |
01fe 417d 6511  |A}e |