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

⟦e60c89fa9⟧

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

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 0668       | h  |		.CONST	0x0668								; 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 00f3       |    |		.CONST	0x00f3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0033       | 3  |		.CONST	0x0033								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4801       |H   |		Short_Literal	0x1
0012 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 4800       |H   |		Short_Literal	0x0
0016 4804       |H   |		Short_Literal	0x4
0017 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
0019 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001a 4800       |H   |		Short_Literal	0x0
001b 4801       |H   |		Short_Literal	0x1
001c 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
001e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001f 4800       |H   |		Short_Literal	0x0
0020 4804       |H   |		Short_Literal	0x4
0021 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
0023 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0024 e001       |    |		Load	0x0,0x1
0025 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0026 0129       | )  |		Execute	Any,Make_Visible
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 e002       |    |		Load	0x0,0x2
0041 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0042 0129       | )  |		Execute	Any,Make_Visible
0043 c226       | &  |		Store	0x1,0x26
0044 e002       |    |		Load	0x0,0x2
0045 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0046 0129       | )  |		Execute	Any,Make_Visible
0047 c227       | '  |		Store	0x1,0x27
0048 e002       |    |		Load	0x0,0x2
0049 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004a 0129       | )  |		Execute	Any,Make_Visible
004b c228       | (  |		Store	0x1,0x28
004c e002       |    |		Load	0x0,0x2
004d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
004e 0129       | )  |		Execute	Any,Make_Visible
004f c229       | )  |		Store	0x1,0x29
0050 e001       |    |		Load	0x0,0x1
0051 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0052 0129       | )  |		Execute	Any,Make_Visible
0053 c217       |    |		Store	0x1,0x17
0054 00db       |    |		Load_Top	At_Offset_3
0055 e228       | (  |		Load	0x1,0x28
0056 02a0       |    |		Declare_Subprogram	Null_Subprogram
0057 4802       |H   |		Short_Literal	0x2
0058 032e       | .  |		Declare_Type	Record,Defined,Visible
0059 c218       |    |		Store	0x1,0x18
005a e226       | &  |		Load	0x1,0x26
005b 00d8       |    |		Load_Top	At_Offset_0
005c 02a0       |    |		Declare_Subprogram	Null_Subprogram
005d 4802       |H   |		Short_Literal	0x2
005e 032e       | .  |		Declare_Type	Record,Defined,Visible
005f c219       |    |		Store	0x1,0x19
0060 e226       | &  |		Load	0x1,0x26
0061 e227       | '  |		Load	0x1,0x27
0062 e228       | (  |		Load	0x1,0x28
0063 e229       | )  |		Load	0x1,0x29
0064 e217       |    |		Load	0x1,0x17
0065 00d8       |    |		Load_Top	At_Offset_0
0066 02a0       |    |		Declare_Subprogram	Null_Subprogram
0067 4806       |H   |		Short_Literal	0x6
0068 032e       | .  |		Declare_Type	Record,Defined,Visible
0069 c21a       |    |		Store	0x1,0x1a
006a e20f       |    |		Load	0x1,0xf
006b e217       |    |		Load	0x1,0x17
006c 4801       |H   |		Short_Literal	0x1
006d e218       |    |		Load	0x1,0x18
006e 029f 0503  |    |		Declare_Subprogram	INIT_0500,For_Call
0070 4801       |H   |		Short_Literal	0x1
0071 4801       |H   |		Short_Literal	0x1
0072 4801       |H   |		Short_Literal	0x1
0073 4800       |H   |		Short_Literal	0x0
0074 4801       |H   |		Short_Literal	0x1
0075 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0076 c21b       |    |		Store	0x1,0x1b
0077 e210       |    |		Load	0x1,0x10
0078 4801       |H   |		Short_Literal	0x1
0079 e219       |    |		Load	0x1,0x19
007a 4801       |H   |		Short_Literal	0x1
007b e211       |    |		Load	0x1,0x11
007c 029f 054b  |   K|		Declare_Subprogram	INIT_0548,For_Call
007e 4802       |H   |		Short_Literal	0x2
007f 4800       |H   |		Short_Literal	0x0
0080 4802       |H   |		Short_Literal	0x2
0081 4800       |H   |		Short_Literal	0x0
0082 4801       |H   |		Short_Literal	0x1
0083 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0084 c21c       |    |		Store	0x1,0x1c
0085 e20e       |    |		Load	0x1,0xe
0086 4801       |H   |		Short_Literal	0x1
0087 e21b       |    |		Load	0x1,0x1b
0088 4801       |H   |		Short_Literal	0x1
0089 e21c       |    |		Load	0x1,0x1c
008a 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
008c 4802       |H   |		Short_Literal	0x2
008d 4800       |H   |		Short_Literal	0x0
008e 4802       |H   |		Short_Literal	0x2
008f 4800       |H   |		Short_Literal	0x0
0090 4801       |H   |		Short_Literal	0x1
0091 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0092 c21d       |    |		Store	0x1,0x1d
0093 e20d       |    |		Load	0x1,0xd
0094 e212       |    |		Load	0x1,0x12
0095 4801       |H   |		Short_Literal	0x1
0096 e21a       |    |		Load	0x1,0x1a
0097 4801       |H   |		Short_Literal	0x1
0098 e21d       |    |		Load	0x1,0x1d
0099 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
009b 4802       |H   |		Short_Literal	0x2
009c 4801       |H   |		Short_Literal	0x1
009d 4802       |H   |		Short_Literal	0x2
009e 4800       |H   |		Short_Literal	0x0
009f 4801       |H   |		Short_Literal	0x1
00a0 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00a1 c21e       |    |		Store	0x1,0x1e
00a2 e003       |    |		Load	0x0,0x3
00a3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a4 0129       | )  |		Execute	Any,Make_Visible
00a5 c21f       |    |		Store	0x1,0x1f
00a6 e004       |    |		Load	0x0,0x4
00a7 0129       | )  |		Execute	Any,Make_Visible
00a8 c220       |    |		Store	0x1,0x20
00a9 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
00ab c221       | !  |		Store	0x1,0x21
00ac 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
00ae c222       | "  |		Store	0x1,0x22
00af 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
00b1 c223       | #  |		Store	0x1,0x23
00b2 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
00b4 c224       | $  |		Store	0x1,0x24
00b5 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
00b7 c225       | %  |		Store	0x1,0x25
00b8 00bf       |    |		Action	Accept_Activation
00b9 e005       |    |		Load	0x0,0x5
00ba 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
00bb 0007       |    |		Action	Break_Optional
00bc e005       |    |		Load	0x0,0x5
00bd 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
00be 0007       |    |		Action	Break_Optional
00bf e006       |    |		Load	0x0,0x6
00c0 e007       |    |		Load	0x0,0x7
00c1 e20d       |    |		Load	0x1,0xd
00c2 e005       |    |		Load	0x0,0x5
00c3 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00c4 0387       |    |		Declare_Variable	Package
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 020f       |    |		Execute	Module,Activate
00c7 e008       |    |		Load	0x0,0x8
00c8 e009       |    |		Load	0x0,0x9
00c9 e20e       |    |		Load	0x1,0xe
00ca e005       |    |		Load	0x0,0x5
00cb 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00cc 0387       |    |		Declare_Variable	Package
00cd 00d8       |    |		Load_Top	At_Offset_0
00ce 020f       |    |		Execute	Module,Activate
00cf e00a       |    |		Load	0x0,0xa
00d0 e00b       |    |		Load	0x0,0xb
00d1 e20f       |    |		Load	0x1,0xf
00d2 e005       |    |		Load	0x0,0x5
00d3 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00d4 0387       |    |		Declare_Variable	Package
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 020f       |    |		Execute	Module,Activate
00d7 e00c       |    |		Load	0x0,0xc
00d8 e00d       |    |		Load	0x0,0xd
00d9 e210       |    |		Load	0x1,0x10
00da e005       |    |		Load	0x0,0x5
00db 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00dc 0387       |    |		Declare_Variable	Package
00dd 00d8       |    |		Load_Top	At_Offset_0
00de 020f       |    |		Execute	Module,Activate
00df e00e       |    |		Load	0x0,0xe
00e0 e00f       |    |		Load	0x0,0xf
00e1 e211       |    |		Load	0x1,0x11
00e2 e005       |    |		Load	0x0,0x5
00e3 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00e4 0387       |    |		Declare_Variable	Package
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 020f       |    |		Execute	Module,Activate
00e7 e001       |    |		Load	0x0,0x1
00e8 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00e9 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00ea 00c7       |    |		Action	Elaborate_Subprogram
00eb 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00ec 00c7       |    |		Action	Elaborate_Subprogram
00ed 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00ee 00c7       |    |		Action	Elaborate_Subprogram
00ef 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00f0 00c7       |    |		Action	Elaborate_Subprogram
00f1 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00f2 00c7       |    |		Action	Elaborate_Subprogram
00f3			BODY_0008:
00f3 00bc       |    |		Action	Signal_Activated
00f4 00bb       |    |		Action	Signal_Completion
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4607       |F   |		Jump_Case	0x8
00fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00fd 7806       |x   |		Jump	0x104								; case 0x1
00fe 7809       |x   |		Jump	0x108								; case 0x2
00ff 780d       |x   |		Jump	0x10d								; case 0x3
0100 7810       |x   |		Jump	0x111								; case 0x4
0101 7811       |x   |		Jump	0x113								; case 0x5
0102 7812       |x   |		Jump	0x115								; case 0x6
0103 7815       |x   |		Jump	0x119								; case 0x7
0104 00da       |    |		Load_Top	At_Offset_2
0105 0091 05f7  |    |		Action	Push_String_Extended_Indexed,0x5f7				; "CALL"
0107 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0108 00db       |    |		Load_Top	At_Offset_3
0109 00db       |    |		Load_Top	At_Offset_3
010a 00e0       |    |		Load_Encached	Standard_Cache
010b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
010c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010d 00da       |    |		Load_Top	At_Offset_2
010e 00e0       |    |		Load_Encached	Standard_Cache
010f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0110 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0111 00db       |    |		Load_Top	At_Offset_3
0112 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0113 00db       |    |		Load_Top	At_Offset_3
0114 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0115 e20d       |    |		Load	0x1,0xd
0116 00dc       |    |		Load_Top	At_Offset_4
0117 0267       | g  |		Execute	Discrete,Predecessor
0118 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0119 e20d       |    |		Load	0x1,0xd
011a 00dc       |    |		Load_Top	At_Offset_4
011b 0268       | h  |		Execute	Discrete,Successor
011c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 4607       |F   |		Jump_Case	0x8
0124 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0125 7806       |x   |		Jump	0x12c								; case 0x1
0126 7809       |x   |		Jump	0x130								; case 0x2
0127 780d       |x   |		Jump	0x135								; case 0x3
0128 7810       |x   |		Jump	0x139								; case 0x4
0129 7811       |x   |		Jump	0x13b								; case 0x5
012a 7812       |x   |		Jump	0x13d								; case 0x6
012b 7815       |x   |		Jump	0x141								; case 0x7
012c 00da       |    |		Load_Top	At_Offset_2
012d 0091 05f9  |    |		Action	Push_String_Extended_Indexed,0x5f9				; "MSG_ACCEPTED"
012f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0130 00db       |    |		Load_Top	At_Offset_3
0131 00db       |    |		Load_Top	At_Offset_3
0132 00e0       |    |		Load_Encached	Standard_Cache
0133 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0134 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0135 00da       |    |		Load_Top	At_Offset_2
0136 00e0       |    |		Load_Encached	Standard_Cache
0137 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0138 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0139 00db       |    |		Load_Top	At_Offset_3
013a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013b 00db       |    |		Load_Top	At_Offset_3
013c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013d e20e       |    |		Load	0x1,0xe
013e 00dc       |    |		Load_Top	At_Offset_4
013f 0267       | g  |		Execute	Discrete,Predecessor
0140 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0141 e20e       |    |		Load	0x1,0xe
0142 00dc       |    |		Load_Top	At_Offset_4
0143 0268       | h  |		Execute	Discrete,Successor
0144 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0145 0000 0000  |    |		.XXX[0x3]
0147 0000       |    |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4607       |F   |		Jump_Case	0x8
014c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
014d 7806       |x   |		Jump	0x154								; case 0x1
014e 7809       |x   |		Jump	0x158								; case 0x2
014f 780d       |x   |		Jump	0x15d								; case 0x3
0150 7810       |x   |		Jump	0x161								; case 0x4
0151 7811       |x   |		Jump	0x163								; case 0x5
0152 7812       |x   |		Jump	0x165								; case 0x6
0153 7815       |x   |		Jump	0x169								; case 0x7
0154 00da       |    |		Load_Top	At_Offset_2
0155 0091 05fb  |    |		Action	Push_String_Extended_Indexed,0x5fb				; "SUCCESS"
0157 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0158 00db       |    |		Load_Top	At_Offset_3
0159 00db       |    |		Load_Top	At_Offset_3
015a 00e0       |    |		Load_Encached	Standard_Cache
015b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015d 00da       |    |		Load_Top	At_Offset_2
015e 00e0       |    |		Load_Encached	Standard_Cache
015f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0160 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0161 00db       |    |		Load_Top	At_Offset_3
0162 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0163 00db       |    |		Load_Top	At_Offset_3
0164 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0165 e20f       |    |		Load	0x1,0xf
0166 00dc       |    |		Load_Top	At_Offset_4
0167 0267       | g  |		Execute	Discrete,Predecessor
0168 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0169 e20f       |    |		Load	0x1,0xf
016a 00dc       |    |		Load_Top	At_Offset_4
016b 0268       | h  |		Execute	Discrete,Successor
016c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 4607       |F   |		Jump_Case	0x8
0174 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0175 7806       |x   |		Jump	0x17c								; case 0x1
0176 7809       |x   |		Jump	0x180								; case 0x2
0177 780d       |x   |		Jump	0x185								; case 0x3
0178 7810       |x   |		Jump	0x189								; case 0x4
0179 7811       |x   |		Jump	0x18b								; case 0x5
017a 7812       |x   |		Jump	0x18d								; case 0x6
017b 7815       |x   |		Jump	0x191								; case 0x7
017c 00da       |    |		Load_Top	At_Offset_2
017d 0091 0600  |    |		Action	Push_String_Extended_Indexed,0x600				; "RPC_MISMATCH"
017f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0180 00db       |    |		Load_Top	At_Offset_3
0181 00db       |    |		Load_Top	At_Offset_3
0182 00e0       |    |		Load_Encached	Standard_Cache
0183 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0184 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0185 00da       |    |		Load_Top	At_Offset_2
0186 00e0       |    |		Load_Encached	Standard_Cache
0187 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0188 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0189 00db       |    |		Load_Top	At_Offset_3
018a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018b 00db       |    |		Load_Top	At_Offset_3
018c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018d e210       |    |		Load	0x1,0x10
018e 00dc       |    |		Load_Top	At_Offset_4
018f 0267       | g  |		Execute	Discrete,Predecessor
0190 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0191 e210       |    |		Load	0x1,0x10
0192 00dc       |    |		Load_Top	At_Offset_4
0193 0268       | h  |		Execute	Discrete,Successor
0194 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 4607       |F   |		Jump_Case	0x8
019c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
019d 7806       |x   |		Jump	0x1a4								; case 0x1
019e 7809       |x   |		Jump	0x1a8								; case 0x2
019f 780d       |x   |		Jump	0x1ad								; case 0x3
01a0 7810       |x   |		Jump	0x1b1								; case 0x4
01a1 7811       |x   |		Jump	0x1b3								; case 0x5
01a2 7812       |x   |		Jump	0x1b5								; case 0x6
01a3 7815       |x   |		Jump	0x1b9								; case 0x7
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 0091 0602  |    |		Action	Push_String_Extended_Indexed,0x602				; "AUTH_BADCRED"
01a7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01a8 00db       |    |		Load_Top	At_Offset_3
01a9 00db       |    |		Load_Top	At_Offset_3
01aa 00e0       |    |		Load_Encached	Standard_Cache
01ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ad 00da       |    |		Load_Top	At_Offset_2
01ae 00e0       |    |		Load_Encached	Standard_Cache
01af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b5 e211       |    |		Load	0x1,0x11
01b6 00dc       |    |		Load_Top	At_Offset_4
01b7 0267       | g  |		Execute	Discrete,Predecessor
01b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01b9 e211       |    |		Load	0x1,0x11
01ba 00dc       |    |		Load_Top	At_Offset_4
01bb 0268       | h  |		Execute	Discrete,Successor
01bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 822c       | ,  |		Call	0x1,0x2c
01c7 00db       |    |		Load_Top	At_Offset_3
01c8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01c9 00db       |    |		Load_Top	At_Offset_3
01ca e22e       | .  |		Load	0x1,0x2e
01cb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ce 6850       |hP  |		Jump_Zero	0x21f
01cf 00db       |    |		Load_Top	At_Offset_3
01d0 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01d1 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d2 00db       |    |		Load_Top	At_Offset_3
01d3 e22f       | /  |		Load	0x1,0x2f
01d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d5 00db       |    |		Load_Top	At_Offset_3
01d6 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01d7 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d8 6823       |h#  |		Jump_Zero	0x1fc
01d9 00db       |    |		Load_Top	At_Offset_3
01da 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01db 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01dc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01dd 00db       |    |		Load_Top	At_Offset_3
01de e231       | 1  |		Load	0x1,0x31
01df 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e0 00db       |    |		Load_Top	At_Offset_3
01e1 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01e2 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01e3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e4 6808       |h   |		Jump_Zero	0x1ed
01e5 00db       |    |		Load_Top	At_Offset_3
01e6 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01e7 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01e8 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01e9 00db       |    |		Load_Top	At_Offset_3
01ea e232       | 2  |		Load	0x1,0x32
01eb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ec 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ed 00db       |    |		Load_Top	At_Offset_3
01ee 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01ef 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01f0 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01f1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01f2 00db       |    |		Load_Top	At_Offset_3
01f3 822c       | ,  |		Call	0x1,0x2c
01f4 00db       |    |		Load_Top	At_Offset_3
01f5 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01f6 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01f7 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01f8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f9 00db       |    |		Load_Top	At_Offset_3
01fa 822c       | ,  |		Call	0x1,0x2c
01fb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01fc 4800       |H   |		Short_Literal	0x0
01fd 00db       |    |		Load_Top	At_Offset_3
01fe 822c       | ,  |		Call	0x1,0x2c
01ff 4800       |H   |		Short_Literal	0x0
0200 00db       |    |		Load_Top	At_Offset_3
0201 822c       | ,  |		Call	0x1,0x2c
0202 00db       |    |		Load_Top	At_Offset_3
0203 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0204 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0205 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0206 00db       |    |		Load_Top	At_Offset_3
0207 e230       | 0  |		Load	0x1,0x30
0208 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0209 00db       |    |		Load_Top	At_Offset_3
020a 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
020b 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
020c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020d 0f02       |    |		Execute_Immediate	Equal,0x2
020e 7001       |p   |		Jump_Nonzero	0x210
020f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0210 00db       |    |		Load_Top	At_Offset_3
0211 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0212 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0213 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0214 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0215 00db       |    |		Load_Top	At_Offset_3
0216 822c       | ,  |		Call	0x1,0x2c
0217 00db       |    |		Load_Top	At_Offset_3
0218 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0219 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
021a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
021b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
021c 00db       |    |		Load_Top	At_Offset_3
021d 822c       | ,  |		Call	0x1,0x2c
021e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021f 00db       |    |		Load_Top	At_Offset_3
0220 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0221 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0222 00db       |    |		Load_Top	At_Offset_3
0223 822c       | ,  |		Call	0x1,0x2c
0224 00db       |    |		Load_Top	At_Offset_3
0225 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0226 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0227 00db       |    |		Load_Top	At_Offset_3
0228 822c       | ,  |		Call	0x1,0x2c
0229 00db       |    |		Load_Top	At_Offset_3
022a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
022b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
022c 00db       |    |		Load_Top	At_Offset_3
022d 822c       | ,  |		Call	0x1,0x2c
022e 00db       |    |		Load_Top	At_Offset_3
022f 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0230 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0231 00db       |    |		Load_Top	At_Offset_3
0232 822c       | ,  |		Call	0x1,0x2c
0233 4800       |H   |		Short_Literal	0x0
0234 00db       |    |		Load_Top	At_Offset_3
0235 822c       | ,  |		Call	0x1,0x2c
0236 4800       |H   |		Short_Literal	0x0
0237 00db       |    |		Load_Top	At_Offset_3
0238 822c       | ,  |		Call	0x1,0x2c
0239 4800       |H   |		Short_Literal	0x0
023a 00db       |    |		Load_Top	At_Offset_3
023b 822c       | ,  |		Call	0x1,0x2c
023c 4800       |H   |		Short_Literal	0x0
023d 00db       |    |		Load_Top	At_Offset_3
023e 822c       | ,  |		Call	0x1,0x2c
023f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 e003       |    |		Load	0x0,0x3
0245 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0246 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0269       | i  |		.CONST	0x0269								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0010       |    |		.CONST	0x0010								; Number of locals
024b			INIT_0248:
024b e001       |    |		Load	0x0,0x1
024c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
024d e212       |    |		Load	0x1,0x12
024e 0007       |    |		Action	Break_Optional
024f e20d       |    |		Load	0x1,0xd
0250 0007       |    |		Action	Break_Optional
0251 e226       | &  |		Load	0x1,0x26
0252 0007       |    |		Action	Break_Optional
0253 e227       | '  |		Load	0x1,0x27
0254 0007       |    |		Action	Break_Optional
0255 e228       | (  |		Load	0x1,0x28
0256 0007       |    |		Action	Break_Optional
0257 e229       | )  |		Load	0x1,0x29
0258 0007       |    |		Action	Break_Optional
0259 e20e       |    |		Load	0x1,0xe
025a 0007       |    |		Action	Break_Optional
025b e210       |    |		Load	0x1,0x10
025c 0007       |    |		Action	Break_Optional
025d e20f       |    |		Load	0x1,0xf
025e 0007       |    |		Action	Break_Optional
025f e228       | (  |		Load	0x1,0x28
0260 0007       |    |		Action	Break_Optional
0261 00d8       |    |		Load_Top	At_Offset_0
0262 0007       |    |		Action	Break_Optional
0263 e226       | &  |		Load	0x1,0x26
0264 0007       |    |		Action	Break_Optional
0265 00d8       |    |		Load_Top	At_Offset_0
0266 0007       |    |		Action	Break_Optional
0267 e211       |    |		Load	0x1,0x11
0268 0007       |    |		Action	Break_Optional
0269			BODY_0248:
0269 e5ff       |    |		Load	0x2,-0x1
026a e003       |    |		Load	0x0,0x3
026b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
026c 7002       |p   |		Jump_Nonzero	0x26f
026d e220       |    |		Load	0x1,0x20
026e 0257       | W  |		Execute	Discrete,Raise
026f e001       |    |		Load	0x0,0x1
0270 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0271 e5ff       |    |		Load	0x2,-0x1
0272 822d       | -  |		Call	0x1,0x2d
0273 c403       |    |		Store	0x2,0x3
0274 e22e       | .  |		Load	0x1,0x2e
0275 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0276 e5ff       |    |		Load	0x2,-0x1
0277 e22e       | .  |		Load	0x1,0x2e
0278 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0279 c404       |    |		Store	0x2,0x4
027a e404       |    |		Load	0x2,0x4
027b 68e8       |h   |		Jump_Zero	0x364
027c e22f       | /  |		Load	0x1,0x2f
027d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
027e e5ff       |    |		Load	0x2,-0x1
027f e22f       | /  |		Load	0x1,0x2f
0280 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0281 c409       |    |		Store	0x2,0x9
0282 e409       |    |		Load	0x2,0x9
0283 6849       |hI  |		Jump_Zero	0x2cd
0284 e231       | 1  |		Load	0x1,0x31
0285 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0286 e5ff       |    |		Load	0x2,-0x1
0287 e231       | 1  |		Load	0x1,0x31
0288 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0289 c40a       |    |		Store	0x2,0xa
028a e40a       |    |		Load	0x2,0xa
028b 681c       |h   |		Jump_Zero	0x2a8
028c e230       | 0  |		Load	0x1,0x30
028d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
028e e5ff       |    |		Load	0x2,-0x1
028f e230       | 0  |		Load	0x1,0x30
0290 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0291 c40b       |    |		Store	0x2,0xb
0292 4801       |H   |		Short_Literal	0x1
0293 e21e       |    |		Load	0x1,0x1e
0294 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0295 e403       |    |		Load	0x2,0x3
0296 00d9       |    |		Load_Top	At_Offset_1
0297 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0298 4801       |H   |		Short_Literal	0x1
0299 e21d       |    |		Load	0x1,0x1d
029a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
029b 4801       |H   |		Short_Literal	0x1
029c e21c       |    |		Load	0x1,0x1c
029d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
029e 00db       |    |		Load_Top	At_Offset_3
029f 00d9       |    |		Load_Top	At_Offset_1
02a0 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02a3 00d9       |    |		Load_Top	At_Offset_1
02a4 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02a5 e5fe       |    |		Load	0x2,-0x2
02a6 016d       | m  |		Execute	Variant_Record,Structure_Write
02a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a8 e001       |    |		Load	0x0,0x1
02a9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02aa e5ff       |    |		Load	0x2,-0x1
02ab 822d       | -  |		Call	0x1,0x2d
02ac 005b       | [  |		Store_Top	Discrete,At_Offset_3
02ad e001       |    |		Load	0x0,0x1
02ae 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02af e5ff       |    |		Load	0x2,-0x1
02b0 822d       | -  |		Call	0x1,0x2d
02b1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02b2 4801       |H   |		Short_Literal	0x1
02b3 e21e       |    |		Load	0x1,0x1e
02b4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b5 e403       |    |		Load	0x2,0x3
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b8 4801       |H   |		Short_Literal	0x1
02b9 e21d       |    |		Load	0x1,0x1d
02ba 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02bb 4800       |H   |		Short_Literal	0x0
02bc e21c       |    |		Load	0x1,0x1c
02bd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02be 00d8       |    |		Load_Top	At_Offset_0
02bf 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
02c0 e40e       |    |		Load	0x2,0xe
02c1 00d9       |    |		Load_Top	At_Offset_1
02c2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c3 e40f       |    |		Load	0x2,0xf
02c4 00d0       |    |		Action	Swap_Control
02c5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02c8 00d9       |    |		Load_Top	At_Offset_1
02c9 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02ca e5fe       |    |		Load	0x2,-0x2
02cb 016d       | m  |		Execute	Variant_Record,Structure_Write
02cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02cd e001       |    |		Load	0x0,0x1
02ce 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02cf e5ff       |    |		Load	0x2,-0x1
02d0 822d       | -  |		Call	0x1,0x2d
02d1 c402       |    |		Store	0x2,0x2
02d2 e001       |    |		Load	0x0,0x1
02d3 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 822d       | -  |		Call	0x1,0x2d
02d6 c402       |    |		Store	0x2,0x2
02d7 e230       | 0  |		Load	0x1,0x30
02d8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02d9 e5ff       |    |		Load	0x2,-0x1
02da e230       | 0  |		Load	0x1,0x30
02db 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02dc c40b       |    |		Store	0x2,0xb
02dd e40b       |    |		Load	0x2,0xb
02de 4604       |F   |		Jump_Case	0x5
02df 781a       |x   |		Jump	0x2fa								; case 0x0
02e0 7857       |xW  |		Jump	0x338								; case 0x1
02e1 782e       |x.  |		Jump	0x310								; case 0x2
02e2 786b       |xk  |		Jump	0x34e								; case 0x3
02e3 7800       |x   |		Jump	0x2e4								; case 0x4
02e4 4801       |H   |		Short_Literal	0x1
02e5 e21e       |    |		Load	0x1,0x1e
02e6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02e7 e403       |    |		Load	0x2,0x3
02e8 00d9       |    |		Load_Top	At_Offset_1
02e9 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02ea 4800       |H   |		Short_Literal	0x0
02eb e21d       |    |		Load	0x1,0x1d
02ec 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02ed 4804       |H   |		Short_Literal	0x4
02ee e21b       |    |		Load	0x1,0x1b
02ef 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02f0 4800       |H   |		Short_Literal	0x0
02f1 00d9       |    |		Load_Top	At_Offset_1
02f2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02f3 00d9       |    |		Load_Top	At_Offset_1
02f4 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02f5 00d9       |    |		Load_Top	At_Offset_1
02f6 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02f7 e5fe       |    |		Load	0x2,-0x2
02f8 016d       | m  |		Execute	Variant_Record,Structure_Write
02f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02fa 4801       |H   |		Short_Literal	0x1
02fb e21e       |    |		Load	0x1,0x1e
02fc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02fd e403       |    |		Load	0x2,0x3
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0300 4800       |H   |		Short_Literal	0x0
0301 e21d       |    |		Load	0x1,0x1d
0302 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0303 4800       |H   |		Short_Literal	0x0
0304 e21b       |    |		Load	0x1,0x1b
0305 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0306 4800       |H   |		Short_Literal	0x0
0307 00d9       |    |		Load_Top	At_Offset_1
0308 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0309 00d9       |    |		Load_Top	At_Offset_1
030a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
030b 00d9       |    |		Load_Top	At_Offset_1
030c 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
030d e5fe       |    |		Load	0x2,-0x2
030e 016d       | m  |		Execute	Variant_Record,Structure_Write
030f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0310 e001       |    |		Load	0x0,0x1
0311 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0312 e5ff       |    |		Load	0x2,-0x1
0313 822d       | -  |		Call	0x1,0x2d
0314 c40c       |    |		Store	0x2,0xc
0315 e001       |    |		Load	0x0,0x1
0316 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0317 e5ff       |    |		Load	0x2,-0x1
0318 822d       | -  |		Call	0x1,0x2d
0319 c40d       |    |		Store	0x2,0xd
031a 4801       |H   |		Short_Literal	0x1
031b e21e       |    |		Load	0x1,0x1e
031c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
031d e403       |    |		Load	0x2,0x3
031e 00d9       |    |		Load_Top	At_Offset_1
031f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0320 4800       |H   |		Short_Literal	0x0
0321 e21d       |    |		Load	0x1,0x1d
0322 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0323 4802       |H   |		Short_Literal	0x2
0324 e21b       |    |		Load	0x1,0x1b
0325 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0326 4800       |H   |		Short_Literal	0x0
0327 00d9       |    |		Load_Top	At_Offset_1
0328 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0329 00d8       |    |		Load_Top	At_Offset_0
032a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
032b e40c       |    |		Load	0x2,0xc
032c 00d9       |    |		Load_Top	At_Offset_1
032d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
032e e40d       |    |		Load	0x2,0xd
032f 00d0       |    |		Action	Swap_Control
0330 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0331 00d9       |    |		Load_Top	At_Offset_1
0332 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0333 00d9       |    |		Load_Top	At_Offset_1
0334 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0335 e5fe       |    |		Load	0x2,-0x2
0336 016d       | m  |		Execute	Variant_Record,Structure_Write
0337 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0338 4801       |H   |		Short_Literal	0x1
0339 e21e       |    |		Load	0x1,0x1e
033a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
033b e403       |    |		Load	0x2,0x3
033c 00d9       |    |		Load_Top	At_Offset_1
033d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
033e 4800       |H   |		Short_Literal	0x0
033f e21d       |    |		Load	0x1,0x1d
0340 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0341 4801       |H   |		Short_Literal	0x1
0342 e21b       |    |		Load	0x1,0x1b
0343 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0344 4800       |H   |		Short_Literal	0x0
0345 00d9       |    |		Load_Top	At_Offset_1
0346 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0347 00d9       |    |		Load_Top	At_Offset_1
0348 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0349 00d9       |    |		Load_Top	At_Offset_1
034a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
034b e5fe       |    |		Load	0x2,-0x2
034c 016d       | m  |		Execute	Variant_Record,Structure_Write
034d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
034e 4801       |H   |		Short_Literal	0x1
034f e21e       |    |		Load	0x1,0x1e
0350 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0351 e403       |    |		Load	0x2,0x3
0352 00d9       |    |		Load_Top	At_Offset_1
0353 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0354 4800       |H   |		Short_Literal	0x0
0355 e21d       |    |		Load	0x1,0x1d
0356 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0357 4803       |H   |		Short_Literal	0x3
0358 e21b       |    |		Load	0x1,0x1b
0359 1c08       |    |		Execute_Immediate	Run_Utility,0x8
035a 4800       |H   |		Short_Literal	0x0
035b 00d9       |    |		Load_Top	At_Offset_1
035c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
035d 00d9       |    |		Load_Top	At_Offset_1
035e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
035f 00d9       |    |		Load_Top	At_Offset_1
0360 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0361 e5fe       |    |		Load	0x2,-0x2
0362 016d       | m  |		Execute	Variant_Record,Structure_Write
0363 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0364 e001       |    |		Load	0x0,0x1
0365 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0366 e5ff       |    |		Load	0x2,-0x1
0367 822d       | -  |		Call	0x1,0x2d
0368 c405       |    |		Store	0x2,0x5
0369 e001       |    |		Load	0x0,0x1
036a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
036b e5ff       |    |		Load	0x2,-0x1
036c 822d       | -  |		Call	0x1,0x2d
036d c406       |    |		Store	0x2,0x6
036e e001       |    |		Load	0x0,0x1
036f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0370 e5ff       |    |		Load	0x2,-0x1
0371 822d       | -  |		Call	0x1,0x2d
0372 c407       |    |		Store	0x2,0x7
0373 e001       |    |		Load	0x0,0x1
0374 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0375 e5ff       |    |		Load	0x2,-0x1
0376 822d       | -  |		Call	0x1,0x2d
0377 c408       |    |		Store	0x2,0x8
0378 e001       |    |		Load	0x0,0x1
0379 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
037a e5ff       |    |		Load	0x2,-0x1
037b 822d       | -  |		Call	0x1,0x2d
037c c402       |    |		Store	0x2,0x2
037d e001       |    |		Load	0x0,0x1
037e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
037f e5ff       |    |		Load	0x2,-0x1
0380 822d       | -  |		Call	0x1,0x2d
0381 c402       |    |		Store	0x2,0x2
0382 e001       |    |		Load	0x0,0x1
0383 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0384 e5ff       |    |		Load	0x2,-0x1
0385 822d       | -  |		Call	0x1,0x2d
0386 c402       |    |		Store	0x2,0x2
0387 e001       |    |		Load	0x0,0x1
0388 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0389 e5ff       |    |		Load	0x2,-0x1
038a 822d       | -  |		Call	0x1,0x2d
038b c402       |    |		Store	0x2,0x2
038c 4800       |H   |		Short_Literal	0x0
038d e21e       |    |		Load	0x1,0x1e
038e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
038f e403       |    |		Load	0x2,0x3
0390 00d9       |    |		Load_Top	At_Offset_1
0391 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0392 00d8       |    |		Load_Top	At_Offset_0
0393 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0394 e405       |    |		Load	0x2,0x5
0395 00d9       |    |		Load_Top	At_Offset_1
0396 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0397 e406       |    |		Load	0x2,0x6
0398 00d9       |    |		Load_Top	At_Offset_1
0399 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
039a e407       |    |		Load	0x2,0x7
039b 00d9       |    |		Load_Top	At_Offset_1
039c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
039d e408       |    |		Load	0x2,0x8
039e 00d9       |    |		Load_Top	At_Offset_1
039f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03a0 4800       |H   |		Short_Literal	0x0
03a1 00d9       |    |		Load_Top	At_Offset_1
03a2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
03a3 4800       |H   |		Short_Literal	0x0
03a4 00d0       |    |		Action	Swap_Control
03a5 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
03a6 e5fe       |    |		Load	0x2,-0x2
03a7 016d       | m  |		Execute	Variant_Record,Structure_Write
03a8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a9 0000 0000  |    |		.BLANK	0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 e003       |    |		Load	0x0,0x3
03b5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03b6 7002       |p   |		Jump_Nonzero	0x3b9
03b7 e220       |    |		Load	0x1,0x20
03b8 0257       | W  |		Execute	Discrete,Raise
03b9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ba 0000 0000  |    |		.BLANK	0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c9       |    |		.CONST	0x03c9								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 4a00       |J   |		Short_Literal	0x200
03c4 e010       |    |		Load	0x0,0x10
03c5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03c7 00d8       |    |		Load_Top	At_Offset_0
03c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c9			BODY_03c0:
03c9 00d8       |    |		Load_Top	At_Offset_0
03ca 4820       |H   |		Short_Literal	0x20
03cb 4800       |H   |		Short_Literal	0x0
03cc 480a       |H   |		Short_Literal	0xa
03cd e5ff       |    |		Load	0x2,-0x1
03ce 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03cf 00d8       |    |		Load_Top	At_Offset_0
03d0 00e2       |    |		Load_Encached	Integer_Cache
03d1 0260       | `  |		Execute	Discrete,In_Type
03d2 7001       |p   |		Jump_Nonzero	0x3d4
03d3 0801       |    |		Execute_Immediate	Raise,0x1
03d4 e011       |    |		Load	0x0,0x11
03d5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03d6 e010       |    |		Load	0x0,0x10
03d7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d8 00d1       |    |		Pop_Control	Pop_Count_1
03d9 00d8       |    |		Load_Top	At_Offset_0
03da 4820       |H   |		Short_Literal	0x20
03db e010       |    |		Load	0x0,0x10
03dc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03dd 00d1       |    |		Pop_Control	Pop_Count_1
03de 00d8       |    |		Load_Top	At_Offset_0
03df e5ff       |    |		Load	0x2,-0x1
03e0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03e1 e20d       |    |		Load	0x1,0xd
03e2 011c       |    |		Execute	Any,Convert_Unchecked
03e3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03e4 e010       |    |		Load	0x0,0x10
03e5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03e6 00d1       |    |		Pop_Control	Pop_Count_1
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 4820       |H   |		Short_Literal	0x20
03e9 e010       |    |		Load	0x0,0x10
03ea 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03eb 00d1       |    |		Pop_Control	Pop_Count_1
03ec 00db       |    |		Load_Top	At_Offset_3
03ed 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03ee 68aa       |h   |		Jump_Zero	0x499
03ef 00d8       |    |		Load_Top	At_Offset_0
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
03f2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03f3 e20e       |    |		Load	0x1,0xe
03f4 011c       |    |		Execute	Any,Convert_Unchecked
03f5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03f6 e010       |    |		Load	0x0,0x10
03f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03f8 00d1       |    |		Pop_Control	Pop_Count_1
03f9 00d8       |    |		Load_Top	At_Offset_0
03fa 4820       |H   |		Short_Literal	0x20
03fb e010       |    |		Load	0x0,0x10
03fc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03fd 00d1       |    |		Pop_Control	Pop_Count_1
03fe 00db       |    |		Load_Top	At_Offset_3
03ff 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0400 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0401 6853       |hS  |		Jump_Zero	0x455
0402 00d8       |    |		Load_Top	At_Offset_0
0403 e5ff       |    |		Load	0x2,-0x1
0404 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0405 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0406 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0407 e210       |    |		Load	0x1,0x10
0408 011c       |    |		Execute	Any,Convert_Unchecked
0409 1c01       |    |		Execute_Immediate	Run_Utility,0x1
040a e010       |    |		Load	0x0,0x10
040b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
040c 00d1       |    |		Pop_Control	Pop_Count_1
040d 00d8       |    |		Load_Top	At_Offset_0
040e 4820       |H   |		Short_Literal	0x20
040f e010       |    |		Load	0x0,0x10
0410 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0411 00d1       |    |		Pop_Control	Pop_Count_1
0412 00db       |    |		Load_Top	At_Offset_3
0413 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0414 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0415 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0416 680c       |h   |		Jump_Zero	0x423
0417 00d8       |    |		Load_Top	At_Offset_0
0418 e5ff       |    |		Load	0x2,-0x1
0419 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
041a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
041b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
041c e211       |    |		Load	0x1,0x11
041d 011c       |    |		Execute	Any,Convert_Unchecked
041e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
041f e010       |    |		Load	0x0,0x10
0420 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0421 00d1       |    |		Pop_Control	Pop_Count_1
0422 78d1       |x   |		Jump	0x4f4
0423 00d8       |    |		Load_Top	At_Offset_0
0424 4820       |H   |		Short_Literal	0x20
0425 e010       |    |		Load	0x0,0x10
0426 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0427 00d1       |    |		Pop_Control	Pop_Count_1
0428 00d8       |    |		Load_Top	At_Offset_0
0429 4820       |H   |		Short_Literal	0x20
042a 4800       |H   |		Short_Literal	0x0
042b 480a       |H   |		Short_Literal	0xa
042c e5ff       |    |		Load	0x2,-0x1
042d 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
042e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
042f 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0430 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0431 00d8       |    |		Load_Top	At_Offset_0
0432 00e2       |    |		Load_Encached	Integer_Cache
0433 0260       | `  |		Execute	Discrete,In_Type
0434 7001       |p   |		Jump_Nonzero	0x436
0435 0801       |    |		Execute_Immediate	Raise,0x1
0436 e011       |    |		Load	0x0,0x11
0437 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0438 e010       |    |		Load	0x0,0x10
0439 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
043a 00d1       |    |		Pop_Control	Pop_Count_1
043b 00d8       |    |		Load_Top	At_Offset_0
043c 0092 0607  |    |		Action	Push_String_Extended,0x607					; ".."
043e e010       |    |		Load	0x0,0x10
043f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0440 00d1       |    |		Pop_Control	Pop_Count_1
0441 00d8       |    |		Load_Top	At_Offset_0
0442 4820       |H   |		Short_Literal	0x20
0443 4800       |H   |		Short_Literal	0x0
0444 480a       |H   |		Short_Literal	0xa
0445 e5ff       |    |		Load	0x2,-0x1
0446 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0447 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0448 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0449 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044a 00d8       |    |		Load_Top	At_Offset_0
044b 00e2       |    |		Load_Encached	Integer_Cache
044c 0260       | `  |		Execute	Discrete,In_Type
044d 7001       |p   |		Jump_Nonzero	0x44f
044e 0801       |    |		Execute_Immediate	Raise,0x1
044f e011       |    |		Load	0x0,0x11
0450 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0451 e010       |    |		Load	0x0,0x10
0452 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0453 00d1       |    |		Pop_Control	Pop_Count_1
0454 789f       |x   |		Jump	0x4f4
0455 00d8       |    |		Load_Top	At_Offset_0
0456 e5ff       |    |		Load	0x2,-0x1
0457 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0458 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0459 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
045a e20f       |    |		Load	0x1,0xf
045b 011c       |    |		Execute	Any,Convert_Unchecked
045c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
045d e010       |    |		Load	0x0,0x10
045e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
045f 00d1       |    |		Pop_Control	Pop_Count_1
0460 00db       |    |		Load_Top	At_Offset_3
0461 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0462 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0463 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0464 0f02       |    |		Execute_Immediate	Equal,0x2
0465 7001       |p   |		Jump_Nonzero	0x467
0466 788d       |x   |		Jump	0x4f4
0467 00d8       |    |		Load_Top	At_Offset_0
0468 4820       |H   |		Short_Literal	0x20
0469 e010       |    |		Load	0x0,0x10
046a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
046b 00d1       |    |		Pop_Control	Pop_Count_1
046c 00d8       |    |		Load_Top	At_Offset_0
046d 4820       |H   |		Short_Literal	0x20
046e 4800       |H   |		Short_Literal	0x0
046f 480a       |H   |		Short_Literal	0xa
0470 e5ff       |    |		Load	0x2,-0x1
0471 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0472 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0473 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0474 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0475 00d8       |    |		Load_Top	At_Offset_0
0476 00e2       |    |		Load_Encached	Integer_Cache
0477 0260       | `  |		Execute	Discrete,In_Type
0478 7001       |p   |		Jump_Nonzero	0x47a
0479 0801       |    |		Execute_Immediate	Raise,0x1
047a e011       |    |		Load	0x0,0x11
047b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
047c e010       |    |		Load	0x0,0x10
047d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
047e 00d1       |    |		Pop_Control	Pop_Count_1
047f 00d8       |    |		Load_Top	At_Offset_0
0480 0092 0607  |    |		Action	Push_String_Extended,0x607					; ".."
0482 e010       |    |		Load	0x0,0x10
0483 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0484 00d1       |    |		Pop_Control	Pop_Count_1
0485 00d8       |    |		Load_Top	At_Offset_0
0486 4820       |H   |		Short_Literal	0x20
0487 4800       |H   |		Short_Literal	0x0
0488 480a       |H   |		Short_Literal	0xa
0489 e5ff       |    |		Load	0x2,-0x1
048a 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
048b 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
048c 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
048d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
048e 00d8       |    |		Load_Top	At_Offset_0
048f 00e2       |    |		Load_Encached	Integer_Cache
0490 0260       | `  |		Execute	Discrete,In_Type
0491 7001       |p   |		Jump_Nonzero	0x493
0492 0801       |    |		Execute_Immediate	Raise,0x1
0493 e011       |    |		Load	0x0,0x11
0494 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0495 e010       |    |		Load	0x0,0x10
0496 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0497 00d1       |    |		Pop_Control	Pop_Count_1
0498 785b       |x[  |		Jump	0x4f4
0499 00d8       |    |		Load_Top	At_Offset_0
049a 4828       |H(  |		Short_Literal	0x28
049b e010       |    |		Load	0x0,0x10
049c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
049d 00d1       |    |		Pop_Control	Pop_Count_1
049e 00d8       |    |		Load_Top	At_Offset_0
049f 4820       |H   |		Short_Literal	0x20
04a0 4800       |H   |		Short_Literal	0x0
04a1 480a       |H   |		Short_Literal	0xa
04a2 e5ff       |    |		Load	0x2,-0x1
04a3 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
04a4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04a5 00d8       |    |		Load_Top	At_Offset_0
04a6 00e2       |    |		Load_Encached	Integer_Cache
04a7 0260       | `  |		Execute	Discrete,In_Type
04a8 7001       |p   |		Jump_Nonzero	0x4aa
04a9 0801       |    |		Execute_Immediate	Raise,0x1
04aa e011       |    |		Load	0x0,0x11
04ab 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04ac e010       |    |		Load	0x0,0x10
04ad 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ae 00d1       |    |		Pop_Control	Pop_Count_1
04af 00d8       |    |		Load_Top	At_Offset_0
04b0 0092 0608  |    |		Action	Push_String_Extended,0x608					; ")"
04b2 e010       |    |		Load	0x0,0x10
04b3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04b4 00d1       |    |		Pop_Control	Pop_Count_1
04b5 00d8       |    |		Load_Top	At_Offset_0
04b6 4830       |H0  |		Short_Literal	0x30
04b7 4808       |H   |		Short_Literal	0x8
04b8 4810       |H   |		Short_Literal	0x10
04b9 e5ff       |    |		Load	0x2,-0x1
04ba 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
04bb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04bc 00d8       |    |		Load_Top	At_Offset_0
04bd 00e2       |    |		Load_Encached	Integer_Cache
04be 0260       | `  |		Execute	Discrete,In_Type
04bf 7001       |p   |		Jump_Nonzero	0x4c1
04c0 0801       |    |		Execute_Immediate	Raise,0x1
04c1 e011       |    |		Load	0x0,0x11
04c2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04c3 e010       |    |		Load	0x0,0x10
04c4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04c5 00d1       |    |		Pop_Control	Pop_Count_1
04c6 00d8       |    |		Load_Top	At_Offset_0
04c7 0092 0609  |    |		Action	Push_String_Extended,0x609					; ".v"
04c9 e010       |    |		Load	0x0,0x10
04ca 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04cb 00d1       |    |		Pop_Control	Pop_Count_1
04cc 00d8       |    |		Load_Top	At_Offset_0
04cd 4820       |H   |		Short_Literal	0x20
04ce 4800       |H   |		Short_Literal	0x0
04cf 480a       |H   |		Short_Literal	0xa
04d0 e5ff       |    |		Load	0x2,-0x1
04d1 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
04d2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04d3 00d8       |    |		Load_Top	At_Offset_0
04d4 00e2       |    |		Load_Encached	Integer_Cache
04d5 0260       | `  |		Execute	Discrete,In_Type
04d6 7001       |p   |		Jump_Nonzero	0x4d8
04d7 0801       |    |		Execute_Immediate	Raise,0x1
04d8 e011       |    |		Load	0x0,0x11
04d9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04da e010       |    |		Load	0x0,0x10
04db 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04dc 00d1       |    |		Pop_Control	Pop_Count_1
04dd 00d8       |    |		Load_Top	At_Offset_0
04de 0092 060a  |    |		Action	Push_String_Extended,0x60a					; ".p"
04e0 e010       |    |		Load	0x0,0x10
04e1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04e2 00d1       |    |		Pop_Control	Pop_Count_1
04e3 00d8       |    |		Load_Top	At_Offset_0
04e4 4820       |H   |		Short_Literal	0x20
04e5 4800       |H   |		Short_Literal	0x0
04e6 480a       |H   |		Short_Literal	0xa
04e7 e5ff       |    |		Load	0x2,-0x1
04e8 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
04e9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04ea 00d8       |    |		Load_Top	At_Offset_0
04eb 00e2       |    |		Load_Encached	Integer_Cache
04ec 0260       | `  |		Execute	Discrete,In_Type
04ed 7001       |p   |		Jump_Nonzero	0x4ef
04ee 0801       |    |		Execute_Immediate	Raise,0x1
04ef e011       |    |		Load	0x0,0x11
04f0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04f1 e010       |    |		Load	0x0,0x10
04f2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04f3 00d1       |    |		Pop_Control	Pop_Count_1
04f4 e012       |    |		Load	0x0,0x12
04f5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04f6 4801       |H   |		Short_Literal	0x1
04f7 00da       |    |		Load_Top	At_Offset_2
04f8 e010       |    |		Load	0x0,0x10
04f9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04fa e013       |    |		Load	0x0,0x13
04fb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04fc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04fd 0000 0000  |    |		.XXX[0x3]
04ff 0000       |    |
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503       |    |		.CONST	0x0503								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0001       |    |		.CONST	0x0001								; Number of locals
0503			BODY_0500:
0503			INIT_0500:
0503 4608       |F   |		Jump_Case	0x9
0504 7808       |x   |		Jump	0x50d								; case 0x0
0505 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0506 7839       |x9  |		Jump	0x540								; case 0x2
0507 7838       |x8  |		Jump	0x540								; case 0x3
0508 7837       |x7  |		Jump	0x540								; case 0x4
0509 7836       |x6  |		Jump	0x540								; case 0x5
050a 7816       |x   |		Jump	0x521								; case 0x6
050b 781d       |x   |		Jump	0x529								; case 0x7
050c 782c       |x,  |		Jump	0x539								; case 0x8
050d 00da       |    |		Load_Top	At_Offset_2
050e 016c       | l  |		Execute	Variant_Record,Is_Constrained
050f 7009       |p   |		Jump_Nonzero	0x519
0510 00cf       |    |		Action	Mark_Auxiliary
0511 4800       |H   |		Short_Literal	0x0
0512 e5ff       |    |		Load	0x2,-0x1
0513 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0514 00d8       |    |		Load_Top	At_Offset_0
0515 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0516 c5ff       |    |		Store	0x2,-0x1
0517 00ce       |    |		Action	Pop_Auxiliary
0518 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0519 00da       |    |		Load_Top	At_Offset_2
051a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
051b 4604       |F   |		Jump_Case	0x5
051c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
051d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
051e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
051f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0520 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0521 00db       |    |		Load_Top	At_Offset_3
0522 0f02       |    |		Execute_Immediate	Equal,0x2
0523 7001       |p   |		Jump_Nonzero	0x525
0524 7802       |x   |		Jump	0x527
0525 4801       |H   |		Short_Literal	0x1
0526 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0527 48ff       |H   |		Short_Literal	0xff
0528 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0529 00db       |    |		Load_Top	At_Offset_3
052a e5fe       |    |		Load	0x2,-0x2
052b 4604       |F   |		Jump_Case	0x5
052c 7806       |x   |		Jump	0x533								; case 0x0
052d 7803       |x   |		Jump	0x531								; case 0x1
052e 7806       |x   |		Jump	0x535								; case 0x2
052f 7801       |x   |		Jump	0x531								; case 0x3
0530 7800       |x   |		Jump	0x531								; case 0x4
0531 48ff       |H   |		Short_Literal	0xff
0532 7803       |x   |		Jump	0x536
0533 48ff       |H   |		Short_Literal	0xff
0534 7801       |x   |		Jump	0x536
0535 4801       |H   |		Short_Literal	0x1
0536 e5ff       |    |		Load	0x2,-0x1
0537 031b       |    |		Declare_Type	Variant_Record,Constrained
0538 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0539 00db       |    |		Load_Top	At_Offset_3
053a e5fe       |    |		Load	0x2,-0x2
053b e5ff       |    |		Load	0x2,-0x1
053c 1c06       |    |		Execute_Immediate	Run_Utility,0x6
053d e5ff       |    |		Load	0x2,-0x1
053e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
053f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0540 0869       | i  |		Execute_Immediate	Raise,0x69
0541 0000 0000  |    |		.BLANK	0000[0x7]
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 4608       |F   |		Jump_Case	0x9
054c 7808       |x   |		Jump	0x555								; case 0x0
054d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
054e 782c       |x,  |		Jump	0x57b								; case 0x2
054f 782b       |x+  |		Jump	0x57b								; case 0x3
0550 782a       |x*  |		Jump	0x57b								; case 0x4
0551 7829       |x)  |		Jump	0x57b								; case 0x5
0552 7812       |x   |		Jump	0x565								; case 0x6
0553 7817       |x   |		Jump	0x56b								; case 0x7
0554 781f       |x   |		Jump	0x574								; case 0x8
0555 00da       |    |		Load_Top	At_Offset_2
0556 016c       | l  |		Execute	Variant_Record,Is_Constrained
0557 7009       |p   |		Jump_Nonzero	0x561
0558 00cf       |    |		Action	Mark_Auxiliary
0559 4800       |H   |		Short_Literal	0x0
055a e5ff       |    |		Load	0x2,-0x1
055b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
055c 00d8       |    |		Load_Top	At_Offset_0
055d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
055e c5ff       |    |		Store	0x2,-0x1
055f 00ce       |    |		Action	Pop_Auxiliary
0560 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0561 00da       |    |		Load_Top	At_Offset_2
0562 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0563 6800       |h   |		Jump_Zero	0x564
0564 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0565 00db       |    |		Load_Top	At_Offset_3
0566 6802       |h   |		Jump_Zero	0x569
0567 4802       |H   |		Short_Literal	0x2
0568 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0569 4801       |H   |		Short_Literal	0x1
056a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
056b 00db       |    |		Load_Top	At_Offset_3
056c e5fe       |    |		Load	0x2,-0x2
056d 6802       |h   |		Jump_Zero	0x570
056e 4802       |H   |		Short_Literal	0x2
056f 7801       |x   |		Jump	0x571
0570 4801       |H   |		Short_Literal	0x1
0571 e5ff       |    |		Load	0x2,-0x1
0572 031b       |    |		Declare_Type	Variant_Record,Constrained
0573 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0574 00db       |    |		Load_Top	At_Offset_3
0575 e5fe       |    |		Load	0x2,-0x2
0576 e5ff       |    |		Load	0x2,-0x1
0577 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0578 e5ff       |    |		Load	0x2,-0x1
0579 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
057a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
057b 0869       | i  |		Execute_Immediate	Raise,0x69
057c 0000 0000  |    |		.BLANK	0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 4608       |F   |		Jump_Case	0x9
0584 7808       |x   |		Jump	0x58d								; case 0x0
0585 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0586 7833       |x3  |		Jump	0x5ba								; case 0x2
0587 7832       |x2  |		Jump	0x5ba								; case 0x3
0588 7831       |x1  |		Jump	0x5ba								; case 0x4
0589 7830       |x0  |		Jump	0x5ba								; case 0x5
058a 7819       |x   |		Jump	0x5a4								; case 0x6
058b 781e       |x   |		Jump	0x5aa								; case 0x7
058c 7826       |x&  |		Jump	0x5b3								; case 0x8
058d 00da       |    |		Load_Top	At_Offset_2
058e 016c       | l  |		Execute	Variant_Record,Is_Constrained
058f 7009       |p   |		Jump_Nonzero	0x599
0590 00cf       |    |		Action	Mark_Auxiliary
0591 4800       |H   |		Short_Literal	0x0
0592 e5ff       |    |		Load	0x2,-0x1
0593 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0594 00d8       |    |		Load_Top	At_Offset_0
0595 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0596 c5ff       |    |		Store	0x2,-0x1
0597 00ce       |    |		Action	Pop_Auxiliary
0598 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0599 00da       |    |		Load_Top	At_Offset_2
059a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
059b 6804       |h   |		Jump_Zero	0x5a0
059c 00da       |    |		Load_Top	At_Offset_2
059d 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
059e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
059f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05a0 00da       |    |		Load_Top	At_Offset_2
05a1 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
05a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05a4 00db       |    |		Load_Top	At_Offset_3
05a5 6802       |h   |		Jump_Zero	0x5a8
05a6 4802       |H   |		Short_Literal	0x2
05a7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05a8 4801       |H   |		Short_Literal	0x1
05a9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05aa 00db       |    |		Load_Top	At_Offset_3
05ab e5fe       |    |		Load	0x2,-0x2
05ac 6802       |h   |		Jump_Zero	0x5af
05ad 4802       |H   |		Short_Literal	0x2
05ae 7801       |x   |		Jump	0x5b0
05af 4801       |H   |		Short_Literal	0x1
05b0 e5ff       |    |		Load	0x2,-0x1
05b1 031b       |    |		Declare_Type	Variant_Record,Constrained
05b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05b3 00db       |    |		Load_Top	At_Offset_3
05b4 e5fe       |    |		Load	0x2,-0x2
05b5 e5ff       |    |		Load	0x2,-0x1
05b6 1c06       |    |		Execute_Immediate	Run_Utility,0x6
05b7 e5ff       |    |		Load	0x2,-0x1
05b8 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05ba 0869       | i  |		Execute_Immediate	Raise,0x69
05bb 0000 0000  |    |		.BLANK	0000[0x5]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 4608       |F   |		Jump_Case	0x9
05c4 7808       |x   |		Jump	0x5cd								; case 0x0
05c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05c6 782f       |x/  |		Jump	0x5f6								; case 0x2
05c7 782e       |x.  |		Jump	0x5f6								; case 0x3
05c8 782d       |x-  |		Jump	0x5f6								; case 0x4
05c9 782c       |x,  |		Jump	0x5f6								; case 0x5
05ca 7815       |x   |		Jump	0x5e0								; case 0x6
05cb 781a       |x   |		Jump	0x5e6								; case 0x7
05cc 7822       |x"  |		Jump	0x5ef								; case 0x8
05cd 00da       |    |		Load_Top	At_Offset_2
05ce 016c       | l  |		Execute	Variant_Record,Is_Constrained
05cf 7009       |p   |		Jump_Nonzero	0x5d9
05d0 00cf       |    |		Action	Mark_Auxiliary
05d1 4800       |H   |		Short_Literal	0x0
05d2 e5ff       |    |		Load	0x2,-0x1
05d3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05d4 00d8       |    |		Load_Top	At_Offset_0
05d5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05d6 c5ff       |    |		Store	0x2,-0x1
05d7 00ce       |    |		Action	Pop_Auxiliary
05d8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05d9 00da       |    |		Load_Top	At_Offset_2
05da 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05db 6803       |h   |		Jump_Zero	0x5df
05dc 00da       |    |		Load_Top	At_Offset_2
05dd 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
05de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05df 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05e0 00db       |    |		Load_Top	At_Offset_3
05e1 6802       |h   |		Jump_Zero	0x5e4
05e2 4802       |H   |		Short_Literal	0x2
05e3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05e4 4801       |H   |		Short_Literal	0x1
05e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05e6 00db       |    |		Load_Top	At_Offset_3
05e7 e5fe       |    |		Load	0x2,-0x2
05e8 6802       |h   |		Jump_Zero	0x5eb
05e9 4802       |H   |		Short_Literal	0x2
05ea 7801       |x   |		Jump	0x5ec
05eb 4801       |H   |		Short_Literal	0x1
05ec e5ff       |    |		Load	0x2,-0x1
05ed 031b       |    |		Declare_Type	Variant_Record,Constrained
05ee 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05ef 00db       |    |		Load_Top	At_Offset_3
05f0 e5fe       |    |		Load	0x2,-0x2
05f1 e5ff       |    |		Load	0x2,-0x1
05f2 1c06       |    |		Execute_Immediate	Run_Utility,0x6
05f3 e5ff       |    |		Load	0x2,-0x1
05f4 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05f6 0869       | i  |		Execute_Immediate	Raise,0x69
05f7 ; --------------------------------------------------------------------------------------
05f7 ; STRING TABLE
05f7 ; --------------------------------------------------------------------------------------
05f7 002a       | *  |		.STRTAB	0x002a->0x060c							; "CALL"
05f8 002c       | ,  |		.STRTAB	0x002c->0x060e							; "REPLY"
05f9 002f       | /  |		.STRTAB	0x002f->0x0610							; "MSG_ACCEPTED"
05fa 0039       | 9  |		.STRTAB	0x0039->0x0616							; "MSG_DENIED"
05fb 0041       | A  |		.STRTAB	0x0041->0x061b							; "SUCCESS"
05fc 0046       | F  |		.STRTAB	0x0046->0x061f							; "PROG_UNAVAIL"
05fd 0050       | P  |		.STRTAB	0x0050->0x0625							; "PROG_MISMATCH"
05fe 005b       | [  |		.STRTAB	0x005b->0x062b							; "PROC_UNAVAIL"
05ff 0065       | e  |		.STRTAB	0x0065->0x0631							; "GARBAGE_ARGS"
0600 006f       | o  |		.STRTAB	0x006f->0x0637							; "RPC_MISMATCH"
0601 0079       | y  |		.STRTAB	0x0079->0x063d							; "AUTH_ERROR"
0602 0081       |    |		.STRTAB	0x0081->0x0642							; "AUTH_BADCRED"
0603 008b       |    |		.STRTAB	0x008b->0x0648							; "AUTH_REJECTEDCRED"
0604 009a       |    |		.STRTAB	0x009a->0x0651							; "AUTH_BADVERF"
0605 00a4       |    |		.STRTAB	0x00a4->0x0657							; "AUTH_REJECTVERF"
0606 00b1       |    |		.STRTAB	0x00b1->0x065e							; "AUTH_TOOWEAK"
0607 00bb       |    |		.STRTAB	0x00bb->0x0664							; ".."
0608 00bb       |    |		.STRTAB	0x00bb->0x0665							; ")"
0609 00ba       |    |		.STRTAB	0x00ba->0x0666							; ".v"
060a 00ba       |    |		.STRTAB	0x00ba->0x0667							; ".p"
060b 00ba       |    |		.STREND 0x00ba->0x0668
060c 4341 4c4c  |CALL|		.STRTAB_STRINGS
0668 ; --------------------------------------------------------------------------------------
0668 ; Debug Table
0668 ; --------------------------------------------------------------------------------------
0668 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x5ed8,0x0000,0x0001,0x0000
066e 7ce5 612d  || a-|		.XXX[0x192]
0670 95e5 15d9  |    |
0672 95b9 d0e8  |    |
0674 a0c0 b0e0  |    |
0676 a4b0 c4e4  |    |
0678 c8b0 ccc8  |    |
067a edd1 a5b5  |    |
067c 957d 7ce5  | }| |
067e 612d 95e5  |a-  |
0680 15d9 95b9  |    |
0682 d0e8 a0c0  |    |
0684 b0e0 a4b0  |    |
0686 c8c8 d0b0  |    |
0688 ccc8 ed70  |   p|
068a 01e1 7d7c  |  }||
068c e561 2d95  | a- |
068e e515 d995  |    |
0690 b9d0 e8a0  |    |
0692 c0b0 c4a4  |    |
0694 b0c8 d4d8  |    |
0696 b0cc c8ed  |    |
0698 e57d 7ce5  | }| |
069a 612d 95e5  |a-  |
069c 15d9 95b9  |    |
069e d0e8 a0c0  |    |
06a0 b0c4 a4b0  |    |
06a2 c8e0 e0b0  |    |
06a4 ccc8 ede1  |    |
06a6 7dc9 bdbd  |}   |
06a8 d17d 7ce5  | }| |
06aa 612d 95e5  |a-  |
06ac 15d9 95b9  |    |
06ae d0e8 a0c0  |    |
06b0 b0c4 a4b0  |    |
06b2 ccc8 c0b0  |    |
06b4 ccc8 ede5  |    |
06b6 7dc9 bdbd  |}   |
06b8 d17d 7ce5  | }| |
06ba 612d 95e5  |a-  |
06bc 15d9 95b9  |    |
06be d0e8 a0c0  |    |
06c0 b0c4 a4b0  |    |
06c2 ccd4 c8b0  |    |
06c4 ccc8 edcd  |    |
06c6 d185 d195  |    |
06c8 7d7c e561  |}| a|
06ca 2d95 e515  |-   |
06cc d995 b9d0  |    |
06ce e8a0 c0b0  |    |
06d0 e0a4 b0cc  |    |
06d2 e0d0 b0cc  |    |
06d4 c8ed ad95  |    |
06d6 e58d bd91  |    |
06d8 957d 7ce5  | }| |
06da 612d 95e5  |a-  |
06dc 15d9 95b9  |    |
06de d0e8 a0c0  |    |
06e0 b0e0 a4b0  |    |
06e2 d0c4 d8b0  |    |
06e4 ccc8 edcd  |    |
06e6 85b5 957d  |   }|
06e8 cd8d c995  |    |
06ea 95b9 7d7c  |  }||
06ec e561 2d95  | a- |
06ee e515 d995  |    |
06f0 b9d0 e8a0  |    |
06f2 c0b0 c4a4  |    |
06f4 b0d0 d0e0  |    |
06f6 b0cc c8ec  |    |
06f8 ec01 6109  |  a |
06fa d5d1 d1bd  |    |
06fc b915 d995  |    |
06fe b9d0 e950  |   P|
0700 a0c0 b0dc  |    |
0702 c0a4 f5cc  |    |
0704 d8c1 d1e5  |    |
0706 c195 7d7c  |  }||
0708 c4c9 6109  |  a |
070a d5d1 d1bd  |    |
070c b915 d995  |    |
070e b9d0 e8a0  |    |
0710 c0b0 c4a4  |    |
0712 b0c0 b0cc  |    |
0714 c8ed cd95  |    |
0716 c9a5 85b1  |    |
0718 7d7c c4c9  |}|  |
071a 6109 d5d1  |a   |
071c d1bd b915  |    |
071e d995 b9d0  |    |
0720 e8a0 c0b0  |    |
0722 e0a4 b0cc  |    |
0724 c8b0 ccc8  |    |
0726 edcd 95b9  |    |
0728 917d 95d9  | }  |
072a 95b9 d17d  |   }|
072c 7cc4 c961  ||  a|
072e 09d5 d1d1  |    |
0730 bdb9 15d9  |    |
0732 95b9 d0e8  |    |
0734 a0c0 b0c4  |    |
0736 a4b0 d8d0  |    |
0738 b0cc c8ed  |    |
073a 91a5 cdc1  |    |
073c b185 e57d  |   }|
073e 7cc4 c961  ||  a|
0740 09d5 d1d1  |    |
0742 bdb9 15d9  |    |
0744 95b9 d0e8  |    |
0746 a0c0 b0c4  |    |
0748 c0d0 a4b0  |    |
074a e4d8 b0cc  |    |
074c c8ed dda5  |    |
074e b991 bddd  |    |
0750 7d7c c4c9  |}|  |
0752 6109 d5d1  |a   |
0754 d1bd b915  |    |
0756 d995 b9d0  |    |
0758 e8a0 c0b0  |    |
075a e0a4 b0c4  |    |
075c c8e0 b0cc  |    |
075e c8ed c9bd  |    |
0760 bdd1 7d7c  |  }||
0762 c4c9 6109  |  a |
0764 d5d1 d1bd  |    |
0766 b915 d995  |    |
0768 b9d0 e8a0  |    |
076a c0b0 e0a4  |    |
076c b0c4 d8c0  |    |
076e b0cc c8ed  |    |
0770 cdd5 89dd  |    |
0772 a5b9 91bd  |    |
0774 dd7d 7cc4  | }| |
0776 c961 09d5  | a  |
0778 d1d1 bdb9  |    |
077a 15d9 95b9  |    |
077c d0e8 a0c0  |    |
077e b0e0 a4b0  |    |
0780 c4e4 c8b0  |    |
0782 ccc8 edd1  |    |
0784 a5b5 957d  |   }|
0786 7cc4 c961  ||  a|
0788 09d5 d1d1  |    |
078a bdb9 15d9  |    |
078c 95b9 d0e8  |    |
078e a0c0 b0e0  |    |
0790 a4b0 c8c8  |    |
0792 d0b0 ccc8  |    |
0794 ed70 01e1  | p  |
0796 7d7c c4c9  |}|  |
0798 6109 d5d1  |a   |
079a d1bd b915  |    |
079c d995 b9d0  |    |
079e e8a0 c0b0  |    |
07a0 c4a4 b0c8  |    |
07a2 d4d8 b0cc  |    |
07a4 c8ed e57d  |   }|
07a6 7cc4 c961  ||  a|
07a8 09d5 d1d1  |    |
07aa bdb9 15d9  |    |
07ac 95b9 d0e8  |    |
07ae a0c0 b0c4  |    |
07b0 a4b0 c8e0  |    |
07b2 e0b0 ccc8  |    |
07b4 ede1 7dc9  |  } |
07b6 bdbd d17d  |   }|
07b8 7cc4 c961  ||  a|
07ba 09d5 d1d1  |    |
07bc bdb9 15d9  |    |
07be 95b9 d0e8  |    |
07c0 a0c0 b0c4  |    |
07c2 a4b0 ccc8  |    |
07c4 c0b0 ccc8  |    |
07c6 ede5 7dc9  |  } |
07c8 bdbd d17d  |   }|
07ca 7cc4 c961  ||  a|
07cc 09d5 d1d1  |    |
07ce bdb9 15d9  |    |
07d0 95b9 d0e8  |    |
07d2 a0c0 b0c4  |    |
07d4 a4b0 ccd4  |    |
07d6 c8b0 ccc8  |    |
07d8 edcd d185  |    |
07da d195 7d7c  |  }||
07dc c4c9 6109  |  a |
07de d5d1 d1bd  |    |
07e0 b915 d995  |    |
07e2 b9d0 e8a0  |    |
07e4 c0b0 e0a4  |    |
07e6 b0cc e0d0  |    |
07e8 b0cc c8ed  |    |
07ea 89d5 d1d1  |    |
07ec bdb9 7d7c  |  }||
07ee c4c9 6109  |  a |
07f0 d5d1 d1bd  |    |
07f2 b915 d995  |    |
07f4 b9d0 e8a0  |    |
07f6 c0b0 e0a4  |    |
07f8 b0d0 c4d8  |    |
07fa b0cc c8ed  |    |
07fc cd85 b595  |    |
07fe 7dcd 8dc9  |}   |