|
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_6a18da
└─⟦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 0288 | | .CONST 0x0288 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00e4 | | .CONST 0x00e4 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0035 | 5 | .CONST 0x0035 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 000d 0129 | ) | Execute Any,Make_Visible 000e e002 | | Load 0x0,0x2 000f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0010 0129 | ) | Execute Any,Make_Visible 0011 e002 | | Load 0x0,0x2 0012 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0013 0129 | ) | Execute Any,Make_Visible 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 003c c231 | 1 | Store 0x1,0x31 003d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 003f c211 | | Store 0x1,0x11 0040 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0042 c233 | 3 | Store 0x1,0x33 0043 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0045 c212 | | Store 0x1,0x12 0046 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0048 c234 | 4 | Store 0x1,0x34 0049 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 004b c214 | | Store 0x1,0x14 004c 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 004e c215 | | Store 0x1,0x15 004f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0051 c216 | | Store 0x1,0x16 0052 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0054 c217 | | Store 0x1,0x17 0055 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0057 c22e | . | Store 0x1,0x2e 0058 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 005a c235 | 5 | Store 0x1,0x35 005b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 005d c21a | | Store 0x1,0x1a 005e 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0060 c21b | | Store 0x1,0x1b 0061 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0063 c21c | | Store 0x1,0x1c 0064 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0066 c21d | | Store 0x1,0x1d 0067 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0069 c21e | | Store 0x1,0x1e 006a 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 006c c21f | | Store 0x1,0x1f 006d 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 006f c220 | | Store 0x1,0x20 0070 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0072 c221 | ! | Store 0x1,0x21 0073 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0075 c222 | " | Store 0x1,0x22 0076 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0078 c223 | # | Store 0x1,0x23 0079 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 007b c224 | $ | Store 0x1,0x24 007c 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 007e c225 | % | Store 0x1,0x25 007f 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0081 c232 | 2 | Store 0x1,0x32 0082 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0084 c22f | / | Store 0x1,0x2f 0085 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0087 c230 | 0 | Store 0x1,0x30 0088 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 008a c228 | ( | Store 0x1,0x28 008b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 008d c229 | ) | Store 0x1,0x29 008e 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0090 c22a | * | Store 0x1,0x2a 0091 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0093 c22b | + | Store 0x1,0x2b 0094 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0096 c22c | , | Store 0x1,0x2c 0097 4805 |H | Short_Literal 0x5 0098 0093 0253 | S| push_full_address INIT_0250 009a 02a0 | | Declare_Subprogram Null_Subprogram 009b 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 009c c22d | - | Store 0x1,0x2d 009d 00bf | | Action Accept_Activation 009e 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00db 00c7 | | Action Elaborate_Subprogram 00dc e003 | | Load 0x0,0x3 00dd e004 | | Load 0x0,0x4 00de e005 | | Load 0x0,0x5 00df 4803 |H | Short_Literal 0x3 00e0 e22d | - | Load 0x1,0x2d 00e1 020e | | Execute Module,Augment_Imports 00e2 e22d | - | Load 0x1,0x2d 00e3 020d | | Execute Module,Elaborate 00e4 BODY_0008: 00e4 00bc | | Action Signal_Activated 00e5 00bb | | Action Signal_Completion 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e5fa | | Load 0x2,-0x6 00ec e005 | | Load 0x0,0x5 00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ee e5fc | | Load 0x2,-0x4 00ef e5fe | | Load 0x2,-0x2 00f0 e5fd | | Load 0x2,-0x3 00f1 e006 | | Load 0x0,0x6 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 00d9 | | Load_Top At_Offset_1 00f4 00d0 | | Action Swap_Control 00f5 0260 | ` | Execute Discrete,In_Type 00f6 7001 |p | Jump_Nonzero 0xf8 00f7 0801 | | Execute_Immediate Raise,0x1 00f8 e5ff | | Load 0x2,-0x1 00f9 e005 | | Load 0x0,0x5 00fa 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00fb c5fb | | Store 0x2,-0x5 00fc c5fa | | Store 0x2,-0x6 00fd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e005 | | Load 0x0,0x5 0105 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0106 0216 | | Execute Heap_Access,Convert 0107 e005 | | Load 0x0,0x5 0108 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0109 0033 | 3 | Store_Top Heap_Access,At_Offset_3 010a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 e005 | | Load 0x0,0x5 0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0116 0216 | | Execute Heap_Access,Convert 0117 e005 | | Load 0x0,0x5 0118 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0119 0033 | 3 | Store_Top Heap_Access,At_Offset_3 011a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011b 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 0124 00db | | Load_Top At_Offset_3 0125 e005 | | Load 0x0,0x5 0126 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0127 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5fd | | Load 0x2,-0x3 012c e5fe | | Load 0x2,-0x2 012d e5ff | | Load 0x2,-0x1 012e e005 | | Load 0x0,0x5 012f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0130 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0131 0000 0000 | | .BLANK 0000[0x7] 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 e005 | | Load 0x0,0x5 013d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 013e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013f 0000 | | .XXX[0x1] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 e005 | | Load 0x0,0x5 0145 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 0000 | | .XXX[0x1] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c e005 | | Load 0x0,0x5 014d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 e005 | | Load 0x0,0x5 0155 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0156 00d8 | | Load_Top At_Offset_0 0157 e007 | | Load 0x0,0x7 0158 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0159 0122 | " | Execute Any,Make_Root_Type 015a 0260 | ` | Execute Discrete,In_Type 015b 7001 |p | Jump_Nonzero 0x15d 015c 0801 | | Execute_Immediate Raise,0x1 015d e007 | | Load 0x0,0x7 015e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015f 00d9 | | Load_Top At_Offset_1 0160 00d0 | | Action Swap_Control 0161 0260 | ` | Execute Discrete,In_Type 0162 7001 |p | Jump_Nonzero 0x164 0163 0801 | | Execute_Immediate Raise,0x1 0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e5fb | | Load 0x2,-0x5 016c e5fc | | Load 0x2,-0x4 016d e5fd | | Load 0x2,-0x3 016e e5fe | | Load 0x2,-0x2 016f e5ff | | Load 0x2,-0x1 0170 e005 | | Load 0x0,0x5 0171 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0172 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0173 0000 0000 | | .BLANK 0000[0x5] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b e5fd | | Load 0x2,-0x3 017c e5fe | | Load 0x2,-0x2 017d e5ff | | Load 0x2,-0x1 017e e005 | | Load 0x0,0x5 017f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0180 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0181 0000 0000 | | .BLANK 0000[0x7] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00db | | Load_Top At_Offset_3 018c 00db | | Load_Top At_Offset_3 018d e005 | | Load 0x0,0x5 018e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00db | | Load_Top At_Offset_3 0194 00db | | Load_Top At_Offset_3 0195 e005 | | Load 0x0,0x5 0196 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0197 e008 | | Load 0x0,0x8 0198 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0199 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 e005 | | Load 0x0,0x5 01a5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00db | | Load_Top At_Offset_3 01ac 00db | | Load_Top At_Offset_3 01ad e005 | | Load 0x0,0x5 01ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01af 4503 |E | Exit_Suprogram 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 e005 | | Load 0x0,0x5 01b5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc e005 | | Load 0x0,0x5 01bd 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 e005 | | Load 0x0,0x5 01c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc e005 | | Load 0x0,0x5 01cd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 e005 | | Load 0x0,0x5 01d5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d7 0000 | | .XXX[0x1] 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 00db | | Load_Top At_Offset_3 01dc 00db | | Load_Top At_Offset_3 01dd e005 | | Load 0x0,0x5 01de 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00db | | Load_Top At_Offset_3 01e4 00db | | Load_Top At_Offset_3 01e5 e005 | | Load 0x0,0x5 01e6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 00da | | Load_Top At_Offset_2 01ec e005 | | Load 0x0,0x5 01ed 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01ee e009 | | Load 0x0,0x9 01ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00db | | Load_Top At_Offset_3 01fc 00db | | Load_Top At_Offset_3 01fd e005 | | Load 0x0,0x5 01fe 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 01ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00db | | Load_Top At_Offset_3 0204 00db | | Load_Top At_Offset_3 0205 e005 | | Load 0x0,0x5 0206 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0207 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00db | | Load_Top At_Offset_3 020c 00db | | Load_Top At_Offset_3 020d e005 | | Load 0x0,0x5 020e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 020f e008 | | Load 0x0,0x8 0210 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0211 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c e005 | | Load 0x0,0x5 021d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00db | | Load_Top At_Offset_3 0224 00db | | Load_Top At_Offset_3 0225 e005 | | Load 0x0,0x5 0226 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0227 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00db | | Load_Top At_Offset_3 022c 00db | | Load_Top At_Offset_3 022d e005 | | Load 0x0,0x5 022e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 022f e009 | | Load 0x0,0x9 0230 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0231 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0232 0000 0000 | | .BLANK 0000[0x6] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00db | | Load_Top At_Offset_3 023c 00db | | Load_Top At_Offset_3 023d e005 | | Load 0x0,0x5 023e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 023f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00db | | Load_Top At_Offset_3 0244 00db | | Load_Top At_Offset_3 0245 e00a | | Load 0x0,0xa 0246 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0247 e005 | | Load 0x0,0x5 0248 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0249 e008 | | Load 0x0,0x8 024a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 026a | j | .CONST 0x026a ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0015 | | .CONST 0x0015 ; Number of locals 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 02a0 | | Declare_Subprogram Null_Subprogram 0255 03ae | | Declare_Type Heap_Access,Defined,Visible 0256 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0258 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 025a 00bf | | Action Accept_Activation 025b e001 | | Load 0x0,0x1 025c e002 | | Load 0x0,0x2 025d e20f | | Load 0x1,0xf 025e e212 | | Load 0x1,0x12 025f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0260 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0261 e003 | | Load 0x0,0x3 0262 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0263 0387 | | Declare_Variable Package 0264 00d8 | | Load_Top At_Offset_0 0265 020f | | Execute Module,Activate 0266 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0267 00c7 | | Action Elaborate_Subprogram 0268 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0269 00c7 | | Action Elaborate_Subprogram 026a BODY_0250: 026a 00bc | | Action Signal_Activated 026b 00bb | | Action Signal_Completion 026c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 0274 e215 | | Load 0x1,0x15 0275 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0276 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0277 0000 | | .XXX[0x1] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00db | | Load_Top At_Offset_3 027c e20f | | Load 0x1,0xf 027d 0119 | | Execute Any,Check_In_Formal_Type 027e 00db | | Load_Top At_Offset_3 027f e215 | | Load 0x1,0x15 0280 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0281 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0282 0000 0000 | | .BLANK 0000[0x6] 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug Table 0288 ; -------------------------------------------------------------------------------------- 0288 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb48,0x0000,0x0001,0x0000 028e 0000 0000 | | .XXX[0x24] 0290 0099 0004 | | 0292 0003 e216 | | 0294 0322 00d8 | " | 0296 1c00 029f | | 0298 037b 00d9 | { | 029a 8217 00d1 | | 029c 00cf 780a | x | 029e e5fe e5ff | | 02a0 e402 821f | | 02a2 6801 8403 |h | 02a4 00da 8218 | | 02a6 00d1 00c9 | | 02a8 00da 821a | | 02aa 6ff3 00ce |o | 02ac 00d9 8219 | | 02ae 00d1 e5ff | | 02b0 8211 4402 | D | 02b2 0000 0000 | | .BLANK 0000[0x6] 02b8 00c3 00dc | | .XXX[0x2a] 02ba 0004 e216 | | 02bc 0322 00d8 | " | 02be 1c00 029f | | 02c0 038b 029f | | 02c2 039b 00da | | 02c4 8217 00d1 | | 02c6 00cf 780a | x | 02c8 e5fe e5ff | | 02ca e402 821f | | 02cc 6801 8403 |h | 02ce 00db 8218 | | 02d0 00d1 00c9 | | 02d2 00db 821a | | 02d4 6ff3 00ce |o | 02d6 00da 8219 | | 02d8 00d1 e5ff | | 02da 8212 4402 | D | 02dc e213 010f | | 02de 6802 8404 |h | 02e0 0831 0100 | 1 | 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 00f1 0004 | | .XXX[0x51] 02ea 0003 e216 | | 02ec 0322 00d8 | " | 02ee 1c00 029f | | 02f0 03ab 00d9 | | 02f2 8217 00d1 | | 02f4 00cf 7809 | x | 02f6 e5ff 00db | | 02f8 8220 6801 | h | 02fa 8403 00da | | 02fc 8218 00d1 | | 02fe 00c9 00da | | 0300 821a 6ff4 | o | 0302 00ce 00d9 | | 0304 8219 00d1 | | 0306 e213 0257 | W| 0308 0111 0004 | | 030a 0003 e216 | | 030c 0322 00d8 | " | 030e 1c00 029f | | 0310 03bb 00d9 | | 0312 8217 00d1 | | 0314 00cf 7809 | x | 0316 e5ff 00db | | 0318 8220 6801 | h | 031a 8403 00da | | 031c 8218 00d1 | | 031e 00c9 00da | | 0320 821a 6ff4 | o | 0322 00ce 00d9 | | 0324 8219 00d1 | | 0326 e213 0257 | W| 0328 012b 0131 | + 1| 032a 0001 00db | | 032c e004 1817 | | 032e 00db 820f | | 0330 4402 e004 |D | 0332 1b10 010f | | 0334 6803 00db |h | 0336 8211 4402 | D | 0338 0100 | | 0339 0000 0000 | | .BLANK 0000[0x7] 0340 0143 0149 | C I| .XXX[0x11] 0342 0001 00db | | 0344 e004 1817 | | 0346 00db 8210 | | 0348 4402 e004 |D | 034a 1b10 010f | | 034c 6803 00db |h | 034e 8212 4402 | D | 0350 0100 | | 0351 0000 0000 | | .BLANK 0000[0x7] 0358 015b 0167 | [ g| .XXX[0x2c] 035a 0001 00da | | 035c 3c00 00ea |< | 035e e20d 4800 | H | 0360 e002 1815 | | 0362 00db 3800 | 8 | 0364 00da 8223 | #| 0366 4501 00d8 |E | 0368 0107 4920 | I | 036a 492f 0262 |I/ b| 036c 6803 00db |h | 036e 8219 4501 | E | 0370 00db 8219 | | 0372 00d1 00d8 | | 0374 0101 0000 | | 0376 0000 0000 | | 0378 017b 017e | { ~| 037a 0001 00da | | 037c 8223 4501 | #E | 037e 0007 00db | | 0380 8219 00d1 | | 0382 00d8 0101 | | 0384 0000 0000 | | .BLANK 0000[0x4] 0388 018b 0192 | | .XXX[0xc] 038a 0001 00da | | 038c 3c00 e002 |< | 038e 1816 00db | | 0390 3800 4501 |8 E | 0392 0007 4501 | E | 0394 0000 0000 | | .BLANK 0000[0x4] 0398 019b 0004 | | .XXX[0x9] 039a 0001 00da | | 039c 3c00 e002 |< | 039e 181d 0f00 | | 03a0 4401 |D | 03a1 0000 0000 | | .BLANK 0000[0x7] 03a8 01ab 0004 | | .XXX[0xc] 03aa 0001 4801 | H | 03ac 4801 e5ff |H | 03ae 3c01 e5ff |< | 03b0 3402 01cf |4 | 03b2 8225 4401 | %D | 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 01bb 0004 | | .XXX[0x41] 03ba 0001 4802 | H | 03bc 4801 e5ff |H | 03be 3c01 e5ff |< | 03c0 3402 01cf |4 | 03c2 8225 8227 | % '| 03c4 4401 0000 |D | 03c6 0000 0000 | | 03c8 01cb 0004 | | 03ca 0001 4803 | H | 03cc 4801 e5ff |H | 03ce 3c01 e5ff |< | 03d0 3402 01cf |4 | 03d2 8225 820e | % | 03d4 4401 0000 |D | 03d6 0000 0000 | | 03d8 01db 0004 | | 03da 0001 4804 | H | 03dc 4801 e5ff |H | 03de 3c01 e5ff |< | 03e0 3402 01cf |4 | 03e2 8225 820e | % | 03e4 4401 0000 |D | 03e6 0000 0000 | | 03e8 01eb 0004 | | 03ea 0001 00da | | 03ec 821d e5fe | | 03ee 820e 01df | | 03f0 6806 00da |h | 03f2 821e e5fd | | 03f4 820e 01df | | 03f6 4403 4800 |D H | 03f8 4403 |D | 03f9 0000 0000 | | .BLANK 0000[0x7]