|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0810ad
└─⟦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 0390 | | .CONST 0x0390 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b5 | | .CONST 0x00b5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0030 | 0 | .CONST 0x0030 ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 60ca |` | Indirect_Literal Discrete,0xd8,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 0093 0000 | | push_full_address 0x0 0012 60c1 |` | Indirect_Literal Discrete,0xd4,{0x80000000, 0x00020000} 0013 0273 | s | Execute Discrete,Plus 0014 0129 | ) | Execute Any,Make_Visible 0015 0093 0000 | | push_full_address 0x0 0017 60b8 |` | Indirect_Literal Discrete,0xd0,{0x80000000, 0x00030000} 0018 0273 | s | Execute Discrete,Plus 0019 0129 | ) | Execute Any,Make_Visible 001a 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 001c 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001e 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0020 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0022 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0024 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0026 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0028 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 002a 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 002c 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 002e 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0030 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0032 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0034 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0036 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0038 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 003a 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 003c 4820 |H | Short_Literal 0x20 003d e002 | | Load 0x0,0x2 003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003f 1c07 | | Execute_Immediate Run_Utility,0x7 0040 0129 | ) | Execute Any,Make_Visible 0041 4820 |H | Short_Literal 0x20 0042 e002 | | Load 0x0,0x2 0043 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0044 1c07 | | Execute_Immediate Run_Utility,0x7 0045 0129 | ) | Execute Any,Make_Visible 0046 e003 | | Load 0x0,0x3 0047 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call 0049 4803 |H | Short_Literal 0x3 004a 032e | . | Declare_Type Record,Defined,Visible 004b 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 004d 0093 0000 | | push_full_address 0x0 004f 607c |`| | Indirect_Literal Discrete,0xcc,{0x80000000, 0x00010000} 0050 0273 | s | Execute Discrete,Plus 0051 e004 | | Load 0x0,0x4 0052 0273 | s | Execute Discrete,Plus 0053 e005 | | Load 0x0,0x5 0054 0273 | s | Execute Discrete,Plus 0055 00da | | Load_Top At_Offset_2 0056 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0057 e006 | | Load 0x0,0x6 0058 0386 | | Declare_Variable Package,Visible 0059 00d8 | | Load_Top At_Offset_0 005a 020f | | Execute Module,Activate 005b e007 | | Load 0x0,0x7 005c 00d9 | | Load_Top At_Offset_1 005d 0098 | | Execute Package,Field_Read_Dynamic 005e 02a0 | | Declare_Subprogram Null_Subprogram 005f 4801 |H | Short_Literal 0x1 0060 032e | . | Declare_Type Record,Defined,Visible 0061 e008 | | Load 0x0,0x8 0062 00da | | Load_Top At_Offset_2 0063 0098 | | Execute Package,Field_Read_Dynamic 0064 02a0 | | Declare_Subprogram Null_Subprogram 0065 4801 |H | Short_Literal 0x1 0066 032e | . | Declare_Type Record,Defined,Visible 0067 00bf | | Action Accept_Activation 0068 e221 | ! | Load 0x1,0x21 0069 0322 | " | Declare_Variable Record 006a 00d8 | | Load_Top At_Offset_0 006b 1c00 | | Execute_Immediate Run_Utility,0x0 006c 00e1 | | Load_Encached Boolean_Cache 006d 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 006f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0070 00c7 | | Action Elaborate_Subprogram 0071 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 0073 e009 | | Load 0x0,0x9 0074 e223 | # | Load 0x1,0x23 0075 0095 | | Execute Package,Field_Reference_Dynamic 0076 00c6 | | Action Check_Subprogram_Elaborated 0077 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0078 0093 0000 | | push_full_address 0x0 007a 604d |`M | Indirect_Literal Discrete,0xc8,{0x80000000, 0x00030000} 007b 0273 | s | Execute Discrete,Plus 007c e004 | | Load 0x0,0x4 007d 0273 | s | Execute Discrete,Plus 007e e00a | | Load 0x0,0xa 007f 0273 | s | Execute Discrete,Plus 0080 4800 |H | Short_Literal 0x0 0081 0007 | | Action Break_Optional 0082 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 0084 e00b | | Load 0x0,0xb 0085 e223 | # | Load 0x1,0x23 0086 0095 | | Execute Package,Field_Reference_Dynamic 0087 00c6 | | Action Check_Subprogram_Elaborated 0088 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0089 0093 0000 | | push_full_address 0x0 008b 6038 |`8 | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00020000} 008c 0273 | s | Execute Discrete,Plus 008d e004 | | Load 0x0,0x4 008e 0273 | s | Execute Discrete,Plus 008f e00c | | Load 0x0,0xc 0090 0273 | s | Execute Discrete,Plus 0091 4800 |H | Short_Literal 0x0 0092 0007 | | Action Break_Optional 0093 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0094 00c7 | | Action Elaborate_Subprogram 0095 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0096 00c7 | | Action Elaborate_Subprogram 0097 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0098 00c7 | | Action Elaborate_Subprogram 0099 1d12 | | Execute_Immediate Reference_Lex_1,0x12 009a 00c7 | | Action Elaborate_Subprogram 009b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 009c 00c7 | | Action Elaborate_Subprogram 009d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 009e 00c7 | | Action Elaborate_Subprogram 009f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00b0 00c7 | | Action Elaborate_Subprogram 00b1 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00b4 00c7 | | Action Elaborate_Subprogram 00b5 BODY_0008: 00b5 00bc | | Action Signal_Activated 00b6 00bb | | Action Signal_Completion 00b7 0000 | | .XXX[0x1] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e00d | | Load 0x0,0xd 00bc e223 | # | Load 0x1,0x23 00bd 0096 | | Execute Package,Entry 00be 00db | | Load_Top At_Offset_3 00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c1 0000 0000 | | .XXX[0x3] 00c3 0000 | | 00c4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00c8 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 00cc 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00d0 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 00d4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00d8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e9 | | .CONST 0x00e9 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e221 | ! | Load 0x1,0x21 00e4 0322 | " | Declare_Variable Record 00e5 00d8 | | Load_Top At_Offset_0 00e6 1c00 | | Execute_Immediate Run_Utility,0x0 00e7 e003 | | Load 0x0,0x3 00e8 0322 | " | Declare_Variable Record 00e9 BODY_00e0: 00e9 00d8 | | Load_Top At_Offset_0 00ea 800e | | Call 0x0,0xe 00eb 00d1 | | Pop_Control Pop_Count_1 00ec 00d8 | | Load_Top At_Offset_0 00ed e5fe | | Load 0x2,-0x2 00ee 00d8 | | Load_Top At_Offset_0 00ef 8228 | ( | Call 0x1,0x28 00f0 00da | | Load_Top At_Offset_2 00f1 017d | } | Execute Record,Structure_Write 00f2 e5ff | | Load 0x2,-0x1 00f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f4 00da | | Load_Top At_Offset_2 00f5 e00f | | Load 0x0,0xf 00f6 e223 | # | Load 0x1,0x23 00f7 0096 | | Execute Package,Entry 00f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0106 | | .CONST 0x0106 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0003 | | .CONST 0x0003 ; Number of locals 0103 INIT_0100: 0103 e003 | | Load 0x0,0x3 0104 0322 | " | Declare_Variable Record 0105 00e1 | | Load_Encached Boolean_Cache 0106 BODY_0100: 0106 00d9 | | Load_Top At_Offset_1 0107 800e | | Call 0x0,0xe 0108 00d1 | | Pop_Control Pop_Count_1 0109 00d9 | | Load_Top At_Offset_1 010a e5fe | | Load 0x2,-0x2 010b e5ff | | Load 0x2,-0x1 010c 8215 | | Call 0x1,0x15 010d 00d1 | | Pop_Control Pop_Count_1 010e e5fd | | Load 0x2,-0x3 010f 00da | | Load_Top At_Offset_2 0110 8010 | | Call 0x0,0x10 0111 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0112 00d9 | | Load_Top At_Offset_1 0113 8011 | | Call 0x0,0x11 0114 00d1 | | Pop_Control Pop_Count_1 0115 00d8 | | Load_Top At_Offset_0 0116 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0123 | # | .CONST 0x0123 ; Address of begin 0119 013f | ? | .CONST 0x013f ; Address of exception handler 011a 0004 | | .CONST 0x0004 ; Number of locals 011b INIT_0118: 011b 00e1 | | Load_Encached Boolean_Cache 011c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 011d e221 | ! | Load 0x1,0x21 011e 0322 | " | Declare_Variable Record 011f 00d8 | | Load_Top At_Offset_0 0120 1c00 | | Execute_Immediate Run_Utility,0x0 0121 e003 | | Load 0x0,0x3 0122 0322 | " | Declare_Variable Record 0123 BODY_0118: 0123 00d8 | | Load_Top At_Offset_0 0124 800e | | Call 0x0,0xe 0125 00d1 | | Pop_Control Pop_Count_1 0126 00d8 | | Load_Top At_Offset_0 0127 e5fe | | Load 0x2,-0x2 0128 00d8 | | Load_Top At_Offset_0 0129 8228 | ( | Call 0x1,0x28 012a 00da | | Load_Top At_Offset_2 012b 017d | } | Execute Record,Structure_Write 012c 00d9 | | Load_Top At_Offset_1 012d 00e1 | | Load_Encached Boolean_Cache 012e e5ff | | Load 0x2,-0x1 012f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0130 e403 | | Load 0x2,0x3 0131 e012 | | Load 0x0,0x12 0132 e223 | # | Load 0x1,0x23 0133 0096 | | Execute Package,Entry 0134 c402 | | Store 0x2,0x2 0135 00d1 | | Pop_Control Pop_Count_1 0136 00da | | Load_Top At_Offset_2 0137 6805 |h | Jump_Zero 0x13d 0138 00d9 | | Load_Top At_Offset_1 0139 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 013a e002 | | Load 0x0,0x2 013b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013d 00ea | | Load_Encached Null_String_Cache 013e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013f TRAP_0118: 013f 0007 | | Action Break_Optional 0140 e20f | | Load 0x1,0xf 0141 0257 | W | Execute Discrete,Raise 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0153 | S | .CONST 0x0153 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e003 | | Load 0x0,0x3 014c 0322 | " | Declare_Variable Record 014d 4820 |H | Short_Literal 0x20 014e e002 | | Load 0x0,0x2 014f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0150 1c08 | | Execute_Immediate Run_Utility,0x8 0151 00d8 | | Load_Top At_Offset_0 0152 1c00 | | Execute_Immediate Run_Utility,0x0 0153 BODY_0148: 0153 00d8 | | Load_Top At_Offset_0 0154 e002 | | Load 0x0,0x2 0155 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0156 00d1 | | Pop_Control Pop_Count_1 0157 00d9 | | Load_Top At_Offset_1 0158 800e | | Call 0x0,0xe 0159 00d1 | | Pop_Control Pop_Count_1 015a 00d9 | | Load_Top At_Offset_1 015b e5fe | | Load 0x2,-0x2 015c e5ff | | Load 0x2,-0x1 015d 8215 | | Call 0x1,0x15 015e 00d1 | | Pop_Control Pop_Count_1 015f 00d8 | | Load_Top At_Offset_0 0160 e5fd | | Load 0x2,-0x3 0161 00db | | Load_Top At_Offset_3 0162 8013 | | Call 0x0,0x13 0163 e002 | | Load 0x0,0x2 0164 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0165 00d1 | | Pop_Control Pop_Count_1 0166 00d9 | | Load_Top At_Offset_1 0167 8011 | | Call 0x0,0x11 0168 00d1 | | Pop_Control Pop_Count_1 0169 00d8 | | Load_Top At_Offset_0 016a e002 | | Load 0x0,0x2 016b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 016c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017b | { | .CONST 0x017b ; Address of begin 0171 0196 | | .CONST 0x0196 ; Address of exception handler 0172 0004 | | .CONST 0x0004 ; Number of locals 0173 INIT_0170: 0173 00e1 | | Load_Encached Boolean_Cache 0174 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0175 e221 | ! | Load 0x1,0x21 0176 0322 | " | Declare_Variable Record 0177 00d8 | | Load_Top At_Offset_0 0178 1c00 | | Execute_Immediate Run_Utility,0x0 0179 e003 | | Load 0x0,0x3 017a 0322 | " | Declare_Variable Record 017b BODY_0170: 017b 00d8 | | Load_Top At_Offset_0 017c 800e | | Call 0x0,0xe 017d 00d1 | | Pop_Control Pop_Count_1 017e 00d8 | | Load_Top At_Offset_0 017f e5fe | | Load 0x2,-0x2 0180 00d8 | | Load_Top At_Offset_0 0181 8228 | ( | Call 0x1,0x28 0182 00da | | Load_Top At_Offset_2 0183 017d | } | Execute Record,Structure_Write 0184 00d9 | | Load_Top At_Offset_1 0185 00e1 | | Load_Encached Boolean_Cache 0186 e5ff | | Load 0x2,-0x1 0187 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0188 e403 | | Load 0x2,0x3 0189 e012 | | Load 0x0,0x12 018a e223 | # | Load 0x1,0x23 018b 0096 | | Execute Package,Entry 018c c402 | | Store 0x2,0x2 018d 00d1 | | Pop_Control Pop_Count_1 018e 00da | | Load_Top At_Offset_2 018f 6805 |h | Jump_Zero 0x195 0190 e5fd | | Load 0x2,-0x3 0191 00da | | Load_Top At_Offset_2 0192 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0193 8014 | | Call 0x0,0x14 0194 00d1 | | Pop_Control Pop_Count_1 0195 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0196 TRAP_0170: 0196 0007 | | Action Break_Optional 0197 e20f | | Load 0x1,0xf 0198 0257 | W | Execute Discrete,Raise 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a9 | | .CONST 0x01a9 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0004 | | .CONST 0x0004 ; Number of locals 01a3 INIT_01a0: 01a3 e015 | | Load 0x0,0x15 01a4 0322 | " | Declare_Variable Record 01a5 00e2 | | Load_Encached Integer_Cache 01a6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01a7 e003 | | Load 0x0,0x3 01a8 0322 | " | Declare_Variable Record 01a9 BODY_01a0: 01a9 00d8 | | Load_Top At_Offset_0 01aa 800e | | Call 0x0,0xe 01ab 00d1 | | Pop_Control Pop_Count_1 01ac 00d8 | | Load_Top At_Offset_0 01ad e5fe | | Load 0x2,-0x2 01ae e5ff | | Load 0x2,-0x1 01af 8215 | | Call 0x1,0x15 01b0 00d1 | | Pop_Control Pop_Count_1 01b1 00da | | Load_Top At_Offset_2 01b2 00d9 | | Load_Top At_Offset_1 01b3 8016 | | Call 0x0,0x16 01b4 00d1 | | Pop_Control Pop_Count_1 01b5 00cf | | Action Mark_Auxiliary 01b6 780e |x | Jump 0x1c5 01b7 00da | | Load_Top At_Offset_2 01b8 e5fd | | Load 0x2,-0x3 01b9 027f | | Execute Discrete,Equal 01ba 6803 |h | Jump_Zero 0x1be 01bb 00db | | Load_Top At_Offset_3 01bc 8017 | | Call 0x0,0x17 01bd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01be 00da | | Load_Top At_Offset_2 01bf 0a01 | | Execute_Immediate Plus,0x1 01c0 005b | [ | Store_Top Discrete,At_Offset_3 01c1 00db | | Load_Top At_Offset_3 01c2 8018 | | Call 0x0,0x18 01c3 00d1 | | Pop_Control Pop_Count_1 01c4 00c9 | | Action Pop_Auxiliary_Loop 01c5 00db | | Load_Top At_Offset_3 01c6 8019 | | Call 0x0,0x19 01c7 6fef |o | Jump_Zero 0x1b7 01c8 00ce | | Action Pop_Auxiliary 01c9 00d8 | | Load_Top At_Offset_0 01ca 8011 | | Call 0x0,0x11 01cb 00d1 | | Pop_Control Pop_Count_1 01cc 0092 034a | J| Action Push_String_Extended,0x34a ; "Erreur sur affichage de variables enumeres" 01ce 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4800 |H | Short_Literal 0x0 01d4 00db | | Load_Top At_Offset_3 01d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d6 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 01d7 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 01d8 e00b | | Load 0x0,0xb 01d9 e223 | # | Load 0x1,0x23 01da 0096 | | Execute Package,Entry 01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dc 0000 0000 | | .BLANK 0000[0x4] 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 0092 034b | K| Action Push_String_Extended,0x34b ; "Number of Model:" 01e5 00db | | Load_Top At_Offset_3 01e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e7 e01a | | Load 0x0,0x1a 01e8 e223 | # | Load 0x1,0x23 01e9 0096 | | Execute Package,Entry 01ea 00e0 | | Load_Encached Standard_Cache 01eb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ec 01cc | | Execute Vector,Catenate 01ed e01b | | Load 0x0,0x1b 01ee 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fb | | .CONST 0x01fb ; Address of begin 01f1 0215 | | .CONST 0x0215 ; Address of exception handler 01f2 0004 | | .CONST 0x0004 ; Number of locals 01f3 INIT_01f0: 01f3 00e1 | | Load_Encached Boolean_Cache 01f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01f5 e221 | ! | Load 0x1,0x21 01f6 0322 | " | Declare_Variable Record 01f7 00d8 | | Load_Top At_Offset_0 01f8 1c00 | | Execute_Immediate Run_Utility,0x0 01f9 e003 | | Load 0x0,0x3 01fa 0322 | " | Declare_Variable Record 01fb BODY_01f0: 01fb 00d8 | | Load_Top At_Offset_0 01fc 800e | | Call 0x0,0xe 01fd 00d1 | | Pop_Control Pop_Count_1 01fe 00d8 | | Load_Top At_Offset_0 01ff e5fd | | Load 0x2,-0x3 0200 8014 | | Call 0x0,0x14 0201 00d1 | | Pop_Control Pop_Count_1 0202 00d9 | | Load_Top At_Offset_1 0203 00e1 | | Load_Encached Boolean_Cache 0204 e5fc | | Load 0x2,-0x4 0205 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0206 00db | | Load_Top At_Offset_3 0207 e5fe | | Load 0x2,-0x2 0208 e5ff | | Load 0x2,-0x1 0209 8228 | ( | Call 0x1,0x28 020a e01c | | Load 0x0,0x1c 020b e223 | # | Load 0x1,0x23 020c 0096 | | Execute Package,Entry 020d c402 | | Store 0x2,0x2 020e 00d1 | | Pop_Control Pop_Count_1 020f 00da | | Load_Top At_Offset_2 0210 6803 |h | Jump_Zero 0x214 0211 00d9 | | Load_Top At_Offset_1 0212 8229 | ) | Call 0x1,0x29 0213 00d1 | | Pop_Control Pop_Count_1 0214 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0215 TRAP_01f0: 0215 0007 | | Action Break_Optional 0216 e20d | | Load 0x1,0xd 0217 0257 | W | Execute Discrete,Raise 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 021e 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 021f e009 | | Load 0x0,0x9 0220 e223 | # | Load 0x1,0x23 0221 0096 | | Execute Package,Entry 0222 00db | | Load_Top At_Offset_3 0223 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0224 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 022d e01d | | Load 0x0,0x1d 022e e223 | # | Load 0x1,0x23 022f 0096 | | Execute Package,Entry 0230 e5fe | | Load 0x2,-0x2 0231 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0232 4800 |H | Short_Literal 0x0 0233 a227 | ' | Store_Unchecked 0x1,0x27 0234 00db | | Load_Top At_Offset_3 0235 821c | | Call 0x1,0x1c 0236 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0237 0000 | | .XXX[0x1] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e227 | ' | Load 0x1,0x27 023c 7012 |p | Jump_Nonzero 0x24f 023d 00da | | Load_Top At_Offset_2 023e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023f e01e | | Load 0x0,0x1e 0240 e223 | # | Load 0x1,0x23 0241 0096 | | Execute Package,Entry 0242 680a |h | Jump_Zero 0x24d 0243 e226 | & | Load 0x1,0x26 0244 00db | | Load_Top At_Offset_3 0245 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0246 e01f | | Load 0x0,0x1f 0247 e223 | # | Load 0x1,0x23 0248 0096 | | Execute Package,Entry 0249 e5ff | | Load 0x2,-0x1 024a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 024b 00d1 | | Pop_Control Pop_Count_1 024c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024d e20e | | Load 0x1,0xe 024e 0257 | W | Execute Discrete,Raise 024f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0258 | X | .CONST 0x0258 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e226 | & | Load 0x1,0x26 0254 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0255 e002 | | Load 0x0,0x2 0256 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 TRAP_0250: 0258 0007 | | Action Break_Optional 0259 e20e | | Load 0x1,0xe 025a 0257 | W | Execute Discrete,Raise 025b 0000 0000 | | .BLANK 0000[0x5] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0268 | h | .CONST 0x0268 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 e226 | & | Load 0x1,0x26 0264 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0265 e002 | | Load 0x0,0x2 0266 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0267 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0268 TRAP_0260: 0268 0007 | | Action Break_Optional 0269 e20e | | Load 0x1,0xe 026a 0257 | W | Execute Discrete,Raise 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0278 | x | .CONST 0x0278 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00db | | Load_Top At_Offset_3 0274 e226 | & | Load 0x1,0x26 0275 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0276 8014 | | Call 0x0,0x14 0277 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0278 TRAP_0270: 0278 0007 | | Action Break_Optional 0279 e20e | | Load 0x1,0xe 027a 0257 | W | Execute Discrete,Raise 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0285 | | .CONST 0x0285 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0002 | | .CONST 0x0002 ; Number of locals 0283 INIT_0280: 0283 00e1 | | Load_Encached Boolean_Cache 0284 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0285 BODY_0280: 0285 00db | | Load_Top At_Offset_3 0286 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0287 e01e | | Load 0x0,0x1e 0288 e223 | # | Load 0x1,0x23 0289 0096 | | Execute Package,Entry 028a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 028b 00d8 | | Load_Top At_Offset_0 028c 6802 |h | Jump_Zero 0x28f 028d 4800 |H | Short_Literal 0x0 028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028f 00d8 | | Load_Top At_Offset_0 0290 0f00 | | Execute_Immediate Equal,0x0 0291 e227 | ' | Load 0x1,0x27 0292 0f00 | | Execute_Immediate Equal,0x0 0293 0279 | y | Execute Discrete,And 0294 6804 |h | Jump_Zero 0x299 0295 4801 |H | Short_Literal 0x1 0296 a227 | ' | Store_Unchecked 0x1,0x27 0297 4800 |H | Short_Literal 0x0 0298 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0299 00d8 | | Load_Top At_Offset_0 029a 0f00 | | Execute_Immediate Equal,0x0 029b e227 | ' | Load 0x1,0x27 029c 0279 | y | Execute Discrete,And 029d 6802 |h | Jump_Zero 0x2a0 029e 4801 |H | Short_Literal 0x1 029f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a0 0831 | 1 | Execute_Immediate Raise,0x31 02a1 0000 0000 | | .BLANK 0000[0x7] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ad | | .CONST 0x02ad ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 02ad BODY_02a8: 02ad 8402 | | Call 0x2,0x2 02ae 0831 | 1 | Execute_Immediate Raise,0x31 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b7 | | .CONST 0x02b7 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e221 | ! | Load 0x1,0x21 02b4 0322 | " | Declare_Variable Record 02b5 00d8 | | Load_Top At_Offset_0 02b6 1c00 | | Execute_Immediate Run_Utility,0x0 02b7 BODY_02b0: 02b7 00d8 | | Load_Top At_Offset_0 02b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b9 e002 | | Load 0x0,0x2 02ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02bb 00d1 | | Pop_Control Pop_Count_1 02bc 00d8 | | Load_Top At_Offset_0 02bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02be e5ff | | Load 0x2,-0x1 02bf e002 | | Load 0x0,0x2 02c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02c1 00d1 | | Pop_Control Pop_Count_1 02c2 00d8 | | Load_Top At_Offset_0 02c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c4 e002 | | Load 0x0,0x2 02c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02c6 00d1 | | Pop_Control Pop_Count_1 02c7 00d8 | | Load_Top At_Offset_0 02c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c9 e5fe | | Load 0x2,-0x2 02ca e002 | | Load 0x0,0x2 02cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02cc 00d1 | | Pop_Control Pop_Count_1 02cd 00d8 | | Load_Top At_Offset_0 02ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02cf e5fd | | Load 0x2,-0x3 02d0 8020 | | Call 0x0,0x20 02d1 00d1 | | Pop_Control Pop_Count_1 02d2 00d8 | | Load_Top At_Offset_0 02d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02d4 0000 0000 | | .BLANK 0000[0x4] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 00da | | Load_Top At_Offset_2 02dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02dd 8011 | | Call 0x0,0x11 02de 00d1 | | Pop_Control Pop_Count_1 02df 00da | | Load_Top At_Offset_2 02e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e1 e002 | | Load 0x0,0x2 02e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e3 00d1 | | Pop_Control Pop_Count_1 02e4 00da | | Load_Top At_Offset_2 02e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02e6 e002 | | Load 0x0,0x2 02e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e9 0000 0000 | | .BLANK 0000[0x7] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 0092 034c | L| Action Push_String_Extended,0x34c ; "........................................" 02f5 e01b | | Load 0x0,0x1b 02f6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02f7 00da | | Load_Top At_Offset_2 02f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02f9 e002 | | Load 0x0,0x2 02fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fb 0092 034d | M| Action Push_String_Extended,0x34d ; " " 02fd 01cc | | Execute Vector,Catenate 02fe 00db | | Load_Top At_Offset_3 02ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0300 e002 | | Load 0x0,0x2 0301 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0302 01cc | | Execute Vector,Catenate 0303 0092 034e | N| Action Push_String_Extended,0x34e ; " With Fields: " 0305 01cc | | Execute Vector,Catenate 0306 e01b | | Load 0x0,0x1b 0307 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0308 00da | | Load_Top At_Offset_2 0309 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 030a 8021 | ! | Call 0x0,0x21 030b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 e5ff | | Load 0x2,-0x1 0314 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0315 e002 | | Load 0x0,0x2 0316 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0317 e5fe | | Load 0x2,-0x2 0318 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0319 e002 | | Load 0x0,0x2 031a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 031b 01c1 | | Execute Vector,Less 031c 6803 |h | Jump_Zero 0x320 031d 4fff |O | Short_Literal -0x1 031e 00cb | | Action Pop_Block_With_Result 031f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0320 e5ff | | Load 0x2,-0x1 0321 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0322 e002 | | Load 0x0,0x2 0323 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0324 e5fe | | Load 0x2,-0x2 0325 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0326 e002 | | Load 0x0,0x2 0327 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0328 01df | | Execute Vector,Equal 0329 6803 |h | Jump_Zero 0x32d 032a 4800 |H | Short_Literal 0x0 032b 00cb | | Action Pop_Block_With_Result 032c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 032d 4801 |H | Short_Literal 0x1 032e 00cb | | Action Pop_Block_With_Result 032f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 4601 |F | Jump_Case 0x2 0334 7801 |x | Jump 0x336 ; case 0x0 0335 780d |x | Jump 0x343 ; case 0x1 0336 00da | | Load_Top At_Offset_2 0337 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0338 0125 | % | Execute Any,Set_Constraint 0339 00da | | Load_Top At_Offset_2 033a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 033b 1c00 | | Execute_Immediate Run_Utility,0x0 033c 00da | | Load_Top At_Offset_2 033d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 033e 0125 | % | Execute Any,Set_Constraint 033f 00da | | Load_Top At_Offset_2 0340 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0341 1c00 | | Execute_Immediate Run_Utility,0x0 0342 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0343 00da | | Load_Top At_Offset_2 0344 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0345 0125 | % | Execute Any,Set_Constraint 0346 00da | | Load_Top At_Offset_2 0347 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0348 0125 | % | Execute Any,Set_Constraint 0349 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 034a ; -------------------------------------------------------------------------------------- 034a ; STRING TABLE 034a ; -------------------------------------------------------------------------------------- 034a 000c | | .STRTAB 0x000c->0x0350 ; "Erreur sur affichage de variables enumeres" 034b 0034 | 4 | .STRTAB 0x0034->0x0365 ; "Number of Model:" 034c 0042 | B | .STRTAB 0x0042->0x036d ; "........................................" 034d 0068 | h | .STRTAB 0x0068->0x0381 ; " " 034e 0067 | g | .STRTAB 0x0067->0x0381 ; " With Fields: " 034f 0073 | s | .STREND 0x0073->0x0388 0350 4572 7265 |Erre| .STRTAB_STRINGS 0389 0000 0000 | | .BLANK 0000[0x7] 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug Table 0390 ; -------------------------------------------------------------------------------------- 0390 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd5f8,0x0000,0x0001,0x0019 0396 000b 03fa | | .DBG4T 0x000b,0x03fa,0x8000,0x8000 039a 0068 042e | h .| .DBG4T 0x0068,0x042e,0x8000,0x8000 039e 00bb 0462 | b| .DBG4T 0x00bb,0x0462,0x0001,0x0000 03a2 00e3 0465 | e| .DBG4T 0x00e3,0x0465,0x0002,0x0000 03a6 0103 046c | l| .DBG4T 0x0103,0x046c,0x0002,0x0000 03aa 011b 0475 | u| .DBG4T 0x011b,0x0475,0x0002,0x0000 03ae 014b 0481 | K | .DBG4T 0x014b,0x0481,0x0002,0x0000 03b2 0173 048b | s | .DBG4T 0x0173,0x048b,0x0001,0x0000 03b6 01a3 0496 | | .DBG4T 0x01a3,0x0496,0x0002,0x4000 03ba 01d3 04af | | .DBG4T 0x01d3,0x04af,0x0001,0x0000 03be 01e3 04b2 | | .DBG4T 0x01e3,0x04b2,0x0001,0x0000 03c2 01f3 04b5 | | .DBG4T 0x01f3,0x04b5,0x0001,0x0000 03c6 021b 04c0 | | .DBG4T 0x021b,0x04c0,0x0001,0x0000 03ca 022b 04c3 | + | .DBG4T 0x022b,0x04c3,0x0001,0x0000 03ce 023b 04c8 | ; | .DBG4T 0x023b,0x04c8,0x0001,0x0000 03d2 0253 04ce | S | .DBG4T 0x0253,0x04ce,0x0002,0x0000 03d6 0263 04d2 | c | .DBG4T 0x0263,0x04d2,0x0002,0x0000 03da 0273 04d6 | s | .DBG4T 0x0273,0x04d6,0x0001,0x0000 03de 0283 04da | | .DBG4T 0x0283,0x04da,0x0002,0x0000 03e2 02ab 04e5 | | .DBG4T 0x02ab,0x04e5,0x0002,0x0000 03e6 02b3 04e8 | | .DBG4T 0x02b3,0x04e8,0x0002,0x0000 03ea 02db 04f1 | | .DBG4T 0x02db,0x04f1,0x0001,0x0000 03ee 02f3 04f6 | | .DBG4T 0x02f3,0x04f6,0x0001,0x0000 03f2 0313 04fb | | .DBG4T 0x0313,0x04fb,0x0004,0x0000 03f6 0333 0000 | 3 | .DBG4T 0x0333,0x0000,0x0005,0x0000 03fa ; -------------------------------------------------------------------------------------- 03fa ; Debug chain 03fa ; -------------------------------------------------------------------------------------- 03fa 0019 0000 | | .DBGLEN 0x0019,0x0000 03fc 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x004b,0x004d,0x005b,0x0061 0415 0001 0002 | | .XXX[0x19] 0417 0003 0007 | | 0419 0008 0009 | | 041b 000a 000b | | 041d 000c 000d | | 041f 000e 000f | | 0421 0010 0011 | | 0423 0012 0013 | | 0425 0014 0015 | | 0427 0016 0017 | | 0429 0018 0019 | | 042b 001a 001b | | 042d 001c | | 042e ; -------------------------------------------------------------------------------------- 042e ; Debug chain 042e ; -------------------------------------------------------------------------------------- 042e 0019 0000 | | .DBGLEN 0x0019,0x0000 0430 0068 006c | h l| .DBGLNO 0x0068,0x006c,0x006d,0x006f,0x0071,0x0073,0x0082,0x0084,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b3 0449 0004 0005 | | .XXX[0x19] 044b 0006 0007 | | 044d 0008 0009 | | 044f 000a 000b | | 0451 000c 000d | | 0453 000e 000f | | 0455 0010 0011 | | 0457 0012 0013 | | 0459 0014 0015 | | 045b 0016 0017 | | 045d 0018 0019 | | 045f 001a 001b | | 0461 001c | | 0462 ; -------------------------------------------------------------------------------------- 0462 ; Debug chain 0462 ; -------------------------------------------------------------------------------------- 0462 0000 0001 | | .DBGLEN 0x0000,0x0001 0464 00bb | | .DBGLNO 0x00bb 0465 ; -------------------------------------------------------------------------------------- 0465 ; Debug chain 0465 ; -------------------------------------------------------------------------------------- 0465 0002 0003 | | .DBGLEN 0x0002,0x0003 0467 00e3 00e7 | | .DBGLNO 0x00e3,0x00e7,0x00e9,0x00ec,0x00f2 046c ; -------------------------------------------------------------------------------------- 046c ; Debug chain 046c ; -------------------------------------------------------------------------------------- 046c 0002 0005 | | .DBGLEN 0x0002,0x0005 046e 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0106,0x0109,0x010e,0x0112,0x0115 0475 ; -------------------------------------------------------------------------------------- 0475 ; Debug chain 0475 ; -------------------------------------------------------------------------------------- 0475 0003 0007 | | .DBGLEN 0x0003,0x0007 0477 011b 011d | | .DBGLNO 0x011b,0x011d,0x0121,0x0123,0x0126,0x012c,0x0136,0x0138,0x013d,0x0140 0481 ; -------------------------------------------------------------------------------------- 0481 ; Debug chain 0481 ; -------------------------------------------------------------------------------------- 0481 0002 0006 | | .DBGLEN 0x0002,0x0006 0483 014b 014d | K M| .DBGLNO 0x014b,0x014d,0x0153,0x0157,0x015a,0x015f,0x0166,0x0169 048b ; -------------------------------------------------------------------------------------- 048b ; Debug chain 048b ; -------------------------------------------------------------------------------------- 048b 0003 0006 | | .DBGLEN 0x0003,0x0006 048d 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0179,0x017b,0x017e,0x0184,0x018e,0x0190,0x0197 0496 ; -------------------------------------------------------------------------------------- 0496 ; Debug chain 0496 ; -------------------------------------------------------------------------------------- 0496 0003 000a | | .DBGLEN 0x0003,0x000a 0498 01a3 01a5 | | .DBGLNO 0x01a3,0x01a5,0x01a7,0x01a9,0x01ac,0x01b1,0x01b7,0x01bb,0x01be,0x01c1,0x01c5,0x01c9,0x01cc 04a5 0001 0002 | | .XXX[0xa] 04a7 0003 0005 | | 04a9 0006 0007 | | 04ab 0008 0004 | | 04ad 0009 000a | | 04af ; -------------------------------------------------------------------------------------- 04af ; Debug chain 04af ; -------------------------------------------------------------------------------------- 04af 0000 0001 | | .DBGLEN 0x0000,0x0001 04b1 01d3 | | .DBGLNO 0x01d3 04b2 ; -------------------------------------------------------------------------------------- 04b2 ; Debug chain 04b2 ; -------------------------------------------------------------------------------------- 04b2 0000 0001 | | .DBGLEN 0x0000,0x0001 04b4 01e3 | | .DBGLNO 0x01e3 04b5 ; -------------------------------------------------------------------------------------- 04b5 ; Debug chain 04b5 ; -------------------------------------------------------------------------------------- 04b5 0003 0006 | | .DBGLEN 0x0003,0x0006 04b7 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5,0x01f9,0x01fb,0x01fe,0x0202,0x020f,0x0211,0x0216 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug chain 04c0 ; -------------------------------------------------------------------------------------- 04c0 0000 0001 | | .DBGLEN 0x0000,0x0001 04c2 021b | | .DBGLNO 0x021b 04c3 ; -------------------------------------------------------------------------------------- 04c3 ; Debug chain 04c3 ; -------------------------------------------------------------------------------------- 04c3 0000 0003 | | .DBGLEN 0x0000,0x0003 04c5 022b 0232 | + 2| .DBGLNO 0x022b,0x0232,0x0234 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; Debug chain 04c8 ; -------------------------------------------------------------------------------------- 04c8 0000 0004 | | .DBGLEN 0x0000,0x0004 04ca 023b 023d | ; =| .DBGLNO 0x023b,0x023d,0x0243,0x024d 04ce ; -------------------------------------------------------------------------------------- 04ce ; Debug chain 04ce ; -------------------------------------------------------------------------------------- 04ce 0000 0002 | | .DBGLEN 0x0000,0x0002 04d0 0253 0259 | S Y| .DBGLNO 0x0253,0x0259 04d2 ; -------------------------------------------------------------------------------------- 04d2 ; Debug chain 04d2 ; -------------------------------------------------------------------------------------- 04d2 0000 0002 | | .DBGLEN 0x0000,0x0002 04d4 0263 0269 | c i| .DBGLNO 0x0263,0x0269 04d6 ; -------------------------------------------------------------------------------------- 04d6 ; Debug chain 04d6 ; -------------------------------------------------------------------------------------- 04d6 0000 0002 | | .DBGLEN 0x0000,0x0002 04d8 0273 0279 | s y| .DBGLNO 0x0273,0x0279 04da ; -------------------------------------------------------------------------------------- 04da ; Debug chain 04da ; -------------------------------------------------------------------------------------- 04da 0001 0008 | | .DBGLEN 0x0001,0x0008 04dc 0283 0285 | | .DBGLNO 0x0283,0x0285,0x028b,0x028d,0x028f,0x0295,0x0297,0x0299,0x029e 04e5 ; -------------------------------------------------------------------------------------- 04e5 ; Debug chain 04e5 ; -------------------------------------------------------------------------------------- 04e5 0000 0001 | | .DBGLEN 0x0000,0x0001 04e7 02ad | | .DBGLNO 0x02ad 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; Debug chain 04e8 ; -------------------------------------------------------------------------------------- 04e8 0001 0006 | | .DBGLEN 0x0001,0x0006 04ea 02b3 02b7 | | .DBGLNO 0x02b3,0x02b7,0x02bc,0x02c2,0x02c7,0x02cd,0x02d2 04f1 ; -------------------------------------------------------------------------------------- 04f1 ; Debug chain 04f1 ; -------------------------------------------------------------------------------------- 04f1 0000 0003 | | .DBGLEN 0x0000,0x0003 04f3 02db 02df | | .DBGLNO 0x02db,0x02df,0x02e4 04f6 ; -------------------------------------------------------------------------------------- 04f6 ; Debug chain 04f6 ; -------------------------------------------------------------------------------------- 04f6 0000 0003 | | .DBGLEN 0x0000,0x0003 04f8 02f3 02f7 | | .DBGLNO 0x02f3,0x02f7,0x0308 04fb ; -------------------------------------------------------------------------------------- 04fb ; Debug chain 04fb ; -------------------------------------------------------------------------------------- 04fb 0000 0005 | | .DBGLEN 0x0000,0x0005 04fd 0313 031d | | .DBGLNO 0x0313,0x031d,0x0320,0x032a,0x032d 0502 0000 0000 | | .BLANK 0000[0xfe]