|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_37d4b1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0720 | | .CONST 0x0720 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0054 | T | .CONST 0x0054 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0013 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0015 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0017 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0019 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 001b 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 001d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 001f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0021 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0023 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0025 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0027 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0029 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 002b 00bf | | Action Accept_Activation 002c 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call 002e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002f 00c7 | | Action Elaborate_Subprogram 0030 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0031 00c7 | | Action Elaborate_Subprogram 0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0033 00c7 | | Action Elaborate_Subprogram 0034 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0035 00c7 | | Action Elaborate_Subprogram 0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0037 00c7 | | Action Elaborate_Subprogram 0038 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0039 00c7 | | Action Elaborate_Subprogram 003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003b 00c7 | | Action Elaborate_Subprogram 003c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003d 00c7 | | Action Elaborate_Subprogram 003e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003f 00c7 | | Action Elaborate_Subprogram 0040 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0041 00c7 | | Action Elaborate_Subprogram 0042 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0043 00c7 | | Action Elaborate_Subprogram 0044 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0045 00c7 | | Action Elaborate_Subprogram 0046 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call 0048 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call 004a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004b 00c7 | | Action Elaborate_Subprogram 004c 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call 004e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 004f 00c7 | | Action Elaborate_Subprogram 0050 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0051 00c7 | | Action Elaborate_Subprogram 0052 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0053 00c7 | | Action Elaborate_Subprogram 0054 BODY_0008: 0054 00bc | | Action Signal_Activated 0055 00bb | | Action Signal_Completion 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005e | ^ | .CONST 0x005e ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b 00e1 | | Load_Encached Boolean_Cache 005c e002 | | Load 0x0,0x2 005d 0322 | " | Declare_Variable Record 005e BODY_0058: 005e 00d8 | | Load_Top At_Offset_0 005f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0060 e5ff | | Load 0x2,-0x1 0061 8003 | | Call 0x0,0x3 0062 00d9 | | Load_Top At_Offset_1 0063 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0064 00e1 | | Load_Encached Boolean_Cache 0065 00d9 | | Load_Top At_Offset_1 0066 8004 | | Call 0x0,0x4 0067 00d1 | | Pop_Control Pop_Count_1 0068 005a | Z | Store_Top Discrete,At_Offset_2 0069 00d9 | | Load_Top At_Offset_1 006a 6803 |h | Jump_Zero 0x6e 006b 00d8 | | Load_Top At_Offset_0 006c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006e 4807 |H | Short_Literal 0x7 006f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0076 | v | .CONST 0x0076 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0003 | | .CONST 0x0003 ; Number of locals 0073 INIT_0070: 0073 00e1 | | Load_Encached Boolean_Cache 0074 e002 | | Load 0x0,0x2 0075 0322 | " | Declare_Variable Record 0076 BODY_0070: 0076 00d8 | | Load_Top At_Offset_0 0077 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0078 e5ff | | Load 0x2,-0x1 0079 8003 | | Call 0x0,0x3 007a 00d9 | | Load_Top At_Offset_1 007b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007c 00e1 | | Load_Encached Boolean_Cache 007d 00d9 | | Load_Top At_Offset_1 007e 8004 | | Call 0x0,0x4 007f 00d1 | | Pop_Control Pop_Count_1 0080 005a | Z | Store_Top Discrete,At_Offset_2 0081 00d9 | | Load_Top At_Offset_1 0082 6809 |h | Jump_Zero 0x8c 0083 00d8 | | Load_Top At_Offset_0 0084 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0085 0f01 | | Execute_Immediate Equal,0x1 0086 6805 |h | Jump_Zero 0x8c 0087 00d8 | | Load_Top At_Offset_0 0088 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0089 0227 | ' | Execute Access,All_Reference 008a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 008b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008c 0831 | 1 | Execute_Immediate Raise,0x31 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0096 | | .CONST 0x0096 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 00e1 | | Load_Encached Boolean_Cache 0094 e002 | | Load 0x0,0x2 0095 0322 | " | Declare_Variable Record 0096 BODY_0090: 0096 00d8 | | Load_Top At_Offset_0 0097 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0098 e5ff | | Load 0x2,-0x1 0099 8003 | | Call 0x0,0x3 009a 00d9 | | Load_Top At_Offset_1 009b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009c 00e1 | | Load_Encached Boolean_Cache 009d 00d9 | | Load_Top At_Offset_1 009e 8004 | | Call 0x0,0x4 009f 00d1 | | Pop_Control Pop_Count_1 00a0 005a | Z | Store_Top Discrete,At_Offset_2 00a1 00d9 | | Load_Top At_Offset_1 00a2 00e1 | | Load_Encached Boolean_Cache 00a3 011c | | Execute Any,Convert_Unchecked 00a4 1c01 | | Execute_Immediate Run_Utility,0x1 00a5 e005 | | Load 0x0,0x5 00a6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a7 00d9 | | Load_Top At_Offset_1 00a8 680c |h | Jump_Zero 0xb5 00a9 00d8 | | Load_Top At_Offset_0 00aa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ab 4805 |H | Short_Literal 0x5 00ac 4806 |H | Short_Literal 0x6 00ad 0262 | b | Execute Discrete,In_Range 00ae 7001 |p | Jump_Nonzero 0xb0 00af 7805 |x | Jump 0xb5 00b0 00d8 | | Load_Top At_Offset_0 00b1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00b2 0227 | ' | Execute Access,All_Reference 00b3 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b5 0831 | 1 | Execute_Immediate Raise,0x31 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00be | | .CONST 0x00be ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0003 | | .CONST 0x0003 ; Number of locals 00bb INIT_00b8: 00bb 00e1 | | Load_Encached Boolean_Cache 00bc e002 | | Load 0x0,0x2 00bd 0322 | " | Declare_Variable Record 00be BODY_00b8: 00be 00d8 | | Load_Top At_Offset_0 00bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c0 e5ff | | Load 0x2,-0x1 00c1 8003 | | Call 0x0,0x3 00c2 00d9 | | Load_Top At_Offset_1 00c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c4 00e1 | | Load_Encached Boolean_Cache 00c5 00d9 | | Load_Top At_Offset_1 00c6 8004 | | Call 0x0,0x4 00c7 00d1 | | Pop_Control Pop_Count_1 00c8 005a | Z | Store_Top Discrete,At_Offset_2 00c9 00d9 | | Load_Top At_Offset_1 00ca 684a |hJ | Jump_Zero 0x115 00cb 00d8 | | Load_Top At_Offset_0 00cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00cd 4607 |F | Jump_Case 0x8 00ce 7809 |x | Jump 0xd8 ; case 0x0 00cf 7806 |x | Jump 0xd6 ; case 0x1 00d0 782f |x/ | Jump 0x100 ; case 0x2 00d1 7835 |x5 | Jump 0x107 ; case 0x3 00d2 783b |x; | Jump 0x10e ; case 0x4 00d3 7802 |x | Jump 0xd6 ; case 0x5 00d4 7801 |x | Jump 0xd6 ; case 0x6 00d5 7800 |x | Jump 0xd6 ; case 0x7 00d6 4800 |H | Short_Literal 0x0 00d7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00d8 e5fd | | Load 0x2,-0x3 00d9 4603 |F | Jump_Case 0x4 00da 7805 |x | Jump 0xe0 ; case 0x0 00db 780c |x | Jump 0xe8 ; case 0x1 00dc 7813 |x | Jump 0xf0 ; case 0x2 00dd 7800 |x | Jump 0xde ; case 0x3 00de 4800 |H | Short_Literal 0x0 00df 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00e0 e5fe | | Load 0x2,-0x2 00e1 00d9 | | Load_Top At_Offset_1 00e2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00e3 0227 | ' | Execute Access,All_Reference 00e4 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 00e5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00e6 8006 | | Call 0x0,0x6 00e7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00e8 e5fe | | Load 0x2,-0x2 00e9 00d9 | | Load_Top At_Offset_1 00ea 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00eb 0227 | ' | Execute Access,All_Reference 00ec 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00ee 8006 | | Call 0x0,0x6 00ef 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00f0 e5fe | | Load 0x2,-0x2 00f1 00d9 | | Load_Top At_Offset_1 00f2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00f3 0227 | ' | Execute Access,All_Reference 00f4 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 00f5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00f6 8006 | | Call 0x0,0x6 00f7 e5fe | | Load 0x2,-0x2 00f8 00da | | Load_Top At_Offset_2 00f9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00fa 0227 | ' | Execute Access,All_Reference 00fb 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00fc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00fd 8006 | | Call 0x0,0x6 00fe 0279 | y | Execute Discrete,And 00ff 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0100 e5fe | | Load 0x2,-0x2 0101 00d9 | | Load_Top At_Offset_1 0102 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0103 0227 | ' | Execute Access,All_Reference 0104 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0105 8006 | | Call 0x0,0x6 0106 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0107 e5fe | | Load 0x2,-0x2 0108 00d9 | | Load_Top At_Offset_1 0109 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 010a 0227 | ' | Execute Access,All_Reference 010b 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 010c 8006 | | Call 0x0,0x6 010d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 010e e5fe | | Load 0x2,-0x2 010f 00d9 | | Load_Top At_Offset_1 0110 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0111 0227 | ' | Execute Access,All_Reference 0112 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0113 8006 | | Call 0x0,0x6 0114 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0115 4800 |H | Short_Literal 0x0 0116 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0122 | " | .CONST 0x0122 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0005 | | .CONST 0x0005 ; Number of locals 011b INIT_0118: 011b 00e1 | | Load_Encached Boolean_Cache 011c e002 | | Load 0x0,0x2 011d 0322 | " | Declare_Variable Record 011e 00d8 | | Load_Top At_Offset_0 011f 0322 | " | Declare_Variable Record 0120 e007 | | Load 0x0,0x7 0121 0007 | | Action Break_Optional 0122 BODY_0118: 0122 00da | | Load_Top At_Offset_2 0123 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0124 e5ff | | Load 0x2,-0x1 0125 8003 | | Call 0x0,0x3 0126 00db | | Load_Top At_Offset_3 0127 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0128 00e1 | | Load_Encached Boolean_Cache 0129 00db | | Load_Top At_Offset_3 012a 8004 | | Call 0x0,0x4 012b 00d1 | | Pop_Control Pop_Count_1 012c c402 | | Store 0x2,0x2 012d 00db | | Load_Top At_Offset_3 012e 681f |h | Jump_Zero 0x14e 012f e5fe | | Load 0x2,-0x2 0130 00da | | Load_Top At_Offset_2 0131 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0132 00e1 | | Load_Encached Boolean_Cache 0133 00da | | Load_Top At_Offset_2 0134 8004 | | Call 0x0,0x4 0135 00d1 | | Pop_Control Pop_Count_1 0136 c402 | | Store 0x2,0x2 0137 00db | | Load_Top At_Offset_3 0138 6813 |h | Jump_Zero 0x14c 0139 e007 | | Load 0x0,0x7 013a 03bc | | Declare_Variable Access,By_Allocation 013b 0039 | 9 | Store_Top Access,At_Offset_1 013c 00d9 | | Load_Top At_Offset_1 013d 00d9 | | Load_Top At_Offset_1 013e 0228 | ( | Execute Access,All_Write 013f 00da | | Load_Top At_Offset_2 0140 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0141 0f04 | | Execute_Immediate Equal,0x4 0142 7002 |p | Jump_Nonzero 0x145 0143 4800 |H | Short_Literal 0x0 0144 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0145 00d8 | | Load_Top At_Offset_0 0146 00db | | Load_Top At_Offset_3 0147 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0148 0227 | ' | Execute Access,All_Reference 0149 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 014a 8008 | | Call 0x0,0x8 014b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014c 4800 |H | Short_Literal 0x0 014d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014e 4800 |H | Short_Literal 0x0 014f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015a | Z | .CONST 0x015a ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0005 | | .CONST 0x0005 ; Number of locals 0153 INIT_0150: 0153 00e1 | | Load_Encached Boolean_Cache 0154 e002 | | Load 0x0,0x2 0155 0322 | " | Declare_Variable Record 0156 00d8 | | Load_Top At_Offset_0 0157 0322 | " | Declare_Variable Record 0158 e007 | | Load 0x0,0x7 0159 0007 | | Action Break_Optional 015a BODY_0150: 015a 00da | | Load_Top At_Offset_2 015b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015c e5ff | | Load 0x2,-0x1 015d 8003 | | Call 0x0,0x3 015e 00db | | Load_Top At_Offset_3 015f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0160 00e1 | | Load_Encached Boolean_Cache 0161 00db | | Load_Top At_Offset_3 0162 8004 | | Call 0x0,0x4 0163 00d1 | | Pop_Control Pop_Count_1 0164 c402 | | Store 0x2,0x2 0165 00db | | Load_Top At_Offset_3 0166 681f |h | Jump_Zero 0x186 0167 e5fe | | Load 0x2,-0x2 0168 00da | | Load_Top At_Offset_2 0169 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 016a 00e1 | | Load_Encached Boolean_Cache 016b 00da | | Load_Top At_Offset_2 016c 8004 | | Call 0x0,0x4 016d 00d1 | | Pop_Control Pop_Count_1 016e c402 | | Store 0x2,0x2 016f 00db | | Load_Top At_Offset_3 0170 6813 |h | Jump_Zero 0x184 0171 e007 | | Load 0x0,0x7 0172 03bc | | Declare_Variable Access,By_Allocation 0173 0039 | 9 | Store_Top Access,At_Offset_1 0174 00d9 | | Load_Top At_Offset_1 0175 00d9 | | Load_Top At_Offset_1 0176 0228 | ( | Execute Access,All_Write 0177 00da | | Load_Top At_Offset_2 0178 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0179 0f03 | | Execute_Immediate Equal,0x3 017a 7002 |p | Jump_Nonzero 0x17d 017b 4800 |H | Short_Literal 0x0 017c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017d 00d8 | | Load_Top At_Offset_0 017e 00db | | Load_Top At_Offset_3 017f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0180 0227 | ' | Execute Access,All_Reference 0181 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0182 8009 | | Call 0x0,0x9 0183 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0184 4800 |H | Short_Literal 0x0 0185 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0186 4800 |H | Short_Literal 0x0 0187 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018e | | .CONST 0x018e ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0003 | | .CONST 0x0003 ; Number of locals 018b INIT_0188: 018b 00e1 | | Load_Encached Boolean_Cache 018c e002 | | Load 0x0,0x2 018d 0322 | " | Declare_Variable Record 018e BODY_0188: 018e 00d8 | | Load_Top At_Offset_0 018f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0190 e5ff | | Load 0x2,-0x1 0191 8003 | | Call 0x0,0x3 0192 00d9 | | Load_Top At_Offset_1 0193 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0194 00e1 | | Load_Encached Boolean_Cache 0195 00d9 | | Load_Top At_Offset_1 0196 8004 | | Call 0x0,0x4 0197 00d1 | | Pop_Control Pop_Count_1 0198 005a | Z | Store_Top Discrete,At_Offset_2 0199 00d9 | | Load_Top At_Offset_1 019a 682e |h. | Jump_Zero 0x1c9 019b 00d8 | | Load_Top At_Offset_0 019c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 019d 4607 |F | Jump_Case 0x8 019e 7817 |x | Jump 0x1b6 ; case 0x0 019f 7829 |x) | Jump 0x1c9 ; case 0x1 01a0 7806 |x | Jump 0x1a7 ; case 0x2 01a1 780a |x | Jump 0x1ac ; case 0x3 01a2 780e |x | Jump 0x1b1 ; case 0x4 01a3 7825 |x% | Jump 0x1c9 ; case 0x5 01a4 7824 |x$ | Jump 0x1c9 ; case 0x6 01a5 7823 |x# | Jump 0x1c9 ; case 0x7 01a6 7822 |x" | .XXX[0x1] 01a7 00d8 | | Load_Top At_Offset_0 01a8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01a9 0227 | ' | Execute Access,All_Reference 01aa 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 01ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ac 00d8 | | Load_Top At_Offset_0 01ad 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01ae 0227 | ' | Execute Access,All_Reference 01af 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 01b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b1 00d8 | | Load_Top At_Offset_0 01b2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01b3 0227 | ' | Execute Access,All_Reference 01b4 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 01b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b6 e5fe | | Load 0x2,-0x2 01b7 4603 |F | Jump_Case 0x4 01b8 780a |x | Jump 0x1c3 ; case 0x0 01b9 7803 |x | Jump 0x1bd ; case 0x1 01ba 7808 |x | Jump 0x1c3 ; case 0x2 01bb 780d |x | Jump 0x1c9 ; case 0x3 01bc 780c |x | .XXX[0x1] 01bd 00d8 | | Load_Top At_Offset_0 01be 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01bf 0227 | ' | Execute Access,All_Reference 01c0 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 01c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c3 00d8 | | Load_Top At_Offset_0 01c4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01c5 0227 | ' | Execute Access,All_Reference 01c6 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c9 0831 | 1 | Execute_Immediate Raise,0x31 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d6 | | .CONST 0x01d6 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 00e1 | | Load_Encached Boolean_Cache 01d4 e002 | | Load 0x0,0x2 01d5 0322 | " | Declare_Variable Record 01d6 BODY_01d0: 01d6 00d8 | | Load_Top At_Offset_0 01d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d8 e5ff | | Load 0x2,-0x1 01d9 8003 | | Call 0x0,0x3 01da 00d9 | | Load_Top At_Offset_1 01db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01dc 00e1 | | Load_Encached Boolean_Cache 01dd 00d9 | | Load_Top At_Offset_1 01de 8004 | | Call 0x0,0x4 01df 00d1 | | Pop_Control Pop_Count_1 01e0 005a | Z | Store_Top Discrete,At_Offset_2 01e1 00d9 | | Load_Top At_Offset_1 01e2 6803 |h | Jump_Zero 0x1e6 01e3 00d8 | | Load_Top At_Offset_0 01e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e6 4800 |H | Short_Literal 0x0 01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ee | | .CONST 0x01ee ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb 00e1 | | Load_Encached Boolean_Cache 01ec e002 | | Load 0x0,0x2 01ed 0322 | " | Declare_Variable Record 01ee BODY_01e8: 01ee 00d8 | | Load_Top At_Offset_0 01ef 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f0 e5ff | | Load 0x2,-0x1 01f1 8003 | | Call 0x0,0x3 01f2 00d9 | | Load_Top At_Offset_1 01f3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f4 00e1 | | Load_Encached Boolean_Cache 01f5 00d9 | | Load_Top At_Offset_1 01f6 8004 | | Call 0x0,0x4 01f7 00d1 | | Pop_Control Pop_Count_1 01f8 005a | Z | Store_Top Discrete,At_Offset_2 01f9 00d9 | | Load_Top At_Offset_1 01fa 6802 |h | Jump_Zero 0x1fd 01fb 4801 |H | Short_Literal 0x1 01fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fd 4800 |H | Short_Literal 0x0 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0206 | | .CONST 0x0206 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 00e1 | | Load_Encached Boolean_Cache 0204 e002 | | Load 0x0,0x2 0205 0322 | " | Declare_Variable Record 0206 BODY_0200: 0206 00d8 | | Load_Top At_Offset_0 0207 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0208 e5ff | | Load 0x2,-0x1 0209 8003 | | Call 0x0,0x3 020a 00d9 | | Load_Top At_Offset_1 020b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 020c 00e1 | | Load_Encached Boolean_Cache 020d 00d9 | | Load_Top At_Offset_1 020e 8004 | | Call 0x0,0x4 020f 00d1 | | Pop_Control Pop_Count_1 0210 005a | Z | Store_Top Discrete,At_Offset_2 0211 00d9 | | Load_Top At_Offset_1 0212 681f |h | Jump_Zero 0x232 0213 00d8 | | Load_Top At_Offset_0 0214 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0215 4607 |F | Jump_Case 0x8 0216 7820 |x | Jump 0x237 ; case 0x0 0217 781f |x | Jump 0x237 ; case 0x1 0218 780e |x | Jump 0x227 ; case 0x2 0219 7810 |x | Jump 0x22a ; case 0x3 021a 7804 |x | Jump 0x21f ; case 0x4 021b 781b |x | Jump 0x237 ; case 0x5 021c 781a |x | Jump 0x237 ; case 0x6 021d 7819 |x | Jump 0x237 ; case 0x7 021e 7818 |x | .XXX[0x1] 021f 00d8 | | Load_Top At_Offset_0 0220 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0221 0227 | ' | Execute Access,All_Reference 0222 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0223 0227 | ' | Execute Access,All_Reference 0224 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0225 8216 | | Call 0x1,0x16 0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0227 00d8 | | Load_Top At_Offset_0 0228 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022a 00d8 | | Load_Top At_Offset_0 022b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 022c 0227 | ' | Execute Access,All_Reference 022d 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 022e 0227 | ' | Execute Access,All_Reference 022f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0230 8216 | | Call 0x1,0x16 0231 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0232 0092 064d | M| Action Push_String_Extended,0x64d ; " " 0234 e00a | | Load 0x0,0xa 0235 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0236 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0237 0831 | 1 | Execute_Immediate Raise,0x31 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023e | > | .CONST 0x023e ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b 00e1 | | Load_Encached Boolean_Cache 023c e002 | | Load 0x0,0x2 023d 0322 | " | Declare_Variable Record 023e BODY_0238: 023e 00d8 | | Load_Top At_Offset_0 023f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0240 e5ff | | Load 0x2,-0x1 0241 8003 | | Call 0x0,0x3 0242 00d9 | | Load_Top At_Offset_1 0243 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0244 00e1 | | Load_Encached Boolean_Cache 0245 00d9 | | Load_Top At_Offset_1 0246 8004 | | Call 0x0,0x4 0247 00d1 | | Pop_Control Pop_Count_1 0248 005a | Z | Store_Top Discrete,At_Offset_2 0249 00d9 | | Load_Top At_Offset_1 024a 681e |h | Jump_Zero 0x269 024b 00d8 | | Load_Top At_Offset_0 024c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 024d 4801 |H | Short_Literal 0x1 024e 4807 |H | Short_Literal 0x7 024f 0262 | b | Execute Discrete,In_Range 0250 7018 |p | Jump_Nonzero 0x269 0251 7800 |x | Jump 0x252 0252 e5fe | | Load 0x2,-0x2 0253 4603 |F | Jump_Case 0x4 0254 780c |x | Jump 0x261 ; case 0x0 0255 7803 |x | Jump 0x259 ; case 0x1 0256 7812 |x | Jump 0x269 ; case 0x2 0257 7811 |x | Jump 0x269 ; case 0x3 0258 7810 |x | .XXX[0x1] 0259 00d8 | | Load_Top At_Offset_0 025a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 025b 0227 | ' | Execute Access,All_Reference 025c 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025e 0227 | ' | Execute Access,All_Reference 025f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0260 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0261 00d8 | | Load_Top At_Offset_0 0262 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0263 0227 | ' | Execute Access,All_Reference 0264 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0265 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0266 0227 | ' | Execute Access,All_Reference 0267 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0268 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0269 0831 | 1 | Execute_Immediate Raise,0x31 026a 0000 0000 | | .BLANK 0000[0x6] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0276 | v | .CONST 0x0276 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0003 | | .CONST 0x0003 ; Number of locals 0273 INIT_0270: 0273 00e1 | | Load_Encached Boolean_Cache 0274 e002 | | Load 0x0,0x2 0275 0322 | " | Declare_Variable Record 0276 BODY_0270: 0276 00d8 | | Load_Top At_Offset_0 0277 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0278 e5ff | | Load 0x2,-0x1 0279 8003 | | Call 0x0,0x3 027a 00d9 | | Load_Top At_Offset_1 027b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 027c 00e1 | | Load_Encached Boolean_Cache 027d 00d9 | | Load_Top At_Offset_1 027e 8004 | | Call 0x0,0x4 027f 00d1 | | Pop_Control Pop_Count_1 0280 005a | Z | Store_Top Discrete,At_Offset_2 0281 00d9 | | Load_Top At_Offset_1 0282 681e |h | Jump_Zero 0x2a1 0283 00d8 | | Load_Top At_Offset_0 0284 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0285 4801 |H | Short_Literal 0x1 0286 4807 |H | Short_Literal 0x7 0287 0262 | b | Execute Discrete,In_Range 0288 7018 |p | Jump_Nonzero 0x2a1 0289 7800 |x | Jump 0x28a 028a e5fe | | Load 0x2,-0x2 028b 4603 |F | Jump_Case 0x4 028c 780c |x | Jump 0x299 ; case 0x0 028d 7803 |x | Jump 0x291 ; case 0x1 028e 7812 |x | Jump 0x2a1 ; case 0x2 028f 7811 |x | Jump 0x2a1 ; case 0x3 0290 7810 |x | .XXX[0x1] 0291 00d8 | | Load_Top At_Offset_0 0292 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0293 0227 | ' | Execute Access,All_Reference 0294 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0295 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0296 0227 | ' | Execute Access,All_Reference 0297 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0298 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0299 00d8 | | Load_Top At_Offset_0 029a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 029b 0227 | ' | Execute Access,All_Reference 029c 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 029d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 029e 0227 | ' | Execute Access,All_Reference 029f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a1 0831 | 1 | Execute_Immediate Raise,0x31 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b2 | | .CONST 0x02b2 ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0006 | | .CONST 0x0006 ; Number of locals 02ab INIT_02a8: 02ab 00e1 | | Load_Encached Boolean_Cache 02ac 03e9 | | Declare_Variable Discrete,Duplicate 02ad 03e9 | | Declare_Variable Discrete,Duplicate 02ae e002 | | Load 0x0,0x2 02af 0322 | " | Declare_Variable Record 02b0 00d8 | | Load_Top At_Offset_0 02b1 0322 | " | Declare_Variable Record 02b2 BODY_02a8: 02b2 4800 |H | Short_Literal 0x0 02b3 a402 | | Store_Unchecked 0x2,0x2 02b4 00d9 | | Load_Top At_Offset_1 02b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b6 e5ff | | Load 0x2,-0x1 02b7 8003 | | Call 0x0,0x3 02b8 00da | | Load_Top At_Offset_2 02b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02ba 00d8 | | Load_Top At_Offset_0 02bb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02bc e5fe | | Load 0x2,-0x2 02bd 8003 | | Call 0x0,0x3 02be 00d9 | | Load_Top At_Offset_1 02bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c0 00e1 | | Load_Encached Boolean_Cache 02c1 00da | | Load_Top At_Offset_2 02c2 8004 | | Call 0x0,0x4 02c3 00d1 | | Pop_Control Pop_Count_1 02c4 c403 | | Store 0x2,0x3 02c5 00e1 | | Load_Encached Boolean_Cache 02c6 00d9 | | Load_Top At_Offset_1 02c7 8004 | | Call 0x0,0x4 02c8 00d1 | | Pop_Control Pop_Count_1 02c9 005b | [ | Store_Top Discrete,At_Offset_3 02ca 00db | | Load_Top At_Offset_3 02cb 00db | | Load_Top At_Offset_3 02cc 0279 | y | Execute Discrete,And 02cd 6849 |hI | Jump_Zero 0x317 02ce 00d9 | | Load_Top At_Offset_1 02cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02d0 00d9 | | Load_Top At_Offset_1 02d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02d2 027f | | Execute Discrete,Equal 02d3 6843 |hC | Jump_Zero 0x317 02d4 e5fd | | Load 0x2,-0x3 02d5 4609 |F | Jump_Case 0xa 02d6 7832 |x2 | Jump 0x309 ; case 0x0 02d7 783f |x? | Jump 0x317 ; case 0x1 02d8 783e |x> | Jump 0x317 ; case 0x2 02d9 783d |x= | Jump 0x317 ; case 0x3 02da 7814 |x | Jump 0x2ef ; case 0x4 02db 7819 |x | Jump 0x2f5 ; case 0x5 02dc 781d |x | Jump 0x2fa ; case 0x6 02dd 7839 |x9 | Jump 0x317 ; case 0x7 02de 7838 |x8 | Jump 0x317 ; case 0x8 02df 7800 |x | Jump 0x2e0 ; case 0x9 02e0 00d9 | | Load_Top At_Offset_1 02e1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02e2 0f01 | | Execute_Immediate Equal,0x1 02e3 6833 |h3 | Jump_Zero 0x317 02e4 00d9 | | Load_Top At_Offset_1 02e5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02e6 0227 | ' | Execute Access,All_Reference 02e7 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02e8 00d9 | | Load_Top At_Offset_1 02e9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02ea 0227 | ' | Execute Access,All_Reference 02eb 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02ec 027f | | Execute Discrete,Equal 02ed a402 | | Store_Unchecked 0x2,0x2 02ee 7828 |x( | Jump 0x317 02ef e5fc | | Load 0x2,-0x4 02f0 00d9 | | Load_Top At_Offset_1 02f1 00db | | Load_Top At_Offset_3 02f2 821e | | Call 0x1,0x1e 02f3 a402 | | Store_Unchecked 0x2,0x2 02f4 7822 |x" | Jump 0x317 02f5 00d8 | | Load_Top At_Offset_0 02f6 00da | | Load_Top At_Offset_2 02f7 821f | | Call 0x1,0x1f 02f8 a402 | | Store_Unchecked 0x2,0x2 02f9 781d |x | Jump 0x317 02fa 00d9 | | Load_Top At_Offset_1 02fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02fc 0f04 | | Execute_Immediate Equal,0x4 02fd 6819 |h | Jump_Zero 0x317 02fe 00d8 | | Load_Top At_Offset_0 02ff 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0300 0227 | ' | Execute Access,All_Reference 0301 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0302 00da | | Load_Top At_Offset_2 0303 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0304 0227 | ' | Execute Access,All_Reference 0305 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0306 800b | | Call 0x0,0xb 0307 a402 | | Store_Unchecked 0x2,0x2 0308 780e |x | Jump 0x317 0309 00d9 | | Load_Top At_Offset_1 030a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 030b 0f03 | | Execute_Immediate Equal,0x3 030c 680a |h | Jump_Zero 0x317 030d 00d8 | | Load_Top At_Offset_0 030e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 030f 0227 | ' | Execute Access,All_Reference 0310 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0311 00da | | Load_Top At_Offset_2 0312 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0313 0227 | ' | Execute Access,All_Reference 0314 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0315 800c | | Call 0x0,0xc 0316 a402 | | Store_Unchecked 0x2,0x2 0317 e402 | | Load 0x2,0x2 0318 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0319 0000 0000 | | .BLANK 0000[0x7] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 032f | / | .CONST 0x032f ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0009 | | .CONST 0x0009 ; Number of locals 0323 INIT_0320: 0323 e00d | | Load 0x0,0xd 0324 0322 | " | Declare_Variable Record 0325 00e1 | | Load_Encached Boolean_Cache 0326 03e9 | | Declare_Variable Discrete,Duplicate 0327 03e9 | | Declare_Variable Discrete,Duplicate 0328 03e9 | | Declare_Variable Discrete,Duplicate 0329 e002 | | Load 0x0,0x2 032a 0322 | " | Declare_Variable Record 032b 00d8 | | Load_Top At_Offset_0 032c 0322 | " | Declare_Variable Record 032d e00e | | Load 0x0,0xe 032e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 032f BODY_0320: 032f 4800 |H | Short_Literal 0x0 0330 a403 | | Store_Unchecked 0x2,0x3 0331 4800 |H | Short_Literal 0x0 0332 a404 | | Store_Unchecked 0x2,0x4 0333 00da | | Load_Top At_Offset_2 0334 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0335 e5ff | | Load 0x2,-0x1 0336 8003 | | Call 0x0,0x3 0337 00db | | Load_Top At_Offset_3 0338 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0339 00d9 | | Load_Top At_Offset_1 033a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 033b e5fe | | Load 0x2,-0x2 033c 8003 | | Call 0x0,0x3 033d 00da | | Load_Top At_Offset_2 033e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 033f 00e1 | | Load_Encached Boolean_Cache 0340 00db | | Load_Top At_Offset_3 0341 8004 | | Call 0x0,0x4 0342 00d1 | | Pop_Control Pop_Count_1 0343 c405 | | Store 0x2,0x5 0344 00e1 | | Load_Encached Boolean_Cache 0345 00da | | Load_Top At_Offset_2 0346 8004 | | Call 0x0,0x4 0347 00d1 | | Pop_Control Pop_Count_1 0348 c406 | | Store 0x2,0x6 0349 e405 | | Load 0x2,0x5 034a e406 | | Load 0x2,0x6 034b 0279 | y | Execute Discrete,And 034c 00db | | Load_Top At_Offset_3 034d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 034e 0f02 | | Execute_Immediate Equal,0x2 034f 0279 | y | Execute Discrete,And 0350 00da | | Load_Top At_Offset_2 0351 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0352 0f00 | | Execute_Immediate Equal,0x0 0353 0279 | y | Execute Discrete,And 0354 6830 |h0 | Jump_Zero 0x385 0355 e00e | | Load 0x0,0xe 0356 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0357 00db | | Load_Top At_Offset_3 0358 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0359 0227 | ' | Execute Access,All_Reference 035a 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 035b 800f | | Call 0x0,0xf 035c 0039 | 9 | Store_Top Access,At_Offset_1 035d 00cf | | Action Mark_Auxiliary 035e 781d |x | Jump 0x37c 035f 00d9 | | Load_Top At_Offset_1 0360 8010 | | Call 0x0,0x10 0361 e402 | | Load 0x2,0x2 0362 017d | } | Execute Record,Structure_Write 0363 e402 | | Load 0x2,0x2 0364 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0365 6812 |h | Jump_Zero 0x378 0366 e402 | | Load 0x2,0x2 0367 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0368 0227 | ' | Execute Access,All_Reference 0369 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 036a e5fe | | Load 0x2,-0x2 036b 8011 | | Call 0x0,0x11 036c a403 | | Store_Unchecked 0x2,0x3 036d e403 | | Load 0x2,0x3 036e 6809 |h | Jump_Zero 0x378 036f 00e1 | | Load_Encached Boolean_Cache 0370 e5fc | | Load 0x2,-0x4 0371 e5fd | | Load 0x2,-0x3 0372 e408 | | Load 0x2,0x8 0373 e5ff | | Load 0x2,-0x1 0374 8220 | | Call 0x1,0x20 0375 c5fd | | Store 0x2,-0x3 0376 c5fc | | Store 0x2,-0x4 0377 c404 | | Store 0x2,0x4 0378 00d9 | | Load_Top At_Offset_1 0379 8012 | | Call 0x0,0x12 037a 003a | : | Store_Top Access,At_Offset_2 037b 00c9 | | Action Pop_Auxiliary_Loop 037c e403 | | Load 0x2,0x3 037d 0f00 | | Execute_Immediate Equal,0x0 037e 00da | | Load_Top At_Offset_2 037f 8013 | | Call 0x0,0x13 0380 0f00 | | Execute_Immediate Equal,0x0 0381 0279 | y | Execute Discrete,And 0382 77dc |w | Jump_Nonzero 0x35f 0383 00ce | | Action Pop_Auxiliary 0384 7806 |x | Jump 0x38b 0385 4800 |H | Short_Literal 0x0 0386 a5fc | | Store_Unchecked 0x2,-0x4 0387 e5fd | | Load 0x2,-0x3 0388 00ea | | Load_Encached Null_String_Cache 0389 8014 | | Call 0x0,0x14 038a c5fd | | Store 0x2,-0x3 038b e403 | | Load 0x2,0x3 038c e404 | | Load 0x2,0x4 038d 0279 | y | Execute Discrete,And 038e a5fb | | Store_Unchecked 0x2,-0x5 038f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 039e | | .CONST 0x039e ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0008 | | .CONST 0x0008 ; Number of locals 0393 INIT_0390: 0393 e00d | | Load 0x0,0xd 0394 0322 | " | Declare_Variable Record 0395 00e1 | | Load_Encached Boolean_Cache 0396 03e9 | | Declare_Variable Discrete,Duplicate 0397 03e9 | | Declare_Variable Discrete,Duplicate 0398 e002 | | Load 0x0,0x2 0399 0322 | " | Declare_Variable Record 039a 00d8 | | Load_Top At_Offset_0 039b 0322 | " | Declare_Variable Record 039c e00e | | Load 0x0,0xe 039d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 039e BODY_0390: 039e 0092 064e | N| Action Push_String_Extended,0x64e ; "lieu de depart : " 03a0 e005 | | Load 0x0,0x5 03a1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03a2 e5ff | | Load 0x2,-0x1 03a3 8015 | | Call 0x0,0x15 03a4 0092 064f | O| Action Push_String_Extended,0x64f ; "destination : " 03a6 e005 | | Load 0x0,0x5 03a7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03a8 e5fe | | Load 0x2,-0x2 03a9 8015 | | Call 0x0,0x15 03aa 4800 |H | Short_Literal 0x0 03ab a403 | | Store_Unchecked 0x2,0x3 03ac 00da | | Load_Top At_Offset_2 03ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ae e5ff | | Load 0x2,-0x1 03af 8003 | | Call 0x0,0x3 03b0 00db | | Load_Top At_Offset_3 03b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03b2 00e1 | | Load_Encached Boolean_Cache 03b3 00db | | Load_Top At_Offset_3 03b4 8004 | | Call 0x0,0x4 03b5 00d1 | | Pop_Control Pop_Count_1 03b6 c404 | | Store 0x2,0x4 03b7 e404 | | Load 0x2,0x4 03b8 00db | | Load_Top At_Offset_3 03b9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03ba 0f02 | | Execute_Immediate Equal,0x2 03bb 0279 | y | Execute Discrete,And 03bc 68b3 |h | Jump_Zero 0x470 03bd e00e | | Load 0x0,0xe 03be 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03bf 00db | | Load_Top At_Offset_3 03c0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03c1 0227 | ' | Execute Access,All_Reference 03c2 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 03c3 800f | | Call 0x0,0xf 03c4 0039 | 9 | Store_Top Access,At_Offset_1 03c5 00cf | | Action Mark_Auxiliary 03c6 78a1 |x | Jump 0x468 03c7 e402 | | Load 0x2,0x2 03c8 00da | | Load_Top At_Offset_2 03c9 8010 | | Call 0x0,0x10 03ca 821d | | Call 0x1,0x1d 03cb 00d1 | | Pop_Control Pop_Count_1 03cc e402 | | Load 0x2,0x2 03cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03ce 688c |h | Jump_Zero 0x45b 03cf e402 | | Load 0x2,0x2 03d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03d1 0227 | ' | Execute Access,All_Reference 03d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d3 00db | | Load_Top At_Offset_3 03d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03d5 00e1 | | Load_Encached Boolean_Cache 03d6 00db | | Load_Top At_Offset_3 03d7 8004 | | Call 0x0,0x4 03d8 00d1 | | Pop_Control Pop_Count_1 03d9 c405 | | Store 0x2,0x5 03da e405 | | Load 0x2,0x5 03db 00db | | Load_Top At_Offset_3 03dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03dd 0f00 | | Execute_Immediate Equal,0x0 03de 0279 | y | Execute Discrete,And 03df 687b |h{ | Jump_Zero 0x45b 03e0 0092 0650 | P| Action Push_String_Extended,0x650 ; "la communication existe son nom est " 03e2 e005 | | Load 0x0,0x5 03e3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03e4 00da | | Load_Top At_Offset_2 03e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03e6 8015 | | Call 0x0,0x15 03e7 00da | | Load_Top At_Offset_2 03e8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03e9 0227 | ' | Execute Access,All_Reference 03ea 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 03eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ec 6850 |hP | Jump_Zero 0x43d 03ed 0092 0651 | Q| Action Push_String_Extended,0x651 ; "source ds sens1" 03ef e005 | | Load 0x0,0x5 03f0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03f1 00da | | Load_Top At_Offset_2 03f2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03f3 0227 | ' | Execute Access,All_Reference 03f4 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 03f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03f6 0227 | ' | Execute Access,All_Reference 03f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03f8 8015 | | Call 0x0,0x15 03f9 e5ff | | Load 0x2,-0x1 03fa 00db | | Load_Top At_Offset_3 03fb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03fc 0227 | ' | Execute Access,All_Reference 03fd 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 03fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ff 0227 | ' | Execute Access,All_Reference 0400 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0401 8011 | | Call 0x0,0x11 0402 680f |h | Jump_Zero 0x412 0403 e5fe | | Load 0x2,-0x2 0404 00db | | Load_Top At_Offset_3 0405 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0406 0227 | ' | Execute Access,All_Reference 0407 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0408 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0409 0227 | ' | Execute Access,All_Reference 040a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 040b 8011 | | Call 0x0,0x11 040c 684e |hN | Jump_Zero 0x45b 040d 4801 |H | Short_Literal 0x1 040e a403 | | Store_Unchecked 0x2,0x3 040f 4801 |H | Short_Literal 0x1 0410 a5fd | | Store_Unchecked 0x2,-0x3 0411 7849 |xI | Jump 0x45b 0412 00da | | Load_Top At_Offset_2 0413 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0414 0227 | ' | Execute Access,All_Reference 0415 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0416 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0417 6843 |hC | Jump_Zero 0x45b 0418 0092 0652 | R| Action Push_String_Extended,0x652 ; "source ds sens2" 041a e005 | | Load 0x0,0x5 041b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 041c 00da | | Load_Top At_Offset_2 041d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 041e 0227 | ' | Execute Access,All_Reference 041f 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0420 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0421 0227 | ' | Execute Access,All_Reference 0422 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0423 8015 | | Call 0x0,0x15 0424 e5ff | | Load 0x2,-0x1 0425 00db | | Load_Top At_Offset_3 0426 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0427 0227 | ' | Execute Access,All_Reference 0428 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0429 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 042a 0227 | ' | Execute Access,All_Reference 042b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 042c 8011 | | Call 0x0,0x11 042d 682d |h- | Jump_Zero 0x45b 042e e5fe | | Load 0x2,-0x2 042f 00db | | Load_Top At_Offset_3 0430 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0431 0227 | ' | Execute Access,All_Reference 0432 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0433 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0434 0227 | ' | Execute Access,All_Reference 0435 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0436 8011 | | Call 0x0,0x11 0437 6823 |h# | Jump_Zero 0x45b 0438 4801 |H | Short_Literal 0x1 0439 a403 | | Store_Unchecked 0x2,0x3 043a 4802 |H | Short_Literal 0x2 043b a5fd | | Store_Unchecked 0x2,-0x3 043c 781e |x | Jump 0x45b 043d 00da | | Load_Top At_Offset_2 043e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 043f 0227 | ' | Execute Access,All_Reference 0440 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0441 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0442 6818 |h | Jump_Zero 0x45b 0443 e5ff | | Load 0x2,-0x1 0444 00db | | Load_Top At_Offset_3 0445 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0446 0227 | ' | Execute Access,All_Reference 0447 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0448 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0449 0227 | ' | Execute Access,All_Reference 044a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 044b 8011 | | Call 0x0,0x11 044c 680e |h | Jump_Zero 0x45b 044d e5fe | | Load 0x2,-0x2 044e 00db | | Load_Top At_Offset_3 044f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0450 0227 | ' | Execute Access,All_Reference 0451 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0452 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0453 0227 | ' | Execute Access,All_Reference 0454 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0455 8011 | | Call 0x0,0x11 0456 6804 |h | Jump_Zero 0x45b 0457 4801 |H | Short_Literal 0x1 0458 a403 | | Store_Unchecked 0x2,0x3 0459 4802 |H | Short_Literal 0x2 045a a5fd | | Store_Unchecked 0x2,-0x3 045b 00d9 | | Load_Top At_Offset_1 045c 8012 | | Call 0x0,0x12 045d 003a | : | Store_Top Access,At_Offset_2 045e 0092 0653 | S| Action Push_String_Extended,0x653 ; " found vaut " 0460 e403 | | Load 0x2,0x3 0461 00e1 | | Load_Encached Boolean_Cache 0462 011c | | Execute Any,Convert_Unchecked 0463 1c01 | | Execute_Immediate Run_Utility,0x1 0464 01cc | | Execute Vector,Catenate 0465 e005 | | Load 0x0,0x5 0466 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0467 00c9 | | Action Pop_Auxiliary_Loop 0468 e403 | | Load 0x2,0x3 0469 0f00 | | Execute_Immediate Equal,0x0 046a 00da | | Load_Top At_Offset_2 046b 8013 | | Call 0x0,0x13 046c 0f00 | | Execute_Immediate Equal,0x0 046d 0279 | y | Execute Discrete,And 046e 7758 |wX | Jump_Nonzero 0x3c7 046f 00ce | | Action Pop_Auxiliary 0470 e403 | | Load 0x2,0x3 0471 7006 |p | Jump_Nonzero 0x478 0472 4800 |H | Short_Literal 0x0 0473 a5fd | | Store_Unchecked 0x2,-0x3 0474 e5fe | | Load 0x2,-0x2 0475 00ea | | Load_Encached Null_String_Cache 0476 8014 | | Call 0x0,0x14 0477 c5fe | | Store 0x2,-0x2 0478 e403 | | Load 0x2,0x3 0479 a5fc | | Store_Unchecked 0x2,-0x4 047a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048e | | .CONST 0x048e ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0008 | | .CONST 0x0008 ; Number of locals 0483 INIT_0480: 0483 e00d | | Load 0x0,0xd 0484 0322 | " | Declare_Variable Record 0485 00e1 | | Load_Encached Boolean_Cache 0486 03e9 | | Declare_Variable Discrete,Duplicate 0487 03e9 | | Declare_Variable Discrete,Duplicate 0488 e002 | | Load 0x0,0x2 0489 0322 | " | Declare_Variable Record 048a 00d8 | | Load_Top At_Offset_0 048b 0322 | " | Declare_Variable Record 048c e00e | | Load 0x0,0xe 048d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 048e BODY_0480: 048e 0092 064e | N| Action Push_String_Extended,0x64e ; "lieu de depart : " 0490 e005 | | Load 0x0,0x5 0491 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0492 e5ff | | Load 0x2,-0x1 0493 8015 | | Call 0x0,0x15 0494 0092 0654 | T| Action Push_String_Extended,0x654 ; "direction : " 0496 e005 | | Load 0x0,0x5 0497 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0498 e5fe | | Load 0x2,-0x2 0499 8015 | | Call 0x0,0x15 049a 4800 |H | Short_Literal 0x0 049b a403 | | Store_Unchecked 0x2,0x3 049c 00da | | Load_Top At_Offset_2 049d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 049e e5ff | | Load 0x2,-0x1 049f 8003 | | Call 0x0,0x3 04a0 00db | | Load_Top At_Offset_3 04a1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04a2 00e1 | | Load_Encached Boolean_Cache 04a3 00db | | Load_Top At_Offset_3 04a4 8004 | | Call 0x0,0x4 04a5 00d1 | | Pop_Control Pop_Count_1 04a6 c404 | | Store 0x2,0x4 04a7 e404 | | Load 0x2,0x4 04a8 00db | | Load_Top At_Offset_3 04a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04aa 0f02 | | Execute_Immediate Equal,0x2 04ab 0279 | y | Execute Discrete,And 04ac 6828 |h( | Jump_Zero 0x4d5 04ad e00e | | Load 0x0,0xe 04ae 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 04af 00db | | Load_Top At_Offset_3 04b0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04b1 0227 | ' | Execute Access,All_Reference 04b2 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 04b3 800f | | Call 0x0,0xf 04b4 0039 | 9 | Store_Top Access,At_Offset_1 04b5 00cf | | Action Mark_Auxiliary 04b6 7816 |x | Jump 0x4cd 04b7 e402 | | Load 0x2,0x2 04b8 00da | | Load_Top At_Offset_2 04b9 8010 | | Call 0x0,0x10 04ba 821d | | Call 0x1,0x1d 04bb 00d1 | | Pop_Control Pop_Count_1 04bc e402 | | Load 0x2,0x2 04bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04be 8016 | | Call 0x0,0x16 04bf e402 | | Load 0x2,0x2 04c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04c1 0227 | ' | Execute Access,All_Reference 04c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04c3 8015 | | Call 0x0,0x15 04c4 e402 | | Load 0x2,0x2 04c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04c6 e5fe | | Load 0x2,-0x2 04c7 8011 | | Call 0x0,0x11 04c8 a403 | | Store_Unchecked 0x2,0x3 04c9 00d9 | | Load_Top At_Offset_1 04ca 8012 | | Call 0x0,0x12 04cb 003a | : | Store_Top Access,At_Offset_2 04cc 00c9 | | Action Pop_Auxiliary_Loop 04cd e403 | | Load 0x2,0x3 04ce 0f00 | | Execute_Immediate Equal,0x0 04cf 00da | | Load_Top At_Offset_2 04d0 8013 | | Call 0x0,0x13 04d1 0f00 | | Execute_Immediate Equal,0x0 04d2 0279 | y | Execute Discrete,And 04d3 77e3 |w | Jump_Nonzero 0x4b7 04d4 00ce | | Action Pop_Auxiliary 04d5 e403 | | Load 0x2,0x3 04d6 e402 | | Load 0x2,0x2 04d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04d8 022c | , | Execute Access,Not_Null 04d9 0279 | y | Execute Discrete,And 04da 682e |h. | Jump_Zero 0x509 04db 0092 0655 | U| Action Push_String_Extended,0x655 ; "j'ai trouve la direction, sa com est : " 04dd e005 | | Load 0x0,0x5 04de 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 04df e402 | | Load 0x2,0x2 04e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04e1 0227 | ' | Execute Access,All_Reference 04e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e3 8015 | | Call 0x0,0x15 04e4 00d9 | | Load_Top At_Offset_1 04e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e6 e402 | | Load 0x2,0x2 04e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04e8 0227 | ' | Execute Access,All_Reference 04e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ea 8003 | | Call 0x0,0x3 04eb 00da | | Load_Top At_Offset_2 04ec 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04ed 00e1 | | Load_Encached Boolean_Cache 04ee 00da | | Load_Top At_Offset_2 04ef 8004 | | Call 0x0,0x4 04f0 00d1 | | Pop_Control Pop_Count_1 04f1 c405 | | Store 0x2,0x5 04f2 00db | | Load_Top At_Offset_3 04f3 680e |h | Jump_Zero 0x502 04f4 0092 0656 | V| Action Push_String_Extended,0x656 ; "avt consult sortie" 04f6 e005 | | Load 0x0,0x5 04f7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04f8 00e1 | | Load_Encached Boolean_Cache 04f9 e5fc | | Load 0x2,-0x4 04fa e5fd | | Load 0x2,-0x3 04fb e407 | | Load 0x2,0x7 04fc e5ff | | Load 0x2,-0x1 04fd 8220 | | Call 0x1,0x20 04fe c5fd | | Store 0x2,-0x3 04ff c5fc | | Store 0x2,-0x4 0500 c403 | | Store 0x2,0x3 0501 780d |x | Jump 0x50f 0502 4800 |H | Short_Literal 0x0 0503 a5fc | | Store_Unchecked 0x2,-0x4 0504 e5fd | | Load 0x2,-0x3 0505 00ea | | Load_Encached Null_String_Cache 0506 8014 | | Call 0x0,0x14 0507 c5fd | | Store 0x2,-0x3 0508 7806 |x | Jump 0x50f 0509 4800 |H | Short_Literal 0x0 050a a5fc | | Store_Unchecked 0x2,-0x4 050b e5fd | | Load 0x2,-0x3 050c 00ea | | Load_Encached Null_String_Cache 050d 8014 | | Call 0x0,0x14 050e c5fd | | Store 0x2,-0x3 050f e403 | | Load 0x2,0x3 0510 a5fb | | Store_Unchecked 0x2,-0x5 0511 0092 0657 | W| Action Push_String_Extended,0x657 ; "je quitte direction_belong to lieu avec is Found a" 0513 e403 | | Load 0x2,0x3 0514 00e1 | | Load_Encached Boolean_Cache 0515 011c | | Execute Any,Convert_Unchecked 0516 1c01 | | Execute_Immediate Run_Utility,0x1 0517 01cc | | Execute Vector,Catenate 0518 e005 | | Load 0x0,0x5 0519 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 051a e5fd | | Load 0x2,-0x3 051b 8015 | | Call 0x0,0x15 051c 0092 0658 | X| Action Push_String_Extended,0x658 ; ":::::::::::::" 051e e005 | | Load 0x0,0x5 051f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0520 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0521 0000 0000 | | .BLANK 0000[0x7] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b 00db | | Load_Top At_Offset_3 052c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 052d 00db | | Load_Top At_Offset_3 052e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 052f 8003 | | Call 0x0,0x3 0530 e5fe | | Load 0x2,-0x2 0531 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0532 00da | | Load_Top At_Offset_2 0533 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0534 e5fe | | Load 0x2,-0x2 0535 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0536 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0537 0000 | | .XXX[0x1] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053c | < | .CONST 0x053c ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0002 | | .CONST 0x0002 ; Number of locals 053b INIT_0538: 053b 00e1 | | Load_Encached Boolean_Cache 053c BODY_0538: 053c 00db | | Load_Top At_Offset_3 053d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 053e 4607 |F | Jump_Case 0x8 053f 780a |x | Jump 0x54a ; case 0x0 0540 7806 |x | Jump 0x547 ; case 0x1 0541 7844 |xD | Jump 0x586 ; case 0x2 0542 784e |xN | Jump 0x591 ; case 0x3 0543 7858 |xX | Jump 0x59c ; case 0x4 0544 7802 |x | Jump 0x547 ; case 0x5 0545 7801 |x | Jump 0x547 ; case 0x6 0546 7800 |x | Jump 0x547 ; case 0x7 0547 4800 |H | Short_Literal 0x0 0548 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0549 785c |x\ | Jump 0x5a6 054a e5fd | | Load 0x2,-0x3 054b 4603 |F | Jump_Case 0x4 054c 7806 |x | Jump 0x553 ; case 0x0 054d 7812 |x | Jump 0x560 ; case 0x1 054e 781e |x | Jump 0x56d ; case 0x2 054f 7800 |x | Jump 0x550 ; case 0x3 0550 4800 |H | Short_Literal 0x0 0551 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0552 7853 |xS | Jump 0x5a6 0553 e5fe | | Load 0x2,-0x2 0554 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0555 0227 | ' | Execute Access,All_Reference 0556 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0557 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0558 e5ff | | Load 0x2,-0x1 0559 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 055a 0227 | ' | Execute Access,All_Reference 055b 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 055c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 055d 8017 | | Call 0x0,0x17 055e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 055f 7846 |xF | Jump 0x5a6 0560 e5fe | | Load 0x2,-0x2 0561 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0562 0227 | ' | Execute Access,All_Reference 0563 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0564 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0565 e5ff | | Load 0x2,-0x1 0566 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0567 0227 | ' | Execute Access,All_Reference 0568 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0569 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 056a 8017 | | Call 0x0,0x17 056b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 056c 7839 |x9 | Jump 0x5a6 056d e5fe | | Load 0x2,-0x2 056e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 056f 0227 | ' | Execute Access,All_Reference 0570 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0571 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0572 e5ff | | Load 0x2,-0x1 0573 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0574 0227 | ' | Execute Access,All_Reference 0575 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0576 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0577 8017 | | Call 0x0,0x17 0578 e5fe | | Load 0x2,-0x2 0579 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 057a 0227 | ' | Execute Access,All_Reference 057b 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 057c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 057d e5ff | | Load 0x2,-0x1 057e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 057f 0227 | ' | Execute Access,All_Reference 0580 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0581 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0582 8017 | | Call 0x0,0x17 0583 0279 | y | Execute Discrete,And 0584 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0585 7820 |x | Jump 0x5a6 0586 e5fe | | Load 0x2,-0x2 0587 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0588 0227 | ' | Execute Access,All_Reference 0589 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 058a e5ff | | Load 0x2,-0x1 058b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 058c 0227 | ' | Execute Access,All_Reference 058d 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 058e 8017 | | Call 0x0,0x17 058f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0590 7815 |x | Jump 0x5a6 0591 e5fe | | Load 0x2,-0x2 0592 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0593 0227 | ' | Execute Access,All_Reference 0594 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0595 e5ff | | Load 0x2,-0x1 0596 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0597 0227 | ' | Execute Access,All_Reference 0598 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0599 8017 | | Call 0x0,0x17 059a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 059b 780a |x | Jump 0x5a6 059c e5fe | | Load 0x2,-0x2 059d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 059e 0227 | ' | Execute Access,All_Reference 059f 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 05a0 e5ff | | Load 0x2,-0x1 05a1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05a2 0227 | ' | Execute Access,All_Reference 05a3 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 05a4 8017 | | Call 0x0,0x17 05a5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 05a6 00d8 | | Load_Top At_Offset_0 05a7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ac | | .CONST 0x05ac ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0002 | | .CONST 0x0002 ; Number of locals 05ab INIT_05a8: 05ab 00e1 | | Load_Encached Boolean_Cache 05ac BODY_05a8: 05ac 00db | | Load_Top At_Offset_3 05ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05ae 4607 |F | Jump_Case 0x8 05af 7807 |x | Jump 0x5b7 ; case 0x0 05b0 7806 |x | Jump 0x5b7 ; case 0x1 05b1 7805 |x | Jump 0x5b7 ; case 0x2 05b2 7807 |x | Jump 0x5ba ; case 0x3 05b3 7815 |x | Jump 0x5c9 ; case 0x4 05b4 7802 |x | Jump 0x5b7 ; case 0x5 05b5 7801 |x | Jump 0x5b7 ; case 0x6 05b6 7800 |x | Jump 0x5b7 ; case 0x7 05b7 4800 |H | Short_Literal 0x0 05b8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 05b9 781d |x | Jump 0x5d7 05ba e5fe | | Load 0x2,-0x2 05bb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05bc 0227 | ' | Execute Access,All_Reference 05bd 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 05be 0227 | ' | Execute Access,All_Reference 05bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05c0 e5ff | | Load 0x2,-0x1 05c1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05c2 0227 | ' | Execute Access,All_Reference 05c3 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 05c4 0227 | ' | Execute Access,All_Reference 05c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05c6 8011 | | Call 0x0,0x11 05c7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 05c8 780e |x | Jump 0x5d7 05c9 e5fe | | Load 0x2,-0x2 05ca 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05cb 0227 | ' | Execute Access,All_Reference 05cc 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 05cd 0227 | ' | Execute Access,All_Reference 05ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05cf e5ff | | Load 0x2,-0x1 05d0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05d1 0227 | ' | Execute Access,All_Reference 05d2 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 05d3 0227 | ' | Execute Access,All_Reference 05d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d5 8011 | | Call 0x0,0x11 05d6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 05d7 00d8 | | Load_Top At_Offset_0 05d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05d9 0000 0000 | | .BLANK 0000[0x7] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 00db | | Load_Top At_Offset_3 05e4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05e5 0227 | ' | Execute Access,All_Reference 05e6 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 05e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05e8 685d |h] | Jump_Zero 0x646 05e9 0092 0659 | Y| Action Push_String_Extended,0x659 ; "source sens 1 <> null" 05eb e005 | | Load 0x0,0x5 05ec 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05ed 00da | | Load_Top At_Offset_2 05ee e5fe | | Load 0x2,-0x2 05ef 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05f0 0227 | ' | Execute Access,All_Reference 05f1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 05f2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f3 0227 | ' | Execute Access,All_Reference 05f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f5 8011 | | Call 0x0,0x11 05f6 6813 |h | Jump_Zero 0x60a 05f7 4801 |H | Short_Literal 0x1 05f8 a5fb | | Store_Unchecked 0x2,-0x5 05f9 0092 065a | Z| Action Push_String_Extended,0x65a ; "ce sera le sens 1" 05fb e005 | | Load 0x0,0x5 05fc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 05fd 4801 |H | Short_Literal 0x1 05fe a5fc | | Store_Unchecked 0x2,-0x4 05ff e5fd | | Load 0x2,-0x3 0600 e5fe | | Load 0x2,-0x2 0601 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0602 0227 | ' | Execute Access,All_Reference 0603 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0604 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0605 0227 | ' | Execute Access,All_Reference 0606 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0607 8003 | | Call 0x0,0x3 0608 c5fd | | Store 0x2,-0x3 0609 783c |x< | Jump 0x646 060a 00db | | Load_Top At_Offset_3 060b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 060c 0227 | ' | Execute Access,All_Reference 060d 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 060e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 060f 682a |h* | Jump_Zero 0x63a 0610 0092 065b | [| Action Push_String_Extended,0x65b ; "source sens 2 <> null" 0612 e005 | | Load 0x0,0x5 0613 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0614 00da | | Load_Top At_Offset_2 0615 e5fe | | Load 0x2,-0x2 0616 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0617 0227 | ' | Execute Access,All_Reference 0618 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0619 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 061a 0227 | ' | Execute Access,All_Reference 061b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 061c 8011 | | Call 0x0,0x11 061d 6813 |h | Jump_Zero 0x631 061e 4801 |H | Short_Literal 0x1 061f a5fb | | Store_Unchecked 0x2,-0x5 0620 0092 065c | \| Action Push_String_Extended,0x65c ; "ce sera le sens 2" 0622 e005 | | Load 0x0,0x5 0623 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0624 4802 |H | Short_Literal 0x2 0625 a5fc | | Store_Unchecked 0x2,-0x4 0626 e5fd | | Load 0x2,-0x3 0627 e5fe | | Load 0x2,-0x2 0628 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0629 0227 | ' | Execute Access,All_Reference 062a 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 062b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 062c 0227 | ' | Execute Access,All_Reference 062d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 062e 8003 | | Call 0x0,0x3 062f c5fd | | Store 0x2,-0x3 0630 7815 |x | Jump 0x646 0631 4800 |H | Short_Literal 0x0 0632 a5fb | | Store_Unchecked 0x2,-0x5 0633 4800 |H | Short_Literal 0x0 0634 a5fc | | Store_Unchecked 0x2,-0x4 0635 e5fd | | Load 0x2,-0x3 0636 00ea | | Load_Encached Null_String_Cache 0637 8014 | | Call 0x0,0x14 0638 c5fd | | Store 0x2,-0x3 0639 780c |x | Jump 0x646 063a 0092 065d | ]| Action Push_String_Extended,0x65d ; "no solution" 063c e005 | | Load 0x0,0x5 063d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 063e 4800 |H | Short_Literal 0x0 063f a5fb | | Store_Unchecked 0x2,-0x5 0640 4800 |H | Short_Literal 0x0 0641 a5fc | | Store_Unchecked 0x2,-0x4 0642 e5fd | | Load 0x2,-0x3 0643 00ea | | Load_Encached Null_String_Cache 0644 8014 | | Call 0x0,0x14 0645 c5fd | | Store 0x2,-0x3 0646 0092 065e | ^| Action Push_String_Extended,0x65e ; "je quitte consult_sortie avec destination =" 0648 e005 | | Load 0x0,0x5 0649 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 064a e5fd | | Load 0x2,-0x3 064b 8015 | | Call 0x0,0x15 064c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 064d ; -------------------------------------------------------------------------------------- 064d ; STRING TABLE 064d ; -------------------------------------------------------------------------------------- 064d 0026 | & | .STRTAB 0x0026->0x0660 ; " " 064e 0025 | % | .STRTAB 0x0025->0x0660 ; "lieu de depart : " 064f 0034 | 4 | .STRTAB 0x0034->0x0669 ; "destination : " 0650 0040 | @ | .STRTAB 0x0040->0x0670 ; "la communication existe son nom est " 0651 0062 | b | .STRTAB 0x0062->0x0682 ; "source ds sens1" 0652 006f | o | .STRTAB 0x006f->0x0689 ; "source ds sens2" 0653 007c | | | .STRTAB 0x007c->0x0691 ; " found vaut " 0654 0086 | | .STRTAB 0x0086->0x0697 ; "direction : " 0655 0090 | | .STRTAB 0x0090->0x069d ; "j'ai trouve la direction, sa com est : " 0656 00b5 | | .STRTAB 0x00b5->0x06b0 ; "avt consult sortie" 0657 00c5 | | .STRTAB 0x00c5->0x06b9 ; "je quitte direction_belong to lieu avec is Found a" 0658 00f5 | | .STRTAB 0x00f5->0x06d2 ; ":::::::::::::" 0659 0100 | | .STRTAB 0x0100->0x06d9 ; "source sens 1 <> null" 065a 0113 | | .STRTAB 0x0113->0x06e3 ; "ce sera le sens 1" 065b 0122 | " | .STRTAB 0x0122->0x06ec ; "source sens 2 <> null" 065c 0135 | 5 | .STRTAB 0x0135->0x06f6 ; "ce sera le sens 2" 065d 0144 | D | .STRTAB 0x0144->0x06ff ; "no solution" 065e 014d | M | .STRTAB 0x014d->0x0704 ; "je quitte consult_sortie avec destination =" 065f 0176 | v | .STREND 0x0176->0x071a 0660 206c 6965 | lie| .STRTAB_STRINGS 071a 0000 0000 | | .BLANK 0000[0x6] 0720 ; -------------------------------------------------------------------------------------- 0720 ; Debug Table 0720 ; -------------------------------------------------------------------------------------- 0720 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc8f1,0x0000,0x0001,0x0016 0726 000b 077e | ~| .DBG4T 0x000b,0x077e,0x8000,0x0000 072a 002c 0790 | , | .DBG4T 0x002c,0x0790,0x8000,0x0000 072e 005b 07a6 | [ | .DBG4T 0x005b,0x07a6,0x0002,0x0000 0732 0073 07af | s | .DBG4T 0x0073,0x07af,0x0002,0x0000 0736 0093 07b8 | | .DBG4T 0x0093,0x07b8,0x0002,0x0000 073a 00bb 07c2 | | .DBG4T 0x00bb,0x07c2,0x0002,0x4000 073e 011b 07e2 | | .DBG4T 0x011b,0x07e2,0x0002,0x4000 0742 0153 0801 | S | .DBG4T 0x0153,0x0801,0x0002,0x4000 0746 018b 0820 | | .DBG4T 0x018b,0x0820,0x0002,0x4000 074a 01d3 0838 | 8| .DBG4T 0x01d3,0x0838,0x0002,0x0000 074e 01eb 0841 | A| .DBG4T 0x01eb,0x0841,0x0002,0x0000 0752 0203 084a | J| .DBG4T 0x0203,0x084a,0x0002,0x4000 0756 023b 085e | ; ^| .DBG4T 0x023b,0x085e,0x0002,0x4000 075a 0273 0870 | s p| .DBG4T 0x0273,0x0870,0x0002,0x4000 075e 02ab 0882 | | .DBG4T 0x02ab,0x0882,0x0002,0x4000 0762 0323 08a8 | # | .DBG4T 0x0323,0x08a8,0x0001,0x4000 0766 0393 08d2 | | .DBG4T 0x0393,0x08d2,0x0001,0x4000 076a 0483 092c | ,| .DBG4T 0x0483,0x092c,0x0001,0x4000 076e 052b 0970 | + p| .DBG4T 0x052b,0x0970,0x0001,0x0000 0772 053b 0974 | ; t| .DBG4T 0x053b,0x0974,0x0002,0x4000 0776 05ab 098d | | .DBG4T 0x05ab,0x098d,0x0002,0x4000 077a 05e3 099a | | .DBG4T 0x05e3,0x099a,0x0001,0x0000 077e ; -------------------------------------------------------------------------------------- 077e ; Debug chain 077e ; -------------------------------------------------------------------------------------- 077e 0010 0000 | | .DBGLEN 0x0010,0x0000 0780 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029 0790 ; -------------------------------------------------------------------------------------- 0790 ; Debug chain 0790 ; -------------------------------------------------------------------------------------- 0790 0014 0000 | | .DBGLEN 0x0014,0x0000 0792 002c 002e | , .| .DBGLNO 0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052 07a6 ; -------------------------------------------------------------------------------------- 07a6 ; Debug chain 07a6 ; -------------------------------------------------------------------------------------- 07a6 0002 0005 | | .DBGLEN 0x0002,0x0005 07a8 005b 005c | [ \| .DBGLNO 0x005b,0x005c,0x005e,0x0064,0x0069,0x006b,0x006e 07af ; -------------------------------------------------------------------------------------- 07af ; Debug chain 07af ; -------------------------------------------------------------------------------------- 07af 0002 0005 | | .DBGLEN 0x0002,0x0005 07b1 0073 0074 | s t| .DBGLNO 0x0073,0x0074,0x0076,0x007c,0x0081,0x0083,0x0087 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; Debug chain 07b8 ; -------------------------------------------------------------------------------------- 07b8 0002 0006 | | .DBGLEN 0x0002,0x0006 07ba 0093 0094 | | .DBGLNO 0x0093,0x0094,0x0096,0x009c,0x00a1,0x00a7,0x00a9,0x00b0 07c2 ; -------------------------------------------------------------------------------------- 07c2 ; Debug chain 07c2 ; -------------------------------------------------------------------------------------- 07c2 0002 000e | | .DBGLEN 0x0002,0x000e 07c4 00bb 00bc | | .DBGLNO 0x00bb,0x00bc,0x00be,0x00c4,0x00c9,0x00cb,0x00d6,0x00d8,0x00de,0x00e0,0x00e8,0x00f0,0x0100,0x0107,0x010e,0x0115 07d4 0001 0002 | | .XXX[0xe] 07d6 0003 0004 | | 07d8 000d 0005 | | 07da 0009 0006 | | 07dc 0007 0008 | | 07de 000a 000b | | 07e0 000c 000e | | 07e2 ; -------------------------------------------------------------------------------------- 07e2 ; Debug chain 07e2 ; -------------------------------------------------------------------------------------- 07e2 0003 000d | | .DBGLEN 0x0003,0x000d 07e4 011b 011c | | .DBGLNO 0x011b,0x011c,0x0120,0x0122,0x0128,0x012d,0x012f,0x0132,0x0137,0x0139,0x013c,0x013f,0x0143,0x0145,0x014c,0x014e 07f4 0001 0002 | | .XXX[0xd] 07f6 0003 0004 | | 07f8 0005 0006 | | 07fa 0007 0008 | | 07fc 0009 000b | | 07fe 000a 000c | | 0800 000d | | 0801 ; -------------------------------------------------------------------------------------- 0801 ; Debug chain 0801 ; -------------------------------------------------------------------------------------- 0801 0003 000d | | .DBGLEN 0x0003,0x000d 0803 0153 0154 | S T| .DBGLNO 0x0153,0x0154,0x0158,0x015a,0x0160,0x0165,0x0167,0x016a,0x016f,0x0171,0x0174,0x0177,0x017b,0x017d,0x0184,0x0186 0813 0001 0002 | | .XXX[0xd] 0815 0003 0004 | | 0817 0005 0006 | | 0819 0007 0008 | | 081b 0009 000b | | 081d 000a 000c | | 081f 000d | | 0820 ; -------------------------------------------------------------------------------------- 0820 ; Debug chain 0820 ; -------------------------------------------------------------------------------------- 0820 0002 000a | | .DBGLEN 0x0002,0x000a 0822 018b 018c | | .DBGLNO 0x018b,0x018c,0x018e,0x0194,0x0199,0x019b,0x01a7,0x01ac,0x01b1,0x01b6,0x01bd,0x01c3 082e 0001 0002 | | .XXX[0xa] 0830 0003 0004 | | 0832 0009 000a | | 0834 000b 0005 | | 0836 0007 0006 | | 0838 ; -------------------------------------------------------------------------------------- 0838 ; Debug chain 0838 ; -------------------------------------------------------------------------------------- 0838 0002 0005 | | .DBGLEN 0x0002,0x0005 083a 01d3 01d4 | | .DBGLNO 0x01d3,0x01d4,0x01d6,0x01dc,0x01e1,0x01e3,0x01e6 0841 ; -------------------------------------------------------------------------------------- 0841 ; Debug chain 0841 ; -------------------------------------------------------------------------------------- 0841 0002 0005 | | .DBGLEN 0x0002,0x0005 0843 01eb 01ec | | .DBGLNO 0x01eb,0x01ec,0x01ee,0x01f4,0x01f9,0x01fb,0x01fd 084a ; -------------------------------------------------------------------------------------- 084a ; Debug chain 084a ; -------------------------------------------------------------------------------------- 084a 0002 0008 | | .DBGLEN 0x0002,0x0008 084c 0203 0204 | | .DBGLNO 0x0203,0x0204,0x0206,0x020c,0x0211,0x0213,0x021f,0x0227,0x022a,0x0232 0856 0001 0002 | | .XXX[0x8] 0858 0003 0004 | | 085a 0006 0007 | | 085c 0005 0009 | | 085e ; -------------------------------------------------------------------------------------- 085e ; Debug chain 085e ; -------------------------------------------------------------------------------------- 085e 0002 0007 | | .DBGLEN 0x0002,0x0007 0860 023b 023c | ; <| .DBGLNO 0x023b,0x023c,0x023e,0x0244,0x0249,0x024b,0x0252,0x0259,0x0261 0869 0001 0002 | | .XXX[0x7] 086b 0003 0004 | | 086d 0005 0007 | | 086f 0006 | | 0870 ; -------------------------------------------------------------------------------------- 0870 ; Debug chain 0870 ; -------------------------------------------------------------------------------------- 0870 0002 0007 | | .DBGLEN 0x0002,0x0007 0872 0273 0274 | s t| .DBGLNO 0x0273,0x0274,0x0276,0x027c,0x0281,0x0283,0x028a,0x0291,0x0299 087b 0001 0002 | | .XXX[0x7] 087d 0003 0004 | | 087f 0005 0007 | | 0881 0006 | | 0882 ; -------------------------------------------------------------------------------------- 0882 ; Debug chain 0882 ; -------------------------------------------------------------------------------------- 0882 0002 0011 | | .DBGLEN 0x0002,0x0011 0884 02ab 02ae | | .DBGLNO 0x02ab,0x02ae,0x02b2,0x02b4,0x02ba,0x02c0,0x02c5,0x02ca,0x02ce,0x02d4,0x02e0,0x02e4,0x02ef,0x02f5,0x02fa,0x02fe,0x0309,0x030d,0x0317 0897 0001 0002 | | .XXX[0x11] 0899 0003 0004 | | 089b 0005 0006 | | 089d 0007 0008 | | 089f 000f 0010 | | 08a1 000b 000c | | 08a3 000d 000e | | 08a5 0009 000a | | 08a7 0012 | | 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; Debug chain 08a8 ; -------------------------------------------------------------------------------------- 08a8 0004 0012 | | .DBGLEN 0x0004,0x0012 08aa 0323 0325 | # %| .DBGLNO 0x0323,0x0325,0x0329,0x032d,0x032f,0x0331,0x0333,0x0339,0x033f,0x0344,0x0349,0x0355,0x035f,0x0363,0x0366,0x036d,0x036f,0x0378,0x037c,0x0385,0x0387,0x038b 08c0 0001 0002 | | .XXX[0x12] 08c2 0003 0004 | | 08c4 0005 0006 | | 08c6 0007 0008 | | 08c8 000a 000b | | 08ca 000c 000d | | 08cc 000e 000f | | 08ce 0009 0010 | | 08d0 0011 0012 | | 08d2 ; -------------------------------------------------------------------------------------- 08d2 ; Debug chain 08d2 ; -------------------------------------------------------------------------------------- 08d2 0004 002a | *| .DBGLEN 0x0004,0x002a 08d4 0393 0395 | | .DBGLNO 0x0393,0x0395,0x0398,0x039c,0x039e,0x03a2,0x03a4,0x03a8,0x03aa,0x03ac,0x03b2,0x03b7,0x03bd,0x03c7,0x03cc,0x03cf,0x03d5,0x03da,0x03e0,0x03e4,0x03e7,0x03ed,0x03f1,0x03f9,0x0403,0x040d,0x040f,0x0412,0x0418,0x041c,0x0424,0x042e,0x0438,0x043a,0x043d,0x0443,0x044d,0x0457,0x0459,0x045b,0x045e,0x0468,0x0470,0x0472,0x0474,0x0478 0902 0001 0002 | | .XXX[0x2a] 0904 0003 0004 | | 0906 0005 0006 | | 0908 0007 0008 | | 090a 0009 000b | | 090c 000c 000d | | 090e 000e 000f | | 0910 0010 0011 | | 0912 0012 0013 | | 0914 0014 0015 | | 0916 0016 0017 | | 0918 0018 0019 | | 091a 001a 001b | | 091c 001c 001d | | 091e 001e 001f | | 0920 0020 0021 | !| 0922 0022 0023 | " #| 0924 0024 0025 | $ %| 0926 0026 000a | & | 0928 0027 0028 | ' (| 092a 0029 002a | ) *| 092c ; -------------------------------------------------------------------------------------- 092c ; Debug chain 092c ; -------------------------------------------------------------------------------------- 092c 0004 001f | | .DBGLEN 0x0004,0x001f 092e 0483 0485 | | .DBGLNO 0x0483,0x0485,0x0488,0x048c,0x048e,0x0492,0x0494,0x0498,0x049a,0x049c,0x04a2,0x04a7,0x04ad,0x04b7,0x04bc,0x04bf,0x04c4,0x04c9,0x04cd,0x04d5,0x04db,0x04df,0x04e4,0x04ed,0x04f2,0x04f4,0x04f8,0x0502,0x0504,0x0509,0x050b,0x050f,0x0511,0x051a,0x051c 0951 0001 0002 | | .XXX[0x1f] 0953 0003 0004 | | 0955 0005 0006 | | 0957 0007 0008 | | 0959 0009 000b | | 095b 000c 000d | | 095d 000e 000f | | 095f 000a 0010 | | 0961 0011 0012 | | 0963 0013 0014 | | 0965 0015 0016 | | 0967 0017 0018 | | 0969 0019 001a | | 096b 001b 001c | | 096d 001d 001e | | 096f 001f | | 0970 ; -------------------------------------------------------------------------------------- 0970 ; Debug chain 0970 ; -------------------------------------------------------------------------------------- 0970 0000 0002 | | .DBGLEN 0x0000,0x0002 0972 052b 0532 | + 2| .DBGLNO 0x052b,0x0532 0974 ; -------------------------------------------------------------------------------------- 0974 ; Debug chain 0974 ; -------------------------------------------------------------------------------------- 0974 0001 000b | | .DBGLEN 0x0001,0x000b 0976 053b 053c | ; <| .DBGLNO 0x053b,0x053c,0x0547,0x054a,0x0550,0x0553,0x0560,0x056d,0x0586,0x0591,0x059c,0x05a6 0982 0001 000a | | .XXX[0xb] 0984 0002 0006 | | 0986 0003 0004 | | 0988 0005 0007 | | 098a 0008 0009 | | 098c 000b | | 098d ; -------------------------------------------------------------------------------------- 098d ; Debug chain 098d ; -------------------------------------------------------------------------------------- 098d 0001 0005 | | .DBGLEN 0x0001,0x0005 098f 05ab 05ac | | .DBGLNO 0x05ab,0x05ac,0x05b7,0x05ba,0x05c9,0x05d7 0995 0001 0004 | | .XXX[0x5] 0997 0002 0003 | | 0999 0005 | | 099a ; -------------------------------------------------------------------------------------- 099a ; Debug chain 099a ; -------------------------------------------------------------------------------------- 099a 0000 0017 | | .DBGLEN 0x0000,0x0017 099c 05e3 05e9 | | .DBGLNO 0x05e3,0x05e9,0x05ed,0x05f7,0x05f9,0x05fd,0x05ff,0x060a,0x0610,0x0614,0x061e,0x0620,0x0624,0x0626,0x0631,0x0633,0x0635,0x063a,0x063e,0x0640,0x0642,0x0646,0x064a 09b3 0000 0000 | | .BLANK 0000[0x4d]