|
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_542cf6
└─⟦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 03b8 | | .CONST 0x03b8 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 003c | < | .CONST 0x003c ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0012 | | .CONST 0x0012 ; Number of locals 001b INIT_0018: 001b 00e3 | | Load_Encached Natural_Cache 001c 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 001e 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0020 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0022 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0024 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0026 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0028 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 002a 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 002c 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 002e 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0030 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 0032 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0034 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 0036 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0038 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 003a 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 003c BODY_0018: 003c 480a |H | Short_Literal 0xa 003d a402 | | Store_Unchecked 0x2,0x2 003e 8411 | | Call 0x2,0x11 003f 4819 |H | Short_Literal 0x19 0040 a402 | | Store_Unchecked 0x2,0x2 0041 8412 | | Call 0x2,0x12 0042 8407 | | Call 0x2,0x7 0043 4822 |H" | Short_Literal 0x22 0044 8408 | | Call 0x2,0x8 0045 8409 | | Call 0x2,0x9 0046 840a | | Call 0x2,0xa 0047 840b | | Call 0x2,0xb 0048 840c | | Call 0x2,0xc 0049 840d | | Call 0x2,0xd 004a 840e | | Call 0x2,0xe 004b 840f | | Call 0x2,0xf 004c 8410 | | Call 0x2,0x10 004d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0059 | Y | .CONST 0x0059 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0004 | | .CONST 0x0004 ; Number of locals 0053 INIT_0050: 0053 e002 | | Load 0x0,0x2 0054 0322 | " | Declare_Variable Record 0055 00d8 | | Load_Top At_Offset_0 0056 0322 | " | Declare_Variable Record 0057 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0059 BODY_0050: 0059 00da | | Load_Top At_Offset_2 005a e7ff | | Load 0x3,-0x1 005b 00d8 | | Load_Top At_Offset_0 005c e003 | | Load 0x0,0x3 005d 0260 | ` | Execute Discrete,In_Type 005e 7001 |p | Jump_Nonzero 0x60 005f 0801 | | Execute_Immediate Raise,0x1 0060 8004 | | Call 0x0,0x4 0061 00d1 | | Pop_Control Pop_Count_1 0062 8604 | | Call 0x3,0x4 0063 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0071 | q | .CONST 0x0071 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b e005 | | Load 0x0,0x5 006c 0322 | " | Declare_Variable Record 006d 00d8 | | Load_Top At_Offset_0 006e 0322 | " | Declare_Variable Record 006f 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 0071 BODY_0068: 0071 00da | | Load_Top At_Offset_2 0072 e7fe | | Load 0x3,-0x2 0073 00d8 | | Load_Top At_Offset_0 0074 e006 | | Load 0x0,0x6 0075 0260 | ` | Execute Discrete,In_Type 0076 7001 |p | Jump_Nonzero 0x78 0077 0801 | | Execute_Immediate Raise,0x1 0078 e7ff | | Load 0x3,-0x1 0079 8007 | | Call 0x0,0x7 007a 00d1 | | Pop_Control Pop_Count_1 007b 8604 | | Call 0x3,0x4 007c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0089 | | .CONST 0x0089 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 e008 | | Load 0x0,0x8 0084 0322 | " | Declare_Variable Record 0085 00d8 | | Load_Top At_Offset_0 0086 0322 | " | Declare_Variable Record 0087 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 0089 BODY_0080: 0089 00da | | Load_Top At_Offset_2 008a e7fe | | Load 0x3,-0x2 008b 00d8 | | Load_Top At_Offset_0 008c e009 | | Load 0x0,0x9 008d 0260 | ` | Execute Discrete,In_Type 008e 7001 |p | Jump_Nonzero 0x90 008f 0801 | | Execute_Immediate Raise,0x1 0090 e7ff | | Load 0x3,-0x1 0091 800a | | Call 0x0,0xa 0092 00d1 | | Pop_Control Pop_Count_1 0093 8604 | | Call 0x3,0x4 0094 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a1 | | .CONST 0x00a1 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0004 | | .CONST 0x0004 ; Number of locals 009b INIT_0098: 009b e00b | | Load 0x0,0xb 009c 0322 | " | Declare_Variable Record 009d 00d8 | | Load_Top At_Offset_0 009e 0322 | " | Declare_Variable Record 009f 029f 029b | | Declare_Subprogram INIT_0298,For_Call 00a1 BODY_0098: 00a1 00da | | Load_Top At_Offset_2 00a2 e7ff | | Load 0x3,-0x1 00a3 00d8 | | Load_Top At_Offset_0 00a4 e00c | | Load 0x0,0xc 00a5 0260 | ` | Execute Discrete,In_Type 00a6 7001 |p | Jump_Nonzero 0xa8 00a7 0801 | | Execute_Immediate Raise,0x1 00a8 800d | | Call 0x0,0xd 00a9 00d1 | | Pop_Control Pop_Count_1 00aa 8604 | | Call 0x3,0x4 00ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ac 0000 0000 | | .BLANK 0000[0x4] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c3 | | .CONST 0x00c3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0009 | | .CONST 0x0009 ; Number of locals 00b3 INIT_00b0: 00b3 e00e | | Load 0x0,0xe 00b4 0619 | | Execute_Immediate Set_Value_Unchecked,0x19 00b5 e00f | | Load 0x0,0xf 00b6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00b7 e010 | | Load 0x0,0x10 00b8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00b9 e011 | | Load 0x0,0x11 00ba 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00bb e012 | | Load 0x0,0x12 00bc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00bd e013 | | Load 0x0,0x13 00be 0322 | " | Declare_Variable Record 00bf 00d8 | | Load_Top At_Offset_0 00c0 0322 | " | Declare_Variable Record 00c1 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 00c3 BODY_00b0: 00c3 00da | | Load_Top At_Offset_2 00c4 e606 | | Load 0x3,0x6 00c5 e605 | | Load 0x3,0x5 00c6 e604 | | Load 0x3,0x4 00c7 e603 | | Load 0x3,0x3 00c8 e602 | | Load 0x3,0x2 00c9 8014 | | Call 0x0,0x14 00ca 00d1 | | Pop_Control Pop_Count_1 00cb 8609 | | Call 0x3,0x9 00cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e7 | | .CONST 0x00e7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 000b | | .CONST 0x000b ; Number of locals 00d3 INIT_00d0: 00d3 e002 | | Load 0x0,0x2 00d4 0322 | " | Declare_Variable Record 00d5 e013 | | Load 0x0,0x13 00d6 0322 | " | Declare_Variable Record 00d7 e015 | | Load 0x0,0x15 00d8 0322 | " | Declare_Variable Record 00d9 00d8 | | Load_Top At_Offset_0 00da 0322 | " | Declare_Variable Record 00db e00e | | Load 0x0,0xe 00dc 0619 | | Execute_Immediate Set_Value_Unchecked,0x19 00dd e00f | | Load 0x0,0xf 00de 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00df e010 | | Load 0x0,0x10 00e0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e1 e011 | | Load 0x0,0x11 00e2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e3 e012 | | Load 0x0,0x12 00e4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00e5 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 00e7 BODY_00d0: 00e7 e603 | | Load 0x3,0x3 00e8 00da | | Load_Top At_Offset_2 00e9 e609 | | Load 0x3,0x9 00ea e608 | | Load 0x3,0x8 00eb e607 | | Load 0x3,0x7 00ec e606 | | Load 0x3,0x6 00ed 8014 | | Call 0x0,0x14 00ee 00d1 | | Pop_Control Pop_Count_1 00ef e602 | | Load 0x3,0x2 00f0 4817 |H | Short_Literal 0x17 00f1 8004 | | Call 0x0,0x4 00f2 00d1 | | Pop_Control Pop_Count_1 00f3 e604 | | Load 0x3,0x4 00f4 e603 | | Load 0x3,0x3 00f5 e602 | | Load 0x3,0x2 00f6 e7ff | | Load 0x3,-0x1 00f7 00d8 | | Load_Top At_Offset_0 00f8 e016 | | Load 0x0,0x16 00f9 0260 | ` | Execute Discrete,In_Type 00fa 7001 |p | Jump_Nonzero 0xfc 00fb 0801 | | Execute_Immediate Raise,0x1 00fc 8017 | | Call 0x0,0x17 00fd 00d1 | | Pop_Control Pop_Count_1 00fe 860b | | Call 0x3,0xb 00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0109 | | .CONST 0x0109 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0004 | | .CONST 0x0004 ; Number of locals 0103 INIT_0100: 0103 e018 | | Load 0x0,0x18 0104 0322 | " | Declare_Variable Record 0105 00d8 | | Load_Top At_Offset_0 0106 0322 | " | Declare_Variable Record 0107 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call 0109 BODY_0100: 0109 00da | | Load_Top At_Offset_2 010a 4818 |H | Short_Literal 0x18 010b 480a |H | Short_Literal 0xa 010c 8019 | | Call 0x0,0x19 010d 00d1 | | Pop_Control Pop_Count_1 010e 8604 | | Call 0x3,0x4 010f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011d | | .CONST 0x011d ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 e01a | | Load 0x0,0x1a 0114 0322 | " | Declare_Variable Record 0115 00d8 | | Load_Top At_Offset_0 0116 1c00 | | Execute_Immediate Run_Utility,0x0 0117 00d8 | | Load_Top At_Offset_0 0118 0322 | " | Declare_Variable Record 0119 00d8 | | Load_Top At_Offset_0 011a 1c00 | | Execute_Immediate Run_Utility,0x0 011b 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 011d BODY_0110: 011d 00da | | Load_Top At_Offset_2 011e 801b | | Call 0x0,0x1b 011f 00d1 | | Pop_Control Pop_Count_1 0120 00da | | Load_Top At_Offset_2 0121 4800 |H | Short_Literal 0x0 0122 801c | | Call 0x0,0x1c 0123 00d1 | | Pop_Control Pop_Count_1 0124 00da | | Load_Top At_Offset_2 0125 801d | | Call 0x0,0x1d 0126 e01e | | Load 0x0,0x1e 0127 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0128 00da | | Load_Top At_Offset_2 0129 801f | | Call 0x0,0x1f 012a 00d1 | | Pop_Control Pop_Count_1 012b 00da | | Load_Top At_Offset_2 012c 4800 |H | Short_Literal 0x0 012d 8020 | | Call 0x0,0x20 012e 00d1 | | Pop_Control Pop_Count_1 012f 00da | | Load_Top At_Offset_2 0130 801d | | Call 0x0,0x1d 0131 e01e | | Load 0x0,0x1e 0132 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0133 8604 | | Call 0x3,0x4 0134 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0151 | Q | .CONST 0x0151 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0009 | | .CONST 0x0009 ; Number of locals 013b INIT_0138: 013b e021 | ! | Load 0x0,0x21 013c 0322 | " | Declare_Variable Record 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f 00d8 | | Load_Top At_Offset_0 0140 0322 | " | Declare_Variable Record 0141 00d8 | | Load_Top At_Offset_0 0142 1c00 | | Execute_Immediate Run_Utility,0x0 0143 e018 | | Load 0x0,0x18 0144 0322 | " | Declare_Variable Record 0145 00d8 | | Load_Top At_Offset_0 0146 0322 | " | Declare_Variable Record 0147 00d8 | | Load_Top At_Offset_0 0148 0322 | " | Declare_Variable Record 0149 00d8 | | Load_Top At_Offset_0 014a 0322 | " | Declare_Variable Record 014b e01a | | Load 0x0,0x1a 014c 0322 | " | Declare_Variable Record 014d 00d8 | | Load_Top At_Offset_0 014e 1c00 | | Execute_Immediate Run_Utility,0x0 014f 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 0151 BODY_0138: 0151 e604 | | Load 0x3,0x4 0152 4801 |H | Short_Literal 0x1 0153 4801 |H | Short_Literal 0x1 0154 8019 | | Call 0x0,0x19 0155 00d1 | | Pop_Control Pop_Count_1 0156 e605 | | Load 0x3,0x5 0157 4802 |H | Short_Literal 0x2 0158 4802 |H | Short_Literal 0x2 0159 8019 | | Call 0x0,0x19 015a 00d1 | | Pop_Control Pop_Count_1 015b 00db | | Load_Top At_Offset_3 015c 4803 |H | Short_Literal 0x3 015d 4803 |H | Short_Literal 0x3 015e 8019 | | Call 0x0,0x19 015f 00d1 | | Pop_Control Pop_Count_1 0160 00da | | Load_Top At_Offset_2 0161 4804 |H | Short_Literal 0x4 0162 4804 |H | Short_Literal 0x4 0163 8019 | | Call 0x0,0x19 0164 00d1 | | Pop_Control Pop_Count_1 0165 00d9 | | Load_Top At_Offset_1 0166 801b | | Call 0x0,0x1b 0167 00d1 | | Pop_Control Pop_Count_1 0168 00d9 | | Load_Top At_Offset_1 0169 4800 |H | Short_Literal 0x0 016a 801c | | Call 0x0,0x1c 016b 00d1 | | Pop_Control Pop_Count_1 016c e602 | | Load 0x3,0x2 016d 00da | | Load_Top At_Offset_2 016e e607 | | Load 0x3,0x7 016f e606 | | Load 0x3,0x6 0170 e605 | | Load 0x3,0x5 0171 e604 | | Load 0x3,0x4 0172 8022 | " | Call 0x0,0x22 0173 00d1 | | Pop_Control Pop_Count_1 0174 8609 | | Call 0x3,0x9 0175 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0199 | | .CONST 0x0199 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 000b | | .CONST 0x000b ; Number of locals 017b INIT_0178: 017b e023 | # | Load 0x0,0x23 017c 0322 | " | Declare_Variable Record 017d 00d8 | | Load_Top At_Offset_0 017e 1c00 | | Execute_Immediate Run_Utility,0x0 017f 00d8 | | Load_Top At_Offset_0 0180 0322 | " | Declare_Variable Record 0181 00d8 | | Load_Top At_Offset_0 0182 1c00 | | Execute_Immediate Run_Utility,0x0 0183 e021 | ! | Load 0x0,0x21 0184 0322 | " | Declare_Variable Record 0185 00d8 | | Load_Top At_Offset_0 0186 1c00 | | Execute_Immediate Run_Utility,0x0 0187 00d8 | | Load_Top At_Offset_0 0188 0322 | " | Declare_Variable Record 0189 00d8 | | Load_Top At_Offset_0 018a 1c00 | | Execute_Immediate Run_Utility,0x0 018b e018 | | Load 0x0,0x18 018c 0322 | " | Declare_Variable Record 018d 00d8 | | Load_Top At_Offset_0 018e 0322 | " | Declare_Variable Record 018f 00d8 | | Load_Top At_Offset_0 0190 0322 | " | Declare_Variable Record 0191 00d8 | | Load_Top At_Offset_0 0192 0322 | " | Declare_Variable Record 0193 e01a | | Load 0x0,0x1a 0194 0322 | " | Declare_Variable Record 0195 00d8 | | Load_Top At_Offset_0 0196 1c00 | | Execute_Immediate Run_Utility,0x0 0197 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0199 BODY_0178: 0199 e606 | | Load 0x3,0x6 019a 4801 |H | Short_Literal 0x1 019b 4801 |H | Short_Literal 0x1 019c 8019 | | Call 0x0,0x19 019d 00d1 | | Pop_Control Pop_Count_1 019e e607 | | Load 0x3,0x7 019f 4802 |H | Short_Literal 0x2 01a0 4802 |H | Short_Literal 0x2 01a1 8019 | | Call 0x0,0x19 01a2 00d1 | | Pop_Control Pop_Count_1 01a3 00db | | Load_Top At_Offset_3 01a4 4803 |H | Short_Literal 0x3 01a5 4803 |H | Short_Literal 0x3 01a6 8019 | | Call 0x0,0x19 01a7 00d1 | | Pop_Control Pop_Count_1 01a8 00da | | Load_Top At_Offset_2 01a9 4804 |H | Short_Literal 0x4 01aa 4804 |H | Short_Literal 0x4 01ab 8019 | | Call 0x0,0x19 01ac 00d1 | | Pop_Control Pop_Count_1 01ad 00d9 | | Load_Top At_Offset_1 01ae 801b | | Call 0x0,0x1b 01af 00d1 | | Pop_Control Pop_Count_1 01b0 00d9 | | Load_Top At_Offset_1 01b1 4802 |H | Short_Literal 0x2 01b2 801c | | Call 0x0,0x1c 01b3 00d1 | | Pop_Control Pop_Count_1 01b4 e604 | | Load 0x3,0x4 01b5 00da | | Load_Top At_Offset_2 01b6 e609 | | Load 0x3,0x9 01b7 e608 | | Load 0x3,0x8 01b8 e607 | | Load 0x3,0x7 01b9 e606 | | Load 0x3,0x6 01ba 8022 | " | Call 0x0,0x22 01bb 00d1 | | Pop_Control Pop_Count_1 01bc e605 | | Load 0x3,0x5 01bd 8024 | $ | Call 0x0,0x24 01be 00d1 | | Pop_Control Pop_Count_1 01bf e602 | | Load 0x3,0x2 01c0 e605 | | Load 0x3,0x5 01c1 00d8 | | Load_Top At_Offset_0 01c2 e604 | | Load 0x3,0x4 01c3 4805 |H | Short_Literal 0x5 01c4 4802 |H | Short_Literal 0x2 01c5 8025 | % | Call 0x0,0x25 01c6 00d1 | | Pop_Control Pop_Count_1 01c7 860b | | Call 0x3,0xb 01c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d9 | | .CONST 0x01d9 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0004 | | .CONST 0x0004 ; Number of locals 01d3 INIT_01d0: 01d3 e026 | & | Load 0x0,0x26 01d4 0322 | " | Declare_Variable Record 01d5 00d8 | | Load_Top At_Offset_0 01d6 0322 | " | Declare_Variable Record 01d7 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 01d9 BODY_01d0: 01d9 00da | | Load_Top At_Offset_2 01da 480e |H | Short_Literal 0xe 01db 4808 |H | Short_Literal 0x8 01dc 480c |H | Short_Literal 0xc 01dd 8027 | ' | Call 0x0,0x27 01de 00d1 | | Pop_Control Pop_Count_1 01df 8604 | | Call 0x3,0x4 01e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f1 | | .CONST 0x01f1 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0004 | | .CONST 0x0004 ; Number of locals 01eb INIT_01e8: 01eb e028 | ( | Load 0x0,0x28 01ec 0322 | " | Declare_Variable Record 01ed 00d8 | | Load_Top At_Offset_0 01ee 0322 | " | Declare_Variable Record 01ef 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 01f1 BODY_01e8: 01f1 00da | | Load_Top At_Offset_2 01f2 4805 |H | Short_Literal 0x5 01f3 480c |H | Short_Literal 0xc 01f4 8029 | ) | Call 0x0,0x29 01f5 00d1 | | Pop_Control Pop_Count_1 01f6 8604 | | Call 0x3,0x4 01f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0201 | | .CONST 0x0201 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0004 | | .CONST 0x0004 ; Number of locals 01fb INIT_01f8: 01fb e02a | * | Load 0x0,0x2a 01fc 0322 | " | Declare_Variable Record 01fd 00d8 | | Load_Top At_Offset_0 01fe 0322 | " | Declare_Variable Record 01ff 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 0201 BODY_01f8: 0201 00da | | Load_Top At_Offset_2 0202 4843 |HC | Short_Literal 0x43 0203 4817 |H | Short_Literal 0x17 0204 802b | + | Call 0x0,0x2b 0205 00d1 | | Pop_Control Pop_Count_1 0206 8604 | | Call 0x3,0x4 0207 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0215 | | .CONST 0x0215 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0006 | | .CONST 0x0006 ; Number of locals 020b INIT_0208: 020b e02c | , | Load 0x0,0x2c 020c 0322 | " | Declare_Variable Record 020d 00d8 | | Load_Top At_Offset_0 020e 0322 | " | Declare_Variable Record 020f e018 | | Load 0x0,0x18 0210 0322 | " | Declare_Variable Record 0211 e02d | - | Load 0x0,0x2d 0212 0322 | " | Declare_Variable Record 0213 029f 038b | | Declare_Subprogram INIT_0388,For_Call 0215 BODY_0208: 0215 00da | | Load_Top At_Offset_2 0216 4822 |H" | Short_Literal 0x22 0217 480a |H | Short_Literal 0xa 0218 8019 | | Call 0x0,0x19 0219 00d1 | | Pop_Control Pop_Count_1 021a 00d9 | | Load_Top At_Offset_1 021b 00db | | Load_Top At_Offset_3 021c 4803 |H | Short_Literal 0x3 021d 802e | . | Call 0x0,0x2e 021e 00d1 | | Pop_Control Pop_Count_1 021f e602 | | Load 0x3,0x2 0220 4800 |H | Short_Literal 0x0 0221 00db | | Load_Top At_Offset_3 0222 4800 |H | Short_Literal 0x0 0223 6008 |` | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00000d80} 0224 480c |H | Short_Literal 0xc 0225 802f | / | Call 0x0,0x2f 0226 00d1 | | Pop_Control Pop_Count_1 0227 8606 | | Call 0x3,0x6 0228 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0229 0000 0000 | | .XXX[0x3] 022b 0000 | | 022c 0000 0000 | | .LITERAL {0x00000000, 0x00000d80} 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0235 | 5 | .CONST 0x0235 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 0092 0399 | | Action Push_String_Extended,0x399 ; "Bidule" 0235 BODY_0230: 0235 e402 | | Load 0x2,0x2 0236 8403 | | Call 0x2,0x3 0237 e402 | | Load 0x2,0x2 0238 00d9 | | Load_Top At_Offset_1 0239 8404 | | Call 0x2,0x4 023a e402 | | Load 0x2,0x2 023b 00d9 | | Load_Top At_Offset_1 023c 8405 | | Call 0x2,0x5 023d e402 | | Load 0x2,0x2 023e 8406 | | Call 0x2,0x6 023f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0245 | E | .CONST 0x0245 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 0092 039a | | Action Push_String_Extended,0x39a ; "long libelle de plus de 30 caracteres .........." 0245 BODY_0240: 0245 e402 | | Load 0x2,0x2 0246 8403 | | Call 0x2,0x3 0247 e402 | | Load 0x2,0x2 0248 00d9 | | Load_Top At_Offset_1 0249 8404 | | Call 0x2,0x4 024a e402 | | Load 0x2,0x2 024b 00d9 | | Load_Top At_Offset_1 024c 8405 | | Call 0x2,0x5 024d e402 | | Load 0x2,0x2 024e 8406 | | Call 0x2,0x6 024f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0255 | U | .CONST 0x0255 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0002 | | .CONST 0x0002 ; Number of locals 0253 INIT_0250: 0253 e602 | | Load 0x3,0x2 0254 8030 | 0 | Call 0x0,0x30 0255 BODY_0250: 0255 00d8 | | Load_Top At_Offset_0 0256 e01e | | Load 0x0,0x1e 0257 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0258 00d8 | | Load_Top At_Offset_0 0259 8031 | 1 | Call 0x0,0x31 025a e603 | | Load 0x3,0x3 025b 017d | } | Execute Record,Structure_Write 025c e603 | | Load 0x3,0x3 025d 8030 | 0 | Call 0x0,0x30 025e e01e | | Load 0x0,0x1e 025f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0260 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026d | m | .CONST 0x026d ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b e602 | | Load 0x3,0x2 026c 8032 | 2 | Call 0x0,0x32 026d BODY_0268: 026d 00d8 | | Load_Top At_Offset_0 026e e01e | | Load 0x0,0x1e 026f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0270 00d8 | | Load_Top At_Offset_0 0271 8033 | 3 | Call 0x0,0x33 0272 e603 | | Load 0x3,0x3 0273 017d | } | Execute Record,Structure_Write 0274 e603 | | Load 0x3,0x3 0275 8032 | 2 | Call 0x0,0x32 0276 e01e | | Load 0x0,0x1e 0277 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0278 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0279 0000 0000 | | .BLANK 0000[0x7] 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 e602 | | Load 0x3,0x2 0284 8034 | 4 | Call 0x0,0x34 0285 BODY_0280: 0285 00d8 | | Load_Top At_Offset_0 0286 e01e | | Load 0x0,0x1e 0287 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0288 00d8 | | Load_Top At_Offset_0 0289 8035 | 5 | Call 0x0,0x35 028a e603 | | Load 0x3,0x3 028b 017d | } | Execute Record,Structure_Write 028c e603 | | Load 0x3,0x3 028d 8034 | 4 | Call 0x0,0x34 028e e01e | | Load 0x0,0x1e 028f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0290 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0291 0000 0000 | | .BLANK 0000[0x7] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029d | | .CONST 0x029d ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e602 | | Load 0x3,0x2 029c 8036 | 6 | Call 0x0,0x36 029d BODY_0298: 029d 00d8 | | Load_Top At_Offset_0 029e e01e | | Load 0x0,0x1e 029f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02a0 00d8 | | Load_Top At_Offset_0 02a1 8037 | 7 | Call 0x0,0x37 02a2 e603 | | Load 0x3,0x3 02a3 017d | } | Execute Record,Structure_Write 02a4 e603 | | Load 0x3,0x3 02a5 8036 | 6 | Call 0x0,0x36 02a6 e01e | | Load 0x0,0x1e 02a7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b5 | | .CONST 0x02b5 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e607 | | Load 0x3,0x7 02b4 8038 | 8 | Call 0x0,0x38 02b5 BODY_02b0: 02b5 00d8 | | Load_Top At_Offset_0 02b6 e01e | | Load 0x0,0x1e 02b7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02b8 00d8 | | Load_Top At_Offset_0 02b9 8039 | 9 | Call 0x0,0x39 02ba e608 | | Load 0x3,0x8 02bb 017d | } | Execute Record,Structure_Write 02bc e608 | | Load 0x3,0x8 02bd 8038 | 8 | Call 0x0,0x38 02be e01e | | Load 0x0,0x1e 02bf 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c1 0000 0000 | | .BLANK 0000[0x7] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cd | | .CONST 0x02cd ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e604 | | Load 0x3,0x4 02cc 803a | : | Call 0x0,0x3a 02cd BODY_02c8: 02cd 00d8 | | Load_Top At_Offset_0 02ce e01e | | Load 0x0,0x1e 02cf 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02d0 00d8 | | Load_Top At_Offset_0 02d1 803b | ; | Call 0x0,0x3b 02d2 e605 | | Load 0x3,0x5 02d3 017d | } | Execute Record,Structure_Write 02d4 e605 | | Load 0x3,0x5 02d5 803a | : | Call 0x0,0x3a 02d6 e01e | | Load 0x0,0x1e 02d7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d9 0000 0000 | | .BLANK 0000[0x7] 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 e602 | | Load 0x3,0x2 02e4 803c | < | Call 0x0,0x3c 02e5 BODY_02e0: 02e5 00d8 | | Load_Top At_Offset_0 02e6 e01e | | Load 0x0,0x1e 02e7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02e8 00d8 | | Load_Top At_Offset_0 02e9 803d | = | Call 0x0,0x3d 02ea e603 | | Load 0x3,0x3 02eb 017d | } | Execute Record,Structure_Write 02ec e603 | | Load 0x3,0x3 02ed 803c | < | Call 0x0,0x3c 02ee e01e | | Load 0x0,0x1e 02ef 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fd | | .CONST 0x02fd ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0002 | | .CONST 0x0002 ; Number of locals 02fb INIT_02f8: 02fb e602 | | Load 0x3,0x2 02fc 801d | | Call 0x0,0x1d 02fd BODY_02f8: 02fd 00d8 | | Load_Top At_Offset_0 02fe e01e | | Load 0x0,0x1e 02ff 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0300 00d8 | | Load_Top At_Offset_0 0301 803e | > | Call 0x0,0x3e 0302 e603 | | Load 0x3,0x3 0303 017d | } | Execute Record,Structure_Write 0304 e603 | | Load 0x3,0x3 0305 801d | | Call 0x0,0x1d 0306 e01e | | Load 0x0,0x1e 0307 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0308 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0309 0000 0000 | | .BLANK 0000[0x7] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0315 | | .CONST 0x0315 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0002 | | .CONST 0x0002 ; Number of locals 0313 INIT_0310: 0313 e602 | | Load 0x3,0x2 0314 803f | ? | Call 0x0,0x3f 0315 BODY_0310: 0315 00d8 | | Load_Top At_Offset_0 0316 e01e | | Load 0x0,0x1e 0317 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0318 00d8 | | Load_Top At_Offset_0 0319 8040 | @ | Call 0x0,0x40 031a e603 | | Load 0x3,0x3 031b 017d | } | Execute Record,Structure_Write 031c e603 | | Load 0x3,0x3 031d 803f | ? | Call 0x0,0x3f 031e e01e | | Load 0x0,0x1e 031f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0320 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0321 0000 0000 | | .BLANK 0000[0x7] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032d | - | .CONST 0x032d ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0002 | | .CONST 0x0002 ; Number of locals 032b INIT_0328: 032b e602 | | Load 0x3,0x2 032c 8041 | A | Call 0x0,0x41 032d BODY_0328: 032d 00d8 | | Load_Top At_Offset_0 032e e01e | | Load 0x0,0x1e 032f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0330 00d8 | | Load_Top At_Offset_0 0331 8042 | B | Call 0x0,0x42 0332 e603 | | Load 0x3,0x3 0333 017d | } | Execute Record,Structure_Write 0334 e603 | | Load 0x3,0x3 0335 8041 | A | Call 0x0,0x41 0336 e01e | | Load 0x0,0x1e 0337 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0338 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0339 0000 0000 | | .BLANK 0000[0x7] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0345 | E | .CONST 0x0345 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0002 | | .CONST 0x0002 ; Number of locals 0343 INIT_0340: 0343 e602 | | Load 0x3,0x2 0344 8043 | C | Call 0x0,0x43 0345 BODY_0340: 0345 00d8 | | Load_Top At_Offset_0 0346 e01e | | Load 0x0,0x1e 0347 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0348 00d8 | | Load_Top At_Offset_0 0349 8044 | D | Call 0x0,0x44 034a e603 | | Load 0x3,0x3 034b 017d | } | Execute Record,Structure_Write 034c e603 | | Load 0x3,0x3 034d 8043 | C | Call 0x0,0x43 034e e01e | | Load 0x0,0x1e 034f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0350 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0351 0000 0000 | | .BLANK 0000[0x7] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035d | ] | .CONST 0x035d ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0002 | | .CONST 0x0002 ; Number of locals 035b INIT_0358: 035b e602 | | Load 0x3,0x2 035c 8045 | E | Call 0x0,0x45 035d BODY_0358: 035d 00d8 | | Load_Top At_Offset_0 035e e01e | | Load 0x0,0x1e 035f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0360 00d8 | | Load_Top At_Offset_0 0361 8046 | F | Call 0x0,0x46 0362 e603 | | Load 0x3,0x3 0363 017d | } | Execute Record,Structure_Write 0364 e603 | | Load 0x3,0x3 0365 8045 | E | Call 0x0,0x45 0366 e01e | | Load 0x0,0x1e 0367 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0368 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0369 0000 0000 | | .BLANK 0000[0x7] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0375 | u | .CONST 0x0375 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0002 | | .CONST 0x0002 ; Number of locals 0373 INIT_0370: 0373 e602 | | Load 0x3,0x2 0374 8047 | G | Call 0x0,0x47 0375 BODY_0370: 0375 00d8 | | Load_Top At_Offset_0 0376 e01e | | Load 0x0,0x1e 0377 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0378 00d8 | | Load_Top At_Offset_0 0379 8048 | H | Call 0x0,0x48 037a e603 | | Load 0x3,0x3 037b 017d | } | Execute Record,Structure_Write 037c e603 | | Load 0x3,0x3 037d 8047 | G | Call 0x0,0x47 037e e01e | | Load 0x0,0x1e 037f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0380 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0381 0000 0000 | | .BLANK 0000[0x7] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038d | | .CONST 0x038d ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0002 | | .CONST 0x0002 ; Number of locals 038b INIT_0388: 038b e602 | | Load 0x3,0x2 038c 8049 | I | Call 0x0,0x49 038d BODY_0388: 038d 00d8 | | Load_Top At_Offset_0 038e e01e | | Load 0x0,0x1e 038f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0390 00d8 | | Load_Top At_Offset_0 0391 804a | J | Call 0x0,0x4a 0392 e603 | | Load 0x3,0x3 0393 017d | } | Execute Record,Structure_Write 0394 e603 | | Load 0x3,0x3 0395 8049 | I | Call 0x0,0x49 0396 e01e | | Load 0x0,0x1e 0397 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0398 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0399 ; -------------------------------------------------------------------------------------- 0399 ; STRING TABLE 0399 ; -------------------------------------------------------------------------------------- 0399 0006 | | .STRTAB 0x0006->0x039c ; "Bidule" 039a 000a | | .STRTAB 0x000a->0x039f ; "long libelle de plus de 30 caracteres .........." 039b 0038 | 8 | .STREND 0x0038->0x03b7 039c 4269 6475 |Bidu| .STRTAB_STRINGS 03b7 0000 | | .XXX[0x1] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; Debug Table 03b8 ; -------------------------------------------------------------------------------------- 03b8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x7490,0x0000,0x0001,0x0020 03be 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 03c2 001b 043e | >| .DBG4T 0x001b,0x043e,0x8001,0x0000 03c6 0053 045d | S ]| .DBG4T 0x0053,0x045d,0x0001,0x0000 03ca 006b 0462 | k b| .DBG4T 0x006b,0x0462,0x0001,0x0000 03ce 0083 0467 | g| .DBG4T 0x0083,0x0467,0x0001,0x0000 03d2 009b 046c | l| .DBG4T 0x009b,0x046c,0x0001,0x0000 03d6 00b3 0471 | q| .DBG4T 0x00b3,0x0471,0x0001,0x0000 03da 00d3 047b | {| .DBG4T 0x00d3,0x047b,0x0001,0x0000 03de 0103 0489 | | .DBG4T 0x0103,0x0489,0x0001,0x0000 03e2 0113 048e | | .DBG4T 0x0113,0x048e,0x0001,0x0000 03e6 013b 0498 | ; | .DBG4T 0x013b,0x0498,0x0001,0x0000 03ea 017b 04a5 | { | .DBG4T 0x017b,0x04a5,0x0001,0x0000 03ee 01d3 04b5 | | .DBG4T 0x01d3,0x04b5,0x0001,0x0000 03f2 01eb 04ba | | .DBG4T 0x01eb,0x04ba,0x0001,0x0000 03f6 01fb 04bf | | .DBG4T 0x01fb,0x04bf,0x0001,0x0000 03fa 020b 04c4 | | .DBG4T 0x020b,0x04c4,0x0001,0x0000 03fe 0233 04cd | 3 | .DBG4T 0x0233,0x04cd,0x0004,0x0000 0402 0243 04d4 | C | .DBG4T 0x0243,0x04d4,0x0004,0x0000 0406 0253 04db | S | .DBG4T 0x0253,0x04db,0x0004,0x0000 040a 026b 04e1 | k | .DBG4T 0x026b,0x04e1,0x0004,0x0000 040e 0283 04e7 | | .DBG4T 0x0283,0x04e7,0x0004,0x0000 0412 029b 04ed | | .DBG4T 0x029b,0x04ed,0x0004,0x0000 0416 02b3 04f3 | | .DBG4T 0x02b3,0x04f3,0x0004,0x0000 041a 02cb 04f9 | | .DBG4T 0x02cb,0x04f9,0x0004,0x0000 041e 02e3 04ff | | .DBG4T 0x02e3,0x04ff,0x0004,0x0000 0422 02fb 0505 | | .DBG4T 0x02fb,0x0505,0x0004,0x0000 0426 0313 050b | | .DBG4T 0x0313,0x050b,0x0004,0x0000 042a 032b 0511 | + | .DBG4T 0x032b,0x0511,0x0004,0x0000 042e 0343 0517 | C | .DBG4T 0x0343,0x0517,0x0004,0x0000 0432 035b 051d | [ | .DBG4T 0x035b,0x051d,0x0004,0x0000 0436 0373 0523 | s #| .DBG4T 0x0373,0x0523,0x0004,0x0000 043a 038b 0529 | )| .DBG4T 0x038b,0x0529,0x0004,0x0000 043e ; -------------------------------------------------------------------------------------- 043e ; Debug chain 043e ; -------------------------------------------------------------------------------------- 043e 000f 000e | | .DBGLEN 0x000f,0x000e 0440 001b 001c | | .DBGLNO 0x001b,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x003c,0x003e,0x003f,0x0041,0x0042,0x0043,0x0045,0x0046,0x0047,0x0048,0x0049,0x004a,0x004b,0x004c 045d ; -------------------------------------------------------------------------------------- 045d ; Debug chain 045d ; -------------------------------------------------------------------------------------- 045d 0001 0002 | | .DBGLEN 0x0001,0x0002 045f 0053 0059 | S Y| .DBGLNO 0x0053,0x0059,0x0062 0462 ; -------------------------------------------------------------------------------------- 0462 ; Debug chain 0462 ; -------------------------------------------------------------------------------------- 0462 0001 0002 | | .DBGLEN 0x0001,0x0002 0464 006b 0071 | k q| .DBGLNO 0x006b,0x0071,0x007b 0467 ; -------------------------------------------------------------------------------------- 0467 ; Debug chain 0467 ; -------------------------------------------------------------------------------------- 0467 0001 0002 | | .DBGLEN 0x0001,0x0002 0469 0083 0089 | | .DBGLNO 0x0083,0x0089,0x0093 046c ; -------------------------------------------------------------------------------------- 046c ; Debug chain 046c ; -------------------------------------------------------------------------------------- 046c 0001 0002 | | .DBGLEN 0x0001,0x0002 046e 009b 00a1 | | .DBGLNO 0x009b,0x00a1,0x00aa 0471 ; -------------------------------------------------------------------------------------- 0471 ; Debug chain 0471 ; -------------------------------------------------------------------------------------- 0471 0006 0002 | | .DBGLEN 0x0006,0x0002 0473 00b3 00b5 | | .DBGLNO 0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00c3,0x00cb 047b ; -------------------------------------------------------------------------------------- 047b ; Debug chain 047b ; -------------------------------------------------------------------------------------- 047b 0008 0004 | | .DBGLEN 0x0008,0x0004 047d 00d3 00d5 | | .DBGLNO 0x00d3,0x00d5,0x00d7,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e7,0x00ef,0x00f3,0x00fe 0489 ; -------------------------------------------------------------------------------------- 0489 ; Debug chain 0489 ; -------------------------------------------------------------------------------------- 0489 0001 0002 | | .DBGLEN 0x0001,0x0002 048b 0103 0109 | | .DBGLNO 0x0103,0x0109,0x010e 048e ; -------------------------------------------------------------------------------------- 048e ; Debug chain 048e ; -------------------------------------------------------------------------------------- 048e 0001 0007 | | .DBGLEN 0x0001,0x0007 0490 0113 011d | | .DBGLNO 0x0113,0x011d,0x0120,0x0124,0x0128,0x012b,0x012f,0x0133 0498 ; -------------------------------------------------------------------------------------- 0498 ; Debug chain 0498 ; -------------------------------------------------------------------------------------- 0498 0003 0008 | | .DBGLEN 0x0003,0x0008 049a 013b 0143 | ; C| .DBGLNO 0x013b,0x0143,0x014b,0x0151,0x0156,0x015b,0x0160,0x0165,0x0168,0x016c,0x0174 04a5 ; -------------------------------------------------------------------------------------- 04a5 ; Debug chain 04a5 ; -------------------------------------------------------------------------------------- 04a5 0004 000a | | .DBGLEN 0x0004,0x000a 04a7 017b 0183 | { | .DBGLNO 0x017b,0x0183,0x018b,0x0193,0x0199,0x019e,0x01a3,0x01a8,0x01ad,0x01b0,0x01b4,0x01bc,0x01bf,0x01c7 04b5 ; -------------------------------------------------------------------------------------- 04b5 ; Debug chain 04b5 ; -------------------------------------------------------------------------------------- 04b5 0001 0002 | | .DBGLEN 0x0001,0x0002 04b7 01d3 01d9 | | .DBGLNO 0x01d3,0x01d9,0x01df 04ba ; -------------------------------------------------------------------------------------- 04ba ; Debug chain 04ba ; -------------------------------------------------------------------------------------- 04ba 0001 0002 | | .DBGLEN 0x0001,0x0002 04bc 01eb 01f1 | | .DBGLNO 0x01eb,0x01f1,0x01f6 04bf ; -------------------------------------------------------------------------------------- 04bf ; Debug chain 04bf ; -------------------------------------------------------------------------------------- 04bf 0001 0002 | | .DBGLEN 0x0001,0x0002 04c1 01fb 0201 | | .DBGLNO 0x01fb,0x0201,0x0206 04c4 ; -------------------------------------------------------------------------------------- 04c4 ; Debug chain 04c4 ; -------------------------------------------------------------------------------------- 04c4 0003 0004 | | .DBGLEN 0x0003,0x0004 04c6 020b 020f | | .DBGLNO 0x020b,0x020f,0x0211,0x0215,0x021a,0x021f,0x0227 04cd ; -------------------------------------------------------------------------------------- 04cd ; Debug chain 04cd ; -------------------------------------------------------------------------------------- 04cd 0001 0004 | | .DBGLEN 0x0001,0x0004 04cf 0233 0235 | 3 5| .DBGLNO 0x0233,0x0235,0x0237,0x023a,0x023d 04d4 ; -------------------------------------------------------------------------------------- 04d4 ; Debug chain 04d4 ; -------------------------------------------------------------------------------------- 04d4 0001 0004 | | .DBGLEN 0x0001,0x0004 04d6 0243 0245 | C E| .DBGLNO 0x0243,0x0245,0x0247,0x024a,0x024d 04db ; -------------------------------------------------------------------------------------- 04db ; Debug chain 04db ; -------------------------------------------------------------------------------------- 04db 0001 0003 | | .DBGLEN 0x0001,0x0003 04dd 0253 0255 | S U| .DBGLNO 0x0253,0x0255,0x0258,0x025c 04e1 ; -------------------------------------------------------------------------------------- 04e1 ; Debug chain 04e1 ; -------------------------------------------------------------------------------------- 04e1 0001 0003 | | .DBGLEN 0x0001,0x0003 04e3 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x0270,0x0274 04e7 ; -------------------------------------------------------------------------------------- 04e7 ; Debug chain 04e7 ; -------------------------------------------------------------------------------------- 04e7 0001 0003 | | .DBGLEN 0x0001,0x0003 04e9 0283 0285 | | .DBGLNO 0x0283,0x0285,0x0288,0x028c 04ed ; -------------------------------------------------------------------------------------- 04ed ; Debug chain 04ed ; -------------------------------------------------------------------------------------- 04ed 0001 0003 | | .DBGLEN 0x0001,0x0003 04ef 029b 029d | | .DBGLNO 0x029b,0x029d,0x02a0,0x02a4 04f3 ; -------------------------------------------------------------------------------------- 04f3 ; Debug chain 04f3 ; -------------------------------------------------------------------------------------- 04f3 0001 0003 | | .DBGLEN 0x0001,0x0003 04f5 02b3 02b5 | | .DBGLNO 0x02b3,0x02b5,0x02b8,0x02bc 04f9 ; -------------------------------------------------------------------------------------- 04f9 ; Debug chain 04f9 ; -------------------------------------------------------------------------------------- 04f9 0001 0003 | | .DBGLEN 0x0001,0x0003 04fb 02cb 02cd | | .DBGLNO 0x02cb,0x02cd,0x02d0,0x02d4 04ff ; -------------------------------------------------------------------------------------- 04ff ; Debug chain 04ff ; -------------------------------------------------------------------------------------- 04ff 0001 0003 | | .DBGLEN 0x0001,0x0003 0501 02e3 02e5 | | .DBGLNO 0x02e3,0x02e5,0x02e8,0x02ec 0505 ; -------------------------------------------------------------------------------------- 0505 ; Debug chain 0505 ; -------------------------------------------------------------------------------------- 0505 0001 0003 | | .DBGLEN 0x0001,0x0003 0507 02fb 02fd | | .DBGLNO 0x02fb,0x02fd,0x0300,0x0304 050b ; -------------------------------------------------------------------------------------- 050b ; Debug chain 050b ; -------------------------------------------------------------------------------------- 050b 0001 0003 | | .DBGLEN 0x0001,0x0003 050d 0313 0315 | | .DBGLNO 0x0313,0x0315,0x0318,0x031c 0511 ; -------------------------------------------------------------------------------------- 0511 ; Debug chain 0511 ; -------------------------------------------------------------------------------------- 0511 0001 0003 | | .DBGLEN 0x0001,0x0003 0513 032b 032d | + -| .DBGLNO 0x032b,0x032d,0x0330,0x0334 0517 ; -------------------------------------------------------------------------------------- 0517 ; Debug chain 0517 ; -------------------------------------------------------------------------------------- 0517 0001 0003 | | .DBGLEN 0x0001,0x0003 0519 0343 0345 | C E| .DBGLNO 0x0343,0x0345,0x0348,0x034c 051d ; -------------------------------------------------------------------------------------- 051d ; Debug chain 051d ; -------------------------------------------------------------------------------------- 051d 0001 0003 | | .DBGLEN 0x0001,0x0003 051f 035b 035d | [ ]| .DBGLNO 0x035b,0x035d,0x0360,0x0364 0523 ; -------------------------------------------------------------------------------------- 0523 ; Debug chain 0523 ; -------------------------------------------------------------------------------------- 0523 0001 0003 | | .DBGLEN 0x0001,0x0003 0525 0373 0375 | s u| .DBGLNO 0x0373,0x0375,0x0378,0x037c 0529 ; -------------------------------------------------------------------------------------- 0529 ; Debug chain 0529 ; -------------------------------------------------------------------------------------- 0529 0001 0003 | | .DBGLEN 0x0001,0x0003 052b 038b 038d | | .DBGLNO 0x038b,0x038d,0x0390,0x0394 052f 0000 0000 | | .BLANK 0000[0xd1]