|
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: 5120 (0x1400)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_22c4fe
└─⟦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 For_Call,INIT_00e8
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 For_Call,INIT_06a8
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 For_Outer_Call,Visible,Unelaborated,INIT_0120
0021 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0023 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
0025 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0027 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
0029 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
002b 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
002d 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
002f 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
0031 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
0033 029a 02e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e0
0035 029a 033b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0338
0037 029a 042b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0428
0039 029a 0453 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0450
003b 029a 045b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0458
003d 029a 0463 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0460
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 For_Call,INIT_06a8
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 | | PushFullAddress InMicrocode
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 | | PushFullAddress InMicrocode
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 | | PushFullAddress InMicrocode
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 For_Outer_Call,INIT_04a0
00b4 029d 04c3 | | Declare_Subprogram For_Outer_Call,INIT_04c0
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 For_Outer_Call,INIT_04d8
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 For_Outer_Call,Unelaborated,INIT_04e0
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 For_Outer_Call,INIT_0530
00d2 029d 0573 | s| Declare_Subprogram For_Outer_Call,INIT_0570
00d4 029d 05b3 | | Declare_Subprogram For_Outer_Call,INIT_05b0
00d6 029d 066b | k| Declare_Subprogram For_Outer_Call,INIT_0668
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 0x7
00ec 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0102 00db | | Load_Top At_Offset_3
0103 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0104 00db | | Load_Top At_Offset_3
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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_Subprogram 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,Field_Execute_Dynamic
0175 c226 | & | Store 0x1,0x26
0176 4800 |H | Short_Literal 0x0
0177 a229 | ) | Store_Unchecked 0x1,0x29
0178 4501 |E | Exit_Subprogram 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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
01a3 c225 | % | Store 0x1,0x25
01a4 4501 |E | Exit_Subprogram 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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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_Subprogram 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_Subprogram 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,Field_Execute_Dynamic
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Unchecked 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_Subprogram 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_Subprogram 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_Subprogram 0x1
04ce e228 | ( | Load 0x1,0x28
04cf a227 | ' | Store_Unchecked 0x1,0x27
04d0 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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
; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
; Number of locals
06ab BODY_06a8:
06ab BODY_06a8:
06ab INIT_06a8:
06ab INIT_06a8:
06ab 4609 |F | Jump_Case 0x9
06ac 7809 |x | Jump 0x6b6 ; case 0x0
06ad 4302 |C | Exit_Subprogram From_Utility,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,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,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,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,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,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,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,0x2
06e9 4801 |H | Short_Literal 0x1
06ea 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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,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,0xe405,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