|
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_191cd7
└─⟦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 01f0 | | .CONST 0x01f0 ; 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 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0011 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0015 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0017 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0019 029a 0173 | s| Declare_Subprogram INIT_0170,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 003f | ? | .CONST 0x003f ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0007 | | .CONST 0x0007 ; Number of locals 0033 INIT_0030: 0033 e5fc | | Load 0x2,-0x4 0034 01da | | Execute Vector,Bounds 0035 e002 | | Load 0x0,0x2 0036 035b | [ | Declare_Type Array,Constrained 0037 a003 | | Store_Unchecked 0x0,0x3 0038 00c6 | | Action Check_Subprogram_Elaborated 0039 e5fe | | Load 0x2,-0x2 003a 00d9 | | Load_Top At_Offset_1 003b e004 | | Load 0x0,0x4 003c e005 | | Load 0x0,0x5 003d 4807 |H | Short_Literal 0x7 003e 0007 | | Action Break_Optional 003f BODY_0030: 003f e5fe | | Load 0x2,-0x2 0040 012c | , | Execute Any,Size 0041 e006 | | Load 0x0,0x6 0042 012c | , | Execute Any,Size 0043 0270 | p | Execute Discrete,Divide 0044 e5fc | | Load 0x2,-0x4 0045 01db | | Execute Vector,Length 0046 027e | ~ | Execute Discrete,Not_Equal 0047 6801 |h | Jump_Zero 0x49 0048 08e0 | | Execute_Immediate Raise,0xe0 0049 e5fd | | Load 0x2,-0x3 004a 00d8 | | Load_Top At_Offset_0 004b e5fe | | Load 0x2,-0x2 004c 0260 | ` | Execute Discrete,In_Type 004d 7001 |p | Jump_Nonzero 0x4f 004e 0801 | | Execute_Immediate Raise,0x1 004f e403 | | Load 0x2,0x3 0050 e404 | | Load 0x2,0x4 0051 4805 |H | Short_Literal 0x5 0052 4802 |H | Short_Literal 0x2 0053 0099 | | Action Reference_Dynamic 0054 8003 | | Call 0x0,0x3 0055 e5fc | | Load 0x2,-0x4 0056 01d4 | | Execute Vector,Structure_Write 0057 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0067 | g | .CONST 0x0067 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0007 | | .CONST 0x0007 ; Number of locals 005b INIT_0058: 005b e5fc | | Load 0x2,-0x4 005c 01da | | Execute Vector,Bounds 005d e002 | | Load 0x0,0x2 005e 035b | [ | Declare_Type Array,Constrained 005f a003 | | Store_Unchecked 0x0,0x3 0060 00c6 | | Action Check_Subprogram_Elaborated 0061 e5fe | | Load 0x2,-0x2 0062 00d9 | | Load_Top At_Offset_1 0063 e007 | | Load 0x0,0x7 0064 e008 | | Load 0x0,0x8 0065 4807 |H | Short_Literal 0x7 0066 0007 | | Action Break_Optional 0067 BODY_0058: 0067 e5fe | | Load 0x2,-0x2 0068 012c | , | Execute Any,Size 0069 e006 | | Load 0x0,0x6 006a 012c | , | Execute Any,Size 006b 0270 | p | Execute Discrete,Divide 006c e5fc | | Load 0x2,-0x4 006d 01db | | Execute Vector,Length 006e 027e | ~ | Execute Discrete,Not_Equal 006f 6801 |h | Jump_Zero 0x71 0070 08e0 | | Execute_Immediate Raise,0xe0 0071 e5fd | | Load 0x2,-0x3 0072 e5fe | | Load 0x2,-0x2 0073 0119 | | Execute Any,Check_In_Formal_Type 0074 e403 | | Load 0x2,0x3 0075 e404 | | Load 0x2,0x4 0076 4805 |H | Short_Literal 0x5 0077 4802 |H | Short_Literal 0x2 0078 0099 | | Action Reference_Dynamic 0079 8003 | | Call 0x0,0x3 007a e5fc | | Load 0x2,-0x4 007b 01d4 | | Execute Vector,Structure_Write 007c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 00a2 | | .CONST 0x00a2 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0009 | | .CONST 0x0009 ; Number of locals 0083 INIT_0080: 0083 e5fa | | Load 0x2,-0x6 0084 01da | | Execute Vector,Bounds 0085 e002 | | Load 0x0,0x2 0086 035b | [ | Declare_Type Array,Constrained 0087 e5fb | | Load 0x2,-0x5 0088 01da | | Execute Vector,Bounds 0089 e5fd | | Load 0x2,-0x3 008a 1c05 | | Execute_Immediate Run_Utility,0x5 008b 00d0 | | Action Swap_Control 008c e5fd | | Load 0x2,-0x3 008d 1c05 | | Execute_Immediate Run_Utility,0x5 008e e5fd | | Load 0x2,-0x3 008f 1c04 | | Execute_Immediate Run_Utility,0x4 0090 00d0 | | Action Swap_Control 0091 e5fd | | Load 0x2,-0x3 0092 1c04 | | Execute_Immediate Run_Utility,0x4 0093 e5fe | | Load 0x2,-0x2 0094 035b | [ | Declare_Type Array,Constrained 0095 00d8 | | Load_Top At_Offset_0 0096 0337 | 7 | Declare_Variable Array 0097 e5fb | | Load 0x2,-0x5 0098 00d9 | | Load_Top At_Offset_1 0099 01d4 | | Execute Vector,Structure_Write 009a a003 | | Store_Unchecked 0x0,0x3 009b 00c6 | | Action Check_Subprogram_Elaborated 009c 00d9 | | Load_Top At_Offset_1 009d 00db | | Load_Top At_Offset_3 009e e009 | | Load 0x0,0x9 009f e00a | | Load 0x0,0xa 00a0 4809 |H | Short_Literal 0x9 00a1 0007 | | Action Break_Optional 00a2 BODY_0080: 00a2 e5fb | | Load 0x2,-0x5 00a3 01db | | Execute Vector,Length 00a4 e5fc | | Load 0x2,-0x4 00a5 012c | , | Execute Any,Size 00a6 0271 | q | Execute Discrete,Times 00a7 e006 | | Load 0x0,0x6 00a8 012c | , | Execute Any,Size 00a9 0270 | p | Execute Discrete,Divide 00aa e5fa | | Load 0x2,-0x6 00ab 01db | | Execute Vector,Length 00ac 027e | ~ | Execute Discrete,Not_Equal 00ad 6801 |h | Jump_Zero 0xaf 00ae 08e0 | | Execute_Immediate Raise,0xe0 00af e404 | | Load 0x2,0x4 00b0 e403 | | Load 0x2,0x3 00b1 01c3 | | Execute Vector,Check_In_Type 00b2 e405 | | Load 0x2,0x5 00b3 e406 | | Load 0x2,0x6 00b4 4807 |H | Short_Literal 0x7 00b5 4802 |H | Short_Literal 0x2 00b6 0099 | | Action Reference_Dynamic 00b7 8003 | | Call 0x0,0x3 00b8 e5fa | | Load 0x2,-0x6 00b9 01d4 | | Execute Vector,Structure_Write 00ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00e6 | | .CONST 0x00e6 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0009 | | .CONST 0x0009 ; Number of locals 00c3 INIT_00c0: 00c3 e5f9 | | Load 0x2,-0x7 00c4 01da | | Execute Vector,Bounds 00c5 e002 | | Load 0x0,0x2 00c6 035b | [ | Declare_Type Array,Constrained 00c7 4801 |H | Short_Literal 0x1 00c8 e5fa | | Load 0x2,-0x6 00c9 01a9 | | Execute Matrix,Reverse_Bounds 00ca e5fc | | Load 0x2,-0x4 00cb 1c04 | | Execute_Immediate Run_Utility,0x4 00cc 00d0 | | Action Swap_Control 00cd e5fc | | Load 0x2,-0x4 00ce 1c04 | | Execute_Immediate Run_Utility,0x4 00cf 4802 |H | Short_Literal 0x2 00d0 e5fa | | Load 0x2,-0x6 00d1 01a9 | | Execute Matrix,Reverse_Bounds 00d2 e5fd | | Load 0x2,-0x3 00d3 1c04 | | Execute_Immediate Run_Utility,0x4 00d4 00d0 | | Action Swap_Control 00d5 e5fd | | Load 0x2,-0x3 00d6 1c04 | | Execute_Immediate Run_Utility,0x4 00d7 e5fe | | Load 0x2,-0x2 00d8 035b | [ | Declare_Type Array,Constrained 00d9 00d8 | | Load_Top At_Offset_0 00da 0337 | 7 | Declare_Variable Array 00db e5fa | | Load 0x2,-0x6 00dc 00d9 | | Load_Top At_Offset_1 00dd 01a4 | | Execute Matrix,Structure_Write 00de a003 | | Store_Unchecked 0x0,0x3 00df 00c6 | | Action Check_Subprogram_Elaborated 00e0 00d9 | | Load_Top At_Offset_1 00e1 00db | | Load_Top At_Offset_3 00e2 e00b | | Load 0x0,0xb 00e3 e00c | | Load 0x0,0xc 00e4 4809 |H | Short_Literal 0x9 00e5 0007 | | Action Break_Optional 00e6 BODY_00c0: 00e6 4801 |H | Short_Literal 0x1 00e7 e5fa | | Load 0x2,-0x6 00e8 01ab | | Execute Matrix,Length 00e9 4802 |H | Short_Literal 0x2 00ea e5fa | | Load 0x2,-0x6 00eb 01ab | | Execute Matrix,Length 00ec 0271 | q | Execute Discrete,Times 00ed e5fb | | Load 0x2,-0x5 00ee 012c | , | Execute Any,Size 00ef 0271 | q | Execute Discrete,Times 00f0 e006 | | Load 0x0,0x6 00f1 012c | , | Execute Any,Size 00f2 0270 | p | Execute Discrete,Divide 00f3 e5f9 | | Load 0x2,-0x7 00f4 01db | | Execute Vector,Length 00f5 027e | ~ | Execute Discrete,Not_Equal 00f6 6801 |h | Jump_Zero 0xf8 00f7 08e0 | | Execute_Immediate Raise,0xe0 00f8 e404 | | Load 0x2,0x4 00f9 e403 | | Load 0x2,0x3 00fa 019b | | Execute Matrix,Check_In_Type 00fb e405 | | Load 0x2,0x5 00fc e406 | | Load 0x2,0x6 00fd 4807 |H | Short_Literal 0x7 00fe 4802 |H | Short_Literal 0x2 00ff 0099 | | Action Reference_Dynamic 0100 8003 | | Call 0x0,0x3 0101 e5f9 | | Load 0x2,-0x7 0102 01d4 | | Execute Vector,Structure_Write 0103 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 011c | | .CONST 0x011c ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0008 | | .CONST 0x0008 ; Number of locals 010b INIT_0108: 010b e5fd | | Load 0x2,-0x3 010c 01da | | Execute Vector,Bounds 010d e002 | | Load 0x0,0x2 010e 035b | [ | Declare_Type Array,Constrained 010f 00d8 | | Load_Top At_Offset_0 0110 0337 | 7 | Declare_Variable Array 0111 e5fd | | Load 0x2,-0x3 0112 00d9 | | Load_Top At_Offset_1 0113 01d4 | | Execute Vector,Structure_Write 0114 a003 | | Store_Unchecked 0x0,0x3 0115 00c6 | | Action Check_Subprogram_Elaborated 0116 00d9 | | Load_Top At_Offset_1 0117 e5fe | | Load 0x2,-0x2 0118 e00d | | Load 0x0,0xd 0119 e00e | | Load 0x0,0xe 011a 4808 |H | Short_Literal 0x8 011b 0007 | | Action Break_Optional 011c BODY_0108: 011c e5fe | | Load 0x2,-0x2 011d 012c | , | Execute Any,Size 011e e006 | | Load 0x0,0x6 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 e403 | | Load 0x2,0x3 0127 e404 | | Load 0x2,0x4 0128 e405 | | Load 0x2,0x5 0129 4806 |H | Short_Literal 0x6 012a 4802 |H | Short_Literal 0x2 012b 0099 | | Action Reference_Dynamic 012c 8003 | | Call 0x0,0x3 012d c5fc | | Store 0x2,-0x4 012e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0144 | D | .CONST 0x0144 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0008 | | .CONST 0x0008 ; Number of locals 0133 INIT_0130: 0133 e5fd | | Load 0x2,-0x3 0134 01da | | Execute Vector,Bounds 0135 e002 | | Load 0x0,0x2 0136 035b | [ | Declare_Type Array,Constrained 0137 00d8 | | Load_Top At_Offset_0 0138 0337 | 7 | Declare_Variable Array 0139 e5fd | | Load 0x2,-0x3 013a 00d9 | | Load_Top At_Offset_1 013b 01d4 | | Execute Vector,Structure_Write 013c a003 | | Store_Unchecked 0x0,0x3 013d 00c6 | | Action Check_Subprogram_Elaborated 013e 00d9 | | Load_Top At_Offset_1 013f e5fe | | Load 0x2,-0x2 0140 e00f | | Load 0x0,0xf 0141 e010 | | Load 0x0,0x10 0142 4808 |H | Short_Literal 0x8 0143 0007 | | Action Break_Optional 0144 BODY_0130: 0144 e5fe | | Load 0x2,-0x2 0145 012c | , | Execute Any,Size 0146 e006 | | Load 0x0,0x6 0147 012c | , | Execute Any,Size 0148 0270 | p | Execute Discrete,Divide 0149 e5fd | | Load 0x2,-0x3 014a 01db | | Execute Vector,Length 014b 027e | ~ | Execute Discrete,Not_Equal 014c 6801 |h | Jump_Zero 0x14e 014d 08e0 | | Execute_Immediate Raise,0xe0 014e e403 | | Load 0x2,0x3 014f e404 | | Load 0x2,0x4 0150 e405 | | Load 0x2,0x5 0151 4806 |H | Short_Literal 0x6 0152 4802 |H | Short_Literal 0x2 0153 0099 | | Action Reference_Dynamic 0154 8003 | | Call 0x0,0x3 0155 c5fc | | Store 0x2,-0x4 0156 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015d | ] | .CONST 0x015d ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 015d BODY_0158: 015d e5fb | | Load 0x2,-0x5 015e 01db | | Execute Vector,Length 015f e5fa | | Load 0x2,-0x6 0160 01db | | Execute Vector,Length 0161 e5fc | | Load 0x2,-0x4 0162 012c | , | Execute Any,Size 0163 0271 | q | Execute Discrete,Times 0164 e006 | | Load 0x0,0x6 0165 012c | , | Execute Any,Size 0166 0270 | p | Execute Discrete,Divide 0167 027e | ~ | Execute Discrete,Not_Equal 0168 6801 |h | Jump_Zero 0x16a 0169 08e0 | | Execute_Immediate Raise,0xe0 016a e5fa | | Load 0x2,-0x6 016b 01db | | Execute Vector,Length 016c 0c01 | | Execute_Immediate Greater_Equal,0x1 016d 6801 |h | Jump_Zero 0x16f 016e 8402 | | Call 0x2,0x2 016f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0175 | u | .CONST 0x0175 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0175 BODY_0170: 0175 e5fa | | Load 0x2,-0x6 0176 01db | | Execute Vector,Length 0177 4801 |H | Short_Literal 0x1 0178 e5f9 | | Load 0x2,-0x7 0179 01ab | | Execute Matrix,Length 017a 4802 |H | Short_Literal 0x2 017b e5f9 | | Load 0x2,-0x7 017c 01ab | | Execute Matrix,Length 017d 0271 | q | Execute Discrete,Times 017e e5fb | | Load 0x2,-0x5 017f 012c | , | Execute Any,Size 0180 0271 | q | Execute Discrete,Times 0181 e006 | | Load 0x0,0x6 0182 012c | , | Execute Any,Size 0183 0270 | p | Execute Discrete,Divide 0184 027e | ~ | Execute Discrete,Not_Equal 0185 6801 |h | Jump_Zero 0x187 0186 08e0 | | Execute_Immediate Raise,0xe0 0187 e5fa | | Load 0x2,-0x6 0188 01db | | Execute Vector,Length 0189 6801 |h | Jump_Zero 0x18b 018a 8402 | | Call 0x2,0x2 018b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01b2 | | .CONST 0x01b2 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0009 | | .CONST 0x0009 ; Number of locals 0193 INIT_0190: 0193 e5fb | | Load 0x2,-0x5 0194 01da | | Execute Vector,Bounds 0195 e002 | | Load 0x0,0x2 0196 035b | [ | Declare_Type Array,Constrained 0197 e5fa | | Load 0x2,-0x6 0198 01da | | Execute Vector,Bounds 0199 e5fd | | Load 0x2,-0x3 019a 1c05 | | Execute_Immediate Run_Utility,0x5 019b 00d0 | | Action Swap_Control 019c e5fd | | Load 0x2,-0x3 019d 1c05 | | Execute_Immediate Run_Utility,0x5 019e e5fd | | Load 0x2,-0x3 019f 1c04 | | Execute_Immediate Run_Utility,0x4 01a0 00d0 | | Action Swap_Control 01a1 e5fd | | Load 0x2,-0x3 01a2 1c04 | | Execute_Immediate Run_Utility,0x4 01a3 e5fe | | Load 0x2,-0x2 01a4 035b | [ | Declare_Type Array,Constrained 01a5 00d9 | | Load_Top At_Offset_1 01a6 0337 | 7 | Declare_Variable Array 01a7 e5fb | | Load 0x2,-0x5 01a8 00d9 | | Load_Top At_Offset_1 01a9 01d4 | | Execute Vector,Structure_Write 01aa a003 | | Store_Unchecked 0x0,0x3 01ab 00c6 | | Action Check_Subprogram_Elaborated 01ac 00da | | Load_Top At_Offset_2 01ad 00da | | Load_Top At_Offset_2 01ae e011 | | Load 0x0,0x11 01af e012 | | Load 0x0,0x12 01b0 4809 |H | Short_Literal 0x9 01b1 0007 | | Action Break_Optional 01b2 BODY_0190: 01b2 e604 | | Load 0x3,0x4 01b3 e605 | | Load 0x3,0x5 01b4 e606 | | Load 0x3,0x6 01b5 4807 |H | Short_Literal 0x7 01b6 4803 |H | Short_Literal 0x3 01b7 0099 | | Action Reference_Dynamic 01b8 8003 | | Call 0x0,0x3 01b9 e5fa | | Load 0x2,-0x6 01ba 01d4 | | Execute Vector,Structure_Write 01bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01e6 | | .CONST 0x01e6 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0009 | | .CONST 0x0009 ; Number of locals 01c3 INIT_01c0: 01c3 e5fa | | Load 0x2,-0x6 01c4 01da | | Execute Vector,Bounds 01c5 e002 | | Load 0x0,0x2 01c6 035b | [ | Declare_Type Array,Constrained 01c7 4801 |H | Short_Literal 0x1 01c8 e5f9 | | Load 0x2,-0x7 01c9 01a9 | | Execute Matrix,Reverse_Bounds 01ca e5fc | | Load 0x2,-0x4 01cb 1c04 | | Execute_Immediate Run_Utility,0x4 01cc 00d0 | | Action Swap_Control 01cd e5fc | | Load 0x2,-0x4 01ce 1c04 | | Execute_Immediate Run_Utility,0x4 01cf 4802 |H | Short_Literal 0x2 01d0 e5f9 | | Load 0x2,-0x7 01d1 01a9 | | Execute Matrix,Reverse_Bounds 01d2 e5fd | | Load 0x2,-0x3 01d3 1c04 | | Execute_Immediate Run_Utility,0x4 01d4 00d0 | | Action Swap_Control 01d5 e5fd | | Load 0x2,-0x3 01d6 1c04 | | Execute_Immediate Run_Utility,0x4 01d7 e5fe | | Load 0x2,-0x2 01d8 035b | [ | Declare_Type Array,Constrained 01d9 00d9 | | Load_Top At_Offset_1 01da 0337 | 7 | Declare_Variable Array 01db e5fa | | Load 0x2,-0x6 01dc 00d9 | | Load_Top At_Offset_1 01dd 01d4 | | Execute Vector,Structure_Write 01de a003 | | Store_Unchecked 0x0,0x3 01df 00c6 | | Action Check_Subprogram_Elaborated 01e0 00da | | Load_Top At_Offset_2 01e1 00da | | Load_Top At_Offset_2 01e2 e013 | | Load 0x0,0x13 01e3 e014 | | Load 0x0,0x14 01e4 4809 |H | Short_Literal 0x9 01e5 0007 | | Action Break_Optional 01e6 BODY_01c0: 01e6 e604 | | Load 0x3,0x4 01e7 e605 | | Load 0x3,0x5 01e8 e606 | | Load 0x3,0x6 01e9 4807 |H | Short_Literal 0x7 01ea 4803 |H | Short_Literal 0x3 01eb 0099 | | Action Reference_Dynamic 01ec 8003 | | Call 0x0,0x3 01ed e5f9 | | Load 0x2,-0x7 01ee 01a4 | | Execute Matrix,Structure_Write 01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug Table 01f0 ; -------------------------------------------------------------------------------------- 01f0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4934,0x0000,0x0001,0x000c 01f6 000b 0226 | &| .DBG4T 0x000b,0x0226,0x8000,0x0000 01fa 001c 0230 | 0| .DBG4T 0x001c,0x0230,0x8000,0x0000 01fe 0033 023a | 3 :| .DBG4T 0x0033,0x023a,0x2801,0x0002 0202 005b 0241 | [ A| .DBG4T 0x005b,0x0241,0x2801,0x0002 0206 0083 0248 | H| .DBG4T 0x0083,0x0248,0x2801,0x0002 020a 00c3 0251 | Q| .DBG4T 0x00c3,0x0251,0x2801,0x0002 020e 010b 025a | Z| .DBG4T 0x010b,0x025a,0x2801,0x0002 0212 0133 0262 | 3 b| .DBG4T 0x0133,0x0262,0x2801,0x0002 0216 015b 026a | [ j| .DBG4T 0x015b,0x026a,0x2801,0x0002 021a 0173 0270 | s p| .DBG4T 0x0173,0x0270,0x2801,0x0002 021e 0193 0276 | v| .DBG4T 0x0193,0x0276,0x0804,0x0002 0222 01c3 027d | }| .DBG4T 0x01c3,0x027d,0x0804,0x0002 0226 ; -------------------------------------------------------------------------------------- 0226 ; Debug chain 0226 ; -------------------------------------------------------------------------------------- 0226 0008 0000 | | .DBGLEN 0x0008,0x0000 0228 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug chain 0230 ; -------------------------------------------------------------------------------------- 0230 0008 0000 | | .DBGLEN 0x0008,0x0000 0232 001c 001e | | .DBGLNO 0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a 023a ; -------------------------------------------------------------------------------------- 023a ; Debug chain 023a ; -------------------------------------------------------------------------------------- 023a 0002 0003 | | .DBGLEN 0x0002,0x0003 023c 0033 0037 | 3 7| .DBGLNO 0x0033,0x0037,0x003f,0x0048,0x0049 0241 ; -------------------------------------------------------------------------------------- 0241 ; Debug chain 0241 ; -------------------------------------------------------------------------------------- 0241 0002 0003 | | .DBGLEN 0x0002,0x0003 0243 005b 005f | [ _| .DBGLNO 0x005b,0x005f,0x0067,0x0070,0x0071 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug chain 0248 ; -------------------------------------------------------------------------------------- 0248 0004 0003 | | .DBGLEN 0x0004,0x0003 024a 0083 0087 | | .DBGLNO 0x0083,0x0087,0x0095,0x009a,0x00a2,0x00ae,0x00af 0251 ; -------------------------------------------------------------------------------------- 0251 ; Debug chain 0251 ; -------------------------------------------------------------------------------------- 0251 0004 0003 | | .DBGLEN 0x0004,0x0003 0253 00c3 00c7 | | .DBGLNO 0x00c3,0x00c7,0x00d9,0x00de,0x00e6,0x00f7,0x00f8 025a ; -------------------------------------------------------------------------------------- 025a ; Debug chain 025a ; -------------------------------------------------------------------------------------- 025a 0003 0003 | | .DBGLEN 0x0003,0x0003 025c 010b 010f | | .DBGLNO 0x010b,0x010f,0x0114,0x011c,0x0125,0x0126 0262 ; -------------------------------------------------------------------------------------- 0262 ; Debug chain 0262 ; -------------------------------------------------------------------------------------- 0262 0003 0003 | | .DBGLEN 0x0003,0x0003 0264 0133 0137 | 3 7| .DBGLNO 0x0133,0x0137,0x013c,0x0144,0x014d,0x014e 026a ; -------------------------------------------------------------------------------------- 026a ; Debug chain 026a ; -------------------------------------------------------------------------------------- 026a 0000 0004 | | .DBGLEN 0x0000,0x0004 026c 015d 0169 | ] i| .DBGLNO 0x015d,0x0169,0x016a,0x016e 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug chain 0270 ; -------------------------------------------------------------------------------------- 0270 0000 0004 | | .DBGLEN 0x0000,0x0004 0272 0175 0186 | u | .DBGLNO 0x0175,0x0186,0x0187,0x018a 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug chain 0276 ; -------------------------------------------------------------------------------------- 0276 0004 0001 | | .DBGLEN 0x0004,0x0001 0278 0193 0197 | | .DBGLNO 0x0193,0x0197,0x01a5,0x01aa,0x01b2 027d ; -------------------------------------------------------------------------------------- 027d ; Debug chain 027d ; -------------------------------------------------------------------------------------- 027d 0004 0001 | | .DBGLEN 0x0004,0x0001 027f 01c3 01c7 | | .DBGLNO 0x01c3,0x01c7,0x01d9,0x01de,0x01e6 0284 0000 0000 | | .BLANK 0000[0x17c]