|
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: 4096 (0x1000) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 06b8 | | .CONST 0x06b8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 020c | | .CONST 0x020c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0035 | 5 | .CONST 0x0035 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0012 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0014 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0016 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0018 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 001a 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 001c 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 001e 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0020 00bf | | Action Accept_Activation 0021 0093 0000 | | push_full_address 0x0 0023 6220 |b | Indirect_Literal Discrete,0x244,{0x80000000, 0x00010000} 0024 0273 | s | Execute Discrete,Plus 0025 0007 | | Action Break_Optional 0026 e002 | | Load 0x0,0x2 0027 e003 | | Load 0x0,0x3 0028 e004 | | Load 0x0,0x4 0029 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002a e004 | | Load 0x0,0x4 002b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002c 00e5 | | Load_Encached Long_Integer_Cache 002d e004 | | Load 0x0,0x4 002e 1913 | | Execute Package,Field_Reference,Field_Number 0x13 002f e005 | | Load 0x0,0x5 0030 0387 | | Declare_Variable Package 0031 00d8 | | Load_Top At_Offset_0 0032 020f | | Execute Module,Activate 0033 e006 | | Load 0x0,0x6 0034 e007 | | Load 0x0,0x7 0035 e004 | | Load 0x0,0x4 0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0037 e004 | | Load 0x0,0x4 0038 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0039 00e5 | | Load_Encached Long_Integer_Cache 003a e004 | | Load 0x0,0x4 003b 1913 | | Execute Package,Field_Reference,Field_Number 0x13 003c e005 | | Load 0x0,0x5 003d 0387 | | Declare_Variable Package 003e 00d8 | | Load_Top At_Offset_0 003f 020f | | Execute Module,Activate 0040 e20d | | Load 0x1,0xd 0041 e008 | | Load 0x0,0x8 0042 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0043 e009 | | Load 0x0,0x9 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 e00a | | Load 0x0,0xa 0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0047 e00b | | Load 0x0,0xb 0048 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0049 00e1 | | Load_Encached Boolean_Cache 004a e217 | | Load 0x1,0x17 004b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 004c e217 | | Load 0x1,0x17 004d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 004e e217 | | Load 0x1,0x17 004f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0050 e218 | | Load 0x1,0x18 0051 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0052 e004 | | Load 0x0,0x4 0053 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0054 00f1 | | Load_Encached Diana_Temp_Seq 0055 00e3 | | Load_Encached Natural_Cache 0056 00e3 | | Load_Encached Natural_Cache 0057 00e3 | | Load_Encached Natural_Cache 0058 00e3 | | Load_Encached Natural_Cache 0059 00e3 | | Load_Encached Natural_Cache 005a 00e3 | | Load_Encached Natural_Cache 005b e00c | | Load 0x0,0xc 005c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 005d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005e 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 0060 4813 |H | Short_Literal 0x13 0061 032d | - | Declare_Type Record,Defined 0062 4800 |H | Short_Literal 0x0 0063 4806 |H | Short_Literal 0x6 0064 e001 | | Load 0x0,0x1 0065 01d7 | | Execute Vector,Field_Read 0066 02a0 | | Declare_Subprogram Null_Subprogram 0067 038e | | Declare_Type Package,Defined 0068 e001 | | Load 0x0,0x1 0069 4805 |H | Short_Literal 0x5 006a e001 | | Load 0x0,0x1 006b 01d7 | | Execute Vector,Field_Read 006c 4802 |H | Short_Literal 0x2 006d 00db | | Load_Top At_Offset_3 006e 020e | | Execute Module,Augment_Imports 006f 0387 | | Declare_Variable Package 0070 4800 |H | Short_Literal 0x0 0071 4804 |H | Short_Literal 0x4 0072 e001 | | Load 0x0,0x1 0073 01d7 | | Execute Vector,Field_Read 0074 02a0 | | Declare_Subprogram Null_Subprogram 0075 038e | | Declare_Type Package,Defined 0076 e001 | | Load 0x0,0x1 0077 4803 |H | Short_Literal 0x3 0078 e001 | | Load 0x0,0x1 0079 01d7 | | Execute Vector,Field_Read 007a 4802 |H | Short_Literal 0x2 007b 00db | | Load_Top At_Offset_3 007c 020e | | Execute Module,Augment_Imports 007d 0387 | | Declare_Variable Package 007e 4800 |H | Short_Literal 0x0 007f 480a |H | Short_Literal 0xa 0080 e001 | | Load 0x0,0x1 0081 01d7 | | Execute Vector,Field_Read 0082 02a0 | | Declare_Subprogram Null_Subprogram 0083 038e | | Declare_Type Package,Defined 0084 e001 | | Load 0x0,0x1 0085 4809 |H | Short_Literal 0x9 0086 e001 | | Load 0x0,0x1 0087 01d7 | | Execute Vector,Field_Read 0088 4802 |H | Short_Literal 0x2 0089 00db | | Load_Top At_Offset_3 008a 020e | | Execute Module,Augment_Imports 008b 0387 | | Declare_Variable Package 008c 4800 |H | Short_Literal 0x0 008d 480e |H | Short_Literal 0xe 008e e001 | | Load 0x0,0x1 008f 01d7 | | Execute Vector,Field_Read 0090 02a0 | | Declare_Subprogram Null_Subprogram 0091 038e | | Declare_Type Package,Defined 0092 e001 | | Load 0x0,0x1 0093 480d |H | Short_Literal 0xd 0094 e001 | | Load 0x0,0x1 0095 01d7 | | Execute Vector,Field_Read 0096 4802 |H | Short_Literal 0x2 0097 00db | | Load_Top At_Offset_3 0098 020e | | Execute Module,Augment_Imports 0099 0387 | | Declare_Variable Package 009a 4800 |H | Short_Literal 0x0 009b 4808 |H | Short_Literal 0x8 009c e001 | | Load 0x0,0x1 009d 01d7 | | Execute Vector,Field_Read 009e 02a0 | | Declare_Subprogram Null_Subprogram 009f 038e | | Declare_Type Package,Defined 00a0 e001 | | Load 0x0,0x1 00a1 4807 |H | Short_Literal 0x7 00a2 e001 | | Load 0x0,0x1 00a3 01d7 | | Execute Vector,Field_Read 00a4 4802 |H | Short_Literal 0x2 00a5 00db | | Load_Top At_Offset_3 00a6 020e | | Execute Module,Augment_Imports 00a7 0387 | | Declare_Variable Package 00a8 4800 |H | Short_Literal 0x0 00a9 480c |H | Short_Literal 0xc 00aa e001 | | Load 0x0,0x1 00ab 01d7 | | Execute Vector,Field_Read 00ac 02a0 | | Declare_Subprogram Null_Subprogram 00ad 038e | | Declare_Type Package,Defined 00ae e001 | | Load 0x0,0x1 00af 480b |H | Short_Literal 0xb 00b0 e001 | | Load 0x0,0x1 00b1 01d7 | | Execute Vector,Field_Read 00b2 4802 |H | Short_Literal 0x2 00b3 00db | | Load_Top At_Offset_3 00b4 020e | | Execute Module,Augment_Imports 00b5 0387 | | Declare_Variable Package 00b6 e00d | | Load 0x0,0xd 00b7 e216 | | Load 0x1,0x16 00b8 e00e | | Load 0x0,0xe 00b9 e00a | | Load 0x0,0xa 00ba e00b | | Load 0x0,0xb 00bb e00f | | Load 0x0,0xf 00bc e004 | | Load 0x0,0x4 00bd e21c | | Load 0x1,0x1c 00be 190d | | Execute Package,Field_Reference,Field_Number 0xd 00bf e21b | | Load 0x1,0x1b 00c0 190f | | Execute Package,Field_Reference,Field_Number 0xf 00c1 4809 |H | Short_Literal 0x9 00c2 e21a | | Load 0x1,0x1a 00c3 020e | | Execute Module,Augment_Imports 00c4 e21a | | Load 0x1,0x1a 00c5 020f | | Execute Module,Activate 00c6 e010 | | Load 0x0,0x10 00c7 e004 | | Load 0x0,0x4 00c8 e011 | | Load 0x0,0x11 00c9 e21c | | Load 0x1,0x1c 00ca 191a | | Execute Package,Field_Reference,Field_Number 0x1a 00cb e21c | | Load 0x1,0x1c 00cc 191b | | Execute Package,Field_Reference,Field_Number 0x1b 00cd 4805 |H | Short_Literal 0x5 00ce e21b | | Load 0x1,0x1b 00cf 020e | | Execute Module,Augment_Imports 00d0 e21b | | Load 0x1,0x1b 00d1 020f | | Execute Module,Activate 00d2 e012 | | Load 0x0,0x12 00d3 e004 | | Load 0x0,0x4 00d4 e013 | | Load 0x0,0x13 00d5 e014 | | Load 0x0,0x14 00d6 e015 | | Load 0x0,0x15 00d7 e00c | | Load 0x0,0xc 00d8 e21b | | Load 0x1,0x1b 00d9 1915 | | Execute Package,Field_Reference,Field_Number 0x15 00da e21a | | Load 0x1,0x1a 00db 1912 | | Execute Package,Field_Reference,Field_Number 0x12 00dc e21b | | Load 0x1,0x1b 00dd 1911 | | Execute Package,Field_Reference,Field_Number 0x11 00de e21a | | Load 0x1,0x1a 00df 191d | | Execute Package,Field_Reference,Field_Number 0x1d 00e0 e21b | | Load 0x1,0x1b 00e1 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00e2 e016 | | Load 0x0,0x16 00e3 e011 | | Load 0x0,0x11 00e4 e017 | | Load 0x0,0x17 00e5 e21b | | Load 0x1,0x1b 00e6 1916 | | Execute Package,Field_Reference,Field_Number 0x16 00e7 e018 | | Load 0x0,0x18 00e8 e019 | | Load 0x0,0x19 00e9 e216 | | Load 0x1,0x16 00ea e01a | | Load 0x0,0x1a 00eb e21b | | Load 0x1,0x1b 00ec 1917 | | Execute Package,Field_Reference,Field_Number 0x17 00ed 4814 |H | Short_Literal 0x14 00ee e21c | | Load 0x1,0x1c 00ef 020e | | Execute Module,Augment_Imports 00f0 00db | | Load_Top At_Offset_3 00f1 020f | | Execute Module,Activate 00f2 00db | | Load_Top At_Offset_3 00f3 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 00f4 e01b | | Load 0x0,0x1b 00f5 e01c | | Load 0x0,0x1c 00f6 e01d | | Load 0x0,0x1d 00f7 e01e | | Load 0x0,0x1e 00f8 e21c | | Load 0x1,0x1c 00f9 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 00fa e01f | | Load 0x0,0x1f 00fb e004 | | Load 0x0,0x4 00fc e216 | | Load 0x1,0x16 00fd e020 | | Load 0x0,0x20 00fe e021 | ! | Load 0x0,0x21 00ff e218 | | Load 0x1,0x18 0100 e00c | | Load 0x0,0xc 0101 e217 | | Load 0x1,0x17 0102 e21b | | Load 0x1,0x1b 0103 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0104 e21a | | Load 0x1,0x1a 0105 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0106 e21c | | Load 0x1,0x1c 0107 190d | | Execute Package,Field_Reference,Field_Number 0xd 0108 e21b | | Load 0x1,0x1b 0109 1915 | | Execute Package,Field_Reference,Field_Number 0x15 010a e018 | | Load 0x0,0x18 010b e019 | | Load 0x0,0x19 010c e21b | | Load 0x1,0x1b 010d 1913 | | Execute Package,Field_Reference,Field_Number 0x13 010e e015 | | Load 0x0,0x15 010f e022 | " | Load 0x0,0x22 0110 e21c | | Load 0x1,0x1c 0111 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0112 e21c | | Load 0x1,0x1c 0113 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0114 e21c | | Load 0x1,0x1c 0115 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0116 e21b | | Load 0x1,0x1b 0117 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0118 e21a | | Load 0x1,0x1a 0119 191c | | Execute Package,Field_Reference,Field_Number 0x1c 011a e21a | | Load 0x1,0x1a 011b 191d | | Execute Package,Field_Reference,Field_Number 0x1d 011c e023 | # | Load 0x0,0x23 011d e21c | | Load 0x1,0x1c 011e 1911 | | Execute Package,Field_Reference,Field_Number 0x11 011f e21c | | Load 0x1,0x1c 0120 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0121 e21c | | Load 0x1,0x1c 0122 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 0123 e21c | | Load 0x1,0x1c 0124 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0125 e21c | | Load 0x1,0x1c 0126 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0127 e21b | | Load 0x1,0x1b 0128 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0129 4824 |H$ | Short_Literal 0x24 012a e21d | | Load 0x1,0x1d 012b 020e | | Execute Module,Augment_Imports 012c 00da | | Load_Top At_Offset_2 012d 020f | | Execute Module,Activate 012e e004 | | Load 0x0,0x4 012f e01b | | Load 0x0,0x1b 0130 e024 | $ | Load 0x0,0x24 0131 e21b | | Load 0x1,0x1b 0132 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0133 e21a | | Load 0x1,0x1a 0134 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0135 e025 | % | Load 0x0,0x25 0136 e015 | | Load 0x0,0x15 0137 e026 | & | Load 0x0,0x26 0138 e00c | | Load 0x0,0xc 0139 e027 | ' | Load 0x0,0x27 013a e028 | ( | Load 0x0,0x28 013b e21c | | Load 0x1,0x1c 013c 191a | | Execute Package,Field_Reference,Field_Number 0x1a 013d e029 | ) | Load 0x0,0x29 013e e21c | | Load 0x1,0x1c 013f 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0140 e02a | * | Load 0x0,0x2a 0141 e02b | + | Load 0x0,0x2b 0142 e02c | , | Load 0x0,0x2c 0143 e02d | - | Load 0x0,0x2d 0144 e02e | . | Load 0x0,0x2e 0145 e21d | | Load 0x1,0x1d 0146 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0147 e21d | | Load 0x1,0x1d 0148 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0149 e21c | | Load 0x1,0x1c 014a 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 014b e21d | | Load 0x1,0x1d 014c 1913 | | Execute Package,Field_Reference,Field_Number 0x13 014d e21f | | Load 0x1,0x1f 014e 1910 | | Execute Package,Field_Reference,Field_Number 0x10 014f e21c | | Load 0x1,0x1c 0150 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0151 e21a | | Load 0x1,0x1a 0152 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0153 e21b | | Load 0x1,0x1b 0154 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0155 e21a | | Load 0x1,0x1a 0156 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0157 e21b | | Load 0x1,0x1b 0158 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0159 e21b | | Load 0x1,0x1b 015a 191c | | Execute Package,Field_Reference,Field_Number 0x1c 015b e02f | / | Load 0x0,0x2f 015c e030 | 0 | Load 0x0,0x30 015d e031 | 1 | Load 0x0,0x31 015e e21b | | Load 0x1,0x1b 015f 190f | | Execute Package,Field_Reference,Field_Number 0xf 0160 e21a | | Load 0x1,0x1a 0161 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0162 e216 | | Load 0x1,0x16 0163 e21c | | Load 0x1,0x1c 0164 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0165 e21b | | Load 0x1,0x1b 0166 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0167 e21c | | Load 0x1,0x1c 0168 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0169 e21c | | Load 0x1,0x1c 016a 191c | | Execute Package,Field_Reference,Field_Number 0x1c 016b e21c | | Load 0x1,0x1c 016c 1918 | | Execute Package,Field_Reference,Field_Number 0x18 016d e21b | | Load 0x1,0x1b 016e 190e | | Execute Package,Field_Reference,Field_Number 0xe 016f e032 | 2 | Load 0x0,0x32 0170 e033 | 3 | Load 0x0,0x33 0171 e21c | | Load 0x1,0x1c 0172 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0173 e21c | | Load 0x1,0x1c 0174 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0175 e21c | | Load 0x1,0x1c 0176 191e | | Execute Package,Field_Reference,Field_Number 0x1e 0177 e21d | | Load 0x1,0x1d 0178 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0179 e21d | | Load 0x1,0x1d 017a 1915 | | Execute Package,Field_Reference,Field_Number 0x15 017b e21d | | Load 0x1,0x1d 017c 1916 | | Execute Package,Field_Reference,Field_Number 0x16 017d e034 | 4 | Load 0x0,0x34 017e e21a | | Load 0x1,0x1a 017f 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0180 4834 |H4 | Short_Literal 0x34 0181 e21e | | Load 0x1,0x1e 0182 020e | | Execute Module,Augment_Imports 0183 00d9 | | Load_Top At_Offset_1 0184 020f | | Execute Module,Activate 0185 00db | | Load_Top At_Offset_3 0186 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 0187 e01b | | Load 0x0,0x1b 0188 e035 | 5 | Load 0x0,0x35 0189 e21b | | Load 0x1,0x1b 018a 1912 | | Execute Package,Field_Reference,Field_Number 0x12 018b e21a | | Load 0x1,0x1a 018c 1910 | | Execute Package,Field_Reference,Field_Number 0x10 018d e004 | | Load 0x0,0x4 018e e21c | | Load 0x1,0x1c 018f 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0190 e21c | | Load 0x1,0x1c 0191 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0192 e21c | | Load 0x1,0x1c 0193 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0194 e21d | | Load 0x1,0x1d 0195 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0196 e21c | | Load 0x1,0x1c 0197 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0198 e21c | | Load 0x1,0x1c 0199 1916 | | Execute Package,Field_Reference,Field_Number 0x16 019a e21b | | Load 0x1,0x1b 019b 1910 | | Execute Package,Field_Reference,Field_Number 0x10 019c e21a | | Load 0x1,0x1a 019d 1912 | | Execute Package,Field_Reference,Field_Number 0x12 019e e21c | | Load 0x1,0x1c 019f 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 01a0 e036 | 6 | Load 0x0,0x36 01a1 e21c | | Load 0x1,0x1c 01a2 191d | | Execute Package,Field_Reference,Field_Number 0x1d 01a3 e21b | | Load 0x1,0x1b 01a4 1911 | | Execute Package,Field_Reference,Field_Number 0x11 01a5 e21a | | Load 0x1,0x1a 01a6 191c | | Execute Package,Field_Reference,Field_Number 0x1c 01a7 e21b | | Load 0x1,0x1b 01a8 1918 | | Execute Package,Field_Reference,Field_Number 0x18 01a9 e21a | | Load 0x1,0x1a 01aa 1914 | | Execute Package,Field_Reference,Field_Number 0x14 01ab e21a | | Load 0x1,0x1a 01ac 1918 | | Execute Package,Field_Reference,Field_Number 0x18 01ad e032 | 2 | Load 0x0,0x32 01ae e21e | | Load 0x1,0x1e 01af 190d | | Execute Package,Field_Reference,Field_Number 0xd 01b0 e216 | | Load 0x1,0x16 01b1 4819 |H | Short_Literal 0x19 01b2 e21f | | Load 0x1,0x1f 01b3 020e | | Execute Module,Augment_Imports 01b4 00d8 | | Load_Top At_Offset_0 01b5 020f | | Execute Module,Activate 01b6 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 01b8 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 01ba 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 01bc 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 01be e21c | | Load 0x1,0x1c 01bf 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 01c0 00c6 | | Action Check_Subprogram_Elaborated 01c1 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 01c2 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Could not find unit" 01c4 0093 0000 | | push_full_address 0x0 01c6 6079 |`y | Indirect_Literal Discrete,0x240,{0x80000000, 0x00030000} 01c7 0273 | s | Execute Discrete,Plus 01c8 e01b | | Load 0x0,0x1b 01c9 0273 | s | Execute Discrete,Plus 01ca e037 | 7 | Load 0x0,0x37 01cb 0273 | s | Execute Discrete,Plus 01cc 4800 |H | Short_Literal 0x0 01cd 0007 | | Action Break_Optional 01ce 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 01d0 1d0e | | Execute_Immediate Reference_Lex_1,0xe 01d1 00c7 | | Action Elaborate_Subprogram 01d2 1d0f | | Execute_Immediate Reference_Lex_1,0xf 01d3 00c7 | | Action Elaborate_Subprogram 01d4 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 01d6 e21c | | Load 0x1,0x1c 01d7 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 01d8 00c6 | | Action Check_Subprogram_Elaborated 01d9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 01da 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Could not find view" 01dc 0093 0000 | | push_full_address 0x0 01de 605d |`] | Indirect_Literal Discrete,0x23c,{0x80000000, 0x00020000} 01df 0273 | s | Execute Discrete,Plus 01e0 e01b | | Load 0x0,0x1b 01e1 0273 | s | Execute Discrete,Plus 01e2 e038 | 8 | Load 0x0,0x38 01e3 0273 | s | Execute Discrete,Plus 01e4 4800 |H | Short_Literal 0x0 01e5 0007 | | Action Break_Optional 01e6 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call 01e8 1d10 | | Execute_Immediate Reference_Lex_1,0x10 01e9 00c7 | | Action Elaborate_Subprogram 01ea 1d11 | | Execute_Immediate Reference_Lex_1,0x11 01eb 00c7 | | Action Elaborate_Subprogram 01ec 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 01ee e21c | | Load 0x1,0x1c 01ef 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 01f0 00c6 | | Action Check_Subprogram_Elaborated 01f1 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 01f2 0092 05b8 | | Action Push_String_Extended,0x5b8 ; "Could not find activity" 01f4 0093 0000 | | push_full_address 0x0 01f6 6041 |`A | Indirect_Literal Discrete,0x238,{0x80000000, 0x00010000} 01f7 0273 | s | Execute Discrete,Plus 01f8 e01b | | Load 0x0,0x1b 01f9 0273 | s | Execute Discrete,Plus 01fa e039 | 9 | Load 0x0,0x39 01fb 0273 | s | Execute Discrete,Plus 01fc 4800 |H | Short_Literal 0x0 01fd 0007 | | Action Break_Optional 01fe 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call 0200 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0201 00c7 | | Action Elaborate_Subprogram 0202 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0203 00c7 | | Action Elaborate_Subprogram 0204 4802 |H | Short_Literal 0x2 0205 e001 | | Load 0x0,0x1 0206 01d7 | | Execute Vector,Field_Read 0207 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0208 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0209 00c7 | | Action Elaborate_Subprogram 020a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 020b 00c7 | | Action Elaborate_Subprogram 020c BODY_0008: 020c 00bc | | Action Signal_Activated 020d 00bb | | Action Signal_Completion 020e 0000 0000 | | .XXX[0x2] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4607 |F | Jump_Case 0x8 0214 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0215 7807 |x | Jump 0x21d ; case 0x1 0216 780a |x | Jump 0x221 ; case 0x2 0217 780e |x | Jump 0x226 ; case 0x3 0218 7811 |x | Jump 0x22a ; case 0x4 0219 7812 |x | Jump 0x22c ; case 0x5 021a 7813 |x | Jump 0x22e ; case 0x6 021b 7816 |x | Jump 0x232 ; case 0x7 021c 4302 |C | .XXX[0x1] 021d 00da | | Load_Top At_Offset_2 021e 0091 05b3 | | Action Push_String_Extended_Indexed,0x5b3 ; "COMPATIBLE" 0220 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0221 00db | | Load_Top At_Offset_3 0222 00db | | Load_Top At_Offset_3 0223 00e0 | | Load_Encached Standard_Cache 0224 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0225 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0226 00da | | Load_Top At_Offset_2 0227 00e0 | | Load_Encached Standard_Cache 0228 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0229 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 022a 00db | | Load_Top At_Offset_3 022b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022c 00db | | Load_Top At_Offset_3 022d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022e e20d | | Load 0x1,0xd 022f 00dc | | Load_Top At_Offset_4 0230 0267 | g | Execute Discrete,Predecessor 0231 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0232 e20d | | Load 0x1,0xd 0233 00dc | | Load_Top At_Offset_4 0234 0268 | h | Execute Discrete,Successor 0235 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0236 0000 0000 | | .XXX[0x2] 0238 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 023c 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0240 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0244 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024d | M | .CONST 0x024d ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b e20d | | Load 0x1,0xd 024c 0007 | | Action Break_Optional 024d BODY_0248: 024d e20d | | Load 0x1,0xd 024e e5fc | | Load 0x2,-0x4 024f e5fd | | Load 0x2,-0x3 0250 e5fe | | Load 0x2,-0x2 0251 e5ff | | Load 0x2,-0x1 0252 8228 | ( | Call 0x1,0x28 0253 0059 | Y | Store_Top Discrete,At_Offset_1 0254 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025d | ] | .CONST 0x025d ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b e20d | | Load 0x1,0xd 025c 0007 | | Action Break_Optional 025d BODY_0258: 025d e20d | | Load 0x1,0xd 025e e5fd | | Load 0x2,-0x3 025f 4800 |H | Short_Literal 0x0 0260 e5fe | | Load 0x2,-0x2 0261 e5ff | | Load 0x2,-0x1 0262 8228 | ( | Call 0x1,0x28 0263 0059 | Y | Store_Top Discrete,At_Offset_1 0264 00d8 | | Load_Top At_Offset_0 0265 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026d | m | .CONST 0x026d ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b e20d | | Load 0x1,0xd 026c 0007 | | Action Break_Optional 026d BODY_0268: 026d e20d | | Load 0x1,0xd 026e e5fc | | Load 0x2,-0x4 026f e5fd | | Load 0x2,-0x3 0270 e5fe | | Load 0x2,-0x2 0271 e5ff | | Load 0x2,-0x1 0272 822e | . | Call 0x1,0x2e 0273 0059 | Y | Store_Top Discrete,At_Offset_1 0274 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027d | } | .CONST 0x027d ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b e20d | | Load 0x1,0xd 027c 0007 | | Action Break_Optional 027d BODY_0278: 027d e20d | | Load 0x1,0xd 027e e5fd | | Load 0x2,-0x3 027f 4800 |H | Short_Literal 0x0 0280 e5fe | | Load 0x2,-0x2 0281 e5ff | | Load 0x2,-0x1 0282 822e | . | Call 0x1,0x2e 0283 0059 | Y | Store_Top Discrete,At_Offset_1 0284 00d8 | | Load_Top At_Offset_0 0285 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028d | | .CONST 0x028d ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b e20d | | Load 0x1,0xd 028c 0007 | | Action Break_Optional 028d BODY_0288: 028d e20d | | Load 0x1,0xd 028e e5fd | | Load 0x2,-0x3 028f e5fe | | Load 0x2,-0x2 0290 e5ff | | Load 0x2,-0x1 0291 8234 | 4 | Call 0x1,0x34 0292 0059 | Y | Store_Top Discrete,At_Offset_1 0293 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029d | | .CONST 0x029d ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e20d | | Load 0x1,0xd 029c 0007 | | Action Break_Optional 029d BODY_0298: 029d e20d | | Load 0x1,0xd 029e e5fe | | Load 0x2,-0x2 029f 4800 |H | Short_Literal 0x0 02a0 e5ff | | Load 0x2,-0x1 02a1 8234 | 4 | Call 0x1,0x34 02a2 0059 | Y | Store_Top Discrete,At_Offset_1 02a3 00d8 | | Load_Top At_Offset_0 02a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a5 0000 0000 | | .XXX[0x3] 02a7 0000 | | 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ad | | .CONST 0x02ad ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab e20d | | Load 0x1,0xd 02ac 0007 | | Action Break_Optional 02ad BODY_02a8: 02ad e20d | | Load 0x1,0xd 02ae e5fe | | Load 0x2,-0x2 02af 4800 |H | Short_Literal 0x0 02b0 e5ff | | Load 0x2,-0x1 02b1 8235 | 5 | Call 0x1,0x35 02b2 0059 | Y | Store_Top Discrete,At_Offset_1 02b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b4 0000 0000 | | .BLANK 0000[0x4] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bd | | .CONST 0x02bd ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb e20d | | Load 0x1,0xd 02bc 0007 | | Action Break_Optional 02bd BODY_02b8: 02bd e20d | | Load 0x1,0xd 02be e5fe | | Load 0x2,-0x2 02bf 4800 |H | Short_Literal 0x0 02c0 e5ff | | Load 0x2,-0x1 02c1 8235 | 5 | Call 0x1,0x35 02c2 0059 | Y | Store_Top Discrete,At_Offset_1 02c3 00d8 | | Load_Top At_Offset_0 02c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c5 0000 0000 | | .XXX[0x3] 02c7 0000 | | 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 4601 |F | Jump_Case 0x2 02cc 7801 |x | Jump 0x2ce ; case 0x0 02cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02ce 00da | | Load_Top At_Offset_2 02cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02d0 0125 | % | Execute Any,Set_Constraint 02d1 00da | | Load_Top At_Offset_2 02d2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02d3 1c00 | | Execute_Immediate Run_Utility,0x0 02d4 00da | | Load_Top At_Offset_2 02d5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02d6 0125 | % | Execute Any,Set_Constraint 02d7 00da | | Load_Top At_Offset_2 02d8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02d9 1c00 | | Execute_Immediate Run_Utility,0x0 02da 00da | | Load_Top At_Offset_2 02db 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02dc 0125 | % | Execute Any,Set_Constraint 02dd 00da | | Load_Top At_Offset_2 02de 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02df 1c00 | | Execute_Immediate Run_Utility,0x0 02e0 00da | | Load_Top At_Offset_2 02e1 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02e2 0125 | % | Execute Any,Set_Constraint 02e3 00da | | Load_Top At_Offset_2 02e4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02e5 1c00 | | Execute_Immediate Run_Utility,0x0 02e6 00da | | Load_Top At_Offset_2 02e7 340a |4 | Execute Record,Field_Reference,Field_Number 0xa 02e8 0125 | % | Execute Any,Set_Constraint 02e9 00da | | Load_Top At_Offset_2 02ea 340a |4 | Execute Record,Field_Reference,Field_Number 0xa 02eb 1c00 | | Execute_Immediate Run_Utility,0x0 02ec 00da | | Load_Top At_Offset_2 02ed 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 02ee 0125 | % | Execute Any,Set_Constraint 02ef 00da | | Load_Top At_Offset_2 02f0 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 02f1 1c00 | | Execute_Immediate Run_Utility,0x0 02f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02f3 0000 0000 | | .BLANK 0000[0x5] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 0300 | | .CONST 0x0300 ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0002 | | .CONST 0x0002 ; Number of locals 02fb INIT_02f8: 02fb e012 | | Load 0x0,0x12 02fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02fd 02c7 | | Declare_Variable Any 02fe 00d8 | | Load_Top At_Offset_0 02ff 1c00 | | Execute_Immediate Run_Utility,0x0 0300 BODY_02f8: 0300 4800 |H | Short_Literal 0x0 0301 e5fd | | Load 0x2,-0x3 0302 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0303 00db | | Load_Top At_Offset_3 0304 e5fd | | Load 0x2,-0x3 0305 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0306 4800 |H | Short_Literal 0x0 0307 e5fd | | Load 0x2,-0x3 0308 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0309 4800 |H | Short_Literal 0x0 030a e5fd | | Load 0x2,-0x3 030b 380e |8 | Execute Record,Field_Write,Field_Number 0xe 030c 4800 |H | Short_Literal 0x0 030d e5fd | | Load 0x2,-0x3 030e 380d |8 | Execute Record,Field_Write,Field_Number 0xd 030f 4800 |H | Short_Literal 0x0 0310 e5fd | | Load 0x2,-0x3 0311 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0312 4800 |H | Short_Literal 0x0 0313 e5fd | | Load 0x2,-0x3 0314 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0315 4800 |H | Short_Literal 0x0 0316 e5fd | | Load 0x2,-0x3 0317 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0318 e004 | | Load 0x0,0x4 0319 1810 | | Execute Package,Field_Execute,Field_Number 0x10 031a e5fd | | Load 0x2,-0x3 031b 380a |8 | Execute Record,Field_Write,Field_Number 0xa 031c 00f1 | | Load_Encached Diana_Temp_Seq 031d e5fd | | Load 0x2,-0x3 031e 380b |8 | Execute Record,Field_Write,Field_Number 0xb 031f e03a | : | Load 0x0,0x3a 0320 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0321 e008 | | Load 0x0,0x8 0322 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0323 e5fd | | Load 0x2,-0x3 0324 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0325 e217 | | Load 0x1,0x17 0326 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0327 e018 | | Load 0x0,0x18 0328 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0329 e019 | | Load 0x0,0x19 032a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032b e217 | | Load 0x1,0x17 032c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 032d e5fd | | Load 0x2,-0x3 032e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 032f e217 | | Load 0x1,0x17 0330 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0331 e018 | | Load 0x0,0x18 0332 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0333 e019 | | Load 0x0,0x19 0334 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0335 e217 | | Load 0x1,0x17 0336 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0337 e5fd | | Load 0x2,-0x3 0338 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0339 e217 | | Load 0x1,0x17 033a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 033b e018 | | Load 0x0,0x18 033c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033d e019 | | Load 0x0,0x19 033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033f e217 | | Load 0x1,0x17 0340 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0341 e5fd | | Load 0x2,-0x3 0342 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0343 e218 | | Load 0x1,0x18 0344 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0345 e018 | | Load 0x0,0x18 0346 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0347 e019 | | Load 0x0,0x19 0348 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0349 e218 | | Load 0x1,0x18 034a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 034b e5fd | | Load 0x2,-0x3 034c 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 034d 4800 |H | Short_Literal 0x0 034e 4800 |H | Short_Literal 0x0 034f 4801 |H | Short_Literal 0x1 0350 e5fd | | Load 0x2,-0x3 0351 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0352 e5fd | | Load 0x2,-0x3 0353 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0354 e018 | | Load 0x0,0x18 0355 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0356 e019 | | Load 0x0,0x19 0357 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0358 e00c | | Load 0x0,0xc 0359 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 035a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 035b e5fd | | Load 0x2,-0x3 035c 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 035d 00d8 | | Load_Top At_Offset_0 035e e5fd | | Load 0x2,-0x3 035f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0360 0120 | | Execute Any,Is_Value 0361 6803 |h | Jump_Zero 0x365 0362 e00a | | Load 0x0,0xa 0363 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0364 7802 |x | Jump 0x367 0365 e5fd | | Load 0x2,-0x3 0366 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0367 e5fe | | Load 0x2,-0x2 0368 e00a | | Load 0x0,0xa 0369 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 036a e5fd | | Load 0x2,-0x3 036b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 036c c402 | | Store 0x2,0x2 036d 00d8 | | Load_Top At_Offset_0 036e e21c | | Load 0x1,0x1c 036f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0370 7003 |p | Jump_Nonzero 0x374 0371 00d8 | | Load_Top At_Offset_0 0372 e21a | | Load 0x1,0x1a 0373 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0374 00db | | Load_Top At_Offset_3 0375 6804 |h | Jump_Zero 0x37a 0376 e5fd | | Load 0x2,-0x3 0377 e21a | | Load 0x1,0x1a 0378 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0379 00d1 | | Pop_Control Pop_Count_1 037a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037b 0000 0000 | | .BLANK 0000[0x5] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0385 | | .CONST 0x0385 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0002 | | .CONST 0x0002 ; Number of locals 0383 INIT_0380: 0383 029f 059b | | Declare_Subprogram INIT_0598,For_Call 0385 BODY_0380: 0385 00db | | Load_Top At_Offset_3 0386 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0387 6805 |h | Jump_Zero 0x38d 0388 00db | | Load_Top At_Offset_3 0389 e21a | | Load 0x1,0x1a 038a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 038b 00d1 | | Pop_Control Pop_Count_1 038c 7834 |x4 | Jump 0x3c1 038d 00db | | Load_Top At_Offset_3 038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 038f 7007 |p | Jump_Nonzero 0x397 0390 00db | | Load_Top At_Offset_3 0391 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "All units/views are compatible" 0393 e21a | | Load 0x1,0x1a 0394 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0395 00d1 | | Pop_Control Pop_Count_1 0396 782a |x* | Jump 0x3c1 0397 00db | | Load_Top At_Offset_3 0398 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0399 0092 05ba | | Action Push_String_Extended,0x5ba ; "Missing units" 039b 0092 05bb | | Action Push_String_Extended,0x5bb ; "Missing unit" 039d 8402 | | Call 0x2,0x2 039e 00db | | Load_Top At_Offset_3 039f 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 03a0 0092 05bc | | Action Push_String_Extended,0x5bc ; "Uninstalled units" 03a2 0092 05bd | | Action Push_String_Extended,0x5bd ; "Uninstalled unit" 03a4 8402 | | Call 0x2,0x2 03a5 00db | | Load_Top At_Offset_3 03a6 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 03a7 0092 05be | | Action Push_String_Extended,0x5be ; "Incompatible units" 03a9 0092 05bf | | Action Push_String_Extended,0x5bf ; "Incompatible unit" 03ab 8402 | | Call 0x2,0x2 03ac 00db | | Load_Top At_Offset_3 03ad 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 03ae 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "Missing views" 03b0 0092 05c1 | | Action Push_String_Extended,0x5c1 ; "Missing view" 03b2 8402 | | Call 0x2,0x2 03b3 00db | | Load_Top At_Offset_3 03b4 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 03b5 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "Incompatible views" 03b7 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "Incompatible view" 03b9 8402 | | Call 0x2,0x2 03ba 00db | | Load_Top At_Offset_3 03bb 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 03bc 0092 05c4 | | Action Push_String_Extended,0x5c4 ; "Errors encountered" 03be 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "Error encountered" 03c0 8402 | | Call 0x2,0x2 03c1 00db | | Load_Top At_Offset_3 03c2 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 03c3 e00c | | Load 0x0,0xc 03c4 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 03c5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03c6 00db | | Load_Top At_Offset_3 03c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c8 4801 |H | Short_Literal 0x1 03c9 e5ff | | Load 0x2,-0x1 03ca 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 03cb 0f00 | | Execute_Immediate Equal,0x0 03cc e008 | | Load 0x0,0x8 03cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03ce e5ff | | Load 0x2,-0x1 03cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03d1 0000 0000 | | .BLANK 0000[0x7] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc e21c | | Load 0x1,0x1c 03dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03de 6806 |h | Jump_Zero 0x3e5 03df 00db | | Load_Top At_Offset_3 03e0 00db | | Load_Top At_Offset_3 03e1 e21e | | Load 0x1,0x1e 03e2 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e3 00d1 | | Pop_Control Pop_Count_1 03e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e5 00da | | Load_Top At_Offset_2 03e6 e21c | | Load 0x1,0x1c 03e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03e8 6806 |h | Jump_Zero 0x3ef 03e9 00db | | Load_Top At_Offset_3 03ea 00db | | Load_Top At_Offset_3 03eb e21f | | Load 0x1,0x1f 03ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ed 00d1 | | Pop_Control Pop_Count_1 03ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ef 00da | | Load_Top At_Offset_2 03f0 e21c | | Load 0x1,0x1c 03f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03f2 6806 |h | Jump_Zero 0x3f9 03f3 00db | | Load_Top At_Offset_3 03f4 00db | | Load_Top At_Offset_3 03f5 e21f | | Load 0x1,0x1f 03f6 180f | | Execute Package,Field_Execute,Field_Number 0xf 03f7 00d1 | | Pop_Control Pop_Count_1 03f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f9 00db | | Load_Top At_Offset_3 03fa 0092 05c6 | | Action Push_String_Extended,0x5c6 ; "is not an ada unit or view" 03fc e5ff | | Load 0x2,-0x1 03fd e21b | | Load 0x1,0x1b 03fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ff e21a | | Load 0x1,0x1a 0400 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0401 00d1 | | Pop_Control Pop_Count_1 0402 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0403 0000 0000 | | .BLANK 0000[0x5] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00db | | Load_Top At_Offset_3 040c 00db | | Load_Top At_Offset_3 040d e004 | | Load 0x0,0x4 040e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 040f 0119 | | Execute Any,Check_In_Formal_Type 0410 8222 | " | Call 0x1,0x22 0411 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0412 0000 0000 | | .BLANK 0000[0x6] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041f | | .CONST 0x041f ; Address of begin 0419 0463 | c | .CONST 0x0463 ; Address of exception handler 041a 0002 | | .CONST 0x0002 ; Number of locals 041b INIT_0418: 041b e219 | | Load 0x1,0x19 041c 0322 | " | Declare_Variable Record 041d 00d8 | | Load_Top At_Offset_0 041e 1c00 | | Execute_Immediate Run_Utility,0x0 041f BODY_0418: 041f 00d8 | | Load_Top At_Offset_0 0420 e5fc | | Load 0x2,-0x4 0421 e5fd | | Load 0x2,-0x3 0422 8220 | | Call 0x1,0x20 0423 00d1 | | Pop_Control Pop_Count_1 0424 00d8 | | Load_Top At_Offset_0 0425 0092 05c7 | | Action Push_String_Extended,0x5c7 ; "Load_View_Units => \x22" 0427 e5ff | | Load 0x2,-0x1 0428 01cc | | Execute Vector,Catenate 0429 0092 05c8 | | Action Push_String_Extended,0x5c8 ; "\x22, Spec_Views => \x22" 042b 01cc | | Execute Vector,Catenate 042c e5fe | | Load 0x2,-0x2 042d 01cc | | Execute Vector,Catenate 042e 0092 05c9 | | Action Push_String_Extended,0x5c9 ; "\x22, Menu => " 0430 01cc | | Execute Vector,Catenate 0431 e5fd | | Load 0x2,-0x3 0432 00e1 | | Load_Encached Boolean_Cache 0433 011c | | Execute Any,Convert_Unchecked 0434 1c01 | | Execute_Immediate Run_Utility,0x1 0435 01cc | | Execute Vector,Catenate 0436 0092 05ca | | Action Push_String_Extended,0x5ca ; ", Response => \x22" 0438 01cc | | Execute Vector,Catenate 0439 e5fc | | Load 0x2,-0x4 043a 01cc | | Execute Vector,Catenate 043b 0092 05cb | | Action Push_String_Extended,0x5cb ; "\x22" 043d 01cc | | Execute Vector,Catenate 043e 0092 05cc | | Action Push_String_Extended,0x5cc ; "Units" 0440 e21a | | Load 0x1,0x1a 0441 180d | | Execute Package,Field_Execute,Field_Number 0xd 0442 00d1 | | Pop_Control Pop_Count_1 0443 00d8 | | Load_Top At_Offset_0 0444 e5fe | | Load 0x2,-0x2 0445 e21d | | Load 0x1,0x1d 0446 180d | | Execute Package,Field_Execute,Field_Number 0xd 0447 00d1 | | Pop_Control Pop_Count_1 0448 00d8 | | Load_Top At_Offset_0 0449 e5ff | | Load 0x2,-0x1 044a e21d | | Load 0x1,0x1d 044b 180e | | Execute Package,Field_Execute,Field_Number 0xe 044c 00d1 | | Pop_Control Pop_Count_1 044d 00d8 | | Load_Top At_Offset_0 044e e004 | | Load 0x0,0x4 044f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0450 e5ff | | Load 0x2,-0x1 0451 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0452 e225 | % | Load 0x1,0x25 0453 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0454 e21c | | Load 0x1,0x1c 0455 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0456 00d1 | | Pop_Control Pop_Count_1 0457 00d8 | | Load_Top At_Offset_0 0458 8221 | ! | Call 0x1,0x21 0459 00d1 | | Pop_Control Pop_Count_1 045a 00d8 | | Load_Top At_Offset_0 045b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 045c a5fb | | Store_Unchecked 0x2,-0x5 045d 00d8 | | Load_Top At_Offset_0 045e 0092 05cc | | Action Push_String_Extended,0x5cc ; "Units" 0460 e21a | | Load 0x1,0x1a 0461 180e | | Execute Package,Field_Execute,Field_Number 0xe 0462 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0463 TRAP_0418: 0463 e00a | | Load 0x0,0xa 0464 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0465 010f | | Execute Exception,Equal 0466 6808 |h | Jump_Zero 0x46f 0467 00d9 | | Load_Top At_Offset_1 0468 0092 05cc | | Action Push_String_Extended,0x5cc ; "Units" 046a e21a | | Load 0x1,0x1a 046b 180e | | Execute Package,Field_Execute,Field_Number 0xe 046c 00d1 | | Pop_Control Pop_Count_1 046d 00d8 | | Load_Top At_Offset_0 046e 0101 | | Execute Exception,Reraise 046f e216 | | Load 0x1,0x16 0470 010f | | Execute Exception,Equal 0471 680b |h | Jump_Zero 0x47d 0472 00d9 | | Load_Top At_Offset_1 0473 8221 | ! | Call 0x1,0x21 0474 00d1 | | Pop_Control Pop_Count_1 0475 4802 |H | Short_Literal 0x2 0476 a5fb | | Store_Unchecked 0x2,-0x5 0477 00d9 | | Load_Top At_Offset_1 0478 0092 05cc | | Action Push_String_Extended,0x5cc ; "Units" 047a e21a | | Load 0x1,0x1a 047b 180e | | Execute Package,Field_Execute,Field_Number 0xe 047c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 047d 00d9 | | Load_Top At_Offset_1 047e 0092 05cc | | Action Push_String_Extended,0x5cc ; "Units" 0480 e21a | | Load 0x1,0x1a 0481 180e | | Execute Package,Field_Execute,Field_Number 0xe 0482 00d1 | | Pop_Control Pop_Count_1 0483 00d9 | | Load_Top At_Offset_1 0484 8221 | ! | Call 0x1,0x21 0485 00d1 | | Pop_Control Pop_Count_1 0486 4802 |H | Short_Literal 0x2 0487 a5fb | | Store_Unchecked 0x2,-0x5 0488 00d9 | | Load_Top At_Offset_1 0489 e21a | | Load 0x1,0x1a 048a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 048b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 048c 0000 0000 | | .BLANK 0000[0x4] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00db | | Load_Top At_Offset_3 0494 00db | | Load_Top At_Offset_3 0495 e004 | | Load 0x0,0x4 0496 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0497 0119 | | Execute Any,Check_In_Formal_Type 0498 e21f | | Load 0x1,0x1f 0499 180e | | Execute Package,Field_Execute,Field_Number 0xe 049a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 049b 0000 0000 | | .BLANK 0000[0x5] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a7 | | .CONST 0x04a7 ; Address of begin 04a1 04eb | | .CONST 0x04eb ; Address of exception handler 04a2 0002 | | .CONST 0x0002 ; Number of locals 04a3 INIT_04a0: 04a3 e219 | | Load 0x1,0x19 04a4 0322 | " | Declare_Variable Record 04a5 00d8 | | Load_Top At_Offset_0 04a6 1c00 | | Execute_Immediate Run_Utility,0x0 04a7 BODY_04a0: 04a7 00d8 | | Load_Top At_Offset_0 04a8 e5fc | | Load 0x2,-0x4 04a9 e5fd | | Load 0x2,-0x3 04aa 8220 | | Call 0x1,0x20 04ab 00d1 | | Pop_Control Pop_Count_1 04ac 00d8 | | Load_Top At_Offset_0 04ad 0092 05cd | | Action Push_String_Extended,0x5cd ; "Load_Views => \x22" 04af e5ff | | Load 0x2,-0x1 04b0 01cc | | Execute Vector,Catenate 04b1 0092 05c8 | | Action Push_String_Extended,0x5c8 ; "\x22, Spec_Views => \x22" 04b3 01cc | | Execute Vector,Catenate 04b4 e5fe | | Load 0x2,-0x2 04b5 01cc | | Execute Vector,Catenate 04b6 0092 05c9 | | Action Push_String_Extended,0x5c9 ; "\x22, Menu => " 04b8 01cc | | Execute Vector,Catenate 04b9 e5fd | | Load 0x2,-0x3 04ba 00e1 | | Load_Encached Boolean_Cache 04bb 011c | | Execute Any,Convert_Unchecked 04bc 1c01 | | Execute_Immediate Run_Utility,0x1 04bd 01cc | | Execute Vector,Catenate 04be 0092 05ca | | Action Push_String_Extended,0x5ca ; ", Response => \x22" 04c0 01cc | | Execute Vector,Catenate 04c1 e5fc | | Load 0x2,-0x4 04c2 01cc | | Execute Vector,Catenate 04c3 0092 05cb | | Action Push_String_Extended,0x5cb ; "\x22" 04c5 01cc | | Execute Vector,Catenate 04c6 0092 05ce | | Action Push_String_Extended,0x5ce ; "Views" 04c8 e21a | | Load 0x1,0x1a 04c9 180d | | Execute Package,Field_Execute,Field_Number 0xd 04ca 00d1 | | Pop_Control Pop_Count_1 04cb 00d8 | | Load_Top At_Offset_0 04cc e5fe | | Load 0x2,-0x2 04cd e21d | | Load 0x1,0x1d 04ce 180d | | Execute Package,Field_Execute,Field_Number 0xd 04cf 00d1 | | Pop_Control Pop_Count_1 04d0 00d8 | | Load_Top At_Offset_0 04d1 e5ff | | Load 0x2,-0x1 04d2 e21d | | Load 0x1,0x1d 04d3 180e | | Execute Package,Field_Execute,Field_Number 0xe 04d4 00d1 | | Pop_Control Pop_Count_1 04d5 00d8 | | Load_Top At_Offset_0 04d6 e004 | | Load 0x0,0x4 04d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04d8 e5ff | | Load 0x2,-0x1 04d9 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 04da e22b | + | Load 0x1,0x2b 04db 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 04dc e21c | | Load 0x1,0x1c 04dd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04de 00d1 | | Pop_Control Pop_Count_1 04df 00d8 | | Load_Top At_Offset_0 04e0 8221 | ! | Call 0x1,0x21 04e1 00d1 | | Pop_Control Pop_Count_1 04e2 00d8 | | Load_Top At_Offset_0 04e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e4 a5fb | | Store_Unchecked 0x2,-0x5 04e5 00d8 | | Load_Top At_Offset_0 04e6 0092 05ce | | Action Push_String_Extended,0x5ce ; "Views" 04e8 e21a | | Load 0x1,0x1a 04e9 180e | | Execute Package,Field_Execute,Field_Number 0xe 04ea 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04eb TRAP_04a0: 04eb e00a | | Load 0x0,0xa 04ec 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 04ed 010f | | Execute Exception,Equal 04ee 6808 |h | Jump_Zero 0x4f7 04ef 00d9 | | Load_Top At_Offset_1 04f0 0092 05ce | | Action Push_String_Extended,0x5ce ; "Views" 04f2 e21a | | Load 0x1,0x1a 04f3 180e | | Execute Package,Field_Execute,Field_Number 0xe 04f4 00d1 | | Pop_Control Pop_Count_1 04f5 00d8 | | Load_Top At_Offset_0 04f6 0101 | | Execute Exception,Reraise 04f7 e216 | | Load 0x1,0x16 04f8 010f | | Execute Exception,Equal 04f9 680b |h | Jump_Zero 0x505 04fa 00d9 | | Load_Top At_Offset_1 04fb 8221 | ! | Call 0x1,0x21 04fc 00d1 | | Pop_Control Pop_Count_1 04fd 4802 |H | Short_Literal 0x2 04fe a5fb | | Store_Unchecked 0x2,-0x5 04ff 00d9 | | Load_Top At_Offset_1 0500 0092 05ce | | Action Push_String_Extended,0x5ce ; "Views" 0502 e21a | | Load 0x1,0x1a 0503 180e | | Execute Package,Field_Execute,Field_Number 0xe 0504 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0505 00d9 | | Load_Top At_Offset_1 0506 e21a | | Load 0x1,0x1a 0507 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0508 00d1 | | Pop_Control Pop_Count_1 0509 00d9 | | Load_Top At_Offset_1 050a 8221 | ! | Call 0x1,0x21 050b 00d1 | | Pop_Control Pop_Count_1 050c 4802 |H | Short_Literal 0x2 050d a5fb | | Store_Unchecked 0x2,-0x5 050e 00d9 | | Load_Top At_Offset_1 050f 0092 05ce | | Action Push_String_Extended,0x5ce ; "Views" 0511 e21a | | Load 0x1,0x1a 0512 180e | | Execute Package,Field_Execute,Field_Number 0xe 0513 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0514 0000 0000 | | .BLANK 0000[0x4] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b 00db | | Load_Top At_Offset_3 051c 00db | | Load_Top At_Offset_3 051d e004 | | Load 0x0,0x4 051e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 051f 0119 | | Execute Any,Check_In_Formal_Type 0520 e21f | | Load 0x1,0x1f 0521 180f | | Execute Package,Field_Execute,Field_Number 0xf 0522 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0523 0000 0000 | | .BLANK 0000[0x5] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052f | / | .CONST 0x052f ; Address of begin 0529 0569 | i | .CONST 0x0569 ; Address of exception handler 052a 0002 | | .CONST 0x0002 ; Number of locals 052b INIT_0528: 052b e219 | | Load 0x1,0x19 052c 0322 | " | Declare_Variable Record 052d 00d8 | | Load_Top At_Offset_0 052e 1c00 | | Execute_Immediate Run_Utility,0x0 052f BODY_0528: 052f 00d8 | | Load_Top At_Offset_0 0530 e5fd | | Load 0x2,-0x3 0531 e5fe | | Load 0x2,-0x2 0532 8220 | | Call 0x1,0x20 0533 00d1 | | Pop_Control Pop_Count_1 0534 00d8 | | Load_Top At_Offset_0 0535 0092 05cf | | Action Push_String_Extended,0x5cf ; "The_Activity => \x22" 0537 e5ff | | Load 0x2,-0x1 0538 01cc | | Execute Vector,Catenate 0539 0092 05c9 | | Action Push_String_Extended,0x5c9 ; "\x22, Menu => " 053b 01cc | | Execute Vector,Catenate 053c e5fe | | Load 0x2,-0x2 053d 00e1 | | Load_Encached Boolean_Cache 053e 011c | | Execute Any,Convert_Unchecked 053f 1c01 | | Execute_Immediate Run_Utility,0x1 0540 01cc | | Execute Vector,Catenate 0541 0092 05ca | | Action Push_String_Extended,0x5ca ; ", Response => \x22" 0543 01cc | | Execute Vector,Catenate 0544 e5fd | | Load 0x2,-0x3 0545 01cc | | Execute Vector,Catenate 0546 0092 05cb | | Action Push_String_Extended,0x5cb ; "\x22" 0548 01cc | | Execute Vector,Catenate 0549 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "Activity" 054b e21a | | Load 0x1,0x1a 054c 180d | | Execute Package,Field_Execute,Field_Number 0xd 054d 00d1 | | Pop_Control Pop_Count_1 054e 00d8 | | Load_Top At_Offset_0 054f e5ff | | Load 0x2,-0x1 0550 e21d | | Load 0x1,0x1d 0551 180f | | Execute Package,Field_Execute,Field_Number 0xf 0552 00d1 | | Pop_Control Pop_Count_1 0553 00d8 | | Load_Top At_Offset_0 0554 e004 | | Load 0x0,0x4 0555 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0556 e5ff | | Load 0x2,-0x1 0557 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0558 e231 | 1 | Load 0x1,0x31 0559 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 055a e21c | | Load 0x1,0x1c 055b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 055c 00d1 | | Pop_Control Pop_Count_1 055d 00d8 | | Load_Top At_Offset_0 055e 8221 | ! | Call 0x1,0x21 055f 00d1 | | Pop_Control Pop_Count_1 0560 00d8 | | Load_Top At_Offset_0 0561 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0562 a5fc | | Store_Unchecked 0x2,-0x4 0563 00d8 | | Load_Top At_Offset_0 0564 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "Activity" 0566 e21a | | Load 0x1,0x1a 0567 180e | | Execute Package,Field_Execute,Field_Number 0xe 0568 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0569 TRAP_0528: 0569 e00a | | Load 0x0,0xa 056a 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 056b 010f | | Execute Exception,Equal 056c 6808 |h | Jump_Zero 0x575 056d 00d9 | | Load_Top At_Offset_1 056e 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "Activity" 0570 e21a | | Load 0x1,0x1a 0571 180e | | Execute Package,Field_Execute,Field_Number 0xe 0572 00d1 | | Pop_Control Pop_Count_1 0573 00d8 | | Load_Top At_Offset_0 0574 0101 | | Execute Exception,Reraise 0575 e216 | | Load 0x1,0x16 0576 010f | | Execute Exception,Equal 0577 680b |h | Jump_Zero 0x583 0578 00d9 | | Load_Top At_Offset_1 0579 8221 | ! | Call 0x1,0x21 057a 00d1 | | Pop_Control Pop_Count_1 057b 4802 |H | Short_Literal 0x2 057c a5fc | | Store_Unchecked 0x2,-0x4 057d 00d9 | | Load_Top At_Offset_1 057e 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "Activity" 0580 e21a | | Load 0x1,0x1a 0581 180e | | Execute Package,Field_Execute,Field_Number 0xe 0582 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0583 00d9 | | Load_Top At_Offset_1 0584 e21a | | Load 0x1,0x1a 0585 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0586 00d1 | | Pop_Control Pop_Count_1 0587 00d9 | | Load_Top At_Offset_1 0588 8221 | ! | Call 0x1,0x21 0589 00d1 | | Pop_Control Pop_Count_1 058a 4802 |H | Short_Literal 0x2 058b a5fc | | Store_Unchecked 0x2,-0x4 058c 00d9 | | Load_Top At_Offset_1 058d 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "Activity" 058f e21a | | Load 0x1,0x1a 0590 180e | | Execute Package,Field_Execute,Field_Number 0xe 0591 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0592 0000 0000 | | .BLANK 0000[0x6] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 059b | | .CONST 0x059b ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0001 | | .CONST 0x0001 ; Number of locals 059b BODY_0598: 059b INIT_0598: 059b e7fd | | Load 0x3,-0x3 059c 0c02 | | Execute_Immediate Greater_Equal,0x2 059d 6809 |h | Jump_Zero 0x5a7 059e e5ff | | Load 0x2,-0x1 059f e7fe | | Load 0x3,-0x2 05a0 e7fd | | Load 0x3,-0x3 05a1 e21b | | Load 0x1,0x1b 05a2 180d | | Execute Package,Field_Execute,Field_Number 0xd 05a3 e21a | | Load 0x1,0x1a 05a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05a5 00d1 | | Pop_Control Pop_Count_1 05a6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05a7 e7fd | | Load 0x3,-0x3 05a8 0f01 | | Execute_Immediate Equal,0x1 05a9 6808 |h | Jump_Zero 0x5b2 05aa e5ff | | Load 0x2,-0x1 05ab 00db | | Load_Top At_Offset_3 05ac e7fd | | Load 0x3,-0x3 05ad e21b | | Load 0x1,0x1b 05ae 180d | | Execute Package,Field_Execute,Field_Number 0xd 05af e21a | | Load 0x1,0x1a 05b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05b1 00d1 | | Pop_Control Pop_Count_1 05b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05b3 ; -------------------------------------------------------------------------------------- 05b3 ; STRING TABLE 05b3 ; -------------------------------------------------------------------------------------- 05b3 003e | > | .STRTAB 0x003e->0x05d2 ; "COMPATIBLE" 05b4 0046 | F | .STRTAB 0x0046->0x05d7 ; "INCOMPATIBLE" 05b5 0050 | P | .STRTAB 0x0050->0x05dd ; "ERROR" 05b6 0053 | S | .STRTAB 0x0053->0x05df ; "Could not find unit" 05b7 0064 | d | .STRTAB 0x0064->0x05e9 ; "Could not find view" 05b8 0075 | u | .STRTAB 0x0075->0x05f2 ; "Could not find activity" 05b9 008a | | .STRTAB 0x008a->0x05fe ; "All units/views are compatible" 05ba 00a6 | | .STRTAB 0x00a6->0x060d ; "Missing units" 05bb 00b1 | | .STRTAB 0x00b1->0x0613 ; "Missing unit" 05bc 00bb | | .STRTAB 0x00bb->0x0619 ; "Uninstalled units" 05bd 00ca | | .STRTAB 0x00ca->0x0622 ; "Uninstalled unit" 05be 00d8 | | .STRTAB 0x00d8->0x062a ; "Incompatible units" 05bf 00e8 | | .STRTAB 0x00e8->0x0633 ; "Incompatible unit" 05c0 00f7 | | .STRTAB 0x00f7->0x063b ; "Missing views" 05c1 0102 | | .STRTAB 0x0102->0x0642 ; "Missing view" 05c2 010c | | .STRTAB 0x010c->0x0648 ; "Incompatible views" 05c3 011c | | .STRTAB 0x011c->0x0651 ; "Incompatible view" 05c4 012b | + | .STRTAB 0x012b->0x0659 ; "Errors encountered" 05c5 013b | ; | .STRTAB 0x013b->0x0662 ; "Error encountered" 05c6 014a | J | .STRTAB 0x014a->0x066b ; "is not an ada unit or view" 05c7 0162 | b | .STRTAB 0x0162->0x0678 ; "Load_View_Units => \x22" 05c8 0174 | t | .STRTAB 0x0174->0x0682 ; "\x22, Spec_Views => \x22" 05c9 0184 | | .STRTAB 0x0184->0x068b ; "\x22, Menu => " 05ca 018d | | .STRTAB 0x018d->0x0690 ; ", Response => \x22" 05cb 019a | | .STRTAB 0x019a->0x0698 ; "\x22" 05cc 0199 | | .STRTAB 0x0199->0x0698 ; "Units" 05cd 019c | | .STRTAB 0x019c->0x069b ; "Load_Views => \x22" 05ce 01a9 | | .STRTAB 0x01a9->0x06a2 ; "Views" 05cf 01ac | | .STRTAB 0x01ac->0x06a5 ; "The_Activity => \x22" 05d0 01bb | | .STRTAB 0x01bb->0x06ad ; "Activity" 05d1 01c1 | | .STREND 0x01c1->0x06b1 05d2 434f 4d50 |COMP| .STRTAB_STRINGS 06b2 0000 0000 | | .BLANK 0000[0x6] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; Debug Table 06b8 ; -------------------------------------------------------------------------------------- 06b8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc020,0x0000,0x0001,0x0000 06be 0000 0000 | | .BLANK 0000[0x142]