|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 07a0 | | .CONST 0x07a0 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b4 | | .CONST 0x00b4 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 4805 |H | Short_Literal 0x5
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d e20e | | Load 0x1,0xe
000e 00d9 | | Load_Top At_Offset_1
000f e002 | | Load 0x0,0x2
0010 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0011 029f 061b | | Declare_Subprogram INIT_0618,For_Call
0013 4803 |H | Short_Literal 0x3
0014 0328 | ( | Declare_Type Record,Defined_Incomplete,Visible
0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
001f 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0021 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0023 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0025 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0027 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0029 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
002b 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
002d e003 | | Load 0x0,0x3
002e 00e1 | | Load_Encached Boolean_Cache
002f 00e1 | | Load_Encached Boolean_Cache
0030 e004 | | Load 0x0,0x4
0031 e005 | | Load 0x0,0x5
0032 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0033 029f 0603 | | Declare_Subprogram INIT_0600,For_Call
0035 e220 | | Load 0x1,0x20
0036 0326 | & | Complete_Type Record,By_Defining
0037 e221 | ! | Load 0x1,0x21
0038 0324 | $ | Complete_Type Record,By_Component_Completion
0039 00bf | | Action Accept_Activation
003a 4800 |H | Short_Literal 0x0
003b 0093 062b | +| push_full_address INIT_0628
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 038e | | Declare_Type Package,Defined
003f e20f | | Load 0x1,0xf
0040 e002 | | Load 0x0,0x2
0041 00b6 | | Action Make_Scope
0042 e006 | | Load 0x0,0x6
0043 e004 | | Load 0x0,0x4
0044 a007 | | Store_Unchecked 0x0,0x7
0045 a008 | | Store_Unchecked 0x0,0x8
0046 a009 | | Store_Unchecked 0x0,0x9
0047 a00a | | Store_Unchecked 0x0,0xa
0048 a00b | | Store_Unchecked 0x0,0xb
0049 e00c | | Load 0x0,0xc
004a e00d | | Load 0x0,0xd
004b 480c |H | Short_Literal 0xc
004c e22e | . | Load 0x1,0x2e
004d 020e | | Execute Module,Augment_Imports
004e 0387 | | Declare_Variable Package
004f e00e | | Load 0x0,0xe
0050 e00f | | Load 0x0,0xf
0051 e21e | | Load 0x1,0x1e
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 0092 077e | ~| Action Push_String_Extended,0x77e ; "others => Unspecified"
0057 00ea | | Load_Encached Null_String_Cache
0058 00ea | | Load_Encached Null_String_Cache
0059 00c4 | | Action Make_Default
005a 00c4 | | Action Make_Default
005b e231 | 1 | Load 0x1,0x31
005c 026a | j | Execute Discrete,First
005d 00d8 | | Load_Top At_Offset_0
005e e21e | | Load 0x1,0x1e
005f 0260 | ` | Execute Discrete,In_Type
0060 7001 |p | Jump_Nonzero 0x62
0061 0801 | | Execute_Immediate Raise,0x1
0062 c232 | 2 | Store 0x1,0x32
0063 e232 | 2 | Load 0x1,0x32
0064 e21e | | Load 0x1,0x1e
0065 0122 | " | Execute Any,Make_Root_Type
0066 1c07 | | Execute_Immediate Run_Utility,0x7
0067 00d8 | | Load_Top At_Offset_0
0068 e21e | | Load 0x1,0x1e
0069 0260 | ` | Execute Discrete,In_Type
006a 7001 |p | Jump_Nonzero 0x6c
006b 0801 | | Execute_Immediate Raise,0x1
006c c233 | 3 | Store 0x1,0x33
006d e231 | 1 | Load 0x1,0x31
006e 0269 | i | Execute Discrete,Last
006f 00d8 | | Load_Top At_Offset_0
0070 e21e | | Load 0x1,0x1e
0071 0260 | ` | Execute Discrete,In_Type
0072 7001 |p | Jump_Nonzero 0x74
0073 0801 | | Execute_Immediate Raise,0x1
0074 c234 | 4 | Store 0x1,0x34
0075 e233 | 3 | Load 0x1,0x33
0076 00d8 | | Load_Top At_Offset_0
0077 e21e | | Load 0x1,0x1e
0078 0260 | ` | Execute Discrete,In_Type
0079 7001 |p | Jump_Nonzero 0x7b
007a 0801 | | Execute_Immediate Raise,0x1
007b c238 | 8 | Store 0x1,0x38
007c e234 | 4 | Load 0x1,0x34
007d 00d8 | | Load_Top At_Offset_0
007e e21e | | Load 0x1,0x1e
007f 0260 | ` | Execute Discrete,In_Type
0080 7001 |p | Jump_Nonzero 0x82
0081 0801 | | Execute_Immediate Raise,0x1
0082 c239 | 9 | Store 0x1,0x39
0083 e010 | | Load 0x0,0x10
0084 0387 | | Declare_Variable Package
0085 00d8 | | Load_Top At_Offset_0
0086 020f | | Execute Module,Activate
0087 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0088 00c7 | | Action Elaborate_Subprogram
0089 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
008a 00c7 | | Action Elaborate_Subprogram
008b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
008c 00c7 | | Action Elaborate_Subprogram
008d 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
008f 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0090 00c7 | | Action Elaborate_Subprogram
0091 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call
0093 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
0095 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0096 00c7 | | Action Elaborate_Subprogram
0097 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
0099 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
009a 00c7 | | Action Elaborate_Subprogram
009b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
009c 00c7 | | Action Elaborate_Subprogram
009d 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
009f 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00a8 00c7 | | Action Elaborate_Subprogram
00a9 e011 | | Load 0x0,0x11
00aa e012 | | Load 0x0,0x12
00ab 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ac e013 | | Load 0x0,0x13
00ad e014 | | Load 0x0,0x14
00ae a015 | | Store_Unchecked 0x0,0x15
00af 4806 |H | Short_Literal 0x6
00b0 e22e | . | Load 0x1,0x2e
00b1 020e | | Execute Module,Augment_Imports
00b2 e22e | . | Load 0x1,0x2e
00b3 020f | | Execute Module,Activate
00b4 BODY_0008:
00b4 00bc | | Action Signal_Activated
00b5 00bb | | Action Signal_Completion
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00bd 8214 | | Call 0x1,0x14
00be e20f | | Load 0x1,0xf
00bf 0119 | | Execute Any,Check_In_Formal_Type
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf | | .CONST 0x00cf ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e221 | ! | Load 0x1,0x21
00cc 0322 | " | Declare_Variable Record
00cd 00d8 | | Load_Top At_Offset_0
00ce 1c00 | | Execute_Immediate Run_Utility,0x0
00cf BODY_00c8:
00cf e5fe | | Load 0x2,-0x2
00d0 00d9 | | Load_Top At_Offset_1
00d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00d2 e5fe | | Load 0x2,-0x2
00d3 e5ff | | Load 0x2,-0x1
00d4 8212 | | Call 0x1,0x12
00d5 00d9 | | Load_Top At_Offset_1
00d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d7 00d8 | | Load_Top At_Offset_0
00d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e5 00d8 | | Load_Top At_Offset_0
00e6 0120 | | Execute Any,Is_Value
00e7 6803 |h | Jump_Zero 0xeb
00e8 e20e | | Load 0x1,0xe
00e9 0122 | " | Execute Any,Make_Root_Type
00ea 011e | | Execute Any,Convert
00eb 8213 | | Call 0x1,0x13
00ec 00db | | Load_Top At_Offset_3
00ed 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0116 | | .CONST 0x0116 ; Address of begin
00f9 018a | | .CONST 0x018a ; Address of exception handler
00fa 000b | | .CONST 0x000b ; Number of locals
00fb INIT_00f8:
00fb e22e | . | Load 0x1,0x2e
00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fd 00e1 | | Load_Encached Boolean_Cache
00fe e5fd | | Load 0x2,-0x3
00ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0100 e5fe | | Load 0x2,-0x2
0101 8016 | | Call 0x0,0x16
0102 821d | | Call 0x1,0x1d
0103 e013 | | Load 0x0,0x13
0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0105 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0106 02c7 | | Declare_Variable Any
0107 00d9 | | Load_Top At_Offset_1
0108 8232 | 2 | Call 0x1,0x32
0109 a405 | | Store_Unchecked 0x2,0x5
010a 00d8 | | Load_Top At_Offset_0
010b e013 | | Load 0x0,0x13
010c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010e 00e2 | | Load_Encached Integer_Cache
010f 00e2 | | Load_Encached Integer_Cache
0110 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
0112 029f 0403 | | Declare_Subprogram INIT_0400,For_Call
0114 029f 040b | | Declare_Subprogram INIT_0408,For_Call
0116 BODY_00f8:
0116 00e2 | | Load_Encached Integer_Cache
0117 00e2 | | Load_Encached Integer_Cache
0118 e406 | | Load 0x2,0x6
0119 e005 | | Load 0x0,0x5
011a 180f | | Execute Package,Field_Execute,Field_Number 0xf
011b c407 | | Store 0x2,0x7
011c c408 | | Store 0x2,0x8
011d 00db | | Load_Top At_Offset_3
011e 0c01 | | Execute_Immediate Greater_Equal,0x1
011f 6805 |h | Jump_Zero 0x125
0120 e5ff | | Load 0x2,-0x1
0121 0f01 | | Execute_Immediate Equal,0x1
0122 6802 |h | Jump_Zero 0x125
0123 e017 | | Load 0x0,0x17
0124 0257 | W | Execute Discrete,Raise
0125 00e1 | | Load_Encached Boolean_Cache
0126 e402 | | Load 0x2,0x2
0127 e405 | | Load 0x2,0x5
0128 e22e | . | Load 0x1,0x2e
0129 1819 | | Execute Package,Field_Execute,Field_Number 0x19
012a e22e | . | Load 0x1,0x2e
012b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
012c e018 | | Load 0x0,0x18
012d e22e | . | Load 0x1,0x2e
012e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
012f 0096 | | Execute Package,Entry
0130 c402 | | Store 0x2,0x2
0131 c403 | | Store 0x2,0x3
0132 e403 | | Load 0x2,0x3
0133 6806 |h | Jump_Zero 0x13a
0134 e402 | | Load 0x2,0x2
0135 0217 | | Execute Heap_Access,All_Reference
0136 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0137 e408 | | Load 0x2,0x8
0138 0272 | r | Execute Discrete,Minus
0139 c407 | | Store 0x2,0x7
013a e403 | | Load 0x2,0x3
013b 6833 |h3 | Jump_Zero 0x16f
013c e5ff | | Load 0x2,-0x1
013d 0f00 | | Execute_Immediate Equal,0x0
013e e408 | | Load 0x2,0x8
013f 0c01 | | Execute_Immediate Greater_Equal,0x1
0140 0279 | y | Execute Discrete,And
0141 7006 |p | Jump_Nonzero 0x148
0142 e5ff | | Load 0x2,-0x1
0143 0f01 | | Execute_Immediate Equal,0x1
0144 e407 | | Load 0x2,0x7
0145 0c01 | | Execute_Immediate Greater_Equal,0x1
0146 0279 | y | Execute Discrete,And
0147 6802 |h | Jump_Zero 0x14a
0148 840b | | Call 0x2,0xb
0149 7826 |x& | Jump 0x170
014a e5ff | | Load 0x2,-0x1
014b 0f00 | | Execute_Immediate Equal,0x0
014c e408 | | Load 0x2,0x8
014d 0f00 | | Execute_Immediate Equal,0x0
014e 0279 | y | Execute Discrete,And
014f 681d |h | Jump_Zero 0x16d
0150 e402 | | Load 0x2,0x2
0151 e22e | . | Load 0x1,0x2e
0152 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0153 c402 | | Store 0x2,0x2
0154 e5ff | | Load 0x2,-0x1
0155 e5fd | | Load 0x2,-0x3
0156 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0157 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0158 e5fd | | Load 0x2,-0x3
0159 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015a e406 | | Load 0x2,0x6
015b 8015 | | Call 0x0,0x15
015c e5fd | | Load 0x2,-0x3
015d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
015e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
015f 4801 |H | Short_Literal 0x1
0160 e5fd | | Load 0x2,-0x3
0161 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0162 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0163 e402 | | Load 0x2,0x2
0164 0217 | | Execute Heap_Access,All_Reference
0165 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0166 e402 | | Load 0x2,0x2
0167 0217 | | Execute Heap_Access,All_Reference
0168 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0169 e5fd | | Load 0x2,-0x3
016a 8222 | " | Call 0x1,0x22
016b 8217 | | Call 0x1,0x17
016c 7803 |x | Jump 0x170
016d 840a | | Call 0x2,0xa
016e 7801 |x | Jump 0x170
016f 840a | | Call 0x2,0xa
0170 e5ff | | Load 0x2,-0x1
0171 0f01 | | Execute_Immediate Equal,0x1
0172 6816 |h | Jump_Zero 0x189
0173 4801 |H | Short_Literal 0x1
0174 e5fd | | Load 0x2,-0x3
0175 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0176 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0177 e5fd | | Load 0x2,-0x3
0178 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0179 00d8 | | Load_Top At_Offset_0
017a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
017b 0120 | | Execute Any,Is_Value
017c 6803 |h | Jump_Zero 0x180
017d e005 | | Load 0x0,0x5
017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017f 7802 |x | Jump 0x182
0180 00d8 | | Load_Top At_Offset_0
0181 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0182 4801 |H | Short_Literal 0x1
0183 e406 | | Load 0x2,0x6
0184 e005 | | Load 0x0,0x5
0185 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0186 00d9 | | Load_Top At_Offset_1
0187 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0188 00d1 | | Pop_Control Pop_Count_1
0189 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018a TRAP_00f8:
018a 00d8 | | Load_Top At_Offset_0
018b 0107 | | Execute Exception,Get_Name
018c 4920 |I | Short_Literal 0x120
018d 492f |I/ | Short_Literal 0x12f
018e 0262 | b | Execute Discrete,In_Range
018f 6802 |h | Jump_Zero 0x192
0190 e019 | | Load 0x0,0x19
0191 0257 | W | Execute Discrete,Raise
0192 00d8 | | Load_Top At_Offset_0
0193 0107 | | Execute Exception,Get_Name
0194 4900 |I | Short_Literal 0x100
0195 490f |I | Short_Literal 0x10f
0196 0262 | b | Execute Discrete,In_Range
0197 6802 |h | Jump_Zero 0x19a
0198 e01a | | Load 0x0,0x1a
0199 0257 | W | Execute Discrete,Raise
019a 00d8 | | Load_Top At_Offset_0
019b 0107 | | Execute Exception,Get_Name
019c 4930 |I0 | Short_Literal 0x130
019d 493f |I? | Short_Literal 0x13f
019e 0262 | b | Execute Discrete,In_Range
019f 6802 |h | Jump_Zero 0x1a2
01a0 e017 | | Load 0x0,0x17
01a1 0257 | W | Execute Discrete,Raise
01a2 0100 | | Execute Exception,Raise
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b8 | | .CONST 0x01b8 ; Address of begin
01a9 01c8 | | .CONST 0x01c8 ; Address of exception handler
01aa 0005 | | .CONST 0x0005 ; Number of locals
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 8016 | | Call 0x0,0x16
01ad e5fe | | Load 0x2,-0x2
01ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01af 00d9 | | Load_Top At_Offset_1
01b0 8233 | 3 | Call 0x1,0x33
01b1 e01b | | Load 0x0,0x1b
01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b3 02c7 | | Declare_Variable Any
01b4 00d8 | | Load_Top At_Offset_0
01b5 1c00 | | Execute_Immediate Run_Utility,0x0
01b6 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
01b8 BODY_01a8:
01b8 00db | | Load_Top At_Offset_3
01b9 01db | | Execute Vector,Length
01ba 7004 |p | Jump_Nonzero 0x1bf
01bb 4801 |H | Short_Literal 0x1
01bc e5fe | | Load 0x2,-0x2
01bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01bf 00d9 | | Load_Top At_Offset_1
01c0 00ea | | Load_Encached Null_String_Cache
01c1 e403 | | Load 0x2,0x3
01c2 4801 |H | Short_Literal 0x1
01c3 e01b | | Load 0x0,0x1b
01c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01c5 c404 | | Store 0x2,0x4
01c6 8405 | | Call 0x2,0x5
01c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c8 TRAP_01a8:
01c8 00d8 | | Load_Top At_Offset_0
01c9 0107 | | Execute Exception,Get_Name
01ca 4920 |I | Short_Literal 0x120
01cb 492f |I/ | Short_Literal 0x12f
01cc 0262 | b | Execute Discrete,In_Range
01cd 6802 |h | Jump_Zero 0x1d0
01ce e019 | | Load 0x0,0x19
01cf 0257 | W | Execute Discrete,Raise
01d0 00d8 | | Load_Top At_Offset_0
01d1 0107 | | Execute Exception,Get_Name
01d2 4900 |I | Short_Literal 0x100
01d3 490f |I | Short_Literal 0x10f
01d4 0262 | b | Execute Discrete,In_Range
01d5 6802 |h | Jump_Zero 0x1d8
01d6 e01a | | Load 0x0,0x1a
01d7 0257 | W | Execute Discrete,Raise
01d8 00d8 | | Load_Top At_Offset_0
01d9 0107 | | Execute Exception,Get_Name
01da 4930 |I0 | Short_Literal 0x130
01db 493f |I? | Short_Literal 0x13f
01dc 0262 | b | Execute Discrete,In_Range
01dd 6802 |h | Jump_Zero 0x1e0
01de e017 | | Load 0x0,0x17
01df 0257 | W | Execute Discrete,Raise
01e0 0100 | | Execute Exception,Raise
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01ee 8016 | | Call 0x0,0x16
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fe | | .CONST 0x01fe ; Address of begin
01f1 0216 | | .CONST 0x0216 ; Address of exception handler
01f2 0005 | | .CONST 0x0005 ; Number of locals
01f3 INIT_01f0:
01f3 e01b | | Load 0x0,0x1b
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 02c7 | | Declare_Variable Any
01f6 00d8 | | Load_Top At_Offset_0
01f7 1c00 | | Execute_Immediate Run_Utility,0x0
01f8 00e1 | | Load_Encached Boolean_Cache
01f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01fa 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
01fc 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
01fe BODY_01f0:
01fe e5ff | | Load 0x2,-0x1
01ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0200 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0201 7002 |p | Jump_Nonzero 0x204
0202 e01a | | Load 0x0,0x1a
0203 0257 | W | Execute Discrete,Raise
0204 e5ff | | Load 0x2,-0x1
0205 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0206 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0207 e005 | | Load 0x0,0x5
0208 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0209 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
020a e5ff | | Load 0x2,-0x1
020b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
020c 00d8 | | Load_Top At_Offset_0
020d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
020e e005 | | Load 0x0,0x5
020f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0210 00d9 | | Load_Top At_Offset_1
0211 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0212 00d1 | | Pop_Control Pop_Count_1
0213 8405 | | Call 0x2,0x5
0214 8404 | | Call 0x2,0x4
0215 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0216 TRAP_01f0:
0216 00d8 | | Load_Top At_Offset_0
0217 0107 | | Execute Exception,Get_Name
0218 4920 |I | Short_Literal 0x120
0219 492f |I/ | Short_Literal 0x12f
021a 0262 | b | Execute Discrete,In_Range
021b 6802 |h | Jump_Zero 0x21e
021c e019 | | Load 0x0,0x19
021d 0257 | W | Execute Discrete,Raise
021e 00d8 | | Load_Top At_Offset_0
021f 0107 | | Execute Exception,Get_Name
0220 4900 |I | Short_Literal 0x100
0221 490f |I | Short_Literal 0x10f
0222 0262 | b | Execute Discrete,In_Range
0223 6802 |h | Jump_Zero 0x226
0224 e01a | | Load 0x0,0x1a
0225 0257 | W | Execute Discrete,Raise
0226 00d8 | | Load_Top At_Offset_0
0227 0107 | | Execute Exception,Get_Name
0228 4930 |I0 | Short_Literal 0x130
0229 493f |I? | Short_Literal 0x13f
022a 0262 | b | Execute Discrete,In_Range
022b 6802 |h | Jump_Zero 0x22e
022c e017 | | Load 0x0,0x17
022d 0257 | W | Execute Discrete,Raise
022e 0100 | | Execute Exception,Raise
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023a | : | .CONST 0x023a ; Address of begin
0231 024b | K | .CONST 0x024b ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 8016 | | Call 0x0,0x16
0235 e01b | | Load 0x0,0x1b
0236 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0237 02c7 | | Declare_Variable Any
0238 00d8 | | Load_Top At_Offset_0
0239 1c00 | | Execute_Immediate Run_Utility,0x0
023a BODY_0230:
023a 00d8 | | Load_Top At_Offset_0
023b 00ea | | Load_Encached Null_String_Cache
023c 00db | | Load_Top At_Offset_3
023d 4801 |H | Short_Literal 0x1
023e e01b | | Load 0x0,0x1b
023f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0240 c403 | | Store 0x2,0x3
0241 00d8 | | Load_Top At_Offset_0
0242 e5fe | | Load 0x2,-0x2
0243 8234 | 4 | Call 0x1,0x34
0244 00d1 | | Pop_Control Pop_Count_1
0245 c403 | | Store 0x2,0x3
0246 00d8 | | Load_Top At_Offset_0
0247 e01b | | Load 0x0,0x1b
0248 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0249 c403 | | Store 0x2,0x3
024a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024b TRAP_0230:
024b 00d8 | | Load_Top At_Offset_0
024c 0107 | | Execute Exception,Get_Name
024d 4920 |I | Short_Literal 0x120
024e 492f |I/ | Short_Literal 0x12f
024f 0262 | b | Execute Discrete,In_Range
0250 6802 |h | Jump_Zero 0x253
0251 e019 | | Load 0x0,0x19
0252 0257 | W | Execute Discrete,Raise
0253 00d8 | | Load_Top At_Offset_0
0254 0107 | | Execute Exception,Get_Name
0255 4900 |I | Short_Literal 0x100
0256 490f |I | Short_Literal 0x10f
0257 0262 | b | Execute Discrete,In_Range
0258 6802 |h | Jump_Zero 0x25b
0259 e01a | | Load 0x0,0x1a
025a 0257 | W | Execute Discrete,Raise
025b 00d8 | | Load_Top At_Offset_0
025c 0107 | | Execute Exception,Get_Name
025d 4930 |I0 | Short_Literal 0x130
025e 493f |I? | Short_Literal 0x13f
025f 0262 | b | Execute Discrete,In_Range
0260 6802 |h | Jump_Zero 0x263
0261 e017 | | Load 0x0,0x17
0262 0257 | W | Execute Discrete,Raise
0263 0100 | | Execute Exception,Raise
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026f | o | .CONST 0x026f ; Address of begin
0269 0297 | | .CONST 0x0297 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call
026d 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
026f BODY_0268:
026f e5fe | | Load 0x2,-0x2
0270 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0271 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0272 6822 |h" | Jump_Zero 0x295
0273 e5fe | | Load 0x2,-0x2
0274 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0275 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0276 0f01 | | Execute_Immediate Equal,0x1
0277 e5ff | | Load 0x2,-0x1
0278 0f00 | | Execute_Immediate Equal,0x0
0279 0279 | y | Execute Discrete,And
027a 680b |h | Jump_Zero 0x286
027b e5fe | | Load 0x2,-0x2
027c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027d 00d8 | | Load_Top At_Offset_0
027e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
027f e005 | | Load 0x0,0x5
0280 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0281 00d9 | | Load_Top At_Offset_1
0282 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0283 00d1 | | Pop_Control Pop_Count_1
0284 8402 | | Call 0x2,0x2
0285 7809 |x | Jump 0x28f
0286 e5fe | | Load 0x2,-0x2
0287 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0288 00d8 | | Load_Top At_Offset_0
0289 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
028a e005 | | Load 0x0,0x5
028b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028c 00d9 | | Load_Top At_Offset_1
028d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
028e 00d1 | | Pop_Control Pop_Count_1
028f 4800 |H | Short_Literal 0x0
0290 e5fe | | Load 0x2,-0x2
0291 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0292 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0293 8403 | | Call 0x2,0x3
0294 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0295 e01a | | Load 0x0,0x1a
0296 0257 | W | Execute Discrete,Raise
0297 TRAP_0268:
0297 00d8 | | Load_Top At_Offset_0
0298 0107 | | Execute Exception,Get_Name
0299 4920 |I | Short_Literal 0x120
029a 492f |I/ | Short_Literal 0x12f
029b 0262 | b | Execute Discrete,In_Range
029c 6802 |h | Jump_Zero 0x29f
029d e019 | | Load 0x0,0x19
029e 0257 | W | Execute Discrete,Raise
029f 00d8 | | Load_Top At_Offset_0
02a0 0107 | | Execute Exception,Get_Name
02a1 4900 |I | Short_Literal 0x100
02a2 490f |I | Short_Literal 0x10f
02a3 0262 | b | Execute Discrete,In_Range
02a4 6802 |h | Jump_Zero 0x2a7
02a5 e01a | | Load 0x0,0x1a
02a6 0257 | W | Execute Discrete,Raise
02a7 00d8 | | Load_Top At_Offset_0
02a8 0107 | | Execute Exception,Get_Name
02a9 4930 |I0 | Short_Literal 0x130
02aa 493f |I? | Short_Literal 0x13f
02ab 0262 | b | Execute Discrete,In_Range
02ac 6802 |h | Jump_Zero 0x2af
02ad e017 | | Load 0x0,0x17
02ae 0257 | W | Execute Discrete,Raise
02af 0100 | | Execute Exception,Raise
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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c4 | | .CONST 0x02c4 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0005 | | .CONST 0x0005 ; Number of locals
02bb INIT_02b8:
02bb e004 | | Load 0x0,0x4
02bc e5fe | | Load 0x2,-0x2
02bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02bf 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02c0 00e2 | | Load_Encached Integer_Cache
02c1 00e2 | | Load_Encached Integer_Cache
02c2 029f 051b | | Declare_Subprogram INIT_0518,For_Call
02c4 BODY_02b8:
02c4 e5fe | | Load 0x2,-0x2
02c5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c7 7002 |p | Jump_Nonzero 0x2ca
02c8 e01a | | Load 0x0,0x1a
02c9 0257 | W | Execute Discrete,Raise
02ca e5fe | | Load 0x2,-0x2
02cb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02cd e5ff | | Load 0x2,-0x1
02ce 027f | | Execute Discrete,Equal
02cf 6801 |h | Jump_Zero 0x2d1
02d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d1 e5ff | | Load 0x2,-0x1
02d2 0f01 | | Execute_Immediate Equal,0x1
02d3 682d |h- | Jump_Zero 0x301
02d4 00e2 | | Load_Encached Integer_Cache
02d5 00e2 | | Load_Encached Integer_Cache
02d6 e402 | | Load 0x2,0x2
02d7 8016 | | Call 0x0,0x16
02d8 e005 | | Load 0x0,0x5
02d9 180f | | Execute Package,Field_Execute,Field_Number 0xf
02da c403 | | Store 0x2,0x3
02db 005a | Z | Store_Top Discrete,At_Offset_2
02dc 00da | | Load_Top At_Offset_2
02dd 0c02 | | Execute_Immediate Greater_Equal,0x2
02de 00da | | Load_Top At_Offset_2
02df 0c01 | | Execute_Immediate Greater_Equal,0x1
02e0 0278 | x | Execute Discrete,Or
02e1 6802 |h | Jump_Zero 0x2e4
02e2 e017 | | Load 0x0,0x17
02e3 0257 | W | Execute Discrete,Raise
02e4 4801 |H | Short_Literal 0x1
02e5 e5fe | | Load 0x2,-0x2
02e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02e8 e5fe | | Load 0x2,-0x2
02e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ea 00d8 | | Load_Top At_Offset_0
02eb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02ec 0120 | | Execute Any,Is_Value
02ed 6803 |h | Jump_Zero 0x2f1
02ee e005 | | Load 0x0,0x5
02ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f0 7802 |x | Jump 0x2f3
02f1 00d8 | | Load_Top At_Offset_0
02f2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02f3 4801 |H | Short_Literal 0x1
02f4 e402 | | Load 0x2,0x2
02f5 8016 | | Call 0x0,0x16
02f6 e005 | | Load 0x0,0x5
02f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f8 00d9 | | Load_Top At_Offset_1
02f9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02fa 00d1 | | Pop_Control Pop_Count_1
02fb 4801 |H | Short_Literal 0x1
02fc e5fe | | Load 0x2,-0x2
02fd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02fe 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02ff 8405 | | Call 0x2,0x5
0300 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0301 e5fe | | Load 0x2,-0x2
0302 4801 |H | Short_Literal 0x1
0303 822b | + | Call 0x1,0x2b
0304 00d1 | | Pop_Control Pop_Count_1
0305 e5fe | | Load 0x2,-0x2
0306 e402 | | Load 0x2,0x2
0307 4800 |H | Short_Literal 0x0
0308 8226 | & | Call 0x1,0x26
0309 00d1 | | Pop_Control Pop_Count_1
030a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030b 0000 0000 | | .BLANK 0000[0x5]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0319 | | .CONST 0x0319 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0002 | | .CONST 0x0002 ; Number of locals
0313 INIT_0310:
0313 e013 | | Load 0x0,0x13
0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0316 02c7 | | Declare_Variable Any
0317 00d8 | | Load_Top At_Offset_0
0318 1c00 | | Execute_Immediate Run_Utility,0x0
0319 BODY_0310:
0319 00db | | Load_Top At_Offset_3
031a 01db | | Execute Vector,Length
031b 7002 |p | Jump_Nonzero 0x31e
031c 4800 |H | Short_Literal 0x0
031d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
031e 4801 |H | Short_Literal 0x1
031f e013 | | Load 0x0,0x13
0320 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0321 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0322 e5ff | | Load 0x2,-0x1
0323 e013 | | Load 0x0,0x13
0324 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0325 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0326 c402 | | Store 0x2,0x2
0327 00d8 | | Load_Top At_Offset_0
0328 e013 | | Load 0x0,0x13
0329 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
032b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
032c 0000 0000 | | .BLANK 0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 4801 |H | Short_Literal 0x1
0334 e013 | | Load 0x0,0x13
0335 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0336 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0337 e5ff | | Load 0x2,-0x1
0338 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0339 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
033a 8016 | | Call 0x0,0x16
033b e013 | | Load 0x0,0x13
033c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
033e e22e | . | Load 0x1,0x2e
033f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0341 0000 0000 | | .BLANK 0000[0x7]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0351 | Q | .CONST 0x0351 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b e013 | | Load 0x0,0x13
034c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034e 02c7 | | Declare_Variable Any
034f 00d8 | | Load_Top At_Offset_0
0350 1c00 | | Execute_Immediate Run_Utility,0x0
0351 BODY_0348:
0351 4801 |H | Short_Literal 0x1
0352 e013 | | Load 0x0,0x13
0353 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0354 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0355 e5ff | | Load 0x2,-0x1
0356 e013 | | Load 0x0,0x13
0357 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0358 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0359 c402 | | Store 0x2,0x2
035a 00d8 | | Load_Top At_Offset_0
035b e013 | | Load 0x0,0x13
035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035d 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
035e 680b |h | Jump_Zero 0x36a
035f e01c | | Load 0x0,0x1c
0360 180e | | Execute Package,Field_Execute,Field_Number 0xe
0361 4802 |H | Short_Literal 0x2
0362 00da | | Load_Top At_Offset_2
0363 e013 | | Load 0x0,0x13
0364 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0365 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0366 e01d | | Load 0x0,0x1d
0367 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0368 e01e | | Load 0x0,0x1e
0369 0257 | W | Execute Discrete,Raise
036a 00d8 | | Load_Top At_Offset_0
036b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0377 | w | .CONST 0x0377 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0003 | | .CONST 0x0003 ; Number of locals
0373 INIT_0370:
0373 0092 077f | | Action Push_String_Extended,0x77f ; "!machine.temporary.testmate_"
0375 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call
0377 BODY_0370:
0377 e5ff | | Load 0x2,-0x1
0378 01db | | Execute Vector,Length
0379 7002 |p | Jump_Nonzero 0x37c
037a 8403 | | Call 0x2,0x3
037b 7804 |x | Jump 0x380
037c e5fe | | Load 0x2,-0x2
037d e5ff | | Load 0x2,-0x1
037e 821d | | Call 0x1,0x1d
037f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0380 0831 | 1 | Execute_Immediate Raise,0x31
0381 0000 0000 | | .BLANK 0000[0x7]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 039d | | .CONST 0x039d ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0004 | | .CONST 0x0004 ; Number of locals
038b INIT_0388:
038b e210 | | Load 0x1,0x10
038c 02c7 | | Declare_Variable Any
038d 00db | | Load_Top At_Offset_3
038e 8222 | " | Call 0x1,0x22
038f 8219 | | Call 0x1,0x19
0390 c402 | | Store 0x2,0x2
0391 e21f | | Load 0x1,0x1f
0392 e21e | | Load 0x1,0x1e
0393 1c04 | | Execute_Immediate Run_Utility,0x4
0394 e21e | | Load 0x1,0x1e
0395 0122 | " | Execute Any,Make_Root_Type
0396 011c | | Execute Any,Convert_Unchecked
0397 1c01 | | Execute_Immediate Run_Utility,0x1
0398 0092 0780 | | Action Push_String_Extended,0x780 ; "=>"
039a 01cc | | Execute Vector,Catenate
039b 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call
039d BODY_0388:
039d e5fe | | Load 0x2,-0x2
039e e01b | | Load 0x0,0x1b
039f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03a0 c5fe | | Store 0x2,-0x2
03a1 00d9 | | Load_Top At_Offset_1
03a2 e5fe | | Load 0x2,-0x2
03a3 e01b | | Load 0x0,0x1b
03a4 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
03a5 e211 | | Load 0x1,0x11
03a6 6805 |h | Jump_Zero 0x3ac
03a7 0092 0781 | | Action Push_String_Extended,0x781 ; "("
03a9 e5fe | | Load 0x2,-0x2
03aa e01b | | Load 0x0,0x1b
03ab 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
03ac 00cf | | Action Mark_Auxiliary
03ad 00db | | Load_Top At_Offset_3
03ae 821a | | Call 0x1,0x1a
03af 700c |p | Jump_Nonzero 0x3bc
03b0 8404 | | Call 0x2,0x4
03b1 00db | | Load_Top At_Offset_3
03b2 00d8 | | Load_Top At_Offset_0
03b3 0120 | | Execute Any,Is_Value
03b4 6803 |h | Jump_Zero 0x3b8
03b5 e210 | | Load 0x1,0x10
03b6 0122 | " | Execute Any,Make_Root_Type
03b7 011e | | Execute Any,Convert
03b8 821c | | Call 0x1,0x1c
03b9 c402 | | Store 0x2,0x2
03ba 00c9 | | Action Pop_Auxiliary_Loop
03bb 7ff1 | | Jump 0x3ad
03bc 00ce | | Action Pop_Auxiliary
03bd e211 | | Load 0x1,0x11
03be 6805 |h | Jump_Zero 0x3c4
03bf 0092 0782 | | Action Push_String_Extended,0x782 ; ")"
03c1 e5fe | | Load 0x2,-0x2
03c2 e01b | | Load 0x0,0x1b
03c3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c5 0000 0000 | | .XXX[0x3]
03c7 0000 | |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d0 | | .CONST 0x03d0 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0004 | | .CONST 0x0004 ; Number of locals
03cb INIT_03c8:
03cb e22f | / | Load 0x1,0x2f
03cc 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
03cd 00e1 | | Load_Encached Boolean_Cache
03ce 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call
03d0 BODY_03c8:
03d0 e7fc | | Load 0x3,-0x4
03d1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d3 6802 |h | Jump_Zero 0x3d6
03d4 e01a | | Load 0x0,0x1a
03d5 0257 | W | Execute Discrete,Raise
03d6 e7fc | | Load 0x3,-0x4
03d7 e7fe | | Load 0x3,-0x2
03d8 8230 | 0 | Call 0x1,0x30
03d9 681e |h | Jump_Zero 0x3f8
03da e7ff | | Load 0x3,-0x1
03db e7fc | | Load 0x3,-0x4
03dc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03de e7fd | | Load 0x3,-0x3
03df e7fe | | Load 0x3,-0x2
03e0 8015 | | Call 0x0,0x15
03e1 e7fc | | Load 0x3,-0x4
03e2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03e3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03e4 4801 |H | Short_Literal 0x1
03e5 e7fc | | Load 0x3,-0x4
03e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03e8 00e1 | | Load_Encached Boolean_Cache
03e9 e22f | / | Load 0x1,0x2f
03ea 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
03eb 485f |H_ | Short_Literal 0x5f
03ec e7fe | | Load 0x3,-0x2
03ed 01ca | | Execute Vector,Prepend
03ee e22f | / | Load 0x1,0x2f
03ef 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03f0 c602 | | Store 0x3,0x2
03f1 005a | Z | Store_Top Discrete,At_Offset_2
03f2 00d9 | | Load_Top At_Offset_1
03f3 7002 |p | Jump_Nonzero 0x3f6
03f4 e01f | | Load 0x0,0x1f
03f5 0257 | W | Execute Discrete,Raise
03f6 8604 | | Call 0x3,0x4
03f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f8 e019 | | Load 0x0,0x19
03f9 0257 | W | Execute Discrete,Raise
03fa 0000 0000 | | .BLANK 0000[0x6]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0405 | | .CONST 0x0405 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0002 | | .CONST 0x0002 ; Number of locals
0403 INIT_0400:
0403 029f 058b | | Declare_Subprogram INIT_0588,For_Call
0405 BODY_0400:
0405 8602 | | Call 0x3,0x2
0406 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0407 0000 | | .XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0414 | | .CONST 0x0414 ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0004 | | .CONST 0x0004 ; Number of locals
040b INIT_0408:
040b e002 | | Load 0x0,0x2
040c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
040d 4803 |H | Short_Literal 0x3
040e e014 | | Load 0x0,0x14
040f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0410 e014 | | Load 0x0,0x14
0411 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0412 e004 | | Load 0x0,0x4
0413 0007 | | Action Break_Optional
0414 BODY_0408:
0414 e002 | | Load 0x0,0x2
0415 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0416 490d |I | Short_Literal 0x10d
0417 e011 | | Load 0x0,0x11
0418 180d | | Execute Package,Field_Execute,Field_Number 0xd
0419 0033 | 3 | Store_Top Heap_Access,At_Offset_3
041a 00da | | Load_Top At_Offset_2
041b e406 | | Load 0x2,0x6
041c 0092 0783 | | Action Push_String_Extended,0x783 ; "_"
041e 01cc | | Execute Vector,Catenate
041f 00db | | Load_Top At_Offset_3
0420 01cc | | Execute Vector,Catenate
0421 8015 | | Call 0x0,0x15
0422 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0423 e5fd | | Load 0x2,-0x3
0424 00db | | Load_Top At_Offset_3
0425 e406 | | Load 0x2,0x6
0426 e5ff | | Load 0x2,-0x1
0427 8409 | | Call 0x2,0x9
0428 00d1 | | Pop_Control Pop_Count_1
0429 00da | | Load_Top At_Offset_2
042a e5ff | | Load 0x2,-0x1
042b 0f00 | | Execute_Immediate Equal,0x0
042c 0f00 | | Execute_Immediate Equal,0x0
042d 4801 |H | Short_Literal 0x1
042e e5fd | | Load 0x2,-0x3
042f 8222 | " | Call 0x1,0x22
0430 e20f | | Load 0x1,0xf
0431 0119 | | Execute Any,Check_In_Formal_Type
0432 4801 |H | Short_Literal 0x1
0433 e22e | . | Load 0x1,0x2e
0434 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0435 a402 | | Store_Unchecked 0x2,0x2
0436 e22e | . | Load 0x1,0x2e
0437 00d8 | | Load_Top At_Offset_0
0438 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0439 4800 |H | Short_Literal 0x0
043a e402 | | Load 0x2,0x2
043b e604 | | Load 0x3,0x4
043c e020 | | Load 0x0,0x20
043d e22e | . | Load 0x1,0x2e
043e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
043f 0096 | | Execute Package,Entry
0440 00d9 | | Load_Top At_Offset_1
0441 1a16 | | Execute Package,Field_Write,Field_Number 0x16
0442 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0443 0000 0000 | | .BLANK 0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0456 | V | .CONST 0x0456 ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0004 | | .CONST 0x0004 ; Number of locals
044b INIT_0448:
044b e404 | | Load 0x2,0x4
044c e01b | | Load 0x0,0x1b
044d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
044e e004 | | Load 0x0,0x4
044f e5fe | | Load 0x2,-0x2
0450 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0451 00da | | Load_Top At_Offset_2
0452 8015 | | Call 0x0,0x15
0453 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0454 029f 05db | | Declare_Subprogram INIT_05d8,For_Call
0456 BODY_0448:
0456 e404 | | Load 0x2,0x4
0457 e01b | | Load 0x0,0x1b
0458 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0459 c404 | | Store 0x2,0x4
045a 4801 |H | Short_Literal 0x1
045b e5fe | | Load 0x2,-0x2
045c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
045d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
045e e5fe | | Load 0x2,-0x2
045f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0460 00d8 | | Load_Top At_Offset_0
0461 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0462 0120 | | Execute Any,Is_Value
0463 6803 |h | Jump_Zero 0x467
0464 e005 | | Load 0x0,0x5
0465 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0466 7802 |x | Jump 0x469
0467 00d8 | | Load_Top At_Offset_0
0468 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0469 4801 |H | Short_Literal 0x1
046a e602 | | Load 0x3,0x2
046b e005 | | Load 0x0,0x5
046c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
046d 00d9 | | Load_Top At_Offset_1
046e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
046f 00d1 | | Pop_Control Pop_Count_1
0470 00d9 | | Load_Top At_Offset_1
0471 e5fe | | Load 0x2,-0x2
0472 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0473 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0474 8604 | | Call 0x3,0x4
0475 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0476 0000 0000 | | .XXX[0x2]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b e403 | | Load 0x2,0x3
047c 6802 |h | Jump_Zero 0x47f
047d e005 | | Load 0x0,0x5
047e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
047f 4801 |H | Short_Literal 0x1
0480 e5ff | | Load 0x2,-0x1
0481 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0482 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0483 e5ff | | Load 0x2,-0x1
0484 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0485 00d8 | | Load_Top At_Offset_0
0486 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0487 0120 | | Execute Any,Is_Value
0488 6803 |h | Jump_Zero 0x48c
0489 e005 | | Load 0x0,0x5
048a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048b 7802 |x | Jump 0x48e
048c 00d8 | | Load_Top At_Offset_0
048d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
048e 4801 |H | Short_Literal 0x1
048f e5ff | | Load 0x2,-0x1
0490 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0491 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0492 8016 | | Call 0x0,0x16
0493 e005 | | Load 0x0,0x5
0494 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0495 00d9 | | Load_Top At_Offset_1
0496 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0497 00d1 | | Pop_Control Pop_Count_1
0498 e403 | | Load 0x2,0x3
0499 6802 |h | Jump_Zero 0x49c
049a e005 | | Load 0x0,0x5
049b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
049c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
049d 0000 0000 | | .XXX[0x3]
049f 0000 | |
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 04b7 | | .CONST 0x04b7 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 e402 | | Load 0x2,0x2
04a4 00ea | | Load_Encached Null_String_Cache
04a5 e5ff | | Load 0x2,-0x1
04a6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04a7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04a8 8016 | | Call 0x0,0x16
04a9 4801 |H | Short_Literal 0x1
04aa e01b | | Load 0x0,0x1b
04ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04ac c402 | | Store 0x2,0x2
04ad e402 | | Load 0x2,0x2
04ae e5ff | | Load 0x2,-0x1
04af 8234 | 4 | Call 0x1,0x34
04b0 00d1 | | Pop_Control Pop_Count_1
04b1 c402 | | Store 0x2,0x2
04b2 e402 | | Load 0x2,0x2
04b3 e01b | | Load 0x0,0x1b
04b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04b5 c402 | | Store 0x2,0x2
04b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b7 TRAP_04a0:
04b7 0007 | | Action Break_Optional
04b8 8404 | | Call 0x2,0x4
04b9 00d8 | | Load_Top At_Offset_0
04ba 0101 | | Execute Exception,Reraise
04bb 0000 0000 | | .BLANK 0000[0x5]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c8 | | .CONST 0x04c8 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0002 | | .CONST 0x0002 ; Number of locals
04c3 INIT_04c0:
04c3 e01b | | Load 0x0,0x1b
04c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c5 02c7 | | Declare_Variable Any
04c6 00d8 | | Load_Top At_Offset_0
04c7 1c00 | | Execute_Immediate Run_Utility,0x0
04c8 BODY_04c0:
04c8 00d8 | | Load_Top At_Offset_0
04c9 00ea | | Load_Encached Null_String_Cache
04ca e5fe | | Load 0x2,-0x2
04cb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04cc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04cd 8016 | | Call 0x0,0x16
04ce 4801 |H | Short_Literal 0x1
04cf e01b | | Load 0x0,0x1b
04d0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04d1 c602 | | Store 0x3,0x2
04d2 00d8 | | Load_Top At_Offset_0
04d3 e5fe | | Load 0x2,-0x2
04d4 8234 | 4 | Call 0x1,0x34
04d5 00d1 | | Pop_Control Pop_Count_1
04d6 c602 | | Store 0x3,0x2
04d7 00d8 | | Load_Top At_Offset_0
04d8 e01b | | Load 0x0,0x1b
04d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04da c602 | | Store 0x3,0x2
04db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04dc 0000 0000 | | .BLANK 0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04ea | | .CONST 0x04ea ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0004 | | .CONST 0x0004 ; Number of locals
04e3 INIT_04e0:
04e3 e22e | . | Load 0x1,0x2e
04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e5 00e1 | | Load_Encached Boolean_Cache
04e6 e004 | | Load 0x0,0x4
04e7 e5fe | | Load 0x2,-0x2
04e8 8231 | 1 | Call 0x1,0x31
04e9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04ea BODY_04e0:
04ea 00e1 | | Load_Encached Boolean_Cache
04eb 00db | | Load_Top At_Offset_3
04ec 00da | | Load_Top At_Offset_2
04ed e22e | . | Load 0x1,0x2e
04ee 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04ef e018 | | Load 0x0,0x18
04f0 e22e | . | Load 0x1,0x2e
04f1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
04f2 0096 | | Execute Package,Entry
04f3 c602 | | Store 0x3,0x2
04f4 005a | Z | Store_Top Discrete,At_Offset_2
04f5 00d9 | | Load_Top At_Offset_1
04f6 6817 |h | Jump_Zero 0x50e
04f7 00da | | Load_Top At_Offset_2
04f8 e22e | . | Load 0x1,0x2e
04f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04fa 0033 | 3 | Store_Top Heap_Access,At_Offset_3
04fb e5fe | | Load 0x2,-0x2
04fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04fe 0f01 | | Execute_Immediate Equal,0x1
04ff e5ff | | Load 0x2,-0x1
0500 0279 | y | Execute Discrete,And
0501 6804 |h | Jump_Zero 0x506
0502 4800 |H | Short_Literal 0x0
0503 00db | | Load_Top At_Offset_3
0504 0217 | | Execute Heap_Access,All_Reference
0505 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0506 00da | | Load_Top At_Offset_2
0507 0217 | | Execute Heap_Access,All_Reference
0508 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0509 7003 |p | Jump_Nonzero 0x50d
050a e5fe | | Load 0x2,-0x2
050b 8222 | " | Call 0x1,0x22
050c 8216 | | Call 0x1,0x16
050d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
050e e5fe | | Load 0x2,-0x2
050f 8222 | " | Call 0x1,0x22
0510 8216 | | Call 0x1,0x16
0511 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0512 0000 0000 | | .BLANK 0000[0x6]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0522 | " | .CONST 0x0522 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0004 | | .CONST 0x0004 ; Number of locals
051b INIT_0518:
051b e22e | . | Load 0x1,0x2e
051c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051d 00e1 | | Load_Encached Boolean_Cache
051e e004 | | Load 0x0,0x4
051f e5fe | | Load 0x2,-0x2
0520 8231 | 1 | Call 0x1,0x31
0521 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0522 BODY_0518:
0522 00e1 | | Load_Encached Boolean_Cache
0523 00db | | Load_Top At_Offset_3
0524 00da | | Load_Top At_Offset_2
0525 e22e | . | Load 0x1,0x2e
0526 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0527 e018 | | Load 0x0,0x18
0528 e22e | . | Load 0x1,0x2e
0529 1b15 | | Execute Package,Field_Read,Field_Number 0x15
052a 0096 | | Execute Package,Entry
052b c602 | | Store 0x3,0x2
052c 005a | Z | Store_Top Discrete,At_Offset_2
052d 00d9 | | Load_Top At_Offset_1
052e 6804 |h | Jump_Zero 0x533
052f 4801 |H | Short_Literal 0x1
0530 00db | | Load_Top At_Offset_3
0531 0217 | | Execute Heap_Access,All_Reference
0532 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0533 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0534 0000 0000 | | .BLANK 0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 0547 | G | .CONST 0x0547 ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0003 | | .CONST 0x0003 ; Number of locals
053b INIT_0538:
053b 4803 |H | Short_Literal 0x3
053c e014 | | Load 0x0,0x14
053d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
053e e014 | | Load 0x0,0x14
053f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0540 4820 |H | Short_Literal 0x20
0541 4800 |H | Short_Literal 0x0
0542 480a |H | Short_Literal 0xa
0543 e021 | ! | Load 0x0,0x21
0544 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0545 e022 | " | Load 0x0,0x22
0546 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0547 BODY_0538:
0547 485f |H_ | Short_Literal 0x5f
0548 e402 | | Load 0x2,0x2
0549 00db | | Load_Top At_Offset_3
054a 01cc | | Execute Vector,Catenate
054b 01cb | | Execute Vector,Append
054c 00d9 | | Load_Top At_Offset_1
054d 01cc | | Execute Vector,Catenate
054e 00cb | | Action Pop_Block_With_Result
054f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0555 | U | .CONST 0x0555 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0002 | | .CONST 0x0002 ; Number of locals
0553 INIT_0550:
0553 e402 | | Load 0x2,0x2
0554 821b | | Call 0x1,0x1b
0555 BODY_0550:
0555 00d8 | | Load_Top At_Offset_0
0556 01db | | Execute Vector,Length
0557 6804 |h | Jump_Zero 0x55c
0558 00d8 | | Load_Top At_Offset_0
0559 e5fe | | Load 0x2,-0x2
055a e01b | | Load 0x0,0x1b
055b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
055c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
055d 0000 0000 | | .XXX[0x3]
055f 0000 | |
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0568 | h | .CONST 0x0568 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0002 | | .CONST 0x0002 ; Number of locals
0563 INIT_0560:
0563 e602 | | Load 0x3,0x2
0564 e22f | / | Load 0x1,0x2f
0565 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0566 e21e | | Load 0x1,0x1e
0567 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0568 BODY_0560:
0568 00d8 | | Load_Top At_Offset_0
0569 e21f | | Load 0x1,0x1f
056a 027f | | Execute Discrete,Equal
056b 6810 |h | Jump_Zero 0x57c
056c e7fd | | Load 0x3,-0x3
056d 00ea | | Load_Encached Null_String_Cache
056e e22f | / | Load 0x1,0x2f
056f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0570 00d8 | | Load_Top At_Offset_0
0571 e21e | | Load 0x1,0x1e
0572 0260 | ` | Execute Discrete,In_Type
0573 7001 |p | Jump_Nonzero 0x575
0574 0801 | | Execute_Immediate Raise,0x1
0575 e602 | | Load 0x3,0x2
0576 e22f | / | Load 0x1,0x2f
0577 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0578 e7fc | | Load 0x3,-0x4
0579 8222 | " | Call 0x1,0x22
057a 8215 | | Call 0x1,0x15
057b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
057c 00d8 | | Load_Top At_Offset_0
057d e21e | | Load 0x1,0x1e
057e 026a | j | Execute Discrete,First
057f 027e | ~ | Execute Discrete,Not_Equal
0580 6802 |h | Jump_Zero 0x583
0581 e023 | # | Load 0x0,0x23
0582 0257 | W | Execute Discrete,Raise
0583 e01e | | Load 0x0,0x1e
0584 0257 | W | Execute Discrete,Raise
0585 0000 0000 | | .XXX[0x3]
0587 0000 | |
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058d | | .CONST 0x058d ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0002 | | .CONST 0x0002 ; Number of locals
058b INIT_0588:
058b e002 | | Load 0x0,0x2
058c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
058d BODY_0588:
058d e002 | | Load 0x0,0x2
058e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
058f 490d |I | Short_Literal 0x10d
0590 e011 | | Load 0x0,0x11
0591 180d | | Execute Package,Field_Execute,Field_Number 0xd
0592 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0593 e5fd | | Load 0x2,-0x3
0594 00d9 | | Load_Top At_Offset_1
0595 e406 | | Load 0x2,0x6
0596 e5ff | | Load 0x2,-0x1
0597 8409 | | Call 0x2,0x9
0598 00d1 | | Pop_Control Pop_Count_1
0599 e403 | | Load 0x2,0x3
059a 700e |p | Jump_Nonzero 0x5a9
059b 00d8 | | Load_Top At_Offset_0
059c e5ff | | Load 0x2,-0x1
059d 0f00 | | Execute_Immediate Equal,0x0
059e 0f00 | | Execute_Immediate Equal,0x0
059f 4801 |H | Short_Literal 0x1
05a0 e5fd | | Load 0x2,-0x3
05a1 8222 | " | Call 0x1,0x22
05a2 e20f | | Load 0x1,0xf
05a3 0119 | | Execute Any,Check_In_Formal_Type
05a4 4801 |H | Short_Literal 0x1
05a5 e22e | . | Load 0x1,0x2e
05a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05a7 a402 | | Store_Unchecked 0x2,0x2
05a8 781f |x | Jump 0x5c8
05a9 e22e | . | Load 0x1,0x2e
05aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ab 0322 | " | Declare_Variable Record
05ac 4801 |H | Short_Literal 0x1
05ad 00d9 | | Load_Top At_Offset_1
05ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05af e5fd | | Load 0x2,-0x3
05b0 8222 | " | Call 0x1,0x22
05b1 e20f | | Load 0x1,0xf
05b2 0119 | | Execute Any,Check_In_Formal_Type
05b3 e22e | . | Load 0x1,0x2e
05b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b5 e22e | . | Load 0x1,0x2e
05b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b7 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
05b8 0119 | | Execute Any,Check_In_Formal_Type
05b9 00d9 | | Load_Top At_Offset_1
05ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05bb 4801 |H | Short_Literal 0x1
05bc 00d9 | | Load_Top At_Offset_1
05bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05be e5ff | | Load 0x2,-0x1
05bf 0f00 | | Execute_Immediate Equal,0x0
05c0 0f00 | | Execute_Immediate Equal,0x0
05c1 00d9 | | Load_Top At_Offset_1
05c2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05c3 00d9 | | Load_Top At_Offset_1
05c4 00d9 | | Load_Top At_Offset_1
05c5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05c6 e402 | | Load 0x2,0x2
05c7 0218 | | Execute Heap_Access,All_Write
05c8 e22e | . | Load 0x1,0x2e
05c9 00d8 | | Load_Top At_Offset_0
05ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05cb 4800 |H | Short_Literal 0x0
05cc e402 | | Load 0x2,0x2
05cd e405 | | Load 0x2,0x5
05ce e22e | . | Load 0x1,0x2e
05cf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05d0 e020 | | Load 0x0,0x20
05d1 e22e | . | Load 0x1,0x2e
05d2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
05d3 0096 | | Execute Package,Entry
05d4 00d9 | | Load_Top At_Offset_1
05d5 1a16 | | Execute Package,Field_Write,Field_Number 0x16
05d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05d7 0000 | | .XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05e3 | | .CONST 0x05e3 ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0004 | | .CONST 0x0004 ; Number of locals
05db INIT_05d8:
05db e22e | . | Load 0x1,0x2e
05dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05dd e002 | | Load 0x0,0x2
05de 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
05df e004 | | Load 0x0,0x4
05e0 e5fe | | Load 0x2,-0x2
05e1 8231 | 1 | Call 0x1,0x31
05e2 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05e3 BODY_05d8:
05e3 00d9 | | Load_Top At_Offset_1
05e4 4801 |H | Short_Literal 0x1
05e5 4801 |H | Short_Literal 0x1
05e6 e5fe | | Load 0x2,-0x2
05e7 8222 | " | Call 0x1,0x22
05e8 e20f | | Load 0x1,0xf
05e9 0119 | | Execute Any,Check_In_Formal_Type
05ea 4801 |H | Short_Literal 0x1
05eb e22e | . | Load 0x1,0x2e
05ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ed 0033 | 3 | Store_Top Heap_Access,At_Offset_3
05ee e22e | . | Load 0x1,0x2e
05ef 00d8 | | Load_Top At_Offset_0
05f0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05f1 4800 |H | Short_Literal 0x0
05f2 e802 | | Load 0x4,0x2
05f3 e804 | | Load 0x4,0x4
05f4 e020 | | Load 0x0,0x20
05f5 e22e | . | Load 0x1,0x2e
05f6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
05f7 0096 | | Execute Package,Entry
05f8 00d9 | | Load_Top At_Offset_1
05f9 1a16 | | Execute Package,Field_Write,Field_Number 0x16
05fa 00d1 | | Pop_Control Pop_Count_1
05fb 4801 |H | Short_Literal 0x1
05fc e5fe | | Load 0x2,-0x2
05fd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05fe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 4601 |F | Jump_Case 0x2
0604 7801 |x | Jump 0x606 ; case 0x0
0605 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0606 4800 |H | Short_Literal 0x0
0607 00db | | Load_Top At_Offset_3
0608 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0609 4800 |H | Short_Literal 0x0
060a 00db | | Load_Top At_Offset_3
060b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
060c 00da | | Load_Top At_Offset_2
060d 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
060e 0125 | % | Execute Any,Set_Constraint
060f 00da | | Load_Top At_Offset_2
0610 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0611 1c00 | | Execute_Immediate Run_Utility,0x0
0612 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0613 0000 0000 | | .BLANK 0000[0x5]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b 4601 |F | Jump_Case 0x2
061c 7801 |x | Jump 0x61e ; case 0x0
061d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
061e 00da | | Load_Top At_Offset_2
061f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0620 0125 | % | Execute Any,Set_Constraint
0621 00da | | Load_Top At_Offset_2
0622 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0623 1c00 | | Execute_Immediate Run_Utility,0x0
0624 00da | | Load_Top At_Offset_2
0625 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0626 1c00 | | Execute_Immediate Run_Utility,0x0
0627 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0680 | | .CONST 0x0680 ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 001a | | .CONST 0x001a ; Number of locals
062b INIT_0628:
062b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
062c 00e3 | | Load_Encached Natural_Cache
062d e001 | | Load 0x0,0x1
062e 00e1 | | Load_Encached Boolean_Cache
062f 00e1 | | Load_Encached Boolean_Cache
0630 e002 | | Load 0x0,0x2
0631 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0632 029f 076b | k| Declare_Subprogram INIT_0768,For_Call
0634 4805 |H | Short_Literal 0x5
0635 032e | . | Declare_Type Record,Defined,Visible
0636 00d8 | | Load_Top At_Offset_0
0637 02a0 | | Declare_Subprogram Null_Subprogram
0638 00db | | Load_Top At_Offset_3
0639 03a3 | | Complete_Type Heap_Access,By_Defining
063a 029a 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call,Visible,Unelaborated
063c 029a 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call,Visible,Unelaborated
063e 029a 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Visible,Unelaborated
0640 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated
0642 029a 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Visible,Unelaborated
0644 029a 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call,Visible,Unelaborated
0646 0093 0000 | | push_full_address 0x0
0648 6057 |`W | Indirect_Literal Discrete,0x6a0,{0x80000000, 0x00020000}
0649 0273 | s | Execute Discrete,Plus
064a e003 | | Load 0x0,0x3
064b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064c 604f |`O | Indirect_Literal Discrete,0x69c,{0x00000000, 0x0000ffff}
064d 0279 | y | Execute Discrete,And
064e 0273 | s | Execute Discrete,Plus
064f e004 | | Load 0x0,0x4
0650 0273 | s | Execute Discrete,Plus
0651 483d |H= | Short_Literal 0x3d
0652 e005 | | Load 0x0,0x5
0653 a006 | | Store_Unchecked 0x0,0x6
0654 a007 | | Store_Unchecked 0x0,0x7
0655 a008 | | Store_Unchecked 0x0,0x8
0656 a009 | | Store_Unchecked 0x0,0x9
0657 e20d | | Load 0x1,0xd
0658 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0659 1d11 | | Execute_Immediate Reference_Lex_1,0x11
065a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
065b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
065c a00a | | Store_Unchecked 0x0,0xa
065d e00b | | Load 0x0,0xb
065e 0386 | | Declare_Variable Package,Visible
065f 00d8 | | Load_Top At_Offset_0
0660 020f | | Execute Module,Activate
0661 e00c | | Load 0x0,0xc
0662 00d9 | | Load_Top At_Offset_1
0663 0098 | | Execute Package,Field_Read_Dynamic
0664 0129 | ) | Execute Any,Make_Visible
0665 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated
0667 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated
0669 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated
066b 00bf | | Action Accept_Activation
066c e002 | | Load 0x0,0x2
066d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
066e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
066f 00c7 | | Action Elaborate_Subprogram
0670 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0671 00c7 | | Action Elaborate_Subprogram
0672 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0673 00c7 | | Action Elaborate_Subprogram
0674 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0675 00c7 | | Action Elaborate_Subprogram
0676 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0677 00c7 | | Action Elaborate_Subprogram
0678 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0679 00c7 | | Action Elaborate_Subprogram
067a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
067b 00c7 | | Action Elaborate_Subprogram
067c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
067d 00c7 | | Action Elaborate_Subprogram
067e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
067f 00c7 | | Action Elaborate_Subprogram
0680 BODY_0628:
0680 e002 | | Load 0x0,0x2
0681 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0682 490d |I | Short_Literal 0x10d
0683 e00d | | Load 0x0,0xd
0684 180d | | Execute Package,Field_Execute,Field_Number 0xd
0685 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0686 00d8 | | Load_Top At_Offset_0
0687 e00e | | Load 0x0,0xe
0688 e215 | | Load 0x1,0x15
0689 0096 | | Execute Package,Entry
068a a216 | | Store_Unchecked 0x1,0x16
068b 00bc | | Action Signal_Activated
068c 00bb | | Action Signal_Completion
068d 0000 0000 | | .XXX[0x3]
068f 0000 | |
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0699 | | .CONST 0x0699 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0002 | | .CONST 0x0002 ; Number of locals
0693 INIT_0690:
0693 e20d | | Load 0x1,0xd
0694 e21a | | Load 0x1,0x1a
0695 039c | | Declare_Variable Heap_Access,By_Allocation
0696 00d8 | | Load_Top At_Offset_0
0697 0217 | | Execute Heap_Access,All_Reference
0698 1c00 | | Execute_Immediate Run_Utility,0x0
0699 BODY_0690:
0699 00d8 | | Load_Top At_Offset_0
069a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
069b 0000 | | .XXX[0x1]
069c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
06a0 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
06a4 0000 0000 | | .BLANK 0000[0x4]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06b5 | | .CONST 0x06b5 ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0003 | | .CONST 0x0003 ; Number of locals
06ab INIT_06a8:
06ab e20d | | Load 0x1,0xd
06ac e21a | | Load 0x1,0x1a
06ad 039c | | Declare_Variable Heap_Access,By_Allocation
06ae 00d8 | | Load_Top At_Offset_0
06af 0217 | | Execute Heap_Access,All_Reference
06b0 1c00 | | Execute_Immediate Run_Utility,0x0
06b1 e001 | | Load 0x0,0x1
06b2 02c7 | | Declare_Variable Any
06b3 00d8 | | Load_Top At_Offset_0
06b4 1c00 | | Execute_Immediate Run_Utility,0x0
06b5 BODY_06a8:
06b5 00d8 | | Load_Top At_Offset_0
06b6 00d8 | | Load_Top At_Offset_0
06b7 0120 | | Execute Any,Is_Value
06b8 6803 |h | Jump_Zero 0x6bc
06b9 e001 | | Load 0x0,0x1
06ba 0122 | " | Execute Any,Make_Root_Type
06bb 011e | | Execute Any,Convert
06bc e21a | | Load 0x1,0x1a
06bd e5fe | | Load 0x2,-0x2
06be 800f | | Call 0x0,0xf
06bf c403 | | Store 0x2,0x3
06c0 e20e | | Load 0x1,0xe
06c1 0322 | " | Declare_Variable Record
06c2 4801 |H | Short_Literal 0x1
06c3 00d9 | | Load_Top At_Offset_1
06c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06c5 00d9 | | Load_Top At_Offset_1
06c6 e20e | | Load 0x1,0xe
06c7 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
06c8 0119 | | Execute Any,Check_In_Formal_Type
06c9 00d9 | | Load_Top At_Offset_1
06ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06cb 4801 |H | Short_Literal 0x1
06cc 00d9 | | Load_Top At_Offset_1
06cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06ce 4800 |H | Short_Literal 0x0
06cf 00d9 | | Load_Top At_Offset_1
06d0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06d1 e5fb | | Load 0x2,-0x5
06d2 00d9 | | Load_Top At_Offset_1
06d3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06d4 00da | | Load_Top At_Offset_2
06d5 0218 | | Execute Heap_Access,All_Write
06d6 00d9 | | Load_Top At_Offset_1
06d7 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 00da | | Load_Top At_Offset_2
06dc 6804 |h | Jump_Zero 0x6e1
06dd 00da | | Load_Top At_Offset_2
06de 0217 | | Execute Heap_Access,All_Reference
06df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06e0 6800 |h | Jump_Zero 0x6e1
06e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06e2 0000 0000 | | .BLANK 0000[0x6]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb INIT_06e8:
06eb e5fd | | Load 0x2,-0x3
06ec 8211 | | Call 0x1,0x11
06ed c5fd | | Store 0x2,-0x3
06ee 00db | | Load_Top At_Offset_3
06ef 820f | | Call 0x1,0xf
06f0 a5fd | | Store_Unchecked 0x2,-0x3
06f1 00da | | Load_Top At_Offset_2
06f2 a5fd | | Store_Unchecked 0x2,-0x3
06f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06f4 0000 0000 | | .BLANK 0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06ff | | .CONST 0x06ff ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0002 | | .CONST 0x0002 ; Number of locals
06fb INIT_06f8:
06fb e001 | | Load 0x0,0x1
06fc 02c7 | | Declare_Variable Any
06fd 00d8 | | Load_Top At_Offset_0
06fe 1c00 | | Execute_Immediate Run_Utility,0x0
06ff BODY_06f8:
06ff 00d8 | | Load_Top At_Offset_0
0700 00d8 | | Load_Top At_Offset_0
0701 0120 | | Execute Any,Is_Value
0702 6803 |h | Jump_Zero 0x706
0703 e001 | | Load 0x0,0x1
0704 0122 | " | Execute Any,Make_Root_Type
0705 011e | | Execute Any,Convert
0706 e21a | | Load 0x1,0x1a
0707 e5ff | | Load 0x2,-0x1
0708 800f | | Call 0x0,0xf
0709 c402 | | Store 0x2,0x2
070a 00d8 | | Load_Top At_Offset_0
070b e001 | | Load 0x0,0x1
070c 0119 | | Execute Any,Check_In_Formal_Type
070d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
070e 0000 0000 | | .XXX[0x2]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 INIT_0710:
0713 00da | | Load_Top At_Offset_2
0714 0217 | | Execute Heap_Access,All_Reference
0715 e5fe | | Load 0x2,-0x2
0716 0217 | | Execute Heap_Access,All_Reference
0717 017f | | Execute Record,Equal
0718 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0719 0000 0000 | | .BLANK 0000[0x7]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 00da | | Load_Top At_Offset_2
0724 0217 | | Execute Heap_Access,All_Reference
0725 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0726 0a01 | | Execute_Immediate Plus,0x1
0727 00db | | Load_Top At_Offset_3
0728 0217 | | Execute Heap_Access,All_Reference
0729 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
072a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
072b 0000 0000 | | .BLANK 0000[0x5]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 00da | | Load_Top At_Offset_2
0734 0217 | | Execute Heap_Access,All_Reference
0735 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0736 0c01 | | Execute_Immediate Greater_Equal,0x1
0737 680f |h | Jump_Zero 0x747
0738 00da | | Load_Top At_Offset_2
0739 0217 | | Execute Heap_Access,All_Reference
073a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
073b 0aff | | Execute_Immediate Plus,-0x1
073c 00db | | Load_Top At_Offset_3
073d 0217 | | Execute Heap_Access,All_Reference
073e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
073f 00da | | Load_Top At_Offset_2
0740 0217 | | Execute Heap_Access,All_Reference
0741 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0742 7004 |p | Jump_Nonzero 0x747
0743 4800 |H | Short_Literal 0x0
0744 00db | | Load_Top At_Offset_3
0745 0217 | | Execute Heap_Access,All_Reference
0746 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0747 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 075a | Z | .CONST 0x075a ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0003 | | .CONST 0x0003 ; Number of locals
074b INIT_0748:
074b 00da | | Load_Top At_Offset_2
074c e010 | | Load 0x0,0x10
074d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
074e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
074f 4800 |H | Short_Literal 0x0
0750 4803 |H | Short_Literal 0x3
0751 4804 |H | Short_Literal 0x4
0752 e5ff | | Load 0x2,-0x1
0753 e010 | | Load 0x0,0x10
0754 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0755 180f | | Execute Package,Field_Execute,Field_Number 0xf
0756 e011 | | Load 0x0,0x11
0757 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0758 e011 | | Load 0x0,0x11
0759 181b | | Execute Package,Field_Execute,Field_Number 0x1b
075a BODY_0748:
075a e21a | | Load 0x1,0x1a
075b 485f |H_ | Short_Literal 0x5f
075c 00db | | Load_Top At_Offset_3
075d 01cb | | Execute Vector,Append
075e 00da | | Load_Top At_Offset_2
075f 01cc | | Execute Vector,Catenate
0760 8012 | | Call 0x0,0x12
0761 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0762 0000 0000 | | .BLANK 0000[0x6]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b | k | .CONST 0x076b ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0001 | | .CONST 0x0001 ; Number of locals
076b BODY_0768:
076b INIT_0768:
076b 4601 |F | Jump_Case 0x2
076c 7801 |x | Jump 0x76e ; case 0x0
076d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
076e 4800 |H | Short_Literal 0x0
076f 00db | | Load_Top At_Offset_3
0770 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0771 00da | | Load_Top At_Offset_2
0772 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0773 0125 | % | Execute Any,Set_Constraint
0774 00da | | Load_Top At_Offset_2
0775 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0776 1c00 | | Execute_Immediate Run_Utility,0x0
0777 4800 |H | Short_Literal 0x0
0778 00db | | Load_Top At_Offset_3
0779 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
077a 4800 |H | Short_Literal 0x0
077b 00db | | Load_Top At_Offset_3
077c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
077d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
077e ; --------------------------------------------------------------------------------------
077e ; STRING TABLE
077e ; --------------------------------------------------------------------------------------
077e 000e | | .STRTAB 0x000e->0x0785 ; "others => Unspecified"
077f 0021 | ! | .STRTAB 0x0021->0x078f ; "!machine.temporary.testmate_"
0780 003b | ; | .STRTAB 0x003b->0x079d ; "=>"
0781 003b | ; | .STRTAB 0x003b->0x079e ; "("
0782 003a | : | .STRTAB 0x003a->0x079f ; ")"
0783 0039 | 9 | .STRTAB 0x0039->0x079f ; "_"
0784 0038 | 8 | .STREND 0x0038->0x07a0
0785 6f74 6865 |othe| .STRTAB_STRINGS
07a0 ; --------------------------------------------------------------------------------------
07a0 ; Debug Table
07a0 ; --------------------------------------------------------------------------------------
07a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x71a1,0x0000,0x0001,0x0000
07a6 0000 0000 | | .BLANK 0000[0x5a]