|
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_0d2ce3
└─⟦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 03d8 | | .CONST 0x03d8 ; 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 0082 | | .CONST 0x0082 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
000c 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000e 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0010 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0015 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0017 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0019 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
001b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
001d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
001f 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0021 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0023 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0025 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0027 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0029 4803 |H | Short_Literal 0x3
002a 032a | * | Declare_Type Record,Incomplete
002b 00d8 | | Load_Top At_Offset_0
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d e210 | | Load 0x1,0x10
002e 03a3 | | Complete_Type Heap_Access,By_Defining
002f 4801 |H | Short_Literal 0x1
0030 032a | * | Declare_Type Record,Incomplete
0031 00d8 | | Load_Top At_Offset_0
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 e20d | | Load 0x1,0xd
0034 03a3 | | Complete_Type Heap_Access,By_Defining
0035 00bf | | Action Accept_Activation
0036 e001 | | Load 0x0,0x1
0037 e002 | | Load 0x0,0x2
0038 e003 | | Load 0x0,0x3
0039 1913 | | Execute Package,Field_Reference,Field_Number 0x13
003a e004 | | Load 0x0,0x4
003b 0387 | | Declare_Variable Package
003c 00d8 | | Load_Top At_Offset_0
003d 020f | | Execute Module,Activate
003e 00e9 | | Load_Encached String_Cache
003f 02a0 | | Declare_Subprogram Null_Subprogram
0040 4818 |H | Short_Literal 0x18
0041 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0042 00e1 | | Load_Encached Boolean_Cache
0043 e005 | | Load 0x0,0x5
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 00db | | Load_Top At_Offset_3
0046 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0047 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
0049 e21d | | Load 0x1,0x1d
004a 0326 | & | Complete_Type Record,By_Defining
004b 4804 |H | Short_Literal 0x4
004c 032a | * | Declare_Type Record,Incomplete
004d 00d8 | | Load_Top At_Offset_0
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4818 |H | Short_Literal 0x18
0050 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0051 00e1 | | Load_Encached Boolean_Cache
0052 e21f | | Load 0x1,0x1f
0053 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0054 e220 | | Load 0x1,0x20
0055 00db | | Load_Top At_Offset_3
0056 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0058 e221 | ! | Load 0x1,0x21
0059 0326 | & | Complete_Type Record,By_Defining
005a 00d8 | | Load_Top At_Offset_0
005b 02a0 | | Declare_Subprogram Null_Subprogram
005c e21e | | Load 0x1,0x1e
005d 0326 | & | Complete_Type Record,By_Defining
005e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005f 00c7 | | Action Elaborate_Subprogram
0060 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0061 00c7 | | Action Elaborate_Subprogram
0062 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0064 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0066 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0068 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0069 00c7 | | Action Elaborate_Subprogram
006a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006b 00c7 | | Action Elaborate_Subprogram
006c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006d 00c7 | | Action Elaborate_Subprogram
006e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006f 00c7 | | Action Elaborate_Subprogram
0070 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0071 00c7 | | Action Elaborate_Subprogram
0072 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0073 00c7 | | Action Elaborate_Subprogram
0074 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
0076 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0077 00c7 | | Action Elaborate_Subprogram
0078 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007f 00c7 | | Action Elaborate_Subprogram
0080 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0081 00c7 | | Action Elaborate_Subprogram
0082 BODY_0008:
0082 00bc | | Action Signal_Activated
0083 00bb | | Action Signal_Completion
0084 0000 0000 | | .BLANK 0000[0x4]
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 e20d | | Load 0x1,0xd
008c e006 | | Load 0x0,0x6
008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008e e007 | | Load 0x0,0x7
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 0000 | | .BLANK 0000[0x5]
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 7815 |x | Jump 0xb5
00a0 00d9 | | Load_Top At_Offset_1
00a1 0227 | ' | Execute Access,All_Reference
00a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a3 700c |p | Jump_Nonzero 0xb0
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 e21f | | Load 0x1,0x1f
00a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00aa 0216 | | Execute Heap_Access,Convert
00ab e21f | | Load 0x1,0x1f
00ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ad 00d9 | | Load_Top At_Offset_1
00ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00af 00d1 | | Pop_Control Pop_Count_1
00b0 00d9 | | Load_Top At_Offset_1
00b1 0227 | ' | Execute Access,All_Reference
00b2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00b3 003a | : | Store_Top Access,At_Offset_2
00b4 00c9 | | Action Pop_Auxiliary_Loop
00b5 00d9 | | Load_Top At_Offset_1
00b6 77e9 |w | Jump_Nonzero 0xa0
00b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 8223 | # | Call 0x1,0x23
00bd 00db | | Load_Top At_Offset_3
00be 8225 | % | Call 0x1,0x25
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 e008 | | Load 0x0,0x8
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 e009 | | Load 0x0,0x9
00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d4 e00a | | Load 0x0,0xa
00d5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d6 00ea | | Load_Encached Null_String_Cache
00d7 e5fe | | Load 0x2,-0x2
00d8 8224 | $ | Call 0x1,0x24
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 8224 | $ | Call 0x1,0x24
0102 e402 | | Load 0x2,0x2
0103 0227 | ' | Execute Access,All_Reference
0104 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0105 e21f | | Load 0x1,0x1f
0106 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0107 c5fc | | Store 0x2,-0x4
0108 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0109 0000 0000 | | .XXX[0x3]
010b 0000 | |
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 8223 | # | Call 0x1,0x23
0115 00db | | Load_Top At_Offset_3
0116 8225 | % | Call 0x1,0x25
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 e008 | | Load 0x0,0x8
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 e009 | | Load 0x0,0x9
012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012d e00a | | Load 0x0,0xa
012e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
012f e00a | | Load 0x0,0xa
0130 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0131 00ea | | Load_Encached Null_String_Cache
0132 e5fd | | Load 0x2,-0x3
0133 8224 | $ | Call 0x1,0x24
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 8224 | $ | Call 0x1,0x24
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 e21f | | Load 0x1,0x1f
0176 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0177 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0188 | | .CONST 0x0188 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3
017c 8223 | # | Call 0x1,0x23
017d 00db | | Load_Top At_Offset_3
017e 8225 | % | Call 0x1,0x25
017f e210 | | Load 0x1,0x10
0180 e006 | | Load 0x0,0x6
0181 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0182 e007 | | Load 0x0,0x7
0183 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0184 039c | | Declare_Variable Heap_Access,By_Allocation
0185 00d8 | | Load_Top At_Offset_0
0186 0217 | | Execute Heap_Access,All_Reference
0187 1c00 | | Execute_Immediate Run_Utility,0x0
0188 BODY_0178:
0188 00d9 | | Load_Top At_Offset_1
0189 0227 | ' | Execute Access,All_Reference
018a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018b 00d9 | | Load_Top At_Offset_1
018c 0217 | | Execute Heap_Access,All_Reference
018d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
018e 00d8 | | Load_Top At_Offset_0
018f 0217 | | Execute Heap_Access,All_Reference
0190 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0191 6812 |h | Jump_Zero 0x1a4
0192 00d8 | | Load_Top At_Offset_0
0193 0219 | | Execute Heap_Access,All_Read
0194 00d8 | | Load_Top At_Offset_0
0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0196 e009 | | Load 0x0,0x9
0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0198 e00a | | Load 0x0,0xa
0199 181e | | Execute Package,Field_Execute,Field_Number 0x1e
019a 00ea | | Load_Encached Null_String_Cache
019b e5fe | | Load 0x2,-0x2
019c 8224 | $ | Call 0x1,0x24
019d 4800 |H | Short_Literal 0x0
019e e005 | | Load 0x0,0x5
019f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a0 00d9 | | Load_Top At_Offset_1
01a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a2 00d1 | | Pop_Control Pop_Count_1
01a3 7812 |x | Jump 0x1b6
01a4 00d8 | | Load_Top At_Offset_0
01a5 0219 | | Execute Heap_Access,All_Read
01a6 e21f | | Load 0x1,0x1f
01a7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a8 e009 | | Load 0x0,0x9
01a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01aa 00ea | | Load_Encached Null_String_Cache
01ab e5fe | | Load 0x2,-0x2
01ac 8224 | $ | Call 0x1,0x24
01ad 4800 |H | Short_Literal 0x0
01ae e402 | | Load 0x2,0x2
01af 0227 | ' | Execute Access,All_Reference
01b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b1 e21f | | Load 0x1,0x1f
01b2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b3 00d9 | | Load_Top At_Offset_1
01b4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b5 00d1 | | Pop_Control Pop_Count_1
01b6 00d8 | | Load_Top At_Offset_0
01b7 a5fd | | Store_Unchecked 0x2,-0x3
01b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01d0 | | .CONST 0x01d0 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 00db | | Load_Top At_Offset_3
01c4 8223 | # | Call 0x1,0x23
01c5 00db | | Load_Top At_Offset_3
01c6 8225 | % | Call 0x1,0x25
01c7 e210 | | Load 0x1,0x10
01c8 e006 | | Load 0x0,0x6
01c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ca e007 | | Load 0x0,0x7
01cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01cc 039c | | Declare_Variable Heap_Access,By_Allocation
01cd 00d8 | | Load_Top At_Offset_0
01ce 0217 | | Execute Heap_Access,All_Reference
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 BODY_01c0:
01d0 00d9 | | Load_Top At_Offset_1
01d1 0227 | ' | Execute Access,All_Reference
01d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d3 00d9 | | Load_Top At_Offset_1
01d4 0217 | | Execute Heap_Access,All_Reference
01d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d6 00d8 | | Load_Top At_Offset_0
01d7 0217 | | Execute Heap_Access,All_Reference
01d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d9 6812 |h | Jump_Zero 0x1ec
01da 00d8 | | Load_Top At_Offset_0
01db 0219 | | Execute Heap_Access,All_Read
01dc 00d8 | | Load_Top At_Offset_0
01dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01de e009 | | Load 0x0,0x9
01df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e0 e00a | | Load 0x0,0xa
01e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01e2 00ea | | Load_Encached Null_String_Cache
01e3 e5fe | | Load 0x2,-0x2
01e4 8224 | $ | Call 0x1,0x24
01e5 4801 |H | Short_Literal 0x1
01e6 e005 | | Load 0x0,0x5
01e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e8 00d9 | | Load_Top At_Offset_1
01e9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ea 00d1 | | Pop_Control Pop_Count_1
01eb 7812 |x | Jump 0x1fe
01ec 00d8 | | Load_Top At_Offset_0
01ed 0219 | | Execute Heap_Access,All_Read
01ee e21f | | Load 0x1,0x1f
01ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f0 e009 | | Load 0x0,0x9
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 00ea | | Load_Encached Null_String_Cache
01f3 e5fe | | Load 0x2,-0x2
01f4 8224 | $ | Call 0x1,0x24
01f5 4801 |H | Short_Literal 0x1
01f6 e402 | | Load 0x2,0x2
01f7 0227 | ' | Execute Access,All_Reference
01f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f9 e21f | | Load 0x1,0x1f
01fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01fb 00d9 | | Load_Top At_Offset_1
01fc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01fd 00d1 | | Pop_Control Pop_Count_1
01fe 00d8 | | Load_Top At_Offset_0
01ff a5fd | | Store_Unchecked 0x2,-0x3
0200 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 0217 | | Execute Heap_Access,All_Reference
020d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
020e 680a |h | Jump_Zero 0x219
020f 00da | | Load_Top At_Offset_2
0210 0219 | | Execute Heap_Access,All_Read
0211 00d8 | | Load_Top At_Offset_0
0212 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0213 e005 | | Load 0x0,0x5
0214 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0215 00d9 | | Load_Top At_Offset_1
0216 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0217 00d1 | | Pop_Control Pop_Count_1
0218 780c |x | Jump 0x225
0219 00da | | Load_Top At_Offset_2
021a 0219 | | Execute Heap_Access,All_Read
021b 00d8 | | Load_Top At_Offset_0
021c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
021d e21f | | Load 0x1,0x1f
021e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
021f 0216 | | Execute Heap_Access,Convert
0220 e21f | | Load 0x1,0x1f
0221 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0222 00d9 | | Load_Top At_Offset_1
0223 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0224 00d1 | | Pop_Control Pop_Count_1
0225 e210 | | Load 0x1,0x10
0226 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0227 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c 0217 | | Execute Heap_Access,All_Reference
022d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022e 6806 |h | Jump_Zero 0x235
022f 00da | | Load_Top At_Offset_2
0230 0217 | | Execute Heap_Access,All_Reference
0231 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0232 e005 | | Load 0x0,0x5
0233 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0235 00da | | Load_Top At_Offset_2
0236 0217 | | Execute Heap_Access,All_Reference
0237 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0238 e21f | | Load 0x1,0x1f
0239 181d | | Execute Package,Field_Execute,Field_Number 0x1d
023a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 0217 | | Execute Heap_Access,All_Reference
0245 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0246 6806 |h | Jump_Zero 0x24d
0247 00da | | Load_Top At_Offset_2
0248 0217 | | Execute Heap_Access,All_Reference
0249 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024a e005 | | Load 0x0,0x5
024b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024d 00da | | Load_Top At_Offset_2
024e 0217 | | Execute Heap_Access,All_Reference
024f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0250 e21f | | Load 0x1,0x1f
0251 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 0217 | | Execute Heap_Access,All_Reference
025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025e 6806 |h | Jump_Zero 0x265
025f 480a |H | Short_Literal 0xa
0260 00db | | Load_Top At_Offset_3
0261 0217 | | Execute Heap_Access,All_Reference
0262 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0263 8226 | & | Call 0x1,0x26
0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0265 480a |H | Short_Literal 0xa
0266 00db | | Load_Top At_Offset_3
0267 0217 | | Execute Heap_Access,All_Reference
0268 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0269 e21f | | Load 0x1,0x1f
026a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 0217 | | Execute Heap_Access,All_Reference
0275 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0276 680a |h | Jump_Zero 0x281
0277 00e3 | | Load_Encached Natural_Cache
0278 e5fe | | Load 0x2,-0x2
0279 e5ff | | Load 0x2,-0x1
027a 0217 | | Execute Heap_Access,All_Reference
027b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027c e005 | | Load 0x0,0x5
027d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
027e 00d1 | | Pop_Control Pop_Count_1
027f c5fd | | Store 0x2,-0x3
0280 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0281 00e3 | | Load_Encached Natural_Cache
0282 e5fe | | Load 0x2,-0x2
0283 e5ff | | Load 0x2,-0x1
0284 0217 | | Execute Heap_Access,All_Reference
0285 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0286 e21f | | Load 0x1,0x1f
0287 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0288 00d1 | | Pop_Control Pop_Count_1
0289 c5fd | | Store 0x2,-0x3
028a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028b 0000 0000 | | .BLANK 0000[0x5]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 0217 | | Execute Heap_Access,All_Reference
0295 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0296 680a |h | Jump_Zero 0x2a1
0297 00e3 | | Load_Encached Natural_Cache
0298 e5fe | | Load 0x2,-0x2
0299 e5ff | | Load 0x2,-0x1
029a 0217 | | Execute Heap_Access,All_Reference
029b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
029c e005 | | Load 0x0,0x5
029d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
029e 00d1 | | Pop_Control Pop_Count_1
029f c5fd | | Store 0x2,-0x3
02a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a1 00e3 | | Load_Encached Natural_Cache
02a2 e5fe | | Load 0x2,-0x2
02a3 e5ff | | Load 0x2,-0x1
02a4 0217 | | Execute Heap_Access,All_Reference
02a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a6 e21f | | Load 0x1,0x1f
02a7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02a8 00d1 | | Pop_Control Pop_Count_1
02a9 c5fd | | Store 0x2,-0x3
02aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 0217 | | Execute Heap_Access,All_Reference
02b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b6 6807 |h | Jump_Zero 0x2be
02b7 00db | | Load_Top At_Offset_3
02b8 00db | | Load_Top At_Offset_3
02b9 0217 | | Execute Heap_Access,All_Reference
02ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02bb e005 | | Load 0x0,0x5
02bc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02be 00db | | Load_Top At_Offset_3
02bf 00db | | Load_Top At_Offset_3
02c0 0217 | | Execute Heap_Access,All_Reference
02c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02c2 e21f | | Load 0x1,0x1f
02c3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c5 0000 0000 | | .XXX[0x3]
02c7 0000 | |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 0217 | | Execute Heap_Access,All_Reference
02cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ce 6807 |h | Jump_Zero 0x2d6
02cf 00db | | Load_Top At_Offset_3
02d0 00db | | Load_Top At_Offset_3
02d1 0217 | | Execute Heap_Access,All_Reference
02d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d3 e005 | | Load 0x0,0x5
02d4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d6 00db | | Load_Top At_Offset_3
02d7 00db | | Load_Top At_Offset_3
02d8 0217 | | Execute Heap_Access,All_Reference
02d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02da e21f | | Load 0x1,0x1f
02db 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02dd 0000 0000 | | .XXX[0x3]
02df 0000 | |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 4608 |F | Jump_Case 0x9
02e4 7808 |x | Jump 0x2ed ; case 0x0
02e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02e6 7810 |x | Jump 0x2f7 ; case 0x2
02e7 780f |x | Jump 0x2f7 ; case 0x3
02e8 780e |x | Jump 0x2f7 ; case 0x4
02e9 780d |x | Jump 0x2f7 ; case 0x5
02ea 780c |x | Jump 0x2f7 ; case 0x6
02eb 780b |x | Jump 0x2f7 ; case 0x7
02ec 780a |x | Jump 0x2f7 ; case 0x8
02ed 00da | | Load_Top At_Offset_2
02ee 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02ef 0125 | % | Execute Any,Set_Constraint
02f0 00da | | Load_Top At_Offset_2
02f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02f2 1c00 | | Execute_Immediate Run_Utility,0x0
02f3 00da | | Load_Top At_Offset_2
02f4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02f5 1c00 | | Execute_Immediate Run_Utility,0x0
02f6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02f7 0869 | i | Execute_Immediate Raise,0x69
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 4608 |F | Jump_Case 0x9
02fc 7808 |x | Jump 0x305 ; case 0x0
02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02fe 780a |x | Jump 0x309 ; case 0x2
02ff 7809 |x | Jump 0x309 ; case 0x3
0300 7808 |x | Jump 0x309 ; case 0x4
0301 7807 |x | Jump 0x309 ; case 0x5
0302 7806 |x | Jump 0x309 ; case 0x6
0303 7805 |x | Jump 0x309 ; case 0x7
0304 7804 |x | Jump 0x309 ; case 0x8
0305 00da | | Load_Top At_Offset_2
0306 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0307 1c00 | | Execute_Immediate Run_Utility,0x0
0308 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0309 0869 | i | Execute_Immediate Raise,0x69
030a 0000 0000 | | .BLANK 0000[0x6]
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 03c9 | | Action Push_String_Extended,0x3c9 ; "<MV>"
031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031c 00da | | Load_Top At_Offset_2
031d e00a | | Load 0x0,0xa
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 e00a | | Load 0x0,0xa
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 7034 |p4 | Jump_Nonzero 0x375
0341 e222 | " | Load 0x1,0x22
0342 03bc | | Declare_Variable Access,By_Allocation
0343 00d8 | | Load_Top At_Offset_0
0344 0227 | ' | Execute Access,All_Reference
0345 1c00 | | Execute_Immediate Run_Utility,0x0
0346 003a | : | Store_Top Access,At_Offset_2
0347 e5ff | | Load 0x2,-0x1
0348 0217 | | Execute Heap_Access,All_Reference
0349 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034a 00da | | Load_Top At_Offset_2
034b 0227 | ' | Execute Access,All_Reference
034c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
034d 00d9 | | Load_Top At_Offset_1
034e e5ff | | Load 0x2,-0x1
034f 0217 | | Execute Heap_Access,All_Reference
0350 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0351 e5fe | | Load 0x2,-0x2
0352 e220 | | Load 0x1,0x20
0353 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0354 00da | | Load_Top At_Offset_2
0355 0227 | ' | Execute Access,All_Reference
0356 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0357 e5fe | | Load 0x2,-0x2
0358 01db | | Execute Vector,Length
0359 0f00 | | Execute_Immediate Equal,0x0
035a 00da | | Load_Top At_Offset_2
035b 0227 | ' | Execute Access,All_Reference
035c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
035d 00d9 | | Load_Top At_Offset_1
035e 0227 | ' | Execute Access,All_Reference
035f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0360 7012 |p | Jump_Nonzero 0x373
0361 00d9 | | Load_Top At_Offset_1
0362 0229 | ) | Execute Access,All_Read
0363 00d8 | | Load_Top At_Offset_0
0364 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0365 e21f | | Load 0x1,0x1f
0366 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0367 0216 | | Execute Heap_Access,Convert
0368 e00b | | Load 0x0,0xb
0369 180e | | Execute Package,Field_Execute,Field_Number 0xe
036a 00ea | | Load_Encached Null_String_Cache
036b 0092 03ca | | Action Push_String_Extended,0x3ca ; "operator"
036d e5fe | | Load 0x2,-0x2
036e e21f | | Load 0x1,0x1f
036f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0370 00d9 | | Load_Top At_Offset_1
0371 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0372 00d1 | | Pop_Control Pop_Count_1
0373 00d9 | | Load_Top At_Offset_1
0374 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0375 00d9 | | Load_Top At_Offset_1
0376 0227 | ' | Execute Access,All_Reference
0377 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0378 0227 | ' | Execute Access,All_Reference
0379 e5fe | | Load 0x2,-0x2
037a 01df | | Execute Vector,Equal
037b 6802 |h | Jump_Zero 0x37e
037c 00d9 | | Load_Top At_Offset_1
037d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
037e 00d9 | | Load_Top At_Offset_1
037f 0227 | ' | Execute Access,All_Reference
0380 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0381 003a | : | Store_Top Access,At_Offset_2
0382 00c9 | | Action Pop_Auxiliary_Loop
0383 7fbb | | Jump 0x33f
0384 0000 0000 | | .BLANK 0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0393 | | .CONST 0x0393 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0003 | | .CONST 0x0003 ; Number of locals
038b INIT_0388:
038b e008 | | Load 0x0,0x8
038c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
038d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
038e 4801 |H | Short_Literal 0x1
038f 4a00 |J | Short_Literal 0x200
0390 00e9 | | Load_Encached String_Cache
0391 035b | [ | Declare_Type Array,Constrained
0392 0337 | 7 | Declare_Variable Array
0393 BODY_0388:
0393 00cf | | Action Mark_Auxiliary
0394 00d9 | | Load_Top At_Offset_1
0395 01d9 | | Execute Vector,Reverse_Bounds
0396 0007 | | Action Break_Optional
0397 e5ff | | Load 0x2,-0x1
0398 e005 | | Load 0x0,0x5
0399 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
039a 6808 |h | Jump_Zero 0x3a3
039b 4801 |H | Short_Literal 0x1
039c 00d9 | | Load_Top At_Offset_1
039d 0aff | | Execute_Immediate Plus,-0x1
039e e403 | | Load 0x2,0x3
039f 01cf | | Execute Vector,Slice_Read
03a0 00e9 | | Load_Encached String_Cache
03a1 01c6 | | Execute Vector,Convert_To_Formal
03a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a3 e005 | | Load 0x0,0x5
03a4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03a5 e5ff | | Load 0x2,-0x1
03a6 e005 | | Load 0x0,0x5
03a7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03a8 c402 | | Store 0x2,0x2
03a9 e402 | | Load 0x2,0x2
03aa e5fe | | Load 0x2,-0x2
03ab 027f | | Execute Discrete,Equal
03ac 6808 |h | Jump_Zero 0x3b5
03ad 4801 |H | Short_Literal 0x1
03ae 00d9 | | Load_Top At_Offset_1
03af 0aff | | Execute_Immediate Plus,-0x1
03b0 e403 | | Load 0x2,0x3
03b1 01cf | | Execute Vector,Slice_Read
03b2 00e9 | | Load_Encached String_Cache
03b3 01c6 | | Execute Vector,Convert_To_Formal
03b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03b5 e402 | | Load 0x2,0x2
03b6 00d8 | | Load_Top At_Offset_0
03b7 00e8 | | Load_Encached Character_Cache
03b8 0260 | ` | Execute Discrete,In_Type
03b9 7001 |p | Jump_Nonzero 0x3bb
03ba 0801 | | Execute_Immediate Raise,0x1
03bb 00d9 | | Load_Top At_Offset_1
03bc e403 | | Load 0x2,0x3
03bd 01d6 | | Execute Vector,Field_Write
03be 00c8 | | Action Pop_Auxiliary_Range
03bf 3fd7 |? | Loop_Increasing 0x397
03c0 00ce | | Action Pop_Auxiliary
03c1 00d8 | | Load_Top At_Offset_0
03c2 480a |H | Short_Literal 0xa
03c3 e5ff | | Load 0x2,-0x1
03c4 8226 | & | Call 0x1,0x26
03c5 01cc | | Execute Vector,Catenate
03c6 00e9 | | Load_Encached String_Cache
03c7 01c6 | | Execute Vector,Convert_To_Formal
03c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03c9 ; --------------------------------------------------------------------------------------
03c9 ; STRING TABLE
03c9 ; --------------------------------------------------------------------------------------
03c9 0006 | | .STRTAB 0x0006->0x03cc ; "<MV>"
03ca 0008 | | .STRTAB 0x0008->0x03ce ; "operator"
03cb 000e | | .STREND 0x000e->0x03d2
03cc 3c4d 563e |<MV>| .STRTAB_STRINGS
03d2 0000 0000 | | .BLANK 0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug Table
03d8 ; --------------------------------------------------------------------------------------
03d8 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8bad,0x0000,0x0001,0x0000
03de 0000 0000 | | .BLANK 0000[0x22]