|
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 - metrics - download
Length: 7168 (0x1c00)
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 0c28 | ( | .CONST 0x0c28 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0142 | B | .CONST 0x0142 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0035 | 5 | .CONST 0x0035 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | PushFullAddress InMicrocode
000d 6186 |a | Indirect_Literal Discrete,0x194,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 0093 0000 | | PushFullAddress InMicrocode
0012 617d |a} | Indirect_Literal Discrete,0x190,{0x80000000, 0x00020000}
0013 0273 | s | Execute Discrete,Plus
0014 0129 | ) | Execute Any,Make_Visible
0015 4800 |H | Short_Literal 0x0
0016 4801 |H | Short_Literal 0x1
0017 029f 0163 | c| Declare_Subprogram For_Call,INIT_0160
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
001c 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
001e 029a 028b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0288
0020 029a 02fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02f8
0022 029a 037b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0378
0024 029a 03bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b8
0026 029a 040b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0408
0028 029a 045b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0458
002a 029a 04b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04b0
002c 029a 0533 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0530
002e 029a 05b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05b0
0030 00bf | | Action Accept_Activation
0031 00e1 | | Load_Encached Boolean_Cache
0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0033 e002 | | Load 0x0,0x2
0034 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0035 e003 | | Load 0x0,0x3
0036 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0037 00e1 | | Load_Encached Boolean_Cache
0038 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0039 00e9 | | Load_Encached String_Cache
003a 02a0 | | Declare_Subprogram Null_Subprogram
003b 03ad | | Declare_Type Heap_Access,Defined
003c 00e9 | | Load_Encached String_Cache
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 03ad | | Declare_Type Heap_Access,Defined
003f 4800 |H | Short_Literal 0x0
0040 4804 |H | Short_Literal 0x4
0041 029f 05fb | | Declare_Subprogram For_Call,INIT_05f8
0043 03fd | | Declare_Type Discrete,Defined
0044 00d8 | | Load_Top At_Offset_0
0045 4801 |H | Short_Literal 0x1
0046 00e1 | | Load_Encached Boolean_Cache
0047 4801 |H | Short_Literal 0x1
0048 00e2 | | Load_Encached Integer_Cache
0049 4801 |H | Short_Literal 0x1
004a e21e | | Load 0x1,0x1e
004b 4801 |H | Short_Literal 0x1
004c e21e | | Load 0x1,0x1e
004d 029f 0623 | #| Declare_Subprogram For_Call,INIT_0620
004f 4804 |H | Short_Literal 0x4
0050 4800 |H | Short_Literal 0x0
0051 4804 |H | Short_Literal 0x4
0052 4800 |H | Short_Literal 0x0
0053 4801 |H | Short_Literal 0x1
0054 031d | | Declare_Type Variant_Record,Defined
0055 00db | | Load_Top At_Offset_3
0056 00d9 | | Load_Top At_Offset_1
0057 e21e | | Load 0x1,0x1e
0058 029f 0683 | | Declare_Subprogram For_Call,INIT_0680
005a 4803 |H | Short_Literal 0x3
005b 032d | - | Declare_Type Record,Defined
005c 029b 0693 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0690
005e 029b 06a3 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_06a0
0060 e004 | | Load 0x0,0x4
0061 e005 | | Load 0x0,0x5
0062 00e3 | | Load_Encached Natural_Cache
0063 e222 | " | Load 0x1,0x22
0064 00e3 | | Load_Encached Natural_Cache
0065 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0066 e006 | | Load 0x0,0x6
0067 0387 | | Declare_Variable Package
0068 00d8 | | Load_Top At_Offset_0
0069 020f | | Execute Module,Activate
006a 00d8 | | Load_Top At_Offset_0
006b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
006c 00e3 | | Load_Encached Natural_Cache
006d 029f 06ab | | Declare_Subprogram For_Call,INIT_06a8
006f 4802 |H | Short_Literal 0x2
0070 032d | - | Declare_Type Record,Defined
0071 e20f | | Load 0x1,0xf
0072 0266 | f | Execute Discrete,Bounds
0073 00da | | Load_Top At_Offset_2
0074 029f 06bb | | Declare_Subprogram For_Call,INIT_06b8
0076 4801 |H | Short_Literal 0x1
0077 035d | ] | Declare_Type Array,Defined
0078 00d8 | | Load_Top At_Offset_0
0079 0337 | 7 | Declare_Variable Array
007a 00d8 | | Load_Top At_Offset_0
007b 1c00 | | Execute_Immediate Run_Utility,0x0
007c 00db | | Load_Top At_Offset_3
007d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
007e 02a0 | | Declare_Subprogram Null_Subprogram
007f 03ad | | Declare_Type Heap_Access,Defined
0080 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0081 00c7 | | Action Elaborate_Subprogram
0082 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0083 00c7 | | Action Elaborate_Subprogram
0084 029d 06d3 | | Declare_Subprogram For_Outer_Call,INIT_06d0
0086 029d 06db | | Declare_Subprogram For_Outer_Call,INIT_06d8
0088 4802 |H | Short_Literal 0x2
0089 0093 079b | | PushFullAddress InMicrocode,INIT_0798
008b 02a0 | | Declare_Subprogram Null_Subprogram
008c 038c | | Declare_Type Package,Defined,Not_Elaborated
008d 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
008e e007 | | Load 0x0,0x7
008f e008 | | Load 0x0,0x8
0090 e009 | | Load 0x0,0x9
0091 e228 | ( | Load 0x1,0x28
0092 e225 | % | Load 0x1,0x25
0093 e00a | | Load 0x0,0xa
0094 e00b | | Load 0x0,0xb
0095 e222 | " | Load 0x1,0x22
0096 e00c | | Load 0x0,0xc
0097 e00d | | Load 0x0,0xd
0098 480b |H | Short_Literal 0xb
0099 e22c | , | Load 0x1,0x2c
009a 020e | | Execute Module,Augment_Imports
009b 00d8 | | Load_Top At_Offset_0
009c 020d | | Execute Module,Elaborate
009d 0007 | | Action Break_Optional
009e 0093 0000 | | PushFullAddress InMicrocode
00a0 60eb |` | Indirect_Literal Discrete,0x18c,{0x80000000, 0x00080000}
00a1 0273 | s | Execute Discrete,Plus
00a2 e00e | | Load 0x0,0xe
00a3 0273 | s | Execute Discrete,Plus
00a4 e00f | | Load 0x0,0xf
00a5 0273 | s | Execute Discrete,Plus
00a6 4800 |H | Short_Literal 0x0
00a7 00da | | Load_Top At_Offset_2
00a8 0387 | | Declare_Variable Package
00a9 00d8 | | Load_Top At_Offset_0
00aa 020f | | Execute Module,Activate
00ab 0093 0000 | | PushFullAddress InMicrocode
00ad 60da |` | Indirect_Literal Discrete,0x188,{0x80000000, 0x00070000}
00ae 0273 | s | Execute Discrete,Plus
00af e00e | | Load 0x0,0xe
00b0 0273 | s | Execute Discrete,Plus
00b1 e010 | | Load 0x0,0x10
00b2 0273 | s | Execute Discrete,Plus
00b3 4801 |H | Short_Literal 0x1
00b4 00db | | Load_Top At_Offset_3
00b5 0387 | | Declare_Variable Package
00b6 00d8 | | Load_Top At_Offset_0
00b7 020f | | Execute Module,Activate
00b8 e011 | | Load 0x0,0x11
00b9 e012 | | Load 0x0,0x12
00ba 4800 |H | Short_Literal 0x0
00bb 8223 | # | Call 0x1,0x23
00bc 4801 |H | Short_Literal 0x1
00bd e00b | | Load 0x0,0xb
00be 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00bf 0387 | | Declare_Variable Package
00c0 00d8 | | Load_Top At_Offset_0
00c1 020f | | Execute Module,Activate
00c2 e013 | | Load 0x0,0x13
00c3 e014 | | Load 0x0,0x14
00c4 00e3 | | Load_Encached Natural_Cache
00c5 00e9 | | Load_Encached String_Cache
00c6 e21f | | Load 0x1,0x1f
00c7 484c |HL | Short_Literal 0x4c
00c8 e22d | - | Load 0x1,0x2d
00c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ca e22d | - | Load 0x1,0x2d
00cb 1910 | | Execute Package,Field_Reference,Field_Number 0x10
00cc e22d | - | Load 0x1,0x2d
00cd 1911 | | Execute Package,Field_Reference,Field_Number 0x11
00ce e22d | - | Load 0x1,0x2d
00cf 1912 | | Execute Package,Field_Reference,Field_Number 0x12
00d0 e22d | - | Load 0x1,0x2d
00d1 1913 | | Execute Package,Field_Reference,Field_Number 0x13
00d2 e22d | - | Load 0x1,0x2d
00d3 1914 | | Execute Package,Field_Reference,Field_Number 0x14
00d4 00ea | | Load_Encached Null_String_Cache
00d5 e22d | - | Load 0x1,0x2d
00d6 1915 | | Execute Package,Field_Reference,Field_Number 0x15
00d7 e00b | | Load 0x0,0xb
00d8 191f | | Execute Package,Field_Reference,Field_Number 0x1f
00d9 e22f | / | Load 0x1,0x2f
00da 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00db 0387 | | Declare_Variable Package
00dc 00d8 | | Load_Top At_Offset_0
00dd 020f | | Execute Module,Activate
00de e015 | | Load 0x0,0x15
00df e016 | | Load 0x0,0x16
00e0 4800 |H | Short_Literal 0x0
00e1 822a | * | Call 0x1,0x2a
00e2 4801 |H | Short_Literal 0x1
00e3 e00b | | Load 0x0,0xb
00e4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00e5 0387 | | Declare_Variable Package
00e6 00d8 | | Load_Top At_Offset_0
00e7 020f | | Execute Module,Activate
00e8 e017 | | Load 0x0,0x17
00e9 e018 | | Load 0x0,0x18
00ea 00e3 | | Load_Encached Natural_Cache
00eb 00e9 | | Load_Encached String_Cache
00ec e21f | | Load 0x1,0x1f
00ed 484c |HL | Short_Literal 0x4c
00ee e22d | - | Load 0x1,0x2d
00ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f0 e22d | - | Load 0x1,0x2d
00f1 1910 | | Execute Package,Field_Reference,Field_Number 0x10
00f2 e22d | - | Load 0x1,0x2d
00f3 1911 | | Execute Package,Field_Reference,Field_Number 0x11
00f4 e22d | - | Load 0x1,0x2d
00f5 1912 | | Execute Package,Field_Reference,Field_Number 0x12
00f6 e22d | - | Load 0x1,0x2d
00f7 1913 | | Execute Package,Field_Reference,Field_Number 0x13
00f8 e22d | - | Load 0x1,0x2d
00f9 1914 | | Execute Package,Field_Reference,Field_Number 0x14
00fa 00ea | | Load_Encached Null_String_Cache
00fb e22d | - | Load 0x1,0x2d
00fc 1915 | | Execute Package,Field_Reference,Field_Number 0x15
00fd e00b | | Load 0x0,0xb
00fe 191f | | Execute Package,Field_Reference,Field_Number 0x1f
00ff e231 | 1 | Load 0x1,0x31
0100 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0101 0387 | | Declare_Variable Package
0102 00d8 | | Load_Top At_Offset_0
0103 020f | | Execute Module,Activate
0104 e019 | | Load 0x0,0x19
0105 e01a | | Load 0x0,0x1a
0106 4801 |H | Short_Literal 0x1
0107 8223 | # | Call 0x1,0x23
0108 4801 |H | Short_Literal 0x1
0109 e00b | | Load 0x0,0xb
010a 1b20 | | Execute Package,Field_Read,Field_Number 0x20
010b 0387 | | Declare_Variable Package
010c 00d8 | | Load_Top At_Offset_0
010d 020f | | Execute Module,Activate
010e e01b | | Load 0x0,0x1b
010f e01c | | Load 0x0,0x1c
0110 00e3 | | Load_Encached Natural_Cache
0111 00e9 | | Load_Encached String_Cache
0112 e21f | | Load 0x1,0x1f
0113 4853 |HS | Short_Literal 0x53
0114 e22e | . | Load 0x1,0x2e
0115 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0116 e22e | . | Load 0x1,0x2e
0117 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0118 e22e | . | Load 0x1,0x2e
0119 1911 | | Execute Package,Field_Reference,Field_Number 0x11
011a e22e | . | Load 0x1,0x2e
011b 1912 | | Execute Package,Field_Reference,Field_Number 0x12
011c e22e | . | Load 0x1,0x2e
011d 1913 | | Execute Package,Field_Reference,Field_Number 0x13
011e e22e | . | Load 0x1,0x2e
011f 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0120 00ea | | Load_Encached Null_String_Cache
0121 e22e | . | Load 0x1,0x2e
0122 1915 | | Execute Package,Field_Reference,Field_Number 0x15
0123 e00b | | Load 0x0,0xb
0124 191f | | Execute Package,Field_Reference,Field_Number 0x1f
0125 e233 | 3 | Load 0x1,0x33
0126 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0127 0387 | | Declare_Variable Package
0128 00d8 | | Load_Top At_Offset_0
0129 020f | | Execute Module,Activate
012a 029d 075b | [| Declare_Subprogram For_Outer_Call,INIT_0758
012c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
012d 00c7 | | Action Elaborate_Subprogram
012e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
012f 00c7 | | Action Elaborate_Subprogram
0130 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0131 00c7 | | Action Elaborate_Subprogram
0132 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0133 00c7 | | Action Elaborate_Subprogram
0134 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0135 00c7 | | Action Elaborate_Subprogram
0136 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0137 00c7 | | Action Elaborate_Subprogram
0138 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0139 00c7 | | Action Elaborate_Subprogram
013a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
013b 00c7 | | Action Elaborate_Subprogram
013c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
013d 00c7 | | Action Elaborate_Subprogram
013e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
013f 00c7 | | Action Elaborate_Subprogram
0140 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0141 00c7 | | Action Elaborate_Subprogram
0142 BODY_0008:
0142 4800 |H | Short_Literal 0x0
0143 e228 | ( | Load 0x1,0x28
0144 01d5 | | Execute Vector,Field_Reference
0145 e225 | % | Load 0x1,0x25
0146 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0147 e21c | | Load 0x1,0x1c
0148 e225 | % | Load 0x1,0x25
0149 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014a 00d9 | | Load_Top At_Offset_1
014b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014c 00d1 | | Pop_Control Pop_Count_1
014d 4801 |H | Short_Literal 0x1
014e e228 | ( | Load 0x1,0x28
014f 01d5 | | Execute Vector,Field_Reference
0150 e225 | % | Load 0x1,0x25
0151 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0152 e21c | | Load 0x1,0x1c
0153 e225 | % | Load 0x1,0x25
0154 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0155 00d9 | | Load_Top At_Offset_1
0156 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0157 00d1 | | Pop_Control Pop_Count_1
0158 00bc | | Action Signal_Activated
0159 00bb | | Action Signal_Completion
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4607 |F | Jump_Case 0x7
0164 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0165 7807 |x | Jump 0x16d ; case 0x1
0166 780a |x | Jump 0x171 ; case 0x2
0167 780e |x | Jump 0x176 ; case 0x3
0168 7811 |x | Jump 0x17a ; case 0x4
0169 7812 |x | Jump 0x17c ; case 0x5
016a 7813 |x | Jump 0x17e ; case 0x6
016b 7816 |x | Jump 0x182 ; case 0x7
016c 4302 |C | .XXX[0x1]
016d 00da | | Load_Top At_Offset_2
016e 0091 0b2c | ,| Action Push_String_Extended_Indexed,0xb2c ; "LIBRARY_SWITCH"
0170 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0171 00db | | Load_Top At_Offset_3
0172 00db | | Load_Top At_Offset_3
0173 00e0 | | Load_Encached Standard_Cache
0174 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0175 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0176 00da | | Load_Top At_Offset_2
0177 00e0 | | Load_Encached Standard_Cache
0178 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0179 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
017a 00db | | Load_Top At_Offset_3
017b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
017c 00db | | Load_Top At_Offset_3
017d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
017e e20f | | Load 0x1,0xf
017f 00dc | | Load_Top At_Offset_4
0180 0267 | g | Execute Discrete,Predecessor
0181 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0182 e20f | | Load 0x1,0xf
0183 00dc | | Load_Top At_Offset_4
0184 0268 | h | Execute Discrete,Successor
0185 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0186 0000 0000 | | .XXX[0x2]
0188 8000 0000 | | .LITERAL {0x80000000, 0x00070000}
018c 8000 0000 | | .LITERAL {0x80000000, 0x00080000}
0190 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0194 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01bd | | .CONST 0x01bd ; Address of begin
0199 0209 | | .CONST 0x0209 ; Address of exception handler
019a 0005 | | .CONST 0x0005 ; Number of locals
019b INIT_0198:
019b 00e3 | | Load_Encached Natural_Cache
019c 4801 |H | Short_Literal 0x1
019d e5fe | | Load 0x2,-0x2
019e 01db | | Execute Vector,Length
019f 00d8 | | Load_Top At_Offset_0
01a0 00e2 | | Load_Encached Integer_Cache
01a1 0260 | ` | Execute Discrete,In_Type
01a2 7001 |p | Jump_Nonzero 0x1a4
01a3 0801 | | Execute_Immediate Raise,0x1
01a4 e21e | | Load 0x1,0x1e
01a5 e21c | | Load 0x1,0x1c
01a6 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
01a7 4801 |H | Short_Literal 0x1
01a8 e5ff | | Load 0x2,-0x1
01a9 01db | | Execute Vector,Length
01aa 00d8 | | Load_Top At_Offset_0
01ab 00e2 | | Load_Encached Integer_Cache
01ac 0260 | ` | Execute Discrete,In_Type
01ad 7001 |p | Jump_Nonzero 0x1af
01ae 0801 | | Execute_Immediate Raise,0x1
01af e21e | | Load 0x1,0x1e
01b0 e21c | | Load 0x1,0x1c
01b1 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
01b2 4801 |H | Short_Literal 0x1
01b3 e5fd | | Load 0x2,-0x3
01b4 01db | | Execute Vector,Length
01b5 00d8 | | Load_Top At_Offset_0
01b6 00e2 | | Load_Encached Integer_Cache
01b7 0260 | ` | Execute Discrete,In_Type
01b8 7001 |p | Jump_Nonzero 0x1ba
01b9 0801 | | Execute_Immediate Raise,0x1
01ba e21e | | Load 0x1,0x1e
01bb e21c | | Load 0x1,0x1c
01bc 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
01bd BODY_0198:
01bd e5fe | | Load 0x2,-0x2
01be 00db | | Load_Top At_Offset_3
01bf 0218 | | Execute Heap_Access,All_Write
01c0 e5ff | | Load 0x2,-0x1
01c1 00da | | Load_Top At_Offset_2
01c2 0218 | | Execute Heap_Access,All_Write
01c3 e5fd | | Load 0x2,-0x3
01c4 00d9 | | Load_Top At_Offset_1
01c5 0218 | | Execute Heap_Access,All_Write
01c6 e5fc | | Load 0x2,-0x4
01c7 e5ff | | Load 0x2,-0x1
01c8 8214 | | Call 0x1,0x14
01c9 680d |h | Jump_Zero 0x1d7
01ca e007 | | Load 0x0,0x7
01cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
01cc 4807 |H | Short_Literal 0x7
01cd 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
01cf e5ff | | Load 0x2,-0x1
01d0 01cc | | Execute Vector,Catenate
01d1 0092 0b34 | 4| Action Push_String_Extended,0xb34 ; " is already defined"
01d3 01cc | | Execute Vector,Catenate
01d4 e008 | | Load 0x0,0x8
01d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d6 4505 |E | Exit_Subprogram 0x5
01d7 4800 |H | Short_Literal 0x0
01d8 e222 | " | Load 0x1,0x22
01d9 0322 | " | Declare_Variable Record
01da 00db | | Load_Top At_Offset_3
01db 00d9 | | Load_Top At_Offset_1
01dc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01dd 4802 |H | Short_Literal 0x2
01de e221 | ! | Load 0x1,0x21
01df 1c08 | | Execute_Immediate Run_Utility,0x8
01e0 e403 | | Load 0x2,0x3
01e1 00d9 | | Load_Top At_Offset_1
01e2 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01e3 00d9 | | Load_Top At_Offset_1
01e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e5 00da | | Load_Top At_Offset_2
01e6 00d9 | | Load_Top At_Offset_1
01e7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e8 e5fc | | Load 0x2,-0x4
01e9 e228 | ( | Load 0x1,0x28
01ea 01d5 | | Execute Vector,Field_Reference
01eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ec e5fc | | Load 0x2,-0x4
01ed e228 | ( | Load 0x1,0x28
01ee 01d5 | | Execute Vector,Field_Reference
01ef 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f0 e225 | % | Load 0x1,0x25
01f1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01f2 00e3 | | Load_Encached Natural_Cache
01f3 e5fc | | Load 0x2,-0x4
01f4 e5ff | | Load 0x2,-0x1
01f5 8235 | 5 | Call 0x1,0x35
01f6 c402 | | Store 0x2,0x2
01f7 00db | | Load_Top At_Offset_3
01f8 e5fc | | Load 0x2,-0x4
01f9 e228 | ( | Load 0x1,0x28
01fa 01d5 | | Execute Vector,Field_Reference
01fb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fc 027f | | Execute Discrete,Equal
01fd 7001 |p | Jump_Nonzero 0x1ff
01fe 0887 | | Execute_Immediate Raise,0x87
01ff e5fc | | Load 0x2,-0x4
0200 e228 | ( | Load 0x1,0x28
0201 01d5 | | Execute Vector,Field_Reference
0202 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0203 0a01 | | Execute_Immediate Plus,0x1
0204 e5fc | | Load 0x2,-0x4
0205 e228 | ( | Load 0x1,0x28
0206 01d5 | | Execute Vector,Field_Reference
0207 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0208 4505 |E | Exit_Subprogram 0x5
0209 TRAP_0198:
0209 0007 | | Action Break_Optional
020a e007 | | Load 0x0,0x7
020b 180e | | Execute Package,Field_Execute,Field_Number 0xe
020c 4808 |H | Short_Literal 0x8
020d 4800 |H | Short_Literal 0x0
020e 4801 |H | Short_Literal 0x1
020f e00a | | Load 0x0,0xa
0210 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0211 e008 | | Load 0x0,0x8
0212 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0213 4505 |E | Exit_Subprogram 0x5
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0232 | 2 | .CONST 0x0232 ; Address of begin
0219 027b | { | .CONST 0x027b ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b 00e3 | | Load_Encached Natural_Cache
021c 4801 |H | Short_Literal 0x1
021d e5ff | | Load 0x2,-0x1
021e 01db | | Execute Vector,Length
021f 00d8 | | Load_Top At_Offset_0
0220 00e2 | | Load_Encached Integer_Cache
0221 0260 | ` | Execute Discrete,In_Type
0222 7001 |p | Jump_Nonzero 0x224
0223 0801 | | Execute_Immediate Raise,0x1
0224 e21e | | Load 0x1,0x1e
0225 e21c | | Load 0x1,0x1c
0226 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0227 4801 |H | Short_Literal 0x1
0228 e5fd | | Load 0x2,-0x3
0229 01db | | Execute Vector,Length
022a 00d8 | | Load_Top At_Offset_0
022b 00e2 | | Load_Encached Integer_Cache
022c 0260 | ` | Execute Discrete,In_Type
022d 7001 |p | Jump_Nonzero 0x22f
022e 0801 | | Execute_Immediate Raise,0x1
022f e21e | | Load 0x1,0x1e
0230 e21c | | Load 0x1,0x1c
0231 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0232 BODY_0218:
0232 e5ff | | Load 0x2,-0x1
0233 00da | | Load_Top At_Offset_2
0234 0218 | | Execute Heap_Access,All_Write
0235 e5fd | | Load 0x2,-0x3
0236 00d9 | | Load_Top At_Offset_1
0237 0218 | | Execute Heap_Access,All_Write
0238 e5fc | | Load 0x2,-0x4
0239 e5ff | | Load 0x2,-0x1
023a 8214 | | Call 0x1,0x14
023b 680d |h | Jump_Zero 0x249
023c e007 | | Load 0x0,0x7
023d 180e | | Execute Package,Field_Execute,Field_Number 0xe
023e 4807 |H | Short_Literal 0x7
023f 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
0241 e5ff | | Load 0x2,-0x1
0242 01cc | | Execute Vector,Catenate
0243 0092 0b34 | 4| Action Push_String_Extended,0xb34 ; " is already defined"
0245 01cc | | Execute Vector,Catenate
0246 e008 | | Load 0x0,0x8
0247 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0248 4505 |E | Exit_Subprogram 0x5
0249 4800 |H | Short_Literal 0x0
024a e222 | " | Load 0x1,0x22
024b 0322 | " | Declare_Variable Record
024c 00db | | Load_Top At_Offset_3
024d 00d9 | | Load_Top At_Offset_1
024e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
024f 4800 |H | Short_Literal 0x0
0250 e221 | ! | Load 0x1,0x21
0251 1c08 | | Execute_Immediate Run_Utility,0x8
0252 e5fe | | Load 0x2,-0x2
0253 00d9 | | Load_Top At_Offset_1
0254 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0255 00d9 | | Load_Top At_Offset_1
0256 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0257 00da | | Load_Top At_Offset_2
0258 00d9 | | Load_Top At_Offset_1
0259 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
025a e5fc | | Load 0x2,-0x4
025b e228 | ( | Load 0x1,0x28
025c 01d5 | | Execute Vector,Field_Reference
025d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025e e5fc | | Load 0x2,-0x4
025f e228 | ( | Load 0x1,0x28
0260 01d5 | | Execute Vector,Field_Reference
0261 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0262 e225 | % | Load 0x1,0x25
0263 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0264 00e3 | | Load_Encached Natural_Cache
0265 e5fc | | Load 0x2,-0x4
0266 e5ff | | Load 0x2,-0x1
0267 8235 | 5 | Call 0x1,0x35
0268 005b | [ | Store_Top Discrete,At_Offset_3
0269 00da | | Load_Top At_Offset_2
026a e5fc | | Load 0x2,-0x4
026b e228 | ( | Load 0x1,0x28
026c 01d5 | | Execute Vector,Field_Reference
026d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
026e 027f | | Execute Discrete,Equal
026f 7001 |p | Jump_Nonzero 0x271
0270 0887 | | Execute_Immediate Raise,0x87
0271 e5fc | | Load 0x2,-0x4
0272 e228 | ( | Load 0x1,0x28
0273 01d5 | | Execute Vector,Field_Reference
0274 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0275 0a01 | | Execute_Immediate Plus,0x1
0276 e5fc | | Load 0x2,-0x4
0277 e228 | ( | Load 0x1,0x28
0278 01d5 | | Execute Vector,Field_Reference
0279 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027a 4505 |E | Exit_Subprogram 0x5
027b TRAP_0218:
027b 0007 | | Action Break_Optional
027c e007 | | Load 0x0,0x7
027d 180e | | Execute Package,Field_Execute,Field_Number 0xe
027e 4808 |H | Short_Literal 0x8
027f 4800 |H | Short_Literal 0x0
0280 4801 |H | Short_Literal 0x1
0281 e00a | | Load 0x0,0xa
0282 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0283 e008 | | Load 0x0,0x8
0284 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0285 4505 |E | Exit_Subprogram 0x5
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 02a2 | | .CONST 0x02a2 ; Address of begin
0289 02eb | | .CONST 0x02eb ; Address of exception handler
028a 0004 | | .CONST 0x0004 ; Number of locals
028b INIT_0288:
028b 00e3 | | Load_Encached Natural_Cache
028c 4801 |H | Short_Literal 0x1
028d e5ff | | Load 0x2,-0x1
028e 01db | | Execute Vector,Length
028f 00d8 | | Load_Top At_Offset_0
0290 00e2 | | Load_Encached Integer_Cache
0291 0260 | ` | Execute Discrete,In_Type
0292 7001 |p | Jump_Nonzero 0x294
0293 0801 | | Execute_Immediate Raise,0x1
0294 e21e | | Load 0x1,0x1e
0295 e21c | | Load 0x1,0x1c
0296 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0297 4801 |H | Short_Literal 0x1
0298 e5fd | | Load 0x2,-0x3
0299 01db | | Execute Vector,Length
029a 00d8 | | Load_Top At_Offset_0
029b 00e2 | | Load_Encached Integer_Cache
029c 0260 | ` | Execute Discrete,In_Type
029d 7001 |p | Jump_Nonzero 0x29f
029e 0801 | | Execute_Immediate Raise,0x1
029f e21e | | Load 0x1,0x1e
02a0 e21c | | Load 0x1,0x1c
02a1 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
02a2 BODY_0288:
02a2 e5ff | | Load 0x2,-0x1
02a3 00da | | Load_Top At_Offset_2
02a4 0218 | | Execute Heap_Access,All_Write
02a5 e5fd | | Load 0x2,-0x3
02a6 00d9 | | Load_Top At_Offset_1
02a7 0218 | | Execute Heap_Access,All_Write
02a8 e5fc | | Load 0x2,-0x4
02a9 e5ff | | Load 0x2,-0x1
02aa 8214 | | Call 0x1,0x14
02ab 680d |h | Jump_Zero 0x2b9
02ac e007 | | Load 0x0,0x7
02ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ae 4807 |H | Short_Literal 0x7
02af 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
02b1 e5ff | | Load 0x2,-0x1
02b2 01cc | | Execute Vector,Catenate
02b3 0092 0b34 | 4| Action Push_String_Extended,0xb34 ; " is already defined"
02b5 01cc | | Execute Vector,Catenate
02b6 e008 | | Load 0x0,0x8
02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b8 4505 |E | Exit_Subprogram 0x5
02b9 4800 |H | Short_Literal 0x0
02ba e222 | " | Load 0x1,0x22
02bb 0322 | " | Declare_Variable Record
02bc 00db | | Load_Top At_Offset_3
02bd 00d9 | | Load_Top At_Offset_1
02be 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02bf 4801 |H | Short_Literal 0x1
02c0 e221 | ! | Load 0x1,0x21
02c1 1c08 | | Execute_Immediate Run_Utility,0x8
02c2 e5fe | | Load 0x2,-0x2
02c3 00d9 | | Load_Top At_Offset_1
02c4 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02c5 00d9 | | Load_Top At_Offset_1
02c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02c7 00da | | Load_Top At_Offset_2
02c8 00d9 | | Load_Top At_Offset_1
02c9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ca e5fc | | Load 0x2,-0x4
02cb e228 | ( | Load 0x1,0x28
02cc 01d5 | | Execute Vector,Field_Reference
02cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ce e5fc | | Load 0x2,-0x4
02cf e228 | ( | Load 0x1,0x28
02d0 01d5 | | Execute Vector,Field_Reference
02d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d2 e225 | % | Load 0x1,0x25
02d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d4 00e3 | | Load_Encached Natural_Cache
02d5 e5fc | | Load 0x2,-0x4
02d6 e5ff | | Load 0x2,-0x1
02d7 8235 | 5 | Call 0x1,0x35
02d8 005b | [ | Store_Top Discrete,At_Offset_3
02d9 00da | | Load_Top At_Offset_2
02da e5fc | | Load 0x2,-0x4
02db e228 | ( | Load 0x1,0x28
02dc 01d5 | | Execute Vector,Field_Reference
02dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02de 027f | | Execute Discrete,Equal
02df 7001 |p | Jump_Nonzero 0x2e1
02e0 0887 | | Execute_Immediate Raise,0x87
02e1 e5fc | | Load 0x2,-0x4
02e2 e228 | ( | Load 0x1,0x28
02e3 01d5 | | Execute Vector,Field_Reference
02e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e5 0a01 | | Execute_Immediate Plus,0x1
02e6 e5fc | | Load 0x2,-0x4
02e7 e228 | ( | Load 0x1,0x28
02e8 01d5 | | Execute Vector,Field_Reference
02e9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ea 4505 |E | Exit_Subprogram 0x5
02eb TRAP_0288:
02eb 0007 | | Action Break_Optional
02ec e007 | | Load 0x0,0x7
02ed 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ee 4808 |H | Short_Literal 0x8
02ef 4800 |H | Short_Literal 0x0
02f0 4801 |H | Short_Literal 0x1
02f1 e00a | | Load 0x0,0xa
02f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f3 e008 | | Load 0x0,0x8
02f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f5 4505 |E | Exit_Subprogram 0x5
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0321 | ! | .CONST 0x0321 ; Address of begin
02f9 036d | m | .CONST 0x036d ; Address of exception handler
02fa 0006 | | .CONST 0x0006 ; Number of locals
02fb INIT_02f8:
02fb 00db | | Load_Top At_Offset_3
02fc e00c | | Load 0x0,0xc
02fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fe 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02ff 00e3 | | Load_Encached Natural_Cache
0300 4801 |H | Short_Literal 0x1
0301 00da | | Load_Top At_Offset_2
0302 01db | | Execute Vector,Length
0303 00d8 | | Load_Top At_Offset_0
0304 00e2 | | Load_Encached Integer_Cache
0305 0260 | ` | Execute Discrete,In_Type
0306 7001 |p | Jump_Nonzero 0x308
0307 0801 | | Execute_Immediate Raise,0x1
0308 e21e | | Load 0x1,0x1e
0309 e21c | | Load 0x1,0x1c
030a 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
030b 4801 |H | Short_Literal 0x1
030c e5ff | | Load 0x2,-0x1
030d 01db | | Execute Vector,Length
030e 00d8 | | Load_Top At_Offset_0
030f 00e2 | | Load_Encached Integer_Cache
0310 0260 | ` | Execute Discrete,In_Type
0311 7001 |p | Jump_Nonzero 0x313
0312 0801 | | Execute_Immediate Raise,0x1
0313 e21e | | Load 0x1,0x1e
0314 e21c | | Load 0x1,0x1c
0315 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0316 4801 |H | Short_Literal 0x1
0317 e5fd | | Load 0x2,-0x3
0318 01db | | Execute Vector,Length
0319 00d8 | | Load_Top At_Offset_0
031a 00e2 | | Load_Encached Integer_Cache
031b 0260 | ` | Execute Discrete,In_Type
031c 7001 |p | Jump_Nonzero 0x31e
031d 0801 | | Execute_Immediate Raise,0x1
031e e21e | | Load 0x1,0x1e
031f e21c | | Load 0x1,0x1c
0320 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0321 BODY_02f8:
0321 e402 | | Load 0x2,0x2
0322 00db | | Load_Top At_Offset_3
0323 0218 | | Execute Heap_Access,All_Write
0324 e5ff | | Load 0x2,-0x1
0325 00da | | Load_Top At_Offset_2
0326 0218 | | Execute Heap_Access,All_Write
0327 e5fd | | Load 0x2,-0x3
0328 00d9 | | Load_Top At_Offset_1
0329 0218 | | Execute Heap_Access,All_Write
032a e5fc | | Load 0x2,-0x4
032b e5ff | | Load 0x2,-0x1
032c 8214 | | Call 0x1,0x14
032d 680d |h | Jump_Zero 0x33b
032e e007 | | Load 0x0,0x7
032f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0330 4807 |H | Short_Literal 0x7
0331 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
0333 e5ff | | Load 0x2,-0x1
0334 01cc | | Execute Vector,Catenate
0335 0092 0b34 | 4| Action Push_String_Extended,0xb34 ; " is already defined"
0337 01cc | | Execute Vector,Catenate
0338 e008 | | Load 0x0,0x8
0339 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033a 4505 |E | Exit_Subprogram 0x5
033b 4800 |H | Short_Literal 0x0
033c e222 | " | Load 0x1,0x22
033d 0322 | " | Declare_Variable Record
033e 00db | | Load_Top At_Offset_3
033f 00d9 | | Load_Top At_Offset_1
0340 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0341 4803 |H | Short_Literal 0x3
0342 e221 | ! | Load 0x1,0x21
0343 1c08 | | Execute_Immediate Run_Utility,0x8
0344 e404 | | Load 0x2,0x4
0345 00d9 | | Load_Top At_Offset_1
0346 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0347 00d9 | | Load_Top At_Offset_1
0348 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0349 00da | | Load_Top At_Offset_2
034a 00d9 | | Load_Top At_Offset_1
034b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
034c e5fc | | Load 0x2,-0x4
034d e228 | ( | Load 0x1,0x28
034e 01d5 | | Execute Vector,Field_Reference
034f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0350 e5fc | | Load 0x2,-0x4
0351 e228 | ( | Load 0x1,0x28
0352 01d5 | | Execute Vector,Field_Reference
0353 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0354 e225 | % | Load 0x1,0x25
0355 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0356 00e3 | | Load_Encached Natural_Cache
0357 e5fc | | Load 0x2,-0x4
0358 e5ff | | Load 0x2,-0x1
0359 8235 | 5 | Call 0x1,0x35
035a c403 | | Store 0x2,0x3
035b 00db | | Load_Top At_Offset_3
035c e5fc | | Load 0x2,-0x4
035d e228 | ( | Load 0x1,0x28
035e 01d5 | | Execute Vector,Field_Reference
035f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0360 027f | | Execute Discrete,Equal
0361 7001 |p | Jump_Nonzero 0x363
0362 0887 | | Execute_Immediate Raise,0x87
0363 e5fc | | Load 0x2,-0x4
0364 e228 | ( | Load 0x1,0x28
0365 01d5 | | Execute Vector,Field_Reference
0366 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0367 0a01 | | Execute_Immediate Plus,0x1
0368 e5fc | | Load 0x2,-0x4
0369 e228 | ( | Load 0x1,0x28
036a 01d5 | | Execute Vector,Field_Reference
036b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
036c 4505 |E | Exit_Subprogram 0x5
036d TRAP_02f8:
036d 0007 | | Action Break_Optional
036e e007 | | Load 0x0,0x7
036f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0370 4808 |H | Short_Literal 0x8
0371 4800 |H | Short_Literal 0x0
0372 4801 |H | Short_Literal 0x1
0373 e00a | | Load 0x0,0xa
0374 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0375 e008 | | Load 0x0,0x8
0376 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0377 4505 |E | Exit_Subprogram 0x5
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0384 | | .CONST 0x0384 ; Address of begin
0379 03ac | | .CONST 0x03ac ; Address of exception handler
037a 0003 | | .CONST 0x0003 ; Number of locals
037b INIT_0378:
037b 482e |H. | Short_Literal 0x2e
037c e5fe | | Load 0x2,-0x2
037d 8223 | # | Call 0x1,0x23
037e 01cb | | Execute Vector,Append
037f 00db | | Load_Top At_Offset_3
0380 01cc | | Execute Vector,Catenate
0381 0007 | | Action Break_Optional
0382 e225 | % | Load 0x1,0x25
0383 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0384 BODY_0378:
0384 00d9 | | Load_Top At_Offset_1
0385 e00b | | Load 0x0,0xb
0386 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0387 6822 |h" | Jump_Zero 0x3aa
0388 e225 | % | Load 0x1,0x25
0389 1b20 | | Execute Package,Field_Read,Field_Number 0x20
038a e21c | | Load 0x1,0x1c
038b e5fe | | Load 0x2,-0x2
038c e228 | ( | Load 0x1,0x28
038d 01d5 | | Execute Vector,Field_Reference
038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038f e225 | % | Load 0x1,0x25
0390 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0391 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0392 00cf | | Action Mark_Auxiliary
0393 7811 |x | Jump 0x3a5
0394 4801 |H | Short_Literal 0x1
0395 00da | | Load_Top At_Offset_2
0396 e225 | % | Load 0x1,0x25
0397 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0398 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0399 0217 | | Execute Heap_Access,All_Reference
039a e5ff | | Load 0x2,-0x1
039b e009 | | Load 0x0,0x9
039c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
039d 6802 |h | Jump_Zero 0x3a0
039e 4801 |H | Short_Literal 0x1
039f 4402 |D | Exit_Subprogram With_Result,0x2
03a0 00d9 | | Load_Top At_Offset_1
03a1 e225 | % | Load 0x1,0x25
03a2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03a3 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03a4 00c9 | | Action Pop_Auxiliary_Loop
03a5 00d9 | | Load_Top At_Offset_1
03a6 e225 | % | Load 0x1,0x25
03a7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03a8 6feb |o | Jump_Zero 0x394
03a9 00ce | | Action Pop_Auxiliary
03aa 4800 |H | Short_Literal 0x0
03ab 4402 |D | Exit_Subprogram With_Result,0x2
03ac TRAP_0378:
03ac 0007 | | Action Break_Optional
03ad e007 | | Load 0x0,0x7
03ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
03af 4808 |H | Short_Literal 0x8
03b0 4800 |H | Short_Literal 0x0
03b1 4801 |H | Short_Literal 0x1
03b2 e00a | | Load 0x0,0xa
03b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03b4 e008 | | Load 0x0,0x8
03b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b6 4800 |H | Short_Literal 0x0
03b7 4402 |D | Exit_Subprogram With_Result,0x2
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c7 | | .CONST 0x03c7 ; Address of begin
03b9 03cf | | .CONST 0x03cf ; Address of exception handler
03ba 0004 | | .CONST 0x0004 ; Number of locals
03bb INIT_03b8:
03bb 482e |H. | Short_Literal 0x2e
03bc e5fd | | Load 0x2,-0x3
03bd 8223 | # | Call 0x1,0x23
03be 01cb | | Execute Vector,Append
03bf 00db | | Load_Top At_Offset_3
03c0 01cc | | Execute Vector,Catenate
03c1 0007 | | Action Break_Optional
03c2 00e3 | | Load_Encached Natural_Cache
03c3 e221 | ! | Load 0x1,0x21
03c4 02ff | | Declare_Variable Variant_Record
03c5 00d8 | | Load_Top At_Offset_0
03c6 1c00 | | Execute_Immediate Run_Utility,0x0
03c7 BODY_03b8:
03c7 603c |`< | Indirect_Literal Discrete,0x404,{0x00000000, 0x00004000}
03c8 e01d | | Load 0x0,0x1d
03c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ca e402 | | Load 0x2,0x2
03cb e5fe | | Load 0x2,-0x2
03cc e00b | | Load 0x0,0xb
03cd 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
03ce 4403 |D | Exit_Subprogram With_Result,0x3
03cf TRAP_03b8:
03cf e00b | | Load 0x0,0xb
03d0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03d1 010f | | Execute Exception,Equal
03d2 680e |h | Jump_Zero 0x3e1
03d3 e007 | | Load 0x0,0x7
03d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d5 4807 |H | Short_Literal 0x7
03d6 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
03d8 e402 | | Load 0x2,0x2
03d9 01cc | | Execute Vector,Catenate
03da 0092 0b35 | 5| Action Push_String_Extended,0xb35 ; " is not defined"
03dc 01cc | | Execute Vector,Catenate
03dd e008 | | Load 0x0,0x8
03de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03df 4800 |H | Short_Literal 0x0
03e0 4403 |D | Exit_Subprogram With_Result,0x3
03e1 e007 | | Load 0x0,0x7
03e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e3 4808 |H | Short_Literal 0x8
03e4 4800 |H | Short_Literal 0x0
03e5 4801 |H | Short_Literal 0x1
03e6 e00a | | Load 0x0,0xa
03e7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e8 e008 | | Load 0x0,0x8
03e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ea e5fd | | Load 0x2,-0x3
03eb e5ff | | Load 0x2,-0x1
03ec 8214 | | Call 0x1,0x14
03ed 6812 |h | Jump_Zero 0x400
03ee 00e3 | | Load_Encached Natural_Cache
03ef e5fd | | Load 0x2,-0x3
03f0 e5ff | | Load 0x2,-0x1
03f1 8235 | 5 | Call 0x1,0x35
03f2 005b | [ | Store_Top Discrete,At_Offset_3
03f3 00da | | Load_Top At_Offset_2
03f4 e5fd | | Load 0x2,-0x3
03f5 e228 | ( | Load 0x1,0x28
03f6 01d5 | | Execute Vector,Field_Reference
03f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03f8 e225 | % | Load 0x1,0x25
03f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03fa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03fb 00da | | Load_Top At_Offset_2
03fc 016d | m | Execute Variant_Record,Structure_Write
03fd 00d9 | | Load_Top At_Offset_1
03fe 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03ff 4403 |D | Exit_Subprogram With_Result,0x3
0400 4800 |H | Short_Literal 0x0
0401 4403 |D | Exit_Subprogram With_Result,0x3
0402 0000 0000 | | .XXX[0x2]
0404 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0417 | | .CONST 0x0417 ; Address of begin
0409 041f | | .CONST 0x041f ; Address of exception handler
040a 0004 | | .CONST 0x0004 ; Number of locals
040b INIT_0408:
040b 482e |H. | Short_Literal 0x2e
040c e5fd | | Load 0x2,-0x3
040d 8223 | # | Call 0x1,0x23
040e 01cb | | Execute Vector,Append
040f 00db | | Load_Top At_Offset_3
0410 01cc | | Execute Vector,Catenate
0411 0007 | | Action Break_Optional
0412 00e3 | | Load_Encached Natural_Cache
0413 e221 | ! | Load 0x1,0x21
0414 02ff | | Declare_Variable Variant_Record
0415 00d8 | | Load_Top At_Offset_0
0416 1c00 | | Execute_Immediate Run_Utility,0x0
0417 BODY_0408:
0417 67ec |g | Indirect_Literal Discrete,0x404,{0x00000000, 0x00004000}
0418 e01d | | Load 0x0,0x1d
0419 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041a e402 | | Load 0x2,0x2
041b e5fe | | Load 0x2,-0x2
041c e00b | | Load 0x0,0xb
041d 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
041e 4403 |D | Exit_Subprogram With_Result,0x3
041f TRAP_0408:
041f e00b | | Load 0x0,0xb
0420 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0421 010f | | Execute Exception,Equal
0422 680e |h | Jump_Zero 0x431
0423 e007 | | Load 0x0,0x7
0424 180e | | Execute Package,Field_Execute,Field_Number 0xe
0425 4807 |H | Short_Literal 0x7
0426 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
0428 e402 | | Load 0x2,0x2
0429 01cc | | Execute Vector,Catenate
042a 0092 0b35 | 5| Action Push_String_Extended,0xb35 ; " is not defined"
042c 01cc | | Execute Vector,Catenate
042d e008 | | Load 0x0,0x8
042e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
042f 4800 |H | Short_Literal 0x0
0430 4403 |D | Exit_Subprogram With_Result,0x3
0431 e007 | | Load 0x0,0x7
0432 180e | | Execute Package,Field_Execute,Field_Number 0xe
0433 4808 |H | Short_Literal 0x8
0434 4800 |H | Short_Literal 0x0
0435 4801 |H | Short_Literal 0x1
0436 e00a | | Load 0x0,0xa
0437 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0438 e008 | | Load 0x0,0x8
0439 1813 | | Execute Package,Field_Execute,Field_Number 0x13
043a e5fd | | Load 0x2,-0x3
043b e5ff | | Load 0x2,-0x1
043c 8214 | | Call 0x1,0x14
043d 6812 |h | Jump_Zero 0x450
043e 00e3 | | Load_Encached Natural_Cache
043f e5fd | | Load 0x2,-0x3
0440 e5ff | | Load 0x2,-0x1
0441 8235 | 5 | Call 0x1,0x35
0442 005b | [ | Store_Top Discrete,At_Offset_3
0443 00da | | Load_Top At_Offset_2
0444 e5fd | | Load 0x2,-0x3
0445 e228 | ( | Load 0x1,0x28
0446 01d5 | | Execute Vector,Field_Reference
0447 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0448 e225 | % | Load 0x1,0x25
0449 1816 | | Execute Package,Field_Execute,Field_Number 0x16
044a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
044b 00da | | Load_Top At_Offset_2
044c 016d | m | Execute Variant_Record,Structure_Write
044d 00d9 | | Load_Top At_Offset_1
044e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
044f 4403 |D | Exit_Subprogram With_Result,0x3
0450 4800 |H | Short_Literal 0x0
0451 4403 |D | Exit_Subprogram With_Result,0x3
0452 0000 0000 | | .BLANK 0000[0x6]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0467 | g | .CONST 0x0467 ; Address of begin
0459 046f | o | .CONST 0x046f ; Address of exception handler
045a 0004 | | .CONST 0x0004 ; Number of locals
045b INIT_0458:
045b 482e |H. | Short_Literal 0x2e
045c e5fd | | Load 0x2,-0x3
045d 8223 | # | Call 0x1,0x23
045e 01cb | | Execute Vector,Append
045f 00db | | Load_Top At_Offset_3
0460 01cc | | Execute Vector,Catenate
0461 0007 | | Action Break_Optional
0462 00e3 | | Load_Encached Natural_Cache
0463 e221 | ! | Load 0x1,0x21
0464 02ff | | Declare_Variable Variant_Record
0465 00d8 | | Load_Top At_Offset_0
0466 1c00 | | Execute_Immediate Run_Utility,0x0
0467 BODY_0458:
0467 6040 |`@ | Indirect_Literal Discrete,0x4a8,{0x00000000, 0x00004000}
0468 e01d | | Load 0x0,0x1d
0469 1b0e | | Execute Package,Field_Read,Field_Number 0xe
046a e402 | | Load 0x2,0x2
046b e5fe | | Load 0x2,-0x2
046c e00b | | Load 0x0,0xb
046d 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
046e 4403 |D | Exit_Subprogram With_Result,0x3
046f TRAP_0458:
046f e00b | | Load 0x0,0xb
0470 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0471 010f | | Execute Exception,Equal
0472 680e |h | Jump_Zero 0x481
0473 e007 | | Load 0x0,0x7
0474 180e | | Execute Package,Field_Execute,Field_Number 0xe
0475 4807 |H | Short_Literal 0x7
0476 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
0478 e402 | | Load 0x2,0x2
0479 01cc | | Execute Vector,Catenate
047a 0092 0b35 | 5| Action Push_String_Extended,0xb35 ; " is not defined"
047c 01cc | | Execute Vector,Catenate
047d e008 | | Load 0x0,0x8
047e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047f 00ea | | Load_Encached Null_String_Cache
0480 4403 |D | Exit_Subprogram With_Result,0x3
0481 e007 | | Load 0x0,0x7
0482 180e | | Execute Package,Field_Execute,Field_Number 0xe
0483 4808 |H | Short_Literal 0x8
0484 4800 |H | Short_Literal 0x0
0485 4801 |H | Short_Literal 0x1
0486 e00a | | Load 0x0,0xa
0487 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0488 e008 | | Load 0x0,0x8
0489 1813 | | Execute Package,Field_Execute,Field_Number 0x13
048a e5fd | | Load 0x2,-0x3
048b e5ff | | Load 0x2,-0x1
048c 8214 | | Call 0x1,0x14
048d 6815 |h | Jump_Zero 0x4a3
048e 00e3 | | Load_Encached Natural_Cache
048f e5fd | | Load 0x2,-0x3
0490 e5ff | | Load 0x2,-0x1
0491 8235 | 5 | Call 0x1,0x35
0492 005b | [ | Store_Top Discrete,At_Offset_3
0493 00da | | Load_Top At_Offset_2
0494 e5fd | | Load 0x2,-0x3
0495 e228 | ( | Load 0x1,0x28
0496 01d5 | | Execute Vector,Field_Reference
0497 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0498 e225 | % | Load 0x1,0x25
0499 1816 | | Execute Package,Field_Execute,Field_Number 0x16
049a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
049b 00da | | Load_Top At_Offset_2
049c 016d | m | Execute Variant_Record,Structure_Write
049d 00d9 | | Load_Top At_Offset_1
049e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
049f 0217 | | Execute Heap_Access,All_Reference
04a0 0335 | 5 | Declare_Variable Array,Duplicate
04a1 00cd | | Action Spare6_Action
04a2 4403 |D | Exit_Subprogram With_Result,0x3
04a3 00ea | | Load_Encached Null_String_Cache
04a4 4403 |D | Exit_Subprogram With_Result,0x3
04a5 0000 0000 | | .XXX[0x3]
04a7 0000 | |
04a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04c8 | | .CONST 0x04c8 ; Address of begin
04b1 04e8 | | .CONST 0x04e8 ; Address of exception handler
04b2 0006 | | .CONST 0x0006 ; Number of locals
04b3 INIT_04b0:
04b3 482e |H. | Short_Literal 0x2e
04b4 e5fd | | Load 0x2,-0x3
04b5 8223 | # | Call 0x1,0x23
04b6 01cb | | Execute Vector,Append
04b7 00db | | Load_Top At_Offset_3
04b8 01cc | | Execute Vector,Catenate
04b9 0007 | | Action Break_Optional
04ba 00e3 | | Load_Encached Natural_Cache
04bb e221 | ! | Load 0x1,0x21
04bc 02ff | | Declare_Variable Variant_Record
04bd 00d8 | | Load_Top At_Offset_0
04be 1c00 | | Execute_Immediate Run_Utility,0x0
04bf e00c | | Load 0x0,0xc
04c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c2 e00c | | Load 0x0,0xc
04c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c4 02c7 | | Declare_Variable Any
04c5 e00c | | Load 0x0,0xc
04c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04c7 a406 | | Store_Unchecked 0x2,0x6
04c8 BODY_04b0:
04c8 e00c | | Load 0x0,0xc
04c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04cb 00d9 | | Load_Top At_Offset_1
04cc 0120 | | Execute Any,Is_Value
04cd 6803 |h | Jump_Zero 0x4d1
04ce e00c | | Load 0x0,0xc
04cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d0 7801 |x | Jump 0x4d2
04d1 00d9 | | Load_Top At_Offset_1
04d2 67d5 |g | Indirect_Literal Discrete,0x4a8,{0x00000000, 0x00004000}
04d3 e01d | | Load 0x0,0x1d
04d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d5 e002 | | Load 0x0,0x2
04d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d7 e00c | | Load 0x0,0xc
04d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04da 67cd |g | Indirect_Literal Discrete,0x4a8,{0x00000000, 0x00004000}
04db e01d | | Load 0x0,0x1d
04dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04dd e402 | | Load 0x2,0x2
04de e5fe | | Load 0x2,-0x2
04df e00b | | Load 0x0,0xb
04e0 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
04e1 e00c | | Load 0x0,0xc
04e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04e4 c406 | | Store 0x2,0x6
04e5 005a | Z | Store_Top Discrete,At_Offset_2
04e6 00d8 | | Load_Top At_Offset_0
04e7 4403 |D | Exit_Subprogram With_Result,0x3
04e8 TRAP_04b0:
04e8 e00b | | Load 0x0,0xb
04e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04ea 010f | | Execute Exception,Equal
04eb 680f |h | Jump_Zero 0x4fb
04ec e007 | | Load 0x0,0x7
04ed 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ee 4807 |H | Short_Literal 0x7
04ef 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Switch "
04f1 e402 | | Load 0x2,0x2
04f2 01cc | | Execute Vector,Catenate
04f3 0092 0b35 | 5| Action Push_String_Extended,0xb35 ; " is not defined"
04f5 01cc | | Execute Vector,Catenate
04f6 e008 | | Load 0x0,0x8
04f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04f8 e00c | | Load 0x0,0xc
04f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04fa 4403 |D | Exit_Subprogram With_Result,0x3
04fb e5fd | | Load 0x2,-0x3
04fc e5ff | | Load 0x2,-0x1
04fd 8214 | | Call 0x1,0x14
04fe 682b |h+ | Jump_Zero 0x52a
04ff 00e3 | | Load_Encached Natural_Cache
0500 e5fd | | Load 0x2,-0x3
0501 e5ff | | Load 0x2,-0x1
0502 8235 | 5 | Call 0x1,0x35
0503 c403 | | Store 0x2,0x3
0504 e403 | | Load 0x2,0x3
0505 e5fd | | Load 0x2,-0x3
0506 e228 | ( | Load 0x1,0x28
0507 01d5 | | Execute Vector,Field_Reference
0508 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0509 e225 | % | Load 0x1,0x25
050a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
050b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
050c e404 | | Load 0x2,0x4
050d 016d | m | Execute Variant_Record,Structure_Write
050e e00c | | Load 0x0,0xc
050f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0510 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0511 00da | | Load_Top At_Offset_2
0512 0120 | | Execute Any,Is_Value
0513 6803 |h | Jump_Zero 0x517
0514 e00c | | Load 0x0,0xc
0515 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0516 7801 |x | Jump 0x518
0517 00da | | Load_Top At_Offset_2
0518 678f |g | Indirect_Literal Discrete,0x4a8,{0x00000000, 0x00004000}
0519 e01d | | Load 0x0,0x1d
051a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
051b e002 | | Load 0x0,0x2
051c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
051d e00c | | Load 0x0,0xc
051e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
051f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0520 e404 | | Load 0x2,0x4
0521 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0522 0217 | | Execute Heap_Access,All_Reference
0523 e00c | | Load 0x0,0xc
0524 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0525 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0526 c406 | | Store 0x2,0x6
0527 005b | [ | Store_Top Discrete,At_Offset_3
0528 00d9 | | Load_Top At_Offset_1
0529 4403 |D | Exit_Subprogram With_Result,0x3
052a e00c | | Load 0x0,0xc
052b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
052c 4403 |D | Exit_Subprogram With_Result,0x3
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0558 | X | .CONST 0x0558 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0009 | | .CONST 0x0009 ; Number of locals
0533 INIT_0530:
0533 e00c | | Load 0x0,0xc
0534 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0535 02c7 | | Declare_Variable Any
0536 00d8 | | Load_Top At_Offset_0
0537 1c00 | | Execute_Immediate Run_Utility,0x0
0538 e00c | | Load 0x0,0xc
0539 1b14 | | Execute Package,Field_Read,Field_Number 0x14
053a 02ff | | Declare_Variable Variant_Record
053b 00d8 | | Load_Top At_Offset_0
053c 1c00 | | Execute_Immediate Run_Utility,0x0
053d e00c | | Load 0x0,0xc
053e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
053f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0540 02c7 | | Declare_Variable Any
0541 00d8 | | Load_Top At_Offset_0
0542 1c00 | | Execute_Immediate Run_Utility,0x0
0543 e00c | | Load 0x0,0xc
0544 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0545 02c7 | | Declare_Variable Any
0546 00d8 | | Load_Top At_Offset_0
0547 1c00 | | Execute_Immediate Run_Utility,0x0
0548 e00c | | Load 0x0,0xc
0549 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054a e00c | | Load 0x0,0xc
054b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
054c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054d e01d | | Load 0x0,0x1d
054e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054f 02c7 | | Declare_Variable Any
0550 e01d | | Load 0x0,0x1d
0551 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0552 a408 | | Store_Unchecked 0x2,0x8
0553 e00c | | Load 0x0,0xc
0554 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0555 02ff | | Declare_Variable Variant_Record
0556 00d8 | | Load_Top At_Offset_0
0557 1c00 | | Execute_Immediate Run_Utility,0x0
0558 BODY_0530:
0558 e00c | | Load 0x0,0xc
0559 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
055a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055b e403 | | Load 0x2,0x3
055c 604b |`K | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000}
055d e01d | | Load 0x0,0x1d
055e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
055f 4800 |H | Short_Literal 0x0
0560 e002 | | Load 0x0,0x2
0561 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0562 e00c | | Load 0x0,0xc
0563 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0564 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0565 0092 0b36 | 6| Action Push_String_Extended,0xb36 ; "$"
0567 e00c | | Load 0x0,0xc
0568 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0569 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
056a 00d1 | | Pop_Control Pop_Count_1
056b 005b | [ | Store_Top Discrete,At_Offset_3
056c e00c | | Load 0x0,0xc
056d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
056e e402 | | Load 0x2,0x2
056f 0120 | | Execute Any,Is_Value
0570 6803 |h | Jump_Zero 0x574
0571 e00c | | Load 0x0,0xc
0572 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0573 7801 |x | Jump 0x575
0574 e402 | | Load 0x2,0x2
0575 6032 |`2 | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000}
0576 e01d | | Load 0x0,0x1d
0577 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0578 e403 | | Load 0x2,0x3
0579 e00c | | Load 0x0,0xc
057a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
057b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
057c c402 | | Store 0x2,0x2
057d c406 | | Store 0x2,0x6
057e 00db | | Load_Top At_Offset_3
057f 7026 |p& | Jump_Nonzero 0x5a6
0580 e402 | | Load 0x2,0x2
0581 e00c | | Load 0x0,0xc
0582 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0583 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0584 c404 | | Store 0x2,0x4
0585 e00c | | Load 0x0,0xc
0586 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0587 e405 | | Load 0x2,0x5
0588 0120 | | Execute Any,Is_Value
0589 6803 |h | Jump_Zero 0x58d
058a e00c | | Load 0x0,0xc
058b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
058c 7801 |x | Jump 0x58e
058d e405 | | Load 0x2,0x5
058e 6019 |` | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000}
058f e408 | | Load 0x2,0x8
0590 e404 | | Load 0x2,0x4
0591 e00c | | Load 0x0,0xc
0592 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0593 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0594 c405 | | Store 0x2,0x5
0595 c406 | | Store 0x2,0x6
0596 00db | | Load_Top At_Offset_3
0597 700e |p | Jump_Nonzero 0x5a6
0598 e00c | | Load 0x0,0xc
0599 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059a 00d9 | | Load_Top At_Offset_1
059b 600c |` | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000}
059c e408 | | Load 0x2,0x8
059d 4800 |H | Short_Literal 0x0
059e e405 | | Load 0x2,0x5
059f e00c | | Load 0x0,0xc
05a0 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
05a1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05a2 00d1 | | Pop_Control Pop_Count_1
05a3 c406 | | Store 0x2,0x6
05a4 00d8 | | Load_Top At_Offset_0
05a5 00ca | | Action Exit_Nullary_Function
05a6 0831 | 1 | Execute_Immediate Raise,0x31
05a7 0000 | | .XXX[0x1]
05a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
05ac 0000 0000 | | .BLANK 0000[0x4]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05c1 | | .CONST 0x05c1 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0006 | | .CONST 0x0006 ; Number of locals
05b3 INIT_05b0:
05b3 e00c | | Load 0x0,0xc
05b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
05b5 02ff | | Declare_Variable Variant_Record
05b6 00d8 | | Load_Top At_Offset_0
05b7 1c00 | | Execute_Immediate Run_Utility,0x0
05b8 e00c | | Load 0x0,0xc
05b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05bb 029f 0773 | s| Declare_Subprogram For_Call,INIT_0770
05bd 029f 077b | {| Declare_Subprogram For_Call,INIT_0778
05bf 029f 078b | | Declare_Subprogram For_Call,INIT_0788
05c1 BODY_05b0:
05c1 e00c | | Load 0x0,0xc
05c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c4 e402 | | Load 0x2,0x2
05c5 67e2 |g | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000}
05c6 e01d | | Load 0x0,0x1d
05c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c8 4800 |H | Short_Literal 0x0
05c9 e002 | | Load 0x0,0x2
05ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05cb e00c | | Load 0x0,0xc
05cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05ce e5ff | | Load 0x2,-0x1
05cf 8405 | | Call 0x2,0x5
05d0 e00c | | Load 0x0,0xc
05d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05d2 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
05d3 00d1 | | Pop_Control Pop_Count_1
05d4 c403 | | Store 0x2,0x3
05d5 00db | | Load_Top At_Offset_3
05d6 8404 | | Call 0x2,0x4
05d7 6802 |h | Jump_Zero 0x5da
05d8 e402 | | Load 0x2,0x2
05d9 4401 |D | Exit_Subprogram With_Result,0x1
05da e00c | | Load 0x0,0xc
05db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05dd e402 | | Load 0x2,0x2
05de 67c9 |g | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000}
05df e01d | | Load 0x0,0x1d
05e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05e1 4800 |H | Short_Literal 0x0
05e2 e002 | | Load 0x0,0x2
05e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05e4 e00c | | Load 0x0,0xc
05e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05e7 e5ff | | Load 0x2,-0x1
05e8 8406 | | Call 0x2,0x6
05e9 e00c | | Load 0x0,0xc
05ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05eb 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
05ec 00d1 | | Pop_Control Pop_Count_1
05ed c403 | | Store 0x2,0x3
05ee 00db | | Load_Top At_Offset_3
05ef 8404 | | Call 0x2,0x4
05f0 6802 |h | Jump_Zero 0x5f3
05f1 e402 | | Load 0x2,0x2
05f2 4401 |D | Exit_Subprogram With_Result,0x1
05f3 e00c | | Load 0x0,0xc
05f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05f5 4401 |D | Exit_Subprogram With_Result,0x1
05f6 0000 0000 | | .XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 4607 |F | Jump_Case 0x7
05fc 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
05fd 7807 |x | Jump 0x605 ; case 0x1
05fe 780a |x | Jump 0x609 ; case 0x2
05ff 780e |x | Jump 0x60e ; case 0x3
0600 7811 |x | Jump 0x612 ; case 0x4
0601 7812 |x | Jump 0x614 ; case 0x5
0602 7813 |x | Jump 0x616 ; case 0x6
0603 7816 |x | Jump 0x61a ; case 0x7
0604 4302 |C | .XXX[0x1]
0605 00da | | Load_Top At_Offset_2
0606 0091 0b2e | .| Action Push_String_Extended_Indexed,0xb2e ; "BOOLEAN_KIND"
0608 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0609 00db | | Load_Top At_Offset_3
060a 00db | | Load_Top At_Offset_3
060b 00e0 | | Load_Encached Standard_Cache
060c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
060d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
060e 00da | | Load_Top At_Offset_2
060f 00e0 | | Load_Encached Standard_Cache
0610 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0611 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0612 00db | | Load_Top At_Offset_3
0613 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0614 00db | | Load_Top At_Offset_3
0615 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0616 e220 | | Load 0x1,0x20
0617 00dc | | Load_Top At_Offset_4
0618 0267 | g | Execute Discrete,Predecessor
0619 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
061a e220 | | Load 0x1,0x20
061b 00dc | | Load_Top At_Offset_4
061c 0268 | h | Execute Discrete,Successor
061d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
061e 0000 0000 | | .XXX[0x2]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 4609 |F | Jump_Case 0x9
0624 7809 |x | Jump 0x62e ; case 0x0
0625 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0626 781c |x | Jump 0x643 ; case 0x2
0627 781f |x | Jump 0x647 ; case 0x3
0628 7854 |xT | Jump 0x67d ; case 0x4
0629 7853 |xS | Jump 0x67d ; case 0x5
062a 7822 |x" | Jump 0x64d ; case 0x6
062b 7832 |x2 | Jump 0x65e ; case 0x7
062c 7845 |xE | Jump 0x672 ; case 0x8
062d 784b |xK | Jump 0x679 ; case 0x9
062e 00da | | Load_Top At_Offset_2
062f 016c | l | Execute Variant_Record,Is_Constrained
0630 7009 |p | Jump_Nonzero 0x63a
0631 00cf | | Action Mark_Auxiliary
0632 4804 |H | Short_Literal 0x4
0633 e5ff | | Load 0x2,-0x1
0634 1c08 | | Execute_Immediate Run_Utility,0x8
0635 00d8 | | Load_Top At_Offset_0
0636 1c00 | | Execute_Immediate Run_Utility,0x0
0637 c5ff | | Store 0x2,-0x1
0638 00ce | | Action Pop_Auxiliary
0639 4302 |C | Exit_Subprogram From_Utility,0x2
063a 00da | | Load_Top At_Offset_2
063b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
063c 4604 |F | Jump_Case 0x4
063d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
063e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
063f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0640 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0641 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0642 4302 |C | .XXX[0x1]
0643 4801 |H | Short_Literal 0x1
0644 4805 |H | Short_Literal 0x5
0645 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0646 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0647 e5fd | | Load 0x2,-0x3
0648 00db | | Load_Top At_Offset_3
0649 1c07 | | Execute_Immediate Run_Utility,0x7
064a e5fe | | Load 0x2,-0x2
064b 0306 | | Complete_Type Variant_Record,By_Renaming
064c 4304 |C | Exit_Subprogram From_Utility,0x4
064d 00db | | Load_Top At_Offset_3
064e 4604 |F | Jump_Case 0x4
064f 7806 |x | Jump 0x656 ; case 0x0
0650 7807 |x | Jump 0x658 ; case 0x1
0651 7808 |x | Jump 0x65a ; case 0x2
0652 7809 |x | Jump 0x65c ; case 0x3
0653 7800 |x | Jump 0x654 ; case 0x4
0654 48ff |H | Short_Literal 0xff
0655 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0656 4801 |H | Short_Literal 0x1
0657 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0658 4802 |H | Short_Literal 0x2
0659 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
065a 4803 |H | Short_Literal 0x3
065b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
065c 4804 |H | Short_Literal 0x4
065d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
065e 00db | | Load_Top At_Offset_3
065f e5fe | | Load 0x2,-0x2
0660 4604 |F | Jump_Case 0x4
0661 7806 |x | Jump 0x668 ; case 0x0
0662 7807 |x | Jump 0x66a ; case 0x1
0663 7808 |x | Jump 0x66c ; case 0x2
0664 7809 |x | Jump 0x66e ; case 0x3
0665 7800 |x | Jump 0x666 ; case 0x4
0666 48ff |H | Short_Literal 0xff
0667 7807 |x | Jump 0x66f
0668 4801 |H | Short_Literal 0x1
0669 7805 |x | Jump 0x66f
066a 4802 |H | Short_Literal 0x2
066b 7803 |x | Jump 0x66f
066c 4803 |H | Short_Literal 0x3
066d 7801 |x | Jump 0x66f
066e 4804 |H | Short_Literal 0x4
066f e5ff | | Load 0x2,-0x1
0670 031b | | Declare_Type Variant_Record,Constrained
0671 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0672 00db | | Load_Top At_Offset_3
0673 e5fe | | Load 0x2,-0x2
0674 e5ff | | Load 0x2,-0x1
0675 1c06 | | Execute_Immediate Run_Utility,0x6
0676 e5ff | | Load 0x2,-0x1
0677 02fc | | Declare_Variable Variant_Record,With_Constraint
0678 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0679 4804 |H | Short_Literal 0x4
067a 00db | | Load_Top At_Offset_3
067b 1c07 | | Execute_Immediate Run_Utility,0x7
067c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
067d 0869 | i | Execute_Immediate Raise,0x69
067e 0000 0000 | | .XXX[0x2]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 4601 |F | Jump_Case 0x1
0684 7801 |x | Jump 0x686 ; case 0x0
0685 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0686 00da | | Load_Top At_Offset_2
0687 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0688 1c00 | | Execute_Immediate Run_Utility,0x0
0689 4302 |C | Exit_Subprogram From_Utility,0x2
068a 0000 0000 | | .BLANK 0000[0x6]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693 | | .CONST 0x0693 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0001 | | .CONST 0x0001 ; Number of locals
0693 BODY_0690:
0693 INIT_0690:
0693 00da | | Load_Top At_Offset_2
0694 6803 |h | Jump_Zero 0x698
0695 0092 0b37 | 7| Action Push_String_Extended,0xb37 ; "Session_TestMate"
0697 4401 |D | Exit_Subprogram With_Result,0x1
0698 0092 0b38 | 8| Action Push_String_Extended,0xb38 ; "TestMate"
069a 4401 |D | Exit_Subprogram With_Result,0x1
069b 0000 0000 | | .BLANK 0000[0x5]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 00da | | Load_Top At_Offset_2
06a4 4401 |D | Exit_Subprogram With_Result,0x1
06a5 0000 0000 | | .XXX[0x3]
06a7 0000 | |
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab | | .CONST 0x06ab ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
06ab BODY_06a8:
06ab INIT_06a8:
06ab 4601 |F | Jump_Case 0x1
06ac 7801 |x | Jump 0x6ae ; case 0x0
06ad 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
06ae 4800 |H | Short_Literal 0x0
06af 00db | | Load_Top At_Offset_3
06b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06b1 4302 |C | Exit_Subprogram From_Utility,0x2
06b2 0000 0000 | | .BLANK 0000[0x6]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb 00d1 | | Pop_Control Pop_Count_1
06bc 00da | | Load_Top At_Offset_2
06bd 01d8 | | Execute Vector,Element_Type
06be 0322 | " | Declare_Variable Record
06bf 00d8 | | Load_Top At_Offset_0
06c0 1c00 | | Execute_Immediate Run_Utility,0x0
06c1 00db | | Load_Top At_Offset_3
06c2 01dc | | Execute Vector,Last
06c3 e5ff | | Load 0x2,-0x1
06c4 01dd | | Execute Vector,First
06c5 0263 | c | Execute Discrete,Above_Bound
06c6 7006 |p | Jump_Nonzero 0x6cd
06c7 00da | | Load_Top At_Offset_2
06c8 00d9 | | Load_Top At_Offset_1
06c9 e5ff | | Load 0x2,-0x1
06ca 01d6 | | Execute Vector,Field_Write
06cb 0a01 | | Execute_Immediate Plus,0x1
06cc 7ff8 | | Jump 0x6c5
06cd 4302 |C | Exit_Subprogram From_Utility,0x2
06ce 0000 0000 | | .XXX[0x2]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 0092 0b38 | 8| Action Push_String_Extended,0xb38 ; "TestMate"
06d5 4401 |D | Exit_Subprogram With_Result,0x1
06d6 0000 0000 | | .XXX[0x2]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 0700 | | .CONST 0x0700 ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0009 | | .CONST 0x0009 ; Number of locals
06db INIT_06d8:
06db e00c | | Load 0x0,0xc
06dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06dd 02c7 | | Declare_Variable Any
06de 00d8 | | Load_Top At_Offset_0
06df 1c00 | | Execute_Immediate Run_Utility,0x0
06e0 e00c | | Load 0x0,0xc
06e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06e2 02ff | | Declare_Variable Variant_Record
06e3 00d8 | | Load_Top At_Offset_0
06e4 1c00 | | Execute_Immediate Run_Utility,0x0
06e5 e00c | | Load 0x0,0xc
06e6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
06e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06e8 02c7 | | Declare_Variable Any
06e9 00d8 | | Load_Top At_Offset_0
06ea 1c00 | | Execute_Immediate Run_Utility,0x0
06eb e00c | | Load 0x0,0xc
06ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06ed 02c7 | | Declare_Variable Any
06ee 00d8 | | Load_Top At_Offset_0
06ef 1c00 | | Execute_Immediate Run_Utility,0x0
06f0 e00c | | Load 0x0,0xc
06f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06f2 e00c | | Load 0x0,0xc
06f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06f5 e01d | | Load 0x0,0x1d
06f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06f7 02c7 | | Declare_Variable Any
06f8 e01d | | Load 0x0,0x1d
06f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06fa a408 | | Store_Unchecked 0x2,0x8
06fb e00b | | Load 0x0,0xb
06fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06fd 02ff | | Declare_Variable Variant_Record
06fe 00d8 | | Load_Top At_Offset_0
06ff 1c00 | | Execute_Immediate Run_Utility,0x0
0700 BODY_06d8:
0700 e00c | | Load 0x0,0xc
0701 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0702 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0703 e403 | | Load 0x2,0x3
0704 604b |`K | Indirect_Literal Discrete,0x750,{0x00000000, 0x00004000}
0705 e01d | | Load 0x0,0x1d
0706 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0707 4800 |H | Short_Literal 0x0
0708 e002 | | Load 0x0,0x2
0709 1811 | | Execute Package,Field_Execute,Field_Number 0x11
070a e00c | | Load 0x0,0xc
070b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
070c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
070d 0092 0b36 | 6| Action Push_String_Extended,0xb36 ; "$"
070f e00c | | Load 0x0,0xc
0710 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0711 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0712 00d1 | | Pop_Control Pop_Count_1
0713 005b | [ | Store_Top Discrete,At_Offset_3
0714 e00c | | Load 0x0,0xc
0715 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0716 e402 | | Load 0x2,0x2
0717 0120 | | Execute Any,Is_Value
0718 6803 |h | Jump_Zero 0x71c
0719 e00c | | Load 0x0,0xc
071a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
071b 7801 |x | Jump 0x71d
071c e402 | | Load 0x2,0x2
071d 6032 |`2 | Indirect_Literal Discrete,0x750,{0x00000000, 0x00004000}
071e e01d | | Load 0x0,0x1d
071f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0720 e403 | | Load 0x2,0x3
0721 e00c | | Load 0x0,0xc
0722 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0723 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0724 c402 | | Store 0x2,0x2
0725 c406 | | Store 0x2,0x6
0726 00db | | Load_Top At_Offset_3
0727 7026 |p& | Jump_Nonzero 0x74e
0728 e402 | | Load 0x2,0x2
0729 e00c | | Load 0x0,0xc
072a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
072b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
072c c404 | | Store 0x2,0x4
072d e00c | | Load 0x0,0xc
072e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
072f e405 | | Load 0x2,0x5
0730 0120 | | Execute Any,Is_Value
0731 6803 |h | Jump_Zero 0x735
0732 e00c | | Load 0x0,0xc
0733 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0734 7801 |x | Jump 0x736
0735 e405 | | Load 0x2,0x5
0736 6019 |` | Indirect_Literal Discrete,0x750,{0x00000000, 0x00004000}
0737 e408 | | Load 0x2,0x8
0738 e404 | | Load 0x2,0x4
0739 e00c | | Load 0x0,0xc
073a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
073b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
073c c405 | | Store 0x2,0x5
073d c406 | | Store 0x2,0x6
073e 00db | | Load_Top At_Offset_3
073f 700e |p | Jump_Nonzero 0x74e
0740 e00c | | Load 0x0,0xc
0741 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0742 00d9 | | Load_Top At_Offset_1
0743 600c |` | Indirect_Literal Discrete,0x750,{0x00000000, 0x00004000}
0744 e408 | | Load 0x2,0x8
0745 4800 |H | Short_Literal 0x0
0746 e405 | | Load 0x2,0x5
0747 e00c | | Load 0x0,0xc
0748 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0749 181a | | Execute Package,Field_Execute,Field_Number 0x1a
074a 00d1 | | Pop_Control Pop_Count_1
074b c406 | | Store 0x2,0x6
074c 00d8 | | Load_Top At_Offset_0
074d 00ca | | Action Exit_Nullary_Function
074e 0831 | 1 | Execute_Immediate Raise,0x31
074f 0000 | | .XXX[0x1]
0750 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0754 0000 0000 | | .BLANK 0000[0x4]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 00db | | Load_Top At_Offset_3
075c 6807 |h | Jump_Zero 0x764
075d e234 | 4 | Load 0x1,0x34
075e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
075f 00db | | Load_Top At_Offset_3
0760 e234 | 4 | Load 0x1,0x34
0761 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0762 c5fd | | Store 0x2,-0x3
0763 4503 |E | Exit_Subprogram 0x3
0764 e230 | 0 | Load 0x1,0x30
0765 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0766 00db | | Load_Top At_Offset_3
0767 e230 | 0 | Load 0x1,0x30
0768 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0769 c5fd | | Store 0x2,-0x3
076a 4503 |E | Exit_Subprogram 0x3
076b 0000 0000 | | .BLANK 0000[0x5]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 00da | | Load_Top At_Offset_2
0774 0f00 | | Execute_Immediate Equal,0x0
0775 4401 |D | Exit_Subprogram With_Result,0x1
0776 0000 0000 | | .XXX[0x2]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b 00da | | Load_Top At_Offset_2
077c e00c | | Load 0x0,0xc
077d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
077e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
077f 0092 0b39 | 9| Action Push_String_Extended,0xb39 ; "_Switches"
0781 01cc | | Execute Vector,Catenate
0782 4401 |D | Exit_Subprogram With_Result,0x1
0783 0000 0000 | | .BLANK 0000[0x5]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b 00da | | Load_Top At_Offset_2
078c e00c | | Load 0x0,0xc
078d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
078e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
078f e00c | | Load 0x0,0xc
0790 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0791 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0792 0092 0b3a | :| Action Push_String_Extended,0xb3a ; ".S_1_Switches"
0794 01cc | | Execute Vector,Catenate
0795 4401 |D | Exit_Subprogram With_Result,0x1
0796 0000 0000 | | .XXX[0x2]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07c1 | | .CONST 0x07c1 ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 001a | | .CONST 0x001a ; Number of locals
079b INIT_0798:
079b 0092 0b3b | ;| Action Push_String_Extended,0xb3b ; "dummy"
079d 0129 | ) | Execute Any,Make_Visible
079e 029a 07cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_07c8
07a0 029a 07eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_07e8
07a2 029a 0823 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0820
07a4 029a 082b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0828
07a6 029a 084b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0848
07a8 029a 086b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0868
07aa 00bf | | Action Accept_Activation
07ab 029d 0883 | | Declare_Subprogram For_Outer_Call,INIT_0880
07ad 029d 08d3 | | Declare_Subprogram For_Outer_Call,INIT_08d0
07af 029d 0933 | 3| Declare_Subprogram For_Outer_Call,INIT_0930
07b1 029d 0963 | c| Declare_Subprogram For_Outer_Call,INIT_0960
07b3 1d14 | | Execute_Immediate Reference_Lex_1,0x14
07b4 00c7 | | Action Elaborate_Subprogram
07b5 1d15 | | Execute_Immediate Reference_Lex_1,0x15
07b6 00c7 | | Action Elaborate_Subprogram
07b7 029d 096b | k| Declare_Subprogram For_Outer_Call,INIT_0968
07b9 1d10 | | Execute_Immediate Reference_Lex_1,0x10
07ba 00c7 | | Action Elaborate_Subprogram
07bb 1d11 | | Execute_Immediate Reference_Lex_1,0x11
07bc 00c7 | | Action Elaborate_Subprogram
07bd 1d12 | | Execute_Immediate Reference_Lex_1,0x12
07be 00c7 | | Action Elaborate_Subprogram
07bf 1d13 | | Execute_Immediate Reference_Lex_1,0x13
07c0 00c7 | | Action Elaborate_Subprogram
07c1 BODY_0798:
07c1 00bc | | Action Signal_Activated
07c2 00bb | | Action Signal_Completion
07c3 0000 0000 | | .BLANK 0000[0x5]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cf | | .CONST 0x07cf ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0003 | | .CONST 0x0003 ; Number of locals
07cb INIT_07c8:
07cb 029f 0993 | | Declare_Subprogram For_Call,INIT_0990
07cd 029f 09a3 | | Declare_Subprogram For_Call,INIT_09a0
07cf BODY_07c8:
07cf e001 | | Load 0x0,0x1
07d0 6810 |h | Jump_Zero 0x7e1
07d1 e002 | | Load 0x0,0x2
07d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
07d3 4801 |H | Short_Literal 0x1
07d4 0092 0b3c | <| Action Push_String_Extended,0xb3c ; "IMAGE - value => "
07d6 e5ff | | Load 0x2,-0x1
07d7 01cc | | Execute Vector,Catenate
07d8 0092 0b3d | =| Action Push_String_Extended,0xb3d ; ", field => "
07da 01cc | | Execute Vector,Catenate
07db e5fe | | Load 0x2,-0x2
07dc 00e0 | | Load_Encached Standard_Cache
07dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07de 01cc | | Execute Vector,Catenate
07df e003 | | Load 0x0,0x3
07e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07e1 8403 | | Call 0x2,0x3
07e2 0831 | 1 | Execute_Immediate Raise,0x31
07e3 0000 0000 | | .BLANK 0000[0x5]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07fa | | .CONST 0x07fa ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0006 | | .CONST 0x0006 ; Number of locals
07eb INIT_07e8:
07eb 00db | | Load_Top At_Offset_3
07ec 8219 | | Call 0x1,0x19
07ed 4801 |H | Short_Literal 0x1
07ee 00d9 | | Load_Top At_Offset_1
07ef e5fd | | Load 0x2,-0x3
07f0 e004 | | Load 0x0,0x4
07f1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
07f2 00e1 | | Load_Encached Boolean_Cache
07f3 03f1 | | Declare_Variable Discrete,With_Value
07f4 029f 0a13 | | Declare_Subprogram For_Call,INIT_0a10
07f6 029f 0a23 | #| Declare_Subprogram For_Call,INIT_0a20
07f8 029f 0a33 | 3| Declare_Subprogram For_Call,INIT_0a30
07fa BODY_07e8:
07fa e001 | | Load 0x0,0x1
07fb 6822 |h" | Jump_Zero 0x81e
07fc e002 | | Load 0x0,0x2
07fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
07fe 4801 |H | Short_Literal 0x1
07ff 0092 0b3e | >| Action Push_String_Extended,0xb3e ; "VALUE - Input =>"
0801 e5ff | | Load 0x2,-0x1
0802 01cc | | Execute Vector,Catenate
0803 0092 0b3d | =| Action Push_String_Extended,0xb3d ; ", field => "
0805 01cc | | Execute Vector,Catenate
0806 e5fe | | Load 0x2,-0x2
0807 00e0 | | Load_Encached Standard_Cache
0808 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0809 01cc | | Execute Vector,Catenate
080a 0092 0b3f | ?| Action Push_String_Extended,0xb3f ; ", image => "
080c 01cc | | Execute Vector,Catenate
080d e5fd | | Load 0x2,-0x3
080e 01cc | | Execute Vector,Catenate
080f 0092 0b40 | @| Action Push_String_Extended,0xb40 ; ", default_image => "
0811 01cc | | Execute Vector,Catenate
0812 e402 | | Load 0x2,0x2
0813 01cc | | Execute Vector,Catenate
0814 0092 0b41 | A| Action Push_String_Extended,0xb41 ; ", is_default => "
0816 01cc | | Execute Vector,Catenate
0817 e403 | | Load 0x2,0x3
0818 00e1 | | Load_Encached Boolean_Cache
0819 011c | | Execute Any,Convert_Unchecked
081a 1c01 | | Execute_Immediate Run_Utility,0x1
081b 01cc | | Execute Vector,Catenate
081c e003 | | Load 0x0,0x3
081d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
081e 8406 | | Call 0x2,0x6
081f 0831 | 1 | Execute_Immediate Raise,0x31
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 00ea | | Load_Encached Null_String_Cache
0824 4402 |D | Exit_Subprogram With_Result,0x2
0825 0000 0000 | | .XXX[0x3]
0827 0000 | |
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b | + | .CONST 0x082b ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0001 | | .CONST 0x0001 ; Number of locals
082b BODY_0828:
082b INIT_0828:
082b 00da | | Load_Top At_Offset_2
082c e20e | | Load 0x1,0xe
082d e005 | | Load 0x0,0x5
082e 01d5 | | Execute Vector,Field_Reference
082f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0830 e006 | | Load 0x0,0x6
0831 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0832 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0833 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0834 4604 |F | Jump_Case 0x4
0835 7805 |x | Jump 0x83b ; case 0x0
0836 7807 |x | Jump 0x83e ; case 0x1
0837 7809 |x | Jump 0x841 ; case 0x2
0838 780b |x | Jump 0x844 ; case 0x3
0839 7800 |x | Jump 0x83a ; case 0x4
083a 08e2 | | Execute_Immediate Raise,0xe2
083b 0092 0b42 | B| Action Push_String_Extended,0xb42 ; "Boolean"
083d 4401 |D | Exit_Subprogram With_Result,0x1
083e 0092 0b43 | C| Action Push_String_Extended,0xb43 ; "Integer"
0840 4401 |D | Exit_Subprogram With_Result,0x1
0841 0092 0b44 | D| Action Push_String_Extended,0xb44 ; "String"
0843 4401 |D | Exit_Subprogram With_Result,0x1
0844 0092 0b45 | E| Action Push_String_Extended,0xb45 ; "File_Name"
0846 4401 |D | Exit_Subprogram With_Result,0x1
0847 0000 | | .XXX[0x1]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b 00da | | Load_Top At_Offset_2
084c e20e | | Load 0x1,0xe
084d e005 | | Load 0x0,0x5
084e 01d5 | | Execute Vector,Field_Reference
084f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0850 e006 | | Load 0x0,0x6
0851 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0852 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0853 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0854 4604 |F | Jump_Case 0x4
0855 7805 |x | Jump 0x85b ; case 0x0
0856 7806 |x | Jump 0x85d ; case 0x1
0857 7807 |x | Jump 0x85f ; case 0x2
0858 7808 |x | Jump 0x861 ; case 0x3
0859 7800 |x | Jump 0x85a ; case 0x4
085a 08e2 | | Execute_Immediate Raise,0xe2
085b 4800 |H | Short_Literal 0x0
085c 4401 |D | Exit_Subprogram With_Result,0x1
085d 4801 |H | Short_Literal 0x1
085e 4401 |D | Exit_Subprogram With_Result,0x1
085f 4802 |H | Short_Literal 0x2
0860 4401 |D | Exit_Subprogram With_Result,0x1
0861 4803 |H | Short_Literal 0x3
0862 4401 |D | Exit_Subprogram With_Result,0x1
0863 0000 0000 | | .BLANK 0000[0x5]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 0870 | p | .CONST 0x0870 ; Address of begin
0869 0873 | s | .CONST 0x0873 ; Address of exception handler
086a 0004 | | .CONST 0x0004 ; Number of locals
086b INIT_0868:
086b 00e3 | | Load_Encached Natural_Cache
086c 029f 0a93 | | Declare_Subprogram For_Call,INIT_0a90
086e 029f 0aa3 | | Declare_Subprogram For_Call,INIT_0aa0
0870 BODY_0868:
0870 8403 | | Call 0x2,0x3
0871 8404 | | Call 0x2,0x4
0872 0831 | 1 | Execute_Immediate Raise,0x31
0873 TRAP_0868:
0873 0007 | | Action Break_Optional
0874 e002 | | Load 0x0,0x2
0875 180e | | Execute Package,Field_Execute,Field_Number 0xe
0876 4808 |H | Short_Literal 0x8
0877 4800 |H | Short_Literal 0x0
0878 4801 |H | Short_Literal 0x1
0879 e007 | | Load 0x0,0x7
087a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
087b e003 | | Load 0x0,0x3
087c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
087d 00ea | | Load_Encached Null_String_Cache
087e 4402 |D | Exit_Subprogram With_Result,0x2
087f 0000 | | .XXX[0x1]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 088e | | .CONST 0x088e ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0004 | | .CONST 0x0004 ; Number of locals
0883 INIT_0880:
0883 00da | | Load_Top At_Offset_2
0884 01dd | | Execute Vector,First
0885 00e2 | | Load_Encached Integer_Cache
0886 03f1 | | Declare_Variable Discrete,With_Value
0887 00db | | Load_Top At_Offset_3
0888 01dc | | Execute Vector,Last
0889 00e2 | | Load_Encached Integer_Cache
088a 03f1 | | Declare_Variable Discrete,With_Value
088b 00d9 | | Load_Top At_Offset_1
088c 00e3 | | Load_Encached Natural_Cache
088d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
088e BODY_0880:
088e 00cf | | Action Mark_Auxiliary
088f 782f |x/ | Jump 0x8bf
0890 4801 |H | Short_Literal 0x1
0891 00da | | Load_Top At_Offset_2
0892 e403 | | Load 0x2,0x3
0893 e5ff | | Load 0x2,-0x1
0894 01cf | | Execute Vector,Slice_Read
0895 e5fe | | Load 0x2,-0x2
0896 e004 | | Load 0x0,0x4
0897 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0898 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0899 00d9 | | Load_Top At_Offset_1
089a 0c01 | | Execute_Immediate Greater_Equal,0x1
089b 682b |h+ | Jump_Zero 0x8c7
089c 00d9 | | Load_Top At_Offset_1
089d e5fe | | Load 0x2,-0x2
089e 01db | | Execute Vector,Length
089f 0273 | s | Execute Discrete,Plus
08a0 e5ff | | Load 0x2,-0x1
08a1 01d7 | | Execute Vector,Field_Read
08a2 0f20 | | Execute_Immediate Equal,0x20
08a3 6816 |h | Jump_Zero 0x8ba
08a4 00d9 | | Load_Top At_Offset_1
08a5 e402 | | Load 0x2,0x2
08a6 027f | | Execute Discrete,Equal
08a7 7006 |p | Jump_Nonzero 0x8ae
08a8 00d9 | | Load_Top At_Offset_1
08a9 0aff | | Execute_Immediate Plus,-0x1
08aa e5ff | | Load 0x2,-0x1
08ab 01d7 | | Execute Vector,Field_Read
08ac 0f0a | | Execute_Immediate Equal,0xa
08ad 680c |h | Jump_Zero 0x8ba
08ae 00d9 | | Load_Top At_Offset_1
08af 4800 |H | Short_Literal 0x0
08b0 00db | | Load_Top At_Offset_3
08b1 e403 | | Load 0x2,0x3
08b2 e5ff | | Load 0x2,-0x1
08b3 01cf | | Execute Vector,Slice_Read
08b4 480a |H | Short_Literal 0xa
08b5 e004 | | Load 0x0,0x4
08b6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
08b7 e5ff | | Load 0x2,-0x1
08b8 01cf | | Execute Vector,Slice_Read
08b9 4402 |D | Exit_Subprogram With_Result,0x2
08ba 00d9 | | Load_Top At_Offset_1
08bb 0a01 | | Execute_Immediate Plus,0x1
08bc 005a | Z | Store_Top Discrete,At_Offset_2
08bd 7800 |x | Jump 0x8be
08be 00c9 | | Action Pop_Auxiliary_Loop
08bf 00d9 | | Load_Top At_Offset_1
08c0 00db | | Load_Top At_Offset_3
08c1 e5fe | | Load 0x2,-0x2
08c2 01db | | Execute Vector,Length
08c3 0272 | r | Execute Discrete,Minus
08c4 0aff | | Execute_Immediate Plus,-0x1
08c5 027a | z | Execute Discrete,Less_Equal
08c6 77c9 |w | Jump_Nonzero 0x890
08c7 00ce | | Action Pop_Auxiliary
08c8 00ea | | Load_Encached Null_String_Cache
08c9 4402 |D | Exit_Subprogram With_Result,0x2
08ca 0000 0000 | | .BLANK 0000[0x6]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3 | | .CONST 0x08d3 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0001 | | .CONST 0x0001 ; Number of locals
08d3 BODY_08d0:
08d3 INIT_08d0:
08d3 00da | | Load_Top At_Offset_2
08d4 01dd | | Execute Vector,First
08d5 00db | | Load_Top At_Offset_3
08d6 01d7 | | Execute Vector,Field_Read
08d7 0e22 | " | Execute_Immediate Not_Equal,0x22
08d8 6803 |h | Jump_Zero 0x8dc
08d9 e008 | | Load 0x0,0x8
08da 1b14 | | Execute Package,Field_Read,Field_Number 0x14
08db 0257 | W | Execute Discrete,Raise
08dc 00cf | | Action Mark_Auxiliary
08dd 00db | | Load_Top At_Offset_3
08de 01dc | | Execute Vector,Last
08df 0aff | | Execute_Immediate Plus,-0x1
08e0 00d8 | | Load_Top At_Offset_0
08e1 00e2 | | Load_Encached Integer_Cache
08e2 0260 | ` | Execute Discrete,In_Type
08e3 7001 |p | Jump_Nonzero 0x8e5
08e4 0801 | | Execute_Immediate Raise,0x1
08e5 e5ff | | Load 0x2,-0x1
08e6 01dd | | Execute Vector,First
08e7 0a01 | | Execute_Immediate Plus,0x1
08e8 00d8 | | Load_Top At_Offset_0
08e9 00e2 | | Load_Encached Integer_Cache
08ea 0260 | ` | Execute Discrete,In_Type
08eb 7001 |p | Jump_Nonzero 0x8ed
08ec 0801 | | Execute_Immediate Raise,0x1
08ed 0263 | c | Execute Discrete,Above_Bound
08ee 7020 |p | Jump_Nonzero 0x90f
08ef 00d8 | | Load_Top At_Offset_0
08f0 e5ff | | Load 0x2,-0x1
08f1 01d7 | | Execute Vector,Field_Read
08f2 0f22 | " | Execute_Immediate Equal,0x22
08f3 6819 |h | Jump_Zero 0x90d
08f4 e5ff | | Load 0x2,-0x1
08f5 01dd | | Execute Vector,First
08f6 0a01 | | Execute_Immediate Plus,0x1
08f7 00d8 | | Load_Top At_Offset_0
08f8 00e2 | | Load_Encached Integer_Cache
08f9 0260 | ` | Execute Discrete,In_Type
08fa 7001 |p | Jump_Nonzero 0x8fc
08fb 0801 | | Execute_Immediate Raise,0x1
08fc 00d9 | | Load_Top At_Offset_1
08fd e5ff | | Load 0x2,-0x1
08fe 01cf | | Execute Vector,Slice_Read
08ff 00d9 | | Load_Top At_Offset_1
0900 0a01 | | Execute_Immediate Plus,0x1
0901 00d8 | | Load_Top At_Offset_0
0902 00e2 | | Load_Encached Integer_Cache
0903 0260 | ` | Execute Discrete,In_Type
0904 7001 |p | Jump_Nonzero 0x906
0905 0801 | | Execute_Immediate Raise,0x1
0906 e5ff | | Load 0x2,-0x1
0907 01dc | | Execute Vector,Last
0908 e5ff | | Load 0x2,-0x1
0909 01cf | | Execute Vector,Slice_Read
090a 8217 | | Call 0x1,0x17
090b 01cc | | Execute Vector,Catenate
090c 4401 |D | Exit_Subprogram With_Result,0x1
090d 00c8 | | Action Pop_Auxiliary_Range
090e 3fe0 |? | Loop_Increasing 0x8ef
090f 00ce | | Action Pop_Auxiliary
0910 00da | | Load_Top At_Offset_2
0911 01dc | | Execute Vector,Last
0912 00db | | Load_Top At_Offset_3
0913 01d7 | | Execute Vector,Field_Read
0914 0e22 | " | Execute_Immediate Not_Equal,0x22
0915 6803 |h | Jump_Zero 0x919
0916 e008 | | Load 0x0,0x8
0917 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0918 0257 | W | Execute Discrete,Raise
0919 00da | | Load_Top At_Offset_2
091a 01dd | | Execute Vector,First
091b 0a01 | | Execute_Immediate Plus,0x1
091c 00d8 | | Load_Top At_Offset_0
091d 00e2 | | Load_Encached Integer_Cache
091e 0260 | ` | Execute Discrete,In_Type
091f 7001 |p | Jump_Nonzero 0x921
0920 0801 | | Execute_Immediate Raise,0x1
0921 00db | | Load_Top At_Offset_3
0922 01dc | | Execute Vector,Last
0923 0aff | | Execute_Immediate Plus,-0x1
0924 00d8 | | Load_Top At_Offset_0
0925 00e2 | | Load_Encached Integer_Cache
0926 0260 | ` | Execute Discrete,In_Type
0927 7001 |p | Jump_Nonzero 0x929
0928 0801 | | Execute_Immediate Raise,0x1
0929 e5ff | | Load 0x2,-0x1
092a 01cf | | Execute Vector,Slice_Read
092b 4401 |D | Exit_Subprogram With_Result,0x1
092c 0000 0000 | | .BLANK 0000[0x4]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933 | 3 | .CONST 0x0933 ; Address of begin
0931 0004 | | .CONST 0x0004 ; Address of exception handler
0932 0001 | | .CONST 0x0001 ; Number of locals
0933 BODY_0930:
0933 INIT_0930:
0933 00cf | | Action Mark_Auxiliary
0934 00db | | Load_Top At_Offset_3
0935 01d9 | | Execute Vector,Reverse_Bounds
0936 0263 | c | Execute Discrete,Above_Bound
0937 701c |p | Jump_Nonzero 0x954
0938 00d8 | | Load_Top At_Offset_0
0939 e5ff | | Load 0x2,-0x1
093a 01d7 | | Execute Vector,Field_Read
093b 0f22 | " | Execute_Immediate Equal,0x22
093c 6815 |h | Jump_Zero 0x952
093d 4822 |H" | Short_Literal 0x22
093e e5ff | | Load 0x2,-0x1
093f 01dd | | Execute Vector,First
0940 00da | | Load_Top At_Offset_2
0941 e5ff | | Load 0x2,-0x1
0942 01cf | | Execute Vector,Slice_Read
0943 01ca | | Execute Vector,Prepend
0944 00d9 | | Load_Top At_Offset_1
0945 0a01 | | Execute_Immediate Plus,0x1
0946 00d8 | | Load_Top At_Offset_0
0947 00e2 | | Load_Encached Integer_Cache
0948 0260 | ` | Execute Discrete,In_Type
0949 7001 |p | Jump_Nonzero 0x94b
094a 0801 | | Execute_Immediate Raise,0x1
094b e5ff | | Load 0x2,-0x1
094c 01dc | | Execute Vector,Last
094d e5ff | | Load 0x2,-0x1
094e 01cf | | Execute Vector,Slice_Read
094f 8218 | | Call 0x1,0x18
0950 01cc | | Execute Vector,Catenate
0951 4401 |D | Exit_Subprogram With_Result,0x1
0952 00c8 | | Action Pop_Auxiliary_Range
0953 3fe4 |? | Loop_Increasing 0x938
0954 00ce | | Action Pop_Auxiliary
0955 4822 |H" | Short_Literal 0x22
0956 4822 |H" | Short_Literal 0x22
0957 e5ff | | Load 0x2,-0x1
0958 01ca | | Execute Vector,Prepend
0959 01cb | | Execute Vector,Append
095a 4401 |D | Exit_Subprogram With_Result,0x1
095b 0000 0000 | | .BLANK 0000[0x5]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0965 | e | .CONST 0x0965 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0002 | | .CONST 0x0002 ; Number of locals
0963 INIT_0960:
0963 029f 0acb | | Declare_Subprogram For_Call,INIT_0ac8
0965 BODY_0960:
0965 8402 | | Call 0x2,0x2
0966 0831 | 1 | Execute_Immediate Raise,0x31
0967 0000 | | .XXX[0x1]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b | k | .CONST 0x096b ; Address of begin
0969 0004 | | .CONST 0x0004 ; Address of exception handler
096a 0001 | | .CONST 0x0001 ; Number of locals
096b BODY_0968:
096b INIT_0968:
096b 00da | | Load_Top At_Offset_2
096c 01dd | | Execute Vector,First
096d 00db | | Load_Top At_Offset_3
096e 01d7 | | Execute Vector,Field_Read
096f 0f22 | " | Execute_Immediate Equal,0x22
0970 6819 |h | Jump_Zero 0x98a
0971 00da | | Load_Top At_Offset_2
0972 01dc | | Execute Vector,Last
0973 00db | | Load_Top At_Offset_3
0974 01d7 | | Execute Vector,Field_Read
0975 0f22 | " | Execute_Immediate Equal,0x22
0976 6813 |h | Jump_Zero 0x98a
0977 00da | | Load_Top At_Offset_2
0978 01dd | | Execute Vector,First
0979 0a01 | | Execute_Immediate Plus,0x1
097a 00d8 | | Load_Top At_Offset_0
097b 00e2 | | Load_Encached Integer_Cache
097c 0260 | ` | Execute Discrete,In_Type
097d 7001 |p | Jump_Nonzero 0x97f
097e 0801 | | Execute_Immediate Raise,0x1
097f 00db | | Load_Top At_Offset_3
0980 01dc | | Execute Vector,Last
0981 0aff | | Execute_Immediate Plus,-0x1
0982 00d8 | | Load_Top At_Offset_0
0983 00e2 | | Load_Encached Integer_Cache
0984 0260 | ` | Execute Discrete,In_Type
0985 7001 |p | Jump_Nonzero 0x987
0986 0801 | | Execute_Immediate Raise,0x1
0987 e5ff | | Load 0x2,-0x1
0988 01cf | | Execute Vector,Slice_Read
0989 4401 |D | Exit_Subprogram With_Result,0x1
098a 00da | | Load_Top At_Offset_2
098b 4401 |D | Exit_Subprogram With_Result,0x1
098c 0000 0000 | | .BLANK 0000[0x4]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993 | | .CONST 0x0993 ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0001 | | .CONST 0x0001 ; Number of locals
0993 BODY_0990:
0993 INIT_0990:
0993 e001 | | Load 0x0,0x1
0994 6809 |h | Jump_Zero 0x99e
0995 e002 | | Load 0x0,0x2
0996 180e | | Execute Package,Field_Execute,Field_Number 0xe
0997 4801 |H | Short_Literal 0x1
0998 0092 0b46 | F| Action Push_String_Extended,0xb46 ; "IMAGE - returning: "
099a e7ff | | Load 0x3,-0x1
099b 01cc | | Execute Vector,Catenate
099c e003 | | Load 0x0,0x3
099d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
099e 00da | | Load_Top At_Offset_2
099f 4401 |D | Exit_Subprogram With_Result,0x1
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09c8 | | .CONST 0x09c8 ; Address of begin
09a1 0004 | | .CONST 0x0004 ; Address of exception handler
09a2 0008 | | .CONST 0x0008 ; Number of locals
09a3 INIT_09a0:
09a3 e009 | | Load 0x0,0x9
09a4 0322 | " | Declare_Variable Record
09a5 e5fe | | Load 0x2,-0x2
09a6 e20e | | Load 0x1,0xe
09a7 e005 | | Load 0x0,0x5
09a8 01d5 | | Execute Vector,Field_Reference
09a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09aa e006 | | Load 0x0,0x6
09ab 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09ac 00d9 | | Load_Top At_Offset_1
09ad 017d | } | Execute Record,Structure_Write
09ae 00d8 | | Load_Top At_Offset_0
09af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09b0 0217 | | Execute Heap_Access,All_Reference
09b1 0335 | 5 | Declare_Variable Array,Duplicate
09b2 00cd | | Action Spare6_Action
09b3 00d8 | | Load_Top At_Offset_0
09b4 e5ff | | Load 0x2,-0x1
09b5 8216 | | Call 0x1,0x16
09b6 4800 |H | Short_Literal 0x0
09b7 00d9 | | Load_Top At_Offset_1
09b8 4820 |H | Short_Literal 0x20
09b9 e004 | | Load 0x0,0x4
09ba 181e | | Execute Package,Field_Execute,Field_Number 0x1e
09bb 00e3 | | Load_Encached Natural_Cache
09bc 03f1 | | Declare_Variable Discrete,With_Value
09bd e00a | | Load 0x0,0xa
09be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09c0 e00a | | Load 0x0,0xa
09c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09c2 02c7 | | Declare_Variable Any
09c3 e00a | | Load 0x0,0xa
09c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09c5 a607 | | Store_Unchecked 0x3,0x7
09c6 029f 0b03 | | Declare_Subprogram For_Call,INIT_0b00
09c8 BODY_09a0:
09c8 e001 | | Load 0x0,0x1
09c9 6806 |h | Jump_Zero 0x9d0
09ca 0092 0b47 | G| Action Push_String_Extended,0xb47 ; "The_Switch_Field = "
09cc e604 | | Load 0x3,0x4
09cd 01cc | | Execute Vector,Catenate
09ce e00b | | Load 0x0,0xb
09cf 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
09d0 e604 | | Load 0x3,0x4
09d1 01db | | Execute Vector,Length
09d2 7005 |p | Jump_Nonzero 0x9d8
09d3 e5fe | | Load 0x2,-0x2
09d4 8219 | | Call 0x1,0x19
09d5 8402 | | Call 0x2,0x2
09d6 00cb | | Action Pop_Block_With_Result
09d7 4402 |D | Exit_Subprogram With_Result,0x2
09d8 00db | | Load_Top At_Offset_3
09d9 7001 |p | Jump_Nonzero 0x9db
09da 0887 | | Execute_Immediate Raise,0x87
09db e5fe | | Load 0x2,-0x2
09dc 8214 | | Call 0x1,0x14
09dd 0f02 | | Execute_Immediate Equal,0x2
09de 6815 |h | Jump_Zero 0x9f4
09df 00db | | Load_Top At_Offset_3
09e0 0a01 | | Execute_Immediate Plus,0x1
09e1 00d8 | | Load_Top At_Offset_0
09e2 00e2 | | Load_Encached Integer_Cache
09e3 0260 | ` | Execute Discrete,In_Type
09e4 7001 |p | Jump_Nonzero 0x9e6
09e5 0801 | | Execute_Immediate Raise,0x1
09e6 e604 | | Load 0x3,0x4
09e7 01dc | | Execute Vector,Last
09e8 0aff | | Execute_Immediate Plus,-0x1
09e9 00d8 | | Load_Top At_Offset_0
09ea 00e2 | | Load_Encached Integer_Cache
09eb 0260 | ` | Execute Discrete,In_Type
09ec 7001 |p | Jump_Nonzero 0x9ee
09ed 0801 | | Execute_Immediate Raise,0x1
09ee e604 | | Load 0x3,0x4
09ef 01cf | | Execute Vector,Slice_Read
09f0 8218 | | Call 0x1,0x18
09f1 8402 | | Call 0x2,0x2
09f2 00cb | | Action Pop_Block_With_Result
09f3 4402 |D | Exit_Subprogram With_Result,0x2
09f4 e602 | | Load 0x3,0x2
09f5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
09f6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09f7 0f03 | | Execute_Immediate Equal,0x3
09f8 6802 |h | Jump_Zero 0x9fb
09f9 8608 | | Call 0x3,0x8
09fa 4501 |E | Exit_Subprogram 0x1
09fb 00db | | Load_Top At_Offset_3
09fc 0a01 | | Execute_Immediate Plus,0x1
09fd 00d8 | | Load_Top At_Offset_0
09fe 00e2 | | Load_Encached Integer_Cache
09ff 0260 | ` | Execute Discrete,In_Type
0a00 7001 |p | Jump_Nonzero 0xa02
0a01 0801 | | Execute_Immediate Raise,0x1
0a02 e604 | | Load 0x3,0x4
0a03 01dc | | Execute Vector,Last
0a04 0aff | | Execute_Immediate Plus,-0x1
0a05 00d8 | | Load_Top At_Offset_0
0a06 00e2 | | Load_Encached Integer_Cache
0a07 0260 | ` | Execute Discrete,In_Type
0a08 7001 |p | Jump_Nonzero 0xa0a
0a09 0801 | | Execute_Immediate Raise,0x1
0a0a e604 | | Load 0x3,0x4
0a0b 01cf | | Execute Vector,Slice_Read
0a0c 8402 | | Call 0x2,0x2
0a0d 00cb | | Action Pop_Block_With_Result
0a0e 4402 |D | Exit_Subprogram With_Result,0x2
0a0f 0000 | | .XXX[0x1]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a13 | | .CONST 0x0a13 ; Address of begin
0a11 0004 | | .CONST 0x0004 ; Address of exception handler
0a12 0001 | | .CONST 0x0001 ; Number of locals
0a13 BODY_0a10:
0a13 INIT_0a10:
0a13 e001 | | Load 0x0,0x1
0a14 6809 |h | Jump_Zero 0xa1e
0a15 e002 | | Load 0x0,0x2
0a16 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a17 4801 |H | Short_Literal 0x1
0a18 0092 0b48 | H| Action Push_String_Extended,0xb48 ; "VALUE - returning: "
0a1a e7ff | | Load 0x3,-0x1
0a1b 01cc | | Execute Vector,Catenate
0a1c e003 | | Load 0x0,0x3
0a1d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a1e 00da | | Load_Top At_Offset_2
0a1f 4401 |D | Exit_Subprogram With_Result,0x1
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a23 | # | .CONST 0x0a23 ; Address of begin
0a21 0004 | | .CONST 0x0004 ; Address of exception handler
0a22 0001 | | .CONST 0x0001 ; Number of locals
0a23 BODY_0a20:
0a23 INIT_0a20:
0a23 e5fe | | Load 0x2,-0x2
0a24 8214 | | Call 0x1,0x14
0a25 0f02 | | Execute_Immediate Equal,0x2
0a26 6803 |h | Jump_Zero 0xa2a
0a27 00da | | Load_Top At_Offset_2
0a28 8217 | | Call 0x1,0x17
0a29 4401 |D | Exit_Subprogram With_Result,0x1
0a2a 00da | | Load_Top At_Offset_2
0a2b 4401 |D | Exit_Subprogram With_Result,0x1
0a2c 0000 0000 | | .BLANK 0000[0x4]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a48 | H | .CONST 0x0a48 ; Address of begin
0a31 0004 | | .CONST 0x0004 ; Address of exception handler
0a32 0004 | | .CONST 0x0004 ; Number of locals
0a33 INIT_0a30:
0a33 e5fe | | Load 0x2,-0x2
0a34 e20e | | Load 0x1,0xe
0a35 e005 | | Load 0x0,0x5
0a36 01d5 | | Execute Vector,Field_Reference
0a37 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a38 e006 | | Load 0x0,0x6
0a39 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a3a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a3b 0217 | | Execute Heap_Access,All_Reference
0a3c 0335 | 5 | Declare_Variable Array,Duplicate
0a3d 00cd | | Action Spare6_Action
0a3e 00d8 | | Load_Top At_Offset_0
0a3f e5ff | | Load 0x2,-0x1
0a40 8216 | | Call 0x1,0x16
0a41 4800 |H | Short_Literal 0x0
0a42 00d9 | | Load_Top At_Offset_1
0a43 4820 |H | Short_Literal 0x20
0a44 e004 | | Load 0x0,0x4
0a45 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a46 00e3 | | Load_Encached Natural_Cache
0a47 03f1 | | Declare_Variable Discrete,With_Value
0a48 BODY_0a30:
0a48 00d9 | | Load_Top At_Offset_1
0a49 01db | | Execute Vector,Length
0a4a 7013 |p | Jump_Nonzero 0xa5e
0a4b e403 | | Load 0x2,0x3
0a4c 6804 |h | Jump_Zero 0xa51
0a4d e5ff | | Load 0x2,-0x1
0a4e 8404 | | Call 0x2,0x4
0a4f 00cb | | Action Pop_Block_With_Result
0a50 4403 |D | Exit_Subprogram With_Result,0x3
0a51 480a |H | Short_Literal 0xa
0a52 4820 |H | Short_Literal 0x20
0a53 e5ff | | Load 0x2,-0x1
0a54 e602 | | Load 0x3,0x2
0a55 01cc | | Execute Vector,Catenate
0a56 01cb | | Execute Vector,Append
0a57 e5fd | | Load 0x2,-0x3
0a58 8405 | | Call 0x2,0x5
0a59 01cc | | Execute Vector,Catenate
0a5a 01cb | | Execute Vector,Append
0a5b 8404 | | Call 0x2,0x4
0a5c 00cb | | Action Pop_Block_With_Result
0a5d 4403 |D | Exit_Subprogram With_Result,0x3
0a5e e403 | | Load 0x2,0x3
0a5f 681c |h | Jump_Zero 0xa7c
0a60 e5ff | | Load 0x2,-0x1
0a61 01dd | | Execute Vector,First
0a62 00da | | Load_Top At_Offset_2
0a63 01dd | | Execute Vector,First
0a64 0aff | | Execute_Immediate Plus,-0x1
0a65 00d8 | | Load_Top At_Offset_0
0a66 00e2 | | Load_Encached Integer_Cache
0a67 0260 | ` | Execute Discrete,In_Type
0a68 7001 |p | Jump_Nonzero 0xa6a
0a69 0801 | | Execute_Immediate Raise,0x1
0a6a e5ff | | Load 0x2,-0x1
0a6b 01cf | | Execute Vector,Slice_Read
0a6c 00da | | Load_Top At_Offset_2
0a6d 01dc | | Execute Vector,Last
0a6e 0a01 | | Execute_Immediate Plus,0x1
0a6f 00d8 | | Load_Top At_Offset_0
0a70 00e2 | | Load_Encached Integer_Cache
0a71 0260 | ` | Execute Discrete,In_Type
0a72 7001 |p | Jump_Nonzero 0xa74
0a73 0801 | | Execute_Immediate Raise,0x1
0a74 e5ff | | Load 0x2,-0x1
0a75 01dc | | Execute Vector,Last
0a76 e5ff | | Load 0x2,-0x1
0a77 01cf | | Execute Vector,Slice_Read
0a78 01cc | | Execute Vector,Catenate
0a79 8404 | | Call 0x2,0x4
0a7a 00cb | | Action Pop_Block_With_Result
0a7b 4403 |D | Exit_Subprogram With_Result,0x3
0a7c e5ff | | Load 0x2,-0x1
0a7d 01dd | | Execute Vector,First
0a7e 00d9 | | Load_Top At_Offset_1
0a7f e5ff | | Load 0x2,-0x1
0a80 01cf | | Execute Vector,Slice_Read
0a81 e5fd | | Load 0x2,-0x3
0a82 8405 | | Call 0x2,0x5
0a83 01cc | | Execute Vector,Catenate
0a84 00da | | Load_Top At_Offset_2
0a85 01dc | | Execute Vector,Last
0a86 e5ff | | Load 0x2,-0x1
0a87 01dc | | Execute Vector,Last
0a88 e5ff | | Load 0x2,-0x1
0a89 01cf | | Execute Vector,Slice_Read
0a8a 01cc | | Execute Vector,Catenate
0a8b 8404 | | Call 0x2,0x4
0a8c 00cb | | Action Pop_Block_With_Result
0a8d 4403 |D | Exit_Subprogram With_Result,0x3
0a8e 0000 0000 | | .XXX[0x2]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a93 | | .CONST 0x0a93 ; Address of begin
0a91 0004 | | .CONST 0x0004 ; Address of exception handler
0a92 0001 | | .CONST 0x0001 ; Number of locals
0a93 BODY_0a90:
0a93 INIT_0a90:
0a93 e5ff | | Load 0x2,-0x1
0a94 00e2 | | Load_Encached Integer_Cache
0a95 00e0 | | Load_Encached Standard_Cache
0a96 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0a97 c402 | | Store 0x2,0x2
0a98 4501 |E | Exit_Subprogram 0x1
0a99 0000 0000 | | .BLANK 0000[0x7]
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; SUBPROGRAM
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0ab4 | | .CONST 0x0ab4 ; Address of begin
0aa1 0004 | | .CONST 0x0004 ; Address of exception handler
0aa2 0004 | | .CONST 0x0004 ; Number of locals
0aa3 INIT_0aa0:
0aa3 e402 | | Load 0x2,0x2
0aa4 e20e | | Load 0x1,0xe
0aa5 e005 | | Load 0x0,0x5
0aa6 01d5 | | Execute Vector,Field_Reference
0aa7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0aa8 e006 | | Load 0x0,0x6
0aa9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0aaa 00d8 | | Load_Top At_Offset_0
0aab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0aac 0217 | | Execute Heap_Access,All_Reference
0aad 0335 | 5 | Declare_Variable Array,Duplicate
0aae 00cd | | Action Spare6_Action
0aaf 00d9 | | Load_Top At_Offset_1
0ab0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ab1 0217 | | Execute Heap_Access,All_Reference
0ab2 0335 | 5 | Declare_Variable Array,Duplicate
0ab3 00cd | | Action Spare6_Action
0ab4 BODY_0aa0:
0ab4 00d9 | | Load_Top At_Offset_1
0ab5 01db | | Execute Vector,Length
0ab6 700b |p | Jump_Nonzero 0xac2
0ab7 0092 0b49 | I| Action Push_String_Extended,0xb49 ; "No help available for "
0ab9 00d9 | | Load_Top At_Offset_1
0aba e004 | | Load 0x0,0x4
0abb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0abc 01cc | | Execute Vector,Catenate
0abd 0092 0b4a | J| Action Push_String_Extended,0xb4a ; "."
0abf 01cc | | Execute Vector,Catenate
0ac0 00cb | | Action Pop_Block_With_Result
0ac1 4402 |D | Exit_Subprogram With_Result,0x2
0ac2 00d9 | | Load_Top At_Offset_1
0ac3 00cb | | Action Pop_Block_With_Result
0ac4 4402 |D | Exit_Subprogram With_Result,0x2
0ac5 0000 0000 | | .XXX[0x3]
0ac7 0000 | |
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0ad4 | | .CONST 0x0ad4 ; Address of begin
0ac9 0afa | | .CONST 0x0afa ; Address of exception handler
0aca 0002 | | .CONST 0x0002 ; Number of locals
0acb INIT_0ac8:
0acb e5ff | | Load 0x2,-0x1
0acc e20e | | Load 0x1,0xe
0acd e005 | | Load 0x0,0x5
0ace 01d5 | | Execute Vector,Field_Reference
0acf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ad0 e006 | | Load 0x0,0x6
0ad1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0ad2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0ad3 0007 | | Action Break_Optional
0ad4 BODY_0ac8:
0ad4 00d8 | | Load_Top At_Offset_0
0ad5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0ad6 4604 |F | Jump_Case 0x4
0ad7 781b |x | Jump 0xaf3 ; case 0x0
0ad8 7804 |x | Jump 0xadd ; case 0x1
0ad9 780c |x | Jump 0xae6 ; case 0x2
0ada 7811 |x | Jump 0xaec ; case 0x3
0adb 4501 |E | Exit_Subprogram 0x1 ; case 0x4
0adc 4501 |E | .XXX[0x1]
0add 4820 |H | Short_Literal 0x20
0ade 00d9 | | Load_Top At_Offset_1
0adf 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0ae0 00e0 | | Load_Encached Standard_Cache
0ae1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ae2 e004 | | Load 0x0,0x4
0ae3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0ae4 00cb | | Action Pop_Block_With_Result
0ae5 4401 |D | Exit_Subprogram With_Result,0x1
0ae6 00d8 | | Load_Top At_Offset_0
0ae7 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0ae8 0217 | | Execute Heap_Access,All_Reference
0ae9 8218 | | Call 0x1,0x18
0aea 00cb | | Action Pop_Block_With_Result
0aeb 4401 |D | Exit_Subprogram With_Result,0x1
0aec 00d8 | | Load_Top At_Offset_0
0aed 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0aee 0217 | | Execute Heap_Access,All_Reference
0aef 0335 | 5 | Declare_Variable Array,Duplicate
0af0 00cd | | Action Spare6_Action
0af1 00cb | | Action Pop_Block_With_Result
0af2 4401 |D | Exit_Subprogram With_Result,0x1
0af3 00d8 | | Load_Top At_Offset_0
0af4 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0af5 00e1 | | Load_Encached Boolean_Cache
0af6 011c | | Execute Any,Convert_Unchecked
0af7 1c01 | | Execute_Immediate Run_Utility,0x1
0af8 00cb | | Action Pop_Block_With_Result
0af9 4401 |D | Exit_Subprogram With_Result,0x1
0afa TRAP_0ac8:
0afa e006 | | Load 0x0,0x6
0afb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0afc 010f | | Execute Exception,Equal
0afd 6801 |h | Jump_Zero 0xaff
0afe 4501 |E | Exit_Subprogram 0x1
0aff 0100 | | Execute Exception,Raise
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b15 | | .CONST 0x0b15 ; Address of begin
0b01 0004 | | .CONST 0x0004 ; Address of exception handler
0b02 0002 | | .CONST 0x0002 ; Number of locals
0b03 INIT_0b00:
0b03 e605 | | Load 0x3,0x5
0b04 0a01 | | Execute_Immediate Plus,0x1
0b05 00d8 | | Load_Top At_Offset_0
0b06 00e2 | | Load_Encached Integer_Cache
0b07 0260 | ` | Execute Discrete,In_Type
0b08 7001 |p | Jump_Nonzero 0xb0a
0b09 0801 | | Execute_Immediate Raise,0x1
0b0a e604 | | Load 0x3,0x4
0b0b 01dc | | Execute Vector,Last
0b0c 0aff | | Execute_Immediate Plus,-0x1
0b0d 00d8 | | Load_Top At_Offset_0
0b0e 00e2 | | Load_Encached Integer_Cache
0b0f 0260 | ` | Execute Discrete,In_Type
0b10 7001 |p | Jump_Nonzero 0xb12
0b11 0801 | | Execute_Immediate Raise,0x1
0b12 e604 | | Load 0x3,0x4
0b13 01cf | | Execute Vector,Slice_Read
0b14 821a | | Call 0x1,0x1a
0b15 BODY_0b00:
0b15 00d8 | | Load_Top At_Offset_0
0b16 e00a | | Load 0x0,0xa
0b17 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b18 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b19 700c |p | Jump_Nonzero 0xb26
0b1a 0092 0b4b | K| Action Push_String_Extended,0xb4b ; "Cannot set switch - not a well-formed file name "
0b1c 00d9 | | Load_Top At_Offset_1
0b1d 01cc | | Execute Vector,Catenate
0b1e e00b | | Load 0x0,0xb
0b1f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b20 0092 0b4c | L| Action Push_String_Extended,0xb4c ; "<>"
0b22 8218 | | Call 0x1,0x18
0b23 00cb | | Action Pop_Block_With_Result
0b24 00cb | | Action Pop_Block_With_Result
0b25 4402 |D | Exit_Subprogram With_Result,0x2
0b26 00d8 | | Load_Top At_Offset_0
0b27 8218 | | Call 0x1,0x18
0b28 8402 | | Call 0x2,0x2
0b29 00cb | | Action Pop_Block_With_Result
0b2a 00cb | | Action Pop_Block_With_Result
0b2b 4402 |D | Exit_Subprogram With_Result,0x2
0b2c ; --------------------------------------------------------------------------------------
0b2c ; STRING TABLE
0b2c ; --------------------------------------------------------------------------------------
0b2c 0044 | D | .STRTAB 0x0044->0x0b4e ; "LIBRARY_SWITCH"
0b2d 0050 | P | .STRTAB 0x0050->0x0b55 ; "SESSION_SWITCH"
0b2e 005c | \ | .STRTAB 0x005c->0x0b5c ; "BOOLEAN_KIND"
0b2f 0066 | f | .STRTAB 0x0066->0x0b62 ; "INTEGER_KIND"
0b30 0070 | p | .STRTAB 0x0070->0x0b68 ; "TEXT_KIND"
0b31 0077 | w | .STRTAB 0x0077->0x0b6c ; "FILE_KIND"
0b32 007e | ~ | .STRTAB 0x007e->0x0b71 ; "UNDEFINED"
0b33 0085 | | .STRTAB 0x0085->0x0b75 ; "Switch "
; "Switch "
; "Switch "
; "Switch "
; "Switch "
; "Switch "
; "Switch "
; "Switch "
0b34 008a | | .STRTAB 0x008a->0x0b79 ; " is already defined"
; " is already defined"
; " is already defined"
; " is already defined"
0b35 009b | | .STRTAB 0x009b->0x0b82 ; " is not defined"
; " is not defined"
; " is not defined"
; " is not defined"
0b36 00a8 | | .STRTAB 0x00a8->0x0b8a ; "$"
; "$"
0b37 00a7 | | .STRTAB 0x00a7->0x0b8a ; "Session_TestMate"
0b38 00b5 | | .STRTAB 0x00b5->0x0b92 ; "TestMate"
; "TestMate"
0b39 00bb | | .STRTAB 0x00bb->0x0b96 ; "_Switches"
0b3a 00c2 | | .STRTAB 0x00c2->0x0b9b ; ".S_1_Switches"
0b3b 00cd | | .STRTAB 0x00cd->0x0ba1 ; "dummy"
0b3c 00d0 | | .STRTAB 0x00d0->0x0ba4 ; "IMAGE - value => "
0b3d 00df | | .STRTAB 0x00df->0x0bac ; ", field => "
; ", field => "
0b3e 00e8 | | .STRTAB 0x00e8->0x0bb2 ; "VALUE - Input =>"
0b3f 00f6 | | .STRTAB 0x00f6->0x0bba ; ", image => "
0b40 00ff | | .STRTAB 0x00ff->0x0bbf ; ", default_image => "
0b41 0110 | | .STRTAB 0x0110->0x0bc9 ; ", is_default => "
0b42 011e | | .STRTAB 0x011e->0x0bd1 ; "Boolean"
0b43 0123 | # | .STRTAB 0x0123->0x0bd4 ; "Integer"
0b44 0128 | ( | .STRTAB 0x0128->0x0bd8 ; "String"
0b45 012c | , | .STRTAB 0x012c->0x0bdb ; "File_Name"
0b46 0133 | 3 | .STRTAB 0x0133->0x0bdf ; "IMAGE - returning: "
0b47 0144 | D | .STRTAB 0x0144->0x0be9 ; "The_Switch_Field = "
0b48 0155 | U | .STRTAB 0x0155->0x0bf2 ; "VALUE - returning: "
0b49 0166 | f | .STRTAB 0x0166->0x0bfc ; "No help available for "
0b4a 017a | z | .STRTAB 0x017a->0x0c07 ; "."
0b4b 0179 | y | .STRTAB 0x0179->0x0c07 ; "Cannot set switch - not a well-formed file name "
0b4c 01a7 | | .STRTAB 0x01a7->0x0c1f ; "<>"
0b4d 01a7 | | .STREND 0x01a7->0x0c20
0b4e 4c49 4252 |LIBR| .STRTAB_STRINGS
0c21 0000 0000 | | .BLANK 0000[0x7]
0c28 ; --------------------------------------------------------------------------------------
0c28 ; Debug Table
0c28 ; --------------------------------------------------------------------------------------
0c28 0004 0009 | | .DEBUG4 0x0004,0x0009,0xb3da,0x0000,0x0001,0x0000
0c2e 0000 0000 | | .BLANK 0000[0x1d2]