|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0648 | H | .CONST 0x0648 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01f7 | | .CONST 0x01f7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005f | _ | .CONST 0x005f ; Number of locals
000b INIT_0008:
000b e009 | | Load 0x0,0x9
000c 00d8 | | Load_Top At_Offset_0
000d 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call
000f 4802 |H | Short_Literal 0x2
0010 032e | . | Declare_Type Record,Defined,Visible
0011 e00a | | Load 0x0,0xa
0012 00d8 | | Load_Top At_Offset_0
0013 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
0015 4802 |H | Short_Literal 0x2
0016 032e | . | Declare_Type Record,Defined,Visible
0017 00d9 | | Load_Top At_Offset_1
0018 00d9 | | Load_Top At_Offset_1
0019 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
001b 4802 |H | Short_Literal 0x2
001c 032e | . | Declare_Type Record,Defined,Visible
001d 4800 |H | Short_Literal 0x0
001e 4807 |H | Short_Literal 0x7
001f 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
0021 03fe | | Declare_Type Discrete,Defined,Visible
0022 0007 | | Action Break_Optional
0023 e00b | | Load 0x0,0xb
0024 00d8 | | Load_Top At_Offset_0
0025 00da | | Load_Top At_Offset_2
0026 e00b | | Load 0x0,0xb
0027 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
0029 4804 |H | Short_Literal 0x4
002a 032e | . | Declare_Type Record,Defined,Visible
002b e00c | | Load 0x0,0xc
002c 0266 | f | Execute Discrete,Bounds
002d 00da | | Load_Top At_Offset_2
002e 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0030 4801 |H | Short_Literal 0x1
0031 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0032 e00d | | Load 0x0,0xd
0033 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
0035 4801 |H | Short_Literal 0x1
0036 032e | . | Declare_Type Record,Defined,Visible
0037 0093 0000 | | push_full_address 0x0
0039 61ee |a | Indirect_Literal Discrete,0x228,{0x80000000, 0x00090000}
003a 0273 | s | Execute Discrete,Plus
003b e00e | | Load 0x0,0xe
003c 0273 | s | Execute Discrete,Plus
003d e00f | | Load 0x0,0xf
003e 0273 | s | Execute Discrete,Plus
003f e010 | | Load 0x0,0x10
0040 e00c | | Load 0x0,0xc
0041 e011 | | Load 0x0,0x11
0042 e00b | | Load 0x0,0xb
0043 e213 | | Load 0x1,0x13
0044 48d3 |H | Short_Literal 0xd3
0045 4801 |H | Short_Literal 0x1
0046 e012 | | Load 0x0,0x12
0047 0386 | | Declare_Variable Package,Visible
0048 00d8 | | Load_Top At_Offset_0
0049 020f | | Execute Module,Activate
004a 0007 | | Action Break_Optional
004b 0007 | | Action Break_Optional
004c 0007 | | Action Break_Optional
004d e00c | | Load 0x0,0xc
004e 0266 | f | Execute Discrete,Bounds
004f 00db | | Load_Top At_Offset_3
0050 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
0052 4801 |H | Short_Literal 0x1
0053 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0054 e00c | | Load 0x0,0xc
0055 0266 | f | Execute Discrete,Bounds
0056 e213 | | Load 0x1,0x13
0057 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0059 4801 |H | Short_Literal 0x1
005a 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
005b e00c | | Load 0x0,0xc
005c 0266 | f | Execute Discrete,Bounds
005d e213 | | Load 0x1,0x13
005e 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
0060 4801 |H | Short_Literal 0x1
0061 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0062 e00c | | Load 0x0,0xc
0063 0266 | f | Execute Discrete,Bounds
0064 e213 | | Load 0x1,0x13
0065 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0067 4801 |H | Short_Literal 0x1
0068 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0069 00db | | Load_Top At_Offset_3
006a 02a0 | | Declare_Subprogram Null_Subprogram
006b 4818 |H | Short_Literal 0x18
006c 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
006d 00d8 | | Load_Top At_Offset_0
006e 0221 | ! | Execute Access,Allow_Deallocate
006f 00db | | Load_Top At_Offset_3
0070 02a0 | | Declare_Subprogram Null_Subprogram
0071 4818 |H | Short_Literal 0x18
0072 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0073 00d8 | | Load_Top At_Offset_0
0074 0221 | ! | Execute Access,Allow_Deallocate
0075 00db | | Load_Top At_Offset_3
0076 02a0 | | Declare_Subprogram Null_Subprogram
0077 4818 |H | Short_Literal 0x18
0078 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0079 00d8 | | Load_Top At_Offset_0
007a 0221 | ! | Execute Access,Allow_Deallocate
007b 00db | | Load_Top At_Offset_3
007c 02a0 | | Declare_Subprogram Null_Subprogram
007d 4818 |H | Short_Literal 0x18
007e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
007f 00d8 | | Load_Top At_Offset_0
0080 0221 | ! | Execute Access,Allow_Deallocate
0081 0007 | | Action Break_Optional
0082 0007 | | Action Break_Optional
0083 0007 | | Action Break_Optional
0084 0007 | | Action Break_Optional
0085 e213 | | Load 0x1,0x13
0086 0322 | " | Declare_Variable Record
0087 4800 |H | Short_Literal 0x0
0088 00d9 | | Load_Top At_Offset_1
0089 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008a 0129 | ) | Execute Any,Make_Visible
008b e213 | | Load 0x1,0x13
008c 0322 | " | Declare_Variable Record
008d 4800 |H | Short_Literal 0x0
008e 00d9 | | Load_Top At_Offset_1
008f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0090 0129 | ) | Execute Any,Make_Visible
0091 e213 | | Load 0x1,0x13
0092 0322 | " | Declare_Variable Record
0093 4800 |H | Short_Literal 0x0
0094 00d9 | | Load_Top At_Offset_1
0095 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0096 0129 | ) | Execute Any,Make_Visible
0097 e213 | | Load 0x1,0x13
0098 0322 | " | Declare_Variable Record
0099 4800 |H | Short_Literal 0x0
009a 00d9 | | Load_Top At_Offset_1
009b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009c 0129 | ) | Execute Any,Make_Visible
009d 0007 | | Action Break_Optional
009e 0007 | | Action Break_Optional
009f 0007 | | Action Break_Optional
00a0 0007 | | Action Break_Optional
00a1 a013 | | Store_Unchecked 0x0,0x13
00a2 00c6 | | Action Check_Subprogram_Elaborated
00a3 e215 | | Load 0x1,0x15
00a4 0129 | ) | Execute Any,Make_Visible
00a5 e219 | | Load 0x1,0x19
00a6 0129 | ) | Execute Any,Make_Visible
00a7 e014 | | Load 0x0,0x14
00a8 0129 | ) | Execute Any,Make_Visible
00a9 e015 | | Load 0x0,0x15
00aa 0129 | ) | Execute Any,Make_Visible
00ab 4800 |H | Short_Literal 0x0
00ac 0129 | ) | Execute Any,Make_Visible
00ad a013 | | Store_Unchecked 0x0,0x13
00ae 00c6 | | Action Check_Subprogram_Elaborated
00af e216 | | Load 0x1,0x16
00b0 0129 | ) | Execute Any,Make_Visible
00b1 e21a | | Load 0x1,0x1a
00b2 0129 | ) | Execute Any,Make_Visible
00b3 e016 | | Load 0x0,0x16
00b4 0129 | ) | Execute Any,Make_Visible
00b5 e017 | | Load 0x0,0x17
00b6 0129 | ) | Execute Any,Make_Visible
00b7 4800 |H | Short_Literal 0x0
00b8 0129 | ) | Execute Any,Make_Visible
00b9 a013 | | Store_Unchecked 0x0,0x13
00ba 00c6 | | Action Check_Subprogram_Elaborated
00bb e217 | | Load 0x1,0x17
00bc 0129 | ) | Execute Any,Make_Visible
00bd e21b | | Load 0x1,0x1b
00be 0129 | ) | Execute Any,Make_Visible
00bf e018 | | Load 0x0,0x18
00c0 0129 | ) | Execute Any,Make_Visible
00c1 e019 | | Load 0x0,0x19
00c2 0129 | ) | Execute Any,Make_Visible
00c3 4800 |H | Short_Literal 0x0
00c4 0129 | ) | Execute Any,Make_Visible
00c5 a013 | | Store_Unchecked 0x0,0x13
00c6 00c6 | | Action Check_Subprogram_Elaborated
00c7 e218 | | Load 0x1,0x18
00c8 0129 | ) | Execute Any,Make_Visible
00c9 e21c | | Load 0x1,0x1c
00ca 0129 | ) | Execute Any,Make_Visible
00cb e01a | | Load 0x0,0x1a
00cc 0129 | ) | Execute Any,Make_Visible
00cd e01b | | Load 0x0,0x1b
00ce 0129 | ) | Execute Any,Make_Visible
00cf 4800 |H | Short_Literal 0x0
00d0 0129 | ) | Execute Any,Make_Visible
00d1 4800 |H | Short_Literal 0x0
00d2 4802 |H | Short_Literal 0x2
00d3 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
00d5 03fe | | Declare_Type Discrete,Defined,Visible
00d6 4800 |H | Short_Literal 0x0
00d7 481b |H | Short_Literal 0x1b
00d8 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
00da 03fe | | Declare_Type Discrete,Defined,Visible
00db e01c | | Load 0x0,0x1c
00dc e01d | | Load 0x0,0x1d
00dd 02a0 | | Declare_Subprogram Null_Subprogram
00de 4802 |H | Short_Literal 0x2
00df 032e | . | Declare_Type Record,Defined,Visible
00e0 00d8 | | Load_Top At_Offset_0
00e1 0322 | " | Declare_Variable Record
00e2 e01c | | Load 0x0,0x1c
00e3 00d9 | | Load_Top At_Offset_1
00e4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e5 e01d | | Load 0x0,0x1d
00e6 00d9 | | Load_Top At_Offset_1
00e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e8 0129 | ) | Execute Any,Make_Visible
00e9 e01e | | Load 0x0,0x1e
00ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00eb 02a0 | | Declare_Subprogram Null_Subprogram
00ec 4818 |H | Short_Literal 0x18
00ed 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
00ee 00d8 | | Load_Top At_Offset_0
00ef 0221 | ! | Execute Access,Allow_Deallocate
00f0 a013 | | Store_Unchecked 0x0,0x13
00f1 00c6 | | Action Check_Subprogram_Elaborated
00f2 e01e | | Load 0x0,0x1e
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 0129 | ) | Execute Any,Make_Visible
00f5 00d9 | | Load_Top At_Offset_1
00f6 0129 | ) | Execute Any,Make_Visible
00f7 e01f | | Load 0x0,0x1f
00f8 0129 | ) | Execute Any,Make_Visible
00f9 e020 | | Load 0x0,0x20
00fa 0129 | ) | Execute Any,Make_Visible
00fb 4800 |H | Short_Literal 0x0
00fc 0129 | ) | Execute Any,Make_Visible
00fd 0007 | | Action Break_Optional
00fe 0007 | | Action Break_Optional
00ff e236 | 6 | Load 0x1,0x36
0100 4801 |H | Short_Literal 0x1
0101 e239 | 9 | Load 0x1,0x39
0102 4801 |H | Short_Literal 0x1
0103 00e1 | | Load_Encached Boolean_Cache
0104 4801 |H | Short_Literal 0x1
0105 00e6 | | Load_Encached Float_Cache
0106 4801 |H | Short_Literal 0x1
0107 e021 | ! | Load 0x0,0x21
0108 4801 |H | Short_Literal 0x1
0109 e022 | " | Load 0x0,0x22
010a 4801 |H | Short_Literal 0x1
010b e009 | | Load 0x0,0x9
010c 4801 |H | Short_Literal 0x1
010d e023 | # | Load 0x0,0x23
010e 4801 |H | Short_Literal 0x1
010f e00a | | Load 0x0,0xa
0110 4801 |H | Short_Literal 0x1
0111 e00d | | Load 0x0,0xd
0112 4801 |H | Short_Literal 0x1
0113 e024 | $ | Load 0x0,0x24
0114 4801 |H | Short_Literal 0x1
0115 e00b | | Load 0x0,0xb
0116 4801 |H | Short_Literal 0x1
0117 e025 | % | Load 0x0,0x25
0118 4801 |H | Short_Literal 0x1
0119 e237 | 7 | Load 0x1,0x37
011a 4801 |H | Short_Literal 0x1
011b e026 | & | Load 0x0,0x26
011c 4801 |H | Short_Literal 0x1
011d e027 | ' | Load 0x0,0x27
011e 4801 |H | Short_Literal 0x1
011f e028 | ( | Load 0x0,0x28
0120 4801 |H | Short_Literal 0x1
0121 e029 | ) | Load 0x0,0x29
0122 4801 |H | Short_Literal 0x1
0123 e02a | * | Load 0x0,0x2a
0124 4801 |H | Short_Literal 0x1
0125 e02b | + | Load 0x0,0x2b
0126 4801 |H | Short_Literal 0x1
0127 e02c | , | Load 0x0,0x2c
0128 4801 |H | Short_Literal 0x1
0129 e02d | - | Load 0x0,0x2d
012a 4801 |H | Short_Literal 0x1
012b e00d | | Load 0x0,0xd
012c 4801 |H | Short_Literal 0x1
012d e02e | . | Load 0x0,0x2e
012e 4801 |H | Short_Literal 0x1
012f e02f | / | Load 0x0,0x2f
0130 4801 |H | Short_Literal 0x1
0131 e00d | | Load 0x0,0xd
0132 4801 |H | Short_Literal 0x1
0133 e030 | 0 | Load 0x0,0x30
0134 4801 |H | Short_Literal 0x1
0135 e031 | 1 | Load 0x0,0x31
0136 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
0138 481b |H | Short_Literal 0x1b
0139 4800 |H | Short_Literal 0x0
013a 481b |H | Short_Literal 0x1b
013b 4800 |H | Short_Literal 0x0
013c 4801 |H | Short_Literal 0x1
013d 031e | | Declare_Type Variant_Record,Defined,Visible
013e 4800 |H | Short_Literal 0x0
013f 00d9 | | Load_Top At_Offset_1
0140 1c08 | | Execute_Immediate Run_Utility,0x8
0141 0129 | ) | Execute Any,Make_Visible
0142 0007 | | Action Break_Optional
0143 4818 |H | Short_Literal 0x18
0144 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0145 0007 | | Action Break_Optional
0146 0007 | | Action Break_Optional
0147 00e1 | | Load_Encached Boolean_Cache
0148 e213 | | Load 0x1,0x13
0149 e23f | ? | Load 0x1,0x3f
014a 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
014c 4803 |H | Short_Literal 0x3
014d 032e | . | Declare_Type Record,Defined,Visible
014e 00d8 | | Load_Top At_Offset_0
014f 02a0 | | Declare_Subprogram Null_Subprogram
0150 00db | | Load_Top At_Offset_3
0151 03c7 | | Complete_Type Access,By_Defining
0152 4800 |H | Short_Literal 0x0
0153 4801 |H | Short_Literal 0x1
0154 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0156 03fe | | Declare_Type Discrete,Defined,Visible
0157 e00c | | Load 0x0,0xc
0158 0266 | f | Execute Discrete,Bounds
0159 00da | | Load_Top At_Offset_2
015a 02a0 | | Declare_Subprogram Null_Subprogram
015b 4801 |H | Short_Literal 0x1
015c 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
015d 0007 | | Action Break_Optional
015e 4818 |H | Short_Literal 0x18
015f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0160 4800 |H | Short_Literal 0x0
0161 483a |H: | Short_Literal 0x3a
0162 00da | | Load_Top At_Offset_2
0163 02a0 | | Declare_Subprogram Null_Subprogram
0164 4801 |H | Short_Literal 0x1
0165 035e | ^ | Declare_Type Array,Defined,Visible
0166 00d8 | | Load_Top At_Offset_0
0167 02a0 | | Declare_Subprogram Null_Subprogram
0168 4818 |H | Short_Literal 0x18
0169 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
016a e243 | C | Load 0x1,0x43
016b 0266 | f | Execute Discrete,Bounds
016c 00da | | Load_Top At_Offset_2
016d 02a0 | | Declare_Subprogram Null_Subprogram
016e 4801 |H | Short_Literal 0x1
016f 035e | ^ | Declare_Type Array,Defined,Visible
0170 e243 | C | Load 0x1,0x43
0171 0266 | f | Execute Discrete,Bounds
0172 00e1 | | Load_Encached Boolean_Cache
0173 02a0 | | Declare_Subprogram Null_Subprogram
0174 4801 |H | Short_Literal 0x1
0175 035e | ^ | Declare_Type Array,Defined,Visible
0176 0007 | | Action Break_Optional
0177 0007 | | Action Break_Optional
0178 e245 | E | Load 0x1,0x45
0179 e213 | | Load 0x1,0x13
017a e241 | A | Load 0x1,0x41
017b e248 | H | Load 0x1,0x48
017c e249 | I | Load 0x1,0x49
017d 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call
017f 4805 |H | Short_Literal 0x5
0180 032e | . | Declare_Type Record,Defined,Visible
0181 00d8 | | Load_Top At_Offset_0
0182 02a0 | | Declare_Subprogram Null_Subprogram
0183 e245 | E | Load 0x1,0x45
0184 03c7 | | Complete_Type Access,By_Defining
0185 0007 | | Action Break_Optional
0186 0007 | | Action Break_Optional
0187 00d8 | | Load_Top At_Offset_0
0188 0322 | " | Declare_Variable Record
0189 e245 | E | Load 0x1,0x45
018a 00d9 | | Load_Top At_Offset_1
018b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
018c e21f | | Load 0x1,0x1f
018d 00d9 | | Load_Top At_Offset_1
018e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018f e241 | A | Load 0x1,0x41
0190 00d9 | | Load_Top At_Offset_1
0191 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0192 00d9 | | Load_Top At_Offset_1
0193 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
0194 0337 | 7 | Declare_Variable Array
0195 e247 | G | Load 0x1,0x47
0196 4800 |H | Short_Literal 0x0
0197 00da | | Load_Top At_Offset_2
0198 01d6 | | Execute Vector,Field_Write
0199 e247 | G | Load 0x1,0x47
019a 4801 |H | Short_Literal 0x1
019b 00da | | Load_Top At_Offset_2
019c 01d6 | | Execute Vector,Field_Write
019d 00da | | Load_Top At_Offset_2
019e 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
019f 0119 | | Execute Any,Check_In_Formal_Type
01a0 00d9 | | Load_Top At_Offset_1
01a1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01a2 00d9 | | Load_Top At_Offset_1
01a3 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
01a4 0337 | 7 | Declare_Variable Array
01a5 4800 |H | Short_Literal 0x0
01a6 4800 |H | Short_Literal 0x0
01a7 00da | | Load_Top At_Offset_2
01a8 01d6 | | Execute Vector,Field_Write
01a9 4800 |H | Short_Literal 0x0
01aa 4801 |H | Short_Literal 0x1
01ab 00da | | Load_Top At_Offset_2
01ac 01d6 | | Execute Vector,Field_Write
01ad 00da | | Load_Top At_Offset_2
01ae 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
01af 0119 | | Execute Any,Check_In_Formal_Type
01b0 00d9 | | Load_Top At_Offset_1
01b1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01b2 0129 | ) | Execute Any,Make_Visible
01b3 a013 | | Store_Unchecked 0x0,0x13
01b4 00c6 | | Action Check_Subprogram_Elaborated
01b5 00d9 | | Load_Top At_Offset_1
01b6 0129 | ) | Execute Any,Make_Visible
01b7 e245 | E | Load 0x1,0x45
01b8 0129 | ) | Execute Any,Make_Visible
01b9 e032 | 2 | Load 0x0,0x32
01ba 0129 | ) | Execute Any,Make_Visible
01bb e033 | 3 | Load 0x0,0x33
01bc 0129 | ) | Execute Any,Make_Visible
01bd 4800 |H | Short_Literal 0x0
01be 0129 | ) | Execute Any,Make_Visible
01bf a013 | | Store_Unchecked 0x0,0x13
01c0 00c6 | | Action Check_Subprogram_Elaborated
01c1 e246 | F | Load 0x1,0x46
01c2 0129 | ) | Execute Any,Make_Visible
01c3 e247 | G | Load 0x1,0x47
01c4 0129 | ) | Execute Any,Make_Visible
01c5 e034 | 4 | Load 0x0,0x34
01c6 0129 | ) | Execute Any,Make_Visible
01c7 e035 | 5 | Load 0x0,0x35
01c8 0129 | ) | Execute Any,Make_Visible
01c9 4800 |H | Short_Literal 0x0
01ca 0129 | ) | Execute Any,Make_Visible
01cb e00c | | Load 0x0,0xc
01cc 0266 | f | Execute Discrete,Bounds
01cd 00e1 | | Load_Encached Boolean_Cache
01ce 02a0 | | Declare_Subprogram Null_Subprogram
01cf 4801 |H | Short_Literal 0x1
01d0 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
01d1 00d8 | | Load_Top At_Offset_0
01d2 02a0 | | Declare_Subprogram Null_Subprogram
01d3 4818 |H | Short_Literal 0x18
01d4 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
01d5 00d8 | | Load_Top At_Offset_0
01d6 0221 | ! | Execute Access,Allow_Deallocate
01d7 0007 | | Action Break_Optional
01d8 0007 | | Action Break_Optional
01d9 a013 | | Store_Unchecked 0x0,0x13
01da 00c6 | | Action Check_Subprogram_Elaborated
01db 00d9 | | Load_Top At_Offset_1
01dc 0129 | ) | Execute Any,Make_Visible
01dd 00d9 | | Load_Top At_Offset_1
01de 0129 | ) | Execute Any,Make_Visible
01df e036 | 6 | Load 0x0,0x36
01e0 0129 | ) | Execute Any,Make_Visible
01e1 e037 | 7 | Load 0x0,0x37
01e2 0129 | ) | Execute Any,Make_Visible
01e3 4800 |H | Short_Literal 0x0
01e4 0129 | ) | Execute Any,Make_Visible
01e5 e245 | E | Load 0x1,0x45
01e6 02a0 | | Declare_Subprogram Null_Subprogram
01e7 4801 |H | Short_Literal 0x1
01e8 032e | . | Declare_Type Record,Defined,Visible
01e9 00d8 | | Load_Top At_Offset_0
01ea 02a0 | | Declare_Subprogram Null_Subprogram
01eb 4818 |H | Short_Literal 0x18
01ec 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
01ed 0007 | | Action Break_Optional
01ee 0007 | | Action Break_Optional
01ef 0007 | | Action Break_Optional
01f0 e00c | | Load 0x0,0xc
01f1 0266 | f | Execute Discrete,Bounds
01f2 e247 | G | Load 0x1,0x47
01f3 02a0 | | Declare_Subprogram Null_Subprogram
01f4 4801 |H | Short_Literal 0x1
01f5 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
01f6 00bf | | Action Accept_Activation
01f7 BODY_0008:
01f7 00bc | | Action Signal_Activated
01f8 00bb | | Action Signal_Completion
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 4607 |F | Jump_Case 0x8
0204 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0205 7807 |x | Jump 0x20d ; case 0x1
0206 780a |x | Jump 0x211 ; case 0x2
0207 780e |x | Jump 0x216 ; case 0x3
0208 7811 |x | Jump 0x21a ; case 0x4
0209 7812 |x | Jump 0x21c ; case 0x5
020a 7813 |x | Jump 0x21e ; case 0x6
020b 7816 |x | Jump 0x222 ; case 0x7
020c 4302 |C | .XXX[0x1]
020d 00da | | Load_Top At_Offset_2
020e 0091 04f6 | | Action Push_String_Extended_Indexed,0x4f6 ; "X_RM_OPTION_NO_ARG"
0210 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0211 00db | | Load_Top At_Offset_3
0212 00db | | Load_Top At_Offset_3
0213 00e0 | | Load_Encached Standard_Cache
0214 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0215 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0216 00da | | Load_Top At_Offset_2
0217 00e0 | | Load_Encached Standard_Cache
0218 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0219 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
021a 00db | | Load_Top At_Offset_3
021b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021c 00db | | Load_Top At_Offset_3
021d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021e e210 | | Load 0x1,0x10
021f 00dc | | Load_Top At_Offset_4
0220 0267 | g | Execute Discrete,Predecessor
0221 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0222 e210 | | Load 0x1,0x10
0223 00dc | | Load_Top At_Offset_4
0224 0268 | h | Execute Discrete,Successor
0225 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0226 0000 0000 | | .XXX[0x2]
0228 8000 0000 | | .LITERAL {0x80000000, 0x00090000}
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00d1 | | Pop_Control Pop_Count_1
0234 00da | | Load_Top At_Offset_2
0235 01d8 | | Execute Vector,Element_Type
0236 0322 | " | Declare_Variable Record
0237 00d8 | | Load_Top At_Offset_0
0238 1c00 | | Execute_Immediate Run_Utility,0x0
0239 00db | | Load_Top At_Offset_3
023a 01dc | | Execute Vector,Last
023b e5ff | | Load 0x2,-0x1
023c 01dd | | Execute Vector,First
023d 0263 | c | Execute Discrete,Above_Bound
023e 7006 |p | Jump_Nonzero 0x245
023f 00da | | Load_Top At_Offset_2
0240 00d9 | | Load_Top At_Offset_1
0241 e5ff | | Load 0x2,-0x1
0242 01d6 | | Execute Vector,Field_Write
0243 0a01 | | Execute_Immediate Plus,0x1
0244 7ff8 | | Jump 0x23d
0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00d1 | | Pop_Control Pop_Count_1
024c 00da | | Load_Top At_Offset_2
024d 01d8 | | Execute Vector,Element_Type
024e 0322 | " | Declare_Variable Record
024f 00d8 | | Load_Top At_Offset_0
0250 1c00 | | Execute_Immediate Run_Utility,0x0
0251 00db | | Load_Top At_Offset_3
0252 01dc | | Execute Vector,Last
0253 e5ff | | Load 0x2,-0x1
0254 01dd | | Execute Vector,First
0255 0263 | c | Execute Discrete,Above_Bound
0256 7006 |p | Jump_Nonzero 0x25d
0257 00da | | Load_Top At_Offset_2
0258 00d9 | | Load_Top At_Offset_1
0259 e5ff | | Load 0x2,-0x1
025a 01d6 | | Execute Vector,Field_Write
025b 0a01 | | Execute_Immediate Plus,0x1
025c 7ff8 | | Jump 0x255
025d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00d1 | | Pop_Control Pop_Count_1
0264 00da | | Load_Top At_Offset_2
0265 01d8 | | Execute Vector,Element_Type
0266 0322 | " | Declare_Variable Record
0267 00d8 | | Load_Top At_Offset_0
0268 1c00 | | Execute_Immediate Run_Utility,0x0
0269 00db | | Load_Top At_Offset_3
026a 01dc | | Execute Vector,Last
026b e5ff | | Load 0x2,-0x1
026c 01dd | | Execute Vector,First
026d 0263 | c | Execute Discrete,Above_Bound
026e 7006 |p | Jump_Nonzero 0x275
026f 00da | | Load_Top At_Offset_2
0270 00d9 | | Load_Top At_Offset_1
0271 e5ff | | Load 0x2,-0x1
0272 01d6 | | Execute Vector,Field_Write
0273 0a01 | | Execute_Immediate Plus,0x1
0274 7ff8 | | Jump 0x26d
0275 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00d1 | | Pop_Control Pop_Count_1
027c 00da | | Load_Top At_Offset_2
027d 01d8 | | Execute Vector,Element_Type
027e 0322 | " | Declare_Variable Record
027f 00d8 | | Load_Top At_Offset_0
0280 1c00 | | Execute_Immediate Run_Utility,0x0
0281 00db | | Load_Top At_Offset_3
0282 01dc | | Execute Vector,Last
0283 e5ff | | Load 0x2,-0x1
0284 01dd | | Execute Vector,First
0285 0263 | c | Execute Discrete,Above_Bound
0286 7006 |p | Jump_Nonzero 0x28d
0287 00da | | Load_Top At_Offset_2
0288 00d9 | | Load_Top At_Offset_1
0289 e5ff | | Load 0x2,-0x1
028a 01d6 | | Execute Vector,Field_Write
028b 0a01 | | Execute_Immediate Plus,0x1
028c 7ff8 | | Jump 0x285
028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00d1 | | Pop_Control Pop_Count_1
0294 00da | | Load_Top At_Offset_2
0295 01d8 | | Execute Vector,Element_Type
0296 0322 | " | Declare_Variable Record
0297 00d8 | | Load_Top At_Offset_0
0298 1c00 | | Execute_Immediate Run_Utility,0x0
0299 00db | | Load_Top At_Offset_3
029a 01dc | | Execute Vector,Last
029b e5ff | | Load 0x2,-0x1
029c 01dd | | Execute Vector,First
029d 0263 | c | Execute Discrete,Above_Bound
029e 7006 |p | Jump_Nonzero 0x2a5
029f 00da | | Load_Top At_Offset_2
02a0 00d9 | | Load_Top At_Offset_1
02a1 e5ff | | Load 0x2,-0x1
02a2 01d6 | | Execute Vector,Field_Write
02a3 0a01 | | Execute_Immediate Plus,0x1
02a4 7ff8 | | Jump 0x29d
02a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 4607 |F | Jump_Case 0x8
02ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02ad 7807 |x | Jump 0x2b5 ; case 0x1
02ae 780a |x | Jump 0x2b9 ; case 0x2
02af 780e |x | Jump 0x2be ; case 0x3
02b0 7811 |x | Jump 0x2c2 ; case 0x4
02b1 7812 |x | Jump 0x2c4 ; case 0x5
02b2 7813 |x | Jump 0x2c6 ; case 0x6
02b3 7816 |x | Jump 0x2ca ; case 0x7
02b4 4302 |C | .XXX[0x1]
02b5 00da | | Load_Top At_Offset_2
02b6 0091 04fe | | Action Push_String_Extended_Indexed,0x4fe ; "RM_SUCCESSFUL"
02b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02b9 00db | | Load_Top At_Offset_3
02ba 00db | | Load_Top At_Offset_3
02bb 00e0 | | Load_Encached Standard_Cache
02bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02be 00da | | Load_Top At_Offset_2
02bf 00e0 | | Load_Encached Standard_Cache
02c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02c2 00db | | Load_Top At_Offset_3
02c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02c4 00db | | Load_Top At_Offset_3
02c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02c6 e235 | 5 | Load 0x1,0x35
02c7 00dc | | Load_Top At_Offset_4
02c8 0267 | g | Execute Discrete,Predecessor
02c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ca e235 | 5 | Load 0x1,0x35
02cb 00dc | | Load_Top At_Offset_4
02cc 0268 | h | Execute Discrete,Successor
02cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ce 0000 0000 | | .XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4607 |F | Jump_Case 0x8
02d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02d5 7807 |x | Jump 0x2dd ; case 0x1
02d6 780a |x | Jump 0x2e1 ; case 0x2
02d7 780e |x | Jump 0x2e6 ; case 0x3
02d8 7811 |x | Jump 0x2ea ; case 0x4
02d9 7812 |x | Jump 0x2ec ; case 0x5
02da 7813 |x | Jump 0x2ee ; case 0x6
02db 7816 |x | Jump 0x2f2 ; case 0x7
02dc 4302 |C | .XXX[0x1]
02dd 00da | | Load_Top At_Offset_2
02de 0091 0501 | | Action Push_String_Extended_Indexed,0x501 ; "IS_NONE"
02e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02e1 00db | | Load_Top At_Offset_3
02e2 00db | | Load_Top At_Offset_3
02e3 00e0 | | Load_Encached Standard_Cache
02e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e6 00da | | Load_Top At_Offset_2
02e7 00e0 | | Load_Encached Standard_Cache
02e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02ea 00db | | Load_Top At_Offset_3
02eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ec 00db | | Load_Top At_Offset_3
02ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ee e236 | 6 | Load 0x1,0x36
02ef 00dc | | Load_Top At_Offset_4
02f0 0267 | g | Execute Discrete,Predecessor
02f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02f2 e236 | 6 | Load 0x1,0x36
02f3 00dc | | Load_Top At_Offset_4
02f4 0268 | h | Execute Discrete,Successor
02f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 4607 |F | Jump_Case 0x8
02fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02fd 7807 |x | Jump 0x305 ; case 0x1
02fe 780a |x | Jump 0x309 ; case 0x2
02ff 780e |x | Jump 0x30e ; case 0x3
0300 7811 |x | Jump 0x312 ; case 0x4
0301 7812 |x | Jump 0x314 ; case 0x5
0302 7813 |x | Jump 0x316 ; case 0x6
0303 7816 |x | Jump 0x31a ; case 0x7
0304 4302 |C | .XXX[0x1]
0305 00da | | Load_Top At_Offset_2
0306 0091 051d | | Action Push_String_Extended_Indexed,0x51d ; "X_RM_BIND_TIGHTLY"
0308 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0309 00db | | Load_Top At_Offset_3
030a 00db | | Load_Top At_Offset_3
030b 00e0 | | Load_Encached Standard_Cache
030c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
030d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030e 00da | | Load_Top At_Offset_2
030f 00e0 | | Load_Encached Standard_Cache
0310 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0311 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0312 00db | | Load_Top At_Offset_3
0313 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0314 00db | | Load_Top At_Offset_3
0315 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0316 e243 | C | Load 0x1,0x43
0317 00dc | | Load_Top At_Offset_4
0318 0267 | g | Execute Discrete,Predecessor
0319 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
031a e243 | C | Load 0x1,0x43
031b 00dc | | Load_Top At_Offset_4
031c 0268 | h | Execute Discrete,Successor
031d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
031e 0000 0000 | | .XXX[0x2]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 4601 |F | Jump_Case 0x2
0324 7801 |x | Jump 0x326 ; case 0x0
0325 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0326 4800 |H | Short_Literal 0x0
0327 00db | | Load_Top At_Offset_3
0328 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0329 4800 |H | Short_Literal 0x0
032a 00db | | Load_Top At_Offset_3
032b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
032c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 4601 |F | Jump_Case 0x2
0334 7801 |x | Jump 0x336 ; case 0x0
0335 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0336 4800 |H | Short_Literal 0x0
0337 00db | | Load_Top At_Offset_3
0338 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0339 4800 |H | Short_Literal 0x0
033a 00db | | Load_Top At_Offset_3
033b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
033c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 4601 |F | Jump_Case 0x2
0344 7801 |x | Jump 0x346 ; case 0x0
0345 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0346 00da | | Load_Top At_Offset_2
0347 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0348 1c00 | | Execute_Immediate Run_Utility,0x0
0349 00da | | Load_Top At_Offset_2
034a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
034b 1c00 | | Execute_Immediate Run_Utility,0x0
034c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
034d 0000 0000 | | .XXX[0x3]
034f 0000 | |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 4601 |F | Jump_Case 0x2
0354 7801 |x | Jump 0x356 ; case 0x0
0355 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0356 4800 |H | Short_Literal 0x0
0357 00db | | Load_Top At_Offset_3
0358 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0359 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
035a 0000 0000 | | .BLANK 0000[0x6]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 4601 |F | Jump_Case 0x2
0364 7801 |x | Jump 0x366 ; case 0x0
0365 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0366 4800 |H | Short_Literal 0x0
0367 00db | | Load_Top At_Offset_3
0368 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0369 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 4609 |F | Jump_Case 0xa
0374 7809 |x | Jump 0x37e ; case 0x0
0375 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0376 7876 |xv | Jump 0x3ed ; case 0x2
0377 7879 |xy | Jump 0x3f1 ; case 0x3
0378 7938 |y8 | Jump 0x4b1 ; case 0x4
0379 7937 |y7 | Jump 0x4b1 ; case 0x5
037a 787c |x| | Jump 0x3f7 ; case 0x6
037b 78d1 |x | Jump 0x44d ; case 0x7
037c 7929 |y) | Jump 0x4a6 ; case 0x8
037d 792f |y/ | Jump 0x4ad ; case 0x9
037e 00da | | Load_Top At_Offset_2
037f 016c | l | Execute Variant_Record,Is_Constrained
0380 7009 |p | Jump_Nonzero 0x38a
0381 00cf | | Action Mark_Auxiliary
0382 4800 |H | Short_Literal 0x0
0383 e5ff | | Load 0x2,-0x1
0384 1c08 | | Execute_Immediate Run_Utility,0x8
0385 00d8 | | Load_Top At_Offset_0
0386 1c00 | | Execute_Immediate Run_Utility,0x0
0387 c5ff | | Store 0x2,-0x1
0388 00ce | | Action Pop_Auxiliary
0389 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
038a 00da | | Load_Top At_Offset_2
038b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
038c 461b |F | Jump_Case 0x1c
038d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
038e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
038f 781d |x | Jump 0x3ad ; case 0x2
0390 7820 |x | Jump 0x3b1 ; case 0x3
0391 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0392 7822 |x" | Jump 0x3b5 ; case 0x5
0393 7825 |x% | Jump 0x3b9 ; case 0x6
0394 7828 |x( | Jump 0x3bd ; case 0x7
0395 782b |x+ | Jump 0x3c1 ; case 0x8
0396 782e |x. | Jump 0x3c5 ; case 0x9
0397 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa
0398 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb
0399 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc
039a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xd
039b 782d |x- | Jump 0x3c9 ; case 0xe
039c 7830 |x0 | Jump 0x3cd ; case 0xf
039d 7833 |x3 | Jump 0x3d1 ; case 0x10
039e 7836 |x6 | Jump 0x3d5 ; case 0x11
039f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x12
03a0 7838 |x8 | Jump 0x3d9 ; case 0x13
03a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x14
03a2 783a |x: | Jump 0x3dd ; case 0x15
03a3 783d |x= | Jump 0x3e1 ; case 0x16
03a4 7840 |x@ | Jump 0x3e5 ; case 0x17
03a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x18
03a6 7842 |xB | Jump 0x3e9 ; case 0x19
03a7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1a
03a8 7800 |x | Jump 0x3a9 ; case 0x1b
03a9 e002 | | Load 0x0,0x2
03aa 00db | | Load_Top At_Offset_3
03ab 2a1c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x1c
03ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03ad 4800 |H | Short_Literal 0x0
03ae 00db | | Load_Top At_Offset_3
03af 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
03b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03b1 5902 |Y | Indirect_Literal Float,0x4b4,0.0
03b2 00db | | Load_Top At_Offset_3
03b3 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
03b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03b5 4800 |H | Short_Literal 0x0
03b6 00db | | Load_Top At_Offset_3
03b7 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
03b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03b9 4800 |H | Short_Literal 0x0
03ba 00db | | Load_Top At_Offset_3
03bb 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
03bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03bd 4800 |H | Short_Literal 0x0
03be 00db | | Load_Top At_Offset_3
03bf 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
03c0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03c1 4800 |H | Short_Literal 0x0
03c2 00db | | Load_Top At_Offset_3
03c3 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
03c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03c5 4800 |H | Short_Literal 0x0
03c6 00db | | Load_Top At_Offset_3
03c7 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
03c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03c9 e003 | | Load 0x0,0x3
03ca 00db | | Load_Top At_Offset_3
03cb 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
03cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03cd e004 | | Load 0x0,0x4
03ce 00db | | Load_Top At_Offset_3
03cf 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
03d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03d1 e005 | | Load 0x0,0x5
03d2 00db | | Load_Top At_Offset_3
03d3 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
03d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03d5 e006 | | Load 0x0,0x6
03d6 00db | | Load_Top At_Offset_3
03d7 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
03d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03d9 e007 | | Load 0x0,0x7
03da 00db | | Load_Top At_Offset_3
03db 2a14 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x14
03dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03dd 4800 |H | Short_Literal 0x0
03de 00db | | Load_Top At_Offset_3
03df 2a16 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x16
03e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03e1 4800 |H | Short_Literal 0x0
03e2 00db | | Load_Top At_Offset_3
03e3 2a17 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x17
03e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03e5 e008 | | Load 0x0,0x8
03e6 00db | | Load_Top At_Offset_3
03e7 2a18 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x18
03e8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03e9 4800 |H | Short_Literal 0x0
03ea 00db | | Load_Top At_Offset_3
03eb 2a1a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x1a
03ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03ed 4801 |H | Short_Literal 0x1
03ee 481c |H | Short_Literal 0x1c
03ef 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
03f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03f1 e5fd | | Load 0x2,-0x3
03f2 00db | | Load_Top At_Offset_3
03f3 1c07 | | Execute_Immediate Run_Utility,0x7
03f4 e5fe | | Load 0x2,-0x2
03f5 0306 | | Complete_Type Variant_Record,By_Renaming
03f6 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
03f7 00db | | Load_Top At_Offset_3
03f8 461b |F | Jump_Case 0x1c
03f9 7851 |xQ | Jump 0x44b ; case 0x0
03fa 781c |x | Jump 0x417 ; case 0x1
03fb 781d |x | Jump 0x419 ; case 0x2
03fc 781e |x | Jump 0x41b ; case 0x3
03fd 781f |x | Jump 0x41d ; case 0x4
03fe 7820 |x | Jump 0x41f ; case 0x5
03ff 7821 |x! | Jump 0x421 ; case 0x6
0400 7822 |x" | Jump 0x423 ; case 0x7
0401 7823 |x# | Jump 0x425 ; case 0x8
0402 7824 |x$ | Jump 0x427 ; case 0x9
0403 7825 |x% | Jump 0x429 ; case 0xa
0404 7826 |x& | Jump 0x42b ; case 0xb
0405 7827 |x' | Jump 0x42d ; case 0xc
0406 7828 |x( | Jump 0x42f ; case 0xd
0407 7829 |x) | Jump 0x431 ; case 0xe
0408 782a |x* | Jump 0x433 ; case 0xf
0409 782b |x+ | Jump 0x435 ; case 0x10
040a 782c |x, | Jump 0x437 ; case 0x11
040b 782d |x- | Jump 0x439 ; case 0x12
040c 782e |x. | Jump 0x43b ; case 0x13
040d 782f |x/ | Jump 0x43d ; case 0x14
040e 7830 |x0 | Jump 0x43f ; case 0x15
040f 7831 |x1 | Jump 0x441 ; case 0x16
0410 7832 |x2 | Jump 0x443 ; case 0x17
0411 7833 |x3 | Jump 0x445 ; case 0x18
0412 7834 |x4 | Jump 0x447 ; case 0x19
0413 7835 |x5 | Jump 0x449 ; case 0x1a
0414 7800 |x | Jump 0x415 ; case 0x1b
0415 481b |H | Short_Literal 0x1b
0416 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0417 4801 |H | Short_Literal 0x1
0418 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0419 4802 |H | Short_Literal 0x2
041a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
041b 4803 |H | Short_Literal 0x3
041c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
041d 4804 |H | Short_Literal 0x4
041e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
041f 4805 |H | Short_Literal 0x5
0420 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0421 4806 |H | Short_Literal 0x6
0422 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0423 4807 |H | Short_Literal 0x7
0424 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0425 4808 |H | Short_Literal 0x8
0426 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0427 4809 |H | Short_Literal 0x9
0428 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0429 480a |H | Short_Literal 0xa
042a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
042b 480b |H | Short_Literal 0xb
042c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
042d 480c |H | Short_Literal 0xc
042e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
042f 480d |H | Short_Literal 0xd
0430 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0431 480e |H | Short_Literal 0xe
0432 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0433 480f |H | Short_Literal 0xf
0434 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0435 4810 |H | Short_Literal 0x10
0436 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0437 4811 |H | Short_Literal 0x11
0438 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0439 4812 |H | Short_Literal 0x12
043a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
043b 4813 |H | Short_Literal 0x13
043c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
043d 4814 |H | Short_Literal 0x14
043e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
043f 4815 |H | Short_Literal 0x15
0440 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0441 4816 |H | Short_Literal 0x16
0442 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0443 4817 |H | Short_Literal 0x17
0444 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0445 4818 |H | Short_Literal 0x18
0446 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0447 4819 |H | Short_Literal 0x19
0448 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0449 481a |H | Short_Literal 0x1a
044a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
044b 48ff |H | Short_Literal 0xff
044c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
044d 00db | | Load_Top At_Offset_3
044e e5fe | | Load 0x2,-0x2
044f 461b |F | Jump_Case 0x1c
0450 781d |x | Jump 0x46e ; case 0x0
0451 781e |x | Jump 0x470 ; case 0x1
0452 781f |x | Jump 0x472 ; case 0x2
0453 7820 |x | Jump 0x474 ; case 0x3
0454 7821 |x! | Jump 0x476 ; case 0x4
0455 7822 |x" | Jump 0x478 ; case 0x5
0456 7823 |x# | Jump 0x47a ; case 0x6
0457 7824 |x$ | Jump 0x47c ; case 0x7
0458 7825 |x% | Jump 0x47e ; case 0x8
0459 7826 |x& | Jump 0x480 ; case 0x9
045a 7827 |x' | Jump 0x482 ; case 0xa
045b 7828 |x( | Jump 0x484 ; case 0xb
045c 7829 |x) | Jump 0x486 ; case 0xc
045d 782a |x* | Jump 0x488 ; case 0xd
045e 782b |x+ | Jump 0x48a ; case 0xe
045f 782c |x, | Jump 0x48c ; case 0xf
0460 782d |x- | Jump 0x48e ; case 0x10
0461 782e |x. | Jump 0x490 ; case 0x11
0462 782f |x/ | Jump 0x492 ; case 0x12
0463 7830 |x0 | Jump 0x494 ; case 0x13
0464 7831 |x1 | Jump 0x496 ; case 0x14
0465 7832 |x2 | Jump 0x498 ; case 0x15
0466 7833 |x3 | Jump 0x49a ; case 0x16
0467 7834 |x4 | Jump 0x49c ; case 0x17
0468 7835 |x5 | Jump 0x49e ; case 0x18
0469 7836 |x6 | Jump 0x4a0 ; case 0x19
046a 7837 |x7 | Jump 0x4a2 ; case 0x1a
046b 7800 |x | Jump 0x46c ; case 0x1b
046c 481b |H | Short_Literal 0x1b
046d 7835 |x5 | Jump 0x4a3
046e 48ff |H | Short_Literal 0xff
046f 7833 |x3 | Jump 0x4a3
0470 4801 |H | Short_Literal 0x1
0471 7831 |x1 | Jump 0x4a3
0472 4802 |H | Short_Literal 0x2
0473 782f |x/ | Jump 0x4a3
0474 4803 |H | Short_Literal 0x3
0475 782d |x- | Jump 0x4a3
0476 4804 |H | Short_Literal 0x4
0477 782b |x+ | Jump 0x4a3
0478 4805 |H | Short_Literal 0x5
0479 7829 |x) | Jump 0x4a3
047a 4806 |H | Short_Literal 0x6
047b 7827 |x' | Jump 0x4a3
047c 4807 |H | Short_Literal 0x7
047d 7825 |x% | Jump 0x4a3
047e 4808 |H | Short_Literal 0x8
047f 7823 |x# | Jump 0x4a3
0480 4809 |H | Short_Literal 0x9
0481 7821 |x! | Jump 0x4a3
0482 480a |H | Short_Literal 0xa
0483 781f |x | Jump 0x4a3
0484 480b |H | Short_Literal 0xb
0485 781d |x | Jump 0x4a3
0486 480c |H | Short_Literal 0xc
0487 781b |x | Jump 0x4a3
0488 480d |H | Short_Literal 0xd
0489 7819 |x | Jump 0x4a3
048a 480e |H | Short_Literal 0xe
048b 7817 |x | Jump 0x4a3
048c 480f |H | Short_Literal 0xf
048d 7815 |x | Jump 0x4a3
048e 4810 |H | Short_Literal 0x10
048f 7813 |x | Jump 0x4a3
0490 4811 |H | Short_Literal 0x11
0491 7811 |x | Jump 0x4a3
0492 4812 |H | Short_Literal 0x12
0493 780f |x | Jump 0x4a3
0494 4813 |H | Short_Literal 0x13
0495 780d |x | Jump 0x4a3
0496 4814 |H | Short_Literal 0x14
0497 780b |x | Jump 0x4a3
0498 4815 |H | Short_Literal 0x15
0499 7809 |x | Jump 0x4a3
049a 4816 |H | Short_Literal 0x16
049b 7807 |x | Jump 0x4a3
049c 4817 |H | Short_Literal 0x17
049d 7805 |x | Jump 0x4a3
049e 4818 |H | Short_Literal 0x18
049f 7803 |x | Jump 0x4a3
04a0 4819 |H | Short_Literal 0x19
04a1 7801 |x | Jump 0x4a3
04a2 481a |H | Short_Literal 0x1a
04a3 e5ff | | Load 0x2,-0x1
04a4 031b | | Declare_Type Variant_Record,Constrained
04a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04a6 00db | | Load_Top At_Offset_3
04a7 e5fe | | Load 0x2,-0x2
04a8 e5ff | | Load 0x2,-0x1
04a9 1c06 | | Execute_Immediate Run_Utility,0x6
04aa e5ff | | Load 0x2,-0x1
04ab 02fc | | Declare_Variable Variant_Record,With_Constraint
04ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04ad 4800 |H | Short_Literal 0x0
04ae 00db | | Load_Top At_Offset_3
04af 1c07 | | Execute_Immediate Run_Utility,0x7
04b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04b1 0869 | i | Execute_Immediate Raise,0x69
04b2 0000 0000 | | .XXX[0x2]
04b4 0000 0000 | | .DBL 0.0
04b6 0000 0000 | |
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 4601 |F | Jump_Case 0x2
04bc 7801 |x | Jump 0x4be ; case 0x0
04bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04be 4800 |H | Short_Literal 0x0
04bf 00db | | Load_Top At_Offset_3
04c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04c1 e220 | | Load 0x1,0x20
04c2 00db | | Load_Top At_Offset_3
04c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c4 00da | | Load_Top At_Offset_2
04c5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04c6 1c00 | | Execute_Immediate Run_Utility,0x0
04c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 4601 |F | Jump_Case 0x2
04cc 7801 |x | Jump 0x4ce ; case 0x0
04cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04ce e21f | | Load 0x1,0x1f
04cf 00db | | Load_Top At_Offset_3
04d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04d1 e24a | J | Load 0x1,0x4a
04d2 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
04d3 0337 | 7 | Declare_Variable Array
04d4 e247 | G | Load 0x1,0x47
04d5 4800 |H | Short_Literal 0x0
04d6 00da | | Load_Top At_Offset_2
04d7 01d6 | | Execute Vector,Field_Write
04d8 e247 | G | Load 0x1,0x47
04d9 4801 |H | Short_Literal 0x1
04da 00da | | Load_Top At_Offset_2
04db 01d6 | | Execute Vector,Field_Write
04dc 00db | | Load_Top At_Offset_3
04dd 00d9 | | Load_Top At_Offset_1
04de 00d9 | | Load_Top At_Offset_1
04df 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
04e0 0119 | | Execute Any,Check_In_Formal_Type
04e1 00d1 | | Pop_Control Pop_Count_1
04e2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04e3 e24a | J | Load 0x1,0x4a
04e4 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
04e5 0337 | 7 | Declare_Variable Array
04e6 4800 |H | Short_Literal 0x0
04e7 4800 |H | Short_Literal 0x0
04e8 00da | | Load_Top At_Offset_2
04e9 01d6 | | Execute Vector,Field_Write
04ea 4800 |H | Short_Literal 0x0
04eb 4801 |H | Short_Literal 0x1
04ec 00da | | Load_Top At_Offset_2
04ed 01d6 | | Execute Vector,Field_Write
04ee 00db | | Load_Top At_Offset_3
04ef 00d9 | | Load_Top At_Offset_1
04f0 00d9 | | Load_Top At_Offset_1
04f1 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
04f2 0119 | | Execute Any,Check_In_Formal_Type
04f3 00d1 | | Pop_Control Pop_Count_1
04f4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04f6 ; --------------------------------------------------------------------------------------
04f6 ; STRING TABLE
04f6 ; --------------------------------------------------------------------------------------
04f6 0054 | T | .STRTAB 0x0054->0x0520 ; "X_RM_OPTION_NO_ARG"
04f7 0064 | d | .STRTAB 0x0064->0x0529 ; "X_RM_OPTION_IS_ARG"
04f8 0074 | t | .STRTAB 0x0074->0x0532 ; "X_RM_OPTION_STICKY_ARG"
04f9 0088 | | .STRTAB 0x0088->0x053d ; "X_RM_OPTION_SEP_ARG"
04fa 0099 | | .STRTAB 0x0099->0x0546 ; "X_RM_OPTION_RES_ARG"
04fb 00aa | | .STRTAB 0x00aa->0x0550 ; "X_RM_OPTION_SKIP_ARG"
04fc 00bc | | .STRTAB 0x00bc->0x055a ; "X_RM_OPTION_SKIP_LINE"
04fd 00cf | | .STRTAB 0x00cf->0x0564 ; "X_RM_OPTION_SKIP_N_ARGS"
04fe 00e4 | | .STRTAB 0x00e4->0x0570 ; "RM_SUCCESSFUL"
04ff 00ef | | .STRTAB 0x00ef->0x0576 ; "RM_HAD_ERRORS"
0500 00fa | | .STRTAB 0x00fa->0x057d ; "RM_FAILED"
0501 0101 | | .STRTAB 0x0101->0x0581 ; "IS_NONE"
0502 0106 | | .STRTAB 0x0106->0x0585 ; "IS_X_RM_FILE_TYPE"
0503 0115 | | .STRTAB 0x0115->0x058d ; "IS_BOOLEAN"
0504 011d | | .STRTAB 0x011d->0x0592 ; "IS_FLOAT"
0505 0123 | # | .STRTAB 0x0123->0x0596 ; "IS_U_CHAR_LIST"
0506 012f | / | .STRTAB 0x012f->0x059d ; "IS_U_CHAR"
0507 0136 | 6 | .STRTAB 0x0136->0x05a2 ; "IS_U_SHORT"
0508 013e | > | .STRTAB 0x013e->0x05a7 ; "IS_S_CHAR"
0509 0145 | E | .STRTAB 0x0145->0x05ab ; "IS_S_SHORT"
050a 014d | M | .STRTAB 0x014d->0x05b0 ; "IS_S_LONG"
050b 0154 | T | .STRTAB 0x0154->0x05b5 ; "IS_X_STRING7_POINTER"
050c 0166 | f | .STRTAB 0x0166->0x05bf ; "IS_X_STRING_POINTER"
050d 0177 | w | .STRTAB 0x0177->0x05c8 ; "IS_X_STRING16_POINTER"
050e 018a | | .STRTAB 0x018a->0x05d3 ; "IS_X_UNIVERSAL_POINTER"
050f 019e | | .STRTAB 0x019e->0x05de ; "IS_X_ATOM"
0510 01a5 | | .STRTAB 0x01a5->0x05e2 ; "IS_X_COLOR"
0511 01ad | | .STRTAB 0x01ad->0x05e7 ; "IS_X_COLORMAP"
0512 01b8 | | .STRTAB 0x01b8->0x05ee ; "IS_X_CURSOR"
0513 01c1 | | .STRTAB 0x01c1->0x05f3 ; "IS_X_DISPLAY"
0514 01cb | | .STRTAB 0x01cb->0x05f9 ; "IS_X_FONT"
0515 01d2 | | .STRTAB 0x01d2->0x05fe ; "IS_X_FONT_STRUCT"
0516 01e0 | | .STRTAB 0x01e0->0x0606 ; "IS_X_INITIAL_WINDOW_STATE"
0517 01f7 | | .STRTAB 0x01f7->0x0612 ; "IS_X_PIXEL"
0518 01ff | | .STRTAB 0x01ff->0x0617 ; "IS_X_PIXMAP"
0519 0208 | | .STRTAB 0x0208->0x061d ; "IS_X_SCREEN"
051a 0211 | | .STRTAB 0x0211->0x0622 ; "IS_X_TIME"
051b 0218 | | .STRTAB 0x0218->0x0627 ; "IS_X_VISUAL"
051c 0221 | ! | .STRTAB 0x0221->0x062c ; "IS_X_WINDOW"
051d 022a | * | .STRTAB 0x022a->0x0632 ; "X_RM_BIND_TIGHTLY"
051e 0239 | 9 | .STRTAB 0x0239->0x063a ; "X_RM_BIND_LOOSELY"
051f 0248 | H | .STREND 0x0248->0x0643
0520 585f 524d |X_RM| .STRTAB_STRINGS
0643 0000 0000 | | .BLANK 0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug Table
0648 ; --------------------------------------------------------------------------------------
0648 0004 0000 | | .DEBUG4 0x0004,0x0000,0x67c6,0x0000,0x0001,0x0012
064e 000b 0696 | | .DBG4T 0x000b,0x0696,0x8000,0x0000
0652 0203 0000 | | .DBG4T 0x0203,0x0000,0x0005,0x0000
0656 0233 0000 | 3 | .DBG4T 0x0233,0x0000,0x0005,0x0000
065a 024b 0000 | K | .DBG4T 0x024b,0x0000,0x0005,0x0000
065e 0263 0000 | c | .DBG4T 0x0263,0x0000,0x0005,0x0000
0662 027b 0000 | { | .DBG4T 0x027b,0x0000,0x0005,0x0000
0666 0293 0000 | | .DBG4T 0x0293,0x0000,0x0005,0x0000
066a 02ab 0000 | | .DBG4T 0x02ab,0x0000,0x0005,0x0000
066e 02d3 0000 | | .DBG4T 0x02d3,0x0000,0x0005,0x0000
0672 02fb 0000 | | .DBG4T 0x02fb,0x0000,0x0005,0x0000
0676 0323 0000 | # | .DBG4T 0x0323,0x0000,0x0005,0x0000
067a 0333 0000 | 3 | .DBG4T 0x0333,0x0000,0x0005,0x0000
067e 0343 0000 | C | .DBG4T 0x0343,0x0000,0x0005,0x0000
0682 0353 0000 | S | .DBG4T 0x0353,0x0000,0x0005,0x0000
0686 0363 0000 | c | .DBG4T 0x0363,0x0000,0x0005,0x0000
068a 0373 0000 | s | .DBG4T 0x0373,0x0000,0x0005,0x0000
068e 04bb 0000 | | .DBG4T 0x04bb,0x0000,0x0005,0x0000
0692 04cb 0000 | | .DBG4T 0x04cb,0x0000,0x0005,0x0000
0696 ; --------------------------------------------------------------------------------------
0696 ; Debug chain
0696 ; --------------------------------------------------------------------------------------
0696 004e 0000 | N | .DBGLEN 0x004e,0x0000
0698 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0017,0x001d,0x0022,0x0023,0x002b,0x0032,0x0037,0x004a,0x004b,0x004c,0x004d,0x0054,0x005b,0x0062,0x0069,0x006f,0x0075,0x007b,0x0081,0x0082,0x0083,0x0084,0x0085,0x008b,0x0091,0x0097,0x009d,0x009e,0x009f,0x00a0,0x00a1,0x00ad,0x00b9,0x00c5,0x00d1,0x00d6,0x00db,0x00e0,0x00e9,0x00f0,0x00fd,0x00fe,0x00ff,0x013e,0x0142,0x0143,0x0145,0x0146,0x0147,0x0152,0x0157,0x015d,0x015e,0x0160,0x0166,0x016a,0x0170,0x0176,0x0177,0x0178,0x0185,0x0186,0x0187,0x01b3,0x01bf,0x01cb,0x01d1,0x01d7,0x01d8,0x01d9,0x01e5,0x01e9,0x01ed,0x01ee,0x01ef,0x01f0
06e6 0000 0000 | | .BLANK 0000[0x11a]