|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03d0 | | .CONST 0x03d0 ; 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 008a | | .CONST 0x008a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0013 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0015 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0017 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0019 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
001b 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
001d 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
001f 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0021 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0023 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0025 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0027 4803 |H | Short_Literal 0x3
0028 032b | + | Declare_Type Record,Incomplete,Visible
0029 00d8 | | Load_Top At_Offset_0
002a 02a0 | | Declare_Subprogram Null_Subprogram
002b 03ae | | Declare_Type Heap_Access,Defined,Visible
002c 4801 |H | Short_Literal 0x1
002d 032b | + | Declare_Type Record,Incomplete,Visible
002e 00d8 | | Load_Top At_Offset_0
002f 02a0 | | Declare_Subprogram Null_Subprogram
0030 03ae | | Declare_Type Heap_Access,Defined,Visible
0031 00bf | | Action Accept_Activation
0032 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call
0034 0093 0000 | | push_full_address 0x0
0036 6065 |`e | Indirect_Literal Discrete,0x9c,{0x80000000, 0x00010000}
0037 0273 | s | Execute Discrete,Plus
0038 e002 | | Load 0x0,0x2
0039 0273 | s | Execute Discrete,Plus
003a e003 | | Load 0x0,0x3
003b 0273 | s | Execute Discrete,Plus
003c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
003d e004 | | Load 0x0,0x4
003e 0387 | | Declare_Variable Package
003f 00d8 | | Load_Top At_Offset_0
0040 020f | | Execute Module,Activate
0041 00e9 | | Load_Encached String_Cache
0042 02a0 | | Declare_Subprogram Null_Subprogram
0043 4818 |H | Short_Literal 0x18
0044 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0045 00e1 | | Load_Encached Boolean_Cache
0046 e005 | | Load 0x0,0x5
0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0048 e006 | | Load 0x0,0x6
0049 e220 | | Load 0x1,0x20
004a 0098 | | Execute Package,Field_Read_Dynamic
004b 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
004d e21b | | Load 0x1,0x1b
004e 0326 | & | Complete_Type Record,By_Defining
004f e21c | | Load 0x1,0x1c
0050 03a0 | | Complete_Type Heap_Access,By_Component_Completion
0051 4818 |H | Short_Literal 0x18
0052 03cc | | Declare_Type Access,Incomplete,Accesses_Protected
0053 00e1 | | Load_Encached Boolean_Cache
0054 e007 | | Load 0x0,0x7
0055 e220 | | Load 0x1,0x20
0056 0098 | | Execute Package,Field_Read_Dynamic
0057 00db | | Load_Top At_Offset_3
0058 00db | | Load_Top At_Offset_3
0059 02a0 | | Declare_Subprogram Null_Subprogram
005a 4804 |H | Short_Literal 0x4
005b 032d | - | Declare_Type Record,Defined
005c 00d8 | | Load_Top At_Offset_0
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 00db | | Load_Top At_Offset_3
005f 03c7 | | Complete_Type Access,By_Defining
0060 00d9 | | Load_Top At_Offset_1
0061 02a0 | | Declare_Subprogram Null_Subprogram
0062 e21d | | Load 0x1,0x1d
0063 0326 | & | Complete_Type Record,By_Defining
0064 e21e | | Load 0x1,0x1e
0065 03a0 | | Complete_Type Heap_Access,By_Component_Completion
0066 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0067 00c7 | | Action Elaborate_Subprogram
0068 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0069 00c7 | | Action Elaborate_Subprogram
006a 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
006c 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
006e 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0070 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0071 00c7 | | Action Elaborate_Subprogram
0072 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0073 00c7 | | Action Elaborate_Subprogram
0074 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0075 00c7 | | Action Elaborate_Subprogram
0076 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0077 00c7 | | Action Elaborate_Subprogram
0078 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0079 00c7 | | Action Elaborate_Subprogram
007a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007b 00c7 | | Action Elaborate_Subprogram
007c 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
007e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
007f 00c7 | | Action Elaborate_Subprogram
0080 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0081 00c7 | | Action Elaborate_Subprogram
0082 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0083 00c7 | | Action Elaborate_Subprogram
0084 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0085 00c7 | | Action Elaborate_Subprogram
0086 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0087 00c7 | | Action Elaborate_Subprogram
0088 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0089 00c7 | | Action Elaborate_Subprogram
008a BODY_0008:
008a 00bc | | Action Signal_Activated
008b 00bb | | Action Signal_Completion
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e21e | | Load 0x1,0x1e
0094 e008 | | Load 0x0,0x8
0095 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0096 e009 | | Load 0x0,0x9
0097 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0098 039c | | Declare_Variable Heap_Access,By_Allocation
0099 a5fe | | Store_Unchecked 0x2,-0x2
009a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009b 0000 | | .XXX[0x1]
009c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a6 | | .CONST 0x00a6 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 0217 | | Execute Heap_Access,All_Reference
00a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a6 BODY_00a0:
00a6 00cf | | Action Mark_Auxiliary
00a7 7813 |x | Jump 0xbb
00a8 00d9 | | Load_Top At_Offset_1
00a9 0227 | ' | Execute Access,All_Reference
00aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ab 700a |p | Jump_Nonzero 0xb6
00ac 00d9 | | Load_Top At_Offset_1
00ad 0229 | ) | Execute Access,All_Read
00ae 00d8 | | Load_Top At_Offset_0
00af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00b0 e00a | | Load 0x0,0xa
00b1 e220 | | Load 0x1,0x20
00b2 0096 | | Execute Package,Entry
00b3 00d9 | | Load_Top At_Offset_1
00b4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b5 00d1 | | Pop_Control Pop_Count_1
00b6 00d9 | | Load_Top At_Offset_1
00b7 0227 | ' | Execute Access,All_Reference
00b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00b9 003a | : | Store_Top Access,At_Offset_2
00ba 00c9 | | Action Pop_Auxiliary_Loop
00bb 00d9 | | Load_Top At_Offset_1
00bc 77eb |w | Jump_Nonzero 0xa8
00bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d5 | | .CONST 0x00d5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0006 | | .CONST 0x0006 ; Number of locals
00c3 INIT_00c0:
00c3 00db | | Load_Top At_Offset_3
00c4 8224 | $ | Call 0x1,0x24
00c5 00db | | Load_Top At_Offset_3
00c6 8226 | & | Call 0x1,0x26
00c7 e005 | | Load 0x0,0x5
00c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c9 02c7 | | Declare_Variable Any
00ca 00d8 | | Load_Top At_Offset_0
00cb 1c00 | | Execute_Immediate Run_Utility,0x0
00cc 4801 |H | Short_Literal 0x1
00cd 6046 |`F | Indirect_Literal Discrete,0x114,{0x00000000, 0x00001000}
00ce e00b | | Load 0x0,0xb
00cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00d0 035b | [ | Declare_Type Array,Constrained
00d1 0337 | 7 | Declare_Variable Array
00d2 00e2 | | Load_Encached Integer_Cache
00d3 00e2 | | Load_Encached Integer_Cache
00d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d5 BODY_00c0:
00d5 e402 | | Load 0x2,0x2
00d6 0227 | ' | Execute Access,All_Reference
00d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d8 682d |h- | Jump_Zero 0x106
00d9 00db | | Load_Top At_Offset_3
00da e00c | | Load 0x0,0xc
00db 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00dc e00d | | Load 0x0,0xd
00dd 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00de 00ea | | Load_Encached Null_String_Cache
00df e5fe | | Load 0x2,-0x2
00e0 8225 | % | Call 0x1,0x25
00e1 4800 |H | Short_Literal 0x0
00e2 e005 | | Load 0x0,0x5
00e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e4 c403 | | Store 0x2,0x3
00e5 00cf | | Action Mark_Auxiliary
00e6 7813 |x | Jump 0xfa
00e7 00e3 | | Load_Encached Natural_Cache
00e8 e404 | | Load 0x2,0x4
00e9 e403 | | Load 0x2,0x3
00ea e005 | | Load 0x0,0x5
00eb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00ec 00d1 | | Pop_Control Pop_Count_1
00ed 005b | [ | Store_Top Discrete,At_Offset_3
00ee 4801 |H | Short_Literal 0x1
00ef 00db | | Load_Top At_Offset_3
00f0 e404 | | Load 0x2,0x4
00f1 01cf | | Execute Vector,Slice_Read
00f2 e5fd | | Load 0x2,-0x3
00f3 e005 | | Load 0x0,0x5
00f4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00f5 00d9 | | Load_Top At_Offset_1
00f6 00db | | Load_Top At_Offset_3
00f7 0273 | s | Execute Discrete,Plus
00f8 005a | Z | Store_Top Discrete,At_Offset_2
00f9 00c9 | | Action Pop_Auxiliary_Loop
00fa e403 | | Load 0x2,0x3
00fb e005 | | Load 0x0,0x5
00fc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00fd 6fe9 |o | Jump_Zero 0xe7
00fe 00ce | | Action Pop_Auxiliary
00ff 00db | | Load_Top At_Offset_3
0100 e005 | | Load 0x0,0x5
0101 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0102 c403 | | Store 0x2,0x3
0103 00d8 | | Load_Top At_Offset_0
0104 a5fc | | Store_Unchecked 0x2,-0x4
0105 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0106 00e3 | | Load_Encached Natural_Cache
0107 e5fd | | Load 0x2,-0x3
0108 e5fe | | Load 0x2,-0x2
0109 8225 | % | Call 0x1,0x25
010a e402 | | Load 0x2,0x2
010b 0227 | ' | Execute Access,All_Reference
010c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010d e00e | | Load 0x0,0xe
010e e220 | | Load 0x1,0x20
010f 0096 | | Execute Package,Entry
0110 c5fc | | Store 0x2,-0x4
0111 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0112 0000 0000 | | .XXX[0x2]
0114 0000 0000 | | .LITERAL {0x00000000, 0x00001000}
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012e | . | .CONST 0x012e ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0006 | | .CONST 0x0006 ; Number of locals
011b INIT_0118:
011b e5fd | | Load 0x2,-0x3
011c 8224 | $ | Call 0x1,0x24
011d 00db | | Load_Top At_Offset_3
011e 8226 | & | Call 0x1,0x26
011f e005 | | Load 0x0,0x5
0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0121 02c7 | | Declare_Variable Any
0122 00d8 | | Load_Top At_Offset_0
0123 1c00 | | Execute_Immediate Run_Utility,0x0
0124 4801 |H | Short_Literal 0x1
0125 67ee |g | Indirect_Literal Discrete,0x114,{0x00000000, 0x00001000}
0126 e00b | | Load 0x0,0xb
0127 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0128 035b | [ | Declare_Type Array,Constrained
0129 0337 | 7 | Declare_Variable Array
012a 00e2 | | Load_Encached Integer_Cache
012b e5fc | | Load 0x2,-0x4
012c 00e2 | | Load_Encached Integer_Cache
012d 03f1 | | Declare_Variable Discrete,With_Value
012e BODY_0118:
012e e402 | | Load 0x2,0x2
012f 0227 | ' | Execute Access,All_Reference
0130 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0131 6844 |hD | Jump_Zero 0x176
0132 00db | | Load_Top At_Offset_3
0133 e00c | | Load 0x0,0xc
0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0135 e00d | | Load 0x0,0xd
0136 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0137 e00d | | Load 0x0,0xd
0138 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0139 00ea | | Load_Encached Null_String_Cache
013a e5fd | | Load 0x2,-0x3
013b 8225 | % | Call 0x1,0x25
013c 4801 |H | Short_Literal 0x1
013d e005 | | Load 0x0,0x5
013e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
013f c403 | | Store 0x2,0x3
0140 00cf | | Action Mark_Auxiliary
0141 7827 |x' | Jump 0x169
0142 e5fc | | Load 0x2,-0x4
0143 67d0 |g | Indirect_Literal Discrete,0x114,{0x00000000, 0x00001000}
0144 027a | z | Execute Discrete,Less_Equal
0145 6810 |h | Jump_Zero 0x156
0146 00db | | Load_Top At_Offset_3
0147 4801 |H | Short_Literal 0x1
0148 e5fc | | Load 0x2,-0x4
0149 00da | | Load_Top At_Offset_2
014a 035b | [ | Declare_Type Array,Constrained
014b 00d0 | | Action Swap_Control
014c 01cd | | Execute Vector,Slice_Reference
014d 00e3 | | Load_Encached Natural_Cache
014e 00d9 | | Load_Top At_Offset_1
014f e5fe | | Load 0x2,-0x2
0150 e005 | | Load 0x0,0x5
0151 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0152 00d1 | | Pop_Control Pop_Count_1
0153 c405 | | Store 0x2,0x5
0154 00d1 | | Pop_Control Pop_Count_1
0155 7807 |x | Jump 0x15d
0156 00e3 | | Load_Encached Natural_Cache
0157 e404 | | Load 0x2,0x4
0158 e5fe | | Load 0x2,-0x2
0159 e005 | | Load 0x0,0x5
015a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
015b 00d1 | | Pop_Control Pop_Count_1
015c 005b | [ | Store_Top Discrete,At_Offset_3
015d 4801 |H | Short_Literal 0x1
015e 00db | | Load_Top At_Offset_3
015f e404 | | Load 0x2,0x4
0160 01cf | | Execute Vector,Slice_Read
0161 e403 | | Load 0x2,0x3
0162 e005 | | Load 0x0,0x5
0163 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0164 00d9 | | Load_Top At_Offset_1
0165 00db | | Load_Top At_Offset_3
0166 0273 | s | Execute Discrete,Plus
0167 005a | Z | Store_Top Discrete,At_Offset_2
0168 00c9 | | Action Pop_Auxiliary_Loop
0169 e5fc | | Load 0x2,-0x4
016a 0c01 | | Execute_Immediate Greater_Equal,0x1
016b 6804 |h | Jump_Zero 0x170
016c e5fe | | Load 0x2,-0x2
016d e005 | | Load 0x0,0x5
016e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
016f 6fd2 |o | Jump_Zero 0x142
0170 00ce | | Action Pop_Auxiliary
0171 00db | | Load_Top At_Offset_3
0172 e005 | | Load 0x0,0x5
0173 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0174 c403 | | Store 0x2,0x3
0175 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0176 e5fc | | Load 0x2,-0x4
0177 e5fd | | Load 0x2,-0x3
0178 8225 | % | Call 0x1,0x25
0179 e5fe | | Load 0x2,-0x2
017a e402 | | Load 0x2,0x2
017b 0227 | ' | Execute Access,All_Reference
017c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017d e00f | | Load 0x0,0xf
017e e220 | | Load 0x1,0x20
017f 0096 | | Execute Package,Entry
0180 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0198 | | .CONST 0x0198 ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0003 | | .CONST 0x0003 ; Number of locals
018b INIT_0188:
018b 00db | | Load_Top At_Offset_3
018c 8224 | $ | Call 0x1,0x24
018d 00db | | Load_Top At_Offset_3
018e 8226 | & | Call 0x1,0x26
018f e21c | | Load 0x1,0x1c
0190 e008 | | Load 0x0,0x8
0191 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0192 e009 | | Load 0x0,0x9
0193 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0194 039c | | Declare_Variable Heap_Access,By_Allocation
0195 00d8 | | Load_Top At_Offset_0
0196 0217 | | Execute Heap_Access,All_Reference
0197 1c00 | | Execute_Immediate Run_Utility,0x0
0198 BODY_0188:
0198 00d9 | | Load_Top At_Offset_1
0199 0227 | ' | Execute Access,All_Reference
019a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019b 00d9 | | Load_Top At_Offset_1
019c 0217 | | Execute Heap_Access,All_Reference
019d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019e 00d8 | | Load_Top At_Offset_0
019f 0217 | | Execute Heap_Access,All_Reference
01a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a1 6812 |h | Jump_Zero 0x1b4
01a2 00d8 | | Load_Top At_Offset_0
01a3 0219 | | Execute Heap_Access,All_Read
01a4 00d8 | | Load_Top At_Offset_0
01a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a6 e00c | | Load 0x0,0xc
01a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a8 e00d | | Load 0x0,0xd
01a9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01aa 00ea | | Load_Encached Null_String_Cache
01ab e5fe | | Load 0x2,-0x2
01ac 8225 | % | Call 0x1,0x25
01ad 4800 |H | Short_Literal 0x0
01ae e005 | | Load 0x0,0x5
01af 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b0 00d9 | | Load_Top At_Offset_1
01b1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b2 00d1 | | Pop_Control Pop_Count_1
01b3 7814 |x | Jump 0x1c8
01b4 00d8 | | Load_Top At_Offset_0
01b5 0219 | | Execute Heap_Access,All_Read
01b6 e006 | | Load 0x0,0x6
01b7 e220 | | Load 0x1,0x20
01b8 0098 | | Execute Package,Field_Read_Dynamic
01b9 e00c | | Load 0x0,0xc
01ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bb 00ea | | Load_Encached Null_String_Cache
01bc e5fe | | Load 0x2,-0x2
01bd 8225 | % | Call 0x1,0x25
01be 4800 |H | Short_Literal 0x0
01bf e402 | | Load 0x2,0x2
01c0 0227 | ' | Execute Access,All_Reference
01c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c2 e010 | | Load 0x0,0x10
01c3 e220 | | Load 0x1,0x20
01c4 0096 | | Execute Package,Entry
01c5 00d9 | | Load_Top At_Offset_1
01c6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01c7 00d1 | | Pop_Control Pop_Count_1
01c8 00d8 | | Load_Top At_Offset_0
01c9 a5fd | | Store_Unchecked 0x2,-0x3
01ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01cb 0000 0000 | | .BLANK 0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e0 | | .CONST 0x01e0 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0003 | | .CONST 0x0003 ; Number of locals
01d3 INIT_01d0:
01d3 00db | | Load_Top At_Offset_3
01d4 8224 | $ | Call 0x1,0x24
01d5 00db | | Load_Top At_Offset_3
01d6 8226 | & | Call 0x1,0x26
01d7 e21c | | Load 0x1,0x1c
01d8 e008 | | Load 0x0,0x8
01d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01da e009 | | Load 0x0,0x9
01db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01dc 039c | | Declare_Variable Heap_Access,By_Allocation
01dd 00d8 | | Load_Top At_Offset_0
01de 0217 | | Execute Heap_Access,All_Reference
01df 1c00 | | Execute_Immediate Run_Utility,0x0
01e0 BODY_01d0:
01e0 00d9 | | Load_Top At_Offset_1
01e1 0227 | ' | Execute Access,All_Reference
01e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e3 00d9 | | Load_Top At_Offset_1
01e4 0217 | | Execute Heap_Access,All_Reference
01e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e6 00d8 | | Load_Top At_Offset_0
01e7 0217 | | Execute Heap_Access,All_Reference
01e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e9 6812 |h | Jump_Zero 0x1fc
01ea 00d8 | | Load_Top At_Offset_0
01eb 0219 | | Execute Heap_Access,All_Read
01ec 00d8 | | Load_Top At_Offset_0
01ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ee e00c | | Load 0x0,0xc
01ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f0 e00d | | Load 0x0,0xd
01f1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01f2 00ea | | Load_Encached Null_String_Cache
01f3 e5fe | | Load 0x2,-0x2
01f4 8225 | % | Call 0x1,0x25
01f5 4801 |H | Short_Literal 0x1
01f6 e005 | | Load 0x0,0x5
01f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f8 00d9 | | Load_Top At_Offset_1
01f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01fa 00d1 | | Pop_Control Pop_Count_1
01fb 7814 |x | Jump 0x210
01fc 00d8 | | Load_Top At_Offset_0
01fd 0219 | | Execute Heap_Access,All_Read
01fe e006 | | Load 0x0,0x6
01ff e220 | | Load 0x1,0x20
0200 0098 | | Execute Package,Field_Read_Dynamic
0201 e00c | | Load 0x0,0xc
0202 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0203 00ea | | Load_Encached Null_String_Cache
0204 e5fe | | Load 0x2,-0x2
0205 8225 | % | Call 0x1,0x25
0206 4801 |H | Short_Literal 0x1
0207 e402 | | Load 0x2,0x2
0208 0227 | ' | Execute Access,All_Reference
0209 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
020a e010 | | Load 0x0,0x10
020b e220 | | Load 0x1,0x20
020c 0096 | | Execute Package,Entry
020d 00d9 | | Load_Top At_Offset_1
020e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
020f 00d1 | | Pop_Control Pop_Count_1
0210 00d8 | | Load_Top At_Offset_0
0211 a5fd | | Store_Unchecked 0x2,-0x3
0212 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 0217 | | Execute Heap_Access,All_Reference
021d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021e 680a |h | Jump_Zero 0x229
021f 00da | | Load_Top At_Offset_2
0220 0219 | | Execute Heap_Access,All_Read
0221 00d8 | | Load_Top At_Offset_0
0222 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0223 e005 | | Load 0x0,0x5
0224 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0225 00d9 | | Load_Top At_Offset_1
0226 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0227 00d1 | | Pop_Control Pop_Count_1
0228 780a |x | Jump 0x233
0229 00da | | Load_Top At_Offset_2
022a 0219 | | Execute Heap_Access,All_Read
022b 00d8 | | Load_Top At_Offset_0
022c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
022d e011 | | Load 0x0,0x11
022e e220 | | Load 0x1,0x20
022f 0096 | | Execute Package,Entry
0230 00d9 | | Load_Top At_Offset_1
0231 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0232 00d1 | | Pop_Control Pop_Count_1
0233 e21c | | Load 0x1,0x1c
0234 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c 0217 | | Execute Heap_Access,All_Reference
023d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023e 6806 |h | Jump_Zero 0x245
023f 00da | | Load_Top At_Offset_2
0240 0217 | | Execute Heap_Access,All_Reference
0241 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0242 e005 | | Load 0x0,0x5
0243 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0244 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0245 00da | | Load_Top At_Offset_2
0246 0217 | | Execute Heap_Access,All_Reference
0247 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0248 e012 | | Load 0x0,0x12
0249 e220 | | Load 0x1,0x20
024a 0096 | | Execute Package,Entry
024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 0217 | | Execute Heap_Access,All_Reference
0255 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0256 6806 |h | Jump_Zero 0x25d
0257 00da | | Load_Top At_Offset_2
0258 0217 | | Execute Heap_Access,All_Reference
0259 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025a e005 | | Load 0x0,0x5
025b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025d 00da | | Load_Top At_Offset_2
025e 0217 | | Execute Heap_Access,All_Reference
025f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0260 e013 | | Load 0x0,0x13
0261 e220 | | Load 0x1,0x20
0262 0096 | | Execute Package,Entry
0263 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 0217 | | Execute Heap_Access,All_Reference
026d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026e 6806 |h | Jump_Zero 0x275
026f 480a |H | Short_Literal 0xa
0270 00db | | Load_Top At_Offset_3
0271 0217 | | Execute Heap_Access,All_Reference
0272 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0273 8227 | ' | Call 0x1,0x27
0274 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0275 480a |H | Short_Literal 0xa
0276 00db | | Load_Top At_Offset_3
0277 0217 | | Execute Heap_Access,All_Reference
0278 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0279 e014 | | Load 0x0,0x14
027a e220 | | Load 0x1,0x20
027b 0096 | | Execute Package,Entry
027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027d 0000 0000 | | .XXX[0x3]
027f 0000 | |
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 00da | | Load_Top At_Offset_2
0284 0217 | | Execute Heap_Access,All_Reference
0285 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0286 680a |h | Jump_Zero 0x291
0287 00e3 | | Load_Encached Natural_Cache
0288 e5fe | | Load 0x2,-0x2
0289 e5ff | | Load 0x2,-0x1
028a 0217 | | Execute Heap_Access,All_Reference
028b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028c e005 | | Load 0x0,0x5
028d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
028e 00d1 | | Pop_Control Pop_Count_1
028f c5fd | | Store 0x2,-0x3
0290 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0291 00e3 | | Load_Encached Natural_Cache
0292 e5fe | | Load 0x2,-0x2
0293 e5ff | | Load 0x2,-0x1
0294 0217 | | Execute Heap_Access,All_Reference
0295 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0296 e015 | | Load 0x0,0x15
0297 e220 | | Load 0x1,0x20
0298 0096 | | Execute Package,Entry
0299 00d1 | | Pop_Control Pop_Count_1
029a c5fd | | Store 0x2,-0x3
029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 0217 | | Execute Heap_Access,All_Reference
02a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a6 680a |h | Jump_Zero 0x2b1
02a7 00e3 | | Load_Encached Natural_Cache
02a8 e5fe | | Load 0x2,-0x2
02a9 e5ff | | Load 0x2,-0x1
02aa 0217 | | Execute Heap_Access,All_Reference
02ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ac e005 | | Load 0x0,0x5
02ad 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02ae 00d1 | | Pop_Control Pop_Count_1
02af c5fd | | Store 0x2,-0x3
02b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b1 00e3 | | Load_Encached Natural_Cache
02b2 e5fe | | Load 0x2,-0x2
02b3 e5ff | | Load 0x2,-0x1
02b4 0217 | | Execute Heap_Access,All_Reference
02b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b6 e016 | | Load 0x0,0x16
02b7 e220 | | Load 0x1,0x20
02b8 0096 | | Execute Package,Entry
02b9 00d1 | | Pop_Control Pop_Count_1
02ba c5fd | | Store 0x2,-0x3
02bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 0217 | | Execute Heap_Access,All_Reference
02c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c6 6807 |h | Jump_Zero 0x2ce
02c7 00db | | Load_Top At_Offset_3
02c8 00db | | Load_Top At_Offset_3
02c9 0217 | | Execute Heap_Access,All_Reference
02ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02cb e005 | | Load 0x0,0x5
02cc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ce 00db | | Load_Top At_Offset_3
02cf 00db | | Load_Top At_Offset_3
02d0 0217 | | Execute Heap_Access,All_Reference
02d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d2 e017 | | Load 0x0,0x17
02d3 e220 | | Load 0x1,0x20
02d4 0096 | | Execute Package,Entry
02d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00da | | Load_Top At_Offset_2
02dc 0217 | | Execute Heap_Access,All_Reference
02dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02de 6807 |h | Jump_Zero 0x2e6
02df 00db | | Load_Top At_Offset_3
02e0 00db | | Load_Top At_Offset_3
02e1 0217 | | Execute Heap_Access,All_Reference
02e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e3 e005 | | Load 0x0,0x5
02e4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e6 00db | | Load_Top At_Offset_3
02e7 00db | | Load_Top At_Offset_3
02e8 0217 | | Execute Heap_Access,All_Reference
02e9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ea e018 | | Load 0x0,0x18
02eb e220 | | Load 0x1,0x20
02ec 0096 | | Execute Package,Entry
02ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e5fd | | Load 0x2,-0x3
02f4 e019 | | Load 0x0,0x19
02f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f6 0119 | | Execute Any,Check_In_Formal_Type
02f7 e5fe | | Load 0x2,-0x2
02f8 e5ff | | Load 0x2,-0x1
02f9 e01a | | Load 0x0,0x1a
02fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02fc 0000 0000 | | .BLANK 0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 4601 |F | Jump_Case 0x2
0304 7801 |x | Jump 0x306 ; case 0x0
0305 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0306 00da | | Load_Top At_Offset_2
0307 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0308 0125 | % | Execute Any,Set_Constraint
0309 00da | | Load_Top At_Offset_2
030a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
030b 1c00 | | Execute_Immediate Run_Utility,0x0
030c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 01dd | | Execute Vector,First
0315 00db | | Load_Top At_Offset_3
0316 01d7 | | Execute Vector,Field_Read
0317 0f3a | : | Execute_Immediate Equal,0x3a
0318 6803 |h | Jump_Zero 0x31c
0319 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "<MV>"
031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031c 00da | | Load_Top At_Offset_2
031d e00d | | Load 0x0,0xd
031e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
031f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0320 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 01dd | | Execute Vector,First
032d 00db | | Load_Top At_Offset_3
032e 01d7 | | Execute Vector,Field_Read
032f 0f3a | : | Execute_Immediate Equal,0x3a
0330 6802 |h | Jump_Zero 0x333
0331 00da | | Load_Top At_Offset_2
0332 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0333 00da | | Load_Top At_Offset_2
0334 e00d | | Load 0x0,0xd
0335 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0336 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033e | > | .CONST 0x033e ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0002 | | .CONST 0x0002 ; Number of locals
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 0217 | | Execute Heap_Access,All_Reference
033d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
033e BODY_0338:
033e 00cf | | Action Mark_Auxiliary
033f 00d9 | | Load_Top At_Offset_1
0340 702f |p/ | Jump_Nonzero 0x370
0341 e222 | " | Load 0x1,0x22
0342 03bc | | Declare_Variable Access,By_Allocation
0343 003a | : | Store_Top Access,At_Offset_2
0344 e5ff | | Load 0x2,-0x1
0345 0217 | | Execute Heap_Access,All_Reference
0346 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0347 00da | | Load_Top At_Offset_2
0348 0227 | ' | Execute Access,All_Reference
0349 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
034a 00d9 | | Load_Top At_Offset_1
034b e5ff | | Load 0x2,-0x1
034c 0217 | | Execute Heap_Access,All_Reference
034d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
034e e5fe | | Load 0x2,-0x2
034f e221 | ! | Load 0x1,0x21
0350 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0351 00da | | Load_Top At_Offset_2
0352 0227 | ' | Execute Access,All_Reference
0353 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0354 e5fe | | Load 0x2,-0x2
0355 01db | | Execute Vector,Length
0356 0f00 | | Execute_Immediate Equal,0x0
0357 00da | | Load_Top At_Offset_2
0358 0227 | ' | Execute Access,All_Reference
0359 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
035a 00d9 | | Load_Top At_Offset_1
035b 0227 | ' | Execute Access,All_Reference
035c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
035d 7010 |p | Jump_Nonzero 0x36e
035e 00d9 | | Load_Top At_Offset_1
035f 0229 | ) | Execute Access,All_Read
0360 00d8 | | Load_Top At_Offset_0
0361 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0362 e019 | | Load 0x0,0x19
0363 180e | | Execute Package,Field_Execute,Field_Number 0xe
0364 00ea | | Load_Encached Null_String_Cache
0365 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "operator"
0367 e5fe | | Load 0x2,-0x2
0368 e01b | | Load 0x0,0x1b
0369 e220 | | Load 0x1,0x20
036a 0096 | | Execute Package,Entry
036b 00d9 | | Load_Top At_Offset_1
036c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
036d 00d1 | | Pop_Control Pop_Count_1
036e 00d9 | | Load_Top At_Offset_1
036f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0370 00d9 | | Load_Top At_Offset_1
0371 0227 | ' | Execute Access,All_Reference
0372 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0373 0227 | ' | Execute Access,All_Reference
0374 e5fe | | Load 0x2,-0x2
0375 01df | | Execute Vector,Equal
0376 6802 |h | Jump_Zero 0x379
0377 00d9 | | Load_Top At_Offset_1
0378 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0379 00d9 | | Load_Top At_Offset_1
037a 0227 | ' | Execute Access,All_Reference
037b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
037c 003a | : | Store_Top Access,At_Offset_2
037d 00c9 | | Action Pop_Auxiliary_Loop
037e 7fc0 | | Jump 0x33f
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038b | | .CONST 0x038b ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0003 | | .CONST 0x0003 ; Number of locals
0383 INIT_0380:
0383 e00b | | Load 0x0,0xb
0384 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0385 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0386 4801 |H | Short_Literal 0x1
0387 4a00 |J | Short_Literal 0x200
0388 00e9 | | Load_Encached String_Cache
0389 035b | [ | Declare_Type Array,Constrained
038a 0337 | 7 | Declare_Variable Array
038b BODY_0380:
038b 00cf | | Action Mark_Auxiliary
038c 00d9 | | Load_Top At_Offset_1
038d 01d9 | | Execute Vector,Reverse_Bounds
038e 0007 | | Action Break_Optional
038f e5ff | | Load 0x2,-0x1
0390 e005 | | Load 0x0,0x5
0391 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0392 6808 |h | Jump_Zero 0x39b
0393 4801 |H | Short_Literal 0x1
0394 00d9 | | Load_Top At_Offset_1
0395 0aff | | Execute_Immediate Plus,-0x1
0396 e403 | | Load 0x2,0x3
0397 01cf | | Execute Vector,Slice_Read
0398 00e9 | | Load_Encached String_Cache
0399 01c6 | | Execute Vector,Convert_To_Formal
039a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
039b e005 | | Load 0x0,0x5
039c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
039d e5ff | | Load 0x2,-0x1
039e e005 | | Load 0x0,0x5
039f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03a0 c402 | | Store 0x2,0x2
03a1 e402 | | Load 0x2,0x2
03a2 e5fe | | Load 0x2,-0x2
03a3 027f | | Execute Discrete,Equal
03a4 6808 |h | Jump_Zero 0x3ad
03a5 4801 |H | Short_Literal 0x1
03a6 00d9 | | Load_Top At_Offset_1
03a7 0aff | | Execute_Immediate Plus,-0x1
03a8 e403 | | Load 0x2,0x3
03a9 01cf | | Execute Vector,Slice_Read
03aa 00e9 | | Load_Encached String_Cache
03ab 01c6 | | Execute Vector,Convert_To_Formal
03ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ad e402 | | Load 0x2,0x2
03ae 00d8 | | Load_Top At_Offset_0
03af 00e8 | | Load_Encached Character_Cache
03b0 0260 | ` | Execute Discrete,In_Type
03b1 7001 |p | Jump_Nonzero 0x3b3
03b2 0801 | | Execute_Immediate Raise,0x1
03b3 00d9 | | Load_Top At_Offset_1
03b4 e403 | | Load 0x2,0x3
03b5 01d6 | | Execute Vector,Field_Write
03b6 00c8 | | Action Pop_Auxiliary_Range
03b7 3fd7 |? | Loop_Increasing 0x38f
03b8 00ce | | Action Pop_Auxiliary
03b9 00d8 | | Load_Top At_Offset_0
03ba 480a |H | Short_Literal 0xa
03bb e5ff | | Load 0x2,-0x1
03bc 8227 | ' | Call 0x1,0x27
03bd 01cc | | Execute Vector,Catenate
03be 00e9 | | Load_Encached String_Cache
03bf 01c6 | | Execute Vector,Convert_To_Formal
03c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03c1 ; --------------------------------------------------------------------------------------
03c1 ; STRING TABLE
03c1 ; --------------------------------------------------------------------------------------
03c1 0006 | | .STRTAB 0x0006->0x03c4 ; "<MV>"
03c2 0008 | | .STRTAB 0x0008->0x03c6 ; "operator"
03c3 000e | | .STREND 0x000e->0x03ca
03c4 3c4d 563e |<MV>| .STRTAB_STRINGS
03ca 0000 0000 | | .BLANK 0000[0x6]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug Table
03d0 ; --------------------------------------------------------------------------------------
03d0 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34be,0x0000,0x0001,0x0000
03d6 403a b7e4 |@: | .XXX[0x26]
03d8 0000 403a | @:|
03da b804 0000 | |
03dc 403a b814 |@: |
03de 0000 403a | @:|
03e0 b824 0000 | $ |
03e2 403a b834 |@: 4|
03e4 0000 403a | @:|
03e6 b844 0000 | D |
03e8 403a b854 |@: T|
03ea 0000 403a | @:|
03ec b864 0000 | d |
03ee 403a b874 |@: t|
03f0 0000 403a | @:|
03f2 b884 0000 | |
03f4 403a b894 |@: |
03f6 0000 403a | @:|
03f8 b8a4 0000 | |
03fa 403a b8b0 |@: |
03fc 0000 0000 | | .BLANK 0000[0x4]