|
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_01907d
└─⟦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 07d0 | | .CONST 0x07d0 ; 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 008f | | .CONST 0x008f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4819 |H | Short_Literal 0x19
000d 029f 009b | | Declare_Subprogram INIT_0098,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0012 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0014 00da | | Load_Top At_Offset_2
0015 e002 | | Load 0x0,0x2
0016 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 4802 |H | Short_Literal 0x2
0019 032e | . | Declare_Type Record,Defined,Visible
001a 4801 |H | Short_Literal 0x1
001b 4805 |H | Short_Literal 0x5
001c 00da | | Load_Top At_Offset_2
001d 02a0 | | Declare_Subprogram Null_Subprogram
001e 4801 |H | Short_Literal 0x1
001f 035e | ^ | Declare_Type Array,Defined,Visible
0020 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0022 4800 |H | Short_Literal 0x0
0023 4803 |H | Short_Literal 0x3
0024 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0026 03fe | | Declare_Type Discrete,Defined,Visible
0027 4800 |H | Short_Literal 0x0
0028 4802 |H | Short_Literal 0x2
0029 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
002b 03fe | | Declare_Type Discrete,Defined,Visible
002c 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
002e 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0030 00db | | Load_Top At_Offset_3
0031 4802 |H | Short_Literal 0x2
0032 e211 | | Load 0x1,0x11
0033 00e3 | | Load_Encached Natural_Cache
0034 4804 |H | Short_Literal 0x4
0035 e211 | | Load 0x1,0x11
0036 00d8 | | Load_Top At_Offset_0
0037 00e4 | | Load_Encached Positive_Cache
0038 00e4 | | Load_Encached Positive_Cache
0039 4803 |H | Short_Literal 0x3
003a e002 | | Load 0x0,0x2
003b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
003c 00e3 | | Load_Encached Natural_Cache
003d e214 | | Load 0x1,0x14
003e 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
0040 4809 |H | Short_Literal 0x9
0041 4800 |H | Short_Literal 0x0
0042 4803 |H | Short_Literal 0x3
0043 4800 |H | Short_Literal 0x0
0044 4801 |H | Short_Literal 0x1
0045 031e | | Declare_Type Variant_Record,Defined,Visible
0046 4800 |H | Short_Literal 0x0
0047 4801 |H | Short_Literal 0x1
0048 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
004a 03fe | | Declare_Type Discrete,Defined,Visible
004b 4800 |H | Short_Literal 0x0
004c 4802 |H | Short_Literal 0x2
004d 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
004f 03fe | | Declare_Type Discrete,Defined,Visible
0050 00d9 | | Load_Top At_Offset_1
0051 4802 |H | Short_Literal 0x2
0052 4800 |H | Short_Literal 0x0
0053 4801 |H | Short_Literal 0x1
0054 4806 |H | Short_Literal 0x6
0055 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0056 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call
0058 00d9 | | Load_Top At_Offset_1
0059 012a | * | Execute Any,Change_Utility
005a 0007 | | Action Break_Optional
005b 00d8 | | Load_Top At_Offset_0
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 4818 |H | Short_Literal 0x18
005e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
005f 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0061 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0063 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0065 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0067 00e1 | | Load_Encached Boolean_Cache
0068 4803 |H | Short_Literal 0x3
0069 e21b | | Load 0x1,0x1b
006a 00d8 | | Load_Top At_Offset_0
006b e219 | | Load 0x1,0x19
006c 4801 |H | Short_Literal 0x1
006d e217 | | Load 0x1,0x17
006e 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call
0070 4804 |H | Short_Literal 0x4
0071 4801 |H | Short_Literal 0x1
0072 e21a | | Load 0x1,0x1a
0073 0307 | | Complete_Type Variant_Record,By_Defining
0074 e21b | | Load 0x1,0x1b
0075 03c4 | | Complete_Type Access,By_Component_Completion
0076 00bf | | Action Accept_Activation
0077 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0078 00c7 | | Action Elaborate_Subprogram
0079 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
007b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007c 00c7 | | Action Elaborate_Subprogram
007d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
007e 00c7 | | Action Elaborate_Subprogram
007f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0080 00c7 | | Action Elaborate_Subprogram
0081 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0082 00c7 | | Action Elaborate_Subprogram
0083 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0085 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
0087 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0088 00c7 | | Action Elaborate_Subprogram
0089 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
008a 00c7 | | Action Elaborate_Subprogram
008b 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
008c 00c7 | | Action Elaborate_Subprogram
008d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
008e 00c7 | | Action Elaborate_Subprogram
008f BODY_0008:
008f 00bc | | Action Signal_Activated
0090 00bb | | Action Signal_Completion
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4607 |F | Jump_Case 0x8
009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
009d 7807 |x | Jump 0xa5 ; case 0x1
009e 780a |x | Jump 0xa9 ; case 0x2
009f 780e |x | Jump 0xae ; case 0x3
00a0 7811 |x | Jump 0xb2 ; case 0x4
00a1 7812 |x | Jump 0xb4 ; case 0x5
00a2 7813 |x | Jump 0xb6 ; case 0x6
00a3 7816 |x | Jump 0xba ; case 0x7
00a4 4302 |C | .XXX[0x1]
00a5 00da | | Load_Top At_Offset_2
00a6 0091 06ab | | Action Push_String_Extended_Indexed,0x6ab ; "COMMUNICATION"
00a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a9 00db | | Load_Top At_Offset_3
00aa 00db | | Load_Top At_Offset_3
00ab 00e0 | | Load_Encached Standard_Cache
00ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae 00da | | Load_Top At_Offset_2
00af 00e0 | | Load_Encached Standard_Cache
00b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b2 00db | | Load_Top At_Offset_3
00b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b4 00db | | Load_Top At_Offset_3
00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b6 e20d | | Load 0x1,0xd
00b7 00dc | | Load_Top At_Offset_4
00b8 0267 | g | Execute Discrete,Predecessor
00b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ba e20d | | Load 0x1,0xd
00bb 00dc | | Load_Top At_Offset_4
00bc 0268 | h | Execute Discrete,Successor
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5 | | .CONST 0x00c5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e20d | | Load 0x1,0xd
00c4 0007 | | Action Break_Optional
00c5 BODY_00c0:
00c5 00db | | Load_Top At_Offset_3
00c6 8003 | | Call 0x0,0x3
00c7 6809 |h | Jump_Zero 0xd1
00c8 00db | | Load_Top At_Offset_3
00c9 8004 | | Call 0x0,0x4
00ca 00d8 | | Load_Top At_Offset_0
00cb e20d | | Load 0x1,0xd
00cc 0260 | ` | Execute Discrete,In_Type
00cd 7001 |p | Jump_Nonzero 0xcf
00ce 0801 | | Execute_Immediate Raise,0x1
00cf 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00d0 7803 |x | Jump 0xd4
00d1 00db | | Load_Top At_Offset_3
00d2 8220 | | Call 0x1,0x20
00d3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00d4 00d8 | | Load_Top At_Offset_0
00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 4619 |F | Jump_Case 0x1a
00dd 7848 |xH | Jump 0x126 ; case 0x0
00de 788e |x | Jump 0x16d ; case 0x1
00df 7838 |x8 | Jump 0x118 ; case 0x2
00e0 7818 |x | Jump 0xf9 ; case 0x3
00e1 7828 |x( | Jump 0x10a ; case 0x4
00e2 78a8 |x | Jump 0x18b ; case 0x5
00e3 7881 |x | Jump 0x165 ; case 0x6
00e4 7812 |x | Jump 0xf7 ; case 0x7
00e5 7811 |x | Jump 0xf7 ; case 0x8
00e6 7874 |xt | Jump 0x15b ; case 0x9
00e7 786e |xn | Jump 0x156 ; case 0xa
00e8 7860 |x` | Jump 0x149 ; case 0xb
00e9 786c |xl | Jump 0x156 ; case 0xc
00ea 780c |x | Jump 0xf7 ; case 0xd
00eb 7874 |xt | Jump 0x160 ; case 0xe
00ec 7849 |xI | Jump 0x136 ; case 0xf
00ed 7809 |x | Jump 0xf7 ; case 0x10
00ee 7842 |xB | Jump 0x131 ; case 0x11
00ef 7851 |xQ | Jump 0x141 ; case 0x12
00f0 785d |x] | Jump 0x14e ; case 0x13
00f1 7805 |x | Jump 0xf7 ; case 0x14
00f2 7885 |x | Jump 0x178 ; case 0x15
00f3 7884 |x | Jump 0x178 ; case 0x16
00f4 7888 |x | Jump 0x17d ; case 0x17
00f5 7801 |x | Jump 0xf7 ; case 0x18
00f6 7800 |x | Jump 0xf7 ; case 0x19
00f7 4800 |H | Short_Literal 0x0
00f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f9 00db | | Load_Top At_Offset_3
00fa 0f0d | | Execute_Immediate Equal,0xd
00fb e5fe | | Load 0x2,-0x2
00fc 0f0c | | Execute_Immediate Equal,0xc
00fd 0278 | x | Execute Discrete,Or
00fe e5fe | | Load 0x2,-0x2
00ff 0f09 | | Execute_Immediate Equal,0x9
0100 0278 | x | Execute Discrete,Or
0101 e5fe | | Load 0x2,-0x2
0102 0f0b | | Execute_Immediate Equal,0xb
0103 0278 | x | Execute Discrete,Or
0104 e5fe | | Load 0x2,-0x2
0105 0f06 | | Execute_Immediate Equal,0x6
0106 0278 | x | Execute Discrete,Or
0107 6897 |h | Jump_Zero 0x19f
0108 4801 |H | Short_Literal 0x1
0109 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010a 00db | | Load_Top At_Offset_3
010b 0f0d | | Execute_Immediate Equal,0xd
010c e5fe | | Load 0x2,-0x2
010d 0f0a | | Execute_Immediate Equal,0xa
010e 0278 | x | Execute Discrete,Or
010f e5fe | | Load 0x2,-0x2
0110 0f09 | | Execute_Immediate Equal,0x9
0111 0278 | x | Execute Discrete,Or
0112 e5fe | | Load 0x2,-0x2
0113 0f0b | | Execute_Immediate Equal,0xb
0114 0278 | x | Execute Discrete,Or
0115 6889 |h | Jump_Zero 0x19f
0116 4801 |H | Short_Literal 0x1
0117 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0118 00db | | Load_Top At_Offset_3
0119 0f13 | | Execute_Immediate Equal,0x13
011a e5fe | | Load 0x2,-0x2
011b 0f09 | | Execute_Immediate Equal,0x9
011c 0278 | x | Execute Discrete,Or
011d e5fe | | Load 0x2,-0x2
011e 0f17 | | Execute_Immediate Equal,0x17
011f 0278 | x | Execute Discrete,Or
0120 e5fe | | Load 0x2,-0x2
0121 0f0e | | Execute_Immediate Equal,0xe
0122 0278 | x | Execute Discrete,Or
0123 687b |h{ | Jump_Zero 0x19f
0124 4801 |H | Short_Literal 0x1
0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0126 00db | | Load_Top At_Offset_3
0127 0f11 | | Execute_Immediate Equal,0x11
0128 e5fe | | Load 0x2,-0x2
0129 0f17 | | Execute_Immediate Equal,0x17
012a 0278 | x | Execute Discrete,Or
012b e5fe | | Load 0x2,-0x2
012c 0f09 | | Execute_Immediate Equal,0x9
012d 0278 | x | Execute Discrete,Or
012e 6870 |hp | Jump_Zero 0x19f
012f 4801 |H | Short_Literal 0x1
0130 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0131 00db | | Load_Top At_Offset_3
0132 0f12 | | Execute_Immediate Equal,0x12
0133 686b |hk | Jump_Zero 0x19f
0134 4801 |H | Short_Literal 0x1
0135 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0136 00db | | Load_Top At_Offset_3
0137 0f02 | | Execute_Immediate Equal,0x2
0138 e5fe | | Load 0x2,-0x2
0139 0f14 | | Execute_Immediate Equal,0x14
013a 0278 | x | Execute Discrete,Or
013b e5fe | | Load 0x2,-0x2
013c 0f10 | | Execute_Immediate Equal,0x10
013d 0278 | x | Execute Discrete,Or
013e 6860 |h` | Jump_Zero 0x19f
013f 4801 |H | Short_Literal 0x1
0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0141 00db | | Load_Top At_Offset_3
0142 0f02 | | Execute_Immediate Equal,0x2
0143 e5fe | | Load 0x2,-0x2
0144 0f08 | | Execute_Immediate Equal,0x8
0145 0278 | x | Execute Discrete,Or
0146 6858 |hX | Jump_Zero 0x19f
0147 4801 |H | Short_Literal 0x1
0148 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0149 00db | | Load_Top At_Offset_3
014a 0f02 | | Execute_Immediate Equal,0x2
014b 6853 |hS | Jump_Zero 0x19f
014c 4801 |H | Short_Literal 0x1
014d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014e 00db | | Load_Top At_Offset_3
014f 0f08 | | Execute_Immediate Equal,0x8
0150 e5fe | | Load 0x2,-0x2
0151 0f02 | | Execute_Immediate Equal,0x2
0152 0278 | x | Execute Discrete,Or
0153 684b |hK | Jump_Zero 0x19f
0154 4801 |H | Short_Literal 0x1
0155 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0156 00db | | Load_Top At_Offset_3
0157 0f03 | | Execute_Immediate Equal,0x3
0158 6846 |hF | Jump_Zero 0x19f
0159 4801 |H | Short_Literal 0x1
015a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015b 00db | | Load_Top At_Offset_3
015c 0f14 | | Execute_Immediate Equal,0x14
015d 6841 |hA | Jump_Zero 0x19f
015e 4801 |H | Short_Literal 0x1
015f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0160 00db | | Load_Top At_Offset_3
0161 0f0f | | Execute_Immediate Equal,0xf
0162 683c |h< | Jump_Zero 0x19f
0163 4801 |H | Short_Literal 0x1
0164 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0165 00db | | Load_Top At_Offset_3
0166 0f03 | | Execute_Immediate Equal,0x3
0167 e5fe | | Load 0x2,-0x2
0168 0f04 | | Execute_Immediate Equal,0x4
0169 0278 | x | Execute Discrete,Or
016a 6834 |h4 | Jump_Zero 0x19f
016b 4801 |H | Short_Literal 0x1
016c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016d 00db | | Load_Top At_Offset_3
016e 0f15 | | Execute_Immediate Equal,0x15
016f e5fe | | Load 0x2,-0x2
0170 0f16 | | Execute_Immediate Equal,0x16
0171 0278 | x | Execute Discrete,Or
0172 e5fe | | Load 0x2,-0x2
0173 0f17 | | Execute_Immediate Equal,0x17
0174 0278 | x | Execute Discrete,Or
0175 6829 |h) | Jump_Zero 0x19f
0176 4801 |H | Short_Literal 0x1
0177 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0178 00db | | Load_Top At_Offset_3
0179 0f18 | | Execute_Immediate Equal,0x18
017a 6824 |h$ | Jump_Zero 0x19f
017b 4801 |H | Short_Literal 0x1
017c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017d 00db | | Load_Top At_Offset_3
017e 0f18 | | Execute_Immediate Equal,0x18
017f e5fe | | Load 0x2,-0x2
0180 0f02 | | Execute_Immediate Equal,0x2
0181 0278 | x | Execute Discrete,Or
0182 e5fe | | Load 0x2,-0x2
0183 0f04 | | Execute_Immediate Equal,0x4
0184 0278 | x | Execute Discrete,Or
0185 e5fe | | Load 0x2,-0x2
0186 0f03 | | Execute_Immediate Equal,0x3
0187 0278 | x | Execute Discrete,Or
0188 6816 |h | Jump_Zero 0x19f
0189 4801 |H | Short_Literal 0x1
018a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018b 00db | | Load_Top At_Offset_3
018c 0f00 | | Execute_Immediate Equal,0x0
018d e5fe | | Load 0x2,-0x2
018e 0f02 | | Execute_Immediate Equal,0x2
018f 0278 | x | Execute Discrete,Or
0190 e5fe | | Load 0x2,-0x2
0191 0f04 | | Execute_Immediate Equal,0x4
0192 0278 | x | Execute Discrete,Or
0193 e5fe | | Load 0x2,-0x2
0194 0f03 | | Execute_Immediate Equal,0x3
0195 0278 | x | Execute Discrete,Or
0196 e5fe | | Load 0x2,-0x2
0197 0f14 | | Execute_Immediate Equal,0x14
0198 0278 | x | Execute Discrete,Or
0199 e5fe | | Load 0x2,-0x2
019a 0f10 | | Execute_Immediate Equal,0x10
019b 0278 | x | Execute Discrete,Or
019c 6802 |h | Jump_Zero 0x19f
019d 4801 |H | Short_Literal 0x1
019e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019f 4800 |H | Short_Literal 0x0
01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00cf | | Action Mark_Auxiliary
01ac e5fe | | Load 0x2,-0x2
01ad 01d9 | | Execute Vector,Reverse_Bounds
01ae 0007 | | Action Break_Optional
01af 00d8 | | Load_Top At_Offset_0
01b0 e5fe | | Load 0x2,-0x2
01b1 01d5 | | Execute Vector,Field_Reference
01b2 00d8 | | Load_Top At_Offset_0
01b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b4 00da | | Load_Top At_Offset_2
01b5 e5ff | | Load 0x2,-0x1
01b6 01d5 | | Execute Vector,Field_Reference
01b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b8 8005 | | Call 0x0,0x5
01b9 00d9 | | Load_Top At_Offset_1
01ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01bb 00d1 | | Pop_Control Pop_Count_1
01bc 00d8 | | Load_Top At_Offset_0
01bd e5ff | | Load 0x2,-0x1
01be 01d5 | | Execute Vector,Field_Reference
01bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c0 00d9 | | Load_Top At_Offset_1
01c1 e5fe | | Load 0x2,-0x2
01c2 01d5 | | Execute Vector,Field_Reference
01c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c4 00c8 | | Action Pop_Auxiliary_Range
01c5 3fe9 |? | Loop_Increasing 0x1af
01c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4607 |F | Jump_Case 0x8
01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01cd 7807 |x | Jump 0x1d5 ; case 0x1
01ce 780a |x | Jump 0x1d9 ; case 0x2
01cf 780e |x | Jump 0x1de ; case 0x3
01d0 7811 |x | Jump 0x1e2 ; case 0x4
01d1 7812 |x | Jump 0x1e4 ; case 0x5
01d2 7813 |x | Jump 0x1e6 ; case 0x6
01d3 7816 |x | Jump 0x1ea ; case 0x7
01d4 4302 |C | .XXX[0x1]
01d5 00da | | Load_Top At_Offset_2
01d6 0091 06c5 | | Action Push_String_Extended_Indexed,0x6c5 ; "TYPE_ACTION"
01d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01d9 00db | | Load_Top At_Offset_3
01da 00db | | Load_Top At_Offset_3
01db 00e0 | | Load_Encached Standard_Cache
01dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01de 00da | | Load_Top At_Offset_2
01df 00e0 | | Load_Encached Standard_Cache
01e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e2 00db | | Load_Top At_Offset_3
01e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e4 00db | | Load_Top At_Offset_3
01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e6 e213 | | Load 0x1,0x13
01e7 00dc | | Load_Top At_Offset_4
01e8 0267 | g | Execute Discrete,Predecessor
01e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ea e213 | | Load 0x1,0x13
01eb 00dc | | Load_Top At_Offset_4
01ec 0268 | h | Execute Discrete,Successor
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4607 |F | Jump_Case 0x8
01f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01f5 7807 |x | Jump 0x1fd ; case 0x1
01f6 780a |x | Jump 0x201 ; case 0x2
01f7 780e |x | Jump 0x206 ; case 0x3
01f8 7811 |x | Jump 0x20a ; case 0x4
01f9 7812 |x | Jump 0x20c ; case 0x5
01fa 7813 |x | Jump 0x20e ; case 0x6
01fb 7816 |x | Jump 0x212 ; case 0x7
01fc 4302 |C | .XXX[0x1]
01fd 00da | | Load_Top At_Offset_2
01fe 0091 06c9 | | Action Push_String_Extended_Indexed,0x6c9 ; "GREATER"
0200 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0201 00db | | Load_Top At_Offset_3
0202 00db | | Load_Top At_Offset_3
0203 00e0 | | Load_Encached Standard_Cache
0204 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0205 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0206 00da | | Load_Top At_Offset_2
0207 00e0 | | Load_Encached Standard_Cache
0208 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0209 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
020a 00db | | Load_Top At_Offset_3
020b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020c 00db | | Load_Top At_Offset_3
020d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020e e214 | | Load 0x1,0x14
020f 00dc | | Load_Top At_Offset_4
0210 0267 | g | Execute Discrete,Predecessor
0211 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0212 e214 | | Load 0x1,0x14
0213 00dc | | Load_Top At_Offset_4
0214 0268 | h | Execute Discrete,Successor
0215 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 0092 06d1 | | Action Push_String_Extended,0x6d1 ; ">"
021d e002 | | Load 0x0,0x2
021e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
021f 00db | | Load_Top At_Offset_3
0220 8006 | | Call 0x0,0x6
0221 0092 06d2 | | Action Push_String_Extended,0x6d2 ; "<"
0223 e002 | | Load 0x0,0x2
0224 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0225 e5ff | | Load 0x2,-0x1
0226 8006 | | Call 0x0,0x6
0227 0278 | x | Execute Discrete,Or
0228 0092 06d3 | | Action Push_String_Extended,0x6d3 ; "="
022a e002 | | Load 0x0,0x2
022b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
022c e5ff | | Load 0x2,-0x1
022d 8006 | | Call 0x0,0x6
022e 0278 | x | Execute Discrete,Or
022f 6802 |h | Jump_Zero 0x232
0230 4801 |H | Short_Literal 0x1
0231 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0232 4800 |H | Short_Literal 0x0
0233 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 0092 06d1 | | Action Push_String_Extended,0x6d1 ; ">"
023d e002 | | Load 0x0,0x2
023e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023f 00db | | Load_Top At_Offset_3
0240 8006 | | Call 0x0,0x6
0241 6802 |h | Jump_Zero 0x244
0242 4800 |H | Short_Literal 0x0
0243 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0244 0092 06d2 | | Action Push_String_Extended,0x6d2 ; "<"
0246 e002 | | Load 0x0,0x2
0247 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0248 00db | | Load_Top At_Offset_3
0249 8006 | | Call 0x0,0x6
024a 6802 |h | Jump_Zero 0x24d
024b 4801 |H | Short_Literal 0x1
024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024d 4802 |H | Short_Literal 0x2
024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 4607 |F | Jump_Case 0x8
0254 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0255 7807 |x | Jump 0x25d ; case 0x1
0256 780a |x | Jump 0x261 ; case 0x2
0257 780e |x | Jump 0x266 ; case 0x3
0258 7811 |x | Jump 0x26a ; case 0x4
0259 7812 |x | Jump 0x26c ; case 0x5
025a 7813 |x | Jump 0x26e ; case 0x6
025b 7816 |x | Jump 0x272 ; case 0x7
025c 4302 |C | .XXX[0x1]
025d 00da | | Load_Top At_Offset_2
025e 0091 06cc | | Action Push_String_Extended_Indexed,0x6cc ; "TYPE_LEAF"
0260 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0261 00db | | Load_Top At_Offset_3
0262 00db | | Load_Top At_Offset_3
0263 00e0 | | Load_Encached Standard_Cache
0264 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0265 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0266 00da | | Load_Top At_Offset_2
0267 00e0 | | Load_Encached Standard_Cache
0268 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0269 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
026a 00db | | Load_Top At_Offset_3
026b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026c 00db | | Load_Top At_Offset_3
026d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026e e218 | | Load 0x1,0x18
026f 00dc | | Load_Top At_Offset_4
0270 0267 | g | Execute Discrete,Predecessor
0271 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0272 e218 | | Load 0x1,0x18
0273 00dc | | Load_Top At_Offset_4
0274 0268 | h | Execute Discrete,Successor
0275 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4607 |F | Jump_Case 0x8
027c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
027d 7807 |x | Jump 0x285 ; case 0x1
027e 780a |x | Jump 0x289 ; case 0x2
027f 780e |x | Jump 0x28e ; case 0x3
0280 7811 |x | Jump 0x292 ; case 0x4
0281 7812 |x | Jump 0x294 ; case 0x5
0282 7813 |x | Jump 0x296 ; case 0x6
0283 7816 |x | Jump 0x29a ; case 0x7
0284 4302 |C | .XXX[0x1]
0285 00da | | Load_Top At_Offset_2
0286 0091 06ce | | Action Push_String_Extended_Indexed,0x6ce ; "ET"
0288 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0289 00db | | Load_Top At_Offset_3
028a 00db | | Load_Top At_Offset_3
028b 00e0 | | Load_Encached Standard_Cache
028c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
028d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028e 00da | | Load_Top At_Offset_2
028f 00e0 | | Load_Encached Standard_Cache
0290 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0291 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0292 00db | | Load_Top At_Offset_3
0293 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0294 00db | | Load_Top At_Offset_3
0295 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0296 e219 | | Load 0x1,0x19
0297 00dc | | Load_Top At_Offset_4
0298 0267 | g | Execute Discrete,Predecessor
0299 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
029a e219 | | Load 0x1,0x19
029b 00dc | | Load_Top At_Offset_4
029c 0268 | h | Execute Discrete,Successor
029d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 8222 | " | Call 0x1,0x22
02a5 00da | | Load_Top At_Offset_2
02a6 0227 | ' | Execute Access,All_Reference
02a7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5 | | .CONST 0x02b5 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 e21b | | Load 0x1,0x1b
02b4 0007 | | Action Break_Optional
02b5 BODY_02b0:
02b5 4800 |H | Short_Literal 0x0
02b6 4802 |H | Short_Literal 0x2
02b7 e21b | | Load 0x1,0x1b
02b8 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
02b9 00d8 | | Load_Top At_Offset_0
02ba 0227 | ' | Execute Access,All_Reference
02bb 1c00 | | Execute_Immediate Run_Utility,0x0
02bc 0039 | 9 | Store_Top Access,At_Offset_1
02bd 00db | | Load_Top At_Offset_3
02be 00d9 | | Load_Top At_Offset_1
02bf 0227 | ' | Execute Access,All_Reference
02c0 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02c1 00d8 | | Load_Top At_Offset_0
02c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c3 0000 0000 | | .BLANK 0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd | | .CONST 0x02cd ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb e21b | | Load 0x1,0x1b
02cc 0007 | | Action Break_Optional
02cd BODY_02c8:
02cd 4801 |H | Short_Literal 0x1
02ce 4801 |H | Short_Literal 0x1
02cf e21b | | Load 0x1,0x1b
02d0 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
02d1 00d8 | | Load_Top At_Offset_0
02d2 0227 | ' | Execute Access,All_Reference
02d3 1c00 | | Execute_Immediate Run_Utility,0x0
02d4 0039 | 9 | Store_Top Access,At_Offset_1
02d5 00db | | Load_Top At_Offset_3
02d6 00d9 | | Load_Top At_Offset_1
02d7 0227 | ' | Execute Access,All_Reference
02d8 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02d9 e5fe | | Load 0x2,-0x2
02da 00d9 | | Load_Top At_Offset_1
02db 0227 | ' | Execute Access,All_Reference
02dc 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02dd e5fd | | Load 0x2,-0x3
02de 00d9 | | Load_Top At_Offset_1
02df 0227 | ' | Execute Access,All_Reference
02e0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02e1 00d8 | | Load_Top At_Offset_0
02e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02e3 0000 0000 | | .BLANK 0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed | | .CONST 0x02ed ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb e21b | | Load 0x1,0x1b
02ec 0007 | | Action Break_Optional
02ed BODY_02e8:
02ed 4801 |H | Short_Literal 0x1
02ee 4801 |H | Short_Literal 0x1
02ef e21b | | Load 0x1,0x1b
02f0 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
02f1 00d8 | | Load_Top At_Offset_0
02f2 0227 | ' | Execute Access,All_Reference
02f3 1c00 | | Execute_Immediate Run_Utility,0x0
02f4 0039 | 9 | Store_Top Access,At_Offset_1
02f5 00db | | Load_Top At_Offset_3
02f6 00d9 | | Load_Top At_Offset_1
02f7 0227 | ' | Execute Access,All_Reference
02f8 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02f9 e5fe | | Load 0x2,-0x2
02fa 00d9 | | Load_Top At_Offset_1
02fb 0227 | ' | Execute Access,All_Reference
02fc 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02fd e21b | | Load 0x1,0x1b
02fe 00d9 | | Load_Top At_Offset_1
02ff 0227 | ' | Execute Access,All_Reference
0300 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0301 00d8 | | Load_Top At_Offset_0
0302 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0303 0000 0000 | | .BLANK 0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d | | .CONST 0x030d ; Address of begin
0309 0320 | | .CONST 0x0320 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e20d | | Load 0x1,0xd
030c 0007 | | Action Break_Optional
030d BODY_0308:
030d 00db | | Load_Top At_Offset_3
030e e002 | | Load 0x0,0x2
030f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0310 e20d | | Load 0x1,0xd
0311 1c02 | | Execute_Immediate Run_Utility,0x2
0312 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0313 00d8 | | Load_Top At_Offset_0
0314 0f08 | | Execute_Immediate Equal,0x8
0315 6803 |h | Jump_Zero 0x319
0316 4802 |H | Short_Literal 0x2
0317 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0318 7805 |x | Jump 0x31e
0319 00d8 | | Load_Top At_Offset_0
031a 0f07 | | Execute_Immediate Equal,0x7
031b 6802 |h | Jump_Zero 0x31e
031c 4804 |H | Short_Literal 0x4
031d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
031e 00d8 | | Load_Top At_Offset_0
031f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0320 TRAP_0308:
0320 010e | | Execute Exception,Is_Constraint_Error
0321 6802 |h | Jump_Zero 0x324
0322 4819 |H | Short_Literal 0x19
0323 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0324 0100 | | Execute Exception,Raise
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0334 | 4 | .CONST 0x0334 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0008 | | .CONST 0x0008 ; Number of locals
032b INIT_0328:
032b 00e1 | | Load_Encached Boolean_Cache
032c e007 | | Load 0x0,0x7
032d 0322 | " | Declare_Variable Record
032e 00e2 | | Load_Encached Integer_Cache
032f e002 | | Load 0x0,0x2
0330 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0331 03bd | | Declare_Variable Access,Duplicate
0332 03bd | | Declare_Variable Access,Duplicate
0333 03bd | | Declare_Variable Access,Duplicate
0334 BODY_0328:
0334 e403 | | Load 0x2,0x3
0335 8008 | | Call 0x0,0x8
0336 00d1 | | Pop_Control Pop_Count_1
0337 0092 06d4 | | Action Push_String_Extended,0x6d4 ; "----------- go to evalue an "
0339 e5ff | | Load 0x2,-0x1
033a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
033b e213 | | Load 0x1,0x13
033c 011c | | Execute Any,Convert_Unchecked
033d 1c01 | | Execute_Immediate Run_Utility,0x1
033e 01cc | | Execute Vector,Catenate
033f e009 | | Load 0x0,0x9
0340 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0341 e5ff | | Load 0x2,-0x1
0342 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0343 4603 |F | Jump_Case 0x4
0344 781e |x | Jump 0x363 ; case 0x0
0345 78d2 |x | Jump 0x418 ; case 0x1
0346 79ba |y | Jump 0x501 ; case 0x2
0347 7800 |x | Jump 0x348 ; case 0x3
0348 e5ff | | Load 0x2,-0x1
0349 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
034a 4602 |F | Jump_Case 0x3
034b 7809 |x | Jump 0x355 ; case 0x0
034c 780f |x | Jump 0x35c ; case 0x1
034d 7800 |x | Jump 0x34e ; case 0x2
034e e5ff | | Load 0x2,-0x1
034f 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0350 800a | | Call 0x0,0xa
0351 e5ff | | Load 0x2,-0x1
0352 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0353 027f | | Execute Discrete,Equal
0354 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0355 e5ff | | Load 0x2,-0x1
0356 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0357 800a | | Call 0x0,0xa
0358 e5ff | | Load 0x2,-0x1
0359 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
035a 027d | } | Execute Discrete,Greater
035b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035c e5ff | | Load 0x2,-0x1
035d 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
035e 800a | | Call 0x0,0xa
035f e5ff | | Load 0x2,-0x1
0360 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0361 027c | | | Execute Discrete,Less
0362 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0363 e403 | | Load 0x2,0x3
0364 800b | | Call 0x0,0xb
0365 800c | | Call 0x0,0xc
0366 00d1 | | Pop_Control Pop_Count_1
0367 0092 06d5 | | Action Push_String_Extended,0x6d5 ; "size commande "
0369 e403 | | Load 0x2,0x3
036a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036b 00e0 | | Load_Encached Standard_Cache
036c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
036d 01cc | | Execute Vector,Catenate
036e 0092 06d6 | | Action Push_String_Extended,0x6d6 ; " the condition "
0370 01cc | | Execute Vector,Catenate
0371 e5ff | | Load 0x2,-0x1
0372 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0373 00e0 | | Load_Encached Standard_Cache
0374 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0375 01cc | | Execute Vector,Catenate
0376 e009 | | Load 0x0,0x9
0377 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0378 e403 | | Load 0x2,0x3
0379 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
037a e5ff | | Load 0x2,-0x1
037b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
037c 027e | ~ | Execute Discrete,Not_Equal
037d 6803 |h | Jump_Zero 0x381
037e 4800 |H | Short_Literal 0x0
037f a402 | | Store_Unchecked 0x2,0x2
0380 7895 |x | Jump 0x416
0381 4801 |H | Short_Literal 0x1
0382 a402 | | Store_Unchecked 0x2,0x2
0383 4801 |H | Short_Literal 0x1
0384 e403 | | Load 0x2,0x3
0385 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0386 01d7 | | Execute Vector,Field_Read
0387 4801 |H | Short_Literal 0x1
0388 e5ff | | Load 0x2,-0x1
0389 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
038a 01d5 | | Execute Vector,Field_Reference
038b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
038c 8006 | | Call 0x0,0x6
038d 6886 |h | Jump_Zero 0x414
038e e403 | | Load 0x2,0x3
038f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0390 0c02 | | Execute_Immediate Greater_Equal,0x2
0391 6884 |h | Jump_Zero 0x416
0392 4802 |H | Short_Literal 0x2
0393 e5ff | | Load 0x2,-0x1
0394 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0395 01d5 | | Execute Vector,Field_Reference
0396 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0397 800d | | Call 0x0,0xd
0398 685f |h_ | Jump_Zero 0x3f8
0399 4802 |H | Short_Literal 0x2
039a e5ff | | Load 0x2,-0x1
039b 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
039c 01d5 | | Execute Vector,Field_Reference
039d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
039e 0f10 | | Execute_Immediate Equal,0x10
039f 6826 |h& | Jump_Zero 0x3c6
03a0 e00e | | Load 0x0,0xe
03a1 4802 |H | Short_Literal 0x2
03a2 e5ff | | Load 0x2,-0x1
03a3 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03a4 01d5 | | Execute Vector,Field_Reference
03a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03a6 800f | | Call 0x0,0xf
03a7 00d8 | | Load_Top At_Offset_0
03a8 00da | | Load_Top At_Offset_2
03a9 01d7 | | Execute Vector,Field_Read
03aa 4802 |H | Short_Literal 0x2
03ab e403 | | Load 0x2,0x3
03ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03ad 01d7 | | Execute Vector,Field_Read
03ae 8005 | | Call 0x0,0x5
03af 00d9 | | Load_Top At_Offset_1
03b0 00db | | Load_Top At_Offset_3
03b1 01d6 | | Execute Vector,Field_Write
03b2 00d2 | | Pop_Control Pop_Count_2
03b3 4802 |H | Short_Literal 0x2
03b4 e5ff | | Load 0x2,-0x1
03b5 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03b6 01d5 | | Execute Vector,Field_Reference
03b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b8 e20d | | Load 0x1,0xd
03b9 011c | | Execute Any,Convert_Unchecked
03ba 1c01 | | Execute_Immediate Run_Utility,0x1
03bb 0092 06d7 | | Action Push_String_Extended,0x6d7 ; " is instanciate with the value "
03bd 01cc | | Execute Vector,Catenate
03be e009 | | Load 0x0,0x9
03bf 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03c0 4802 |H | Short_Literal 0x2
03c1 e403 | | Load 0x2,0x3
03c2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c3 01d7 | | Execute Vector,Field_Read
03c4 8010 | | Call 0x0,0x10
03c5 7850 |xP | Jump 0x416
03c6 4802 |H | Short_Literal 0x2
03c7 e403 | | Load 0x2,0x3
03c8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c9 01d7 | | Execute Vector,Field_Read
03ca 820e | | Call 0x1,0xe
03cb 4802 |H | Short_Literal 0x2
03cc e5ff | | Load 0x2,-0x1
03cd 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03ce 01d5 | | Execute Vector,Field_Reference
03cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d0 027f | | Execute Discrete,Equal
03d1 6844 |hD | Jump_Zero 0x416
03d2 e00e | | Load 0x0,0xe
03d3 4802 |H | Short_Literal 0x2
03d4 e5ff | | Load 0x2,-0x1
03d5 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03d6 01d5 | | Execute Vector,Field_Reference
03d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d8 800f | | Call 0x0,0xf
03d9 00d8 | | Load_Top At_Offset_0
03da 00da | | Load_Top At_Offset_2
03db 01d7 | | Execute Vector,Field_Read
03dc 4802 |H | Short_Literal 0x2
03dd e403 | | Load 0x2,0x3
03de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03df 01d7 | | Execute Vector,Field_Read
03e0 8005 | | Call 0x0,0x5
03e1 00d9 | | Load_Top At_Offset_1
03e2 00db | | Load_Top At_Offset_3
03e3 01d6 | | Execute Vector,Field_Write
03e4 00d2 | | Pop_Control Pop_Count_2
03e5 4802 |H | Short_Literal 0x2
03e6 e5ff | | Load 0x2,-0x1
03e7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03e8 01d5 | | Execute Vector,Field_Reference
03e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ea e20d | | Load 0x1,0xd
03eb 011c | | Execute Any,Convert_Unchecked
03ec 1c01 | | Execute_Immediate Run_Utility,0x1
03ed 0092 06d7 | | Action Push_String_Extended,0x6d7 ; " is instanciate with the value "
03ef 01cc | | Execute Vector,Catenate
03f0 e009 | | Load 0x0,0x9
03f1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03f2 4802 |H | Short_Literal 0x2
03f3 e403 | | Load 0x2,0x3
03f4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03f5 01d7 | | Execute Vector,Field_Read
03f6 8010 | | Call 0x0,0x10
03f7 781e |x | Jump 0x416
03f8 4802 |H | Short_Literal 0x2
03f9 a404 | | Store_Unchecked 0x2,0x4
03fa 00cf | | Action Mark_Auxiliary
03fb e404 | | Load 0x2,0x4
03fc e403 | | Load 0x2,0x3
03fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03fe 027d | } | Execute Discrete,Greater
03ff 7012 |p | Jump_Nonzero 0x412
0400 e404 | | Load 0x2,0x4
0401 e403 | | Load 0x2,0x3
0402 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0403 01d7 | | Execute Vector,Field_Read
0404 e404 | | Load 0x2,0x4
0405 e5ff | | Load 0x2,-0x1
0406 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0407 01d5 | | Execute Vector,Field_Reference
0408 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0409 8006 | | Call 0x0,0x6
040a 7002 |p | Jump_Nonzero 0x40d
040b 4800 |H | Short_Literal 0x0
040c a402 | | Store_Unchecked 0x2,0x2
040d e404 | | Load 0x2,0x4
040e 0a01 | | Execute_Immediate Plus,0x1
040f c404 | | Store 0x2,0x4
0410 00c9 | | Action Pop_Auxiliary_Loop
0411 7fe9 | | Jump 0x3fb
0412 00ce | | Action Pop_Auxiliary
0413 7802 |x | Jump 0x416
0414 4800 |H | Short_Literal 0x0
0415 a402 | | Store_Unchecked 0x2,0x2
0416 e402 | | Load 0x2,0x2
0417 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0418 e5ff | | Load 0x2,-0x1
0419 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
041a 0f02 | | Execute_Immediate Equal,0x2
041b 6813 |h | Jump_Zero 0x42f
041c 0092 06d8 | | Action Push_String_Extended,0x6d8 ; "search existance of "
041e e009 | | Load 0x0,0x9
041f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0420 4801 |H | Short_Literal 0x1
0421 e5ff | | Load 0x2,-0x1
0422 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0423 01d5 | | Execute Vector,Field_Reference
0424 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0425 8011 | | Call 0x0,0x11
0426 8010 | | Call 0x0,0x10
0427 4801 |H | Short_Literal 0x1
0428 e5ff | | Load 0x2,-0x1
0429 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
042a 01d5 | | Execute Vector,Field_Reference
042b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
042c 8011 | | Call 0x0,0x11
042d 8012 | | Call 0x0,0x12
042e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042f e5ff | | Load 0x2,-0x1
0430 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0431 0f03 | | Execute_Immediate Equal,0x3
0432 6868 |hh | Jump_Zero 0x49b
0433 4801 |H | Short_Literal 0x1
0434 e5ff | | Load 0x2,-0x1
0435 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0436 01d5 | | Execute Vector,Field_Reference
0437 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0438 0e02 | | Execute_Immediate Not_Equal,0x2
0439 6843 |hC | Jump_Zero 0x47d
043a 4801 |H | Short_Literal 0x1
043b e5ff | | Load 0x2,-0x1
043c 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
043d 01d5 | | Execute Vector,Field_Reference
043e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
043f 701f |p | Jump_Nonzero 0x45f
0440 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "search for field of "
0442 e009 | | Load 0x0,0x9
0443 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0444 4801 |H | Short_Literal 0x1
0445 e5ff | | Load 0x2,-0x1
0446 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0447 01d5 | | Execute Vector,Field_Reference
0448 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0449 8011 | | Call 0x0,0x11
044a 8010 | | Call 0x0,0x10
044b 4803 |H | Short_Literal 0x3
044c e5ff | | Load 0x2,-0x1
044d 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
044e 01d5 | | Execute Vector,Field_Reference
044f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0450 8011 | | Call 0x0,0x11
0451 e013 | | Load 0x0,0x13
0452 4802 |H | Short_Literal 0x2
0453 e5ff | | Load 0x2,-0x1
0454 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0455 01d5 | | Execute Vector,Field_Reference
0456 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0457 4801 |H | Short_Literal 0x1
0458 e5ff | | Load 0x2,-0x1
0459 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
045a 01d5 | | Execute Vector,Field_Reference
045b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
045c 8011 | | Call 0x0,0x11
045d 8014 | | Call 0x0,0x14
045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045f 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "search for field of "
0461 e009 | | Load 0x0,0x9
0462 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0463 4801 |H | Short_Literal 0x1
0464 e5ff | | Load 0x2,-0x1
0465 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0466 01d5 | | Execute Vector,Field_Reference
0467 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0468 8011 | | Call 0x0,0x11
0469 8010 | | Call 0x0,0x10
046a 4803 |H | Short_Literal 0x3
046b e5ff | | Load 0x2,-0x1
046c 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
046d 01d5 | | Execute Vector,Field_Reference
046e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
046f 8011 | | Call 0x0,0x11
0470 4802 |H | Short_Literal 0x2
0471 e5ff | | Load 0x2,-0x1
0472 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0473 01d5 | | Execute Vector,Field_Reference
0474 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0475 4801 |H | Short_Literal 0x1
0476 e5ff | | Load 0x2,-0x1
0477 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0478 01d5 | | Execute Vector,Field_Reference
0479 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047a 8011 | | Call 0x0,0x11
047b 8015 | | Call 0x0,0x15
047c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047d 00db | | Load_Top At_Offset_3
047e 4801 |H | Short_Literal 0x1
047f e5ff | | Load 0x2,-0x1
0480 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0481 01d5 | | Execute Vector,Field_Reference
0482 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0483 8011 | | Call 0x0,0x11
0484 8005 | | Call 0x0,0x5
0485 c405 | | Store 0x2,0x5
0486 00d8 | | Load_Top At_Offset_0
0487 4803 |H | Short_Literal 0x3
0488 e5ff | | Load 0x2,-0x1
0489 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
048a 01d5 | | Execute Vector,Field_Reference
048b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
048c 8011 | | Call 0x0,0x11
048d 8005 | | Call 0x0,0x5
048e 0039 | 9 | Store_Top Access,At_Offset_1
048f 00e1 | | Load_Encached Boolean_Cache
0490 e013 | | Load 0x0,0x13
0491 e016 | | Load 0x0,0x16
0492 e405 | | Load 0x2,0x5
0493 e408 | | Load 0x2,0x8
0494 8017 | | Call 0x0,0x17
0495 c405 | | Store 0x2,0x5
0496 c016 | | Store 0x0,0x16
0497 c013 | | Store 0x0,0x13
0498 c402 | | Store 0x2,0x2
0499 e402 | | Load 0x2,0x2
049a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
049b 4802 |H | Short_Literal 0x2
049c e5ff | | Load 0x2,-0x1
049d 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
049e 01d5 | | Execute Vector,Field_Reference
049f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a0 0f11 | | Execute_Immediate Equal,0x11
04a1 681d |h | Jump_Zero 0x4bf
04a2 00d9 | | Load_Top At_Offset_1
04a3 4801 |H | Short_Literal 0x1
04a4 e5ff | | Load 0x2,-0x1
04a5 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04a6 01d5 | | Execute Vector,Field_Reference
04a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a8 8011 | | Call 0x0,0x11
04a9 8005 | | Call 0x0,0x5
04aa 003a | : | Store_Top Access,At_Offset_2
04ab 00d8 | | Load_Top At_Offset_0
04ac 4804 |H | Short_Literal 0x4
04ad e5ff | | Load 0x2,-0x1
04ae 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04af 01d5 | | Execute Vector,Field_Reference
04b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b1 8011 | | Call 0x0,0x11
04b2 8005 | | Call 0x0,0x5
04b3 0039 | 9 | Store_Top Access,At_Offset_1
04b4 00e1 | | Load_Encached Boolean_Cache
04b5 e013 | | Load 0x0,0x13
04b6 e016 | | Load 0x0,0x16
04b7 e407 | | Load 0x2,0x7
04b8 e408 | | Load 0x2,0x8
04b9 8018 | | Call 0x0,0x18
04ba c016 | | Store 0x0,0x16
04bb c013 | | Store 0x0,0x13
04bc c402 | | Store 0x2,0x2
04bd e402 | | Load 0x2,0x2
04be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04bf 4804 |H | Short_Literal 0x4
04c0 e5ff | | Load 0x2,-0x1
04c1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04c2 01d5 | | Execute Vector,Field_Reference
04c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04c4 0f02 | | Execute_Immediate Equal,0x2
04c5 681e |h | Jump_Zero 0x4e4
04c6 00db | | Load_Top At_Offset_3
04c7 4804 |H | Short_Literal 0x4
04c8 e5ff | | Load 0x2,-0x1
04c9 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04ca 01d5 | | Execute Vector,Field_Reference
04cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04cc 8011 | | Call 0x0,0x11
04cd 8005 | | Call 0x0,0x5
04ce c405 | | Store 0x2,0x5
04cf 00d8 | | Load_Top At_Offset_0
04d0 4801 |H | Short_Literal 0x1
04d1 e5ff | | Load 0x2,-0x1
04d2 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04d3 01d5 | | Execute Vector,Field_Reference
04d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04d5 8011 | | Call 0x0,0x11
04d6 8005 | | Call 0x0,0x5
04d7 0039 | 9 | Store_Top Access,At_Offset_1
04d8 00e1 | | Load_Encached Boolean_Cache
04d9 e013 | | Load 0x0,0x13
04da e016 | | Load 0x0,0x16
04db e405 | | Load 0x2,0x5
04dc e408 | | Load 0x2,0x8
04dd 8019 | | Call 0x0,0x19
04de c405 | | Store 0x2,0x5
04df c016 | | Store 0x0,0x16
04e0 c013 | | Store 0x0,0x13
04e1 c402 | | Store 0x2,0x2
04e2 e402 | | Load 0x2,0x2
04e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04e4 00da | | Load_Top At_Offset_2
04e5 4804 |H | Short_Literal 0x4
04e6 e5ff | | Load 0x2,-0x1
04e7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04e8 01d5 | | Execute Vector,Field_Reference
04e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04ea 8011 | | Call 0x0,0x11
04eb 8005 | | Call 0x0,0x5
04ec 003b | ; | Store_Top Access,At_Offset_3
04ed 00d8 | | Load_Top At_Offset_0
04ee 4801 |H | Short_Literal 0x1
04ef e5ff | | Load 0x2,-0x1
04f0 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04f1 01d5 | | Execute Vector,Field_Reference
04f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04f3 8011 | | Call 0x0,0x11
04f4 8005 | | Call 0x0,0x5
04f5 0039 | 9 | Store_Top Access,At_Offset_1
04f6 00e1 | | Load_Encached Boolean_Cache
04f7 e013 | | Load 0x0,0x13
04f8 e016 | | Load 0x0,0x16
04f9 e406 | | Load 0x2,0x6
04fa e408 | | Load 0x2,0x8
04fb 801a | | Call 0x0,0x1a
04fc c016 | | Store 0x0,0x16
04fd c013 | | Store 0x0,0x13
04fe c402 | | Store 0x2,0x2
04ff e402 | | Load 0x2,0x2
0500 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0501 e5ff | | Load 0x2,-0x1
0502 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0503 e5ff | | Load 0x2,-0x1
0504 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0505 027e | ~ | Execute Discrete,Not_Equal
0506 682e |h. | Jump_Zero 0x535
0507 0092 06da | | Action Push_String_Extended,0x6da ; "POSITION 1"
0509 e009 | | Load 0x0,0x9
050a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
050b 4801 |H | Short_Literal 0x1
050c e5ff | | Load 0x2,-0x1
050d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
050e 01d5 | | Execute Vector,Field_Reference
050f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0510 8010 | | Call 0x0,0x10
0511 4801 |H | Short_Literal 0x1
0512 e5ff | | Load 0x2,-0x1
0513 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0514 01d5 | | Execute Vector,Field_Reference
0515 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0516 8010 | | Call 0x0,0x10
0517 4801 |H | Short_Literal 0x1
0518 e5ff | | Load 0x2,-0x1
0519 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
051a 01d5 | | Execute Vector,Field_Reference
051b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
051c 8011 | | Call 0x0,0x11
051d 801b | | Call 0x0,0x1b
051e 8010 | | Call 0x0,0x10
051f 4801 |H | Short_Literal 0x1
0520 e5ff | | Load 0x2,-0x1
0521 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0522 01d5 | | Execute Vector,Field_Reference
0523 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0524 8011 | | Call 0x0,0x11
0525 8010 | | Call 0x0,0x10
0526 4801 |H | Short_Literal 0x1
0527 e5ff | | Load 0x2,-0x1
0528 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0529 01d5 | | Execute Vector,Field_Reference
052a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
052b 8011 | | Call 0x0,0x11
052c 4801 |H | Short_Literal 0x1
052d e5ff | | Load 0x2,-0x1
052e 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
052f 01d5 | | Execute Vector,Field_Reference
0530 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0531 8011 | | Call 0x0,0x11
0532 801b | | Call 0x0,0x1b
0533 8006 | | Call 0x0,0x6
0534 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0535 4802 |H | Short_Literal 0x2
0536 e5ff | | Load 0x2,-0x1
0537 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0538 01d5 | | Execute Vector,Field_Reference
0539 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
053a 0f09 | | Execute_Immediate Equal,0x9
053b 6812 |h | Jump_Zero 0x54e
053c 0092 06b4 | | Action Push_String_Extended,0x6b4 ; "ETAT"
053e e009 | | Load 0x0,0x9
053f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0540 4801 |H | Short_Literal 0x1
0541 e5ff | | Load 0x2,-0x1
0542 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0543 01d5 | | Execute Vector,Field_Reference
0544 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0545 8011 | | Call 0x0,0x11
0546 4801 |H | Short_Literal 0x1
0547 e5ff | | Load 0x2,-0x1
0548 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0549 01d5 | | Execute Vector,Field_Reference
054a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
054b 8011 | | Call 0x0,0x11
054c 801c | | Call 0x0,0x1c
054d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
054e 4802 |H | Short_Literal 0x2
054f e5ff | | Load 0x2,-0x1
0550 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0551 01d5 | | Execute Vector,Field_Reference
0552 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0553 0f0a | | Execute_Immediate Equal,0xa
0554 6812 |h | Jump_Zero 0x567
0555 0092 06db | | Action Push_String_Extended,0x6db ; "POSSESSION "
0557 e009 | | Load 0x0,0x9
0558 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0559 4801 |H | Short_Literal 0x1
055a e5ff | | Load 0x2,-0x1
055b 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
055c 01d5 | | Execute Vector,Field_Reference
055d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
055e 8011 | | Call 0x0,0x11
055f 4801 |H | Short_Literal 0x1
0560 e5ff | | Load 0x2,-0x1
0561 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0562 01d5 | | Execute Vector,Field_Reference
0563 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0564 8011 | | Call 0x0,0x11
0565 801d | | Call 0x0,0x1d
0566 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0567 0092 06dc | | Action Push_String_Extended,0x6dc ; "POSITION 2"
0569 e009 | | Load 0x0,0x9
056a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
056b 4801 |H | Short_Literal 0x1
056c e5ff | | Load 0x2,-0x1
056d 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
056e 01d5 | | Execute Vector,Field_Reference
056f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0570 8011 | | Call 0x0,0x11
0571 4801 |H | Short_Literal 0x1
0572 e5ff | | Load 0x2,-0x1
0573 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0574 01d5 | | Execute Vector,Field_Reference
0575 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0576 8011 | | Call 0x0,0x11
0577 801e | | Call 0x0,0x1e
0578 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0579 0000 0000 | | .BLANK 0000[0x7]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 00da | | Load_Top At_Offset_2
0584 0227 | ' | Execute Access,All_Reference
0585 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0586 0f01 | | Execute_Immediate Equal,0x1
0587 6865 |he | Jump_Zero 0x5ed
0588 00da | | Load_Top At_Offset_2
0589 0227 | ' | Execute Access,All_Reference
058a 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
058b 8222 | " | Call 0x1,0x22
058c 00da | | Load_Top At_Offset_2
058d 0227 | ' | Execute Access,All_Reference
058e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
058f 6804 |h | Jump_Zero 0x594
0590 00da | | Load_Top At_Offset_2
0591 0227 | ' | Execute Access,All_Reference
0592 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0593 8222 | " | Call 0x1,0x22
0594 00da | | Load_Top At_Offset_2
0595 0227 | ' | Execute Access,All_Reference
0596 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0597 4602 |F | Jump_Case 0x3
0598 781a |x | Jump 0x5b3 ; case 0x0
0599 7836 |x6 | Jump 0x5d0 ; case 0x1
059a 7800 |x | Jump 0x59b ; case 0x2
059b 00da | | Load_Top At_Offset_2
059c 0227 | ' | Execute Access,All_Reference
059d 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
059e 0227 | ' | Execute Access,All_Reference
059f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05a0 0f00 | | Execute_Immediate Equal,0x0
05a1 00db | | Load_Top At_Offset_3
05a2 0227 | ' | Execute Access,All_Reference
05a3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05a4 00da | | Load_Top At_Offset_2
05a5 0227 | ' | Execute Access,All_Reference
05a6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05a7 00e1 | | Load_Encached Boolean_Cache
05a8 011c | | Execute Any,Convert_Unchecked
05a9 1c01 | | Execute_Immediate Run_Utility,0x1
05aa 0092 06dd | | Action Push_String_Extended,0x6dd ; " = "
05ac 01cc | | Execute Vector,Catenate
05ad 0092 06de | | Action Push_String_Extended,0x6de ; " not "
05af 01cc | | Execute Vector,Catenate
05b0 e009 | | Load 0x0,0x9
05b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05b3 00da | | Load_Top At_Offset_2
05b4 0227 | ' | Execute Access,All_Reference
05b5 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05b6 0227 | ' | Execute Access,All_Reference
05b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05b8 00db | | Load_Top At_Offset_3
05b9 0227 | ' | Execute Access,All_Reference
05ba 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05bb 0227 | ' | Execute Access,All_Reference
05bc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05bd 0279 | y | Execute Discrete,And
05be 00db | | Load_Top At_Offset_3
05bf 0227 | ' | Execute Access,All_Reference
05c0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05c1 00da | | Load_Top At_Offset_2
05c2 0227 | ' | Execute Access,All_Reference
05c3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05c4 00e1 | | Load_Encached Boolean_Cache
05c5 011c | | Execute Any,Convert_Unchecked
05c6 1c01 | | Execute_Immediate Run_Utility,0x1
05c7 0092 06dd | | Action Push_String_Extended,0x6dd ; " = "
05c9 01cc | | Execute Vector,Catenate
05ca 0092 06df | | Action Push_String_Extended,0x6df ; " and "
05cc 01cc | | Execute Vector,Catenate
05cd e009 | | Load 0x0,0x9
05ce 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05d0 00da | | Load_Top At_Offset_2
05d1 0227 | ' | Execute Access,All_Reference
05d2 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05d3 0227 | ' | Execute Access,All_Reference
05d4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05d5 00db | | Load_Top At_Offset_3
05d6 0227 | ' | Execute Access,All_Reference
05d7 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05d8 0227 | ' | Execute Access,All_Reference
05d9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05da 0278 | x | Execute Discrete,Or
05db 00db | | Load_Top At_Offset_3
05dc 0227 | ' | Execute Access,All_Reference
05dd 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05de 00da | | Load_Top At_Offset_2
05df 0227 | ' | Execute Access,All_Reference
05e0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05e1 00e1 | | Load_Encached Boolean_Cache
05e2 011c | | Execute Any,Convert_Unchecked
05e3 1c01 | | Execute_Immediate Run_Utility,0x1
05e4 0092 06dd | | Action Push_String_Extended,0x6dd ; " = "
05e6 01cc | | Execute Vector,Catenate
05e7 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " or "
05e9 01cc | | Execute Vector,Catenate
05ea e009 | | Load 0x0,0x9
05eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
05ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ed 00da | | Load_Top At_Offset_2
05ee 0227 | ' | Execute Access,All_Reference
05ef 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
05f0 8221 | ! | Call 0x1,0x21
05f1 00db | | Load_Top At_Offset_3
05f2 0227 | ' | Execute Access,All_Reference
05f3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f5 0000 0000 | | .XXX[0x3]
05f7 0000 | |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb BODY_05f8:
05fb INIT_05f8:
05fb INIT_05f8:
05fb 4609 |F | Jump_Case 0xa
05fc 7809 |x | Jump 0x606 ; case 0x0
05fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
05fe 781b |x | Jump 0x61a ; case 0x2
05ff 781e |x | Jump 0x61e ; case 0x3
0600 7823 |x# | Jump 0x624 ; case 0x4
0601 782d |x- | Jump 0x62f ; case 0x5
0602 7834 |x4 | Jump 0x637 ; case 0x6
0603 783a |x: | Jump 0x63e ; case 0x7
0604 7843 |xC | Jump 0x648 ; case 0x8
0605 7849 |xI | Jump 0x64f ; case 0x9
0606 00da | | Load_Top At_Offset_2
0607 016c | l | Execute Variant_Record,Is_Constrained
0608 7009 |p | Jump_Nonzero 0x612
0609 00cf | | Action Mark_Auxiliary
060a 4801 |H | Short_Literal 0x1
060b e5ff | | Load 0x2,-0x1
060c 1c08 | | Execute_Immediate Run_Utility,0x8
060d 00d8 | | Load_Top At_Offset_0
060e 1c00 | | Execute_Immediate Run_Utility,0x0
060f c5ff | | Store 0x2,-0x1
0610 00ce | | Action Pop_Auxiliary
0611 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0612 00da | | Load_Top At_Offset_2
0613 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0614 0f01 | | Execute_Immediate Equal,0x1
0615 7003 |p | Jump_Nonzero 0x619
0616 00da | | Load_Top At_Offset_2
0617 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0618 1c00 | | Execute_Immediate Run_Utility,0x0
0619 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
061a 4801 |H | Short_Literal 0x1
061b 4806 |H | Short_Literal 0x6
061c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
061d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
061e e5fd | | Load 0x2,-0x3
061f 00db | | Load_Top At_Offset_3
0620 1c07 | | Execute_Immediate Run_Utility,0x7
0621 e5fe | | Load 0x2,-0x2
0622 0306 | | Complete_Type Variant_Record,By_Renaming
0623 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0624 4801 |H | Short_Literal 0x1
0625 4806 |H | Short_Literal 0x6
0626 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0627 e5fe | | Load 0x2,-0x2
0628 00d8 | | Load_Top At_Offset_0
0629 e5ff | | Load 0x2,-0x1
062a 1c06 | | Execute_Immediate Run_Utility,0x6
062b e5ff | | Load 0x2,-0x1
062c 00db | | Load_Top At_Offset_3
062d 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
062e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
062f 4801 |H | Short_Literal 0x1
0630 00db | | Load_Top At_Offset_3
0631 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
0632 0f01 | | Execute_Immediate Equal,0x1
0633 7000 |p | Jump_Nonzero 0x634
0634 e5ff | | Load 0x2,-0x1
0635 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0636 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0637 00db | | Load_Top At_Offset_3
0638 0f01 | | Execute_Immediate Equal,0x1
0639 7002 |p | Jump_Nonzero 0x63c
063a 4802 |H | Short_Literal 0x2
063b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
063c 4801 |H | Short_Literal 0x1
063d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
063e 00db | | Load_Top At_Offset_3
063f e5fe | | Load 0x2,-0x2
0640 0f01 | | Execute_Immediate Equal,0x1
0641 7002 |p | Jump_Nonzero 0x644
0642 4802 |H | Short_Literal 0x2
0643 7801 |x | Jump 0x645
0644 4801 |H | Short_Literal 0x1
0645 e5ff | | Load 0x2,-0x1
0646 031b | | Declare_Type Variant_Record,Constrained
0647 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0648 00db | | Load_Top At_Offset_3
0649 e5fe | | Load 0x2,-0x2
064a e5ff | | Load 0x2,-0x1
064b 1c06 | | Execute_Immediate Run_Utility,0x6
064c e5ff | | Load 0x2,-0x1
064d 02fc | | Declare_Variable Variant_Record,With_Constraint
064e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
064f 4801 |H | Short_Literal 0x1
0650 00db | | Load_Top At_Offset_3
0651 1c07 | | Execute_Immediate Run_Utility,0x7
0652 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0653 0000 0000 | | .BLANK 0000[0x5]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 4609 |F | Jump_Case 0xa
065c 7809 |x | Jump 0x666 ; case 0x0
065d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
065e 781b |x | Jump 0x67a ; case 0x2
065f 781e |x | Jump 0x67e ; case 0x3
0660 7849 |xI | Jump 0x6aa ; case 0x4
0661 7848 |xH | Jump 0x6aa ; case 0x5
0662 7821 |x! | Jump 0x684 ; case 0x6
0663 782c |x, | Jump 0x690 ; case 0x7
0664 783a |x: | Jump 0x69f ; case 0x8
0665 7840 |x@ | Jump 0x6a6 ; case 0x9
0666 00da | | Load_Top At_Offset_2
0667 016c | l | Execute Variant_Record,Is_Constrained
0668 7009 |p | Jump_Nonzero 0x672
0669 00cf | | Action Mark_Auxiliary
066a 4800 |H | Short_Literal 0x0
066b e5ff | | Load 0x2,-0x1
066c 1c08 | | Execute_Immediate Run_Utility,0x8
066d 00d8 | | Load_Top At_Offset_0
066e 1c00 | | Execute_Immediate Run_Utility,0x0
066f c5ff | | Store 0x2,-0x1
0670 00ce | | Action Pop_Auxiliary
0671 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0672 00da | | Load_Top At_Offset_2
0673 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0674 4603 |F | Jump_Case 0x4
0675 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0676 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0677 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0678 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0679 4302 |C | .XXX[0x1]
067a 4801 |H | Short_Literal 0x1
067b 480a |H | Short_Literal 0xa
067c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
067d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
067e e5fd | | Load 0x2,-0x3
067f 00db | | Load_Top At_Offset_3
0680 1c07 | | Execute_Immediate Run_Utility,0x7
0681 e5fe | | Load 0x2,-0x2
0682 0306 | | Complete_Type Variant_Record,By_Renaming
0683 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0684 00db | | Load_Top At_Offset_3
0685 4603 |F | Jump_Case 0x4
0686 7805 |x | Jump 0x68c ; case 0x0
0687 7804 |x | Jump 0x68c ; case 0x1
0688 7805 |x | Jump 0x68e ; case 0x2
0689 7800 |x | Jump 0x68a ; case 0x3
068a 4803 |H | Short_Literal 0x3
068b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
068c 4801 |H | Short_Literal 0x1
068d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
068e 4802 |H | Short_Literal 0x2
068f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0690 00db | | Load_Top At_Offset_3
0691 e5fe | | Load 0x2,-0x2
0692 4603 |F | Jump_Case 0x4
0693 7805 |x | Jump 0x699 ; case 0x0
0694 7804 |x | Jump 0x699 ; case 0x1
0695 7805 |x | Jump 0x69b ; case 0x2
0696 7800 |x | Jump 0x697 ; case 0x3
0697 4803 |H | Short_Literal 0x3
0698 7803 |x | Jump 0x69c
0699 4801 |H | Short_Literal 0x1
069a 7801 |x | Jump 0x69c
069b 4802 |H | Short_Literal 0x2
069c e5ff | | Load 0x2,-0x1
069d 031b | | Declare_Type Variant_Record,Constrained
069e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
069f 00db | | Load_Top At_Offset_3
06a0 e5fe | | Load 0x2,-0x2
06a1 e5ff | | Load 0x2,-0x1
06a2 1c06 | | Execute_Immediate Run_Utility,0x6
06a3 e5ff | | Load 0x2,-0x1
06a4 02fc | | Declare_Variable Variant_Record,With_Constraint
06a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06a6 4800 |H | Short_Literal 0x0
06a7 00db | | Load_Top At_Offset_3
06a8 1c07 | | Execute_Immediate Run_Utility,0x7
06a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06aa 0869 | i | Execute_Immediate Raise,0x69
06ab ; --------------------------------------------------------------------------------------
06ab ; STRING TABLE
06ab ; --------------------------------------------------------------------------------------
06ab 006e | n | .STRTAB 0x006e->0x06e2 ; "COMMUNICATION"
06ac 0079 | y | .STRTAB 0x0079->0x06e8 ; "COMPTEUR"
06ad 007f | | .STRTAB 0x007f->0x06ec ; "LIEU"
06ae 0081 | | .STRTAB 0x0081->0x06ee ; "OBJET"
06af 0084 | | .STRTAB 0x0084->0x06f1 ; "PERSONNAGE"
06b0 008c | | .STRTAB 0x008c->0x06f6 ; "VERBE"
06b1 008f | | .STRTAB 0x008f->0x06f8 ; "PREPOSITION"
06b2 0098 | | .STRTAB 0x0098->0x06fe ; "JOUEUR"
06b3 009c | | .STRTAB 0x009c->0x0701 ; "POSITIONCOURANTE"
06b4 00aa | | .STRTAB 0x00aa->0x0709 ; "ETAT"
06b5 00ac | | .STRTAB 0x00ac->0x070b ; "POSSESSION"
06b6 00b4 | | .STRTAB 0x00b4->0x0710 ; "POSITION"
06b7 00ba | | .STRTAB 0x00ba->0x0714 ; "CONTENU"
06b8 00bf | | .STRTAB 0x00bf->0x0717 ; "EXISTE"
06b9 00c3 | | .STRTAB 0x00c3->0x071a ; "SORTIE"
06ba 00c7 | | .STRTAB 0x00c7->0x071d ; "VERS"
06bb 00c9 | | .STRTAB 0x00c9->0x071f ; "DIRECTION"
06bc 00d0 | | .STRTAB 0x00d0->0x0724 ; "EST"
06bd 00d1 | | .STRTAB 0x00d1->0x0725 ; "DANS"
06be 00d3 | | .STRTAB 0x00d3->0x0727 ; "RELIEA"
06bf 00d7 | | .STRTAB 0x00d7->0x072a ; "TEXTE"
06c0 00da | | .STRTAB 0x00da->0x072d ; "GREATER_THAN"
06c1 00e4 | | .STRTAB 0x00e4->0x0733 ; "LESS_THAN"
06c2 00eb | | .STRTAB 0x00eb->0x0737 ; "EQUAL"
06c3 00ee | | .STRTAB 0x00ee->0x073a ; "NUMBER"
06c4 00f2 | | .STRTAB 0x00f2->0x073d ; "UNKNOWN"
06c5 00f7 | | .STRTAB 0x00f7->0x0740 ; "TYPE_ACTION"
06c6 0100 | | .STRTAB 0x0100->0x0746 ; "TYPE_RECHERCHE"
06c7 010c | | .STRTAB 0x010c->0x074d ; "TYPE_EGALITE"
06c8 0116 | | .STRTAB 0x0116->0x0753 ; "TYPE_COMPARAISON"
06c9 0124 | $ | .STRTAB 0x0124->0x075b ; "GREATER"
06ca 0129 | ) | .STRTAB 0x0129->0x075e ; "LESS"
06cb 012b | + | .STRTAB 0x012b->0x0760 ; "EQUAL_AS"
06cc 0131 | 1 | .STRTAB 0x0131->0x0764 ; "TYPE_LEAF"
06cd 0138 | 8 | .STRTAB 0x0138->0x0769 ; "TYPE_NODE"
06ce 013f | ? | .STRTAB 0x013f->0x076d ; "ET"
06cf 013f | ? | .STRTAB 0x013f->0x076e ; "OU"
06d0 013f | ? | .STRTAB 0x013f->0x076f ; "NON"
06d1 0140 | @ | .STRTAB 0x0140->0x0771 ; ">"
06d2 013f | ? | .STRTAB 0x013f->0x0771 ; "<"
06d3 013e | > | .STRTAB 0x013e->0x0772 ; "="
06d4 013d | = | .STRTAB 0x013d->0x0772 ; "----------- go to evalue an "
06d5 0157 | W | .STRTAB 0x0157->0x0780 ; "size commande "
06d6 0163 | c | .STRTAB 0x0163->0x0787 ; " the condition "
06d7 0170 | p | .STRTAB 0x0170->0x078f ; " is instanciate with the value "
06d8 018d | | .STRTAB 0x018d->0x079e ; "search existance of "
06d9 019f | | .STRTAB 0x019f->0x07a8 ; "search for field of "
06da 01b1 | | .STRTAB 0x01b1->0x07b2 ; "POSITION 1"
06db 01b9 | | .STRTAB 0x01b9->0x07b7 ; "POSSESSION "
06dc 01c2 | | .STRTAB 0x01c2->0x07bd ; "POSITION 2"
06dd 01ca | | .STRTAB 0x01ca->0x07c2 ; " = "
06de 01cb | | .STRTAB 0x01cb->0x07c3 ; " not "
06df 01ce | | .STRTAB 0x01ce->0x07c6 ; " and "
06e0 01d1 | | .STRTAB 0x01d1->0x07c8 ; " or "
06e1 01d3 | | .STREND 0x01d3->0x07ca
06e2 434f 4d4d |COMM| .STRTAB_STRINGS
07cb 0000 0000 | | .BLANK 0000[0x5]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; Debug Table
07d0 ; --------------------------------------------------------------------------------------
07d0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd46d,0x0000,0x0001,0x0015
07d6 000b 082a | *| .DBG4T 0x000b,0x082a,0x8000,0x8000
07da 0077 0854 | w T| .DBG4T 0x0077,0x0854,0x8000,0x8000
07de 009b 0000 | | .DBG4T 0x009b,0x0000,0x0005,0x0000
07e2 00c3 086e | n| .DBG4T 0x00c3,0x086e,0x0002,0x0000
07e6 00db 0875 | u| .DBG4T 0x00db,0x0875,0x0002,0x4000
07ea 01ab 08c1 | | .DBG4T 0x01ab,0x08c1,0x0001,0x0000
07ee 01cb 0000 | | .DBG4T 0x01cb,0x0000,0x0005,0x0000
07f2 01f3 0000 | | .DBG4T 0x01f3,0x0000,0x0005,0x0000
07f6 021b 08c6 | | .DBG4T 0x021b,0x08c6,0x0002,0x0000
07fa 023b 08cb | ; | .DBG4T 0x023b,0x08cb,0x0002,0x0000
07fe 0253 0000 | S | .DBG4T 0x0253,0x0000,0x0005,0x0000
0802 027b 0000 | { | .DBG4T 0x027b,0x0000,0x0005,0x0000
0806 02a3 08d2 | | .DBG4T 0x02a3,0x08d2,0x0002,0x0000
080a 02b3 08d6 | | .DBG4T 0x02b3,0x08d6,0x0002,0x0000
080e 02cb 08dc | | .DBG4T 0x02cb,0x08dc,0x0002,0x0000
0812 02eb 08e4 | | .DBG4T 0x02eb,0x08e4,0x0002,0x0000
0816 030b 08ec | | .DBG4T 0x030b,0x08ec,0x0002,0x0000
081a 032b 08f6 | + | .DBG4T 0x032b,0x08f6,0x0002,0x4000
081e 0583 0994 | | .DBG4T 0x0583,0x0994,0x0001,0x4000
0822 05fb 0000 | | .DBG4T 0x05fb,0x0000,0x0005,0x0000
0826 065b 0000 | [ | .DBG4T 0x065b,0x0000,0x0005,0x0000
082a ; --------------------------------------------------------------------------------------
082a ; Debug chain
082a ; --------------------------------------------------------------------------------------
082a 0014 0000 | | .DBGLEN 0x0014,0x0000
082c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x001a,0x0020,0x0022,0x0027,0x002c,0x002e,0x0030,0x0046,0x004b,0x0050,0x005b,0x005f,0x0061,0x0063,0x0065,0x0067
0840 0001 0002 | | .XXX[0x14]
0842 0003 0004 | |
0844 0005 0006 | |
0846 0007 0008 | |
0848 0009 000a | |
084a 000b 000c | |
084c 000d 000e | |
084e 000f 0011 | |
0850 0012 0013 | |
0852 0014 0015 | |
0854 ; --------------------------------------------------------------------------------------
0854 ; Debug chain
0854 ; --------------------------------------------------------------------------------------
0854 000c 0000 | | .DBGLEN 0x000c,0x0000
0856 0077 0079 | w y| .DBGLNO 0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d
0862 0003 0004 | | .XXX[0xc]
0864 0005 0006 | |
0866 0007 0008 | |
0868 0009 000a | |
086a 000b 000c | |
086c 000d 000e | |
086e ; --------------------------------------------------------------------------------------
086e ; Debug chain
086e ; --------------------------------------------------------------------------------------
086e 0001 0004 | | .DBGLEN 0x0001,0x0004
0870 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00c8,0x00d1,0x00d4
0875 ; --------------------------------------------------------------------------------------
0875 ; Debug chain
0875 ; --------------------------------------------------------------------------------------
0875 0000 0025 | %| .DBGLEN 0x0000,0x0025
0877 00db 00f7 | | .DBGLNO 0x00db,0x00f7,0x00f9,0x0108,0x010a,0x0116,0x0118,0x0124,0x0126,0x012f,0x0131,0x0134,0x0136,0x013f,0x0141,0x0147,0x0149,0x014c,0x014e,0x0154,0x0156,0x0159,0x015b,0x015e,0x0160,0x0163,0x0165,0x016b,0x016d,0x0176,0x0178,0x017b,0x017d,0x0189,0x018b,0x019d,0x019f
089c 0001 0024 | $| .XXX[0x25]
089e 0002 0003 | |
08a0 0004 0005 | |
08a2 0006 0007 | |
08a4 0008 0009 | |
08a6 000a 000b | |
08a8 000c 000d | |
08aa 000e 000f | |
08ac 0010 0011 | |
08ae 0012 0013 | |
08b0 0014 0015 | |
08b2 0016 0017 | |
08b4 0018 0019 | |
08b6 001a 001b | |
08b8 001c 001d | |
08ba 001e 001f | |
08bc 0020 0021 | !|
08be 0022 0023 | " #|
08c0 0025 | % |
08c1 ; --------------------------------------------------------------------------------------
08c1 ; Debug chain
08c1 ; --------------------------------------------------------------------------------------
08c1 0000 0003 | | .DBGLEN 0x0000,0x0003
08c3 01ac 01af | | .DBGLNO 0x01ac,0x01af,0x01bc
08c6 ; --------------------------------------------------------------------------------------
08c6 ; Debug chain
08c6 ; --------------------------------------------------------------------------------------
08c6 0000 0003 | | .DBGLEN 0x0000,0x0003
08c8 021b 0230 | 0| .DBGLNO 0x021b,0x0230,0x0232
08cb ; --------------------------------------------------------------------------------------
08cb ; Debug chain
08cb ; --------------------------------------------------------------------------------------
08cb 0000 0005 | | .DBGLEN 0x0000,0x0005
08cd 023b 0242 | ; B| .DBGLNO 0x023b,0x0242,0x0244,0x024b,0x024d
08d2 ; --------------------------------------------------------------------------------------
08d2 ; Debug chain
08d2 ; --------------------------------------------------------------------------------------
08d2 0000 0002 | | .DBGLEN 0x0000,0x0002
08d4 02a3 02a5 | | .DBGLNO 0x02a3,0x02a5
08d6 ; --------------------------------------------------------------------------------------
08d6 ; Debug chain
08d6 ; --------------------------------------------------------------------------------------
08d6 0001 0003 | | .DBGLEN 0x0001,0x0003
08d8 02b3 02b5 | | .DBGLNO 0x02b3,0x02b5,0x02bd,0x02c1
08dc ; --------------------------------------------------------------------------------------
08dc ; Debug chain
08dc ; --------------------------------------------------------------------------------------
08dc 0001 0005 | | .DBGLEN 0x0001,0x0005
08de 02cb 02cd | | .DBGLNO 0x02cb,0x02cd,0x02d5,0x02d9,0x02dd,0x02e1
08e4 ; --------------------------------------------------------------------------------------
08e4 ; Debug chain
08e4 ; --------------------------------------------------------------------------------------
08e4 0001 0005 | | .DBGLEN 0x0001,0x0005
08e6 02eb 02ed | | .DBGLNO 0x02eb,0x02ed,0x02f5,0x02f9,0x02fd,0x0301
08ec ; --------------------------------------------------------------------------------------
08ec ; Debug chain
08ec ; --------------------------------------------------------------------------------------
08ec 0001 0007 | | .DBGLEN 0x0001,0x0007
08ee 030b 030d | | .DBGLNO 0x030b,0x030d,0x0313,0x0316,0x0319,0x031c,0x031e,0x0322
08f6 ; --------------------------------------------------------------------------------------
08f6 ; Debug chain
08f6 ; --------------------------------------------------------------------------------------
08f6 0004 004c | L| .DBGLEN 0x0004,0x004c
08f8 032b 032c | + ,| .DBGLNO 0x032b,0x032c,0x032e,0x032f,0x0334,0x0337,0x0341,0x0348,0x034e,0x0355,0x035c,0x0363,0x0367,0x0378,0x037e,0x0381,0x0383,0x038e,0x0392,0x0399,0x03a0,0x03b3,0x03c0,0x03c6,0x03d2,0x03e5,0x03f2,0x03f8,0x03fb,0x0400,0x040b,0x040d,0x0414,0x0416,0x0418,0x041c,0x0420,0x0427,0x042f,0x0433,0x043a,0x0440,0x0444,0x044b,0x045f,0x0463,0x046a,0x047d,0x0486,0x048f,0x0499,0x049b,0x04a2,0x04ab,0x04b4,0x04bd,0x04bf,0x04c6,0x04cf,0x04d8,0x04e2,0x04e4,0x04ed,0x04f6,0x04ff,0x0501,0x0507,0x050b,0x0511,0x0517,0x051f,0x0526,0x0535,0x053c,0x0540,0x054e,0x0555,0x0559,0x0567,0x056b
0948 0001 0002 | | .XXX[0x4c]
094a 0003 004a | J|
094c 004d 004b | M K|
094e 004c 0004 | L |
0950 0005 0006 | |
0952 0007 0008 | |
0954 0009 000a | |
0956 000b 000c | |
0958 000d 000e | |
095a 000f 0010 | |
095c 0011 0012 | |
095e 0013 0014 | |
0960 0016 0017 | |
0962 0018 0019 | |
0964 001a 001b | |
0966 001c 001d | |
0968 001e 001f | |
096a 0020 0021 | !|
096c 0022 0023 | " #|
096e 0024 0025 | $ %|
0970 0026 0027 | & '|
0972 0028 0029 | ( )|
0974 002a 002b | * +|
0976 002c 002d | , -|
0978 002e 002f | . /|
097a 0030 0031 | 0 1|
097c 0032 0033 | 2 3|
097e 0034 0035 | 4 5|
0980 0036 0037 | 6 7|
0982 0038 0039 | 8 9|
0984 003a 003b | : ;|
0986 003c 003d | < =|
0988 003e 003f | > ?|
098a 0040 0041 | @ A|
098c 0042 0043 | B C|
098e 0044 0045 | D E|
0990 0046 0047 | F G|
0992 0048 0049 | H I|
0994 ; --------------------------------------------------------------------------------------
0994 ; Debug chain
0994 ; --------------------------------------------------------------------------------------
0994 0000 000c | | .DBGLEN 0x0000,0x000c
0996 0583 0588 | | .DBGLNO 0x0583,0x0588,0x058c,0x0590,0x0594,0x059b,0x05a4,0x05b3,0x05c1,0x05d0,0x05de,0x05ed
09a2 0001 0002 | | .XXX[0xc]
09a4 0003 0004 | |
09a6 0005 000a | |
09a8 000b 0006 | |
09aa 0007 0008 | |
09ac 0009 000c | |
09ae 0000 0000 | | .BLANK 0000[0x52]