|
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_6148f2
└─⟦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 01c0 | | .CONST 0x01c0 ; 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 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0013 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0017 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0019 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001b 00bf | | Action Accept_Activation 001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0021 00c7 | | Action Elaborate_Subprogram 0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0023 00c7 | | Action Elaborate_Subprogram 0024 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0025 00c7 | | Action Elaborate_Subprogram 0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0027 00c7 | | Action Elaborate_Subprogram 0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0029 00c7 | | Action Elaborate_Subprogram 002a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 003b | ; | .CONST 0x003b ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0005 | | .CONST 0x0005 ; Number of locals 0033 INIT_0030: 0033 e002 | | Load 0x0,0x2 0034 190e | | Execute Package,Field_Reference,Field_Number 0xe 0035 00c6 | | Action Check_Subprogram_Elaborated 0036 00db | | Load_Top At_Offset_3 0037 e003 | | Load 0x0,0x3 0038 e004 | | Load 0x0,0x4 0039 4805 |H | Short_Literal 0x5 003a 0007 | | Action Break_Optional 003b BODY_0030: 003b e5fd | | Load 0x2,-0x3 003c 00d8 | | Load_Top At_Offset_0 003d e5fe | | Load 0x2,-0x2 003e 0260 | ` | Execute Discrete,In_Type 003f 7001 |p | Jump_Nonzero 0x41 0040 0801 | | Execute_Immediate Raise,0x1 0041 e402 | | Load 0x2,0x2 0042 4803 |H | Short_Literal 0x3 0043 4802 |H | Short_Literal 0x2 0044 0099 | | Action Reference_Dynamic 0045 e002 | | Load 0x0,0x2 0046 180e | | Execute Package,Field_Execute,Field_Number 0xe 0047 e5fc | | Load 0x2,-0x4 0048 01d4 | | Execute Vector,Structure_Write 0049 4504 |E | Exit_Suprogram New_Top_Offset 0x4 004a 0000 0000 | | .BLANK 0000[0x6] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 005b | [ | .CONST 0x005b ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0005 | | .CONST 0x0005 ; Number of locals 0053 INIT_0050: 0053 e002 | | Load 0x0,0x2 0054 190e | | Execute Package,Field_Reference,Field_Number 0xe 0055 00c6 | | Action Check_Subprogram_Elaborated 0056 00db | | Load_Top At_Offset_3 0057 e005 | | Load 0x0,0x5 0058 e006 | | Load 0x0,0x6 0059 4805 |H | Short_Literal 0x5 005a 0007 | | Action Break_Optional 005b BODY_0050: 005b e5fd | | Load 0x2,-0x3 005c e5fe | | Load 0x2,-0x2 005d 0119 | | Execute Any,Check_In_Formal_Type 005e e402 | | Load 0x2,0x2 005f 4803 |H | Short_Literal 0x3 0060 4802 |H | Short_Literal 0x2 0061 0099 | | Action Reference_Dynamic 0062 e002 | | Load 0x0,0x2 0063 180e | | Execute Package,Field_Execute,Field_Number 0xe 0064 e5fc | | Load 0x2,-0x4 0065 01d4 | | Execute Vector,Structure_Write 0066 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0086 | | .CONST 0x0086 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0007 | | .CONST 0x0007 ; Number of locals 006b INIT_0068: 006b e5fb | | Load 0x2,-0x5 006c 01da | | Execute Vector,Bounds 006d e5fd | | Load 0x2,-0x3 006e 1c05 | | Execute_Immediate Run_Utility,0x5 006f 00d0 | | Action Swap_Control 0070 e5fd | | Load 0x2,-0x3 0071 1c05 | | Execute_Immediate Run_Utility,0x5 0072 e5fd | | Load 0x2,-0x3 0073 1c04 | | Execute_Immediate Run_Utility,0x4 0074 00d0 | | Action Swap_Control 0075 e5fd | | Load 0x2,-0x3 0076 1c04 | | Execute_Immediate Run_Utility,0x4 0077 e5fe | | Load 0x2,-0x2 0078 035b | [ | Declare_Type Array,Constrained 0079 00d8 | | Load_Top At_Offset_0 007a 0337 | 7 | Declare_Variable Array 007b e5fb | | Load 0x2,-0x5 007c 00d9 | | Load_Top At_Offset_1 007d 01d4 | | Execute Vector,Structure_Write 007e e002 | | Load 0x0,0x2 007f 190e | | Execute Package,Field_Reference,Field_Number 0xe 0080 00c6 | | Action Check_Subprogram_Elaborated 0081 00d9 | | Load_Top At_Offset_1 0082 e007 | | Load 0x0,0x7 0083 e008 | | Load 0x0,0x8 0084 4807 |H | Short_Literal 0x7 0085 0007 | | Action Break_Optional 0086 BODY_0068: 0086 e5fb | | Load 0x2,-0x5 0087 01db | | Execute Vector,Length 0088 e5fc | | Load 0x2,-0x4 0089 012c | , | Execute Any,Size 008a 0271 | q | Execute Discrete,Times 008b e009 | | Load 0x0,0x9 008c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008d 012c | , | Execute Any,Size 008e 0270 | p | Execute Discrete,Divide 008f e5fa | | Load 0x2,-0x6 0090 01db | | Execute Vector,Length 0091 027e | ~ | Execute Discrete,Not_Equal 0092 6801 |h | Jump_Zero 0x94 0093 08e0 | | Execute_Immediate Raise,0xe0 0094 e5fb | | Load 0x2,-0x5 0095 01db | | Execute Vector,Length 0096 0c01 | | Execute_Immediate Greater_Equal,0x1 0097 680b |h | Jump_Zero 0xa3 0098 e403 | | Load 0x2,0x3 0099 e402 | | Load 0x2,0x2 009a 01c3 | | Execute Vector,Check_In_Type 009b e404 | | Load 0x2,0x4 009c 4805 |H | Short_Literal 0x5 009d 4802 |H | Short_Literal 0x2 009e 0099 | | Action Reference_Dynamic 009f e002 | | Load 0x0,0x2 00a0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a1 e5fa | | Load 0x2,-0x6 00a2 01d4 | | Execute Vector,Structure_Write 00a3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ca | | .CONST 0x00ca ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0007 | | .CONST 0x0007 ; Number of locals 00ab INIT_00a8: 00ab 4801 |H | Short_Literal 0x1 00ac e5fa | | Load 0x2,-0x6 00ad 01a9 | | Execute Matrix,Reverse_Bounds 00ae e5fc | | Load 0x2,-0x4 00af 1c04 | | Execute_Immediate Run_Utility,0x4 00b0 00d0 | | Action Swap_Control 00b1 e5fc | | Load 0x2,-0x4 00b2 1c04 | | Execute_Immediate Run_Utility,0x4 00b3 4802 |H | Short_Literal 0x2 00b4 e5fa | | Load 0x2,-0x6 00b5 01a9 | | Execute Matrix,Reverse_Bounds 00b6 e5fd | | Load 0x2,-0x3 00b7 1c04 | | Execute_Immediate Run_Utility,0x4 00b8 00d0 | | Action Swap_Control 00b9 e5fd | | Load 0x2,-0x3 00ba 1c04 | | Execute_Immediate Run_Utility,0x4 00bb e5fe | | Load 0x2,-0x2 00bc 035b | [ | Declare_Type Array,Constrained 00bd 00d8 | | Load_Top At_Offset_0 00be 0337 | 7 | Declare_Variable Array 00bf e5fa | | Load 0x2,-0x6 00c0 00d9 | | Load_Top At_Offset_1 00c1 01a4 | | Execute Matrix,Structure_Write 00c2 e002 | | Load 0x0,0x2 00c3 190e | | Execute Package,Field_Reference,Field_Number 0xe 00c4 00c6 | | Action Check_Subprogram_Elaborated 00c5 00d9 | | Load_Top At_Offset_1 00c6 e00a | | Load 0x0,0xa 00c7 e00b | | Load 0x0,0xb 00c8 4807 |H | Short_Literal 0x7 00c9 0007 | | Action Break_Optional 00ca BODY_00a8: 00ca 4801 |H | Short_Literal 0x1 00cb e5fa | | Load 0x2,-0x6 00cc 01ab | | Execute Matrix,Length 00cd 4802 |H | Short_Literal 0x2 00ce e5fa | | Load 0x2,-0x6 00cf 01ab | | Execute Matrix,Length 00d0 0271 | q | Execute Discrete,Times 00d1 e5fb | | Load 0x2,-0x5 00d2 012c | , | Execute Any,Size 00d3 0271 | q | Execute Discrete,Times 00d4 e009 | | Load 0x0,0x9 00d5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d6 012c | , | Execute Any,Size 00d7 0270 | p | Execute Discrete,Divide 00d8 e5f9 | | Load 0x2,-0x7 00d9 01db | | Execute Vector,Length 00da 027e | ~ | Execute Discrete,Not_Equal 00db 6801 |h | Jump_Zero 0xdd 00dc 08e0 | | Execute_Immediate Raise,0xe0 00dd e5f9 | | Load 0x2,-0x7 00de 01db | | Execute Vector,Length 00df 680b |h | Jump_Zero 0xeb 00e0 e403 | | Load 0x2,0x3 00e1 e402 | | Load 0x2,0x2 00e2 019b | | Execute Matrix,Check_In_Type 00e3 e404 | | Load 0x2,0x4 00e4 4805 |H | Short_Literal 0x5 00e5 4802 |H | Short_Literal 0x2 00e6 0099 | | Action Reference_Dynamic 00e7 e002 | | Load 0x0,0x2 00e8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e9 e5f9 | | Load 0x2,-0x7 00ea 01d4 | | Execute Vector,Structure_Write 00eb 4507 |E | Exit_Suprogram New_Top_Offset 0x7 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fb | | .CONST 0x00fb ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0005 | | .CONST 0x0005 ; Number of locals 00f3 INIT_00f0: 00f3 e002 | | Load 0x0,0x2 00f4 190f | | Execute Package,Field_Reference,Field_Number 0xf 00f5 00c6 | | Action Check_Subprogram_Elaborated 00f6 00db | | Load_Top At_Offset_3 00f7 e00c | | Load 0x0,0xc 00f8 e00d | | Load 0x0,0xd 00f9 4805 |H | Short_Literal 0x5 00fa 0007 | | Action Break_Optional 00fb BODY_00f0: 00fb e5fe | | Load 0x2,-0x2 00fc 012c | , | Execute Any,Size 00fd e009 | | Load 0x0,0x9 00fe 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ff 012c | , | Execute Any,Size 0100 0270 | p | Execute Discrete,Divide 0101 e5fd | | Load 0x2,-0x3 0102 01db | | Execute Vector,Length 0103 027e | ~ | Execute Discrete,Not_Equal 0104 6801 |h | Jump_Zero 0x106 0105 08e0 | | Execute_Immediate Raise,0xe0 0106 e5fd | | Load 0x2,-0x3 0107 e402 | | Load 0x2,0x2 0108 4803 |H | Short_Literal 0x3 0109 4802 |H | Short_Literal 0x2 010a 0099 | | Action Reference_Dynamic 010b e002 | | Load 0x0,0x2 010c 180f | | Execute Package,Field_Execute,Field_Number 0xf 010d c5fc | | Store 0x2,-0x4 010e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010f 0000 | | .XXX[0x1] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011b | | .CONST 0x011b ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0005 | | .CONST 0x0005 ; Number of locals 0113 INIT_0110: 0113 e002 | | Load 0x0,0x2 0114 190f | | Execute Package,Field_Reference,Field_Number 0xf 0115 00c6 | | Action Check_Subprogram_Elaborated 0116 00db | | Load_Top At_Offset_3 0117 e00e | | Load 0x0,0xe 0118 e00f | | Load 0x0,0xf 0119 4805 |H | Short_Literal 0x5 011a 0007 | | Action Break_Optional 011b BODY_0110: 011b e5fe | | Load 0x2,-0x2 011c 012c | , | Execute Any,Size 011d e009 | | Load 0x0,0x9 011e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 011f 012c | , | Execute Any,Size 0120 0270 | p | Execute Discrete,Divide 0121 e5fd | | Load 0x2,-0x3 0122 01db | | Execute Vector,Length 0123 027e | ~ | Execute Discrete,Not_Equal 0124 6801 |h | Jump_Zero 0x126 0125 08e0 | | Execute_Immediate Raise,0xe0 0126 e5fd | | Load 0x2,-0x3 0127 e402 | | Load 0x2,0x2 0128 4803 |H | Short_Literal 0x3 0129 4802 |H | Short_Literal 0x2 012a 0099 | | Action Reference_Dynamic 012b e002 | | Load 0x0,0x2 012c 180f | | Execute Package,Field_Execute,Field_Number 0xf 012d c5fc | | Store 0x2,-0x4 012e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0135 | 5 | .CONST 0x0135 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0135 BODY_0130: 0135 e5fb | | Load 0x2,-0x5 0136 01db | | Execute Vector,Length 0137 e5fa | | Load 0x2,-0x6 0138 01db | | Execute Vector,Length 0139 e5fc | | Load 0x2,-0x4 013a 012c | , | Execute Any,Size 013b 0271 | q | Execute Discrete,Times 013c e009 | | Load 0x0,0x9 013d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013e 012c | , | Execute Any,Size 013f 0270 | p | Execute Discrete,Divide 0140 027e | ~ | Execute Discrete,Not_Equal 0141 6801 |h | Jump_Zero 0x143 0142 08e0 | | Execute_Immediate Raise,0xe0 0143 e5fb | | Load 0x2,-0x5 0144 01db | | Execute Vector,Length 0145 0c01 | | Execute_Immediate Greater_Equal,0x1 0146 6801 |h | Jump_Zero 0x148 0147 8402 | | Call 0x2,0x2 0148 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0155 BODY_0150: 0155 e5fa | | Load 0x2,-0x6 0156 01db | | Execute Vector,Length 0157 4801 |H | Short_Literal 0x1 0158 e5f9 | | Load 0x2,-0x7 0159 01ab | | Execute Matrix,Length 015a 4802 |H | Short_Literal 0x2 015b e5f9 | | Load 0x2,-0x7 015c 01ab | | Execute Matrix,Length 015d 0271 | q | Execute Discrete,Times 015e e5fb | | Load 0x2,-0x5 015f 012c | , | Execute Any,Size 0160 0271 | q | Execute Discrete,Times 0161 e009 | | Load 0x0,0x9 0162 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0163 012c | , | Execute Any,Size 0164 0270 | p | Execute Discrete,Divide 0165 027e | ~ | Execute Discrete,Not_Equal 0166 6801 |h | Jump_Zero 0x168 0167 08e0 | | Execute_Immediate Raise,0xe0 0168 e5fa | | Load 0x2,-0x6 0169 01db | | Execute Vector,Length 016a 0c01 | | Execute_Immediate Greater_Equal,0x1 016b 6801 |h | Jump_Zero 0x16d 016c 8402 | | Call 0x2,0x2 016d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0189 | | .CONST 0x0189 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0006 | | .CONST 0x0006 ; Number of locals 0173 INIT_0170: 0173 e5fa | | Load 0x2,-0x6 0174 01da | | Execute Vector,Bounds 0175 e5fd | | Load 0x2,-0x3 0176 1c05 | | Execute_Immediate Run_Utility,0x5 0177 00d0 | | Action Swap_Control 0178 e5fd | | Load 0x2,-0x3 0179 1c05 | | Execute_Immediate Run_Utility,0x5 017a e5fd | | Load 0x2,-0x3 017b 1c04 | | Execute_Immediate Run_Utility,0x4 017c 00d0 | | Action Swap_Control 017d e5fd | | Load 0x2,-0x3 017e 1c04 | | Execute_Immediate Run_Utility,0x4 017f e5fe | | Load 0x2,-0x2 0180 035b | [ | Declare_Type Array,Constrained 0181 e002 | | Load 0x0,0x2 0182 190f | | Execute Package,Field_Reference,Field_Number 0xf 0183 00c6 | | Action Check_Subprogram_Elaborated 0184 00d8 | | Load_Top At_Offset_0 0185 e010 | | Load 0x0,0x10 0186 e011 | | Load 0x0,0x11 0187 4806 |H | Short_Literal 0x6 0188 0007 | | Action Break_Optional 0189 BODY_0170: 0189 e5fb | | Load 0x2,-0x5 018a e603 | | Load 0x3,0x3 018b 4804 |H | Short_Literal 0x4 018c 4803 |H | Short_Literal 0x3 018d 0099 | | Action Reference_Dynamic 018e e002 | | Load 0x0,0x2 018f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0190 e5fa | | Load 0x2,-0x6 0191 01d4 | | Execute Vector,Structure_Write 0192 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0193 0000 0000 | | .BLANK 0000[0x5] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01b5 | | .CONST 0x01b5 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0006 | | .CONST 0x0006 ; Number of locals 019b INIT_0198: 019b 4801 |H | Short_Literal 0x1 019c e5f9 | | Load 0x2,-0x7 019d 01a9 | | Execute Matrix,Reverse_Bounds 019e e5fc | | Load 0x2,-0x4 019f 1c04 | | Execute_Immediate Run_Utility,0x4 01a0 00d0 | | Action Swap_Control 01a1 e5fc | | Load 0x2,-0x4 01a2 1c04 | | Execute_Immediate Run_Utility,0x4 01a3 4802 |H | Short_Literal 0x2 01a4 e5f9 | | Load 0x2,-0x7 01a5 01a9 | | Execute Matrix,Reverse_Bounds 01a6 e5fd | | Load 0x2,-0x3 01a7 1c04 | | Execute_Immediate Run_Utility,0x4 01a8 00d0 | | Action Swap_Control 01a9 e5fd | | Load 0x2,-0x3 01aa 1c04 | | Execute_Immediate Run_Utility,0x4 01ab e5fe | | Load 0x2,-0x2 01ac 035b | [ | Declare_Type Array,Constrained 01ad e002 | | Load 0x0,0x2 01ae 190f | | Execute Package,Field_Reference,Field_Number 0xf 01af 00c6 | | Action Check_Subprogram_Elaborated 01b0 00d8 | | Load_Top At_Offset_0 01b1 e012 | | Load 0x0,0x12 01b2 e013 | | Load 0x0,0x13 01b3 4806 |H | Short_Literal 0x6 01b4 0007 | | Action Break_Optional 01b5 BODY_0198: 01b5 e5fa | | Load 0x2,-0x6 01b6 e603 | | Load 0x3,0x3 01b7 4804 |H | Short_Literal 0x4 01b8 4803 |H | Short_Literal 0x3 01b9 0099 | | Action Reference_Dynamic 01ba e002 | | Load 0x0,0x2 01bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 01bc e5f9 | | Load 0x2,-0x7 01bd 01a4 | | Execute Matrix,Structure_Write 01be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug Table 01c0 ; -------------------------------------------------------------------------------------- 01c0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x68da,0x0000,0x0001,0x000c 01c6 000b 01f6 | | .DBG4T 0x000b,0x01f6,0x8000,0x0000 01ca 001c 0200 | | .DBG4T 0x001c,0x0200,0x8000,0x0000 01ce 0033 020a | 3 | .DBG4T 0x0033,0x020a,0x2801,0x0002 01d2 0053 020e | S | .DBG4T 0x0053,0x020e,0x2801,0x0002 01d6 006b 0212 | k | .DBG4T 0x006b,0x0212,0x2801,0x0002 01da 00ab 021b | | .DBG4T 0x00ab,0x021b,0x2801,0x0002 01de 00f3 0224 | $| .DBG4T 0x00f3,0x0224,0x2801,0x0002 01e2 0113 022a | *| .DBG4T 0x0113,0x022a,0x2801,0x0002 01e6 0133 0230 | 3 0| .DBG4T 0x0133,0x0230,0x2801,0x0002 01ea 0153 0236 | S 6| .DBG4T 0x0153,0x0236,0x2801,0x0002 01ee 0173 023c | s <| .DBG4T 0x0173,0x023c,0x0804,0x0002 01f2 019b 0241 | A| .DBG4T 0x019b,0x0241,0x0804,0x0002 01f6 ; -------------------------------------------------------------------------------------- 01f6 ; Debug chain 01f6 ; -------------------------------------------------------------------------------------- 01f6 0008 0000 | | .DBGLEN 0x0008,0x0000 01f8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019 0200 ; -------------------------------------------------------------------------------------- 0200 ; Debug chain 0200 ; -------------------------------------------------------------------------------------- 0200 0008 0000 | | .DBGLEN 0x0008,0x0000 0202 001c 001e | | .DBGLNO 0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a 020a ; -------------------------------------------------------------------------------------- 020a ; Debug chain 020a ; -------------------------------------------------------------------------------------- 020a 0001 0001 | | .DBGLEN 0x0001,0x0001 020c 0033 003b | 3 ;| .DBGLNO 0x0033,0x003b 020e ; -------------------------------------------------------------------------------------- 020e ; Debug chain 020e ; -------------------------------------------------------------------------------------- 020e 0001 0001 | | .DBGLEN 0x0001,0x0001 0210 0053 005b | S [| .DBGLNO 0x0053,0x005b 0212 ; -------------------------------------------------------------------------------------- 0212 ; Debug chain 0212 ; -------------------------------------------------------------------------------------- 0212 0003 0004 | | .DBGLEN 0x0003,0x0004 0214 006b 0079 | k y| .DBGLNO 0x006b,0x0079,0x007e,0x0086,0x0093,0x0094,0x0098 021b ; -------------------------------------------------------------------------------------- 021b ; Debug chain 021b ; -------------------------------------------------------------------------------------- 021b 0003 0004 | | .DBGLEN 0x0003,0x0004 021d 00ab 00bd | | .DBGLNO 0x00ab,0x00bd,0x00c2,0x00ca,0x00dc,0x00dd,0x00e0 0224 ; -------------------------------------------------------------------------------------- 0224 ; Debug chain 0224 ; -------------------------------------------------------------------------------------- 0224 0001 0003 | | .DBGLEN 0x0001,0x0003 0226 00f3 00fb | | .DBGLNO 0x00f3,0x00fb,0x0105,0x0106 022a ; -------------------------------------------------------------------------------------- 022a ; Debug chain 022a ; -------------------------------------------------------------------------------------- 022a 0001 0003 | | .DBGLEN 0x0001,0x0003 022c 0113 011b | | .DBGLNO 0x0113,0x011b,0x0125,0x0126 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug chain 0230 ; -------------------------------------------------------------------------------------- 0230 0000 0004 | | .DBGLEN 0x0000,0x0004 0232 0135 0142 | 5 B| .DBGLNO 0x0135,0x0142,0x0143,0x0147 0236 ; -------------------------------------------------------------------------------------- 0236 ; Debug chain 0236 ; -------------------------------------------------------------------------------------- 0236 0000 0004 | | .DBGLEN 0x0000,0x0004 0238 0155 0167 | U g| .DBGLNO 0x0155,0x0167,0x0168,0x016c 023c ; -------------------------------------------------------------------------------------- 023c ; Debug chain 023c ; -------------------------------------------------------------------------------------- 023c 0002 0001 | | .DBGLEN 0x0002,0x0001 023e 0173 0181 | s | .DBGLNO 0x0173,0x0181,0x0189 0241 ; -------------------------------------------------------------------------------------- 0241 ; Debug chain 0241 ; -------------------------------------------------------------------------------------- 0241 0002 0001 | | .DBGLEN 0x0002,0x0001 0243 019b 01ad | | .DBGLNO 0x019b,0x01ad,0x01b5 0246 0000 0000 | | .BLANK 0000[0x1ba]