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

⟦3b49646b2⟧

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

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 0038       | 8  |		.CONST	0x0038								; 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 001b       |    |		.CONST	0x001b								; Address of begin
0019 0028       | (  |		.CONST	0x0028								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b 00da       |    |		Load_Top	At_Offset_2
001c e001       |    |		Load	0x0,0x1
001d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
001e a5fe       |    |		Store_Unchecked	0x2,-0x2
001f 00da       |    |		Load_Top	At_Offset_2
0020 e001       |    |		Load	0x0,0x1
0021 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0022 a5fd       |    |		Store_Unchecked	0x2,-0x3
0023 00da       |    |		Load_Top	At_Offset_2
0024 e001       |    |		Load	0x0,0x1
0025 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0026 a5fc       |    |		Store_Unchecked	0x2,-0x4
0027 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0028			TRAP_0018:
0028 010e       |    |		Execute	Exception,Is_Constraint_Error
0029 6807       |h   |		Jump_Zero	0x31
002a 4800       |H   |		Short_Literal	0x0
002b a5fe       |    |		Store_Unchecked	0x2,-0x2
002c 4800       |H   |		Short_Literal	0x0
002d a5fd       |    |		Store_Unchecked	0x2,-0x3
002e 4800       |H   |		Short_Literal	0x0
002f a5fc       |    |		Store_Unchecked	0x2,-0x4
0030 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0031 0100       |    |		Execute	Exception,Raise
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; Debug Table
0038 ; --------------------------------------------------------------------------------------
0038 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x4a64,0x0000,0x0001,0x0000
003e 3515 3955  |5 9U|		.XXX[0x1c2]
0040 7d05 3151  |} 1Q|
0042 1549 38b0  | I8 |
0044 80a1 d185  |    |
0046 b1d1 95c9  |    |
0048 b880 f428  |   (|
004a 2424 81cd  |$$  |
004c 8dc9 9595  |    |
004e b8b4 f985  |    |
0050 b1d1 95c9  |    |
0052 b985 d194  |    |
0054 a4a4 ec28  |   (|
0056 25f4 2825  |% (%|
0058 b595 b9d5  |    |
005a c195 c9b5  |    |
005c 85b9 95b9  |    |
005e d080 f481  |    |
0060 4985 d135  |I  5|
0062 95b9 d511  |    |
0064 9599 85d5  |    |
0066 b1d1 ccb9  |    |
0068 c195 c9b5  |    |
006a 85b9 95b9  |    |
006c d0ec 2825  |  (%|
006e b595 b9d5  |    |
0070 e0c4 c5c8  |    |
0072 c880 f481  |    |
0074 d9d0 c4c0  |    |
0076 c17d c995  | }  |
0078 cdbd d5c9  |    |
007a 8d94 b960  |   `|
007c c4c5 48c8  |  H |
007e ec28 25b5  | (% |
0080 95b9 d5c9  |    |
0082 85d1 a5bd  |    |
0084 b985 b080  |    |
0086 f481 d195  |    |
0088 c9b4 b4f9  |    |
008a b5a5 cd8c  |    |
008c b9c9 85d1  |    |
008e a5bd b985  |    |
0090 b0ec 2825  |  (%|
0092 b595 b9d5  |    |
0094 85d5 d1bd  |    |
0096 c995 cda5  |    |
0098 e994 80f4  |    |
009a 81d1 95c9  |    |
009c b4b4 f9b5  |    |
009e a5cd 8cb9  |    |
00a0 85d5 d1bd  |    |
00a2 c995 cda5  |    |
00a4 e994 ec28  |   (|
00a6 25b5 95b9  |%   |
00a8 d5d9 d1c9  |    |
00aa 958d bd9c  |    |
00ac 80f4 81d1  |    |
00ae 95c9 b4b4  |    |
00b0 f9b5 a5cd  |    |
00b2 8cb9 d9d0  |    |
00b4 c4c0 c17d  |   }|
00b6 c995 8dbd  |    |
00b8 9cec 2825  |  (%|
00ba b595 b9d5  |    |
00bc d195 c9b5  |    |
00be 99b1 859d  |    |
00c0 cc80 f481  |    |
00c2 99b1 859d  |    |
00c4 ccec 2825  |  (%|
00c6 b595 b9d5  |    |
00c8 ad89 9199  |    |
00ca b185 9dcc  |    |
00cc 80f4 81ad  |    |
00ce 99b1 859d  |    |
00d0 ccec 2825  |  (%|
00d2 c995 d1d5  |    |
00d4 c9b8 a0a9  |    |
00d6 b595 b9d4  |    |
00d8 a4ec 29f4  |  ) |
00da 2829 91bd  |()  |
00dc b595 b9d5  |    |
00de 99d5 b98c  |    |
00e0 a1a5 d195  |    |
00e2 b4a4 29a5  |  ) |
00e4 b9d0 81a5  |    |
00e6 d195 b4ec  |    |
00e8 29ec 2825  |) (%|
00ea c995 9da5  |    |
00ec cdd1 95c8  |    |
00ee 8151 4d8d  | QM |
00f0 c995 95b8  |    |
00f2 80a9 cd8d  |    |
00f4 c995 95b8  |    |
00f6 80f4 8099  |    |
00f8 d195 c9b4  |    |
00fa b4f9 cd8d  |    |
00fc c995 95b8  |    |
00fe ec28 2825  | ((%|
0100 cddd a5d1  |    |
0102 8da0 80a1  |    |
0104 a5d1 95b4  |    |
0106 a481 ec28  |   (|
0108 258d 85cd  |%   |
010a 9481 3535  |  55|
010c 1539 557d  | 9U}|
010e 4d0d 493d  |M I=|
0110 3130 e828  |10 (|
0112 2425 d195  |$%  |
0114 c9b4 b4f9  |    |
0116 99b1 859d  |    |
0118 cc81 78f4  |  x |
011a 814d 353d  | M5=|
011c 3d51 214d  |=Q!M|
011e 0d49 3d31  | I=1|
0120 30ec 2824  |0 ($|
0122 25a5 9880  |%   |
0124 a1d1 95c9  |    |
0126 b4b4 f999  |    |
0128 b185 9dcc  |    |
012a 8098 814d  |   M|
012c 353d 3d51  |5==Q|
012e 214d 0d49  |!M I|
0130 3d31 30a4  |=10 |
0132 81ec 2824  |  ($|
0134 2425 cd8d  |$%  |
0136 c995 95b8  |    |
0138 b4f9 a9d5  |    |
013a b5c1 cd8d  |    |
013c c9bd b1b0  |    |
013e 80f4 8119  |    |
0140 0531 4d14  | 1M |
0142 ec28 2424  | ($$|
0144 25a5 9880  |%   |
0146 a1cd 8dc9  |    |
0148 9595 b8b4  |    |
014a f9cd 8dc9  |    |
014c bdb1 b17d  |   }|
014e 85b5 d0a4  |    |
0150 2824 2424  |($$$|
0152 2519 b1d5  |%   |
0154 cda1 4d8d  |  M |
0156 c9bd b1b0  |    |
0158 a1cd 8dc9  |    |
015a 9595 b8a4  |    |
015c ec28 2425  | ($%|
015e f481 95b1  |    |
0160 cd94 2824  |  ($|
0162 2425 cd8d  |$%  |
0164 c995 95b8  |    |
0166 b4f9 a9d5  |    |
0168 b5c1 cd8d  |    |
016a c9bd b1b0  |    |
016c 80f4 8151  |   Q|
016e 4955 14ec  |IU  |
0170 2824 2589  |($% |
0172 c995 85ac  |    |
0174 ec28 2825  | ((%|
0176 8d85 cd94  |    |
0178 8135 3515  | 55 |
017a 3955 7d59  |9U}Y|
017c 2511 153c  |%  <|
017e e828 2425  | ($%|
0180 4995 d995  |I   |
0182 c9cd 9559  |   Y|
0184 a591 95bc  |    |
0186 a1d1 95c9  |    |
0188 b4a4 ec28  |   (|
018a 2425 d195  |$%  |
018c c9b4 b4f9  |    |
018e 99b1 859d  |    |
0190 cc81 78f4  |  x |
0192 8149 1559  | I Y|
0194 1549 4d15  | IM |
0196 7d59 2511  |}Y% |
0198 153c ec28  | < (|
019a 2425 89c9  |$%  |
019c 9585 acec  |    |
019e 2828 258d  |((% |
01a0 85cd 9481  |    |
01a2 3535 1539  |55 9|
01a4 557d 5d49  |U}]I|
01a6 0540 e828  | @ (|
01a8 2425 d195  |$%  |
01aa c9b4 b4f9  |    |
01ac 99b1 859d  |    |
01ae cc81 78f4  |  x |
01b0 815d 4905  | ]I |
01b2 4105 493d  |A I=|
01b4 5539 10ec  |U9  |
01b6 2824 2589  |($% |
01b8 c995 85ac  |    |
01ba ec28 2825  | ((%|
01bc 8d85 cd94  |    |
01be 8135 3515  | 55 |
01c0 3955 7d49  |9U}I|
01c2 1559 1549  | Y I|
01c4 4d15 5d49  |M ]I|
01c6 0540 e828  | @ (|
01c8 2425 d195  |$%  |
01ca c9b4 b4f9  |    |
01cc 99b1 859d  |    |
01ce cc81 78f4  |  x |
01d0 8149 1559  | I Y|
01d2 1549 4d15  | IM |
01d4 5d49 0540  |]I @|
01d6 ec28 2425  | ($%|
01d8 89c9 9585  |    |
01da acec 2828  |  ((|
01dc 258d 85cd  |%   |
01de 9481 3535  |  55|
01e0 1539 557d  | 9U}|
01e2 3931 34e8  |914 |
01e4 2824 25d1  |($% |
01e6 95c9 b4b4  |    |
01e8 f999 b185  |    |
01ea 9dcc 8178  |   x|
01ec f481 3125  |  1%|
01ee 3915 1915  |9   |
01f0 1510 ec28  |   (|
01f2 2425 89c9  |$%  |
01f4 9585 acec  |    |
01f6 2828 258d  |((% |
01f8 85cd 9481  |    |
01fa 3535 1539  |55 9|
01fc 557d 0d55  |U} U|
01fe 494d 3d48  |IM=H|