|
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 0220 | | .CONST 0x0220 ; 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 0075 | u | .CONST 0x0075 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0031 | 1 | .CONST 0x0031 ; Number of locals 000b INIT_0008: 000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0011 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0013 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0015 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0017 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0019 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 001b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001d 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 001f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0021 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0022 0129 | ) | Execute Any,Make_Visible 0023 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0024 0129 | ) | Execute Any,Make_Visible 0025 00bf | | Action Accept_Activation 0026 e001 | | Load 0x0,0x1 0027 e002 | | Load 0x0,0x2 0028 00e6 | | Load_Encached Float_Cache 0029 e003 | | Load 0x0,0x3 002a 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 002b 0387 | | Declare_Variable Package 002c 00d8 | | Load_Top At_Offset_0 002d 020f | | Execute Module,Activate 002e e004 | | Load 0x0,0x4 002f e005 | | Load 0x0,0x5 0030 00e2 | | Load_Encached Integer_Cache 0031 e003 | | Load 0x0,0x3 0032 1b78 | x | Execute Package,Field_Read,Field_Number 0x78 0033 0387 | | Declare_Variable Package 0034 00d8 | | Load_Top At_Offset_0 0035 020f | | Execute Module,Activate 0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0037 00c7 | | Action Elaborate_Subprogram 0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0039 00c7 | | Action Elaborate_Subprogram 003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003b 00c7 | | Action Elaborate_Subprogram 003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003d 00c7 | | Action Elaborate_Subprogram 003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003f 00c7 | | Action Elaborate_Subprogram 0040 e006 | | Load 0x0,0x6 0041 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address 0042 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0043 00c7 | | Action Elaborate_Subprogram 0044 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 0046 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0047 00c6 | | Action Check_Subprogram_Elaborated 0048 00e6 | | Load_Encached Float_Cache 0049 584e |XN | Indirect_Literal Float,0x98,0.0 004a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 004b 00e0 | | Load_Encached Standard_Cache 004c 1941 | A | Execute Package,Field_Reference,Field_Number 0x41 004d 00e0 | | Load_Encached Standard_Cache 004e 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 004f 00e0 | | Load_Encached Standard_Cache 0050 1943 | C | Execute Package,Field_Reference,Field_Number 0x43 0051 00e0 | | Load_Encached Standard_Cache 0052 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0053 e007 | | Load 0x0,0x7 0054 e008 | | Load 0x0,0x8 0055 4800 |H | Short_Literal 0x0 0056 0007 | | Action Break_Optional 0057 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0058 00c6 | | Action Check_Subprogram_Elaborated 0059 00e2 | | Load_Encached Integer_Cache 005a 4800 |H | Short_Literal 0x0 005b e21b | | Load 0x1,0x1b 005c 1916 | | Execute Package,Field_Reference,Field_Number 0x16 005d 00e0 | | Load_Encached Standard_Cache 005e 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 005f 00e0 | | Load_Encached Standard_Cache 0060 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 0061 00e0 | | Load_Encached Standard_Cache 0062 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33 0063 00e0 | | Load_Encached Standard_Cache 0064 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0065 e009 | | Load 0x0,0x9 0066 e00a | | Load 0x0,0xa 0067 4800 |H | Short_Literal 0x0 0068 0007 | | Action Break_Optional 0069 1d13 | | Execute_Immediate Reference_Lex_1,0x13 006a 00c7 | | Action Elaborate_Subprogram 006b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 006c 00c7 | | Action Elaborate_Subprogram 006d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 006e 00c7 | | Action Elaborate_Subprogram 006f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0070 00c7 | | Action Elaborate_Subprogram 0071 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0072 00c7 | | Action Elaborate_Subprogram 0073 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0074 00c7 | | Action Elaborate_Subprogram 0075 BODY_0008: 0075 00bc | | Action Signal_Activated 0076 00bb | | Action Signal_Completion 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0091 | | .CONST 0x0091 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b 4801 |H | Short_Literal 0x1 007c 00db | | Load_Top At_Offset_3 007d 00e9 | | Load_Encached String_Cache 007e 035b | [ | Declare_Type Array,Constrained 007f 0337 | 7 | Declare_Variable Array 0080 4801 |H | Short_Literal 0x1 0081 e5ff | | Load 0x2,-0x1 0082 00e9 | | Load_Encached String_Cache 0083 035b | [ | Declare_Type Array,Constrained 0084 0337 | 7 | Declare_Variable Array 0085 00d8 | | Load_Top At_Offset_0 0086 01dc | | Execute Vector,Last 0087 4801 |H | Short_Literal 0x1 0088 0263 | c | Execute Discrete,Above_Bound 0089 7005 |p | Jump_Nonzero 0x8f 008a e5fe | | Load 0x2,-0x2 008b 00d9 | | Load_Top At_Offset_1 008c e403 | | Load 0x2,0x3 008d 01d6 | | Execute Vector,Field_Write 008e 3ffb |? | Loop_Increasing 0x8a 008f 00d9 | | Load_Top At_Offset_1 0090 01d4 | | Execute Vector,Structure_Write 0091 BODY_0078: 0091 00d8 | | Load_Top At_Offset_0 0092 00e9 | | Load_Encached String_Cache 0093 01c6 | | Execute Vector,Convert_To_Formal 0094 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 0000 0000 | | .DBL 0.0 009a 0000 0000 | | 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00c3 | | .CONST 0x00c3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 4801 |H | Short_Literal 0x1 00a4 00db | | Load_Top At_Offset_3 00a5 01db | | Execute Vector,Length 00a6 e5fe | | Load 0x2,-0x2 00a7 0273 | s | Execute Discrete,Plus 00a8 00d8 | | Load_Top At_Offset_0 00a9 00e2 | | Load_Encached Integer_Cache 00aa 0260 | ` | Execute Discrete,In_Type 00ab 7001 |p | Jump_Nonzero 0xad 00ac 0801 | | Execute_Immediate Raise,0x1 00ad 00e9 | | Load_Encached String_Cache 00ae 035b | [ | Declare_Type Array,Constrained 00af 0337 | 7 | Declare_Variable Array 00b0 00db | | Load_Top At_Offset_3 00b1 4801 |H | Short_Literal 0x1 00b2 e5fe | | Load 0x2,-0x2 00b3 00e9 | | Load_Encached String_Cache 00b4 035b | [ | Declare_Type Array,Constrained 00b5 0337 | 7 | Declare_Variable Array 00b6 00d8 | | Load_Top At_Offset_0 00b7 01dc | | Execute Vector,Last 00b8 4801 |H | Short_Literal 0x1 00b9 0263 | c | Execute Discrete,Above_Bound 00ba 7005 |p | Jump_Nonzero 0xc0 00bb 4820 |H | Short_Literal 0x20 00bc 00d9 | | Load_Top At_Offset_1 00bd e404 | | Load 0x2,0x4 00be 01d6 | | Execute Vector,Field_Write 00bf 3ffb |? | Loop_Increasing 0xbb 00c0 01cc | | Execute Vector,Catenate 00c1 00d9 | | Load_Top At_Offset_1 00c2 01d4 | | Execute Vector,Structure_Write 00c3 BODY_00a0: 00c3 4801 |H | Short_Literal 0x1 00c4 e5fe | | Load 0x2,-0x2 00c5 00da | | Load_Top At_Offset_2 00c6 01cf | | Execute Vector,Slice_Read 00c7 00e9 | | Load_Encached String_Cache 00c8 01c6 | | Execute Vector,Convert_To_Formal 00c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00f3 | | .CONST 0x00f3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 4801 |H | Short_Literal 0x1 00d4 00db | | Load_Top At_Offset_3 00d5 01db | | Execute Vector,Length 00d6 e5fe | | Load 0x2,-0x2 00d7 0273 | s | Execute Discrete,Plus 00d8 00d8 | | Load_Top At_Offset_0 00d9 00e2 | | Load_Encached Integer_Cache 00da 0260 | ` | Execute Discrete,In_Type 00db 7001 |p | Jump_Nonzero 0xdd 00dc 0801 | | Execute_Immediate Raise,0x1 00dd 00e9 | | Load_Encached String_Cache 00de 035b | [ | Declare_Type Array,Constrained 00df 0337 | 7 | Declare_Variable Array 00e0 4801 |H | Short_Literal 0x1 00e1 e5fe | | Load 0x2,-0x2 00e2 00e9 | | Load_Encached String_Cache 00e3 035b | [ | Declare_Type Array,Constrained 00e4 0337 | 7 | Declare_Variable Array 00e5 00d8 | | Load_Top At_Offset_0 00e6 01dc | | Execute Vector,Last 00e7 4801 |H | Short_Literal 0x1 00e8 0263 | c | Execute Discrete,Above_Bound 00e9 7005 |p | Jump_Nonzero 0xef 00ea 4820 |H | Short_Literal 0x20 00eb 00d9 | | Load_Top At_Offset_1 00ec e403 | | Load 0x2,0x3 00ed 01d6 | | Execute Vector,Field_Write 00ee 3ffb |? | Loop_Increasing 0xea 00ef e5ff | | Load 0x2,-0x1 00f0 01cc | | Execute Vector,Catenate 00f1 00d9 | | Load_Top At_Offset_1 00f2 01d4 | | Execute Vector,Structure_Write 00f3 BODY_00d0: 00f3 00d8 | | Load_Top At_Offset_0 00f4 01dc | | Execute Vector,Last 00f5 e5fe | | Load 0x2,-0x2 00f6 0272 | r | Execute Discrete,Minus 00f7 0a01 | | Execute_Immediate Plus,0x1 00f8 00d8 | | Load_Top At_Offset_0 00f9 00e2 | | Load_Encached Integer_Cache 00fa 0260 | ` | Execute Discrete,In_Type 00fb 7001 |p | Jump_Nonzero 0xfd 00fc 0801 | | Execute_Immediate Raise,0x1 00fd 00d9 | | Load_Top At_Offset_1 00fe 01dc | | Execute Vector,Last 00ff 00da | | Load_Top At_Offset_2 0100 01cf | | Execute Vector,Slice_Read 0101 00e9 | | Load_Encached String_Cache 0102 01c6 | | Execute Vector,Convert_To_Formal 0103 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010f | | .CONST 0x010f ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b 4820 |H | Short_Literal 0x20 010c 00db | | Load_Top At_Offset_3 010d e00b | | Load 0x0,0xb 010e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 010f BODY_0108: 010f e5fe | | Load 0x2,-0x2 0110 4820 |H | Short_Literal 0x20 0111 e5fe | | Load 0x2,-0x2 0112 00db | | Load_Top At_Offset_3 0113 01db | | Execute Vector,Length 0114 0272 | r | Execute Discrete,Minus 0115 09ff | | Execute_Immediate Binary_Scale,-0x1 0116 00d8 | | Load_Top At_Offset_0 0117 00e2 | | Load_Encached Integer_Cache 0118 0260 | ` | Execute Discrete,In_Type 0119 7001 |p | Jump_Nonzero 0x11b 011a 0801 | | Execute_Immediate Raise,0x1 011b 820d | | Call 0x1,0xd 011c 00da | | Load_Top At_Offset_2 011d 01cc | | Execute Vector,Catenate 011e 820e | | Call 0x1,0xe 011f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e00b | | Load 0x0,0xb 0125 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c e228 | ( | Load 0x1,0x28 012d e229 | ) | Load 0x1,0x29 012e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 012f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0130 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0131 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0132 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0133 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0134 821c | | Call 0x1,0x1c 0135 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c e21e | | Load 0x1,0x1e 013d e21f | | Load 0x1,0x1f 013e 1d20 | | Execute_Immediate Reference_Lex_1,0x20 013f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0140 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0141 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0142 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0143 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0144 821c | | Call 0x1,0x1c 0145 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0150 | P | .CONST 0x0150 ; Address of begin 0149 0166 | f | .CONST 0x0166 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b 4801 |H | Short_Literal 0x1 014c e5fe | | Load 0x2,-0x2 014d 00e9 | | Load_Encached String_Cache 014e 035b | [ | Declare_Type Array,Constrained 014f 0337 | 7 | Declare_Variable Array 0150 BODY_0148: 0150 e5fb | | Load 0x2,-0x5 0151 6809 |h | Jump_Zero 0x15b 0152 00db | | Load_Top At_Offset_3 0153 023e | > | Execute Float,Absolute_Value 0154 581b |X | Indirect_Literal Float,0x170,8.881784197001252e-16 0155 0242 | B | Execute Float,Less_Equal 0156 6804 |h | Jump_Zero 0x15b 0157 4820 |H | Short_Literal 0x20 0158 e5fe | | Load 0x2,-0x2 0159 820d | | Call 0x1,0xd 015a 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 015b 00d8 | | Load_Top At_Offset_0 015c e5fc | | Load 0x2,-0x4 015d e5fd | | Load 0x2,-0x3 015e e5ff | | Load 0x2,-0x1 015f e21a | | Load 0x1,0x1a 0160 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0161 00d1 | | Pop_Control Pop_Count_1 0162 00d8 | | Load_Top At_Offset_0 0163 00e9 | | Load_Encached String_Cache 0164 01c6 | | Execute Vector,Convert_To_Formal 0165 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0166 TRAP_0148: 0166 0007 | | Action Break_Optional 0167 4820 |H | Short_Literal 0x20 0168 482a |H* | Short_Literal 0x2a 0169 e5fe | | Load 0x2,-0x2 016a 0aff | | Execute_Immediate Plus,-0x1 016b 820d | | Call 0x1,0xd 016c 01ca | | Execute Vector,Prepend 016d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 016e 0000 0000 | | .XXX[0x2] 0170 3cd0 0000 |< | .DBL 8.881784197001252e-16 0172 0000 0000 | | 0174 0000 0000 | | .BLANK 0000[0x4] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0180 | | .CONST 0x0180 ; Address of begin 0179 0193 | | .CONST 0x0193 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 4801 |H | Short_Literal 0x1 017c e5fe | | Load 0x2,-0x2 017d 00e9 | | Load_Encached String_Cache 017e 035b | [ | Declare_Type Array,Constrained 017f 0337 | 7 | Declare_Variable Array 0180 BODY_0178: 0180 e5fc | | Load 0x2,-0x4 0181 6806 |h | Jump_Zero 0x188 0182 00db | | Load_Top At_Offset_3 0183 7004 |p | Jump_Nonzero 0x188 0184 4820 |H | Short_Literal 0x20 0185 e5fe | | Load 0x2,-0x2 0186 820d | | Call 0x1,0xd 0187 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0188 00d8 | | Load_Top At_Offset_0 0189 e21b | | Load 0x1,0x1b 018a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 018b e5ff | | Load 0x2,-0x1 018c e21b | | Load 0x1,0x1b 018d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 018e 00d1 | | Pop_Control Pop_Count_1 018f 00d8 | | Load_Top At_Offset_0 0190 00e9 | | Load_Encached String_Cache 0191 01c6 | | Execute Vector,Convert_To_Formal 0192 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0193 TRAP_0178: 0193 0007 | | Action Break_Optional 0194 482a |H* | Short_Literal 0x2a 0195 e5fe | | Load 0x2,-0x2 0196 820d | | Call 0x1,0xd 0197 00da | | Load_Top At_Offset_2 0198 01d4 | | Execute Vector,Structure_Write 0199 e5fd | | Load 0x2,-0x3 019a 6835 |h5 | Jump_Zero 0x1d0 019b e5ff | | Load 0x2,-0x1 019c 6037 |`7 | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x000f4240} 019d 027d | } | Execute Discrete,Greater 019e 6817 |h | Jump_Zero 0x1b6 019f 00d9 | | Load_Top At_Offset_1 01a0 4801 |H | Short_Literal 0x1 01a1 e5fe | | Load 0x2,-0x2 01a2 0aff | | Execute_Immediate Plus,-0x1 01a3 00da | | Load_Top At_Offset_2 01a4 035b | [ | Declare_Type Array,Constrained 01a5 00d0 | | Action Swap_Control 01a6 01cd | | Execute Vector,Slice_Reference 01a7 00d8 | | Load_Top At_Offset_0 01a8 e21b | | Load 0x1,0x1b 01a9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01aa e5ff | | Load 0x2,-0x1 01ab 6028 |`( | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x000f4240} 01ac 0270 | p | Execute Discrete,Divide 01ad e21b | | Load 0x1,0x1b 01ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01af 00d2 | | Pop_Control Pop_Count_2 01b0 484d |HM | Short_Literal 0x4d 01b1 00da | | Load_Top At_Offset_2 01b2 01dc | | Execute Vector,Last 01b3 00db | | Load_Top At_Offset_3 01b4 01d6 | | Execute Vector,Field_Write 01b5 781a |x | Jump 0x1d0 01b6 e5ff | | Load 0x2,-0x1 01b7 4be8 |K | Short_Literal 0x3e8 01b8 027d | } | Execute Discrete,Greater 01b9 6816 |h | Jump_Zero 0x1d0 01ba 00d9 | | Load_Top At_Offset_1 01bb 4801 |H | Short_Literal 0x1 01bc e5fe | | Load 0x2,-0x2 01bd 0aff | | Execute_Immediate Plus,-0x1 01be 00da | | Load_Top At_Offset_2 01bf 035b | [ | Declare_Type Array,Constrained 01c0 00d0 | | Action Swap_Control 01c1 01cd | | Execute Vector,Slice_Reference 01c2 00d8 | | Load_Top At_Offset_0 01c3 e21b | | Load 0x1,0x1b 01c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01c5 e5ff | | Load 0x2,-0x1 01c6 4be8 |K | Short_Literal 0x3e8 01c7 0270 | p | Execute Discrete,Divide 01c8 e21b | | Load 0x1,0x1b 01c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ca 00d2 | | Pop_Control Pop_Count_2 01cb 484b |HK | Short_Literal 0x4b 01cc 00da | | Load_Top At_Offset_2 01cd 01dc | | Execute Vector,Last 01ce 00db | | Load_Top At_Offset_3 01cf 01d6 | | Execute Vector,Field_Write 01d0 00d9 | | Load_Top At_Offset_1 01d1 00e9 | | Load_Encached String_Cache 01d2 01c6 | | Execute Vector,Convert_To_Formal 01d3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01d4 0000 0000 | | .LITERAL {0x00000000, 0x000f4240} 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc e003 | | Load 0x0,0x3 01dd 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 01de e003 | | Load 0x0,0x3 01df 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00db | | Load_Top At_Offset_3 01ec 00db | | Load_Top At_Offset_3 01ed e00c | | Load 0x0,0xc 01ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f5 | | .CONST 0x01f5 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 00e2 | | Load_Encached Integer_Cache 01f4 00e2 | | Load_Encached Integer_Cache 01f5 BODY_01f0: 01f5 00e4 | | Load_Encached Positive_Cache 01f6 e21b | | Load 0x1,0x1b 01f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f8 e5ff | | Load 0x2,-0x1 01f9 e21b | | Load 0x1,0x1b 01fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01fb 005b | [ | Store_Top Discrete,At_Offset_3 01fc 0059 | Y | Store_Top Discrete,At_Offset_1 01fd 00d8 | | Load_Top At_Offset_0 01fe 0a01 | | Execute_Immediate Plus,0x1 01ff e5ff | | Load 0x2,-0x1 0200 01d7 | | Execute Vector,Field_Read 0201 00d8 | | Load_Top At_Offset_0 0202 0d45 | E | Execute_Immediate Less,0x45 0203 7010 |p | Jump_Nonzero 0x214 0204 00d8 | | Load_Top At_Offset_0 0205 0c46 | F | Execute_Immediate Greater_Equal,0x46 0206 700a |p | Jump_Nonzero 0x211 0207 00d1 | | Pop_Control Pop_Count_1 0208 00e4 | | Load_Encached Positive_Cache 0209 e21a | | Load 0x1,0x1a 020a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020b e5ff | | Load 0x2,-0x1 020c e21a | | Load 0x1,0x1a 020d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 020e c5fe | | Store 0x2,-0x2 020f c5fd | | Store 0x2,-0x3 0210 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0211 0f65 | e | Execute_Immediate Equal,0x65 0212 77f5 |w | Jump_Nonzero 0x208 0213 7803 |x | Jump 0x217 0214 0f2e | . | Execute_Immediate Equal,0x2e 0215 77f2 |w | Jump_Nonzero 0x208 0216 7800 |x | Jump 0x217 0217 00d9 | | Load_Top At_Offset_1 0218 0237 | 7 | Execute Float,Convert_From_Discrete 0219 a5fe | | Store_Unchecked 0x2,-0x2 021a 00d8 | | Load_Top At_Offset_0 021b a5fd | | Store_Unchecked 0x2,-0x3 021c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 0001 | | .DEBUG4 0x0004,0x0001,0x715f,0x0000,0x0001,0x000e 0226 000b 025e | ^| .DBG4T 0x000b,0x025e,0x0000,0x0000 022a 0026 026d | & m| .DBG4T 0x0026,0x026d,0x0000,0x8000 022e 007b 0293 | { | .DBG4T 0x007b,0x0293,0x0002,0x0000 0232 00a3 0297 | | .DBG4T 0x00a3,0x0297,0x0002,0x0000 0236 00d3 029b | | .DBG4T 0x00d3,0x029b,0x0002,0x0000 023a 010b 029f | | .DBG4T 0x010b,0x029f,0x0002,0x0000 023e 0123 02a3 | # | .DBG4T 0x0123,0x02a3,0x0002,0x0000 0242 012b 02a6 | + | .DBG4T 0x012b,0x02a6,0x0002,0x0000 0246 013b 02a9 | ; | .DBG4T 0x013b,0x02a9,0x0002,0x0000 024a 014b 02ac | K | .DBG4T 0x014b,0x02ac,0x0002,0x0000 024e 017b 02b4 | { | .DBG4T 0x017b,0x02b4,0x0002,0x0000 0252 01db 02c4 | | .DBG4T 0x01db,0x02c4,0x0002,0x0000 0256 01eb 02c8 | | .DBG4T 0x01eb,0x02c8,0x0001,0x0000 025a 01f3 02cb | | .DBG4T 0x01f3,0x02cb,0x0001,0x0000 025e ; -------------------------------------------------------------------------------------- 025e ; Debug chain 025e ; -------------------------------------------------------------------------------------- 025e 000d 0000 | | .DBGLEN 0x000d,0x0000 0260 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023 026d ; -------------------------------------------------------------------------------------- 026d ; Debug chain 026d ; -------------------------------------------------------------------------------------- 026d 0012 0000 | | .DBGLEN 0x0012,0x0000 026f 0026 002e | & .| .DBGLNO 0x0026,0x002e,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0057,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073 0281 0002 0003 | | .XXX[0x12] 0283 0004 0005 | | 0285 0006 0007 | | 0287 0008 0009 | | 0289 000a 000b | | 028b 000c 000d | | 028d 000e 000f | | 028f 0010 0011 | | 0291 0012 0013 | | 0293 ; -------------------------------------------------------------------------------------- 0293 ; Debug chain 0293 ; -------------------------------------------------------------------------------------- 0293 0001 0001 | | .DBGLEN 0x0001,0x0001 0295 007b 0091 | { | .DBGLNO 0x007b,0x0091 0297 ; -------------------------------------------------------------------------------------- 0297 ; Debug chain 0297 ; -------------------------------------------------------------------------------------- 0297 0001 0001 | | .DBGLEN 0x0001,0x0001 0299 00a3 00c3 | | .DBGLNO 0x00a3,0x00c3 029b ; -------------------------------------------------------------------------------------- 029b ; Debug chain 029b ; -------------------------------------------------------------------------------------- 029b 0001 0001 | | .DBGLEN 0x0001,0x0001 029d 00d3 00f3 | | .DBGLNO 0x00d3,0x00f3 029f ; -------------------------------------------------------------------------------------- 029f ; Debug chain 029f ; -------------------------------------------------------------------------------------- 029f 0001 0001 | | .DBGLEN 0x0001,0x0001 02a1 010b 010f | | .DBGLNO 0x010b,0x010f 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; Debug chain 02a3 ; -------------------------------------------------------------------------------------- 02a3 0000 0001 | | .DBGLEN 0x0000,0x0001 02a5 0123 | # | .DBGLNO 0x0123 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 0000 0001 | | .DBGLEN 0x0000,0x0001 02a8 012b | + | .DBGLNO 0x012b 02a9 ; -------------------------------------------------------------------------------------- 02a9 ; Debug chain 02a9 ; -------------------------------------------------------------------------------------- 02a9 0000 0001 | | .DBGLEN 0x0000,0x0001 02ab 013b | ; | .DBGLNO 0x013b 02ac ; -------------------------------------------------------------------------------------- 02ac ; Debug chain 02ac ; -------------------------------------------------------------------------------------- 02ac 0001 0005 | | .DBGLEN 0x0001,0x0005 02ae 014b 0150 | K P| .DBGLNO 0x014b,0x0150,0x0157,0x015b,0x0162,0x0167 02b4 ; -------------------------------------------------------------------------------------- 02b4 ; Debug chain 02b4 ; -------------------------------------------------------------------------------------- 02b4 0001 000d | | .DBGLEN 0x0001,0x000d 02b6 017b 0180 | { | .DBGLNO 0x017b,0x0180,0x0184,0x0188,0x018f,0x0194,0x0199,0x019b,0x019f,0x01b0,0x01b6,0x01ba,0x01cb,0x01d0 02c4 ; -------------------------------------------------------------------------------------- 02c4 ; Debug chain 02c4 ; -------------------------------------------------------------------------------------- 02c4 0000 0002 | | .DBGLEN 0x0000,0x0002 02c6 01db 01de | | .DBGLNO 0x01db,0x01de 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug chain 02c8 ; -------------------------------------------------------------------------------------- 02c8 0000 0001 | | .DBGLEN 0x0000,0x0001 02ca 01eb | | .DBGLNO 0x01eb 02cb ; -------------------------------------------------------------------------------------- 02cb ; Debug chain 02cb ; -------------------------------------------------------------------------------------- 02cb 0002 0005 | | .DBGLEN 0x0002,0x0005 02cd 01f3 01f4 | | .DBGLNO 0x01f3,0x01f4,0x01f5,0x01fd,0x0208,0x0217,0x021a 02d4 0000 0000 | | .BLANK 0000[0x12c]