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

⟦1f1bf174b⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 06a8       |    |		.CONST	0x06a8								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0034       | 4  |		.CONST	0x0034								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001a       |    |		.CONST	0x001a								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
000f 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0011 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0013 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
0015 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0017 00bf       |    |		Action	Accept_Activation
0018 029d 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call
001a 029d 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call
001c 029d 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call
001e 029d 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call
0020 029d 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call
0022 029d 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call
0024 029d 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call
0026 029d 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call
0028 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0033 00c7       |    |		Action	Elaborate_Subprogram
0034			BODY_0008:
0034 00bc       |    |		Action	Signal_Activated
0035 00bb       |    |		Action	Signal_Completion
0036 0000 0000  |    |		.XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0046       | F  |		.CONST	0x0046								; Address of begin
0039 009c       |    |		.CONST	0x009c								; Address of exception handler
003a 0003       |    |		.CONST	0x0003								; Number of locals
003b			INIT_0038:
003b e001       |    |		Load	0x0,0x1
003c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
003e 02c7       |    |		Declare_Variable	Any
003f e001       |    |		Load	0x0,0x1
0040 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0041 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0042 a402       |    |		Store_Unchecked	0x2,0x2
0043 e002       |    |		Load	0x0,0x2
0044 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0045 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0046			BODY_0038:
0046 4800       |H   |		Short_Literal	0x0
0047 a5f4       |    |		Store_Unchecked	0x2,-0xc
0048 e002       |    |		Load	0x0,0x2
0049 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004a 00da       |    |		Load_Top	At_Offset_2
004b e5f5       |    |		Load	0x2,-0xb
004c e5ff       |    |		Load	0x2,-0x1
004d 8213       |    |		Call	0x1,0x13
004e c402       |    |		Store	0x2,0x2
004f c5f4       |    |		Store	0x2,-0xc
0050 e5f5       |    |		Load	0x2,-0xb
0051 00da       |    |		Load_Top	At_Offset_2
0052 8214       |    |		Call	0x1,0x14
0053 7024       |p$  |		Jump_Nonzero	0x78
0054 e5f5       |    |		Load	0x2,-0xb
0055 4801       |H   |		Short_Literal	0x1
0056 4802       |H   |		Short_Literal	0x2
0057 e003       |    |		Load	0x0,0x3
0058 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0059 035b       | [  |		Declare_Type	Array,Constrained
005a 0337       | 7  |		Declare_Variable	Array
005b e5ff       |    |		Load	0x2,-0x1
005c e003       |    |		Load	0x0,0x3
005d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
005e e003       |    |		Load	0x0,0x3
005f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0060 0119       |    |		Execute	Any,Check_In_Formal_Type
0061 4801       |H   |		Short_Literal	0x1
0062 00da       |    |		Load_Top	At_Offset_2
0063 01d6       |    |		Execute	Vector,Field_Write
0064 0092 062f  |   /|		Action	Push_String_Extended,0x62f					; "Operation mode must be Batch"
0066 e003       |    |		Load	0x0,0x3
0067 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0068 e003       |    |		Load	0x0,0x3
0069 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006a 0119       |    |		Execute	Any,Check_In_Formal_Type
006b 4802       |H   |		Short_Literal	0x2
006c 00da       |    |		Load_Top	At_Offset_2
006d 01d6       |    |		Execute	Vector,Field_Write
006e 6081       |`   |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081fc}
006f e002       |    |		Load	0x0,0x2
0070 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0071 e003       |    |		Load	0x0,0x3
0072 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0073 607c       |`|  |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081fc}
0074 e002       |    |		Load	0x0,0x2
0075 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0076 a5f4       |    |		Store_Unchecked	0x2,-0xc
0077 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0078 e002       |    |		Load	0x0,0x2
0079 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007a e5f5       |    |		Load	0x2,-0xb
007b e5f9       |    |		Load	0x2,-0x7
007c e5fa       |    |		Load	0x2,-0x6
007d e5fb       |    |		Load	0x2,-0x5
007e e5fc       |    |		Load	0x2,-0x4
007f 8217       |    |		Call	0x1,0x17
0080 c5f4       |    |		Store	0x2,-0xc
0081 e5f5       |    |		Load	0x2,-0xb
0082 e5f8       |    |		Load	0x2,-0x8
0083 e5f6       |    |		Load	0x2,-0xa
0084 e5ff       |    |		Load	0x2,-0x1
0085 8215       |    |		Call	0x1,0x15
0086 e002       |    |		Load	0x0,0x2
0087 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0088 e5f5       |    |		Load	0x2,-0xb
0089 e5f7       |    |		Load	0x2,-0x9
008a 4800       |H   |		Short_Literal	0x0
008b e5f8       |    |		Load	0x2,-0x8
008c e5f9       |    |		Load	0x2,-0x7
008d e5fa       |    |		Load	0x2,-0x6
008e 821a       |    |		Call	0x1,0x1a
008f e5fb       |    |		Load	0x2,-0x5
0090 8219       |    |		Call	0x1,0x19
0091 e5fc       |    |		Load	0x2,-0x4
0092 8218       |    |		Call	0x1,0x18
0093 e5fd       |    |		Load	0x2,-0x3
0094 e5fe       |    |		Load	0x2,-0x2
0095 e402       |    |		Load	0x2,0x2
0096 e004       |    |		Load	0x0,0x4
0097 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0098 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0099 00d8       |    |		Load_Top	At_Offset_0
009a a5f4       |    |		Store_Unchecked	0x2,-0xc
009b 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
009c			TRAP_0038:
009c e005       |    |		Load	0x0,0x5
009d 010f       |    |		Execute	Exception,Equal
009e 6823       |h#  |		Jump_Zero	0xc2
009f e5f5       |    |		Load	0x2,-0xb
00a0 4801       |H   |		Short_Literal	0x1
00a1 4802       |H   |		Short_Literal	0x2
00a2 e003       |    |		Load	0x0,0x3
00a3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a4 035b       | [  |		Declare_Type	Array,Constrained
00a5 0337       | 7  |		Declare_Variable	Array
00a6 e5ff       |    |		Load	0x2,-0x1
00a7 e003       |    |		Load	0x0,0x3
00a8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00a9 e003       |    |		Load	0x0,0x3
00aa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ab 0119       |    |		Execute	Any,Check_In_Formal_Type
00ac 4801       |H   |		Short_Literal	0x1
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 01d6       |    |		Execute	Vector,Field_Write
00af 00ea       |    |		Load_Encached	Null_String_Cache
00b0 e003       |    |		Load	0x0,0x3
00b1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00b2 e003       |    |		Load	0x0,0x3
00b3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b4 0119       |    |		Execute	Any,Check_In_Formal_Type
00b5 4802       |H   |		Short_Literal	0x2
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 01d6       |    |		Execute	Vector,Field_Write
00b8 6037       |`7  |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081fc}
00b9 e002       |    |		Load	0x0,0x2
00ba 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00bb e003       |    |		Load	0x0,0x3
00bc 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00bd 6032       |`2  |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081fc}
00be e002       |    |		Load	0x0,0x2
00bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c0 a5f4       |    |		Store_Unchecked	0x2,-0xc
00c1 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
00c2 e5f5       |    |		Load	0x2,-0xb
00c3 4801       |H   |		Short_Literal	0x1
00c4 4802       |H   |		Short_Literal	0x2
00c5 e003       |    |		Load	0x0,0x3
00c6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c7 035b       | [  |		Declare_Type	Array,Constrained
00c8 0337       | 7  |		Declare_Variable	Array
00c9 e5ff       |    |		Load	0x2,-0x1
00ca e003       |    |		Load	0x0,0x3
00cb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00cc e003       |    |		Load	0x0,0x3
00cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ce 0119       |    |		Execute	Any,Check_In_Formal_Type
00cf 4801       |H   |		Short_Literal	0x1
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 01d6       |    |		Execute	Vector,Field_Write
00d2 0092 0630  |   0|		Action	Push_String_Extended,0x630					; "Unexpected exception "
00d4 4800       |H   |		Short_Literal	0x0
00d5 4801       |H   |		Short_Literal	0x1
00d6 e006       |    |		Load	0x0,0x6
00d7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00d8 01cc       |    |		Execute	Vector,Catenate
00d9 0092 0631  |   1|		Action	Push_String_Extended,0x631					; " was raised"
00db 01cc       |    |		Execute	Vector,Catenate
00dc e003       |    |		Load	0x0,0x3
00dd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00de e003       |    |		Load	0x0,0x3
00df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e0 0119       |    |		Execute	Any,Check_In_Formal_Type
00e1 4802       |H   |		Short_Literal	0x2
00e2 00da       |    |		Load_Top	At_Offset_2
00e3 01d6       |    |		Execute	Vector,Field_Write
00e4 600b       |`   |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081fc}
00e5 e002       |    |		Load	0x0,0x2
00e6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00e7 e003       |    |		Load	0x0,0x3
00e8 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00e9 6006       |`   |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081fc}
00ea e002       |    |		Load	0x0,0x2
00eb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ec a5f4       |    |		Store_Unchecked	0x2,-0xc
00ed 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
00ee 0000 0000  |    |		.XXX[0x2]
00f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081fc}
00f4 0000 0000  |    |		.BLANK	0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0106       |    |		.CONST	0x0106								; Address of begin
00f9 0177       | w  |		.CONST	0x0177								; Address of exception handler
00fa 0003       |    |		.CONST	0x0003								; Number of locals
00fb			INIT_00f8:
00fb e001       |    |		Load	0x0,0x1
00fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
00fe 02c7       |    |		Declare_Variable	Any
00ff e001       |    |		Load	0x0,0x1
0100 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0101 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0102 a402       |    |		Store_Unchecked	0x2,0x2
0103 e002       |    |		Load	0x0,0x2
0104 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0105 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0106			BODY_00f8:
0106 4800       |H   |		Short_Literal	0x0
0107 a5f2       |    |		Store_Unchecked	0x2,-0xe
0108 e002       |    |		Load	0x0,0x2
0109 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010a 00da       |    |		Load_Top	At_Offset_2
010b e5f3       |    |		Load	0x2,-0xd
010c e5ff       |    |		Load	0x2,-0x1
010d 8213       |    |		Call	0x1,0x13
010e c402       |    |		Store	0x2,0x2
010f c5f2       |    |		Store	0x2,-0xe
0110 e5f3       |    |		Load	0x2,-0xd
0111 00da       |    |		Load_Top	At_Offset_2
0112 8214       |    |		Call	0x1,0x14
0113 7024       |p$  |		Jump_Nonzero	0x138
0114 e5f3       |    |		Load	0x2,-0xd
0115 4801       |H   |		Short_Literal	0x1
0116 4802       |H   |		Short_Literal	0x2
0117 e003       |    |		Load	0x0,0x3
0118 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0119 035b       | [  |		Declare_Type	Array,Constrained
011a 0337       | 7  |		Declare_Variable	Array
011b e5ff       |    |		Load	0x2,-0x1
011c e003       |    |		Load	0x0,0x3
011d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
011e e003       |    |		Load	0x0,0x3
011f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0120 0119       |    |		Execute	Any,Check_In_Formal_Type
0121 4801       |H   |		Short_Literal	0x1
0122 00da       |    |		Load_Top	At_Offset_2
0123 01d6       |    |		Execute	Vector,Field_Write
0124 0092 062f  |   /|		Action	Push_String_Extended,0x62f					; "Operation mode must be Batch"
0126 e003       |    |		Load	0x0,0x3
0127 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0128 e003       |    |		Load	0x0,0x3
0129 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012a 0119       |    |		Execute	Any,Check_In_Formal_Type
012b 4802       |H   |		Short_Literal	0x2
012c 00da       |    |		Load_Top	At_Offset_2
012d 01d6       |    |		Execute	Vector,Field_Write
012e 609d       |`   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000820c}
012f e002       |    |		Load	0x0,0x2
0130 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0131 e003       |    |		Load	0x0,0x3
0132 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0133 6098       |`   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000820c}
0134 e002       |    |		Load	0x0,0x2
0135 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0136 a5f2       |    |		Store_Unchecked	0x2,-0xe
0137 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0138 e002       |    |		Load	0x0,0x2
0139 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013a e5f3       |    |		Load	0x2,-0xd
013b 4800       |H   |		Short_Literal	0x0
013c e5fb       |    |		Load	0x2,-0x5
013d e5fc       |    |		Load	0x2,-0x4
013e e5fd       |    |		Load	0x2,-0x3
013f 8217       |    |		Call	0x1,0x17
0140 c5f2       |    |		Store	0x2,-0xe
0141 e5f3       |    |		Load	0x2,-0xd
0142 e5f6       |    |		Load	0x2,-0xa
0143 e5f4       |    |		Load	0x2,-0xc
0144 e5ff       |    |		Load	0x2,-0x1
0145 8215       |    |		Call	0x1,0x15
0146 e002       |    |		Load	0x0,0x2
0147 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0148 e5f3       |    |		Load	0x2,-0xd
0149 e5f5       |    |		Load	0x2,-0xb
014a 4801       |H   |		Short_Literal	0x1
014b e5f6       |    |		Load	0x2,-0xa
014c 4800       |H   |		Short_Literal	0x0
014d e5fb       |    |		Load	0x2,-0x5
014e 821a       |    |		Call	0x1,0x1a
014f e5fc       |    |		Load	0x2,-0x4
0150 8219       |    |		Call	0x1,0x19
0151 e5fd       |    |		Load	0x2,-0x3
0152 8218       |    |		Call	0x1,0x18
0153 4800       |H   |		Short_Literal	0x0
0154 e5fe       |    |		Load	0x2,-0x2
0155 e402       |    |		Load	0x2,0x2
0156 e004       |    |		Load	0x0,0x4
0157 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0158 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0159 4800       |H   |		Short_Literal	0x0
015a 00d9       |    |		Load_Top	At_Offset_1
015b e002       |    |		Load	0x0,0x2
015c 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
015d 6816       |h   |		Jump_Zero	0x174
015e e002       |    |		Load	0x0,0x2
015f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0160 e5f3       |    |		Load	0x2,-0xd
0161 e5f4       |    |		Load	0x2,-0xc
0162 e5f5       |    |		Load	0x2,-0xb
0163 e5f6       |    |		Load	0x2,-0xa
0164 e5f7       |    |		Load	0x2,-0x9
0165 e5f8       |    |		Load	0x2,-0x8
0166 e5f9       |    |		Load	0x2,-0x7
0167 e5fa       |    |		Load	0x2,-0x6
0168 e5fb       |    |		Load	0x2,-0x5
0169 821a       |    |		Call	0x1,0x1a
016a e5fc       |    |		Load	0x2,-0x4
016b 8219       |    |		Call	0x1,0x19
016c e5fd       |    |		Load	0x2,-0x3
016d 8218       |    |		Call	0x1,0x18
016e e5fe       |    |		Load	0x2,-0x2
016f e5ff       |    |		Load	0x2,-0x1
0170 e004       |    |		Load	0x0,0x4
0171 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0172 c5f2       |    |		Store	0x2,-0xe
0173 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0174 00d8       |    |		Load_Top	At_Offset_0
0175 a5f2       |    |		Store_Unchecked	0x2,-0xe
0176 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
0177			TRAP_00f8:
0177 e005       |    |		Load	0x0,0x5
0178 010f       |    |		Execute	Exception,Equal
0179 6823       |h#  |		Jump_Zero	0x19d
017a e5f3       |    |		Load	0x2,-0xd
017b 4801       |H   |		Short_Literal	0x1
017c 4802       |H   |		Short_Literal	0x2
017d e003       |    |		Load	0x0,0x3
017e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017f 035b       | [  |		Declare_Type	Array,Constrained
0180 0337       | 7  |		Declare_Variable	Array
0181 e5ff       |    |		Load	0x2,-0x1
0182 e003       |    |		Load	0x0,0x3
0183 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0184 e003       |    |		Load	0x0,0x3
0185 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0186 0119       |    |		Execute	Any,Check_In_Formal_Type
0187 4801       |H   |		Short_Literal	0x1
0188 00da       |    |		Load_Top	At_Offset_2
0189 01d6       |    |		Execute	Vector,Field_Write
018a 00ea       |    |		Load_Encached	Null_String_Cache
018b e003       |    |		Load	0x0,0x3
018c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018d e003       |    |		Load	0x0,0x3
018e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
018f 0119       |    |		Execute	Any,Check_In_Formal_Type
0190 4802       |H   |		Short_Literal	0x2
0191 00da       |    |		Load_Top	At_Offset_2
0192 01d6       |    |		Execute	Vector,Field_Write
0193 6038       |`8  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000820c}
0194 e002       |    |		Load	0x0,0x2
0195 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0196 e003       |    |		Load	0x0,0x3
0197 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0198 6033       |`3  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000820c}
0199 e002       |    |		Load	0x0,0x2
019a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
019b a5f2       |    |		Store_Unchecked	0x2,-0xe
019c 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
019d e5f3       |    |		Load	0x2,-0xd
019e 4801       |H   |		Short_Literal	0x1
019f 4802       |H   |		Short_Literal	0x2
01a0 e003       |    |		Load	0x0,0x3
01a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a2 035b       | [  |		Declare_Type	Array,Constrained
01a3 0337       | 7  |		Declare_Variable	Array
01a4 e5ff       |    |		Load	0x2,-0x1
01a5 e003       |    |		Load	0x0,0x3
01a6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a7 e003       |    |		Load	0x0,0x3
01a8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a9 0119       |    |		Execute	Any,Check_In_Formal_Type
01aa 4801       |H   |		Short_Literal	0x1
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 01d6       |    |		Execute	Vector,Field_Write
01ad 0092 0630  |   0|		Action	Push_String_Extended,0x630					; "Unexpected exception "
01af 4800       |H   |		Short_Literal	0x0
01b0 4801       |H   |		Short_Literal	0x1
01b1 e006       |    |		Load	0x0,0x6
01b2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01b3 01cc       |    |		Execute	Vector,Catenate
01b4 0092 0631  |   1|		Action	Push_String_Extended,0x631					; " was raised"
01b6 01cc       |    |		Execute	Vector,Catenate
01b7 e003       |    |		Load	0x0,0x3
01b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b9 e003       |    |		Load	0x0,0x3
01ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01bb 0119       |    |		Execute	Any,Check_In_Formal_Type
01bc 4802       |H   |		Short_Literal	0x2
01bd 00da       |    |		Load_Top	At_Offset_2
01be 01d6       |    |		Execute	Vector,Field_Write
01bf 600c       |`   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000820c}
01c0 e002       |    |		Load	0x0,0x2
01c1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
01c2 e003       |    |		Load	0x0,0x3
01c3 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01c4 6007       |`   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000820c}
01c5 e002       |    |		Load	0x0,0x2
01c6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c7 a5f2       |    |		Store_Unchecked	0x2,-0xe
01c8 450e       |E   |		Exit_Suprogram	New_Top_Offset 0xe
01c9 0000 0000  |    |		.XXX[0x3]
01cb 0000       |    |
01cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000820c}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01de       |    |		.CONST	0x01de								; Address of begin
01d1 021b       |    |		.CONST	0x021b								; Address of exception handler
01d2 0003       |    |		.CONST	0x0003								; Number of locals
01d3			INIT_01d0:
01d3 e001       |    |		Load	0x0,0x1
01d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01d6 02c7       |    |		Declare_Variable	Any
01d7 e001       |    |		Load	0x0,0x1
01d8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d9 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01da a402       |    |		Store_Unchecked	0x2,0x2
01db e002       |    |		Load	0x0,0x2
01dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01dd 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01de			BODY_01d0:
01de 4800       |H   |		Short_Literal	0x0
01df a5fc       |    |		Store_Unchecked	0x2,-0x4
01e0 e002       |    |		Load	0x0,0x2
01e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e2 00da       |    |		Load_Top	At_Offset_2
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 e5ff       |    |		Load	0x2,-0x1
01e5 8213       |    |		Call	0x1,0x13
01e6 c402       |    |		Store	0x2,0x2
01e7 c5fc       |    |		Store	0x2,-0x4
01e8 e5fd       |    |		Load	0x2,-0x3
01e9 00da       |    |		Load_Top	At_Offset_2
01ea 8214       |    |		Call	0x1,0x14
01eb 7024       |p$  |		Jump_Nonzero	0x210
01ec e5fd       |    |		Load	0x2,-0x3
01ed 4801       |H   |		Short_Literal	0x1
01ee 4802       |H   |		Short_Literal	0x2
01ef e003       |    |		Load	0x0,0x3
01f0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f1 035b       | [  |		Declare_Type	Array,Constrained
01f2 0337       | 7  |		Declare_Variable	Array
01f3 e5ff       |    |		Load	0x2,-0x1
01f4 e003       |    |		Load	0x0,0x3
01f5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01f6 e003       |    |		Load	0x0,0x3
01f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01f8 0119       |    |		Execute	Any,Check_In_Formal_Type
01f9 4801       |H   |		Short_Literal	0x1
01fa 00da       |    |		Load_Top	At_Offset_2
01fb 01d6       |    |		Execute	Vector,Field_Write
01fc 0092 062f  |   /|		Action	Push_String_Extended,0x62f					; "Operation mode must be Batch"
01fe e003       |    |		Load	0x0,0x3
01ff 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0200 e003       |    |		Load	0x0,0x3
0201 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0202 0119       |    |		Execute	Any,Check_In_Formal_Type
0203 4802       |H   |		Short_Literal	0x2
0204 00da       |    |		Load_Top	At_Offset_2
0205 01d6       |    |		Execute	Vector,Field_Write
0206 6069       |`i  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081fb}
0207 e002       |    |		Load	0x0,0x2
0208 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0209 e003       |    |		Load	0x0,0x3
020a 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
020b 6064       |`d  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081fb}
020c e002       |    |		Load	0x0,0x2
020d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
020e a5fc       |    |		Store_Unchecked	0x2,-0x4
020f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0210 e002       |    |		Load	0x0,0x2
0211 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0212 e5fd       |    |		Load	0x2,-0x3
0213 e5fe       |    |		Load	0x2,-0x2
0214 e402       |    |		Load	0x2,0x2
0215 e004       |    |		Load	0x0,0x4
0216 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0217 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0218 00d8       |    |		Load_Top	At_Offset_0
0219 a5fc       |    |		Store_Unchecked	0x2,-0x4
021a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
021b			TRAP_01d0:
021b e005       |    |		Load	0x0,0x5
021c 010f       |    |		Execute	Exception,Equal
021d 6823       |h#  |		Jump_Zero	0x241
021e e5fd       |    |		Load	0x2,-0x3
021f 4801       |H   |		Short_Literal	0x1
0220 4802       |H   |		Short_Literal	0x2
0221 e003       |    |		Load	0x0,0x3
0222 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0223 035b       | [  |		Declare_Type	Array,Constrained
0224 0337       | 7  |		Declare_Variable	Array
0225 e5ff       |    |		Load	0x2,-0x1
0226 e003       |    |		Load	0x0,0x3
0227 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0228 e003       |    |		Load	0x0,0x3
0229 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
022a 0119       |    |		Execute	Any,Check_In_Formal_Type
022b 4801       |H   |		Short_Literal	0x1
022c 00da       |    |		Load_Top	At_Offset_2
022d 01d6       |    |		Execute	Vector,Field_Write
022e 00ea       |    |		Load_Encached	Null_String_Cache
022f e003       |    |		Load	0x0,0x3
0230 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0231 e003       |    |		Load	0x0,0x3
0232 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0233 0119       |    |		Execute	Any,Check_In_Formal_Type
0234 4802       |H   |		Short_Literal	0x2
0235 00da       |    |		Load_Top	At_Offset_2
0236 01d6       |    |		Execute	Vector,Field_Write
0237 6038       |`8  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081fb}
0238 e002       |    |		Load	0x0,0x2
0239 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
023a e003       |    |		Load	0x0,0x3
023b 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
023c 6033       |`3  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081fb}
023d e002       |    |		Load	0x0,0x2
023e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
023f a5fc       |    |		Store_Unchecked	0x2,-0x4
0240 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0241 e5fd       |    |		Load	0x2,-0x3
0242 4801       |H   |		Short_Literal	0x1
0243 4802       |H   |		Short_Literal	0x2
0244 e003       |    |		Load	0x0,0x3
0245 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0246 035b       | [  |		Declare_Type	Array,Constrained
0247 0337       | 7  |		Declare_Variable	Array
0248 e5ff       |    |		Load	0x2,-0x1
0249 e003       |    |		Load	0x0,0x3
024a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
024b e003       |    |		Load	0x0,0x3
024c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
024d 0119       |    |		Execute	Any,Check_In_Formal_Type
024e 4801       |H   |		Short_Literal	0x1
024f 00da       |    |		Load_Top	At_Offset_2
0250 01d6       |    |		Execute	Vector,Field_Write
0251 0092 0630  |   0|		Action	Push_String_Extended,0x630					; "Unexpected exception "
0253 4800       |H   |		Short_Literal	0x0
0254 4801       |H   |		Short_Literal	0x1
0255 e006       |    |		Load	0x0,0x6
0256 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0257 01cc       |    |		Execute	Vector,Catenate
0258 0092 0631  |   1|		Action	Push_String_Extended,0x631					; " was raised"
025a 01cc       |    |		Execute	Vector,Catenate
025b e003       |    |		Load	0x0,0x3
025c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
025d e003       |    |		Load	0x0,0x3
025e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
025f 0119       |    |		Execute	Any,Check_In_Formal_Type
0260 4802       |H   |		Short_Literal	0x2
0261 00da       |    |		Load_Top	At_Offset_2
0262 01d6       |    |		Execute	Vector,Field_Write
0263 600c       |`   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081fb}
0264 e002       |    |		Load	0x0,0x2
0265 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0266 e003       |    |		Load	0x0,0x3
0267 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0268 6007       |`   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000081fb}
0269 e002       |    |		Load	0x0,0x2
026a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
026b a5fc       |    |		Store_Unchecked	0x2,-0x4
026c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
026d 0000 0000  |    |		.XXX[0x3]
026f 0000       |    |
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081fb}
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0286       |    |		.CONST	0x0286								; Address of begin
0279 02c4       |    |		.CONST	0x02c4								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b e002       |    |		Load	0x0,0x2
027c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
027e e001       |    |		Load	0x0,0x1
027f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0280 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0281 02c7       |    |		Declare_Variable	Any
0282 e001       |    |		Load	0x0,0x1
0283 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0284 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0285 a403       |    |		Store_Unchecked	0x2,0x3
0286			BODY_0278:
0286 4800       |H   |		Short_Literal	0x0
0287 a5fb       |    |		Store_Unchecked	0x2,-0x5
0288 e002       |    |		Load	0x0,0x2
0289 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028a 00d9       |    |		Load_Top	At_Offset_1
028b e5fc       |    |		Load	0x2,-0x4
028c e5ff       |    |		Load	0x2,-0x1
028d 8213       |    |		Call	0x1,0x13
028e c403       |    |		Store	0x2,0x3
028f c5fb       |    |		Store	0x2,-0x5
0290 e5fc       |    |		Load	0x2,-0x4
0291 00d9       |    |		Load_Top	At_Offset_1
0292 8214       |    |		Call	0x1,0x14
0293 7024       |p$  |		Jump_Nonzero	0x2b8
0294 e5fc       |    |		Load	0x2,-0x4
0295 4801       |H   |		Short_Literal	0x1
0296 4802       |H   |		Short_Literal	0x2
0297 e003       |    |		Load	0x0,0x3
0298 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0299 035b       | [  |		Declare_Type	Array,Constrained
029a 0337       | 7  |		Declare_Variable	Array
029b e5ff       |    |		Load	0x2,-0x1
029c e003       |    |		Load	0x0,0x3
029d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
029e e003       |    |		Load	0x0,0x3
029f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a0 0119       |    |		Execute	Any,Check_In_Formal_Type
02a1 4801       |H   |		Short_Literal	0x1
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 01d6       |    |		Execute	Vector,Field_Write
02a4 0092 062f  |   /|		Action	Push_String_Extended,0x62f					; "Operation mode must be Batch"
02a6 e003       |    |		Load	0x0,0x3
02a7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02a8 e003       |    |		Load	0x0,0x3
02a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02aa 0119       |    |		Execute	Any,Check_In_Formal_Type
02ab 4802       |H   |		Short_Literal	0x2
02ac 00da       |    |		Load_Top	At_Offset_2
02ad 01d6       |    |		Execute	Vector,Field_Write
02ae 6069       |`i  |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00008204}
02af e002       |    |		Load	0x0,0x2
02b0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02b1 e003       |    |		Load	0x0,0x3
02b2 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
02b3 6064       |`d  |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00008204}
02b4 e002       |    |		Load	0x0,0x2
02b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02b6 a5fb       |    |		Store_Unchecked	0x2,-0x5
02b7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02b8 e002       |    |		Load	0x0,0x2
02b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ba e5fc       |    |		Load	0x2,-0x4
02bb e5fd       |    |		Load	0x2,-0x3
02bc e5fe       |    |		Load	0x2,-0x2
02bd e403       |    |		Load	0x2,0x3
02be e004       |    |		Load	0x0,0x4
02bf 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02c0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02c1 00d9       |    |		Load_Top	At_Offset_1
02c2 a5fb       |    |		Store_Unchecked	0x2,-0x5
02c3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02c4			TRAP_0278:
02c4 e005       |    |		Load	0x0,0x5
02c5 010f       |    |		Execute	Exception,Equal
02c6 6823       |h#  |		Jump_Zero	0x2ea
02c7 e5fc       |    |		Load	0x2,-0x4
02c8 4801       |H   |		Short_Literal	0x1
02c9 4802       |H   |		Short_Literal	0x2
02ca e003       |    |		Load	0x0,0x3
02cb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02cc 035b       | [  |		Declare_Type	Array,Constrained
02cd 0337       | 7  |		Declare_Variable	Array
02ce e5ff       |    |		Load	0x2,-0x1
02cf e003       |    |		Load	0x0,0x3
02d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d1 e003       |    |		Load	0x0,0x3
02d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d3 0119       |    |		Execute	Any,Check_In_Formal_Type
02d4 4801       |H   |		Short_Literal	0x1
02d5 00da       |    |		Load_Top	At_Offset_2
02d6 01d6       |    |		Execute	Vector,Field_Write
02d7 00ea       |    |		Load_Encached	Null_String_Cache
02d8 e003       |    |		Load	0x0,0x3
02d9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02da e003       |    |		Load	0x0,0x3
02db 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02dc 0119       |    |		Execute	Any,Check_In_Formal_Type
02dd 4802       |H   |		Short_Literal	0x2
02de 00da       |    |		Load_Top	At_Offset_2
02df 01d6       |    |		Execute	Vector,Field_Write
02e0 6037       |`7  |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00008204}
02e1 e002       |    |		Load	0x0,0x2
02e2 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02e3 e003       |    |		Load	0x0,0x3
02e4 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
02e5 6032       |`2  |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00008204}
02e6 e002       |    |		Load	0x0,0x2
02e7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e8 a5fb       |    |		Store_Unchecked	0x2,-0x5
02e9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02ea e5fc       |    |		Load	0x2,-0x4
02eb 4801       |H   |		Short_Literal	0x1
02ec 4802       |H   |		Short_Literal	0x2
02ed e003       |    |		Load	0x0,0x3
02ee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02ef 035b       | [  |		Declare_Type	Array,Constrained
02f0 0337       | 7  |		Declare_Variable	Array
02f1 e5ff       |    |		Load	0x2,-0x1
02f2 e003       |    |		Load	0x0,0x3
02f3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f4 e003       |    |		Load	0x0,0x3
02f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f6 0119       |    |		Execute	Any,Check_In_Formal_Type
02f7 4801       |H   |		Short_Literal	0x1
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 01d6       |    |		Execute	Vector,Field_Write
02fa 0092 0630  |   0|		Action	Push_String_Extended,0x630					; "Unexpected exception "
02fc 4800       |H   |		Short_Literal	0x0
02fd 4801       |H   |		Short_Literal	0x1
02fe e006       |    |		Load	0x0,0x6
02ff 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0300 01cc       |    |		Execute	Vector,Catenate
0301 0092 0631  |   1|		Action	Push_String_Extended,0x631					; " was raised"
0303 01cc       |    |		Execute	Vector,Catenate
0304 e003       |    |		Load	0x0,0x3
0305 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0306 e003       |    |		Load	0x0,0x3
0307 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0308 0119       |    |		Execute	Any,Check_In_Formal_Type
0309 4802       |H   |		Short_Literal	0x2
030a 00da       |    |		Load_Top	At_Offset_2
030b 01d6       |    |		Execute	Vector,Field_Write
030c 600b       |`   |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00008204}
030d e002       |    |		Load	0x0,0x2
030e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
030f e003       |    |		Load	0x0,0x3
0310 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0311 6006       |`   |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00008204}
0312 e002       |    |		Load	0x0,0x2
0313 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0314 a5fb       |    |		Store_Unchecked	0x2,-0x5
0315 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0316 0000 0000  |    |		.XXX[0x2]
0318 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008204}
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0326       | &  |		.CONST	0x0326								; Address of begin
0321 0342       | B  |		.CONST	0x0342								; Address of exception handler
0322 0002       |    |		.CONST	0x0002								; Number of locals
0323			INIT_0320:
0323 e002       |    |		Load	0x0,0x2
0324 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0325 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0326			BODY_0320:
0326 4800       |H   |		Short_Literal	0x0
0327 a5f5       |    |		Store_Unchecked	0x2,-0xb
0328 e002       |    |		Load	0x0,0x2
0329 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
032a e5f6       |    |		Load	0x2,-0xa
032b 4801       |H   |		Short_Literal	0x1
032c e5fe       |    |		Load	0x2,-0x2
032d e5ff       |    |		Load	0x2,-0x1
032e 8216       |    |		Call	0x1,0x16
032f c5f5       |    |		Store	0x2,-0xb
0330 e002       |    |		Load	0x0,0x2
0331 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0332 e5f6       |    |		Load	0x2,-0xa
0333 e5f8       |    |		Load	0x2,-0x8
0334 e5f9       |    |		Load	0x2,-0x7
0335 e5f7       |    |		Load	0x2,-0x9
0336 e5fa       |    |		Load	0x2,-0x6
0337 e5fb       |    |		Load	0x2,-0x5
0338 e5fc       |    |		Load	0x2,-0x4
0339 e5fd       |    |		Load	0x2,-0x3
033a e5fe       |    |		Load	0x2,-0x2
033b e5ff       |    |		Load	0x2,-0x1
033c e004       |    |		Load	0x0,0x4
033d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
033e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
033f 00d8       |    |		Load_Top	At_Offset_0
0340 a5f5       |    |		Store_Unchecked	0x2,-0xb
0341 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0342			TRAP_0320:
0342 e005       |    |		Load	0x0,0x5
0343 010f       |    |		Execute	Exception,Equal
0344 682c       |h,  |		Jump_Zero	0x371
0345 e5f6       |    |		Load	0x2,-0xa
0346 4801       |H   |		Short_Literal	0x1
0347 4803       |H   |		Short_Literal	0x3
0348 e003       |    |		Load	0x0,0x3
0349 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034a 035b       | [  |		Declare_Type	Array,Constrained
034b 0337       | 7  |		Declare_Variable	Array
034c e5fe       |    |		Load	0x2,-0x2
034d e003       |    |		Load	0x0,0x3
034e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
034f e003       |    |		Load	0x0,0x3
0350 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0351 0119       |    |		Execute	Any,Check_In_Formal_Type
0352 4801       |H   |		Short_Literal	0x1
0353 00da       |    |		Load_Top	At_Offset_2
0354 01d6       |    |		Execute	Vector,Field_Write
0355 e5fd       |    |		Load	0x2,-0x3
0356 e003       |    |		Load	0x0,0x3
0357 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0358 e003       |    |		Load	0x0,0x3
0359 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
035a 0119       |    |		Execute	Any,Check_In_Formal_Type
035b 4802       |H   |		Short_Literal	0x2
035c 00da       |    |		Load_Top	At_Offset_2
035d 01d6       |    |		Execute	Vector,Field_Write
035e 00ea       |    |		Load_Encached	Null_String_Cache
035f e003       |    |		Load	0x0,0x3
0360 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0361 e003       |    |		Load	0x0,0x3
0362 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0363 0119       |    |		Execute	Any,Check_In_Formal_Type
0364 4803       |H   |		Short_Literal	0x3
0365 00da       |    |		Load_Top	At_Offset_2
0366 01d6       |    |		Execute	Vector,Field_Write
0367 6040       |`@  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x000081fa}
0368 e002       |    |		Load	0x0,0x2
0369 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
036a e003       |    |		Load	0x0,0x3
036b 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
036c 603b       |`;  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x000081fa}
036d e002       |    |		Load	0x0,0x2
036e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
036f a5f5       |    |		Store_Unchecked	0x2,-0xb
0370 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0371 e5f6       |    |		Load	0x2,-0xa
0372 4801       |H   |		Short_Literal	0x1
0373 4803       |H   |		Short_Literal	0x3
0374 e003       |    |		Load	0x0,0x3
0375 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0376 035b       | [  |		Declare_Type	Array,Constrained
0377 0337       | 7  |		Declare_Variable	Array
0378 e5fe       |    |		Load	0x2,-0x2
0379 e003       |    |		Load	0x0,0x3
037a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
037b e003       |    |		Load	0x0,0x3
037c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
037d 0119       |    |		Execute	Any,Check_In_Formal_Type
037e 4801       |H   |		Short_Literal	0x1
037f 00da       |    |		Load_Top	At_Offset_2
0380 01d6       |    |		Execute	Vector,Field_Write
0381 e5fd       |    |		Load	0x2,-0x3
0382 e003       |    |		Load	0x0,0x3
0383 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0384 e003       |    |		Load	0x0,0x3
0385 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0386 0119       |    |		Execute	Any,Check_In_Formal_Type
0387 4802       |H   |		Short_Literal	0x2
0388 00da       |    |		Load_Top	At_Offset_2
0389 01d6       |    |		Execute	Vector,Field_Write
038a 0092 0630  |   0|		Action	Push_String_Extended,0x630					; "Unexpected exception "
038c 4800       |H   |		Short_Literal	0x0
038d 4801       |H   |		Short_Literal	0x1
038e e006       |    |		Load	0x0,0x6
038f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0390 01cc       |    |		Execute	Vector,Catenate
0391 0092 0631  |   1|		Action	Push_String_Extended,0x631					; " was raised"
0393 01cc       |    |		Execute	Vector,Catenate
0394 e003       |    |		Load	0x0,0x3
0395 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0396 e003       |    |		Load	0x0,0x3
0397 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0398 0119       |    |		Execute	Any,Check_In_Formal_Type
0399 4803       |H   |		Short_Literal	0x3
039a 00da       |    |		Load_Top	At_Offset_2
039b 01d6       |    |		Execute	Vector,Field_Write
039c 600b       |`   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x000081fa}
039d e002       |    |		Load	0x0,0x2
039e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
039f e003       |    |		Load	0x0,0x3
03a0 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03a1 6006       |`   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x000081fa}
03a2 e002       |    |		Load	0x0,0x2
03a3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a4 a5f5       |    |		Store_Unchecked	0x2,-0xb
03a5 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
03a6 0000 0000  |    |		.XXX[0x2]
03a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081fa}
03ac 0000 0000  |    |		.BLANK	0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03be       |    |		.CONST	0x03be								; Address of begin
03b1 0405       |    |		.CONST	0x0405								; Address of exception handler
03b2 0003       |    |		.CONST	0x0003								; Number of locals
03b3			INIT_03b0:
03b3 e002       |    |		Load	0x0,0x2
03b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03b6 e001       |    |		Load	0x0,0x1
03b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b8 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03b9 02c7       |    |		Declare_Variable	Any
03ba e001       |    |		Load	0x0,0x1
03bb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03bc 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03bd a403       |    |		Store_Unchecked	0x2,0x3
03be			BODY_03b0:
03be 4800       |H   |		Short_Literal	0x0
03bf a5fb       |    |		Store_Unchecked	0x2,-0x5
03c0 e002       |    |		Load	0x0,0x2
03c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c2 00d9       |    |		Load_Top	At_Offset_1
03c3 e5fc       |    |		Load	0x2,-0x4
03c4 e5ff       |    |		Load	0x2,-0x1
03c5 8213       |    |		Call	0x1,0x13
03c6 c403       |    |		Store	0x2,0x3
03c7 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03c8 e5fc       |    |		Load	0x2,-0x4
03c9 00d9       |    |		Load_Top	At_Offset_1
03ca 8214       |    |		Call	0x1,0x14
03cb 702d       |p-  |		Jump_Nonzero	0x3f9
03cc e5fc       |    |		Load	0x2,-0x4
03cd 4801       |H   |		Short_Literal	0x1
03ce 4803       |H   |		Short_Literal	0x3
03cf e003       |    |		Load	0x0,0x3
03d0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03d1 035b       | [  |		Declare_Type	Array,Constrained
03d2 0337       | 7  |		Declare_Variable	Array
03d3 e5ff       |    |		Load	0x2,-0x1
03d4 e003       |    |		Load	0x0,0x3
03d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d6 e003       |    |		Load	0x0,0x3
03d7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d8 0119       |    |		Execute	Any,Check_In_Formal_Type
03d9 4801       |H   |		Short_Literal	0x1
03da 00da       |    |		Load_Top	At_Offset_2
03db 01d6       |    |		Execute	Vector,Field_Write
03dc e5fe       |    |		Load	0x2,-0x2
03dd e003       |    |		Load	0x0,0x3
03de 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03df e003       |    |		Load	0x0,0x3
03e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03e1 0119       |    |		Execute	Any,Check_In_Formal_Type
03e2 4802       |H   |		Short_Literal	0x2
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 01d6       |    |		Execute	Vector,Field_Write
03e5 0092 062f  |   /|		Action	Push_String_Extended,0x62f					; "Operation mode must be Batch"
03e7 e003       |    |		Load	0x0,0x3
03e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03e9 e003       |    |		Load	0x0,0x3
03ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03eb 0119       |    |		Execute	Any,Check_In_Formal_Type
03ec 4803       |H   |		Short_Literal	0x3
03ed 00da       |    |		Load_Top	At_Offset_2
03ee 01d6       |    |		Execute	Vector,Field_Write
03ef 607c       |`|  |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x00008206}
03f0 e002       |    |		Load	0x0,0x2
03f1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03f2 e003       |    |		Load	0x0,0x3
03f3 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03f4 6077       |`w  |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x00008206}
03f5 e002       |    |		Load	0x0,0x2
03f6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f7 a5fb       |    |		Store_Unchecked	0x2,-0x5
03f8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03f9 e002       |    |		Load	0x0,0x2
03fa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03fb e5fc       |    |		Load	0x2,-0x4
03fc e5fd       |    |		Load	0x2,-0x3
03fd e5fe       |    |		Load	0x2,-0x2
03fe e403       |    |		Load	0x2,0x3
03ff e004       |    |		Load	0x0,0x4
0400 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0401 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0402 00d9       |    |		Load_Top	At_Offset_1
0403 a5fb       |    |		Store_Unchecked	0x2,-0x5
0404 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0405			TRAP_03b0:
0405 e005       |    |		Load	0x0,0x5
0406 010f       |    |		Execute	Exception,Equal
0407 682c       |h,  |		Jump_Zero	0x434
0408 e5fc       |    |		Load	0x2,-0x4
0409 4801       |H   |		Short_Literal	0x1
040a 4803       |H   |		Short_Literal	0x3
040b e003       |    |		Load	0x0,0x3
040c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
040d 035b       | [  |		Declare_Type	Array,Constrained
040e 0337       | 7  |		Declare_Variable	Array
040f e5ff       |    |		Load	0x2,-0x1
0410 e003       |    |		Load	0x0,0x3
0411 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0412 e003       |    |		Load	0x0,0x3
0413 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0414 0119       |    |		Execute	Any,Check_In_Formal_Type
0415 4801       |H   |		Short_Literal	0x1
0416 00da       |    |		Load_Top	At_Offset_2
0417 01d6       |    |		Execute	Vector,Field_Write
0418 e5fe       |    |		Load	0x2,-0x2
0419 e003       |    |		Load	0x0,0x3
041a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
041b e003       |    |		Load	0x0,0x3
041c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
041d 0119       |    |		Execute	Any,Check_In_Formal_Type
041e 4802       |H   |		Short_Literal	0x2
041f 00da       |    |		Load_Top	At_Offset_2
0420 01d6       |    |		Execute	Vector,Field_Write
0421 00ea       |    |		Load_Encached	Null_String_Cache
0422 e003       |    |		Load	0x0,0x3
0423 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0424 e003       |    |		Load	0x0,0x3
0425 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0426 0119       |    |		Execute	Any,Check_In_Formal_Type
0427 4803       |H   |		Short_Literal	0x3
0428 00da       |    |		Load_Top	At_Offset_2
0429 01d6       |    |		Execute	Vector,Field_Write
042a 6041       |`A  |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x00008206}
042b e002       |    |		Load	0x0,0x2
042c 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
042d e003       |    |		Load	0x0,0x3
042e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
042f 603c       |`<  |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x00008206}
0430 e002       |    |		Load	0x0,0x2
0431 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0432 a5fb       |    |		Store_Unchecked	0x2,-0x5
0433 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0434 e5fc       |    |		Load	0x2,-0x4
0435 4801       |H   |		Short_Literal	0x1
0436 4803       |H   |		Short_Literal	0x3
0437 e003       |    |		Load	0x0,0x3
0438 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0439 035b       | [  |		Declare_Type	Array,Constrained
043a 0337       | 7  |		Declare_Variable	Array
043b e5ff       |    |		Load	0x2,-0x1
043c e003       |    |		Load	0x0,0x3
043d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
043e e003       |    |		Load	0x0,0x3
043f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0440 0119       |    |		Execute	Any,Check_In_Formal_Type
0441 4801       |H   |		Short_Literal	0x1
0442 00da       |    |		Load_Top	At_Offset_2
0443 01d6       |    |		Execute	Vector,Field_Write
0444 e5fe       |    |		Load	0x2,-0x2
0445 e003       |    |		Load	0x0,0x3
0446 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0447 e003       |    |		Load	0x0,0x3
0448 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0449 0119       |    |		Execute	Any,Check_In_Formal_Type
044a 4802       |H   |		Short_Literal	0x2
044b 00da       |    |		Load_Top	At_Offset_2
044c 01d6       |    |		Execute	Vector,Field_Write
044d 0092 0630  |   0|		Action	Push_String_Extended,0x630					; "Unexpected exception "
044f 4800       |H   |		Short_Literal	0x0
0450 4801       |H   |		Short_Literal	0x1
0451 e006       |    |		Load	0x0,0x6
0452 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0453 01cc       |    |		Execute	Vector,Catenate
0454 0092 0631  |   1|		Action	Push_String_Extended,0x631					; " was raised"
0456 01cc       |    |		Execute	Vector,Catenate
0457 e003       |    |		Load	0x0,0x3
0458 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0459 e003       |    |		Load	0x0,0x3
045a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
045b 0119       |    |		Execute	Any,Check_In_Formal_Type
045c 4803       |H   |		Short_Literal	0x3
045d 00da       |    |		Load_Top	At_Offset_2
045e 01d6       |    |		Execute	Vector,Field_Write
045f 6748       |gH  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x000081fa}
0460 e002       |    |		Load	0x0,0x2
0461 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0462 e003       |    |		Load	0x0,0x3
0463 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0464 6007       |`   |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x00008206}
0465 e002       |    |		Load	0x0,0x2
0466 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0467 a5fb       |    |		Store_Unchecked	0x2,-0x5
0468 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0469 0000 0000  |    |		.XXX[0x3]
046b 0000       |    |
046c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008206}
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0479       | y  |		.CONST	0x0479								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0002       |    |		.CONST	0x0002								; Number of locals
0473			INIT_0470:
0473 e001       |    |		Load	0x0,0x1
0474 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0475 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0476 02c7       |    |		Declare_Variable	Any
0477 00d8       |    |		Load_Top	At_Offset_0
0478 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0479			BODY_0470:
0479 4800       |H   |		Short_Literal	0x0
047a a5fc       |    |		Store_Unchecked	0x2,-0x4
047b 4801       |H   |		Short_Literal	0x1
047c e001       |    |		Load	0x0,0x1
047d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
047e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
047f e5ff       |    |		Load	0x2,-0x1
0480 e001       |    |		Load	0x0,0x1
0481 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0482 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0483 c5fd       |    |		Store	0x2,-0x3
0484 e5fd       |    |		Load	0x2,-0x3
0485 e001       |    |		Load	0x0,0x1
0486 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0487 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0488 683c       |h<  |		Jump_Zero	0x4c5
0489 e5fd       |    |		Load	0x2,-0x3
048a e001       |    |		Load	0x0,0x1
048b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
048c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
048d c402       |    |		Store	0x2,0x2
048e 00d8       |    |		Load_Top	At_Offset_0
048f e001       |    |		Load	0x0,0x1
0490 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0491 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0492 00d9       |    |		Load_Top	At_Offset_1
0493 e001       |    |		Load	0x0,0x1
0494 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0495 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0496 0278       | x  |		Execute	Discrete,Or
0497 682c       |h,  |		Jump_Zero	0x4c4
0498 4801       |H   |		Short_Literal	0x1
0499 e001       |    |		Load	0x0,0x1
049a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
049b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
049c e5ff       |    |		Load	0x2,-0x1
049d 0092 0632  |   2|		Action	Push_String_Extended,0x632					; "??'c(ada)"
049f 01cc       |    |		Execute	Vector,Catenate
04a0 e001       |    |		Load	0x0,0x1
04a1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04a2 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
04a3 c5fd       |    |		Store	0x2,-0x3
04a4 e5fd       |    |		Load	0x2,-0x3
04a5 e001       |    |		Load	0x0,0x1
04a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a7 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
04a8 701b       |p   |		Jump_Nonzero	0x4c4
04a9 e5fe       |    |		Load	0x2,-0x2
04aa 4801       |H   |		Short_Literal	0x1
04ab 4801       |H   |		Short_Literal	0x1
04ac e003       |    |		Load	0x0,0x3
04ad 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ae 035b       | [  |		Declare_Type	Array,Constrained
04af 0337       | 7  |		Declare_Variable	Array
04b0 e5ff       |    |		Load	0x2,-0x1
04b1 e003       |    |		Load	0x0,0x3
04b2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b3 e003       |    |		Load	0x0,0x3
04b4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04b5 0119       |    |		Execute	Any,Check_In_Formal_Type
04b6 4801       |H   |		Short_Literal	0x1
04b7 00da       |    |		Load_Top	At_Offset_2
04b8 01d6       |    |		Execute	Vector,Field_Write
04b9 6026       |`&  |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x0000882b}
04ba e002       |    |		Load	0x0,0x2
04bb 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04bc e003       |    |		Load	0x0,0x3
04bd 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
04be 6021       |`!  |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x0000882b}
04bf e002       |    |		Load	0x0,0x2
04c0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c1 a5fc       |    |		Store_Unchecked	0x2,-0x4
04c2 e005       |    |		Load	0x0,0x5
04c3 0257       | W  |		Execute	Discrete,Raise
04c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c5 e5fe       |    |		Load	0x2,-0x2
04c6 4801       |H   |		Short_Literal	0x1
04c7 4801       |H   |		Short_Literal	0x1
04c8 e003       |    |		Load	0x0,0x3
04c9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ca 035b       | [  |		Declare_Type	Array,Constrained
04cb 0337       | 7  |		Declare_Variable	Array
04cc e5ff       |    |		Load	0x2,-0x1
04cd e003       |    |		Load	0x0,0x3
04ce 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04cf e003       |    |		Load	0x0,0x3
04d0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04d1 0119       |    |		Execute	Any,Check_In_Formal_Type
04d2 4801       |H   |		Short_Literal	0x1
04d3 00da       |    |		Load_Top	At_Offset_2
04d4 01d6       |    |		Execute	Vector,Field_Write
04d5 600a       |`   |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x0000882b}
04d6 e002       |    |		Load	0x0,0x2
04d7 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04d8 e003       |    |		Load	0x0,0x3
04d9 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
04da 6005       |`   |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x0000882b}
04db e002       |    |		Load	0x0,0x2
04dc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04dd a5fc       |    |		Store_Unchecked	0x2,-0x4
04de e005       |    |		Load	0x0,0x5
04df 0257       | W  |		Execute	Discrete,Raise
04e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000882b}
04e4 0000 0000  |    |		.BLANK	0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04fc       |    |		.CONST	0x04fc								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0005       |    |		.CONST	0x0005								; Number of locals
04eb			INIT_04e8:
04eb e007       |    |		Load	0x0,0x7
04ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04ed e007       |    |		Load	0x0,0x7
04ee 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04ef 02ff       |    |		Declare_Variable	Variant_Record
04f0 00d8       |    |		Load_Top	At_Offset_0
04f1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f2 e007       |    |		Load	0x0,0x7
04f3 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
04f4 0322       | "  |		Declare_Variable	Record
04f5 00d8       |    |		Load_Top	At_Offset_0
04f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f7 e007       |    |		Load	0x0,0x7
04f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04f9 02c7       |    |		Declare_Variable	Any
04fa 00d8       |    |		Load_Top	At_Offset_0
04fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04fc			BODY_04e8:
04fc e007       |    |		Load	0x0,0x7
04fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04fe 00d9       |    |		Load_Top	At_Offset_1
04ff 0120       |    |		Execute	Any,Is_Value
0500 6803       |h   |		Jump_Zero	0x504
0501 e007       |    |		Load	0x0,0x7
0502 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0503 7801       |x   |		Jump	0x505
0504 00d9       |    |		Load_Top	At_Offset_1
0505 e5ff       |    |		Load	0x2,-0x1
0506 e001       |    |		Load	0x0,0x1
0507 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0508 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0509 e001       |    |		Load	0x0,0x1
050a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
050b 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
050c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
050d c405       |    |		Store	0x2,0x5
050e c402       |    |		Store	0x2,0x2
050f 00db       |    |		Load_Top	At_Offset_3
0510 6815       |h   |		Jump_Zero	0x526
0511 e5fe       |    |		Load	0x2,-0x2
0512 4801       |H   |		Short_Literal	0x1
0513 4801       |H   |		Short_Literal	0x1
0514 e003       |    |		Load	0x0,0x3
0515 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0516 035b       | [  |		Declare_Type	Array,Constrained
0517 0337       | 7  |		Declare_Variable	Array
0518 e402       |    |		Load	0x2,0x2
0519 e003       |    |		Load	0x0,0x3
051a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
051b e003       |    |		Load	0x0,0x3
051c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
051d 0119       |    |		Execute	Any,Check_In_Formal_Type
051e 4801       |H   |		Short_Literal	0x1
051f 00da       |    |		Load_Top	At_Offset_2
0520 01d6       |    |		Execute	Vector,Field_Write
0521 601e       |`   |		Indirect_Literal	Discrete,0x540,{0x00000000, 0x0000820f}
0522 e002       |    |		Load	0x0,0x2
0523 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0524 e005       |    |		Load	0x0,0x5
0525 0257       | W  |		Execute	Discrete,Raise
0526 e5fe       |    |		Load	0x2,-0x2
0527 00d9       |    |		Load_Top	At_Offset_1
0528 e008       |    |		Load	0x0,0x8
0529 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
052a 00da       |    |		Load_Top	At_Offset_2
052b 017d       | }  |		Execute	Record,Structure_Write
052c e5fe       |    |		Load	0x2,-0x2
052d 4801       |H   |		Short_Literal	0x1
052e e5fe       |    |		Load	0x2,-0x2
052f 4801       |H   |		Short_Literal	0x1
0530 e405       |    |		Load	0x2,0x5
0531 e008       |    |		Load	0x0,0x8
0532 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0533 e008       |    |		Load	0x0,0x8
0534 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0535 00db       |    |		Load_Top	At_Offset_3
0536 016d       | m  |		Execute	Variant_Record,Structure_Write
0537 00da       |    |		Load_Top	At_Offset_2
0538 00da       |    |		Load_Top	At_Offset_2
0539 e009       |    |		Load	0x0,0x9
053a 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
053b e00a       |    |		Load	0x0,0xa
053c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
053d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
053e 0000 0000  |    |		.XXX[0x2]
0540 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000820f}
0544 0000 0000  |    |		.BLANK	0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 00db       |    |		Load_Top	At_Offset_3
054c 680b       |h   |		Jump_Zero	0x558
054d e5fc       |    |		Load	0x2,-0x4
054e e00b       |    |		Load	0x0,0xb
054f 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0550 e5fd       |    |		Load	0x2,-0x3
0551 0092 0633  |   3|		Action	Push_String_Extended,0x633					; "<ALL_WORLDS>"
0553 4803       |H   |		Short_Literal	0x3
0554 4803       |H   |		Short_Literal	0x3
0555 e5ff       |    |		Load	0x2,-0x1
0556 e00c       |    |		Load	0x0,0xc
0557 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0558 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0559 0000 0000  |    |		.BLANK	0000[0x7]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 4800       |H   |		Short_Literal	0x0
0564 a5fb       |    |		Store_Unchecked	0x2,-0x5
0565 00da       |    |		Load_Top	At_Offset_2
0566 01db       |    |		Execute	Vector,Length
0567 7025       |p%  |		Jump_Nonzero	0x58d
0568 e5fc       |    |		Load	0x2,-0x4
0569 4801       |H   |		Short_Literal	0x1
056a 4802       |H   |		Short_Literal	0x2
056b e003       |    |		Load	0x0,0x3
056c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
056d 035b       | [  |		Declare_Type	Array,Constrained
056e 0337       | 7  |		Declare_Variable	Array
056f e5ff       |    |		Load	0x2,-0x1
0570 e003       |    |		Load	0x0,0x3
0571 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0572 e003       |    |		Load	0x0,0x3
0573 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0574 0119       |    |		Execute	Any,Check_In_Formal_Type
0575 4801       |H   |		Short_Literal	0x1
0576 00da       |    |		Load_Top	At_Offset_2
0577 01d6       |    |		Execute	Vector,Field_Write
0578 0092 0634  |   4|		Action	Push_String_Extended,0x634					; "Host_Script_File"
057a e003       |    |		Load	0x0,0x3
057b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
057c e003       |    |		Load	0x0,0x3
057d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
057e 0119       |    |		Execute	Any,Check_In_Formal_Type
057f 4802       |H   |		Short_Literal	0x2
0580 00da       |    |		Load_Top	At_Offset_2
0581 01d6       |    |		Execute	Vector,Field_Write
0582 603d       |`=  |		Indirect_Literal	Discrete,0x5c0,{0x00000000, 0x00008802}
0583 e002       |    |		Load	0x0,0x2
0584 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0585 e003       |    |		Load	0x0,0x3
0586 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0587 6038       |`8  |		Indirect_Literal	Discrete,0x5c0,{0x00000000, 0x00008802}
0588 e002       |    |		Load	0x0,0x2
0589 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
058a a5fb       |    |		Store_Unchecked	0x2,-0x5
058b e005       |    |		Load	0x0,0x5
058c 0257       | W  |		Execute	Discrete,Raise
058d e5fd       |    |		Load	0x2,-0x3
058e 6830       |h0  |		Jump_Zero	0x5bf
058f 00db       |    |		Load_Top	At_Offset_3
0590 01db       |    |		Execute	Vector,Length
0591 0f00       |    |		Execute_Immediate	Equal,0x0
0592 4800       |H   |		Short_Literal	0x0
0593 0092 0635  |   5|		Action	Push_String_Extended,0x635					; ">> FULL REMOTE NAME <<"
0595 e5fe       |    |		Load	0x2,-0x2
0596 e00d       |    |		Load	0x0,0xd
0597 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0598 0278       | x  |		Execute	Discrete,Or
0599 6825       |h%  |		Jump_Zero	0x5bf
059a e5fc       |    |		Load	0x2,-0x4
059b 4801       |H   |		Short_Literal	0x1
059c 4802       |H   |		Short_Literal	0x2
059d e003       |    |		Load	0x0,0x3
059e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
059f 035b       | [  |		Declare_Type	Array,Constrained
05a0 0337       | 7  |		Declare_Variable	Array
05a1 e5fe       |    |		Load	0x2,-0x2
05a2 e003       |    |		Load	0x0,0x3
05a3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05a4 e003       |    |		Load	0x0,0x3
05a5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05a6 0119       |    |		Execute	Any,Check_In_Formal_Type
05a7 4801       |H   |		Short_Literal	0x1
05a8 00da       |    |		Load_Top	At_Offset_2
05a9 01d6       |    |		Execute	Vector,Field_Write
05aa 0092 0636  |   6|		Action	Push_String_Extended,0x636					; "Remote_Script_File"
05ac e003       |    |		Load	0x0,0x3
05ad 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05ae e003       |    |		Load	0x0,0x3
05af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b0 0119       |    |		Execute	Any,Check_In_Formal_Type
05b1 4802       |H   |		Short_Literal	0x2
05b2 00da       |    |		Load_Top	At_Offset_2
05b3 01d6       |    |		Execute	Vector,Field_Write
05b4 600b       |`   |		Indirect_Literal	Discrete,0x5c0,{0x00000000, 0x00008802}
05b5 e002       |    |		Load	0x0,0x2
05b6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
05b7 e003       |    |		Load	0x0,0x3
05b8 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
05b9 6006       |`   |		Indirect_Literal	Discrete,0x5c0,{0x00000000, 0x00008802}
05ba e002       |    |		Load	0x0,0x2
05bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05bc a5fb       |    |		Store_Unchecked	0x2,-0x5
05bd e005       |    |		Load	0x0,0x5
05be 0257       | W  |		Execute	Discrete,Raise
05bf 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008802}
05c4 0000 0000  |    |		.BLANK	0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb 4800       |H   |		Short_Literal	0x0
05cc a5fa       |    |		Store_Unchecked	0x2,-0x6
05cd e002       |    |		Load	0x0,0x2
05ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05cf e5fb       |    |		Load	0x2,-0x5
05d0 e5fc       |    |		Load	0x2,-0x4
05d1 e5fe       |    |		Load	0x2,-0x2
05d2 e5ff       |    |		Load	0x2,-0x1
05d3 8216       |    |		Call	0x1,0x16
05d4 c5fa       |    |		Store	0x2,-0x6
05d5 e5fd       |    |		Load	0x2,-0x3
05d6 01db       |    |		Execute	Vector,Length
05d7 7025       |p%  |		Jump_Nonzero	0x5fd
05d8 e5fb       |    |		Load	0x2,-0x5
05d9 4801       |H   |		Short_Literal	0x1
05da 4802       |H   |		Short_Literal	0x2
05db e003       |    |		Load	0x0,0x3
05dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05dd 035b       | [  |		Declare_Type	Array,Constrained
05de 0337       | 7  |		Declare_Variable	Array
05df e5fd       |    |		Load	0x2,-0x3
05e0 e003       |    |		Load	0x0,0x3
05e1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05e2 e003       |    |		Load	0x0,0x3
05e3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05e4 0119       |    |		Execute	Any,Check_In_Formal_Type
05e5 4801       |H   |		Short_Literal	0x1
05e6 00da       |    |		Load_Top	At_Offset_2
05e7 01d6       |    |		Execute	Vector,Field_Write
05e8 0092 0637  |   7|		Action	Push_String_Extended,0x637					; "Build_List_File"
05ea e003       |    |		Load	0x0,0x3
05eb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05ec e003       |    |		Load	0x0,0x3
05ed 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05ee 0119       |    |		Execute	Any,Check_In_Formal_Type
05ef 4802       |H   |		Short_Literal	0x2
05f0 00da       |    |		Load_Top	At_Offset_2
05f1 01d6       |    |		Execute	Vector,Field_Write
05f2 67cd       |g   |		Indirect_Literal	Discrete,0x5c0,{0x00000000, 0x00008802}
05f3 e002       |    |		Load	0x0,0x2
05f4 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
05f5 e003       |    |		Load	0x0,0x3
05f6 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
05f7 67c8       |g   |		Indirect_Literal	Discrete,0x5c0,{0x00000000, 0x00008802}
05f8 e002       |    |		Load	0x0,0x2
05f9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05fa a5fa       |    |		Store_Unchecked	0x2,-0x6
05fb e005       |    |		Load	0x0,0x5
05fc 0257       | W  |		Execute	Discrete,Raise
05fd 4800       |H   |		Short_Literal	0x0
05fe a5fa       |    |		Store_Unchecked	0x2,-0x6
05ff 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603       |    |		.CONST	0x0603								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0001       |    |		.CONST	0x0001								; Number of locals
0603			BODY_0600:
0603			INIT_0600:
0603 4801       |H   |		Short_Literal	0x1
0604 0092 0638  |   8|		Action	Push_String_Extended,0x638					; "<default>"
0606 e5ff       |    |		Load	0x2,-0x1
0607 e00d       |    |		Load	0x0,0xd
0608 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0609 6803       |h   |		Jump_Zero	0x60d
060a 0092 0639  |   9|		Action	Push_String_Extended,0x639					; "batch_script"
060c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060d 00da       |    |		Load_Top	At_Offset_2
060e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060f 0000       |    |		.XXX[0x1]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 4801       |H   |		Short_Literal	0x1
0614 0092 0638  |   8|		Action	Push_String_Extended,0x638					; "<default>"
0616 e5ff       |    |		Load	0x2,-0x1
0617 e00d       |    |		Load	0x0,0xd
0618 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0619 6803       |h   |		Jump_Zero	0x61d
061a 0092 063a  |   :|		Action	Push_String_Extended,0x63a					; "remote_compilation_script"
061c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
061d 00da       |    |		Load_Top	At_Offset_2
061e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
061f 0000       |    |		.XXX[0x1]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 4801       |H   |		Short_Literal	0x1
0624 0092 0638  |   8|		Action	Push_String_Extended,0x638					; "<default>"
0626 e5ff       |    |		Load	0x2,-0x1
0627 e00d       |    |		Load	0x0,0xd
0628 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0629 6803       |h   |		Jump_Zero	0x62d
062a 0092 063b  |   ;|		Action	Push_String_Extended,0x63b					; "units_to_build"
062c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062d 00da       |    |		Load_Top	At_Offset_2
062e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062f ; --------------------------------------------------------------------------------------
062f ; STRING TABLE
062f ; --------------------------------------------------------------------------------------
062f 001c       |    |		.STRTAB	0x001c->0x063d							; "Operation mode must be Batch"
0630 0036       | 6  |		.STRTAB	0x0036->0x064b							; "Unexpected exception "
0631 0049       | I  |		.STRTAB	0x0049->0x0655							; " was raised"
0632 0052       | R  |		.STRTAB	0x0052->0x065b							; "??'c(ada)"
0633 0059       | Y  |		.STRTAB	0x0059->0x065f							; "<ALL_WORLDS>"
0634 0063       | c  |		.STRTAB	0x0063->0x0665							; "Host_Script_File"
0635 0071       | q  |		.STRTAB	0x0071->0x066d							; ">> FULL REMOTE NAME <<"
0636 0085       |    |		.STRTAB	0x0085->0x0678							; "Remote_Script_File"
0637 0095       |    |		.STRTAB	0x0095->0x0681							; "Build_List_File"
0638 00a2       |    |		.STRTAB	0x00a2->0x0689							; "<default>"
0639 00a9       |    |		.STRTAB	0x00a9->0x068d							; "batch_script"
063a 00b3       |    |		.STRTAB	0x00b3->0x0693							; "remote_compilation_script"
063b 00ca       |    |		.STRTAB	0x00ca->0x06a0							; "units_to_build"
063c 00d6       |    |		.STREND 0x00d6->0x06a7
063d 4f70 6572  |Oper|		.STRTAB_STRINGS
06a7 0000       |    |		.XXX[0x1]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; Debug Table
06a8 ; --------------------------------------------------------------------------------------
06a8 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x12dd,0x0000,0x0001,0x0000
06ae 046b 4000  | k@ |		.XXX[0x8]
06b0 312c 8000  |1,  |
06b2 490a 8000  |I   |
06b4 4793 a000  |G   |
06b6 0000 0000  |    |		.BLANK	0000[0x8]
06be 317a 6000  |1z` |		.XXX[0x2]
06c0 0000 0000  |    |		.BLANK	0000[0x10]
06d0 01de 8000  |    |		.XXX[0x3]
06d2 9018       |    |
06d3 0000 0000  |    |		.BLANK	0000[0x5]
06d8 0001       |    |		.XXX[0x1]
06d9 0000 0000  |    |		.BLANK	0000[0x5]
06de 0004 0000  |    |		.XXX[0xe]
06e0 0048 0001  | H  |
06e2 7d00 0000  |}   |
06e4 0010 0000  |    |
06e6 0000 0000  |    |
06e8 0005 8000  |    |
06ea 0000 4800  |  H |
06ec 0000 0000  |    |		.BLANK	0000[0x16]
0702 00ab fc80  |    |		.XXX[0x4]
0704 00c8 0c80  |    |
0706 0000 0000  |    |		.BLANK	0000[0xa]
0710 03a9 f400  |    |		.XXX[0x8]
0712 0000 0000  |    |
0714 0007 7800  |  x |
0716 0398 b800  |    |
0718 0000 0000  |    |		.BLANK	0000[0x5]
071d 0400 0000  |    |		.XXX[0x13]
071f 5800 0003  |X   |
0721 2000 0000  |    |
0723 d000 0001  |    |
0725 2000 3154  |  1T|
0727 0000 0000  |    |
0729 4966 4a42  |IfJB|
072b 8000 3480  |  4 |
072d 5800 005e  |X  ^|
072f 1f00       |    |
0730 0000 0000  |    |		.BLANK	0000[0x10]
0740 0005 a4d4  |    |		.XXX[0x2]
0742 0000 0000  |    |		.BLANK	0000[0x4]
0746 0007 45e6  |  E |		.XXX[0x4]
0748 0002 8416  |    |
074a 0000 0000  |    |		.BLANK	0000[0x4]
074e 0003 477a  |  Gz|		.XXX[0x2]
0750 0000 0000  |    |		.BLANK	0000[0x4]
0754 0f01 0a00  |    |		.XXX[0x2]
0756 0000 0000  |    |		.BLANK	0000[0xa]
0760 0003 f000  |    |		.XXX[0x10]
0762 03e8 0000  |    |
0764 0000 0000  |    |
0766 0001 6000  |  ` |
0768 1c54 8000  | T  |
076a 0000 4000  |  @ |
076c 0000 0080  |    |
076e 0003 1fc9  |    |
0770 0000 0000  |    |		.BLANK	0000[0x4]
0774 0001 97ce  |    |		.XXX[0x5]
0776 0200 0000  |    |
0778 2264       |"d  |
0779 0000 0000  |    |		.BLANK	0000[0x5]
077e b7cc 0800  |    |		.XXX[0x4]
0780 004d b980  | M  |
0782 0000 0000  |    |		.BLANK	0000[0x5]
0787 0007 f840  |   @|		.XXX[0x2]
0789 0000 0000  |    |		.BLANK	0000[0x6]
078f 00d7 55c0  |  U |		.XXX[0x5]
0791 8000 0042  |   B|
0793 ce00       |    |
0794 0000 0000  |    |		.BLANK	0000[0x4]
0798 0249 8b02  | I  |		.XXX[0x5]
079a 0000 05ff  |    |
079c ec00       |    |
079d 0000 0000  |    |		.BLANK	0000[0x4]
07a1 0665 e008  | e  |		.XXX[0x4]
07a3 0000 46b6  |  F |
07a5 0000 0000  |    |		.BLANK	0000[0x5]
07aa 3077 7020  |0wp |		.XXX[0x5]
07ac 0000 312c  |  1,|
07ae 8000       |    |
07af 0000 0000  |    |		.BLANK	0000[0x4]
07b3 86a3 c04d  |   M|		.XXX[0xc]
07b5 0000 5e9c  |  ^ |
07b7 0001 0156  |   V|
07b9 0000 0000  |    |
07bb 0000 9faa  |    |
07bd 0001 9bb0  |    |
07bf 0000 0000  |    |		.BLANK	0000[0xa]
07c9 0007 56e8  |  V |		.XXX[0x8]
07cb 0000 0000  |    |
07cd 0000 0ef0  |    |
07cf 0007 6cb4  |  l |
07d1 0000 0000  |    |		.BLANK	0000[0x5]
07d6 0008 0000  |    |		.XXX[0x13]
07d8 0090 0000  |    |
07da 0000 0000  |    |
07dc 0020 0000  |    |
07de 0240 0063  | @ c|
07e0 9300 0000  |    |
07e2 0097 659e  |  e |
07e4 8500 006c  |   l|
07e6 1030 0006  | 0  |
07e8 89ea       |    |
07e9 0000 0000  |    |		.BLANK	0000[0x11]
07fa 0fb3 0800  |    |		.XXX[0x2]
07fc 0000 0000  |    |		.BLANK	0000[0x4]