|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05e8 | | .CONST 0x05e8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 014a | J | .CONST 0x014a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003a | : | .CONST 0x003a ; 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 4818 |H | Short_Literal 0x18
0021 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0022 c20e | | Store 0x1,0xe
0023 e001 | | Load 0x0,0x1
0024 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0025 0129 | ) | Execute Any,Make_Visible
0026 c20d | | Store 0x1,0xd
0027 00e3 | | Load_Encached Natural_Cache
0028 0266 | f | Execute Discrete,Bounds
0029 e20d | | Load 0x1,0xd
002a 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
002c 4801 |H | Short_Literal 0x1
002d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
002e c20f | | Store 0x1,0xf
002f 00e3 | | Load_Encached Natural_Cache
0030 e002 | | Load 0x0,0x2
0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0032 4801 |H | Short_Literal 0x1
0033 6134 |a4 | Indirect_Literal Discrete,0x168,{0x00000000, 0x7fffffff}
0034 e20f | | Load 0x1,0xf
0035 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0036 029f 0583 | | Declare_Subprogram INIT_0580,For_Call
0038 4800 |H | Short_Literal 0x0
0039 4801 |H | Short_Literal 0x1
003a 4801 |H | Short_Literal 0x1
003b 4800 |H | Short_Literal 0x0
003c 4801 |H | Short_Literal 0x1
003d 4801 |H | Short_Literal 0x1
003e 031e | | Declare_Type Variant_Record,Defined,Visible
003f c210 | | Store 0x1,0x10
0040 4800 |H | Short_Literal 0x0
0041 e003 | | Load 0x0,0x3
0042 02a0 | | Declare_Subprogram Null_Subprogram
0043 038f | | Declare_Type Package,Defined,Visible
0044 0386 | | Declare_Variable Package,Visible
0045 c217 | | Store 0x1,0x17
0046 4800 |H | Short_Literal 0x0
0047 e004 | | Load 0x0,0x4
0048 02a0 | | Declare_Subprogram Null_Subprogram
0049 038f | | Declare_Type Package,Defined,Visible
004a 0386 | | Declare_Variable Package,Visible
004b c218 | | Store 0x1,0x18
004c 4800 |H | Short_Literal 0x0
004d e005 | | Load 0x0,0x5
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 038f | | Declare_Type Package,Defined,Visible
0050 0386 | | Declare_Variable Package,Visible
0051 c219 | | Store 0x1,0x19
0052 e006 | | Load 0x0,0x6
0053 e007 | | Load 0x0,0x7
0054 e008 | | Load 0x0,0x8
0055 1bbe | | Execute Package,Field_Read,Field_Number 0xbe
0056 e008 | | Load 0x0,0x8
0057 1bbf | | Execute Package,Field_Read,Field_Number 0xbf
0058 4800 |H | Short_Literal 0x0
0059 4800 |H | Short_Literal 0x0
005a e008 | | Load 0x0,0x8
005b 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24
005c e008 | | Load 0x0,0x8
005d 1925 | % | Execute Package,Field_Reference,Field_Number 0x25
005e e008 | | Load 0x0,0x8
005f 1956 | V | Execute Package,Field_Reference,Field_Number 0x56
0060 e008 | | Load 0x0,0x8
0061 1957 | W | Execute Package,Field_Reference,Field_Number 0x57
0062 e008 | | Load 0x0,0x8
0063 1926 | & | Execute Package,Field_Reference,Field_Number 0x26
0064 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "!Machine.target_Builder.rcf_errors"
0066 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "error '~@~' (~#~) ~1 (no arguments given)~ ~2~ ~3~"
0068 4801 |H | Short_Literal 0x1
0069 4801 |H | Short_Literal 0x1
006a e009 | | Load 0x0,0x9
006b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
006c 0387 | | Declare_Variable Package
006d 00d8 | | Load_Top At_Offset_0
006e 020f | | Execute Module,Activate
006f c221 | ! | Store 0x1,0x21
0070 4802 |H | Short_Literal 0x2
0071 032a | * | Declare_Type Record,Incomplete
0072 c21d | | Store 0x1,0x1d
0073 e21d | | Load 0x1,0x1d
0074 02a0 | | Declare_Subprogram Null_Subprogram
0075 e20e | | Load 0x1,0xe
0076 03c7 | | Complete_Type Access,By_Defining
0077 00bf | | Action Accept_Activation
0078 00d8 | | Load_Top At_Offset_0
0079 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007b 00d9 | | Load_Top At_Offset_1
007c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0080 e21d | | Load 0x1,0x1d
0081 0326 | & | Complete_Type Record,By_Defining
0082 4900 |I | Short_Literal 0x100
0083 e00a | | Load 0x0,0xa
0084 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0085 1c07 | | Execute_Immediate Run_Utility,0x7
0086 00e8 | | Load_Encached Character_Cache
0087 4900 |I | Short_Literal 0x100
0088 e00a | | Load 0x0,0xa
0089 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008a 1c07 | | Execute_Immediate Run_Utility,0x7
008b 4900 |I | Short_Literal 0x100
008c e00a | | Load 0x0,0xa
008d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008e 1c07 | | Execute_Immediate Run_Utility,0x7
008f 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0091 4804 |H | Short_Literal 0x4
0092 032d | - | Declare_Type Record,Defined
0093 4801 |H | Short_Literal 0x1
0094 4880 |H | Short_Literal 0x80
0095 00e9 | | Load_Encached String_Cache
0096 035b | [ | Declare_Type Array,Constrained
0097 00e3 | | Load_Encached Natural_Cache
0098 4801 |H | Short_Literal 0x1
0099 4880 |H | Short_Literal 0x80
009a 00e9 | | Load_Encached String_Cache
009b 035b | [ | Declare_Type Array,Constrained
009c 00e3 | | Load_Encached Natural_Cache
009d 4801 |H | Short_Literal 0x1
009e 4880 |H | Short_Literal 0x80
009f 00e9 | | Load_Encached String_Cache
00a0 035b | [ | Declare_Type Array,Constrained
00a1 00e3 | | Load_Encached Natural_Cache
00a2 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
00a4 4806 |H | Short_Literal 0x6
00a5 032d | - | Declare_Type Record,Defined
00a6 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "Compiler = "
00a8 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Linker = "
00aa 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Loader = "
00ac 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
00ae 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
00b0 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
00b2 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call
00b4 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
00b6 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
00b8 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call
00ba e00b | | Load 0x0,0xb
00bb e00c | | Load 0x0,0xc
00bc e223 | # | Load 0x1,0x23
00bd 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00be 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00bf 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00c0 00c4 | | Action Make_Default
00c1 e221 | ! | Load 0x1,0x21
00c2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00c3 c234 | 4 | Store 0x1,0x34
00c4 e221 | ! | Load 0x1,0x21
00c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00c6 1b61 | a | Execute Package,Field_Read,Field_Number 0x61
00c7 0387 | | Declare_Variable Package
00c8 00d8 | | Load_Top At_Offset_0
00c9 020f | | Execute Module,Activate
00ca 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
00cc 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
00ce 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
00d0 e00d | | Load 0x0,0xd
00d1 e00e | | Load 0x0,0xe
00d2 e222 | " | Load 0x1,0x22
00d3 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00d4 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00d5 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00d6 00c4 | | Action Make_Default
00d7 e221 | ! | Load 0x1,0x21
00d8 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00d9 c238 | 8 | Store 0x1,0x38
00da e221 | ! | Load 0x1,0x21
00db 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00dc 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a
00dd 0387 | | Declare_Variable Package
00de 00d8 | | Load_Top At_Offset_0
00df 020f | | Execute Module,Activate
00e0 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
00e2 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00e4 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
00e6 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call
00e8 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call
00ea 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call
00ec 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call
00ee 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
00f0 e002 | | Load 0x0,0x2
00f1 e22e | . | Load 0x1,0x2e
00f2 e223 | # | Load 0x1,0x23
00f3 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00f4 e00f | | Load 0x0,0xf
00f5 e010 | | Load 0x0,0x10
00f6 e011 | | Load 0x0,0x11
00f7 e221 | ! | Load 0x1,0x21
00f8 e001 | | Load 0x0,0x1
00f9 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00fa 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00fb 480b |H | Short_Literal 0xb
00fc e217 | | Load 0x1,0x17
00fd 020e | | Execute Module,Augment_Imports
00fe e217 | | Load 0x1,0x17
00ff 020f | | Execute Module,Activate
0100 e012 | | Load 0x0,0x12
0101 e001 | | Load 0x0,0x1
0102 e013 | | Load 0x0,0x13
0103 e014 | | Load 0x0,0x14
0104 e015 | | Load 0x0,0x15
0105 e002 | | Load 0x0,0x2
0106 00b6 | | Action Make_Scope
0107 e221 | ! | Load 0x1,0x21
0108 e008 | | Load 0x0,0x8
0109 e016 | | Load 0x0,0x16
010a e017 | | Load 0x0,0x17
010b e011 | | Load 0x0,0x11
010c e010 | | Load 0x0,0x10
010d e018 | | Load 0x0,0x18
010e e019 | | Load 0x0,0x19
010f 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0110 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0111 e01a | | Load 0x0,0x1a
0112 e01b | | Load 0x0,0x1b
0113 e01c | | Load 0x0,0x1c
0114 e01d | | Load 0x0,0x1d
0115 e01e | | Load 0x0,0x1e
0116 e01f | | Load 0x0,0x1f
0117 e223 | # | Load 0x1,0x23
0118 e22e | . | Load 0x1,0x2e
0119 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
011a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
011b e00f | | Load 0x0,0xf
011c 481c |H | Short_Literal 0x1c
011d e219 | | Load 0x1,0x19
011e 020e | | Execute Module,Augment_Imports
011f e219 | | Load 0x1,0x19
0120 020f | | Execute Module,Activate
0121 e221 | ! | Load 0x1,0x21
0122 e001 | | Load 0x0,0x1
0123 00b6 | | Action Make_Scope
0124 e011 | | Load 0x0,0x11
0125 e002 | | Load 0x0,0x2
0126 e016 | | Load 0x0,0x16
0127 e010 | | Load 0x0,0x10
0128 e020 | | Load 0x0,0x20
0129 e008 | | Load 0x0,0x8
012a e021 | ! | Load 0x0,0x21
012b e00f | | Load 0x0,0xf
012c e022 | " | Load 0x0,0x22
012d e023 | # | Load 0x0,0x23
012e e01c | | Load 0x0,0x1c
012f e024 | $ | Load 0x0,0x24
0130 e025 | % | Load 0x0,0x25
0131 e018 | | Load 0x0,0x18
0132 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0133 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0134 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0135 e026 | & | Load 0x0,0x26
0136 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0137 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0138 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0139 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
013a 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
013b 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
013c e01a | | Load 0x0,0x1a
013d e027 | ' | Load 0x0,0x27
013e e028 | ( | Load 0x0,0x28
013f e029 | ) | Load 0x0,0x29
0140 e02a | * | Load 0x0,0x2a
0141 e02b | + | Load 0x0,0x2b
0142 e02c | , | Load 0x0,0x2c
0143 e02d | - | Load 0x0,0x2d
0144 e02e | . | Load 0x0,0x2e
0145 4824 |H$ | Short_Literal 0x24
0146 e218 | | Load 0x1,0x18
0147 020e | | Execute Module,Augment_Imports
0148 e218 | | Load 0x1,0x18
0149 020f | | Execute Module,Activate
014a BODY_0008:
014a 00bc | | Action Signal_Activated
014b 00bb | | Action Signal_Completion
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00d1 | | Pop_Control Pop_Count_1
0154 00da | | Load_Top At_Offset_2
0155 01dc | | Execute Vector,Last
0156 00db | | Load_Top At_Offset_3
0157 01dd | | Execute Vector,First
0158 0263 | c | Execute Discrete,Above_Bound
0159 700a |p | Jump_Nonzero 0x164
015a 00d8 | | Load_Top At_Offset_0
015b e5ff | | Load 0x2,-0x1
015c 01d5 | | Execute Vector,Field_Reference
015d 0125 | % | Execute Any,Set_Constraint
015e 00d8 | | Load_Top At_Offset_0
015f e5ff | | Load 0x2,-0x1
0160 01d5 | | Execute Vector,Field_Reference
0161 1c00 | | Execute_Immediate Run_Utility,0x0
0162 0a01 | | Execute_Immediate Plus,0x1
0163 7ff4 | | Jump 0x158
0164 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4608 |F | Jump_Case 0x9
0174 7808 |x | Jump 0x17d ; case 0x0
0175 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0176 7813 |x | Jump 0x18a ; case 0x2
0177 7812 |x | Jump 0x18a ; case 0x3
0178 7811 |x | Jump 0x18a ; case 0x4
0179 7810 |x | Jump 0x18a ; case 0x5
017a 780f |x | Jump 0x18a ; case 0x6
017b 780e |x | Jump 0x18a ; case 0x7
017c 780d |x | Jump 0x18a ; case 0x8
017d 00da | | Load_Top At_Offset_2
017e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
017f 0125 | % | Execute Any,Set_Constraint
0180 00da | | Load_Top At_Offset_2
0181 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0182 1c00 | | Execute_Immediate Run_Utility,0x0
0183 00da | | Load_Top At_Offset_2
0184 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0185 0125 | % | Execute Any,Set_Constraint
0186 00da | | Load_Top At_Offset_2
0187 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0188 1c00 | | Execute_Immediate Run_Utility,0x0
0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
018a 0869 | i | Execute_Immediate Raise,0x69
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4608 |F | Jump_Case 0x9
0194 7808 |x | Jump 0x19d ; case 0x0
0195 781a |x | Jump 0x1b0 ; case 0x1
0196 7823 |x# | Jump 0x1ba ; case 0x2
0197 7822 |x" | Jump 0x1ba ; case 0x3
0198 7821 |x! | Jump 0x1ba ; case 0x4
0199 7820 |x | Jump 0x1ba ; case 0x5
019a 781f |x | Jump 0x1ba ; case 0x6
019b 781e |x | Jump 0x1ba ; case 0x7
019c 781d |x | Jump 0x1ba ; case 0x8
019d 00da | | Load_Top At_Offset_2
019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019f 0125 | % | Execute Any,Set_Constraint
01a0 00da | | Load_Top At_Offset_2
01a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a2 1c00 | | Execute_Immediate Run_Utility,0x0
01a3 00da | | Load_Top At_Offset_2
01a4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01a5 0125 | % | Execute Any,Set_Constraint
01a6 00da | | Load_Top At_Offset_2
01a7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01a8 1c00 | | Execute_Immediate Run_Utility,0x0
01a9 00da | | Load_Top At_Offset_2
01aa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01ab 0125 | % | Execute Any,Set_Constraint
01ac 00da | | Load_Top At_Offset_2
01ad 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01ae 1c00 | | Execute_Immediate Run_Utility,0x0
01af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01b0 00da | | Load_Top At_Offset_2
01b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b2 0125 | % | Execute Any,Set_Constraint
01b3 00da | | Load_Top At_Offset_2
01b4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01b5 0125 | % | Execute Any,Set_Constraint
01b6 00da | | Load_Top At_Offset_2
01b7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01b8 0125 | % | Execute Any,Set_Constraint
01b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ba 0869 | i | Execute_Immediate Raise,0x69
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4608 |F | Jump_Case 0x9
01c4 7808 |x | Jump 0x1cd ; case 0x0
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01c6 7843 |xC | Jump 0x20a ; case 0x2
01c7 7842 |xB | Jump 0x20a ; case 0x3
01c8 7841 |xA | Jump 0x20a ; case 0x4
01c9 7840 |x@ | Jump 0x20a ; case 0x5
01ca 783f |x? | Jump 0x20a ; case 0x6
01cb 783e |x> | Jump 0x20a ; case 0x7
01cc 783d |x= | Jump 0x20a ; case 0x8
01cd e223 | # | Load 0x1,0x23
01ce 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
01cf 0337 | 7 | Declare_Variable Array
01d0 4880 |H | Short_Literal 0x80
01d1 4801 |H | Short_Literal 0x1
01d2 4820 |H | Short_Literal 0x20
01d3 00d9 | | Load_Top At_Offset_1
01d4 e402 | | Load 0x2,0x2
01d5 01d6 | | Execute Vector,Field_Write
01d6 3ffb |? | Loop_Increasing 0x1d2
01d7 00db | | Load_Top At_Offset_3
01d8 00d9 | | Load_Top At_Offset_1
01d9 00d9 | | Load_Top At_Offset_1
01da 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
01db 0119 | | Execute Any,Check_In_Formal_Type
01dc 00d1 | | Pop_Control Pop_Count_1
01dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01de 4800 |H | Short_Literal 0x0
01df 00db | | Load_Top At_Offset_3
01e0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e1 e223 | # | Load 0x1,0x23
01e2 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
01e3 0337 | 7 | Declare_Variable Array
01e4 4880 |H | Short_Literal 0x80
01e5 4801 |H | Short_Literal 0x1
01e6 4820 |H | Short_Literal 0x20
01e7 00d9 | | Load_Top At_Offset_1
01e8 e402 | | Load 0x2,0x2
01e9 01d6 | | Execute Vector,Field_Write
01ea 3ffb |? | Loop_Increasing 0x1e6
01eb 00db | | Load_Top At_Offset_3
01ec 00d9 | | Load_Top At_Offset_1
01ed 00d9 | | Load_Top At_Offset_1
01ee 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
01ef 0119 | | Execute Any,Check_In_Formal_Type
01f0 00d1 | | Pop_Control Pop_Count_1
01f1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01f2 4800 |H | Short_Literal 0x0
01f3 00db | | Load_Top At_Offset_3
01f4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01f5 e223 | # | Load 0x1,0x23
01f6 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
01f7 0337 | 7 | Declare_Variable Array
01f8 4880 |H | Short_Literal 0x80
01f9 4801 |H | Short_Literal 0x1
01fa 4820 |H | Short_Literal 0x20
01fb 00d9 | | Load_Top At_Offset_1
01fc e402 | | Load 0x2,0x2
01fd 01d6 | | Execute Vector,Field_Write
01fe 3ffb |? | Loop_Increasing 0x1fa
01ff 00db | | Load_Top At_Offset_3
0200 00d9 | | Load_Top At_Offset_1
0201 00d9 | | Load_Top At_Offset_1
0202 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
0203 0119 | | Execute Any,Check_In_Formal_Type
0204 00d1 | | Pop_Control Pop_Count_1
0205 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0206 4800 |H | Short_Literal 0x0
0207 00db | | Load_Top At_Offset_3
0208 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0209 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
020a 0869 | i | Execute_Immediate Raise,0x69
020b 0000 0000 | | .BLANK 0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 700d |p | Jump_Nonzero 0x222
0215 e011 | | Load 0x0,0x11
0216 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0217 6010 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x0000813c}
0218 e002 | | Load 0x0,0x2
0219 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021a a5fd | | Store_Unchecked 0x2,-0x3
021b 00db | | Load_Top At_Offset_3
021c e011 | | Load 0x0,0x11
021d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
021e 6009 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x0000813c}
021f e002 | | Load 0x0,0x2
0220 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0221 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0222 4800 |H | Short_Literal 0x0
0223 a5fd | | Store_Unchecked 0x2,-0x3
0224 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 0000 0000 | | .LITERAL {0x00000000, 0x0000813c}
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 00da | | Load_Top At_Offset_2
0234 e221 | ! | Load 0x1,0x21
0235 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0236 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0237 e011 | | Load 0x0,0x11
0238 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023a 0000 0000 | | .BLANK 0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; 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 0227 | ' | Execute Access,All_Reference
0245 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0246 00d8 | | Load_Top At_Offset_0
0247 0120 | | Execute Any,Is_Value
0248 7002 |p | Jump_Nonzero 0x24b
0249 00d8 | | Load_Top At_Offset_0
024a 011e | | Execute Any,Convert
024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0257 | W | .CONST 0x0257 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 e221 | ! | Load 0x1,0x21
0255 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0256 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0257 BODY_0250:
0257 00d8 | | Load_Top At_Offset_0
0258 01dd | | Execute Vector,First
0259 00d9 | | Load_Top At_Offset_1
025a 01d7 | | Execute Vector,Field_Read
025b 0f2e | . | Execute_Immediate Equal,0x2e
025c 680d |h | Jump_Zero 0x26a
025d 00d8 | | Load_Top At_Offset_0
025e 01dd | | Execute Vector,First
025f 0a01 | | Execute_Immediate Plus,0x1
0260 00d8 | | Load_Top At_Offset_0
0261 00e2 | | Load_Encached Integer_Cache
0262 0260 | ` | Execute Discrete,In_Type
0263 7001 |p | Jump_Nonzero 0x265
0264 0801 | | Execute_Immediate Raise,0x1
0265 00d9 | | Load_Top At_Offset_1
0266 01dc | | Execute Vector,Last
0267 00da | | Load_Top At_Offset_2
0268 01cf | | Execute Vector,Slice_Read
0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026a 00d8 | | Load_Top At_Offset_0
026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0277 | w | .CONST 0x0277 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 e221 | ! | Load 0x1,0x21
0275 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0276 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0277 BODY_0270:
0277 00d8 | | Load_Top At_Offset_0
0278 01dd | | Execute Vector,First
0279 00d9 | | Load_Top At_Offset_1
027a 01d7 | | Execute Vector,Field_Read
027b 0f2e | . | Execute_Immediate Equal,0x2e
027c 6810 |h | Jump_Zero 0x28d
027d 00d8 | | Load_Top At_Offset_0
027e 01dd | | Execute Vector,First
027f 0a01 | | Execute_Immediate Plus,0x1
0280 00d8 | | Load_Top At_Offset_0
0281 00e2 | | Load_Encached Integer_Cache
0282 0260 | ` | Execute Discrete,In_Type
0283 7001 |p | Jump_Nonzero 0x285
0284 0801 | | Execute_Immediate Raise,0x1
0285 00d9 | | Load_Top At_Offset_1
0286 01dc | | Execute Vector,Last
0287 00da | | Load_Top At_Offset_2
0288 01cf | | Execute Vector,Slice_Read
0289 e001 | | Load 0x0,0x1
028a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
028c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028d 00d8 | | Load_Top At_Offset_0
028e e001 | | Load 0x0,0x1
028f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0290 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0291 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0292 0000 0000 | | .BLANK 0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e224 | $ | Load 0x1,0x24
029c 4801 |H | Short_Literal 0x1
029d e5ff | | Load 0x2,-0x1
029e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
029f e5ff | | Load 0x2,-0x1
02a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a1 01cf | | Execute Vector,Slice_Read
02a2 01cc | | Execute Vector,Catenate
02a3 0092 05aa | | Action Push_String_Extended,0x5aa ; " "
02a5 01cc | | Execute Vector,Catenate
02a6 e225 | % | Load 0x1,0x25
02a7 01cc | | Execute Vector,Catenate
02a8 4801 |H | Short_Literal 0x1
02a9 e5ff | | Load 0x2,-0x1
02aa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02ab e5ff | | Load 0x2,-0x1
02ac 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ad 01cf | | Execute Vector,Slice_Read
02ae 01cc | | Execute Vector,Catenate
02af 0092 05aa | | Action Push_String_Extended,0x5aa ; " "
02b1 01cc | | Execute Vector,Catenate
02b2 e226 | & | Load 0x1,0x26
02b3 01cc | | Execute Vector,Catenate
02b4 4801 |H | Short_Literal 0x1
02b5 e5ff | | Load 0x2,-0x1
02b6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
02b7 e5ff | | Load 0x2,-0x1
02b8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
02b9 01cf | | Execute Vector,Slice_Read
02ba 01cc | | Execute Vector,Catenate
02bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02cb | | .CONST 0x02cb ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0005 | | .CONST 0x0005 ; Number of locals
02c3 INIT_02c0:
02c3 e223 | # | Load 0x1,0x23
02c4 0322 | " | Declare_Variable Record
02c5 00d8 | | Load_Top At_Offset_0
02c6 1c00 | | Execute_Immediate Run_Utility,0x0
02c7 00e3 | | Load_Encached Natural_Cache
02c8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02c9 03e9 | | Declare_Variable Discrete,Duplicate
02ca 03e9 | | Declare_Variable Discrete,Duplicate
02cb BODY_02c0:
02cb 4801 |H | Short_Literal 0x1
02cc e5ff | | Load 0x2,-0x1
02cd e224 | $ | Load 0x1,0x24
02ce e00f | | Load 0x0,0xf
02cf 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02d0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02d1 4801 |H | Short_Literal 0x1
02d2 e5ff | | Load 0x2,-0x1
02d3 e225 | % | Load 0x1,0x25
02d4 e00f | | Load 0x0,0xf
02d5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02d6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02d7 4801 |H | Short_Literal 0x1
02d8 e5ff | | Load 0x2,-0x1
02d9 e226 | & | Load 0x1,0x26
02da e00f | | Load 0x0,0xf
02db 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02dc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02dd 00d9 | | Load_Top At_Offset_1
02de 0af7 | | Execute_Immediate Plus,-0x9
02df 00db | | Load_Top At_Offset_3
02e0 0272 | r | Execute Discrete,Minus
02e1 0aff | | Execute_Immediate Plus,-0x1
02e2 e402 | | Load 0x2,0x2
02e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02e4 00d8 | | Load_Top At_Offset_0
02e5 0af7 | | Execute_Immediate Plus,-0x9
02e6 00da | | Load_Top At_Offset_2
02e7 0272 | r | Execute Discrete,Minus
02e8 0aff | | Execute_Immediate Plus,-0x1
02e9 e402 | | Load 0x2,0x2
02ea 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02eb e5ff | | Load 0x2,-0x1
02ec 01dc | | Execute Vector,Last
02ed 00d9 | | Load_Top At_Offset_1
02ee 0272 | r | Execute Discrete,Minus
02ef e402 | | Load 0x2,0x2
02f0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02f1 00da | | Load_Top At_Offset_2
02f2 0a01 | | Execute_Immediate Plus,0x1
02f3 00d8 | | Load_Top At_Offset_0
02f4 00e2 | | Load_Encached Integer_Cache
02f5 0260 | ` | Execute Discrete,In_Type
02f6 7001 |p | Jump_Nonzero 0x2f8
02f7 0801 | | Execute_Immediate Raise,0x1
02f8 00db | | Load_Top At_Offset_3
02f9 e402 | | Load 0x2,0x2
02fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fb 0273 | s | Execute Discrete,Plus
02fc 00d8 | | Load_Top At_Offset_0
02fd 00e2 | | Load_Encached Integer_Cache
02fe 0260 | ` | Execute Discrete,In_Type
02ff 7001 |p | Jump_Nonzero 0x301
0300 0801 | | Execute_Immediate Raise,0x1
0301 e5ff | | Load 0x2,-0x1
0302 01cf | | Execute Vector,Slice_Read
0303 4801 |H | Short_Literal 0x1
0304 e402 | | Load 0x2,0x2
0305 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0306 e402 | | Load 0x2,0x2
0307 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0308 01ce | | Execute Vector,Slice_Write
0309 00d9 | | Load_Top At_Offset_1
030a 0a01 | | Execute_Immediate Plus,0x1
030b 00d8 | | Load_Top At_Offset_0
030c 00e2 | | Load_Encached Integer_Cache
030d 0260 | ` | Execute Discrete,In_Type
030e 7001 |p | Jump_Nonzero 0x310
030f 0801 | | Execute_Immediate Raise,0x1
0310 00da | | Load_Top At_Offset_2
0311 e402 | | Load 0x2,0x2
0312 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0313 0273 | s | Execute Discrete,Plus
0314 00d8 | | Load_Top At_Offset_0
0315 00e2 | | Load_Encached Integer_Cache
0316 0260 | ` | Execute Discrete,In_Type
0317 7001 |p | Jump_Nonzero 0x319
0318 0801 | | Execute_Immediate Raise,0x1
0319 e5ff | | Load 0x2,-0x1
031a 01cf | | Execute Vector,Slice_Read
031b 4801 |H | Short_Literal 0x1
031c e402 | | Load 0x2,0x2
031d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
031e e402 | | Load 0x2,0x2
031f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0320 01ce | | Execute Vector,Slice_Write
0321 00d8 | | Load_Top At_Offset_0
0322 0a01 | | Execute_Immediate Plus,0x1
0323 00d8 | | Load_Top At_Offset_0
0324 00e2 | | Load_Encached Integer_Cache
0325 0260 | ` | Execute Discrete,In_Type
0326 7001 |p | Jump_Nonzero 0x328
0327 0801 | | Execute_Immediate Raise,0x1
0328 00d9 | | Load_Top At_Offset_1
0329 e402 | | Load 0x2,0x2
032a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
032b 0273 | s | Execute Discrete,Plus
032c 00d8 | | Load_Top At_Offset_0
032d 00e2 | | Load_Encached Integer_Cache
032e 0260 | ` | Execute Discrete,In_Type
032f 7001 |p | Jump_Nonzero 0x331
0330 0801 | | Execute_Immediate Raise,0x1
0331 e5ff | | Load 0x2,-0x1
0332 01cf | | Execute Vector,Slice_Read
0333 4801 |H | Short_Literal 0x1
0334 e402 | | Load 0x2,0x2
0335 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0336 e402 | | Load 0x2,0x2
0337 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0338 01ce | | Execute Vector,Slice_Write
0339 00db | | Load_Top At_Offset_3
033a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
033b 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
0344 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0345 4820 |H | Short_Literal 0x20
0346 4803 |H | Short_Literal 0x3
0347 480a |H | Short_Literal 0xa
0348 e5ff | | Load 0x2,-0x1
0349 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
034a e00a | | Load 0x0,0xa
034b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
034c e00f | | Load 0x0,0xf
034d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
034e e5ff | | Load 0x2,-0x1
034f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0350 e00a | | Load 0x0,0xa
0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0352 01cc | | Execute Vector,Catenate
0353 01cb | | Execute Vector,Append
0354 4820 |H | Short_Literal 0x20
0355 4803 |H | Short_Literal 0x3
0356 480a |H | Short_Literal 0xa
0357 e5ff | | Load 0x2,-0x1
0358 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0359 e00a | | Load 0x0,0xa
035a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
035b e00f | | Load 0x0,0xf
035c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
035d 01cc | | Execute Vector,Catenate
035e 00db | | Load_Top At_Offset_3
035f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0360 e00a | | Load 0x0,0xa
0361 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0362 01cc | | Execute Vector,Catenate
0363 4820 |H | Short_Literal 0x20
0364 4803 |H | Short_Literal 0x3
0365 480a |H | Short_Literal 0xa
0366 e5ff | | Load 0x2,-0x1
0367 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0368 e00a | | Load 0x0,0xa
0369 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
036a e00f | | Load 0x0,0xf
036b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
036c 01cc | | Execute Vector,Catenate
036d 00db | | Load_Top At_Offset_3
036e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
036f e00a | | Load 0x0,0xa
0370 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0371 01cc | | Execute Vector,Catenate
0372 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 038f | | .CONST 0x038f ; Address of begin
0379 0421 | ! | .CONST 0x0421 ; Address of exception handler
037a 0009 | | .CONST 0x0009 ; Number of locals
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 01db | | Execute Vector,Length
037d 00e3 | | Load_Encached Natural_Cache
037e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
037f 00db | | Load_Top At_Offset_3
0380 01dd | | Execute Vector,First
0381 00e3 | | Load_Encached Natural_Cache
0382 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0383 00e3 | | Load_Encached Natural_Cache
0384 00e3 | | Load_Encached Natural_Cache
0385 00e3 | | Load_Encached Natural_Cache
0386 e222 | " | Load 0x1,0x22
0387 0322 | " | Declare_Variable Record
0388 00d8 | | Load_Top At_Offset_0
0389 1c00 | | Execute_Immediate Run_Utility,0x0
038a e222 | " | Load 0x1,0x22
038b 0322 | " | Declare_Variable Record
038c 00d8 | | Load_Top At_Offset_0
038d 1c00 | | Execute_Immediate Run_Utility,0x0
038e 00e1 | | Load_Encached Boolean_Cache
038f BODY_0378:
038f 00e1 | | Load_Encached Boolean_Cache
0390 00e2 | | Load_Encached Integer_Cache
0391 480a |H | Short_Literal 0xa
0392 e403 | | Load 0x2,0x3
0393 00d8 | | Load_Top At_Offset_0
0394 0a02 | | Execute_Immediate Plus,0x2
0395 00d8 | | Load_Top At_Offset_0
0396 00e2 | | Load_Encached Integer_Cache
0397 0260 | ` | Execute Discrete,In_Type
0398 7001 |p | Jump_Nonzero 0x39a
0399 0801 | | Execute_Immediate Raise,0x1
039a e5ff | | Load 0x2,-0x1
039b 01cf | | Execute Vector,Slice_Read
039c e00f | | Load 0x0,0xf
039d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
039e c406 | | Store 0x2,0x6
039f 0059 | Y | Store_Top Discrete,At_Offset_1
03a0 00d8 | | Load_Top At_Offset_0
03a1 7001 |p | Jump_Nonzero 0x3a3
03a2 08e0 | | Execute_Immediate Raise,0xe0
03a3 e403 | | Load 0x2,0x3
03a4 0a03 | | Execute_Immediate Plus,0x3
03a5 c403 | | Store 0x2,0x3
03a6 00da | | Load_Top At_Offset_2
03a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a8 e403 | | Load 0x2,0x3
03a9 00d8 | | Load_Top At_Offset_0
03aa e406 | | Load 0x2,0x6
03ab 0273 | s | Execute Discrete,Plus
03ac 0aff | | Execute_Immediate Plus,-0x1
03ad 00d8 | | Load_Top At_Offset_0
03ae 00e2 | | Load_Encached Integer_Cache
03af 0260 | ` | Execute Discrete,In_Type
03b0 7001 |p | Jump_Nonzero 0x3b2
03b1 0801 | | Execute_Immediate Raise,0x1
03b2 e5ff | | Load 0x2,-0x1
03b3 01cf | | Execute Vector,Slice_Read
03b4 e00a | | Load 0x0,0xa
03b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b6 00d1 | | Pop_Control Pop_Count_1
03b7 e403 | | Load 0x2,0x3
03b8 e406 | | Load 0x2,0x6
03b9 0273 | s | Execute Discrete,Plus
03ba c403 | | Store 0x2,0x3
03bb e403 | | Load 0x2,0x3
03bc e5ff | | Load 0x2,-0x1
03bd 01d7 | | Execute Vector,Field_Read
03be 00db | | Load_Top At_Offset_3
03bf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03c0 e403 | | Load 0x2,0x3
03c1 0a01 | | Execute_Immediate Plus,0x1
03c2 c403 | | Store 0x2,0x3
03c3 00e1 | | Load_Encached Boolean_Cache
03c4 00e2 | | Load_Encached Integer_Cache
03c5 480a |H | Short_Literal 0xa
03c6 e403 | | Load 0x2,0x3
03c7 00d8 | | Load_Top At_Offset_0
03c8 0a02 | | Execute_Immediate Plus,0x2
03c9 00d8 | | Load_Top At_Offset_0
03ca 00e2 | | Load_Encached Integer_Cache
03cb 0260 | ` | Execute Discrete,In_Type
03cc 7001 |p | Jump_Nonzero 0x3ce
03cd 0801 | | Execute_Immediate Raise,0x1
03ce e5ff | | Load 0x2,-0x1
03cf 01cf | | Execute Vector,Slice_Read
03d0 e00f | | Load 0x0,0xf
03d1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03d2 c404 | | Store 0x2,0x4
03d3 0059 | Y | Store_Top Discrete,At_Offset_1
03d4 00d8 | | Load_Top At_Offset_0
03d5 7001 |p | Jump_Nonzero 0x3d7
03d6 08e0 | | Execute_Immediate Raise,0xe0
03d7 e403 | | Load 0x2,0x3
03d8 0a03 | | Execute_Immediate Plus,0x3
03d9 c403 | | Store 0x2,0x3
03da 00da | | Load_Top At_Offset_2
03db 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03dc e403 | | Load 0x2,0x3
03dd 00d8 | | Load_Top At_Offset_0
03de e404 | | Load 0x2,0x4
03df 0273 | s | Execute Discrete,Plus
03e0 0aff | | Execute_Immediate Plus,-0x1
03e1 00d8 | | Load_Top At_Offset_0
03e2 00e2 | | Load_Encached Integer_Cache
03e3 0260 | ` | Execute Discrete,In_Type
03e4 7001 |p | Jump_Nonzero 0x3e6
03e5 0801 | | Execute_Immediate Raise,0x1
03e6 e5ff | | Load 0x2,-0x1
03e7 01cf | | Execute Vector,Slice_Read
03e8 e00a | | Load 0x0,0xa
03e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ea 00d1 | | Pop_Control Pop_Count_1
03eb e403 | | Load 0x2,0x3
03ec e404 | | Load 0x2,0x4
03ed 0273 | s | Execute Discrete,Plus
03ee c403 | | Store 0x2,0x3
03ef 00e1 | | Load_Encached Boolean_Cache
03f0 00e2 | | Load_Encached Integer_Cache
03f1 480a |H | Short_Literal 0xa
03f2 e403 | | Load 0x2,0x3
03f3 00d8 | | Load_Top At_Offset_0
03f4 0a02 | | Execute_Immediate Plus,0x2
03f5 00d8 | | Load_Top At_Offset_0
03f6 00e2 | | Load_Encached Integer_Cache
03f7 0260 | ` | Execute Discrete,In_Type
03f8 7001 |p | Jump_Nonzero 0x3fa
03f9 0801 | | Execute_Immediate Raise,0x1
03fa e5ff | | Load 0x2,-0x1
03fb 01cf | | Execute Vector,Slice_Read
03fc e00f | | Load 0x0,0xf
03fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03fe c405 | | Store 0x2,0x5
03ff 0059 | Y | Store_Top Discrete,At_Offset_1
0400 00d8 | | Load_Top At_Offset_0
0401 7001 |p | Jump_Nonzero 0x403
0402 08e0 | | Execute_Immediate Raise,0xe0
0403 e403 | | Load 0x2,0x3
0404 0a03 | | Execute_Immediate Plus,0x3
0405 c403 | | Store 0x2,0x3
0406 00da | | Load_Top At_Offset_2
0407 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0408 e403 | | Load 0x2,0x3
0409 00d8 | | Load_Top At_Offset_0
040a e405 | | Load 0x2,0x5
040b 0273 | s | Execute Discrete,Plus
040c 0aff | | Execute_Immediate Plus,-0x1
040d 00d8 | | Load_Top At_Offset_0
040e 00e2 | | Load_Encached Integer_Cache
040f 0260 | ` | Execute Discrete,In_Type
0410 7001 |p | Jump_Nonzero 0x412
0411 0801 | | Execute_Immediate Raise,0x1
0412 e5ff | | Load 0x2,-0x1
0413 01cf | | Execute Vector,Slice_Read
0414 e00a | | Load 0x0,0xa
0415 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0416 00d1 | | Pop_Control Pop_Count_1
0417 e403 | | Load 0x2,0x3
0418 e405 | | Load 0x2,0x5
0419 0273 | s | Execute Discrete,Plus
041a 0aff | | Execute_Immediate Plus,-0x1
041b e402 | | Load 0x2,0x2
041c 027e | ~ | Execute Discrete,Not_Equal
041d 6801 |h | Jump_Zero 0x41f
041e 08e0 | | Execute_Immediate Raise,0xe0
041f 00da | | Load_Top At_Offset_2
0420 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0421 TRAP_0378:
0421 010e | | Execute Exception,Is_Constraint_Error
0422 6815 |h | Jump_Zero 0x438
0423 e018 | | Load 0x0,0x18
0424 180e | | Execute Package,Field_Execute,Field_Number 0xe
0425 4801 |H | Short_Literal 0x1
0426 4801 |H | Short_Literal 0x1
0427 e011 | | Load 0x0,0x11
0428 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0429 0334 | 4 | Declare_Variable Array,With_Constraint
042a e5ff | | Load 0x2,-0x1
042b e011 | | Load 0x0,0x11
042c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
042d e011 | | Load 0x0,0x11
042e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042f 0119 | | Execute Any,Check_In_Formal_Type
0430 4801 |H | Short_Literal 0x1
0431 00da | | Load_Top At_Offset_2
0432 01d6 | | Execute Vector,Field_Write
0433 6008 |` | Indirect_Literal Discrete,0x43c,{0x00000000, 0x0000816a}
0434 e002 | | Load 0x0,0x2
0435 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0436 00da | | Load_Top At_Offset_2
0437 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0438 0100 | | Execute Exception,Raise
0439 0000 0000 | | .XXX[0x3]
043b 0000 | |
043c 0000 0000 | | .LITERAL {0x00000000, 0x0000816a}
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 822f | / | Call 0x1,0x2f
0445 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0446 0000 0000 | | .XXX[0x2]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0451 | Q | .CONST 0x0451 ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0003 | | .CONST 0x0003 ; Number of locals
044b INIT_0448:
044b e222 | " | Load 0x1,0x22
044c 0322 | " | Declare_Variable Record
044d 00d8 | | Load_Top At_Offset_0
044e 1c00 | | Execute_Immediate Run_Utility,0x0
044f e232 | 2 | Load 0x1,0x32
0450 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0451 BODY_0448:
0451 e5ff | | Load 0x2,-0x1
0452 e232 | 2 | Load 0x1,0x32
0453 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0454 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0455 00d8 | | Load_Top At_Offset_0
0456 7002 |p | Jump_Nonzero 0x459
0457 00ea | | Load_Encached Null_String_Cache
0458 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0459 00d8 | | Load_Top At_Offset_0
045a 0217 | | Execute Heap_Access,All_Reference
045b 00da | | Load_Top At_Offset_2
045c 017d | } | Execute Record,Structure_Write
045d 00d9 | | Load_Top At_Offset_1
045e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
045f e00a | | Load 0x0,0xa
0460 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0461 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0462 0000 0000 | | .BLANK 0000[0x6]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0471 | q | .CONST 0x0471 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0003 | | .CONST 0x0003 ; Number of locals
046b INIT_0468:
046b e222 | " | Load 0x1,0x22
046c 0322 | " | Declare_Variable Record
046d 00d8 | | Load_Top At_Offset_0
046e 1c00 | | Execute_Immediate Run_Utility,0x0
046f e232 | 2 | Load 0x1,0x32
0470 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0471 BODY_0468:
0471 e5ff | | Load 0x2,-0x1
0472 e232 | 2 | Load 0x1,0x32
0473 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0474 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0475 00d8 | | Load_Top At_Offset_0
0476 6804 |h | Jump_Zero 0x47b
0477 00d8 | | Load_Top At_Offset_0
0478 0217 | | Execute Heap_Access,All_Reference
0479 00da | | Load_Top At_Offset_2
047a 017d | } | Execute Record,Structure_Write
047b 00d9 | | Load_Top At_Offset_1
047c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
047d e5fe | | Load 0x2,-0x2
047e e00a | | Load 0x0,0xa
047f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0480 00d1 | | Pop_Control Pop_Count_1
0481 00d9 | | Load_Top At_Offset_1
0482 e5ff | | Load 0x2,-0x1
0483 e232 | 2 | Load 0x1,0x32
0484 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0485 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0486 0000 0000 | | .XXX[0x2]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0491 | | .CONST 0x0491 ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0003 | | .CONST 0x0003 ; Number of locals
048b INIT_0488:
048b e222 | " | Load 0x1,0x22
048c 0322 | " | Declare_Variable Record
048d 00d8 | | Load_Top At_Offset_0
048e 1c00 | | Execute_Immediate Run_Utility,0x0
048f e232 | 2 | Load 0x1,0x32
0490 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0491 BODY_0488:
0491 e5ff | | Load 0x2,-0x1
0492 e232 | 2 | Load 0x1,0x32
0493 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0494 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0495 00d8 | | Load_Top At_Offset_0
0496 7002 |p | Jump_Nonzero 0x499
0497 00ea | | Load_Encached Null_String_Cache
0498 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0499 00d8 | | Load_Top At_Offset_0
049a 0217 | | Execute Heap_Access,All_Reference
049b 00da | | Load_Top At_Offset_2
049c 017d | } | Execute Record,Structure_Write
049d 00d9 | | Load_Top At_Offset_1
049e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
049f 0f54 | T | Execute_Immediate Equal,0x54
04a0 6805 |h | Jump_Zero 0x4a6
04a1 00d9 | | Load_Top At_Offset_1
04a2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04a3 e00a | | Load 0x0,0xa
04a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a6 00ea | | Load_Encached Null_String_Cache
04a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b1 | | .CONST 0x04b1 ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0003 | | .CONST 0x0003 ; Number of locals
04ab INIT_04a8:
04ab e222 | " | Load 0x1,0x22
04ac 0322 | " | Declare_Variable Record
04ad 00d8 | | Load_Top At_Offset_0
04ae 1c00 | | Execute_Immediate Run_Utility,0x0
04af e232 | 2 | Load 0x1,0x32
04b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04b1 BODY_04a8:
04b1 e5ff | | Load 0x2,-0x1
04b2 e232 | 2 | Load 0x1,0x32
04b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b4 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04b5 00d8 | | Load_Top At_Offset_0
04b6 7002 |p | Jump_Nonzero 0x4b9
04b7 00ea | | Load_Encached Null_String_Cache
04b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b9 00d8 | | Load_Top At_Offset_0
04ba 0217 | | Execute Heap_Access,All_Reference
04bb 00da | | Load_Top At_Offset_2
04bc 017d | } | Execute Record,Structure_Write
04bd 00d9 | | Load_Top At_Offset_1
04be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04bf 0f54 | T | Execute_Immediate Equal,0x54
04c0 6805 |h | Jump_Zero 0x4c6
04c1 00d9 | | Load_Top At_Offset_1
04c2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04c3 e00a | | Load 0x0,0xa
04c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c6 00ea | | Load_Encached Null_String_Cache
04c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d1 | | .CONST 0x04d1 ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0003 | | .CONST 0x0003 ; Number of locals
04cb INIT_04c8:
04cb e222 | " | Load 0x1,0x22
04cc 0322 | " | Declare_Variable Record
04cd 00d8 | | Load_Top At_Offset_0
04ce 1c00 | | Execute_Immediate Run_Utility,0x0
04cf e232 | 2 | Load 0x1,0x32
04d0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04d1 BODY_04c8:
04d1 e5ff | | Load 0x2,-0x1
04d2 e232 | 2 | Load 0x1,0x32
04d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04d4 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04d5 00d8 | | Load_Top At_Offset_0
04d6 6804 |h | Jump_Zero 0x4db
04d7 00d8 | | Load_Top At_Offset_0
04d8 0217 | | Execute Heap_Access,All_Reference
04d9 00da | | Load_Top At_Offset_2
04da 017d | } | Execute Record,Structure_Write
04db 4854 |HT | Short_Literal 0x54
04dc 00da | | Load_Top At_Offset_2
04dd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04de 00d9 | | Load_Top At_Offset_1
04df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04e0 e5fe | | Load 0x2,-0x2
04e1 e00a | | Load 0x0,0xa
04e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04e3 00d1 | | Pop_Control Pop_Count_1
04e4 00d9 | | Load_Top At_Offset_1
04e5 e5ff | | Load 0x2,-0x1
04e6 e232 | 2 | Load 0x1,0x32
04e7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04e9 0000 0000 | | .BLANK 0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f9 | | .CONST 0x04f9 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0003 | | .CONST 0x0003 ; Number of locals
04f3 INIT_04f0:
04f3 e222 | " | Load 0x1,0x22
04f4 0322 | " | Declare_Variable Record
04f5 00d8 | | Load_Top At_Offset_0
04f6 1c00 | | Execute_Immediate Run_Utility,0x0
04f7 e232 | 2 | Load 0x1,0x32
04f8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04f9 BODY_04f0:
04f9 e5ff | | Load 0x2,-0x1
04fa e232 | 2 | Load 0x1,0x32
04fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04fc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04fd 00d8 | | Load_Top At_Offset_0
04fe 6804 |h | Jump_Zero 0x503
04ff 00d8 | | Load_Top At_Offset_0
0500 0217 | | Execute Heap_Access,All_Reference
0501 00da | | Load_Top At_Offset_2
0502 017d | } | Execute Record,Structure_Write
0503 4854 |HT | Short_Literal 0x54
0504 00da | | Load_Top At_Offset_2
0505 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0506 00d9 | | Load_Top At_Offset_1
0507 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0508 e5fe | | Load 0x2,-0x2
0509 e00a | | Load 0x0,0xa
050a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
050b 00d1 | | Pop_Control Pop_Count_1
050c 00d9 | | Load_Top At_Offset_1
050d e5ff | | Load 0x2,-0x1
050e e232 | 2 | Load 0x1,0x32
050f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0510 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0511 0000 0000 | | .BLANK 0000[0x7]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0521 | ! | .CONST 0x0521 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0003 | | .CONST 0x0003 ; Number of locals
051b INIT_0518:
051b e222 | " | Load 0x1,0x22
051c 0322 | " | Declare_Variable Record
051d 00d8 | | Load_Top At_Offset_0
051e 1c00 | | Execute_Immediate Run_Utility,0x0
051f e232 | 2 | Load 0x1,0x32
0520 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0521 BODY_0518:
0521 e5ff | | Load 0x2,-0x1
0522 e232 | 2 | Load 0x1,0x32
0523 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0524 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0525 00d8 | | Load_Top At_Offset_0
0526 7001 |p | Jump_Nonzero 0x528
0527 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0528 00d8 | | Load_Top At_Offset_0
0529 0217 | | Execute Heap_Access,All_Reference
052a 00da | | Load_Top At_Offset_2
052b 017d | } | Execute Record,Structure_Write
052c 4846 |HF | Short_Literal 0x46
052d 00da | | Load_Top At_Offset_2
052e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
052f 00d9 | | Load_Top At_Offset_1
0530 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0531 00ea | | Load_Encached Null_String_Cache
0532 e00a | | Load 0x0,0xa
0533 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0534 00d1 | | Pop_Control Pop_Count_1
0535 00d9 | | Load_Top At_Offset_1
0536 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0537 00ea | | Load_Encached Null_String_Cache
0538 e00a | | Load 0x0,0xa
0539 1810 | | Execute Package,Field_Execute,Field_Number 0x10
053a 00d1 | | Pop_Control Pop_Count_1
053b 00d9 | | Load_Top At_Offset_1
053c e5ff | | Load 0x2,-0x1
053d e232 | 2 | Load 0x1,0x32
053e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
053f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0548 | H | .CONST 0x0548 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 e001 | | Load 0x0,0x1
0544 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0545 02c7 | | Declare_Variable Any
0546 00d8 | | Load_Top At_Offset_0
0547 1c00 | | Execute_Immediate Run_Utility,0x0
0548 BODY_0540:
0548 e5fd | | Load 0x2,-0x3
0549 00d9 | | Load_Top At_Offset_1
054a 0120 | | Execute Any,Is_Value
054b 6803 |h | Jump_Zero 0x54f
054c e001 | | Load 0x0,0x1
054d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054e 7801 |x | Jump 0x550
054f 00d9 | | Load_Top At_Offset_1
0550 e5ff | | Load 0x2,-0x1
0551 e221 | ! | Load 0x1,0x21
0552 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0553 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0554 c402 | | Store 0x2,0x2
0555 c5fd | | Store 0x2,-0x3
0556 e5fd | | Load 0x2,-0x3
0557 e5fe | | Load 0x2,-0x2
0558 e008 | | Load 0x0,0x8
0559 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
055a e5ff | | Load 0x2,-0x1
055b e221 | ! | Load 0x1,0x21
055c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
055d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
055e 00d8 | | Load_Top At_Offset_0
055f 00e4 | | Load_Encached Positive_Cache
0560 0260 | ` | Execute Discrete,In_Type
0561 7001 |p | Jump_Nonzero 0x563
0562 0801 | | Execute_Immediate Raise,0x1
0563 00db | | Load_Top At_Offset_3
0564 e5fe | | Load 0x2,-0x2
0565 e008 | | Load 0x0,0x8
0566 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
0567 e5ff | | Load 0x2,-0x1
0568 e221 | ! | Load 0x1,0x21
0569 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
056a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
056b c5fd | | Store 0x2,-0x3
056c e5fd | | Load 0x2,-0x3
056d 700a |p | Jump_Nonzero 0x578
056e e5fd | | Load 0x2,-0x3
056f e5fe | | Load 0x2,-0x2
0570 e008 | | Load 0x0,0x8
0571 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0572 4801 |H | Short_Literal 0x1
0573 e5ff | | Load 0x2,-0x1
0574 e221 | ! | Load 0x1,0x21
0575 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0576 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0577 c5fd | | Store 0x2,-0x3
0578 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0579 0000 0000 | | .BLANK 0000[0x7]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 4608 |F | Jump_Case 0x9
0584 7808 |x | Jump 0x58d ; case 0x0
0585 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0586 781d |x | Jump 0x5a4 ; case 0x2
0587 781c |x | Jump 0x5a4 ; case 0x3
0588 781b |x | Jump 0x5a4 ; case 0x4
0589 781a |x | Jump 0x5a4 ; case 0x5
058a 7819 |x | Jump 0x5a4 ; case 0x6
058b 7805 |x | Jump 0x591 ; case 0x7
058c 780d |x | Jump 0x59a ; case 0x8
058d 00da | | Load_Top At_Offset_2
058e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
058f 1c00 | | Execute_Immediate Run_Utility,0x0
0590 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0591 00db | | Load_Top At_Offset_3
0592 4801 |H | Short_Literal 0x1
0593 e5fe | | Load 0x2,-0x2
0594 e20f | | Load 0x1,0xf
0595 035b | [ | Declare_Type Array,Constrained
0596 4801 |H | Short_Literal 0x1
0597 e5ff | | Load 0x2,-0x1
0598 031b | | Declare_Type Variant_Record,Constrained
0599 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
059a 00db | | Load_Top At_Offset_3
059b 00db | | Load_Top At_Offset_3
059c 02fc | | Declare_Variable Variant_Record,With_Constraint
059d 4801 |H | Short_Literal 0x1
059e e5fe | | Load 0x2,-0x2
059f e20f | | Load 0x1,0xf
05a0 0334 | 4 | Declare_Variable Array,With_Constraint
05a1 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
05a2 016a | j | QQ_execute Variant_Record,XXX
05a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05a4 0869 | i | Execute_Immediate Raise,0x69
05a5 ; --------------------------------------------------------------------------------------
05a5 ; STRING TABLE
05a5 ; --------------------------------------------------------------------------------------
05a5 000e | | .STRTAB 0x000e->0x05ac ; "!Machine.target_Builder.rcf_errors"
05a6 002e | . | .STRTAB 0x002e->0x05bd ; "error '~@~' (~#~) ~1 (no arguments given)~ ~2~ ~3~"
05a7 005e | ^ | .STRTAB 0x005e->0x05d6 ; "Compiler = "
05a8 0067 | g | .STRTAB 0x0067->0x05db ; "Linker = "
05a9 006e | n | .STRTAB 0x006e->0x05e0 ; "Loader = "
05aa 0075 | u | .STRTAB 0x0075->0x05e4 ; " "
05ab 0074 | t | .STREND 0x0074->0x05e5
05ac 214d 6163 |!Mac| .STRTAB_STRINGS
05e5 0000 0000 | | .XXX[0x3]
05e7 0000 | |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug Table
05e8 ; --------------------------------------------------------------------------------------
05e8 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dfb,0x0000,0x0001,0x0000
05ee 0000 0000 | | .BLANK 0000[0x12]