|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0788c5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0280 | | .CONST 0x0280 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0062 | b | .CONST 0x0062 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 48f6 |H | Short_Literal 0xf6 000c e002 | | Load 0x0,0x2 000d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000e 1c07 | | Execute_Immediate Run_Utility,0x7 000f 0129 | ) | Execute Any,Make_Visible 0010 00d8 | | Load_Top At_Offset_0 0011 00e2 | | Load_Encached Integer_Cache 0012 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 0014 4802 |H | Short_Literal 0x2 0015 032e | . | Declare_Type Record,Defined,Visible 0016 e003 | | Load 0x0,0x3 0017 e004 | | Load 0x0,0x4 0018 00da | | Load_Top At_Offset_2 0019 e005 | | Load 0x0,0x5 001a 0386 | | Declare_Variable Package,Visible 001b 00d8 | | Load_Top At_Offset_0 001c 020f | | Execute Module,Activate 001d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 001f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0021 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0023 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0025 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0027 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0029 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 002b 00e2 | | Load_Encached Integer_Cache 002c 00e2 | | Load_Encached Integer_Cache 002d 02a0 | | Declare_Subprogram Null_Subprogram 002e 4802 |H | Short_Literal 0x2 002f 032e | . | Declare_Type Record,Defined,Visible 0030 e006 | | Load 0x0,0x6 0031 e007 | | Load 0x0,0x7 0032 00da | | Load_Top At_Offset_2 0033 e005 | | Load 0x0,0x5 0034 0386 | | Declare_Variable Package,Visible 0035 00d8 | | Load_Top At_Offset_0 0036 020f | | Execute Module,Activate 0037 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0039 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 003b 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 003d 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 003f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0041 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0043 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0045 00bf | | Action Accept_Activation 0046 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0047 00c7 | | Action Elaborate_Subprogram 0048 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0049 00c7 | | Action Elaborate_Subprogram 004a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004b 00c7 | | Action Elaborate_Subprogram 004c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004d 00c7 | | Action Elaborate_Subprogram 004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004f 00c7 | | Action Elaborate_Subprogram 0050 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0051 00c7 | | Action Elaborate_Subprogram 0052 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0053 00c7 | | Action Elaborate_Subprogram 0054 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0055 00c7 | | Action Elaborate_Subprogram 0056 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0057 00c7 | | Action Elaborate_Subprogram 0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b 00c7 | | Action Elaborate_Subprogram 005c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 005d 00c7 | | Action Elaborate_Subprogram 005e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 005f 00c7 | | Action Elaborate_Subprogram 0060 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0061 00c7 | | Action Elaborate_Subprogram 0062 BODY_0008: 0062 00bc | | Action Signal_Activated 0063 00bb | | Action Signal_Completion 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006f | o | .CONST 0x006f ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e008 | | Load 0x0,0x8 006c 0606 | | Execute_Immediate Set_Value_Unchecked,0x6 006d e008 | | Load 0x0,0x8 006e 0007 | | Action Break_Optional 006f BODY_0068: 006f e008 | | Load 0x0,0x8 0070 e5ff | | Load 0x2,-0x1 0071 8009 | | Call 0x0,0x9 0072 0059 | Y | Store_Top Discrete,At_Offset_1 0073 00d8 | | Load_Top At_Offset_0 0074 e008 | | Load 0x0,0x8 0075 011c | | Execute Any,Convert_Unchecked 0076 1c01 | | Execute_Immediate Run_Utility,0x1 0077 00da | | Load_Top At_Offset_2 0078 e008 | | Load 0x0,0x8 0079 011c | | Execute Any,Convert_Unchecked 007a 1c01 | | Execute_Immediate Run_Utility,0x1 007b 01df | | Execute Vector,Equal 007c 6802 |h | Jump_Zero 0x7f 007d 4801 |H | Short_Literal 0x1 007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007f 4800 |H | Short_Literal 0x0 0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008f | | .CONST 0x008f ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0003 | | .CONST 0x0003 ; Number of locals 008b INIT_0088: 008b e008 | | Load 0x0,0x8 008c 0607 | | Execute_Immediate Set_Value_Unchecked,0x7 008d e008 | | Load 0x0,0x8 008e 0007 | | Action Break_Optional 008f BODY_0088: 008f e008 | | Load 0x0,0x8 0090 e5ff | | Load 0x2,-0x1 0091 8009 | | Call 0x0,0x9 0092 0059 | Y | Store_Top Discrete,At_Offset_1 0093 00d8 | | Load_Top At_Offset_0 0094 e008 | | Load 0x0,0x8 0095 011c | | Execute Any,Convert_Unchecked 0096 1c01 | | Execute_Immediate Run_Utility,0x1 0097 00da | | Load_Top At_Offset_2 0098 e008 | | Load 0x0,0x8 0099 011c | | Execute Any,Convert_Unchecked 009a 1c01 | | Execute_Immediate Run_Utility,0x1 009b 01df | | Execute Vector,Equal 009c 6802 |h | Jump_Zero 0x9f 009d 4801 |H | Short_Literal 0x1 009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009f 4800 |H | Short_Literal 0x0 00a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a1 0000 0000 | | .BLANK 0000[0x7] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b0 | | .CONST 0x00b0 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab e00a | | Load 0x0,0xa 00ac 02ff | | Declare_Variable Variant_Record 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af 00e2 | | Load_Encached Integer_Cache 00b0 BODY_00a8: 00b0 00d9 | | Load_Top At_Offset_1 00b1 e5ff | | Load 0x2,-0x1 00b2 800b | | Call 0x0,0xb 00b3 00d1 | | Pop_Control Pop_Count_1 00b4 00d9 | | Load_Top At_Offset_1 00b5 e5fe | | Load 0x2,-0x2 00b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b7 00e2 | | Load_Encached Integer_Cache 00b8 e5ff | | Load 0x2,-0x1 00b9 800c | | Call 0x0,0xc 00ba 0059 | Y | Store_Top Discrete,At_Offset_1 00bb 00d8 | | Load_Top At_Offset_0 00bc e5fe | | Load 0x2,-0x2 00bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00db | | Load_Top At_Offset_3 00c4 00db | | Load_Top At_Offset_3 00c5 e20f | | Load 0x1,0xf 00c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c7 a5fe | | Store_Unchecked 0x2,-0x2 00c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d7 | | .CONST 0x00d7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 e20f | | Load 0x1,0xf 00d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d5 e20f | | Load 0x1,0xf 00d6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00d7 BODY_00d0: 00d7 e20f | | Load 0x1,0xf 00d8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00d9 e5fe | | Load 0x2,-0x2 00da e20f | | Load 0x1,0xf 00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00dc 0039 | 9 | Store_Top Access,At_Offset_1 00dd 00cf | | Action Mark_Auxiliary 00de 7817 |x | Jump 0xf6 00df 00d9 | | Load_Top At_Offset_1 00e0 e20f | | Load 0x1,0xf 00e1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00e3 e002 | | Load 0x0,0x2 00e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e5 e5ff | | Load 0x2,-0x1 00e6 e002 | | Load 0x0,0x2 00e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e8 01de | | Execute Vector,Not_Equal 00e9 6807 |h | Jump_Zero 0xf1 00ea 00da | | Load_Top At_Offset_2 00eb 00da | | Load_Top At_Offset_2 00ec e20f | | Load 0x1,0xf 00ed 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ee e20f | | Load 0x1,0xf 00ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f0 003b | ; | Store_Top Access,At_Offset_3 00f1 00d9 | | Load_Top At_Offset_1 00f2 e20f | | Load 0x1,0xf 00f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f4 003a | : | Store_Top Access,At_Offset_2 00f5 00c9 | | Action Pop_Auxiliary_Loop 00f6 00d9 | | Load_Top At_Offset_1 00f7 e20f | | Load 0x1,0xf 00f8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00f9 6fe5 |o | Jump_Zero 0xdf 00fa 00ce | | Action Pop_Auxiliary 00fb 00d9 | | Load_Top At_Offset_1 00fc a5fe | | Store_Unchecked 0x2,-0x2 00fd 00d9 | | Load_Top At_Offset_1 00fe e20f | | Load 0x1,0xf 00ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0100 003a | : | Store_Top Access,At_Offset_2 0101 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0102 0000 0000 | | .BLANK 0000[0x6] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010d | | .CONST 0x010d ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e20f | | Load 0x1,0xf 010c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 010d BODY_0108: 010d e20f | | Load 0x1,0xf 010e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 010f e5ff | | Load 0x2,-0x1 0110 e20f | | Load 0x1,0xf 0111 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0112 0039 | 9 | Store_Top Access,At_Offset_1 0113 00cf | | Action Mark_Auxiliary 0114 7810 |x | Jump 0x125 0115 00d9 | | Load_Top At_Offset_1 0116 e20f | | Load 0x1,0xf 0117 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0118 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0119 e002 | | Load 0x0,0x2 011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011b e5fe | | Load 0x2,-0x2 011c e002 | | Load 0x0,0x2 011d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011e 01df | | Execute Vector,Equal 011f 7009 |p | Jump_Nonzero 0x129 0120 00d9 | | Load_Top At_Offset_1 0121 e20f | | Load 0x1,0xf 0122 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0123 003a | : | Store_Top Access,At_Offset_2 0124 00c9 | | Action Pop_Auxiliary_Loop 0125 00d9 | | Load_Top At_Offset_1 0126 e20f | | Load 0x1,0xf 0127 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0128 6fec |o | Jump_Zero 0x115 0129 00ce | | Action Pop_Auxiliary 012a 00d8 | | Load_Top At_Offset_0 012b e20f | | Load 0x1,0xf 012c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 012d 7002 |p | Jump_Nonzero 0x130 012e 4801 |H | Short_Literal 0x1 012f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0130 4800 |H | Short_Literal 0x0 0131 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013d | = | .CONST 0x013d ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e20f | | Load 0x1,0xf 013c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 013d BODY_0138: 013d e20f | | Load 0x1,0xf 013e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 013f e5ff | | Load 0x2,-0x1 0140 e20f | | Load 0x1,0xf 0141 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0142 0039 | 9 | Store_Top Access,At_Offset_1 0143 00cf | | Action Mark_Auxiliary 0144 7805 |x | Jump 0x14a 0145 00d9 | | Load_Top At_Offset_1 0146 e20f | | Load 0x1,0xf 0147 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0148 003a | : | Store_Top Access,At_Offset_2 0149 00c9 | | Action Pop_Auxiliary_Loop 014a 00d9 | | Load_Top At_Offset_1 014b e20f | | Load 0x1,0xf 014c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 014d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014e e002 | | Load 0x0,0x2 014f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0150 e5fe | | Load 0x2,-0x2 0151 e002 | | Load 0x0,0x2 0152 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0153 01de | | Execute Vector,Not_Equal 0154 77f0 |w | Jump_Nonzero 0x145 0155 00ce | | Action Pop_Auxiliary 0156 00d8 | | Load_Top At_Offset_0 0157 e20f | | Load 0x1,0xf 0158 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0167 | g | .CONST 0x0167 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 e008 | | Load 0x0,0x8 0164 0608 | | Execute_Immediate Set_Value_Unchecked,0x8 0165 e008 | | Load 0x0,0x8 0166 0007 | | Action Break_Optional 0167 BODY_0160: 0167 e008 | | Load 0x0,0x8 0168 e5ff | | Load 0x2,-0x1 0169 8009 | | Call 0x0,0x9 016a 0059 | Y | Store_Top Discrete,At_Offset_1 016b 00d8 | | Load_Top At_Offset_0 016c e008 | | Load 0x0,0x8 016d 011c | | Execute Any,Convert_Unchecked 016e 1c01 | | Execute_Immediate Run_Utility,0x1 016f 00da | | Load_Top At_Offset_2 0170 e008 | | Load 0x0,0x8 0171 011c | | Execute Any,Convert_Unchecked 0172 1c01 | | Execute_Immediate Run_Utility,0x1 0173 01df | | Execute Vector,Equal 0174 6802 |h | Jump_Zero 0x177 0175 4801 |H | Short_Literal 0x1 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 4800 |H | Short_Literal 0x0 0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0187 | | .CONST 0x0187 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 e008 | | Load 0x0,0x8 0184 0609 | | Execute_Immediate Set_Value_Unchecked,0x9 0185 e008 | | Load 0x0,0x8 0186 0007 | | Action Break_Optional 0187 BODY_0180: 0187 e008 | | Load 0x0,0x8 0188 e5ff | | Load 0x2,-0x1 0189 8009 | | Call 0x0,0x9 018a 0059 | Y | Store_Top Discrete,At_Offset_1 018b 00d8 | | Load_Top At_Offset_0 018c e008 | | Load 0x0,0x8 018d 011c | | Execute Any,Convert_Unchecked 018e 1c01 | | Execute_Immediate Run_Utility,0x1 018f 00da | | Load_Top At_Offset_2 0190 e008 | | Load 0x0,0x8 0191 011c | | Execute Any,Convert_Unchecked 0192 1c01 | | Execute_Immediate Run_Utility,0x1 0193 01df | | Execute Vector,Equal 0194 6802 |h | Jump_Zero 0x197 0195 4801 |H | Short_Literal 0x1 0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0197 4800 |H | Short_Literal 0x0 0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01aa | | .CONST 0x01aa ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0005 | | .CONST 0x0005 ; Number of locals 01a3 INIT_01a0: 01a3 e00a | | Load 0x0,0xa 01a4 02ff | | Declare_Variable Variant_Record 01a5 00d8 | | Load_Top At_Offset_0 01a6 1c00 | | Execute_Immediate Run_Utility,0x0 01a7 00e2 | | Load_Encached Integer_Cache 01a8 00e2 | | Load_Encached Integer_Cache 01a9 00e1 | | Load_Encached Boolean_Cache 01aa BODY_01a0: 01aa 00db | | Load_Top At_Offset_3 01ab e5ff | | Load 0x2,-0x1 01ac 800b | | Call 0x0,0xb 01ad 00d1 | | Pop_Control Pop_Count_1 01ae 00e1 | | Load_Encached Boolean_Cache 01af 00e2 | | Load_Encached Integer_Cache 01b0 480a |H | Short_Literal 0xa 01b1 e402 | | Load 0x2,0x2 01b2 e002 | | Load 0x0,0x2 01b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b4 e00d | | Load 0x0,0xd 01b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b6 005b | [ | Store_Top Discrete,At_Offset_3 01b7 0059 | Y | Store_Top Discrete,At_Offset_1 01b8 00d9 | | Load_Top At_Offset_1 01b9 e5fe | | Load 0x2,-0x2 01ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01bb 00e2 | | Load_Encached Integer_Cache 01bc e5ff | | Load 0x2,-0x1 01bd 800c | | Call 0x0,0xc 01be 005b | [ | Store_Top Discrete,At_Offset_3 01bf 00da | | Load_Top At_Offset_2 01c0 e5fe | | Load 0x2,-0x2 01c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 00db | | Load_Top At_Offset_3 01cc 00db | | Load_Top At_Offset_3 01cd e218 | | Load 0x1,0x18 01ce 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01cf a5fe | | Store_Unchecked 0x2,-0x2 01d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01df | | .CONST 0x01df ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e218 | | Load 0x1,0x18 01dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01dd e218 | | Load 0x1,0x18 01de 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01df BODY_01d8: 01df e218 | | Load 0x1,0x18 01e0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01e1 e5fe | | Load 0x2,-0x2 01e2 e218 | | Load 0x1,0x18 01e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e4 0039 | 9 | Store_Top Access,At_Offset_1 01e5 00cf | | Action Mark_Auxiliary 01e6 7817 |x | Jump 0x1fe 01e7 00d9 | | Load_Top At_Offset_1 01e8 e218 | | Load 0x1,0x18 01e9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01eb 00e0 | | Load_Encached Standard_Cache 01ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ed e5ff | | Load 0x2,-0x1 01ee 00e0 | | Load_Encached Standard_Cache 01ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f0 01de | | Execute Vector,Not_Equal 01f1 6807 |h | Jump_Zero 0x1f9 01f2 00da | | Load_Top At_Offset_2 01f3 00da | | Load_Top At_Offset_2 01f4 e218 | | Load 0x1,0x18 01f5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01f6 e218 | | Load 0x1,0x18 01f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f8 003b | ; | Store_Top Access,At_Offset_3 01f9 00d9 | | Load_Top At_Offset_1 01fa e218 | | Load 0x1,0x18 01fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01fc 003a | : | Store_Top Access,At_Offset_2 01fd 00c9 | | Action Pop_Auxiliary_Loop 01fe 00d9 | | Load_Top At_Offset_1 01ff e218 | | Load 0x1,0x18 0200 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0201 6fe5 |o | Jump_Zero 0x1e7 0202 00ce | | Action Pop_Auxiliary 0203 00d9 | | Load_Top At_Offset_1 0204 a5fe | | Store_Unchecked 0x2,-0x2 0205 00d9 | | Load_Top At_Offset_1 0206 e218 | | Load 0x1,0x18 0207 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0208 003a | : | Store_Top Access,At_Offset_2 0209 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0215 | | .CONST 0x0215 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 e218 | | Load 0x1,0x18 0214 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0215 BODY_0210: 0215 e218 | | Load 0x1,0x18 0216 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0217 e5ff | | Load 0x2,-0x1 0218 e218 | | Load 0x1,0x18 0219 181b | | Execute Package,Field_Execute,Field_Number 0x1b 021a 0039 | 9 | Store_Top Access,At_Offset_1 021b 00cf | | Action Mark_Auxiliary 021c 7810 |x | Jump 0x22d 021d 00d9 | | Load_Top At_Offset_1 021e e218 | | Load 0x1,0x18 021f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0220 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0221 00e0 | | Load_Encached Standard_Cache 0222 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0223 e5fe | | Load 0x2,-0x2 0224 00e0 | | Load_Encached Standard_Cache 0225 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0226 01df | | Execute Vector,Equal 0227 7009 |p | Jump_Nonzero 0x231 0228 00d9 | | Load_Top At_Offset_1 0229 e218 | | Load 0x1,0x18 022a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 022b 003a | : | Store_Top Access,At_Offset_2 022c 00c9 | | Action Pop_Auxiliary_Loop 022d 00d9 | | Load_Top At_Offset_1 022e e218 | | Load 0x1,0x18 022f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0230 6fec |o | Jump_Zero 0x21d 0231 00ce | | Action Pop_Auxiliary 0232 00d8 | | Load_Top At_Offset_0 0233 e218 | | Load 0x1,0x18 0234 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0235 7002 |p | Jump_Nonzero 0x238 0236 4801 |H | Short_Literal 0x1 0237 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0238 4800 |H | Short_Literal 0x0 0239 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0245 | E | .CONST 0x0245 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 e218 | | Load 0x1,0x18 0244 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0245 BODY_0240: 0245 e218 | | Load 0x1,0x18 0246 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0247 e5ff | | Load 0x2,-0x1 0248 e218 | | Load 0x1,0x18 0249 181b | | Execute Package,Field_Execute,Field_Number 0x1b 024a 0039 | 9 | Store_Top Access,At_Offset_1 024b 00cf | | Action Mark_Auxiliary 024c 7805 |x | Jump 0x252 024d 00d9 | | Load_Top At_Offset_1 024e e218 | | Load 0x1,0x18 024f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0250 003a | : | Store_Top Access,At_Offset_2 0251 00c9 | | Action Pop_Auxiliary_Loop 0252 00d9 | | Load_Top At_Offset_1 0253 e218 | | Load 0x1,0x18 0254 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0255 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0256 00e0 | | Load_Encached Standard_Cache 0257 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0258 e5fe | | Load 0x2,-0x2 0259 00e0 | | Load_Encached Standard_Cache 025a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 025b 01de | | Execute Vector,Not_Equal 025c 77f0 |w | Jump_Nonzero 0x24d 025d 00ce | | Action Pop_Auxiliary 025e 00d8 | | Load_Top At_Offset_0 025f e218 | | Load 0x1,0x18 0260 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0261 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0262 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0263 0000 0000 | | .BLANK 0000[0x5] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4601 |F | Jump_Case 0x2 026c 7801 |x | Jump 0x26e ; case 0x0 026d 7807 |x | Jump 0x275 ; case 0x1 026e 00da | | Load_Top At_Offset_2 026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0270 0125 | % | Execute Any,Set_Constraint 0271 00da | | Load_Top At_Offset_2 0272 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0273 1c00 | | Execute_Immediate Run_Utility,0x0 0274 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0275 00da | | Load_Top At_Offset_2 0276 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0277 0125 | % | Execute Any,Set_Constraint 0278 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 000a | | .DEBUG4 0x0004,0x000a,0x0a16,0x0000,0x0001,0x0011 0286 000b 02ca | | .DBG4T 0x000b,0x02ca,0x8000,0x0000 028a 0046 02df | F | .DBG4T 0x0046,0x02df,0x8000,0x0000 028e 006b 02ef | k | .DBG4T 0x006b,0x02ef,0x0002,0x0000 0292 008b 02f7 | | .DBG4T 0x008b,0x02f7,0x0002,0x0000 0296 00ab 02ff | | .DBG4T 0x00ab,0x02ff,0x0001,0x0000 029a 00c3 0307 | | .DBG4T 0x00c3,0x0307,0x0001,0x0000 029e 00d3 030a | | .DBG4T 0x00d3,0x030a,0x0001,0x4000 02a2 010b 031c | | .DBG4T 0x010b,0x031c,0x0002,0x4000 02a6 013b 032d | ; -| .DBG4T 0x013b,0x032d,0x0002,0x4000 02aa 0163 0338 | c 8| .DBG4T 0x0163,0x0338,0x0002,0x0000 02ae 0183 0340 | @| .DBG4T 0x0183,0x0340,0x0002,0x0000 02b2 01a3 0348 | H| .DBG4T 0x01a3,0x0348,0x0001,0x0000 02b6 01cb 0353 | S| .DBG4T 0x01cb,0x0353,0x0001,0x0000 02ba 01db 0356 | V| .DBG4T 0x01db,0x0356,0x0001,0x4000 02be 0213 0368 | h| .DBG4T 0x0213,0x0368,0x0002,0x4000 02c2 0243 0379 | C y| .DBG4T 0x0243,0x0379,0x0002,0x4000 02c6 026b 0000 | k | .DBG4T 0x026b,0x0000,0x0005,0x0000 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug chain 02ca ; -------------------------------------------------------------------------------------- 02ca 0013 0000 | | .DBGLEN 0x0013,0x0000 02cc 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0016,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x0030,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043 02df ; -------------------------------------------------------------------------------------- 02df ; Debug chain 02df ; -------------------------------------------------------------------------------------- 02df 000e 0000 | | .DBGLEN 0x000e,0x0000 02e1 0046 0048 | F H| .DBGLNO 0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060 02ef ; -------------------------------------------------------------------------------------- 02ef ; Debug chain 02ef ; -------------------------------------------------------------------------------------- 02ef 0002 0004 | | .DBGLEN 0x0002,0x0004 02f1 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f,0x0073,0x007d,0x007f 02f7 ; -------------------------------------------------------------------------------------- 02f7 ; Debug chain 02f7 ; -------------------------------------------------------------------------------------- 02f7 0002 0004 | | .DBGLEN 0x0002,0x0004 02f9 008b 008d | | .DBGLNO 0x008b,0x008d,0x008f,0x0093,0x009d,0x009f 02ff ; -------------------------------------------------------------------------------------- 02ff ; Debug chain 02ff ; -------------------------------------------------------------------------------------- 02ff 0002 0004 | | .DBGLEN 0x0002,0x0004 0301 00ab 00af | | .DBGLNO 0x00ab,0x00af,0x00b0,0x00b4,0x00b7,0x00bb 0307 ; -------------------------------------------------------------------------------------- 0307 ; Debug chain 0307 ; -------------------------------------------------------------------------------------- 0307 0000 0001 | | .DBGLEN 0x0000,0x0001 0309 00c3 | | .DBGLNO 0x00c3 030a ; -------------------------------------------------------------------------------------- 030a ; Debug chain 030a ; -------------------------------------------------------------------------------------- 030a 0002 0007 | | .DBGLEN 0x0002,0x0007 030c 00d3 00d5 | | .DBGLNO 0x00d3,0x00d5,0x00d7,0x00df,0x00ea,0x00f1,0x00f6,0x00fb,0x00fd 0315 0001 0003 | | .XXX[0x7] 0317 0004 0005 | | 0319 0002 0006 | | 031b 0007 | | 031c ; -------------------------------------------------------------------------------------- 031c ; Debug chain 031c ; -------------------------------------------------------------------------------------- 031c 0001 0007 | | .DBGLEN 0x0001,0x0007 031e 010b 010d | | .DBGLNO 0x010b,0x010d,0x0115,0x0120,0x0125,0x012a,0x012e,0x0130 0326 0001 0003 | | .XXX[0x7] 0328 0004 0002 | | 032a 0005 0006 | | 032c 0007 | | 032d ; -------------------------------------------------------------------------------------- 032d ; Debug chain 032d ; -------------------------------------------------------------------------------------- 032d 0001 0004 | | .DBGLEN 0x0001,0x0004 032f 013b 013d | ; =| .DBGLNO 0x013b,0x013d,0x0145,0x014a,0x0156 0334 0001 0003 | | .XXX[0x4] 0336 0002 0004 | | 0338 ; -------------------------------------------------------------------------------------- 0338 ; Debug chain 0338 ; -------------------------------------------------------------------------------------- 0338 0002 0004 | | .DBGLEN 0x0002,0x0004 033a 0163 0165 | c e| .DBGLNO 0x0163,0x0165,0x0167,0x016b,0x0175,0x0177 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug chain 0340 ; -------------------------------------------------------------------------------------- 0340 0002 0004 | | .DBGLEN 0x0002,0x0004 0342 0183 0185 | | .DBGLNO 0x0183,0x0185,0x0187,0x018b,0x0195,0x0197 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug chain 0348 ; -------------------------------------------------------------------------------------- 0348 0004 0005 | | .DBGLEN 0x0004,0x0005 034a 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01a8,0x01a9,0x01aa,0x01ae,0x01b8,0x01bb,0x01bf 0353 ; -------------------------------------------------------------------------------------- 0353 ; Debug chain 0353 ; -------------------------------------------------------------------------------------- 0353 0000 0001 | | .DBGLEN 0x0000,0x0001 0355 01cb | | .DBGLNO 0x01cb 0356 ; -------------------------------------------------------------------------------------- 0356 ; Debug chain 0356 ; -------------------------------------------------------------------------------------- 0356 0002 0007 | | .DBGLEN 0x0002,0x0007 0358 01db 01dd | | .DBGLNO 0x01db,0x01dd,0x01df,0x01e7,0x01f2,0x01f9,0x01fe,0x0203,0x0205 0361 0001 0003 | | .XXX[0x7] 0363 0004 0005 | | 0365 0002 0006 | | 0367 0007 | | 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug chain 0368 ; -------------------------------------------------------------------------------------- 0368 0001 0007 | | .DBGLEN 0x0001,0x0007 036a 0213 0215 | | .DBGLNO 0x0213,0x0215,0x021d,0x0228,0x022d,0x0232,0x0236,0x0238 0372 0001 0003 | | .XXX[0x7] 0374 0004 0002 | | 0376 0005 0006 | | 0378 0007 | | 0379 ; -------------------------------------------------------------------------------------- 0379 ; Debug chain 0379 ; -------------------------------------------------------------------------------------- 0379 0001 0004 | | .DBGLEN 0x0001,0x0004 037b 0243 0245 | C E| .DBGLNO 0x0243,0x0245,0x024d,0x0252,0x025e 0380 0001 0003 | | .XXX[0x4] 0382 0002 0004 | | 0384 0000 0000 | | .BLANK 0000[0x7c]