|
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_1884fe
└─⟦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 02c8 | | .CONST 0x02c8 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0013 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0015 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0017 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001d 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 001f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0021 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0023 00bf | | Action Accept_Activation 0024 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0025 00c7 | | Action Elaborate_Subprogram 0026 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0027 00c7 | | Action Elaborate_Subprogram 0028 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0029 00c7 | | Action Elaborate_Subprogram 002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002b 00c7 | | Action Elaborate_Subprogram 002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002d 00c7 | | Action Elaborate_Subprogram 002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002f 00c7 | | Action Elaborate_Subprogram 0030 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0032 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0034 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0035 00c7 | | Action Elaborate_Subprogram 0036 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0037 00c7 | | Action Elaborate_Subprogram 0038 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0039 00c7 | | Action Elaborate_Subprogram 003a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003b 00c7 | | Action Elaborate_Subprogram 003c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003d 00c7 | | Action Elaborate_Subprogram 003e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 003f 00c7 | | Action Elaborate_Subprogram 0040 BODY_0008: 0040 00bc | | Action Signal_Activated 0041 00bb | | Action Signal_Completion 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004f | O | .CONST 0x004f ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c 01db | | Execute Vector,Length 004d 00e3 | | Load_Encached Natural_Cache 004e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 004f BODY_0048: 004f e5fe | | Load 0x2,-0x2 0050 01db | | Execute Vector,Length 0051 6803 |h | Jump_Zero 0x55 0052 00db | | Load_Top At_Offset_3 0053 01db | | Execute Vector,Length 0054 7002 |p | Jump_Nonzero 0x57 0055 4800 |H | Short_Literal 0x0 0056 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0057 00d8 | | Load_Top At_Offset_0 0058 e5fe | | Load 0x2,-0x2 0059 01db | | Execute Vector,Length 005a 027d | } | Execute Discrete,Greater 005b 6802 |h | Jump_Zero 0x5e 005c 4800 |H | Short_Literal 0x0 005d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 005e e5fe | | Load 0x2,-0x2 005f 01dd | | Execute Vector,First 0060 e5fe | | Load 0x2,-0x2 0061 01dd | | Execute Vector,First 0062 00da | | Load_Top At_Offset_2 0063 0273 | s | Execute Discrete,Plus 0064 0aff | | Execute_Immediate Plus,-0x1 0065 00d8 | | Load_Top At_Offset_0 0066 00e2 | | Load_Encached Integer_Cache 0067 0260 | ` | Execute Discrete,In_Type 0068 7001 |p | Jump_Nonzero 0x6a 0069 0801 | | Execute_Immediate Raise,0x1 006a e5fe | | Load 0x2,-0x2 006b 01cf | | Execute Vector,Slice_Read 006c e5ff | | Load 0x2,-0x1 006d 01df | | Execute Vector,Equal 006e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0077 | w | .CONST 0x0077 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 01db | | Execute Vector,Length 0075 00e3 | | Load_Encached Natural_Cache 0076 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0077 BODY_0070: 0077 e5fe | | Load 0x2,-0x2 0078 01db | | Execute Vector,Length 0079 6803 |h | Jump_Zero 0x7d 007a 00db | | Load_Top At_Offset_3 007b 01db | | Execute Vector,Length 007c 7002 |p | Jump_Nonzero 0x7f 007d 4800 |H | Short_Literal 0x0 007e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007f 00d8 | | Load_Top At_Offset_0 0080 e5fe | | Load 0x2,-0x2 0081 01db | | Execute Vector,Length 0082 027d | } | Execute Discrete,Greater 0083 6802 |h | Jump_Zero 0x86 0084 4800 |H | Short_Literal 0x0 0085 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0086 e5fe | | Load 0x2,-0x2 0087 01dc | | Execute Vector,Last 0088 00d9 | | Load_Top At_Offset_1 0089 0272 | r | Execute Discrete,Minus 008a 0a01 | | Execute_Immediate Plus,0x1 008b 00d8 | | Load_Top At_Offset_0 008c 00e2 | | Load_Encached Integer_Cache 008d 0260 | ` | Execute Discrete,In_Type 008e 7001 |p | Jump_Nonzero 0x90 008f 0801 | | Execute_Immediate Raise,0x1 0090 e5fe | | Load 0x2,-0x2 0091 01dc | | Execute Vector,Last 0092 e5fe | | Load 0x2,-0x2 0093 01cf | | Execute Vector,Slice_Read 0094 e5ff | | Load 0x2,-0x1 0095 01df | | Execute Vector,Equal 0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4801 |H | Short_Literal 0x1 009c e5fe | | Load 0x2,-0x2 009d e5ff | | Load 0x2,-0x1 009e e001 | | Load 0x0,0x1 009f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a0 0c01 | | Execute_Immediate Greater_Equal,0x1 00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00cf | | Action Mark_Auxiliary 00ac 00db | | Load_Top At_Offset_3 00ad 01d9 | | Execute Vector,Reverse_Bounds 00ae 0263 | c | Execute Discrete,Above_Bound 00af 700c |p | Jump_Nonzero 0xbc 00b0 00d8 | | Load_Top At_Offset_0 00b1 e5ff | | Load 0x2,-0x1 00b2 01d7 | | Execute Vector,Field_Read 00b3 0b20 | | Execute_Immediate Case_Compare,0x20 00b4 7004 |p | Jump_Nonzero 0xb9 00b5 0f09 | | Execute_Immediate Equal,0x9 00b6 7003 |p | Jump_Nonzero 0xba 00b7 4800 |H | Short_Literal 0x0 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 00d1 | | Pop_Control Pop_Count_1 00ba 00c8 | | Action Pop_Auxiliary_Range 00bb 3ff4 |? | Loop_Increasing 0xb0 00bc 00ce | | Action Pop_Auxiliary 00bd 4801 |H | Short_Literal 0x1 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00cf | | Action Mark_Auxiliary 00c4 00db | | Load_Top At_Offset_3 00c5 01d9 | | Execute Vector,Reverse_Bounds 00c6 0263 | c | Execute Discrete,Above_Bound 00c7 700e |p | Jump_Nonzero 0xd6 00c8 00d8 | | Load_Top At_Offset_0 00c9 e5ff | | Load 0x2,-0x1 00ca 01d7 | | Execute Vector,Field_Read 00cb 0f20 | | Execute_Immediate Equal,0x20 00cc 7005 |p | Jump_Nonzero 0xd2 00cd 00d8 | | Load_Top At_Offset_0 00ce e5ff | | Load 0x2,-0x1 00cf 01d7 | | Execute Vector,Field_Read 00d0 0f09 | | Execute_Immediate Equal,0x9 00d1 6802 |h | Jump_Zero 0xd4 00d2 4800 |H | Short_Literal 0x0 00d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d4 00c8 | | Action Pop_Auxiliary_Range 00d5 3ff2 |? | Loop_Increasing 0xc8 00d6 00ce | | Action Pop_Auxiliary 00d7 4801 |H | Short_Literal 0x1 00d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 00e5 BODY_00e0: 00e5 00db | | Load_Top At_Offset_3 00e6 01db | | Execute Vector,Length 00e7 7002 |p | Jump_Nonzero 0xea 00e8 4800 |H | Short_Literal 0x0 00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ea 8402 | | Call 0x2,0x2 00eb 0831 | 1 | Execute_Immediate Raise,0x31 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 01db | | Execute Vector,Length 00f5 7004 |p | Jump_Nonzero 0xfa 00f6 00da | | Load_Top At_Offset_2 00f7 0335 | 5 | Declare_Variable Array,Duplicate 00f8 00cd | | Action Spare6_Action 00f9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00fa 00cf | | Action Mark_Auxiliary 00fb 00db | | Load_Top At_Offset_3 00fc 01d9 | | Execute Vector,Reverse_Bounds 00fd 0263 | c | Execute Discrete,Above_Bound 00fe 701f |p | Jump_Nonzero 0x11e 00ff e5fd | | Load 0x2,-0x3 0100 e5fe | | Load 0x2,-0x2 0101 00da | | Load_Top At_Offset_2 0102 e5ff | | Load 0x2,-0x1 0103 01d7 | | Execute Vector,Field_Read 0104 821a | | Call 0x1,0x1a 0105 6816 |h | Jump_Zero 0x11c 0106 e5ff | | Load 0x2,-0x1 0107 01dd | | Execute Vector,First 0108 00d9 | | Load_Top At_Offset_1 0109 0aff | | Execute_Immediate Plus,-0x1 010a e5ff | | Load 0x2,-0x1 010b 01cf | | Execute Vector,Slice_Read 010c e5fd | | Load 0x2,-0x3 010d e5fe | | Load 0x2,-0x2 010e 00db | | Load_Top At_Offset_3 010f 0a01 | | Execute_Immediate Plus,0x1 0110 00d8 | | Load_Top At_Offset_0 0111 00e2 | | Load_Encached Integer_Cache 0112 0260 | ` | Execute Discrete,In_Type 0113 7001 |p | Jump_Nonzero 0x115 0114 0801 | | Execute_Immediate Raise,0x1 0115 e5ff | | Load 0x2,-0x1 0116 01dc | | Execute Vector,Last 0117 e5ff | | Load 0x2,-0x1 0118 01cf | | Execute Vector,Slice_Read 0119 8213 | | Call 0x1,0x13 011a 01cc | | Execute Vector,Catenate 011b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 011c 00c8 | | Action Pop_Auxiliary_Range 011d 3fe1 |? | Loop_Increasing 0xff 011e 00ce | | Action Pop_Auxiliary 011f 00da | | Load_Top At_Offset_2 0120 0335 | 5 | Declare_Variable Array,Duplicate 0121 00cd | | Action Spare6_Action 0122 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 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 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b 00db | | Load_Top At_Offset_3 012c 01db | | Execute Vector,Length 012d 00e3 | | Load_Encached Natural_Cache 012e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 012f BODY_0128: 012f 00db | | Load_Top At_Offset_3 0130 01db | | Execute Vector,Length 0131 6803 |h | Jump_Zero 0x135 0132 e5fe | | Load 0x2,-0x2 0133 01db | | Execute Vector,Length 0134 7004 |p | Jump_Nonzero 0x139 0135 00db | | Load_Top At_Offset_3 0136 0335 | 5 | Declare_Variable Array,Duplicate 0137 00cd | | Action Spare6_Action 0138 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0139 00cf | | Action Mark_Auxiliary 013a e5ff | | Load 0x2,-0x1 013b 01dc | | Execute Vector,Last 013c 00da | | Load_Top At_Offset_2 013d 0272 | r | Execute Discrete,Minus 013e 0a01 | | Execute_Immediate Plus,0x1 013f 00d8 | | Load_Top At_Offset_0 0140 00e2 | | Load_Encached Integer_Cache 0141 0260 | ` | Execute Discrete,In_Type 0142 7001 |p | Jump_Nonzero 0x144 0143 0801 | | Execute_Immediate Raise,0x1 0144 e5ff | | Load 0x2,-0x1 0145 01dd | | Execute Vector,First 0146 0263 | c | Execute Discrete,Above_Bound 0147 702e |p. | Jump_Nonzero 0x176 0148 e5fd | | Load 0x2,-0x3 0149 e5fe | | Load 0x2,-0x2 014a 00da | | Load_Top At_Offset_2 014b 00db | | Load_Top At_Offset_3 014c e402 | | Load 0x2,0x2 014d 0273 | s | Execute Discrete,Plus 014e 0aff | | Execute_Immediate Plus,-0x1 014f 00d8 | | Load_Top At_Offset_0 0150 00e2 | | Load_Encached Integer_Cache 0151 0260 | ` | Execute Discrete,In_Type 0152 7001 |p | Jump_Nonzero 0x154 0153 0801 | | Execute_Immediate Raise,0x1 0154 e5ff | | Load 0x2,-0x1 0155 01cf | | Execute Vector,Slice_Read 0156 8219 | | Call 0x1,0x19 0157 681c |h | Jump_Zero 0x174 0158 e5ff | | Load 0x2,-0x1 0159 01dd | | Execute Vector,First 015a 00d9 | | Load_Top At_Offset_1 015b 0aff | | Execute_Immediate Plus,-0x1 015c 00d8 | | Load_Top At_Offset_0 015d 00e2 | | Load_Encached Integer_Cache 015e 0260 | ` | Execute Discrete,In_Type 015f 7001 |p | Jump_Nonzero 0x161 0160 0801 | | Execute_Immediate Raise,0x1 0161 e5ff | | Load 0x2,-0x1 0162 01cf | | Execute Vector,Slice_Read 0163 e5fd | | Load 0x2,-0x3 0164 e5fe | | Load 0x2,-0x2 0165 00db | | Load_Top At_Offset_3 0166 e402 | | Load 0x2,0x2 0167 0273 | s | Execute Discrete,Plus 0168 00d8 | | Load_Top At_Offset_0 0169 00e2 | | Load_Encached Integer_Cache 016a 0260 | ` | Execute Discrete,In_Type 016b 7001 |p | Jump_Nonzero 0x16d 016c 0801 | | Execute_Immediate Raise,0x1 016d e5ff | | Load 0x2,-0x1 016e 01dc | | Execute Vector,Last 016f e5ff | | Load 0x2,-0x1 0170 01cf | | Execute Vector,Slice_Read 0171 8214 | | Call 0x1,0x14 0172 01cc | | Execute Vector,Catenate 0173 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0174 00c8 | | Action Pop_Auxiliary_Range 0175 3fd2 |? | Loop_Increasing 0x148 0176 00ce | | Action Pop_Auxiliary 0177 00db | | Load_Top At_Offset_3 0178 0335 | 5 | Declare_Variable Array,Duplicate 0179 00cd | | Action Spare6_Action 017a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 017b 0000 0000 | | .BLANK 0000[0x5] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 01ac | | .CONST 0x01ac ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0005 | | .CONST 0x0005 ; Number of locals 0183 INIT_0180: 0183 e5fd | | Load 0x2,-0x3 0184 01dd | | Execute Vector,First 0185 00db | | Load_Top At_Offset_3 0186 0aff | | Execute_Immediate Plus,-0x1 0187 e5fd | | Load 0x2,-0x3 0188 01cf | | Execute Vector,Slice_Read 0189 0335 | 5 | Declare_Variable Array,Duplicate 018a 00cd | | Action Spare6_Action 018b 00db | | Load_Top At_Offset_3 018c 0a01 | | Execute_Immediate Plus,0x1 018d 00d8 | | Load_Top At_Offset_0 018e 00e2 | | Load_Encached Integer_Cache 018f 0260 | ` | Execute Discrete,In_Type 0190 7001 |p | Jump_Nonzero 0x192 0191 0801 | | Execute_Immediate Raise,0x1 0192 e5fd | | Load 0x2,-0x3 0193 01dc | | Execute Vector,Last 0194 e5fd | | Load 0x2,-0x3 0195 01cf | | Execute Vector,Slice_Read 0196 0335 | 5 | Declare_Variable Array,Duplicate 0197 00cd | | Action Spare6_Action 0198 e5fe | | Load 0x2,-0x2 0199 00da | | Load_Top At_Offset_2 019a 01cb | | Execute Vector,Append 019b 00d9 | | Load_Top At_Offset_1 019c 01cc | | Execute Vector,Catenate 019d 0007 | | Action Break_Optional 019e 4801 |H | Short_Literal 0x1 019f 00d9 | | Load_Top At_Offset_1 01a0 01db | | Execute Vector,Length 01a1 00d8 | | Load_Top At_Offset_0 01a2 00e2 | | Load_Encached Integer_Cache 01a3 0260 | ` | Execute Discrete,In_Type 01a4 7001 |p | Jump_Nonzero 0x1a6 01a5 0801 | | Execute_Immediate Raise,0x1 01a6 00e9 | | Load_Encached String_Cache 01a7 035b | [ | Declare_Type Array,Constrained 01a8 0337 | 7 | Declare_Variable Array 01a9 00d9 | | Load_Top At_Offset_1 01aa 00d9 | | Load_Top At_Offset_1 01ab 01d4 | | Execute Vector,Structure_Write 01ac BODY_0180: 01ac 00d8 | | Load_Top At_Offset_0 01ad 00e9 | | Load_Encached String_Cache 01ae 01c6 | | Execute Vector,Convert_To_Formal 01af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 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 01db | | Execute Vector,Length 01b5 7004 |p | Jump_Nonzero 0x1ba 01b6 00da | | Load_Top At_Offset_2 01b7 0335 | 5 | Declare_Variable Array,Duplicate 01b8 00cd | | Action Spare6_Action 01b9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01ba 00cf | | Action Mark_Auxiliary 01bb 00db | | Load_Top At_Offset_3 01bc 01d9 | | Execute Vector,Reverse_Bounds 01bd 0263 | c | Execute Discrete,Above_Bound 01be 7022 |p" | Jump_Nonzero 0x1e1 01bf e5fc | | Load 0x2,-0x4 01c0 e5fe | | Load 0x2,-0x2 01c1 00da | | Load_Top At_Offset_2 01c2 e5ff | | Load 0x2,-0x1 01c3 01d7 | | Execute Vector,Field_Read 01c4 821a | | Call 0x1,0x1a 01c5 6819 |h | Jump_Zero 0x1df 01c6 e5fd | | Load 0x2,-0x3 01c7 e5ff | | Load 0x2,-0x1 01c8 01dd | | Execute Vector,First 01c9 00da | | Load_Top At_Offset_2 01ca 0aff | | Execute_Immediate Plus,-0x1 01cb e5ff | | Load 0x2,-0x1 01cc 01cf | | Execute Vector,Slice_Read 01cd 01cb | | Execute Vector,Append 01ce e5fc | | Load 0x2,-0x4 01cf e5fd | | Load 0x2,-0x3 01d0 e5fe | | Load 0x2,-0x2 01d1 e404 | | Load 0x2,0x4 01d2 0a01 | | Execute_Immediate Plus,0x1 01d3 00d8 | | Load_Top At_Offset_0 01d4 00e2 | | Load_Encached Integer_Cache 01d5 0260 | ` | Execute Discrete,In_Type 01d6 7001 |p | Jump_Nonzero 0x1d8 01d7 0801 | | Execute_Immediate Raise,0x1 01d8 e5ff | | Load 0x2,-0x1 01d9 01dc | | Execute Vector,Last 01da e5ff | | Load 0x2,-0x1 01db 01cf | | Execute Vector,Slice_Read 01dc 8216 | | Call 0x1,0x16 01dd 01cc | | Execute Vector,Catenate 01de 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01df 00c8 | | Action Pop_Auxiliary_Range 01e0 3fde |? | Loop_Increasing 0x1bf 01e1 00ce | | Action Pop_Auxiliary 01e2 00da | | Load_Top At_Offset_2 01e3 0335 | 5 | Declare_Variable Array,Duplicate 01e4 00cd | | Action Spare6_Action 01e5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 0214 | | .CONST 0x0214 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0005 | | .CONST 0x0005 ; Number of locals 01eb INIT_01e8: 01eb e5fc | | Load 0x2,-0x4 01ec 01dd | | Execute Vector,First 01ed 00db | | Load_Top At_Offset_3 01ee 0aff | | Execute_Immediate Plus,-0x1 01ef e5fc | | Load 0x2,-0x4 01f0 01cf | | Execute Vector,Slice_Read 01f1 0335 | 5 | Declare_Variable Array,Duplicate 01f2 00cd | | Action Spare6_Action 01f3 e5fe | | Load 0x2,-0x2 01f4 0a01 | | Execute_Immediate Plus,0x1 01f5 00d8 | | Load_Top At_Offset_0 01f6 00e2 | | Load_Encached Integer_Cache 01f7 0260 | ` | Execute Discrete,In_Type 01f8 7001 |p | Jump_Nonzero 0x1fa 01f9 0801 | | Execute_Immediate Raise,0x1 01fa e5fc | | Load 0x2,-0x4 01fb 01dc | | Execute Vector,Last 01fc e5fc | | Load 0x2,-0x4 01fd 01cf | | Execute Vector,Slice_Read 01fe 0335 | 5 | Declare_Variable Array,Duplicate 01ff 00cd | | Action Spare6_Action 0200 00d9 | | Load_Top At_Offset_1 0201 e5fd | | Load 0x2,-0x3 0202 01cc | | Execute Vector,Catenate 0203 00d9 | | Load_Top At_Offset_1 0204 01cc | | Execute Vector,Catenate 0205 0007 | | Action Break_Optional 0206 4801 |H | Short_Literal 0x1 0207 00d9 | | Load_Top At_Offset_1 0208 01db | | Execute Vector,Length 0209 00d8 | | Load_Top At_Offset_0 020a 00e2 | | Load_Encached Integer_Cache 020b 0260 | ` | Execute Discrete,In_Type 020c 7001 |p | Jump_Nonzero 0x20e 020d 0801 | | Execute_Immediate Raise,0x1 020e 00e9 | | Load_Encached String_Cache 020f 035b | [ | Declare_Type Array,Constrained 0210 0337 | 7 | Declare_Variable Array 0211 00d9 | | Load_Top At_Offset_1 0212 00d9 | | Load_Top At_Offset_1 0213 01d4 | | Execute Vector,Structure_Write 0214 BODY_01e8: 0214 00d8 | | Load_Top At_Offset_0 0215 00e9 | | Load_Encached String_Cache 0216 01c6 | | Execute Vector,Convert_To_Formal 0217 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 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 00db | | Load_Top At_Offset_3 021c 01db | | Execute Vector,Length 021d 00e3 | | Load_Encached Natural_Cache 021e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 021f BODY_0218: 021f 00db | | Load_Top At_Offset_3 0220 01db | | Execute Vector,Length 0221 6803 |h | Jump_Zero 0x225 0222 e5fe | | Load 0x2,-0x2 0223 01db | | Execute Vector,Length 0224 7004 |p | Jump_Nonzero 0x229 0225 00db | | Load_Top At_Offset_3 0226 0335 | 5 | Declare_Variable Array,Duplicate 0227 00cd | | Action Spare6_Action 0228 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0229 00cf | | Action Mark_Auxiliary 022a e5ff | | Load 0x2,-0x1 022b 01dc | | Execute Vector,Last 022c 00da | | Load_Top At_Offset_2 022d 0272 | r | Execute Discrete,Minus 022e 0a01 | | Execute_Immediate Plus,0x1 022f 00d8 | | Load_Top At_Offset_0 0230 00e2 | | Load_Encached Integer_Cache 0231 0260 | ` | Execute Discrete,In_Type 0232 7001 |p | Jump_Nonzero 0x234 0233 0801 | | Execute_Immediate Raise,0x1 0234 e5ff | | Load 0x2,-0x1 0235 01dd | | Execute Vector,First 0236 0263 | c | Execute Discrete,Above_Bound 0237 7031 |p1 | Jump_Nonzero 0x269 0238 e5fc | | Load 0x2,-0x4 0239 e5fe | | Load 0x2,-0x2 023a 00da | | Load_Top At_Offset_2 023b 00db | | Load_Top At_Offset_3 023c e402 | | Load 0x2,0x2 023d 0273 | s | Execute Discrete,Plus 023e 0aff | | Execute_Immediate Plus,-0x1 023f 00d8 | | Load_Top At_Offset_0 0240 00e2 | | Load_Encached Integer_Cache 0241 0260 | ` | Execute Discrete,In_Type 0242 7001 |p | Jump_Nonzero 0x244 0243 0801 | | Execute_Immediate Raise,0x1 0244 e5ff | | Load 0x2,-0x1 0245 01cf | | Execute Vector,Slice_Read 0246 8219 | | Call 0x1,0x19 0247 681f |h | Jump_Zero 0x267 0248 e5ff | | Load 0x2,-0x1 0249 01dd | | Execute Vector,First 024a 00d9 | | Load_Top At_Offset_1 024b 0aff | | Execute_Immediate Plus,-0x1 024c 00d8 | | Load_Top At_Offset_0 024d 00e2 | | Load_Encached Integer_Cache 024e 0260 | ` | Execute Discrete,In_Type 024f 7001 |p | Jump_Nonzero 0x251 0250 0801 | | Execute_Immediate Raise,0x1 0251 e5ff | | Load 0x2,-0x1 0252 01cf | | Execute Vector,Slice_Read 0253 e5fd | | Load 0x2,-0x3 0254 01cc | | Execute Vector,Catenate 0255 e5fc | | Load 0x2,-0x4 0256 e5fd | | Load 0x2,-0x3 0257 e5fe | | Load 0x2,-0x2 0258 e405 | | Load 0x2,0x5 0259 e402 | | Load 0x2,0x2 025a 0273 | s | Execute Discrete,Plus 025b 00d8 | | Load_Top At_Offset_0 025c 00e2 | | Load_Encached Integer_Cache 025d 0260 | ` | Execute Discrete,In_Type 025e 7001 |p | Jump_Nonzero 0x260 025f 0801 | | Execute_Immediate Raise,0x1 0260 e5ff | | Load 0x2,-0x1 0261 01dc | | Execute Vector,Last 0262 e5ff | | Load 0x2,-0x1 0263 01cf | | Execute Vector,Slice_Read 0264 8218 | | Call 0x1,0x18 0265 01cc | | Execute Vector,Catenate 0266 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0267 00c8 | | Action Pop_Auxiliary_Range 0268 3fcf |? | Loop_Increasing 0x238 0269 00ce | | Action Pop_Auxiliary 026a 00db | | Load_Top At_Offset_3 026b 0335 | 5 | Declare_Variable Array,Duplicate 026c 00cd | | Action Spare6_Action 026d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 e5fd | | Load 0x2,-0x3 0274 6808 |h | Jump_Zero 0x27d 0275 00da | | Load_Top At_Offset_2 0276 e001 | | Load 0x0,0x1 0277 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0278 e5fe | | Load 0x2,-0x2 0279 e001 | | Load 0x0,0x1 027a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 027b 01df | | Execute Vector,Equal 027c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 027d 00da | | Load_Top At_Offset_2 027e e5fe | | Load 0x2,-0x2 027f 01df | | Execute Vector,Equal 0280 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0281 0000 0000 | | .BLANK 0000[0x7] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b e5fd | | Load 0x2,-0x3 028c 6808 |h | Jump_Zero 0x295 028d 00da | | Load_Top At_Offset_2 028e e001 | | Load 0x0,0x1 028f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0290 e5fe | | Load 0x2,-0x2 0291 e001 | | Load 0x0,0x1 0292 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0293 027f | | Execute Discrete,Equal 0294 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0295 00da | | Load_Top At_Offset_2 0296 e5fe | | Load 0x2,-0x2 0297 027f | | Execute Discrete,Equal 0298 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0299 0000 0000 | | .BLANK 0000[0x7] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02af | | .CONST 0x02af ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0003 | | .CONST 0x0003 ; Number of locals 02a3 INIT_02a0: 02a3 e5ff | | Load 0x2,-0x1 02a4 01dd | | Execute Vector,First 02a5 e5ff | | Load 0x2,-0x1 02a6 01d7 | | Execute Vector,Field_Read 02a7 00e8 | | Load_Encached Character_Cache 02a8 03f1 | | Declare_Variable Discrete,With_Value 02a9 e5ff | | Load 0x2,-0x1 02aa 01dc | | Execute Vector,Last 02ab e5ff | | Load 0x2,-0x1 02ac 01d7 | | Execute Vector,Field_Read 02ad 00e8 | | Load_Encached Character_Cache 02ae 03f1 | | Declare_Variable Discrete,With_Value 02af BODY_02a0: 02af 00d9 | | Load_Top At_Offset_1 02b0 0f20 | | Execute_Immediate Equal,0x20 02b1 700d |p | Jump_Nonzero 0x2bf 02b2 00d8 | | Load_Top At_Offset_0 02b3 0f20 | | Execute_Immediate Equal,0x20 02b4 7008 |p | Jump_Nonzero 0x2bd 02b5 00d9 | | Load_Top At_Offset_1 02b6 0f09 | | Execute_Immediate Equal,0x9 02b7 7003 |p | Jump_Nonzero 0x2bb 02b8 00d8 | | Load_Top At_Offset_0 02b9 0f09 | | Execute_Immediate Equal,0x9 02ba 7805 |x | Jump 0x2c0 02bb 4801 |H | Short_Literal 0x1 02bc 7803 |x | Jump 0x2c0 02bd 4801 |H | Short_Literal 0x1 02be 7801 |x | Jump 0x2c0 02bf 4801 |H | Short_Literal 0x1 02c0 00cb | | Action Pop_Block_With_Result 02c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c2 0000 0000 | | .BLANK 0000[0x6] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug Table 02c8 ; -------------------------------------------------------------------------------------- 02c8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x712c,0x0000,0x0001,0x0011 02ce 000b 0312 | | .DBG4T 0x000b,0x0312,0x8000,0x0000 02d2 0024 0320 | $ | .DBG4T 0x0024,0x0320,0x8000,0x8000 02d6 004b 033e | K >| .DBG4T 0x004b,0x033e,0x0002,0x0000 02da 0073 0346 | s F| .DBG4T 0x0073,0x0346,0x0002,0x0000 02de 009b 034e | N| .DBG4T 0x009b,0x034e,0x0002,0x0000 02e2 00ab 0351 | Q| .DBG4T 0x00ab,0x0351,0x0002,0x4000 02e6 00c3 035b | [| .DBG4T 0x00c3,0x035b,0x0002,0x0000 02ea 00e3 0361 | a| .DBG4T 0x00e3,0x0361,0x0002,0x0000 02ee 00f3 0366 | f| .DBG4T 0x00f3,0x0366,0x0002,0x0000 02f2 012b 036e | + n| .DBG4T 0x012b,0x036e,0x0002,0x0000 02f6 0183 0377 | w| .DBG4T 0x0183,0x0377,0x0002,0x0000 02fa 01b3 037e | ~| .DBG4T 0x01b3,0x037e,0x0002,0x0000 02fe 01eb 0386 | | .DBG4T 0x01eb,0x0386,0x0002,0x0000 0302 021b 038d | | .DBG4T 0x021b,0x038d,0x0002,0x0000 0306 0273 0396 | s | .DBG4T 0x0273,0x0396,0x0002,0x0000 030a 028b 039b | | .DBG4T 0x028b,0x039b,0x0002,0x0000 030e 02a3 03a0 | | .DBG4T 0x02a3,0x03a0,0x0004,0x0000 0312 ; -------------------------------------------------------------------------------------- 0312 ; Debug chain 0312 ; -------------------------------------------------------------------------------------- 0312 000c 0000 | | .DBGLEN 0x000c,0x0000 0314 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021 0320 ; -------------------------------------------------------------------------------------- 0320 ; Debug chain 0320 ; -------------------------------------------------------------------------------------- 0320 000e 0000 | | .DBGLEN 0x000e,0x0000 0322 0024 0026 | $ &| .DBGLNO 0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e 0330 0003 0004 | | .XXX[0xe] 0332 0005 0006 | | 0334 0007 0008 | | 0336 0009 000a | | 0338 000b 000c | | 033a 000d 000e | | 033c 000f 0010 | | 033e ; -------------------------------------------------------------------------------------- 033e ; Debug chain 033e ; -------------------------------------------------------------------------------------- 033e 0001 0005 | | .DBGLEN 0x0001,0x0005 0340 004b 004f | K O| .DBGLNO 0x004b,0x004f,0x0055,0x0057,0x005c,0x005e 0346 ; -------------------------------------------------------------------------------------- 0346 ; Debug chain 0346 ; -------------------------------------------------------------------------------------- 0346 0001 0005 | | .DBGLEN 0x0001,0x0005 0348 0073 0077 | s w| .DBGLNO 0x0073,0x0077,0x007d,0x007f,0x0084,0x0086 034e ; -------------------------------------------------------------------------------------- 034e ; Debug chain 034e ; -------------------------------------------------------------------------------------- 034e 0000 0001 | | .DBGLEN 0x0000,0x0001 0350 009b | | .DBGLNO 0x009b 0351 ; -------------------------------------------------------------------------------------- 0351 ; Debug chain 0351 ; -------------------------------------------------------------------------------------- 0351 0000 0004 | | .DBGLEN 0x0000,0x0004 0353 00ac 00b0 | | .DBGLNO 0x00ac,0x00b0,0x00b7,0x00bd 0357 0001 0002 | | .XXX[0x4] 0359 0004 0005 | | 035b ; -------------------------------------------------------------------------------------- 035b ; Debug chain 035b ; -------------------------------------------------------------------------------------- 035b 0000 0004 | | .DBGLEN 0x0000,0x0004 035d 00c4 00c8 | | .DBGLNO 0x00c4,0x00c8,0x00d2,0x00d7 0361 ; -------------------------------------------------------------------------------------- 0361 ; Debug chain 0361 ; -------------------------------------------------------------------------------------- 0361 0000 0003 | | .DBGLEN 0x0000,0x0003 0363 00e5 00e8 | | .DBGLNO 0x00e5,0x00e8,0x00ea 0366 ; -------------------------------------------------------------------------------------- 0366 ; Debug chain 0366 ; -------------------------------------------------------------------------------------- 0366 0000 0006 | | .DBGLEN 0x0000,0x0006 0368 00f3 00f6 | | .DBGLNO 0x00f3,0x00f6,0x00fb,0x00ff,0x0106,0x011f 036e ; -------------------------------------------------------------------------------------- 036e ; Debug chain 036e ; -------------------------------------------------------------------------------------- 036e 0001 0006 | | .DBGLEN 0x0001,0x0006 0370 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x0135,0x013a,0x0148,0x0158,0x0177 0377 ; -------------------------------------------------------------------------------------- 0377 ; Debug chain 0377 ; -------------------------------------------------------------------------------------- 0377 0004 0001 | | .DBGLEN 0x0004,0x0001 0379 0183 018b | | .DBGLNO 0x0183,0x018b,0x0198,0x019e,0x01ac 037e ; -------------------------------------------------------------------------------------- 037e ; Debug chain 037e ; -------------------------------------------------------------------------------------- 037e 0000 0006 | | .DBGLEN 0x0000,0x0006 0380 01b3 01b6 | | .DBGLNO 0x01b3,0x01b6,0x01bb,0x01bf,0x01c6,0x01e2 0386 ; -------------------------------------------------------------------------------------- 0386 ; Debug chain 0386 ; -------------------------------------------------------------------------------------- 0386 0004 0001 | | .DBGLEN 0x0004,0x0001 0388 01eb 01f3 | | .DBGLNO 0x01eb,0x01f3,0x0200,0x0206,0x0214 038d ; -------------------------------------------------------------------------------------- 038d ; Debug chain 038d ; -------------------------------------------------------------------------------------- 038d 0001 0006 | | .DBGLEN 0x0001,0x0006 038f 021b 021f | | .DBGLNO 0x021b,0x021f,0x0225,0x022a,0x0238,0x0248,0x026a 0396 ; -------------------------------------------------------------------------------------- 0396 ; Debug chain 0396 ; -------------------------------------------------------------------------------------- 0396 0000 0003 | | .DBGLEN 0x0000,0x0003 0398 0273 0275 | s u| .DBGLNO 0x0273,0x0275,0x027d 039b ; -------------------------------------------------------------------------------------- 039b ; Debug chain 039b ; -------------------------------------------------------------------------------------- 039b 0000 0003 | | .DBGLEN 0x0000,0x0003 039d 028b 028d | | .DBGLNO 0x028b,0x028d,0x0295 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; Debug chain 03a0 ; -------------------------------------------------------------------------------------- 03a0 0002 0001 | | .DBGLEN 0x0002,0x0001 03a2 02a3 02a9 | | .DBGLNO 0x02a3,0x02a9,0x02af 03a5 0000 0000 | | .BLANK 0000[0x5b]