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

⟦1f7e75f64⟧

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

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 0118       |    |		.CONST	0x0118								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0035       | 5  |		.CONST	0x0035								; Address of begin
0019 00bf       |    |		.CONST	0x00bf								; Address of exception handler
001a 0007       |    |		.CONST	0x0007								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e e5fe       |    |		Load	0x2,-0x2
001f e001       |    |		Load	0x0,0x1
0020 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0021 a402       |    |		Store_Unchecked	0x2,0x2
0022 e002       |    |		Load	0x0,0x2
0023 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0024 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0025 e002       |    |		Load	0x0,0x2
0026 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0027 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0028 02c7       |    |		Declare_Variable	Any
0029 00d8       |    |		Load_Top	At_Offset_0
002a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002b e002       |    |		Load	0x0,0x2
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d e002       |    |		Load	0x0,0x2
002e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
002f 02c7       |    |		Declare_Variable	Any
0030 00d8       |    |		Load_Top	At_Offset_0
0031 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0032 e003       |    |		Load	0x0,0x3
0033 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0034 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0035			BODY_0018:
0035 e5fe       |    |		Load	0x2,-0x2
0036 e001       |    |		Load	0x0,0x1
0037 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0038 4800       |H   |		Short_Literal	0x0
0039 0092 00e0  |    |		Action	Push_String_Extended,0xe0					; "Converting Rcf State Files"
003b e004       |    |		Load	0x0,0x4
003c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
003d e002       |    |		Load	0x0,0x2
003e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
003f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0040 e404       |    |		Load	0x2,0x4
0041 609a       |`   |		Indirect_Literal	Discrete,0xdc,{0x00000000, 0x00004000}
0042 e005       |    |		Load	0x0,0x5
0043 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0044 e006       |    |		Load	0x0,0x6
0045 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0046 e007       |    |		Load	0x0,0x7
0047 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0048 4801       |H   |		Short_Literal	0x1
0049 4800       |H   |		Short_Literal	0x0
004a e006       |    |		Load	0x0,0x6
004b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
004c e002       |    |		Load	0x0,0x2
004d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
004e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
004f e5ff       |    |		Load	0x2,-0x1
0050 e002       |    |		Load	0x0,0x2
0051 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0052 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0053 c404       |    |		Store	0x2,0x4
0054 c403       |    |		Store	0x2,0x3
0055 e403       |    |		Load	0x2,0x3
0056 681b       |h   |		Jump_Zero	0x72
0057 4801       |H   |		Short_Literal	0x1
0058 4802       |H   |		Short_Literal	0x2
0059 e008       |    |		Load	0x0,0x8
005a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
005b 035b       | [  |		Declare_Type	Array,Constrained
005c 0337       | 7  |		Declare_Variable	Array
005d e5ff       |    |		Load	0x2,-0x1
005e e008       |    |		Load	0x0,0x8
005f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0060 e008       |    |		Load	0x0,0x8
0061 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0062 0119       |    |		Execute	Any,Check_In_Formal_Type
0063 4801       |H   |		Short_Literal	0x1
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 e403       |    |		Load	0x2,0x3
0067 e008       |    |		Load	0x0,0x8
0068 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0069 e008       |    |		Load	0x0,0x8
006a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006b 0119       |    |		Execute	Any,Check_In_Formal_Type
006c 4802       |H   |		Short_Literal	0x2
006d 00da       |    |		Load_Top	At_Offset_2
006e 01d6       |    |		Execute	Vector,Field_Write
006f 6068       |`h  |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x0000817c}
0070 e003       |    |		Load	0x0,0x3
0071 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0072 00cf       |    |		Action	Mark_Auxiliary
0073 783c       |x<  |		Jump	0xb0
0074 e002       |    |		Load	0x0,0x2
0075 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0076 00db       |    |		Load_Top	At_Offset_3
0077 0120       |    |		Execute	Any,Is_Value
0078 6803       |h   |		Jump_Zero	0x7c
0079 e002       |    |		Load	0x0,0x2
007a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
007b 7801       |x   |		Jump	0x7d
007c 00db       |    |		Load_Top	At_Offset_3
007d e404       |    |		Load	0x2,0x4
007e e002       |    |		Load	0x0,0x2
007f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0080 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0081 c406       |    |		Store	0x2,0x6
0082 c405       |    |		Store	0x2,0x5
0083 00db       |    |		Load_Top	At_Offset_3
0084 681b       |h   |		Jump_Zero	0xa0
0085 4801       |H   |		Short_Literal	0x1
0086 4802       |H   |		Short_Literal	0x2
0087 e008       |    |		Load	0x0,0x8
0088 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0089 035b       | [  |		Declare_Type	Array,Constrained
008a 0337       | 7  |		Declare_Variable	Array
008b e405       |    |		Load	0x2,0x5
008c e008       |    |		Load	0x0,0x8
008d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
008e e008       |    |		Load	0x0,0x8
008f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0090 0119       |    |		Execute	Any,Check_In_Formal_Type
0091 4801       |H   |		Short_Literal	0x1
0092 00da       |    |		Load_Top	At_Offset_2
0093 01d6       |    |		Execute	Vector,Field_Write
0094 e5ff       |    |		Load	0x2,-0x1
0095 e008       |    |		Load	0x0,0x8
0096 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0097 e008       |    |		Load	0x0,0x8
0098 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0099 0119       |    |		Execute	Any,Check_In_Formal_Type
009a 4802       |H   |		Short_Literal	0x2
009b 00da       |    |		Load_Top	At_Offset_2
009c 01d6       |    |		Execute	Vector,Field_Write
009d 6036       |`6  |		Indirect_Literal	Discrete,0xd4,{0x00000000, 0x000081ea}
009e e003       |    |		Load	0x0,0x3
009f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00a0 e003       |    |		Load	0x0,0x3
00a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a2 e402       |    |		Load	0x2,0x2
00a3 e406       |    |		Load	0x2,0x6
00a4 8009       |    |		Call	0x0,0x9
00a5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00a6 e402       |    |		Load	0x2,0x2
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 e003       |    |		Load	0x0,0x3
00a9 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
00aa e404       |    |		Load	0x2,0x4
00ab e002       |    |		Load	0x0,0x2
00ac 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ad 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00ae c404       |    |		Store	0x2,0x4
00af 00c9       |    |		Action	Pop_Auxiliary_Loop
00b0 e404       |    |		Load	0x2,0x4
00b1 e002       |    |		Load	0x0,0x2
00b2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00b3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00b4 6fbf       |o   |		Jump_Zero	0x74
00b5 00ce       |    |		Action	Pop_Auxiliary
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 e001       |    |		Load	0x0,0x1
00b8 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00b9 4800       |H   |		Short_Literal	0x0
00ba 0092 00e1  |    |		Action	Push_String_Extended,0xe1					; "Done Converting Rcf State Files"
00bc e004       |    |		Load	0x0,0x4
00bd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00bf			TRAP_0018:
00bf e003       |    |		Load	0x0,0x3
00c0 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00c1 010f       |    |		Execute	Exception,Equal
00c2 6808       |h   |		Jump_Zero	0xcb
00c3 e001       |    |		Load	0x0,0x1
00c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c5 4807       |H   |		Short_Literal	0x7
00c6 0092 00e2  |    |		Action	Push_String_Extended,0xe2					; "Upgrade_Views failed"
00c8 e004       |    |		Load	0x0,0x4
00c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ca 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00cb e402       |    |		Load	0x2,0x2
00cc 0092 00e3  |    |		Action	Push_String_Extended,0xe3					; "Upgrade_Views"
00ce e00a       |    |		Load	0x0,0xa
00cf 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00d0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d1 0000 0000  |    |		.XXX[0x3]
00d3 0000       |    |
00d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081ea}
00d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817c}
00dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; STRING TABLE
00e0 ; --------------------------------------------------------------------------------------
00e0 000a       |    |		.STRTAB	0x000a->0x00e5							; "Converting Rcf State Files"
00e1 0022       | "  |		.STRTAB	0x0022->0x00f2							; "Done Converting Rcf State Files"
00e2 003f       | ?  |		.STRTAB	0x003f->0x0101							; "Upgrade_Views failed"
00e3 0051       | Q  |		.STRTAB	0x0051->0x010b							; "Upgrade_Views"
00e4 005c       | \  |		.STREND 0x005c->0x0112
00e5 436f 6e76  |Conv|		.STRTAB_STRINGS
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x02cf,0x0000,0x0001,0x0000
011e 0000 0000  |    |		.BLANK	0000[0x5]
0123 019c 9280  |    |		.XXX[0x20]
0125 001e afc0  |    |
0127 0000 0109  |    |
0129 9700 3424  |  4$|
012b 8000 0000  |    |
012d 0000 0000  |    |
012f 0109 8900  |    |
0131 3424 8000  |4$  |
0133 0000 0000  |    |
0135 0000 0107  |    |
0137 6059 0000  |`Y  |
0139 003f ffa0  | ?  |
013b 2003 a000  |    |
013d 0000 1c00  |    |
013f d823 84ca  | #  |
0141 8015 a240  |   @|
0143 0000 0000  |    |		.BLANK	0000[0x5]
0148 1a38 0000  | 8  |		.XXX[0xb8]
014a 0000 0000  |    |
014c d6f4 019d  |    |
014e 1c00 001e  |    |
0150 afc0 0ce9  |    |
0152 5b02 104b  |[  K|
0154 0000 0000  |    |
0156 674e a823  |gN #|
0158 e000 0000  |    |
015a 0374 7b80  | t{ |
015c da4f 6036  | O`6|
015e bd98 0000  |    |
0160 033d 9941  | = A|
0162 8e40 6d27  | @m'|
0164 b000 0000  |    |
0166 0677 e801  | w  |
0168 9e11 c067  |   g|
016a 9a00 0004  |    |
016c b4c0 0677  |   w|
016e e801 9dd7  |    |
0170 4036 0000  |@6  |
0172 6784 7019  |g p |
0174 e680 000c  |    |
0176 0400 7000  |  p |
0178 0000 0000  |    |
017a 1a38 1000  | 8  |
017c 0000 0676  |   v|
017e bd84 4800  |  H |
0180 cec3 2000  |    |
0182 0000 0cef  |    |
0184 6716 6601  |g f |
0186 9d86 4000  |  @ |
0188 0000 19e4  |    |
018a a400 0000  |    |
018c 0400 1843  |   C|
018e e080 0308  |    |
0190 7c02 007e  ||  ~|
0192 fe4e c5c0  | N  |
0194 6784 7000  |g p |
0196 0000 02d8  |    |
0198 0400 fbc7  |    |
019a 8707 00ce  |    |
019c c320 0000  |    |
019e 000c f488  |    |
01a0 033d 5d82  | =] |
01a2 000c 21f0  |  ! |
01a4 09d8 b80c  |    |
01a6 f340 0000  | @  |
01a8 0000 bd00  |    |
01aa 00dd 3e53  |  >S|
01ac b170 19e6  | p  |
01ae 8000 0000  |    |
01b0 0010 0000  |    |
01b2 0000 0034  |   4|
01b4 65f4 18e4  |e   |
01b6 06d2 7b00  |  { |
01b8 0000 0067  |   g|
01ba d1c0 19f5  |    |
01bc ec06 7ed4  |  ~ |
01be 0000 4b4c  |  KL|
01c0 0067 d1c0  | g  |
01c2 19f2 4403  |  D |
01c4 5000 067d  |P  }|
01c6 7b01 9fb5  |{   |
01c8 0001 4040  |  @@|
01ca 0700 0000  |    |
01cc 0000 01a3  |    |
01ce 8100 0000  |    |
01d0 0067 bf18  | g  |
01d2 4480 0cf6  |D   |
01d4 9a00 0000  |    |
01d6 00cf 9cf1  |    |
01d8 6660 19ed  |f`  |
01da 3400 0000  |4   |
01dc 019f 9740  |   @|
01de 0000 0040  |   @|
01e0 0184 3e08  |  > |
01e2 0030 87c0  | 0  |
01e4 2008 2264  |  "d|
01e6 ec5c 067d  | \ }|
01e8 7b00 0000  |{   |
01ea 005f 0040  | _ @|
01ec 1021 7970  | !yp|
01ee 400c f69a  |@   |
01f0 0000 0000  |    |
01f2 bf04 0018  |    |
01f4 43e1 5063  |C Pc|
01f6 d01b 49ec  |  I |
01f8 0000 0001  |    |
01fa 9ffd c068  |   h|
01fc 13c0 0000  |    |
01fe 0000 0118  |    |