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