|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b1 | | .CONST 0x00b1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 000c 00c4 | | Action Make_Default 000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0013 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0014 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0016 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0018 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 001a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001c 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001e 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0020 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0022 00e9 | | Load_Encached String_Cache 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 03ad | | Declare_Type Heap_Access,Defined 0025 00e3 | | Load_Encached Natural_Cache 0026 4800 |H | Short_Literal 0x0 0027 4801 |H | Short_Literal 0x1 0028 4801 |H | Short_Literal 0x1 0029 4802 |H | Short_Literal 0x2 002a 0318 | | Declare_Type Variant_Record,Incomplete 002b 029f 021b | | Declare_Subprogram INIT_0218,For_Call 002d 00d9 | | Load_Top At_Offset_1 002e 012a | * | Execute Any,Change_Utility 002f 0007 | | Action Break_Optional 0030 00d8 | | Load_Top At_Offset_0 0031 02a0 | | Declare_Subprogram Null_Subprogram 0032 e20d | | Load 0x1,0xd 0033 03a3 | | Complete_Type Heap_Access,By_Defining 0034 e20d | | Load 0x1,0xd 0035 0129 | ) | Execute Any,Make_Visible 0036 c20e | | Store 0x1,0xe 0037 4803 |H | Short_Literal 0x3 0038 032a | * | Declare_Type Record,Incomplete 0039 00d8 | | Load_Top At_Offset_0 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b e212 | | Load 0x1,0x12 003c 03a3 | | Complete_Type Heap_Access,By_Defining 003d 00bf | | Action Accept_Activation 003e 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative 003f 00e9 | | Load_Encached String_Cache 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 00da | | Load_Top At_Offset_2 0042 03a3 | | Complete_Type Heap_Access,By_Defining 0043 e001 | | Load 0x0,0x1 0044 e002 | | Load 0x0,0x2 0045 00e9 | | Load_Encached String_Cache 0046 00db | | Load_Top At_Offset_3 0047 e003 | | Load 0x0,0x3 0048 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0049 0387 | | Declare_Variable Package 004a 00d8 | | Load_Top At_Offset_0 004b 020f | | Execute Module,Activate 004c 4803 |H | Short_Literal 0x3 004d 032a | * | Declare_Type Record,Incomplete 004e 00d8 | | Load_Top At_Offset_0 004f 02a0 | | Declare_Subprogram Null_Subprogram 0050 03ad | | Declare_Type Heap_Access,Defined 0051 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative 0052 00d9 | | Load_Top At_Offset_1 0053 00d9 | | Load_Top At_Offset_1 0054 03a2 | | Complete_Type Heap_Access,By_Renaming 0055 e21d | | Load 0x1,0x1d 0056 e004 | | Load 0x0,0x4 0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0058 00da | | Load_Top At_Offset_2 0059 02a0 | | Declare_Subprogram Null_Subprogram 005a e21f | | Load 0x1,0x1f 005b 0326 | & | Complete_Type Record,By_Defining 005c 00da | | Load_Top At_Offset_2 005d 0322 | " | Declare_Variable Record 005e e21d | | Load 0x1,0x1d 005f 00d9 | | Load_Top At_Offset_1 0060 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0061 e004 | | Load 0x0,0x4 0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0063 00d9 | | Load_Top At_Offset_1 0064 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0065 00d9 | | Load_Top At_Offset_1 0066 00d9 | | Load_Top At_Offset_1 0067 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0068 e005 | | Load 0x0,0x5 0069 e006 | | Load 0x0,0x6 006a e21f | | Load 0x1,0x1f 006b e221 | ! | Load 0x1,0x21 006c e003 | | Load 0x0,0x3 006d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006e 0387 | | Declare_Variable Package 006f 00d8 | | Load_Top At_Offset_0 0070 020f | | Execute Module,Activate 0071 00e3 | | Load_Encached Natural_Cache 0072 0266 | f | Execute Discrete,Bounds 0073 e221 | ! | Load 0x1,0x21 0074 02a0 | | Declare_Subprogram Null_Subprogram 0075 4801 |H | Short_Literal 0x1 0076 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0077 00d8 | | Load_Top At_Offset_0 0078 029f 021b | | Declare_Subprogram INIT_0218,For_Call 007a 4800 |H | Short_Literal 0x0 007b 4801 |H | Short_Literal 0x1 007c 4800 |H | Short_Literal 0x0 007d e21b | | Load 0x1,0x1b 007e 0307 | | Complete_Type Variant_Record,By_Defining 007f e007 | | Load 0x0,0x7 0080 e008 | | Load 0x0,0x8 0081 e21b | | Load 0x1,0x1b 0082 e20d | | Load 0x1,0xd 0083 e003 | | Load 0x0,0x3 0084 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0085 0387 | | Declare_Variable Package 0086 00d8 | | Load_Top At_Offset_0 0087 020f | | Execute Module,Activate 0088 e20d | | Load 0x1,0xd 0089 00e3 | | Load_Encached Natural_Cache 008a e220 | | Load 0x1,0x20 008b 02a0 | | Declare_Subprogram Null_Subprogram 008c e21c | | Load 0x1,0x1c 008d 0326 | & | Complete_Type Record,By_Defining 008e e009 | | Load 0x0,0x9 008f e00a | | Load 0x0,0xa 0090 e21c | | Load 0x1,0x1c 0091 e212 | | Load 0x1,0x12 0092 e003 | | Load 0x0,0x3 0093 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0094 0387 | | Declare_Variable Package 0095 00d8 | | Load_Top At_Offset_0 0096 020f | | Execute Module,Activate 0097 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0099 1d0f | | Execute_Immediate Reference_Lex_1,0xf 009a 00c7 | | Action Elaborate_Subprogram 009b 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 009d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 009e 00c7 | | Action Elaborate_Subprogram 009f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00a0 00c7 | | Action Elaborate_Subprogram 00a1 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 00a3 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00b0 00c7 | | Action Elaborate_Subprogram 00b1 BODY_0008: 00b1 00bc | | Action Signal_Activated 00b2 00bb | | Action Signal_Completion 00b3 0000 0000 | | .BLANK 0000[0x5] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bf | | .CONST 0x00bf ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb 00db | | Load_Top At_Offset_3 00bc 8227 | ' | Call 0x1,0x27 00bd e21b | | Load 0x1,0x1b 00be 1c08 | | Execute_Immediate Run_Utility,0x8 00bf BODY_00b8: 00bf 00db | | Load_Top At_Offset_3 00c0 00d9 | | Load_Top At_Offset_1 00c1 e225 | % | Load 0x1,0x25 00c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c3 a5fd | | Store_Unchecked 0x2,-0x3 00c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cd | | .CONST 0x00cd ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e221 | ! | Load 0x1,0x21 00cc 0007 | | Action Break_Optional 00cd BODY_00c8: 00cd e5fe | | Load 0x2,-0x2 00ce 0217 | | Execute Heap_Access,All_Reference 00cf 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00d0 e5ff | | Load 0x2,-0x1 00d1 8228 | ( | Call 0x1,0x28 00d2 e5fe | | Load 0x2,-0x2 00d3 0217 | | Execute Heap_Access,All_Reference 00d4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00d5 01d7 | | Execute Vector,Field_Read 00d6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00d7 00cf | | Action Mark_Auxiliary 00d8 7813 |x | Jump 0xec 00d9 00d9 | | Load_Top At_Offset_1 00da 0217 | | Execute Heap_Access,All_Reference 00db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00dc 0217 | | Execute Heap_Access,All_Reference 00dd e5ff | | Load 0x2,-0x1 00de 01df | | Execute Vector,Equal 00df 6807 |h | Jump_Zero 0xe7 00e0 4801 |H | Short_Literal 0x1 00e1 a5fd | | Store_Unchecked 0x2,-0x3 00e2 00d9 | | Load_Top At_Offset_1 00e3 0217 | | Execute Heap_Access,All_Reference 00e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e5 a5fc | | Store_Unchecked 0x2,-0x4 00e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e7 00d9 | | Load_Top At_Offset_1 00e8 0217 | | Execute Heap_Access,All_Reference 00e9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ea 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00eb 00c9 | | Action Pop_Auxiliary_Loop 00ec 00d9 | | Load_Top At_Offset_1 00ed 77eb |w | Jump_Nonzero 0xd9 00ee 00ce | | Action Pop_Auxiliary 00ef 4800 |H | Short_Literal 0x0 00f0 a5fd | | Store_Unchecked 0x2,-0x3 00f1 e004 | | Load 0x0,0x4 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 a5fc | | Store_Unchecked 0x2,-0x4 00f4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 010c | | .CONST 0x010c ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0004 | | .CONST 0x0004 ; Number of locals 00fb INIT_00f8: 00fb e5fd | | Load 0x2,-0x3 00fc 0217 | | Execute Heap_Access,All_Reference 00fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00fe 00db | | Load_Top At_Offset_3 00ff 8228 | ( | Call 0x1,0x28 0100 00e3 | | Load_Encached Natural_Cache 0101 03f1 | | Declare_Variable Discrete,With_Value 0102 e21d | | Load 0x1,0x1d 0103 e5fc | | Load 0x2,-0x4 0104 e5ff | | Load 0x2,-0x1 0105 e21e | | Load 0x1,0x1e 0106 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0107 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0108 e5fc | | Load 0x2,-0x4 0109 e222 | " | Load 0x1,0x22 010a e223 | # | Load 0x1,0x23 010b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010c BODY_00f8: 010c 00d9 | | Load_Top At_Offset_1 010d 00d9 | | Load_Top At_Offset_1 010e 0217 | | Execute Heap_Access,All_Reference 010f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0110 e5fe | | Load 0x2,-0x2 0111 00d9 | | Load_Top At_Offset_1 0112 0217 | | Execute Heap_Access,All_Reference 0113 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0114 00da | | Load_Top At_Offset_2 0115 e5fd | | Load 0x2,-0x3 0116 0217 | | Execute Heap_Access,All_Reference 0117 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0118 01d7 | | Execute Vector,Field_Read 0119 00d9 | | Load_Top At_Offset_1 011a 0217 | | Execute Heap_Access,All_Reference 011b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 011c 00d8 | | Load_Top At_Offset_0 011d 00db | | Load_Top At_Offset_3 011e e5fd | | Load 0x2,-0x3 011f 0217 | | Execute Heap_Access,All_Reference 0120 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0121 01d6 | | Execute Vector,Field_Write 0122 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012f | / | .CONST 0x012f ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0003 | | .CONST 0x0003 ; Number of locals 012b INIT_0128: 012b 00e3 | | Load_Encached Natural_Cache 012c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 012d e220 | | Load 0x1,0x20 012e 0007 | | Action Break_Optional 012f BODY_0128: 012f e5ff | | Load 0x2,-0x1 0130 6808 |h | Jump_Zero 0x139 0131 e220 | | Load 0x1,0x20 0132 00e3 | | Load_Encached Natural_Cache 0133 e5ff | | Load 0x2,-0x1 0134 0217 | | Execute Heap_Access,All_Reference 0135 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0136 8229 | ) | Call 0x1,0x29 0137 005b | [ | Store_Top Discrete,At_Offset_3 0138 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0139 e5fe | | Load 0x2,-0x2 013a e21c | | Load 0x1,0x1c 013b 0322 | " | Declare_Variable Record 013c e5ff | | Load 0x2,-0x1 013d 00d9 | | Load_Top At_Offset_1 013e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 013f 00db | | Load_Top At_Offset_3 0140 00d9 | | Load_Top At_Offset_1 0141 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0142 00da | | Load_Top At_Offset_2 0143 00d9 | | Load_Top At_Offset_1 0144 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0145 e226 | & | Load 0x1,0x26 0146 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0147 a5fd | | Store_Unchecked 0x2,-0x3 0148 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 e226 | & | Load 0x1,0x26 0155 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0156 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0157 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 016c | l | .CONST 0x016c ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0004 | | .CONST 0x0004 ; Number of locals 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c 0217 | | Execute Heap_Access,All_Reference 015d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015e 0217 | | Execute Heap_Access,All_Reference 015f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0160 0007 | | Action Break_Optional 0161 00db | | Load_Top At_Offset_3 0162 0217 | | Execute Heap_Access,All_Reference 0163 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0164 0217 | | Execute Heap_Access,All_Reference 0165 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0166 0007 | | Action Break_Optional 0167 e5ff | | Load 0x2,-0x1 0168 0217 | | Execute Heap_Access,All_Reference 0169 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016a 00e3 | | Load_Encached Natural_Cache 016b 03f1 | | Declare_Variable Discrete,With_Value 016c BODY_0158: 016c 00cf | | Action Mark_Auxiliary 016d 00da | | Load_Top At_Offset_2 016e 680b |h | Jump_Zero 0x17a 016f 00d9 | | Load_Top At_Offset_1 0170 e5ff | | Load 0x2,-0x1 0171 0217 | | Execute Heap_Access,All_Reference 0172 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0173 00da | | Load_Top At_Offset_2 0174 e220 | | Load 0x1,0x20 0175 0216 | | Execute Heap_Access,Convert 0176 e5ff | | Load 0x2,-0x1 0177 0217 | | Execute Heap_Access,All_Reference 0178 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0179 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017a 00d9 | | Load_Top At_Offset_1 017b e402 | | Load 0x2,0x2 017c 01dc | | Execute Vector,Last 017d 027c | | | Execute Discrete,Less 017e 6808 |h | Jump_Zero 0x187 017f 00d9 | | Load_Top At_Offset_1 0180 0a01 | | Execute_Immediate Plus,0x1 0181 005a | Z | Store_Top Discrete,At_Offset_2 0182 00d9 | | Load_Top At_Offset_1 0183 e402 | | Load 0x2,0x2 0184 01d7 | | Execute Vector,Field_Read 0185 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0186 780b |x | Jump 0x192 0187 00db | | Load_Top At_Offset_3 0188 01dc | | Execute Vector,Last 0189 0a01 | | Execute_Immediate Plus,0x1 018a e5ff | | Load 0x2,-0x1 018b 0217 | | Execute Heap_Access,All_Reference 018c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018d e220 | | Load 0x1,0x20 018e e5ff | | Load 0x2,-0x1 018f 0217 | | Execute Heap_Access,All_Reference 0190 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0192 00c9 | | Action Pop_Auxiliary_Loop 0193 7fd9 | | Jump 0x16d 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c 0217 | | Execute Heap_Access,All_Reference 019d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 019e 021d | | Execute Heap_Access,Is_Null 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 0217 | | Execute Heap_Access,All_Reference 01a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a6 0217 | | Execute Heap_Access,All_Reference 01a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a8 0217 | | Execute Heap_Access,All_Reference 01a9 0335 | 5 | Declare_Variable Array,Duplicate 01aa 00cd | | Action Spare6_Action 01ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 0217 | | Execute Heap_Access,All_Reference 01b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b6 0217 | | Execute Heap_Access,All_Reference 01b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b9 0000 0000 | | .BLANK 0000[0x7] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01d5 | | .CONST 0x01d5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0005 | | .CONST 0x0005 ; Number of locals 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 0217 | | Execute Heap_Access,All_Reference 01c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c6 0217 | | Execute Heap_Access,All_Reference 01c7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01c8 0007 | | Action Break_Optional 01c9 00db | | Load_Top At_Offset_3 01ca 0217 | | Execute Heap_Access,All_Reference 01cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01cc 00e3 | | Load_Encached Natural_Cache 01cd 03f1 | | Declare_Variable Discrete,With_Value 01ce e5ff | | Load 0x2,-0x1 01cf 0217 | | Execute Heap_Access,All_Reference 01d0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d1 e221 | ! | Load 0x1,0x21 01d2 0216 | | Execute Heap_Access,Convert 01d3 e221 | ! | Load 0x1,0x21 01d4 0007 | | Action Break_Optional 01d5 BODY_01c0: 01d5 e5ff | | Load 0x2,-0x1 01d6 8215 | | Call 0x1,0x15 01d7 c5ff | | Store 0x2,-0x1 01d8 00da | | Load_Top At_Offset_2 01d9 e402 | | Load 0x2,0x2 01da 01d7 | | Execute Vector,Field_Read 01db 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01dc 00d8 | | Load_Top At_Offset_0 01dd 00da | | Load_Top At_Offset_2 01de 021f | | Execute Heap_Access,Equal 01df 6807 |h | Jump_Zero 0x1e7 01e0 00d9 | | Load_Top At_Offset_1 01e1 0217 | | Execute Heap_Access,All_Reference 01e2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e3 00db | | Load_Top At_Offset_3 01e4 e402 | | Load 0x2,0x2 01e5 01d6 | | Execute Vector,Field_Write 01e6 7817 |x | Jump 0x1fe 01e7 00cf | | Action Mark_Auxiliary 01e8 7812 |x | Jump 0x1fb 01e9 00d9 | | Load_Top At_Offset_1 01ea 0217 | | Execute Heap_Access,All_Reference 01eb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ec 00db | | Load_Top At_Offset_3 01ed 021f | | Execute Heap_Access,Equal 01ee 6807 |h | Jump_Zero 0x1f6 01ef 00da | | Load_Top At_Offset_2 01f0 0217 | | Execute Heap_Access,All_Reference 01f1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01f2 00da | | Load_Top At_Offset_2 01f3 0217 | | Execute Heap_Access,All_Reference 01f4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01f5 7807 |x | Jump 0x1fd 01f6 00d9 | | Load_Top At_Offset_1 01f7 0217 | | Execute Heap_Access,All_Reference 01f8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01f9 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01fa 00c9 | | Action Pop_Auxiliary_Loop 01fb 00d9 | | Load_Top At_Offset_1 01fc 77ec |w | Jump_Nonzero 0x1e9 01fd 00ce | | Action Pop_Auxiliary 01fe 00d9 | | Load_Top At_Offset_1 01ff 0219 | | Execute Heap_Access,All_Read 0200 00d8 | | Load_Top At_Offset_0 0201 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0202 e004 | | Load 0x0,0x4 0203 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0204 00d9 | | Load_Top At_Offset_1 0205 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0206 00d1 | | Pop_Control Pop_Count_1 0207 00d9 | | Load_Top At_Offset_1 0208 0219 | | Execute Heap_Access,All_Read 0209 00d8 | | Load_Top At_Offset_0 020a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 020b e21e | | Load 0x1,0x1e 020c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 020d 00d9 | | Load_Top At_Offset_1 020e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 020f 00d1 | | Pop_Control Pop_Count_1 0210 00d9 | | Load_Top At_Offset_1 0211 e223 | # | Load 0x1,0x23 0212 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0213 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0214 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0215 0000 0000 | | .XXX[0x3] 0217 0000 | | 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b BODY_0218: 021b INIT_0218: 021b INIT_0218: 021b 4608 |F | Jump_Case 0x9 021c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 021e 7819 |x | Jump 0x238 ; case 0x2 021f 7818 |x | Jump 0x238 ; case 0x3 0220 7817 |x | Jump 0x238 ; case 0x4 0221 7816 |x | Jump 0x238 ; case 0x5 0222 7815 |x | Jump 0x238 ; case 0x6 0223 7801 |x | Jump 0x225 ; case 0x7 0224 7809 |x | Jump 0x22e ; case 0x8 0225 00db | | Load_Top At_Offset_3 0226 4800 |H | Short_Literal 0x0 0227 e5fe | | Load 0x2,-0x2 0228 e224 | $ | Load 0x1,0x24 0229 035b | [ | Declare_Type Array,Constrained 022a 4801 |H | Short_Literal 0x1 022b e5ff | | Load 0x2,-0x1 022c 031b | | Declare_Type Variant_Record,Constrained 022d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022e 00db | | Load_Top At_Offset_3 022f 00db | | Load_Top At_Offset_3 0230 02fc | | Declare_Variable Variant_Record,With_Constraint 0231 4800 |H | Short_Literal 0x0 0232 e5fe | | Load 0x2,-0x2 0233 e224 | $ | Load 0x1,0x24 0234 0334 | 4 | Declare_Variable Array,With_Constraint 0235 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 0236 016a | j | QQ_execute Variant_Record,XXX 0237 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0238 0869 | i | Execute_Immediate Raise,0x69 0239 0000 0000 | | .BLANK 0000[0x7] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 0901 | | Execute_Immediate Binary_Scale,0x1 0245 0a01 | | Execute_Immediate Plus,0x1 0246 00d8 | | Load_Top At_Offset_0 0247 00e3 | | Load_Encached Natural_Cache 0248 0260 | ` | Execute Discrete,In_Type 0249 7001 |p | Jump_Nonzero 0x24b 024a 0801 | | Execute_Immediate Raise,0x1 024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 e00b | | Load 0x0,0xb 0255 180d | | Execute Package,Field_Execute,Field_Number 0xd 0256 e5fe | | Load 0x2,-0x2 0257 026e | n | Execute Discrete,Modulo 0258 0a01 | | Execute_Immediate Plus,0x1 0259 00d8 | | Load_Top At_Offset_0 025a 00e3 | | Load_Encached Natural_Cache 025b 0260 | ` | Execute Discrete,In_Type 025c 7001 |p | Jump_Nonzero 0x25e 025d 0801 | | Execute_Immediate Raise,0x1 025e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00cf | | Action Mark_Auxiliary 0264 00db | | Load_Top At_Offset_3 0265 01d9 | | Execute Vector,Reverse_Bounds 0266 0263 | c | Execute Discrete,Above_Bound 0267 700f |p | Jump_Nonzero 0x277 0268 00d8 | | Load_Top At_Offset_0 0269 e5ff | | Load 0x2,-0x1 026a 01d7 | | Execute Vector,Field_Read 026b 6809 |h | Jump_Zero 0x275 026c 00d8 | | Load_Top At_Offset_0 026d a5fe | | Store_Unchecked 0x2,-0x2 026e 00d8 | | Load_Top At_Offset_0 026f e5ff | | Load 0x2,-0x1 0270 01d7 | | Execute Vector,Field_Read 0271 e220 | | Load 0x1,0x20 0272 0216 | | Execute Heap_Access,Convert 0273 a5fd | | Store_Unchecked 0x2,-0x3 0274 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0275 00c8 | | Action Pop_Auxiliary_Range 0276 3ff1 |? | Loop_Increasing 0x268 0277 00ce | | Action Pop_Auxiliary 0278 00da | | Load_Top At_Offset_2 0279 01dc | | Execute Vector,Last 027a 0a01 | | Execute_Immediate Plus,0x1 027b c5fe | | Store 0x2,-0x2 027c e220 | | Load 0x1,0x20 027d a5fd | | Store_Unchecked 0x2,-0x3 027e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027f 0000 | | .XXX[0x1] 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 000e | | .DEBUG4 0x0004,0x000e,0xf460,0x0000,0x0001,0x0000 0286 0000 8006 | | .XXX[0x18] 0288 0005 9800 | | 028a 0005 e5aa | | 028c 0000 2800 | ( | 028e 0000 5801 | X | 0290 4000 0000 |@ | 0292 4000 0010 |@ | 0294 0000 0088 | | 0296 0000 0000 | | 0298 4000 0002 |@ | 029a 9000 0142 | B| 029c 0bb6 4000 | @ | 029e 0000 0000 | | .BLANK 0000[0x8] 02a6 1000 0081 | | .XXX[0x4] 02a8 bec2 4000 | @ | 02aa 0000 0000 | | .BLANK 0000[0x5] 02af 1000 0142 | B| .XXX[0x28] 02b1 0c18 d000 | | 02b3 00c1 e162 | b| 02b5 d000 0101 | | 02b7 f1d8 0000 | | 02b9 0000 000f | | 02bb e802 c290 | | 02bd 000a 3429 | 4)| 02bf 0000 1000 | | 02c1 c000 b300 | | 02c3 0000 bcb5 | | 02c5 4000 0600 |@ | 02c7 0000 0d00 | | 02c9 2800 0005 |( | 02cb 1000 0002 | | 02cd 0000 0011 | | 02cf 0000 0000 | | 02d1 0800 0000 | | 02d3 5200 0030 |R 0| 02d5 418f 4000 |A @ | 02d7 0000 0000 | | .BLANK 0000[0x1c] 02f3 0001 fd00 | | .XXX[0x1d] 02f5 5852 0001 |XR | 02f7 4691 2000 |F | 02f9 0200 1800 | | 02fb 1660 0000 | ` | 02fd 1796 a800 | | 02ff 00e0 0000 | | 0301 01a0 0500 | | 0303 0000 a200 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a40 | @| 030d 0007 08d2 | | 030f 2a00 |* | 0310 0000 0000 | | .BLANK 0000[0x1d] 032d 3fa0 0b0a |? | .XXX[0x1c] 032f 4000 28d2 |@ ( | 0331 a400 0040 | @| 0333 0300 02cc | | 0335 0000 02f2 | | 0337 d500 0020 | | 0339 0000 0034 | 4| 033b 00a0 0000 | | 033d 1440 0000 | @ | 033f 0800 0000 | | 0341 4400 0000 |D | 0343 0020 0000 | | 0345 0148 0001 | H | 0347 0120 3a20 | : | 0349 0000 0000 | | .BLANK 0000[0x1d] 0366 07f4 0161 | a| .XXX[0x1c] 0368 4800 051a |H | 036a 6480 0008 |d | 036c 0060 0059 | ` Y| 036e 8000 005e | ^| 0370 5aa0 0004 |Z | 0372 8000 0006 | | 0374 8014 0000 | | 0376 0288 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0029 0000 | ) | 0380 2425 235c |$%#\| 0382 0000 0000 | | .BLANK 0000[0x2b] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]