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

⟦4222189e2⟧

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

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 0000 0000  |    |		.BLANK	0000[0x10a]