|
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_03f8e1
└─⟦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 0390 | | .CONST 0x0390 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0081 | | .CONST 0x0081 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0013 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0015 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0017 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0019 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 001b 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 001d 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 001f 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0021 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0023 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0025 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0027 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0029 e001 | | Load 0x0,0x1 002a 0129 | ) | Execute Any,Make_Visible 002b e002 | | Load 0x0,0x2 002c 0129 | ) | Execute Any,Make_Visible 002d e003 | | Load 0x0,0x3 002e 0129 | ) | Execute Any,Make_Visible 002f 00bf | | Action Accept_Activation 0030 e004 | | Load 0x0,0x4 0031 e005 | | Load 0x0,0x5 0032 e006 | | Load 0x0,0x6 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 e007 | | Load 0x0,0x7 0035 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0036 e008 | | Load 0x0,0x8 0037 0387 | | Declare_Variable Package 0038 00d8 | | Load_Top At_Offset_0 0039 020f | | Execute Module,Activate 003a e20f | | Load 0x1,0xf 003b 00e1 | | Load_Encached Boolean_Cache 003c 00e1 | | Load_Encached Boolean_Cache 003d e009 | | Load 0x0,0x9 003e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 003f 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 0041 4804 |H | Short_Literal 0x4 0042 032d | - | Declare_Type Record,Defined 0043 00e4 | | Load_Encached Positive_Cache 0044 0266 | f | Execute Discrete,Bounds 0045 00da | | Load_Top At_Offset_2 0046 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 0048 4801 |H | Short_Literal 0x1 0049 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 004a e00a | | Load 0x0,0xa 004b e00b | | Load 0x0,0xb 004c 00db | | Load_Top At_Offset_3 004d 00db | | Load_Top At_Offset_3 004e e008 | | Load 0x0,0x8 004f 0387 | | Declare_Variable Package 0050 00d8 | | Load_Top At_Offset_0 0051 020f | | Execute Module,Activate 0052 00d8 | | Load_Top At_Offset_0 0053 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0054 0322 | " | Declare_Variable Record 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 e00c | | Load 0x0,0xc 0058 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0059 e226 | & | Load 0x1,0x26 005a 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 005b 0322 | " | Declare_Variable Record 005c 00d8 | | Load_Top At_Offset_0 005d 1c00 | | Execute_Immediate Run_Utility,0x0 005e e226 | & | Load 0x1,0x26 005f 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0060 0322 | " | Declare_Variable Record 0061 00d8 | | Load_Top At_Offset_0 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0064 00c7 | | Action Elaborate_Subprogram 0065 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0066 00c7 | | Action Elaborate_Subprogram 0067 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0068 00c7 | | Action Elaborate_Subprogram 0069 1d17 | | Execute_Immediate Reference_Lex_1,0x17 006a 00c7 | | Action Elaborate_Subprogram 006b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 006c 00c7 | | Action Elaborate_Subprogram 006d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 006e 00c7 | | Action Elaborate_Subprogram 006f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0070 00c7 | | Action Elaborate_Subprogram 0071 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0072 00c7 | | Action Elaborate_Subprogram 0073 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0074 00c7 | | Action Elaborate_Subprogram 0075 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0076 00c7 | | Action Elaborate_Subprogram 0077 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0078 00c7 | | Action Elaborate_Subprogram 0079 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 007a 00c7 | | Action Elaborate_Subprogram 007b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 007c 00c7 | | Action Elaborate_Subprogram 007d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 007e 00c7 | | Action Elaborate_Subprogram 007f 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0080 00c7 | | Action Elaborate_Subprogram 0081 BODY_0008: 0081 e210 | | Load 0x1,0x10 0082 e00c | | Load 0x0,0xc 0083 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0084 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0085 00bc | | Action Signal_Activated 0086 00bb | | Action Signal_Completion 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0099 | | .CONST 0x0099 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0006 | | .CONST 0x0006 ; Number of locals 008b INIT_0088: 008b e22b | + | Load 0x1,0x2b 008c e006 | | Load 0x0,0x6 008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008e 1c08 | | Execute_Immediate Run_Utility,0x8 008f e227 | ' | Load 0x1,0x27 0090 0322 | " | Declare_Variable Record 0091 00d8 | | Load_Top At_Offset_0 0092 1c00 | | Execute_Immediate Run_Utility,0x0 0093 00e1 | | Load_Encached Boolean_Cache 0094 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0095 e009 | | Load 0x0,0x9 0096 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0097 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0098 00e3 | | Load_Encached Natural_Cache 0099 BODY_0088: 0099 e211 | | Load 0x1,0x11 009a 6804 |h | Jump_Zero 0x9f 009b e212 | | Load 0x1,0x12 009c e009 | | Load 0x0,0x9 009d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 009e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 009f 00cf | | Action Mark_Auxiliary 00a0 e22a | * | Load 0x1,0x2a 00a1 e229 | ) | Load 0x1,0x29 00a2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00a3 4801 |H | Short_Literal 0x1 00a4 0263 | c | Execute Discrete,Above_Bound 00a5 7026 |p& | Jump_Nonzero 0xcc 00a6 00d8 | | Load_Top At_Offset_0 00a7 e22a | * | Load 0x1,0x2a 00a8 e229 | ) | Load 0x1,0x29 00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00aa e403 | | Load 0x2,0x3 00ab 017d | } | Execute Record,Structure_Write 00ac e403 | | Load 0x2,0x3 00ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ae 681b |h | Jump_Zero 0xca 00af 4801 |H | Short_Literal 0x1 00b0 a404 | | Store_Unchecked 0x2,0x4 00b1 00d8 | | Load_Top At_Offset_0 00b2 a406 | | Store_Unchecked 0x2,0x6 00b3 e227 | ' | Load 0x1,0x27 00b4 0322 | " | Declare_Variable Record 00b5 e5ff | | Load 0x2,-0x1 00b6 e227 | ' | Load 0x1,0x27 00b7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00b8 0119 | | Execute Any,Check_In_Formal_Type 00b9 00d9 | | Load_Top At_Offset_1 00ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00bb 4800 |H | Short_Literal 0x0 00bc 00d9 | | Load_Top At_Offset_1 00bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00be 4800 |H | Short_Literal 0x0 00bf 00d9 | | Load_Top At_Offset_1 00c0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c1 e405 | | Load 0x2,0x5 00c2 00d9 | | Load_Top At_Offset_1 00c3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c4 00d9 | | Load_Top At_Offset_1 00c5 e22a | * | Load 0x1,0x2a 00c6 e229 | ) | Load 0x1,0x29 00c7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00c8 00d2 | | Pop_Control Pop_Count_2 00c9 7802 |x | Jump 0xcc 00ca 00c8 | | Action Pop_Auxiliary_Range 00cb 3fda |? | Loop_Increasing 0xa6 00cc 00ce | | Action Pop_Auxiliary 00cd 00da | | Load_Top At_Offset_2 00ce 701a |p | Jump_Nonzero 0xe9 00cf e227 | ' | Load 0x1,0x27 00d0 0322 | " | Declare_Variable Record 00d1 e5ff | | Load 0x2,-0x1 00d2 e227 | ' | Load 0x1,0x27 00d3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00d4 0119 | | Execute Any,Check_In_Formal_Type 00d5 00d9 | | Load_Top At_Offset_1 00d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d7 4800 |H | Short_Literal 0x0 00d8 00d9 | | Load_Top At_Offset_1 00d9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00da 4800 |H | Short_Literal 0x0 00db 00d9 | | Load_Top At_Offset_1 00dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00dd 00da | | Load_Top At_Offset_2 00de 00d9 | | Load_Top At_Offset_1 00df 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e0 e22a | * | Load 0x1,0x2a 00e1 e229 | ) | Load 0x1,0x29 00e2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00e3 e22a | * | Load 0x1,0x2a 00e4 017d | } | Execute Record,Structure_Write 00e5 e22a | * | Load 0x1,0x2a 00e6 e229 | ) | Load 0x1,0x29 00e7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00e8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00e9 e402 | | Load 0x2,0x2 00ea 00d9 | | Load_Top At_Offset_1 00eb e006 | | Load 0x0,0x6 00ec 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ed 00d1 | | Pop_Control Pop_Count_1 00ee e402 | | Load 0x2,0x2 00ef e22c | , | Load 0x1,0x2c 00f0 e226 | & | Load 0x1,0x26 00f1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00f2 e22c | , | Load 0x1,0x2c 00f3 017d | } | Execute Record,Structure_Write 00f4 e402 | | Load 0x2,0x2 00f5 e22d | - | Load 0x1,0x2d 00f6 e226 | & | Load 0x1,0x26 00f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00f8 e22d | - | Load 0x1,0x2d 00f9 017d | } | Execute Record,Structure_Write 00fa e211 | | Load 0x1,0x11 00fb 680d |h | Jump_Zero 0x109 00fc 00da | | Load_Top At_Offset_2 00fd 6806 |h | Jump_Zero 0x104 00fe 00d9 | | Load_Top At_Offset_1 00ff 00d9 | | Load_Top At_Offset_1 0100 e22b | + | Load 0x1,0x2b 0101 e00c | | Load 0x0,0xc 0102 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0103 7805 |x | Jump 0x109 0104 00d9 | | Load_Top At_Offset_1 0105 00d9 | | Load_Top At_Offset_1 0106 e22b | + | Load 0x1,0x2b 0107 e00c | | Load 0x0,0xc 0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0109 e402 | | Load 0x2,0x2 010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0118 | | .CONST 0x0118 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e006 | | Load 0x0,0x6 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 02ff | | Declare_Variable Variant_Record 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 BODY_0110: 0118 00db | | Load_Top At_Offset_3 0119 e20f | | Load 0x1,0xf 011a 0119 | | Execute Any,Check_In_Formal_Type 011b 8214 | | Call 0x1,0x14 011c 00d9 | | Load_Top At_Offset_1 011d 016d | m | Execute Variant_Record,Structure_Write 011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012b | + | .CONST 0x012b ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 e227 | ' | Load 0x1,0x27 0124 0322 | " | Declare_Variable Record 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 00d8 | | Load_Top At_Offset_0 0128 0322 | " | Declare_Variable Record 0129 00d8 | | Load_Top At_Offset_0 012a 1c00 | | Execute_Immediate Run_Utility,0x0 012b BODY_0120: 012b e5ff | | Load 0x2,-0x1 012c e006 | | Load 0x0,0x6 012d 180f | | Execute Package,Field_Execute,Field_Number 0xf 012e e22b | + | Load 0x1,0x2b 012f 027e | ~ | Execute Discrete,Not_Equal 0130 6802 |h | Jump_Zero 0x133 0131 e223 | # | Load 0x1,0x23 0132 0257 | W | Execute Discrete,Raise 0133 e5ff | | Load 0x2,-0x1 0134 e006 | | Load 0x0,0x6 0135 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0136 0d01 | | Execute_Immediate Less,0x1 0137 e5ff | | Load 0x2,-0x1 0138 e006 | | Load 0x0,0x6 0139 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013a e22a | * | Load 0x1,0x2a 013b e229 | ) | Load 0x1,0x29 013c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 013d 027d | } | Execute Discrete,Greater 013e 0278 | x | Execute Discrete,Or 013f 6802 |h | Jump_Zero 0x142 0140 e224 | $ | Load 0x1,0x24 0141 0257 | W | Execute Discrete,Raise 0142 e5ff | | Load 0x2,-0x1 0143 e006 | | Load 0x0,0x6 0144 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0145 00d8 | | Load_Top At_Offset_0 0146 00e4 | | Load_Encached Positive_Cache 0147 0260 | ` | Execute Discrete,In_Type 0148 7001 |p | Jump_Nonzero 0x14a 0149 0801 | | Execute_Immediate Raise,0x1 014a e22a | * | Load 0x1,0x2a 014b e229 | ) | Load 0x1,0x29 014c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 014d 00da | | Load_Top At_Offset_2 014e 017d | } | Execute Record,Structure_Write 014f 00d8 | | Load_Top At_Offset_0 0150 e5ff | | Load 0x2,-0x1 0151 e006 | | Load 0x0,0x6 0152 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0153 00d8 | | Load_Top At_Offset_0 0154 00e4 | | Load_Encached Positive_Cache 0155 0260 | ` | Execute Discrete,In_Type 0156 7001 |p | Jump_Nonzero 0x158 0157 0801 | | Execute_Immediate Raise,0x1 0158 e22a | * | Load 0x1,0x2a 0159 e229 | ) | Load 0x1,0x29 015a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 015b 00d9 | | Load_Top At_Offset_1 015c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015d 7005 |p | Jump_Nonzero 0x163 015e e22c | , | Load 0x1,0x2c 015f e5ff | | Load 0x2,-0x1 0160 e226 | & | Load 0x1,0x26 0161 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0162 00d1 | | Pop_Control Pop_Count_1 0163 e22d | - | Load 0x1,0x2d 0164 e5ff | | Load 0x2,-0x1 0165 e226 | & | Load 0x1,0x26 0166 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0167 00d1 | | Pop_Control Pop_Count_1 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0177 | w | .CONST 0x0177 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e227 | ' | Load 0x1,0x27 0174 0322 | " | Declare_Variable Record 0175 00d8 | | Load_Top At_Offset_0 0176 1c00 | | Execute_Immediate Run_Utility,0x0 0177 BODY_0170: 0177 e22a | * | Load 0x1,0x2a 0178 e229 | ) | Load 0x1,0x29 0179 1814 | | Execute Package,Field_Execute,Field_Number 0x14 017a 00d1 | | Pop_Control Pop_Count_1 017b e22b | + | Load 0x1,0x2b 017c e00c | | Load 0x0,0xc 017d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 017e e22c | , | Load 0x1,0x2c 017f e226 | & | Load 0x1,0x26 0180 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0181 00d1 | | Pop_Control Pop_Count_1 0182 e22d | - | Load 0x1,0x2d 0183 e226 | & | Load 0x1,0x26 0184 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0185 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018f | | .CONST 0x018f ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e227 | ' | Load 0x1,0x27 018c 0322 | " | Declare_Variable Record 018d 00d8 | | Load_Top At_Offset_0 018e 1c00 | | Execute_Immediate Run_Utility,0x0 018f BODY_0188: 018f 00db | | Load_Top At_Offset_3 0190 e006 | | Load 0x0,0x6 0191 180f | | Execute Package,Field_Execute,Field_Number 0xf 0192 e22b | + | Load 0x1,0x2b 0193 027e | ~ | Execute Discrete,Not_Equal 0194 6802 |h | Jump_Zero 0x197 0195 e223 | # | Load 0x1,0x23 0196 0257 | W | Execute Discrete,Raise 0197 00db | | Load_Top At_Offset_3 0198 e006 | | Load 0x0,0x6 0199 1820 | | Execute Package,Field_Execute,Field_Number 0x20 019a 0d01 | | Execute_Immediate Less,0x1 019b e5ff | | Load 0x2,-0x1 019c e006 | | Load 0x0,0x6 019d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 019e e22a | * | Load 0x1,0x2a 019f e229 | ) | Load 0x1,0x29 01a0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01a1 027d | } | Execute Discrete,Greater 01a2 0278 | x | Execute Discrete,Or 01a3 6802 |h | Jump_Zero 0x1a6 01a4 e224 | $ | Load 0x1,0x24 01a5 0257 | W | Execute Discrete,Raise 01a6 00db | | Load_Top At_Offset_3 01a7 e006 | | Load 0x0,0x6 01a8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01a9 00d8 | | Load_Top At_Offset_0 01aa 00e4 | | Load_Encached Positive_Cache 01ab 0260 | ` | Execute Discrete,In_Type 01ac 7001 |p | Jump_Nonzero 0x1ae 01ad 0801 | | Execute_Immediate Raise,0x1 01ae e22a | * | Load 0x1,0x2a 01af e229 | ) | Load 0x1,0x29 01b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b1 00d9 | | Load_Top At_Offset_1 01b2 017d | } | Execute Record,Structure_Write 01b3 00d8 | | Load_Top At_Offset_0 01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b5 7023 |p# | Jump_Nonzero 0x1d9 01b6 4801 |H | Short_Literal 0x1 01b7 00d9 | | Load_Top At_Offset_1 01b8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b9 e211 | | Load 0x1,0x11 01ba 680d |h | Jump_Zero 0x1c8 01bb e212 | | Load 0x1,0x12 01bc e009 | | Load 0x0,0x9 01bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01be 00d9 | | Load_Top At_Offset_1 01bf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01c0 00d8 | | Load_Top At_Offset_0 01c1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c2 e5ff | | Load 0x2,-0x1 01c3 e006 | | Load 0x0,0x6 01c4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c5 e22b | + | Load 0x1,0x2b 01c6 e00c | | Load 0x0,0xc 01c7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01c8 00d8 | | Load_Top At_Offset_0 01c9 e5ff | | Load 0x2,-0x1 01ca e006 | | Load 0x0,0x6 01cb 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01cc 00d8 | | Load_Top At_Offset_0 01cd 00e4 | | Load_Encached Positive_Cache 01ce 0260 | ` | Execute Discrete,In_Type 01cf 7001 |p | Jump_Nonzero 0x1d1 01d0 0801 | | Execute_Immediate Raise,0x1 01d1 e22a | * | Load 0x1,0x2a 01d2 e229 | ) | Load 0x1,0x29 01d3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01d4 e22c | , | Load 0x1,0x2c 01d5 e5ff | | Load 0x2,-0x1 01d6 e226 | & | Load 0x1,0x26 01d7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01d8 00d1 | | Pop_Control Pop_Count_1 01d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e7 | | .CONST 0x01e7 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e227 | ' | Load 0x1,0x27 01e4 0322 | " | Declare_Variable Record 01e5 00d8 | | Load_Top At_Offset_0 01e6 1c00 | | Execute_Immediate Run_Utility,0x0 01e7 BODY_01e0: 01e7 00cf | | Action Mark_Auxiliary 01e8 e22a | * | Load 0x1,0x2a 01e9 e229 | ) | Load 0x1,0x29 01ea 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01eb 4801 |H | Short_Literal 0x1 01ec 0263 | c | Execute Discrete,Above_Bound 01ed 7020 |p | Jump_Nonzero 0x20e 01ee 00d8 | | Load_Top At_Offset_0 01ef e22a | * | Load 0x1,0x2a 01f0 e229 | ) | Load 0x1,0x29 01f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01f2 e402 | | Load 0x2,0x2 01f3 017d | } | Execute Record,Structure_Write 01f4 00db | | Load_Top At_Offset_3 01f5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01f6 7015 |p | Jump_Nonzero 0x20c 01f7 4801 |H | Short_Literal 0x1 01f8 e402 | | Load 0x2,0x2 01f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01fa e211 | | Load 0x1,0x11 01fb 680b |h | Jump_Zero 0x207 01fc e212 | | Load 0x1,0x12 01fd e009 | | Load 0x0,0x9 01fe 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01ff e402 | | Load 0x2,0x2 0200 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0201 00db | | Load_Top At_Offset_3 0202 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0203 00d9 | | Load_Top At_Offset_1 0204 e22b | + | Load 0x1,0x2b 0205 e00c | | Load 0x0,0xc 0206 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0207 00db | | Load_Top At_Offset_3 0208 00d9 | | Load_Top At_Offset_1 0209 e22a | * | Load 0x1,0x2a 020a e229 | ) | Load 0x1,0x29 020b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 020c 00c8 | | Action Pop_Auxiliary_Range 020d 3fe0 |? | Loop_Increasing 0x1ee 020e 00ce | | Action Pop_Auxiliary 020f e22c | , | Load 0x1,0x2c 0210 e226 | & | Load 0x1,0x26 0211 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0212 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0213 0000 0000 | | .BLANK 0000[0x5] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021f | | .CONST 0x021f ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0002 | | .CONST 0x0002 ; Number of locals 021b INIT_0218: 021b e227 | ' | Load 0x1,0x27 021c 0322 | " | Declare_Variable Record 021d 00d8 | | Load_Top At_Offset_0 021e 1c00 | | Execute_Immediate Run_Utility,0x0 021f BODY_0218: 021f 00db | | Load_Top At_Offset_3 0220 e006 | | Load 0x0,0x6 0221 180f | | Execute Package,Field_Execute,Field_Number 0xf 0222 e22b | + | Load 0x1,0x2b 0223 027e | ~ | Execute Discrete,Not_Equal 0224 6802 |h | Jump_Zero 0x227 0225 e223 | # | Load 0x1,0x23 0226 0257 | W | Execute Discrete,Raise 0227 00db | | Load_Top At_Offset_3 0228 e006 | | Load 0x0,0x6 0229 1820 | | Execute Package,Field_Execute,Field_Number 0x20 022a 0d01 | | Execute_Immediate Less,0x1 022b e5ff | | Load 0x2,-0x1 022c e006 | | Load 0x0,0x6 022d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 022e e22a | * | Load 0x1,0x2a 022f e229 | ) | Load 0x1,0x29 0230 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0231 027d | } | Execute Discrete,Greater 0232 0278 | x | Execute Discrete,Or 0233 6802 |h | Jump_Zero 0x236 0234 e224 | $ | Load 0x1,0x24 0235 0257 | W | Execute Discrete,Raise 0236 00db | | Load_Top At_Offset_3 0237 e006 | | Load 0x0,0x6 0238 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0239 00d8 | | Load_Top At_Offset_0 023a 00e4 | | Load_Encached Positive_Cache 023b 0260 | ` | Execute Discrete,In_Type 023c 7001 |p | Jump_Nonzero 0x23e 023d 0801 | | Execute_Immediate Raise,0x1 023e e22a | * | Load 0x1,0x2a 023f e229 | ) | Load 0x1,0x29 0240 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0241 00d9 | | Load_Top At_Offset_1 0242 017d | } | Execute Record,Structure_Write 0243 00d8 | | Load_Top At_Offset_0 0244 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0245 6824 |h$ | Jump_Zero 0x26a 0246 4800 |H | Short_Literal 0x0 0247 00d9 | | Load_Top At_Offset_1 0248 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0249 e211 | | Load 0x1,0x11 024a 680d |h | Jump_Zero 0x258 024b e212 | | Load 0x1,0x12 024c e009 | | Load 0x0,0x9 024d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 024e 00d9 | | Load_Top At_Offset_1 024f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0250 00d8 | | Load_Top At_Offset_0 0251 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0252 e5ff | | Load 0x2,-0x1 0253 e006 | | Load 0x0,0x6 0254 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0255 e22b | + | Load 0x1,0x2b 0256 e00c | | Load 0x0,0xc 0257 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0258 00d8 | | Load_Top At_Offset_0 0259 e5ff | | Load 0x2,-0x1 025a e006 | | Load 0x0,0x6 025b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 025c 00d8 | | Load_Top At_Offset_0 025d 00e4 | | Load_Encached Positive_Cache 025e 0260 | ` | Execute Discrete,In_Type 025f 7001 |p | Jump_Nonzero 0x261 0260 0801 | | Execute_Immediate Raise,0x1 0261 e22a | * | Load 0x1,0x2a 0262 e229 | ) | Load 0x1,0x29 0263 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0264 00db | | Load_Top At_Offset_3 0265 e22c | , | Load 0x1,0x2c 0266 e226 | & | Load 0x1,0x26 0267 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0268 e22c | , | Load 0x1,0x2c 0269 017d | } | Execute Record,Structure_Write 026a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0277 | w | .CONST 0x0277 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 e227 | ' | Load 0x1,0x27 0274 0322 | " | Declare_Variable Record 0275 00d8 | | Load_Top At_Offset_0 0276 1c00 | | Execute_Immediate Run_Utility,0x0 0277 BODY_0270: 0277 00cf | | Action Mark_Auxiliary 0278 e22a | * | Load 0x1,0x2a 0279 e229 | ) | Load 0x1,0x29 027a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 027b 4801 |H | Short_Literal 0x1 027c 0263 | c | Execute Discrete,Above_Bound 027d 7020 |p | Jump_Nonzero 0x29e 027e 00d8 | | Load_Top At_Offset_0 027f e22a | * | Load 0x1,0x2a 0280 e229 | ) | Load 0x1,0x29 0281 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0282 e402 | | Load 0x2,0x2 0283 017d | } | Execute Record,Structure_Write 0284 00db | | Load_Top At_Offset_3 0285 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0286 6815 |h | Jump_Zero 0x29c 0287 4800 |H | Short_Literal 0x0 0288 e402 | | Load 0x2,0x2 0289 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 028a e211 | | Load 0x1,0x11 028b 680b |h | Jump_Zero 0x297 028c e212 | | Load 0x1,0x12 028d e009 | | Load 0x0,0x9 028e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 028f e402 | | Load 0x2,0x2 0290 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0291 00db | | Load_Top At_Offset_3 0292 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0293 00d9 | | Load_Top At_Offset_1 0294 e22b | + | Load 0x1,0x2b 0295 e00c | | Load 0x0,0xc 0296 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0297 00db | | Load_Top At_Offset_3 0298 00d9 | | Load_Top At_Offset_1 0299 e22a | * | Load 0x1,0x2a 029a e229 | ) | Load 0x1,0x29 029b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 029c 00c8 | | Action Pop_Auxiliary_Range 029d 3fe0 |? | Loop_Increasing 0x27e 029e 00ce | | Action Pop_Auxiliary 029f e22c | , | Load 0x1,0x2c 02a0 e226 | & | Load 0x1,0x26 02a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a2 00d1 | | Pop_Control Pop_Count_1 02a3 e22d | - | Load 0x1,0x2d 02a4 e226 | & | Load 0x1,0x26 02a5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 02a6 e22c | , | Load 0x1,0x2c 02a7 017d | } | Execute Record,Structure_Write 02a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e22c | , | Load 0x1,0x2c 02b4 e226 | & | Load 0x1,0x26 02b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02b6 00ca | | Action Exit_Nullary_Function 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb e22d | - | Load 0x1,0x2d 02bc e226 | & | Load 0x1,0x26 02bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02be 00ca | | Action Exit_Nullary_Function 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e22a | * | Load 0x1,0x2a 02c4 e229 | ) | Load 0x1,0x29 02c5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02c6 00ca | | Action Exit_Nullary_Function 02c7 0000 | | .XXX[0x1] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb e210 | | Load 0x1,0x10 02cc 0335 | 5 | Declare_Variable Array,Duplicate 02cd 00cd | | Action Spare6_Action 02ce 00ca | | Action Exit_Nullary_Function 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 8213 | | Call 0x1,0x13 02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02df | | .CONST 0x02df ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db e227 | ' | Load 0x1,0x27 02dc 0322 | " | Declare_Variable Record 02dd 00d8 | | Load_Top At_Offset_0 02de 1c00 | | Execute_Immediate Run_Utility,0x0 02df BODY_02d8: 02df 00db | | Load_Top At_Offset_3 02e0 e006 | | Load 0x0,0x6 02e1 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e2 e22b | + | Load 0x1,0x2b 02e3 027e | ~ | Execute Discrete,Not_Equal 02e4 6802 |h | Jump_Zero 0x2e7 02e5 e223 | # | Load 0x1,0x23 02e6 0257 | W | Execute Discrete,Raise 02e7 00db | | Load_Top At_Offset_3 02e8 e006 | | Load 0x0,0x6 02e9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02ea 0d01 | | Execute_Immediate Less,0x1 02eb e5ff | | Load 0x2,-0x1 02ec e006 | | Load 0x0,0x6 02ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02ee e22a | * | Load 0x1,0x2a 02ef e229 | ) | Load 0x1,0x29 02f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02f1 027d | } | Execute Discrete,Greater 02f2 0278 | x | Execute Discrete,Or 02f3 6802 |h | Jump_Zero 0x2f6 02f4 e224 | $ | Load 0x1,0x24 02f5 0257 | W | Execute Discrete,Raise 02f6 00db | | Load_Top At_Offset_3 02f7 e006 | | Load 0x0,0x6 02f8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02f9 00d8 | | Load_Top At_Offset_0 02fa 00e4 | | Load_Encached Positive_Cache 02fb 0260 | ` | Execute Discrete,In_Type 02fc 7001 |p | Jump_Nonzero 0x2fe 02fd 0801 | | Execute_Immediate Raise,0x1 02fe e22a | * | Load 0x1,0x2a 02ff e229 | ) | Load 0x1,0x29 0300 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0301 00d9 | | Load_Top At_Offset_1 0302 017d | } | Execute Record,Structure_Write 0303 00d8 | | Load_Top At_Offset_0 0304 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0305 e20f | | Load 0x1,0xf 0306 0119 | | Execute Any,Check_In_Formal_Type 0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030f | | .CONST 0x030f ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b e227 | ' | Load 0x1,0x27 030c 0322 | " | Declare_Variable Record 030d 00d8 | | Load_Top At_Offset_0 030e 1c00 | | Execute_Immediate Run_Utility,0x0 030f BODY_0308: 030f 00db | | Load_Top At_Offset_3 0310 e006 | | Load 0x0,0x6 0311 180f | | Execute Package,Field_Execute,Field_Number 0xf 0312 e22b | + | Load 0x1,0x2b 0313 027e | ~ | Execute Discrete,Not_Equal 0314 6802 |h | Jump_Zero 0x317 0315 e223 | # | Load 0x1,0x23 0316 0257 | W | Execute Discrete,Raise 0317 00db | | Load_Top At_Offset_3 0318 e006 | | Load 0x0,0x6 0319 1820 | | Execute Package,Field_Execute,Field_Number 0x20 031a 0d01 | | Execute_Immediate Less,0x1 031b e5ff | | Load 0x2,-0x1 031c e006 | | Load 0x0,0x6 031d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 031e e22a | * | Load 0x1,0x2a 031f e229 | ) | Load 0x1,0x29 0320 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0321 027d | } | Execute Discrete,Greater 0322 0278 | x | Execute Discrete,Or 0323 6802 |h | Jump_Zero 0x326 0324 e224 | $ | Load 0x1,0x24 0325 0257 | W | Execute Discrete,Raise 0326 00db | | Load_Top At_Offset_3 0327 e006 | | Load 0x0,0x6 0328 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0329 00d8 | | Load_Top At_Offset_0 032a 00e4 | | Load_Encached Positive_Cache 032b 0260 | ` | Execute Discrete,In_Type 032c 7001 |p | Jump_Nonzero 0x32e 032d 0801 | | Execute_Immediate Raise,0x1 032e e22a | * | Load 0x1,0x2a 032f e229 | ) | Load 0x1,0x29 0330 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0331 00d9 | | Load_Top At_Offset_1 0332 017d | } | Execute Record,Structure_Write 0333 e5fe | | Load 0x2,-0x2 0334 00d9 | | Load_Top At_Offset_1 0335 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0336 e211 | | Load 0x1,0x11 0337 680d |h | Jump_Zero 0x345 0338 e212 | | Load 0x1,0x12 0339 e009 | | Load 0x0,0x9 033a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 033b 00d9 | | Load_Top At_Offset_1 033c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 033d 00d8 | | Load_Top At_Offset_0 033e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 033f e5ff | | Load 0x2,-0x1 0340 e006 | | Load 0x0,0x6 0341 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0342 e22b | + | Load 0x1,0x2b 0343 e00c | | Load 0x0,0xc 0344 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0345 00d8 | | Load_Top At_Offset_0 0346 e5ff | | Load 0x2,-0x1 0347 e006 | | Load 0x0,0x6 0348 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0349 00d8 | | Load_Top At_Offset_0 034a 00e4 | | Load_Encached Positive_Cache 034b 0260 | ` | Execute Discrete,In_Type 034c 7001 |p | Jump_Nonzero 0x34e 034d 0801 | | Execute_Immediate Raise,0x1 034e e22a | * | Load 0x1,0x2a 034f e229 | ) | Load 0x1,0x29 0350 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0351 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0352 0000 0000 | | .BLANK 0000[0x6] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 4608 |F | Jump_Case 0x9 035c 7808 |x | Jump 0x365 ; case 0x0 035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 035e 7816 |x | Jump 0x375 ; case 0x2 035f 7815 |x | Jump 0x375 ; case 0x3 0360 7814 |x | Jump 0x375 ; case 0x4 0361 7813 |x | Jump 0x375 ; case 0x5 0362 7812 |x | Jump 0x375 ; case 0x6 0363 7811 |x | Jump 0x375 ; case 0x7 0364 7810 |x | Jump 0x375 ; case 0x8 0365 00da | | Load_Top At_Offset_2 0366 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0367 0125 | % | Execute Any,Set_Constraint 0368 00da | | Load_Top At_Offset_2 0369 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 036a 1c00 | | Execute_Immediate Run_Utility,0x0 036b 4801 |H | Short_Literal 0x1 036c 00db | | Load_Top At_Offset_3 036d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 036e 4800 |H | Short_Literal 0x0 036f 00db | | Load_Top At_Offset_3 0370 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0371 4800 |H | Short_Literal 0x0 0372 00db | | Load_Top At_Offset_3 0373 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0374 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0375 0869 | i | Execute_Immediate Raise,0x69 0376 0000 0000 | | .XXX[0x2] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00d1 | | Pop_Control Pop_Count_1 037c 00da | | Load_Top At_Offset_2 037d 01dc | | Execute Vector,Last 037e 00db | | Load_Top At_Offset_3 037f 01dd | | Execute Vector,First 0380 0263 | c | Execute Discrete,Above_Bound 0381 7006 |p | Jump_Nonzero 0x388 0382 00d8 | | Load_Top At_Offset_0 0383 e5ff | | Load 0x2,-0x1 0384 01d5 | | Execute Vector,Field_Reference 0385 1c00 | | Execute_Immediate Run_Utility,0x0 0386 0a01 | | Execute_Immediate Plus,0x1 0387 7ff8 | | Jump 0x380 0388 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0389 0000 0000 | | .BLANK 0000[0x7] 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug Table 0390 ; -------------------------------------------------------------------------------------- 0390 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdc7f,0x0000,0x0001,0x0013 0396 000b 03e2 | | .DBG4T 0x000b,0x03e2,0xc000,0x0000 039a 0030 03f4 | 0 | .DBG4T 0x0030,0x03f4,0xc000,0x8000 039e 008b 0425 | %| .DBG4T 0x008b,0x0425,0x1002,0x0000 03a2 0113 0440 | @| .DBG4T 0x0113,0x0440,0x1001,0x0000 03a6 0123 0444 | # D| .DBG4T 0x0123,0x0444,0x1001,0x0000 03aa 0173 0450 | s P| .DBG4T 0x0173,0x0450,0x1001,0x0000 03ae 018b 0457 | W| .DBG4T 0x018b,0x0457,0x1001,0x0000 03b2 01e3 0466 | f| .DBG4T 0x01e3,0x0466,0x1001,0x0000 03b6 021b 0472 | r| .DBG4T 0x021b,0x0472,0x1001,0x0000 03ba 0273 0481 | s | .DBG4T 0x0273,0x0481,0x1001,0x0000 03be 02b3 048e | | .DBG4T 0x02b3,0x048e,0x1002,0x0000 03c2 02bb 0491 | | .DBG4T 0x02bb,0x0491,0x1002,0x0000 03c6 02c3 0494 | | .DBG4T 0x02c3,0x0494,0x1002,0x0000 03ca 02cb 0497 | | .DBG4T 0x02cb,0x0497,0x1002,0x0000 03ce 02d3 049a | | .DBG4T 0x02d3,0x049a,0x1002,0x0000 03d2 02db 049d | | .DBG4T 0x02db,0x049d,0x1002,0x0000 03d6 030b 04a6 | | .DBG4T 0x030b,0x04a6,0x1001,0x0000 03da 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x1005,0x0000 03de 037b 0000 | { | .DBG4T 0x037b,0x0000,0x1005,0x0000 03e2 ; -------------------------------------------------------------------------------------- 03e2 ; Debug chain 03e2 ; -------------------------------------------------------------------------------------- 03e2 0010 0000 | | .DBGLEN 0x0010,0x0000 03e4 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029 03f4 ; -------------------------------------------------------------------------------------- 03f4 ; Debug chain 03f4 ; -------------------------------------------------------------------------------------- 03f4 0017 0001 | | .DBGLEN 0x0017,0x0001 03f6 0030 003a | 0 :| .DBGLNO 0x0030,0x003a,0x0043,0x004a,0x0052,0x0057,0x0059,0x005e,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081 040e 0001 0003 | | .XXX[0x17] 0410 0004 0005 | | 0412 0007 0008 | | 0414 0009 000a | | 0416 000b 000c | | 0418 000d 000e | | 041a 000f 0010 | | 041c 0011 0012 | | 041e 0013 0014 | | 0420 0015 0016 | | 0422 0017 0018 | | 0424 0019 | | 0425 ; -------------------------------------------------------------------------------------- 0425 ; Debug chain 0425 ; -------------------------------------------------------------------------------------- 0425 0005 0014 | | .DBGLEN 0x0005,0x0014 0427 008b 008f | | .DBGLNO 0x008b,0x008f,0x0093,0x0095,0x0098,0x0099,0x009b,0x00a0,0x00a6,0x00ac,0x00af,0x00b1,0x00b3,0x00c8,0x00cd,0x00cf,0x00e5,0x00e9,0x00ee,0x00f4,0x00fa,0x00fc,0x00fe,0x0104,0x0109 0440 ; -------------------------------------------------------------------------------------- 0440 ; Debug chain 0440 ; -------------------------------------------------------------------------------------- 0440 0001 0001 | | .DBGLEN 0x0001,0x0001 0442 0113 0118 | | .DBGLNO 0x0113,0x0118 0444 ; -------------------------------------------------------------------------------------- 0444 ; Debug chain 0444 ; -------------------------------------------------------------------------------------- 0444 0001 0009 | | .DBGLEN 0x0001,0x0009 0446 0123 012b | # +| .DBGLNO 0x0123,0x012b,0x0131,0x0133,0x0140,0x0142,0x014f,0x015b,0x015e,0x0163 0450 ; -------------------------------------------------------------------------------------- 0450 ; Debug chain 0450 ; -------------------------------------------------------------------------------------- 0450 0001 0004 | | .DBGLEN 0x0001,0x0004 0452 0173 0177 | s w| .DBGLNO 0x0173,0x0177,0x017b,0x017e,0x0182 0457 ; -------------------------------------------------------------------------------------- 0457 ; Debug chain 0457 ; -------------------------------------------------------------------------------------- 0457 0001 000c | | .DBGLEN 0x0001,0x000c 0459 018b 018f | | .DBGLNO 0x018b,0x018f,0x0195,0x0197,0x01a4,0x01a6,0x01b3,0x01b6,0x01b9,0x01bb,0x01c0,0x01c8,0x01d4 0466 ; -------------------------------------------------------------------------------------- 0466 ; Debug chain 0466 ; -------------------------------------------------------------------------------------- 0466 0001 0009 | | .DBGLEN 0x0001,0x0009 0468 01e3 01e8 | | .DBGLNO 0x01e3,0x01e8,0x01ee,0x01f4,0x01f7,0x01fa,0x01fc,0x0201,0x0207,0x020f 0472 ; -------------------------------------------------------------------------------------- 0472 ; Debug chain 0472 ; -------------------------------------------------------------------------------------- 0472 0001 000c | | .DBGLEN 0x0001,0x000c 0474 021b 021f | | .DBGLNO 0x021b,0x021f,0x0225,0x0227,0x0234,0x0236,0x0243,0x0246,0x0249,0x024b,0x0250,0x0258,0x0264 0481 ; -------------------------------------------------------------------------------------- 0481 ; Debug chain 0481 ; -------------------------------------------------------------------------------------- 0481 0001 000a | | .DBGLEN 0x0001,0x000a 0483 0273 0278 | s x| .DBGLNO 0x0273,0x0278,0x027e,0x0284,0x0287,0x028a,0x028c,0x0291,0x0297,0x029f,0x02a3 048e ; -------------------------------------------------------------------------------------- 048e ; Debug chain 048e ; -------------------------------------------------------------------------------------- 048e 0000 0001 | | .DBGLEN 0x0000,0x0001 0490 02b3 | | .DBGLNO 0x02b3 0491 ; -------------------------------------------------------------------------------------- 0491 ; Debug chain 0491 ; -------------------------------------------------------------------------------------- 0491 0000 0001 | | .DBGLEN 0x0000,0x0001 0493 02bb | | .DBGLNO 0x02bb 0494 ; -------------------------------------------------------------------------------------- 0494 ; Debug chain 0494 ; -------------------------------------------------------------------------------------- 0494 0000 0001 | | .DBGLEN 0x0000,0x0001 0496 02c3 | | .DBGLNO 0x02c3 0497 ; -------------------------------------------------------------------------------------- 0497 ; Debug chain 0497 ; -------------------------------------------------------------------------------------- 0497 0000 0001 | | .DBGLEN 0x0000,0x0001 0499 02cb | | .DBGLNO 0x02cb 049a ; -------------------------------------------------------------------------------------- 049a ; Debug chain 049a ; -------------------------------------------------------------------------------------- 049a 0000 0001 | | .DBGLEN 0x0000,0x0001 049c 02d3 | | .DBGLNO 0x02d3 049d ; -------------------------------------------------------------------------------------- 049d ; Debug chain 049d ; -------------------------------------------------------------------------------------- 049d 0001 0006 | | .DBGLEN 0x0001,0x0006 049f 02db 02df | | .DBGLNO 0x02db,0x02df,0x02e5,0x02e7,0x02f4,0x02f6,0x0303 04a6 ; -------------------------------------------------------------------------------------- 04a6 ; Debug chain 04a6 ; -------------------------------------------------------------------------------------- 04a6 0001 000a | | .DBGLEN 0x0001,0x000a 04a8 030b 030f | | .DBGLNO 0x030b,0x030f,0x0315,0x0317,0x0324,0x0326,0x0333,0x0336,0x0338,0x033d,0x0345 04b3 0000 0000 | | .BLANK 0000[0x14d]