|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05f0 | | .CONST 0x05f0 ; 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 014f | O | .CONST 0x014f ; 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 015b | [| Declare_Subprogram INIT_0158,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 613c |a< | Indirect_Literal Discrete,0x170,{0x00000000, 0x7fffffff}
0034 e20f | | Load 0x1,0xf
0035 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0036 029f 058b | | Declare_Subprogram INIT_0588,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 05ad | | Action Push_String_Extended,0x5ad ; "!Machine.target_Builder.rcf_errors"
0066 0092 05ae | | Action Push_String_Extended,0x5ae ; "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 017b | {| Declare_Subprogram INIT_0178,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 019b | | Declare_Subprogram INIT_0198,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 01cb | | Declare_Subprogram INIT_01c8,For_Call
00a4 4806 |H | Short_Literal 0x6
00a5 032d | - | Declare_Type Record,Defined
00a6 0092 05af | | Action Push_String_Extended,0x5af ; "Compiler = "
00a8 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "Linker = "
00aa 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "Loader = "
00ac 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
00ae 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
00b0 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
00b2 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
00b4 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
00b6 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
00b8 029d 02cb | | Declare_Subprogram INIT_02c8,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 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
00cc 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
00ce 029d 044b | K| Declare_Subprogram INIT_0448,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 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call
00e2 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call
00e4 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call
00e6 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call
00e8 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
00ea 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call
00ec 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call
00ee 029d 054b | K| Declare_Subprogram INIT_0548,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 4800 |H | Short_Literal 0x0
0103 4800 |H | Short_Literal 0x0
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 4800 |H | Short_Literal 0x0
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 e020 | | Load 0x0,0x20
0118 e223 | # | Load 0x1,0x23
0119 e22e | . | Load 0x1,0x2e
011a 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
011b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
011c e00f | | Load 0x0,0xf
011d e02f | / | Load 0x0,0x2f
011e e030 | 0 | Load 0x0,0x30
011f e031 | 1 | Load 0x0,0x31
0120 e032 | 2 | Load 0x0,0x32
0121 4821 |H! | Short_Literal 0x21
0122 e219 | | Load 0x1,0x19
0123 020e | | Execute Module,Augment_Imports
0124 e219 | | Load 0x1,0x19
0125 020f | | Execute Module,Activate
0126 e221 | ! | Load 0x1,0x21
0127 e001 | | Load 0x0,0x1
0128 00b6 | | Action Make_Scope
0129 e011 | | Load 0x0,0x11
012a e002 | | Load 0x0,0x2
012b e016 | | Load 0x0,0x16
012c e010 | | Load 0x0,0x10
012d e021 | ! | Load 0x0,0x21
012e e008 | | Load 0x0,0x8
012f e022 | " | Load 0x0,0x22
0130 e00f | | Load 0x0,0xf
0131 e023 | # | Load 0x0,0x23
0132 e024 | $ | Load 0x0,0x24
0133 e01c | | Load 0x0,0x1c
0134 4800 |H | Short_Literal 0x0
0135 e026 | & | Load 0x0,0x26
0136 e018 | | Load 0x0,0x18
0137 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0138 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0139 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
013a e027 | ' | Load 0x0,0x27
013b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
013c 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
013d 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
013e 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
013f 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0140 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0141 e01a | | Load 0x0,0x1a
0142 e028 | ( | Load 0x0,0x28
0143 e029 | ) | Load 0x0,0x29
0144 e02a | * | Load 0x0,0x2a
0145 e02b | + | Load 0x0,0x2b
0146 e02c | , | Load 0x0,0x2c
0147 e02d | - | Load 0x0,0x2d
0148 e02e | . | Load 0x0,0x2e
0149 e013 | | Load 0x0,0x13
014a 4824 |H$ | Short_Literal 0x24
014b e218 | | Load 0x1,0x18
014c 020e | | Execute Module,Augment_Imports
014d e218 | | Load 0x1,0x18
014e 020f | | Execute Module,Activate
014f BODY_0008:
014f 00bc | | Action Signal_Activated
0150 00bb | | Action Signal_Completion
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00d1 | | Pop_Control Pop_Count_1
015c 00da | | Load_Top At_Offset_2
015d 01dc | | Execute Vector,Last
015e 00db | | Load_Top At_Offset_3
015f 01dd | | Execute Vector,First
0160 0263 | c | Execute Discrete,Above_Bound
0161 700a |p | Jump_Nonzero 0x16c
0162 00d8 | | Load_Top At_Offset_0
0163 e5ff | | Load 0x2,-0x1
0164 01d5 | | Execute Vector,Field_Reference
0165 0125 | % | Execute Any,Set_Constraint
0166 00d8 | | Load_Top At_Offset_0
0167 e5ff | | Load 0x2,-0x1
0168 01d5 | | Execute Vector,Field_Reference
0169 1c00 | | Execute_Immediate Run_Utility,0x0
016a 0a01 | | Execute_Immediate Plus,0x1
016b 7ff4 | | Jump 0x160
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4608 |F | Jump_Case 0x9
017c 7808 |x | Jump 0x185 ; case 0x0
017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
017e 7813 |x | Jump 0x192 ; case 0x2
017f 7812 |x | Jump 0x192 ; case 0x3
0180 7811 |x | Jump 0x192 ; case 0x4
0181 7810 |x | Jump 0x192 ; case 0x5
0182 780f |x | Jump 0x192 ; case 0x6
0183 780e |x | Jump 0x192 ; case 0x7
0184 780d |x | Jump 0x192 ; case 0x8
0185 00da | | Load_Top At_Offset_2
0186 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0187 0125 | % | Execute Any,Set_Constraint
0188 00da | | Load_Top At_Offset_2
0189 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018a 1c00 | | Execute_Immediate Run_Utility,0x0
018b 00da | | Load_Top At_Offset_2
018c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
018d 0125 | % | Execute Any,Set_Constraint
018e 00da | | Load_Top At_Offset_2
018f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0190 1c00 | | Execute_Immediate Run_Utility,0x0
0191 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0192 0869 | i | Execute_Immediate Raise,0x69
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4608 |F | Jump_Case 0x9
019c 7808 |x | Jump 0x1a5 ; case 0x0
019d 781a |x | Jump 0x1b8 ; case 0x1
019e 7823 |x# | Jump 0x1c2 ; case 0x2
019f 7822 |x" | Jump 0x1c2 ; case 0x3
01a0 7821 |x! | Jump 0x1c2 ; case 0x4
01a1 7820 |x | Jump 0x1c2 ; case 0x5
01a2 781f |x | Jump 0x1c2 ; case 0x6
01a3 781e |x | Jump 0x1c2 ; case 0x7
01a4 781d |x | Jump 0x1c2 ; case 0x8
01a5 00da | | Load_Top At_Offset_2
01a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a7 0125 | % | Execute Any,Set_Constraint
01a8 00da | | Load_Top At_Offset_2
01a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01aa 1c00 | | Execute_Immediate Run_Utility,0x0
01ab 00da | | Load_Top At_Offset_2
01ac 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01ad 0125 | % | Execute Any,Set_Constraint
01ae 00da | | Load_Top At_Offset_2
01af 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01b0 1c00 | | Execute_Immediate Run_Utility,0x0
01b1 00da | | Load_Top At_Offset_2
01b2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01b3 0125 | % | Execute Any,Set_Constraint
01b4 00da | | Load_Top At_Offset_2
01b5 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01b6 1c00 | | Execute_Immediate Run_Utility,0x0
01b7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01b8 00da | | Load_Top At_Offset_2
01b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ba 0125 | % | Execute Any,Set_Constraint
01bb 00da | | Load_Top At_Offset_2
01bc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01bd 0125 | % | Execute Any,Set_Constraint
01be 00da | | Load_Top At_Offset_2
01bf 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01c0 0125 | % | Execute Any,Set_Constraint
01c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01c2 0869 | i | Execute_Immediate Raise,0x69
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4608 |F | Jump_Case 0x9
01cc 7808 |x | Jump 0x1d5 ; case 0x0
01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01ce 7843 |xC | Jump 0x212 ; case 0x2
01cf 7842 |xB | Jump 0x212 ; case 0x3
01d0 7841 |xA | Jump 0x212 ; case 0x4
01d1 7840 |x@ | Jump 0x212 ; case 0x5
01d2 783f |x? | Jump 0x212 ; case 0x6
01d3 783e |x> | Jump 0x212 ; case 0x7
01d4 783d |x= | Jump 0x212 ; case 0x8
01d5 e223 | # | Load 0x1,0x23
01d6 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
01d7 0337 | 7 | Declare_Variable Array
01d8 4880 |H | Short_Literal 0x80
01d9 4801 |H | Short_Literal 0x1
01da 4820 |H | Short_Literal 0x20
01db 00d9 | | Load_Top At_Offset_1
01dc e402 | | Load 0x2,0x2
01dd 01d6 | | Execute Vector,Field_Write
01de 3ffb |? | Loop_Increasing 0x1da
01df 00db | | Load_Top At_Offset_3
01e0 00d9 | | Load_Top At_Offset_1
01e1 00d9 | | Load_Top At_Offset_1
01e2 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
01e3 0119 | | Execute Any,Check_In_Formal_Type
01e4 00d1 | | Pop_Control Pop_Count_1
01e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e6 4800 |H | Short_Literal 0x0
01e7 00db | | Load_Top At_Offset_3
01e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e9 e223 | # | Load 0x1,0x23
01ea 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
01eb 0337 | 7 | Declare_Variable Array
01ec 4880 |H | Short_Literal 0x80
01ed 4801 |H | Short_Literal 0x1
01ee 4820 |H | Short_Literal 0x20
01ef 00d9 | | Load_Top At_Offset_1
01f0 e402 | | Load 0x2,0x2
01f1 01d6 | | Execute Vector,Field_Write
01f2 3ffb |? | Loop_Increasing 0x1ee
01f3 00db | | Load_Top At_Offset_3
01f4 00d9 | | Load_Top At_Offset_1
01f5 00d9 | | Load_Top At_Offset_1
01f6 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
01f7 0119 | | Execute Any,Check_In_Formal_Type
01f8 00d1 | | Pop_Control Pop_Count_1
01f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01fa 4800 |H | Short_Literal 0x0
01fb 00db | | Load_Top At_Offset_3
01fc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01fd e223 | # | Load 0x1,0x23
01fe 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
01ff 0337 | 7 | Declare_Variable Array
0200 4880 |H | Short_Literal 0x80
0201 4801 |H | Short_Literal 0x1
0202 4820 |H | Short_Literal 0x20
0203 00d9 | | Load_Top At_Offset_1
0204 e402 | | Load 0x2,0x2
0205 01d6 | | Execute Vector,Field_Write
0206 3ffb |? | Loop_Increasing 0x202
0207 00db | | Load_Top At_Offset_3
0208 00d9 | | Load_Top At_Offset_1
0209 00d9 | | Load_Top At_Offset_1
020a 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
020b 0119 | | Execute Any,Check_In_Formal_Type
020c 00d1 | | Pop_Control Pop_Count_1
020d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
020e 4800 |H | Short_Literal 0x0
020f 00db | | Load_Top At_Offset_3
0210 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0212 0869 | i | Execute_Immediate Raise,0x69
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 700d |p | Jump_Nonzero 0x22a
021d e011 | | Load 0x0,0x11
021e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
021f 6010 |` | Indirect_Literal Discrete,0x230,{0x00000000, 0x0000813c}
0220 e002 | | Load 0x0,0x2
0221 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0222 a5fd | | Store_Unchecked 0x2,-0x3
0223 00db | | Load_Top At_Offset_3
0224 e011 | | Load 0x0,0x11
0225 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0226 6009 |` | Indirect_Literal Discrete,0x230,{0x00000000, 0x0000813c}
0227 e002 | | Load 0x0,0x2
0228 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0229 4503 |E | Exit_Suprogram New_Top_Offset 0x3
022a 4800 |H | Short_Literal 0x0
022b a5fd | | Store_Unchecked 0x2,-0x3
022c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 0000 0000 | | .LITERAL {0x00000000, 0x0000813c}
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c e221 | ! | Load 0x1,0x21
023d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
023e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
023f e011 | | Load 0x0,0x11
0240 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0242 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
024c 0227 | ' | Execute Access,All_Reference
024d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024e 00d8 | | Load_Top At_Offset_0
024f 0120 | | Execute Any,Is_Value
0250 7002 |p | Jump_Nonzero 0x253
0251 00d8 | | Load_Top At_Offset_0
0252 011e | | Execute Any,Convert
0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025f | _ | .CONST 0x025f ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e221 | ! | Load 0x1,0x21
025d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
025e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
025f BODY_0258:
025f 00d8 | | Load_Top At_Offset_0
0260 01dd | | Execute Vector,First
0261 00d9 | | Load_Top At_Offset_1
0262 01d7 | | Execute Vector,Field_Read
0263 0f2e | . | Execute_Immediate Equal,0x2e
0264 680d |h | Jump_Zero 0x272
0265 00d8 | | Load_Top At_Offset_0
0266 01dd | | Execute Vector,First
0267 0a01 | | Execute_Immediate Plus,0x1
0268 00d8 | | Load_Top At_Offset_0
0269 00e2 | | Load_Encached Integer_Cache
026a 0260 | ` | Execute Discrete,In_Type
026b 7001 |p | Jump_Nonzero 0x26d
026c 0801 | | Execute_Immediate Raise,0x1
026d 00d9 | | Load_Top At_Offset_1
026e 01dc | | Execute Vector,Last
026f 00da | | Load_Top At_Offset_2
0270 01cf | | Execute Vector,Slice_Read
0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0272 00d8 | | Load_Top At_Offset_0
0273 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f | | .CONST 0x027f ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c e221 | ! | Load 0x1,0x21
027d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
027e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
027f BODY_0278:
027f 00d8 | | Load_Top At_Offset_0
0280 01dd | | Execute Vector,First
0281 00d9 | | Load_Top At_Offset_1
0282 01d7 | | Execute Vector,Field_Read
0283 0f2e | . | Execute_Immediate Equal,0x2e
0284 6810 |h | Jump_Zero 0x295
0285 00d8 | | Load_Top At_Offset_0
0286 01dd | | Execute Vector,First
0287 0a01 | | Execute_Immediate Plus,0x1
0288 00d8 | | Load_Top At_Offset_0
0289 00e2 | | Load_Encached Integer_Cache
028a 0260 | ` | Execute Discrete,In_Type
028b 7001 |p | Jump_Nonzero 0x28d
028c 0801 | | Execute_Immediate Raise,0x1
028d 00d9 | | Load_Top At_Offset_1
028e 01dc | | Execute Vector,Last
028f 00da | | Load_Top At_Offset_2
0290 01cf | | Execute Vector,Slice_Read
0291 e001 | | Load 0x0,0x1
0292 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0293 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0294 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0295 00d8 | | Load_Top At_Offset_0
0296 e001 | | Load 0x0,0x1
0297 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0298 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0299 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029a 0000 0000 | | .BLANK 0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e224 | $ | Load 0x1,0x24
02a4 4801 |H | Short_Literal 0x1
02a5 e5ff | | Load 0x2,-0x1
02a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a7 e5ff | | Load 0x2,-0x1
02a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a9 01cf | | Execute Vector,Slice_Read
02aa 01cc | | Execute Vector,Catenate
02ab 0092 05b2 | | Action Push_String_Extended,0x5b2 ; " "
02ad 01cc | | Execute Vector,Catenate
02ae e225 | % | Load 0x1,0x25
02af 01cc | | Execute Vector,Catenate
02b0 4801 |H | Short_Literal 0x1
02b1 e5ff | | Load 0x2,-0x1
02b2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02b3 e5ff | | Load 0x2,-0x1
02b4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02b5 01cf | | Execute Vector,Slice_Read
02b6 01cc | | Execute Vector,Catenate
02b7 0092 05b2 | | Action Push_String_Extended,0x5b2 ; " "
02b9 01cc | | Execute Vector,Catenate
02ba e226 | & | Load 0x1,0x26
02bb 01cc | | Execute Vector,Catenate
02bc 4801 |H | Short_Literal 0x1
02bd e5ff | | Load 0x2,-0x1
02be 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
02bf e5ff | | Load 0x2,-0x1
02c0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
02c1 01cf | | Execute Vector,Slice_Read
02c2 01cc | | Execute Vector,Catenate
02c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d3 | | .CONST 0x02d3 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0005 | | .CONST 0x0005 ; Number of locals
02cb INIT_02c8:
02cb e223 | # | Load 0x1,0x23
02cc 0322 | " | Declare_Variable Record
02cd 00d8 | | Load_Top At_Offset_0
02ce 1c00 | | Execute_Immediate Run_Utility,0x0
02cf 00e3 | | Load_Encached Natural_Cache
02d0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02d1 03e9 | | Declare_Variable Discrete,Duplicate
02d2 03e9 | | Declare_Variable Discrete,Duplicate
02d3 BODY_02c8:
02d3 4801 |H | Short_Literal 0x1
02d4 e5ff | | Load 0x2,-0x1
02d5 e224 | $ | Load 0x1,0x24
02d6 e00f | | Load 0x0,0xf
02d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02d8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02d9 4801 |H | Short_Literal 0x1
02da e5ff | | Load 0x2,-0x1
02db e225 | % | Load 0x1,0x25
02dc e00f | | Load 0x0,0xf
02dd 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02de 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02df 4801 |H | Short_Literal 0x1
02e0 e5ff | | Load 0x2,-0x1
02e1 e226 | & | Load 0x1,0x26
02e2 e00f | | Load 0x0,0xf
02e3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02e4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02e5 00d9 | | Load_Top At_Offset_1
02e6 0af7 | | Execute_Immediate Plus,-0x9
02e7 00db | | Load_Top At_Offset_3
02e8 0272 | r | Execute Discrete,Minus
02e9 0aff | | Execute_Immediate Plus,-0x1
02ea e402 | | Load 0x2,0x2
02eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ec 00d8 | | Load_Top At_Offset_0
02ed 0af7 | | Execute_Immediate Plus,-0x9
02ee 00da | | Load_Top At_Offset_2
02ef 0272 | r | Execute Discrete,Minus
02f0 0aff | | Execute_Immediate Plus,-0x1
02f1 e402 | | Load 0x2,0x2
02f2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02f3 e5ff | | Load 0x2,-0x1
02f4 01dc | | Execute Vector,Last
02f5 00d9 | | Load_Top At_Offset_1
02f6 0272 | r | Execute Discrete,Minus
02f7 e402 | | Load 0x2,0x2
02f8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02f9 00da | | Load_Top At_Offset_2
02fa 0a01 | | Execute_Immediate Plus,0x1
02fb 00d8 | | Load_Top At_Offset_0
02fc 00e2 | | Load_Encached Integer_Cache
02fd 0260 | ` | Execute Discrete,In_Type
02fe 7001 |p | Jump_Nonzero 0x300
02ff 0801 | | Execute_Immediate Raise,0x1
0300 00db | | Load_Top At_Offset_3
0301 e402 | | Load 0x2,0x2
0302 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0303 0273 | s | Execute Discrete,Plus
0304 00d8 | | Load_Top At_Offset_0
0305 00e2 | | Load_Encached Integer_Cache
0306 0260 | ` | Execute Discrete,In_Type
0307 7001 |p | Jump_Nonzero 0x309
0308 0801 | | Execute_Immediate Raise,0x1
0309 e5ff | | Load 0x2,-0x1
030a 01cf | | Execute Vector,Slice_Read
030b 4801 |H | Short_Literal 0x1
030c e402 | | Load 0x2,0x2
030d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030e e402 | | Load 0x2,0x2
030f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0310 01ce | | Execute Vector,Slice_Write
0311 00d9 | | Load_Top At_Offset_1
0312 0a01 | | Execute_Immediate Plus,0x1
0313 00d8 | | Load_Top At_Offset_0
0314 00e2 | | Load_Encached Integer_Cache
0315 0260 | ` | Execute Discrete,In_Type
0316 7001 |p | Jump_Nonzero 0x318
0317 0801 | | Execute_Immediate Raise,0x1
0318 00da | | Load_Top At_Offset_2
0319 e402 | | Load 0x2,0x2
031a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
031b 0273 | s | Execute Discrete,Plus
031c 00d8 | | Load_Top At_Offset_0
031d 00e2 | | Load_Encached Integer_Cache
031e 0260 | ` | Execute Discrete,In_Type
031f 7001 |p | Jump_Nonzero 0x321
0320 0801 | | Execute_Immediate Raise,0x1
0321 e5ff | | Load 0x2,-0x1
0322 01cf | | Execute Vector,Slice_Read
0323 4801 |H | Short_Literal 0x1
0324 e402 | | Load 0x2,0x2
0325 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0326 e402 | | Load 0x2,0x2
0327 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0328 01ce | | Execute Vector,Slice_Write
0329 00d8 | | Load_Top At_Offset_0
032a 0a01 | | Execute_Immediate Plus,0x1
032b 00d8 | | Load_Top At_Offset_0
032c 00e2 | | Load_Encached Integer_Cache
032d 0260 | ` | Execute Discrete,In_Type
032e 7001 |p | Jump_Nonzero 0x330
032f 0801 | | Execute_Immediate Raise,0x1
0330 00d9 | | Load_Top At_Offset_1
0331 e402 | | Load 0x2,0x2
0332 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0333 0273 | s | Execute Discrete,Plus
0334 00d8 | | Load_Top At_Offset_0
0335 00e2 | | Load_Encached Integer_Cache
0336 0260 | ` | Execute Discrete,In_Type
0337 7001 |p | Jump_Nonzero 0x339
0338 0801 | | Execute_Immediate Raise,0x1
0339 e5ff | | Load 0x2,-0x1
033a 01cf | | Execute Vector,Slice_Read
033b 4801 |H | Short_Literal 0x1
033c e402 | | Load 0x2,0x2
033d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
033e e402 | | Load 0x2,0x2
033f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0340 01ce | | Execute Vector,Slice_Write
0341 00db | | Load_Top At_Offset_3
0342 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
034d 4820 |H | Short_Literal 0x20
034e 4803 |H | Short_Literal 0x3
034f 480a |H | Short_Literal 0xa
0350 e5ff | | Load 0x2,-0x1
0351 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0352 e00a | | Load 0x0,0xa
0353 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0354 e00f | | Load 0x0,0xf
0355 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0356 e5ff | | Load 0x2,-0x1
0357 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0358 e00a | | Load 0x0,0xa
0359 1813 | | Execute Package,Field_Execute,Field_Number 0x13
035a 01cc | | Execute Vector,Catenate
035b 01cb | | Execute Vector,Append
035c 4820 |H | Short_Literal 0x20
035d 4803 |H | Short_Literal 0x3
035e 480a |H | Short_Literal 0xa
035f e5ff | | Load 0x2,-0x1
0360 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0361 e00a | | Load 0x0,0xa
0362 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0363 e00f | | Load 0x0,0xf
0364 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0365 01cc | | Execute Vector,Catenate
0366 00db | | Load_Top At_Offset_3
0367 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0368 e00a | | Load 0x0,0xa
0369 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036a 01cc | | Execute Vector,Catenate
036b 4820 |H | Short_Literal 0x20
036c 4803 |H | Short_Literal 0x3
036d 480a |H | Short_Literal 0xa
036e e5ff | | Load 0x2,-0x1
036f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0370 e00a | | Load 0x0,0xa
0371 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0372 e00f | | Load 0x0,0xf
0373 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0374 01cc | | Execute Vector,Catenate
0375 00db | | Load_Top At_Offset_3
0376 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0377 e00a | | Load 0x0,0xa
0378 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0379 01cc | | Execute Vector,Catenate
037a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037b 0000 0000 | | .BLANK 0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0397 | | .CONST 0x0397 ; Address of begin
0381 0429 | ) | .CONST 0x0429 ; Address of exception handler
0382 0009 | | .CONST 0x0009 ; Number of locals
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 01db | | Execute Vector,Length
0385 00e3 | | Load_Encached Natural_Cache
0386 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0387 00db | | Load_Top At_Offset_3
0388 01dd | | Execute Vector,First
0389 00e3 | | Load_Encached Natural_Cache
038a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
038b 00e3 | | Load_Encached Natural_Cache
038c 00e3 | | Load_Encached Natural_Cache
038d 00e3 | | Load_Encached Natural_Cache
038e e222 | " | Load 0x1,0x22
038f 0322 | " | Declare_Variable Record
0390 00d8 | | Load_Top At_Offset_0
0391 1c00 | | Execute_Immediate Run_Utility,0x0
0392 e222 | " | Load 0x1,0x22
0393 0322 | " | Declare_Variable Record
0394 00d8 | | Load_Top At_Offset_0
0395 1c00 | | Execute_Immediate Run_Utility,0x0
0396 00e1 | | Load_Encached Boolean_Cache
0397 BODY_0380:
0397 00e1 | | Load_Encached Boolean_Cache
0398 00e2 | | Load_Encached Integer_Cache
0399 480a |H | Short_Literal 0xa
039a e403 | | Load 0x2,0x3
039b 00d8 | | Load_Top At_Offset_0
039c 0a02 | | Execute_Immediate Plus,0x2
039d 00d8 | | Load_Top At_Offset_0
039e 00e2 | | Load_Encached Integer_Cache
039f 0260 | ` | Execute Discrete,In_Type
03a0 7001 |p | Jump_Nonzero 0x3a2
03a1 0801 | | Execute_Immediate Raise,0x1
03a2 e5ff | | Load 0x2,-0x1
03a3 01cf | | Execute Vector,Slice_Read
03a4 e00f | | Load 0x0,0xf
03a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a6 c406 | | Store 0x2,0x6
03a7 0059 | Y | Store_Top Discrete,At_Offset_1
03a8 00d8 | | Load_Top At_Offset_0
03a9 7001 |p | Jump_Nonzero 0x3ab
03aa 08e0 | | Execute_Immediate Raise,0xe0
03ab e403 | | Load 0x2,0x3
03ac 0a03 | | Execute_Immediate Plus,0x3
03ad c403 | | Store 0x2,0x3
03ae 00da | | Load_Top At_Offset_2
03af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b0 e403 | | Load 0x2,0x3
03b1 00d8 | | Load_Top At_Offset_0
03b2 e406 | | Load 0x2,0x6
03b3 0273 | s | Execute Discrete,Plus
03b4 0aff | | Execute_Immediate Plus,-0x1
03b5 00d8 | | Load_Top At_Offset_0
03b6 00e2 | | Load_Encached Integer_Cache
03b7 0260 | ` | Execute Discrete,In_Type
03b8 7001 |p | Jump_Nonzero 0x3ba
03b9 0801 | | Execute_Immediate Raise,0x1
03ba e5ff | | Load 0x2,-0x1
03bb 01cf | | Execute Vector,Slice_Read
03bc e00a | | Load 0x0,0xa
03bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03be 00d1 | | Pop_Control Pop_Count_1
03bf e403 | | Load 0x2,0x3
03c0 e406 | | Load 0x2,0x6
03c1 0273 | s | Execute Discrete,Plus
03c2 c403 | | Store 0x2,0x3
03c3 e403 | | Load 0x2,0x3
03c4 e5ff | | Load 0x2,-0x1
03c5 01d7 | | Execute Vector,Field_Read
03c6 00db | | Load_Top At_Offset_3
03c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03c8 e403 | | Load 0x2,0x3
03c9 0a01 | | Execute_Immediate Plus,0x1
03ca c403 | | Store 0x2,0x3
03cb 00e1 | | Load_Encached Boolean_Cache
03cc 00e2 | | Load_Encached Integer_Cache
03cd 480a |H | Short_Literal 0xa
03ce e403 | | Load 0x2,0x3
03cf 00d8 | | Load_Top At_Offset_0
03d0 0a02 | | Execute_Immediate Plus,0x2
03d1 00d8 | | Load_Top At_Offset_0
03d2 00e2 | | Load_Encached Integer_Cache
03d3 0260 | ` | Execute Discrete,In_Type
03d4 7001 |p | Jump_Nonzero 0x3d6
03d5 0801 | | Execute_Immediate Raise,0x1
03d6 e5ff | | Load 0x2,-0x1
03d7 01cf | | Execute Vector,Slice_Read
03d8 e00f | | Load 0x0,0xf
03d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03da c404 | | Store 0x2,0x4
03db 0059 | Y | Store_Top Discrete,At_Offset_1
03dc 00d8 | | Load_Top At_Offset_0
03dd 7001 |p | Jump_Nonzero 0x3df
03de 08e0 | | Execute_Immediate Raise,0xe0
03df e403 | | Load 0x2,0x3
03e0 0a03 | | Execute_Immediate Plus,0x3
03e1 c403 | | Store 0x2,0x3
03e2 00da | | Load_Top At_Offset_2
03e3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03e4 e403 | | Load 0x2,0x3
03e5 00d8 | | Load_Top At_Offset_0
03e6 e404 | | Load 0x2,0x4
03e7 0273 | s | Execute Discrete,Plus
03e8 0aff | | Execute_Immediate Plus,-0x1
03e9 00d8 | | Load_Top At_Offset_0
03ea 00e2 | | Load_Encached Integer_Cache
03eb 0260 | ` | Execute Discrete,In_Type
03ec 7001 |p | Jump_Nonzero 0x3ee
03ed 0801 | | Execute_Immediate Raise,0x1
03ee e5ff | | Load 0x2,-0x1
03ef 01cf | | Execute Vector,Slice_Read
03f0 e00a | | Load 0x0,0xa
03f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03f2 00d1 | | Pop_Control Pop_Count_1
03f3 e403 | | Load 0x2,0x3
03f4 e404 | | Load 0x2,0x4
03f5 0273 | s | Execute Discrete,Plus
03f6 c403 | | Store 0x2,0x3
03f7 00e1 | | Load_Encached Boolean_Cache
03f8 00e2 | | Load_Encached Integer_Cache
03f9 480a |H | Short_Literal 0xa
03fa e403 | | Load 0x2,0x3
03fb 00d8 | | Load_Top At_Offset_0
03fc 0a02 | | Execute_Immediate Plus,0x2
03fd 00d8 | | Load_Top At_Offset_0
03fe 00e2 | | Load_Encached Integer_Cache
03ff 0260 | ` | Execute Discrete,In_Type
0400 7001 |p | Jump_Nonzero 0x402
0401 0801 | | Execute_Immediate Raise,0x1
0402 e5ff | | Load 0x2,-0x1
0403 01cf | | Execute Vector,Slice_Read
0404 e00f | | Load 0x0,0xf
0405 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0406 c405 | | Store 0x2,0x5
0407 0059 | Y | Store_Top Discrete,At_Offset_1
0408 00d8 | | Load_Top At_Offset_0
0409 7001 |p | Jump_Nonzero 0x40b
040a 08e0 | | Execute_Immediate Raise,0xe0
040b e403 | | Load 0x2,0x3
040c 0a03 | | Execute_Immediate Plus,0x3
040d c403 | | Store 0x2,0x3
040e 00da | | Load_Top At_Offset_2
040f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0410 e403 | | Load 0x2,0x3
0411 00d8 | | Load_Top At_Offset_0
0412 e405 | | Load 0x2,0x5
0413 0273 | s | Execute Discrete,Plus
0414 0aff | | Execute_Immediate Plus,-0x1
0415 00d8 | | Load_Top At_Offset_0
0416 00e2 | | Load_Encached Integer_Cache
0417 0260 | ` | Execute Discrete,In_Type
0418 7001 |p | Jump_Nonzero 0x41a
0419 0801 | | Execute_Immediate Raise,0x1
041a e5ff | | Load 0x2,-0x1
041b 01cf | | Execute Vector,Slice_Read
041c e00a | | Load 0x0,0xa
041d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
041e 00d1 | | Pop_Control Pop_Count_1
041f e403 | | Load 0x2,0x3
0420 e405 | | Load 0x2,0x5
0421 0273 | s | Execute Discrete,Plus
0422 0aff | | Execute_Immediate Plus,-0x1
0423 e402 | | Load 0x2,0x2
0424 027e | ~ | Execute Discrete,Not_Equal
0425 6801 |h | Jump_Zero 0x427
0426 08e0 | | Execute_Immediate Raise,0xe0
0427 00da | | Load_Top At_Offset_2
0428 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0429 TRAP_0380:
0429 010e | | Execute Exception,Is_Constraint_Error
042a 6816 |h | Jump_Zero 0x441
042b e018 | | Load 0x0,0x18
042c 180e | | Execute Package,Field_Execute,Field_Number 0xe
042d 4801 |H | Short_Literal 0x1
042e 4801 |H | Short_Literal 0x1
042f e011 | | Load 0x0,0x11
0430 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0431 035b | [ | Declare_Type Array,Constrained
0432 0337 | 7 | Declare_Variable Array
0433 e5ff | | Load 0x2,-0x1
0434 e011 | | Load 0x0,0x11
0435 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0436 e011 | | Load 0x0,0x11
0437 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0438 0119 | | Execute Any,Check_In_Formal_Type
0439 4801 |H | Short_Literal 0x1
043a 00da | | Load_Top At_Offset_2
043b 01d6 | | Execute Vector,Field_Write
043c 6007 |` | Indirect_Literal Discrete,0x444,{0x00000000, 0x0000816a}
043d e002 | | Load 0x0,0x2
043e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
043f 00da | | Load_Top At_Offset_2
0440 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0441 0100 | | Execute Exception,Raise
0442 0000 0000 | | .XXX[0x2]
0444 0000 0000 | | .LITERAL {0x00000000, 0x0000816a}
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 822f | / | Call 0x1,0x2f
044d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044e 0000 0000 | | .XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0459 | Y | .CONST 0x0459 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0003 | | .CONST 0x0003 ; Number of locals
0453 INIT_0450:
0453 e222 | " | Load 0x1,0x22
0454 0322 | " | Declare_Variable Record
0455 00d8 | | Load_Top At_Offset_0
0456 1c00 | | Execute_Immediate Run_Utility,0x0
0457 e232 | 2 | Load 0x1,0x32
0458 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0459 BODY_0450:
0459 e5ff | | Load 0x2,-0x1
045a e232 | 2 | Load 0x1,0x32
045b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
045c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
045d 00d8 | | Load_Top At_Offset_0
045e 7002 |p | Jump_Nonzero 0x461
045f 00ea | | Load_Encached Null_String_Cache
0460 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0461 00d8 | | Load_Top At_Offset_0
0462 0217 | | Execute Heap_Access,All_Reference
0463 00da | | Load_Top At_Offset_2
0464 017d | } | Execute Record,Structure_Write
0465 00d9 | | Load_Top At_Offset_1
0466 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0467 e00a | | Load 0x0,0xa
0468 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0469 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046a 0000 0000 | | .BLANK 0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0479 | y | .CONST 0x0479 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0003 | | .CONST 0x0003 ; Number of locals
0473 INIT_0470:
0473 e222 | " | Load 0x1,0x22
0474 0322 | " | Declare_Variable Record
0475 00d8 | | Load_Top At_Offset_0
0476 1c00 | | Execute_Immediate Run_Utility,0x0
0477 e232 | 2 | Load 0x1,0x32
0478 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0479 BODY_0470:
0479 e5ff | | Load 0x2,-0x1
047a e232 | 2 | Load 0x1,0x32
047b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
047c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
047d 00d8 | | Load_Top At_Offset_0
047e 6804 |h | Jump_Zero 0x483
047f 00d8 | | Load_Top At_Offset_0
0480 0217 | | Execute Heap_Access,All_Reference
0481 00da | | Load_Top At_Offset_2
0482 017d | } | Execute Record,Structure_Write
0483 00d9 | | Load_Top At_Offset_1
0484 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0485 e5fe | | Load 0x2,-0x2
0486 e00a | | Load 0x0,0xa
0487 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0488 00d1 | | Pop_Control Pop_Count_1
0489 00d9 | | Load_Top At_Offset_1
048a e5ff | | Load 0x2,-0x1
048b e232 | 2 | Load 0x1,0x32
048c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
048d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0499 | | .CONST 0x0499 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0003 | | .CONST 0x0003 ; Number of locals
0493 INIT_0490:
0493 e222 | " | Load 0x1,0x22
0494 0322 | " | Declare_Variable Record
0495 00d8 | | Load_Top At_Offset_0
0496 1c00 | | Execute_Immediate Run_Utility,0x0
0497 e232 | 2 | Load 0x1,0x32
0498 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0499 BODY_0490:
0499 e5ff | | Load 0x2,-0x1
049a e232 | 2 | Load 0x1,0x32
049b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
049c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
049d 00d8 | | Load_Top At_Offset_0
049e 7002 |p | Jump_Nonzero 0x4a1
049f 00ea | | Load_Encached Null_String_Cache
04a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a1 00d8 | | Load_Top At_Offset_0
04a2 0217 | | Execute Heap_Access,All_Reference
04a3 00da | | Load_Top At_Offset_2
04a4 017d | } | Execute Record,Structure_Write
04a5 00d9 | | Load_Top At_Offset_1
04a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a7 0f54 | T | Execute_Immediate Equal,0x54
04a8 6805 |h | Jump_Zero 0x4ae
04a9 00d9 | | Load_Top At_Offset_1
04aa 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04ab e00a | | Load 0x0,0xa
04ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ae 00ea | | Load_Encached Null_String_Cache
04af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b9 | | .CONST 0x04b9 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0003 | | .CONST 0x0003 ; Number of locals
04b3 INIT_04b0:
04b3 e222 | " | Load 0x1,0x22
04b4 0322 | " | Declare_Variable Record
04b5 00d8 | | Load_Top At_Offset_0
04b6 1c00 | | Execute_Immediate Run_Utility,0x0
04b7 e232 | 2 | Load 0x1,0x32
04b8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04b9 BODY_04b0:
04b9 e5ff | | Load 0x2,-0x1
04ba e232 | 2 | Load 0x1,0x32
04bb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04bc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04bd 00d8 | | Load_Top At_Offset_0
04be 7002 |p | Jump_Nonzero 0x4c1
04bf 00ea | | Load_Encached Null_String_Cache
04c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c1 00d8 | | Load_Top At_Offset_0
04c2 0217 | | Execute Heap_Access,All_Reference
04c3 00da | | Load_Top At_Offset_2
04c4 017d | } | Execute Record,Structure_Write
04c5 00d9 | | Load_Top At_Offset_1
04c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04c7 0f54 | T | Execute_Immediate Equal,0x54
04c8 6805 |h | Jump_Zero 0x4ce
04c9 00d9 | | Load_Top At_Offset_1
04ca 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04cb e00a | | Load 0x0,0xa
04cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ce 00ea | | Load_Encached Null_String_Cache
04cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d9 | | .CONST 0x04d9 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0003 | | .CONST 0x0003 ; Number of locals
04d3 INIT_04d0:
04d3 e222 | " | Load 0x1,0x22
04d4 0322 | " | Declare_Variable Record
04d5 00d8 | | Load_Top At_Offset_0
04d6 1c00 | | Execute_Immediate Run_Utility,0x0
04d7 e232 | 2 | Load 0x1,0x32
04d8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04d9 BODY_04d0:
04d9 e5ff | | Load 0x2,-0x1
04da e232 | 2 | Load 0x1,0x32
04db 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04dc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04dd 00d8 | | Load_Top At_Offset_0
04de 6804 |h | Jump_Zero 0x4e3
04df 00d8 | | Load_Top At_Offset_0
04e0 0217 | | Execute Heap_Access,All_Reference
04e1 00da | | Load_Top At_Offset_2
04e2 017d | } | Execute Record,Structure_Write
04e3 4854 |HT | Short_Literal 0x54
04e4 00da | | Load_Top At_Offset_2
04e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e6 00d9 | | Load_Top At_Offset_1
04e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04e8 e5fe | | Load 0x2,-0x2
04e9 e00a | | Load 0x0,0xa
04ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04eb 00d1 | | Pop_Control Pop_Count_1
04ec 00d9 | | Load_Top At_Offset_1
04ed e5ff | | Load 0x2,-0x1
04ee e232 | 2 | Load 0x1,0x32
04ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04f1 0000 0000 | | .BLANK 0000[0x7]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0501 | | .CONST 0x0501 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0003 | | .CONST 0x0003 ; Number of locals
04fb INIT_04f8:
04fb e222 | " | Load 0x1,0x22
04fc 0322 | " | Declare_Variable Record
04fd 00d8 | | Load_Top At_Offset_0
04fe 1c00 | | Execute_Immediate Run_Utility,0x0
04ff e232 | 2 | Load 0x1,0x32
0500 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0501 BODY_04f8:
0501 e5ff | | Load 0x2,-0x1
0502 e232 | 2 | Load 0x1,0x32
0503 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0504 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0505 00d8 | | Load_Top At_Offset_0
0506 6804 |h | Jump_Zero 0x50b
0507 00d8 | | Load_Top At_Offset_0
0508 0217 | | Execute Heap_Access,All_Reference
0509 00da | | Load_Top At_Offset_2
050a 017d | } | Execute Record,Structure_Write
050b 4854 |HT | Short_Literal 0x54
050c 00da | | Load_Top At_Offset_2
050d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
050e 00d9 | | Load_Top At_Offset_1
050f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0510 e5fe | | Load 0x2,-0x2
0511 e00a | | Load 0x0,0xa
0512 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0513 00d1 | | Pop_Control Pop_Count_1
0514 00d9 | | Load_Top At_Offset_1
0515 e5ff | | Load 0x2,-0x1
0516 e232 | 2 | Load 0x1,0x32
0517 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0518 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0519 0000 0000 | | .BLANK 0000[0x7]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0529 | ) | .CONST 0x0529 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0003 | | .CONST 0x0003 ; Number of locals
0523 INIT_0520:
0523 e222 | " | Load 0x1,0x22
0524 0322 | " | Declare_Variable Record
0525 00d8 | | Load_Top At_Offset_0
0526 1c00 | | Execute_Immediate Run_Utility,0x0
0527 e232 | 2 | Load 0x1,0x32
0528 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0529 BODY_0520:
0529 e5ff | | Load 0x2,-0x1
052a e232 | 2 | Load 0x1,0x32
052b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
052c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
052d 00d8 | | Load_Top At_Offset_0
052e 7001 |p | Jump_Nonzero 0x530
052f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0530 00d8 | | Load_Top At_Offset_0
0531 0217 | | Execute Heap_Access,All_Reference
0532 00da | | Load_Top At_Offset_2
0533 017d | } | Execute Record,Structure_Write
0534 4846 |HF | Short_Literal 0x46
0535 00da | | Load_Top At_Offset_2
0536 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0537 00d9 | | Load_Top At_Offset_1
0538 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0539 00ea | | Load_Encached Null_String_Cache
053a e00a | | Load 0x0,0xa
053b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
053c 00d1 | | Pop_Control Pop_Count_1
053d 00d9 | | Load_Top At_Offset_1
053e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
053f 00ea | | Load_Encached Null_String_Cache
0540 e00a | | Load 0x0,0xa
0541 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0542 00d1 | | Pop_Control Pop_Count_1
0543 00d9 | | Load_Top At_Offset_1
0544 e5ff | | Load 0x2,-0x1
0545 e232 | 2 | Load 0x1,0x32
0546 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0547 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0550 | P | .CONST 0x0550 ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0002 | | .CONST 0x0002 ; Number of locals
054b INIT_0548:
054b e001 | | Load 0x0,0x1
054c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054d 02c7 | | Declare_Variable Any
054e 00d8 | | Load_Top At_Offset_0
054f 1c00 | | Execute_Immediate Run_Utility,0x0
0550 BODY_0548:
0550 e5fd | | Load 0x2,-0x3
0551 00d9 | | Load_Top At_Offset_1
0552 0120 | | Execute Any,Is_Value
0553 6803 |h | Jump_Zero 0x557
0554 e001 | | Load 0x0,0x1
0555 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0556 7801 |x | Jump 0x558
0557 00d9 | | Load_Top At_Offset_1
0558 e5ff | | Load 0x2,-0x1
0559 e221 | ! | Load 0x1,0x21
055a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
055b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
055c c402 | | Store 0x2,0x2
055d c5fd | | Store 0x2,-0x3
055e e5fd | | Load 0x2,-0x3
055f e5fe | | Load 0x2,-0x2
0560 e008 | | Load 0x0,0x8
0561 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0562 e5ff | | Load 0x2,-0x1
0563 e221 | ! | Load 0x1,0x21
0564 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0565 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0566 00d8 | | Load_Top At_Offset_0
0567 00e4 | | Load_Encached Positive_Cache
0568 0260 | ` | Execute Discrete,In_Type
0569 7001 |p | Jump_Nonzero 0x56b
056a 0801 | | Execute_Immediate Raise,0x1
056b 00db | | Load_Top At_Offset_3
056c e5fe | | Load 0x2,-0x2
056d e008 | | Load 0x0,0x8
056e 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
056f e5ff | | Load 0x2,-0x1
0570 e221 | ! | Load 0x1,0x21
0571 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0572 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0573 c5fd | | Store 0x2,-0x3
0574 4800 |H | Short_Literal 0x0
0575 e5fd | | Load 0x2,-0x3
0576 e002 | | Load 0x0,0x2
0577 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0578 680a |h | Jump_Zero 0x583
0579 e5fd | | Load 0x2,-0x3
057a e5fe | | Load 0x2,-0x2
057b e008 | | Load 0x0,0x8
057c 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
057d 4801 |H | Short_Literal 0x1
057e e5ff | | Load 0x2,-0x1
057f e221 | ! | Load 0x1,0x21
0580 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0581 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0582 c5fd | | Store 0x2,-0x3
0583 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0584 0000 0000 | | .BLANK 0000[0x4]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b 4608 |F | Jump_Case 0x9
058c 7808 |x | Jump 0x595 ; case 0x0
058d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
058e 781d |x | Jump 0x5ac ; case 0x2
058f 781c |x | Jump 0x5ac ; case 0x3
0590 781b |x | Jump 0x5ac ; case 0x4
0591 781a |x | Jump 0x5ac ; case 0x5
0592 7819 |x | Jump 0x5ac ; case 0x6
0593 7805 |x | Jump 0x599 ; case 0x7
0594 780d |x | Jump 0x5a2 ; case 0x8
0595 00da | | Load_Top At_Offset_2
0596 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0597 1c00 | | Execute_Immediate Run_Utility,0x0
0598 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0599 00db | | Load_Top At_Offset_3
059a 4801 |H | Short_Literal 0x1
059b e5fe | | Load 0x2,-0x2
059c e20f | | Load 0x1,0xf
059d 035b | [ | Declare_Type Array,Constrained
059e 4801 |H | Short_Literal 0x1
059f e5ff | | Load 0x2,-0x1
05a0 031b | | Declare_Type Variant_Record,Constrained
05a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05a2 00db | | Load_Top At_Offset_3
05a3 00db | | Load_Top At_Offset_3
05a4 02fc | | Declare_Variable Variant_Record,With_Constraint
05a5 4801 |H | Short_Literal 0x1
05a6 e5fe | | Load 0x2,-0x2
05a7 e20f | | Load 0x1,0xf
05a8 0334 | 4 | Declare_Variable Array,With_Constraint
05a9 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
05aa 016a | j | QQ_execute Variant_Record,XXX
05ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05ac 0869 | i | Execute_Immediate Raise,0x69
05ad ; --------------------------------------------------------------------------------------
05ad ; STRING TABLE
05ad ; --------------------------------------------------------------------------------------
05ad 000e | | .STRTAB 0x000e->0x05b4 ; "!Machine.target_Builder.rcf_errors"
05ae 002e | . | .STRTAB 0x002e->0x05c5 ; "error '~@~' (~#~) ~1 (no arguments given)~ ~2~ ~3~"
05af 005e | ^ | .STRTAB 0x005e->0x05de ; "Compiler = "
05b0 0067 | g | .STRTAB 0x0067->0x05e3 ; "Linker = "
05b1 006e | n | .STRTAB 0x006e->0x05e8 ; "Loader = "
05b2 0075 | u | .STRTAB 0x0075->0x05ec ; " "
05b3 0074 | t | .STREND 0x0074->0x05ed
05b4 214d 6163 |!Mac| .STRTAB_STRINGS
05ed 0000 0000 | | .XXX[0x3]
05ef 0000 | |
05f0 ; --------------------------------------------------------------------------------------
05f0 ; Debug Table
05f0 ; --------------------------------------------------------------------------------------
05f0 0004 000d | | .DEBUG4 0x0004,0x000d,0x4ec2,0x0000,0x0001,0x0000
05f6 a312 0000 | | .XXX[0xa]
05f8 8d45 008f | E |
05fa 3ed1 008f |> |
05fc 3fd1 0006 |? |
05fe a3be 0000 | |