|
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_0bf8df
└─⟦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 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 ec28 8080 | ( | .XXX[0x32]
03d0 8080 b4b4 | |
03d2 8149 95d1 | I |
03d4 d5c9 b9cc | |
03d6 81d1 a194 | |
03d8 81b1 a5b9 | |
03da 9481 b9d5 | |
03dc b589 95c8 | |
03de 81bd b881 | |
03e0 dda1 a58d | |
03e2 a081 d1a1 | |
03e4 9481 95b1 | |
03e6 95b5 95b9 | |
03e8 d081 c995 | |
03ea cda5 9195 | |
03ec ccb8 2880 | ( |
03ee 8080 80b4 | |
03f0 b481 0481 | |
03f2 b9a5 b081 | |
03f4 95b1 95b5 | |
03f6 95b9 d081 | |
03f8 c995 d1d5 | |
03fa c9b9 cc80 | |
03fc c0b8 2880 | ( |
03fe 8080 80b4 | |