|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 8192 (0x2000) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_042c9f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0bb0 | | .CONST 0x0bb0 ; 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 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0017 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0019 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 001b 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 001d 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 001f 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0021 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0023 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0025 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0027 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0029 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 002b 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 002d 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 002f 4800 |H | Short_Literal 0x0 0030 480b |H | Short_Literal 0xb 0031 029f 0353 | S| Declare_Subprogram INIT_0350,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 0913 | | Declare_Subprogram INIT_0910,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 09e3 | | Declare_Subprogram INIT_09e0,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 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 008a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008b 00c7 | | Action Elaborate_Subprogram 008c 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 008e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 008f 00c7 | | Action Elaborate_Subprogram 0090 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call 0092 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 0094 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 0096 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call 0098 029d 03db | | Declare_Subprogram INIT_03d8,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 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call 00b4 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 00b6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00b7 00c7 | | Action Elaborate_Subprogram 00b8 029b 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Unelaborated 00ba 029b 059b | | Declare_Subprogram INIT_0598,For_Outer_Call,Unelaborated 00bc 029b 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Unelaborated 00be 029b 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Unelaborated 00c0 029b 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Unelaborated 00c2 029b 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Unelaborated 00c4 029b 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Unelaborated 00c6 029b 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call,Unelaborated 00c8 029b 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call,Unelaborated 00ca 029b 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call,Unelaborated 00cc 029b 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call,Unelaborated 00ce 029b 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call,Unelaborated 00d0 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00d1 00c7 | | Action Elaborate_Subprogram 00d2 029d 0863 | c| Declare_Subprogram INIT_0860,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 08a3 | | Declare_Subprogram INIT_08a0,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 e5f8 | | Load 0x2,-0x8 01d6 0f00 | | Execute_Immediate Equal,0x0 01d7 0279 | y | Execute Discrete,And 01d8 7765 |we | Jump_Nonzero 0x13e 01d9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ea | | .CONST 0x01ea ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 e20d | | Load 0x1,0xd 01e4 0007 | | Action Break_Optional 01e5 4800 |H | Short_Literal 0x0 01e6 e220 | | Load 0x1,0x20 01e7 1c08 | | Execute_Immediate Run_Utility,0x8 01e8 00d8 | | Load_Top At_Offset_0 01e9 1c00 | | Execute_Immediate Run_Utility,0x0 01ea BODY_01e0: 01ea 820e | | Call 0x1,0xe 01eb 003a | : | Store_Top Access,At_Offset_2 01ec 4800 |H | Short_Literal 0x0 01ed 00d9 | | Load_Top At_Offset_1 01ee 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01ef e5ff | | Load 0x2,-0x1 01f0 00d9 | | Load_Top At_Offset_1 01f1 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 01f2 e5fe | | Load 0x2,-0x2 01f3 00d9 | | Load_Top At_Offset_1 01f4 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 01f5 e5fd | | Load 0x2,-0x3 01f6 00d9 | | Load_Top At_Offset_1 01f7 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 01f8 00d9 | | Load_Top At_Offset_1 01f9 00d9 | | Load_Top At_Offset_1 01fa 8228 | ( | Call 0x1,0x28 01fb 003a | : | Store_Top Access,At_Offset_2 01fc 00d9 | | Load_Top At_Offset_1 01fd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020a | | .CONST 0x020a ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 e20d | | Load 0x1,0xd 0204 0007 | | Action Break_Optional 0205 4801 |H | Short_Literal 0x1 0206 e220 | | Load 0x1,0x20 0207 1c08 | | Execute_Immediate Run_Utility,0x8 0208 00d8 | | Load_Top At_Offset_0 0209 1c00 | | Execute_Immediate Run_Utility,0x0 020a BODY_0200: 020a 4801 |H | Short_Literal 0x1 020b 00d9 | | Load_Top At_Offset_1 020c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 020d e5ff | | Load 0x2,-0x1 020e 00d9 | | Load_Top At_Offset_1 020f 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0210 e5fe | | Load 0x2,-0x2 0211 00d9 | | Load_Top At_Offset_1 0212 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 0213 00d9 | | Load_Top At_Offset_1 0214 00d9 | | Load_Top At_Offset_1 0215 8228 | ( | Call 0x1,0x28 0216 003a | : | Store_Top Access,At_Offset_2 0217 00d9 | | Load_Top At_Offset_1 0218 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022a | * | .CONST 0x022a ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0003 | | .CONST 0x0003 ; Number of locals 0223 INIT_0220: 0223 e20d | | Load 0x1,0xd 0224 0007 | | Action Break_Optional 0225 4802 |H | Short_Literal 0x2 0226 e220 | | Load 0x1,0x20 0227 1c08 | | Execute_Immediate Run_Utility,0x8 0228 00d8 | | Load_Top At_Offset_0 0229 1c00 | | Execute_Immediate Run_Utility,0x0 022a BODY_0220: 022a 4802 |H | Short_Literal 0x2 022b 00d9 | | Load_Top At_Offset_1 022c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 022d e5ff | | Load 0x2,-0x1 022e 00d9 | | Load_Top At_Offset_1 022f 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0230 e5fe | | Load 0x2,-0x2 0231 00d9 | | Load_Top At_Offset_1 0232 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0233 e5fd | | Load 0x2,-0x3 0234 00d9 | | Load_Top At_Offset_1 0235 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 0236 00d9 | | Load_Top At_Offset_1 0237 00d9 | | Load_Top At_Offset_1 0238 8228 | ( | Call 0x1,0x28 0239 003a | : | Store_Top Access,At_Offset_2 023a 00d9 | | Load_Top At_Offset_1 023b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 024a | J | .CONST 0x024a ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0003 | | .CONST 0x0003 ; Number of locals 0243 INIT_0240: 0243 e20d | | Load 0x1,0xd 0244 0007 | | Action Break_Optional 0245 4803 |H | Short_Literal 0x3 0246 e220 | | Load 0x1,0x20 0247 1c08 | | Execute_Immediate Run_Utility,0x8 0248 00d8 | | Load_Top At_Offset_0 0249 1c00 | | Execute_Immediate Run_Utility,0x0 024a BODY_0240: 024a 4803 |H | Short_Literal 0x3 024b 00d9 | | Load_Top At_Offset_1 024c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 024d e5ff | | Load 0x2,-0x1 024e 00d9 | | Load_Top At_Offset_1 024f 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 0250 e5fe | | Load 0x2,-0x2 0251 00d9 | | Load_Top At_Offset_1 0252 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 0253 00d9 | | Load_Top At_Offset_1 0254 00d9 | | Load_Top At_Offset_1 0255 8228 | ( | Call 0x1,0x28 0256 003a | : | Store_Top Access,At_Offset_2 0257 00d9 | | Load_Top At_Offset_1 0258 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 026a | j | .CONST 0x026a ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0003 | | .CONST 0x0003 ; Number of locals 0263 INIT_0260: 0263 e20d | | Load 0x1,0xd 0264 0007 | | Action Break_Optional 0265 4804 |H | Short_Literal 0x4 0266 e220 | | Load 0x1,0x20 0267 1c08 | | Execute_Immediate Run_Utility,0x8 0268 00d8 | | Load_Top At_Offset_0 0269 1c00 | | Execute_Immediate Run_Utility,0x0 026a BODY_0260: 026a 4804 |H | Short_Literal 0x4 026b 00d9 | | Load_Top At_Offset_1 026c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 026d e5ff | | Load 0x2,-0x1 026e 00d9 | | Load_Top At_Offset_1 026f 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 0270 e5fe | | Load 0x2,-0x2 0271 00d9 | | Load_Top At_Offset_1 0272 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 0273 00d9 | | Load_Top At_Offset_1 0274 00d9 | | Load_Top At_Offset_1 0275 8228 | ( | Call 0x1,0x28 0276 003a | : | Store_Top Access,At_Offset_2 0277 00d9 | | Load_Top At_Offset_1 0278 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 028a | | .CONST 0x028a ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 e20d | | Load 0x1,0xd 0284 0007 | | Action Break_Optional 0285 4805 |H | Short_Literal 0x5 0286 e220 | | Load 0x1,0x20 0287 1c08 | | Execute_Immediate Run_Utility,0x8 0288 00d8 | | Load_Top At_Offset_0 0289 1c00 | | Execute_Immediate Run_Utility,0x0 028a BODY_0280: 028a 4805 |H | Short_Literal 0x5 028b 00d9 | | Load_Top At_Offset_1 028c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 028d e5ff | | Load 0x2,-0x1 028e 00d9 | | Load_Top At_Offset_1 028f 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 0290 e5fe | | Load 0x2,-0x2 0291 00d9 | | Load_Top At_Offset_1 0292 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 0293 00d9 | | Load_Top At_Offset_1 0294 00d9 | | Load_Top At_Offset_1 0295 8228 | ( | Call 0x1,0x28 0296 003a | : | Store_Top Access,At_Offset_2 0297 00d9 | | Load_Top At_Offset_1 0298 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0299 0000 0000 | | .BLANK 0000[0x7] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02aa | | .CONST 0x02aa ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0003 | | .CONST 0x0003 ; Number of locals 02a3 INIT_02a0: 02a3 e20d | | Load 0x1,0xd 02a4 0007 | | Action Break_Optional 02a5 4806 |H | Short_Literal 0x6 02a6 e220 | | Load 0x1,0x20 02a7 1c08 | | Execute_Immediate Run_Utility,0x8 02a8 00d8 | | Load_Top At_Offset_0 02a9 1c00 | | Execute_Immediate Run_Utility,0x0 02aa BODY_02a0: 02aa 4806 |H | Short_Literal 0x6 02ab 00d9 | | Load_Top At_Offset_1 02ac 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02ad e5ff | | Load 0x2,-0x1 02ae 00d9 | | Load_Top At_Offset_1 02af 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 02b0 e5fe | | Load 0x2,-0x2 02b1 00d9 | | Load_Top At_Offset_1 02b2 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 02b3 00d9 | | Load_Top At_Offset_1 02b4 00d9 | | Load_Top At_Offset_1 02b5 8228 | ( | Call 0x1,0x28 02b6 003a | : | Store_Top Access,At_Offset_2 02b7 00d9 | | Load_Top At_Offset_1 02b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b9 0000 0000 | | .BLANK 0000[0x7] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02ca | | .CONST 0x02ca ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0003 | | .CONST 0x0003 ; Number of locals 02c3 INIT_02c0: 02c3 e20d | | Load 0x1,0xd 02c4 0007 | | Action Break_Optional 02c5 4808 |H | Short_Literal 0x8 02c6 e220 | | Load 0x1,0x20 02c7 1c08 | | Execute_Immediate Run_Utility,0x8 02c8 00d8 | | Load_Top At_Offset_0 02c9 1c00 | | Execute_Immediate Run_Utility,0x0 02ca BODY_02c0: 02ca 4808 |H | Short_Literal 0x8 02cb 00d9 | | Load_Top At_Offset_1 02cc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02cd e5ff | | Load 0x2,-0x1 02ce 00d9 | | Load_Top At_Offset_1 02cf 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf 02d0 e5fe | | Load 0x2,-0x2 02d1 00d9 | | Load_Top At_Offset_1 02d2 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10 02d3 e5fd | | Load 0x2,-0x3 02d4 00d9 | | Load_Top At_Offset_1 02d5 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11 02d6 00d9 | | Load_Top At_Offset_1 02d7 00d9 | | Load_Top At_Offset_1 02d8 8228 | ( | Call 0x1,0x28 02d9 003a | : | Store_Top Access,At_Offset_2 02da 00d9 | | Load_Top At_Offset_1 02db 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02ea | | .CONST 0x02ea ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0003 | | .CONST 0x0003 ; Number of locals 02e3 INIT_02e0: 02e3 e20d | | Load 0x1,0xd 02e4 0007 | | Action Break_Optional 02e5 4807 |H | Short_Literal 0x7 02e6 e220 | | Load 0x1,0x20 02e7 1c08 | | Execute_Immediate Run_Utility,0x8 02e8 00d8 | | Load_Top At_Offset_0 02e9 1c00 | | Execute_Immediate Run_Utility,0x0 02ea BODY_02e0: 02ea 4807 |H | Short_Literal 0x7 02eb 00d9 | | Load_Top At_Offset_1 02ec 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02ed e5ff | | Load 0x2,-0x1 02ee 00d9 | | Load_Top At_Offset_1 02ef 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd 02f0 e5fe | | Load 0x2,-0x2 02f1 00d9 | | Load_Top At_Offset_1 02f2 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe 02f3 00d9 | | Load_Top At_Offset_1 02f4 00d9 | | Load_Top At_Offset_1 02f5 8228 | ( | Call 0x1,0x28 02f6 003a | : | Store_Top Access,At_Offset_2 02f7 00d9 | | Load_Top At_Offset_1 02f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f9 0000 0000 | | .BLANK 0000[0x7] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 030a | | .CONST 0x030a ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0003 | | .CONST 0x0003 ; Number of locals 0303 INIT_0300: 0303 e20d | | Load 0x1,0xd 0304 0007 | | Action Break_Optional 0305 4809 |H | Short_Literal 0x9 0306 e220 | | Load 0x1,0x20 0307 1c08 | | Execute_Immediate Run_Utility,0x8 0308 00d8 | | Load_Top At_Offset_0 0309 1c00 | | Execute_Immediate Run_Utility,0x0 030a BODY_0300: 030a 4809 |H | Short_Literal 0x9 030b 00d9 | | Load_Top At_Offset_1 030c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 030d e5ff | | Load 0x2,-0x1 030e 00d9 | | Load_Top At_Offset_1 030f 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12 0310 00d9 | | Load_Top At_Offset_1 0311 00d9 | | Load_Top At_Offset_1 0312 8228 | ( | Call 0x1,0x28 0313 003a | : | Store_Top Access,At_Offset_2 0314 00d9 | | Load_Top At_Offset_1 0315 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0316 0000 0000 | | .XXX[0x2] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0322 | " | .CONST 0x0322 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0003 | | .CONST 0x0003 ; Number of locals 031b INIT_0318: 031b e20d | | Load 0x1,0xd 031c 0007 | | Action Break_Optional 031d 480a |H | Short_Literal 0xa 031e e220 | | Load 0x1,0x20 031f 1c08 | | Execute_Immediate Run_Utility,0x8 0320 00d8 | | Load_Top At_Offset_0 0321 1c00 | | Execute_Immediate Run_Utility,0x0 0322 BODY_0318: 0322 480a |H | Short_Literal 0xa 0323 00d9 | | Load_Top At_Offset_1 0324 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0325 00d9 | | Load_Top At_Offset_1 0326 00d9 | | Load_Top At_Offset_1 0327 8228 | ( | Call 0x1,0x28 0328 003a | : | Store_Top Access,At_Offset_2 0329 00d9 | | Load_Top At_Offset_1 032a 00ca | | Action Exit_Nullary_Function 032b 0000 0000 | | .BLANK 0000[0x5] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 033a | : | .CONST 0x033a ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0003 | | .CONST 0x0003 ; Number of locals 0333 INIT_0330: 0333 e20d | | Load 0x1,0xd 0334 0007 | | Action Break_Optional 0335 480b |H | Short_Literal 0xb 0336 e220 | | Load 0x1,0x20 0337 1c08 | | Execute_Immediate Run_Utility,0x8 0338 00d8 | | Load_Top At_Offset_0 0339 1c00 | | Execute_Immediate Run_Utility,0x0 033a BODY_0330: 033a 480b |H | Short_Literal 0xb 033b 00d9 | | Load_Top At_Offset_1 033c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 033d 00d9 | | Load_Top At_Offset_1 033e 00d9 | | Load_Top At_Offset_1 033f 8228 | ( | Call 0x1,0x28 0340 003a | : | Store_Top Access,At_Offset_2 0341 00d9 | | Load_Top At_Offset_1 0342 00ca | | Action Exit_Nullary_Function 0343 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 034c 4800 |H | Short_Literal 0x0 034d 822f | / | Call 0x1,0x2f 034e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034f 0000 | | .XXX[0x1] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 4607 |F | Jump_Case 0x8 0354 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0355 7807 |x | Jump 0x35d ; case 0x1 0356 780a |x | Jump 0x361 ; case 0x2 0357 780e |x | Jump 0x366 ; case 0x3 0358 7811 |x | Jump 0x36a ; case 0x4 0359 7812 |x | Jump 0x36c ; case 0x5 035a 7813 |x | Jump 0x36e ; case 0x6 035b 7816 |x | Jump 0x372 ; case 0x7 035c 4302 |C | .XXX[0x1] 035d 00da | | Load_Top At_Offset_2 035e 0091 09ea | | Action Push_String_Extended_Indexed,0x9ea ; "SI_ALORS_SINON" 0360 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0361 00db | | Load_Top At_Offset_3 0362 00db | | Load_Top At_Offset_3 0363 00e0 | | Load_Encached Standard_Cache 0364 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0365 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0366 00da | | Load_Top At_Offset_2 0367 00e0 | | Load_Encached Standard_Cache 0368 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0369 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 036a 00db | | Load_Top At_Offset_3 036b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036c 00db | | Load_Top At_Offset_3 036d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036e e21f | | Load 0x1,0x1f 036f 00dc | | Load_Top At_Offset_4 0370 0267 | g | Execute Discrete,Predecessor 0371 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0372 e21f | | Load 0x1,0x1f 0373 00dc | | Load_Top At_Offset_4 0374 0268 | h | Execute Discrete,Successor 0375 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0376 0000 0000 | | .XXX[0x2] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037f | | .CONST 0x037f ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0003 | | .CONST 0x0003 ; Number of locals 037b INIT_0378: 037b e20d | | Load 0x1,0xd 037c 0007 | | Action Break_Optional 037d 00d8 | | Load_Top At_Offset_0 037e 0007 | | Action Break_Optional 037f BODY_0378: 037f e5ff | | Load 0x2,-0x1 0380 7002 |p | Jump_Nonzero 0x383 0381 e20d | | Load 0x1,0xd 0382 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0383 e5ff | | Load 0x2,-0x1 0384 003a | : | Store_Top Access,At_Offset_2 0385 00cf | | Action Mark_Auxiliary 0386 7807 |x | Jump 0x38e 0387 00da | | Load_Top At_Offset_2 0388 003a | : | Store_Top Access,At_Offset_2 0389 00da | | Load_Top At_Offset_2 038a 0227 | ' | Execute Access,All_Reference 038b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 038c 003b | ; | Store_Top Access,At_Offset_3 038d 00c9 | | Action Pop_Auxiliary_Loop 038e 00da | | Load_Top At_Offset_2 038f 77f7 |w | Jump_Nonzero 0x387 0390 00ce | | Action Pop_Auxiliary 0391 00d8 | | Load_Top At_Offset_0 0392 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0393 0000 0000 | | .BLANK 0000[0x5] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039d | | .CONST 0x039d ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0002 | | .CONST 0x0002 ; Number of locals 039b INIT_0398: 039b e20d | | Load 0x1,0xd 039c 0007 | | Action Break_Optional 039d BODY_0398: 039d e221 | ! | Load 0x1,0x21 039e 0322 | " | Declare_Variable Record 039f e5ff | | Load 0x2,-0x1 03a0 00d9 | | Load_Top At_Offset_1 03a1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03a2 e20d | | Load 0x1,0xd 03a3 00d9 | | Load_Top At_Offset_1 03a4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03a5 e20d | | Load 0x1,0xd 03a6 03b6 | | Declare_Variable Access,By_Allocation,With_Value 03a7 0039 | 9 | Store_Top Access,At_Offset_1 03a8 e5fe | | Load 0x2,-0x2 03a9 00d9 | | Load_Top At_Offset_1 03aa 8210 | | Call 0x1,0x10 03ab c5fe | | Store 0x2,-0x2 03ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b5 0000 0000 | | .XXX[0x3] 03b7 0000 | | 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 00da | | Load_Top At_Offset_2 03bc 6804 |h | Jump_Zero 0x3c1 03bd 00da | | Load_Top At_Offset_2 03be 0227 | ' | Execute Access,All_Reference 03bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c0 003b | ; | Store_Top Access,At_Offset_3 03c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c2 0000 0000 | | .BLANK 0000[0x6] 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 022d | - | Execute Access,Is_Null 03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00da | | Load_Top At_Offset_2 03d4 022c | , | Execute Access,Not_Null 03d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d6 0000 0000 | | .XXX[0x2] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03dd | | .CONST 0x03dd ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0002 | | .CONST 0x0002 ; Number of locals 03db INIT_03d8: 03db e20d | | Load 0x1,0xd 03dc 0007 | | Action Break_Optional 03dd BODY_03d8: 03dd 00db | | Load_Top At_Offset_3 03de 0039 | 9 | Store_Top Access,At_Offset_1 03df 00d8 | | Load_Top At_Offset_0 03e0 0227 | ' | Execute Access,All_Reference 03e1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03e2 02fd | | Declare_Variable Variant_Record,Duplicate 03e3 00cd | | Action Spare6_Action 03e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e5 0000 0000 | | .XXX[0x3] 03e7 0000 | | 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00cf | | Action Mark_Auxiliary 03ec 00db | | Load_Top At_Offset_3 03ed 4801 |H | Short_Literal 0x1 03ee 0263 | c | Execute Discrete,Above_Bound 03ef 7006 |p | Jump_Nonzero 0x3f6 03f0 0092 09f6 | | Action Push_String_Extended,0x9f6 ; " " 03f2 e009 | | Load 0x0,0x9 03f3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03f4 00c8 | | Action Pop_Auxiliary_Range 03f5 3ffa |? | Loop_Increasing 0x3f0 03f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f7 0000 | | .XXX[0x1] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0401 | | .CONST 0x0401 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0003 | | .CONST 0x0003 ; Number of locals 03fb INIT_03f8: 03fb e20d | | Load 0x1,0xd 03fc 0007 | | Action Break_Optional 03fd e220 | | Load 0x1,0x20 03fe 02ff | | Declare_Variable Variant_Record 03ff 00d8 | | Load_Top At_Offset_0 0400 1c00 | | Execute_Immediate Run_Utility,0x0 0401 BODY_03f8: 0401 e5fe | | Load 0x2,-0x2 0402 8229 | ) | Call 0x1,0x29 0403 003a | : | Store_Top Access,At_Offset_2 0404 00cf | | Action Mark_Auxiliary 0405 793a |y: | Jump 0x540 0406 00da | | Load_Top At_Offset_2 0407 822d | - | Call 0x1,0x2d 0408 00da | | Load_Top At_Offset_2 0409 016d | m | Execute Variant_Record,Structure_Write 040a 00d9 | | Load_Top At_Offset_1 040b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 040c 460b |F | Jump_Case 0xc 040d 7812 |x | Jump 0x420 ; case 0x0 040e 7848 |xH | Jump 0x457 ; case 0x1 040f 7866 |xf | Jump 0x476 ; case 0x2 0410 788b |x | Jump 0x49c ; case 0x3 0411 78a1 |x | Jump 0x4b3 ; case 0x4 0412 78b7 |x | Jump 0x4ca ; case 0x5 0413 78cd |x | Jump 0x4e1 ; case 0x6 0414 78e3 |x | Jump 0x4f8 ; case 0x7 0415 78fa |x | Jump 0x510 ; case 0x8 0416 7918 |y | Jump 0x52f ; case 0x9 0417 791e |y | Jump 0x536 ; case 0xa 0418 7800 |x | Jump 0x419 ; case 0xb 0419 e5ff | | Load 0x2,-0x1 041a 822e | . | Call 0x1,0x2e 041b 0092 09f7 | | Action Push_String_Extended,0x9f7 ; "-- Vide" 041d e009 | | Load 0x0,0x9 041e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 041f 791c |y | Jump 0x53c 0420 e5ff | | Load 0x2,-0x1 0421 822e | . | Call 0x1,0x2e 0422 0092 09f8 | | Action Push_String_Extended,0x9f8 ; "SI" 0424 e009 | | Load 0x0,0x9 0425 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0426 00d9 | | Load_Top At_Offset_1 0427 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0428 e5ff | | Load 0x2,-0x1 0429 0a02 | | Execute_Immediate Plus,0x2 042a 00d8 | | Load_Top At_Offset_0 042b 00e2 | | Load_Encached Integer_Cache 042c 0260 | ` | Execute Discrete,In_Type 042d 7001 |p | Jump_Nonzero 0x42f 042e 0801 | | Execute_Immediate Raise,0x1 042f 800a | | Call 0x0,0xa 0430 e5ff | | Load 0x2,-0x1 0431 822e | . | Call 0x1,0x2e 0432 0092 09f9 | | Action Push_String_Extended,0x9f9 ; "ALORS" 0434 e009 | | Load 0x0,0x9 0435 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0436 00d9 | | Load_Top At_Offset_1 0437 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0438 e5ff | | Load 0x2,-0x1 0439 0a02 | | Execute_Immediate Plus,0x2 043a 00d8 | | Load_Top At_Offset_0 043b 00e2 | | Load_Encached Integer_Cache 043c 0260 | ` | Execute Discrete,In_Type 043d 7001 |p | Jump_Nonzero 0x43f 043e 0801 | | Execute_Immediate Raise,0x1 043f 822f | / | Call 0x1,0x2f 0440 e5ff | | Load 0x2,-0x1 0441 822e | . | Call 0x1,0x2e 0442 0092 09fa | | Action Push_String_Extended,0x9fa ; "SINON" 0444 e009 | | Load 0x0,0x9 0445 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0446 00d9 | | Load_Top At_Offset_1 0447 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0448 e5ff | | Load 0x2,-0x1 0449 0a02 | | Execute_Immediate Plus,0x2 044a 00d8 | | Load_Top At_Offset_0 044b 00e2 | | Load_Encached Integer_Cache 044c 0260 | ` | Execute Discrete,In_Type 044d 7001 |p | Jump_Nonzero 0x44f 044e 0801 | | Execute_Immediate Raise,0x1 044f 822f | / | Call 0x1,0x2f 0450 e5ff | | Load 0x2,-0x1 0451 822e | . | Call 0x1,0x2e 0452 0092 09fb | | Action Push_String_Extended,0x9fb ; "FIN_SI" 0454 e009 | | Load 0x0,0x9 0455 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0456 78e5 |x | Jump 0x53c 0457 e5ff | | Load 0x2,-0x1 0458 822e | . | Call 0x1,0x2e 0459 0092 09fc | | Action Push_String_Extended,0x9fc ; "POUR " 045b 00da | | Load_Top At_Offset_2 045c 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 045d 00e0 | | Load_Encached Standard_Cache 045e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 045f 01cc | | Execute Vector,Catenate 0460 0092 09fd | | Action Push_String_Extended,0x9fd ; " ENTREE FAIRE " 0462 01cc | | Execute Vector,Catenate 0463 e009 | | Load 0x0,0x9 0464 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0465 00d9 | | Load_Top At_Offset_1 0466 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0467 e5ff | | Load 0x2,-0x1 0468 0a02 | | Execute_Immediate Plus,0x2 0469 00d8 | | Load_Top At_Offset_0 046a 00e2 | | Load_Encached Integer_Cache 046b 0260 | ` | Execute Discrete,In_Type 046c 7001 |p | Jump_Nonzero 0x46e 046d 0801 | | Execute_Immediate Raise,0x1 046e 822f | / | Call 0x1,0x2f 046f e5ff | | Load 0x2,-0x1 0470 822e | . | Call 0x1,0x2e 0471 0092 09fe | | Action Push_String_Extended,0x9fe ; "FIN_POUR" 0473 e009 | | Load 0x0,0x9 0474 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0475 78c6 |x | Jump 0x53c 0476 e5ff | | Load 0x2,-0x1 0477 822e | . | Call 0x1,0x2e 0478 00d9 | | Load_Top At_Offset_1 0479 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 047a e003 | | Load 0x0,0x3 047b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 047c e009 | | Load 0x0,0x9 047d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 047e 00d9 | | Load_Top At_Offset_1 047f 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0480 e003 | | Load 0x0,0x3 0481 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0482 0c01 | | Execute_Immediate Greater_Equal,0x1 0483 6809 |h | Jump_Zero 0x48d 0484 0092 09ff | | Action Push_String_Extended,0x9ff ; "." 0486 00da | | Load_Top At_Offset_2 0487 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0488 e003 | | Load 0x0,0x3 0489 1813 | | Execute Package,Field_Execute,Field_Number 0x13 048a 01cc | | Execute Vector,Catenate 048b e009 | | Load 0x0,0x9 048c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 048d 0092 0a00 | | Action Push_String_Extended,0xa00 ; " = " 048f e009 | | Load 0x0,0x9 0490 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0491 00d9 | | Load_Top At_Offset_1 0492 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0493 e5ff | | Load 0x2,-0x1 0494 0a02 | | Execute_Immediate Plus,0x2 0495 00d8 | | Load_Top At_Offset_0 0496 00e2 | | Load_Encached Integer_Cache 0497 0260 | ` | Execute Discrete,In_Type 0498 7001 |p | Jump_Nonzero 0x49a 0499 0801 | | Execute_Immediate Raise,0x1 049a 800a | | Call 0x0,0xa 049b 78a0 |x | Jump 0x53c 049c e5ff | | Load 0x2,-0x1 049d 822e | . | Call 0x1,0x2e 049e 0092 0a01 | | Action Push_String_Extended,0xa01 ; "LIE_CONNEXION ( " 04a0 00da | | Load_Top At_Offset_2 04a1 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 04a2 e003 | | Load 0x0,0x3 04a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04a4 01cc | | Execute Vector,Catenate 04a5 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 04a7 01cc | | Execute Vector,Catenate 04a8 00da | | Load_Top At_Offset_2 04a9 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04aa e003 | | Load 0x0,0x3 04ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04ac 01cc | | Execute Vector,Catenate 04ad 0092 0a03 | | Action Push_String_Extended,0xa03 ; " )" 04af 01cc | | Execute Vector,Catenate 04b0 e009 | | Load 0x0,0x9 04b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04b2 7889 |x | Jump 0x53c 04b3 e5ff | | Load 0x2,-0x1 04b4 822e | . | Call 0x1,0x2e 04b5 0092 0a04 | | Action Push_String_Extended,0xa04 ; "DELIE_CONNEXION ( " 04b7 00da | | Load_Top At_Offset_2 04b8 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 04b9 e003 | | Load 0x0,0x3 04ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04bb 01cc | | Execute Vector,Catenate 04bc 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 04be 01cc | | Execute Vector,Catenate 04bf 00da | | Load_Top At_Offset_2 04c0 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04c1 e003 | | Load 0x0,0x3 04c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04c3 01cc | | Execute Vector,Catenate 04c4 0092 0a03 | | Action Push_String_Extended,0xa03 ; " )" 04c6 01cc | | Execute Vector,Catenate 04c7 e009 | | Load 0x0,0x9 04c8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04c9 7872 |xr | Jump 0x53c 04ca e5ff | | Load 0x2,-0x1 04cb 822e | . | Call 0x1,0x2e 04cc 0092 0a05 | | Action Push_String_Extended,0xa05 ; "LIE_LIEN ( " 04ce 00da | | Load_Top At_Offset_2 04cf 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 04d0 e003 | | Load 0x0,0x3 04d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04d2 01cc | | Execute Vector,Catenate 04d3 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 04d5 01cc | | Execute Vector,Catenate 04d6 00da | | Load_Top At_Offset_2 04d7 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04d8 e003 | | Load 0x0,0x3 04d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04da 01cc | | Execute Vector,Catenate 04db 0092 0a03 | | Action Push_String_Extended,0xa03 ; " )" 04dd 01cc | | Execute Vector,Catenate 04de e009 | | Load 0x0,0x9 04df 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04e0 785b |x[ | Jump 0x53c 04e1 e5ff | | Load 0x2,-0x1 04e2 822e | . | Call 0x1,0x2e 04e3 0092 0a06 | | Action Push_String_Extended,0xa06 ; "DELIE_LIEN ( " 04e5 00da | | Load_Top At_Offset_2 04e6 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 04e7 e003 | | Load 0x0,0x3 04e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04e9 01cc | | Execute Vector,Catenate 04ea 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 04ec 01cc | | Execute Vector,Catenate 04ed 00da | | Load_Top At_Offset_2 04ee 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 04ef e003 | | Load 0x0,0x3 04f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04f1 01cc | | Execute Vector,Catenate 04f2 0092 0a03 | | Action Push_String_Extended,0xa03 ; " )" 04f4 01cc | | Execute Vector,Catenate 04f5 e009 | | Load 0x0,0x9 04f6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04f7 7844 |xD | Jump 0x53c 04f8 e5ff | | Load 0x2,-0x1 04f9 822e | . | Call 0x1,0x2e 04fa 0092 0a07 | | Action Push_String_Extended,0xa07 ; "LISTE_LIEN ( " 04fc 00da | | Load_Top At_Offset_2 04fd 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 04fe e003 | | Load 0x0,0x3 04ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0500 01cc | | Execute Vector,Catenate 0501 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 0503 01cc | | Execute Vector,Catenate 0504 00da | | Load_Top At_Offset_2 0505 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0506 e004 | | Load 0x0,0x4 0507 011c | | Execute Any,Convert_Unchecked 0508 1c01 | | Execute_Immediate Run_Utility,0x1 0509 01cc | | Execute Vector,Catenate 050a 0092 0a03 | | Action Push_String_Extended,0xa03 ; " )" 050c 01cc | | Execute Vector,Catenate 050d e009 | | Load 0x0,0x9 050e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 050f 782c |x, | Jump 0x53c 0510 e5ff | | Load 0x2,-0x1 0511 822e | . | Call 0x1,0x2e 0512 0092 0a08 | | Action Push_String_Extended,0xa08 ; "ECHANGER_LIEN ( " 0514 00da | | Load_Top At_Offset_2 0515 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 0516 e003 | | Load 0x0,0x3 0517 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0518 01cc | | Execute Vector,Catenate 0519 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 051b 01cc | | Execute Vector,Catenate 051c 00da | | Load_Top At_Offset_2 051d 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 051e e003 | | Load 0x0,0x3 051f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0520 01cc | | Execute Vector,Catenate 0521 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 0523 01cc | | Execute Vector,Catenate 0524 00da | | Load_Top At_Offset_2 0525 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 0526 e003 | | Load 0x0,0x3 0527 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0528 01cc | | Execute Vector,Catenate 0529 0092 0a03 | | Action Push_String_Extended,0xa03 ; " )" 052b 01cc | | Execute Vector,Catenate 052c e009 | | Load 0x0,0x9 052d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 052e 780d |x | Jump 0x53c 052f e5ff | | Load 0x2,-0x1 0530 822e | . | Call 0x1,0x2e 0531 0092 0a09 | | Action Push_String_Extended,0xa09 ; " -- Afficher -- " 0533 e009 | | Load 0x0,0x9 0534 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0535 7806 |x | Jump 0x53c 0536 e5ff | | Load 0x2,-0x1 0537 822e | . | Call 0x1,0x2e 0538 0092 09f4 | | Action Push_String_Extended,0x9f4 ; "FIN" 053a e009 | | Load 0x0,0x9 053b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 053c 00da | | Load_Top At_Offset_2 053d 822a | * | Call 0x1,0x2a 053e 003b | ; | Store_Top Access,At_Offset_3 053f 00c9 | | Action Pop_Auxiliary_Loop 0540 00da | | Load_Top At_Offset_2 0541 822c | , | Call 0x1,0x2c 0542 76c3 |v | Jump_Nonzero 0x406 0543 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0544 0000 0000 | | .BLANK 0000[0x4] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 054c | L | .CONST 0x054c ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0002 | | .CONST 0x0002 ; Number of locals 054b INIT_0548: 054b 00e1 | | Load_Encached Boolean_Cache 054c BODY_0548: 054c e5fc | | Load 0x2,-0x4 054d 680b |h | Jump_Zero 0x559 054e 0092 0a0a | | Action Push_String_Extended,0xa0a ; ">> Execution SI <<" 0550 e009 | | Load 0x0,0x9 0551 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0552 0092 0a0b | | Action Push_String_Extended,0xa0b ; ">> Condition:" 0554 e009 | | Load 0x0,0x9 0555 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0556 00db | | Load_Top At_Offset_3 0557 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0558 800b | | Call 0x0,0xb 0559 e5fd | | Load 0x2,-0x3 055a e5f9 | | Load 0x2,-0x7 055b e5fa | | Load 0x2,-0x6 055c e5fb | | Load 0x2,-0x5 055d e5fe | | Load 0x2,-0x2 055e e5ff | | Load 0x2,-0x1 055f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0560 800c | | Call 0x0,0xc 0561 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0562 00d8 | | Load_Top At_Offset_0 0563 6815 |h | Jump_Zero 0x579 0564 e5fc | | Load 0x2,-0x4 0565 6804 |h | Jump_Zero 0x56a 0566 0092 0a0c | | Action Push_String_Extended,0xa0c ; ">> Execution ALORS <<" 0568 e009 | | Load 0x0,0x9 0569 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 056a e5f7 | | Load 0x2,-0x9 056b e5f8 | | Load 0x2,-0x8 056c e5f9 | | Load 0x2,-0x7 056d e5fa | | Load 0x2,-0x6 056e e5fb | | Load 0x2,-0x5 056f e5fc | | Load 0x2,-0x4 0570 e5fd | | Load 0x2,-0x3 0571 e5fe | | Load 0x2,-0x2 0572 e5ff | | Load 0x2,-0x1 0573 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0574 8211 | | Call 0x1,0x11 0575 00d3 | | Pop_Control Pop_Count_3 0576 c5f8 | | Store 0x2,-0x8 0577 c5f7 | | Store 0x2,-0x9 0578 7814 |x | Jump 0x58d 0579 e5fc | | Load 0x2,-0x4 057a 6804 |h | Jump_Zero 0x57f 057b 0092 0a0d | | Action Push_String_Extended,0xa0d ; ">> Execution SINON <<" 057d e009 | | Load 0x0,0x9 057e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 057f e5f7 | | Load 0x2,-0x9 0580 e5f8 | | Load 0x2,-0x8 0581 e5f9 | | Load 0x2,-0x7 0582 e5fa | | Load 0x2,-0x6 0583 e5fb | | Load 0x2,-0x5 0584 e5fc | | Load 0x2,-0x4 0585 e5fd | | Load 0x2,-0x3 0586 e5fe | | Load 0x2,-0x2 0587 e5ff | | Load 0x2,-0x1 0588 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0589 8211 | | Call 0x1,0x11 058a 00d3 | | Pop_Control Pop_Count_3 058b c5f8 | | Store 0x2,-0x8 058c c5f7 | | Store 0x2,-0x9 058d e5fc | | Load 0x2,-0x4 058e 6804 |h | Jump_Zero 0x593 058f 0092 0a0e | | Action Push_String_Extended,0xa0e ; ">> FIN SI <<" 0591 e009 | | Load 0x0,0x9 0592 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0593 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0594 0000 0000 | | .BLANK 0000[0x4] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 059b | | .CONST 0x059b ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0001 | | .CONST 0x0001 ; Number of locals 059b BODY_0598: 059b INIT_0598: 059b 800d | | Call 0x0,0xd 059c 00db | | Load_Top At_Offset_3 059d 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 059e 026e | n | Execute Discrete,Modulo 059f 7022 |p" | Jump_Nonzero 0x5c2 05a0 e5fc | | Load 0x2,-0x4 05a1 680c |h | Jump_Zero 0x5ae 05a2 0092 0a0f | | Action Push_String_Extended,0xa0f ; ">> Execution POUR (" 05a4 00db | | Load_Top At_Offset_3 05a5 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 05a6 00e0 | | Load_Encached Standard_Cache 05a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05a8 01cc | | Execute Vector,Catenate 05a9 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")" 05ab 01cc | | Execute Vector,Catenate 05ac e009 | | Load 0x0,0x9 05ad 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05ae e5f7 | | Load 0x2,-0x9 05af e5f8 | | Load 0x2,-0x8 05b0 e5f9 | | Load 0x2,-0x7 05b1 e5fa | | Load 0x2,-0x6 05b2 e5fb | | Load 0x2,-0x5 05b3 e5fc | | Load 0x2,-0x4 05b4 e5fd | | Load 0x2,-0x3 05b5 e5fe | | Load 0x2,-0x2 05b6 e5ff | | Load 0x2,-0x1 05b7 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 05b8 8211 | | Call 0x1,0x11 05b9 00d3 | | Pop_Control Pop_Count_3 05ba c5f8 | | Store 0x2,-0x8 05bb c5f7 | | Store 0x2,-0x9 05bc e5fc | | Load 0x2,-0x4 05bd 6804 |h | Jump_Zero 0x5c2 05be 0092 0a11 | | Action Push_String_Extended,0xa11 ; ">> FIN POUR <<" 05c0 e009 | | Load 0x0,0x9 05c1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05c2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05c3 0000 0000 | | .BLANK 0000[0x5] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cd | | .CONST 0x05cd ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb 00e2 | | Load_Encached Integer_Cache 05cc 00e1 | | Load_Encached Boolean_Cache 05cd BODY_05c8: 05cd e5fc | | Load 0x2,-0x4 05ce 6820 |h | Jump_Zero 0x5ef 05cf 0092 0a12 | | Action Push_String_Extended,0xa12 ; ">> Execution AFFECTATION <<" 05d1 e009 | | Load 0x0,0x9 05d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05d3 e5ff | | Load 0x2,-0x1 05d4 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 05d5 e003 | | Load 0x0,0x3 05d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05d7 e009 | | Load 0x0,0x9 05d8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05d9 e5ff | | Load 0x2,-0x1 05da 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 05db e003 | | Load 0x0,0x3 05dc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05dd 0c01 | | Execute_Immediate Greater_Equal,0x1 05de 6809 |h | Jump_Zero 0x5e8 05df 0092 09ff | | Action Push_String_Extended,0x9ff ; "." 05e1 e5ff | | Load 0x2,-0x1 05e2 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 05e3 e003 | | Load 0x0,0x3 05e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05e5 01cc | | Execute Vector,Catenate 05e6 e009 | | Load 0x0,0x9 05e7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05e8 0092 0a13 | | Action Push_String_Extended,0xa13 ; " := " 05ea e009 | | Load 0x0,0x9 05eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05ec e5ff | | Load 0x2,-0x1 05ed 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 05ee 800b | | Call 0x0,0xb 05ef e5ff | | Load 0x2,-0x1 05f0 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 05f1 e003 | | Load 0x0,0x3 05f2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05f3 701b |p | Jump_Nonzero 0x60f 05f4 e5ff | | Load 0x2,-0x1 05f5 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 05f6 e003 | | Load 0x0,0x3 05f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05f8 e5fb | | Load 0x2,-0x5 05f9 800e | | Call 0x0,0xe 05fa 6810 |h | Jump_Zero 0x60b 05fb e5fb | | Load 0x2,-0x5 05fc e5fd | | Load 0x2,-0x3 05fd e5f9 | | Load 0x2,-0x7 05fe e5fa | | Load 0x2,-0x6 05ff e5fb | | Load 0x2,-0x5 0600 e5fe | | Load 0x2,-0x2 0601 e5ff | | Load 0x2,-0x1 0602 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0603 800f | | Call 0x0,0xf 0604 e5ff | | Load 0x2,-0x1 0605 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0606 e003 | | Load 0x0,0x3 0607 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0608 8010 | | Call 0x0,0x10 0609 00d1 | | Pop_Control Pop_Count_1 060a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 060b 0092 0a14 | | Action Push_String_Extended,0xa14 ; "Manque l'extension pour l'acces a la variable !!!" 060d 8011 | | Call 0x0,0x11 060e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 060f e5ff | | Load 0x2,-0x1 0610 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0611 e003 | | Load 0x0,0x3 0612 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0613 e5ff | | Load 0x2,-0x1 0614 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0615 e003 | | Load 0x0,0x3 0616 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0617 e5fe | | Load 0x2,-0x2 0618 e5fb | | Load 0x2,-0x5 0619 8012 | | Call 0x0,0x12 061a 0092 0a15 | | Action Push_String_Extended,0xa15 ; "ENTIER" 061c 01df | | Execute Vector,Equal 061d e5ff | | Load 0x2,-0x1 061e 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 061f e003 | | Load 0x0,0x3 0620 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0621 e5ff | | Load 0x2,-0x1 0622 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0623 e003 | | Load 0x0,0x3 0624 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0625 e5fe | | Load 0x2,-0x2 0626 e5fb | | Load 0x2,-0x5 0627 8012 | | Call 0x0,0x12 0628 0092 0a16 | | Action Push_String_Extended,0xa16 ; "ENUMERE" 062a 01df | | Execute Vector,Equal 062b 0278 | x | Execute Discrete,Or 062c 6817 |h | Jump_Zero 0x644 062d e5fd | | Load 0x2,-0x3 062e e5f9 | | Load 0x2,-0x7 062f e5fa | | Load 0x2,-0x6 0630 e5fb | | Load 0x2,-0x5 0631 e5fe | | Load 0x2,-0x2 0632 e5ff | | Load 0x2,-0x1 0633 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0634 8013 | | Call 0x0,0x13 0635 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0636 e5fb | | Load 0x2,-0x5 0637 00da | | Load_Top At_Offset_2 0638 e5ff | | Load 0x2,-0x1 0639 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 063a e003 | | Load 0x0,0x3 063b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 063c e5ff | | Load 0x2,-0x1 063d 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 063e e003 | | Load 0x0,0x3 063f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0640 e5fe | | Load 0x2,-0x2 0641 8014 | | Call 0x0,0x14 0642 00d1 | | Pop_Control Pop_Count_1 0643 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0644 e5ff | | Load 0x2,-0x1 0645 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0646 e003 | | Load 0x0,0x3 0647 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0648 e5ff | | Load 0x2,-0x1 0649 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 064a e003 | | Load 0x0,0x3 064b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 064c e5fe | | Load 0x2,-0x2 064d e5fb | | Load 0x2,-0x5 064e 8012 | | Call 0x0,0x12 064f 0092 0a17 | | Action Push_String_Extended,0xa17 ; "BOOLEEN" 0651 01df | | Execute Vector,Equal 0652 6817 |h | Jump_Zero 0x66a 0653 e5fd | | Load 0x2,-0x3 0654 e5f9 | | Load 0x2,-0x7 0655 e5fa | | Load 0x2,-0x6 0656 e5fb | | Load 0x2,-0x5 0657 e5fe | | Load 0x2,-0x2 0658 e5ff | | Load 0x2,-0x1 0659 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 065a 800c | | Call 0x0,0xc 065b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 065c e5fb | | Load 0x2,-0x5 065d 00d9 | | Load_Top At_Offset_1 065e e5ff | | Load 0x2,-0x1 065f 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0660 e003 | | Load 0x0,0x3 0661 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0662 e5ff | | Load 0x2,-0x1 0663 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0664 e003 | | Load 0x0,0x3 0665 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0666 e5fe | | Load 0x2,-0x2 0667 8015 | | Call 0x0,0x15 0668 00d1 | | Pop_Control Pop_Count_1 0669 4505 |E | Exit_Suprogram New_Top_Offset 0x5 066a 0092 0a18 | | Action Push_String_Extended,0xa18 ; "Affectation non valide !!!" 066c 8011 | | Call 0x0,0x11 066d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 066e 0000 0000 | | .XXX[0x2] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 067f | | .CONST 0x067f ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0003 | | .CONST 0x0003 ; Number of locals 0673 INIT_0670: 0673 4820 |H | Short_Literal 0x20 0674 e003 | | Load 0x0,0x3 0675 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0676 1c08 | | Execute_Immediate Run_Utility,0x8 0677 00d8 | | Load_Top At_Offset_0 0678 1c00 | | Execute_Immediate Run_Utility,0x0 0679 4820 |H | Short_Literal 0x20 067a e003 | | Load 0x0,0x3 067b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 067c 1c08 | | Execute_Immediate Run_Utility,0x8 067d 00d8 | | Load_Top At_Offset_0 067e 1c00 | | Execute_Immediate Run_Utility,0x0 067f BODY_0670: 067f e5fb | | Load 0x2,-0x5 0680 6816 |h | Jump_Zero 0x697 0681 0092 0a19 | | Action Push_String_Extended,0xa19 ; ">> Execution LIE_CONNEXION <<" 0683 e009 | | Load 0x0,0x9 0684 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0685 0092 0a1a | | Action Push_String_Extended,0xa1a ; ">> Parametres: " 0687 e5ff | | Load 0x2,-0x1 0688 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0689 e003 | | Load 0x0,0x3 068a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 068b 01cc | | Execute Vector,Catenate 068c 0092 0a1b | | Action Push_String_Extended,0xa1b ; " , " 068e 01cc | | Execute Vector,Catenate 068f e009 | | Load 0x0,0x9 0690 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0691 e5ff | | Load 0x2,-0x1 0692 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 0693 e003 | | Load 0x0,0x3 0694 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0695 e009 | | Load 0x0,0x9 0696 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0697 e5ff | | Load 0x2,-0x1 0698 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0699 00da | | Load_Top At_Offset_2 069a 016d | m | Execute Variant_Record,Structure_Write 069b e5ff | | Load 0x2,-0x1 069c 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 069d 00d9 | | Load_Top At_Offset_1 069e 016d | m | Execute Variant_Record,Structure_Write 069f 00d9 | | Load_Top At_Offset_1 06a0 e5fd | | Load 0x2,-0x3 06a1 e5fc | | Load 0x2,-0x4 06a2 823c | < | Call 0x1,0x3c 06a3 00d1 | | Pop_Control Pop_Count_1 06a4 00d8 | | Load_Top At_Offset_0 06a5 e5fd | | Load 0x2,-0x3 06a6 e5fc | | Load 0x2,-0x4 06a7 823c | < | Call 0x1,0x3c 06a8 00d1 | | Pop_Control Pop_Count_1 06a9 e5fa | | Load 0x2,-0x6 06aa 4801 |H | Short_Literal 0x1 06ab 00da | | Load_Top At_Offset_2 06ac e003 | | Load 0x0,0x3 06ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ae e402 | | Load 0x2,0x2 06af e003 | | Load 0x0,0x3 06b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06b1 8016 | | Call 0x0,0x16 06b2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06b3 0000 0000 | | .BLANK 0000[0x5] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06c7 | | .CONST 0x06c7 ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0003 | | .CONST 0x0003 ; Number of locals 06bb INIT_06b8: 06bb 4820 |H | Short_Literal 0x20 06bc e003 | | Load 0x0,0x3 06bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06be 1c08 | | Execute_Immediate Run_Utility,0x8 06bf 00d8 | | Load_Top At_Offset_0 06c0 1c00 | | Execute_Immediate Run_Utility,0x0 06c1 4820 |H | Short_Literal 0x20 06c2 e003 | | Load 0x0,0x3 06c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06c4 1c08 | | Execute_Immediate Run_Utility,0x8 06c5 00d8 | | Load_Top At_Offset_0 06c6 1c00 | | Execute_Immediate Run_Utility,0x0 06c7 BODY_06b8: 06c7 e5fb | | Load 0x2,-0x5 06c8 6816 |h | Jump_Zero 0x6df 06c9 0092 0a1c | | Action Push_String_Extended,0xa1c ; ">> Execution DELIE_CONNEXION <<" 06cb e009 | | Load 0x0,0x9 06cc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 06cd 0092 0a1a | | Action Push_String_Extended,0xa1a ; ">> Parametres: " 06cf e5ff | | Load 0x2,-0x1 06d0 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 06d1 e003 | | Load 0x0,0x3 06d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06d3 01cc | | Execute Vector,Catenate 06d4 0092 0a1b | | Action Push_String_Extended,0xa1b ; " , " 06d6 01cc | | Execute Vector,Catenate 06d7 e009 | | Load 0x0,0x9 06d8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 06d9 e5ff | | Load 0x2,-0x1 06da 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 06db e003 | | Load 0x0,0x3 06dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06dd e009 | | Load 0x0,0x9 06de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 06df e5ff | | Load 0x2,-0x1 06e0 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 06e1 00da | | Load_Top At_Offset_2 06e2 016d | m | Execute Variant_Record,Structure_Write 06e3 e5ff | | Load 0x2,-0x1 06e4 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 06e5 00d9 | | Load_Top At_Offset_1 06e6 016d | m | Execute Variant_Record,Structure_Write 06e7 00d9 | | Load_Top At_Offset_1 06e8 e5fd | | Load 0x2,-0x3 06e9 e5fc | | Load 0x2,-0x4 06ea 823c | < | Call 0x1,0x3c 06eb 00d1 | | Pop_Control Pop_Count_1 06ec 00d8 | | Load_Top At_Offset_0 06ed e5fd | | Load 0x2,-0x3 06ee e5fc | | Load 0x2,-0x4 06ef 823c | < | Call 0x1,0x3c 06f0 00d1 | | Pop_Control Pop_Count_1 06f1 e5fa | | Load 0x2,-0x6 06f2 4802 |H | Short_Literal 0x2 06f3 00da | | Load_Top At_Offset_2 06f4 e003 | | Load 0x0,0x3 06f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f6 e402 | | Load 0x2,0x2 06f7 e003 | | Load 0x0,0x3 06f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f9 8016 | | Call 0x0,0x16 06fa 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06fb 0000 0000 | | .BLANK 0000[0x5] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 070f | | .CONST 0x070f ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0003 | | .CONST 0x0003 ; Number of locals 0703 INIT_0700: 0703 4820 |H | Short_Literal 0x20 0704 e003 | | Load 0x0,0x3 0705 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0706 1c08 | | Execute_Immediate Run_Utility,0x8 0707 00d8 | | Load_Top At_Offset_0 0708 1c00 | | Execute_Immediate Run_Utility,0x0 0709 4820 |H | Short_Literal 0x20 070a e003 | | Load 0x0,0x3 070b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 070c 1c08 | | Execute_Immediate Run_Utility,0x8 070d 00d8 | | Load_Top At_Offset_0 070e 1c00 | | Execute_Immediate Run_Utility,0x0 070f BODY_0700: 070f e5fb | | Load 0x2,-0x5 0710 6816 |h | Jump_Zero 0x727 0711 0092 0a1d | | Action Push_String_Extended,0xa1d ; ">> Execution LIE_LIEN <<" 0713 e009 | | Load 0x0,0x9 0714 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0715 0092 0a1a | | Action Push_String_Extended,0xa1a ; ">> Parametres: " 0717 e5ff | | Load 0x2,-0x1 0718 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0719 e003 | | Load 0x0,0x3 071a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071b 01cc | | Execute Vector,Catenate 071c 0092 0a1b | | Action Push_String_Extended,0xa1b ; " , " 071e 01cc | | Execute Vector,Catenate 071f e009 | | Load 0x0,0x9 0720 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0721 e5ff | | Load 0x2,-0x1 0722 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 0723 e003 | | Load 0x0,0x3 0724 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0725 e009 | | Load 0x0,0x9 0726 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0727 e5ff | | Load 0x2,-0x1 0728 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0729 00da | | Load_Top At_Offset_2 072a 016d | m | Execute Variant_Record,Structure_Write 072b e5ff | | Load 0x2,-0x1 072c 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 072d 00d9 | | Load_Top At_Offset_1 072e 016d | m | Execute Variant_Record,Structure_Write 072f 00d9 | | Load_Top At_Offset_1 0730 e5fd | | Load 0x2,-0x3 0731 e5fc | | Load 0x2,-0x4 0732 823c | < | Call 0x1,0x3c 0733 00d1 | | Pop_Control Pop_Count_1 0734 00d8 | | Load_Top At_Offset_0 0735 e5fd | | Load 0x2,-0x3 0736 e5fc | | Load 0x2,-0x4 0737 823c | < | Call 0x1,0x3c 0738 00d1 | | Pop_Control Pop_Count_1 0739 e5fa | | Load 0x2,-0x6 073a 4801 |H | Short_Literal 0x1 073b 00da | | Load_Top At_Offset_2 073c e003 | | Load 0x0,0x3 073d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 073e e402 | | Load 0x2,0x2 073f e003 | | Load 0x0,0x3 0740 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0741 8017 | | Call 0x0,0x17 0742 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0743 0000 0000 | | .BLANK 0000[0x5] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 0757 | W | .CONST 0x0757 ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0003 | | .CONST 0x0003 ; Number of locals 074b INIT_0748: 074b 4820 |H | Short_Literal 0x20 074c e003 | | Load 0x0,0x3 074d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 074e 1c08 | | Execute_Immediate Run_Utility,0x8 074f 00d8 | | Load_Top At_Offset_0 0750 1c00 | | Execute_Immediate Run_Utility,0x0 0751 4820 |H | Short_Literal 0x20 0752 e003 | | Load 0x0,0x3 0753 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0754 1c08 | | Execute_Immediate Run_Utility,0x8 0755 00d8 | | Load_Top At_Offset_0 0756 1c00 | | Execute_Immediate Run_Utility,0x0 0757 BODY_0748: 0757 e5fb | | Load 0x2,-0x5 0758 6816 |h | Jump_Zero 0x76f 0759 0092 0a1e | | Action Push_String_Extended,0xa1e ; ">> Execution DELIE_LIEN <<" 075b e009 | | Load 0x0,0x9 075c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 075d 0092 0a1a | | Action Push_String_Extended,0xa1a ; ">> Parametres: " 075f e5ff | | Load 0x2,-0x1 0760 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0761 e003 | | Load 0x0,0x3 0762 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0763 01cc | | Execute Vector,Catenate 0764 0092 0a1b | | Action Push_String_Extended,0xa1b ; " , " 0766 01cc | | Execute Vector,Catenate 0767 e009 | | Load 0x0,0x9 0768 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0769 e5ff | | Load 0x2,-0x1 076a 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 076b e003 | | Load 0x0,0x3 076c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 076d e009 | | Load 0x0,0x9 076e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 076f e5ff | | Load 0x2,-0x1 0770 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 0771 00da | | Load_Top At_Offset_2 0772 016d | m | Execute Variant_Record,Structure_Write 0773 e5ff | | Load 0x2,-0x1 0774 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 0775 00d9 | | Load_Top At_Offset_1 0776 016d | m | Execute Variant_Record,Structure_Write 0777 00d9 | | Load_Top At_Offset_1 0778 e5fd | | Load 0x2,-0x3 0779 e5fc | | Load 0x2,-0x4 077a 823c | < | Call 0x1,0x3c 077b 00d1 | | Pop_Control Pop_Count_1 077c 00d8 | | Load_Top At_Offset_0 077d e5fd | | Load 0x2,-0x3 077e e5fc | | Load 0x2,-0x4 077f 823c | < | Call 0x1,0x3c 0780 00d1 | | Pop_Control Pop_Count_1 0781 e5fa | | Load 0x2,-0x6 0782 4802 |H | Short_Literal 0x2 0783 00da | | Load_Top At_Offset_2 0784 e003 | | Load 0x0,0x3 0785 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0786 e402 | | Load 0x2,0x2 0787 e003 | | Load 0x0,0x3 0788 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0789 8017 | | Call 0x0,0x17 078a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 078b 0000 0000 | | .BLANK 0000[0x5] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 0799 | | .CONST 0x0799 ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0002 | | .CONST 0x0002 ; Number of locals 0793 INIT_0790: 0793 4820 |H | Short_Literal 0x20 0794 e003 | | Load 0x0,0x3 0795 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0796 1c08 | | Execute_Immediate Run_Utility,0x8 0797 00d8 | | Load_Top At_Offset_0 0798 1c00 | | Execute_Immediate Run_Utility,0x0 0799 BODY_0790: 0799 e5fb | | Load 0x2,-0x5 079a 6816 |h | Jump_Zero 0x7b1 079b 0092 0a1f | | Action Push_String_Extended,0xa1f ; ">> Execution LISTE_LIEN <<" 079d e009 | | Load 0x0,0x9 079e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 079f 0092 0a1a | | Action Push_String_Extended,0xa1a ; ">> Parametres: " 07a1 e5ff | | Load 0x2,-0x1 07a2 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 07a3 e003 | | Load 0x0,0x3 07a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07a5 01cc | | Execute Vector,Catenate 07a6 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 07a8 01cc | | Execute Vector,Catenate 07a9 e5ff | | Load 0x2,-0x1 07aa 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 07ab e004 | | Load 0x0,0x4 07ac 011c | | Execute Any,Convert_Unchecked 07ad 1c01 | | Execute_Immediate Run_Utility,0x1 07ae 01cc | | Execute Vector,Catenate 07af e009 | | Load 0x0,0x9 07b0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 07b1 00db | | Load_Top At_Offset_3 07b2 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 07b3 00d9 | | Load_Top At_Offset_1 07b4 016d | m | Execute Variant_Record,Structure_Write 07b5 00d8 | | Load_Top At_Offset_0 07b6 e5fd | | Load 0x2,-0x3 07b7 e5fc | | Load 0x2,-0x4 07b8 823c | < | Call 0x1,0x3c 07b9 00d1 | | Pop_Control Pop_Count_1 07ba 00db | | Load_Top At_Offset_3 07bb 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 07bc 0f2d | - | Execute_Immediate Equal,0x2d 07bd 6807 |h | Jump_Zero 0x7c5 07be e5fa | | Load 0x2,-0x6 07bf 4801 |H | Short_Literal 0x1 07c0 00da | | Load_Top At_Offset_2 07c1 e003 | | Load 0x0,0x3 07c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07c3 8018 | | Call 0x0,0x18 07c4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07c5 e5fa | | Load 0x2,-0x6 07c6 4802 |H | Short_Literal 0x2 07c7 00da | | Load_Top At_Offset_2 07c8 e003 | | Load 0x0,0x3 07c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07ca 8018 | | Call 0x0,0x18 07cb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07cc 0000 0000 | | .BLANK 0000[0x4] 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07e5 | | .CONST 0x07e5 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0004 | | .CONST 0x0004 ; Number of locals 07d3 INIT_07d0: 07d3 4820 |H | Short_Literal 0x20 07d4 e003 | | Load 0x0,0x3 07d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07d6 1c08 | | Execute_Immediate Run_Utility,0x8 07d7 00d8 | | Load_Top At_Offset_0 07d8 1c00 | | Execute_Immediate Run_Utility,0x0 07d9 4820 |H | Short_Literal 0x20 07da e003 | | Load 0x0,0x3 07db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07dc 1c08 | | Execute_Immediate Run_Utility,0x8 07dd 00d8 | | Load_Top At_Offset_0 07de 1c00 | | Execute_Immediate Run_Utility,0x0 07df 4820 |H | Short_Literal 0x20 07e0 e003 | | Load 0x0,0x3 07e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07e2 1c08 | | Execute_Immediate Run_Utility,0x8 07e3 00d8 | | Load_Top At_Offset_0 07e4 1c00 | | Execute_Immediate Run_Utility,0x0 07e5 BODY_07d0: 07e5 e5fb | | Load 0x2,-0x5 07e6 681d |h | Jump_Zero 0x804 07e7 0092 0a20 | | Action Push_String_Extended,0xa20 ; ">> Execution ECHANGER_LIEN <<" 07e9 e009 | | Load 0x0,0x9 07ea 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 07eb 0092 0a1a | | Action Push_String_Extended,0xa1a ; ">> Parametres: " 07ed e5ff | | Load 0x2,-0x1 07ee 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 07ef e003 | | Load 0x0,0x3 07f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07f1 01cc | | Execute Vector,Catenate 07f2 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 07f4 01cc | | Execute Vector,Catenate 07f5 e5ff | | Load 0x2,-0x1 07f6 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 07f7 e003 | | Load 0x0,0x3 07f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07f9 01cc | | Execute Vector,Catenate 07fa 0092 0a02 | | Action Push_String_Extended,0xa02 ; ", " 07fc 01cc | | Execute Vector,Catenate 07fd e5ff | | Load 0x2,-0x1 07fe 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 07ff e003 | | Load 0x0,0x3 0800 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0801 01cc | | Execute Vector,Catenate 0802 e009 | | Load 0x0,0x9 0803 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0804 e5ff | | Load 0x2,-0x1 0805 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 0806 00db | | Load_Top At_Offset_3 0807 016d | m | Execute Variant_Record,Structure_Write 0808 e5ff | | Load 0x2,-0x1 0809 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 080a 00da | | Load_Top At_Offset_2 080b 016d | m | Execute Variant_Record,Structure_Write 080c e5ff | | Load 0x2,-0x1 080d 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 080e 00d9 | | Load_Top At_Offset_1 080f 016d | m | Execute Variant_Record,Structure_Write 0810 00da | | Load_Top At_Offset_2 0811 e5fd | | Load 0x2,-0x3 0812 e5fc | | Load 0x2,-0x4 0813 823c | < | Call 0x1,0x3c 0814 00d1 | | Pop_Control Pop_Count_1 0815 00d9 | | Load_Top At_Offset_1 0816 e5fd | | Load 0x2,-0x3 0817 e5fc | | Load 0x2,-0x4 0818 823c | < | Call 0x1,0x3c 0819 00d1 | | Pop_Control Pop_Count_1 081a 00d8 | | Load_Top At_Offset_0 081b e5fd | | Load 0x2,-0x3 081c e5fc | | Load 0x2,-0x4 081d 823c | < | Call 0x1,0x3c 081e 00d1 | | Pop_Control Pop_Count_1 081f e5fa | | Load 0x2,-0x6 0820 00d9 | | Load_Top At_Offset_1 0821 e003 | | Load 0x0,0x3 0822 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0823 00db | | Load_Top At_Offset_3 0824 e003 | | Load 0x0,0x3 0825 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0826 e402 | | Load 0x2,0x2 0827 e003 | | Load 0x0,0x3 0828 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0829 8019 | | Call 0x0,0x19 082a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 082b 0000 0000 | | .BLANK 0000[0x5] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0833 | 3 | .CONST 0x0833 ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0001 | | .CONST 0x0001 ; Number of locals 0833 BODY_0830: 0833 INIT_0830: 0833 e5fb | | Load 0x2,-0x5 0834 6804 |h | Jump_Zero 0x839 0835 0092 0a21 | !| Action Push_String_Extended,0xa21 ; ">> Execution AFFICHER <<" 0837 e009 | | Load 0x0,0x9 0838 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0839 e5fc | | Load 0x2,-0x4 083a e5fe | | Load 0x2,-0x2 083b e5fd | | Load 0x2,-0x3 083c e5ff | | Load 0x2,-0x1 083d 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12 083e 801a | | Call 0x0,0x1a 083f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0843 | C | .CONST 0x0843 ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0001 | | .CONST 0x0001 ; Number of locals 0843 BODY_0840: 0843 INIT_0840: 0843 00db | | Load_Top At_Offset_3 0844 6804 |h | Jump_Zero 0x849 0845 0092 0a22 | "| Action Push_String_Extended,0xa22 ; ">> Execution FIN <<" 0847 e009 | | Load 0x0,0x9 0848 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0849 4801 |H | Short_Literal 0x1 084a a5fd | | Store_Unchecked 0x2,-0x3 084b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 084c 0000 0000 | | .BLANK 0000[0x4] 0850 ; -------------------------------------------------------------------------------------- 0850 ; SUBPROGRAM 0850 ; -------------------------------------------------------------------------------------- 0850 0853 | S | .CONST 0x0853 ; Address of begin 0851 0004 | | .CONST 0x0004 ; Address of exception handler 0852 0001 | | .CONST 0x0001 ; Number of locals 0853 BODY_0850: 0853 INIT_0850: 0853 00db | | Load_Top At_Offset_3 0854 6804 |h | Jump_Zero 0x859 0855 0092 0a23 | #| Action Push_String_Extended,0xa23 ; ">> Execution VIDE <<" 0857 e009 | | Load 0x0,0x9 0858 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0859 4503 |E | Exit_Suprogram New_Top_Offset 0x3 085a 0000 0000 | | .BLANK 0000[0x6] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 e5fd | | Load 0x2,-0x3 0864 e003 | | Load 0x0,0x3 0865 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0866 e5fe | | Load 0x2,-0x2 0867 801b | | Call 0x0,0x1b 0868 00db | | Load_Top At_Offset_3 0869 e5fd | | Load 0x2,-0x3 086a e003 | | Load 0x0,0x3 086b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 086c 801c | | Call 0x0,0x1c 086d 0f00 | | Execute_Immediate Equal,0x0 086e 0278 | x | Execute Discrete,Or 086f 6829 |h) | Jump_Zero 0x899 0870 e5fd | | Load 0x2,-0x3 0871 e003 | | Load 0x0,0x3 0872 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0873 0092 0a24 | $| Action Push_String_Extended,0xa24 ; "COMP" 0875 01df | | Execute Vector,Equal 0876 6806 |h | Jump_Zero 0x87d 0877 e5fd | | Load 0x2,-0x3 0878 00db | | Load_Top At_Offset_3 0879 801d | | Call 0x0,0x1d 087a e003 | | Load 0x0,0x3 087b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 087c 00d1 | | Pop_Control Pop_Count_1 087d e5fd | | Load 0x2,-0x3 087e e003 | | Load 0x0,0x3 087f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0880 e5fe | | Load 0x2,-0x2 0881 801b | | Call 0x0,0x1b 0882 00db | | Load_Top At_Offset_3 0883 e5fd | | Load 0x2,-0x3 0884 e003 | | Load 0x0,0x3 0885 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0886 801c | | Call 0x0,0x1c 0887 0f00 | | Execute_Immediate Equal,0x0 0888 0278 | x | Execute Discrete,Or 0889 680f |h | Jump_Zero 0x899 088a e5fd | | Load 0x2,-0x3 088b e003 | | Load 0x0,0x3 088c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 088d e5fe | | Load 0x2,-0x2 088e 800e | | Call 0x0,0xe 088f 6809 |h | Jump_Zero 0x899 0890 e5fd | | Load 0x2,-0x3 0891 00d8 | | Load_Top At_Offset_0 0892 e003 | | Load 0x0,0x3 0893 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0894 e5fe | | Load 0x2,-0x2 0895 801e | | Call 0x0,0x1e 0896 e003 | | Load 0x0,0x3 0897 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0898 00d1 | | Pop_Control Pop_Count_1 0899 4503 |E | Exit_Suprogram New_Top_Offset 0x3 089a 0000 0000 | | .BLANK 0000[0x6] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 00da | | Load_Top At_Offset_2 08a4 0227 | ' | Execute Access,All_Reference 08a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08a6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08a7 460b |F | Jump_Case 0xc 08a8 7812 |x | Jump 0x8bb ; case 0x0 08a9 7833 |x3 | Jump 0x8dd ; case 0x1 08aa 7854 |xT | Jump 0x8ff ; case 0x2 08ab 7808 |x | Jump 0x8b4 ; case 0x3 08ac 7807 |x | Jump 0x8b4 ; case 0x4 08ad 7806 |x | Jump 0x8b4 ; case 0x5 08ae 7805 |x | Jump 0x8b4 ; case 0x6 08af 7804 |x | Jump 0x8b4 ; case 0x7 08b0 7803 |x | Jump 0x8b4 ; case 0x8 08b1 783b |x; | Jump 0x8ed ; case 0x9 08b2 7801 |x | Jump 0x8b4 ; case 0xa 08b3 7800 |x | Jump 0x8b4 ; case 0xb 08b4 00da | | Load_Top At_Offset_2 08b5 e222 | " | Load 0x1,0x22 08b6 e223 | # | Load 0x1,0x23 08b7 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08b8 8006 | | Call 0x0,0x6 08b9 003b | ; | Store_Top Access,At_Offset_3 08ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08bb 00da | | Load_Top At_Offset_2 08bc 0229 | ) | Execute Access,All_Read 08bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08be 00d8 | | Load_Top At_Offset_0 08bf 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 08c0 801f | | Call 0x0,0x1f 08c1 00d9 | | Load_Top At_Offset_1 08c2 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 08c3 00d1 | | Pop_Control Pop_Count_1 08c4 00da | | Load_Top At_Offset_2 08c5 0229 | ) | Execute Access,All_Read 08c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08c7 00d8 | | Load_Top At_Offset_0 08c8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 08c9 820f | | Call 0x1,0xf 08ca 00d9 | | Load_Top At_Offset_1 08cb 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 08cc 00d1 | | Pop_Control Pop_Count_1 08cd 00da | | Load_Top At_Offset_2 08ce 0229 | ) | Execute Access,All_Read 08cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08d0 00d8 | | Load_Top At_Offset_0 08d1 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 08d2 820f | | Call 0x1,0xf 08d3 00d9 | | Load_Top At_Offset_1 08d4 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 08d5 00d1 | | Pop_Control Pop_Count_1 08d6 00da | | Load_Top At_Offset_2 08d7 e222 | " | Load 0x1,0x22 08d8 e223 | # | Load 0x1,0x23 08d9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08da 8006 | | Call 0x0,0x6 08db 003b | ; | Store_Top Access,At_Offset_3 08dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08dd 00da | | Load_Top At_Offset_2 08de 0229 | ) | Execute Access,All_Read 08df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08e0 00d8 | | Load_Top At_Offset_0 08e1 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 08e2 820f | | Call 0x1,0xf 08e3 00d9 | | Load_Top At_Offset_1 08e4 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 08e5 00d1 | | Pop_Control Pop_Count_1 08e6 00da | | Load_Top At_Offset_2 08e7 e222 | " | Load 0x1,0x22 08e8 e223 | # | Load 0x1,0x23 08e9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08ea 8006 | | Call 0x0,0x6 08eb 003b | ; | Store_Top Access,At_Offset_3 08ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08ed 00da | | Load_Top At_Offset_2 08ee 0229 | ) | Execute Access,All_Read 08ef 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08f0 00d8 | | Load_Top At_Offset_0 08f1 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12 08f2 00d8 | | Load_Top At_Offset_0 08f3 00d8 | | Load_Top At_Offset_0 08f4 8020 | | Call 0x0,0x20 08f5 00d2 | | Pop_Control Pop_Count_2 08f6 00d0 | | Action Swap_Control 08f7 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12 08f8 00da | | Load_Top At_Offset_2 08f9 e222 | " | Load 0x1,0x22 08fa e223 | # | Load 0x1,0x23 08fb 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 08fc 8006 | | Call 0x0,0x6 08fd 003b | ; | Store_Top Access,At_Offset_3 08fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08ff 00da | | Load_Top At_Offset_2 0900 0229 | ) | Execute Access,All_Read 0901 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0902 00d8 | | Load_Top At_Offset_0 0903 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0904 801f | | Call 0x0,0x1f 0905 00d9 | | Load_Top At_Offset_1 0906 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 0907 00d1 | | Pop_Control Pop_Count_1 0908 00da | | Load_Top At_Offset_2 0909 e222 | " | Load 0x1,0x22 090a e223 | # | Load 0x1,0x23 090b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 090c 8006 | | Call 0x0,0x6 090d 003b | ; | Store_Top Access,At_Offset_3 090e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 090f 0000 | | .XXX[0x1] 0910 ; -------------------------------------------------------------------------------------- 0910 ; SUBPROGRAM 0910 ; -------------------------------------------------------------------------------------- 0910 0913 | | .CONST 0x0913 ; Address of begin 0911 0004 | | .CONST 0x0004 ; Address of exception handler 0912 0001 | | .CONST 0x0001 ; Number of locals 0913 BODY_0910: 0913 INIT_0910: 0913 4609 |F | Jump_Case 0xa 0914 7809 |x | Jump 0x91e ; case 0x0 0915 7854 |xT | Jump 0x96a ; case 0x1 0916 7872 |xr | Jump 0x989 ; case 0x2 0917 7875 |xu | Jump 0x98d ; case 0x3 0918 78c6 |x | Jump 0x9df ; case 0x4 0919 78c5 |x | Jump 0x9df ; case 0x5 091a 7878 |xx | Jump 0x993 ; case 0x6 091b 7895 |x | Jump 0x9b1 ; case 0x7 091c 78b7 |x | Jump 0x9d4 ; case 0x8 091d 78bd |x | Jump 0x9db ; case 0x9 091e 00da | | Load_Top At_Offset_2 091f 016c | l | Execute Variant_Record,Is_Constrained 0920 7009 |p | Jump_Nonzero 0x92a 0921 00cf | | Action Mark_Auxiliary 0922 480b |H | Short_Literal 0xb 0923 e5ff | | Load 0x2,-0x1 0924 1c08 | | Execute_Immediate Run_Utility,0x8 0925 00d8 | | Load_Top At_Offset_0 0926 1c00 | | Execute_Immediate Run_Utility,0x0 0927 c5ff | | Store 0x2,-0x1 0928 00ce | | Action Pop_Auxiliary 0929 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 092a 00da | | Load_Top At_Offset_2 092b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 092c 00db | | Load_Top At_Offset_3 092d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 092e 00da | | Load_Top At_Offset_2 092f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0930 460b |F | Jump_Case 0xc 0931 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0932 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0933 780a |x | Jump 0x93e ; case 0x2 0934 7814 |x | Jump 0x949 ; case 0x3 0935 7813 |x | Jump 0x949 ; case 0x4 0936 7812 |x | Jump 0x949 ; case 0x5 0937 7811 |x | Jump 0x949 ; case 0x6 0938 781b |x | Jump 0x954 ; case 0x7 0939 7820 |x | Jump 0x95a ; case 0x8 093a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 093b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa 093c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb 093d 4302 |C | .XXX[0x1] 093e 00da | | Load_Top At_Offset_2 093f 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8 0940 00da | | Load_Top At_Offset_2 0941 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0942 1c00 | | Execute_Immediate Run_Utility,0x0 0943 00da | | Load_Top At_Offset_2 0944 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9 0945 00da | | Load_Top At_Offset_2 0946 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0947 1c00 | | Execute_Immediate Run_Utility,0x0 0948 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0949 00da | | Load_Top At_Offset_2 094a 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb 094b 00da | | Load_Top At_Offset_2 094c 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb 094d 1c00 | | Execute_Immediate Run_Utility,0x0 094e 00da | | Load_Top At_Offset_2 094f 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc 0950 00da | | Load_Top At_Offset_2 0951 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc 0952 1c00 | | Execute_Immediate Run_Utility,0x0 0953 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0954 00da | | Load_Top At_Offset_2 0955 220d |" | Execute Variant_Record,Field_Constrain,Field_Number 0xd 0956 00da | | Load_Top At_Offset_2 0957 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd 0958 1c00 | | Execute_Immediate Run_Utility,0x0 0959 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 095a 00da | | Load_Top At_Offset_2 095b 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf 095c 00da | | Load_Top At_Offset_2 095d 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf 095e 1c00 | | Execute_Immediate Run_Utility,0x0 095f 00da | | Load_Top At_Offset_2 0960 2210 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x10 0961 00da | | Load_Top At_Offset_2 0962 2610 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10 0963 1c00 | | Execute_Immediate Run_Utility,0x0 0964 00da | | Load_Top At_Offset_2 0965 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11 0966 00da | | Load_Top At_Offset_2 0967 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11 0968 1c00 | | Execute_Immediate Run_Utility,0x0 0969 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 096a 00da | | Load_Top At_Offset_2 096b 016b | k | Execute Variant_Record,Read_Variant 096c 00d8 | | Load_Top At_Offset_0 096d 0f03 | | Execute_Immediate Equal,0x3 096e 6804 |h | Jump_Zero 0x973 096f 00db | | Load_Top At_Offset_3 0970 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8 0971 00db | | Load_Top At_Offset_3 0972 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9 0973 00d8 | | Load_Top At_Offset_0 0974 0f04 | | Execute_Immediate Equal,0x4 0975 6804 |h | Jump_Zero 0x97a 0976 00db | | Load_Top At_Offset_3 0977 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb 0978 00db | | Load_Top At_Offset_3 0979 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc 097a 00d8 | | Load_Top At_Offset_0 097b 0f05 | | Execute_Immediate Equal,0x5 097c 6802 |h | Jump_Zero 0x97f 097d 00db | | Load_Top At_Offset_3 097e 220d |" | Execute Variant_Record,Field_Constrain,Field_Number 0xd 097f 00d8 | | Load_Top At_Offset_0 0980 0f06 | | Execute_Immediate Equal,0x6 0981 6806 |h | Jump_Zero 0x988 0982 00db | | Load_Top At_Offset_3 0983 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf 0984 00db | | Load_Top At_Offset_3 0985 2210 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x10 0986 00db | | Load_Top At_Offset_3 0987 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11 0988 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0989 4801 |H | Short_Literal 0x1 098a 4812 |H | Short_Literal 0x12 098b 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 098c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 098d e5fd | | Load 0x2,-0x3 098e 00db | | Load_Top At_Offset_3 098f 1c07 | | Execute_Immediate Run_Utility,0x7 0990 e5fe | | Load 0x2,-0x2 0991 0306 | | Complete_Type Variant_Record,By_Renaming 0992 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0993 00db | | Load_Top At_Offset_3 0994 460b |F | Jump_Case 0xc 0995 780d |x | Jump 0x9a3 ; case 0x0 0996 780e |x | Jump 0x9a5 ; case 0x1 0997 780f |x | Jump 0x9a7 ; case 0x2 0998 7810 |x | Jump 0x9a9 ; case 0x3 0999 780f |x | Jump 0x9a9 ; case 0x4 099a 780e |x | Jump 0x9a9 ; case 0x5 099b 780d |x | Jump 0x9a9 ; case 0x6 099c 780e |x | Jump 0x9ab ; case 0x7 099d 780f |x | Jump 0x9ad ; case 0x8 099e 7810 |x | Jump 0x9af ; case 0x9 099f 7801 |x | Jump 0x9a1 ; case 0xa 09a0 7800 |x | Jump 0x9a1 ; case 0xb 09a1 48ff |H | Short_Literal 0xff 09a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a3 4801 |H | Short_Literal 0x1 09a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a5 4802 |H | Short_Literal 0x2 09a6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a7 4803 |H | Short_Literal 0x3 09a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09a9 4804 |H | Short_Literal 0x4 09aa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09ab 4805 |H | Short_Literal 0x5 09ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09ad 4806 |H | Short_Literal 0x6 09ae 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09af 4807 |H | Short_Literal 0x7 09b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09b1 00db | | Load_Top At_Offset_3 09b2 e5fe | | Load 0x2,-0x2 09b3 460b |F | Jump_Case 0xc 09b4 780d |x | Jump 0x9c2 ; case 0x0 09b5 780e |x | Jump 0x9c4 ; case 0x1 09b6 780f |x | Jump 0x9c6 ; case 0x2 09b7 7810 |x | Jump 0x9c8 ; case 0x3 09b8 780f |x | Jump 0x9c8 ; case 0x4 09b9 780e |x | Jump 0x9c8 ; case 0x5 09ba 780d |x | Jump 0x9c8 ; case 0x6 09bb 780e |x | Jump 0x9ca ; case 0x7 09bc 780f |x | Jump 0x9cc ; case 0x8 09bd 7810 |x | Jump 0x9ce ; case 0x9 09be 7811 |x | Jump 0x9d0 ; case 0xa 09bf 7800 |x | Jump 0x9c0 ; case 0xb 09c0 48ff |H | Short_Literal 0xff 09c1 780f |x | Jump 0x9d1 09c2 4801 |H | Short_Literal 0x1 09c3 780d |x | Jump 0x9d1 09c4 4802 |H | Short_Literal 0x2 09c5 780b |x | Jump 0x9d1 09c6 4803 |H | Short_Literal 0x3 09c7 7809 |x | Jump 0x9d1 09c8 4804 |H | Short_Literal 0x4 09c9 7807 |x | Jump 0x9d1 09ca 4805 |H | Short_Literal 0x5 09cb 7805 |x | Jump 0x9d1 09cc 4806 |H | Short_Literal 0x6 09cd 7803 |x | Jump 0x9d1 09ce 4807 |H | Short_Literal 0x7 09cf 7801 |x | Jump 0x9d1 09d0 48ff |H | Short_Literal 0xff 09d1 e5ff | | Load 0x2,-0x1 09d2 031b | | Declare_Type Variant_Record,Constrained 09d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09d4 00db | | Load_Top At_Offset_3 09d5 e5fe | | Load 0x2,-0x2 09d6 e5ff | | Load 0x2,-0x1 09d7 1c06 | | Execute_Immediate Run_Utility,0x6 09d8 e5ff | | Load 0x2,-0x1 09d9 02fc | | Declare_Variable Variant_Record,With_Constraint 09da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09db 480b |H | Short_Literal 0xb 09dc 00db | | Load_Top At_Offset_3 09dd 1c07 | | Execute_Immediate Run_Utility,0x7 09de 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 09df 0869 | i | Execute_Immediate Raise,0x69 09e0 ; -------------------------------------------------------------------------------------- 09e0 ; SUBPROGRAM 09e0 ; -------------------------------------------------------------------------------------- 09e0 09e3 | | .CONST 0x09e3 ; Address of begin 09e1 0004 | | .CONST 0x0004 ; Address of exception handler 09e2 0001 | | .CONST 0x0001 ; Number of locals 09e3 BODY_09e0: 09e3 INIT_09e0: 09e3 4601 |F | Jump_Case 0x2 09e4 7801 |x | Jump 0x9e6 ; case 0x0 09e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 09e6 00da | | Load_Top At_Offset_2 09e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 09e8 1c00 | | Execute_Immediate Run_Utility,0x0 09e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 09ea ; -------------------------------------------------------------------------------------- 09ea ; STRING TABLE 09ea ; -------------------------------------------------------------------------------------- 09ea 0078 | x | .STRTAB 0x0078->0x0a26 ; "SI_ALORS_SINON" 09eb 0084 | | .STRTAB 0x0084->0x0a2d ; "POUR_FAIRE" 09ec 008c | | .STRTAB 0x008c->0x0a32 ; "AFFECTATION" 09ed 0095 | | .STRTAB 0x0095->0x0a37 ; "LIE_CONNEXION" 09ee 00a0 | | .STRTAB 0x00a0->0x0a3e ; "DELIE_CONNEXION" 09ef 00ad | | .STRTAB 0x00ad->0x0a45 ; "LIE_LIEN" 09f0 00b3 | | .STRTAB 0x00b3->0x0a49 ; "DELIE_LIEN" 09f1 00bb | | .STRTAB 0x00bb->0x0a4e ; "LISTE_LIEN" 09f2 00c3 | | .STRTAB 0x00c3->0x0a53 ; "ECHANGER_LIEN" 09f3 00ce | | .STRTAB 0x00ce->0x0a5a ; "AFFICHER" 09f4 00d4 | | .STRTAB 0x00d4->0x0a5e ; "FIN" 09f5 00d5 | | .STRTAB 0x00d5->0x0a5f ; "VIDE" 09f6 00d7 | | .STRTAB 0x00d7->0x0a61 ; " " 09f7 00d6 | | .STRTAB 0x00d6->0x0a62 ; "-- Vide" 09f8 00db | | .STRTAB 0x00db->0x0a65 ; "SI" 09f9 00db | | .STRTAB 0x00db->0x0a66 ; "ALORS" 09fa 00de | | .STRTAB 0x00de->0x0a69 ; "SINON" 09fb 00e1 | | .STRTAB 0x00e1->0x0a6b ; "FIN_SI" 09fc 00e5 | | .STRTAB 0x00e5->0x0a6e ; "POUR " 09fd 00e8 | | .STRTAB 0x00e8->0x0a71 ; " ENTREE FAIRE " 09fe 00f4 | | .STRTAB 0x00f4->0x0a78 ; "FIN_POUR" 09ff 00fa | | .STRTAB 0x00fa->0x0a7c ; "." 0a00 00f9 | | .STRTAB 0x00f9->0x0a7c ; " = " 0a01 00fa | | .STRTAB 0x00fa->0x0a7e ; "LIE_CONNEXION ( " 0a02 0108 | | .STRTAB 0x0108->0x0a86 ; ", " 0a03 0108 | | .STRTAB 0x0108->0x0a87 ; " )" 0a04 0108 | | .STRTAB 0x0108->0x0a88 ; "DELIE_CONNEXION ( " 0a05 0118 | | .STRTAB 0x0118->0x0a91 ; "LIE_LIEN ( " 0a06 0121 | ! | .STRTAB 0x0121->0x0a96 ; "DELIE_LIEN ( " 0a07 012c | , | .STRTAB 0x012c->0x0a9d ; "LISTE_LIEN ( " 0a08 0137 | 7 | .STRTAB 0x0137->0x0aa3 ; "ECHANGER_LIEN ( " 0a09 0145 | E | .STRTAB 0x0145->0x0aab ; " -- Afficher -- " 0a0a 0153 | S | .STRTAB 0x0153->0x0ab3 ; ">> Execution SI <<" 0a0b 0163 | c | .STRTAB 0x0163->0x0abc ; ">> Condition:" 0a0c 016e | n | .STRTAB 0x016e->0x0ac3 ; ">> Execution ALORS <<" 0a0d 0181 | | .STRTAB 0x0181->0x0acd ; ">> Execution SINON <<" 0a0e 0194 | | .STRTAB 0x0194->0x0ad8 ; ">> FIN SI <<" 0a0f 019e | | .STRTAB 0x019e->0x0ade ; ">> Execution POUR (" 0a10 01af | | .STRTAB 0x01af->0x0ae7 ; ")" 0a11 01ae | | .STRTAB 0x01ae->0x0ae8 ; ">> FIN POUR <<" 0a12 01ba | | .STRTAB 0x01ba->0x0aef ; ">> Execution AFFECTATION <<" 0a13 01d3 | | .STRTAB 0x01d3->0x0afc ; " := " 0a14 01d5 | | .STRTAB 0x01d5->0x0afe ; "Manque l'extension pour l'acces a la variable !!!" 0a15 0204 | | .STRTAB 0x0204->0x0b17 ; "ENTIER" 0a16 0208 | | .STRTAB 0x0208->0x0b1a ; "ENUMERE" 0a17 020d | | .STRTAB 0x020d->0x0b1d ; "BOOLEEN" 0a18 0212 | | .STRTAB 0x0212->0x0b21 ; "Affectation non valide !!!" 0a19 022a | * | .STRTAB 0x022a->0x0b2e ; ">> Execution LIE_CONNEXION <<" 0a1a 0245 | E | .STRTAB 0x0245->0x0b3c ; ">> Parametres: " 0a1b 0252 | R | .STRTAB 0x0252->0x0b44 ; " , " 0a1c 0253 | S | .STRTAB 0x0253->0x0b45 ; ">> Execution DELIE_CONNEXION <<" 0a1d 0270 | p | .STRTAB 0x0270->0x0b55 ; ">> Execution LIE_LIEN <<" 0a1e 0286 | | .STRTAB 0x0286->0x0b61 ; ">> Execution DELIE_LIEN <<" 0a1f 029e | | .STRTAB 0x029e->0x0b6e ; ">> Execution LISTE_LIEN <<" 0a20 02b6 | | .STRTAB 0x02b6->0x0b7b ; ">> Execution ECHANGER_LIEN <<" 0a21 02d1 | | .STRTAB 0x02d1->0x0b89 ; ">> Execution AFFICHER <<" 0a22 02e7 | | .STRTAB 0x02e7->0x0b95 ; ">> Execution FIN <<" 0a23 02f8 | | .STRTAB 0x02f8->0x0b9f ; ">> Execution VIDE <<" 0a24 030a | | .STRTAB 0x030a->0x0ba9 ; "COMP" 0a25 030c | | .STREND 0x030c->0x0bab 0a26 5349 5f41 |SI_A| .STRTAB_STRINGS 0bab 0000 0000 | | .BLANK 0000[0x5] 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 ; Debug Table 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd854,0x0000,0x0001,0x002d 0bb6 000b 0c6a | j| .DBG4T 0x000b,0x0c6a,0x8000,0x8000 0bba 0080 0c96 | | .DBG4T 0x0080,0x0c96,0x8000,0x8000 0bbe 00fb 0d02 | | .DBG4T 0x00fb,0x0d02,0x0002,0x0000 0bc2 0103 0d05 | | .DBG4T 0x0103,0x0d05,0x0001,0x4000 0bc6 011b 0d12 | | .DBG4T 0x011b,0x0d12,0x0001,0x0000 0bca 0133 0d1a | 3 | .DBG4T 0x0133,0x0d1a,0x0001,0x4000 0bce 01e3 0d52 | R| .DBG4T 0x01e3,0x0d52,0x0002,0x0000 0bd2 0203 0d5d | ]| .DBG4T 0x0203,0x0d5d,0x0002,0x0000 0bd6 0223 0d66 | # f| .DBG4T 0x0223,0x0d66,0x0002,0x0000 0bda 0243 0d70 | C p| .DBG4T 0x0243,0x0d70,0x0002,0x0000 0bde 0263 0d79 | c y| .DBG4T 0x0263,0x0d79,0x0002,0x0000 0be2 0283 0d82 | | .DBG4T 0x0283,0x0d82,0x0002,0x0000 0be6 02a3 0d8b | | .DBG4T 0x02a3,0x0d8b,0x0002,0x0000 0bea 02c3 0d94 | | .DBG4T 0x02c3,0x0d94,0x0002,0x0000 0bee 02e3 0d9e | | .DBG4T 0x02e3,0x0d9e,0x0002,0x0000 0bf2 0303 0da7 | | .DBG4T 0x0303,0x0da7,0x0002,0x0000 0bf6 031b 0daf | | .DBG4T 0x031b,0x0daf,0x0002,0x0000 0bfa 0333 0db6 | 3 | .DBG4T 0x0333,0x0db6,0x0002,0x0000 0bfe 034b 0dbd | K | .DBG4T 0x034b,0x0dbd,0x0001,0x0000 0c02 0353 0000 | S | .DBG4T 0x0353,0x0000,0x0005,0x0000 0c06 037b 0dc0 | { | .DBG4T 0x037b,0x0dc0,0x0002,0x4000 0c0a 039b 0dd2 | | .DBG4T 0x039b,0x0dd2,0x0001,0x0000 0c0e 03b3 0dd7 | | .DBG4T 0x03b3,0x0dd7,0x0002,0x0000 0c12 03bb 0dda | | .DBG4T 0x03bb,0x0dda,0x0001,0x0000 0c16 03cb 0dde | | .DBG4T 0x03cb,0x0dde,0x0002,0x0000 0c1a 03d3 0de1 | | .DBG4T 0x03d3,0x0de1,0x0002,0x0000 0c1e 03db 0de4 | | .DBG4T 0x03db,0x0de4,0x0002,0x0000 0c22 03eb 0de9 | | .DBG4T 0x03eb,0x0de9,0x0001,0x0000 0c26 03fb 0ded | | .DBG4T 0x03fb,0x0ded,0x0001,0x4000 0c2a 054b 0e4b | K K| .DBG4T 0x054b,0x0e4b,0x0001,0x0000 0c2e 059b 0e5c | \| .DBG4T 0x059b,0x0e5c,0x0001,0x0000 0c32 05cb 0e64 | d| .DBG4T 0x05cb,0x0e64,0x0001,0x0000 0c36 0673 0e7a | s z| .DBG4T 0x0673,0x0e7a,0x0001,0x0000 0c3a 06bb 0e86 | | .DBG4T 0x06bb,0x0e86,0x0001,0x0000 0c3e 0703 0e92 | | .DBG4T 0x0703,0x0e92,0x0001,0x0000 0c42 074b 0e9e | K | .DBG4T 0x074b,0x0e9e,0x0001,0x0000 0c46 0793 0eaa | | .DBG4T 0x0793,0x0eaa,0x0001,0x0000 0c4a 07d3 0eb5 | | .DBG4T 0x07d3,0x0eb5,0x0001,0x0000 0c4e 0833 0ec2 | 3 | .DBG4T 0x0833,0x0ec2,0x0001,0x0000 0c52 0843 0ec7 | C | .DBG4T 0x0843,0x0ec7,0x0001,0x0000 0c56 0853 0ecc | S | .DBG4T 0x0853,0x0ecc,0x0001,0x0000 0c5a 0863 0ed0 | c | .DBG4T 0x0863,0x0ed0,0x0001,0x0000 0c5e 08a3 0ed8 | | .DBG4T 0x08a3,0x0ed8,0x0001,0x4000 0c62 0913 0000 | | .DBG4T 0x0913,0x0000,0x0005,0x0000 0c66 09e3 0000 | | .DBG4T 0x09e3,0x0000,0x0005,0x0000 0c6a ; -------------------------------------------------------------------------------------- 0c6a ; Debug chain 0c6a ; -------------------------------------------------------------------------------------- 0c6a 0015 0000 | | .DBGLEN 0x0015,0x0000 0c6c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0034,0x0075 0c81 0001 0002 | | .XXX[0x15] 0c83 0003 0004 | | 0c85 0005 0006 | | 0c87 0007 0008 | | 0c89 0009 000a | | 0c8b 000b 000c | | 0c8d 000d 000e | | 0c8f 000f 0010 | | 0c91 0011 0012 | | 0c93 0013 0014 | | 0c95 0017 | | 0c96 ; -------------------------------------------------------------------------------------- 0c96 ; Debug chain 0c96 ; -------------------------------------------------------------------------------------- 0c96 0035 0000 | 5 | .DBGLEN 0x0035,0x0000 0c98 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 0ccd 0001 0003 | | .XXX[0x35] 0ccf 0004 0005 | | 0cd1 0006 0007 | | 0cd3 0008 0009 | | 0cd5 000a 000b | | 0cd7 000c 000d | | 0cd9 000e 000f | | 0cdb 0010 0011 | | 0cdd 0012 0013 | | 0cdf 0014 0015 | | 0ce1 0016 0017 | | 0ce3 0018 0019 | | 0ce5 001a 001b | | 0ce7 001c 001d | | 0ce9 001e 001f | | 0ceb 0020 0021 | !| 0ced 0022 0023 | " #| 0cef 0024 0025 | $ %| 0cf1 0026 0027 | & '| 0cf3 0028 0029 | ( )| 0cf5 002a 002b | * +| 0cf7 002c 002d | , -| 0cf9 002e 002f | . /| 0cfb 0030 0031 | 0 1| 0cfd 0032 0033 | 2 3| 0cff 0034 0035 | 4 5| 0d01 0036 | 6 | 0d02 ; -------------------------------------------------------------------------------------- 0d02 ; Debug chain 0d02 ; -------------------------------------------------------------------------------------- 0d02 0000 0001 | | .DBGLEN 0x0000,0x0001 0d04 00fb | | .DBGLNO 0x00fb 0d05 ; -------------------------------------------------------------------------------------- 0d05 ; Debug chain 0d05 ; -------------------------------------------------------------------------------------- 0d05 0001 0005 | | .DBGLEN 0x0001,0x0005 0d07 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0109,0x010d,0x0110,0x0113 0d0d 0001 0003 | | .XXX[0x5] 0d0f 0004 0005 | | 0d11 0002 | | 0d12 ; -------------------------------------------------------------------------------------- 0d12 ; Debug chain 0d12 ; -------------------------------------------------------------------------------------- 0d12 0001 0005 | | .DBGLEN 0x0001,0x0005 0d14 011b 011d | | .DBGLNO 0x011b,0x011d,0x011f,0x0121,0x0122,0x0125 0d1a ; -------------------------------------------------------------------------------------- 0d1a ; Debug chain 0d1a ; -------------------------------------------------------------------------------------- 0d1a 0002 001a | | .DBGLEN 0x0002,0x001a 0d1c 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 0d38 0001 0003 | | .XXX[0x1a] 0d3a 0004 0019 | | 0d3c 0005 0006 | | 0d3e 0007 0008 | | 0d40 0009 000a | | 0d42 000b 000c | | 0d44 000d 000e | | 0d46 000f 0010 | | 0d48 0011 0012 | | 0d4a 0013 0014 | | 0d4c 0015 0016 | | 0d4e 0017 0018 | | 0d50 001a 0002 | | 0d52 ; -------------------------------------------------------------------------------------- 0d52 ; Debug chain 0d52 ; -------------------------------------------------------------------------------------- 0d52 0002 0007 | | .DBGLEN 0x0002,0x0007 0d54 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5,0x01ea,0x01ec,0x01ef,0x01f2,0x01f5,0x01f8,0x01fc 0d5d ; -------------------------------------------------------------------------------------- 0d5d ; Debug chain 0d5d ; -------------------------------------------------------------------------------------- 0d5d 0002 0005 | | .DBGLEN 0x0002,0x0005 0d5f 0203 0205 | | .DBGLNO 0x0203,0x0205,0x020a,0x020d,0x0210,0x0213,0x0217 0d66 ; -------------------------------------------------------------------------------------- 0d66 ; Debug chain 0d66 ; -------------------------------------------------------------------------------------- 0d66 0002 0006 | | .DBGLEN 0x0002,0x0006 0d68 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x022a,0x022d,0x0230,0x0233,0x0236,0x023a 0d70 ; -------------------------------------------------------------------------------------- 0d70 ; Debug chain 0d70 ; -------------------------------------------------------------------------------------- 0d70 0002 0005 | | .DBGLEN 0x0002,0x0005 0d72 0243 0245 | C E| .DBGLNO 0x0243,0x0245,0x024a,0x024d,0x0250,0x0253,0x0257 0d79 ; -------------------------------------------------------------------------------------- 0d79 ; Debug chain 0d79 ; -------------------------------------------------------------------------------------- 0d79 0002 0005 | | .DBGLEN 0x0002,0x0005 0d7b 0263 0265 | c e| .DBGLNO 0x0263,0x0265,0x026a,0x026d,0x0270,0x0273,0x0277 0d82 ; -------------------------------------------------------------------------------------- 0d82 ; Debug chain 0d82 ; -------------------------------------------------------------------------------------- 0d82 0002 0005 | | .DBGLEN 0x0002,0x0005 0d84 0283 0285 | | .DBGLNO 0x0283,0x0285,0x028a,0x028d,0x0290,0x0293,0x0297 0d8b ; -------------------------------------------------------------------------------------- 0d8b ; Debug chain 0d8b ; -------------------------------------------------------------------------------------- 0d8b 0002 0005 | | .DBGLEN 0x0002,0x0005 0d8d 02a3 02a5 | | .DBGLNO 0x02a3,0x02a5,0x02aa,0x02ad,0x02b0,0x02b3,0x02b7 0d94 ; -------------------------------------------------------------------------------------- 0d94 ; Debug chain 0d94 ; -------------------------------------------------------------------------------------- 0d94 0002 0006 | | .DBGLEN 0x0002,0x0006 0d96 02c3 02c5 | | .DBGLNO 0x02c3,0x02c5,0x02ca,0x02cd,0x02d0,0x02d3,0x02d6,0x02da 0d9e ; -------------------------------------------------------------------------------------- 0d9e ; Debug chain 0d9e ; -------------------------------------------------------------------------------------- 0d9e 0002 0005 | | .DBGLEN 0x0002,0x0005 0da0 02e3 02e5 | | .DBGLNO 0x02e3,0x02e5,0x02ea,0x02ed,0x02f0,0x02f3,0x02f7 0da7 ; -------------------------------------------------------------------------------------- 0da7 ; Debug chain 0da7 ; -------------------------------------------------------------------------------------- 0da7 0002 0004 | | .DBGLEN 0x0002,0x0004 0da9 0303 0305 | | .DBGLNO 0x0303,0x0305,0x030a,0x030d,0x0310,0x0314 0daf ; -------------------------------------------------------------------------------------- 0daf ; Debug chain 0daf ; -------------------------------------------------------------------------------------- 0daf 0002 0003 | | .DBGLEN 0x0002,0x0003 0db1 031b 031d | | .DBGLNO 0x031b,0x031d,0x0322,0x0325,0x0329 0db6 ; -------------------------------------------------------------------------------------- 0db6 ; Debug chain 0db6 ; -------------------------------------------------------------------------------------- 0db6 0002 0003 | | .DBGLEN 0x0002,0x0003 0db8 0333 0335 | 3 5| .DBGLNO 0x0333,0x0335,0x033a,0x033d,0x0341 0dbd ; -------------------------------------------------------------------------------------- 0dbd ; Debug chain 0dbd ; -------------------------------------------------------------------------------------- 0dbd 0000 0001 | | .DBGLEN 0x0000,0x0001 0dbf 034b | K | .DBGLNO 0x034b 0dc0 ; -------------------------------------------------------------------------------------- 0dc0 ; Debug chain 0dc0 ; -------------------------------------------------------------------------------------- 0dc0 0002 0007 | | .DBGLEN 0x0002,0x0007 0dc2 037b 037d | { }| .DBGLNO 0x037b,0x037d,0x037f,0x0381,0x0383,0x0387,0x0389,0x038e,0x0391 0dcb 0001 0002 | | .XXX[0x7] 0dcd 0003 0005 | | 0dcf 0006 0004 | | 0dd1 0007 | | 0dd2 ; -------------------------------------------------------------------------------------- 0dd2 ; Debug chain 0dd2 ; -------------------------------------------------------------------------------------- 0dd2 0001 0002 | | .DBGLEN 0x0001,0x0002 0dd4 039b 039d | | .DBGLNO 0x039b,0x039d,0x03a8 0dd7 ; -------------------------------------------------------------------------------------- 0dd7 ; Debug chain 0dd7 ; -------------------------------------------------------------------------------------- 0dd7 0000 0001 | | .DBGLEN 0x0000,0x0001 0dd9 03b3 | | .DBGLNO 0x03b3 0dda ; -------------------------------------------------------------------------------------- 0dda ; Debug chain 0dda ; -------------------------------------------------------------------------------------- 0dda 0000 0002 | | .DBGLEN 0x0000,0x0002 0ddc 03bb 03bd | | .DBGLNO 0x03bb,0x03bd 0dde ; -------------------------------------------------------------------------------------- 0dde ; Debug chain 0dde ; -------------------------------------------------------------------------------------- 0dde 0000 0001 | | .DBGLEN 0x0000,0x0001 0de0 03cb | | .DBGLNO 0x03cb 0de1 ; -------------------------------------------------------------------------------------- 0de1 ; Debug chain 0de1 ; -------------------------------------------------------------------------------------- 0de1 0000 0001 | | .DBGLEN 0x0000,0x0001 0de3 03d3 | | .DBGLNO 0x03d3 0de4 ; -------------------------------------------------------------------------------------- 0de4 ; Debug chain 0de4 ; -------------------------------------------------------------------------------------- 0de4 0001 0002 | | .DBGLEN 0x0001,0x0002 0de6 03db 03dd | | .DBGLNO 0x03db,0x03dd,0x03df 0de9 ; -------------------------------------------------------------------------------------- 0de9 ; Debug chain 0de9 ; -------------------------------------------------------------------------------------- 0de9 0000 0002 | | .DBGLEN 0x0000,0x0002 0deb 03ec 03f0 | | .DBGLNO 0x03ec,0x03f0 0ded ; -------------------------------------------------------------------------------------- 0ded ; Debug chain 0ded ; -------------------------------------------------------------------------------------- 0ded 0002 002d | -| .DBGLEN 0x0002,0x002d 0def 03fb 03fd | | .DBGLNO 0x03fb,0x03fd,0x0401,0x0406,0x040a,0x0419,0x041b,0x0420,0x0422,0x0426,0x0430,0x0432,0x0436,0x0440,0x0442,0x0446,0x0450,0x0452,0x0457,0x0459,0x0465,0x046f,0x0471,0x0476,0x0478,0x047e,0x0484,0x048d,0x0491,0x049c,0x049e,0x04b3,0x04b5,0x04ca,0x04cc,0x04e1,0x04e3,0x04f8,0x04fa,0x0510,0x0512,0x052f,0x0531,0x0536,0x0538,0x053c,0x0540 0e1e 0001 0003 | | .XXX[0x2d] 0e20 0004 002b | +| 0e22 002c 0005 | , | 0e24 0006 0007 | | 0e26 0008 0009 | | 0e28 000a 000b | | 0e2a 000c 000d | | 0e2c 000e 000f | | 0e2e 0010 0011 | | 0e30 0012 0013 | | 0e32 0014 0015 | | 0e34 0016 0017 | | 0e36 0018 0019 | | 0e38 001a 001b | | 0e3a 001c 001d | | 0e3c 001e 001f | | 0e3e 0020 0021 | !| 0e40 0022 0023 | " #| 0e42 0024 0025 | $ %| 0e44 0026 0027 | & '| 0e46 0028 0029 | ( )| 0e48 002a 002d | * -| 0e4a 0002 | | 0e4b ; -------------------------------------------------------------------------------------- 0e4b ; Debug chain 0e4b ; -------------------------------------------------------------------------------------- 0e4b 0001 000e | | .DBGLEN 0x0001,0x000e 0e4d 054b 054c | K L| .DBGLNO 0x054b,0x054c,0x054e,0x0552,0x0556,0x0559,0x0562,0x0564,0x0566,0x056a,0x0579,0x057b,0x057f,0x058d,0x058f 0e5c ; -------------------------------------------------------------------------------------- 0e5c ; Debug chain 0e5c ; -------------------------------------------------------------------------------------- 0e5c 0000 0006 | | .DBGLEN 0x0000,0x0006 0e5e 059b 05a0 | | .DBGLNO 0x059b,0x05a0,0x05a2,0x05ae,0x05bc,0x05be 0e64 ; -------------------------------------------------------------------------------------- 0e64 ; Debug chain 0e64 ; -------------------------------------------------------------------------------------- 0e64 0002 0012 | | .DBGLEN 0x0002,0x0012 0e66 05cb 05cc | | .DBGLNO 0x05cb,0x05cc,0x05cd,0x05cf,0x05d3,0x05d9,0x05df,0x05e8,0x05ec,0x05ef,0x05f4,0x05fb,0x060b,0x060f,0x062d,0x0636,0x0644,0x0653,0x065c,0x066a 0e7a ; -------------------------------------------------------------------------------------- 0e7a ; Debug chain 0e7a ; -------------------------------------------------------------------------------------- 0e7a 0001 0009 | | .DBGLEN 0x0001,0x0009 0e7c 0673 067f | s | .DBGLNO 0x0673,0x067f,0x0681,0x0685,0x0691,0x0697,0x069b,0x069f,0x06a4,0x06a9 0e86 ; -------------------------------------------------------------------------------------- 0e86 ; Debug chain 0e86 ; -------------------------------------------------------------------------------------- 0e86 0001 0009 | | .DBGLEN 0x0001,0x0009 0e88 06bb 06c7 | | .DBGLNO 0x06bb,0x06c7,0x06c9,0x06cd,0x06d9,0x06df,0x06e3,0x06e7,0x06ec,0x06f1 0e92 ; -------------------------------------------------------------------------------------- 0e92 ; Debug chain 0e92 ; -------------------------------------------------------------------------------------- 0e92 0001 0009 | | .DBGLEN 0x0001,0x0009 0e94 0703 070f | | .DBGLNO 0x0703,0x070f,0x0711,0x0715,0x0721,0x0727,0x072b,0x072f,0x0734,0x0739 0e9e ; -------------------------------------------------------------------------------------- 0e9e ; Debug chain 0e9e ; -------------------------------------------------------------------------------------- 0e9e 0001 0009 | | .DBGLEN 0x0001,0x0009 0ea0 074b 0757 | K W| .DBGLNO 0x074b,0x0757,0x0759,0x075d,0x0769,0x076f,0x0773,0x0777,0x077c,0x0781 0eaa ; -------------------------------------------------------------------------------------- 0eaa ; Debug chain 0eaa ; -------------------------------------------------------------------------------------- 0eaa 0001 0008 | | .DBGLEN 0x0001,0x0008 0eac 0793 0799 | | .DBGLNO 0x0793,0x0799,0x079b,0x079f,0x07b1,0x07b5,0x07ba,0x07be,0x07c5 0eb5 ; -------------------------------------------------------------------------------------- 0eb5 ; Debug chain 0eb5 ; -------------------------------------------------------------------------------------- 0eb5 0001 000a | | .DBGLEN 0x0001,0x000a 0eb7 07d3 07e5 | | .DBGLNO 0x07d3,0x07e5,0x07e7,0x07eb,0x0804,0x0808,0x080c,0x0810,0x0815,0x081a,0x081f 0ec2 ; -------------------------------------------------------------------------------------- 0ec2 ; Debug chain 0ec2 ; -------------------------------------------------------------------------------------- 0ec2 0000 0003 | | .DBGLEN 0x0000,0x0003 0ec4 0833 0835 | 3 5| .DBGLNO 0x0833,0x0835,0x0839 0ec7 ; -------------------------------------------------------------------------------------- 0ec7 ; Debug chain 0ec7 ; -------------------------------------------------------------------------------------- 0ec7 0000 0003 | | .DBGLEN 0x0000,0x0003 0ec9 0843 0845 | C E| .DBGLNO 0x0843,0x0845,0x0849 0ecc ; -------------------------------------------------------------------------------------- 0ecc ; Debug chain 0ecc ; -------------------------------------------------------------------------------------- 0ecc 0000 0002 | | .DBGLEN 0x0000,0x0002 0ece 0853 0855 | S U| .DBGLNO 0x0853,0x0855 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 ; Debug chain 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 0000 0006 | | .DBGLEN 0x0000,0x0006 0ed2 0863 0870 | c p| .DBGLNO 0x0863,0x0870,0x0877,0x087d,0x088a,0x0890 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 ; Debug chain 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 0000 000c | | .DBGLEN 0x0000,0x000c 0eda 08a3 08b4 | | .DBGLNO 0x08a3,0x08b4,0x08bb,0x08c4,0x08cd,0x08d6,0x08dd,0x08e6,0x08ed,0x08f8,0x08ff,0x0908 0ee6 0001 000c | | .XXX[0xc] 0ee8 0002 0003 | | 0eea 0004 0005 | | 0eec 0006 0007 | | 0eee 0008 0009 | | 0ef0 000a 000b | | 0ef2 0000 0000 | | .BLANK 0000[0x10e]