|
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_0658fb
└─⟦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 04a0 | | .CONST 0x04a0 ; 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 00a8 | | .CONST 0x00a8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003c | < | .CONST 0x003c ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 4818 |H | Short_Literal 0x18 000e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 e001 | | Load 0x0,0x1 0012 0129 | ) | Execute Any,Make_Visible 0013 e002 | | Load 0x0,0x2 0014 0129 | ) | Execute Any,Make_Visible 0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0017 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0019 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 001f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0021 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0023 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0025 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0027 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0029 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 002b 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 002d 4802 |H | Short_Literal 0x2 002e 032a | * | Declare_Type Record,Incomplete 002f 4804 |H | Short_Literal 0x4 0030 032a | * | Declare_Type Record,Incomplete 0031 00d8 | | Load_Top At_Offset_0 0032 02a0 | | Declare_Subprogram Null_Subprogram 0033 4818 |H | Short_Literal 0x18 0034 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0035 00d8 | | Load_Top At_Offset_0 0036 0221 | ! | Execute Access,Allow_Deallocate 0037 00da | | Load_Top At_Offset_2 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 e212 | | Load 0x1,0x12 003a 03c7 | | Complete_Type Access,By_Defining 003b e212 | | Load 0x1,0x12 003c 0221 | ! | Execute Access,Allow_Deallocate 003d e212 | | Load 0x1,0x12 003e 0129 | ) | Execute Any,Make_Visible 003f c214 | | Store 0x1,0x14 0040 e212 | | Load 0x1,0x12 0041 00d9 | | Load_Top At_Offset_1 0042 00e3 | | Load_Encached Natural_Cache 0043 029f 048b | | Declare_Subprogram INIT_0488,For_Call 0045 4803 |H | Short_Literal 0x3 0046 032d | - | Declare_Type Record,Defined 0047 00d8 | | Load_Top At_Offset_0 0048 02a0 | | Declare_Subprogram Null_Subprogram 0049 e213 | | Load 0x1,0x13 004a 03c7 | | Complete_Type Access,By_Defining 004b e213 | | Load 0x1,0x13 004c 0129 | ) | Execute Any,Make_Visible 004d c215 | | Store 0x1,0x15 004e 00bf | | Action Accept_Activation 004f 00e3 | | Load_Encached Natural_Cache 0050 0266 | f | Execute Discrete,Bounds 0051 00e3 | | Load_Encached Natural_Cache 0052 02a0 | | Declare_Subprogram Null_Subprogram 0053 4801 |H | Short_Literal 0x1 0054 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0055 00e9 | | Load_Encached String_Cache 0056 02a0 | | Declare_Subprogram Null_Subprogram 0057 4818 |H | Short_Literal 0x18 0058 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0059 00d8 | | Load_Top At_Offset_0 005a 0221 | ! | Execute Access,Allow_Deallocate 005b 00e3 | | Load_Encached Natural_Cache 005c 00d9 | | Load_Top At_Offset_1 005d e20f | | Load 0x1,0xf 005e e226 | & | Load 0x1,0x26 005f 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 0061 e225 | % | Load 0x1,0x25 0062 0326 | & | Complete_Type Record,By_Defining 0063 4800 |H | Short_Literal 0x0 0064 e210 | | Load 0x1,0x10 0065 0aff | | Execute_Immediate Plus,-0x1 0066 00e3 | | Load_Encached Natural_Cache 0067 025d | ] | Execute Discrete,Bounds_Check 0068 e226 | & | Load 0x1,0x26 0069 02a0 | | Declare_Subprogram Null_Subprogram 006a 4801 |H | Short_Literal 0x1 006b 035d | ] | Declare_Type Array,Defined 006c 00e3 | | Load_Encached Natural_Cache 006d 00d9 | | Load_Top At_Offset_1 006e 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 0070 e224 | $ | Load 0x1,0x24 0071 0326 | & | Complete_Type Record,By_Defining 0072 a003 | | Store_Unchecked 0x0,0x3 0073 00c6 | | Action Check_Subprogram_Elaborated 0074 00e9 | | Load_Encached String_Cache 0075 00da | | Load_Top At_Offset_2 0076 e004 | | Load 0x0,0x4 0077 e005 | | Load 0x0,0x5 0078 4800 |H | Short_Literal 0x0 0079 0007 | | Action Break_Optional 007a a003 | | Store_Unchecked 0x0,0x3 007b 00c6 | | Action Check_Subprogram_Elaborated 007c e225 | % | Load 0x1,0x25 007d e226 | & | Load 0x1,0x26 007e e006 | | Load 0x0,0x6 007f e007 | | Load 0x0,0x7 0080 4800 |H | Short_Literal 0x0 0081 0007 | | Action Break_Optional 0082 a003 | | Store_Unchecked 0x0,0x3 0083 00c6 | | Action Check_Subprogram_Elaborated 0084 e224 | $ | Load 0x1,0x24 0085 e212 | | Load 0x1,0x12 0086 e008 | | Load 0x0,0x8 0087 e009 | | Load 0x0,0x9 0088 4800 |H | Short_Literal 0x0 0089 0007 | | Action Break_Optional 008a 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 008c 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 008e 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 0090 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0091 00c7 | | Action Elaborate_Subprogram 0092 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0093 00c7 | | Action Elaborate_Subprogram 0094 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0099 00c7 | | Action Elaborate_Subprogram 009a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 009b 00c7 | | Action Elaborate_Subprogram 009c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00a7 00c7 | | Action Elaborate_Subprogram 00a8 BODY_0008: 00a8 00bc | | Action Signal_Activated 00a9 00bb | | Action Signal_Completion 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e212 | | Load 0x1,0x12 00b4 03bc | | Declare_Variable Access,By_Allocation 00b5 00d8 | | Load_Top At_Offset_0 00b6 0227 | ' | Execute Access,All_Reference 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 003b | ; | Store_Top Access,At_Offset_3 00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c7 | | .CONST 0x00c7 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 e226 | & | Load 0x1,0x26 00c4 0007 | | Action Break_Optional 00c5 00d8 | | Load_Top At_Offset_0 00c6 0007 | | Action Break_Optional 00c7 BODY_00c0: 00c7 e5ff | | Load 0x2,-0x1 00c8 0227 | ' | Execute Access,All_Reference 00c9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ca 0c01 | | Execute_Immediate Greater_Equal,0x1 00cb 682d |h- | Jump_Zero 0xf9 00cc 00cf | | Action Mark_Auxiliary 00cd e5ff | | Load 0x2,-0x1 00ce 0227 | ' | Execute Access,All_Reference 00cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00d0 01d9 | | Execute Vector,Reverse_Bounds 00d1 0263 | c | Execute Discrete,Above_Bound 00d2 7025 |p% | Jump_Nonzero 0xf8 00d3 00d8 | | Load_Top At_Offset_0 00d4 e5ff | | Load 0x2,-0x1 00d5 0227 | ' | Execute Access,All_Reference 00d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00d7 01d7 | | Execute Vector,Field_Read 00d8 a402 | | Store_Unchecked 0x2,0x2 00d9 00cf | | Action Mark_Auxiliary 00da 7818 |x | Jump 0xf3 00db e402 | | Load 0x2,0x2 00dc 0227 | ' | Execute Access,All_Reference 00dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00de a403 | | Store_Unchecked 0x2,0x3 00df e402 | | Load 0x2,0x2 00e0 0229 | ) | Execute Access,All_Read 00e1 00d8 | | Load_Top At_Offset_0 00e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e3 e22b | + | Load 0x1,0x2b 00e4 e22c | , | Load 0x1,0x2c 00e5 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00e6 8003 | | Call 0x0,0x3 00e7 00d9 | | Load_Top At_Offset_1 00e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e9 00d1 | | Pop_Control Pop_Count_1 00ea e402 | | Load 0x2,0x2 00eb e230 | 0 | Load 0x1,0x30 00ec e231 | 1 | Load 0x1,0x31 00ed 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00ee 8003 | | Call 0x0,0x3 00ef c402 | | Store 0x2,0x2 00f0 e403 | | Load 0x2,0x3 00f1 a402 | | Store_Unchecked 0x2,0x2 00f2 00c9 | | Action Pop_Auxiliary_Loop 00f3 e402 | | Load 0x2,0x2 00f4 77e6 |w | Jump_Nonzero 0xdb 00f5 00ce | | Action Pop_Auxiliary 00f6 00c8 | | Action Pop_Auxiliary_Range 00f7 3fdb |? | Loop_Increasing 0xd3 00f8 00ce | | Action Pop_Auxiliary 00f9 e5ff | | Load 0x2,-0x1 00fa e235 | 5 | Load 0x1,0x35 00fb e236 | 6 | Load 0x1,0x36 00fc 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00fd 8003 | | Call 0x0,0x3 00fe c5ff | | Store 0x2,-0x1 00ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 0227 | ' | Execute Access,All_Reference 0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0106 0f00 | | Execute_Immediate Equal,0x0 0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0119 | | .CONST 0x0119 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0004 | | .CONST 0x0004 ; Number of locals 010b INIT_0108: 010b 00db | | Load_Top At_Offset_3 010c 823a | : | Call 0x1,0x3a 010d 00e3 | | Load_Encached Natural_Cache 010e 03f1 | | Declare_Variable Discrete,With_Value 010f e226 | & | Load 0x1,0x26 0110 0007 | | Action Break_Optional 0111 00d9 | | Load_Top At_Offset_1 0112 e210 | | Load 0x1,0x10 0113 026f | o | Execute Discrete,Remainder 0114 e5ff | | Load 0x2,-0x1 0115 0227 | ' | Execute Access,All_Reference 0116 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0117 01d7 | | Execute Vector,Field_Read 0118 0007 | | Action Break_Optional 0119 BODY_0108: 0119 00d8 | | Load_Top At_Offset_0 011a e226 | & | Load 0x1,0x26 011b e5fe | | Load 0x2,-0x2 011c e402 | | Load 0x2,0x2 011d 823c | < | Call 0x1,0x3c 011e 003b | ; | Store_Top Access,At_Offset_3 011f 0039 | 9 | Store_Top Access,At_Offset_1 0120 00d8 | | Load_Top At_Offset_0 0121 6807 |h | Jump_Zero 0x129 0122 00d8 | | Load_Top At_Offset_0 0123 0227 | ' | Execute Access,All_Reference 0124 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0125 c5fd | | Store 0x2,-0x3 0126 4801 |H | Short_Literal 0x1 0127 a5fc | | Store_Unchecked 0x2,-0x4 0128 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0129 4800 |H | Short_Literal 0x0 012a a5fc | | Store_Unchecked 0x2,-0x4 012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0141 | A | .CONST 0x0141 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0004 | | .CONST 0x0004 ; Number of locals 0133 INIT_0130: 0133 00db | | Load_Top At_Offset_3 0134 823a | : | Call 0x1,0x3a 0135 00e3 | | Load_Encached Natural_Cache 0136 03f1 | | Declare_Variable Discrete,With_Value 0137 e226 | & | Load 0x1,0x26 0138 0007 | | Action Break_Optional 0139 00d9 | | Load_Top At_Offset_1 013a e210 | | Load 0x1,0x10 013b 026f | o | Execute Discrete,Remainder 013c e5ff | | Load 0x2,-0x1 013d 0227 | ' | Execute Access,All_Reference 013e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 013f 01d7 | | Execute Vector,Field_Read 0140 0007 | | Action Break_Optional 0141 BODY_0130: 0141 00d8 | | Load_Top At_Offset_0 0142 e226 | & | Load 0x1,0x26 0143 e5fe | | Load 0x2,-0x2 0144 e402 | | Load 0x2,0x2 0145 823c | < | Call 0x1,0x3c 0146 003b | ; | Store_Top Access,At_Offset_3 0147 0039 | 9 | Store_Top Access,At_Offset_1 0148 00d8 | | Load_Top At_Offset_0 0149 680b |h | Jump_Zero 0x155 014a 00d8 | | Load_Top At_Offset_0 014b 0227 | ' | Execute Access,All_Reference 014c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 014d 00d8 | | Load_Top At_Offset_0 014e 0120 | | Execute Any,Is_Value 014f 7002 |p | Jump_Nonzero 0x152 0150 00d8 | | Load_Top At_Offset_0 0151 011e | | Execute Any,Convert 0152 e20f | | Load 0x1,0xf 0153 0119 | | Execute Any,Check_In_Formal_Type 0154 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0155 e217 | | Load 0x1,0x17 0156 0257 | W | Execute Discrete,Raise 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0169 | i | .CONST 0x0169 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0004 | | .CONST 0x0004 ; Number of locals 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c 823a | : | Call 0x1,0x3a 015d 00e3 | | Load_Encached Natural_Cache 015e 03f1 | | Declare_Variable Discrete,With_Value 015f e226 | & | Load 0x1,0x26 0160 0007 | | Action Break_Optional 0161 00d9 | | Load_Top At_Offset_1 0162 e210 | | Load 0x1,0x10 0163 026f | o | Execute Discrete,Remainder 0164 e5ff | | Load 0x2,-0x1 0165 0227 | ' | Execute Access,All_Reference 0166 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0167 01d7 | | Execute Vector,Field_Read 0168 0007 | | Action Break_Optional 0169 BODY_0158: 0169 00d8 | | Load_Top At_Offset_0 016a e226 | & | Load 0x1,0x26 016b e5fe | | Load 0x2,-0x2 016c e402 | | Load 0x2,0x2 016d 823c | < | Call 0x1,0x3c 016e 003b | ; | Store_Top Access,At_Offset_3 016f 0039 | 9 | Store_Top Access,At_Offset_1 0170 00d8 | | Load_Top At_Offset_0 0171 6809 |h | Jump_Zero 0x17b 0172 e5fc | | Load 0x2,-0x4 0173 6805 |h | Jump_Zero 0x179 0174 e5fd | | Load 0x2,-0x3 0175 00d9 | | Load_Top At_Offset_1 0176 0227 | ' | Execute Access,All_Reference 0177 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0178 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0179 e216 | | Load 0x1,0x16 017a 0257 | W | Execute Discrete,Raise 017b e225 | % | Load 0x1,0x25 017c 0322 | " | Declare_Variable Record 017d 00db | | Load_Top At_Offset_3 017e 00d9 | | Load_Top At_Offset_1 017f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0180 e5fe | | Load 0x2,-0x2 0181 e229 | ) | Load 0x1,0x29 0182 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0183 00d9 | | Load_Top At_Offset_1 0184 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0185 e5fd | | Load 0x2,-0x3 0186 e225 | % | Load 0x1,0x25 0187 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0188 0119 | | Execute Any,Check_In_Formal_Type 0189 00d9 | | Load_Top At_Offset_1 018a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 018b e226 | & | Load 0x1,0x26 018c 00d9 | | Load_Top At_Offset_1 018d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 018e e226 | & | Load 0x1,0x26 018f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0190 0039 | 9 | Store_Top Access,At_Offset_1 0191 00da | | Load_Top At_Offset_2 0192 e210 | | Load 0x1,0x10 0193 026f | o | Execute Discrete,Remainder 0194 005b | [ | Store_Top Discrete,At_Offset_3 0195 00da | | Load_Top At_Offset_2 0196 e5ff | | Load 0x2,-0x1 0197 0227 | ' | Execute Access,All_Reference 0198 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0199 01d7 | | Execute Vector,Field_Read 019a 00d9 | | Load_Top At_Offset_1 019b 0227 | ' | Execute Access,All_Reference 019c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 019d 00d8 | | Load_Top At_Offset_0 019e 00db | | Load_Top At_Offset_3 019f e5ff | | Load 0x2,-0x1 01a0 0227 | ' | Execute Access,All_Reference 01a1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01a2 01d6 | | Execute Vector,Field_Write 01a3 e211 | | Load 0x1,0x11 01a4 701a |p | Jump_Nonzero 0x1bf 01a5 00cf | | Action Mark_Auxiliary 01a6 00d9 | | Load_Top At_Offset_1 01a7 0227 | ' | Execute Access,All_Reference 01a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a9 0227 | ' | Execute Access,All_Reference 01aa 01d9 | | Execute Vector,Reverse_Bounds 01ab 0263 | c | Execute Discrete,Above_Bound 01ac 7011 |p | Jump_Nonzero 0x1be 01ad 00d8 | | Load_Top At_Offset_0 01ae e404 | | Load 0x2,0x4 01af 0227 | ' | Execute Access,All_Reference 01b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b1 0227 | ' | Execute Access,All_Reference 01b2 01d7 | | Execute Vector,Field_Read 01b3 e00a | | Load 0x0,0xa 01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b5 01d7 | | Execute Vector,Field_Read 01b6 00d9 | | Load_Top At_Offset_1 01b7 e404 | | Load 0x2,0x4 01b8 0227 | ' | Execute Access,All_Reference 01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ba 0227 | ' | Execute Access,All_Reference 01bb 01d6 | | Execute Vector,Field_Write 01bc 00c8 | | Action Pop_Auxiliary_Range 01bd 3fef |? | Loop_Increasing 0x1ad 01be 00ce | | Action Pop_Auxiliary 01bf 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01d4 | | .CONST 0x01d4 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0005 | | .CONST 0x0005 ; Number of locals 01c3 INIT_01c0: 01c3 00db | | Load_Top At_Offset_3 01c4 823a | : | Call 0x1,0x3a 01c5 00e3 | | Load_Encached Natural_Cache 01c6 03f1 | | Declare_Variable Discrete,With_Value 01c7 00d8 | | Load_Top At_Offset_0 01c8 e210 | | Load 0x1,0x10 01c9 026f | o | Execute Discrete,Remainder 01ca 00e3 | | Load_Encached Natural_Cache 01cb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01cc e226 | & | Load 0x1,0x26 01cd 0007 | | Action Break_Optional 01ce 00d9 | | Load_Top At_Offset_1 01cf e5ff | | Load 0x2,-0x1 01d0 0227 | ' | Execute Access,All_Reference 01d1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01d2 01d7 | | Execute Vector,Field_Read 01d3 0007 | | Action Break_Optional 01d4 BODY_01c0: 01d4 00d8 | | Load_Top At_Offset_0 01d5 e226 | & | Load 0x1,0x26 01d6 e5fe | | Load 0x2,-0x2 01d7 e402 | | Load 0x2,0x2 01d8 823c | < | Call 0x1,0x3c 01d9 003b | ; | Store_Top Access,At_Offset_3 01da 0039 | 9 | Store_Top Access,At_Offset_1 01db 00d8 | | Load_Top At_Offset_0 01dc 6823 |h# | Jump_Zero 0x200 01dd 00d9 | | Load_Top At_Offset_1 01de 7009 |p | Jump_Nonzero 0x1e8 01df 00d8 | | Load_Top At_Offset_0 01e0 0227 | ' | Execute Access,All_Reference 01e1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01e2 00db | | Load_Top At_Offset_3 01e3 e5ff | | Load 0x2,-0x1 01e4 0227 | ' | Execute Access,All_Reference 01e5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01e6 01d6 | | Execute Vector,Field_Write 01e7 7806 |x | Jump 0x1ee 01e8 00d8 | | Load_Top At_Offset_0 01e9 0227 | ' | Execute Access,All_Reference 01ea 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01eb 00da | | Load_Top At_Offset_2 01ec 0227 | ' | Execute Access,All_Reference 01ed 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01ee 00d8 | | Load_Top At_Offset_0 01ef 0229 | ) | Execute Access,All_Read 01f0 00d8 | | Load_Top At_Offset_0 01f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f2 e22b | + | Load 0x1,0x2b 01f3 e22c | , | Load 0x1,0x2c 01f4 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 01f5 8003 | | Call 0x0,0x3 01f6 00d9 | | Load_Top At_Offset_1 01f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f8 00d1 | | Pop_Control Pop_Count_1 01f9 00d8 | | Load_Top At_Offset_0 01fa e230 | 0 | Load 0x1,0x30 01fb e231 | 1 | Load 0x1,0x31 01fc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 01fd 8003 | | Call 0x0,0x3 01fe 0039 | 9 | Store_Top Access,At_Offset_1 01ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0200 e5fd | | Load 0x2,-0x3 0201 6801 |h | Jump_Zero 0x203 0202 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0203 e217 | | Load 0x1,0x17 0204 0257 | W | Execute Discrete,Raise 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 021c | | .CONST 0x021c ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0005 | | .CONST 0x0005 ; Number of locals 020b INIT_0208: 020b 00db | | Load_Top At_Offset_3 020c 823a | : | Call 0x1,0x3a 020d 00e3 | | Load_Encached Natural_Cache 020e 03f1 | | Declare_Variable Discrete,With_Value 020f 00d8 | | Load_Top At_Offset_0 0210 e210 | | Load 0x1,0x10 0211 026f | o | Execute Discrete,Remainder 0212 00e3 | | Load_Encached Natural_Cache 0213 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0214 e226 | & | Load 0x1,0x26 0215 0007 | | Action Break_Optional 0216 00d9 | | Load_Top At_Offset_1 0217 e5ff | | Load 0x2,-0x1 0218 0227 | ' | Execute Access,All_Reference 0219 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 021a 01d7 | | Execute Vector,Field_Read 021b 0007 | | Action Break_Optional 021c BODY_0208: 021c 00d8 | | Load_Top At_Offset_0 021d e226 | & | Load 0x1,0x26 021e e5fe | | Load 0x2,-0x2 021f e402 | | Load 0x2,0x2 0220 823c | < | Call 0x1,0x3c 0221 003b | ; | Store_Top Access,At_Offset_3 0222 0039 | 9 | Store_Top Access,At_Offset_1 0223 00d8 | | Load_Top At_Offset_0 0224 6829 |h) | Jump_Zero 0x24e 0225 00d9 | | Load_Top At_Offset_1 0226 7009 |p | Jump_Nonzero 0x230 0227 00d8 | | Load_Top At_Offset_0 0228 0227 | ' | Execute Access,All_Reference 0229 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 022a 00db | | Load_Top At_Offset_3 022b e5ff | | Load 0x2,-0x1 022c 0227 | ' | Execute Access,All_Reference 022d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 022e 01d6 | | Execute Vector,Field_Write 022f 7806 |x | Jump 0x236 0230 00d8 | | Load_Top At_Offset_0 0231 0227 | ' | Execute Access,All_Reference 0232 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0233 00da | | Load_Top At_Offset_2 0234 0227 | ' | Execute Access,All_Reference 0235 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0236 00d8 | | Load_Top At_Offset_0 0237 0227 | ' | Execute Access,All_Reference 0238 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0239 c5fd | | Store 0x2,-0x3 023a 00d8 | | Load_Top At_Offset_0 023b 0229 | ) | Execute Access,All_Read 023c 00d8 | | Load_Top At_Offset_0 023d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023e e22b | + | Load 0x1,0x2b 023f e22c | , | Load 0x1,0x2c 0240 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0241 8003 | | Call 0x0,0x3 0242 00d9 | | Load_Top At_Offset_1 0243 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0244 00d1 | | Pop_Control Pop_Count_1 0245 00d8 | | Load_Top At_Offset_0 0246 e230 | 0 | Load 0x1,0x30 0247 e231 | 1 | Load 0x1,0x31 0248 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0249 8003 | | Call 0x0,0x3 024a 0039 | 9 | Store_Top Access,At_Offset_1 024b 4801 |H | Short_Literal 0x1 024c a5fc | | Store_Unchecked 0x2,-0x4 024d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024e 4800 |H | Short_Literal 0x0 024f a5fc | | Store_Unchecked 0x2,-0x4 0250 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c e5fe | | Load 0x2,-0x2 025d 0227 | ' | Execute Access,All_Reference 025e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 025f 00cf | | Action Mark_Auxiliary 0260 e210 | | Load 0x1,0x10 0261 0aff | | Execute_Immediate Plus,-0x1 0262 4800 |H | Short_Literal 0x0 0263 0263 | c | Execute Discrete,Above_Bound 0264 7015 |p | Jump_Nonzero 0x27a 0265 00d8 | | Load_Top At_Offset_0 0266 e5ff | | Load 0x2,-0x1 0267 0227 | ' | Execute Access,All_Reference 0268 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0269 01d7 | | Execute Vector,Field_Read 026a 680d |h | Jump_Zero 0x278 026b 00d8 | | Load_Top At_Offset_0 026c e5ff | | Load 0x2,-0x1 026d 0227 | ' | Execute Access,All_Reference 026e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 026f 01d7 | | Execute Vector,Field_Read 0270 e5fe | | Load 0x2,-0x2 0271 0227 | ' | Execute Access,All_Reference 0272 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0273 00d8 | | Load_Top At_Offset_0 0274 e5fe | | Load 0x2,-0x2 0275 0227 | ' | Execute Access,All_Reference 0276 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0277 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0278 00c8 | | Action Pop_Auxiliary_Range 0279 3feb |? | Loop_Increasing 0x265 027a 00ce | | Action Pop_Auxiliary 027b e226 | & | Load 0x1,0x26 027c e5fe | | Load 0x2,-0x2 027d 0227 | ' | Execute Access,All_Reference 027e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 027f e210 | | Load 0x1,0x10 0280 e5fe | | Load 0x2,-0x2 0281 0227 | ' | Execute Access,All_Reference 0282 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c 0227 | ' | Execute Access,All_Reference 028d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028e 6802 |h | Jump_Zero 0x291 028f 4800 |H | Short_Literal 0x0 0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0291 4801 |H | Short_Literal 0x1 0292 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0293 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 029c 0227 | ' | Execute Access,All_Reference 029d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 029e 7002 |p | Jump_Nonzero 0x2a1 029f e217 | | Load 0x1,0x17 02a0 0257 | W | Execute Discrete,Raise 02a1 00da | | Load_Top At_Offset_2 02a2 0227 | ' | Execute Access,All_Reference 02a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a4 0227 | ' | Execute Access,All_Reference 02a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02a6 00d8 | | Load_Top At_Offset_0 02a7 0120 | | Execute Any,Is_Value 02a8 7002 |p | Jump_Nonzero 0x2ab 02a9 00d8 | | Load_Top At_Offset_0 02aa 011e | | Execute Any,Convert 02ab e20f | | Load 0x1,0xf 02ac 0119 | | Execute Any,Check_In_Formal_Type 02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b5 | | .CONST 0x02b5 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e226 | & | Load 0x1,0x26 02b4 0007 | | Action Break_Optional 02b5 BODY_02b0: 02b5 00db | | Load_Top At_Offset_3 02b6 0227 | ' | Execute Access,All_Reference 02b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b8 7002 |p | Jump_Nonzero 0x2bb 02b9 e217 | | Load 0x1,0x17 02ba 0257 | W | Execute Discrete,Raise 02bb 00db | | Load_Top At_Offset_3 02bc 0227 | ' | Execute Access,All_Reference 02bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02be 0227 | ' | Execute Access,All_Reference 02bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02c0 6809 |h | Jump_Zero 0x2ca 02c1 00db | | Load_Top At_Offset_3 02c2 0227 | ' | Execute Access,All_Reference 02c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c4 0227 | ' | Execute Access,All_Reference 02c5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02c6 e5ff | | Load 0x2,-0x1 02c7 0227 | ' | Execute Access,All_Reference 02c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ca 00cf | | Action Mark_Auxiliary 02cb e210 | | Load 0x1,0x10 02cc 0aff | | Execute_Immediate Plus,-0x1 02cd e5ff | | Load 0x2,-0x1 02ce 0227 | ' | Execute Access,All_Reference 02cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02d0 0a01 | | Execute_Immediate Plus,0x1 02d1 00d8 | | Load_Top At_Offset_0 02d2 00e2 | | Load_Encached Integer_Cache 02d3 0260 | ` | Execute Discrete,In_Type 02d4 7001 |p | Jump_Nonzero 0x2d6 02d5 0801 | | Execute_Immediate Raise,0x1 02d6 0263 | c | Execute Discrete,Above_Bound 02d7 7019 |p | Jump_Nonzero 0x2f1 02d8 00d8 | | Load_Top At_Offset_0 02d9 e5ff | | Load 0x2,-0x1 02da 0227 | ' | Execute Access,All_Reference 02db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02dc 0227 | ' | Execute Access,All_Reference 02dd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02de 01d7 | | Execute Vector,Field_Read 02df 680f |h | Jump_Zero 0x2ef 02e0 00d8 | | Load_Top At_Offset_0 02e1 e5ff | | Load 0x2,-0x1 02e2 0227 | ' | Execute Access,All_Reference 02e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e4 0227 | ' | Execute Access,All_Reference 02e5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02e6 01d7 | | Execute Vector,Field_Read 02e7 e5ff | | Load 0x2,-0x1 02e8 0227 | ' | Execute Access,All_Reference 02e9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02ea 00d8 | | Load_Top At_Offset_0 02eb e5ff | | Load 0x2,-0x1 02ec 0227 | ' | Execute Access,All_Reference 02ed 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ef 00c8 | | Action Pop_Auxiliary_Range 02f0 3fe7 |? | Loop_Increasing 0x2d8 02f1 00ce | | Action Pop_Auxiliary 02f2 e226 | & | Load 0x1,0x26 02f3 e5ff | | Load 0x2,-0x1 02f4 0227 | ' | Execute Access,All_Reference 02f5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f7 0000 | | .XXX[0x1] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 4608 |F | Jump_Case 0x9 02fc 7808 |x | Jump 0x305 ; case 0x0 02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02fe 7810 |x | Jump 0x30f ; case 0x2 02ff 780f |x | Jump 0x30f ; case 0x3 0300 780e |x | Jump 0x30f ; case 0x4 0301 780d |x | Jump 0x30f ; case 0x5 0302 780c |x | Jump 0x30f ; case 0x6 0303 780b |x | Jump 0x30f ; case 0x7 0304 780a |x | Jump 0x30f ; case 0x8 0305 4800 |H | Short_Literal 0x0 0306 00db | | Load_Top At_Offset_3 0307 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0308 00da | | Load_Top At_Offset_2 0309 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 030a 0125 | % | Execute Any,Set_Constraint 030b 00da | | Load_Top At_Offset_2 030c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 030d 1c00 | | Execute_Immediate Run_Utility,0x0 030e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 030f 0869 | i | Execute_Immediate Raise,0x69 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 4608 |F | Jump_Case 0x9 0314 7808 |x | Jump 0x31d ; case 0x0 0315 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0316 7820 |x | Jump 0x337 ; case 0x2 0317 781f |x | Jump 0x337 ; case 0x3 0318 781e |x | Jump 0x337 ; case 0x4 0319 781d |x | Jump 0x337 ; case 0x5 031a 781c |x | Jump 0x337 ; case 0x6 031b 781b |x | Jump 0x337 ; case 0x7 031c 781a |x | Jump 0x337 ; case 0x8 031d 4800 |H | Short_Literal 0x0 031e 00db | | Load_Top At_Offset_3 031f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0320 4800 |H | Short_Literal 0x0 0321 e210 | | Load 0x1,0x10 0322 0aff | | Execute_Immediate Plus,-0x1 0323 e22a | * | Load 0x1,0x2a 0324 0334 | 4 | Declare_Variable Array,With_Constraint 0325 00d8 | | Load_Top At_Offset_0 0326 01dc | | Execute Vector,Last 0327 4800 |H | Short_Literal 0x0 0328 0263 | c | Execute Discrete,Above_Bound 0329 7005 |p | Jump_Nonzero 0x32f 032a e226 | & | Load 0x1,0x26 032b 00d9 | | Load_Top At_Offset_1 032c e402 | | Load 0x2,0x2 032d 01d6 | | Execute Vector,Field_Write 032e 3ffb |? | Loop_Increasing 0x32a 032f 00db | | Load_Top At_Offset_3 0330 00d9 | | Load_Top At_Offset_1 0331 00d9 | | Load_Top At_Offset_1 0332 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0333 0119 | | Execute Any,Check_In_Formal_Type 0334 00d1 | | Pop_Control Pop_Count_1 0335 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0336 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0337 0869 | i | Execute_Immediate Raise,0x69 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 0342 | B | .CONST 0x0342 ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0003 | | .CONST 0x0003 ; Number of locals 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c 01da | | Execute Vector,Bounds 033d e228 | ( | Load 0x1,0x28 033e 035b | [ | Declare_Type Array,Constrained 033f 0337 | 7 | Declare_Variable Array 0340 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 0342 BODY_0338: 0342 e211 | | Load 0x1,0x11 0343 680f |h | Jump_Zero 0x353 0344 00cf | | Action Mark_Auxiliary 0345 e5ff | | Load 0x2,-0x1 0346 01d9 | | Execute Vector,Reverse_Bounds 0347 0263 | c | Execute Discrete,Above_Bound 0348 7008 |p | Jump_Nonzero 0x351 0349 00d8 | | Load_Top At_Offset_0 034a e5ff | | Load 0x2,-0x1 034b 01d7 | | Execute Vector,Field_Read 034c 00d9 | | Load_Top At_Offset_1 034d e402 | | Load 0x2,0x2 034e 01d6 | | Execute Vector,Field_Write 034f 00c8 | | Action Pop_Auxiliary_Range 0350 3ff8 |? | Loop_Increasing 0x349 0351 00ce | | Action Pop_Auxiliary 0352 7811 |x | Jump 0x364 0353 00cf | | Action Mark_Auxiliary 0354 e5ff | | Load 0x2,-0x1 0355 01d9 | | Execute Vector,Reverse_Bounds 0356 0263 | c | Execute Discrete,Above_Bound 0357 700b |p | Jump_Nonzero 0x363 0358 00d8 | | Load_Top At_Offset_0 0359 e5ff | | Load 0x2,-0x1 035a 01d7 | | Execute Vector,Field_Read 035b e00a | | Load 0x0,0xa 035c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035d 01d7 | | Execute Vector,Field_Read 035e 00d9 | | Load_Top At_Offset_1 035f e402 | | Load 0x2,0x2 0360 01d6 | | Execute Vector,Field_Write 0361 00c8 | | Action Pop_Auxiliary_Range 0362 3ff5 |? | Loop_Increasing 0x358 0363 00ce | | Action Pop_Auxiliary 0364 e5ff | | Load 0x2,-0x1 0365 01db | | Execute Vector,Length 0366 00d8 | | Load_Top At_Offset_0 0367 4800 |H | Short_Literal 0x0 0368 4804 |H | Short_Literal 0x4 0369 0262 | b | Execute Discrete,In_Range 036a 6857 |hW | Jump_Zero 0x3c2 036b 0b00 | | Execute_Immediate Case_Compare,0x0 036c 7024 |p$ | Jump_Nonzero 0x391 036d 0b01 | | Execute_Immediate Case_Compare,0x1 036e 7025 |p% | Jump_Nonzero 0x394 036f 0b02 | | Execute_Immediate Case_Compare,0x2 0370 7029 |p) | Jump_Nonzero 0x39a 0371 0f03 | | Execute_Immediate Equal,0x3 0372 7038 |p8 | Jump_Nonzero 0x3ab 0373 00d9 | | Load_Top At_Offset_1 0374 01dd | | Execute Vector,First 0375 00da | | Load_Top At_Offset_2 0376 01d7 | | Execute Vector,Field_Read 0377 0915 | | Execute_Immediate Binary_Scale,0x15 0378 00da | | Load_Top At_Offset_2 0379 01dd | | Execute Vector,First 037a 0a01 | | Execute_Immediate Plus,0x1 037b 00db | | Load_Top At_Offset_3 037c 01d7 | | Execute Vector,Field_Read 037d 090e | | Execute_Immediate Binary_Scale,0xe 037e 0273 | s | Execute Discrete,Plus 037f 00da | | Load_Top At_Offset_2 0380 01dd | | Execute Vector,First 0381 0a02 | | Execute_Immediate Plus,0x2 0382 00db | | Load_Top At_Offset_3 0383 01d7 | | Execute Vector,Field_Read 0384 0907 | | Execute_Immediate Binary_Scale,0x7 0385 0273 | s | Execute Discrete,Plus 0386 00da | | Load_Top At_Offset_2 0387 01dc | | Execute Vector,Last 0388 00db | | Load_Top At_Offset_3 0389 01d7 | | Execute Vector,Field_Read 038a 0273 | s | Execute Discrete,Plus 038b 00d8 | | Load_Top At_Offset_0 038c 00e3 | | Load_Encached Natural_Cache 038d 0260 | ` | Execute Discrete,In_Type 038e 7001 |p | Jump_Nonzero 0x390 038f 0801 | | Execute_Immediate Raise,0x1 0390 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0391 00d1 | | Pop_Control Pop_Count_1 0392 4800 |H | Short_Literal 0x0 0393 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0394 00d1 | | Pop_Control Pop_Count_1 0395 00d9 | | Load_Top At_Offset_1 0396 01dd | | Execute Vector,First 0397 00da | | Load_Top At_Offset_2 0398 01d7 | | Execute Vector,Field_Read 0399 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039a 00d1 | | Pop_Control Pop_Count_1 039b 00d9 | | Load_Top At_Offset_1 039c 01dd | | Execute Vector,First 039d 00da | | Load_Top At_Offset_2 039e 01d7 | | Execute Vector,Field_Read 039f 0907 | | Execute_Immediate Binary_Scale,0x7 03a0 00da | | Load_Top At_Offset_2 03a1 01dc | | Execute Vector,Last 03a2 00db | | Load_Top At_Offset_3 03a3 01d7 | | Execute Vector,Field_Read 03a4 0273 | s | Execute Discrete,Plus 03a5 00d8 | | Load_Top At_Offset_0 03a6 00e3 | | Load_Encached Natural_Cache 03a7 0260 | ` | Execute Discrete,In_Type 03a8 7001 |p | Jump_Nonzero 0x3aa 03a9 0801 | | Execute_Immediate Raise,0x1 03aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ab 00d9 | | Load_Top At_Offset_1 03ac 01dd | | Execute Vector,First 03ad 00da | | Load_Top At_Offset_2 03ae 01d7 | | Execute Vector,Field_Read 03af 090e | | Execute_Immediate Binary_Scale,0xe 03b0 00da | | Load_Top At_Offset_2 03b1 01dd | | Execute Vector,First 03b2 0a01 | | Execute_Immediate Plus,0x1 03b3 00db | | Load_Top At_Offset_3 03b4 01d7 | | Execute Vector,Field_Read 03b5 0907 | | Execute_Immediate Binary_Scale,0x7 03b6 0273 | s | Execute Discrete,Plus 03b7 00da | | Load_Top At_Offset_2 03b8 01dc | | Execute Vector,Last 03b9 00db | | Load_Top At_Offset_3 03ba 01d7 | | Execute Vector,Field_Read 03bb 0273 | s | Execute Discrete,Plus 03bc 00d8 | | Load_Top At_Offset_0 03bd 00e3 | | Load_Encached Natural_Cache 03be 0260 | ` | Execute Discrete,In_Type 03bf 7001 |p | Jump_Nonzero 0x3c1 03c0 0801 | | Execute_Immediate Raise,0x1 03c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c2 00d1 | | Pop_Control Pop_Count_1 03c3 8403 | | Call 0x2,0x3 03c4 0831 | 1 | Execute_Immediate Raise,0x31 03c5 0000 0000 | | .XXX[0x3] 03c7 0000 | | 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d3 | | .CONST 0x03d3 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb 00da | | Load_Top At_Offset_2 03cc 01dd | | Execute Vector,First 03cd 00e3 | | Load_Encached Natural_Cache 03ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03cf e5fe | | Load 0x2,-0x2 03d0 01dd | | Execute Vector,First 03d1 00e3 | | Load_Encached Natural_Cache 03d2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03d3 BODY_03c8: 03d3 e5ff | | Load 0x2,-0x1 03d4 01db | | Execute Vector,Length 03d5 e5fe | | Load 0x2,-0x2 03d6 01db | | Execute Vector,Length 03d7 027e | ~ | Execute Discrete,Not_Equal 03d8 6802 |h | Jump_Zero 0x3db 03d9 4800 |H | Short_Literal 0x0 03da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03db 00cf | | Action Mark_Auxiliary 03dc e5ff | | Load 0x2,-0x1 03dd 01db | | Execute Vector,Length 03de 0aff | | Execute_Immediate Plus,-0x1 03df 00d8 | | Load_Top At_Offset_0 03e0 00e2 | | Load_Encached Integer_Cache 03e1 0260 | ` | Execute Discrete,In_Type 03e2 7001 |p | Jump_Nonzero 0x3e4 03e3 0801 | | Execute_Immediate Raise,0x1 03e4 4800 |H | Short_Literal 0x0 03e5 00e3 | | Load_Encached Natural_Cache 03e6 025c | \ | QQucode_0x025c 03e7 0263 | c | Execute Discrete,Above_Bound 03e8 7013 |p | Jump_Nonzero 0x3fc 03e9 e402 | | Load 0x2,0x2 03ea 00d9 | | Load_Top At_Offset_1 03eb 0273 | s | Execute Discrete,Plus 03ec e5ff | | Load 0x2,-0x1 03ed 01d7 | | Execute Vector,Field_Read 03ee e00a | | Load 0x0,0xa 03ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f0 01d7 | | Execute Vector,Field_Read 03f1 e403 | | Load 0x2,0x3 03f2 00da | | Load_Top At_Offset_2 03f3 0273 | s | Execute Discrete,Plus 03f4 e5fe | | Load 0x2,-0x2 03f5 01d7 | | Execute Vector,Field_Read 03f6 027e | ~ | Execute Discrete,Not_Equal 03f7 6802 |h | Jump_Zero 0x3fa 03f8 4800 |H | Short_Literal 0x0 03f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03fa 00c8 | | Action Pop_Auxiliary_Range 03fb 3fed |? | Loop_Increasing 0x3e9 03fc 00ce | | Action Pop_Auxiliary 03fd 4801 |H | Short_Literal 0x1 03fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ff 0000 | | .XXX[0x1] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0405 | | .CONST 0x0405 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0002 | | .CONST 0x0002 ; Number of locals 0403 INIT_0400: 0403 e5fc | | Load 0x2,-0x4 0404 0007 | | Action Break_Optional 0405 BODY_0400: 0405 e226 | & | Load 0x1,0x26 0406 a5fd | | Store_Unchecked 0x2,-0x3 0407 00cf | | Action Mark_Auxiliary 0408 7823 |x# | Jump 0x42c 0409 00d9 | | Load_Top At_Offset_1 040a 0227 | ' | Execute Access,All_Reference 040b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 040c e5ff | | Load 0x2,-0x1 040d 027f | | Execute Discrete,Equal 040e 6816 |h | Jump_Zero 0x425 040f e211 | | Load 0x1,0x11 0410 680a |h | Jump_Zero 0x41b 0411 00d9 | | Load_Top At_Offset_1 0412 0227 | ' | Execute Access,All_Reference 0413 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0414 0227 | ' | Execute Access,All_Reference 0415 e5fe | | Load 0x2,-0x2 0416 01df | | Execute Vector,Equal 0417 680d |h | Jump_Zero 0x425 0418 00d9 | | Load_Top At_Offset_1 0419 a5fc | | Store_Unchecked 0x2,-0x4 041a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 041b 00d9 | | Load_Top At_Offset_1 041c 0227 | ' | Execute Access,All_Reference 041d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 041e 0227 | ' | Execute Access,All_Reference 041f e5fe | | Load 0x2,-0x2 0420 823b | ; | Call 0x1,0x3b 0421 6803 |h | Jump_Zero 0x425 0422 00d9 | | Load_Top At_Offset_1 0423 a5fc | | Store_Unchecked 0x2,-0x4 0424 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0425 00d9 | | Load_Top At_Offset_1 0426 a5fd | | Store_Unchecked 0x2,-0x3 0427 00d9 | | Load_Top At_Offset_1 0428 0227 | ' | Execute Access,All_Reference 0429 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 042a 003a | : | Store_Top Access,At_Offset_2 042b 00c9 | | Action Pop_Auxiliary_Loop 042c 00d9 | | Load_Top At_Offset_1 042d 77db |w | Jump_Nonzero 0x409 042e 00ce | | Action Pop_Auxiliary 042f e226 | & | Load 0x1,0x26 0430 a5fc | | Store_Unchecked 0x2,-0x4 0431 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0432 0000 0000 | | .BLANK 0000[0x6] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 0441 | A | .CONST 0x0441 ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0003 | | .CONST 0x0003 ; Number of locals 043b INIT_0438: 043b e402 | | Load 0x2,0x2 043c 01dd | | Execute Vector,First 043d 00e3 | | Load_Encached Natural_Cache 043e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 043f 00e3 | | Load_Encached Natural_Cache 0440 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0441 BODY_0438: 0441 00cf | | Action Mark_Auxiliary 0442 7824 |x$ | Jump 0x467 0443 00d9 | | Load_Top At_Offset_1 0444 603b |`; | Indirect_Literal Discrete,0x480,{0x00000000, 0x6fffffff} 0445 027d | } | Execute Discrete,Greater 0446 6804 |h | Jump_Zero 0x44b 0447 00d9 | | Load_Top At_Offset_1 0448 4803 |H | Short_Literal 0x3 0449 0270 | p | Execute Discrete,Divide 044a 005a | Z | Store_Top Discrete,At_Offset_2 044b 00d9 | | Load_Top At_Offset_1 044c 00db | | Load_Top At_Offset_3 044d e402 | | Load 0x2,0x2 044e 01d7 | | Execute Vector,Field_Read 044f 0915 | | Execute_Immediate Binary_Scale,0x15 0450 0273 | s | Execute Discrete,Plus 0451 00db | | Load_Top At_Offset_3 0452 0a01 | | Execute_Immediate Plus,0x1 0453 e402 | | Load 0x2,0x2 0454 01d7 | | Execute Vector,Field_Read 0455 090e | | Execute_Immediate Binary_Scale,0xe 0456 0273 | s | Execute Discrete,Plus 0457 00db | | Load_Top At_Offset_3 0458 0a02 | | Execute_Immediate Plus,0x2 0459 e402 | | Load 0x2,0x2 045a 01d7 | | Execute Vector,Field_Read 045b 0907 | | Execute_Immediate Binary_Scale,0x7 045c 0273 | s | Execute Discrete,Plus 045d 00db | | Load_Top At_Offset_3 045e 0a03 | | Execute_Immediate Plus,0x3 045f e402 | | Load 0x2,0x2 0460 01d7 | | Execute Vector,Field_Read 0461 0273 | s | Execute Discrete,Plus 0462 005a | Z | Store_Top Discrete,At_Offset_2 0463 00da | | Load_Top At_Offset_2 0464 0a04 | | Execute_Immediate Plus,0x4 0465 005b | [ | Store_Top Discrete,At_Offset_3 0466 00c9 | | Action Pop_Auxiliary_Loop 0467 00da | | Load_Top At_Offset_2 0468 0a03 | | Execute_Immediate Plus,0x3 0469 e402 | | Load 0x2,0x2 046a 01dc | | Execute Vector,Last 046b 027a | z | Execute Discrete,Less_Equal 046c 77d6 |w | Jump_Nonzero 0x443 046d 00c9 | | Action Pop_Auxiliary_Loop 046e e402 | | Load 0x2,0x2 046f 01dc | | Execute Vector,Last 0470 00db | | Load_Top At_Offset_3 0471 0263 | c | Execute Discrete,Above_Bound 0472 7008 |p | Jump_Nonzero 0x47b 0473 00db | | Load_Top At_Offset_3 0474 00d9 | | Load_Top At_Offset_1 0475 e402 | | Load 0x2,0x2 0476 01d7 | | Execute Vector,Field_Read 0477 0273 | s | Execute Discrete,Plus 0478 c603 | | Store 0x3,0x3 0479 00c8 | | Action Pop_Auxiliary_Range 047a 3ff8 |? | Loop_Increasing 0x473 047b 00ce | | Action Pop_Auxiliary 047c 00d8 | | Load_Top At_Offset_0 047d 00cb | | Action Pop_Block_With_Result 047e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047f 0000 | | .XXX[0x1] 0480 0000 0000 | | .LITERAL {0x00000000, 0x6fffffff} 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 4608 |F | Jump_Case 0x9 048c 7808 |x | Jump 0x495 ; case 0x0 048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 048e 780a |x | Jump 0x499 ; case 0x2 048f 7809 |x | Jump 0x499 ; case 0x3 0490 7808 |x | Jump 0x499 ; case 0x4 0491 7807 |x | Jump 0x499 ; case 0x5 0492 7806 |x | Jump 0x499 ; case 0x6 0493 7805 |x | Jump 0x499 ; case 0x7 0494 7804 |x | Jump 0x499 ; case 0x8 0495 4800 |H | Short_Literal 0x0 0496 00db | | Load_Top At_Offset_3 0497 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0498 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0499 0869 | i | Execute_Immediate Raise,0x69 049a 0000 0000 | | .BLANK 0000[0x6] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; Debug Table 04a0 ; -------------------------------------------------------------------------------------- 04a0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa926,0x0000,0x0001,0x0000 04a6 7d05 7c00 |} | | .XXX[0x8a] 04a8 c43d 5950 | =YP| 04aa c4c0 c17d | }| 04ac 2d15 657d |- e}| 04ae 3905 3515 |9 5 | 04b0 4c01 9c15 |L | 04b2 5d3d 4931 |]=I1| 04b4 1001 381d | 8 | 04b6 3505 4d51 |5 MQ| 04b8 1549 4c02 | IL | 04ba 081d 7d05 | } | 04bc 1105 7d09 | } | 04be 7c01 1c90 || | 04c0 8535 858d | 5 | 04c2 a1a5 b994 | | 04c4 b915 91a5 | | 04c6 d1bd c97d | }| 04c8 1185 d184 | | 04ca b901 7d0d | } | 04cc bdb5 b585 | | 04ce b991 cc9d | | 04d0 09bd 91e4 | | 04d2 002c 194d | , M| 04d4 5149 2539 |QI%9| 04d6 1c02 0c19 | | 04d8 2d15 6535 |- e5| 04da 0540 0210 | @ | 04dc 5119 bdbc |Q | 04de f4f9 1905 | | 04e0 314d 14b1 |1M | 04e2 0985 c8f4 | | 04e4 f951 4955 | QIU| 04e6 1400 5025 | P%| 04e8 3d59 1549 |=Y I| 04ea 4925 1115 |I% | 04ec 4c00 1824 |L $| 04ee f141 493d | AI=| 04f0 1925 3114 | %1 | 04f2 f801 5821 | X!| 04f4 4915 4d41 |I MA| 04f6 3d39 4d14 |=9M | 04f8 01f4 5915 | Y | 04fa 3905 0931 |9 1| 04fc 157d 4149 | }AI| 04fe 3d11 550d |= U | 0500 517d 2d15 |Q}- | 0502 6535 0541 |e5 A| 0504 4c00 a439 |L 9| 0506 5115 4935 |Q I5| 0508 2539 0531 |%9 1| 050a 7d51 6541 |}QeA| 050c 154c 0214 | L | 050e 5151 1549 |QQ I| 0510 3525 3905 |5%9 | 0512 317d 4915 |1}I | 0514 0d3d 1d39 | = 9| 0516 2551 253d |%Q%=| 0518 3800 2829 |8 ()| 051a 6148 d955 |aH U| 051c 4d7d 2d15 |M}- | 051e 654c 0024 |eL $| 0520 4d61 48d9 |MaH | 0522 554d 7d55 |UM}U| 0524 4d15 497d |M I}| 0526 0d3d 3535 | =55| 0528 0539 114c | 9 L| 052a 00bc 2149 | !I| 052c 6125 7d2d |a%}-| 052e 1565 4c00 | eL | 0530 0000 0000 | | .BLANK 0000[0xd0]