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

⟦2a2722d19⟧

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

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 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 c185 c195  |    |		.XXX[0x10a]
00f8 c9d1 c985  |    |
00fa e481 95b9  |    |
00fc 91f4 2880  |  ( |
00fe 8080 81a5  |    |
0100 99f4 2880  |  ( |
0102 81a5 9995  |    |
0104 b1cd 9428  |   (|
0106 8081 f481  |    |
0108 8991 9598  |    |
010a 2828 a195  |((  |
010c b990 81bd  |    |
010e 9881 8dbd  |    |
0110 b5b5 bdb8  |    |
0112 81c1 c9bd  |    |
0114 b1bd 9ca4  |    |
0116 8159 354d  | Y5M|
0118 1195 89d5  |    |
011a 9c80 2829  |  ()|
011c 95b9 9028  |   (|
011e 8029 cde5  | )  |
0120 cdd1 95b5  |    |
0122 91a5 8dd0  |    |
0124 80bd cd95  |    |
0126 d1c1 858d  |    |
0128 ada5 b99c  |    |
012a 81ad b9bd  |    |
012c ddb8 8028  |   (|
012e 8081 edcd  |    |
0130 85d9 95c1  |    |
0132 858d ada5  |    |
0134 b99d b5bd  |    |
0136 9194 81cd  |    |
0138 95d1 c185  |    |
013a 8dad a5b9  |    |
013c 9df4 2880  |  ( |
013e 81a5 9828  |   (|
0140 2894 8028  |(  (|
0142 9481 15b9  |    |
0144 9081 bd98  |    |
0146 81a5 b98d  |    |
0148 b1d5 9195  |    |
014a 9081 c1c9  |    |
014c bdb1 bd9c  |    |
014e 81cd 958d  |    |
0150 d1a5 bdb8  |    |
0152 b828 9428  | ( (|
0154 2894 9515  |(   |
0156 b991 41c9  |  A |
0158 bdb1 bd9c  |    |
015a 2894 9509  |(   |
015c 959d a5b9  |    |
015e 4d95 d1d5  |M   |
0160 c029 0995  | )  |
0162 9da5 b911  |    |
0164 d9a5 3185  |  1 |
0166 cd95 c911  |    |
0168 bd8c 28cc  |  ( |
016a c0c0 80cc  |    |
016c c0c0 8149  |   I|
016e 154c 2894  | L( |
0170 9515 b991  |    |
0172 4d95 d1d5  |M   |
0174 c028 2828  | (((|
0176 9495 4185  |  A |
0178 9d95 09bd  |    |
017a d5b9 91a5  |    |
017c b99d 09bd  |    |
017e e0e8 80a1  |    |
0180 85d1 95b9  |    |
0182 90a4 2894  |  ( |
0184 9509 959d  |    |
0186 a5b9 4185  |  A |
0188 9d95 4d95  |  M |
018a d1d5 c028  |   (|
018c c4c0 c0c0  |    |
018e 8109 4080  |  @ |
0190 cccc c0c0  |    |
0192 80c8 d4d4  |    |
0194 c081 4134  |  A4|
0196 80bd c185  |    |
0198 c195 c8b5  |    |
019a 85d5 d1bd  |    |
019c b585 d1a5  |    |
019e 8c81 9985  |    |
01a0 b1cd 9481  |    |
01a2 4d41 4c80  |MAL |
01a4 e0d0 c880  |    |
01a6 c081 6164  |  ad|
01a8 2894 9515  |(   |
01aa b991 4185  |  A |
01ac 9d95 4d95  |  M |
01ae d1d5 c029  |   )|
01b0 6140 80bd  |a@  |
01b2 18d0 d480  |    |
01b4 bd0d 34b5  |  4 |
01b6 51a5 b595  |Q   |
01b8 ccb5 09bd  |    |
01ba b190 80dc  |    |
01bc d0b8 dcc8  |    |
01be c080 c4c4  |    |
01c0 8111 3918  |  9 |
01c2 8149 4028  | I@(|
01c4 e0d0 c880  |    |
01c6 e4d0 c881  |    |
01c8 6164 8118  |ad  |
01ca d0d4 a141  |   A|
01cc c8a5 4c80  |  L |
01ce b4c4 81e0  |    |
01d0 a1bd c1bd  |    |
01d2 cd95 90a5  |    |
01d4 4c80 d0d4  |L   |
01d6 81e0 a14d  |   M|
01d8 d185 b991  |    |
01da 85c9 90a5  |    |
01dc 4c80 d0d8  |L   |
01de 81e0 a199  |    |
01e0 bdc8 a54c  |   L|
01e2 80d0 d881  |    |
01e4 e0a1 84a5  |    |
01e6 4c28 c4c0  |L(  |
01e8 c8e4 8164  |   d|
01ea 80e4 ccd4  |    |
01ec 8160 a11d  | `  |
01ee 95b9 95c9  |    |
01f0 a58c a54c  |   L|
01f2 80d4 c081  |    |
01f4 e0a1 4185  |  A |
01f6 8dad 859d  |    |
01f8 94a5 4c80  |  L |
01fa d4c0 81e0  |    |
01fc a1bd 98a5  |    |
01fe 4c80 c4c4  |L   |