|
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: 8192 (0x2000) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 0b70 | p | .CONST 0x0b70 ; 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 0007 | | .CONST 0x0007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0071 | q | .CONST 0x0071 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0011 c20f | | Store 0x1,0xf 0012 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0014 c210 | | Store 0x1,0x10 0015 00bf | | Action Accept_Activation 0016 e001 | | Load 0x0,0x1 0017 e002 | | Load 0x0,0x2 0018 483c |H< | Short_Literal 0x3c 0019 e003 | | Load 0x0,0x3 001a 0387 | | Declare_Variable Package 001b 00d8 | | Load_Top At_Offset_0 001c 020f | | Execute Module,Activate 001d 00e3 | | Load_Encached Natural_Cache 001e 4800 |H | Short_Literal 0x0 001f 4805 |H | Short_Literal 0x5 0020 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0022 03fd | | Declare_Type Discrete,Defined 0023 00e4 | | Load_Encached Positive_Cache 0024 e004 | | Load 0x0,0x4 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 00da | | Load_Top At_Offset_2 0027 e005 | | Load 0x0,0x5 0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0029 00e1 | | Load_Encached Boolean_Cache 002a e211 | | Load 0x1,0x11 002b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 002c 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 002e 4806 |H | Short_Literal 0x6 002f 032d | - | Declare_Type Record,Defined 0030 e006 | | Load 0x0,0x6 0031 e007 | | Load 0x0,0x7 0032 00da | | Load_Top At_Offset_2 0033 e008 | | Load 0x0,0x8 0034 0387 | | Declare_Variable Package 0035 00d8 | | Load_Top At_Offset_0 0036 020f | | Execute Module,Activate 0037 00d8 | | Load_Top At_Offset_0 0038 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0039 029b 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Unelaborated 003b 029b 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Unelaborated 003d 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 003f 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call 0041 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 0043 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 0045 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call 0047 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call 0049 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 004b 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 004d 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call 004f 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call 0051 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 0053 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call 0055 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call 0057 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call 0059 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call 005b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005c 00c7 | | Action Elaborate_Subprogram 005d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 005e 00c7 | | Action Elaborate_Subprogram 005f 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call 0061 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call 0063 029d 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call 0065 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call 0067 029b 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call,Unelaborated 0069 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 006a 00c7 | | Action Elaborate_Subprogram 006b 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call 006d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 006e 00c7 | | Action Elaborate_Subprogram 006f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0070 00c7 | | Action Elaborate_Subprogram 0071 BODY_0008: 0071 00bc | | Action Signal_Activated 0072 00bb | | Action Signal_Completion 0073 0000 0000 | | .BLANK 0000[0x5] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 00a1 | | .CONST 0x00a1 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 000b | | .CONST 0x000b ; Number of locals 007b INIT_0078: 007b 00e1 | | Load_Encached Boolean_Cache 007c e004 | | Load 0x0,0x4 007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007e 02c7 | | Declare_Variable Any 007f e5ff | | Load 0x2,-0x1 0080 e009 | | Load 0x0,0x9 0081 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0082 a403 | | Store_Unchecked 0x2,0x3 0083 e00a | | Load 0x0,0xa 0084 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0085 02c7 | | Declare_Variable Any 0086 00d8 | | Load_Top At_Offset_0 0087 1c00 | | Execute_Immediate Run_Utility,0x0 0088 e00b | | Load 0x0,0xb 0089 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 008a 02c7 | | Declare_Variable Any 008b 00d8 | | Load_Top At_Offset_0 008c 1c00 | | Execute_Immediate Run_Utility,0x0 008d e214 | | Load 0x1,0x14 008e 0322 | " | Declare_Variable Record 008f 00d8 | | Load_Top At_Offset_0 0090 1c00 | | Execute_Immediate Run_Utility,0x0 0091 e215 | | Load 0x1,0x15 0092 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0093 e005 | | Load 0x0,0x5 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 00e1 | | Load_Encached Boolean_Cache 0096 e00c | | Load 0x0,0xc 0097 e00d | | Load 0x0,0xd 0098 4802 |H | Short_Literal 0x2 0099 0092 0a58 | X| Action Push_String_Extended,0xa58 ; " " 009b e00e | | Load 0x0,0xe 009c 0387 | | Declare_Variable Package 009d 00d8 | | Load_Top At_Offset_0 009e 020f | | Execute Module,Activate 009f 029f 08db | | Declare_Subprogram INIT_08d8,For_Call 00a1 BODY_0078: 00a1 4800 |H | Short_Literal 0x0 00a2 a212 | | Store_Unchecked 0x1,0x12 00a3 00da | | Load_Top At_Offset_2 00a4 e402 | | Load 0x2,0x2 00a5 e408 | | Load 0x2,0x8 00a6 e403 | | Load 0x2,0x3 00a7 8218 | | Call 0x1,0x18 00a8 c408 | | Store 0x2,0x8 00a9 c402 | | Store 0x2,0x2 00aa 005b | [ | Store_Top Discrete,At_Offset_3 00ab 4800 |H | Short_Literal 0x0 00ac 4800 |H | Short_Literal 0x0 00ad 0092 0a59 | Y| Action Push_String_Extended,0xa59 ; "Size" 00af e40a | | Load 0x2,0xa 00b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b1 4800 |H | Short_Literal 0x0 00b2 4800 |H | Short_Literal 0x0 00b3 0092 0a5a | Z| Action Push_String_Extended,0xa5a ; "Items" 00b5 e40a | | Load 0x2,0xa 00b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b7 e215 | | Load 0x1,0x15 00b8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00b9 e216 | | Load 0x1,0x16 00ba e215 | | Load 0x1,0x15 00bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00bc c407 | | Store 0x2,0x7 00bd 00cf | | Action Mark_Auxiliary 00be 7809 |x | Jump 0xc8 00bf e407 | | Load 0x2,0x7 00c0 e215 | | Load 0x1,0x15 00c1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00c2 840b | | Call 0x2,0xb 00c3 e407 | | Load 0x2,0x7 00c4 e215 | | Load 0x1,0x15 00c5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c6 c407 | | Store 0x2,0x7 00c7 00c9 | | Action Pop_Auxiliary_Loop 00c8 e407 | | Load 0x2,0x7 00c9 e215 | | Load 0x1,0x15 00ca 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00cb 6ff3 |o | Jump_Zero 0xbf 00cc 00ce | | Action Pop_Auxiliary 00cd e404 | | Load 0x2,0x4 00ce e405 | | Load 0x2,0x5 00cf 4801 |H | Short_Literal 0x1 00d0 4801 |H | Short_Literal 0x1 00d1 e5fd | | Load 0x2,-0x3 00d2 e00b | | Load 0x0,0xb 00d3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00d4 c405 | | Store 0x2,0x5 00d5 c404 | | Store 0x2,0x4 00d6 e00b | | Load 0x0,0xb 00d7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00d8 e00b | | Load 0x0,0xb 00d9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00da 0092 0a5b | [| Action Push_String_Extended,0xa5b ; "INFORMATION" 00dc e405 | | Load 0x2,0x5 00dd e00b | | Load 0x0,0xb 00de 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00df 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e0 e00b | | Load 0x0,0xb 00e1 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00e2 e00b | | Load 0x0,0xb 00e3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e4 4802 |H | Short_Literal 0x2 00e5 00ea | | Load_Encached Null_String_Cache 00e6 e405 | | Load 0x2,0x5 00e7 e00b | | Load 0x0,0xb 00e8 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00e9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ea e00b | | Load 0x0,0xb 00eb 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00ec e00b | | Load 0x0,0xb 00ed 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ee 00ea | | Load_Encached Null_String_Cache 00ef 4801 |H | Short_Literal 0x1 00f0 e405 | | Load 0x2,0x5 00f1 e00b | | Load 0x0,0xb 00f2 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00f3 180f | | Execute Package,Field_Execute,Field_Number 0xf 00f4 e405 | | Load 0x2,0x5 00f5 0092 0a5c | \| Action Push_String_Extended,0xa5c ; "EXPLODED TYPE DISPLAY" 00f7 00db | | Load_Top At_Offset_3 00f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f9 c405 | | Store 0x2,0x5 00fa e405 | | Load 0x2,0x5 00fb e00b | | Load 0x0,0xb 00fc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00fd c405 | | Store 0x2,0x5 00fe 4801 |H | Short_Literal 0x1 00ff 4800 |H | Short_Literal 0x0 0100 e5fd | | Load 0x2,-0x3 0101 e00f | | Load 0x0,0xf 0102 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0103 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0119 | | .CONST 0x0119 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e004 | | Load 0x0,0x4 010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010d 02c7 | | Declare_Variable Any 010e e010 | | Load 0x0,0x10 010f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0110 4802 |H | Short_Literal 0x2 0111 e011 | | Load 0x0,0x11 0112 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0113 e004 | | Load 0x0,0x4 0114 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0115 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0116 e009 | | Load 0x0,0x9 0117 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0118 a402 | | Store_Unchecked 0x2,0x2 0119 BODY_0108: 0119 0092 0a5d | ]| Action Push_String_Extended,0xa5d ; "_" 011b e5ff | | Load 0x2,-0x1 011c 01cc | | Execute Vector,Catenate 011d e005 | | Load 0x0,0x5 011e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 011f 00d8 | | Load_Top At_Offset_0 0120 e009 | | Load 0x0,0x9 0121 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0122 00d8 | | Load_Top At_Offset_0 0123 0c1c | | Execute_Immediate Greater_Equal,0x1c 0124 7023 |p# | Jump_Nonzero 0x148 0125 461b |F | Jump_Case 0x1c 0126 7822 |x" | Jump 0x149 ; case 0x0 0127 7821 |x! | Jump 0x149 ; case 0x1 0128 7820 |x | Jump 0x149 ; case 0x2 0129 781f |x | Jump 0x149 ; case 0x3 012a 781e |x | Jump 0x149 ; case 0x4 012b 7816 |x | Jump 0x142 ; case 0x5 012c 781c |x | Jump 0x149 ; case 0x6 012d 7814 |x | Jump 0x142 ; case 0x7 012e 781a |x | Jump 0x149 ; case 0x8 012f 7819 |x | Jump 0x149 ; case 0x9 0130 7818 |x | Jump 0x149 ; case 0xa 0131 7817 |x | Jump 0x149 ; case 0xb 0132 7816 |x | Jump 0x149 ; case 0xc 0133 7815 |x | Jump 0x149 ; case 0xd 0134 7814 |x | Jump 0x149 ; case 0xe 0135 7813 |x | Jump 0x149 ; case 0xf 0136 7812 |x | Jump 0x149 ; case 0x10 0137 7811 |x | Jump 0x149 ; case 0x11 0138 7810 |x | Jump 0x149 ; case 0x12 0139 780f |x | Jump 0x149 ; case 0x13 013a 780e |x | Jump 0x149 ; case 0x14 013b 780d |x | Jump 0x149 ; case 0x15 013c 780c |x | Jump 0x149 ; case 0x16 013d 780b |x | Jump 0x149 ; case 0x17 013e 780a |x | Jump 0x149 ; case 0x18 013f 7809 |x | Jump 0x149 ; case 0x19 0140 7808 |x | Jump 0x149 ; case 0x1a 0141 7800 |x | Jump 0x142 ; case 0x1b 0142 0092 0a5e | ^| Action Push_String_Extended,0xa5e ; "type_display" 0144 e5fe | | Load 0x2,-0x2 0145 00da | | Load_Top At_Offset_2 0146 820f | | Call 0x1,0xf 0147 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0148 00d1 | | Pop_Control Pop_Count_1 0149 e012 | | Load 0x0,0x12 014a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 014b 0092 0a5f | _| Action Push_String_Extended,0xa5f ; "Image is not a type declaration" 014d e013 | | Load 0x0,0x13 014e 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 014f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4607 |F | Jump_Case 0x8 0154 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0155 7806 |x | Jump 0x15c ; case 0x1 0156 7809 |x | Jump 0x160 ; case 0x2 0157 780d |x | Jump 0x165 ; case 0x3 0158 7810 |x | Jump 0x169 ; case 0x4 0159 7811 |x | Jump 0x16b ; case 0x5 015a 7812 |x | Jump 0x16d ; case 0x6 015b 7815 |x | Jump 0x171 ; case 0x7 015c 00da | | Load_Top At_Offset_2 015d 0091 0a52 | R| Action Push_String_Extended_Indexed,0xa52 ; "ARRAY_INDEX" 015f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0160 00db | | Load_Top At_Offset_3 0161 00db | | Load_Top At_Offset_3 0162 00e0 | | Load_Encached Standard_Cache 0163 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 00da | | Load_Top At_Offset_2 0166 00e0 | | Load_Encached Standard_Cache 0167 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0168 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0169 00db | | Load_Top At_Offset_3 016a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016b 00db | | Load_Top At_Offset_3 016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016d e213 | | Load 0x1,0x13 016e 00dc | | Load_Top At_Offset_4 016f 0267 | g | Execute Discrete,Predecessor 0170 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0171 e213 | | Load 0x1,0x13 0172 00dc | | Load_Top At_Offset_4 0173 0268 | h | Execute Discrete,Successor 0174 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4608 |F | Jump_Case 0x9 017c 7808 |x | Jump 0x185 ; case 0x0 017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 017e 7816 |x | Jump 0x195 ; case 0x2 017f 7815 |x | Jump 0x195 ; case 0x3 0180 7814 |x | Jump 0x195 ; case 0x4 0181 7813 |x | Jump 0x195 ; case 0x5 0182 7812 |x | Jump 0x195 ; case 0x6 0183 7811 |x | Jump 0x195 ; case 0x7 0184 7810 |x | Jump 0x195 ; case 0x8 0185 00da | | Load_Top At_Offset_2 0186 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0187 0125 | % | Execute Any,Set_Constraint 0188 00da | | Load_Top At_Offset_2 0189 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 018a 1c00 | | Execute_Immediate Run_Utility,0x0 018b 4805 |H | Short_Literal 0x5 018c 00db | | Load_Top At_Offset_3 018d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 018e 4800 |H | Short_Literal 0x0 018f 00db | | Load_Top At_Offset_3 0190 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0191 4800 |H | Short_Literal 0x0 0192 00db | | Load_Top At_Offset_3 0193 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0194 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0195 0869 | i | Execute_Immediate Raise,0x69 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01b7 | | .CONST 0x01b7 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 000b | | .CONST 0x000b ; Number of locals 019b INIT_0198: 019b e014 | | Load 0x0,0x14 019c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 019d 02c7 | | Declare_Variable Any 019e e5fe | | Load 0x2,-0x2 019f e014 | | Load 0x0,0x14 01a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a1 a402 | | Store_Unchecked 0x2,0x2 01a2 e014 | | Load 0x0,0x14 01a3 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01a4 02c7 | | Declare_Variable Any 01a5 00d8 | | Load_Top At_Offset_0 01a6 1c00 | | Execute_Immediate Run_Utility,0x0 01a7 e014 | | Load 0x0,0x14 01a8 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01a9 02c7 | | Declare_Variable Any 01aa 00d8 | | Load_Top At_Offset_0 01ab 1c00 | | Execute_Immediate Run_Utility,0x0 01ac 00e5 | | Load_Encached Long_Integer_Cache 01ad 03e9 | | Declare_Variable Discrete,Duplicate 01ae 00e6 | | Load_Encached Float_Cache 01af 03d8 | | Declare_Variable Float,Duplicate 01b0 e005 | | Load 0x0,0x5 01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b2 00e1 | | Load_Encached Boolean_Cache 01b3 e214 | | Load 0x1,0x14 01b4 0322 | " | Declare_Variable Record 01b5 00d8 | | Load_Top At_Offset_0 01b6 1c00 | | Execute_Immediate Run_Utility,0x0 01b7 BODY_0198: 01b7 4800 |H | Short_Literal 0x0 01b8 a5fc | | Store_Unchecked 0x2,-0x4 01b9 4800 |H | Short_Literal 0x0 01ba a5fb | | Store_Unchecked 0x2,-0x5 01bb e402 | | Load 0x2,0x2 01bc e014 | | Load 0x0,0x14 01bd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01be 460c |F | Jump_Case 0xd 01bf 780c |x | Jump 0x1cc ; case 0x0 01c0 7810 |x | Jump 0x1d1 ; case 0x1 01c1 7824 |x$ | Jump 0x1e6 ; case 0x2 01c2 7862 |xb | Jump 0x225 ; case 0x3 01c3 7837 |x7 | Jump 0x1fb ; case 0x4 01c4 787b |x{ | Jump 0x240 ; case 0x5 01c5 7896 |x | Jump 0x25c ; case 0x6 01c6 7805 |x | Jump 0x1cc ; case 0x7 01c7 7804 |x | Jump 0x1cc ; case 0x8 01c8 7803 |x | Jump 0x1cc ; case 0x9 01c9 7802 |x | Jump 0x1cc ; case 0xa 01ca 7801 |x | Jump 0x1cc ; case 0xb 01cb 7800 |x | Jump 0x1cc ; case 0xc 01cc 4800 |H | Short_Literal 0x0 01cd a5fc | | Store_Unchecked 0x2,-0x4 01ce 4800 |H | Short_Literal 0x0 01cf a5fa | | Store_Unchecked 0x2,-0x6 01d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01d1 00e1 | | Load_Encached Boolean_Cache 01d2 e406 | | Load 0x2,0x6 01d3 e405 | | Load 0x2,0x5 01d4 e5fd | | Load 0x2,-0x3 01d5 e015 | | Load 0x0,0x15 01d6 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d7 c405 | | Store 0x2,0x5 01d8 c406 | | Store 0x2,0x6 01d9 c5fa | | Store 0x2,-0x6 01da e5fa | | Load 0x2,-0x6 01db 6807 |h | Jump_Zero 0x1e3 01dc 00d9 | | Load_Top At_Offset_1 01dd e406 | | Load 0x2,0x6 01de e405 | | Load 0x2,0x5 01df e005 | | Load 0x0,0x5 01e0 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 01e1 a5fc | | Store_Unchecked 0x2,-0x4 01e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01e3 4800 |H | Short_Literal 0x0 01e4 a5fc | | Store_Unchecked 0x2,-0x4 01e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01e6 00e1 | | Load_Encached Boolean_Cache 01e7 e406 | | Load 0x2,0x6 01e8 e405 | | Load 0x2,0x5 01e9 e5fd | | Load 0x2,-0x3 01ea e015 | | Load 0x0,0x15 01eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ec c405 | | Store 0x2,0x5 01ed c406 | | Store 0x2,0x6 01ee c5fa | | Store 0x2,-0x6 01ef e5fa | | Load 0x2,-0x6 01f0 6807 |h | Jump_Zero 0x1f8 01f1 00d9 | | Load_Top At_Offset_1 01f2 e406 | | Load 0x2,0x6 01f3 e405 | | Load 0x2,0x5 01f4 e005 | | Load 0x0,0x5 01f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f6 a5fc | | Store_Unchecked 0x2,-0x4 01f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f8 4800 |H | Short_Literal 0x0 01f9 a5fc | | Store_Unchecked 0x2,-0x4 01fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01fb e404 | | Load 0x2,0x4 01fc 0120 | | Execute Any,Is_Value 01fd 6803 |h | Jump_Zero 0x201 01fe e014 | | Load 0x0,0x14 01ff 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0200 7801 |x | Jump 0x202 0201 e404 | | Load 0x2,0x4 0202 e403 | | Load 0x2,0x3 0203 0120 | | Execute Any,Is_Value 0204 6803 |h | Jump_Zero 0x208 0205 e014 | | Load 0x0,0x14 0206 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0207 7801 |x | Jump 0x209 0208 e403 | | Load 0x2,0x3 0209 e5fd | | Load 0x2,-0x3 020a 00d8 | | Load_Top At_Offset_0 020b e5ff | | Load 0x2,-0x1 020c 8227 | ' | Call 0x1,0x27 020d c403 | | Store 0x2,0x3 020e c404 | | Store 0x2,0x4 020f 00e1 | | Load_Encached Boolean_Cache 0210 e406 | | Load 0x2,0x6 0211 e405 | | Load 0x2,0x5 0212 e403 | | Load 0x2,0x3 0213 e404 | | Load 0x2,0x4 0214 e015 | | Load 0x0,0x15 0215 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0216 c405 | | Store 0x2,0x5 0217 c406 | | Store 0x2,0x6 0218 c5fa | | Store 0x2,-0x6 0219 e5fa | | Load 0x2,-0x6 021a 6807 |h | Jump_Zero 0x222 021b 00d9 | | Load_Top At_Offset_1 021c e406 | | Load 0x2,0x6 021d e405 | | Load 0x2,0x5 021e e005 | | Load 0x0,0x5 021f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0220 a5fc | | Store_Unchecked 0x2,-0x4 0221 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0222 4800 |H | Short_Literal 0x0 0223 a5fc | | Store_Unchecked 0x2,-0x4 0224 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0225 00e1 | | Load_Encached Boolean_Cache 0226 e408 | | Load 0x2,0x8 0227 e407 | | Load 0x2,0x7 0228 e5fd | | Load 0x2,-0x3 0229 e015 | | Load 0x0,0x15 022a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 022b c407 | | Store 0x2,0x7 022c c408 | | Store 0x2,0x8 022d c5fa | | Store 0x2,-0x6 022e 00e1 | | Load_Encached Boolean_Cache 022f e005 | | Load 0x0,0x5 0230 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0231 e402 | | Load 0x2,0x2 0232 e014 | | Load 0x0,0x14 0233 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0234 821b | | Call 0x1,0x1b 0235 c409 | | Store 0x2,0x9 0236 c5fa | | Store 0x2,-0x6 0237 e5fa | | Load 0x2,-0x6 0238 683e |h> | Jump_Zero 0x277 0239 00da | | Load_Top At_Offset_2 023a e408 | | Load 0x2,0x8 023b e407 | | Load 0x2,0x7 023c e005 | | Load 0x0,0x5 023d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 023e a5fc | | Store_Unchecked 0x2,-0x4 023f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0240 e5fa | | Load 0x2,-0x6 0241 e005 | | Load 0x0,0x5 0242 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0243 e5fd | | Load 0x2,-0x3 0244 e014 | | Load 0x0,0x14 0245 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0246 e402 | | Load 0x2,0x2 0247 8226 | & | Call 0x1,0x26 0248 c5fc | | Store 0x2,-0x4 0249 c5fa | | Store 0x2,-0x6 024a e212 | | Load 0x1,0x12 024b 00d9 | | Load_Top At_Offset_1 024c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 024d e5fd | | Load 0x2,-0x3 024e 00d9 | | Load_Top At_Offset_1 024f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0250 6027 |`' | Indirect_Literal Discrete,0x278,{0x7fffffff, 0xffffffff} 0251 00d9 | | Load_Top At_Offset_1 0252 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0253 4801 |H | Short_Literal 0x1 0254 00d9 | | Load_Top At_Offset_1 0255 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0256 e216 | | Load 0x1,0x16 0257 00d9 | | Load_Top At_Offset_1 0258 e215 | | Load 0x1,0x15 0259 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025a a216 | | Store_Unchecked 0x1,0x16 025b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 025c e5fa | | Load 0x2,-0x6 025d e5fb | | Load 0x2,-0x5 025e e005 | | Load 0x0,0x5 025f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0260 e5fd | | Load 0x2,-0x3 0261 e402 | | Load 0x2,0x2 0262 8222 | " | Call 0x1,0x22 0263 c5fc | | Store 0x2,-0x4 0264 c5fb | | Store 0x2,-0x5 0265 c5fa | | Store 0x2,-0x6 0266 e212 | | Load 0x1,0x12 0267 00d9 | | Load_Top At_Offset_1 0268 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0269 e5fd | | Load 0x2,-0x3 026a 00d9 | | Load_Top At_Offset_1 026b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 026c 600b |` | Indirect_Literal Discrete,0x278,{0x7fffffff, 0xffffffff} 026d 00d9 | | Load_Top At_Offset_1 026e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 026f 4803 |H | Short_Literal 0x3 0270 00d9 | | Load_Top At_Offset_1 0271 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0272 e216 | | Load 0x1,0x16 0273 00d9 | | Load_Top At_Offset_1 0274 e215 | | Load 0x1,0x15 0275 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0276 a216 | | Store_Unchecked 0x1,0x16 0277 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0278 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 02a8 | | .CONST 0x02a8 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 000e | | .CONST 0x000e ; Number of locals 0283 INIT_0280: 0283 e004 | | Load 0x0,0x4 0284 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0285 02c7 | | Declare_Variable Any 0286 00db | | Load_Top At_Offset_3 0287 e014 | | Load 0x0,0x14 0288 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0289 a402 | | Store_Unchecked 0x2,0x2 028a 00e5 | | Load_Encached Long_Integer_Cache 028b 03e9 | | Declare_Variable Discrete,Duplicate 028c 00e6 | | Load_Encached Float_Cache 028d 03d8 | | Declare_Variable Float,Duplicate 028e e005 | | Load 0x0,0x5 028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0290 e014 | | Load 0x0,0x14 0291 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0292 02c7 | | Declare_Variable Any 0293 00d8 | | Load_Top At_Offset_0 0294 1c00 | | Execute_Immediate Run_Utility,0x0 0295 e014 | | Load 0x0,0x14 0296 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0297 02c7 | | Declare_Variable Any 0298 00d8 | | Load_Top At_Offset_0 0299 1c00 | | Execute_Immediate Run_Utility,0x0 029a e014 | | Load 0x0,0x14 029b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 029c 02c7 | | Declare_Variable Any 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f 00e1 | | Load_Encached Boolean_Cache 02a0 e214 | | Load 0x1,0x14 02a1 0322 | " | Declare_Variable Record 02a2 00d8 | | Load_Top At_Offset_0 02a3 1c00 | | Execute_Immediate Run_Utility,0x0 02a4 029f 09a3 | | Declare_Subprogram INIT_09a0,For_Call 02a6 029f 09c3 | | Declare_Subprogram INIT_09c0,For_Call 02a8 BODY_0280: 02a8 e212 | | Load 0x1,0x12 02a9 0a01 | | Execute_Immediate Plus,0x1 02aa c212 | | Store 0x1,0x12 02ab e212 | | Load 0x1,0x12 02ac 00db | | Load_Top At_Offset_3 02ad 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02ae e5ff | | Load 0x2,-0x1 02af 00db | | Load_Top At_Offset_3 02b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02b1 4800 |H | Short_Literal 0x0 02b2 a5fe | | Store_Unchecked 0x2,-0x2 02b3 4800 |H | Short_Literal 0x0 02b4 a5fd | | Store_Unchecked 0x2,-0x3 02b5 00cf | | Action Mark_Auxiliary 02b6 e402 | | Load 0x2,0x2 02b7 e004 | | Load 0x0,0x4 02b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b9 6803 |h | Jump_Zero 0x2bd 02ba 4800 |H | Short_Literal 0x0 02bb a5fc | | Store_Unchecked 0x2,-0x4 02bc 78f6 |x | Jump 0x3b3 02bd e402 | | Load 0x2,0x2 02be e014 | | Load 0x0,0x14 02bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02c0 460c |F | Jump_Case 0xd 02c1 7811 |x | Jump 0x2d3 ; case 0x0 02c2 7828 |x( | Jump 0x2eb ; case 0x1 02c3 784b |xK | Jump 0x30f ; case 0x2 02c4 785e |x^ | Jump 0x323 ; case 0x3 02c5 7882 |x | Jump 0x348 ; case 0x4 02c6 78a9 |x | Jump 0x370 ; case 0x5 02c7 78c5 |x | Jump 0x38d ; case 0x6 02c8 78ba |x | Jump 0x383 ; case 0x7 02c9 78d7 |x | Jump 0x3a1 ; case 0x8 02ca 7875 |xu | Jump 0x340 ; case 0x9 02cb 78dc |x | Jump 0x3a8 ; case 0xa 02cc 78db |x | Jump 0x3a8 ; case 0xb 02cd 7800 |x | Jump 0x2ce ; case 0xc 02ce 4800 |H | Short_Literal 0x0 02cf a5fe | | Store_Unchecked 0x2,-0x2 02d0 4800 |H | Short_Literal 0x0 02d1 a5fc | | Store_Unchecked 0x2,-0x4 02d2 78e0 |x | Jump 0x3b3 02d3 e402 | | Load 0x2,0x2 02d4 e014 | | Load 0x0,0x14 02d5 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 02d6 c408 | | Store 0x2,0x8 02d7 e408 | | Load 0x2,0x8 02d8 e004 | | Load 0x0,0x4 02d9 180f | | Execute Package,Field_Execute,Field_Number 0xf 02da 6803 |h | Jump_Zero 0x2de 02db 4800 |H | Short_Literal 0x0 02dc a5fc | | Store_Unchecked 0x2,-0x4 02dd 78d5 |x | Jump 0x3b3 02de e5fc | | Load 0x2,-0x4 02df e5fd | | Load 0x2,-0x3 02e0 e5fe | | Load 0x2,-0x2 02e1 e408 | | Load 0x2,0x8 02e2 e402 | | Load 0x2,0x2 02e3 00d8 | | Load_Top At_Offset_0 02e4 e014 | | Load 0x0,0x14 02e5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 02e6 8217 | | Call 0x1,0x17 02e7 c5fe | | Store 0x2,-0x2 02e8 c5fd | | Store 0x2,-0x3 02e9 c5fc | | Store 0x2,-0x4 02ea 78c8 |x | Jump 0x3b3 02eb e402 | | Load 0x2,0x2 02ec 8224 | $ | Call 0x1,0x24 02ed 6806 |h | Jump_Zero 0x2f4 02ee e005 | | Load 0x0,0x5 02ef 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 02f0 a5fe | | Store_Unchecked 0x2,-0x2 02f1 4801 |H | Short_Literal 0x1 02f2 a5fc | | Store_Unchecked 0x2,-0x4 02f3 78bf |x | Jump 0x3b3 02f4 e402 | | Load 0x2,0x2 02f5 8225 | % | Call 0x1,0x25 02f6 6806 |h | Jump_Zero 0x2fd 02f7 e005 | | Load 0x0,0x5 02f8 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 02f9 a5fe | | Store_Unchecked 0x2,-0x2 02fa 4801 |H | Short_Literal 0x1 02fb a5fc | | Store_Unchecked 0x2,-0x4 02fc 78b6 |x | Jump 0x3b3 02fd e403 | | Load 0x2,0x3 02fe e404 | | Load 0x2,0x4 02ff e402 | | Load 0x2,0x2 0300 e015 | | Load 0x0,0x15 0301 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0302 c404 | | Store 0x2,0x4 0303 c403 | | Store 0x2,0x3 0304 e40b | | Load 0x2,0xb 0305 e403 | | Load 0x2,0x3 0306 e404 | | Load 0x2,0x4 0307 e005 | | Load 0x0,0x5 0308 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0309 a5fe | | Store_Unchecked 0x2,-0x2 030a e403 | | Load 0x2,0x3 030b e404 | | Load 0x2,0x4 030c 027b | { | Execute Discrete,Greater_Equal 030d a5fc | | Store_Unchecked 0x2,-0x4 030e 78a4 |x | Jump 0x3b3 030f 00e1 | | Load_Encached Boolean_Cache 0310 e403 | | Load 0x2,0x3 0311 e404 | | Load 0x2,0x4 0312 e402 | | Load 0x2,0x2 0313 e014 | | Load 0x0,0x14 0314 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0315 e015 | | Load 0x0,0x15 0316 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0317 c404 | | Store 0x2,0x4 0318 c403 | | Store 0x2,0x3 0319 c5fc | | Store 0x2,-0x4 031a e5fc | | Load 0x2,-0x4 031b 6897 |h | Jump_Zero 0x3b3 031c 4800 |H | Short_Literal 0x0 031d e403 | | Load 0x2,0x3 031e e404 | | Load 0x2,0x4 031f e005 | | Load 0x0,0x5 0320 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0321 a5fe | | Store_Unchecked 0x2,-0x2 0322 7890 |x | Jump 0x3b3 0323 00e1 | | Load_Encached Boolean_Cache 0324 e405 | | Load 0x2,0x5 0325 e406 | | Load 0x2,0x6 0326 e402 | | Load 0x2,0x2 0327 e014 | | Load 0x0,0x14 0328 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0329 e015 | | Load 0x0,0x15 032a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 032b c406 | | Store 0x2,0x6 032c c405 | | Store 0x2,0x5 032d c5fc | | Store 0x2,-0x4 032e 00e1 | | Load_Encached Boolean_Cache 032f e005 | | Load 0x0,0x5 0330 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0331 e402 | | Load 0x2,0x2 0332 e014 | | Load 0x0,0x14 0333 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0334 821b | | Call 0x1,0x1b 0335 c407 | | Store 0x2,0x7 0336 c5fc | | Store 0x2,-0x4 0337 e5fc | | Load 0x2,-0x4 0338 687a |hz | Jump_Zero 0x3b3 0339 e407 | | Load 0x2,0x7 033a e405 | | Load 0x2,0x5 033b e406 | | Load 0x2,0x6 033c e005 | | Load 0x0,0x5 033d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 033e a5fe | | Store_Unchecked 0x2,-0x2 033f 7873 |xs | Jump 0x3b3 0340 e005 | | Load 0x0,0x5 0341 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0342 a5fe | | Store_Unchecked 0x2,-0x2 0343 4801 |H | Short_Literal 0x1 0344 a5fc | | Store_Unchecked 0x2,-0x4 0345 4801 |H | Short_Literal 0x1 0346 a5fd | | Store_Unchecked 0x2,-0x3 0347 786b |xk | Jump 0x3b3 0348 e40a | | Load 0x2,0xa 0349 0120 | | Execute Any,Is_Value 034a 6803 |h | Jump_Zero 0x34e 034b e014 | | Load 0x0,0x14 034c 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 034d 7801 |x | Jump 0x34f 034e e40a | | Load 0x2,0xa 034f e409 | | Load 0x2,0x9 0350 0120 | | Execute Any,Is_Value 0351 6803 |h | Jump_Zero 0x355 0352 e014 | | Load 0x0,0x14 0353 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0354 7801 |x | Jump 0x356 0355 e409 | | Load 0x2,0x9 0356 e402 | | Load 0x2,0x2 0357 00d8 | | Load_Top At_Offset_0 0358 e004 | | Load 0x0,0x4 0359 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035a 8227 | ' | Call 0x1,0x27 035b c409 | | Store 0x2,0x9 035c c40a | | Store 0x2,0xa 035d 00e1 | | Load_Encached Boolean_Cache 035e e403 | | Load 0x2,0x3 035f e404 | | Load 0x2,0x4 0360 e409 | | Load 0x2,0x9 0361 e40a | | Load 0x2,0xa 0362 e015 | | Load 0x0,0x15 0363 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0364 c404 | | Store 0x2,0x4 0365 c403 | | Store 0x2,0x3 0366 c5fc | | Store 0x2,-0x4 0367 e5fc | | Load 0x2,-0x4 0368 6848 |hH | Jump_Zero 0x3b1 0369 e40b | | Load 0x2,0xb 036a e403 | | Load 0x2,0x3 036b e404 | | Load 0x2,0x4 036c e005 | | Load 0x0,0x5 036d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 036e a5fe | | Store_Unchecked 0x2,-0x2 036f 7843 |xC | Jump 0x3b3 0370 e402 | | Load 0x2,0x2 0371 e014 | | Load 0x0,0x14 0372 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0373 680c |h | Jump_Zero 0x380 0374 e5fc | | Load 0x2,-0x4 0375 e005 | | Load 0x0,0x5 0376 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0377 e402 | | Load 0x2,0x2 0378 e014 | | Load 0x0,0x14 0379 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 037a e402 | | Load 0x2,0x2 037b 8226 | & | Call 0x1,0x26 037c c5fe | | Store 0x2,-0x2 037d c5fc | | Store 0x2,-0x4 037e 840d | | Call 0x2,0xd 037f 7833 |x3 | Jump 0x3b3 0380 4800 |H | Short_Literal 0x0 0381 a5fc | | Store_Unchecked 0x2,-0x4 0382 7830 |x0 | Jump 0x3b3 0383 e5fc | | Load 0x2,-0x4 0384 e005 | | Load 0x0,0x5 0385 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0386 e402 | | Load 0x2,0x2 0387 821c | | Call 0x1,0x1c 0388 c5fe | | Store 0x2,-0x2 0389 c5fc | | Store 0x2,-0x4 038a 4801 |H | Short_Literal 0x1 038b a5fd | | Store_Unchecked 0x2,-0x3 038c 7826 |x& | Jump 0x3b3 038d e5fc | | Load 0x2,-0x4 038e e5fd | | Load 0x2,-0x3 038f e005 | | Load 0x0,0x5 0390 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0391 e004 | | Load 0x0,0x4 0392 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0393 e402 | | Load 0x2,0x2 0394 8222 | " | Call 0x1,0x22 0395 c5fe | | Store 0x2,-0x2 0396 c5fd | | Store 0x2,-0x3 0397 c5fc | | Store 0x2,-0x4 0398 e402 | | Load 0x2,0x2 0399 e40c | | Load 0x2,0xc 039a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 039b e402 | | Load 0x2,0x2 039c e014 | | Load 0x0,0x14 039d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 039e 6814 |h | Jump_Zero 0x3b3 039f 840e | | Call 0x2,0xe 03a0 7812 |x | Jump 0x3b3 03a1 e402 | | Load 0x2,0x2 03a2 e014 | | Load 0x0,0x14 03a3 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 03a4 e014 | | Load 0x0,0x14 03a5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03a6 c402 | | Store 0x2,0x2 03a7 7809 |x | Jump 0x3b1 03a8 e402 | | Load 0x2,0x2 03a9 e009 | | Load 0x0,0x9 03aa 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03ab c402 | | Store 0x2,0x2 03ac 4801 |H | Short_Literal 0x1 03ad e402 | | Load 0x2,0x2 03ae e004 | | Load 0x0,0x4 03af 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 03b0 c402 | | Store 0x2,0x2 03b1 00c9 | | Action Pop_Auxiliary_Loop 03b2 7f03 | | Jump 0x2b6 03b3 00ce | | Action Pop_Auxiliary 03b4 e5fe | | Load 0x2,-0x2 03b5 00db | | Load_Top At_Offset_3 03b6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03b7 e5fc | | Load 0x2,-0x4 03b8 00db | | Load_Top At_Offset_3 03b9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03ba e216 | | Load 0x1,0x16 03bb 00db | | Load_Top At_Offset_3 03bc e215 | | Load 0x1,0x15 03bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03be a216 | | Store_Unchecked 0x1,0x16 03bf e212 | | Load 0x1,0x12 03c0 0aff | | Execute_Immediate Plus,-0x1 03c1 c212 | | Store 0x1,0x12 03c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c3 0000 0000 | | .BLANK 0000[0x5] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d5 | | .CONST 0x03d5 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb e004 | | Load 0x0,0x4 03cc 1b19 | | Execute Package,Field_Read,Field_Number 0x19 03cd 02c7 | | Declare_Variable Any 03ce 00db | | Load_Top At_Offset_3 03cf e009 | | Load 0x0,0x9 03d0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03d1 a402 | | Store_Unchecked 0x2,0x2 03d2 e005 | | Load 0x0,0x5 03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03d5 BODY_03c8: 03d5 00cf | | Action Mark_Auxiliary 03d6 7808 |x | Jump 0x3df 03d7 00d9 | | Load_Top At_Offset_1 03d8 0a01 | | Execute_Immediate Plus,0x1 03d9 005a | Z | Store_Top Discrete,At_Offset_2 03da 00da | | Load_Top At_Offset_2 03db e004 | | Load 0x0,0x4 03dc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03dd c402 | | Store 0x2,0x2 03de 00c9 | | Action Pop_Auxiliary_Loop 03df 00da | | Load_Top At_Offset_2 03e0 e004 | | Load 0x0,0x4 03e1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03e2 6ff4 |o | Jump_Zero 0x3d7 03e3 00ce | | Action Pop_Auxiliary 03e4 00d8 | | Load_Top At_Offset_0 03e5 a5fe | | Store_Unchecked 0x2,-0x2 03e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e7 0000 | | .XXX[0x1] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00da | | Load_Top At_Offset_2 03ec e5fe | | Load 0x2,-0x2 03ed 026e | n | Execute Discrete,Modulo 03ee 7002 |p | Jump_Nonzero 0x3f1 03ef 00da | | Load_Top At_Offset_2 03f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f1 00da | | Load_Top At_Offset_2 03f2 e5fe | | Load 0x2,-0x2 03f3 0270 | p | Execute Discrete,Divide 03f4 0a01 | | Execute_Immediate Plus,0x1 03f5 e5fe | | Load 0x2,-0x2 03f6 0271 | q | Execute Discrete,Times 03f7 e005 | | Load 0x0,0x5 03f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f9 00d9 | | Load_Top At_Offset_1 03fa 00d0 | | Action Swap_Control 03fb 0260 | ` | Execute Discrete,In_Type 03fc 7001 |p | Jump_Nonzero 0x3fe 03fd 0801 | | Execute_Immediate Raise,0x1 03fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ff 0000 | | .XXX[0x1] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 e016 | | Load 0x0,0x16 0405 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0406 6807 |h | Jump_Zero 0x40e 0407 00da | | Load_Top At_Offset_2 0408 e016 | | Load 0x0,0x16 0409 181b | | Execute Package,Field_Execute,Field_Number 0x1b 040a c5fe | | Store 0x2,-0x2 040b 4801 |H | Short_Literal 0x1 040c a5fd | | Store_Unchecked 0x2,-0x3 040d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 040e 4800 |H | Short_Literal 0x0 040f a5fe | | Store_Unchecked 0x2,-0x2 0410 4800 |H | Short_Literal 0x0 0411 a5fd | | Store_Unchecked 0x2,-0x3 0412 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0413 0000 0000 | | .BLANK 0000[0x5] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b e005 | | Load 0x0,0x5 041c 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 041d a5fe | | Store_Unchecked 0x2,-0x2 041e 4801 |H | Short_Literal 0x1 041f a5fd | | Store_Unchecked 0x2,-0x3 0420 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0421 0000 0000 | | .BLANK 0000[0x7] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042d | - | .CONST 0x042d ; Address of begin 0429 0434 | 4 | .CONST 0x0434 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b e005 | | Load 0x0,0x5 042c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 042d BODY_0428: 042d e5fe | | Load 0x2,-0x2 042e e5ff | | Load 0x2,-0x1 042f 0272 | r | Execute Discrete,Minus 0430 0a01 | | Execute_Immediate Plus,0x1 0431 0059 | Y | Store_Top Discrete,At_Offset_1 0432 00d8 | | Load_Top At_Offset_0 0433 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0434 TRAP_0428: 0434 010e | | Execute Exception,Is_Constraint_Error 0435 6802 |h | Jump_Zero 0x438 0436 4800 |H | Short_Literal 0x0 0437 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0438 010d | | Execute Exception,Is_Numeric_Error 0439 6802 |h | Jump_Zero 0x43c 043a 4800 |H | Short_Literal 0x0 043b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 043c 0100 | | Execute Exception,Raise 043d 0000 0000 | | .XXX[0x3] 043f 0000 | | 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 044f | O | .CONST 0x044f ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0003 | | .CONST 0x0003 ; Number of locals 0443 INIT_0440: 0443 e004 | | Load 0x0,0x4 0444 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0445 02c7 | | Declare_Variable Any 0446 00db | | Load_Top At_Offset_3 0447 e014 | | Load 0x0,0x14 0448 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0449 a402 | | Store_Unchecked 0x2,0x2 044a e004 | | Load 0x0,0x4 044b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044c 02c7 | | Declare_Variable Any 044d 00d8 | | Load_Top At_Offset_0 044e 1c00 | | Execute_Immediate Run_Utility,0x0 044f BODY_0440: 044f 00cf | | Action Mark_Auxiliary 0450 7811 |x | Jump 0x462 0451 00da | | Load_Top At_Offset_2 0452 e004 | | Load 0x0,0x4 0453 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0454 c403 | | Store 0x2,0x3 0455 00d9 | | Load_Top At_Offset_1 0456 e016 | | Load 0x0,0x16 0457 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0458 0f09 | | Execute_Immediate Equal,0x9 0459 7003 |p | Jump_Nonzero 0x45d 045a e004 | | Load 0x0,0x4 045b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 045c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045d 4801 |H | Short_Literal 0x1 045e 00da | | Load_Top At_Offset_2 045f e004 | | Load 0x0,0x4 0460 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0461 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0462 00da | | Load_Top At_Offset_2 0463 e004 | | Load 0x0,0x4 0464 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0465 6feb |o | Jump_Zero 0x451 0466 00ce | | Action Pop_Auxiliary 0467 0831 | 1 | Execute_Immediate Raise,0x31 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 047c | | | .CONST 0x047c ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0005 | | .CONST 0x0005 ; Number of locals 046b INIT_0468: 046b e004 | | Load 0x0,0x4 046c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 046d 02c7 | | Declare_Variable Any 046e 00db | | Load_Top At_Offset_3 046f a402 | | Store_Unchecked 0x2,0x2 0470 e004 | | Load 0x0,0x4 0471 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0472 02c7 | | Declare_Variable Any 0473 00d8 | | Load_Top At_Offset_0 0474 1c00 | | Execute_Immediate Run_Utility,0x0 0475 e004 | | Load 0x0,0x4 0476 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0477 02c7 | | Declare_Variable Any 0478 00d8 | | Load_Top At_Offset_0 0479 1c00 | | Execute_Immediate Run_Utility,0x0 047a 029f 09e3 | | Declare_Subprogram INIT_09e0,For_Call 047c BODY_0468: 047c e5fe | | Load 0x2,-0x2 047d e004 | | Load 0x0,0x4 047e 180f | | Execute Package,Field_Execute,Field_Number 0xf 047f 6802 |h | Jump_Zero 0x482 0480 4800 |H | Short_Literal 0x0 0481 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0482 e5fe | | Load 0x2,-0x2 0483 821e | | Call 0x1,0x1e 0484 c404 | | Store 0x2,0x4 0485 00cf | | Action Mark_Auxiliary 0486 7823 |x# | Jump 0x4aa 0487 e402 | | Load 0x2,0x2 0488 e004 | | Load 0x0,0x4 0489 1817 | | Execute Package,Field_Execute,Field_Number 0x17 048a c403 | | Store 0x2,0x3 048b 00db | | Load_Top At_Offset_3 048c e014 | | Load 0x0,0x14 048d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 048e 4604 |F | Jump_Case 0x5 048f 7806 |x | Jump 0x496 ; case 0x0 0490 7807 |x | Jump 0x498 ; case 0x1 0491 7808 |x | Jump 0x49a ; case 0x2 0492 7809 |x | Jump 0x49c ; case 0x3 0493 7800 |x | Jump 0x494 ; case 0x4 0494 4800 |H | Short_Literal 0x0 0495 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0496 4800 |H | Short_Literal 0x0 0497 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0498 8405 | | Call 0x2,0x5 0499 780b |x | Jump 0x4a5 049a 4800 |H | Short_Literal 0x0 049b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 049c 4801 |H | Short_Literal 0x1 049d e403 | | Load 0x2,0x3 049e e014 | | Load 0x0,0x14 049f 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 04a0 e004 | | Load 0x0,0x4 04a1 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 04a2 00db | | Load_Top At_Offset_3 04a3 012f | / | Execute Any,Equal 04a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a5 e402 | | Load 0x2,0x2 04a6 e004 | | Load 0x0,0x4 04a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04a8 c402 | | Store 0x2,0x2 04a9 00c9 | | Action Pop_Auxiliary_Loop 04aa e402 | | Load 0x2,0x2 04ab e004 | | Load 0x0,0x4 04ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04ad 6fd9 |o | Jump_Zero 0x487 04ae 00ce | | Action Pop_Auxiliary 04af 4800 |H | Short_Literal 0x0 04b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b1 0000 0000 | | .BLANK 0000[0x7] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04ef | | .CONST 0x04ef ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0011 | | .CONST 0x0011 ; Number of locals 04bb INIT_04b8: 04bb e004 | | Load 0x0,0x4 04bc 1b19 | | Execute Package,Field_Read,Field_Number 0x19 04bd 02c7 | | Declare_Variable Any 04be 00d8 | | Load_Top At_Offset_0 04bf 1c00 | | Execute_Immediate Run_Utility,0x0 04c0 e004 | | Load 0x0,0x4 04c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c2 02c7 | | Declare_Variable Any 04c3 00d8 | | Load_Top At_Offset_0 04c4 1c00 | | Execute_Immediate Run_Utility,0x0 04c5 e004 | | Load 0x0,0x4 04c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c7 02c7 | | Declare_Variable Any 04c8 00d8 | | Load_Top At_Offset_0 04c9 1c00 | | Execute_Immediate Run_Utility,0x0 04ca e005 | | Load 0x0,0x5 04cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04cd 03e9 | | Declare_Variable Discrete,Duplicate 04ce 03e9 | | Declare_Variable Discrete,Duplicate 04cf e004 | | Load 0x0,0x4 04d0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 04d1 02c7 | | Declare_Variable Any 04d2 00d8 | | Load_Top At_Offset_0 04d3 1c00 | | Execute_Immediate Run_Utility,0x0 04d4 e004 | | Load 0x0,0x4 04d5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 04d6 02c7 | | Declare_Variable Any 04d7 00d8 | | Load_Top At_Offset_0 04d8 1c00 | | Execute_Immediate Run_Utility,0x0 04d9 00e1 | | Load_Encached Boolean_Cache 04da 00e1 | | Load_Encached Boolean_Cache 04db e004 | | Load 0x0,0x4 04dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04dd 02c7 | | Declare_Variable Any 04de 00d8 | | Load_Top At_Offset_0 04df 1c00 | | Execute_Immediate Run_Utility,0x0 04e0 e004 | | Load 0x0,0x4 04e1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 04e2 02c7 | | Declare_Variable Any 04e3 00d8 | | Load_Top At_Offset_0 04e4 1c00 | | Execute_Immediate Run_Utility,0x0 04e5 e005 | | Load 0x0,0x5 04e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e7 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 04e8 00e1 | | Load_Encached Boolean_Cache 04e9 e214 | | Load 0x1,0x14 04ea 0322 | " | Declare_Variable Record 04eb 00d8 | | Load_Top At_Offset_0 04ec 1c00 | | Execute_Immediate Run_Utility,0x0 04ed 00e1 | | Load_Encached Boolean_Cache 04ee 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ef BODY_04b8: 04ef e402 | | Load 0x2,0x2 04f0 0120 | | Execute Any,Is_Value 04f1 6803 |h | Jump_Zero 0x4f5 04f2 e004 | | Load 0x0,0x4 04f3 1b19 | | Execute Package,Field_Read,Field_Number 0x19 04f4 7801 |x | Jump 0x4f6 04f5 e402 | | Load 0x2,0x2 04f6 e5fd | | Load 0x2,-0x3 04f7 e004 | | Load 0x0,0x4 04f8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04f9 c402 | | Store 0x2,0x2 04fa e402 | | Load 0x2,0x2 04fb e004 | | Load 0x0,0x4 04fc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04fd c402 | | Store 0x2,0x2 04fe 4800 |H | Short_Literal 0x0 04ff a5fc | | Store_Unchecked 0x2,-0x4 0500 4801 |H | Short_Literal 0x1 0501 a5fa | | Store_Unchecked 0x2,-0x6 0502 4800 |H | Short_Literal 0x0 0503 a5fb | | Store_Unchecked 0x2,-0x5 0504 00cf | | Action Mark_Auxiliary 0505 78ad |x | Jump 0x5b3 0506 e402 | | Load 0x2,0x2 0507 e004 | | Load 0x0,0x4 0508 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0509 c403 | | Store 0x2,0x3 050a 4800 |H | Short_Literal 0x0 050b a405 | | Store_Unchecked 0x2,0x5 050c e403 | | Load 0x2,0x3 050d e014 | | Load 0x0,0x14 050e 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 050f 4603 |F | Jump_Case 0x4 0510 787e |x~ | Jump 0x58f ; case 0x0 0511 7807 |x | Jump 0x519 ; case 0x1 0512 7818 |x | Jump 0x52b ; case 0x2 0513 7800 |x | Jump 0x514 ; case 0x3 0514 4800 |H | Short_Literal 0x0 0515 a5fc | | Store_Unchecked 0x2,-0x4 0516 4800 |H | Short_Literal 0x0 0517 a40f | | Store_Unchecked 0x2,0xf 0518 787a |xz | Jump 0x593 0519 e005 | | Load 0x0,0x5 051a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 051b e403 | | Load 0x2,0x3 051c 8219 | | Call 0x1,0x19 051d c40e | | Store 0x2,0xe 051e e403 | | Load 0x2,0x3 051f e009 | | Load 0x0,0x9 0520 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0521 c404 | | Store 0x2,0x4 0522 00db | | Load_Top At_Offset_3 0523 e40a | | Load 0x2,0xa 0524 e405 | | Load 0x2,0x5 0525 e404 | | Load 0x2,0x4 0526 8218 | | Call 0x1,0x18 0527 c405 | | Store 0x2,0x5 0528 c40a | | Store 0x2,0xa 0529 c40f | | Store 0x2,0xf 052a 7868 |xh | Jump 0x593 052b e409 | | Load 0x2,0x9 052c 0120 | | Execute Any,Is_Value 052d 6803 |h | Jump_Zero 0x531 052e e004 | | Load 0x0,0x4 052f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0530 7801 |x | Jump 0x532 0531 e409 | | Load 0x2,0x9 0532 e403 | | Load 0x2,0x3 0533 e014 | | Load 0x0,0x14 0534 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0535 e004 | | Load 0x0,0x4 0536 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0537 c409 | | Store 0x2,0x9 0538 e409 | | Load 0x2,0x9 0539 e004 | | Load 0x0,0x4 053a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 053b c409 | | Store 0x2,0x9 053c 00cf | | Action Mark_Auxiliary 053d 784b |xK | Jump 0x589 053e e409 | | Load 0x2,0x9 053f e004 | | Load 0x0,0x4 0540 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0541 c40c | | Store 0x2,0xc 0542 e40c | | Load 0x2,0xc 0543 e014 | | Load 0x0,0x14 0544 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0545 c40d | | Store 0x2,0xd 0546 e40c | | Load 0x2,0xc 0547 e014 | | Load 0x0,0x14 0548 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 0549 c408 | | Store 0x2,0x8 054a e40f | | Load 0x2,0xf 054b e40b | | Load 0x2,0xb 054c e005 | | Load 0x0,0x5 054d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 054e e408 | | Load 0x2,0x8 054f e5fe | | Load 0x2,-0x2 0550 e5ff | | Load 0x2,-0x1 0551 8220 | | Call 0x1,0x20 0552 c408 | | Store 0x2,0x8 0553 c406 | | Store 0x2,0x6 0554 c40b | | Store 0x2,0xb 0555 c40f | | Store 0x2,0xf 0556 e212 | | Load 0x1,0x12 0557 0a01 | | Execute_Immediate Plus,0x1 0558 e410 | | Load 0x2,0x10 0559 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 055a e40c | | Load 0x2,0xc 055b e410 | | Load 0x2,0x10 055c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 055d 6062 |`b | Indirect_Literal Discrete,0x5c0,{0x7fffffff, 0xffffffff} 055e e410 | | Load 0x2,0x10 055f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0560 4804 |H | Short_Literal 0x4 0561 e410 | | Load 0x2,0x10 0562 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0563 e216 | | Load 0x1,0x16 0564 e410 | | Load 0x2,0x10 0565 e215 | | Load 0x1,0x15 0566 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0567 a216 | | Store_Unchecked 0x1,0x16 0568 e40f | | Load 0x2,0xf 0569 6818 |h | Jump_Zero 0x582 056a e5fe | | Load 0x2,-0x2 056b 700d |p | Jump_Nonzero 0x579 056c 00da | | Load_Top At_Offset_2 056d 700b |p | Jump_Nonzero 0x579 056e e5ff | | Load 0x2,-0x1 056f e40d | | Load 0x2,0xd 0570 821f | | Call 0x1,0x1f 0571 6807 |h | Jump_Zero 0x579 0572 4801 |H | Short_Literal 0x1 0573 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0574 e406 | | Load 0x2,0x6 0575 a405 | | Store_Unchecked 0x2,0x5 0576 e40b | | Load 0x2,0xb 0577 a40a | | Store_Unchecked 0x2,0xa 0578 7814 |x | Jump 0x58d 0579 e406 | | Load 0x2,0x6 057a e405 | | Load 0x2,0x5 057b 027d | } | Execute Discrete,Greater 057c 6807 |h | Jump_Zero 0x584 057d e406 | | Load 0x2,0x6 057e a405 | | Store_Unchecked 0x2,0x5 057f e40b | | Load 0x2,0xb 0580 a40a | | Store_Unchecked 0x2,0xa 0581 7802 |x | Jump 0x584 0582 4800 |H | Short_Literal 0x0 0583 a5fc | | Store_Unchecked 0x2,-0x4 0584 e409 | | Load 0x2,0x9 0585 e004 | | Load 0x0,0x4 0586 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0587 c409 | | Store 0x2,0x9 0588 00c9 | | Action Pop_Auxiliary_Loop 0589 e409 | | Load 0x2,0x9 058a e004 | | Load 0x0,0x4 058b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 058c 6fb1 |o | Jump_Zero 0x53e 058d 00ce | | Action Pop_Auxiliary 058e 7804 |x | Jump 0x593 058f 4800 |H | Short_Literal 0x0 0590 a405 | | Store_Unchecked 0x2,0x5 0591 4801 |H | Short_Literal 0x1 0592 a40f | | Store_Unchecked 0x2,0xf 0593 00db | | Load_Top At_Offset_3 0594 6815 |h | Jump_Zero 0x5aa 0595 e40a | | Load 0x2,0xa 0596 680c |h | Jump_Zero 0x5a3 0597 4801 |H | Short_Literal 0x1 0598 a5fb | | Store_Unchecked 0x2,-0x5 0599 e405 | | Load 0x2,0x5 059a e40e | | Load 0x2,0xe 059b e005 | | Load 0x0,0x5 059c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 059d e407 | | Load 0x2,0x7 059e 821a | | Call 0x1,0x1a 059f 0271 | q | Execute Discrete,Times 05a0 0273 | s | Execute Discrete,Plus 05a1 c407 | | Store 0x2,0x7 05a2 780b |x | Jump 0x5ae 05a3 e407 | | Load 0x2,0x7 05a4 e40e | | Load 0x2,0xe 05a5 e405 | | Load 0x2,0x5 05a6 0271 | q | Execute Discrete,Times 05a7 0273 | s | Execute Discrete,Plus 05a8 c407 | | Store 0x2,0x7 05a9 7804 |x | Jump 0x5ae 05aa e5fa | | Load 0x2,-0x6 05ab e40f | | Load 0x2,0xf 05ac 0279 | y | Execute Discrete,And 05ad a5fa | | Store_Unchecked 0x2,-0x6 05ae e402 | | Load 0x2,0x2 05af e004 | | Load 0x0,0x4 05b0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05b1 c402 | | Store 0x2,0x2 05b2 00c9 | | Action Pop_Auxiliary_Loop 05b3 e402 | | Load 0x2,0x2 05b4 e004 | | Load 0x0,0x4 05b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 05b6 6f4f |oO | Jump_Zero 0x506 05b7 00ce | | Action Pop_Auxiliary 05b8 e5fa | | Load 0x2,-0x6 05b9 6803 |h | Jump_Zero 0x5bd 05ba e407 | | Load 0x2,0x7 05bb a5fc | | Store_Unchecked 0x2,-0x4 05bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05bd 4800 |H | Short_Literal 0x0 05be a5fc | | Store_Unchecked 0x2,-0x4 05bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05c0 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 05c4 0000 0000 | | .BLANK 0000[0x4] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d5 | | .CONST 0x05d5 ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb e004 | | Load 0x0,0x4 05cc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 05cd 02c7 | | Declare_Variable Any 05ce 00db | | Load_Top At_Offset_3 05cf a402 | | Store_Unchecked 0x2,0x2 05d0 e004 | | Load 0x0,0x4 05d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d2 02c7 | | Declare_Variable Any 05d3 00d8 | | Load_Top At_Offset_0 05d4 1c00 | | Execute_Immediate Run_Utility,0x0 05d5 BODY_05c8: 05d5 00cf | | Action Mark_Auxiliary 05d6 780f |x | Jump 0x5e6 05d7 00da | | Load_Top At_Offset_2 05d8 e004 | | Load 0x0,0x4 05d9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05da c403 | | Store 0x2,0x3 05db 00d9 | | Load_Top At_Offset_1 05dc e017 | | Load 0x0,0x17 05dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05de 6802 |h | Jump_Zero 0x5e1 05df 4801 |H | Short_Literal 0x1 05e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e1 00da | | Load_Top At_Offset_2 05e2 e004 | | Load 0x0,0x4 05e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05e4 c402 | | Store 0x2,0x2 05e5 00c9 | | Action Pop_Auxiliary_Loop 05e6 00da | | Load_Top At_Offset_2 05e7 e004 | | Load 0x0,0x4 05e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05e9 6fed |o | Jump_Zero 0x5d7 05ea 00ce | | Action Pop_Auxiliary 05eb 4800 |H | Short_Literal 0x0 05ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ed 0000 0000 | | .XXX[0x3] 05ef 0000 | | 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f8 | | .CONST 0x05f8 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0002 | | .CONST 0x0002 ; Number of locals 05f3 INIT_05f0: 05f3 e004 | | Load 0x0,0x4 05f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 05f5 02c7 | | Declare_Variable Any 05f6 00d8 | | Load_Top At_Offset_0 05f7 1c00 | | Execute_Immediate Run_Utility,0x0 05f8 BODY_05f0: 05f8 00db | | Load_Top At_Offset_3 05f9 e014 | | Load 0x0,0x14 05fa 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 05fb c402 | | Store 0x2,0x2 05fc 00db | | Load_Top At_Offset_3 05fd e014 | | Load 0x0,0x14 05fe 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05ff 6813 |h | Jump_Zero 0x613 0600 00db | | Load_Top At_Offset_3 0601 e014 | | Load 0x0,0x14 0602 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0603 8221 | ! | Call 0x1,0x21 0604 680e |h | Jump_Zero 0x613 0605 e5fb | | Load 0x2,-0x5 0606 e5fc | | Load 0x2,-0x4 0607 e005 | | Load 0x0,0x5 0608 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0609 00db | | Load_Top At_Offset_3 060a 4801 |H | Short_Literal 0x1 060b e004 | | Load 0x0,0x4 060c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 060d 8220 | | Call 0x1,0x20 060e c402 | | Store 0x2,0x2 060f c5fd | | Store 0x2,-0x3 0610 c5fc | | Store 0x2,-0x4 0611 c5fb | | Store 0x2,-0x5 0612 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0613 e5fb | | Load 0x2,-0x5 0614 e5fc | | Load 0x2,-0x4 0615 e005 | | Load 0x0,0x5 0616 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0617 00db | | Load_Top At_Offset_3 0618 4800 |H | Short_Literal 0x0 0619 e5fe | | Load 0x2,-0x2 061a 8220 | | Call 0x1,0x20 061b c402 | | Store 0x2,0x2 061c c5fd | | Store 0x2,-0x3 061d c5fc | | Store 0x2,-0x4 061e c5fb | | Store 0x2,-0x5 061f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 063c | < | .CONST 0x063c ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0008 | | .CONST 0x0008 ; Number of locals 0623 INIT_0620: 0623 e004 | | Load 0x0,0x4 0624 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0625 02c7 | | Declare_Variable Any 0626 00db | | Load_Top At_Offset_3 0627 a402 | | Store_Unchecked 0x2,0x2 0628 e014 | | Load 0x0,0x14 0629 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 062a 02c7 | | Declare_Variable Any 062b 00d8 | | Load_Top At_Offset_0 062c 1c00 | | Execute_Immediate Run_Utility,0x0 062d e014 | | Load 0x0,0x14 062e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 062f 02c7 | | Declare_Variable Any 0630 00d8 | | Load_Top At_Offset_0 0631 1c00 | | Execute_Immediate Run_Utility,0x0 0632 e014 | | Load 0x0,0x14 0633 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0634 02c7 | | Declare_Variable Any 0635 00d8 | | Load_Top At_Offset_0 0636 1c00 | | Execute_Immediate Run_Utility,0x0 0637 00e5 | | Load_Encached Long_Integer_Cache 0638 03e9 | | Declare_Variable Discrete,Duplicate 0639 e005 | | Load 0x0,0x5 063a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 063b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 063c BODY_0620: 063c 4801 |H | Short_Literal 0x1 063d a5fd | | Store_Unchecked 0x2,-0x3 063e 00cf | | Action Mark_Auxiliary 063f 782a |x* | Jump 0x66a 0640 e402 | | Load 0x2,0x2 0641 e004 | | Load 0x0,0x4 0642 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0643 c403 | | Store 0x2,0x3 0644 e405 | | Load 0x2,0x5 0645 0120 | | Execute Any,Is_Value 0646 6803 |h | Jump_Zero 0x64a 0647 e016 | | Load 0x0,0x16 0648 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0649 7801 |x | Jump 0x64b 064a e405 | | Load 0x2,0x5 064b e404 | | Load 0x2,0x4 064c 0120 | | Execute Any,Is_Value 064d 6803 |h | Jump_Zero 0x651 064e e016 | | Load 0x0,0x16 064f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0650 7801 |x | Jump 0x652 0651 e404 | | Load 0x2,0x4 0652 00e1 | | Load_Encached Boolean_Cache 0653 e407 | | Load 0x2,0x7 0654 e406 | | Load 0x2,0x6 0655 e403 | | Load 0x2,0x3 0656 e015 | | Load 0x0,0x15 0657 180d | | Execute Package,Field_Execute,Field_Number 0xd 0658 c406 | | Store 0x2,0x6 0659 c407 | | Store 0x2,0x7 065a c5fd | | Store 0x2,-0x3 065b c404 | | Store 0x2,0x4 065c c405 | | Store 0x2,0x5 065d e5fd | | Load 0x2,-0x3 065e 680f |h | Jump_Zero 0x66e 065f 00d9 | | Load_Top At_Offset_1 0660 00db | | Load_Top At_Offset_3 0661 e406 | | Load 0x2,0x6 0662 821d | | Call 0x1,0x1d 0663 0271 | q | Execute Discrete,Times 0664 005a | Z | Store_Top Discrete,At_Offset_2 0665 e402 | | Load 0x2,0x2 0666 e004 | | Load 0x0,0x4 0667 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0668 c402 | | Store 0x2,0x2 0669 00c9 | | Action Pop_Auxiliary_Loop 066a e402 | | Load 0x2,0x2 066b e004 | | Load 0x0,0x4 066c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 066d 6fd2 |o | Jump_Zero 0x640 066e 00ce | | Action Pop_Auxiliary 066f 00d8 | | Load_Top At_Offset_0 0670 a5fe | | Store_Unchecked 0x2,-0x2 0671 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0672 0000 0000 | | .BLANK 0000[0x6] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 0682 | | .CONST 0x0682 ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0002 | | .CONST 0x0002 ; Number of locals 067b INIT_0678: 067b e004 | | Load 0x0,0x4 067c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 067d 02c7 | | Declare_Variable Any 067e 00db | | Load_Top At_Offset_3 067f e014 | | Load 0x0,0x14 0680 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0681 a402 | | Store_Unchecked 0x2,0x2 0682 BODY_0678: 0682 4801 |H | Short_Literal 0x1 0683 0092 0a60 | `| Action Push_String_Extended,0xa60 ; "CHARACTER" 0685 00da | | Load_Top At_Offset_2 0686 e004 | | Load 0x0,0x4 0687 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0688 e018 | | Load 0x0,0x18 0689 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 068a 700b |p | Jump_Nonzero 0x696 068b 4801 |H | Short_Literal 0x1 068c 0092 0a60 | `| Action Push_String_Extended,0xa60 ; "CHARACTER" 068e 00da | | Load_Top At_Offset_2 068f e004 | | Load 0x0,0x4 0690 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0691 e009 | | Load 0x0,0x9 0692 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0693 e018 | | Load 0x0,0x18 0694 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0695 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0696 4801 |H | Short_Literal 0x1 0697 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 06a2 | | .CONST 0x06a2 ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0002 | | .CONST 0x0002 ; Number of locals 069b INIT_0698: 069b e004 | | Load 0x0,0x4 069c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 069d 02c7 | | Declare_Variable Any 069e 00db | | Load_Top At_Offset_3 069f e014 | | Load 0x0,0x14 06a0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06a1 a402 | | Store_Unchecked 0x2,0x2 06a2 BODY_0698: 06a2 4801 |H | Short_Literal 0x1 06a3 0092 0a61 | a| Action Push_String_Extended,0xa61 ; "BOOLEAN" 06a5 00da | | Load_Top At_Offset_2 06a6 e004 | | Load 0x0,0x4 06a7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 06a8 e018 | | Load 0x0,0x18 06a9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06aa 700b |p | Jump_Nonzero 0x6b6 06ab 4801 |H | Short_Literal 0x1 06ac 0092 0a61 | a| Action Push_String_Extended,0xa61 ; "BOOLEAN" 06ae 00da | | Load_Top At_Offset_2 06af e004 | | Load 0x0,0x4 06b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06b1 e009 | | Load 0x0,0x9 06b2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06b3 e018 | | Load 0x0,0x18 06b4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06b6 4801 |H | Short_Literal 0x1 06b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06c6 | | .CONST 0x06c6 ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0005 | | .CONST 0x0005 ; Number of locals 06bb INIT_06b8: 06bb e005 | | Load 0x0,0x5 06bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06bd e014 | | Load 0x0,0x14 06be 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06bf 02c7 | | Declare_Variable Any 06c0 00d8 | | Load_Top At_Offset_0 06c1 1c00 | | Execute_Immediate Run_Utility,0x0 06c2 e005 | | Load 0x0,0x5 06c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c4 00e1 | | Load_Encached Boolean_Cache 06c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06c6 BODY_06b8: 06c6 4800 |H | Short_Literal 0x0 06c7 a5fd | | Store_Unchecked 0x2,-0x3 06c8 e5ff | | Load 0x2,-0x1 06c9 e014 | | Load 0x0,0x14 06ca 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 06cb c403 | | Store 0x2,0x3 06cc 00da | | Load_Top At_Offset_2 06cd 8224 | $ | Call 0x1,0x24 06ce 6804 |h | Jump_Zero 0x6d3 06cf e005 | | Load 0x0,0x5 06d0 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 06d1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 06d2 7819 |x | Jump 0x6ec 06d3 00da | | Load_Top At_Offset_2 06d4 8225 | % | Call 0x1,0x25 06d5 6804 |h | Jump_Zero 0x6da 06d6 e005 | | Load 0x0,0x5 06d7 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 06d8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 06d9 7812 |x | Jump 0x6ec 06da e5fc | | Load 0x2,-0x4 06db 00d9 | | Load_Top At_Offset_1 06dc 00db | | Load_Top At_Offset_3 06dd 4801 |H | Short_Literal 0x1 06de e403 | | Load 0x2,0x3 06df e004 | | Load 0x0,0x4 06e0 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 06e1 e009 | | Load 0x0,0x9 06e2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 06e3 8218 | | Call 0x1,0x18 06e4 c404 | | Store 0x2,0x4 06e5 005a | Z | Store_Top Discrete,At_Offset_2 06e6 c5fc | | Store 0x2,-0x4 06e7 e005 | | Load 0x0,0x5 06e8 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 06e9 00da | | Load_Top At_Offset_2 06ea 821a | | Call 0x1,0x1a 06eb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 06ec e5fc | | Load 0x2,-0x4 06ed 6817 |h | Jump_Zero 0x705 06ee e5fc | | Load 0x2,-0x4 06ef e005 | | Load 0x0,0x5 06f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06f1 e5fe | | Load 0x2,-0x2 06f2 8223 | # | Call 0x1,0x23 06f3 c402 | | Store 0x2,0x2 06f4 c5fc | | Store 0x2,-0x4 06f5 e5fc | | Load 0x2,-0x4 06f6 680e |h | Jump_Zero 0x705 06f7 00d8 | | Load_Top At_Offset_0 06f8 6808 |h | Jump_Zero 0x701 06f9 00db | | Load_Top At_Offset_3 06fa e005 | | Load 0x0,0x5 06fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06fc 00db | | Load_Top At_Offset_3 06fd 821a | | Call 0x1,0x1a 06fe 0271 | q | Execute Discrete,Times 06ff c5fd | | Store 0x2,-0x3 0700 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0701 00db | | Load_Top At_Offset_3 0702 00da | | Load_Top At_Offset_2 0703 0271 | q | Execute Discrete,Times 0704 c5fd | | Store 0x2,-0x3 0705 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0706 0000 0000 | | .XXX[0x2] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 0715 | | .CONST 0x0715 ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0005 | | .CONST 0x0005 ; Number of locals 070b INIT_0708: 070b 00e1 | | Load_Encached Boolean_Cache 070c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 070d 03e9 | | Declare_Variable Discrete,Duplicate 070e e004 | | Load 0x0,0x4 070f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0710 02c7 | | Declare_Variable Any 0711 00d8 | | Load_Top At_Offset_0 0712 1c00 | | Execute_Immediate Run_Utility,0x0 0713 029f 0a2b | +| Declare_Subprogram INIT_0a28,For_Call 0715 BODY_0708: 0715 e004 | | Load 0x0,0x4 0716 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0717 c5fc | | Store 0x2,-0x4 0718 e004 | | Load 0x0,0x4 0719 1b0e | | Execute Package,Field_Read,Field_Number 0xe 071a c5fb | | Store 0x2,-0x5 071b e5ff | | Load 0x2,-0x1 071c c404 | | Store 0x2,0x4 071d e5fd | | Load 0x2,-0x3 071e 8405 | | Call 0x2,0x5 071f 00cf | | Action Mark_Auxiliary 0720 7831 |x1 | Jump 0x752 0721 00da | | Load_Top At_Offset_2 0722 e004 | | Load 0x0,0x4 0723 180f | | Execute Package,Field_Execute,Field_Number 0xf 0724 6805 |h | Jump_Zero 0x72a 0725 e5fe | | Load 0x2,-0x2 0726 e014 | | Load 0x0,0x14 0727 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0728 8405 | | Call 0x2,0x5 0729 4504 |E | Exit_Suprogram New_Top_Offset 0x4 072a 4801 |H | Short_Literal 0x1 072b 00db | | Load_Top At_Offset_3 072c e004 | | Load 0x0,0x4 072d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 072e c404 | | Store 0x2,0x4 072f 00da | | Load_Top At_Offset_2 0730 e004 | | Load 0x0,0x4 0731 180f | | Execute Package,Field_Execute,Field_Number 0xf 0732 7023 |p# | Jump_Nonzero 0x756 0733 00da | | Load_Top At_Offset_2 0734 e009 | | Load 0x0,0x9 0735 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0736 e014 | | Load 0x0,0x14 0737 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0738 c404 | | Store 0x2,0x4 0739 00da | | Load_Top At_Offset_2 073a e014 | | Load 0x0,0x14 073b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 073c 460c |F | Jump_Case 0xd 073d 780c |x | Jump 0x74a ; case 0x0 073e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1 073f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2 0740 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3 0741 780d |x | Jump 0x74f ; case 0x4 0742 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5 0743 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6 0744 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7 0745 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8 0746 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x9 0747 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa 0748 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb 0749 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xc 074a 00da | | Load_Top At_Offset_2 074b e014 | | Load 0x0,0x14 074c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 074d 8405 | | Call 0x2,0x5 074e 7802 |x | Jump 0x751 074f 00da | | Load_Top At_Offset_2 0750 8405 | | Call 0x2,0x5 0751 00c9 | | Action Pop_Auxiliary_Loop 0752 e402 | | Load 0x2,0x2 0753 6fcd |o | Jump_Zero 0x721 0754 00db | | Load_Top At_Offset_3 0755 6fcb |o | Jump_Zero 0x721 0756 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0757 0000 | | .XXX[0x1] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 076e | n | .CONST 0x076e ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0002 | | .CONST 0x0002 ; Number of locals 075b INIT_0758: 075b 4801 |H | Short_Literal 0x1 075c 00db | | Load_Top At_Offset_3 075d 00e9 | | Load_Encached String_Cache 075e 035b | [ | Declare_Type Array,Constrained 075f 0337 | 7 | Declare_Variable Array 0760 00d8 | | Load_Top At_Offset_0 0761 0335 | 5 | Declare_Variable Array,Duplicate 0762 00cd | | Action Spare6_Action 0763 00d9 | | Load_Top At_Offset_1 0764 01d9 | | Execute Vector,Reverse_Bounds 0765 0263 | c | Execute Discrete,Above_Bound 0766 7005 |p | Jump_Nonzero 0x76c 0767 e5fd | | Load 0x2,-0x3 0768 00d9 | | Load_Top At_Offset_1 0769 e403 | | Load 0x2,0x3 076a 01d6 | | Execute Vector,Field_Write 076b 3ffb |? | Loop_Increasing 0x767 076c 00d9 | | Load_Top At_Offset_1 076d 01d4 | | Execute Vector,Structure_Write 076e BODY_0758: 076e 00d8 | | Load_Top At_Offset_0 076f 4820 |H | Short_Literal 0x20 0770 e5fe | | Load 0x2,-0x2 0771 e018 | | Load 0x0,0x18 0772 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0773 01cc | | Execute Vector,Catenate 0774 00e9 | | Load_Encached String_Cache 0775 01c6 | | Execute Vector,Convert_To_Formal 0776 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0777 0000 | | .XXX[0x1] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 0784 | | .CONST 0x0784 ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0003 | | .CONST 0x0003 ; Number of locals 077b INIT_0778: 077b e211 | | Load 0x1,0x11 077c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 077d e004 | | Load 0x0,0x4 077e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 077f 02c7 | | Declare_Variable Any 0780 e5ff | | Load 0x2,-0x1 0781 e014 | | Load 0x0,0x14 0782 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0783 a403 | | Store_Unchecked 0x2,0x3 0784 BODY_0778: 0784 00d9 | | Load_Top At_Offset_1 0785 0092 0a62 | b| Action Push_String_Extended,0xa62 ; "when " 0787 e211 | | Load 0x1,0x11 0788 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0789 003a | : | Store_Top Access,At_Offset_2 078a 00cf | | Action Mark_Auxiliary 078b 7818 |x | Jump 0x7a4 078c 00da | | Load_Top At_Offset_2 078d 00da | | Load_Top At_Offset_2 078e e004 | | Load 0x0,0x4 078f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0790 e004 | | Load 0x0,0x4 0791 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0792 e211 | | Load 0x1,0x11 0793 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0794 003b | ; | Store_Top Access,At_Offset_3 0795 00d9 | | Load_Top At_Offset_1 0796 e004 | | Load 0x0,0x4 0797 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0798 c403 | | Store 0x2,0x3 0799 00d9 | | Load_Top At_Offset_1 079a e004 | | Load 0x0,0x4 079b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 079c 7006 |p | Jump_Nonzero 0x7a3 079d 00da | | Load_Top At_Offset_2 079e 0092 0a63 | c| Action Push_String_Extended,0xa63 ; " | " 07a0 e211 | | Load 0x1,0x11 07a1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07a2 003b | ; | Store_Top Access,At_Offset_3 07a3 00c9 | | Action Pop_Auxiliary_Loop 07a4 00d9 | | Load_Top At_Offset_1 07a5 e004 | | Load 0x0,0x4 07a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07a7 6fe4 |o | Jump_Zero 0x78c 07a8 00ce | | Action Pop_Auxiliary 07a9 00d9 | | Load_Top At_Offset_1 07aa e211 | | Load 0x1,0x11 07ab 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07ad 0000 0000 | | .XXX[0x3] 07af 0000 | | 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07bc | | .CONST 0x07bc ; Address of begin 07b1 0004 | | .CONST 0x0004 ; Address of exception handler 07b2 0003 | | .CONST 0x0003 ; Number of locals 07b3 INIT_07b0: 07b3 e211 | | Load 0x1,0x11 07b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 07b5 e004 | | Load 0x0,0x4 07b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 07b7 02c7 | | Declare_Variable Any 07b8 e5ff | | Load 0x2,-0x1 07b9 e014 | | Load 0x0,0x14 07ba 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 07bb a403 | | Store_Unchecked 0x2,0x3 07bc BODY_07b0: 07bc 00cf | | Action Mark_Auxiliary 07bd 7818 |x | Jump 0x7d6 07be 00da | | Load_Top At_Offset_2 07bf 00da | | Load_Top At_Offset_2 07c0 e004 | | Load 0x0,0x4 07c1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07c2 e004 | | Load 0x0,0x4 07c3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 07c4 e211 | | Load 0x1,0x11 07c5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07c6 003b | ; | Store_Top Access,At_Offset_3 07c7 00d9 | | Load_Top At_Offset_1 07c8 e004 | | Load 0x0,0x4 07c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07ca c403 | | Store 0x2,0x3 07cb 00d9 | | Load_Top At_Offset_1 07cc e004 | | Load 0x0,0x4 07cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07ce 7006 |p | Jump_Nonzero 0x7d5 07cf 00da | | Load_Top At_Offset_2 07d0 0092 0a64 | d| Action Push_String_Extended,0xa64 ; "; " 07d2 e211 | | Load 0x1,0x11 07d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07d4 003b | ; | Store_Top Access,At_Offset_3 07d5 00c9 | | Action Pop_Auxiliary_Loop 07d6 00d9 | | Load_Top At_Offset_1 07d7 e004 | | Load 0x0,0x4 07d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07d9 6fe4 |o | Jump_Zero 0x7be 07da 00ce | | Action Pop_Auxiliary 07db 00d9 | | Load_Top At_Offset_1 07dc e211 | | Load 0x1,0x11 07dd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07df 0000 | | .XXX[0x1] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07ec | | .CONST 0x07ec ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0003 | | .CONST 0x0003 ; Number of locals 07e3 INIT_07e0: 07e3 e211 | | Load 0x1,0x11 07e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 07e5 e004 | | Load 0x0,0x4 07e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 07e7 02c7 | | Declare_Variable Any 07e8 e5ff | | Load 0x2,-0x1 07e9 e014 | | Load 0x0,0x14 07ea 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 07eb a403 | | Store_Unchecked 0x2,0x3 07ec BODY_07e0: 07ec 00cf | | Action Mark_Auxiliary 07ed 7818 |x | Jump 0x806 07ee 00da | | Load_Top At_Offset_2 07ef 00da | | Load_Top At_Offset_2 07f0 e004 | | Load 0x0,0x4 07f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07f2 e004 | | Load 0x0,0x4 07f3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 07f4 e211 | | Load 0x1,0x11 07f5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07f6 003b | ; | Store_Top Access,At_Offset_3 07f7 00d9 | | Load_Top At_Offset_1 07f8 e004 | | Load 0x0,0x4 07f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07fa c403 | | Store 0x2,0x3 07fb 00d9 | | Load_Top At_Offset_1 07fc e004 | | Load 0x0,0x4 07fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07fe 7006 |p | Jump_Nonzero 0x805 07ff 00da | | Load_Top At_Offset_2 0800 0092 0a65 | e| Action Push_String_Extended,0xa65 ; ", " 0802 e211 | | Load 0x1,0x11 0803 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0804 003b | ; | Store_Top Access,At_Offset_3 0805 00c9 | | Action Pop_Auxiliary_Loop 0806 00d9 | | Load_Top At_Offset_1 0807 e004 | | Load 0x0,0x4 0808 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0809 6fe4 |o | Jump_Zero 0x7ee 080a 00ce | | Action Pop_Auxiliary 080b 00d9 | | Load_Top At_Offset_1 080c e211 | | Load 0x1,0x11 080d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 080e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 080f 0000 | | .XXX[0x1] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 081d | | .CONST 0x081d ; Address of begin 0811 08b0 | | .CONST 0x08b0 ; Address of exception handler 0812 0002 | | .CONST 0x0002 ; Number of locals 0813 INIT_0810: 0813 e004 | | Load 0x0,0x4 0814 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0815 02c7 | | Declare_Variable Any 0816 4801 |H | Short_Literal 0x1 0817 e5ff | | Load 0x2,-0x1 0818 e004 | | Load 0x0,0x4 0819 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 081a e009 | | Load 0x0,0x9 081b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 081c a402 | | Store_Unchecked 0x2,0x2 081d BODY_0810: 081d e5fd | | Load 0x2,-0x3 081e 4605 |F | Jump_Case 0x6 081f 7882 |x | Jump 0x8a2 ; case 0x0 0820 7884 |x | Jump 0x8a5 ; case 0x1 0821 7887 |x | Jump 0x8a9 ; case 0x2 0822 7889 |x | Jump 0x8ac ; case 0x3 0823 787b |x{ | Jump 0x89f ; case 0x4 0824 7800 |x | Jump 0x825 ; case 0x5 0825 00d8 | | Load_Top At_Offset_0 0826 e004 | | Load 0x0,0x4 0827 180f | | Execute Package,Field_Execute,Field_Number 0xf 0828 6804 |h | Jump_Zero 0x82d 0829 00db | | Load_Top At_Offset_3 082a e009 | | Load 0x0,0x9 082b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 082c c402 | | Store 0x2,0x2 082d 00db | | Load_Top At_Offset_3 082e e009 | | Load 0x0,0x9 082f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0830 e009 | | Load 0x0,0x9 0831 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0832 6803 |h | Jump_Zero 0x836 0833 0092 0a66 | f| Action Push_String_Extended,0xa66 ; "GEN FORMAL" 0835 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0836 00d8 | | Load_Top At_Offset_0 0837 e009 | | Load 0x0,0x9 0838 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0839 680b |h | Jump_Zero 0x845 083a 0092 0a67 | g| Action Push_String_Extended,0xa67 ; "P(" 083c e5fd | | Load 0x2,-0x3 083d e5fe | | Load 0x2,-0x2 083e 00d8 | | Load_Top At_Offset_0 083f 822c | , | Call 0x1,0x2c 0840 01cc | | Execute Vector,Catenate 0841 0092 0a68 | h| Action Push_String_Extended,0xa68 ; ")" 0843 01cc | | Execute Vector,Catenate 0844 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0845 00d8 | | Load_Top At_Offset_0 0846 e009 | | Load 0x0,0x9 0847 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0848 680b |h | Jump_Zero 0x854 0849 0092 0a69 | i| Action Push_String_Extended,0xa69 ; "LP(" 084b e5fd | | Load 0x2,-0x3 084c e5fe | | Load 0x2,-0x2 084d 00d8 | | Load_Top At_Offset_0 084e 822c | , | Call 0x1,0x2c 084f 01cc | | Execute Vector,Catenate 0850 0092 0a68 | h| Action Push_String_Extended,0xa68 ; ")" 0852 01cc | | Execute Vector,Catenate 0853 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0854 e5fe | | Load 0x2,-0x2 0855 e014 | | Load 0x0,0x14 0856 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0857 460c |F | Jump_Case 0xd 0858 780f |x | Jump 0x868 ; case 0x0 0859 7811 |x | Jump 0x86b ; case 0x1 085a 7820 |x | Jump 0x87b ; case 0x2 085b 7822 |x" | Jump 0x87e ; case 0x3 085c 7824 |x$ | Jump 0x881 ; case 0x4 085d 7826 |x& | Jump 0x884 ; case 0x5 085e 7830 |x0 | Jump 0x88f ; case 0x6 085f 7832 |x2 | Jump 0x892 ; case 0x7 0860 7834 |x4 | Jump 0x895 ; case 0x8 0861 7836 |x6 | Jump 0x898 ; case 0x9 0862 7838 |x8 | Jump 0x89b ; case 0xa 0863 7839 |x9 | Jump 0x89d ; case 0xb 0864 7800 |x | Jump 0x865 ; case 0xc 0865 0092 0a6a | j| Action Push_String_Extended,0xa6a ; "UNKNOWN" 0867 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0868 0092 0a6b | k| Action Push_String_Extended,0xa6b ; "SUBTYPE" 086a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 086b e5fe | | Load 0x2,-0x2 086c e014 | | Load 0x0,0x14 086d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 086e 6809 |h | Jump_Zero 0x878 086f e5fe | | Load 0x2,-0x2 0870 8225 | % | Call 0x1,0x25 0871 6803 |h | Jump_Zero 0x875 0872 0092 0a61 | a| Action Push_String_Extended,0xa61 ; "BOOLEAN" 0874 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0875 0092 0a60 | `| Action Push_String_Extended,0xa60 ; "CHARACTER" 0877 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0878 0092 0a6c | l| Action Push_String_Extended,0xa6c ; "ENUM" 087a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 087b 0092 0a6d | m| Action Push_String_Extended,0xa6d ; "INTEGER" 087d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 087e 0092 0a6e | n| Action Push_String_Extended,0xa6e ; "FLOAT" 0880 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0881 0092 0a6f | o| Action Push_String_Extended,0xa6f ; "FIXED" 0883 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0884 e5fe | | Load 0x2,-0x2 0885 e014 | | Load 0x0,0x14 0886 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0887 8224 | $ | Call 0x1,0x24 0888 6803 |h | Jump_Zero 0x88c 0889 0092 0a70 | p| Action Push_String_Extended,0xa70 ; "STRING" 088b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 088c 0092 0a71 | q| Action Push_String_Extended,0xa71 ; "ARRAY" 088e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 088f 0092 0a72 | r| Action Push_String_Extended,0xa72 ; "RECORD" 0891 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0892 0092 0a73 | s| Action Push_String_Extended,0xa73 ; "ACCESS" 0894 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0895 0092 0a74 | t| Action Push_String_Extended,0xa74 ; "DERIVED" 0897 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0898 0092 0a75 | u| Action Push_String_Extended,0xa75 ; "TASK" 089a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 089b 00ea | | Load_Encached Null_String_Cache 089c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 089d 00ea | | Load_Encached Null_String_Cache 089e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 089f 00db | | Load_Top At_Offset_3 08a0 8229 | ) | Call 0x1,0x29 08a1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08a2 00db | | Load_Top At_Offset_3 08a3 822b | + | Call 0x1,0x2b 08a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08a5 00db | | Load_Top At_Offset_3 08a6 e004 | | Load 0x0,0x4 08a7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 08a8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08a9 00db | | Load_Top At_Offset_3 08aa 822a | * | Call 0x1,0x2a 08ab 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08ac 00db | | Load_Top At_Offset_3 08ad e004 | | Load 0x0,0x4 08ae 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 08af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08b0 TRAP_0810: 08b0 0007 | | Action Break_Optional 08b1 e5ff | | Load 0x2,-0x1 08b2 e004 | | Load 0x0,0x4 08b3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 08b4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08b5 0000 0000 | | .XXX[0x3] 08b7 0000 | | 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; SUBPROGRAM 08b8 ; -------------------------------------------------------------------------------------- 08b8 08bb | | .CONST 0x08bb ; Address of begin 08b9 0004 | | .CONST 0x0004 ; Address of exception handler 08ba 0001 | | .CONST 0x0001 ; Number of locals 08bb BODY_08b8: 08bb INIT_08b8: 08bb 00da | | Load_Top At_Offset_2 08bc 4605 |F | Jump_Case 0x6 08bd 7807 |x | Jump 0x8c5 ; case 0x0 08be 7809 |x | Jump 0x8c8 ; case 0x1 08bf 780b |x | Jump 0x8cb ; case 0x2 08c0 780d |x | Jump 0x8ce ; case 0x3 08c1 780f |x | Jump 0x8d1 ; case 0x4 08c2 7800 |x | Jump 0x8c3 ; case 0x5 08c3 00ea | | Load_Encached Null_String_Cache 08c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c5 0092 0a76 | v| Action Push_String_Extended,0xa76 ; "^INDEX" 08c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c8 0092 0a77 | w| Action Push_String_Extended,0xa77 ; "^CONSTRAINT" 08ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08cb 0092 0a78 | x| Action Push_String_Extended,0xa78 ; "^DISCRIMS" 08cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08ce 0092 0a77 | w| Action Push_String_Extended,0xa77 ; "^CONSTRAINT" 08d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d1 0092 0a79 | y| Action Push_String_Extended,0xa79 ; ">>CHOICE" 08d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d4 0000 0000 | | .BLANK 0000[0x4] 08d8 ; -------------------------------------------------------------------------------------- 08d8 ; SUBPROGRAM 08d8 ; -------------------------------------------------------------------------------------- 08d8 08df | | .CONST 0x08df ; Address of begin 08d9 0004 | | .CONST 0x0004 ; Address of exception handler 08da 0002 | | .CONST 0x0002 ; Number of locals 08db INIT_08d8: 08db 00da | | Load_Top At_Offset_2 08dc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 08dd e211 | | Load 0x1,0x11 08de 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08df BODY_08d8: 08df 00db | | Load_Top At_Offset_3 08e0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 08e1 60b6 |` | Indirect_Literal Discrete,0x998,{0x7fffffff, 0xffffffff} 08e2 027f | | Execute Discrete,Equal 08e3 680f |h | Jump_Zero 0x8f3 08e4 00ea | | Load_Encached Null_String_Cache 08e5 e019 | | Load 0x0,0x19 08e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08e7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 08e8 e019 | | Load 0x0,0x19 08e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08ea 180e | | Execute Package,Field_Execute,Field_Number 0xe 08eb e004 | | Load 0x0,0x4 08ec 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 08ed e004 | | Load 0x0,0x4 08ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08ef 00ea | | Load_Encached Null_String_Cache 08f0 e40a | | Load 0x2,0xa 08f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08f2 7849 |xI | Jump 0x93c 08f3 00db | | Load_Top At_Offset_3 08f4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 08f5 702f |p/ | Jump_Nonzero 0x925 08f6 00d8 | | Load_Top At_Offset_0 08f7 01db | | Execute Vector,Length 08f8 7015 |p | Jump_Nonzero 0x90e 08f9 0092 0a7a | z| Action Push_String_Extended,0xa7a ; "Size cannot be statically computed, expression unknown" 08fb e019 | | Load 0x0,0x19 08fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08fd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 08fe e019 | | Load 0x0,0x19 08ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0900 180e | | Execute Package,Field_Execute,Field_Number 0xe 0901 e004 | | Load 0x0,0x4 0902 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0903 e004 | | Load 0x0,0x4 0904 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0905 482e |H. | Short_Literal 0x2e 0906 0092 0a7b | {| Action Push_String_Extended,0xa7b ; "NS" 0908 e7ff | | Load 0x3,-0x1 0909 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 090a 8228 | ( | Call 0x1,0x28 090b e40a | | Load 0x2,0xa 090c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 090d 782e |x. | Jump 0x93c 090e 0092 0a7c | || Action Push_String_Extended,0xa7c ; "Size cannot be statically computed, expression: " 0910 00d9 | | Load_Top At_Offset_1 0911 01cc | | Execute Vector,Catenate 0912 e019 | | Load 0x0,0x19 0913 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0914 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0915 e019 | | Load 0x0,0x19 0916 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0917 180e | | Execute Package,Field_Execute,Field_Number 0xe 0918 e004 | | Load 0x0,0x4 0919 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 091a e004 | | Load 0x0,0x4 091b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 091c 482e |H. | Short_Literal 0x2e 091d 0092 0a7b | {| Action Push_String_Extended,0xa7b ; "NS" 091f e7ff | | Load 0x3,-0x1 0920 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0921 8228 | ( | Call 0x1,0x28 0922 e40a | | Load 0x2,0xa 0923 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0924 7817 |x | Jump 0x93c 0925 0092 0a7d | }| Action Push_String_Extended,0xa7d ; "Size in bytes" 0927 e019 | | Load 0x0,0x19 0928 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0929 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 092a e019 | | Load 0x0,0x19 092b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 092c 180e | | Execute Package,Field_Execute,Field_Number 0xe 092d e004 | | Load 0x0,0x4 092e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 092f e004 | | Load 0x0,0x4 0930 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0931 482e |H. | Short_Literal 0x2e 0932 e7ff | | Load 0x3,-0x1 0933 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0934 09fd | | Execute_Immediate Binary_Scale,-0x3 0935 00e0 | | Load_Encached Standard_Cache 0936 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0937 e7ff | | Load 0x3,-0x1 0938 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0939 8228 | ( | Call 0x1,0x28 093a e40a | | Load 0x2,0xa 093b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 093c 00db | | Load_Top At_Offset_3 093d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 093e 0f05 | | Execute_Immediate Equal,0x5 093f 682d |h- | Jump_Zero 0x96d 0940 0092 0a7e | ~| Action Push_String_Extended,0xa7e ; "Name and kind of the component" 0942 e019 | | Load 0x0,0x19 0943 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0944 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0945 e019 | | Load 0x0,0x19 0946 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0947 180e | | Execute Package,Field_Execute,Field_Number 0xe 0948 e004 | | Load 0x0,0x4 0949 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 094a e7ff | | Load 0x3,-0x1 094b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 094c 4820 |H | Short_Literal 0x20 094d e7ff | | Load 0x3,-0x1 094e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 094f e009 | | Load 0x0,0x9 0950 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0951 e009 | | Load 0x0,0x9 0952 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0953 0092 0a7f | | Action Push_String_Extended,0xa7f ; " : " 0955 01cc | | Execute Vector,Catenate 0956 e7ff | | Load 0x3,-0x1 0957 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0958 e7ff | | Load 0x3,-0x1 0959 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 095a e014 | | Load 0x0,0x14 095b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 095c e7ff | | Load 0x3,-0x1 095d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 095e 822c | , | Call 0x1,0x2c 095f 01cc | | Execute Vector,Catenate 0960 e7ff | | Load 0x3,-0x1 0961 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0962 0aff | | Execute_Immediate Plus,-0x1 0963 0902 | | Execute_Immediate Binary_Scale,0x2 0964 00d8 | | Load_Top At_Offset_0 0965 00e3 | | Load_Encached Natural_Cache 0966 0260 | ` | Execute Discrete,In_Type 0967 7001 |p | Jump_Nonzero 0x969 0968 0801 | | Execute_Immediate Raise,0x1 0969 8228 | ( | Call 0x1,0x28 096a e40a | | Load 0x2,0xa 096b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 096c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 096d 0092 0a7e | ~| Action Push_String_Extended,0xa7e ; "Name and kind of the component" 096f e019 | | Load 0x0,0x19 0970 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0971 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0972 e019 | | Load 0x0,0x19 0973 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0974 180e | | Execute Package,Field_Execute,Field_Number 0xe 0975 e004 | | Load 0x0,0x4 0976 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0977 e7ff | | Load 0x3,-0x1 0978 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0979 4820 |H | Short_Literal 0x20 097a e7ff | | Load 0x3,-0x1 097b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 097c 822d | - | Call 0x1,0x2d 097d e7ff | | Load 0x3,-0x1 097e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 097f 0aff | | Execute_Immediate Plus,-0x1 0980 0902 | | Execute_Immediate Binary_Scale,0x2 0981 00d8 | | Load_Top At_Offset_0 0982 00e3 | | Load_Encached Natural_Cache 0983 0260 | ` | Execute Discrete,In_Type 0984 7001 |p | Jump_Nonzero 0x986 0985 0801 | | Execute_Immediate Raise,0x1 0986 8228 | ( | Call 0x1,0x28 0987 0092 0a80 | | Action Push_String_Extended,0xa80 ; " - " 0989 01cc | | Execute Vector,Catenate 098a e7ff | | Load 0x3,-0x1 098b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 098c e7ff | | Load 0x3,-0x1 098d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 098e e7ff | | Load 0x3,-0x1 098f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0990 822c | , | Call 0x1,0x2c 0991 01cc | | Execute Vector,Catenate 0992 e40a | | Load 0x2,0xa 0993 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0994 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0995 0000 0000 | | .XXX[0x3] 0997 0000 | | 0998 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 099c 0000 0000 | | .BLANK 0000[0x4] 09a0 ; -------------------------------------------------------------------------------------- 09a0 ; SUBPROGRAM 09a0 ; -------------------------------------------------------------------------------------- 09a0 09a7 | | .CONST 0x09a7 ; Address of begin 09a1 0004 | | .CONST 0x0004 ; Address of exception handler 09a2 0002 | | .CONST 0x0002 ; Number of locals 09a3 INIT_09a0: 09a3 e214 | | Load 0x1,0x14 09a4 0322 | " | Declare_Variable Record 09a5 00d8 | | Load_Top At_Offset_0 09a6 1c00 | | Execute_Immediate Run_Utility,0x0 09a7 BODY_09a0: 09a7 e212 | | Load 0x1,0x12 09a8 00d9 | | Load_Top At_Offset_1 09a9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09aa e402 | | Load 0x2,0x2 09ab 00d9 | | Load_Top At_Offset_1 09ac 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 09ad 67ea |g | Indirect_Literal Discrete,0x998,{0x7fffffff, 0xffffffff} 09ae 00d9 | | Load_Top At_Offset_1 09af 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09b0 4800 |H | Short_Literal 0x0 09b1 00d9 | | Load_Top At_Offset_1 09b2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 09b3 e216 | | Load 0x1,0x16 09b4 00d9 | | Load_Top At_Offset_1 09b5 e215 | | Load 0x1,0x15 09b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09b7 a216 | | Store_Unchecked 0x1,0x16 09b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09b9 0000 0000 | | .BLANK 0000[0x7] 09c0 ; -------------------------------------------------------------------------------------- 09c0 ; SUBPROGRAM 09c0 ; -------------------------------------------------------------------------------------- 09c0 09c7 | | .CONST 0x09c7 ; Address of begin 09c1 0004 | | .CONST 0x0004 ; Address of exception handler 09c2 0002 | | .CONST 0x0002 ; Number of locals 09c3 INIT_09c0: 09c3 e214 | | Load 0x1,0x14 09c4 0322 | " | Declare_Variable Record 09c5 00d8 | | Load_Top At_Offset_0 09c6 1c00 | | Execute_Immediate Run_Utility,0x0 09c7 BODY_09c0: 09c7 e212 | | Load 0x1,0x12 09c8 00d9 | | Load_Top At_Offset_1 09c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09ca e402 | | Load 0x2,0x2 09cb 00d9 | | Load_Top At_Offset_1 09cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 09cd 600e |` | Indirect_Literal Discrete,0x9dc,{0x7fffffff, 0xffffffff} 09ce 00d9 | | Load_Top At_Offset_1 09cf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09d0 4802 |H | Short_Literal 0x2 09d1 00d9 | | Load_Top At_Offset_1 09d2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 09d3 e216 | | Load 0x1,0x16 09d4 00d9 | | Load_Top At_Offset_1 09d5 e215 | | Load 0x1,0x15 09d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09d7 a216 | | Store_Unchecked 0x1,0x16 09d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09d9 0000 0000 | | .XXX[0x3] 09db 0000 | | 09dc 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 09e0 ; -------------------------------------------------------------------------------------- 09e0 ; SUBPROGRAM 09e0 ; -------------------------------------------------------------------------------------- 09e0 09f1 | | .CONST 0x09f1 ; Address of begin 09e1 0a1b | | .CONST 0x0a1b ; Address of exception handler 09e2 0006 | | .CONST 0x0006 ; Number of locals 09e3 INIT_09e0: 09e3 e004 | | Load 0x0,0x4 09e4 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 09e5 02c7 | | Declare_Variable Any 09e6 00d8 | | Load_Top At_Offset_0 09e7 1c00 | | Execute_Immediate Run_Utility,0x0 09e8 e004 | | Load 0x0,0x4 09e9 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 09ea 02c7 | | Declare_Variable Any 09eb 00d8 | | Load_Top At_Offset_0 09ec 1c00 | | Execute_Immediate Run_Utility,0x0 09ed e005 | | Load 0x0,0x5 09ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09ef 03e9 | | Declare_Variable Discrete,Duplicate 09f0 03e9 | | Declare_Variable Discrete,Duplicate 09f1 BODY_09e0: 09f1 e602 | | Load 0x3,0x2 09f2 0120 | | Execute Any,Is_Value 09f3 6803 |h | Jump_Zero 0x9f7 09f4 e014 | | Load 0x0,0x14 09f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09f6 7801 |x | Jump 0x9f8 09f7 e602 | | Load 0x3,0x2 09f8 e603 | | Load 0x3,0x3 09f9 0120 | | Execute Any,Is_Value 09fa 6803 |h | Jump_Zero 0x9fe 09fb e014 | | Load 0x0,0x14 09fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09fd 7801 |x | Jump 0x9ff 09fe e603 | | Load 0x3,0x3 09ff e403 | | Load 0x2,0x3 0a00 e014 | | Load 0x0,0x14 0a01 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0a02 e014 | | Load 0x0,0x14 0a03 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0a04 c603 | | Store 0x3,0x3 0a05 c602 | | Store 0x3,0x2 0a06 00db | | Load_Top At_Offset_3 0a07 e017 | | Load 0x0,0x17 0a08 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0a09 0059 | Y | Store_Top Discrete,At_Offset_1 0a0a e602 | | Load 0x3,0x2 0a0b e017 | | Load 0x0,0x17 0a0c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0a0d 005a | Z | Store_Top Discrete,At_Offset_2 0a0e e404 | | Load 0x2,0x4 0a0f e017 | | Load 0x0,0x17 0a10 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0a11 005b | [ | Store_Top Discrete,At_Offset_3 0a12 00da | | Load_Top At_Offset_2 0a13 00da | | Load_Top At_Offset_2 0a14 027a | z | Execute Discrete,Less_Equal 0a15 00db | | Load_Top At_Offset_3 0a16 00da | | Load_Top At_Offset_2 0a17 027b | { | Execute Discrete,Greater_Equal 0a18 0279 | y | Execute Discrete,And 0a19 00cb | | Action Pop_Block_With_Result 0a1a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a1b TRAP_09e0: 0a1b e017 | | Load 0x0,0x17 0a1c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0a1d 010f | | Execute Exception,Equal 0a1e 6803 |h | Jump_Zero 0xa22 0a1f 4800 |H | Short_Literal 0x0 0a20 00cb | | Action Pop_Block_With_Result 0a21 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a22 0100 | | Execute Exception,Raise 0a23 0000 0000 | | .BLANK 0000[0x5] 0a28 ; -------------------------------------------------------------------------------------- 0a28 ; SUBPROGRAM 0a28 ; -------------------------------------------------------------------------------------- 0a28 0a2b | + | .CONST 0x0a2b ; Address of begin 0a29 0004 | | .CONST 0x0004 ; Address of exception handler 0a2a 0001 | | .CONST 0x0001 ; Number of locals 0a2b BODY_0a28: 0a2b INIT_0a28: 0a2b 00da | | Load_Top At_Offset_2 0a2c e014 | | Load 0x0,0x14 0a2d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0a2e 4606 |F | Jump_Case 0x7 0a2f 781b |x | Jump 0xa4b ; case 0x0 0a30 781a |x | Jump 0xa4b ; case 0x1 0a31 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2 0a32 7803 |x | Jump 0xa36 ; case 0x3 0a33 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4 0a34 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5 0a35 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6 0a36 e403 | | Load 0x2,0x3 0a37 7004 |p | Jump_Nonzero 0xa3c 0a38 00da | | Load_Top At_Offset_2 0a39 c5fb | | Store 0x2,-0x5 0a3a 4801 |H | Short_Literal 0x1 0a3b a403 | | Store_Unchecked 0x2,0x3 0a3c e402 | | Load 0x2,0x2 0a3d 700c |p | Jump_Nonzero 0xa4a 0a3e 00da | | Load_Top At_Offset_2 0a3f e014 | | Load 0x0,0x14 0a40 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0a41 e004 | | Load 0x0,0x4 0a42 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a43 7006 |p | Jump_Nonzero 0xa4a 0a44 00da | | Load_Top At_Offset_2 0a45 e014 | | Load 0x0,0x14 0a46 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0a47 c5fc | | Store 0x2,-0x4 0a48 4801 |H | Short_Literal 0x1 0a49 a402 | | Store_Unchecked 0x2,0x2 0a4a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a4b e402 | | Load 0x2,0x2 0a4c 7004 |p | Jump_Nonzero 0xa51 0a4d 00da | | Load_Top At_Offset_2 0a4e c5fc | | Store 0x2,-0x4 0a4f 4801 |H | Short_Literal 0x1 0a50 a402 | | Store_Unchecked 0x2,0x2 0a51 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a52 ; -------------------------------------------------------------------------------------- 0a52 ; STRING TABLE 0a52 ; -------------------------------------------------------------------------------------- 0a52 0060 | ` | .STRTAB 0x0060->0x0a82 ; "ARRAY_INDEX" 0a53 0069 | i | .STRTAB 0x0069->0x0a87 ; "INDEX_CONSTRAINT" 0a54 0077 | w | .STRTAB 0x0077->0x0a8f ; "DISCRIMINANT" 0a55 0081 | | .STRTAB 0x0081->0x0a95 ; "DISCRIMINANT_CONSTRAINT" 0a56 0096 | | .STRTAB 0x0096->0x0aa1 ; "CHOICE" 0a57 009a | | .STRTAB 0x009a->0x0aa4 ; "NOT_SPECIAL" 0a58 00a3 | | .STRTAB 0x00a3->0x0aa9 ; " " 0a59 00a2 | | .STRTAB 0x00a2->0x0aaa ; "Size" 0a5a 00a4 | | .STRTAB 0x00a4->0x0aac ; "Items" 0a5b 00a7 | | .STRTAB 0x00a7->0x0aae ; "INFORMATION" 0a5c 00b0 | | .STRTAB 0x00b0->0x0ab4 ; "EXPLODED TYPE DISPLAY" 0a5d 00c3 | | .STRTAB 0x00c3->0x0abe ; "_" 0a5e 00c2 | | .STRTAB 0x00c2->0x0abf ; "type_display" 0a5f 00cc | | .STRTAB 0x00cc->0x0ac5 ; "Image is not a type declaration" 0a60 00e9 | | .STRTAB 0x00e9->0x0ad4 ; "CHARACTER" 0a61 00f0 | | .STRTAB 0x00f0->0x0ad9 ; "BOOLEAN" 0a62 00f5 | | .STRTAB 0x00f5->0x0adc ; "when " 0a63 00f8 | | .STRTAB 0x00f8->0x0adf ; " | " 0a64 00f9 | | .STRTAB 0x00f9->0x0ae0 ; "; " 0a65 00f9 | | .STRTAB 0x00f9->0x0ae1 ; ", " 0a66 00f9 | | .STRTAB 0x00f9->0x0ae2 ; "GEN FORMAL" 0a67 0101 | | .STRTAB 0x0101->0x0ae7 ; "P(" 0a68 0101 | | .STRTAB 0x0101->0x0ae8 ; ")" 0a69 0100 | | .STRTAB 0x0100->0x0ae9 ; "LP(" 0a6a 0101 | | .STRTAB 0x0101->0x0aea ; "UNKNOWN" 0a6b 0106 | | .STRTAB 0x0106->0x0aee ; "SUBTYPE" 0a6c 010b | | .STRTAB 0x010b->0x0af1 ; "ENUM" 0a6d 010d | | .STRTAB 0x010d->0x0af3 ; "INTEGER" 0a6e 0112 | | .STRTAB 0x0112->0x0af7 ; "FLOAT" 0a6f 0115 | | .STRTAB 0x0115->0x0af9 ; "FIXED" 0a70 0118 | | .STRTAB 0x0118->0x0afc ; "STRING" 0a71 011c | | .STRTAB 0x011c->0x0aff ; "ARRAY" 0a72 011f | | .STRTAB 0x011f->0x0b01 ; "RECORD" 0a73 0123 | # | .STRTAB 0x0123->0x0b04 ; "ACCESS" 0a74 0127 | ' | .STRTAB 0x0127->0x0b07 ; "DERIVED" 0a75 012c | , | .STRTAB 0x012c->0x0b0b ; "TASK" 0a76 012e | . | .STRTAB 0x012e->0x0b0d ; "^INDEX" 0a77 0132 | 2 | .STRTAB 0x0132->0x0b10 ; "^CONSTRAINT" 0a78 013b | ; | .STRTAB 0x013b->0x0b15 ; "^DISCRIMS" 0a79 0142 | B | .STRTAB 0x0142->0x0b1a ; ">>CHOICE" 0a7a 0148 | H | .STRTAB 0x0148->0x0b1e ; "Size cannot be statically computed, expression unknown" 0a7b 017c | | | .STRTAB 0x017c->0x0b39 ; "NS" 0a7c 017c | | | .STRTAB 0x017c->0x0b3a ; "Size cannot be statically computed, expression: " 0a7d 01aa | | .STRTAB 0x01aa->0x0b52 ; "Size in bytes" 0a7e 01b5 | | .STRTAB 0x01b5->0x0b58 ; "Name and kind of the component" 0a7f 01d1 | | .STRTAB 0x01d1->0x0b67 ; " : " 0a80 01d2 | | .STRTAB 0x01d2->0x0b69 ; " - " 0a81 01d3 | | .STREND 0x01d3->0x0b6a 0a82 4152 5241 |ARRA| .STRTAB_STRINGS 0b6b 0000 0000 | | .BLANK 0000[0x5] 0b70 ; -------------------------------------------------------------------------------------- 0b70 ; Debug Table 0b70 ; -------------------------------------------------------------------------------------- 0b70 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f9a,0x0000,0x0001,0x0022 0b76 000b 0bfe | | .DBG4T 0x000b,0x0bfe,0x8000,0x0000 0b7a 0016 0c02 | | .DBG4T 0x0016,0x0c02,0x8000,0x8000 0b7e 007b 0c48 | { H| .DBG4T 0x007b,0x0c48,0x0001,0x4000 0b82 010b 0c72 | r| .DBG4T 0x010b,0x0c72,0x0001,0x0000 0b86 0153 0000 | S | .DBG4T 0x0153,0x0000,0x0005,0x0000 0b8a 017b 0000 | { | .DBG4T 0x017b,0x0000,0x0005,0x0000 0b8e 019b 0c7a | z| .DBG4T 0x019b,0x0c7a,0x0001,0x4000 0b92 0283 0cc7 | | .DBG4T 0x0283,0x0cc7,0x0001,0x4000 0b96 03cb 0d54 | T| .DBG4T 0x03cb,0x0d54,0x0001,0x4000 0b9a 03eb 0d60 | `| .DBG4T 0x03eb,0x0d60,0x0002,0x0000 0b9e 0403 0d65 | e| .DBG4T 0x0403,0x0d65,0x0001,0x0000 0ba2 041b 0d6c | l| .DBG4T 0x041b,0x0d6c,0x0001,0x0000 0ba6 042b 0d70 | + p| .DBG4T 0x042b,0x0d70,0x0002,0x0000 0baa 0443 0d77 | C w| .DBG4T 0x0443,0x0d77,0x0002,0x4000 0bae 046b 0d85 | k | .DBG4T 0x046b,0x0d85,0x0002,0x4000 0bb2 04bb 0da4 | | .DBG4T 0x04bb,0x0da4,0x0001,0x4000 0bb6 05cb 0e15 | | .DBG4T 0x05cb,0x0e15,0x0002,0x4000 0bba 05f3 0e25 | %| .DBG4T 0x05f3,0x0e25,0x0001,0x0000 0bbe 0623 0e2c | # ,| .DBG4T 0x0623,0x0e2c,0x0001,0x4000 0bc2 067b 0e43 | { C| .DBG4T 0x067b,0x0e43,0x0002,0x0000 0bc6 069b 0e47 | G| .DBG4T 0x069b,0x0e47,0x0002,0x0000 0bca 06bb 0e4b | K| .DBG4T 0x06bb,0x0e4b,0x0001,0x0000 0bce 070b 0e5f | _| .DBG4T 0x070b,0x0e5f,0x0001,0x4000 0bd2 075b 0e80 | [ | .DBG4T 0x075b,0x0e80,0x0002,0x0000 0bd6 077b 0e84 | { | .DBG4T 0x077b,0x0e84,0x0002,0x4000 0bda 07b3 0e96 | | .DBG4T 0x07b3,0x0e96,0x0002,0x4000 0bde 07e3 0ea6 | | .DBG4T 0x07e3,0x0ea6,0x0002,0x4000 0be2 0813 0eb6 | | .DBG4T 0x0813,0x0eb6,0x0002,0x4000 0be6 08bb 0eff | | .DBG4T 0x08bb,0x0eff,0x0002,0x4000 0bea 08db 0f0f | | .DBG4T 0x08db,0x0f0f,0x0001,0x0000 0bee 09a3 0f1c | | .DBG4T 0x09a3,0x0f1c,0x0004,0x0000 0bf2 09c3 0f24 | $| .DBG4T 0x09c3,0x0f24,0x0004,0x0000 0bf6 09e3 0f2c | ,| .DBG4T 0x09e3,0x0f2c,0x0004,0x0000 0bfa 0a2b 0f36 | + 6| .DBG4T 0x0a2b,0x0f36,0x0001,0x4000 0bfe ; -------------------------------------------------------------------------------------- 0bfe ; Debug chain 0bfe ; -------------------------------------------------------------------------------------- 0bfe 0002 0000 | | .DBGLEN 0x0002,0x0000 0c00 000f 0012 | | .DBGLNO 0x000f,0x0012 0c02 ; -------------------------------------------------------------------------------------- 0c02 ; Debug chain 0c02 ; -------------------------------------------------------------------------------------- 0c02 0022 0000 | " | .DBGLEN 0x0022,0x0000 0c04 0016 001d | | .DBGLNO 0x0016,0x001d,0x001e,0x0023,0x0030,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f 0c26 0003 0004 | | .XXX[0x22] 0c28 0005 0006 | | 0c2a 0007 0008 | | 0c2c 000f 0010 | | 0c2e 0011 0012 | | 0c30 0013 0014 | | 0c32 0015 0016 | | 0c34 0017 0018 | | 0c36 0019 001a | | 0c38 001b 001c | | 0c3a 001d 001e | | 0c3c 001f 0020 | | 0c3e 0021 0022 | ! "| 0c40 0023 0024 | # $| 0c42 0025 0026 | % &| 0c44 0027 0028 | ' (| 0c46 0029 002a | ) *| 0c48 ; -------------------------------------------------------------------------------------- 0c48 ; Debug chain 0c48 ; -------------------------------------------------------------------------------------- 0c48 000a 000f | | .DBGLEN 0x000a,0x000f 0c4a 007b 007c | { || .DBGLNO 0x007b,0x007c,0x0083,0x0088,0x008d,0x0091,0x0093,0x0095,0x0096,0x009f,0x00a1,0x00a3,0x00ab,0x00b1,0x00b7,0x00bf,0x00c3,0x00c8,0x00cd,0x00d6,0x00e0,0x00ea,0x00f4,0x00fa,0x00fe 0c63 0001 0002 | | .XXX[0xf] 0c65 0003 0004 | | 0c67 0005 0007 | | 0c69 0008 0006 | | 0c6b 0009 000a | | 0c6d 000b 000c | | 0c6f 000d 000e | | 0c71 000f | | 0c72 ; -------------------------------------------------------------------------------------- 0c72 ; Debug chain 0c72 ; -------------------------------------------------------------------------------------- 0c72 0001 0005 | | .DBGLEN 0x0001,0x0005 0c74 010b 0119 | | .DBGLNO 0x010b,0x0119,0x011f,0x0142,0x0149,0x014b 0c7a ; -------------------------------------------------------------------------------------- 0c7a ; Debug chain 0c7a ; -------------------------------------------------------------------------------------- 0c7a 0007 0022 | "| .DBGLEN 0x0007,0x0022 0c7c 019b 01a2 | | .DBGLNO 0x019b,0x01a2,0x01ac,0x01ae,0x01b0,0x01b2,0x01b3,0x01b7,0x01b9,0x01bb,0x01cc,0x01ce,0x01d1,0x01da,0x01dc,0x01e3,0x01e6,0x01ef,0x01f1,0x01f8,0x01fb,0x020f,0x0219,0x021b,0x0222,0x0225,0x022e,0x0237,0x0239,0x0240,0x024a,0x024d,0x0250,0x0253,0x0256,0x025c,0x0266,0x0269,0x026c,0x026f,0x0272 0ca5 0001 0002 | | .XXX[0x22] 0ca7 0003 0021 | !| 0ca9 0022 0004 | " | 0cab 0005 0006 | | 0cad 0007 0008 | | 0caf 0009 000a | | 0cb1 000b 000c | | 0cb3 000d 000e | | 0cb5 000f 0010 | | 0cb7 0011 0012 | | 0cb9 0013 0014 | | 0cbb 0015 0016 | | 0cbd 0017 0018 | | 0cbf 0019 001a | | 0cc1 001b 001c | | 0cc3 001d 001e | | 0cc5 001f 0020 | | 0cc7 ; -------------------------------------------------------------------------------------- 0cc7 ; Debug chain 0cc7 ; -------------------------------------------------------------------------------------- 0cc7 0007 0042 | B| .DBGLEN 0x0007,0x0042 0cc9 0283 028a | | .DBGLNO 0x0283,0x028a,0x028c,0x028e,0x0290,0x029f,0x02a0,0x02a8,0x02ab,0x02ae,0x02b1,0x02b3,0x02b6,0x02ba,0x02bc,0x02bd,0x02ce,0x02d0,0x02d2,0x02d3,0x02d7,0x02db,0x02dd,0x02de,0x02ea,0x02eb,0x02ee,0x02f1,0x02f4,0x02f7,0x02fa,0x02fd,0x0304,0x030a,0x030e,0x030f,0x031a,0x031c,0x0322,0x0323,0x032e,0x0337,0x0339,0x033f,0x0340,0x0343,0x0345,0x0347,0x0348,0x035d,0x0367,0x0369,0x036f,0x0370,0x0374,0x037e,0x0380,0x0382,0x0383,0x038a,0x038c,0x038d,0x0398,0x039b,0x039f,0x03a0,0x03a1,0x03a8,0x03ac,0x03b4,0x03b7,0x03ba,0x03bf 0d12 0001 0002 | | .XXX[0x42] 0d14 0003 0004 | | 0d16 0005 0007 | | 0d18 0008 0009 | | 0d1a 000a 003d | =| 0d1c 003e 003f | > ?| 0d1e 000b 000c | | 0d20 000d 000e | | 0d22 000f 0010 | | 0d24 0011 0012 | | 0d26 0013 0014 | | 0d28 0015 0016 | | 0d2a 0017 0018 | | 0d2c 0019 001a | | 0d2e 001b 001c | | 0d30 001d 001e | | 0d32 001f 0020 | | 0d34 0021 0022 | ! "| 0d36 0023 0024 | # $| 0d38 0025 0026 | % &| 0d3a 0027 0028 | ' (| 0d3c 0029 002a | ) *| 0d3e 002b 002c | + ,| 0d40 002d 002e | - .| 0d42 002f 0030 | / 0| 0d44 0031 0032 | 1 2| 0d46 0033 0034 | 3 4| 0d48 0035 0036 | 5 6| 0d4a 0037 0038 | 7 8| 0d4c 0039 003a | 9 :| 0d4e 003b 003c | ; <| 0d50 0040 0041 | @ A| 0d52 0042 0043 | B C| 0d54 ; -------------------------------------------------------------------------------------- 0d54 ; Debug chain 0d54 ; -------------------------------------------------------------------------------------- 0d54 0002 0004 | | .DBGLEN 0x0002,0x0004 0d56 03cb 03d2 | | .DBGLNO 0x03cb,0x03d2,0x03d7,0x03da,0x03df,0x03e4 0d5c 0002 0003 | | .XXX[0x4] 0d5e 0001 0004 | | 0d60 ; -------------------------------------------------------------------------------------- 0d60 ; Debug chain 0d60 ; -------------------------------------------------------------------------------------- 0d60 0000 0003 | | .DBGLEN 0x0000,0x0003 0d62 03eb 03ef | | .DBGLNO 0x03eb,0x03ef,0x03f1 0d65 ; -------------------------------------------------------------------------------------- 0d65 ; Debug chain 0d65 ; -------------------------------------------------------------------------------------- 0d65 0000 0005 | | .DBGLEN 0x0000,0x0005 0d67 0403 0407 | | .DBGLNO 0x0403,0x0407,0x040b,0x040e,0x0410 0d6c ; -------------------------------------------------------------------------------------- 0d6c ; Debug chain 0d6c ; -------------------------------------------------------------------------------------- 0d6c 0000 0002 | | .DBGLEN 0x0000,0x0002 0d6e 041b 041e | | .DBGLNO 0x041b,0x041e 0d70 ; -------------------------------------------------------------------------------------- 0d70 ; Debug chain 0d70 ; -------------------------------------------------------------------------------------- 0d70 0001 0004 | | .DBGLEN 0x0001,0x0004 0d72 042b 042d | + -| .DBGLNO 0x042b,0x042d,0x0432,0x0436,0x043a 0d77 ; -------------------------------------------------------------------------------------- 0d77 ; Debug chain 0d77 ; -------------------------------------------------------------------------------------- 0d77 0002 0005 | | .DBGLEN 0x0002,0x0005 0d79 0443 044a | C J| .DBGLNO 0x0443,0x044a,0x0451,0x0455,0x045a,0x045d,0x0462 0d80 0002 0003 | | .XXX[0x5] 0d82 0005 0004 | | 0d84 0001 | | 0d85 ; -------------------------------------------------------------------------------------- 0d85 ; Debug chain 0d85 ; -------------------------------------------------------------------------------------- 0d85 0003 000d | | .DBGLEN 0x0003,0x000d 0d87 046b 0470 | k p| .DBGLNO 0x046b,0x0470,0x0475,0x047c,0x0480,0x0482,0x0487,0x048b,0x0494,0x0496,0x0498,0x049a,0x049c,0x04a5,0x04aa,0x04af 0d97 0001 0002 | | .XXX[0xd] 0d99 0003 0005 | | 0d9b 0006 000b | | 0d9d 0007 0008 | | 0d9f 0009 000a | | 0da1 000c 0004 | | 0da3 000d | | 0da4 ; -------------------------------------------------------------------------------------- 0da4 ; Debug chain 0da4 ; -------------------------------------------------------------------------------------- 0da4 000d 0031 | 1| .DBGLEN 0x000d,0x0031 0da6 04bb 04c0 | | .DBGLNO 0x04bb,0x04c0,0x04ca,0x04cf,0x04d4,0x04d9,0x04da,0x04db,0x04e0,0x04e5,0x04e8,0x04e9,0x04ed,0x04ef,0x04fa,0x04fe,0x0500,0x0502,0x0506,0x050a,0x050c,0x0514,0x0516,0x0519,0x051e,0x0522,0x052b,0x0538,0x053e,0x0542,0x0546,0x054a,0x0556,0x055a,0x055d,0x0560,0x0563,0x0568,0x056a,0x0572,0x0574,0x0576,0x0578,0x0579,0x057d,0x057f,0x0582,0x0584,0x0589,0x058f,0x0591,0x0593,0x0595,0x0597,0x0599,0x05a3,0x05aa,0x05ae,0x05b3,0x05b8,0x05ba,0x05bd 0de4 0001 0002 | | .XXX[0x31] 0de6 0003 0004 | | 0de8 0005 0007 | | 0dea 0008 0009 | | 0dec 0026 0027 | & '| 0dee 000a 000b | | 0df0 000c 000d | | 0df2 000e 0010 | | 0df4 0011 0012 | | 0df6 0013 0014 | | 0df8 0015 0016 | | 0dfa 0017 0018 | | 0dfc 0019 001a | | 0dfe 001b 001c | | 0e00 001d 001e | | 0e02 001f 0020 | | 0e04 0021 0022 | ! "| 0e06 0023 000f | # | 0e08 0024 0025 | $ %| 0e0a 0028 0029 | ( )| 0e0c 002a 002b | * +| 0e0e 002c 002d | , -| 0e10 002e 0006 | . | 0e12 002f 0030 | / 0| 0e14 0031 | 1 | 0e15 ; -------------------------------------------------------------------------------------- 0e15 ; Debug chain 0e15 ; -------------------------------------------------------------------------------------- 0e15 0002 0006 | | .DBGLEN 0x0002,0x0006 0e17 05cb 05d0 | | .DBGLNO 0x05cb,0x05d0,0x05d7,0x05db,0x05df,0x05e1,0x05e6,0x05eb 0e1f 0002 0003 | | .XXX[0x6] 0e21 0004 0005 | | 0e23 0001 0006 | | 0e25 ; -------------------------------------------------------------------------------------- 0e25 ; Debug chain 0e25 ; -------------------------------------------------------------------------------------- 0e25 0001 0004 | | .DBGLEN 0x0001,0x0004 0e27 05f3 05f8 | | .DBGLNO 0x05f3,0x05f8,0x05fc,0x0605,0x0613 0e2c ; -------------------------------------------------------------------------------------- 0e2c ; Debug chain 0e2c ; -------------------------------------------------------------------------------------- 0e2c 0005 0008 | | .DBGLEN 0x0005,0x0008 0e2e 0623 0628 | # (| .DBGLNO 0x0623,0x0628,0x062d,0x0637,0x0639,0x063c,0x0640,0x0644,0x065d,0x065f,0x0665,0x066a,0x066f 0e3b 0001 0003 | | .XXX[0x8] 0e3d 0004 0005 | | 0e3f 0006 0007 | | 0e41 0002 0008 | | 0e43 ; -------------------------------------------------------------------------------------- 0e43 ; Debug chain 0e43 ; -------------------------------------------------------------------------------------- 0e43 0001 0001 | | .DBGLEN 0x0001,0x0001 0e45 067b 0682 | { | .DBGLNO 0x067b,0x0682 0e47 ; -------------------------------------------------------------------------------------- 0e47 ; Debug chain 0e47 ; -------------------------------------------------------------------------------------- 0e47 0001 0001 | | .DBGLEN 0x0001,0x0001 0e49 069b 06a2 | | .DBGLNO 0x069b,0x06a2 0e4b ; -------------------------------------------------------------------------------------- 0e4b ; Debug chain 0e4b ; -------------------------------------------------------------------------------------- 0e4b 0004 000e | | .DBGLEN 0x0004,0x000e 0e4d 06bb 06bd | | .DBGLNO 0x06bb,0x06bd,0x06c2,0x06c4,0x06c6,0x06c8,0x06cc,0x06cf,0x06d3,0x06d6,0x06da,0x06e7,0x06ec,0x06ee,0x06f5,0x06f7,0x06f9,0x0701 0e5f ; -------------------------------------------------------------------------------------- 0e5f ; Debug chain 0e5f ; -------------------------------------------------------------------------------------- 0e5f 0003 000e | | .DBGLEN 0x0003,0x000e 0e61 070b 070e | | .DBGLNO 0x070b,0x070e,0x0713,0x0715,0x0718,0x071b,0x071d,0x0721,0x0725,0x0729,0x072a,0x072f,0x0733,0x0739,0x074a,0x074f,0x0752 0e72 0001 0002 | | .XXX[0xe] 0e74 0003 0004 | | 0e76 0006 0007 | | 0e78 0008 0009 | | 0e7a 000a 000b | | 0e7c 000c 000d | | 0e7e 000e 0005 | | 0e80 ; -------------------------------------------------------------------------------------- 0e80 ; Debug chain 0e80 ; -------------------------------------------------------------------------------------- 0e80 0001 0001 | | .DBGLEN 0x0001,0x0001 0e82 075b 076e | [ n| .DBGLNO 0x075b,0x076e 0e84 ; -------------------------------------------------------------------------------------- 0e84 ; Debug chain 0e84 ; -------------------------------------------------------------------------------------- 0e84 0002 0007 | | .DBGLEN 0x0002,0x0007 0e86 077b 077d | { }| .DBGLNO 0x077b,0x077d,0x0784,0x078c,0x0795,0x0799,0x079d,0x07a4,0x07a9 0e8f 0001 0003 | | .XXX[0x7] 0e91 0004 0005 | | 0e93 0006 0002 | | 0e95 0007 | | 0e96 ; -------------------------------------------------------------------------------------- 0e96 ; Debug chain 0e96 ; -------------------------------------------------------------------------------------- 0e96 0002 0006 | | .DBGLEN 0x0002,0x0006 0e98 07b3 07b5 | | .DBGLNO 0x07b3,0x07b5,0x07be,0x07c7,0x07cb,0x07cf,0x07d6,0x07db 0ea0 0002 0003 | | .XXX[0x6] 0ea2 0004 0005 | | 0ea4 0001 0006 | | 0ea6 ; -------------------------------------------------------------------------------------- 0ea6 ; Debug chain 0ea6 ; -------------------------------------------------------------------------------------- 0ea6 0002 0006 | | .DBGLEN 0x0002,0x0006 0ea8 07e3 07e5 | | .DBGLNO 0x07e3,0x07e5,0x07ee,0x07f7,0x07fb,0x07ff,0x0806,0x080b 0eb0 0002 0003 | | .XXX[0x6] 0eb2 0004 0005 | | 0eb4 0001 0006 | | 0eb6 ; -------------------------------------------------------------------------------------- 0eb6 ; Debug chain 0eb6 ; -------------------------------------------------------------------------------------- 0eb6 0001 0023 | #| .DBGLEN 0x0001,0x0023 0eb8 0813 081d | | .DBGLNO 0x0813,0x081d,0x0825,0x0829,0x082d,0x0833,0x0836,0x083a,0x0845,0x0849,0x0854,0x0865,0x0868,0x086b,0x086f,0x0872,0x0875,0x0878,0x087b,0x087e,0x0881,0x0884,0x0889,0x088c,0x088f,0x0892,0x0895,0x0898,0x089b,0x089d,0x089f,0x08a2,0x08a5,0x08a9,0x08ac,0x08b1 0edc 0001 0007 | | .XXX[0x23] 0ede 0008 0009 | | 0ee0 000a 000b | | 0ee2 000c 000d | | 0ee4 000e 000f | | 0ee6 0022 0010 | " | 0ee8 0011 0012 | | 0eea 0013 0014 | | 0eec 0015 0016 | | 0eee 0017 0018 | | 0ef0 0019 001a | | 0ef2 001b 001c | | 0ef4 001d 001e | | 0ef6 001f 0020 | | 0ef8 0021 0002 | ! | 0efa 0003 0004 | | 0efc 0005 0006 | | 0efe 0023 | # | 0eff ; -------------------------------------------------------------------------------------- 0eff ; Debug chain 0eff ; -------------------------------------------------------------------------------------- 0eff 0000 0007 | | .DBGLEN 0x0000,0x0007 0f01 08bb 08c3 | | .DBGLNO 0x08bb,0x08c3,0x08c5,0x08c8,0x08cb,0x08ce,0x08d1 0f08 0001 0007 | | .XXX[0x7] 0f0a 0002 0003 | | 0f0c 0004 0005 | | 0f0e 0006 | | 0f0f ; -------------------------------------------------------------------------------------- 0f0f ; Debug chain 0f0f ; -------------------------------------------------------------------------------------- 0f0f 0001 000a | | .DBGLEN 0x0001,0x000a 0f11 08db 08df | | .DBGLNO 0x08db,0x08df,0x08e4,0x08f3,0x08f6,0x08f9,0x090e,0x0925,0x093c,0x0940,0x096d 0f1c ; -------------------------------------------------------------------------------------- 0f1c ; Debug chain 0f1c ; -------------------------------------------------------------------------------------- 0f1c 0001 0005 | | .DBGLEN 0x0001,0x0005 0f1e 09a3 09a7 | | .DBGLNO 0x09a3,0x09a7,0x09aa,0x09ad,0x09b0,0x09b3 0f24 ; -------------------------------------------------------------------------------------- 0f24 ; Debug chain 0f24 ; -------------------------------------------------------------------------------------- 0f24 0001 0005 | | .DBGLEN 0x0001,0x0005 0f26 09c3 09c7 | | .DBGLNO 0x09c3,0x09c7,0x09ca,0x09cd,0x09d0,0x09d3 0f2c ; -------------------------------------------------------------------------------------- 0f2c ; Debug chain 0f2c ; -------------------------------------------------------------------------------------- 0f2c 0002 0006 | | .DBGLEN 0x0002,0x0006 0f2e 09e3 09ed | | .DBGLNO 0x09e3,0x09ed,0x09f1,0x0a06,0x0a0a,0x0a0e,0x0a12,0x0a1f 0f36 ; -------------------------------------------------------------------------------------- 0f36 ; Debug chain 0f36 ; -------------------------------------------------------------------------------------- 0f36 0000 000a | | .DBGLEN 0x0000,0x000a 0f38 0a2b 0a36 | + 6| .DBGLNO 0x0a2b,0x0a36,0x0a38,0x0a3a,0x0a3c,0x0a44,0x0a48,0x0a4b,0x0a4d,0x0a4f 0f42 0001 0005 | | .XXX[0xa] 0f44 0006 0007 | | 0f46 0008 0009 | | 0f48 000a 0002 | | 0f4a 0003 0004 | | 0f4c 0000 0000 | | .BLANK 0000[0xb4]