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

⟦5b48d9794⟧

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

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 9a9a 9e9c  |    |		.XXX[0x8e]
00f8 be84 82a6  |    |
00fa 8a5c 82a0  | \  |
00fc bea6 ae92  |    |
00fe a886 902c  |   ,|
0100 0036 82a0  | 6  |
0102 be86 9e9a  |    |
0104 9a9e 9cbe  |    |
0106 8482 a68a  |    |
0108 5c82 a0be  |\   |
010a a6ae 92a8  |    |
010c 8690 5c9e  |  \ |
010e 9cfd 2046  |   F|
0110 001a 869e  |    |
0112 9ca8 8a9c  |    |
0114 a8a6 be90  |    |
0116 9298 922e  |   .|
0118 0030 82a0  | 0  |
011a be86 9e9a  |    |
011c 9a9e 9cbe  |    |
011e 8482 a68a  |    |
0120 5c82 a0be  |\   |
0122 a6ae 92a8  |    |
0124 8690 2c00  |  , |
0126 3682 a0be  |6   |
0128 869e 9a9a  |    |
012a 9e9c be84  |    |
012c 82a6 8a5c  |   \|
012e 82a0 bea6  |    |
0130 ae92 a886  |    |
0132 905c 9e9c  | \  |
0134 0000 0435  |   5|
0136 d600 0000  |    |
0138 a800 0000  |    |
013a 0400 0002  |    |
013c 4400 a105  |D   |
013e 417d 0d3d  |A} =|
0140 3535 3d39  |55=9|
0142 7d41 493d  |}AI=|
0144 0d15 1155  |   U|
0146 4915 4cb9  |I L |
0148 0541 7d15  | A} |
014a 1125 517d  | %Q}|
014c 2551 1535  |%Q 5|
014e 7d09 050d  |}   |
0150 2d55 40f5  |-U@ |
0152 ee51 fe40  | Q @|
0154 9000 1125  |   %|
0156 5115 345c  |Q 4\|
0158 0041 4d51  | AMQ|
015a 0539 1105  | 9  |
015c 4910 b925  |I  %|
015e 3951 151d  |9Q  |
0160 1548 01fa  | H  |
0162 408c 002d  |@  -|
0164 4d51 0549  |MQ I|
0166 517d 4905  |Q}I |
0168 391d 145c  |9  \|
016a 0041 4d51  | AMQ|
016c 0539 1105  | 9  |
016e 4910 b925  |I  %|
0170 3951 151d  |9Q  |
0172 1548 01fa  | H  |
0174 408c 0025  |@  %|
0176 1539 117d  | 9 }|
0178 4905 391d  |I 9 |
017a 145c 0041  | \ A|
017c 4d51 0539  |MQ 9|
017e 1105 4910  |  I |
0180 b925 3951  | %9Q|
0182 151d 1548  |   H|
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 0228 0000  | (  |		.XXX[0x2f]
018a 0008 0000  |    |
018c 0a00 0182  |    |
018e 0a82 fa1a  |    |
0190 7a6a 6a7a  |zjjz|
0192 72fa 8292  |r   |
0194 7a1a 2a22  |z *"|
0196 aa92 2a99  |  * |
0198 720a 82fa  |r   |
019a a292 0a72  |   r|
019c 9a32 2a92  | 2* |
019e fa0a a2a2  |    |
01a0 0a1a 422a  |  B*|
01a2 22fa 222a  |" "*|
01a4 a20a 4a61  |  Ja|
01a6 ebdc a3f4  |    |
01a8 8118 0032  |   2|
01aa 3292 7a6a  |2 zj|
01ac fac0 b800  |    |
01ae 829a a20a  |    |
01b0 7222 0a92  |r"  |
01b2 2172 4a72  |!rJr|
01b4 a22a 3a2a  | *:*|
01b6 9040       | @  |
01b7 0000 0000  |    |		.BLANK	0000[0x4]
01bb 0bf4 8118  |    |		.XXX[0xf]
01bd 0022 a27a  | " z|
01bf fac0 b800  |    |
01c1 829a a20a  |    |
01c3 7222 0a92  |r"  |
01c5 2172 4a72  |!rJr|
01c7 a22a 3a2a  | *:*|
01c9 9040       | @  |
01ca 0000 0000  |    |		.BLANK	0000[0x4]
01ce 0bf4 8118  |    |		.XXX[0x32]
01d0 006a 0a82  | j  |
01d2 8262 4a1a  | bJ |
01d4 fa72 aa6a  | r j|
01d6 122a 90b8  | *  |
01d8 0082 9aa2  |    |
01da 0a72 220a  | r" |
01dc 9221 724a  | !rJ|
01de 72a2 2a3a  |r *:|
01e0 2a90 4000  |* @ |
01e2 0000 0000  |    |
01e4 0000 000b  |    |
01e6 fc81 2000  |    |
01e8 622a c2a2  |b*  |
01ea 920a 1aa2  |    |
01ec fa32 4a62  | 2Jb|
01ee 28b8 008a  |(   |
01f0 a22a c2a2  | *  |
01f2 fa4a 7972  | Jyr|
01f4 324a 622a  |2Jb*|
01f6 faa2 ca82  |    |
01f8 2803 f481  |(   |
01fa 1800 5a62  |  Zb|
01fc 4a72 2afa  |Jr* |
01fe 8292 2a32  |  *2|