|
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]