|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 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 0007 | | .DEBUG4 0x0004,0x0007,0x4546,0x0000,0x0001,0x0000
06be 690d 3d39 |i =9| .XXX[0x142]
06c0 1925 1d55 | % U|
06c2 4905 513d |I Q=|
06c4 48b9 1d0d |H |
06c6 7d3d 4115 |}=A |
06c8 4905 5125 |I Q%|
06ca 3d39 4cf9 |=9L |
06cc f000 0000 | |
06ce 4001 7400 |@ t |
06d0 d50d 3d39 | =9|
06d2 1925 1d55 | % U|
06d4 4905 513d |I Q=|
06d6 48b9 4d65 |H Me|
06d8 4d51 1535 |MQ 5|
06da 7d3d 4115 |}=A |
06dc 4905 5125 |I Q%|
06de 3d39 4cb9 |=9L |
06e0 5d05 2551 |] %Q|
06e2 7d19 3d49 |} =I|
06e4 7d39 1561 |}9 a|
06e6 517d 4d39 |Q}M9|
06e8 0541 4d21 | AM!|
06ea 3d50 f5ee |=P |
06ec 51fa 408c |Q @ |
06ee 0021 3505 | !5 |
06f0 617d 5d05 |a}] |
06f2 2550 5c00 |%P\ |
06f4 454d 5105 |EMQ |
06f6 3911 0549 |9 I|
06f8 10b9 1155 | U|
06fa 4905 5125 |I Q%|
06fc 3d38 0000 |=8 |
06fe 0000 0090 | |
0700 01d0 00b9 | |
0702 0d3d 3919 | =9 |
0704 251d 5549 |% UI|
0706 0551 3d48 | Q=H|
0708 b959 3d31 | Y=1|
070a 5535 157d |U5 }|
070c 3d41 1549 |=A I|
070e 0551 253d | Q%=|
0710 394c b911 |9L |
0712 2505 1d39 |% 9|
0714 3d4d 5125 |=MQ%|
0716 0d7d 0549 | } I|
0718 1504 f5ea | |
071a 51fa 408c |Q @ |
071c 0019 593d | Y=|
071e 3155 3514 |1U5 |
0720 5c00 6109 |\ a |
0722 313d 0d2d |1= -|
0724 7d11 1519 |} |
0726 4cb9 593d |L Y=|
0728 3155 3515 |1U5 |
072a 7d39 5535 |}9U5|
072c 0915 4800 | H |
072e 5c00 5909 |\ Y |
0730 313d 0d2d |1= -|
0732 7d11 1519 |} |
0734 4cb9 0931 |L 1|
0736 3d0d 2d7d |= -}|
0738 4905 391d |I 9 |
073a 1400 0000 | |
073c 0050 015c | P \|
073e 00cd 0d3d | =|
0740 3919 251d |9 % |
0742 5549 0551 |UI Q|
0744 3d48 b94d |=H M|
0746 654d 5115 |eMQ |
0748 357d 3d41 |5}=A|
074a 1549 0551 | I Q|
074c 253d 394c |%=9L|
074e b91d 1551 | Q|
0750 7d4d 654d |}MeM|
0752 5115 357d |Q 5}|
0754 5541 7d39 |UA}9|
0756 5535 0915 |U5 |
0758 48f5 ea50 |H P|
075a 5c00 6d4d |\ mM|
075c 4105 0d15 |A |
075e 7d11 1519 |} |
0760 4cb9 4d65 |L Me|
0762 4d51 1535 |MQ 5|
0764 7d55 417d |}UA}|
0766 3955 3509 |9U5 |
0768 1548 0000 | H |
076a 0001 2001 | |
076c 0400 c10d | |
076e 3d39 1925 |=9 %|
0770 1d55 4905 | UI |
0772 513d 48b9 |Q=H |
0774 3525 4d0d |5%M |
0776 1531 3105 | 11 |
0778 3915 3d55 |9 =U|
077a 4d7d 3d41 |M}=A|
077c 1549 0551 | I Q|
077e 253d 394c |%=9L|
0780 b939 0551 | 9 Q|
0782 5549 0531 |UI 1|
0784 7ccc c8f1 || |
0786 985c 0025 | \ %|
0788 1925 3131 | %11|
078a 1549 7ccc | I| |
078c c800 0000 | |
078e 004c 0228 | L (|
0790 00d9 0d3d | =|
0792 3919 251d |9 % |
0794 5549 0551 |UI Q|
0796 3d48 b94d |=H M|
0798 654d 5115 |eMQ |
079a 357d 3d41 |5}=A|
079c 1549 0551 | I Q|
079e 253d 394c |%=9L|
07a0 b94d 1551 | M Q|
07a2 7d49 150d |}I |
07a4 3d59 1549 |=Y I|
07a6 657d 4d05 |e}M |
07a8 5915 7d41 |Y }A|
07aa 3d25 3950 |=%9P|
07ac f5ee 51fa | Q |
07ae 408c 0025 |@ %|
07b0 4d05 5915 |M Y |
07b2 7d09 054d |} M|
07b4 145c 0075 | \ u|
07b6 4d41 050d |MA |
07b8 157d 1115 | } |
07ba 194c b94d | L M|
07bc 0559 157d | Y }|
07be 413d 2539 |A=%9|
07c0 517d 0905 |Q} |
07c2 4d15 7d25 |M }%|
07c4 1001 fa40 | @|
07c6 8c00 254d | %M|
07c8 0559 157d | Y }|
07ca 5125 3514 |Q%5 |
07cc 5c00 350d |\ 5 |
07ce 0531 1539 | 1 9|
07d0 1105 48b9 | H |
07d2 5125 3514 |Q%5 |
07d4 0000 0000 | |
07d6 01cc 02c8 | |
07d8 00f5 0d3d | =|
07da 3919 251d |9 % |
07dc 5549 0551 |UI Q|
07de 3d48 b959 |=H Y|
07e0 417d 3d41 |A}=A|
07e2 1549 0551 | I Q|
07e4 253d 394c |%=9L|
07e6 b90d 4915 | I |
07e8 0551 157d | Q }|
07ea 4d55 4949 |MUII|
07ec 3d1d 0551 |= Q|
07ee 157d 5925 | }Y%|
07f0 4951 5505 |IQU |
07f2 317d 4149 |1}AI|
07f4 3d0d 154d |= M|
07f6 4d3d 48f5 |M=H |
07f8 ee51 fa40 | Q @|
07fa 8c00 213d | !=|
07fc 4925 1d25 |I% %|
07fe 3905 305c |9 0\|