|
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_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0240 | @ | .CONST 0x0240 ; 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 0054 | T | .CONST 0x0054 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 4800 |H | Short_Literal 0x0 000d 4801 |H | Short_Literal 0x1 000e 4801 |H | Short_Literal 0x1 000f 4802 |H | Short_Literal 0x2 0010 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0011 029f 021b | | Declare_Subprogram INIT_0218,For_Call 0013 00d9 | | Load_Top At_Offset_1 0014 012a | * | Execute Any,Change_Utility 0015 0007 | | Action Break_Optional 0016 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0018 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 001a e001 | | Load 0x0,0x1 001b 0129 | ) | Execute Any,Make_Visible 001c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001e 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0020 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0022 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0024 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0026 e002 | | Load 0x0,0x2 0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0028 e002 | | Load 0x0,0x2 0029 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d 002a 00e5 | | Load_Encached Long_Integer_Cache 002b 00e1 | | Load_Encached Boolean_Cache 002c 00e1 | | Load_Encached Boolean_Cache 002d 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 002f 4805 |H | Short_Literal 0x5 0030 032d | - | Declare_Type Record,Defined 0031 00e3 | | Load_Encached Natural_Cache 0032 0266 | f | Execute Discrete,Bounds 0033 00da | | Load_Top At_Offset_2 0034 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0036 4801 |H | Short_Literal 0x1 0037 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0038 4801 |H | Short_Literal 0x1 0039 6062 |`b | Indirect_Literal Discrete,0x9c,{0x00000000, 0x7fffffff} 003a 00da | | Load_Top At_Offset_2 003b 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 003c 029f 021b | | Declare_Subprogram INIT_0218,For_Call 003e 4800 |H | Short_Literal 0x0 003f 4801 |H | Short_Literal 0x1 0040 4800 |H | Short_Literal 0x0 0041 e20d | | Load 0x1,0xd 0042 0307 | | Complete_Type Variant_Record,By_Defining 0043 00bf | | Action Accept_Activation 0044 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0045 00c7 | | Action Elaborate_Subprogram 0046 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0047 00c7 | | Action Elaborate_Subprogram 0048 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 004a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004b 00c7 | | Action Elaborate_Subprogram 004c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004d 00c7 | | Action Elaborate_Subprogram 004e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004f 00c7 | | Action Elaborate_Subprogram 0050 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0051 00c7 | | Action Elaborate_Subprogram 0052 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0053 00c7 | | Action Elaborate_Subprogram 0054 BODY_0008: 0054 00bc | | Action Signal_Activated 0055 00bb | | Action Signal_Completion 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006e | n | .CONST 0x006e ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0005 | | .CONST 0x0005 ; Number of locals 005b INIT_0058: 005b e002 | | Load 0x0,0x2 005c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005d 02c7 | | Declare_Variable Any 005e 00db | | Load_Top At_Offset_3 005f e003 | | Load 0x0,0x3 0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0061 a402 | | Store_Unchecked 0x2,0x2 0062 e002 | | Load 0x0,0x2 0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0064 02c7 | | Declare_Variable Any 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 e002 | | Load 0x0,0x2 0068 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0069 02c7 | | Declare_Variable Any 006a 00d8 | | Load_Top At_Offset_0 006b 1c00 | | Execute_Immediate Run_Utility,0x0 006c 00e3 | | Load_Encached Natural_Cache 006d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006e BODY_0058: 006e 00cf | | Action Mark_Auxiliary 006f 7824 |x$ | Jump 0x94 0070 e402 | | Load 0x2,0x2 0071 e002 | | Load 0x0,0x2 0072 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0073 c403 | | Store 0x2,0x3 0074 00db | | Load_Top At_Offset_3 0075 e003 | | Load 0x0,0x3 0076 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0077 4801 |H | Short_Literal 0x1 0078 4802 |H | Short_Literal 0x2 0079 0262 | b | Execute Discrete,In_Range 007a 7014 |p | Jump_Nonzero 0x8f 007b 7800 |x | Jump 0x7c 007c 00db | | Load_Top At_Offset_3 007d e003 | | Load 0x0,0x3 007e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007f c404 | | Store 0x2,0x4 0080 00cf | | Action Mark_Auxiliary 0081 7808 |x | Jump 0x8a 0082 00da | | Load_Top At_Offset_2 0083 0a01 | | Execute_Immediate Plus,0x1 0084 005b | [ | Store_Top Discrete,At_Offset_3 0085 00db | | Load_Top At_Offset_3 0086 e002 | | Load 0x0,0x2 0087 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0088 c404 | | Store 0x2,0x4 0089 00c9 | | Action Pop_Auxiliary_Loop 008a 00db | | Load_Top At_Offset_3 008b e002 | | Load 0x0,0x2 008c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 008d 6ff4 |o | Jump_Zero 0x82 008e 00ce | | Action Pop_Auxiliary 008f e402 | | Load 0x2,0x2 0090 e002 | | Load 0x0,0x2 0091 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0092 c402 | | Store 0x2,0x2 0093 00c9 | | Action Pop_Auxiliary_Loop 0094 e402 | | Load 0x2,0x2 0095 e002 | | Load 0x0,0x2 0096 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0097 6fd8 |o | Jump_Zero 0x70 0098 00ce | | Action Pop_Auxiliary 0099 00d8 | | Load_Top At_Offset_0 009a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009b 0000 | | .XXX[0x1] 009c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00bf | | .CONST 0x00bf ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0007 | | .CONST 0x0007 ; Number of locals 00a3 INIT_00a0: 00a3 e002 | | Load 0x0,0x2 00a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00a5 02c7 | | Declare_Variable Any 00a6 00db | | Load_Top At_Offset_3 00a7 e003 | | Load 0x0,0x3 00a8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a9 a402 | | Store_Unchecked 0x2,0x2 00aa e002 | | Load 0x0,0x2 00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ac 02c7 | | Declare_Variable Any 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af e002 | | Load 0x0,0x2 00b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b1 02c7 | | Declare_Variable Any 00b2 00d8 | | Load_Top At_Offset_0 00b3 1c00 | | Execute_Immediate Run_Utility,0x0 00b4 e002 | | Load 0x0,0x2 00b5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00b6 02c7 | | Declare_Variable Any 00b7 00d8 | | Load_Top At_Offset_0 00b8 1c00 | | Execute_Immediate Run_Utility,0x0 00b9 00e4 | | Load_Encached Positive_Cache 00ba 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00bb e216 | | Load 0x1,0x16 00bc 0322 | " | Declare_Variable Record 00bd 00d8 | | Load_Top At_Offset_0 00be 1c00 | | Execute_Immediate Run_Utility,0x0 00bf BODY_00a0: 00bf 00cf | | Action Mark_Auxiliary 00c0 7840 |x@ | Jump 0x101 00c1 e402 | | Load 0x2,0x2 00c2 e002 | | Load 0x0,0x2 00c3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c4 c403 | | Store 0x2,0x3 00c5 e403 | | Load 0x2,0x3 00c6 e003 | | Load 0x0,0x3 00c7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c8 4801 |H | Short_Literal 0x1 00c9 4802 |H | Short_Literal 0x2 00ca 0262 | b | Execute Discrete,In_Range 00cb 7030 |p0 | Jump_Nonzero 0xfc 00cc 7800 |x | Jump 0xcd 00cd e403 | | Load 0x2,0x3 00ce e003 | | Load 0x0,0x3 00cf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d0 c404 | | Store 0x2,0x4 00d1 00cf | | Action Mark_Auxiliary 00d2 7824 |x$ | Jump 0xf7 00d3 4801 |H | Short_Literal 0x1 00d4 e404 | | Load 0x2,0x4 00d5 e002 | | Load 0x0,0x2 00d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d7 e002 | | Load 0x0,0x2 00d8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 00d9 e003 | | Load 0x0,0x3 00da 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00db c405 | | Store 0x2,0x5 00dc e405 | | Load 0x2,0x5 00dd 00db | | Load_Top At_Offset_3 00de 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00df e404 | | Load 0x2,0x4 00e0 e002 | | Load 0x0,0x2 00e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e2 00db | | Load_Top At_Offset_3 00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e4 e405 | | Load 0x2,0x5 00e5 e002 | | Load 0x0,0x2 00e6 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 00e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00e8 00db | | Load_Top At_Offset_3 00e9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ea 00da | | Load_Top At_Offset_2 00eb e406 | | Load 0x2,0x6 00ec e5fe | | Load 0x2,-0x2 00ed 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00ee 01d6 | | Execute Vector,Field_Write 00ef 00db | | Load_Top At_Offset_3 00f0 0a01 | | Execute_Immediate Plus,0x1 00f1 c406 | | Store 0x2,0x6 00f2 e404 | | Load 0x2,0x4 00f3 e002 | | Load 0x0,0x2 00f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f5 c404 | | Store 0x2,0x4 00f6 00c9 | | Action Pop_Auxiliary_Loop 00f7 e404 | | Load 0x2,0x4 00f8 e002 | | Load 0x0,0x2 00f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00fa 6fd8 |o | Jump_Zero 0xd3 00fb 00ce | | Action Pop_Auxiliary 00fc e402 | | Load 0x2,0x2 00fd e002 | | Load 0x0,0x2 00fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ff c402 | | Store 0x2,0x2 0100 00c9 | | Action Pop_Auxiliary_Loop 0101 e402 | | Load 0x2,0x2 0102 e002 | | Load 0x0,0x2 0103 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0104 6fbc |o | Jump_Zero 0xc1 0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0120 | | .CONST 0x0120 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0005 | | .CONST 0x0005 ; Number of locals 010b INIT_0108: 010b e002 | | Load 0x0,0x2 010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010d 02c7 | | Declare_Variable Any 010e 00db | | Load_Top At_Offset_3 010f e002 | | Load 0x0,0x2 0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0111 a402 | | Store_Unchecked 0x2,0x2 0112 e002 | | Load 0x0,0x2 0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0114 02c7 | | Declare_Variable Any 0115 4801 |H | Short_Literal 0x1 0116 e5ff | | Load 0x2,-0x1 0117 e002 | | Load 0x0,0x2 0118 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0119 a403 | | Store_Unchecked 0x2,0x3 011a e002 | | Load 0x0,0x2 011b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011c 02c7 | | Declare_Variable Any 011d 00d8 | | Load_Top At_Offset_0 011e 1c00 | | Execute_Immediate Run_Utility,0x0 011f 00e5 | | Load_Encached Long_Integer_Cache 0120 BODY_0108: 0120 00da | | Load_Top At_Offset_2 0121 e002 | | Load 0x0,0x2 0122 180f | | Execute Package,Field_Execute,Field_Number 0xf 0123 6801 |h | Jump_Zero 0x125 0124 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0125 00da | | Load_Top At_Offset_2 0126 e003 | | Load 0x0,0x3 0127 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0128 c404 | | Store 0x2,0x4 0129 00d9 | | Load_Top At_Offset_1 012a e002 | | Load 0x0,0x2 012b 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 012c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 012d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 012e 00db | | Load_Top At_Offset_3 012f e002 | | Load 0x0,0x2 0130 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0131 4606 |F | Jump_Case 0x7 0132 7806 |x | Jump 0x139 ; case 0x0 0133 780b |x | Jump 0x13f ; case 0x1 0134 7815 |x | Jump 0x14a ; case 0x2 0135 7803 |x | Jump 0x139 ; case 0x3 0136 7802 |x | Jump 0x139 ; case 0x4 0137 7801 |x | Jump 0x139 ; case 0x5 0138 7800 |x | Jump 0x139 ; case 0x6 0139 e5fe | | Load 0x2,-0x2 013a 4800 |H | Short_Literal 0x0 013b 00da | | Load_Top At_Offset_2 013c 8218 | | Call 0x1,0x18 013d 00d1 | | Pop_Control Pop_Count_1 013e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013f 00db | | Load_Top At_Offset_3 0140 e003 | | Load 0x0,0x3 0141 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0142 0f01 | | Execute_Immediate Equal,0x1 0143 6805 |h | Jump_Zero 0x149 0144 e5fe | | Load 0x2,-0x2 0145 4801 |H | Short_Literal 0x1 0146 00da | | Load_Top At_Offset_2 0147 8218 | | Call 0x1,0x18 0148 00d1 | | Pop_Control Pop_Count_1 0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014a 00db | | Load_Top At_Offset_3 014b e004 | | Load 0x0,0x4 014c 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 014d 6806 |h | Jump_Zero 0x154 014e e5fe | | Load 0x2,-0x2 014f 4801 |H | Short_Literal 0x1 0150 00da | | Load_Top At_Offset_2 0151 8218 | | Call 0x1,0x18 0152 00d1 | | Pop_Control Pop_Count_1 0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0154 e5fe | | Load 0x2,-0x2 0155 4800 |H | Short_Literal 0x0 0156 00da | | Load_Top At_Offset_2 0157 8218 | | Call 0x1,0x18 0158 00d1 | | Pop_Control Pop_Count_1 0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 e5fe | | Load 0x2,-0x2 0165 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0166 01d5 | | Execute Vector,Field_Reference 0167 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0168 00d8 | | Load_Top At_Offset_0 0169 0120 | | Execute Any,Is_Value 016a 7002 |p | Jump_Nonzero 0x16d 016b 00d8 | | Load_Top At_Offset_0 016c 011e | | Execute Any,Convert 016d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 e5fe | | Load 0x2,-0x2 0175 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0176 01d5 | | Execute Vector,Field_Reference 0177 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0178 00d8 | | Load_Top At_Offset_0 0179 0120 | | Execute Any,Is_Value 017a 7002 |p | Jump_Nonzero 0x17d 017b 00d8 | | Load_Top At_Offset_0 017c 011e | | Execute Any,Convert 017d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 e5fe | | Load 0x2,-0x2 0185 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0186 01d5 | | Execute Vector,Field_Reference 0187 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0188 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 e5fe | | Load 0x2,-0x2 0195 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0196 01d5 | | Execute Vector,Field_Reference 0197 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0199 0000 0000 | | .BLANK 0000[0x7] 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 00d1 | | Pop_Control Pop_Count_1 01a4 00da | | Load_Top At_Offset_2 01a5 01dc | | Execute Vector,Last 01a6 00db | | Load_Top At_Offset_3 01a7 01dd | | Execute Vector,First 01a8 0263 | c | Execute Discrete,Above_Bound 01a9 7006 |p | Jump_Nonzero 0x1b0 01aa 00d8 | | Load_Top At_Offset_0 01ab e5ff | | Load 0x2,-0x1 01ac 01d5 | | Execute Vector,Field_Reference 01ad 1c00 | | Execute_Immediate Run_Utility,0x0 01ae 0a01 | | Execute_Immediate Plus,0x1 01af 7ff8 | | Jump 0x1a8 01b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bd | | .CONST 0x01bd ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 00e1 | | Load_Encached Boolean_Cache 01bc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01bd BODY_01b8: 01bd 00cf | | Action Mark_Auxiliary 01be e5fd | | Load 0x2,-0x3 01bf 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01c0 4801 |H | Short_Literal 0x1 01c1 0263 | c | Execute Discrete,Above_Bound 01c2 7021 |p! | Jump_Nonzero 0x1e4 01c3 00d8 | | Load_Top At_Offset_0 01c4 e5fd | | Load 0x2,-0x3 01c5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01c6 01d5 | | Execute Vector,Field_Reference 01c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c8 e5ff | | Load 0x2,-0x1 01c9 027f | | Execute Discrete,Equal 01ca 680f |h | Jump_Zero 0x1da 01cb e5fe | | Load 0x2,-0x2 01cc 6807 |h | Jump_Zero 0x1d4 01cd 4801 |H | Short_Literal 0x1 01ce 00d9 | | Load_Top At_Offset_1 01cf e5fd | | Load 0x2,-0x3 01d0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01d1 01d5 | | Execute Vector,Field_Reference 01d2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01d3 7806 |x | Jump 0x1da 01d4 4801 |H | Short_Literal 0x1 01d5 00d9 | | Load_Top At_Offset_1 01d6 e5fd | | Load 0x2,-0x3 01d7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01d8 01d5 | | Execute Vector,Field_Reference 01d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01da 00db | | Load_Top At_Offset_3 01db 00d9 | | Load_Top At_Offset_1 01dc e5fd | | Load 0x2,-0x3 01dd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01de 01d5 | | Execute Vector,Field_Reference 01df 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01e0 0279 | y | Execute Discrete,And 01e1 a402 | | Store_Unchecked 0x2,0x2 01e2 00c8 | | Action Pop_Auxiliary_Range 01e3 3fdf |? | Loop_Increasing 0x1c3 01e4 00ce | | Action Pop_Auxiliary 01e5 00d8 | | Load_Top At_Offset_0 01e6 6802 |h | Jump_Zero 0x1e9 01e7 e210 | | Load 0x1,0x10 01e8 0257 | W | Execute Discrete,Raise 01e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4608 |F | Jump_Case 0x9 01f4 7808 |x | Jump 0x1fd ; case 0x0 01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01f6 7819 |x | Jump 0x210 ; case 0x2 01f7 7818 |x | Jump 0x210 ; case 0x3 01f8 7817 |x | Jump 0x210 ; case 0x4 01f9 7816 |x | Jump 0x210 ; case 0x5 01fa 7815 |x | Jump 0x210 ; case 0x6 01fb 7814 |x | Jump 0x210 ; case 0x7 01fc 7813 |x | Jump 0x210 ; case 0x8 01fd 00da | | Load_Top At_Offset_2 01fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ff 0125 | % | Execute Any,Set_Constraint 0200 00da | | Load_Top At_Offset_2 0201 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0202 1c00 | | Execute_Immediate Run_Utility,0x0 0203 00da | | Load_Top At_Offset_2 0204 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0205 0125 | % | Execute Any,Set_Constraint 0206 00da | | Load_Top At_Offset_2 0207 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0208 1c00 | | Execute_Immediate Run_Utility,0x0 0209 4800 |H | Short_Literal 0x0 020a 00db | | Load_Top At_Offset_3 020b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 020c 4800 |H | Short_Literal 0x0 020d 00db | | Load_Top At_Offset_3 020e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 020f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0210 0869 | i | Execute_Immediate Raise,0x69 0211 0000 0000 | | .BLANK 0000[0x7] 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 7808 |x | Jump 0x225 ; case 0x0 021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 021e 781d |x | Jump 0x23c ; case 0x2 021f 781c |x | Jump 0x23c ; case 0x3 0220 781b |x | Jump 0x23c ; case 0x4 0221 781a |x | Jump 0x23c ; case 0x5 0222 7819 |x | Jump 0x23c ; case 0x6 0223 7805 |x | Jump 0x229 ; case 0x7 0224 780d |x | Jump 0x232 ; case 0x8 0225 00da | | Load_Top At_Offset_2 0226 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0227 1c00 | | Execute_Immediate Run_Utility,0x0 0228 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0229 00db | | Load_Top At_Offset_3 022a 4801 |H | Short_Literal 0x1 022b e5fe | | Load 0x2,-0x2 022c e217 | | Load 0x1,0x17 022d 035b | [ | Declare_Type Array,Constrained 022e 4801 |H | Short_Literal 0x1 022f e5ff | | Load 0x2,-0x1 0230 031b | | Declare_Type Variant_Record,Constrained 0231 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0232 00db | | Load_Top At_Offset_3 0233 00db | | Load_Top At_Offset_3 0234 02fc | | Declare_Variable Variant_Record,With_Constraint 0235 4801 |H | Short_Literal 0x1 0236 e5fe | | Load 0x2,-0x2 0237 e217 | | Load 0x1,0x17 0238 0334 | 4 | Declare_Variable Array,With_Constraint 0239 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 023a 016a | j | QQ_execute Variant_Record,XXX 023b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023c 0869 | i | Execute_Immediate Raise,0x69 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug Table 0240 ; -------------------------------------------------------------------------------------- 0240 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f2b,0x0000,0x0001,0x000d 0246 000b 027a | z| .DBG4T 0x000b,0x027a,0x8000,0x0000 024a 0044 0288 | D | .DBG4T 0x0044,0x0288,0x8000,0x8000 024e 005b 029a | [ | .DBG4T 0x005b,0x029a,0x0002,0x4000 0252 00a3 02b2 | | .DBG4T 0x00a3,0x02b2,0x0001,0x4000 0256 010b 02d4 | | .DBG4T 0x010b,0x02d4,0x0001,0x4000 025a 0163 02f0 | c | .DBG4T 0x0163,0x02f0,0x0002,0x0000 025e 0173 02f3 | s | .DBG4T 0x0173,0x02f3,0x0002,0x0000 0262 0183 02f6 | | .DBG4T 0x0183,0x02f6,0x0002,0x0000 0266 0193 02f9 | | .DBG4T 0x0193,0x02f9,0x0002,0x0000 026a 01a3 0000 | | .DBG4T 0x01a3,0x0000,0x0005,0x0000 026e 01bb 02fc | | .DBG4T 0x01bb,0x02fc,0x0001,0x0000 0272 01f3 0000 | | .DBG4T 0x01f3,0x0000,0x0005,0x0000 0276 021b 0000 | | .DBG4T 0x021b,0x0000,0x0005,0x0000 027a ; -------------------------------------------------------------------------------------- 027a ; Debug chain 027a ; -------------------------------------------------------------------------------------- 027a 000c 0000 | | .DBGLEN 0x000c,0x0000 027c 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0031,0x0038 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug chain 0288 ; -------------------------------------------------------------------------------------- 0288 0008 0000 | | .DBGLEN 0x0008,0x0000 028a 0044 0046 | D F| .DBGLNO 0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052 0292 0003 0004 | | .XXX[0x8] 0294 0005 0006 | | 0296 0007 0008 | | 0298 0009 000a | | 029a ; -------------------------------------------------------------------------------------- 029a ; Debug chain 029a ; -------------------------------------------------------------------------------------- 029a 0004 0009 | | .DBGLEN 0x0004,0x0009 029c 005b 0062 | [ b| .DBGLNO 0x005b,0x0062,0x0067,0x006c,0x0070,0x0074,0x007c,0x0082,0x0085,0x008a,0x008f,0x0094,0x0099 02a9 0002 0003 | | .XXX[0x9] 02ab 0004 0006 | | 02ad 0007 0005 | | 02af 0009 0001 | | 02b1 000a | | 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug chain 02b2 ; -------------------------------------------------------------------------------------- 02b2 0006 000d | | .DBGLEN 0x0006,0x000d 02b4 00a3 00aa | | .DBGLNO 0x00a3,0x00aa,0x00af,0x00b4,0x00b9,0x00bb,0x00c1,0x00c5,0x00cd,0x00d3,0x00dc,0x00df,0x00e4,0x00ea,0x00ef,0x00f2,0x00f7,0x00fc,0x0101 02c7 0002 0003 | | .XXX[0xd] 02c9 0004 0006 | | 02cb 0007 0008 | | 02cd 0009 000a | | 02cf 000b 000c | | 02d1 0005 000e | | 02d3 0001 | | 02d4 ; -------------------------------------------------------------------------------------- 02d4 ; Debug chain 02d4 ; -------------------------------------------------------------------------------------- 02d4 0004 000b | | .DBGLEN 0x0004,0x000b 02d6 010b 0112 | | .DBGLNO 0x010b,0x0112,0x011a,0x011f,0x0120,0x0124,0x0125,0x0129,0x012e,0x0139,0x013f,0x0144,0x014a,0x014e,0x0154 02e5 0001 0002 | | .XXX[0xb] 02e7 0003 0004 | | 02e9 0005 000b | | 02eb 0006 0007 | | 02ed 0008 0009 | | 02ef 000a | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug chain 02f0 ; -------------------------------------------------------------------------------------- 02f0 0000 0001 | | .DBGLEN 0x0000,0x0001 02f2 0163 | c | .DBGLNO 0x0163 02f3 ; -------------------------------------------------------------------------------------- 02f3 ; Debug chain 02f3 ; -------------------------------------------------------------------------------------- 02f3 0000 0001 | | .DBGLEN 0x0000,0x0001 02f5 0173 | s | .DBGLNO 0x0173 02f6 ; -------------------------------------------------------------------------------------- 02f6 ; Debug chain 02f6 ; -------------------------------------------------------------------------------------- 02f6 0000 0001 | | .DBGLEN 0x0000,0x0001 02f8 0183 | | .DBGLNO 0x0183 02f9 ; -------------------------------------------------------------------------------------- 02f9 ; Debug chain 02f9 ; -------------------------------------------------------------------------------------- 02f9 0000 0001 | | .DBGLEN 0x0000,0x0001 02fb 0193 | | .DBGLNO 0x0193 02fc ; -------------------------------------------------------------------------------------- 02fc ; Debug chain 02fc ; -------------------------------------------------------------------------------------- 02fc 0001 0008 | | .DBGLEN 0x0001,0x0008 02fe 01bb 01be | | .DBGLNO 0x01bb,0x01be,0x01c3,0x01cb,0x01cd,0x01d4,0x01da,0x01e5,0x01e7 0307 0000 0000 | | .BLANK 0000[0xf9]