|
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_0810ad
└─⟦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 0b38 | 8 | .CONST 0x0b38 ; 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 00a6 | | .CONST 0x00a6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; 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 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
002b 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated
002d 029a 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call,Visible,Unelaborated
002f 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated
0031 029a 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call,Visible,Unelaborated
0033 4800 |H | Short_Literal 0x0
0034 4807 |H | Short_Literal 0x7
0035 029f 08bb | | Declare_Subprogram INIT_08b8,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 096b | k| Declare_Subprogram INIT_0968,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 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call
0098 029d 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call
009a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
009d 00c7 | | Action Elaborate_Subprogram
009e 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call
00a0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a5 00c7 | | Action Elaborate_Subprogram
00a6 BODY_0008:
00a6 00bc | | Action Signal_Activated
00a7 00bb | | Action Signal_Completion
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 0a1a | | Action Push_String_Extended_Indexed,0xa1a ; "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 0a29 | )| Action Push_String_Extended,0xa29 ; "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 0a2a | *| Action Push_String_Extended,0xa2a ; ")"
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 0a2b | +| Action Push_String_Extended,0xa2b ; "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 0a2a | *| Action Push_String_Extended,0xa2a ; ")"
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 0a2b | +| Action Push_String_Extended,0xa2b ; "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 0a2a | *| Action Push_String_Extended,0xa2a ; ")"
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 0a2c | ,| Action Push_String_Extended,0xa2c ; "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 0a2a | *| Action Push_String_Extended,0xa2a ; ")"
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 0a2d | -| Action Push_String_Extended,0xa2d ; "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 0a2e | .| Action Push_String_Extended,0xa2e ; "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 0a2f | /| Action Push_String_Extended,0xa2f ; "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 0a30 | 0| Action Push_String_Extended,0xa30 ; "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 0a31 | 1| Action Push_String_Extended,0xa31 ; "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 0a32 | 2| Action Push_String_Extended,0xa32 ; "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 0a2e | .| Action Push_String_Extended,0xa2e ; "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 0a33 | 3| Action Push_String_Extended,0xa33 ; "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 7028 |p( | Jump_Nonzero 0x367
033f 0ada | | Execute_Immediate Plus,-0x26
0340 4624 |F$ | Jump_Case 0x25
0341 7827 |x' | Jump 0x369 ; case 0x0
0342 7861 |xa | Jump 0x3a4 ; case 0x1
0343 784d |xM | Jump 0x391 ; case 0x2
0344 785f |x_ | Jump 0x3a4 ; case 0x3
0345 785e |x^ | Jump 0x3a4 ; case 0x4
0346 785d |x] | Jump 0x3a4 ; case 0x5
0347 785c |x\ | Jump 0x3a4 ; case 0x6
0348 785b |x[ | Jump 0x3a4 ; case 0x7
0349 785a |xZ | Jump 0x3a4 ; case 0x8
034a 7859 |xY | Jump 0x3a4 ; case 0x9
034b 7858 |xX | Jump 0x3a4 ; case 0xa
034c 7857 |xW | Jump 0x3a4 ; case 0xb
034d 7856 |xV | Jump 0x3a4 ; case 0xc
034e 7842 |xB | Jump 0x391 ; case 0xd
034f 7819 |x | Jump 0x369 ; case 0xe
0350 7853 |xS | Jump 0x3a4 ; case 0xf
0351 782b |x+ | Jump 0x37d ; case 0x10
0352 7851 |xQ | Jump 0x3a4 ; case 0x11
0353 7850 |xP | Jump 0x3a4 ; case 0x12
0354 784f |xO | Jump 0x3a4 ; case 0x13
0355 784e |xN | Jump 0x3a4 ; case 0x14
0356 784d |xM | Jump 0x3a4 ; case 0x15
0357 784c |xL | Jump 0x3a4 ; case 0x16
0358 784b |xK | Jump 0x3a4 ; case 0x17
0359 784a |xJ | Jump 0x3a4 ; case 0x18
035a 7849 |xI | Jump 0x3a4 ; case 0x19
035b 7848 |xH | Jump 0x3a4 ; case 0x1a
035c 7847 |xG | Jump 0x3a4 ; case 0x1b
035d 7846 |xF | Jump 0x3a4 ; case 0x1c
035e 7845 |xE | Jump 0x3a4 ; case 0x1d
035f 7844 |xD | Jump 0x3a4 ; case 0x1e
0360 7843 |xC | Jump 0x3a4 ; case 0x1f
0361 7842 |xB | Jump 0x3a4 ; case 0x20
0362 7841 |xA | Jump 0x3a4 ; case 0x21
0363 7840 |x@ | Jump 0x3a4 ; case 0x22
0364 783f |x? | Jump 0x3a4 ; case 0x23
0365 783e |x> | Jump 0x3a4 ; case 0x24
0366 783d |x= | .XXX[0x1]
0367 00d1 | | Pop_Control Pop_Count_1
0368 783b |x; | Jump 0x3a4
0369 4806 |H | Short_Literal 0x6
036a e21f | | Load 0x1,0x1f
036b 1c08 | | Execute_Immediate Run_Utility,0x8
036c 00d8 | | Load_Top At_Offset_0
036d 1c01 | | Execute_Immediate Run_Utility,0x1
036e 4804 |H | Short_Literal 0x4
036f 00d9 | | Load_Top At_Offset_1
0370 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0371 e5ff | | Load 0x2,-0x1
0372 00d9 | | Load_Top At_Offset_1
0373 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0374 00da | | Load_Top At_Offset_2
0375 00d9 | | Load_Top At_Offset_1
0376 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
0377 00d9 | | Load_Top At_Offset_1
0378 00d9 | | Load_Top At_Offset_1
0379 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
037a 00db | | Load_Top At_Offset_3
037b 0228 | ( | Execute Access,All_Write
037c 7827 |x' | Jump 0x3a4
037d 4806 |H | Short_Literal 0x6
037e e21f | | Load 0x1,0x1f
037f 1c08 | | Execute_Immediate Run_Utility,0x8
0380 00d8 | | Load_Top At_Offset_0
0381 1c01 | | Execute_Immediate Run_Utility,0x1
0382 4800 |H | Short_Literal 0x0
0383 00d9 | | Load_Top At_Offset_1
0384 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0385 e5ff | | Load 0x2,-0x1
0386 00d9 | | Load_Top At_Offset_1
0387 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0388 00da | | Load_Top At_Offset_2
0389 00d9 | | Load_Top At_Offset_1
038a 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
038b 00d9 | | Load_Top At_Offset_1
038c 00d9 | | Load_Top At_Offset_1
038d 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
038e 00db | | Load_Top At_Offset_3
038f 0228 | ( | Execute Access,All_Write
0390 7813 |x | Jump 0x3a4
0391 4806 |H | Short_Literal 0x6
0392 e21f | | Load 0x1,0x1f
0393 1c08 | | Execute_Immediate Run_Utility,0x8
0394 00d8 | | Load_Top At_Offset_0
0395 1c01 | | Execute_Immediate Run_Utility,0x1
0396 4803 |H | Short_Literal 0x3
0397 00d9 | | Load_Top At_Offset_1
0398 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0399 e5ff | | Load 0x2,-0x1
039a 00d9 | | Load_Top At_Offset_1
039b 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
039c 00da | | Load_Top At_Offset_2
039d 00d9 | | Load_Top At_Offset_1
039e 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
039f 00d9 | | Load_Top At_Offset_1
03a0 00d9 | | Load_Top At_Offset_1
03a1 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
03a2 00db | | Load_Top At_Offset_3
03a3 0228 | ( | Execute Access,All_Write
03a4 00da | | Load_Top At_Offset_2
03a5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03a6 0000 0000 | | .XXX[0x2]
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 7897 |x | Jump 0x505 ; case 0x1
046e 7806 |x | Jump 0x475 ; case 0x2
046f 7895 |x | Jump 0x505 ; case 0x3
0470 7894 |x | Jump 0x505 ; case 0x4
0471 7807 |x | Jump 0x479 ; case 0x5
0472 7892 |x | Jump 0x505 ; case 0x6
0473 7891 |x | Jump 0x505 ; case 0x7
0474 7890 |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 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
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 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
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 702e |p. | Jump_Nonzero 0x4bd
048f 4613 |F | Jump_Case 0x14
0490 7874 |xt | Jump 0x505 ; case 0x0
0491 7873 |xs | Jump 0x505 ; case 0x1
0492 7872 |xr | Jump 0x505 ; case 0x2
0493 7871 |xq | Jump 0x505 ; case 0x3
0494 7870 |xp | Jump 0x505 ; case 0x4
0495 786f |xo | Jump 0x505 ; case 0x5
0496 7828 |x( | Jump 0x4bf ; case 0x6
0497 7840 |x@ | Jump 0x4d8 ; case 0x7
0498 786c |xl | Jump 0x505 ; case 0x8
0499 786b |xk | Jump 0x505 ; case 0x9
049a 786a |xj | Jump 0x505 ; case 0xa
049b 7869 |xi | Jump 0x505 ; case 0xb
049c 7868 |xh | Jump 0x505 ; case 0xc
049d 7867 |xg | Jump 0x505 ; case 0xd
049e 7866 |xf | Jump 0x505 ; case 0xe
049f 7865 |xe | Jump 0x505 ; case 0xf
04a0 7864 |xd | Jump 0x505 ; case 0x10
04a1 7863 |xc | Jump 0x505 ; case 0x11
04a2 7849 |xI | Jump 0x4ec ; case 0x12
04a3 7800 |x | Jump 0x4a4 ; case 0x13
04a4 e5fa | | Load 0x2,-0x6
04a5 e5fb | | Load 0x2,-0x5
04a6 e5fc | | Load 0x2,-0x4
04a7 e5fd | | Load 0x2,-0x3
04a8 e5fe | | Load 0x2,-0x2
04a9 e5ff | | Load 0x2,-0x1
04aa 0227 | ' | Execute Access,All_Reference
04ab 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04ac 8218 | | Call 0x1,0x18
04ad e5fa | | Load 0x2,-0x6
04ae e5fb | | Load 0x2,-0x5
04af e5fc | | Load 0x2,-0x4
04b0 e5fd | | Load 0x2,-0x3
04b1 e5fe | | Load 0x2,-0x2
04b2 e5ff | | Load 0x2,-0x1
04b3 0227 | ' | Execute Access,All_Reference
04b4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04b5 8218 | | Call 0x1,0x18
04b6 0272 | r | Execute Discrete,Minus
04b7 00d8 | | Load_Top At_Offset_0
04b8 00e2 | | Load_Encached Integer_Cache
04b9 0260 | ` | Execute Discrete,In_Type
04ba 7001 |p | Jump_Nonzero 0x4bc
04bb 0801 | | Execute_Immediate Raise,0x1
04bc 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04bd 00d1 | | Pop_Control Pop_Count_1
04be 7846 |xF | Jump 0x505
04bf e5fa | | Load 0x2,-0x6
04c0 e5fb | | Load 0x2,-0x5
04c1 e5fc | | Load 0x2,-0x4
04c2 e5fd | | Load 0x2,-0x3
04c3 e5fe | | Load 0x2,-0x2
04c4 e5ff | | Load 0x2,-0x1
04c5 0227 | ' | Execute Access,All_Reference
04c6 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04c7 8218 | | Call 0x1,0x18
04c8 e5fa | | Load 0x2,-0x6
04c9 e5fb | | Load 0x2,-0x5
04ca e5fc | | Load 0x2,-0x4
04cb e5fd | | Load 0x2,-0x3
04cc e5fe | | Load 0x2,-0x2
04cd e5ff | | Load 0x2,-0x1
04ce 0227 | ' | Execute Access,All_Reference
04cf 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04d0 8218 | | Call 0x1,0x18
04d1 0271 | q | Execute Discrete,Times
04d2 00d8 | | Load_Top At_Offset_0
04d3 00e2 | | Load_Encached Integer_Cache
04d4 0260 | ` | Execute Discrete,In_Type
04d5 7001 |p | Jump_Nonzero 0x4d7
04d6 0801 | | Execute_Immediate Raise,0x1
04d7 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04d8 e5fa | | Load 0x2,-0x6
04d9 e5fb | | Load 0x2,-0x5
04da e5fc | | Load 0x2,-0x4
04db e5fd | | Load 0x2,-0x3
04dc e5fe | | Load 0x2,-0x2
04dd e5ff | | Load 0x2,-0x1
04de 0227 | ' | Execute Access,All_Reference
04df 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04e0 8218 | | Call 0x1,0x18
04e1 e5fa | | Load 0x2,-0x6
04e2 e5fb | | Load 0x2,-0x5
04e3 e5fc | | Load 0x2,-0x4
04e4 e5fd | | Load 0x2,-0x3
04e5 e5fe | | Load 0x2,-0x2
04e6 e5ff | | Load 0x2,-0x1
04e7 0227 | ' | Execute Access,All_Reference
04e8 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04e9 8218 | | Call 0x1,0x18
04ea 0270 | p | Execute Discrete,Divide
04eb 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04ec e5fa | | Load 0x2,-0x6
04ed e5fb | | Load 0x2,-0x5
04ee e5fc | | Load 0x2,-0x4
04ef e5fd | | Load 0x2,-0x3
04f0 e5fe | | Load 0x2,-0x2
04f1 e5ff | | Load 0x2,-0x1
04f2 0227 | ' | Execute Access,All_Reference
04f3 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04f4 8218 | | Call 0x1,0x18
04f5 e5fa | | Load 0x2,-0x6
04f6 e5fb | | Load 0x2,-0x5
04f7 e5fc | | Load 0x2,-0x4
04f8 e5fd | | Load 0x2,-0x3
04f9 e5fe | | Load 0x2,-0x2
04fa e5ff | | Load 0x2,-0x1
04fb 0227 | ' | Execute Access,All_Reference
04fc 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04fd 8218 | | Call 0x1,0x18
04fe 0273 | s | Execute Discrete,Plus
04ff 00d8 | | Load_Top At_Offset_0
0500 00e2 | | Load_Encached Integer_Cache
0501 0260 | ` | Execute Discrete,In_Type
0502 7001 |p | Jump_Nonzero 0x504
0503 0801 | | Execute_Immediate Raise,0x1
0504 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0505 0831 | 1 | Execute_Immediate Raise,0x31
0506 0000 0000 | | .XXX[0x2]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 051b | | .CONST 0x051b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0007 | | .CONST 0x0007 ; Number of locals
050b INIT_0508:
050b 00e1 | | Load_Encached Boolean_Cache
050c 03e9 | | Declare_Variable Discrete,Duplicate
050d 00e2 | | Load_Encached Integer_Cache
050e 03e9 | | Declare_Variable Discrete,Duplicate
050f 4820 |H | Short_Literal 0x20
0510 e003 | | Load 0x0,0x3
0511 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0512 1c08 | | Execute_Immediate Run_Utility,0x8
0513 00d8 | | Load_Top At_Offset_0
0514 1c00 | | Execute_Immediate Run_Utility,0x0
0515 4820 |H | Short_Literal 0x20
0516 e003 | | Load 0x0,0x3
0517 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0518 1c08 | | Execute_Immediate Run_Utility,0x8
0519 00d8 | | Load_Top At_Offset_0
051a 1c00 | | Execute_Immediate Run_Utility,0x0
051b BODY_0508:
051b e5ff | | Load 0x2,-0x1
051c 0227 | ' | Execute Access,All_Reference
051d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
051e 0e03 | | Execute_Immediate Not_Equal,0x3
051f e5ff | | Load 0x2,-0x1
0520 0227 | ' | Execute Access,All_Reference
0521 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0522 0e05 | | Execute_Immediate Not_Equal,0x5
0523 0279 | y | Execute Discrete,And
0524 6802 |h | Jump_Zero 0x527
0525 e20d | | Load 0x1,0xd
0526 0257 | W | Execute Discrete,Raise
0527 e5ff | | Load 0x2,-0x1
0528 0227 | ' | Execute Access,All_Reference
0529 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
052a 4607 |F | Jump_Case 0x8
052b 7871 |xq | Jump 0x59d ; case 0x0
052c 7820 |x | Jump 0x54d ; case 0x1
052d 7958 |yX | Jump 0x686 ; case 0x2
052e 782f |x/ | Jump 0x55e ; case 0x3
052f 7956 |yV | Jump 0x686 ; case 0x4
0530 7831 |x1 | Jump 0x562 ; case 0x5
0531 7840 |x@ | Jump 0x572 ; case 0x6
0532 7800 |x | Jump 0x533 ; case 0x7
0533 800b | | Call 0x0,0xb
0534 e5ff | | Load 0x2,-0x1
0535 0227 | ' | Execute Access,All_Reference
0536 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0537 027f | | Execute Discrete,Equal
0538 6812 |h | Jump_Zero 0x54b
0539 e5fa | | Load 0x2,-0x6
053a e5ff | | Load 0x2,-0x1
053b 0227 | ' | Execute Access,All_Reference
053c 2613 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x13
053d e003 | | Load 0x0,0x3
053e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
053f e5ff | | Load 0x2,-0x1
0540 0227 | ' | Execute Access,All_Reference
0541 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
0542 e003 | | Load 0x0,0x3
0543 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0544 e5ff | | Load 0x2,-0x1
0545 0227 | ' | Execute Access,All_Reference
0546 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
0547 e003 | | Load 0x0,0x3
0548 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0549 800c | | Call 0x0,0xc
054a 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
054b 4800 |H | Short_Literal 0x0
054c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
054d e5ff | | Load 0x2,-0x1
054e 0227 | ' | Execute Access,All_Reference
054f 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0550 0f43 | C | Execute_Immediate Equal,0x43
0551 7001 |p | Jump_Nonzero 0x553
0552 7933 |y3 | Jump 0x686
0553 e5fa | | Load 0x2,-0x6
0554 e5fb | | Load 0x2,-0x5
0555 e5fc | | Load 0x2,-0x4
0556 e5fd | | Load 0x2,-0x3
0557 e5fe | | Load 0x2,-0x2
0558 e5ff | | Load 0x2,-0x1
0559 0227 | ' | Execute Access,All_Reference
055a 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
055b 8219 | | Call 0x1,0x19
055c 0f00 | | Execute_Immediate Equal,0x0
055d 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
055e e5ff | | Load 0x2,-0x1
055f 0227 | ' | Execute Access,All_Reference
0560 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0561 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0562 e5ff | | Load 0x2,-0x1
0563 0227 | ' | Execute Access,All_Reference
0564 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
0565 e003 | | Load 0x0,0x3
0566 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0567 e5ff | | Load 0x2,-0x1
0568 0227 | ' | Execute Access,All_Reference
0569 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
056a e003 | | Load 0x0,0x3
056b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
056c e5fe | | Load 0x2,-0x2
056d e5fd | | Load 0x2,-0x3
056e 800d | | Call 0x0,0xd
056f a402 | | Store_Unchecked 0x2,0x2
0570 e402 | | Load 0x2,0x2
0571 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0572 e5ff | | Load 0x2,-0x1
0573 0227 | ' | Execute Access,All_Reference
0574 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0575 00da | | Load_Top At_Offset_2
0576 016d | m | Execute Variant_Record,Structure_Write
0577 e5ff | | Load 0x2,-0x1
0578 0227 | ' | Execute Access,All_Reference
0579 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
057a 00d9 | | Load_Top At_Offset_1
057b 016d | m | Execute Variant_Record,Structure_Write
057c 00d8 | | Load_Top At_Offset_0
057d 00da | | Load_Top At_Offset_2
057e e5fd | | Load 0x2,-0x3
057f e5fa | | Load 0x2,-0x6
0580 8226 | & | Call 0x1,0x26
0581 00d2 | | Pop_Control Pop_Count_2
0582 e5ff | | Load 0x2,-0x1
0583 0227 | ' | Execute Access,All_Reference
0584 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0585 0b33 | 3 | Execute_Immediate Case_Compare,0x33
0586 700c |p | Jump_Nonzero 0x593
0587 0f28 | ( | Execute_Immediate Equal,0x28
0588 7001 |p | Jump_Nonzero 0x58a
0589 78fc |x | Jump 0x686
058a e5fb | | Load 0x2,-0x5
058b 00d9 | | Load_Top At_Offset_1
058c e003 | | Load 0x0,0x3
058d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
058e 00db | | Load_Top At_Offset_3
058f e003 | | Load 0x0,0x3
0590 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0591 800e | | Call 0x0,0xe
0592 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0593 00d1 | | Pop_Control Pop_Count_1
0594 e5fc | | Load 0x2,-0x4
0595 00d9 | | Load_Top At_Offset_1
0596 e003 | | Load 0x0,0x3
0597 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0598 00db | | Load_Top At_Offset_3
0599 e003 | | Load 0x0,0x3
059a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059b 800f | | Call 0x0,0xf
059c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
059d e5ff | | Load 0x2,-0x1
059e 0227 | ' | Execute Access,All_Reference
059f 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05a0 0227 | ' | Execute Access,All_Reference
05a1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05a2 4606 |F | Jump_Case 0x7
05a3 7873 |xs | Jump 0x617 ; case 0x0
05a4 784d |xM | Jump 0x5f2 ; case 0x1
05a5 7805 |x | Jump 0x5ab ; case 0x2
05a6 78a2 |x | Jump 0x649 ; case 0x3
05a7 786f |xo | Jump 0x617 ; case 0x4
05a8 78a0 |x | Jump 0x649 ; case 0x5
05a9 78dc |x | Jump 0x686 ; case 0x6
05aa 78db |x | .XXX[0x1]
05ab e5fa | | Load 0x2,-0x6
05ac e5fb | | Load 0x2,-0x5
05ad e5fc | | Load 0x2,-0x4
05ae e5fd | | Load 0x2,-0x3
05af e5fe | | Load 0x2,-0x2
05b0 e5ff | | Load 0x2,-0x1
05b1 0227 | ' | Execute Access,All_Reference
05b2 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05b3 8218 | | Call 0x1,0x18
05b4 a404 | | Store_Unchecked 0x2,0x4
05b5 e5fa | | Load 0x2,-0x6
05b6 e5fb | | Load 0x2,-0x5
05b7 e5fc | | Load 0x2,-0x4
05b8 e5fd | | Load 0x2,-0x3
05b9 e5fe | | Load 0x2,-0x2
05ba e5ff | | Load 0x2,-0x1
05bb 0227 | ' | Execute Access,All_Reference
05bc 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05bd 8218 | | Call 0x1,0x18
05be 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05bf e5ff | | Load 0x2,-0x1
05c0 0227 | ' | Execute Access,All_Reference
05c1 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05c2 00d8 | | Load_Top At_Offset_0
05c3 0c12 | | Execute_Immediate Greater_Equal,0x12
05c4 7017 |p | Jump_Nonzero 0x5dc
05c5 4611 |F | Jump_Case 0x12
05c6 78bf |x | Jump 0x686 ; case 0x0
05c7 78be |x | Jump 0x686 ; case 0x1
05c8 78bd |x | Jump 0x686 ; case 0x2
05c9 78bc |x | Jump 0x686 ; case 0x3
05ca 78bb |x | Jump 0x686 ; case 0x4
05cb 7822 |x" | Jump 0x5ee ; case 0x5
05cc 78b9 |x | Jump 0x686 ; case 0x6
05cd 78b8 |x | Jump 0x686 ; case 0x7
05ce 78b7 |x | Jump 0x686 ; case 0x8
05cf 78b6 |x | Jump 0x686 ; case 0x9
05d0 78b5 |x | Jump 0x686 ; case 0xa
05d1 78b4 |x | Jump 0x686 ; case 0xb
05d2 78b3 |x | Jump 0x686 ; case 0xc
05d3 780e |x | Jump 0x5e2 ; case 0xd
05d4 7811 |x | Jump 0x5e6 ; case 0xe
05d5 7808 |x | Jump 0x5de ; case 0xf
05d6 7813 |x | Jump 0x5ea ; case 0x10
05d7 7800 |x | Jump 0x5d8 ; case 0x11
05d8 00db | | Load_Top At_Offset_3
05d9 00db | | Load_Top At_Offset_3
05da 027b | { | Execute Discrete,Greater_Equal
05db 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
05dc 00d1 | | Pop_Control Pop_Count_1
05dd 78a8 |x | Jump 0x686
05de 00db | | Load_Top At_Offset_3
05df 00db | | Load_Top At_Offset_3
05e0 027e | ~ | Execute Discrete,Not_Equal
05e1 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
05e2 00db | | Load_Top At_Offset_3
05e3 00db | | Load_Top At_Offset_3
05e4 027c | | | Execute Discrete,Less
05e5 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
05e6 00db | | Load_Top At_Offset_3
05e7 00db | | Load_Top At_Offset_3
05e8 027a | z | Execute Discrete,Less_Equal
05e9 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
05ea 00db | | Load_Top At_Offset_3
05eb 00db | | Load_Top At_Offset_3
05ec 027d | } | Execute Discrete,Greater
05ed 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
05ee 00db | | Load_Top At_Offset_3
05ef 00db | | Load_Top At_Offset_3
05f0 027f | | Execute Discrete,Equal
05f1 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
05f2 e5fa | | Load 0x2,-0x6
05f3 e5fb | | Load 0x2,-0x5
05f4 e5fc | | Load 0x2,-0x4
05f5 e5fd | | Load 0x2,-0x3
05f6 e5fe | | Load 0x2,-0x2
05f7 e5ff | | Load 0x2,-0x1
05f8 0227 | ' | Execute Access,All_Reference
05f9 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05fa 8218 | | Call 0x1,0x18
05fb a404 | | Store_Unchecked 0x2,0x4
05fc e5fa | | Load 0x2,-0x6
05fd e5fb | | Load 0x2,-0x5
05fe e5fc | | Load 0x2,-0x4
05ff e5fd | | Load 0x2,-0x3
0600 e5fe | | Load 0x2,-0x2
0601 e5ff | | Load 0x2,-0x1
0602 0227 | ' | Execute Access,All_Reference
0603 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0604 8218 | | Call 0x1,0x18
0605 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0606 e5ff | | Load 0x2,-0x1
0607 0227 | ' | Execute Access,All_Reference
0608 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0609 0b05 | | Execute_Immediate Case_Compare,0x5
060a 7007 |p | Jump_Nonzero 0x612
060b 0f0f | | Execute_Immediate Equal,0xf
060c 7001 |p | Jump_Nonzero 0x60e
060d 7878 |xx | Jump 0x686
060e 00db | | Load_Top At_Offset_3
060f 00db | | Load_Top At_Offset_3
0610 027e | ~ | Execute Discrete,Not_Equal
0611 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0612 00d1 | | Pop_Control Pop_Count_1
0613 00db | | Load_Top At_Offset_3
0614 00db | | Load_Top At_Offset_3
0615 027f | | Execute Discrete,Equal
0616 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0617 e5ff | | Load 0x2,-0x1
0618 0227 | ' | Execute Access,All_Reference
0619 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
061a 0b05 | | Execute_Immediate Case_Compare,0x5
061b 7018 |p | Jump_Nonzero 0x634
061c 0f0f | | Execute_Immediate Equal,0xf
061d 7001 |p | Jump_Nonzero 0x61f
061e 7867 |xg | Jump 0x686
061f e5fa | | Load 0x2,-0x6
0620 e5fb | | Load 0x2,-0x5
0621 e5fc | | Load 0x2,-0x4
0622 e5fd | | Load 0x2,-0x3
0623 e5fe | | Load 0x2,-0x2
0624 e5ff | | Load 0x2,-0x1
0625 0227 | ' | Execute Access,All_Reference
0626 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0627 821a | | Call 0x1,0x1a
0628 e5fa | | Load 0x2,-0x6
0629 e5fb | | Load 0x2,-0x5
062a e5fc | | Load 0x2,-0x4
062b e5fd | | Load 0x2,-0x3
062c e5fe | | Load 0x2,-0x2
062d e5ff | | Load 0x2,-0x1
062e 0227 | ' | Execute Access,All_Reference
062f 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0630 821a | | Call 0x1,0x1a
0631 8225 | % | Call 0x1,0x25
0632 0f00 | | Execute_Immediate Equal,0x0
0633 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0634 00d1 | | Pop_Control Pop_Count_1
0635 e5fa | | Load 0x2,-0x6
0636 e5fb | | Load 0x2,-0x5
0637 e5fc | | Load 0x2,-0x4
0638 e5fd | | Load 0x2,-0x3
0639 e5fe | | Load 0x2,-0x2
063a e5ff | | Load 0x2,-0x1
063b 0227 | ' | Execute Access,All_Reference
063c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
063d 821a | | Call 0x1,0x1a
063e e5fa | | Load 0x2,-0x6
063f e5fb | | Load 0x2,-0x5
0640 e5fc | | Load 0x2,-0x4
0641 e5fd | | Load 0x2,-0x3
0642 e5fe | | Load 0x2,-0x2
0643 e5ff | | Load 0x2,-0x1
0644 0227 | ' | Execute Access,All_Reference
0645 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0646 821a | | Call 0x1,0x1a
0647 8225 | % | Call 0x1,0x25
0648 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0649 e5fa | | Load 0x2,-0x6
064a e5fb | | Load 0x2,-0x5
064b e5fc | | Load 0x2,-0x4
064c e5fd | | Load 0x2,-0x3
064d e5fe | | Load 0x2,-0x2
064e e5ff | | Load 0x2,-0x1
064f 0227 | ' | Execute Access,All_Reference
0650 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0651 8219 | | Call 0x1,0x19
0652 a402 | | Store_Unchecked 0x2,0x2
0653 e5fa | | Load 0x2,-0x6
0654 e5fb | | Load 0x2,-0x5
0655 e5fc | | Load 0x2,-0x4
0656 e5fd | | Load 0x2,-0x3
0657 e5fe | | Load 0x2,-0x2
0658 e5ff | | Load 0x2,-0x1
0659 0227 | ' | Execute Access,All_Reference
065a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
065b 8219 | | Call 0x1,0x19
065c a403 | | Store_Unchecked 0x2,0x3
065d e5ff | | Load 0x2,-0x1
065e 0227 | ' | Execute Access,All_Reference
065f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0660 00d8 | | Load_Top At_Offset_0
0661 0d05 | | Execute_Immediate Less,0x5
0662 7010 |p | Jump_Nonzero 0x673
0663 00d8 | | Load_Top At_Offset_0
0664 0c10 | | Execute_Immediate Greater_Equal,0x10
0665 7008 |p | Jump_Nonzero 0x66e
0666 00d8 | | Load_Top At_Offset_0
0667 4806 |H | Short_Literal 0x6
0668 480e |H | Short_Literal 0xe
0669 0262 | b | Execute Discrete,In_Range
066a 7008 |p | Jump_Nonzero 0x673
066b 0f0f | | Execute_Immediate Equal,0xf
066c 7008 |p | Jump_Nonzero 0x675
066d 7814 |x | Jump 0x682
066e 0b44 | D | Execute_Immediate Case_Compare,0x44
066f 700d |p | Jump_Nonzero 0x67d
0670 0f45 | E | Execute_Immediate Equal,0x45
0671 7007 |p | Jump_Nonzero 0x679
0672 7813 |x | Jump 0x686
0673 00d1 | | Pop_Control Pop_Count_1
0674 7811 |x | Jump 0x686
0675 e402 | | Load 0x2,0x2
0676 e403 | | Load 0x2,0x3
0677 027e | ~ | Execute Discrete,Not_Equal
0678 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0679 e402 | | Load 0x2,0x2
067a e403 | | Load 0x2,0x3
067b 0279 | y | Execute Discrete,And
067c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
067d 00d1 | | Pop_Control Pop_Count_1
067e e402 | | Load 0x2,0x2
067f e403 | | Load 0x2,0x3
0680 0278 | x | Execute Discrete,Or
0681 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0682 e402 | | Load 0x2,0x2
0683 e403 | | Load 0x2,0x3
0684 027f | | Execute Discrete,Equal
0685 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0686 0831 | 1 | Execute_Immediate Raise,0x31
0687 0000 | | .XXX[0x1]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0697 | | .CONST 0x0697 ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0003 | | .CONST 0x0003 ; Number of locals
068b INIT_0688:
068b 4820 |H | Short_Literal 0x20
068c e003 | | Load 0x0,0x3
068d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
068e 1c08 | | Execute_Immediate Run_Utility,0x8
068f 00d8 | | Load_Top At_Offset_0
0690 1c00 | | Execute_Immediate Run_Utility,0x0
0691 4820 |H | Short_Literal 0x20
0692 e003 | | Load 0x0,0x3
0693 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0694 1c08 | | Execute_Immediate Run_Utility,0x8
0695 00d8 | | Load_Top At_Offset_0
0696 1c00 | | Execute_Immediate Run_Utility,0x0
0697 BODY_0688:
0697 e5ff | | Load 0x2,-0x1
0698 0227 | ' | Execute Access,All_Reference
0699 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
069a 0e00 | | Execute_Immediate Not_Equal,0x0
069b e5ff | | Load 0x2,-0x1
069c 0227 | ' | Execute Access,All_Reference
069d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
069e 0e04 | | Execute_Immediate Not_Equal,0x4
069f 0279 | y | Execute Discrete,And
06a0 6802 |h | Jump_Zero 0x6a3
06a1 e20d | | Load 0x1,0xd
06a2 0257 | W | Execute Discrete,Raise
06a3 e5ff | | Load 0x2,-0x1
06a4 0227 | ' | Execute Access,All_Reference
06a5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06a6 4606 |F | Jump_Case 0x7
06a7 7854 |xT | Jump 0x6fc ; case 0x0
06a8 788f |x | Jump 0x738 ; case 0x1
06a9 788e |x | Jump 0x738 ; case 0x2
06aa 788d |x | Jump 0x738 ; case 0x3
06ab 7803 |x | Jump 0x6af ; case 0x4
06ac 788b |x | Jump 0x738 ; case 0x5
06ad 788a |x | Jump 0x738 ; case 0x6
06ae 7889 |x | .XXX[0x1]
06af e5ff | | Load 0x2,-0x1
06b0 0227 | ' | Execute Access,All_Reference
06b1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06b2 4607 |F | Jump_Case 0x8
06b3 7884 |x | Jump 0x738 ; case 0x0
06b4 7883 |x | Jump 0x738 ; case 0x1
06b5 7882 |x | Jump 0x738 ; case 0x2
06b6 7881 |x | Jump 0x738 ; case 0x3
06b7 7804 |x | Jump 0x6bc ; case 0x4
06b8 787f |x | Jump 0x738 ; case 0x5
06b9 7809 |x | Jump 0x6c3 ; case 0x6
06ba 787d |x} | Jump 0x738 ; case 0x7
06bb 787c |x| | .XXX[0x1]
06bc e5ff | | Load 0x2,-0x1
06bd 0227 | ' | Execute Access,All_Reference
06be 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
06bf e002 | | Load 0x0,0x2
06c0 011c | | Execute Any,Convert_Unchecked
06c1 1c01 | | Execute_Immediate Run_Utility,0x1
06c2 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
06c3 e5ff | | Load 0x2,-0x1
06c4 0227 | ' | Execute Access,All_Reference
06c5 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
06c6 00da | | Load_Top At_Offset_2
06c7 016d | m | Execute Variant_Record,Structure_Write
06c8 e5ff | | Load 0x2,-0x1
06c9 0227 | ' | Execute Access,All_Reference
06ca 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
06cb 00d9 | | Load_Top At_Offset_1
06cc 016d | m | Execute Variant_Record,Structure_Write
06cd 00d8 | | Load_Top At_Offset_0
06ce 00da | | Load_Top At_Offset_2
06cf e5fd | | Load 0x2,-0x3
06d0 e5fa | | Load 0x2,-0x6
06d1 8226 | & | Call 0x1,0x26
06d2 00d2 | | Pop_Control Pop_Count_2
06d3 e5ff | | Load 0x2,-0x1
06d4 0227 | ' | Execute Access,All_Reference
06d5 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
06d6 0b34 | 4 | Execute_Immediate Case_Compare,0x34
06d7 7013 |p | Jump_Nonzero 0x6eb
06d8 0f26 | & | Execute_Immediate Equal,0x26
06d9 7001 |p | Jump_Nonzero 0x6db
06da 785d |x] | Jump 0x738
06db e5fb | | Load 0x2,-0x5
06dc 00d9 | | Load_Top At_Offset_1
06dd e003 | | Load 0x0,0x3
06de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06df 00db | | Load_Top At_Offset_3
06e0 e003 | | Load 0x0,0x3
06e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06e2 8010 | | Call 0x0,0x10
06e3 0f01 | | Execute_Immediate Equal,0x1
06e4 6803 |h | Jump_Zero 0x6e8
06e5 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "LIE"
06e7 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
06e8 0092 0a35 | 5| Action Push_String_Extended,0xa35 ; "DELIE"
06ea 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
06eb 00d1 | | Pop_Control Pop_Count_1
06ec e5fc | | Load 0x2,-0x4
06ed 00d9 | | Load_Top At_Offset_1
06ee e003 | | Load 0x0,0x3
06ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06f0 00db | | Load_Top At_Offset_3
06f1 e003 | | Load 0x0,0x3
06f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06f3 8011 | | Call 0x0,0x11
06f4 0f01 | | Execute_Immediate Equal,0x1
06f5 6803 |h | Jump_Zero 0x6f9
06f6 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "LIE"
06f8 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
06f9 0092 0a35 | 5| Action Push_String_Extended,0xa35 ; "DELIE"
06fb 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
06fc e5ff | | Load 0x2,-0x1
06fd 0227 | ' | Execute Access,All_Reference
06fe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06ff 4607 |F | Jump_Case 0x8
0700 7837 |x7 | Jump 0x738 ; case 0x0
0701 7836 |x6 | Jump 0x738 ; case 0x1
0702 7835 |x5 | Jump 0x738 ; case 0x2
0703 7834 |x4 | Jump 0x738 ; case 0x3
0704 7833 |x3 | Jump 0x738 ; case 0x4
0705 7803 |x | Jump 0x709 ; case 0x5
0706 7818 |x | Jump 0x71f ; case 0x6
0707 7830 |x0 | Jump 0x738 ; case 0x7
0708 782f |x/ | .XXX[0x1]
0709 e5ff | | Load 0x2,-0x1
070a 0227 | ' | Execute Access,All_Reference
070b 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
070c e003 | | Load 0x0,0x3
070d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
070e e5fd | | Load 0x2,-0x3
070f 8012 | | Call 0x0,0x12
0710 6808 |h | Jump_Zero 0x719
0711 e5ff | | Load 0x2,-0x1
0712 0227 | ' | Execute Access,All_Reference
0713 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
0714 e003 | | Load 0x0,0x3
0715 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0716 e5fd | | Load 0x2,-0x3
0717 8013 | | Call 0x0,0x13
0718 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0719 e5ff | | Load 0x2,-0x1
071a 0227 | ' | Execute Access,All_Reference
071b 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
071c e003 | | Load 0x0,0x3
071d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
071e 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
071f e5ff | | Load 0x2,-0x1
0720 0227 | ' | Execute Access,All_Reference
0721 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0722 00da | | Load_Top At_Offset_2
0723 016d | m | Execute Variant_Record,Structure_Write
0724 e5ff | | Load 0x2,-0x1
0725 0227 | ' | Execute Access,All_Reference
0726 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0727 00d9 | | Load_Top At_Offset_1
0728 016d | m | Execute Variant_Record,Structure_Write
0729 00d8 | | Load_Top At_Offset_0
072a 00da | | Load_Top At_Offset_2
072b e5fd | | Load 0x2,-0x3
072c e5fa | | Load 0x2,-0x6
072d 8226 | & | Call 0x1,0x26
072e 00d2 | | Pop_Control Pop_Count_2
072f e5fc | | Load 0x2,-0x4
0730 00d9 | | Load_Top At_Offset_1
0731 e003 | | Load 0x0,0x3
0732 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0733 00db | | Load_Top At_Offset_3
0734 e003 | | Load 0x0,0x3
0735 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0736 8014 | | Call 0x0,0x14
0737 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0738 0831 | 1 | Execute_Immediate Raise,0x31
0739 0000 0000 | | .BLANK 0000[0x7]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743 | C | .CONST 0x0743 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0001 | | .CONST 0x0001 ; Number of locals
0743 BODY_0740:
0743 INIT_0740:
0743 00da | | Load_Top At_Offset_2
0744 0227 | ' | Execute Access,All_Reference
0745 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0746 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0747 0000 | | .XXX[0x1]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 00da | | Load_Top At_Offset_2
074c 4800 |H | Short_Literal 0x0
074d 821d | | Call 0x1,0x1d
074e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
074f 0000 | | .XXX[0x1]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 00db | | Load_Top At_Offset_3
0754 0227 | ' | Execute Access,All_Reference
0755 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0756 4607 |F | Jump_Case 0x8
0757 782b |x+ | Jump 0x783 ; case 0x0
0758 78ce |x | Jump 0x827 ; case 0x1
0759 78df |x | Jump 0x839 ; case 0x2
075a 78f5 |x | Jump 0x850 ; case 0x3
075b 792e |y. | Jump 0x88a ; case 0x4
075c 78fe |x | Jump 0x85b ; case 0x5
075d 7937 |y7 | Jump 0x895 ; case 0x6
075e 7800 |x | Jump 0x75f ; case 0x7
075f 00da | | Load_Top At_Offset_2
0760 8227 | ' | Call 0x1,0x27
0761 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "["
0763 e5fe | | Load 0x2,-0x2
0764 0227 | ' | Execute Access,All_Reference
0765 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
0766 e003 | | Load 0x0,0x3
0767 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0768 01cc | | Execute Vector,Catenate
0769 e015 | | Load 0x0,0x15
076a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
076b 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; " "
076d e5fe | | Load 0x2,-0x2
076e 0227 | ' | Execute Access,All_Reference
076f 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
0770 e003 | | Load 0x0,0x3
0771 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0772 01cc | | Execute Vector,Catenate
0773 e015 | | Load 0x0,0x15
0774 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0775 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; " "
0777 e5fe | | Load 0x2,-0x2
0778 0227 | ' | Execute Access,All_Reference
0779 2613 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x13
077a e003 | | Load 0x0,0x3
077b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
077c 01cc | | Execute Vector,Catenate
077d 0092 0a38 | 8| Action Push_String_Extended,0xa38 ; "]"
077f 01cc | | Execute Vector,Catenate
0780 e015 | | Load 0x0,0x15
0781 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0782 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0783 00db | | Load_Top At_Offset_3
0784 0227 | ' | Execute Access,All_Reference
0785 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0786 00db | | Load_Top At_Offset_3
0787 0a02 | | Execute_Immediate Plus,0x2
0788 00d8 | | Load_Top At_Offset_0
0789 00e2 | | Load_Encached Integer_Cache
078a 0260 | ` | Execute Discrete,In_Type
078b 7001 |p | Jump_Nonzero 0x78d
078c 0801 | | Execute_Immediate Raise,0x1
078d 821d | | Call 0x1,0x1d
078e 00da | | Load_Top At_Offset_2
078f 8227 | ' | Call 0x1,0x27
0790 00db | | Load_Top At_Offset_3
0791 0227 | ' | Execute Access,All_Reference
0792 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0793 464a |FJ | Jump_Case 0x4b
0794 7886 |x | Jump 0x81b ; case 0x0
0795 7885 |x | Jump 0x81b ; case 0x1
0796 7884 |x | Jump 0x81b ; case 0x2
0797 7883 |x | Jump 0x81b ; case 0x3
0798 7882 |x | Jump 0x81b ; case 0x4
0799 7855 |xU | Jump 0x7ef ; case 0x5
079a 784a |xJ | Jump 0x7e5 ; case 0x6
079b 784e |xN | Jump 0x7ea ; case 0x7
079c 787e |x~ | Jump 0x81b ; case 0x8
079d 787d |x} | Jump 0x81b ; case 0x9
079e 787c |x| | Jump 0x81b ; case 0xa
079f 787b |x{ | Jump 0x81b ; case 0xb
07a0 787a |xz | Jump 0x81b ; case 0xc
07a1 7857 |xW | Jump 0x7f9 ; case 0xd
07a2 7860 |x` | Jump 0x803 ; case 0xe
07a3 7850 |xP | Jump 0x7f4 ; case 0xf
07a4 7859 |xY | Jump 0x7fe ; case 0x10
07a5 7862 |xb | Jump 0x808 ; case 0x11
07a6 7870 |xp | Jump 0x817 ; case 0x12
07a7 7838 |x8 | Jump 0x7e0 ; case 0x13
07a8 7872 |xr | Jump 0x81b ; case 0x14
07a9 7871 |xq | Jump 0x81b ; case 0x15
07aa 7870 |xp | Jump 0x81b ; case 0x16
07ab 786f |xo | Jump 0x81b ; case 0x17
07ac 786e |xn | Jump 0x81b ; case 0x18
07ad 786d |xm | Jump 0x81b ; case 0x19
07ae 786c |xl | Jump 0x81b ; case 0x1a
07af 786b |xk | Jump 0x81b ; case 0x1b
07b0 786a |xj | Jump 0x81b ; case 0x1c
07b1 7869 |xi | Jump 0x81b ; case 0x1d
07b2 7868 |xh | Jump 0x81b ; case 0x1e
07b3 7867 |xg | Jump 0x81b ; case 0x1f
07b4 7866 |xf | Jump 0x81b ; case 0x20
07b5 7865 |xe | Jump 0x81b ; case 0x21
07b6 7864 |xd | Jump 0x81b ; case 0x22
07b7 7863 |xc | Jump 0x81b ; case 0x23
07b8 7862 |xb | Jump 0x81b ; case 0x24
07b9 7861 |xa | Jump 0x81b ; case 0x25
07ba 7860 |x` | Jump 0x81b ; case 0x26
07bb 785f |x_ | Jump 0x81b ; case 0x27
07bc 785e |x^ | Jump 0x81b ; case 0x28
07bd 785d |x] | Jump 0x81b ; case 0x29
07be 785c |x\ | Jump 0x81b ; case 0x2a
07bf 785b |x[ | Jump 0x81b ; case 0x2b
07c0 785a |xZ | Jump 0x81b ; case 0x2c
07c1 7859 |xY | Jump 0x81b ; case 0x2d
07c2 7858 |xX | Jump 0x81b ; case 0x2e
07c3 7857 |xW | Jump 0x81b ; case 0x2f
07c4 7856 |xV | Jump 0x81b ; case 0x30
07c5 7855 |xU | Jump 0x81b ; case 0x31
07c6 7854 |xT | Jump 0x81b ; case 0x32
07c7 7853 |xS | Jump 0x81b ; case 0x33
07c8 7852 |xR | Jump 0x81b ; case 0x34
07c9 7851 |xQ | Jump 0x81b ; case 0x35
07ca 7850 |xP | Jump 0x81b ; case 0x36
07cb 784f |xO | Jump 0x81b ; case 0x37
07cc 784e |xN | Jump 0x81b ; case 0x38
07cd 784d |xM | Jump 0x81b ; case 0x39
07ce 784c |xL | Jump 0x81b ; case 0x3a
07cf 784b |xK | Jump 0x81b ; case 0x3b
07d0 784a |xJ | Jump 0x81b ; case 0x3c
07d1 7849 |xI | Jump 0x81b ; case 0x3d
07d2 7848 |xH | Jump 0x81b ; case 0x3e
07d3 7847 |xG | Jump 0x81b ; case 0x3f
07d4 7846 |xF | Jump 0x81b ; case 0x40
07d5 7845 |xE | Jump 0x81b ; case 0x41
07d6 7844 |xD | Jump 0x81b ; case 0x42
07d7 7843 |xC | Jump 0x81b ; case 0x43
07d8 7839 |x9 | Jump 0x812 ; case 0x44
07d9 7833 |x3 | Jump 0x80d ; case 0x45
07da 7840 |x@ | Jump 0x81b ; case 0x46
07db 783f |x? | Jump 0x81b ; case 0x47
07dc 783e |x> | Jump 0x81b ; case 0x48
07dd 783d |x= | Jump 0x81b ; case 0x49
07de 783c |x< | Jump 0x81b ; case 0x4a
07df 783b |x; | .XXX[0x1]
07e0 0092 0a39 | 9| Action Push_String_Extended,0xa39 ; "-"
07e2 e015 | | Load 0x0,0x15
07e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07e4 7836 |x6 | Jump 0x81b
07e5 0092 0a3a | :| Action Push_String_Extended,0xa3a ; "*"
07e7 e015 | | Load 0x0,0x15
07e8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07e9 7831 |x1 | Jump 0x81b
07ea 0092 0a3b | ;| Action Push_String_Extended,0xa3b ; "/"
07ec e015 | | Load 0x0,0x15
07ed 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07ee 782c |x, | Jump 0x81b
07ef 0092 0a3c | <| Action Push_String_Extended,0xa3c ; "="
07f1 e015 | | Load 0x0,0x15
07f2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07f3 7827 |x' | Jump 0x81b
07f4 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "<>"
07f6 e015 | | Load 0x0,0x15
07f7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07f8 7822 |x" | Jump 0x81b
07f9 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "<"
07fb e015 | | Load 0x0,0x15
07fc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07fd 781d |x | Jump 0x81b
07fe 0092 0a3f | ?| Action Push_String_Extended,0xa3f ; ">"
0800 e015 | | Load 0x0,0x15
0801 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0802 7818 |x | Jump 0x81b
0803 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "<="
0805 e015 | | Load 0x0,0x15
0806 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0807 7813 |x | Jump 0x81b
0808 0092 0a41 | A| Action Push_String_Extended,0xa41 ; ">="
080a e015 | | Load 0x0,0x15
080b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
080c 780e |x | Jump 0x81b
080d 0092 0a42 | B| Action Push_String_Extended,0xa42 ; "ET"
080f e015 | | Load 0x0,0x15
0810 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0811 7809 |x | Jump 0x81b
0812 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "OU"
0814 e015 | | Load 0x0,0x15
0815 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0816 7804 |x | Jump 0x81b
0817 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "+"
0819 e015 | | Load 0x0,0x15
081a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
081b 00db | | Load_Top At_Offset_3
081c 0227 | ' | Execute Access,All_Reference
081d 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
081e 00db | | Load_Top At_Offset_3
081f 0a02 | | Execute_Immediate Plus,0x2
0820 00d8 | | Load_Top At_Offset_0
0821 00e2 | | Load_Encached Integer_Cache
0822 0260 | ` | Execute Discrete,In_Type
0823 7001 |p | Jump_Nonzero 0x825
0824 0801 | | Execute_Immediate Raise,0x1
0825 821d | | Call 0x1,0x1d
0826 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0827 00da | | Load_Top At_Offset_2
0828 8227 | ' | Call 0x1,0x27
0829 0092 0a45 | E| Action Push_String_Extended,0xa45 ; "NON"
082b e015 | | Load 0x0,0x15
082c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
082d 00db | | Load_Top At_Offset_3
082e 0227 | ' | Execute Access,All_Reference
082f 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0830 00db | | Load_Top At_Offset_3
0831 0a02 | | Execute_Immediate Plus,0x2
0832 00d8 | | Load_Top At_Offset_0
0833 00e2 | | Load_Encached Integer_Cache
0834 0260 | ` | Execute Discrete,In_Type
0835 7001 |p | Jump_Nonzero 0x837
0836 0801 | | Execute_Immediate Raise,0x1
0837 821d | | Call 0x1,0x1d
0838 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0839 00da | | Load_Top At_Offset_2
083a 8227 | ' | Call 0x1,0x27
083b 00db | | Load_Top At_Offset_3
083c 0227 | ' | Execute Access,All_Reference
083d 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
083e 00e0 | | Load_Encached Standard_Cache
083f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0840 0092 0a46 | F| Action Push_String_Extended,0xa46 ; " ("
0842 01cc | | Execute Vector,Catenate
0843 e5fe | | Load 0x2,-0x2
0844 0227 | ' | Execute Access,All_Reference
0845 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0846 e20e | | Load 0x1,0xe
0847 011c | | Execute Any,Convert_Unchecked
0848 1c01 | | Execute_Immediate Run_Utility,0x1
0849 01cc | | Execute Vector,Catenate
084a 0092 0a2a | *| Action Push_String_Extended,0xa2a ; ")"
084c 01cc | | Execute Vector,Catenate
084d e015 | | Load 0x0,0x15
084e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
084f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0850 00da | | Load_Top At_Offset_2
0851 8227 | ' | Call 0x1,0x27
0852 00db | | Load_Top At_Offset_3
0853 0227 | ' | Execute Access,All_Reference
0854 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0855 00e1 | | Load_Encached Boolean_Cache
0856 011c | | Execute Any,Convert_Unchecked
0857 1c01 | | Execute_Immediate Run_Utility,0x1
0858 e015 | | Load 0x0,0x15
0859 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
085a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
085b 00da | | Load_Top At_Offset_2
085c 8227 | ' | Call 0x1,0x27
085d 00db | | Load_Top At_Offset_3
085e 0227 | ' | Execute Access,All_Reference
085f 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
0860 e003 | | Load 0x0,0x3
0861 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0862 7008 |p | Jump_Nonzero 0x86b
0863 00db | | Load_Top At_Offset_3
0864 0227 | ' | Execute Access,All_Reference
0865 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
0866 e003 | | Load 0x0,0x3
0867 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0868 e015 | | Load 0x0,0x15
0869 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
086a 7810 |x | Jump 0x87b
086b 00db | | Load_Top At_Offset_3
086c 0227 | ' | Execute Access,All_Reference
086d 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
086e e003 | | Load 0x0,0x3
086f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0870 0092 0a47 | G| Action Push_String_Extended,0xa47 ; "."
0872 01cc | | Execute Vector,Catenate
0873 e5fe | | Load 0x2,-0x2
0874 0227 | ' | Execute Access,All_Reference
0875 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
0876 e003 | | Load 0x0,0x3
0877 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0878 01cc | | Execute Vector,Catenate
0879 e015 | | Load 0x0,0x15
087a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
087b 0092 0a46 | F| Action Push_String_Extended,0xa46 ; " ("
087d e5fe | | Load 0x2,-0x2
087e 0227 | ' | Execute Access,All_Reference
087f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0880 e20e | | Load 0x1,0xe
0881 011c | | Execute Any,Convert_Unchecked
0882 1c01 | | Execute_Immediate Run_Utility,0x1
0883 01cc | | Execute Vector,Catenate
0884 0092 0a2a | *| Action Push_String_Extended,0xa2a ; ")"
0886 01cc | | Execute Vector,Catenate
0887 e015 | | Load 0x0,0x15
0888 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0889 4503 |E | Exit_Suprogram New_Top_Offset 0x3
088a 00da | | Load_Top At_Offset_2
088b 8227 | ' | Call 0x1,0x27
088c 00db | | Load_Top At_Offset_3
088d 0227 | ' | Execute Access,All_Reference
088e 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
088f e002 | | Load 0x0,0x2
0890 011c | | Execute Any,Convert_Unchecked
0891 1c01 | | Execute_Immediate Run_Utility,0x1
0892 e015 | | Load 0x0,0x15
0893 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0894 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0895 00da | | Load_Top At_Offset_2
0896 8227 | ' | Call 0x1,0x27
0897 00db | | Load_Top At_Offset_3
0898 0227 | ' | Execute Access,All_Reference
0899 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
089a e002 | | Load 0x0,0x2
089b 011c | | Execute Any,Convert_Unchecked
089c 1c01 | | Execute_Immediate Run_Utility,0x1
089d 0092 0a48 | H| Action Push_String_Extended,0xa48 ; "("
089f 01cc | | Execute Vector,Catenate
08a0 e015 | | Load 0x0,0x15
08a1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08a2 00db | | Load_Top At_Offset_3
08a3 0227 | ' | Execute Access,All_Reference
08a4 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
08a5 e003 | | Load 0x0,0x3
08a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08a7 0092 0a49 | I| Action Push_String_Extended,0xa49 ; ","
08a9 01cc | | Execute Vector,Catenate
08aa e015 | | Load 0x0,0x15
08ab 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08ac 00db | | Load_Top At_Offset_3
08ad 0227 | ' | Execute Access,All_Reference
08ae 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
08af e003 | | Load 0x0,0x3
08b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08b1 0092 0a2a | *| Action Push_String_Extended,0xa2a ; ")"
08b3 01cc | | Execute Vector,Catenate
08b4 e015 | | Load 0x0,0x15
08b5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
08b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08b7 0000 | | .XXX[0x1]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb | | .CONST 0x08bb ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0001 | | .CONST 0x0001 ; Number of locals
08bb BODY_08b8:
08bb INIT_08b8:
08bb 4607 |F | Jump_Case 0x8
08bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
08bd 7807 |x | Jump 0x8c5 ; case 0x1
08be 780a |x | Jump 0x8c9 ; case 0x2
08bf 780e |x | Jump 0x8ce ; case 0x3
08c0 7811 |x | Jump 0x8d2 ; case 0x4
08c1 7812 |x | Jump 0x8d4 ; case 0x5
08c2 7813 |x | Jump 0x8d6 ; case 0x6
08c3 7816 |x | Jump 0x8da ; case 0x7
08c4 4302 |C | .XXX[0x1]
08c5 00da | | Load_Top At_Offset_2
08c6 0091 0a21 | !| Action Push_String_Extended_Indexed,0xa21 ; "BINARY_OPERATOR"
08c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
08c9 00db | | Load_Top At_Offset_3
08ca 00db | | Load_Top At_Offset_3
08cb 00e0 | | Load_Encached Standard_Cache
08cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08ce 00da | | Load_Top At_Offset_2
08cf 00e0 | | Load_Encached Standard_Cache
08d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
08d2 00db | | Load_Top At_Offset_3
08d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08d4 00db | | Load_Top At_Offset_3
08d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08d6 e21e | | Load 0x1,0x1e
08d7 00dc | | Load_Top At_Offset_4
08d8 0267 | g | Execute Discrete,Predecessor
08d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08da e21e | | Load 0x1,0x1e
08db 00dc | | Load_Top At_Offset_4
08dc 0268 | h | Execute Discrete,Successor
08dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08de 0000 0000 | | .XXX[0x2]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3 | | .CONST 0x08e3 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0001 | | .CONST 0x0001 ; Number of locals
08e3 BODY_08e0:
08e3 INIT_08e0:
08e3 00da | | Load_Top At_Offset_2
08e4 e5fe | | Load 0x2,-0x2
08e5 01df | | Execute Vector,Equal
08e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08e7 0000 | | .XXX[0x1]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb | | .CONST 0x08eb ; Address of begin
08e9 0004 | | .CONST 0x0004 ; Address of exception handler
08ea 0001 | | .CONST 0x0001 ; Number of locals
08eb BODY_08e8:
08eb INIT_08e8:
08eb e5fd | | Load 0x2,-0x3
08ec e003 | | Load 0x0,0x3
08ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08ee e5fe | | Load 0x2,-0x2
08ef 8016 | | Call 0x0,0x16
08f0 00db | | Load_Top At_Offset_3
08f1 e5fd | | Load 0x2,-0x3
08f2 e003 | | Load 0x0,0x3
08f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08f4 8017 | | Call 0x0,0x17
08f5 0f00 | | Execute_Immediate Equal,0x0
08f6 0278 | x | Execute Discrete,Or
08f7 6829 |h) | Jump_Zero 0x921
08f8 e5fd | | Load 0x2,-0x3
08f9 e003 | | Load 0x0,0x3
08fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08fb 0092 0a4a | J| Action Push_String_Extended,0xa4a ; "COMP"
08fd 01df | | Execute Vector,Equal
08fe 6806 |h | Jump_Zero 0x905
08ff e5fd | | Load 0x2,-0x3
0900 00db | | Load_Top At_Offset_3
0901 8018 | | Call 0x0,0x18
0902 e003 | | Load 0x0,0x3
0903 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0904 00d1 | | Pop_Control Pop_Count_1
0905 e5fd | | Load 0x2,-0x3
0906 e003 | | Load 0x0,0x3
0907 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0908 e5fe | | Load 0x2,-0x2
0909 8016 | | Call 0x0,0x16
090a 00db | | Load_Top At_Offset_3
090b e5fd | | Load 0x2,-0x3
090c e003 | | Load 0x0,0x3
090d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
090e 8017 | | Call 0x0,0x17
090f 0f00 | | Execute_Immediate Equal,0x0
0910 0278 | x | Execute Discrete,Or
0911 680f |h | Jump_Zero 0x921
0912 e5fd | | Load 0x2,-0x3
0913 e003 | | Load 0x0,0x3
0914 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0915 e5fe | | Load 0x2,-0x2
0916 8012 | | Call 0x0,0x12
0917 6809 |h | Jump_Zero 0x921
0918 e5fd | | Load 0x2,-0x3
0919 00d8 | | Load_Top At_Offset_0
091a e003 | | Load 0x0,0x3
091b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
091c e5fe | | Load 0x2,-0x2
091d 8013 | | Call 0x0,0x13
091e e003 | | Load 0x0,0x3
091f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0920 00d1 | | Pop_Control Pop_Count_1
0921 e5fc | | Load 0x2,-0x4
0922 e003 | | Load 0x0,0x3
0923 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0924 e5fe | | Load 0x2,-0x2
0925 8016 | | Call 0x0,0x16
0926 00db | | Load_Top At_Offset_3
0927 e5fc | | Load 0x2,-0x4
0928 e003 | | Load 0x0,0x3
0929 1813 | | Execute Package,Field_Execute,Field_Number 0x13
092a 8017 | | Call 0x0,0x17
092b 0f00 | | Execute_Immediate Equal,0x0
092c 0278 | x | Execute Discrete,Or
092d 6829 |h) | Jump_Zero 0x957
092e e5fc | | Load 0x2,-0x4
092f e003 | | Load 0x0,0x3
0930 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0931 0092 0a4a | J| Action Push_String_Extended,0xa4a ; "COMP"
0933 01df | | Execute Vector,Equal
0934 6806 |h | Jump_Zero 0x93b
0935 e5fc | | Load 0x2,-0x4
0936 00db | | Load_Top At_Offset_3
0937 8018 | | Call 0x0,0x18
0938 e003 | | Load 0x0,0x3
0939 1810 | | Execute Package,Field_Execute,Field_Number 0x10
093a 00d1 | | Pop_Control Pop_Count_1
093b e5fc | | Load 0x2,-0x4
093c e003 | | Load 0x0,0x3
093d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
093e e5fe | | Load 0x2,-0x2
093f 8016 | | Call 0x0,0x16
0940 00db | | Load_Top At_Offset_3
0941 e5fc | | Load 0x2,-0x4
0942 e003 | | Load 0x0,0x3
0943 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0944 8017 | | Call 0x0,0x17
0945 0f00 | | Execute_Immediate Equal,0x0
0946 0278 | x | Execute Discrete,Or
0947 680f |h | Jump_Zero 0x957
0948 e5fc | | Load 0x2,-0x4
0949 e003 | | Load 0x0,0x3
094a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
094b e5fe | | Load 0x2,-0x2
094c 8012 | | Call 0x0,0x12
094d 6809 |h | Jump_Zero 0x957
094e e5fc | | Load 0x2,-0x4
094f 00d8 | | Load_Top At_Offset_0
0950 e003 | | Load 0x0,0x3
0951 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0952 e5fe | | Load 0x2,-0x2
0953 8013 | | Call 0x0,0x13
0954 e003 | | Load 0x0,0x3
0955 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0956 00d1 | | Pop_Control Pop_Count_1
0957 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095b | [ | .CONST 0x095b ; Address of begin
0959 0004 | | .CONST 0x0004 ; Address of exception handler
095a 0001 | | .CONST 0x0001 ; Number of locals
095b BODY_0958:
095b INIT_0958:
095b 00cf | | Action Mark_Auxiliary
095c 00db | | Load_Top At_Offset_3
095d 4801 |H | Short_Literal 0x1
095e 0263 | c | Execute Discrete,Above_Bound
095f 7006 |p | Jump_Nonzero 0x966
0960 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; " "
0962 e015 | | Load 0x0,0x15
0963 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0964 00c8 | | Action Pop_Auxiliary_Range
0965 3ffa |? | Loop_Increasing 0x960
0966 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0967 0000 | | .XXX[0x1]
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 4609 |F | Jump_Case 0xa
096c 7809 |x | Jump 0x976 ; case 0x0
096d 7845 |xE | Jump 0x9b3 ; case 0x1
096e 785e |x^ | Jump 0x9cd ; case 0x2
096f 7861 |xa | Jump 0x9d1 ; case 0x3
0970 78a8 |x | Jump 0xa19 ; case 0x4
0971 78a7 |x | Jump 0xa19 ; case 0x5
0972 7864 |xd | Jump 0x9d7 ; case 0x6
0973 787d |x} | Jump 0x9f1 ; case 0x7
0974 7899 |x | Jump 0xa0e ; case 0x8
0975 789f |x | Jump 0xa15 ; case 0x9
0976 00da | | Load_Top At_Offset_2
0977 016c | l | Execute Variant_Record,Is_Constrained
0978 7009 |p | Jump_Nonzero 0x982
0979 00cf | | Action Mark_Auxiliary
097a 4800 |H | Short_Literal 0x0
097b e5ff | | Load 0x2,-0x1
097c 1c08 | | Execute_Immediate Run_Utility,0x8
097d 00d8 | | Load_Top At_Offset_0
097e 1c00 | | Execute_Immediate Run_Utility,0x0
097f c5ff | | Store 0x2,-0x1
0980 00ce | | Action Pop_Auxiliary
0981 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0982 00da | | Load_Top At_Offset_2
0983 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0984 4607 |F | Jump_Case 0x8
0985 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0986 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0987 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0988 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0989 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
098a 7812 |x | Jump 0x99d ; case 0x5
098b 781c |x | Jump 0x9a8 ; case 0x6
098c 7800 |x | Jump 0x98d ; case 0x7
098d 00da | | Load_Top At_Offset_2
098e 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11
098f 00da | | Load_Top At_Offset_2
0990 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
0991 1c00 | | Execute_Immediate Run_Utility,0x0
0992 00da | | Load_Top At_Offset_2
0993 2212 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x12
0994 00da | | Load_Top At_Offset_2
0995 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
0996 1c00 | | Execute_Immediate Run_Utility,0x0
0997 00da | | Load_Top At_Offset_2
0998 2213 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x13
0999 00da | | Load_Top At_Offset_2
099a 2613 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x13
099b 1c00 | | Execute_Immediate Run_Utility,0x0
099c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
099d 00da | | Load_Top At_Offset_2
099e 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb
099f 00da | | Load_Top At_Offset_2
09a0 260b |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
09a1 1c00 | | Execute_Immediate Run_Utility,0x0
09a2 00da | | Load_Top At_Offset_2
09a3 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc
09a4 00da | | Load_Top At_Offset_2
09a5 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
09a6 1c00 | | Execute_Immediate Run_Utility,0x0
09a7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09a8 00da | | Load_Top At_Offset_2
09a9 220e |" | Execute Variant_Record,Field_Constrain,Field_Number 0xe
09aa 00da | | Load_Top At_Offset_2
09ab 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
09ac 1c00 | | Execute_Immediate Run_Utility,0x0
09ad 00da | | Load_Top At_Offset_2
09ae 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf
09af 00da | | Load_Top At_Offset_2
09b0 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
09b1 1c00 | | Execute_Immediate Run_Utility,0x0
09b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09b3 00da | | Load_Top At_Offset_2
09b4 016b | k | Execute Variant_Record,Read_Variant
09b5 00d8 | | Load_Top At_Offset_0
09b6 0f06 | | Execute_Immediate Equal,0x6
09b7 6804 |h | Jump_Zero 0x9bc
09b8 00db | | Load_Top At_Offset_3
09b9 220b |" | Execute Variant_Record,Field_Constrain,Field_Number 0xb
09ba 00db | | Load_Top At_Offset_3
09bb 220c |" | Execute Variant_Record,Field_Constrain,Field_Number 0xc
09bc 00d8 | | Load_Top At_Offset_0
09bd 0f07 | | Execute_Immediate Equal,0x7
09be 6804 |h | Jump_Zero 0x9c3
09bf 00db | | Load_Top At_Offset_3
09c0 220e |" | Execute Variant_Record,Field_Constrain,Field_Number 0xe
09c1 00db | | Load_Top At_Offset_3
09c2 220f |" | Execute Variant_Record,Field_Constrain,Field_Number 0xf
09c3 00d8 | | Load_Top At_Offset_0
09c4 0f08 | | Execute_Immediate Equal,0x8
09c5 6806 |h | Jump_Zero 0x9cc
09c6 00db | | Load_Top At_Offset_3
09c7 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11
09c8 00db | | Load_Top At_Offset_3
09c9 2212 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x12
09ca 00db | | Load_Top At_Offset_3
09cb 2213 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x13
09cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09cd 4801 |H | Short_Literal 0x1
09ce 4813 |H | Short_Literal 0x13
09cf 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
09d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
09d1 e5fd | | Load 0x2,-0x3
09d2 00db | | Load_Top At_Offset_3
09d3 1c07 | | Execute_Immediate Run_Utility,0x7
09d4 e5fe | | Load 0x2,-0x2
09d5 0306 | | Complete_Type Variant_Record,By_Renaming
09d6 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
09d7 00db | | Load_Top At_Offset_3
09d8 4607 |F | Jump_Case 0x8
09d9 7809 |x | Jump 0x9e3 ; case 0x0
09da 780a |x | Jump 0x9e5 ; case 0x1
09db 780b |x | Jump 0x9e7 ; case 0x2
09dc 780c |x | Jump 0x9e9 ; case 0x3
09dd 780d |x | Jump 0x9eb ; case 0x4
09de 780e |x | Jump 0x9ed ; case 0x5
09df 780f |x | Jump 0x9ef ; case 0x6
09e0 7800 |x | Jump 0x9e1 ; case 0x7
09e1 4808 |H | Short_Literal 0x8
09e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09e3 4801 |H | Short_Literal 0x1
09e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09e5 4802 |H | Short_Literal 0x2
09e6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09e7 4803 |H | Short_Literal 0x3
09e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09e9 4804 |H | Short_Literal 0x4
09ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09eb 4805 |H | Short_Literal 0x5
09ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09ed 4806 |H | Short_Literal 0x6
09ee 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09ef 4807 |H | Short_Literal 0x7
09f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09f1 00db | | Load_Top At_Offset_3
09f2 e5fe | | Load 0x2,-0x2
09f3 4607 |F | Jump_Case 0x8
09f4 7809 |x | Jump 0x9fe ; case 0x0
09f5 780a |x | Jump 0xa00 ; case 0x1
09f6 780b |x | Jump 0xa02 ; case 0x2
09f7 780c |x | Jump 0xa04 ; case 0x3
09f8 780d |x | Jump 0xa06 ; case 0x4
09f9 780e |x | Jump 0xa08 ; case 0x5
09fa 780f |x | Jump 0xa0a ; case 0x6
09fb 7800 |x | Jump 0x9fc ; case 0x7
09fc 4808 |H | Short_Literal 0x8
09fd 780d |x | Jump 0xa0b
09fe 4801 |H | Short_Literal 0x1
09ff 780b |x | Jump 0xa0b
0a00 4802 |H | Short_Literal 0x2
0a01 7809 |x | Jump 0xa0b
0a02 4803 |H | Short_Literal 0x3
0a03 7807 |x | Jump 0xa0b
0a04 4804 |H | Short_Literal 0x4
0a05 7805 |x | Jump 0xa0b
0a06 4805 |H | Short_Literal 0x5
0a07 7803 |x | Jump 0xa0b
0a08 4806 |H | Short_Literal 0x6
0a09 7801 |x | Jump 0xa0b
0a0a 4807 |H | Short_Literal 0x7
0a0b e5ff | | Load 0x2,-0x1
0a0c 031b | | Declare_Type Variant_Record,Constrained
0a0d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a0e 00db | | Load_Top At_Offset_3
0a0f e5fe | | Load 0x2,-0x2
0a10 e5ff | | Load 0x2,-0x1
0a11 1c06 | | Execute_Immediate Run_Utility,0x6
0a12 e5ff | | Load 0x2,-0x1
0a13 02fc | | Declare_Variable Variant_Record,With_Constraint
0a14 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a15 4800 |H | Short_Literal 0x0
0a16 00db | | Load_Top At_Offset_3
0a17 1c07 | | Execute_Immediate Run_Utility,0x7
0a18 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0a19 0869 | i | Execute_Immediate Raise,0x69
0a1a ; --------------------------------------------------------------------------------------
0a1a ; STRING TABLE
0a1a ; --------------------------------------------------------------------------------------
0a1a 0064 | d | .STRTAB 0x0064->0x0a4c ; "STRUCT_TYPE"
0a1b 006d | m | .STRTAB 0x006d->0x0a51 ; "ENUMERATION_TYPE"
0a1c 007b | { | .STRTAB 0x007b->0x0a59 ; "INTEGER_TYPE"
0a1d 0085 | | .STRTAB 0x0085->0x0a5f ; "BOOLEAN_TYPE"
0a1e 008f | | .STRTAB 0x008f->0x0a65 ; "STATE_TYPE"
0a1f 0097 | | .STRTAB 0x0097->0x0a6a ; "ENTRY_TYPE"
0a20 009f | | .STRTAB 0x009f->0x0a6f ; "OTHER_TYPE"
0a21 00a7 | | .STRTAB 0x00a7->0x0a74 ; "BINARY_OPERATOR"
0a22 00b4 | | .STRTAB 0x00b4->0x0a7c ; "UNARY_OPERATOR"
0a23 00c0 | | .STRTAB 0x00c0->0x0a83 ; "INTEGER_DATA"
0a24 00ca | | .STRTAB 0x00ca->0x0a89 ; "BOOLEAN_DATA"
0a25 00d4 | | .STRTAB 0x00d4->0x0a8f ; "STATE_DATA"
0a26 00dc | | .STRTAB 0x00dc->0x0a94 ; "VAR_DATA"
0a27 00e2 | | .STRTAB 0x00e2->0x0a98 ; "INSTRUCTION"
0a28 00eb | | .STRTAB 0x00eb->0x0a9d ; "PLAYER_ENTRY"
0a29 00f5 | | .STRTAB 0x00f5->0x0aa3 ; "Op Arithmetique: TYPES INCOMPATIBLES ("
0a2a 0119 | | .STRTAB 0x0119->0x0ab6 ; ")"
0a2b 0118 | | .STRTAB 0x0118->0x0ab7 ; "Op Test: TYPES INCOMPATIBLES ("
0a2c 0134 | 4 | .STRTAB 0x0134->0x0ac6 ; "Op Binaire: TYPES INCOMPATIBLES ("
0a2d 0153 | S | .STRTAB 0x0153->0x0ad6 ; "Op Unaire: TYPES INCOMPATIBLES"
0a2e 016f | o | .STRTAB 0x016f->0x0ae5 ; "ENUMERE"
0a2f 0174 | t | .STRTAB 0x0174->0x0ae9 ; "STRUCTURE"
0a30 017b | { | .STRTAB 0x017b->0x0aed ; "Manque Extension !!!"
0a31 018d | | .STRTAB 0x018d->0x0af7 ; "ENTIER"
0a32 0191 | | .STRTAB 0x0191->0x0afa ; "BOOLEEN"
0a33 0196 | | .STRTAB 0x0196->0x0afe ; "Uniquement des Entiers/Booleens/Enumeres dans les expressions!!!"
0a34 01d4 | | .STRTAB 0x01d4->0x0b1e ; "LIE"
0a35 01d5 | | .STRTAB 0x01d5->0x0b1f ; "DELIE"
0a36 01d8 | | .STRTAB 0x01d8->0x0b22 ; "["
0a37 01d7 | | .STRTAB 0x01d7->0x0b22 ; " "
0a38 01d6 | | .STRTAB 0x01d6->0x0b23 ; "]"
0a39 01d5 | | .STRTAB 0x01d5->0x0b23 ; "-"
0a3a 01d4 | | .STRTAB 0x01d4->0x0b24 ; "*"
0a3b 01d3 | | .STRTAB 0x01d3->0x0b24 ; "/"
0a3c 01d2 | | .STRTAB 0x01d2->0x0b25 ; "="
0a3d 01d1 | | .STRTAB 0x01d1->0x0b25 ; "<>"
0a3e 01d1 | | .STRTAB 0x01d1->0x0b26 ; "<"
0a3f 01d0 | | .STRTAB 0x01d0->0x0b27 ; ">"
0a40 01cf | | .STRTAB 0x01cf->0x0b27 ; "<="
0a41 01cf | | .STRTAB 0x01cf->0x0b28 ; ">="
0a42 01cf | | .STRTAB 0x01cf->0x0b29 ; "ET"
0a43 01cf | | .STRTAB 0x01cf->0x0b2a ; "OU"
0a44 01cf | | .STRTAB 0x01cf->0x0b2b ; "+"
0a45 01ce | | .STRTAB 0x01ce->0x0b2c ; "NON"
0a46 01cf | | .STRTAB 0x01cf->0x0b2d ; " ("
0a47 01cf | | .STRTAB 0x01cf->0x0b2e ; "."
0a48 01ce | | .STRTAB 0x01ce->0x0b2f ; "("
0a49 01cd | | .STRTAB 0x01cd->0x0b2f ; ","
0a4a 01cc | | .STRTAB 0x01cc->0x0b30 ; "COMP"
0a4b 01ce | | .STREND 0x01ce->0x0b32
0a4c 5354 5255 |STRU| .STRTAB_STRINGS
0b32 0000 0000 | | .BLANK 0000[0x6]
0b38 ; --------------------------------------------------------------------------------------
0b38 ; Debug Table
0b38 ; --------------------------------------------------------------------------------------
0b38 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd546,0x0000,0x0001,0x0016
0b3e 000b 0b96 | | .DBG4T 0x000b,0x0b96,0x8000,0x0000
0b42 007c 0bac | | | .DBG4T 0x007c,0x0bac,0x8000,0x0000
0b46 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000
0b4a 00db 0bc0 | | .DBG4T 0x00db,0x0bc0,0x0002,0x4000
0b4e 01b3 0be2 | | .DBG4T 0x01b3,0x0be2,0x0002,0x4000
0b52 01e3 0bf1 | | .DBG4T 0x01e3,0x0bf1,0x0002,0x0000
0b56 0203 0bf7 | | .DBG4T 0x0203,0x0bf7,0x0002,0x4000
0b5a 025b 0c0a | [ | .DBG4T 0x025b,0x0c0a,0x0002,0x0000
0b5e 0313 0c24 | $| .DBG4T 0x0313,0x0c24,0x0002,0x4000
0b62 03ab 0c3c | <| .DBG4T 0x03ab,0x0c3c,0x0002,0x0000
0b66 041b 0c51 | Q| .DBG4T 0x041b,0x0c51,0x0001,0x4000
0b6a 045b 0c61 | [ a| .DBG4T 0x045b,0x0c61,0x0002,0x4000
0b6e 050b 0c7a | z| .DBG4T 0x050b,0x0c7a,0x0002,0x4000
0b72 068b 0cd3 | | .DBG4T 0x068b,0x0cd3,0x0002,0x4000
0b76 0743 0d04 | C | .DBG4T 0x0743,0x0d04,0x0002,0x0000
0b7a 074b 0d07 | K | .DBG4T 0x074b,0x0d07,0x0001,0x0000
0b7e 0753 0d0a | S | .DBG4T 0x0753,0x0d0a,0x0001,0x4000
0b82 08bb 0000 | | .DBG4T 0x08bb,0x0000,0x0005,0x0000
0b86 08e3 0d5a | Z| .DBG4T 0x08e3,0x0d5a,0x0002,0x0000
0b8a 08eb 0d5d | ]| .DBG4T 0x08eb,0x0d5d,0x0001,0x0000
0b8e 095b 0d6b | [ k| .DBG4T 0x095b,0x0d6b,0x0001,0x0000
0b92 096b 0000 | k | .DBG4T 0x096b,0x0000,0x0005,0x0000
0b96 ; --------------------------------------------------------------------------------------
0b96 ; Debug chain
0b96 ; --------------------------------------------------------------------------------------
0b96 0014 0000 | | .DBGLEN 0x0014,0x0000
0b98 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0038,0x0077
0bac ; --------------------------------------------------------------------------------------
0bac ; Debug chain
0bac ; --------------------------------------------------------------------------------------
0bac 0012 0000 | | .DBGLEN 0x0012,0x0000
0bae 007c 0084 | | | .DBGLNO 0x007c,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; Debug chain
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0002 000f | | .DBGLEN 0x0002,0x000f
0bc2 00db 00df | | .DBGLNO 0x00db,0x00df,0x00e1,0x00e9,0x0101,0x0114,0x011c,0x012f,0x0142,0x0148,0x0154,0x0167,0x016f,0x017b,0x018e,0x019e,0x01a9
0bd3 0001 0002 | | .XXX[0xf]
0bd5 0003 0004 | |
0bd7 0005 0006 | |
0bd9 0007 0008 | |
0bdb 0009 000a | |
0bdd 000b 000c | |
0bdf 000d 000e | |
0be1 0010 | |
0be2 ; --------------------------------------------------------------------------------------
0be2 ; Debug chain
0be2 ; --------------------------------------------------------------------------------------
0be2 0001 0006 | | .DBGLEN 0x0001,0x0006
0be4 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5,0x01bd,0x01c1,0x01d1,0x01d5,0x01d8
0beb 0001 0002 | | .XXX[0x6]
0bed 0003 0004 | |
0bef 0005 0007 | |
0bf1 ; --------------------------------------------------------------------------------------
0bf1 ; Debug chain
0bf1 ; --------------------------------------------------------------------------------------
0bf1 0001 0003 | | .DBGLEN 0x0001,0x0003
0bf3 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5,0x01ed,0x01fa
0bf7 ; --------------------------------------------------------------------------------------
0bf7 ; Debug chain
0bf7 ; --------------------------------------------------------------------------------------
0bf7 0001 0008 | | .DBGLEN 0x0001,0x0008
0bf9 0203 0205 | | .DBGLNO 0x0203,0x0205,0x0211,0x0219,0x0227,0x022f,0x023e,0x0246,0x0253
0c02 0001 0004 | | .XXX[0x8]
0c04 0005 0006 | |
0c06 0007 0002 | |
0c08 0003 0009 | |
0c0a ; --------------------------------------------------------------------------------------
0c0a ; Debug chain
0c0a ; --------------------------------------------------------------------------------------
0c0a 0002 0016 | | .DBGLEN 0x0002,0x0016
0c0c 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
0c24 ; --------------------------------------------------------------------------------------
0c24 ; Debug chain
0c24 ; --------------------------------------------------------------------------------------
0c24 0002 000a | | .DBGLEN 0x0002,0x000a
0c26 0313 0315 | | .DBGLNO 0x0313,0x0315,0x0321,0x0329,0x032d,0x0332,0x0336,0x033b,0x0369,0x037d,0x0391,0x03a4
0c32 0001 0002 | | .XXX[0xa]
0c34 0003 0004 | |
0c36 0005 0006 | |
0c38 0008 0009 | |
0c3a 0007 000b | |
0c3c ; --------------------------------------------------------------------------------------
0c3c ; Debug chain
0c3c ; --------------------------------------------------------------------------------------
0c3c 0003 0010 | | .DBGLEN 0x0003,0x0010
0c3e 03ab 03ad | | .DBGLNO 0x03ab,0x03ad,0x03ae,0x03c0,0x03c8,0x03cc,0x03d1,0x03d5,0x03da,0x03de,0x03e3,0x03e5,0x03ea,0x03ec,0x03f1,0x03f3,0x03f8,0x03fa,0x0410
0c51 ; --------------------------------------------------------------------------------------
0c51 ; Debug chain
0c51 ; --------------------------------------------------------------------------------------
0c51 0000 0007 | | .DBGLEN 0x0000,0x0007
0c53 041b 0427 | '| .DBGLNO 0x041b,0x0427,0x042e,0x0436,0x043e,0x0445,0x044d
0c5a 0001 0007 | | .XXX[0x7]
0c5c 0002 0003 | |
0c5e 0004 0005 | |
0c60 0006 | |
0c61 ; --------------------------------------------------------------------------------------
0c61 ; Debug chain
0c61 ; --------------------------------------------------------------------------------------
0c61 0001 000b | | .DBGLEN 0x0001,0x000b
0c63 045b 045c | [ \| .DBGLNO 0x045b,0x045c,0x0466,0x0468,0x0475,0x0479,0x0487,0x0489,0x04a4,0x04bf,0x04d8,0x04ec
0c6f 0001 0002 | | .XXX[0xb]
0c71 0003 000a | |
0c73 000b 000c | |
0c75 0004 0006 | |
0c77 0007 0008 | |
0c79 0005 | |
0c7a ; --------------------------------------------------------------------------------------
0c7a ; Debug chain
0c7a ; --------------------------------------------------------------------------------------
0c7a 0003 002a | *| .DBGLEN 0x0003,0x002a
0c7c 050b 050d | | .DBGLNO 0x050b,0x050d,0x050f,0x051b,0x0525,0x0527,0x0533,0x0539,0x054b,0x054d,0x0553,0x055e,0x0562,0x0570,0x0572,0x0577,0x057c,0x0582,0x058a,0x0594,0x059d,0x05ab,0x05b5,0x05bf,0x05d8,0x05de,0x05e2,0x05e6,0x05ea,0x05ee,0x05f2,0x05fc,0x0606,0x060e,0x0613,0x0617,0x061f,0x0635,0x0649,0x0653,0x065d,0x0675,0x0679,0x067e,0x0682
0ca9 0001 0002 | | .XXX[0x2a]
0cab 0003 002f | /|
0cad 0030 0031 | 0 1|
0caf 0022 0023 | " #|
0cb1 0025 0026 | % &|
0cb3 0027 0028 | ' (|
0cb5 0029 002a | ) *|
0cb7 002b 002d | + -|
0cb9 002c 0004 | , |
0cbb 000d 000e | |
0cbd 000f 0015 | |
0cbf 0011 0012 | |
0cc1 0013 0014 | |
0cc3 0010 0017 | |
0cc5 0018 0019 | |
0cc7 001b 001a | |
0cc9 001d 001f | |
0ccb 001e 0005 | |
0ccd 0006 0007 | |
0ccf 0009 000a | |
0cd1 000b 0008 | |
0cd3 ; --------------------------------------------------------------------------------------
0cd3 ; Debug chain
0cd3 ; --------------------------------------------------------------------------------------
0cd3 0001 0017 | | .DBGLEN 0x0001,0x0017
0cd5 068b 0697 | | .DBGLNO 0x068b,0x0697,0x06a1,0x06a3,0x06af,0x06bc,0x06c3,0x06c8,0x06cd,0x06d3,0x06db,0x06e5,0x06e8,0x06ec,0x06f6,0x06f9,0x06fc,0x0709,0x0711,0x0719,0x071f,0x0724,0x0729,0x072f
0ced 0001 0002 | | .XXX[0x17]
0cef 0003 000d | |
0cf1 0019 000e | |
0cf3 000f 0010 | |
0cf5 0011 0015 | |
0cf7 0016 0017 | |
0cf9 0012 0013 | |
0cfb 0014 0004 | |
0cfd 0009 000a | |
0cff 000b 0005 | |
0d01 0006 0007 | |
0d03 0008 | |
0d04 ; --------------------------------------------------------------------------------------
0d04 ; Debug chain
0d04 ; --------------------------------------------------------------------------------------
0d04 0000 0001 | | .DBGLEN 0x0000,0x0001
0d06 0743 | C | .DBGLNO 0x0743
0d07 ; --------------------------------------------------------------------------------------
0d07 ; Debug chain
0d07 ; --------------------------------------------------------------------------------------
0d07 0000 0001 | | .DBGLEN 0x0000,0x0001
0d09 074b | K | .DBGLNO 0x074b
0d0a ; --------------------------------------------------------------------------------------
0d0a ; Debug chain
0d0a ; --------------------------------------------------------------------------------------
0d0a 0000 0027 | '| .DBGLEN 0x0000,0x0027
0d0c 0753 075f | S _| .DBGLNO 0x0753,0x075f,0x0761,0x076b,0x0775,0x0783,0x078e,0x0790,0x07e0,0x07e5,0x07ea,0x07ef,0x07f4,0x07f9,0x07fe,0x0803,0x0808,0x080d,0x0812,0x0817,0x081b,0x0827,0x0829,0x082d,0x0839,0x083b,0x0850,0x0852,0x085b,0x085d,0x0863,0x086b,0x087b,0x088a,0x088c,0x0895,0x0897,0x08a2,0x08ac
0d33 0001 0025 | %| .XXX[0x27]
0d35 0026 0027 | & '|
0d37 0028 0002 | ( |
0d39 0003 0004 | |
0d3b 0006 0007 | |
0d3d 0008 0009 | |
0d3f 000a 000b | |
0d41 000c 000d | |
0d43 000e 000f | |
0d45 0010 0005 | |
0d47 0012 0013 | |
0d49 0014 0015 | |
0d4b 0016 0017 | |
0d4d 0018 0019 | |
0d4f 001a 001b | |
0d51 001c 001d | |
0d53 001e 001f | |
0d55 0020 0021 | !|
0d57 0022 0023 | " #|
0d59 0024 | $ |
0d5a ; --------------------------------------------------------------------------------------
0d5a ; Debug chain
0d5a ; --------------------------------------------------------------------------------------
0d5a 0000 0001 | | .DBGLEN 0x0000,0x0001
0d5c 08e3 | | .DBGLNO 0x08e3
0d5d ; --------------------------------------------------------------------------------------
0d5d ; Debug chain
0d5d ; --------------------------------------------------------------------------------------
0d5d 0000 000c | | .DBGLEN 0x0000,0x000c
0d5f 08eb 08f8 | | .DBGLNO 0x08eb,0x08f8,0x08ff,0x0905,0x0912,0x0918,0x0921,0x092e,0x0935,0x093b,0x0948,0x094e
0d6b ; --------------------------------------------------------------------------------------
0d6b ; Debug chain
0d6b ; --------------------------------------------------------------------------------------
0d6b 0000 0002 | | .DBGLEN 0x0000,0x0002
0d6d 095c 0960 | \ `| .DBGLNO 0x095c,0x0960
0d6f 0000 0000 | | .BLANK 0000[0x91]