|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 09b8 | | .CONST 0x09b8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 005e | ^ | .CONST 0x005e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 00e1 | | Load_Encached Boolean_Cache 000c e020 | | Load 0x0,0x20 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 02c7 | | Declare_Variable Any 000f 00d8 | | Load_Top At_Offset_0 0010 1c00 | | Execute_Immediate Run_Utility,0x0 0011 e020 | | Load 0x0,0x20 0012 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0013 02c7 | | Declare_Variable Any 0014 00d8 | | Load_Top At_Offset_0 0015 1c00 | | Execute_Immediate Run_Utility,0x0 0016 e020 | | Load 0x0,0x20 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 02c7 | | Declare_Variable Any 0019 00d8 | | Load_Top At_Offset_0 001a 1c00 | | Execute_Immediate Run_Utility,0x0 001b 4800 |H | Short_Literal 0x0 001c 4803 |H | Short_Literal 0x3 001d 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 001f 03fd | | Declare_Type Discrete,Defined 0020 e022 | " | Load 0x0,0x22 0021 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 0022 02ff | | Declare_Variable Variant_Record 0023 00d8 | | Load_Top At_Offset_0 0024 1c00 | | Execute_Immediate Run_Utility,0x0 0025 00d9 | | Load_Top At_Offset_1 0026 0007 | | Action Break_Optional 0027 00e1 | | Load_Encached Boolean_Cache 0028 e022 | " | Load 0x0,0x22 0029 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 002a 02ff | | Declare_Variable Variant_Record 002b 00d8 | | Load_Top At_Offset_0 002c 1c00 | | Execute_Immediate Run_Utility,0x0 002d e406 | | Load 0x2,0x6 002e 0007 | | Action Break_Optional 002f e02c | , | Load 0x0,0x2c 0030 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0031 02c7 | | Declare_Variable Any 0032 00d8 | | Load_Top At_Offset_0 0033 1c00 | | Execute_Immediate Run_Utility,0x0 0034 e022 | " | Load 0x0,0x22 0035 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 0036 02ff | | Declare_Variable Variant_Record 0037 00d8 | | Load_Top At_Offset_0 0038 1c00 | | Execute_Immediate Run_Utility,0x0 0039 e024 | $ | Load 0x0,0x24 003a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 003b 02c7 | | Declare_Variable Any 003c 00d8 | | Load_Top At_Offset_0 003d 1c00 | | Execute_Immediate Run_Utility,0x0 003e 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0040 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0042 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0044 029e 022b | +| Declare_Subprogram INIT_0228,For_Call,Unelaborated 0046 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0048 4812 |H | Short_Literal 0x12 0049 4802 |H | Short_Literal 0x2 004a 0099 | | Action Reference_Dynamic 004b 00c7 | | Action Elaborate_Subprogram 004c 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 004e 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 0050 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call 0052 029e 04a3 | | Declare_Subprogram INIT_04a0,For_Call,Unelaborated 0054 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 0056 4817 |H | Short_Literal 0x17 0057 4802 |H | Short_Literal 0x2 0058 0099 | | Action Reference_Dynamic 0059 00c7 | | Action Elaborate_Subprogram 005a 029f 051b | | Declare_Subprogram INIT_0518,For_Call 005c 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call 005e BODY_0008: 005e e5fe | | Load 0x2,-0x2 005f e022 | " | Load 0x0,0x22 0060 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0061 700b |p | Jump_Nonzero 0x6d 0062 e023 | # | Load 0x0,0x23 0063 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0064 e023 | # | Load 0x0,0x23 0065 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0066 e5fb | | Load 0x2,-0x5 0067 e022 | " | Load 0x0,0x22 0068 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0069 e023 | # | Load 0x0,0x23 006a 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 006b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 006d e5ff | | Load 0x2,-0x1 006e 4605 |F | Jump_Case 0x6 006f 7805 |x | Jump 0x75 ; case 0x0 0070 7805 |x | Jump 0x76 ; case 0x1 0071 7803 |x | Jump 0x75 ; case 0x2 0072 781f |x | Jump 0x92 ; case 0x3 0073 7801 |x | Jump 0x75 ; case 0x4 0074 7800 |x | Jump 0x75 ; case 0x5 0075 08e2 | | Execute_Immediate Raise,0xe2 0076 480a |H | Short_Literal 0xa 0077 e022 | " | Load 0x0,0x22 0078 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0079 e023 | # | Load 0x0,0x23 007a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 007b 4800 |H | Short_Literal 0x0 007c e5fc | | Load 0x2,-0x4 007d e5fd | | Load 0x2,-0x3 007e 820d | | Call 0x1,0xd 007f 840f | | Call 0x2,0xf 0080 00cf | | Action Mark_Auxiliary 0081 e5fe | | Load 0x2,-0x2 0082 e022 | " | Load 0x0,0x22 0083 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0084 e5fe | | Load 0x2,-0x2 0085 e022 | " | Load 0x0,0x22 0086 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0087 0263 | c | Execute Discrete,Above_Bound 0088 7007 |p | Jump_Nonzero 0x90 0089 00d8 | | Load_Top At_Offset_0 008a e5fe | | Load 0x2,-0x2 008b e022 | " | Load 0x0,0x22 008c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 008d 8414 | | Call 0x2,0x14 008e 00c8 | | Action Pop_Auxiliary_Range 008f 3ff9 |? | Loop_Increasing 0x89 0090 00ce | | Action Pop_Auxiliary 0091 7825 |x% | Jump 0xb7 0092 4800 |H | Short_Literal 0x0 0093 a409 | | Store_Unchecked 0x2,0x9 0094 4801 |H | Short_Literal 0x1 0095 e5fe | | Load 0x2,-0x2 0096 e022 | " | Load 0x0,0x22 0097 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0098 e40a | | Load 0x2,0xa 0099 016d | m | Execute Variant_Record,Structure_Write 009a e40a | | Load 0x2,0xa 009b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 009c 4801 |H | Short_Literal 0x1 009d 4802 |H | Short_Literal 0x2 009e 0262 | b | Execute Discrete,In_Range 009f 7014 |p | Jump_Nonzero 0xb4 00a0 00cf | | Action Mark_Auxiliary 00a1 e5fe | | Load 0x2,-0x2 00a2 e022 | " | Load 0x0,0x22 00a3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00a4 e5fe | | Load 0x2,-0x2 00a5 e022 | " | Load 0x0,0x22 00a6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00a7 0263 | c | Execute Discrete,Above_Bound 00a8 7009 |p | Jump_Nonzero 0xb2 00a9 4801 |H | Short_Literal 0x1 00aa 4800 |H | Short_Literal 0x0 00ab 00da | | Load_Top At_Offset_2 00ac e5fe | | Load 0x2,-0x2 00ad e022 | " | Load 0x0,0x22 00ae 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00af 8419 | | Call 0x2,0x19 00b0 00c8 | | Action Pop_Auxiliary_Range 00b1 3ff7 |? | Loop_Increasing 0xa9 00b2 00ce | | Action Pop_Auxiliary 00b3 7803 |x | Jump 0xb7 00b4 4801 |H | Short_Literal 0x1 00b5 e5fe | | Load 0x2,-0x2 00b6 841a | | Call 0x2,0x1a 00b7 e409 | | Load 0x2,0x9 00b8 6806 |h | Jump_Zero 0xbf 00b9 e023 | # | Load 0x0,0x23 00ba 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00bb e023 | # | Load 0x0,0x23 00bc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00bd 8210 | | Call 0x1,0x10 00be 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00bf e023 | # | Load 0x0,0x23 00c0 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00c1 e023 | # | Load 0x0,0x23 00c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00c3 e5fb | | Load 0x2,-0x5 00c4 e022 | " | Load 0x0,0x22 00c5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c6 e023 | # | Load 0x0,0x23 00c7 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4607 |F | Jump_Case 0x8 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00d5 7806 |x | Jump 0xdc ; case 0x1 00d6 7809 |x | Jump 0xe0 ; case 0x2 00d7 780d |x | Jump 0xe5 ; case 0x3 00d8 7810 |x | Jump 0xe9 ; case 0x4 00d9 7811 |x | Jump 0xeb ; case 0x5 00da 7812 |x | Jump 0xed ; case 0x6 00db 7815 |x | Jump 0xf1 ; case 0x7 00dc 00da | | Load_Top At_Offset_2 00dd 0091 0904 | | Action Push_String_Extended_Indexed,0x904 ; "USERS" 00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e0 00db | | Load_Top At_Offset_3 00e1 00db | | Load_Top At_Offset_3 00e2 00e0 | | Load_Encached Standard_Cache 00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 00da | | Load_Top At_Offset_2 00e6 00e0 | | Load_Encached Standard_Cache 00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e9 00db | | Load_Top At_Offset_3 00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00eb 00db | | Load_Top At_Offset_3 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed e406 | | Load 0x2,0x6 00ee 00dc | | Load_Top At_Offset_4 00ef 0267 | g | Execute Discrete,Predecessor 00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f1 e406 | | Load 0x2,0x6 00f2 00dc | | Load_Top At_Offset_4 00f3 0268 | h | Execute Discrete,Successor 00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 480b |H | Short_Literal 0xb 00fc e022 | " | Load 0x0,0x22 00fd 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00fe e023 | # | Load 0x0,0x23 00ff 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0100 584b |XK | Indirect_Literal Float,0x14c,10.0 0101 4802 |H | Short_Literal 0x2 0102 0092 0908 | | Action Push_String_Extended,0x908 ; "Identifier" 0104 820e | | Call 0x1,0xe 0105 480b |H | Short_Literal 0xb 0106 e022 | " | Load 0x0,0x22 0107 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0108 e023 | # | Load 0x0,0x23 0109 1b16 | | Execute Package,Field_Read,Field_Number 0x16 010a 583d |X= | Indirect_Literal Float,0x148,20.0 010b 4800 |H | Short_Literal 0x0 010c 0092 0909 | | Action Push_String_Extended,0x909 ; "Description" 010e 820e | | Call 0x1,0xe 010f 480b |H | Short_Literal 0xb 0110 e022 | " | Load 0x0,0x22 0111 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0112 e023 | # | Load 0x0,0x23 0113 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0114 582f |X/ | Indirect_Literal Float,0x144,15.0 0115 4802 |H | Short_Literal 0x2 0116 0092 090a | | Action Push_String_Extended,0x90a ; "Source CI" 0118 820e | | Call 0x1,0xe 0119 480b |H | Short_Literal 0xb 011a e022 | " | Load 0x0,0x22 011b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 011c e023 | # | Load 0x0,0x23 011d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 011e 5825 |X% | Indirect_Literal Float,0x144,15.0 011f 4802 |H | Short_Literal 0x2 0120 0092 090b | | Action Push_String_Extended,0x90b ; "Destination CI(s)" 0122 820e | | Call 0x1,0xe 0123 480b |H | Short_Literal 0xb 0124 e022 | " | Load 0x0,0x22 0125 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0126 e023 | # | Load 0x0,0x23 0127 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0128 581f |X | Indirect_Literal Float,0x148,20.0 0129 4802 |H | Short_Literal 0x2 012a 0092 090c | | Action Push_String_Extended,0x90c ; "Units of\x0aMeasure" 012c 820e | | Call 0x1,0xe 012d 480b |H | Short_Literal 0xb 012e e022 | " | Load 0x0,0x22 012f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0130 e023 | # | Load 0x0,0x23 0131 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0132 5819 |X | Indirect_Literal Float,0x14c,10.0 0133 4802 |H | Short_Literal 0x2 0134 0092 090d | | Action Push_String_Extended,0x90d ; "Limit/\x0aRange" 0136 820e | | Call 0x1,0xe 0137 480b |H | Short_Literal 0xb 0138 e022 | " | Load 0x0,0x22 0139 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 013a e023 | # | Load 0x0,0x23 013b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 013c 580f |X | Indirect_Literal Float,0x14c,10.0 013d 4802 |H | Short_Literal 0x2 013e 0092 090e | | Action Push_String_Extended,0x90e ; "Accuracy/\x0aPrecision" 0140 820e | | Call 0x1,0xe 0141 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0142 0000 0000 | | .XXX[0x2] 0144 402e 0000 |@. | .DBL 15.0 0146 0000 0000 | | 0148 4034 0000 |@4 | .DBL 20.0 014a 0000 0000 | | 014c 4024 0000 |@$ | .DBL 10.0 014e 0000 0000 | | 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 00da | | Load_Top At_Offset_2 0154 6803 |h | Jump_Zero 0x158 0155 00da | | Load_Top At_Offset_2 0156 0f02 | | Execute_Immediate Equal,0x2 0157 6821 |h! | Jump_Zero 0x179 0158 e40d | | Load 0x2,0xd 0159 e022 | " | Load 0x0,0x22 015a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 015b 700e |p | Jump_Nonzero 0x16a 015c 4801 |H | Short_Literal 0x1 015d 480d |H | Short_Literal 0xd 015e e022 | " | Load 0x0,0x22 015f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0160 0092 090f | | Action Push_String_Extended,0x90f ; "This interface data item has no destination because its interface is currently unused by other components. Use Definition to visit and verify this data item." 0162 4800 |H | Short_Literal 0x0 0163 e7fe | | Load 0x3,-0x2 0164 e022 | " | Load 0x0,0x22 0165 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0166 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0167 e237 | 7 | Load 0x1,0x37 0168 820f | | Call 0x1,0xf 0169 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016a 4800 |H | Short_Literal 0x0 016b 480d |H | Short_Literal 0xd 016c e022 | " | Load 0x0,0x22 016d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 016e 00ea | | Load_Encached Null_String_Cache 016f e40d | | Load 0x2,0xd 0170 e022 | " | Load 0x0,0x22 0171 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0172 4801 |H | Short_Literal 0x1 0173 e235 | 5 | Load 0x1,0x35 0174 e40d | | Load 0x2,0xd 0175 e022 | " | Load 0x0,0x22 0176 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 0177 820f | | Call 0x1,0xf 0178 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0179 00da | | Load_Top At_Offset_2 017a 0f01 | | Execute_Immediate Equal,0x1 017b 6811 |h | Jump_Zero 0x18d 017c 4801 |H | Short_Literal 0x1 017d 480d |H | Short_Literal 0xd 017e e022 | " | Load 0x0,0x22 017f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0180 00ea | | Load_Encached Null_String_Cache 0181 4800 |H | Short_Literal 0x0 0182 e40c | | Load 0x2,0xc 0183 e022 | " | Load 0x0,0x22 0184 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0185 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0186 4801 |H | Short_Literal 0x1 0187 e40c | | Load 0x2,0xc 0188 e022 | " | Load 0x0,0x22 0189 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 018a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018b 820f | | Call 0x1,0xf 018c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 018d 00da | | Load_Top At_Offset_2 018e 0f03 | | Execute_Immediate Equal,0x3 018f 680e |h | Jump_Zero 0x19e 0190 4800 |H | Short_Literal 0x0 0191 480d |H | Short_Literal 0xd 0192 e022 | " | Load 0x0,0x22 0193 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0194 00ea | | Load_Encached Null_String_Cache 0195 e407 | | Load 0x2,0x7 0196 e022 | " | Load 0x0,0x22 0197 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0198 4801 |H | Short_Literal 0x1 0199 e235 | 5 | Load 0x1,0x35 019a e407 | | Load 0x2,0x7 019b e022 | " | Load 0x0,0x22 019c 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 019d 820f | | Call 0x1,0xf 019e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01bb | | .CONST 0x01bb ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0005 | | .CONST 0x0005 ; Number of locals 01a3 INIT_01a0: 01a3 e027 | ' | Load 0x0,0x27 01a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01a5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 01a6 e020 | | Load 0x0,0x20 01a7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 01a8 02c7 | | Declare_Variable Any 01a9 e7ff | | Load 0x3,-0x1 01aa e026 | & | Load 0x0,0x26 01ab 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01ac a603 | | Store_Unchecked 0x3,0x3 01ad e023 | # | Load 0x0,0x23 01ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01af 02ff | | Declare_Variable Variant_Record 01b0 00d8 | | Load_Top At_Offset_0 01b1 1c00 | | Execute_Immediate Run_Utility,0x0 01b2 e027 | ' | Load 0x0,0x27 01b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01b4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01b5 0322 | " | Declare_Variable Record 01b6 e7ff | | Load 0x3,-0x1 01b7 e028 | ( | Load 0x0,0x28 01b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b9 00d9 | | Load_Top At_Offset_1 01ba 017d | } | Execute Record,Structure_Write 01bb BODY_01a0: 01bb 00da | | Load_Top At_Offset_2 01bc 823a | : | Call 0x1,0x3a 01bd c603 | | Store 0x3,0x3 01be e405 | | Load 0x2,0x5 01bf e404 | | Load 0x2,0x4 01c0 e403 | | Load 0x2,0x3 01c1 00e1 | | Load_Encached Boolean_Cache 01c2 e603 | | Load 0x3,0x3 01c3 822e | . | Call 0x1,0x2e 01c4 c402 | | Store 0x2,0x2 01c5 c403 | | Store 0x2,0x3 01c6 c404 | | Store 0x2,0x4 01c7 c405 | | Store 0x2,0x5 01c8 00ea | | Load_Encached Null_String_Cache 01c9 4801 |H | Short_Literal 0x1 01ca e405 | | Load 0x2,0x5 01cb 8234 | 4 | Call 0x1,0x34 01cc 00da | | Load_Top At_Offset_2 01cd 016d | m | Execute Variant_Record,Structure_Write 01ce e7ff | | Load 0x3,-0x1 01cf 4804 |H | Short_Literal 0x4 01d0 4809 |H | Short_Literal 0x9 01d1 823b | ; | Call 0x1,0x3b 01d2 4801 |H | Short_Literal 0x1 01d3 480d |H | Short_Literal 0xd 01d4 e022 | " | Load 0x0,0x22 01d5 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01d6 00ea | | Load_Encached Null_String_Cache 01d7 4800 |H | Short_Literal 0x0 01d8 e7ff | | Load 0x3,-0x1 01d9 e022 | " | Load 0x0,0x22 01da 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 01db 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01dc 4801 |H | Short_Literal 0x1 01dd e7fe | | Load 0x3,-0x2 01de e22d | - | Load 0x1,0x2d 01df 01cf | | Execute Vector,Slice_Read 01e0 4801 |H | Short_Literal 0x1 01e1 e7ff | | Load 0x3,-0x1 01e2 e022 | " | Load 0x0,0x22 01e3 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 01e4 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e5 01cc | | Execute Vector,Catenate 01e6 820f | | Call 0x1,0xf 01e7 e7ff | | Load 0x3,-0x1 01e8 e40b | | Load 0x2,0xb 01e9 8410 | | Call 0x2,0x10 01ea e7ff | | Load 0x3,-0x1 01eb e408 | | Load 0x2,0x8 01ec 8410 | | Call 0x2,0x10 01ed e402 | | Load 0x2,0x2 01ee 6819 |h | Jump_Zero 0x208 01ef 4801 |H | Short_Literal 0x1 01f0 480d |H | Short_Literal 0xd 01f1 e022 | " | Load 0x0,0x22 01f2 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01f3 e023 | # | Load 0x0,0x23 01f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01f5 e238 | 8 | Load 0x1,0x38 01f6 820f | | Call 0x1,0xf 01f7 4801 |H | Short_Literal 0x1 01f8 480d |H | Short_Literal 0xd 01f9 e022 | " | Load 0x0,0x22 01fa 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01fb e023 | # | Load 0x0,0x23 01fc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01fd e238 | 8 | Load 0x1,0x38 01fe 820f | | Call 0x1,0xf 01ff 4801 |H | Short_Literal 0x1 0200 480d |H | Short_Literal 0xd 0201 e022 | " | Load 0x0,0x22 0202 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0203 e023 | # | Load 0x0,0x23 0204 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0205 e238 | 8 | Load 0x1,0x38 0206 820f | | Call 0x1,0xf 0207 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0208 4801 |H | Short_Literal 0x1 0209 480d |H | Short_Literal 0xd 020a e022 | " | Load 0x0,0x22 020b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 020c 00ea | | Load_Encached Null_String_Cache 020d 480f |H | Short_Literal 0xf 020e e403 | | Load 0x2,0x3 020f 8234 | 4 | Call 0x1,0x34 0210 480f |H | Short_Literal 0xf 0211 e603 | | Load 0x3,0x3 0212 8232 | 2 | Call 0x1,0x32 0213 820f | | Call 0x1,0xf 0214 4801 |H | Short_Literal 0x1 0215 480d |H | Short_Literal 0xd 0216 e022 | " | Load 0x0,0x22 0217 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0218 00db | | Load_Top At_Offset_3 0219 480d |H | Short_Literal 0xd 021a e603 | | Load 0x3,0x3 021b 8232 | 2 | Call 0x1,0x32 021c 820f | | Call 0x1,0xf 021d 4801 |H | Short_Literal 0x1 021e 480d |H | Short_Literal 0xd 021f e022 | " | Load 0x0,0x22 0220 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0221 00db | | Load_Top At_Offset_3 0222 480e |H | Short_Literal 0xe 0223 e603 | | Load 0x3,0x3 0224 8232 | 2 | Call 0x1,0x32 0225 820f | | Call 0x1,0xf 0226 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022d | - | .CONST 0x022d ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 022d BODY_0228: 022d 00db | | Load_Top At_Offset_3 022e e031 | 1 | Load 0x0,0x31 022f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0230 0f06 | | Execute_Immediate Equal,0x6 0231 6801 |h | Jump_Zero 0x233 0232 8602 | | Call 0x3,0x2 0233 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 025a | Z | .CONST 0x025a ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0007 | | .CONST 0x0007 ; Number of locals 023b INIT_0238: 023b e020 | | Load 0x0,0x20 023c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 023d 02c7 | | Declare_Variable Any 023e 00d8 | | Load_Top At_Offset_0 023f 1c00 | | Execute_Immediate Run_Utility,0x0 0240 e020 | | Load 0x0,0x20 0241 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0242 02c7 | | Declare_Variable Any 0243 e7ff | | Load 0x3,-0x1 0244 a603 | | Store_Unchecked 0x3,0x3 0245 e020 | | Load 0x0,0x20 0246 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0247 02c7 | | Declare_Variable Any 0248 00d9 | | Load_Top At_Offset_1 0249 e031 | 1 | Load 0x0,0x31 024a 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 024b a604 | | Store_Unchecked 0x3,0x4 024c e020 | | Load 0x0,0x20 024d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 024e 02c7 | | Declare_Variable Any 024f 00da | | Load_Top At_Offset_2 0250 e031 | 1 | Load 0x0,0x31 0251 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0252 a605 | | Store_Unchecked 0x3,0x5 0253 e020 | | Load 0x0,0x20 0254 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0255 02c7 | | Declare_Variable Any 0256 00d8 | | Load_Top At_Offset_0 0257 1c00 | | Execute_Immediate Run_Utility,0x0 0258 029f 075b | [| Declare_Subprogram INIT_0758,For_Call 025a BODY_0238: 025a e7fe | | Load 0x3,-0x2 025b e604 | | Load 0x3,0x4 025c 8411 | | Call 0x2,0x11 025d 00cf | | Action Mark_Auxiliary 025e 780a |x | Jump 0x269 025f 00db | | Load_Top At_Offset_3 0260 e020 | | Load 0x0,0x20 0261 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0262 c606 | | Store 0x3,0x6 0263 8607 | | Call 0x3,0x7 0264 00db | | Load_Top At_Offset_3 0265 e020 | | Load 0x0,0x20 0266 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0267 c605 | | Store 0x3,0x5 0268 00c9 | | Action Pop_Auxiliary_Loop 0269 00db | | Load_Top At_Offset_3 026a e020 | | Load 0x0,0x20 026b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 026c 6ff2 |o | Jump_Zero 0x25f 026d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 02a0 | | .CONST 0x02a0 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 000c | | .CONST 0x000c ; Number of locals 0273 INIT_0270: 0273 e02d | - | Load 0x0,0x2d 0274 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0275 02c7 | | Declare_Variable Any 0276 00d8 | | Load_Top At_Offset_0 0277 1c00 | | Execute_Immediate Run_Utility,0x0 0278 e02d | - | Load 0x0,0x2d 0279 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027a 02c7 | | Declare_Variable Any 027b 00d8 | | Load_Top At_Offset_0 027c 1c00 | | Execute_Immediate Run_Utility,0x0 027d e020 | | Load 0x0,0x20 027e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 027f 02c7 | | Declare_Variable Any 0280 00d8 | | Load_Top At_Offset_0 0281 1c00 | | Execute_Immediate Run_Utility,0x0 0282 e020 | | Load 0x0,0x20 0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0284 02c7 | | Declare_Variable Any 0285 00d8 | | Load_Top At_Offset_0 0286 1c00 | | Execute_Immediate Run_Utility,0x0 0287 00e1 | | Load_Encached Boolean_Cache 0288 e020 | | Load 0x0,0x20 0289 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028a 02c7 | | Declare_Variable Any 028b 00d8 | | Load_Top At_Offset_0 028c 1c00 | | Execute_Immediate Run_Utility,0x0 028d e020 | | Load 0x0,0x20 028e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028f 02c7 | | Declare_Variable Any 0290 00d8 | | Load_Top At_Offset_0 0291 1c00 | | Execute_Immediate Run_Utility,0x0 0292 e020 | | Load 0x0,0x20 0293 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0294 02c7 | | Declare_Variable Any 0295 00d8 | | Load_Top At_Offset_0 0296 1c00 | | Execute_Immediate Run_Utility,0x0 0297 e023 | # | Load 0x0,0x23 0298 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0299 02ff | | Declare_Variable Variant_Record 029a 00d8 | | Load_Top At_Offset_0 029b 1c00 | | Execute_Immediate Run_Utility,0x0 029c e026 | & | Load 0x0,0x26 029d 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 029e 029f 07a3 | | Declare_Subprogram INIT_07a0,For_Call 02a0 BODY_0270: 02a0 e7ff | | Load 0x3,-0x1 02a1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02a2 4606 |F | Jump_Case 0x7 02a3 7854 |xT | Jump 0x2f8 ; case 0x0 02a4 7853 |xS | Jump 0x2f8 ; case 0x1 02a5 7852 |xR | Jump 0x2f8 ; case 0x2 02a6 7803 |x | Jump 0x2aa ; case 0x3 02a7 7850 |xP | Jump 0x2f8 ; case 0x4 02a8 7816 |x | Jump 0x2bf ; case 0x5 02a9 784e |xN | Jump 0x2f8 ; case 0x6 02aa 4803 |H | Short_Literal 0x3 02ab a40b | | Store_Unchecked 0x2,0xb 02ac 4802 |H | Short_Literal 0x2 02ad a408 | | Store_Unchecked 0x2,0x8 02ae e7ff | | Load 0x3,-0x1 02af 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02b0 e024 | $ | Load 0x0,0x24 02b1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 02b2 e026 | & | Load 0x0,0x26 02b3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02b4 c604 | | Store 0x3,0x4 02b5 e022 | " | Load 0x0,0x22 02b6 1b8b | | Execute Package,Field_Read,Field_Number 0x8b 02b7 e7ff | | Load 0x3,-0x1 02b8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02b9 e024 | $ | Load 0x0,0x24 02ba 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 02bb e024 | $ | Load 0x0,0x24 02bc 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 02bd c40e | | Store 0x2,0xe 02be 7839 |x9 | Jump 0x2f8 02bf e7ff | | Load 0x3,-0x1 02c0 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 02c1 c602 | | Store 0x3,0x2 02c2 e602 | | Load 0x3,0x2 02c3 e02d | - | Load 0x0,0x2d 02c4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02c5 c603 | | Store 0x3,0x3 02c6 e603 | | Load 0x3,0x3 02c7 e026 | & | Load 0x0,0x26 02c8 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02c9 c604 | | Store 0x3,0x4 02ca e602 | | Load 0x3,0x2 02cb e02d | - | Load 0x0,0x2d 02cc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02cd c605 | | Store 0x3,0x5 02ce e605 | | Load 0x3,0x5 02cf e026 | & | Load 0x0,0x26 02d0 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02d1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02d2 00d9 | | Load_Top At_Offset_1 02d3 6803 |h | Jump_Zero 0x2d7 02d4 00d9 | | Load_Top At_Offset_1 02d5 0f01 | | Execute_Immediate Equal,0x1 02d6 6805 |h | Jump_Zero 0x2dc 02d7 4800 |H | Short_Literal 0x0 02d8 a40b | | Store_Unchecked 0x2,0xb 02d9 4801 |H | Short_Literal 0x1 02da a408 | | Store_Unchecked 0x2,0x8 02db 7814 |x | Jump 0x2f0 02dc 00d9 | | Load_Top At_Offset_1 02dd 0f02 | | Execute_Immediate Equal,0x2 02de 6805 |h | Jump_Zero 0x2e4 02df 4801 |H | Short_Literal 0x1 02e0 a40b | | Store_Unchecked 0x2,0xb 02e1 4800 |H | Short_Literal 0x0 02e2 a408 | | Store_Unchecked 0x2,0x8 02e3 780c |x | Jump 0x2f0 02e4 00d9 | | Load_Top At_Offset_1 02e5 0f03 | | Execute_Immediate Equal,0x3 02e6 6805 |h | Jump_Zero 0x2ec 02e7 4801 |H | Short_Literal 0x1 02e8 a408 | | Store_Unchecked 0x2,0x8 02e9 4801 |H | Short_Literal 0x1 02ea a40b | | Store_Unchecked 0x2,0xb 02eb 7804 |x | Jump 0x2f0 02ec 4803 |H | Short_Literal 0x3 02ed a40b | | Store_Unchecked 0x2,0xb 02ee 4802 |H | Short_Literal 0x2 02ef a408 | | Store_Unchecked 0x2,0x8 02f0 e022 | " | Load 0x0,0x22 02f1 1b8b | | Execute Package,Field_Read,Field_Number 0x8b 02f2 e602 | | Load 0x3,0x2 02f3 e02d | - | Load 0x0,0x2d 02f4 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 02f5 e024 | $ | Load 0x0,0x24 02f6 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 02f7 c40e | | Store 0x2,0xe 02f8 e604 | | Load 0x3,0x4 02f9 823a | : | Call 0x1,0x3a 02fa c604 | | Store 0x3,0x4 02fb 00db | | Load_Top At_Offset_3 02fc e608 | | Load 0x3,0x8 02fd e607 | | Load 0x3,0x7 02fe 00e1 | | Load_Encached Boolean_Cache 02ff e604 | | Load 0x3,0x4 0300 822e | . | Call 0x1,0x2e 0301 c606 | | Store 0x3,0x6 0302 c607 | | Store 0x3,0x7 0303 c608 | | Store 0x3,0x8 0304 c609 | | Store 0x3,0x9 0305 00ea | | Load_Encached Null_String_Cache 0306 4801 |H | Short_Literal 0x1 0307 e609 | | Load 0x3,0x9 0308 8234 | 4 | Call 0x1,0x34 0309 00db | | Load_Top At_Offset_3 030a 016d | m | Execute Variant_Record,Structure_Write 030b 4801 |H | Short_Literal 0x1 030c 480d |H | Short_Literal 0xd 030d e022 | " | Load 0x0,0x22 030e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 030f 00ea | | Load_Encached Null_String_Cache 0310 4804 |H | Short_Literal 0x4 0311 e7ff | | Load 0x3,-0x1 0312 e022 | " | Load 0x0,0x22 0313 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0314 4804 |H | Short_Literal 0x4 0315 e7ff | | Load 0x3,-0x1 0316 e022 | " | Load 0x0,0x22 0317 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0318 820f | | Call 0x1,0xf 0319 4801 |H | Short_Literal 0x1 031a 480d |H | Short_Literal 0xd 031b e022 | " | Load 0x0,0x22 031c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 031d 00ea | | Load_Encached Null_String_Cache 031e 4800 |H | Short_Literal 0x0 031f e7ff | | Load 0x3,-0x1 0320 e022 | " | Load 0x0,0x22 0321 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0322 4801 |H | Short_Literal 0x1 0323 e7ff | | Load 0x3,-0x1 0324 e022 | " | Load 0x0,0x22 0325 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0326 820f | | Call 0x1,0xf 0327 e40b | | Load 0x2,0xb 0328 860c | | Call 0x3,0xc 0329 e408 | | Load 0x2,0x8 032a 860c | | Call 0x3,0xc 032b e606 | | Load 0x3,0x6 032c 6819 |h | Jump_Zero 0x346 032d 4801 |H | Short_Literal 0x1 032e 480d |H | Short_Literal 0xd 032f e022 | " | Load 0x0,0x22 0330 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0331 e023 | # | Load 0x0,0x23 0332 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0333 e238 | 8 | Load 0x1,0x38 0334 820f | | Call 0x1,0xf 0335 4801 |H | Short_Literal 0x1 0336 480d |H | Short_Literal 0xd 0337 e022 | " | Load 0x0,0x22 0338 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0339 e023 | # | Load 0x0,0x23 033a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 033b e238 | 8 | Load 0x1,0x38 033c 820f | | Call 0x1,0xf 033d 4801 |H | Short_Literal 0x1 033e 480d |H | Short_Literal 0xd 033f e022 | " | Load 0x0,0x22 0340 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0341 e023 | # | Load 0x0,0x23 0342 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0343 e238 | 8 | Load 0x1,0x38 0344 820f | | Call 0x1,0xf 0345 781e |x | Jump 0x364 0346 4801 |H | Short_Literal 0x1 0347 480d |H | Short_Literal 0xd 0348 e022 | " | Load 0x0,0x22 0349 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 034a 00ea | | Load_Encached Null_String_Cache 034b 480f |H | Short_Literal 0xf 034c e607 | | Load 0x3,0x7 034d 8234 | 4 | Call 0x1,0x34 034e 480f |H | Short_Literal 0xf 034f e604 | | Load 0x3,0x4 0350 8232 | 2 | Call 0x1,0x32 0351 820f | | Call 0x1,0xf 0352 4801 |H | Short_Literal 0x1 0353 480d |H | Short_Literal 0xd 0354 e022 | " | Load 0x0,0x22 0355 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0356 e60a | | Load 0x3,0xa 0357 480d |H | Short_Literal 0xd 0358 e604 | | Load 0x3,0x4 0359 8232 | 2 | Call 0x1,0x32 035a 820f | | Call 0x1,0xf 035b 4801 |H | Short_Literal 0x1 035c 480d |H | Short_Literal 0xd 035d e022 | " | Load 0x0,0x22 035e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 035f e60a | | Load 0x3,0xa 0360 480e |H | Short_Literal 0xe 0361 e604 | | Load 0x3,0x4 0362 8232 | 2 | Call 0x1,0x32 0363 820f | | Call 0x1,0xf 0364 4801 |H | Short_Literal 0x1 0365 e608 | | Load 0x3,0x8 0366 8412 | | Call 0x2,0x12 0367 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 480b |H | Short_Literal 0xb 036c e022 | " | Load 0x0,0x22 036d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 036e e023 | # | Load 0x0,0x23 036f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0370 584b |XK | Indirect_Literal Float,0x3bc,10.0 0371 4802 |H | Short_Literal 0x2 0372 0092 0908 | | Action Push_String_Extended,0x908 ; "Identifier" 0374 820e | | Call 0x1,0xe 0375 480b |H | Short_Literal 0xb 0376 e022 | " | Load 0x0,0x22 0377 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0378 e023 | # | Load 0x0,0x23 0379 1b16 | | Execute Package,Field_Read,Field_Number 0x16 037a 583d |X= | Indirect_Literal Float,0x3b8,20.0 037b 4800 |H | Short_Literal 0x0 037c 0092 0910 | | Action Push_String_Extended,0x910 ; "Name/Description" 037e 820e | | Call 0x1,0xe 037f 480b |H | Short_Literal 0xb 0380 e022 | " | Load 0x0,0x22 0381 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0382 e023 | # | Load 0x0,0x23 0383 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0384 5833 |X3 | Indirect_Literal Float,0x3b8,20.0 0385 4802 |H | Short_Literal 0x2 0386 0092 090c | | Action Push_String_Extended,0x90c ; "Units of\x0aMeasure" 0388 820e | | Call 0x1,0xe 0389 480b |H | Short_Literal 0xb 038a e022 | " | Load 0x0,0x22 038b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 038c e023 | # | Load 0x0,0x23 038d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 038e 582d |X- | Indirect_Literal Float,0x3bc,10.0 038f 4802 |H | Short_Literal 0x2 0390 0092 090d | | Action Push_String_Extended,0x90d ; "Limit/\x0aRange" 0392 820e | | Call 0x1,0xe 0393 480b |H | Short_Literal 0xb 0394 e022 | " | Load 0x0,0x22 0395 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0396 e023 | # | Load 0x0,0x23 0397 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0398 5823 |X# | Indirect_Literal Float,0x3bc,10.0 0399 4802 |H | Short_Literal 0x2 039a 0092 090e | | Action Push_String_Extended,0x90e ; "Accuracy/\x0aPrecision" 039c 820e | | Call 0x1,0xe 039d 480b |H | Short_Literal 0xb 039e e022 | " | Load 0x0,0x22 039f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 03a0 e023 | # | Load 0x0,0x23 03a1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03a2 5811 |X | Indirect_Literal Float,0x3b4,15.0 03a3 4802 |H | Short_Literal 0x2 03a4 0092 0911 | | Action Push_String_Extended,0x911 ; "Type" 03a6 820e | | Call 0x1,0xe 03a7 480b |H | Short_Literal 0xb 03a8 e022 | " | Load 0x0,0x22 03a9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 03aa e023 | # | Load 0x0,0x23 03ab 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03ac 5807 |X | Indirect_Literal Float,0x3b4,15.0 03ad 4802 |H | Short_Literal 0x2 03ae 0092 0912 | | Action Push_String_Extended,0x912 ; "Represen-\x0atation/\x0aFormat" 03b0 820e | | Call 0x1,0xe 03b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b2 0000 0000 | | .XXX[0x2] 03b4 402e 0000 |@. | .DBL 15.0 03b6 0000 0000 | | 03b8 4034 0000 |@4 | .DBL 20.0 03ba 0000 0000 | | 03bc 4024 0000 |@$ | .DBL 10.0 03be 0000 0000 | | 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03eb | | .CONST 0x03eb ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0009 | | .CONST 0x0009 ; Number of locals 03c3 INIT_03c0: 03c3 e027 | ' | Load 0x0,0x27 03c4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03c5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 03c6 e020 | | Load 0x0,0x20 03c7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 03c8 02c7 | | Declare_Variable Any 03c9 e7ff | | Load 0x3,-0x1 03ca e026 | & | Load 0x0,0x26 03cb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03cc a603 | | Store_Unchecked 0x3,0x3 03cd 00e1 | | Load_Encached Boolean_Cache 03ce e020 | | Load 0x0,0x20 03cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d0 02c7 | | Declare_Variable Any 03d1 00d8 | | Load_Top At_Offset_0 03d2 1c00 | | Execute_Immediate Run_Utility,0x0 03d3 e020 | | Load 0x0,0x20 03d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d5 02c7 | | Declare_Variable Any 03d6 00d8 | | Load_Top At_Offset_0 03d7 1c00 | | Execute_Immediate Run_Utility,0x0 03d8 e020 | | Load 0x0,0x20 03d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03da 02c7 | | Declare_Variable Any 03db 00d8 | | Load_Top At_Offset_0 03dc 1c00 | | Execute_Immediate Run_Utility,0x0 03dd e023 | # | Load 0x0,0x23 03de 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03df 02ff | | Declare_Variable Variant_Record 03e0 00d8 | | Load_Top At_Offset_0 03e1 1c00 | | Execute_Immediate Run_Utility,0x0 03e2 e027 | ' | Load 0x0,0x27 03e3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03e4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 03e5 0322 | " | Declare_Variable Record 03e6 e7ff | | Load 0x3,-0x1 03e7 e028 | ( | Load 0x0,0x28 03e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03e9 00d9 | | Load_Top At_Offset_1 03ea 017d | } | Execute Record,Structure_Write 03eb BODY_03c0: 03eb e603 | | Load 0x3,0x3 03ec 823a | : | Call 0x1,0x3a 03ed c603 | | Store 0x3,0x3 03ee 00da | | Load_Top At_Offset_2 03ef e606 | | Load 0x3,0x6 03f0 e605 | | Load 0x3,0x5 03f1 00e1 | | Load_Encached Boolean_Cache 03f2 e603 | | Load 0x3,0x3 03f3 822e | . | Call 0x1,0x2e 03f4 c604 | | Store 0x3,0x4 03f5 c605 | | Store 0x3,0x5 03f6 c606 | | Store 0x3,0x6 03f7 c607 | | Store 0x3,0x7 03f8 00ea | | Load_Encached Null_String_Cache 03f9 4801 |H | Short_Literal 0x1 03fa e607 | | Load 0x3,0x7 03fb 8234 | 4 | Call 0x1,0x34 03fc 00da | | Load_Top At_Offset_2 03fd 016d | m | Execute Variant_Record,Structure_Write 03fe 4801 |H | Short_Literal 0x1 03ff 480d |H | Short_Literal 0xd 0400 e022 | " | Load 0x0,0x22 0401 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0402 00ea | | Load_Encached Null_String_Cache 0403 4804 |H | Short_Literal 0x4 0404 e7ff | | Load 0x3,-0x1 0405 e022 | " | Load 0x0,0x22 0406 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0407 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0408 4804 |H | Short_Literal 0x4 0409 e7ff | | Load 0x3,-0x1 040a e022 | " | Load 0x0,0x22 040b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 040c 180e | | Execute Package,Field_Execute,Field_Number 0xe 040d 820f | | Call 0x1,0xf 040e e7ff | | Load 0x3,-0x1 040f 4812 |H | Short_Literal 0x12 0410 e01f | | Load 0x0,0x1f 0411 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0412 180d | | Execute Package,Field_Execute,Field_Number 0xd 0413 a602 | | Store_Unchecked 0x3,0x2 0414 e602 | | Load 0x3,0x2 0415 e027 | ' | Load 0x0,0x27 0416 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0417 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0418 6816 |h | Jump_Zero 0x42f 0419 4801 |H | Short_Literal 0x1 041a 480d |H | Short_Literal 0xd 041b e022 | " | Load 0x0,0x22 041c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 041d 00ea | | Load_Encached Null_String_Cache 041e 4800 |H | Short_Literal 0x0 041f e7ff | | Load 0x3,-0x1 0420 e022 | " | Load 0x0,0x22 0421 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0422 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0423 4801 |H | Short_Literal 0x1 0424 e7fe | | Load 0x3,-0x2 0425 e22d | - | Load 0x1,0x2d 0426 01cf | | Execute Vector,Slice_Read 0427 4801 |H | Short_Literal 0x1 0428 e7ff | | Load 0x3,-0x1 0429 e022 | " | Load 0x0,0x22 042a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 042b 180e | | Execute Package,Field_Execute,Field_Number 0xe 042c 01cc | | Execute Vector,Catenate 042d 820f | | Call 0x1,0xf 042e 781e |x | Jump 0x44d 042f 4801 |H | Short_Literal 0x1 0430 480d |H | Short_Literal 0xd 0431 e022 | " | Load 0x0,0x22 0432 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0433 00ea | | Load_Encached Null_String_Cache 0434 4800 |H | Short_Literal 0x0 0435 e7ff | | Load 0x3,-0x1 0436 e022 | " | Load 0x0,0x22 0437 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0438 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0439 4801 |H | Short_Literal 0x1 043a e7fe | | Load 0x3,-0x2 043b e22d | - | Load 0x1,0x2d 043c 01cf | | Execute Vector,Slice_Read 043d 4801 |H | Short_Literal 0x1 043e e7ff | | Load 0x3,-0x1 043f e022 | " | Load 0x0,0x22 0440 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0441 180e | | Execute Package,Field_Execute,Field_Number 0xe 0442 01cc | | Execute Vector,Catenate 0443 0092 0913 | | Action Push_String_Extended,0x913 ; "-" 0445 01cc | | Execute Vector,Catenate 0446 00ea | | Load_Encached Null_String_Cache 0447 e602 | | Load 0x3,0x2 0448 e01f | | Load 0x0,0x1f 0449 1b10 | | Execute Package,Field_Read,Field_Number 0x10 044a 180f | | Execute Package,Field_Execute,Field_Number 0xf 044b 01cc | | Execute Vector,Catenate 044c 820f | | Call 0x1,0xf 044d e604 | | Load 0x3,0x4 044e 6829 |h) | Jump_Zero 0x478 044f 4801 |H | Short_Literal 0x1 0450 480d |H | Short_Literal 0xd 0451 e022 | " | Load 0x0,0x22 0452 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0453 e023 | # | Load 0x0,0x23 0454 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0455 e238 | 8 | Load 0x1,0x38 0456 820f | | Call 0x1,0xf 0457 4801 |H | Short_Literal 0x1 0458 480d |H | Short_Literal 0xd 0459 e022 | " | Load 0x0,0x22 045a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 045b e023 | # | Load 0x0,0x23 045c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 045d e238 | 8 | Load 0x1,0x38 045e 820f | | Call 0x1,0xf 045f 4801 |H | Short_Literal 0x1 0460 480d |H | Short_Literal 0xd 0461 e022 | " | Load 0x0,0x22 0462 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0463 e023 | # | Load 0x0,0x23 0464 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0465 e238 | 8 | Load 0x1,0x38 0466 820f | | Call 0x1,0xf 0467 4801 |H | Short_Literal 0x1 0468 480d |H | Short_Literal 0xd 0469 e022 | " | Load 0x0,0x22 046a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 046b e023 | # | Load 0x0,0x23 046c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 046d e238 | 8 | Load 0x1,0x38 046e 820f | | Call 0x1,0xf 046f 4801 |H | Short_Literal 0x1 0470 480d |H | Short_Literal 0xd 0471 e022 | " | Load 0x0,0x22 0472 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0473 e023 | # | Load 0x0,0x23 0474 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0475 e238 | 8 | Load 0x1,0x38 0476 820f | | Call 0x1,0xf 0477 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0478 00ea | | Load_Encached Null_String_Cache 0479 480f |H | Short_Literal 0xf 047a e605 | | Load 0x3,0x5 047b 8234 | 4 | Call 0x1,0x34 047c e7ff | | Load 0x3,-0x1 047d 480f |H | Short_Literal 0xf 047e 4838 |H8 | Short_Literal 0x38 047f 823c | < | Call 0x1,0x3c 0480 00d9 | | Load_Top At_Offset_1 0481 e7ff | | Load 0x3,-0x1 0482 480d |H | Short_Literal 0xd 0483 4839 |H9 | Short_Literal 0x39 0484 823c | < | Call 0x1,0x3c 0485 00d9 | | Load_Top At_Offset_1 0486 e7ff | | Load 0x3,-0x1 0487 480e |H | Short_Literal 0xe 0488 483a |H: | Short_Literal 0x3a 0489 823c | < | Call 0x1,0x3c 048a 4801 |H | Short_Literal 0x1 048b 480d |H | Short_Literal 0xd 048c e022 | " | Load 0x0,0x22 048d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 048e 00ea | | Load_Encached Null_String_Cache 048f 480a |H | Short_Literal 0xa 0490 e606 | | Load 0x3,0x6 0491 8234 | 4 | Call 0x1,0x34 0492 480a |H | Short_Literal 0xa 0493 e606 | | Load 0x3,0x6 0494 8232 | 2 | Call 0x1,0x32 0495 820f | | Call 0x1,0xf 0496 4801 |H | Short_Literal 0x1 0497 480d |H | Short_Literal 0xd 0498 e022 | " | Load 0x0,0x22 0499 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 049a 00db | | Load_Top At_Offset_3 049b 480b |H | Short_Literal 0xb 049c e603 | | Load 0x3,0x3 049d 8232 | 2 | Call 0x1,0x32 049e 820f | | Call 0x1,0xf 049f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a7 | | .CONST 0x04a7 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0003 | | .CONST 0x0003 ; Number of locals 04a3 INIT_04a0: 04a3 029f 081b | | Declare_Subprogram INIT_0818,For_Call 04a5 029f 0853 | S| Declare_Subprogram INIT_0850,For_Call 04a7 BODY_04a0: 04a7 e7ff | | Load 0x3,-0x1 04a8 e026 | & | Load 0x0,0x26 04a9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04aa 00d8 | | Load_Top At_Offset_0 04ab 0d0a | | Execute_Immediate Less,0xa 04ac 7028 |p( | Jump_Nonzero 0x4d5 04ad 0af6 | | Execute_Immediate Plus,-0xa 04ae 461c |F | Jump_Case 0x1d 04af 7827 |x' | Jump 0x4d7 ; case 0x0 04b0 781b |x | Jump 0x4cc ; case 0x1 04b1 7825 |x% | Jump 0x4d7 ; case 0x2 04b2 7819 |x | Jump 0x4cc ; case 0x3 04b3 7818 |x | Jump 0x4cc ; case 0x4 04b4 7817 |x | Jump 0x4cc ; case 0x5 04b5 7816 |x | Jump 0x4cc ; case 0x6 04b6 7815 |x | Jump 0x4cc ; case 0x7 04b7 7814 |x | Jump 0x4cc ; case 0x8 04b8 7813 |x | Jump 0x4cc ; case 0x9 04b9 7812 |x | Jump 0x4cc ; case 0xa 04ba 7811 |x | Jump 0x4cc ; case 0xb 04bb 7810 |x | Jump 0x4cc ; case 0xc 04bc 780f |x | Jump 0x4cc ; case 0xd 04bd 780e |x | Jump 0x4cc ; case 0xe 04be 780d |x | Jump 0x4cc ; case 0xf 04bf 780c |x | Jump 0x4cc ; case 0x10 04c0 780b |x | Jump 0x4cc ; case 0x11 04c1 780a |x | Jump 0x4cc ; case 0x12 04c2 7809 |x | Jump 0x4cc ; case 0x13 04c3 7813 |x | Jump 0x4d7 ; case 0x14 04c4 7812 |x | Jump 0x4d7 ; case 0x15 04c5 7811 |x | Jump 0x4d7 ; case 0x16 04c6 7805 |x | Jump 0x4cc ; case 0x17 04c7 7804 |x | Jump 0x4cc ; case 0x18 04c8 7803 |x | Jump 0x4cc ; case 0x19 04c9 7802 |x | Jump 0x4cc ; case 0x1a 04ca 7801 |x | Jump 0x4cc ; case 0x1b 04cb 7800 |x | Jump 0x4cc ; case 0x1c 04cc e7ff | | Load 0x3,-0x1 04cd e031 | 1 | Load 0x0,0x31 04ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04cf 0f06 | | Execute_Immediate Equal,0x6 04d0 6803 |h | Jump_Zero 0x4d4 04d1 e7fd | | Load 0x3,-0x3 04d2 7001 |p | Jump_Nonzero 0x4d4 04d3 8603 | | Call 0x3,0x3 04d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d5 00d1 | | Pop_Control Pop_Count_1 04d6 7ff5 | | Jump 0x4cc 04d7 8602 | | Call 0x3,0x2 04d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d9 0000 0000 | | .BLANK 0000[0x7] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 0502 | | .CONST 0x0502 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0007 | | .CONST 0x0007 ; Number of locals 04e3 INIT_04e0: 04e3 e020 | | Load 0x0,0x20 04e4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 04e5 02c7 | | Declare_Variable Any 04e6 00d8 | | Load_Top At_Offset_0 04e7 1c00 | | Execute_Immediate Run_Utility,0x0 04e8 e020 | | Load 0x0,0x20 04e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ea 02c7 | | Declare_Variable Any 04eb e7ff | | Load 0x3,-0x1 04ec a603 | | Store_Unchecked 0x3,0x3 04ed e020 | | Load 0x0,0x20 04ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ef 02c7 | | Declare_Variable Any 04f0 00d9 | | Load_Top At_Offset_1 04f1 e031 | 1 | Load 0x0,0x31 04f2 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 04f3 a604 | | Store_Unchecked 0x3,0x4 04f4 e020 | | Load 0x0,0x20 04f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 04f6 02c7 | | Declare_Variable Any 04f7 00da | | Load_Top At_Offset_2 04f8 e031 | 1 | Load 0x0,0x31 04f9 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 04fa a605 | | Store_Unchecked 0x3,0x5 04fb e020 | | Load 0x0,0x20 04fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04fd 02c7 | | Declare_Variable Any 04fe 00d8 | | Load_Top At_Offset_0 04ff 1c00 | | Execute_Immediate Run_Utility,0x0 0500 029f 08b3 | | Declare_Subprogram INIT_08b0,For_Call 0502 BODY_04e0: 0502 e7fe | | Load 0x3,-0x2 0503 e604 | | Load 0x3,0x4 0504 8416 | | Call 0x2,0x16 0505 00cf | | Action Mark_Auxiliary 0506 780a |x | Jump 0x511 0507 00db | | Load_Top At_Offset_3 0508 e020 | | Load 0x0,0x20 0509 1817 | | Execute Package,Field_Execute,Field_Number 0x17 050a c606 | | Store 0x3,0x6 050b 8607 | | Call 0x3,0x7 050c 00db | | Load_Top At_Offset_3 050d e020 | | Load 0x0,0x20 050e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 050f c605 | | Store 0x3,0x5 0510 00c9 | | Action Pop_Auxiliary_Loop 0511 00db | | Load_Top At_Offset_3 0512 e020 | | Load 0x0,0x20 0513 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0514 6ff2 |o | Jump_Zero 0x507 0515 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0516 0000 0000 | | .XXX[0x2] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 054f | O | .CONST 0x054f ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 000f | | .CONST 0x000f ; Number of locals 051b INIT_0518: 051b e02d | - | Load 0x0,0x2d 051c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 051d 02c7 | | Declare_Variable Any 051e 00d8 | | Load_Top At_Offset_0 051f 1c00 | | Execute_Immediate Run_Utility,0x0 0520 e02d | - | Load 0x0,0x2d 0521 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0522 02c7 | | Declare_Variable Any 0523 00d8 | | Load_Top At_Offset_0 0524 1c00 | | Execute_Immediate Run_Utility,0x0 0525 e020 | | Load 0x0,0x20 0526 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0527 02c7 | | Declare_Variable Any 0528 00d8 | | Load_Top At_Offset_0 0529 1c00 | | Execute_Immediate Run_Utility,0x0 052a e026 | & | Load 0x0,0x26 052b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 052c 00e1 | | Load_Encached Boolean_Cache 052d e020 | | Load 0x0,0x20 052e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052f 02c7 | | Declare_Variable Any 0530 00d8 | | Load_Top At_Offset_0 0531 1c00 | | Execute_Immediate Run_Utility,0x0 0532 e020 | | Load 0x0,0x20 0533 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0534 02c7 | | Declare_Variable Any 0535 00d8 | | Load_Top At_Offset_0 0536 1c00 | | Execute_Immediate Run_Utility,0x0 0537 e020 | | Load 0x0,0x20 0538 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0539 02c7 | | Declare_Variable Any 053a 00d8 | | Load_Top At_Offset_0 053b 1c00 | | Execute_Immediate Run_Utility,0x0 053c e023 | # | Load 0x0,0x23 053d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 053e 02ff | | Declare_Variable Variant_Record 053f 00d8 | | Load_Top At_Offset_0 0540 1c00 | | Execute_Immediate Run_Utility,0x0 0541 e027 | ' | Load 0x0,0x27 0542 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0543 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0544 e027 | ' | Load 0x0,0x27 0545 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0546 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0547 0322 | " | Declare_Variable Record 0548 4801 |H | Short_Literal 0x1 0549 4804 |H | Short_Literal 0x4 054a 00e5 | | Load_Encached Long_Integer_Cache 054b 03f8 | | Declare_Type Discrete,Constrained 054c 00d8 | | Load_Top At_Offset_0 054d 029f 08fb | | Declare_Subprogram INIT_08f8,For_Call 054f BODY_0518: 054f e7ff | | Load 0x3,-0x1 0550 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0551 4606 |F | Jump_Case 0x7 0552 7834 |x4 | Jump 0x587 ; case 0x0 0553 781f |x | Jump 0x573 ; case 0x1 0554 7812 |x | Jump 0x567 ; case 0x2 0555 7803 |x | Jump 0x559 ; case 0x3 0556 7830 |x0 | Jump 0x587 ; case 0x4 0557 781f |x | Jump 0x577 ; case 0x5 0558 782e |x. | Jump 0x587 ; case 0x6 0559 e7ff | | Load 0x3,-0x1 055a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 055b e024 | $ | Load 0x0,0x24 055c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 055d e026 | & | Load 0x0,0x26 055e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 055f c604 | | Store 0x3,0x4 0560 e7ff | | Load 0x3,-0x1 0561 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0562 e024 | $ | Load 0x0,0x24 0563 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0564 e60c | | Load 0x3,0xc 0565 017d | } | Execute Record,Structure_Write 0566 7820 |x | Jump 0x587 0567 e7ff | | Load 0x3,-0x1 0568 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0569 e02c | , | Load 0x0,0x2c 056a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 056b c604 | | Store 0x3,0x4 056c e7ff | | Load 0x3,-0x1 056d 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 056e e02c | , | Load 0x0,0x2c 056f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0570 e60c | | Load 0x3,0xc 0571 017d | } | Execute Record,Structure_Write 0572 7814 |x | Jump 0x587 0573 e7ff | | Load 0x3,-0x1 0574 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0575 c604 | | Store 0x3,0x4 0576 7810 |x | Jump 0x587 0577 e7ff | | Load 0x3,-0x1 0578 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0579 c602 | | Store 0x3,0x2 057a e602 | | Load 0x3,0x2 057b e02d | - | Load 0x0,0x2d 057c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 057d c603 | | Store 0x3,0x3 057e e603 | | Load 0x3,0x3 057f e026 | & | Load 0x0,0x26 0580 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0581 c604 | | Store 0x3,0x4 0582 e602 | | Load 0x3,0x2 0583 e02d | - | Load 0x0,0x2d 0584 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0585 e60c | | Load 0x3,0xc 0586 017d | } | Execute Record,Structure_Write 0587 e7fe | | Load 0x3,-0x2 0588 6807 |h | Jump_Zero 0x590 0589 e604 | | Load 0x3,0x4 058a e026 | & | Load 0x0,0x26 058b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 058c 0f22 | " | Execute_Immediate Equal,0x22 058d 7001 |p | Jump_Nonzero 0x58f 058e 7801 |x | Jump 0x590 058f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0590 e409 | | Load 0x2,0x9 0591 700c |p | Jump_Nonzero 0x59e 0592 480a |H | Short_Literal 0xa 0593 e022 | " | Load 0x0,0x22 0594 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0595 e023 | # | Load 0x0,0x23 0596 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0597 4800 |H | Short_Literal 0x0 0598 e5fc | | Load 0x2,-0x4 0599 e5fd | | Load 0x2,-0x3 059a 820d | | Call 0x1,0xd 059b 8415 | | Call 0x2,0x15 059c 4801 |H | Short_Literal 0x1 059d a409 | | Store_Unchecked 0x2,0x9 059e 4801 |H | Short_Literal 0x1 059f 480d |H | Short_Literal 0xd 05a0 e022 | " | Load 0x0,0x22 05a1 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 05a2 00ea | | Load_Encached Null_String_Cache 05a3 4804 |H | Short_Literal 0x4 05a4 e7ff | | Load 0x3,-0x1 05a5 e022 | " | Load 0x0,0x22 05a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05a7 4804 |H | Short_Literal 0x4 05a8 e7ff | | Load 0x3,-0x1 05a9 e022 | " | Load 0x0,0x22 05aa 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05ab 820f | | Call 0x1,0xf 05ac e604 | | Load 0x3,0x4 05ad 4812 |H | Short_Literal 0x12 05ae e01f | | Load 0x0,0x1f 05af 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05b0 180d | | Execute Package,Field_Execute,Field_Number 0xd 05b1 a60b | | Store_Unchecked 0x3,0xb 05b2 e60b | | Load 0x3,0xb 05b3 e027 | ' | Load 0x0,0x27 05b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05b5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05b6 680f |h | Jump_Zero 0x5c6 05b7 4801 |H | Short_Literal 0x1 05b8 480d |H | Short_Literal 0xd 05b9 e022 | " | Load 0x0,0x22 05ba 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 05bb 00ea | | Load_Encached Null_String_Cache 05bc 4800 |H | Short_Literal 0x0 05bd e7ff | | Load 0x3,-0x1 05be e022 | " | Load 0x0,0x22 05bf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05c0 4801 |H | Short_Literal 0x1 05c1 e7ff | | Load 0x3,-0x1 05c2 e022 | " | Load 0x0,0x22 05c3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05c4 820f | | Call 0x1,0xf 05c5 7817 |x | Jump 0x5dd 05c6 4801 |H | Short_Literal 0x1 05c7 480d |H | Short_Literal 0xd 05c8 e022 | " | Load 0x0,0x22 05c9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 05ca 00ea | | Load_Encached Null_String_Cache 05cb 4800 |H | Short_Literal 0x0 05cc e7ff | | Load 0x3,-0x1 05cd e022 | " | Load 0x0,0x22 05ce 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05cf 4801 |H | Short_Literal 0x1 05d0 e7ff | | Load 0x3,-0x1 05d1 e022 | " | Load 0x0,0x22 05d2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05d3 0092 0913 | | Action Push_String_Extended,0x913 ; "-" 05d5 01cc | | Execute Vector,Catenate 05d6 00ea | | Load_Encached Null_String_Cache 05d7 e60b | | Load 0x3,0xb 05d8 e01f | | Load 0x0,0x1f 05d9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05da 180f | | Execute Package,Field_Execute,Field_Number 0xf 05db 01cc | | Execute Vector,Catenate 05dc 820f | | Call 0x1,0xf 05dd e604 | | Load 0x3,0x4 05de 823a | : | Call 0x1,0x3a 05df c604 | | Store 0x3,0x4 05e0 e609 | | Load 0x3,0x9 05e1 e608 | | Load 0x3,0x8 05e2 e607 | | Load 0x3,0x7 05e3 00e1 | | Load_Encached Boolean_Cache 05e4 e604 | | Load 0x3,0x4 05e5 822e | . | Call 0x1,0x2e 05e6 c606 | | Store 0x3,0x6 05e7 c607 | | Store 0x3,0x7 05e8 c608 | | Store 0x3,0x8 05e9 c609 | | Store 0x3,0x9 05ea 00ea | | Load_Encached Null_String_Cache 05eb 4801 |H | Short_Literal 0x1 05ec e609 | | Load 0x3,0x9 05ed 8234 | 4 | Call 0x1,0x34 05ee e60a | | Load 0x3,0xa 05ef 016d | m | Execute Variant_Record,Structure_Write 05f0 e604 | | Load 0x3,0x4 05f1 e026 | & | Load 0x0,0x26 05f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05f3 a605 | | Store_Unchecked 0x3,0x5 05f4 e605 | | Load 0x3,0x5 05f5 4626 |F& | Jump_Case 0x27 05f6 7826 |x& | Jump 0x61d ; case 0x0 05f7 7825 |x% | Jump 0x61d ; case 0x1 05f8 7824 |x$ | Jump 0x61d ; case 0x2 05f9 7823 |x# | Jump 0x61d ; case 0x3 05fa 7822 |x" | Jump 0x61d ; case 0x4 05fb 7821 |x! | Jump 0x61d ; case 0x5 05fc 7820 |x | Jump 0x61d ; case 0x6 05fd 781f |x | Jump 0x61d ; case 0x7 05fe 781e |x | Jump 0x61d ; case 0x8 05ff 781d |x | Jump 0x61d ; case 0x9 0600 7829 |x) | Jump 0x62a ; case 0xa 0601 781b |x | Jump 0x61d ; case 0xb 0602 782a |x* | Jump 0x62d ; case 0xc 0603 7819 |x | Jump 0x61d ; case 0xd 0604 7818 |x | Jump 0x61d ; case 0xe 0605 7817 |x | Jump 0x61d ; case 0xf 0606 7816 |x | Jump 0x61d ; case 0x10 0607 7815 |x | Jump 0x61d ; case 0x11 0608 7814 |x | Jump 0x61d ; case 0x12 0609 7813 |x | Jump 0x61d ; case 0x13 060a 781f |x | Jump 0x62a ; case 0x14 060b 7821 |x! | Jump 0x62d ; case 0x15 060c 7810 |x | Jump 0x61d ; case 0x16 060d 780f |x | Jump 0x61d ; case 0x17 060e 780e |x | Jump 0x61d ; case 0x18 060f 780d |x | Jump 0x61d ; case 0x19 0610 780c |x | Jump 0x61d ; case 0x1a 0611 780b |x | Jump 0x61d ; case 0x1b 0612 780a |x | Jump 0x61d ; case 0x1c 0613 7809 |x | Jump 0x61d ; case 0x1d 0614 7815 |x | Jump 0x62a ; case 0x1e 0615 7814 |x | Jump 0x62a ; case 0x1f 0616 7813 |x | Jump 0x62a ; case 0x20 0617 7805 |x | Jump 0x61d ; case 0x21 0618 7804 |x | Jump 0x61d ; case 0x22 0619 7803 |x | Jump 0x61d ; case 0x23 061a 7802 |x | Jump 0x61d ; case 0x24 061b 7801 |x | Jump 0x61d ; case 0x25 061c 7800 |x | Jump 0x61d ; case 0x26 061d e606 | | Load 0x3,0x6 061e 6803 |h | Jump_Zero 0x622 061f 4801 |H | Short_Literal 0x1 0620 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0621 780d |x | Jump 0x62f 0622 e605 | | Load 0x3,0x5 0623 0f23 | # | Execute_Immediate Equal,0x23 0624 6802 |h | Jump_Zero 0x627 0625 860f | | Call 0x3,0xf 0626 7808 |x | Jump 0x62f 0627 4803 |H | Short_Literal 0x3 0628 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0629 7805 |x | Jump 0x62f 062a 4802 |H | Short_Literal 0x2 062b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 062c 7802 |x | Jump 0x62f 062d 4804 |H | Short_Literal 0x4 062e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 062f 00d9 | | Load_Top At_Offset_1 0630 0aff | | Execute_Immediate Plus,-0x1 0631 4603 |F | Jump_Case 0x4 0632 7841 |xA | Jump 0x674 ; case 0x0 0633 7869 |xi | Jump 0x69d ; case 0x1 0634 7801 |x | Jump 0x636 ; case 0x2 0635 7800 |x | Jump 0x636 ; case 0x3 0636 00ea | | Load_Encached Null_String_Cache 0637 480f |H | Short_Literal 0xf 0638 e607 | | Load 0x3,0x7 0639 8234 | 4 | Call 0x1,0x34 063a e604 | | Load 0x3,0x4 063b 480f |H | Short_Literal 0xf 063c 4838 |H8 | Short_Literal 0x38 063d 823c | < | Call 0x1,0x3c 063e e60a | | Load 0x3,0xa 063f e604 | | Load 0x3,0x4 0640 480d |H | Short_Literal 0xd 0641 4839 |H9 | Short_Literal 0x39 0642 823c | < | Call 0x1,0x3c 0643 e60a | | Load 0x3,0xa 0644 e604 | | Load 0x3,0x4 0645 480e |H | Short_Literal 0xe 0646 483a |H: | Short_Literal 0x3a 0647 823c | < | Call 0x1,0x3c 0648 4801 |H | Short_Literal 0x1 0649 480d |H | Short_Literal 0xd 064a e022 | " | Load 0x0,0x22 064b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 064c 00ea | | Load_Encached Null_String_Cache 064d 480a |H | Short_Literal 0xa 064e e608 | | Load 0x3,0x8 064f 8234 | 4 | Call 0x1,0x34 0650 480a |H | Short_Literal 0xa 0651 e608 | | Load 0x3,0x8 0652 8232 | 2 | Call 0x1,0x32 0653 820f | | Call 0x1,0xf 0654 4801 |H | Short_Literal 0x1 0655 480d |H | Short_Literal 0xd 0656 e022 | " | Load 0x0,0x22 0657 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0658 e60a | | Load 0x3,0xa 0659 480b |H | Short_Literal 0xb 065a e604 | | Load 0x3,0x4 065b 8232 | 2 | Call 0x1,0x32 065c 820f | | Call 0x1,0xf 065d 00d9 | | Load_Top At_Offset_1 065e 0f04 | | Execute_Immediate Equal,0x4 065f 680a |h | Jump_Zero 0x66a 0660 e7fe | | Load 0x3,-0x2 0661 e7fd | | Load 0x3,-0x3 0662 00d8 | | Load_Top At_Offset_0 0663 00e3 | | Load_Encached Natural_Cache 0664 0260 | ` | Execute Discrete,In_Type 0665 7001 |p | Jump_Nonzero 0x667 0666 0801 | | Execute_Immediate Raise,0x1 0667 e604 | | Load 0x3,0x4 0668 8417 | | Call 0x2,0x17 0669 4504 |E | Exit_Suprogram New_Top_Offset 0x4 066a e7fe | | Load 0x3,-0x2 066b e7fd | | Load 0x3,-0x3 066c 00d8 | | Load_Top At_Offset_0 066d 00e3 | | Load_Encached Natural_Cache 066e 0260 | ` | Execute Discrete,In_Type 066f 7001 |p | Jump_Nonzero 0x671 0670 0801 | | Execute_Immediate Raise,0x1 0671 e608 | | Load 0x3,0x8 0672 8417 | | Call 0x2,0x17 0673 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0674 4801 |H | Short_Literal 0x1 0675 480d |H | Short_Literal 0xd 0676 e022 | " | Load 0x0,0x22 0677 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0678 e023 | # | Load 0x0,0x23 0679 1b16 | | Execute Package,Field_Read,Field_Number 0x16 067a e238 | 8 | Load 0x1,0x38 067b 820f | | Call 0x1,0xf 067c 4801 |H | Short_Literal 0x1 067d 480d |H | Short_Literal 0xd 067e e022 | " | Load 0x0,0x22 067f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0680 e023 | # | Load 0x0,0x23 0681 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0682 e238 | 8 | Load 0x1,0x38 0683 820f | | Call 0x1,0xf 0684 4801 |H | Short_Literal 0x1 0685 480d |H | Short_Literal 0xd 0686 e022 | " | Load 0x0,0x22 0687 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0688 e023 | # | Load 0x0,0x23 0689 1b16 | | Execute Package,Field_Read,Field_Number 0x16 068a e238 | 8 | Load 0x1,0x38 068b 820f | | Call 0x1,0xf 068c 4801 |H | Short_Literal 0x1 068d 480d |H | Short_Literal 0xd 068e e022 | " | Load 0x0,0x22 068f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0690 e023 | # | Load 0x0,0x23 0691 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0692 e238 | 8 | Load 0x1,0x38 0693 820f | | Call 0x1,0xf 0694 4801 |H | Short_Literal 0x1 0695 480d |H | Short_Literal 0xd 0696 e022 | " | Load 0x0,0x22 0697 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0698 e023 | # | Load 0x0,0x23 0699 1b16 | | Execute Package,Field_Read,Field_Number 0x16 069a e238 | 8 | Load 0x1,0x38 069b 820f | | Call 0x1,0xf 069c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 069d 4801 |H | Short_Literal 0x1 069e 480d |H | Short_Literal 0xd 069f e022 | " | Load 0x0,0x22 06a0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 06a1 e023 | # | Load 0x0,0x23 06a2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06a3 00ea | | Load_Encached Null_String_Cache 06a4 820f | | Call 0x1,0xf 06a5 4801 |H | Short_Literal 0x1 06a6 480d |H | Short_Literal 0xd 06a7 e022 | " | Load 0x0,0x22 06a8 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 06a9 e023 | # | Load 0x0,0x23 06aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06ab 00ea | | Load_Encached Null_String_Cache 06ac 820f | | Call 0x1,0xf 06ad 4801 |H | Short_Literal 0x1 06ae 480d |H | Short_Literal 0xd 06af e022 | " | Load 0x0,0x22 06b0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 06b1 e023 | # | Load 0x0,0x23 06b2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06b3 00ea | | Load_Encached Null_String_Cache 06b4 820f | | Call 0x1,0xf 06b5 4801 |H | Short_Literal 0x1 06b6 480d |H | Short_Literal 0xd 06b7 e022 | " | Load 0x0,0x22 06b8 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 06b9 e023 | # | Load 0x0,0x23 06ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06bb 00ea | | Load_Encached Null_String_Cache 06bc 820f | | Call 0x1,0xf 06bd 4801 |H | Short_Literal 0x1 06be 480d |H | Short_Literal 0xd 06bf e022 | " | Load 0x0,0x22 06c0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 06c1 e023 | # | Load 0x0,0x23 06c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06c3 00ea | | Load_Encached Null_String_Cache 06c4 820f | | Call 0x1,0xf 06c5 e7fe | | Load 0x3,-0x2 06c6 e7fd | | Load 0x3,-0x3 06c7 00d8 | | Load_Top At_Offset_0 06c8 00e3 | | Load_Encached Natural_Cache 06c9 0260 | ` | Execute Discrete,In_Type 06ca 7001 |p | Jump_Nonzero 0x6cc 06cb 0801 | | Execute_Immediate Raise,0x1 06cc e604 | | Load 0x3,0x4 06cd 8417 | | Call 0x2,0x17 06ce 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06cf 0000 | | .XXX[0x1] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d3 | | .CONST 0x06d3 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0001 | | .CONST 0x0001 ; Number of locals 06d3 BODY_06d0: 06d3 INIT_06d0: 06d3 00cf | | Action Mark_Auxiliary 06d4 00db | | Load_Top At_Offset_3 06d5 e022 | " | Load 0x0,0x22 06d6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 06d7 e7ff | | Load 0x3,-0x1 06d8 e022 | " | Load 0x0,0x22 06d9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 06da 0a01 | | Execute_Immediate Plus,0x1 06db 00d8 | | Load_Top At_Offset_0 06dc 00e2 | | Load_Encached Integer_Cache 06dd 0260 | ` | Execute Discrete,In_Type 06de 7001 |p | Jump_Nonzero 0x6e0 06df 0801 | | Execute_Immediate Raise,0x1 06e0 0263 | c | Execute Discrete,Above_Bound 06e1 7009 |p | Jump_Nonzero 0x6eb 06e2 e7fe | | Load 0x3,-0x2 06e3 4801 |H | Short_Literal 0x1 06e4 00da | | Load_Top At_Offset_2 06e5 e7ff | | Load 0x3,-0x1 06e6 e022 | " | Load 0x0,0x22 06e7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 06e8 8419 | | Call 0x2,0x19 06e9 00c8 | | Action Pop_Auxiliary_Range 06ea 3ff7 |? | Loop_Increasing 0x6e2 06eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06ec 0000 0000 | | .BLANK 0000[0x4] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 0709 | | .CONST 0x0709 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0005 | | .CONST 0x0005 ; Number of locals 06f3 INIT_06f0: 06f3 e020 | | Load 0x0,0x20 06f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06f5 02c7 | | Declare_Variable Any 06f6 e7ff | | Load 0x3,-0x1 06f7 e031 | 1 | Load 0x0,0x31 06f8 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 06f9 a802 | | Store_Unchecked 0x4,0x2 06fa e023 | # | Load 0x0,0x23 06fb 1b15 | | Execute Package,Field_Read,Field_Number 0x15 06fc 02ff | | Declare_Variable Variant_Record 06fd 00d8 | | Load_Top At_Offset_0 06fe 1c00 | | Execute_Immediate Run_Utility,0x0 06ff e020 | | Load 0x0,0x20 0700 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0701 02c7 | | Declare_Variable Any 0702 00d8 | | Load_Top At_Offset_0 0703 1c00 | | Execute_Immediate Run_Utility,0x0 0704 e020 | | Load 0x0,0x20 0705 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0706 02c7 | | Declare_Variable Any 0707 00d8 | | Load_Top At_Offset_0 0708 1c00 | | Execute_Immediate Run_Utility,0x0 0709 BODY_06f0: 0709 00cf | | Action Mark_Auxiliary 070a 7841 |xA | Jump 0x74c 070b e802 | | Load 0x4,0x2 070c e020 | | Load 0x0,0x20 070d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 070e c805 | | Store 0x4,0x5 070f 00d9 | | Load_Top At_Offset_1 0710 e031 | 1 | Load 0x0,0x31 0711 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0712 4603 |F | Jump_Case 0x4 0713 780d |x | Jump 0x721 ; case 0x0 0714 7802 |x | Jump 0x717 ; case 0x1 0715 7806 |x | Jump 0x71c ; case 0x2 0716 780a |x | Jump 0x721 ; case 0x3 0717 00d9 | | Load_Top At_Offset_1 0718 e026 | & | Load 0x0,0x26 0719 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 071a c804 | | Store 0x4,0x4 071b 7805 |x | Jump 0x721 071c e7fe | | Load 0x3,-0x2 071d 00da | | Load_Top At_Offset_2 071e 8413 | | Call 0x2,0x13 071f 00cc | | Action Pop_Block 0720 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0721 00cf | | Action Mark_Auxiliary 0722 780a |x | Jump 0x72d 0723 e7fe | | Load 0x3,-0x2 0724 e804 | | Load 0x4,0x4 0725 e020 | | Load 0x0,0x20 0726 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0727 8411 | | Call 0x2,0x11 0728 00db | | Load_Top At_Offset_3 0729 e020 | | Load 0x0,0x20 072a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 072b c804 | | Store 0x4,0x4 072c 00c9 | | Action Pop_Auxiliary_Loop 072d 00db | | Load_Top At_Offset_3 072e e020 | | Load 0x0,0x20 072f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0730 6ff2 |o | Jump_Zero 0x723 0731 00ce | | Action Pop_Auxiliary 0732 e405 | | Load 0x2,0x5 0733 e404 | | Load 0x2,0x4 0734 e403 | | Load 0x2,0x3 0735 00e1 | | Load_Encached Boolean_Cache 0736 e802 | | Load 0x4,0x2 0737 e020 | | Load 0x0,0x20 0738 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0739 822e | . | Call 0x1,0x2e 073a c402 | | Store 0x2,0x2 073b c403 | | Store 0x2,0x3 073c c404 | | Store 0x2,0x4 073d c405 | | Store 0x2,0x5 073e e7fe | | Load 0x3,-0x2 073f 0a01 | | Execute_Immediate Plus,0x1 0740 00d8 | | Load_Top At_Offset_0 0741 00e3 | | Load_Encached Natural_Cache 0742 0260 | ` | Execute Discrete,In_Type 0743 7001 |p | Jump_Nonzero 0x745 0744 0801 | | Execute_Immediate Raise,0x1 0745 e404 | | Load 0x2,0x4 0746 8412 | | Call 0x2,0x12 0747 e802 | | Load 0x4,0x2 0748 e020 | | Load 0x0,0x20 0749 1815 | | Execute Package,Field_Execute,Field_Number 0x15 074a c802 | | Store 0x4,0x2 074b 00c9 | | Action Pop_Auxiliary_Loop 074c e802 | | Load 0x4,0x2 074d e020 | | Load 0x0,0x20 074e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 074f 6fbb |o | Jump_Zero 0x70b 0750 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0751 0000 0000 | | .BLANK 0000[0x7] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 0762 | b | .CONST 0x0762 ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0002 | | .CONST 0x0002 ; Number of locals 075b INIT_0758: 075b e020 | | Load 0x0,0x20 075c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 075d 02c7 | | Declare_Variable Any 075e e606 | | Load 0x3,0x6 075f e031 | 1 | Load 0x0,0x31 0760 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 0761 a802 | | Store_Unchecked 0x4,0x2 0762 BODY_0758: 0762 00cf | | Action Mark_Auxiliary 0763 7831 |x1 | Jump 0x795 0764 00d9 | | Load_Top At_Offset_1 0765 e020 | | Load 0x0,0x20 0766 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0767 c603 | | Store 0x3,0x3 0768 e603 | | Load 0x3,0x3 0769 e026 | & | Load 0x0,0x26 076a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 076b c602 | | Store 0x3,0x2 076c 00cf | | Action Mark_Auxiliary 076d 780a |x | Jump 0x778 076e e7fe | | Load 0x3,-0x2 076f e602 | | Load 0x3,0x2 0770 e020 | | Load 0x0,0x20 0771 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0772 8411 | | Call 0x2,0x11 0773 e602 | | Load 0x3,0x2 0774 e020 | | Load 0x0,0x20 0775 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0776 c602 | | Store 0x3,0x2 0777 00c9 | | Action Pop_Auxiliary_Loop 0778 e602 | | Load 0x3,0x2 0779 e020 | | Load 0x0,0x20 077a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 077b 6ff2 |o | Jump_Zero 0x76e 077c 00ce | | Action Pop_Auxiliary 077d e405 | | Load 0x2,0x5 077e e404 | | Load 0x2,0x4 077f e403 | | Load 0x2,0x3 0780 00e1 | | Load_Encached Boolean_Cache 0781 e603 | | Load 0x3,0x3 0782 822e | . | Call 0x1,0x2e 0783 c402 | | Store 0x2,0x2 0784 c403 | | Store 0x2,0x3 0785 c404 | | Store 0x2,0x4 0786 c405 | | Store 0x2,0x5 0787 e7fe | | Load 0x3,-0x2 0788 0a01 | | Execute_Immediate Plus,0x1 0789 00d8 | | Load_Top At_Offset_0 078a 00e3 | | Load_Encached Natural_Cache 078b 0260 | ` | Execute Discrete,In_Type 078c 7001 |p | Jump_Nonzero 0x78e 078d 0801 | | Execute_Immediate Raise,0x1 078e e404 | | Load 0x2,0x4 078f 8412 | | Call 0x2,0x12 0790 00d9 | | Load_Top At_Offset_1 0791 e020 | | Load 0x0,0x20 0792 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0793 c802 | | Store 0x4,0x2 0794 00c9 | | Action Pop_Auxiliary_Loop 0795 00d9 | | Load_Top At_Offset_1 0796 e020 | | Load 0x0,0x20 0797 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0798 6fcb |o | Jump_Zero 0x764 0799 4501 |E | Exit_Suprogram New_Top_Offset 0x1 079a 0000 0000 | | .BLANK 0000[0x6] 07a0 ; -------------------------------------------------------------------------------------- 07a0 ; SUBPROGRAM 07a0 ; -------------------------------------------------------------------------------------- 07a0 07a3 | | .CONST 0x07a3 ; Address of begin 07a1 0004 | | .CONST 0x0004 ; Address of exception handler 07a2 0001 | | .CONST 0x0001 ; Number of locals 07a3 BODY_07a0: 07a3 INIT_07a0: 07a3 00da | | Load_Top At_Offset_2 07a4 0f01 | | Execute_Immediate Equal,0x1 07a5 6817 |h | Jump_Zero 0x7bd 07a6 e022 | " | Load 0x0,0x22 07a7 1b8a | | Execute Package,Field_Read,Field_Number 0x8a 07a8 e603 | | Load 0x3,0x3 07a9 e02c | , | Load 0x0,0x2c 07aa 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 07ab c40c | | Store 0x2,0xc 07ac 4801 |H | Short_Literal 0x1 07ad 480d |H | Short_Literal 0xd 07ae e022 | " | Load 0x0,0x22 07af 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 07b0 00ea | | Load_Encached Null_String_Cache 07b1 4800 |H | Short_Literal 0x0 07b2 e40c | | Load 0x2,0xc 07b3 e022 | " | Load 0x0,0x22 07b4 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 07b5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 07b6 4801 |H | Short_Literal 0x1 07b7 e40c | | Load 0x2,0xc 07b8 e022 | " | Load 0x0,0x22 07b9 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 07ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11 07bb 820f | | Call 0x1,0xf 07bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07bd 00da | | Load_Top At_Offset_2 07be 6803 |h | Jump_Zero 0x7c2 07bf 00da | | Load_Top At_Offset_2 07c0 0f02 | | Execute_Immediate Equal,0x2 07c1 6830 |h0 | Jump_Zero 0x7f2 07c2 4801 |H | Short_Literal 0x1 07c3 4803 |H | Short_Literal 0x3 07c4 e022 | " | Load 0x0,0x22 07c5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 07c6 1c08 | | Execute_Immediate Run_Utility,0x8 07c7 e40e | | Load 0x2,0xe 07c8 e022 | " | Load 0x0,0x22 07c9 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 07ca 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 07cb 0119 | | Execute Any,Check_In_Formal_Type 07cc 00d9 | | Load_Top At_Offset_1 07cd 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 07ce e022 | " | Load 0x0,0x22 07cf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 07d0 e40d | | Load 0x2,0xd 07d1 016d | m | Execute Variant_Record,Structure_Write 07d2 e40d | | Load 0x2,0xd 07d3 e022 | " | Load 0x0,0x22 07d4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 07d5 700d |p | Jump_Nonzero 0x7e3 07d6 4801 |H | Short_Literal 0x1 07d7 480d |H | Short_Literal 0xd 07d8 e022 | " | Load 0x0,0x22 07d9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 07da 0092 090f | | Action Push_String_Extended,0x90f ; "This interface data item has no destination because its interface is currently unused by other components. Use Definition to visit and verify this data item." 07dc 4800 |H | Short_Literal 0x0 07dd e7ff | | Load 0x3,-0x1 07de e022 | " | Load 0x0,0x22 07df 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 07e0 e237 | 7 | Load 0x1,0x37 07e1 820f | | Call 0x1,0xf 07e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07e3 4800 |H | Short_Literal 0x0 07e4 480d |H | Short_Literal 0xd 07e5 e022 | " | Load 0x0,0x22 07e6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 07e7 00ea | | Load_Encached Null_String_Cache 07e8 e40d | | Load 0x2,0xd 07e9 e022 | " | Load 0x0,0x22 07ea 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 07eb 4801 |H | Short_Literal 0x1 07ec e235 | 5 | Load 0x1,0x35 07ed e40d | | Load 0x2,0xd 07ee e022 | " | Load 0x0,0x22 07ef 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 07f0 820f | | Call 0x1,0xf 07f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07f2 00da | | Load_Top At_Offset_2 07f3 0f03 | | Execute_Immediate Equal,0x3 07f4 681e |h | Jump_Zero 0x813 07f5 4802 |H | Short_Literal 0x2 07f6 4803 |H | Short_Literal 0x3 07f7 e022 | " | Load 0x0,0x22 07f8 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 07f9 1c08 | | Execute_Immediate Run_Utility,0x8 07fa e40e | | Load 0x2,0xe 07fb e022 | " | Load 0x0,0x22 07fc 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 07fd 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 07fe 0119 | | Execute Any,Check_In_Formal_Type 07ff 00d9 | | Load_Top At_Offset_1 0800 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0801 e022 | " | Load 0x0,0x22 0802 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0803 e407 | | Load 0x2,0x7 0804 016d | m | Execute Variant_Record,Structure_Write 0805 4800 |H | Short_Literal 0x0 0806 480d |H | Short_Literal 0xd 0807 e022 | " | Load 0x0,0x22 0808 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0809 00ea | | Load_Encached Null_String_Cache 080a e407 | | Load 0x2,0x7 080b e022 | " | Load 0x0,0x22 080c 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 080d 4801 |H | Short_Literal 0x1 080e e235 | 5 | Load 0x1,0x35 080f e407 | | Load 0x2,0x7 0810 e022 | " | Load 0x0,0x22 0811 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 0812 820f | | Call 0x1,0xf 0813 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0814 0000 0000 | | .BLANK 0000[0x4] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 082a | * | .CONST 0x082a ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0004 | | .CONST 0x0004 ; Number of locals 081b INIT_0818: 081b e020 | | Load 0x0,0x20 081c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 081d 02c7 | | Declare_Variable Any 081e 00d8 | | Load_Top At_Offset_0 081f 1c00 | | Execute_Immediate Run_Utility,0x0 0820 e020 | | Load 0x0,0x20 0821 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0822 02c7 | | Declare_Variable Any 0823 00d8 | | Load_Top At_Offset_0 0824 1c00 | | Execute_Immediate Run_Utility,0x0 0825 e020 | | Load 0x0,0x20 0826 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0827 02c7 | | Declare_Variable Any 0828 00d8 | | Load_Top At_Offset_0 0829 1c00 | | Execute_Immediate Run_Utility,0x0 082a BODY_0818: 082a e7ff | | Load 0x3,-0x1 082b e026 | & | Load 0x0,0x26 082c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 082d c802 | | Store 0x4,0x2 082e 00da | | Load_Top At_Offset_2 082f e026 | & | Load 0x0,0x26 0830 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0831 c803 | | Store 0x4,0x3 0832 00d9 | | Load_Top At_Offset_1 0833 e020 | | Load 0x0,0x20 0834 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0835 c803 | | Store 0x4,0x3 0836 00cf | | Action Mark_Auxiliary 0837 780c |x | Jump 0x844 0838 00da | | Load_Top At_Offset_2 0839 e020 | | Load 0x0,0x20 083a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 083b c804 | | Store 0x4,0x4 083c e7fe | | Load 0x3,-0x2 083d 00da | | Load_Top At_Offset_2 083e 8416 | | Call 0x2,0x16 083f 00da | | Load_Top At_Offset_2 0840 e020 | | Load 0x0,0x20 0841 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0842 c803 | | Store 0x4,0x3 0843 00c9 | | Action Pop_Auxiliary_Loop 0844 00da | | Load_Top At_Offset_2 0845 e020 | | Load 0x0,0x20 0846 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0847 6ff0 |o | Jump_Zero 0x838 0848 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0849 0000 0000 | | .BLANK 0000[0x7] 0850 ; -------------------------------------------------------------------------------------- 0850 ; SUBPROGRAM 0850 ; -------------------------------------------------------------------------------------- 0850 0864 | d | .CONST 0x0864 ; Address of begin 0851 0004 | | .CONST 0x0004 ; Address of exception handler 0852 0004 | | .CONST 0x0004 ; Number of locals 0853 INIT_0850: 0853 e020 | | Load 0x0,0x20 0854 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0855 02c7 | | Declare_Variable Any 0856 e7ff | | Load 0x3,-0x1 0857 e031 | 1 | Load 0x0,0x31 0858 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0859 a802 | | Store_Unchecked 0x4,0x2 085a e020 | | Load 0x0,0x20 085b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 085c 02c7 | | Declare_Variable Any 085d 00d8 | | Load_Top At_Offset_0 085e 1c00 | | Execute_Immediate Run_Utility,0x0 085f e020 | | Load 0x0,0x20 0860 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0861 02c7 | | Declare_Variable Any 0862 00d8 | | Load_Top At_Offset_0 0863 1c00 | | Execute_Immediate Run_Utility,0x0 0864 BODY_0850: 0864 00cf | | Action Mark_Auxiliary 0865 7844 |xD | Jump 0x8aa 0866 00db | | Load_Top At_Offset_3 0867 e020 | | Load 0x0,0x20 0868 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0869 c804 | | Store 0x4,0x4 086a 00d9 | | Load_Top At_Offset_1 086b e031 | 1 | Load 0x0,0x31 086c 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 086d 4603 |F | Jump_Case 0x4 086e 780d |x | Jump 0x87c ; case 0x0 086f 7802 |x | Jump 0x872 ; case 0x1 0870 7806 |x | Jump 0x877 ; case 0x2 0871 780a |x | Jump 0x87c ; case 0x3 0872 00d9 | | Load_Top At_Offset_1 0873 e026 | & | Load 0x0,0x26 0874 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0875 c803 | | Store 0x4,0x3 0876 7805 |x | Jump 0x87c 0877 e7fe | | Load 0x3,-0x2 0878 00da | | Load_Top At_Offset_2 0879 8418 | | Call 0x2,0x18 087a 00cc | | Action Pop_Block 087b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 087c 00cf | | Action Mark_Auxiliary 087d 780a |x | Jump 0x888 087e e7fe | | Load 0x3,-0x2 087f e803 | | Load 0x4,0x3 0880 e020 | | Load 0x0,0x20 0881 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0882 8416 | | Call 0x2,0x16 0883 00db | | Load_Top At_Offset_3 0884 e020 | | Load 0x0,0x20 0885 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0886 c803 | | Store 0x4,0x3 0887 00c9 | | Action Pop_Auxiliary_Loop 0888 00db | | Load_Top At_Offset_3 0889 e020 | | Load 0x0,0x20 088a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 088b 6ff2 |o | Jump_Zero 0x87e 088c 00ce | | Action Pop_Auxiliary 088d e405 | | Load 0x2,0x5 088e e404 | | Load 0x2,0x4 088f e403 | | Load 0x2,0x3 0890 00e1 | | Load_Encached Boolean_Cache 0891 e802 | | Load 0x4,0x2 0892 e020 | | Load 0x0,0x20 0893 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0894 822e | . | Call 0x1,0x2e 0895 c402 | | Store 0x2,0x2 0896 c403 | | Store 0x2,0x3 0897 c404 | | Store 0x2,0x4 0898 c405 | | Store 0x2,0x5 0899 e7fd | | Load 0x3,-0x3 089a e7fe | | Load 0x3,-0x2 089b 0a01 | | Execute_Immediate Plus,0x1 089c 00d8 | | Load_Top At_Offset_0 089d 00e3 | | Load_Encached Natural_Cache 089e 0260 | ` | Execute Discrete,In_Type 089f 7001 |p | Jump_Nonzero 0x8a1 08a0 0801 | | Execute_Immediate Raise,0x1 08a1 e802 | | Load 0x4,0x2 08a2 e020 | | Load 0x0,0x20 08a3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 08a4 8417 | | Call 0x2,0x17 08a5 00db | | Load_Top At_Offset_3 08a6 e020 | | Load 0x0,0x20 08a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 08a8 c802 | | Store 0x4,0x2 08a9 00c9 | | Action Pop_Auxiliary_Loop 08aa 00db | | Load_Top At_Offset_3 08ab e020 | | Load 0x0,0x20 08ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08ad 6fb8 |o | Jump_Zero 0x866 08ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08af 0000 | | .XXX[0x1] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08ba | | .CONST 0x08ba ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0002 | | .CONST 0x0002 ; Number of locals 08b3 INIT_08b0: 08b3 e020 | | Load 0x0,0x20 08b4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 08b5 02c7 | | Declare_Variable Any 08b6 e606 | | Load 0x3,0x6 08b7 e031 | 1 | Load 0x0,0x31 08b8 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 08b9 a802 | | Store_Unchecked 0x4,0x2 08ba BODY_08b0: 08ba 00cf | | Action Mark_Auxiliary 08bb 7832 |x2 | Jump 0x8ee 08bc 00d9 | | Load_Top At_Offset_1 08bd e020 | | Load 0x0,0x20 08be 1817 | | Execute Package,Field_Execute,Field_Number 0x17 08bf c603 | | Store 0x3,0x3 08c0 e603 | | Load 0x3,0x3 08c1 e026 | & | Load 0x0,0x26 08c2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 08c3 c602 | | Store 0x3,0x2 08c4 00cf | | Action Mark_Auxiliary 08c5 780a |x | Jump 0x8d0 08c6 e7fe | | Load 0x3,-0x2 08c7 e602 | | Load 0x3,0x2 08c8 e020 | | Load 0x0,0x20 08c9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 08ca 8416 | | Call 0x2,0x16 08cb e602 | | Load 0x3,0x2 08cc e020 | | Load 0x0,0x20 08cd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 08ce c602 | | Store 0x3,0x2 08cf 00c9 | | Action Pop_Auxiliary_Loop 08d0 e602 | | Load 0x3,0x2 08d1 e020 | | Load 0x0,0x20 08d2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 08d3 6ff2 |o | Jump_Zero 0x8c6 08d4 00ce | | Action Pop_Auxiliary 08d5 e405 | | Load 0x2,0x5 08d6 e404 | | Load 0x2,0x4 08d7 e403 | | Load 0x2,0x3 08d8 00e1 | | Load_Encached Boolean_Cache 08d9 e603 | | Load 0x3,0x3 08da 822e | . | Call 0x1,0x2e 08db c402 | | Store 0x2,0x2 08dc c403 | | Store 0x2,0x3 08dd c404 | | Store 0x2,0x4 08de c405 | | Store 0x2,0x5 08df 4800 |H | Short_Literal 0x0 08e0 e7fe | | Load 0x3,-0x2 08e1 0a01 | | Execute_Immediate Plus,0x1 08e2 00d8 | | Load_Top At_Offset_0 08e3 00e3 | | Load_Encached Natural_Cache 08e4 0260 | ` | Execute Discrete,In_Type 08e5 7001 |p | Jump_Nonzero 0x8e7 08e6 0801 | | Execute_Immediate Raise,0x1 08e7 e404 | | Load 0x2,0x4 08e8 8417 | | Call 0x2,0x17 08e9 00d9 | | Load_Top At_Offset_1 08ea e020 | | Load 0x0,0x20 08eb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 08ec c802 | | Store 0x4,0x2 08ed 00c9 | | Action Pop_Auxiliary_Loop 08ee 00d9 | | Load_Top At_Offset_1 08ef e020 | | Load 0x0,0x20 08f0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08f1 6fca |o | Jump_Zero 0x8bc 08f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08f3 0000 0000 | | .BLANK 0000[0x5] 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; SUBPROGRAM 08f8 ; -------------------------------------------------------------------------------------- 08f8 0901 | | .CONST 0x0901 ; Address of begin 08f9 0004 | | .CONST 0x0004 ; Address of exception handler 08fa 0002 | | .CONST 0x0002 ; Number of locals 08fb INIT_08f8: 08fb e604 | | Load 0x3,0x4 08fc e026 | & | Load 0x0,0x26 08fd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08fe e026 | & | Load 0x0,0x26 08ff 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 0900 03f1 | | Declare_Variable Discrete,With_Value 0901 BODY_08f8: 0901 4803 |H | Short_Literal 0x3 0902 a60e | | Store_Unchecked 0x3,0xe 0903 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0904 ; -------------------------------------------------------------------------------------- 0904 ; STRING TABLE 0904 ; -------------------------------------------------------------------------------------- 0904 0022 | " | .STRTAB 0x0022->0x0915 ; "USERS" 0905 0025 | % | .STRTAB 0x0025->0x0917 ; "UNIT" 0906 0027 | ' | .STRTAB 0x0027->0x0919 ; "TYPE_USERS" 0907 002f | / | .STRTAB 0x002f->0x091e ; "TYPE_REF" 0908 0035 | 5 | .STRTAB 0x0035->0x0922 ; "Identifier" 0909 003d | = | .STRTAB 0x003d->0x0927 ; "Description" 090a 0046 | F | .STRTAB 0x0046->0x092d ; "Source CI" 090b 004d | M | .STRTAB 0x004d->0x0931 ; "Destination CI(s)" 090c 005c | \ | .STRTAB 0x005c->0x093a ; "Units of\x0aMeasure" 090d 006a | j | .STRTAB 0x006a->0x0942 ; "Limit/\x0aRange" 090e 0074 | t | .STRTAB 0x0074->0x0948 ; "Accuracy/\x0aPrecision" 090f 0085 | | .STRTAB 0x0085->0x0951 ; "This interface data item has no destination because its interface is currently unused by other components. Use Definition to visit and verify this data item." 0910 0121 | ! | .STRTAB 0x0121->0x09a0 ; "Name/Description" 0911 012f | / | .STRTAB 0x012f->0x09a8 ; "Type" 0912 0131 | 1 | .STRTAB 0x0131->0x09aa ; "Represen-\x0atation/\x0aFormat" 0913 0147 | G | .STRTAB 0x0147->0x09b6 ; "-" 0914 0146 | F | .STREND 0x0146->0x09b7 0915 5553 4552 |USER| .STRTAB_STRINGS 09b7 0000 | | .XXX[0x1] 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; Debug Table 09b8 ; -------------------------------------------------------------------------------------- 09b8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc8a,0x0000,0x0001,0x0000 09be 884c 5301 | LS | .XXX[0x42] 09c0 d2e5 5878 | Xx| 09c2 0326 40dc | &@ | 09c4 0077 d404 | w | 09c6 8202 1edc | | 09c8 13a0 0ddb | | 09ca 03ea 1ae0 | | 09cc c4df d980 | | 09ce 3444 3c50 |4D<P| 09d0 d031 17b3 | 1 | 09d2 0903 5843 | XC| 09d4 d100 78c1 | x | 09d6 6278 5b01 |bx[ | 09d8 571f 1772 |W r| 09da d25d 1c71 | ] q| 09dc f264 14b0 | d | 09de aae1 954a | J| 09e0 2579 d190 |%y | 09e2 7e65 a0d8 |~e | 09e4 03d0 2e10 | . | 09e6 4c66 801b |Lf | 09e8 5005 091a |P | 09ea 0bdb 7ac5 | z | 09ec 9a81 936e | n| 09ee 486f 6829 |Hoh)| 09f0 a082 0edc | | 09f2 8e58 0af4 | X | 09f4 1056 63f4 | Vc | 09f6 500f d473 |P s| 09f8 cb61 782a | ax*| 09fa 2fd9 02b9 |/ | 09fc 21cd 7007 |! p | 09fe 1200 1ec4 | |