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

⟦f3d50235f⟧

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

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 0058       | X  |		.CONST	0x0058								; 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 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
001d e001       |    |		Load	0x0,0x1
001e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
001f 00db       |    |		Load_Top	At_Offset_3
0020 680a       |h   |		Jump_Zero	0x2b
0021 4801       |H   |		Short_Literal	0x1
0022 e001       |    |		Load	0x0,0x1
0023 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0024 0092 0038  |   8|		Action	Push_String_Extended,0x38					; "------- End of  step:   "
0026 00db       |    |		Load_Top	At_Offset_3
0027 01cc       |    |		Execute	Vector,Catenate
0028 e001       |    |		Load	0x0,0x1
0029 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
002a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
002b 4801       |H   |		Short_Literal	0x1
002c e001       |    |		Load	0x0,0x1
002d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
002e 0092 0039  |   9|		Action	Push_String_Extended,0x39					; "------- Beginning step: "
0030 00db       |    |		Load_Top	At_Offset_3
0031 01cc       |    |		Execute	Vector,Catenate
0032 e001       |    |		Load	0x0,0x1
0033 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0034 4801       |H   |		Short_Literal	0x1
0035 e001       |    |		Load	0x0,0x1
0036 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0037 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0038 ; --------------------------------------------------------------------------------------
0038 ; STRING TABLE
0038 ; --------------------------------------------------------------------------------------
0038 0006       |    |		.STRTAB	0x0006->0x003b							; "------- End of  step:   "
0039 001c       |    |		.STRTAB	0x001c->0x0047							; "------- Beginning step: "
003a 0032       | 2  |		.STREND 0x0032->0x0053
003b 2d2d 2d2d  |----|		.STRTAB_STRINGS
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x4d3d,0x0000,0x0001,0x0000
005e 8b98 0b90  |    |		.XXX[0x43]
0060 1920 0a09  |    |
0062 ec03 4789  |  G |
0064 3f90 5c09  |? \ |
0066 8dc0 e398  |    |
0068 1789 3007  |  0 |
006a 5f90 1809  |_   |
006c fda0 c798  |    |
006e 0b90 5f89  |  _ |
0070 3807 54d0  |8 T |
0072 0a09 cda0  |    |
0074 ab90 5f89  |  _ |
0076 3807 54f0  |8 T |
0078 0438 05c0  | 8  |
007a 1790 5f89  |  _ |
007c 3807 54f0  |8 T |
007e 11a0 4c03  |  L |
0080 8b90 5d20  |  ] |
0082 0b89 ac5c  |   \|
0084 7b18 0f98  |{   |
0086 0f80 7809  |  x |
0088 f9a0 5790  |  W |
008a 1b98 0d20  |    |
008c 0a09 eb90  |    |
008e 1609 e003  |    |
0090 3003 49f9  |0 I |
0092 6390 1b90  |c   |
0094 5f89 3807  |_ 8 |
0096 54f0 0d20  |T   |
0098 0a09 eb90  |    |
009a 1609 e003  |    |
009c 3003 49f9  |0 I |
009e 30ff 2114  |0 ! |
00a0 0400       |    |
00a1 0000 0000  |    |		.BLANK	0000[0x5]
00a6 000d 5000  |  P |		.XXX[0xc2]
00a8 1000 0803  |    |
00aa 8803 8b90  |    |
00ac 5d20 0b89  |]   |
00ae ac5c 7b18  | \{ |
00b0 0b98 0b80  |    |
00b2 7809 f9a0  |x   |
00b4 2790 1b98  |'   |
00b6 0920 0a09  |    |
00b8 eb90 1609  |    |
00ba e003 3003  |  0 |
00bc 49f8 b514  |I   |
00be 040d c800  |    |
00c0 1000 1380  |    |
00c2 140c 8b98  |    |
00c4 0870 0003  | p  |
00c6 8418 0003  |    |
00c8 8b89 3d20  |  = |
00ca 0409 8dc1  |    |
00cc 3798 1b89  |7   |
00ce 3007 5f90  |0 _ |
00d0 1809 fda1  |    |
00d2 1b98 0dc0  |    |
00d4 3b98 1b89  |;   |
00d6 3807 54d0  |8 T |
00d8 0b81 7005  |  p |
00da f9a0 1f98  |    |
00dc 0b90 1920  |    |
00de 0a09 ec03  |    |
00e0 4520 0698  |E   |
00e2 0f98 1b89  |    |
00e4 3807 54d0  |8 T |
00e6 0b81 7005  |  p |
00e8 fdc0 1f98  |    |
00ea 0b98 1b89  |    |
00ec 3807 54d0  |8 T |
00ee 0a09 cda0  |    |
00f0 a398 1b89  |    |
00f2 3807 54f0  |8 T |
00f4 0438 05c0  | 8  |
00f6 1798 1b89  |    |
00f8 3807 54f0  |8 T |
00fa 11a0 4803  |  H |
00fc 8b98 1920  |    |
00fe 0b89 ac5c  |   \|
0100 7b18 1398  |{   |
0102 1380 7809  |  x |
0104 f9a0 4f90  |  O |
0106 1b98 1120  |    |
0108 0a09 eb90  |    |
010a 1609 e003  |    |
010c 31f7 7790  |1 w |
010e 1b98 1b89  |    |
0110 3807 54f0  |8 T |
0112 0d20 0a09  |    |
0114 eb90 1609  |    |
0116 e003 31f7  |  1 |
0118 48fe cf89  |H   |
011a 4d20 0409  |M   |
011c 8dc1 2798  |  ' |
011e 1b89 4807  |  H |
0120 54f0 0390  |T   |
0122 1809 fda1  |    |
0124 0790 1798  |    |
0126 1b89 4807  |  H |
0128 54f0 0409  |T   |
012a fda0 eb98  |    |
012c 0dc0 3b98  |  ; |
012e 1b89 4807  |  H |
0130 54d0 1381  |T   |
0132 7005 f9a0  |p   |
0134 1f98 0b90  |    |
0136 1920 0a09  |    |
0138 ec03 4520  |  E |
013a 0698 0f98  |    |
013c 1b89 4807  |  H |
013e 54d0 1381  |T   |
0140 7005 fdc0  |p   |
0142 1f98 0b98  |    |
0144 1b89 4807  |  H |
0146 54d0 1209  |T   |
0148 cda0 7398  |  s |
014a 1b89 4807  |  H |
014c 54f0 083c  |T  <|
014e 05a0 3798  |  7 |
0150 1b89 4807  |  H |
0152 54f0 1698  |T   |
0154 1390 1b98  |    |
0156 1120 0a09  |    |
0158 eb90 1609  |    |
015a e003 31f6  |  1 |
015c 3b98 1b89  |;   |
015e 4807 54f0  |H T |
0160 082b ff98  | +  |
0162 1b89 4807  |  H |
0164 54e0 08fe  |T   |
0166 dd14 0400  |    |
0168 0000 0000  |    |		.BLANK	0000[0x6]
016e 0010 8800  |    |		.XXX[0x63]
0170 1000 1803  |    |
0172 9790 5f89  |  _ |
0174 7007 5403  |p T |
0176 9403 9403  |    |
0178 9798 0cf0  |    |
017a 0b80 9c09  |    |
017c fda0 0f90  |    |
017e 1a01 c5a0  |    |
0180 4b98 0cf0  |K   |
0182 0b80 9460  |   `|
0184 6390 1b80  |c   |
0186 9460 6009  | `` |
0188 e9a1 1b90  |    |
018a 1b80 9460  |   `|
018c 6398 0cf0  |c   |
018e 0f80 9460  |   `|
0190 6009 e9a0  |`   |
0192 f798 0cf0  |    |
0194 05a0 2398  |  # |
0196 0cf0 043c  |   <|
0198 05a0 db90  |    |
019a 1b81 d860  |   `|
019c 6da0 cb89  |m   |
019e 90d0 0009  |    |
01a0 6318 0b81  |c   |
01a2 c060 5f98  | `_ |
01a4 092f a009  | /  |
01a6 b828 0698  | (  |
01a8 0b98 1b98  |    |
01aa 0b89 8c07  |    |
01ac 54e0 0398  |T   |
01ae 0cf0 05c0  |    |
01b0 1920 0798  |    |
01b2 0b89 8c07  |    |
01b4 54e0 05e0  |T   |
01b6 1520 0398  |    |
01b8 0b89 8c07  |    |
01ba 54e0 0790  |T   |
01bc 1600 2b98  |  + |
01be 0b89 8c07  |    |
01c0 54e0 0b90  |T   |
01c2 1a01 df98  |    |
01c4 0b89 8c07  |    |
01c6 54e0 1390  |T   |
01c8 1380 1061  |   a|
01ca 302b fb98  |0+  |
01cc 0b89 8c07  |    |
01ce 54e0 1914  |T   |
01d0 0400       |    |
01d1 0000 0000  |    |		.BLANK	0000[0x5]
01d6 0012 2000  |    |		.XXX[0x2a]
01d8 1000 0f80  |    |
01da 140c 8b98  |    |
01dc 0870 0003  | p  |
01de 8b98 0b90  |    |
01e0 1920 0a09  |    |
01e2 ec03 4789  |  G |
01e4 3f90 5c09  |? \ |
01e6 8dc0 e398  |    |
01e8 1789 3007  |  0 |
01ea 5f90 1809  |_   |
01ec fda0 c790  |    |
01ee 5f89 3807  |_ 8 |
01f0 54d0 0b98  |T   |
01f2 0a09 cda0  |    |
01f4 ab90 5f89  |  _ |
01f6 3807 54f0  |8 T |
01f8 0438 05c0  | 8  |
01fa 1790 5f89  |  _ |
01fc 3807 54f0  |8 T |
01fe 11a0 4c03  |  L |