|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_b660b7
└─⟦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 07b0 | | .CONST 0x07b0 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00e4 | | .CONST 0x00e4 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003f | ? | .CONST 0x003f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4801 |H | Short_Literal 0x1 000d 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00d8 | | Load_Top At_Offset_0 0011 4802 |H | Short_Literal 0x2 0012 4800 |H | Short_Literal 0x0 0013 4801 |H | Short_Literal 0x1 0014 4806 |H | Short_Literal 0x6 0015 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0016 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call 0018 00d9 | | Load_Top At_Offset_1 0019 012a | * | Execute Any,Change_Utility 001a 0007 | | Action Break_Optional 001b 00d8 | | Load_Top At_Offset_0 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4818 |H | Short_Literal 0x18 001e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 001f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0021 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0023 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0025 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0027 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0029 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 002b 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 002d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 002f 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0031 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0033 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0035 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 0037 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated 0039 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 003b 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 003d 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 003f e20f | | Load 0x1,0xf 0040 4803 |H | Short_Literal 0x3 0041 e20f | | Load 0x1,0xf 0042 00d8 | | Load_Top At_Offset_0 0043 e002 | | Load 0x0,0x2 0044 4801 |H | Short_Literal 0x1 0045 e003 | | Load 0x0,0x3 0046 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call 0048 4804 |H | Short_Literal 0x4 0049 4801 |H | Short_Literal 0x1 004a e20e | | Load 0x1,0xe 004b 0307 | | Complete_Type Variant_Record,By_Defining 004c e20f | | Load 0x1,0xf 004d 03c4 | | Complete_Type Access,By_Component_Completion 004e 00bf | | Action Accept_Activation 004f e20f | | Load 0x1,0xf 0050 0007 | | Action Break_Optional 0051 0093 0000 | | push_full_address 0x0 0053 60c4 |` | Indirect_Literal Discrete,0x118,{0x80000000, 0x00030000} 0054 0273 | s | Execute Discrete,Plus 0055 e004 | | Load 0x0,0x4 0056 0273 | s | Execute Discrete,Plus 0057 e005 | | Load 0x0,0x5 0058 0273 | s | Execute Discrete,Plus 0059 e20f | | Load 0x1,0xf 005a 00da | | Load_Top At_Offset_2 005b e006 | | Load 0x0,0x6 005c 0387 | | Declare_Variable Package 005d 00d8 | | Load_Top At_Offset_0 005e 020f | | Execute Module,Activate 005f 0093 0000 | | push_full_address 0x0 0061 60b2 |` | Indirect_Literal Discrete,0x114,{0x80000000, 0x00020000} 0062 0273 | s | Execute Discrete,Plus 0063 e004 | | Load 0x0,0x4 0064 0273 | s | Execute Discrete,Plus 0065 e007 | | Load 0x0,0x7 0066 0273 | s | Execute Discrete,Plus 0067 e20f | | Load 0x1,0xf 0068 00db | | Load_Top At_Offset_3 0069 e006 | | Load 0x0,0x6 006a 0387 | | Declare_Variable Package 006b 00d8 | | Load_Top At_Offset_0 006c 020f | | Execute Module,Activate 006d 0093 0000 | | push_full_address 0x0 006f 60a0 |` | Indirect_Literal Discrete,0x110,{0x80000000, 0x00010000} 0070 0273 | s | Execute Discrete,Plus 0071 e004 | | Load 0x0,0x4 0072 0273 | s | Execute Discrete,Plus 0073 e008 | | Load 0x0,0x8 0074 0273 | s | Execute Discrete,Plus 0075 e20f | | Load 0x1,0xf 0076 e220 | | Load 0x1,0x20 0077 e006 | | Load 0x0,0x6 0078 0387 | | Declare_Variable Package 0079 00d8 | | Load_Top At_Offset_0 007a 020f | | Execute Module,Activate 007b e009 | | Load 0x0,0x9 007c 00da | | Load_Top At_Offset_2 007d 0098 | | Execute Package,Field_Read_Dynamic 007e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 007f e009 | | Load 0x0,0x9 0080 e221 | ! | Load 0x1,0x21 0081 0098 | | Execute Package,Field_Read_Dynamic 0082 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0083 e009 | | Load 0x0,0x9 0084 00db | | Load_Top At_Offset_3 0085 0098 | | Execute Package,Field_Read_Dynamic 0086 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0087 e20f | | Load 0x1,0xf 0088 0007 | | Action Break_Optional 0089 00d8 | | Load_Top At_Offset_0 008a 0007 | | Action Break_Optional 008b 00e1 | | Load_Encached Boolean_Cache 008c e002 | | Load 0x0,0x2 008d 0007 | | Action Break_Optional 008e e00a | | Load 0x0,0xa 008f 0007 | | Action Break_Optional 0090 e00b | | Load 0x0,0xb 0091 0337 | 7 | Declare_Variable Array 0092 e00b | | Load 0x0,0xb 0093 0337 | 7 | Declare_Variable Array 0094 e00c | | Load 0x0,0xc 0095 0007 | | Action Break_Optional 0096 00e1 | | Load_Encached Boolean_Cache 0097 00e1 | | Load_Encached Boolean_Cache 0098 e00d | | Load 0x0,0xd 0099 02ff | | Declare_Variable Variant_Record 009a 00d8 | | Load_Top At_Offset_0 009b 1c00 | | Execute_Immediate Run_Utility,0x0 009c 00e2 | | Load_Encached Integer_Cache 009d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009e 00e2 | | Load_Encached Integer_Cache 009f 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00a0 e00e | | Load 0x0,0xe 00a1 0337 | 7 | Declare_Variable Array 00a2 00d8 | | Load_Top At_Offset_0 00a3 0335 | 5 | Declare_Variable Array,Duplicate 00a4 00cd | | Action Spare6_Action 00a5 4804 |H | Short_Literal 0x4 00a6 4800 |H | Short_Literal 0x0 00a7 4800 |H | Short_Literal 0x0 00a8 00d9 | | Load_Top At_Offset_1 00a9 e235 | 5 | Load 0x1,0x35 00aa 01d6 | | Execute Vector,Field_Write 00ab 3ffb |? | Loop_Increasing 0xa7 00ac 00d9 | | Load_Top At_Offset_1 00ad 01d4 | | Execute Vector,Structure_Write 00ae 00e2 | | Load_Encached Integer_Cache 00af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00b0 00e4 | | Load_Encached Positive_Cache 00b1 00e4 | | Load_Encached Positive_Cache 00b2 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call 00b4 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call 00b6 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00b9 00c7 | | Action Elaborate_Subprogram 00ba 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call 00bc 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00bf 00c7 | | Action Elaborate_Subprogram 00c0 029b 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Unelaborated 00c2 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00cf 00c7 | | Action Elaborate_Subprogram 00d0 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call 00d2 029d 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call 00d4 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call 00d6 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 00d8 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00e3 00c7 | | Action Elaborate_Subprogram 00e4 BODY_0008: 00e4 00bc | | Action Signal_Activated 00e5 00bb | | Action Signal_Completion 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4607 |F | Jump_Case 0x8 00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ed 7807 |x | Jump 0xf5 ; case 0x1 00ee 780a |x | Jump 0xf9 ; case 0x2 00ef 780e |x | Jump 0xfe ; case 0x3 00f0 7811 |x | Jump 0x102 ; case 0x4 00f1 7812 |x | Jump 0x104 ; case 0x5 00f2 7813 |x | Jump 0x106 ; case 0x6 00f3 7816 |x | Jump 0x10a ; case 0x7 00f4 4302 |C | .XXX[0x1] 00f5 00da | | Load_Top At_Offset_2 00f6 0091 06ff | | Action Push_String_Extended_Indexed,0x6ff ; "TYPE_REGLE" 00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f9 00db | | Load_Top At_Offset_3 00fa 00db | | Load_Top At_Offset_3 00fb 00e0 | | Load_Encached Standard_Cache 00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe 00da | | Load_Top At_Offset_2 00ff 00e0 | | Load_Encached Standard_Cache 0100 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0101 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0102 00db | | Load_Top At_Offset_3 0103 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0104 00db | | Load_Top At_Offset_3 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 e20d | | Load 0x1,0xd 0107 00dc | | Load_Top At_Offset_4 0108 0267 | g | Execute Discrete,Predecessor 0109 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010a e20d | | Load 0x1,0xd 010b 00dc | | Load_Top At_Offset_4 010c 0268 | h | Execute Discrete,Successor 010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010e 0000 0000 | | .XXX[0x2] 0110 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0114 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0118 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e232 | 2 | Load 0x1,0x32 0124 0a01 | | Execute_Immediate Plus,0x1 0125 c232 | 2 | Store 0x1,0x32 0126 0092 0701 | | Action Push_String_Extended,0x701 ; "level is now: " 0128 e232 | 2 | Load 0x1,0x32 0129 00e0 | | Load_Encached Standard_Cache 012a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012b 01cc | | Execute Vector,Catenate 012c e00f | | Load 0x0,0xf 012d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 012e 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 0130 e00f | | Load 0x0,0xf 0131 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0132 4800 |H | Short_Literal 0x0 0133 a233 | 3 | Store_Unchecked 0x1,0x33 0134 4801 |H | Short_Literal 0x1 0135 a236 | 6 | Store_Unchecked 0x1,0x36 0136 4800 |H | Short_Literal 0x0 0137 a22f | / | Store_Unchecked 0x1,0x2f 0138 e229 | ) | Load 0x1,0x29 0139 7001 |p | Jump_Nonzero 0x13b 013a 8239 | 9 | Call 0x1,0x39 013b e224 | $ | Load 0x1,0x24 013c e227 | ' | Load 0x1,0x27 013d e010 | | Load 0x0,0x10 013e e222 | " | Load 0x1,0x22 013f 0096 | | Execute Package,Entry 0140 c224 | $ | Store 0x1,0x24 0141 4800 |H | Short_Literal 0x0 0142 4801 |H | Short_Literal 0x1 0143 e20f | | Load 0x1,0xf 0144 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0145 00d8 | | Load_Top At_Offset_0 0146 0227 | ' | Execute Access,All_Reference 0147 1c00 | | Execute_Immediate Run_Utility,0x0 0148 a228 | ( | Store_Unchecked 0x1,0x28 0149 e229 | ) | Load 0x1,0x29 014a 6808 |h | Jump_Zero 0x153 014b e226 | & | Load 0x1,0x26 014c e228 | ( | Load 0x1,0x28 014d e010 | | Load 0x0,0x10 014e e223 | # | Load 0x1,0x23 014f 0096 | | Execute Package,Entry 0150 c226 | & | Store 0x1,0x26 0151 4800 |H | Short_Literal 0x0 0152 a229 | ) | Store_Unchecked 0x1,0x29 0153 e225 | % | Load 0x1,0x25 0154 e228 | ( | Load 0x1,0x28 0155 e010 | | Load 0x0,0x10 0156 e221 | ! | Load 0x1,0x21 0157 0096 | | Execute Package,Entry 0158 c225 | % | Store 0x1,0x25 0159 e20f | | Load 0x1,0xf 015a a227 | ' | Store_Unchecked 0x1,0x27 015b 4801 |H | Short_Literal 0x1 015c a229 | ) | Store_Unchecked 0x1,0x29 015d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e229 | ) | Load 0x1,0x29 0164 7001 |p | Jump_Nonzero 0x166 0165 8239 | 9 | Call 0x1,0x39 0166 4801 |H | Short_Literal 0x1 0167 4802 |H | Short_Literal 0x2 0168 e20f | | Load 0x1,0xf 0169 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 016a 00d8 | | Load_Top At_Offset_0 016b 0227 | ' | Execute Access,All_Reference 016c 1c00 | | Execute_Immediate Run_Utility,0x0 016d a228 | ( | Store_Unchecked 0x1,0x28 016e e229 | ) | Load 0x1,0x29 016f 6808 |h | Jump_Zero 0x178 0170 e226 | & | Load 0x1,0x26 0171 e228 | ( | Load 0x1,0x28 0172 e010 | | Load 0x0,0x10 0173 e223 | # | Load 0x1,0x23 0174 0096 | | Execute Package,Entry 0175 c226 | & | Store 0x1,0x26 0176 4800 |H | Short_Literal 0x0 0177 a229 | ) | Store_Unchecked 0x1,0x29 0178 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0185 | | .CONST 0x0185 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e20f | | Load 0x1,0xf 0184 0007 | | Action Break_Optional 0185 BODY_0180: 0185 8239 | 9 | Call 0x1,0x39 0186 e221 | ! | Load 0x1,0x21 0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0188 e225 | % | Load 0x1,0x25 0189 e011 | | Load 0x0,0x11 018a e221 | ! | Load 0x1,0x21 018b 0096 | | Execute Package,Entry 018c c225 | % | Store 0x1,0x25 018d c228 | ( | Store 0x1,0x28 018e e223 | # | Load 0x1,0x23 018f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0190 e226 | & | Load 0x1,0x26 0191 e011 | | Load 0x0,0x11 0192 e223 | # | Load 0x1,0x23 0193 0096 | | Execute Package,Entry 0194 c226 | & | Store 0x1,0x26 0195 0039 | 9 | Store_Top Access,At_Offset_1 0196 00d8 | | Load_Top At_Offset_0 0197 e228 | ( | Load 0x1,0x28 0198 0227 | ' | Execute Access,All_Reference 0199 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 019a e20f | | Load 0x1,0xf 019b a227 | ' | Store_Unchecked 0x1,0x27 019c 4801 |H | Short_Literal 0x1 019d a229 | ) | Store_Unchecked 0x1,0x29 019e e225 | % | Load 0x1,0x25 019f e228 | ( | Load 0x1,0x28 01a0 e010 | | Load 0x0,0x10 01a1 e221 | ! | Load 0x1,0x21 01a2 0096 | | Execute Package,Entry 01a3 c225 | % | Store 0x1,0x25 01a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ad | | .CONST 0x01ad ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0002 | | .CONST 0x0002 ; Number of locals 01ab INIT_01a8: 01ab e20f | | Load 0x1,0xf 01ac 0007 | | Action Break_Optional 01ad BODY_01a8: 01ad 8239 | 9 | Call 0x1,0x39 01ae e223 | # | Load 0x1,0x23 01af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b0 e226 | & | Load 0x1,0x26 01b1 e011 | | Load 0x0,0x11 01b2 e223 | # | Load 0x1,0x23 01b3 0096 | | Execute Package,Entry 01b4 c226 | & | Store 0x1,0x26 01b5 0039 | 9 | Store_Top Access,At_Offset_1 01b6 e221 | ! | Load 0x1,0x21 01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b8 e225 | % | Load 0x1,0x25 01b9 e011 | | Load 0x0,0x11 01ba e221 | ! | Load 0x1,0x21 01bb 0096 | | Execute Package,Entry 01bc c225 | % | Store 0x1,0x25 01bd c228 | ( | Store 0x1,0x28 01be e228 | ( | Load 0x1,0x28 01bf 0227 | ' | Execute Access,All_Reference 01c0 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 01c1 6805 |h | Jump_Zero 0x1c7 01c2 00d8 | | Load_Top At_Offset_0 01c3 e228 | ( | Load 0x1,0x28 01c4 0227 | ' | Execute Access,All_Reference 01c5 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 01c6 7804 |x | Jump 0x1cb 01c7 00d8 | | Load_Top At_Offset_0 01c8 e228 | ( | Load 0x1,0x28 01c9 0227 | ' | Execute Access,All_Reference 01ca 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 01cb e222 | " | Load 0x1,0x22 01cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01cd e224 | $ | Load 0x1,0x24 01ce e011 | | Load 0x0,0x11 01cf e222 | " | Load 0x1,0x22 01d0 0096 | | Execute Package,Entry 01d1 c224 | $ | Store 0x1,0x24 01d2 c227 | ' | Store 0x1,0x27 01d3 e232 | 2 | Load 0x1,0x32 01d4 8238 | 8 | Call 0x1,0x38 01d5 e232 | 2 | Load 0x1,0x32 01d6 0aff | | Execute_Immediate Plus,-0x1 01d7 c232 | 2 | Store 0x1,0x32 01d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e220 | | Load 0x1,0x20 01e4 a228 | ( | Store_Unchecked 0x1,0x28 01e5 e220 | | Load 0x1,0x20 01e6 a227 | ' | Store_Unchecked 0x1,0x27 01e7 4801 |H | Short_Literal 0x1 01e8 a229 | ) | Store_Unchecked 0x1,0x29 01e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f5 | | .CONST 0x01f5 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e20f | | Load 0x1,0xf 01f4 0007 | | Action Break_Optional 01f5 BODY_01f0: 01f5 8239 | 9 | Call 0x1,0x39 01f6 e223 | # | Load 0x1,0x23 01f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f8 e226 | & | Load 0x1,0x26 01f9 e011 | | Load 0x0,0x11 01fa e223 | # | Load 0x1,0x23 01fb 0096 | | Execute Package,Entry 01fc c226 | & | Store 0x1,0x26 01fd 0039 | 9 | Store_Top Access,At_Offset_1 01fe 00d8 | | Load_Top At_Offset_0 01ff a5ff | | Store_Unchecked 0x2,-0x1 0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020e | | .CONST 0x020e ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b 4800 |H | Short_Literal 0x0 020c e003 | | Load 0x0,0x3 020d 1c08 | | Execute_Immediate Run_Utility,0x8 020e BODY_0208: 020e 00db | | Load_Top At_Offset_3 020f 8012 | | Call 0x0,0x12 0210 0e01 | | Execute_Immediate Not_Equal,0x1 0211 6802 |h | Jump_Zero 0x214 0212 4801 |H | Short_Literal 0x1 0213 8013 | | Call 0x0,0x13 0214 00d8 | | Load_Top At_Offset_0 0215 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0216 e5ff | | Load 0x2,-0x1 0217 8014 | | Call 0x0,0x14 0218 00d9 | | Load_Top At_Offset_1 0219 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 021a 00d8 | | Load_Top At_Offset_0 021b e228 | ( | Load 0x1,0x28 021c 0227 | ' | Execute Access,All_Reference 021d 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 021e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e228 | ( | Load 0x1,0x28 0225 0227 | ' | Execute Access,All_Reference 0226 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0227 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0228 0092 0703 | | Action Push_String_Extended,0x703 ; "------------------------------------------" 022a e00f | | Load 0x0,0xf 022b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 022c 0092 0704 | | Action Push_String_Extended,0x704 ; " go to modifie " 022e e228 | ( | Load 0x1,0x28 022f 0227 | ' | Execute Access,All_Reference 0230 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0231 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0232 e015 | | Load 0x0,0x15 0233 011c | | Execute Any,Convert_Unchecked 0234 1c01 | | Execute_Immediate Run_Utility,0x1 0235 01cc | | Execute Vector,Catenate 0236 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0238 01cc | | Execute Vector,Catenate 0239 e00f | | Load 0x0,0xf 023a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 023b e228 | ( | Load 0x1,0x28 023c 0227 | ' | Execute Access,All_Reference 023d 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 023e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 023f 8016 | | Call 0x0,0x16 0240 0092 0703 | | Action Push_String_Extended,0x703 ; "------------------------------------------" 0242 e00f | | Load 0x0,0xf 0243 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0244 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024e | N | .CONST 0x024e ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b 4801 |H | Short_Literal 0x1 024c e003 | | Load 0x0,0x3 024d 1c08 | | Execute_Immediate Run_Utility,0x8 024e BODY_0248: 024e 4801 |H | Short_Literal 0x1 024f a236 | 6 | Store_Unchecked 0x1,0x36 0250 00d8 | | Load_Top At_Offset_0 0251 e228 | ( | Load 0x1,0x28 0252 0227 | ' | Execute Access,All_Reference 0253 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0254 e228 | ( | Load 0x1,0x28 0255 0229 | ) | Execute Access,All_Read 0256 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0257 00d8 | | Load_Top At_Offset_0 0258 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0259 e5ff | | Load 0x2,-0x1 025a 8014 | | Call 0x0,0x14 025b 00d9 | | Load_Top At_Offset_1 025c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 025d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0265 | e | .CONST 0x0265 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 e017 | | Load 0x0,0x17 0264 0007 | | Action Break_Optional 0265 BODY_0260: 0265 e5fe | | Load 0x2,-0x2 0266 6803 |h | Jump_Zero 0x26a 0267 480f |H | Short_Literal 0xf 0268 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0269 781b |x | Jump 0x285 026a 00db | | Load_Top At_Offset_3 026b 8012 | | Call 0x0,0x12 026c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 026d 00d8 | | Load_Top At_Offset_0 026e 0f10 | | Execute_Immediate Equal,0x10 026f 6815 |h | Jump_Zero 0x285 0270 e236 | 6 | Load 0x1,0x36 0271 0c02 | | Execute_Immediate Greater_Equal,0x2 0272 6810 |h | Jump_Zero 0x283 0273 e236 | 6 | Load 0x1,0x36 0274 0aff | | Execute_Immediate Plus,-0x1 0275 e228 | ( | Load 0x1,0x28 0276 0227 | ' | Execute Access,All_Reference 0277 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0278 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0279 01d5 | | Execute Vector,Field_Reference 027a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 027b 0f07 | | Execute_Immediate Equal,0x7 027c 6803 |h | Jump_Zero 0x280 027d 480f |H | Short_Literal 0xf 027e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 027f 7805 |x | Jump 0x285 0280 480c |H | Short_Literal 0xc 0281 8013 | | Call 0x0,0x13 0282 7802 |x | Jump 0x285 0283 480c |H | Short_Literal 0xc 0284 8013 | | Call 0x0,0x13 0285 e236 | 6 | Load 0x1,0x36 0286 0c02 | | Execute_Immediate Greater_Equal,0x2 0287 6819 |h | Jump_Zero 0x2a1 0288 00d8 | | Load_Top At_Offset_0 0289 e236 | 6 | Load 0x1,0x36 028a 0aff | | Execute_Immediate Plus,-0x1 028b e228 | ( | Load 0x1,0x28 028c 0227 | ' | Execute Access,All_Reference 028d 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 028e 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 028f 01d5 | | Execute Vector,Field_Reference 0290 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0291 8018 | | Call 0x0,0x18 0292 700e |p | Jump_Nonzero 0x2a1 0293 e5fe | | Load 0x2,-0x2 0294 0092 0706 | | Action Push_String_Extended,0x706 ; "modifierdescription" 0296 e019 | | Load 0x0,0x19 0297 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0298 e228 | ( | Load 0x1,0x28 0299 0227 | ' | Execute Access,All_Reference 029a 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 029b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 029c 801a | | Call 0x0,0x1a 029d 0279 | y | Execute Discrete,And 029e 7002 |p | Jump_Nonzero 0x2a1 029f 4807 |H | Short_Literal 0x7 02a0 8013 | | Call 0x0,0x13 02a1 00db | | Load_Top At_Offset_3 02a2 801b | | Call 0x0,0x1b 02a3 6809 |h | Jump_Zero 0x2ad 02a4 00db | | Load_Top At_Offset_3 02a5 801c | | Call 0x0,0x1c 02a6 e234 | 4 | Load 0x1,0x34 02a7 01d7 | | Execute Vector,Field_Read 02a8 e232 | 2 | Load 0x1,0x32 02a9 027d | } | Execute Discrete,Greater 02aa 6802 |h | Jump_Zero 0x2ad 02ab 4806 |H | Short_Literal 0x6 02ac 8013 | | Call 0x0,0x13 02ad 00d8 | | Load_Top At_Offset_0 02ae 0f0d | | Execute_Immediate Equal,0xd 02af 6809 |h | Jump_Zero 0x2b9 02b0 e235 | 5 | Load 0x1,0x35 02b1 0f00 | | Execute_Immediate Equal,0x0 02b2 e235 | 5 | Load 0x1,0x35 02b3 e232 | 2 | Load 0x1,0x32 02b4 027d | } | Execute Discrete,Greater 02b5 0278 | x | Execute Discrete,Or 02b6 6802 |h | Jump_Zero 0x2b9 02b7 480b |H | Short_Literal 0xb 02b8 8013 | | Call 0x0,0x13 02b9 e228 | ( | Load 0x1,0x28 02ba 0229 | ) | Execute Access,All_Read 02bb 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 02bc 00d8 | | Load_Top At_Offset_0 02bd 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 02be 00d8 | | Load_Top At_Offset_0 02bf e236 | 6 | Load 0x1,0x36 02c0 00d9 | | Load_Top At_Offset_1 02c1 01d5 | | Execute Vector,Field_Reference 02c2 00cd | | Action Spare6_Action 02c3 00db | | Load_Top At_Offset_3 02c4 00d9 | | Load_Top At_Offset_1 02c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c6 00d1 | | Pop_Control Pop_Count_1 02c7 00d0 | | Action Swap_Control 02c8 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 02c9 e228 | ( | Load 0x1,0x28 02ca 0229 | ) | Execute Access,All_Read 02cb 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 02cc 00d8 | | Load_Top At_Offset_0 02cd 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 02ce 00d8 | | Load_Top At_Offset_0 02cf e236 | 6 | Load 0x1,0x36 02d0 00d9 | | Load_Top At_Offset_1 02d1 01d5 | | Execute Vector,Field_Reference 02d2 00cd | | Action Spare6_Action 02d3 00d8 | | Load_Top At_Offset_0 02d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d5 e5ff | | Load 0x2,-0x1 02d6 8014 | | Call 0x0,0x14 02d7 00d9 | | Load_Top At_Offset_1 02d8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02d9 00d1 | | Pop_Control Pop_Count_1 02da 00d0 | | Action Swap_Control 02db 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 02dc e236 | 6 | Load 0x1,0x36 02dd 0a01 | | Execute_Immediate Plus,0x1 02de c236 | 6 | Store 0x1,0x36 02df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e5 | | .CONST 0x02e5 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0002 | | .CONST 0x0002 ; Number of locals 02e3 INIT_02e0: 02e3 00e2 | | Load_Encached Integer_Cache 02e4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02e5 BODY_02e0: 02e5 e236 | 6 | Load 0x1,0x36 02e6 0aff | | Execute_Immediate Plus,-0x1 02e7 e228 | ( | Load 0x1,0x28 02e8 0227 | ' | Execute Access,All_Reference 02e9 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 02ea 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 02eb 0092 0705 | | Action Push_String_Extended,0x705 ; " " 02ed e00f | | Load 0x0,0xf 02ee 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02ef 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 02f1 e00f | | Load 0x0,0xf 02f2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02f3 0092 0707 | | Action Push_String_Extended,0x707 ; "LEVEL " 02f5 e232 | 2 | Load 0x1,0x32 02f6 00e0 | | Load_Encached Standard_Cache 02f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02f8 01cc | | Execute Vector,Catenate 02f9 0092 0705 | | Action Push_String_Extended,0x705 ; " " 02fb 01cc | | Execute Vector,Catenate 02fc e00f | | Load 0x0,0xf 02fd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02fe e228 | ( | Load 0x1,0x28 02ff 0227 | ' | Execute Access,All_Reference 0300 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0301 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0302 801d | | Call 0x0,0x1d 0303 00cf | | Action Mark_Auxiliary 0304 00d9 | | Load_Top At_Offset_1 0305 e228 | ( | Load 0x1,0x28 0306 0227 | ' | Execute Access,All_Reference 0307 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0308 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0309 01d5 | | Execute Vector,Field_Reference 030a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 030b 801d | | Call 0x0,0x1d 030c 00d9 | | Load_Top At_Offset_1 030d e228 | ( | Load 0x1,0x28 030e 0227 | ' | Execute Access,All_Reference 030f 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0310 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0311 01d5 | | Execute Vector,Field_Reference 0312 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0313 e017 | | Load 0x0,0x17 0314 011c | | Execute Any,Convert_Unchecked 0315 1c01 | | Execute_Immediate Run_Utility,0x1 0316 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0318 01cc | | Execute Vector,Catenate 0319 e00f | | Load 0x0,0xf 031a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 031b 00d9 | | Load_Top At_Offset_1 031c 0a01 | | Execute_Immediate Plus,0x1 031d 005a | Z | Store_Top Discrete,At_Offset_2 031e 00d9 | | Load_Top At_Offset_1 031f e228 | ( | Load 0x1,0x28 0320 0227 | ' | Execute Access,All_Reference 0321 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0322 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0323 027d | } | Execute Discrete,Greater 0324 7002 |p | Jump_Nonzero 0x327 0325 00c9 | | Action Pop_Auxiliary_Loop 0326 7fdd | | Jump 0x304 0327 00ce | | Action Pop_Auxiliary 0328 0092 0705 | | Action Push_String_Extended,0x705 ; " " 032a e00f | | Load 0x0,0xf 032b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 032c 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 032e e00f | | Load 0x0,0xf 032f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0330 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0331 0000 0000 | | .BLANK 0000[0x7] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033e | > | .CONST 0x033e ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0003 | | .CONST 0x0003 ; Number of locals 033b INIT_0338: 033b e01e | | Load 0x0,0x1e 033c 0007 | | Action Break_Optional 033d 00e1 | | Load_Encached Boolean_Cache 033e BODY_0338: 033e e5fe | | Load 0x2,-0x2 033f 6803 |h | Jump_Zero 0x343 0340 4818 |H | Short_Literal 0x18 0341 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0342 781b |x | Jump 0x35e 0343 e5ff | | Load 0x2,-0x1 0344 801f | | Call 0x0,0x1f 0345 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0346 00d9 | | Load_Top At_Offset_1 0347 0f19 | | Execute_Immediate Equal,0x19 0348 6815 |h | Jump_Zero 0x35e 0349 e5ff | | Load 0x2,-0x1 034a 8020 | | Call 0x0,0x20 034b 7012 |p | Jump_Nonzero 0x35e 034c e236 | 6 | Load 0x1,0x36 034d 0c02 | | Execute_Immediate Greater_Equal,0x2 034e 680d |h | Jump_Zero 0x35c 034f e236 | 6 | Load 0x1,0x36 0350 0aff | | Execute_Immediate Plus,-0x1 0351 e22c | , | Load 0x1,0x2c 0352 01d5 | | Execute Vector,Field_Reference 0353 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0354 0f09 | | Execute_Immediate Equal,0x9 0355 6803 |h | Jump_Zero 0x359 0356 4814 |H | Short_Literal 0x14 0357 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0358 7805 |x | Jump 0x35e 0359 480c |H | Short_Literal 0xc 035a 8013 | | Call 0x0,0x13 035b 7802 |x | Jump 0x35e 035c 480c |H | Short_Literal 0xc 035d 8013 | | Call 0x0,0x13 035e 00d9 | | Load_Top At_Offset_1 035f 0f13 | | Execute_Immediate Equal,0x13 0360 00da | | Load_Top At_Offset_2 0361 0f12 | | Execute_Immediate Equal,0x12 0362 0278 | x | Execute Discrete,Or 0363 00da | | Load_Top At_Offset_2 0364 0f0e | | Execute_Immediate Equal,0xe 0365 0278 | x | Execute Discrete,Or 0366 6817 |h | Jump_Zero 0x37e 0367 e232 | 2 | Load 0x1,0x32 0368 a235 | 5 | Store_Unchecked 0x1,0x35 0369 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 036b e00f | | Load 0x0,0xf 036c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 036d 0092 0708 | | Action Push_String_Extended,0x708 ; " Can_Use_Sortie_At_Level" 036f e00f | | Load 0x0,0xf 0370 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0371 e235 | 5 | Load 0x1,0x35 0372 00e0 | | Load_Encached Standard_Cache 0373 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0374 e00f | | Load 0x0,0xf 0375 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0376 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0378 e00f | | Load 0x0,0xf 0379 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 037a 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 037c e00f | | Load 0x0,0xf 037d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 037e e5ff | | Load 0x2,-0x1 037f 801b | | Call 0x0,0x1b 0380 6854 |hT | Jump_Zero 0x3d5 0381 e5ff | | Load 0x2,-0x1 0382 801c | | Call 0x0,0x1c 0383 e234 | 4 | Load 0x1,0x34 0384 01d7 | | Execute Vector,Field_Read 0385 7042 |pB | Jump_Nonzero 0x3c8 0386 4800 |H | Short_Literal 0x0 0387 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0388 00cf | | Action Mark_Auxiliary 0389 e234 | 4 | Load 0x1,0x34 038a 01d9 | | Execute Vector,Reverse_Bounds 038b 0007 | | Action Break_Optional 038c 00d8 | | Load_Top At_Offset_0 038d e234 | 4 | Load 0x1,0x34 038e 01d7 | | Execute Vector,Field_Read 038f 0c01 | | Execute_Immediate Greater_Equal,0x1 0390 6802 |h | Jump_Zero 0x393 0391 4801 |H | Short_Literal 0x1 0392 a403 | | Store_Unchecked 0x2,0x3 0393 00c8 | | Action Pop_Auxiliary_Range 0394 3ff7 |? | Loop_Increasing 0x38c 0395 00ce | | Action Pop_Auxiliary 0396 00d8 | | Load_Top At_Offset_0 0397 6803 |h | Jump_Zero 0x39b 0398 4804 |H | Short_Literal 0x4 0399 8013 | | Call 0x0,0x13 039a 783a |x: | Jump 0x3d5 039b e233 | 3 | Load 0x1,0x33 039c 7028 |p( | Jump_Nonzero 0x3c5 039d 4801 |H | Short_Literal 0x1 039e e22c | , | Load 0x1,0x2c 039f 01d5 | | Execute Vector,Field_Reference 03a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a1 0f05 | | Execute_Immediate Equal,0x5 03a2 681f |h | Jump_Zero 0x3c2 03a3 e232 | 2 | Load 0x1,0x32 03a4 e5ff | | Load 0x2,-0x1 03a5 801c | | Call 0x0,0x1c 03a6 e234 | 4 | Load 0x1,0x34 03a7 01d6 | | Execute Vector,Field_Write 03a8 0092 0709 | | Action Push_String_Extended,0x709 ; "GENERIQUE:" 03aa e5ff | | Load 0x2,-0x1 03ab 801c | | Call 0x0,0x1c 03ac e021 | ! | Load 0x0,0x21 03ad 011c | | Execute Any,Convert_Unchecked 03ae 1c01 | | Execute_Immediate Run_Utility,0x1 03af 01cc | | Execute Vector,Catenate 03b0 0092 070a | | Action Push_String_Extended,0x70a ; " is declare at level " 03b2 01cc | | Execute Vector,Catenate 03b3 e232 | 2 | Load 0x1,0x32 03b4 00e0 | | Load_Encached Standard_Cache 03b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03b6 01cc | | Execute Vector,Catenate 03b7 e00f | | Load 0x0,0xf 03b8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03b9 0092 0705 | | Action Push_String_Extended,0x705 ; " " 03bb e00f | | Load 0x0,0xf 03bc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 03bd 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 03bf e00f | | Load 0x0,0xf 03c0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 03c1 7813 |x | Jump 0x3d5 03c2 4805 |H | Short_Literal 0x5 03c3 8013 | | Call 0x0,0x13 03c4 7810 |x | Jump 0x3d5 03c5 4805 |H | Short_Literal 0x5 03c6 8013 | | Call 0x0,0x13 03c7 780d |x | Jump 0x3d5 03c8 e5ff | | Load 0x2,-0x1 03c9 801c | | Call 0x0,0x1c 03ca e234 | 4 | Load 0x1,0x34 03cb 01d7 | | Execute Vector,Field_Read 03cc e232 | 2 | Load 0x1,0x32 03cd 027d | } | Execute Discrete,Greater 03ce 6802 |h | Jump_Zero 0x3d1 03cf 4806 |H | Short_Literal 0x6 03d0 8013 | | Call 0x0,0x13 03d1 e233 | 3 | Load 0x1,0x33 03d2 7002 |p | Jump_Nonzero 0x3d5 03d3 4804 |H | Short_Literal 0x4 03d4 8013 | | Call 0x0,0x13 03d5 e5ff | | Load 0x2,-0x1 03d6 8020 | | Call 0x0,0x20 03d7 680e |h | Jump_Zero 0x3e6 03d8 e5ff | | Load 0x2,-0x1 03d9 8022 | " | Call 0x0,0x22 03da a22e | . | Store_Unchecked 0x1,0x2e 03db e22d | - | Load 0x1,0x2d 03dc e22c | , | Load 0x1,0x2c 03dd 8023 | # | Call 0x0,0x23 03de 00d1 | | Pop_Control Pop_Count_1 03df 4801 |H | Short_Literal 0x1 03e0 a22f | / | Store_Unchecked 0x1,0x2f 03e1 e236 | 6 | Load 0x1,0x36 03e2 a237 | 7 | Store_Unchecked 0x1,0x37 03e3 4801 |H | Short_Literal 0x1 03e4 a236 | 6 | Store_Unchecked 0x1,0x36 03e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03e6 e236 | 6 | Load 0x1,0x36 03e7 0c02 | | Execute_Immediate Greater_Equal,0x2 03e8 680b |h | Jump_Zero 0x3f4 03e9 00d9 | | Load_Top At_Offset_1 03ea e236 | 6 | Load 0x1,0x36 03eb 0aff | | Execute_Immediate Plus,-0x1 03ec e22c | , | Load 0x1,0x2c 03ed 01d5 | | Execute Vector,Field_Reference 03ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ef 8024 | $ | Call 0x0,0x24 03f0 700b |p | Jump_Nonzero 0x3fc 03f1 4809 |H | Short_Literal 0x9 03f2 8013 | | Call 0x0,0x13 03f3 7808 |x | Jump 0x3fc 03f4 00d9 | | Load_Top At_Offset_1 03f5 0f05 | | Execute_Immediate Equal,0x5 03f6 6803 |h | Jump_Zero 0x3fa 03f7 4801 |H | Short_Literal 0x1 03f8 a230 | 0 | Store_Unchecked 0x1,0x30 03f9 7802 |x | Jump 0x3fc 03fa 4800 |H | Short_Literal 0x0 03fb a230 | 0 | Store_Unchecked 0x1,0x30 03fc 00d9 | | Load_Top At_Offset_1 03fd 0f05 | | Execute_Immediate Equal,0x5 03fe 00da | | Load_Top At_Offset_2 03ff 0f06 | | Execute_Immediate Equal,0x6 0400 0278 | x | Execute Discrete,Or 0401 680c |h | Jump_Zero 0x40e 0402 e236 | 6 | Load 0x1,0x36 0403 e22c | , | Load 0x1,0x2c 0404 01d5 | | Execute Vector,Field_Reference 0405 00d8 | | Load_Top At_Offset_0 0406 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0407 e5ff | | Load 0x2,-0x1 0408 8025 | % | Call 0x0,0x25 0409 8014 | | Call 0x0,0x14 040a 00d9 | | Load_Top At_Offset_1 040b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 040c 00d1 | | Pop_Control Pop_Count_1 040d 780a |x | Jump 0x418 040e e236 | 6 | Load 0x1,0x36 040f e22c | , | Load 0x1,0x2c 0410 01d5 | | Execute Vector,Field_Reference 0411 00d8 | | Load_Top At_Offset_0 0412 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0413 e5ff | | Load 0x2,-0x1 0414 8014 | | Call 0x0,0x14 0415 00d9 | | Load_Top At_Offset_1 0416 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0417 00d1 | | Pop_Control Pop_Count_1 0418 00d9 | | Load_Top At_Offset_1 0419 e236 | 6 | Load 0x1,0x36 041a e22c | , | Load 0x1,0x2c 041b 01d5 | | Execute Vector,Field_Reference 041c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 041d e236 | 6 | Load 0x1,0x36 041e 0a01 | | Execute_Immediate Plus,0x1 041f c236 | 6 | Store 0x1,0x36 0420 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0421 0000 0000 | | .BLANK 0000[0x7] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b e233 | 3 | Load 0x1,0x33 042c 0a01 | | Execute_Immediate Plus,0x1 042d c233 | 3 | Store 0x1,0x33 042e e230 | 0 | Load 0x1,0x30 042f 6804 |h | Jump_Zero 0x434 0430 823c | < | Call 0x1,0x3c 0431 e231 | 1 | Load 0x1,0x31 0432 016d | m | Execute Variant_Record,Structure_Write 0433 7813 |x | Jump 0x447 0434 e22f | / | Load 0x1,0x2f 0435 680e |h | Jump_Zero 0x444 0436 4801 |H | Short_Literal 0x1 0437 e22d | - | Load 0x1,0x2d 0438 01d5 | | Execute Vector,Field_Reference 0439 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 043a 0f01 | | Execute_Immediate Equal,0x1 043b 6804 |h | Jump_Zero 0x440 043c 823f | ? | Call 0x1,0x3f 043d e231 | 1 | Load 0x1,0x31 043e 016d | m | Execute Variant_Record,Structure_Write 043f 7807 |x | Jump 0x447 0440 823e | > | Call 0x1,0x3e 0441 e231 | 1 | Load 0x1,0x31 0442 016d | m | Execute Variant_Record,Structure_Write 0443 7803 |x | Jump 0x447 0444 823d | = | Call 0x1,0x3d 0445 e231 | 1 | Load 0x1,0x31 0446 016d | m | Execute Variant_Record,Structure_Write 0447 4801 |H | Short_Literal 0x1 0448 a236 | 6 | Store_Unchecked 0x1,0x36 0449 4800 |H | Short_Literal 0x0 044a a22f | / | Store_Unchecked 0x1,0x2f 044b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 044c 0000 0000 | | .BLANK 0000[0x4] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 00da | | Load_Top At_Offset_2 0454 e228 | ( | Load 0x1,0x28 0455 0227 | ' | Execute Access,All_Reference 0456 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0457 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b e231 | 1 | Load 0x1,0x31 045c 02fd | | Declare_Variable Variant_Record,Duplicate 045d 00cd | | Action Spare6_Action 045e 00ca | | Action Exit_Nullary_Function 045f 0000 | | .XXX[0x1] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0467 | g | .CONST 0x0467 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 00e2 | | Load_Encached Integer_Cache 0464 e20f | | Load 0x1,0xf 0465 e5ff | | Load 0x2,-0x1 0466 0039 | 9 | Store_Top Access,At_Offset_1 0467 BODY_0460: 0467 00cf | | Action Mark_Auxiliary 0468 7832 |x2 | Jump 0x49b 0469 00d9 | | Load_Top At_Offset_1 046a 0227 | ' | Execute Access,All_Reference 046b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 046c 0f01 | | Execute_Immediate Equal,0x1 046d 700f |p | Jump_Nonzero 0x47d 046e 00d9 | | Load_Top At_Offset_1 046f 0227 | ' | Execute Access,All_Reference 0470 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0471 8026 | & | Call 0x0,0x26 0472 6805 |h | Jump_Zero 0x478 0473 00d9 | | Load_Top At_Offset_1 0474 0227 | ' | Execute Access,All_Reference 0475 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0476 821f | | Call 0x1,0x1f 0477 781e |x | Jump 0x496 0478 00d9 | | Load_Top At_Offset_1 0479 0227 | ' | Execute Access,All_Reference 047a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 047b 821f | | Call 0x1,0x1f 047c 7819 |x | Jump 0x496 047d 00d9 | | Load_Top At_Offset_1 047e 0227 | ' | Execute Access,All_Reference 047f 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0480 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0481 0f01 | | Execute_Immediate Equal,0x1 0482 700d |p | Jump_Nonzero 0x490 0483 00d9 | | Load_Top At_Offset_1 0484 0227 | ' | Execute Access,All_Reference 0485 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0486 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0487 8027 | ' | Call 0x0,0x27 0488 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0489 00da | | Load_Top At_Offset_2 048a 00da | | Load_Top At_Offset_2 048b 0227 | ' | Execute Access,All_Reference 048c 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 048d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 048e 8028 | ( | Call 0x0,0x28 048f 7806 |x | Jump 0x496 0490 00d9 | | Load_Top At_Offset_1 0491 0227 | ' | Execute Access,All_Reference 0492 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0493 e029 | ) | Load 0x0,0x29 0494 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0495 802a | * | Call 0x0,0x2a 0496 00d9 | | Load_Top At_Offset_1 0497 0227 | ' | Execute Access,All_Reference 0498 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0499 003a | : | Store_Top Access,At_Offset_2 049a 00c9 | | Action Pop_Auxiliary_Loop 049b 00d9 | | Load_Top At_Offset_1 049c 77cc |w | Jump_Nonzero 0x469 049d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 049e 0000 0000 | | .XXX[0x2] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 00cf | | Action Mark_Auxiliary 04a4 e021 | ! | Load 0x0,0x21 04a5 0265 | e | Execute Discrete,Reverse_Bounds 04a6 0007 | | Action Break_Optional 04a7 00d8 | | Load_Top At_Offset_0 04a8 e234 | 4 | Load 0x1,0x34 04a9 01d7 | | Execute Vector,Field_Read 04aa e5ff | | Load 0x2,-0x1 04ab 027f | | Execute Discrete,Equal 04ac 6804 |h | Jump_Zero 0x4b1 04ad 4800 |H | Short_Literal 0x0 04ae 00d9 | | Load_Top At_Offset_1 04af e234 | 4 | Load 0x1,0x34 04b0 01d6 | | Execute Vector,Field_Write 04b1 00c8 | | Action Pop_Auxiliary_Range 04b2 3ff4 |? | Loop_Increasing 0x4a7 04b3 00ce | | Action Pop_Auxiliary 04b4 e235 | 5 | Load 0x1,0x35 04b5 00db | | Load_Top At_Offset_3 04b6 027f | | Execute Discrete,Equal 04b7 6802 |h | Jump_Zero 0x4ba 04b8 4800 |H | Short_Literal 0x0 04b9 a235 | 5 | Store_Unchecked 0x1,0x35 04ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04bb 0000 0000 | | .BLANK 0000[0x5] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 e227 | ' | Load 0x1,0x27 04c4 6809 |h | Jump_Zero 0x4ce 04c5 e228 | ( | Load 0x1,0x28 04c6 e227 | ' | Load 0x1,0x27 04c7 0227 | ' | Execute Access,All_Reference 04c8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04c9 e227 | ' | Load 0x1,0x27 04ca 0227 | ' | Execute Access,All_Reference 04cb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04cc a227 | ' | Store_Unchecked 0x1,0x27 04cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ce e228 | ( | Load 0x1,0x28 04cf a227 | ' | Store_Unchecked 0x1,0x27 04d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d1 0000 0000 | | .BLANK 0000[0x7] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04dc 0000 0000 | | .BLANK 0000[0x4] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e6 | | .CONST 0x04e6 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0002 | | .CONST 0x0002 ; Number of locals 04e3 INIT_04e0: 04e3 e20f | | Load 0x1,0xf 04e4 00db | | Load_Top At_Offset_3 04e5 0039 | 9 | Store_Top Access,At_Offset_1 04e6 BODY_04e0: 04e6 00cf | | Action Mark_Auxiliary 04e7 783f |x? | Jump 0x527 04e8 00d9 | | Load_Top At_Offset_1 04e9 0227 | ' | Execute Access,All_Reference 04ea 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04eb e20d | | Load 0x1,0xd 04ec 011c | | Execute Any,Convert_Unchecked 04ed 1c01 | | Execute_Immediate Run_Utility,0x1 04ee e00f | | Load 0x0,0xf 04ef 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 04f0 00d9 | | Load_Top At_Offset_1 04f1 0227 | ' | Execute Access,All_Reference 04f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04f3 0f01 | | Execute_Immediate Equal,0x1 04f4 7019 |p | Jump_Nonzero 0x50e 04f5 0092 070b | | Action Push_String_Extended,0x70b ; " " 04f7 e00f | | Load 0x0,0xf 04f8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04f9 0092 070c | | Action Push_String_Extended,0x70c ; "if condition" 04fb e00f | | Load 0x0,0xf 04fc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04fd 00d9 | | Load_Top At_Offset_1 04fe 0227 | ' | Execute Access,All_Reference 04ff 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0500 823b | ; | Call 0x1,0x3b 0501 0092 070d | | Action Push_String_Extended,0x70d ; "else" 0503 e00f | | Load 0x0,0xf 0504 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0505 00d9 | | Load_Top At_Offset_1 0506 0227 | ' | Execute Access,All_Reference 0507 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0508 823b | ; | Call 0x1,0x3b 0509 0092 070e | | Action Push_String_Extended,0x70e ; "fin si" 050b e00f | | Load 0x0,0xf 050c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 050d 7814 |x | Jump 0x522 050e 0092 070b | | Action Push_String_Extended,0x70b ; " " 0510 00da | | Load_Top At_Offset_2 0511 0227 | ' | Execute Access,All_Reference 0512 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0513 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0514 e015 | | Load 0x0,0x15 0515 011c | | Execute Any,Convert_Unchecked 0516 1c01 | | Execute_Immediate Run_Utility,0x1 0517 01cc | | Execute Vector,Catenate 0518 0092 070b | | Action Push_String_Extended,0x70b ; " " 051a 01cc | | Execute Vector,Catenate 051b e00f | | Load 0x0,0xf 051c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 051d 00d9 | | Load_Top At_Offset_1 051e 0227 | ' | Execute Access,All_Reference 051f 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0520 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0521 8016 | | Call 0x0,0x16 0522 00d9 | | Load_Top At_Offset_1 0523 0227 | ' | Execute Access,All_Reference 0524 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0525 003a | : | Store_Top Access,At_Offset_2 0526 00c9 | | Action Pop_Auxiliary_Loop 0527 00d9 | | Load_Top At_Offset_1 0528 77bf |w | Jump_Nonzero 0x4e8 0529 4502 |E | Exit_Suprogram New_Top_Offset 0x2 052a 0000 0000 | | .BLANK 0000[0x6] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0538 | 8 | .CONST 0x0538 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0003 | | .CONST 0x0003 ; Number of locals 0533 INIT_0530: 0533 4800 |H | Short_Literal 0x0 0534 e00d | | Load 0x0,0xd 0535 1c08 | | Execute_Immediate Run_Utility,0x8 0536 00e2 | | Load_Encached Integer_Cache 0537 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0538 BODY_0530: 0538 00d9 | | Load_Top At_Offset_1 0539 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 053a e22c | , | Load 0x1,0x2c 053b 8023 | # | Call 0x0,0x23 053c 00d1 | | Pop_Control Pop_Count_1 053d e236 | 6 | Load 0x1,0x36 053e 0aff | | Execute_Immediate Plus,-0x1 053f 00da | | Load_Top At_Offset_2 0540 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0541 0092 070f | | Action Push_String_Extended,0x70f ; "ACTION : " 0543 e00f | | Load 0x0,0xf 0544 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0545 00cf | | Action Mark_Auxiliary 0546 00d9 | | Load_Top At_Offset_1 0547 00db | | Load_Top At_Offset_3 0548 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0549 01d5 | | Execute Vector,Field_Reference 054a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 054b 801d | | Call 0x0,0x1d 054c 00d9 | | Load_Top At_Offset_1 054d 00db | | Load_Top At_Offset_3 054e 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 054f 01d5 | | Execute Vector,Field_Reference 0550 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0551 e01e | | Load 0x0,0x1e 0552 011c | | Execute Any,Convert_Unchecked 0553 1c01 | | Execute_Immediate Run_Utility,0x1 0554 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0556 01cc | | Execute Vector,Catenate 0557 e00f | | Load 0x0,0xf 0558 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0559 00d9 | | Load_Top At_Offset_1 055a 0a01 | | Execute_Immediate Plus,0x1 055b 005a | Z | Store_Top Discrete,At_Offset_2 055c 00d9 | | Load_Top At_Offset_1 055d 00db | | Load_Top At_Offset_3 055e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 055f 027d | } | Execute Discrete,Greater 0560 7002 |p | Jump_Nonzero 0x563 0561 00c9 | | Action Pop_Auxiliary_Loop 0562 7fe3 | | Jump 0x546 0563 00ce | | Action Pop_Auxiliary 0564 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0566 e00f | | Load 0x0,0xf 0567 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0568 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 056a e00f | | Load 0x0,0xf 056b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 056c 00d9 | | Load_Top At_Offset_1 056d 00ca | | Action Exit_Nullary_Function 056e 0000 0000 | | .XXX[0x2] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0578 | x | .CONST 0x0578 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0003 | | .CONST 0x0003 ; Number of locals 0573 INIT_0570: 0573 4801 |H | Short_Literal 0x1 0574 e00d | | Load 0x0,0xd 0575 1c08 | | Execute_Immediate Run_Utility,0x8 0576 00e2 | | Load_Encached Integer_Cache 0577 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0578 BODY_0570: 0578 00d9 | | Load_Top At_Offset_1 0579 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 057a e22c | , | Load 0x1,0x2c 057b 8023 | # | Call 0x0,0x23 057c 00d1 | | Pop_Control Pop_Count_1 057d e236 | 6 | Load 0x1,0x36 057e 0aff | | Execute_Immediate Plus,-0x1 057f 00da | | Load_Top At_Offset_2 0580 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0581 0092 0710 | | Action Push_String_Extended,0x710 ; "RECHERCHE : " 0583 e00f | | Load 0x0,0xf 0584 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0585 00cf | | Action Mark_Auxiliary 0586 00d9 | | Load_Top At_Offset_1 0587 00db | | Load_Top At_Offset_3 0588 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0589 01d5 | | Execute Vector,Field_Reference 058a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 058b 801d | | Call 0x0,0x1d 058c 00d9 | | Load_Top At_Offset_1 058d 00db | | Load_Top At_Offset_3 058e 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 058f 01d5 | | Execute Vector,Field_Reference 0590 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0591 e01e | | Load 0x0,0x1e 0592 011c | | Execute Any,Convert_Unchecked 0593 1c01 | | Execute_Immediate Run_Utility,0x1 0594 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0596 01cc | | Execute Vector,Catenate 0597 e00f | | Load 0x0,0xf 0598 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0599 00d9 | | Load_Top At_Offset_1 059a 0a01 | | Execute_Immediate Plus,0x1 059b 005a | Z | Store_Top Discrete,At_Offset_2 059c 00d9 | | Load_Top At_Offset_1 059d 00db | | Load_Top At_Offset_3 059e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 059f 027d | } | Execute Discrete,Greater 05a0 7002 |p | Jump_Nonzero 0x5a3 05a1 00c9 | | Action Pop_Auxiliary_Loop 05a2 7fe3 | | Jump 0x586 05a3 00ce | | Action Pop_Auxiliary 05a4 0092 0705 | | Action Push_String_Extended,0x705 ; " " 05a6 e00f | | Load 0x0,0xf 05a7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05a8 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 05aa e00f | | Load 0x0,0xf 05ab 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05ac 00d9 | | Load_Top At_Offset_1 05ad 00ca | | Action Exit_Nullary_Function 05ae 0000 0000 | | .XXX[0x2] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b8 | | .CONST 0x05b8 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0003 | | .CONST 0x0003 ; Number of locals 05b3 INIT_05b0: 05b3 4802 |H | Short_Literal 0x2 05b4 e00d | | Load 0x0,0xd 05b5 1c08 | | Execute_Immediate Run_Utility,0x8 05b6 00e2 | | Load_Encached Integer_Cache 05b7 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 05b8 BODY_05b0: 05b8 00d9 | | Load_Top At_Offset_1 05b9 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 05ba e22d | - | Load 0x1,0x2d 05bb 8023 | # | Call 0x0,0x23 05bc 00d1 | | Pop_Control Pop_Count_1 05bd 00d9 | | Load_Top At_Offset_1 05be 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 05bf e22c | , | Load 0x1,0x2c 05c0 8023 | # | Call 0x0,0x23 05c1 00d1 | | Pop_Control Pop_Count_1 05c2 e237 | 7 | Load 0x1,0x37 05c3 0aff | | Execute_Immediate Plus,-0x1 05c4 00da | | Load_Top At_Offset_2 05c5 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 05c6 e236 | 6 | Load 0x1,0x36 05c7 0aff | | Execute_Immediate Plus,-0x1 05c8 00da | | Load_Top At_Offset_2 05c9 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 05ca e237 | 7 | Load 0x1,0x37 05cb e236 | 6 | Load 0x1,0x36 05cc 027f | | Execute Discrete,Equal 05cd 682b |h+ | Jump_Zero 0x5f9 05ce e236 | 6 | Load 0x1,0x36 05cf 0aff | | Execute_Immediate Plus,-0x1 05d0 e22d | - | Load 0x1,0x2d 05d1 01d5 | | Execute Vector,Field_Reference 05d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d3 0f0b | | Execute_Immediate Equal,0xb 05d4 680a |h | Jump_Zero 0x5df 05d5 e236 | 6 | Load 0x1,0x36 05d6 0aff | | Execute_Immediate Plus,-0x1 05d7 e22c | , | Load 0x1,0x2c 05d8 01d5 | | Execute Vector,Field_Reference 05d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05da 0e0b | | Execute_Immediate Not_Equal,0xb 05db 682c |h, | Jump_Zero 0x608 05dc 4808 |H | Short_Literal 0x8 05dd 8013 | | Call 0x0,0x13 05de 7829 |x) | Jump 0x608 05df 4801 |H | Short_Literal 0x1 05e0 a236 | 6 | Store_Unchecked 0x1,0x36 05e1 00cf | | Action Mark_Auxiliary 05e2 7810 |x | Jump 0x5f3 05e3 e236 | 6 | Load 0x1,0x36 05e4 e22d | - | Load 0x1,0x2d 05e5 01d5 | | Execute Vector,Field_Reference 05e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05e7 e236 | 6 | Load 0x1,0x36 05e8 e22c | , | Load 0x1,0x2c 05e9 01d5 | | Execute Vector,Field_Reference 05ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05eb 027e | ~ | Execute Discrete,Not_Equal 05ec 6802 |h | Jump_Zero 0x5ef 05ed 4808 |H | Short_Literal 0x8 05ee 8013 | | Call 0x0,0x13 05ef e236 | 6 | Load 0x1,0x36 05f0 0a01 | | Execute_Immediate Plus,0x1 05f1 c236 | 6 | Store 0x1,0x36 05f2 00c9 | | Action Pop_Auxiliary_Loop 05f3 e236 | 6 | Load 0x1,0x36 05f4 e237 | 7 | Load 0x1,0x37 05f5 027c | | | Execute Discrete,Less 05f6 77ec |w | Jump_Nonzero 0x5e3 05f7 00ce | | Action Pop_Auxiliary 05f8 780f |x | Jump 0x608 05f9 e237 | 7 | Load 0x1,0x37 05fa 0aff | | Execute_Immediate Plus,-0x1 05fb e22d | - | Load 0x1,0x2d 05fc 01d5 | | Execute Vector,Field_Reference 05fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05fe 0e0b | | Execute_Immediate Not_Equal,0xb 05ff 4801 |H | Short_Literal 0x1 0600 e22c | , | Load 0x1,0x2c 0601 01d5 | | Execute Vector,Field_Reference 0602 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0603 0e02 | | Execute_Immediate Not_Equal,0x2 0604 0279 | y | Execute Discrete,And 0605 6802 |h | Jump_Zero 0x608 0606 4808 |H | Short_Literal 0x8 0607 8013 | | Call 0x0,0x13 0608 4801 |H | Short_Literal 0x1 0609 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 060a 0092 0711 | | Action Push_String_Extended,0x711 ; "EGALITE : " 060c e00f | | Load 0x0,0xf 060d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 060e 0092 0712 | | Action Push_String_Extended,0x712 ; "MEMBRE1 :" 0610 e00f | | Load 0x0,0xf 0611 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0612 00cf | | Action Mark_Auxiliary 0613 00d9 | | Load_Top At_Offset_1 0614 00db | | Load_Top At_Offset_3 0615 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0616 01d5 | | Execute Vector,Field_Reference 0617 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0618 801d | | Call 0x0,0x1d 0619 00d9 | | Load_Top At_Offset_1 061a 00db | | Load_Top At_Offset_3 061b 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 061c 01d5 | | Execute Vector,Field_Reference 061d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 061e e01e | | Load 0x0,0x1e 061f 011c | | Execute Any,Convert_Unchecked 0620 1c01 | | Execute_Immediate Run_Utility,0x1 0621 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0623 01cc | | Execute Vector,Catenate 0624 e00f | | Load 0x0,0xf 0625 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0626 00d9 | | Load_Top At_Offset_1 0627 0a01 | | Execute_Immediate Plus,0x1 0628 005a | Z | Store_Top Discrete,At_Offset_2 0629 00d9 | | Load_Top At_Offset_1 062a 00db | | Load_Top At_Offset_3 062b 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 062c 027d | } | Execute Discrete,Greater 062d 7002 |p | Jump_Nonzero 0x630 062e 00c9 | | Action Pop_Auxiliary_Loop 062f 7fe3 | | Jump 0x613 0630 00ce | | Action Pop_Auxiliary 0631 4801 |H | Short_Literal 0x1 0632 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0633 0092 0705 | | Action Push_String_Extended,0x705 ; " " 0635 e00f | | Load 0x0,0xf 0636 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0637 0092 0713 | | Action Push_String_Extended,0x713 ; "MEMBRE2 :" 0639 e00f | | Load 0x0,0xf 063a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 063b 00cf | | Action Mark_Auxiliary 063c 00d9 | | Load_Top At_Offset_1 063d 00db | | Load_Top At_Offset_3 063e 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 063f 01d5 | | Execute Vector,Field_Reference 0640 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0641 801d | | Call 0x0,0x1d 0642 00d9 | | Load_Top At_Offset_1 0643 00db | | Load_Top At_Offset_3 0644 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 0645 01d5 | | Execute Vector,Field_Reference 0646 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0647 e01e | | Load 0x0,0x1e 0648 011c | | Execute Any,Convert_Unchecked 0649 1c01 | | Execute_Immediate Run_Utility,0x1 064a 0092 0705 | | Action Push_String_Extended,0x705 ; " " 064c 01cc | | Execute Vector,Catenate 064d e00f | | Load 0x0,0xf 064e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 064f 00d9 | | Load_Top At_Offset_1 0650 0a01 | | Execute_Immediate Plus,0x1 0651 005a | Z | Store_Top Discrete,At_Offset_2 0652 00d9 | | Load_Top At_Offset_1 0653 00db | | Load_Top At_Offset_3 0654 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0655 027d | } | Execute Discrete,Greater 0656 7002 |p | Jump_Nonzero 0x659 0657 00c9 | | Action Pop_Auxiliary_Loop 0658 7fe3 | | Jump 0x63c 0659 00ce | | Action Pop_Auxiliary 065a 0092 0705 | | Action Push_String_Extended,0x705 ; " " 065c e00f | | Load 0x0,0xf 065d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 065e 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 0660 e00f | | Load 0x0,0xf 0661 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0662 00d9 | | Load_Top At_Offset_1 0663 00ca | | Action Exit_Nullary_Function 0664 0000 0000 | | .BLANK 0000[0x4] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066e | n | .CONST 0x066e ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0002 | | .CONST 0x0002 ; Number of locals 066b INIT_0668: 066b 4803 |H | Short_Literal 0x3 066c e00d | | Load 0x0,0xd 066d 1c08 | | Execute_Immediate Run_Utility,0x8 066e BODY_0668: 066e 4801 |H | Short_Literal 0x1 066f e22d | - | Load 0x1,0x2d 0670 01d5 | | Execute Vector,Field_Reference 0671 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0672 00d9 | | Load_Top At_Offset_1 0673 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0674 e22e | . | Load 0x1,0x2e 0675 00d9 | | Load_Top At_Offset_1 0676 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 0677 4801 |H | Short_Literal 0x1 0678 e22c | , | Load 0x1,0x2c 0679 01d5 | | Execute Vector,Field_Reference 067a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 067b e019 | | Load 0x0,0x19 067c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 067d 00e2 | | Load_Encached Integer_Cache 067e 00e0 | | Load_Encached Standard_Cache 067f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0680 00d9 | | Load_Top At_Offset_1 0681 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0682 0092 0714 | | Action Push_String_Extended,0x714 ; "COMPARAISON :" 0684 e00f | | Load 0x0,0xf 0685 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0686 00d8 | | Load_Top At_Offset_0 0687 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0688 801d | | Call 0x0,0x1d 0689 00d8 | | Load_Top At_Offset_0 068a 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 068b e00c | | Load 0x0,0xc 068c 011c | | Execute Any,Convert_Unchecked 068d 1c01 | | Execute_Immediate Run_Utility,0x1 068e e00f | | Load 0x0,0xf 068f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0690 0092 070b | | Action Push_String_Extended,0x70b ; " " 0692 00d9 | | Load_Top At_Offset_1 0693 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0694 00e0 | | Load_Encached Standard_Cache 0695 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0696 01cc | | Execute Vector,Catenate 0697 e00f | | Load 0x0,0xf 0698 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0699 0092 0705 | | Action Push_String_Extended,0x705 ; " " 069b e00f | | Load 0x0,0xf 069c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 069d 0092 0702 | | Action Push_String_Extended,0x702 ; "----------------------------------------" 069f e00f | | Load 0x0,0xf 06a0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 06a1 00d8 | | Load_Top At_Offset_0 06a2 00ca | | Action Exit_Nullary_Function 06a3 0000 0000 | | .BLANK 0000[0x5] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06ab | | .CONST 0x06ab ; Address of begin 06a9 0004 | | .CONST 0x0004 ; Address of exception handler 06aa 0001 | | .CONST 0x0001 ; Number of locals 06ab BODY_06a8: 06ab BODY_06a8: 06ab INIT_06a8: 06ab INIT_06a8: 06ab 4609 |F | Jump_Case 0xa 06ac 7809 |x | Jump 0x6b6 ; case 0x0 06ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 06ae 781a |x | Jump 0x6c9 ; case 0x2 06af 781d |x | Jump 0x6cd ; case 0x3 06b0 7822 |x" | Jump 0x6d3 ; case 0x4 06b1 782c |x, | Jump 0x6de ; case 0x5 06b2 7832 |x2 | Jump 0x6e5 ; case 0x6 06b3 7837 |x7 | Jump 0x6eb ; case 0x7 06b4 783f |x? | Jump 0x6f4 ; case 0x8 06b5 7845 |xE | Jump 0x6fb ; case 0x9 06b6 00da | | Load_Top At_Offset_2 06b7 016c | l | Execute Variant_Record,Is_Constrained 06b8 7009 |p | Jump_Nonzero 0x6c2 06b9 00cf | | Action Mark_Auxiliary 06ba 4801 |H | Short_Literal 0x1 06bb e5ff | | Load 0x2,-0x1 06bc 1c08 | | Execute_Immediate Run_Utility,0x8 06bd 00d8 | | Load_Top At_Offset_0 06be 1c00 | | Execute_Immediate Run_Utility,0x0 06bf c5ff | | Store 0x2,-0x1 06c0 00ce | | Action Pop_Auxiliary 06c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06c2 00da | | Load_Top At_Offset_2 06c3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06c4 6803 |h | Jump_Zero 0x6c8 06c5 00da | | Load_Top At_Offset_2 06c6 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 06c7 1c00 | | Execute_Immediate Run_Utility,0x0 06c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06c9 4801 |H | Short_Literal 0x1 06ca 4806 |H | Short_Literal 0x6 06cb 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 06cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 06cd e5fd | | Load 0x2,-0x3 06ce 00db | | Load_Top At_Offset_3 06cf 1c07 | | Execute_Immediate Run_Utility,0x7 06d0 e5fe | | Load 0x2,-0x2 06d1 0306 | | Complete_Type Variant_Record,By_Renaming 06d2 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 06d3 4801 |H | Short_Literal 0x1 06d4 4806 |H | Short_Literal 0x6 06d5 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 06d6 e5fe | | Load 0x2,-0x2 06d7 00d8 | | Load_Top At_Offset_0 06d8 e5ff | | Load 0x2,-0x1 06d9 1c06 | | Execute_Immediate Run_Utility,0x6 06da e5ff | | Load 0x2,-0x1 06db 00db | | Load_Top At_Offset_3 06dc 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 06dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06de 4801 |H | Short_Literal 0x1 06df 00db | | Load_Top At_Offset_3 06e0 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 06e1 6800 |h | Jump_Zero 0x6e2 06e2 e5ff | | Load 0x2,-0x1 06e3 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 06e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06e5 00db | | Load_Top At_Offset_3 06e6 6802 |h | Jump_Zero 0x6e9 06e7 4802 |H | Short_Literal 0x2 06e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06e9 4801 |H | Short_Literal 0x1 06ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06eb 00db | | Load_Top At_Offset_3 06ec e5fe | | Load 0x2,-0x2 06ed 6802 |h | Jump_Zero 0x6f0 06ee 4802 |H | Short_Literal 0x2 06ef 7801 |x | Jump 0x6f1 06f0 4801 |H | Short_Literal 0x1 06f1 e5ff | | Load 0x2,-0x1 06f2 031b | | Declare_Type Variant_Record,Constrained 06f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06f4 00db | | Load_Top At_Offset_3 06f5 e5fe | | Load 0x2,-0x2 06f6 e5ff | | Load 0x2,-0x1 06f7 1c06 | | Execute_Immediate Run_Utility,0x6 06f8 e5ff | | Load 0x2,-0x1 06f9 02fc | | Declare_Variable Variant_Record,With_Constraint 06fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06fb 4801 |H | Short_Literal 0x1 06fc 00db | | Load_Top At_Offset_3 06fd 1c07 | | Execute_Immediate Run_Utility,0x7 06fe 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 06ff ; -------------------------------------------------------------------------------------- 06ff ; STRING TABLE 06ff ; -------------------------------------------------------------------------------------- 06ff 002e | . | .STRTAB 0x002e->0x0716 ; "TYPE_REGLE" 0700 0036 | 6 | .STRTAB 0x0036->0x071b ; "TYPE_INSTRUCTION" 0701 0044 | D | .STRTAB 0x0044->0x0723 ; "level is now: " 0702 0050 | P | .STRTAB 0x0050->0x072a ; "----------------------------------------" 0703 0076 | v | .STRTAB 0x0076->0x073e ; "------------------------------------------" 0704 009e | | .STRTAB 0x009e->0x0753 ; " go to modifie " 0705 00ab | | .STRTAB 0x00ab->0x075a ; " " 0706 00aa | | .STRTAB 0x00aa->0x075b ; "modifierdescription" 0707 00bb | | .STRTAB 0x00bb->0x0764 ; "LEVEL " 0708 00bf | | .STRTAB 0x00bf->0x0767 ; " Can_Use_Sortie_At_Level" 0709 00d5 | | .STRTAB 0x00d5->0x0773 ; "GENERIQUE:" 070a 00dd | | .STRTAB 0x00dd->0x0778 ; " is declare at level " 070b 00f0 | | .STRTAB 0x00f0->0x0783 ; " " 070c 00f0 | | .STRTAB 0x00f0->0x0784 ; "if condition" 070d 00fb | | .STRTAB 0x00fb->0x078a ; "else" 070e 00fd | | .STRTAB 0x00fd->0x078c ; "fin si" 070f 0101 | | .STRTAB 0x0101->0x078f ; "ACTION : " 0710 0108 | | .STRTAB 0x0108->0x0794 ; "RECHERCHE : " 0711 0112 | | .STRTAB 0x0112->0x079a ; "EGALITE : " 0712 011a | | .STRTAB 0x011a->0x079f ; "MEMBRE1 :" 0713 0121 | ! | .STRTAB 0x0121->0x07a3 ; "MEMBRE2 :" 0714 0128 | ( | .STRTAB 0x0128->0x07a8 ; "COMPARAISON :" 0715 0133 | 3 | .STREND 0x0133->0x07ae 0716 5459 5045 |TYPE| .STRTAB_STRINGS 07af 0000 | | .XXX[0x1] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; Debug Table 07b0 ; -------------------------------------------------------------------------------------- 07b0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xebc2,0x0000,0x0001,0x001c 07b6 000b 0826 | &| .DBG4T 0x000b,0x0826,0x8000,0x0000 07ba 004f 083c | O <| .DBG4T 0x004f,0x083c,0x8000,0x0000 07be 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000 07c2 0123 086f | # o| .DBG4T 0x0123,0x086f,0x0001,0x0000 07c6 0163 0881 | c | .DBG4T 0x0163,0x0881,0x0001,0x0000 07ca 0183 0889 | | .DBG4T 0x0183,0x0889,0x0001,0x0000 07ce 01ab 0893 | | .DBG4T 0x01ab,0x0893,0x0001,0x0000 07d2 01e3 089f | | .DBG4T 0x01e3,0x089f,0x0001,0x0000 07d6 01f3 08a4 | | .DBG4T 0x01f3,0x08a4,0x0001,0x0000 07da 020b 08aa | | .DBG4T 0x020b,0x08aa,0x0001,0x0000 07de 0223 08b1 | # | .DBG4T 0x0223,0x08b1,0x0001,0x0000 07e2 024b 08b8 | K | .DBG4T 0x024b,0x08b8,0x0001,0x0000 07e6 0263 08be | c | .DBG4T 0x0263,0x08be,0x0001,0x0000 07ea 02e3 08d7 | | .DBG4T 0x02e3,0x08d7,0x0001,0x4000 07ee 033b 08f0 | ; | .DBG4T 0x033b,0x08f0,0x0001,0x0000 07f2 042b 092a | + *| .DBG4T 0x042b,0x092a,0x0001,0x0000 07f6 0453 0936 | S 6| .DBG4T 0x0453,0x0936,0x0001,0x0000 07fa 045b 0939 | [ 9| .DBG4T 0x045b,0x0939,0x0002,0x0000 07fe 0463 093c | c <| .DBG4T 0x0463,0x093c,0x0001,0x4000 0802 04a3 0954 | T| .DBG4T 0x04a3,0x0954,0x0001,0x0000 0806 04c3 095b | [| .DBG4T 0x04c3,0x095b,0x0001,0x0000 080a 04db 0961 | a| .DBG4T 0x04db,0x0961,0x0001,0x0000 080e 04e3 0964 | d| .DBG4T 0x04e3,0x0964,0x0001,0x4000 0812 0533 097f | 3 | .DBG4T 0x0533,0x097f,0x0002,0x4000 0816 0573 0997 | s | .DBG4T 0x0573,0x0997,0x0002,0x4000 081a 05b3 09af | | .DBG4T 0x05b3,0x09af,0x0002,0x4000 081e 066b 09f3 | k | .DBG4T 0x066b,0x09f3,0x0002,0x0000 0822 06ab 0000 | | .DBG4T 0x06ab,0x0000,0x0005,0x0000 0826 ; -------------------------------------------------------------------------------------- 0826 ; Debug chain 0826 ; -------------------------------------------------------------------------------------- 0826 0014 0000 | | .DBGLEN 0x0014,0x0000 0828 000b 0010 | | .DBGLNO 0x000b,0x0010,0x001b,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f 083c ; -------------------------------------------------------------------------------------- 083c ; Debug chain 083c ; -------------------------------------------------------------------------------------- 083c 0031 0000 | 1 | .DBGLEN 0x0031,0x0000 083e 004f 0051 | O Q| .DBGLNO 0x004f,0x0051,0x005f,0x006d,0x007b,0x007f,0x0083,0x0087,0x0089,0x008b,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0097,0x0098,0x009c,0x009e,0x00a0,0x00ae,0x00b0,0x00b1,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 086f ; -------------------------------------------------------------------------------------- 086f ; Debug chain 086f ; -------------------------------------------------------------------------------------- 086f 0000 0010 | | .DBGLEN 0x0000,0x0010 0871 0123 0126 | # &| .DBGLNO 0x0123,0x0126,0x012e,0x0132,0x0134,0x0136,0x0138,0x013a,0x013b,0x0141,0x0149,0x014b,0x0151,0x0153,0x0159,0x015b 0881 ; -------------------------------------------------------------------------------------- 0881 ; Debug chain 0881 ; -------------------------------------------------------------------------------------- 0881 0000 0006 | | .DBGLEN 0x0000,0x0006 0883 0163 0165 | c e| .DBGLNO 0x0163,0x0165,0x0166,0x016e,0x0170,0x0176 0889 ; -------------------------------------------------------------------------------------- 0889 ; Debug chain 0889 ; -------------------------------------------------------------------------------------- 0889 0001 0007 | | .DBGLEN 0x0001,0x0007 088b 0183 0185 | | .DBGLNO 0x0183,0x0185,0x0186,0x018e,0x0196,0x019a,0x019c,0x019e 0893 ; -------------------------------------------------------------------------------------- 0893 ; Debug chain 0893 ; -------------------------------------------------------------------------------------- 0893 0001 0009 | | .DBGLEN 0x0001,0x0009 0895 01ab 01ad | | .DBGLNO 0x01ab,0x01ad,0x01ae,0x01b6,0x01be,0x01c2,0x01c7,0x01cb,0x01d3,0x01d5 089f ; -------------------------------------------------------------------------------------- 089f ; Debug chain 089f ; -------------------------------------------------------------------------------------- 089f 0000 0003 | | .DBGLEN 0x0000,0x0003 08a1 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5,0x01e7 08a4 ; -------------------------------------------------------------------------------------- 08a4 ; Debug chain 08a4 ; -------------------------------------------------------------------------------------- 08a4 0001 0003 | | .DBGLEN 0x0001,0x0003 08a6 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5,0x01f6,0x01fe 08aa ; -------------------------------------------------------------------------------------- 08aa ; Debug chain 08aa ; -------------------------------------------------------------------------------------- 08aa 0001 0004 | | .DBGLEN 0x0001,0x0004 08ac 020b 020e | | .DBGLNO 0x020b,0x020e,0x0212,0x0214,0x021a 08b1 ; -------------------------------------------------------------------------------------- 08b1 ; Debug chain 08b1 ; -------------------------------------------------------------------------------------- 08b1 0000 0005 | | .DBGLEN 0x0000,0x0005 08b3 0223 0228 | # (| .DBGLNO 0x0223,0x0228,0x022c,0x023b,0x0240 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; Debug chain 08b8 ; -------------------------------------------------------------------------------------- 08b8 0001 0003 | | .DBGLEN 0x0001,0x0003 08ba 024b 024e | K N| .DBGLNO 0x024b,0x024e,0x0250,0x0254 08be ; -------------------------------------------------------------------------------------- 08be ; Debug chain 08be ; -------------------------------------------------------------------------------------- 08be 0001 0016 | | .DBGLEN 0x0001,0x0016 08c0 0263 0265 | c e| .DBGLNO 0x0263,0x0265,0x0267,0x026a,0x026d,0x0270,0x0273,0x027d,0x0280,0x0283,0x0285,0x0288,0x0293,0x029f,0x02a1,0x02a4,0x02ab,0x02ad,0x02b0,0x02b7,0x02b9,0x02c9,0x02dc 08d7 ; -------------------------------------------------------------------------------------- 08d7 ; Debug chain 08d7 ; -------------------------------------------------------------------------------------- 08d7 0001 000b | | .DBGLEN 0x0001,0x000b 08d9 02e3 02e5 | | .DBGLNO 0x02e3,0x02e5,0x02eb,0x02ef,0x02f3,0x02fe,0x0304,0x030c,0x031b,0x031e,0x0328,0x032c 08e5 0001 0002 | | .XXX[0xb] 08e7 0003 0004 | | 08e9 0005 0007 | | 08eb 0008 0009 | | 08ed 000a 000b | | 08ef 000c | | 08f0 ; -------------------------------------------------------------------------------------- 08f0 ; Debug chain 08f0 ; -------------------------------------------------------------------------------------- 08f0 0002 0036 | 6| .DBGLEN 0x0002,0x0036 08f2 033b 033d | ; =| .DBGLNO 0x033b,0x033d,0x033e,0x0340,0x0343,0x0346,0x0349,0x034c,0x034f,0x0356,0x0359,0x035c,0x035e,0x0367,0x0369,0x036d,0x0371,0x0376,0x037a,0x037e,0x0381,0x0386,0x0389,0x038c,0x0391,0x0396,0x0398,0x039b,0x039d,0x03a3,0x03a8,0x03b9,0x03bd,0x03c2,0x03c5,0x03c8,0x03cf,0x03d1,0x03d3,0x03d5,0x03d8,0x03db,0x03df,0x03e1,0x03e3,0x03e6,0x03e9,0x03f1,0x03f4,0x03f7,0x03fa,0x03fc,0x0402,0x040e,0x0418,0x041d 092a ; -------------------------------------------------------------------------------------- 092a ; Debug chain 092a ; -------------------------------------------------------------------------------------- 092a 0000 000a | | .DBGLEN 0x0000,0x000a 092c 042b 042e | + .| .DBGLNO 0x042b,0x042e,0x0430,0x0434,0x0436,0x043c,0x0440,0x0444,0x0447,0x0449 0936 ; -------------------------------------------------------------------------------------- 0936 ; Debug chain 0936 ; -------------------------------------------------------------------------------------- 0936 0000 0001 | | .DBGLEN 0x0000,0x0001 0938 0453 | S | .DBGLNO 0x0453 0939 ; -------------------------------------------------------------------------------------- 0939 ; Debug chain 0939 ; -------------------------------------------------------------------------------------- 0939 0000 0001 | | .DBGLEN 0x0000,0x0001 093b 045b | [ | .DBGLNO 0x045b 093c ; -------------------------------------------------------------------------------------- 093c ; Debug chain 093c ; -------------------------------------------------------------------------------------- 093c 0002 000a | | .DBGLEN 0x0002,0x000a 093e 0463 0464 | c d| .DBGLNO 0x0463,0x0464,0x0469,0x046e,0x0473,0x0478,0x047d,0x0483,0x0489,0x0490,0x0496,0x049b 094a 0002 0007 | | .XXX[0xa] 094c 0008 0009 | | 094e 0003 0005 | | 0950 0006 0004 | | 0952 000a 0001 | | 0954 ; -------------------------------------------------------------------------------------- 0954 ; Debug chain 0954 ; -------------------------------------------------------------------------------------- 0954 0000 0005 | | .DBGLEN 0x0000,0x0005 0956 04a4 04a7 | | .DBGLNO 0x04a4,0x04a7,0x04ad,0x04b4,0x04b8 095b ; -------------------------------------------------------------------------------------- 095b ; Debug chain 095b ; -------------------------------------------------------------------------------------- 095b 0000 0004 | | .DBGLEN 0x0000,0x0004 095d 04c3 04c5 | | .DBGLNO 0x04c3,0x04c5,0x04c9,0x04ce 0961 ; -------------------------------------------------------------------------------------- 0961 ; Debug chain 0961 ; -------------------------------------------------------------------------------------- 0961 0000 0001 | | .DBGLEN 0x0000,0x0001 0963 04db | | .DBGLNO 0x04db 0964 ; -------------------------------------------------------------------------------------- 0964 ; Debug chain 0964 ; -------------------------------------------------------------------------------------- 0964 0001 000c | | .DBGLEN 0x0001,0x000c 0966 04e3 04e8 | | .DBGLNO 0x04e3,0x04e8,0x04f0,0x04f5,0x04f9,0x04fd,0x0501,0x0505,0x0509,0x050e,0x051d,0x0522,0x0527 0973 0002 0003 | | .XXX[0xc] 0975 0006 0007 | | 0977 0008 0009 | | 0979 000a 000b | | 097b 0004 0005 | | 097d 000c 0001 | | 097f ; -------------------------------------------------------------------------------------- 097f ; Debug chain 097f ; -------------------------------------------------------------------------------------- 097f 0002 000a | | .DBGLEN 0x0002,0x000a 0981 0533 0536 | 3 6| .DBGLNO 0x0533,0x0536,0x0538,0x053d,0x0541,0x0546,0x054c,0x0559,0x055c,0x0564,0x0568,0x056c 098d 0001 0002 | | .XXX[0xa] 098f 0003 0005 | | 0991 0006 0007 | | 0993 0008 0009 | | 0995 000a 000b | | 0997 ; -------------------------------------------------------------------------------------- 0997 ; Debug chain 0997 ; -------------------------------------------------------------------------------------- 0997 0002 000a | | .DBGLEN 0x0002,0x000a 0999 0573 0576 | s v| .DBGLNO 0x0573,0x0576,0x0578,0x057d,0x0581,0x0586,0x058c,0x0599,0x059c,0x05a4,0x05a8,0x05ac 09a5 0001 0002 | | .XXX[0xa] 09a7 0003 0005 | | 09a9 0006 0007 | | 09ab 0008 0009 | | 09ad 000a 000b | | 09af ; -------------------------------------------------------------------------------------- 09af ; Debug chain 09af ; -------------------------------------------------------------------------------------- 09af 0002 0020 | | .DBGLEN 0x0002,0x0020 09b1 05b3 05b6 | | .DBGLNO 0x05b3,0x05b6,0x05b8,0x05bd,0x05c2,0x05c6,0x05ca,0x05ce,0x05d5,0x05dc,0x05df,0x05e3,0x05ed,0x05ef,0x05f3,0x05f9,0x0606,0x0608,0x060a,0x060e,0x0613,0x0619,0x0626,0x0629,0x0631,0x0633,0x0637,0x063c,0x0642,0x064f,0x0652,0x065a,0x065e,0x0662 09d3 0001 0002 | | .XXX[0x20] 09d5 0003 0004 | | 09d7 0005 0006 | | 09d9 0007 0008 | | 09db 0009 000b | | 09dd 000c 000d | | 09df 000a 000e | | 09e1 000f 0010 | | 09e3 0011 0012 | | 09e5 0014 0015 | | 09e7 0016 0017 | | 09e9 0018 0019 | | 09eb 001a 001c | | 09ed 001d 001e | | 09ef 001f 0020 | | 09f1 0021 0022 | ! "| 09f3 ; -------------------------------------------------------------------------------------- 09f3 ; Debug chain 09f3 ; -------------------------------------------------------------------------------------- 09f3 0001 000a | | .DBGLEN 0x0001,0x000a 09f5 066b 066e | k n| .DBGLNO 0x066b,0x066e,0x0674,0x0677,0x0682,0x0686,0x0689,0x0690,0x0699,0x069d,0x06a1