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

⟦c6b18d5b5⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4

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 0438       | 8  |		.CONST	0x0438								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 010a       |    |		.CONST	0x010a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003a       | :  |		.CONST	0x003a								; Number of locals
000b			INIT_0008:
000b 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
000d 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
000f 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0011 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0013 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0015 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0017 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0019 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
001b 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
001d 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
001f 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0021 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0023 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0025 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0027 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0029 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
002b 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
002d 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
002f 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0031 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0033 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0035 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0037 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0039 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
003b 0093 0000  |    |		push_full_address	0x0
003d 60e6       |`   |		Indirect_Literal	Discrete,0x124,{0x80000000, 0x00010000}
003e 0273       | s  |		Execute	Discrete,Plus
003f e20d       |    |		Load	0x1,0xd
0040 60df       |`   |		Indirect_Literal	Discrete,0x120,{0x00000000, 0x0000ffff}
0041 0279       | y  |		Execute	Discrete,And
0042 0273       | s  |		Execute	Discrete,Plus
0043 0129       | )  |		Execute	Any,Make_Visible
0044 4800       |H   |		Short_Literal	0x0
0045 0093 0393  |    |		push_full_address	INIT_0390
0047 02a0       |    |		Declare_Subprogram	Null_Subprogram
0048 038f       |    |		Declare_Type	Package,Defined,Visible
0049 0386       |    |		Declare_Variable	Package,Visible
004a 0093 0000  |    |		push_full_address	0x0
004c 60cf       |`   |		Indirect_Literal	Discrete,0x11c,{0x80000000, 0x00020000}
004d 0273       | s  |		Execute	Discrete,Plus
004e e20d       |    |		Load	0x1,0xd
004f 60d0       |`   |		Indirect_Literal	Discrete,0x120,{0x00000000, 0x0000ffff}
0050 0279       | y  |		Execute	Discrete,And
0051 0273       | s  |		Execute	Discrete,Plus
0052 e002       |    |		Load	0x0,0x2
0053 0273       | s  |		Execute	Discrete,Plus
0054 e20e       |    |		Load	0x1,0xe
0055 e20f       |    |		Load	0x1,0xf
0056 e210       |    |		Load	0x1,0x10
0057 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0058 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0059 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005c 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005d 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0060 e003       |    |		Load	0x0,0x3
0061 0386       |    |		Declare_Variable	Package,Visible
0062 00d8       |    |		Load_Top	At_Offset_0
0063 020f       |    |		Execute	Module,Activate
0064 0093 0000  |    |		push_full_address	0x0
0066 60b1       |`   |		Indirect_Literal	Discrete,0x118,{0x80000000, 0x00010000}
0067 0273       | s  |		Execute	Discrete,Plus
0068 e20d       |    |		Load	0x1,0xd
0069 60b6       |`   |		Indirect_Literal	Discrete,0x120,{0x00000000, 0x0000ffff}
006a 0279       | y  |		Execute	Discrete,And
006b 0273       | s  |		Execute	Discrete,Plus
006c e004       |    |		Load	0x0,0x4
006d 0273       | s  |		Execute	Discrete,Plus
006e e005       |    |		Load	0x0,0x5
006f 00da       |    |		Load_Top	At_Offset_2
0070 0098       |    |		Execute	Package,Field_Read_Dynamic
0071 e006       |    |		Load	0x0,0x6
0072 00db       |    |		Load_Top	At_Offset_3
0073 0098       |    |		Execute	Package,Field_Read_Dynamic
0074 4801       |H   |		Short_Literal	0x1
0075 e007       |    |		Load	0x0,0x7
0076 e237       | 7  |		Load	0x1,0x37
0077 0095       |    |		Execute	Package,Field_Reference_Dynamic
0078 e008       |    |		Load	0x0,0x8
0079 e237       | 7  |		Load	0x1,0x37
007a 0095       |    |		Execute	Package,Field_Reference_Dynamic
007b e009       |    |		Load	0x0,0x9
007c e237       | 7  |		Load	0x1,0x37
007d 0095       |    |		Execute	Package,Field_Reference_Dynamic
007e e00a       |    |		Load	0x0,0xa
007f e237       | 7  |		Load	0x1,0x37
0080 0095       |    |		Execute	Package,Field_Reference_Dynamic
0081 e00b       |    |		Load	0x0,0xb
0082 e237       | 7  |		Load	0x1,0x37
0083 0095       |    |		Execute	Package,Field_Reference_Dynamic
0084 e00c       |    |		Load	0x0,0xc
0085 e237       | 7  |		Load	0x1,0x37
0086 0095       |    |		Execute	Package,Field_Reference_Dynamic
0087 e00d       |    |		Load	0x0,0xd
0088 e237       | 7  |		Load	0x1,0x37
0089 0095       |    |		Execute	Package,Field_Reference_Dynamic
008a e00e       |    |		Load	0x0,0xe
008b e237       | 7  |		Load	0x1,0x37
008c 0095       |    |		Execute	Package,Field_Reference_Dynamic
008d e00f       |    |		Load	0x0,0xf
008e e237       | 7  |		Load	0x1,0x37
008f 0095       |    |		Execute	Package,Field_Reference_Dynamic
0090 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0091 e21b       |    |		Load	0x1,0x1b
0092 e21c       |    |		Load	0x1,0x1c
0093 00d8       |    |		Load_Top	At_Offset_0
0094 e21b       |    |		Load	0x1,0x1b
0095 0260       | `  |		Execute	Discrete,In_Type
0096 7001       |p   |		Jump_Nonzero	0x98
0097 0801       |    |		Execute_Immediate	Raise,0x1
0098 e010       |    |		Load	0x0,0x10
0099 0386       |    |		Declare_Variable	Package,Visible
009a 00d8       |    |		Load_Top	At_Offset_0
009b 020f       |    |		Execute	Module,Activate
009c e011       |    |		Load	0x0,0x11
009d 00d9       |    |		Load_Top	At_Offset_1
009e 0098       |    |		Execute	Package,Field_Read_Dynamic
009f 0129       | )  |		Execute	Any,Make_Visible
00a0 e012       |    |		Load	0x0,0x12
00a1 00db       |    |		Load_Top	At_Offset_3
00a2 0098       |    |		Execute	Package,Field_Read_Dynamic
00a3 0129       | )  |		Execute	Any,Make_Visible
00a4 00bf       |    |		Action	Accept_Activation
00a5 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 e013       |    |		Load	0x0,0x13
00d6 e014       |    |		Load	0x0,0x14
00d7 e238       | 8  |		Load	0x1,0x38
00d8 0098       |    |		Execute	Package,Field_Read_Dynamic
00d9 0095       |    |		Execute	Package,Field_Reference_Dynamic
00da e011       |    |		Load	0x0,0x11
00db e238       | 8  |		Load	0x1,0x38
00dc 0098       |    |		Execute	Package,Field_Read_Dynamic
00dd e015       |    |		Load	0x0,0x15
00de e014       |    |		Load	0x0,0x14
00df e238       | 8  |		Load	0x1,0x38
00e0 0098       |    |		Execute	Package,Field_Read_Dynamic
00e1 0095       |    |		Execute	Package,Field_Reference_Dynamic
00e2 e016       |    |		Load	0x0,0x16
00e3 e014       |    |		Load	0x0,0x14
00e4 e238       | 8  |		Load	0x1,0x38
00e5 0098       |    |		Execute	Package,Field_Read_Dynamic
00e6 0095       |    |		Execute	Package,Field_Reference_Dynamic
00e7 e017       |    |		Load	0x0,0x17
00e8 e014       |    |		Load	0x0,0x14
00e9 e238       | 8  |		Load	0x1,0x38
00ea 0098       |    |		Execute	Package,Field_Read_Dynamic
00eb 0095       |    |		Execute	Package,Field_Reference_Dynamic
00ec e018       |    |		Load	0x0,0x18
00ed e014       |    |		Load	0x0,0x14
00ee e238       | 8  |		Load	0x1,0x38
00ef 0098       |    |		Execute	Package,Field_Read_Dynamic
00f0 0095       |    |		Execute	Package,Field_Reference_Dynamic
00f1 e019       |    |		Load	0x0,0x19
00f2 e014       |    |		Load	0x0,0x14
00f3 e238       | 8  |		Load	0x1,0x38
00f4 0098       |    |		Execute	Package,Field_Read_Dynamic
00f5 0095       |    |		Execute	Package,Field_Reference_Dynamic
00f6 e01a       |    |		Load	0x0,0x1a
00f7 e014       |    |		Load	0x0,0x14
00f8 e238       | 8  |		Load	0x1,0x38
00f9 0098       |    |		Execute	Package,Field_Read_Dynamic
00fa 0095       |    |		Execute	Package,Field_Reference_Dynamic
00fb e01b       |    |		Load	0x0,0x1b
00fc e014       |    |		Load	0x0,0x14
00fd e238       | 8  |		Load	0x1,0x38
00fe 0098       |    |		Execute	Package,Field_Read_Dynamic
00ff 0095       |    |		Execute	Package,Field_Reference_Dynamic
0100 e01c       |    |		Load	0x0,0x1c
0101 e014       |    |		Load	0x0,0x14
0102 e238       | 8  |		Load	0x1,0x38
0103 0098       |    |		Execute	Package,Field_Read_Dynamic
0104 0095       |    |		Execute	Package,Field_Reference_Dynamic
0105 480a       |H   |		Short_Literal	0xa
0106 e236       | 6  |		Load	0x1,0x36
0107 020e       |    |		Execute	Module,Augment_Imports
0108 e236       | 6  |		Load	0x1,0x36
0109 020f       |    |		Execute	Module,Activate
010a			BODY_0008:
010a 00bc       |    |		Action	Signal_Activated
010b 00bb       |    |		Action	Signal_Completion
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 e01d       |    |		Load	0x0,0x1d
0115 e238       | 8  |		Load	0x1,0x38
0116 0096       |    |		Execute	Package,Entry
0117 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0118 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
011c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0120 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0124 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c e011       |    |		Load	0x0,0x11
012d e238       | 8  |		Load	0x1,0x38
012e 0098       |    |		Execute	Package,Field_Read_Dynamic
012f 0216       |    |		Execute	Heap_Access,Convert
0130 e01e       |    |		Load	0x0,0x1e
0131 e238       | 8  |		Load	0x1,0x38
0132 0096       |    |		Execute	Package,Entry
0133 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0134 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
013c a5fd       |    |		Store_Unchecked	0x2,-0x3
013d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013e 0000 0000  |    |		.XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014d       | M  |		.CONST	0x014d								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e005       |    |		Load	0x0,0x5
0144 e237       | 7  |		Load	0x1,0x37
0145 0098       |    |		Execute	Package,Field_Read_Dynamic
0146 0322       | "  |		Declare_Variable	Record
0147 e5fe       |    |		Load	0x2,-0x2
0148 e01f       |    |		Load	0x0,0x1f
0149 e238       | 8  |		Load	0x1,0x38
014a 0096       |    |		Execute	Package,Entry
014b 00d9       |    |		Load_Top	At_Offset_1
014c 017d       | }  |		Execute	Record,Structure_Write
014d			BODY_0140:
014d 00d8       |    |		Load_Top	At_Offset_0
014e e5ff       |    |		Load	0x2,-0x1
014f e20e       |    |		Load	0x1,0xe
0150 0119       |    |		Execute	Any,Check_In_Formal_Type
0151 e020       |    |		Load	0x0,0x20
0152 e237       | 7  |		Load	0x1,0x37
0153 0096       |    |		Execute	Package,Entry
0154 00d1       |    |		Pop_Control	Pop_Count_1
0155 e5fe       |    |		Load	0x2,-0x2
0156 e011       |    |		Load	0x0,0x11
0157 e238       | 8  |		Load	0x1,0x38
0158 0098       |    |		Execute	Package,Field_Read_Dynamic
0159 0216       |    |		Execute	Heap_Access,Convert
015a 00d9       |    |		Load_Top	At_Offset_1
015b e021       | !  |		Load	0x0,0x21
015c e238       | 8  |		Load	0x1,0x38
015d 0096       |    |		Execute	Package,Entry
015e c5fe       |    |		Store	0x2,-0x2
015f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165       | e  |		.CONST	0x0165								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0002       |    |		.CONST	0x0002								; Number of locals
0163			INIT_0160:
0163 e239       | 9  |		Load	0x1,0x39
0164 0007       |    |		Action	Break_Optional
0165			BODY_0160:
0165 00d8       |    |		Load_Top	At_Offset_0
0166 e011       |    |		Load	0x0,0x11
0167 e238       | 8  |		Load	0x1,0x38
0168 0098       |    |		Execute	Package,Field_Read_Dynamic
0169 0216       |    |		Execute	Heap_Access,Convert
016a e022       | "  |		Load	0x0,0x22
016b e237       | 7  |		Load	0x1,0x37
016c 0096       |    |		Execute	Package,Entry
016d e021       | !  |		Load	0x0,0x21
016e e238       | 8  |		Load	0x1,0x38
016f 0096       |    |		Execute	Package,Entry
0170 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0171 00d8       |    |		Load_Top	At_Offset_0
0172 00ca       |    |		Action	Exit_Nullary_Function
0173 0000 0000  |    |		.BLANK	0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c e01f       |    |		Load	0x0,0x1f
017d e238       | 8  |		Load	0x1,0x38
017e 0096       |    |		Execute	Package,Entry
017f e023       | #  |		Load	0x0,0x23
0180 e237       | 7  |		Load	0x1,0x37
0181 0096       |    |		Execute	Package,Entry
0182 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0195       |    |		.CONST	0x0195								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e005       |    |		Load	0x0,0x5
018c e237       | 7  |		Load	0x1,0x37
018d 0098       |    |		Execute	Package,Field_Read_Dynamic
018e 0322       | "  |		Declare_Variable	Record
018f 00db       |    |		Load_Top	At_Offset_3
0190 e01f       |    |		Load	0x0,0x1f
0191 e238       | 8  |		Load	0x1,0x38
0192 0096       |    |		Execute	Package,Entry
0193 00d9       |    |		Load_Top	At_Offset_1
0194 017d       | }  |		Execute	Record,Structure_Write
0195			BODY_0188:
0195 00d8       |    |		Load_Top	At_Offset_0
0196 e024       | $  |		Load	0x0,0x24
0197 e237       | 7  |		Load	0x1,0x37
0198 0096       |    |		Execute	Package,Entry
0199 00d1       |    |		Pop_Control	Pop_Count_1
019a 00db       |    |		Load_Top	At_Offset_3
019b e011       |    |		Load	0x0,0x11
019c e238       | 8  |		Load	0x1,0x38
019d 0098       |    |		Execute	Package,Field_Read_Dynamic
019e 0216       |    |		Execute	Heap_Access,Convert
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 e021       | !  |		Load	0x0,0x21
01a1 e238       | 8  |		Load	0x1,0x38
01a2 0096       |    |		Execute	Package,Entry
01a3 c5ff       |    |		Store	0x2,-0x1
01a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac e01f       |    |		Load	0x0,0x1f
01ad e238       | 8  |		Load	0x1,0x38
01ae 0096       |    |		Execute	Package,Entry
01af e025       | %  |		Load	0x0,0x25
01b0 e237       | 7  |		Load	0x1,0x37
01b1 0096       |    |		Execute	Package,Entry
01b2 e20e       |    |		Load	0x1,0xe
01b3 0119       |    |		Execute	Any,Check_In_Formal_Type
01b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd       |    |		.CONST	0x01bd								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0002       |    |		.CONST	0x0002								; Number of locals
01bb			INIT_01b8:
01bb e239       | 9  |		Load	0x1,0x39
01bc 0007       |    |		Action	Break_Optional
01bd			BODY_01b8:
01bd 00d8       |    |		Load_Top	At_Offset_0
01be e011       |    |		Load	0x0,0x11
01bf e238       | 8  |		Load	0x1,0x38
01c0 0098       |    |		Execute	Package,Field_Read_Dynamic
01c1 0216       |    |		Execute	Heap_Access,Convert
01c2 e5ff       |    |		Load	0x2,-0x1
01c3 e01f       |    |		Load	0x0,0x1f
01c4 e238       | 8  |		Load	0x1,0x38
01c5 0096       |    |		Execute	Package,Entry
01c6 e026       | &  |		Load	0x0,0x26
01c7 e237       | 7  |		Load	0x1,0x37
01c8 0096       |    |		Execute	Package,Entry
01c9 e021       | !  |		Load	0x0,0x21
01ca e238       | 8  |		Load	0x1,0x38
01cb 0096       |    |		Execute	Package,Entry
01cc 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01cd 00d8       |    |		Load_Top	At_Offset_0
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 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 e01f       |    |		Load	0x0,0x1f
01d5 e238       | 8  |		Load	0x1,0x38
01d6 0096       |    |		Execute	Package,Entry
01d7 00db       |    |		Load_Top	At_Offset_3
01d8 e01f       |    |		Load	0x0,0x1f
01d9 e238       | 8  |		Load	0x1,0x38
01da 0096       |    |		Execute	Package,Entry
01db e027       | '  |		Load	0x0,0x27
01dc e237       | 7  |		Load	0x1,0x37
01dd 0096       |    |		Execute	Package,Entry
01de 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00db       |    |		Load_Top	At_Offset_3
01e4 e20e       |    |		Load	0x1,0xe
01e5 0119       |    |		Execute	Any,Check_In_Formal_Type
01e6 00db       |    |		Load_Top	At_Offset_3
01e7 e01f       |    |		Load	0x0,0x1f
01e8 e238       | 8  |		Load	0x1,0x38
01e9 0096       |    |		Execute	Package,Entry
01ea e028       | (  |		Load	0x0,0x28
01eb e237       | 7  |		Load	0x1,0x37
01ec 0096       |    |		Execute	Package,Entry
01ed 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ee 0000 0000  |    |		.XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 e01f       |    |		Load	0x0,0x1f
01f5 e238       | 8  |		Load	0x1,0x38
01f6 0096       |    |		Execute	Package,Entry
01f7 e029       | )  |		Load	0x0,0x29
01f8 e237       | 7  |		Load	0x1,0x37
01f9 0096       |    |		Execute	Package,Entry
01fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fb 0000 0000  |    |		.BLANK	0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e012       |    |		Load	0x0,0x12
0204 e237       | 7  |		Load	0x1,0x37
0205 0098       |    |		Execute	Package,Field_Read_Dynamic
0206 00db       |    |		Load_Top	At_Offset_3
0207 e01f       |    |		Load	0x0,0x1f
0208 e238       | 8  |		Load	0x1,0x38
0209 0096       |    |		Execute	Package,Entry
020a e02a       | *  |		Load	0x0,0x2a
020b e237       | 7  |		Load	0x1,0x37
020c 0096       |    |		Execute	Package,Entry
020d c5fe       |    |		Store	0x2,-0x2
020e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020f 0000       |    |		.XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 e012       |    |		Load	0x0,0x12
0215 e237       | 7  |		Load	0x1,0x37
0216 0098       |    |		Execute	Package,Field_Read_Dynamic
0217 0226       | &  |		Execute	Access,Convert
0218 e02b       | +  |		Load	0x0,0x2b
0219 e237       | 7  |		Load	0x1,0x37
021a 0096       |    |		Execute	Package,Entry
021b 003b       | ;  |		Store_Top	Access,At_Offset_3
021c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2
0224 e02c       | ,  |		Load	0x0,0x2c
0225 e237       | 7  |		Load	0x1,0x37
0226 0096       |    |		Execute	Package,Entry
0227 e20e       |    |		Load	0x1,0xe
0228 0119       |    |		Execute	Any,Check_In_Formal_Type
0229 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022a 0000 0000  |    |		.BLANK	0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00da       |    |		Load_Top	At_Offset_2
0234 e02d       | -  |		Load	0x0,0x2d
0235 e237       | 7  |		Load	0x1,0x37
0236 0096       |    |		Execute	Package,Entry
0237 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 024f       | O  |		.CONST	0x024f								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0003       |    |		.CONST	0x0003								; Number of locals
023b			INIT_0238:
023b e005       |    |		Load	0x0,0x5
023c e237       | 7  |		Load	0x1,0x37
023d 0098       |    |		Execute	Package,Field_Read_Dynamic
023e 0322       | "  |		Declare_Variable	Record
023f 00db       |    |		Load_Top	At_Offset_3
0240 e01f       |    |		Load	0x0,0x1f
0241 e238       | 8  |		Load	0x1,0x38
0242 0096       |    |		Execute	Package,Entry
0243 00d9       |    |		Load_Top	At_Offset_1
0244 017d       | }  |		Execute	Record,Structure_Write
0245 e005       |    |		Load	0x0,0x5
0246 e237       | 7  |		Load	0x1,0x37
0247 0098       |    |		Execute	Package,Field_Read_Dynamic
0248 0322       | "  |		Declare_Variable	Record
0249 e5fe       |    |		Load	0x2,-0x2
024a e01f       |    |		Load	0x0,0x1f
024b e238       | 8  |		Load	0x1,0x38
024c 0096       |    |		Execute	Package,Entry
024d 00d9       |    |		Load_Top	At_Offset_1
024e 017d       | }  |		Execute	Record,Structure_Write
024f			BODY_0238:
024f 00d8       |    |		Load_Top	At_Offset_0
0250 00da       |    |		Load_Top	At_Offset_2
0251 e02e       | .  |		Load	0x0,0x2e
0252 e237       | 7  |		Load	0x1,0x37
0253 0096       |    |		Execute	Package,Entry
0254 00d2       |    |		Pop_Control	Pop_Count_2
0255 e5ff       |    |		Load	0x2,-0x1
0256 e011       |    |		Load	0x0,0x11
0257 e238       | 8  |		Load	0x1,0x38
0258 0098       |    |		Execute	Package,Field_Read_Dynamic
0259 0216       |    |		Execute	Heap_Access,Convert
025a 00da       |    |		Load_Top	At_Offset_2
025b e021       | !  |		Load	0x0,0x21
025c e238       | 8  |		Load	0x1,0x38
025d 0096       |    |		Execute	Package,Entry
025e c5ff       |    |		Store	0x2,-0x1
025f e5fe       |    |		Load	0x2,-0x2
0260 e011       |    |		Load	0x0,0x11
0261 e238       | 8  |		Load	0x1,0x38
0262 0098       |    |		Execute	Package,Field_Read_Dynamic
0263 0216       |    |		Execute	Heap_Access,Convert
0264 00d9       |    |		Load_Top	At_Offset_1
0265 e021       | !  |		Load	0x0,0x21
0266 e238       | 8  |		Load	0x1,0x38
0267 0096       |    |		Execute	Package,Entry
0268 c5fe       |    |		Store	0x2,-0x2
0269 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
026a 0000 0000  |    |		.BLANK	0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0287       |    |		.CONST	0x0287								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0003       |    |		.CONST	0x0003								; Number of locals
0273			INIT_0270:
0273 e005       |    |		Load	0x0,0x5
0274 e237       | 7  |		Load	0x1,0x37
0275 0098       |    |		Execute	Package,Field_Read_Dynamic
0276 0322       | "  |		Declare_Variable	Record
0277 e5fe       |    |		Load	0x2,-0x2
0278 e01f       |    |		Load	0x0,0x1f
0279 e238       | 8  |		Load	0x1,0x38
027a 0096       |    |		Execute	Package,Entry
027b 00d9       |    |		Load_Top	At_Offset_1
027c 017d       | }  |		Execute	Record,Structure_Write
027d e005       |    |		Load	0x0,0x5
027e e237       | 7  |		Load	0x1,0x37
027f 0098       |    |		Execute	Package,Field_Read_Dynamic
0280 0322       | "  |		Declare_Variable	Record
0281 e5fd       |    |		Load	0x2,-0x3
0282 e01f       |    |		Load	0x0,0x1f
0283 e238       | 8  |		Load	0x1,0x38
0284 0096       |    |		Execute	Package,Entry
0285 00d9       |    |		Load_Top	At_Offset_1
0286 017d       | }  |		Execute	Record,Structure_Write
0287			BODY_0270:
0287 00d8       |    |		Load_Top	At_Offset_0
0288 00da       |    |		Load_Top	At_Offset_2
0289 e5ff       |    |		Load	0x2,-0x1
028a e02f       | /  |		Load	0x0,0x2f
028b e237       | 7  |		Load	0x1,0x37
028c 0096       |    |		Execute	Package,Entry
028d 00d2       |    |		Pop_Control	Pop_Count_2
028e e5fe       |    |		Load	0x2,-0x2
028f e011       |    |		Load	0x0,0x11
0290 e238       | 8  |		Load	0x1,0x38
0291 0098       |    |		Execute	Package,Field_Read_Dynamic
0292 0216       |    |		Execute	Heap_Access,Convert
0293 00da       |    |		Load_Top	At_Offset_2
0294 e021       | !  |		Load	0x0,0x21
0295 e238       | 8  |		Load	0x1,0x38
0296 0096       |    |		Execute	Package,Entry
0297 c5fe       |    |		Store	0x2,-0x2
0298 e5fd       |    |		Load	0x2,-0x3
0299 e011       |    |		Load	0x0,0x11
029a e238       | 8  |		Load	0x1,0x38
029b 0098       |    |		Execute	Package,Field_Read_Dynamic
029c 0216       |    |		Execute	Heap_Access,Convert
029d 00d9       |    |		Load_Top	At_Offset_1
029e e021       | !  |		Load	0x0,0x21
029f e238       | 8  |		Load	0x1,0x38
02a0 0096       |    |		Execute	Package,Entry
02a1 c5fd       |    |		Store	0x2,-0x3
02a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a3 0000 0000  |    |		.BLANK	0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b5       |    |		.CONST	0x02b5								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0002       |    |		.CONST	0x0002								; Number of locals
02ab			INIT_02a8:
02ab e005       |    |		Load	0x0,0x5
02ac e237       | 7  |		Load	0x1,0x37
02ad 0098       |    |		Execute	Package,Field_Read_Dynamic
02ae 0322       | "  |		Declare_Variable	Record
02af e5fd       |    |		Load	0x2,-0x3
02b0 e01f       |    |		Load	0x0,0x1f
02b1 e238       | 8  |		Load	0x1,0x38
02b2 0096       |    |		Execute	Package,Entry
02b3 00d9       |    |		Load_Top	At_Offset_1
02b4 017d       | }  |		Execute	Record,Structure_Write
02b5			BODY_02a8:
02b5 00d8       |    |		Load_Top	At_Offset_0
02b6 e5fe       |    |		Load	0x2,-0x2
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 e20e       |    |		Load	0x1,0xe
02b9 0119       |    |		Execute	Any,Check_In_Formal_Type
02ba e030       | 0  |		Load	0x0,0x30
02bb e237       | 7  |		Load	0x1,0x37
02bc 0096       |    |		Execute	Package,Entry
02bd 00d1       |    |		Pop_Control	Pop_Count_1
02be e5fd       |    |		Load	0x2,-0x3
02bf e011       |    |		Load	0x0,0x11
02c0 e238       | 8  |		Load	0x1,0x38
02c1 0098       |    |		Execute	Package,Field_Read_Dynamic
02c2 0216       |    |		Execute	Heap_Access,Convert
02c3 00d9       |    |		Load_Top	At_Offset_1
02c4 e021       | !  |		Load	0x0,0x21
02c5 e238       | 8  |		Load	0x1,0x38
02c6 0096       |    |		Execute	Package,Entry
02c7 c5fd       |    |		Store	0x2,-0x3
02c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c9 0000 0000  |    |		.BLANK	0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e7       |    |		.CONST	0x02e7								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0003       |    |		.CONST	0x0003								; Number of locals
02d3			INIT_02d0:
02d3 e005       |    |		Load	0x0,0x5
02d4 e237       | 7  |		Load	0x1,0x37
02d5 0098       |    |		Execute	Package,Field_Read_Dynamic
02d6 0322       | "  |		Declare_Variable	Record
02d7 e5fe       |    |		Load	0x2,-0x2
02d8 e01f       |    |		Load	0x0,0x1f
02d9 e238       | 8  |		Load	0x1,0x38
02da 0096       |    |		Execute	Package,Entry
02db 00d9       |    |		Load_Top	At_Offset_1
02dc 017d       | }  |		Execute	Record,Structure_Write
02dd e005       |    |		Load	0x0,0x5
02de e237       | 7  |		Load	0x1,0x37
02df 0098       |    |		Execute	Package,Field_Read_Dynamic
02e0 0322       | "  |		Declare_Variable	Record
02e1 e5fd       |    |		Load	0x2,-0x3
02e2 e01f       |    |		Load	0x0,0x1f
02e3 e238       | 8  |		Load	0x1,0x38
02e4 0096       |    |		Execute	Package,Entry
02e5 00d9       |    |		Load_Top	At_Offset_1
02e6 017d       | }  |		Execute	Record,Structure_Write
02e7			BODY_02d0:
02e7 00d8       |    |		Load_Top	At_Offset_0
02e8 00da       |    |		Load_Top	At_Offset_2
02e9 e5ff       |    |		Load	0x2,-0x1
02ea e031       | 1  |		Load	0x0,0x31
02eb e237       | 7  |		Load	0x1,0x37
02ec 0096       |    |		Execute	Package,Entry
02ed 00d2       |    |		Pop_Control	Pop_Count_2
02ee e5fe       |    |		Load	0x2,-0x2
02ef e011       |    |		Load	0x0,0x11
02f0 e238       | 8  |		Load	0x1,0x38
02f1 0098       |    |		Execute	Package,Field_Read_Dynamic
02f2 0216       |    |		Execute	Heap_Access,Convert
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 e021       | !  |		Load	0x0,0x21
02f5 e238       | 8  |		Load	0x1,0x38
02f6 0096       |    |		Execute	Package,Entry
02f7 c5fe       |    |		Store	0x2,-0x2
02f8 e5fd       |    |		Load	0x2,-0x3
02f9 e011       |    |		Load	0x0,0x11
02fa e238       | 8  |		Load	0x1,0x38
02fb 0098       |    |		Execute	Package,Field_Read_Dynamic
02fc 0216       |    |		Execute	Heap_Access,Convert
02fd 00d9       |    |		Load_Top	At_Offset_1
02fe e021       | !  |		Load	0x0,0x21
02ff e238       | 8  |		Load	0x1,0x38
0300 0096       |    |		Execute	Package,Entry
0301 c5fd       |    |		Store	0x2,-0x3
0302 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0315       |    |		.CONST	0x0315								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b e005       |    |		Load	0x0,0x5
030c e237       | 7  |		Load	0x1,0x37
030d 0098       |    |		Execute	Package,Field_Read_Dynamic
030e 0322       | "  |		Declare_Variable	Record
030f e5fe       |    |		Load	0x2,-0x2
0310 e01f       |    |		Load	0x0,0x1f
0311 e238       | 8  |		Load	0x1,0x38
0312 0096       |    |		Execute	Package,Entry
0313 00d9       |    |		Load_Top	At_Offset_1
0314 017d       | }  |		Execute	Record,Structure_Write
0315			BODY_0308:
0315 00d8       |    |		Load_Top	At_Offset_0
0316 e5ff       |    |		Load	0x2,-0x1
0317 e20e       |    |		Load	0x1,0xe
0318 0119       |    |		Execute	Any,Check_In_Formal_Type
0319 e032       | 2  |		Load	0x0,0x32
031a e237       | 7  |		Load	0x1,0x37
031b 0096       |    |		Execute	Package,Entry
031c 00d1       |    |		Pop_Control	Pop_Count_1
031d e5fe       |    |		Load	0x2,-0x2
031e e011       |    |		Load	0x0,0x11
031f e238       | 8  |		Load	0x1,0x38
0320 0098       |    |		Execute	Package,Field_Read_Dynamic
0321 0216       |    |		Execute	Heap_Access,Convert
0322 00d9       |    |		Load_Top	At_Offset_1
0323 e021       | !  |		Load	0x0,0x21
0324 e238       | 8  |		Load	0x1,0x38
0325 0096       |    |		Execute	Package,Entry
0326 c5fe       |    |		Store	0x2,-0x2
0327 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0335       | 5  |		.CONST	0x0335								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b e005       |    |		Load	0x0,0x5
032c e237       | 7  |		Load	0x1,0x37
032d 0098       |    |		Execute	Package,Field_Read_Dynamic
032e 0322       | "  |		Declare_Variable	Record
032f e5fe       |    |		Load	0x2,-0x2
0330 e01f       |    |		Load	0x0,0x1f
0331 e238       | 8  |		Load	0x1,0x38
0332 0096       |    |		Execute	Package,Entry
0333 00d9       |    |		Load_Top	At_Offset_1
0334 017d       | }  |		Execute	Record,Structure_Write
0335			BODY_0328:
0335 00d8       |    |		Load_Top	At_Offset_0
0336 e5ff       |    |		Load	0x2,-0x1
0337 e01f       |    |		Load	0x0,0x1f
0338 e238       | 8  |		Load	0x1,0x38
0339 0096       |    |		Execute	Package,Entry
033a e033       | 3  |		Load	0x0,0x33
033b e237       | 7  |		Load	0x1,0x37
033c 0096       |    |		Execute	Package,Entry
033d 00d1       |    |		Pop_Control	Pop_Count_1
033e e5fe       |    |		Load	0x2,-0x2
033f e011       |    |		Load	0x0,0x11
0340 e238       | 8  |		Load	0x1,0x38
0341 0098       |    |		Execute	Package,Field_Read_Dynamic
0342 0216       |    |		Execute	Heap_Access,Convert
0343 00d9       |    |		Load_Top	At_Offset_1
0344 e021       | !  |		Load	0x0,0x21
0345 e238       | 8  |		Load	0x1,0x38
0346 0096       |    |		Execute	Package,Entry
0347 c5fe       |    |		Store	0x2,-0x2
0348 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0349 0000 0000  |    |		.BLANK	0000[0x7]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035d       | ]  |		.CONST	0x035d								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0002       |    |		.CONST	0x0002								; Number of locals
0353			INIT_0350:
0353 e005       |    |		Load	0x0,0x5
0354 e237       | 7  |		Load	0x1,0x37
0355 0098       |    |		Execute	Package,Field_Read_Dynamic
0356 0322       | "  |		Declare_Variable	Record
0357 e5fe       |    |		Load	0x2,-0x2
0358 e01f       |    |		Load	0x0,0x1f
0359 e238       | 8  |		Load	0x1,0x38
035a 0096       |    |		Execute	Package,Entry
035b 00d9       |    |		Load_Top	At_Offset_1
035c 017d       | }  |		Execute	Record,Structure_Write
035d			BODY_0350:
035d 00d8       |    |		Load_Top	At_Offset_0
035e e5ff       |    |		Load	0x2,-0x1
035f e034       | 4  |		Load	0x0,0x34
0360 e237       | 7  |		Load	0x1,0x37
0361 0096       |    |		Execute	Package,Entry
0362 00d1       |    |		Pop_Control	Pop_Count_1
0363 e5fe       |    |		Load	0x2,-0x2
0364 e011       |    |		Load	0x0,0x11
0365 e238       | 8  |		Load	0x1,0x38
0366 0098       |    |		Execute	Package,Field_Read_Dynamic
0367 0216       |    |		Execute	Heap_Access,Convert
0368 00d9       |    |		Load_Top	At_Offset_1
0369 e021       | !  |		Load	0x0,0x21
036a e238       | 8  |		Load	0x1,0x38
036b 0096       |    |		Execute	Package,Entry
036c c5fe       |    |		Store	0x2,-0x2
036d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
036e 0000 0000  |    |		.XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0379       | y  |		.CONST	0x0379								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0003       |    |		.CONST	0x0003								; Number of locals
0373			INIT_0370:
0373 e005       |    |		Load	0x0,0x5
0374 e237       | 7  |		Load	0x1,0x37
0375 0098       |    |		Execute	Package,Field_Read_Dynamic
0376 0322       | "  |		Declare_Variable	Record
0377 e239       | 9  |		Load	0x1,0x39
0378 0007       |    |		Action	Break_Optional
0379			BODY_0370:
0379 e5ff       |    |		Load	0x2,-0x1
037a e01f       |    |		Load	0x0,0x1f
037b e238       | 8  |		Load	0x1,0x38
037c 0096       |    |		Execute	Package,Entry
037d e035       | 5  |		Load	0x0,0x35
037e e237       | 7  |		Load	0x1,0x37
037f 0096       |    |		Execute	Package,Entry
0380 00da       |    |		Load_Top	At_Offset_2
0381 017d       | }  |		Execute	Record,Structure_Write
0382 00d8       |    |		Load_Top	At_Offset_0
0383 e011       |    |		Load	0x0,0x11
0384 e238       | 8  |		Load	0x1,0x38
0385 0098       |    |		Execute	Package,Field_Read_Dynamic
0386 0216       |    |		Execute	Heap_Access,Convert
0387 00da       |    |		Load_Top	At_Offset_2
0388 e021       | !  |		Load	0x0,0x21
0389 e238       | 8  |		Load	0x1,0x38
038a 0096       |    |		Execute	Package,Entry
038b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
038c 00d8       |    |		Load_Top	At_Offset_0
038d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038e 0000 0000  |    |		.XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03b8       |    |		.CONST	0x03b8								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0015       |    |		.CONST	0x0015								; Number of locals
0393			INIT_0390:
0393 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0395 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0397 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0399 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
039b 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
039d 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
039f 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
03a1 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated
03a3 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
03a5 00bf       |    |		Action	Accept_Activation
03a6 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
03a7 00c7       |    |		Action	Elaborate_Subprogram
03a8 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
03a9 00c7       |    |		Action	Elaborate_Subprogram
03aa 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
03ab 00c7       |    |		Action	Elaborate_Subprogram
03ac 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
03ad 00c7       |    |		Action	Elaborate_Subprogram
03ae 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
03af 00c7       |    |		Action	Elaborate_Subprogram
03b0 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
03b1 00c7       |    |		Action	Elaborate_Subprogram
03b2 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
03b3 00c7       |    |		Action	Elaborate_Subprogram
03b4 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
03b5 00c7       |    |		Action	Elaborate_Subprogram
03b6 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
03b7 00c7       |    |		Action	Elaborate_Subprogram
03b8			BODY_0390:
03b8 00bc       |    |		Action	Signal_Activated
03b9 00bb       |    |		Action	Signal_Completion
03ba 0000 0000  |    |		.BLANK	0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 00db       |    |		Load_Top	At_Offset_3
03c4 00db       |    |		Load_Top	At_Offset_3
03c5 8001       |    |		Call	0x0,0x1
03c6 c5fe       |    |		Store	0x2,-0x2
03c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb e5fd       |    |		Load	0x2,-0x3
03cc e002       |    |		Load	0x0,0x2
03cd 0216       |    |		Execute	Heap_Access,Convert
03ce e5fe       |    |		Load	0x2,-0x2
03cf e5ff       |    |		Load	0x2,-0x1
03d0 8003       |    |		Call	0x0,0x3
03d1 c5fd       |    |		Store	0x2,-0x3
03d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d3 0000 0000  |    |		.BLANK	0000[0x5]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00db       |    |		Load_Top	At_Offset_3
03dc e002       |    |		Load	0x0,0x2
03dd 0216       |    |		Execute	Heap_Access,Convert
03de 00db       |    |		Load_Top	At_Offset_3
03df 8004       |    |		Call	0x0,0x4
03e0 c5fe       |    |		Store	0x2,-0x2
03e1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e2 0000 0000  |    |		.BLANK	0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 00da       |    |		Load_Top	At_Offset_2
03ec 8005       |    |		Call	0x0,0x5
03ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ee 0000 0000  |    |		.XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 e002       |    |		Load	0x0,0x2
03f5 0216       |    |		Execute	Heap_Access,Convert
03f6 8006       |    |		Call	0x0,0x6
03f7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
03f8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03f9 0000 0000  |    |		.BLANK	0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00db       |    |		Load_Top	At_Offset_3
0404 e002       |    |		Load	0x0,0x2
0405 0216       |    |		Execute	Heap_Access,Convert
0406 00db       |    |		Load_Top	At_Offset_3
0407 8007       |    |		Call	0x0,0x7
0408 c5fe       |    |		Store	0x2,-0x2
0409 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
040a 0000 0000  |    |		.BLANK	0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 00db       |    |		Load_Top	At_Offset_3
0414 e002       |    |		Load	0x0,0x2
0415 0216       |    |		Execute	Heap_Access,Convert
0416 00db       |    |		Load_Top	At_Offset_3
0417 8008       |    |		Call	0x0,0x8
0418 c5fe       |    |		Store	0x2,-0x2
0419 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
041a 0000 0000  |    |		.BLANK	0000[0x6]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 00da       |    |		Load_Top	At_Offset_2
0424 8009       |    |		Call	0x0,0x9
0425 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0426 0000 0000  |    |		.XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00db       |    |		Load_Top	At_Offset_3
042c e002       |    |		Load	0x0,0x2
042d 0216       |    |		Execute	Heap_Access,Convert
042e 00db       |    |		Load_Top	At_Offset_3
042f 800a       |    |		Call	0x0,0xa
0430 c5fe       |    |		Store	0x2,-0x2
0431 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0432 0000 0000  |    |		.BLANK	0000[0x6]
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug Table
0438 ; --------------------------------------------------------------------------------------
0438 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0xfc2b,0x0000,0x0001,0x0000
043e 0000 0000  |    |		.BLANK	0000[0x1c2]