|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 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 For_Call,INIT_0060
0032 03fe | | Declare_Type Discrete,Defined,Visible
0033 c22b | + | Store 0x1,0x2b
0034 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
0036 c225 | % | Store 0x1,0x25
0037 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
0039 c22d | - | Store 0x1,0x2d
003a 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
003c c22e | . | Store 0x1,0x2e
003d 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
003f c228 | ( | Store 0x1,0x28
0040 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0042 c229 | ) | Store 0x1,0x29
0043 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0
0045 c22f | / | Store 0x1,0x2f
0046 00bf | | Action Accept_Activation
0047 029d 01eb | | Declare_Subprogram For_Outer_Call,INIT_01e8
0049 029d 023b | ;| Declare_Subprogram For_Outer_Call,INIT_0238
004b 029d 0253 | S| Declare_Subprogram For_Outer_Call,INIT_0250
004d 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
004e 00c7 | | Action Elaborate_Subprogram
004f 029d 0283 | | Declare_Subprogram For_Outer_Call,INIT_0280
0051 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0052 00c7 | | Action Elaborate_Subprogram
0053 029d 02ab | | Declare_Subprogram For_Outer_Call,INIT_02a8
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 0x7
0064 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0079 00db | | Load_Top At_Offset_3
007a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
007b 00db | | Load_Top At_Offset_3
007c 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Subprogram 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 For_Call,INIT_02d0
00df 029f 031b | | Declare_Subprogram For_Call,INIT_0318
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_Result,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_Result,0x7
0114 e5fb | | Load 0x2,-0x5
0115 0335 | 5 | Declare_Variable Array,Duplicate
0116 00cd | | Action Spare6_Action
0117 4407 |D | Exit_Subprogram With_Result,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_Result,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_Result,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 For_Call,INIT_0350
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_Result,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_Result,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_Result,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_Result,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_Result,0x3
01a6 4800 |H | Short_Literal 0x0
01a7 4403 |D | Exit_Subprogram With_Result,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_Result,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_Result,0x6
01dc 00ea | | Load_Encached Null_String_Cache
01dd 4406 |D | Exit_Subprogram With_Result,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_Result,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_Subprogram 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_Subprogram 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_Result,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_Result,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 For_Call,INIT_0368
0255 029f 0393 | | Declare_Subprogram For_Call,INIT_0390
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_Result,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 For_Call,INIT_03a8
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_Subprogram 0x4
029b 8403 | | Call 0x2,0x3
029c 4504 |E | Exit_Subprogram 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_Subprogram 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 For_Call,INIT_03f0
02ad 029f 0413 | | Declare_Subprogram For_Call,INIT_0410
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_Result,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_Result,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_Result,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 For_Call,INIT_0428
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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,0x6
038b 00d8 | | Load_Top At_Offset_0
038c 00cb | | Action Pop_Block_With_Result
038d 4406 |D | Exit_Subprogram With_Result,0x6
038e 4501 |E | Exit_Subprogram 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_Result,0x6
039f 00d8 | | Load_Top At_Offset_0
03a0 00cb | | Action Pop_Block_With_Result
03a1 4406 |D | Exit_Subprogram With_Result,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_Subprogram 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_Subprogram 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_Result,0x6
0408 4501 |E | Exit_Subprogram 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_Result,0x6
0427 4501 |E | Exit_Subprogram 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_Subprogram 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 |