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

⟦e8fe24d25⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc

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 0248       | H  |		.CONST	0x0248								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0073       | s  |		.CONST	0x0073								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0023       | #  |		.CONST	0x0023								; Number of locals
000b			INIT_0008:
000b 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0011 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0028 c221       | !  |		Store	0x1,0x21
0029 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
002b c222       | "  |		Store	0x1,0x22
002c 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
002e c212       |    |		Store	0x1,0x12
002f 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0031 c213       |    |		Store	0x1,0x13
0032 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0034 c220       |    |		Store	0x1,0x20
0035 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0037 c214       |    |		Store	0x1,0x14
0038 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
003a c215       |    |		Store	0x1,0x15
003b 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
003d c21a       |    |		Store	0x1,0x1a
003e 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0040 c21b       |    |		Store	0x1,0x1b
0041 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0043 c21f       |    |		Store	0x1,0x1f
0044 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0046 c216       |    |		Store	0x1,0x16
0047 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0049 c217       |    |		Store	0x1,0x17
004a 00bf       |    |		Action	Accept_Activation
004b e001       |    |		Load	0x0,0x1
004c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004d 02c7       |    |		Declare_Variable	Any
004e e001       |    |		Load	0x0,0x1
004f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0050 a223       | #  |		Store_Unchecked	0x1,0x23
0051 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0072 00c7       |    |		Action	Elaborate_Subprogram
0073			BODY_0008:
0073 00bc       |    |		Action	Signal_Activated
0074 00bb       |    |		Action	Signal_Completion
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c e002       |    |		Load	0x0,0x2
007d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
007e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
007f 0000       |    |		.XXX[0x1]
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 e001       |    |		Load	0x0,0x1
0084 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0085 e002       |    |		Load	0x0,0x2
0086 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0087 e002       |    |		Load	0x0,0x2
0088 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0089 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008a 0000 0000  |    |		.BLANK	0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009a       |    |		.CONST	0x009a								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0003       |    |		.CONST	0x0003								; Number of locals
0093			INIT_0090:
0093 e003       |    |		Load	0x0,0x3
0094 1b4b       | K  |		Execute	Package,Field_Read,Field_Number 0x4b
0095 02c7       |    |		Declare_Variable	Any
0096 00d8       |    |		Load_Top	At_Offset_0
0097 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0098 029f 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Call
009a			BODY_0090:
009a 00d9       |    |		Load_Top	At_Offset_1
009b 0120       |    |		Execute	Any,Is_Value
009c 6803       |h   |		Jump_Zero	0xa0
009d e003       |    |		Load	0x0,0x3
009e 1b4b       | K  |		Execute	Package,Field_Read,Field_Number 0x4b
009f 7801       |x   |		Jump	0xa1
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 e003       |    |		Load	0x0,0x3
00a2 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00a3 e003       |    |		Load	0x0,0x3
00a4 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
00a5 c402       |    |		Store	0x2,0x2
00a6 00cf       |    |		Action	Mark_Auxiliary
00a7 7806       |x   |		Jump	0xae
00a8 8403       |    |		Call	0x2,0x3
00a9 00da       |    |		Load_Top	At_Offset_2
00aa e003       |    |		Load	0x0,0x3
00ab 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00ac c402       |    |		Store	0x2,0x2
00ad 00c9       |    |		Action	Pop_Auxiliary_Loop
00ae 00da       |    |		Load_Top	At_Offset_2
00af e003       |    |		Load	0x0,0x3
00b0 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
00b1 6ff6       |o   |		Jump_Zero	0xa8
00b2 00ce       |    |		Action	Pop_Auxiliary
00b3 4800       |H   |		Short_Literal	0x0
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00d3       |    |		.CONST	0x00d3								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e001       |    |		Load	0x0,0x1
00bc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bd e001       |    |		Load	0x0,0x1
00be 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00bf e001       |    |		Load	0x0,0x1
00c0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c1 e001       |    |		Load	0x0,0x1
00c2 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
00c3 e001       |    |		Load	0x0,0x1
00c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c5 e001       |    |		Load	0x0,0x1
00c6 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
00c7 e001       |    |		Load	0x0,0x1
00c8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c9 e001       |    |		Load	0x0,0x1
00ca 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00cb e001       |    |		Load	0x0,0x1
00cc 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00cd 4801       |H   |		Short_Literal	0x1
00ce e001       |    |		Load	0x0,0x1
00cf 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00d0 e001       |    |		Load	0x0,0x1
00d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d2 011e       |    |		Execute	Any,Convert
00d3			BODY_00b8:
00d3 e001       |    |		Load	0x0,0x1
00d4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d5 c223       | #  |		Store	0x1,0x23
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 e001       |    |		Load	0x0,0x1
00d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00da 0000 0000  |    |		.BLANK	0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 e223       | #  |		Load	0x1,0x23
00e4 e001       |    |		Load	0x0,0x1
00e5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e7 0000       |    |		.XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 00f7       |    |		.CONST	0x00f7								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4801       |H   |		Short_Literal	0x1
00ec 4806       |H   |		Short_Literal	0x6
00ed 00e9       |    |		Load_Encached	String_Cache
00ee 0334       | 4  |		Declare_Variable	Array,With_Constraint
00ef 500c       |P   |		Indirect_Literal	Any,0xfc,{0x5443502f, 0x49502020}
00f0 e004       |    |		Load	0x0,0x4
00f1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00f2 e004       |    |		Load	0x0,0x4
00f3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f4 e005       |    |		Load	0x0,0x5
00f5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f6 00ca       |    |		Action	Exit_Nullary_Function
00f7			TRAP_00e8:
00f7 0007       |    |		Action	Break_Optional
00f8 00ea       |    |		Load_Encached	Null_String_Cache
00f9 00ca       |    |		Action	Exit_Nullary_Function
00fa 0000 0000  |    |		.XXX[0x2]
00fc 5443 502f  |TCP/|		.LITERAL	{0x5443502f, 0x49502020}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 010d       |    |		.CONST	0x010d								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4801       |H   |		Short_Literal	0x1
0104 4806       |H   |		Short_Literal	0x6
0105 00e9       |    |		Load_Encached	String_Cache
0106 0334       | 4  |		Declare_Variable	Array,With_Constraint
0107 5008       |P   |		Indirect_Literal	Any,0x110,{0x5443502f, 0x49502020}
0108 e004       |    |		Load	0x0,0x4
0109 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
010a e006       |    |		Load	0x0,0x6
010b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
010c 00ca       |    |		Action	Exit_Nullary_Function
010d			TRAP_0100:
010d 0007       |    |		Action	Break_Optional
010e 00ea       |    |		Load_Encached	Null_String_Cache
010f 00ca       |    |		Action	Exit_Nullary_Function
0110 5443 502f  |TCP/|		.LITERAL	{0x5443502f, 0x49502020}
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e001       |    |		Load	0x0,0x1
011c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011d 4800       |H   |		Short_Literal	0x0
011e e5ff       |    |		Load	0x2,-0x1
011f e002       |    |		Load	0x0,0x2
0120 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0121 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0122 0000 0000  |    |		.BLANK	0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0131       | 1  |		.CONST	0x0131								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e001       |    |		Load	0x0,0x1
012c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012d 02c7       |    |		Declare_Variable	Any
012e e001       |    |		Load	0x0,0x1
012f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0130 a402       |    |		Store_Unchecked	0x2,0x2
0131			BODY_0128:
0131 e001       |    |		Load	0x0,0x1
0132 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0133 4802       |H   |		Short_Literal	0x2
0134 e5ff       |    |		Load	0x2,-0x1
0135 e002       |    |		Load	0x0,0x2
0136 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0137 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b e001       |    |		Load	0x0,0x1
013c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
013d 4801       |H   |		Short_Literal	0x1
013e e5ff       |    |		Load	0x2,-0x1
013f e002       |    |		Load	0x0,0x2
0140 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0141 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0142 0000 0000  |    |		.BLANK	0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b e001       |    |		Load	0x0,0x1
014c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014d 4806       |H   |		Short_Literal	0x6
014e e5ff       |    |		Load	0x2,-0x1
014f e002       |    |		Load	0x0,0x2
0150 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0151 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0152 0000 0000  |    |		.BLANK	0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b e001       |    |		Load	0x0,0x1
015c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015d 4807       |H   |		Short_Literal	0x7
015e e5ff       |    |		Load	0x2,-0x1
015f e002       |    |		Load	0x0,0x2
0160 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0161 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0192       |    |		.CONST	0x0192								; Address of begin
0169 01ba       |    |		.CONST	0x01ba								; Address of exception handler
016a 0005       |    |		.CONST	0x0005								; Number of locals
016b			INIT_0168:
016b 4801       |H   |		Short_Literal	0x1
016c 00db       |    |		Load_Top	At_Offset_3
016d 01db       |    |		Execute	Vector,Length
016e 00d8       |    |		Load_Top	At_Offset_0
016f 00e2       |    |		Load_Encached	Integer_Cache
0170 0260       | `  |		Execute	Discrete,In_Type
0171 7001       |p   |		Jump_Nonzero	0x173
0172 0801       |    |		Execute_Immediate	Raise,0x1
0173 00e9       |    |		Load_Encached	String_Cache
0174 035b       | [  |		Declare_Type	Array,Constrained
0175 0337       | 7  |		Declare_Variable	Array
0176 00db       |    |		Load_Top	At_Offset_3
0177 01dd       |    |		Execute	Vector,First
0178 e5ff       |    |		Load	0x2,-0x1
0179 01d7       |    |		Execute	Vector,Field_Read
017a e006       |    |		Load	0x0,0x6
017b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
017c e5ff       |    |		Load	0x2,-0x1
017d 01dd       |    |		Execute	Vector,First
017e 0a01       |    |		Execute_Immediate	Plus,0x1
017f 00d8       |    |		Load_Top	At_Offset_0
0180 00e2       |    |		Load_Encached	Integer_Cache
0181 0260       | `  |		Execute	Discrete,In_Type
0182 7001       |p   |		Jump_Nonzero	0x184
0183 0801       |    |		Execute_Immediate	Raise,0x1
0184 e5ff       |    |		Load	0x2,-0x1
0185 01dc       |    |		Execute	Vector,Last
0186 e5ff       |    |		Load	0x2,-0x1
0187 01cf       |    |		Execute	Vector,Slice_Read
0188 e006       |    |		Load	0x0,0x6
0189 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
018a 01ca       |    |		Execute	Vector,Prepend
018b 00d9       |    |		Load_Top	At_Offset_1
018c 01d4       |    |		Execute	Vector,Structure_Write
018d 00e3       |    |		Load_Encached	Natural_Cache
018e 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
018f 00e2       |    |		Load_Encached	Integer_Cache
0190 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
0192			BODY_0168:
0192 00cf       |    |		Action	Mark_Auxiliary
0193 00db       |    |		Load_Top	At_Offset_3
0194 e5ff       |    |		Load	0x2,-0x1
0195 01db       |    |		Execute	Vector,Length
0196 00d8       |    |		Load_Top	At_Offset_0
0197 00e2       |    |		Load_Encached	Integer_Cache
0198 0260       | `  |		Execute	Discrete,In_Type
0199 7001       |p   |		Jump_Nonzero	0x19b
019a 0801       |    |		Execute_Immediate	Raise,0x1
019b e402       |    |		Load	0x2,0x2
019c 01cf       |    |		Execute	Vector,Slice_Read
019d 8405       |    |		Call	0x2,0x5
019e 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
019f 00da       |    |		Load_Top	At_Offset_2
01a0 0a01       |    |		Execute_Immediate	Plus,0x1
01a1 c403       |    |		Store	0x2,0x3
01a2 00da       |    |		Load_Top	At_Offset_2
01a3 0f00       |    |		Execute_Immediate	Equal,0x0
01a4 e403       |    |		Load	0x2,0x3
01a5 e5ff       |    |		Load	0x2,-0x1
01a6 01db       |    |		Execute	Vector,Length
01a7 027d       | }  |		Execute	Discrete,Greater
01a8 0278       | x  |		Execute	Discrete,Or
01a9 6801       |h   |		Jump_Zero	0x1ab
01aa 780a       |x   |		Jump	0x1b5
01ab 00db       |    |		Load_Top	At_Offset_3
01ac e402       |    |		Load	0x2,0x2
01ad 01d7       |    |		Execute	Vector,Field_Read
01ae e006       |    |		Load	0x0,0x6
01af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b0 e403       |    |		Load	0x2,0x3
01b1 e402       |    |		Load	0x2,0x2
01b2 01d6       |    |		Execute	Vector,Field_Write
01b3 00c9       |    |		Action	Pop_Auxiliary_Loop
01b4 7fde       |    |		Jump	0x193
01b5 00ce       |    |		Action	Pop_Auxiliary
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 00e9       |    |		Load_Encached	String_Cache
01b8 01c6       |    |		Execute	Vector,Convert_To_Formal
01b9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ba			TRAP_0168:
01ba 0007       |    |		Action	Break_Optional
01bb e402       |    |		Load	0x2,0x2
01bc 00e9       |    |		Load_Encached	String_Cache
01bd 01c6       |    |		Execute	Vector,Convert_To_Formal
01be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 e006       |    |		Load	0x0,0x6
01c5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc e006       |    |		Load	0x0,0x6
01cd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cf 0000       |    |		.XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 01dd       |    |		.CONST	0x01dd								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 8210       |    |		Call	0x1,0x10
01d4 0092 0226  |   &|		Action	Push_String_Extended,0x226					; "<PROFILE>"
01d6 0092 0227  |   '|		Action	Push_String_Extended,0x227					; "<DIRECTORIES>"
01d8 e5ff       |    |		Load	0x2,-0x1
01d9 e007       |    |		Load	0x0,0x7
01da 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01db 8211       |    |		Call	0x1,0x11
01dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01dd			TRAP_01d0:
01dd 0007       |    |		Action	Break_Optional
01de 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 0092 0228  |   (|		Action	Push_String_Extended,0x228					; "!machine.temporary.discover_"
01e5 4800       |H   |		Short_Literal	0x0
01e6 4803       |H   |		Short_Literal	0x3
01e7 4804       |H   |		Short_Literal	0x4
01e8 e008       |    |		Load	0x0,0x8
01e9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01ea e008       |    |		Load	0x0,0x8
01eb 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01ec 01cc       |    |		Execute	Vector,Catenate
01ed 00ca       |    |		Action	Exit_Nullary_Function
01ee 0000 0000  |    |		.XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f8       |    |		.CONST	0x01f8								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 e402       |    |		Load	0x2,0x2
01f4 e003       |    |		Load	0x0,0x3
01f5 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
01f6 e003       |    |		Load	0x0,0x3
01f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f8			BODY_01f0:
01f8 4801       |H   |		Short_Literal	0x1
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa e5ff       |    |		Load	0x2,-0x1
01fb e006       |    |		Load	0x0,0x6
01fc 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01fd 6803       |h   |		Jump_Zero	0x201
01fe 4801       |H   |		Short_Literal	0x1
01ff 00cb       |    |		Action	Pop_Block_With_Result
0200 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0201 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00cf       |    |		Action	Mark_Auxiliary
020c 00db       |    |		Load_Top	At_Offset_3
020d 01d9       |    |		Execute	Vector,Reverse_Bounds
020e 0263       | c  |		Execute	Discrete,Above_Bound
020f 7013       |p   |		Jump_Nonzero	0x223
0210 00d8       |    |		Load_Top	At_Offset_0
0211 e7ff       |    |		Load	0x3,-0x1
0212 01d7       |    |		Execute	Vector,Field_Read
0213 0f5f       | _  |		Execute_Immediate	Equal,0x5f
0214 00d9       |    |		Load_Top	At_Offset_1
0215 e7ff       |    |		Load	0x3,-0x1
0216 01d7       |    |		Execute	Vector,Field_Read
0217 0f2e       | .  |		Execute_Immediate	Equal,0x2e
0218 0278       | x  |		Execute	Discrete,Or
0219 00d9       |    |		Load_Top	At_Offset_1
021a e7ff       |    |		Load	0x3,-0x1
021b 01d7       |    |		Execute	Vector,Field_Read
021c 0f21       | !  |		Execute_Immediate	Equal,0x21
021d 0278       | x  |		Execute	Discrete,Or
021e 6802       |h   |		Jump_Zero	0x221
021f 00d8       |    |		Load_Top	At_Offset_0
0220 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0221 00c8       |    |		Action	Pop_Auxiliary_Range
0222 3fed       |?   |		Loop_Increasing	0x210
0223 00ce       |    |		Action	Pop_Auxiliary
0224 4800       |H   |		Short_Literal	0x0
0225 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0226 ; --------------------------------------------------------------------------------------
0226 ; STRING TABLE
0226 ; --------------------------------------------------------------------------------------
0226 0008       |    |		.STRTAB	0x0008->0x022a							; "<PROFILE>"
0227 000f       |    |		.STRTAB	0x000f->0x022e							; "<DIRECTORIES>"
0228 001a       |    |		.STRTAB	0x001a->0x0235							; "!machine.temporary.discover_"
0229 0034       | 4  |		.STREND 0x0034->0x0243
022a 3c50 524f  |<PRO|		.STRTAB_STRINGS
0243 0000 0000  |    |		.BLANK	0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0e3a,0x0000,0x0001,0x0000
024e bdd1 957d  |   }|		.XXX[0xf3]
0250 55cd 95c9  |U   |
0252 b985 b594  |    |
0254 80f4 f881  |    |
0256 4995 b5bd  |I   |
0258 d195 7d55  |  }U|
025a cd95 c9b9  |    |
025c 85b5 9481  |    |
025e bd89 d185  |    |
0260 a5b9 9590  |    |
0262 81d5 cda5  |    |
0264 b99c 8149  |   I|
0266 c18d 7d05  |  } |
0268 8d8d 95cd  |    |
026a cd7d 55d1  | }U |
026c a5b1 a5d1  |    |
026e a595 cd49  |   I|
0270 95b5 bdd1  |    |
0272 957d 55cd  | }U |
0274 95c9 b985  |    |
0276 b594 81a5  |    |
0278 cc81 85cd  |    |
027a cdd5 b595  |    |
027c 9081 d1bc  |    |
027e 8189 9481  |    |
0280 d1a1 9481  |    |
0282 cd85 b594  |    |
0284 8185 cc81  |    |
0286 31bd 8d85  |1   |
0288 b17d 55cd  | }U |
028a 95c9 b985  |    |
028c b595 19d1  |    |
028e c0b9 4185  |  A |
0290 cdcd ddbd  |    |
0292 c991 4995  |  I |
0294 b5bd d195  |    |
0296 7d41 85cd  |}A  |
0298 cddd bdc9  |    |
029a 9081 bd89  |    |
029c d185 a5b9  |    |
029e 9590 8199  |    |
02a0 c9bd b481  |    |
02a2 d1a1 9481  |    |
02a4 b1a5 89c9  |    |
02a6 85c9 e481  |    |
02a8 cddd a5d1  |    |
02aa 8da0 8119  |    |
02ac d1c0 b941  |   A|
02ae 85cd cddd  |    |
02b0 bdc9 9149  |   I|
02b2 95b5 bdd1  |    |
02b4 957d 4185  | }A |
02b6 cdcd ddbd  |    |
02b8 c990 80f4  |    |
02ba f881 4995  |  I |
02bc b5bd d195  |    |
02be 7d41 85cd  |}A  |
02c0 cddd bdc9  |    |
02c2 9081 bd89  |    |
02c4 d185 a5b9  |    |
02c6 9590 81d5  |    |
02c8 cda5 b99c  |    |
02ca 8149 c18d  | I  |
02cc 7d05 8d8d  |}   |
02ce 95cd cd7d  |   }|
02d0 55d1 a5b1  |U   |
02d2 a5d1 a595  |    |
02d4 cd19 d1c0  |    |
02d6 b949 95b5  | I  |
02d8 bdd1 957d  |   }|
02da 11a5 c995  |    |
02dc 8dd1 bdc9  |    |
02de e549 95b5  | I  |
02e0 bdd1 957d  |   }|
02e2 11a5 c995  |    |
02e4 8dd1 bdc9  |    |
02e6 e481 bd89  |    |
02e8 d185 a5b9  |    |
02ea 9590 8199  |    |
02ec c9bd b481  |    |
02ee d1a1 9481  |    |
02f0 b1a5 89c9  |    |
02f2 85c9 e481  |    |
02f4 cddd a5d1  |    |
02f6 8da0 8119  |    |
02f8 d1c0 b949  |   I|
02fa 95b5 bdd1  |    |
02fc 957d 11a5  | }  |
02fe c995 8dd1  |    |
0300 bdc9 e549  |   I|
0302 95b5 bdd1  |    |
0304 957d 11a5  | }  |
0306 c995 8dd1  |    |
0308 bdc9 e480  |    |
030a f4f8 814d  |   M|
030c 95cd cda5  |    |
030e bdb9 7d19  |  } |
0310 d1c0 b949  |   I|
0312 95b5 bdd1  |    |
0314 957d 11a5  | }  |
0316 c995 8dd1  |    |
0318 bdc9 e549  |   I|
031a 95b5 bdd1  |    |
031c 957d 11a5  | }  |
031e c995 8dd1  |    |
0320 bdc9 e481  |    |
0322 bd89 d185  |    |
0324 a5b9 9590  |    |
0326 8199 c9bd  |    |
0328 b481 d1a1  |    |
032a 9481 cd95  |    |
032c cdcd a5bd  |    |
032e b881 cddd  |    |
0330 a5d1 8da0  |    |
0332 814d 95cd  | M  |
0334 cda5 bdb9  |    |
0336 7d19 d1c0  |}   |
0338 b949 95b5  | I  |
033a bdd1 957d  |   }|
033c 11a5 c995  |    |
033e 8dd1 bdc9  |    |
0340 e400       |    |
0341 0000 0000  |    |		.BLANK	0000[0x5]
0346 1000 3779  |  7y|		.XXX[0x1c]
0348 3400 0000  |4   |
034a 0400 0000  |    |
034c 0000 14c4  |    |
034e d0d9 1504  |    |
0350 0000 0018  |    |
0352 c8cc c4e4  |    |
0354 c0cc 0000  |    |
0356 02b0 003d  |   =|
0358 6000 0000  |`   |
035a 0140 0400  | @  |
035c 02ec 0002  |    |
035e 0000 0098  |    |
0360 0010 004c  |   L|
0362 0310 0310  |    |		.BLANK	0310[0x6]
0368 0313 8004  |    |		.XXX[0x21]
036a 6c34 04a7  |l4  |
036c 0844 0a68  | D h|
036e 00af 0848  |   H|
0370 0a68 00ef  | h  |
0372 084c 0a68  | L h|
0374 010f 0840  |   @|
0376 02fc 7448  |  tH|
0378 031c 744c  |  tL|
037a 031c 7440  |  t@|
037c 031c 02f0  |    |
037e 02ec 00ac  |    |
0380 0010 0005  |    |
0382 2028 036c  | ( l|
0384 072f 97fb  | /  |
0386 8004 60ad  |  ` |
0388 1408       |    |
0389 0000 0000  |    |		.BLANK	0000[0x6]
038f 00ec 0010  |    |		.XXX[0x14]
0391 0004 036b  |   k|
0393 97fb 8004  |    |
0395 60ad 1408  |`   |
0397 010c 0010  |    |
0399 0004 036b  |   k|
039b 8004 6095  |  ` |
039d a010 036b  |   k|
039f 8004 6067  |  `g|
03a1 17fd 1404  |    |
03a3 0000 0000  |    |		.BLANK	0000[0x4]
03a7 0010 0036  |   6|		.XXX[0x34]
03a9 4700 0000  |G   |
03ab 0004 0000  |    |
03ad 0000 0014  |    |
03af c4d0 d915  |    |
03b1 0800 0000  |    |
03b3 18c8 cce4  |    |
03b5 c4c0 cc00  |    |
03b7 0003 7000  |  p |
03b9 3d60 0000  |=`  |
03bb 0001 a004  |    |
03bd 0002 ec00  |    |
03bf 0200 0000  |    |
03c1 8000 1000  |    |
03c3 4380 046c  |C  l|
03c5 6b80 046c  |k  l|
03c7 340a 7c01  |4 | |
03c9 4d20 080c  |M   |
03cb b80a 6800  |  h |
03cd ac0a 6800  |  h |
03cf ec0a 6801  |  h |
03d1 2c02 fc74  |,  t|
03d3 3803 1c74  |8  t|
03d5 3c03 1c74  |<  t|
03d7 4003 1c02  |@   |
03d9 f002 ec00  |    |
03db 0000 0000  |    |		.BLANK	0000[0x6]
03e1 ac00 1000  |    |		.XXX[0xb]
03e3 0403 6cf0  |  l |
03e5 0797 f8f0  |    |
03e7 0397 ff80  |    |
03e9 0860 4d14  | `M |
03eb 0800       |    |
03ec 0000 0000  |    |		.BLANK	0000[0x5]
03f1 ec00 1000  |    |		.XXX[0xb]
03f3 0403 6cf0  |  l |
03f5 0797 f8f0  |    |
03f7 0397 ff80  |    |
03f9 0860 4d14  | `M |
03fb 0800       |    |
03fc 0000 0000  |    |		.BLANK	0000[0x4]