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

⟦ace360ce4⟧

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

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 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 7232 e3e3  |r2  |		.XXX[0x1b2]
0050 e1e1 a1a1  |    |
0052 6323 e321  |c# !|
0054 41a1 c181  |A   |
0056 a551 1543  | Q C|
0058 4001 8283  |@   |
005a 1080 83e3  |    |
005c e3f3 b323  |   #|
005e 6323 e3e3  |c#  |
0060 c3e1 a183  |    |
0062 4223 e301  |B#  |
0064 41e1 e101  |A   |
0066 8d31 3e41  | 1>A|
0068 c341 80c0  | A  |
006a d3c0 83e1  |    |
006c e393 f263  |   c|
006e 6143 63e3  |aCc |
0070 e163 0123  | c #|
0072 6323 e309  |c#  |
0074 49e1 e101  |I   |
0076 8d31 3043  | 10C|
0078 4003 82c3  |@   |
007a 82c0 03e3  |    |
007c e1b3 d2e3  |    |
007e 6243 e3e3  |bC  |
0080 c3c1 c1c3  |    |
0082 c163 e309  | c  |
0084 49e1 e101  |I   |
0086 8d31 3041  | 10A|
0088 4080 4080  |@ @ |
008a 10c0 83e3  |    |
008c e1b3 d2e3  |    |
008e 6243 e3e3  |bC  |
0090 c3c1 c143  |   C|
0092 c143 e309  | C  |
0094 49e1 e101  |I   |
0096 8d31 3041  | 10A|
0098 c000 4080  |  @ |
009a 10c0 83e3  |    |
009c e3f3 b323  |   #|
009e 6323 e323  |c# #|
00a0 e341 4143  | AAC|
00a2 c163 e309  | c  |
00a4 49e1 e101  |I   |
00a6 8d31 3041  | 10A|
00a8 c000 4080  |  @ |
00aa 10c0 83e3  |    |
00ac e3f3 b323  |   #|
00ae 6323 e323  |c# #|
00b0 e341 41c3  | AA |
00b2 c143 e309  | C  |
00b4 49e1 e101  |I   |
00b6 8d31 3041  | 10A|
00b8 c000 4080  |  @ |
00ba 10c0 83e3  |    |
00bc e3f3 b323  |   #|
00be 6323 e3e3  |c#  |
00c0 6341 41c3  |cAA |
00c2 c163 e309  | c  |
00c4 49e1 e101  |I   |
00c6 8d31 3143  | 11C|
00c8 4281 8081  |B   |
00ca 92c0 03e3  |    |
00cc e3f3 b323  |   #|
00ce 6323 e2e3  |c#  |
00d0 c1c1 c341  |   A|
00d2 c161 e309  | a  |
00d4 49e1 e101  |I   |
00d6 8d31 3041  | 10A|
00d8 4080 40c0  |@ @ |
00da 00c0 83e3  |    |
00dc e3f3 b323  |   #|
00de 6323 e3e3  |c#  |
00e0 e3e3 a3a3  |    |
00e2 6323 e301  |c#  |
00e4 41a1 6141  |A aA|
00e6 8d2d a240  | - @|
00e8 c301 0240  |   @|
00ea 1242 83e3  | B  |
00ec c393 9113  |    |
00ee 1363 f3c3  | c  |
00f0 e3a3 a3a3  |    |
00f2 2363 e301  |#c  |
00f4 09e1 6169  |  ai|
00f6 818d 4041  |  @A|
00f8 c000 40c0  |  @ |
00fa 00c0 83e3  |    |
00fc e3f3 b222  |   "|
00fe 7232 e3e3  |r2  |
0100 e1e1 a1a1  |    |
0102 6323 e321  |c# !|
0104 41a1 c181  |A   |
0106 a551 1443  | Q C|
0108 4043 4081  |@C@ |
010a 00c2 82c1  |    |
010c e3f3 f3e2  |    |
010e 6363 e3e3  |cc  |
0110 e3e1 a3a3  |    |
0112 6321 e301  |c!  |
0114 49e1 e101  |I   |
0116 8531 3340  | 13@|
0118 c311 9250  |   P|
011a 01c2 0342  |   B|
011c 4213 3373  |B 3s|
011e e1f3 f2e3  |    |
0120 e163 a363  | c c|
0122 e361 e301  | a  |
0124 41e1 c129  |A  )|
0126 8511 13c0  |    |
0128 4241 c040  |BA @|
012a 8343 8162  | C b|
012c 6372 b2a2  |cr  |
012e e0a2 e3c3  |    |
0130 e3a3 a323  |   #|
0132 6363 e32b  |cc +|
0134 4ac2 e2c2  |J   |
0136 0236 3443  | 64C|
0138 0241 8241  | A A|
013a 82c0 0163  |   c|
013c 4151 31b1  |AQ1 |
013e 6133 f3e3  |a3  |
0140 e3e3 a3a3  |    |
0142 6323 e309  |c#  |
0144 41e1 c129  |A  )|
0146 8d11 1043  |   C|
0148 c341 42c2  | AB |
014a 03c2 8163  |   c|
014c 4353 33b3  |CS3 |
014e 6133 f1e3  |a3  |
0150 c3a3 c3e3  |    |
0152 e363 e321  | c !|
0154 49e1 c129  |I  )|
0156 ad11 1142  |   B|
0158 4203 8241  |B  A|
015a 9242 03e3  | B  |
015c c0d1 d191  |    |
015e 5341 f3e0  |SA  |
0160 e3c3 8203  |    |
0162 4022 6100  |@"a |
0164 4961 8125  |Ia %|
0166 8d11 1041  |   A|
0168 c000 40c0  |  @ |
016a 00c0 83e3  |    |
016c e3f3 b323  |   #|
016e 7333 e0e0  |s3  |
0170 e183 c3c3  |    |
0172 c263 6329  | cc)|
0174 49e1 c121  |I  !|
0176 8d31 1142  | 1 B|
0178 4203 0041  |B  A|
017a 1282 83e3  |    |
017c e3f3 b323  |   #|
017e 6323 e3e3  |c#  |
0180 e363 a323  | c #|
0182 e363 e309  | c  |
0184 49c1 61c1  |I a |
0186 012d 6041  | -`A|
0188 c000 40c0  |  @ |
018a 00c0 83e3  |    |
018c e3f3 b3b3  |    |
018e 7323 f3c0  |s#  |
0190 e3c3 c203  |    |
0192 4062 e300  |@b  |
0194 4941 81e5  |IA  |
0196 010c 5041  |  PA|
0198 c000 40c0  |  @ |
019a 00c0 83e3  |    |
019c e3f3 b323  |   #|
019e 7333 e3e3  |s3  |
01a0 e3e3 a3a3  |    |
01a2 6323 e329  |c# )|
01a4 49e1 c121  |I  !|
01a6 8d31 1142  | 1 B|
01a8 4203 0041  |B  A|
01aa 0082 83c3  |    |
01ac e3f3 f3a3  |    |
01ae 6363 e3e3  |cc  |
01b0 e3e3 a3a3  |    |
01b2 6323 e329  |c# )|
01b4 49c1 e1c1  |I   |
01b6 012c 7043  | ,pC|
01b8 4243 40c3  |BC@ |
01ba 02c2 83e3  |    |
01bc e3f3 b323  |   #|
01be 6323 e3e3  |c#  |
01c0 e3e3 a3a3  |    |
01c2 6323 e309  |c#  |
01c4 49a1 e141  |I  A|
01c6 8d3d 3240  | =2@|
01c8 c301 0042  |   B|
01ca 1242 83c3  | B  |
01cc e3f3 f3a3  |    |
01ce 6363 e3e3  |cc  |
01d0 e3e3 a3a3  |    |
01d2 6323 e309  |c#  |
01d4 49c1 e181  |I   |
01d6 012c 7043  | ,pC|
01d8 4243 40c3  |BC@ |
01da 02c2 83e3  |    |
01dc e3f3 b323  |   #|
01de 6323 e0e1  |c#  |
01e0 e3c3 8302  |    |
01e2 4123 e301  |A#  |
01e4 4921 a145  |I! E|
01e6 8d3d 3240  | =2@|
01e8 c301 0042  |   B|
01ea 1242 83e3  | B  |
01ec e3f3 b323  |   #|
01ee 6323 e3c0  |c#  |
01f0 e3c3 8203  |    |
01f2 4062 6301  |@bc |
01f4 4941 a185  |IA  |
01f6 012c 7041  | ,pA|
01f8 c000 40c0  |  @ |
01fa 00c0 83e3  |    |
01fc e3f3 b323  |   #|
01fe 6323 e3c0  |c#  |