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

⟦a12401f55⟧

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

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 00c0       |    |		.CONST	0x00c0								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004a       | J  |		.CONST	0x004a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0012       |    |		.CONST	0x0012								; Number of locals
000b			INIT_0008:
000b 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0011 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0013 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0015 00bf       |    |		Action	Accept_Activation
0016 4800       |H   |		Short_Literal	0x0
0017 4807       |H   |		Short_Literal	0x7
0018 e002       |    |		Load	0x0,0x2
0019 035b       | [  |		Declare_Type	Array,Constrained
001a 0337       | 7  |		Declare_Variable	Array
001b 00d8       |    |		Load_Top	At_Offset_0
001c 0335       | 5  |		Declare_Variable	Array,Duplicate
001d 00cd       |    |		Action	Spare6_Action
001e e003       |    |		Load	0x0,0x3
001f 4800       |H   |		Short_Literal	0x0
0020 00da       |    |		Load_Top	At_Offset_2
0021 01d6       |    |		Execute	Vector,Field_Write
0022 e004       |    |		Load	0x0,0x4
0023 4801       |H   |		Short_Literal	0x1
0024 00da       |    |		Load_Top	At_Offset_2
0025 01d6       |    |		Execute	Vector,Field_Write
0026 e005       |    |		Load	0x0,0x5
0027 4802       |H   |		Short_Literal	0x2
0028 00da       |    |		Load_Top	At_Offset_2
0029 01d6       |    |		Execute	Vector,Field_Write
002a e006       |    |		Load	0x0,0x6
002b 4803       |H   |		Short_Literal	0x3
002c 00da       |    |		Load_Top	At_Offset_2
002d 01d6       |    |		Execute	Vector,Field_Write
002e e007       |    |		Load	0x0,0x7
002f 4804       |H   |		Short_Literal	0x4
0030 00da       |    |		Load_Top	At_Offset_2
0031 01d6       |    |		Execute	Vector,Field_Write
0032 e008       |    |		Load	0x0,0x8
0033 4805       |H   |		Short_Literal	0x5
0034 00da       |    |		Load_Top	At_Offset_2
0035 01d6       |    |		Execute	Vector,Field_Write
0036 e009       |    |		Load	0x0,0x9
0037 4806       |H   |		Short_Literal	0x6
0038 00da       |    |		Load_Top	At_Offset_2
0039 01d6       |    |		Execute	Vector,Field_Write
003a e00a       |    |		Load	0x0,0xa
003b 4807       |H   |		Short_Literal	0x7
003c 00da       |    |		Load_Top	At_Offset_2
003d 01d6       |    |		Execute	Vector,Field_Write
003e 00d9       |    |		Load_Top	At_Offset_1
003f 01d4       |    |		Execute	Vector,Structure_Write
0040 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0049 00c7       |    |		Action	Elaborate_Subprogram
004a			BODY_0008:
004a 00bc       |    |		Action	Signal_Activated
004b 00bb       |    |		Action	Signal_Completion
004c 0000 0000  |    |		.BLANK	0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005f       | _  |		.CONST	0x005f								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0007       |    |		.CONST	0x0007								; Number of locals
0053			INIT_0050:
0053 e00b       |    |		Load	0x0,0xb
0054 0322       | "  |		Declare_Variable	Record
0055 e00c       |    |		Load	0x0,0xc
0056 0007       |    |		Action	Break_Optional
0057 e00d       |    |		Load	0x0,0xd
0058 0007       |    |		Action	Break_Optional
0059 e00d       |    |		Load	0x0,0xd
005a 0007       |    |		Action	Break_Optional
005b e00e       |    |		Load	0x0,0xe
005c 0007       |    |		Action	Break_Optional
005d e00f       |    |		Load	0x0,0xf
005e 0007       |    |		Action	Break_Optional
005f			BODY_0050:
005f e00f       |    |		Load	0x0,0xf
0060 e00e       |    |		Load	0x0,0xe
0061 e00d       |    |		Load	0x0,0xd
0062 00d8       |    |		Load_Top	At_Offset_0
0063 e00c       |    |		Load	0x0,0xc
0064 e402       |    |		Load	0x2,0x2
0065 e010       |    |		Load	0x0,0x10
0066 4800       |H   |		Short_Literal	0x0
0067 6024       |`$  |		Indirect_Literal	Discrete,0x8c,{0x00000000, 0x7ffffffc}
0068 4800       |H   |		Short_Literal	0x0
0069 e5fe       |    |		Load	0x2,-0x2
006a e212       |    |		Load	0x1,0x12
006b 01d5       |    |		Execute	Vector,Field_Reference
006c 4800       |H   |		Short_Literal	0x0
006d e5ff       |    |		Load	0x2,-0x1
006e 8011       |    |		Call	0x0,0x11
006f e5ff       |    |		Load	0x2,-0x1
0070 8012       |    |		Call	0x0,0x12
0071 00d1       |    |		Pop_Control	Pop_Count_1
0072 c403       |    |		Store	0x2,0x3
0073 c404       |    |		Store	0x2,0x4
0074 c405       |    |		Store	0x2,0x5
0075 003b       | ;  |		Store_Top	Access,At_Offset_3
0076 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0077 00d8       |    |		Load_Top	At_Offset_0
0078 7002       |p   |		Jump_Nonzero	0x7b
0079 e00e       |    |		Load	0x0,0xe
007a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
007b e402       |    |		Load	0x2,0x2
007c e010       |    |		Load	0x0,0x10
007d 017f       |    |		Execute	Record,Equal
007e 6803       |h   |		Jump_Zero	0x82
007f e403       |    |		Load	0x2,0x3
0080 0f20       |    |		Execute_Immediate	Equal,0x20
0081 6808       |h   |		Jump_Zero	0x8a
0082 00d9       |    |		Load_Top	At_Offset_1
0083 e013       |    |		Load	0x0,0x13
0084 e014       |    |		Load	0x0,0x14
0085 a015       |    |		Store_Unchecked	0x0,0x15
0086 8016       |    |		Call	0x0,0x16
0087 003a       | :  |		Store_Top	Access,At_Offset_2
0088 e00e       |    |		Load	0x0,0xe
0089 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
008a 00d9       |    |		Load_Top	At_Offset_1
008b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
008c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7ffffffc}
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 4800       |H   |		Short_Literal	0x0
0094 00db       |    |		Load_Top	At_Offset_3
0095 820d       |    |		Call	0x1,0xd
0096 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0097 0000       |    |		.XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00db       |    |		Load_Top	At_Offset_3
009c e212       |    |		Load	0x1,0x12
009d 4800       |H   |		Short_Literal	0x0
009e e5ff       |    |		Load	0x2,-0x1
009f 8011       |    |		Call	0x0,0x11
00a0 e5ff       |    |		Load	0x2,-0x1
00a1 8017       |    |		Call	0x0,0x17
00a2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00db       |    |		Load_Top	At_Offset_3
00ac 4800       |H   |		Short_Literal	0x0
00ad 4808       |H   |		Short_Literal	0x8
00ae e010       |    |		Load	0x0,0x10
00af e5fd       |    |		Load	0x2,-0x3
00b0 e212       |    |		Load	0x1,0x12
00b1 01d5       |    |		Execute	Vector,Field_Reference
00b2 4800       |H   |		Short_Literal	0x0
00b3 e5ff       |    |		Load	0x2,-0x1
00b4 8011       |    |		Call	0x0,0x11
00b5 e5ff       |    |		Load	0x2,-0x1
00b6 8018       |    |		Call	0x0,0x18
00b7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
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 4800       |H   |		Short_Literal	0x0
00bc e5fe       |    |		Load	0x2,-0x2
00bd e5ff       |    |		Load	0x2,-0x1
00be 8210       |    |		Call	0x1,0x10
00bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x692f,0x0000,0x0001,0x0007
00c6 000b 00e2  |    |		.DBG4T	0x000b,0x00e2,0x8000,0x0000
00ca 0016 00e9  |    |		.DBG4T	0x0016,0x00e9,0x8000,0x0000
00ce 0053 00f1  | S  |		.DBG4T	0x0053,0x00f1,0x0002,0x0000
00d2 0093 0100  |    |		.DBG4T	0x0093,0x0100,0x0002,0x0000
00d6 009b 0103  |    |		.DBG4T	0x009b,0x0103,0x0001,0x0000
00da 00ab 0106  |    |		.DBG4T	0x00ab,0x0106,0x0001,0x0000
00de 00bb 0109  |    |		.DBG4T	0x00bb,0x0109,0x0001,0x0000
00e2 ; --------------------------------------------------------------------------------------
00e2 ; Debug chain
00e2 ; --------------------------------------------------------------------------------------
00e2 0005 0000  |    |		.DBGLEN	0x0005,0x0000
00e4 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013
00e9 ; --------------------------------------------------------------------------------------
00e9 ; Debug chain
00e9 ; --------------------------------------------------------------------------------------
00e9 0006 0000  |    |		.DBGLEN	0x0006,0x0000
00eb 0016 0040  |   @|		.DBGLNO	0x0016,0x0040,0x0042,0x0044,0x0046,0x0048
00f1 ; --------------------------------------------------------------------------------------
00f1 ; Debug chain
00f1 ; --------------------------------------------------------------------------------------
00f1 0006 0007  |    |		.DBGLEN	0x0006,0x0007
00f3 0053 0055  | S U|		.DBGLNO	0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0077,0x0079,0x007b,0x0082,0x0088,0x008a
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug chain
0100 ; --------------------------------------------------------------------------------------
0100 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0102 0093       |    |		.DBGLNO	0x0093
0103 ; --------------------------------------------------------------------------------------
0103 ; Debug chain
0103 ; --------------------------------------------------------------------------------------
0103 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0105 009b       |    |		.DBGLNO	0x009b
0106 ; --------------------------------------------------------------------------------------
0106 ; Debug chain
0106 ; --------------------------------------------------------------------------------------
0106 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0108 00ab       |    |		.DBGLNO	0x00ab
0109 ; --------------------------------------------------------------------------------------
0109 ; Debug chain
0109 ; --------------------------------------------------------------------------------------
0109 0000 0001  |    |		.DBGLEN	0x0000,0x0001
010b 00bb       |    |		.DBGLNO	0x00bb
010c 0000 0000  |    |		.BLANK	0000[0xf4]