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

⟦26e25157b⟧

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

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 00e0       |    |		.CONST	0x00e0								; 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 006a       | j  |		.CONST	0x006a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 6076       |`v  |		Indirect_Literal	Discrete,0x84,{0x80000000, 0x00020000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 00db       |    |		Load_Top	At_Offset_3
0010 606f       |`o  |		Indirect_Literal	Discrete,0x80,{0x00000000, 0x0000ffff}
0011 0279       | y  |		Execute	Discrete,And
0012 0273       | s  |		Execute	Discrete,Plus
0013 e002       |    |		Load	0x0,0x2
0014 0273       | s  |		Execute	Discrete,Plus
0015 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0016 00da       |    |		Load_Top	At_Offset_2
0017 e003       |    |		Load	0x0,0x3
0018 0386       |    |		Declare_Variable	Package,Visible
0019 00d8       |    |		Load_Top	At_Offset_0
001a 020f       |    |		Execute	Module,Activate
001b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
001d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
001f 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0021 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0023 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0025 029c 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible
0027 0093 0000  |    |		push_full_address	0x0
0029 6052       |`R  |		Indirect_Literal	Discrete,0x7c,{0x80000000, 0x00010000}
002a 0273       | s  |		Execute	Discrete,Plus
002b e20d       |    |		Load	0x1,0xd
002c 6053       |`S  |		Indirect_Literal	Discrete,0x80,{0x00000000, 0x0000ffff}
002d 0279       | y  |		Execute	Discrete,And
002e 0273       | s  |		Execute	Discrete,Plus
002f e004       |    |		Load	0x0,0x4
0030 0273       | s  |		Execute	Discrete,Plus
0031 e005       |    |		Load	0x0,0x5
0032 e210       |    |		Load	0x1,0x10
0033 0098       |    |		Execute	Package,Field_Read_Dynamic
0034 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0035 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0036 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0037 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0038 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0039 482f       |H/  |		Short_Literal	0x2f
003a 603d       |`=  |		Indirect_Literal	Discrete,0x78,{0x7fffffff, 0xffffffff}
003b e006       |    |		Load	0x0,0x6
003c 0386       |    |		Declare_Variable	Package,Visible
003d 00d8       |    |		Load_Top	At_Offset_0
003e 020f       |    |		Execute	Module,Activate
003f 00bf       |    |		Action	Accept_Activation
0040 e007       |    |		Load	0x0,0x7
0041 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0042 0266       | f  |		Execute	Discrete,Bounds
0043 e008       |    |		Load	0x0,0x8
0044 e210       |    |		Load	0x1,0x10
0045 0098       |    |		Execute	Package,Field_Read_Dynamic
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 4801       |H   |		Short_Literal	0x1
0048 035d       | ]  |		Declare_Type	Array,Defined
0049 00d8       |    |		Load_Top	At_Offset_0
004a 0337       | 7  |		Declare_Variable	Array
004b 00d8       |    |		Load_Top	At_Offset_0
004c 0335       | 5  |		Declare_Variable	Array,Duplicate
004d 00cd       |    |		Action	Spare6_Action
004e 4800       |H   |		Short_Literal	0x0
004f 4800       |H   |		Short_Literal	0x0
0050 00da       |    |		Load_Top	At_Offset_2
0051 01d6       |    |		Execute	Vector,Field_Write
0052 4801       |H   |		Short_Literal	0x1
0053 4801       |H   |		Short_Literal	0x1
0054 00da       |    |		Load_Top	At_Offset_2
0055 01d6       |    |		Execute	Vector,Field_Write
0056 4802       |H   |		Short_Literal	0x2
0057 4802       |H   |		Short_Literal	0x2
0058 00da       |    |		Load_Top	At_Offset_2
0059 01d6       |    |		Execute	Vector,Field_Write
005a 4801       |H   |		Short_Literal	0x1
005b 4803       |H   |		Short_Literal	0x3
005c 00da       |    |		Load_Top	At_Offset_2
005d 01d6       |    |		Execute	Vector,Field_Write
005e 00d9       |    |		Load_Top	At_Offset_1
005f 01d4       |    |		Execute	Vector,Structure_Write
0060 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0069 00c7       |    |		Action	Elaborate_Subprogram
006a			BODY_0008:
006a 00bc       |    |		Action	Signal_Activated
006b 00bb       |    |		Action	Signal_Completion
006c 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
0074 e009       |    |		Load	0x0,0x9
0075 e210       |    |		Load	0x1,0x10
0076 0096       |    |		Execute	Package,Entry
0077 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0078 7fff ffff  |    |		.LITERAL	{0x7fffffff, 0xffffffff}
007c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0080 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0084 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008f       |    |		.CONST	0x008f								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0002       |    |		.CONST	0x0002								; Number of locals
008b			INIT_0088:
008b e005       |    |		Load	0x0,0x5
008c e210       |    |		Load	0x1,0x10
008d 0098       |    |		Execute	Package,Field_Read_Dynamic
008e 0007       |    |		Action	Break_Optional
008f			BODY_0088:
008f e005       |    |		Load	0x0,0x5
0090 e210       |    |		Load	0x1,0x10
0091 0098       |    |		Execute	Package,Field_Read_Dynamic
0092 e5fd       |    |		Load	0x2,-0x3
0093 00ea       |    |		Load_Encached	Null_String_Cache
0094 e5fe       |    |		Load	0x2,-0x2
0095 e5ff       |    |		Load	0x2,-0x1
0096 e219       |    |		Load	0x1,0x19
0097 01d7       |    |		Execute	Vector,Field_Read
0098 e00a       |    |		Load	0x0,0xa
0099 e210       |    |		Load	0x1,0x10
009a 0096       |    |		Execute	Package,Entry
009b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
009c 00d8       |    |		Load_Top	At_Offset_0
009d a5fc       |    |		Store_Unchecked	0x2,-0x4
009e 00d8       |    |		Load_Top	At_Offset_0
009f e00b       |    |		Load	0x0,0xb
00a0 e210       |    |		Load	0x1,0x10
00a1 0096       |    |		Execute	Package,Entry
00a2 a5fb       |    |		Store_Unchecked	0x2,-0x5
00a3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a4 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
00ac e00c       |    |		Load	0x0,0xc
00ad e210       |    |		Load	0x1,0x10
00ae 0096       |    |		Execute	Package,Entry
00af 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b1 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
00bc e00d       |    |		Load	0x0,0xd
00bd e210       |    |		Load	0x1,0x10
00be 0096       |    |		Execute	Package,Entry
00bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 00da       |    |		Load_Top	At_Offset_2
00c4 e00e       |    |		Load	0x0,0xe
00c5 e210       |    |		Load	0x1,0x10
00c6 0096       |    |		Execute	Package,Entry
00c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e00f       |    |		Load	0x0,0xf
00cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00cd e005       |    |		Load	0x0,0x5
00ce e210       |    |		Load	0x1,0x10
00cf 0098       |    |		Execute	Package,Field_Read_Dynamic
00d0 e5fd       |    |		Load	0x2,-0x3
00d1 e010       |    |		Load	0x0,0x10
00d2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d3 0119       |    |		Execute	Any,Check_In_Formal_Type
00d4 e5fe       |    |		Load	0x2,-0x2
00d5 e5ff       |    |		Load	0x2,-0x1
00d6 8212       |    |		Call	0x1,0x12
00d7 c5fc       |    |		Store	0x2,-0x4
00d8 c5fb       |    |		Store	0x2,-0x5
00d9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00da 0000 0000  |    |		.BLANK	0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b9c,0x0000,0x0001,0x0000
00e6 2441 2800  |$A( |		.XXX[0x9]
00e8 09cd 1004  |    |
00ea 034c 0010  | L  |
00ec 0005 8010  |    |
00ee 0328       | (  |
00ef 0000 0000  |    |		.BLANK	0000[0x5]
00f4 0003 fffc  |    |		.XXX[0x2]
00f6 0000 0000  |    |		.BLANK	0000[0x4]
00fa 0390 0010  |    |		.XXX[0x1a]
00fc 0008 0394  |    |
00fe 036e 0838  | n 8|
0100 3c11 a040  |<  @|
0102 036f 885c  | o \|
0104 09c8 0144  |   D|
0106 0360 0365  | ` e|
0108 9fa4 09e4  |    |
010a 09c8 0144  |   D|
010c 0363 885c  | c \|
010e 09cc 0144  |   D|
0110 0361 1004  | a  |
0112 036d 1004  | m  |
0114 0000 0000  |    |		.BLANK	0000[0x6]
011a 0450 0010  | P  |		.XXX[0x8a]
011c 0041 2001  | A  |
011e 813c 0394  | <  |
0120 0fe5 2001  |    |
0122 812c 0394  | ,  |
0124 0fe4 0a68  |   h|
0126 046c 0a68  | l h|
0128 056c 02fc  | l  |
012a 743c 031c  |t<  |
012c 7440 031c  |t@  |
012e 02f0 02ec  |    |
0130 0000 0000  |    |
0132 0478 0010  | x  |
0134 0008 0368  |   h|
0136 0394 0fc4  |    |
0138 036e 0004  | n  |
013a 3c11 c004  |<   |
013c 221c 0363  |"  c|
013e 8008 09c8  |    |
0140 0144 0361  | D a|
0142 80ac 09e4  |    |
0144 0363 8838  | c 8|
0146 0981 c004  |    |
0148 2006 97f0  |    |
014a 0360 27c0  | `' |
014c 0144 0361  | D a|
014e 807c 09e4  | |  |
0150 0363 8834  | c 4|
0152 0981 c004  |    |
0154 2006 97f4  |    |
0156 0360 27c0  | `' |
0158 0144 0361  | D a|
015a 803c 09e4  | <  |
015c 0363 800c  | c  |
015e 6c58 0981  |lX  |
0160 c004 2006  |    |
0162 97f8 0360  |   `|
0164 27a0 0144  |'  D|
0166 0361 a004  | a  |
0168 221d 1408  |"   |
016a 0000 0000  |    |
016c 03ff fffc  |    |
016e 0000 0000  |    |
0170 0003 fffc  |    |
0172 0598 0010  |    |
0174 000b 97f7  |    |
0176 97f8 2440  |  $@|
0178 09cc 036c  |   l|
017a 2480 09cf  |$   |
017c 8008 09cc  |    |
017e 0394 0fc4  |    |
0180 0362 0004  | b  |
0182 3c11 c004  |<   |
0184 221c 0361  |"  a|
0186 100c 0000  |    |
0188 0000 0000  |    |
018a 0620 0010  |    |
018c 0045 2001  | E  |
018e 819c 0394  |    |
0190 0fe4 0a68  |   h|
0192 064c 0a68  | L h|
0194 078c 02fd  |    |
0196 2005 2004  |    |
0198 0384 0fe1  |    |
019a 2009 200f  |    |
019c 8004 0fe0  |    |
019e 7438 031c  |t8  |
01a0 743c 031c  |t<  |
01a2 02f0 02ec  |    |
01a4 0000 0000  |    |		.BLANK	0000[0x6]
01aa 0668 0010  | h  |		.XXX[0x49]
01ac 0017 8840  |   @|
01ae 001c 036c  |   l|
01b0 0394 0fc4  |    |
01b2 0394 0fa7  |    |
01b4 97fe 000b  |    |
01b6 8844 0981  | D  |
01b8 c004 221c  |  " |
01ba 0369 21fc  | i! |
01bc 09e4 0148  |   H|
01be 0368 27e4  | h' |
01c0 014c 0369  | L i|
01c2 2004 09e4  |    |
01c4 0360 0384  | `  |
01c6 0981 c004  |    |
01c8 2007 1008  |    |
01ca 0368 27fc  | h' |
01cc 014c 0369  | L i|
01ce 2004 09e4  |    |
01d0 0360 0384  | `  |
01d2 0981 c004  |    |
01d4 2006 97f0  |    |
01d6 0368 27fc  | h' |
01d8 014c 0369  | L i|
01da 21fc 09e4  |!   |
01dc 0144 0368  | D h|
01de 27e4 014c  |'  L|
01e0 0360 241c  | `$ |
01e2 0368 09cc  | h  |
01e4 0363 8834  | c 4|
01e6 0981 c004  |    |
01e8 2006 97f4  |    |
01ea 0368 0363  | h c|
01ec 800c 6c54  |  lT|
01ee 0981 c004  |    |
01f0 2006 97f9  |    |
01f2 1408       |    |
01f3 0000 0000  |    |		.BLANK	0000[0x6]
01f9 fffc 07e8  |    |		.XXX[0x7]
01fb 0010 0010  |    |
01fd 036c 27e4  | l' |
01ff 0394       |    |