|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 00f6 | | .CONST 0x00f6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 00fb | | Declare_Subprogram For_Call,INIT_00f8
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4801 |H | Short_Literal 0x1
0012 029f 0123 | #| Declare_Subprogram For_Call,INIT_0120
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 For_Call,INIT_0148
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 For_Call,INIT_0170
001e 03fe | | Declare_Type Discrete,Defined,Visible
001f 4800 |H | Short_Literal 0x0
0020 4804 |H | Short_Literal 0x4
0021 029f 019b | | Declare_Subprogram For_Call,INIT_0198
0023 03fe | | Declare_Type Discrete,Defined,Visible
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
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 e001 | | Load 0x0,0x1
0040 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0041 0129 | ) | Execute Any,Make_Visible
0042 c22c | , | Store 0x1,0x2c
0043 e001 | | Load 0x0,0x1
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 0129 | ) | Execute Any,Make_Visible
0046 c226 | & | Store 0x1,0x26
0047 e001 | | Load 0x0,0x1
0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0049 0129 | ) | Execute Any,Make_Visible
004a c227 | ' | Store 0x1,0x27
004b e001 | | Load 0x0,0x1
004c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004d 0129 | ) | Execute Any,Make_Visible
004e c228 | ( | Store 0x1,0x28
004f e001 | | Load 0x0,0x1
0050 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0051 0129 | ) | Execute Any,Make_Visible
0052 c229 | ) | Store 0x1,0x29
0053 e002 | | Load 0x0,0x2
0054 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0055 0129 | ) | Execute Any,Make_Visible
0056 c217 | | Store 0x1,0x17
0057 e228 | ( | Load 0x1,0x28
0058 00d8 | | Load_Top At_Offset_0
0059 02a0 | | Declare_Subprogram Null_Subprogram
005a 4802 |H | Short_Literal 0x2
005b 032e | . | Declare_Type Record,Defined,Visible
005c c218 | | Store 0x1,0x18
005d e226 | & | Load 0x1,0x26
005e 00d8 | | Load_Top At_Offset_0
005f 02a0 | | Declare_Subprogram Null_Subprogram
0060 4802 |H | Short_Literal 0x2
0061 032e | . | Declare_Type Record,Defined,Visible
0062 c219 | | Store 0x1,0x19
0063 e226 | & | Load 0x1,0x26
0064 e227 | ' | Load 0x1,0x27
0065 e228 | ( | Load 0x1,0x28
0066 e229 | ) | Load 0x1,0x29
0067 e217 | | Load 0x1,0x17
0068 00d8 | | Load_Top At_Offset_0
0069 02a0 | | Declare_Subprogram Null_Subprogram
006a 4806 |H | Short_Literal 0x6
006b 032e | . | Declare_Type Record,Defined,Visible
006c c21a | | Store 0x1,0x1a
006d e20f | | Load 0x1,0xf
006e e217 | | Load 0x1,0x17
006f 4801 |H | Short_Literal 0x1
0070 e218 | | Load 0x1,0x18
0071 029f 0503 | | Declare_Subprogram For_Call,INIT_0500
0073 4801 |H | Short_Literal 0x1
0074 4801 |H | Short_Literal 0x1
0075 4801 |H | Short_Literal 0x1
0076 4800 |H | Short_Literal 0x0
0077 4801 |H | Short_Literal 0x1
0078 031e | | Declare_Type Variant_Record,Defined,Visible
0079 c21b | | Store 0x1,0x1b
007a e210 | | Load 0x1,0x10
007b 4801 |H | Short_Literal 0x1
007c e219 | | Load 0x1,0x19
007d 4801 |H | Short_Literal 0x1
007e e211 | | Load 0x1,0x11
007f 029f 054b | K| Declare_Subprogram For_Call,INIT_0548
0081 4802 |H | Short_Literal 0x2
0082 4800 |H | Short_Literal 0x0
0083 4802 |H | Short_Literal 0x2
0084 4800 |H | Short_Literal 0x0
0085 4801 |H | Short_Literal 0x1
0086 031e | | Declare_Type Variant_Record,Defined,Visible
0087 c21c | | Store 0x1,0x1c
0088 e20e | | Load 0x1,0xe
0089 4801 |H | Short_Literal 0x1
008a e21b | | Load 0x1,0x1b
008b 4801 |H | Short_Literal 0x1
008c e21c | | Load 0x1,0x1c
008d 029f 0583 | | Declare_Subprogram For_Call,INIT_0580
008f 4802 |H | Short_Literal 0x2
0090 4800 |H | Short_Literal 0x0
0091 4802 |H | Short_Literal 0x2
0092 4800 |H | Short_Literal 0x0
0093 4801 |H | Short_Literal 0x1
0094 031e | | Declare_Type Variant_Record,Defined,Visible
0095 c21d | | Store 0x1,0x1d
0096 e20d | | Load 0x1,0xd
0097 00d9 | | Load_Top At_Offset_1
0098 4801 |H | Short_Literal 0x1
0099 e21a | | Load 0x1,0x1a
009a 4801 |H | Short_Literal 0x1
009b e21d | | Load 0x1,0x1d
009c 029f 05c3 | | Declare_Subprogram For_Call,INIT_05c0
009e 4802 |H | Short_Literal 0x2
009f 4801 |H | Short_Literal 0x1
00a0 4802 |H | Short_Literal 0x2
00a1 4800 |H | Short_Literal 0x0
00a2 4801 |H | Short_Literal 0x1
00a3 031e | | Declare_Type Variant_Record,Defined,Visible
00a4 c21e | | Store 0x1,0x1e
00a5 e003 | | Load 0x0,0x3
00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a7 0129 | ) | Execute Any,Make_Visible
00a8 c21f | | Store 0x1,0x1f
00a9 e004 | | Load 0x0,0x4
00aa 0129 | ) | Execute Any,Make_Visible
00ab c220 | | Store 0x1,0x20
00ac 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
00ae c221 | ! | Store 0x1,0x21
00af 029a 0243 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0240
00b1 c222 | " | Store 0x1,0x22
00b2 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
00b4 c223 | # | Store 0x1,0x23
00b5 029a 03b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b0
00b7 c224 | $ | Store 0x1,0x24
00b8 029a 03c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c0
00ba c225 | % | Store 0x1,0x25
00bb 00bf | | Action Accept_Activation
00bc e005 | | Load 0x0,0x5
00bd 1914 | | Execute Package,Field_Reference,Field_Number 0x14
00be 0007 | | Action Break_Optional
00bf e005 | | Load 0x0,0x5
00c0 1915 | | Execute Package,Field_Reference,Field_Number 0x15
00c1 0007 | | Action Break_Optional
00c2 e006 | | Load 0x0,0x6
00c3 e007 | | Load 0x0,0x7
00c4 e20d | | Load 0x1,0xd
00c5 e005 | | Load 0x0,0x5
00c6 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00c7 0387 | | Declare_Variable Package
00c8 00d8 | | Load_Top At_Offset_0
00c9 020f | | Execute Module,Activate
00ca e008 | | Load 0x0,0x8
00cb e009 | | Load 0x0,0x9
00cc e20e | | Load 0x1,0xe
00cd e005 | | Load 0x0,0x5
00ce 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00cf 0387 | | Declare_Variable Package
00d0 00d8 | | Load_Top At_Offset_0
00d1 020f | | Execute Module,Activate
00d2 e00a | | Load 0x0,0xa
00d3 e00b | | Load 0x0,0xb
00d4 e20f | | Load 0x1,0xf
00d5 e005 | | Load 0x0,0x5
00d6 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00d7 0387 | | Declare_Variable Package
00d8 00d8 | | Load_Top At_Offset_0
00d9 020f | | Execute Module,Activate
00da e00c | | Load 0x0,0xc
00db e00d | | Load 0x0,0xd
00dc e210 | | Load 0x1,0x10
00dd e005 | | Load 0x0,0x5
00de 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00df 0387 | | Declare_Variable Package
00e0 00d8 | | Load_Top At_Offset_0
00e1 020f | | Execute Module,Activate
00e2 e00e | | Load 0x0,0xe
00e3 e00f | | Load 0x0,0xf
00e4 e211 | | Load 0x1,0x11
00e5 e005 | | Load 0x0,0x5
00e6 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00e7 0387 | | Declare_Variable Package
00e8 00d8 | | Load_Top At_Offset_0
00e9 020f | | Execute Module,Activate
00ea e002 | | Load 0x0,0x2
00eb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ec 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00f5 00c7 | | Action Elaborate_Subprogram
00f6 BODY_0008:
00f6 00bc | | Action Signal_Activated
00f7 00bb | | Action Signal_Completion
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 0x7
00fc 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0111 00db | | Load_Top At_Offset_3
0112 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0113 00db | | Load_Top At_Offset_3
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x7
0124 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0139 00db | | Load_Top At_Offset_3
013a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
013b 00db | | Load_Top At_Offset_3
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x7
014c 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0161 00db | | Load_Top At_Offset_3
0162 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0163 00db | | Load_Top At_Offset_3
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x7
0174 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0189 00db | | Load_Top At_Offset_3
018a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
018b 00db | | Load_Top At_Offset_3
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x7
019c 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
01b1 00db | | Load_Top At_Offset_3
01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01b3 00db | | Load_Top At_Offset_3
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 822d | - | Call 0x1,0x2d
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 e22f | / | Load 0x1,0x2f
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 e230 | 0 | Load 0x1,0x30
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 e232 | 2 | Load 0x1,0x32
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 e233 | 3 | Load 0x1,0x33
01eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ec 4503 |E | Exit_Subprogram 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 822d | - | Call 0x1,0x2d
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 822d | - | Call 0x1,0x2d
01fb 4503 |E | Exit_Subprogram 0x3
01fc 4800 |H | Short_Literal 0x0
01fd 00db | | Load_Top At_Offset_3
01fe 822d | - | Call 0x1,0x2d
01ff 4800 |H | Short_Literal 0x0
0200 00db | | Load_Top At_Offset_3
0201 822d | - | Call 0x1,0x2d
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 e231 | 1 | Load 0x1,0x31
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_Subprogram 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 822d | - | Call 0x1,0x2d
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 822d | - | Call 0x1,0x2d
021e 4503 |E | Exit_Subprogram 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 822d | - | Call 0x1,0x2d
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 822d | - | Call 0x1,0x2d
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 822d | - | Call 0x1,0x2d
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 822d | - | Call 0x1,0x2d
0233 4800 |H | Short_Literal 0x0
0234 00db | | Load_Top At_Offset_3
0235 822d | - | Call 0x1,0x2d
0236 4800 |H | Short_Literal 0x0
0237 00db | | Load_Top At_Offset_3
0238 822d | - | Call 0x1,0x2d
0239 4800 |H | Short_Literal 0x0
023a 00db | | Load_Top At_Offset_3
023b 822d | - | Call 0x1,0x2d
023c 4800 |H | Short_Literal 0x0
023d 00db | | Load_Top At_Offset_3
023e 822d | - | Call 0x1,0x2d
023f 4503 |E | Exit_Subprogram 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_Subprogram 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 e002 | | Load 0x0,0x2
024c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
024d e22c | , | Load 0x1,0x2c
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 e002 | | Load 0x0,0x2
0270 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0271 e5ff | | Load 0x2,-0x1
0272 822e | . | Call 0x1,0x2e
0273 c403 | | Store 0x2,0x3
0274 e22f | / | Load 0x1,0x2f
0275 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0276 e5ff | | Load 0x2,-0x1
0277 e22f | / | Load 0x1,0x2f
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 e230 | 0 | Load 0x1,0x30
027d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027e e5ff | | Load 0x2,-0x1
027f e230 | 0 | Load 0x1,0x30
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 e232 | 2 | Load 0x1,0x32
0285 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0286 e5ff | | Load 0x2,-0x1
0287 e232 | 2 | Load 0x1,0x32
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 e231 | 1 | Load 0x1,0x31
028d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028e e5ff | | Load 0x2,-0x1
028f e231 | 1 | Load 0x1,0x31
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_Subprogram 0x2
02a8 e002 | | Load 0x0,0x2
02a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02aa e5ff | | Load 0x2,-0x1
02ab 822e | . | Call 0x1,0x2e
02ac 005b | [ | Store_Top Discrete,At_Offset_3
02ad e002 | | Load 0x0,0x2
02ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02af e5ff | | Load 0x2,-0x1
02b0 822e | . | Call 0x1,0x2e
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_Subprogram 0x2
02cd e002 | | Load 0x0,0x2
02ce 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02cf e5ff | | Load 0x2,-0x1
02d0 822e | . | Call 0x1,0x2e
02d1 c402 | | Store 0x2,0x2
02d2 e002 | | Load 0x0,0x2
02d3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d4 e5ff | | Load 0x2,-0x1
02d5 822e | . | Call 0x1,0x2e
02d6 c402 | | Store 0x2,0x2
02d7 e231 | 1 | Load 0x1,0x31
02d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d9 e5ff | | Load 0x2,-0x1
02da e231 | 1 | Load 0x1,0x31
02db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02dc c40b | | Store 0x2,0xb
02dd e40b | | Load 0x2,0xb
02de 4604 |F | Jump_Case 0x4
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_Subprogram 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_Subprogram 0x2
0310 e002 | | Load 0x0,0x2
0311 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0312 e5ff | | Load 0x2,-0x1
0313 822e | . | Call 0x1,0x2e
0314 c40c | | Store 0x2,0xc
0315 e002 | | Load 0x0,0x2
0316 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0317 e5ff | | Load 0x2,-0x1
0318 822e | . | Call 0x1,0x2e
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_Subprogram 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_Subprogram 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_Subprogram 0x2
0364 e002 | | Load 0x0,0x2
0365 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0366 e5ff | | Load 0x2,-0x1
0367 822e | . | Call 0x1,0x2e
0368 c405 | | Store 0x2,0x5
0369 e002 | | Load 0x0,0x2
036a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
036b e5ff | | Load 0x2,-0x1
036c 822e | . | Call 0x1,0x2e
036d c406 | | Store 0x2,0x6
036e e002 | | Load 0x0,0x2
036f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0370 e5ff | | Load 0x2,-0x1
0371 822e | . | Call 0x1,0x2e
0372 c407 | | Store 0x2,0x7
0373 e002 | | Load 0x0,0x2
0374 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0375 e5ff | | Load 0x2,-0x1
0376 822e | . | Call 0x1,0x2e
0377 c408 | | Store 0x2,0x8
0378 e002 | | Load 0x0,0x2
0379 1b10 | | Execute Package,Field_Read,Field_Number 0x10
037a e5ff | | Load 0x2,-0x1
037b 822e | . | Call 0x1,0x2e
037c c402 | | Store 0x2,0x2
037d e002 | | Load 0x0,0x2
037e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
037f e5ff | | Load 0x2,-0x1
0380 822e | . | Call 0x1,0x2e
0381 c402 | | Store 0x2,0x2
0382 e002 | | Load 0x0,0x2
0383 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0384 e5ff | | Load 0x2,-0x1
0385 822e | . | Call 0x1,0x2e
0386 c402 | | Store 0x2,0x2
0387 e002 | | Load 0x0,0x2
0388 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0389 e5ff | | Load 0x2,-0x1
038a 822e | . | Call 0x1,0x2e
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_Subprogram 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_Subprogram 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_Subprogram 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 0x8
0504 7808 |x | Jump 0x50d ; case 0x0
0505 4302 |C | Exit_Subprogram From_Utility,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,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 0x4
051c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
051d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
051e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
051f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0520 4302 |C | Exit_Subprogram From_Utility,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,0x2
0527 48ff |H | Short_Literal 0xff
0528 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0529 00db | | Load_Top At_Offset_3
052a e5fe | | Load 0x2,-0x2
052b 4604 |F | Jump_Case 0x4
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,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,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 0x8
054c 7808 |x | Jump 0x555 ; case 0x0
054d 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x2
0569 4801 |H | Short_Literal 0x1
056a 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x8
0584 7808 |x | Jump 0x58d ; case 0x0
0585 4302 |C | Exit_Subprogram From_Utility,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,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,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,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,0x2
05a8 4801 |H | Short_Literal 0x1
05a9 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x8
05c4 7808 |x | Jump 0x5cd ; case 0x0
05c5 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x2
05e4 4801 |H | Short_Literal 0x1
05e5 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0014 | | .DEBUG4 0x0004,0x0014,0x0ee3,0x0000,0x0001,0x0000
066e 0404 0404 | | .BLANK 0404[0x35]
06a3 0400 0c98 | | .XXX[0x6]
06a5 8263 110b | c |
06a7 4401 2000 |D |
06a9 0000 0000 | | .BLANK 0000[0x4]
06ad 0004 0000 | | .XXX[0x34]
06af 0001 0000 | |
06b1 0014 2020 | |
06b3 2020 4172 | Ar|
06b5 6368 6976 |chiv|
06b7 652e 5265 |e.Re|
06b9 7374 6f72 |stor|
06bb 653b 0045 |e; E|
06bd 3b00 0000 |; |
06bf 0100 0000 | |
06c1 013b 4553 | ;ES|
06c3 544f 5245 |TORE|
06c5 3b00 0000 |; |
06c7 0100 9b29 | )|
06c9 022b 234b | +#K|
06cb a37b 9161 | { a|
06cd 021b 7b6b | {k|
06cf 6b0b 7321 |k s!|
06d1 6102 1b7b |a {|
06d3 6b6b 7b71 |kk{q|
06d5 d802 7a71 | zq|
06d7 d800 0000 | |
06d9 0800 0000 | |
06db 09da 1a7a | z|
06dd 6a6a 7a71 |jjzq|
06df d800 7b70 | {p|
06e1 0000 0000 | | .BLANK 0000[0x11f]