|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_29d0d7
└─⟦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 03c8 | | .CONST 0x03c8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0086 | | .CONST 0x0086 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0027 | ' | .CONST 0x0027 ; Number of locals 000b INIT_0008: 000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0013 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0015 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0017 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0019 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 001b 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 001d 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 001f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0021 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0023 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0025 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0027 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0028 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0029 00bf | | Action Accept_Activation 002a 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 002c 0093 0000 | | push_full_address 0x0 002e 6065 |`e | Indirect_Literal Discrete,0x94,{0x80000000, 0x00010000} 002f 0273 | s | Execute Discrete,Plus 0030 e002 | | Load 0x0,0x2 0031 0273 | s | Execute Discrete,Plus 0032 e003 | | Load 0x0,0x3 0033 0273 | s | Execute Discrete,Plus 0034 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0035 e004 | | Load 0x0,0x4 0036 0387 | | Declare_Variable Package 0037 00d8 | | Load_Top At_Offset_0 0038 020f | | Execute Module,Activate 0039 00e9 | | Load_Encached String_Cache 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 4818 |H | Short_Literal 0x18 003c 03d3 | | Declare_Type Access,Defined,Accesses_Protected 003d 00e1 | | Load_Encached Boolean_Cache 003e e005 | | Load 0x0,0x5 003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0040 e006 | | Load 0x0,0x6 0041 e21e | | Load 0x1,0x1e 0042 0098 | | Execute Package,Field_Read_Dynamic 0043 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 0045 4803 |H | Short_Literal 0x3 0046 032d | - | Declare_Type Record,Defined 0047 00d8 | | Load_Top At_Offset_0 0048 02a0 | | Declare_Subprogram Null_Subprogram 0049 e21b | | Load 0x1,0x1b 004a 03a3 | | Complete_Type Heap_Access,By_Defining 004b 4818 |H | Short_Literal 0x18 004c 03cc | | Declare_Type Access,Incomplete,Accesses_Protected 004d 00e1 | | Load_Encached Boolean_Cache 004e e007 | | Load 0x0,0x7 004f e21e | | Load 0x1,0x1e 0050 0098 | | Execute Package,Field_Read_Dynamic 0051 e21f | | Load 0x1,0x1f 0052 00db | | Load_Top At_Offset_3 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 4804 |H | Short_Literal 0x4 0055 032d | - | Declare_Type Record,Defined 0056 00d8 | | Load_Top At_Offset_0 0057 02a0 | | Declare_Subprogram Null_Subprogram 0058 00db | | Load_Top At_Offset_3 0059 03c7 | | Complete_Type Access,By_Defining 005a 00d9 | | Load_Top At_Offset_1 005b 02a0 | | Declare_Subprogram Null_Subprogram 005c 4801 |H | Short_Literal 0x1 005d 032d | - | Declare_Type Record,Defined 005e 00d8 | | Load_Top At_Offset_0 005f 02a0 | | Declare_Subprogram Null_Subprogram 0060 e21c | | Load 0x1,0x1c 0061 03a3 | | Complete_Type Heap_Access,By_Defining 0062 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0063 00c7 | | Action Elaborate_Subprogram 0064 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0065 00c7 | | Action Elaborate_Subprogram 0066 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 0068 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 006a 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 006c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 006d 00c7 | | Action Elaborate_Subprogram 006e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 006f 00c7 | | Action Elaborate_Subprogram 0070 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0071 00c7 | | Action Elaborate_Subprogram 0072 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0073 00c7 | | Action Elaborate_Subprogram 0074 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0075 00c7 | | Action Elaborate_Subprogram 0076 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0077 00c7 | | Action Elaborate_Subprogram 0078 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 007a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 007b 00c7 | | Action Elaborate_Subprogram 007c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 007d 00c7 | | Action Elaborate_Subprogram 007e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 007f 00c7 | | Action Elaborate_Subprogram 0080 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0081 00c7 | | Action Elaborate_Subprogram 0082 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0083 00c7 | | Action Elaborate_Subprogram 0084 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0085 00c7 | | Action Elaborate_Subprogram 0086 BODY_0008: 0086 00bc | | Action Signal_Activated 0087 00bb | | Action Signal_Completion 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b e21c | | Load 0x1,0x1c 008c e008 | | Load 0x0,0x8 008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008e e009 | | Load 0x0,0x9 008f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0090 039c | | Declare_Variable Heap_Access,By_Allocation 0091 a5fe | | Store_Unchecked 0x2,-0x2 0092 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0093 0000 | | .XXX[0x1] 0094 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009e | | .CONST 0x009e ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 0217 | | Execute Heap_Access,All_Reference 009d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009e BODY_0098: 009e 00cf | | Action Mark_Auxiliary 009f 7813 |x | Jump 0xb3 00a0 00d9 | | Load_Top At_Offset_1 00a1 0227 | ' | Execute Access,All_Reference 00a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a3 700a |p | Jump_Nonzero 0xae 00a4 00d9 | | Load_Top At_Offset_1 00a5 0229 | ) | Execute Access,All_Read 00a6 00d8 | | Load_Top At_Offset_0 00a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a8 e00a | | Load 0x0,0xa 00a9 e21e | | Load 0x1,0x1e 00aa 0096 | | Execute Package,Entry 00ab 00d9 | | Load_Top At_Offset_1 00ac 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ad 00d1 | | Pop_Control Pop_Count_1 00ae 00d9 | | Load_Top At_Offset_1 00af 0227 | ' | Execute Access,All_Reference 00b0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00b1 003a | : | Store_Top Access,At_Offset_2 00b2 00c9 | | Action Pop_Auxiliary_Loop 00b3 00d9 | | Load_Top At_Offset_1 00b4 77eb |w | Jump_Nonzero 0xa0 00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00cd | | .CONST 0x00cd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0006 | | .CONST 0x0006 ; Number of locals 00bb INIT_00b8: 00bb 00db | | Load_Top At_Offset_3 00bc 8224 | $ | Call 0x1,0x24 00bd 00db | | Load_Top At_Offset_3 00be 8226 | & | Call 0x1,0x26 00bf e005 | | Load 0x0,0x5 00c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c1 02c7 | | Declare_Variable Any 00c2 00d8 | | Load_Top At_Offset_0 00c3 1c00 | | Execute_Immediate Run_Utility,0x0 00c4 4801 |H | Short_Literal 0x1 00c5 6046 |`F | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00001000} 00c6 e00b | | Load 0x0,0xb 00c7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00c8 035b | [ | Declare_Type Array,Constrained 00c9 0337 | 7 | Declare_Variable Array 00ca 00e2 | | Load_Encached Integer_Cache 00cb 00e2 | | Load_Encached Integer_Cache 00cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cd BODY_00b8: 00cd e402 | | Load 0x2,0x2 00ce 0227 | ' | Execute Access,All_Reference 00cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d0 682d |h- | Jump_Zero 0xfe 00d1 00db | | Load_Top At_Offset_3 00d2 e00c | | Load 0x0,0xc 00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d4 e00d | | Load 0x0,0xd 00d5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00d6 00ea | | Load_Encached Null_String_Cache 00d7 e5fe | | Load 0x2,-0x2 00d8 8225 | % | Call 0x1,0x25 00d9 4800 |H | Short_Literal 0x0 00da e005 | | Load 0x0,0x5 00db 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00dc c403 | | Store 0x2,0x3 00dd 00cf | | Action Mark_Auxiliary 00de 7813 |x | Jump 0xf2 00df 00e3 | | Load_Encached Natural_Cache 00e0 e404 | | Load 0x2,0x4 00e1 e403 | | Load 0x2,0x3 00e2 e005 | | Load 0x0,0x5 00e3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00e4 00d1 | | Pop_Control Pop_Count_1 00e5 005b | [ | Store_Top Discrete,At_Offset_3 00e6 4801 |H | Short_Literal 0x1 00e7 00db | | Load_Top At_Offset_3 00e8 e404 | | Load 0x2,0x4 00e9 01cf | | Execute Vector,Slice_Read 00ea e5fd | | Load 0x2,-0x3 00eb e005 | | Load 0x0,0x5 00ec 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00ed 00d9 | | Load_Top At_Offset_1 00ee 00db | | Load_Top At_Offset_3 00ef 0273 | s | Execute Discrete,Plus 00f0 005a | Z | Store_Top Discrete,At_Offset_2 00f1 00c9 | | Action Pop_Auxiliary_Loop 00f2 e403 | | Load 0x2,0x3 00f3 e005 | | Load 0x0,0x5 00f4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00f5 6fe9 |o | Jump_Zero 0xdf 00f6 00ce | | Action Pop_Auxiliary 00f7 00db | | Load_Top At_Offset_3 00f8 e005 | | Load 0x0,0x5 00f9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00fa c403 | | Store 0x2,0x3 00fb 00d8 | | Load_Top At_Offset_0 00fc a5fc | | Store_Unchecked 0x2,-0x4 00fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00fe 00e3 | | Load_Encached Natural_Cache 00ff e5fd | | Load 0x2,-0x3 0100 e5fe | | Load 0x2,-0x2 0101 8225 | % | Call 0x1,0x25 0102 e402 | | Load 0x2,0x2 0103 0227 | ' | Execute Access,All_Reference 0104 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0105 e00e | | Load 0x0,0xe 0106 e21e | | Load 0x1,0x1e 0107 0096 | | Execute Package,Entry 0108 c5fc | | Store 0x2,-0x4 0109 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010a 0000 0000 | | .XXX[0x2] 010c 0000 0000 | | .LITERAL {0x00000000, 0x00001000} 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0126 | & | .CONST 0x0126 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0006 | | .CONST 0x0006 ; Number of locals 0113 INIT_0110: 0113 e5fd | | Load 0x2,-0x3 0114 8224 | $ | Call 0x1,0x24 0115 00db | | Load_Top At_Offset_3 0116 8226 | & | Call 0x1,0x26 0117 e005 | | Load 0x0,0x5 0118 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0119 02c7 | | Declare_Variable Any 011a 00d8 | | Load_Top At_Offset_0 011b 1c00 | | Execute_Immediate Run_Utility,0x0 011c 4801 |H | Short_Literal 0x1 011d 67ee |g | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00001000} 011e e00b | | Load 0x0,0xb 011f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0120 035b | [ | Declare_Type Array,Constrained 0121 0337 | 7 | Declare_Variable Array 0122 00e2 | | Load_Encached Integer_Cache 0123 e5fc | | Load 0x2,-0x4 0124 00e2 | | Load_Encached Integer_Cache 0125 03f1 | | Declare_Variable Discrete,With_Value 0126 BODY_0110: 0126 e402 | | Load 0x2,0x2 0127 0227 | ' | Execute Access,All_Reference 0128 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0129 6844 |hD | Jump_Zero 0x16e 012a 00db | | Load_Top At_Offset_3 012b e00c | | Load 0x0,0xc 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d e00d | | Load 0x0,0xd 012e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 012f e00d | | Load 0x0,0xd 0130 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0131 00ea | | Load_Encached Null_String_Cache 0132 e5fd | | Load 0x2,-0x3 0133 8225 | % | Call 0x1,0x25 0134 4801 |H | Short_Literal 0x1 0135 e005 | | Load 0x0,0x5 0136 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0137 c403 | | Store 0x2,0x3 0138 00cf | | Action Mark_Auxiliary 0139 7827 |x' | Jump 0x161 013a e5fc | | Load 0x2,-0x4 013b 67d0 |g | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00001000} 013c 027a | z | Execute Discrete,Less_Equal 013d 6810 |h | Jump_Zero 0x14e 013e 00db | | Load_Top At_Offset_3 013f 4801 |H | Short_Literal 0x1 0140 e5fc | | Load 0x2,-0x4 0141 00da | | Load_Top At_Offset_2 0142 035b | [ | Declare_Type Array,Constrained 0143 00d0 | | Action Swap_Control 0144 01cd | | Execute Vector,Slice_Reference 0145 00e3 | | Load_Encached Natural_Cache 0146 00d9 | | Load_Top At_Offset_1 0147 e5fe | | Load 0x2,-0x2 0148 e005 | | Load 0x0,0x5 0149 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 014a 00d1 | | Pop_Control Pop_Count_1 014b c405 | | Store 0x2,0x5 014c 00d1 | | Pop_Control Pop_Count_1 014d 7807 |x | Jump 0x155 014e 00e3 | | Load_Encached Natural_Cache 014f e404 | | Load 0x2,0x4 0150 e5fe | | Load 0x2,-0x2 0151 e005 | | Load 0x0,0x5 0152 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0153 00d1 | | Pop_Control Pop_Count_1 0154 005b | [ | Store_Top Discrete,At_Offset_3 0155 4801 |H | Short_Literal 0x1 0156 00db | | Load_Top At_Offset_3 0157 e404 | | Load 0x2,0x4 0158 01cf | | Execute Vector,Slice_Read 0159 e403 | | Load 0x2,0x3 015a e005 | | Load 0x0,0x5 015b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 015c 00d9 | | Load_Top At_Offset_1 015d 00db | | Load_Top At_Offset_3 015e 0273 | s | Execute Discrete,Plus 015f 005a | Z | Store_Top Discrete,At_Offset_2 0160 00c9 | | Action Pop_Auxiliary_Loop 0161 e5fc | | Load 0x2,-0x4 0162 0c01 | | Execute_Immediate Greater_Equal,0x1 0163 6804 |h | Jump_Zero 0x168 0164 e5fe | | Load 0x2,-0x2 0165 e005 | | Load 0x0,0x5 0166 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0167 6fd2 |o | Jump_Zero 0x13a 0168 00ce | | Action Pop_Auxiliary 0169 00db | | Load_Top At_Offset_3 016a e005 | | Load 0x0,0x5 016b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 016c c403 | | Store 0x2,0x3 016d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 016e e5fc | | Load 0x2,-0x4 016f e5fd | | Load 0x2,-0x3 0170 8225 | % | Call 0x1,0x25 0171 e5fe | | Load 0x2,-0x2 0172 e402 | | Load 0x2,0x2 0173 0227 | ' | Execute Access,All_Reference 0174 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0175 e00f | | Load 0x0,0xf 0176 e21e | | Load 0x1,0x1e 0177 0096 | | Execute Package,Entry 0178 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0190 | | .CONST 0x0190 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 00db | | Load_Top At_Offset_3 0184 8224 | $ | Call 0x1,0x24 0185 00db | | Load_Top At_Offset_3 0186 8226 | & | Call 0x1,0x26 0187 e21b | | Load 0x1,0x1b 0188 e008 | | Load 0x0,0x8 0189 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018a e009 | | Load 0x0,0x9 018b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018c 039c | | Declare_Variable Heap_Access,By_Allocation 018d 00d8 | | Load_Top At_Offset_0 018e 0217 | | Execute Heap_Access,All_Reference 018f 1c00 | | Execute_Immediate Run_Utility,0x0 0190 BODY_0180: 0190 00d9 | | Load_Top At_Offset_1 0191 0227 | ' | Execute Access,All_Reference 0192 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0193 00d9 | | Load_Top At_Offset_1 0194 0217 | | Execute Heap_Access,All_Reference 0195 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0196 00d8 | | Load_Top At_Offset_0 0197 0217 | | Execute Heap_Access,All_Reference 0198 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0199 6812 |h | Jump_Zero 0x1ac 019a 00d8 | | Load_Top At_Offset_0 019b 0219 | | Execute Heap_Access,All_Read 019c 00d8 | | Load_Top At_Offset_0 019d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019e e00c | | Load 0x0,0xc 019f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a0 e00d | | Load 0x0,0xd 01a1 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01a2 00ea | | Load_Encached Null_String_Cache 01a3 e5fe | | Load 0x2,-0x2 01a4 8225 | % | Call 0x1,0x25 01a5 4800 |H | Short_Literal 0x0 01a6 e005 | | Load 0x0,0x5 01a7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a8 00d9 | | Load_Top At_Offset_1 01a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01aa 00d1 | | Pop_Control Pop_Count_1 01ab 7814 |x | Jump 0x1c0 01ac 00d8 | | Load_Top At_Offset_0 01ad 0219 | | Execute Heap_Access,All_Read 01ae e006 | | Load 0x0,0x6 01af e21e | | Load 0x1,0x1e 01b0 0098 | | Execute Package,Field_Read_Dynamic 01b1 e00c | | Load 0x0,0xc 01b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b3 00ea | | Load_Encached Null_String_Cache 01b4 e5fe | | Load 0x2,-0x2 01b5 8225 | % | Call 0x1,0x25 01b6 4800 |H | Short_Literal 0x0 01b7 e402 | | Load 0x2,0x2 01b8 0227 | ' | Execute Access,All_Reference 01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ba e010 | | Load 0x0,0x10 01bb e21e | | Load 0x1,0x1e 01bc 0096 | | Execute Package,Entry 01bd 00d9 | | Load_Top At_Offset_1 01be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01bf 00d1 | | Pop_Control Pop_Count_1 01c0 00d8 | | Load_Top At_Offset_0 01c1 a5fd | | Store_Unchecked 0x2,-0x3 01c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d8 | | .CONST 0x01d8 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0003 | | .CONST 0x0003 ; Number of locals 01cb INIT_01c8: 01cb 00db | | Load_Top At_Offset_3 01cc 8224 | $ | Call 0x1,0x24 01cd 00db | | Load_Top At_Offset_3 01ce 8226 | & | Call 0x1,0x26 01cf e21b | | Load 0x1,0x1b 01d0 e008 | | Load 0x0,0x8 01d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d2 e009 | | Load 0x0,0x9 01d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d4 039c | | Declare_Variable Heap_Access,By_Allocation 01d5 00d8 | | Load_Top At_Offset_0 01d6 0217 | | Execute Heap_Access,All_Reference 01d7 1c00 | | Execute_Immediate Run_Utility,0x0 01d8 BODY_01c8: 01d8 00d9 | | Load_Top At_Offset_1 01d9 0227 | ' | Execute Access,All_Reference 01da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01db 00d9 | | Load_Top At_Offset_1 01dc 0217 | | Execute Heap_Access,All_Reference 01dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01de 00d8 | | Load_Top At_Offset_0 01df 0217 | | Execute Heap_Access,All_Reference 01e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e1 6812 |h | Jump_Zero 0x1f4 01e2 00d8 | | Load_Top At_Offset_0 01e3 0219 | | Execute Heap_Access,All_Read 01e4 00d8 | | Load_Top At_Offset_0 01e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e6 e00c | | Load 0x0,0xc 01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e8 e00d | | Load 0x0,0xd 01e9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01ea 00ea | | Load_Encached Null_String_Cache 01eb e5fe | | Load 0x2,-0x2 01ec 8225 | % | Call 0x1,0x25 01ed 4801 |H | Short_Literal 0x1 01ee e005 | | Load 0x0,0x5 01ef 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f0 00d9 | | Load_Top At_Offset_1 01f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f2 00d1 | | Pop_Control Pop_Count_1 01f3 7814 |x | Jump 0x208 01f4 00d8 | | Load_Top At_Offset_0 01f5 0219 | | Execute Heap_Access,All_Read 01f6 e006 | | Load 0x0,0x6 01f7 e21e | | Load 0x1,0x1e 01f8 0098 | | Execute Package,Field_Read_Dynamic 01f9 e00c | | Load 0x0,0xc 01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fb 00ea | | Load_Encached Null_String_Cache 01fc e5fe | | Load 0x2,-0x2 01fd 8225 | % | Call 0x1,0x25 01fe 4801 |H | Short_Literal 0x1 01ff e402 | | Load 0x2,0x2 0200 0227 | ' | Execute Access,All_Reference 0201 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0202 e010 | | Load 0x0,0x10 0203 e21e | | Load 0x1,0x1e 0204 0096 | | Execute Package,Entry 0205 00d9 | | Load_Top At_Offset_1 0206 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0207 00d1 | | Pop_Control Pop_Count_1 0208 00d8 | | Load_Top At_Offset_0 0209 a5fd | | Store_Unchecked 0x2,-0x3 020a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 020b 0000 0000 | | .BLANK 0000[0x5] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 0217 | | Execute Heap_Access,All_Reference 0215 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0216 680a |h | Jump_Zero 0x221 0217 00da | | Load_Top At_Offset_2 0218 0219 | | Execute Heap_Access,All_Read 0219 00d8 | | Load_Top At_Offset_0 021a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021b e005 | | Load 0x0,0x5 021c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 021d 00d9 | | Load_Top At_Offset_1 021e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 021f 00d1 | | Pop_Control Pop_Count_1 0220 780a |x | Jump 0x22b 0221 00da | | Load_Top At_Offset_2 0222 0219 | | Execute Heap_Access,All_Read 0223 00d8 | | Load_Top At_Offset_0 0224 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0225 e011 | | Load 0x0,0x11 0226 e21e | | Load 0x1,0x1e 0227 0096 | | Execute Package,Entry 0228 00d9 | | Load_Top At_Offset_1 0229 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 022a 00d1 | | Pop_Control Pop_Count_1 022b e21b | | Load 0x1,0x1b 022c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 0217 | | Execute Heap_Access,All_Reference 0235 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0236 6806 |h | Jump_Zero 0x23d 0237 00da | | Load_Top At_Offset_2 0238 0217 | | Execute Heap_Access,All_Reference 0239 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023a e005 | | Load 0x0,0x5 023b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 023c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023d 00da | | Load_Top At_Offset_2 023e 0217 | | Execute Heap_Access,All_Reference 023f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0240 e012 | | Load 0x0,0x12 0241 e21e | | Load 0x1,0x1e 0242 0096 | | Execute Package,Entry 0243 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c 0217 | | Execute Heap_Access,All_Reference 024d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 024e 6806 |h | Jump_Zero 0x255 024f 00da | | Load_Top At_Offset_2 0250 0217 | | Execute Heap_Access,All_Reference 0251 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0252 e005 | | Load 0x0,0x5 0253 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0254 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0255 00da | | Load_Top At_Offset_2 0256 0217 | | Execute Heap_Access,All_Reference 0257 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0258 e013 | | Load 0x0,0x13 0259 e21e | | Load 0x1,0x1e 025a 0096 | | Execute Package,Entry 025b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025c 0000 0000 | | .BLANK 0000[0x4] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 0217 | | Execute Heap_Access,All_Reference 0265 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0266 6806 |h | Jump_Zero 0x26d 0267 480a |H | Short_Literal 0xa 0268 00db | | Load_Top At_Offset_3 0269 0217 | | Execute Heap_Access,All_Reference 026a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 026b 8227 | ' | Call 0x1,0x27 026c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026d 480a |H | Short_Literal 0xa 026e 00db | | Load_Top At_Offset_3 026f 0217 | | Execute Heap_Access,All_Reference 0270 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0271 e014 | | Load 0x0,0x14 0272 e21e | | Load 0x1,0x1e 0273 0096 | | Execute Package,Entry 0274 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 0217 | | Execute Heap_Access,All_Reference 027d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 027e 680a |h | Jump_Zero 0x289 027f 00e3 | | Load_Encached Natural_Cache 0280 e5fe | | Load 0x2,-0x2 0281 e5ff | | Load 0x2,-0x1 0282 0217 | | Execute Heap_Access,All_Reference 0283 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0284 e005 | | Load 0x0,0x5 0285 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0286 00d1 | | Pop_Control Pop_Count_1 0287 c5fd | | Store 0x2,-0x3 0288 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0289 00e3 | | Load_Encached Natural_Cache 028a e5fe | | Load 0x2,-0x2 028b e5ff | | Load 0x2,-0x1 028c 0217 | | Execute Heap_Access,All_Reference 028d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 028e e015 | | Load 0x0,0x15 028f e21e | | Load 0x1,0x1e 0290 0096 | | Execute Package,Entry 0291 00d1 | | Pop_Control Pop_Count_1 0292 c5fd | | Store 0x2,-0x3 0293 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0294 0000 0000 | | .BLANK 0000[0x4] 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 0217 | | Execute Heap_Access,All_Reference 029d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029e 680a |h | Jump_Zero 0x2a9 029f 00e3 | | Load_Encached Natural_Cache 02a0 e5fe | | Load 0x2,-0x2 02a1 e5ff | | Load 0x2,-0x1 02a2 0217 | | Execute Heap_Access,All_Reference 02a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a4 e005 | | Load 0x0,0x5 02a5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02a6 00d1 | | Pop_Control Pop_Count_1 02a7 c5fd | | Store 0x2,-0x3 02a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a9 00e3 | | Load_Encached Natural_Cache 02aa e5fe | | Load 0x2,-0x2 02ab e5ff | | Load 0x2,-0x1 02ac 0217 | | Execute Heap_Access,All_Reference 02ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02ae e016 | | Load 0x0,0x16 02af e21e | | Load 0x1,0x1e 02b0 0096 | | Execute Package,Entry 02b1 00d1 | | Pop_Control Pop_Count_1 02b2 c5fd | | Store 0x2,-0x3 02b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b4 0000 0000 | | .BLANK 0000[0x4] 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 6807 |h | Jump_Zero 0x2c6 02bf 00db | | Load_Top At_Offset_3 02c0 00db | | Load_Top At_Offset_3 02c1 0217 | | Execute Heap_Access,All_Reference 02c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c3 e005 | | Load 0x0,0x5 02c4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02c6 00db | | Load_Top At_Offset_3 02c7 00db | | Load_Top At_Offset_3 02c8 0217 | | Execute Heap_Access,All_Reference 02c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02ca e017 | | Load 0x0,0x17 02cb e21e | | Load 0x1,0x1e 02cc 0096 | | Execute Package,Entry 02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ce 0000 0000 | | .XXX[0x2] 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 0217 | | Execute Heap_Access,All_Reference 02d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d6 6807 |h | Jump_Zero 0x2de 02d7 00db | | Load_Top At_Offset_3 02d8 00db | | Load_Top At_Offset_3 02d9 0217 | | Execute Heap_Access,All_Reference 02da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02db e005 | | Load 0x0,0x5 02dc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02de 00db | | Load_Top At_Offset_3 02df 00db | | Load_Top At_Offset_3 02e0 0217 | | Execute Heap_Access,All_Reference 02e1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02e2 e018 | | Load 0x0,0x18 02e3 e21e | | Load 0x1,0x1e 02e4 0096 | | Execute Package,Entry 02e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e5fd | | Load 0x2,-0x3 02ec e019 | | Load 0x0,0x19 02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ee 0119 | | Execute Any,Check_In_Formal_Type 02ef e5fe | | Load 0x2,-0x2 02f0 e5ff | | Load 0x2,-0x1 02f1 e01a | | Load 0x0,0x1a 02f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 4601 |F | Jump_Case 0x2 02fc 7801 |x | Jump 0x2fe ; case 0x0 02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02fe 00da | | Load_Top At_Offset_2 02ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0300 0125 | % | Execute Any,Set_Constraint 0301 00da | | Load_Top At_Offset_2 0302 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0303 1c00 | | Execute_Immediate Run_Utility,0x0 0304 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 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 01dd | | Execute Vector,First 030d 00db | | Load_Top At_Offset_3 030e 01d7 | | Execute Vector,Field_Read 030f 0f3a | : | Execute_Immediate Equal,0x3a 0310 6803 |h | Jump_Zero 0x314 0311 0092 03b9 | | Action Push_String_Extended,0x3b9 ; "<MV>" 0313 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0314 00da | | Load_Top At_Offset_2 0315 e00d | | Load 0x0,0xd 0316 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0317 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0318 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0319 0000 0000 | | .BLANK 0000[0x7] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 01dd | | Execute Vector,First 0325 00db | | Load_Top At_Offset_3 0326 01d7 | | Execute Vector,Field_Read 0327 0f3a | : | Execute_Immediate Equal,0x3a 0328 6802 |h | Jump_Zero 0x32b 0329 00da | | Load_Top At_Offset_2 032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032b 00da | | Load_Top At_Offset_2 032c e00d | | Load 0x0,0xd 032d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 032e 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 032f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0336 | 6 | .CONST 0x0336 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0002 | | .CONST 0x0002 ; Number of locals 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 0217 | | Execute Heap_Access,All_Reference 0335 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0336 BODY_0330: 0336 00cf | | Action Mark_Auxiliary 0337 00d9 | | Load_Top At_Offset_1 0338 702f |p/ | Jump_Nonzero 0x368 0339 e221 | ! | Load 0x1,0x21 033a 03bc | | Declare_Variable Access,By_Allocation 033b 003a | : | Store_Top Access,At_Offset_2 033c e5ff | | Load 0x2,-0x1 033d 0217 | | Execute Heap_Access,All_Reference 033e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 033f 00da | | Load_Top At_Offset_2 0340 0227 | ' | Execute Access,All_Reference 0341 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0342 00d9 | | Load_Top At_Offset_1 0343 e5ff | | Load 0x2,-0x1 0344 0217 | | Execute Heap_Access,All_Reference 0345 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0346 e5fe | | Load 0x2,-0x2 0347 e21f | | Load 0x1,0x1f 0348 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0349 00da | | Load_Top At_Offset_2 034a 0227 | ' | Execute Access,All_Reference 034b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 034c e5fe | | Load 0x2,-0x2 034d 01db | | Execute Vector,Length 034e 0f00 | | Execute_Immediate Equal,0x0 034f 00da | | Load_Top At_Offset_2 0350 0227 | ' | Execute Access,All_Reference 0351 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0352 00d9 | | Load_Top At_Offset_1 0353 0227 | ' | Execute Access,All_Reference 0354 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0355 7010 |p | Jump_Nonzero 0x366 0356 00d9 | | Load_Top At_Offset_1 0357 0229 | ) | Execute Access,All_Read 0358 00d8 | | Load_Top At_Offset_0 0359 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 035a e019 | | Load 0x0,0x19 035b 180e | | Execute Package,Field_Execute,Field_Number 0xe 035c 00ea | | Load_Encached Null_String_Cache 035d 0092 03ba | | Action Push_String_Extended,0x3ba ; "operator" 035f e5fe | | Load 0x2,-0x2 0360 e01b | | Load 0x0,0x1b 0361 e21e | | Load 0x1,0x1e 0362 0096 | | Execute Package,Entry 0363 00d9 | | Load_Top At_Offset_1 0364 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0365 00d1 | | Pop_Control Pop_Count_1 0366 00d9 | | Load_Top At_Offset_1 0367 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0368 00d9 | | Load_Top At_Offset_1 0369 0227 | ' | Execute Access,All_Reference 036a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 036b 0227 | ' | Execute Access,All_Reference 036c e5fe | | Load 0x2,-0x2 036d 01df | | Execute Vector,Equal 036e 6802 |h | Jump_Zero 0x371 036f 00d9 | | Load_Top At_Offset_1 0370 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0371 00d9 | | Load_Top At_Offset_1 0372 0227 | ' | Execute Access,All_Reference 0373 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0374 003a | : | Store_Top Access,At_Offset_2 0375 00c9 | | Action Pop_Auxiliary_Loop 0376 7fc0 | | Jump 0x337 0377 0000 | | .XXX[0x1] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0383 | | .CONST 0x0383 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0003 | | .CONST 0x0003 ; Number of locals 037b INIT_0378: 037b e00b | | Load 0x0,0xb 037c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 037d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 037e 4801 |H | Short_Literal 0x1 037f 4a00 |J | Short_Literal 0x200 0380 00e9 | | Load_Encached String_Cache 0381 035b | [ | Declare_Type Array,Constrained 0382 0337 | 7 | Declare_Variable Array 0383 BODY_0378: 0383 00cf | | Action Mark_Auxiliary 0384 00d9 | | Load_Top At_Offset_1 0385 01d9 | | Execute Vector,Reverse_Bounds 0386 0007 | | Action Break_Optional 0387 e5ff | | Load 0x2,-0x1 0388 e005 | | Load 0x0,0x5 0389 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 038a 6808 |h | Jump_Zero 0x393 038b 4801 |H | Short_Literal 0x1 038c 00d9 | | Load_Top At_Offset_1 038d 0aff | | Execute_Immediate Plus,-0x1 038e e403 | | Load 0x2,0x3 038f 01cf | | Execute Vector,Slice_Read 0390 00e9 | | Load_Encached String_Cache 0391 01c6 | | Execute Vector,Convert_To_Formal 0392 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0393 e005 | | Load 0x0,0x5 0394 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0395 e5ff | | Load 0x2,-0x1 0396 e005 | | Load 0x0,0x5 0397 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0398 c402 | | Store 0x2,0x2 0399 e402 | | Load 0x2,0x2 039a e5fe | | Load 0x2,-0x2 039b 027f | | Execute Discrete,Equal 039c 6808 |h | Jump_Zero 0x3a5 039d 4801 |H | Short_Literal 0x1 039e 00d9 | | Load_Top At_Offset_1 039f 0aff | | Execute_Immediate Plus,-0x1 03a0 e403 | | Load 0x2,0x3 03a1 01cf | | Execute Vector,Slice_Read 03a2 00e9 | | Load_Encached String_Cache 03a3 01c6 | | Execute Vector,Convert_To_Formal 03a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a5 e402 | | Load 0x2,0x2 03a6 00d8 | | Load_Top At_Offset_0 03a7 00e8 | | Load_Encached Character_Cache 03a8 0260 | ` | Execute Discrete,In_Type 03a9 7001 |p | Jump_Nonzero 0x3ab 03aa 0801 | | Execute_Immediate Raise,0x1 03ab 00d9 | | Load_Top At_Offset_1 03ac e403 | | Load 0x2,0x3 03ad 01d6 | | Execute Vector,Field_Write 03ae 00c8 | | Action Pop_Auxiliary_Range 03af 3fd7 |? | Loop_Increasing 0x387 03b0 00ce | | Action Pop_Auxiliary 03b1 00d8 | | Load_Top At_Offset_0 03b2 480a |H | Short_Literal 0xa 03b3 e5ff | | Load 0x2,-0x1 03b4 8227 | ' | Call 0x1,0x27 03b5 01cc | | Execute Vector,Catenate 03b6 00e9 | | Load_Encached String_Cache 03b7 01c6 | | Execute Vector,Convert_To_Formal 03b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b9 ; -------------------------------------------------------------------------------------- 03b9 ; STRING TABLE 03b9 ; -------------------------------------------------------------------------------------- 03b9 0006 | | .STRTAB 0x0006->0x03bc ; "<MV>" 03ba 0008 | | .STRTAB 0x0008->0x03be ; "operator" 03bb 000e | | .STREND 0x000e->0x03c2 03bc 3c4d 563e |<MV>| .STRTAB_STRINGS 03c2 0000 0000 | | .BLANK 0000[0x6] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug Table 03c8 ; -------------------------------------------------------------------------------------- 03c8 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf22a,0x0000,0x0001,0x0000 03ce 036c 076c | l l| .XXX[0x32] 03d0 3015 a03c |0 <| 03d2 036c 0777 | l w| 03d4 97fc 0774 | t| 03d6 2810 2bfc |( + | 03d8 0923 97fc | # | 03da 073f 8004 | ? | 03dc 6c34 071c |l4 | 03de 0364 0751 | d Q| 03e0 e098 033f | ?| 03e2 97fc 076c | l| 03e4 0920 2bfc | + | 03e6 0921 2000 | ! | 03e8 098d c03b | ;| 03ea 97fc 0774 | t| 03ec 0364 09cc | d | 03ee 0923 97fc | # | 03f0 075c 0364 | \ d| 03f2 2804 0923 |( #| 03f4 9008 0758 | X| 03f6 0320 ffc8 | | 03f8 0325 2013 | % | 03fa 97fc 076c | l| 03fc 2804 0920 |( | 03fe 098d c019 | |