|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 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 | | push_full_address 0x0 000d 6186 |a | Indirect_Literal Discrete,0x194,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 0093 0000 | | push_full_address 0x0 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 INIT_0160,For_Call 0019 03fe | | Declare_Type Discrete,Defined,Visible 001a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001c 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 001e 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0020 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0022 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0024 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 0026 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 0028 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 002a 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 002c 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 002e 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 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 INIT_05f8,For_Call 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 INIT_0620,For_Call 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 INIT_0680,For_Call 005a 4803 |H | Short_Literal 0x3 005b 032d | - | Declare_Type Record,Defined 005c 029b 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call,Unelaborated 005e 029b 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Unelaborated 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 INIT_06a8,For_Call 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 INIT_06b8,For_Call 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 INIT_06d0,For_Outer_Call 0086 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call 0088 4802 |H | Short_Literal 0x2 0089 0093 079b | | push_full_address 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 | | push_full_address 0x0 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 | | push_full_address 0x0 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 INIT_0758,For_Outer_Call 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 0x8 0164 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 017a 00db | | Load_Top At_Offset_3 017b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017c 00db | | Load_Top At_Offset_3 017d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x3 0400 4800 |H | Short_Literal 0x0 0401 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x3 0450 4800 |H | Short_Literal 0x0 0451 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x3 04a3 00ea | | Load_Encached Null_String_Cache 04a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x3 052a e00c | | Load 0x0,0xc 052b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 052c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 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 INIT_0770,For_Call 05bd 029f 077b | {| Declare_Subprogram INIT_0778,For_Call 05bf 029f 078b | | Declare_Subprogram INIT_0788,For_Call 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x1 05f3 e00c | | Load 0x0,0xc 05f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 0x8 05fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 0612 00db | | Load_Top At_Offset_3 0613 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0614 00db | | Load_Top At_Offset_3 0615 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0xa 0624 7809 |x | Jump 0x62e ; case 0x0 0625 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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 0x5 063d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 063e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 063f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0640 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0641 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x4 064d 00db | | Load_Top At_Offset_3 064e 4604 |F | Jump_Case 0x5 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,New_Top_Offset 0x2 0656 4801 |H | Short_Literal 0x1 0657 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0658 4802 |H | Short_Literal 0x2 0659 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 065a 4803 |H | Short_Literal 0x3 065b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 065c 4804 |H | Short_Literal 0x4 065d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 065e 00db | | Load_Top At_Offset_3 065f e5fe | | Load 0x2,-0x2 0660 4604 |F | Jump_Case 0x5 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0x2 0684 7801 |x | Jump 0x686 ; case 0x0 0685 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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_Value,New_Top_Offset 0x1 0698 0092 0b38 | 8| Action Push_String_Extended,0xb38 ; "TestMate" 069a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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 0x2 06ac 7801 |x | Jump 0x6ae ; case 0x0 06ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 INIT_07c8,For_Outer_Call,Visible,Unelaborated 07a0 029a 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call,Visible,Unelaborated 07a2 029a 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call,Visible,Unelaborated 07a4 029a 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call,Visible,Unelaborated 07a6 029a 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call,Visible,Unelaborated 07a8 029a 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call,Visible,Unelaborated 07aa 00bf | | Action Accept_Activation 07ab 029d 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call 07ad 029d 08d3 | | Declare_Subprogram INIT_08d0,For_Outer_Call 07af 029d 0933 | 3| Declare_Subprogram INIT_0930,For_Outer_Call 07b1 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call 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 INIT_0968,For_Outer_Call 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 INIT_0990,For_Call 07cd 029f 09a3 | | Declare_Subprogram INIT_09a0,For_Call 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 INIT_0a10,For_Call 07f6 029f 0a23 | #| Declare_Subprogram INIT_0a20,For_Call 07f8 029f 0a33 | 3| Declare_Subprogram INIT_0a30,For_Call 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_Value,New_Top_Offset 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 0x5 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_Value,New_Top_Offset 0x1 083e 0092 0b43 | C| Action Push_String_Extended,0xb43 ; "Integer" 0840 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0841 0092 0b44 | D| Action Push_String_Extended,0xb44 ; "String" 0843 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0844 0092 0b45 | E| Action Push_String_Extended,0xb45 ; "File_Name" 0846 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 0x5 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_Value,New_Top_Offset 0x1 085d 4801 |H | Short_Literal 0x1 085e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 085f 4802 |H | Short_Literal 0x2 0860 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0861 4803 |H | Short_Literal 0x3 0862 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 INIT_0a90,For_Call 086e 029f 0aa3 | | Declare_Subprogram INIT_0aa0,For_Call 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 INIT_0ac8,For_Call 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_Value,New_Top_Offset 0x1 098a 00da | | Load_Top At_Offset_2 098b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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 INIT_0b00,For_Call 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x1 0a2a 00da | | Load_Top At_Offset_2 0a2b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 0x2 0ac2 00d9 | | Load_Top At_Offset_1 0ac3 00cb | | Action Pop_Block_With_Result 0ac4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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 0x5 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 " 0b34 008a | | .STRTAB 0x008a->0x0b79 ; " is already defined" 0b35 009b | | .STRTAB 0x009b->0x0b82 ; " is not defined" 0b36 00a8 | | .STRTAB 0x00a8->0x0b8a ; "$" 0b37 00a7 | | .STRTAB 0x00a7->0x0b8a ; "Session_TestMate" 0b38 00b5 | | .STRTAB 0x00b5->0x0b92 ; "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 => " 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]