|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 05a8 | | .CONST 0x05a8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0151 | Q | .CONST 0x0151 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0038 | 8 | .CONST 0x0038 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4807 |H | Short_Literal 0x7 000d 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0012 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0014 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0016 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0018 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 001a 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 001c 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 001e 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0020 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0022 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0024 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0026 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0028 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 002a 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 002c 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 002e 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 0030 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0032 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0034 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0036 e20d | | Load 0x1,0xd 0037 0266 | f | Execute Discrete,Bounds 0038 e003 | | Load 0x0,0x3 0039 02a0 | | Declare_Subprogram Null_Subprogram 003a 4801 |H | Short_Literal 0x1 003b 035e | ^ | Declare_Type Array,Defined,Visible 003c e20d | | Load 0x1,0xd 003d 0266 | f | Execute Discrete,Bounds 003e e002 | | Load 0x0,0x2 003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0040 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call 0042 4801 |H | Short_Literal 0x1 0043 035e | ^ | Declare_Type Array,Defined,Visible 0044 e002 | | Load 0x0,0x2 0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0046 e002 | | Load 0x0,0x2 0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0048 e004 | | Load 0x0,0x4 0049 e221 | ! | Load 0x1,0x21 004a e222 | " | Load 0x1,0x22 004b 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call 004d 4805 |H | Short_Literal 0x5 004e 032e | . | Declare_Type Record,Defined,Visible 004f 00d8 | | Load_Top At_Offset_0 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 03ae | | Declare_Type Heap_Access,Defined,Visible 0052 4800 |H | Short_Literal 0x0 0053 4805 |H | Short_Literal 0x5 0054 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 0056 03fe | | Declare_Type Discrete,Defined,Visible 0057 00d9 | | Load_Top At_Offset_1 0058 00e1 | | Load_Encached Boolean_Cache 0059 00da | | Load_Top At_Offset_2 005a 00e1 | | Load_Encached Boolean_Cache 005b e20d | | Load 0x1,0xd 005c 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call 005e 4805 |H | Short_Literal 0x5 005f 032e | . | Declare_Type Record,Defined,Visible 0060 00bf | | Action Accept_Activation 0061 00d9 | | Load_Top At_Offset_1 0062 0266 | f | Execute Discrete,Bounds 0063 00e1 | | Load_Encached Boolean_Cache 0064 02a0 | | Declare_Subprogram Null_Subprogram 0065 4801 |H | Short_Literal 0x1 0066 035d | ] | Declare_Type Array,Defined 0067 00d8 | | Load_Top At_Offset_0 0068 0337 | 7 | Declare_Variable Array 0069 00d8 | | Load_Top At_Offset_0 006a 0335 | 5 | Declare_Variable Array,Duplicate 006b 00cd | | Action Spare6_Action 006c 4801 |H | Short_Literal 0x1 006d 4801 |H | Short_Literal 0x1 006e 00da | | Load_Top At_Offset_2 006f 01d6 | | Execute Vector,Field_Write 0070 4801 |H | Short_Literal 0x1 0071 4802 |H | Short_Literal 0x2 0072 00da | | Load_Top At_Offset_2 0073 01d6 | | Execute Vector,Field_Write 0074 4800 |H | Short_Literal 0x0 0075 4800 |H | Short_Literal 0x0 0076 00da | | Load_Top At_Offset_2 0077 01d6 | | Execute Vector,Field_Write 0078 4800 |H | Short_Literal 0x0 0079 4803 |H | Short_Literal 0x3 007a 00da | | Load_Top At_Offset_2 007b 01d6 | | Execute Vector,Field_Write 007c 4800 |H | Short_Literal 0x0 007d 4804 |H | Short_Literal 0x4 007e 00da | | Load_Top At_Offset_2 007f 01d6 | | Execute Vector,Field_Write 0080 4800 |H | Short_Literal 0x0 0081 4805 |H | Short_Literal 0x5 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 00d9 | | Load_Top At_Offset_1 0085 01d4 | | Execute Vector,Structure_Write 0086 4801 |H | Short_Literal 0x1 0087 4807 |H | Short_Literal 0x7 0088 e20d | | Load 0x1,0xd 0089 03f8 | | Declare_Type Discrete,Constrained 008a 4803 |H | Short_Literal 0x3 008b 4805 |H | Short_Literal 0x5 008c e225 | % | Load 0x1,0x25 008d 03f8 | | Declare_Type Discrete,Constrained 008e 4800 |H | Short_Literal 0x0 008f 4807 |H | Short_Literal 0x7 0090 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call 0092 03fd | | Declare_Type Discrete,Defined 0093 4801 |H | Short_Literal 0x1 0094 4807 |H | Short_Literal 0x7 0095 00da | | Load_Top At_Offset_2 0096 03f8 | | Declare_Type Discrete,Constrained 0097 e005 | | Load 0x0,0x5 0098 e006 | | Load 0x0,0x6 0099 e225 | % | Load 0x1,0x25 009a 4800 |H | Short_Literal 0x0 009b 4801 |H | Short_Literal 0x1 009c 4805 |H | Short_Literal 0x5 009d 0092 04ee | | Action Push_String_Extended,0x4ee ; "others => Unspecified" 009f 00ea | | Load_Encached Null_String_Cache 00a0 00ea | | Load_Encached Null_String_Cache 00a1 4801 |H | Short_Literal 0x1 00a2 4805 |H | Short_Literal 0x5 00a3 e007 | | Load 0x0,0x7 00a4 0387 | | Declare_Variable Package 00a5 00d8 | | Load_Top At_Offset_0 00a6 020f | | Execute Module,Activate 00a7 e008 | | Load 0x0,0x8 00a8 e009 | | Load 0x0,0x9 00a9 e20d | | Load 0x1,0xd 00aa 4800 |H | Short_Literal 0x0 00ab 4801 |H | Short_Literal 0x1 00ac 4807 |H | Short_Literal 0x7 00ad 0092 04ee | | Action Push_String_Extended,0x4ee ; "others => Unspecified" 00af 00ea | | Load_Encached Null_String_Cache 00b0 00ea | | Load_Encached Null_String_Cache 00b1 4801 |H | Short_Literal 0x1 00b2 4807 |H | Short_Literal 0x7 00b3 e007 | | Load 0x0,0x7 00b4 0387 | | Declare_Variable Package 00b5 00d8 | | Load_Top At_Offset_0 00b6 020f | | Execute Module,Activate 00b7 e00a | | Load 0x0,0xa 00b8 e00b | | Load 0x0,0xb 00b9 e22b | + | Load 0x1,0x2b 00ba 4800 |H | Short_Literal 0x0 00bb 4801 |H | Short_Literal 0x1 00bc 4807 |H | Short_Literal 0x7 00bd 0092 04ee | | Action Push_String_Extended,0x4ee ; "others => Unspecified" 00bf 00ea | | Load_Encached Null_String_Cache 00c0 00ea | | Load_Encached Null_String_Cache 00c1 4801 |H | Short_Literal 0x1 00c2 4807 |H | Short_Literal 0x7 00c3 e007 | | Load 0x0,0x7 00c4 0387 | | Declare_Variable Package 00c5 00d8 | | Load_Top At_Offset_0 00c6 020f | | Execute Module,Activate 00c7 e22b | + | Load 0x1,0x2b 00c8 0266 | f | Execute Discrete,Bounds 00c9 e20d | | Load 0x1,0xd 00ca 02a0 | | Declare_Subprogram Null_Subprogram 00cb 4801 |H | Short_Literal 0x1 00cc 035d | ] | Declare_Type Array,Defined 00cd 00d8 | | Load_Top At_Offset_0 00ce 0337 | 7 | Declare_Variable Array 00cf 00d8 | | Load_Top At_Offset_0 00d0 0335 | 5 | Declare_Variable Array,Duplicate 00d1 00cd | | Action Spare6_Action 00d2 4800 |H | Short_Literal 0x0 00d3 4800 |H | Short_Literal 0x0 00d4 00da | | Load_Top At_Offset_2 00d5 01d6 | | Execute Vector,Field_Write 00d6 4801 |H | Short_Literal 0x1 00d7 4801 |H | Short_Literal 0x1 00d8 00da | | Load_Top At_Offset_2 00d9 01d6 | | Execute Vector,Field_Write 00da 4802 |H | Short_Literal 0x2 00db 4802 |H | Short_Literal 0x2 00dc 00da | | Load_Top At_Offset_2 00dd 01d6 | | Execute Vector,Field_Write 00de 4803 |H | Short_Literal 0x3 00df 4803 |H | Short_Literal 0x3 00e0 00da | | Load_Top At_Offset_2 00e1 01d6 | | Execute Vector,Field_Write 00e2 4804 |H | Short_Literal 0x4 00e3 4804 |H | Short_Literal 0x4 00e4 00da | | Load_Top At_Offset_2 00e5 01d6 | | Execute Vector,Field_Write 00e6 4805 |H | Short_Literal 0x5 00e7 4805 |H | Short_Literal 0x5 00e8 00da | | Load_Top At_Offset_2 00e9 01d6 | | Execute Vector,Field_Write 00ea 4806 |H | Short_Literal 0x6 00eb 4806 |H | Short_Literal 0x6 00ec 00da | | Load_Top At_Offset_2 00ed 01d6 | | Execute Vector,Field_Write 00ee 4807 |H | Short_Literal 0x7 00ef 4807 |H | Short_Literal 0x7 00f0 00da | | Load_Top At_Offset_2 00f1 01d6 | | Execute Vector,Field_Write 00f2 00d9 | | Load_Top At_Offset_1 00f3 01d4 | | Execute Vector,Structure_Write 00f4 e20d | | Load 0x1,0xd 00f5 0266 | f | Execute Discrete,Bounds 00f6 e22b | + | Load 0x1,0x2b 00f7 02a0 | | Declare_Subprogram Null_Subprogram 00f8 4801 |H | Short_Literal 0x1 00f9 035d | ] | Declare_Type Array,Defined 00fa 00d8 | | Load_Top At_Offset_0 00fb 0337 | 7 | Declare_Variable Array 00fc 00d8 | | Load_Top At_Offset_0 00fd 0335 | 5 | Declare_Variable Array,Duplicate 00fe 00cd | | Action Spare6_Action 00ff 4800 |H | Short_Literal 0x0 0100 4800 |H | Short_Literal 0x0 0101 00da | | Load_Top At_Offset_2 0102 01d6 | | Execute Vector,Field_Write 0103 4801 |H | Short_Literal 0x1 0104 4801 |H | Short_Literal 0x1 0105 00da | | Load_Top At_Offset_2 0106 01d6 | | Execute Vector,Field_Write 0107 4802 |H | Short_Literal 0x2 0108 4802 |H | Short_Literal 0x2 0109 00da | | Load_Top At_Offset_2 010a 01d6 | | Execute Vector,Field_Write 010b 4803 |H | Short_Literal 0x3 010c 4803 |H | Short_Literal 0x3 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 4804 |H | Short_Literal 0x4 0110 4804 |H | Short_Literal 0x4 0111 00da | | Load_Top At_Offset_2 0112 01d6 | | Execute Vector,Field_Write 0113 4805 |H | Short_Literal 0x5 0114 4805 |H | Short_Literal 0x5 0115 00da | | Load_Top At_Offset_2 0116 01d6 | | Execute Vector,Field_Write 0117 4806 |H | Short_Literal 0x6 0118 4806 |H | Short_Literal 0x6 0119 00da | | Load_Top At_Offset_2 011a 01d6 | | Execute Vector,Field_Write 011b 4807 |H | Short_Literal 0x7 011c 4807 |H | Short_Literal 0x7 011d 00da | | Load_Top At_Offset_2 011e 01d6 | | Execute Vector,Field_Write 011f 00d9 | | Load_Top At_Offset_1 0120 01d4 | | Execute Vector,Structure_Write 0121 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0122 00c7 | | Action Elaborate_Subprogram 0123 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0124 00c7 | | Action Elaborate_Subprogram 0125 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0126 00c7 | | Action Elaborate_Subprogram 0127 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0128 00c7 | | Action Elaborate_Subprogram 0129 1d12 | | Execute_Immediate Reference_Lex_1,0x12 012a 00c7 | | Action Elaborate_Subprogram 012b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 012c 00c7 | | Action Elaborate_Subprogram 012d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 012e 00c7 | | Action Elaborate_Subprogram 012f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0130 00c7 | | Action Elaborate_Subprogram 0131 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0132 00c7 | | Action Elaborate_Subprogram 0133 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0134 00c7 | | Action Elaborate_Subprogram 0135 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0136 00c7 | | Action Elaborate_Subprogram 0137 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0138 00c7 | | Action Elaborate_Subprogram 0139 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 013a 00c7 | | Action Elaborate_Subprogram 013b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 013c 00c7 | | Action Elaborate_Subprogram 013d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 013e 00c7 | | Action Elaborate_Subprogram 013f 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 0141 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 0143 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 0145 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0147 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0149 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 014a 00c7 | | Action Elaborate_Subprogram 014b 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 014c 00c7 | | Action Elaborate_Subprogram 014d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 014e 00c7 | | Action Elaborate_Subprogram 014f 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0150 00c7 | | Action Elaborate_Subprogram 0151 BODY_0008: 0151 00bc | | Action Signal_Activated 0152 00bb | | Action Signal_Completion 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4607 |F | Jump_Case 0x8 015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 015d 7807 |x | Jump 0x165 ; case 0x1 015e 780a |x | Jump 0x169 ; case 0x2 015f 780e |x | Jump 0x16e ; case 0x3 0160 7811 |x | Jump 0x172 ; case 0x4 0161 7812 |x | Jump 0x174 ; case 0x5 0162 7813 |x | Jump 0x176 ; case 0x6 0163 7816 |x | Jump 0x17a ; case 0x7 0164 4302 |C | .XXX[0x1] 0165 00da | | Load_Top At_Offset_2 0166 0091 04d8 | | Action Push_String_Extended_Indexed,0x4d8 ; "NO_ELEMENT" 0168 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0169 00db | | Load_Top At_Offset_3 016a 00db | | Load_Top At_Offset_3 016b 00e0 | | Load_Encached Standard_Cache 016c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016e 00da | | Load_Top At_Offset_2 016f 00e0 | | Load_Encached Standard_Cache 0170 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0171 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0172 00db | | Load_Top At_Offset_3 0173 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0174 00db | | Load_Top At_Offset_3 0175 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0176 e20d | | Load 0x1,0xd 0177 00dc | | Load_Top At_Offset_4 0178 0267 | g | Execute Discrete,Predecessor 0179 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017a e20d | | Load 0x1,0xd 017b 00dc | | Load_Top At_Offset_4 017c 0268 | h | Execute Discrete,Successor 017d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0190 | | .CONST 0x0190 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0006 | | .CONST 0x0006 ; Number of locals 0183 INIT_0180: 0183 e223 | # | Load 0x1,0x23 0184 0322 | " | Declare_Variable Record 0185 00d8 | | Load_Top At_Offset_0 0186 1c00 | | Execute_Immediate Run_Utility,0x0 0187 00db | | Load_Top At_Offset_3 0188 e22d | - | Load 0x1,0x2d 0189 1820 | | Execute Package,Field_Execute,Field_Number 0x20 018a e22e | . | Load 0x1,0x2e 018b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 018c e22f | / | Load 0x1,0x2f 018d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 018e e224 | $ | Load 0x1,0x24 018f 0007 | | Action Break_Optional 0190 BODY_0180: 0190 e5ff | | Load 0x2,-0x1 0191 e22e | . | Load 0x1,0x2e 0192 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0193 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0194 e5ff | | Load 0x2,-0x1 0195 e22f | / | Load 0x1,0x2f 0196 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0197 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0198 00cf | | Action Mark_Auxiliary 0199 4807 |H | Short_Literal 0x7 019a 4801 |H | Short_Literal 0x1 019b 0007 | | Action Break_Optional 019c 00d8 | | Load_Top At_Offset_0 019d e404 | | Load 0x2,0x4 019e e22e | . | Load 0x1,0x2e 019f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01a0 6811 |h | Jump_Zero 0x1b2 01a1 e402 | | Load 0x2,0x2 01a2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01a3 00d9 | | Load_Top At_Offset_1 01a4 00d8 | | Load_Top At_Offset_0 01a5 00da | | Load_Top At_Offset_2 01a6 01d7 | | Execute Vector,Field_Read 01a7 e5fe | | Load 0x2,-0x2 01a8 00ea | | Load_Encached Null_String_Cache 01a9 e409 | | Load 0x2,0x9 01aa e404 | | Load 0x2,0x4 01ab e22e | . | Load 0x1,0x2e 01ac 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01ad 800c | | Call 0x0,0xc 01ae 00d9 | | Load_Top At_Offset_1 01af 00db | | Load_Top At_Offset_3 01b0 01d6 | | Execute Vector,Field_Write 01b1 00d2 | | Pop_Control Pop_Count_2 01b2 00c8 | | Action Pop_Auxiliary_Range 01b3 3fe8 |? | Loop_Increasing 0x19c 01b4 00c9 | | Action Pop_Auxiliary_Loop 01b5 4807 |H | Short_Literal 0x7 01b6 4801 |H | Short_Literal 0x1 01b7 0007 | | Action Break_Optional 01b8 00d8 | | Load_Top At_Offset_0 01b9 e405 | | Load 0x2,0x5 01ba e22f | / | Load 0x1,0x2f 01bb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01bc 680c |h | Jump_Zero 0x1c9 01bd 00ea | | Load_Encached Null_String_Cache 01be 00d9 | | Load_Top At_Offset_1 01bf e405 | | Load 0x2,0x5 01c0 e22f | / | Load 0x1,0x2f 01c1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01c2 800d | | Call 0x0,0xd 01c3 00d9 | | Load_Top At_Offset_1 01c4 e231 | 1 | Load 0x1,0x31 01c5 01d7 | | Execute Vector,Field_Read 01c6 e402 | | Load 0x2,0x2 01c7 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01c8 01d6 | | Execute Vector,Field_Write 01c9 00c8 | | Action Pop_Auxiliary_Range 01ca 3fed |? | Loop_Increasing 0x1b8 01cb 00ce | | Action Pop_Auxiliary 01cc 00ea | | Load_Encached Null_String_Cache 01cd 4803 |H | Short_Literal 0x3 01ce e403 | | Load 0x2,0x3 01cf e22d | - | Load 0x1,0x2d 01d0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01d1 800d | | Call 0x0,0xd 01d2 e402 | | Load 0x2,0x2 01d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01d4 00ea | | Load_Encached Null_String_Cache 01d5 4804 |H | Short_Literal 0x4 01d6 e403 | | Load 0x2,0x3 01d7 e22d | - | Load 0x1,0x2d 01d8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01d9 800d | | Call 0x0,0xd 01da e402 | | Load 0x2,0x2 01db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01dc 00ea | | Load_Encached Null_String_Cache 01dd 4805 |H | Short_Literal 0x5 01de e403 | | Load 0x2,0x3 01df e22d | - | Load 0x1,0x2d 01e0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01e1 e004 | | Load 0x0,0x4 01e2 1c02 | | Execute_Immediate Run_Utility,0x2 01e3 e402 | | Load 0x2,0x2 01e4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01e5 e402 | | Load 0x2,0x2 01e6 e224 | $ | Load 0x1,0x24 01e7 e5fe | | Load 0x2,-0x2 01e8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01e9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01ea 00d8 | | Load_Top At_Offset_0 01eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f9 | | .CONST 0x01f9 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 e223 | # | Load 0x1,0x23 01f4 0322 | " | Declare_Variable Record 01f5 00d8 | | Load_Top At_Offset_0 01f6 1c00 | | Execute_Immediate Run_Utility,0x0 01f7 e224 | $ | Load 0x1,0x24 01f8 0007 | | Action Break_Optional 01f9 BODY_01f0: 01f9 e002 | | Load 0x0,0x2 01fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01fb 00da | | Load_Top At_Offset_2 01fc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01fd 00d9 | | Load_Top At_Offset_1 01fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ff 00da | | Load_Top At_Offset_2 0200 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0201 00d9 | | Load_Top At_Offset_1 0202 e224 | $ | Load 0x1,0x24 0203 e5ff | | Load 0x2,-0x1 0204 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0205 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0206 00d8 | | Load_Top At_Offset_0 0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0219 | | .CONST 0x0219 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 e223 | # | Load 0x1,0x23 0214 0322 | " | Declare_Variable Record 0215 00d8 | | Load_Top At_Offset_0 0216 1c00 | | Execute_Immediate Run_Utility,0x0 0217 e224 | $ | Load 0x1,0x24 0218 0007 | | Action Break_Optional 0219 BODY_0210: 0219 e5ff | | Load 0x2,-0x1 021a 4801 |H | Short_Literal 0x1 021b 00db | | Load_Top At_Offset_3 021c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 021d 01d6 | | Execute Vector,Field_Write 021e 00d9 | | Load_Top At_Offset_1 021f e224 | $ | Load 0x1,0x24 0220 e5fe | | Load 0x2,-0x2 0221 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0222 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0223 00d8 | | Load_Top At_Offset_0 0224 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 0833 | 3 | Execute_Immediate Raise,0x33 022c 0000 0000 | | .BLANK 0000[0x4] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 e5fd | | Load 0x2,-0x3 0234 7003 |p | Jump_Nonzero 0x238 0235 00db | | Load_Top At_Offset_3 0236 820f | | Call 0x1,0xf 0237 a5fd | | Store_Unchecked 0x2,-0x3 0238 00da | | Load_Top At_Offset_2 0239 0217 | | Execute Heap_Access,All_Reference 023a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023b e5fd | | Load 0x2,-0x3 023c 0217 | | Execute Heap_Access,All_Reference 023d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 023e 00da | | Load_Top At_Offset_2 023f 0217 | | Execute Heap_Access,All_Reference 0240 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0241 e5fd | | Load 0x2,-0x3 0242 0217 | | Execute Heap_Access,All_Reference 0243 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0244 00da | | Load_Top At_Offset_2 0245 0217 | | Execute Heap_Access,All_Reference 0246 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0247 e5fd | | Load 0x2,-0x3 0248 0217 | | Execute Heap_Access,All_Reference 0249 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 024a 00cf | | Action Mark_Auxiliary 024b 4807 |H | Short_Literal 0x7 024c 4800 |H | Short_Literal 0x0 024d 0007 | | Action Break_Optional 024e 00d8 | | Load_Top At_Offset_0 024f e5ff | | Load 0x2,-0x1 0250 0217 | | Execute Heap_Access,All_Reference 0251 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0252 01d7 | | Execute Vector,Field_Read 0253 00d9 | | Load_Top At_Offset_1 0254 e5fd | | Load 0x2,-0x3 0255 0217 | | Execute Heap_Access,All_Reference 0256 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0257 01d6 | | Execute Vector,Field_Write 0258 00c8 | | Action Pop_Auxiliary_Range 0259 3ff4 |? | Loop_Increasing 0x24e 025a 00c9 | | Action Pop_Auxiliary_Loop 025b 4807 |H | Short_Literal 0x7 025c 4800 |H | Short_Literal 0x0 025d 0007 | | Action Break_Optional 025e 00d8 | | Load_Top At_Offset_0 025f e5ff | | Load 0x2,-0x1 0260 0217 | | Execute Heap_Access,All_Reference 0261 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0262 01d7 | | Execute Vector,Field_Read 0263 00d9 | | Load_Top At_Offset_1 0264 e5fd | | Load 0x2,-0x3 0265 0217 | | Execute Heap_Access,All_Reference 0266 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0267 01d6 | | Execute Vector,Field_Write 0268 00c8 | | Action Pop_Auxiliary_Range 0269 3ff4 |? | Loop_Increasing 0x25e 026a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 e002 | | Load 0x0,0x2 0274 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0275 00db | | Load_Top At_Offset_3 0276 0217 | | Execute Heap_Access,All_Reference 0277 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0278 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 e002 | | Load 0x0,0x2 0284 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0285 00db | | Load_Top At_Offset_3 0286 0217 | | Execute Heap_Access,All_Reference 0287 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0288 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0289 0000 0000 | | .BLANK 0000[0x7] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 e5fe | | Load 0x2,-0x2 0295 0217 | | Execute Heap_Access,All_Reference 0296 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0297 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 0e01 | | Execute_Immediate Not_Equal,0x1 029d 6806 |h | Jump_Zero 0x2a4 029e 00db | | Load_Top At_Offset_3 029f 00db | | Load_Top At_Offset_3 02a0 e5fd | | Load 0x2,-0x3 02a1 0217 | | Execute Heap_Access,All_Reference 02a2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02a3 01d6 | | Execute Vector,Field_Write 02a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02a5 0000 0000 | | .XXX[0x3] 02a7 0000 | | 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00db | | Load_Top At_Offset_3 02ac 00db | | Load_Top At_Offset_3 02ad e5fd | | Load 0x2,-0x3 02ae 0217 | | Execute Heap_Access,All_Reference 02af 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02b0 01d6 | | Execute Vector,Field_Write 02b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b2 0000 0000 | | .BLANK 0000[0x6] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 0217 | | Execute Heap_Access,All_Reference 02bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02be 00db | | Load_Top At_Offset_3 02bf 0217 | | Execute Heap_Access,All_Reference 02c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c1 e002 | | Load 0x0,0x2 02c2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c4 0000 0000 | | .BLANK 0000[0x4] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 0217 | | Execute Heap_Access,All_Reference 02cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 e5fe | | Load 0x2,-0x2 02d5 0217 | | Execute Heap_Access,All_Reference 02d6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02d7 01d7 | | Execute Vector,Field_Read 02d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d9 0000 0000 | | .BLANK 0000[0x7] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 e5fe | | Load 0x2,-0x2 02e5 0217 | | Execute Heap_Access,All_Reference 02e6 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02e7 01d7 | | Execute Vector,Field_Read 02e8 00d8 | | Load_Top At_Offset_0 02e9 0120 | | Execute Any,Is_Value 02ea 7002 |p | Jump_Nonzero 0x2ed 02eb 00d8 | | Load_Top At_Offset_0 02ec 011e | | Execute Any,Convert 02ed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ee 0000 0000 | | .XXX[0x2] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f7 | | .CONST 0x02f7 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 e226 | & | Load 0x1,0x26 02f4 0322 | " | Declare_Variable Record 02f5 00d8 | | Load_Top At_Offset_0 02f6 1c00 | | Execute_Immediate Run_Utility,0x0 02f7 BODY_02f0: 02f7 00db | | Load_Top At_Offset_3 02f8 00d9 | | Load_Top At_Offset_1 02f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02fa 4801 |H | Short_Literal 0x1 02fb 00d9 | | Load_Top At_Offset_1 02fc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02fd 00d8 | | Load_Top At_Offset_0 02fe 00d9 | | Load_Top At_Offset_1 02ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0300 8234 | 4 | Call 0x1,0x34 0301 00d1 | | Pop_Control Pop_Count_1 0302 00d8 | | Load_Top At_Offset_0 0303 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031d | | .CONST 0x031d ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0003 | | .CONST 0x0003 ; Number of locals 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0315 e225 | % | Load 0x1,0x25 0316 011c | | Execute Any,Convert_Unchecked 0317 1c01 | | Execute_Immediate Run_Utility,0x1 0318 0092 04ef | | Action Push_String_Extended,0x4ef ; "=>" 031a 01cc | | Execute Vector,Catenate 031b 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 031d BODY_0310: 031d e5ff | | Load 0x2,-0x1 031e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 031f e228 | ( | Load 0x1,0x28 0320 01d7 | | Execute Vector,Field_Read 0321 6802 |h | Jump_Zero 0x324 0322 8403 | | Call 0x2,0x3 0323 7807 |x | Jump 0x32b 0324 00d9 | | Load_Top At_Offset_1 0325 e5ff | | Load 0x2,-0x1 0326 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0327 e5ff | | Load 0x2,-0x1 0328 8237 | 7 | Call 0x1,0x37 0329 01cc | | Execute Vector,Catenate 032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032b 0831 | 1 | Execute_Immediate Raise,0x31 032c 0000 0000 | | .BLANK 0000[0x4] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0335 7023 |p# | Jump_Nonzero 0x359 0336 00da | | Load_Top At_Offset_2 0337 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0338 e228 | ( | Load 0x1,0x28 0339 01d7 | | Execute Vector,Field_Read 033a 680b |h | Jump_Zero 0x346 033b 00da | | Load_Top At_Offset_2 033c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 033d 00db | | Load_Top At_Offset_3 033e 8236 | 6 | Call 0x1,0x36 033f 7006 |p | Jump_Nonzero 0x346 0340 00da | | Load_Top At_Offset_2 0341 00db | | Load_Top At_Offset_3 0342 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0343 8235 | 5 | Call 0x1,0x35 0344 00d1 | | Pop_Control Pop_Count_1 0345 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0346 00da | | Load_Top At_Offset_2 0347 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0348 0f05 | | Execute_Immediate Equal,0x5 0349 6804 |h | Jump_Zero 0x34e 034a 4801 |H | Short_Literal 0x1 034b 00db | | Load_Top At_Offset_3 034c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 034d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034e e225 | % | Load 0x1,0x25 034f 00db | | Load_Top At_Offset_3 0350 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0351 0268 | h | Execute Discrete,Successor 0352 00db | | Load_Top At_Offset_3 0353 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0354 00da | | Load_Top At_Offset_2 0355 00db | | Load_Top At_Offset_3 0356 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0357 8234 | 4 | Call 0x1,0x34 0358 00d1 | | Pop_Control Pop_Count_1 0359 4501 |E | Exit_Suprogram New_Top_Offset 0x1 035a 0000 0000 | | .BLANK 0000[0x6] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00d1 | | Pop_Control Pop_Count_1 0364 00da | | Load_Top At_Offset_2 0365 01dc | | Execute Vector,Last 0366 00db | | Load_Top At_Offset_3 0367 01dd | | Execute Vector,First 0368 0263 | c | Execute Discrete,Above_Bound 0369 700a |p | Jump_Nonzero 0x374 036a 00d8 | | Load_Top At_Offset_0 036b e5ff | | Load 0x2,-0x1 036c 01d5 | | Execute Vector,Field_Reference 036d 0125 | % | Execute Any,Set_Constraint 036e 00d8 | | Load_Top At_Offset_0 036f e5ff | | Load 0x2,-0x1 0370 01d5 | | Execute Vector,Field_Reference 0371 1c00 | | Execute_Immediate Run_Utility,0x0 0372 0a01 | | Execute_Immediate Plus,0x1 0373 7ff4 | | Jump 0x368 0374 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0375 0000 0000 | | .XXX[0x3] 0377 0000 | | 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 4607 |F | Jump_Case 0x8 037c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 037d 7807 |x | Jump 0x385 ; case 0x1 037e 780a |x | Jump 0x389 ; case 0x2 037f 780e |x | Jump 0x38e ; case 0x3 0380 7811 |x | Jump 0x392 ; case 0x4 0381 7812 |x | Jump 0x394 ; case 0x5 0382 7813 |x | Jump 0x396 ; case 0x6 0383 7816 |x | Jump 0x39a ; case 0x7 0384 4302 |C | .XXX[0x1] 0385 00da | | Load_Top At_Offset_2 0386 0091 04e0 | | Action Push_String_Extended_Indexed,0x4e0 ; "NONE" 0388 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0389 00db | | Load_Top At_Offset_3 038a 00db | | Load_Top At_Offset_3 038b 00e0 | | Load_Encached Standard_Cache 038c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 038d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 038e 00da | | Load_Top At_Offset_2 038f 00e0 | | Load_Encached Standard_Cache 0390 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0391 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0392 00db | | Load_Top At_Offset_3 0393 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0394 00db | | Load_Top At_Offset_3 0395 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0396 e225 | % | Load 0x1,0x25 0397 00dc | | Load_Top At_Offset_4 0398 0267 | g | Execute Discrete,Predecessor 0399 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 039a e225 | % | Load 0x1,0x25 039b 00dc | | Load_Top At_Offset_4 039c 0268 | h | Execute Discrete,Successor 039d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 039e 0000 0000 | | .XXX[0x2] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 4607 |F | Jump_Case 0x8 03a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03a5 7807 |x | Jump 0x3ad ; case 0x1 03a6 780a |x | Jump 0x3b1 ; case 0x2 03a7 780e |x | Jump 0x3b6 ; case 0x3 03a8 7811 |x | Jump 0x3ba ; case 0x4 03a9 7812 |x | Jump 0x3bc ; case 0x5 03aa 7813 |x | Jump 0x3be ; case 0x6 03ab 7816 |x | Jump 0x3c2 ; case 0x7 03ac 4302 |C | .XXX[0x1] 03ad 00da | | Load_Top At_Offset_2 03ae 0091 04e6 | | Action Push_String_Extended_Indexed,0x4e6 ; "NO_ELEMENT_TIME" 03b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03b1 00db | | Load_Top At_Offset_3 03b2 00db | | Load_Top At_Offset_3 03b3 00e0 | | Load_Encached Standard_Cache 03b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03b6 00da | | Load_Top At_Offset_2 03b7 00e0 | | Load_Encached Standard_Cache 03b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03b9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03ba 00db | | Load_Top At_Offset_3 03bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03bc 00db | | Load_Top At_Offset_3 03bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03be e22b | + | Load 0x1,0x2b 03bf 00dc | | Load_Top At_Offset_4 03c0 0267 | g | Execute Discrete,Predecessor 03c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03c2 e22b | + | Load 0x1,0x2b 03c3 00dc | | Load_Top At_Offset_4 03c4 0268 | h | Execute Discrete,Successor 03c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 00da | | Load_Top At_Offset_2 03cc 4801 |H | Short_Literal 0x1 03cd 4802 |H | Short_Literal 0x2 03ce 0262 | b | Execute Discrete,In_Range 03cf 7001 |p | Jump_Nonzero 0x3d1 03d0 7803 |x | Jump 0x3d4 03d1 4801 |H | Short_Literal 0x1 03d2 e5fe | | Load 0x2,-0x2 03d3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03d4 4801 |H | Short_Literal 0x1 03d5 e5fe | | Load 0x2,-0x2 03d6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc 4801 |H | Short_Literal 0x1 03dd 4802 |H | Short_Literal 0x2 03de 0262 | b | Execute Discrete,In_Range 03df 7001 |p | Jump_Nonzero 0x3e1 03e0 780e |x | Jump 0x3ef 03e1 00db | | Load_Top At_Offset_3 03e2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03e3 0f07 | | Execute_Immediate Equal,0x7 03e4 6804 |h | Jump_Zero 0x3e9 03e5 4800 |H | Short_Literal 0x0 03e6 e5fe | | Load 0x2,-0x2 03e7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03e8 7806 |x | Jump 0x3ef 03e9 e20d | | Load 0x1,0xd 03ea e5fe | | Load 0x2,-0x2 03eb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03ec 0268 | h | Execute Discrete,Successor 03ed e5fe | | Load 0x2,-0x2 03ee 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03ef 4800 |H | Short_Literal 0x0 03f0 e5fe | | Load 0x2,-0x2 03f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f3 0000 0000 | | .BLANK 0000[0x5] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 00db | | Load_Top At_Offset_3 03fc 4801 |H | Short_Literal 0x1 03fd 4802 |H | Short_Literal 0x2 03fe 0262 | b | Execute Discrete,In_Range 03ff 7003 |p | Jump_Nonzero 0x403 0400 7800 |x | Jump 0x401 0401 4801 |H | Short_Literal 0x1 0402 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0403 00da | | Load_Top At_Offset_2 0404 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0405 0f00 | | Execute_Immediate Equal,0x0 0406 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0407 0000 | | .XXX[0x1] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00db | | Load_Top At_Offset_3 040c 4605 |F | Jump_Case 0x6 040d 780d |x | Jump 0x41b ; case 0x0 040e 780c |x | Jump 0x41b ; case 0x1 040f 780b |x | Jump 0x41b ; case 0x2 0410 780c |x | Jump 0x41d ; case 0x3 0411 7812 |x | Jump 0x424 ; case 0x4 0412 7800 |x | Jump 0x413 ; case 0x5 0413 00da | | Load_Top At_Offset_2 0414 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0415 0217 | | Execute Heap_Access,All_Reference 0416 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0417 e004 | | Load 0x0,0x4 0418 011c | | Execute Any,Convert_Unchecked 0419 1c01 | | Execute_Immediate Run_Utility,0x1 041a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 041b 00ea | | Load_Encached Null_String_Cache 041c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 041d 4801 |H | Short_Literal 0x1 041e 00db | | Load_Top At_Offset_3 041f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0420 0217 | | Execute Heap_Access,All_Reference 0421 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0422 800e | | Call 0x0,0xe 0423 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0424 4801 |H | Short_Literal 0x1 0425 00db | | Load_Top At_Offset_3 0426 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0427 0217 | | Execute Heap_Access,All_Reference 0428 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0429 800e | | Call 0x0,0xe 042a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 042b 0000 0000 | | .BLANK 0000[0x5] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0437 | 7 | .CONST 0x0437 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0003 | | .CONST 0x0003 ; Number of locals 0433 INIT_0430: 0433 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 0435 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 0437 BODY_0430: 0437 e5fe | | Load 0x2,-0x2 0438 e5ff | | Load 0x2,-0x1 0439 8236 | 6 | Call 0x1,0x36 043a 6802 |h | Jump_Zero 0x43d 043b 00ea | | Load_Encached Null_String_Cache 043c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 043d e5fe | | Load 0x2,-0x2 043e 4605 |F | Jump_Case 0x6 043f 7805 |x | Jump 0x445 ; case 0x0 0440 7806 |x | Jump 0x447 ; case 0x1 0441 7807 |x | Jump 0x449 ; case 0x2 0442 7802 |x | Jump 0x445 ; case 0x3 0443 7801 |x | Jump 0x445 ; case 0x4 0444 7800 |x | Jump 0x445 ; case 0x5 0445 00ea | | Load_Encached Null_String_Cache 0446 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0447 8402 | | Call 0x2,0x2 0448 7801 |x | Jump 0x44a 0449 8403 | | Call 0x2,0x3 044a 0831 | 1 | Execute_Immediate Raise,0x31 044b 0000 0000 | | .BLANK 0000[0x5] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0457 | W | .CONST 0x0457 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0002 | | .CONST 0x0002 ; Number of locals 0453 INIT_0450: 0453 e5ff | | Load 0x2,-0x1 0454 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0455 e5ff | | Load 0x2,-0x1 0456 8238 | 8 | Call 0x1,0x38 0457 BODY_0450: 0457 00d8 | | Load_Top At_Offset_0 0458 00cb | | Action Pop_Block_With_Result 0459 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045a 0000 0000 | | .BLANK 0000[0x6] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 046b | k | .CONST 0x046b ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0002 | | .CONST 0x0002 ; Number of locals 0463 INIT_0460: 0463 e5ff | | Load 0x2,-0x1 0464 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0465 e5ff | | Load 0x2,-0x1 0466 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0467 0217 | | Execute Heap_Access,All_Reference 0468 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0469 01d7 | | Execute Vector,Field_Read 046a 800f | | Call 0x0,0xf 046b BODY_0460: 046b 00d8 | | Load_Top At_Offset_0 046c 01db | | Execute Vector,Length 046d 680c |h | Jump_Zero 0x47a 046e e5ff | | Load 0x2,-0x1 046f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0470 e20d | | Load 0x1,0xd 0471 011c | | Execute Any,Convert_Unchecked 0472 1c01 | | Execute_Immediate Run_Utility,0x1 0473 0092 04ef | | Action Push_String_Extended,0x4ef ; "=>" 0475 01cc | | Execute Vector,Catenate 0476 00d9 | | Load_Top At_Offset_1 0477 01cc | | Execute Vector,Catenate 0478 00cb | | Action Pop_Block_With_Result 0479 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 047a 00ea | | Load_Encached Null_String_Cache 047b 00cb | | Action Pop_Block_With_Result 047c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 047d 0000 0000 | | .XXX[0x3] 047f 0000 | | 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048c | | .CONST 0x048c ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 4801 |H | Short_Literal 0x1 0484 e5ff | | Load 0x2,-0x1 0485 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0486 e5ff | | Load 0x2,-0x1 0487 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0488 0217 | | Execute Heap_Access,All_Reference 0489 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 048a 01d7 | | Execute Vector,Field_Read 048b 800e | | Call 0x0,0xe 048c BODY_0480: 048c 00d8 | | Load_Top At_Offset_0 048d 01db | | Execute Vector,Length 048e 680e |h | Jump_Zero 0x49d 048f e5ff | | Load 0x2,-0x1 0490 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0491 e233 | 3 | Load 0x1,0x33 0492 01d7 | | Execute Vector,Field_Read 0493 e22b | + | Load 0x1,0x2b 0494 011c | | Execute Any,Convert_Unchecked 0495 1c01 | | Execute_Immediate Run_Utility,0x1 0496 0092 04ef | | Action Push_String_Extended,0x4ef ; "=>" 0498 01cc | | Execute Vector,Catenate 0499 00d9 | | Load_Top At_Offset_1 049a 01cc | | Execute Vector,Catenate 049b 00cb | | Action Pop_Block_With_Result 049c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 049d 00ea | | Load_Encached Null_String_Cache 049e 00cb | | Action Pop_Block_With_Result 049f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 4601 |F | Jump_Case 0x2 04a4 7801 |x | Jump 0x4a6 ; case 0x0 04a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 04a6 00da | | Load_Top At_Offset_2 04a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a8 0125 | % | Execute Any,Set_Constraint 04a9 e002 | | Load 0x0,0x2 04aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04ab 00db | | Load_Top At_Offset_3 04ac 00d9 | | Load_Top At_Offset_1 04ad 00d9 | | Load_Top At_Offset_1 04ae 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 04af 0119 | | Execute Any,Check_In_Formal_Type 04b0 00d1 | | Pop_Control Pop_Count_1 04b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04b2 00da | | Load_Top At_Offset_2 04b3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04b4 0125 | % | Execute Any,Set_Constraint 04b5 e002 | | Load 0x0,0x2 04b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04b7 00db | | Load_Top At_Offset_3 04b8 00d9 | | Load_Top At_Offset_1 04b9 00d9 | | Load_Top At_Offset_1 04ba 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 04bb 0119 | | Execute Any,Check_In_Formal_Type 04bc 00d1 | | Pop_Control Pop_Count_1 04bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04be 00da | | Load_Top At_Offset_2 04bf 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 04c0 1c00 | | Execute_Immediate Run_Utility,0x0 04c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04c2 0000 0000 | | .BLANK 0000[0x6] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 4601 |F | Jump_Case 0x2 04cc 7801 |x | Jump 0x4ce ; case 0x0 04cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 04ce 4800 |H | Short_Literal 0x0 04cf 00db | | Load_Top At_Offset_3 04d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04d1 4800 |H | Short_Literal 0x0 04d2 00db | | Load_Top At_Offset_3 04d3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04d4 4801 |H | Short_Literal 0x1 04d5 00db | | Load_Top At_Offset_3 04d6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; STRING TABLE 04d8 ; -------------------------------------------------------------------------------------- 04d8 0032 | 2 | .STRTAB 0x0032->0x04f1 ; "NO_ELEMENT" 04d9 003a | : | .STRTAB 0x003a->0x04f6 ; "TEST_CASE_HANDLE" 04da 0048 | H | .STRTAB 0x0048->0x04fe ; "SUBJECT_PROGRAM_HANDLE" 04db 005c | \ | .STRTAB 0x005c->0x0509 ; "TEST_DRIVER_HANDLE" 04dc 006c | l | .STRTAB 0x006c->0x0512 ; "INPUT_DATA_HANDLE" 04dd 007b | { | .STRTAB 0x007b->0x051a ; "OUTPUT_DATA_HANDLE" 04de 008b | | .STRTAB 0x008b->0x0523 ; "EXPECTED_OUTPUT_HANDLE" 04df 009f | | .STRTAB 0x009f->0x052e ; "ERROR_OUTPUT_HANDLE" 04e0 00b0 | | .STRTAB 0x00b0->0x0538 ; "NONE" 04e1 00b2 | | .STRTAB 0x00b2->0x053a ; "THE_HANDLES" 04e2 00bb | | .STRTAB 0x00bb->0x053f ; "THE_TIMESTAMPS" 04e3 00c7 | | .STRTAB 0x00c7->0x0546 ; "START_TIME" 04e4 00cf | | .STRTAB 0x00cf->0x054b ; "STOP_TIME" 04e5 00d6 | | .STRTAB 0x00d6->0x0550 ; "EVAL_STATUS" 04e6 00df | | .STRTAB 0x00df->0x0555 ; "NO_ELEMENT_TIME" 04e7 00ec | | .STRTAB 0x00ec->0x055d ; "TEST_CASE_TIME" 04e8 00f8 | | .STRTAB 0x00f8->0x0564 ; "SUBJECT_PROGRAM_TIME" 04e9 010a | | .STRTAB 0x010a->0x056e ; "TEST_DRIVER_TIME" 04ea 0118 | | .STRTAB 0x0118->0x0576 ; "INPUT_DATA_TIME" 04eb 0125 | % | .STRTAB 0x0125->0x057d ; "OUTPUT_DATA_TIME" 04ec 0133 | 3 | .STRTAB 0x0133->0x0585 ; "EXPECTED_OUTPUT_TIME" 04ed 0145 | E | .STRTAB 0x0145->0x058f ; "ERROR_OUTPUT_TIME" 04ee 0154 | T | .STRTAB 0x0154->0x0598 ; "others => Unspecified" 04ef 0167 | g | .STRTAB 0x0167->0x05a2 ; "=>" 04f0 0167 | g | .STREND 0x0167->0x05a3 04f1 4e4f 5f45 |NO_E| .STRTAB_STRINGS 05a4 0000 0000 | | .BLANK 0000[0x4] 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; Debug Table 05a8 ; -------------------------------------------------------------------------------------- 05a8 0004 000a | | .DEBUG4 0x0004,0x000a,0x4ef0,0x0000,0x0001,0x0000 05ae 0000 0000 | | .BLANK 0000[0x52]