|
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: 7168 (0x1c00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_2140b1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0b50 | P | .CONST 0x0b50 ; 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 0006 | | .CONST 0x0006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a4 | | .CONST 0x00a4 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 60c2 |` | Indirect_Literal Discrete,0xd0,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 4800 |H | Short_Literal 0x0
0011 4806 |H | Short_Literal 0x6
0012 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4818 |H | Short_Literal 0x18
0016 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0017 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0019 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
001b 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
001d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
001f 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0021 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0023 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0025 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0027 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0029 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
002b 029a 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call,Visible,Unelaborated
002d 029a 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call,Visible,Unelaborated
002f 029a 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call,Visible,Unelaborated
0031 029a 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Visible,Unelaborated
0033 4800 |H | Short_Literal 0x0
0034 4807 |H | Short_Literal 0x7
0035 029f 0943 | C| Declare_Subprogram INIT_0940,For_Call
0037 03fe | | Declare_Type Discrete,Defined,Visible
0038 00d8 | | Load_Top At_Offset_0
0039 e20e | | Load 0x1,0xe
003a 4803 |H | Short_Literal 0x3
003b e002 | | Load 0x0,0x2
003c e20f | | Load 0x1,0xf
003d 00d8 | | Load_Top At_Offset_0
003e 4802 |H | Short_Literal 0x2
003f e002 | | Load 0x0,0x2
0040 e20f | | Load 0x1,0xf
0041 4801 |H | Short_Literal 0x1
0042 00e2 | | Load_Encached Integer_Cache
0043 4801 |H | Short_Literal 0x1
0044 00e1 | | Load_Encached Boolean_Cache
0045 4801 |H | Short_Literal 0x1
0046 e002 | | Load 0x0,0x2
0047 4802 |H | Short_Literal 0x2
0048 4820 |H | Short_Literal 0x20
0049 e003 | | Load 0x0,0x3
004a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004b 1c07 | | Execute_Immediate Run_Utility,0x7
004c 0129 | ) | Execute Any,Make_Visible
004d 4820 |H | Short_Literal 0x20
004e e003 | | Load 0x0,0x3
004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0050 1c07 | | Execute_Immediate Run_Utility,0x7
0051 0129 | ) | Execute Any,Make_Visible
0052 4803 |H | Short_Literal 0x3
0053 e002 | | Load 0x0,0x2
0054 4820 |H | Short_Literal 0x20
0055 e003 | | Load 0x0,0x3
0056 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0057 1c07 | | Execute_Immediate Run_Utility,0x7
0058 0129 | ) | Execute Any,Make_Visible
0059 4820 |H | Short_Literal 0x20
005a e003 | | Load 0x0,0x3
005b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005c 1c07 | | Execute_Immediate Run_Utility,0x7
005d 0129 | ) | Execute Any,Make_Visible
005e 4804 |H | Short_Literal 0x4
005f 00e2 | | Load_Encached Integer_Cache
0060 4820 |H | Short_Literal 0x20
0061 e003 | | Load 0x0,0x3
0062 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0063 1c07 | | Execute_Immediate Run_Utility,0x7
0064 0129 | ) | Execute Any,Make_Visible
0065 4820 |H | Short_Literal 0x20
0066 e003 | | Load 0x0,0x3
0067 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0068 1c07 | | Execute_Immediate Run_Utility,0x7
0069 0129 | ) | Execute Any,Make_Visible
006a 4820 |H | Short_Literal 0x20
006b e003 | | Load 0x0,0x3
006c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006d 1c07 | | Execute_Immediate Run_Utility,0x7
006e 0129 | ) | Execute Any,Make_Visible
006f 029f 0983 | | Declare_Subprogram INIT_0980,For_Call
0071 4811 |H | Short_Literal 0x11
0072 4801 |H | Short_Literal 0x1
0073 4808 |H | Short_Literal 0x8
0074 4800 |H | Short_Literal 0x0
0075 4801 |H | Short_Literal 0x1
0076 031e | | Declare_Type Variant_Record,Defined,Visible
0077 00d8 | | Load_Top At_Offset_0
0078 02a0 | | Declare_Subprogram Null_Subprogram
0079 e20f | | Load 0x1,0xf
007a 03c7 | | Complete_Type Access,By_Defining
007b 00bf | | Action Accept_Activation
007c a004 | | Store_Unchecked 0x0,0x4
007d 00c6 | | Action Check_Subprogram_Elaborated
007e 00d8 | | Load_Top At_Offset_0
007f e20f | | Load 0x1,0xf
0080 e005 | | Load 0x0,0x5
0081 e006 | | Load 0x0,0x6
0082 4800 |H | Short_Literal 0x0
0083 0007 | | Action Break_Optional
0084 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0085 00c7 | | Action Elaborate_Subprogram
0086 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0087 00c7 | | Action Elaborate_Subprogram
0088 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0089 00c7 | | Action Elaborate_Subprogram
008a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
008b 00c7 | | Action Elaborate_Subprogram
008c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
008d 00c7 | | Action Elaborate_Subprogram
008e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
008f 00c7 | | Action Elaborate_Subprogram
0090 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0091 00c7 | | Action Elaborate_Subprogram
0092 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0093 00c7 | | Action Elaborate_Subprogram
0094 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0095 00c7 | | Action Elaborate_Subprogram
0096 029d 096b | k| Declare_Subprogram INIT_0968,For_Outer_Call
0098 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0099 00c7 | | Action Elaborate_Subprogram
009a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
009b 00c7 | | Action Elaborate_Subprogram
009c 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call
009e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a3 00c7 | | Action Elaborate_Subprogram
00a4 BODY_0008:
00a4 00bc | | Action Signal_Activated
00a5 00bb | | Action Signal_Completion
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4607 |F | Jump_Case 0x8
00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ad 7807 |x | Jump 0xb5 ; case 0x1
00ae 780a |x | Jump 0xb9 ; case 0x2
00af 780e |x | Jump 0xbe ; case 0x3
00b0 7811 |x | Jump 0xc2 ; case 0x4
00b1 7812 |x | Jump 0xc4 ; case 0x5
00b2 7813 |x | Jump 0xc6 ; case 0x6
00b3 7816 |x | Jump 0xca ; case 0x7
00b4 4302 |C | .XXX[0x1]
00b5 00da | | Load_Top At_Offset_2
00b6 0091 0a32 | 2| Action Push_String_Extended_Indexed,0xa32 ; "STRUCT_TYPE"
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b9 00db | | Load_Top At_Offset_3
00ba 00db | | Load_Top At_Offset_3
00bb 00e0 | | Load_Encached Standard_Cache
00bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00be 00da | | Load_Top At_Offset_2
00bf 00e0 | | Load_Encached Standard_Cache
00c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c2 00db | | Load_Top At_Offset_3
00c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c4 00db | | Load_Top At_Offset_3
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c6 e20e | | Load 0x1,0xe
00c7 00dc | | Load_Top At_Offset_4
00c8 0267 | g | Execute Discrete,Predecessor
00c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ca e20e | | Load 0x1,0xe
00cb 00dc | | Load_Top At_Offset_4
00cc 0268 | h | Execute Discrete,Successor
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ce 0000 0000 | | .XXX[0x2]
00d0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e1 | | .CONST 0x00e1 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0003 | | .CONST 0x0003 ; Number of locals
00db INIT_00d8:
00db e21f | | Load 0x1,0x1f
00dc 02ff | | Declare_Variable Variant_Record
00dd 00d8 | | Load_Top At_Offset_0
00de 1c00 | | Execute_Immediate Run_Utility,0x0
00df e20f | | Load 0x1,0xf
00e0 0007 | | Action Break_Optional
00e1 BODY_00d8:
00e1 4800 |H | Short_Literal 0x0
00e2 4801 |H | Short_Literal 0x1
00e3 e20f | | Load 0x1,0xf
00e4 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
00e5 00d8 | | Load_Top At_Offset_0
00e6 0227 | ' | Execute Access,All_Reference
00e7 1c00 | | Execute_Immediate Run_Utility,0x0
00e8 0039 | 9 | Store_Top Access,At_Offset_1
00e9 e5ff | | Load 0x2,-0x1
00ea 00d8 | | Load_Top At_Offset_0
00eb 0d05 | | Execute_Immediate Less,0x5
00ec 7040 |p@ | Jump_Nonzero 0x12d
00ed 00d8 | | Load_Top At_Offset_0
00ee 0c14 | | Execute_Immediate Greater_Equal,0x14
00ef 7038 |p8 | Jump_Nonzero 0x128
00f0 0afb | | Execute_Immediate Plus,-0x5
00f1 460e |F | Jump_Case 0xf
00f2 783c |x< | Jump 0x12f ; case 0x0
00f3 780d |x | Jump 0x101 ; case 0x1
00f4 780c |x | Jump 0x101 ; case 0x2
00f5 78b3 |x | Jump 0x1a9 ; case 0x3
00f6 78b2 |x | Jump 0x1a9 ; case 0x4
00f7 78b1 |x | Jump 0x1a9 ; case 0x5
00f8 78b0 |x | Jump 0x1a9 ; case 0x6
00f9 78af |x | Jump 0x1a9 ; case 0x7
00fa 7859 |xY | Jump 0x154 ; case 0x8
00fb 7858 |xX | Jump 0x154 ; case 0x9
00fc 7832 |x2 | Jump 0x12f ; case 0xa
00fd 7856 |xV | Jump 0x154 ; case 0xb
00fe 7855 |xU | Jump 0x154 ; case 0xc
00ff 7801 |x | Jump 0x101 ; case 0xd
0100 7800 |x | Jump 0x101 ; case 0xe
0101 4800 |H | Short_Literal 0x0
0102 e21f | | Load 0x1,0x1f
0103 1c08 | | Execute_Immediate Run_Utility,0x8
0104 00d8 | | Load_Top At_Offset_0
0105 1c01 | | Execute_Immediate Run_Utility,0x1
0106 4802 |H | Short_Literal 0x2
0107 00d9 | | Load_Top At_Offset_1
0108 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0109 e5ff | | Load 0x2,-0x1
010a 00d9 | | Load_Top At_Offset_1
010b 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
010c e5fe | | Load 0x2,-0x2
010d 00d9 | | Load_Top At_Offset_1
010e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
010f e5fd | | Load 0x2,-0x3
0110 00d9 | | Load_Top At_Offset_1
0111 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0112 00d9 | | Load_Top At_Offset_1
0113 0228 | ( | Execute Access,All_Write
0114 e5fe | | Load 0x2,-0x2
0115 821b | | Call 0x1,0x1b
0116 0e02 | | Execute_Immediate Not_Equal,0x2
0117 e5fd | | Load 0x2,-0x3
0118 821b | | Call 0x1,0x1b
0119 0e02 | | Execute_Immediate Not_Equal,0x2
011a 0278 | x | Execute Discrete,Or
011b 688d |h | Jump_Zero 0x1a9
011c 0092 0a41 | A| Action Push_String_Extended,0xa41 ; "Op Arithmetique: TYPES INCOMPATIBLES ("
011e e5ff | | Load 0x2,-0x1
011f e002 | | Load 0x0,0x2
0120 011c | | Execute Any,Convert_Unchecked
0121 1c01 | | Execute_Immediate Run_Utility,0x1
0122 01cc | | Execute Vector,Catenate
0123 0092 0a42 | B| Action Push_String_Extended,0xa42 ; ")"
0125 01cc | | Execute Vector,Catenate
0126 8007 | | Call 0x0,0x7
0127 7881 |x | Jump 0x1a9
0128 4844 |HD | Short_Literal 0x44
0129 4845 |HE | Short_Literal 0x45
012a 0262 | b | Execute Discrete,In_Range
012b 704f |pO | Jump_Nonzero 0x17b
012c 787c |x| | Jump 0x1a9
012d 00d1 | | Pop_Control Pop_Count_1
012e 787a |xz | Jump 0x1a9
012f 4800 |H | Short_Literal 0x0
0130 e21f | | Load 0x1,0x1f
0131 1c08 | | Execute_Immediate Run_Utility,0x8
0132 00d8 | | Load_Top At_Offset_0
0133 1c01 | | Execute_Immediate Run_Utility,0x1
0134 4803 |H | Short_Literal 0x3
0135 00d9 | | Load_Top At_Offset_1
0136 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0137 e5ff | | Load 0x2,-0x1
0138 00d9 | | Load_Top At_Offset_1
0139 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
013a e5fe | | Load 0x2,-0x2
013b 00d9 | | Load_Top At_Offset_1
013c 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
013d e5fd | | Load 0x2,-0x3
013e 00d9 | | Load_Top At_Offset_1
013f 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0140 00d9 | | Load_Top At_Offset_1
0141 0228 | ( | Execute Access,All_Write
0142 e5fe | | Load 0x2,-0x2
0143 821b | | Call 0x1,0x1b
0144 e5fd | | Load 0x2,-0x3
0145 821b | | Call 0x1,0x1b
0146 027e | ~ | Execute Discrete,Not_Equal
0147 6861 |ha | Jump_Zero 0x1a9
0148 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Op Test: TYPES INCOMPATIBLES ("
014a e5ff | | Load 0x2,-0x1
014b e002 | | Load 0x0,0x2
014c 011c | | Execute Any,Convert_Unchecked
014d 1c01 | | Execute_Immediate Run_Utility,0x1
014e 01cc | | Execute Vector,Catenate
014f 0092 0a42 | B| Action Push_String_Extended,0xa42 ; ")"
0151 01cc | | Execute Vector,Catenate
0152 8007 | | Call 0x0,0x7
0153 7855 |xU | Jump 0x1a9
0154 4800 |H | Short_Literal 0x0
0155 e21f | | Load 0x1,0x1f
0156 1c08 | | Execute_Immediate Run_Utility,0x8
0157 00d8 | | Load_Top At_Offset_0
0158 1c01 | | Execute_Immediate Run_Utility,0x1
0159 4803 |H | Short_Literal 0x3
015a 00d9 | | Load_Top At_Offset_1
015b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
015c e5ff | | Load 0x2,-0x1
015d 00d9 | | Load_Top At_Offset_1
015e 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
015f e5fe | | Load 0x2,-0x2
0160 00d9 | | Load_Top At_Offset_1
0161 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0162 e5fd | | Load 0x2,-0x3
0163 00d9 | | Load_Top At_Offset_1
0164 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0165 00d9 | | Load_Top At_Offset_1
0166 0228 | ( | Execute Access,All_Write
0167 e5fe | | Load 0x2,-0x2
0168 821b | | Call 0x1,0x1b
0169 0e02 | | Execute_Immediate Not_Equal,0x2
016a e5fd | | Load 0x2,-0x3
016b 821b | | Call 0x1,0x1b
016c 0e02 | | Execute_Immediate Not_Equal,0x2
016d 0278 | x | Execute Discrete,Or
016e 683a |h: | Jump_Zero 0x1a9
016f 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Op Test: TYPES INCOMPATIBLES ("
0171 e5ff | | Load 0x2,-0x1
0172 e002 | | Load 0x0,0x2
0173 011c | | Execute Any,Convert_Unchecked
0174 1c01 | | Execute_Immediate Run_Utility,0x1
0175 01cc | | Execute Vector,Catenate
0176 0092 0a42 | B| Action Push_String_Extended,0xa42 ; ")"
0178 01cc | | Execute Vector,Catenate
0179 8007 | | Call 0x0,0x7
017a 782e |x. | Jump 0x1a9
017b 4800 |H | Short_Literal 0x0
017c e21f | | Load 0x1,0x1f
017d 1c08 | | Execute_Immediate Run_Utility,0x8
017e 00d8 | | Load_Top At_Offset_0
017f 1c01 | | Execute_Immediate Run_Utility,0x1
0180 4803 |H | Short_Literal 0x3
0181 00d9 | | Load_Top At_Offset_1
0182 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0183 e5ff | | Load 0x2,-0x1
0184 00d9 | | Load_Top At_Offset_1
0185 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0186 e5fe | | Load 0x2,-0x2
0187 00d9 | | Load_Top At_Offset_1
0188 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0189 e5fd | | Load 0x2,-0x3
018a 00d9 | | Load_Top At_Offset_1
018b 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
018c 00d9 | | Load_Top At_Offset_1
018d 0228 | ( | Execute Access,All_Write
018e e5fe | | Load 0x2,-0x2
018f 821b | | Call 0x1,0x1b
0190 0e03 | | Execute_Immediate Not_Equal,0x3
0191 e5fe | | Load 0x2,-0x2
0192 821b | | Call 0x1,0x1b
0193 0e05 | | Execute_Immediate Not_Equal,0x5
0194 0279 | y | Execute Discrete,And
0195 e5fd | | Load 0x2,-0x3
0196 821b | | Call 0x1,0x1b
0197 0e03 | | Execute_Immediate Not_Equal,0x3
0198 e5fd | | Load 0x2,-0x3
0199 821b | | Call 0x1,0x1b
019a 0e05 | | Execute_Immediate Not_Equal,0x5
019b 0279 | y | Execute Discrete,And
019c 0278 | x | Execute Discrete,Or
019d 680b |h | Jump_Zero 0x1a9
019e 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "Op Binaire: TYPES INCOMPATIBLES ("
01a0 e5ff | | Load 0x2,-0x1
01a1 e002 | | Load 0x0,0x2
01a2 011c | | Execute Any,Convert_Unchecked
01a3 1c01 | | Execute_Immediate Run_Utility,0x1
01a4 01cc | | Execute Vector,Catenate
01a5 0092 0a42 | B| Action Push_String_Extended,0xa42 ; ")"
01a7 01cc | | Execute Vector,Catenate
01a8 8007 | | Call 0x0,0x7
01a9 00d8 | | Load_Top At_Offset_0
01aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 e20f | | Load 0x1,0xf
01b4 0007 | | Action Break_Optional
01b5 BODY_01b0:
01b5 4801 |H | Short_Literal 0x1
01b6 4802 |H | Short_Literal 0x2
01b7 e20f | | Load 0x1,0xf
01b8 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
01b9 00d8 | | Load_Top At_Offset_0
01ba 0227 | ' | Execute Access,All_Reference
01bb 1c00 | | Execute_Immediate Run_Utility,0x0
01bc 0039 | 9 | Store_Top Access,At_Offset_1
01bd 00db | | Load_Top At_Offset_3
01be 0f43 | C | Execute_Immediate Equal,0x43
01bf 7001 |p | Jump_Nonzero 0x1c1
01c0 7817 |x | Jump 0x1d8
01c1 4801 |H | Short_Literal 0x1
01c2 e21f | | Load 0x1,0x1f
01c3 1c08 | | Execute_Immediate Run_Utility,0x8
01c4 00d8 | | Load_Top At_Offset_0
01c5 1c01 | | Execute_Immediate Run_Utility,0x1
01c6 4803 |H | Short_Literal 0x3
01c7 00d9 | | Load_Top At_Offset_1
01c8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01c9 e5ff | | Load 0x2,-0x1
01ca 00d9 | | Load_Top At_Offset_1
01cb 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01cc e5fe | | Load 0x2,-0x2
01cd 00d9 | | Load_Top At_Offset_1
01ce 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
01cf 00d9 | | Load_Top At_Offset_1
01d0 0228 | ( | Execute Access,All_Write
01d1 e5fe | | Load 0x2,-0x2
01d2 821b | | Call 0x1,0x1b
01d3 0e03 | | Execute_Immediate Not_Equal,0x3
01d4 6803 |h | Jump_Zero 0x1d8
01d5 0092 0a45 | E| Action Push_String_Extended,0xa45 ; "Op Unaire: TYPES INCOMPATIBLES"
01d7 8007 | | Call 0x0,0x7
01d8 00d8 | | Load_Top At_Offset_0
01d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5 | | .CONST 0x01e5 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e20f | | Load 0x1,0xf
01e4 0007 | | Action Break_Optional
01e5 BODY_01e0:
01e5 4802 |H | Short_Literal 0x2
01e6 4803 |H | Short_Literal 0x3
01e7 e20f | | Load 0x1,0xf
01e8 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
01e9 00d8 | | Load_Top At_Offset_0
01ea 0227 | ' | Execute Access,All_Reference
01eb 1c00 | | Execute_Immediate Run_Utility,0x0
01ec 0039 | 9 | Store_Top Access,At_Offset_1
01ed 4802 |H | Short_Literal 0x2
01ee e21f | | Load 0x1,0x1f
01ef 1c08 | | Execute_Immediate Run_Utility,0x8
01f0 00d8 | | Load_Top At_Offset_0
01f1 1c01 | | Execute_Immediate Run_Utility,0x1
01f2 4802 |H | Short_Literal 0x2
01f3 00d9 | | Load_Top At_Offset_1
01f4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f5 e5ff | | Load 0x2,-0x1
01f6 00d9 | | Load_Top At_Offset_1
01f7 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
01f8 00d9 | | Load_Top At_Offset_1
01f9 0228 | ( | Execute Access,All_Write
01fa 00d8 | | Load_Top At_Offset_0
01fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0205 | | .CONST 0x0205 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e20f | | Load 0x1,0xf
0204 0007 | | Action Break_Optional
0205 BODY_0200:
0205 00db | | Load_Top At_Offset_3
0206 00d8 | | Load_Top At_Offset_0
0207 482d |H- | Short_Literal 0x2d
0208 482e |H. | Short_Literal 0x2e
0209 0262 | b | Execute Discrete,In_Range
020a 7032 |p2 | Jump_Nonzero 0x23d
020b 0b2f | / | Execute_Immediate Case_Compare,0x2f
020c 7003 |p | Jump_Nonzero 0x210
020d 0f30 | 0 | Execute_Immediate Equal,0x30
020e 7018 |p | Jump_Nonzero 0x227
020f 7843 |xC | Jump 0x253
0210 00d1 | | Pop_Control Pop_Count_1
0211 4803 |H | Short_Literal 0x3
0212 4804 |H | Short_Literal 0x4
0213 e20f | | Load 0x1,0xf
0214 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0215 00d8 | | Load_Top At_Offset_0
0216 0227 | ' | Execute Access,All_Reference
0217 1c00 | | Execute_Immediate Run_Utility,0x0
0218 0039 | 9 | Store_Top Access,At_Offset_1
0219 4803 |H | Short_Literal 0x3
021a e21f | | Load 0x1,0x1f
021b 1c08 | | Execute_Immediate Run_Utility,0x8
021c 00d8 | | Load_Top At_Offset_0
021d 1c01 | | Execute_Immediate Run_Utility,0x1
021e 4803 |H | Short_Literal 0x3
021f 00d9 | | Load_Top At_Offset_1
0220 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0221 4801 |H | Short_Literal 0x1
0222 00d9 | | Load_Top At_Offset_1
0223 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0224 00d9 | | Load_Top At_Offset_1
0225 0228 | ( | Execute Access,All_Write
0226 782c |x, | Jump 0x253
0227 4803 |H | Short_Literal 0x3
0228 4804 |H | Short_Literal 0x4
0229 e20f | | Load 0x1,0xf
022a 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
022b 00d8 | | Load_Top At_Offset_0
022c 0227 | ' | Execute Access,All_Reference
022d 1c00 | | Execute_Immediate Run_Utility,0x0
022e 0039 | 9 | Store_Top Access,At_Offset_1
022f 4803 |H | Short_Literal 0x3
0230 e21f | | Load 0x1,0x1f
0231 1c08 | | Execute_Immediate Run_Utility,0x8
0232 00d8 | | Load_Top At_Offset_0
0233 1c01 | | Execute_Immediate Run_Utility,0x1
0234 4803 |H | Short_Literal 0x3
0235 00d9 | | Load_Top At_Offset_1
0236 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0237 4800 |H | Short_Literal 0x0
0238 00d9 | | Load_Top At_Offset_1
0239 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
023a 00d9 | | Load_Top At_Offset_1
023b 0228 | ( | Execute Access,All_Write
023c 7816 |x | Jump 0x253
023d 00d1 | | Pop_Control Pop_Count_1
023e 4804 |H | Short_Literal 0x4
023f 4805 |H | Short_Literal 0x5
0240 e20f | | Load 0x1,0xf
0241 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0242 00d8 | | Load_Top At_Offset_0
0243 0227 | ' | Execute Access,All_Reference
0244 1c00 | | Execute_Immediate Run_Utility,0x0
0245 0039 | 9 | Store_Top Access,At_Offset_1
0246 4804 |H | Short_Literal 0x4
0247 e21f | | Load 0x1,0x1f
0248 1c08 | | Execute_Immediate Run_Utility,0x8
0249 00d8 | | Load_Top At_Offset_0
024a 1c01 | | Execute_Immediate Run_Utility,0x1
024b 4804 |H | Short_Literal 0x4
024c 00d9 | | Load_Top At_Offset_1
024d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
024e e5ff | | Load 0x2,-0x1
024f 00d9 | | Load_Top At_Offset_1
0250 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
0251 00d9 | | Load_Top At_Offset_1
0252 0228 | ( | Execute Access,All_Write
0253 00d8 | | Load_Top At_Offset_0
0254 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0269 | i | .CONST 0x0269 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0004 | | .CONST 0x0004 ; Number of locals
025b INIT_0258:
025b e20f | | Load 0x1,0xf
025c 0007 | | Action Break_Optional
025d 4820 |H | Short_Literal 0x20
025e e003 | | Load 0x0,0x3
025f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0260 1c08 | | Execute_Immediate Run_Utility,0x8
0261 00d8 | | Load_Top At_Offset_0
0262 1c00 | | Execute_Immediate Run_Utility,0x0
0263 4820 |H | Short_Literal 0x20
0264 e003 | | Load 0x0,0x3
0265 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0266 1c08 | | Execute_Immediate Run_Utility,0x8
0267 00d8 | | Load_Top At_Offset_0
0268 1c00 | | Execute_Immediate Run_Utility,0x0
0269 BODY_0258:
0269 00d9 | | Load_Top At_Offset_1
026a e003 | | Load 0x0,0x3
026b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
026c 00d1 | | Pop_Control Pop_Count_1
026d 00d9 | | Load_Top At_Offset_1
026e e5ff | | Load 0x2,-0x1
026f e003 | | Load 0x0,0x3
0270 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0271 00d1 | | Pop_Control Pop_Count_1
0272 00d8 | | Load_Top At_Offset_0
0273 e003 | | Load 0x0,0x3
0274 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0275 00d1 | | Pop_Control Pop_Count_1
0276 00d8 | | Load_Top At_Offset_0
0277 e5fe | | Load 0x2,-0x2
0278 e003 | | Load 0x0,0x3
0279 1810 | | Execute Package,Field_Execute,Field_Number 0x10
027a 00d1 | | Pop_Control Pop_Count_1
027b 00d8 | | Load_Top At_Offset_0
027c e003 | | Load 0x0,0x3
027d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
027e 7047 |pG | Jump_Nonzero 0x2c6
027f e5ff | | Load 0x2,-0x1
0280 e5fd | | Load 0x2,-0x3
0281 e5fc | | Load 0x2,-0x4
0282 8008 | | Call 0x0,0x8
0283 0092 0a46 | F| Action Push_String_Extended,0xa46 ; "ENUMERE"
0285 01df | | Execute Vector,Equal
0286 681a |h | Jump_Zero 0x2a1
0287 4802 |H | Short_Literal 0x2
0288 4803 |H | Short_Literal 0x3
0289 e20f | | Load 0x1,0xf
028a 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
028b 00d8 | | Load_Top At_Offset_0
028c 0227 | ' | Execute Access,All_Reference
028d 1c00 | | Execute_Immediate Run_Utility,0x0
028e 003b | ; | Store_Top Access,At_Offset_3
028f 4802 |H | Short_Literal 0x2
0290 e21f | | Load 0x1,0x1f
0291 1c08 | | Execute_Immediate Run_Utility,0x8
0292 00d8 | | Load_Top At_Offset_0
0293 1c01 | | Execute_Immediate Run_Utility,0x1
0294 4801 |H | Short_Literal 0x1
0295 00d9 | | Load_Top At_Offset_1
0296 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0297 e5ff | | Load 0x2,-0x1
0298 00d8 | | Load_Top At_Offset_0
0299 e5fd | | Load 0x2,-0x3
029a e5fc | | Load 0x2,-0x4
029b 8009 | | Call 0x0,0x9
029c 00d9 | | Load_Top At_Offset_1
029d 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
029e 00db | | Load_Top At_Offset_3
029f 0228 | ( | Execute Access,All_Write
02a0 786a |xj | Jump 0x30b
02a1 e5ff | | Load 0x2,-0x1
02a2 e5fd | | Load 0x2,-0x3
02a3 e5fc | | Load 0x2,-0x4
02a4 8008 | | Call 0x0,0x8
02a5 0092 0a47 | G| Action Push_String_Extended,0xa47 ; "STRUCTURE"
02a7 01df | | Execute Vector,Equal
02a8 6819 |h | Jump_Zero 0x2c2
02a9 4805 |H | Short_Literal 0x5
02aa 4806 |H | Short_Literal 0x6
02ab e20f | | Load 0x1,0xf
02ac 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
02ad 00d8 | | Load_Top At_Offset_0
02ae 0227 | ' | Execute Access,All_Reference
02af 1c00 | | Execute_Immediate Run_Utility,0x0
02b0 003b | ; | Store_Top Access,At_Offset_3
02b1 4805 |H | Short_Literal 0x5
02b2 e21f | | Load 0x1,0x1f
02b3 1c08 | | Execute_Immediate Run_Utility,0x8
02b4 00d8 | | Load_Top At_Offset_0
02b5 1c01 | | Execute_Immediate Run_Utility,0x1
02b6 4800 |H | Short_Literal 0x0
02b7 00d9 | | Load_Top At_Offset_1
02b8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b9 00da | | Load_Top At_Offset_2
02ba 00d9 | | Load_Top At_Offset_1
02bb 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
02bc 00d9 | | Load_Top At_Offset_1
02bd 00d9 | | Load_Top At_Offset_1
02be 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
02bf 00db | | Load_Top At_Offset_3
02c0 0228 | ( | Execute Access,All_Write
02c1 7849 |xI | Jump 0x30b
02c2 0092 0a48 | H| Action Push_String_Extended,0xa48 ; "Manque Extension !!!"
02c4 8007 | | Call 0x0,0x7
02c5 7845 |xE | Jump 0x30b
02c6 4805 |H | Short_Literal 0x5
02c7 4806 |H | Short_Literal 0x6
02c8 e20f | | Load 0x1,0xf
02c9 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
02ca 00d8 | | Load_Top At_Offset_0
02cb 0227 | ' | Execute Access,All_Reference
02cc 1c00 | | Execute_Immediate Run_Utility,0x0
02cd 003b | ; | Store_Top Access,At_Offset_3
02ce 4805 |H | Short_Literal 0x5
02cf e21f | | Load 0x1,0x1f
02d0 1c08 | | Execute_Immediate Run_Utility,0x8
02d1 00d8 | | Load_Top At_Offset_0
02d2 1c01 | | Execute_Immediate Run_Utility,0x1
02d3 4806 |H | Short_Literal 0x6
02d4 00d9 | | Load_Top At_Offset_1
02d5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02d6 00da | | Load_Top At_Offset_2
02d7 00d9 | | Load_Top At_Offset_1
02d8 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
02d9 00d9 | | Load_Top At_Offset_1
02da 00d9 | | Load_Top At_Offset_1
02db 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
02dc 00db | | Load_Top At_Offset_3
02dd 0228 | ( | Execute Access,All_Write
02de e5fe | | Load 0x2,-0x2
02df e5ff | | Load 0x2,-0x1
02e0 e5fd | | Load 0x2,-0x3
02e1 e5fc | | Load 0x2,-0x4
02e2 800a | | Call 0x0,0xa
02e3 0092 0a49 | I| Action Push_String_Extended,0xa49 ; "ENTIER"
02e5 01df | | Execute Vector,Equal
02e6 6805 |h | Jump_Zero 0x2ec
02e7 4802 |H | Short_Literal 0x2
02e8 00db | | Load_Top At_Offset_3
02e9 0227 | ' | Execute Access,All_Reference
02ea 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02eb 781f |x | Jump 0x30b
02ec e5fe | | Load 0x2,-0x2
02ed e5ff | | Load 0x2,-0x1
02ee e5fd | | Load 0x2,-0x3
02ef e5fc | | Load 0x2,-0x4
02f0 800a | | Call 0x0,0xa
02f1 0092 0a4a | J| Action Push_String_Extended,0xa4a ; "BOOLEEN"
02f3 01df | | Execute Vector,Equal
02f4 6805 |h | Jump_Zero 0x2fa
02f5 4803 |H | Short_Literal 0x3
02f6 00db | | Load_Top At_Offset_3
02f7 0227 | ' | Execute Access,All_Reference
02f8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02f9 7811 |x | Jump 0x30b
02fa e5fe | | Load 0x2,-0x2
02fb e5ff | | Load 0x2,-0x1
02fc e5fd | | Load 0x2,-0x3
02fd e5fc | | Load 0x2,-0x4
02fe 800a | | Call 0x0,0xa
02ff 0092 0a46 | F| Action Push_String_Extended,0xa46 ; "ENUMERE"
0301 01df | | Execute Vector,Equal
0302 6805 |h | Jump_Zero 0x308
0303 4801 |H | Short_Literal 0x1
0304 00db | | Load_Top At_Offset_3
0305 0227 | ' | Execute Access,All_Reference
0306 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0307 7803 |x | Jump 0x30b
0308 0092 0a4b | K| Action Push_String_Extended,0xa4b ; "Uniquement des Entiers/Booleens/Enumeres dans les expressions!!!"
030a 8007 | | Call 0x0,0x7
030b 00da | | Load_Top At_Offset_2
030c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0321 | ! | .CONST 0x0321 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0004 | | .CONST 0x0004 ; Number of locals
0313 INIT_0310:
0313 e20f | | Load 0x1,0xf
0314 0007 | | Action Break_Optional
0315 4820 |H | Short_Literal 0x20
0316 e003 | | Load 0x0,0x3
0317 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0318 1c08 | | Execute_Immediate Run_Utility,0x8
0319 00d8 | | Load_Top At_Offset_0
031a 1c00 | | Execute_Immediate Run_Utility,0x0
031b 4820 |H | Short_Literal 0x20
031c e003 | | Load 0x0,0x3
031d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031e 1c08 | | Execute_Immediate Run_Utility,0x8
031f 00d8 | | Load_Top At_Offset_0
0320 1c00 | | Execute_Immediate Run_Utility,0x0
0321 BODY_0310:
0321 4806 |H | Short_Literal 0x6
0322 4807 |H | Short_Literal 0x7
0323 e20f | | Load 0x1,0xf
0324 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0325 00d8 | | Load_Top At_Offset_0
0326 0227 | ' | Execute Access,All_Reference
0327 1c00 | | Execute_Immediate Run_Utility,0x0
0328 003b | ; | Store_Top Access,At_Offset_3
0329 00d9 | | Load_Top At_Offset_1
032a e003 | | Load 0x0,0x3
032b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
032c 00d1 | | Pop_Control Pop_Count_1
032d 00d9 | | Load_Top At_Offset_1
032e e5fe | | Load 0x2,-0x2
032f e003 | | Load 0x0,0x3
0330 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0331 00d1 | | Pop_Control Pop_Count_1
0332 00d8 | | Load_Top At_Offset_0
0333 e003 | | Load 0x0,0x3
0334 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0335 00d1 | | Pop_Control Pop_Count_1
0336 00d8 | | Load_Top At_Offset_0
0337 e5fd | | Load 0x2,-0x3
0338 e003 | | Load 0x0,0x3
0339 1810 | | Execute Package,Field_Execute,Field_Number 0x10
033a 00d1 | | Pop_Control Pop_Count_1
033b e5ff | | Load 0x2,-0x1
033c 00d8 | | Load_Top At_Offset_0
033d 0d26 | & | Execute_Immediate Less,0x26
033e 7027 |p' | Jump_Nonzero 0x366
033f 0ada | | Execute_Immediate Plus,-0x26
0340 4623 |F# | Jump_Case 0x24
0341 7826 |x& | Jump 0x368 ; case 0x0
0342 7860 |x` | Jump 0x3a3 ; case 0x1
0343 784c |xL | Jump 0x390 ; case 0x2
0344 785e |x^ | Jump 0x3a3 ; case 0x3
0345 785d |x] | Jump 0x3a3 ; case 0x4
0346 785c |x\ | Jump 0x3a3 ; case 0x5
0347 785b |x[ | Jump 0x3a3 ; case 0x6
0348 785a |xZ | Jump 0x3a3 ; case 0x7
0349 7859 |xY | Jump 0x3a3 ; case 0x8
034a 7858 |xX | Jump 0x3a3 ; case 0x9
034b 7857 |xW | Jump 0x3a3 ; case 0xa
034c 7856 |xV | Jump 0x3a3 ; case 0xb
034d 7855 |xU | Jump 0x3a3 ; case 0xc
034e 7841 |xA | Jump 0x390 ; case 0xd
034f 7818 |x | Jump 0x368 ; case 0xe
0350 7852 |xR | Jump 0x3a3 ; case 0xf
0351 782a |x* | Jump 0x37c ; case 0x10
0352 7850 |xP | Jump 0x3a3 ; case 0x11
0353 784f |xO | Jump 0x3a3 ; case 0x12
0354 784e |xN | Jump 0x3a3 ; case 0x13
0355 784d |xM | Jump 0x3a3 ; case 0x14
0356 784c |xL | Jump 0x3a3 ; case 0x15
0357 784b |xK | Jump 0x3a3 ; case 0x16
0358 784a |xJ | Jump 0x3a3 ; case 0x17
0359 7849 |xI | Jump 0x3a3 ; case 0x18
035a 7848 |xH | Jump 0x3a3 ; case 0x19
035b 7847 |xG | Jump 0x3a3 ; case 0x1a
035c 7846 |xF | Jump 0x3a3 ; case 0x1b
035d 7845 |xE | Jump 0x3a3 ; case 0x1c
035e 7844 |xD | Jump 0x3a3 ; case 0x1d
035f 7843 |xC | Jump 0x3a3 ; case 0x1e
0360 7842 |xB | Jump 0x3a3 ; case 0x1f
0361 7841 |xA | Jump 0x3a3 ; case 0x20
0362 7840 |x@ | Jump 0x3a3 ; case 0x21
0363 783f |x? | Jump 0x3a3 ; case 0x22
0364 783e |x> | Jump 0x3a3 ; case 0x23
0365 783d |x= | .XXX[0x1]
0366 00d1 | | Pop_Control Pop_Count_1
0367 783b |x; | Jump 0x3a3
0368 4806 |H | Short_Literal 0x6
0369 e21f | | Load 0x1,0x1f
036a 1c08 | | Execute_Immediate Run_Utility,0x8
036b 00d8 | | Load_Top At_Offset_0
036c 1c01 | | Execute_Immediate Run_Utility,0x1
036d 4804 |H | Short_Literal 0x4
036e 00d9 | | Load_Top At_Offset_1
036f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0370 e5ff | | Load 0x2,-0x1
0371 00d9 | | Load_Top At_Offset_1
0372 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0373 00da | | Load_Top At_Offset_2
0374 00d9 | | Load_Top At_Offset_1
0375 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
0376 00d9 | | Load_Top At_Offset_1
0377 00d9 | | Load_Top At_Offset_1
0378 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
0379 00db | | Load_Top At_Offset_3
037a 0228 | ( | Execute Access,All_Write
037b 7827 |x' | Jump 0x3a3
037c 4806 |H | Short_Literal 0x6
037d e21f | | Load 0x1,0x1f
037e 1c08 | | Execute_Immediate Run_Utility,0x8
037f 00d8 | | Load_Top At_Offset_0
0380 1c01 | | Execute_Immediate Run_Utility,0x1
0381 4800 |H | Short_Literal 0x0
0382 00d9 | | Load_Top At_Offset_1
0383 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0384 e5ff | | Load 0x2,-0x1
0385 00d9 | | Load_Top At_Offset_1
0386 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0387 00da | | Load_Top At_Offset_2
0388 00d9 | | Load_Top At_Offset_1
0389 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
038a 00d9 | | Load_Top At_Offset_1
038b 00d9 | | Load_Top At_Offset_1
038c 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
038d 00db | | Load_Top At_Offset_3
038e 0228 | ( | Execute Access,All_Write
038f 7813 |x | Jump 0x3a3
0390 4806 |H | Short_Literal 0x6
0391 e21f | | Load 0x1,0x1f
0392 1c08 | | Execute_Immediate Run_Utility,0x8
0393 00d8 | | Load_Top At_Offset_0
0394 1c01 | | Execute_Immediate Run_Utility,0x1
0395 4803 |H | Short_Literal 0x3
0396 00d9 | | Load_Top At_Offset_1
0397 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0398 e5ff | | Load 0x2,-0x1
0399 00d9 | | Load_Top At_Offset_1
039a 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
039b 00da | | Load_Top At_Offset_2
039c 00d9 | | Load_Top At_Offset_1
039d 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
039e 00d9 | | Load_Top At_Offset_1
039f 00d9 | | Load_Top At_Offset_1
03a0 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
03a1 00db | | Load_Top At_Offset_3
03a2 0228 | ( | Execute Access,All_Write
03a3 00da | | Load_Top At_Offset_2
03a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03a5 0000 0000 | | .XXX[0x3]
03a7 0000 | |
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03c0 | | .CONST 0x03c0 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0006 | | .CONST 0x0006 ; Number of locals
03ab INIT_03a8:
03ab e20f | | Load 0x1,0xf
03ac 0007 | | Action Break_Optional
03ad 00e2 | | Load_Encached Integer_Cache
03ae 4820 |H | Short_Literal 0x20
03af e003 | | Load 0x0,0x3
03b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b1 1c08 | | Execute_Immediate Run_Utility,0x8
03b2 00d8 | | Load_Top At_Offset_0
03b3 1c00 | | Execute_Immediate Run_Utility,0x0
03b4 4820 |H | Short_Literal 0x20
03b5 e003 | | Load 0x0,0x3
03b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b7 1c08 | | Execute_Immediate Run_Utility,0x8
03b8 00d8 | | Load_Top At_Offset_0
03b9 1c00 | | Execute_Immediate Run_Utility,0x0
03ba 4820 |H | Short_Literal 0x20
03bb e003 | | Load 0x0,0x3
03bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03bd 1c08 | | Execute_Immediate Run_Utility,0x8
03be 00d8 | | Load_Top At_Offset_0
03bf 1c00 | | Execute_Immediate Run_Utility,0x0
03c0 BODY_03a8:
03c0 4807 |H | Short_Literal 0x7
03c1 4808 |H | Short_Literal 0x8
03c2 e20f | | Load 0x1,0xf
03c3 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
03c4 00d8 | | Load_Top At_Offset_0
03c5 0227 | ' | Execute Access,All_Reference
03c6 1c00 | | Execute_Immediate Run_Utility,0x0
03c7 a402 | | Store_Unchecked 0x2,0x2
03c8 00da | | Load_Top At_Offset_2
03c9 e003 | | Load 0x0,0x3
03ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03cb 00d1 | | Pop_Control Pop_Count_1
03cc 00da | | Load_Top At_Offset_2
03cd e5ff | | Load 0x2,-0x1
03ce e003 | | Load 0x0,0x3
03cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d0 00d1 | | Pop_Control Pop_Count_1
03d1 00d9 | | Load_Top At_Offset_1
03d2 e003 | | Load 0x0,0x3
03d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03d4 00d1 | | Pop_Control Pop_Count_1
03d5 00d9 | | Load_Top At_Offset_1
03d6 e5fe | | Load 0x2,-0x2
03d7 e003 | | Load 0x0,0x3
03d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d9 00d1 | | Pop_Control Pop_Count_1
03da 00d8 | | Load_Top At_Offset_0
03db e003 | | Load 0x0,0x3
03dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03dd 00d1 | | Pop_Control Pop_Count_1
03de 00d8 | | Load_Top At_Offset_0
03df e5fd | | Load 0x2,-0x3
03e0 e003 | | Load 0x0,0x3
03e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e2 00d1 | | Pop_Control Pop_Count_1
03e3 4800 |H | Short_Literal 0x0
03e4 a403 | | Store_Unchecked 0x2,0x3
03e5 00da | | Load_Top At_Offset_2
03e6 e003 | | Load 0x0,0x3
03e7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03e8 0c01 | | Execute_Immediate Greater_Equal,0x1
03e9 6810 |h | Jump_Zero 0x3fa
03ea 4801 |H | Short_Literal 0x1
03eb a403 | | Store_Unchecked 0x2,0x3
03ec 00d9 | | Load_Top At_Offset_1
03ed e003 | | Load 0x0,0x3
03ee 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03ef 0c01 | | Execute_Immediate Greater_Equal,0x1
03f0 6809 |h | Jump_Zero 0x3fa
03f1 4802 |H | Short_Literal 0x2
03f2 a403 | | Store_Unchecked 0x2,0x3
03f3 00d8 | | Load_Top At_Offset_0
03f4 e003 | | Load 0x0,0x3
03f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03f6 0c01 | | Execute_Immediate Greater_Equal,0x1
03f7 6802 |h | Jump_Zero 0x3fa
03f8 4803 |H | Short_Literal 0x3
03f9 a403 | | Store_Unchecked 0x2,0x3
03fa 4807 |H | Short_Literal 0x7
03fb e21f | | Load 0x1,0x1f
03fc 1c08 | | Execute_Immediate Run_Utility,0x8
03fd 00d8 | | Load_Top At_Offset_0
03fe 1c01 | | Execute_Immediate Run_Utility,0x1
03ff 4805 |H | Short_Literal 0x5
0400 00d9 | | Load_Top At_Offset_1
0401 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0402 e403 | | Load 0x2,0x3
0403 00d9 | | Load_Top At_Offset_1
0404 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
0405 00db | | Load_Top At_Offset_3
0406 00d9 | | Load_Top At_Offset_1
0407 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
0408 00da | | Load_Top At_Offset_2
0409 00d9 | | Load_Top At_Offset_1
040a 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
040b 00d9 | | Load_Top At_Offset_1
040c 00d9 | | Load_Top At_Offset_1
040d 2a13 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x13
040e e402 | | Load 0x2,0x2
040f 0228 | ( | Execute Access,All_Write
0410 e402 | | Load 0x2,0x2
0411 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0412 0000 0000 | | .BLANK 0000[0x6]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2
041c 0227 | ' | Execute Access,All_Reference
041d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
041e 4607 |F | Jump_Case 0x8
041f 780e |x | Jump 0x42e ; case 0x0
0420 7824 |x$ | Jump 0x445 ; case 0x1
0421 7805 |x | Jump 0x427 ; case 0x2
0422 7804 |x | Jump 0x427 ; case 0x3
0423 7803 |x | Jump 0x427 ; case 0x4
0424 7802 |x | Jump 0x427 ; case 0x5
0425 7801 |x | Jump 0x427 ; case 0x6
0426 7800 |x | Jump 0x427 ; case 0x7
0427 00da | | Load_Top At_Offset_2
0428 e220 | | Load 0x1,0x20
0429 e221 | ! | Load 0x1,0x21
042a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
042b 8004 | | Call 0x0,0x4
042c 003b | ; | Store_Top Access,At_Offset_3
042d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
042e 00da | | Load_Top At_Offset_2
042f 0229 | ) | Execute Access,All_Read
0430 00d8 | | Load_Top At_Offset_0
0431 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0432 8217 | | Call 0x1,0x17
0433 00d9 | | Load_Top At_Offset_1
0434 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0435 00d1 | | Pop_Control Pop_Count_1
0436 00da | | Load_Top At_Offset_2
0437 0229 | ) | Execute Access,All_Read
0438 00d8 | | Load_Top At_Offset_0
0439 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
043a 8217 | | Call 0x1,0x17
043b 00d9 | | Load_Top At_Offset_1
043c 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
043d 00d1 | | Pop_Control Pop_Count_1
043e 00da | | Load_Top At_Offset_2
043f e220 | | Load 0x1,0x20
0440 e221 | ! | Load 0x1,0x21
0441 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0442 8004 | | Call 0x0,0x4
0443 003b | ; | Store_Top Access,At_Offset_3
0444 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0445 00da | | Load_Top At_Offset_2
0446 0229 | ) | Execute Access,All_Read
0447 00d8 | | Load_Top At_Offset_0
0448 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0449 8217 | | Call 0x1,0x17
044a 00d9 | | Load_Top At_Offset_1
044b 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
044c 00d1 | | Pop_Control Pop_Count_1
044d 00da | | Load_Top At_Offset_2
044e e220 | | Load 0x1,0x20
044f e221 | ! | Load 0x1,0x21
0450 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0451 8004 | | Call 0x0,0x4
0452 003b | ; | Store_Top Access,At_Offset_3
0453 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045c | \ | .CONST 0x045c ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0002 | | .CONST 0x0002 ; Number of locals
045b INIT_0458:
045b 00e2 | | Load_Encached Integer_Cache
045c BODY_0458:
045c 00db | | Load_Top At_Offset_3
045d 0227 | ' | Execute Access,All_Reference
045e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
045f 0e02 | | Execute_Immediate Not_Equal,0x2
0460 e5ff | | Load 0x2,-0x1
0461 0227 | ' | Execute Access,All_Reference
0462 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0463 0e01 | | Execute_Immediate Not_Equal,0x1
0464 0279 | y | Execute Discrete,And
0465 6802 |h | Jump_Zero 0x468
0466 e20d | | Load 0x1,0xd
0467 0257 | W | Execute Discrete,Raise
0468 00db | | Load_Top At_Offset_3
0469 0227 | ' | Execute Access,All_Reference
046a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046b 4607 |F | Jump_Case 0x8
046c 781c |x | Jump 0x489 ; case 0x0
046d 788f |x | Jump 0x4fd ; case 0x1
046e 7806 |x | Jump 0x475 ; case 0x2
046f 788d |x | Jump 0x4fd ; case 0x3
0470 788c |x | Jump 0x4fd ; case 0x4
0471 7807 |x | Jump 0x479 ; case 0x5
0472 788a |x | Jump 0x4fd ; case 0x6
0473 7889 |x | Jump 0x4fd ; case 0x7
0474 7888 |x | .XXX[0x1]
0475 00db | | Load_Top At_Offset_3
0476 0227 | ' | Execute Access,All_Reference
0477 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0478 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0479 00db | | Load_Top At_Offset_3
047a 0227 | ' | Execute Access,All_Reference
047b 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
047c e003 | | Load 0x0,0x3
047d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047e e5ff | | Load 0x2,-0x1
047f 0227 | ' | Execute Access,All_Reference
0480 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
0481 e003 | | Load 0x0,0x3
0482 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0483 e5fe | | Load 0x2,-0x2
0484 e5fd | | Load 0x2,-0x3
0485 8009 | | Call 0x0,0x9
0486 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0487 00d8 | | Load_Top At_Offset_0
0488 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0489 00db | | Load_Top At_Offset_3
048a 0227 | ' | Execute Access,All_Reference
048b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
048c 00d8 | | Load_Top At_Offset_0
048d 0c14 | | Execute_Immediate Greater_Equal,0x14
048e 702c |p, | Jump_Nonzero 0x4bb
048f 4613 |F | Jump_Case 0x14
0490 786c |xl | Jump 0x4fd ; case 0x0
0491 786b |xk | Jump 0x4fd ; case 0x1
0492 786a |xj | Jump 0x4fd ; case 0x2
0493 7869 |xi | Jump 0x4fd ; case 0x3
0494 7868 |xh | Jump 0x4fd ; case 0x4
0495 7867 |xg | Jump 0x4fd ; case 0x5
0496 7826 |x& | Jump 0x4bd ; case 0x6
0497 783c |x< | Jump 0x4d4 ; case 0x7
0498 7864 |xd | Jump 0x4fd ; case 0x8
0499 7863 |xc | Jump 0x4fd ; case 0x9
049a 7862 |xb | Jump 0x4fd ; case 0xa
049b 7861 |xa | Jump 0x4fd ; case 0xb
049c 7860 |x` | Jump 0x4fd ; case 0xc
049d 785f |x_ | Jump 0x4fd ; case 0xd
049e 785e |x^ | Jump 0x4fd ; case 0xe
049f 785d |x] | Jump 0x4fd ; case 0xf
04a0 785c |x\ | Jump 0x4fd ; case 0x10
04a1 785b |x[ | Jump 0x4fd ; case 0x11
04a2 7843 |xC | Jump 0x4e6 ; case 0x12
04a3 7800 |x | Jump 0x4a4 ; case 0x13
04a4 e5fb | | Load 0x2,-0x5
04a5 e5fc | | Load 0x2,-0x4
04a6 e5fd | | Load 0x2,-0x3
04a7 e5fe | | Load 0x2,-0x2
04a8 e5ff | | Load 0x2,-0x1
04a9 0227 | ' | Execute Access,All_Reference
04aa 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04ab 8218 | | Call 0x1,0x18
04ac e5fb | | Load 0x2,-0x5
04ad e5fc | | Load 0x2,-0x4
04ae e5fd | | Load 0x2,-0x3
04af e5fe | | Load 0x2,-0x2
04b0 e5ff | | Load 0x2,-0x1
04b1 0227 | ' | Execute Access,All_Reference
04b2 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04b3 8218 | | Call 0x1,0x18
04b4 0272 | r | Execute Discrete,Minus
04b5 00d8 | | Load_Top At_Offset_0
04b6 00e2 | | Load_Encached Integer_Cache
04b7 0260 | ` | Execute Discrete,In_Type
04b8 7001 |p | Jump_Nonzero 0x4ba
04b9 0801 | | Execute_Immediate Raise,0x1
04ba 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
04bb 00d1 | | Pop_Control Pop_Count_1
04bc 7840 |x@ | Jump 0x4fd
04bd e5fb | | Load 0x2,-0x5
04be e5fc | | Load 0x2,-0x4
04bf e5fd | | Load 0x2,-0x3
04c0 e5fe | | Load 0x2,-0x2
04c1 e5ff | | Load 0x2,-0x1
04c2 0227 | ' | Execute Access,All_Reference
04c3 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04c4 8218 | | Call 0x1,0x18
04c5 e5fb | | Load 0x2,-0x5
04c6 e5fc | | Load 0x2,-0x4
04c7 e5fd | | Load 0x2,-0x3
04c8 e5fe | | Load 0x2,-0x2
04c9 e5ff | | Load 0x2,-0x1
04ca 0227 | ' | Execute Access,All_Reference
04cb 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04cc 8218 | | Call 0x1,0x18
04cd 0271 | q | Execute Discrete,Times
04ce 00d8 | | Load_Top At_Offset_0
04cf 00e2 | | Load_Encached Integer_Cache
04d0 0260 | ` | Execute Discrete,In_Type
04d1 7001 |p | Jump_Nonzero 0x4d3
04d2 0801 | | Execute_Immediate Raise,0x1
04d3 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
04d4 e5fb | | Load 0x2,-0x5
04d5 e5fc | | Load 0x2,-0x4
04d6 e5fd | | Load 0x2,-0x3
04d7 e5fe | | Load 0x2,-0x2
04d8 e5ff | | Load 0x2,-0x1
04d9 0227 | ' | Execute Access,All_Reference
04da 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04db 8218 | | Call 0x1,0x18
04dc e5fb | | Load 0x2,-0x5
04dd e5fc | | Load 0x2,-0x4
04de e5fd | | Load 0x2,-0x3
04df e5fe | | Load 0x2,-0x2
04e0 e5ff | | Load 0x2,-0x1
04e1 0227 | ' | Execute Access,All_Reference
04e2 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04e3 8218 | | Call 0x1,0x18
04e4 0270 | p | Execute Discrete,Divide
04e5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
04e6 e5fb | | Load 0x2,-0x5
04e7 e5fc | | Load 0x2,-0x4
04e8 e5fd | | Load 0x2,-0x3
04e9 e5fe | | Load 0x2,-0x2
04ea e5ff | | Load 0x2,-0x1
04eb 0227 | ' | Execute Access,All_Reference
04ec 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04ed 8218 | | Call 0x1,0x18
04ee e5fb | | Load 0x2,-0x5
04ef e5fc | | Load 0x2,-0x4
04f0 e5fd | | Load 0x2,-0x3
04f1 e5fe | | Load 0x2,-0x2
04f2 e5ff | | Load 0x2,-0x1
04f3 0227 | ' | Execute Access,All_Reference
04f4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04f5 8218 | | Call 0x1,0x18
04f6 0273 | s | Execute Discrete,Plus
04f7 00d8 | | Load_Top At_Offset_0
04f8 00e2 | | Load_Encached Integer_Cache
04f9 0260 | ` | Execute Discrete,In_Type
04fa 7001 |p | Jump_Nonzero 0x4fc
04fb 0801 | | Execute_Immediate Raise,0x1
04fc 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
04fd 0831 | 1 | Execute_Immediate Raise,0x31
04fe 0000 0000 | | .XXX[0x2]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0507 | | .CONST 0x0507 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0005 | | .CONST 0x0005 ; Number of locals
0503 INIT_0500:
0503 00e1 | | Load_Encached Boolean_Cache
0504 03e9 | | Declare_Variable Discrete,Duplicate
0505 00e2 | | Load_Encached Integer_Cache
0506 03e9 | | Declare_Variable Discrete,Duplicate
0507 BODY_0500:
0507 e5ff | | Load 0x2,-0x1
0508 0227 | ' | Execute Access,All_Reference
0509 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
050a 0e03 | | Execute_Immediate Not_Equal,0x3
050b e5ff | | Load 0x2,-0x1
050c 0227 | ' | Execute Access,All_Reference
050d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
050e 0e05 | | Execute_Immediate Not_Equal,0x5
050f 0279 | y | Execute Discrete,And
0510 6802 |h | Jump_Zero 0x513
0511 e20d | | Load 0x1,0xd
0512 0257 | W | Execute Discrete,Raise
0513 e5ff | | Load 0x2,-0x1
0514 0227 | ' | Execute Access,All_Reference
0515 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0516 4607 |F | Jump_Case 0x8
0517 78af |x | Jump 0x5c7 ; case 0x0
0518 781f |x | Jump 0x538 ; case 0x1
0519 798c |y | Jump 0x6a6 ; case 0x2
051a 782d |x- | Jump 0x548 ; case 0x3
051b 798a |y | Jump 0x6a6 ; case 0x4
051c 782f |x/ | Jump 0x54c ; case 0x5
051d 783e |x> | Jump 0x55c ; case 0x6
051e 7800 |x | Jump 0x51f ; case 0x7
051f 800b | | Call 0x0,0xb
0520 e5ff | | Load 0x2,-0x1
0521 0227 | ' | Execute Access,All_Reference
0522 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0523 027f | | Execute Discrete,Equal
0524 6811 |h | Jump_Zero 0x536
0525 e5ff | | Load 0x2,-0x1
0526 0227 | ' | Execute Access,All_Reference
0527 2613 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x13
0528 e003 | | Load 0x0,0x3
0529 1813 | | Execute Package,Field_Execute,Field_Number 0x13
052a e5ff | | Load 0x2,-0x1
052b 0227 | ' | Execute Access,All_Reference
052c 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
052d e003 | | Load 0x0,0x3
052e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
052f e5ff | | Load 0x2,-0x1
0530 0227 | ' | Execute Access,All_Reference
0531 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
0532 e003 | | Load 0x0,0x3
0533 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0534 800c | | Call 0x0,0xc
0535 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0536 4800 |H | Short_Literal 0x0
0537 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0538 e5ff | | Load 0x2,-0x1
0539 0227 | ' | Execute Access,All_Reference
053a 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
053b 0f43 | C | Execute_Immediate Equal,0x43
053c 7001 |p | Jump_Nonzero 0x53e
053d 7968 |yh | Jump 0x6a6
053e e5fb | | Load 0x2,-0x5
053f e5fc | | Load 0x2,-0x4
0540 e5fd | | Load 0x2,-0x3
0541 e5fe | | Load 0x2,-0x2
0542 e5ff | | Load 0x2,-0x1
0543 0227 | ' | Execute Access,All_Reference
0544 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0545 8219 | | Call 0x1,0x19
0546 0f00 | | Execute_Immediate Equal,0x0
0547 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0548 e5ff | | Load 0x2,-0x1
0549 0227 | ' | Execute Access,All_Reference
054a 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
054b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
054c e5ff | | Load 0x2,-0x1
054d 0227 | ' | Execute Access,All_Reference
054e 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
054f e003 | | Load 0x0,0x3
0550 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0551 e5ff | | Load 0x2,-0x1
0552 0227 | ' | Execute Access,All_Reference
0553 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
0554 e003 | | Load 0x0,0x3
0555 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0556 e5fe | | Load 0x2,-0x2
0557 e5fd | | Load 0x2,-0x3
0558 800d | | Call 0x0,0xd
0559 a402 | | Store_Unchecked 0x2,0x2
055a 00db | | Load_Top At_Offset_3
055b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
055c e5ff | | Load 0x2,-0x1
055d 0227 | ' | Execute Access,All_Reference
055e 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
055f 0b33 | 3 | Execute_Immediate Case_Compare,0x33
0560 7034 |p4 | Jump_Nonzero 0x595
0561 0f28 | ( | Execute_Immediate Equal,0x28
0562 7001 |p | Jump_Nonzero 0x564
0563 7942 |yB | Jump 0x6a6
0564 e5ff | | Load 0x2,-0x1
0565 0227 | ' | Execute Access,All_Reference
0566 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0567 e003 | | Load 0x0,0x3
0568 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0569 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
056b 01df | | Execute Vector,Equal
056c 6809 |h | Jump_Zero 0x576
056d e5fb | | Load 0x2,-0x5
056e e5ff | | Load 0x2,-0x1
056f 0227 | ' | Execute Access,All_Reference
0570 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0571 e003 | | Load 0x0,0x3
0572 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0573 800e | | Call 0x0,0xe
0574 800f | | Call 0x0,0xf
0575 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0576 e5ff | | Load 0x2,-0x1
0577 0227 | ' | Execute Access,All_Reference
0578 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0579 e003 | | Load 0x0,0x3
057a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
057b 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
057d 01df | | Execute Vector,Equal
057e 6809 |h | Jump_Zero 0x588
057f e5fb | | Load 0x2,-0x5
0580 800e | | Call 0x0,0xe
0581 e5ff | | Load 0x2,-0x1
0582 0227 | ' | Execute Access,All_Reference
0583 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0584 e003 | | Load 0x0,0x3
0585 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0586 800f | | Call 0x0,0xf
0587 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0588 e5fb | | Load 0x2,-0x5
0589 e5ff | | Load 0x2,-0x1
058a 0227 | ' | Execute Access,All_Reference
058b 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
058c e003 | | Load 0x0,0x3
058d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
058e e5ff | | Load 0x2,-0x1
058f 0227 | ' | Execute Access,All_Reference
0590 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0591 e003 | | Load 0x0,0x3
0592 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0593 800f | | Call 0x0,0xf
0594 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0595 00d1 | | Pop_Control Pop_Count_1
0596 e5ff | | Load 0x2,-0x1
0597 0227 | ' | Execute Access,All_Reference
0598 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0599 e003 | | Load 0x0,0x3
059a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059b 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
059d 01df | | Execute Vector,Equal
059e 6809 |h | Jump_Zero 0x5a8
059f e5fc | | Load 0x2,-0x4
05a0 e5ff | | Load 0x2,-0x1
05a1 0227 | ' | Execute Access,All_Reference
05a2 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
05a3 e003 | | Load 0x0,0x3
05a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05a5 800e | | Call 0x0,0xe
05a6 8010 | | Call 0x0,0x10
05a7 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
05a8 e5ff | | Load 0x2,-0x1
05a9 0227 | ' | Execute Access,All_Reference
05aa 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
05ab e003 | | Load 0x0,0x3
05ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ad 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
05af 01df | | Execute Vector,Equal
05b0 6809 |h | Jump_Zero 0x5ba
05b1 e5fc | | Load 0x2,-0x4
05b2 800e | | Call 0x0,0xe
05b3 e5ff | | Load 0x2,-0x1
05b4 0227 | ' | Execute Access,All_Reference
05b5 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
05b6 e003 | | Load 0x0,0x3
05b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b8 8010 | | Call 0x0,0x10
05b9 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
05ba e5fc | | Load 0x2,-0x4
05bb e5ff | | Load 0x2,-0x1
05bc 0227 | ' | Execute Access,All_Reference
05bd 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
05be e003 | | Load 0x0,0x3
05bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05c0 e5ff | | Load 0x2,-0x1
05c1 0227 | ' | Execute Access,All_Reference
05c2 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
05c3 e003 | | Load 0x0,0x3
05c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05c5 8010 | | Call 0x0,0x10
05c6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
05c7 e5ff | | Load 0x2,-0x1
05c8 0227 | ' | Execute Access,All_Reference
05c9 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05ca 0227 | ' | Execute Access,All_Reference
05cb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05cc 4606 |F | Jump_Case 0x7
05cd 786f |xo | Jump 0x63d ; case 0x0
05ce 784b |xK | Jump 0x61a ; case 0x1
05cf 7805 |x | Jump 0x5d5 ; case 0x2
05d0 789a |x | Jump 0x66b ; case 0x3
05d1 786b |xk | Jump 0x63d ; case 0x4
05d2 78d3 |x | Jump 0x6a6 ; case 0x5
05d3 78d2 |x | Jump 0x6a6 ; case 0x6
05d4 78d1 |x | .XXX[0x1]
05d5 e5fb | | Load 0x2,-0x5
05d6 e5fc | | Load 0x2,-0x4
05d7 e5fd | | Load 0x2,-0x3
05d8 e5fe | | Load 0x2,-0x2
05d9 e5ff | | Load 0x2,-0x1
05da 0227 | ' | Execute Access,All_Reference
05db 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05dc 8218 | | Call 0x1,0x18
05dd 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
05de e5fb | | Load 0x2,-0x5
05df e5fc | | Load 0x2,-0x4
05e0 e5fd | | Load 0x2,-0x3
05e1 e5fe | | Load 0x2,-0x2
05e2 e5ff | | Load 0x2,-0x1
05e3 0227 | ' | Execute Access,All_Reference
05e4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05e5 8218 | | Call 0x1,0x18
05e6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05e7 e5ff | | Load 0x2,-0x1
05e8 0227 | ' | Execute Access,All_Reference
05e9 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05ea 00d8 | | Load_Top At_Offset_0
05eb 0c12 | | Execute_Immediate Greater_Equal,0x12
05ec 7017 |p | Jump_Nonzero 0x604
05ed 4611 |F | Jump_Case 0x12
05ee 78b7 |x | Jump 0x6a6 ; case 0x0
05ef 78b6 |x | Jump 0x6a6 ; case 0x1
05f0 78b5 |x | Jump 0x6a6 ; case 0x2
05f1 78b4 |x | Jump 0x6a6 ; case 0x3
05f2 78b3 |x | Jump 0x6a6 ; case 0x4
05f3 7822 |x" | Jump 0x616 ; case 0x5
05f4 78b1 |x | Jump 0x6a6 ; case 0x6
05f5 78b0 |x | Jump 0x6a6 ; case 0x7
05f6 78af |x | Jump 0x6a6 ; case 0x8
05f7 78ae |x | Jump 0x6a6 ; case 0x9
05f8 78ad |x | Jump 0x6a6 ; case 0xa
05f9 78ac |x | Jump 0x6a6 ; case 0xb
05fa 78ab |x | Jump 0x6a6 ; case 0xc
05fb 780e |x | Jump 0x60a ; case 0xd
05fc 7811 |x | Jump 0x60e ; case 0xe
05fd 7808 |x | Jump 0x606 ; case 0xf
05fe 7813 |x | Jump 0x612 ; case 0x10
05ff 7800 |x | Jump 0x600 ; case 0x11
0600 00d9 | | Load_Top At_Offset_1
0601 00d9 | | Load_Top At_Offset_1
0602 027b | { | Execute Discrete,Greater_Equal
0603 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0604 00d1 | | Pop_Control Pop_Count_1
0605 78a0 |x | Jump 0x6a6
0606 00d9 | | Load_Top At_Offset_1
0607 00d9 | | Load_Top At_Offset_1
0608 027e | ~ | Execute Discrete,Not_Equal
0609 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
060a 00d9 | | Load_Top At_Offset_1
060b 00d9 | | Load_Top At_Offset_1
060c 027c | | | Execute Discrete,Less
060d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
060e 00d9 | | Load_Top At_Offset_1
060f 00d9 | | Load_Top At_Offset_1
0610 027a | z | Execute Discrete,Less_Equal
0611 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0612 00d9 | | Load_Top At_Offset_1
0613 00d9 | | Load_Top At_Offset_1
0614 027d | } | Execute Discrete,Greater
0615 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0616 00d9 | | Load_Top At_Offset_1
0617 00d9 | | Load_Top At_Offset_1
0618 027f | | Execute Discrete,Equal
0619 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
061a e5fb | | Load 0x2,-0x5
061b e5fc | | Load 0x2,-0x4
061c e5fd | | Load 0x2,-0x3
061d e5fe | | Load 0x2,-0x2
061e e5ff | | Load 0x2,-0x1
061f 0227 | ' | Execute Access,All_Reference
0620 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0621 8218 | | Call 0x1,0x18
0622 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0623 e5fb | | Load 0x2,-0x5
0624 e5fc | | Load 0x2,-0x4
0625 e5fd | | Load 0x2,-0x3
0626 e5fe | | Load 0x2,-0x2
0627 e5ff | | Load 0x2,-0x1
0628 0227 | ' | Execute Access,All_Reference
0629 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
062a 8218 | | Call 0x1,0x18
062b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
062c e5ff | | Load 0x2,-0x1
062d 0227 | ' | Execute Access,All_Reference
062e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
062f 0b05 | | Execute_Immediate Case_Compare,0x5
0630 7007 |p | Jump_Nonzero 0x638
0631 0f0f | | Execute_Immediate Equal,0xf
0632 7001 |p | Jump_Nonzero 0x634
0633 7872 |xr | Jump 0x6a6
0634 00d9 | | Load_Top At_Offset_1
0635 00d9 | | Load_Top At_Offset_1
0636 027e | ~ | Execute Discrete,Not_Equal
0637 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0638 00d1 | | Pop_Control Pop_Count_1
0639 00d9 | | Load_Top At_Offset_1
063a 00d9 | | Load_Top At_Offset_1
063b 027f | | Execute Discrete,Equal
063c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
063d e5ff | | Load 0x2,-0x1
063e 0227 | ' | Execute Access,All_Reference
063f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0640 0b05 | | Execute_Immediate Case_Compare,0x5
0641 7016 |p | Jump_Nonzero 0x658
0642 0f0f | | Execute_Immediate Equal,0xf
0643 7001 |p | Jump_Nonzero 0x645
0644 7861 |xa | Jump 0x6a6
0645 e5fb | | Load 0x2,-0x5
0646 e5fc | | Load 0x2,-0x4
0647 e5fd | | Load 0x2,-0x3
0648 e5fe | | Load 0x2,-0x2
0649 e5ff | | Load 0x2,-0x1
064a 0227 | ' | Execute Access,All_Reference
064b 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
064c 821a | | Call 0x1,0x1a
064d e5fb | | Load 0x2,-0x5
064e e5fc | | Load 0x2,-0x4
064f e5fd | | Load 0x2,-0x3
0650 e5fe | | Load 0x2,-0x2
0651 e5ff | | Load 0x2,-0x1
0652 0227 | ' | Execute Access,All_Reference
0653 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0654 821a | | Call 0x1,0x1a
0655 8225 | % | Call 0x1,0x25
0656 0f00 | | Execute_Immediate Equal,0x0
0657 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0658 00d1 | | Pop_Control Pop_Count_1
0659 e5fb | | Load 0x2,-0x5
065a e5fc | | Load 0x2,-0x4
065b e5fd | | Load 0x2,-0x3
065c e5fe | | Load 0x2,-0x2
065d e5ff | | Load 0x2,-0x1
065e 0227 | ' | Execute Access,All_Reference
065f 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0660 821a | | Call 0x1,0x1a
0661 e5fb | | Load 0x2,-0x5
0662 e5fc | | Load 0x2,-0x4
0663 e5fd | | Load 0x2,-0x3
0664 e5fe | | Load 0x2,-0x2
0665 e5ff | | Load 0x2,-0x1
0666 0227 | ' | Execute Access,All_Reference
0667 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0668 821a | | Call 0x1,0x1a
0669 8225 | % | Call 0x1,0x25
066a 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
066b e5fb | | Load 0x2,-0x5
066c e5fc | | Load 0x2,-0x4
066d e5fd | | Load 0x2,-0x3
066e e5fe | | Load 0x2,-0x2
066f e5ff | | Load 0x2,-0x1
0670 0227 | ' | Execute Access,All_Reference
0671 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0672 8219 | | Call 0x1,0x19
0673 a402 | | Store_Unchecked 0x2,0x2
0674 e5fb | | Load 0x2,-0x5
0675 e5fc | | Load 0x2,-0x4
0676 e5fd | | Load 0x2,-0x3
0677 e5fe | | Load 0x2,-0x2
0678 e5ff | | Load 0x2,-0x1
0679 0227 | ' | Execute Access,All_Reference
067a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
067b 8219 | | Call 0x1,0x19
067c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
067d e5ff | | Load 0x2,-0x1
067e 0227 | ' | Execute Access,All_Reference
067f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0680 00d8 | | Load_Top At_Offset_0
0681 0d05 | | Execute_Immediate Less,0x5
0682 7010 |p | Jump_Nonzero 0x693
0683 00d8 | | Load_Top At_Offset_0
0684 0c10 | | Execute_Immediate Greater_Equal,0x10
0685 7008 |p | Jump_Nonzero 0x68e
0686 00d8 | | Load_Top At_Offset_0
0687 4806 |H | Short_Literal 0x6
0688 480e |H | Short_Literal 0xe
0689 0262 | b | Execute Discrete,In_Range
068a 7008 |p | Jump_Nonzero 0x693
068b 0f0f | | Execute_Immediate Equal,0xf
068c 7008 |p | Jump_Nonzero 0x695
068d 7814 |x | Jump 0x6a2
068e 0b44 | D | Execute_Immediate Case_Compare,0x44
068f 700d |p | Jump_Nonzero 0x69d
0690 0f45 | E | Execute_Immediate Equal,0x45
0691 7007 |p | Jump_Nonzero 0x699
0692 7813 |x | Jump 0x6a6
0693 00d1 | | Pop_Control Pop_Count_1
0694 7811 |x | Jump 0x6a6
0695 00db | | Load_Top At_Offset_3
0696 00db | | Load_Top At_Offset_3
0697 027e | ~ | Execute Discrete,Not_Equal
0698 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0699 00db | | Load_Top At_Offset_3
069a 00db | | Load_Top At_Offset_3
069b 0279 | y | Execute Discrete,And
069c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
069d 00d1 | | Pop_Control Pop_Count_1
069e 00db | | Load_Top At_Offset_3
069f 00db | | Load_Top At_Offset_3
06a0 0278 | x | Execute Discrete,Or
06a1 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06a2 00db | | Load_Top At_Offset_3
06a3 00db | | Load_Top At_Offset_3
06a4 027f | | Execute Discrete,Equal
06a5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06a6 0831 | 1 | Execute_Immediate Raise,0x31
06a7 0000 | | .XXX[0x1]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab | | .CONST 0x06ab ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
06ab BODY_06a8:
06ab INIT_06a8:
06ab 00da | | Load_Top At_Offset_2
06ac 0227 | ' | Execute Access,All_Reference
06ad 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ae 0e00 | | Execute_Immediate Not_Equal,0x0
06af 00db | | Load_Top At_Offset_3
06b0 0227 | ' | Execute Access,All_Reference
06b1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06b2 0e04 | | Execute_Immediate Not_Equal,0x4
06b3 0279 | y | Execute Discrete,And
06b4 6802 |h | Jump_Zero 0x6b7
06b5 e20d | | Load 0x1,0xd
06b6 0257 | W | Execute Discrete,Raise
06b7 00da | | Load_Top At_Offset_2
06b8 0227 | ' | Execute Access,All_Reference
06b9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ba 4606 |F | Jump_Case 0x7
06bb 78b0 |x | Jump 0x76c ; case 0x0
06bc 7903 |y | Jump 0x7c0 ; case 0x1
06bd 7902 |y | Jump 0x7c0 ; case 0x2
06be 7901 |y | Jump 0x7c0 ; case 0x3
06bf 7803 |x | Jump 0x6c3 ; case 0x4
06c0 78ff |x | Jump 0x7c0 ; case 0x5
06c1 78fe |x | Jump 0x7c0 ; case 0x6
06c2 78fd |x | .XXX[0x1]
06c3 00da | | Load_Top At_Offset_2
06c4 0227 | ' | Execute Access,All_Reference
06c5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06c6 4607 |F | Jump_Case 0x8
06c7 78f8 |x | Jump 0x7c0 ; case 0x0
06c8 78f7 |x | Jump 0x7c0 ; case 0x1
06c9 78f6 |x | Jump 0x7c0 ; case 0x2
06ca 78f5 |x | Jump 0x7c0 ; case 0x3
06cb 7804 |x | Jump 0x6d0 ; case 0x4
06cc 78f3 |x | Jump 0x7c0 ; case 0x5
06cd 7809 |x | Jump 0x6d7 ; case 0x6
06ce 78f1 |x | Jump 0x7c0 ; case 0x7
06cf 78f0 |x | .XXX[0x1]
06d0 00da | | Load_Top At_Offset_2
06d1 0227 | ' | Execute Access,All_Reference
06d2 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
06d3 e002 | | Load 0x0,0x2
06d4 011c | | Execute Any,Convert_Unchecked
06d5 1c01 | | Execute_Immediate Run_Utility,0x1
06d6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06d7 00da | | Load_Top At_Offset_2
06d8 0227 | ' | Execute Access,All_Reference
06d9 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
06da 0b34 | 4 | Execute_Immediate Case_Compare,0x34
06db 7049 |pI | Jump_Nonzero 0x725
06dc 0f26 | & | Execute_Immediate Equal,0x26
06dd 7001 |p | Jump_Nonzero 0x6df
06de 78e1 |x | Jump 0x7c0
06df 00da | | Load_Top At_Offset_2
06e0 0227 | ' | Execute Access,All_Reference
06e1 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
06e2 e003 | | Load 0x0,0x3
06e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06e4 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
06e6 01df | | Execute Vector,Equal
06e7 6810 |h | Jump_Zero 0x6f8
06e8 e5fb | | Load 0x2,-0x5
06e9 00db | | Load_Top At_Offset_3
06ea 0227 | ' | Execute Access,All_Reference
06eb 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
06ec e003 | | Load 0x0,0x3
06ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ee 800e | | Call 0x0,0xe
06ef 8011 | | Call 0x0,0x11
06f0 0f01 | | Execute_Immediate Equal,0x1
06f1 6803 |h | Jump_Zero 0x6f5
06f2 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "LIE"
06f4 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06f5 0092 0a4e | N| Action Push_String_Extended,0xa4e ; "DELIE"
06f7 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06f8 00da | | Load_Top At_Offset_2
06f9 0227 | ' | Execute Access,All_Reference
06fa 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
06fb e003 | | Load 0x0,0x3
06fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06fd 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
06ff 01df | | Execute Vector,Equal
0700 6810 |h | Jump_Zero 0x711
0701 e5fb | | Load 0x2,-0x5
0702 800e | | Call 0x0,0xe
0703 e5ff | | Load 0x2,-0x1
0704 0227 | ' | Execute Access,All_Reference
0705 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0706 e003 | | Load 0x0,0x3
0707 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0708 8011 | | Call 0x0,0x11
0709 0f01 | | Execute_Immediate Equal,0x1
070a 6803 |h | Jump_Zero 0x70e
070b 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "LIE"
070d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
070e 0092 0a4e | N| Action Push_String_Extended,0xa4e ; "DELIE"
0710 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0711 e5fb | | Load 0x2,-0x5
0712 00db | | Load_Top At_Offset_3
0713 0227 | ' | Execute Access,All_Reference
0714 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0715 e003 | | Load 0x0,0x3
0716 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0717 e5ff | | Load 0x2,-0x1
0718 0227 | ' | Execute Access,All_Reference
0719 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
071a e003 | | Load 0x0,0x3
071b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
071c 8011 | | Call 0x0,0x11
071d 0f01 | | Execute_Immediate Equal,0x1
071e 6803 |h | Jump_Zero 0x722
071f 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "LIE"
0721 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0722 0092 0a4e | N| Action Push_String_Extended,0xa4e ; "DELIE"
0724 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0725 00d1 | | Pop_Control Pop_Count_1
0726 00da | | Load_Top At_Offset_2
0727 0227 | ' | Execute Access,All_Reference
0728 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0729 e003 | | Load 0x0,0x3
072a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
072b 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
072d 01df | | Execute Vector,Equal
072e 6810 |h | Jump_Zero 0x73f
072f e5fc | | Load 0x2,-0x4
0730 00db | | Load_Top At_Offset_3
0731 0227 | ' | Execute Access,All_Reference
0732 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0733 e003 | | Load 0x0,0x3
0734 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0735 800e | | Call 0x0,0xe
0736 8012 | | Call 0x0,0x12
0737 0f01 | | Execute_Immediate Equal,0x1
0738 6803 |h | Jump_Zero 0x73c
0739 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "LIE"
073b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
073c 0092 0a4e | N| Action Push_String_Extended,0xa4e ; "DELIE"
073e 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
073f 00da | | Load_Top At_Offset_2
0740 0227 | ' | Execute Access,All_Reference
0741 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0742 e003 | | Load 0x0,0x3
0743 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0744 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
0746 01df | | Execute Vector,Equal
0747 6810 |h | Jump_Zero 0x758
0748 e5fc | | Load 0x2,-0x4
0749 800e | | Call 0x0,0xe
074a e5ff | | Load 0x2,-0x1
074b 0227 | ' | Execute Access,All_Reference
074c 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
074d e003 | | Load 0x0,0x3
074e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
074f 8012 | | Call 0x0,0x12
0750 0f01 | | Execute_Immediate Equal,0x1
0751 6803 |h | Jump_Zero 0x755
0752 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "LIE"
0754 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0755 0092 0a4e | N| Action Push_String_Extended,0xa4e ; "DELIE"
0757 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0758 e5fc | | Load 0x2,-0x4
0759 00db | | Load_Top At_Offset_3
075a 0227 | ' | Execute Access,All_Reference
075b 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
075c e003 | | Load 0x0,0x3
075d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
075e e5ff | | Load 0x2,-0x1
075f 0227 | ' | Execute Access,All_Reference
0760 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0761 e003 | | Load 0x0,0x3
0762 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0763 8012 | | Call 0x0,0x12
0764 0f01 | | Execute_Immediate Equal,0x1
0765 6803 |h | Jump_Zero 0x769
0766 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "LIE"
0768 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0769 0092 0a4e | N| Action Push_String_Extended,0xa4e ; "DELIE"
076b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
076c 00da | | Load_Top At_Offset_2
076d 0227 | ' | Execute Access,All_Reference
076e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
076f 4607 |F | Jump_Case 0x8
0770 784f |xO | Jump 0x7c0 ; case 0x0
0771 784e |xN | Jump 0x7c0 ; case 0x1
0772 784d |xM | Jump 0x7c0 ; case 0x2
0773 784c |xL | Jump 0x7c0 ; case 0x3
0774 784b |xK | Jump 0x7c0 ; case 0x4
0775 7803 |x | Jump 0x779 ; case 0x5
0776 7818 |x | Jump 0x78f ; case 0x6
0777 7848 |xH | Jump 0x7c0 ; case 0x7
0778 7847 |xG | .XXX[0x1]
0779 00da | | Load_Top At_Offset_2
077a 0227 | ' | Execute Access,All_Reference
077b 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
077c e003 | | Load 0x0,0x3
077d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
077e e5fd | | Load 0x2,-0x3
077f 8013 | | Call 0x0,0x13
0780 6808 |h | Jump_Zero 0x789
0781 00da | | Load_Top At_Offset_2
0782 0227 | ' | Execute Access,All_Reference
0783 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
0784 e003 | | Load 0x0,0x3
0785 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0786 e5fd | | Load 0x2,-0x3
0787 8014 | | Call 0x0,0x14
0788 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0789 00da | | Load_Top At_Offset_2
078a 0227 | ' | Execute Access,All_Reference
078b 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
078c e003 | | Load 0x0,0x3
078d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
078e 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
078f 00da | | Load_Top At_Offset_2
0790 0227 | ' | Execute Access,All_Reference
0791 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0792 e003 | | Load 0x0,0x3
0793 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0794 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
0796 01df | | Execute Vector,Equal
0797 6809 |h | Jump_Zero 0x7a1
0798 e5fc | | Load 0x2,-0x4
0799 00db | | Load_Top At_Offset_3
079a 0227 | ' | Execute Access,All_Reference
079b 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
079c e003 | | Load 0x0,0x3
079d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
079e 800e | | Call 0x0,0xe
079f 8015 | | Call 0x0,0x15
07a0 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
07a1 00da | | Load_Top At_Offset_2
07a2 0227 | ' | Execute Access,All_Reference
07a3 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
07a4 e003 | | Load 0x0,0x3
07a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07a6 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "COMP"
07a8 01df | | Execute Vector,Equal
07a9 6809 |h | Jump_Zero 0x7b3
07aa e5fc | | Load 0x2,-0x4
07ab 800e | | Call 0x0,0xe
07ac e5ff | | Load 0x2,-0x1
07ad 0227 | ' | Execute Access,All_Reference
07ae 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
07af e003 | | Load 0x0,0x3
07b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07b1 8015 | | Call 0x0,0x15
07b2 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
07b3 e5fc | | Load 0x2,-0x4
07b4 00db | | Load_Top At_Offset_3
07b5 0227 | ' | Execute Access,All_Reference
07b6 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
07b7 e003 | | Load 0x0,0x3
07b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07b9 e5ff | | Load 0x2,-0x1
07ba 0227 | ' | Execute Access,All_Reference
07bb 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
07bc e003 | | Load 0x0,0x3
07bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07be 8015 | | Call 0x0,0x15
07bf 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
07c0 0831 | 1 | Execute_Immediate Raise,0x31
07c1 0000 0000 | | .BLANK 0000[0x7]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb | | .CONST 0x07cb ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0001 | | .CONST 0x0001 ; Number of locals
07cb BODY_07c8:
07cb INIT_07c8:
07cb 00da | | Load_Top At_Offset_2
07cc 0227 | ' | Execute Access,All_Reference
07cd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07cf 0000 | | .XXX[0x1]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3 | | .CONST 0x07d3 ; Address of begin
07d1 0004 | | .CONST 0x0004 ; Address of exception handler
07d2 0001 | | .CONST 0x0001 ; Number of locals
07d3 BODY_07d0:
07d3 INIT_07d0:
07d3 00da | | Load_Top At_Offset_2
07d4 4800 |H | Short_Literal 0x0
07d5 821d | | Call 0x1,0x1d
07d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07d7 0000 | | .XXX[0x1]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db | | .CONST 0x07db ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0001 | | .CONST 0x0001 ; Number of locals
07db BODY_07d8:
07db INIT_07d8:
07db 00db | | Load_Top At_Offset_3
07dc 0227 | ' | Execute Access,All_Reference
07dd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07de 4607 |F | Jump_Case 0x8
07df 782b |x+ | Jump 0x80b ; case 0x0
07e0 78cd |x | Jump 0x8ae ; case 0x1
07e1 78de |x | Jump 0x8c0 ; case 0x2
07e2 78f4 |x | Jump 0x8d7 ; case 0x3
07e3 792d |y- | Jump 0x911 ; case 0x4
07e4 78fd |x | Jump 0x8e2 ; case 0x5
07e5 7936 |y6 | Jump 0x91c ; case 0x6
07e6 7800 |x | Jump 0x7e7 ; case 0x7
07e7 00da | | Load_Top At_Offset_2
07e8 8226 | & | Call 0x1,0x26
07e9 0092 0a4f | O| Action Push_String_Extended,0xa4f ; "["
07eb e5fe | | Load 0x2,-0x2
07ec 0227 | ' | Execute Access,All_Reference
07ed 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
07ee e003 | | Load 0x0,0x3
07ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07f0 01cc | | Execute Vector,Catenate
07f1 e016 | | Load 0x0,0x16
07f2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07f3 0092 0a50 | P| Action Push_String_Extended,0xa50 ; " "
07f5 e5fe | | Load 0x2,-0x2
07f6 0227 | ' | Execute Access,All_Reference
07f7 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
07f8 e003 | | Load 0x0,0x3
07f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07fa 01cc | | Execute Vector,Catenate
07fb e016 | | Load 0x0,0x16
07fc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07fd 0092 0a50 | P| Action Push_String_Extended,0xa50 ; " "
07ff e5fe | | Load 0x2,-0x2
0800 0227 | ' | Execute Access,All_Reference
0801 2613 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x13
0802 e003 | | Load 0x0,0x3
0803 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0804 01cc | | Execute Vector,Catenate
0805 0092 0a51 | Q| Action Push_String_Extended,0xa51 ; "]"
0807 01cc | | Execute Vector,Catenate
0808 e016 | | Load 0x0,0x16
0809 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
080a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
080b 00db | | Load_Top At_Offset_3
080c 0227 | ' | Execute Access,All_Reference
080d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
080e 00db | | Load_Top At_Offset_3
080f 0a02 | | Execute_Immediate Plus,0x2
0810 00d8 | | Load_Top At_Offset_0
0811 00e2 | | Load_Encached Integer_Cache
0812 0260 | ` | Execute Discrete,In_Type
0813 7001 |p | Jump_Nonzero 0x815
0814 0801 | | Execute_Immediate Raise,0x1
0815 821d | | Call 0x1,0x1d
0816 00da | | Load_Top At_Offset_2
0817 8226 | & | Call 0x1,0x26
0818 00db | | Load_Top At_Offset_3
0819 0227 | ' | Execute Access,All_Reference
081a 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
081b 4649 |FI | Jump_Case 0x4a
081c 7885 |x | Jump 0x8a2 ; case 0x0
081d 7884 |x | Jump 0x8a2 ; case 0x1
081e 7883 |x | Jump 0x8a2 ; case 0x2
081f 7882 |x | Jump 0x8a2 ; case 0x3
0820 7881 |x | Jump 0x8a2 ; case 0x4
0821 7854 |xT | Jump 0x876 ; case 0x5
0822 7849 |xI | Jump 0x86c ; case 0x6
0823 784d |xM | Jump 0x871 ; case 0x7
0824 787d |x} | Jump 0x8a2 ; case 0x8
0825 787c |x| | Jump 0x8a2 ; case 0x9
0826 787b |x{ | Jump 0x8a2 ; case 0xa
0827 787a |xz | Jump 0x8a2 ; case 0xb
0828 7879 |xy | Jump 0x8a2 ; case 0xc
0829 7856 |xV | Jump 0x880 ; case 0xd
082a 785f |x_ | Jump 0x88a ; case 0xe
082b 784f |xO | Jump 0x87b ; case 0xf
082c 7858 |xX | Jump 0x885 ; case 0x10
082d 7861 |xa | Jump 0x88f ; case 0x11
082e 786f |xo | Jump 0x89e ; case 0x12
082f 7837 |x7 | Jump 0x867 ; case 0x13
0830 7871 |xq | Jump 0x8a2 ; case 0x14
0831 7870 |xp | Jump 0x8a2 ; case 0x15
0832 786f |xo | Jump 0x8a2 ; case 0x16
0833 786e |xn | Jump 0x8a2 ; case 0x17
0834 786d |xm | Jump 0x8a2 ; case 0x18
0835 786c |xl | Jump 0x8a2 ; case 0x19
0836 786b |xk | Jump 0x8a2 ; case 0x1a
0837 786a |xj | Jump 0x8a2 ; case 0x1b
0838 7869 |xi | Jump 0x8a2 ; case 0x1c
0839 7868 |xh | Jump 0x8a2 ; case 0x1d
083a 7867 |xg | Jump 0x8a2 ; case 0x1e
083b 7866 |xf | Jump 0x8a2 ; case 0x1f
083c 7865 |xe | Jump 0x8a2 ; case 0x20
083d 7864 |xd | Jump 0x8a2 ; case 0x21
083e 7863 |xc | Jump 0x8a2 ; case 0x22
083f 7862 |xb | Jump 0x8a2 ; case 0x23
0840 7861 |xa | Jump 0x8a2 ; case 0x24
0841 7860 |x` | Jump 0x8a2 ; case 0x25
0842 785f |x_ | Jump 0x8a2 ; case 0x26
0843 785e |x^ | Jump 0x8a2 ; case 0x27
0844 785d |x] | Jump 0x8a2 ; case 0x28
0845 785c |x\ | Jump 0x8a2 ; case 0x29
0846 785b |x[ | Jump 0x8a2 ; case 0x2a
0847 785a |xZ | Jump 0x8a2 ; case 0x2b
0848 7859 |xY | Jump 0x8a2 ; case 0x2c
0849 7858 |xX | Jump 0x8a2 ; case 0x2d
084a 7857 |xW | Jump 0x8a2 ; case 0x2e
084b 7856 |xV | Jump 0x8a2 ; case 0x2f
084c 7855 |xU | Jump 0x8a2 ; case 0x30
084d 7854 |xT | Jump 0x8a2 ; case 0x31
084e 7853 |xS | Jump 0x8a2 ; case 0x32
084f 7852 |xR | Jump 0x8a2 ; case 0x33
0850 7851 |xQ | Jump 0x8a2 ; case 0x34
0851 7850 |xP | Jump 0x8a2 ; case 0x35
0852 784f |xO | Jump 0x8a2 ; case 0x36
0853 784e |xN | Jump 0x8a2 ; case 0x37
0854 784d |xM | Jump 0x8a2 ; case 0x38
0855 784c |xL | Jump 0x8a2 ; case 0x39
0856 784b |xK | Jump 0x8a2 ; case 0x3a
0857 784a |xJ | Jump 0x8a2 ; case 0x3b
0858 7849 |xI | Jump 0x8a2 ; case 0x3c
0859 7848 |xH | Jump 0x8a2 ; case 0x3d
085a 7847 |xG | Jump 0x8a2 ; case 0x3e
085b 7846 |xF | Jump 0x8a2 ; case 0x3f
085c 7845 |xE | Jump 0x8a2 ; case 0x40
085d 7844 |xD | Jump 0x8a2 ; case 0x41
085e 7843 |xC | Jump 0x8a2 ; case 0x42
085f 7842 |xB | Jump 0x8a2 ; case 0x43
0860 7838 |x8 | Jump 0x899 ; case 0x44
0861 7832 |x2 | Jump 0x894 ; case 0x45
0862 783f |x? | Jump 0x8a2 ; case 0x46
0863 783e |x> | Jump 0x8a2 ; case 0x47
0864 783d |x= | Jump 0x8a2 ; case 0x48
0865 783c |x< | Jump 0x8a2 ; case 0x49
0866 783b |x; | .XXX[0x1]
0867 0092 0a52 | R| Action Push_String_Extended,0xa52 ; "-"
0869 e016 | | Load 0x0,0x16
086a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
086b 7836 |x6 | Jump 0x8a2
086c 0092 0a53 | S| Action Push_String_Extended,0xa53 ; "*"
086e e016 | | Load 0x0,0x16
086f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0870 7831 |x1 | Jump 0x8a2
0871 0092 0a54 | T| Action Push_String_Extended,0xa54 ; "/"
0873 e016 | | Load 0x0,0x16
0874 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0875 782c |x, | Jump 0x8a2
0876 0092 0a55 | U| Action Push_String_Extended,0xa55 ; "="
0878 e016 | | Load 0x0,0x16
0879 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
087a 7827 |x' | Jump 0x8a2
087b 0092 0a56 | V| Action Push_String_Extended,0xa56 ; "<>"
087d e016 | | Load 0x0,0x16
087e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
087f 7822 |x" | Jump 0x8a2
0880 0092 0a57 | W| Action Push_String_Extended,0xa57 ; "<"
0882 e016 | | Load 0x0,0x16
0883 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0884 781d |x | Jump 0x8a2
0885 0092 0a58 | X| Action Push_String_Extended,0xa58 ; ">"
0887 e016 | | Load 0x0,0x16
0888 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0889 7818 |x | Jump 0x8a2
088a 0092 0a59 | Y| Action Push_String_Extended,0xa59 ; "<="
088c e016 | | Load 0x0,0x16
088d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
088e 7813 |x | Jump 0x8a2
088f 0092 0a5a | Z| Action Push_String_Extended,0xa5a ; ">="
0891 e016 | | Load 0x0,0x16
0892 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0893 780e |x | Jump 0x8a2
0894 0092 0a5b | [| Action Push_String_Extended,0xa5b ; "ET"
0896 e016 | | Load 0x0,0x16
0897 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0898 7809 |x | Jump 0x8a2
0899 0092 0a5c | \| Action Push_String_Extended,0xa5c ; "OU"
089b e016 | | Load 0x0,0x16
089c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
089d 7804 |x | Jump 0x8a2
089e 0092 0a5d | ]| Action Push_String_Extended,0xa5d ; "+"
08a0 e016 | | Load 0x0,0x16
08a1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
08a2 00db | | Load_Top At_Offset_3
08a3 0227 | ' | Execute Access,All_Reference
08a4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
08a5 00db | | Load_Top At_Offset_3
08a6 0a02 | | Execute_Immediate Plus,0x2
08a7 00d8 | | Load_Top At_Offset_0
08a8 00e2 | | Load_Encached Integer_Cache
08a9 0260 | ` | Execute Discrete,In_Type
08aa 7001 |p | Jump_Nonzero 0x8ac
08ab 0801 | | Execute_Immediate Raise,0x1
08ac 821d | | Call 0x1,0x1d
08ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08ae 00da | | Load_Top At_Offset_2
08af 8226 | & | Call 0x1,0x26
08b0 0092 0a5e | ^| Action Push_String_Extended,0xa5e ; "NON"
08b2 e016 | | Load 0x0,0x16
08b3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
08b4 00db | | Load_Top At_Offset_3
08b5 0227 | ' | Execute Access,All_Reference
08b6 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
08b7 00db | | Load_Top At_Offset_3
08b8 0a02 | | Execute_Immediate Plus,0x2
08b9 00d8 | | Load_Top At_Offset_0
08ba 00e2 | | Load_Encached Integer_Cache
08bb 0260 | ` | Execute Discrete,In_Type
08bc 7001 |p | Jump_Nonzero 0x8be
08bd 0801 | | Execute_Immediate Raise,0x1
08be 821d | | Call 0x1,0x1d
08bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08c0 00da | | Load_Top At_Offset_2
08c1 8226 | & | Call 0x1,0x26
08c2 00db | | Load_Top At_Offset_3
08c3 0227 | ' | Execute Access,All_Reference
08c4 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
08c5 00e0 | | Load_Encached Standard_Cache
08c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08c7 0092 0a5f | _| Action Push_String_Extended,0xa5f ; " ("
08c9 01cc | | Execute Vector,Catenate
08ca e5fe | | Load 0x2,-0x2
08cb 0227 | ' | Execute Access,All_Reference
08cc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08cd e20e | | Load 0x1,0xe
08ce 011c | | Execute Any,Convert_Unchecked
08cf 1c01 | | Execute_Immediate Run_Utility,0x1
08d0 01cc | | Execute Vector,Catenate
08d1 0092 0a42 | B| Action Push_String_Extended,0xa42 ; ")"
08d3 01cc | | Execute Vector,Catenate
08d4 e016 | | Load 0x0,0x16
08d5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
08d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08d7 00da | | Load_Top At_Offset_2
08d8 8226 | & | Call 0x1,0x26
08d9 00db | | Load_Top At_Offset_3
08da 0227 | ' | Execute Access,All_Reference
08db 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
08dc 00e1 | | Load_Encached Boolean_Cache
08dd 011c | | Execute Any,Convert_Unchecked
08de 1c01 | | Execute_Immediate Run_Utility,0x1
08df e016 | | Load 0x0,0x16
08e0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
08e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08e2 00da | | Load_Top At_Offset_2
08e3 8226 | & | Call 0x1,0x26
08e4 00db | | Load_Top At_Offset_3
08e5 0227 | ' | Execute Access,All_Reference
08e6 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
08e7 e003 | | Load 0x0,0x3
08e8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
08e9 7008 |p | Jump_Nonzero 0x8f2
08ea 00db | | Load_Top At_Offset_3
08eb 0227 | ' | Execute Access,All_Reference
08ec 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
08ed e003 | | Load 0x0,0x3
08ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08ef e016 | | Load 0x0,0x16
08f0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08f1 7810 |x | Jump 0x902
08f2 00db | | Load_Top At_Offset_3
08f3 0227 | ' | Execute Access,All_Reference
08f4 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
08f5 e003 | | Load 0x0,0x3
08f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08f7 0092 0a60 | `| Action Push_String_Extended,0xa60 ; "."
08f9 01cc | | Execute Vector,Catenate
08fa e5fe | | Load 0x2,-0x2
08fb 0227 | ' | Execute Access,All_Reference
08fc 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
08fd e003 | | Load 0x0,0x3
08fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08ff 01cc | | Execute Vector,Catenate
0900 e016 | | Load 0x0,0x16
0901 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0902 0092 0a5f | _| Action Push_String_Extended,0xa5f ; " ("
0904 e5fe | | Load 0x2,-0x2
0905 0227 | ' | Execute Access,All_Reference
0906 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0907 e20e | | Load 0x1,0xe
0908 011c | | Execute Any,Convert_Unchecked
0909 1c01 | | Execute_Immediate Run_Utility,0x1
090a 01cc | | Execute Vector,Catenate
090b 0092 0a42 | B| Action Push_String_Extended,0xa42 ; ")"
090d 01cc | | Execute Vector,Catenate
090e e016 | | Load 0x0,0x16
090f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0910 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0911 00da | | Load_Top At_Offset_2
0912 8226 | & | Call 0x1,0x26
0913 00db | | Load_Top At_Offset_3
0914 0227 | ' | Execute Access,All_Reference
0915 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0916 e002 | | Load 0x0,0x2
0917 011c | | Execute Any,Convert_Unchecked
0918 1c01 | | Execute_Immediate Run_Utility,0x1
0919 e016 | | Load 0x0,0x16
091a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
091b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
091c 00da | | Load_Top At_Offset_2
091d 8226 | & | Call 0x1,0x26
091e 00db | | Load_Top At_Offset_3
091f 0227 | ' | Execute Access,All_Reference
0920 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0921 e002 | | Load 0x0,0x2
0922 011c | | Execute Any,Convert_Unchecked
0923 1c01 | | Execute_Immediate Run_Utility,0x1
0924 0092 0a61 | a| Action Push_String_Extended,0xa61 ; "("
0926 01cc | | Execute Vector,Catenate
0927 e016 | | Load 0x0,0x16
0928 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0929 00db | | Load_Top At_Offset_3
092a 0227 | ' | Execute Access,All_Reference
092b 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
092c e003 | | Load 0x0,0x3
092d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
092e 0092 0a62 | b| Action Push_String_Extended,0xa62 ; ","
0930 01cc | | Execute Vector,Catenate
0931 e016 | | Load 0x0,0x16
0932 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0933 00db | | Load_Top At_Offset_3
0934 0227 | ' | Execute Access,All_Reference
0935 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0936 e003 | | Load 0x0,0x3
0937 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0938 0092 0a42 | B| Action Push_String_Extended,0xa42 ; ")"
093a 01cc | | Execute Vector,Catenate
093b e016 | | Load 0x0,0x16
093c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
093d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
093e 0000 0000 | | .XXX[0x2]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943 | C | .CONST 0x0943 ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0001 | | .CONST 0x0001 ; Number of locals
0943 BODY_0940:
0943 INIT_0940:
0943 4607 |F | Jump_Case 0x8
0944 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0945 7807 |x | Jump 0x94d ; case 0x1
0946 780a |x | Jump 0x951 ; case 0x2
0947 780e |x | Jump 0x956 ; case 0x3
0948 7811 |x | Jump 0x95a ; case 0x4
0949 7812 |x | Jump 0x95c ; case 0x5
094a 7813 |x | Jump 0x95e ; case 0x6
094b 7816 |x | Jump 0x962 ; case 0x7
094c 4302 |C | .XXX[0x1]
094d 00da | | Load_Top At_Offset_2
094e 0091 0a39 | 9| Action Push_String_Extended_Indexed,0xa39 ; "BINARY_OPERATOR"
0950 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0951 00db | | Load_Top At_Offset_3
0952 00db | | Load_Top At_Offset_3
0953 00e0 | | Load_Encached Standard_Cache
0954 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0955 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0956 00da | | Load_Top At_Offset_2
0957 00e0 | | Load_Encached Standard_Cache
0958 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0959 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
095a 00db | | Load_Top At_Offset_3
095b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
095c 00db | | Load_Top At_Offset_3
095d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
095e e21e | | Load 0x1,0x1e
095f 00dc | | Load_Top At_Offset_4
0960 0267 | g | Execute Discrete,Predecessor
0961 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0962 e21e | | Load 0x1,0x1e
0963 00dc | | Load_Top At_Offset_4
0964 0268 | h | Execute Discrete,Successor
0965 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0966 0000 0000 | | .XXX[0x2]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b | k | .CONST 0x096b ; Address of begin
0969 0004 | | .CONST 0x0004 ; Address of exception handler
096a 0001 | | .CONST 0x0001 ; Number of locals
096b BODY_0968:
096b INIT_0968:
096b 00da | | Load_Top At_Offset_2
096c e5fe | | Load 0x2,-0x2
096d 01df | | Execute Vector,Equal
096e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
096f 0000 | | .XXX[0x1]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0973 | s | .CONST 0x0973 ; Address of begin
0971 0004 | | .CONST 0x0004 ; Address of exception handler
0972 0001 | | .CONST 0x0001 ; Number of locals
0973 BODY_0970:
0973 INIT_0970:
0973 00cf | | Action Mark_Auxiliary
0974 00db | | Load_Top At_Offset_3
0975 4801 |H | Short_Literal 0x1
0976 0263 | c | Execute Discrete,Above_Bound
0977 7006 |p | Jump_Nonzero 0x97e
0978 0092 0a50 | P| Action Push_String_Extended,0xa50 ; " "
097a e016 | | Load 0x0,0x16
097b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
097c 00c8 | | Action Pop_Auxiliary_Range
097d 3ffa |? | Loop_Increasing 0x978
097e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
097f 0000 | | .XXX[0x1]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983 | | .CONST 0x0983 ; Address of begin
0981 0004 | | .CONST 0x0004 ; Address of exception handler
0982 0001 | | .CONST 0x0001 ; Number of locals
0983 BODY_0980:
0983 INIT_0980:
0983 4609 |F | Jump_Case 0xa
0984 7809 |x | Jump 0x98e ; case 0x0
0985 7845 |xE | Jump 0x9cb ; case 0x1
0986 785e |x^ | Jump 0x9e5 ; case 0x2
0987 7861 |xa | Jump 0x9e9 ; case 0x3
0988 78a8 |x | Jump 0xa31 ; case 0x4
0989 78a7 |x | Jump 0xa31 ; case 0x5
098a 7864 |xd | Jump 0x9ef ; case 0x6
098b 787d |x} | Jump 0xa09 ; case 0x7
098c 7899 |x | Jump 0xa26 ; case 0x8
098d 789f |x | Jump 0xa2d ; case 0x9
098e 00da | | Load_Top At_Offset_2
098f 016c | l | Execute Variant_Record,Is_Constrained
0990 7009 |p | Jump_Nonzero 0x99a
0991 00cf | | Action Mark_Auxiliary
0992 4800 |H | Short_Literal 0x0
0993 e5ff | | Load 0x2,-0x1
0994 1c08 | | Execute_Immediate Run_Utility,0x8
0995 00d8 | | Load_Top At_Offset_0
0996 1c00 | | Execute_Immediate Run_Utility,0x0
0997 c5ff | | Store 0x2,-0x1
0998 00ce | | Action Pop_Auxiliary
0999 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
099a 00da | | Load_Top At_Offset_2
099b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
099c 4607 |F | Jump_Case 0x8
099d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
099e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
099f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
09a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
09a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
09a2 7812 |x | Jump 0x9b5 ; case 0x5
09a3 781c |x | Jump 0x9c0 ; case 0x6
09a4 7800 |x | Jump 0x9a5 ; case 0x7
09a5 00da | | Load_Top At_Offset_2
09a6 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11
09a7 00da | | Load_Top At_Offset_2
09a8 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
09a9 1c00 | | Execute_Immediate Run_Utility,0x0
09aa 00da | | Load_Top At_Offset_2
09ab 2212 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x12
09ac 00da | | Load_Top At_Offset_2
09ad 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
09ae 1c00 | | Execute_Immediate Run_Utility,0x0
09af 00da | | Load_Top At_Offset_2
09b0 2213 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x13
09b1 00da | | Load_Top At_Offset_2
09b2 2613 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x13
09b3 1c00 | | Execute_Immediate Run_Utility,0x0
09b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09b5 00da | | Load_Top At_Offset_2
09b6 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb
09b7 00da | | Load_Top At_Offset_2
09b8 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
09b9 1c00 | | Execute_Immediate Run_Utility,0x0
09ba 00da | | Load_Top At_Offset_2
09bb 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc
09bc 00da | | Load_Top At_Offset_2
09bd 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
09be 1c00 | | Execute_Immediate Run_Utility,0x0
09bf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09c0 00da | | Load_Top At_Offset_2
09c1 220e |" | Execute Variant_Record,Field_Constrain,Field_Number 0xe
09c2 00da | | Load_Top At_Offset_2
09c3 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
09c4 1c00 | | Execute_Immediate Run_Utility,0x0
09c5 00da | | Load_Top At_Offset_2
09c6 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf
09c7 00da | | Load_Top At_Offset_2
09c8 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
09c9 1c00 | | Execute_Immediate Run_Utility,0x0
09ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09cb 00da | | Load_Top At_Offset_2
09cc 016b | k | Execute Variant_Record,Read_Variant
09cd 00d8 | | Load_Top At_Offset_0
09ce 0f06 | | Execute_Immediate Equal,0x6
09cf 6804 |h | Jump_Zero 0x9d4
09d0 00db | | Load_Top At_Offset_3
09d1 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb
09d2 00db | | Load_Top At_Offset_3
09d3 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc
09d4 00d8 | | Load_Top At_Offset_0
09d5 0f07 | | Execute_Immediate Equal,0x7
09d6 6804 |h | Jump_Zero 0x9db
09d7 00db | | Load_Top At_Offset_3
09d8 220e |" | Execute Variant_Record,Field_Constrain,Field_Number 0xe
09d9 00db | | Load_Top At_Offset_3
09da 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf
09db 00d8 | | Load_Top At_Offset_0
09dc 0f08 | | Execute_Immediate Equal,0x8
09dd 6806 |h | Jump_Zero 0x9e4
09de 00db | | Load_Top At_Offset_3
09df 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11
09e0 00db | | Load_Top At_Offset_3
09e1 2212 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x12
09e2 00db | | Load_Top At_Offset_3
09e3 2213 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x13
09e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09e5 4801 |H | Short_Literal 0x1
09e6 4813 |H | Short_Literal 0x13
09e7 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
09e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
09e9 e5fd | | Load 0x2,-0x3
09ea 00db | | Load_Top At_Offset_3
09eb 1c07 | | Execute_Immediate Run_Utility,0x7
09ec e5fe | | Load 0x2,-0x2
09ed 0306 | | Complete_Type Variant_Record,By_Renaming
09ee 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
09ef 00db | | Load_Top At_Offset_3
09f0 4607 |F | Jump_Case 0x8
09f1 7809 |x | Jump 0x9fb ; case 0x0
09f2 780a |x | Jump 0x9fd ; case 0x1
09f3 780b |x | Jump 0x9ff ; case 0x2
09f4 780c |x | Jump 0xa01 ; case 0x3
09f5 780d |x | Jump 0xa03 ; case 0x4
09f6 780e |x | Jump 0xa05 ; case 0x5
09f7 780f |x | Jump 0xa07 ; case 0x6
09f8 7800 |x | Jump 0x9f9 ; case 0x7
09f9 4808 |H | Short_Literal 0x8
09fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09fb 4801 |H | Short_Literal 0x1
09fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09fd 4802 |H | Short_Literal 0x2
09fe 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09ff 4803 |H | Short_Literal 0x3
0a00 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a01 4804 |H | Short_Literal 0x4
0a02 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a03 4805 |H | Short_Literal 0x5
0a04 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a05 4806 |H | Short_Literal 0x6
0a06 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a07 4807 |H | Short_Literal 0x7
0a08 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a09 00db | | Load_Top At_Offset_3
0a0a e5fe | | Load 0x2,-0x2
0a0b 4607 |F | Jump_Case 0x8
0a0c 7809 |x | Jump 0xa16 ; case 0x0
0a0d 780a |x | Jump 0xa18 ; case 0x1
0a0e 780b |x | Jump 0xa1a ; case 0x2
0a0f 780c |x | Jump 0xa1c ; case 0x3
0a10 780d |x | Jump 0xa1e ; case 0x4
0a11 780e |x | Jump 0xa20 ; case 0x5
0a12 780f |x | Jump 0xa22 ; case 0x6
0a13 7800 |x | Jump 0xa14 ; case 0x7
0a14 4808 |H | Short_Literal 0x8
0a15 780d |x | Jump 0xa23
0a16 4801 |H | Short_Literal 0x1
0a17 780b |x | Jump 0xa23
0a18 4802 |H | Short_Literal 0x2
0a19 7809 |x | Jump 0xa23
0a1a 4803 |H | Short_Literal 0x3
0a1b 7807 |x | Jump 0xa23
0a1c 4804 |H | Short_Literal 0x4
0a1d 7805 |x | Jump 0xa23
0a1e 4805 |H | Short_Literal 0x5
0a1f 7803 |x | Jump 0xa23
0a20 4806 |H | Short_Literal 0x6
0a21 7801 |x | Jump 0xa23
0a22 4807 |H | Short_Literal 0x7
0a23 e5ff | | Load 0x2,-0x1
0a24 031b | | Declare_Type Variant_Record,Constrained
0a25 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a26 00db | | Load_Top At_Offset_3
0a27 e5fe | | Load 0x2,-0x2
0a28 e5ff | | Load 0x2,-0x1
0a29 1c06 | | Execute_Immediate Run_Utility,0x6
0a2a e5ff | | Load 0x2,-0x1
0a2b 02fc | | Declare_Variable Variant_Record,With_Constraint
0a2c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a2d 4800 |H | Short_Literal 0x0
0a2e 00db | | Load_Top At_Offset_3
0a2f 1c07 | | Execute_Immediate Run_Utility,0x7
0a30 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0a31 0869 | i | Execute_Immediate Raise,0x69
0a32 ; --------------------------------------------------------------------------------------
0a32 ; STRING TABLE
0a32 ; --------------------------------------------------------------------------------------
0a32 0064 | d | .STRTAB 0x0064->0x0a64 ; "STRUCT_TYPE"
0a33 006d | m | .STRTAB 0x006d->0x0a69 ; "ENUMERATION_TYPE"
0a34 007b | { | .STRTAB 0x007b->0x0a71 ; "INTEGER_TYPE"
0a35 0085 | | .STRTAB 0x0085->0x0a77 ; "BOOLEAN_TYPE"
0a36 008f | | .STRTAB 0x008f->0x0a7d ; "STATE_TYPE"
0a37 0097 | | .STRTAB 0x0097->0x0a82 ; "ENTRY_TYPE"
0a38 009f | | .STRTAB 0x009f->0x0a87 ; "OTHER_TYPE"
0a39 00a7 | | .STRTAB 0x00a7->0x0a8c ; "BINARY_OPERATOR"
0a3a 00b4 | | .STRTAB 0x00b4->0x0a94 ; "UNARY_OPERATOR"
0a3b 00c0 | | .STRTAB 0x00c0->0x0a9b ; "INTEGER_DATA"
0a3c 00ca | | .STRTAB 0x00ca->0x0aa1 ; "BOOLEAN_DATA"
0a3d 00d4 | | .STRTAB 0x00d4->0x0aa7 ; "STATE_DATA"
0a3e 00dc | | .STRTAB 0x00dc->0x0aac ; "VAR_DATA"
0a3f 00e2 | | .STRTAB 0x00e2->0x0ab0 ; "INSTRUCTION"
0a40 00eb | | .STRTAB 0x00eb->0x0ab5 ; "PLAYER_ENTRY"
0a41 00f5 | | .STRTAB 0x00f5->0x0abb ; "Op Arithmetique: TYPES INCOMPATIBLES ("
0a42 0119 | | .STRTAB 0x0119->0x0ace ; ")"
0a43 0118 | | .STRTAB 0x0118->0x0acf ; "Op Test: TYPES INCOMPATIBLES ("
0a44 0134 | 4 | .STRTAB 0x0134->0x0ade ; "Op Binaire: TYPES INCOMPATIBLES ("
0a45 0153 | S | .STRTAB 0x0153->0x0aee ; "Op Unaire: TYPES INCOMPATIBLES"
0a46 016f | o | .STRTAB 0x016f->0x0afd ; "ENUMERE"
0a47 0174 | t | .STRTAB 0x0174->0x0b01 ; "STRUCTURE"
0a48 017b | { | .STRTAB 0x017b->0x0b05 ; "Manque Extension !!!"
0a49 018d | | .STRTAB 0x018d->0x0b0f ; "ENTIER"
0a4a 0191 | | .STRTAB 0x0191->0x0b12 ; "BOOLEEN"
0a4b 0196 | | .STRTAB 0x0196->0x0b16 ; "Uniquement des Entiers/Booleens/Enumeres dans les expressions!!!"
0a4c 01d4 | | .STRTAB 0x01d4->0x0b36 ; "COMP"
0a4d 01d6 | | .STRTAB 0x01d6->0x0b38 ; "LIE"
0a4e 01d7 | | .STRTAB 0x01d7->0x0b39 ; "DELIE"
0a4f 01da | | .STRTAB 0x01da->0x0b3c ; "["
0a50 01d9 | | .STRTAB 0x01d9->0x0b3c ; " "
0a51 01d8 | | .STRTAB 0x01d8->0x0b3d ; "]"
0a52 01d7 | | .STRTAB 0x01d7->0x0b3d ; "-"
0a53 01d6 | | .STRTAB 0x01d6->0x0b3e ; "*"
0a54 01d5 | | .STRTAB 0x01d5->0x0b3e ; "/"
0a55 01d4 | | .STRTAB 0x01d4->0x0b3f ; "="
0a56 01d3 | | .STRTAB 0x01d3->0x0b3f ; "<>"
0a57 01d3 | | .STRTAB 0x01d3->0x0b40 ; "<"
0a58 01d2 | | .STRTAB 0x01d2->0x0b41 ; ">"
0a59 01d1 | | .STRTAB 0x01d1->0x0b41 ; "<="
0a5a 01d1 | | .STRTAB 0x01d1->0x0b42 ; ">="
0a5b 01d1 | | .STRTAB 0x01d1->0x0b43 ; "ET"
0a5c 01d1 | | .STRTAB 0x01d1->0x0b44 ; "OU"
0a5d 01d1 | | .STRTAB 0x01d1->0x0b45 ; "+"
0a5e 01d0 | | .STRTAB 0x01d0->0x0b46 ; "NON"
0a5f 01d1 | | .STRTAB 0x01d1->0x0b47 ; " ("
0a60 01d1 | | .STRTAB 0x01d1->0x0b48 ; "."
0a61 01d0 | | .STRTAB 0x01d0->0x0b49 ; "("
0a62 01cf | | .STRTAB 0x01cf->0x0b49 ; ","
0a63 01ce | | .STREND 0x01ce->0x0b4a
0a64 5354 5255 |STRU| .STRTAB_STRINGS
0b4a 0000 0000 | | .BLANK 0000[0x6]
0b50 ; --------------------------------------------------------------------------------------
0b50 ; Debug Table
0b50 ; --------------------------------------------------------------------------------------
0b50 0004 0008 | | .DEBUG4 0x0004,0x0008,0xb477,0x0000,0x0001,0x0015
0b56 000b 0baa | | .DBG4T 0x000b,0x0baa,0x8000,0x0000
0b5a 007c 0bc0 | | | .DBG4T 0x007c,0x0bc0,0x8000,0x0000
0b5e 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000
0b62 00db 0bd3 | | .DBG4T 0x00db,0x0bd3,0x0002,0x4000
0b66 01b3 0bf5 | | .DBG4T 0x01b3,0x0bf5,0x0002,0x4000
0b6a 01e3 0c04 | | .DBG4T 0x01e3,0x0c04,0x0002,0x0000
0b6e 0203 0c0a | | .DBG4T 0x0203,0x0c0a,0x0002,0x4000
0b72 025b 0c1d | [ | .DBG4T 0x025b,0x0c1d,0x0002,0x0000
0b76 0313 0c37 | 7| .DBG4T 0x0313,0x0c37,0x0002,0x4000
0b7a 03ab 0c4f | O| .DBG4T 0x03ab,0x0c4f,0x0002,0x0000
0b7e 041b 0c64 | d| .DBG4T 0x041b,0x0c64,0x0001,0x4000
0b82 045b 0c74 | [ t| .DBG4T 0x045b,0x0c74,0x0002,0x4000
0b86 0503 0c8d | | .DBG4T 0x0503,0x0c8d,0x0002,0x4000
0b8a 06ab 0cef | | .DBG4T 0x06ab,0x0cef,0x0002,0x4000
0b8e 07cb 0d3b | ;| .DBG4T 0x07cb,0x0d3b,0x0002,0x0000
0b92 07d3 0d3e | >| .DBG4T 0x07d3,0x0d3e,0x0001,0x0000
0b96 07db 0d41 | A| .DBG4T 0x07db,0x0d41,0x0001,0x4000
0b9a 0943 0000 | C | .DBG4T 0x0943,0x0000,0x0005,0x0000
0b9e 096b 0d91 | k | .DBG4T 0x096b,0x0d91,0x0002,0x0000
0ba2 0973 0d94 | s | .DBG4T 0x0973,0x0d94,0x0001,0x0000
0ba6 0983 0000 | | .DBG4T 0x0983,0x0000,0x0005,0x0000
0baa ; --------------------------------------------------------------------------------------
0baa ; Debug chain
0baa ; --------------------------------------------------------------------------------------
0baa 0014 0000 | | .DBGLEN 0x0014,0x0000
0bac 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0038,0x0077
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; Debug chain
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0011 0000 | | .DBGLEN 0x0011,0x0000
0bc2 007c 0084 | | | .DBGLNO 0x007c,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2
0bd3 ; --------------------------------------------------------------------------------------
0bd3 ; Debug chain
0bd3 ; --------------------------------------------------------------------------------------
0bd3 0002 000f | | .DBGLEN 0x0002,0x000f
0bd5 00db 00df | | .DBGLNO 0x00db,0x00df,0x00e1,0x00e9,0x0101,0x0114,0x011c,0x012f,0x0142,0x0148,0x0154,0x0167,0x016f,0x017b,0x018e,0x019e,0x01a9
0be6 0001 0002 | | .XXX[0xf]
0be8 0003 0004 | |
0bea 0005 0006 | |
0bec 0007 0008 | |
0bee 0009 000a | |
0bf0 000b 000c | |
0bf2 000d 000e | |
0bf4 0010 | |
0bf5 ; --------------------------------------------------------------------------------------
0bf5 ; Debug chain
0bf5 ; --------------------------------------------------------------------------------------
0bf5 0001 0006 | | .DBGLEN 0x0001,0x0006
0bf7 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5,0x01bd,0x01c1,0x01d1,0x01d5,0x01d8
0bfe 0001 0002 | | .XXX[0x6]
0c00 0003 0004 | |
0c02 0005 0007 | |
0c04 ; --------------------------------------------------------------------------------------
0c04 ; Debug chain
0c04 ; --------------------------------------------------------------------------------------
0c04 0001 0003 | | .DBGLEN 0x0001,0x0003
0c06 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5,0x01ed,0x01fa
0c0a ; --------------------------------------------------------------------------------------
0c0a ; Debug chain
0c0a ; --------------------------------------------------------------------------------------
0c0a 0001 0008 | | .DBGLEN 0x0001,0x0008
0c0c 0203 0205 | | .DBGLNO 0x0203,0x0205,0x0211,0x0219,0x0227,0x022f,0x023e,0x0246,0x0253
0c15 0001 0004 | | .XXX[0x8]
0c17 0005 0006 | |
0c19 0007 0002 | |
0c1b 0003 0009 | |
0c1d ; --------------------------------------------------------------------------------------
0c1d ; Debug chain
0c1d ; --------------------------------------------------------------------------------------
0c1d 0002 0016 | | .DBGLEN 0x0002,0x0016
0c1f 025b 025d | [ ]| .DBGLNO 0x025b,0x025d,0x0269,0x026d,0x0272,0x0276,0x027b,0x027f,0x0287,0x028f,0x02a1,0x02a9,0x02b1,0x02c2,0x02c6,0x02ce,0x02de,0x02e7,0x02ec,0x02f5,0x02fa,0x0303,0x0308,0x030b
0c37 ; --------------------------------------------------------------------------------------
0c37 ; Debug chain
0c37 ; --------------------------------------------------------------------------------------
0c37 0002 000a | | .DBGLEN 0x0002,0x000a
0c39 0313 0315 | | .DBGLNO 0x0313,0x0315,0x0321,0x0329,0x032d,0x0332,0x0336,0x033b,0x0368,0x037c,0x0390,0x03a3
0c45 0001 0002 | | .XXX[0xa]
0c47 0003 0004 | |
0c49 0005 0006 | |
0c4b 0008 0009 | |
0c4d 0007 000b | |
0c4f ; --------------------------------------------------------------------------------------
0c4f ; Debug chain
0c4f ; --------------------------------------------------------------------------------------
0c4f 0003 0010 | | .DBGLEN 0x0003,0x0010
0c51 03ab 03ad | | .DBGLNO 0x03ab,0x03ad,0x03ae,0x03c0,0x03c8,0x03cc,0x03d1,0x03d5,0x03da,0x03de,0x03e3,0x03e5,0x03ea,0x03ec,0x03f1,0x03f3,0x03f8,0x03fa,0x0410
0c64 ; --------------------------------------------------------------------------------------
0c64 ; Debug chain
0c64 ; --------------------------------------------------------------------------------------
0c64 0000 0007 | | .DBGLEN 0x0000,0x0007
0c66 041b 0427 | '| .DBGLNO 0x041b,0x0427,0x042e,0x0436,0x043e,0x0445,0x044d
0c6d 0001 0007 | | .XXX[0x7]
0c6f 0002 0003 | |
0c71 0004 0005 | |
0c73 0006 | |
0c74 ; --------------------------------------------------------------------------------------
0c74 ; Debug chain
0c74 ; --------------------------------------------------------------------------------------
0c74 0001 000b | | .DBGLEN 0x0001,0x000b
0c76 045b 045c | [ \| .DBGLNO 0x045b,0x045c,0x0466,0x0468,0x0475,0x0479,0x0487,0x0489,0x04a4,0x04bd,0x04d4,0x04e6
0c82 0001 0002 | | .XXX[0xb]
0c84 0003 000a | |
0c86 000b 000c | |
0c88 0004 0006 | |
0c8a 0007 0008 | |
0c8c 0005 | |
0c8d ; --------------------------------------------------------------------------------------
0c8d ; Debug chain
0c8d ; --------------------------------------------------------------------------------------
0c8d 0002 002f | /| .DBGLEN 0x0002,0x002f
0c8f 0503 0505 | | .DBGLNO 0x0503,0x0505,0x0507,0x0511,0x0513,0x051f,0x0525,0x0536,0x0538,0x053e,0x0548,0x054c,0x055a,0x055c,0x0564,0x056d,0x0576,0x057f,0x0588,0x0596,0x059f,0x05a8,0x05b1,0x05ba,0x05c7,0x05d5,0x05de,0x05e7,0x0600,0x0606,0x060a,0x060e,0x0612,0x0616,0x061a,0x0623,0x062c,0x0634,0x0639,0x063d,0x0645,0x0659,0x066b,0x0674,0x067d,0x0695,0x0699,0x069e,0x06a2
0cc0 0001 0002 | | .XXX[0x2f]
0cc2 0003 0034 | 4|
0cc4 0035 0036 | 5 6|
0cc6 0022 0023 | " #|
0cc8 0025 0026 | % &|
0cca 0027 0028 | ' (|
0ccc 002e 002f | . /|
0cce 0030 0031 | 0 1|
0cd0 0032 0029 | 2 )|
0cd2 002a 002b | * +|
0cd4 002c 002d | , -|
0cd6 0004 000d | |
0cd8 000e 000f | |
0cda 0015 0011 | |
0cdc 0012 0013 | |
0cde 0014 0010 | |
0ce0 0017 0018 | |
0ce2 0019 001b | |
0ce4 001a 001d | |
0ce6 001f 001e | |
0ce8 0005 0006 | |
0cea 0007 0009 | |
0cec 000a 000b | |
0cee 0008 | |
0cef ; --------------------------------------------------------------------------------------
0cef ; Debug chain
0cef ; --------------------------------------------------------------------------------------
0cef 0000 0025 | %| .DBGLEN 0x0000,0x0025
0cf1 06ab 06b5 | | .DBGLNO 0x06ab,0x06b5,0x06b7,0x06c3,0x06d0,0x06d7,0x06df,0x06e8,0x06f2,0x06f5,0x06f8,0x0701,0x070b,0x070e,0x0711,0x071f,0x0722,0x0726,0x072f,0x0739,0x073c,0x073f,0x0748,0x0752,0x0755,0x0758,0x0766,0x0769,0x076c,0x0779,0x0781,0x0789,0x078f,0x0798,0x07a1,0x07aa,0x07b3
0d16 0001 0002 | | .XXX[0x25]
0d18 0003 000e | |
0d1a 0027 000f | ' |
0d1c 001b 001c | |
0d1e 001d 001e | |
0d20 001f 0020 | |
0d22 0021 0022 | ! "|
0d24 0023 0024 | # $|
0d26 0025 0010 | % |
0d28 0011 0012 | |
0d2a 0013 0014 | |
0d2c 0015 0016 | |
0d2e 0017 0018 | |
0d30 0019 001a | |
0d32 0004 000a | |
0d34 000b 000c | |
0d36 0005 0006 | |
0d38 0007 0008 | |
0d3a 0009 | |
0d3b ; --------------------------------------------------------------------------------------
0d3b ; Debug chain
0d3b ; --------------------------------------------------------------------------------------
0d3b 0000 0001 | | .DBGLEN 0x0000,0x0001
0d3d 07cb | | .DBGLNO 0x07cb
0d3e ; --------------------------------------------------------------------------------------
0d3e ; Debug chain
0d3e ; --------------------------------------------------------------------------------------
0d3e 0000 0001 | | .DBGLEN 0x0000,0x0001
0d40 07d3 | | .DBGLNO 0x07d3
0d41 ; --------------------------------------------------------------------------------------
0d41 ; Debug chain
0d41 ; --------------------------------------------------------------------------------------
0d41 0000 0027 | '| .DBGLEN 0x0000,0x0027
0d43 07db 07e7 | | .DBGLNO 0x07db,0x07e7,0x07e9,0x07f3,0x07fd,0x080b,0x0816,0x0818,0x0867,0x086c,0x0871,0x0876,0x087b,0x0880,0x0885,0x088a,0x088f,0x0894,0x0899,0x089e,0x08a2,0x08ae,0x08b0,0x08b4,0x08c0,0x08c2,0x08d7,0x08d9,0x08e2,0x08e4,0x08ea,0x08f2,0x0902,0x0911,0x0913,0x091c,0x091e,0x0929,0x0933
0d6a 0001 0025 | %| .XXX[0x27]
0d6c 0026 0027 | & '|
0d6e 0028 0002 | ( |
0d70 0003 0004 | |
0d72 0006 0007 | |
0d74 0008 0009 | |
0d76 000a 000b | |
0d78 000c 000d | |
0d7a 000e 000f | |
0d7c 0010 0005 | |
0d7e 0012 0013 | |
0d80 0014 0015 | |
0d82 0016 0017 | |
0d84 0018 0019 | |
0d86 001a 001b | |
0d88 001c 001d | |
0d8a 001e 001f | |
0d8c 0020 0021 | !|
0d8e 0022 0023 | " #|
0d90 0024 | $ |
0d91 ; --------------------------------------------------------------------------------------
0d91 ; Debug chain
0d91 ; --------------------------------------------------------------------------------------
0d91 0000 0001 | | .DBGLEN 0x0000,0x0001
0d93 096b | k | .DBGLNO 0x096b
0d94 ; --------------------------------------------------------------------------------------
0d94 ; Debug chain
0d94 ; --------------------------------------------------------------------------------------
0d94 0000 0002 | | .DBGLEN 0x0000,0x0002
0d96 0974 0978 | t x| .DBGLNO 0x0974,0x0978
0d98 0000 0000 | | .BLANK 0000[0x68]