|
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 - download
Length: 8192 (0x2000) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06707b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0ba8 | | .CONST 0x0ba8 ; 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 0007 | | .CONST 0x0007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00f0 | | .CONST 0x00f0 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003d | = | .CONST 0x003d ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 000f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0011 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0013 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0015 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0017 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0019 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 001b 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 001d 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 001f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0021 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0023 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0025 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0027 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0029 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 002b 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 002d 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 002f 4800 |H | Short_Literal 0x0 0030 480b |H | Short_Literal 0xb 0031 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 0033 03fe | | Declare_Type Discrete,Defined,Visible 0034 00d8 | | Load_Top At_Offset_0 0035 00d9 | | Load_Top At_Offset_1 0036 4803 |H | Short_Literal 0x3 0037 e002 | | Load 0x0,0x2 0038 e20d | | Load 0x1,0xd 0039 00d8 | | Load_Top At_Offset_0 003a 4802 |H | Short_Literal 0x2 003b 00e2 | | Load_Encached Integer_Cache 003c e20d | | Load 0x1,0xd 003d 4803 |H | Short_Literal 0x3 003e 4820 |H | Short_Literal 0x20 003f e003 | | Load 0x0,0x3 0040 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0041 1c07 | | Execute_Immediate Run_Utility,0x7 0042 0129 | ) | Execute Any,Make_Visible 0043 4820 |H | Short_Literal 0x20 0044 e003 | | Load 0x0,0x3 0045 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0046 1c07 | | Execute_Immediate Run_Utility,0x7 0047 0129 | ) | Execute Any,Make_Visible 0048 e002 | | Load 0x0,0x2 0049 4802 |H | Short_Literal 0x2 004a 4820 |H | Short_Literal 0x20 004b e003 | | Load 0x0,0x3 004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004d 1c07 | | Execute_Immediate Run_Utility,0x7 004e 0129 | ) | Execute Any,Make_Visible 004f 4820 |H | Short_Literal 0x20 0050 e003 | | Load 0x0,0x3 0051 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0052 1c07 | | Execute_Immediate Run_Utility,0x7 0053 0129 | ) | Execute Any,Make_Visible 0054 4802 |H | Short_Literal 0x2 0055 4820 |H | Short_Literal 0x20 0056 e003 | | Load 0x0,0x3 0057 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0058 1c07 | | Execute_Immediate Run_Utility,0x7 0059 0129 | ) | Execute Any,Make_Visible 005a e004 | | Load 0x0,0x4 005b 4803 |H | Short_Literal 0x3 005c 4820 |H | Short_Literal 0x20 005d e003 | | Load 0x0,0x3 005e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005f 1c07 | | Execute_Immediate Run_Utility,0x7 0060 0129 | ) | Execute Any,Make_Visible 0061 4820 |H | Short_Literal 0x20 0062 e003 | | Load 0x0,0x3 0063 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0064 1c07 | | Execute_Immediate Run_Utility,0x7 0065 0129 | ) | Execute Any,Make_Visible 0066 4820 |H | Short_Literal 0x20 0067 e003 | | Load 0x0,0x3 0068 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0069 1c07 | | Execute_Immediate Run_Utility,0x7 006a 0129 | ) | Execute Any,Make_Visible 006b 4801 |H | Short_Literal 0x1 006c e005 | | Load 0x0,0x5 006d 029f 090b | | Declare_Subprogram INIT_0908,For_Call 006f 4810 |H | Short_Literal 0x10 0070 4801 |H | Short_Literal 0x1 0071 4807 |H | Short_Literal 0x7 0072 4800 |H | Short_Literal 0x0 0073 4801 |H | Short_Literal 0x1 0074 031e | | Declare_Type Variant_Record,Defined,Visible 0075 00d8 | | Load_Top At_Offset_0 0076 e20d | | Load 0x1,0xd 0077 029f 09db | | Declare_Subprogram INIT_09d8,For_Call 0079 4802 |H | Short_Literal 0x2 007a 032e | . | Declare_Type Record,Defined,Visible 007b 00d8 | | Load_Top At_Offset_0 007c 02a0 | | Declare_Subprogram Null_Subprogram 007d e20d | | Load 0x1,0xd 007e 03c7 | | Complete_Type Access,By_Defining 007f 00bf | | Action Accept_Activation 0080 a006 | | Store_Unchecked 0x0,0x6 0081 00c6 | | Action Check_Subprogram_Elaborated 0082 00d8 | | Load_Top At_Offset_0 0083 e20d | | Load 0x1,0xd 0084 e007 | | Load 0x0,0x7 0085 e008 | | Load 0x0,0x8 0086 4800 |H | Short_Literal 0x0 0087 0007 | | Action Break_Optional 0088 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 008a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008b 00c7 | | Action Elaborate_Subprogram 008c 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 008e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 008f 00c7 | | Action Elaborate_Subprogram 0090 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call 0092 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call 0094 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 0096 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 0098 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call 009a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 009b 00c7 | | Action Elaborate_Subprogram 009c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 009d 00c7 | | Action Elaborate_Subprogram 009e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00b1 00c7 | | Action Elaborate_Subprogram 00b2 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call 00b4 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 00b6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00b7 00c7 | | Action Elaborate_Subprogram 00b8 029b 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Unelaborated 00ba 029b 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Unelaborated 00bc 029b 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Unelaborated 00be 029b 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Unelaborated 00c0 029b 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call,Unelaborated 00c2 029b 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Unelaborated 00c4 029b 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call,Unelaborated 00c6 029b 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Unelaborated 00c8 029b 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call,Unelaborated 00ca 029b 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call,Unelaborated 00cc 029b 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call,Unelaborated 00ce 029b 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call,Unelaborated 00d0 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00d1 00c7 | | Action Elaborate_Subprogram 00d2 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call 00d4 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 00eb 00c7 | | Action Elaborate_Subprogram 00ec 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call 00ee 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ef 00c7 | | Action Elaborate_Subprogram 00f0 BODY_0008: 00f0 00bc | | Action Signal_Activated 00f1 00bb | | Action Signal_Completion 00f2 0000 0000 | | .BLANK 0000[0x6] 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 e20d | | Load 0x1,0xd 00fc 00ca | | Action Exit_Nullary_Function 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0105 | | .CONST 0x0105 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0003 | | .CONST 0x0003 ; Number of locals 0103 INIT_0100: 0103 e20d | | Load 0x1,0xd 0104 03bd | | Declare_Variable Access,Duplicate 0105 BODY_0100: 0105 e5ff | | Load 0x2,-0x1 0106 003a | : | Store_Top Access,At_Offset_2 0107 00cf | | Action Mark_Auxiliary 0108 780a |x | Jump 0x113 0109 00da | | Load_Top At_Offset_2 010a 0227 | ' | Execute Access,All_Reference 010b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010c 003a | : | Store_Top Access,At_Offset_2 010d 00da | | Load_Top At_Offset_2 010e 823d | = | Call 0x1,0x3d 010f 003b | ; | Store_Top Access,At_Offset_3 0110 00d9 | | Load_Top At_Offset_1 0111 003b | ; | Store_Top Access,At_Offset_3 0112 00c9 | | Action Pop_Auxiliary_Loop 0113 00da | | Load_Top At_Offset_2 0114 822b | + | Call 0x1,0x2b 0115 6ff3 |o | Jump_Zero 0x109 0116 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011d | | .CONST 0x011d ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e20d | | Load 0x1,0xd 011c 0007 | | Action Break_Optional 011d BODY_0118: 011d e5fe | | Load 0x2,-0x2 011e 7003 |p | Jump_Nonzero 0x122 011f 00db | | Load_Top At_Offset_3 0120 a5fe | | Store_Unchecked 0x2,-0x2 0121 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0122 e5fe | | Load 0x2,-0x2 0123 8227 | ' | Call 0x1,0x27 0124 0039 | 9 | Store_Top Access,At_Offset_1 0125 00db | | Load_Top At_Offset_3 0126 00d9 | | Load_Top At_Offset_1 0127 0227 | ' | Execute Access,All_Reference 0128 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012a 0000 0000 | | .BLANK 0000[0x6] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0139 | 9 | .CONST 0x0139 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0003 | | .CONST 0x0003 ; Number of locals 0133 INIT_0130: 0133 e220 | | Load 0x1,0x20 0134 02ff | | Declare_Variable Variant_Record 0135 00d8 | | Load_Top At_Offset_0 0136 1c00 | | Execute_Immediate Run_Utility,0x0 0137 e20d | | Load 0x1,0xd 0138 0007 | | Action Break_Optional 0139 BODY_0130: 0139 e5ff | | Load 0x2,-0x1 013a 8229 | ) | Call 0x1,0x29 013b 0039 | 9 | Store_Top Access,At_Offset_1 013c 00cf | | Action Mark_Auxiliary 013d 7895 |x | Jump 0x1d3 013e 00d9 | | Load_Top At_Offset_1 013f 822d | - | Call 0x1,0x2d 0140 00db | | Load_Top At_Offset_3 0141 016d | m | Execute Variant_Record,Structure_Write 0142 00da | | Load_Top At_Offset_2 0143 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0144 460b |F | Jump_Case 0xc 0145 780f |x | Jump 0x155 ; case 0x0 0146 781c |x | Jump 0x163 ; case 0x1 0147 7829 |x) | Jump 0x171 ; case 0x2 0148 7834 |x4 | Jump 0x17d ; case 0x3 0149 783e |x> | Jump 0x188 ; case 0x4 014a 7848 |xH | Jump 0x193 ; case 0x5 014b 7852 |xR | Jump 0x19e ; case 0x6 014c 785c |x\ | Jump 0x1a9 ; case 0x7 014d 7866 |xf | Jump 0x1b4 ; case 0x8 014e 7870 |xp | Jump 0x1bf ; case 0x9 014f 7878 |xx | Jump 0x1c8 ; case 0xa 0150 7800 |x | Jump 0x151 ; case 0xb 0151 e5fc | | Load 0x2,-0x4 0152 00db | | Load_Top At_Offset_3 0153 823b | ; | Call 0x1,0x3b 0154 787a |xz | Jump 0x1cf 0155 e5f7 | | Load 0x2,-0x9 0156 e5f8 | | Load 0x2,-0x8 0157 e5f9 | | Load 0x2,-0x7 0158 e5fa | | Load 0x2,-0x6 0159 e5fb | | Load 0x2,-0x5 015a e5fc | | Load 0x2,-0x4 015b e5fd | | Load 0x2,-0x3 015c e5fe | | Load 0x2,-0x2 015d e402 | | Load 0x2,0x2 015e 8230 | 0 | Call 0x1,0x30 015f 00d3 | | Pop_Control Pop_Count_3 0160 c5f8 | | Store 0x2,-0x8 0161 c5f7 | | Store 0x2,-0x9 0162 786c |xl | Jump 0x1cf 0163 e5f7 | | Load 0x2,-0x9 0164 e5f8 | | Load 0x2,-0x8 0165 e5f9 | | Load 0x2,-0x7 0166 e5fa | | Load 0x2,-0x6 0167 e5fb | | Load 0x2,-0x5 0168 e5fc | | Load 0x2,-0x4 0169 e5fd | | Load 0x2,-0x3 016a e5fe | | Load 0x2,-0x2 016b e402 | | Load 0x2,0x2 016c 8231 | 1 | Call 0x1,0x31 016d 00d3 | | Pop_Control Pop_Count_3 016e c5f8 | | Store 0x2,-0x8 016f c5f7 | | Store 0x2,-0x9 0170 785e |x^ | Jump 0x1cf 0171 e5f9 | | Load 0x2,-0x7 0172 e5fa | | Load 0x2,-0x6 0173 e5fb | | Load 0x2,-0x5 0174 e5fc | | Load 0x2,-0x4 0175 e5fd | | Load 0x2,-0x3 0176 e5fe | | Load 0x2,-0x2 0177 e402 | | Load 0x2,0x2 0178 8232 | 2 | Call 0x1,0x32 0179 00d3 | | Pop_Control Pop_Count_3 017a 4801 |H | Short_Literal 0x1 017b a5f7 | | Store_Unchecked 0x2,-0x9 017c 7852 |xR | Jump 0x1cf 017d e5fa | | Load 0x2,-0x6 017e e5fc | | Load 0x2,-0x4 017f e5fd | | Load 0x2,-0x3 0180 e5fb | | Load 0x2,-0x5 0181 e5fe | | Load 0x2,-0x2 0182 e402 | | Load 0x2,0x2 0183 8233 | 3 | Call 0x1,0x33 0184 00d1 | | Pop_Control Pop_Count_1 0185 4801 |H | Short_Literal 0x1 0186 a5f7 | | Store_Unchecked 0x2,-0x9 0187 7847 |xG | Jump 0x1cf 0188 e5fa | | Load 0x2,-0x6 0189 e5fc | | Load 0x2,-0x4 018a e5fd | | Load 0x2,-0x3 018b e5fb | | Load 0x2,-0x5 018c e5fe | | Load 0x2,-0x2 018d e402 | | Load 0x2,0x2 018e 8234 | 4 | Call 0x1,0x34 018f 00d1 | | Pop_Control Pop_Count_1 0190 4801 |H | Short_Literal 0x1 0191 a5f7 | | Store_Unchecked 0x2,-0x9 0192 783c |x< | Jump 0x1cf 0193 e5f9 | | Load 0x2,-0x7 0194 e5fc | | Load 0x2,-0x4 0195 e5fd | | Load 0x2,-0x3 0196 e5fb | | Load 0x2,-0x5 0197 e5fe | | Load 0x2,-0x2 0198 e402 | | Load 0x2,0x2 0199 8235 | 5 | Call 0x1,0x35 019a 00d1 | | Pop_Control Pop_Count_1 019b 4801 |H | Short_Literal 0x1 019c a5f7 | | Store_Unchecked 0x2,-0x9 019d 7831 |x1 | Jump 0x1cf 019e e5f9 | | Load 0x2,-0x7 019f e5fc | | Load 0x2,-0x4 01a0 e5fd | | Load 0x2,-0x3 01a1 e5fb | | Load 0x2,-0x5 01a2 e5fe | | Load 0x2,-0x2 01a3 e402 | | Load 0x2,0x2 01a4 8236 | 6 | Call 0x1,0x36 01a5 00d1 | | Pop_Control Pop_Count_1 01a6 4801 |H | Short_Literal 0x1 01a7 a5f7 | | Store_Unchecked 0x2,-0x9 01a8 7826 |x& | Jump 0x1cf 01a9 e5f9 | | Load 0x2,-0x7 01aa e5fc | | Load 0x2,-0x4 01ab e5fd | | Load 0x2,-0x3 01ac e5fb | | Load 0x2,-0x5 01ad e5fe | | Load 0x2,-0x2 01ae e402 | | Load 0x2,0x2 01af 8237 | 7 | Call 0x1,0x37 01b0 00d1 | | Pop_Control Pop_Count_1 01b1 4801 |H | Short_Literal 0x1 01b2 a5f7 | | Store_Unchecked 0x2,-0x9 01b3 781b |x | Jump 0x1cf 01b4 e5f9 | | Load 0x2,-0x7 01b5 e5fc | | Load 0x2,-0x4 01b6 e5fd | | Load 0x2,-0x3 01b7 e5fb | | Load 0x2,-0x5 01b8 e5fe | | Load 0x2,-0x2 01b9 e402 | | Load 0x2,0x2 01ba 8238 | 8 | Call 0x1,0x38 01bb 00d1 | | Pop_Control Pop_Count_1 01bc 4801 |H | Short_Literal 0x1 01bd a5f7 | | Store_Unchecked 0x2,-0x9 01be 7810 |x | Jump 0x1cf 01bf e5fc | | Load 0x2,-0x4 01c0 e5fd | | Load 0x2,-0x3 01c1 e5fb | | Load 0x2,-0x5 01c2 e5fe | | Load 0x2,-0x2 01c3 e402 | | Load 0x2,0x2 01c4 8239 | 9 | Call 0x1,0x39 01c5 4801 |H | Short_Literal 0x1 01c6 a5f7 | | Store_Unchecked 0x2,-0x9 01c7 7807 |x | Jump 0x1cf 01c8 e5f8 | | Load 0x2,-0x8 01c9 e5fc | | Load 0x2,-0x4 01ca e402 | | Load 0x2,0x2 01cb 823a | : | Call 0x1,0x3a 01cc c5f8 | | Store 0x2,-0x8 01cd 4801 |H | Short_Literal 0x1 01ce a5f7 | | Store_Unchecked 0x2,-0x9 01cf 00d9 | | Load_Top At_Offset_1 01d0 822a | * | Call 0x1,0x2a 01d1 003a | : | Store_Top Access,At_Offset_2 01d2 00c9 | | Action Pop_Auxiliary_Loop 01d3 00d9 | | Load_Top At_Offset_1 01d4 822c | , | Call 0x1,0x2c 01d5 7768 |wh | Jump_Nonzero 0x13e 01d6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01d7 0000 | | .XXX[0x1] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e2 | | .CONST 0x01e2 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e20d | | Load 0x1,0xd 01dc 0007 | | Action Break_Optional 01dd 4800 |H | Short_Literal 0x0 01de e220 | | Load 0x1,0x20 01df 1c08 | | Execute_Immediate Run_Utility,0x8 01e0 00d8 | | Load_Top At_Offset_0 01e1 1c00 | | Execute_Immediate Run_Utility,0x0 01e2 BODY_01d8: 01e2 820e | | Call 0x1,0xe 01e3 003a | : | Store_Top Access,At_Offset_2 01e4 4800 |H | Short_Literal 0x0 01e5 00d9 | | Load_Top At_Offset_1 01e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01e7 e5ff | | Load 0x2,-0x1 01e8 00d9 | | Load_Top At_Offset_1 01e9 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 01ea e5fe | | Load 0x2,-0x2 01eb 00d9 | | Load_Top At_Offset_1 01ec 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 01ed e5fd | | Load 0x2,-0x3 01ee 00d9 | | Load_Top At_Offset_1 01ef 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 01f0 00d9 | | Load_Top At_Offset_1 01f1 00d9 | | Load_Top At_Offset_1 01f2 8228 | ( | Call 0x1,0x28 01f3 003a | : | Store_Top Access,At_Offset_2 01f4 00d9 | | Load_Top At_Offset_1 01f5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0202 | | .CONST 0x0202 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb e20d | | Load 0x1,0xd 01fc 0007 | | Action Break_Optional 01fd 4801 |H | Short_Literal 0x1 01fe e220 | | Load 0x1,0x20 01ff 1c08 | | Execute_Immediate Run_Utility,0x8 0200 00d8 | | Load_Top At_Offset_0 0201 1c00 | | Execute_Immediate Run_Utility,0x0 0202 BODY_01f8: 0202 4801 |H | Short_Literal 0x1 0203 00d9 | | Load_Top At_Offset_1 0204 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0205 e5ff | | Load 0x2,-0x1 0206 00d9 | | Load_Top At_Offset_1 0207 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0208 e5fe | | Load 0x2,-0x2 0209 00d9 | | Load_Top At_Offset_1 020a 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 020b 00d9 | | Load_Top At_Offset_1 020c 00d9 | | Load_Top At_Offset_1 020d 8228 | ( | Call 0x1,0x28 020e 003a | : | Store_Top Access,At_Offset_2 020f 00d9 | | Load_Top At_Offset_1 0210 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0222 | " | .CONST 0x0222 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0003 | | .CONST 0x0003 ; Number of locals 021b INIT_0218: 021b e20d | | Load 0x1,0xd 021c 0007 | | Action Break_Optional 021d 4802 |H | Short_Literal 0x2 021e e220 | | Load 0x1,0x20 021f 1c08 | | Execute_Immediate Run_Utility,0x8 0220 00d8 | | Load_Top At_Offset_0 0221 1c00 | | Execute_Immediate Run_Utility,0x0 0222 BODY_0218: 0222 4802 |H | Short_Literal 0x2 0223 00d9 | | Load_Top At_Offset_1 0224 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0225 e5ff | | Load 0x2,-0x1 0226 00d9 | | Load_Top At_Offset_1 0227 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0228 e5fe | | Load 0x2,-0x2 0229 00d9 | | Load_Top At_Offset_1 022a 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 022b e5fd | | Load 0x2,-0x3 022c 00d9 | | Load_Top At_Offset_1 022d 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 022e 00d9 | | Load_Top At_Offset_1 022f 00d9 | | Load_Top At_Offset_1 0230 8228 | ( | Call 0x1,0x28 0231 003a | : | Store_Top Access,At_Offset_2 0232 00d9 | | Load_Top At_Offset_1 0233 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0242 | B | .CONST 0x0242 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b e20d | | Load 0x1,0xd 023c 0007 | | Action Break_Optional 023d 4803 |H | Short_Literal 0x3 023e e220 | | Load 0x1,0x20 023f 1c08 | | Execute_Immediate Run_Utility,0x8 0240 00d8 | | Load_Top At_Offset_0 0241 1c00 | | Execute_Immediate Run_Utility,0x0 0242 BODY_0238: 0242 4803 |H | Short_Literal 0x3 0243 00d9 | | Load_Top At_Offset_1 0244 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0245 e5ff | | Load 0x2,-0x1 0246 00d9 | | Load_Top At_Offset_1 0247 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 0248 e5fe | | Load 0x2,-0x2 0249 00d9 | | Load_Top At_Offset_1 024a 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 024b 00d9 | | Load_Top At_Offset_1 024c 00d9 | | Load_Top At_Offset_1 024d 8228 | ( | Call 0x1,0x28 024e 003a | : | Store_Top Access,At_Offset_2 024f 00d9 | | Load_Top At_Offset_1 0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0262 | b | .CONST 0x0262 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b e20d | | Load 0x1,0xd 025c 0007 | | Action Break_Optional 025d 4804 |H | Short_Literal 0x4 025e e220 | | Load 0x1,0x20 025f 1c08 | | Execute_Immediate Run_Utility,0x8 0260 00d8 | | Load_Top At_Offset_0 0261 1c00 | | Execute_Immediate Run_Utility,0x0 0262 BODY_0258: 0262 4804 |H | Short_Literal 0x4 0263 00d9 | | Load_Top At_Offset_1 0264 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0265 e5ff | | Load 0x2,-0x1 0266 00d9 | | Load_Top At_Offset_1 0267 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 0268 e5fe | | Load 0x2,-0x2 0269 00d9 | | Load_Top At_Offset_1 026a 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 026b 00d9 | | Load_Top At_Offset_1 026c 00d9 | | Load_Top At_Offset_1 026d 8228 | ( | Call 0x1,0x28 026e 003a | : | Store_Top Access,At_Offset_2 026f 00d9 | | Load_Top At_Offset_1 0270 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0282 | | .CONST 0x0282 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0003 | | .CONST 0x0003 ; Number of locals 027b INIT_0278: 027b e20d | | Load 0x1,0xd 027c 0007 | | Action Break_Optional 027d 4805 |H | Short_Literal 0x5 027e e220 | | Load 0x1,0x20 027f 1c08 | | Execute_Immediate Run_Utility,0x8 0280 00d8 | | Load_Top At_Offset_0 0281 1c00 | | Execute_Immediate Run_Utility,0x0 0282 BODY_0278: 0282 4805 |H | Short_Literal 0x5 0283 00d9 | | Load_Top At_Offset_1 0284 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0285 e5ff | | Load 0x2,-0x1 0286 00d9 | | Load_Top At_Offset_1 0287 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 0288 e5fe | | Load 0x2,-0x2 0289 00d9 | | Load_Top At_Offset_1 028a 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 028b 00d9 | | Load_Top At_Offset_1 028c 00d9 | | Load_Top At_Offset_1 028d 8228 | ( | Call 0x1,0x28 028e 003a | : | Store_Top Access,At_Offset_2 028f 00d9 | | Load_Top At_Offset_1 0290 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0291 0000 0000 | | .BLANK 0000[0x7] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a2 | | .CONST 0x02a2 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0003 | | .CONST 0x0003 ; Number of locals 029b INIT_0298: 029b e20d | | Load 0x1,0xd 029c 0007 | | Action Break_Optional 029d 4806 |H | Short_Literal 0x6 029e e220 | | Load 0x1,0x20 029f 1c08 | | Execute_Immediate Run_Utility,0x8 02a0 00d8 | | Load_Top At_Offset_0 02a1 1c00 | | Execute_Immediate Run_Utility,0x0 02a2 BODY_0298: 02a2 4806 |H | Short_Literal 0x6 02a3 00d9 | | Load_Top At_Offset_1 02a4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02a5 e5ff | | Load 0x2,-0x1 02a6 00d9 | | Load_Top At_Offset_1 02a7 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 02a8 e5fe | | Load 0x2,-0x2 02a9 00d9 | | Load_Top At_Offset_1 02aa 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 02ab 00d9 | | Load_Top At_Offset_1 02ac 00d9 | | Load_Top At_Offset_1 02ad 8228 | ( | Call 0x1,0x28 02ae 003a | : | Store_Top Access,At_Offset_2 02af 00d9 | | Load_Top At_Offset_1 02b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b1 0000 0000 | | .BLANK 0000[0x7] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c2 | | .CONST 0x02c2 ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0003 | | .CONST 0x0003 ; Number of locals 02bb INIT_02b8: 02bb e20d | | Load 0x1,0xd 02bc 0007 | | Action Break_Optional 02bd 4808 |H | Short_Literal 0x8 02be e220 | | Load 0x1,0x20 02bf 1c08 | | Execute_Immediate Run_Utility,0x8 02c0 00d8 | | Load_Top At_Offset_0 02c1 1c00 | | Execute_Immediate Run_Utility,0x0 02c2 BODY_02b8: 02c2 4808 |H | Short_Literal 0x8 02c3 00d9 | | Load_Top At_Offset_1 02c4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02c5 e5ff | | Load 0x2,-0x1 02c6 00d9 | | Load_Top At_Offset_1 02c7 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf 02c8 e5fe | | Load 0x2,-0x2 02c9 00d9 | | Load_Top At_Offset_1 02ca 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10 02cb e5fd | | Load 0x2,-0x3 02cc 00d9 | | Load_Top At_Offset_1 02cd 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11 02ce 00d9 | | Load_Top At_Offset_1 02cf 00d9 | | Load_Top At_Offset_1 02d0 8228 | ( | Call 0x1,0x28 02d1 003a | : | Store_Top Access,At_Offset_2 02d2 00d9 | | Load_Top At_Offset_1 02d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02d4 0000 0000 | | .BLANK 0000[0x4] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e2 | | .CONST 0x02e2 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0003 | | .CONST 0x0003 ; Number of locals 02db INIT_02d8: 02db e20d | | Load 0x1,0xd 02dc 0007 | | Action Break_Optional 02dd 4807 |H | Short_Literal 0x7 02de e220 | | Load 0x1,0x20 02df 1c08 | | Execute_Immediate Run_Utility,0x8 02e0 00d8 | | Load_Top At_Offset_0 02e1 1c00 | | Execute_Immediate Run_Utility,0x0 02e2 BODY_02d8: 02e2 4807 |H | Short_Literal 0x7 02e3 00d9 | | Load_Top At_Offset_1 02e4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02e5 e5ff | | Load 0x2,-0x1 02e6 00d9 | | Load_Top At_Offset_1 02e7 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd 02e8 e5fe | | Load 0x2,-0x2 02e9 00d9 | | Load_Top At_Offset_1 02ea 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe 02eb 00d9 | | Load_Top At_Offset_1 02ec 00d9 | | Load_Top At_Offset_1 02ed 8228 | ( | Call 0x1,0x28 02ee 003a | : | Store_Top Access,At_Offset_2 02ef 00d9 | | Load_Top At_Offset_1 02f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 0302 | | .CONST 0x0302 ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0003 | | .CONST 0x0003 ; Number of locals 02fb INIT_02f8: 02fb e20d | | Load 0x1,0xd 02fc 0007 | | Action Break_Optional 02fd 4809 |H | Short_Literal 0x9 02fe e220 | | Load 0x1,0x20 02ff 1c08 | | Execute_Immediate Run_Utility,0x8 0300 00d8 | | Load_Top At_Offset_0 0301 1c00 | | Execute_Immediate Run_Utility,0x0 0302 BODY_02f8: 0302 4809 |H | Short_Literal 0x9 0303 00d9 | | Load_Top At_Offset_1 0304 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0305 e5ff | | Load 0x2,-0x1 0306 00d9 | | Load_Top At_Offset_1 0307 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12 0308 00d9 | | Load_Top At_Offset_1 0309 00d9 | | Load_Top At_Offset_1 030a 8228 | ( | Call 0x1,0x28 030b 003a | : | Store_Top Access,At_Offset_2 030c 00d9 | | Load_Top At_Offset_1 030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031a | | .CONST 0x031a ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0003 | | .CONST 0x0003 ; Number of locals 0313 INIT_0310: 0313 e20d | | Load 0x1,0xd 0314 0007 | | Action Break_Optional 0315 480a |H | Short_Literal 0xa 0316 e220 | | Load 0x1,0x20 0317 1c08 | | Execute_Immediate Run_Utility,0x8 0318 00d8 | | Load_Top At_Offset_0 0319 1c00 | | Execute_Immediate Run_Utility,0x0 031a BODY_0310: 031a 480a |H | Short_Literal 0xa 031b 00d9 | | Load_Top At_Offset_1 031c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 031d 00d9 | | Load_Top At_Offset_1 031e 00d9 | | Load_Top At_Offset_1 031f 8228 | ( | Call 0x1,0x28 0320 003a | : | Store_Top Access,At_Offset_2 0321 00d9 | | Load_Top At_Offset_1 0322 00ca | | Action Exit_Nullary_Function 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0332 | 2 | .CONST 0x0332 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0003 | | .CONST 0x0003 ; Number of locals 032b INIT_0328: 032b e20d | | Load 0x1,0xd 032c 0007 | | Action Break_Optional 032d 480b |H | Short_Literal 0xb 032e e220 | | Load 0x1,0x20 032f 1c08 | | Execute_Immediate Run_Utility,0x8 0330 00d8 | | Load_Top At_Offset_0 0331 1c00 | | Execute_Immediate Run_Utility,0x0 0332 BODY_0328: 0332 480b |H | Short_Literal 0xb 0333 00d9 | | Load_Top At_Offset_1 0334 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0335 00d9 | | Load_Top At_Offset_1 0336 00d9 | | Load_Top At_Offset_1 0337 8228 | ( | Call 0x1,0x28 0338 003a | : | Store_Top Access,At_Offset_2 0339 00d9 | | Load_Top At_Offset_1 033a 00ca | | Action Exit_Nullary_Function 033b 0000 0000 | | .BLANK 0000[0x5] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 4800 |H | Short_Literal 0x0 0345 822f | / | Call 0x1,0x2f 0346 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0347 0000 | | .XXX[0x1] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 4607 |F | Jump_Case 0x8 034c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 034d 7807 |x | Jump 0x355 ; case 0x1 034e 780a |x | Jump 0x359 ; case 0x2 034f 780e |x | Jump 0x35e ; case 0x3 0350 7811 |x | Jump 0x362 ; case 0x4 0351 7812 |x | Jump 0x364 ; case 0x5 0352 7813 |x | Jump 0x366 ; case 0x6 0353 7816 |x | Jump 0x36a ; case 0x7 0354 4302 |C | .XXX[0x1] 0355 00da | | Load_Top At_Offset_2 0356 0091 09e2 | | Action Push_String_Extended_Indexed,0x9e2 ; "SI_ALORS_SINON" 0358 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0359 00db | | Load_Top At_Offset_3 035a 00db | | Load_Top At_Offset_3 035b 00e0 | | Load_Encached Standard_Cache 035c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 035d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 035e 00da | | Load_Top At_Offset_2 035f 00e0 | | Load_Encached Standard_Cache 0360 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0361 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0362 00db | | Load_Top At_Offset_3 0363 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0364 00db | | Load_Top At_Offset_3 0365 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0366 e21f | | Load 0x1,0x1f 0367 00dc | | Load_Top At_Offset_4 0368 0267 | g | Execute Discrete,Predecessor 0369 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036a e21f | | Load 0x1,0x1f 036b 00dc | | Load_Top At_Offset_4 036c 0268 | h | Execute Discrete,Successor 036d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036e 0000 0000 | | .XXX[0x2] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0377 | w | .CONST 0x0377 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0003 | | .CONST 0x0003 ; Number of locals 0373 INIT_0370: 0373 e20d | | Load 0x1,0xd 0374 0007 | | Action Break_Optional 0375 00d8 | | Load_Top At_Offset_0 0376 0007 | | Action Break_Optional 0377 BODY_0370: 0377 e5ff | | Load 0x2,-0x1 0378 7002 |p | Jump_Nonzero 0x37b 0379 e20d | | Load 0x1,0xd 037a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037b e5ff | | Load 0x2,-0x1 037c 003a | : | Store_Top Access,At_Offset_2 037d 00cf | | Action Mark_Auxiliary 037e 7807 |x | Jump 0x386 037f 00da | | Load_Top At_Offset_2 0380 003a | : | Store_Top Access,At_Offset_2 0381 00da | | Load_Top At_Offset_2 0382 0227 | ' | Execute Access,All_Reference 0383 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0384 003b | ; | Store_Top Access,At_Offset_3 0385 00c9 | | Action Pop_Auxiliary_Loop 0386 00da | | Load_Top At_Offset_2 0387 77f7 |w | Jump_Nonzero 0x37f 0388 00ce | | Action Pop_Auxiliary 0389 00d8 | | Load_Top At_Offset_0 038a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038b 0000 0000 | | .BLANK 0000[0x5] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0395 | | .CONST 0x0395 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0002 | | .CONST 0x0002 ; Number of locals 0393 INIT_0390: 0393 e20d | | Load 0x1,0xd 0394 0007 | | Action Break_Optional 0395 BODY_0390: 0395 e221 | ! | Load 0x1,0x21 0396 0322 | " | Declare_Variable Record 0397 e5ff | | Load 0x2,-0x1 0398 00d9 | | Load_Top At_Offset_1 0399 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 039a e20d | | Load 0x1,0xd 039b 00d9 | | Load_Top At_Offset_1 039c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 039d e20d | | Load 0x1,0xd 039e 03b6 | | Declare_Variable Access,By_Allocation,With_Value 039f 0039 | 9 | Store_Top Access,At_Offset_1 03a0 e5fe | | Load 0x2,-0x2 03a1 00d9 | | Load_Top At_Offset_1 03a2 8210 | | Call 0x1,0x10 03a3 c5fe | | Store 0x2,-0x2 03a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a5 0000 0000 | | .XXX[0x3] 03a7 0000 | | 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 00da | | Load_Top At_Offset_2 03ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ad 0000 0000 | | .XXX[0x3] 03af 0000 | | 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 6804 |h | Jump_Zero 0x3b9 03b5 00da | | Load_Top At_Offset_2 03b6 0227 | ' | Execute Access,All_Reference 03b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b8 003b | ; | Store_Top Access,At_Offset_3 03b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ba 0000 0000 | | .BLANK 0000[0x6] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 022d | - | Execute Access,Is_Null 03c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 00da | | Load_Top At_Offset_2 03cc 022c | , | Execute Access,Not_Null 03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d5 | | .CONST 0x03d5 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0002 | | .CONST 0x0002 ; Number of locals 03d3 INIT_03d0: 03d3 e20d | | Load 0x1,0xd 03d4 0007 | | Action Break_Optional 03d5 BODY_03d0: 03d5 00db | | Load_Top At_Offset_3 03d6 0039 | 9 | Store_Top Access,At_Offset_1 03d7 00d8 | | Load_Top At_Offset_0 03d8 0227 | ' | Execute Access,All_Reference 03d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03da 02fd | | Declare_Variable Variant_Record,Duplicate 03db 00cd | | Action Spare6_Action 03dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00cf | | Action Mark_Auxiliary 03e4 00db | | Load_Top At_Offset_3 03e5 4801 |H | Short_Literal 0x1 03e6 0263 | c | Execute Discrete,Above_Bound 03e7 7006 |p | Jump_Nonzero 0x3ee 03e8 0092 09ee | | Action Push_String_Extended,0x9ee ; " " 03ea e009 | | Load 0x0,0x9 03eb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03ec 00c8 | | Action Pop_Auxiliary_Range 03ed 3ffa |? | Loop_Increasing 0x3e8 03ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f9 | | .CONST 0x03f9 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0003 | | .CONST 0x0003 ; Number of locals 03f3 INIT_03f0: 03f3 e20d | | Load 0x1,0xd 03f4 0007 | | Action Break_Optional 03f5 e220 | | Load 0x1,0x20 03f6 02ff | | Declare_Variable Variant_Record 03f7 00d8 | | Load_Top At_Offset_0 03f8 1c00 | | Execute_Immediate Run_Utility,0x0 03f9 BODY_03f0: 03f9 e5fe | | Load 0x2,-0x2 03fa 8229 | ) | Call 0x1,0x29 03fb 003a | : | Store_Top Access,At_Offset_2 03fc 00cf | | Action Mark_Auxiliary 03fd 793a |y: | Jump 0x538 03fe 00da | | Load_Top At_Offset_2 03ff 822d | - | Call 0x1,0x2d 0400 00da | | Load_Top At_Offset_2 0401 016d | m | Execute Variant_Record,Structure_Write 0402 00d9 | | Load_Top At_Offset_1 0403 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0404 460b |F | Jump_Case 0xc 0405 7812 |x | Jump 0x418 ; case 0x0 0406 7848 |xH | Jump 0x44f ; case 0x1 0407 7866 |xf | Jump 0x46e ; case 0x2 0408 788b |x | Jump 0x494 ; case 0x3 0409 78a1 |x | Jump 0x4ab ; case 0x4 040a 78b7 |x | Jump 0x4c2 ; case 0x5 040b 78cd |x | Jump 0x4d9 ; case 0x6 040c 78e3 |x | Jump 0x4f0 ; case 0x7 040d 78fa |x | Jump 0x508 ; case 0x8 040e 7918 |y | Jump 0x527 ; case 0x9 040f 791e |y | Jump 0x52e ; case 0xa 0410 7800 |x | Jump 0x411 ; case 0xb 0411 e5ff | | Load 0x2,-0x1 0412 822e | . | Call 0x1,0x2e 0413 0092 09ef | | Action Push_String_Extended,0x9ef ; "-- Vide" 0415 e009 | | Load 0x0,0x9 0416 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0417 791c |y | Jump 0x534 0418 e5ff | | Load 0x2,-0x1 0419 822e | . | Call 0x1,0x2e 041a 0092 09f0 | | Action Push_String_Extended,0x9f0 ; "SI" 041c e009 | | Load 0x0,0x9 041d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 041e 00d9 | | Load_Top At_Offset_1 041f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0420 e5ff | | Load 0x2,-0x1 0421 0a02 | | Execute_Immediate Plus,0x2 0422 00d8 | | Load_Top At_Offset_0 0423 00e2 | | Load_Encached Integer_Cache 0424 0260 | ` | Execute Discrete,In_Type 0425 7001 |p | Jump_Nonzero 0x427 0426 0801 | | Execute_Immediate Raise,0x1 0427 800a | | Call 0x0,0xa 0428 e5ff | | Load 0x2,-0x1 0429 822e | . | Call 0x1,0x2e 042a 0092 09f1 | | Action Push_String_Extended,0x9f1 ; "ALORS" 042c e009 | | Load 0x0,0x9 042d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 042e 00d9 | | Load_Top At_Offset_1 042f 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0430 e5ff | | Load 0x2,-0x1 0431 0a02 | | Execute_Immediate Plus,0x2 0432 00d8 | | Load_Top At_Offset_0 0433 00e2 | | Load_Encached Integer_Cache 0434 0260 | ` | Execute Discrete,In_Type 0435 7001 |p | Jump_Nonzero 0x437 0436 0801 | | Execute_Immediate Raise,0x1 0437 822f | / | Call 0x1,0x2f 0438 e5ff | | Load 0x2,-0x1 0439 822e | . | Call 0x1,0x2e 043a 0092 09f2 | | Action Push_String_Extended,0x9f2 ; "SINON" 043c e009 | | Load 0x0,0x9 043d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 043e 00d9 | | Load_Top At_Offset_1 043f 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0440 e5ff | | Load 0x2,-0x1 0441 0a02 | | Execute_Immediate Plus,0x2 0442 00d8 | | Load_Top At_Offset_0 0443 00e2 | | Load_Encached Integer_Cache 0444 0260 | ` | Execute Discrete,In_Type 0445 7001 |p | Jump_Nonzero 0x447 0446 0801 | | Execute_Immediate Raise,0x1 0447 822f | / | Call 0x1,0x2f 0448 e5ff | | Load 0x2,-0x1 0449 822e | . | Call 0x1,0x2e 044a 0092 09f3 | | Action Push_String_Extended,0x9f3 ; "FIN_SI" 044c e009 | | Load 0x0,0x9 044d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 044e 78e5 |x | Jump 0x534 044f e5ff | | Load 0x2,-0x1 0450 822e | . | Call 0x1,0x2e 0451 0092 09f4 | | Action Push_String_Extended,0x9f4 ; "POUR " 0453 00da | | Load_Top At_Offset_2 0454 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0455 00e0 | | Load_Encached Standard_Cache 0456 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0457 01cc | | Execute Vector,Catenate 0458 0092 09f5 | | Action Push_String_Extended,0x9f5 ; " ENTREE FAIRE " 045a 01cc | | Execute Vector,Catenate 045b e009 | | Load 0x0,0x9 045c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 045d 00d9 | | Load_Top At_Offset_1 045e 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 045f e5ff | | Load 0x2,-0x1 0460 0a02 | | Execute_Immediate Plus,0x2 0461 00d8 | | Load_Top At_Offset_0 0462 00e2 | | Load_Encached Integer_Cache 0463 0260 | ` | Execute Discrete,In_Type 0464 7001 |p | Jump_Nonzero 0x466 0465 0801 | | Execute_Immediate Raise,0x1 0466 822f | / | Call 0x1,0x2f 0467 e5ff | | Load 0x2,-0x1 0468 822e | . | Call 0x1,0x2e 0469 0092 09f6 | | Action Push_String_Extended,0x9f6 ; "FIN_POUR" 046b e009 | | Load 0x0,0x9 046c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 046d 78c6 |x | Jump 0x534 046e e5ff | | Load 0x2,-0x1 046f 822e | . | Call 0x1,0x2e 0470 00d9 | | Load_Top At_Offset_1 0471 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0472 e003 | | Load 0x0,0x3 0473 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0474 e009 | | Load 0x0,0x9 0475 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0476 00d9 | | Load_Top At_Offset_1 0477 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0478 e003 | | Load 0x0,0x3 0479 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 047a 0c01 | | Execute_Immediate Greater_Equal,0x1 047b 6809 |h | Jump_Zero 0x485 047c 0092 09f7 | | Action Push_String_Extended,0x9f7 ; "." 047e 00da | | Load_Top At_Offset_2 047f 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0480 e003 | | Load 0x0,0x3 0481 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0482 01cc | | Execute Vector,Catenate 0483 e009 | | Load 0x0,0x9 0484 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0485 0092 09f8 | | Action Push_String_Extended,0x9f8 ; " = " 0487 e009 | | Load 0x0,0x9 0488 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0489 00d9 | | Load_Top At_Offset_1 048a 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 048b e5ff | | Load 0x2,-0x1 048c 0a02 | | Execute_Immediate Plus,0x2 048d 00d8 | | Load_Top At_Offset_0 048e 00e2 | | Load_Encached Integer_Cache 048f 0260 | ` | Execute Discrete,In_Type 0490 7001 |p | Jump_Nonzero 0x492 0491 0801 | | Execute_Immediate Raise,0x1 0492 800a | | Call 0x0,0xa 0493 78a0 |x | Jump 0x534 0494 e5ff | | Load 0x2,-0x1 0495 822e | . | Call 0x1,0x2e 0496 0092 09f9 | | Action Push_String_Extended,0x9f9 ; "LIE_CONNEXION ( " 0498 00da | | Load_Top At_Offset_2 0499 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 049a e003 | | Load 0x0,0x3 049b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 049c 01cc | | Execute Vector,Catenate 049d 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 049f 01cc | | Execute Vector,Catenate 04a0 00da | | Load_Top At_Offset_2 04a1 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04a2 e003 | | Load 0x0,0x3 04a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04a4 01cc | | Execute Vector,Catenate 04a5 0092 09fb | | Action Push_String_Extended,0x9fb ; " )" 04a7 01cc | | Execute Vector,Catenate 04a8 e009 | | Load 0x0,0x9 04a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04aa 7889 |x | Jump 0x534 04ab e5ff | | Load 0x2,-0x1 04ac 822e | . | Call 0x1,0x2e 04ad 0092 09fc | | Action Push_String_Extended,0x9fc ; "DELIE_CONNEXION ( " 04af 00da | | Load_Top At_Offset_2 04b0 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 04b1 e003 | | Load 0x0,0x3 04b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04b3 01cc | | Execute Vector,Catenate 04b4 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 04b6 01cc | | Execute Vector,Catenate 04b7 00da | | Load_Top At_Offset_2 04b8 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04b9 e003 | | Load 0x0,0x3 04ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04bb 01cc | | Execute Vector,Catenate 04bc 0092 09fb | | Action Push_String_Extended,0x9fb ; " )" 04be 01cc | | Execute Vector,Catenate 04bf e009 | | Load 0x0,0x9 04c0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04c1 7872 |xr | Jump 0x534 04c2 e5ff | | Load 0x2,-0x1 04c3 822e | . | Call 0x1,0x2e 04c4 0092 09fd | | Action Push_String_Extended,0x9fd ; "LIE_LIEN ( " 04c6 00da | | Load_Top At_Offset_2 04c7 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 04c8 e003 | | Load 0x0,0x3 04c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04ca 01cc | | Execute Vector,Catenate 04cb 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 04cd 01cc | | Execute Vector,Catenate 04ce 00da | | Load_Top At_Offset_2 04cf 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04d0 e003 | | Load 0x0,0x3 04d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04d2 01cc | | Execute Vector,Catenate 04d3 0092 09fb | | Action Push_String_Extended,0x9fb ; " )" 04d5 01cc | | Execute Vector,Catenate 04d6 e009 | | Load 0x0,0x9 04d7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04d8 785b |x[ | Jump 0x534 04d9 e5ff | | Load 0x2,-0x1 04da 822e | . | Call 0x1,0x2e 04db 0092 09fe | | Action Push_String_Extended,0x9fe ; "DELIE_LIEN ( " 04dd 00da | | Load_Top At_Offset_2 04de 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 04df e003 | | Load 0x0,0x3 04e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04e1 01cc | | Execute Vector,Catenate 04e2 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 04e4 01cc | | Execute Vector,Catenate 04e5 00da | | Load_Top At_Offset_2 04e6 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04e7 e003 | | Load 0x0,0x3 04e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04e9 01cc | | Execute Vector,Catenate 04ea 0092 09fb | | Action Push_String_Extended,0x9fb ; " )" 04ec 01cc | | Execute Vector,Catenate 04ed e009 | | Load 0x0,0x9 04ee 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04ef 7844 |xD | Jump 0x534 04f0 e5ff | | Load 0x2,-0x1 04f1 822e | . | Call 0x1,0x2e 04f2 0092 09ff | | Action Push_String_Extended,0x9ff ; "LISTE_LIEN ( " 04f4 00da | | Load_Top At_Offset_2 04f5 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 04f6 e003 | | Load 0x0,0x3 04f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04f8 01cc | | Execute Vector,Catenate 04f9 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 04fb 01cc | | Execute Vector,Catenate 04fc 00da | | Load_Top At_Offset_2 04fd 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 04fe e004 | | Load 0x0,0x4 04ff 011c | | Execute Any,Convert_Unchecked 0500 1c01 | | Execute_Immediate Run_Utility,0x1 0501 01cc | | Execute Vector,Catenate 0502 0092 09fb | | Action Push_String_Extended,0x9fb ; " )" 0504 01cc | | Execute Vector,Catenate 0505 e009 | | Load 0x0,0x9 0506 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0507 782c |x, | Jump 0x534 0508 e5ff | | Load 0x2,-0x1 0509 822e | . | Call 0x1,0x2e 050a 0092 0a00 | | Action Push_String_Extended,0xa00 ; "ECHANGER_LIEN ( " 050c 00da | | Load_Top At_Offset_2 050d 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 050e e003 | | Load 0x0,0x3 050f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0510 01cc | | Execute Vector,Catenate 0511 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 0513 01cc | | Execute Vector,Catenate 0514 00da | | Load_Top At_Offset_2 0515 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 0516 e003 | | Load 0x0,0x3 0517 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0518 01cc | | Execute Vector,Catenate 0519 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 051b 01cc | | Execute Vector,Catenate 051c 00da | | Load_Top At_Offset_2 051d 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 051e e003 | | Load 0x0,0x3 051f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0520 01cc | | Execute Vector,Catenate 0521 0092 09fb | | Action Push_String_Extended,0x9fb ; " )" 0523 01cc | | Execute Vector,Catenate 0524 e009 | | Load 0x0,0x9 0525 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0526 780d |x | Jump 0x534 0527 e5ff | | Load 0x2,-0x1 0528 822e | . | Call 0x1,0x2e 0529 0092 0a01 | | Action Push_String_Extended,0xa01 ; " -- Afficher -- " 052b e009 | | Load 0x0,0x9 052c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 052d 7806 |x | Jump 0x534 052e e5ff | | Load 0x2,-0x1 052f 822e | . | Call 0x1,0x2e 0530 0092 09ec | | Action Push_String_Extended,0x9ec ; "FIN" 0532 e009 | | Load 0x0,0x9 0533 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0534 00da | | Load_Top At_Offset_2 0535 822a | * | Call 0x1,0x2a 0536 003b | ; | Store_Top Access,At_Offset_3 0537 00c9 | | Action Pop_Auxiliary_Loop 0538 00da | | Load_Top At_Offset_2 0539 822c | , | Call 0x1,0x2c 053a 76c3 |v | Jump_Nonzero 0x3fe 053b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 053c 0000 0000 | | .BLANK 0000[0x4] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0544 | D | .CONST 0x0544 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0002 | | .CONST 0x0002 ; Number of locals 0543 INIT_0540: 0543 00e1 | | Load_Encached Boolean_Cache 0544 BODY_0540: 0544 e5fc | | Load 0x2,-0x4 0545 680b |h | Jump_Zero 0x551 0546 0092 0a02 | | Action Push_String_Extended,0xa02 ; ">> Execution SI <<" 0548 e009 | | Load 0x0,0x9 0549 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 054a 0092 0a03 | | Action Push_String_Extended,0xa03 ; ">> Condition:" 054c e009 | | Load 0x0,0x9 054d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 054e 00db | | Load_Top At_Offset_3 054f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0550 800b | | Call 0x0,0xb 0551 e5fd | | Load 0x2,-0x3 0552 e5f9 | | Load 0x2,-0x7 0553 e5fa | | Load 0x2,-0x6 0554 e5fb | | Load 0x2,-0x5 0555 e5fe | | Load 0x2,-0x2 0556 e5ff | | Load 0x2,-0x1 0557 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0558 800c | | Call 0x0,0xc 0559 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 055a 00d8 | | Load_Top At_Offset_0 055b 6815 |h | Jump_Zero 0x571 055c e5fc | | Load 0x2,-0x4 055d 6804 |h | Jump_Zero 0x562 055e 0092 0a04 | | Action Push_String_Extended,0xa04 ; ">> Execution ALORS <<" 0560 e009 | | Load 0x0,0x9 0561 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0562 e5f7 | | Load 0x2,-0x9 0563 e5f8 | | Load 0x2,-0x8 0564 e5f9 | | Load 0x2,-0x7 0565 e5fa | | Load 0x2,-0x6 0566 e5fb | | Load 0x2,-0x5 0567 e5fc | | Load 0x2,-0x4 0568 e5fd | | Load 0x2,-0x3 0569 e5fe | | Load 0x2,-0x2 056a e5ff | | Load 0x2,-0x1 056b 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 056c 8211 | | Call 0x1,0x11 056d 00d3 | | Pop_Control Pop_Count_3 056e c5f8 | | Store 0x2,-0x8 056f c5f7 | | Store 0x2,-0x9 0570 7814 |x | Jump 0x585 0571 e5fc | | Load 0x2,-0x4 0572 6804 |h | Jump_Zero 0x577 0573 0092 0a05 | | Action Push_String_Extended,0xa05 ; ">> Execution SINON <<" 0575 e009 | | Load 0x0,0x9 0576 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0577 e5f7 | | Load 0x2,-0x9 0578 e5f8 | | Load 0x2,-0x8 0579 e5f9 | | Load 0x2,-0x7 057a e5fa | | Load 0x2,-0x6 057b e5fb | | Load 0x2,-0x5 057c e5fc | | Load 0x2,-0x4 057d e5fd | | Load 0x2,-0x3 057e e5fe | | Load 0x2,-0x2 057f e5ff | | Load 0x2,-0x1 0580 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0581 8211 | | Call 0x1,0x11 0582 00d3 | | Pop_Control Pop_Count_3 0583 c5f8 | | Store 0x2,-0x8 0584 c5f7 | | Store 0x2,-0x9 0585 e5fc | | Load 0x2,-0x4 0586 6804 |h | Jump_Zero 0x58b 0587 0092 0a06 | | Action Push_String_Extended,0xa06 ; ">> FIN SI <<" 0589 e009 | | Load 0x0,0x9 058a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 058b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 058c 0000 0000 | | .BLANK 0000[0x4] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 800d | | Call 0x0,0xd 0594 00db | | Load_Top At_Offset_3 0595 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0596 026e | n | Execute Discrete,Modulo 0597 7022 |p" | Jump_Nonzero 0x5ba 0598 e5fc | | Load 0x2,-0x4 0599 680c |h | Jump_Zero 0x5a6 059a 0092 0a07 | | Action Push_String_Extended,0xa07 ; ">> Execution POUR (" 059c 00db | | Load_Top At_Offset_3 059d 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 059e 00e0 | | Load_Encached Standard_Cache 059f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05a0 01cc | | Execute Vector,Catenate 05a1 0092 0a08 | | Action Push_String_Extended,0xa08 ; ")" 05a3 01cc | | Execute Vector,Catenate 05a4 e009 | | Load 0x0,0x9 05a5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05a6 e5f7 | | Load 0x2,-0x9 05a7 e5f8 | | Load 0x2,-0x8 05a8 e5f9 | | Load 0x2,-0x7 05a9 e5fa | | Load 0x2,-0x6 05aa e5fb | | Load 0x2,-0x5 05ab e5fc | | Load 0x2,-0x4 05ac e5fd | | Load 0x2,-0x3 05ad e5fe | | Load 0x2,-0x2 05ae e5ff | | Load 0x2,-0x1 05af 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 05b0 8211 | | Call 0x1,0x11 05b1 00d3 | | Pop_Control Pop_Count_3 05b2 c5f8 | | Store 0x2,-0x8 05b3 c5f7 | | Store 0x2,-0x9 05b4 e5fc | | Load 0x2,-0x4 05b5 6804 |h | Jump_Zero 0x5ba 05b6 0092 0a09 | | Action Push_String_Extended,0xa09 ; ">> FIN POUR <<" 05b8 e009 | | Load 0x0,0x9 05b9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05bb 0000 0000 | | .BLANK 0000[0x5] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c5 | | .CONST 0x05c5 ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0003 | | .CONST 0x0003 ; Number of locals 05c3 INIT_05c0: 05c3 00e2 | | Load_Encached Integer_Cache 05c4 00e1 | | Load_Encached Boolean_Cache 05c5 BODY_05c0: 05c5 e5fc | | Load 0x2,-0x4 05c6 6820 |h | Jump_Zero 0x5e7 05c7 0092 0a0a | | Action Push_String_Extended,0xa0a ; ">> Execution AFFECTATION <<" 05c9 e009 | | Load 0x0,0x9 05ca 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05cb e5ff | | Load 0x2,-0x1 05cc 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 05cd e003 | | Load 0x0,0x3 05ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05cf e009 | | Load 0x0,0x9 05d0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05d1 e5ff | | Load 0x2,-0x1 05d2 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 05d3 e003 | | Load 0x0,0x3 05d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05d5 0c01 | | Execute_Immediate Greater_Equal,0x1 05d6 6809 |h | Jump_Zero 0x5e0 05d7 0092 09f7 | | Action Push_String_Extended,0x9f7 ; "." 05d9 e5ff | | Load 0x2,-0x1 05da 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 05db e003 | | Load 0x0,0x3 05dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05dd 01cc | | Execute Vector,Catenate 05de e009 | | Load 0x0,0x9 05df 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05e0 0092 0a0b | | Action Push_String_Extended,0xa0b ; " := " 05e2 e009 | | Load 0x0,0x9 05e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05e4 e5ff | | Load 0x2,-0x1 05e5 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 05e6 800b | | Call 0x0,0xb 05e7 e5ff | | Load 0x2,-0x1 05e8 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 05e9 e003 | | Load 0x0,0x3 05ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05eb 701b |p | Jump_Nonzero 0x607 05ec e5ff | | Load 0x2,-0x1 05ed 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 05ee e003 | | Load 0x0,0x3 05ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05f0 e5fb | | Load 0x2,-0x5 05f1 800e | | Call 0x0,0xe 05f2 6810 |h | Jump_Zero 0x603 05f3 e5fb | | Load 0x2,-0x5 05f4 e5fd | | Load 0x2,-0x3 05f5 e5f9 | | Load 0x2,-0x7 05f6 e5fa | | Load 0x2,-0x6 05f7 e5fb | | Load 0x2,-0x5 05f8 e5fe | | Load 0x2,-0x2 05f9 e5ff | | Load 0x2,-0x1 05fa 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 05fb 800f | | Call 0x0,0xf 05fc e5ff | | Load 0x2,-0x1 05fd 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 05fe e003 | | Load 0x0,0x3 05ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0600 8010 | | Call 0x0,0x10 0601 00d1 | | Pop_Control Pop_Count_1 0602 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0603 0092 0a0c | | Action Push_String_Extended,0xa0c ; "Manque l'extension pour l'acces a la variable !!!" 0605 8011 | | Call 0x0,0x11 0606 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0607 e5ff | | Load 0x2,-0x1 0608 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0609 e003 | | Load 0x0,0x3 060a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 060b e5ff | | Load 0x2,-0x1 060c 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 060d e003 | | Load 0x0,0x3 060e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 060f e5fe | | Load 0x2,-0x2 0610 e5fb | | Load 0x2,-0x5 0611 8012 | | Call 0x0,0x12 0612 0092 0a0d | | Action Push_String_Extended,0xa0d ; "ENTIER" 0614 01df | | Execute Vector,Equal 0615 e5ff | | Load 0x2,-0x1 0616 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0617 e003 | | Load 0x0,0x3 0618 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0619 e5ff | | Load 0x2,-0x1 061a 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 061b e003 | | Load 0x0,0x3 061c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 061d e5fe | | Load 0x2,-0x2 061e e5fb | | Load 0x2,-0x5 061f 8012 | | Call 0x0,0x12 0620 0092 0a0e | | Action Push_String_Extended,0xa0e ; "ENUMERE" 0622 01df | | Execute Vector,Equal 0623 0278 | x | Execute Discrete,Or 0624 6817 |h | Jump_Zero 0x63c 0625 e5fd | | Load 0x2,-0x3 0626 e5f9 | | Load 0x2,-0x7 0627 e5fa | | Load 0x2,-0x6 0628 e5fb | | Load 0x2,-0x5 0629 e5fe | | Load 0x2,-0x2 062a e5ff | | Load 0x2,-0x1 062b 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 062c 8013 | | Call 0x0,0x13 062d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 062e e5fb | | Load 0x2,-0x5 062f 00da | | Load_Top At_Offset_2 0630 e5ff | | Load 0x2,-0x1 0631 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0632 e003 | | Load 0x0,0x3 0633 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0634 e5ff | | Load 0x2,-0x1 0635 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0636 e003 | | Load 0x0,0x3 0637 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0638 e5fe | | Load 0x2,-0x2 0639 8014 | | Call 0x0,0x14 063a 00d1 | | Pop_Control Pop_Count_1 063b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 063c e5ff | | Load 0x2,-0x1 063d 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 063e e003 | | Load 0x0,0x3 063f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0640 e5ff | | Load 0x2,-0x1 0641 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0642 e003 | | Load 0x0,0x3 0643 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0644 e5fe | | Load 0x2,-0x2 0645 e5fb | | Load 0x2,-0x5 0646 8012 | | Call 0x0,0x12 0647 0092 0a0f | | Action Push_String_Extended,0xa0f ; "BOOLEEN" 0649 01df | | Execute Vector,Equal 064a 6817 |h | Jump_Zero 0x662 064b e5fd | | Load 0x2,-0x3 064c e5f9 | | Load 0x2,-0x7 064d e5fa | | Load 0x2,-0x6 064e e5fb | | Load 0x2,-0x5 064f e5fe | | Load 0x2,-0x2 0650 e5ff | | Load 0x2,-0x1 0651 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0652 800c | | Call 0x0,0xc 0653 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0654 e5fb | | Load 0x2,-0x5 0655 00d9 | | Load_Top At_Offset_1 0656 e5ff | | Load 0x2,-0x1 0657 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0658 e003 | | Load 0x0,0x3 0659 1813 | | Execute Package,Field_Execute,Field_Number 0x13 065a e5ff | | Load 0x2,-0x1 065b 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 065c e003 | | Load 0x0,0x3 065d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 065e e5fe | | Load 0x2,-0x2 065f 8015 | | Call 0x0,0x15 0660 00d1 | | Pop_Control Pop_Count_1 0661 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0662 0092 0a10 | | Action Push_String_Extended,0xa10 ; "Affectation non valide !!!" 0664 8011 | | Call 0x0,0x11 0665 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 0677 | w | .CONST 0x0677 ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0003 | | .CONST 0x0003 ; Number of locals 066b INIT_0668: 066b 4820 |H | Short_Literal 0x20 066c e003 | | Load 0x0,0x3 066d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 066e 1c08 | | Execute_Immediate Run_Utility,0x8 066f 00d8 | | Load_Top At_Offset_0 0670 1c00 | | Execute_Immediate Run_Utility,0x0 0671 4820 |H | Short_Literal 0x20 0672 e003 | | Load 0x0,0x3 0673 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0674 1c08 | | Execute_Immediate Run_Utility,0x8 0675 00d8 | | Load_Top At_Offset_0 0676 1c00 | | Execute_Immediate Run_Utility,0x0 0677 BODY_0668: 0677 e5fb | | Load 0x2,-0x5 0678 6816 |h | Jump_Zero 0x68f 0679 0092 0a11 | | Action Push_String_Extended,0xa11 ; ">> Execution LIE_CONNEXION <<" 067b e009 | | Load 0x0,0x9 067c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 067d 0092 0a12 | | Action Push_String_Extended,0xa12 ; ">> Parametres: " 067f e5ff | | Load 0x2,-0x1 0680 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0681 e003 | | Load 0x0,0x3 0682 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0683 01cc | | Execute Vector,Catenate 0684 0092 0a13 | | Action Push_String_Extended,0xa13 ; " , " 0686 01cc | | Execute Vector,Catenate 0687 e009 | | Load 0x0,0x9 0688 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0689 e5ff | | Load 0x2,-0x1 068a 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 068b e003 | | Load 0x0,0x3 068c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 068d e009 | | Load 0x0,0x9 068e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 068f e5ff | | Load 0x2,-0x1 0690 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0691 00da | | Load_Top At_Offset_2 0692 016d | m | Execute Variant_Record,Structure_Write 0693 e5ff | | Load 0x2,-0x1 0694 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 0695 00d9 | | Load_Top At_Offset_1 0696 016d | m | Execute Variant_Record,Structure_Write 0697 00d9 | | Load_Top At_Offset_1 0698 e5fd | | Load 0x2,-0x3 0699 e5fc | | Load 0x2,-0x4 069a 823c | < | Call 0x1,0x3c 069b 00d1 | | Pop_Control Pop_Count_1 069c 00d8 | | Load_Top At_Offset_0 069d e5fd | | Load 0x2,-0x3 069e e5fc | | Load 0x2,-0x4 069f 823c | < | Call 0x1,0x3c 06a0 00d1 | | Pop_Control Pop_Count_1 06a1 e5fa | | Load 0x2,-0x6 06a2 4801 |H | Short_Literal 0x1 06a3 00da | | Load_Top At_Offset_2 06a4 e003 | | Load 0x0,0x3 06a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06a6 e402 | | Load 0x2,0x2 06a7 e003 | | Load 0x0,0x3 06a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06a9 8016 | | Call 0x0,0x16 06aa 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06ab 0000 0000 | | .BLANK 0000[0x5] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06bf | | .CONST 0x06bf ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0003 | | .CONST 0x0003 ; Number of locals 06b3 INIT_06b0: 06b3 4820 |H | Short_Literal 0x20 06b4 e003 | | Load 0x0,0x3 06b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06b6 1c08 | | Execute_Immediate Run_Utility,0x8 06b7 00d8 | | Load_Top At_Offset_0 06b8 1c00 | | Execute_Immediate Run_Utility,0x0 06b9 4820 |H | Short_Literal 0x20 06ba e003 | | Load 0x0,0x3 06bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06bc 1c08 | | Execute_Immediate Run_Utility,0x8 06bd 00d8 | | Load_Top At_Offset_0 06be 1c00 | | Execute_Immediate Run_Utility,0x0 06bf BODY_06b0: 06bf e5fb | | Load 0x2,-0x5 06c0 6816 |h | Jump_Zero 0x6d7 06c1 0092 0a14 | | Action Push_String_Extended,0xa14 ; ">> Execution DELIE_CONNEXION <<" 06c3 e009 | | Load 0x0,0x9 06c4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 06c5 0092 0a12 | | Action Push_String_Extended,0xa12 ; ">> Parametres: " 06c7 e5ff | | Load 0x2,-0x1 06c8 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 06c9 e003 | | Load 0x0,0x3 06ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06cb 01cc | | Execute Vector,Catenate 06cc 0092 0a13 | | Action Push_String_Extended,0xa13 ; " , " 06ce 01cc | | Execute Vector,Catenate 06cf e009 | | Load 0x0,0x9 06d0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 06d1 e5ff | | Load 0x2,-0x1 06d2 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 06d3 e003 | | Load 0x0,0x3 06d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06d5 e009 | | Load 0x0,0x9 06d6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 06d7 e5ff | | Load 0x2,-0x1 06d8 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 06d9 00da | | Load_Top At_Offset_2 06da 016d | m | Execute Variant_Record,Structure_Write 06db e5ff | | Load 0x2,-0x1 06dc 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 06dd 00d9 | | Load_Top At_Offset_1 06de 016d | m | Execute Variant_Record,Structure_Write 06df 00d9 | | Load_Top At_Offset_1 06e0 e5fd | | Load 0x2,-0x3 06e1 e5fc | | Load 0x2,-0x4 06e2 823c | < | Call 0x1,0x3c 06e3 00d1 | | Pop_Control Pop_Count_1 06e4 00d8 | | Load_Top At_Offset_0 06e5 e5fd | | Load 0x2,-0x3 06e6 e5fc | | Load 0x2,-0x4 06e7 823c | < | Call 0x1,0x3c 06e8 00d1 | | Pop_Control Pop_Count_1 06e9 e5fa | | Load 0x2,-0x6 06ea 4802 |H | Short_Literal 0x2 06eb 00da | | Load_Top At_Offset_2 06ec e003 | | Load 0x0,0x3 06ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ee e402 | | Load 0x2,0x2 06ef e003 | | Load 0x0,0x3 06f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f1 8016 | | Call 0x0,0x16 06f2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06f3 0000 0000 | | .BLANK 0000[0x5] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 0707 | | .CONST 0x0707 ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0003 | | .CONST 0x0003 ; Number of locals 06fb INIT_06f8: 06fb 4820 |H | Short_Literal 0x20 06fc e003 | | Load 0x0,0x3 06fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06fe 1c08 | | Execute_Immediate Run_Utility,0x8 06ff 00d8 | | Load_Top At_Offset_0 0700 1c00 | | Execute_Immediate Run_Utility,0x0 0701 4820 |H | Short_Literal 0x20 0702 e003 | | Load 0x0,0x3 0703 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0704 1c08 | | Execute_Immediate Run_Utility,0x8 0705 00d8 | | Load_Top At_Offset_0 0706 1c00 | | Execute_Immediate Run_Utility,0x0 0707 BODY_06f8: 0707 e5fb | | Load 0x2,-0x5 0708 6816 |h | Jump_Zero 0x71f 0709 0092 0a15 | | Action Push_String_Extended,0xa15 ; ">> Execution LIE_LIEN <<" 070b e009 | | Load 0x0,0x9 070c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 070d 0092 0a12 | | Action Push_String_Extended,0xa12 ; ">> Parametres: " 070f e5ff | | Load 0x2,-0x1 0710 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0711 e003 | | Load 0x0,0x3 0712 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0713 01cc | | Execute Vector,Catenate 0714 0092 0a13 | | Action Push_String_Extended,0xa13 ; " , " 0716 01cc | | Execute Vector,Catenate 0717 e009 | | Load 0x0,0x9 0718 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0719 e5ff | | Load 0x2,-0x1 071a 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 071b e003 | | Load 0x0,0x3 071c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071d e009 | | Load 0x0,0x9 071e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 071f e5ff | | Load 0x2,-0x1 0720 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0721 00da | | Load_Top At_Offset_2 0722 016d | m | Execute Variant_Record,Structure_Write 0723 e5ff | | Load 0x2,-0x1 0724 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 0725 00d9 | | Load_Top At_Offset_1 0726 016d | m | Execute Variant_Record,Structure_Write 0727 00d9 | | Load_Top At_Offset_1 0728 e5fd | | Load 0x2,-0x3 0729 e5fc | | Load 0x2,-0x4 072a 823c | < | Call 0x1,0x3c 072b 00d1 | | Pop_Control Pop_Count_1 072c 00d8 | | Load_Top At_Offset_0 072d e5fd | | Load 0x2,-0x3 072e e5fc | | Load 0x2,-0x4 072f 823c | < | Call 0x1,0x3c 0730 00d1 | | Pop_Control Pop_Count_1 0731 e5fa | | Load 0x2,-0x6 0732 4801 |H | Short_Literal 0x1 0733 00da | | Load_Top At_Offset_2 0734 e003 | | Load 0x0,0x3 0735 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0736 e402 | | Load 0x2,0x2 0737 e003 | | Load 0x0,0x3 0738 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0739 8017 | | Call 0x0,0x17 073a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 073b 0000 0000 | | .BLANK 0000[0x5] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 074f | O | .CONST 0x074f ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0003 | | .CONST 0x0003 ; Number of locals 0743 INIT_0740: 0743 4820 |H | Short_Literal 0x20 0744 e003 | | Load 0x0,0x3 0745 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0746 1c08 | | Execute_Immediate Run_Utility,0x8 0747 00d8 | | Load_Top At_Offset_0 0748 1c00 | | Execute_Immediate Run_Utility,0x0 0749 4820 |H | Short_Literal 0x20 074a e003 | | Load 0x0,0x3 074b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 074c 1c08 | | Execute_Immediate Run_Utility,0x8 074d 00d8 | | Load_Top At_Offset_0 074e 1c00 | | Execute_Immediate Run_Utility,0x0 074f BODY_0740: 074f e5fb | | Load 0x2,-0x5 0750 6816 |h | Jump_Zero 0x767 0751 0092 0a16 | | Action Push_String_Extended,0xa16 ; ">> Execution DELIE_LIEN <<" 0753 e009 | | Load 0x0,0x9 0754 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0755 0092 0a12 | | Action Push_String_Extended,0xa12 ; ">> Parametres: " 0757 e5ff | | Load 0x2,-0x1 0758 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0759 e003 | | Load 0x0,0x3 075a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 075b 01cc | | Execute Vector,Catenate 075c 0092 0a13 | | Action Push_String_Extended,0xa13 ; " , " 075e 01cc | | Execute Vector,Catenate 075f e009 | | Load 0x0,0x9 0760 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0761 e5ff | | Load 0x2,-0x1 0762 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 0763 e003 | | Load 0x0,0x3 0764 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0765 e009 | | Load 0x0,0x9 0766 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0767 e5ff | | Load 0x2,-0x1 0768 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0769 00da | | Load_Top At_Offset_2 076a 016d | m | Execute Variant_Record,Structure_Write 076b e5ff | | Load 0x2,-0x1 076c 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 076d 00d9 | | Load_Top At_Offset_1 076e 016d | m | Execute Variant_Record,Structure_Write 076f 00d9 | | Load_Top At_Offset_1 0770 e5fd | | Load 0x2,-0x3 0771 e5fc | | Load 0x2,-0x4 0772 823c | < | Call 0x1,0x3c 0773 00d1 | | Pop_Control Pop_Count_1 0774 00d8 | | Load_Top At_Offset_0 0775 e5fd | | Load 0x2,-0x3 0776 e5fc | | Load 0x2,-0x4 0777 823c | < | Call 0x1,0x3c 0778 00d1 | | Pop_Control Pop_Count_1 0779 e5fa | | Load 0x2,-0x6 077a 4802 |H | Short_Literal 0x2 077b 00da | | Load_Top At_Offset_2 077c e003 | | Load 0x0,0x3 077d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 077e e402 | | Load 0x2,0x2 077f e003 | | Load 0x0,0x3 0780 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0781 8017 | | Call 0x0,0x17 0782 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0783 0000 0000 | | .BLANK 0000[0x5] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 0791 | | .CONST 0x0791 ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0002 | | .CONST 0x0002 ; Number of locals 078b INIT_0788: 078b 4820 |H | Short_Literal 0x20 078c e003 | | Load 0x0,0x3 078d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 078e 1c08 | | Execute_Immediate Run_Utility,0x8 078f 00d8 | | Load_Top At_Offset_0 0790 1c00 | | Execute_Immediate Run_Utility,0x0 0791 BODY_0788: 0791 e5fb | | Load 0x2,-0x5 0792 6816 |h | Jump_Zero 0x7a9 0793 0092 0a17 | | Action Push_String_Extended,0xa17 ; ">> Execution LISTE_LIEN <<" 0795 e009 | | Load 0x0,0x9 0796 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0797 0092 0a12 | | Action Push_String_Extended,0xa12 ; ">> Parametres: " 0799 e5ff | | Load 0x2,-0x1 079a 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 079b e003 | | Load 0x0,0x3 079c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 079d 01cc | | Execute Vector,Catenate 079e 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 07a0 01cc | | Execute Vector,Catenate 07a1 e5ff | | Load 0x2,-0x1 07a2 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 07a3 e004 | | Load 0x0,0x4 07a4 011c | | Execute Any,Convert_Unchecked 07a5 1c01 | | Execute_Immediate Run_Utility,0x1 07a6 01cc | | Execute Vector,Catenate 07a7 e009 | | Load 0x0,0x9 07a8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 07a9 00db | | Load_Top At_Offset_3 07aa 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 07ab 00d9 | | Load_Top At_Offset_1 07ac 016d | m | Execute Variant_Record,Structure_Write 07ad 00d8 | | Load_Top At_Offset_0 07ae e5fd | | Load 0x2,-0x3 07af e5fc | | Load 0x2,-0x4 07b0 823c | < | Call 0x1,0x3c 07b1 00d1 | | Pop_Control Pop_Count_1 07b2 00db | | Load_Top At_Offset_3 07b3 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 07b4 0f2d | - | Execute_Immediate Equal,0x2d 07b5 6807 |h | Jump_Zero 0x7bd 07b6 e5fa | | Load 0x2,-0x6 07b7 4801 |H | Short_Literal 0x1 07b8 00da | | Load_Top At_Offset_2 07b9 e003 | | Load 0x0,0x3 07ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07bb 8018 | | Call 0x0,0x18 07bc 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07bd e5fa | | Load 0x2,-0x6 07be 4802 |H | Short_Literal 0x2 07bf 00da | | Load_Top At_Offset_2 07c0 e003 | | Load 0x0,0x3 07c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07c2 8018 | | Call 0x0,0x18 07c3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07c4 0000 0000 | | .BLANK 0000[0x4] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07dd | | .CONST 0x07dd ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0004 | | .CONST 0x0004 ; Number of locals 07cb INIT_07c8: 07cb 4820 |H | Short_Literal 0x20 07cc e003 | | Load 0x0,0x3 07cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07ce 1c08 | | Execute_Immediate Run_Utility,0x8 07cf 00d8 | | Load_Top At_Offset_0 07d0 1c00 | | Execute_Immediate Run_Utility,0x0 07d1 4820 |H | Short_Literal 0x20 07d2 e003 | | Load 0x0,0x3 07d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07d4 1c08 | | Execute_Immediate Run_Utility,0x8 07d5 00d8 | | Load_Top At_Offset_0 07d6 1c00 | | Execute_Immediate Run_Utility,0x0 07d7 4820 |H | Short_Literal 0x20 07d8 e003 | | Load 0x0,0x3 07d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07da 1c08 | | Execute_Immediate Run_Utility,0x8 07db 00d8 | | Load_Top At_Offset_0 07dc 1c00 | | Execute_Immediate Run_Utility,0x0 07dd BODY_07c8: 07dd e5fb | | Load 0x2,-0x5 07de 681d |h | Jump_Zero 0x7fc 07df 0092 0a18 | | Action Push_String_Extended,0xa18 ; ">> Execution ECHANGER_LIEN <<" 07e1 e009 | | Load 0x0,0x9 07e2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 07e3 0092 0a12 | | Action Push_String_Extended,0xa12 ; ">> Parametres: " 07e5 e5ff | | Load 0x2,-0x1 07e6 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 07e7 e003 | | Load 0x0,0x3 07e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07e9 01cc | | Execute Vector,Catenate 07ea 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 07ec 01cc | | Execute Vector,Catenate 07ed e5ff | | Load 0x2,-0x1 07ee 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 07ef e003 | | Load 0x0,0x3 07f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07f1 01cc | | Execute Vector,Catenate 07f2 0092 09fa | | Action Push_String_Extended,0x9fa ; ", " 07f4 01cc | | Execute Vector,Catenate 07f5 e5ff | | Load 0x2,-0x1 07f6 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 07f7 e003 | | Load 0x0,0x3 07f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07f9 01cc | | Execute Vector,Catenate 07fa e009 | | Load 0x0,0x9 07fb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 07fc e5ff | | Load 0x2,-0x1 07fd 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 07fe 00db | | Load_Top At_Offset_3 07ff 016d | m | Execute Variant_Record,Structure_Write 0800 e5ff | | Load 0x2,-0x1 0801 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 0802 00da | | Load_Top At_Offset_2 0803 016d | m | Execute Variant_Record,Structure_Write 0804 e5ff | | Load 0x2,-0x1 0805 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 0806 00d9 | | Load_Top At_Offset_1 0807 016d | m | Execute Variant_Record,Structure_Write 0808 00da | | Load_Top At_Offset_2 0809 e5fd | | Load 0x2,-0x3 080a e5fc | | Load 0x2,-0x4 080b 823c | < | Call 0x1,0x3c 080c 00d1 | | Pop_Control Pop_Count_1 080d 00d9 | | Load_Top At_Offset_1 080e e5fd | | Load 0x2,-0x3 080f e5fc | | Load 0x2,-0x4 0810 823c | < | Call 0x1,0x3c 0811 00d1 | | Pop_Control Pop_Count_1 0812 00d8 | | Load_Top At_Offset_0 0813 e5fd | | Load 0x2,-0x3 0814 e5fc | | Load 0x2,-0x4 0815 823c | < | Call 0x1,0x3c 0816 00d1 | | Pop_Control Pop_Count_1 0817 e5fa | | Load 0x2,-0x6 0818 00d9 | | Load_Top At_Offset_1 0819 e003 | | Load 0x0,0x3 081a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 081b 00db | | Load_Top At_Offset_3 081c e003 | | Load 0x0,0x3 081d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 081e e402 | | Load 0x2,0x2 081f e003 | | Load 0x0,0x3 0820 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0821 8019 | | Call 0x0,0x19 0822 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0823 0000 0000 | | .BLANK 0000[0x5] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b e5fb | | Load 0x2,-0x5 082c 6804 |h | Jump_Zero 0x831 082d 0092 0a19 | | Action Push_String_Extended,0xa19 ; ">> Execution AFFICHER <<" 082f e009 | | Load 0x0,0x9 0830 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0831 e5fc | | Load 0x2,-0x4 0832 e5fe | | Load 0x2,-0x2 0833 e5fd | | Load 0x2,-0x3 0834 e5ff | | Load 0x2,-0x1 0835 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12 0836 801a | | Call 0x0,0x1a 0837 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b 00db | | Load_Top At_Offset_3 083c 6804 |h | Jump_Zero 0x841 083d 0092 0a1a | | Action Push_String_Extended,0xa1a ; ">> Execution FIN <<" 083f e009 | | Load 0x0,0x9 0840 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0841 4801 |H | Short_Literal 0x1 0842 a5fd | | Store_Unchecked 0x2,-0x3 0843 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0844 0000 0000 | | .BLANK 0000[0x4] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084b | K | .CONST 0x084b ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0001 | | .CONST 0x0001 ; Number of locals 084b BODY_0848: 084b INIT_0848: 084b 00db | | Load_Top At_Offset_3 084c 6804 |h | Jump_Zero 0x851 084d 0092 0a1b | | Action Push_String_Extended,0xa1b ; ">> Execution VIDE <<" 084f e009 | | Load 0x0,0x9 0850 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0851 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0852 0000 0000 | | .BLANK 0000[0x6] 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 085b | [ | .CONST 0x085b ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0001 | | .CONST 0x0001 ; Number of locals 085b BODY_0858: 085b INIT_0858: 085b e5fd | | Load 0x2,-0x3 085c e003 | | Load 0x0,0x3 085d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 085e e5fe | | Load 0x2,-0x2 085f 801b | | Call 0x0,0x1b 0860 00db | | Load_Top At_Offset_3 0861 e5fd | | Load 0x2,-0x3 0862 e003 | | Load 0x0,0x3 0863 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0864 801c | | Call 0x0,0x1c 0865 0f00 | | Execute_Immediate Equal,0x0 0866 0278 | x | Execute Discrete,Or 0867 6829 |h) | Jump_Zero 0x891 0868 e5fd | | Load 0x2,-0x3 0869 e003 | | Load 0x0,0x3 086a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 086b 0092 0a1c | | Action Push_String_Extended,0xa1c ; "COMP" 086d 01df | | Execute Vector,Equal 086e 6806 |h | Jump_Zero 0x875 086f e5fd | | Load 0x2,-0x3 0870 00db | | Load_Top At_Offset_3 0871 801d | | Call 0x0,0x1d 0872 e003 | | Load 0x0,0x3 0873 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0874 00d1 | | Pop_Control Pop_Count_1 0875 e5fd | | Load 0x2,-0x3 0876 e003 | | Load 0x0,0x3 0877 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0878 e5fe | | Load 0x2,-0x2 0879 801b | | Call 0x0,0x1b 087a 00db | | Load_Top At_Offset_3 087b e5fd | | Load 0x2,-0x3 087c e003 | | Load 0x0,0x3 087d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 087e 801c | | Call 0x0,0x1c 087f 0f00 | | Execute_Immediate Equal,0x0 0880 0278 | x | Execute Discrete,Or 0881 680f |h | Jump_Zero 0x891 0882 e5fd | | Load 0x2,-0x3 0883 e003 | | Load 0x0,0x3 0884 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0885 e5fe | | Load 0x2,-0x2 0886 800e | | Call 0x0,0xe 0887 6809 |h | Jump_Zero 0x891 0888 e5fd | | Load 0x2,-0x3 0889 00d8 | | Load_Top At_Offset_0 088a e003 | | Load 0x0,0x3 088b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 088c e5fe | | Load 0x2,-0x2 088d 801e | | Call 0x0,0x1e 088e e003 | | Load 0x0,0x3 088f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0890 00d1 | | Pop_Control Pop_Count_1 0891 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0892 0000 0000 | | .BLANK 0000[0x6] 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 089b | | .CONST 0x089b ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b 00da | | Load_Top At_Offset_2 089c 0227 | ' | Execute Access,All_Reference 089d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 089e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 089f 460b |F | Jump_Case 0xc 08a0 7812 |x | Jump 0x8b3 ; case 0x0 08a1 7833 |x3 | Jump 0x8d5 ; case 0x1 08a2 7854 |xT | Jump 0x8f7 ; case 0x2 08a3 7808 |x | Jump 0x8ac ; case 0x3 08a4 7807 |x | Jump 0x8ac ; case 0x4 08a5 7806 |x | Jump 0x8ac ; case 0x5 08a6 7805 |x | Jump 0x8ac ; case 0x6 08a7 7804 |x | Jump 0x8ac ; case 0x7 08a8 7803 |x | Jump 0x8ac ; case 0x8 08a9 783b |x; | Jump 0x8e5 ; case 0x9 08aa 7801 |x | Jump 0x8ac ; case 0xa 08ab 7800 |x | Jump 0x8ac ; case 0xb 08ac 00da | | Load_Top At_Offset_2 08ad e222 | " | Load 0x1,0x22 08ae e223 | # | Load 0x1,0x23 08af 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08b0 8006 | | Call 0x0,0x6 08b1 003b | ; | Store_Top Access,At_Offset_3 08b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08b3 00da | | Load_Top At_Offset_2 08b4 0229 | ) | Execute Access,All_Read 08b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08b6 00d8 | | Load_Top At_Offset_0 08b7 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 08b8 801f | | Call 0x0,0x1f 08b9 00d9 | | Load_Top At_Offset_1 08ba 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 08bb 00d1 | | Pop_Control Pop_Count_1 08bc 00da | | Load_Top At_Offset_2 08bd 0229 | ) | Execute Access,All_Read 08be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08bf 00d8 | | Load_Top At_Offset_0 08c0 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 08c1 820f | | Call 0x1,0xf 08c2 00d9 | | Load_Top At_Offset_1 08c3 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 08c4 00d1 | | Pop_Control Pop_Count_1 08c5 00da | | Load_Top At_Offset_2 08c6 0229 | ) | Execute Access,All_Read 08c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08c8 00d8 | | Load_Top At_Offset_0 08c9 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 08ca 820f | | Call 0x1,0xf 08cb 00d9 | | Load_Top At_Offset_1 08cc 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 08cd 00d1 | | Pop_Control Pop_Count_1 08ce 00da | | Load_Top At_Offset_2 08cf e222 | " | Load 0x1,0x22 08d0 e223 | # | Load 0x1,0x23 08d1 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08d2 8006 | | Call 0x0,0x6 08d3 003b | ; | Store_Top Access,At_Offset_3 08d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08d5 00da | | Load_Top At_Offset_2 08d6 0229 | ) | Execute Access,All_Read 08d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08d8 00d8 | | Load_Top At_Offset_0 08d9 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 08da 820f | | Call 0x1,0xf 08db 00d9 | | Load_Top At_Offset_1 08dc 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 08dd 00d1 | | Pop_Control Pop_Count_1 08de 00da | | Load_Top At_Offset_2 08df e222 | " | Load 0x1,0x22 08e0 e223 | # | Load 0x1,0x23 08e1 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08e2 8006 | | Call 0x0,0x6 08e3 003b | ; | Store_Top Access,At_Offset_3 08e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08e5 00da | | Load_Top At_Offset_2 08e6 0229 | ) | Execute Access,All_Read 08e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08e8 00d8 | | Load_Top At_Offset_0 08e9 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12 08ea 00d8 | | Load_Top At_Offset_0 08eb 00d8 | | Load_Top At_Offset_0 08ec 8020 | | Call 0x0,0x20 08ed 00d2 | | Pop_Control Pop_Count_2 08ee 00d0 | | Action Swap_Control 08ef 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12 08f0 00da | | Load_Top At_Offset_2 08f1 e222 | " | Load 0x1,0x22 08f2 e223 | # | Load 0x1,0x23 08f3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08f4 8006 | | Call 0x0,0x6 08f5 003b | ; | Store_Top Access,At_Offset_3 08f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08f7 00da | | Load_Top At_Offset_2 08f8 0229 | ) | Execute Access,All_Read 08f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08fa 00d8 | | Load_Top At_Offset_0 08fb 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 08fc 801f | | Call 0x0,0x1f 08fd 00d9 | | Load_Top At_Offset_1 08fe 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 08ff 00d1 | | Pop_Control Pop_Count_1 0900 00da | | Load_Top At_Offset_2 0901 e222 | " | Load 0x1,0x22 0902 e223 | # | Load 0x1,0x23 0903 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0904 8006 | | Call 0x0,0x6 0905 003b | ; | Store_Top Access,At_Offset_3 0906 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0907 0000 | | .XXX[0x1] 0908 ; -------------------------------------------------------------------------------------- 0908 ; SUBPROGRAM 0908 ; -------------------------------------------------------------------------------------- 0908 090b | | .CONST 0x090b ; Address of begin 0909 0004 | | .CONST 0x0004 ; Address of exception handler 090a 0001 | | .CONST 0x0001 ; Number of locals 090b BODY_0908: 090b INIT_0908: 090b 4609 |F | Jump_Case 0xa 090c 7809 |x | Jump 0x916 ; case 0x0 090d 7854 |xT | Jump 0x962 ; case 0x1 090e 7872 |xr | Jump 0x981 ; case 0x2 090f 7875 |xu | Jump 0x985 ; case 0x3 0910 78c6 |x | Jump 0x9d7 ; case 0x4 0911 78c5 |x | Jump 0x9d7 ; case 0x5 0912 7878 |xx | Jump 0x98b ; case 0x6 0913 7895 |x | Jump 0x9a9 ; case 0x7 0914 78b7 |x | Jump 0x9cc ; case 0x8 0915 78bd |x | Jump 0x9d3 ; case 0x9 0916 00da | | Load_Top At_Offset_2 0917 016c | l | Execute Variant_Record,Is_Constrained 0918 7009 |p | Jump_Nonzero 0x922 0919 00cf | | Action Mark_Auxiliary 091a 480b |H | Short_Literal 0xb 091b e5ff | | Load 0x2,-0x1 091c 1c08 | | Execute_Immediate Run_Utility,0x8 091d 00d8 | | Load_Top At_Offset_0 091e 1c00 | | Execute_Immediate Run_Utility,0x0 091f c5ff | | Store 0x2,-0x1 0920 00ce | | Action Pop_Auxiliary 0921 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0922 00da | | Load_Top At_Offset_2 0923 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0924 00db | | Load_Top At_Offset_3 0925 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0926 00da | | Load_Top At_Offset_2 0927 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0928 460b |F | Jump_Case 0xc 0929 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 092a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 092b 780a |x | Jump 0x936 ; case 0x2 092c 7814 |x | Jump 0x941 ; case 0x3 092d 7813 |x | Jump 0x941 ; case 0x4 092e 7812 |x | Jump 0x941 ; case 0x5 092f 7811 |x | Jump 0x941 ; case 0x6 0930 781b |x | Jump 0x94c ; case 0x7 0931 7820 |x | Jump 0x952 ; case 0x8 0932 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 0933 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa 0934 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb 0935 4302 |C | .XXX[0x1] 0936 00da | | Load_Top At_Offset_2 0937 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8 0938 00da | | Load_Top At_Offset_2 0939 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 093a 1c00 | | Execute_Immediate Run_Utility,0x0 093b 00da | | Load_Top At_Offset_2 093c 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9 093d 00da | | Load_Top At_Offset_2 093e 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 093f 1c00 | | Execute_Immediate Run_Utility,0x0 0940 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0941 00da | | Load_Top At_Offset_2 0942 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb 0943 00da | | Load_Top At_Offset_2 0944 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0945 1c00 | | Execute_Immediate Run_Utility,0x0 0946 00da | | Load_Top At_Offset_2 0947 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc 0948 00da | | Load_Top At_Offset_2 0949 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 094a 1c00 | | Execute_Immediate Run_Utility,0x0 094b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 094c 00da | | Load_Top At_Offset_2 094d 220d |" | Execute Variant_Record,Field_Constrain,Field_Number 0xd 094e 00da | | Load_Top At_Offset_2 094f 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 0950 1c00 | | Execute_Immediate Run_Utility,0x0 0951 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0952 00da | | Load_Top At_Offset_2 0953 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf 0954 00da | | Load_Top At_Offset_2 0955 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 0956 1c00 | | Execute_Immediate Run_Utility,0x0 0957 00da | | Load_Top At_Offset_2 0958 2210 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x10 0959 00da | | Load_Top At_Offset_2 095a 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 095b 1c00 | | Execute_Immediate Run_Utility,0x0 095c 00da | | Load_Top At_Offset_2 095d 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11 095e 00da | | Load_Top At_Offset_2 095f 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 0960 1c00 | | Execute_Immediate Run_Utility,0x0 0961 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0962 00da | | Load_Top At_Offset_2 0963 016b | k | Execute Variant_Record,Read_Variant 0964 00d8 | | Load_Top At_Offset_0 0965 0f03 | | Execute_Immediate Equal,0x3 0966 6804 |h | Jump_Zero 0x96b 0967 00db | | Load_Top At_Offset_3 0968 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8 0969 00db | | Load_Top At_Offset_3 096a 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9 096b 00d8 | | Load_Top At_Offset_0 096c 0f04 | | Execute_Immediate Equal,0x4 096d 6804 |h | Jump_Zero 0x972 096e 00db | | Load_Top At_Offset_3 096f 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb 0970 00db | | Load_Top At_Offset_3 0971 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc 0972 00d8 | | Load_Top At_Offset_0 0973 0f05 | | Execute_Immediate Equal,0x5 0974 6802 |h | Jump_Zero 0x977 0975 00db | | Load_Top At_Offset_3 0976 220d |" | Execute Variant_Record,Field_Constrain,Field_Number 0xd 0977 00d8 | | Load_Top At_Offset_0 0978 0f06 | | Execute_Immediate Equal,0x6 0979 6806 |h | Jump_Zero 0x980 097a 00db | | Load_Top At_Offset_3 097b 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf 097c 00db | | Load_Top At_Offset_3 097d 2210 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x10 097e 00db | | Load_Top At_Offset_3 097f 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11 0980 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0981 4801 |H | Short_Literal 0x1 0982 4812 |H | Short_Literal 0x12 0983 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0984 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0985 e5fd | | Load 0x2,-0x3 0986 00db | | Load_Top At_Offset_3 0987 1c07 | | Execute_Immediate Run_Utility,0x7 0988 e5fe | | Load 0x2,-0x2 0989 0306 | | Complete_Type Variant_Record,By_Renaming 098a 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 098b 00db | | Load_Top At_Offset_3 098c 460b |F | Jump_Case 0xc 098d 780d |x | Jump 0x99b ; case 0x0 098e 780e |x | Jump 0x99d ; case 0x1 098f 780f |x | Jump 0x99f ; case 0x2 0990 7810 |x | Jump 0x9a1 ; case 0x3 0991 780f |x | Jump 0x9a1 ; case 0x4 0992 780e |x | Jump 0x9a1 ; case 0x5 0993 780d |x | Jump 0x9a1 ; case 0x6 0994 780e |x | Jump 0x9a3 ; case 0x7 0995 780f |x | Jump 0x9a5 ; case 0x8 0996 7810 |x | Jump 0x9a7 ; case 0x9 0997 7801 |x | Jump 0x999 ; case 0xa 0998 7800 |x | Jump 0x999 ; case 0xb 0999 48ff |H | Short_Literal 0xff 099a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 099b 4801 |H | Short_Literal 0x1 099c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 099d 4802 |H | Short_Literal 0x2 099e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 099f 4803 |H | Short_Literal 0x3 09a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a1 4804 |H | Short_Literal 0x4 09a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a3 4805 |H | Short_Literal 0x5 09a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a5 4806 |H | Short_Literal 0x6 09a6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a7 4807 |H | Short_Literal 0x7 09a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a9 00db | | Load_Top At_Offset_3 09aa e5fe | | Load 0x2,-0x2 09ab 460b |F | Jump_Case 0xc 09ac 780d |x | Jump 0x9ba ; case 0x0 09ad 780e |x | Jump 0x9bc ; case 0x1 09ae 780f |x | Jump 0x9be ; case 0x2 09af 7810 |x | Jump 0x9c0 ; case 0x3 09b0 780f |x | Jump 0x9c0 ; case 0x4 09b1 780e |x | Jump 0x9c0 ; case 0x5 09b2 780d |x | Jump 0x9c0 ; case 0x6 09b3 780e |x | Jump 0x9c2 ; case 0x7 09b4 780f |x | Jump 0x9c4 ; case 0x8 09b5 7810 |x | Jump 0x9c6 ; case 0x9 09b6 7811 |x | Jump 0x9c8 ; case 0xa 09b7 7800 |x | Jump 0x9b8 ; case 0xb 09b8 48ff |H | Short_Literal 0xff 09b9 780f |x | Jump 0x9c9 09ba 4801 |H | Short_Literal 0x1 09bb 780d |x | Jump 0x9c9 09bc 4802 |H | Short_Literal 0x2 09bd 780b |x | Jump 0x9c9 09be 4803 |H | Short_Literal 0x3 09bf 7809 |x | Jump 0x9c9 09c0 4804 |H | Short_Literal 0x4 09c1 7807 |x | Jump 0x9c9 09c2 4805 |H | Short_Literal 0x5 09c3 7805 |x | Jump 0x9c9 09c4 4806 |H | Short_Literal 0x6 09c5 7803 |x | Jump 0x9c9 09c6 4807 |H | Short_Literal 0x7 09c7 7801 |x | Jump 0x9c9 09c8 48ff |H | Short_Literal 0xff 09c9 e5ff | | Load 0x2,-0x1 09ca 031b | | Declare_Type Variant_Record,Constrained 09cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09cc 00db | | Load_Top At_Offset_3 09cd e5fe | | Load 0x2,-0x2 09ce e5ff | | Load 0x2,-0x1 09cf 1c06 | | Execute_Immediate Run_Utility,0x6 09d0 e5ff | | Load 0x2,-0x1 09d1 02fc | | Declare_Variable Variant_Record,With_Constraint 09d2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09d3 480b |H | Short_Literal 0xb 09d4 00db | | Load_Top At_Offset_3 09d5 1c07 | | Execute_Immediate Run_Utility,0x7 09d6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 09d7 0869 | i | Execute_Immediate Raise,0x69 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09db | | .CONST 0x09db ; Address of begin 09d9 0004 | | .CONST 0x0004 ; Address of exception handler 09da 0001 | | .CONST 0x0001 ; Number of locals 09db BODY_09d8: 09db INIT_09d8: 09db 4601 |F | Jump_Case 0x2 09dc 7801 |x | Jump 0x9de ; case 0x0 09dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 09de 00da | | Load_Top At_Offset_2 09df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 09e0 1c00 | | Execute_Immediate Run_Utility,0x0 09e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 09e2 ; -------------------------------------------------------------------------------------- 09e2 ; STRING TABLE 09e2 ; -------------------------------------------------------------------------------------- 09e2 0078 | x | .STRTAB 0x0078->0x0a1e ; "SI_ALORS_SINON" 09e3 0084 | | .STRTAB 0x0084->0x0a25 ; "POUR_FAIRE" 09e4 008c | | .STRTAB 0x008c->0x0a2a ; "AFFECTATION" 09e5 0095 | | .STRTAB 0x0095->0x0a2f ; "LIE_CONNEXION" 09e6 00a0 | | .STRTAB 0x00a0->0x0a36 ; "DELIE_CONNEXION" 09e7 00ad | | .STRTAB 0x00ad->0x0a3d ; "LIE_LIEN" 09e8 00b3 | | .STRTAB 0x00b3->0x0a41 ; "DELIE_LIEN" 09e9 00bb | | .STRTAB 0x00bb->0x0a46 ; "LISTE_LIEN" 09ea 00c3 | | .STRTAB 0x00c3->0x0a4b ; "ECHANGER_LIEN" 09eb 00ce | | .STRTAB 0x00ce->0x0a52 ; "AFFICHER" 09ec 00d4 | | .STRTAB 0x00d4->0x0a56 ; "FIN" 09ed 00d5 | | .STRTAB 0x00d5->0x0a57 ; "VIDE" 09ee 00d7 | | .STRTAB 0x00d7->0x0a59 ; " " 09ef 00d6 | | .STRTAB 0x00d6->0x0a5a ; "-- Vide" 09f0 00db | | .STRTAB 0x00db->0x0a5d ; "SI" 09f1 00db | | .STRTAB 0x00db->0x0a5e ; "ALORS" 09f2 00de | | .STRTAB 0x00de->0x0a61 ; "SINON" 09f3 00e1 | | .STRTAB 0x00e1->0x0a63 ; "FIN_SI" 09f4 00e5 | | .STRTAB 0x00e5->0x0a66 ; "POUR " 09f5 00e8 | | .STRTAB 0x00e8->0x0a69 ; " ENTREE FAIRE " 09f6 00f4 | | .STRTAB 0x00f4->0x0a70 ; "FIN_POUR" 09f7 00fa | | .STRTAB 0x00fa->0x0a74 ; "." 09f8 00f9 | | .STRTAB 0x00f9->0x0a74 ; " = " 09f9 00fa | | .STRTAB 0x00fa->0x0a76 ; "LIE_CONNEXION ( " 09fa 0108 | | .STRTAB 0x0108->0x0a7e ; ", " 09fb 0108 | | .STRTAB 0x0108->0x0a7f ; " )" 09fc 0108 | | .STRTAB 0x0108->0x0a80 ; "DELIE_CONNEXION ( " 09fd 0118 | | .STRTAB 0x0118->0x0a89 ; "LIE_LIEN ( " 09fe 0121 | ! | .STRTAB 0x0121->0x0a8e ; "DELIE_LIEN ( " 09ff 012c | , | .STRTAB 0x012c->0x0a95 ; "LISTE_LIEN ( " 0a00 0137 | 7 | .STRTAB 0x0137->0x0a9b ; "ECHANGER_LIEN ( " 0a01 0145 | E | .STRTAB 0x0145->0x0aa3 ; " -- Afficher -- " 0a02 0153 | S | .STRTAB 0x0153->0x0aab ; ">> Execution SI <<" 0a03 0163 | c | .STRTAB 0x0163->0x0ab4 ; ">> Condition:" 0a04 016e | n | .STRTAB 0x016e->0x0abb ; ">> Execution ALORS <<" 0a05 0181 | | .STRTAB 0x0181->0x0ac5 ; ">> Execution SINON <<" 0a06 0194 | | .STRTAB 0x0194->0x0ad0 ; ">> FIN SI <<" 0a07 019e | | .STRTAB 0x019e->0x0ad6 ; ">> Execution POUR (" 0a08 01af | | .STRTAB 0x01af->0x0adf ; ")" 0a09 01ae | | .STRTAB 0x01ae->0x0ae0 ; ">> FIN POUR <<" 0a0a 01ba | | .STRTAB 0x01ba->0x0ae7 ; ">> Execution AFFECTATION <<" 0a0b 01d3 | | .STRTAB 0x01d3->0x0af4 ; " := " 0a0c 01d5 | | .STRTAB 0x01d5->0x0af6 ; "Manque l'extension pour l'acces a la variable !!!" 0a0d 0204 | | .STRTAB 0x0204->0x0b0f ; "ENTIER" 0a0e 0208 | | .STRTAB 0x0208->0x0b12 ; "ENUMERE" 0a0f 020d | | .STRTAB 0x020d->0x0b15 ; "BOOLEEN" 0a10 0212 | | .STRTAB 0x0212->0x0b19 ; "Affectation non valide !!!" 0a11 022a | * | .STRTAB 0x022a->0x0b26 ; ">> Execution LIE_CONNEXION <<" 0a12 0245 | E | .STRTAB 0x0245->0x0b34 ; ">> Parametres: " 0a13 0252 | R | .STRTAB 0x0252->0x0b3c ; " , " 0a14 0253 | S | .STRTAB 0x0253->0x0b3d ; ">> Execution DELIE_CONNEXION <<" 0a15 0270 | p | .STRTAB 0x0270->0x0b4d ; ">> Execution LIE_LIEN <<" 0a16 0286 | | .STRTAB 0x0286->0x0b59 ; ">> Execution DELIE_LIEN <<" 0a17 029e | | .STRTAB 0x029e->0x0b66 ; ">> Execution LISTE_LIEN <<" 0a18 02b6 | | .STRTAB 0x02b6->0x0b73 ; ">> Execution ECHANGER_LIEN <<" 0a19 02d1 | | .STRTAB 0x02d1->0x0b81 ; ">> Execution AFFICHER <<" 0a1a 02e7 | | .STRTAB 0x02e7->0x0b8d ; ">> Execution FIN <<" 0a1b 02f8 | | .STRTAB 0x02f8->0x0b97 ; ">> Execution VIDE <<" 0a1c 030a | | .STRTAB 0x030a->0x0ba1 ; "COMP" 0a1d 030c | | .STREND 0x030c->0x0ba3 0a1e 5349 5f41 |SI_A| .STRTAB_STRINGS 0ba3 0000 0000 | | .BLANK 0000[0x5] 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 ; Debug Table 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd488,0x0000,0x0001,0x002d 0bae 000b 0c62 | b| .DBG4T 0x000b,0x0c62,0x8000,0x8000 0bb2 0080 0c8e | | .DBG4T 0x0080,0x0c8e,0x8000,0x8000 0bb6 00fb 0cfa | | .DBG4T 0x00fb,0x0cfa,0x0002,0x0000 0bba 0103 0cfd | | .DBG4T 0x0103,0x0cfd,0x0001,0x4000 0bbe 011b 0d0a | | .DBG4T 0x011b,0x0d0a,0x0001,0x0000 0bc2 0133 0d12 | 3 | .DBG4T 0x0133,0x0d12,0x0001,0x4000 0bc6 01db 0d4a | J| .DBG4T 0x01db,0x0d4a,0x0002,0x0000 0bca 01fb 0d55 | U| .DBG4T 0x01fb,0x0d55,0x0002,0x0000 0bce 021b 0d5e | ^| .DBG4T 0x021b,0x0d5e,0x0002,0x0000 0bd2 023b 0d68 | ; h| .DBG4T 0x023b,0x0d68,0x0002,0x0000 0bd6 025b 0d71 | [ q| .DBG4T 0x025b,0x0d71,0x0002,0x0000 0bda 027b 0d7a | { z| .DBG4T 0x027b,0x0d7a,0x0002,0x0000 0bde 029b 0d83 | | .DBG4T 0x029b,0x0d83,0x0002,0x0000 0be2 02bb 0d8c | | .DBG4T 0x02bb,0x0d8c,0x0002,0x0000 0be6 02db 0d96 | | .DBG4T 0x02db,0x0d96,0x0002,0x0000 0bea 02fb 0d9f | | .DBG4T 0x02fb,0x0d9f,0x0002,0x0000 0bee 0313 0da7 | | .DBG4T 0x0313,0x0da7,0x0002,0x0000 0bf2 032b 0dae | + | .DBG4T 0x032b,0x0dae,0x0002,0x0000 0bf6 0343 0db5 | C | .DBG4T 0x0343,0x0db5,0x0001,0x0000 0bfa 034b 0000 | K | .DBG4T 0x034b,0x0000,0x0005,0x0000 0bfe 0373 0db8 | s | .DBG4T 0x0373,0x0db8,0x0002,0x4000 0c02 0393 0dca | | .DBG4T 0x0393,0x0dca,0x0001,0x0000 0c06 03ab 0dcf | | .DBG4T 0x03ab,0x0dcf,0x0002,0x0000 0c0a 03b3 0dd2 | | .DBG4T 0x03b3,0x0dd2,0x0001,0x0000 0c0e 03c3 0dd6 | | .DBG4T 0x03c3,0x0dd6,0x0002,0x0000 0c12 03cb 0dd9 | | .DBG4T 0x03cb,0x0dd9,0x0002,0x0000 0c16 03d3 0ddc | | .DBG4T 0x03d3,0x0ddc,0x0002,0x0000 0c1a 03e3 0de1 | | .DBG4T 0x03e3,0x0de1,0x0001,0x0000 0c1e 03f3 0de5 | | .DBG4T 0x03f3,0x0de5,0x0001,0x4000 0c22 0543 0e43 | C C| .DBG4T 0x0543,0x0e43,0x0001,0x0000 0c26 0593 0e54 | T| .DBG4T 0x0593,0x0e54,0x0001,0x0000 0c2a 05c3 0e5c | \| .DBG4T 0x05c3,0x0e5c,0x0001,0x0000 0c2e 066b 0e72 | k r| .DBG4T 0x066b,0x0e72,0x0001,0x0000 0c32 06b3 0e7e | ~| .DBG4T 0x06b3,0x0e7e,0x0001,0x0000 0c36 06fb 0e8a | | .DBG4T 0x06fb,0x0e8a,0x0001,0x0000 0c3a 0743 0e96 | C | .DBG4T 0x0743,0x0e96,0x0001,0x0000 0c3e 078b 0ea2 | | .DBG4T 0x078b,0x0ea2,0x0001,0x0000 0c42 07cb 0ead | | .DBG4T 0x07cb,0x0ead,0x0001,0x0000 0c46 082b 0eba | + | .DBG4T 0x082b,0x0eba,0x0001,0x0000 0c4a 083b 0ebf | ; | .DBG4T 0x083b,0x0ebf,0x0001,0x0000 0c4e 084b 0ec4 | K | .DBG4T 0x084b,0x0ec4,0x0001,0x0000 0c52 085b 0ec8 | [ | .DBG4T 0x085b,0x0ec8,0x0001,0x0000 0c56 089b 0ed0 | | .DBG4T 0x089b,0x0ed0,0x0001,0x4000 0c5a 090b 0000 | | .DBG4T 0x090b,0x0000,0x0005,0x0000 0c5e 09db 0000 | | .DBG4T 0x09db,0x0000,0x0005,0x0000 0c62 ; -------------------------------------------------------------------------------------- 0c62 ; Debug chain 0c62 ; -------------------------------------------------------------------------------------- 0c62 0015 0000 | | .DBGLEN 0x0015,0x0000 0c64 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0034,0x0075 0c79 0001 0002 | | .XXX[0x15] 0c7b 0003 0004 | | 0c7d 0005 0006 | | 0c7f 0007 0008 | | 0c81 0009 000a | | 0c83 000b 000c | | 0c85 000d 000e | | 0c87 000f 0010 | | 0c89 0011 0012 | | 0c8b 0013 0014 | | 0c8d 0017 | | 0c8e ; -------------------------------------------------------------------------------------- 0c8e ; Debug chain 0c8e ; -------------------------------------------------------------------------------------- 0c8e 0035 0000 | 5 | .DBGLEN 0x0035,0x0000 0c90 0080 0088 | | .DBGLNO 0x0080,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc,0x00ce,0x00d0,0x00d2,0x00d4,0x00d6,0x00d8,0x00da,0x00dc,0x00de,0x00e0,0x00e2,0x00e4,0x00e6,0x00e8,0x00ea,0x00ec,0x00ee 0cc5 0001 0003 | | .XXX[0x35] 0cc7 0004 0005 | | 0cc9 0006 0007 | | 0ccb 0008 0009 | | 0ccd 000a 000b | | 0ccf 000c 000d | | 0cd1 000e 000f | | 0cd3 0010 0011 | | 0cd5 0012 0013 | | 0cd7 0014 0015 | | 0cd9 0016 0017 | | 0cdb 0018 0019 | | 0cdd 001a 001b | | 0cdf 001c 001d | | 0ce1 001e 001f | | 0ce3 0020 0021 | !| 0ce5 0022 0023 | " #| 0ce7 0024 0025 | $ %| 0ce9 0026 0027 | & '| 0ceb 0028 0029 | ( )| 0ced 002a 002b | * +| 0cef 002c 002d | , -| 0cf1 002e 002f | . /| 0cf3 0030 0031 | 0 1| 0cf5 0032 0033 | 2 3| 0cf7 0034 0035 | 4 5| 0cf9 0036 | 6 | 0cfa ; -------------------------------------------------------------------------------------- 0cfa ; Debug chain 0cfa ; -------------------------------------------------------------------------------------- 0cfa 0000 0001 | | .DBGLEN 0x0000,0x0001 0cfc 00fb | | .DBGLNO 0x00fb 0cfd ; -------------------------------------------------------------------------------------- 0cfd ; Debug chain 0cfd ; -------------------------------------------------------------------------------------- 0cfd 0001 0005 | | .DBGLEN 0x0001,0x0005 0cff 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0109,0x010d,0x0110,0x0113 0d05 0001 0003 | | .XXX[0x5] 0d07 0004 0005 | | 0d09 0002 | | 0d0a ; -------------------------------------------------------------------------------------- 0d0a ; Debug chain 0d0a ; -------------------------------------------------------------------------------------- 0d0a 0001 0005 | | .DBGLEN 0x0001,0x0005 0d0c 011b 011d | | .DBGLNO 0x011b,0x011d,0x011f,0x0121,0x0122,0x0125 0d12 ; -------------------------------------------------------------------------------------- 0d12 ; Debug chain 0d12 ; -------------------------------------------------------------------------------------- 0d12 0002 001a | | .DBGLEN 0x0002,0x001a 0d14 0133 0137 | 3 7| .DBGLNO 0x0133,0x0137,0x0139,0x013e,0x0142,0x0151,0x0155,0x0163,0x0171,0x017a,0x017d,0x0185,0x0188,0x0190,0x0193,0x019b,0x019e,0x01a6,0x01a9,0x01b1,0x01b4,0x01bc,0x01bf,0x01c5,0x01c8,0x01cd,0x01cf,0x01d3 0d30 0001 0003 | | .XXX[0x1a] 0d32 0004 0019 | | 0d34 0005 0006 | | 0d36 0007 0008 | | 0d38 0009 000a | | 0d3a 000b 000c | | 0d3c 000d 000e | | 0d3e 000f 0010 | | 0d40 0011 0012 | | 0d42 0013 0014 | | 0d44 0015 0016 | | 0d46 0017 0018 | | 0d48 001a 0002 | | 0d4a ; -------------------------------------------------------------------------------------- 0d4a ; Debug chain 0d4a ; -------------------------------------------------------------------------------------- 0d4a 0002 0007 | | .DBGLEN 0x0002,0x0007 0d4c 01db 01dd | | .DBGLNO 0x01db,0x01dd,0x01e2,0x01e4,0x01e7,0x01ea,0x01ed,0x01f0,0x01f4 0d55 ; -------------------------------------------------------------------------------------- 0d55 ; Debug chain 0d55 ; -------------------------------------------------------------------------------------- 0d55 0002 0005 | | .DBGLEN 0x0002,0x0005 0d57 01fb 01fd | | .DBGLNO 0x01fb,0x01fd,0x0202,0x0205,0x0208,0x020b,0x020f 0d5e ; -------------------------------------------------------------------------------------- 0d5e ; Debug chain 0d5e ; -------------------------------------------------------------------------------------- 0d5e 0002 0006 | | .DBGLEN 0x0002,0x0006 0d60 021b 021d | | .DBGLNO 0x021b,0x021d,0x0222,0x0225,0x0228,0x022b,0x022e,0x0232 0d68 ; -------------------------------------------------------------------------------------- 0d68 ; Debug chain 0d68 ; -------------------------------------------------------------------------------------- 0d68 0002 0005 | | .DBGLEN 0x0002,0x0005 0d6a 023b 023d | ; =| .DBGLNO 0x023b,0x023d,0x0242,0x0245,0x0248,0x024b,0x024f 0d71 ; -------------------------------------------------------------------------------------- 0d71 ; Debug chain 0d71 ; -------------------------------------------------------------------------------------- 0d71 0002 0005 | | .DBGLEN 0x0002,0x0005 0d73 025b 025d | [ ]| .DBGLNO 0x025b,0x025d,0x0262,0x0265,0x0268,0x026b,0x026f 0d7a ; -------------------------------------------------------------------------------------- 0d7a ; Debug chain 0d7a ; -------------------------------------------------------------------------------------- 0d7a 0002 0005 | | .DBGLEN 0x0002,0x0005 0d7c 027b 027d | { }| .DBGLNO 0x027b,0x027d,0x0282,0x0285,0x0288,0x028b,0x028f 0d83 ; -------------------------------------------------------------------------------------- 0d83 ; Debug chain 0d83 ; -------------------------------------------------------------------------------------- 0d83 0002 0005 | | .DBGLEN 0x0002,0x0005 0d85 029b 029d | | .DBGLNO 0x029b,0x029d,0x02a2,0x02a5,0x02a8,0x02ab,0x02af 0d8c ; -------------------------------------------------------------------------------------- 0d8c ; Debug chain 0d8c ; -------------------------------------------------------------------------------------- 0d8c 0002 0006 | | .DBGLEN 0x0002,0x0006 0d8e 02bb 02bd | | .DBGLNO 0x02bb,0x02bd,0x02c2,0x02c5,0x02c8,0x02cb,0x02ce,0x02d2 0d96 ; -------------------------------------------------------------------------------------- 0d96 ; Debug chain 0d96 ; -------------------------------------------------------------------------------------- 0d96 0002 0005 | | .DBGLEN 0x0002,0x0005 0d98 02db 02dd | | .DBGLNO 0x02db,0x02dd,0x02e2,0x02e5,0x02e8,0x02eb,0x02ef 0d9f ; -------------------------------------------------------------------------------------- 0d9f ; Debug chain 0d9f ; -------------------------------------------------------------------------------------- 0d9f 0002 0004 | | .DBGLEN 0x0002,0x0004 0da1 02fb 02fd | | .DBGLNO 0x02fb,0x02fd,0x0302,0x0305,0x0308,0x030c 0da7 ; -------------------------------------------------------------------------------------- 0da7 ; Debug chain 0da7 ; -------------------------------------------------------------------------------------- 0da7 0002 0003 | | .DBGLEN 0x0002,0x0003 0da9 0313 0315 | | .DBGLNO 0x0313,0x0315,0x031a,0x031d,0x0321 0dae ; -------------------------------------------------------------------------------------- 0dae ; Debug chain 0dae ; -------------------------------------------------------------------------------------- 0dae 0002 0003 | | .DBGLEN 0x0002,0x0003 0db0 032b 032d | + -| .DBGLNO 0x032b,0x032d,0x0332,0x0335,0x0339 0db5 ; -------------------------------------------------------------------------------------- 0db5 ; Debug chain 0db5 ; -------------------------------------------------------------------------------------- 0db5 0000 0001 | | .DBGLEN 0x0000,0x0001 0db7 0343 | C | .DBGLNO 0x0343 0db8 ; -------------------------------------------------------------------------------------- 0db8 ; Debug chain 0db8 ; -------------------------------------------------------------------------------------- 0db8 0002 0007 | | .DBGLEN 0x0002,0x0007 0dba 0373 0375 | s u| .DBGLNO 0x0373,0x0375,0x0377,0x0379,0x037b,0x037f,0x0381,0x0386,0x0389 0dc3 0001 0002 | | .XXX[0x7] 0dc5 0003 0005 | | 0dc7 0006 0004 | | 0dc9 0007 | | 0dca ; -------------------------------------------------------------------------------------- 0dca ; Debug chain 0dca ; -------------------------------------------------------------------------------------- 0dca 0001 0002 | | .DBGLEN 0x0001,0x0002 0dcc 0393 0395 | | .DBGLNO 0x0393,0x0395,0x03a0 0dcf ; -------------------------------------------------------------------------------------- 0dcf ; Debug chain 0dcf ; -------------------------------------------------------------------------------------- 0dcf 0000 0001 | | .DBGLEN 0x0000,0x0001 0dd1 03ab | | .DBGLNO 0x03ab 0dd2 ; -------------------------------------------------------------------------------------- 0dd2 ; Debug chain 0dd2 ; -------------------------------------------------------------------------------------- 0dd2 0000 0002 | | .DBGLEN 0x0000,0x0002 0dd4 03b3 03b5 | | .DBGLNO 0x03b3,0x03b5 0dd6 ; -------------------------------------------------------------------------------------- 0dd6 ; Debug chain 0dd6 ; -------------------------------------------------------------------------------------- 0dd6 0000 0001 | | .DBGLEN 0x0000,0x0001 0dd8 03c3 | | .DBGLNO 0x03c3 0dd9 ; -------------------------------------------------------------------------------------- 0dd9 ; Debug chain 0dd9 ; -------------------------------------------------------------------------------------- 0dd9 0000 0001 | | .DBGLEN 0x0000,0x0001 0ddb 03cb | | .DBGLNO 0x03cb 0ddc ; -------------------------------------------------------------------------------------- 0ddc ; Debug chain 0ddc ; -------------------------------------------------------------------------------------- 0ddc 0001 0002 | | .DBGLEN 0x0001,0x0002 0dde 03d3 03d5 | | .DBGLNO 0x03d3,0x03d5,0x03d7 0de1 ; -------------------------------------------------------------------------------------- 0de1 ; Debug chain 0de1 ; -------------------------------------------------------------------------------------- 0de1 0000 0002 | | .DBGLEN 0x0000,0x0002 0de3 03e4 03e8 | | .DBGLNO 0x03e4,0x03e8 0de5 ; -------------------------------------------------------------------------------------- 0de5 ; Debug chain 0de5 ; -------------------------------------------------------------------------------------- 0de5 0002 002d | -| .DBGLEN 0x0002,0x002d 0de7 03f3 03f5 | | .DBGLNO 0x03f3,0x03f5,0x03f9,0x03fe,0x0402,0x0411,0x0413,0x0418,0x041a,0x041e,0x0428,0x042a,0x042e,0x0438,0x043a,0x043e,0x0448,0x044a,0x044f,0x0451,0x045d,0x0467,0x0469,0x046e,0x0470,0x0476,0x047c,0x0485,0x0489,0x0494,0x0496,0x04ab,0x04ad,0x04c2,0x04c4,0x04d9,0x04db,0x04f0,0x04f2,0x0508,0x050a,0x0527,0x0529,0x052e,0x0530,0x0534,0x0538 0e16 0001 0003 | | .XXX[0x2d] 0e18 0004 002b | +| 0e1a 002c 0005 | , | 0e1c 0006 0007 | | 0e1e 0008 0009 | | 0e20 000a 000b | | 0e22 000c 000d | | 0e24 000e 000f | | 0e26 0010 0011 | | 0e28 0012 0013 | | 0e2a 0014 0015 | | 0e2c 0016 0017 | | 0e2e 0018 0019 | | 0e30 001a 001b | | 0e32 001c 001d | | 0e34 001e 001f | | 0e36 0020 0021 | !| 0e38 0022 0023 | " #| 0e3a 0024 0025 | $ %| 0e3c 0026 0027 | & '| 0e3e 0028 0029 | ( )| 0e40 002a 002d | * -| 0e42 0002 | | 0e43 ; -------------------------------------------------------------------------------------- 0e43 ; Debug chain 0e43 ; -------------------------------------------------------------------------------------- 0e43 0001 000e | | .DBGLEN 0x0001,0x000e 0e45 0543 0544 | C D| .DBGLNO 0x0543,0x0544,0x0546,0x054a,0x054e,0x0551,0x055a,0x055c,0x055e,0x0562,0x0571,0x0573,0x0577,0x0585,0x0587 0e54 ; -------------------------------------------------------------------------------------- 0e54 ; Debug chain 0e54 ; -------------------------------------------------------------------------------------- 0e54 0000 0006 | | .DBGLEN 0x0000,0x0006 0e56 0593 0598 | | .DBGLNO 0x0593,0x0598,0x059a,0x05a6,0x05b4,0x05b6 0e5c ; -------------------------------------------------------------------------------------- 0e5c ; Debug chain 0e5c ; -------------------------------------------------------------------------------------- 0e5c 0002 0012 | | .DBGLEN 0x0002,0x0012 0e5e 05c3 05c4 | | .DBGLNO 0x05c3,0x05c4,0x05c5,0x05c7,0x05cb,0x05d1,0x05d7,0x05e0,0x05e4,0x05e7,0x05ec,0x05f3,0x0603,0x0607,0x0625,0x062e,0x063c,0x064b,0x0654,0x0662 0e72 ; -------------------------------------------------------------------------------------- 0e72 ; Debug chain 0e72 ; -------------------------------------------------------------------------------------- 0e72 0001 0009 | | .DBGLEN 0x0001,0x0009 0e74 066b 0677 | k w| .DBGLNO 0x066b,0x0677,0x0679,0x067d,0x0689,0x068f,0x0693,0x0697,0x069c,0x06a1 0e7e ; -------------------------------------------------------------------------------------- 0e7e ; Debug chain 0e7e ; -------------------------------------------------------------------------------------- 0e7e 0001 0009 | | .DBGLEN 0x0001,0x0009 0e80 06b3 06bf | | .DBGLNO 0x06b3,0x06bf,0x06c1,0x06c5,0x06d1,0x06d7,0x06db,0x06df,0x06e4,0x06e9 0e8a ; -------------------------------------------------------------------------------------- 0e8a ; Debug chain 0e8a ; -------------------------------------------------------------------------------------- 0e8a 0001 0009 | | .DBGLEN 0x0001,0x0009 0e8c 06fb 0707 | | .DBGLNO 0x06fb,0x0707,0x0709,0x070d,0x0719,0x071f,0x0723,0x0727,0x072c,0x0731 0e96 ; -------------------------------------------------------------------------------------- 0e96 ; Debug chain 0e96 ; -------------------------------------------------------------------------------------- 0e96 0001 0009 | | .DBGLEN 0x0001,0x0009 0e98 0743 074f | C O| .DBGLNO 0x0743,0x074f,0x0751,0x0755,0x0761,0x0767,0x076b,0x076f,0x0774,0x0779 0ea2 ; -------------------------------------------------------------------------------------- 0ea2 ; Debug chain 0ea2 ; -------------------------------------------------------------------------------------- 0ea2 0001 0008 | | .DBGLEN 0x0001,0x0008 0ea4 078b 0791 | | .DBGLNO 0x078b,0x0791,0x0793,0x0797,0x07a9,0x07ad,0x07b2,0x07b6,0x07bd 0ead ; -------------------------------------------------------------------------------------- 0ead ; Debug chain 0ead ; -------------------------------------------------------------------------------------- 0ead 0001 000a | | .DBGLEN 0x0001,0x000a 0eaf 07cb 07dd | | .DBGLNO 0x07cb,0x07dd,0x07df,0x07e3,0x07fc,0x0800,0x0804,0x0808,0x080d,0x0812,0x0817 0eba ; -------------------------------------------------------------------------------------- 0eba ; Debug chain 0eba ; -------------------------------------------------------------------------------------- 0eba 0000 0003 | | .DBGLEN 0x0000,0x0003 0ebc 082b 082d | + -| .DBGLNO 0x082b,0x082d,0x0831 0ebf ; -------------------------------------------------------------------------------------- 0ebf ; Debug chain 0ebf ; -------------------------------------------------------------------------------------- 0ebf 0000 0003 | | .DBGLEN 0x0000,0x0003 0ec1 083b 083d | ; =| .DBGLNO 0x083b,0x083d,0x0841 0ec4 ; -------------------------------------------------------------------------------------- 0ec4 ; Debug chain 0ec4 ; -------------------------------------------------------------------------------------- 0ec4 0000 0002 | | .DBGLEN 0x0000,0x0002 0ec6 084b 084d | K M| .DBGLNO 0x084b,0x084d 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 ; Debug chain 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 0000 0006 | | .DBGLEN 0x0000,0x0006 0eca 085b 0868 | [ h| .DBGLNO 0x085b,0x0868,0x086f,0x0875,0x0882,0x0888 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 ; Debug chain 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 0000 000c | | .DBGLEN 0x0000,0x000c 0ed2 089b 08ac | | .DBGLNO 0x089b,0x08ac,0x08b3,0x08bc,0x08c5,0x08ce,0x08d5,0x08de,0x08e5,0x08f0,0x08f7,0x0900 0ede 0001 000c | | .XXX[0xc] 0ee0 0002 0003 | | 0ee2 0004 0005 | | 0ee4 0006 0007 | | 0ee6 0008 0009 | | 0ee8 000a 000b | | 0eea 0000 0000 | | .BLANK 0000[0x116]