|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0490 | | .CONST 0x0490 ; 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 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
004b 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
004d 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
004e 00c7 | | Action Elaborate_Subprogram
004f 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
0051 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0052 00c7 | | Action Elaborate_Subprogram
0053 029d 02a3 | | Declare_Subprogram INIT_02a0,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 043a | :| Action Push_String_Extended_Indexed,0x43a ; "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 02cb | | Declare_Subprogram INIT_02c8,For_Call
00df 029f 030b | | Declare_Subprogram INIT_0308,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 043c | <| Action Push_String_Extended,0x43c ; "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 0343 | C| Declare_Subprogram INIT_0340,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 043d | =| Action Push_String_Extended,0x43d ; "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 043e | >| Action Push_String_Extended,0x43e ; "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 043f | ?| Action Push_String_Extended,0x43f ; "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 0440 | @| Action Push_String_Extended,0x440 ; "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 6813 |h | Jump_Zero 0x224
0211 e5fd | | Load 0x2,-0x3
0212 4801 |H | Short_Literal 0x1
0213 4801 |H | Short_Literal 0x1
0214 e009 | | Load 0x0,0x9
0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0216 0334 | 4 | Declare_Variable Array,With_Constraint
0217 e5fe | | Load 0x2,-0x2
0218 e009 | | Load 0x0,0x9
0219 1810 | | Execute Package,Field_Execute,Field_Number 0x10
021a e009 | | Load 0x0,0x9
021b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021c 0119 | | Execute Any,Check_In_Formal_Type
021d 4801 |H | Short_Literal 0x1
021e 00da | | Load_Top At_Offset_2
021f 01d6 | | Execute Vector,Field_Write
0220 4805 |H | Short_Literal 0x5
0221 6006 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x0000815b}
0222 e006 | | Load 0x0,0x6
0223 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0224 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 0000 0000 | | .LITERAL {0x00000000, 0x0000815b}
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 023c | < | .CONST 0x023c ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 0092 0441 | A| Action Push_String_Extended,0x441 ; "_"
0236 01cc | | Execute Vector,Catenate
0237 e5fe | | Load 0x2,-0x2
0238 e002 | | Load 0x0,0x2
0239 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
023a 01cc | | Execute Vector,Catenate
023b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
023c TRAP_0230:
023c 0007 | | Action Break_Optional
023d e5fd | | Load 0x2,-0x3
023e 0092 0442 | B| Action Push_String_Extended,0x442 ; "Rco.Make_Switch_Name"
0240 e007 | | Load 0x0,0x7
0241 180f | | Execute Package,Field_Execute,Field_Number 0xf
0242 00ea | | Load_Encached Null_String_Cache
0243 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024f | O | .CONST 0x024f ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
024d 029f 0383 | | Declare_Subprogram INIT_0380,For_Call
024f BODY_0248:
024f e5fe | | Load 0x2,-0x2
0250 e002 | | Load 0x0,0x2
0251 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0252 7017 |p | Jump_Nonzero 0x26a
0253 e00a | | Load 0x0,0xa
0254 180e | | Execute Package,Field_Execute,Field_Number 0xe
0255 4801 |H | Short_Literal 0x1
0256 4801 |H | Short_Literal 0x1
0257 e009 | | Load 0x0,0x9
0258 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0259 0334 | 4 | Declare_Variable Array,With_Constraint
025a e5fe | | Load 0x2,-0x2
025b e002 | | Load 0x0,0x2
025c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
025d e009 | | Load 0x0,0x9
025e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
025f e009 | | Load 0x0,0x9
0260 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0261 0119 | | Execute Any,Check_In_Formal_Type
0262 4801 |H | Short_Literal 0x1
0263 00da | | Load_Top At_Offset_2
0264 01d6 | | Execute Vector,Field_Write
0265 600a |` | Indirect_Literal Discrete,0x270,{0x00000000, 0x0000815c}
0266 e006 | | Load 0x0,0x6
0267 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0268 00ea | | Load_Encached Null_String_Cache
0269 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
026a 8402 | | Call 0x2,0x2
026b 8403 | | Call 0x2,0x3
026c 0831 | 1 | Execute_Immediate Raise,0x31
026d 0000 0000 | | .XXX[0x3]
026f 0000 | |
0270 0000 0000 | | .LITERAL {0x00000000, 0x0000815c}
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0280 | | .CONST 0x0280 ; Address of begin
0279 0295 | | .CONST 0x0295 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 00db | | Load_Top At_Offset_3
027c e002 | | Load 0x0,0x2
027d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
027e 029f 039b | | Declare_Subprogram INIT_0398,For_Call
0280 BODY_0278:
0280 e5fe | | Load 0x2,-0x2
0281 e002 | | Load 0x0,0x2
0282 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0283 6810 |h | Jump_Zero 0x294
0284 e5fe | | Load 0x2,-0x2
0285 e002 | | Load 0x0,0x2
0286 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0287 680b |h | Jump_Zero 0x293
0288 e5fe | | Load 0x2,-0x2
0289 e002 | | Load 0x0,0x2
028a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
028b 00da | | Load_Top At_Offset_2
028c e5fd | | Load 0x2,-0x3
028d e5fe | | Load 0x2,-0x2
028e e5ff | | Load 0x2,-0x1
028f 8231 | 1 | Call 0x1,0x31
0290 e00b | | Load 0x0,0xb
0291 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0292 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0293 8403 | | Call 0x2,0x3
0294 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0295 TRAP_0278:
0295 0007 | | Action Break_Optional
0296 e5fd | | Load 0x2,-0x3
0297 0092 0443 | C| Action Push_String_Extended,0x443 ; "Rco.Create_Switch"
0299 e007 | | Load 0x0,0x7
029a 180f | | Execute Package,Field_Execute,Field_Number 0xf
029b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7 | | .CONST 0x02a7 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
02a5 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
02a7 BODY_02a0:
02a7 e5ff | | Load 0x2,-0x1
02a8 e002 | | Load 0x0,0x2
02a9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02aa 7002 |p | Jump_Nonzero 0x2ad
02ab 4801 |H | Short_Literal 0x1
02ac 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
02ad e5ff | | Load 0x2,-0x1
02ae e002 | | Load 0x0,0x2
02af 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02b0 6802 |h | Jump_Zero 0x2b3
02b1 8402 | | Call 0x2,0x2
02b2 7801 |x | Jump 0x2b4
02b3 8403 | | Call 0x2,0x3
02b4 e5ff | | Load 0x2,-0x1
02b5 e002 | | Load 0x0,0x2
02b6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02b7 6807 |h | Jump_Zero 0x2bf
02b8 e5fb | | Load 0x2,-0x5
02b9 e5fe | | Load 0x2,-0x2
02ba e00b | | Load 0x0,0xb
02bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02bc 01db | | Execute Vector,Length
02bd 0e00 | | Execute_Immediate Not_Equal,0x0
02be 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
02bf e5fb | | Load 0x2,-0x5
02c0 e5fe | | Load 0x2,-0x2
02c1 e00b | | Load 0x0,0xb
02c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd | | .CONST 0x02cd ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
02cd BODY_02c8:
02cd e40a | | Load 0x2,0xa
02ce 6818 |h | Jump_Zero 0x2e7
02cf e406 | | Load 0x2,0x6
02d0 e40a | | Load 0x2,0xa
02d1 0a01 | | Execute_Immediate Plus,0x1
02d2 00d8 | | Load_Top At_Offset_0
02d3 00e2 | | Load_Encached Integer_Cache
02d4 0260 | ` | Execute Discrete,In_Type
02d5 7001 |p | Jump_Nonzero 0x2d7
02d6 0801 | | Execute_Immediate Raise,0x1
02d7 e40a | | Load 0x2,0xa
02d8 e406 | | Load 0x2,0x6
02d9 01db | | Execute Vector,Length
02da 0273 | s | Execute Discrete,Plus
02db 00d8 | | Load_Top At_Offset_0
02dc 00e2 | | Load_Encached Integer_Cache
02dd 0260 | ` | Execute Discrete,In_Type
02de 7001 |p | Jump_Nonzero 0x2e0
02df 0801 | | Execute_Immediate Raise,0x1
02e0 e409 | | Load 0x2,0x9
02e1 01ce | | Execute Vector,Slice_Write
02e2 e40a | | Load 0x2,0xa
02e3 e406 | | Load 0x2,0x6
02e4 01db | | Execute Vector,Length
02e5 0273 | s | Execute Discrete,Plus
02e6 c40a | | Store 0x2,0xa
02e7 00db | | Load_Top At_Offset_3
02e8 e40a | | Load 0x2,0xa
02e9 0a01 | | Execute_Immediate Plus,0x1
02ea 00d8 | | Load_Top At_Offset_0
02eb 00e2 | | Load_Encached Integer_Cache
02ec 0260 | ` | Execute Discrete,In_Type
02ed 7001 |p | Jump_Nonzero 0x2ef
02ee 0801 | | Execute_Immediate Raise,0x1
02ef e40a | | Load 0x2,0xa
02f0 e7ff | | Load 0x3,-0x1
02f1 01db | | Execute Vector,Length
02f2 0273 | s | Execute Discrete,Plus
02f3 00d8 | | Load_Top At_Offset_0
02f4 00e2 | | Load_Encached Integer_Cache
02f5 0260 | ` | Execute Discrete,In_Type
02f6 7001 |p | Jump_Nonzero 0x2f8
02f7 0801 | | Execute_Immediate Raise,0x1
02f8 e409 | | Load 0x2,0x9
02f9 01ce | | Execute Vector,Slice_Write
02fa e40a | | Load 0x2,0xa
02fb e7ff | | Load 0x3,-0x1
02fc 01db | | Execute Vector,Length
02fd 0273 | s | Execute Discrete,Plus
02fe c40a | | Store 0x2,0xa
02ff e40b | | Load 0x2,0xb
0300 e002 | | Load 0x0,0x2
0301 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0302 6801 |h | Jump_Zero 0x304
0303 8602 | | Call 0x3,0x2
0304 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0305 0000 0000 | | .XXX[0x3]
0307 0000 | |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 031b | | .CONST 0x031b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b e405 | | Load 0x2,0x5
030c e40b | | Load 0x2,0xb
030d e002 | | Load 0x0,0x2
030e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
030f 01cc | | Execute Vector,Catenate
0310 0007 | | Action Break_Optional
0311 e5f9 | | Load 0x2,-0x7
0312 e40b | | Load 0x2,0xb
0313 e5fe | | Load 0x2,-0x2
0314 e003 | | Load 0x0,0x3
0315 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0316 e003 | | Load 0x0,0x3
0317 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0318 e003 | | Load 0x0,0x3
0319 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
031a 8231 | 1 | Call 0x1,0x31
031b BODY_0308:
031b e5fd | | Load 0x2,-0x3
031c e40b | | Load 0x2,0xb
031d e002 | | Load 0x0,0x2
031e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
031f 01d7 | | Execute Vector,Field_Read
0320 681a |h | Jump_Zero 0x33b
0321 e5fc | | Load 0x2,-0x4
0322 0f00 | | Execute_Immediate Equal,0x0
0323 e40b | | Load 0x2,0xb
0324 e002 | | Load 0x0,0x2
0325 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0326 027f | | Execute Discrete,Equal
0327 6813 |h | Jump_Zero 0x33b
0328 e40b | | Load 0x2,0xb
0329 e002 | | Load 0x0,0x2
032a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
032b 7004 |p | Jump_Nonzero 0x330
032c 00d8 | | Load_Top At_Offset_0
032d 00da | | Load_Top At_Offset_2
032e 840c | | Call 0x2,0xc
032f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0330 e5f9 | | Load 0x2,-0x7
0331 e408 | | Load 0x2,0x8
0332 e5ff | | Load 0x2,-0x1
0333 e5fa | | Load 0x2,-0x6
0334 e603 | | Load 0x3,0x3
0335 e40b | | Load 0x2,0xb
0336 8234 | 4 | Call 0x1,0x34
0337 6803 |h | Jump_Zero 0x33b
0338 00d8 | | Load_Top At_Offset_0
0339 00da | | Load_Top At_Offset_2
033a 840c | | Call 0x2,0xc
033b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
033c 0000 0000 | | .BLANK 0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034d | M | .CONST 0x034d ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 e5fa | | Load 0x2,-0x6
0344 e403 | | Load 0x2,0x3
0345 e5fe | | Load 0x2,-0x2
0346 e003 | | Load 0x0,0x3
0347 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0348 e003 | | Load 0x0,0x3
0349 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
034a e003 | | Load 0x0,0x3
034b 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
034c 8231 | 1 | Call 0x1,0x31
034d BODY_0340:
034d e5fa | | Load 0x2,-0x6
034e e5fb | | Load 0x2,-0x5
034f e5ff | | Load 0x2,-0x1
0350 e5fc | | Load 0x2,-0x4
0351 e602 | | Load 0x3,0x2
0352 e403 | | Load 0x2,0x3
0353 8234 | 4 | Call 0x1,0x34
0354 00cb | | Action Pop_Block_With_Result
0355 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0356 0000 0000 | | .XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 036e | n | .CONST 0x036e ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0003 | | .CONST 0x0003 ; Number of locals
035b INIT_0358:
035b e00c | | Load 0x0,0xc
035c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
035d 0322 | " | Declare_Variable Record
035e e5ff | | Load 0x2,-0x1
035f e5fa | | Load 0x2,-0x6
0360 e5fe | | Load 0x2,-0x2
0361 e5fc | | Load 0x2,-0x4
0362 e00c | | Load 0x0,0xc
0363 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0364 00d9 | | Load_Top At_Offset_1
0365 017d | } | Execute Record,Structure_Write
0366 4801 |H | Short_Literal 0x1
0367 00d9 | | Load_Top At_Offset_1
0368 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0369 00da | | Load_Top At_Offset_2
036a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
036b 01cf | | Execute Vector,Slice_Read
036c 0335 | 5 | Declare_Variable Array,Duplicate
036d 00cd | | Action Spare6_Action
036e BODY_0358:
036e 00d9 | | Load_Top At_Offset_1
036f e00c | | Load 0x0,0xc
0370 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0371 017e | ~ | Execute Record,Not_Equal
0372 680b |h | Jump_Zero 0x37e
0373 00d8 | | Load_Top At_Offset_0
0374 0092 0444 | D| Action Push_String_Extended,0x444 ; "&"
0376 01df | | Execute Vector,Equal
0377 6803 |h | Jump_Zero 0x37b
0378 00ea | | Load_Encached Null_String_Cache
0379 00cb | | Action Pop_Block_With_Result
037a 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
037b 00d8 | | Load_Top At_Offset_0
037c 00cb | | Action Pop_Block_With_Result
037d 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
037e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0387 | | .CONST 0x0387 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0002 | | .CONST 0x0002 ; Number of locals
0383 INIT_0380:
0383 e5fb | | Load 0x2,-0x5
0384 e5fd | | Load 0x2,-0x3
0385 e00b | | Load 0x0,0xb
0386 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0387 BODY_0380:
0387 00d8 | | Load_Top At_Offset_0
0388 0092 0444 | D| Action Push_String_Extended,0x444 ; "&"
038a 01df | | Execute Vector,Equal
038b 6803 |h | Jump_Zero 0x38f
038c 00ea | | Load_Encached Null_String_Cache
038d 00cb | | Action Pop_Block_With_Result
038e 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
038f 00d8 | | Load_Top At_Offset_0
0390 00cb | | Action Pop_Block_With_Result
0391 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 03a8 | | .CONST 0x03a8 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e5fe | | Load 0x2,-0x2
039c e002 | | Load 0x0,0x2
039d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
039e e402 | | Load 0x2,0x2
039f 00e1 | | Load_Encached Boolean_Cache
03a0 1c02 | | Execute_Immediate Run_Utility,0x2
03a1 e5fd | | Load 0x2,-0x3
03a2 e5fe | | Load 0x2,-0x2
03a3 e5ff | | Load 0x2,-0x1
03a4 8231 | 1 | Call 0x1,0x31
03a5 e00b | | Load 0x0,0xb
03a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a8 TRAP_0398:
03a8 010e | | Execute Exception,Is_Constraint_Error
03a9 6829 |h) | Jump_Zero 0x3d3
03aa e00a | | Load 0x0,0xa
03ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ac 4801 |H | Short_Literal 0x1
03ad 4802 |H | Short_Literal 0x2
03ae e009 | | Load 0x0,0x9
03af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b0 0334 | 4 | Declare_Variable Array,With_Constraint
03b1 e402 | | Load 0x2,0x2
03b2 e009 | | Load 0x0,0x9
03b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b4 e009 | | Load 0x0,0x9
03b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b6 0119 | | Execute Any,Check_In_Formal_Type
03b7 4801 |H | Short_Literal 0x1
03b8 00da | | Load_Top At_Offset_2
03b9 01d6 | | Execute Vector,Field_Write
03ba e5fe | | Load 0x2,-0x2
03bb e002 | | Load 0x0,0x2
03bc 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03bd e009 | | Load 0x0,0x9
03be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03bf e009 | | Load 0x0,0x9
03c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c1 0119 | | Execute Any,Check_In_Formal_Type
03c2 4802 |H | Short_Literal 0x2
03c3 00da | | Load_Top At_Offset_2
03c4 01d6 | | Execute Vector,Field_Write
03c5 600e |` | Indirect_Literal Discrete,0x3d4,{0x00000000, 0x00008195}
03c6 e006 | | Load 0x0,0x6
03c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03c8 e5fe | | Load 0x2,-0x2
03c9 e002 | | Load 0x0,0x2
03ca 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03cb 4800 |H | Short_Literal 0x0
03cc e5fd | | Load 0x2,-0x3
03cd e5fe | | Load 0x2,-0x2
03ce e5ff | | Load 0x2,-0x1
03cf 8231 | 1 | Call 0x1,0x31
03d0 e00b | | Load 0x0,0xb
03d1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03d3 0100 | | Execute Exception,Raise
03d4 0000 0000 | | .LITERAL {0x00000000, 0x00008195}
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e6 | | .CONST 0x03e6 ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0002 | | .CONST 0x0002 ; Number of locals
03db INIT_03d8:
03db e00c | | Load 0x0,0xc
03dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03dd 0322 | " | Declare_Variable Record
03de e5fc | | Load 0x2,-0x4
03df e5fa | | Load 0x2,-0x6
03e0 e5ff | | Load 0x2,-0x1
03e1 e5fd | | Load 0x2,-0x3
03e2 e00c | | Load 0x0,0xc
03e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03e4 00d9 | | Load_Top At_Offset_1
03e5 017d | } | Execute Record,Structure_Write
03e6 BODY_03d8:
03e6 00d8 | | Load_Top At_Offset_0
03e7 e00c | | Load 0x0,0xc
03e8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03e9 017e | ~ | Execute Record,Not_Equal
03ea 6805 |h | Jump_Zero 0x3f0
03eb 00d8 | | Load_Top At_Offset_0
03ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ed 0c01 | | Execute_Immediate Greater_Equal,0x1
03ee 00cb | | Action Pop_Block_With_Result
03ef 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
03f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f1 0000 0000 | | .BLANK 0000[0x7]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0406 | | .CONST 0x0406 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e00c | | Load 0x0,0xc
03fc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03fd 0322 | " | Declare_Variable Record
03fe e5fc | | Load 0x2,-0x4
03ff e5fa | | Load 0x2,-0x6
0400 e5ff | | Load 0x2,-0x1
0401 e5fd | | Load 0x2,-0x3
0402 e00c | | Load 0x0,0xc
0403 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0404 00d9 | | Load_Top At_Offset_1
0405 017d | } | Execute Record,Structure_Write
0406 BODY_03f8:
0406 00d8 | | Load_Top At_Offset_0
0407 e00c | | Load 0x0,0xc
0408 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0409 017e | ~ | Execute Record,Not_Equal
040a 6804 |h | Jump_Zero 0x40f
040b 00d8 | | Load_Top At_Offset_0
040c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
040d 00cb | | Action Pop_Block_With_Result
040e 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
040f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041d | | .CONST 0x041d ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e407 | | Load 0x2,0x7
0414 e5f9 | | Load 0x2,-0x7
0415 e408 | | Load 0x2,0x8
0416 e5fa | | Load 0x2,-0x6
0417 e7fe | | Load 0x3,-0x2
0418 e40b | | Load 0x2,0xb
0419 e5ff | | Load 0x2,-0x1
041a 8232 | 2 | Call 0x1,0x32
041b 01cc | | Execute Vector,Catenate
041c 0007 | | Action Break_Optional
041d BODY_0410:
041d 00d8 | | Load_Top At_Offset_0
041e e407 | | Load 0x2,0x7
041f 01de | | Execute Vector,Not_Equal
0420 6818 |h | Jump_Zero 0x439
0421 00d8 | | Load_Top At_Offset_0
0422 e40a | | Load 0x2,0xa
0423 0a01 | | Execute_Immediate Plus,0x1
0424 00d8 | | Load_Top At_Offset_0
0425 00e2 | | Load_Encached Integer_Cache
0426 0260 | ` | Execute Discrete,In_Type
0427 7001 |p | Jump_Nonzero 0x429
0428 0801 | | Execute_Immediate Raise,0x1
0429 e40a | | Load 0x2,0xa
042a 00db | | Load_Top At_Offset_3
042b 01db | | Execute Vector,Length
042c 0273 | s | Execute Discrete,Plus
042d 00d8 | | Load_Top At_Offset_0
042e 00e2 | | Load_Encached Integer_Cache
042f 0260 | ` | Execute Discrete,In_Type
0430 7001 |p | Jump_Nonzero 0x432
0431 0801 | | Execute_Immediate Raise,0x1
0432 e409 | | Load 0x2,0x9
0433 01ce | | Execute Vector,Slice_Write
0434 e40a | | Load 0x2,0xa
0435 00d9 | | Load_Top At_Offset_1
0436 01db | | Execute Vector,Length
0437 0273 | s | Execute Discrete,Plus
0438 c40a | | Store 0x2,0xa
0439 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043a ; --------------------------------------------------------------------------------------
043a ; STRING TABLE
043a ; --------------------------------------------------------------------------------------
043a 0018 | | .STRTAB 0x0018->0x0446 ; "PRE"
043b 0019 | | .STRTAB 0x0019->0x0447 ; "POST"
043c 001b | | .STRTAB 0x001b->0x0449 ; "Rco.Get_Options"
043d 0028 | ( | .STRTAB 0x0028->0x0451 ; "Rco.Option_In_Effect"
043e 003a | : | .STRTAB 0x003a->0x045b ; "Rco.Option_Exists"
043f 0049 | I | .STRTAB 0x0049->0x0463 ; "Rco.Option_Takes_Argument"
0440 0060 | ` | .STRTAB 0x0060->0x0470 ; "Rco.Argument_Value"
0441 0070 | p | .STRTAB 0x0070->0x0479 ; "_"
0442 006f | o | .STRTAB 0x006f->0x0479 ; "Rco.Make_Switch_Name"
0443 0081 | | .STRTAB 0x0081->0x0483 ; "Rco.Create_Switch"
0444 0090 | | .STRTAB 0x0090->0x048c ; "&"
0445 008f | | .STREND 0x008f->0x048c
0446 5052 4550 |PREP| .STRTAB_STRINGS
048d 0000 0000 | | .XXX[0x3]
048f 0000 | |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug Table
0490 ; --------------------------------------------------------------------------------------
0490 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dda,0x0000,0x0001,0x0000
0496 0001 5111 | Q | .XXX[0x47]
0498 5095 51c0 |P Q |
049a 0000 0040 | @|
049c 0000 0191 | |
049e 1150 9551 | P Q|
04a0 cb80 0000 | |
04a2 0040 0000 | @ |
04a4 0251 1150 | Q P|
04a6 9551 cb94 | Q |
04a8 9553 8000 | S |
04aa 01f9 4000 | @ |
04ac 000b d353 | S|
04ae d492 54cb | T |
04b0 9514 17d0 | |
04b2 d3d3 5412 | T |
04b4 530b 94d0 |S |
04b6 d053 9391 | S |
04b8 5489 d093 |T |
04ba d116 49d5 | I |
04bc 8a0c 4ccc | L |
04be 8a48 0948 | H H|
04c0 1111 5095 | P |
04c2 51cb 9495 |Q |
04c4 5380 0000 |S |
04c6 0040 0000 | @ |
04c8 00c0 0000 | |
04ca 0070 0000 | p |
04cc 0000 0000 | |
04ce 0004 0000 | |
04d0 0004 0000 | |
04d2 0000 0000 | |
04d4 0002 0000 | |
04d6 0000 0fdd | |
04d8 310b 0012 |1 |
04da e5ea 0000 | |
04dc 0001 | |
04dd 0000 0000 | | .BLANK 0000[0x11]
04ee 00fd d210 | | .XXX[0x2a]
04f0 b000 63a9 | c |
04f2 b00a 1010 | |
04f4 fdd2 10b0 | |
04f6 0055 ab30 | U 0|
04f8 0000 0020 | |
04fa 0000 0180 | |
04fc 0000 7d00 | } |
04fe 0000 0100 | |
0500 a101 0fdd | |
0502 210b 0005 |! |
0504 5ab3 0000 |Z |
0506 000c 0000 | |
0508 0004 0000 | |
050a 07d0 0000 | |
050c 0010 0000 | |
050e 0020 0000 | |
0510 0009 4000 | @ |
0512 00ac 0050 | P|
0514 80f0 9280 | |
0516 0001 5800 | X |
0518 0000 0000 | | .BLANK 0000[0x7]
051f 0025 0000 | % | .XXX[0x20]
0521 02b0 1cea | |
0523 d214 0029 | )|
0525 0be2 0051 | Q|
0527 0201 4203 | B |
0529 c3c2 0000 | |
052b 0560 0000 | ` |
052d 0000 4800 | H |
052f 0000 0000 | |
0531 0000 1000 | |
0533 0000 c000 | |
0535 0000 4940 | I@|
0537 0000 ac00 | |
0539 4e00 8050 |N P|
053b 80f0 f080 | |
053d 0001 5800 | X |
053f 0000 0000 | | .BLANK 0000[0x1a]
0559 0001 6c2e | l.| .XXX[0x2a]
055b 4765 745f |Get_|
055d 4f62 6a65 |Obje|
055f 6374 2028 |ct (|
0561 3129 0000 |1) |
0563 0001 0000 | |
0565 000f 2069 | i|
0567 7320 6e6f |s no|
0569 7420 6120 |t a |
056b 7374 7562 |stub|
056d 2ea0 0000 |. |
056f 0fc0 0000 | |
0571 0900 0000 | |
0573 2000 0001 | |
0575 1c00 0000 | |
0577 0080 0000 | |
0579 1fa1 30b2 | 0 |
057b 2faa 3932 |/ 92|
057d b2af a830 | 0|
057f b930 b6b2 | 0 |
0581 ba32 b900 | 2 |
0583 0000 0000 | | .BLANK 0000[0x18]
059b 8000 0005 | | .XXX[0x2f]
059d 23b2 ba2f |# /|
059f a7b1 3532 | 52|
05a1 b1ba 0000 | |
05a3 0000 8000 | |
05a5 000f 2234 | "4|
05a7 b932 b1ba | 2 |
05a9 37b9 3c97 |7 < |
05ab 2a39 30bb |*90 |
05ad 32b9 39b0 |2 9 |
05af b617 23b2 | # |
05b1 ba2f a7b1 | / |
05b3 3532 b1ba |52 |
05b5 5000 0007 |P |
05b7 e000 0004 | |
05b9 4000 0010 |@ |
05bb 0000 008e | |
05bd 0000 0000 | |
05bf 4000 000f |@ |
05c1 d85b 1b17 | [ |
05c3 dc1d 5c9c | \ |
05c5 1bdc d957 | W|
05c7 d95c 9c9b | \ |
05c9 dc80 | |
05ca 0000 0000 | | .BLANK 0000[0x17]
05e1 2f0f 0500 |/ | .XXX[0x1f]
05e3 00ad 5f80 | _ |
05e5 0000 0013 | |
05e7 bd51 4140 | QA@|
05e9 06b4 0100 | |
05eb 0000 0fc0 | |
05ed 02bc 0d00 | |
05ef 001f 8280 | |
05f1 06b4 0100 | |
05f3 0000 1fc0 | |
05f5 2f0f 0500 |/ |
05f7 0018 e480 | |
05f9 032a 0100 | * |
05fb 0000 5100 | Q |
05fd 1a59 3680 | Y6 |
05ff 001e | |