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

⟦25e3a3f35⟧

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

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 0088       |    |		.CONST	0x0088								; 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 0059       | Y  |		.CONST	0x0059								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000e 0129       | )  |		Execute	Any,Make_Visible
000f e001       |    |		Load	0x0,0x1
0010 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0011 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0012 0129       | )  |		Execute	Any,Make_Visible
0013 00e9       |    |		Load_Encached	String_Cache
0014 0129       | )  |		Execute	Any,Make_Visible
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 e002       |    |		Load	0x0,0x2
0028 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0029 0129       | )  |		Execute	Any,Make_Visible
002a c216       |    |		Store	0x1,0x16
002b e001       |    |		Load	0x0,0x1
002c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002d 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
002e 0129       | )  |		Execute	Any,Make_Visible
002f c217       |    |		Store	0x1,0x17
0030 e001       |    |		Load	0x0,0x1
0031 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0032 1924       | $  |		Execute	Package,Field_Reference,Field_Number 0x24
0033 0129       | )  |		Execute	Any,Make_Visible
0034 c220       |    |		Store	0x1,0x20
0035 e001       |    |		Load	0x0,0x1
0036 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0037 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
0038 0129       | )  |		Execute	Any,Make_Visible
0039 c221       | !  |		Store	0x1,0x21
003a e001       |    |		Load	0x0,0x1
003b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003c 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
003d 0129       | )  |		Execute	Any,Make_Visible
003e c218       |    |		Store	0x1,0x18
003f e001       |    |		Load	0x0,0x1
0040 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0041 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0042 0129       | )  |		Execute	Any,Make_Visible
0043 c212       |    |		Store	0x1,0x12
0044 e001       |    |		Load	0x0,0x1
0045 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0046 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
0047 0129       | )  |		Execute	Any,Make_Visible
0048 c213       |    |		Store	0x1,0x13
0049 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
004b c21c       |    |		Store	0x1,0x1c
004c 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
004e c21e       |    |		Store	0x1,0x1e
004f 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0051 c21f       |    |		Store	0x1,0x1f
0052 00bf       |    |		Action	Accept_Activation
0053 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0058 00c7       |    |		Action	Elaborate_Subprogram
0059			BODY_0008:
0059 00bc       |    |		Action	Signal_Activated
005a 00bb       |    |		Action	Signal_Completion
005b 0000 0000  |    |		.BLANK	0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 00da       |    |		Load_Top	At_Offset_2
0064 e001       |    |		Load	0x0,0x1
0065 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0066 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0067 e003       |    |		Load	0x0,0x3
0068 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0069 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00da       |    |		Load_Top	At_Offset_2
0074 e001       |    |		Load	0x0,0x1
0075 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0076 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0077 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 4800       |H   |		Short_Literal	0x0
007c 00ea       |    |		Load_Encached	Null_String_Cache
007d 6006       |`   |		Indirect_Literal	Discrete,0x84,{0x00000000, 0x7fffffff}
007e e5ff       |    |		Load	0x2,-0x1
007f 8212       |    |		Call	0x1,0x12
0080 e001       |    |		Load	0x0,0x1
0081 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0082 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0083 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0084 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0e56,0x0000,0x0001,0x0000
008e 21aa 08db  |!   |		.XXX[0x172]
0090 2011 03b6  |    |
0092 a442 9418  | B  |
0094 6270 a209  |bp  |
0096 3d84 e044  |=  D|
0098 0ae7 904b  |   K|
009a ea40 4ff0  | @O |
009c 0179 0028  | y (|
009e c48d 440b  |  D |
00a0 6346 4a09  |cFJ |
00a2 3544 728f  |5Dr |
00a4 04c5 f732  |   2|
00a6 f08e 4f92  |  O |
00a8 5358 0172  |SX r|
00aa 9799 7281  |  r |
00ac 2a23 5973  |*#Ys|
00ae 83a4 ac07  |    |
00b0 92a8 b308  |    |
00b2 ff73 53aa  | sS |
00b4 a851 c365  | Q e|
00b6 7803 a348  |x  H|
00b8 dd62 e7e7  | b  |
00ba 97e1 1063  |   c|
00bc 9535 e70f  | 5  |
00be d403 1126  |   &|
00c0 d692 8001  |    |
00c2 1d3d fc56  | = V|
00c4 d7e9 7eb4  |  ~ |
00c6 8a99 c896  |    |
00c8 85a0 8484  |    |
00ca ad06 5f23  |  _#|
00cc eae4 31cf  |  1 |
00ce 4419 f403  |D   |
00d0 14a0 96af  |    |
00d2 93c5 d2e5  |    |
00d4 1fe0 04e3  |    |
00d6 2092 e9d4  |    |
00d8 8039 7e62  | 9~b|
00da e643 e022  | C "|
00dc 810c 703c  |  p<|
00de c002 d304  |    |
00e0 7100 0c94  |q   |
00e2 1bc0 20c1  |    |
00e4 72a0 7bc4  |r { |
00e6 3d56 05e0  |=V  |
00e8 a60e 039a  |    |
00ea 7002 8115  |p   |
00ec 2023 7033  | #p3|
00ee e14b b00f  | K  |
00f0 3de4 61f3  |= a |
00f2 bc4e ba90  | N  |
00f4 1190 01f3  |    |
00f6 69fa 7fff  |i   |
00f8 837f 5c48  |  \H|
00fa a0f8 a90d  |    |
00fc 8456 7602  | Vv |
00fe 6dba 7e57  |m ~W|
0100 04cc 5482  |  T |
0102 1d5b 4812  | [H |
0104 b788 380b  |  8 |
0106 0084 021e  |    |
0108 99a7 60fb  |  ` |
010a f80c b807  |    |
010c a439 15af  | 9  |
010e 1abf cfd0  |    |
0110 3380 8885  |3   |
0112 d4c6 d60a  |    |
0114 0696 ba49  |   I|
0116 41fd 41cd  |A A |
0118 3ad2 5276  |: Rv|
011a 5483 dc0e  |T   |
011c dd2c 0786  | ,  |
011e 9884 3e00  |  > |
0120 0642 cee2  | B  |
0122 12b0 079e  |    |
0124 57f8 4707  |W G |
0126 49b0 e125  |I  %|
0128 381b c01f  |8   |
012a 84fe 7b7e  |  {~|
012c 1a01 f900  |    |
012e 1400 84c5  |    |
0130 36b4 98ba  |6   |
0132 002d 7405  | -t |
0134 85da c46a  |   j|
0136 204d a964  | M d|
0138 f41c dac1  |    |
013a cc5c 3a03  | \: |
013c 96e4 a780  |    |
013e e4fc 45fb  |  E |
0140 3954 064e  |9T N|
0142 0f42 e799  | B  |
0144 30c1 647e  |0 d~|
0146 4067 329b  |@g2 |
0148 884e 7acc  | Nz |
014a 5e04 0145  |^  E|
014c cd98 178c  |    |
014e e379 4306  | yC |
0150 22af 144a  |"  J|
0152 039d f32b  |   +|
0154 015c a070  | \ p|
0156 08b6 9a0a  |    |
0158 e07c 588e  | |X |
015a 3064 fca0  |0d  |
015c 80b1 a2a0  |    |
015e b278 0c74  | x t|
0160 259c 85ea  |%   |
0162 c22a 807f  | *  |
0164 000a 28af  |  ( |
0166 ae90 e721  |   !|
0168 9d5c 514c  | \QL|
016a a522 1ae0  | "  |
016c 01a9 d1ba  |    |
016e 1823 0326  | # &|
0170 879b 71fd  |  q |
0172 824b 5270  | KRp|
0174 0440 8b19  | @  |
0176 6784 6393  |g c |
0178 32a6 5ba4  |2 [ |
017a 37e1 66d8  |7 f |
017c 0dba 1b32  |   2|
017e 7ec5 15e2  |~   |
0180 0099 e0a4  |    |
0182 1569 180c  | i  |
0184 2402 600c  |$ ` |
0186 9ed8 a940  |   @|
0188 3421 18d0  |4!  |
018a 3e20 17d0  |>   |
018c 0e26 2df5  | &- |
018e 0246 80fd  | F  |
0190 4079 7170  |@yqp|
0192 78b5 d604  |x   |
0194 802c 7684  | ,v |
0196 1501 ed08  |    |
0198 f52c 14c0  | ,  |
019a 16e9 15ad  |    |
019c 1329 9429  | ) )|
019e 8750 20f4  | P  |
01a0 fc08 5001  |  P |
01a2 4a15 dc04  |J   |
01a4 6c18 d841  |l  A|
01a6 1503 fc24  |   $|
01a8 3fb0 3dca  |? = |
01aa 20de 0259  |   Y|
01ac 1400 c9fc  |    |
01ae 1b3a f408  | :  |
01b0 e12e 3007  | .0 |
01b2 ea4a d483  | J  |
01b4 f971 37e4  | q7 |
01b6 fd2d 1c7b  | - {|
01b8 4082 0a56  |@  V|
01ba 1c0a 6a3d  |  j=|
01bc a80f 6120  |  a |
01be 4516 be62  |E  b|
01c0 c406 419a  |  A |
01c2 97de bcc0  |    |
01c4 5c94 1d40  |\  @|
01c6 b620 034b  |   K|
01c8 0906 9b78  |   x|
01ca 017a a220  | z  |
01cc a03b 2171  | ;!q|
01ce a6d9 680a  |  h |
01d0 6826 614c  |h&aL|
01d2 79c1 8a64  |y  d|
01d4 58a0 0288  |X   |
01d6 63fd 9d66  |c  f|
01d8 2f2c c3f8  |/,  |
01da f093 e0ff  |    |
01dc 7df8 1416  |}   |
01de d802 e204  |    |
01e0 096b 8004  | k  |
01e2 3ec0 05b3  |>   |
01e4 1c98 0e8c  |    |
01e6 47f8 bb7e  |G  ~|
01e8 e74b 6e01  | Kn |
01ea c6e9 a90a  |    |
01ec d218 c5a2  |    |
01ee 4e9c 0b68  |N  h|
01f0 39b0 d584  |9   |
01f2 07d1 447b  |  D{|
01f4 41b6 0c1e  |A   |
01f6 d220 05b7  |    |
01f8 e033 62d9  | 3b |
01fa 802e c0cd  | .  |
01fc 23a1 5294  |# R |
01fe 1968 0743  | h C|