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

⟦9bb4b384d⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0778       | x  |		.CONST	0x0778								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006a       | j  |		.CONST	0x006a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000d 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
000f 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0011 029a 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "I386_Unix_Als_Xt"
0016 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "I386_Unix_Als_Xt"
0018 4801       |H   |		Short_Literal	0x1
0019 4807       |H   |		Short_Literal	0x7
001a 4801       |H   |		Short_Literal	0x1
001b 4810       |H   |		Short_Literal	0x10
001c 00e9       |    |		Load_Encached	String_Cache
001d 035b       | [  |		Declare_Type	Array,Constrained
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 4801       |H   |		Short_Literal	0x1
0020 035d       | ]  |		Declare_Type	Array,Defined
0021 00d8       |    |		Load_Top	At_Offset_0
0022 0337       | 7  |		Declare_Variable	Array
0023 00d8       |    |		Load_Top	At_Offset_0
0024 0335       | 5  |		Declare_Variable	Array,Duplicate
0025 00cd       |    |		Action	Spare6_Action
0026 0092 066f  |   o|		Action	Push_String_Extended,0x66f					; "Rs6000_Aix_Ibm  "
0028 00da       |    |		Load_Top	At_Offset_2
0029 01d8       |    |		Execute	Vector,Element_Type
002a 0119       |    |		Execute	Any,Check_In_Formal_Type
002b 4801       |H   |		Short_Literal	0x1
002c 00da       |    |		Load_Top	At_Offset_2
002d 01d6       |    |		Execute	Vector,Field_Write
002e 0092 0670  |   p|		Action	Push_String_Extended,0x670					; "Vax_Vms_Dec_Xt  "
0030 00da       |    |		Load_Top	At_Offset_2
0031 01d8       |    |		Execute	Vector,Element_Type
0032 0119       |    |		Execute	Any,Check_In_Formal_Type
0033 4802       |H   |		Short_Literal	0x2
0034 00da       |    |		Load_Top	At_Offset_2
0035 01d6       |    |		Execute	Vector,Field_Write
0036 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "I386_Unix_Als_Xt"
0038 00da       |    |		Load_Top	At_Offset_2
0039 01d8       |    |		Execute	Vector,Element_Type
003a 0119       |    |		Execute	Any,Check_In_Formal_Type
003b 4803       |H   |		Short_Literal	0x3
003c 00da       |    |		Load_Top	At_Offset_2
003d 01d6       |    |		Execute	Vector,Field_Write
003e 0092 0671  |   q|		Action	Push_String_Extended,0x671					; "I486_Iux_Als_Xt "
0040 00da       |    |		Load_Top	At_Offset_2
0041 01d8       |    |		Execute	Vector,Element_Type
0042 0119       |    |		Execute	Any,Check_In_Formal_Type
0043 4804       |H   |		Short_Literal	0x4
0044 00da       |    |		Load_Top	At_Offset_2
0045 01d6       |    |		Execute	Vector,Field_Write
0046 0092 0672  |   r|		Action	Push_String_Extended,0x672					; "I960_Vms_Tar_Xt "
0048 00da       |    |		Load_Top	At_Offset_2
0049 01d8       |    |		Execute	Vector,Element_Type
004a 0119       |    |		Execute	Any,Check_In_Formal_Type
004b 4805       |H   |		Short_Literal	0x5
004c 00da       |    |		Load_Top	At_Offset_2
004d 01d6       |    |		Execute	Vector,Field_Write
004e 0092 0673  |   s|		Action	Push_String_Extended,0x673					; "IC30_Vms_Tar_Xt "
0050 00da       |    |		Load_Top	At_Offset_2
0051 01d8       |    |		Execute	Vector,Element_Type
0052 0119       |    |		Execute	Any,Check_In_Formal_Type
0053 4806       |H   |		Short_Literal	0x6
0054 00da       |    |		Load_Top	At_Offset_2
0055 01d6       |    |		Execute	Vector,Field_Write
0056 0092 0674  |   t|		Action	Push_String_Extended,0x674					; "Sparc_Sun_Xt    "
0058 00da       |    |		Load_Top	At_Offset_2
0059 01d8       |    |		Execute	Vector,Element_Type
005a 0119       |    |		Execute	Any,Check_In_Formal_Type
005b 4807       |H   |		Short_Literal	0x7
005c 00da       |    |		Load_Top	At_Offset_2
005d 01d6       |    |		Execute	Vector,Field_Write
005e 00d9       |    |		Load_Top	At_Offset_1
005f 01d4       |    |		Execute	Vector,Structure_Write
0060 029d 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call
0062 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0069 00c7       |    |		Action	Elaborate_Subprogram
006a			BODY_0008:
006a 00bc       |    |		Action	Signal_Activated
006b 00bb       |    |		Action	Signal_Completion
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 02ce       |    |		.CONST	0x02ce								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0018       |    |		.CONST	0x0018								; Number of locals
0073			INIT_0070:
0073 e001       |    |		Load	0x0,0x1
0074 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0075 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0076 02c7       |    |		Declare_Variable	Any
0077 e212       |    |		Load	0x1,0x12
0078 e001       |    |		Load	0x0,0x1
0079 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
007a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
007b e001       |    |		Load	0x0,0x1
007c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
007d 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
007e e001       |    |		Load	0x0,0x1
007f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0080 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0081 e001       |    |		Load	0x0,0x1
0082 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0083 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0084 e001       |    |		Load	0x0,0x1
0085 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0086 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0087 e001       |    |		Load	0x0,0x1
0088 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0089 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
008a a402       |    |		Store_Unchecked	0x2,0x2
008b e001       |    |		Load	0x0,0x1
008c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
008d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008e 02c7       |    |		Declare_Variable	Any
008f e212       |    |		Load	0x1,0x12
0090 00da       |    |		Load_Top	At_Offset_2
0091 e001       |    |		Load	0x0,0x1
0092 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0093 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0094 e001       |    |		Load	0x0,0x1
0095 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0096 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0097 e001       |    |		Load	0x0,0x1
0098 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0099 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
009a a403       |    |		Store_Unchecked	0x2,0x3
009b e001       |    |		Load	0x0,0x1
009c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
009d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
009e 02c7       |    |		Declare_Variable	Any
009f e212       |    |		Load	0x1,0x12
00a0 0092 0675  |   u|		Action	Push_String_Extended,0x675					; "Boolean"
00a2 e001       |    |		Load	0x0,0x1
00a3 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00a4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00a5 a404       |    |		Store_Unchecked	0x2,0x4
00a6 e212       |    |		Load	0x1,0x12
00a7 e001       |    |		Load	0x0,0x1
00a8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00a9 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00aa 00da       |    |		Load_Top	At_Offset_2
00ab e403       |    |		Load	0x2,0x3
00ac 0092 0676  |   v|		Action	Push_String_Extended,0x676					; "is_array"
00ae e001       |    |		Load	0x0,0x1
00af 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00b0 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00b1 e001       |    |		Load	0x0,0x1
00b2 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00b3 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
00b4 011e       |    |		Execute	Any,Convert
00b5 e001       |    |		Load	0x0,0x1
00b6 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00b7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b8 02c7       |    |		Declare_Variable	Any
00b9 e212       |    |		Load	0x1,0x12
00ba e001       |    |		Load	0x0,0x1
00bb 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00bc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00bd e212       |    |		Load	0x1,0x12
00be e001       |    |		Load	0x0,0x1
00bf 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00c0 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00c1 e001       |    |		Load	0x0,0x1
00c2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00c3 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00c4 4801       |H   |		Short_Literal	0x1
00c5 e001       |    |		Load	0x0,0x1
00c6 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00c7 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
00c8 0337       | 7  |		Declare_Variable	Array
00c9 4801       |H   |		Short_Literal	0x1
00ca 4807       |H   |		Short_Literal	0x7
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 01d6       |    |		Execute	Vector,Field_Write
00cd 4806       |H   |		Short_Literal	0x6
00ce 4800       |H   |		Short_Literal	0x0
00cf 4800       |H   |		Short_Literal	0x0
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 e40d       |    |		Load	0x2,0xd
00d2 01d6       |    |		Execute	Vector,Field_Write
00d3 3ffb       |?   |		Loop_Increasing	0xcf
00d4 480e       |H   |		Short_Literal	0xe
00d5 4808       |H   |		Short_Literal	0x8
00d6 4800       |H   |		Short_Literal	0x0
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 e40d       |    |		Load	0x2,0xd
00d9 01d6       |    |		Execute	Vector,Field_Write
00da 3ffb       |?   |		Loop_Increasing	0xd6
00db e001       |    |		Load	0x0,0x1
00dc 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00dd 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
00de 01c3       |    |		Execute	Vector,Check_In_Type
00df e001       |    |		Load	0x0,0x1
00e0 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00e1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e2 e001       |    |		Load	0x0,0x1
00e3 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00e4 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
00e5 e001       |    |		Load	0x0,0x1
00e6 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00e7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e8 a406       |    |		Store_Unchecked	0x2,0x6
00e9 e001       |    |		Load	0x0,0x1
00ea 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00eb 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00ec 02c7       |    |		Declare_Variable	Any
00ed e212       |    |		Load	0x1,0x12
00ee e001       |    |		Load	0x0,0x1
00ef 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00f0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00f1 a407       |    |		Store_Unchecked	0x2,0x7
00f2 e212       |    |		Load	0x1,0x12
00f3 e001       |    |		Load	0x0,0x1
00f4 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00f5 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 e406       |    |		Load	0x2,0x6
00f8 0092 0677  |   w|		Action	Push_String_Extended,0x677					; "Record_Descriptor"
00fa e001       |    |		Load	0x0,0x1
00fb 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00fc 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00fd e001       |    |		Load	0x0,0x1
00fe 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00ff 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0100 011e       |    |		Execute	Any,Convert
0101 e001       |    |		Load	0x0,0x1
0102 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0103 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0104 02c7       |    |		Declare_Variable	Any
0105 e212       |    |		Load	0x1,0x12
0106 e001       |    |		Load	0x0,0x1
0107 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0108 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0109 e212       |    |		Load	0x1,0x12
010a e001       |    |		Load	0x0,0x1
010b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
010c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
010d e001       |    |		Load	0x0,0x1
010e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
010f 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0110 4801       |H   |		Short_Literal	0x1
0111 e001       |    |		Load	0x0,0x1
0112 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0113 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
0114 0337       | 7  |		Declare_Variable	Array
0115 4801       |H   |		Short_Literal	0x1
0116 4807       |H   |		Short_Literal	0x7
0117 00da       |    |		Load_Top	At_Offset_2
0118 01d6       |    |		Execute	Vector,Field_Write
0119 4806       |H   |		Short_Literal	0x6
011a 4800       |H   |		Short_Literal	0x0
011b 4800       |H   |		Short_Literal	0x0
011c 00d9       |    |		Load_Top	At_Offset_1
011d e410       |    |		Load	0x2,0x10
011e 01d6       |    |		Execute	Vector,Field_Write
011f 3ffb       |?   |		Loop_Increasing	0x11b
0120 480e       |H   |		Short_Literal	0xe
0121 4808       |H   |		Short_Literal	0x8
0122 4800       |H   |		Short_Literal	0x0
0123 00d9       |    |		Load_Top	At_Offset_1
0124 e410       |    |		Load	0x2,0x10
0125 01d6       |    |		Execute	Vector,Field_Write
0126 3ffb       |?   |		Loop_Increasing	0x122
0127 e001       |    |		Load	0x0,0x1
0128 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0129 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
012a 01c3       |    |		Execute	Vector,Check_In_Type
012b e001       |    |		Load	0x0,0x1
012c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
012d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
012e e001       |    |		Load	0x0,0x1
012f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0130 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0131 e001       |    |		Load	0x0,0x1
0132 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0133 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0134 a409       |    |		Store_Unchecked	0x2,0x9
0135 e001       |    |		Load	0x0,0x1
0136 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0137 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0138 02c7       |    |		Declare_Variable	Any
0139 e212       |    |		Load	0x1,0x12
013a e001       |    |		Load	0x0,0x1
013b 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
013c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
013d a40a       |    |		Store_Unchecked	0x2,0xa
013e e212       |    |		Load	0x1,0x12
013f e001       |    |		Load	0x0,0x1
0140 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0141 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0142 00da       |    |		Load_Top	At_Offset_2
0143 e409       |    |		Load	0x2,0x9
0144 0092 0678  |   x|		Action	Push_String_Extended,0x678					; "Array_Descriptor"
0146 e001       |    |		Load	0x0,0x1
0147 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0148 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0149 e001       |    |		Load	0x0,0x1
014a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
014b 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
014c 011e       |    |		Execute	Any,Convert
014d e001       |    |		Load	0x0,0x1
014e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
014f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0150 02c7       |    |		Declare_Variable	Any
0151 e212       |    |		Load	0x1,0x12
0152 e001       |    |		Load	0x0,0x1
0153 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0154 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0155 e212       |    |		Load	0x1,0x12
0156 e001       |    |		Load	0x0,0x1
0157 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0158 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0159 e001       |    |		Load	0x0,0x1
015a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
015b 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
015c 4801       |H   |		Short_Literal	0x1
015d e001       |    |		Load	0x0,0x1
015e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
015f 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
0160 0337       | 7  |		Declare_Variable	Array
0161 4801       |H   |		Short_Literal	0x1
0162 4805       |H   |		Short_Literal	0x5
0163 00da       |    |		Load_Top	At_Offset_2
0164 01d6       |    |		Execute	Vector,Field_Write
0165 4804       |H   |		Short_Literal	0x4
0166 4800       |H   |		Short_Literal	0x0
0167 4800       |H   |		Short_Literal	0x0
0168 00d9       |    |		Load_Top	At_Offset_1
0169 e413       |    |		Load	0x2,0x13
016a 01d6       |    |		Execute	Vector,Field_Write
016b 3ffb       |?   |		Loop_Increasing	0x167
016c 480e       |H   |		Short_Literal	0xe
016d 4806       |H   |		Short_Literal	0x6
016e 4800       |H   |		Short_Literal	0x0
016f 00d9       |    |		Load_Top	At_Offset_1
0170 e413       |    |		Load	0x2,0x13
0171 01d6       |    |		Execute	Vector,Field_Write
0172 3ffb       |?   |		Loop_Increasing	0x16e
0173 e001       |    |		Load	0x0,0x1
0174 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0175 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
0176 01c3       |    |		Execute	Vector,Check_In_Type
0177 e001       |    |		Load	0x0,0x1
0178 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0179 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
017a e001       |    |		Load	0x0,0x1
017b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
017c 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
017d e001       |    |		Load	0x0,0x1
017e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
017f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0180 a40c       |    |		Store_Unchecked	0x2,0xc
0181 e001       |    |		Load	0x0,0x1
0182 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0183 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0184 02c7       |    |		Declare_Variable	Any
0185 e212       |    |		Load	0x1,0x12
0186 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "integer"
0188 e001       |    |		Load	0x0,0x1
0189 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
018a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
018b a40d       |    |		Store_Unchecked	0x2,0xd
018c e212       |    |		Load	0x1,0x12
018d e001       |    |		Load	0x0,0x1
018e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
018f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0190 00da       |    |		Load_Top	At_Offset_2
0191 e40c       |    |		Load	0x2,0xc
0192 0092 067a  |   z|		Action	Push_String_Extended,0x67a					; "Exception_Code"
0194 e001       |    |		Load	0x0,0x1
0195 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0196 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0197 e001       |    |		Load	0x0,0x1
0198 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0199 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
019a 011e       |    |		Execute	Any,Convert
019b e001       |    |		Load	0x0,0x1
019c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
019d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019e 02c7       |    |		Declare_Variable	Any
019f e212       |    |		Load	0x1,0x12
01a0 e001       |    |		Load	0x0,0x1
01a1 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01a2 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01a3 e212       |    |		Load	0x1,0x12
01a4 e001       |    |		Load	0x0,0x1
01a5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01a6 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
01a7 e001       |    |		Load	0x0,0x1
01a8 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01a9 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
01aa 4801       |H   |		Short_Literal	0x1
01ab e001       |    |		Load	0x0,0x1
01ac 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01ad 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
01ae 0337       | 7  |		Declare_Variable	Array
01af 4801       |H   |		Short_Literal	0x1
01b0 4807       |H   |		Short_Literal	0x7
01b1 00da       |    |		Load_Top	At_Offset_2
01b2 01d6       |    |		Execute	Vector,Field_Write
01b3 4806       |H   |		Short_Literal	0x6
01b4 4800       |H   |		Short_Literal	0x0
01b5 4800       |H   |		Short_Literal	0x0
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 e416       |    |		Load	0x2,0x16
01b8 01d6       |    |		Execute	Vector,Field_Write
01b9 3ffb       |?   |		Loop_Increasing	0x1b5
01ba 480e       |H   |		Short_Literal	0xe
01bb 4808       |H   |		Short_Literal	0x8
01bc 4800       |H   |		Short_Literal	0x0
01bd 00d9       |    |		Load_Top	At_Offset_1
01be e416       |    |		Load	0x2,0x16
01bf 01d6       |    |		Execute	Vector,Field_Write
01c0 3ffb       |?   |		Loop_Increasing	0x1bc
01c1 e001       |    |		Load	0x0,0x1
01c2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01c3 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
01c4 01c3       |    |		Execute	Vector,Check_In_Type
01c5 e001       |    |		Load	0x0,0x1
01c6 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01c7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01c8 e001       |    |		Load	0x0,0x1
01c9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01ca 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
01cb e001       |    |		Load	0x0,0x1
01cc 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ce a40f       |    |		Store_Unchecked	0x2,0xf
01cf e001       |    |		Load	0x0,0x1
01d0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01d1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01d2 02c7       |    |		Declare_Variable	Any
01d3 e212       |    |		Load	0x1,0x12
01d4 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "integer"
01d6 e001       |    |		Load	0x0,0x1
01d7 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01d8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d9 a410       |    |		Store_Unchecked	0x2,0x10
01da e212       |    |		Load	0x1,0x12
01db e001       |    |		Load	0x0,0x1
01dc 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01dd 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01de 00da       |    |		Load_Top	At_Offset_2
01df e40f       |    |		Load	0x2,0xf
01e0 0092 067b  |   {|		Action	Push_String_Extended,0x67b					; "Offset"
01e2 e001       |    |		Load	0x0,0x1
01e3 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01e4 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01e5 e001       |    |		Load	0x0,0x1
01e6 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01e7 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
01e8 011e       |    |		Execute	Any,Convert
01e9 e001       |    |		Load	0x0,0x1
01ea 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01eb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ec 02c7       |    |		Declare_Variable	Any
01ed e212       |    |		Load	0x1,0x12
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef e001       |    |		Load	0x0,0x1
01f0 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01f1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
01f2 e001       |    |		Load	0x0,0x1
01f3 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01f4 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
01f5 e001       |    |		Load	0x0,0x1
01f6 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01f7 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01f8 e001       |    |		Load	0x0,0x1
01f9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01fa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fb 0337       | 7  |		Declare_Variable	Array
01fc 4801       |H   |		Short_Literal	0x1
01fd 480a       |H   |		Short_Literal	0xa
01fe 00da       |    |		Load_Top	At_Offset_2
01ff 01d6       |    |		Execute	Vector,Field_Write
0200 4809       |H   |		Short_Literal	0x9
0201 4800       |H   |		Short_Literal	0x0
0202 4800       |H   |		Short_Literal	0x0
0203 00d9       |    |		Load_Top	At_Offset_1
0204 e418       |    |		Load	0x2,0x18
0205 01d6       |    |		Execute	Vector,Field_Write
0206 3ffb       |?   |		Loop_Increasing	0x202
0207 480e       |H   |		Short_Literal	0xe
0208 480b       |H   |		Short_Literal	0xb
0209 4800       |H   |		Short_Literal	0x0
020a 00d9       |    |		Load_Top	At_Offset_1
020b e418       |    |		Load	0x2,0x18
020c 01d6       |    |		Execute	Vector,Field_Write
020d 3ffb       |?   |		Loop_Increasing	0x209
020e e001       |    |		Load	0x0,0x1
020f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0210 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0211 01c3       |    |		Execute	Vector,Check_In_Type
0212 e001       |    |		Load	0x0,0x1
0213 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0214 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0215 e001       |    |		Load	0x0,0x1
0216 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0217 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0218 e001       |    |		Load	0x0,0x1
0219 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
021a 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
021b e001       |    |		Load	0x0,0x1
021c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
021d 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
021e e001       |    |		Load	0x0,0x1
021f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0220 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0221 a412       |    |		Store_Unchecked	0x2,0x12
0222 e001       |    |		Load	0x0,0x1
0223 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0224 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0225 02c7       |    |		Declare_Variable	Any
0226 e212       |    |		Load	0x1,0x12
0227 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "integer"
0229 e001       |    |		Load	0x0,0x1
022a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
022b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
022c a413       |    |		Store_Unchecked	0x2,0x13
022d e212       |    |		Load	0x1,0x12
022e e001       |    |		Load	0x0,0x1
022f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0230 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0231 00da       |    |		Load_Top	At_Offset_2
0232 e412       |    |		Load	0x2,0x12
0233 0092 067c  |   ||		Action	Push_String_Extended,0x67c					; "Record_Size"
0235 e001       |    |		Load	0x0,0x1
0236 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0237 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0238 e001       |    |		Load	0x0,0x1
0239 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
023a 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
023b 011e       |    |		Execute	Any,Convert
023c e001       |    |		Load	0x0,0x1
023d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
023e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
023f 02c7       |    |		Declare_Variable	Any
0240 e212       |    |		Load	0x1,0x12
0241 00d8       |    |		Load_Top	At_Offset_0
0242 e001       |    |		Load	0x0,0x1
0243 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0244 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0245 e001       |    |		Load	0x0,0x1
0246 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0247 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0248 e001       |    |		Load	0x0,0x1
0249 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
024a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
024b e001       |    |		Load	0x0,0x1
024c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
024d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024e 0337       | 7  |		Declare_Variable	Array
024f 4801       |H   |		Short_Literal	0x1
0250 480a       |H   |		Short_Literal	0xa
0251 00da       |    |		Load_Top	At_Offset_2
0252 01d6       |    |		Execute	Vector,Field_Write
0253 4809       |H   |		Short_Literal	0x9
0254 4800       |H   |		Short_Literal	0x0
0255 4800       |H   |		Short_Literal	0x0
0256 00d9       |    |		Load_Top	At_Offset_1
0257 e41b       |    |		Load	0x2,0x1b
0258 01d6       |    |		Execute	Vector,Field_Write
0259 3ffb       |?   |		Loop_Increasing	0x255
025a 480e       |H   |		Short_Literal	0xe
025b 480b       |H   |		Short_Literal	0xb
025c 4800       |H   |		Short_Literal	0x0
025d 00d9       |    |		Load_Top	At_Offset_1
025e e41b       |    |		Load	0x2,0x1b
025f 01d6       |    |		Execute	Vector,Field_Write
0260 3ffb       |?   |		Loop_Increasing	0x25c
0261 e001       |    |		Load	0x0,0x1
0262 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0263 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0264 01c3       |    |		Execute	Vector,Check_In_Type
0265 e001       |    |		Load	0x0,0x1
0266 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0267 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0268 e001       |    |		Load	0x0,0x1
0269 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
026a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
026b e001       |    |		Load	0x0,0x1
026c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
026d 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
026e e001       |    |		Load	0x0,0x1
026f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0270 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0271 e001       |    |		Load	0x0,0x1
0272 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0273 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0274 a415       |    |		Store_Unchecked	0x2,0x15
0275 e001       |    |		Load	0x0,0x1
0276 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0277 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0278 02c7       |    |		Declare_Variable	Any
0279 e212       |    |		Load	0x1,0x12
027a 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "integer"
027c e001       |    |		Load	0x0,0x1
027d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
027e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
027f a416       |    |		Store_Unchecked	0x2,0x16
0280 e212       |    |		Load	0x1,0x12
0281 e001       |    |		Load	0x0,0x1
0282 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0283 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0284 00da       |    |		Load_Top	At_Offset_2
0285 e415       |    |		Load	0x2,0x15
0286 0092 067d  |   }|		Action	Push_String_Extended,0x67d					; "Variant_Index"
0288 e001       |    |		Load	0x0,0x1
0289 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
028a 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
028b e001       |    |		Load	0x0,0x1
028c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
028d 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
028e 011e       |    |		Execute	Any,Convert
028f 4801       |H   |		Short_Literal	0x1
0290 4807       |H   |		Short_Literal	0x7
0291 e001       |    |		Load	0x0,0x1
0292 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0293 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0294 035b       | [  |		Declare_Type	Array,Constrained
0295 0337       | 7  |		Declare_Variable	Array
0296 e405       |    |		Load	0x2,0x5
0297 e001       |    |		Load	0x0,0x1
0298 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0299 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
029a 0119       |    |		Execute	Any,Check_In_Formal_Type
029b 4801       |H   |		Short_Literal	0x1
029c 00da       |    |		Load_Top	At_Offset_2
029d 01d6       |    |		Execute	Vector,Field_Write
029e e408       |    |		Load	0x2,0x8
029f e001       |    |		Load	0x0,0x1
02a0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02a1 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02a2 0119       |    |		Execute	Any,Check_In_Formal_Type
02a3 4802       |H   |		Short_Literal	0x2
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 01d6       |    |		Execute	Vector,Field_Write
02a6 e40b       |    |		Load	0x2,0xb
02a7 e001       |    |		Load	0x0,0x1
02a8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02a9 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02aa 0119       |    |		Execute	Any,Check_In_Formal_Type
02ab 4803       |H   |		Short_Literal	0x3
02ac 00da       |    |		Load_Top	At_Offset_2
02ad 01d6       |    |		Execute	Vector,Field_Write
02ae e40e       |    |		Load	0x2,0xe
02af e001       |    |		Load	0x0,0x1
02b0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02b1 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02b2 0119       |    |		Execute	Any,Check_In_Formal_Type
02b3 4804       |H   |		Short_Literal	0x4
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 01d6       |    |		Execute	Vector,Field_Write
02b6 e411       |    |		Load	0x2,0x11
02b7 e001       |    |		Load	0x0,0x1
02b8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02b9 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02ba 0119       |    |		Execute	Any,Check_In_Formal_Type
02bb 4805       |H   |		Short_Literal	0x5
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d6       |    |		Execute	Vector,Field_Write
02be e414       |    |		Load	0x2,0x14
02bf e001       |    |		Load	0x0,0x1
02c0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02c1 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02c2 0119       |    |		Execute	Any,Check_In_Formal_Type
02c3 4806       |H   |		Short_Literal	0x6
02c4 00da       |    |		Load_Top	At_Offset_2
02c5 01d6       |    |		Execute	Vector,Field_Write
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 e001       |    |		Load	0x0,0x1
02c8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02c9 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02ca 0119       |    |		Execute	Any,Check_In_Formal_Type
02cb 4807       |H   |		Short_Literal	0x7
02cc 00da       |    |		Load_Top	At_Offset_2
02cd 01d6       |    |		Execute	Vector,Field_Write
02ce			BODY_0070:
02ce e211       |    |		Load	0x1,0x11
02cf 8215       |    |		Call	0x1,0x15
02d0 7008       |p   |		Jump_Nonzero	0x2d9
02d1 e002       |    |		Load	0x0,0x2
02d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d3 4807       |H   |		Short_Literal	0x7
02d4 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "The I386_Unix_Als_Xt target has not been authorized on this machine."
02d6 e003       |    |		Load	0x0,0x3
02d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d8 08e2       |    |		Execute_Immediate	Raise,0xe2
02d9 e212       |    |		Load	0x1,0x12
02da 00d9       |    |		Load_Top	At_Offset_1
02db e001       |    |		Load	0x0,0x1
02dc 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02dd 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02de e001       |    |		Load	0x0,0x1
02df 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02e0 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
02e1 011d       |    |		Execute	Any,Convert_To_Formal
02e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e3 0000 0000  |    |		.BLANK	0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 03ac       |    |		.CONST	0x03ac								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 000c       |    |		.CONST	0x000c								; Number of locals
02eb			INIT_02e8:
02eb e212       |    |		Load	0x1,0x12
02ec 487f       |H   |		Short_Literal	0x7f
02ed e004       |    |		Load	0x0,0x4
02ee 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
02ef 4f80       |O   |		Short_Literal	-0x80
02f0 e004       |    |		Load	0x0,0x4
02f1 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
02f2 4808       |H   |		Short_Literal	0x8
02f3 0092 067f  |    |		Action	Push_String_Extended,0x67f					; "SHORT_SHORT_INTEGER"
02f5 e001       |    |		Load	0x0,0x1
02f6 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
02f7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f8 e001       |    |		Load	0x0,0x1
02f9 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
02fa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02fb 011e       |    |		Execute	Any,Convert
02fc e212       |    |		Load	0x1,0x12
02fd 60e2       |`   |		Indirect_Literal	Discrete,0x3e0,{0x00000000, 0x00007fff}
02fe e004       |    |		Load	0x0,0x4
02ff 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0300 60db       |`   |		Indirect_Literal	Discrete,0x3dc,{0xffffffff, 0xffff8000}
0301 e004       |    |		Load	0x0,0x4
0302 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0303 4810       |H   |		Short_Literal	0x10
0304 0092 0680  |    |		Action	Push_String_Extended,0x680					; "SHORT_INTEGER"
0306 e001       |    |		Load	0x0,0x1
0307 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0308 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0309 e001       |    |		Load	0x0,0x1
030a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
030b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
030c 011e       |    |		Execute	Any,Convert
030d e212       |    |		Load	0x1,0x12
030e 60c9       |`   |		Indirect_Literal	Discrete,0x3d8,{0x00000000, 0x7fffffff}
030f e004       |    |		Load	0x0,0x4
0310 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0311 60c2       |`   |		Indirect_Literal	Discrete,0x3d4,{0xffffffff, 0x80000000}
0312 e004       |    |		Load	0x0,0x4
0313 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0314 4820       |H   |		Short_Literal	0x20
0315 0092 0681  |    |		Action	Push_String_Extended,0x681					; "INTEGER"
0317 e001       |    |		Load	0x0,0x1
0318 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0319 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
031a e001       |    |		Load	0x0,0x1
031b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
031c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
031d 011e       |    |		Execute	Any,Convert
031e 4801       |H   |		Short_Literal	0x1
031f 4803       |H   |		Short_Literal	0x3
0320 e001       |    |		Load	0x0,0x1
0321 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0322 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0323 035b       | [  |		Declare_Type	Array,Constrained
0324 0337       | 7  |		Declare_Variable	Array
0325 00db       |    |		Load_Top	At_Offset_3
0326 e001       |    |		Load	0x0,0x1
0327 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0328 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0329 0119       |    |		Execute	Any,Check_In_Formal_Type
032a 4801       |H   |		Short_Literal	0x1
032b 00da       |    |		Load_Top	At_Offset_2
032c 01d6       |    |		Execute	Vector,Field_Write
032d 00da       |    |		Load_Top	At_Offset_2
032e e001       |    |		Load	0x0,0x1
032f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0330 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0331 0119       |    |		Execute	Any,Check_In_Formal_Type
0332 4802       |H   |		Short_Literal	0x2
0333 00da       |    |		Load_Top	At_Offset_2
0334 01d6       |    |		Execute	Vector,Field_Write
0335 00d9       |    |		Load_Top	At_Offset_1
0336 e001       |    |		Load	0x0,0x1
0337 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0338 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0339 0119       |    |		Execute	Any,Check_In_Formal_Type
033a 4803       |H   |		Short_Literal	0x3
033b 00da       |    |		Load_Top	At_Offset_2
033c 01d6       |    |		Execute	Vector,Field_Write
033d 5892       |X   |		Indirect_Literal	Float,0x3d0,3.4028199999999998e+38
033e e004       |    |		Load	0x0,0x4
033f 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0340 e004       |    |		Load	0x0,0x4
0341 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0342 011e       |    |		Execute	Any,Convert
0343 5888       |X   |		Indirect_Literal	Float,0x3cc,1.7976899999999999e+308
0344 e004       |    |		Load	0x0,0x4
0345 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0346 e004       |    |		Load	0x0,0x4
0347 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0348 011e       |    |		Execute	Any,Convert
0349 e212       |    |		Load	0x1,0x12
034a 4800       |H   |		Short_Literal	0x0
034b 4801       |H   |		Short_Literal	0x1
034c 4815       |H   |		Short_Literal	0x15
034d 4802       |H   |		Short_Literal	0x2
034e 4f83       |O   |		Short_Literal	-0x7d
034f 4880       |H   |		Short_Literal	0x80
0350 487d       |H}  |		Short_Literal	0x7d
0351 e406       |    |		Load	0x2,0x6
0352 00d8       |    |		Load_Top	At_Offset_0
0353 e004       |    |		Load	0x0,0x4
0354 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0355 4820       |H   |		Short_Literal	0x20
0356 4806       |H   |		Short_Literal	0x6
0357 0092 0682  |    |		Action	Push_String_Extended,0x682					; "FLOAT"
0359 e001       |    |		Load	0x0,0x1
035a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
035b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
035c e001       |    |		Load	0x0,0x1
035d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
035e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
035f 011e       |    |		Execute	Any,Convert
0360 e212       |    |		Load	0x1,0x12
0361 4800       |H   |		Short_Literal	0x0
0362 4801       |H   |		Short_Literal	0x1
0363 4833       |H3  |		Short_Literal	0x33
0364 4802       |H   |		Short_Literal	0x2
0365 4c03       |L   |		Short_Literal	-0x3fd
0366 6061       |`a  |		Indirect_Literal	Discrete,0x3c8,{0x00000000, 0x00000400}
0367 4bfd       |K   |		Short_Literal	0x3fd
0368 e407       |    |		Load	0x2,0x7
0369 00d8       |    |		Load_Top	At_Offset_0
036a e004       |    |		Load	0x0,0x4
036b 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
036c 4840       |H@  |		Short_Literal	0x40
036d 480f       |H   |		Short_Literal	0xf
036e 0092 0683  |    |		Action	Push_String_Extended,0x683					; "LONG_FLOAT"
0370 e001       |    |		Load	0x0,0x1
0371 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0372 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0373 e001       |    |		Load	0x0,0x1
0374 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0375 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0376 011e       |    |		Execute	Any,Convert
0377 4801       |H   |		Short_Literal	0x1
0378 4802       |H   |		Short_Literal	0x2
0379 e001       |    |		Load	0x0,0x1
037a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
037b 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
037c 035b       | [  |		Declare_Type	Array,Constrained
037d 0337       | 7  |		Declare_Variable	Array
037e 00da       |    |		Load_Top	At_Offset_2
037f e001       |    |		Load	0x0,0x1
0380 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0381 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0382 0119       |    |		Execute	Any,Check_In_Formal_Type
0383 4801       |H   |		Short_Literal	0x1
0384 00da       |    |		Load_Top	At_Offset_2
0385 01d6       |    |		Execute	Vector,Field_Write
0386 00d9       |    |		Load_Top	At_Offset_1
0387 e001       |    |		Load	0x0,0x1
0388 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0389 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
038a 0119       |    |		Execute	Any,Check_In_Formal_Type
038b 4802       |H   |		Short_Literal	0x2
038c 00da       |    |		Load_Top	At_Offset_2
038d 01d6       |    |		Execute	Vector,Field_Write
038e e212       |    |		Load	0x1,0x12
038f 5834       |X4  |		Indirect_Literal	Float,0x3c4,131072.0
0390 e004       |    |		Load	0x0,0x4
0391 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0392 582d       |X-  |		Indirect_Literal	Float,0x3c0,-131072.0
0393 e004       |    |		Load	0x0,0x4
0394 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0395 4ff2       |O   |		Short_Literal	-0xe
0396 4820       |H   |		Short_Literal	0x20
0397 0092 0684  |    |		Action	Push_String_Extended,0x684					; "DURATION"
0399 e001       |    |		Load	0x0,0x1
039a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
039b 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
039c e001       |    |		Load	0x0,0x1
039d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
039e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
039f 011e       |    |		Execute	Any,Convert
03a0 e212       |    |		Load	0x1,0x12
03a1 00d9       |    |		Load_Top	At_Offset_1
03a2 00db       |    |		Load_Top	At_Offset_3
03a3 e405       |    |		Load	0x2,0x5
03a4 4803       |H   |		Short_Literal	0x3
03a5 e001       |    |		Load	0x0,0x1
03a6 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03a7 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
03a8 e001       |    |		Load	0x0,0x1
03a9 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03aa 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
03ab 011e       |    |		Execute	Any,Convert
03ac			BODY_02e8:
03ac e211       |    |		Load	0x1,0x11
03ad 8215       |    |		Call	0x1,0x15
03ae 7008       |p   |		Jump_Nonzero	0x3b7
03af e002       |    |		Load	0x0,0x2
03b0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03b1 4807       |H   |		Short_Literal	0x7
03b2 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "The I386_Unix_Als_Xt target has not been authorized on this machine."
03b4 e003       |    |		Load	0x0,0x3
03b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b6 08e2       |    |		Execute_Immediate	Raise,0xe2
03b7 00d8       |    |		Load_Top	At_Offset_0
03b8 e001       |    |		Load	0x0,0x1
03b9 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03ba 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
03bb 011d       |    |		Execute	Any,Convert_To_Formal
03bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 c100 0000  |    |		.DBL	-131072.0
03c2 0000 0000  |    |
03c4 4100 0000  |A   |		.DBL	131072.0
03c6 0000 0000  |    |
03c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
03cc 7fef fffc  |    |		.DBL	1.7976899999999999e+308
03ce 57ca 82ad  |W   |
03d0 47ef fffd  |G   |		.DBL	3.4028199999999998e+38
03d2 bd19 d02b  |   +|
03d4 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000000}
03d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
03dc ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffff8000}
03e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 061e       |    |		.CONST	0x061e								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 000f       |    |		.CONST	0x000f								; Number of locals
03eb			INIT_03e8:
03eb e212       |    |		Load	0x1,0x12
03ec e001       |    |		Load	0x0,0x1
03ed 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
03ee 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
03ef e001       |    |		Load	0x0,0x1
03f0 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
03f1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03f2 e212       |    |		Load	0x1,0x12
03f3 e001       |    |		Load	0x0,0x1
03f4 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
03f5 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03f6 4801       |H   |		Short_Literal	0x1
03f7 4801       |H   |		Short_Literal	0x1
03f8 e001       |    |		Load	0x0,0x1
03f9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03fa 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03fb 035b       | [  |		Declare_Type	Array,Constrained
03fc 0337       | 7  |		Declare_Variable	Array
03fd e212       |    |		Load	0x1,0x12
03fe 0092 0685  |    |		Action	Push_String_Extended,0x685					; "Interface"
0400 e001       |    |		Load	0x0,0x1
0401 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0402 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0403 e001       |    |		Load	0x0,0x1
0404 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0405 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0406 0119       |    |		Execute	Any,Check_In_Formal_Type
0407 4801       |H   |		Short_Literal	0x1
0408 00da       |    |		Load_Top	At_Offset_2
0409 01d6       |    |		Execute	Vector,Field_Write
040a 4800       |H   |		Short_Literal	0x0
040b e001       |    |		Load	0x0,0x1
040c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
040d 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
040e 0337       | 7  |		Declare_Variable	Array
040f 4801       |H   |		Short_Literal	0x1
0410 4800       |H   |		Short_Literal	0x0
0411 00da       |    |		Load_Top	At_Offset_2
0412 01d6       |    |		Execute	Vector,Field_Write
0413 4801       |H   |		Short_Literal	0x1
0414 4802       |H   |		Short_Literal	0x2
0415 00da       |    |		Load_Top	At_Offset_2
0416 01d6       |    |		Execute	Vector,Field_Write
0417 4800       |H   |		Short_Literal	0x0
0418 4801       |H   |		Short_Literal	0x1
0419 00da       |    |		Load_Top	At_Offset_2
041a 01d6       |    |		Execute	Vector,Field_Write
041b 480e       |H   |		Short_Literal	0xe
041c 4803       |H   |		Short_Literal	0x3
041d 4800       |H   |		Short_Literal	0x0
041e 00d9       |    |		Load_Top	At_Offset_1
041f e409       |    |		Load	0x2,0x9
0420 01d6       |    |		Execute	Vector,Field_Write
0421 3ffb       |?   |		Loop_Increasing	0x41d
0422 e001       |    |		Load	0x0,0x1
0423 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0424 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
0425 01c3       |    |		Execute	Vector,Check_In_Type
0426 e001       |    |		Load	0x0,0x1
0427 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0428 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0429 e001       |    |		Load	0x0,0x1
042a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
042b 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
042c 0092 0686  |    |		Action	Push_String_Extended,0x686					; "Subprogram_Name"
042e e001       |    |		Load	0x0,0x1
042f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0430 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0431 e001       |    |		Load	0x0,0x1
0432 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0433 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0434 011e       |    |		Execute	Any,Convert
0435 e212       |    |		Load	0x1,0x12
0436 00d8       |    |		Load_Top	At_Offset_0
0437 e212       |    |		Load	0x1,0x12
0438 e001       |    |		Load	0x0,0x1
0439 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
043a 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
043b e212       |    |		Load	0x1,0x12
043c 0092 0687  |    |		Action	Push_String_Extended,0x687					; "String"
043e e001       |    |		Load	0x0,0x1
043f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0440 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0441 e001       |    |		Load	0x0,0x1
0442 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0443 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0444 e001       |    |		Load	0x0,0x1
0445 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0446 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0447 0092 0688  |    |		Action	Push_String_Extended,0x688					; "String_Literal"
0449 e001       |    |		Load	0x0,0x1
044a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
044b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
044c e001       |    |		Load	0x0,0x1
044d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
044e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
044f 011e       |    |		Execute	Any,Convert
0450 4801       |H   |		Short_Literal	0x1
0451 4802       |H   |		Short_Literal	0x2
0452 e001       |    |		Load	0x0,0x1
0453 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0454 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0455 035b       | [  |		Declare_Type	Array,Constrained
0456 0337       | 7  |		Declare_Variable	Array
0457 00da       |    |		Load_Top	At_Offset_2
0458 e001       |    |		Load	0x0,0x1
0459 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
045a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
045b 0119       |    |		Execute	Any,Check_In_Formal_Type
045c 4801       |H   |		Short_Literal	0x1
045d 00da       |    |		Load_Top	At_Offset_2
045e 01d6       |    |		Execute	Vector,Field_Write
045f 00d9       |    |		Load_Top	At_Offset_1
0460 e001       |    |		Load	0x0,0x1
0461 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0462 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0463 0119       |    |		Execute	Any,Check_In_Formal_Type
0464 4802       |H   |		Short_Literal	0x2
0465 00da       |    |		Load_Top	At_Offset_2
0466 01d6       |    |		Execute	Vector,Field_Write
0467 e212       |    |		Load	0x1,0x12
0468 4802       |H   |		Short_Literal	0x2
0469 00da       |    |		Load_Top	At_Offset_2
046a e001       |    |		Load	0x0,0x1
046b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
046c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
046d 0337       | 7  |		Declare_Variable	Array
046e 4801       |H   |		Short_Literal	0x1
046f 4803       |H   |		Short_Literal	0x3
0470 00da       |    |		Load_Top	At_Offset_2
0471 01d6       |    |		Execute	Vector,Field_Write
0472 4802       |H   |		Short_Literal	0x2
0473 4800       |H   |		Short_Literal	0x0
0474 4800       |H   |		Short_Literal	0x0
0475 00d9       |    |		Load_Top	At_Offset_1
0476 e408       |    |		Load	0x2,0x8
0477 01d6       |    |		Execute	Vector,Field_Write
0478 3ffb       |?   |		Loop_Increasing	0x474
0479 4800       |H   |		Short_Literal	0x0
047a 4804       |H   |		Short_Literal	0x4
047b 00da       |    |		Load_Top	At_Offset_2
047c 01d6       |    |		Execute	Vector,Field_Write
047d e001       |    |		Load	0x0,0x1
047e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
047f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0480 01c3       |    |		Execute	Vector,Check_In_Type
0481 0092 0689  |    |		Action	Push_String_Extended,0x689					; "Interface_Name"
0483 e001       |    |		Load	0x0,0x1
0484 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0485 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0486 e001       |    |		Load	0x0,0x1
0487 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0488 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0489 011e       |    |		Execute	Any,Convert
048a e212       |    |		Load	0x1,0x12
048b 4801       |H   |		Short_Literal	0x1
048c 4802       |H   |		Short_Literal	0x2
048d e001       |    |		Load	0x0,0x1
048e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
048f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0490 035b       | [  |		Declare_Type	Array,Constrained
0491 0337       | 7  |		Declare_Variable	Array
0492 e212       |    |		Load	0x1,0x12
0493 0092 068a  |    |		Action	Push_String_Extended,0x68a					; "on"
0495 e001       |    |		Load	0x0,0x1
0496 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0497 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0498 e001       |    |		Load	0x0,0x1
0499 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
049a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
049b 0119       |    |		Execute	Any,Check_In_Formal_Type
049c 4801       |H   |		Short_Literal	0x1
049d 00da       |    |		Load_Top	At_Offset_2
049e 01d6       |    |		Execute	Vector,Field_Write
049f e212       |    |		Load	0x1,0x12
04a0 0092 068b  |    |		Action	Push_String_Extended,0x68b					; "off"
04a2 e001       |    |		Load	0x0,0x1
04a3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04a4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04a5 e001       |    |		Load	0x0,0x1
04a6 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a8 0119       |    |		Execute	Any,Check_In_Formal_Type
04a9 4802       |H   |		Short_Literal	0x2
04aa 00da       |    |		Load_Top	At_Offset_2
04ab 01d6       |    |		Execute	Vector,Field_Write
04ac e001       |    |		Load	0x0,0x1
04ad 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
04ae 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04af e001       |    |		Load	0x0,0x1
04b0 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
04b1 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
04b2 e001       |    |		Load	0x0,0x1
04b3 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
04b4 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
04b5 00ea       |    |		Load_Encached	Null_String_Cache
04b6 e001       |    |		Load	0x0,0x1
04b7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04b8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04b9 e001       |    |		Load	0x0,0x1
04ba 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04bb 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
04bc 011e       |    |		Execute	Any,Convert
04bd 4801       |H   |		Short_Literal	0x1
04be 4801       |H   |		Short_Literal	0x1
04bf e001       |    |		Load	0x0,0x1
04c0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04c1 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
04c2 035b       | [  |		Declare_Type	Array,Constrained
04c3 0337       | 7  |		Declare_Variable	Array
04c4 00d9       |    |		Load_Top	At_Offset_1
04c5 e001       |    |		Load	0x0,0x1
04c6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04c7 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
04c8 0119       |    |		Execute	Any,Check_In_Formal_Type
04c9 4801       |H   |		Short_Literal	0x1
04ca 00da       |    |		Load_Top	At_Offset_2
04cb 01d6       |    |		Execute	Vector,Field_Write
04cc e212       |    |		Load	0x1,0x12
04cd 4801       |H   |		Short_Literal	0x1
04ce 00da       |    |		Load_Top	At_Offset_2
04cf e001       |    |		Load	0x0,0x1
04d0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04d1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04d2 0092 068c  |    |		Action	Push_String_Extended,0x68c					; "Indent"
04d4 e001       |    |		Load	0x0,0x1
04d5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04d6 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
04d7 e001       |    |		Load	0x0,0x1
04d8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04d9 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
04da 011e       |    |		Execute	Any,Convert
04db e212       |    |		Load	0x1,0x12
04dc 4801       |H   |		Short_Literal	0x1
04dd 4802       |H   |		Short_Literal	0x2
04de e001       |    |		Load	0x0,0x1
04df 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04e0 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
04e1 035b       | [  |		Declare_Type	Array,Constrained
04e2 0337       | 7  |		Declare_Variable	Array
04e3 e212       |    |		Load	0x1,0x12
04e4 0092 068d  |    |		Action	Push_String_Extended,0x68d					; "time"
04e6 e001       |    |		Load	0x0,0x1
04e7 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04e8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04e9 e001       |    |		Load	0x0,0x1
04ea 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04eb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04ec 0119       |    |		Execute	Any,Check_In_Formal_Type
04ed 4801       |H   |		Short_Literal	0x1
04ee 00da       |    |		Load_Top	At_Offset_2
04ef 01d6       |    |		Execute	Vector,Field_Write
04f0 e212       |    |		Load	0x1,0x12
04f1 0092 068e  |    |		Action	Push_String_Extended,0x68e					; "space"
04f3 e001       |    |		Load	0x0,0x1
04f4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04f5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04f6 e001       |    |		Load	0x0,0x1
04f7 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04f8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f9 0119       |    |		Execute	Any,Check_In_Formal_Type
04fa 4802       |H   |		Short_Literal	0x2
04fb 00da       |    |		Load_Top	At_Offset_2
04fc 01d6       |    |		Execute	Vector,Field_Write
04fd e001       |    |		Load	0x0,0x1
04fe 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
04ff 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0500 e001       |    |		Load	0x0,0x1
0501 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0502 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0503 e001       |    |		Load	0x0,0x1
0504 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0505 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0506 00ea       |    |		Load_Encached	Null_String_Cache
0507 e001       |    |		Load	0x0,0x1
0508 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0509 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
050a e001       |    |		Load	0x0,0x1
050b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
050c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
050d 011e       |    |		Execute	Any,Convert
050e e212       |    |		Load	0x1,0x12
050f e001       |    |		Load	0x0,0x1
0510 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0511 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0512 e212       |    |		Load	0x1,0x12
0513 e001       |    |		Load	0x0,0x1
0514 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0515 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0516 e001       |    |		Load	0x0,0x1
0517 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0518 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0519 e001       |    |		Load	0x0,0x1
051a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
051b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
051c e001       |    |		Load	0x0,0x1
051d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
051e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
051f 0337       | 7  |		Declare_Variable	Array
0520 4801       |H   |		Short_Literal	0x1
0521 480a       |H   |		Short_Literal	0xa
0522 00da       |    |		Load_Top	At_Offset_2
0523 01d6       |    |		Execute	Vector,Field_Write
0524 4809       |H   |		Short_Literal	0x9
0525 4800       |H   |		Short_Literal	0x0
0526 4800       |H   |		Short_Literal	0x0
0527 00d9       |    |		Load_Top	At_Offset_1
0528 e410       |    |		Load	0x2,0x10
0529 01d6       |    |		Execute	Vector,Field_Write
052a 3ffb       |?   |		Loop_Increasing	0x526
052b 480e       |H   |		Short_Literal	0xe
052c 480b       |H   |		Short_Literal	0xb
052d 4800       |H   |		Short_Literal	0x0
052e 00d9       |    |		Load_Top	At_Offset_1
052f e410       |    |		Load	0x2,0x10
0530 01d6       |    |		Execute	Vector,Field_Write
0531 3ffb       |?   |		Loop_Increasing	0x52d
0532 e001       |    |		Load	0x0,0x1
0533 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0534 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0535 01c3       |    |		Execute	Vector,Check_In_Type
0536 e001       |    |		Load	0x0,0x1
0537 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0538 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0539 e001       |    |		Load	0x0,0x1
053a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
053b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
053c e001       |    |		Load	0x0,0x1
053d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
053e 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
053f e001       |    |		Load	0x0,0x1
0540 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0541 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0542 0092 068f  |    |		Action	Push_String_Extended,0x68f					; "On"
0544 e001       |    |		Load	0x0,0x1
0545 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0546 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0547 e001       |    |		Load	0x0,0x1
0548 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0549 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
054a 011e       |    |		Execute	Any,Convert
054b 4801       |H   |		Short_Literal	0x1
054c 4802       |H   |		Short_Literal	0x2
054d e001       |    |		Load	0x0,0x1
054e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
054f 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0550 035b       | [  |		Declare_Type	Array,Constrained
0551 0337       | 7  |		Declare_Variable	Array
0552 00da       |    |		Load_Top	At_Offset_2
0553 e001       |    |		Load	0x0,0x1
0554 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0555 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0556 0119       |    |		Execute	Any,Check_In_Formal_Type
0557 4801       |H   |		Short_Literal	0x1
0558 00da       |    |		Load_Top	At_Offset_2
0559 01d6       |    |		Execute	Vector,Field_Write
055a 00d9       |    |		Load_Top	At_Offset_1
055b e001       |    |		Load	0x0,0x1
055c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
055d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
055e 0119       |    |		Execute	Any,Check_In_Formal_Type
055f 4802       |H   |		Short_Literal	0x2
0560 00da       |    |		Load_Top	At_Offset_2
0561 01d6       |    |		Execute	Vector,Field_Write
0562 e212       |    |		Load	0x1,0x12
0563 4802       |H   |		Short_Literal	0x2
0564 00da       |    |		Load_Top	At_Offset_2
0565 e001       |    |		Load	0x0,0x1
0566 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0567 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0568 0337       | 7  |		Declare_Variable	Array
0569 4801       |H   |		Short_Literal	0x1
056a 4803       |H   |		Short_Literal	0x3
056b 00da       |    |		Load_Top	At_Offset_2
056c 01d6       |    |		Execute	Vector,Field_Write
056d 4802       |H   |		Short_Literal	0x2
056e 4800       |H   |		Short_Literal	0x0
056f 4800       |H   |		Short_Literal	0x0
0570 00d9       |    |		Load_Top	At_Offset_1
0571 e40f       |    |		Load	0x2,0xf
0572 01d6       |    |		Execute	Vector,Field_Write
0573 3ffb       |?   |		Loop_Increasing	0x56f
0574 4800       |H   |		Short_Literal	0x0
0575 4804       |H   |		Short_Literal	0x4
0576 00da       |    |		Load_Top	At_Offset_2
0577 01d6       |    |		Execute	Vector,Field_Write
0578 e001       |    |		Load	0x0,0x1
0579 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
057a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
057b 01c3       |    |		Execute	Vector,Check_In_Type
057c 0092 0690  |    |		Action	Push_String_Extended,0x690					; "Improve"
057e e001       |    |		Load	0x0,0x1
057f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0580 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0581 e001       |    |		Load	0x0,0x1
0582 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0583 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0584 011e       |    |		Execute	Any,Convert
0585 e001       |    |		Load	0x0,0x1
0586 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0587 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0588 0337       | 7  |		Declare_Variable	Array
0589 00d8       |    |		Load_Top	At_Offset_0
058a 0335       | 5  |		Declare_Variable	Array,Duplicate
058b 00cd       |    |		Action	Spare6_Action
058c 4800       |H   |		Short_Literal	0x0
058d 4800       |H   |		Short_Literal	0x0
058e 00da       |    |		Load_Top	At_Offset_2
058f 01d6       |    |		Execute	Vector,Field_Write
0590 4801       |H   |		Short_Literal	0x1
0591 4801       |H   |		Short_Literal	0x1
0592 00da       |    |		Load_Top	At_Offset_2
0593 01d6       |    |		Execute	Vector,Field_Write
0594 4801       |H   |		Short_Literal	0x1
0595 4802       |H   |		Short_Literal	0x2
0596 00da       |    |		Load_Top	At_Offset_2
0597 01d6       |    |		Execute	Vector,Field_Write
0598 4801       |H   |		Short_Literal	0x1
0599 4803       |H   |		Short_Literal	0x3
059a 00da       |    |		Load_Top	At_Offset_2
059b 01d6       |    |		Execute	Vector,Field_Write
059c 4801       |H   |		Short_Literal	0x1
059d 4804       |H   |		Short_Literal	0x4
059e 00da       |    |		Load_Top	At_Offset_2
059f 01d6       |    |		Execute	Vector,Field_Write
05a0 4801       |H   |		Short_Literal	0x1
05a1 4805       |H   |		Short_Literal	0x5
05a2 00da       |    |		Load_Top	At_Offset_2
05a3 01d6       |    |		Execute	Vector,Field_Write
05a4 4800       |H   |		Short_Literal	0x0
05a5 4806       |H   |		Short_Literal	0x6
05a6 00da       |    |		Load_Top	At_Offset_2
05a7 01d6       |    |		Execute	Vector,Field_Write
05a8 4801       |H   |		Short_Literal	0x1
05a9 4807       |H   |		Short_Literal	0x7
05aa 00da       |    |		Load_Top	At_Offset_2
05ab 01d6       |    |		Execute	Vector,Field_Write
05ac 4801       |H   |		Short_Literal	0x1
05ad 4808       |H   |		Short_Literal	0x8
05ae 00da       |    |		Load_Top	At_Offset_2
05af 01d6       |    |		Execute	Vector,Field_Write
05b0 4801       |H   |		Short_Literal	0x1
05b1 4809       |H   |		Short_Literal	0x9
05b2 00da       |    |		Load_Top	At_Offset_2
05b3 01d6       |    |		Execute	Vector,Field_Write
05b4 4801       |H   |		Short_Literal	0x1
05b5 480a       |H   |		Short_Literal	0xa
05b6 00da       |    |		Load_Top	At_Offset_2
05b7 01d6       |    |		Execute	Vector,Field_Write
05b8 4801       |H   |		Short_Literal	0x1
05b9 480b       |H   |		Short_Literal	0xb
05ba 00da       |    |		Load_Top	At_Offset_2
05bb 01d6       |    |		Execute	Vector,Field_Write
05bc 4801       |H   |		Short_Literal	0x1
05bd 480c       |H   |		Short_Literal	0xc
05be 00da       |    |		Load_Top	At_Offset_2
05bf 01d6       |    |		Execute	Vector,Field_Write
05c0 4801       |H   |		Short_Literal	0x1
05c1 480d       |H   |		Short_Literal	0xd
05c2 00da       |    |		Load_Top	At_Offset_2
05c3 01d6       |    |		Execute	Vector,Field_Write
05c4 00d9       |    |		Load_Top	At_Offset_1
05c5 01d4       |    |		Execute	Vector,Structure_Write
05c6 4801       |H   |		Short_Literal	0x1
05c7 4803       |H   |		Short_Literal	0x3
05c8 e001       |    |		Load	0x0,0x1
05c9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05ca 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
05cb 035b       | [  |		Declare_Type	Array,Constrained
05cc 0337       | 7  |		Declare_Variable	Array
05cd e405       |    |		Load	0x2,0x5
05ce e001       |    |		Load	0x0,0x1
05cf 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05d0 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
05d1 0119       |    |		Execute	Any,Check_In_Formal_Type
05d2 4801       |H   |		Short_Literal	0x1
05d3 00da       |    |		Load_Top	At_Offset_2
05d4 01d6       |    |		Execute	Vector,Field_Write
05d5 e408       |    |		Load	0x2,0x8
05d6 e001       |    |		Load	0x0,0x1
05d7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05d8 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
05d9 0119       |    |		Execute	Any,Check_In_Formal_Type
05da 4802       |H   |		Short_Literal	0x2
05db 00da       |    |		Load_Top	At_Offset_2
05dc 01d6       |    |		Execute	Vector,Field_Write
05dd 00da       |    |		Load_Top	At_Offset_2
05de e001       |    |		Load	0x0,0x1
05df 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05e0 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
05e1 0119       |    |		Execute	Any,Check_In_Formal_Type
05e2 4803       |H   |		Short_Literal	0x3
05e3 00da       |    |		Load_Top	At_Offset_2
05e4 01d6       |    |		Execute	Vector,Field_Write
05e5 e001       |    |		Load	0x0,0x1
05e6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05e7 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
05e8 02c7       |    |		Declare_Variable	Any
05e9 e212       |    |		Load	0x1,0x12
05ea 4801       |H   |		Short_Literal	0x1
05eb 4803       |H   |		Short_Literal	0x3
05ec e001       |    |		Load	0x0,0x1
05ed 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05ee 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
05ef 035b       | [  |		Declare_Type	Array,Constrained
05f0 0337       | 7  |		Declare_Variable	Array
05f1 e212       |    |		Load	0x1,0x12
05f2 0092 0691  |    |		Action	Push_String_Extended,0x691					; "Assembler"
05f4 e001       |    |		Load	0x0,0x1
05f5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05f6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05f7 e001       |    |		Load	0x0,0x1
05f8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05fa 0119       |    |		Execute	Any,Check_In_Formal_Type
05fb 4801       |H   |		Short_Literal	0x1
05fc 00da       |    |		Load_Top	At_Offset_2
05fd 01d6       |    |		Execute	Vector,Field_Write
05fe e212       |    |		Load	0x1,0x12
05ff 0092 0692  |    |		Action	Push_String_Extended,0x692					; "C"
0601 e001       |    |		Load	0x0,0x1
0602 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0603 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0604 e001       |    |		Load	0x0,0x1
0605 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0606 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0607 0119       |    |		Execute	Any,Check_In_Formal_Type
0608 4802       |H   |		Short_Literal	0x2
0609 00da       |    |		Load_Top	At_Offset_2
060a 01d6       |    |		Execute	Vector,Field_Write
060b e212       |    |		Load	0x1,0x12
060c 0092 0693  |    |		Action	Push_String_Extended,0x693					; "Ada"
060e e001       |    |		Load	0x0,0x1
060f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0610 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0611 e001       |    |		Load	0x0,0x1
0612 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0613 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0614 0119       |    |		Execute	Any,Check_In_Formal_Type
0615 4803       |H   |		Short_Literal	0x3
0616 00da       |    |		Load_Top	At_Offset_2
0617 01d6       |    |		Execute	Vector,Field_Write
0618 00db       |    |		Load_Top	At_Offset_3
0619 e40d       |    |		Load	0x2,0xd
061a e001       |    |		Load	0x0,0x1
061b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
061c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
061d a40f       |    |		Store_Unchecked	0x2,0xf
061e			BODY_03e8:
061e e211       |    |		Load	0x1,0x11
061f 8215       |    |		Call	0x1,0x15
0620 7008       |p   |		Jump_Nonzero	0x629
0621 e002       |    |		Load	0x0,0x2
0622 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0623 4807       |H   |		Short_Literal	0x7
0624 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "The I386_Unix_Als_Xt target has not been authorized on this machine."
0626 e003       |    |		Load	0x0,0x3
0627 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0628 08e2       |    |		Execute_Immediate	Raise,0xe2
0629 00d8       |    |		Load_Top	At_Offset_0
062a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062b 0000 0000  |    |		.BLANK	0000[0x5]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 e211       |    |		Load	0x1,0x11
0634 8215       |    |		Call	0x1,0x15
0635 7008       |p   |		Jump_Nonzero	0x63e
0636 e002       |    |		Load	0x0,0x2
0637 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0638 4807       |H   |		Short_Literal	0x7
0639 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; "The I386_Unix_Als_Xt target has not been authorized on this machine."
063b e003       |    |		Load	0x0,0x3
063c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
063d 08e2       |    |		Execute_Immediate	Raise,0xe2
063e 00da       |    |		Load_Top	At_Offset_2
063f e001       |    |		Load	0x0,0x1
0640 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0641 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0642 e001       |    |		Load	0x0,0x1
0643 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0644 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0645 e001       |    |		Load	0x0,0x1
0646 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0647 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0648 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0649 0000 0000  |    |		.BLANK	0000[0x7]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 00cf       |    |		Action	Mark_Auxiliary
0654 4807       |H   |		Short_Literal	0x7
0655 4801       |H   |		Short_Literal	0x1
0656 0007       |    |		Action	Break_Optional
0657 4801       |H   |		Short_Literal	0x1
0658 4820       |H   |		Short_Literal	0x20
0659 00da       |    |		Load_Top	At_Offset_2
065a e214       |    |		Load	0x1,0x14
065b 01d5       |    |		Execute	Vector,Field_Reference
065c e005       |    |		Load	0x0,0x5
065d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
065e 4820       |H   |		Short_Literal	0x20
065f e5ff       |    |		Load	0x2,-0x1
0660 e005       |    |		Load	0x0,0x5
0661 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0662 e005       |    |		Load	0x0,0x5
0663 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0664 6804       |h   |		Jump_Zero	0x669
0665 e5ff       |    |		Load	0x2,-0x1
0666 e006       |    |		Load	0x0,0x6
0667 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0668 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0669 00c8       |    |		Action	Pop_Auxiliary_Range
066a 3fec       |?   |		Loop_Increasing	0x657
066b 00ce       |    |		Action	Pop_Auxiliary
066c 4801       |H   |		Short_Literal	0x1
066d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
066e ; --------------------------------------------------------------------------------------
066e ; STRING TABLE
066e ; --------------------------------------------------------------------------------------
066e 004e       | N  |		.STRTAB	0x004e->0x0695							; "I386_Unix_Als_Xt"
066f 005c       | \  |		.STRTAB	0x005c->0x069d							; "Rs6000_Aix_Ibm  "
0670 006a       | j  |		.STRTAB	0x006a->0x06a5							; "Vax_Vms_Dec_Xt  "
0671 0078       | x  |		.STRTAB	0x0078->0x06ad							; "I486_Iux_Als_Xt "
0672 0086       |    |		.STRTAB	0x0086->0x06b5							; "I960_Vms_Tar_Xt "
0673 0094       |    |		.STRTAB	0x0094->0x06bd							; "IC30_Vms_Tar_Xt "
0674 00a2       |    |		.STRTAB	0x00a2->0x06c5							; "Sparc_Sun_Xt    "
0675 00b0       |    |		.STRTAB	0x00b0->0x06cd							; "Boolean"
0676 00b5       |    |		.STRTAB	0x00b5->0x06d0							; "is_array"
0677 00bb       |    |		.STRTAB	0x00bb->0x06d4							; "Record_Descriptor"
0678 00ca       |    |		.STRTAB	0x00ca->0x06dd							; "Array_Descriptor"
0679 00d8       |    |		.STRTAB	0x00d8->0x06e5							; "integer"
067a 00dd       |    |		.STRTAB	0x00dd->0x06e8							; "Exception_Code"
067b 00e9       |    |		.STRTAB	0x00e9->0x06ef							; "Offset"
067c 00ed       |    |		.STRTAB	0x00ed->0x06f2							; "Record_Size"
067d 00f6       |    |		.STRTAB	0x00f6->0x06f8							; "Variant_Index"
067e 0101       |    |		.STRTAB	0x0101->0x06fe							; "The I386_Unix_Als_Xt target has not been authorized on this machine."
067f 0143       | C  |		.STRTAB	0x0143->0x0720							; "SHORT_SHORT_INTEGER"
0680 0154       | T  |		.STRTAB	0x0154->0x072a							; "SHORT_INTEGER"
0681 015f       | _  |		.STRTAB	0x015f->0x0730							; "INTEGER"
0682 0164       | d  |		.STRTAB	0x0164->0x0734							; "FLOAT"
0683 0167       | g  |		.STRTAB	0x0167->0x0736							; "LONG_FLOAT"
0684 016f       | o  |		.STRTAB	0x016f->0x073b							; "DURATION"
0685 0175       | u  |		.STRTAB	0x0175->0x073f							; "Interface"
0686 017c       | |  |		.STRTAB	0x017c->0x0744							; "Subprogram_Name"
0687 0189       |    |		.STRTAB	0x0189->0x074b							; "String"
0688 018d       |    |		.STRTAB	0x018d->0x074e							; "String_Literal"
0689 0199       |    |		.STRTAB	0x0199->0x0755							; "Interface_Name"
068a 01a5       |    |		.STRTAB	0x01a5->0x075c							; "on"
068b 01a5       |    |		.STRTAB	0x01a5->0x075d							; "off"
068c 01a6       |    |		.STRTAB	0x01a6->0x075f							; "Indent"
068d 01aa       |    |		.STRTAB	0x01aa->0x0762							; "time"
068e 01ac       |    |		.STRTAB	0x01ac->0x0764							; "space"
068f 01af       |    |		.STRTAB	0x01af->0x0766							; "On"
0690 01af       |    |		.STRTAB	0x01af->0x0767							; "Improve"
0691 01b4       |    |		.STRTAB	0x01b4->0x076b							; "Assembler"
0692 01bb       |    |		.STRTAB	0x01bb->0x076f							; "C"
0693 01ba       |    |		.STRTAB	0x01ba->0x0770							; "Ada"
0694 01bb       |    |		.STREND 0x01bb->0x0771
0695 4933 3836  |I386|		.STRTAB_STRINGS
0772 0000 0000  |    |		.BLANK	0000[0x6]
0778 ; --------------------------------------------------------------------------------------
0778 ; Debug Table
0778 ; --------------------------------------------------------------------------------------
0778 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xb427,0x0000,0x0001,0x0000
077e 0000 0000  |    |		.XXX[0x1d]
0780 0003 0000  |    |
0782 008d 0000  |    |
0784 0001 2e00  |  . |
0786 0000 2400  |  $ |
0788 0000 0000  |    |
078a 0000 0c00  |    |
078c 0000 4800  |  H |
078e 0000 0000  |    |
0790 0000 1000  |    |
0792 0000 0000  |    |
0794 0100 0000  |    |
0796 1200 0000  |    |
0798 0000 0000  |    |
079a 0400       |    |
079b 0000 0000  |    |		.BLANK	0000[0xa]
07a5 3c00       |<   |		.XXX[0x1]
07a6 0000 0000  |    |		.BLANK	0000[0x5]
07ab 0800       |    |		.XXX[0x1]
07ac 0000 0000  |    |		.BLANK	0000[0xb]
07b7 007f ffff  |    |		.XXX[0x5]
07b9 ff80 6a6b  |  jk|
07bb e624       | $  |
07bc 0404 0404  |    |		.BLANK	0404[0x44]