|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 04a8 | | .CONST 0x04a8 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0060 | ` | .CONST 0x0060 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0037 | 7 | .CONST 0x0037 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 4800 |H | Short_Literal 0x0 0032 4801 |H | Short_Literal 0x1 0033 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0035 03fe | | Declare_Type Discrete,Defined,Visible 0036 c22b | + | Store 0x1,0x2b 0037 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0039 c225 | % | Store 0x1,0x25 003a 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 003c c230 | 0 | Store 0x1,0x30 003d 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 003f c231 | 1 | Store 0x1,0x31 0040 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0042 c228 | ( | Store 0x1,0x28 0043 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0045 c229 | ) | Store 0x1,0x29 0046 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0048 c232 | 2 | Store 0x1,0x32 0049 00bf | | Action Accept_Activation 004a 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 004c 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 004e 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call 0050 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0051 00c7 | | Action Elaborate_Subprogram 0052 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0054 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0055 00c7 | | Action Elaborate_Subprogram 0056 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 0058 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0059 00c7 | | Action Elaborate_Subprogram 005a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 005b 00c7 | | Action Elaborate_Subprogram 005c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 005d 00c7 | | Action Elaborate_Subprogram 005e 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 005f 00c7 | | Action Elaborate_Subprogram 0060 BODY_0008: 0060 00bc | | Action Signal_Activated 0061 00bb | | Action Signal_Completion 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4607 |F | Jump_Case 0x8 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7806 |x | Jump 0x74 ; case 0x1 006e 7809 |x | Jump 0x78 ; case 0x2 006f 780d |x | Jump 0x7d ; case 0x3 0070 7810 |x | Jump 0x81 ; case 0x4 0071 7811 |x | Jump 0x83 ; case 0x5 0072 7812 |x | Jump 0x85 ; case 0x6 0073 7815 |x | Jump 0x89 ; case 0x7 0074 00da | | Load_Top At_Offset_2 0075 0091 0451 | Q| Action Push_String_Extended_Indexed,0x451 ; "PRE" 0077 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0078 00db | | Load_Top At_Offset_3 0079 00db | | Load_Top At_Offset_3 007a 00e0 | | Load_Encached Standard_Cache 007b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007d 00da | | Load_Top At_Offset_2 007e 00e0 | | Load_Encached Standard_Cache 007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0081 00db | | Load_Top At_Offset_3 0082 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0083 00db | | Load_Top At_Offset_3 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 e22b | + | Load 0x1,0x2b 0086 00dc | | Load_Top At_Offset_4 0087 0267 | g | Execute Discrete,Predecessor 0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0089 e22b | + | Load 0x1,0x2b 008a 00dc | | Load_Top At_Offset_4 008b 0268 | h | Execute Discrete,Successor 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a3 | | .CONST 0x00a3 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e001 | | Load 0x0,0x1 0095 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0096 e002 | | Load 0x0,0x2 0097 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0098 011e | | Execute Any,Convert 0099 00d8 | | Load_Top At_Offset_0 009a e002 | | Load 0x0,0x2 009b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 009c e5ff | | Load 0x2,-0x1 009d e003 | | Load 0x0,0x3 009e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 009f e003 | | Load 0x0,0x3 00a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00a1 e003 | | Load 0x0,0x3 00a2 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 00a3 BODY_0090: 00a3 00cf | | Action Mark_Auxiliary 00a4 00da | | Load_Top At_Offset_2 00a5 01d9 | | Execute Vector,Reverse_Bounds 00a6 0263 | c | Execute Discrete,Above_Bound 00a7 7008 |p | Jump_Nonzero 0xb0 00a8 e5fe | | Load 0x2,-0x2 00a9 00d9 | | Load_Top At_Offset_1 00aa e403 | | Load 0x2,0x3 00ab 01d7 | | Execute Vector,Field_Read 00ac e404 | | Load 0x2,0x4 00ad 8236 | 6 | Call 0x1,0x36 00ae 00c8 | | Action Pop_Auxiliary_Range 00af 3ff8 |? | Loop_Increasing 0xa8 00b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00e9 | | .CONST 0x00e9 ; Address of begin 00b9 0120 | | .CONST 0x0120 ; Address of exception handler 00ba 000d | | .CONST 0x000d ; Number of locals 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc e001 | | Load 0x0,0x1 00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00be e002 | | Load 0x0,0x2 00bf 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00c0 011e | | Execute Any,Convert 00c1 00d8 | | Load_Top At_Offset_0 00c2 e002 | | Load 0x0,0x2 00c3 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00c4 e5ff | | Load 0x2,-0x1 00c5 e003 | | Load 0x0,0x3 00c6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00c7 e003 | | Load 0x0,0x3 00c8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00c9 e003 | | Load 0x0,0x3 00ca 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 00cb 00da | | Load_Top At_Offset_2 00cc e002 | | Load 0x0,0x2 00cd 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 00ce 00db | | Load_Top At_Offset_3 00cf e002 | | Load 0x0,0x2 00d0 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 00d1 e402 | | Load 0x2,0x2 00d2 e002 | | Load 0x0,0x2 00d3 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00d4 e004 | | Load 0x0,0x4 00d5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d6 02ff | | Declare_Variable Variant_Record 00d7 00d8 | | Load_Top At_Offset_0 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 4801 |H | Short_Literal 0x1 00da 6055 |`U | Indirect_Literal Discrete,0x130,{0x00000000, 0x00000400} 00db 00e9 | | Load_Encached String_Cache 00dc 035b | [ | Declare_Type Array,Constrained 00dd 0337 | 7 | Declare_Variable Array 00de 00e3 | | Load_Encached Natural_Cache 00df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e0 e002 | | Load 0x0,0x2 00e1 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00e2 02c7 | | Declare_Variable Any 00e3 00d8 | | Load_Top At_Offset_0 00e4 1c00 | | Execute_Immediate Run_Utility,0x0 00e5 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 00e7 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call 00e9 BODY_00b8: 00e9 e5fa | | Load 0x2,-0x6 00ea 4801 |H | Short_Literal 0x1 00eb e5fa | | Load 0x2,-0x6 00ec 4801 |H | Short_Literal 0x1 00ed e5fb | | Load 0x2,-0x5 00ee e005 | | Load 0x0,0x5 00ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f0 e005 | | Load 0x0,0x5 00f1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00f2 e408 | | Load 0x2,0x8 00f3 016d | m | Execute Variant_Record,Structure_Write 00f4 00cf | | Action Mark_Auxiliary 00f5 e403 | | Load 0x2,0x3 00f6 01d9 | | Execute Vector,Reverse_Bounds 00f7 0263 | c | Execute Discrete,Above_Bound 00f8 7007 |p | Jump_Nonzero 0x100 00f9 00d8 | | Load_Top At_Offset_0 00fa e403 | | Load 0x2,0x3 00fb 01d7 | | Execute Vector,Field_Read 00fc c40b | | Store 0x2,0xb 00fd 840d | | Call 0x2,0xd 00fe 00c8 | | Action Pop_Auxiliary_Range 00ff 3ff9 |? | Loop_Increasing 0xf9 0100 00ce | | Action Pop_Auxiliary 0101 00db | | Load_Top At_Offset_3 0102 0c01 | | Execute_Immediate Greater_Equal,0x1 0103 6818 |h | Jump_Zero 0x11c 0104 e5fc | | Load 0x2,-0x4 0105 01db | | Execute Vector,Length 0106 0c01 | | Execute_Immediate Greater_Equal,0x1 0107 680d |h | Jump_Zero 0x115 0108 4801 |H | Short_Literal 0x1 0109 e40a | | Load 0x2,0xa 010a e409 | | Load 0x2,0x9 010b 01cf | | Execute Vector,Slice_Read 010c e402 | | Load 0x2,0x2 010d e002 | | Load 0x0,0x2 010e 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 010f 01cc | | Execute Vector,Catenate 0110 e5fc | | Load 0x2,-0x4 0111 01cc | | Execute Vector,Catenate 0112 00e9 | | Load_Encached String_Cache 0113 01c6 | | Execute Vector,Convert_To_Formal 0114 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0115 4801 |H | Short_Literal 0x1 0116 e40a | | Load 0x2,0xa 0117 e409 | | Load 0x2,0x9 0118 01cf | | Execute Vector,Slice_Read 0119 00e9 | | Load_Encached String_Cache 011a 01c6 | | Execute Vector,Convert_To_Formal 011b 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 011c e5fc | | Load 0x2,-0x4 011d 0335 | 5 | Declare_Variable Array,Duplicate 011e 00cd | | Action Spare6_Action 011f 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0120 TRAP_00b8: 0120 e006 | | Load 0x0,0x6 0121 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0122 010f | | Execute Exception,Equal 0123 6802 |h | Jump_Zero 0x126 0124 00ea | | Load_Encached Null_String_Cache 0125 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0126 e5fa | | Load 0x2,-0x6 0127 0092 0453 | S| Action Push_String_Extended,0x453 ; "Rco.Get_Options" 0129 e007 | | Load 0x0,0x7 012a 180f | | Execute Package,Field_Execute,Field_Number 0xf 012b 00ea | | Load_Encached Null_String_Cache 012c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0143 | C | .CONST 0x0143 ; Address of begin 0139 0159 | Y | .CONST 0x0159 ; Address of exception handler 013a 0004 | | .CONST 0x0004 ; Number of locals 013b INIT_0138: 013b 00e1 | | Load_Encached Boolean_Cache 013c e002 | | Load 0x0,0x2 013d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 013e 02c7 | | Declare_Variable Any 013f 00d8 | | Load_Top At_Offset_0 0140 1c00 | | Execute_Immediate Run_Utility,0x0 0141 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 0143 BODY_0138: 0143 00e1 | | Load_Encached Boolean_Cache 0144 00da | | Load_Top At_Offset_2 0145 0120 | | Execute Any,Is_Value 0146 6803 |h | Jump_Zero 0x14a 0147 e002 | | Load 0x0,0x2 0148 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0149 7801 |x | Jump 0x14b 014a 00da | | Load_Top At_Offset_2 014b 4801 |H | Short_Literal 0x1 014c e5fb | | Load 0x2,-0x5 014d e5fe | | Load 0x2,-0x2 014e e5ff | | Load 0x2,-0x1 014f 8233 | 3 | Call 0x1,0x33 0150 c403 | | Store 0x2,0x3 0151 005b | [ | Store_Top Discrete,At_Offset_3 0152 00da | | Load_Top At_Offset_2 0153 6802 |h | Jump_Zero 0x156 0154 8404 | | Call 0x2,0x4 0155 7802 |x | Jump 0x158 0156 4800 |H | Short_Literal 0x0 0157 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0158 0831 | 1 | Execute_Immediate Raise,0x31 0159 TRAP_0138: 0159 0007 | | Action Break_Optional 015a e5fb | | Load 0x2,-0x5 015b 0092 0454 | T| Action Push_String_Extended,0x454 ; "Rco.Option_In_Effect" 015d e007 | | Load 0x0,0x7 015e 180f | | Execute Package,Field_Execute,Field_Number 0xf 015f 4800 |H | Short_Literal 0x0 0160 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0171 | q | .CONST 0x0171 ; Address of begin 0169 0182 | | .CONST 0x0182 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b 00e1 | | Load_Encached Boolean_Cache 016c e002 | | Load 0x0,0x2 016d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 016e 02c7 | | Declare_Variable Any 016f 00d8 | | Load_Top At_Offset_0 0170 1c00 | | Execute_Immediate Run_Utility,0x0 0171 BODY_0168: 0171 00e1 | | Load_Encached Boolean_Cache 0172 00d9 | | Load_Top At_Offset_1 0173 0120 | | Execute Any,Is_Value 0174 6803 |h | Jump_Zero 0x178 0175 e002 | | Load 0x0,0x2 0176 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0177 7801 |x | Jump 0x179 0178 00d9 | | Load_Top At_Offset_1 0179 4800 |H | Short_Literal 0x0 017a e5fd | | Load 0x2,-0x3 017b e5fe | | Load 0x2,-0x2 017c e5ff | | Load 0x2,-0x1 017d 8233 | 3 | Call 0x1,0x33 017e c403 | | Store 0x2,0x3 017f 005a | Z | Store_Top Discrete,At_Offset_2 0180 00d9 | | Load_Top At_Offset_1 0181 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0182 TRAP_0168: 0182 0007 | | Action Break_Optional 0183 e5fd | | Load 0x2,-0x3 0184 0092 0455 | U| Action Push_String_Extended,0x455 ; "Rco.Option_Exists" 0186 e007 | | Load 0x0,0x7 0187 180f | | Execute Package,Field_Execute,Field_Number 0xf 0188 4800 |H | Short_Literal 0x0 0189 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0199 | | .CONST 0x0199 ; Address of begin 0191 01b0 | | .CONST 0x01b0 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 00e1 | | Load_Encached Boolean_Cache 0194 e002 | | Load 0x0,0x2 0195 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0196 02c7 | | Declare_Variable Any 0197 00d8 | | Load_Top At_Offset_0 0198 1c00 | | Execute_Immediate Run_Utility,0x0 0199 BODY_0190: 0199 00e1 | | Load_Encached Boolean_Cache 019a 00d9 | | Load_Top At_Offset_1 019b 0120 | | Execute Any,Is_Value 019c 6803 |h | Jump_Zero 0x1a0 019d e002 | | Load 0x0,0x2 019e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 019f 7801 |x | Jump 0x1a1 01a0 00d9 | | Load_Top At_Offset_1 01a1 4801 |H | Short_Literal 0x1 01a2 e5fd | | Load 0x2,-0x3 01a3 e5fe | | Load 0x2,-0x2 01a4 e5ff | | Load 0x2,-0x1 01a5 8233 | 3 | Call 0x1,0x33 01a6 c403 | | Store 0x2,0x3 01a7 005a | Z | Store_Top Discrete,At_Offset_2 01a8 00d9 | | Load_Top At_Offset_1 01a9 6804 |h | Jump_Zero 0x1ae 01aa 00d8 | | Load_Top At_Offset_0 01ab e002 | | Load 0x0,0x2 01ac 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01ad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01ae 4800 |H | Short_Literal 0x0 01af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01b0 TRAP_0190: 01b0 0007 | | Action Break_Optional 01b1 e5fd | | Load 0x2,-0x3 01b2 0092 0456 | V| Action Push_String_Extended,0x456 ; "Rco.Option_Takes_Argument" 01b4 e007 | | Load 0x0,0x7 01b5 180f | | Execute Package,Field_Execute,Field_Number 0xf 01b6 4800 |H | Short_Literal 0x0 01b7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01cb | | .CONST 0x01cb ; Address of begin 01b9 01e5 | | .CONST 0x01e5 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb 00e1 | | Load_Encached Boolean_Cache 01bc e002 | | Load 0x0,0x2 01bd 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01be 02c7 | | Declare_Variable Any 01bf 00d8 | | Load_Top At_Offset_0 01c0 1c00 | | Execute_Immediate Run_Utility,0x0 01c1 e5fb | | Load 0x2,-0x5 01c2 00d9 | | Load_Top At_Offset_1 01c3 e5ff | | Load 0x2,-0x1 01c4 e003 | | Load 0x0,0x3 01c5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01c6 e003 | | Load 0x0,0x3 01c7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01c8 e003 | | Load 0x0,0x3 01c9 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 01ca 8234 | 4 | Call 0x1,0x34 01cb BODY_01b8: 01cb 00e1 | | Load_Encached Boolean_Cache 01cc 00da | | Load_Top At_Offset_2 01cd 0120 | | Execute Any,Is_Value 01ce 6803 |h | Jump_Zero 0x1d2 01cf e002 | | Load 0x0,0x2 01d0 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01d1 7801 |x | Jump 0x1d3 01d2 00da | | Load_Top At_Offset_2 01d3 4801 |H | Short_Literal 0x1 01d4 e5fb | | Load 0x2,-0x5 01d5 e5fe | | Load 0x2,-0x2 01d6 e5ff | | Load 0x2,-0x1 01d7 8233 | 3 | Call 0x1,0x33 01d8 c403 | | Store 0x2,0x3 01d9 005b | [ | Store_Top Discrete,At_Offset_3 01da 00da | | Load_Top At_Offset_2 01db 6807 |h | Jump_Zero 0x1e3 01dc e5fb | | Load 0x2,-0x5 01dd e5fc | | Load 0x2,-0x4 01de e5fd | | Load 0x2,-0x3 01df 00db | | Load_Top At_Offset_3 01e0 e403 | | Load 0x2,0x3 01e1 8235 | 5 | Call 0x1,0x35 01e2 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01e3 00ea | | Load_Encached Null_String_Cache 01e4 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01e5 TRAP_01b8: 01e5 0007 | | Action Break_Optional 01e6 e5fb | | Load 0x2,-0x5 01e7 0092 0457 | W| Action Push_String_Extended,0x457 ; "Rco.Argument_Value" 01e9 e007 | | Load 0x0,0x7 01ea 180f | | Execute Package,Field_Execute,Field_Number 0xf 01eb 00ea | | Load_Encached Null_String_Cache 01ec 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fc | | .CONST 0x01fc ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 e001 | | Load 0x0,0x1 01f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f6 e002 | | Load 0x0,0x2 01f7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01f8 011e | | Execute Any,Convert 01f9 00d8 | | Load_Top At_Offset_0 01fa e002 | | Load 0x0,0x2 01fb 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01fc BODY_01f0: 01fc 4800 |H | Short_Literal 0x0 01fd a5fa | | Store_Unchecked 0x2,-0x6 01fe 00cf | | Action Mark_Auxiliary 01ff 00d9 | | Load_Top At_Offset_1 0200 01d9 | | Execute Vector,Reverse_Bounds 0201 0263 | c | Execute Discrete,Above_Bound 0202 7013 |p | Jump_Nonzero 0x216 0203 4801 |H | Short_Literal 0x1 0204 00d9 | | Load_Top At_Offset_1 0205 e403 | | Load 0x2,0x3 0206 01d7 | | Execute Vector,Field_Read 0207 e002 | | Load 0x0,0x2 0208 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0209 e5fe | | Load 0x2,-0x2 020a e008 | | Load 0x0,0x8 020b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 020c 6807 |h | Jump_Zero 0x214 020d 4801 |H | Short_Literal 0x1 020e a5fa | | Store_Unchecked 0x2,-0x6 020f 00d8 | | Load_Top At_Offset_0 0210 e403 | | Load 0x2,0x3 0211 01d7 | | Execute Vector,Field_Read 0212 c5fb | | Store 0x2,-0x5 0213 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0214 00c8 | | Action Pop_Auxiliary_Range 0215 3fed |? | Loop_Increasing 0x203 0216 00ce | | Action Pop_Auxiliary 0217 e5fc | | Load 0x2,-0x4 0218 681f |h | Jump_Zero 0x238 0219 e5fd | | Load 0x2,-0x3 021a 4801 |H | Short_Literal 0x1 021b 4802 |H | Short_Literal 0x2 021c e009 | | Load 0x0,0x9 021d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021e 035b | [ | Declare_Type Array,Constrained 021f 0337 | 7 | Declare_Variable Array 0220 e5fe | | Load 0x2,-0x2 0221 e009 | | Load 0x0,0x9 0222 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0223 e009 | | Load 0x0,0x9 0224 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0225 0119 | | Execute Any,Check_In_Formal_Type 0226 4801 |H | Short_Literal 0x1 0227 00da | | Load_Top At_Offset_2 0228 01d6 | | Execute Vector,Field_Write 0229 e5ff | | Load 0x2,-0x1 022a e00a | | Load 0x0,0xa 022b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 022c e009 | | Load 0x0,0x9 022d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022e e009 | | Load 0x0,0x9 022f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0230 0119 | | Execute Any,Check_In_Formal_Type 0231 4802 |H | Short_Literal 0x2 0232 00da | | Load_Top At_Offset_2 0233 01d6 | | Execute Vector,Field_Write 0234 4805 |H | Short_Literal 0x5 0235 6006 |` | Indirect_Literal Discrete,0x23c,{0x00000000, 0x0000815b} 0236 e006 | | Load 0x0,0x6 0237 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0238 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0239 0000 0000 | | .XXX[0x3] 023b 0000 | | 023c 0000 0000 | | .LITERAL {0x00000000, 0x0000815b} 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 024c | L | .CONST 0x024c ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 0092 0458 | X| Action Push_String_Extended,0x458 ; "_" 0246 01cc | | Execute Vector,Catenate 0247 e5fe | | Load 0x2,-0x2 0248 e002 | | Load 0x0,0x2 0249 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 024a 01cc | | Execute Vector,Catenate 024b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 024c TRAP_0240: 024c 0007 | | Action Break_Optional 024d e5fd | | Load 0x2,-0x3 024e 0092 0459 | Y| Action Push_String_Extended,0x459 ; "Rco.Make_Switch_Name" 0250 e007 | | Load 0x0,0x7 0251 180f | | Execute Package,Field_Execute,Field_Number 0xf 0252 00ea | | Load_Encached Null_String_Cache 0253 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025f | _ | .CONST 0x025f ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 025d 029f 039b | | Declare_Subprogram INIT_0398,For_Call 025f BODY_0258: 025f e5ff | | Load 0x2,-0x1 0260 e002 | | Load 0x0,0x2 0261 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0262 7018 |p | Jump_Nonzero 0x27b 0263 e00b | | Load 0x0,0xb 0264 180e | | Execute Package,Field_Execute,Field_Number 0xe 0265 4801 |H | Short_Literal 0x1 0266 4801 |H | Short_Literal 0x1 0267 e009 | | Load 0x0,0x9 0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0269 035b | [ | Declare_Type Array,Constrained 026a 0337 | 7 | Declare_Variable Array 026b e5ff | | Load 0x2,-0x1 026c e002 | | Load 0x0,0x2 026d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 026e e009 | | Load 0x0,0x9 026f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0270 e009 | | Load 0x0,0x9 0271 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0272 0119 | | Execute Any,Check_In_Formal_Type 0273 4801 |H | Short_Literal 0x1 0274 00da | | Load_Top At_Offset_2 0275 01d6 | | Execute Vector,Field_Write 0276 6009 |` | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000815c} 0277 e006 | | Load 0x0,0x6 0278 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0279 00ea | | Load_Encached Null_String_Cache 027a 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 027b 8402 | | Call 0x2,0x2 027c 8403 | | Call 0x2,0x3 027d 0831 | 1 | Execute_Immediate Raise,0x31 027e 0000 0000 | | .XXX[0x2] 0280 0000 0000 | | .LITERAL {0x00000000, 0x0000815c} 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0290 | | .CONST 0x0290 ; Address of begin 0289 02a6 | | .CONST 0x02a6 ; Address of exception handler 028a 0003 | | .CONST 0x0003 ; Number of locals 028b INIT_0288: 028b 00db | | Load_Top At_Offset_3 028c e002 | | Load 0x0,0x2 028d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 028e 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 0290 BODY_0288: 0290 e5fe | | Load 0x2,-0x2 0291 e002 | | Load 0x0,0x2 0292 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0293 6811 |h | Jump_Zero 0x2a5 0294 e5fe | | Load 0x2,-0x2 0295 e002 | | Load 0x0,0x2 0296 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0297 680c |h | Jump_Zero 0x2a4 0298 4800 |H | Short_Literal 0x0 0299 e5fe | | Load 0x2,-0x2 029a e002 | | Load 0x0,0x2 029b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 029c 00db | | Load_Top At_Offset_3 029d e5fd | | Load 0x2,-0x3 029e e5fe | | Load 0x2,-0x2 029f e5ff | | Load 0x2,-0x1 02a0 8234 | 4 | Call 0x1,0x34 02a1 e00c | | Load 0x0,0xc 02a2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a4 8403 | | Call 0x2,0x3 02a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a6 TRAP_0288: 02a6 0007 | | Action Break_Optional 02a7 e5fd | | Load 0x2,-0x3 02a8 0092 045a | Z| Action Push_String_Extended,0x45a ; "Rco.Create_Switch" 02aa e007 | | Load 0x0,0x7 02ab 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ad 0000 0000 | | .XXX[0x3] 02af 0000 | | 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b7 | | .CONST 0x02b7 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0003 | | .CONST 0x0003 ; Number of locals 02b3 INIT_02b0: 02b3 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call 02b5 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 02b7 BODY_02b0: 02b7 e5ff | | Load 0x2,-0x1 02b8 e002 | | Load 0x0,0x2 02b9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02ba 7002 |p | Jump_Nonzero 0x2bd 02bb 4801 |H | Short_Literal 0x1 02bc 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02bd e5ff | | Load 0x2,-0x1 02be e002 | | Load 0x0,0x2 02bf 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02c0 6802 |h | Jump_Zero 0x2c3 02c1 8402 | | Call 0x2,0x2 02c2 7801 |x | Jump 0x2c4 02c3 8403 | | Call 0x2,0x3 02c4 e5ff | | Load 0x2,-0x1 02c5 e002 | | Load 0x0,0x2 02c6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02c7 6808 |h | Jump_Zero 0x2d0 02c8 4800 |H | Short_Literal 0x0 02c9 e5fc | | Load 0x2,-0x4 02ca e5fe | | Load 0x2,-0x2 02cb e00c | | Load 0x0,0xc 02cc 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02cd 01db | | Execute Vector,Length 02ce 0e00 | | Execute_Immediate Not_Equal,0x0 02cf 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02d0 4800 |H | Short_Literal 0x0 02d1 e5fc | | Load 0x2,-0x4 02d2 e5fe | | Load 0x2,-0x2 02d3 e00c | | Load 0x0,0xc 02d4 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02d5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02dd | | .CONST 0x02dd ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 02dd BODY_02d8: 02dd e40a | | Load 0x2,0xa 02de 6818 |h | Jump_Zero 0x2f7 02df e406 | | Load 0x2,0x6 02e0 e40a | | Load 0x2,0xa 02e1 0a01 | | Execute_Immediate Plus,0x1 02e2 00d8 | | Load_Top At_Offset_0 02e3 00e2 | | Load_Encached Integer_Cache 02e4 0260 | ` | Execute Discrete,In_Type 02e5 7001 |p | Jump_Nonzero 0x2e7 02e6 0801 | | Execute_Immediate Raise,0x1 02e7 e40a | | Load 0x2,0xa 02e8 e406 | | Load 0x2,0x6 02e9 01db | | Execute Vector,Length 02ea 0273 | s | Execute Discrete,Plus 02eb 00d8 | | Load_Top At_Offset_0 02ec 00e2 | | Load_Encached Integer_Cache 02ed 0260 | ` | Execute Discrete,In_Type 02ee 7001 |p | Jump_Nonzero 0x2f0 02ef 0801 | | Execute_Immediate Raise,0x1 02f0 e409 | | Load 0x2,0x9 02f1 01ce | | Execute Vector,Slice_Write 02f2 e40a | | Load 0x2,0xa 02f3 e406 | | Load 0x2,0x6 02f4 01db | | Execute Vector,Length 02f5 0273 | s | Execute Discrete,Plus 02f6 c40a | | Store 0x2,0xa 02f7 00db | | Load_Top At_Offset_3 02f8 e40a | | Load 0x2,0xa 02f9 0a01 | | Execute_Immediate Plus,0x1 02fa 00d8 | | Load_Top At_Offset_0 02fb 00e2 | | Load_Encached Integer_Cache 02fc 0260 | ` | Execute Discrete,In_Type 02fd 7001 |p | Jump_Nonzero 0x2ff 02fe 0801 | | Execute_Immediate Raise,0x1 02ff e40a | | Load 0x2,0xa 0300 e7ff | | Load 0x3,-0x1 0301 01db | | Execute Vector,Length 0302 0273 | s | Execute Discrete,Plus 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 e409 | | Load 0x2,0x9 0309 01ce | | Execute Vector,Slice_Write 030a e40a | | Load 0x2,0xa 030b e7ff | | Load 0x3,-0x1 030c 01db | | Execute Vector,Length 030d 0273 | s | Execute Discrete,Plus 030e c40a | | Store 0x2,0xa 030f e40b | | Load 0x2,0xb 0310 e002 | | Load 0x0,0x2 0311 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0312 6805 |h | Jump_Zero 0x318 0313 e40b | | Load 0x2,0xb 0314 e002 | | Load 0x0,0x2 0315 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0316 6801 |h | Jump_Zero 0x318 0317 8602 | | Call 0x3,0x2 0318 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0319 0000 0000 | | .BLANK 0000[0x7] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0333 | 3 | .CONST 0x0333 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0003 | | .CONST 0x0003 ; Number of locals 0323 INIT_0320: 0323 e405 | | Load 0x2,0x5 0324 e40b | | Load 0x2,0xb 0325 e002 | | Load 0x0,0x2 0326 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0327 01cc | | Execute Vector,Catenate 0328 0007 | | Action Break_Optional 0329 e5fa | | Load 0x2,-0x6 032a e40b | | Load 0x2,0xb 032b e5ff | | Load 0x2,-0x1 032c e003 | | Load 0x0,0x3 032d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 032e e003 | | Load 0x0,0x3 032f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0330 e003 | | Load 0x0,0x3 0331 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0332 8234 | 4 | Call 0x1,0x34 0333 BODY_0320: 0333 e5fe | | Load 0x2,-0x2 0334 e40b | | Load 0x2,0xb 0335 e002 | | Load 0x0,0x2 0336 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0337 01d7 | | Execute Vector,Field_Read 0338 6819 |h | Jump_Zero 0x352 0339 e5fd | | Load 0x2,-0x3 033a 0f00 | | Execute_Immediate Equal,0x0 033b e40b | | Load 0x2,0xb 033c e002 | | Load 0x0,0x2 033d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 033e 027f | | Execute Discrete,Equal 033f 6812 |h | Jump_Zero 0x352 0340 e40b | | Load 0x2,0xb 0341 e002 | | Load 0x0,0x2 0342 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0343 7004 |p | Jump_Nonzero 0x348 0344 00d8 | | Load_Top At_Offset_0 0345 00da | | Load_Top At_Offset_2 0346 840c | | Call 0x2,0xc 0347 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0348 e5fa | | Load 0x2,-0x6 0349 e408 | | Load 0x2,0x8 034a e5fb | | Load 0x2,-0x5 034b 00db | | Load_Top At_Offset_3 034c e40b | | Load 0x2,0xb 034d 8237 | 7 | Call 0x1,0x37 034e 6803 |h | Jump_Zero 0x352 034f 00d8 | | Load_Top At_Offset_0 0350 00da | | Load_Top At_Offset_2 0351 840c | | Call 0x2,0xc 0352 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0353 0000 0000 | | .BLANK 0000[0x5] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 0365 | e | .CONST 0x0365 ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0002 | | .CONST 0x0002 ; Number of locals 035b INIT_0358: 035b e5fb | | Load 0x2,-0x5 035c e403 | | Load 0x2,0x3 035d e5ff | | Load 0x2,-0x1 035e e003 | | Load 0x0,0x3 035f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0360 e003 | | Load 0x0,0x3 0361 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0362 e003 | | Load 0x0,0x3 0363 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0364 8234 | 4 | Call 0x1,0x34 0365 BODY_0358: 0365 e5fb | | Load 0x2,-0x5 0366 e5fc | | Load 0x2,-0x4 0367 e5fd | | Load 0x2,-0x3 0368 00db | | Load_Top At_Offset_3 0369 e403 | | Load 0x2,0x3 036a 8237 | 7 | Call 0x1,0x37 036b 00cb | | Action Pop_Block_With_Result 036c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0385 | | .CONST 0x0385 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0003 | | .CONST 0x0003 ; Number of locals 0373 INIT_0370: 0373 e00d | | Load 0x0,0xd 0374 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0375 0322 | " | Declare_Variable Record 0376 e5fb | | Load 0x2,-0x5 0377 e5ff | | Load 0x2,-0x1 0378 e5fd | | Load 0x2,-0x3 0379 e00d | | Load 0x0,0xd 037a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 037b 00d9 | | Load_Top At_Offset_1 037c 017d | } | Execute Record,Structure_Write 037d 4801 |H | Short_Literal 0x1 037e 00d9 | | Load_Top At_Offset_1 037f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0380 00da | | Load_Top At_Offset_2 0381 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0382 01cf | | Execute Vector,Slice_Read 0383 0335 | 5 | Declare_Variable Array,Duplicate 0384 00cd | | Action Spare6_Action 0385 BODY_0370: 0385 00d9 | | Load_Top At_Offset_1 0386 e00d | | Load 0x0,0xd 0387 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0388 017e | ~ | Execute Record,Not_Equal 0389 680b |h | Jump_Zero 0x395 038a 00d8 | | Load_Top At_Offset_0 038b 0092 045b | [| Action Push_String_Extended,0x45b ; "&" 038d 01df | | Execute Vector,Equal 038e 6803 |h | Jump_Zero 0x392 038f 00ea | | Load_Encached Null_String_Cache 0390 00cb | | Action Pop_Block_With_Result 0391 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0392 00d8 | | Load_Top At_Offset_0 0393 00cb | | Action Pop_Block_With_Result 0394 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0395 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0396 0000 0000 | | .XXX[0x2] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a0 | | .CONST 0x03a0 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0002 | | .CONST 0x0002 ; Number of locals 039b INIT_0398: 039b 4800 |H | Short_Literal 0x0 039c e5fc | | Load 0x2,-0x4 039d e5fe | | Load 0x2,-0x2 039e e00c | | Load 0x0,0xc 039f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 03a0 BODY_0398: 03a0 00d8 | | Load_Top At_Offset_0 03a1 0092 045b | [| Action Push_String_Extended,0x45b ; "&" 03a3 01df | | Execute Vector,Equal 03a4 6803 |h | Jump_Zero 0x3a8 03a5 00ea | | Load_Encached Null_String_Cache 03a6 00cb | | Action Pop_Block_With_Result 03a7 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 03a8 00d8 | | Load_Top At_Offset_0 03a9 00cb | | Action Pop_Block_With_Result 03aa 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 03ab 0000 0000 | | .BLANK 0000[0x5] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 03c1 | | .CONST 0x03c1 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 4800 |H | Short_Literal 0x0 03b4 e5fe | | Load 0x2,-0x2 03b5 e002 | | Load 0x0,0x2 03b6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03b7 e402 | | Load 0x2,0x2 03b8 00e1 | | Load_Encached Boolean_Cache 03b9 1c02 | | Execute_Immediate Run_Utility,0x2 03ba e5fd | | Load 0x2,-0x3 03bb e5fe | | Load 0x2,-0x2 03bc e5ff | | Load 0x2,-0x1 03bd 8234 | 4 | Call 0x1,0x34 03be e00c | | Load 0x0,0xc 03bf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 03c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c1 TRAP_03b0: 03c1 010e | | Execute Exception,Is_Constraint_Error 03c2 682b |h+ | Jump_Zero 0x3ee 03c3 e00b | | Load 0x0,0xb 03c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 03c5 4801 |H | Short_Literal 0x1 03c6 4802 |H | Short_Literal 0x2 03c7 e009 | | Load 0x0,0x9 03c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03c9 035b | [ | Declare_Type Array,Constrained 03ca 0337 | 7 | Declare_Variable Array 03cb e402 | | Load 0x2,0x2 03cc e009 | | Load 0x0,0x9 03cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ce e009 | | Load 0x0,0x9 03cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d0 0119 | | Execute Any,Check_In_Formal_Type 03d1 4801 |H | Short_Literal 0x1 03d2 00da | | Load_Top At_Offset_2 03d3 01d6 | | Execute Vector,Field_Write 03d4 e5fe | | Load 0x2,-0x2 03d5 e002 | | Load 0x0,0x2 03d6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03d7 e009 | | Load 0x0,0x9 03d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03d9 e009 | | Load 0x0,0x9 03da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03db 0119 | | Execute Any,Check_In_Formal_Type 03dc 4802 |H | Short_Literal 0x2 03dd 00da | | Load_Top At_Offset_2 03de 01d6 | | Execute Vector,Field_Write 03df 6010 |` | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x00008195} 03e0 e006 | | Load 0x0,0x6 03e1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03e2 4800 |H | Short_Literal 0x0 03e3 e5fe | | Load 0x2,-0x2 03e4 e002 | | Load 0x0,0x2 03e5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03e6 4800 |H | Short_Literal 0x0 03e7 e5fd | | Load 0x2,-0x3 03e8 e5fe | | Load 0x2,-0x2 03e9 e5ff | | Load 0x2,-0x1 03ea 8234 | 4 | Call 0x1,0x34 03eb e00c | | Load 0x0,0xc 03ec 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 03ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ee 0100 | | Execute Exception,Raise 03ef 0000 | | .XXX[0x1] 03f0 0000 0000 | | .LITERAL {0x00000000, 0x00008195} 03f4 0000 0000 | | .BLANK 0000[0x4] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0405 | | .CONST 0x0405 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e00d | | Load 0x0,0xd 03fc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03fd 0322 | " | Declare_Variable Record 03fe e5fb | | Load 0x2,-0x5 03ff e5ff | | Load 0x2,-0x1 0400 e5fd | | Load 0x2,-0x3 0401 e00d | | Load 0x0,0xd 0402 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0403 00d9 | | Load_Top At_Offset_1 0404 017d | } | Execute Record,Structure_Write 0405 BODY_03f8: 0405 00d8 | | Load_Top At_Offset_0 0406 e00d | | Load 0x0,0xd 0407 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0408 017e | ~ | Execute Record,Not_Equal 0409 6805 |h | Jump_Zero 0x40f 040a 00d8 | | Load_Top At_Offset_0 040b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 040c 0c01 | | Execute_Immediate Greater_Equal,0x1 040d 00cb | | Action Pop_Block_With_Result 040e 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 040f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 041d | | .CONST 0x041d ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0002 | | .CONST 0x0002 ; Number of locals 0413 INIT_0410: 0413 e00d | | Load 0x0,0xd 0414 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0415 0322 | " | Declare_Variable Record 0416 e5fb | | Load 0x2,-0x5 0417 e5ff | | Load 0x2,-0x1 0418 e5fd | | Load 0x2,-0x3 0419 e00d | | Load 0x0,0xd 041a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 041b 00d9 | | Load_Top At_Offset_1 041c 017d | } | Execute Record,Structure_Write 041d BODY_0410: 041d 00d8 | | Load_Top At_Offset_0 041e e00d | | Load 0x0,0xd 041f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0420 017e | ~ | Execute Record,Not_Equal 0421 6804 |h | Jump_Zero 0x426 0422 00d8 | | Load_Top At_Offset_0 0423 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0424 00cb | | Action Pop_Block_With_Result 0425 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0426 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0427 0000 | | .XXX[0x1] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0434 | 4 | .CONST 0x0434 ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b e407 | | Load 0x2,0x7 042c e5fa | | Load 0x2,-0x6 042d e408 | | Load 0x2,0x8 042e e5fb | | Load 0x2,-0x5 042f e7fe | | Load 0x3,-0x2 0430 e40b | | Load 0x2,0xb 0431 8235 | 5 | Call 0x1,0x35 0432 01cc | | Execute Vector,Catenate 0433 0007 | | Action Break_Optional 0434 BODY_0428: 0434 00d8 | | Load_Top At_Offset_0 0435 e407 | | Load 0x2,0x7 0436 01de | | Execute Vector,Not_Equal 0437 6818 |h | Jump_Zero 0x450 0438 00d8 | | Load_Top At_Offset_0 0439 e40a | | Load 0x2,0xa 043a 0a01 | | Execute_Immediate Plus,0x1 043b 00d8 | | Load_Top At_Offset_0 043c 00e2 | | Load_Encached Integer_Cache 043d 0260 | ` | Execute Discrete,In_Type 043e 7001 |p | Jump_Nonzero 0x440 043f 0801 | | Execute_Immediate Raise,0x1 0440 e40a | | Load 0x2,0xa 0441 00db | | Load_Top At_Offset_3 0442 01db | | Execute Vector,Length 0443 0273 | s | Execute Discrete,Plus 0444 00d8 | | Load_Top At_Offset_0 0445 00e2 | | Load_Encached Integer_Cache 0446 0260 | ` | Execute Discrete,In_Type 0447 7001 |p | Jump_Nonzero 0x449 0448 0801 | | Execute_Immediate Raise,0x1 0449 e409 | | Load 0x2,0x9 044a 01ce | | Execute Vector,Slice_Write 044b e40a | | Load 0x2,0xa 044c 00d9 | | Load_Top At_Offset_1 044d 01db | | Execute Vector,Length 044e 0273 | s | Execute Discrete,Plus 044f c40a | | Store 0x2,0xa 0450 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0451 ; -------------------------------------------------------------------------------------- 0451 ; STRING TABLE 0451 ; -------------------------------------------------------------------------------------- 0451 0018 | | .STRTAB 0x0018->0x045d ; "PRE" 0452 0019 | | .STRTAB 0x0019->0x045e ; "POST" 0453 001b | | .STRTAB 0x001b->0x0460 ; "Rco.Get_Options" 0454 0028 | ( | .STRTAB 0x0028->0x0468 ; "Rco.Option_In_Effect" 0455 003a | : | .STRTAB 0x003a->0x0472 ; "Rco.Option_Exists" 0456 0049 | I | .STRTAB 0x0049->0x047a ; "Rco.Option_Takes_Argument" 0457 0060 | ` | .STRTAB 0x0060->0x0487 ; "Rco.Argument_Value" 0458 0070 | p | .STRTAB 0x0070->0x0490 ; "_" 0459 006f | o | .STRTAB 0x006f->0x0490 ; "Rco.Make_Switch_Name" 045a 0081 | | .STRTAB 0x0081->0x049a ; "Rco.Create_Switch" 045b 0090 | | .STRTAB 0x0090->0x04a3 ; "&" 045c 008f | | .STREND 0x008f->0x04a3 045d 5052 4550 |PREP| .STRTAB_STRINGS 04a4 0000 0000 | | .BLANK 0000[0x4] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug Table 04a8 ; -------------------------------------------------------------------------------------- 04a8 0004 000f | | .DEBUG4 0x0004,0x000f,0x0be9,0x0000,0x0001,0x0000 04ae 8500 0000 | | .XXX[0x8] 04b0 400a af8e |@ | 04b2 8500 0000 | | 04b4 4002 6600 |@ f | 04b6 0000 0000 | | .BLANK 0000[0x4] 04ba 0002 abe3 | | .XXX[0x12] 04bc a140 0000 | @ | 04be 1008 2253 | "S| 04c0 fbcf 87b0 | | 04c2 0001 2000 | | 04c4 0000 9000 | | 04c6 1103 4000 | @ | 04c8 0000 2000 | | 04ca 0000 4000 | @ | 04cc 0000 0000 | | .BLANK 0000[0xa] 04d6 041c 2000 | | .XXX[0x2] 04d8 0000 0000 | | .BLANK 0000[0x7] 04df 0008 0000 | | .XXX[0x9] 04e1 0000 0000 | | 04e3 0018 0007 | | 04e5 5388 0629 |S )| 04e7 4d70 |Mp | 04e8 0000 0000 | | .BLANK 0000[0x4] 04ec 0314 bc04 | | .XXX[0x32] 04ee 000a 7fed | | 04f0 a08e 0f75 | u| 04f2 dec0 0000 | | 04f4 0e10 47a8 | G | 04f6 6c32 a040 |l2 @| 04f8 0002 4000 | @ | 04fa 0000 0000 | | 04fc 0000 000c | | 04fe 86fe 8500 | | 0500 0000 400c | @ | 0502 8700 8500 | | 0504 0000 4005 | @ | 0506 c609 f800 | | 0508 0000 0000 | | 050a 0000 0003 | | 050c 21c0 2140 |! !@| 050e 0000 1008 | | 0510 22f3 cf63 |" c| 0512 76d0 0003 |v | 0514 8000 0000 | | 0516 9000 138a | | 0518 c000 0000 | | 051a 2000 0000 | | 051c 2171 8000 |!q | 051e 0000 0000 | | .BLANK 0000[0x8] 0526 0208 bcf3 | | .XXX[0x49] 0528 d8dd b400 | | 052a 00e0 0000 | | 052c 0024 0004 | $ | 052e e2b0 0000 | | 0530 0008 0000 | | 0532 0008 0000 | | 0534 0018 0008 | | 0536 8ed8 0629 | )| 0538 75f0 0629 |u )| 053a 70e8 0629 |p )| 053c c1e8 0314 | | 053e d044 0000 | D | 0540 1cf8 20ac | | 0542 577a a3b0 |Wz | 0544 c000 0690 | | 0546 562b ea61 |V+ a| 0548 6240 0003 |b@ | 054a 4400 0000 |D | 054c 0000 0000 | | 054e 000d be2e | .| 0550 8500 0000 | | 0552 400d be32 |@ 2| 0554 8500 0000 | | 0556 4002 6600 |@ f | 0558 9800 0000 | | 055a 0000 0000 | | 055c 0003 6f8b | o | 055e a140 0000 | @ | 0560 1008 2b15 | + | 0562 dae8 f830 | 0| 0564 0001 a000 | | 0566 0000 9000 | | 0568 159d c000 | | 056a 0000 2000 | | 056c 0000 a099 | | 056e 8026 | & | 056f 0000 0000 | | .BLANK 0000[0x8] 0577 020a c576 | v| .XXX[0x13] 0579 ba3e 0c00 | > | 057b 0068 0000 | h | 057d 0024 0005 | $ | 057f 6770 0000 |gp | 0581 0008 0000 | | 0583 0028 0000 | ( | 0585 0018 0009 | | 0587 8b18 0629 | )| 0589 9e70 | p | 058a 0000 0000 | | .BLANK 0000[0x4] 058e 0314 e484 | | .XXX[0x1b] 0590 0003 ef6e | n| 0592 20d0 47a0 | G | 0594 80cf 8000 | | 0596 0050 6823 | Ph#| 0598 d05c c920 | \ | 059a 0000 2000 | | 059c 0000 0000 | | 059e 0000 0002 | | 05a0 b5cc 8000 | | 05a2 0000 4002 | @ | 05a4 b5ce 8000 | | 05a6 0000 4000 | @ | 05a8 2600 |& | 05a9 0000 0000 | | .BLANK 0000[0x5] 05ae ad73 a000 | s | .XXX[0x12] 05b0 0000 1008 | | 05b2 3411 e82e |4 .| 05b4 6490 0000 |d | 05b6 1000 0000 | | 05b8 9000 1998 | | 05ba a000 0000 | | 05bc 2000 0000 | | 05be 2009 8000 | | 05c0 0000 0000 | | .BLANK 0000[0x8] 05c8 020d 047a | z| .XXX[0x38] 05ca 0864 9400 | d | 05cc 0004 0000 | | 05ce 0024 0006 | $ | 05d0 6628 0000 |f( | 05d2 0008 0000 | | 05d4 0008 0000 | | 05d6 0018 000b | | 05d8 6410 0629 |d )| 05da c6f0 0629 | )| 05dc 9968 062a | h *| 05de 3b68 0314 |;h | 05e0 f8c4 0009 | | 05e2 abd3 20d3 | | 05e4 d8a2 5efb | ^ | 05e6 4000 0490 |@ | 05e8 6b2d 34ff |k-4 | 05ea 2640 0002 |&@ | 05ec 4400 0000 |D | 05ee 0000 0000 | | 05f0 0013 e0bc | | 05f2 8500 0000 | | 05f4 4013 e148 |@ H| 05f6 8500 0000 | | 05f8 4000 0209 |@ | 05fa 1802 2000 | | 05fc 0000 0000 | | 05fe 0004 f82f | /|