|
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_7020c5
└─⟦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 09b0 | | .CONST 0x09b0 ; 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 00b2 | | .CONST 0x00b2 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002e | . | .CONST 0x002e ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4805 |H | Short_Literal 0x5
000d 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00d8 | | Load_Top At_Offset_0
0011 4805 |H | Short_Literal 0x5
0012 4800 |H | Short_Literal 0x0
0013 4801 |H | Short_Literal 0x1
0014 4807 |H | Short_Literal 0x7
0015 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0016 029f 069b | | Declare_Subprogram INIT_0698,For_Call
0018 00d9 | | Load_Top At_Offset_1
0019 012a | * | Execute Any,Change_Utility
001a 0007 | | Action Break_Optional
001b 00d8 | | Load_Top At_Offset_0
001c 02a0 | | Declare_Subprogram Null_Subprogram
001d 4818 |H | Short_Literal 0x18
001e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
001f 0093 0000 | | push_full_address 0x0
0021 60c2 |` | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00010000}
0022 0273 | s | Execute Discrete,Plus
0023 0129 | ) | Execute Any,Make_Visible
0024 0093 0000 | | push_full_address 0x0
0026 60b9 |` | Indirect_Literal Discrete,0xe0,{0x80000000, 0x00020000}
0027 0273 | s | Execute Discrete,Plus
0028 0129 | ) | Execute Any,Make_Visible
0029 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
002b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
002d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
002f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0031 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0033 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0035 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0037 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0039 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
003b 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
003d 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
003f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0041 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0043 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0045 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0047 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0049 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
004b 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
004d 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
004f 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0051 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0053 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0055 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0057 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0059 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
005b 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
005d 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
005f 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
0061 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0063 e20d | | Load 0x1,0xd
0064 4801 |H | Short_Literal 0x1
0065 e20f | | Load 0x1,0xf
0066 4801 |H | Short_Literal 0x1
0067 e002 | | Load 0x0,0x2
0068 4801 |H | Short_Literal 0x1
0069 00e1 | | Load_Encached Boolean_Cache
006a 4801 |H | Short_Literal 0x1
006b 00e2 | | Load_Encached Integer_Cache
006c 4801 |H | Short_Literal 0x1
006d e003 | | Load 0x0,0x3
006e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006f 029f 069b | | Declare_Subprogram INIT_0698,For_Call
0071 4805 |H | Short_Literal 0x5
0072 4801 |H | Short_Literal 0x1
0073 e20e | | Load 0x1,0xe
0074 0307 | | Complete_Type Variant_Record,By_Defining
0075 e20f | | Load 0x1,0xf
0076 03c4 | | Complete_Type Access,By_Component_Completion
0077 00bf | | Action Accept_Activation
0078 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0079 00c7 | | Action Elaborate_Subprogram
007a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007b 00c7 | | Action Elaborate_Subprogram
007c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
007d 00c7 | | Action Elaborate_Subprogram
007e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007f 00c7 | | Action Elaborate_Subprogram
0080 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0081 00c7 | | Action Elaborate_Subprogram
0082 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0083 00c7 | | Action Elaborate_Subprogram
0084 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0085 00c7 | | Action Elaborate_Subprogram
0086 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0087 00c7 | | Action Elaborate_Subprogram
0088 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0089 00c7 | | Action Elaborate_Subprogram
008a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
008b 00c7 | | Action Elaborate_Subprogram
008c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
008d 00c7 | | Action Elaborate_Subprogram
008e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
008f 00c7 | | Action Elaborate_Subprogram
0090 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0091 00c7 | | Action Elaborate_Subprogram
0092 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0093 00c7 | | Action Elaborate_Subprogram
0094 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0095 00c7 | | Action Elaborate_Subprogram
0096 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0097 00c7 | | Action Elaborate_Subprogram
0098 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0099 00c7 | | Action Elaborate_Subprogram
009a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
009b 00c7 | | Action Elaborate_Subprogram
009c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
009d 00c7 | | Action Elaborate_Subprogram
009e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00b1 00c7 | | Action Elaborate_Subprogram
00b2 BODY_0008:
00b2 00bc | | Action Signal_Activated
00b3 00bb | | Action Signal_Completion
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4607 |F | Jump_Case 0x8
00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00bd 7807 |x | Jump 0xc5 ; case 0x1
00be 780a |x | Jump 0xc9 ; case 0x2
00bf 780e |x | Jump 0xce ; case 0x3
00c0 7811 |x | Jump 0xd2 ; case 0x4
00c1 7812 |x | Jump 0xd4 ; case 0x5
00c2 7813 |x | Jump 0xd6 ; case 0x6
00c3 7816 |x | Jump 0xda ; case 0x7
00c4 4302 |C | .XXX[0x1]
00c5 00da | | Load_Top At_Offset_2
00c6 0091 0718 | | Action Push_String_Extended_Indexed,0x718 ; "UNDEFINED"
00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c9 00db | | Load_Top At_Offset_3
00ca 00db | | Load_Top At_Offset_3
00cb 00e0 | | Load_Encached Standard_Cache
00cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ce 00da | | Load_Top At_Offset_2
00cf 00e0 | | Load_Encached Standard_Cache
00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d2 00db | | Load_Top At_Offset_3
00d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d4 00db | | Load_Top At_Offset_3
00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d6 e20d | | Load 0x1,0xd
00d7 00dc | | Load_Top At_Offset_4
00d8 0267 | g | Execute Discrete,Predecessor
00d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00da e20d | | Load 0x1,0xd
00db 00dc | | Load_Top At_Offset_4
00dc 0268 | h | Execute Discrete,Successor
00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00de 0000 0000 | | .XXX[0x2]
00e0 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00e4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 0092 071e | | Action Push_String_Extended,0x71e ; "Desole, Cette fonction n'est pas encore implementee!"
00ed 8004 | | Call 0x0,0x4
00ee 8005 | | Call 0x0,0x5
00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f5 6802 |h | Jump_Zero 0xf8
00f6 00db | | Load_Top At_Offset_3
00f7 7006 |p | Jump_Nonzero 0xfe
00f8 0092 071f | | Action Push_String_Extended,0x71f ; "Il y a une operation sur une variable indefinie"
00fa 8004 | | Call 0x0,0x4
00fb 8005 | | Call 0x0,0x5
00fc 4800 |H | Short_Literal 0x0
00fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fe 00da | | Load_Top At_Offset_2
00ff 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0100 e5fe | | Load 0x2,-0x2
0101 027e | ~ | Execute Discrete,Not_Equal
0102 6828 |h( | Jump_Zero 0x12b
0103 00da | | Load_Top At_Offset_2
0104 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0105 4605 |F | Jump_Case 0x6
0106 780a |x | Jump 0x111 ; case 0x0
0107 780e |x | Jump 0x116 ; case 0x1
0108 7812 |x | Jump 0x11b ; case 0x2
0109 7816 |x | Jump 0x120 ; case 0x3
010a 781a |x | Jump 0x125 ; case 0x4
010b 7800 |x | Jump 0x10c ; case 0x5
010c 0092 0720 | | Action Push_String_Extended,0x720 ; "Operation illegale sur une variable chaine"
010e 8004 | | Call 0x0,0x4
010f 8005 | | Call 0x0,0x5
0110 7818 |x | Jump 0x129
0111 0092 0721 | !| Action Push_String_Extended,0x721 ; "Operation illegale sur une variable indefinie"
0113 8004 | | Call 0x0,0x4
0114 8005 | | Call 0x0,0x5
0115 7813 |x | Jump 0x129
0116 0092 0722 | "| Action Push_String_Extended,0x722 ; "Operation illegale sur un pointeur sur VAR_VALUE"
0118 8004 | | Call 0x0,0x4
0119 8005 | | Call 0x0,0x5
011a 780e |x | Jump 0x129
011b 0092 0723 | #| Action Push_String_Extended,0x723 ; "Operation illegale sur une variable jeton"
011d 8004 | | Call 0x0,0x4
011e 8005 | | Call 0x0,0x5
011f 7809 |x | Jump 0x129
0120 0092 0724 | $| Action Push_String_Extended,0x724 ; "Operation illegale sur une variable booleenne"
0122 8004 | | Call 0x0,0x4
0123 8005 | | Call 0x0,0x5
0124 7804 |x | Jump 0x129
0125 0092 0725 | %| Action Push_String_Extended,0x725 ; "Operation illegale sur une variable entiere"
0127 8004 | | Call 0x0,0x4
0128 8005 | | Call 0x0,0x5
0129 4800 |H | Short_Literal 0x0
012a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012b 4801 |H | Short_Literal 0x1
012c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4802 |H | Short_Literal 0x2
0134 00db | | Load_Top At_Offset_3
0135 8213 | | Call 0x1,0x13
0136 6811 |h | Jump_Zero 0x148
0137 4802 |H | Short_Literal 0x2
0138 e5fe | | Load 0x2,-0x2
0139 8213 | | Call 0x1,0x13
013a 680d |h | Jump_Zero 0x148
013b 00da | | Load_Top At_Offset_2
013c 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
013d 8006 | | Call 0x0,0x6
013e 0092 0726 | &| Action Push_String_Extended,0x726 ; "Target.My_Token <- "
0140 8007 | | Call 0x0,0x7
0141 8008 | | Call 0x0,0x8
0142 8009 | | Call 0x0,0x9
0143 00da | | Load_Top At_Offset_2
0144 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0145 e5fe | | Load 0x2,-0x2
0146 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0147 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0148 4803 |H | Short_Literal 0x3
0149 00db | | Load_Top At_Offset_3
014a 8213 | | Call 0x1,0x13
014b 6811 |h | Jump_Zero 0x15d
014c 4802 |H | Short_Literal 0x2
014d e5fe | | Load 0x2,-0x2
014e 8213 | | Call 0x1,0x13
014f 680d |h | Jump_Zero 0x15d
0150 00da | | Load_Top At_Offset_2
0151 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0152 800a | | Call 0x0,0xa
0153 0092 0727 | '| Action Push_String_Extended,0x727 ; "Target.My_Boolean <- "
0155 8007 | | Call 0x0,0x7
0156 8008 | | Call 0x0,0x8
0157 8009 | | Call 0x0,0x9
0158 00da | | Load_Top At_Offset_2
0159 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
015a e5fe | | Load 0x2,-0x2
015b 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015d 4804 |H | Short_Literal 0x4
015e 00db | | Load_Top At_Offset_3
015f 8213 | | Call 0x1,0x13
0160 6811 |h | Jump_Zero 0x172
0161 4802 |H | Short_Literal 0x2
0162 e5fe | | Load 0x2,-0x2
0163 8213 | | Call 0x1,0x13
0164 680d |h | Jump_Zero 0x172
0165 00da | | Load_Top At_Offset_2
0166 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0167 800b | | Call 0x0,0xb
0168 0092 0728 | (| Action Push_String_Extended,0x728 ; "Target.My_Integer <- "
016a 8007 | | Call 0x0,0x7
016b 8008 | | Call 0x0,0x8
016c 8009 | | Call 0x0,0x9
016d 00da | | Load_Top At_Offset_2
016e 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
016f e5fe | | Load 0x2,-0x2
0170 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0172 4805 |H | Short_Literal 0x5
0173 00db | | Load_Top At_Offset_3
0174 8213 | | Call 0x1,0x13
0175 6813 |h | Jump_Zero 0x189
0176 4802 |H | Short_Literal 0x2
0177 e5fe | | Load 0x2,-0x2
0178 8213 | | Call 0x1,0x13
0179 680f |h | Jump_Zero 0x189
017a 00da | | Load_Top At_Offset_2
017b 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
017c 0092 0729 | )| Action Push_String_Extended,0x729 ; "Target.My_String <- "
017e 8007 | | Call 0x0,0x7
017f 8008 | | Call 0x0,0x8
0180 8009 | | Call 0x0,0x9
0181 00db | | Load_Top At_Offset_3
0182 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0183 00db | | Load_Top At_Offset_3
0184 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0185 800c | | Call 0x0,0xc
0186 e5fe | | Load 0x2,-0x2
0187 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0189 0092 072a | *| Action Push_String_Extended,0x72a ; "Il y a une tentative d'affectation entre des types incompatibles!"
018b 8004 | | Call 0x0,0x4
018c e211 | | Load 0x1,0x11
018d 0257 | W | Execute Discrete,Raise
018e 0000 0000 | | .XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4801 |H | Short_Literal 0x1
0194 e5fe | | Load 0x2,-0x2
0195 8213 | | Call 0x1,0x13
0196 6807 |h | Jump_Zero 0x19e
0197 0092 072b | +| Action Push_String_Extended,0x72b ; "Target.My_Value <- P_Value"
0199 800d | | Call 0x0,0xd
019a 8009 | | Call 0x0,0x9
019b 00da | | Load_Top At_Offset_2
019c e5fe | | Load 0x2,-0x2
019d 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
019e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4802 |H | Short_Literal 0x2
01a4 e5fe | | Load 0x2,-0x2
01a5 8213 | | Call 0x1,0x13
01a6 680a |h | Jump_Zero 0x1b1
01a7 00da | | Load_Top At_Offset_2
01a8 8006 | | Call 0x0,0x6
01a9 0092 0726 | &| Action Push_String_Extended,0x726 ; "Target.My_Token <- "
01ab 8007 | | Call 0x0,0x7
01ac 8008 | | Call 0x0,0x8
01ad 8009 | | Call 0x0,0x9
01ae 00da | | Load_Top At_Offset_2
01af e5fe | | Load 0x2,-0x2
01b0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4803 |H | Short_Literal 0x3
01bc e5fe | | Load 0x2,-0x2
01bd 8213 | | Call 0x1,0x13
01be 680a |h | Jump_Zero 0x1c9
01bf 00da | | Load_Top At_Offset_2
01c0 800a | | Call 0x0,0xa
01c1 0092 0727 | '| Action Push_String_Extended,0x727 ; "Target.My_Boolean <- "
01c3 8007 | | Call 0x0,0x7
01c4 8008 | | Call 0x0,0x8
01c5 8009 | | Call 0x0,0x9
01c6 00da | | Load_Top At_Offset_2
01c7 e5fe | | Load 0x2,-0x2
01c8 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4804 |H | Short_Literal 0x4
01d4 e5fe | | Load 0x2,-0x2
01d5 8213 | | Call 0x1,0x13
01d6 680a |h | Jump_Zero 0x1e1
01d7 00da | | Load_Top At_Offset_2
01d8 800b | | Call 0x0,0xb
01d9 0092 0728 | (| Action Push_String_Extended,0x728 ; "Target.My_Integer <- "
01db 8007 | | Call 0x0,0x7
01dc 8008 | | Call 0x0,0x8
01dd 8009 | | Call 0x0,0x9
01de 00da | | Load_Top At_Offset_2
01df e5fe | | Load 0x2,-0x2
01e0 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef | | .CONST 0x01ef ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0004 | | .CONST 0x0004 ; Number of locals
01eb INIT_01e8:
01eb e002 | | Load 0x0,0x2
01ec 0007 | | Action Break_Optional
01ed 00e1 | | Load_Encached Boolean_Cache
01ee 00e2 | | Load_Encached Integer_Cache
01ef BODY_01e8:
01ef e5ff | | Load 0x2,-0x1
01f0 800e | | Call 0x0,0xe
01f1 680c |h | Jump_Zero 0x1fe
01f2 4802 |H | Short_Literal 0x2
01f3 e5fe | | Load 0x2,-0x2
01f4 8213 | | Call 0x1,0x13
01f5 6808 |h | Jump_Zero 0x1fe
01f6 e5ff | | Load 0x2,-0x1
01f7 800f | | Call 0x0,0xf
01f8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01f9 e5fe | | Load 0x2,-0x2
01fa 00db | | Load_Top At_Offset_3
01fb 8216 | | Call 0x1,0x16
01fc 00d1 | | Pop_Control Pop_Count_1
01fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01fe e5ff | | Load 0x2,-0x1
01ff 8010 | | Call 0x0,0x10
0200 680c |h | Jump_Zero 0x20d
0201 4803 |H | Short_Literal 0x3
0202 e5fe | | Load 0x2,-0x2
0203 8213 | | Call 0x1,0x13
0204 6808 |h | Jump_Zero 0x20d
0205 e5ff | | Load 0x2,-0x1
0206 8011 | | Call 0x0,0x11
0207 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0208 e5fe | | Load 0x2,-0x2
0209 00da | | Load_Top At_Offset_2
020a 8217 | | Call 0x1,0x17
020b 00d1 | | Pop_Control Pop_Count_1
020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020d e5ff | | Load 0x2,-0x1
020e 8012 | | Call 0x0,0x12
020f 680c |h | Jump_Zero 0x21c
0210 4804 |H | Short_Literal 0x4
0211 e5fe | | Load 0x2,-0x2
0212 8213 | | Call 0x1,0x13
0213 6808 |h | Jump_Zero 0x21c
0214 e5ff | | Load 0x2,-0x1
0215 8013 | | Call 0x0,0x13
0216 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0217 e5fe | | Load 0x2,-0x2
0218 00d9 | | Load_Top At_Offset_1
0219 8218 | | Call 0x1,0x18
021a 00d1 | | Pop_Control Pop_Count_1
021b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021c 4805 |H | Short_Literal 0x5
021d e5fe | | Load 0x2,-0x2
021e 8213 | | Call 0x1,0x13
021f 680c |h | Jump_Zero 0x22c
0220 e5ff | | Load 0x2,-0x1
0221 0092 0729 | )| Action Push_String_Extended,0x729 ; "Target.My_String <- "
0223 8007 | | Call 0x0,0x7
0224 8008 | | Call 0x0,0x8
0225 8009 | | Call 0x0,0x9
0226 e5fe | | Load 0x2,-0x2
0227 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0228 e5ff | | Load 0x2,-0x1
0229 800c | | Call 0x0,0xc
022a e5fe | | Load 0x2,-0x2
022b 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
022c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0235 4605 |F | Jump_Case 0x6
0236 7809 |x | Jump 0x240 ; case 0x0
0237 780c |x | Jump 0x244 ; case 0x1
0238 780f |x | Jump 0x248 ; case 0x2
0239 7812 |x | Jump 0x24c ; case 0x3
023a 7815 |x | Jump 0x250 ; case 0x4
023b 7800 |x | Jump 0x23c ; case 0x5
023c 0092 072c | ,| Action Push_String_Extended,0x72c ; "Get_Type -> Type_String"
023e 800d | | Call 0x0,0xd
023f 7813 |x | Jump 0x253
0240 0092 072d | -| Action Push_String_Extended,0x72d ; "Get_Type -> Undefined"
0242 800d | | Call 0x0,0xd
0243 780f |x | Jump 0x253
0244 0092 072e | .| Action Push_String_Extended,0x72e ; "Get_Type -> Type_Value"
0246 800d | | Call 0x0,0xd
0247 780b |x | Jump 0x253
0248 0092 072f | /| Action Push_String_Extended,0x72f ; "Get_Type -> Type_Token"
024a 800d | | Call 0x0,0xd
024b 7807 |x | Jump 0x253
024c 0092 0730 | 0| Action Push_String_Extended,0x730 ; "Get_Type -> Type_Boolean"
024e 800d | | Call 0x0,0xd
024f 7803 |x | Jump 0x253
0250 0092 0731 | 1| Action Push_String_Extended,0x731 ; "Get_Type -> Type_Integer"
0252 800d | | Call 0x0,0xd
0253 8009 | | Call 0x0,0x9
0254 00da | | Load_Top At_Offset_2
0255 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0256 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0257 0000 | | .XXX[0x1]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 0092 072e | .| Action Push_String_Extended,0x72e ; "Get_Type -> Type_Value"
025d 800d | | Call 0x0,0xd
025e 8009 | | Call 0x0,0x9
025f 4801 |H | Short_Literal 0x1
0260 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 0092 072f | /| Action Push_String_Extended,0x72f ; "Get_Type -> Type_Token"
026d 800d | | Call 0x0,0xd
026e 8009 | | Call 0x0,0x9
026f 4802 |H | Short_Literal 0x2
0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 0092 0730 | 0| Action Push_String_Extended,0x730 ; "Get_Type -> Type_Boolean"
027d 800d | | Call 0x0,0xd
027e 8009 | | Call 0x0,0x9
027f 4803 |H | Short_Literal 0x3
0280 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 0092 0731 | 1| Action Push_String_Extended,0x731 ; "Get_Type -> Type_Integer"
028d 800d | | Call 0x0,0xd
028e 8009 | | Call 0x0,0x9
028f 4804 |H | Short_Literal 0x4
0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 0092 072c | ,| Action Push_String_Extended,0x72c ; "Get_Type -> Type_String"
029d 800d | | Call 0x0,0xd
029e 8009 | | Call 0x0,0x9
029f 4805 |H | Short_Literal 0x5
02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a1 0000 0000 | | .BLANK 0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 4802 |H | Short_Literal 0x2
02ac 00db | | Load_Top At_Offset_3
02ad 8213 | | Call 0x1,0x13
02ae 680b |h | Jump_Zero 0x2ba
02af 00da | | Load_Top At_Offset_2
02b0 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02b1 8006 | | Call 0x0,0x6
02b2 0092 0732 | 2| Action Push_String_Extended,0x732 ; "Get_Type -> "
02b4 8007 | | Call 0x0,0x7
02b5 8008 | | Call 0x0,0x8
02b6 8009 | | Call 0x0,0x9
02b7 00da | | Load_Top At_Offset_2
02b8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ba e211 | | Load 0x1,0x11
02bb 0257 | W | Execute Discrete,Raise
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4803 |H | Short_Literal 0x3
02c4 00db | | Load_Top At_Offset_3
02c5 8213 | | Call 0x1,0x13
02c6 680b |h | Jump_Zero 0x2d2
02c7 00da | | Load_Top At_Offset_2
02c8 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02c9 800a | | Call 0x0,0xa
02ca 0092 0733 | 3| Action Push_String_Extended,0x733 ; "Get_Value -> "
02cc 8007 | | Call 0x0,0x7
02cd 8008 | | Call 0x0,0x8
02ce 8009 | | Call 0x0,0x9
02cf 00da | | Load_Top At_Offset_2
02d0 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d2 e211 | | Load 0x1,0x11
02d3 0257 | W | Execute Discrete,Raise
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 4804 |H | Short_Literal 0x4
02dc 00db | | Load_Top At_Offset_3
02dd 8213 | | Call 0x1,0x13
02de 680b |h | Jump_Zero 0x2ea
02df 00da | | Load_Top At_Offset_2
02e0 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02e1 800b | | Call 0x0,0xb
02e2 0092 0733 | 3| Action Push_String_Extended,0x733 ; "Get_Value -> "
02e4 8007 | | Call 0x0,0x7
02e5 8008 | | Call 0x0,0x8
02e6 8009 | | Call 0x0,0x9
02e7 00da | | Load_Top At_Offset_2
02e8 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ea e211 | | Load 0x1,0x11
02eb 0257 | W | Execute Discrete,Raise
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4805 |H | Short_Literal 0x5
02f4 00db | | Load_Top At_Offset_3
02f5 8213 | | Call 0x1,0x13
02f6 680a |h | Jump_Zero 0x301
02f7 00da | | Load_Top At_Offset_2
02f8 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
02f9 0092 0733 | 3| Action Push_String_Extended,0x733 ; "Get_Value -> "
02fb 8007 | | Call 0x0,0x7
02fc 8008 | | Call 0x0,0x8
02fd 8009 | | Call 0x0,0x9
02fe 00da | | Load_Top At_Offset_2
02ff 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0300 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0301 e211 | | Load 0x1,0x11
0302 0257 | W | Execute Discrete,Raise
0303 0000 0000 | | .BLANK 0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0310 | | .CONST 0x0310 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b 4801 |H | Short_Literal 0x1
030c e20e | | Load 0x1,0xe
030d 1c08 | | Execute_Immediate Run_Utility,0x8
030e 00d8 | | Load_Top At_Offset_0
030f 1c00 | | Execute_Immediate Run_Utility,0x0
0310 BODY_0308:
0310 00d8 | | Load_Top At_Offset_0
0311 e5ff | | Load 0x2,-0x1
0312 8215 | | Call 0x1,0x15
0313 00d1 | | Pop_Control Pop_Count_1
0314 00d8 | | Load_Top At_Offset_0
0315 8220 | | Call 0x1,0x20
0316 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0317 0000 | | .XXX[0x1]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0320 | | .CONST 0x0320 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b 4801 |H | Short_Literal 0x1
031c e20e | | Load 0x1,0xe
031d 1c08 | | Execute_Immediate Run_Utility,0x8
031e 00d8 | | Load_Top At_Offset_0
031f 1c00 | | Execute_Immediate Run_Utility,0x0
0320 BODY_0318:
0320 00d8 | | Load_Top At_Offset_0
0321 e5ff | | Load 0x2,-0x1
0322 8215 | | Call 0x1,0x15
0323 00d1 | | Pop_Control Pop_Count_1
0324 00d8 | | Load_Top At_Offset_0
0325 8221 | ! | Call 0x1,0x21
0326 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0327 0000 | | .XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0330 | 0 | .CONST 0x0330 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0002 | | .CONST 0x0002 ; Number of locals
032b INIT_0328:
032b 4801 |H | Short_Literal 0x1
032c e20e | | Load 0x1,0xe
032d 1c08 | | Execute_Immediate Run_Utility,0x8
032e 00d8 | | Load_Top At_Offset_0
032f 1c00 | | Execute_Immediate Run_Utility,0x0
0330 BODY_0328:
0330 00d8 | | Load_Top At_Offset_0
0331 e5ff | | Load 0x2,-0x1
0332 8215 | | Call 0x1,0x15
0333 00d1 | | Pop_Control Pop_Count_1
0334 00d8 | | Load_Top At_Offset_0
0335 8222 | " | Call 0x1,0x22
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0340 | @ | .CONST 0x0340 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0002 | | .CONST 0x0002 ; Number of locals
033b INIT_0338:
033b 4801 |H | Short_Literal 0x1
033c e20e | | Load 0x1,0xe
033d 1c08 | | Execute_Immediate Run_Utility,0x8
033e 00d8 | | Load_Top At_Offset_0
033f 1c00 | | Execute_Immediate Run_Utility,0x0
0340 BODY_0338:
0340 00d8 | | Load_Top At_Offset_0
0341 e5ff | | Load 0x2,-0x1
0342 8215 | | Call 0x1,0x15
0343 00d1 | | Pop_Control Pop_Count_1
0344 00d8 | | Load_Top At_Offset_0
0345 8223 | # | Call 0x1,0x23
0346 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0347 0000 | | .XXX[0x1]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d | M | .CONST 0x034d ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b e003 | | Load 0x0,0x3
034c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
034d BODY_0348:
034d 0092 0734 | 4| Action Push_String_Extended,0x734 ; "Print_Value :"
034f 800d | | Call 0x0,0xd
0350 00db | | Load_Top At_Offset_3
0351 0227 | ' | Execute Access,All_Reference
0352 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0353 4605 |F | Jump_Case 0x6
0354 780a |x | Jump 0x35f ; case 0x0
0355 780d |x | Jump 0x363 ; case 0x1
0356 7811 |x | Jump 0x368 ; case 0x2
0357 7816 |x | Jump 0x36e ; case 0x3
0358 781b |x | Jump 0x374 ; case 0x4
0359 7800 |x | Jump 0x35a ; case 0x5
035a 00db | | Load_Top At_Offset_3
035b 0227 | ' | Execute Access,All_Reference
035c 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
035d 8014 | | Call 0x0,0x14
035e 781a |x | Jump 0x379
035f 0092 0735 | 5| Action Push_String_Extended,0x735 ; "indefinie"
0361 8004 | | Call 0x0,0x4
0362 7816 |x | Jump 0x379
0363 00db | | Load_Top At_Offset_3
0364 0227 | ' | Execute Access,All_Reference
0365 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0366 8228 | ( | Call 0x1,0x28
0367 7811 |x | Jump 0x379
0368 00db | | Load_Top At_Offset_3
0369 0227 | ' | Execute Access,All_Reference
036a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
036b 8006 | | Call 0x0,0x6
036c 8014 | | Call 0x0,0x14
036d 780b |x | Jump 0x379
036e 00db | | Load_Top At_Offset_3
036f 0227 | ' | Execute Access,All_Reference
0370 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0371 800a | | Call 0x0,0xa
0372 8014 | | Call 0x0,0x14
0373 7805 |x | Jump 0x379
0374 00db | | Load_Top At_Offset_3
0375 0227 | ' | Execute Access,All_Reference
0376 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0377 800b | | Call 0x0,0xb
0378 8014 | | Call 0x0,0x14
0379 8009 | | Call 0x0,0x9
037a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037b 0000 0000 | | .BLANK 0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0385 | | .CONST 0x0385 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0002 | | .CONST 0x0002 ; Number of locals
0383 INIT_0380:
0383 e003 | | Load 0x0,0x3
0384 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0385 BODY_0380:
0385 0092 0734 | 4| Action Push_String_Extended,0x734 ; "Print_Value :"
0387 800d | | Call 0x0,0xd
0388 00db | | Load_Top At_Offset_3
0389 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
038a 4605 |F | Jump_Case 0x6
038b 7809 |x | Jump 0x395 ; case 0x0
038c 780c |x | Jump 0x399 ; case 0x1
038d 780f |x | Jump 0x39d ; case 0x2
038e 7813 |x | Jump 0x3a2 ; case 0x3
038f 7817 |x | Jump 0x3a7 ; case 0x4
0390 7800 |x | Jump 0x391 ; case 0x5
0391 00db | | Load_Top At_Offset_3
0392 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0393 8014 | | Call 0x0,0x14
0394 7816 |x | Jump 0x3ab
0395 0092 0735 | 5| Action Push_String_Extended,0x735 ; "indefinie"
0397 8004 | | Call 0x0,0x4
0398 7812 |x | Jump 0x3ab
0399 00db | | Load_Top At_Offset_3
039a 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
039b 8228 | ( | Call 0x1,0x28
039c 780e |x | Jump 0x3ab
039d 00db | | Load_Top At_Offset_3
039e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
039f 8006 | | Call 0x0,0x6
03a0 8014 | | Call 0x0,0x14
03a1 7809 |x | Jump 0x3ab
03a2 00db | | Load_Top At_Offset_3
03a3 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03a4 800a | | Call 0x0,0xa
03a5 8014 | | Call 0x0,0x14
03a6 7804 |x | Jump 0x3ab
03a7 00db | | Load_Top At_Offset_3
03a8 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03a9 800b | | Call 0x0,0xb
03aa 8014 | | Call 0x0,0x14
03ab 8009 | | Call 0x0,0x9
03ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b6 | | .CONST 0x03b6 ; Address of begin
03b1 03e8 | | .CONST 0x03e8 ; Address of exception handler
03b2 0003 | | .CONST 0x0003 ; Number of locals
03b3 INIT_03b0:
03b3 e003 | | Load 0x0,0x3
03b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03b5 00e1 | | Load_Encached Boolean_Cache
03b6 BODY_03b0:
03b6 4803 |H | Short_Literal 0x3
03b7 e5fe | | Load 0x2,-0x2
03b8 8213 | | Call 0x1,0x13
03b9 681f |h | Jump_Zero 0x3d9
03ba e5ff | | Load 0x2,-0x1
03bb 0f32 | 2 | Execute_Immediate Equal,0x32
03bc 6815 |h | Jump_Zero 0x3d2
03bd 00d9 | | Load_Top At_Offset_1
03be e5fe | | Load 0x2,-0x2
03bf 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03c0 800a | | Call 0x0,0xa
03c1 0092 0736 | 6| Action Push_String_Extended,0x736 ; "non "
03c3 8007 | | Call 0x0,0x7
03c4 800c | | Call 0x0,0xc
03c5 003a | : | Store_Top Access,At_Offset_2
03c6 00d9 | | Load_Top At_Offset_1
03c7 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
03c9 00db | | Load_Top At_Offset_3
03ca 8015 | | Call 0x0,0x15
03cb 800c | | Call 0x0,0xc
03cc 003a | : | Store_Top Access,At_Offset_2
03cd e5fe | | Load 0x2,-0x2
03ce 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03cf 0f00 | | Execute_Immediate Equal,0x0
03d0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03d1 780e |x | Jump 0x3e0
03d2 00d9 | | Load_Top At_Offset_1
03d3 0092 0738 | 8| Action Push_String_Extended,0x738 ; "Operation booleenne inconnue"
03d5 8016 | | Call 0x0,0x16
03d6 003a | : | Store_Top Access,At_Offset_2
03d7 e211 | | Load 0x1,0x11
03d8 0257 | W | Execute Discrete,Raise
03d9 00d9 | | Load_Top At_Offset_1
03da 0092 0739 | 9| Action Push_String_Extended,0x739 ; "VAR_VALUE n'est pas de type TYPE_BOOLEAN"
03dc 8016 | | Call 0x0,0x16
03dd 003a | : | Store_Top Access,At_Offset_2
03de e211 | | Load 0x1,0x11
03df 0257 | W | Execute Discrete,Raise
03e0 00d8 | | Load_Top At_Offset_0
03e1 800a | | Call 0x0,0xa
03e2 00da | | Load_Top At_Offset_2
03e3 8017 | | Call 0x0,0x17
03e4 8008 | | Call 0x0,0x8
03e5 8009 | | Call 0x0,0x9
03e6 00d8 | | Load_Top At_Offset_0
03e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e8 TRAP_03b0:
03e8 e211 | | Load 0x1,0x11
03e9 010f | | Execute Exception,Equal
03ea 6808 |h | Jump_Zero 0x3f3
03eb 0092 073a | :| Action Push_String_Extended,0x73a ; " -> Type_Conflict"
03ed 00db | | Load_Top At_Offset_3
03ee 8015 | | Call 0x0,0x15
03ef 8014 | | Call 0x0,0x14
03f0 8005 | | Call 0x0,0x5
03f1 4800 |H | Short_Literal 0x0
03f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f3 0092 073b | ;| Action Push_String_Extended,0x73b ; " -> exception non traitee"
03f5 00db | | Load_Top At_Offset_3
03f6 8015 | | Call 0x0,0x15
03f7 8014 | | Call 0x0,0x14
03f8 8005 | | Call 0x0,0x5
03f9 00d8 | | Load_Top At_Offset_0
03fa 0101 | | Execute Exception,Reraise
03fb 0000 0000 | | .BLANK 0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0406 | | .CONST 0x0406 ; Address of begin
0401 044e | N | .CONST 0x044e ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 e003 | | Load 0x0,0x3
0404 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0405 00e2 | | Load_Encached Integer_Cache
0406 BODY_0400:
0406 4804 |H | Short_Literal 0x4
0407 e5fe | | Load 0x2,-0x2
0408 8213 | | Call 0x1,0x13
0409 6835 |h5 | Jump_Zero 0x43f
040a e5ff | | Load 0x2,-0x1
040b 7014 |p | Jump_Nonzero 0x420
040c 00d9 | | Load_Top At_Offset_1
040d e5fe | | Load 0x2,-0x2
040e 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
040f 800b | | Call 0x0,0xb
0410 0092 073c | <| Action Push_String_Extended,0x73c ; "+ "
0412 8007 | | Call 0x0,0x7
0413 800c | | Call 0x0,0xc
0414 003a | : | Store_Top Access,At_Offset_2
0415 00d9 | | Load_Top At_Offset_1
0416 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
0418 00db | | Load_Top At_Offset_3
0419 8015 | | Call 0x0,0x15
041a 800c | | Call 0x0,0xc
041b 003a | : | Store_Top Access,At_Offset_2
041c e5fe | | Load 0x2,-0x2
041d 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
041e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
041f 7826 |x& | Jump 0x446
0420 e5ff | | Load 0x2,-0x1
0421 0f01 | | Execute_Immediate Equal,0x1
0422 6815 |h | Jump_Zero 0x438
0423 00d9 | | Load_Top At_Offset_1
0424 e5fe | | Load 0x2,-0x2
0425 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0426 800b | | Call 0x0,0xb
0427 0092 073d | =| Action Push_String_Extended,0x73d ; "- "
0429 8007 | | Call 0x0,0x7
042a 800c | | Call 0x0,0xc
042b 003a | : | Store_Top Access,At_Offset_2
042c 00d9 | | Load_Top At_Offset_1
042d 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
042f 00db | | Load_Top At_Offset_3
0430 8015 | | Call 0x0,0x15
0431 800c | | Call 0x0,0xc
0432 003a | : | Store_Top Access,At_Offset_2
0433 e5fe | | Load 0x2,-0x2
0434 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0435 0275 | u | Execute Discrete,Unary_Minus
0436 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0437 780e |x | Jump 0x446
0438 00d9 | | Load_Top At_Offset_1
0439 0092 073e | >| Action Push_String_Extended,0x73e ; "Operateur entier inconnu"
043b 8016 | | Call 0x0,0x16
043c 003a | : | Store_Top Access,At_Offset_2
043d e211 | | Load 0x1,0x11
043e 0257 | W | Execute Discrete,Raise
043f 00d9 | | Load_Top At_Offset_1
0440 0092 073f | ?| Action Push_String_Extended,0x73f ; "VAR_VALUE n'est pas de type TYPE_INTEGER"
0442 8016 | | Call 0x0,0x16
0443 003a | : | Store_Top Access,At_Offset_2
0444 e211 | | Load 0x1,0x11
0445 0257 | W | Execute Discrete,Raise
0446 00d8 | | Load_Top At_Offset_0
0447 800b | | Call 0x0,0xb
0448 00da | | Load_Top At_Offset_2
0449 8017 | | Call 0x0,0x17
044a 8008 | | Call 0x0,0x8
044b 8009 | | Call 0x0,0x9
044c 00d8 | | Load_Top At_Offset_0
044d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044e TRAP_0400:
044e e211 | | Load 0x1,0x11
044f 010f | | Execute Exception,Equal
0450 6808 |h | Jump_Zero 0x459
0451 0092 073a | :| Action Push_String_Extended,0x73a ; " -> Type_Conflict"
0453 00db | | Load_Top At_Offset_3
0454 8015 | | Call 0x0,0x15
0455 8014 | | Call 0x0,0x14
0456 8005 | | Call 0x0,0x5
0457 4800 |H | Short_Literal 0x0
0458 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0459 0092 0740 | @| Action Push_String_Extended,0x740 ; " -> Exception non traitee"
045b 00db | | Load_Top At_Offset_3
045c 8015 | | Call 0x0,0x15
045d 8014 | | Call 0x0,0x14
045e 8005 | | Call 0x0,0x5
045f 00d8 | | Load_Top At_Offset_0
0460 0101 | | Execute Exception,Reraise
0461 0000 0000 | | .BLANK 0000[0x7]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046e | n | .CONST 0x046e ; Address of begin
0469 058a | | .CONST 0x058a ; Address of exception handler
046a 0003 | | .CONST 0x0003 ; Number of locals
046b INIT_0468:
046b e003 | | Load 0x0,0x3
046c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
046d 00e1 | | Load_Encached Boolean_Cache
046e BODY_0468:
046e e5fe | | Load 0x2,-0x2
046f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0470 0f03 | | Execute_Immediate Equal,0x3
0471 6856 |hV | Jump_Zero 0x4c8
0472 e5fd | | Load 0x2,-0x3
0473 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0474 0f03 | | Execute_Immediate Equal,0x3
0475 6852 |hR | Jump_Zero 0x4c8
0476 e5ff | | Load 0x2,-0x1
0477 0f35 | 5 | Execute_Immediate Equal,0x35
0478 6807 |h | Jump_Zero 0x480
0479 e5fe | | Load 0x2,-0x2
047a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
047b e5fd | | Load 0x2,-0x3
047c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
047d 0279 | y | Execute Discrete,And
047e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
047f 7825 |x% | Jump 0x4a5
0480 e5ff | | Load 0x2,-0x1
0481 0f36 | 6 | Execute_Immediate Equal,0x36
0482 6807 |h | Jump_Zero 0x48a
0483 e5fe | | Load 0x2,-0x2
0484 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0485 e5fd | | Load 0x2,-0x3
0486 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0487 0278 | x | Execute Discrete,Or
0488 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0489 781b |x | Jump 0x4a5
048a e5ff | | Load 0x2,-0x1
048b 0f09 | | Execute_Immediate Equal,0x9
048c 6807 |h | Jump_Zero 0x494
048d e5fe | | Load 0x2,-0x2
048e 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
048f e5fd | | Load 0x2,-0x3
0490 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0491 027f | | Execute Discrete,Equal
0492 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0493 7811 |x | Jump 0x4a5
0494 e5ff | | Load 0x2,-0x1
0495 0f06 | | Execute_Immediate Equal,0x6
0496 6807 |h | Jump_Zero 0x49e
0497 e5fe | | Load 0x2,-0x2
0498 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0499 e5fd | | Load 0x2,-0x3
049a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
049b 027e | ~ | Execute Discrete,Not_Equal
049c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
049d 7807 |x | Jump 0x4a5
049e 00d9 | | Load_Top At_Offset_1
049f 0092 0741 | A| Action Push_String_Extended,0x741 ; "Operateur booleen inconnu"
04a1 8016 | | Call 0x0,0x16
04a2 003a | : | Store_Top Access,At_Offset_2
04a3 e211 | | Load 0x1,0x11
04a4 0257 | W | Execute Discrete,Raise
04a5 00d9 | | Load_Top At_Offset_1
04a6 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
04a8 e5fe | | Load 0x2,-0x2
04a9 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04aa 800a | | Call 0x0,0xa
04ab 8015 | | Call 0x0,0x15
04ac 800c | | Call 0x0,0xc
04ad 003a | : | Store_Top Access,At_Offset_2
04ae 00d9 | | Load_Top At_Offset_1
04af 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
04b1 e5ff | | Load 0x2,-0x1
04b2 8006 | | Call 0x0,0x6
04b3 e402 | | Load 0x2,0x2
04b4 8017 | | Call 0x0,0x17
04b5 8015 | | Call 0x0,0x15
04b6 800c | | Call 0x0,0xc
04b7 003a | : | Store_Top Access,At_Offset_2
04b8 00d9 | | Load_Top At_Offset_1
04b9 e5fd | | Load 0x2,-0x3
04ba 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04bb 800a | | Call 0x0,0xa
04bc 00db | | Load_Top At_Offset_3
04bd 8017 | | Call 0x0,0x17
04be 800c | | Call 0x0,0xc
04bf 003a | : | Store_Top Access,At_Offset_2
04c0 00d9 | | Load_Top At_Offset_1
04c1 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
04c3 00db | | Load_Top At_Offset_3
04c4 8015 | | Call 0x0,0x15
04c5 800c | | Call 0x0,0xc
04c6 003a | : | Store_Top Access,At_Offset_2
04c7 78ba |x | Jump 0x582
04c8 e5fe | | Load 0x2,-0x2
04c9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04ca 0f04 | | Execute_Immediate Equal,0x4
04cb 686a |hj | Jump_Zero 0x536
04cc e5fd | | Load 0x2,-0x3
04cd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04ce 0f04 | | Execute_Immediate Equal,0x4
04cf 6866 |hf | Jump_Zero 0x536
04d0 e5ff | | Load 0x2,-0x1
04d1 0f09 | | Execute_Immediate Equal,0x9
04d2 6807 |h | Jump_Zero 0x4da
04d3 e5fe | | Load 0x2,-0x2
04d4 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04d5 e5fd | | Load 0x2,-0x3
04d6 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04d7 027f | | Execute Discrete,Equal
04d8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04d9 7839 |x9 | Jump 0x513
04da e5ff | | Load 0x2,-0x1
04db 0f06 | | Execute_Immediate Equal,0x6
04dc 6807 |h | Jump_Zero 0x4e4
04dd e5fe | | Load 0x2,-0x2
04de 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04df e5fd | | Load 0x2,-0x3
04e0 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04e1 027e | ~ | Execute Discrete,Not_Equal
04e2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04e3 782f |x/ | Jump 0x513
04e4 e5ff | | Load 0x2,-0x1
04e5 0f04 | | Execute_Immediate Equal,0x4
04e6 6807 |h | Jump_Zero 0x4ee
04e7 e5fe | | Load 0x2,-0x2
04e8 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04e9 e5fd | | Load 0x2,-0x3
04ea 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04eb 027c | | | Execute Discrete,Less
04ec 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04ed 7825 |x% | Jump 0x513
04ee e5ff | | Load 0x2,-0x1
04ef 0f05 | | Execute_Immediate Equal,0x5
04f0 6807 |h | Jump_Zero 0x4f8
04f1 e5fe | | Load 0x2,-0x2
04f2 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04f3 e5fd | | Load 0x2,-0x3
04f4 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04f5 027a | z | Execute Discrete,Less_Equal
04f6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04f7 781b |x | Jump 0x513
04f8 e5ff | | Load 0x2,-0x1
04f9 0f07 | | Execute_Immediate Equal,0x7
04fa 6807 |h | Jump_Zero 0x502
04fb e5fe | | Load 0x2,-0x2
04fc 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04fd e5fd | | Load 0x2,-0x3
04fe 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04ff 027d | } | Execute Discrete,Greater
0500 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0501 7811 |x | Jump 0x513
0502 e5ff | | Load 0x2,-0x1
0503 0f08 | | Execute_Immediate Equal,0x8
0504 6807 |h | Jump_Zero 0x50c
0505 e5fe | | Load 0x2,-0x2
0506 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0507 e5fd | | Load 0x2,-0x3
0508 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0509 027b | { | Execute Discrete,Greater_Equal
050a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
050b 7807 |x | Jump 0x513
050c 00d9 | | Load_Top At_Offset_1
050d 0092 073e | >| Action Push_String_Extended,0x73e ; "Operateur entier inconnu"
050f 8016 | | Call 0x0,0x16
0510 003a | : | Store_Top Access,At_Offset_2
0511 e211 | | Load 0x1,0x11
0512 0257 | W | Execute Discrete,Raise
0513 00d9 | | Load_Top At_Offset_1
0514 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
0516 e5fe | | Load 0x2,-0x2
0517 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0518 800b | | Call 0x0,0xb
0519 8015 | | Call 0x0,0x15
051a 800c | | Call 0x0,0xc
051b 003a | : | Store_Top Access,At_Offset_2
051c 00d9 | | Load_Top At_Offset_1
051d 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
051f e5ff | | Load 0x2,-0x1
0520 8006 | | Call 0x0,0x6
0521 e402 | | Load 0x2,0x2
0522 8017 | | Call 0x0,0x17
0523 8015 | | Call 0x0,0x15
0524 800c | | Call 0x0,0xc
0525 003a | : | Store_Top Access,At_Offset_2
0526 00d9 | | Load_Top At_Offset_1
0527 e5fd | | Load 0x2,-0x3
0528 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0529 800b | | Call 0x0,0xb
052a 00db | | Load_Top At_Offset_3
052b 8017 | | Call 0x0,0x17
052c 800c | | Call 0x0,0xc
052d 003a | : | Store_Top Access,At_Offset_2
052e 00d9 | | Load_Top At_Offset_1
052f 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
0531 00db | | Load_Top At_Offset_3
0532 8015 | | Call 0x0,0x15
0533 800c | | Call 0x0,0xc
0534 003a | : | Store_Top Access,At_Offset_2
0535 784c |xL | Jump 0x582
0536 e5fe | | Load 0x2,-0x2
0537 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0538 0f05 | | Execute_Immediate Equal,0x5
0539 6841 |hA | Jump_Zero 0x57b
053a e5fd | | Load 0x2,-0x3
053b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
053c 0f05 | | Execute_Immediate Equal,0x5
053d 683d |h= | Jump_Zero 0x57b
053e e5ff | | Load 0x2,-0x1
053f 0f09 | | Execute_Immediate Equal,0x9
0540 6807 |h | Jump_Zero 0x548
0541 e5fd | | Load 0x2,-0x3
0542 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0543 e5fe | | Load 0x2,-0x2
0544 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0545 8018 | | Call 0x0,0x18
0546 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0547 7812 |x | Jump 0x55a
0548 e5ff | | Load 0x2,-0x1
0549 0f06 | | Execute_Immediate Equal,0x6
054a 6808 |h | Jump_Zero 0x553
054b e5fd | | Load 0x2,-0x3
054c 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
054d e5fe | | Load 0x2,-0x2
054e 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
054f 8018 | | Call 0x0,0x18
0550 0f00 | | Execute_Immediate Equal,0x0
0551 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0552 7807 |x | Jump 0x55a
0553 00d9 | | Load_Top At_Offset_1
0554 0092 0743 | C| Action Push_String_Extended,0x743 ; "Operateur chaine inconnu"
0556 8016 | | Call 0x0,0x16
0557 003a | : | Store_Top Access,At_Offset_2
0558 e211 | | Load 0x1,0x11
0559 0257 | W | Execute Discrete,Raise
055a 00d9 | | Load_Top At_Offset_1
055b 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
055d e5fe | | Load 0x2,-0x2
055e 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
055f 8015 | | Call 0x0,0x15
0560 800c | | Call 0x0,0xc
0561 003a | : | Store_Top Access,At_Offset_2
0562 00d9 | | Load_Top At_Offset_1
0563 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
0565 e5ff | | Load 0x2,-0x1
0566 8006 | | Call 0x0,0x6
0567 e402 | | Load 0x2,0x2
0568 8017 | | Call 0x0,0x17
0569 8015 | | Call 0x0,0x15
056a 800c | | Call 0x0,0xc
056b 003a | : | Store_Top Access,At_Offset_2
056c 00d9 | | Load_Top At_Offset_1
056d e5fd | | Load 0x2,-0x3
056e 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
056f 00db | | Load_Top At_Offset_3
0570 8017 | | Call 0x0,0x17
0571 800c | | Call 0x0,0xc
0572 003a | : | Store_Top Access,At_Offset_2
0573 00d9 | | Load_Top At_Offset_1
0574 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
0576 00db | | Load_Top At_Offset_3
0577 8015 | | Call 0x0,0x15
0578 800c | | Call 0x0,0xc
0579 003a | : | Store_Top Access,At_Offset_2
057a 7807 |x | Jump 0x582
057b 00d9 | | Load_Top At_Offset_1
057c 0092 0744 | D| Action Push_String_Extended,0x744 ; "Operation binaire booleenne avec operandes incompatibles"
057e 8016 | | Call 0x0,0x16
057f 003a | : | Store_Top Access,At_Offset_2
0580 e211 | | Load 0x1,0x11
0581 0257 | W | Execute Discrete,Raise
0582 00d8 | | Load_Top At_Offset_0
0583 800a | | Call 0x0,0xa
0584 00da | | Load_Top At_Offset_2
0585 8017 | | Call 0x0,0x17
0586 8008 | | Call 0x0,0x8
0587 8009 | | Call 0x0,0x9
0588 00d8 | | Load_Top At_Offset_0
0589 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
058a TRAP_0468:
058a e211 | | Load 0x1,0x11
058b 010f | | Execute Exception,Equal
058c 6808 |h | Jump_Zero 0x595
058d 0092 073a | :| Action Push_String_Extended,0x73a ; " -> Type_Conflict"
058f 00db | | Load_Top At_Offset_3
0590 8015 | | Call 0x0,0x15
0591 8014 | | Call 0x0,0x14
0592 8005 | | Call 0x0,0x5
0593 4800 |H | Short_Literal 0x0
0594 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0595 0092 0740 | @| Action Push_String_Extended,0x740 ; " -> Exception non traitee"
0597 00db | | Load_Top At_Offset_3
0598 8015 | | Call 0x0,0x15
0599 8014 | | Call 0x0,0x14
059a 8005 | | Call 0x0,0x5
059b 00d8 | | Load_Top At_Offset_0
059c 0101 | | Execute Exception,Reraise
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a6 | | .CONST 0x05a6 ; Address of begin
05a1 060e | | .CONST 0x060e ; Address of exception handler
05a2 0003 | | .CONST 0x0003 ; Number of locals
05a3 INIT_05a0:
05a3 e003 | | Load 0x0,0x3
05a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05a5 00e2 | | Load_Encached Integer_Cache
05a6 BODY_05a0:
05a6 4804 |H | Short_Literal 0x4
05a7 e5fe | | Load 0x2,-0x2
05a8 8213 | | Call 0x1,0x13
05a9 6855 |hU | Jump_Zero 0x5ff
05aa 4804 |H | Short_Literal 0x4
05ab e5fd | | Load 0x2,-0x3
05ac 8213 | | Call 0x1,0x13
05ad 6851 |hQ | Jump_Zero 0x5ff
05ae e5ff | | Load 0x2,-0x1
05af 7007 |p | Jump_Nonzero 0x5b7
05b0 e5fe | | Load 0x2,-0x2
05b1 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05b2 e5fd | | Load 0x2,-0x3
05b3 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05b4 0273 | s | Execute Discrete,Plus
05b5 0059 | Y | Store_Top Discrete,At_Offset_1
05b6 7825 |x% | Jump 0x5dc
05b7 e5ff | | Load 0x2,-0x1
05b8 0f01 | | Execute_Immediate Equal,0x1
05b9 6807 |h | Jump_Zero 0x5c1
05ba e5fe | | Load 0x2,-0x2
05bb 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05bc e5fd | | Load 0x2,-0x3
05bd 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05be 0272 | r | Execute Discrete,Minus
05bf 0059 | Y | Store_Top Discrete,At_Offset_1
05c0 781b |x | Jump 0x5dc
05c1 e5ff | | Load 0x2,-0x1
05c2 0f02 | | Execute_Immediate Equal,0x2
05c3 6807 |h | Jump_Zero 0x5cb
05c4 e5fe | | Load 0x2,-0x2
05c5 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05c6 e5fd | | Load 0x2,-0x3
05c7 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05c8 0271 | q | Execute Discrete,Times
05c9 0059 | Y | Store_Top Discrete,At_Offset_1
05ca 7811 |x | Jump 0x5dc
05cb e5ff | | Load 0x2,-0x1
05cc 0f03 | | Execute_Immediate Equal,0x3
05cd 6807 |h | Jump_Zero 0x5d5
05ce e5fe | | Load 0x2,-0x2
05cf 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05d0 e5fd | | Load 0x2,-0x3
05d1 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05d2 0270 | p | Execute Discrete,Divide
05d3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05d4 7807 |x | Jump 0x5dc
05d5 00d9 | | Load_Top At_Offset_1
05d6 0092 073e | >| Action Push_String_Extended,0x73e ; "Operateur entier inconnu"
05d8 8016 | | Call 0x0,0x16
05d9 003a | : | Store_Top Access,At_Offset_2
05da e211 | | Load 0x1,0x11
05db 0257 | W | Execute Discrete,Raise
05dc 00d9 | | Load_Top At_Offset_1
05dd 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
05df e5fe | | Load 0x2,-0x2
05e0 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05e1 800b | | Call 0x0,0xb
05e2 8015 | | Call 0x0,0x15
05e3 800c | | Call 0x0,0xc
05e4 003a | : | Store_Top Access,At_Offset_2
05e5 00d9 | | Load_Top At_Offset_1
05e6 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
05e8 e5ff | | Load 0x2,-0x1
05e9 8006 | | Call 0x0,0x6
05ea e402 | | Load 0x2,0x2
05eb 8017 | | Call 0x0,0x17
05ec 8015 | | Call 0x0,0x15
05ed 800c | | Call 0x0,0xc
05ee 003a | : | Store_Top Access,At_Offset_2
05ef 00d9 | | Load_Top At_Offset_1
05f0 e5fd | | Load 0x2,-0x3
05f1 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05f2 800b | | Call 0x0,0xb
05f3 00db | | Load_Top At_Offset_3
05f4 8017 | | Call 0x0,0x17
05f5 800c | | Call 0x0,0xc
05f6 003a | : | Store_Top Access,At_Offset_2
05f7 00d9 | | Load_Top At_Offset_1
05f8 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
05fa 00db | | Load_Top At_Offset_3
05fb 8015 | | Call 0x0,0x15
05fc 800c | | Call 0x0,0xc
05fd 003a | : | Store_Top Access,At_Offset_2
05fe 7807 |x | Jump 0x606
05ff 00d9 | | Load_Top At_Offset_1
0600 0092 0745 | E| Action Push_String_Extended,0x745 ; "Operation binaire entiere avec operandes incompatibles"
0602 8016 | | Call 0x0,0x16
0603 003a | : | Store_Top Access,At_Offset_2
0604 e211 | | Load 0x1,0x11
0605 0257 | W | Execute Discrete,Raise
0606 00d8 | | Load_Top At_Offset_0
0607 800b | | Call 0x0,0xb
0608 00da | | Load_Top At_Offset_2
0609 8017 | | Call 0x0,0x17
060a 8008 | | Call 0x0,0x8
060b 8009 | | Call 0x0,0x9
060c 00d8 | | Load_Top At_Offset_0
060d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
060e TRAP_05a0:
060e e211 | | Load 0x1,0x11
060f 010f | | Execute Exception,Equal
0610 6808 |h | Jump_Zero 0x619
0611 0092 073a | :| Action Push_String_Extended,0x73a ; " -> Type_Conflict"
0613 00db | | Load_Top At_Offset_3
0614 8015 | | Call 0x0,0x15
0615 8014 | | Call 0x0,0x14
0616 8005 | | Call 0x0,0x5
0617 4800 |H | Short_Literal 0x0
0618 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0619 0092 0740 | @| Action Push_String_Extended,0x740 ; " -> Exception non traitee"
061b 00db | | Load_Top At_Offset_3
061c 8015 | | Call 0x0,0x15
061d 8014 | | Call 0x0,0x14
061e 8005 | | Call 0x0,0x5
061f 00d8 | | Load_Top At_Offset_0
0620 0101 | | Execute Exception,Reraise
0621 0000 0000 | | .BLANK 0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062f | / | .CONST 0x062f ; Address of begin
0629 067d | } | .CONST 0x067d ; Address of exception handler
062a 0003 | | .CONST 0x0003 ; Number of locals
062b INIT_0628:
062b e003 | | Load 0x0,0x3
062c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
062d e003 | | Load 0x0,0x3
062e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
062f BODY_0628:
062f 4805 |H | Short_Literal 0x5
0630 e5fe | | Load 0x2,-0x2
0631 8213 | | Call 0x1,0x13
0632 683b |h; | Jump_Zero 0x66e
0633 4805 |H | Short_Literal 0x5
0634 e5fd | | Load 0x2,-0x3
0635 8213 | | Call 0x1,0x13
0636 6837 |h7 | Jump_Zero 0x66e
0637 e5ff | | Load 0x2,-0x1
0638 0f0a | | Execute_Immediate Equal,0xa
0639 680c |h | Jump_Zero 0x646
063a 00d8 | | Load_Top At_Offset_0
063b e5fd | | Load 0x2,-0x3
063c 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
063d 0092 0746 | F| Action Push_String_Extended,0x746 ; " & "
063f e5fe | | Load 0x2,-0x2
0640 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0641 8015 | | Call 0x0,0x15
0642 8017 | | Call 0x0,0x17
0643 800c | | Call 0x0,0xc
0644 0039 | 9 | Store_Top Access,At_Offset_1
0645 7807 |x | Jump 0x64d
0646 00d9 | | Load_Top At_Offset_1
0647 0092 0743 | C| Action Push_String_Extended,0x743 ; "Operateur chaine inconnu"
0649 8016 | | Call 0x0,0x16
064a 003a | : | Store_Top Access,At_Offset_2
064b e211 | | Load 0x1,0x11
064c 0257 | W | Execute Discrete,Raise
064d 00d9 | | Load_Top At_Offset_1
064e 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
0650 e5fe | | Load 0x2,-0x2
0651 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0652 8015 | | Call 0x0,0x15
0653 800c | | Call 0x0,0xc
0654 003a | : | Store_Top Access,At_Offset_2
0655 00d9 | | Load_Top At_Offset_1
0656 0092 0742 | B| Action Push_String_Extended,0x742 ; " "
0658 e5ff | | Load 0x2,-0x1
0659 8006 | | Call 0x0,0x6
065a e402 | | Load 0x2,0x2
065b 8017 | | Call 0x0,0x17
065c 8015 | | Call 0x0,0x15
065d 800c | | Call 0x0,0xc
065e 003a | : | Store_Top Access,At_Offset_2
065f 00d9 | | Load_Top At_Offset_1
0660 e5fd | | Load 0x2,-0x3
0661 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0662 00db | | Load_Top At_Offset_3
0663 8017 | | Call 0x0,0x17
0664 800c | | Call 0x0,0xc
0665 003a | : | Store_Top Access,At_Offset_2
0666 00d9 | | Load_Top At_Offset_1
0667 0092 0737 | 7| Action Push_String_Extended,0x737 ; " -> "
0669 00db | | Load_Top At_Offset_3
066a 8015 | | Call 0x0,0x15
066b 800c | | Call 0x0,0xc
066c 003a | : | Store_Top Access,At_Offset_2
066d 7807 |x | Jump 0x675
066e 00d9 | | Load_Top At_Offset_1
066f 0092 0747 | G| Action Push_String_Extended,0x747 ; "Operation binaire chaine avec operandes incompatibles"
0671 8016 | | Call 0x0,0x16
0672 003a | : | Store_Top Access,At_Offset_2
0673 e211 | | Load 0x1,0x11
0674 0257 | W | Execute Discrete,Raise
0675 00d8 | | Load_Top At_Offset_0
0676 8019 | | Call 0x0,0x19
0677 00da | | Load_Top At_Offset_2
0678 8017 | | Call 0x0,0x17
0679 8008 | | Call 0x0,0x8
067a 8009 | | Call 0x0,0x9
067b 00d8 | | Load_Top At_Offset_0
067c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
067d TRAP_0628:
067d e211 | | Load 0x1,0x11
067e 010f | | Execute Exception,Equal
067f 680a |h | Jump_Zero 0x68a
0680 0092 073a | :| Action Push_String_Extended,0x73a ; " -> Type_Conflict"
0682 00db | | Load_Top At_Offset_3
0683 8015 | | Call 0x0,0x15
0684 8014 | | Call 0x0,0x14
0685 8005 | | Call 0x0,0x5
0686 0092 0748 | H| Action Push_String_Extended,0x748 ; " _? , _? "
0688 801a | | Call 0x0,0x1a
0689 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
068a 0092 0740 | @| Action Push_String_Extended,0x740 ; " -> Exception non traitee"
068c 00db | | Load_Top At_Offset_3
068d 8015 | | Call 0x0,0x15
068e 8014 | | Call 0x0,0x14
068f 8005 | | Call 0x0,0x5
0690 00d8 | | Load_Top At_Offset_0
0691 0101 | | Execute Exception,Reraise
0692 0000 0000 | | .BLANK 0000[0x6]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b BODY_0698:
069b INIT_0698:
069b INIT_0698:
069b 4609 |F | Jump_Case 0xa
069c 7809 |x | Jump 0x6a6 ; case 0x0
069d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
069e 7821 |x! | Jump 0x6c0 ; case 0x2
069f 7824 |x$ | Jump 0x6c4 ; case 0x3
06a0 7829 |x) | Jump 0x6ca ; case 0x4
06a1 7833 |x3 | Jump 0x6d5 ; case 0x5
06a2 783f |x? | Jump 0x6e2 ; case 0x6
06a3 7852 |xR | Jump 0x6f6 ; case 0x7
06a4 7868 |xh | Jump 0x70d ; case 0x8
06a5 786e |xn | Jump 0x714 ; case 0x9
06a6 00da | | Load_Top At_Offset_2
06a7 016c | l | Execute Variant_Record,Is_Constrained
06a8 7009 |p | Jump_Nonzero 0x6b2
06a9 00cf | | Action Mark_Auxiliary
06aa 4800 |H | Short_Literal 0x0
06ab e5ff | | Load 0x2,-0x1
06ac 1c08 | | Execute_Immediate Run_Utility,0x8
06ad 00d8 | | Load_Top At_Offset_0
06ae 1c00 | | Execute_Immediate Run_Utility,0x0
06af c5ff | | Store 0x2,-0x1
06b0 00ce | | Action Pop_Auxiliary
06b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06b2 00da | | Load_Top At_Offset_2
06b3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06b4 00db | | Load_Top At_Offset_3
06b5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06b6 00da | | Load_Top At_Offset_2
06b7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06b8 4605 |F | Jump_Case 0x6
06b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
06ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
06bb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
06bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
06bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
06be 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
06bf 4302 |C | .XXX[0x1]
06c0 4801 |H | Short_Literal 0x1
06c1 4807 |H | Short_Literal 0x7
06c2 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
06c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06c4 e5fd | | Load 0x2,-0x3
06c5 00db | | Load_Top At_Offset_3
06c6 1c07 | | Execute_Immediate Run_Utility,0x7
06c7 e5fe | | Load 0x2,-0x2
06c8 0306 | | Complete_Type Variant_Record,By_Renaming
06c9 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
06ca 4801 |H | Short_Literal 0x1
06cb 4807 |H | Short_Literal 0x7
06cc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
06cd e5fe | | Load 0x2,-0x2
06ce 00d8 | | Load_Top At_Offset_0
06cf e5ff | | Load 0x2,-0x1
06d0 1c06 | | Execute_Immediate Run_Utility,0x6
06d1 e5ff | | Load 0x2,-0x1
06d2 00db | | Load_Top At_Offset_3
06d3 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
06d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06d5 4801 |H | Short_Literal 0x1
06d6 00db | | Load_Top At_Offset_3
06d7 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
06d8 4605 |F | Jump_Case 0x6
06d9 7805 |x | Jump 0x6df ; case 0x0
06da 7804 |x | Jump 0x6df ; case 0x1
06db 7803 |x | Jump 0x6df ; case 0x2
06dc 7802 |x | Jump 0x6df ; case 0x3
06dd 7801 |x | Jump 0x6df ; case 0x4
06de 7800 |x | Jump 0x6df ; case 0x5
06df e5ff | | Load 0x2,-0x1
06e0 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
06e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06e2 00db | | Load_Top At_Offset_3
06e3 4605 |F | Jump_Case 0x6
06e4 780f |x | Jump 0x6f4 ; case 0x0
06e5 7806 |x | Jump 0x6ec ; case 0x1
06e6 7807 |x | Jump 0x6ee ; case 0x2
06e7 7808 |x | Jump 0x6f0 ; case 0x3
06e8 7809 |x | Jump 0x6f2 ; case 0x4
06e9 7800 |x | Jump 0x6ea ; case 0x5
06ea 4805 |H | Short_Literal 0x5
06eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ec 4801 |H | Short_Literal 0x1
06ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ee 4802 |H | Short_Literal 0x2
06ef 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06f0 4803 |H | Short_Literal 0x3
06f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06f2 4804 |H | Short_Literal 0x4
06f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06f4 48ff |H | Short_Literal 0xff
06f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06f6 00db | | Load_Top At_Offset_3
06f7 e5fe | | Load 0x2,-0x2
06f8 4605 |F | Jump_Case 0x6
06f9 7807 |x | Jump 0x701 ; case 0x0
06fa 7808 |x | Jump 0x703 ; case 0x1
06fb 7809 |x | Jump 0x705 ; case 0x2
06fc 780a |x | Jump 0x707 ; case 0x3
06fd 780b |x | Jump 0x709 ; case 0x4
06fe 7800 |x | Jump 0x6ff ; case 0x5
06ff 4805 |H | Short_Literal 0x5
0700 7809 |x | Jump 0x70a
0701 48ff |H | Short_Literal 0xff
0702 7807 |x | Jump 0x70a
0703 4801 |H | Short_Literal 0x1
0704 7805 |x | Jump 0x70a
0705 4802 |H | Short_Literal 0x2
0706 7803 |x | Jump 0x70a
0707 4803 |H | Short_Literal 0x3
0708 7801 |x | Jump 0x70a
0709 4804 |H | Short_Literal 0x4
070a e5ff | | Load 0x2,-0x1
070b 031b | | Declare_Type Variant_Record,Constrained
070c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
070d 00db | | Load_Top At_Offset_3
070e e5fe | | Load 0x2,-0x2
070f e5ff | | Load 0x2,-0x1
0710 1c06 | | Execute_Immediate Run_Utility,0x6
0711 e5ff | | Load 0x2,-0x1
0712 02fc | | Declare_Variable Variant_Record,With_Constraint
0713 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0714 4800 |H | Short_Literal 0x0
0715 00db | | Load_Top At_Offset_3
0716 1c07 | | Execute_Immediate Run_Utility,0x7
0717 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0718 ; --------------------------------------------------------------------------------------
0718 ; STRING TABLE
0718 ; --------------------------------------------------------------------------------------
0718 0064 | d | .STRTAB 0x0064->0x074a ; "UNDEFINED"
0719 006b | k | .STRTAB 0x006b->0x074e ; "TYPE_VALUE"
071a 0073 | s | .STRTAB 0x0073->0x0753 ; "TYPE_TOKEN"
071b 007b | { | .STRTAB 0x007b->0x0758 ; "TYPE_BOOLEAN"
071c 0085 | | .STRTAB 0x0085->0x075e ; "TYPE_INTEGER"
071d 008f | | .STRTAB 0x008f->0x0764 ; "TYPE_STRING"
071e 0098 | | .STRTAB 0x0098->0x076a ; "Desole, Cette fonction n'est pas encore implementee!"
071f 00ca | | .STRTAB 0x00ca->0x0784 ; "Il y a une operation sur une variable indefinie"
0720 00f7 | | .STRTAB 0x00f7->0x079b ; "Operation illegale sur une variable chaine"
0721 011f | | .STRTAB 0x011f->0x07b0 ; "Operation illegale sur une variable indefinie"
0722 014a | J | .STRTAB 0x014a->0x07c7 ; "Operation illegale sur un pointeur sur VAR_VALUE"
0723 0178 | x | .STRTAB 0x0178->0x07df ; "Operation illegale sur une variable jeton"
0724 019f | | .STRTAB 0x019f->0x07f3 ; "Operation illegale sur une variable booleenne"
0725 01ca | | .STRTAB 0x01ca->0x080a ; "Operation illegale sur une variable entiere"
0726 01f3 | | .STRTAB 0x01f3->0x081f ; "Target.My_Token <- "
0727 0204 | | .STRTAB 0x0204->0x0829 ; "Target.My_Boolean <- "
0728 0217 | | .STRTAB 0x0217->0x0833 ; "Target.My_Integer <- "
0729 022a | * | .STRTAB 0x022a->0x083e ; "Target.My_String <- "
072a 023c | < | .STRTAB 0x023c->0x0848 ; "Il y a une tentative d'affectation entre des types incompatibles!"
072b 027b | { | .STRTAB 0x027b->0x0868 ; "Target.My_Value <- P_Value"
072c 0293 | | .STRTAB 0x0293->0x0875 ; "Get_Type -> Type_String"
072d 02a8 | | .STRTAB 0x02a8->0x0881 ; "Get_Type -> Undefined"
072e 02bb | | .STRTAB 0x02bb->0x088b ; "Get_Type -> Type_Value"
072f 02cf | | .STRTAB 0x02cf->0x0896 ; "Get_Type -> Type_Token"
0730 02e3 | | .STRTAB 0x02e3->0x08a1 ; "Get_Type -> Type_Boolean"
0731 02f9 | | .STRTAB 0x02f9->0x08ad ; "Get_Type -> Type_Integer"
0732 030f | | .STRTAB 0x030f->0x08b9 ; "Get_Type -> "
0733 0319 | | .STRTAB 0x0319->0x08bf ; "Get_Value -> "
0734 0324 | $ | .STRTAB 0x0324->0x08c6 ; "Print_Value :"
0735 032f | / | .STRTAB 0x032f->0x08cc ; "indefinie"
0736 0336 | 6 | .STRTAB 0x0336->0x08d1 ; "non "
0737 0338 | 8 | .STRTAB 0x0338->0x08d3 ; " -> "
0738 033a | : | .STRTAB 0x033a->0x08d5 ; "Operation booleenne inconnue"
0739 0354 | T | .STRTAB 0x0354->0x08e3 ; "VAR_VALUE n'est pas de type TYPE_BOOLEAN"
073a 037a | z | .STRTAB 0x037a->0x08f7 ; " -> Type_Conflict"
073b 0389 | | .STRTAB 0x0389->0x08ff ; " -> exception non traitee"
073c 03a0 | | .STRTAB 0x03a0->0x090c ; "+ "
073d 03a0 | | .STRTAB 0x03a0->0x090d ; "- "
073e 03a0 | | .STRTAB 0x03a0->0x090e ; "Operateur entier inconnu"
073f 03b6 | | .STRTAB 0x03b6->0x091a ; "VAR_VALUE n'est pas de type TYPE_INTEGER"
0740 03dc | | .STRTAB 0x03dc->0x092e ; " -> Exception non traitee"
0741 03f3 | | .STRTAB 0x03f3->0x093a ; "Operateur booleen inconnu"
0742 040a | | .STRTAB 0x040a->0x0947 ; " "
0743 0409 | | .STRTAB 0x0409->0x0947 ; "Operateur chaine inconnu"
0744 041f | | .STRTAB 0x041f->0x0953 ; "Operation binaire booleenne avec operandes incompatibles"
0745 0455 | U | .STRTAB 0x0455->0x096f ; "Operation binaire entiere avec operandes incompatibles"
0746 0489 | | .STRTAB 0x0489->0x098a ; " & "
0747 048a | | .STRTAB 0x048a->0x098c ; "Operation binaire chaine avec operandes incompatibles"
0748 04bd | | .STRTAB 0x04bd->0x09a6 ; " _? , _? "
0749 04c4 | | .STREND 0x04c4->0x09ab
074a 554e 4445 |UNDE| .STRTAB_STRINGS
09ab 0000 0000 | | .BLANK 0000[0x5]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; Debug Table
09b0 ; --------------------------------------------------------------------------------------
09b0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd2b1,0x0000,0x0001,0x0021
09b6 000b 0a3a | :| .DBG4T 0x000b,0x0a3a,0x8000,0x8000
09ba 0078 0a82 | x | .DBG4T 0x0078,0x0a82,0x8000,0x0000
09be 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0005,0x0000
09c2 00eb 0aa1 | | .DBG4T 0x00eb,0x0aa1,0x0001,0x0000
09c6 00f3 0aa5 | | .DBG4T 0x00f3,0x0aa5,0x0002,0x4000
09ca 0133 0acf | 3 | .DBG4T 0x0133,0x0acf,0x0001,0x0000
09ce 0193 0ae3 | | .DBG4T 0x0193,0x0ae3,0x0001,0x0000
09d2 01a3 0ae9 | | .DBG4T 0x01a3,0x0ae9,0x0001,0x0000
09d6 01bb 0aef | | .DBG4T 0x01bb,0x0aef,0x0001,0x0000
09da 01d3 0af5 | | .DBG4T 0x01d3,0x0af5,0x0001,0x0000
09de 01eb 0afb | | .DBG4T 0x01eb,0x0afb,0x0001,0x0000
09e2 0233 0b0d | 3 | .DBG4T 0x0233,0x0b0d,0x0002,0x4000
09e6 025b 0b21 | [ !| .DBG4T 0x025b,0x0b21,0x0002,0x0000
09ea 026b 0b26 | k &| .DBG4T 0x026b,0x0b26,0x0002,0x0000
09ee 027b 0b2b | { +| .DBG4T 0x027b,0x0b2b,0x0002,0x0000
09f2 028b 0b30 | 0| .DBG4T 0x028b,0x0b30,0x0002,0x0000
09f6 029b 0b35 | 5| .DBG4T 0x029b,0x0b35,0x0002,0x0000
09fa 02ab 0b3a | :| .DBG4T 0x02ab,0x0b3a,0x0002,0x0000
09fe 02c3 0b41 | A| .DBG4T 0x02c3,0x0b41,0x0002,0x0000
0a02 02db 0b48 | H| .DBG4T 0x02db,0x0b48,0x0002,0x0000
0a06 02f3 0b4f | O| .DBG4T 0x02f3,0x0b4f,0x0002,0x0000
0a0a 030b 0b56 | V| .DBG4T 0x030b,0x0b56,0x0002,0x0000
0a0e 031b 0b5b | [| .DBG4T 0x031b,0x0b5b,0x0002,0x0000
0a12 032b 0b60 | + `| .DBG4T 0x032b,0x0b60,0x0002,0x0000
0a16 033b 0b65 | ; e| .DBG4T 0x033b,0x0b65,0x0002,0x0000
0a1a 034b 0b6a | K j| .DBG4T 0x034b,0x0b6a,0x0001,0x4000
0a1e 0383 0b7f | | .DBG4T 0x0383,0x0b7f,0x0001,0x4000
0a22 03b3 0b94 | | .DBG4T 0x03b3,0x0b94,0x0002,0x4000
0a26 0403 0bbc | | .DBG4T 0x0403,0x0bbc,0x0002,0x4000
0a2a 046b 0bec | k | .DBG4T 0x046b,0x0bec,0x0002,0x4000
0a2e 05a3 0c60 | `| .DBG4T 0x05a3,0x0c60,0x0002,0x4000
0a32 062b 0c98 | + | .DBG4T 0x062b,0x0c98,0x0002,0x4000
0a36 069b 0000 | | .DBG4T 0x069b,0x0000,0x0005,0x0000
0a3a ; --------------------------------------------------------------------------------------
0a3a ; Debug chain
0a3a ; --------------------------------------------------------------------------------------
0a3a 0023 0000 | # | .DBGLEN 0x0023,0x0000
0a3c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x001b,0x001f,0x0024,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063
0a5f 0002 0003 | | .XXX[0x23]
0a61 0004 0005 | |
0a63 0006 0007 | |
0a65 0008 0009 | |
0a67 000a 000b | |
0a69 000c 000d | |
0a6b 000e 000f | |
0a6d 0010 0011 | |
0a6f 0012 0013 | |
0a71 0014 0015 | |
0a73 0016 0017 | |
0a75 0018 0019 | |
0a77 001a 001b | |
0a79 001c 001d | |
0a7b 001e 001f | |
0a7d 0020 0021 | !|
0a7f 0022 0023 | " #|
0a81 0024 | $ |
0a82 ; --------------------------------------------------------------------------------------
0a82 ; Debug chain
0a82 ; --------------------------------------------------------------------------------------
0a82 001d 0000 | | .DBGLEN 0x001d,0x0000
0a84 0078 007a | x z| .DBGLNO 0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0
0aa1 ; --------------------------------------------------------------------------------------
0aa1 ; Debug chain
0aa1 ; --------------------------------------------------------------------------------------
0aa1 0000 0002 | | .DBGLEN 0x0000,0x0002
0aa3 00eb 00ee | | .DBGLNO 0x00eb,0x00ee
0aa5 ; --------------------------------------------------------------------------------------
0aa5 ; Debug chain
0aa5 ; --------------------------------------------------------------------------------------
0aa5 0000 0014 | | .DBGLEN 0x0000,0x0014
0aa7 00f3 00f8 | | .DBGLNO 0x00f3,0x00f8,0x00fb,0x00fc,0x00fe,0x0103,0x010c,0x010f,0x0111,0x0114,0x0116,0x0119,0x011b,0x011e,0x0120,0x0123,0x0125,0x0128,0x0129,0x012b
0abb 0001 0002 | | .XXX[0x14]
0abd 0003 0004 | |
0abf 0005 0006 | |
0ac1 0011 0012 | |
0ac3 0007 0008 | |
0ac5 0009 000a | |
0ac7 000b 000c | |
0ac9 000d 000e | |
0acb 000f 0010 | |
0acd 0013 0014 | |
0acf ; --------------------------------------------------------------------------------------
0acf ; Debug chain
0acf ; --------------------------------------------------------------------------------------
0acf 0000 0012 | | .DBGLEN 0x0000,0x0012
0ad1 0133 013b | 3 ;| .DBGLNO 0x0133,0x013b,0x0142,0x0143,0x0148,0x0150,0x0157,0x0158,0x015d,0x0165,0x016c,0x016d,0x0172,0x017a,0x0180,0x0181,0x0189,0x018c
0ae3 ; --------------------------------------------------------------------------------------
0ae3 ; Debug chain
0ae3 ; --------------------------------------------------------------------------------------
0ae3 0000 0004 | | .DBGLEN 0x0000,0x0004
0ae5 0193 0197 | | .DBGLNO 0x0193,0x0197,0x019a,0x019b
0ae9 ; --------------------------------------------------------------------------------------
0ae9 ; Debug chain
0ae9 ; --------------------------------------------------------------------------------------
0ae9 0000 0004 | | .DBGLEN 0x0000,0x0004
0aeb 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01ad,0x01ae
0aef ; --------------------------------------------------------------------------------------
0aef ; Debug chain
0aef ; --------------------------------------------------------------------------------------
0aef 0000 0004 | | .DBGLEN 0x0000,0x0004
0af1 01bb 01bf | | .DBGLNO 0x01bb,0x01bf,0x01c5,0x01c6
0af5 ; --------------------------------------------------------------------------------------
0af5 ; Debug chain
0af5 ; --------------------------------------------------------------------------------------
0af5 0000 0004 | | .DBGLEN 0x0000,0x0004
0af7 01d3 01d7 | | .DBGLNO 0x01d3,0x01d7,0x01dd,0x01de
0afb ; --------------------------------------------------------------------------------------
0afb ; Debug chain
0afb ; --------------------------------------------------------------------------------------
0afb 0003 000d | | .DBGLEN 0x0003,0x000d
0afd 01eb 01ed | | .DBGLNO 0x01eb,0x01ed,0x01ee,0x01ef,0x01f6,0x01f9,0x01fe,0x0205,0x0208,0x020d,0x0214,0x0217,0x021c,0x0220,0x0225,0x0226
0b0d ; --------------------------------------------------------------------------------------
0b0d ; Debug chain
0b0d ; --------------------------------------------------------------------------------------
0b0d 0000 0009 | | .DBGLEN 0x0000,0x0009
0b0f 0233 023c | 3 <| .DBGLNO 0x0233,0x023c,0x0240,0x0244,0x0248,0x024c,0x0250,0x0253,0x0254
0b18 0001 0007 | | .XXX[0x9]
0b1a 0002 0003 | |
0b1c 0004 0005 | |
0b1e 0006 0008 | |
0b20 0009 | |
0b21 ; --------------------------------------------------------------------------------------
0b21 ; Debug chain
0b21 ; --------------------------------------------------------------------------------------
0b21 0000 0003 | | .DBGLEN 0x0000,0x0003
0b23 025b 025e | [ ^| .DBGLNO 0x025b,0x025e,0x025f
0b26 ; --------------------------------------------------------------------------------------
0b26 ; Debug chain
0b26 ; --------------------------------------------------------------------------------------
0b26 0000 0003 | | .DBGLEN 0x0000,0x0003
0b28 026b 026e | k n| .DBGLNO 0x026b,0x026e,0x026f
0b2b ; --------------------------------------------------------------------------------------
0b2b ; Debug chain
0b2b ; --------------------------------------------------------------------------------------
0b2b 0000 0003 | | .DBGLEN 0x0000,0x0003
0b2d 027b 027e | { ~| .DBGLNO 0x027b,0x027e,0x027f
0b30 ; --------------------------------------------------------------------------------------
0b30 ; Debug chain
0b30 ; --------------------------------------------------------------------------------------
0b30 0000 0003 | | .DBGLEN 0x0000,0x0003
0b32 028b 028e | | .DBGLNO 0x028b,0x028e,0x028f
0b35 ; --------------------------------------------------------------------------------------
0b35 ; Debug chain
0b35 ; --------------------------------------------------------------------------------------
0b35 0000 0003 | | .DBGLEN 0x0000,0x0003
0b37 029b 029e | | .DBGLNO 0x029b,0x029e,0x029f
0b3a ; --------------------------------------------------------------------------------------
0b3a ; Debug chain
0b3a ; --------------------------------------------------------------------------------------
0b3a 0000 0005 | | .DBGLEN 0x0000,0x0005
0b3c 02ab 02af | | .DBGLNO 0x02ab,0x02af,0x02b6,0x02b7,0x02ba
0b41 ; --------------------------------------------------------------------------------------
0b41 ; Debug chain
0b41 ; --------------------------------------------------------------------------------------
0b41 0000 0005 | | .DBGLEN 0x0000,0x0005
0b43 02c3 02c7 | | .DBGLNO 0x02c3,0x02c7,0x02ce,0x02cf,0x02d2
0b48 ; --------------------------------------------------------------------------------------
0b48 ; Debug chain
0b48 ; --------------------------------------------------------------------------------------
0b48 0000 0005 | | .DBGLEN 0x0000,0x0005
0b4a 02db 02df | | .DBGLNO 0x02db,0x02df,0x02e6,0x02e7,0x02ea
0b4f ; --------------------------------------------------------------------------------------
0b4f ; Debug chain
0b4f ; --------------------------------------------------------------------------------------
0b4f 0000 0005 | | .DBGLEN 0x0000,0x0005
0b51 02f3 02f7 | | .DBGLNO 0x02f3,0x02f7,0x02fd,0x02fe,0x0301
0b56 ; --------------------------------------------------------------------------------------
0b56 ; Debug chain
0b56 ; --------------------------------------------------------------------------------------
0b56 0001 0002 | | .DBGLEN 0x0001,0x0002
0b58 030b 0310 | | .DBGLNO 0x030b,0x0310,0x0314
0b5b ; --------------------------------------------------------------------------------------
0b5b ; Debug chain
0b5b ; --------------------------------------------------------------------------------------
0b5b 0001 0002 | | .DBGLEN 0x0001,0x0002
0b5d 031b 0320 | | .DBGLNO 0x031b,0x0320,0x0324
0b60 ; --------------------------------------------------------------------------------------
0b60 ; Debug chain
0b60 ; --------------------------------------------------------------------------------------
0b60 0001 0002 | | .DBGLEN 0x0001,0x0002
0b62 032b 0330 | + 0| .DBGLNO 0x032b,0x0330,0x0334
0b65 ; --------------------------------------------------------------------------------------
0b65 ; Debug chain
0b65 ; --------------------------------------------------------------------------------------
0b65 0001 0002 | | .DBGLEN 0x0001,0x0002
0b67 033b 0340 | ; @| .DBGLNO 0x033b,0x0340,0x0344
0b6a ; --------------------------------------------------------------------------------------
0b6a ; Debug chain
0b6a ; --------------------------------------------------------------------------------------
0b6a 0001 0009 | | .DBGLEN 0x0001,0x0009
0b6c 034b 034d | K M| .DBGLNO 0x034b,0x034d,0x0350,0x035a,0x035f,0x0363,0x0368,0x036e,0x0374,0x0379
0b76 0001 0002 | | .XXX[0x9]
0b78 0008 0003 | |
0b7a 0004 0005 | |
0b7c 0006 0007 | |
0b7e 0009 | |
0b7f ; --------------------------------------------------------------------------------------
0b7f ; Debug chain
0b7f ; --------------------------------------------------------------------------------------
0b7f 0001 0009 | | .DBGLEN 0x0001,0x0009
0b81 0383 0385 | | .DBGLNO 0x0383,0x0385,0x0388,0x0391,0x0395,0x0399,0x039d,0x03a2,0x03a7,0x03ab
0b8b 0001 0002 | | .XXX[0x9]
0b8d 0008 0003 | |
0b8f 0004 0005 | |
0b91 0006 0007 | |
0b93 0009 | |
0b94 ; --------------------------------------------------------------------------------------
0b94 ; Debug chain
0b94 ; --------------------------------------------------------------------------------------
0b94 0002 0012 | | .DBGLEN 0x0002,0x0012
0b96 03b3 03b5 | | .DBGLNO 0x03b3,0x03b5,0x03b6,0x03ba,0x03bd,0x03c6,0x03cd,0x03d2,0x03d7,0x03d9,0x03de,0x03e0,0x03e5,0x03e6,0x03eb,0x03f0,0x03f1,0x03f3,0x03f8,0x03f9
0baa 0001 0002 | | .XXX[0x12]
0bac 0003 0004 | |
0bae 0005 0006 | |
0bb0 0007 0008 | |
0bb2 0009 000a | |
0bb4 000b 000c | |
0bb6 000d 000e | |
0bb8 000f 0011 | |
0bba 0012 0013 | |
0bbc ; --------------------------------------------------------------------------------------
0bbc ; Debug chain
0bbc ; --------------------------------------------------------------------------------------
0bbc 0002 0016 | | .DBGLEN 0x0002,0x0016
0bbe 0403 0405 | | .DBGLNO 0x0403,0x0405,0x0406,0x040a,0x040c,0x0415,0x041c,0x0420,0x0423,0x042c,0x0433,0x0438,0x043d,0x043f,0x0444,0x0446,0x044b,0x044c,0x0451,0x0456,0x0457,0x0459,0x045e,0x045f
0bd6 0001 0002 | | .XXX[0x16]
0bd8 0003 0004 | |
0bda 0005 0006 | |
0bdc 0007 0008 | |
0bde 0009 000a | |
0be0 000b 000c | |
0be2 000d 000e | |
0be4 000f 0010 | |
0be6 0011 0012 | |
0be8 0013 0015 | |
0bea 0016 0017 | |
0bec ; --------------------------------------------------------------------------------------
0bec ; Debug chain
0bec ; --------------------------------------------------------------------------------------
0bec 0002 0038 | 8| .DBGLEN 0x0002,0x0038
0bee 046b 046d | k m| .DBGLNO 0x046b,0x046d,0x046e,0x0476,0x0479,0x0480,0x0483,0x048a,0x048d,0x0494,0x0497,0x049e,0x04a3,0x04a5,0x04ae,0x04b8,0x04c0,0x04c8,0x04d0,0x04d3,0x04da,0x04dd,0x04e4,0x04e7,0x04ee,0x04f1,0x04f8,0x04fb,0x0502,0x0505,0x050c,0x0511,0x0513,0x051c,0x0526,0x052e,0x0536,0x053e,0x0541,0x0548,0x054b,0x0553,0x0558,0x055a,0x0562,0x056c,0x0573,0x057b,0x0580,0x0582,0x0587,0x0588,0x058d,0x0592,0x0593,0x0595,0x059a,0x059b
0c28 0001 0002 | | .XXX[0x38]
0c2a 0003 0004 | |
0c2c 0005 0006 | |
0c2e 0007 0008 | |
0c30 0009 000a | |
0c32 000b 000c | |
0c34 000d 000e | |
0c36 000f 0010 | |
0c38 0011 0012 | |
0c3a 0013 0014 | |
0c3c 0015 0016 | |
0c3e 0017 0018 | |
0c40 0019 001a | |
0c42 001b 001c | |
0c44 001d 001e | |
0c46 001f 0020 | |
0c48 0021 0022 | ! "|
0c4a 0023 0024 | # $|
0c4c 0025 0026 | % &|
0c4e 0027 0028 | ' (|
0c50 0029 002a | ) *|
0c52 002b 002c | + ,|
0c54 002d 002e | - .|
0c56 002f 0030 | / 0|
0c58 0031 0032 | 1 2|
0c5a 0033 0034 | 3 4|
0c5c 0035 0037 | 5 7|
0c5e 0038 0039 | 8 9|
0c60 ; --------------------------------------------------------------------------------------
0c60 ; Debug chain
0c60 ; --------------------------------------------------------------------------------------
0c60 0002 001a | | .DBGLEN 0x0002,0x001a
0c62 05a3 05a5 | | .DBGLNO 0x05a3,0x05a5,0x05a6,0x05ae,0x05b0,0x05b7,0x05ba,0x05c1,0x05c4,0x05cb,0x05ce,0x05d5,0x05da,0x05dc,0x05e5,0x05ef,0x05f7,0x05ff,0x0604,0x0606,0x060b,0x060c,0x0611,0x0616,0x0617,0x0619,0x061e,0x061f
0c7e 0001 0002 | | .XXX[0x1a]
0c80 0003 0004 | |
0c82 0005 0006 | |
0c84 0007 0008 | |
0c86 0009 000a | |
0c88 000b 000c | |
0c8a 000d 000e | |
0c8c 000f 0010 | |
0c8e 0011 0012 | |
0c90 0013 0014 | |
0c92 0015 0016 | |
0c94 0017 0019 | |
0c96 001a 001b | |
0c98 ; --------------------------------------------------------------------------------------
0c98 ; Debug chain
0c98 ; --------------------------------------------------------------------------------------
0c98 0002 0014 | | .DBGLEN 0x0002,0x0014
0c9a 062b 062d | + -| .DBGLNO 0x062b,0x062d,0x062f,0x0637,0x063a,0x0646,0x064b,0x064d,0x0655,0x065f,0x0666,0x066e,0x0673,0x0675,0x067a,0x067b,0x0680,0x0685,0x0686,0x068a,0x068f,0x0690
0cb0 0001 0002 | | .XXX[0x14]
0cb2 0003 0004 | |
0cb4 0005 0006 | |
0cb6 0007 0008 | |
0cb8 0009 000a | |
0cba 000b 000c | |
0cbc 000d 000e | |
0cbe 000f 0010 | |
0cc0 0011 0013 | |
0cc2 0014 0015 | |
0cc4 0000 0000 | | .BLANK 0000[0x13c]