|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 005d | ] | .CONST 0x005d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0034 | 4 | .CONST 0x0034 ; 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 4800 |H | Short_Literal 0x0 002f 4801 |H | Short_Literal 0x1 0030 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 0032 03fe | | Declare_Type Discrete,Defined,Visible 0033 c22b | + | Store 0x1,0x2b 0034 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0036 c225 | % | Store 0x1,0x25 0037 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0039 c22d | - | Store 0x1,0x2d 003a 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 003c c22e | . | Store 0x1,0x2e 003d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 003f c228 | ( | Store 0x1,0x28 0040 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0042 c229 | ) | Store 0x1,0x29 0043 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0045 c22f | / | Store 0x1,0x2f 0046 00bf | | Action Accept_Activation 0047 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0049 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 004b 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 004d 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 004e 00c7 | | Action Elaborate_Subprogram 004f 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0051 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0052 00c7 | | Action Elaborate_Subprogram 0053 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 0055 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0056 00c7 | | Action Elaborate_Subprogram 0057 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0058 00c7 | | Action Elaborate_Subprogram 0059 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 005a 00c7 | | Action Elaborate_Subprogram 005b 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 005c 00c7 | | Action Elaborate_Subprogram 005d BODY_0008: 005d 00bc | | Action Signal_Activated 005e 00bb | | Action Signal_Completion 005f 0000 | | .XXX[0x1] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4607 |F | Jump_Case 0x8 0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0065 7806 |x | Jump 0x6c ; case 0x1 0066 7809 |x | Jump 0x70 ; case 0x2 0067 780d |x | Jump 0x75 ; case 0x3 0068 7810 |x | Jump 0x79 ; case 0x4 0069 7811 |x | Jump 0x7b ; case 0x5 006a 7812 |x | Jump 0x7d ; case 0x6 006b 7815 |x | Jump 0x81 ; case 0x7 006c 00da | | Load_Top At_Offset_2 006d 0091 0452 | R| Action Push_String_Extended_Indexed,0x452 ; "PRE" 006f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0070 00db | | Load_Top At_Offset_3 0071 00db | | Load_Top At_Offset_3 0072 00e0 | | Load_Encached Standard_Cache 0073 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0074 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0075 00da | | Load_Top At_Offset_2 0076 00e0 | | Load_Encached Standard_Cache 0077 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0078 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0079 00db | | Load_Top At_Offset_3 007a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007b 00db | | Load_Top At_Offset_3 007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007d e22b | + | Load 0x1,0x2b 007e 00dc | | Load_Top At_Offset_4 007f 0267 | g | Execute Discrete,Predecessor 0080 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0081 e22b | + | Load 0x1,0x2b 0082 00dc | | Load_Top At_Offset_4 0083 0268 | h | Execute Discrete,Successor 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 009b | | .CONST 0x009b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c e001 | | Load 0x0,0x1 008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008e e002 | | Load 0x0,0x2 008f 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 0090 011e | | Execute Any,Convert 0091 00d8 | | Load_Top At_Offset_0 0092 e002 | | Load 0x0,0x2 0093 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0094 e5ff | | Load 0x2,-0x1 0095 e003 | | Load 0x0,0x3 0096 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0097 e003 | | Load 0x0,0x3 0098 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0099 e003 | | Load 0x0,0x3 009a 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 009b BODY_0088: 009b 00cf | | Action Mark_Auxiliary 009c 00da | | Load_Top At_Offset_2 009d 01d9 | | Execute Vector,Reverse_Bounds 009e 0263 | c | Execute Discrete,Above_Bound 009f 7008 |p | Jump_Nonzero 0xa8 00a0 e5fe | | Load 0x2,-0x2 00a1 00d9 | | Load_Top At_Offset_1 00a2 e403 | | Load 0x2,0x3 00a3 01d7 | | Execute Vector,Field_Read 00a4 e404 | | Load 0x2,0x4 00a5 8233 | 3 | Call 0x1,0x33 00a6 00c8 | | Action Pop_Auxiliary_Range 00a7 3ff8 |? | Loop_Increasing 0xa0 00a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00e1 | | .CONST 0x00e1 ; Address of begin 00b1 0118 | | .CONST 0x0118 ; Address of exception handler 00b2 000d | | .CONST 0x000d ; Number of locals 00b3 INIT_00b0: 00b3 00db | | Load_Top At_Offset_3 00b4 e001 | | Load 0x0,0x1 00b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b6 e002 | | Load 0x0,0x2 00b7 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 00b8 011e | | Execute Any,Convert 00b9 00d8 | | Load_Top At_Offset_0 00ba e002 | | Load 0x0,0x2 00bb 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 00bc e5fe | | Load 0x2,-0x2 00bd e003 | | Load 0x0,0x3 00be 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00bf e003 | | Load 0x0,0x3 00c0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00c1 e003 | | Load 0x0,0x3 00c2 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 00c3 00da | | Load_Top At_Offset_2 00c4 e002 | | Load 0x0,0x2 00c5 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 00c6 00db | | Load_Top At_Offset_3 00c7 e002 | | Load 0x0,0x2 00c8 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 00c9 e402 | | Load 0x2,0x2 00ca e002 | | Load 0x0,0x2 00cb 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 00cc e004 | | Load 0x0,0x4 00cd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ce 02ff | | Declare_Variable Variant_Record 00cf 00d8 | | Load_Top At_Offset_0 00d0 1c00 | | Execute_Immediate Run_Utility,0x0 00d1 4801 |H | Short_Literal 0x1 00d2 6055 |`U | Indirect_Literal Discrete,0x128,{0x00000000, 0x00000400} 00d3 00e9 | | Load_Encached String_Cache 00d4 035b | [ | Declare_Type Array,Constrained 00d5 0337 | 7 | Declare_Variable Array 00d6 00e3 | | Load_Encached Natural_Cache 00d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d8 e002 | | Load 0x0,0x2 00d9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00da 02c7 | | Declare_Variable Any 00db 00d8 | | Load_Top At_Offset_0 00dc 1c00 | | Execute_Immediate Run_Utility,0x0 00dd 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 00df 029f 031b | | Declare_Subprogram INIT_0318,For_Call 00e1 BODY_00b0: 00e1 e5f9 | | Load 0x2,-0x7 00e2 4801 |H | Short_Literal 0x1 00e3 e5f9 | | Load 0x2,-0x7 00e4 4801 |H | Short_Literal 0x1 00e5 e5fa | | Load 0x2,-0x6 00e6 e005 | | Load 0x0,0x5 00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e8 e005 | | Load 0x0,0x5 00e9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00ea e408 | | Load 0x2,0x8 00eb 016d | m | Execute Variant_Record,Structure_Write 00ec 00cf | | Action Mark_Auxiliary 00ed e403 | | Load 0x2,0x3 00ee 01d9 | | Execute Vector,Reverse_Bounds 00ef 0263 | c | Execute Discrete,Above_Bound 00f0 7007 |p | Jump_Nonzero 0xf8 00f1 00d8 | | Load_Top At_Offset_0 00f2 e403 | | Load 0x2,0x3 00f3 01d7 | | Execute Vector,Field_Read 00f4 c40b | | Store 0x2,0xb 00f5 840d | | Call 0x2,0xd 00f6 00c8 | | Action Pop_Auxiliary_Range 00f7 3ff9 |? | Loop_Increasing 0xf1 00f8 00ce | | Action Pop_Auxiliary 00f9 00db | | Load_Top At_Offset_3 00fa 0c01 | | Execute_Immediate Greater_Equal,0x1 00fb 6818 |h | Jump_Zero 0x114 00fc e5fb | | Load 0x2,-0x5 00fd 01db | | Execute Vector,Length 00fe 0c01 | | Execute_Immediate Greater_Equal,0x1 00ff 680d |h | Jump_Zero 0x10d 0100 4801 |H | Short_Literal 0x1 0101 e40a | | Load 0x2,0xa 0102 e409 | | Load 0x2,0x9 0103 01cf | | Execute Vector,Slice_Read 0104 e402 | | Load 0x2,0x2 0105 e002 | | Load 0x0,0x2 0106 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0107 01cc | | Execute Vector,Catenate 0108 e5fb | | Load 0x2,-0x5 0109 01cc | | Execute Vector,Catenate 010a 00e9 | | Load_Encached String_Cache 010b 01c6 | | Execute Vector,Convert_To_Formal 010c 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 010d 4801 |H | Short_Literal 0x1 010e e40a | | Load 0x2,0xa 010f e409 | | Load 0x2,0x9 0110 01cf | | Execute Vector,Slice_Read 0111 00e9 | | Load_Encached String_Cache 0112 01c6 | | Execute Vector,Convert_To_Formal 0113 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0114 e5fb | | Load 0x2,-0x5 0115 0335 | 5 | Declare_Variable Array,Duplicate 0116 00cd | | Action Spare6_Action 0117 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0118 TRAP_00b0: 0118 e006 | | Load 0x0,0x6 0119 1b17 | | Execute Package,Field_Read,Field_Number 0x17 011a 010f | | Execute Exception,Equal 011b 6802 |h | Jump_Zero 0x11e 011c 00ea | | Load_Encached Null_String_Cache 011d 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 011e e5f9 | | Load 0x2,-0x7 011f 0092 0454 | T| Action Push_String_Extended,0x454 ; "Rco.Get_Options" 0121 e007 | | Load 0x0,0x7 0122 180f | | Execute Package,Field_Execute,Field_Number 0xf 0123 00ea | | Load_Encached Null_String_Cache 0124 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 013b | ; | .CONST 0x013b ; Address of begin 0131 0151 | Q | .CONST 0x0151 ; Address of exception handler 0132 0004 | | .CONST 0x0004 ; Number of locals 0133 INIT_0130: 0133 00e1 | | Load_Encached Boolean_Cache 0134 e002 | | Load 0x0,0x2 0135 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0136 02c7 | | Declare_Variable Any 0137 00d8 | | Load_Top At_Offset_0 0138 1c00 | | Execute_Immediate Run_Utility,0x0 0139 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call 013b BODY_0130: 013b 00e1 | | Load_Encached Boolean_Cache 013c 00da | | Load_Top At_Offset_2 013d 0120 | | Execute Any,Is_Value 013e 6803 |h | Jump_Zero 0x142 013f e002 | | Load 0x0,0x2 0140 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0141 7801 |x | Jump 0x143 0142 00da | | Load_Top At_Offset_2 0143 4801 |H | Short_Literal 0x1 0144 e5fa | | Load 0x2,-0x6 0145 e5fd | | Load 0x2,-0x3 0146 e5fe | | Load 0x2,-0x2 0147 8230 | 0 | Call 0x1,0x30 0148 c403 | | Store 0x2,0x3 0149 005b | [ | Store_Top Discrete,At_Offset_3 014a 00da | | Load_Top At_Offset_2 014b 6802 |h | Jump_Zero 0x14e 014c 8404 | | Call 0x2,0x4 014d 7802 |x | Jump 0x150 014e 4800 |H | Short_Literal 0x0 014f 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0150 0831 | 1 | Execute_Immediate Raise,0x31 0151 TRAP_0130: 0151 0007 | | Action Break_Optional 0152 e5fa | | Load 0x2,-0x6 0153 0092 0455 | U| Action Push_String_Extended,0x455 ; "Rco.Option_In_Effect" 0155 e007 | | Load 0x0,0x7 0156 180f | | Execute Package,Field_Execute,Field_Number 0xf 0157 4800 |H | Short_Literal 0x0 0158 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0159 0000 0000 | | .BLANK 0000[0x7] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0169 | i | .CONST 0x0169 ; Address of begin 0161 017a | z | .CONST 0x017a ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 00e1 | | Load_Encached Boolean_Cache 0164 e002 | | Load 0x0,0x2 0165 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0166 02c7 | | Declare_Variable Any 0167 00d8 | | Load_Top At_Offset_0 0168 1c00 | | Execute_Immediate Run_Utility,0x0 0169 BODY_0160: 0169 00e1 | | Load_Encached Boolean_Cache 016a 00d9 | | Load_Top At_Offset_1 016b 0120 | | Execute Any,Is_Value 016c 6803 |h | Jump_Zero 0x170 016d e002 | | Load 0x0,0x2 016e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 016f 7801 |x | Jump 0x171 0170 00d9 | | Load_Top At_Offset_1 0171 4800 |H | Short_Literal 0x0 0172 e5fd | | Load 0x2,-0x3 0173 e5fe | | Load 0x2,-0x2 0174 e5ff | | Load 0x2,-0x1 0175 8230 | 0 | Call 0x1,0x30 0176 c403 | | Store 0x2,0x3 0177 005a | Z | Store_Top Discrete,At_Offset_2 0178 00d9 | | Load_Top At_Offset_1 0179 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 017a TRAP_0160: 017a 0007 | | Action Break_Optional 017b e5fd | | Load 0x2,-0x3 017c 0092 0456 | V| Action Push_String_Extended,0x456 ; "Rco.Option_Exists" 017e e007 | | Load 0x0,0x7 017f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0180 4800 |H | Short_Literal 0x0 0181 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0182 0000 0000 | | .BLANK 0000[0x6] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0191 | | .CONST 0x0191 ; Address of begin 0189 01a8 | | .CONST 0x01a8 ; Address of exception handler 018a 0003 | | .CONST 0x0003 ; Number of locals 018b INIT_0188: 018b 00e1 | | Load_Encached Boolean_Cache 018c e002 | | Load 0x0,0x2 018d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 018e 02c7 | | Declare_Variable Any 018f 00d8 | | Load_Top At_Offset_0 0190 1c00 | | Execute_Immediate Run_Utility,0x0 0191 BODY_0188: 0191 00e1 | | Load_Encached Boolean_Cache 0192 00d9 | | Load_Top At_Offset_1 0193 0120 | | Execute Any,Is_Value 0194 6803 |h | Jump_Zero 0x198 0195 e002 | | Load 0x0,0x2 0196 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0197 7801 |x | Jump 0x199 0198 00d9 | | Load_Top At_Offset_1 0199 4801 |H | Short_Literal 0x1 019a e5fd | | Load 0x2,-0x3 019b e5fe | | Load 0x2,-0x2 019c e5ff | | Load 0x2,-0x1 019d 8230 | 0 | Call 0x1,0x30 019e c403 | | Store 0x2,0x3 019f 005a | Z | Store_Top Discrete,At_Offset_2 01a0 00d9 | | Load_Top At_Offset_1 01a1 6804 |h | Jump_Zero 0x1a6 01a2 00d8 | | Load_Top At_Offset_0 01a3 e002 | | Load 0x0,0x2 01a4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01a5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01a6 4800 |H | Short_Literal 0x0 01a7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01a8 TRAP_0188: 01a8 0007 | | Action Break_Optional 01a9 e5fd | | Load 0x2,-0x3 01aa 0092 0457 | W| Action Push_String_Extended,0x457 ; "Rco.Option_Takes_Argument" 01ac e007 | | Load 0x0,0x7 01ad 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ae 4800 |H | Short_Literal 0x0 01af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01c3 | | .CONST 0x01c3 ; Address of begin 01b1 01de | | .CONST 0x01de ; Address of exception handler 01b2 0004 | | .CONST 0x0004 ; Number of locals 01b3 INIT_01b0: 01b3 00e1 | | Load_Encached Boolean_Cache 01b4 e002 | | Load 0x0,0x2 01b5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 01b6 02c7 | | Declare_Variable Any 01b7 00d8 | | Load_Top At_Offset_0 01b8 1c00 | | Execute_Immediate Run_Utility,0x0 01b9 e5fa | | Load 0x2,-0x6 01ba 00d9 | | Load_Top At_Offset_1 01bb e5fe | | Load 0x2,-0x2 01bc e003 | | Load 0x0,0x3 01bd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01be e003 | | Load 0x0,0x3 01bf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01c0 e003 | | Load 0x0,0x3 01c1 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 01c2 8231 | 1 | Call 0x1,0x31 01c3 BODY_01b0: 01c3 00e1 | | Load_Encached Boolean_Cache 01c4 00da | | Load_Top At_Offset_2 01c5 0120 | | Execute Any,Is_Value 01c6 6803 |h | Jump_Zero 0x1ca 01c7 e002 | | Load 0x0,0x2 01c8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 01c9 7801 |x | Jump 0x1cb 01ca 00da | | Load_Top At_Offset_2 01cb 4801 |H | Short_Literal 0x1 01cc e5fa | | Load 0x2,-0x6 01cd e5fd | | Load 0x2,-0x3 01ce e5fe | | Load 0x2,-0x2 01cf 8230 | 0 | Call 0x1,0x30 01d0 c403 | | Store 0x2,0x3 01d1 005b | [ | Store_Top Discrete,At_Offset_3 01d2 00da | | Load_Top At_Offset_2 01d3 6808 |h | Jump_Zero 0x1dc 01d4 e5fa | | Load 0x2,-0x6 01d5 e5fb | | Load 0x2,-0x5 01d6 e5fc | | Load 0x2,-0x4 01d7 00db | | Load_Top At_Offset_3 01d8 e403 | | Load 0x2,0x3 01d9 e5ff | | Load 0x2,-0x1 01da 8232 | 2 | Call 0x1,0x32 01db 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 01dc 00ea | | Load_Encached Null_String_Cache 01dd 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 01de TRAP_01b0: 01de 0007 | | Action Break_Optional 01df e5fa | | Load 0x2,-0x6 01e0 0092 0458 | X| Action Push_String_Extended,0x458 ; "Rco.Argument_Value" 01e2 e007 | | Load 0x0,0x7 01e3 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e4 00ea | | Load_Encached Null_String_Cache 01e5 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f4 | | .CONST 0x01f4 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec e001 | | Load 0x0,0x1 01ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ee e002 | | Load 0x0,0x2 01ef 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 01f0 011e | | Execute Any,Convert 01f1 00d8 | | Load_Top At_Offset_0 01f2 e002 | | Load 0x0,0x2 01f3 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 01f4 BODY_01e8: 01f4 4800 |H | Short_Literal 0x0 01f5 a5fa | | Store_Unchecked 0x2,-0x6 01f6 00cf | | Action Mark_Auxiliary 01f7 00d9 | | Load_Top At_Offset_1 01f8 01d9 | | Execute Vector,Reverse_Bounds 01f9 0263 | c | Execute Discrete,Above_Bound 01fa 7013 |p | Jump_Nonzero 0x20e 01fb 4801 |H | Short_Literal 0x1 01fc 00d9 | | Load_Top At_Offset_1 01fd e403 | | Load 0x2,0x3 01fe 01d7 | | Execute Vector,Field_Read 01ff e002 | | Load 0x0,0x2 0200 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0201 e5fe | | Load 0x2,-0x2 0202 e008 | | Load 0x0,0x8 0203 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0204 6807 |h | Jump_Zero 0x20c 0205 4801 |H | Short_Literal 0x1 0206 a5fa | | Store_Unchecked 0x2,-0x6 0207 00d8 | | Load_Top At_Offset_0 0208 e403 | | Load 0x2,0x3 0209 01d7 | | Execute Vector,Field_Read 020a c5fb | | Store 0x2,-0x5 020b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 020c 00c8 | | Action Pop_Auxiliary_Range 020d 3fed |? | Loop_Increasing 0x1fb 020e 00ce | | Action Pop_Auxiliary 020f e5fc | | Load 0x2,-0x4 0210 681f |h | Jump_Zero 0x230 0211 e5fd | | Load 0x2,-0x3 0212 4801 |H | Short_Literal 0x1 0213 4802 |H | Short_Literal 0x2 0214 e009 | | Load 0x0,0x9 0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0216 035b | [ | Declare_Type Array,Constrained 0217 0337 | 7 | Declare_Variable Array 0218 e5fe | | Load 0x2,-0x2 0219 e009 | | Load 0x0,0x9 021a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 021b e009 | | Load 0x0,0x9 021c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021d 0119 | | Execute Any,Check_In_Formal_Type 021e 4801 |H | Short_Literal 0x1 021f 00da | | Load_Top At_Offset_2 0220 01d6 | | Execute Vector,Field_Write 0221 e5ff | | Load 0x2,-0x1 0222 e00a | | Load 0x0,0xa 0223 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0224 e009 | | Load 0x0,0x9 0225 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0226 e009 | | Load 0x0,0x9 0227 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0228 0119 | | Execute Any,Check_In_Formal_Type 0229 4802 |H | Short_Literal 0x2 022a 00da | | Load_Top At_Offset_2 022b 01d6 | | Execute Vector,Field_Write 022c 4805 |H | Short_Literal 0x5 022d 6006 |` | Indirect_Literal Discrete,0x234,{0x00000000, 0x0000815b} 022e e006 | | Load 0x0,0x6 022f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0230 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0231 0000 0000 | | .XXX[0x3] 0233 0000 | | 0234 0000 0000 | | .LITERAL {0x00000000, 0x0000815b} 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0244 | D | .CONST 0x0244 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 0092 0459 | Y| Action Push_String_Extended,0x459 ; "_" 023e 01cc | | Execute Vector,Catenate 023f e5fe | | Load 0x2,-0x2 0240 e002 | | Load 0x0,0x2 0241 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0242 01cc | | Execute Vector,Catenate 0243 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0244 TRAP_0238: 0244 0007 | | Action Break_Optional 0245 e5fd | | Load 0x2,-0x3 0246 0092 045a | Z| Action Push_String_Extended,0x45a ; "Rco.Make_Switch_Name" 0248 e007 | | Load 0x0,0x7 0249 180f | | Execute Package,Field_Execute,Field_Number 0xf 024a 00ea | | Load_Encached Null_String_Cache 024b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0257 | W | .CONST 0x0257 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0003 | | .CONST 0x0003 ; Number of locals 0253 INIT_0250: 0253 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 0255 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 0257 BODY_0250: 0257 e5fe | | Load 0x2,-0x2 0258 e002 | | Load 0x0,0x2 0259 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 025a 7018 |p | Jump_Nonzero 0x273 025b e00b | | Load 0x0,0xb 025c 180e | | Execute Package,Field_Execute,Field_Number 0xe 025d 4801 |H | Short_Literal 0x1 025e 4801 |H | Short_Literal 0x1 025f e009 | | Load 0x0,0x9 0260 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0261 035b | [ | Declare_Type Array,Constrained 0262 0337 | 7 | Declare_Variable Array 0263 e5fe | | Load 0x2,-0x2 0264 e002 | | Load 0x0,0x2 0265 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0266 e009 | | Load 0x0,0x9 0267 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0268 e009 | | Load 0x0,0x9 0269 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026a 0119 | | Execute Any,Check_In_Formal_Type 026b 4801 |H | Short_Literal 0x1 026c 00da | | Load_Top At_Offset_2 026d 01d6 | | Execute Vector,Field_Write 026e 6009 |` | Indirect_Literal Discrete,0x278,{0x00000000, 0x0000815c} 026f e006 | | Load 0x0,0x6 0270 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0271 00ea | | Load_Encached Null_String_Cache 0272 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0273 8402 | | Call 0x2,0x2 0274 8403 | | Call 0x2,0x3 0275 0831 | 1 | Execute_Immediate Raise,0x31 0276 0000 0000 | | .XXX[0x2] 0278 0000 0000 | | .LITERAL {0x00000000, 0x0000815c} 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0288 | | .CONST 0x0288 ; Address of begin 0281 029d | | .CONST 0x029d ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 00db | | Load_Top At_Offset_3 0284 e002 | | Load 0x0,0x2 0285 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0286 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call 0288 BODY_0280: 0288 e5fe | | Load 0x2,-0x2 0289 e002 | | Load 0x0,0x2 028a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 028b 6810 |h | Jump_Zero 0x29c 028c e5fe | | Load 0x2,-0x2 028d e002 | | Load 0x0,0x2 028e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 028f 680b |h | Jump_Zero 0x29b 0290 e5fe | | Load 0x2,-0x2 0291 e002 | | Load 0x0,0x2 0292 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0293 00da | | Load_Top At_Offset_2 0294 e5fd | | Load 0x2,-0x3 0295 e5fe | | Load 0x2,-0x2 0296 e5ff | | Load 0x2,-0x1 0297 8231 | 1 | Call 0x1,0x31 0298 e00c | | Load 0x0,0xc 0299 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 029a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 029b 8403 | | Call 0x2,0x3 029c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 029d TRAP_0280: 029d 0007 | | Action Break_Optional 029e e5fd | | Load 0x2,-0x3 029f 0092 045b | [| Action Push_String_Extended,0x45b ; "Rco.Create_Switch" 02a1 e007 | | Load 0x0,0x7 02a2 180f | | Execute Package,Field_Execute,Field_Number 0xf 02a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a4 0000 0000 | | .BLANK 0000[0x4] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02af | | .CONST 0x02af ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0003 | | .CONST 0x0003 ; Number of locals 02ab INIT_02a8: 02ab 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call 02ad 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 02af BODY_02a8: 02af e5ff | | Load 0x2,-0x1 02b0 e002 | | Load 0x0,0x2 02b1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02b2 7002 |p | Jump_Nonzero 0x2b5 02b3 4801 |H | Short_Literal 0x1 02b4 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 02b5 e5ff | | Load 0x2,-0x1 02b6 e002 | | Load 0x0,0x2 02b7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02b8 6802 |h | Jump_Zero 0x2bb 02b9 8402 | | Call 0x2,0x2 02ba 7801 |x | Jump 0x2bc 02bb 8403 | | Call 0x2,0x3 02bc e5ff | | Load 0x2,-0x1 02bd e002 | | Load 0x0,0x2 02be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02bf 6807 |h | Jump_Zero 0x2c7 02c0 e5fb | | Load 0x2,-0x5 02c1 e5fe | | Load 0x2,-0x2 02c2 e00c | | Load 0x0,0xc 02c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c4 01db | | Execute Vector,Length 02c5 0e00 | | Execute_Immediate Not_Equal,0x0 02c6 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 02c7 e5fb | | Load 0x2,-0x5 02c8 e5fe | | Load 0x2,-0x2 02c9 e00c | | Load 0x0,0xc 02ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02cb 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 02cc 0000 0000 | | .BLANK 0000[0x4] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d5 | | .CONST 0x02d5 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0002 | | .CONST 0x0002 ; Number of locals 02d3 INIT_02d0: 02d3 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 02d5 BODY_02d0: 02d5 e40a | | Load 0x2,0xa 02d6 6818 |h | Jump_Zero 0x2ef 02d7 e406 | | Load 0x2,0x6 02d8 e40a | | Load 0x2,0xa 02d9 0a01 | | Execute_Immediate Plus,0x1 02da 00d8 | | Load_Top At_Offset_0 02db 00e2 | | Load_Encached Integer_Cache 02dc 0260 | ` | Execute Discrete,In_Type 02dd 7001 |p | Jump_Nonzero 0x2df 02de 0801 | | Execute_Immediate Raise,0x1 02df e40a | | Load 0x2,0xa 02e0 e406 | | Load 0x2,0x6 02e1 01db | | Execute Vector,Length 02e2 0273 | s | Execute Discrete,Plus 02e3 00d8 | | Load_Top At_Offset_0 02e4 00e2 | | Load_Encached Integer_Cache 02e5 0260 | ` | Execute Discrete,In_Type 02e6 7001 |p | Jump_Nonzero 0x2e8 02e7 0801 | | Execute_Immediate Raise,0x1 02e8 e409 | | Load 0x2,0x9 02e9 01ce | | Execute Vector,Slice_Write 02ea e40a | | Load 0x2,0xa 02eb e406 | | Load 0x2,0x6 02ec 01db | | Execute Vector,Length 02ed 0273 | s | Execute Discrete,Plus 02ee c40a | | Store 0x2,0xa 02ef 00db | | Load_Top At_Offset_3 02f0 e40a | | Load 0x2,0xa 02f1 0a01 | | Execute_Immediate Plus,0x1 02f2 00d8 | | Load_Top At_Offset_0 02f3 00e2 | | Load_Encached Integer_Cache 02f4 0260 | ` | Execute Discrete,In_Type 02f5 7001 |p | Jump_Nonzero 0x2f7 02f6 0801 | | Execute_Immediate Raise,0x1 02f7 e40a | | Load 0x2,0xa 02f8 e7ff | | Load 0x3,-0x1 02f9 01db | | Execute Vector,Length 02fa 0273 | s | Execute Discrete,Plus 02fb 00d8 | | Load_Top At_Offset_0 02fc 00e2 | | Load_Encached Integer_Cache 02fd 0260 | ` | Execute Discrete,In_Type 02fe 7001 |p | Jump_Nonzero 0x300 02ff 0801 | | Execute_Immediate Raise,0x1 0300 e409 | | Load 0x2,0x9 0301 01ce | | Execute Vector,Slice_Write 0302 e40a | | Load 0x2,0xa 0303 e7ff | | Load 0x3,-0x1 0304 01db | | Execute Vector,Length 0305 0273 | s | Execute Discrete,Plus 0306 c40a | | Store 0x2,0xa 0307 e40b | | Load 0x2,0xb 0308 e002 | | Load 0x0,0x2 0309 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 030a 6805 |h | Jump_Zero 0x310 030b e40b | | Load 0x2,0xb 030c e002 | | Load 0x0,0x2 030d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 030e 6801 |h | Jump_Zero 0x310 030f 8602 | | Call 0x3,0x2 0310 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0311 0000 0000 | | .BLANK 0000[0x7] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 032b | + | .CONST 0x032b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0003 | | .CONST 0x0003 ; Number of locals 031b INIT_0318: 031b e405 | | Load 0x2,0x5 031c e40b | | Load 0x2,0xb 031d e002 | | Load 0x0,0x2 031e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 031f 01cc | | Execute Vector,Catenate 0320 0007 | | Action Break_Optional 0321 e5f9 | | Load 0x2,-0x7 0322 e40b | | Load 0x2,0xb 0323 e5fe | | Load 0x2,-0x2 0324 e003 | | Load 0x0,0x3 0325 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0326 e003 | | Load 0x0,0x3 0327 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0328 e003 | | Load 0x0,0x3 0329 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 032a 8231 | 1 | Call 0x1,0x31 032b BODY_0318: 032b e5fd | | Load 0x2,-0x3 032c e40b | | Load 0x2,0xb 032d e002 | | Load 0x0,0x2 032e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 032f 01d7 | | Execute Vector,Field_Read 0330 681a |h | Jump_Zero 0x34b 0331 e5fc | | Load 0x2,-0x4 0332 0f00 | | Execute_Immediate Equal,0x0 0333 e40b | | Load 0x2,0xb 0334 e002 | | Load 0x0,0x2 0335 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0336 027f | | Execute Discrete,Equal 0337 6813 |h | Jump_Zero 0x34b 0338 e40b | | Load 0x2,0xb 0339 e002 | | Load 0x0,0x2 033a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 033b 7004 |p | Jump_Nonzero 0x340 033c 00d8 | | Load_Top At_Offset_0 033d 00da | | Load_Top At_Offset_2 033e 840c | | Call 0x2,0xc 033f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0340 e5f9 | | Load 0x2,-0x7 0341 e408 | | Load 0x2,0x8 0342 e5ff | | Load 0x2,-0x1 0343 e5fa | | Load 0x2,-0x6 0344 e603 | | Load 0x3,0x3 0345 e40b | | Load 0x2,0xb 0346 8234 | 4 | Call 0x1,0x34 0347 6803 |h | Jump_Zero 0x34b 0348 00d8 | | Load_Top At_Offset_0 0349 00da | | Load_Top At_Offset_2 034a 840c | | Call 0x2,0xc 034b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034c 0000 0000 | | .BLANK 0000[0x4] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 035d | ] | .CONST 0x035d ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0002 | | .CONST 0x0002 ; Number of locals 0353 INIT_0350: 0353 e5fa | | Load 0x2,-0x6 0354 e403 | | Load 0x2,0x3 0355 e5fe | | Load 0x2,-0x2 0356 e003 | | Load 0x0,0x3 0357 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0358 e003 | | Load 0x0,0x3 0359 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 035a e003 | | Load 0x0,0x3 035b 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 035c 8231 | 1 | Call 0x1,0x31 035d BODY_0350: 035d e5fa | | Load 0x2,-0x6 035e e5fb | | Load 0x2,-0x5 035f e5ff | | Load 0x2,-0x1 0360 e5fc | | Load 0x2,-0x4 0361 e602 | | Load 0x3,0x2 0362 e403 | | Load 0x2,0x3 0363 8234 | 4 | Call 0x1,0x34 0364 00cb | | Action Pop_Block_With_Result 0365 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0366 0000 0000 | | .XXX[0x2] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 037e | ~ | .CONST 0x037e ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0003 | | .CONST 0x0003 ; Number of locals 036b INIT_0368: 036b e00d | | Load 0x0,0xd 036c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 036d 0322 | " | Declare_Variable Record 036e e5ff | | Load 0x2,-0x1 036f e5fa | | Load 0x2,-0x6 0370 e5fe | | Load 0x2,-0x2 0371 e5fc | | Load 0x2,-0x4 0372 e00d | | Load 0x0,0xd 0373 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0374 00d9 | | Load_Top At_Offset_1 0375 017d | } | Execute Record,Structure_Write 0376 4801 |H | Short_Literal 0x1 0377 00d9 | | Load_Top At_Offset_1 0378 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0379 00da | | Load_Top At_Offset_2 037a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 037b 01cf | | Execute Vector,Slice_Read 037c 0335 | 5 | Declare_Variable Array,Duplicate 037d 00cd | | Action Spare6_Action 037e BODY_0368: 037e 00d9 | | Load_Top At_Offset_1 037f e00d | | Load 0x0,0xd 0380 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0381 017e | ~ | Execute Record,Not_Equal 0382 680b |h | Jump_Zero 0x38e 0383 00d8 | | Load_Top At_Offset_0 0384 0092 045c | \| Action Push_String_Extended,0x45c ; "&" 0386 01df | | Execute Vector,Equal 0387 6803 |h | Jump_Zero 0x38b 0388 00ea | | Load_Encached Null_String_Cache 0389 00cb | | Action Pop_Block_With_Result 038a 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 038b 00d8 | | Load_Top At_Offset_0 038c 00cb | | Action Pop_Block_With_Result 038d 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 038e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 038f 0000 | | .XXX[0x1] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0397 | | .CONST 0x0397 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0002 | | .CONST 0x0002 ; Number of locals 0393 INIT_0390: 0393 e5fb | | Load 0x2,-0x5 0394 e5fd | | Load 0x2,-0x3 0395 e00c | | Load 0x0,0xc 0396 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0397 BODY_0390: 0397 00d8 | | Load_Top At_Offset_0 0398 0092 045c | \| Action Push_String_Extended,0x45c ; "&" 039a 01df | | Execute Vector,Equal 039b 6803 |h | Jump_Zero 0x39f 039c 00ea | | Load_Encached Null_String_Cache 039d 00cb | | Action Pop_Block_With_Result 039e 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 039f 00d8 | | Load_Top At_Offset_0 03a0 00cb | | Action Pop_Block_With_Result 03a1 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 03a2 0000 0000 | | .BLANK 0000[0x6] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 03b8 | | .CONST 0x03b8 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab e5fe | | Load 0x2,-0x2 03ac e002 | | Load 0x0,0x2 03ad 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03ae e402 | | Load 0x2,0x2 03af 00e1 | | Load_Encached Boolean_Cache 03b0 1c02 | | Execute_Immediate Run_Utility,0x2 03b1 e5fd | | Load 0x2,-0x3 03b2 e5fe | | Load 0x2,-0x2 03b3 e5ff | | Load 0x2,-0x1 03b4 8231 | 1 | Call 0x1,0x31 03b5 e00c | | Load 0x0,0xc 03b6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b8 TRAP_03a8: 03b8 010e | | Execute Exception,Is_Constraint_Error 03b9 682a |h* | Jump_Zero 0x3e4 03ba e00b | | Load 0x0,0xb 03bb 180e | | Execute Package,Field_Execute,Field_Number 0xe 03bc 4801 |H | Short_Literal 0x1 03bd 4802 |H | Short_Literal 0x2 03be e009 | | Load 0x0,0x9 03bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03c0 035b | [ | Declare_Type Array,Constrained 03c1 0337 | 7 | Declare_Variable Array 03c2 e402 | | Load 0x2,0x2 03c3 e009 | | Load 0x0,0x9 03c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03c5 e009 | | Load 0x0,0x9 03c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c7 0119 | | Execute Any,Check_In_Formal_Type 03c8 4801 |H | Short_Literal 0x1 03c9 00da | | Load_Top At_Offset_2 03ca 01d6 | | Execute Vector,Field_Write 03cb e5fe | | Load 0x2,-0x2 03cc e002 | | Load 0x0,0x2 03cd 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03ce e009 | | Load 0x0,0x9 03cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03d0 e009 | | Load 0x0,0x9 03d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d2 0119 | | Execute Any,Check_In_Formal_Type 03d3 4802 |H | Short_Literal 0x2 03d4 00da | | Load_Top At_Offset_2 03d5 01d6 | | Execute Vector,Field_Write 03d6 6011 |` | Indirect_Literal Discrete,0x3e8,{0x00000000, 0x00008195} 03d7 e006 | | Load 0x0,0x6 03d8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03d9 e5fe | | Load 0x2,-0x2 03da e002 | | Load 0x0,0x2 03db 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03dc 4800 |H | Short_Literal 0x0 03dd e5fd | | Load 0x2,-0x3 03de e5fe | | Load 0x2,-0x2 03df e5ff | | Load 0x2,-0x1 03e0 8231 | 1 | Call 0x1,0x31 03e1 e00c | | Load 0x0,0xc 03e2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e4 0100 | | Execute Exception,Raise 03e5 0000 0000 | | .XXX[0x3] 03e7 0000 | | 03e8 0000 0000 | | .LITERAL {0x00000000, 0x00008195} 03ec 0000 0000 | | .BLANK 0000[0x4] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03fe | | .CONST 0x03fe ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0002 | | .CONST 0x0002 ; Number of locals 03f3 INIT_03f0: 03f3 e00d | | Load 0x0,0xd 03f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03f5 0322 | " | Declare_Variable Record 03f6 e5fc | | Load 0x2,-0x4 03f7 e5fa | | Load 0x2,-0x6 03f8 e5ff | | Load 0x2,-0x1 03f9 e5fd | | Load 0x2,-0x3 03fa e00d | | Load 0x0,0xd 03fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03fc 00d9 | | Load_Top At_Offset_1 03fd 017d | } | Execute Record,Structure_Write 03fe BODY_03f0: 03fe 00d8 | | Load_Top At_Offset_0 03ff e00d | | Load 0x0,0xd 0400 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0401 017e | ~ | Execute Record,Not_Equal 0402 6805 |h | Jump_Zero 0x408 0403 00d8 | | Load_Top At_Offset_0 0404 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0405 0c01 | | Execute_Immediate Greater_Equal,0x1 0406 00cb | | Action Pop_Block_With_Result 0407 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0408 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0409 0000 0000 | | .BLANK 0000[0x7] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 041e | | .CONST 0x041e ; 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 e5fc | | Load 0x2,-0x4 0417 e5fa | | Load 0x2,-0x6 0418 e5ff | | Load 0x2,-0x1 0419 e5fd | | Load 0x2,-0x3 041a e00d | | Load 0x0,0xd 041b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 041c 00d9 | | Load_Top At_Offset_1 041d 017d | } | Execute Record,Structure_Write 041e BODY_0410: 041e 00d8 | | Load_Top At_Offset_0 041f e00d | | Load 0x0,0xd 0420 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0421 017e | ~ | Execute Record,Not_Equal 0422 6804 |h | Jump_Zero 0x427 0423 00d8 | | Load_Top At_Offset_0 0424 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0425 00cb | | Action Pop_Block_With_Result 0426 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0427 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0435 | 5 | .CONST 0x0435 ; 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 e5f9 | | Load 0x2,-0x7 042d e408 | | Load 0x2,0x8 042e e5fa | | Load 0x2,-0x6 042f e7fe | | Load 0x3,-0x2 0430 e40b | | Load 0x2,0xb 0431 e5ff | | Load 0x2,-0x1 0432 8232 | 2 | Call 0x1,0x32 0433 01cc | | Execute Vector,Catenate 0434 0007 | | Action Break_Optional 0435 BODY_0428: 0435 00d8 | | Load_Top At_Offset_0 0436 e407 | | Load 0x2,0x7 0437 01de | | Execute Vector,Not_Equal 0438 6818 |h | Jump_Zero 0x451 0439 00d8 | | Load_Top At_Offset_0 043a e40a | | Load 0x2,0xa 043b 0a01 | | Execute_Immediate Plus,0x1 043c 00d8 | | Load_Top At_Offset_0 043d 00e2 | | Load_Encached Integer_Cache 043e 0260 | ` | Execute Discrete,In_Type 043f 7001 |p | Jump_Nonzero 0x441 0440 0801 | | Execute_Immediate Raise,0x1 0441 e40a | | Load 0x2,0xa 0442 00db | | Load_Top At_Offset_3 0443 01db | | Execute Vector,Length 0444 0273 | s | Execute Discrete,Plus 0445 00d8 | | Load_Top At_Offset_0 0446 00e2 | | Load_Encached Integer_Cache 0447 0260 | ` | Execute Discrete,In_Type 0448 7001 |p | Jump_Nonzero 0x44a 0449 0801 | | Execute_Immediate Raise,0x1 044a e409 | | Load 0x2,0x9 044b 01ce | | Execute Vector,Slice_Write 044c e40a | | Load 0x2,0xa 044d 00d9 | | Load_Top At_Offset_1 044e 01db | | Execute Vector,Length 044f 0273 | s | Execute Discrete,Plus 0450 c40a | | Store 0x2,0xa 0451 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0452 ; -------------------------------------------------------------------------------------- 0452 ; STRING TABLE 0452 ; -------------------------------------------------------------------------------------- 0452 0018 | | .STRTAB 0x0018->0x045e ; "PRE" 0453 0019 | | .STRTAB 0x0019->0x045f ; "POST" 0454 001b | | .STRTAB 0x001b->0x0461 ; "Rco.Get_Options" 0455 0028 | ( | .STRTAB 0x0028->0x0469 ; "Rco.Option_In_Effect" 0456 003a | : | .STRTAB 0x003a->0x0473 ; "Rco.Option_Exists" 0457 0049 | I | .STRTAB 0x0049->0x047b ; "Rco.Option_Takes_Argument" 0458 0060 | ` | .STRTAB 0x0060->0x0488 ; "Rco.Argument_Value" 0459 0070 | p | .STRTAB 0x0070->0x0491 ; "_" 045a 006f | o | .STRTAB 0x006f->0x0491 ; "Rco.Make_Switch_Name" 045b 0081 | | .STRTAB 0x0081->0x049b ; "Rco.Create_Switch" 045c 0090 | | .STRTAB 0x0090->0x04a4 ; "&" 045d 008f | | .STREND 0x008f->0x04a4 045e 5052 4550 |PREP| .STRTAB_STRINGS 04a5 0000 0000 | | .XXX[0x3] 04a7 0000 | | 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug Table 04a8 ; -------------------------------------------------------------------------------------- 04a8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4f91,0x0000,0x0001,0x0000 04ae 6d90 0000 |m | .XXX[0x7f] 04b0 0002 006e | n| 04b2 5a00 2568 |Z %h| 04b4 6010 0381 |` | 04b6 b401 2b80 | + | 04b8 0080 1c42 | B| 04ba 0009 5de8 | ] | 04bc 0400 eaa3 | | 04be 004a fe80 | J | 04c0 2007 af00 | | 04c2 0258 6e01 | Xn | 04c4 003d e0c0 | = | 04c6 12c7 4008 | @ | 04c8 01fd f600 | | 04ca 9658 8040 | X @| 04cc 1067 3004 | g0 | 04ce b3b8 0200 | | 04d0 8783 0025 | %| 04d2 a560 1004 | ` | 04d4 62d0 012d |b -| 04d6 6800 8024 |h $| 04d8 28e0 096d |( m| 04da 2804 0128 |( (| 04dc bf00 4b78 | Kx| 04de 8020 098a | | 04e0 9002 5c3e | \>| 04e2 0100 4ec0 | N | 04e4 0012 e5c0 | | 04e6 0802 9b24 | $| 04e8 0097 4c80 | L | 04ea 4014 f350 |@ P| 04ec 04bb 5802 | X | 04ee 00af 4600 | F | 04f0 25e2 6010 |% ` | 04f2 05a6 b801 | | 04f4 2f50 0080 |/P | 04f6 2f20 a009 |/ | 04f8 7c68 0401 ||h | 04fa 885c 004b | \ K| 04fc f280 200c | | 04fe 9bf0 0260 | `| 0500 0e01 0066 | f| 0502 92c0 1304 | | 0504 4008 0342 |@ B| 0506 6600 9840 |f @| 0508 8040 1a2d | @ -| 050a 6004 c2f8 |` | 050c 0200 d4d1 | | 050e 8026 1f60 | & `| 0510 1006 c2cc | | 0512 0131 3800 | 18 | 0514 8036 f000 | 6 | 0516 098b a804 | | 0518 01be 6800 | h | 051a 4c6c 8020 |Ll | 051c 0e00 5802 | X | 051e 63de 0100 |c | 0520 77b1 c000 |w | 0522 0009 d8b8 | | 0524 0000 0000 | | 0526 0000 0006 | | 0528 0000 2645 | &E| 052a 8000 268f | & | 052c a000 | | 052d 0000 0000 | | .BLANK 0000[0x10] 053d 278a 4000 |' @ | .XXX[0x29] 053f 0000 0000 | | 0541 2654 6000 |&T` | 0543 0003 8009 | | 0545 9f18 0000 | | 0547 0000 0001 | | 0549 322c 8000 |2, | 054b 0000 0000 | | 054d 1322 c000 | " | 054f 0000 0000 | | 0551 08e6 8000 | | 0553 0264 5800 | dX | 0555 0000 0200 | | 0557 011d 9600 | | 0559 004c 8b00 | L | 055b 1370 19d8 | p | 055d b800 0000 | | 055f 0000 0000 | | 0561 0c01 001a | | 0563 6aa0 0004 |j | 0565 d710 | | 0566 0000 0000 | | .BLANK 0000[0x5] 056b 9ae2 0000 | | .XXX[0x13] 056d 0001 0000 | | 056f 0000 0000 | | 0571 135c 4004 | \@ | 0573 e1ee 762e | v.| 0575 0000 0000 | | 0577 0000 0003 | | 0579 0060 06bc | ` | 057b 0000 0137 | 7| 057d 3e00 |> | 057e 0000 0000 | | .BLANK 0000[0x4] 0582 0026 e7c0 | & | .XXX[0x16] 0584 0000 0060 | `| 0586 0000 0000 | | 0588 0004 dcf8 | | 058a 0000 0000 | | 058c 8040 9600 | @ | 058e 0000 04c0 | | 0590 0015 2bc0 | + | 0592 1008 12c0 | | 0594 0000 0004 | | 0596 0002 1e7c | || 0598 0000 0000 | | .BLANK 0000[0x12] 05aa 0004 ed60 | `| .XXX[0x22] 05ac 0000 0000 | | 05ae 0004 e5f8 | | 05b0 0000 0064 | d| 05b2 013a be00 | : | 05b4 0000 0000 | | 05b6 801a ec60 | `| 05b8 0000 0000 | | 05ba 0027 ab80 | ' | 05bc 0000 0013 | | 05be b170 0000 | p | 05c0 0000 0000 | | 05c2 000c 0000 | | 05c4 4ef6 c000 |N | 05c6 09de dc00 | | 05c8 0000 0000 | | 05ca 009d ed80 | | 05cc 0000 0000 | | .BLANK 0000[0x4] 05d0 0013 bdb0 | | .XXX[0x14] 05d2 0000 0010 | | 05d4 0000 0000 | | 05d6 0002 77b6 | w | 05d8 009f 6b4e | kN| 05da c5c0 0000 | | 05dc 0000 0000 | | 05de 0060 0800 | ` | 05e0 d355 0000 | U | 05e2 27b3 2000 |' | 05e4 0000 0000 | | .BLANK 0000[0x4] 05e8 04f6 6400 | d | .XXX[0x18] 05ea 0000 0800 | | 05ec 0000 0000 | | 05ee 009e cc80 | | 05f0 280a 13b1 |( | 05f2 7000 0000 |p | 05f4 0000 0000 | | 05f6 1803 0035 | 5| 05f8 e000 0009 | | 05fa f898 0000 | | 05fc 0000 0004 | | 05fe 3098 0001 |0 |