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

⟦6cc9d19d4⟧

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

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 00f0       |    |		.CONST	0x00f0								; 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 001e       |    |		.CONST	0x001e								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
0017 c216       |    |		Store	0x1,0x16
0018 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
001a c20d       |    |		Store	0x1,0xd
001b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
001d c20e       |    |		Store	0x1,0xe
001e 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0020 c20f       |    |		Store	0x1,0xf
0021 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0023 c210       |    |		Store	0x1,0x10
0024 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0026 c211       |    |		Store	0x1,0x11
0027 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0029 c212       |    |		Store	0x1,0x12
002a 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
002c c213       |    |		Store	0x1,0x13
002d 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
002f c214       |    |		Store	0x1,0x14
0030 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0032 c215       |    |		Store	0x1,0x15
0033 00bf       |    |		Action	Accept_Activation
0034 e001       |    |		Load	0x0,0x1
0035 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0036 e002       |    |		Load	0x0,0x2
0037 0007       |    |		Action	Break_Optional
0038 e001       |    |		Load	0x0,0x1
0039 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003a e002       |    |		Load	0x0,0x2
003b 0007       |    |		Action	Break_Optional
003c e002       |    |		Load	0x0,0x2
003d 0007       |    |		Action	Break_Optional
003e e003       |    |		Load	0x0,0x3
003f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0040 0322       | "  |		Declare_Variable	Record
0041 e002       |    |		Load	0x0,0x2
0042 0007       |    |		Action	Break_Optional
0043 e004       |    |		Load	0x0,0x4
0044 0007       |    |		Action	Break_Optional
0045 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0058 00c7       |    |		Action	Elaborate_Subprogram
0059			BODY_0008:
0059 8215       |    |		Call	0x1,0x15
005a 00bc       |    |		Action	Signal_Activated
005b 00bb       |    |		Action	Signal_Completion
005c 0000 0000  |    |		.BLANK	0000[0x4]
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 e217       |    |		Load	0x1,0x17
0064 00ca       |    |		Action	Exit_Nullary_Function
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b e218       |    |		Load	0x1,0x18
006c 0227       | '  |		Execute	Access,All_Reference
006d 0335       | 5  |		Declare_Variable	Array,Duplicate
006e 00ca       |    |		Action	Exit_Nullary_Function
006f 0000       |    |		.XXX[0x1]
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 4820       |H   |		Short_Literal	0x20
0074 4800       |H   |		Short_Literal	0x0
0075 480a       |H   |		Short_Literal	0xa
0076 e219       |    |		Load	0x1,0x19
0077 e005       |    |		Load	0x0,0x5
0078 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0079 00ca       |    |		Action	Exit_Nullary_Function
007a 0000 0000  |    |		.BLANK	0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 e21a       |    |		Load	0x1,0x1a
0084 0227       | '  |		Execute	Access,All_Reference
0085 0335       | 5  |		Declare_Variable	Array,Duplicate
0086 00ca       |    |		Action	Exit_Nullary_Function
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e21b       |    |		Load	0x1,0x1b
008c 0227       | '  |		Execute	Access,All_Reference
008d 0335       | 5  |		Declare_Variable	Array,Duplicate
008e 00ca       |    |		Action	Exit_Nullary_Function
008f 0000       |    |		.XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 4801       |H   |		Short_Literal	0x1
0094 4800       |H   |		Short_Literal	0x0
0095 4800       |H   |		Short_Literal	0x0
0096 e21c       |    |		Load	0x1,0x1c
0097 e003       |    |		Load	0x0,0x3
0098 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0099 00ca       |    |		Action	Exit_Nullary_Function
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4802       |H   |		Short_Literal	0x2
00a4 4800       |H   |		Short_Literal	0x0
00a5 4800       |H   |		Short_Literal	0x0
00a6 e21c       |    |		Load	0x1,0x1c
00a7 e003       |    |		Load	0x0,0x3
00a8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00a9 00ca       |    |		Action	Exit_Nullary_Function
00aa 0000 0000  |    |		.BLANK	0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 e21d       |    |		Load	0x1,0x1d
00b4 0227       | '  |		Execute	Access,All_Reference
00b5 0335       | 5  |		Declare_Variable	Array,Duplicate
00b6 00ca       |    |		Action	Exit_Nullary_Function
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb e21e       |    |		Load	0x1,0x1e
00bc 0227       | '  |		Execute	Access,All_Reference
00bd 0335       | 5  |		Declare_Variable	Array,Duplicate
00be 00ca       |    |		Action	Exit_Nullary_Function
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 e006       |    |		Load	0x0,0x6
00c4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00c5 a217       |    |		Store_Unchecked	0x1,0x17
00c6 e007       |    |		Load	0x0,0x7
00c7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c8 e002       |    |		Load	0x0,0x2
00c9 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00ca a218       |    |		Store_Unchecked	0x1,0x18
00cb e001       |    |		Load	0x0,0x1
00cc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00cd a219       |    |		Store_Unchecked	0x1,0x19
00ce e006       |    |		Load	0x0,0x6
00cf 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d0 e006       |    |		Load	0x0,0x6
00d1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d2 e002       |    |		Load	0x0,0x2
00d3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00d4 a21a       |    |		Store_Unchecked	0x1,0x1a
00d5 e006       |    |		Load	0x0,0x6
00d6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d7 e006       |    |		Load	0x0,0x6
00d8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d9 e002       |    |		Load	0x0,0x2
00da 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00db a21b       |    |		Store_Unchecked	0x1,0x1b
00dc e003       |    |		Load	0x0,0x3
00dd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00de e21c       |    |		Load	0x1,0x1c
00df 017d       | }  |		Execute	Record,Structure_Write
00e0 e008       |    |		Load	0x0,0x8
00e1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e2 e002       |    |		Load	0x0,0x2
00e3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00e4 a21d       |    |		Store_Unchecked	0x1,0x1d
00e5 e009       |    |		Load	0x0,0x9
00e6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e7 e007       |    |		Load	0x0,0x7
00e8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00e9 e004       |    |		Load	0x0,0x4
00ea 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00eb a21e       |    |		Store_Unchecked	0x1,0x1e
00ec 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ed 0000 0000  |    |		.XXX[0x3]
00ef 0000       |    |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0x28cf,0x0000,0x0001,0x0000
00f6 02b5 dc00  |    |		.XXX[0x7]
00f8 0000 008b  |    |
00fa b440 22d1  | @" |
00fc a000       |    |
00fd 0000 0000  |    |		.BLANK	0000[0x6]
0103 0004 609e  |  ` |		.XXX[0x13]
0105 0000 8b7f  |    |
0107 0000 0009  |    |
0109 d8b8 0462  |   b|
010b 0600 0000  |    |
010d 0054 0000  | T  |
010f 0000 1166  |   f|
0111 6008 ccd0  |`   |
0113 0000 0000  |    |
0115 8c23       | #  |
0116 0000 0000  |    |		.BLANK	0000[0x8]
011e 04b4 c002  |    |		.XXX[0x37]
0120 32ba 0000  |2   |
0122 0000 4f00  |  O |
0124 0023 1030  | # 0|
0126 0000 0002  |    |
0128 b400 0000  |    |
012a 008c 7961  |  ya|
012c 1200 1199  |    |
012e a000 0000  |    |
0130 0119 4280  |  B |
0132 2370 2831  |#p(1|
0134 c801 5aee  |  Z |
0136 0000 0000  |    |
0138 4657 4011  |FW@ |
013a 8818 0000  |    |
013c 0000 0000  |    |
013e 01c2 7300  |  s |
0140 0000 0000  |    |
0142 0234 3800  | 48 |
0144 0046 3ca0  | F< |
0146 0000 04ec  |    |
0148 5c02 34ec  |\ 4 |
014a 0000 0000  |    |
014c 2a00 0000  |*   |
014e 0008 b330  |   0|
0150 046e 3a00  | n: |
0152 0000 0046  |   F|
0154 8ea0       |    |
0155 0000 0000  |    |		.BLANK	0000[0x7]
015c 0002 5a60  |  Z`|		.XXX[0x1e]
015e 011b 5180  |  Q |
0160 0000 0004  |    |
0162 4000 11a7  |@   |
0164 6000 0000  |`   |
0166 015e 0000  | ^  |
0168 0000 46b9  |  F |
016a d089 0008  |    |
016c dc74 0000  | t  |
016e 0000 8d9b  |    |
0170 8011 d75c  |   \|
0172 18e4 00ad  |    |
0174 7700 0000  |w   |
0176 0023 6a30  | #j0|
0178 08d3 b000  |    |
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 0001 1c10  |    |		.XXX[0x14]
0182 8000 235c  |  #\|
0184 e000 0002  |    |
0186 762e 011c  |v.  |
0188 6a80 0000  |j   |
018a 0015 0000  |    |
018c 0000 0459  |   Y|
018e 9802 3b06  |  ; |
0190 0000 0000  |    |
0192 2385 e000  |#   |
0194 0000 0000  |    |		.BLANK	0000[0x7]
019b 012d 3000  | -0 |		.XXX[0x1d]
019d 8ea3 0000  |    |
019f 0000 13e0  |    |
01a1 0008 e354  |   T|
01a3 0000 0000  |    |
01a5 b100 0000  |    |
01a7 0023 9b78  | # x|
01a9 4480 0476  |D  v|
01ab 0c00 0000  |    |
01ad 0047 4ae0  | GJ |
01af 08fb 520c  |  R |
01b1 7200 56bb  |r V |
01b3 8000 0000  |    |
01b5 11d4 6004  |  ` |
01b7 71aa       |q   |
01b8 0000 0000  |    |		.BLANK	0000[0x7]
01bf 008f 0280  |    |		.XXX[0x13]
01c1 0011 cdb8  |    |
01c3 0000 013b  |   ;|
01c5 1700 8f2f  |   /|
01c7 8000 0000  |    |
01c9 0500 0000  |    |
01cb 0002 2ccc  |  , |
01cd 011f 7780  |  w |
01cf 0000 0011  |    |
01d1 e238       | 8  |
01d2 0000 0000  |    |		.BLANK	0000[0x8]
01da 9698 0047  |   G|		.XXX[0x1d]
01dc cea0 0000  |    |
01de 000a 0000  |    |
01e0 0479 7c00  | y| |
01e2 0000 0059  |   Y|
01e4 8000 0000  |    |
01e6 11ed 0422  |   "|
01e8 4002 3eef  |@ > |
01ea 0000 0000  |    |
01ec 23e4 0004  |#   |
01ee 857b 0639  | { 9|
01f0 002b 5dc0  | +] |
01f2 0000 0008  |    |
01f4 f9d4 023c  |   <|
01f6 be00       |    |
01f7 0000 0000  |    |		.BLANK	0000[0x7]
01fe 47fe 6000  |G ` |		.XXX[0x2]